diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAADODrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAADODrv.dad
new file mode 100644
index 0000000..4065076
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAADODrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAAbsoluteDBDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAAbsoluteDBDrv.dad
new file mode 100644
index 0000000..368afd7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAAbsoluteDBDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAAnyDACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAAnyDACDrv.dad
new file mode 100644
index 0000000..c4473d6
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAAnyDACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DABDEDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DABDEDrv.dad
new file mode 100644
index 0000000..97fbdbb
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DABDEDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAConverter.exe b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAConverter.exe
new file mode 100644
index 0000000..1432eac
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAConverter.exe differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBISAM3Drv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBISAM3Drv.dad
new file mode 100644
index 0000000..7673912
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBISAM3Drv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBISAM4Drv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBISAM4Drv.dad
new file mode 100644
index 0000000..3cad429
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBISAM4Drv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBXDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBXDrv.dad
new file mode 100644
index 0000000..65509ee
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADBXDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADOADrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADOADrv.dad
new file mode 100644
index 0000000..2956e08
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DADOADrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAElevateDBDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAElevateDBDrv.dad
new file mode 100644
index 0000000..5fd3c00
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAElevateDBDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAFIBDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAFIBDrv.dad
new file mode 100644
index 0000000..faa2068
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAFIBDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBDACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBDACDrv.dad
new file mode 100644
index 0000000..ae4822e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBDACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBODrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBODrv.dad
new file mode 100644
index 0000000..20e2d38
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBODrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBXDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBXDrv.dad
new file mode 100644
index 0000000..6fc0ce2
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAIBXDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAMyDACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAMyDACDrv.dad
new file mode 100644
index 0000000..703e884
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAMyDACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAMySQLDACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAMySQLDACDrv.dad
new file mode 100644
index 0000000..319a13d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAMySQLDACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DANexusDBDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DANexusDBDrv.dad
new file mode 100644
index 0000000..5eee435
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DANexusDBDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAODACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAODACDrv.dad
new file mode 100644
index 0000000..f368c87
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAODACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAPGDACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAPGDACDrv.dad
new file mode 100644
index 0000000..1e1f05a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAPGDACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAPostgresDACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAPostgresDACDrv.dad
new file mode 100644
index 0000000..1e160dd
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAPostgresDACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASDACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASDACDrv.dad
new file mode 100644
index 0000000..215fd83
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASDACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASQLiteDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASQLiteDrv.dad
new file mode 100644
index 0000000..b757591
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASQLiteDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASQLitePassDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASQLitePassDrv.dad
new file mode 100644
index 0000000..60b729f
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASQLitePassDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASchemaModeler.exe b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASchemaModeler.exe
new file mode 100644
index 0000000..999ab5c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DASchemaModeler.exe differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAServer.exe b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAServer.exe
new file mode 100644
index 0000000..c8babcf
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAServer.exe differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAUniDACDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAUniDACDrv.dad
new file mode 100644
index 0000000..2361291
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAUniDACDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAZeosDrv.dad b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAZeosDrv.dad
new file mode 100644
index 0000000..450eaf6
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DAZeosDrv.dad differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Data Abstract.lic b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Data Abstract.lic
new file mode 100644
index 0000000..16d5f6d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Data Abstract.lic	
@@ -0,0 +1,18 @@
+133f802af8ca4a2594c36bb3e17689c37d60e6cd7493fa8b9467caa6ea0bc642e1f9cd6e4109f658bf4b085c1eaf724c9bbdac877b5378f415dcc5a472d392a73bd8a7893f58f83b8a87c9c26a2180bb3afd4b3b01ad50fcb32c09ccd2500defac0b5814e319588fe17d1d19224fbca6bc4619356fc3b111c75c40246e76938420c590423cdc0a49806fe2f4ad09174cc544badcb482b16c3de9c86ccc2b8ed664db678ef3cd0457737ad028a801a0bafac7d9bcc891335de4667737864e5f503c6dc8605413fb65f8b970a01bf9ee3f72d184171dea14e2fecae42ba228f090f5f13ce902a8998c25b1856c54eff8db14dd1fa00fe4b491ce5143f4ac3229c4
+4ebb5baf185307679a7600fa67fa2508d041e3148a7bde8297c88f11d7d0779735ea6846bc66d975dcf8018b36237652ffb43d506287ae0a594d30526bf780ee
+Name=Trial
+Email=Trial
+UserId=Trial
+Company=Trial
+LicenseType=Default
+ProductName=Data Abstract
+Version=6
+AllowBeta=0
+Trial=1
+SubscriptionEndDate=2009-12-04
+LicenseFileEndDate=2009-12-3
+StartDate=2009-11-30
+EndDate=2010-9-2
+P1=13765056502437446495
+P2=4541684468039050332
+P3=1757767162
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DataAbstract.daConfig b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DataAbstract.daConfig
new file mode 100644
index 0000000..3baa736
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DataAbstract.daConfig	
@@ -0,0 +1,629 @@
+<Configuration>
+
+  <KnownDrivers>
+    <MSSQL.NET>
+      <ProviderName>System.Data.SqlClient</ProviderName>
+      <Description Value="Microsoft SQL Server 2000 Data Provider"/>
+      <Profile Value="MSSQL"
+               DefaultAuxParams="Integrated Security=SSPI" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Integrated Security"
+                   Value="SSPI" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">MSSQL .NET Driver</p>
+        <p>  This Driver allows you to connect to MSSQL via the Microsoft .NET MSSQL driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the database name to wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional MSSQL driver options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+    </MSSQL.NET>
+
+    <MSSQL2005.NET>
+      <ProviderName>System.Data.SqlClient</ProviderName>
+      <Description Value="Microsoft SQL Server 2005 Data Provider"/>
+      <Profile Value="MSSQL2005"
+               DefaultAuxParams="Integrated Security=SSPI" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Integrated Security"
+                   Value="SSPI" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">MSSQL2005 .NET Driver</p>
+        <p>  This Driver allows you to connect to MSSQL2005 via the Microsoft .NET MSSQL driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the database name to wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional MSSQL driver options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+    </MSSQL2005.NET>
+
+    <MSSQLCE.NET>
+      <AssemblyName Value="Microsoft.SqlServerCe.Client, Version=3.5.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
+      <FactoryClassName Value="Microsoft.SqlServerCe.Client.SqlCeClientFactory" />
+      <Description Value="SQL Server Compact v3.5 Data Provider"/>
+      <Profile Value="MSSQLCE" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Max Database Size"
+                   Value="256" />
+        <Parameter Name="File Mode"
+                   Value="shared read;exclusive;read only" />
+        <Parameter Name="Temp File Max Size"
+                   Value="" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">SQL Server Compact v3.5 Driver</p>
+        <p>  This Driver allows you to connect to MSSQL Compact databases via the Microsoft .NET MSSQL driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the database file name you wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional driver options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the MSSQLCE.NET driver for SQL Server Compact v3.5, you must install the SQL Server Compact 3.5 SP1 from http://www.microsoft.com/sqlserver/2005/en/us/compact-downloads.aspx.
+      </DriverNotFoundText>
+    </MSSQLCE.NET>
+
+    <ODBC.NET>
+      <ProviderName>System.Data.Odbc</ProviderName>
+      <Description Value="ODBC Data Provider" />
+      <ParameterHandling Type="Sequential"
+                         SQLSymbol="?" />
+      <ProfileMappings Match="Driver">
+        <Mapping Name="{Microsoft Access Driver (*.mdb)}"
+                 Profile="Access">
+          <ParamMappings Database="dbq"
+                         Server=""
+                         UserID="uid"
+                         Password="pwd"/>
+        </Mapping>
+        <Mapping Name="{SQL Server}"
+                 Profile="MSSQL">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+        <Mapping Name="{Microsoft ODBC for Oracle}"
+                 Profile="Oracle" >
+          <ParamMappings Database="Data Source"
+                         Server=""
+                         UserID="uid"
+                         Password="pwd"/>
+        </Mapping>
+        <Mapping Name="{MySQL ODBC 3.51 Driver}"
+                 Profile="MySQL">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+        <Mapping Name="{Sybase System 10}"
+                 Profile="Sybase">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+        <Mapping Name="{Gemini InterBase ODBC Driver 2.0}"
+                 Profile="Interbase">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+        <Mapping Name="{Firebird/InterBase(r) driver}"
+                 Profile="Interbase">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+      </ProfileMappings>
+    </ODBC.NET>
+
+    <OLEDB.NET>
+      <ProviderName>System.Data.OleDb</ProviderName>
+      <Description Value="OLE DB Data Provider" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@" />
+      <ProfileMappings Match="Provider">
+        <Mapping Name="sqloledb"
+                 Profile="MSSQL" />
+        <Mapping Name="MySQLProv"
+                 Profile="MySQL" />
+        <Mapping Name="DB2OLEDB"
+                 Profile="DB2" />
+        <Mapping Name="Microsoft.Jet.OLEDB.4.0"
+                 Profile="Access">
+          <ParamMappings Database="Data Source"
+                         Server="" />
+        </Mapping>
+        <Mapping Name="Paradox"
+                 Value="Microsoft.Jet.OLEDB.4.0"
+                 Profile="Paradox"
+                 DefaultAuxParams="Extended Properties=Paradox 5.x"/>
+        <Mapping Name="MSDAORA"
+                 Profile="Oracle">
+          <ParamMappings Database="Data Source"
+                         Server="" />
+        </Mapping>
+        <Mapping Name="OraOLEDB.Oracle"
+                 Profile="Oracle" >
+          <ParamMappings Database="Data Source"
+                         Server="" />
+        </Mapping>
+      </ProfileMappings>
+    </OLEDB.NET>
+
+    <FB.NET>
+      <AssemblyName Value="FirebirdSql.Data.FirebirdClient, Version=2.5.1.0, Culture=neutral, PublicKeyToken=3750abcc3150b00c" />
+      <FactoryClassName Value="FirebirdSql.Data.FirebirdClient.FirebirdClientFactory" />
+      <Description Value="Firebird Data Provider" />
+      <Profile Value="Interbase" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Role"
+                   Value="" />
+        <Parameter Name="Dialect"
+                   Value="1,2,3" />
+        <Parameter Name="Charset"
+                   Value="ASCII,BIG_5,CYRL,DOS437,DOS850,DOS852,DOS857,DOS860,DOS861,DOS863,DOS865,EUCJ_0208,GB_2312,ISO8859_1,ISO8859_2,KSC_5601,NEXT,NONE,OCTETS,SJIS_0208,UNICODE_FSS,WIN1250,WIN1251,WIN1252,WIN1253,WIN1254" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">FB.NET Driver</p>
+        <p>  This Driver allows you to connect to Interbase via the Firebird .NET driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the full path of the database to which you wish to connect (e.g. "c:\..\employee.gdb").</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional FB .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the FB.NET driver for Firebird, you must install the open-source firebird driver from http://www.dotnetfirebird.org.
+      </DriverNotFoundText>
+    </FB.NET>
+
+    <SQLite.NET>
+      <AssemblyName Value="System.Data.SQLite, Version=1.0.65.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139" />
+      <FactoryClassName Value="System.Data.SQLite.SQLiteFactory" />
+      <Description Value="SQLite.NET Provider" />
+      <Profile Value="SQLite" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="UseUTF16Encoding"
+                   Value="True,False" />
+        <Parameter Name="DateTimeFormat"
+                   Value="Ticks,ISO86012" />
+        <Parameter Name="BinaryGUID"
+                   Value="True,False" />
+        <Parameter Name="Cache Size"
+                   Value="" />
+        <Parameter Name="Synchronous"
+                   Value="Normal,Full,Off" />
+        <Parameter Name="Page Size"
+                   Value="" />
+        <Parameter Name="Enlist"
+                   Value="Y,N" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">SQLite.NET Driver</p>
+        <p>  This Driver allows you to connect to an SQLite database via the SQLite .NET driver.</p>
+        <p class="h2">Step 2: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server. Username is ignored, Password can be used for protected databases.</p>
+        <p class="h2">Step 3: Database</p>
+        <p>  Specify the full path of the database to which you wish to connect (e.g. "c:\..\database.db3").</p>
+        <p class="h2">Step 4: Custom parameters</p>
+        <p>  You can specify additional FB .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the SQLite.NET driver, you must install the free SQLite driver from http://sourceforge.net/projects/sqlite-dotnet2/.
+      </DriverNotFoundText>
+    </SQLite.NET>
+
+    <NPGSQL.NET>
+      <AssemblyName Value="Npgsql, Version=2.0.7.0, Culture=neutral, PublicKeyToken=5d8b90d52f46fda7" />
+      <ConnectionClassName Value="Npgsql.NpgsqlConnection" />
+      <DataAdapterClassName Value="Npgsql.NpgsqlDataAdapter" />
+      <CommandBuilderClassName Value="Npgsql.NpgsqlCommandBuilder" />
+      <ConnectionStringBuilderClassName Value="Npgsql.NpgsqlConnectionStringbuilder" />
+      <Description Value="PostgreSQL Data Provider" />
+      <Profile Value="PostgreSQL" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol=":"
+                         NameSymbol="" />
+      <OptionalParameters>
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">npgsql Driver</p>
+        <p>  This Driver allows you to connect to PostgreSQL Database Server via the PostgreSQL .NET driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the name of the database to which you wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional npgsql .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the NPGSQL.NET driver for PostgreSQL, you must install the open-source PostgreSQL driver from http://pgfoundry.org/projects/npgsql.
+      </DriverNotFoundText>
+    </NPGSQL.NET>
+
+    <MySql.NET>
+      <ProviderName>MySql.Data.MySqlClient</ProviderName>
+      <Description Value="MySql Data Provider" />
+      <Profile Value="MySql" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Port"
+                   Value="3306" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">MySql Driver</p>
+        <p>  This Driver allows you to connect to MySQL Database Server via the MySql .NET driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the name of the database to which you wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional MySql .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the MySql.NET driver for MySql, you must have the commercial MySql driver from http://dev.mysql.com/.
+        Please note that you may NOT use the GPL version of the MySQL driver with Data Abstract, as the GPL explicitely
+        prohibits linking against non-GPLed code. Using the GPL version of the MySQL driver will violate your Data Abstract license and the GPL.
+      </DriverNotFoundText>
+    </MySql.NET>
+
+    <MySqlv4.NET>
+      <ProviderName>MySql.Data.MySqlClient</ProviderName>
+      <Description Value="Data Provider for MySql v4" />
+      <Profile Value="MySql4" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="?"
+                         NameSymbol="?" />
+      <OptionalParameters>
+        <Parameter Name="Port"
+                   Value="3306" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">MySql Driver</p>
+        <p>  This Driver allows you to connect to MySQL v4 Database Server via the MySql .NET driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the name of the database to which you wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional MySql .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the MySql.NET driver for MySql, you must have the commercial MySql driver from http://dev.mysql.com/.
+        Please note that you may NOT use the GPL version of the MySQL driver with Data Abstract, as the GPL explicitely
+        prohibits linking against non-GPLed code. Using the GPL version of the MySQL driver will violate your Data Abstract license and the GPL.
+      </DriverNotFoundText>
+    </MySqlv4.NET>
+
+
+    <ORACLE.NET>
+      <ProviderName>System.Data.OracleClient</ProviderName>
+      <Description Value="Oracle Data Provider" />
+      <Profile Value="Oracle" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol=":"
+                         NameSymbol="" />
+      <NewConnectionHelpText>
+      </NewConnectionHelpText>
+      <NewConnectionHelpText>
+        <p class="h1">Oracle.NET Driver</p>
+        <p>No specific help for the ODAC driver is available, yet. Please consult the Oracle documentation for details.</p>
+      </NewConnectionHelpText>
+    </ORACLE.NET>
+
+    <ODP10g.NET>
+      <ProviderName>Oracle.DataAccess.Client</ProviderName>
+      <Description Value="Oracle Data Provider for .NET (ODP.NET)" />
+      <Profile Value="Oracle" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol=":"
+                         NameSymbol="" />
+      <NewConnectionHelpText>
+      </NewConnectionHelpText>
+      <NewConnectionHelpText>
+        <p class="h1">Oracle Data Provider Driver for .NET (Oracle10g)</p>
+        <p>Use this selection to connect to Oracle 10g using the Oracle Data Provider for .NET.</p>
+        <p>As a Database parameter you should specify TNS name of the database you want to connect.</p>
+        <p>
+          For more details about Oracle Data Provider please refer <a href="http://www.oracle.com/technology/tech/windows/odpnet/index.html"
+             target="_blank">ODP.NET Home</a>
+        </p>
+      </NewConnectionHelpText>
+    </ODP10g.NET>
+
+    <ODP9i.NET>
+      <AssemblyName Value="Oracle.DataAccess, Version=9.2.0.700, Culture=neutral, PublicKeyToken=89b483f429c47342" />
+      <ConnectionClassName Value="Oracle.DataAccess.Client.OracleConnection" />
+      <DataAdapterClassName Value="Oracle.DataAccess.Client.OracleDataAdapter" />
+      <CommandBuilderClassName Value="Oracle.DataAccess.Client.OracleCommandBuilder" />
+      <ConnectionStringBuilderClassName Value="System.Data.Common.DbConnectionStringBuilder" />
+      <Description Value="Oracle Data Provider" />
+      <Profile Value="Oracle" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol=":"
+                         NameSymbol="" />
+      <NewConnectionHelpText>
+      </NewConnectionHelpText>
+      <NewConnectionHelpText>
+        <p class="h1">Oracle Data Provider Driver for .NET (Oracle 9i)</p>
+        <p>Use this selection to connect to Oracle 9i using the Oracle Data Provider for .NET.</p>
+        <p>As a Database parameter you should specify TNS name of the database you want to connect.</p>
+        <p>
+          For more details about Oracle Data Provider please refer <a href="http://www.oracle.com/technology/tech/windows/odpnet/index.html"
+             target="_blank">ODP.NET Home</a>
+        </p>
+      </NewConnectionHelpText>
+    </ODP9i.NET>
+
+  </KnownDrivers>
+
+  <IgnoredDrivers>
+    <BDP.NET>
+      <AssemblyName Value="Borland.Data.Provider, Version=2.5.0.0, Culture=neutral, PublicKeyToken=91d62ebb5b0d1b1b" />
+      <ConnectionClassName Value="Borland.Data.Provider.BdpConnection" />
+      <DataAdapterClassName Value="Borland.Data.Provider.BdpDataAdapter" />
+      <CommandBuilderClassName Value="Borland.Data.Provider.BdpCommandBuilderr" />
+      <ConnectionStringBuilderClassName Value="FirebirdSql.Data.Firebird.FbConnectionStringBuilder" />
+      <Description Value="Borland Data Provider" />
+      <ProfileMappings Match="Assembly">
+        <Mapping Name="Borland.Data.Mssql"
+                 Value="Borland.Data.Mssql,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="MSSQL" />
+        <Mapping Name="Borland.Data.Mysql"
+                 Value="Borland.Data.Mysql,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="MySQL" />
+        <Mapping Name="Borland.Data.Db2"
+                 Value="Borland.Data.Db2,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="DB2" />
+        <Mapping Name="Borland.Data.Msacc"
+                 Value="Borland.Data.Msacc,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="Access" />
+        <Mapping Name="Borland.Data.Oracle"
+                 Value="Borland.Data.Oracle,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="Oracle" />
+        <Mapping Name="Borland.Data.Sybase"
+                 Value="Borland.Data.Sybase,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="Sybase" />
+        <Mapping Name="Borland.Data.Interbase"
+                 Value="Borland.Data.Interbase,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="Interbase" />
+      </ProfileMappings>
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">Borland Data Provider Driver</p>
+      </NewConnectionHelpText>
+    </BDP.NET>
+  </IgnoredDrivers>
+
+  <DatabaseProfiles>
+    <MSSQL QuotingIdentifiers="[]">
+      <!-- MacroProcessorAssemblyName Value="RemObjects.DataAbstract.Server, Version=4.0.0.1, Culture=neutral, PublicKeyToken=3df3cad1b7aa5098" -->
+      <!-- MacroProcessorClassName Value="RemObjects.DataAbstract.Server.MSSQLMacroProcessor" -->
+      <GetDatabaseNames SQL="SELECT name as Name FROM master.dbo.sysdatabases"/>
+      <GetTableNames SQL="SELECT TABLE_NAME as Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE'"/>
+      <GetForeignKeys SQL=
+        "SELECT KCU2.TABLE_NAME   + ';' +
+                KCU2.COLUMN_NAME  + ';' +
+                KCU1.TABLE_NAME   + ';' +
+                KCU1.COLUMN_NAME  + ';' +
+                KCU1.CONSTRAINT_NAME
+         FROM INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS RC
+         JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE KCU1 ON
+           KCU1.CONSTRAINT_CATALOG = RC.CONSTRAINT_CATALOG
+             AND KCU1.CONSTRAINT_SCHEMA = RC.CONSTRAINT_SCHEMA
+             AND KCU1.CONSTRAINT_NAME = RC.CONSTRAINT_NAME
+         JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE KCU2 ON
+           KCU2.CONSTRAINT_CATALOG = RC.UNIQUE_CONSTRAINT_CATALOG
+             AND KCU2.CONSTRAINT_SCHEMA = RC.UNIQUE_CONSTRAINT_SCHEMA
+             AND KCU2.CONSTRAINT_NAME = RC.UNIQUE_CONSTRAINT_NAME 
+             AND KCU2.ORDINAL_POSITION = KCU1.ORDINAL_POSITION
+         ORDER BY KCU1.TABLE_NAME, KCU1.CONSTRAINT_NAME, KCU2.TABLE_NAME, KCU1.ORDINAL_POSITION"/>
+      <GetStoredProcedureNames SQL="SELECT SPECIFIC_NAME as Name FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_TYPE = 'PROCEDURE'"/>
+      <GetViewNames SQL="SELECT TABLE_NAME as Name FROM INFORMATION_SCHEMA.VIEWS"/>
+      <GetLastAutoInc SQL="SELECT IsNull(@@Identity, 0) as LastAutoInc"
+                      SupportsAutoIncs="True"/>
+      <DatabaseLocation Type="Select" />
+      <ExecuteStoredProcedure WithParams="EXEC {0} {1}" />
+    </MSSQL>
+
+    <MSSQL2005 QuotingIdentifiers="[]">
+      <GetDatabaseNames SQL="SELECT name as Name FROM master.sys.sysdatabases"/>
+      <GetTableNames SQL="SELECT TABLE_SCHEMA+'.'+TABLE_NAME as Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE'"/>
+      <GetForeignKeys SQL=
+        "SELECT KCU2.TABLE_SCHEMA + '.' + 
+                KCU2.TABLE_NAME   + ';' +
+                KCU2.COLUMN_NAME  + ';' +
+                KCU1.TABLE_SCHEMA + '.' + 
+                KCU1.TABLE_NAME   + ';' +
+                KCU1.COLUMN_NAME  + ';' +
+                KCU1.CONSTRAINT_NAME
+         FROM INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS RC
+         JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE KCU1 ON
+           KCU1.CONSTRAINT_CATALOG = RC.CONSTRAINT_CATALOG
+             AND KCU1.CONSTRAINT_SCHEMA = RC.CONSTRAINT_SCHEMA
+             AND KCU1.CONSTRAINT_NAME = RC.CONSTRAINT_NAME
+         JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE KCU2 ON
+           KCU2.CONSTRAINT_CATALOG = RC.UNIQUE_CONSTRAINT_CATALOG
+             AND KCU2.CONSTRAINT_SCHEMA = RC.UNIQUE_CONSTRAINT_SCHEMA
+             AND KCU2.CONSTRAINT_NAME = RC.UNIQUE_CONSTRAINT_NAME 
+             AND KCU2.ORDINAL_POSITION = KCU1.ORDINAL_POSITION
+         ORDER BY KCU1.TABLE_NAME, KCU1.CONSTRAINT_NAME, KCU2.TABLE_NAME, KCU1.ORDINAL_POSITION"/>
+      <GetStoredProcedureNames SQL="SELECT SPECIFIC_SCHEMA+'.'+SPECIFIC_NAME as Name FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_TYPE = 'PROCEDURE'"/>
+      <GetViewNames SQL="SELECT TABLE_SCHEMA+'.'+TABLE_NAME as Name FROM INFORMATION_SCHEMA.VIEWS"/>
+      <GetLastAutoInc SQL="SELECT IsNull(@@Identity, 0) as LastAutoInc"
+                      SupportsAutoIncs="True"/>
+      <DatabaseLocation Type="Select" />
+      <ExecuteStoredProcedure WithParams="EXEC {0} {1}" />
+    </MSSQL2005>
+
+    <MSSQLCE QuotingIdentifiers="[]">
+      <GetTableNames SQL="SELECT TABLE_NAME AS Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='TABLE'"/>
+      <GetViewNames SQL="SELECT TABLE_NAME AS Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='VIEW'"/>
+      <GetLastAutoInc SQL="SELECT IsNull(@@Identity, 0) as LastAutoInc"
+                      SupportsAutoIncs="True"/>
+      <DatabaseLocation Type="File"
+                        FileMask="SQL Server CE database files (*.sdf)|*.sdf" />
+    </MSSQLCE>
+
+    <Interbase QuotingIdentifiers='""'>
+      <GetTableNames SQL="SELECT RDB$RELATION_NAME AS Name FROM RDB$RELATIONS WHERE RDB$VIEW_BLR IS NULL AND RDB$SYSTEM_FLAG = 0 "/>
+      <GetForeignKeys SQL=
+        "SELECT PK.RDB$RELATION_NAME ||';'|| 
+                MIND.RDB$FIELD_NAME  ||';'||
+                FK.RDB$RELATION_NAME ||';'|| 
+                DIND.RDB$FIELD_NAME  ||';'||
+               FK.RDB$CONSTRAINT_NAME
+         FROM RDB$RELATION_CONSTRAINTS FK
+         JOIN RDB$REF_CONSTRAINTS FKC ON (FK.RDB$CONSTRAINT_NAME = FKC.RDB$CONSTRAINT_NAME)
+         JOIN RDB$RELATION_CONSTRAINTS PK ON (FKC.RDB$CONST_NAME_UQ=PK.RDB$CONSTRAINT_NAME)
+         JOIN RDB$INDEX_SEGMENTS MIND ON (PK.RDB$INDEX_NAME=MIND.RDB$INDEX_NAME)
+         JOIN RDB$INDEX_SEGMENTS DIND ON (FK.RDB$INDEX_NAME=DIND.RDB$INDEX_NAME)
+           AND (MIND.RDB$FIELD_POSITION = DIND.RDB$FIELD_POSITION)
+         WHERE (FK.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY')
+         ORDER BY FK.RDB$CONSTRAINT_NAME, FK.RDB$RELATION_NAME, MIND.RDB$FIELD_POSITION, DIND.RDB$FIELD_POSITION"/>
+      <GetStoredProcedureNames SQL="SELECT RDB$PROCEDURE_NAME AS Name FROM RDB$PROCEDURES"/>
+      <GetViewNames SQL="SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE RDB$VIEW_BLR IS NOT NULL AND RDB$SYSTEM_FLAG = 0 "/>
+      <GetLastAutoInc SQL="SELECT Gen_id({0},1) as LastAutoInc FROM RDB$Database"
+                      SupportsAutoIncs="False"/>
+      <DatabaseLocation Type="File"
+                        FileMask="Interbase files (*.gdb, *.fdb)|*.gdb;*.fdb" />
+      <ExecuteStoredProcedure WithParams="SELECT * FROM {0}({1})"
+                              WithoutParams="SELECT * FROM {0}" />
+    </Interbase>
+
+    <SQLite QuotingIdentifiers='""'>
+      <GetTableNames SQL="SELECT name FROM sqlite_master WHERE type='table' ORDER BY name"/>
+      <GetViewNames SQL="SELECT name FROM sqlite_master WHERE type='view' ORDER BY name"/>
+      <GetLastAutoInc SQL="select last_insert_rowid() "
+                      SupportsAutoIncs="True"/>
+      <DatabaseLocation Type="File"
+                        FileMask=" SQLite Database (*.sqb;*.db3;*.db;*.dbb)|*.sqb;*.db3;*.db;*.dbb" />
+    </SQLite>
+
+    <PostgreSQL QuotingIdentifiers='""'>
+      <GetDatabaseNames SQL="SELECT datname FROM pg_catalog.pg_database" />
+      <GetTableNames SQL="SELECT table_schema || '.' || table_name FROM information_schema.tables  where table_type='BASE TABLE' and table_schema not in ('pg_catalog', 'information_schema')"/>
+      <GetStoredProcedureNames SQL="select routine_schema || '.' || routine_name from information_schema.routines where routine_schema not in ('pg_catalog', 'information_schema')"/>
+      <GetViewNames SQL="SELECT table_schema || '.' || table_name FROM information_schema.tables  where table_type='VIEW' and table_schema not in ('pg_catalog', 'information_schema')"/>
+      <GetLastAutoInc SQL="select nextval('&quot;{0}&quot;')"
+                      SupportsAutoIncs="False"/>
+      <DatabaseLocation Type="Select" />
+      <ExecuteStoredProcedure WithParams="SELECT * FROM {0}({1})"
+                              WithoutParams="SELECT * FROM {0}" />
+    </PostgreSQL>
+
+    <MySql QuotingIdentifiers='``'>
+      <GetDatabaseNames SQL="SELECT schema_name FROM information_schema.schemata" />
+      <GetTableNames SQL="SELECT table_name FROM information_schema.tables  where table_schema='{0}' and table_type='BASE TABLE'"/>
+      <GetViewNames SQL="SELECT table_name FROM information_schema.tables  where table_schema='{0}' and table_type='VIEW'"/>
+      <GetLastAutoInc SQL="select last_insert_id()"
+                      SupportsAutoIncs="true"/>
+      <DatabaseLocation Type="Select" />
+    </MySql>
+
+    <MySql4 QuotingIdentifiers='``'>
+      <GetDatabaseNames SQL="SHOW DATABASES" />
+      <GetTableNames SQL="SHOW TABLES"/>
+      <GetViewNames SQL="SELECT '' AS view"/>
+      <GetLastAutoInc SQL="select last_insert_id()"
+                      SupportsAutoIncs="true"/>
+      <DatabaseLocation Type="Select" />
+    </MySql4>
+
+
+    <Access QuotingIdentifiers='[]'>
+      <DatabaseLocation Type="File"
+                        FileMask="Access database files (*.mdb)|*.mdb" />
+    </Access>
+
+    <Sybase QuotingIdentifiers='""'>
+    </Sybase>
+
+    <DB2 QuotingIdentifiers='""'>
+    </DB2>
+
+    <Oracle QuotingIdentifiers='""'>
+      <GetTableNames SQL="select object_name from user_objects where object_type='TABLE'"/>
+      <GetForeignKeys SQL=
+        "SELECT fkCons.Owner || '.' || fkCons.Table_Name ||';'||
+               fkCols.Column_Name                       ||';'||
+               fkCons.Owner || '.' || fkCons.Table_Name ||';'||
+               pkCols.Column_Name                       ||';'||
+               fkCons.constraint_name
+        FROM   all_constraints  fkCons
+              ,all_cons_columns fkCols
+              ,all_constraints  pkCons
+              ,all_cons_columns pkCols
+        WHERE  fkCons.Owner = user
+        and    fkCons.constraint_type = 'R'
+
+        and    pkCons.Owner = fkCons.r_Owner
+        and    pkCons.Constraint_Name = fkCons.r_Constraint_Name
+
+        and    fkCols.Owner = fkCons.Owner
+        and    fkCols.Table_Name = fkCons.Table_Name
+        and    fkCols.constraint_name = fkCons.constraint_name
+
+        and    pkCols.Owner = pkCons.Owner
+        and    pkCols.Table_Name = pkCons.Table_Name
+        and    pkCols.constraint_name = pkCons.constraint_name" />
+      <GetStoredProcedureNames SQL="select object_name from user_objects where object_type='PROCEDURE'"/>
+      <GetViewNames SQL="select object_name from user_objects where object_type='VIEW'"/>
+      <GetLastAutoInc SQL="SELECT {0}.Nextval FROM dual"
+                      SupportsAutoIncs="False"/>
+      <DatabaseLocation Type="Select" />
+      <ExecuteStoredProcedure WithParams="CALL {0}({1})"
+                              WithoutParams="CALL {0}" />
+    </Oracle>
+
+  </DatabaseProfiles>
+</Configuration>
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DefaultConnections.ini b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DefaultConnections.ini
new file mode 100644
index 0000000..2c865eb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/DefaultConnections.ini	
@@ -0,0 +1,21 @@
+[Delphi]
+AdventureWorks=ADO?AuxDriver=SQLNCLI.1;Server=localhost;Database=AdventureWorks;Schemas=1;Integrated Security=SSPI
+Northwind=ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI
+Employee=IBX?Server=localhost;Database=C:\Program Files\Firebird\Firebird_1_5\examples\EMPLOYEE.FDB;UserID=sysdba;Password=masterkey;
+PCTrade-MSSQL=ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=PCTrade;Integrated Security=SSPI;
+PCTrade-SQLite=SQLite?Database=C:\Documents and Settings\All Users\Documentos\RemObjects Samples\Data Abstract for Delphi\Server\Bin\Data\PCTrade.sqlite.db
+PCTrade-FB=IBX?Server=localhost;Database=C:\Documents and Settings\All Users\Documentos\RemObjects Samples\Data Abstract for Delphi\Server\Bin\Data\PCTrade.fdb;UserID=SYSDBA;Password=masterkey;
+
+[.NET]
+AdventureWorks=MSSQL2005.NET?Database=AdventureWorks;Server=localhost;Integrated Security=SSPI
+Northwind=MSSQL.NET?Database=Northwind;Server=localhost;Integrated Security=SSPI
+Employee=FB.NET?Server=localhost;Database=C:\Program Files\Firebird\Firebird_1_5\examples\EMPLOYEE.FDB;UserID=sysdba;Password=masterkey;
+PCTrade-MSSQL=MSSQL.NET?Server=localhost;Database=PCTrade;Integrated Security=SSPI
+
+[Descriptions]
+AdventureWorks_Description=Microsoft SQL Server 2005, localhost
+Northwind_Description=Microsoft SQL Server 2000, localhost
+Employee_Description=Firebird/Interbase, localhost
+PCTrade-SQLite_Description=SQLite, PCTrade.sqlite.db database
+PCTrade-MSSQL_Description=Microsoft SQL Server, localhost, PCTrade database
+PCTrade-FB_Description=Firebird 2.1, localhost, PCTrade.fdb database
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DAServer6.exe b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DAServer6.exe
new file mode 100644
index 0000000..2ef2a77
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DAServer6.exe differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DAServer6Admin.exe b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DAServer6Admin.exe
new file mode 100644
index 0000000..440f145
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DAServer6Admin.exe differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DataAbstract.daConfig b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DataAbstract.daConfig
new file mode 100644
index 0000000..3baa736
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/DataAbstract.daConfig	
@@ -0,0 +1,629 @@
+<Configuration>
+
+  <KnownDrivers>
+    <MSSQL.NET>
+      <ProviderName>System.Data.SqlClient</ProviderName>
+      <Description Value="Microsoft SQL Server 2000 Data Provider"/>
+      <Profile Value="MSSQL"
+               DefaultAuxParams="Integrated Security=SSPI" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Integrated Security"
+                   Value="SSPI" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">MSSQL .NET Driver</p>
+        <p>  This Driver allows you to connect to MSSQL via the Microsoft .NET MSSQL driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the database name to wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional MSSQL driver options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+    </MSSQL.NET>
+
+    <MSSQL2005.NET>
+      <ProviderName>System.Data.SqlClient</ProviderName>
+      <Description Value="Microsoft SQL Server 2005 Data Provider"/>
+      <Profile Value="MSSQL2005"
+               DefaultAuxParams="Integrated Security=SSPI" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Integrated Security"
+                   Value="SSPI" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">MSSQL2005 .NET Driver</p>
+        <p>  This Driver allows you to connect to MSSQL2005 via the Microsoft .NET MSSQL driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the database name to wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional MSSQL driver options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+    </MSSQL2005.NET>
+
+    <MSSQLCE.NET>
+      <AssemblyName Value="Microsoft.SqlServerCe.Client, Version=3.5.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
+      <FactoryClassName Value="Microsoft.SqlServerCe.Client.SqlCeClientFactory" />
+      <Description Value="SQL Server Compact v3.5 Data Provider"/>
+      <Profile Value="MSSQLCE" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Max Database Size"
+                   Value="256" />
+        <Parameter Name="File Mode"
+                   Value="shared read;exclusive;read only" />
+        <Parameter Name="Temp File Max Size"
+                   Value="" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">SQL Server Compact v3.5 Driver</p>
+        <p>  This Driver allows you to connect to MSSQL Compact databases via the Microsoft .NET MSSQL driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the database file name you wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional driver options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the MSSQLCE.NET driver for SQL Server Compact v3.5, you must install the SQL Server Compact 3.5 SP1 from http://www.microsoft.com/sqlserver/2005/en/us/compact-downloads.aspx.
+      </DriverNotFoundText>
+    </MSSQLCE.NET>
+
+    <ODBC.NET>
+      <ProviderName>System.Data.Odbc</ProviderName>
+      <Description Value="ODBC Data Provider" />
+      <ParameterHandling Type="Sequential"
+                         SQLSymbol="?" />
+      <ProfileMappings Match="Driver">
+        <Mapping Name="{Microsoft Access Driver (*.mdb)}"
+                 Profile="Access">
+          <ParamMappings Database="dbq"
+                         Server=""
+                         UserID="uid"
+                         Password="pwd"/>
+        </Mapping>
+        <Mapping Name="{SQL Server}"
+                 Profile="MSSQL">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+        <Mapping Name="{Microsoft ODBC for Oracle}"
+                 Profile="Oracle" >
+          <ParamMappings Database="Data Source"
+                         Server=""
+                         UserID="uid"
+                         Password="pwd"/>
+        </Mapping>
+        <Mapping Name="{MySQL ODBC 3.51 Driver}"
+                 Profile="MySQL">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+        <Mapping Name="{Sybase System 10}"
+                 Profile="Sybase">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+        <Mapping Name="{Gemini InterBase ODBC Driver 2.0}"
+                 Profile="Interbase">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+        <Mapping Name="{Firebird/InterBase(r) driver}"
+                 Profile="Interbase">
+          <ParamMappings UserID="uid"
+                         Password="pwd" />
+        </Mapping>
+      </ProfileMappings>
+    </ODBC.NET>
+
+    <OLEDB.NET>
+      <ProviderName>System.Data.OleDb</ProviderName>
+      <Description Value="OLE DB Data Provider" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@" />
+      <ProfileMappings Match="Provider">
+        <Mapping Name="sqloledb"
+                 Profile="MSSQL" />
+        <Mapping Name="MySQLProv"
+                 Profile="MySQL" />
+        <Mapping Name="DB2OLEDB"
+                 Profile="DB2" />
+        <Mapping Name="Microsoft.Jet.OLEDB.4.0"
+                 Profile="Access">
+          <ParamMappings Database="Data Source"
+                         Server="" />
+        </Mapping>
+        <Mapping Name="Paradox"
+                 Value="Microsoft.Jet.OLEDB.4.0"
+                 Profile="Paradox"
+                 DefaultAuxParams="Extended Properties=Paradox 5.x"/>
+        <Mapping Name="MSDAORA"
+                 Profile="Oracle">
+          <ParamMappings Database="Data Source"
+                         Server="" />
+        </Mapping>
+        <Mapping Name="OraOLEDB.Oracle"
+                 Profile="Oracle" >
+          <ParamMappings Database="Data Source"
+                         Server="" />
+        </Mapping>
+      </ProfileMappings>
+    </OLEDB.NET>
+
+    <FB.NET>
+      <AssemblyName Value="FirebirdSql.Data.FirebirdClient, Version=2.5.1.0, Culture=neutral, PublicKeyToken=3750abcc3150b00c" />
+      <FactoryClassName Value="FirebirdSql.Data.FirebirdClient.FirebirdClientFactory" />
+      <Description Value="Firebird Data Provider" />
+      <Profile Value="Interbase" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Role"
+                   Value="" />
+        <Parameter Name="Dialect"
+                   Value="1,2,3" />
+        <Parameter Name="Charset"
+                   Value="ASCII,BIG_5,CYRL,DOS437,DOS850,DOS852,DOS857,DOS860,DOS861,DOS863,DOS865,EUCJ_0208,GB_2312,ISO8859_1,ISO8859_2,KSC_5601,NEXT,NONE,OCTETS,SJIS_0208,UNICODE_FSS,WIN1250,WIN1251,WIN1252,WIN1253,WIN1254" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">FB.NET Driver</p>
+        <p>  This Driver allows you to connect to Interbase via the Firebird .NET driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the full path of the database to which you wish to connect (e.g. "c:\..\employee.gdb").</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional FB .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the FB.NET driver for Firebird, you must install the open-source firebird driver from http://www.dotnetfirebird.org.
+      </DriverNotFoundText>
+    </FB.NET>
+
+    <SQLite.NET>
+      <AssemblyName Value="System.Data.SQLite, Version=1.0.65.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139" />
+      <FactoryClassName Value="System.Data.SQLite.SQLiteFactory" />
+      <Description Value="SQLite.NET Provider" />
+      <Profile Value="SQLite" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="UseUTF16Encoding"
+                   Value="True,False" />
+        <Parameter Name="DateTimeFormat"
+                   Value="Ticks,ISO86012" />
+        <Parameter Name="BinaryGUID"
+                   Value="True,False" />
+        <Parameter Name="Cache Size"
+                   Value="" />
+        <Parameter Name="Synchronous"
+                   Value="Normal,Full,Off" />
+        <Parameter Name="Page Size"
+                   Value="" />
+        <Parameter Name="Enlist"
+                   Value="Y,N" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">SQLite.NET Driver</p>
+        <p>  This Driver allows you to connect to an SQLite database via the SQLite .NET driver.</p>
+        <p class="h2">Step 2: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server. Username is ignored, Password can be used for protected databases.</p>
+        <p class="h2">Step 3: Database</p>
+        <p>  Specify the full path of the database to which you wish to connect (e.g. "c:\..\database.db3").</p>
+        <p class="h2">Step 4: Custom parameters</p>
+        <p>  You can specify additional FB .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the SQLite.NET driver, you must install the free SQLite driver from http://sourceforge.net/projects/sqlite-dotnet2/.
+      </DriverNotFoundText>
+    </SQLite.NET>
+
+    <NPGSQL.NET>
+      <AssemblyName Value="Npgsql, Version=2.0.7.0, Culture=neutral, PublicKeyToken=5d8b90d52f46fda7" />
+      <ConnectionClassName Value="Npgsql.NpgsqlConnection" />
+      <DataAdapterClassName Value="Npgsql.NpgsqlDataAdapter" />
+      <CommandBuilderClassName Value="Npgsql.NpgsqlCommandBuilder" />
+      <ConnectionStringBuilderClassName Value="Npgsql.NpgsqlConnectionStringbuilder" />
+      <Description Value="PostgreSQL Data Provider" />
+      <Profile Value="PostgreSQL" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol=":"
+                         NameSymbol="" />
+      <OptionalParameters>
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">npgsql Driver</p>
+        <p>  This Driver allows you to connect to PostgreSQL Database Server via the PostgreSQL .NET driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the name of the database to which you wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional npgsql .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the NPGSQL.NET driver for PostgreSQL, you must install the open-source PostgreSQL driver from http://pgfoundry.org/projects/npgsql.
+      </DriverNotFoundText>
+    </NPGSQL.NET>
+
+    <MySql.NET>
+      <ProviderName>MySql.Data.MySqlClient</ProviderName>
+      <Description Value="MySql Data Provider" />
+      <Profile Value="MySql" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+        <Parameter Name="Port"
+                   Value="3306" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">MySql Driver</p>
+        <p>  This Driver allows you to connect to MySQL Database Server via the MySql .NET driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the name of the database to which you wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional MySql .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the MySql.NET driver for MySql, you must have the commercial MySql driver from http://dev.mysql.com/.
+        Please note that you may NOT use the GPL version of the MySQL driver with Data Abstract, as the GPL explicitely
+        prohibits linking against non-GPLed code. Using the GPL version of the MySQL driver will violate your Data Abstract license and the GPL.
+      </DriverNotFoundText>
+    </MySql.NET>
+
+    <MySqlv4.NET>
+      <ProviderName>MySql.Data.MySqlClient</ProviderName>
+      <Description Value="Data Provider for MySql v4" />
+      <Profile Value="MySql4" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="?"
+                         NameSymbol="?" />
+      <OptionalParameters>
+        <Parameter Name="Port"
+                   Value="3306" />
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">MySql Driver</p>
+        <p>  This Driver allows you to connect to MySQL v4 Database Server via the MySql .NET driver.</p>
+        <p class="h2">Step 2: Server Name</p>
+        <p>  In this field, provide the host name or the IP address of the server to which you are connecting.</p>
+        <p class="h2">Step 3: Login</p>
+        <p>  Use these two fields to provide a username and password to access the database server.</p>
+        <p class="h2">Step 4: Database</p>
+        <p>  Specify the name of the database to which you wish to connect.</p>
+        <p class="h2">Step 5: Custom parameters</p>
+        <p>  You can specify additional MySql .Net driver specific options as a semicolon separated list of name/value pairs.</p>
+      </NewConnectionHelpText>
+      <DriverNotFoundText>
+        To use the MySql.NET driver for MySql, you must have the commercial MySql driver from http://dev.mysql.com/.
+        Please note that you may NOT use the GPL version of the MySQL driver with Data Abstract, as the GPL explicitely
+        prohibits linking against non-GPLed code. Using the GPL version of the MySQL driver will violate your Data Abstract license and the GPL.
+      </DriverNotFoundText>
+    </MySqlv4.NET>
+
+
+    <ORACLE.NET>
+      <ProviderName>System.Data.OracleClient</ProviderName>
+      <Description Value="Oracle Data Provider" />
+      <Profile Value="Oracle" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol=":"
+                         NameSymbol="" />
+      <NewConnectionHelpText>
+      </NewConnectionHelpText>
+      <NewConnectionHelpText>
+        <p class="h1">Oracle.NET Driver</p>
+        <p>No specific help for the ODAC driver is available, yet. Please consult the Oracle documentation for details.</p>
+      </NewConnectionHelpText>
+    </ORACLE.NET>
+
+    <ODP10g.NET>
+      <ProviderName>Oracle.DataAccess.Client</ProviderName>
+      <Description Value="Oracle Data Provider for .NET (ODP.NET)" />
+      <Profile Value="Oracle" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol=":"
+                         NameSymbol="" />
+      <NewConnectionHelpText>
+      </NewConnectionHelpText>
+      <NewConnectionHelpText>
+        <p class="h1">Oracle Data Provider Driver for .NET (Oracle10g)</p>
+        <p>Use this selection to connect to Oracle 10g using the Oracle Data Provider for .NET.</p>
+        <p>As a Database parameter you should specify TNS name of the database you want to connect.</p>
+        <p>
+          For more details about Oracle Data Provider please refer <a href="http://www.oracle.com/technology/tech/windows/odpnet/index.html"
+             target="_blank">ODP.NET Home</a>
+        </p>
+      </NewConnectionHelpText>
+    </ODP10g.NET>
+
+    <ODP9i.NET>
+      <AssemblyName Value="Oracle.DataAccess, Version=9.2.0.700, Culture=neutral, PublicKeyToken=89b483f429c47342" />
+      <ConnectionClassName Value="Oracle.DataAccess.Client.OracleConnection" />
+      <DataAdapterClassName Value="Oracle.DataAccess.Client.OracleDataAdapter" />
+      <CommandBuilderClassName Value="Oracle.DataAccess.Client.OracleCommandBuilder" />
+      <ConnectionStringBuilderClassName Value="System.Data.Common.DbConnectionStringBuilder" />
+      <Description Value="Oracle Data Provider" />
+      <Profile Value="Oracle" />
+      <ParamMappings Database="Data Source"
+                     Server="" />
+      <ParameterHandling Type="ByName"
+                         SQLSymbol=":"
+                         NameSymbol="" />
+      <NewConnectionHelpText>
+      </NewConnectionHelpText>
+      <NewConnectionHelpText>
+        <p class="h1">Oracle Data Provider Driver for .NET (Oracle 9i)</p>
+        <p>Use this selection to connect to Oracle 9i using the Oracle Data Provider for .NET.</p>
+        <p>As a Database parameter you should specify TNS name of the database you want to connect.</p>
+        <p>
+          For more details about Oracle Data Provider please refer <a href="http://www.oracle.com/technology/tech/windows/odpnet/index.html"
+             target="_blank">ODP.NET Home</a>
+        </p>
+      </NewConnectionHelpText>
+    </ODP9i.NET>
+
+  </KnownDrivers>
+
+  <IgnoredDrivers>
+    <BDP.NET>
+      <AssemblyName Value="Borland.Data.Provider, Version=2.5.0.0, Culture=neutral, PublicKeyToken=91d62ebb5b0d1b1b" />
+      <ConnectionClassName Value="Borland.Data.Provider.BdpConnection" />
+      <DataAdapterClassName Value="Borland.Data.Provider.BdpDataAdapter" />
+      <CommandBuilderClassName Value="Borland.Data.Provider.BdpCommandBuilderr" />
+      <ConnectionStringBuilderClassName Value="FirebirdSql.Data.Firebird.FbConnectionStringBuilder" />
+      <Description Value="Borland Data Provider" />
+      <ProfileMappings Match="Assembly">
+        <Mapping Name="Borland.Data.Mssql"
+                 Value="Borland.Data.Mssql,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="MSSQL" />
+        <Mapping Name="Borland.Data.Mysql"
+                 Value="Borland.Data.Mysql,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="MySQL" />
+        <Mapping Name="Borland.Data.Db2"
+                 Value="Borland.Data.Db2,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="DB2" />
+        <Mapping Name="Borland.Data.Msacc"
+                 Value="Borland.Data.Msacc,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="Access" />
+        <Mapping Name="Borland.Data.Oracle"
+                 Value="Borland.Data.Oracle,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="Oracle" />
+        <Mapping Name="Borland.Data.Sybase"
+                 Value="Borland.Data.Sybase,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="Sybase" />
+        <Mapping Name="Borland.Data.Interbase"
+                 Value="Borland.Data.Interbase,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b"
+                 Profile="Interbase" />
+      </ProfileMappings>
+      <ParameterHandling Type="ByName"
+                         SQLSymbol="@"
+                         NameSymbol="@" />
+      <OptionalParameters>
+      </OptionalParameters>
+      <NewConnectionHelpText>
+        <p class="h1">Borland Data Provider Driver</p>
+      </NewConnectionHelpText>
+    </BDP.NET>
+  </IgnoredDrivers>
+
+  <DatabaseProfiles>
+    <MSSQL QuotingIdentifiers="[]">
+      <!-- MacroProcessorAssemblyName Value="RemObjects.DataAbstract.Server, Version=4.0.0.1, Culture=neutral, PublicKeyToken=3df3cad1b7aa5098" -->
+      <!-- MacroProcessorClassName Value="RemObjects.DataAbstract.Server.MSSQLMacroProcessor" -->
+      <GetDatabaseNames SQL="SELECT name as Name FROM master.dbo.sysdatabases"/>
+      <GetTableNames SQL="SELECT TABLE_NAME as Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE'"/>
+      <GetForeignKeys SQL=
+        "SELECT KCU2.TABLE_NAME   + ';' +
+                KCU2.COLUMN_NAME  + ';' +
+                KCU1.TABLE_NAME   + ';' +
+                KCU1.COLUMN_NAME  + ';' +
+                KCU1.CONSTRAINT_NAME
+         FROM INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS RC
+         JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE KCU1 ON
+           KCU1.CONSTRAINT_CATALOG = RC.CONSTRAINT_CATALOG
+             AND KCU1.CONSTRAINT_SCHEMA = RC.CONSTRAINT_SCHEMA
+             AND KCU1.CONSTRAINT_NAME = RC.CONSTRAINT_NAME
+         JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE KCU2 ON
+           KCU2.CONSTRAINT_CATALOG = RC.UNIQUE_CONSTRAINT_CATALOG
+             AND KCU2.CONSTRAINT_SCHEMA = RC.UNIQUE_CONSTRAINT_SCHEMA
+             AND KCU2.CONSTRAINT_NAME = RC.UNIQUE_CONSTRAINT_NAME 
+             AND KCU2.ORDINAL_POSITION = KCU1.ORDINAL_POSITION
+         ORDER BY KCU1.TABLE_NAME, KCU1.CONSTRAINT_NAME, KCU2.TABLE_NAME, KCU1.ORDINAL_POSITION"/>
+      <GetStoredProcedureNames SQL="SELECT SPECIFIC_NAME as Name FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_TYPE = 'PROCEDURE'"/>
+      <GetViewNames SQL="SELECT TABLE_NAME as Name FROM INFORMATION_SCHEMA.VIEWS"/>
+      <GetLastAutoInc SQL="SELECT IsNull(@@Identity, 0) as LastAutoInc"
+                      SupportsAutoIncs="True"/>
+      <DatabaseLocation Type="Select" />
+      <ExecuteStoredProcedure WithParams="EXEC {0} {1}" />
+    </MSSQL>
+
+    <MSSQL2005 QuotingIdentifiers="[]">
+      <GetDatabaseNames SQL="SELECT name as Name FROM master.sys.sysdatabases"/>
+      <GetTableNames SQL="SELECT TABLE_SCHEMA+'.'+TABLE_NAME as Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE'"/>
+      <GetForeignKeys SQL=
+        "SELECT KCU2.TABLE_SCHEMA + '.' + 
+                KCU2.TABLE_NAME   + ';' +
+                KCU2.COLUMN_NAME  + ';' +
+                KCU1.TABLE_SCHEMA + '.' + 
+                KCU1.TABLE_NAME   + ';' +
+                KCU1.COLUMN_NAME  + ';' +
+                KCU1.CONSTRAINT_NAME
+         FROM INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS RC
+         JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE KCU1 ON
+           KCU1.CONSTRAINT_CATALOG = RC.CONSTRAINT_CATALOG
+             AND KCU1.CONSTRAINT_SCHEMA = RC.CONSTRAINT_SCHEMA
+             AND KCU1.CONSTRAINT_NAME = RC.CONSTRAINT_NAME
+         JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE KCU2 ON
+           KCU2.CONSTRAINT_CATALOG = RC.UNIQUE_CONSTRAINT_CATALOG
+             AND KCU2.CONSTRAINT_SCHEMA = RC.UNIQUE_CONSTRAINT_SCHEMA
+             AND KCU2.CONSTRAINT_NAME = RC.UNIQUE_CONSTRAINT_NAME 
+             AND KCU2.ORDINAL_POSITION = KCU1.ORDINAL_POSITION
+         ORDER BY KCU1.TABLE_NAME, KCU1.CONSTRAINT_NAME, KCU2.TABLE_NAME, KCU1.ORDINAL_POSITION"/>
+      <GetStoredProcedureNames SQL="SELECT SPECIFIC_SCHEMA+'.'+SPECIFIC_NAME as Name FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_TYPE = 'PROCEDURE'"/>
+      <GetViewNames SQL="SELECT TABLE_SCHEMA+'.'+TABLE_NAME as Name FROM INFORMATION_SCHEMA.VIEWS"/>
+      <GetLastAutoInc SQL="SELECT IsNull(@@Identity, 0) as LastAutoInc"
+                      SupportsAutoIncs="True"/>
+      <DatabaseLocation Type="Select" />
+      <ExecuteStoredProcedure WithParams="EXEC {0} {1}" />
+    </MSSQL2005>
+
+    <MSSQLCE QuotingIdentifiers="[]">
+      <GetTableNames SQL="SELECT TABLE_NAME AS Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='TABLE'"/>
+      <GetViewNames SQL="SELECT TABLE_NAME AS Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='VIEW'"/>
+      <GetLastAutoInc SQL="SELECT IsNull(@@Identity, 0) as LastAutoInc"
+                      SupportsAutoIncs="True"/>
+      <DatabaseLocation Type="File"
+                        FileMask="SQL Server CE database files (*.sdf)|*.sdf" />
+    </MSSQLCE>
+
+    <Interbase QuotingIdentifiers='""'>
+      <GetTableNames SQL="SELECT RDB$RELATION_NAME AS Name FROM RDB$RELATIONS WHERE RDB$VIEW_BLR IS NULL AND RDB$SYSTEM_FLAG = 0 "/>
+      <GetForeignKeys SQL=
+        "SELECT PK.RDB$RELATION_NAME ||';'|| 
+                MIND.RDB$FIELD_NAME  ||';'||
+                FK.RDB$RELATION_NAME ||';'|| 
+                DIND.RDB$FIELD_NAME  ||';'||
+               FK.RDB$CONSTRAINT_NAME
+         FROM RDB$RELATION_CONSTRAINTS FK
+         JOIN RDB$REF_CONSTRAINTS FKC ON (FK.RDB$CONSTRAINT_NAME = FKC.RDB$CONSTRAINT_NAME)
+         JOIN RDB$RELATION_CONSTRAINTS PK ON (FKC.RDB$CONST_NAME_UQ=PK.RDB$CONSTRAINT_NAME)
+         JOIN RDB$INDEX_SEGMENTS MIND ON (PK.RDB$INDEX_NAME=MIND.RDB$INDEX_NAME)
+         JOIN RDB$INDEX_SEGMENTS DIND ON (FK.RDB$INDEX_NAME=DIND.RDB$INDEX_NAME)
+           AND (MIND.RDB$FIELD_POSITION = DIND.RDB$FIELD_POSITION)
+         WHERE (FK.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY')
+         ORDER BY FK.RDB$CONSTRAINT_NAME, FK.RDB$RELATION_NAME, MIND.RDB$FIELD_POSITION, DIND.RDB$FIELD_POSITION"/>
+      <GetStoredProcedureNames SQL="SELECT RDB$PROCEDURE_NAME AS Name FROM RDB$PROCEDURES"/>
+      <GetViewNames SQL="SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE RDB$VIEW_BLR IS NOT NULL AND RDB$SYSTEM_FLAG = 0 "/>
+      <GetLastAutoInc SQL="SELECT Gen_id({0},1) as LastAutoInc FROM RDB$Database"
+                      SupportsAutoIncs="False"/>
+      <DatabaseLocation Type="File"
+                        FileMask="Interbase files (*.gdb, *.fdb)|*.gdb;*.fdb" />
+      <ExecuteStoredProcedure WithParams="SELECT * FROM {0}({1})"
+                              WithoutParams="SELECT * FROM {0}" />
+    </Interbase>
+
+    <SQLite QuotingIdentifiers='""'>
+      <GetTableNames SQL="SELECT name FROM sqlite_master WHERE type='table' ORDER BY name"/>
+      <GetViewNames SQL="SELECT name FROM sqlite_master WHERE type='view' ORDER BY name"/>
+      <GetLastAutoInc SQL="select last_insert_rowid() "
+                      SupportsAutoIncs="True"/>
+      <DatabaseLocation Type="File"
+                        FileMask=" SQLite Database (*.sqb;*.db3;*.db;*.dbb)|*.sqb;*.db3;*.db;*.dbb" />
+    </SQLite>
+
+    <PostgreSQL QuotingIdentifiers='""'>
+      <GetDatabaseNames SQL="SELECT datname FROM pg_catalog.pg_database" />
+      <GetTableNames SQL="SELECT table_schema || '.' || table_name FROM information_schema.tables  where table_type='BASE TABLE' and table_schema not in ('pg_catalog', 'information_schema')"/>
+      <GetStoredProcedureNames SQL="select routine_schema || '.' || routine_name from information_schema.routines where routine_schema not in ('pg_catalog', 'information_schema')"/>
+      <GetViewNames SQL="SELECT table_schema || '.' || table_name FROM information_schema.tables  where table_type='VIEW' and table_schema not in ('pg_catalog', 'information_schema')"/>
+      <GetLastAutoInc SQL="select nextval('&quot;{0}&quot;')"
+                      SupportsAutoIncs="False"/>
+      <DatabaseLocation Type="Select" />
+      <ExecuteStoredProcedure WithParams="SELECT * FROM {0}({1})"
+                              WithoutParams="SELECT * FROM {0}" />
+    </PostgreSQL>
+
+    <MySql QuotingIdentifiers='``'>
+      <GetDatabaseNames SQL="SELECT schema_name FROM information_schema.schemata" />
+      <GetTableNames SQL="SELECT table_name FROM information_schema.tables  where table_schema='{0}' and table_type='BASE TABLE'"/>
+      <GetViewNames SQL="SELECT table_name FROM information_schema.tables  where table_schema='{0}' and table_type='VIEW'"/>
+      <GetLastAutoInc SQL="select last_insert_id()"
+                      SupportsAutoIncs="true"/>
+      <DatabaseLocation Type="Select" />
+    </MySql>
+
+    <MySql4 QuotingIdentifiers='``'>
+      <GetDatabaseNames SQL="SHOW DATABASES" />
+      <GetTableNames SQL="SHOW TABLES"/>
+      <GetViewNames SQL="SELECT '' AS view"/>
+      <GetLastAutoInc SQL="select last_insert_id()"
+                      SupportsAutoIncs="true"/>
+      <DatabaseLocation Type="Select" />
+    </MySql4>
+
+
+    <Access QuotingIdentifiers='[]'>
+      <DatabaseLocation Type="File"
+                        FileMask="Access database files (*.mdb)|*.mdb" />
+    </Access>
+
+    <Sybase QuotingIdentifiers='""'>
+    </Sybase>
+
+    <DB2 QuotingIdentifiers='""'>
+    </DB2>
+
+    <Oracle QuotingIdentifiers='""'>
+      <GetTableNames SQL="select object_name from user_objects where object_type='TABLE'"/>
+      <GetForeignKeys SQL=
+        "SELECT fkCons.Owner || '.' || fkCons.Table_Name ||';'||
+               fkCols.Column_Name                       ||';'||
+               fkCons.Owner || '.' || fkCons.Table_Name ||';'||
+               pkCols.Column_Name                       ||';'||
+               fkCons.constraint_name
+        FROM   all_constraints  fkCons
+              ,all_cons_columns fkCols
+              ,all_constraints  pkCons
+              ,all_cons_columns pkCols
+        WHERE  fkCons.Owner = user
+        and    fkCons.constraint_type = 'R'
+
+        and    pkCons.Owner = fkCons.r_Owner
+        and    pkCons.Constraint_Name = fkCons.r_Constraint_Name
+
+        and    fkCols.Owner = fkCons.Owner
+        and    fkCols.Table_Name = fkCons.Table_Name
+        and    fkCols.constraint_name = fkCons.constraint_name
+
+        and    pkCols.Owner = pkCons.Owner
+        and    pkCols.Table_Name = pkCons.Table_Name
+        and    pkCols.constraint_name = pkCons.constraint_name" />
+      <GetStoredProcedureNames SQL="select object_name from user_objects where object_type='PROCEDURE'"/>
+      <GetViewNames SQL="select object_name from user_objects where object_type='VIEW'"/>
+      <GetLastAutoInc SQL="SELECT {0}.Nextval FROM dual"
+                      SupportsAutoIncs="False"/>
+      <DatabaseLocation Type="Select" />
+      <ExecuteStoredProcedure WithParams="CALL {0}({1})"
+                              WithoutParams="CALL {0}" />
+    </Oracle>
+
+  </DatabaseProfiles>
+</Configuration>
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/FirebirdSql.Data.FirebirdClient.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/FirebirdSql.Data.FirebirdClient.dll
new file mode 100644
index 0000000..40c7c7c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/FirebirdSql.Data.FirebirdClient.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Mono.Security.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Mono.Security.dll
new file mode 100644
index 0000000..6accde7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Mono.Security.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Novell.Directory.Ldap.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Novell.Directory.Ldap.dll
new file mode 100644
index 0000000..97499c5
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Novell.Directory.Ldap.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Npgsql.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Npgsql.dll
new file mode 100644
index 0000000..0cf2152
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/Npgsql.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DAServer6.Engine.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DAServer6.Engine.dll
new file mode 100644
index 0000000..36d82f8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DAServer6.Engine.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DAServer6.UI.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DAServer6.UI.dll
new file mode 100644
index 0000000..79392f8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DAServer6.UI.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DataAbstract.Server.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DataAbstract.Server.dll
new file mode 100644
index 0000000..625b0f9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DataAbstract.Server.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DataAbstract.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DataAbstract.dll
new file mode 100644
index 0000000..dfc3cc0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.DataAbstract.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.InternetPack.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.InternetPack.dll
new file mode 100644
index 0000000..b7cb5cc
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.InternetPack.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.Server.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.Server.dll
new file mode 100644
index 0000000..f1d7503
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.Server.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.ZLib.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.ZLib.dll
new file mode 100644
index 0000000..bcef67a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.ZLib.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.ZeroConf.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.ZeroConf.dll
new file mode 100644
index 0000000..bd8d682
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.ZeroConf.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.dll
new file mode 100644
index 0000000..0c4ec08
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/RemObjects.SDK.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/System.Data.SQLite.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/System.Data.SQLite.dll
new file mode 100644
index 0000000..66f38e7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/Relativity/System.Data.SQLite.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/RemObjects.DataAbstract.SchemaModeler.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/RemObjects.DataAbstract.SchemaModeler.dll
new file mode 100644
index 0000000..197410a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/RemObjects.DataAbstract.SchemaModeler.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/borlndmm.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/borlndmm.dll
new file mode 100644
index 0000000..2e3ede2
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/borlndmm.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxasa30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxasa30.dll
new file mode 100644
index 0000000..3410b2f
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxasa30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxase30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxase30.dll
new file mode 100644
index 0000000..1977334
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxase30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxconnections.ini b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxconnections.ini
new file mode 100644
index 0000000..cd417db
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxconnections.ini	
@@ -0,0 +1,192 @@
+[DBXPoolConnection]
+DriverName=DBXPool
+MaxConnections=16
+MinConnections=0
+ConnectTimeout=0
+
+[DBXTraceConnection]
+DriverName=DBXTrace
+;TraceFile=c:\temp\dbxtrace.txt
+;TraceFlags=PARAMETER;ERROR;EXECUTE;COMMAND;CONNECT;TRANSACT;BLOB;MISC;VENDOR;READER;DRIVER_LOAD;METADATA
+;TraceDriver=true
+TraceFlags=NONE
+
+[DB2Connection]
+;DelegateConnection=DBXTraceConnection
+DriverName=DB2
+Database=DBNAME
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+DB2 TransIsolation=ReadCommited
+Decimal Separator=.
+
+[MySQLConnection]
+;DelegateConnection=DBXTraceConnection
+DriverName=MySQL
+HostName=ServerName
+Database=DBNAME
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+Compressed=False
+Encrypted=False
+
+
+[OracleConnection]
+;DelegateConnection=DBXTraceConnection
+DriverName=Oracle
+DataBase=Database Name
+User_Name=user
+Password=password
+RowsetSize=20
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+Oracle TransIsolation=ReadCommited
+OS Authentication=False
+Multiple Transaction=False
+Trim Char=False
+Decimal Separator=.
+
+[InformixConnection]
+;DelegateConnection=DBXTraceConnection
+DriverName=Informix
+HostName=ServerName
+DataBase=Database Name
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+Informix TransIsolation=ReadCommited
+Trim Char=False
+
+
+[ASAConnection]
+;DelegateConnection=DBXTraceConnection
+DriverName=ASA
+HostName=ServerName
+Database=DBNAME
+User_Name=user
+Password=password
+ConnectionString=
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+ASA TransIsolation=ReadCommited
+
+[ASEConnection]
+;DelegateConnection=DBXTraceConnection
+DriverName=ASE
+HostName=ServerName
+DataBase=Database Name
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+ASE TransIsolation=ReadCommited
+
+[BlackfishSQLCONNECTION]
+DriverName=BlackfishSQL
+HostName=localhost
+port=2508
+Database=databasename
+create=true
+User_Name=sysdba
+Password=masterkey
+BlobSize=-1
+TransIsolation=ReadCommited
+[Employee]
+DriverName=Interbase
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DbxDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+Database=localhost:D:\EMPLOYEE.FDB
+RoleName=RoleName
+User_Name=sysdba
+Password=masterkey
+ServerCharSet=
+SQLDialect=3
+BlobSize=-1
+CommitRetain=False
+WaitOnLocks=True
+ErrorResourceFile=
+LocaleCode=0000
+Interbase TransIsolation=ReadCommited
+Trim Char=False
+MetaDataPackageLoader=TDBXInterbaseMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXInterbaseMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+[MSSQLConnection]
+SchemaOverride=sa.dbo
+DriverName=MSSQL
+HostName=localhost\sqlexpress
+DataBase=adventureWorks
+User_Name=sa
+Password=
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+MSSQL TransIsolation=ReadCommited
+OS Authentication=True
+Prepare SQL=False
+[AdventureWorks]
+DriverName=MSSQL
+SchemaOverride=%.dbo
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DBXDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+HostName=wks1
+DataBase=master
+User_Name=sa
+Password=
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+MSSQL TransIsolation=ReadCommited
+OS Authentication=True
+Prepare SQL=False
+MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+[ADO]
+DriverName=MSSQL
+SchemaOverride=%.dbo
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+HostName=localhost
+DataBase=Northwind
+User_Name=sa
+Password=
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+MSSQL TransIsolation=ReadCommited
+OS Authentication=True
+Prepare SQL=False
+[IBConnection]
+DriverName=Interbase
+Database=database.gdb
+RoleName=RoleName
+User_Name=sysdba
+Password=masterkey
+ServerCharSet=
+SQLDialect=3
+ErrorResourceFile=
+LocaleCode=0000
+BlobSize=-1
+CommitRetain=False
+WaitOnLocks=True
+Interbase TransIsolation=ReadCommited
+Trim Char=False
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxdb230.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxdb230.dll
new file mode 100644
index 0000000..b44bb92
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxdb230.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxdrivers.ini b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxdrivers.ini
new file mode 100644
index 0000000..63a869f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxdrivers.ini	
@@ -0,0 +1,301 @@
+[Installed Drivers]
+DB2=1
+Interbase=1
+MySQL=1
+Oracle=1
+Informix=1
+MSSQL=1
+ASA=1
+ASE=1
+DBXTrace=1
+DBXPool=1
+BlackfishSQL=1
+
+[DBXPool]
+DelegateDriver=True
+DriverName=DBXPool
+DriverUnit=DBXPool
+DriverPackageLoader=TDBXPoolDriverLoader,DBXCommonDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXPoolDriverLoader,Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+[DBXTrace]
+DelegateDriver=True
+DriverName=DBXTrace
+DriverUnit=DBXTrace
+DriverPackageLoader=TDBXTraceDriverLoader,DBXCommonDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXTraceDriverLoader,Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+[DB2]
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DBXDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+GetDriverFunc=getSQLDriverDB2
+LibraryName=dbxdb230.dll
+VendorLib=db2cli.dll
+Database=DBNAME
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+DB2 TransIsolation=ReadCommited
+Decimal Separator=.
+MetaDataPackageLoader=TDBXDb2MetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXDb2MetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+
+[Interbase]
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DbxDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+GetDriverFunc=getSQLDriverINTERBASE
+LibraryName=dbxint30.dll
+VendorLib=GDS32.DLL
+Database=database.gdb
+RoleName=RoleName
+User_Name=sysdba
+Password=masterkey
+ServerCharSet=
+SQLDialect=3
+BlobSize=-1
+CommitRetain=False
+WaitOnLocks=True
+ErrorResourceFile=
+LocaleCode=0000
+Interbase TransIsolation=ReadCommited
+Trim Char=False
+MetaDataPackageLoader=TDBXInterbaseMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXInterbaseMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+
+[MySQL]
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DbxDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+GetDriverFunc=getSQLDriverMYSQL
+LibraryName=dbxmys30.dll
+VendorLib=LIBMYSQL.dll
+HostName=ServerName
+Database=DBNAME
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+Compressed=False
+Encrypted=False
+MetaDataPackageLoader=TDBXMySqlMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXMySqlMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+
+[Oracle]
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DBXDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+GetDriverFunc=getSQLDriverORACLE
+LibraryName=dbxora30.dll
+VendorLib=oci.dll
+DataBase=Database Name
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+Oracle TransIsolation=ReadCommited
+RowsetSize=20
+OS Authentication=False
+Multiple Transaction=False
+Trim Char=False
+Decimal Separator=.
+MetaDataPackageLoader=TDBXOracleMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXOracleMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+
+[Informix]
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DBXDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+GetDriverFunc=getSQLDriverINFORMIX
+LibraryName=dbxinf30.dll
+VendorLib=isqlt09a.dll
+HostName=ServerName
+DataBase=Database Name
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+Informix TransIsolation=ReadCommited
+Trim Char=False
+MetaDataPackageLoader=TDBXInformixMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXInformixMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+
+[MSSQL]
+SchemaOverride=%.dbo
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DBXDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+GetDriverFunc=getSQLDriverMSSQL
+LibraryName=dbxmss30.dll
+VendorLib=oledb
+HostName=ServerName
+DataBase=Database Name
+User_Name=user
+Password=password
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+MSSQL TransIsolation=ReadCommited
+OS Authentication=False
+Prepare SQL=False
+MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+
+[ASA]
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DbxDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+GetDriverFunc=getSQLDriverASA
+LibraryName=dbxasa30.dll
+VendorLib=dbodbc9.dll
+HostName=ServerName
+Database=DBNAME
+User_Name=user
+Password=password
+ConnectionString=
+BlobSize=-1
+ErrorResourceFile=
+LocaleCode=0000
+ASA TransIsolation=ReadCommited
+MetaDataPackageLoader=TDBXSybaseASAMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXSybaseASAMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+
+[ASE]
+DriverUnit=DBXDynalink
+DriverPackageLoader=TDBXDynalinkDriverLoader,DBXDynalinkDriver100.bpl
+DriverPackage=DBXCommonDriver110.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f
+
+GetDriverFunc=getSQLDriverASE
+LibraryName=dbxase30.dll
+VendorLib=libct.dll;libcs.dll
+HostName=ServerName
+DataBase=Database Name
+User_Name=user
+Password=password
+BlobSize=-1
+TDS Packet Size=512
+Client HostName=
+Client AppName=
+ErrorResourceFile=
+LocaleCode=0000
+ASE TransIsolation=ReadCommited
+MetaDataPackageLoader=TDBXSybaseASEMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXSybaseASEMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+
+[AutoCommit]
+False=0
+True=1
+
+[BlockingMode]
+False=0
+True=1
+
+[WaitOnLocks]
+False=1
+True=0
+
+[CommitRetain]
+False=0
+True=1
+
+[OS Authentication]
+False=0
+True=1
+
+[Multiple Transaction]
+False=0
+True=1
+
+[Trim Char]
+False=0
+True=1
+
+[DB2 TransIsolation]
+DirtyRead=0
+ReadCommited=1
+RepeatableRead=2
+
+[Interbase TransIsolation]
+ReadCommited=1
+RepeatableRead=2
+
+[Oracle TransIsolation]
+DirtyRead=0
+ReadCommited=1
+RepeatableRead=2
+
+[Informix TransIsolation]
+DirtyRead=0
+ReadCommited=1
+RepeatableRead=2
+
+[MSSQL TransIsolation]
+DirtyRead=0
+ReadCommited=1
+RepeatableRead=2
+
+[ASA TransIsolation]
+DirtyRead=0
+ReadCommited=1
+RepeatableRead=2
+
+[ASE TransIsolation]
+DirtyRead=0
+ReadCommited=1
+RepeatableRead=2
+
+[SQLDialect]
+1=0
+2=1
+3=2
+
+[Bdp Providers]
+Oracle=Oracle
+Sybase=Sybase
+Interbase=Interbase
+DB2=DB2
+MySql=MySql
+[BlackfishSQL]
+DriverUnit=DBXClient
+DriverPackageLoader=TDBXClientDriverLoader,DBXClientDriver100.bpl
+DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland.Data.DbxClientDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+MetaDataPackageLoader=TDBXDataStoreMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXDataStoreMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+Password=masterkey
+User_Name=sysdba
+Port=2508
+Create=False
+ReadOnlyDb=False
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxinf30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxinf30.dll
new file mode 100644
index 0000000..75f6178
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxinf30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxint30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxint30.dll
new file mode 100644
index 0000000..6be9532
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxint30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmss30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmss30.dll
new file mode 100644
index 0000000..770053b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmss30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmys30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmys30.dll
new file mode 100644
index 0000000..9795083
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmys30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmysA30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmysA30.dll
new file mode 100644
index 0000000..e7a34cf
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxmysA30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxora30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxora30.dll
new file mode 100644
index 0000000..f39c32d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxora30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxoraw30.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxoraw30.dll
new file mode 100644
index 0000000..72fdf4d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/dbxoraw30.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/sqlite3.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/sqlite3.dll
new file mode 100644
index 0000000..47d1080
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/sqlite3.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract (Common)/Bin/sqlitepass3.dll b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/sqlitepass3.dll
new file mode 100644
index 0000000..bdd83c8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract (Common)/Bin/sqlitepass3.dll differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/BaseLoginService_Impl.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/BaseLoginService_Impl.dcu
new file mode 100644
index 0000000..8b55659
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/BaseLoginService_Impl.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/BaseLoginService_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/BaseLoginService_Impl.dfm
new file mode 100644
index 0000000..75ebc6a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/BaseLoginService_Impl.dfm	
@@ -0,0 +1,5 @@
+object BaseLoginService: TBaseLoginService
+  OldCreateOrder = True
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAADODriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAADODriverHtml.res
new file mode 100644
index 0000000..98b7c6e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAADODriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAADODrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAADODrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAADODrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAbsoluteDBDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAbsoluteDBDriverHtml.res
new file mode 100644
index 0000000..30a5da7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAbsoluteDBDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAbsoluteDBDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAbsoluteDBDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAbsoluteDBDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAnyDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAnyDACDriverHtml.res
new file mode 100644
index 0000000..93f013e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAnyDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAnyDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAnyDACDrv.res
new file mode 100644
index 0000000..84f461e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAAnyDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DABDEDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DABDEDriverHtml.res
new file mode 100644
index 0000000..57e2373
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DABDEDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DABDEDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DABDEDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DABDEDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAM3Drv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAM3Drv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAM3Drv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAM4Drv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAM4Drv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAM4Drv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAMDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAMDriverHtml.res
new file mode 100644
index 0000000..449e052
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBISAMDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBXDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBXDriverHtml.res
new file mode 100644
index 0000000..a6590c9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBXDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBXDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBXDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADBXDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADOADriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADOADriverHtml.res
new file mode 100644
index 0000000..077daa2
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADOADriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADOADrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADOADrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DADOADrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAElevateDBDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAElevateDBDriverHtml.res
new file mode 100644
index 0000000..e0b8925
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAElevateDBDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAElevateDBDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAElevateDBDrv.res
new file mode 100644
index 0000000..08ba56e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAElevateDBDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAFIBDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAFIBDriverHtml.res
new file mode 100644
index 0000000..d12ca9d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAFIBDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAFIBDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAFIBDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAFIBDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBDACDriverHtml.res
new file mode 100644
index 0000000..4732a47
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBDACDrv.res
new file mode 100644
index 0000000..2aba20c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBODriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBODriverHtml.res
new file mode 100644
index 0000000..32c06f3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBODriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBODrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBODrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBODrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBXDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBXDriverHtml.res
new file mode 100644
index 0000000..790cda2
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBXDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBXDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBXDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAIBXDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DALoginService_Impl.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DALoginService_Impl.dcu
new file mode 100644
index 0000000..3f25f5d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DALoginService_Impl.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMyDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMyDACDriverHtml.res
new file mode 100644
index 0000000..e1fa180
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMyDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMyDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMyDACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMyDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMySQLDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMySQLDACDriverHtml.res
new file mode 100644
index 0000000..c7f7a82
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMySQLDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMySQLDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMySQLDACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAMySQLDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DANexusDBDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DANexusDBDriverHtml.res
new file mode 100644
index 0000000..46b9c33
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DANexusDBDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DANexusDBDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DANexusDBDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DANexusDBDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAODACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAODACDriverHtml.res
new file mode 100644
index 0000000..a096da3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAODACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAODACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAODACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAODACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPGDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPGDACDrv.res
new file mode 100644
index 0000000..2aba20c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPGDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPgDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPgDACDriverHtml.res
new file mode 100644
index 0000000..1b66d75
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPgDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPostgresDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPostgresDACDriverHtml.res
new file mode 100644
index 0000000..c7f7a82
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPostgresDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPostgresDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPostgresDACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAPostgresDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DARemoteService_Impl.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DARemoteService_Impl.dcu
new file mode 100644
index 0000000..2481f32
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DARemoteService_Impl.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASDACDriverHtml.res
new file mode 100644
index 0000000..2ca3ed1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASDACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLiteDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLiteDriverHtml.res
new file mode 100644
index 0000000..316f711
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLiteDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLiteDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLiteDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLiteDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLitePassDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLitePassDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DASQLitePassDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAUniDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAUniDACDriverHtml.res
new file mode 100644
index 0000000..ab9fe22
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAUniDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAUniDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAUniDACDrv.res
new file mode 100644
index 0000000..2aba20c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAUniDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAZeosDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAZeosDriverHtml.res
new file mode 100644
index 0000000..f3000f5
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAZeosDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAZeosDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAZeosDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DAZeosDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract.inc b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract.inc
new file mode 100644
index 0000000..b54e9da
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract.inc	
@@ -0,0 +1,33 @@
+{$INCLUDE eDefines.inc}
+{.$DEFINE STORERECID}
+{$DEFINE DataAbstract5}
+
+{$IFDEF FPC}
+  {$IFNDEF RO_FPC_MODE_SET}
+    {$MODE DELPHI}
+    {$DEFINE RO_FPC_MODE_SET}
+  {$ENDIF}
+  {$DEFINE FPC_SAFECALL_BUG}
+  {$DEFINE DA_WideMemoSupport}        // support for ftWideMemo
+  {$DEFINE DA_FixedWideCharSupport}   // support for ftWideFixedChar
+  {.$DEFINE ftFMTBCD_Support}         // support for FMTBCD
+{$ENDIF}
+
+{$IFDEF DELPHI6UP}
+  {$DEFINE ftFMTBCD_Support}     // support for FMTBCD
+{$ENDIF}
+
+
+{$IFDEF DELPHI10UP}
+  {$DEFINE DA_WideMemoSupport}        // support for ftWideMemo
+  {$DEFINE DA_FixedWideCharSupport}   // support for ftWideFixedChar
+{$ENDIF}
+
+// always use std methods for TDataset-compatible drivers
+{$DEFINE Drivers_CompatibilityMode}
+
+// bug in Delphi2009 with AsAnsiString
+{.$DEFINE DELPHI2009_USE_AsAnsiString_for_TStringField}
+
+// 
+{$DEFINE USE_LOCALDATAADAPTER}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Async.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Async.dcu
new file mode 100644
index 0000000..699f4ab
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Async.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Intf.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Intf.dcu
new file mode 100644
index 0000000..4cee3cb
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Intf.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Invk.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Invk.dcu
new file mode 100644
index 0000000..b055ebb
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract3_Invk.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Async.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Async.dcu
new file mode 100644
index 0000000..d47bf2c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Async.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Intf.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Intf.dcu
new file mode 100644
index 0000000..d63632c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Intf.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Invk.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Invk.dcu
new file mode 100644
index 0000000..5635f7b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract4_Invk.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstractService_Impl.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstractService_Impl.dcu
new file mode 100644
index 0000000..f58d18a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstractService_Impl.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstractService_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstractService_Impl.dfm
new file mode 100644
index 0000000..65deb18
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstractService_Impl.dfm	
@@ -0,0 +1,5 @@
+object DataAbstractService: TDataAbstractService
+  OldCreateOrder = True
+  Height = 437
+  Width = 546
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.bpl
new file mode 100644
index 0000000..0f235c0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.dcp
new file mode 100644
index 0000000..2819cd4
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.dcu
new file mode 100644
index 0000000..cbdd9e6
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ADODriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_AbsoluteDBDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_AbsoluteDBDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_AbsoluteDBDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_AnyDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_AnyDACDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_AnyDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.bpl
new file mode 100644
index 0000000..1c0e8e4
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.dcp
new file mode 100644
index 0000000..0681874
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.dcu
new file mode 100644
index 0000000..85c1fcc
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_BDEDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.bpl
new file mode 100644
index 0000000..e7ad031
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.dcp
new file mode 100644
index 0000000..932e0bd
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.dcu
new file mode 100644
index 0000000..09039c8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_Reg.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_Reg.dcu
new file mode 100644
index 0000000..cc6df58
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Core_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBISAMDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBISAMDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBISAMDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.bpl
new file mode 100644
index 0000000..d7d618a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.dcp
new file mode 100644
index 0000000..493d03c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.dcu
new file mode 100644
index 0000000..8023a48
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DBXDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DOADriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DOADriver_D11.res
new file mode 100644
index 0000000..c467631
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_DOADriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ElevateDBDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ElevateDBDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ElevateDBDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_FIBDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_FIBDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_FIBDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBODriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBODriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBODriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.bpl
new file mode 100644
index 0000000..6af686b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.dcp
new file mode 100644
index 0000000..3c6d05d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.dcu
new file mode 100644
index 0000000..74071fa
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IBXDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_AdditionalResources.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_AdditionalResources.res
new file mode 100644
index 0000000..6735fcb
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_AdditionalResources.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.bpl
new file mode 100644
index 0000000..82fd0bc
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.dcp
new file mode 100644
index 0000000..628461c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.dcu
new file mode 100644
index 0000000..bbdcf7b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_Reg.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_Reg.dcu
new file mode 100644
index 0000000..cee529b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_IDE_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_MyDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_MyDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_MyDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_MySQLDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_MySQLDACDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_MySQLDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_NexusDBDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_NexusDBDriver_D11.res
new file mode 100644
index 0000000..941b7a7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_NexusDBDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ODACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ODACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ODACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_PgDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_PgDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_PgDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_PostgresDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_PostgresDACDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_PostgresDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.bpl
new file mode 100644
index 0000000..adb4731
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.dcp
new file mode 100644
index 0000000..7ac19ed
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLiteDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLitePassDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLitePassDriver_D11.res
new file mode 100644
index 0000000..653aa54
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SQLitePassDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.bpl
new file mode 100644
index 0000000..7fda872
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.dcp
new file mode 100644
index 0000000..9409192
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.dcu
new file mode 100644
index 0000000..e59e52e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_Reg.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_Reg.dcu
new file mode 100644
index 0000000..3bfbdbe
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_Scripting_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SimpleQuery_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SimpleQuery_D11.res
new file mode 100644
index 0000000..c73b102
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_SimpleQuery_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_UniDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_UniDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_UniDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ZeosDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ZeosDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/DataAbstract_ZeosDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginServiceV5_Impl.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginServiceV5_Impl.dcu
new file mode 100644
index 0000000..6fae572
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginServiceV5_Impl.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginServiceV5_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginServiceV5_Impl.dfm
new file mode 100644
index 0000000..27ec41e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginServiceV5_Impl.dfm	
@@ -0,0 +1,2 @@
+inherited MultiDbLoginServicev5: TMultiDbLoginServicev5
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginService_Impl.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginService_Impl.dcu
new file mode 100644
index 0000000..876bd69
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginService_Impl.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginService_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginService_Impl.dfm
new file mode 100644
index 0000000..5892128
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/MultiDbLoginService_Impl.dfm	
@@ -0,0 +1,2 @@
+inherited MultiDbLoginService: TMultiDbLoginService
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/Resources.BDS.RES b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/Resources.BDS.RES
new file mode 100644
index 0000000..d8238b6
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/Resources.BDS.RES differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/SimpleLoginService_Impl.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/SimpleLoginService_Impl.dcu
new file mode 100644
index 0000000..bbb86c1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/SimpleLoginService_Impl.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/SimpleLoginService_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/SimpleLoginService_Impl.dfm
new file mode 100644
index 0000000..775b9ce
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/SimpleLoginService_Impl.dfm	
@@ -0,0 +1,2 @@
+inherited SimpleLoginService: TSimpleLoginService
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/eDefines.inc b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/eDefines.inc
new file mode 100644
index 0000000..ef01d58
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/eDefines.inc	
@@ -0,0 +1,495 @@
+{----------------------------------------------------------------------------}
+{file:      eDefines.inc                                                     }
+{type:      Delphi include file                                              }
+{                                                                            }
+{compiler:  Borland Pascal 7,                                                }
+{           Delphi 1-7, 2005-2007 for Win32                                  }
+{           Kylix 1-3,                                                       }
+{           C++Builder 1-6, 2006-2007                                        }
+{           Free Pascal Compiler 2.x                                         }
+{                                                                            }
+{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X                  }
+{                                                                            }
+{author:    mh@elitedev.com                                                  }
+{                                                                            }
+{contents:  Defines that can be flexibily used to determine the exact        }
+{           compiler version used.                                           }
+{                                                                            }
+{(c)opyright elitedevelopments software. all rights reserved.                }
+{            http://www.elitedev.com                                         }
+{                                                                            }
+{ Third Party component developers are encouraged to use the set of defines  }
+{ established in this file, rather then their own system, for checking their }
+{ component libraries agains different versions of Delphi and C++Builder.    }
+{                                                                            }
+{ This file may be distributed freely with both free and commercial source   }
+{ libraries, but you are asked to please leave this comment in place, and    }
+{ to return any improvements you make to this file to the maintainer that    }
+{ is noted above.                                                            }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ Compiler and OS version defines:                                           }
+{                                                                            }
+{ exact compiler versions:                                                   }
+{                                                                            }
+{ BP7             Borland Pascal 7.0                                         }
+{ DELPHI1         Delphi 1.0 (any Delphi)                                    }
+{ DELPHI2         Delphi 2.0                                                 }
+{ DELPHI3         Delphi 3.0                                                 }
+{ DELPHI4         Delphi 4.0                                                 }
+{ DELPHI5         Delphi 5.0                                                 }
+{ DELPHI6         Delphi 6.0                                                 }
+{ DELPHI7         Delphi 7.0                                                 }
+{ DELPHI9         Delphi 2005                                                }
+{ DELPHI2005      Delphi 2005                                                }
+{ DELPHI2006      Delphi 2006                                                }
+{ DELPHI2007      Delphi 2007                                                }
+{ KYLIX1          Kylix 1.0                                                  }
+{ KYLIX2          Kylix 2.0                                                  }
+{ KYLIX3          Kylix 3.0                                                  }
+{ CBUILDER1       C++Builder 1.0                                             }
+{ CBUILDER3       C++Builder 3.0                                             }
+{ CBUILDER4       C++Builder 4.0                                             }
+{ CBUILDER5       C++Builder 5.0                                             }
+{                                                                            }
+{                                                                            }
+{ minimum compiler versions:                                                 }
+{                                                                            }
+{ DELPHI1UP       Delphi 1.0 and above (any Delphi)                          }
+{ DELPHI2UP       Delphi 2.0 and above                                       }
+{ DELPHI3UP       Delphi 3.0 and above                                       }
+{ DELPHI4UP       Delphi 4.0 and above                                       }
+{ DELPHI5UP       Delphi 5.0 and above                                       }
+{ DELPHI6UP       Delphi 6.0 and above                                       }
+{ DELPHI7UP       Delphi 7.0 and above                                       }
+{ DELPHI9UP       Delphi 9.0 (2005) and above                                }
+{ DELPHI10UP      Delphi 10.0 (2006) and above                               }
+{ DELPHI11UP      Delphi 11.0 (2007) and above                               }
+{ DELPHI2005UP    Delphi 2005 and above                                      }
+{ DELPHI2006UP    Delphi 2006 and above                                      }
+{ DELPHI2007UP    Delphi 2007 and above                                      }
+{ KYLIX1UP        Kylix 1.0 and above (any Kylix)                            }
+{ KYLIX2UP        Kylix 2.0 and above (any Kylix)                            }
+{ KYLIX3UP        Kylix 3.0 and above (any Kylix)                            }
+{ CBUILDER1UP     C++Builder 1.0 and above or Delphi 2 and above             }
+{ CBUILDER3UP     C++Builder 3.0 and above or Delphi 3.0 and above           }
+{ CBUILDER4UP     C++Builder 4.0 and above or Delphi 4.0 and above           }
+{ CBUILDER5UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{ CBUILDER6UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{                                                                            }
+{                                                                            }
+{ compiler types:                                                            }
+{                                                                            }
+{ BP              Borland Pascal (not Delphi or C++Builder)                  }
+{ DELPHI          any Delphi version (but not C++Builder or Kylix)           }
+{ KYLIX           any Kylix version (not Delphi or C++Builder for Windows)   }
+{ CBUILDER        any C++Builder for Windows (Pascal)                        }
+{                                                                            }
+{                                                                            }
+{ target platforms compiler types:                                           }
+{                                                                            }
+{ DELPHI_16BIT    16bit Delphi (but not C++Builder!)                         }
+{ DELPHI_32BIT    32bit Delphi (but not C++Builder)                          }
+{ KYLIX_32BIT     32bit Kylix (but not C++Builder)                           }
+{ CBUILDER_32BIT  32bit C++Builer's Pascal (but not Delphi)                  }
+{                                                                            }
+{                                                                            }
+{ target cpu types                                                           }
+{                                                                            }
+{ CPU16           16bit Delphi or Borland Pascal                             }
+{ CPU32           32bit Delphi or Free Pascal                                }
+{ CPU64           64bit Free Pascal                                          }
+{                                                                            }
+{ target platforms                                                           }
+{                                                                            }
+{ DOS             any DOS (plain and DPMI)                                   }
+{ REALMODE        16bit realmode DOS                                         }
+{ PROTECTEDMODE   16bit DPMI DOS                                             }
+{                                                                            }
+{ MSWINDOWS       any Windows platform                                       }
+{ WIN16           16bit Windows                                              }
+{ WIN32           32bit Windows                                              }
+{ WIN64           64bit Windows                                              }
+{ DOTNET          .NET                                                       }
+{                                                                            }
+{ LINUX           any Linux platform                                         }
+{ LINUX32         32bit Linux                                                }
+{ LINUX64         64bit Linux                                                }
+{                                                                            }
+{ DARWIN          Any Mac OS X                                               }
+{ DARWIN32        32bit Mac OS X                                             }
+{ DARWIN64        64bit Mac OS X                                             }
+{----------------------------------------------------------------------------}
+
+{ defines for Borland Pascal 7.0 }
+{$IFDEF VER70}
+  {$DEFINE BP}
+  {$DEFINE BP7}
+  {$DEFINE 16BIT}
+  {$DEFINE CPU16}
+
+  { defines for BP7 DOS real mode }
+  {$IFDEF MSDOS}
+    {$DEFINE DOS}
+    {$DEFINE REALMODE}
+  {$ENDIF}
+
+  { defines for BP7 DOS protected mode }
+  {$IFDEF DPMI}
+    {$DEFINE DOS}
+    {$DEFINE PROTECTEDMODE}
+  {$ENDIF}
+
+  { defines for BP7 Windows }
+  {$IFDEF WINDOWS}
+    {$DEFINE MSWINDOWS}
+    {$DEFINE WIN16}
+  {$ENDIF}
+{$ENDIF}
+
+{ defines for Delphi 1.0 thru 7.0 }
+{$IFDEF MSWINDOWS}
+
+  { defines for Delphi 1.0 }
+  {$IFDEF VER80}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI1}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI_16BIT}
+    {$DEFINE WIN16}
+    {$DEFINE 16BIT}
+    {$DEFINE CPU16}
+  {$ENDIF}
+
+  { defines for Delphi 2.0 }
+  {$IFDEF VER90}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI2}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+  {$ENDIF}
+
+  { defines for C++Builder 1.0 }
+  {$IFDEF VER93}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER1}
+    {$DEFINE CBUILDER1UP}
+  {$ENDIF}
+
+  { defines for Delphi 3.0 }
+  {$IFDEF VER100}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI3}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+  {$ENDIF}
+
+  { defines for C++Builder 3.0 }
+  {$IFDEF VER110}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER3}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+  {$ENDIF}
+
+  { defines for Delphi 4.0 }
+  {$IFDEF VER120}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI4}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+  {$ENDIF}
+
+  { defines for C++Builder 4.0 }
+  {$IFDEF VER125}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER4}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+  {$ENDIF}
+  { defines for Delphi 5.0 }
+  {$IFDEF VER130}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI5}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+  {$ENDIF}
+
+  { defines for C++Builder 5.0 }
+  {$IFDEF VER135}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER5}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+    {$DEFINE CBUILDER5UP}
+  {$ENDIF}
+
+  { defines for Delphi 6.0 }
+  {$IFDEF VER140}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI6}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+  {$ENDIF}
+
+  { defines for Delphi 7.0 }
+  {$IFDEF VER150}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI7}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+  {$ENDIF}
+
+  { defines for Delphi 2005 }
+  {$IFDEF VER170}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI9}
+    {$DEFINE DELPHI2005}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS3}
+    {$DEFINE BDS3UP}
+  {$ENDIF}
+
+  { defines for Delphi 2006 }
+  {$IFDEF VER180}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI10}
+    {$DEFINE DELPHI10A}  
+    {$DEFINE DELPHI2006}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS4}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+  {$ENDIF}
+
+  { defines for Delphi 2007 }
+  {$IFDEF VER185}
+    {$UNDEF DELPHI10A}  // declared in VER180
+    {$UNDEF DELPHI2006} // declared in VER180
+    {$UNDEF BDS4}       // declared in VER180
+
+    {$DEFINE DELPHI10B}    
+    {$DEFINE DELPHI10BUP}    
+    {$DEFINE DELPHI11}    
+    {$DEFINE DELPHI11UP}    
+    {$DEFINE DELPHI2007}
+    {$DEFINE DELPHI2007UP}    
+    {$DEFINE BDS5}
+    {$DEFINE BDS5UP}
+  {$ENDIF}
+
+  { defines for Delphi 2009 }
+  {$IFDEF VER200}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI12}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+
+    {$DEFINE DELPHI2009}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+
+    {$DEFINE BDS}
+    {$DEFINE BDS6}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+  {$ENDIF}
+
+  { defines for Delphi 2010 }
+  {$IFDEF VER210}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI14}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+    {$DEFINE DELPHI14UP}    
+
+    {$DEFINE DELPHI2010}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+    {$DEFINE DELPHI2010UP}    
+
+    {$DEFINE BDS}
+    {$DEFINE BDS7}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+    {$DEFINE BDS7UP}
+  {$ENDIF}
+  
+
+  {$IFDEF WIN32}
+    {$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
+    {$DEFINE 32BIT}
+    {$DEFINE CPU32}
+  {$ENDIF}
+
+{$ENDIF MSWINDOWS}
+
+{ defines for "Delphi for .NET" }
+{$IFDEF CLR}
+  {$DEFINE DOTNET}
+{$ENDIF}
+
+{$IFDEF DELPHI}
+  {$IFDEF DELPHI2UP}
+    {$DEFINE DELPHI_32BIT}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF CBUILDER}
+  {$DEFINE CBUILDER_32BIT}
+{$ENDIF}
+
+{$IFNDEF FPC}
+
+  { Kylix 1.0 thru 3.0 }
+  {$IFDEF LINUX}
+
+    {$DEFINE VER140UP}
+
+    { Any Kylix }
+    {$DEFINE 32BIT}
+    {$DEFINE LINUX32}
+    {$DEFINE KYLIX_32BIT}
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+
+    {$IFDEF CONDITIONALEXPRESSIONS}
+      {$IF Declared(CompilerVersion)}
+
+         { Kylix 2.0 }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.1)}
+           {$DEFINE KYLIX2}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+         {$IFEND}
+
+         { Kylix 3.0 - Delphi portion }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.5)}
+           {$DEFINE KYLIX3}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+           {$DEFINE KYLIX3UP}
+         {$IFEND}
+
+      { Kylix 1.0 }
+      {$ELSE}
+        {$DEFINE KYLIX1}
+      {$IFEND}
+    {$ENDIF CONDITIONALEXPRESSIONS}
+
+  {$ENDIF LINUX}
+{$ENDIF}
+
+{ CPU }
+
+{$IFDEF FPC}
+  {$IFDEF MSWINDOWS}
+    {$IFDEF CPU64}
+      {$DEFINE WIN64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF LINUX}
+    {$IFDEF CPU32}
+      {$DEFINE LINUX32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE LINUX64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF DARWIN}
+    {$IFDEF CPU32}
+      {$DEFINE DARWIN32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE DARWIN64}
+    {$ENDIF}
+  {$ENDIF}
+{$ELSE}
+  {$DEFINE ENDIAN_LITTLE} // To have endianness symbol defined in Delphi too
+{$ENDIF}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADODataTable.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADODataTable.dcu
new file mode 100644
index 0000000..06f548b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADODataTable.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADODriver.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADODriver.dcu
new file mode 100644
index 0000000..8b2cd6c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADODriver.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADOInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADOInterfaces.dcu
new file mode 100644
index 0000000..f46f027
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAADOInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABDEDriver.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABDEDriver.dcu
new file mode 100644
index 0000000..a7cbe7d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABDEDriver.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABin2DataStreamer.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABin2DataStreamer.dcu
new file mode 100644
index 0000000..a777f2f
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABin2DataStreamer.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABinAdapter.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABinAdapter.dcu
new file mode 100644
index 0000000..ecd8242
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABinAdapter.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABusinessProcessor.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABusinessProcessor.dcu
new file mode 100644
index 0000000..da6e6b3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDABusinessProcessor.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDACDSDataTable.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDACDSDataTable.dcu
new file mode 100644
index 0000000..fe65fc8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDACDSDataTable.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDACache.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDACache.dcu
new file mode 100644
index 0000000..be17af4
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDACache.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClasses.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClasses.dcu
new file mode 100644
index 0000000..d4b19e9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClasses.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClientDataModule.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClientDataModule.dcu
new file mode 100644
index 0000000..b9d5165
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClientDataModule.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClientModuleWizard.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClientModuleWizard.res
new file mode 100644
index 0000000..dd81d99
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAClientModuleWizard.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADB2Interfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADB2Interfaces.dcu
new file mode 100644
index 0000000..a21f525
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADB2Interfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBSessionManager.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBSessionManager.dcu
new file mode 100644
index 0000000..1ddd170
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBSessionManager.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBSessionManagerEditor.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBSessionManagerEditor.dcu
new file mode 100644
index 0000000..21c186d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBSessionManagerEditor.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBXDriver.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBXDriver.dcu
new file mode 100644
index 0000000..2965fa6
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADBXDriver.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataAbstractEditors.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataAbstractEditors.dcu
new file mode 100644
index 0000000..1012f55
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataAbstractEditors.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataAdapter.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataAdapter.dcu
new file mode 100644
index 0000000..f508fa3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataAdapter.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataStreamer.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataStreamer.dcu
new file mode 100644
index 0000000..441356b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataStreamer.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTable.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTable.dcu
new file mode 100644
index 0000000..4e6ec1e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTable.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableMasterLinkWizardForm.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableMasterLinkWizardForm.dcu
new file mode 100644
index 0000000..e36cfe7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableMasterLinkWizardForm.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableReferenceCollection.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableReferenceCollection.dcu
new file mode 100644
index 0000000..5f21192
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableReferenceCollection.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableWizards.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableWizards.dcu
new file mode 100644
index 0000000..3d98c26
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADataTableWizards.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADatasetProvider.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADatasetProvider.dcu
new file mode 100644
index 0000000..415dd09
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADatasetProvider.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADatasetWrapper.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADatasetWrapper.dcu
new file mode 100644
index 0000000..ea1a465
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADatasetWrapper.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADelta.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADelta.dcu
new file mode 100644
index 0000000..d8819aa
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADelta.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADesigntimeCall.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADesigntimeCall.dcu
new file mode 100644
index 0000000..a224f47
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADesigntimeCall.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADriverInfo.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADriverInfo.dcu
new file mode 100644
index 0000000..49c6c0b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADriverInfo.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADriverManager.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADriverManager.dcu
new file mode 100644
index 0000000..8a04c62
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDADriverManager.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAElevateDBInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAElevateDBInterfaces.dcu
new file mode 100644
index 0000000..d01ffe4
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAElevateDBInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAEngine.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAEngine.dcu
new file mode 100644
index 0000000..69b43a4
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAEngine.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAExceptions.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAExceptions.dcu
new file mode 100644
index 0000000..47d6a2c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAExceptions.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAExpressionEvaluator.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAExpressionEvaluator.dcu
new file mode 100644
index 0000000..425cce1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAExpressionEvaluator.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAGuideWizardForm.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAGuideWizardForm.dcu
new file mode 100644
index 0000000..c56efe5
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAGuideWizardForm.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHETConnections.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHETConnections.dcu
new file mode 100644
index 0000000..f73a1c4
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHETConnections.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHETDriver.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHETDriver.dcu
new file mode 100644
index 0000000..173e1ed
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHETDriver.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHelpers.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHelpers.dcu
new file mode 100644
index 0000000..874098a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAHelpers.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIBInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIBInterfaces.dcu
new file mode 100644
index 0000000..a5723da
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIBInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIBXDriver.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIBXDriver.dcu
new file mode 100644
index 0000000..2799c58
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIBXDriver.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDEData.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDEData.dcu
new file mode 100644
index 0000000..e556920
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDEData.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDEMenu.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDEMenu.dcu
new file mode 100644
index 0000000..df7242a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDEMenu.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDERes.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDERes.dcu
new file mode 100644
index 0000000..baf0de7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAIDERes.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAInterfaces.dcu
new file mode 100644
index 0000000..7c1898f
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAInterfacesEx.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAInterfacesEx.dcu
new file mode 100644
index 0000000..ba3b1e3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAInterfacesEx.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAJSONDataStreamer.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAJSONDataStreamer.dcu
new file mode 100644
index 0000000..7089571
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAJSONDataStreamer.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalCommand.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalCommand.dcu
new file mode 100644
index 0000000..a9a43d9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalCommand.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalDataAdapter.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalDataAdapter.dcu
new file mode 100644
index 0000000..e7c2329
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalDataAdapter.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalHelpers.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalHelpers.dcu
new file mode 100644
index 0000000..c0373e9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDALocalHelpers.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMacroProcessors.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMacroProcessors.dcu
new file mode 100644
index 0000000..5eca90d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMacroProcessors.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMacros.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMacros.dcu
new file mode 100644
index 0000000..290cbd8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMacros.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMemDataTable.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMemDataTable.dcu
new file mode 100644
index 0000000..d34477a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMemDataTable.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMemDataset.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMemDataset.dcu
new file mode 100644
index 0000000..26d9db7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMemDataset.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMySQLInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMySQLInterfaces.dcu
new file mode 100644
index 0000000..95aeca1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAMySQLInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAOracleInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAOracleInterfaces.dcu
new file mode 100644
index 0000000..032e469
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAOracleInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPSScriptingProvider.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPSScriptingProvider.dcu
new file mode 100644
index 0000000..4e265e6
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPSScriptingProvider.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPascalScript.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPascalScript.dcu
new file mode 100644
index 0000000..0c65ea8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPascalScript.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPleaseWaitForm.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPleaseWaitForm.dcu
new file mode 100644
index 0000000..670e344
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPleaseWaitForm.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPostgresInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPostgresInterfaces.dcu
new file mode 100644
index 0000000..b3b90d0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPostgresInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPoweredByDataAbstractButton.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPoweredByDataAbstractButton.dcu
new file mode 100644
index 0000000..b9a44e7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPoweredByDataAbstractButton.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPoweredByDataAbstractButton.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPoweredByDataAbstractButton.res
new file mode 100644
index 0000000..0dd5c2d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAPoweredByDataAbstractButton.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialog.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialog.dcu
new file mode 100644
index 0000000..fccae1d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialog.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialog.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialog.dfm
new file mode 100644
index 0000000..ae8fe93
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialog.dfm	
@@ -0,0 +1,551 @@
+object ReconcileDialogForm: TReconcileDialogForm
+  Left = 354
+  Top = 231
+  Width = 541
+  Height = 403
+  BorderStyle = bsSizeToolWin
+  BorderWidth = 5
+  Caption = 'One or more updates failed to apply on the server...'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  DesignSize = (
+    515
+    357)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 264
+    Top = 154
+    Width = 238
+    Height = 39
+    Anchors = [akLeft, akRight, akBottom]
+    Caption = 
+      'Skip over this change and ignore the error. You can try and corr' +
+      'ect the problem by modifying data, or reapply the change again a' +
+      't a later time.'
+    WordWrap = True
+  end
+  object Label2: TLabel
+    Left = 264
+    Top = 210
+    Width = 225
+    Height = 26
+    Anchors = [akLeft, akRight, akBottom]
+    Caption = 
+      'Cancel the changes you made and restore the record to its origin' +
+      'al values.'
+    WordWrap = True
+  end
+  object Label3: TLabel
+    Left = 264
+    Top = 266
+    Width = 230
+    Height = 39
+    Anchors = [akLeft, akRight, akBottom]
+    Caption = 
+      'Show a dialog with details of the changes made to the record sin' +
+      'ce it was last retrieved from or applied to the server.'
+    WordWrap = True
+  end
+  object SkipButton: TButton
+    Left = 161
+    Top = 154
+    Width = 96
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = '&Skip Change'
+    TabOrder = 3
+    OnClick = SkipButtonClick
+  end
+  object CancelButton: TButton
+    Left = 161
+    Top = 210
+    Width = 96
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = '&Cancel Change'
+    TabOrder = 4
+    OnClick = CancelButtonClick
+  end
+  object SkipAllButton: TButton
+    Left = 0
+    Top = 332
+    Width = 75
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Skip &All'
+    TabOrder = 1
+    OnClick = SkipAllButtonClick
+  end
+  object CancelAllButton: TButton
+    Left = 80
+    Top = 332
+    Width = 75
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Cancel A&ll'
+    TabOrder = 2
+    OnClick = CancelAllButtonClick
+  end
+  object ShowDetailButton: TButton
+    Left = 161
+    Top = 266
+    Width = 96
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Show &Details'
+    TabOrder = 5
+    OnClick = ShowDetailButtonClick
+  end
+  object TreeView: TTreeView
+    Left = 0
+    Top = 0
+    Width = 155
+    Height = 327
+    Anchors = [akLeft, akTop, akBottom]
+    HideSelection = False
+    Indent = 20
+    MultiSelectStyle = []
+    ReadOnly = True
+    RowSelect = True
+    ShowButtons = False
+    ShowLines = False
+    ShowRoot = False
+    StateImages = ImageList
+    TabOrder = 0
+    OnClick = ListBoxClick
+  end
+  object btn_Cancel: TButton
+    Left = 440
+    Top = 332
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Close'
+    ModalResult = 2
+    TabOrder = 6
+  end
+  object memMessageError: TMemo
+    Left = 160
+    Top = 0
+    Width = 353
+    Height = 145
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Color = clBtnFace
+    ReadOnly = True
+    ScrollBars = ssVertical
+    TabOrder = 7
+  end
+  object ImageList: TImageList
+    Left = 59
+    Top = 124
+    Bitmap = {
+      494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000003000000001002000000000000030
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000D6C00000D
+      6C00000C5D00000A5100000A4F00000A4F00000A4F00000A4F00000A4F00000A
+      4F00000A4F000008400000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000001397000017B9000016
+      B5000015AA000013A0000013A00000139700001397000013A000001397000013
+      97000013A000000F7A0000084000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000017B900001CE200001A
+      D5000018CA000018C6000016B5000016B5000015AA000015AA000016B5000015
+      AA000016B5000013A000000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018C600001EF000001C
+      E200001AD5000018C6000018C6000016B5000016B5000015AA000013A0000015
+      AA000015AA000013A000000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA000224FF00001E
+      F000001CE200001AD5000018CA000018C6000016B5000016B5000015AA000013
+      A0000017B90000139700000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA00163BFF000528
+      FF00001EF000001CE200001AD5000018CA000018CA000017B9000016B5000015
+      AA000015AA000013A000000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA003559FF000F35
+      FF000224FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000017
+      B9000016B5000013A000000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA004E6EFF00193F
+      FF000224FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000018
+      C6000018C60000139D00000C5D00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA005A79FF002146
+      FF00092DFF000224FF00001EF000001DEE00001DEE00001CE200001AD5000018
+      CA000018CA000016B500000D6C00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA006682FF002D51
+      FF00163BFF000F35FF000224FF00001FFF00001EF000001EF000001DEE00001C
+      DE00001CDE000017B900000F7A00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA007690FF004163
+      FF00193FFF00163BFF00092DFF000528FF000224FF000224FF00001DEE00001D
+      EE00001CE2000018C60000118700000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA007F98FF00728C
+      FF005676FF004163FF003559FF00284CFF00163BFF000224FF00001FFF00001D
+      EE00001DEE00001CDE0000139700000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA005877FF007F98
+      FF00839CFF007690FF006682FF004E6EFF00284CFF000F35FF000224FF00001F
+      FF00001DEE00001CE2000013A000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001DEE00092D
+      FF000F35FF00092DFF000528FF000224FF00001DEE00001CDE00001AD5000018
+      CA00001AD5000016B50000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015F05000269090002640700005E0400004D0300000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000002C2C6C0005056300000065000000600000004F00000000000000
+      0000000000000000000000000000000000000000000000000000000D6C00000D
+      6C00000C5D00000A5100000A4F00000A4F00000A4F00000A4F00000A4F00000A
+      4F00000A4F000008400000000000000000000000000000000000000D6C00000D
+      6C00000C5D00000A5100000A4F00000A4F00000A4F00000A4F00000A4F00000A
+      4F00000A4F000008400000000000000000000000000000000000000000000271
+      08000C98220011B62F000DB4250009B21C0006B0160001AE0B0000910700005B
+      0400000000000000000000000000000000000000000000000000000000002929
+      AC000000840000008E0000008E0000008F0000008C0000008800000081000101
+      54000000000000000000000000000000000000000000001397000017B9000016
+      B5000015AA000013A0000013A00000139700001397000013A000001397000013
+      97000013A000000F7A00000840000000000000000000001397000017B9000016
+      B5000015AA000013A0000013A00000139700001397000013A000001397000013
+      97000013A000000F7A0000084000000000000000000000000000078414001CB6
+      45001BBA440017B83A0012B630000EB426001AB72D0008B21B0004AF110000AD
+      09000067050000000000000000000000000000000000000000002929AC000000
+      96000000970000009B0000009F000000A00000009D000000970000008F000000
+      880000006200000000000000000000000000000000000017B900001CE200001A
+      D5000018CA000018C6000016B5000016B5000015AA000015AA000016B5000015
+      AA000016B5000013A000000A4F0000000000000000000017B900001CE200001A
+      D1000019CC000018C6000016B5000016B5000015AA000015AA000016B5000015
+      AA000016B5000013A000000A4F00000000000000000004860B0023B7530024BE
+      580021BD51001CBA45001ABA430012B630000EB426000EB426000AB21D0007B1
+      180002AE0D00005F04000000000000000000000000002929AC000101A3000808
+      9E009999D4006868D0000000AC000000AE000000A9004848B800B7B7E3002727
+      A50000008C00010152000000000000000000000000000018C600001EF000001C
+      E200001AD5000018C6000018C6000016B5000016B5000015AA000013A0000015
+      AA000015AA000013A000000A4F0000000000000000000018C600001EF000001C
+      E200001AD1000018C6003653D300EAEEFA008899E000061FAF000013A0000015
+      AA000015AA000013A000000A4F00000000000000000017A437002EC26B002CC1
+      660025BF5A0021BD5100FFFFFF001ABA430012B6300013B6310011B62E000BB3
+      210009B21C00059712000000000000000000000000002929AC000000AB002828
+      A300DEDED200FEFEFF006464D4000000B3004646C000E7E7EC00FFFFF7005E5E
+      B70000009A00020287000000000000000000000000000018CA000224FF00001E
+      F000001CE200001AD5000018C600FFFFFF00F4F7FF000016B5000015AA000013
+      A0000017B90000139700000A4F0000000000000000000019CC000224FF00001E
+      F0009AACF6000624D7000019CC009AAAEB00FFFFFF008899E0000015AA000015
+      AA000015AA000013A000000A4F00000000000091020028BB5E002EC26B002EC2
+      6B002EC26B00FFFFFF00FFFFFF00FFFFFF001ABA43001ABA430015B8380012B6
+      30000FB52A000AB21D0002670800000000004B4BD3000707B1000303B9000000
+      C2004C4CA700E6E6D900FCFCFF009E9EE600E8E9F400FFFFF1007575B9000606
+      B1000101AB000202A00013145D0000000000000000000018CA00163BFF000528
+      FF00001EF000001CE200001BD900FFFFFF00FFFFFF000017B9000016B5000015
+      AA000015AA000013A000000A4F0000000000000000000019CC00163BFF000528
+      FF00FFFFFF00768FF300001AD1003654DE00FFFFFF00ADBBEE000016B5000015
+      AA000016B50000139700000A4F0000000000009701002EC26B002EC26B002EC2
+      6B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001ABA43001ABA43000EB4
+      260014B7340011B62F0005771000000000004B4BD3000808BB000707C8000505
+      D1000000C8005353B600F2F2ED00FFFFFF00FFFFFC007575C9000000BE000101
+      C3000303B8000303AC0010106F0000000000000000000018CA003559FF000F35
+      FF000224FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000017
+      B9000016B5000013A000000A4F0000000000000000000019CC003559FF000F35
+      FF00FFFFFF00FFFFFF00768FF300EAEEFA00FFFFFF00889CEB000018C6000016
+      B5000016B5000013A000000A4F000000000000A001002EC26B002EC26B002EC2
+      6B00FFFFFF00FFFFFF002EC26B00FFFFFF00FFFFFF00FFFFFF001ABA43001ABA
+      43001BBA440017B83A000A8D1B00000000004B4BD3000C0CC9000D0DD8000B0B
+      DC000000D6003C3DCE00EEEFED00FFFFFF00FFFFFD005858DB000000CA000303
+      CB000606C5000606B8001212790000000000000000000018CA004E6EFF00193F
+      FF000224FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000018
+      C6000018C6000013A000000A510000000000000000000019CC004D6DFF00193F
+      FF004D6DFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAEEFA001C3BD5000018
+      C6000017B9000015AA00000A51000000000000A4010033C36E002EC26B002EC2
+      6B00FFFFFF002EC26B002EC26B002EC26B00FFFFFF00FFFFFF00FFFFFF002BBF
+      640021BD51001CBA4500077F1300000000004B4BD3001414D8001717EA000B0B
+      F1004343DB00E4E4EA00FDFDF500BABAD400EAEAE800FEFEFF006363E5000303
+      D7000A0ACF000A0AC30021217F0000000000000000000018CA005A79FF002146
+      FF00092DFF000224FF00001EF000FFFFFF00FFFFFF00001CE200001BD9000018
+      CA000018CA000016B500000D6C0000000000000000000019CC005A79FF002146
+      FF00092DFF00294DFF006681F8004565F400C1CCFB00FFFFFF00EAEEFA001C3B
+      D5000019CC000016B500000D6C000000000000AD000044C665003FC776002EC2
+      6B003AC573002EC26B002EC26B002EC26B002EC26B00FFFFFF00FFFFFF002BBF
+      640025BF5A0023BE5700047E0D00000000004B4BD3002626E5002222FB003F3F
+      E900DCDCE500FDFDEE007373C5000303D7005151B000E3E3D600FFFFFE006161
+      E5000808DB000F0FCA001212790000000000000000000018CA006682FF002D51
+      FF00163BFF000F35FF000224FF00FFFFFF00FFFFFF00001DEE00001CE200001C
+      E200001BD9000017B900000F7A0000000000000000000019CC006681F8002D51
+      FF00163BFF000F35FF000224FF00001FFF000528FF00EAEEFA00FFFFFF00EAEE
+      FA00001BD9000017B900000F7A00000000000000000031BE3C0072D5950052CC
+      820035C470003AC573002EC26B002EC26B002EC26B002EC26B00FFFFFF002BBF
+      64002DC26A001AA73E000000000000000000000000003131FB003232FF005252
+      ED00B3B3C2007777CA000000EA000000EC000000E8005252B400ADADB0004D4D
+      E1001818ED001818B1000000000000000000000000000018CA007690FF004163
+      FF00193FFF00163BFF00092DFF000528FF000224FF000224FF00001EF000001D
+      EE00001CE2000018CA000011870000000000000000000019CC007690FF004163
+      FF00193FFF00163BFF00092DFF000528FF000224FF001C41FF00EAEEFA00C1CC
+      FB00001CE2000019CC0000118700000000000000000000B7000075D6830082DA
+      A00066D28E0044C879003AC573002EC26B002EC26B002EC26B0028BD5E002BBF
+      64002BBF640003870A000000000000000000000000003131FB003E3EFB005353
+      FF006868EF005757F9003838FF002525FD002929FF003838FC004242EB003232
+      FF001F1FE9003131FB000000000000000000000000000018CA007F98FF00728C
+      FF005676FF004163FF003559FF00284CFF00163BFF000224FF00001FF900001D
+      EE00001EF000001BD9000013A00000000000000000000019CC007F98FF00728C
+      FF005676FF004163FF003559FF002449FF00193FFF000224FF000224FF00001E
+      F000001EF000001BD9000013A0000000000000000000000000000FBC100077D7
+      800098E0AD0076D798005ACE86003AC573002EC26B002EC26B002EC26B0028BD
+      5E000998170000000000000000000000000000000000000000003131FB004949
+      FD006E6EFF009191FF009393FF008484FF007676FF006767FF005151FF003131
+      FB003131FB00000000000000000000000000000000000018CA005877FF007F98
+      FF00839CFF007690FF006682FF004E6EFF00284CFF000F35FF000224FF00001F
+      F900001FF900001CE2000013A00000000000000000000019CC005877FF007F98
+      FF00839CFF007690FF006681F8004D6DFF00294DFF000F35FF00001FFF00001F
+      FF00001FFF00001BD9000013A0000000000000000000000000000000000000B8
+      000047CB490084DA91008CDCA6006AD391004ECB7F002DBF610017B13600049C
+      0A00000000000000000000000000000000000000000000000000000000003131
+      FB003131FB006969FE008787FF009292FF007676FF005353FF005151F3003131
+      FB00000000000000000000000000000000000000000000000000001DEE00092D
+      FF000F35FF00092DFF000528FF000224FF00001DEE00001BD900001AD5000018
+      CA00001AD5000016B50000000000000000000000000000000000001DEE00092D
+      FF000F35FF00092DFF000528FF000224FF00001DEE00001BD900001AD1000019
+      CC000019CC000017B90000000000000000000000000000000000000000000000
+      00000000000000B8000000B6000000AE000000AD000000A60100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003131FB003131FB003131FB003131FB003131FB00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000300000000100010000000000800100000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000FFFF000000000000C003000000000000
+      8001000000000000800100000000000080010000000000008001000000000000
+      8001000000000000800100000000000080010000000000008001000000000000
+      8001000000000000800100000000000080010000000000008001000000000000
+      C003000000000000FFFF000000000000FFFFFFFFFFFFFFFFF83FF83FC003C003
+      E00FE00F80018001C007C0078001800180038003800180018003800380018001
+      0001000180018001000100018001800100010001800180010001000180018001
+      000100018001800180038003800180018003800380018001C007C00780018001
+      E00FE00FC003C003F83FF83FFFFFFFFF00000000000000000000000000000000
+      000000000000}
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialogDetails.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialogDetails.dcu
new file mode 100644
index 0000000..4124c5d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialogDetails.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialogDetails.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialogDetails.dfm
new file mode 100644
index 0000000..4508539
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAReconcileDialogDetails.dfm	
@@ -0,0 +1,95 @@
+object ReconcileDialogDetailsForm: TReconcileDialogDetailsForm
+  Left = 358
+  Top = 218
+  Width = 500
+  Height = 299
+  BorderIcons = [biSystemMenu]
+  Caption = 'Details for Change to '#39'%s'#39
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ScrollBox: TScrollBox
+    Left = 0
+    Top = 49
+    Width = 484
+    Height = 179
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    TabOrder = 0
+  end
+  object BottomPanel: TPanel
+    Left = 0
+    Top = 228
+    Width = 484
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    DesignSize = (
+      484
+      35)
+    object OkButton: TButton
+      Left = 185
+      Top = 5
+      Width = 95
+      Height = 25
+      Anchors = [akLeft, akBottom]
+      Caption = '&Skip Change'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object CloseButton: TButton
+      Left = 385
+      Top = 5
+      Width = 95
+      Height = 25
+      Anchors = [akLeft, akBottom]
+      Cancel = True
+      Caption = 'Close'
+      ModalResult = 7
+      TabOrder = 1
+    end
+    object CancelButton: TButton
+      Left = 285
+      Top = 5
+      Width = 95
+      Height = 25
+      Anchors = [akLeft, akBottom]
+      Caption = '&Cancel Change'
+      ModalResult = 2
+      TabOrder = 2
+    end
+  end
+  object TopPanel: TPanel
+    Left = 0
+    Top = 0
+    Width = 484
+    Height = 49
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+    DesignSize = (
+      484
+      49)
+    object memMessageError: TMemo
+      Left = 0
+      Top = 0
+      Width = 484
+      Height = 49
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      BevelInner = bvNone
+      BevelOuter = bvNone
+      BorderStyle = bsNone
+      Color = clBtnFace
+      ScrollBars = ssVertical
+      TabOrder = 0
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARegExpr.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARegExpr.dcu
new file mode 100644
index 0000000..5802d9c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARegExpr.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteCommand.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteCommand.dcu
new file mode 100644
index 0000000..4309f16
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteCommand.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteDataAdapter.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteDataAdapter.dcu
new file mode 100644
index 0000000..814913b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteDataAdapter.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteDataAdapterRequests.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteDataAdapterRequests.dcu
new file mode 100644
index 0000000..3e54706
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARemoteDataAdapterRequests.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARes.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARes.dcu
new file mode 100644
index 0000000..529635e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDARes.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQL92Interfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQL92Interfaces.dcu
new file mode 100644
index 0000000..caee8f0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQL92Interfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQL92QueryBuilder.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQL92QueryBuilder.dcu
new file mode 100644
index 0000000..ee8c9b5
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQL92QueryBuilder.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQLiteInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQLiteInterfaces.dcu
new file mode 100644
index 0000000..3c5f185
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASQLiteInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASchemaUnitsGenerator.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASchemaUnitsGenerator.dcu
new file mode 100644
index 0000000..ca719b7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASchemaUnitsGenerator.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAScriptingProvider.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAScriptingProvider.dcu
new file mode 100644
index 0000000..66bd984
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAScriptingProvider.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASelectDataTablesForm.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASelectDataTablesForm.dcu
new file mode 100644
index 0000000..818a288
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASelectDataTablesForm.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAServerLog.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAServerLog.dcu
new file mode 100644
index 0000000..0aa5f1c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAServerLog.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASupportClasses.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASupportClasses.dcu
new file mode 100644
index 0000000..0d0e296
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASupportClasses.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASybaseInterfaces.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASybaseInterfaces.dcu
new file mode 100644
index 0000000..58c00cd
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDASybaseInterfaces.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAUtils.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAUtils.dcu
new file mode 100644
index 0000000..cea2a74
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAUtils.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAWhere.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAWhere.dcu
new file mode 100644
index 0000000..e42babf
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAWhere.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAXMLAdapter.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAXMLAdapter.dcu
new file mode 100644
index 0000000..46020cd
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAXMLAdapter.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAXMLUtils.dcu b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAXMLUtils.dcu
new file mode 100644
index 0000000..8f5774f
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D11/uDAXMLUtils.dcu differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_ADODriver_D12.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_ADODriver_D12.bpl
new file mode 100644
index 0000000..de455c1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_ADODriver_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_ADODriver_D12.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_ADODriver_D12.dcp
new file mode 100644
index 0000000..093762e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_ADODriver_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_BDEDriver_D12.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_BDEDriver_D12.bpl
new file mode 100644
index 0000000..b4116c1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_BDEDriver_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_BDEDriver_D12.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_BDEDriver_D12.dcp
new file mode 100644
index 0000000..ee5300a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_BDEDriver_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Core_D12.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Core_D12.bpl
new file mode 100644
index 0000000..48f7573
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Core_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Core_D12.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Core_D12.dcp
new file mode 100644
index 0000000..e1f64b4
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Core_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_DBXDriver_D12.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_DBXDriver_D12.bpl
new file mode 100644
index 0000000..3cf2267
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_DBXDriver_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_DBXDriver_D12.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_DBXDriver_D12.dcp
new file mode 100644
index 0000000..9e83916
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_DBXDriver_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IBXDriver_D12.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IBXDriver_D12.bpl
new file mode 100644
index 0000000..6a1919f
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IBXDriver_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IBXDriver_D12.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IBXDriver_D12.dcp
new file mode 100644
index 0000000..9e3216e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IBXDriver_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IDE_D12.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IDE_D12.bpl
new file mode 100644
index 0000000..feb3cc1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IDE_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IDE_D12.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IDE_D12.dcp
new file mode 100644
index 0000000..523c692
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_IDE_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Scripting_D12.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Scripting_D12.bpl
new file mode 100644
index 0000000..5ad13c0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Scripting_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Scripting_D12.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Scripting_D12.dcp
new file mode 100644
index 0000000..c4b9033
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D12/DataAbstract_Scripting_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_ADODriver_D14.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_ADODriver_D14.bpl
new file mode 100644
index 0000000..a8af436
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_ADODriver_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_ADODriver_D14.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_ADODriver_D14.dcp
new file mode 100644
index 0000000..4ea0085
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_ADODriver_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_BDEDriver_D14.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_BDEDriver_D14.bpl
new file mode 100644
index 0000000..9cf745d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_BDEDriver_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_BDEDriver_D14.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_BDEDriver_D14.dcp
new file mode 100644
index 0000000..f8e0911
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_BDEDriver_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Core_D14.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Core_D14.bpl
new file mode 100644
index 0000000..c92082d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Core_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Core_D14.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Core_D14.dcp
new file mode 100644
index 0000000..d0686ed
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Core_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_DBXDriver_D14.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_DBXDriver_D14.bpl
new file mode 100644
index 0000000..70a5d93
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_DBXDriver_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_DBXDriver_D14.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_DBXDriver_D14.dcp
new file mode 100644
index 0000000..71e46f7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_DBXDriver_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IBXDriver_D14.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IBXDriver_D14.bpl
new file mode 100644
index 0000000..be302f9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IBXDriver_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IBXDriver_D14.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IBXDriver_D14.dcp
new file mode 100644
index 0000000..b573611
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IBXDriver_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IDE_D14.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IDE_D14.bpl
new file mode 100644
index 0000000..cc6da04
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IDE_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IDE_D14.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IDE_D14.dcp
new file mode 100644
index 0000000..b0b27e1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_IDE_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Scripting_D14.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Scripting_D14.bpl
new file mode 100644
index 0000000..fd27cae
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Scripting_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Scripting_D14.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Scripting_D14.dcp
new file mode 100644
index 0000000..7a8ae28
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D14/DataAbstract_Scripting_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_ADODriver_D7.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_ADODriver_D7.bpl
new file mode 100644
index 0000000..bce4417
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_ADODriver_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_ADODriver_D7.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_ADODriver_D7.dcp
new file mode 100644
index 0000000..981e47c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_ADODriver_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_BDEDriver_D7.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_BDEDriver_D7.bpl
new file mode 100644
index 0000000..afe30a9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_BDEDriver_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_BDEDriver_D7.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_BDEDriver_D7.dcp
new file mode 100644
index 0000000..12875c8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_BDEDriver_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Core_D7.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Core_D7.bpl
new file mode 100644
index 0000000..df33378
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Core_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Core_D7.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Core_D7.dcp
new file mode 100644
index 0000000..a12b4bb
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Core_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_DBXDriver_D7.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_DBXDriver_D7.bpl
new file mode 100644
index 0000000..6cf8e6e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_DBXDriver_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_DBXDriver_D7.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_DBXDriver_D7.dcp
new file mode 100644
index 0000000..bd4ed77
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_DBXDriver_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IBXDriver_D7.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IBXDriver_D7.bpl
new file mode 100644
index 0000000..e02dd8f
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IBXDriver_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IBXDriver_D7.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IBXDriver_D7.dcp
new file mode 100644
index 0000000..5fa69c2
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IBXDriver_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IDE_D7.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IDE_D7.bpl
new file mode 100644
index 0000000..adbafd7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IDE_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IDE_D7.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IDE_D7.dcp
new file mode 100644
index 0000000..858215a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_IDE_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_SQLiteDriver_D7.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_SQLiteDriver_D7.bpl
new file mode 100644
index 0000000..fe51a01
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_SQLiteDriver_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_SQLiteDriver_D7.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_SQLiteDriver_D7.dcp
new file mode 100644
index 0000000..1cb611d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_SQLiteDriver_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Scripting_D7.bpl b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Scripting_D7.bpl
new file mode 100644
index 0000000..78589c1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Scripting_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Scripting_D7.dcp b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Scripting_D7.dcp
new file mode 100644
index 0000000..825fb02
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Dcu/D7/DataAbstract_Scripting_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Help/changelog.png b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/changelog.png
new file mode 100644
index 0000000..0e19bbc
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/changelog.png differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Help/da-sampleserver-delphi.png b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/da-sampleserver-delphi.png
new file mode 100644
index 0000000..e0aa7b9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/da-sampleserver-delphi.png differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Help/dadelphi.png b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/dadelphi.png
new file mode 100644
index 0000000..578980c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/dadelphi.png differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Help/iphone-xcode.png b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/iphone-xcode.png
new file mode 100644
index 0000000..9b8f26c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/iphone-xcode.png differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Help/wiki.png b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/wiki.png
new file mode 100644
index 0000000..a626fe1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Help/wiki.png differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Launch.exe b/internal/6.0.43.801/1/Data Abstract for Delphi/Launch.exe
new file mode 100644
index 0000000..4b346d2
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Launch.exe differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/License.txt b/internal/6.0.43.801/1/Data Abstract for Delphi/License.txt
new file mode 100644
index 0000000..9b07198
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/License.txt	
@@ -0,0 +1,85 @@
+*** REMOBJECTS SOFTWARE END USER LICENSE AGREEMENT ***
+
+Updated January 8, 2009
+
+IMPORTANT: PLEASE READ THIS DOCUMENT CAREFULLY AND IN ITS ENTIRETY BEFORE USING ANY SOFTWARE PRODUCT ACQUIRED FROM REMOBJECTS SOFTWARE.
+
+This document constitutes a LEGAL AGREEMENT between you, the End User (either an individual or an entity), and RemObjects Software, LLC.
+
+
+1. SCOPE
+
+This End User License Agreement ("EULA") covers all SOFTWARE PRODUCTS produced and sold by RemObjects Software, LLC. The sections of this EULA that contain information that pertain specifically to a certain product are properly marked as such.
+
+SOFTWARE PRODUCTS covered this EULA:
+
+* RemObjects AnyDAC
+* RemObjects Data Abstract 
+* RemObjects DebugServer
+* RemObjects Developer Studio
+* RemObjects Everwood
+* RemObjects Internet Pack 
+* RemObjects Hydra
+* RemObjects Oxygene
+* RemObjects Pascal Script
+* RemObjects SDK 
+
+
+2. DEFINITIONS
+
+SOFTWARE PRODUCTS: refers to one or more product as made available as a unified installation package.
+
+(LIBRARY) SOURCE CODE: refers to the source code shipped with any of the SOFTWARE PRODUCTS licensed to you, the End User, in the �Source� folder of the product installation. 
+
+TOOLS: refers to ANY of the applications deployed with the SOFTWARE PRODUCTS in executable form, whether as auxiliary helper programs of a Library product or as main product. This includes but is not limited to any .EXE files and IDE integration.
+
+SAMPLE CODE: sample code is provided to you as part of the SOFTWARE PRODUCT license inside the �Samples� folder
+
+EXECUTABLE FORMAT refers to executable files such as .EXE and .DLL files build from your own source code, linking in code provided as part of the LIBRARY SOURCE CODE. It does not encompass Delphi .DCU or .BPL/.DCP files or any other format that would allow a third party to the provided file as a replacement for the LIBRARY SOURCE CODE
+
+
+3. COPYRIGHT
+
+This SOFTWARE PRODUCT is owned by RemObjects Software, LLC and is protected by copyright laws and international copyright treaties. 
+
+All copyrights of this SOFTWARE PRODUCT, including but not limited to any source code, tools, documentation, images, text, and samples incorporated into the SOFTWARE PRODUCT, as well as those provided via Support Services or any of the RemObjects websites, are proprietary products of RemObjects Software, LLC and are protected by copyright law. You acquire only the right to use the SOFTWARE PRODUCT and do not acquire any rights of ownership. You acknowledge that the SOFTWARE PRODUCT and its source code remains a confidential trade secret of RemObjects Software, LLC. RemObjects Software, LLC may have trademarks, copyrights, patents or other intellectual property rights covering the SOFTWARE PRODUCT. You are not granted any license to these patents, trademarks, copyrights, or other intellectual property rights except as expressly provided herein. RemObjects Software, LLC reserves all rights not expressly granted.
+
+All names and logos of the SOFTWARE PRODUCTS defined in the SCOPE section of this EULA are trademarks or registered trademarks of RemObjects Software, LLC. These names and logos may only be used by the End User when referring to RemObjects Software, LLC or any of its products. These names and logos may not be used by the End User for branding or marketing purposes, without written consent from RemObjects Software, LLC.
+
+
+2.  GRANT OF LICENSE
+
+BY INSTALLING, COPYING, OR OTHERWISE USING THE SOFTWARE PRODUCT, YOU AGREE TO BE BOUND BY ALL OF THE TERMS AND CONDITIONS OF THIS END USER LICENSE AGREEMENT. IF YOU DO NOT AGREE TO THE TERMS OF THIS AGREEMENT, YOU ARE NOT PERMITTED TO INSTALL, COPY, OR USE THE SOFTWARE PRODUCT. IF YOU REJECT THE TERMS OF THIS AGREEMENT WITHIN THIRTY (30) DAYS AFTER PURCHASING THE SOFTWARE PRODUCT, YOU MAY SEND AN EMAIL TO sales@remobjects.com AND REQUEST A FULL REFUND OF THE PURCHASE PRICE.  IN ORDER TO RECEIVE THE REFUND, YOU MUST IRREVOCABLY UNINSTALL AND/OR DELETE ANY AND ALL COPIES OF THE SOFTWARE PRODUCT(S) YOU HAVE PURCHASED, AND PROVIDE CERTIFICATION OF SUCH TO REMOBJECTS.
+You may make one copy of the SOFTWARE PRODUCT solely for backup or archival purposes or transfer the SOFTWARE PRODUCT to a single hard disk provided you keep the original solely for backup or archival purposes. 
+
+You may install the software on up to five computers, providing you are the only person using the software on these computers.
+
+You may not alter any of the programs or accompanying files without written permission from RemObjects Software, LLC. Any resale or commercial distribution of the SOFTWARE PRODUCT is strictly prohibited, unless RemObjects Software, LLC has given explicit written permission.
+
+You are not obtaining title to the SOFTWARE PRODUCT or any copyrights. You may not sublicense, rent, lease, convey, modify, translate, convert to another programming language, decompile, or disassemble the SOFTWARE PRODUCT for any purpose. RemObjects Software, LLC grants you as an individual, a personal, non exclusive license to install and use the SOFTWARE PRODUCT for the sole purpose of developing systems that are not in competition with the SOFTWARE PRODUCT, or any other products developed and sold by RemObjects Software, LLC. 
+
+If you are an entity, RemObjects Software, LLC grants you the right to designate one individual within your organization to have the right to use the SOFTWARE PRODUCT in the manner described above.
+The named License you acquired is not transferrable to another individual or entity, unless you are given written permission by RemObjects Software, LLC.
+
+You may link against the LIBRARY SOURCE CODE and deploy it in EXECUTABLE FORMAT as part of your application; you may make changes to the LIBRARY SOURCE CODE and write extensions for your own use, and link against and deploy your changes in EXECUTABLE FORMAT. You may NOT deploy RemObjects Software�s source code to anyone.
+SAMPLE CODE for provided for your convenience and you may use it at your discretion. You may create your own products starting from the samples provided and consider this derived work as your own. You may also deploy such derived work in any way you see fit, including in source code form.
+
+Unless specifically stated on a per-tool basis, you may not deploy the TOOLS included with the SOFTWARE PRODUCT to anyone, neither standalone or as part of your own application; the tools are intended solely for use by yourself.
+In general, you may not distribute any part of the installed product, nor any license codes, license files or your website login to third parties. 
+
+
+3. SUPPORT SERVICES
+
+RemObjects Software, LLC may provide the End User with Support Services related to the SOFTWARE PRODUCT. Support Services include free downloading of upgrades as covered by the original purchase, as well as technical support offered via NNTP-based newsgroups, e-mail or telephone. Use of Support Services is governed by RemObjects Software policies and programs described on the RemObjects website (www.remobjects.com/support) and may be subject to additional support charges depending on the type and level of support provided. Any supplemental software code provided to you as part of the Support Services shall be considered part of the SOFTWARE PRODUCT and is subject to the terms and conditions of this EULA.
+
+
+4. TERMINATION
+
+This License shall remain in effect only for so long as you are in compliance with the terms and conditions of this EULA. This License will terminate if you fail to comply with any of its terms or conditions. You may terminate it at any time by destroying your copies of the SOFTWARE PRODUCT. You agree, upon termination, to destroy all copies of the Product. Without prejudice to any other rights, RemObjects Software, LLC may terminate this EULA if you fail to comply with the terms. The provisions of this EULA that protect the proprietary rights of RemObjects Software, LLC and the LIMITATIONS OF WARRANTIES will continue to be in force even after any termination. Upon termination, RemObjects Software, LLC may also enforce any rights provided by law.
+
+
+5. LIMITATIONS OF WARRANTIES AND LIABILITY
+
+THIS SOFTWARE PRODUCT IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTIES OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE APPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE PRODUCT AND ALL OTHER RISK ARISING FROMTHE USE OR PERFORMANCE OF THIS SOFTWARE PRODUCT AND DOCUMENTATION. 
+
+RemObjects Software, LLC SHALL NOT BE LIABLE FOR ANY DAMAGES WHATSOEVER ARISING FROM USE OF OR INABILITY TO USE THIS SOFTWARE PRODUCT, EVEN IF RemObjects Software, LLC HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE LAW, IN NO EVENT SHALL RemObjects Software, LLC BE LIABLE FOR ANY CONSEQUENTIAL, INCIDENTAL, DIRECT, INDIRECT, SPECIAL, PUNITIVE, OR OTHER DAMAGES WHATSOEVER, INCLUDING BUT NOT LIMITED TO DAMAGES OR LOSS OF BUSINESS PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR OTHER PECUNIARY LOSS, EVEN IF RemObjects Software, LLC HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. BECAUSE SOME STATES/JURISDICTIONS DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE ABOVE LIMITATION MAY NOT APPLY.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/README.html b/internal/6.0.43.801/1/Data Abstract for Delphi/README.html
new file mode 100644
index 0000000..12f8ecf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/README.html	
@@ -0,0 +1,369 @@
+<!-- This page was automatically created by a TRIAL VERSION of elitedevelopments preHTML. for more information, see http://www.prehtml.com -->
+<html>
+<head>
+<title>Data Abstract - README - RemObjects Software</title>
+<meta name="description" content="Place site description here." />
+<meta name="keywords" content="Place site keywords here." />
+<meta name="date" content="2009-11-27T13:45:37-01:00" />
+<meta name="robots" content="all" />
+<meta http-equiv="content-type" content="text/html" />
+<meta name="language" content="English, en" />
+<meta name="generator" content="elitedevelopments preHTML 1.1.1.171 [http://www.prehtml.com]" />
+<style type="text/css">
+body, table, tr, td
+{
+margin: 15px;
+font-family: Segoe UI, Lucida Grande, Helvetica, Verdana, sans-serif;
+font-size: 10.5pt;
+background-color: #f7f7f7;
+}
+p { margin-bottom: 0.75em; margin-top: 0; }
+p.h1, p.h2, p.h3
+{
+margin-top: 1em;
+margin-bottom: 0;
+padding-bottom: 0;
+color:  #202080;
+}
+p.h1
+{
+border-top: 1px solid #c0c0c0;
+font-weight: normal;
+color:  #202080;
+margin-top: 0.2em;
+padding-top: 1em;
+}
+.h1 { font-size: 15pt; }
+.h2 { font-size: 12pt; }
+.h3 { font-size: 10pt; }
+a, a:visited { text-decoration: underline; color: #808080; }
+a:hover { text-decoration: none; }
+ul, ol { margin-top: 0; margin-bottom: 0.75em; }
+pre { margin: 0 }
+.spaced
+{
+letter-spacing: 1px;
+color: #000060;
+}
+table
+{
+margin: 0;
+padding: 0;
+}
+.column1, .column2
+{
+border-top: 1px solid #c0c0c0;
+padding-top: 10px;
+width: 50%;
+vertical-align: top;
+}
+.column1
+{
+padding-right: 10;
+}
+.column2
+{
+float: right;
+border-left: 1px solid #c0c0c0;
+padding-left: 15px;
+}
+.column1 p, .column2 p
+{
+margin-top: 0;
+}
+.column1 img, .column2 img
+{
+padding-left: 10px;
+}
+.clear
+{
+margin-top: 50px;
+margin-bottom: 10px;
+clear: both;
+}
+.box p
+{
+margin-top: 5px;
+}
+.sig
+{
+border-top: 1px solid #c0c0c0;
+padding-top: 5px;
+margin-top: 25px;
+}
+.links
+{
+margin-top: 50px;
+border-top: 1px solid #e0e0e0;
+padding-top: 3px;
+text-align: center;
+color: #c0c0c0;
+font-size: 9pt;
+}
+.links a
+{
+text-decoration: none;
+color: #404040;
+margin-left: 10px;
+margin-right: 10px;
+}
+</style>
+</head>
+<body>
+<img src="Help/dadelphi.png" />
+<p class="h1">
+Thank You for Your Interest in our Products and for Choosing <b>Data Abstract</b> for <b>Delphi</b>.
+</p>
+<p>
+Our goal with Data Abstract (or &ldquo;DA&rdquo; as we call it for short) is to provide you with a powerful and
+flexible framework to build your application solutions upon.
+</p>
+<p>
+Data Abstract is not standing still. We will continue to improve the product over time and these improvements
+will be available to you as part of your subscription. To ensure continued access to the latest release and to
+stay up to date with the most recent fixes and new features, please make sure that your subscription stays active.
+</p>
+<p>
+Please check <a href="http://www.remobjects.com">our website</a> regularly, to keep your product up to date with the latest additions.
+</p>
+<table cellpadding="0" cellspacing="0">
+<tr>
+<td class="column1">
+<img src="Help/changelog.png" align="right"/>
+<p class="h2">
+Find Out What's New
+</p>
+<p>
+The Winter 2009 releases of
+both Data Abstract and the underlying RemObjects SDK
+continue to focus mainly on quality and bugfixing, but also contain a few new features, such as the new Local Data Adapter, and a tech preview of our
+standalone Relativity Server application. (formerly knows as DAServer6).
+Check out our <a href="http://remobjects.com/whatsnew">What's New</a> page for a detailed overview look of all what's new.
+Or visit the <a href="http://remobjects.com/changelogs">Change Logs</a> to get a more detailed list
+of all changes, including features, minor enhanceents and bug-fixes.
+</p>
+<p class="h2" style="clear: both;">
+<span style="color: red">New</span>: Build Native Mac and iPhone apps with <nobr><b>Data Abstract</b> for <b>OS X</b></nobr>
+</p>
+<p>
+The Data Abstract product family is growing, as we're adding a third fully native edition to the product suite, designed specifically
+for building native client applications for Macintosh computers and iPhone and iPod touch devices using Cocoa and Xcode.
+</p>
+<img src="Help/iphone-xcode.png" align="right"/>
+<p>
+Leverage your existing investment into Data Abstract by exposing your existing servers to new clients written for these two exciting
+platforms, for example to deliver a first-class mobile front-end for your DA based enterprise application.
+</p>
+<p>
+<b>Data Abstract</b> for <nobr><b>OS X</b></nobr> is now shipping, and includes <i>RemObjects SDK for <nobr>OS X</nobr></i>.
+Please check our <a href="http://shop.remobjects.com">Shop</a> for purchasing options, or contact our
+<a href="mailto:sales@remobjects.com">sales team</a> if you have any further questions.
+</p>
+</td>
+<td class="column2">
+<p class="h2">
+Getting Started
+</p>
+<p>
+Data Abstract provides several great sources to help you get started using the product.
+</p>
+<img src="Help/da-sampleserver-delphi.png" align="right"/>
+<p>
+For one, we have introduced a brand-new suite of sample applications built around a new <i>PCTrade</i> sample database.
+A range of client applications are available to demonstrate various concepts such as DA SQL or Business Processors,
+all of which work against a pre-compiled server application available from the start menu.
+</p>
+<p style="color: #606060; font-style: italic; padding-left: 10px;">
+The PCTrade samples are fully compatible between Delphi and .NET, so you can test Delphi clients against the .NET server versions, or vice versa, if you own both editions of Data Abstract.
+</p>
+<p>
+You can read more about the PCTrade sample suite <a href="http://wiki.remobjects.com/wiki/PCTrade_Sample_Suite">here</a>.
+</p>
+<img src="Help/wiki.png" align="right"/>
+<p class="h2">
+Delve into the Documentation
+</p>
+<p>
+Our documentation wiki at <a href="http://wiki.remobjects.com/wiki/Data Abstract_for_Delphi">wiki.remobjects.com</a> also
+continues to be a rich and growing source of information, providing introductory texts about different concepts in
+Data Abstract, articles and how-tos, as well as thorough class reference help.
+</p>
+<p>
+The Wiki is community driven, allowing you and all other Data Abstract customers to participate and contribute content, as well.
+</p>
+</td>
+</tr>
+</table>
+<div class="clear"></div>
+<p class="h1">Some More Technical Information</p>
+<p>
+The remainder of the README provides some more general information and a few guidelines that you should
+follow in order to install and get started with Data Abstract.
+</p>
+<div class="box" style="border: 1px solid #808080; background-color: #e8e8e8; padding-left:5px; padding-right:5px;">
+<p class="h2">Software Requirements</p>
+<p>
+<b>Data Abstract</b> for <b>Delphi</b> supports versions 7, 2007, 2009 and 2010 of Delphi, for 32-bit Windows Development.
+Support is also provided for current releases of Free Pascal 2.2 and later, for both 32-bit and 64-bit Windows and Linux development.
+</p>
+<p>
+The Fall 2009 release drops precompiled support for Delphi 6 and Delphi 2006, although package source files are still provided, if
+you need to manually install Data Abstract in these versions of Delphi. These two versions are no longer officially supported.
+</p>
+<p>
+While Delphi 7 is still officially supported, we strognly recommend our customers to move to Delphi 2007 or later.
+</p>
+<p class="h2"><b>TRIAL</b> Version Requirements</p>
+<p>
+The following requirements must be met for the trial version:
+</p>
+<ul>
+<li><b>Delphi 2010</B>: No Update Pack required.</li>
+<li><b>Delphi 2009</B>: Update Pack 1 is not essential, but strongly recommended.</li>
+<li><b>Delphi 2007</B>: Update Pack 3 is required.</li>
+<li><b>Delphi 7</B>: No Update Pack required.</li>
+</ul>
+<p>
+Using Indy-based components with the TRIAL edition requires the original version of Indy that was installed with your edition of Delphi.
+If you have upgraded to a different Indy version, there should still be enough alternative channels for you to evaluate Data Abstract
+without relying on Indy.
+</p>
+<p>
+<b>Please note</b> that these requirements are for the TRIAL version only. Since the retail version comes with full source code,
+you can easily rebuild it to match the version of Delphi that you are using. Simply open the
+BuildPackages_Dx.bpg project group and do a 'Build All Projects'.</p>
+</div>
+<p class="h2">Component Installation</p>
+<p>
+Data Abstract comes as several individual packages, provided in precompiled versions for Delphi 7, 2007, 2009 and 2010.
+Setup will install automatically install these packages with the supported IDEs</p>
+<p>
+The Indy packages are built to work with the default versions of Indy that come with
+Delphi 7 (Indy 9), 2007 (Indy 10) or 2009 and 2010 (Indy 10.2.3). If you have a custom version,
+then the RemObjects SDK Indy package will most likely fail to load when yoiu first start the Delphi IDE.
+</p>
+<p>
+If this is the case you will need to adjust the RemObjects.inc file as described below, and then rebuild the RemObjects_Indy
+package manually to match your specific version. You can accomplish this by opening the RemObjects_Indy_D7.dpk (or D10-D14) in
+the IDE and then building and installing it.
+</p>
+<p>
+Alternatively, you can of course choose to not load the RemObjects SDK Indy components, and instead rely on the other channels we provide.
+</p>
+<p class="h2">Free Pascal (FPC)</p>
+<p>
+The current release of Data Abstract for Delphi provides library support for Free Pascal 2.2.2 and above, allowing you to rebuild your
+projects for the Win32 (x86), Win64 (x64), Linux (x86 and x64) platforms. Compilation against other platforms provided by FPC might be possible,
+but is not currently supported; however, we are interested in your feedback if you do try to build against other platforms.
+</p>
+<p>
+Official support for other platforms, as well as support for the Lazarus IDE, is under review for future releases.
+</p>
+<p>
+The minimum version of FPC required is Free Pascal 2.2.2 or newer (which can be downloaded <a href="http://www.freepascal.org/download.var#beta">here</a>).
+Please note that we explicitly do <i>not</i> support the 2.0.x release, as it is missing crucial functionality.
+</p>
+<p>
+More information about Free Pascal can be found on the FPC homepage at <a href="http://www.freepascal.org">http://www.freepascal.org</a>.
+</p>
+<p class="h2">Limitations of Free Pascal Support</p>
+<p>
+Not all client and server channels provided with RemObjects SDK are supported for Free Pascal or for all four platforms available through
+Free Pascal.
+</p>
+<ul>
+<li>
+For obvious reasons, the WinINet HTTP Channel is not supported for Linux but will function under the Win32 and Win64 targets; the same
+holds true for the Named Pipe client and server channels.
+</li>
+<li>
+Indy support for FPC is experimental, and as such the Indy based channels are only experimentally supported for FPC.
+</li>
+<li>
+Support for FPC requires full source, and so is not available in the TRIAL version of Data Abstract.
+</li>
+</ul>
+<div class="box" style="border: 1px solid #800000; background-color: #ffe8e8; padding-left:5px; padding-right:5px;">
+<p class="h2">License File</p>
+<p>
+To avoid piracy and abuse, the Data Abstract install contains a time-limited license for tools auch as Schema Modeler and Service Builder, as
+well as the pre-compiled component libraries. This license file will expire after 30 days of use.
+</p>
+<p>
+You will be prompted about this trial period and offered an option to download your personal license file when you start the tools
+for the first time, or when you build your application using Data Abstract
+or RemObjects SDK
+components. You can
+choose to either download your own license file right away, or keep working with the trial license until such a time
+when the download is more convenient for you. Alternatively, it's possible to download it directly
+from <a href="http://my.remobjects.com">my.remobjects.com</a>.
+</p>
+<p>
+<b>Please note</b> that applications built with the trial license will be marked as such and display the trial notification
+dialog on startup. Download your personal license when prompted, in order to build your applications without this limitation.
+</p>
+</div>
+<p class="h2">Sample Projects</p>
+<p>
+A number of sample projects are included in the <i>RemObjects Samples</i> folder of your Shared Documents folder.
+These sample projects will show you how to get started and how to use the various functions of Data Abstract, and are built around a
+shared &ldquo;PCTrade&rdquo; sample server that has been newly added. Please read more about this suite of samples in our wiki,
+<a href="http://wiki.remobjects.com/wiki/PCTrade_Sample_Suite">here</a>.
+</p>
+<p>
+After the first start of your development IDE, the <a href="http://wiki.remobjects.com/wiki/Welcome_Page">Welcome Page</a>
+for Data Abstract will be presented, giving you the option to directly open any of the sample client applications.
+The matching server application comes pre-compiled with Data Abstract for Delphi and can be launched from the Start Menu.
+</p>
+<p>
+<b>Please Note:</b> Samples have been moved from underneath the product install to the Shared Documents folder, to make them more
+easily usable on Windows Vista and Windows 7, where the Program Files folder is read-only during normal operation.
+</p>
+<p class="h2">Support</p>
+<p>
+Support for Data Abstract is available via our newsgroups at
+<a href="news://news.remobjects.com/remobjects.public.dataabstract.delphi">remobjects.public.dataabstract.delphi</a>.
+</p>
+<p>
+You can use these newsgroups to report any problems or suggestions you might have in regards to Data Abstract, you can communicate
+with fellow Data Abstract users and exchange ideas and solutions. More information about our support offerings, including the
+Premium Support subscription, can be found at <a href="http://www.remobjects.com/support">remobjects.com/support</a>.
+</p>
+<div class="box" style="border: #000080 1px solid; padding-right: 5px; border-top: #000080 1px solid; padding-left: 5px; background-color: #e8e8ff">
+<p class="h2">
+Known Issues in this Release of Data Abstract
+</p>
+<p>
+While we try our best to get all known issues fixed and addressed for each build, sometimes less important issues need to be
+deferred for later releases in favor of getting a version released at all (perfect is the enemy of shipping, after all).
+Please check our <a href="http://remobjects.com/knownissues">list of known issues</a> for any crucial known problems with
+the current release.
+</p>
+</div>
+<div class="clear"></div>
+<p class="h2">Thank You</p>
+<p>
+Let us thank you again for choosing Data Abstract. We are confident that you
+will find it to be a worthwhile addition to your development toolset.
+</p>
+<p>
+Should you, at any time, encounter a problem or need assistance using Data Abstract, please feel free to ask on the newsgroups
+or contact us directly via email at <a href="mailto:support@remobjects.com">support@remobjects.com</a>.
+</p>
+<div class="sig" >
+<p>Best Regards,
+<br />
+The RemObjects Team
+<br />
+<a href="http://www.remobjects.com">http://www.remobjects.com</a></p>
+</div>
+<div class="links">
+<a href="http://remobjects.com">remobjects.com</a> &mdash;
+<a href="http://remobjects.com/whatsnew">What's New</a> &mdash;
+<a href="http://remobjects.com/changelogs">Change Logs</a> &mdash;
+<a href="http://remobjects.com/knownissues">Known Issues</a> &mdash;
+<a href="http://remobjects.com/support">Support</a> &mdash;
+<a href="http://wiki.remobjects.com">wiki.remobjects.com</a>
+</div>
+</body>
+</html>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Samples.lnk b/internal/6.0.43.801/1/Data Abstract for Delphi/Samples.lnk
new file mode 100644
index 0000000..a10c71c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Samples.lnk differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.dfm
new file mode 100644
index 0000000..75ebc6a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.dfm	
@@ -0,0 +1,5 @@
+object BaseLoginService: TBaseLoginService
+  OldCreateOrder = True
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.lfm
new file mode 100644
index 0000000..75ebc6a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.lfm	
@@ -0,0 +1,5 @@
+object BaseLoginService: TBaseLoginService
+  OldCreateOrder = True
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.pas
new file mode 100644
index 0000000..bbb9fa4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BaseLoginService_Impl.pas	
@@ -0,0 +1,207 @@
+unit BaseLoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} DataAbstract4_Intf;
+
+type
+  { TBaseLoginService }
+  TBaseLoginService = class (TRORemoteDataModule, IBaseLoginService)
+  private
+    fOnLogout: TNotifyEvent;
+  protected
+    { IBaseLoginService methods }
+    function LoginEx(const aLoginString: Utf8String): Boolean; virtual;
+    procedure Logout;
+  published
+    property OnLogout: TNotifyEvent read fOnLogout write fOnLogout;
+  end;
+
+  TLoginString = class
+  private
+    fValues: TStringList;
+    function get_UserName(): UTF8String;
+    function get_Password(): UTF8String;
+    function get_Connection(): UTF8String;
+    function get_Item(aName: UTF8String): UTF8String;
+  protected
+    procedure set_Item(const aName: UTF8String; const aValue: UTF8String);
+  public
+    constructor Create(const aLoginString: UTF8String);
+    destructor Destroy; override;
+    property Item[aName: UTF8String]: UTF8String read get_Item;
+    property Username: UTF8String read get_UserName;
+    property Password: UTF8String read get_Password;
+    property Connection: UTF8String read get_Connection;
+  end;
+
+
+implementation
+
+uses
+  uDAInterfaces,uROClasses,
+  {Generated:} DataAbstract4_Invk, Math, StrUtils;
+
+{ BaseLoginService }
+
+function TBaseLoginService.LoginEx(
+  const aLoginString: Utf8String): Boolean;
+begin
+  raise EROException.Create('Not implemented');
+end;
+
+procedure TBaseLoginService.Logout;
+begin
+  if assigned(OnLogout) then
+    OnLogout(self);
+end;
+
+{ TLoginString }
+
+constructor TLoginString.Create(const aLoginString: UTF8String);
+
+  function ExtractName(const S: string; const NameValueSeparator: Char): string;
+  var
+    P: Integer;
+  begin
+    Result := S;
+    P := AnsiPos(NameValueSeparator, Result);
+    if P <> 0 then
+      SetLength(Result, P-1)
+    else
+      SetLength(Result, 0);
+  end;
+
+  function ExtractValue(const S, Name: string): string;
+  begin
+    if Length(Name) = 0 then
+      Result := ''
+    else
+      Result := Copy(s, Length(Name) + 2, MaxInt);
+  end;
+
+
+  function ParseString2(var p: PChar): string;
+  var
+    p1: PChar;
+  begin
+    if P^ = '"' then begin
+      Result := AnsiExtractQuotedStr(P, '"');
+    end
+    else begin
+      P1 := P;
+      while (P^ >= ' ') do begin
+        if p^ = ';' then break
+        else if p^ = '"' then AnsiExtractQuotedStr(P, '"')
+        else Inc(P);
+      end;
+      SetString(Result, P1, P - P1);
+    end;
+  end;
+
+  procedure ParseString(AValue: string);
+  var
+    P: PChar;
+    sName, sValue : string;
+  begin
+    fValues.Clear;
+    P := PChar(AValue);
+    while P^ <> #0 do begin
+      sName:= ParseString2(p);
+      if CharInSet(p^, [#0, ';']) then begin
+        if sName <> '' then fValues.Add(sName)
+      end
+      else if CharInSet(p^,[':','=']) then begin
+        Inc(p);
+        sValue := ParseString2(p);
+        fValues.Add(sName+'='+sValue);
+      end;
+      if P^ = ';' then inc(p);
+    end;
+  end;
+
+var
+  i: integer;
+  s, s11, s12, s21,s22: string;
+  l1,l2: integer;
+begin
+  inherited Create;
+  fValues := TStringList.Create;
+  s:= {$IFDEF UNICODE}UTF8ToString{$ENDIF}(aLoginString);
+
+  ParseString(s);
+
+  for i:= fValues.Count -1 downto 0 do
+    if fValues[i]='' then fValues.Delete(i);
+
+  for i := 0 to fValues.Count -1 do begin
+    s := fValues[i];
+    s11:= ExtractName(s,'=');
+    s12:= ExtractValue(s, s11);
+
+    s21:= ExtractName(s,':');
+    s22:= ExtractValue(s, s21);
+    l1 := Length(s11); if l1 = 0 then l1:=MaxInt;
+    l2 := Length(s21); if l2 = 0 then l2:=MaxInt;
+    if l2 < l1 then fValues[i] := s21+'='+s22;
+  end;
+end;
+
+destructor TLoginString.Destroy;
+begin
+  fValues.Free;
+  inherited;
+end;
+
+function TLoginString.get_Connection: UTF8String;
+begin
+  Result := Item['Connection'];
+  if Result = '' then Result:= Item['ConnectionName'];
+  if Result = '' then Result:= Item['Connection Name'];
+end;
+
+function TLoginString.get_Item(aName: UTF8String): UTF8String;
+begin
+  Result := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(AnsiDequotedStr(fValues.Values[{$IFDEF UNICODE}UTF8ToString{$ENDIF}(aName)],'"'));
+  if Result = '""' then Result := '';  
+end;
+
+function TLoginString.get_Password: UTF8String;
+begin
+  Result := Item['Password'];
+end;
+
+function TLoginString.get_UserName: UTF8String;
+begin
+  Result := Item['User'];
+  if Result = '' then Result:= Item['UserID'];
+  if Result = '' then Result:= Item['User ID'];
+  if Result = '' then Result:= Item['UserName'];
+  if Result = '' then Result:= Item['User Name'];
+end;
+
+
+procedure TLoginString.set_Item(const aName, aValue: UTF8String);
+begin
+  fValues.Values[{$IFDEF UNICODE}UTF8ToString{$ENDIF}(aName)] :={$IFDEF UNICODE}UTF8ToString{$ENDIF}(aValue);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildDrivers.bpg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildDrivers.bpg
new file mode 100644
index 0000000..d3e61de
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildDrivers.bpg	
@@ -0,0 +1,94 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DAAbsoluteDBDrv.dad DAADODrv.dad DAAnyDACDrv.dad DABDEDrv.dad \
+  DADBISAM3Drv.dad DADBISAM4Drv.dad DADBXDrv.dad DADOADrv.dad DAElevateDBDrv.dad \
+  DAFIBDrv.dad DAIBDACDrv.dad DAIBODrv.dad DAIBXDrv.dad DAMyDACDrv.dad \
+  DAMySQLDACDrv.dad DANexusDBDrv.dad DAODACDrv.dad DAPGDACDrv.dad \
+  DAPostgresDACDrv.dad DASDACDrv.dad DASQLiteDrv.dad DASQLitePassDrv.dad \
+  DAUniDACDrv.dad DAZeosDrv.dad
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DAADODrv.dad: Drivers\DAADODrv.dpr
+  $(DCC)
+
+DAIBXDrv.dad: Drivers\DAIBXDrv.dpr
+  $(DCC)
+
+DADBXDrv.dad: Drivers\DADBXDrv.dpr
+  $(DCC)
+
+DAIBODrv.dad: Drivers\DAIBODrv.dpr
+  $(DCC)
+
+DAODACDrv.dad: Drivers\DAODACDrv.dpr
+  $(DCC)
+
+DASDACDrv.dad: Drivers\DASDACDrv.dpr
+  $(DCC)
+
+DADBISAM3Drv.dad: Drivers\DADBISAM3Drv.dpr
+  $(DCC)
+
+DADBISAM4Drv.dad: Drivers\DADBISAM4Drv.dpr
+  $(DCC)
+
+DAMyDACDrv.dad: Drivers\DAMyDACDrv.dpr
+  $(DCC)
+
+DAIBDACDrv.dad: Drivers\DAIBDACDrv.dpr
+  $(DCC)
+
+DAFIBDrv.dad: Drivers\DAFIBDrv.dpr
+  $(DCC)
+
+DAPostgresDACDrv.dad: Drivers\DAPostgresDACDrv.dpr
+  $(DCC)
+
+DAMySQLDACDrv.dad: Drivers\DAMySQLDACDrv.dpr
+  $(DCC)
+
+DABDEDrv.dad: Drivers\DABDEDrv.dpr
+  $(DCC)
+
+DANexusDBDrv.dad: Drivers\DANexusDBDrv.dpr
+  $(DCC)
+
+DAZeosDrv.dad: Drivers\DAZeosDrv.dpr
+  $(DCC)
+
+DASQLiteDrv.dad: Drivers\DASQLiteDrv.dpr
+  $(DCC)
+
+DAAnyDACDrv.dad: Drivers\DAAnyDACDrv.dpr
+  $(DCC)
+
+DAElevateDBDrv.dad: Drivers\DAElevateDBDrv.dpr
+  $(DCC)
+
+DADOADrv.dad: Drivers\DADOADrv.dpr
+  $(DCC)
+
+DAAbsoluteDBDrv.dad: Drivers\DAAbsoluteDBDrv.dpr
+  $(DCC)
+
+DAUniDACDrv.dad: Drivers\DAUniDACDrv.dpr
+  $(DCC)
+
+DAPGDACDrv.dad: Drivers\DAPGDACDrv.dpr
+  $(DCC)
+
+DASQLitePassDrv.dad: Drivers\DASQLitePassDrv.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D10.bdsgroup b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D10.bdsgroup
new file mode 100644
index 0000000..d175bf9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D10.bdsgroup	
@@ -0,0 +1,44 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Default.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{54AB30E9-B101-48B0-A497-ACE401323312}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Default.Personality>  <Projects>
+      <Projects Name="DataAbstract_Core_D10.bpl">DataAbstract_Core_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_Scripting_D10.bpl">DataAbstract_Scripting_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_IDE_D10.bpl">IDE\DataAbstract_IDE_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_AbsoluteDBDriver_D10.bpl">Drivers\DataAbstract_AbsoluteDBDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_ADODriver_D10.bpl">Drivers\DataAbstract_ADODriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_AnyDACDriver_D10.bpl">Drivers\DataAbstract_AnyDACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_BDEDriver_D10.bpl">Drivers\DataAbstract_BDEDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_DBISAMDriver_D10.bpl">Drivers\DataAbstract_DBISAMDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_DBXDriver_D10.bpl">Drivers\DataAbstract_DBXDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_DOADriver_D10.bpl">Drivers\DataAbstract_DOADriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_ElevateDBDriver_D10.bpl">Drivers\DataAbstract_ElevateDBDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_FIBDriver_D10.bpl">Drivers\DataAbstract_FIBDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_IBDACDriver_D10.bpl">Drivers\DataAbstract_IBDACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_IBODriver_D10.bpl">Drivers\DataAbstract_IBODriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_IBXDriver_D10.bpl">Drivers\DataAbstract_IBXDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_MyDACDriver_D10.bpl">Drivers\DataAbstract_MyDACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_MySQLDACDriver_D10.bpl">Drivers\DataAbstract_MySQLDACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_NexusDBDriver_D10.bpl">Drivers\DataAbstract_NexusDBDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_ODACDriver_D10.bpl">Drivers\DataAbstract_ODACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_PgDACDriver_D10.bpl">Drivers\DataAbstract_PgDACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_PostgresDACDriver_D10.bpl">Drivers\DataAbstract_PostgresDACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_SDACDriver_D10.bpl">Drivers\DataAbstract_SDACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_SQLiteDriver_D10.bpl">Drivers\DataAbstract_SQLiteDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_SQLitePassDriver_D10.bpl">Drivers\DataAbstract_SQLitePassDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_UniDACDriver_D10.bpl">Drivers\DataAbstract_UniDACDriver_D10.bdsproj</Projects>
+      <Projects Name="DataAbstract_ZeosDriver_D10.bpl">Drivers\DataAbstract_ZeosDriver_D10.bdsproj</Projects>
+      <Projects Name="Targets">DataAbstract_Core_D10.bpl DataAbstract_Scripting_D10.bpl DataAbstract_IDE_D10.bpl DataAbstract_AbsoluteDBDriver_D10.bpl DataAbstract_ADODriver_D10.bpl DataAbstract_AnyDACDriver_D10.bpl DataAbstract_BDEDriver_D10.bpl DataAbstract_DBISAMDriver_D10.bpl DataAbstract_DBXDriver_D10.bpl DataAbstract_DOADriver_D10.bpl DataAbstract_ElevateDBDriver_D10.bpl DataAbstract_FIBDriver_D10.bpl DataAbstract_IBDACDriver_D10.bpl DataAbstract_IBODriver_D10.bpl DataAbstract_IBXDriver_D10.bpl DataAbstract_MyDACDriver_D10.bpl DataAbstract_MySQLDACDriver_D10.bpl DataAbstract_NexusDBDriver_D10.bpl DataAbstract_ODACDriver_D10.bpl DataAbstract_PgDACDriver_D10.bpl DataAbstract_PostgresDACDriver_D10.bpl DataAbstract_SDACDriver_D10.bpl DataAbstract_SQLiteDriver_D10.bpl DataAbstract_SQLitePassDriver_D10.bpl DataAbstract_UniDACDriver_D10.bpl DataAbstract_ZeosDriver_D10.bpl</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+	<StarTeamAssociation></StarTeamAssociation>
+	<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D11.groupproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D11.groupproj
new file mode 100644
index 0000000..aac2833
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D11.groupproj	
@@ -0,0 +1,300 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{788d1e93-6494-4009-bad7-5d620a616e08}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D11.dproj" />
+    <Projects Include="DataAbstract_Core_D11.dproj" />
+    <Projects Include="DataAbstract_Scripting_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_AbsoluteDBDriver_D11.dproj">
+      <Dependencies>DataAbstract_Core_D11.dproj</Dependencies>
+    </Projects>
+    <Projects Include="Drivers\DataAbstract_ADODriver_D11.dproj">
+      <Dependencies>DataAbstract_Core_D11.dproj</Dependencies>
+    </Projects>
+    <Projects Include="Drivers\DataAbstract_AnyDACDriver_D11.dproj">
+      <Dependencies>DataAbstract_Core_D11.dproj</Dependencies>
+    </Projects>
+    <Projects Include="Drivers\DataAbstract_BDEDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_DBISAMDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_DBXDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_DOADriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_ElevateDBDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_FIBDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_IBDACDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_IBODriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_IBXDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_MyDACDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_MySQLDACDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_NexusDBDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_ODACDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_PgDACDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_PostgresDACDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_SDACDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_SQLiteDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_SQLitePassDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_UniDACDriver_D11.dproj" />
+    <Projects Include="Drivers\DataAbstract_ZeosDriver_D11.dproj" />
+    <Projects Include="IDE\DataAbstract_IDE_D11.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="DataAbstract_Core_D11">
+    <MSBuild Projects="DataAbstract_Core_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_Core_D11:Clean">
+    <MSBuild Projects="DataAbstract_Core_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_Core_D11:Make">
+    <MSBuild Projects="DataAbstract_Core_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="PascalScript_Core_D11">
+    <MSBuild Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="PascalScript_Core_D11:Clean">
+    <MSBuild Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PascalScript_Core_D11:Make">
+    <MSBuild Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_Scripting_D11">
+    <MSBuild Projects="DataAbstract_Scripting_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_Scripting_D11:Clean">
+    <MSBuild Projects="DataAbstract_Scripting_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_Scripting_D11:Make">
+    <MSBuild Projects="DataAbstract_Scripting_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_IDE_D11">
+    <MSBuild Projects="IDE\DataAbstract_IDE_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_IDE_D11:Clean">
+    <MSBuild Projects="IDE\DataAbstract_IDE_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_IDE_D11:Make">
+    <MSBuild Projects="IDE\DataAbstract_IDE_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_AbsoluteDBDriver_D11" DependsOnTargets="DataAbstract_Core_D11">
+    <MSBuild Projects="Drivers\DataAbstract_AbsoluteDBDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_AbsoluteDBDriver_D11:Clean" DependsOnTargets="DataAbstract_Core_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_AbsoluteDBDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_AbsoluteDBDriver_D11:Make" DependsOnTargets="DataAbstract_Core_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_AbsoluteDBDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_ADODriver_D11" DependsOnTargets="DataAbstract_Core_D11">
+    <MSBuild Projects="Drivers\DataAbstract_ADODriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_ADODriver_D11:Clean" DependsOnTargets="DataAbstract_Core_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_ADODriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_ADODriver_D11:Make" DependsOnTargets="DataAbstract_Core_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_ADODriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_AnyDACDriver_D11" DependsOnTargets="DataAbstract_Core_D11">
+    <MSBuild Projects="Drivers\DataAbstract_AnyDACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_AnyDACDriver_D11:Clean" DependsOnTargets="DataAbstract_Core_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_AnyDACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_AnyDACDriver_D11:Make" DependsOnTargets="DataAbstract_Core_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_AnyDACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_BDEDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_BDEDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_BDEDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_BDEDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_BDEDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_BDEDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_DBISAMDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_DBISAMDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_DBISAMDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_DBISAMDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_DBISAMDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_DBISAMDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_DBXDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_DBXDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_DBXDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_DBXDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_DBXDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_DBXDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_DOADriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_DOADriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_DOADriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_DOADriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_DOADriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_DOADriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_ElevateDBDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_ElevateDBDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_ElevateDBDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_ElevateDBDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_ElevateDBDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_ElevateDBDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_IBDACDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_IBDACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_IBDACDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_IBDACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_IBDACDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_IBDACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_IBODriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_IBODriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_IBODriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_IBODriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_IBODriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_IBODriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_IBXDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_IBXDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_IBXDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_IBXDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_IBXDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_IBXDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_FIBDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_FIBDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_FIBDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_FIBDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_FIBDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_FIBDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_MyDACDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_MyDACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_MyDACDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_MyDACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_MyDACDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_MyDACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_MySQLDACDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_MySQLDACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_MySQLDACDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_MySQLDACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_MySQLDACDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_MySQLDACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_NexusDBDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_NexusDBDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_NexusDBDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_NexusDBDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_NexusDBDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_NexusDBDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_ODACDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_ODACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_ODACDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_ODACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_ODACDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_ODACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_PgDACDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_PgDACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_PgDACDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_PgDACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_PgDACDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_PgDACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_PostgresDACDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_PostgresDACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_PostgresDACDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_PostgresDACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_PostgresDACDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_PostgresDACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_SDACDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_SDACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_SDACDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_SDACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_SDACDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_SDACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_SQLitePassDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_SQLitePassDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_SQLitePassDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_SQLitePassDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_SQLitePassDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_SQLitePassDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_SQLiteDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_SQLiteDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_SQLiteDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_SQLiteDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_SQLiteDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_SQLiteDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_UniDACDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_UniDACDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_UniDACDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_UniDACDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_UniDACDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_UniDACDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataAbstract_ZeosDriver_D11">
+    <MSBuild Projects="Drivers\DataAbstract_ZeosDriver_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="DataAbstract_ZeosDriver_D11:Clean">
+    <MSBuild Projects="Drivers\DataAbstract_ZeosDriver_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataAbstract_ZeosDriver_D11:Make">
+    <MSBuild Projects="Drivers\DataAbstract_ZeosDriver_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="DataAbstract_Core_D11;PascalScript_Core_D11;DataAbstract_Scripting_D11;DataAbstract_IDE_D11;DataAbstract_AbsoluteDBDriver_D11;DataAbstract_ADODriver_D11;DataAbstract_AnyDACDriver_D11;DataAbstract_BDEDriver_D11;DataAbstract_DBISAMDriver_D11;DataAbstract_DBXDriver_D11;DataAbstract_DOADriver_D11;DataAbstract_ElevateDBDriver_D11;DataAbstract_IBDACDriver_D11;DataAbstract_IBODriver_D11;DataAbstract_IBXDriver_D11;DataAbstract_FIBDriver_D11;DataAbstract_MyDACDriver_D11;DataAbstract_MySQLDACDriver_D11;DataAbstract_NexusDBDriver_D11;DataAbstract_ODACDriver_D11;DataAbstract_PgDACDriver_D11;DataAbstract_PostgresDACDriver_D11;DataAbstract_SDACDriver_D11;DataAbstract_SQLitePassDriver_D11;DataAbstract_SQLiteDriver_D11;DataAbstract_UniDACDriver_D11;DataAbstract_ZeosDriver_D11" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="DataAbstract_Core_D11:Clean;PascalScript_Core_D11:Clean;DataAbstract_Scripting_D11:Clean;DataAbstract_IDE_D11:Clean;DataAbstract_AbsoluteDBDriver_D11:Clean;DataAbstract_ADODriver_D11:Clean;DataAbstract_AnyDACDriver_D11:Clean;DataAbstract_BDEDriver_D11:Clean;DataAbstract_DBISAMDriver_D11:Clean;DataAbstract_DBXDriver_D11:Clean;DataAbstract_DOADriver_D11:Clean;DataAbstract_ElevateDBDriver_D11:Clean;DataAbstract_IBDACDriver_D11:Clean;DataAbstract_IBODriver_D11:Clean;DataAbstract_IBXDriver_D11:Clean;DataAbstract_FIBDriver_D11:Clean;DataAbstract_MyDACDriver_D11:Clean;DataAbstract_MySQLDACDriver_D11:Clean;DataAbstract_NexusDBDriver_D11:Clean;DataAbstract_ODACDriver_D11:Clean;DataAbstract_PgDACDriver_D11:Clean;DataAbstract_PostgresDACDriver_D11:Clean;DataAbstract_SDACDriver_D11:Clean;DataAbstract_SQLitePassDriver_D11:Clean;DataAbstract_SQLiteDriver_D11:Clean;DataAbstract_UniDACDriver_D11:Clean;DataAbstract_ZeosDriver_D11:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="DataAbstract_Core_D11:Make;PascalScript_Core_D11:Make;DataAbstract_Scripting_D11:Make;DataAbstract_IDE_D11:Make;DataAbstract_AbsoluteDBDriver_D11:Make;DataAbstract_ADODriver_D11:Make;DataAbstract_AnyDACDriver_D11:Make;DataAbstract_BDEDriver_D11:Make;DataAbstract_DBISAMDriver_D11:Make;DataAbstract_DBXDriver_D11:Make;DataAbstract_DOADriver_D11:Make;DataAbstract_ElevateDBDriver_D11:Make;DataAbstract_IBDACDriver_D11:Make;DataAbstract_IBODriver_D11:Make;DataAbstract_IBXDriver_D11:Make;DataAbstract_FIBDriver_D11:Make;DataAbstract_MyDACDriver_D11:Make;DataAbstract_MySQLDACDriver_D11:Make;DataAbstract_NexusDBDriver_D11:Make;DataAbstract_ODACDriver_D11:Make;DataAbstract_PgDACDriver_D11:Make;DataAbstract_PostgresDACDriver_D11:Make;DataAbstract_SDACDriver_D11:Make;DataAbstract_SQLitePassDriver_D11:Make;DataAbstract_SQLiteDriver_D11:Make;DataAbstract_UniDACDriver_D11:Make;DataAbstract_ZeosDriver_D11:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D12.groupproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D12.groupproj
new file mode 100644
index 0000000..d42152f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D12.groupproj	
@@ -0,0 +1,356 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{788d1e93-6494-4009-bad7-5d620a616e08}</ProjectGuid>
+		</PropertyGroup>
+		<ItemGroup>
+			<Projects Include="DataAbstract_Core_D12.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D12.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="DataAbstract_Scripting_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj;..\..\Pascal Script for Delphi\Source\PascalScript_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="IDE\DataAbstract_IDE_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_AbsoluteDBDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_ADODriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_AnyDACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_BDEDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_DOADriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_DBISAMDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_DBXDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_ElevateDBDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_IBDACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_IBODriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_IBXDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_FIBDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_MyDACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_MySQLDACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_NexusDBDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_ODACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_PgDACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_PostgresDACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_SDACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_SQLiteDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_SQLitePassDriver_D12.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_UniDACDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_ZeosDriver_D12.dproj">
+				<Dependencies>DataAbstract_Core_D12.dproj</Dependencies>
+			</Projects>
+		</ItemGroup>
+		<ProjectExtensions>
+			<Borland.Personality>Default.Personality.12</Borland.Personality>
+			<Borland.ProjectType/>
+			<BorlandProject>
+				<BorlandProject>
+					<BorlandProject>
+						<BorlandProject>
+							<BorlandProject>
+								<Default.Personality/>
+							</BorlandProject>
+						</BorlandProject>
+					</BorlandProject>
+				</BorlandProject>
+			</BorlandProject>
+		</ProjectExtensions>
+		<Target Name="DataAbstract_Core_D12">
+			<MSBuild Projects="DataAbstract_Core_D12.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_Core_D12:Clean">
+			<MSBuild Targets="Clean" Projects="DataAbstract_Core_D12.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_Core_D12:Make">
+			<MSBuild Targets="Make" Projects="DataAbstract_Core_D12.dproj"/>
+		</Target>
+		<Target Name="PascalScript_Core_D12">
+			<MSBuild Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D12.dproj"/>
+		</Target>
+		<Target Name="PascalScript_Core_D12:Clean">
+			<MSBuild Targets="Clean" Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D12.dproj"/>
+		</Target>
+		<Target Name="PascalScript_Core_D12:Make">
+			<MSBuild Targets="Make" Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12;PascalScript_Core_D12" Name="DataAbstract_Scripting_D12">
+			<MSBuild Projects="DataAbstract_Scripting_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean;PascalScript_Core_D12:Clean" Name="DataAbstract_Scripting_D12:Clean">
+			<MSBuild Targets="Clean" Projects="DataAbstract_Scripting_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make;PascalScript_Core_D12:Make" Name="DataAbstract_Scripting_D12:Make">
+			<MSBuild Targets="Make" Projects="DataAbstract_Scripting_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_IDE_D12">
+			<MSBuild Projects="IDE\DataAbstract_IDE_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_IDE_D12:Clean">
+			<MSBuild Targets="Clean" Projects="IDE\DataAbstract_IDE_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_IDE_D12:Make">
+			<MSBuild Targets="Make" Projects="IDE\DataAbstract_IDE_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_AbsoluteDBDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_AbsoluteDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_AbsoluteDBDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_AbsoluteDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_AbsoluteDBDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_AbsoluteDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_ADODriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_ADODriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_ADODriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_ADODriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_ADODriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_ADODriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_AnyDACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_AnyDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_AnyDACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_AnyDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_AnyDACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_AnyDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_BDEDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_BDEDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_BDEDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_BDEDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_BDEDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_BDEDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_DOADriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_DOADriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_DOADriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_DOADriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_DOADriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_DOADriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_DBISAMDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_DBISAMDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_DBISAMDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_DBISAMDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_DBISAMDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_DBISAMDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_DBXDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_DBXDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_DBXDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_DBXDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_DBXDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_DBXDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_ElevateDBDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_ElevateDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_ElevateDBDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_ElevateDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_ElevateDBDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_ElevateDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_IBDACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_IBDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_IBDACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_IBDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_IBDACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_IBDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_IBODriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_IBODriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_IBODriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_IBODriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_IBODriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_IBODriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_IBXDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_IBXDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_IBXDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_IBXDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_IBXDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_IBXDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_FIBDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_FIBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_FIBDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_FIBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_FIBDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_FIBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_MyDACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_MyDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_MyDACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_MyDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_MyDACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_MyDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_MySQLDACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_MySQLDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_MySQLDACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_MySQLDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_MySQLDACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_MySQLDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_NexusDBDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_NexusDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_NexusDBDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_NexusDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_NexusDBDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_NexusDBDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_ODACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_ODACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_ODACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_ODACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_ODACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_ODACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_PgDACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_PgDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_PgDACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_PgDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_PgDACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_PgDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_PostgresDACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_PostgresDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_PostgresDACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_PostgresDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_PostgresDACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_PostgresDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_SDACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_SDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_SDACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_SDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_SDACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_SDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_SQLiteDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_SQLiteDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_SQLiteDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_SQLiteDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_SQLiteDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_SQLiteDriver_D12.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_SQLitePassDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_SQLitePassDriver_D12.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_SQLitePassDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_SQLitePassDriver_D12.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_SQLitePassDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_SQLitePassDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_UniDACDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_UniDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_UniDACDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_UniDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_UniDACDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_UniDACDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12" Name="DataAbstract_ZeosDriver_D12">
+			<MSBuild Projects="Drivers\DataAbstract_ZeosDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Clean" Name="DataAbstract_ZeosDriver_D12:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_ZeosDriver_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D12:Make" Name="DataAbstract_ZeosDriver_D12:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_ZeosDriver_D12.dproj"/>
+		</Target>
+		<Target Name="Build">
+			<CallTarget Targets="DataAbstract_Core_D12;PascalScript_Core_D12;DataAbstract_Scripting_D12;DataAbstract_IDE_D12;DataAbstract_AbsoluteDBDriver_D12;DataAbstract_ADODriver_D12;DataAbstract_AnyDACDriver_D12;DataAbstract_BDEDriver_D12;DataAbstract_DOADriver_D12;DataAbstract_DBISAMDriver_D12;DataAbstract_DBXDriver_D12;DataAbstract_ElevateDBDriver_D12;DataAbstract_IBDACDriver_D12;DataAbstract_IBODriver_D12;DataAbstract_IBXDriver_D12;DataAbstract_FIBDriver_D12;DataAbstract_MyDACDriver_D12;DataAbstract_MySQLDACDriver_D12;DataAbstract_NexusDBDriver_D12;DataAbstract_ODACDriver_D12;DataAbstract_PgDACDriver_D12;DataAbstract_PostgresDACDriver_D12;DataAbstract_SDACDriver_D12;DataAbstract_SQLiteDriver_D12;DataAbstract_SQLitePassDriver_D12;DataAbstract_UniDACDriver_D12;DataAbstract_ZeosDriver_D12"/>
+		</Target>
+		<Target Name="Clean">
+			<CallTarget Targets="DataAbstract_Core_D12:Clean;PascalScript_Core_D12:Clean;DataAbstract_Scripting_D12:Clean;DataAbstract_IDE_D12:Clean;DataAbstract_AbsoluteDBDriver_D12:Clean;DataAbstract_ADODriver_D12:Clean;DataAbstract_AnyDACDriver_D12:Clean;DataAbstract_BDEDriver_D12:Clean;DataAbstract_DOADriver_D12:Clean;DataAbstract_DBISAMDriver_D12:Clean;DataAbstract_DBXDriver_D12:Clean;DataAbstract_ElevateDBDriver_D12:Clean;DataAbstract_IBDACDriver_D12:Clean;DataAbstract_IBODriver_D12:Clean;DataAbstract_IBXDriver_D12:Clean;DataAbstract_FIBDriver_D12:Clean;DataAbstract_MyDACDriver_D12:Clean;DataAbstract_MySQLDACDriver_D12:Clean;DataAbstract_NexusDBDriver_D12:Clean;DataAbstract_ODACDriver_D12:Clean;DataAbstract_PgDACDriver_D12:Clean;DataAbstract_PostgresDACDriver_D12:Clean;DataAbstract_SDACDriver_D12:Clean;DataAbstract_SQLiteDriver_D12:Clean;DataAbstract_SQLitePassDriver_D12:Clean;DataAbstract_UniDACDriver_D12:Clean;DataAbstract_ZeosDriver_D12:Clean"/>
+		</Target>
+		<Target Name="Make">
+			<CallTarget Targets="DataAbstract_Core_D12:Make;PascalScript_Core_D12:Make;DataAbstract_Scripting_D12:Make;DataAbstract_IDE_D12:Make;DataAbstract_AbsoluteDBDriver_D12:Make;DataAbstract_ADODriver_D12:Make;DataAbstract_AnyDACDriver_D12:Make;DataAbstract_BDEDriver_D12:Make;DataAbstract_DOADriver_D12:Make;DataAbstract_DBISAMDriver_D12:Make;DataAbstract_DBXDriver_D12:Make;DataAbstract_ElevateDBDriver_D12:Make;DataAbstract_IBDACDriver_D12:Make;DataAbstract_IBODriver_D12:Make;DataAbstract_IBXDriver_D12:Make;DataAbstract_FIBDriver_D12:Make;DataAbstract_MyDACDriver_D12:Make;DataAbstract_MySQLDACDriver_D12:Make;DataAbstract_NexusDBDriver_D12:Make;DataAbstract_ODACDriver_D12:Make;DataAbstract_PgDACDriver_D12:Make;DataAbstract_PostgresDACDriver_D12:Make;DataAbstract_SDACDriver_D12:Make;DataAbstract_SQLiteDriver_D12:Make;DataAbstract_SQLitePassDriver_D12:Make;DataAbstract_UniDACDriver_D12:Make;DataAbstract_ZeosDriver_D12:Make"/>
+		</Target>
+		<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D14.groupproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D14.groupproj
new file mode 100644
index 0000000..18292ee
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D14.groupproj	
@@ -0,0 +1,356 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{788d1e93-6494-4009-bad7-5d620a616e08}</ProjectGuid>
+		</PropertyGroup>
+		<ItemGroup>
+			<Projects Include="DataAbstract_Core_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="DataAbstract_Scripting_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="IDE\DataAbstract_IDE_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_AbsoluteDBDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_ADODriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_AnyDACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_BDEDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_DOADriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_DBISAMDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_DBXDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_ElevateDBDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_IBDACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_IBODriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_IBXDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_FIBDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_MyDACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_MySQLDACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_NexusDBDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_ODACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_PgDACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_PostgresDACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_SDACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_SQLiteDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_SQLitePassDriver_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_UniDACDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+			<Projects Include="Drivers\DataAbstract_ZeosDriver_D14.dproj">
+				<Dependencies>DataAbstract_Core_D14.dproj</Dependencies>
+			</Projects>
+		</ItemGroup>
+		<ProjectExtensions>
+			<Borland.Personality>Default.Personality.12</Borland.Personality>
+			<Borland.ProjectType/>
+			<BorlandProject>
+				<BorlandProject>
+					<BorlandProject>
+						<BorlandProject>
+							<BorlandProject>
+								<Default.Personality/>
+							</BorlandProject>
+						</BorlandProject>
+					</BorlandProject>
+				</BorlandProject>
+			</BorlandProject>
+		</ProjectExtensions>
+		<Target Name="DataAbstract_Core_D14">
+			<MSBuild Projects="DataAbstract_Core_D14.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_Core_D14:Clean">
+			<MSBuild Targets="Clean" Projects="DataAbstract_Core_D14.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_Core_D14:Make">
+			<MSBuild Targets="Make" Projects="DataAbstract_Core_D14.dproj"/>
+		</Target>
+		<Target Name="PascalScript_Core_D14">
+			<MSBuild Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D14.dproj"/>
+		</Target>
+		<Target Name="PascalScript_Core_D14:Clean">
+			<MSBuild Targets="Clean" Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D14.dproj"/>
+		</Target>
+		<Target Name="PascalScript_Core_D14:Make">
+			<MSBuild Targets="Make" Projects="..\..\Pascal Script for Delphi\Source\PascalScript_Core_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_Scripting_D14">
+			<MSBuild Projects="DataAbstract_Scripting_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_Scripting_D14:Clean">
+			<MSBuild Targets="Clean" Projects="DataAbstract_Scripting_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_Scripting_D14:Make">
+			<MSBuild Targets="Make" Projects="DataAbstract_Scripting_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_IDE_D14">
+			<MSBuild Projects="IDE\DataAbstract_IDE_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_IDE_D14:Clean">
+			<MSBuild Targets="Clean" Projects="IDE\DataAbstract_IDE_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_IDE_D14:Make">
+			<MSBuild Targets="Make" Projects="IDE\DataAbstract_IDE_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_AbsoluteDBDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_AbsoluteDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_AbsoluteDBDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_AbsoluteDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_AbsoluteDBDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_AbsoluteDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_ADODriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_ADODriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_ADODriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_ADODriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_ADODriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_ADODriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_AnyDACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_AnyDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_AnyDACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_AnyDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_AnyDACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_AnyDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_BDEDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_BDEDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_BDEDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_BDEDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_BDEDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_BDEDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_DOADriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_DOADriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_DOADriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_DOADriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_DOADriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_DOADriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_DBISAMDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_DBISAMDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_DBISAMDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_DBISAMDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_DBISAMDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_DBISAMDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_DBXDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_DBXDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_DBXDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_DBXDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_DBXDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_DBXDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_ElevateDBDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_ElevateDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_ElevateDBDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_ElevateDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_ElevateDBDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_ElevateDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_IBDACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_IBDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_IBDACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_IBDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_IBDACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_IBDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_IBODriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_IBODriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_IBODriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_IBODriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_IBODriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_IBODriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_IBXDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_IBXDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_IBXDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_IBXDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_IBXDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_IBXDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_FIBDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_FIBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_FIBDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_FIBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_FIBDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_FIBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_MyDACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_MyDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_MyDACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_MyDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_MyDACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_MyDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_MySQLDACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_MySQLDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_MySQLDACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_MySQLDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_MySQLDACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_MySQLDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_NexusDBDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_NexusDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_NexusDBDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_NexusDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_NexusDBDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_NexusDBDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_ODACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_ODACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_ODACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_ODACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_ODACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_ODACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_PgDACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_PgDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_PgDACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_PgDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_PgDACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_PgDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_PostgresDACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_PostgresDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_PostgresDACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_PostgresDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_PostgresDACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_PostgresDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_SDACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_SDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_SDACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_SDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_SDACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_SDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_SQLiteDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_SQLiteDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_SQLiteDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_SQLiteDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_SQLiteDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_SQLiteDriver_D14.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_SQLitePassDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_SQLitePassDriver_D14.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_SQLitePassDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_SQLitePassDriver_D14.dproj"/>
+		</Target>
+		<Target Name="DataAbstract_SQLitePassDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_SQLitePassDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_UniDACDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_UniDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_UniDACDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_UniDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_UniDACDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_UniDACDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14" Name="DataAbstract_ZeosDriver_D14">
+			<MSBuild Projects="Drivers\DataAbstract_ZeosDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Clean" Name="DataAbstract_ZeosDriver_D14:Clean">
+			<MSBuild Targets="Clean" Projects="Drivers\DataAbstract_ZeosDriver_D14.dproj"/>
+		</Target>
+		<Target DependsOnTargets="DataAbstract_Core_D14:Make" Name="DataAbstract_ZeosDriver_D14:Make">
+			<MSBuild Targets="Make" Projects="Drivers\DataAbstract_ZeosDriver_D14.dproj"/>
+		</Target>
+		<Target Name="Build">
+			<CallTarget Targets="DataAbstract_Core_D14;PascalScript_Core_D14;DataAbstract_Scripting_D14;DataAbstract_IDE_D14;DataAbstract_AbsoluteDBDriver_D14;DataAbstract_ADODriver_D14;DataAbstract_AnyDACDriver_D14;DataAbstract_BDEDriver_D14;DataAbstract_DOADriver_D14;DataAbstract_DBISAMDriver_D14;DataAbstract_DBXDriver_D14;DataAbstract_ElevateDBDriver_D14;DataAbstract_IBDACDriver_D14;DataAbstract_IBODriver_D14;DataAbstract_IBXDriver_D14;DataAbstract_FIBDriver_D14;DataAbstract_MyDACDriver_D14;DataAbstract_MySQLDACDriver_D14;DataAbstract_NexusDBDriver_D14;DataAbstract_ODACDriver_D14;DataAbstract_PgDACDriver_D14;DataAbstract_PostgresDACDriver_D14;DataAbstract_SDACDriver_D14;DataAbstract_SQLiteDriver_D14;DataAbstract_SQLitePassDriver_D14;DataAbstract_UniDACDriver_D14;DataAbstract_ZeosDriver_D14"/>
+		</Target>
+		<Target Name="Clean">
+			<CallTarget Targets="DataAbstract_Core_D14:Clean;PascalScript_Core_D14:Clean;DataAbstract_Scripting_D14:Clean;DataAbstract_IDE_D14:Clean;DataAbstract_AbsoluteDBDriver_D14:Clean;DataAbstract_ADODriver_D14:Clean;DataAbstract_AnyDACDriver_D14:Clean;DataAbstract_BDEDriver_D14:Clean;DataAbstract_DOADriver_D14:Clean;DataAbstract_DBISAMDriver_D14:Clean;DataAbstract_DBXDriver_D14:Clean;DataAbstract_ElevateDBDriver_D14:Clean;DataAbstract_IBDACDriver_D14:Clean;DataAbstract_IBODriver_D14:Clean;DataAbstract_IBXDriver_D14:Clean;DataAbstract_FIBDriver_D14:Clean;DataAbstract_MyDACDriver_D14:Clean;DataAbstract_MySQLDACDriver_D14:Clean;DataAbstract_NexusDBDriver_D14:Clean;DataAbstract_ODACDriver_D14:Clean;DataAbstract_PgDACDriver_D14:Clean;DataAbstract_PostgresDACDriver_D14:Clean;DataAbstract_SDACDriver_D14:Clean;DataAbstract_SQLiteDriver_D14:Clean;DataAbstract_SQLitePassDriver_D14:Clean;DataAbstract_UniDACDriver_D14:Clean;DataAbstract_ZeosDriver_D14:Clean"/>
+		</Target>
+		<Target Name="Make">
+			<CallTarget Targets="DataAbstract_Core_D14:Make;PascalScript_Core_D14:Make;DataAbstract_Scripting_D14:Make;DataAbstract_IDE_D14:Make;DataAbstract_AbsoluteDBDriver_D14:Make;DataAbstract_ADODriver_D14:Make;DataAbstract_AnyDACDriver_D14:Make;DataAbstract_BDEDriver_D14:Make;DataAbstract_DOADriver_D14:Make;DataAbstract_DBISAMDriver_D14:Make;DataAbstract_DBXDriver_D14:Make;DataAbstract_ElevateDBDriver_D14:Make;DataAbstract_IBDACDriver_D14:Make;DataAbstract_IBODriver_D14:Make;DataAbstract_IBXDriver_D14:Make;DataAbstract_FIBDriver_D14:Make;DataAbstract_MyDACDriver_D14:Make;DataAbstract_MySQLDACDriver_D14:Make;DataAbstract_NexusDBDriver_D14:Make;DataAbstract_ODACDriver_D14:Make;DataAbstract_PgDACDriver_D14:Make;DataAbstract_PostgresDACDriver_D14:Make;DataAbstract_SDACDriver_D14:Make;DataAbstract_SQLiteDriver_D14:Make;DataAbstract_SQLitePassDriver_D14:Make;DataAbstract_UniDACDriver_D14:Make;DataAbstract_ZeosDriver_D14:Make"/>
+		</Target>
+		<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D6.bpg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D6.bpg
new file mode 100644
index 0000000..08ba77e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D6.bpg	
@@ -0,0 +1,96 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DataAbstract_Core_D6.bpl DataAbstract_Scripting_D6.bpl \
+  DataAbstract_IDE_D6.bpl DataAbstract_ADODriver_D6.bpl \
+  DataAbstract_AnyDACDriver_D6.bpl DataAbstract_BDEDriver_D6.bpl \
+  DataAbstract_DBISAMDriver_D6.bpl DataAbstract_DBXDriver_D6.bpl \
+  DataAbstract_DOADriver_D6.bpl DataAbstract_ElevateDBDriver_D6.bpl \
+  DataAbstract_FIBDriver_D6.bpl DataAbstract_IBDACDriver_D6.bpl \
+  DataAbstract_IBODriver_D6.bpl DataAbstract_IBXDriver_D6.bpl \
+  DataAbstract_MyDACDriver_D6.bpl DataAbstract_MySQLDACDriver_D6.bpl \
+  DataAbstract_NexusDBDriver_D6.bpl DataAbstract_ODACDriver_D6.bpl \
+  DataAbstract_PostgresDACDriver_D6.bpl DataAbstract_SDACDriver_D6.bpl \
+  DataAbstract_SQLiteDriver_D6.bpl DataAbstract_ZeosDriver_D6.bpl
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DataAbstract_Core_D6.bpl: DataAbstract_Core_D6.dpk
+  $(DCC)
+
+DataAbstract_IDE_D6.bpl: IDE\DataAbstract_IDE_D6.dpk
+  $(DCC)
+
+DataAbstract_ADODriver_D6.bpl: Drivers\DataAbstract_ADODriver_D6.dpk
+  $(DCC)
+
+DataAbstract_IBXDriver_D6.bpl: Drivers\DataAbstract_IBXDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_SDACDriver_D6.bpl: Drivers\DataAbstract_SDACDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_DBXDriver_D6.bpl: Drivers\DataAbstract_DBXDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_ODACDriver_D6.bpl: Drivers\DataAbstract_ODACDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_IBODriver_D6.bpl: Drivers\DataAbstract_IBODriver_D6.dpk
+  $(DCC)
+
+DataAbstract_DBISAMDriver_D6.bpl: Drivers\DataAbstract_DBISAMDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_MyDACDriver_D6.bpl: Drivers\DataAbstract_MyDACDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_Scripting_D6.bpl: DataAbstract_Scripting_D6.dpk
+  $(DCC)
+
+PascalScript_Core_D6.bpl: ..\..\Pascal Script for Delphi\Source\PascalScript_Core_D6.dpk
+  $(DCC)
+
+DataAbstract_FIBDriver_D6.bpl: Drivers\DataAbstract_FIBDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_IBDACDriver_D6.bpl: Drivers\DataAbstract_IBDACDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_BDEDriver_D6.bpl: Drivers\DataAbstract_BDEDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_ZeosDriver_D6.bpl: Drivers\DataAbstract_ZeosDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_MySQLDACDriver_D6.bpl: Drivers\DataAbstract_MySQLDACDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_NexusDBDriver_D6.bpl: Drivers\DataAbstract_NexusDBDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_SQLiteDriver_D6.bpl: Drivers\DataAbstract_SQLiteDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_PostgresDACDriver_D6.bpl: Drivers\DataAbstract_PostgresDACDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_ElevateDBDriver_D6.bpl: Drivers\DataAbstract_ElevateDBDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_AnyDACDriver_D6.bpl: Drivers\DataAbstract_AnyDACDriver_D6.dpk
+  $(DCC)
+
+DataAbstract_DOADriver_D6.bpl: Drivers\DataAbstract_DOADriver_D6.dpk
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D7.bpg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D7.bpg
new file mode 100644
index 0000000..54b7c70
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_D7.bpg	
@@ -0,0 +1,110 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DataAbstract_Core_D7.bpl DataAbstract_Scripting_D7.bpl \
+  DataAbstract_IDE_D7.bpl DataAbstract_AbsoluteDBDriver_D7.bpl \
+  DataAbstract_ADODriver_D7.bpl DataAbstract_AnyDACDriver_D7.bpl \
+  DataAbstract_BDEDriver_D7.bpl DataAbstract_DBISAMDriver_D7.bpl \
+  DataAbstract_DBXDriver_D7.bpl DataAbstract_DOADriver_D7.bpl \
+  DataAbstract_ElevateDBDriver_D7.bpl DataAbstract_FIBDriver_D7.bpl \
+  DataAbstract_IBDACDriver_D7.bpl DataAbstract_IBODriver_D7.bpl \
+  DataAbstract_IBXDriver_D7.bpl DataAbstract_MyDACDriver_D7.bpl \
+  DataAbstract_MySQLDACDriver_D7.bpl DataAbstract_NexusDBDriver_D7.bpl \
+  DataAbstract_ODACDriver_D7.bpl DataAbstract_PgDACDriver_D7.bpl \
+  DataAbstract_PostgresDACDriver_D7.bpl DataAbstract_SDACDriver_D7.bpl \
+  DataAbstract_SQLiteDriver_D7.bpl DataAbstract_SQLitePassDriver_D7.bpl \
+  DataAbstract_UniDACDriver_D7.bpl DataAbstract_ZeosDriver_D7.bpl
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DataAbstract_Core_D7.bpl: DataAbstract_Core_D7.dpk
+  $(DCC)
+
+DataAbstract_IDE_D7.bpl: IDE\DataAbstract_IDE_D7.dpk
+  $(DCC)
+
+DataAbstract_ADODriver_D7.bpl: Drivers\DataAbstract_ADODriver_D7.dpk
+  $(DCC)
+
+DataAbstract_IBXDriver_D7.bpl: Drivers\DataAbstract_IBXDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_SDACDriver_D7.bpl: Drivers\DataAbstract_SDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_DBXDriver_D7.bpl: Drivers\DataAbstract_DBXDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_ODACDriver_D7.bpl: Drivers\DataAbstract_ODACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_IBODriver_D7.bpl: Drivers\DataAbstract_IBODriver_D7.dpk
+  $(DCC)
+
+DataAbstract_DBISAMDriver_D7.bpl: Drivers\DataAbstract_DBISAMDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_MyDACDriver_D7.bpl: Drivers\DataAbstract_MyDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_Scripting_D7.bpl: DataAbstract_Scripting_D7.dpk
+  $(DCC)
+
+PascalScript_Core_D7.bpl: ..\..\Pascal Script for Delphi\Source\PascalScript_Core_D7.dpk
+  $(DCC)
+
+DataAbstract_FIBDriver_D7.bpl: Drivers\DataAbstract_FIBDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_IBDACDriver_D7.bpl: Drivers\DataAbstract_IBDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_BDEDriver_D7.bpl: Drivers\DataAbstract_BDEDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_ZeosDriver_D7.bpl: Drivers\DataAbstract_ZeosDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_MySQLDACDriver_D7.bpl: Drivers\DataAbstract_MySQLDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_NexusDBDriver_D7.bpl: Drivers\DataAbstract_NexusDBDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_SQLiteDriver_D7.bpl: Drivers\DataAbstract_SQLiteDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_PostgresDACDriver_D7.bpl: Drivers\DataAbstract_PostgresDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_ElevateDBDriver_D7.bpl: Drivers\DataAbstract_ElevateDBDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_AnyDACDriver_D7.bpl: Drivers\DataAbstract_AnyDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_DOADriver_D7.bpl: Drivers\DataAbstract_DOADriver_D7.dpk
+  $(DCC)
+
+DataAbstract_AbsoluteDBDriver_D7.bpl: Drivers\DataAbstract_AbsoluteDBDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_PgDACDriver_D7.bpl: Drivers\DataAbstract_PgDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_UniDACDriver_D7.bpl: Drivers\DataAbstract_UniDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_SQLitePassDriver_D7.bpl: Drivers\DataAbstract_SQLitePassDriver_D7.dpk
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_K3.bpg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_K3.bpg
new file mode 100644
index 0000000..6649fe0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/BuildPackages_K3.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DataAbstract_Core_K3.bpl bplDataAbstract_IDE_K3.so
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DataAbstract_Core_K3.bpl: DataAbstract_Core_K3.dpk
+	$(DCC)
+
+bplDataAbstract_IDE_K3.so: IDE/DataAbstract_IDE_K3.dpk
+	$(DCC)
+
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DALoginService_Impl.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DALoginService_Impl.pas
new file mode 100644
index 0000000..2d93706
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DALoginService_Impl.pas	
@@ -0,0 +1,230 @@
+unit DALoginService_Impl {$IFNDEF FPC}deprecated{$ENDIF};
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROSessions,
+  {Ancestor Implementation:} DARemoteService_Impl,
+  {Generated:} DataAbstract3_Intf;
+
+const
+  def_UserID    = 'UserID';
+  def_Password  = 'UserPassword';
+  def_SessionID = 'SessionID';
+
+type
+  TDALoginService = class;
+
+  TDAOnLoginEvent = procedure(Sender : TDALoginService; var aUserID, aPassword : AnsiString) of object;
+  TDAOnLoginSuccessEvent = procedure(Sender : TDALoginService; aLoginInfo : TDALoginInfo) of object;
+  TDAOnLoginFailureEvent = procedure(Sender : TDALoginService; const aUserID, aPassword : AnsiString) of object;
+  TDAOnLogoutEvent = procedure(Sender : TDALoginService; const aSessionID : TGUID) of object;
+
+  { TDALoginService }
+  TDALoginService = class(TDARemoteService, IDALoginService)
+  private
+    fLoginDataset: string;
+    fLogoutCommand: string;
+    fOnLogin: TDAOnLoginEvent;
+    fOnLoginFailure: TDAOnLoginFailureEvent;
+    fOnLoginSuccess: TDAOnLoginSuccessEvent;
+    fOnLogout: TDAOnLogoutEvent;
+    fParamNameUserID: string;
+    fParamNamePassword: string;
+    fParamNameSessionID: string;
+    function GetParamNamePasswordStored: Boolean;
+    function GetParamNameUserIDStored: Boolean;
+    function GetParamNameSessionIDStored: Boolean;
+    procedure SetParamNameSessionID(const Value: string);
+
+  protected
+    procedure SetLoginDataset(const Value: string); virtual;
+    procedure SetLogoutCommand(const Value: string); virtual;
+
+    procedure SetParamNamePassword(const Value: string); virtual;
+    procedure SetParamNameUserID(const Value: string); virtual;
+
+    function DoLogin(const UserID, Password: AnsiString; out LoginInfo: TDALoginInfo): boolean; virtual;
+    procedure DoLogout(const SessionID : TGUID); virtual;
+
+    { IDALoginService methods }
+    function Login(const UserID: AnsiString; const Password: AnsiString; out LoginInfo: TDALoginInfo): Boolean;
+    procedure Logout;
+
+  public
+    constructor Create(aOwner : TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property LoginDataset : string read fLoginDataset write SetLoginDataset;
+    property LogoutCommand : string read fLogoutCommand write SetLogoutCommand;
+
+    property ParamNameUserID : string read fParamNameUserID write SetParamNameUserID stored GetParamNameUserIDStored;
+    property ParamNamePassword : string read fParamNamePassword write SetParamNamePassword stored GetParamNamePasswordStored;
+    property ParamNameSessionID : string read fParamNameSessionID write SetParamNameSessionID stored GetParamNameSessionIDStored;
+
+    property OnLogin: TDAOnLoginEvent read fOnLogin write fOnLogin;
+    property OnLoginSuccess: TDAOnLoginSuccessEvent read fOnLoginSuccess write fOnLoginSuccess;
+    property OnLoginFailure: TDAOnLoginFailureEvent read fOnLoginFailure write fOnLoginFailure;
+    property OnLogout: TDAOnLogoutEvent read fOnLogout write fOnLogout;
+  end deprecated;
+
+implementation
+
+uses
+  {Generated:} uDAInterfaces, uROClasses;
+
+{ DALoginService }
+procedure TDALoginService.Assign(Source: TPersistent);
+var
+  lSource: TDALoginService;
+begin
+  inherited;
+  if Source is TDALoginService then begin
+    lSource := TDALoginService(Source);
+
+    LoginDataset := lSource.LoginDataset;
+    LogoutCommand := lSource.LogoutCommand;
+    OnLogin := lSource.OnLogin;
+    OnLoginFailure := lSource.OnLoginFailure;
+    OnLoginSuccess := lSource.OnLoginSuccess;
+    OnLogout := lSource.OnLogout;
+    ParamNamePassword := lSource.ParamNamePassword;
+    ParamNameSessionID := lSource.ParamNameSessionID;
+    ParamNameUserID := lSource.ParamNameUserID;
+  end;
+end;
+
+constructor TDALoginService.Create(aOwner: TComponent);
+begin
+  fParamNameUserID := def_UserID;
+  fParamNamePassword := def_Password;
+  fParamNameSessionID := def_SessionID;
+  
+  inherited;
+end;
+
+procedure TDALoginService.SetLoginDataset(const Value: string);
+begin
+  fLoginDataset := Value;
+end;
+
+procedure TDALoginService.SetLogoutCommand(const Value: string);
+begin
+  fLogoutCommand := Value;
+end;
+
+function TDALoginService.Login(const UserID: AnsiString; const Password: AnsiString; out LoginInfo: TDALoginInfo): Boolean;
+var tempuserid, temppassword : AnsiString;
+begin
+  tempuserid := UserID;
+  temppassword := Password;
+
+  CheckObjects(Connection, ServiceSchema, NIL, TRUE, TRUE, FALSE);
+
+  if Assigned(fOnLogin) then fOnLogin(Self, tempuserid, temppassword);
+
+  result := DoLogin(tempuserid, temppassword, LoginInfo);
+
+  if not result then begin
+    DestroySession;
+    if Assigned(fOnLoginFailure) then fOnLoginFailure(Self, tempuserid, temppassword);
+  end
+  else begin
+    if Assigned(fOnLoginSuccess) then fOnLoginSuccess(Self, LoginInfo);
+  end;
+end;
+
+procedure TDALoginService.Logout;
+begin
+  if (LogoutCommand<>'')
+    then CheckObjects(Connection, ServiceSchema, NIL, TRUE, TRUE, FALSE);
+
+  if Assigned(fOnLogout)
+    then fOnLogout(Self, Session.SessionID);
+
+  DoLogout(Session.SessionID);
+
+  DestroySession;
+end;
+
+function TDALoginService.DoLogin(const UserID: AnsiString; const Password: AnsiString; out LoginInfo: TDALoginInfo): boolean;
+var ds : IDADataset;
+    i : integer;
+begin
+  result := FALSE;
+  LoginInfo := NIL;
+
+  ds := ServiceSchema.NewDataset(Connection, LoginDataset, [ParamNameUserID, ParamNamePassword], [UserID, Password]);
+  if ds.EOF then Exit;
+
+  LoginInfo := TDALoginInfo.Create;
+  LoginInfo.UserID := UserID;
+  LoginInfo.SessionID := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(GUIDToString(Session.SessionID));
+
+  for i := 0 to (ds.FieldCount-1) do begin
+    Session[ds.Fields[i].Name] := ds.Fields[i].Value;
+    LoginInfo.Attributes.Add({$IFDEF UNICODE}UTF8Encode{$ENDIF}(ds.Fields[i].Name+'='+ds.Fields[i].AsString));
+  end;
+
+  result := TRUE;
+end;
+
+procedure TDALoginService.DoLogout(const SessionID: TGUID);
+var cmd : IDASQLCommand;
+begin
+  if (LogoutCommand<>'')
+    then cmd := ServiceSchema.NewCommand(Connection, LogoutCommand, [ParamNameSessionID], [GUIDToString(SessionID)]);
+    
+  if Not Connection.InTransaction then
+    Connection.BeginTransaction;
+  try
+    cmd.Execute;
+    Connection.CommitTransaction;
+  except
+    Connection.RollbackTransaction;
+    raise;
+  end;
+    
+end;
+
+procedure TDALoginService.SetParamNamePassword(const Value: string);
+begin
+  fParamNamePassword := Value;
+end;
+
+procedure TDALoginService.SetParamNameUserID(const Value: string);
+begin
+  fParamNameUserID := Value;
+end;
+
+function TDALoginService.GetParamNamePasswordStored: Boolean;
+begin
+  result := fParamNamePassword<>def_Password
+end;
+
+function TDALoginService.GetParamNameUserIDStored: Boolean;
+begin
+  result := fParamNameUserID<>def_UserID
+end;
+
+function TDALoginService.GetParamNameSessionIDStored: Boolean;
+begin
+  result := fParamNameSessionID<>def_SessionID
+end;
+
+procedure TDALoginService.SetParamNameSessionID(const Value: string);
+begin
+  fParamNameSessionID := Value;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DARemoteService_Impl.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DARemoteService_Impl.pas
new file mode 100644
index 0000000..aee9793
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DARemoteService_Impl.pas	
@@ -0,0 +1,1150 @@
+unit DARemoteService_Impl {$IFNDEF FPC}deprecated{$ENDIF};
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ LEGACY NOTE:                                                               }
+{   As of v4.0, future development of this unit has been discontinued, and   }
+{   new featureswill be impleentd in DataAbstractService_Impl.pas, instead.  }
+{                                                                            }
+{   When applying fixes to this unit, please propagate them to the new unit  }
+{   as well, where needed.                                                   }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, SysUtils, 
+  {$IFDEF DELPHI5}Forms, {$ENDIF}
+  uRORemoteDataModule, uROClientIntf, uROSessions, uROClasses, uROTypes,
+  uDAClasses, uDAInterfaces, uDADataTable, uDABusinessProcessor, uDACache, uDADelta, uDADataStreamer,
+  uDADataTableReferenceCollection, DataAbstract3_Intf;
+
+type
+  { Types }
+  TDARemoteService = class;
+
+  { Events }
+  TDAAcquireConnectionEvent = procedure(Sender: TDARemoteService; var ConnectionName: string) of object;
+  TDAConnectionAcquiredEvent = procedure(Sender: TDARemoteService; const ConnectionName: string; const AcquiredConnection: IDAConnection) of object;
+  TDAAcquireConnectionFailureEvent = procedure(Sender: TDARemoteService; const ConnectionName: string; Error: Exception) of object;
+  TDAGetDatasetSchemaEvent = procedure(const Dataset: IDADataset) of object;
+  TDAGetDatasetDataEvent = procedure(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer) of object;
+  TDAOnBusinessProcessorAutoCreated = procedure(Sender : TRORemoteDataModule; BusinessProcessor : TDABusinessProcessor) of object;
+  TDABeforeExecuteCommandEvent = procedure(Sender : TDARemoteService; const aCommand : IDASQLCommand) of object;
+  TDAAfterExecuteCommandEvent = procedure(Sender : TDARemoteService; const aCommand : IDASQLCommand; RowsAffacted : integer) of object;
+  TDAConnectionReleasedEvent = procedure(Sender: TDARemoteService; const ConnectionName: string) of object;
+  TDAGetSchemaAsXMLEvent = procedure(Sender: TDARemoteService; var SchemaXML : AnsiString) of object;
+
+  TDAProcessDeltasEvent = procedure(Sender : TDARemoteService; DeltaStructs : TDADeltaStructList) of object;
+  TDAProcessDeltasErrorEvent = procedure(Sender : TDARemoteService; DeltaStructs : TDADeltaStructList; Error : Exception; var DoRaise : boolean) of object;
+
+  TDAOnGetCachedDataset = procedure(Sender : TDARemoteService; const aDatasetName : string; aDataStream : TStream) of object;
+
+  TDAGetDatasetDataValidationEvent = procedure(Sender: TDARemoteService;
+                                          const aConnection: IDAConnection;
+                                          const aDatasetName: string;
+                                          const aParamNames: array of string;
+                                          const aParamValues : array of variant;
+                                          aSchema: TDASchema;
+                                          var Allowed : boolean) of object;
+
+  TDAUpdateDataTransactionEvent = procedure(Sender: TDARemoteService; var UseDefaultTransactionLogic: Boolean) of object;
+
+  TDAAfterProcessTransactionAction = (pptaNone, pptaRollback, pptaCommit);
+
+  { TDARemoteService }
+  TDARemoteServiceOption = (rsoProcessDeltasWithoutUpdateRules);
+  TDARemoteServiceOptions = set of TDARemoteServiceOption;
+
+  TDARemoteService = class(TRORemoteDataModule, IDARemoteService)
+  private
+    fServiceSchema: TDASchema;
+
+    fStreamedAcquireConnection,
+    fAcquireConnection: boolean;
+    fConnectionName: string;
+    fOnBeforeAcquireConnection: TDAAcquireConnectionEvent;
+    fOnAfterAcquireConnection: TDAConnectionAcquiredEvent;
+    fOnAfterReleaseConnection: TDAConnectionReleasedEvent;
+    fOnBeforeReleaseConnection: TDAConnectionAcquiredEvent;
+    fConnection: IDAConnection;
+    fServiceAdapter: TDADataStreamer;
+    fOnAcquireConnectionFailure: TDAAcquireConnectionFailureEvent;
+
+    fOnAfterGetDatasetData: TDAGetDatasetDataEvent;
+    fOnBeforeGetDatasetData: TDAGetDatasetDataEvent;
+    fOnAfterGetDatasetSchema: TDAGetDatasetSchemaEvent;
+    fOnBeforeGetDatasetSchema: TDAGetDatasetSchemaEvent;
+    fAutoCreateBusinessProcessors: boolean;
+    fAllowExecuteSQLCommand: boolean;
+    fAllowWhereSQL: boolean;
+    fOnBusinessProcessorAutoCreated: TDAOnBusinessProcessorAutoCreated;
+    fOnBeforeExecuteCommand: TDABeforeExecuteCommandEvent;
+    fOnAfterExecuteCommand: TDAAfterExecuteCommandEvent;
+    fOnGetSchemaAsXML: TDAGetSchemaAsXMLEvent;
+
+    fGetDatasetDataValidation: TDAGetDatasetDataValidationEvent;
+
+    fAfterProcessTransactionAction: TDAAfterProcessTransactionAction;
+
+    fOnUpdateDataBeginTransaction    : TDAUpdateDataTransactionEvent;
+    fOnUpdateDataCommitTransaction   : TDAUpdateDataTransactionEvent;
+    fOnUpdateDataRollBackTransaction : TDAUpdateDataTransactionEvent;
+
+    fOnBeforeProcessDeltas : TDAProcessDeltasEvent;
+    fOnAfterProcessDeltas: TDAProcessDeltasEvent;
+    fOnProcessDeltasError: TDAProcessDeltasErrorEvent;
+    fExportedDataTables: TDADataTableReferenceCollection;
+    fCache: TDACache;
+    fCacheElements: TDACacheElementCollection;
+    fOnGetCachedDataset: TDAOnGetCachedDataset;
+    fOptions: TDARemoteServiceOptions;
+
+    function TriggerTransactionEvent(aEvent: TDAUpdateDataTransactionEvent): Boolean;
+    procedure SetServiceSchema(const Value: TDASchema);
+    procedure SetAcquireConnection(const Value: boolean);
+    procedure SetConnectionName(const Value: string);
+    procedure SetServiceAdapter(const Value: TDADataAdapter);
+    function UnpackDeltas(const DeltaStream: Binary; DeltaStructList : TDADeltaStructList): integer;
+    procedure SetExportedDataTables(const Value: TDADataTableReferenceCollection);
+    procedure MergeDatatablesToSchema(aList : TList);
+    procedure SetCache(const Value: TDACache);
+    procedure SetCacheElements(const Value: TDACacheElementCollection);
+    procedure SetConnection(const aValue: IDAConnection);
+
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure Loaded; override;
+
+    procedure CheckObjects(const aConnection: IDAConnection;
+      aSchema: TDASchema; anAdapter: TDADataAdapter;
+      CheckConnection : boolean = TRUE;
+      CheckSchema : boolean = TRUE;
+      CheckAdapter : boolean = TRUE);
+
+    { Internal }
+    procedure DoOnActivate(aClientID: TGUID; const aMessage: IROMessage); override;
+    procedure DoOnDeactivate(aClientID: TGUID); override;
+
+    function DoGetDatasetData(const Stream: TStream;
+      const aConnection: IDAConnection;
+      const aDatasetName: ansistring;
+      const aParamNames: array of string;
+      const aParamValues : array of variant;
+      const UserFilter : ansistring;
+      aSchema: TDASchema;
+      anAdapter: TDADataAdapter;
+      someOptions: TDAWriteOptions;
+      MaxRecords: integer): integer; virtual;
+
+    function CreateParamString(const ParamNames: array of string; const ParamValues: array of Variant): string;
+
+    function GetDatasetData(const DatasetName: ansistring;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      const IncludeSchema: Boolean = FALSE;
+      const MaxRecords: Integer = -1): Binary; overload;
+    function GetDatasetData(const DatasetName: Ansistring;
+      const IncludeSchema: Boolean = FALSE;
+      const MaxRecords: Integer = -1): Binary; overload;
+
+    { IDARemoteService }
+    function GetDatasetSchema(const aDatasetName: AnsiString): Binary; virtual;
+    function GetDatasetData(const DatasetName: AnsiString;
+      const Params: AnsiString;
+      const IncludeSchema: Boolean;
+      const MaxRecords: Integer): Binary; overload; virtual;
+    function UpdateData(const Delta: Binary): Binary; virtual;
+    function ExecuteSQLCommand(const SQL: AnsiString): Integer; virtual;
+    function GetSchemaAsXML: AnsiString; virtual;
+    function GetDatasetDataEx(const DatasetName: AnsiString;
+                              const Params: TDADatasetParamArray;
+                              const UserFilter: AnsiString;
+                              const IncludeSchema: Boolean;
+                              const MaxRecords: Integer): Binary;
+    function GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray): TROBinaryMemoryStream;
+    function GetDatasetScripts(const DatasetNames: AnsiString): AnsiString;
+    function ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray): Integer;
+
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    property Connection: IDAConnection read fConnection write SetConnection;
+
+  published
+    property AcquireConnection: boolean read fAcquireConnection write SetAcquireConnection default false;
+    property ConnectionName: string read fConnectionName write SetConnectionName;
+
+    property ServiceSchema: TDASchema read fServiceSchema write SetServiceSchema;
+    property ServiceAdapter: TDADataAdapter read fServiceAdapter write SetServiceAdapter;
+
+    property AutoCreateBusinessProcessors : boolean read fAutoCreateBusinessProcessors write fAutoCreateBusinessProcessors default true;
+    property AllowExecuteSQLCommand: boolean read fAllowExecuteSQLCommand write fAllowExecuteSQLCommand default false;
+    property AllowWhereSQL: boolean read fAllowWhereSQL write fAllowWhereSQL default true;
+
+    property OnAfterProcessTransactionAction: TDAAfterProcessTransactionAction read fAfterProcessTransactionAction write fAfterProcessTransactionAction default pptaCommit;
+
+    property OnBeforeAcquireConnection: TDAAcquireConnectionEvent read fOnBeforeAcquireConnection write fOnBeforeAcquireConnection;
+    property OnAfterAcquireConnection: TDAConnectionAcquiredEvent read fOnAfterAcquireConnection write fOnAfterAcquireConnection;
+    property OnBeforeReleaseConnection: TDAConnectionAcquiredEvent read fOnBeforeReleaseConnection write fOnBeforeReleaseConnection;
+    property OnAfterReleaseConnection: TDAConnectionReleasedEvent read fOnAfterReleaseConnection write fOnAfterReleaseConnection;
+    property OnAcquireConnectionFailure: TDAAcquireConnectionFailureEvent read fOnAcquireConnectionFailure write fOnAcquireConnectionFailure;
+
+    property OnBeforeProcessDeltas : TDAProcessDeltasEvent read fOnBeforeProcessDeltas write fOnBeforeProcessDeltas;
+    property OnAfterProcessDeltas: TDAProcessDeltasEvent read fOnAfterProcessDeltas write fOnAfterProcessDeltas;
+    property OnProcessDeltasError: TDAProcessDeltasErrorEvent read fOnProcessDeltasError write fOnProcessDeltasError;
+
+    property OnBeforeGetDatasetSchema: TDAGetDatasetSchemaEvent read fOnBeforeGetDatasetSchema write fOnBeforeGetDatasetSchema;
+    property OnBeforeGetDatasetData: TDAGetDatasetDataEvent read fOnBeforeGetDatasetData write fOnBeforeGetDatasetData;
+    property OnAfterGetDatasetSchema: TDAGetDatasetSchemaEvent read fOnAfterGetDatasetSchema write fOnAfterGetDatasetSchema;
+    property OnAfterGetDatasetData: TDAGetDatasetDataEvent read fOnAfterGetDatasetData write fOnAfterGetDatasetData;
+    property OnBusinessProcessorAutoCreated: TDAOnBusinessProcessorAutoCreated read fOnBusinessProcessorAutoCreated write fOnBusinessProcessorAutoCreated;
+    property OnBeforeExecuteCommand: TDABeforeExecuteCommandEvent read fOnBeforeExecuteCommand write fOnBeforeExecuteCommand;
+    property OnAfterExecuteCommand: TDAAfterExecuteCommandEvent read fOnAfterExecuteCommand write fOnAfterExecuteCommand;
+    property OnGetSchemaAsXMLEvent: TDAGetSchemaAsXMLEvent read fOnGetSchemaAsXML write fOnGetSchemaAsXML;
+    property GetDatasetDataValidation: TDAGetDatasetDataValidationEvent read fGetDatasetDataValidation write fGetDatasetDataValidation;
+
+    property OnUpdateDataBeginTransaction    : TDAUpdateDataTransactionEvent read fOnUpdateDataBeginTransaction write fOnUpdateDataBeginTransaction;
+    property OnUpdateDataCommitTransaction   : TDAUpdateDataTransactionEvent read fOnUpdateDataCommitTransaction write fOnUpdateDataCommitTransaction;
+    property OnUpdateDataRollBackTransaction : TDAUpdateDataTransactionEvent read fOnUpdateDataRollBackTransaction write fOnUpdateDataRollBackTransaction;
+
+    property ExportedDataTables : TDADataTableReferenceCollection read fExportedDataTables write SetExportedDataTables;
+    property Cache : TDACache read fCache write SetCache;
+    property CacheElements : TDACacheElementCollection read fCacheElements write SetCacheElements;
+    property OnGetCachedDataset : TDAOnGetCachedDataset read fOnGetCachedDataset write fOnGetCachedDataset;
+
+    property Options : TDARemoteServiceOptions read fOptions write fOptions;
+  end deprecated;
+
+implementation
+
+uses
+  Contnrs, Variants, TypInfo,
+  uROClient,
+  uDARes, uDAExceptions;
+
+{ TDARemoteService }
+
+constructor TDARemoteService.Create(aOwner: TComponent);
+begin
+  fExportedDataTables := TDADataTableReferenceCollection.Create(Self);
+  fCacheElements := TDACacheElementCollection.Create();
+  fOptions := [rsoProcessDeltasWithoutUpdateRules];
+  fAllowWhereSQL := true;
+
+  inherited;
+
+  fAutoCreateBusinessProcessors := TRUE;
+end;
+
+destructor TDARemoteService.Destroy;
+begin
+  ServiceSchema := nil;
+  ServiceAdapter := nil;
+  Cache := nil;
+  inherited;
+
+  FreeAndNIL(fExportedDataTables);
+  FreeAndNIL(fCacheElements);
+end;
+
+procedure TDARemoteService.DoOnActivate(aClientID: TGUID; const aMessage: IROMessage);
+var
+  connname: string;
+begin
+  inherited;
+
+  if (csDesigning in ComponentState) then Exit;
+
+  if AcquireConnection then try
+    // Acquires a DA connection automatically
+    if (fServiceSchema = nil) or (fServiceSchema.ConnectionManager = nil) then RaiseError(err_DARDMInvalidSchema);
+
+    connname := fConnectionName;
+    if Assigned(fOnBeforeAcquireConnection) then fOnBeforeAcquireConnection(Self, connname);
+
+    fConnection := ServiceSchema.ConnectionManager.NewConnection(connname);
+    if Supports(fConnection, IDAHETConnection) then
+      raise Exception.Create(err_HETConnectionNotSupportedInV3);
+
+    if Assigned(fOnAfterAcquireConnection) then fOnAfterAcquireConnection(Self, connname, fConnection);
+  except
+    on E: Exception do begin
+      if Assigned(fOnAcquireConnectionFailure) then fOnAcquireConnectionFailure(Self, connname, E);
+      raise;
+    end;
+  end;
+end;
+
+procedure TDARemoteService.DoOnDeactivate(aClientID: TGUID);
+var connname : string;
+begin
+  inherited;
+
+  if (csDesigning in ComponentState) then Exit;
+
+  if assigned(fConnection) then begin
+    connname := fConnection.Name;
+
+    if Assigned(fOnBeforeReleaseConnection)
+      then fOnBeforeReleaseConnection(Self, connname, fConnection);
+
+    fConnection := nil;
+
+    if Assigned(fOnAfterReleaseConnection)
+      then fOnAfterReleaseConnection(Self, connname);
+  end;
+end;
+
+procedure TDARemoteService.Loaded;
+begin
+  inherited;
+
+  AcquireConnection := fStreamedAcquireConnection;
+end;
+
+procedure TDARemoteService.Assign(Source: TPersistent);
+var
+  lSource: TDARemoteService;
+begin
+  inherited;
+  if Source is TDARemoteService then begin
+    lSource := TDARemoteService(Source);
+
+    AcquireConnection := lSource.AcquireConnection;
+    AllowExecuteSQLCommand := lSource.AllowExecuteSQLCommand;
+    AllowWhereSQL := lSource.AllowWhereSQL;
+    AutoCreateBusinessProcessors := lSource.AutoCreateBusinessProcessors;
+    Cache := lSource.Cache;
+    CacheElements := lSource.CacheElements;
+    ConnectionName := lSource.ConnectionName;
+    ExportedDataTables := lSource.ExportedDataTables;
+    GetDatasetDataValidation := lSource.GetDatasetDataValidation;
+    OnAcquireConnectionFailure := lSource.OnAcquireConnectionFailure;
+    OnAfterAcquireConnection := lSource.OnAfterAcquireConnection;
+    OnAfterExecuteCommand := lSource.OnAfterExecuteCommand;
+    OnAfterGetDatasetData := lSource.OnAfterGetDatasetData;
+    OnAfterGetDatasetSchema := lSource.OnAfterGetDatasetSchema;
+    OnAfterProcessDeltas := lSource.OnAfterProcessDeltas;
+    OnAfterProcessTransactionAction := lSource.OnAfterProcessTransactionAction;
+    OnAfterReleaseConnection := lSource.OnAfterReleaseConnection;
+    OnBeforeAcquireConnection := lSource.OnBeforeAcquireConnection;
+    OnBeforeExecuteCommand := lSource.OnBeforeExecuteCommand;
+    OnBeforeGetDatasetData := lSource.OnBeforeGetDatasetData;
+    OnBeforeGetDatasetSchema := lSource.OnBeforeGetDatasetSchema;
+    OnBeforeProcessDeltas := lSource.OnBeforeProcessDeltas;
+    OnBeforeReleaseConnection := lSource.OnBeforeReleaseConnection;
+    OnBusinessProcessorAutoCreated := lSource.OnBusinessProcessorAutoCreated;
+    OnGetCachedDataset := lSource.OnGetCachedDataset;
+    OnGetSchemaAsXMLEvent := lSource.OnGetSchemaAsXMLEvent;
+    OnProcessDeltasError := lSource.OnProcessDeltasError;
+    OnUpdateDataBeginTransaction := lSource.OnUpdateDataBeginTransaction;
+    OnUpdateDataCommitTransaction := lSource.OnUpdateDataCommitTransaction;
+    OnUpdateDataRollBackTransaction := lSource.OnUpdateDataRollBackTransaction;
+    Options := lSource.Options;
+    ServiceAdapter := lSource.ServiceAdapter;
+    ServiceSchema := lSource.ServiceSchema;
+  end;
+end;
+
+procedure TDARemoteService.CheckObjects(const aConnection: IDAConnection;
+      aSchema: TDASchema; anAdapter: TDADataAdapter;
+      CheckConnection : boolean = TRUE;
+      CheckSchema : boolean = TRUE;
+      CheckAdapter : boolean = TRUE);
+begin
+  if CheckConnection and not Assigned(aConnection) then RaiseError(err_DARDMConnectionIsNotAssigned);
+  if CheckSchema and not Assigned(aSchema) then RaiseError(err_DARDMInvalidSchema);
+  if CheckAdapter and not Assigned(anAdapter) then RaiseError(err_DARDMUnassignedAdapter);
+end;
+
+procedure TDARemoteService.Notification(AComponent: TComponent;
+  Operation: TOperation);
+var ref : TDADataTableReference;
+begin
+  inherited;
+
+  if (Operation = opRemove) then begin
+    if (aComponent = fServiceSchema) then ServiceSchema := nil
+    else if (AComponent=fCache) then fCache := NIL
+    else if (aComponent = fServiceAdapter) then ServiceAdapter := nil
+    else if (AComponent is TDADataTable) and (fExportedDataTables<>NIL) then begin
+      ref := fExportedDataTables.FindByDataTable(TDADataTable(aComponent));
+      if (ref<>NIL) then ref.DataTable := NIL;
+    end;
+  end
+
+  else if (Operation = opInsert) then begin
+    if not (csLoading in ComponentState) and (AComponent is TDASchema) and (fServiceSchema = nil) and (AComponent.Owner = Self) then ServiceSchema := TDASchema(aComponent);
+  end;
+end;
+
+procedure TDARemoteService.SetAcquireConnection(const Value: boolean);
+begin
+  if (csLoading in ComponentState) then
+    fStreamedAcquireConnection := Value
+  else begin
+    if Value then begin
+      if (fServiceSchema = nil) then raise Exception.Create(err_DARDMInvalidSchema);
+    end;
+
+    fAcquireConnection := Value;
+  end;
+end;
+
+procedure TDARemoteService.SetConnection(const aValue: IDAConnection);
+begin
+  if assigned(fConnection) and Supports(fConnection, IDAHETConnection) then
+      raise Exception.Create(err_HETConnectionNotSupportedInV3);
+  fConnection := aValue;
+end;
+
+procedure TDARemoteService.SetConnectionName(const Value: string);
+begin
+  fConnectionName := Trim(Value);
+  if (fConnectionName = '') then fAcquireConnection := FALSE;
+end;
+
+procedure TDARemoteService.SetServiceSchema(const Value: TDASchema);
+begin
+  if fServiceSchema <> Value then begin
+    if (fServiceSchema <> nil) then fServiceSchema.RORemoveFreeNotification(Self);
+    fServiceSchema := Value;
+
+    if (fServiceSchema <> nil) then
+      fServiceSchema.ROFreeNotification(Self)
+    else
+      fAcquireConnection := FALSE;
+  end;
+end;
+
+procedure TDARemoteService.SetServiceAdapter(const Value: TDADataAdapter);
+begin
+  if fServiceAdapter <> Value then begin
+    if (fServiceAdapter <> nil) then fServiceAdapter.RORemoveFreeNotification(Self);
+    fServiceAdapter := Value;
+    if (fServiceAdapter <> nil) then fServiceAdapter.ROFreeNotification(Self);
+  end;
+end;
+
+function TDARemoteService.TriggerTransactionEvent(aEvent: TDAUpdateDataTransactionEvent): Boolean;
+begin
+  result := true;
+  if assigned(aEvent) then aEvent(self, result);
+end;
+
+function TDARemoteService.DoGetDatasetData(
+  const Stream: TStream;
+  const aConnection: IDAConnection;
+  const aDatasetName: ansistring;
+  const aParamNames: array of string;
+  const aParamValues : array of variant;
+  const UserFilter : ansistring;
+  aSchema: TDASchema;
+  anAdapter: TDADataAdapter;
+  someOptions: TDAWriteOptions;
+  MaxRecords: integer): integer;
+
+var
+  ds: IDADataset;
+  i, cnt: integer;
+  paramname: string;
+  paramvalue: variant;
+  inclrows,
+  inclschema: boolean;
+  allow : boolean;
+  ref : TDADataTableReference;
+  cachedentry : IDACacheEntry;
+  cacheelement : TDACacheElement;
+  lDatasetName: string;
+  lUserFilter: string;
+begin
+  // Misc
+  lDatasetName:= Utf8ToString(aDatasetName);
+  luserFilter := Utf8ToString(UserFilter);
+  cachedentry := NIL;
+
+  inclschema := (woSchema in someOptions);
+  inclrows := (woRows in someOptions);
+  ref := NIL;
+
+  if (fCache<>NIL) then begin
+    // If the service is connected to a cache, then it searches the cache for this dataset
+    cachedentry := fCache.Get(Self.Name+'.'+lDatasetName);
+  end;
+
+  if (cachedentry=NIL) then begin
+    // New: searches for a datatable reference that matches the request, if any are present
+    // This allows the user to return in memory datasets or other custom data
+    if (fExportedDataTables.Count>0) then begin
+      ref := fExportedDataTables.FindByName(lDatasetName); // Already checks the datatable is not NIL
+      if (ref<>NIL) then begin
+        ds := ref.Dataset;
+      end;
+    end;
+  end;
+
+  // Checks for connection, schema and adapter to be assigned since it will need to query the DB in this case
+  if (ref=NIL) and (cachedentry=NIL)
+    then CheckObjects(aConnection, aSchema, anAdapter);
+
+  // Security check, common to every case
+  allow := TRUE;
+  if Assigned(fGetDatasetDataValidation)
+    then fGetDatasetDataValidation(Self, aConnection, lDatasetName, aParamNames, aParamValues, aSchema, allow);
+
+  if not allow
+    then raise EDADatasetNotAccessible.CreateFmt(err_DatasetNotAccessible, [aDatasetName]);
+
+  // Returns the actual data. Cached and non-cached data follow two different paths (some events are not triggered in the
+  // case of cached data, since we don't have an actual IDADataset to reference)
+
+  if (cachedentry<>NIL) then begin
+    if Assigned(fOnGetCachedDataset) then fOnGetCachedDataset(Self, lDatasetName, cachedentry.Data);
+
+    result := cachedentry.RecordCount;
+    Stream.CopyFrom(cachedentry.Data, 0);
+  end
+  else begin
+
+    if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then Connection.BeginTransaction;
+    try
+
+      // Gets a reference to the dataset if it couldn't find a datatable to match the request...
+      if (ref=NIL) then
+        ds := aSchema.NewDataset(aConnection, lDatasetName);
+
+      // Fills the parameters (if any are specified)
+      cnt := Length(aParamNames);
+      if (cnt>0) then begin
+        for i := 0 to (cnt-1) do begin
+          paramname := aParamNames[i];
+          paramvalue := aParamValues[i];
+
+          ds.ParamByName(paramname).Value := paramvalue;
+        end;
+      end;
+
+      // Applies the UserFilter, if any specified
+      if (Trim(lUserFilter)<>'') then begin
+        if not AllowWhereSQL then
+          raise Exception.Create('Passing of clear text WHERE clauses has been disabled (GetData)');
+        ds.Where.AddText(lUserFilter);
+      end;
+
+      // ...and writes the data fireing the right events
+      if inclschema and Assigned(fOnBeforeGetDatasetSchema) then fOnBeforeGetDatasetSchema(ds);
+      if inclrows and Assigned(fOnBeforeGetDatasetData) then fOnBeforeGetDatasetData(ds, inclschema, MaxRecords);
+
+      result := anAdapter.WriteDataset(stream, ds, someOptions, MaxRecords);
+
+      if inclschema and Assigned(fOnAfterGetDatasetSchema) then fOnAfterGetDatasetSchema(ds);
+      if inclrows and Assigned(fOnAfterGetDatasetData) then fOnAfterGetDatasetData(ds, inclschema, MaxRecords);
+
+      if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataCommitTransaction) then Connection.CommitTransaction;
+    except
+      if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction) then Connection.RollbackTransaction;
+      raise;
+    end;
+
+    // Checks if it needs to stored it in the cache
+    if (fCache<>NIL) then begin
+      cacheelement := fCacheElements.FindByDatasetName(lDatasetName);
+      if (cacheelement=NIL) or not cacheelement.Enabled then Exit;
+
+      fCache.Store(Self.Name+'.'+lDatasetName, stream, TRUE, result, cacheelement.MaxReads, cacheelement.Duration);
+    end;
+    
+  end;
+end;
+
+function TDARemoteService.GetDatasetSchema(
+  const aDatasetName: AnsiString): Binary;
+var tempds : IDADataset;
+    schemads : TDADataset;
+    dummyrefs : TObjectList;
+    lDatasetName: string;
+begin
+  dummyrefs := NIL;
+
+  CheckObjects(Connection, ServiceSchema, ServiceAdapter);
+
+  result := Binary.Create;
+  try
+    try
+      // New: merges the data tables references by the service
+      if (fExportedDataTables.Count>0) then begin
+        dummyrefs := TObjectList.Create;
+        MergeDatatablesToSchema(dummyrefs);
+      end;
+
+      lDatasetName := Utf8ToString(aDatasetName);
+      // Improved this method: now it is not necessary to have statements associated to a dataset
+      // thus allowing for the definition of in memory datasets inside a schema
+      schemads := ServiceSchema.Datasets.DatasetByName(lDatasetName);
+      tempds := Connection.NewDataset('', lDatasetName);
+
+      // Copies the schema
+      tempds.Fields.AssignFieldCollection(schemads.Fields);
+      tempds.Params.AssignParamCollection(schemads.Params);
+
+      ServiceAdapter.WriteDataset(result, tempds, [woSchema], 0);
+    except
+      FreeAndNIL(result);
+      raise;
+  end;
+  finally
+    dummyrefs.Free;
+  end;
+end;
+
+type
+  TBizProcessorReference = class(TObject)
+  private
+  end;
+
+function TDARemoteService.UnpackDeltas(const DeltaStream: Binary;
+  DeltaStructList : TDADeltaStructList): integer;
+var x, i: integer;
+    deltaname: string;
+    bizproc: TDABusinessProcessor;
+    details : TDADatasetRelationshipList;
+    found: boolean;
+    struct : TDADeltaStruct;
+begin
+  result := 0;
+  with ServiceAdapter do begin
+
+    // Reads the deltas. 
+    Initialize(DeltaStream, aiReadFromBeginning);
+    try
+      if (DeltaCount = 0) then Exit;
+
+      for i := 0 to (DeltaCount - 1) do begin
+        deltaname := DeltaNames[i];
+        found := FALSE;
+
+        { Tries to locate a user-defined business processor }
+        for x := 0 to (Self.ComponentCount - 1) do
+          if (Self.Components[x] is TDABusinessProcessor) then begin
+            bizproc := TDABusinessProcessor(Self.Components[x]);
+            if SameText(bizproc.ReferencedDataset, deltaname) then begin
+              struct := DeltaStructList.Add(NewDelta(deltaname), bizproc);
+              ReadDelta(deltaname, struct.Delta);
+
+              found := TRUE;
+              Break;
+            end;
+          end;
+
+        { Either creates one or aborts raising an exception }
+        if not found then begin
+          if not AutoCreateBusinessProcessors then RaiseError(err_DARDMCannotFindProxessorForDelta, [deltaname]);
+
+          bizproc := TDABusinessProcessor.Create(Self);
+          bizproc.ReferencedDataset := deltaname;
+          bizproc.Schema := ServiceSchema;
+
+          struct := DeltaStructList.Add(NewDelta(deltaname), bizproc);
+          ReadDelta(deltaname, struct.Delta);
+
+          if Assigned(fOnBusinessProcessorAutoCreated)
+            then fOnBusinessProcessorAutoCreated(Self, bizproc);
+        end;
+
+        Inc(result);
+      end;
+
+      if (result=0) then Exit; // Cannot process anything!
+
+      { Sets the master/detail relationships }
+      with ServiceSchema do
+        if (RelationShips.Count>0) then begin
+          details := TDADatasetRelationshipList.Create;
+          try
+
+            for i := 0 to DeltaStructList.Count-1 do begin
+              RelationShips.GetDetails(DeltaStructList[i].BusinessProcessor.ReferencedDataset, details);
+              if (details.Count=0) then Continue;
+
+              { Prepares an array with the references to the detail deltas that will be used later on to adjust
+                autoincs, etc. }
+              for x := 0 to details.Count-1 do begin
+                struct := DeltaStructList.FindStruct(details[x].DetailDatasetName);
+                if (struct<>NIL) then begin
+                  DeltaStructList[i].DetailDeltas.Add(struct.Delta);
+                  DeltaStructList[i].RelationShips.Add(details[x]);
+                end;
+              end;
+            end;
+          finally
+            details.Free;
+          end;
+          
+        end;
+    finally
+      Finalize;
+    end;
+  end;
+end;
+
+function TDARemoteService.UpdateData(const Delta: Binary): Binary;
+var
+  deltastructs : TDADeltaStructList;
+  struct : TDADeltaStruct;
+  k, i: integer;
+  doraise : boolean;
+  processeddeltas : TStringList;
+
+  function ProceedDefaultTransactionLogic(aEvent: TDAUpdateDataTransactionEvent): Boolean;
+  begin
+    Result := True;
+    if Assigned(aEvent)
+      then aEvent(Self, Result);
+  end;
+
+  procedure FlushCache(const aDatasetName : string);
+  var element : TDACacheElement;
+  begin
+    if (fCache=NIL) or (fCacheElements.Count=0) then Exit;
+
+    element := fCacheElements.FindByDatasetName(aDatasetName);
+    if (element=NIL) then Exit;
+
+    if (ceoFlushOnUpdate in element.Options)
+      then fCache.Flush(Self.Name+'.'+aDatasetName);
+  end;
+
+begin
+  result := NIL;
+  processeddeltas := NIL;
+
+  CheckObjects(Connection, ServiceSchema, ServiceAdapter);
+
+  deltastructs := TDADeltaStructList.Create;
+
+  with ServiceAdapter do try
+    try
+      // Reads the deltas. The order in which the are put in the stream indicates
+      // the order in which updates are being made
+      if not (UnpackDeltas(Delta, deltastructs)>0) then Exit;
+
+      // Applies the updates
+      if ProceedDefaultTransactionLogic(fOnUpdateDataBeginTransaction)
+        then Connection.BeginTransaction;
+
+      if Assigned(fOnBeforeProcessDeltas) then fOnBeforeProcessDeltas(Self, deltastructs);
+
+      if (ServiceSchema.UpdateRules.Count=0) and (rsoProcessDeltasWithoutUpdateRules in Options) then begin
+        // Processes them in order, from first to last delta sent
+        for i := 0 to deltastructs.Count-1 do begin
+          // Flushes the cache for the given dataset
+          FlushCache(deltastructs[i].Delta.LogicalName);
+
+          deltastructs[i].BusinessProcessor.ProcessDelta(Connection, deltastructs[i].Delta, AllChanges);
+        end;
+      end
+      else try
+        processeddeltas := TStringList.Create;
+
+        for i := 0 to (ServiceSchema.UpdateRules.Count-1) do begin
+          // Processes them in the order defined in the schema
+          struct := deltastructs.FindStruct(ServiceSchema.UpdateRules[i].DatasetName);
+          if (struct<>NIL) then begin
+          // Adds the dataset name to the list of processed deltas. Those that don't have update rules will be processed later
+          processeddeltas.Add(struct.Delta.LogicalName);
+
+          // Flushes the cache for the given dataset
+          FlushCache(struct.Delta.LogicalName);
+
+          // Processes the delta
+            struct.BusinessProcessor.ProcessDelta(Connection, struct.Delta, ServiceSchema.UpdateRules[i].ChangeTypes);
+
+
+            if (ctInsert in ServiceSchema.UpdateRules[i].ChangeTypes) then begin
+              for k := 0 to (struct.DetailDeltas.Count-1) do
+                struct.BusinessProcessor.SynchronizeAutoIncs(struct.Delta, struct.DetailDeltas[k], struct.RelationShips[k]);
+            end;
+          end;
+        end;
+
+        // Processes the deltas for which update rules were not defined
+        if (rsoProcessDeltasWithoutUpdateRules in Options) then begin
+          for i := 0 to deltastructs.Count-1 do begin
+            // Skips if already processed
+            if (processeddeltas.IndexOf(deltastructs[i].Delta.LogicalName)>=0) then Continue;
+
+            // Flushes the cache for the given dataset
+            FlushCache(deltastructs[i].Delta.LogicalName);
+
+              deltastructs[i].BusinessProcessor.ProcessDelta(Connection, deltastructs[i].Delta, AllChanges);
+            end;
+          end;
+
+      finally
+        processeddeltas.Free;
+      end;
+
+      if Assigned(fOnAfterProcessDeltas) then fOnAfterProcessDeltas(Self, deltastructs);
+
+      if Connection.InTransaction and ProceedDefaultTransactionLogic(fOnUpdateDataCommitTransaction)
+        then Connection.CommitTransaction;
+
+      // Prepares the response
+      result := Binary.Create;
+      ServiceAdapter.Initialize(result, aiWrite);
+      try
+        for i := 0 to deltastructs.Count-1 do
+          WriteDelta(deltastructs[i].Delta);
+      finally
+        ServiceAdapter.Finalize;
+      end;
+
+    except
+      on E:Exception do begin
+        doraise := TRUE;
+        try
+          if Assigned(fOnProcessDeltasError)
+            then fOnProcessDeltasError(Self, deltastructs, E, doraise);
+        finally 
+          if Connection.InTransaction and ProceedDefaultTransactionLogic(fOnUpdateDataRollBackTransaction)
+            then Connection.RollbackTransaction;
+        end;
+        if doraise then raise;
+      end;
+    end;
+  finally
+    deltastructs.Free;
+  end;
+end;
+
+function TDARemoteService.ExecuteSQLCommand(const SQL: AnsiString): Integer;
+begin
+  if not AllowExecuteSQLCommand then
+    RaiseError(err_ExecuteSQLCommandNotAllowed);
+
+  CheckObjects(Connection, ServiceSchema, NIL, TRUE, TRUE, FALSE);
+
+  if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then Connection.BeginTransaction;
+  try
+    result := Connection.NewCommand(Utf8ToString(SQL), stSQL).Execute;
+    if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataCommitTransaction) then Connection.CommitTransaction;
+  except
+    if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction) then Connection.RollbackTransaction;
+    raise;
+  end;
+end;
+
+function TDARemoteService.GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString;
+  const IncludeSchema: Boolean; const MaxRecords: Integer): Binary;
+var
+  parnames: array of string;
+  parvalues: array of Variant;
+  options: TDAWriteOptions;
+  pars: TStringList;
+  i : integer;
+begin
+  pars := TStringList.Create;
+  result := Binary.Create;
+  try
+    try
+      pars.Text := Utf8ToString(Params);
+      SetLength(parnames, pars.Count);
+      SetLength(parvalues, pars.Count);
+      for i := 0 to (pars.Count-1) do begin
+        parnames[i] := pars.Names[i];
+        parvalues[i] := pars.Values[pars.Names[i]];
+      end;
+
+      if IncludeSchema
+        then options := [woSchema, woRows]
+        else options := [woRows];
+
+      DoGetDatasetData(result, Connection, DatasetName, parnames, parvalues, '', ServiceSchema, ServiceAdapter, options, MaxRecords);
+    except
+      FreeAndNIL(result);
+      raise;
+    end;
+  finally
+    pars.Free;
+  end;
+end;
+
+function TDARemoteService.CreateParamString(
+  const ParamNames: array of string;
+  const ParamValues: array of Variant): string;
+var
+  i: integer;
+begin
+  result := '';
+
+  for i := 0 to High(ParamNames) do
+    result := result + ParamNames[i] + '=' + VarToStr(ParamValues[i]) + #13;
+end;
+
+function TDARemoteService.GetDatasetData(const DatasetName: ansistring;
+  const ParamNames: array of string; const ParamValues: array of Variant;
+  const IncludeSchema: Boolean; const MaxRecords: Integer): Binary;
+var
+  options: TDAWriteOptions;
+begin
+  {result := GetDatasetData(DatasetName, CreateParamString(ParamNames, ParamValues), IncludeSchema, MaxRecords);}
+  result := Binary.Create;
+  try
+    if IncludeSchema
+      then options := [woSchema, woRows]
+      else options := [woRows];
+    DoGetDatasetData(result, Connection, DatasetName, ParamNames, ParamValues, '', ServiceSchema, ServiceAdapter, options, MaxRecords);
+  except
+    FreeAndNIL(result);
+    raise;
+  end;
+end;
+
+function TDARemoteService.GetDatasetData(const DatasetName: ansistring;
+  const IncludeSchema: Boolean = FALSE;
+  const MaxRecords: Integer = -1): Binary;
+begin
+  result := GetDatasetData(DatasetName, '', IncludeSchema, MaxRecords);
+end;
+
+procedure TDARemoteService.MergeDatatablesToSchema(aList : TList);
+var i : integer;
+    ref : TDADataset;
+    dt : IDADataset;
+begin
+  if (fExportedDataTables.Count>0) then begin
+    for i := 0 to fExportedDataTables.Count-1 do
+      if fExportedDataTables[i].IsValidReference {and fExportedDataTables[i].ExportAsPartOfSchema} then begin
+        dt := fExportedDataTables[i].Dataset;
+
+        ref := ServiceSchema.Datasets.Add;
+        ref.Name := dt.LogicalName;
+        ref.Fields.AssignFieldCollection(dt.Fields);
+        ref.Params.AssignParamCollection(dt.Params);
+
+        aList.Add(ref);
+      end;
+  end;
+end;
+
+function TDARemoteService.GetSchemaAsXML: AnsiString;
+var xml : TStringStream;
+    dummyrefs : TObjectList;
+begin
+  result := '';
+  dummyrefs := NIL;
+
+  if not Assigned(ServiceSchema) then Exit;
+
+  try
+    // New: merges the data tables references by the service
+    if (fExportedDataTables.Count>0) then begin
+      dummyrefs := TObjectList.Create;
+      MergeDatatablesToSchema(dummyrefs);
+    end;
+
+    // Returns the schema
+    xml := TStringStream.Create('');
+    try
+      ServiceSchema.SaveToStream(xml);
+
+      result := UTF8Encode(xml.DataString);
+
+      if Assigned(fOnGetSchemaAsXML)
+        then fOnGetSchemaAsXML(Self, result);
+    finally
+      xml.Free;
+    end;
+
+  finally
+    dummyrefs.Free; // automatically removes the datatables from the schema again
+  end;
+end;
+
+function TDARemoteService.GetDatasetDataEx(const DatasetName: AnsiString;
+                              const Params: TDADatasetParamArray;
+                              const UserFilter: AnsiString;
+                              const IncludeSchema: Boolean;
+                              const MaxRecords: Integer): Binary;
+var parnames : array of string;
+    parvalues : array of variant;
+    i : integer;
+    options : TDAWriteOptions;
+begin
+  result := Binary.Create;
+  try
+    { Prepares the parameter arrays}
+    if (Params<>NIL) then begin
+      SetLength(parnames, Params.Count);
+      SetLength(parvalues, Params.Count);
+      for i := 0 to (Params.Count-1) do begin
+        parnames[i] := Utf8ToString(Params[i].Name);
+        parvalues[i] := Params[i].Value;
+      end;
+    end
+    else begin
+      SetLength(parnames, 0);
+      SetLength(parvalues, 0);
+    end;
+
+    { Other options }
+    if IncludeSchema
+      then options := [woSchema, woRows]
+      else options := [woRows];
+
+    { Reads the data }
+    DoGetDatasetData(result, Connection, DatasetName, parnames, parvalues, UserFilter, ServiceSchema, ServiceAdapter, options, MaxRecords);
+  except
+    FreeAndNIL(result);
+    raise;
+  end;
+end;
+
+function TDARemoteService.GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray): TROBinaryMemoryStream;
+var i : integer;
+    ds : IDADataset;
+    parnames : array of string;
+    parvalues : array of variant;
+    x : integer;
+    opt : TDAWriteOptions;
+    allow : boolean;
+    lDatasetName: string;
+begin
+  result := NIL;
+  if (DatasetRequestInfoArray=NIL) or (DatasetRequestInfoArray.Count=0) then exit;
+  result := Binary.Create;
+  try
+    ServiceAdapter.Initialize(result, aiWrite);
+    try
+
+      for i := 0 to (DatasetRequestInfoArray.Count-1) do begin
+        with DatasetRequestInfoArray[i] do begin
+          SetLength(parnames, Params.Count);
+          SetLength(parvalues, Params.Count);
+          for x := 0 to (Params.Count-1) do begin
+            parnames[x] := Utf8ToString(Params[x].Name);
+            parvalues[x] := Params[x].Value;
+          end;
+          lDatasetName := Utf8ToString(DatasetName);
+          opt := [woRows];
+          if DatasetRequestInfoArray[i].IncludeSchema then opt := opt+[woSchema];
+
+          // Security check
+          allow := TRUE;
+          if Assigned(fGetDatasetDataValidation)
+            then fGetDatasetDataValidation(Self, Connection, lDatasetName, parnames, parvalues, ServiceSchema, allow);
+
+          if not allow
+            then raise EDADatasetNotAccessible.CreateFmt(err_DatasetNotAccessible, [lDatasetName]);
+
+          // Proceeds
+          ds := ServiceSchema.NewDataset(Connection, lDatasetName, parnames, parvalues, TRUE);
+
+          ServiceAdapter.WriteDataset(ds, opt, MaxRecords);
+        end;
+      end;
+    finally
+      ServiceAdapter.Finalize();
+    end;
+  except
+    FreeAndNIL(result);
+    raise
+  end;
+end;
+
+function TDARemoteService.GetDatasetScripts(const DatasetNames: AnsiString): AnsiString;
+var names : TStringList;
+    i : integer;
+    ds : TDADataset;
+begin
+  result := '';
+  names := TStringList.Create;
+  try
+    CheckObjects(NIL, fServiceSchema, NIL, FALSE, TRUE, FALSE);
+    names.CommaText := Utf8ToString(DatasetNames);
+
+    result := '<Scripts>';
+
+    for i := 0 to (names.Count-1) do begin
+      ds := fServiceSchema.Datasets.DatasetByName(names[i]);
+
+      result := result+ {$IFDEF UNICODE}UTF8Encode{$ENDIF}(
+          Format('<%s Language="%s"><![CDATA[%s]]></%s>', [
+          names[i],
+          GetEnumName(TypeInfo(TROSEScriptLanguage), Ord(ds.BusinessRulesClient.ScriptLanguage)),
+          {$IFNDEF UNICODE}UTF8Encode{$ENDIF}(ds.BusinessRulesClient.Script),
+          names[i]]));
+    end;
+
+    result := result+AnsiString('</Scripts>');
+  finally
+    FreeAndNIL(names);
+  end;
+end;
+
+function TDARemoteService.ExecuteSQLCommandEx(const CommandName: AnsiString;
+  const Params: TDADatasetParamArray): Integer;
+var cmd : IDASQLCommand;
+    i : integer;
+begin
+  if not AllowExecuteSQLCommand then
+    RaiseError(err_ExecuteSQLCommandNotAllowed);
+
+  CheckObjects(Connection, ServiceSchema, NIL, TRUE, TRUE, FALSE);
+
+  cmd := ServiceSchema.NewCommand(Connection, Utf8ToString(CommandName));
+  for i := 0 to (Params.Count-1) do
+    cmd.ParamByName(Utf8ToString(Params[i].Name)).Value := Params[i].Value;
+
+  if Assigned(fOnBeforeExecuteCommand)
+    then fOnBeforeExecuteCommand(Self, cmd);
+
+  if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then Connection.BeginTransaction;
+  try
+    result := cmd.Execute;
+    if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataCommitTransaction) then Connection.CommitTransaction;
+  except
+    if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction) then Connection.RollbackTransaction;
+    raise;
+  end;
+
+  if Assigned(fOnAfterExecuteCommand)
+    then fOnAfterExecuteCommand(Self, cmd, result);
+end;
+
+procedure TDARemoteService.SetExportedDataTables(const Value: TDADataTableReferenceCollection);
+begin
+  fExportedDataTables.Assign(Value);
+end;
+
+procedure TDARemoteService.SetCache(const Value: TDACache);
+begin
+  if fCache <> Value then begin
+    if (fCache<>NIL) then fCache.RemoveFreeNotification(Self);
+    fCache := Value;
+    if (fCache<>NIL) then fCache.FreeNotification(Self);
+  end;
+end;
+
+procedure TDARemoteService.SetCacheElements(
+  const Value: TDACacheElementCollection);
+begin
+  fCacheElements.Assign(Value);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Create Session Table.sql b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Create Session Table.sql
new file mode 100644
index 0000000..54f5e49
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Create Session Table.sql	
@@ -0,0 +1,15 @@
+CREATE TABLE [dbo].[Sessions] (
+	[SessionID] [char] (38) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
+	[Created] [datetime] NULL ,
+	[LastAccessed] [datetime] NULL ,
+	[Data] [image] NULL 
+) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
+GO
+
+ALTER TABLE [dbo].[Sessions] WITH NOCHECK ADD 
+	CONSTRAINT [PK_Sessions] PRIMARY KEY  CLUSTERED 
+	(
+		[SessionID]
+	)  ON [PRIMARY] 
+GO
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Default Schema.daConnections b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Default Schema.daConnections
new file mode 100644
index 0000000..625165d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Default Schema.daConnections	
@@ -0,0 +1 @@
+<TDAConnectionManager><Connections Type="TDAConnectionCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAConnection"><Item0><ConnectionString>ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;UserID=sa;Password=;</ConnectionString><Default>True</Default><Description></Description><Name>MSSQL</Name><Tag>0</Tag></Item0></Connections><DriverManager Type="TDADriverManager" IsObject="true" ByRef="true" RefName="DADriverManager1" Owner="ServerForm"/><MaxPoolSize>10</MaxPoolSize><PoolBehaviour>pbWait</PoolBehaviour><PoolingEnabled>True</PoolingEnabled><PoolTimeoutSeconds>60</PoolTimeoutSeconds><Tag>0</Tag><WaitIntervalSeconds>1</WaitIntervalSeconds></TDAConnectionManager>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Default Schema.daSchema b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Default Schema.daSchema
new file mode 100644
index 0000000..32f7e13
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DBSessionManager Default Schema.daSchema	
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="utf-8"?>
+<TDASchema><Commands Type="TDASQLCommandCollection" IsObject="true" IsCollection="true" Count="4" ItemClass="TDASQLCommand"><Item0><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><Description></Description><Name>Insert_Session</Name><Params Type="TDAParamCollection" IsObject="true" IsCollection="true" Count="4" ItemClass="TDAParam"><Item0><BlobType>dabtUnknown</BlobType><DataType>datString</DataType><Description></Description><GeneratorName></GeneratorName><Name>SessionID</Name><ParamType>daptInput</ParamType><Size>38</Size><Value></Value></Item0><Item1><BlobType>dabtUnknown</BlobType><DataType>datDateTime</DataType><Description></Description><GeneratorName></GeneratorName><Name>Created</Name><ParamType>daptInput</ParamType><Size>0</Size><Value></Value></Item1><Item2><BlobType>dabtUnknown</BlobType><DataType>datDateTime</DataType><Description></Description><GeneratorName></GeneratorName><Name>LastAccessed</Name><ParamType>daptInput</ParamType><Size>0</Size><Value></Value></Item2><Item3><BlobType>dabtUnknown</BlobType><DataType>datBlob</DataType><Description></Description><GeneratorName></GeneratorName><Name>Data</Name><ParamType>daptInput</ParamType><Size>0</Size><Value></Value></Item3></Params><Statements Type="TDAStatementCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAStatement"><Item0><ColumnMappings Type="TDAColumnMappingCollection" IsObject="true" IsCollection="true" Count="0" ItemClass="TDAColumnMapping"/><Connection>MSSQL</Connection><Name></Name><SQL>INSERT
+  INTO Sessions
+    (SessionID, Created, LastAccessed, Data)
+  VALUES
+    (:SessionID, :Created, :LastAccessed, :Data)</SQL><StatementType>stSQL</StatementType><TargetTable></TargetTable></Item0></Statements></Item0><Item1><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><Description></Description><Name>Update_Session</Name><Params Type="TDAParamCollection" IsObject="true" IsCollection="true" Count="3" ItemClass="TDAParam"><Item0><BlobType>dabtUnknown</BlobType><DataType>datDateTime</DataType><Description></Description><GeneratorName></GeneratorName><Name>LastAccessed</Name><ParamType>daptInput</ParamType><Size>0</Size><Value></Value></Item0><Item1><BlobType>dabtUnknown</BlobType><DataType>datBlob</DataType><Description></Description><GeneratorName></GeneratorName><Name>Data</Name><ParamType>daptInput</ParamType><Size>0</Size><Value></Value></Item1><Item2><BlobType>dabtUnknown</BlobType><DataType>datString</DataType><Description></Description><GeneratorName></GeneratorName><Name>SessionID</Name><ParamType>daptInput</ParamType><Size>38</Size><Value></Value></Item2></Params><Statements Type="TDAStatementCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAStatement"><Item0><ColumnMappings Type="TDAColumnMappingCollection" IsObject="true" IsCollection="true" Count="0" ItemClass="TDAColumnMapping"/><Connection>MSSQL</Connection><Name></Name><SQL>UPDATE
+    Sessions
+  SET
+    LastAccessed = :LastAccessed,
+    Data = :Data
+  WHERE
+    SessionID = :SessionID
+</SQL><StatementType>stSQL</StatementType><TargetTable></TargetTable></Item0></Statements></Item1><Item2><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><Description></Description><Name>ClearSessions</Name><Params Type="TDAParamCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAParam"><Item0><BlobType>dabtUnknown</BlobType><DataType>datDateTime</DataType><Description></Description><GeneratorName></GeneratorName><Name>LastAccessed</Name><ParamType>daptInput</ParamType><Size>0</Size><Value></Value></Item0></Params><Statements Type="TDAStatementCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAStatement"><Item0><ColumnMappings Type="TDAColumnMappingCollection" IsObject="true" IsCollection="true" Count="0" ItemClass="TDAColumnMapping"/><Connection>MSSQL</Connection><Name></Name><SQL>DELETE
+  FROM
+    Sessions
+  WHERE
+    LastAccessed &lt; :LastAccessed</SQL><StatementType>stSQL</StatementType><TargetTable></TargetTable></Item0></Statements></Item2><Item3><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><Description></Description><Name>Delete_Session</Name><Params Type="TDAParamCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAParam"><Item0><BlobType>dabtUnknown</BlobType><DataType>datString</DataType><Description></Description><GeneratorName></GeneratorName><Name>SessionID</Name><ParamType>daptInput</ParamType><Size>38</Size><Value></Value></Item0></Params><Statements Type="TDAStatementCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAStatement"><Item0><ColumnMappings Type="TDAColumnMappingCollection" IsObject="true" IsCollection="true" Count="0" ItemClass="TDAColumnMapping"/><Connection>MSSQL</Connection><Name></Name><SQL>DELETE
+  FROM
+    Sessions
+  WHERE
+    SessionID = :SessionID</SQL><StatementType>stSQL</StatementType><TargetTable></TargetTable></Item0></Statements></Item3></Commands><ConnectionManager Type="TDAConnectionManager" IsObject="true" ByRef="true" RefName="DAConnectionManager" Owner="SchemaModelerData"/><DataDictionary Type="TDADataDictionary" IsObject="true" ByRef="true" RefName="DADataDictionary" Owner="SchemaModelerData"/><Datasets Type="TDADatasetCollection" IsObject="true" IsCollection="true" Count="3" ItemClass="TDADataset"><Item0><BusinessClassID></BusinessClassID><BusinessRulesClient Type="TDAClientBusinessRuleScript" IsObject="true"><CompileOnServer>True</CompileOnServer><Description></Description><RunOnClientAndServer>True</RunOnClientAndServer><Script></Script><ScriptLanguage>rslPascalScript</ScriptLanguage></BusinessRulesClient><BusinessRulesServer Type="TDABusinessRuleScript" IsObject="true"><Description></Description><Script></Script><ScriptLanguage>rslPascalScript</ScriptLanguage></BusinessRulesServer><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><Description></Description><Fields Type="TDAFieldCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAField"><Item0><Alignment>taLeftJustify</Alignment><BlobType>dabtUnknown</BlobType><BusinessClassID></BusinessClassID><Calculated>False</Calculated><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><DataType>datString</DataType><DefaultValue></DefaultValue><Description></Description><DictionaryEntry></DictionaryEntry><DisplayFormat></DisplayFormat><DisplayLabel>SessionID</DisplayLabel><DisplayWidth>0</DisplayWidth><EditFormat></EditFormat><EditMask></EditMask><GeneratorName></GeneratorName><InPrimaryKey>False</InPrimaryKey><KeyFields></KeyFields><LogChanges>True</LogChanges><Lookup>False</Lookup><LookupCache>False</LookupCache><LookupKeyFields></LookupKeyFields><LookupResultField></LookupResultField><LookupSource Type="TDataSource" IsObject="true" IsNull="true"/><Name>SessionID</Name><ReadOnly>False</ReadOnly><RegExpression></RegExpression><Required>False</Required><ServerAutoRefresh>False</ServerAutoRefresh><Size>38</Size><Visible>True</Visible></Item0></Fields><Name>GetAllSessionIDsDataset</Name><Params Type="TDAParamCollection" IsObject="true" IsCollection="true" Count="0" ItemClass="TDAParam"/><Statements Type="TDAStatementCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAStatement"><Item0><ColumnMappings Type="TDAColumnMappingCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAColumnMapping"><Item0><DatasetField>SessionID</DatasetField><TableField>SessionID</TableField></Item0></ColumnMappings><Connection>MSSQL</Connection><Name></Name><SQL>Select SessionID from Sessions
+</SQL><StatementType>stSQL</StatementType><TargetTable></TargetTable></Item0></Statements></Item0><Item1><BusinessClassID></BusinessClassID><BusinessRulesClient Type="TDAClientBusinessRuleScript" IsObject="true"><CompileOnServer>True</CompileOnServer><Description></Description><RunOnClientAndServer>True</RunOnClientAndServer><Script></Script><ScriptLanguage>rslPascalScript</ScriptLanguage></BusinessRulesClient><BusinessRulesServer Type="TDABusinessRuleScript" IsObject="true"><Description></Description><Script></Script><ScriptLanguage>rslPascalScript</ScriptLanguage></BusinessRulesServer><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><Description></Description><Fields Type="TDAFieldCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAField"><Item0><Alignment>taLeftJustify</Alignment><BlobType>dabtUnknown</BlobType><BusinessClassID></BusinessClassID><Calculated>False</Calculated><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><DataType>datInteger</DataType><DefaultValue></DefaultValue><Description></Description><DictionaryEntry></DictionaryEntry><DisplayFormat></DisplayFormat><DisplayLabel>COLUMN1</DisplayLabel><DisplayWidth>0</DisplayWidth><EditFormat></EditFormat><EditMask></EditMask><GeneratorName></GeneratorName><InPrimaryKey>False</InPrimaryKey><KeyFields></KeyFields><LogChanges>True</LogChanges><Lookup>False</Lookup><LookupCache>False</LookupCache><LookupKeyFields></LookupKeyFields><LookupResultField></LookupResultField><LookupSource Type="TDataSource" IsObject="true" IsNull="true"/><Name>COLUMN1</Name><ReadOnly>False</ReadOnly><RegExpression></RegExpression><Required>False</Required><ServerAutoRefresh>False</ServerAutoRefresh><Size>0</Size><Visible>True</Visible></Item0></Fields><Name>GetSessionCount</Name><Params Type="TDAParamCollection" IsObject="true" IsCollection="true" Count="0" ItemClass="TDAParam"/><Statements Type="TDAStatementCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAStatement"><Item0><ColumnMappings Type="TDAColumnMappingCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAColumnMapping"><Item0><DatasetField>COLUMN1</DatasetField><TableField>COLUMN1</TableField></Item0></ColumnMappings><Connection>MSSQL</Connection><Name></Name><SQL>SELECT
+    COUNT(*)
+  FROM
+    Sessions</SQL><StatementType>stSQL</StatementType><TargetTable></TargetTable></Item0></Statements></Item1><Item2><BusinessClassID></BusinessClassID><BusinessRulesClient Type="TDAClientBusinessRuleScript" IsObject="true"><CompileOnServer>True</CompileOnServer><Description></Description><RunOnClientAndServer>True</RunOnClientAndServer><Script></Script><ScriptLanguage>rslPascalScript</ScriptLanguage></BusinessRulesClient><BusinessRulesServer Type="TDABusinessRuleScript" IsObject="true"><Description></Description><Script></Script><ScriptLanguage>rslPascalScript</ScriptLanguage></BusinessRulesServer><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><Description></Description><Fields Type="TDAFieldCollection" IsObject="true" IsCollection="true" Count="4" ItemClass="TDAField"><Item0><Alignment>taLeftJustify</Alignment><BlobType>dabtUnknown</BlobType><BusinessClassID></BusinessClassID><Calculated>False</Calculated><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><DataType>datString</DataType><DefaultValue></DefaultValue><Description></Description><DictionaryEntry></DictionaryEntry><DisplayFormat></DisplayFormat><DisplayLabel>SessionID</DisplayLabel><DisplayWidth>0</DisplayWidth><EditFormat></EditFormat><EditMask></EditMask><GeneratorName></GeneratorName><InPrimaryKey>True</InPrimaryKey><KeyFields></KeyFields><LogChanges>True</LogChanges><Lookup>False</Lookup><LookupCache>False</LookupCache><LookupKeyFields></LookupKeyFields><LookupResultField></LookupResultField><LookupSource Type="TDataSource" IsObject="true" IsNull="true"/><Name>SessionID</Name><ReadOnly>False</ReadOnly><RegExpression></RegExpression><Required>False</Required><ServerAutoRefresh>False</ServerAutoRefresh><Size>38</Size><Visible>True</Visible></Item0><Item1><Alignment>taLeftJustify</Alignment><BlobType>dabtUnknown</BlobType><BusinessClassID></BusinessClassID><Calculated>False</Calculated><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><DataType>datDateTime</DataType><DefaultValue></DefaultValue><Description></Description><DictionaryEntry></DictionaryEntry><DisplayFormat></DisplayFormat><DisplayLabel>Created</DisplayLabel><DisplayWidth>0</DisplayWidth><EditFormat></EditFormat><EditMask></EditMask><GeneratorName></GeneratorName><InPrimaryKey>False</InPrimaryKey><KeyFields></KeyFields><LogChanges>True</LogChanges><Lookup>False</Lookup><LookupCache>False</LookupCache><LookupKeyFields></LookupKeyFields><LookupResultField></LookupResultField><LookupSource Type="TDataSource" IsObject="true" IsNull="true"/><Name>Created</Name><ReadOnly>False</ReadOnly><RegExpression></RegExpression><Required>False</Required><ServerAutoRefresh>False</ServerAutoRefresh><Size>0</Size><Visible>True</Visible></Item1><Item2><Alignment>taLeftJustify</Alignment><BlobType>dabtUnknown</BlobType><BusinessClassID></BusinessClassID><Calculated>False</Calculated><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><DataType>datDateTime</DataType><DefaultValue></DefaultValue><Description></Description><DictionaryEntry></DictionaryEntry><DisplayFormat></DisplayFormat><DisplayLabel>LastAccessed</DisplayLabel><DisplayWidth>0</DisplayWidth><EditFormat></EditFormat><EditMask></EditMask><GeneratorName></GeneratorName><InPrimaryKey>False</InPrimaryKey><KeyFields></KeyFields><LogChanges>True</LogChanges><Lookup>False</Lookup><LookupCache>False</LookupCache><LookupKeyFields></LookupKeyFields><LookupResultField></LookupResultField><LookupSource Type="TDataSource" IsObject="true" IsNull="true"/><Name>LastAccessed</Name><ReadOnly>False</ReadOnly><RegExpression></RegExpression><Required>False</Required><ServerAutoRefresh>False</ServerAutoRefresh><Size>0</Size><Visible>True</Visible></Item2><Item3><Alignment>taLeftJustify</Alignment><BlobType>dabtUnknown</BlobType><BusinessClassID></BusinessClassID><Calculated>False</Calculated><CustomAttributes Type="TStrings" IsObject="true"></CustomAttributes><DataType>datBlob</DataType><DefaultValue></DefaultValue><Description></Description><DictionaryEntry></DictionaryEntry><DisplayFormat></DisplayFormat><DisplayLabel>Data</DisplayLabel><DisplayWidth>0</DisplayWidth><EditFormat></EditFormat><EditMask></EditMask><GeneratorName></GeneratorName><InPrimaryKey>False</InPrimaryKey><KeyFields></KeyFields><LogChanges>True</LogChanges><Lookup>False</Lookup><LookupCache>False</LookupCache><LookupKeyFields></LookupKeyFields><LookupResultField></LookupResultField><LookupSource Type="TDataSource" IsObject="true" IsNull="true"/><Name>Data</Name><ReadOnly>False</ReadOnly><RegExpression></RegExpression><Required>False</Required><ServerAutoRefresh>False</ServerAutoRefresh><Size>0</Size><Visible>True</Visible></Item3></Fields><Name>GetSession</Name><Params Type="TDAParamCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAParam"><Item0><BlobType>dabtUnknown</BlobType><DataType>datString</DataType><Description></Description><GeneratorName></GeneratorName><Name>SessionID</Name><ParamType>daptInput</ParamType><Size>38</Size><Value></Value></Item0></Params><Statements Type="TDAStatementCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAStatement"><Item0><ColumnMappings Type="TDAColumnMappingCollection" IsObject="true" IsCollection="true" Count="4" ItemClass="TDAColumnMapping"><Item0><DatasetField>SessionID</DatasetField><TableField>SessionID</TableField></Item0><Item1><DatasetField>Created</DatasetField><TableField>Created</TableField></Item1><Item2><DatasetField>LastAccessed</DatasetField><TableField>LastAccessed</TableField></Item2><Item3><DatasetField>Data</DatasetField><TableField>Data</TableField></Item3></ColumnMappings><Connection>MSSQL</Connection><Name></Name><SQL>SELECT
+    SessionID, Created, LastAccessed, Data
+  FROM
+    Sessions
+  WHERE
+    SessionID = :SessionID</SQL><StatementType>stSQL</StatementType><TargetTable></TargetTable></Item0></Statements></Item2></Datasets><Diagrams Type="TDADiagrams" IsObject="true" IsNull="true"/><RelationShips Type="TDADatasetRelationshipCollection" IsObject="true" IsCollection="true" Count="0" ItemClass="TDADatasetRelationship"/><Tag>0</Tag><UpdateRules Type="TDAUpdateRuleCollection" IsObject="true" IsCollection="true" Count="0" ItemClass="TDAUpdateRule"/></TDASchema>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract.inc b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract.inc
new file mode 100644
index 0000000..b54e9da
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract.inc	
@@ -0,0 +1,33 @@
+{$INCLUDE eDefines.inc}
+{.$DEFINE STORERECID}
+{$DEFINE DataAbstract5}
+
+{$IFDEF FPC}
+  {$IFNDEF RO_FPC_MODE_SET}
+    {$MODE DELPHI}
+    {$DEFINE RO_FPC_MODE_SET}
+  {$ENDIF}
+  {$DEFINE FPC_SAFECALL_BUG}
+  {$DEFINE DA_WideMemoSupport}        // support for ftWideMemo
+  {$DEFINE DA_FixedWideCharSupport}   // support for ftWideFixedChar
+  {.$DEFINE ftFMTBCD_Support}         // support for FMTBCD
+{$ENDIF}
+
+{$IFDEF DELPHI6UP}
+  {$DEFINE ftFMTBCD_Support}     // support for FMTBCD
+{$ENDIF}
+
+
+{$IFDEF DELPHI10UP}
+  {$DEFINE DA_WideMemoSupport}        // support for ftWideMemo
+  {$DEFINE DA_FixedWideCharSupport}   // support for ftWideFixedChar
+{$ENDIF}
+
+// always use std methods for TDataset-compatible drivers
+{$DEFINE Drivers_CompatibilityMode}
+
+// bug in Delphi2009 with AsAnsiString
+{.$DEFINE DELPHI2009_USE_AsAnsiString_for_TStringField}
+
+// 
+{$DEFINE USE_LOCALDATAADAPTER}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3.rodl b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3.rodl
new file mode 100644
index 0000000..d9d82c1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3.rodl	
@@ -0,0 +1,171 @@
+<Library Name="DataAbstract3" UID="{2966A4BF-569C-45AA-8F34-CF1E155FD77A}" Version="3.0">
+<Services>
+<Service Name="DARemoteService" UID="{95DD2011-2B13-4CD6-8C9E-96BB71008093}" Abstract="1">
+<Interfaces>
+<Interface Name="Default" UID="{C532E842-0AA9-4253-A9BF-AFCF22885B97}">
+<Operations>
+<Operation Name="GetDatasetSchema" UID="{D051F207-728C-4C62-B8AC-71AF06EC0EAF}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="aDatasetName" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetDatasetScripts" UID="{56B8AC37-50B5-4702-987A-406116E01B5F}">
+<Parameters>
+<Parameter Name="Result" DataType="String" Flag="Result">
+</Parameter>
+<Parameter Name="DatasetNames" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetDatasetData" UID="{8575660B-29D0-424D-8E55-3833D18DB927}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="DatasetName" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="Params" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="IncludeSchema" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="MaxRecords" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetDatasetDataEx" UID="{A07DFFAF-41A0-489A-83E8-B31992898BA7}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="DatasetName" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="Params" DataType="TDADatasetParamArray" Flag="In" >
+</Parameter>
+<Parameter Name="UserFilter" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="IncludeSchema" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="MaxRecords" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="UpdateData" UID="{D8E619B6-28E7-47BF-AE14-2EA90931CD88}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="Delta" DataType="Binary" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="ExecuteSQLCommand" UID="{05FA035A-8CAB-448A-99C2-98272A772088}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="SQL" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetSchemaAsXML" UID="{390B1AA0-7568-47D7-A593-3FDA8FD3AA04}">
+<Parameters>
+<Parameter Name="Result" DataType="String" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetMultipleDatasets" UID="{F925F364-645C-4642-8A44-466892897BD0}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="DatasetRequestInfoArray" DataType="TDADatasetRequestInfoArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="ExecuteSQLCommandEx" UID="{726EDDF7-D1B2-43DF-B0E3-69E62F89DE0E}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="CommandName" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="Params" DataType="TDADatasetParamArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="DALoginService" UID="{BCA2B2AC-7B31-46C8-9D94-4EA8B8930C21}" Ancestor="DARemoteService" Abstract="1">
+<Interfaces>
+<Interface Name="Default" UID="{58550AA0-B64F-495A-B2F8-C981D4C39180}">
+<Operations>
+<Operation Name="Login" UID="{3313B07C-5C16-4131-9141-6400C83C4E8F}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="UserID" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="Password" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="LoginInfo" DataType="TDALoginInfo" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="Logout" UID="{8805C446-5CE9-4A0C-BD0D-719B399DA126}">
+<Parameters>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="TDADatasetParam" UID="{70997D96-821B-4C1C-9EDF-163B2F596333}" AutoCreateParams="1">
+<Elements>
+<Element Name="Name" DataType="String">
+</Element>
+<Element Name="Value" DataType="Variant">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="TDADatasetRequestInfo" UID="{B1A39AE9-2463-4CA4-B290-F152E4ADC528}" AutoCreateParams="1">
+<Elements>
+<Element Name="DatasetName" DataType="String">
+</Element>
+<Element Name="IncludeSchema" DataType="Boolean">
+</Element>
+<Element Name="MaxRecords" DataType="Integer">
+</Element>
+<Element Name="Params" DataType="TDADatasetParamArray">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="TDALoginInfo" UID="{8E0DA92C-0D9D-4621-AF73-120D194CB12E}" AutoCreateParams="1">
+<Elements>
+<Element Name="SessionID" DataType="String">
+</Element>
+<Element Name="UserID" DataType="String">
+</Element>
+<Element Name="Privileges" DataType="TDAStringArray">
+</Element>
+<Element Name="Attributes" DataType="TDAStringArray">
+</Element>
+<Element Name="Data" DataType="Binary">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+<Array Name="TDADatasetParamArray" UID="{6EFAF991-D747-46BF-A4C1-10F07C1A6333}">
+<ElementType DataType="TDADatasetParam" />
+</Array>
+<Array Name="TDADatasetRequestInfoArray" UID="{E421B749-348E-4951-ABBD-3E3364AC13D4}">
+<ElementType DataType="TDADatasetRequestInfo" />
+</Array>
+<Array Name="TDAStringArray" UID="{76872F99-438C-4476-B7E9-EE2F306A2A82}">
+<ElementType DataType="String" />
+</Array>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Async.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Async.pas
new file mode 100644
index 0000000..e823d65
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Async.pas	
@@ -0,0 +1,367 @@
+unit DataAbstract3_Async;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROTypes, uROClientIntf, uROAsync,
+  {Project:} DataAbstract3_Intf;
+
+type
+  { IDARemoteService_Async }
+  IDARemoteService_Async = interface(IROAsyncInterface)
+    ['{F8299772-C66E-4D77-A4F9-78400662810B}']
+    procedure Invoke_GetDatasetSchema(const aDatasetName: AnsiString);
+    procedure Invoke_GetDatasetScripts(const DatasetNames: AnsiString);
+    procedure Invoke_GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
+    procedure Invoke_GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
+    procedure Invoke_UpdateData(const Delta: Binary);
+    procedure Invoke_ExecuteSQLCommand(const SQL: AnsiString);
+    procedure Invoke_GetSchemaAsXML;
+    procedure Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
+    procedure Invoke_ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray);
+    function Retrieve_GetDatasetSchema: Binary;
+    function Retrieve_GetDatasetScripts: AnsiString;
+    function Retrieve_GetDatasetData: Binary;
+    function Retrieve_GetDatasetDataEx: Binary;
+    function Retrieve_UpdateData: Binary;
+    function Retrieve_ExecuteSQLCommand: Integer;
+    function Retrieve_GetSchemaAsXML: AnsiString;
+    function Retrieve_GetMultipleDatasets: Binary;
+    function Retrieve_ExecuteSQLCommandEx: Integer;
+  end;
+
+  { IDALoginService_Async }
+  IDALoginService_Async = interface(IDARemoteService_Async)
+    ['{5A9C9231-1C8D-4436-88E1-07AD23D7BEF3}']
+    procedure Invoke_Login(const UserID: AnsiString; const Password: AnsiString);
+    procedure Invoke_Logout;
+    function Retrieve_Login(out LoginInfo: TDALoginInfo): Boolean;
+  end;
+
+  { CoDARemoteService_Async }
+  CoDARemoteService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARemoteService_Async;
+  end;
+
+  { CoDALoginService_Async }
+  CoDALoginService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDALoginService_Async;
+  end;
+
+  { TDARemoteService_AsyncProxy }
+  TDARemoteService_AsyncProxy = class(TROAsyncProxy, IDARemoteService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_GetDatasetSchema(const aDatasetName: AnsiString);
+    procedure Invoke_GetDatasetScripts(const DatasetNames: AnsiString);
+    procedure Invoke_GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
+    procedure Invoke_GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
+    procedure Invoke_UpdateData(const Delta: Binary);
+    procedure Invoke_ExecuteSQLCommand(const SQL: AnsiString);
+    procedure Invoke_GetSchemaAsXML;
+    procedure Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
+    procedure Invoke_ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray);
+    function Retrieve_GetDatasetSchema: Binary;
+    function Retrieve_GetDatasetScripts: AnsiString;
+    function Retrieve_GetDatasetData: Binary;
+    function Retrieve_GetDatasetDataEx: Binary;
+    function Retrieve_UpdateData: Binary;
+    function Retrieve_ExecuteSQLCommand: Integer;
+    function Retrieve_GetSchemaAsXML: AnsiString;
+    function Retrieve_GetMultipleDatasets: Binary;
+    function Retrieve_ExecuteSQLCommandEx: Integer;
+  end;
+
+  { TDALoginService_AsyncProxy }
+  TDALoginService_AsyncProxy = class(TDARemoteService_AsyncProxy, IDALoginService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_Login(const UserID: AnsiString; const Password: AnsiString);
+    procedure Invoke_Logout;
+    function Retrieve_Login(out LoginInfo: TDALoginInfo): Boolean;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils;
+
+{ CoDARemoteService }
+
+class function CoDARemoteService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARemoteService_Async;
+begin
+  result := TDARemoteService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDARemoteService_AsyncProxy }
+
+function TDARemoteService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'DARemoteService';
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetSchema(const aDatasetName: AnsiString);
+begin
+  __AssertProxyNotBusy('GetDatasetSchema');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetSchema');
+  __Message.Write('aDatasetName', TypeInfo(AnsiString), aDatasetName, []);
+  __DispatchAsyncRequest('GetDatasetSchema',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_GetDatasetSchema: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('GetDatasetSchema');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetScripts(const DatasetNames: AnsiString);
+begin
+  __AssertProxyNotBusy('GetDatasetScripts');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetScripts');
+  __Message.Write('DatasetNames', TypeInfo(AnsiString), DatasetNames, []);
+  __DispatchAsyncRequest('GetDatasetScripts',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_GetDatasetScripts: AnsiString;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetDatasetScripts');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(AnsiString), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
+begin
+  __AssertProxyNotBusy('GetDatasetData');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetData');
+  __Message.Write('DatasetName', TypeInfo(AnsiString), DatasetName, []);
+  __Message.Write('Params', TypeInfo(AnsiString), Params, []);
+  __Message.Write('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
+  __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
+  __DispatchAsyncRequest('GetDatasetData',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_GetDatasetData: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('GetDatasetData');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
+begin
+  __AssertProxyNotBusy('GetDatasetDataEx');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetDataEx');
+  __Message.Write('DatasetName', TypeInfo(AnsiString), DatasetName, []);
+  __Message.Write('Params', TypeInfo(TDADatasetParamArray), Params, []);
+  __Message.Write('UserFilter', TypeInfo(AnsiString), UserFilter, []);
+  __Message.Write('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
+  __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
+  __DispatchAsyncRequest('GetDatasetDataEx',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_GetDatasetDataEx: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('GetDatasetDataEx');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_UpdateData(const Delta: Binary);
+begin
+  __AssertProxyNotBusy('UpdateData');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'UpdateData');
+  __Message.Write('Delta', TypeInfo(Binary), Delta, []);
+  __DispatchAsyncRequest('UpdateData',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_UpdateData: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('UpdateData');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_ExecuteSQLCommand(const SQL: AnsiString);
+begin
+  __AssertProxyNotBusy('ExecuteSQLCommand');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'ExecuteSQLCommand');
+  __Message.Write('SQL', TypeInfo(AnsiString), SQL, []);
+  __DispatchAsyncRequest('ExecuteSQLCommand',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_ExecuteSQLCommand: Integer;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('ExecuteSQLCommand');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Integer), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_GetSchemaAsXML;
+begin
+  __AssertProxyNotBusy('GetSchemaAsXML');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetSchemaAsXML');
+  __DispatchAsyncRequest('GetSchemaAsXML',__Message);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_GetSchemaAsXML: AnsiString;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetSchemaAsXML');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(AnsiString), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
+begin
+  __AssertProxyNotBusy('GetMultipleDatasets');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetMultipleDatasets');
+  __Message.Write('DatasetRequestInfoArray', TypeInfo(TDADatasetRequestInfoArray), DatasetRequestInfoArray, []);
+  __DispatchAsyncRequest('GetMultipleDatasets',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_GetMultipleDatasets: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('GetMultipleDatasets');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDARemoteService_AsyncProxy.Invoke_ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray);
+begin
+  __AssertProxyNotBusy('ExecuteSQLCommandEx');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'ExecuteSQLCommandEx');
+  __Message.Write('CommandName', TypeInfo(AnsiString), CommandName, []);
+  __Message.Write('Params', TypeInfo(TDADatasetParamArray), Params, []);
+  __DispatchAsyncRequest('ExecuteSQLCommandEx',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDARemoteService_AsyncProxy.Retrieve_ExecuteSQLCommandEx: Integer;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('ExecuteSQLCommandEx');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Integer), Result, []);
+
+  __response.Free();
+end;
+
+
+{ CoDALoginService }
+
+class function CoDALoginService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDALoginService_Async;
+begin
+  result := TDALoginService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDALoginService_AsyncProxy }
+
+function TDALoginService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'DALoginService';
+end;
+
+procedure TDALoginService_AsyncProxy.Invoke_Login(const UserID: AnsiString; const Password: AnsiString);
+begin
+  __AssertProxyNotBusy('Login');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'Login');
+  __Message.Write('UserID', TypeInfo(AnsiString), UserID, []);
+  __Message.Write('Password', TypeInfo(AnsiString), Password, []);
+  __DispatchAsyncRequest('Login',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDALoginService_AsyncProxy.Retrieve_Login(out LoginInfo: TDALoginInfo): Boolean;
+var __response:TStream;
+begin
+  LoginInfo := nil;
+  __response := __RetrieveAsyncResponse('Login');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Boolean), Result, []);
+  __Message.Read('LoginInfo', TypeInfo(TDALoginInfo), LoginInfo, []);
+
+  __response.Free();
+end;
+
+procedure TDALoginService_AsyncProxy.Invoke_Logout;
+begin
+  __AssertProxyNotBusy('Logout');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'Logout');
+  __DispatchAsyncRequest('Logout',__Message, false);
+end;
+
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Intf.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Intf.pas
new file mode 100644
index 0000000..c1f4134
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Intf.pas	
@@ -0,0 +1,1367 @@
+unit DataAbstract3_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{2966A4BF-569C-45AA-8F34-CF1E155FD77A}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDARemoteService_IID : TGUID = '{C532E842-0AA9-4253-A9BF-AFCF22885B97}';
+  IDALoginService_IID : TGUID = '{58550AA0-B64F-495A-B2F8-C981D4C39180}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IDARemoteService = interface;
+  IDALoginService = interface;
+
+  TDADatasetParamArray = class;
+  TDADatasetRequestInfoArray = class;
+  TDAStringArray = class;
+
+  TDADatasetParam = class;
+  TDADatasetRequestInfo = class;
+  TDALoginInfo = class;
+
+
+  { TDADatasetParam }
+  TDADatasetParam = class(TROComplexType)
+  private
+    fName: AnsiString;
+    fValue: Variant;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property Name:AnsiString read fName write fName;
+    property Value:Variant read fValue write fValue;
+  end;
+
+  { TDADatasetParamCollection }
+  TDADatasetParamCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TDADatasetParam;
+    procedure SetItems(aIndex: integer; const Value: TDADatasetParam);
+  public
+    constructor Create; overload;
+    function Add: TDADatasetParam; reintroduce;
+    procedure SaveToArray(anArray: TDADatasetParamArray);
+    procedure LoadFromArray(anArray: TDADatasetParamArray);
+    property Items[Index: integer]:TDADatasetParam read GetItems write SetItems; default;
+  end;
+
+  { TDADatasetRequestInfo }
+  TDADatasetRequestInfo = class(TROComplexType)
+  private
+    fDatasetName: AnsiString;
+    fIncludeSchema: Boolean;
+    fMaxRecords: Integer;
+    fParams: TDADatasetParamArray;
+    function GetParams: TDADatasetParamArray;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property DatasetName:AnsiString read fDatasetName write fDatasetName;
+    property IncludeSchema:Boolean read fIncludeSchema write fIncludeSchema;
+    property MaxRecords:Integer read fMaxRecords write fMaxRecords;
+    property Params:TDADatasetParamArray read GetParams write fParams;
+  end;
+
+  { TDADatasetRequestInfoCollection }
+  TDADatasetRequestInfoCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TDADatasetRequestInfo;
+    procedure SetItems(aIndex: integer; const Value: TDADatasetRequestInfo);
+  public
+    constructor Create; overload;
+    function Add: TDADatasetRequestInfo; reintroduce;
+    procedure SaveToArray(anArray: TDADatasetRequestInfoArray);
+    procedure LoadFromArray(anArray: TDADatasetRequestInfoArray);
+    property Items[Index: integer]:TDADatasetRequestInfo read GetItems write SetItems; default;
+  end;
+
+  { TDALoginInfo }
+  TDALoginInfo = class(TROComplexType)
+  private
+    fSessionID: AnsiString;
+    fUserID: AnsiString;
+    fPrivileges: TDAStringArray;
+    fAttributes: TDAStringArray;
+    fData: Binary;
+    function GetPrivileges: TDAStringArray;
+    function GetAttributes: TDAStringArray;
+    function GetData: Binary;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property SessionID:AnsiString read fSessionID write fSessionID;
+    property UserID:AnsiString read fUserID write fUserID;
+    property Privileges:TDAStringArray read GetPrivileges write fPrivileges;
+    property Attributes:TDAStringArray read GetAttributes write fAttributes;
+    property Data:Binary read GetData write fData;
+  end;
+
+  { TDALoginInfoCollection }
+  TDALoginInfoCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TDALoginInfo;
+    procedure SetItems(aIndex: integer; const Value: TDALoginInfo);
+  public
+    constructor Create; overload;
+    function Add: TDALoginInfo; reintroduce;
+    property Items[Index: integer]:TDALoginInfo read GetItems write SetItems; default;
+  end;
+
+  { TDADatasetParamArray }
+  TDADatasetParamArray_TDADatasetParam = array of TDADatasetParam;
+  TDADatasetParamArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TDADatasetParamArray_TDADatasetParam;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): TDADatasetParam;
+    procedure SetItems(aIndex: integer; const Value: TDADatasetParam);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: TDADatasetParam; overload;
+    function Add(const Value: TDADatasetParam):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:TDADatasetParam read GetItems write SetItems; default;
+    property InnerArray: TDADatasetParamArray_TDADatasetParam read fItems;
+  end;
+
+  { TDADatasetRequestInfoArray }
+  TDADatasetRequestInfoArray_TDADatasetRequestInfo = array of TDADatasetRequestInfo;
+  TDADatasetRequestInfoArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TDADatasetRequestInfoArray_TDADatasetRequestInfo;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): TDADatasetRequestInfo;
+    procedure SetItems(aIndex: integer; const Value: TDADatasetRequestInfo);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: TDADatasetRequestInfo; overload;
+    function Add(const Value: TDADatasetRequestInfo):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:TDADatasetRequestInfo read GetItems write SetItems; default;
+    property InnerArray: TDADatasetRequestInfoArray_TDADatasetRequestInfo read fItems;
+  end;
+
+  { TDAStringArray }
+  TDAStringArray_AnsiString = array of AnsiString;
+  TDAStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TDAStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: TDAStringArray_AnsiString read fItems;
+  end;
+
+  { IDARemoteService }
+  IDARemoteService = interface
+    ['{C532E842-0AA9-4253-A9BF-AFCF22885B97}']
+    function GetDatasetSchema(const aDatasetName: AnsiString): Binary;
+    function GetDatasetScripts(const DatasetNames: AnsiString): AnsiString;
+    function GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer): Binary;
+    function GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; 
+                              const MaxRecords: Integer): Binary;
+    function UpdateData(const Delta: Binary): Binary;
+    function ExecuteSQLCommand(const SQL: AnsiString): Integer;
+    function GetSchemaAsXML: AnsiString;
+    function GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray): Binary;
+    function ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray): Integer;
+  end;
+
+  { CoDARemoteService }
+  CoDARemoteService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARemoteService;
+  end;
+
+  { TDARemoteService_Proxy }
+  TDARemoteService_Proxy = class(TROProxy, IDARemoteService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetDatasetSchema(const aDatasetName: AnsiString): Binary;
+    function GetDatasetScripts(const DatasetNames: AnsiString): AnsiString;
+    function GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer): Binary;
+    function GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; 
+                              const MaxRecords: Integer): Binary;
+    function UpdateData(const Delta: Binary): Binary;
+    function ExecuteSQLCommand(const SQL: AnsiString): Integer;
+    function GetSchemaAsXML: AnsiString;
+    function GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray): Binary;
+    function ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray): Integer;
+  end;
+
+  { IDALoginService }
+  IDALoginService = interface(IDARemoteService)
+    ['{58550AA0-B64F-495A-B2F8-C981D4C39180}']
+    function Login(const UserID: AnsiString; const Password: AnsiString; out LoginInfo: TDALoginInfo): Boolean;
+    procedure Logout;
+  end;
+
+  { CoDALoginService }
+  CoDALoginService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDALoginService;
+  end;
+
+  { TDALoginService_Proxy }
+  TDALoginService_Proxy = class(TDARemoteService_Proxy, IDALoginService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Login(const UserID: AnsiString; const Password: AnsiString; out LoginInfo: TDALoginInfo): Boolean;
+    procedure Logout;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ TDADatasetParamArray }
+
+procedure TDADatasetParamArray.Assign(iSource: TPersistent);
+var lSource:TDADatasetParamArray;
+    i:integer;
+begin
+  if (iSource is TDADatasetParamArray) then begin
+    lSource := TDADatasetParamArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TDADatasetParamArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(TDADatasetParam);
+end;
+
+class function TDADatasetParamArray.GetItemClass: TClass;
+begin
+  result := TDADatasetParam;
+end;
+
+class function TDADatasetParamArray.GetItemSize: integer;
+begin
+  result := SizeOf(TDADatasetParam);
+end;
+
+function TDADatasetParamArray.GetItems(aIndex: integer): TDADatasetParam;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TDADatasetParamArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure TDADatasetParamArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure TDADatasetParamArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TDADatasetParamArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TDADatasetParamArray.SetItems(aIndex: integer; const Value: TDADatasetParam);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure TDADatasetParamArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := TDADatasetParam.Create;
+  FCount := ElementCount;
+end;
+
+function TDADatasetParamArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TDADatasetParamArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TDADatasetParamArray.Add: TDADatasetParam;
+begin
+  result := TDADatasetParam.Create;
+  Add(Result);
+end;
+
+function TDADatasetParamArray.Add(const Value:TDADatasetParam): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure TDADatasetParamArray.ReadComplex(ASerializer: TObject);
+var
+  lval: TDADatasetParam;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), TDADatasetParam, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TDADatasetParamArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], TDADatasetParam, i);
+end;
+
+{ TDADatasetRequestInfoArray }
+
+procedure TDADatasetRequestInfoArray.Assign(iSource: TPersistent);
+var lSource:TDADatasetRequestInfoArray;
+    i:integer;
+begin
+  if (iSource is TDADatasetRequestInfoArray) then begin
+    lSource := TDADatasetRequestInfoArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TDADatasetRequestInfoArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(TDADatasetRequestInfo);
+end;
+
+class function TDADatasetRequestInfoArray.GetItemClass: TClass;
+begin
+  result := TDADatasetRequestInfo;
+end;
+
+class function TDADatasetRequestInfoArray.GetItemSize: integer;
+begin
+  result := SizeOf(TDADatasetRequestInfo);
+end;
+
+function TDADatasetRequestInfoArray.GetItems(aIndex: integer): TDADatasetRequestInfo;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TDADatasetRequestInfoArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure TDADatasetRequestInfoArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure TDADatasetRequestInfoArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TDADatasetRequestInfoArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TDADatasetRequestInfoArray.SetItems(aIndex: integer; const Value: TDADatasetRequestInfo);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure TDADatasetRequestInfoArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := TDADatasetRequestInfo.Create;
+  FCount := ElementCount;
+end;
+
+function TDADatasetRequestInfoArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TDADatasetRequestInfoArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TDADatasetRequestInfoArray.Add: TDADatasetRequestInfo;
+begin
+  result := TDADatasetRequestInfo.Create;
+  Add(Result);
+end;
+
+function TDADatasetRequestInfoArray.Add(const Value:TDADatasetRequestInfo): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure TDADatasetRequestInfoArray.ReadComplex(ASerializer: TObject);
+var
+  lval: TDADatasetRequestInfo;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), TDADatasetRequestInfo, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TDADatasetRequestInfoArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], TDADatasetRequestInfo, i);
+end;
+
+{ TDAStringArray }
+
+procedure TDAStringArray.Assign(iSource: TPersistent);
+var lSource:TDAStringArray;
+    i:integer;
+begin
+  if (iSource is TDAStringArray) then begin
+    lSource := TDAStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TDAStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function TDAStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function TDAStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TDAStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure TDAStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TDAStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TDAStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure TDAStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function TDAStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TDAStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TDAStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function TDAStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure TDAStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TDAStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ TDADatasetParam }
+
+procedure TDADatasetParam.Assign(iSource: TPersistent); 
+var lSource: DataAbstract3_Intf.TDADatasetParam;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract3_Intf.TDADatasetParam) then begin
+    lSource := DataAbstract3_Intf.TDADatasetParam(iSource);
+    Name := lSource.Name;
+    Value := lSource.Value;
+  end;
+end;
+
+procedure TDADatasetParam.ReadComplex(ASerializer: TObject);
+var
+  l_Name: AnsiString;
+  l_Value: Variant;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_Name := Name;
+    TROSerializer(ASerializer).ReadUTF8String('Name', l_Name);
+    Name := l_Name;
+    l_Value := Value;
+    TROSerializer(ASerializer).ReadVariant('Value', l_Value);
+    Value := l_Value;
+  end
+  else begin
+    l_Name := Name;
+    TROSerializer(ASerializer).ReadUTF8String('Name', l_Name);
+    Name := l_Name;
+    l_Value := Value;
+    TROSerializer(ASerializer).ReadVariant('Value', l_Value);
+    Value := l_Value;
+  end;
+end;
+
+procedure TDADatasetParam.WriteComplex(ASerializer: TObject);
+var
+  l_Name: AnsiString;
+  l_Value: Variant;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TDADatasetParam);
+    l_Name := Name;
+    TROSerializer(ASerializer).WriteUTF8String('Name', l_Name);
+    l_Value := Value;
+    TROSerializer(ASerializer).WriteVariant('Value', l_Value);
+  end
+  else begin
+    l_Name := Name;
+    TROSerializer(ASerializer).WriteUTF8String('Name', l_Name);
+    l_Value := Value;
+    TROSerializer(ASerializer).WriteVariant('Value', l_Value);
+  end;
+end;
+
+{ TDADatasetParamCollection }
+constructor TDADatasetParamCollection.Create;
+begin
+  inherited Create(TDADatasetParam);
+end;
+
+constructor TDADatasetParamCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TDADatasetParamCollection.Add: TDADatasetParam;
+begin
+  result := TDADatasetParam(inherited Add);
+end;
+
+function TDADatasetParamCollection.GetItems(aIndex: integer): TDADatasetParam;
+begin
+  result := TDADatasetParam(inherited Items[aIndex]);
+end;
+
+procedure TDADatasetParamCollection.LoadFromArray(anArray: TDADatasetParamArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure TDADatasetParamCollection.SaveToArray(anArray: TDADatasetParamArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := TDADatasetParam.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure TDADatasetParamCollection.SetItems(aIndex: integer; const Value: TDADatasetParam);
+begin
+  TDADatasetParam(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ TDADatasetRequestInfo }
+
+procedure TDADatasetRequestInfo.Assign(iSource: TPersistent); 
+var lSource: DataAbstract3_Intf.TDADatasetRequestInfo;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract3_Intf.TDADatasetRequestInfo) then begin
+    lSource := DataAbstract3_Intf.TDADatasetRequestInfo(iSource);
+    DatasetName := lSource.DatasetName;
+    IncludeSchema := lSource.IncludeSchema;
+    MaxRecords := lSource.MaxRecords;
+    Params.Assign(lSource.Params);
+  end;
+end;
+
+function TDADatasetRequestInfo.GetParams: TDADatasetParamArray;
+begin
+  if (fParams = nil) then fParams := TDADatasetParamArray.Create();
+  result := fParams;
+end;
+
+procedure TDADatasetRequestInfo.ReadComplex(ASerializer: TObject);
+var
+  l_DatasetName: AnsiString;
+  l_IncludeSchema: Boolean;
+  l_MaxRecords: Integer;
+  l_Params: TDADatasetParamArray;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_DatasetName := DatasetName;
+    TROSerializer(ASerializer).ReadUTF8String('DatasetName', l_DatasetName);
+    DatasetName := l_DatasetName;
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).ReadEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    IncludeSchema := l_IncludeSchema;
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).ReadInteger('MaxRecords', otSLong, l_MaxRecords);
+    MaxRecords := l_MaxRecords;
+    l_Params := Params;
+    TROSerializer(ASerializer).ReadArray('Params', TDADatasetParamArray, l_Params);
+    if Params <> l_Params then Params.Free;
+    Params := l_Params;
+  end
+  else begin
+    l_DatasetName := DatasetName;
+    TROSerializer(ASerializer).ReadUTF8String('DatasetName', l_DatasetName);
+    DatasetName := l_DatasetName;
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).ReadEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    IncludeSchema := l_IncludeSchema;
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).ReadInteger('MaxRecords', otSLong, l_MaxRecords);
+    MaxRecords := l_MaxRecords;
+    l_Params := Params;
+    TROSerializer(ASerializer).ReadArray('Params', TDADatasetParamArray, l_Params);
+    if Params <> l_Params then Params.Free;
+    Params := l_Params;
+  end;
+end;
+
+procedure TDADatasetRequestInfo.WriteComplex(ASerializer: TObject);
+var
+  l_DatasetName: AnsiString;
+  l_IncludeSchema: Boolean;
+  l_MaxRecords: Integer;
+  l_Params: TDADatasetParamArray;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TDADatasetRequestInfo);
+    l_DatasetName := DatasetName;
+    TROSerializer(ASerializer).WriteUTF8String('DatasetName', l_DatasetName);
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).WriteEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).WriteInteger('MaxRecords', otSLong, l_MaxRecords);
+    l_Params := Params;
+    TROSerializer(ASerializer).WriteArray('Params', l_Params, TDADatasetParamArray);
+  end
+  else begin
+    l_DatasetName := DatasetName;
+    TROSerializer(ASerializer).WriteUTF8String('DatasetName', l_DatasetName);
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).WriteEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).WriteInteger('MaxRecords', otSLong, l_MaxRecords);
+    l_Params := Params;
+    TROSerializer(ASerializer).WriteArray('Params', l_Params, TDADatasetParamArray);
+  end;
+end;
+
+{ TDADatasetRequestInfoCollection }
+constructor TDADatasetRequestInfoCollection.Create;
+begin
+  inherited Create(TDADatasetRequestInfo);
+end;
+
+constructor TDADatasetRequestInfoCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TDADatasetRequestInfoCollection.Add: TDADatasetRequestInfo;
+begin
+  result := TDADatasetRequestInfo(inherited Add);
+end;
+
+function TDADatasetRequestInfoCollection.GetItems(aIndex: integer): TDADatasetRequestInfo;
+begin
+  result := TDADatasetRequestInfo(inherited Items[aIndex]);
+end;
+
+procedure TDADatasetRequestInfoCollection.LoadFromArray(anArray: TDADatasetRequestInfoArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure TDADatasetRequestInfoCollection.SaveToArray(anArray: TDADatasetRequestInfoArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := TDADatasetRequestInfo.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure TDADatasetRequestInfoCollection.SetItems(aIndex: integer; const Value: TDADatasetRequestInfo);
+begin
+  TDADatasetRequestInfo(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ TDALoginInfo }
+
+procedure TDALoginInfo.Assign(iSource: TPersistent); 
+var lSource: DataAbstract3_Intf.TDALoginInfo;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract3_Intf.TDALoginInfo) then begin
+    lSource := DataAbstract3_Intf.TDALoginInfo(iSource);
+    SessionID := lSource.SessionID;
+    UserID := lSource.UserID;
+    Privileges.Assign(lSource.Privileges);
+    Attributes.Assign(lSource.Attributes);
+    Data.Assign(lSource.Data);
+  end;
+end;
+
+function TDALoginInfo.GetPrivileges: TDAStringArray;
+begin
+  if (fPrivileges = nil) then fPrivileges := TDAStringArray.Create();
+  result := fPrivileges;
+end;
+
+function TDALoginInfo.GetAttributes: TDAStringArray;
+begin
+  if (fAttributes = nil) then fAttributes := TDAStringArray.Create();
+  result := fAttributes;
+end;
+
+function TDALoginInfo.GetData: Binary;
+begin
+  if (fData = nil) then fData := Binary.Create();
+  result := fData;
+end;
+
+procedure TDALoginInfo.ReadComplex(ASerializer: TObject);
+var
+  l_Attributes: TDAStringArray;
+  l_Data: Binary;
+  l_Privileges: TDAStringArray;
+  l_SessionID: AnsiString;
+  l_UserID: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+    l_UserID := UserID;
+    TROSerializer(ASerializer).ReadUTF8String('UserID', l_UserID);
+    UserID := l_UserID;
+    l_Privileges := Privileges;
+    TROSerializer(ASerializer).ReadArray('Privileges', TDAStringArray, l_Privileges);
+    if Privileges <> l_Privileges then Privileges.Free;
+    Privileges := l_Privileges;
+    l_Attributes := Attributes;
+    TROSerializer(ASerializer).ReadArray('Attributes', TDAStringArray, l_Attributes);
+    if Attributes <> l_Attributes then Attributes.Free;
+    Attributes := l_Attributes;
+    l_Data := Data;
+    TROSerializer(ASerializer).ReadBinary('Data', l_Data);
+    if Data <> l_Data then Data.Free;
+    Data := l_Data;
+  end
+  else begin
+    l_Attributes := Attributes;
+    TROSerializer(ASerializer).ReadArray('Attributes', TDAStringArray, l_Attributes);
+    if Attributes <> l_Attributes then Attributes.Free;
+    Attributes := l_Attributes;
+    l_Data := Data;
+    TROSerializer(ASerializer).ReadBinary('Data', l_Data);
+    if Data <> l_Data then Data.Free;
+    Data := l_Data;
+    l_Privileges := Privileges;
+    TROSerializer(ASerializer).ReadArray('Privileges', TDAStringArray, l_Privileges);
+    if Privileges <> l_Privileges then Privileges.Free;
+    Privileges := l_Privileges;
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+    l_UserID := UserID;
+    TROSerializer(ASerializer).ReadUTF8String('UserID', l_UserID);
+    UserID := l_UserID;
+  end;
+end;
+
+procedure TDALoginInfo.WriteComplex(ASerializer: TObject);
+var
+  l_Attributes: TDAStringArray;
+  l_Data: Binary;
+  l_Privileges: TDAStringArray;
+  l_SessionID: AnsiString;
+  l_UserID: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TDALoginInfo);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
+    l_UserID := UserID;
+    TROSerializer(ASerializer).WriteUTF8String('UserID', l_UserID);
+    l_Privileges := Privileges;
+    TROSerializer(ASerializer).WriteArray('Privileges', l_Privileges, TDAStringArray);
+    l_Attributes := Attributes;
+    TROSerializer(ASerializer).WriteArray('Attributes', l_Attributes, TDAStringArray);
+    l_Data := Data;
+    TROSerializer(ASerializer).WriteBinary('Data', l_Data);
+  end
+  else begin
+    l_Attributes := Attributes;
+    TROSerializer(ASerializer).WriteArray('Attributes', l_Attributes, TDAStringArray);
+    l_Data := Data;
+    TROSerializer(ASerializer).WriteBinary('Data', l_Data);
+    l_Privileges := Privileges;
+    TROSerializer(ASerializer).WriteArray('Privileges', l_Privileges, TDAStringArray);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
+    l_UserID := UserID;
+    TROSerializer(ASerializer).WriteUTF8String('UserID', l_UserID);
+  end;
+end;
+
+{ TDALoginInfoCollection }
+constructor TDALoginInfoCollection.Create;
+begin
+  inherited Create(TDALoginInfo);
+end;
+
+constructor TDALoginInfoCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TDALoginInfoCollection.Add: TDALoginInfo;
+begin
+  result := TDALoginInfo(inherited Add);
+end;
+
+function TDALoginInfoCollection.GetItems(aIndex: integer): TDALoginInfo;
+begin
+  result := TDALoginInfo(inherited Items[aIndex]);
+end;
+
+procedure TDALoginInfoCollection.SetItems(aIndex: integer; const Value: TDALoginInfo);
+begin
+  TDALoginInfo(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoDARemoteService }
+
+class function CoDARemoteService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARemoteService;
+begin
+  result := TDARemoteService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDARemoteService_Proxy }
+
+function TDARemoteService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DARemoteService';
+end;
+
+function TDARemoteService_Proxy.GetDatasetSchema(const aDatasetName: AnsiString): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetSchema');
+    __Message.Write('aDatasetName', TypeInfo(AnsiString), aDatasetName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDARemoteService_Proxy.GetDatasetScripts(const DatasetNames: AnsiString): AnsiString;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetScripts');
+    __Message.Write('DatasetNames', TypeInfo(AnsiString), DatasetNames, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDARemoteService_Proxy.GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetData');
+    __Message.Write('DatasetName', TypeInfo(AnsiString), DatasetName, []);
+    __Message.Write('Params', TypeInfo(AnsiString), Params, []);
+    __Message.Write('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
+    __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDARemoteService_Proxy.GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; 
+                                                 const MaxRecords: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetDataEx');
+    __Message.Write('DatasetName', TypeInfo(AnsiString), DatasetName, []);
+    __Message.Write('Params', TypeInfo(DataAbstract3_Intf.TDADatasetParamArray), Params, []);
+    __Message.Write('UserFilter', TypeInfo(AnsiString), UserFilter, []);
+    __Message.Write('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
+    __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDARemoteService_Proxy.UpdateData(const Delta: Binary): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'UpdateData');
+    __Message.Write('Delta', TypeInfo(Binary), Delta, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDARemoteService_Proxy.ExecuteSQLCommand(const SQL: AnsiString): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'ExecuteSQLCommand');
+    __Message.Write('SQL', TypeInfo(AnsiString), SQL, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDARemoteService_Proxy.GetSchemaAsXML: AnsiString;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetSchemaAsXML');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDARemoteService_Proxy.GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetMultipleDatasets');
+    __Message.Write('DatasetRequestInfoArray', TypeInfo(DataAbstract3_Intf.TDADatasetRequestInfoArray), DatasetRequestInfoArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDARemoteService_Proxy.ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'ExecuteSQLCommandEx');
+    __Message.Write('CommandName', TypeInfo(AnsiString), CommandName, []);
+    __Message.Write('Params', TypeInfo(DataAbstract3_Intf.TDADatasetParamArray), Params, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoDALoginService }
+
+class function CoDALoginService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDALoginService;
+begin
+  result := TDALoginService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDALoginService_Proxy }
+
+function TDALoginService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DALoginService';
+end;
+
+function TDALoginService_Proxy.Login(const UserID: AnsiString; const Password: AnsiString; out LoginInfo: TDALoginInfo): Boolean;
+begin
+  try
+    LoginInfo := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'Login');
+    __Message.Write('UserID', TypeInfo(AnsiString), UserID, []);
+    __Message.Write('Password', TypeInfo(AnsiString), Password, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+    __Message.Read('LoginInfo', TypeInfo(DataAbstract3_Intf.TDALoginInfo), LoginInfo, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDALoginService_Proxy.Logout;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'Logout');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TDADatasetParam);
+  RegisterROClass(TDADatasetRequestInfo);
+  RegisterROClass(TDALoginInfo);
+  RegisterROClass(TDADatasetParamArray);
+  RegisterROClass(TDADatasetRequestInfoArray);
+  RegisterROClass(TDAStringArray);
+  RegisterProxyClass(IDARemoteService_IID, TDARemoteService_Proxy);
+  RegisterProxyClass(IDALoginService_IID, TDALoginService_Proxy);
+
+
+finalization
+  UnregisterROClass(TDADatasetParam);
+  UnregisterROClass(TDADatasetRequestInfo);
+  UnregisterROClass(TDALoginInfo);
+  UnregisterROClass(TDADatasetParamArray);
+  UnregisterROClass(TDADatasetRequestInfoArray);
+  UnregisterROClass(TDAStringArray);
+  UnregisterProxyClass(IDARemoteService_IID);
+  UnregisterProxyClass(IDALoginService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Invk.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Invk.pas
new file mode 100644
index 0000000..9ad9018
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract3_Invk.pas	
@@ -0,0 +1,365 @@
+unit DataAbstract3_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} DataAbstract3_Intf;
+
+type
+  TDARemoteService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetDatasetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetDatasetScripts(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetDatasetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetDatasetDataEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_UpdateData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ExecuteSQLCommand(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetSchemaAsXML(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetMultipleDatasets(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ExecuteSQLCommandEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TDALoginService_Invoker = class(TDARemoteService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TDARemoteService_Invoker }
+
+constructor TDARemoteService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := True;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_GetDatasetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetDatasetSchema(const aDatasetName: AnsiString): Binary; }
+var
+  aDatasetName: AnsiString;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('aDatasetName', TypeInfo(AnsiString), aDatasetName, []);
+
+    lResult := (__Instance as IDARemoteService).GetDatasetSchema(aDatasetName);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetDatasetSchemaResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_GetDatasetScripts(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetDatasetScripts(const DatasetNames: AnsiString): AnsiString; }
+var
+  DatasetNames: AnsiString;
+  lResult: AnsiString;
+begin
+  try
+    __Message.Read('DatasetNames', TypeInfo(AnsiString), DatasetNames, []);
+
+    lResult := (__Instance as IDARemoteService).GetDatasetScripts(DatasetNames);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetDatasetScriptsResponse');
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_GetDatasetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer): Binary; }
+var
+  DatasetName: AnsiString;
+  Params: AnsiString;
+  IncludeSchema: Boolean;
+  MaxRecords: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('DatasetName', TypeInfo(AnsiString), DatasetName, []);
+    __Message.Read('Params', TypeInfo(AnsiString), Params, []);
+    __Message.Read('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
+    __Message.Read('MaxRecords', TypeInfo(Integer), MaxRecords, []);
+
+    lResult := (__Instance as IDARemoteService).GetDatasetData(DatasetName, Params, IncludeSchema, MaxRecords);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetDatasetDataResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_GetDatasetDataEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; 
+                              const MaxRecords: Integer): Binary; }
+var
+  DatasetName: AnsiString;
+  Params: DataAbstract3_Intf.TDADatasetParamArray;
+  UserFilter: AnsiString;
+  IncludeSchema: Boolean;
+  MaxRecords: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  Params := nil;
+  lResult := nil;
+  try
+    __Message.Read('DatasetName', TypeInfo(AnsiString), DatasetName, []);
+    __Message.Read('Params', TypeInfo(DataAbstract3_Intf.TDADatasetParamArray), Params, []);
+    __Message.Read('UserFilter', TypeInfo(AnsiString), UserFilter, []);
+    __Message.Read('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
+    __Message.Read('MaxRecords', TypeInfo(Integer), MaxRecords, []);
+
+    lResult := (__Instance as IDARemoteService).GetDatasetDataEx(DatasetName, Params, UserFilter, IncludeSchema, MaxRecords);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetDatasetDataExResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(Params);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_UpdateData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function UpdateData(const Delta: Binary): Binary; }
+var
+  Delta: Binary;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  Delta := nil;
+  lResult := nil;
+  try
+    __Message.Read('Delta', TypeInfo(Binary), Delta, []);
+
+    lResult := (__Instance as IDARemoteService).UpdateData(Delta);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'UpdateDataResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(Delta);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_ExecuteSQLCommand(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ExecuteSQLCommand(const SQL: AnsiString): Integer; }
+var
+  SQL: AnsiString;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('SQL', TypeInfo(AnsiString), SQL, []);
+
+    lResult := (__Instance as IDARemoteService).ExecuteSQLCommand(SQL);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'ExecuteSQLCommandResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_GetSchemaAsXML(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetSchemaAsXML: AnsiString; }
+var
+  lResult: AnsiString;
+begin
+  try
+    lResult := (__Instance as IDARemoteService).GetSchemaAsXML;
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetSchemaAsXMLResponse');
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_GetMultipleDatasets(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray): Binary; }
+var
+  DatasetRequestInfoArray: DataAbstract3_Intf.TDADatasetRequestInfoArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  DatasetRequestInfoArray := nil;
+  lResult := nil;
+  try
+    __Message.Read('DatasetRequestInfoArray', TypeInfo(DataAbstract3_Intf.TDADatasetRequestInfoArray), DatasetRequestInfoArray, []);
+
+    lResult := (__Instance as IDARemoteService).GetMultipleDatasets(DatasetRequestInfoArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetMultipleDatasetsResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(DatasetRequestInfoArray);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDARemoteService_Invoker.Invoke_ExecuteSQLCommandEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray): Integer; }
+var
+  CommandName: AnsiString;
+  Params: DataAbstract3_Intf.TDADatasetParamArray;
+  lResult: Integer;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  Params := nil;
+  try
+    __Message.Read('CommandName', TypeInfo(AnsiString), CommandName, []);
+    __Message.Read('Params', TypeInfo(DataAbstract3_Intf.TDADatasetParamArray), Params, []);
+
+    lResult := (__Instance as IDARemoteService).ExecuteSQLCommandEx(CommandName, Params);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'ExecuteSQLCommandExResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(Params);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+{ TDALoginService_Invoker }
+
+constructor TDALoginService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := True;
+end;
+
+procedure TDALoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Login(const UserID: AnsiString; const Password: AnsiString; out LoginInfo: TDALoginInfo): Boolean; }
+var
+  UserID: AnsiString;
+  Password: AnsiString;
+  LoginInfo: DataAbstract3_Intf.TDALoginInfo;
+  lResult: Boolean;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  LoginInfo := nil;
+  try
+    __Message.Read('UserID', TypeInfo(AnsiString), UserID, []);
+    __Message.Read('Password', TypeInfo(AnsiString), Password, []);
+
+    lResult := (__Instance as IDALoginService).Login(UserID, Password, LoginInfo);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DALoginService', 'LoginResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Write('LoginInfo', TypeInfo(DataAbstract3_Intf.TDALoginInfo), LoginInfo, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(LoginInfo);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDALoginService_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Logout; }
+begin
+  try
+    (__Instance as IDALoginService).Logout;
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DALoginService', 'LogoutResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4.rodl b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4.rodl
new file mode 100644
index 0000000..ed4cf28
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4.rodl	
@@ -0,0 +1,332 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="DataAbstract4" Namespace="RemObjects.DataAbstract.Server" UID="{DC8B7BE2-14AF-402D-B1F8-E1008B6FA4F6}" Version="3.0">
+<Services>
+<Service Name="DataAbstractService" UID="{3B33DC0F-EC94-433E-97AC-D090F68BCE6A}" Abstract="1">
+<Interfaces>
+<Interface Name="Default" UID="{4C2EC238-4FB4-434E-8CFF-ED25EEFF1525}">
+<Documentation><![CDATA[   Service WinFormsDAServerService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="GetSchema" UID="{684994AA-6829-4497-A054-0ACB6647E24F}">
+<Parameters>
+<Parameter Name="Result" DataType="Utf8String" Flag="Result">
+</Parameter>
+<Parameter Name="aFilter" DataType="Utf8String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetData" UID="{7C394D25-2B02-4CC9-838B-7099B06F857C}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="aTableNameArray" DataType="StringArray" Flag="In" >
+</Parameter>
+<Parameter Name="aTableRequestInfoArray" DataType="TableRequestInfoArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="UpdateData" UID="{8FBDE1AF-A3DA-487A-9E08-FB7F446F8DC6}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="aDelta" DataType="Binary" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="ExecuteCommand" UID="{BEBB190E-A511-4808-9424-5594CB5B5F58}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="aCommandName" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aParameterArray" DataType="DataParameterArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="ExecuteCommandEx" UID="{B2C8E6DA-F233-4365-9F56-1590C0583604}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="aCommandName" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aInputParameters" DataType="DataParameterArray" Flag="In" >
+</Parameter>
+<Parameter Name="aOutputParameters" DataType="DataParameterArray" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetTableSchema" UID="{CFD45BA0-FD52-40C5-951A-08FF71CF5059}">
+<Parameters>
+<Parameter Name="Result" DataType="Utf8String" Flag="Result">
+</Parameter>
+<Parameter Name="aTableNameArray" DataType="StringArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetCommandSchema" UID="{15345F7D-9962-485C-B383-BCB0397DD50A}">
+<Parameters>
+<Parameter Name="Result" DataType="Utf8String" Flag="Result">
+</Parameter>
+<Parameter Name="aCommandNameArray" DataType="StringArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SQLGetData" UID="{F3A01874-E954-48F5-9DB3-315F248A0E08}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="aSQLText" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aIncludeSchema" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="aMaxRecords" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SQLGetDataEx" UID="{025A6E0D-8583-44C7-8F5F-6ADE175E446F}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="aSQLText" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aIncludeSchema" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="aMaxRecords" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="aDynamicWhereXML" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SQLExecuteCommand" UID="{C2525BDB-0CBA-4258-8016-37EB75C24BD7}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="aSQLText" DataType="Utf8String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SQLExecuteCommandEx" UID="{284F296C-A86B-410E-8A91-72D6E0DA86B9}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="aSQLText" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aDynamicWhereXML" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetDatasetScripts" UID="{1025B82B-49FD-4D62-ACE1-908BAA8D330C}">
+<Parameters>
+<Parameter Name="Result" DataType="Utf8String" Flag="Result">
+</Parameter>
+<Parameter Name="DatasetNames" DataType="Utf8String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="RegisterForDataChangeNotification" UID="{3BFC17C7-6676-4B43-A90D-ABEC10072B48}">
+<Parameters>
+<Parameter Name="aTableName" DataType="Utf8String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="UnregisterForDataChangeNotification" UID="{F3D1B5FB-42FA-46B4-8528-16CF915D4B4D}">
+<Parameters>
+<Parameter Name="aTableName" DataType="Utf8String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="SimpleLoginService" UID="{4DD93F46-E044-47B9-A0F6-B45CD60A233A}" Ancestor="BaseLoginService" Abstract="1">
+<Interfaces>
+<Interface Name="Default" UID="{B186853B-168B-4E33-B798-467444BFC8C6}">
+<Operations>
+<Operation Name="Login" UID="{87E7258D-59B1-4E76-8619-BF46780562F0}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="aUserID" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aPassword" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aUserInfo" DataType="UserInfo" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="BaseLoginService" UID="{745EED14-581E-47FC-B2BB-D4FAA6005B4F}" Abstract="1">
+<Interfaces>
+<Interface Name="Default" UID="{C349DB54-9DFB-454E-AD23-6F2166A624A6}">
+<Operations>
+<Operation Name="LoginEx" UID="{2D036C75-65DC-42B0-B5AB-EC414F54B106}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="aLoginString" DataType="Utf8String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="Logout" UID="{866D0287-09D7-4368-AA5A-D4718CF698AF}">
+<Parameters>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="MultiDbLoginService" UID="{78596023-A368-4490-8BE4-224987698117}" Ancestor="BaseLoginService" Abstract="1">
+<Interfaces>
+<Interface Name="Default" UID="{2C6D5764-01CE-447A-8264-27210B2C7371}">
+<Operations>
+<Operation Name="Login" UID="{64F02AE6-1EFD-40FD-979E-D0CC21320CCB}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="aUserID" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aPassword" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aConnectionName" DataType="Utf8String" Flag="In" >
+</Parameter>
+<Parameter Name="aUserInfo" DataType="UserInfo" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="MultiDbLoginServiceV5" UID="{059B0FA5-5980-4811-8C8E-790402D62C62}" Ancestor="MultiDbLoginService" Abstract="1">
+<Interfaces>
+<Interface Name="Default" UID="{5A78AB01-2097-4473-A4D5-78980FFD90E4}">
+<Operations>
+<Operation Name="GetConnectionNames" UID="{BF3AE66F-A496-4B4D-AEDC-A484F8E2B20E}">
+<Parameters>
+<Parameter Name="Result" DataType="StringArray" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetDefaultConnectionName" UID="{BA63F191-03A5-48FB-99D7-F48B150CB1C6}">
+<Parameters>
+<Parameter Name="Result" DataType="Utf8String" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+<EventSink Name="DataChangeNotification" UID="{10309CDF-EA24-4F8B-9678-8D1EF426955F}">
+<Interfaces>
+<Interface Name="Default" UID="{1309480C-AEF8-48E0-A27F-E6090F441B46}">
+<Operations>
+<Operation Name="OnDataTableChanged" UID="{61437AB0-DD71-44D3-967A-25199CE8C1CD}">
+<Parameters>
+<Parameter Name="aTableName" DataType="Utf8String" Flag="In">
+</Parameter>
+<Parameter Name="aDelta" DataType="Binary" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</EventSink>
+</EventSinks>
+<Structs>
+<Struct Name="DataParameter" UID="{960C67F1-F39A-43EF-9D45-E091ACE04A86}" AutoCreateParams="1">
+<Elements>
+<Element Name="Name" DataType="Utf8String">
+</Element>
+<Element Name="Value" DataType="Variant">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="TableRequestInfo" UID="{AD4D327E-650E-42AF-8D57-1166124FB515}" AutoCreateParams="1">
+<Elements>
+<Element Name="UserFilter" DataType="Utf8String">
+</Element>
+<Element Name="IncludeSchema" DataType="Boolean">
+</Element>
+<Element Name="MaxRecords" DataType="Integer">
+<CustomAttributes>
+<Default Value="-1" />
+</CustomAttributes>
+</Element>
+<Element Name="Parameters" DataType="DataParameterArray">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="UserInfo" UID="{C07A7008-F183-4015-9503-5C8FAE347E1C}" AutoCreateParams="1">
+<Elements>
+<Element Name="SessionID" DataType="Utf8String">
+</Element>
+<Element Name="UserID" DataType="Utf8String">
+</Element>
+<Element Name="Privileges" DataType="StringArray">
+</Element>
+<Element Name="Attributes" DataType="VariantArray">
+</Element>
+<Element Name="UserData" DataType="Binary">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="TableRequestInfoV5" UID="{F212B25A-167B-409C-BE99-23348E82AA5E}" AutoCreateParams="1" Ancestor="TableRequestInfo">
+<Elements>
+<Element Name="WhereClause" DataType="Xml">
+</Element>
+<Element Name="DynamicSelectFieldNames" DataType="StringArray">
+</Element>
+<Element Name="Sorting" DataType="ColumnSorting">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="ColumnSorting" UID="{81A8FAD7-B72D-4962-AD43-CD8E827DBC12}" AutoCreateParams="1">
+<Elements>
+<Element Name="FieldName" DataType="Utf8String">
+</Element>
+<Element Name="SortDirection" DataType="ColumnSortDirection">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="TableRequestInfoV6" UID="{9BC1458B-11F9-44EB-81D9-06198336F72D}" AutoCreateParams="1" Ancestor="TableRequestInfo">
+<Elements>
+<Element Name="Sql" DataType="Widestring">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+<Enum Name="ColumnSortDirection" UID="{EAEAD7D2-3A0E-48D6-BE19-A74265D14503}">
+<EnumValues>
+<EnumValue Name="Ascending">
+</EnumValue>
+<EnumValue Name="Descending">
+</EnumValue>
+</EnumValues>
+</Enum>
+</Enums>
+<Arrays>
+<Array Name="DataParameterArray" UID="{3E639D01-FB07-458F-B9C4-C6550F504901}">
+<ElementType DataType="DataParameter" />
+</Array>
+<Array Name="TableRequestInfoArray" UID="{036958C2-1AC8-49B6-8A94-417198CB799F}">
+<ElementType DataType="TableRequestInfo" />
+</Array>
+<Array Name="StringArray" UID="{7E86C9FC-99E7-45F2-8A49-E59A7A017265}">
+<ElementType DataType="Utf8String" />
+</Array>
+<Array Name="VariantArray" UID="{5E7C5D64-FC5D-4B54-AC91-11B27ACA5FF4}">
+<ElementType DataType="Variant" />
+</Array>
+<Array Name="ColumnSortingArray" UID="{53481559-8F14-44C6-83E4-5E9A579AB0EC}">
+<ElementType DataType="ColumnSorting" />
+</Array>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Async.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Async.pas
new file mode 100644
index 0000000..6475085
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Async.pas	
@@ -0,0 +1,670 @@
+unit DataAbstract4_Async;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROTypes, uROClientIntf, uROAsync,
+  {Project:} DataAbstract4_Intf;
+
+type
+  { IDataAbstractService_Async }
+  IDataAbstractService_Async = interface(IROAsyncInterface)
+    ['{B4C1D84D-1C6F-4E5A-8839-0C9F7EA5431B}']
+    procedure Invoke_GetSchema(const aFilter: Utf8String);
+    procedure Invoke_GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray);
+    procedure Invoke_UpdateData(const aDelta: Binary);
+    procedure Invoke_ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray);
+    procedure Invoke_ExecuteCommandEx(const aCommandName: Utf8String; const aInputParameters: DataParameterArray);
+    procedure Invoke_GetTableSchema(const aTableNameArray: StringArray);
+    procedure Invoke_GetCommandSchema(const aCommandNameArray: StringArray);
+    procedure Invoke_SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer);
+    procedure Invoke_SQLGetDataEx(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer; const aDynamicWhereXML: Widestring);
+    procedure Invoke_SQLExecuteCommand(const aSQLText: Utf8String);
+    procedure Invoke_SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring);
+    procedure Invoke_GetDatasetScripts(const DatasetNames: Utf8String);
+    procedure Invoke_RegisterForDataChangeNotification(const aTableName: Utf8String);
+    procedure Invoke_UnregisterForDataChangeNotification(const aTableName: Utf8String);
+    function Retrieve_GetSchema: Utf8String;
+    function Retrieve_GetData: Binary;
+    function Retrieve_UpdateData: Binary;
+    function Retrieve_ExecuteCommand: Integer;
+    function Retrieve_ExecuteCommandEx(out aOutputParameters: DataParameterArray): Integer;
+    function Retrieve_GetTableSchema: Utf8String;
+    function Retrieve_GetCommandSchema: Utf8String;
+    function Retrieve_SQLGetData: Binary;
+    function Retrieve_SQLGetDataEx: Binary;
+    function Retrieve_SQLExecuteCommand: Integer;
+    function Retrieve_SQLExecuteCommandEx: Integer;
+    function Retrieve_GetDatasetScripts: Utf8String;
+  end;
+
+  { IBaseLoginService_Async }
+  IBaseLoginService_Async = interface(IROAsyncInterface)
+    ['{45A761A3-80E9-43E6-86BC-E96693551453}']
+    procedure Invoke_LoginEx(const aLoginString: Utf8String);
+    procedure Invoke_Logout;
+    function Retrieve_LoginEx: Boolean;
+  end;
+
+  { IMultiDbLoginService_Async }
+  IMultiDbLoginService_Async = interface(IBaseLoginService_Async)
+    ['{8EBB1878-ECD9-4F4E-8A87-E26D51FD0ADD}']
+    procedure Invoke_Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String);
+    function Retrieve_Login(out aUserInfo: UserInfo): Boolean;
+  end;
+
+  { IMultiDbLoginServiceV5_Async }
+  IMultiDbLoginServiceV5_Async = interface(IMultiDbLoginService_Async)
+    ['{292C3E8B-B263-4D95-9EE6-41DA014ACDF3}']
+    procedure Invoke_GetConnectionNames;
+    procedure Invoke_GetDefaultConnectionName;
+    function Retrieve_GetConnectionNames: StringArray;
+    function Retrieve_GetDefaultConnectionName: Utf8String;
+  end;
+
+  { ISimpleLoginService_Async }
+  ISimpleLoginService_Async = interface(IBaseLoginService_Async)
+    ['{74BC5406-7AA7-45CD-8012-193C38DF62E9}']
+    procedure Invoke_Login(const aUserID: Utf8String; const aPassword: Utf8String);
+    function Retrieve_Login(out aUserInfo: UserInfo): Boolean;
+  end;
+
+  { CoDataAbstractService_Async }
+  CoDataAbstractService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDataAbstractService_Async;
+  end;
+
+  { CoBaseLoginService_Async }
+  CoBaseLoginService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBaseLoginService_Async;
+  end;
+
+  { CoMultiDbLoginService_Async }
+  CoMultiDbLoginService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiDbLoginService_Async;
+  end;
+
+  { CoMultiDbLoginServiceV5_Async }
+  CoMultiDbLoginServiceV5_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiDbLoginServiceV5_Async;
+  end;
+
+  { CoSimpleLoginService_Async }
+  CoSimpleLoginService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISimpleLoginService_Async;
+  end;
+
+  { TDataAbstractService_AsyncProxy }
+  TDataAbstractService_AsyncProxy = class(TROAsyncProxy, IDataAbstractService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_GetSchema(const aFilter: Utf8String);
+    procedure Invoke_GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray);
+    procedure Invoke_UpdateData(const aDelta: Binary);
+    procedure Invoke_ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray);
+    procedure Invoke_ExecuteCommandEx(const aCommandName: Utf8String; const aInputParameters: DataParameterArray);
+    procedure Invoke_GetTableSchema(const aTableNameArray: StringArray);
+    procedure Invoke_GetCommandSchema(const aCommandNameArray: StringArray);
+    procedure Invoke_SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer);
+    procedure Invoke_SQLGetDataEx(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer; const aDynamicWhereXML: Widestring);
+    procedure Invoke_SQLExecuteCommand(const aSQLText: Utf8String);
+    procedure Invoke_SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring);
+    procedure Invoke_GetDatasetScripts(const DatasetNames: Utf8String);
+    procedure Invoke_RegisterForDataChangeNotification(const aTableName: Utf8String);
+    procedure Invoke_UnregisterForDataChangeNotification(const aTableName: Utf8String);
+    function Retrieve_GetSchema: Utf8String;
+    function Retrieve_GetData: Binary;
+    function Retrieve_UpdateData: Binary;
+    function Retrieve_ExecuteCommand: Integer;
+    function Retrieve_ExecuteCommandEx(out aOutputParameters: DataParameterArray): Integer;
+    function Retrieve_GetTableSchema: Utf8String;
+    function Retrieve_GetCommandSchema: Utf8String;
+    function Retrieve_SQLGetData: Binary;
+    function Retrieve_SQLGetDataEx: Binary;
+    function Retrieve_SQLExecuteCommand: Integer;
+    function Retrieve_SQLExecuteCommandEx: Integer;
+    function Retrieve_GetDatasetScripts: Utf8String;
+  end;
+
+  { TBaseLoginService_AsyncProxy }
+  TBaseLoginService_AsyncProxy = class(TROAsyncProxy, IBaseLoginService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_LoginEx(const aLoginString: Utf8String);
+    procedure Invoke_Logout;
+    function Retrieve_LoginEx: Boolean;
+  end;
+
+  { TMultiDbLoginService_AsyncProxy }
+  TMultiDbLoginService_AsyncProxy = class(TBaseLoginService_AsyncProxy, IMultiDbLoginService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String);
+    function Retrieve_Login(out aUserInfo: UserInfo): Boolean;
+  end;
+
+  { TMultiDbLoginServiceV5_AsyncProxy }
+  TMultiDbLoginServiceV5_AsyncProxy = class(TMultiDbLoginService_AsyncProxy, IMultiDbLoginServiceV5_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_GetConnectionNames;
+    procedure Invoke_GetDefaultConnectionName;
+    function Retrieve_GetConnectionNames: StringArray;
+    function Retrieve_GetDefaultConnectionName: Utf8String;
+  end;
+
+  { TSimpleLoginService_AsyncProxy }
+  TSimpleLoginService_AsyncProxy = class(TBaseLoginService_AsyncProxy, ISimpleLoginService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_Login(const aUserID: Utf8String; const aPassword: Utf8String);
+    function Retrieve_Login(out aUserInfo: UserInfo): Boolean;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils;
+
+{ CoDataAbstractService }
+
+class function CoDataAbstractService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDataAbstractService_Async;
+begin
+  result := TDataAbstractService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDataAbstractService_AsyncProxy }
+
+function TDataAbstractService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'DataAbstractService';
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_GetSchema(const aFilter: Utf8String);
+begin
+  __AssertProxyNotBusy('GetSchema');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetSchema');
+  __Message.Write('aFilter', TypeInfo(Utf8String), aFilter, []);
+  __DispatchAsyncRequest('GetSchema',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_GetSchema: Utf8String;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetSchema');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Utf8String), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray);
+begin
+  __AssertProxyNotBusy('GetData');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetData');
+  __Message.Write('aTableNameArray', TypeInfo(StringArray), aTableNameArray, []);
+  __Message.Write('aTableRequestInfoArray', TypeInfo(TableRequestInfoArray), aTableRequestInfoArray, []);
+  __DispatchAsyncRequest('GetData',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_GetData: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('GetData');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_UpdateData(const aDelta: Binary);
+begin
+  __AssertProxyNotBusy('UpdateData');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'UpdateData');
+  __Message.Write('aDelta', TypeInfo(Binary), aDelta, []);
+  __DispatchAsyncRequest('UpdateData',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_UpdateData: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('UpdateData');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray);
+begin
+  __AssertProxyNotBusy('ExecuteCommand');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'ExecuteCommand');
+  __Message.Write('aCommandName', TypeInfo(Utf8String), aCommandName, []);
+  __Message.Write('aParameterArray', TypeInfo(DataParameterArray), aParameterArray, []);
+  __DispatchAsyncRequest('ExecuteCommand',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_ExecuteCommand: Integer;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('ExecuteCommand');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Integer), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_ExecuteCommandEx(const aCommandName: Utf8String; const aInputParameters: DataParameterArray);
+begin
+  __AssertProxyNotBusy('ExecuteCommandEx');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'ExecuteCommandEx');
+  __Message.Write('aCommandName', TypeInfo(Utf8String), aCommandName, []);
+  __Message.Write('aInputParameters', TypeInfo(DataParameterArray), aInputParameters, []);
+  __DispatchAsyncRequest('ExecuteCommandEx',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_ExecuteCommandEx(out aOutputParameters: DataParameterArray): Integer;
+var __response:TStream;
+begin
+  aOutputParameters := nil;
+  __response := __RetrieveAsyncResponse('ExecuteCommandEx');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Integer), Result, []);
+  __Message.Read('aOutputParameters', TypeInfo(DataParameterArray), aOutputParameters, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_GetTableSchema(const aTableNameArray: StringArray);
+begin
+  __AssertProxyNotBusy('GetTableSchema');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetTableSchema');
+  __Message.Write('aTableNameArray', TypeInfo(StringArray), aTableNameArray, []);
+  __DispatchAsyncRequest('GetTableSchema',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_GetTableSchema: Utf8String;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetTableSchema');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Utf8String), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_GetCommandSchema(const aCommandNameArray: StringArray);
+begin
+  __AssertProxyNotBusy('GetCommandSchema');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetCommandSchema');
+  __Message.Write('aCommandNameArray', TypeInfo(StringArray), aCommandNameArray, []);
+  __DispatchAsyncRequest('GetCommandSchema',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_GetCommandSchema: Utf8String;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetCommandSchema');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Utf8String), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer);
+begin
+  __AssertProxyNotBusy('SQLGetData');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'SQLGetData');
+  __Message.Write('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+  __Message.Write('aIncludeSchema', TypeInfo(Boolean), aIncludeSchema, []);
+  __Message.Write('aMaxRecords', TypeInfo(Integer), aMaxRecords, []);
+  __DispatchAsyncRequest('SQLGetData',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_SQLGetData: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('SQLGetData');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_SQLGetDataEx(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer; const aDynamicWhereXML: Widestring);
+begin
+  __AssertProxyNotBusy('SQLGetDataEx');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'SQLGetDataEx');
+  __Message.Write('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+  __Message.Write('aIncludeSchema', TypeInfo(Boolean), aIncludeSchema, []);
+  __Message.Write('aMaxRecords', TypeInfo(Integer), aMaxRecords, []);
+  __Message.Write('aDynamicWhereXML', TypeInfo(Widestring), aDynamicWhereXML, []);
+  __DispatchAsyncRequest('SQLGetDataEx',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_SQLGetDataEx: Binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('SQLGetDataEx');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_SQLExecuteCommand(const aSQLText: Utf8String);
+begin
+  __AssertProxyNotBusy('SQLExecuteCommand');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'SQLExecuteCommand');
+  __Message.Write('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+  __DispatchAsyncRequest('SQLExecuteCommand',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_SQLExecuteCommand: Integer;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('SQLExecuteCommand');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Integer), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring);
+begin
+  __AssertProxyNotBusy('SQLExecuteCommandEx');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'SQLExecuteCommandEx');
+  __Message.Write('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+  __Message.Write('aDynamicWhereXML', TypeInfo(Widestring), aDynamicWhereXML, []);
+  __DispatchAsyncRequest('SQLExecuteCommandEx',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_SQLExecuteCommandEx: Integer;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('SQLExecuteCommandEx');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Integer), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_GetDatasetScripts(const DatasetNames: Utf8String);
+begin
+  __AssertProxyNotBusy('GetDatasetScripts');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetDatasetScripts');
+  __Message.Write('DatasetNames', TypeInfo(Utf8String), DatasetNames, []);
+  __DispatchAsyncRequest('GetDatasetScripts',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TDataAbstractService_AsyncProxy.Retrieve_GetDatasetScripts: Utf8String;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetDatasetScripts');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Utf8String), Result, []);
+
+  __response.Free();
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_RegisterForDataChangeNotification(const aTableName: Utf8String);
+begin
+  __AssertProxyNotBusy('RegisterForDataChangeNotification');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'RegisterForDataChangeNotification');
+  __Message.Write('aTableName', TypeInfo(Utf8String), aTableName, []);
+  __DispatchAsyncRequest('RegisterForDataChangeNotification',__Message, false);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+procedure TDataAbstractService_AsyncProxy.Invoke_UnregisterForDataChangeNotification(const aTableName: Utf8String);
+begin
+  __AssertProxyNotBusy('UnregisterForDataChangeNotification');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'UnregisterForDataChangeNotification');
+  __Message.Write('aTableName', TypeInfo(Utf8String), aTableName, []);
+  __DispatchAsyncRequest('UnregisterForDataChangeNotification',__Message, false);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+
+{ CoSimpleLoginService }
+
+class function CoSimpleLoginService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISimpleLoginService_Async;
+begin
+  result := TSimpleLoginService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TSimpleLoginService_AsyncProxy }
+
+function TSimpleLoginService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'SimpleLoginService';
+end;
+
+procedure TSimpleLoginService_AsyncProxy.Invoke_Login(const aUserID: Utf8String; const aPassword: Utf8String);
+begin
+  __AssertProxyNotBusy('Login');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'Login');
+  __Message.Write('aUserID', TypeInfo(Utf8String), aUserID, []);
+  __Message.Write('aPassword', TypeInfo(Utf8String), aPassword, []);
+  __DispatchAsyncRequest('Login',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TSimpleLoginService_AsyncProxy.Retrieve_Login(out aUserInfo: UserInfo): Boolean;
+var __response:TStream;
+begin
+  aUserInfo := nil;
+  __response := __RetrieveAsyncResponse('Login');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Boolean), Result, []);
+  __Message.Read('aUserInfo', TypeInfo(UserInfo), aUserInfo, []);
+
+  __response.Free();
+end;
+
+
+{ CoBaseLoginService }
+
+class function CoBaseLoginService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBaseLoginService_Async;
+begin
+  result := TBaseLoginService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TBaseLoginService_AsyncProxy }
+
+function TBaseLoginService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'BaseLoginService';
+end;
+
+procedure TBaseLoginService_AsyncProxy.Invoke_LoginEx(const aLoginString: Utf8String);
+begin
+  __AssertProxyNotBusy('LoginEx');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'LoginEx');
+  __Message.Write('aLoginString', TypeInfo(Utf8String), aLoginString, []);
+  __DispatchAsyncRequest('LoginEx',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TBaseLoginService_AsyncProxy.Retrieve_LoginEx: Boolean;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('LoginEx');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Boolean), Result, []);
+
+  __response.Free();
+end;
+
+procedure TBaseLoginService_AsyncProxy.Invoke_Logout;
+begin
+  __AssertProxyNotBusy('Logout');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'Logout');
+  __DispatchAsyncRequest('Logout',__Message, false);
+end;
+
+
+{ CoMultiDbLoginService }
+
+class function CoMultiDbLoginService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiDbLoginService_Async;
+begin
+  result := TMultiDbLoginService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TMultiDbLoginService_AsyncProxy }
+
+function TMultiDbLoginService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'MultiDbLoginService';
+end;
+
+procedure TMultiDbLoginService_AsyncProxy.Invoke_Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String);
+begin
+  __AssertProxyNotBusy('Login');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'Login');
+  __Message.Write('aUserID', TypeInfo(Utf8String), aUserID, []);
+  __Message.Write('aPassword', TypeInfo(Utf8String), aPassword, []);
+  __Message.Write('aConnectionName', TypeInfo(Utf8String), aConnectionName, []);
+  __DispatchAsyncRequest('Login',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TMultiDbLoginService_AsyncProxy.Retrieve_Login(out aUserInfo: UserInfo): Boolean;
+var __response:TStream;
+begin
+  aUserInfo := nil;
+  __response := __RetrieveAsyncResponse('Login');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Boolean), Result, []);
+  __Message.Read('aUserInfo', TypeInfo(UserInfo), aUserInfo, []);
+
+  __response.Free();
+end;
+
+
+{ CoMultiDbLoginServiceV5 }
+
+class function CoMultiDbLoginServiceV5_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiDbLoginServiceV5_Async;
+begin
+  result := TMultiDbLoginServiceV5_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TMultiDbLoginServiceV5_AsyncProxy }
+
+function TMultiDbLoginServiceV5_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'MultiDbLoginServiceV5';
+end;
+
+procedure TMultiDbLoginServiceV5_AsyncProxy.Invoke_GetConnectionNames;
+begin
+  __AssertProxyNotBusy('GetConnectionNames');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetConnectionNames');
+  __DispatchAsyncRequest('GetConnectionNames',__Message);
+end;
+
+function TMultiDbLoginServiceV5_AsyncProxy.Retrieve_GetConnectionNames: StringArray;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('GetConnectionNames');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(StringArray), Result, []);
+
+  __response.Free();
+end;
+
+procedure TMultiDbLoginServiceV5_AsyncProxy.Invoke_GetDefaultConnectionName;
+begin
+  __AssertProxyNotBusy('GetDefaultConnectionName');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetDefaultConnectionName');
+  __DispatchAsyncRequest('GetDefaultConnectionName',__Message);
+end;
+
+function TMultiDbLoginServiceV5_AsyncProxy.Retrieve_GetDefaultConnectionName: Utf8String;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetDefaultConnectionName');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Utf8String), Result, []);
+
+  __response.Free();
+end;
+
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Intf.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Intf.pas
new file mode 100644
index 0000000..00348aa
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Intf.pas	
@@ -0,0 +1,2514 @@
+unit DataAbstract4_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{DC8B7BE2-14AF-402D-B1F8-E1008B6FA4F6}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDataAbstractService_IID : TGUID = '{4C2EC238-4FB4-434E-8CFF-ED25EEFF1525}';
+  ISimpleLoginService_IID : TGUID = '{B186853B-168B-4E33-B798-467444BFC8C6}';
+  IBaseLoginService_IID : TGUID = '{C349DB54-9DFB-454E-AD23-6F2166A624A6}';
+  IMultiDbLoginService_IID : TGUID = '{2C6D5764-01CE-447A-8264-27210B2C7371}';
+  IMultiDbLoginServiceV5_IID : TGUID = '{5A78AB01-2097-4473-A4D5-78980FFD90E4}';
+
+  { Event ID's }
+  EID_DataChangeNotification = 'DataChangeNotification';
+
+type
+  { Forward declarations }
+  IDataAbstractService = interface;
+  ISimpleLoginService = interface;
+  IBaseLoginService = interface;
+  IMultiDbLoginService = interface;
+  IMultiDbLoginServiceV5 = interface;
+
+  DataParameterArray = class;
+  TableRequestInfoArray = class;
+  StringArray = class;
+  VariantArray = class;
+  ColumnSortingArray = class;
+
+  DataParameter = class;
+  TableRequestInfo = class;
+  UserInfo = class;
+  TableRequestInfoV5 = class;
+  ColumnSorting = class;
+  TableRequestInfoV6 = class;
+
+  IDataChangeNotification = interface;
+
+
+  { Enumerateds }
+  ColumnSortDirection = (ColumnSortDirection_Ascending,ColumnSortDirection_Descending);
+
+  { DataParameter }
+  DataParameter = class(TROComplexType)
+  private
+    fName: Utf8String;
+    fValue: Variant;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property Name:Utf8String read fName write fName;
+    property Value:Variant read fValue write fValue;
+  end;
+
+  { DataParameterCollection }
+  DataParameterCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): DataParameter;
+    procedure SetItems(aIndex: integer; const Value: DataParameter);
+  public
+    constructor Create; overload;
+    function Add: DataParameter; reintroduce;
+    procedure SaveToArray(anArray: DataParameterArray);
+    procedure LoadFromArray(anArray: DataParameterArray);
+    property Items[Index: integer]:DataParameter read GetItems write SetItems; default;
+  end;
+
+  { TableRequestInfo }
+  TableRequestInfo = class(TROComplexType)
+  private
+    fUserFilter: Utf8String;
+    fIncludeSchema: Boolean;
+    fMaxRecords: Integer;
+    fParameters: DataParameterArray;
+    function GetParameters: DataParameterArray;
+  public
+    constructor Create(aCollection : TCollection); override;
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property UserFilter:Utf8String read fUserFilter write fUserFilter;
+    property IncludeSchema:Boolean read fIncludeSchema write fIncludeSchema;
+    property MaxRecords:Integer read fMaxRecords write fMaxRecords;
+    property Parameters:DataParameterArray read GetParameters write fParameters;
+  end;
+
+  { TableRequestInfoCollection }
+  TableRequestInfoCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TableRequestInfo;
+    procedure SetItems(aIndex: integer; const Value: TableRequestInfo);
+  public
+    constructor Create; overload;
+    function Add: TableRequestInfo; reintroduce;
+    procedure SaveToArray(anArray: TableRequestInfoArray);
+    procedure LoadFromArray(anArray: TableRequestInfoArray);
+    property Items[Index: integer]:TableRequestInfo read GetItems write SetItems; default;
+  end;
+
+  { TableRequestInfoV6 }
+  TableRequestInfoV6 = class(TableRequestInfo)
+  private
+    fSql: Widestring;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property Sql:Widestring read fSql write fSql;
+  end;
+
+  { TableRequestInfoV6Collection }
+  TableRequestInfoV6Collection = class(TableRequestInfoCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TableRequestInfoV6;
+    procedure SetItems(aIndex: integer; const Value: TableRequestInfoV6);
+  public
+    constructor Create; overload;
+    function Add: TableRequestInfoV6; reintroduce;
+    property Items[Index: integer]:TableRequestInfoV6 read GetItems write SetItems; default;
+  end;
+
+  { TableRequestInfoV5 }
+  TableRequestInfoV5 = class(TableRequestInfo)
+  private
+    fWhereClause: IXmlNode;
+    fDynamicSelectFieldNames: StringArray;
+    fSorting: ColumnSorting;
+    function GetDynamicSelectFieldNames: StringArray;
+    function GetSorting: ColumnSorting;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property WhereClause:IXmlNode read fWhereClause write fWhereClause;
+    property DynamicSelectFieldNames:StringArray read GetDynamicSelectFieldNames write fDynamicSelectFieldNames;
+    property Sorting:ColumnSorting read GetSorting write fSorting;
+  end;
+
+  { TableRequestInfoV5Collection }
+  TableRequestInfoV5Collection = class(TableRequestInfoCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TableRequestInfoV5;
+    procedure SetItems(aIndex: integer; const Value: TableRequestInfoV5);
+  public
+    constructor Create; overload;
+    function Add: TableRequestInfoV5; reintroduce;
+    property Items[Index: integer]:TableRequestInfoV5 read GetItems write SetItems; default;
+  end;
+
+  { UserInfo }
+  UserInfo = class(TROComplexType)
+  private
+    fSessionID: Utf8String;
+    fUserID: Utf8String;
+    fPrivileges: StringArray;
+    fAttributes: VariantArray;
+    fUserData: Binary;
+    function GetPrivileges: StringArray;
+    function GetAttributes: VariantArray;
+    function GetUserData: Binary;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property SessionID:Utf8String read fSessionID write fSessionID;
+    property UserID:Utf8String read fUserID write fUserID;
+    property Privileges:StringArray read GetPrivileges write fPrivileges;
+    property Attributes:VariantArray read GetAttributes write fAttributes;
+    property UserData:Binary read GetUserData write fUserData;
+  end;
+
+  { UserInfoCollection }
+  UserInfoCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): UserInfo;
+    procedure SetItems(aIndex: integer; const Value: UserInfo);
+  public
+    constructor Create; overload;
+    function Add: UserInfo; reintroduce;
+    property Items[Index: integer]:UserInfo read GetItems write SetItems; default;
+  end;
+
+  { ColumnSorting }
+  ColumnSorting = class(TROComplexType)
+  private
+    fFieldName: Utf8String;
+    fSortDirection: ColumnSortDirection;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property FieldName:Utf8String read fFieldName write fFieldName;
+    property SortDirection:ColumnSortDirection read fSortDirection write fSortDirection;
+  end;
+
+  { ColumnSortingCollection }
+  ColumnSortingCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): ColumnSorting;
+    procedure SetItems(aIndex: integer; const Value: ColumnSorting);
+  public
+    constructor Create; overload;
+    function Add: ColumnSorting; reintroduce;
+    procedure SaveToArray(anArray: ColumnSortingArray);
+    procedure LoadFromArray(anArray: ColumnSortingArray);
+    property Items[Index: integer]:ColumnSorting read GetItems write SetItems; default;
+  end;
+
+  { DataParameterArray }
+  DataParameterArray_DataParameter = array of DataParameter;
+  DataParameterArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : DataParameterArray_DataParameter;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): DataParameter;
+    procedure SetItems(aIndex: integer; const Value: DataParameter);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: DataParameter; overload;
+    function Add(const Value: DataParameter):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:DataParameter read GetItems write SetItems; default;
+    property InnerArray: DataParameterArray_DataParameter read fItems;
+  end;
+
+  { TableRequestInfoArray }
+  TableRequestInfoArray_TableRequestInfo = array of TableRequestInfo;
+  TableRequestInfoArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TableRequestInfoArray_TableRequestInfo;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): TableRequestInfo;
+    procedure SetItems(aIndex: integer; const Value: TableRequestInfo);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: TableRequestInfo; overload;
+    function Add(const Value: TableRequestInfo):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:TableRequestInfo read GetItems write SetItems; default;
+    property InnerArray: TableRequestInfoArray_TableRequestInfo read fItems;
+  end;
+
+  { StringArray }
+  StringArray_Utf8String = array of Utf8String;
+  StringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : StringArray_Utf8String;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): Utf8String;
+    procedure SetItems(aIndex: integer; const Value: Utf8String);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:Utf8String): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Utf8String read GetItems write SetItems; default;
+    property InnerArray: StringArray_Utf8String read fItems;
+  end;
+
+  { VariantArray }
+  VariantArray_Variant = array of Variant;
+  VariantArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : VariantArray_Variant;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): Variant;
+    procedure SetItems(aIndex: integer; const Value: Variant);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:Variant): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Variant read GetItems write SetItems; default;
+    property InnerArray: VariantArray_Variant read fItems;
+  end;
+
+  { ColumnSortingArray }
+  ColumnSortingArray_ColumnSorting = array of ColumnSorting;
+  ColumnSortingArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : ColumnSortingArray_ColumnSorting;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): ColumnSorting;
+    procedure SetItems(aIndex: integer; const Value: ColumnSorting);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: ColumnSorting; overload;
+    function Add(const Value: ColumnSorting):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:ColumnSorting read GetItems write SetItems; default;
+    property InnerArray: ColumnSortingArray_ColumnSorting read fItems;
+  end;
+
+  { IDataAbstractService }
+  IDataAbstractService = interface
+    ['{4C2EC238-4FB4-434E-8CFF-ED25EEFF1525}']
+    function GetSchema(const aFilter: Utf8String): Utf8String;
+    function GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray): Binary;
+    function UpdateData(const aDelta: Binary): Binary;
+    function ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray): Integer;
+    function ExecuteCommandEx(const aCommandName: Utf8String; const aInputParameters: DataParameterArray; out aOutputParameters: DataParameterArray): Integer;
+    function GetTableSchema(const aTableNameArray: StringArray): Utf8String;
+    function GetCommandSchema(const aCommandNameArray: StringArray): Utf8String;
+    function SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer): Binary;
+    function SQLGetDataEx(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer; const aDynamicWhereXML: Widestring): Binary;
+    function SQLExecuteCommand(const aSQLText: Utf8String): Integer;
+    function SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring): Integer;
+    function GetDatasetScripts(const DatasetNames: Utf8String): Utf8String;
+    procedure RegisterForDataChangeNotification(const aTableName: Utf8String);
+    procedure UnregisterForDataChangeNotification(const aTableName: Utf8String);
+  end;
+
+  { CoDataAbstractService }
+  CoDataAbstractService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDataAbstractService;
+  end;
+
+  { TDataAbstractService_Proxy }
+  TDataAbstractService_Proxy = class(TROProxy, IDataAbstractService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetSchema(const aFilter: Utf8String): Utf8String;
+    function GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray): Binary;
+    function UpdateData(const aDelta: Binary): Binary;
+    function ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray): Integer;
+    function ExecuteCommandEx(const aCommandName: Utf8String; const aInputParameters: DataParameterArray; out aOutputParameters: DataParameterArray): Integer;
+    function GetTableSchema(const aTableNameArray: StringArray): Utf8String;
+    function GetCommandSchema(const aCommandNameArray: StringArray): Utf8String;
+    function SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer): Binary;
+    function SQLGetDataEx(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer; const aDynamicWhereXML: Widestring): Binary;
+    function SQLExecuteCommand(const aSQLText: Utf8String): Integer;
+    function SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring): Integer;
+    function GetDatasetScripts(const DatasetNames: Utf8String): Utf8String;
+    procedure RegisterForDataChangeNotification(const aTableName: Utf8String);
+    procedure UnregisterForDataChangeNotification(const aTableName: Utf8String);
+  end;
+
+  { IBaseLoginService }
+  IBaseLoginService = interface
+    ['{C349DB54-9DFB-454E-AD23-6F2166A624A6}']
+    function LoginEx(const aLoginString: Utf8String): Boolean;
+    procedure Logout;
+  end;
+
+  { CoBaseLoginService }
+  CoBaseLoginService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBaseLoginService;
+  end;
+
+  { TBaseLoginService_Proxy }
+  TBaseLoginService_Proxy = class(TROProxy, IBaseLoginService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function LoginEx(const aLoginString: Utf8String): Boolean;
+    procedure Logout;
+  end;
+
+  { IMultiDbLoginService }
+  IMultiDbLoginService = interface(IBaseLoginService)
+    ['{2C6D5764-01CE-447A-8264-27210B2C7371}']
+    function Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String; out aUserInfo: UserInfo): Boolean;
+  end;
+
+  { CoMultiDbLoginService }
+  CoMultiDbLoginService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiDbLoginService;
+  end;
+
+  { TMultiDbLoginService_Proxy }
+  TMultiDbLoginService_Proxy = class(TBaseLoginService_Proxy, IMultiDbLoginService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String; out aUserInfo: UserInfo): Boolean;
+  end;
+
+  { IMultiDbLoginServiceV5 }
+  IMultiDbLoginServiceV5 = interface(IMultiDbLoginService)
+    ['{5A78AB01-2097-4473-A4D5-78980FFD90E4}']
+    function GetConnectionNames: StringArray;
+    function GetDefaultConnectionName: Utf8String;
+  end;
+
+  { CoMultiDbLoginServiceV5 }
+  CoMultiDbLoginServiceV5 = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiDbLoginServiceV5;
+  end;
+
+  { TMultiDbLoginServiceV5_Proxy }
+  TMultiDbLoginServiceV5_Proxy = class(TMultiDbLoginService_Proxy, IMultiDbLoginServiceV5)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetConnectionNames: StringArray;
+    function GetDefaultConnectionName: Utf8String;
+  end;
+
+  { ISimpleLoginService }
+  ISimpleLoginService = interface(IBaseLoginService)
+    ['{B186853B-168B-4E33-B798-467444BFC8C6}']
+    function Login(const aUserID: Utf8String; const aPassword: Utf8String; out aUserInfo: UserInfo): Boolean;
+  end;
+
+  { CoSimpleLoginService }
+  CoSimpleLoginService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISimpleLoginService;
+  end;
+
+  { TSimpleLoginService_Proxy }
+  TSimpleLoginService_Proxy = class(TBaseLoginService_Proxy, ISimpleLoginService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Login(const aUserID: Utf8String; const aPassword: Utf8String; out aUserInfo: UserInfo): Boolean;
+  end;
+
+  { IDataChangeNotification }
+  IDataChangeNotification = interface
+    ['{1309480C-AEF8-48E0-A27F-E6090F441B46}']
+    procedure OnDataTableChanged(const aTableName: Utf8String; const aDelta: Binary);
+  end;
+
+  { IDataChangeNotification_Writer }
+  IDataChangeNotification_Writer = interface(IROEventWriter)
+    ['{1309480C-AEF8-48E0-A27F-E6090F441B46}']
+    procedure OnDataTableChanged(const __Sender : TGUID; const aTableName: Utf8String; const aDelta: Binary);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ DataParameterArray }
+
+procedure DataParameterArray.Assign(iSource: TPersistent);
+var lSource:DataParameterArray;
+    i:integer;
+begin
+  if (iSource is DataParameterArray) then begin
+    lSource := DataParameterArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function DataParameterArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(DataParameter);
+end;
+
+class function DataParameterArray.GetItemClass: TClass;
+begin
+  result := DataParameter;
+end;
+
+class function DataParameterArray.GetItemSize: integer;
+begin
+  result := SizeOf(DataParameter);
+end;
+
+function DataParameterArray.GetItems(aIndex: integer): DataParameter;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function DataParameterArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure DataParameterArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure DataParameterArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure DataParameterArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure DataParameterArray.SetItems(aIndex: integer; const Value: DataParameter);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure DataParameterArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := DataParameter.Create;
+  FCount := ElementCount;
+end;
+
+function DataParameterArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure DataParameterArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function DataParameterArray.Add: DataParameter;
+begin
+  result := DataParameter.Create;
+  Add(Result);
+end;
+
+function DataParameterArray.Add(const Value:DataParameter): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure DataParameterArray.ReadComplex(ASerializer: TObject);
+var
+  lval: DataParameter;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), DataParameter, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure DataParameterArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], DataParameter, i);
+end;
+
+{ TableRequestInfoArray }
+
+procedure TableRequestInfoArray.Assign(iSource: TPersistent);
+var lSource:TableRequestInfoArray;
+    i:integer;
+begin
+  if (iSource is TableRequestInfoArray) then begin
+    lSource := TableRequestInfoArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TableRequestInfoArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(TableRequestInfo);
+end;
+
+class function TableRequestInfoArray.GetItemClass: TClass;
+begin
+  result := TableRequestInfo;
+end;
+
+class function TableRequestInfoArray.GetItemSize: integer;
+begin
+  result := SizeOf(TableRequestInfo);
+end;
+
+function TableRequestInfoArray.GetItems(aIndex: integer): TableRequestInfo;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TableRequestInfoArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure TableRequestInfoArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure TableRequestInfoArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TableRequestInfoArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TableRequestInfoArray.SetItems(aIndex: integer; const Value: TableRequestInfo);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure TableRequestInfoArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := TableRequestInfo.Create;
+  FCount := ElementCount;
+end;
+
+function TableRequestInfoArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TableRequestInfoArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TableRequestInfoArray.Add: TableRequestInfo;
+begin
+  result := TableRequestInfo.Create;
+  Add(Result);
+end;
+
+function TableRequestInfoArray.Add(const Value:TableRequestInfo): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure TableRequestInfoArray.ReadComplex(ASerializer: TObject);
+var
+  lval: TableRequestInfo;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), TableRequestInfo, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TableRequestInfoArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], TableRequestInfo, i);
+end;
+
+{ StringArray }
+
+procedure StringArray.Assign(iSource: TPersistent);
+var lSource:StringArray;
+    i:integer;
+begin
+  if (iSource is StringArray) then begin
+    lSource := StringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function StringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Utf8String);
+end;
+
+class function StringArray.GetItemSize: integer;
+begin
+  result := SizeOf(Utf8String);
+end;
+
+function StringArray.GetItems(aIndex: integer): Utf8String;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function StringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure StringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure StringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure StringArray.SetItems(aIndex: integer; const Value: Utf8String);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure StringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function StringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure StringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function StringArray.Add(const Value: Utf8String): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function StringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure StringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: Utf8String;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure StringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ VariantArray }
+
+procedure VariantArray.Assign(iSource: TPersistent);
+var lSource:VariantArray;
+    i:integer;
+begin
+  if (iSource is VariantArray) then begin
+    lSource := VariantArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function VariantArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Variant);
+end;
+
+class function VariantArray.GetItemSize: integer;
+begin
+  result := SizeOf(Variant);
+end;
+
+function VariantArray.GetItems(aIndex: integer): Variant;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function VariantArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure VariantArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure VariantArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure VariantArray.SetItems(aIndex: integer; const Value: Variant);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure VariantArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function VariantArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure VariantArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function VariantArray.Add(const Value: Variant): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function VariantArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure VariantArray.ReadComplex(ASerializer: TObject);
+var
+  lval: Variant;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadVariant(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure VariantArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteVariant(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ ColumnSortingArray }
+
+procedure ColumnSortingArray.Assign(iSource: TPersistent);
+var lSource:ColumnSortingArray;
+    i:integer;
+begin
+  if (iSource is ColumnSortingArray) then begin
+    lSource := ColumnSortingArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function ColumnSortingArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(ColumnSorting);
+end;
+
+class function ColumnSortingArray.GetItemClass: TClass;
+begin
+  result := ColumnSorting;
+end;
+
+class function ColumnSortingArray.GetItemSize: integer;
+begin
+  result := SizeOf(ColumnSorting);
+end;
+
+function ColumnSortingArray.GetItems(aIndex: integer): ColumnSorting;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function ColumnSortingArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure ColumnSortingArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure ColumnSortingArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure ColumnSortingArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure ColumnSortingArray.SetItems(aIndex: integer; const Value: ColumnSorting);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure ColumnSortingArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := ColumnSorting.Create;
+  FCount := ElementCount;
+end;
+
+function ColumnSortingArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure ColumnSortingArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function ColumnSortingArray.Add: ColumnSorting;
+begin
+  result := ColumnSorting.Create;
+  Add(Result);
+end;
+
+function ColumnSortingArray.Add(const Value:ColumnSorting): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure ColumnSortingArray.ReadComplex(ASerializer: TObject);
+var
+  lval: ColumnSorting;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), ColumnSorting, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure ColumnSortingArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], ColumnSorting, i);
+end;
+
+{ DataParameter }
+
+procedure DataParameter.Assign(iSource: TPersistent); 
+var lSource: DataAbstract4_Intf.DataParameter;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract4_Intf.DataParameter) then begin
+    lSource := DataAbstract4_Intf.DataParameter(iSource);
+    Name := lSource.Name;
+    Value := lSource.Value;
+  end;
+end;
+
+procedure DataParameter.ReadComplex(ASerializer: TObject);
+var
+  l_Name: Utf8String;
+  l_Value: Variant;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_Name := Name;
+    TROSerializer(ASerializer).ReadUTF8String('Name', l_Name);
+    Name := l_Name;
+    l_Value := Value;
+    TROSerializer(ASerializer).ReadVariant('Value', l_Value);
+    Value := l_Value;
+  end
+  else begin
+    l_Name := Name;
+    TROSerializer(ASerializer).ReadUTF8String('Name', l_Name);
+    Name := l_Name;
+    l_Value := Value;
+    TROSerializer(ASerializer).ReadVariant('Value', l_Value);
+    Value := l_Value;
+  end;
+end;
+
+procedure DataParameter.WriteComplex(ASerializer: TObject);
+var
+  l_Name: Utf8String;
+  l_Value: Variant;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(DataParameter);
+    l_Name := Name;
+    TROSerializer(ASerializer).WriteUTF8String('Name', l_Name);
+    l_Value := Value;
+    TROSerializer(ASerializer).WriteVariant('Value', l_Value);
+  end
+  else begin
+    l_Name := Name;
+    TROSerializer(ASerializer).WriteUTF8String('Name', l_Name);
+    l_Value := Value;
+    TROSerializer(ASerializer).WriteVariant('Value', l_Value);
+  end;
+end;
+
+{ DataParameterCollection }
+constructor DataParameterCollection.Create;
+begin
+  inherited Create(DataParameter);
+end;
+
+constructor DataParameterCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function DataParameterCollection.Add: DataParameter;
+begin
+  result := DataParameter(inherited Add);
+end;
+
+function DataParameterCollection.GetItems(aIndex: integer): DataParameter;
+begin
+  result := DataParameter(inherited Items[aIndex]);
+end;
+
+procedure DataParameterCollection.LoadFromArray(anArray: DataParameterArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure DataParameterCollection.SaveToArray(anArray: DataParameterArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := DataParameter.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure DataParameterCollection.SetItems(aIndex: integer; const Value: DataParameter);
+begin
+  DataParameter(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ TableRequestInfo }
+
+procedure TableRequestInfo.Assign(iSource: TPersistent); 
+var lSource: DataAbstract4_Intf.TableRequestInfo;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract4_Intf.TableRequestInfo) then begin
+    lSource := DataAbstract4_Intf.TableRequestInfo(iSource);
+    UserFilter := lSource.UserFilter;
+    IncludeSchema := lSource.IncludeSchema;
+    MaxRecords := lSource.MaxRecords;
+    Parameters.Assign(lSource.Parameters);
+  end;
+end;
+
+constructor TableRequestInfo.Create(aCollection : TCollection);
+begin
+  inherited Create(aCollection);
+  fMaxRecords := -1;
+end;
+
+function TableRequestInfo.GetParameters: DataParameterArray;
+begin
+  if (fParameters = nil) then fParameters := DataParameterArray.Create();
+  result := fParameters;
+end;
+
+procedure TableRequestInfo.ReadComplex(ASerializer: TObject);
+var
+  l_IncludeSchema: Boolean;
+  l_MaxRecords: Integer;
+  l_Parameters: DataParameterArray;
+  l_UserFilter: Utf8String;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_UserFilter := UserFilter;
+    TROSerializer(ASerializer).ReadUTF8String('UserFilter', l_UserFilter);
+    UserFilter := l_UserFilter;
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).ReadEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    IncludeSchema := l_IncludeSchema;
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).ReadInteger('MaxRecords', otSLong, l_MaxRecords);
+    MaxRecords := l_MaxRecords;
+    l_Parameters := Parameters;
+    TROSerializer(ASerializer).ReadArray('Parameters', DataParameterArray, l_Parameters);
+    if Parameters <> l_Parameters then Parameters.Free;
+    Parameters := l_Parameters;
+  end
+  else begin
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).ReadEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    IncludeSchema := l_IncludeSchema;
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).ReadInteger('MaxRecords', otSLong, l_MaxRecords);
+    MaxRecords := l_MaxRecords;
+    l_Parameters := Parameters;
+    TROSerializer(ASerializer).ReadArray('Parameters', DataParameterArray, l_Parameters);
+    if Parameters <> l_Parameters then Parameters.Free;
+    Parameters := l_Parameters;
+    l_UserFilter := UserFilter;
+    TROSerializer(ASerializer).ReadUTF8String('UserFilter', l_UserFilter);
+    UserFilter := l_UserFilter;
+  end;
+end;
+
+procedure TableRequestInfo.WriteComplex(ASerializer: TObject);
+var
+  l_IncludeSchema: Boolean;
+  l_MaxRecords: Integer;
+  l_Parameters: DataParameterArray;
+  l_UserFilter: Utf8String;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TableRequestInfo);
+    l_UserFilter := UserFilter;
+    TROSerializer(ASerializer).WriteUTF8String('UserFilter', l_UserFilter);
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).WriteEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).WriteInteger('MaxRecords', otSLong, l_MaxRecords);
+    l_Parameters := Parameters;
+    TROSerializer(ASerializer).WriteArray('Parameters', l_Parameters, DataParameterArray);
+  end
+  else begin
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).WriteEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).WriteInteger('MaxRecords', otSLong, l_MaxRecords);
+    l_Parameters := Parameters;
+    TROSerializer(ASerializer).WriteArray('Parameters', l_Parameters, DataParameterArray);
+    l_UserFilter := UserFilter;
+    TROSerializer(ASerializer).WriteUTF8String('UserFilter', l_UserFilter);
+  end;
+end;
+
+{ TableRequestInfoCollection }
+constructor TableRequestInfoCollection.Create;
+begin
+  inherited Create(TableRequestInfo);
+end;
+
+constructor TableRequestInfoCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TableRequestInfoCollection.Add: TableRequestInfo;
+begin
+  result := TableRequestInfo(inherited Add);
+end;
+
+function TableRequestInfoCollection.GetItems(aIndex: integer): TableRequestInfo;
+begin
+  result := TableRequestInfo(inherited Items[aIndex]);
+end;
+
+procedure TableRequestInfoCollection.LoadFromArray(anArray: TableRequestInfoArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure TableRequestInfoCollection.SaveToArray(anArray: TableRequestInfoArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := TableRequestInfo.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure TableRequestInfoCollection.SetItems(aIndex: integer; const Value: TableRequestInfo);
+begin
+  TableRequestInfo(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ UserInfo }
+
+procedure UserInfo.Assign(iSource: TPersistent); 
+var lSource: DataAbstract4_Intf.UserInfo;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract4_Intf.UserInfo) then begin
+    lSource := DataAbstract4_Intf.UserInfo(iSource);
+    SessionID := lSource.SessionID;
+    UserID := lSource.UserID;
+    Privileges.Assign(lSource.Privileges);
+    Attributes.Assign(lSource.Attributes);
+    UserData.Assign(lSource.UserData);
+  end;
+end;
+
+function UserInfo.GetPrivileges: StringArray;
+begin
+  if (fPrivileges = nil) then fPrivileges := StringArray.Create();
+  result := fPrivileges;
+end;
+
+function UserInfo.GetAttributes: VariantArray;
+begin
+  if (fAttributes = nil) then fAttributes := VariantArray.Create();
+  result := fAttributes;
+end;
+
+function UserInfo.GetUserData: Binary;
+begin
+  if (fUserData = nil) then fUserData := Binary.Create();
+  result := fUserData;
+end;
+
+procedure UserInfo.ReadComplex(ASerializer: TObject);
+var
+  l_Attributes: VariantArray;
+  l_Privileges: StringArray;
+  l_SessionID: Utf8String;
+  l_UserData: Binary;
+  l_UserID: Utf8String;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+    l_UserID := UserID;
+    TROSerializer(ASerializer).ReadUTF8String('UserID', l_UserID);
+    UserID := l_UserID;
+    l_Privileges := Privileges;
+    TROSerializer(ASerializer).ReadArray('Privileges', StringArray, l_Privileges);
+    if Privileges <> l_Privileges then Privileges.Free;
+    Privileges := l_Privileges;
+    l_Attributes := Attributes;
+    TROSerializer(ASerializer).ReadArray('Attributes', VariantArray, l_Attributes);
+    if Attributes <> l_Attributes then Attributes.Free;
+    Attributes := l_Attributes;
+    l_UserData := UserData;
+    TROSerializer(ASerializer).ReadBinary('UserData', l_UserData);
+    if UserData <> l_UserData then UserData.Free;
+    UserData := l_UserData;
+  end
+  else begin
+    l_Attributes := Attributes;
+    TROSerializer(ASerializer).ReadArray('Attributes', VariantArray, l_Attributes);
+    if Attributes <> l_Attributes then Attributes.Free;
+    Attributes := l_Attributes;
+    l_Privileges := Privileges;
+    TROSerializer(ASerializer).ReadArray('Privileges', StringArray, l_Privileges);
+    if Privileges <> l_Privileges then Privileges.Free;
+    Privileges := l_Privileges;
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+    l_UserData := UserData;
+    TROSerializer(ASerializer).ReadBinary('UserData', l_UserData);
+    if UserData <> l_UserData then UserData.Free;
+    UserData := l_UserData;
+    l_UserID := UserID;
+    TROSerializer(ASerializer).ReadUTF8String('UserID', l_UserID);
+    UserID := l_UserID;
+  end;
+end;
+
+procedure UserInfo.WriteComplex(ASerializer: TObject);
+var
+  l_Attributes: VariantArray;
+  l_Privileges: StringArray;
+  l_SessionID: Utf8String;
+  l_UserData: Binary;
+  l_UserID: Utf8String;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(UserInfo);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
+    l_UserID := UserID;
+    TROSerializer(ASerializer).WriteUTF8String('UserID', l_UserID);
+    l_Privileges := Privileges;
+    TROSerializer(ASerializer).WriteArray('Privileges', l_Privileges, StringArray);
+    l_Attributes := Attributes;
+    TROSerializer(ASerializer).WriteArray('Attributes', l_Attributes, VariantArray);
+    l_UserData := UserData;
+    TROSerializer(ASerializer).WriteBinary('UserData', l_UserData);
+  end
+  else begin
+    l_Attributes := Attributes;
+    TROSerializer(ASerializer).WriteArray('Attributes', l_Attributes, VariantArray);
+    l_Privileges := Privileges;
+    TROSerializer(ASerializer).WriteArray('Privileges', l_Privileges, StringArray);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
+    l_UserData := UserData;
+    TROSerializer(ASerializer).WriteBinary('UserData', l_UserData);
+    l_UserID := UserID;
+    TROSerializer(ASerializer).WriteUTF8String('UserID', l_UserID);
+  end;
+end;
+
+{ UserInfoCollection }
+constructor UserInfoCollection.Create;
+begin
+  inherited Create(UserInfo);
+end;
+
+constructor UserInfoCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function UserInfoCollection.Add: UserInfo;
+begin
+  result := UserInfo(inherited Add);
+end;
+
+function UserInfoCollection.GetItems(aIndex: integer): UserInfo;
+begin
+  result := UserInfo(inherited Items[aIndex]);
+end;
+
+procedure UserInfoCollection.SetItems(aIndex: integer; const Value: UserInfo);
+begin
+  UserInfo(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ TableRequestInfoV5 }
+
+procedure TableRequestInfoV5.Assign(iSource: TPersistent); 
+var lSource: DataAbstract4_Intf.TableRequestInfoV5;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract4_Intf.TableRequestInfoV5) then begin
+    lSource := DataAbstract4_Intf.TableRequestInfoV5(iSource);
+    WhereClause := lSource.WhereClause;
+    DynamicSelectFieldNames.Assign(lSource.DynamicSelectFieldNames);
+    Sorting.Assign(lSource.Sorting);
+  end;
+end;
+
+function TableRequestInfoV5.GetDynamicSelectFieldNames: StringArray;
+begin
+  if (fDynamicSelectFieldNames = nil) then fDynamicSelectFieldNames := StringArray.Create();
+  result := fDynamicSelectFieldNames;
+end;
+
+function TableRequestInfoV5.GetSorting: ColumnSorting;
+begin
+  if (fSorting = nil) then fSorting := ColumnSorting.Create();
+  result := fSorting;
+end;
+
+procedure TableRequestInfoV5.ReadComplex(ASerializer: TObject);
+var
+  l_DynamicSelectFieldNames: StringArray;
+  l_IncludeSchema: Boolean;
+  l_MaxRecords: Integer;
+  l_Parameters: DataParameterArray;
+  l_Sorting: ColumnSorting;
+  l_UserFilter: Utf8String;
+  l_WhereClause: IXmlNode;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    inherited;
+    l_WhereClause := WhereClause;
+    TROSerializer(ASerializer).ReadXML('WhereClause', l_WhereClause);
+    WhereClause := l_WhereClause;
+    l_DynamicSelectFieldNames := DynamicSelectFieldNames;
+    TROSerializer(ASerializer).ReadArray('DynamicSelectFieldNames', StringArray, l_DynamicSelectFieldNames);
+    if DynamicSelectFieldNames <> l_DynamicSelectFieldNames then DynamicSelectFieldNames.Free;
+    DynamicSelectFieldNames := l_DynamicSelectFieldNames;
+    l_Sorting := Sorting;
+    TROSerializer(ASerializer).ReadStruct('Sorting', ColumnSorting, l_Sorting);
+    if Sorting <> l_Sorting then Sorting.Free;
+    Sorting := l_Sorting;
+  end
+  else begin
+    l_DynamicSelectFieldNames := DynamicSelectFieldNames;
+    TROSerializer(ASerializer).ReadArray('DynamicSelectFieldNames', StringArray, l_DynamicSelectFieldNames);
+    if DynamicSelectFieldNames <> l_DynamicSelectFieldNames then DynamicSelectFieldNames.Free;
+    DynamicSelectFieldNames := l_DynamicSelectFieldNames;
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).ReadEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    IncludeSchema := l_IncludeSchema;
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).ReadInteger('MaxRecords', otSLong, l_MaxRecords);
+    MaxRecords := l_MaxRecords;
+    l_Parameters := Parameters;
+    TROSerializer(ASerializer).ReadArray('Parameters', DataParameterArray, l_Parameters);
+    if Parameters <> l_Parameters then Parameters.Free;
+    Parameters := l_Parameters;
+    l_Sorting := Sorting;
+    TROSerializer(ASerializer).ReadStruct('Sorting', ColumnSorting, l_Sorting);
+    if Sorting <> l_Sorting then Sorting.Free;
+    Sorting := l_Sorting;
+    l_UserFilter := UserFilter;
+    TROSerializer(ASerializer).ReadUTF8String('UserFilter', l_UserFilter);
+    UserFilter := l_UserFilter;
+    l_WhereClause := WhereClause;
+    TROSerializer(ASerializer).ReadXML('WhereClause', l_WhereClause);
+    WhereClause := l_WhereClause;
+  end;
+end;
+
+procedure TableRequestInfoV5.WriteComplex(ASerializer: TObject);
+var
+  l_DynamicSelectFieldNames: StringArray;
+  l_IncludeSchema: Boolean;
+  l_MaxRecords: Integer;
+  l_Parameters: DataParameterArray;
+  l_Sorting: ColumnSorting;
+  l_UserFilter: Utf8String;
+  l_WhereClause: IXmlNode;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    inherited;
+    TROSerializer(ASerializer).ChangeClass(TableRequestInfoV5);
+    l_WhereClause := WhereClause;
+    TROSerializer(ASerializer).WriteXML('WhereClause', l_WhereClause);
+    l_DynamicSelectFieldNames := DynamicSelectFieldNames;
+    TROSerializer(ASerializer).WriteArray('DynamicSelectFieldNames', l_DynamicSelectFieldNames, StringArray);
+    l_Sorting := Sorting;
+    TROSerializer(ASerializer).WriteStruct('Sorting', l_Sorting, ColumnSorting);
+  end
+  else begin
+    l_DynamicSelectFieldNames := DynamicSelectFieldNames;
+    TROSerializer(ASerializer).WriteArray('DynamicSelectFieldNames', l_DynamicSelectFieldNames, StringArray);
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).WriteEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).WriteInteger('MaxRecords', otSLong, l_MaxRecords);
+    l_Parameters := Parameters;
+    TROSerializer(ASerializer).WriteArray('Parameters', l_Parameters, DataParameterArray);
+    l_Sorting := Sorting;
+    TROSerializer(ASerializer).WriteStruct('Sorting', l_Sorting, ColumnSorting);
+    l_UserFilter := UserFilter;
+    TROSerializer(ASerializer).WriteUTF8String('UserFilter', l_UserFilter);
+    l_WhereClause := WhereClause;
+    TROSerializer(ASerializer).WriteXML('WhereClause', l_WhereClause);
+  end;
+end;
+
+{ TableRequestInfoV5Collection }
+constructor TableRequestInfoV5Collection.Create;
+begin
+  inherited Create(TableRequestInfoV5);
+end;
+
+constructor TableRequestInfoV5Collection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TableRequestInfoV5Collection.Add: TableRequestInfoV5;
+begin
+  result := TableRequestInfoV5(inherited Add);
+end;
+
+function TableRequestInfoV5Collection.GetItems(aIndex: integer): TableRequestInfoV5;
+begin
+  result := TableRequestInfoV5(inherited Items[aIndex]);
+end;
+
+procedure TableRequestInfoV5Collection.SetItems(aIndex: integer; const Value: TableRequestInfoV5);
+begin
+  TableRequestInfoV5(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ ColumnSorting }
+
+procedure ColumnSorting.Assign(iSource: TPersistent); 
+var lSource: DataAbstract4_Intf.ColumnSorting;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract4_Intf.ColumnSorting) then begin
+    lSource := DataAbstract4_Intf.ColumnSorting(iSource);
+    FieldName := lSource.FieldName;
+    SortDirection := lSource.SortDirection;
+  end;
+end;
+
+procedure ColumnSorting.ReadComplex(ASerializer: TObject);
+var
+  l_FieldName: Utf8String;
+  l_SortDirection: ColumnSortDirection;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_FieldName := FieldName;
+    TROSerializer(ASerializer).ReadUTF8String('FieldName', l_FieldName);
+    FieldName := l_FieldName;
+    l_SortDirection := SortDirection;
+    TROSerializer(ASerializer).ReadEnumerated('SortDirection',TypeInfo(ColumnSortDirection), l_SortDirection);
+    SortDirection := l_SortDirection;
+  end
+  else begin
+    l_FieldName := FieldName;
+    TROSerializer(ASerializer).ReadUTF8String('FieldName', l_FieldName);
+    FieldName := l_FieldName;
+    l_SortDirection := SortDirection;
+    TROSerializer(ASerializer).ReadEnumerated('SortDirection',TypeInfo(ColumnSortDirection), l_SortDirection);
+    SortDirection := l_SortDirection;
+  end;
+end;
+
+procedure ColumnSorting.WriteComplex(ASerializer: TObject);
+var
+  l_FieldName: Utf8String;
+  l_SortDirection: ColumnSortDirection;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(ColumnSorting);
+    l_FieldName := FieldName;
+    TROSerializer(ASerializer).WriteUTF8String('FieldName', l_FieldName);
+    l_SortDirection := SortDirection;
+    TROSerializer(ASerializer).WriteEnumerated('SortDirection',TypeInfo(ColumnSortDirection), l_SortDirection);
+  end
+  else begin
+    l_FieldName := FieldName;
+    TROSerializer(ASerializer).WriteUTF8String('FieldName', l_FieldName);
+    l_SortDirection := SortDirection;
+    TROSerializer(ASerializer).WriteEnumerated('SortDirection',TypeInfo(ColumnSortDirection), l_SortDirection);
+  end;
+end;
+
+{ ColumnSortingCollection }
+constructor ColumnSortingCollection.Create;
+begin
+  inherited Create(ColumnSorting);
+end;
+
+constructor ColumnSortingCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function ColumnSortingCollection.Add: ColumnSorting;
+begin
+  result := ColumnSorting(inherited Add);
+end;
+
+function ColumnSortingCollection.GetItems(aIndex: integer): ColumnSorting;
+begin
+  result := ColumnSorting(inherited Items[aIndex]);
+end;
+
+procedure ColumnSortingCollection.LoadFromArray(anArray: ColumnSortingArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure ColumnSortingCollection.SaveToArray(anArray: ColumnSortingArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := ColumnSorting.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure ColumnSortingCollection.SetItems(aIndex: integer; const Value: ColumnSorting);
+begin
+  ColumnSorting(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ TableRequestInfoV6 }
+
+procedure TableRequestInfoV6.Assign(iSource: TPersistent); 
+var lSource: DataAbstract4_Intf.TableRequestInfoV6;
+begin
+  inherited Assign(iSource);
+  if (iSource is DataAbstract4_Intf.TableRequestInfoV6) then begin
+    lSource := DataAbstract4_Intf.TableRequestInfoV6(iSource);
+    Sql := lSource.Sql;
+  end;
+end;
+
+procedure TableRequestInfoV6.ReadComplex(ASerializer: TObject);
+var
+  l_IncludeSchema: Boolean;
+  l_MaxRecords: Integer;
+  l_Parameters: DataParameterArray;
+  l_Sql: Widestring;
+  l_UserFilter: Utf8String;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    inherited;
+    l_Sql := Sql;
+    TROSerializer(ASerializer).ReadWideString('Sql', l_Sql);
+    Sql := l_Sql;
+  end
+  else begin
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).ReadEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    IncludeSchema := l_IncludeSchema;
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).ReadInteger('MaxRecords', otSLong, l_MaxRecords);
+    MaxRecords := l_MaxRecords;
+    l_Parameters := Parameters;
+    TROSerializer(ASerializer).ReadArray('Parameters', DataParameterArray, l_Parameters);
+    if Parameters <> l_Parameters then Parameters.Free;
+    Parameters := l_Parameters;
+    l_Sql := Sql;
+    TROSerializer(ASerializer).ReadWideString('Sql', l_Sql);
+    Sql := l_Sql;
+    l_UserFilter := UserFilter;
+    TROSerializer(ASerializer).ReadUTF8String('UserFilter', l_UserFilter);
+    UserFilter := l_UserFilter;
+  end;
+end;
+
+procedure TableRequestInfoV6.WriteComplex(ASerializer: TObject);
+var
+  l_IncludeSchema: Boolean;
+  l_MaxRecords: Integer;
+  l_Parameters: DataParameterArray;
+  l_Sql: Widestring;
+  l_UserFilter: Utf8String;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    inherited;
+    TROSerializer(ASerializer).ChangeClass(TableRequestInfoV6);
+    l_Sql := Sql;
+    TROSerializer(ASerializer).WriteWideString('Sql', l_Sql);
+  end
+  else begin
+    l_IncludeSchema := IncludeSchema;
+    TROSerializer(ASerializer).WriteEnumerated('IncludeSchema',TypeInfo(boolean), l_IncludeSchema);
+    l_MaxRecords := MaxRecords;
+    TROSerializer(ASerializer).WriteInteger('MaxRecords', otSLong, l_MaxRecords);
+    l_Parameters := Parameters;
+    TROSerializer(ASerializer).WriteArray('Parameters', l_Parameters, DataParameterArray);
+    l_Sql := Sql;
+    TROSerializer(ASerializer).WriteWideString('Sql', l_Sql);
+    l_UserFilter := UserFilter;
+    TROSerializer(ASerializer).WriteUTF8String('UserFilter', l_UserFilter);
+  end;
+end;
+
+{ TableRequestInfoV6Collection }
+constructor TableRequestInfoV6Collection.Create;
+begin
+  inherited Create(TableRequestInfoV6);
+end;
+
+constructor TableRequestInfoV6Collection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TableRequestInfoV6Collection.Add: TableRequestInfoV6;
+begin
+  result := TableRequestInfoV6(inherited Add);
+end;
+
+function TableRequestInfoV6Collection.GetItems(aIndex: integer): TableRequestInfoV6;
+begin
+  result := TableRequestInfoV6(inherited Items[aIndex]);
+end;
+
+procedure TableRequestInfoV6Collection.SetItems(aIndex: integer; const Value: TableRequestInfoV6);
+begin
+  TableRequestInfoV6(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoDataAbstractService }
+
+class function CoDataAbstractService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDataAbstractService;
+begin
+  result := TDataAbstractService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDataAbstractService_Proxy }
+
+function TDataAbstractService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DataAbstractService';
+end;
+
+function TDataAbstractService_Proxy.GetSchema(const aFilter: Utf8String): Utf8String;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetSchema');
+    __Message.Write('aFilter', TypeInfo(Utf8String), aFilter, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Utf8String), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetData');
+    __Message.Write('aTableNameArray', TypeInfo(DataAbstract4_Intf.StringArray), aTableNameArray, []);
+    __Message.Write('aTableRequestInfoArray', TypeInfo(DataAbstract4_Intf.TableRequestInfoArray), aTableRequestInfoArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.UpdateData(const aDelta: Binary): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'UpdateData');
+    __Message.Write('aDelta', TypeInfo(Binary), aDelta, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'ExecuteCommand');
+    __Message.Write('aCommandName', TypeInfo(Utf8String), aCommandName, []);
+    __Message.Write('aParameterArray', TypeInfo(DataAbstract4_Intf.DataParameterArray), aParameterArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.ExecuteCommandEx(const aCommandName: Utf8String; const aInputParameters: DataParameterArray; out aOutputParameters: DataParameterArray): Integer;
+begin
+  try
+    aOutputParameters := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'ExecuteCommandEx');
+    __Message.Write('aCommandName', TypeInfo(Utf8String), aCommandName, []);
+    __Message.Write('aInputParameters', TypeInfo(DataAbstract4_Intf.DataParameterArray), aInputParameters, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+    __Message.Read('aOutputParameters', TypeInfo(DataAbstract4_Intf.DataParameterArray), aOutputParameters, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.GetTableSchema(const aTableNameArray: StringArray): Utf8String;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetTableSchema');
+    __Message.Write('aTableNameArray', TypeInfo(DataAbstract4_Intf.StringArray), aTableNameArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Utf8String), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.GetCommandSchema(const aCommandNameArray: StringArray): Utf8String;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetCommandSchema');
+    __Message.Write('aCommandNameArray', TypeInfo(DataAbstract4_Intf.StringArray), aCommandNameArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Utf8String), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'SQLGetData');
+    __Message.Write('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+    __Message.Write('aIncludeSchema', TypeInfo(Boolean), aIncludeSchema, []);
+    __Message.Write('aMaxRecords', TypeInfo(Integer), aMaxRecords, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.SQLGetDataEx(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer; const aDynamicWhereXML: Widestring): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'SQLGetDataEx');
+    __Message.Write('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+    __Message.Write('aIncludeSchema', TypeInfo(Boolean), aIncludeSchema, []);
+    __Message.Write('aMaxRecords', TypeInfo(Integer), aMaxRecords, []);
+    __Message.Write('aDynamicWhereXML', TypeInfo(Widestring), aDynamicWhereXML, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.SQLExecuteCommand(const aSQLText: Utf8String): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'SQLExecuteCommand');
+    __Message.Write('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'SQLExecuteCommandEx');
+    __Message.Write('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+    __Message.Write('aDynamicWhereXML', TypeInfo(Widestring), aDynamicWhereXML, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TDataAbstractService_Proxy.GetDatasetScripts(const DatasetNames: Utf8String): Utf8String;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetDatasetScripts');
+    __Message.Write('DatasetNames', TypeInfo(Utf8String), DatasetNames, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Utf8String), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDataAbstractService_Proxy.RegisterForDataChangeNotification(const aTableName: Utf8String);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'RegisterForDataChangeNotification');
+    __Message.Write('aTableName', TypeInfo(Utf8String), aTableName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDataAbstractService_Proxy.UnregisterForDataChangeNotification(const aTableName: Utf8String);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'UnregisterForDataChangeNotification');
+    __Message.Write('aTableName', TypeInfo(Utf8String), aTableName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoSimpleLoginService }
+
+class function CoSimpleLoginService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISimpleLoginService;
+begin
+  result := TSimpleLoginService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TSimpleLoginService_Proxy }
+
+function TSimpleLoginService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'SimpleLoginService';
+end;
+
+function TSimpleLoginService_Proxy.Login(const aUserID: Utf8String; const aPassword: Utf8String; out aUserInfo: UserInfo): Boolean;
+begin
+  try
+    aUserInfo := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'Login');
+    __Message.Write('aUserID', TypeInfo(Utf8String), aUserID, []);
+    __Message.Write('aPassword', TypeInfo(Utf8String), aPassword, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+    __Message.Read('aUserInfo', TypeInfo(DataAbstract4_Intf.UserInfo), aUserInfo, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoBaseLoginService }
+
+class function CoBaseLoginService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBaseLoginService;
+begin
+  result := TBaseLoginService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TBaseLoginService_Proxy }
+
+function TBaseLoginService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'BaseLoginService';
+end;
+
+function TBaseLoginService_Proxy.LoginEx(const aLoginString: Utf8String): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'LoginEx');
+    __Message.Write('aLoginString', TypeInfo(Utf8String), aLoginString, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TBaseLoginService_Proxy.Logout;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'Logout');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+{ CoMultiDbLoginService }
+
+class function CoMultiDbLoginService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiDbLoginService;
+begin
+  result := TMultiDbLoginService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TMultiDbLoginService_Proxy }
+
+function TMultiDbLoginService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'MultiDbLoginService';
+end;
+
+function TMultiDbLoginService_Proxy.Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String; out aUserInfo: UserInfo): Boolean;
+begin
+  try
+    aUserInfo := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'Login');
+    __Message.Write('aUserID', TypeInfo(Utf8String), aUserID, []);
+    __Message.Write('aPassword', TypeInfo(Utf8String), aPassword, []);
+    __Message.Write('aConnectionName', TypeInfo(Utf8String), aConnectionName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+    __Message.Read('aUserInfo', TypeInfo(DataAbstract4_Intf.UserInfo), aUserInfo, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoMultiDbLoginServiceV5 }
+
+class function CoMultiDbLoginServiceV5.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiDbLoginServiceV5;
+begin
+  result := TMultiDbLoginServiceV5_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TMultiDbLoginServiceV5_Proxy }
+
+function TMultiDbLoginServiceV5_Proxy.__GetInterfaceName:string;
+begin
+  result := 'MultiDbLoginServiceV5';
+end;
+
+function TMultiDbLoginServiceV5_Proxy.GetConnectionNames: StringArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetConnectionNames');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DataAbstract4_Intf.StringArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TMultiDbLoginServiceV5_Proxy.GetDefaultConnectionName: Utf8String;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract4', __InterfaceName, 'GetDefaultConnectionName');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Utf8String), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TDataChangeNotification_Writer }
+  TDataChangeNotification_Writer = class(TROEventWriter, IDataChangeNotification_Writer)
+  protected
+    procedure OnDataTableChanged(const __Sender : TGUID; const aTableName: Utf8String; const aDelta: Binary);
+  end;
+
+procedure TDataChangeNotification_Writer.OnDataTableChanged(const __Sender : TGUID; const aTableName: Utf8String; const aDelta: Binary);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DataAbstract4', EID_DataChangeNotification, 'OnDataTableChanged');
+    __Message.Write('aTableName', TypeInfo(Utf8String), aTableName, []);
+    __Message.Write('aDelta', TypeInfo(Binary), aDelta, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TDataChangeNotification_Invoker }
+  TDataChangeNotification_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnDataTableChanged(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TDataChangeNotification_Invoker.Invoke_OnDataTableChanged(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  aTableName: Utf8String;
+  aDelta: Binary;
+begin
+  aDelta := NIL;
+
+  try
+    __Message.Read('aTableName', TypeInfo(Utf8String), aTableName, []);
+    __Message.Read('aDelta', TypeInfo(Binary), aDelta, []);
+
+    (__Target as IDataChangeNotification).OnDataTableChanged(aTableName, aDelta);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(aDelta);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(DataParameter);
+  RegisterROClass(TableRequestInfo);
+  RegisterROClass(UserInfo);
+  RegisterROClass(TableRequestInfoV5);
+  RegisterROClass(ColumnSorting);
+  RegisterROClass(TableRequestInfoV6);
+  RegisterROClass(DataParameterArray);
+  RegisterROClass(TableRequestInfoArray);
+  RegisterROClass(StringArray);
+  RegisterROClass(VariantArray);
+  RegisterROClass(ColumnSortingArray);
+  RegisterProxyClass(IDataAbstractService_IID, TDataAbstractService_Proxy);
+  RegisterProxyClass(ISimpleLoginService_IID, TSimpleLoginService_Proxy);
+  RegisterProxyClass(IBaseLoginService_IID, TBaseLoginService_Proxy);
+  RegisterProxyClass(IMultiDbLoginService_IID, TMultiDbLoginService_Proxy);
+  RegisterProxyClass(IMultiDbLoginServiceV5_IID, TMultiDbLoginServiceV5_Proxy);
+
+  RegisterEventWriterClass(IDataChangeNotification_Writer, TDataChangeNotification_Writer);
+  RegisterEventInvokerClass(EID_DataChangeNotification, TDataChangeNotification_Invoker);
+
+finalization
+  UnregisterROClass(DataParameter);
+  UnregisterROClass(TableRequestInfo);
+  UnregisterROClass(UserInfo);
+  UnregisterROClass(TableRequestInfoV5);
+  UnregisterROClass(ColumnSorting);
+  UnregisterROClass(TableRequestInfoV6);
+  UnregisterROClass(DataParameterArray);
+  UnregisterROClass(TableRequestInfoArray);
+  UnregisterROClass(StringArray);
+  UnregisterROClass(VariantArray);
+  UnregisterROClass(ColumnSortingArray);
+  UnregisterProxyClass(IDataAbstractService_IID);
+  UnregisterProxyClass(ISimpleLoginService_IID);
+  UnregisterProxyClass(IBaseLoginService_IID);
+  UnregisterProxyClass(IMultiDbLoginService_IID);
+  UnregisterProxyClass(IMultiDbLoginServiceV5_IID);
+
+  UnregisterEventWriterClass(IDataChangeNotification_Writer);
+  UnregisterEventInvokerClass(EID_DataChangeNotification);
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Invk.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Invk.pas
new file mode 100644
index 0000000..fd826b9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract4_Invk.pas	
@@ -0,0 +1,642 @@
+unit DataAbstract4_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} DataAbstract4_Intf;
+
+type
+  TDataAbstractService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_UpdateData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ExecuteCommand(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ExecuteCommandEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetTableSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetCommandSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SQLGetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SQLGetDataEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SQLExecuteCommand(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SQLExecuteCommandEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetDatasetScripts(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_RegisterForDataChangeNotification(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_UnregisterForDataChangeNotification(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TBaseLoginService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_LoginEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TMultiDbLoginService_Invoker = class(TBaseLoginService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TMultiDbLoginServiceV5_Invoker = class(TMultiDbLoginService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetConnectionNames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetDefaultConnectionName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TSimpleLoginService_Invoker = class(TBaseLoginService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TDataAbstractService_Invoker }
+
+constructor TDataAbstractService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := True;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetSchema(const aFilter: Utf8String): Utf8String; }
+var
+  aFilter: Utf8String;
+  lResult: Utf8String;
+begin
+  try
+    __Message.Read('aFilter', TypeInfo(Utf8String), aFilter, []);
+
+    lResult := (__Instance as IDataAbstractService).GetSchema(aFilter);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'GetSchemaResponse');
+    __Message.Write('Result', TypeInfo(Utf8String), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_GetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray): Binary; }
+var
+  aTableNameArray: DataAbstract4_Intf.StringArray;
+  aTableRequestInfoArray: DataAbstract4_Intf.TableRequestInfoArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aTableNameArray := nil;
+  aTableRequestInfoArray := nil;
+  lResult := nil;
+  try
+    __Message.Read('aTableNameArray', TypeInfo(DataAbstract4_Intf.StringArray), aTableNameArray, []);
+    __Message.Read('aTableRequestInfoArray', TypeInfo(DataAbstract4_Intf.TableRequestInfoArray), aTableRequestInfoArray, []);
+
+    lResult := (__Instance as IDataAbstractService).GetData(aTableNameArray, aTableRequestInfoArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'GetDataResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aTableNameArray);
+      __lObjectDisposer.Add(aTableRequestInfoArray);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_UpdateData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function UpdateData(const aDelta: Binary): Binary; }
+var
+  aDelta: Binary;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aDelta := nil;
+  lResult := nil;
+  try
+    __Message.Read('aDelta', TypeInfo(Binary), aDelta, []);
+
+    lResult := (__Instance as IDataAbstractService).UpdateData(aDelta);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'UpdateDataResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aDelta);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_ExecuteCommand(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray): Integer; }
+var
+  aCommandName: Utf8String;
+  aParameterArray: DataAbstract4_Intf.DataParameterArray;
+  lResult: Integer;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aParameterArray := nil;
+  try
+    __Message.Read('aCommandName', TypeInfo(Utf8String), aCommandName, []);
+    __Message.Read('aParameterArray', TypeInfo(DataAbstract4_Intf.DataParameterArray), aParameterArray, []);
+
+    lResult := (__Instance as IDataAbstractService).ExecuteCommand(aCommandName, aParameterArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'ExecuteCommandResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aParameterArray);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_ExecuteCommandEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ExecuteCommandEx(const aCommandName: Utf8String; const aInputParameters: DataParameterArray; out aOutputParameters: DataParameterArray): Integer; }
+var
+  aCommandName: Utf8String;
+  aInputParameters: DataAbstract4_Intf.DataParameterArray;
+  aOutputParameters: DataAbstract4_Intf.DataParameterArray;
+  lResult: Integer;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aInputParameters := nil;
+  aOutputParameters := nil;
+  try
+    __Message.Read('aCommandName', TypeInfo(Utf8String), aCommandName, []);
+    __Message.Read('aInputParameters', TypeInfo(DataAbstract4_Intf.DataParameterArray), aInputParameters, []);
+
+    lResult := (__Instance as IDataAbstractService).ExecuteCommandEx(aCommandName, aInputParameters, aOutputParameters);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'ExecuteCommandExResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Write('aOutputParameters', TypeInfo(DataAbstract4_Intf.DataParameterArray), aOutputParameters, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aInputParameters);
+      __lObjectDisposer.Add(aOutputParameters);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_GetTableSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetTableSchema(const aTableNameArray: StringArray): Utf8String; }
+var
+  aTableNameArray: DataAbstract4_Intf.StringArray;
+  lResult: Utf8String;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aTableNameArray := nil;
+  try
+    __Message.Read('aTableNameArray', TypeInfo(DataAbstract4_Intf.StringArray), aTableNameArray, []);
+
+    lResult := (__Instance as IDataAbstractService).GetTableSchema(aTableNameArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'GetTableSchemaResponse');
+    __Message.Write('Result', TypeInfo(Utf8String), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aTableNameArray);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_GetCommandSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetCommandSchema(const aCommandNameArray: StringArray): Utf8String; }
+var
+  aCommandNameArray: DataAbstract4_Intf.StringArray;
+  lResult: Utf8String;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aCommandNameArray := nil;
+  try
+    __Message.Read('aCommandNameArray', TypeInfo(DataAbstract4_Intf.StringArray), aCommandNameArray, []);
+
+    lResult := (__Instance as IDataAbstractService).GetCommandSchema(aCommandNameArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'GetCommandSchemaResponse');
+    __Message.Write('Result', TypeInfo(Utf8String), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aCommandNameArray);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_SQLGetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer): Binary; }
+var
+  aSQLText: Utf8String;
+  aIncludeSchema: Boolean;
+  aMaxRecords: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+    __Message.Read('aIncludeSchema', TypeInfo(Boolean), aIncludeSchema, []);
+    __Message.Read('aMaxRecords', TypeInfo(Integer), aMaxRecords, []);
+
+    lResult := (__Instance as IDataAbstractService).SQLGetData(aSQLText, aIncludeSchema, aMaxRecords);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'SQLGetDataResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_SQLGetDataEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function SQLGetDataEx(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer; const aDynamicWhereXML: Widestring): Binary; }
+var
+  aSQLText: Utf8String;
+  aIncludeSchema: Boolean;
+  aMaxRecords: Integer;
+  aDynamicWhereXML: Widestring;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+    __Message.Read('aIncludeSchema', TypeInfo(Boolean), aIncludeSchema, []);
+    __Message.Read('aMaxRecords', TypeInfo(Integer), aMaxRecords, []);
+    __Message.Read('aDynamicWhereXML', TypeInfo(Widestring), aDynamicWhereXML, []);
+
+    lResult := (__Instance as IDataAbstractService).SQLGetDataEx(aSQLText, aIncludeSchema, aMaxRecords, aDynamicWhereXML);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'SQLGetDataExResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_SQLExecuteCommand(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function SQLExecuteCommand(const aSQLText: Utf8String): Integer; }
+var
+  aSQLText: Utf8String;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+
+    lResult := (__Instance as IDataAbstractService).SQLExecuteCommand(aSQLText);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'SQLExecuteCommandResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_SQLExecuteCommandEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring): Integer; }
+var
+  aSQLText: Utf8String;
+  aDynamicWhereXML: Widestring;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('aSQLText', TypeInfo(Utf8String), aSQLText, []);
+    __Message.Read('aDynamicWhereXML', TypeInfo(Widestring), aDynamicWhereXML, []);
+
+    lResult := (__Instance as IDataAbstractService).SQLExecuteCommandEx(aSQLText, aDynamicWhereXML);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'SQLExecuteCommandExResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_GetDatasetScripts(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetDatasetScripts(const DatasetNames: Utf8String): Utf8String; }
+var
+  DatasetNames: Utf8String;
+  lResult: Utf8String;
+begin
+  try
+    __Message.Read('DatasetNames', TypeInfo(Utf8String), DatasetNames, []);
+
+    lResult := (__Instance as IDataAbstractService).GetDatasetScripts(DatasetNames);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'GetDatasetScriptsResponse');
+    __Message.Write('Result', TypeInfo(Utf8String), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_RegisterForDataChangeNotification(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure RegisterForDataChangeNotification(const aTableName: Utf8String); }
+var
+  aTableName: Utf8String;
+begin
+  try
+    __Message.Read('aTableName', TypeInfo(Utf8String), aTableName, []);
+
+    (__Instance as IDataAbstractService).RegisterForDataChangeNotification(aTableName);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'RegisterForDataChangeNotificationResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TDataAbstractService_Invoker.Invoke_UnregisterForDataChangeNotification(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure UnregisterForDataChangeNotification(const aTableName: Utf8String); }
+var
+  aTableName: Utf8String;
+begin
+  try
+    __Message.Read('aTableName', TypeInfo(Utf8String), aTableName, []);
+
+    (__Instance as IDataAbstractService).UnregisterForDataChangeNotification(aTableName);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'DataAbstractService', 'UnregisterForDataChangeNotificationResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+{ TSimpleLoginService_Invoker }
+
+constructor TSimpleLoginService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := True;
+end;
+
+procedure TSimpleLoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Login(const aUserID: Utf8String; const aPassword: Utf8String; out aUserInfo: UserInfo): Boolean; }
+var
+  aUserID: Utf8String;
+  aPassword: Utf8String;
+  aUserInfo: DataAbstract4_Intf.UserInfo;
+  lResult: Boolean;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aUserInfo := nil;
+  try
+    __Message.Read('aUserID', TypeInfo(Utf8String), aUserID, []);
+    __Message.Read('aPassword', TypeInfo(Utf8String), aPassword, []);
+
+    lResult := (__Instance as ISimpleLoginService).Login(aUserID, aPassword, aUserInfo);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'SimpleLoginService', 'LoginResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Write('aUserInfo', TypeInfo(DataAbstract4_Intf.UserInfo), aUserInfo, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aUserInfo);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+{ TBaseLoginService_Invoker }
+
+constructor TBaseLoginService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := True;
+end;
+
+procedure TBaseLoginService_Invoker.Invoke_LoginEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function LoginEx(const aLoginString: Utf8String): Boolean; }
+var
+  aLoginString: Utf8String;
+  lResult: Boolean;
+begin
+  try
+    __Message.Read('aLoginString', TypeInfo(Utf8String), aLoginString, []);
+
+    lResult := (__Instance as IBaseLoginService).LoginEx(aLoginString);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'BaseLoginService', 'LoginExResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TBaseLoginService_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Logout; }
+begin
+  try
+    (__Instance as IBaseLoginService).Logout;
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'BaseLoginService', 'LogoutResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+{ TMultiDbLoginService_Invoker }
+
+constructor TMultiDbLoginService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := True;
+end;
+
+procedure TMultiDbLoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String; out aUserInfo: UserInfo): Boolean; }
+var
+  aUserID: Utf8String;
+  aPassword: Utf8String;
+  aConnectionName: Utf8String;
+  aUserInfo: DataAbstract4_Intf.UserInfo;
+  lResult: Boolean;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aUserInfo := nil;
+  try
+    __Message.Read('aUserID', TypeInfo(Utf8String), aUserID, []);
+    __Message.Read('aPassword', TypeInfo(Utf8String), aPassword, []);
+    __Message.Read('aConnectionName', TypeInfo(Utf8String), aConnectionName, []);
+
+    lResult := (__Instance as IMultiDbLoginService).Login(aUserID, aPassword, aConnectionName, aUserInfo);
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'MultiDbLoginService', 'LoginResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Write('aUserInfo', TypeInfo(DataAbstract4_Intf.UserInfo), aUserInfo, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aUserInfo);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+{ TMultiDbLoginServiceV5_Invoker }
+
+constructor TMultiDbLoginServiceV5_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := True;
+end;
+
+procedure TMultiDbLoginServiceV5_Invoker.Invoke_GetConnectionNames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetConnectionNames: StringArray; }
+var
+  lResult: DataAbstract4_Intf.StringArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as IMultiDbLoginServiceV5).GetConnectionNames;
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'MultiDbLoginServiceV5', 'GetConnectionNamesResponse');
+    __Message.Write('Result', TypeInfo(DataAbstract4_Intf.StringArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TMultiDbLoginServiceV5_Invoker.Invoke_GetDefaultConnectionName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetDefaultConnectionName: Utf8String; }
+var
+  lResult: Utf8String;
+begin
+  try
+    lResult := (__Instance as IMultiDbLoginServiceV5).GetDefaultConnectionName;
+
+    __Message.InitializeResponseMessage(__Transport, 'DataAbstract4', 'MultiDbLoginServiceV5', 'GetDefaultConnectionNameResponse');
+    __Message.Write('Result', TypeInfo(Utf8String), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.dfm
new file mode 100644
index 0000000..65deb18
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.dfm	
@@ -0,0 +1,5 @@
+object DataAbstractService: TDataAbstractService
+  OldCreateOrder = True
+  Height = 437
+  Width = 546
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.lfm
new file mode 100644
index 0000000..e5b4ff9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.lfm	
@@ -0,0 +1,7 @@
+inherited DataAbstractService: TDataAbstractService
+  OldCreateOrder = True
+  Height = 437
+  HorizontalOffset = 0
+  VerticalOffset = 0
+  Width = 546
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.lrs
new file mode 100644
index 0000000..cca0dab
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.lrs	
@@ -0,0 +1,7 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TDataAbstractService','FORMDATA',[
+  'TPF0'#241#20'TDataAbstractService'#19'DataAbstractService'#14'OldCreateOrder'
+  +#9#6'Height'#3#181#1#16'HorizontalOffset'#2#0#14'VerticalOffset'#2#0#5'Width'
+  +#3'"'#2#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.pas
new file mode 100644
index 0000000..f32a0cb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstractService_Impl.pas	
@@ -0,0 +1,1554 @@
+unit DataAbstractService_Impl;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ When applying fixes to this unit, please see if the need to be propagates  }
+{ to the duplicate dlogic in legacy DARemoteService_Impl.pas, too.           }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, DB,
+  {Generated:} DataAbstract4_Intf,
+  uROClientIntf, uROTypes, uROServer, uROSessions, uRORemoteDataModule, uROClasses,
+  uDAInterfaces, uDAClasses, uDADataTable, uDADataStreamer, uDABusinessProcessor,
+  uDADataTableReferenceCollection, uDADelta, uDALocalHelpers;
+
+type
+  { Events }
+  TDAAcquireConnectionEvent = procedure(aSender: TObject; var aConnectionName: string) of object;
+  TDAConnectionAcquiredEvent = procedure(aSender: TObject; const aConnectionName: string; const aAcquiredConnection: IDAConnection) of object;
+  TDAAcquireConnectionFailureEvent = procedure(aSender: TObject; const aConnectionName: string; aError: Exception) of object;
+  TDAGetDatasetSchemaEvent = procedure(aSender: TObject; const aDataset: IDADataset) of object;
+  TDAGetDatasetDataEvent = procedure(aSender: TObject; const aDataset: IDADataset; const aIncludeSchema: Boolean; const aMaxRecords: Integer) of object;
+  TDABusinessProcessorAutoCreatedEvent = procedure(aSender: TRORemoteDataModule; BusinessProcessor : TDABusinessProcessor) of object;
+  TDABeforeExecuteCommandEvent = procedure(aSender: TObject; const aCommand: IDASQLCommand) of object;
+  TDAAfterExecuteCommandEvent = procedure(aSender: TObject; const aCommand: IDASQLCommand; aRowsAffacted : integer) of object;
+  TDAConnectionReleasedEvent = procedure(aSender: TObject; const aConnectionName: string) of object;
+  TDAGetSchemaAsXMLEvent = procedure(aSender: TObject; var aSchemaXML: Utf8string) of object;
+  TDAProcessDeltasEvent = procedure(aSender: TObject; aDeltaStructs: TDADeltaStructList) of object;
+  TDAProcessDeltasErrorEvent = procedure(aSender: TObject; aDeltaStructs: TDADeltaStructList; aError: Exception; var aDoRaise: boolean) of object;
+  TDASchemaElementAccessValidationEvent = procedure(Sender: TObject; const aConnection: IDAConnection; const aDatasetName: string;
+                                          const aParamNames: array of string; const aParamValues : array of variant;
+                                          aSchema: TDASchema; var Allowed : boolean) of object;
+  TDASQLValidationEvent = procedure(Sender: TObject; const aConnection: IDAConnection; const aSQLText: string;
+                                          const aParamNames: array of string; const aParamValues : array of variant;
+                                          var Allowed : boolean) of object;
+  TDAUpdateDataTransactionEvent = procedure(Sender: TObject; var aUseDefaultTransactionLogic: Boolean) of object;
+
+  TDADeltasMode = (dumExported, dumStandard);
+  TDADeltasModes = set of TDADeltasMode;
+  { TDataAbstractService }
+  TDataAbstractService = class(TRORemoteDataModule, IDataAbstractService, IDataAbstractLocalServiceAccess)
+  private
+    { Properties }
+    fAllowExecuteCommands: boolean;
+    fAllowExecuteSQL: boolean;
+    fAllowDataAccess: boolean;
+    fAllowSchemaAccess: boolean;
+    fAllowWhereSQL: boolean;
+    fConnectionName: string;
+    fAcquireConnection: boolean;
+    fServiceSchema: TDASchema;
+    fAutoCreateBusinessProcessors: boolean;
+    fServiceDataStreamer: TDADataStreamer;
+    fProcessDeltasWithoutUpdateRules: boolean;
+
+    fConnection: IDAConnection;
+    fHETConnection: IDAHETConnection;
+    fExportedDataTables: TDADataTableReferenceCollection;
+
+    { Events }
+    fBeforeGetDatasetSchema: TDAGetDatasetSchemaEvent;
+    fBeforeProcessDeltas: TDAProcessDeltasEvent;
+    fOnAcquireConnectionFailure: TDAAcquireConnectionFailureEvent;
+    fOnUpdateDataCommitTransaction: TDAUpdateDataTransactionEvent;
+    fGetDatasetDataValidation: TDASchemaElementAccessValidationEvent;
+    fExecuteCommandValidation: TDASchemaElementAccessValidationEvent;
+    fSQLValidation: TDASQLValidationEvent;
+    fAfterExecuteCommand: TDAAfterExecuteCommandEvent;
+    fBeforeAcquireConnection: TDAAcquireConnectionEvent;
+    fOnUpdateDataRollBackTransaction: TDAUpdateDataTransactionEvent;
+    fAfterGetDatasetData: TDAGetDatasetDataEvent;
+    fAfterReleaseConnection: TDAConnectionReleasedEvent;
+    fAfterGetDatasetSchema: TDAGetDatasetSchemaEvent;
+    fAfterProcessDeltas: TDAProcessDeltasEvent;
+    fOnGetSchemaAsXML: TDAGetSchemaAsXMLEvent;
+    fOnBusinessProcessorAutoCreated: TDABusinessProcessorAutoCreatedEvent;
+    fOnUpdateDataBeginTransaction: TDAUpdateDataTransactionEvent;
+    fAfterAcquireConnection: TDAConnectionAcquiredEvent;
+    fOnProcessDeltasError: TDAProcessDeltasErrorEvent;
+    fBeforeExecuteCommand: TDABeforeExecuteCommandEvent;
+    fBeforeGetDatasetData: TDAGetDatasetDataEvent;
+    fBeforeReleaseConnection: TDAConnectionAcquiredEvent;
+    fAllowDynamicSelect: boolean;
+    fAllowDynamicWhere: boolean;
+    fAllowUpdates: boolean;
+    fHasReducedDelta: Boolean;
+    fReturnUpdateFailureDelta: boolean;
+
+    procedure SetServiceDataStreamer(const Value: TDADataStreamer);
+    procedure SetServiceSchema(const Value: TDASchema);
+    procedure SetExportedDataTables(const Value: TDADataTableReferenceCollection);
+    procedure Check(CheckOnlyDataStreamer:Boolean = false);
+    procedure Check2;
+    procedure InternalStartTransaction;
+  private
+    function GetConnection: IDAConnection;
+    function ReadDeltaFromStream(const DeltaStream: Binary):IDeltaArray;
+    function PackDeltas(aDeltaList: IDeltaArray): Binary;
+    function UnpackDeltas(aDeltaList: IDeltaArray; DeltaStructList: TDADeltaStructList): TDADeltasModes;
+    function TriggerTransactionEvent(aEvent: TDAUpdateDataTransactionEvent): boolean;
+    procedure ExportedDataTables_MergeDelta(ADelta: IDADelta);
+    procedure InternalGetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray; aStreamer: TDADataStreamer);
+    function InternalGetSchema(const aFilter: Utf8String): Utf8String;
+    procedure InternalUpdateData(aDeltaList: IDeltaArray);
+    function InternalExecuteCommandEx(const aCommandName: String; const aInputParameters: DataParameterArray; out aOutputParameters: DataParameterArray):integer;
+  protected
+    { IDataAbstractService methods }
+    function GetSchema(const aFilter: Utf8String): Utf8String;
+    function GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray): Binary;
+    function UpdateData(const aDelta: Binary): Binary;
+    function ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray): Integer;
+    function GetTableSchema(const aTableNameArray: StringArray): Utf8String;
+    function GetCommandSchema(const aCommandNameArray: StringArray): Utf8String;
+    function SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer): Binary;
+    function SQLGetDataEx(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer; const aDynamicWhereXML: Widestring): Binary;
+    function SQLExecuteCommand(const aSQLText: Utf8String): Integer;
+    function SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring): Integer;
+    function  ExecuteCommandEx(const aCommandName: Utf8String;
+      const aInputParameters: DataParameterArray;
+      out aOutputParameters: DataParameterArray): Integer;
+    function GetDatasetScripts(const DatasetNames: Utf8String): Utf8String;
+    procedure RegisterForDataChangeNotification(const aTableName: Utf8String);
+    procedure UnregisterForDataChangeNotification(const aTableName: Utf8String);
+    { IDataAbstractLocalServiceAccess }
+    function IDataAbstractLocalServiceAccess.GetSchema = InternalGetSchema;
+    procedure IDataAbstractLocalServiceAccess.UpdateData = InternalUpdateData;
+    procedure IDataAbstractLocalServiceAccess.GetData = InternalGetData;
+    function IDataAbstractLocalServiceAccess.GetDatasetScripts = GetDatasetScripts;
+    function IDataAbstractLocalServiceAccess.ExecuteCommandEx = InternalExecuteCommandEx;
+
+    { TRORemoteDataModule }
+    procedure DoOnDeactivate(aClientID: TGUID); override;
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    function GetConnectionForObject(const aName: string): IDAConnection; virtual;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure SetConnection(aConnection: IDAConnection); deprecated;
+    {$WARN SYMBOL_DEPRECATED OFF}
+    property Connection: IDAConnection read GetConnection write SetConnection;
+    {$WARN SYMBOL_DEPRECATED ON}
+
+    procedure ReleaseConnection;
+  published
+    property AcquireConnection: boolean read fAcquireConnection write fAcquireConnection default true;
+    property ConnectionName: string read fConnectionName write fConnectionName;
+    property AutoCreateBusinessProcessors : boolean read fAutoCreateBusinessProcessors write fAutoCreateBusinessProcessors default true;
+    property ServiceSchema: TDASchema read fServiceSchema write SetServiceSchema;
+    property ServiceDataStreamer: TDADataStreamer read fServiceDataStreamer write SetServiceDataStreamer;
+
+    property AllowDataAccess: boolean read fAllowDataAccess write fAllowDataAccess default true;
+    property AllowSchemaAccess: boolean read fAllowSchemaAccess write fAllowSchemaAccess default true;
+    property AllowUpdates: boolean read fAllowUpdates write fAllowUpdates default true;
+    property AllowExecuteSQL: boolean read fAllowExecuteSQL write fAllowExecuteSQL default false;
+    property AllowWhereSQL: boolean read fAllowWhereSQL write fAllowWhereSQL default false;
+    property AllowExecuteCommands: boolean read fAllowExecuteCommands write fAllowExecuteCommands default false;
+    property AllowDynamicSelect: boolean read fAllowDynamicSelect write fAllowDynamicSelect default true;
+    property AllowDynamicWhere: boolean read fAllowDynamicWhere write fAllowDynamicWhere default true;
+
+    property ProcessDeltasWithoutUpdateRules: boolean read fProcessDeltasWithoutUpdateRules write fProcessDeltasWithoutUpdateRules default true;
+    property ExportedDataTables: TDADataTableReferenceCollection read fExportedDataTables write SetExportedDataTables;
+    property ReturnUpdateFailureDelta: boolean read fReturnUpdateFailureDelta write FReturnUpdateFailureDelta default True;
+
+    { Events }
+    property BeforeAcquireConnection: TDAAcquireConnectionEvent read fBeforeAcquireConnection write fBeforeAcquireConnection;
+    property AfterAcquireConnection: TDAConnectionAcquiredEvent read fAfterAcquireConnection write fAfterAcquireConnection;
+    property BeforeReleaseConnection: TDAConnectionAcquiredEvent read fBeforeReleaseConnection write fBeforeReleaseConnection;
+    property AfterReleaseConnection: TDAConnectionReleasedEvent read fAfterReleaseConnection write fAfterReleaseConnection;
+    property OnAcquireConnectionFailure: TDAAcquireConnectionFailureEvent read fOnAcquireConnectionFailure write fOnAcquireConnectionFailure;
+
+    property BeforeProcessDeltas : TDAProcessDeltasEvent read fBeforeProcessDeltas write fBeforeProcessDeltas;
+    property AfterProcessDeltas: TDAProcessDeltasEvent read fAfterProcessDeltas write fAfterProcessDeltas;
+    property OnProcessDeltasError: TDAProcessDeltasErrorEvent read fOnProcessDeltasError write fOnProcessDeltasError;
+
+    property BeforeGetDatasetSchema: TDAGetDatasetSchemaEvent read fBeforeGetDatasetSchema write fBeforeGetDatasetSchema;
+    property BeforeGetDatasetData: TDAGetDatasetDataEvent read fBeforeGetDatasetData write fBeforeGetDatasetData;
+    property AfterGetDatasetSchema: TDAGetDatasetSchemaEvent read fAfterGetDatasetSchema write fAfterGetDatasetSchema;
+    property AfterGetDatasetData: TDAGetDatasetDataEvent read fAfterGetDatasetData write fAfterGetDatasetData;
+    property OnBusinessProcessorAutoCreated: TDABusinessProcessorAutoCreatedEvent read fOnBusinessProcessorAutoCreated write fOnBusinessProcessorAutoCreated;
+    property BeforeExecuteCommand: TDABeforeExecuteCommandEvent read fBeforeExecuteCommand write fBeforeExecuteCommand;
+    property AfterExecuteCommand: TDAAfterExecuteCommandEvent read fAfterExecuteCommand write fAfterExecuteCommand;
+    property OnGetSchemaAsXMLEvent: TDAGetSchemaAsXMLEvent read fOnGetSchemaAsXML write fOnGetSchemaAsXML;
+    property ValidateDatasetAccess: TDASchemaElementAccessValidationEvent read fGetDatasetDataValidation write fGetDatasetDataValidation;
+    property ValidateCommandExecution: TDASchemaElementAccessValidationEvent read  fExecuteCommandValidation write fExecuteCommandValidation;
+    property ValidateDirectSQLAccess: TDASQLValidationEvent read fSQLValidation write fSQLValidation;
+
+    property OnUpdateDataBeginTransaction    : TDAUpdateDataTransactionEvent read fOnUpdateDataBeginTransaction write fOnUpdateDataBeginTransaction;
+    property OnUpdateDataCommitTransaction   : TDAUpdateDataTransactionEvent read fOnUpdateDataCommitTransaction write fOnUpdateDataCommitTransaction;
+    property OnUpdateDataRollBackTransaction : TDAUpdateDataTransactionEvent read fOnUpdateDataRollBackTransaction write fOnUpdateDataRollBackTransaction;
+  end;
+
+implementation
+
+uses
+  Contnrs, Variants,
+  uDARes, uDAExceptions, uDAXMLUtils, uROXMLIntf,
+  TypInfo, uDAEngine, uDAWhere;
+
+procedure CheckUTF8Decode(const aOriginalStr: Utf8String; aDecodedStr: string);
+begin
+  if (aDecodedStr = '') and (aOriginalStr <> '') then raise Exception.CreateFmt(err_UTF8DecodeError, [aOriginalStr]);
+end;
+{ DataAbstractService }
+
+procedure TDataAbstractService.Check2;
+begin
+  if not (Assigned(Connection) or AcquireConnection) then
+    raise EROException.Create('AcquireConnection is not set and there is no connection available');
+  if not Assigned(ServiceSchema) then
+    raise Exception.Create('ServiceSchema property is not assigned.');
+end;
+
+constructor TDataAbstractService.Create(aOwner : TComponent);
+begin
+  fAllowDataAccess := true;
+  fAllowSchemaAccess := true;
+  fAllowDynamicSelect := true;
+  fAllowDynamicWhere := true;
+  fAllowUpdates := true;
+  fAutoCreateBusinessProcessors := true;
+  fProcessDeltasWithoutUpdateRules := true;
+  fAcquireConnection := true;
+  fExportedDataTables := TDADataTableReferenceCollection.Create(Self);
+  fReturnUpdateFailureDelta := True;
+  fHasReducedDelta := False;
+  inherited;
+end;
+
+destructor TDataAbstractService.Destroy;
+begin
+  ServiceSchema := nil;
+  ServiceDataStreamer := nil;
+  inherited;
+  FreeAndNIL(fExportedDataTables);
+end;
+
+procedure TDataAbstractService.Notification(AComponent: TComponent; Operation: TOperation);
+var
+  lRef: TDADataTableReference;
+begin
+  inherited;
+
+  if (Operation = opRemove) then begin
+
+    if ((AComponent is TDADataTable) or (AComponent is TDataSet)) and (fExportedDataTables.Count > 0) then begin
+      lRef := fExportedDataTables.FindByDataTable(TDADataTable(aComponent));
+      if (lRef<>NIL) then lRef.DataTable := NIL;
+    end else if (AComponent = ServiceSchema) then
+      ServiceSchema := nil
+    else if (AComponent = ServiceDataStreamer) then
+      ServiceDataStreamer := nil;
+  end
+
+end;
+
+function TDataAbstractService.PackDeltas(aDeltaList: IDeltaArray): Binary;
+var
+  oldDeltaMode: Boolean;
+  i: integer;
+begin
+  Result := Binary.Create;
+  Result.CapacityIncrement := ServiceDataStreamer.BufferSize;
+  oldDeltaMode:=ServiceDataStreamer.SendReducedDelta;
+  ServiceDataStreamer.Initialize(result, aiWrite);
+  try
+    if fHasReducedDelta then ServiceDataStreamer.SendReducedDelta:=True;
+    for i := 0 to Length(aDeltaList)-1 do
+      ServiceDataStreamer.WriteDelta(aDeltaList[i]);
+  finally
+    ServiceDataStreamer.Finalize;
+    ServiceDataStreamer.SendReducedDelta:=oldDeltaMode;
+  end;
+end;
+
+function TDataAbstractService.TriggerTransactionEvent(aEvent: TDAUpdateDataTransactionEvent): boolean;
+begin
+  result := true;
+  if assigned(aEvent) then aEvent(self, result);
+end;
+
+{ IDataAbstractService: Schema Access }
+
+function TDataAbstractService.InternalGetSchema(const aFilter: Utf8String): Utf8String;
+var
+  xml: TStringStream;
+  dummyrefs: TObjectList;
+  tempSchema: TDASchema;
+
+  procedure MergeDatatablesToSchema(aList: TObjectList);
+  var i : integer;
+      ref : TDADataset;
+      dt : IDADataset;
+  begin
+    for i := 0 to fExportedDataTables.Count-1 do
+      if fExportedDataTables[i].IsValidReference then begin
+        dt := fExportedDataTables[i].Dataset;
+
+        ref := tempSchema.Datasets.Add;
+        ref.Name := dt.LogicalName;
+        ref.Fields.AssignFieldCollection(dt.Fields);
+        ref.Params.AssignParamCollection(dt.Params);
+
+        aList.Add(ref);
+      end;
+  end;
+
+begin
+  tempSchema := ServiceSchema;
+  if not Assigned(tempSchema)  and (fExportedDataTables.Count<>0) then
+    tempSchema := TDASchema.Create(nil);
+
+  if not Assigned(tempSchema) then
+    raise Exception.Create('ServiceSchema property is not assigned and no data tables are exported.');
+
+  dummyrefs := nil;
+  try
+    // New: merges the data tables references by the service
+    if (fExportedDataTables.Count>0) then begin
+      dummyrefs := TObjectList.Create(true);;
+      MergeDatatablesToSchema(dummyrefs);
+    end;
+
+    // Returns the schema
+    xml := TStringStream.Create('');
+    try
+      tempSchema.SaveToStream(xml);
+
+      result := UTF8Encode(xml.DataString);
+
+      if Assigned(fOnGetSchemaAsXML) then fOnGetSchemaAsXML(Self, result);
+    finally
+      xml.Free;
+    end;
+
+  finally
+    FreeAndNil(dummyrefs); // automatically removes the datatables from the schema again
+    if tempSchema <> ServiceSchema then tempSchema.Free;
+  end;
+end;
+
+
+procedure TDataAbstractService.InternalStartTransaction;
+begin
+  try
+    Connection.BeginTransaction;
+  except
+    ReleaseConnection;
+    Connection.BeginTransaction;
+  end;
+end;
+
+procedure TDataAbstractService.InternalUpdateData(aDeltaList: IDeltaArray);
+var
+  lProcessedDeltas: TStringList;
+  lDeltaStructs: TDADeltaStructList;
+  lStruct: TDADeltaStruct;
+  lDs: TDADataset;
+  lDoRaise: boolean;
+  i,j: integer;
+  modes: TDADeltasModes;
+  oldDeltaMode: Boolean;
+begin
+  fHasReducedDelta := False;
+
+  lDeltaStructs := TDADeltaStructList.Create;
+  try
+
+    try
+      modes:= UnpackDeltas(aDeltaList, lDeltaStructs);
+      if modes = [] then exit;
+
+      if dumStandard in modes then begin
+        Check;
+        if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then InternalStartTransaction;
+      end;
+      if Assigned(fBeforeProcessDeltas) then fBeforeProcessDeltas(Self, lDeltaStructs);
+
+      for i := 0 to lDeltaStructs.Count-1 do begin
+        if ServiceSchema <> nil then
+          lDs := ServiceSchema.FindDataset(lDeltaStructs[i].Delta.LogicalName)
+        else
+          lDs := nil;
+        if lDs <> nil then begin
+          if not lDs.IsPublic then
+            raise EDAException.Create(lDs.Name+' is not accessible');
+          if lDs.ReadOnly then
+            raise EDAException.Create(lDs.Name+' is read-only');
+        end;
+      end;
+      if dumExported in modes then
+       // Processes the delta for exported tables (BP=nil)
+        for i := 0 to lDeltaStructs.Count-1 do begin
+          if lDeltaStructs[i].BusinessProcessor = nil then
+            ExportedDataTables_MergeDelta(lDeltaStructs[i].Delta);
+        end;
+      if dumStandard in modes then begin
+        if (ServiceSchema.UpdateRules.Count = 0) and ProcessDeltasWithoutUpdateRules then begin
+
+          // Processes them in order, from first to last delta sent
+          for i := 0 to lDeltaStructs.Count-1 do
+           if lDeltaStructs[i].BusinessProcessor <> nil then begin
+             oldDeltaMode:=lDeltaStructs[i].BusinessProcessor.HasReducedDelta;
+             try
+               lDeltaStructs[i].BusinessProcessor.HasReducedDelta:=fHasReducedDelta;
+               // TODO: Handle GetConnectionForObject() for 'Rosetta', UNIONS and JOINS
+               lDeltaStructs[i].BusinessProcessor.ProcessDelta(GetConnectionForObject(lDeltaStructs[i].BusinessProcessor.ReferencedDataset), lDeltaStructs[i].Delta, AllChanges, lDeltaStructs[i]);
+             finally
+               lDeltaStructs[i].BusinessProcessor.HasReducedDelta:=oldDeltaMode;
+             end;
+
+             with lDeltaStructs[i] do
+               for j := 0 to (DetailDeltas.Count-1) do
+                 BusinessProcessor.SynchronizeAutoIncs(Delta, DetailDeltas[j], RelationShips[j]);
+           end;
+        end
+        else begin
+          lProcessedDeltas := TStringList.Create;
+          try
+
+            for i := 0 to (ServiceSchema.UpdateRules.Count-1) do begin
+              // Processes them in the order defined in the schema
+              lStruct := lDeltaStructs.FindStruct(ServiceSchema.UpdateRules[i].DatasetName);
+              if assigned(lStruct) then begin
+                if lStruct.BusinessProcessor = nil then Continue;
+                // Adds the dataset name to the list of processed deltas. Those that don't have update rules will be processed later
+                lProcessedDeltas.Add(lStruct.Delta.LogicalName);
+
+                // Processes the delta
+                oldDeltaMode:=lStruct.BusinessProcessor.HasReducedDelta;
+                try
+                  lStruct.BusinessProcessor.HasReducedDelta:=fHasReducedDelta;
+                  // TODO: Handle GetConnectionForObject() for 'Rosetta', UNIONS and JOINS
+                  lStruct.BusinessProcessor.ProcessDelta(GetConnectionForObject(lStruct.BusinessProcessor.ReferencedDataset), lStruct.Delta, ServiceSchema.UpdateRules[i].ChangeTypes,lStruct);
+                finally
+                  lStruct.BusinessProcessor.HasReducedDelta:=oldDeltaMode;
+                end;
+
+                if (ctInsert in ServiceSchema.UpdateRules[i].ChangeTypes) then begin
+                  for j := 0 to (lStruct.DetailDeltas.Count-1) do
+                    lStruct.BusinessProcessor.SynchronizeAutoIncs(lStruct.Delta, lStruct.DetailDeltas[j], lStruct.RelationShips[j]);
+                end;
+              end;
+            end;
+
+            // Processes the deltas for which update rules were not defined
+            if (ProcessDeltasWithoutUpdateRules) then begin
+              for i := 0 to lDeltaStructs.Count-1 do begin
+                // Skips if already processed
+                if (lProcessedDeltas.IndexOf(lDeltaStructs[i].Delta.LogicalName)>=0) then Continue;
+
+                if lDeltaStructs[i].BusinessProcessor <> nil then begin
+                  oldDeltaMode:=lDeltaStructs[i].BusinessProcessor.HasReducedDelta;
+                  try
+                    lDeltaStructs[i].BusinessProcessor.HasReducedDelta:=fHasReducedDelta;
+                    lDeltaStructs[i].BusinessProcessor.ProcessDelta(GetConnectionForObject(lDeltaStructs[i].BusinessProcessor.ReferencedDataset), lDeltaStructs[i].Delta, AllChanges,lDeltaStructs[i]);
+                  finally
+                    lDeltaStructs[i].BusinessProcessor.HasReducedDelta:=oldDeltaMode;
+                  end;
+
+                  with lDeltaStructs[i] do
+                    for j := 0 to (DetailDeltas.Count-1) do
+                      BusinessProcessor.SynchronizeAutoIncs(Delta, DetailDeltas[j], RelationShips[j]);
+                end;
+              end;
+            end;
+
+          finally
+            lProcessedDeltas.Free;
+          end;
+        end;
+      end;
+
+      if Assigned(fAfterProcessDeltas) then fAfterProcessDeltas(Self, lDeltaStructs);
+
+      if dumStandard in modes then
+        if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataCommitTransaction) then Connection.CommitTransaction;
+
+      // Check for unhandled changes
+      for i := 0 to lDeltaStructs.Count-1 do begin
+        for j := 0 to lDeltaStructs[i].Delta.Count -1 do begin
+          if lDeltaStructs[i].Delta[j].Status = csPending then begin
+            lDeltaStructs[i].Delta[j].Status := csFailed;
+            lDeltaStructs[i].Delta[j].Message := 'Change was not processed';
+          end;
+        end;
+      end;
+    except
+      on E:Exception do begin
+        lDoRaise := true;
+        try
+          if Assigned(fOnProcessDeltasError) then fOnProcessDeltasError(Self, lDeltaStructs, E, lDoRaise);
+        finally
+          if dumStandard in modes then
+            if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction) then Connection.RollbackTransaction;
+        end;
+        if lDoRaise then raise;
+      end;
+    end;
+  finally
+    lDeltaStructs.Free;
+  end;
+end;
+
+function TDataAbstractService.GetTableSchema(const aTableNameArray: StringArray): Utf8String;
+
+  function CreateDatasetFromIDADataset(aRef: IDADataset): TDADataset;
+  begin
+    Result := TDADataset.Create(nil);
+    Result.Name := aRef.LogicalName;
+    Result.Fields.AssignFieldCollection(aRef.Fields);
+    Result.Params.AssignParamCollection(aRef.Params);
+  end;
+
+var
+  lxml: IXMLDocument;
+  i: integer;
+  lDataSet: TDADataset;
+  lDataTableRef: TDADataTableReference;
+  lNeedDeleteDataset: Boolean;
+  lTableName: string;
+begin
+  if not AllowSchemaAccess then
+    raise Exception.Create('Schema access has been disabled (GetTableSchema)');
+
+  if not Assigned(ServiceSchema) and (fExportedDataTables.Count=0) then
+    raise Exception.Create('ServiceSchema property is not assigned and no data tables are exported.');
+
+  // Returns the schema
+  lxml := NewROXmlDocument;
+  lxml.New('DataTables');
+  try
+    for i := 0 to aTableNameArray.Count - 1 do begin
+      lTableName := UTF8ToString(aTableNameArray[i]);
+      CheckUTF8Decode(aTableNameArray[i], lTableName);
+      lDataSet := nil;
+      if (fExportedDataTables.Count > 0) then begin
+        lDataTableRef := fExportedDataTables.FindByName(lTableName);
+        if lDataTableRef <> nil then lDataSet := CreateDatasetFromIDADataset(lDataTableRef.Dataset);
+      end;
+      lNeedDeleteDataset := lDataSet <> nil;
+      if not lNeedDeleteDataset and (ServiceSchema <> nil) then
+         lDataSet := ServiceSchema.Datasets.DatasetByName(lTableName);
+      try
+        if lDataSet <> nil then begin
+          // if Assigned(fBeforeGetDatasetSchema) then fBeforeGetDatasetSchema(Self, lDataset as IDADataset);
+          SaveObjectToXMLNode(lDataSet, lxml.DocumentNode.Add('SchemaDataTable'), [], [], False);
+          //if Assigned(FAfterGetDatasetSchema) then FAfterGetDatasetSchema(Self, lDataset as IDADataset);
+          if not (lDataSet.IsPublic) then
+            raise EDAException.Create(lDataset.Name +' is not accessible');
+        end;
+      finally
+        if lNeedDeleteDataset then lDataSet.Free;
+      end;
+    end;
+    Result := UTF8Encode(lxml.DocumentNode.XML);
+  finally
+    lxml := nil;
+  end;
+end;
+
+function TDataAbstractService.InternalExecuteCommandEx(const aCommandName: String;
+  const aInputParameters: DataParameterArray; out aOutputParameters: DataParameterArray):integer;
+var
+  j: integer;
+  lParamNames: array of string;
+  lParamValues: array of Variant;
+  lAllow: boolean;
+  lCommand: IDASQLCommand;
+  lCommandSchema: TDASQLCommand;
+  lConnection: IDAConnection;
+begin
+  SetLength(lParamNames, aInputParameters.Count);
+  SetLength(lParamValues, aInputParameters.Count);
+  for j := 0 to (aInputParameters.Count-1) do begin
+    lParamNames[j] := UTF8ToString(aInputParameters[j].Name);
+    CheckUTF8Decode(aInputParameters[j].Name,lParamNames[j]);
+    lParamValues[j] := aInputParameters[j].Value;
+  end;
+
+  lCommandSchema := ServiceSchema.Commands.SQLCommandByName(aCommandName);
+  if assigned(lCommandSchema) and not (lCommandSchema.IsPublic) then
+    raise EDAException.Create(lCommandSchema.Name +' is not accessible');
+
+  lAllow := true;
+  lConnection := GetConnectionForObject(aCommandName);
+  if assigned(fExecuteCommandValidation) then fExecuteCommandValidation(self, lConnection, aCommandName, lParamNames, lParamValues, ServiceSchema, lAllow);
+  if not lAllow then raise EDADatasetNotAccessible.CreateFmt(err_CommandNotAccessible, [aCommandName]);
+
+  if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then begin
+    try
+      lConnection.BeginTransaction;
+    except
+      ReleaseConnection;
+      lConnection := GetConnectionForObject(aCommandName);
+      lConnection.BeginTransaction;
+    end;
+  end;
+  try
+
+    lCommand := ServiceSchema.NewCommand(lConnection, aCommandName, lParamNames, lParamValues, false);
+    if Assigned(fBeforeExecutecommand) then fBeforeExecuteCommand(self, lCommand);
+    result := lCommand.Execute;
+    if assigned(fAfterExecutecommand) then fAfterExecuteCommand(self, lCommand, Result);
+
+    aOutputParameters := DataParameterArray.Create;
+    for j := 0 to lCommand.Params.Count -1 do begin
+      if (lCommand.Params[j].ParamType <> daptUnknown) and (lCommand.Params[j].ParamType <> daptInput) then begin
+        with aOutputParameters.Add do begin
+          Name := AnsiToUtf8(lCommand.Params[j].Name);
+          Value := lCommand.Params[j].Value;
+        end;
+      end;
+    end;
+    if lConnection.InTransaction and TriggerTransactionEvent(fOnUpdateDataCommitTransaction) then lConnection.CommitTransaction;
+  except
+    if lConnection.InTransaction and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction) then lConnection.RollbackTransaction;
+    raise;
+  end;
+end;
+
+procedure TDataAbstractService.InternalGetData(
+  const aTableNameArray: StringArray;
+  const aTableRequestInfoArray: TableRequestInfoArray;
+  aStreamer: TDADataStreamer);
+var
+  i, j, x, n,k: integer;
+  lParamNames: array of string;
+  lParamValues: array of Variant;
+  lOptions: TDAWriteOptions;
+  lAllow: boolean;
+  lDataSet: IDADataSet;
+  lEditableDataset: IDAEditableDataset;
+  lHasTransaction: boolean;
+  lMaxRecords: integer;
+  lDataTableRef: TDADataTableReference;
+  lDynSelectFields: array of string;
+  lDynSelectFields2: array of string;
+  lWhereClause, lProcessedWhereClause: UnicodeString;
+ // lConnection: IDAConnection;
+  lTableName: String;
+  lDataTable: TDADataset;
+  lUnionTable: TDAUnionDataTable;
+  lAppendData: TDADataForAppend;
+  lMapping: TDAColumnMappingCollection;
+  lFilter: string;
+begin
+  if not assigned(aTableNameArray) or (aTableNameArray.Count = 0) then exit;
+
+  if assigned(aTableRequestInfoArray) and (aTableNameArray.Count <> aTableRequestInfoArray.Count) then
+    raise Exception.Create('Number of items passed to aTableNameArray and aTableRequestInfoArray do not match.');
+
+  lHasTransaction := false;
+  try
+
+      for i := 0 to (aTableNameArray.Count-1) do begin
+
+        lTableName := UTF8ToString(aTableNameArray[i]);
+        CheckUTF8Decode(aTableNameArray[i], lTableName);
+        if ServiceSchema <> nil then lDataTable := ServiceSchema.FindDataset(lTableName) else lDataTable:=nil;
+        lOptions := [woRows];
+        lMaxRecords := -1;
+        SetLength(lDynSelectFields,0);
+        lWhereClause := '';
+
+        if assigned(aTableRequestInfoArray) and assigned(aTableRequestInfoArray[i]) then with aTableRequestInfoArray[i] do begin
+          SetLength(lParamNames, Parameters.Count);
+          SetLength(lParamValues, Parameters.Count);
+          for j := 0 to (Parameters.Count-1) do begin
+            lParamNames[j] := UTF8ToString(Parameters[j].Name);
+            CheckUTF8Decode(Parameters[j].Name, lParamNames[j]);
+            lParamValues[j] := Parameters[j].Value;
+          end;
+
+          if IncludeSchema then lOptions := lOptions+[woSchema];
+          lMaxRecords := MaxRecords;
+
+          // v5  TableRequestInfo
+          if aTableRequestInfoArray[i] is TableRequestInfoV5 then
+            with TableRequestInfoV5(aTableRequestInfoArray[i]) do begin
+              if assigned(DynamicSelectFieldNames) then begin
+                if AllowDynamicSelect then begin
+                  SetLength(lDynSelectFields,DynamicSelectFieldNames.Count);
+                  for j := 0 to DynamicSelectFieldNames.Count-1 do begin
+                    CheckUTF8Decode(DynamicSelectFieldNames[j], UTF8ToString(DynamicSelectFieldNames[j]));
+                    lDynSelectFields[j] := Trim(UTF8ToString(DynamicSelectFieldNames[j]));
+                  end;
+                  if DynamicSelectFieldNames.Count > 0 then lOptions := lOptions+[woSchema];
+                end else begin
+                  raise EDAException.Create('DynamicSelect support has been disabled (GetData)');
+                end;
+              end;
+              if assigned(TableRequestInfoV5(aTableRequestInfoArray[i]).WhereClause) then begin
+                if AllowDynamicWhere then
+                  lWhereClause := WhereClause.XML
+                else
+                  raise EDAException.Create('DynamicWhere support has been disabled (GetData)');
+              end;
+          end;
+        end;
+
+        if (fExportedDataTables.Count > 0) and Assigned(fExportedDataTables.FindByName(lTableName)) then begin
+         // lConnection := nil;
+        end
+        else begin
+          Check2;
+          //lConnection := GetConnectionForObject(aTableNameArray[i]);
+        end;
+
+        lAllow := true;
+        if assigned(fGetDatasetDataValidation) then fGetDatasetDataValidation(self, {l}Connection, lTableName, lParamNames, lParamValues, ServiceSchema, lAllow);
+        if not lAllow then raise EDADatasetNotAccessible.CreateFmt(err_DatasetNotAccessible, [lTableName]);
+
+        lDataSet := nil;
+        if (fExportedDataTables.Count > 0) then begin
+          lDataTableRef := fExportedDataTables.FindByName(lTableName);
+          if assigned(lDataTableRef) then lDataSet := lDataTableRef.Dataset;
+        end;
+
+        if not assigned(lDataSet) then begin
+
+          // Create transaction, if needed
+          if not lHasTransaction then begin
+            if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then begin
+              InternalStartTransaction;
+              lHasTransaction := true;
+            end;
+          end;
+
+          lDataTable := ServiceSchema.FindDataset(lTableName);
+
+          { Unions }
+          if lDataTable is TDAUnionDataTable then begin
+
+            if (aTableRequestInfoArray <> nil) then begin
+              lFilter:=UTF8ToString(aTableRequestInfoArray[i].UserFilter);
+              CheckUTF8Decode(aTableRequestInfoArray[i].UserFilter,lFilter);
+              if (Trim(lFilter)<>'') then
+                raise EDAException.Create('Passing of clear text WHERE clauses is not supported for UNIONS (GetData)');
+            end;
+            lUnionTable := lDataTable as TDAUnionDataTable;
+            lAppendData := aStreamer.BeginWriteDataset({Source}nil, {Schema}lDataTable, lOptions, lMaxRecords, lDynSelectFields);
+            if not (woRows in lOptions) then Continue;
+
+            for x := 0 to lUnionTable.SourceTables.Count - 1 do begin
+              lTableName := lUnionTable.SourceTables[x].Name;
+
+              // Check is source table exists in schema.
+              if (not Assigned(ServiceSchema.FindDataset(lTableName))) then
+                raise EDAException.CreateFmt('Source table %s doesn''t exist in schema.', [lTableName]);
+
+              // Do column remapping for DynFields names
+              lMapping := lUnionTable.SourceTables[x].ColumnMappings;
+              SetLength(lDynSelectFields2, Length(lDynSelectFields));
+              for n := Low(lDynSelectFields) to High(lDynSelectFields) do begin
+                if (lDynSelectFields[n]) = def_SourceTableFieldName then
+                  lDynSelectFields2[n] := lDynSelectFields[n]
+                else
+                  lDynSelectFields2[n] := lMapping.MappingByDatasetField(lDynSelectFields[n]).TableField;
+              end;
+
+              // try to predict do we need dynamic where on this source table or not.
+              lProcessedWhereClause := lWhereClause;
+              if not ProcessDAWhereForUnions(x, lProcessedWhereClause) then Continue;
+
+              // remap Union name to UnionItem.Name
+              lProcessedWhereClause := Where_RemapTableNamesForUnions(lProcessedWhereClause,lTableName,lTableName);
+
+              lDataSet := ServiceSchema.NewUnionItemDataset(
+                GetConnectionForObject(lTableName),
+                lTableName,
+                lParamNames,
+                lParamValues,
+                lDynSelectFields2,
+                lProcessedWhereClause,
+                lMapping
+              );
+
+              aStreamer.WriteDatasetData(lDataSet, lAppendData, x);
+              // Keeping track of maxrecords
+              if ((lMaxRecords <> -1) and (lAppendData.RecordCount >= lMaxRecords)) then Break;
+            end;
+            aStreamer.EndWriteDataset(lAppendData);
+          end
+          { Joins }
+          else if lDataTable is TDAJoinDataTable then begin
+            raise EDAException.Create('TODO: Joined Data Tables are not implemented in this release, yet.');
+          end
+          { Plain Data Tables }
+          else begin
+
+            lDataSet := ServiceSchema.NewDataset(GetConnectionForObject(lTableName), lTableName, lParamNames, lParamValues, lDynSelectFields, lWhereClause, False);
+
+            if (woSchema in lOptions) and Assigned(fBeforeGetDatasetSchema) then fBeforeGetDatasetSchema(self, lDataset);
+            if (woRows in lOptions) and Assigned(fBeforeGetDatasetData) then fBeforeGetDatasetData(self, lDataset, (woSchema in lOptions), lMaxRecords);
+
+            if (aTableRequestInfoArray <> nil) then begin
+              lFilter:=UTF8ToString(aTableRequestInfoArray[i].UserFilter);
+              CheckUTF8Decode(aTableRequestInfoArray[i].UserFilter,lFilter);
+              if (Trim(lFilter)<>'') then begin
+                if not AllowWhereSQL then raise Exception.Create('Passing of clear text WHERE clauses has been disabled (GetData)');
+                lDataSet.Where.AddText(lFilter);
+                for k := 0 to High(lParamValues) do
+                  lDataSet.ParamByName(lParamNames[k]).Value := lParamValues[k];
+              end;
+            end;
+            lDataSet.Open;
+
+            aStreamer.WriteDataset(lDataset, lOptions, lMaxRecords,lDynSelectFields);
+
+            if (woRows in lOptions) and Assigned(fAfterGetDatasetData) then fAfterGetDatasetData(self, lDataset, (woSchema in lOptions), lMaxRecords);
+            if (woSchema in lOptions) and Assigned(fAfterGetDatasetSchema) then fAfterGetDatasetSchema(self, lDataset);
+
+          end;
+
+        end
+        { ExportedDataTables }
+        else begin
+          lFilter:=UTF8ToString(aTableRequestInfoArray[i].UserFilter);
+          CheckUTF8Decode(aTableRequestInfoArray[i].UserFilter,lFilter);
+          if (Trim(lFilter)<>'') then
+            raise EDAException.Create('WHERE clauses are not supported on data from ExportedDataTables.');
+
+          if (woSchema in lOptions) and Assigned(fBeforeGetDatasetSchema) then fBeforeGetDatasetSchema(self, lDataset);
+          if (woRows in lOptions) and Assigned(fBeforeGetDatasetData) then fBeforeGetDatasetData(self, lDataset, (woSchema in lOptions), lMaxRecords);
+
+          if lDataSet.Active and (lMaxRecords = -1) then begin
+            if lDataSet.QueryInterface(IDAEditableDataset,lEditableDataset) = s_ok then
+              lEditableDataset.First
+            else
+              lDataSet.Close;
+          end;
+
+          if not lDataSet.Active then lDataSet.Open;
+          aStreamer.WriteDataset(lDataset, lOptions, lMaxRecords,lDynSelectFields);
+
+          if (woRows in lOptions) and Assigned(fAfterGetDatasetData) then fAfterGetDatasetData(self, lDataset, (woSchema in lOptions), lMaxRecords);
+          if (woSchema in lOptions) and Assigned(fAfterGetDatasetSchema) then fAfterGetDatasetSchema(self, lDataset);
+        end;
+
+        if assigned(lDataTable) and not (lDataTable.IsPublic) then
+          raise EDAException.Create(lDataTable.Name +' is not accessible');
+
+        lDataSet := nil;
+      end; { for }
+
+
+    if lHasTransaction and Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataCommitTransaction) then Connection.CommitTransaction;
+  except
+    if lHasTransaction and Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction) then Connection.RollbackTransaction;
+    raise;
+  end;
+end;
+
+function TDataAbstractService.GetSchema(const aFilter: Utf8String): Utf8String;
+begin
+  if not AllowSchemaAccess then
+    raise Exception.Create('Schema access has been disabled (GetSchema)');
+
+  Result := InternalGetSchema(aFilter);
+end;
+
+function TDataAbstractService.GetCommandSchema(const aCommandNameArray: StringArray): Utf8String;
+var
+  lxml: IXMLDocument;
+  i: integer;
+  lSQLCommand: TDASQLCommand;
+  lCommand: string;
+begin
+  if not AllowSchemaAccess then
+    raise Exception.Create('Schema access has been disabled (GetCommandSchema)');
+
+  if not Assigned(ServiceSchema) then
+    raise Exception.Create('ServiceSchema property is not assigned.');
+
+  // Returns the schema
+  lxml := NewROXmlDocument;
+  lxml.New('Commands');
+  try
+    for i := 0 to aCommandNameArray.Count - 1 do begin
+      lCommand:=UTF8ToString(aCommandNameArray[i]);
+      CheckUTF8Decode(aCommandNameArray[i], lCommand);
+      lSQLCommand:=ServiceSchema.Commands.SQLCommandByName(lCommand);
+      if lSQLCommand <> nil then begin
+        if not lSQLCommand.IsPublic then
+          raise EDAException.Create(lSqlCommand.Name +' is not accessible');
+        SaveObjectToXMLNode(lSQLCommand, lxml.DocumentNode.Add('SchemaCommand'), [], [], False);
+      end;
+    end;
+    result := UTF8Encode(lxml.DocumentNode.XML);
+  finally
+    lxml := nil;
+  end;
+end;
+
+{ IDataAbstractService: Data Access }
+
+function TDataAbstractService.GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray): Binary;
+begin
+  if not AllowDataAccess then
+    raise Exception.Create('Data access has been disabled (GetData)');
+
+  result := nil;
+  if not assigned(aTableNameArray) or (aTableNameArray.Count = 0) then exit;
+
+  if assigned(aTableRequestInfoArray) and (aTableNameArray.Count <> aTableRequestInfoArray.Count) then
+    raise Exception.Create('Number of items passed to aTableNameArray and aTableRequestInfoArray do not match.');
+
+  Check(True);
+
+  result := Binary.Create;
+  Result.CapacityIncrement := ServiceDataStreamer.BufferSize;
+  try
+    ServiceDataStreamer.Initialize(result, aiWrite);
+    try
+      InternalGetData(aTableNameArray,aTableRequestInfoArray, ServiceDataStreamer);
+    finally
+      ServiceDataStreamer.Finalize();
+    end;
+  except
+    FreeAndNIL(result);
+    raise;
+  end;
+end;
+
+//TODO: needs cleaning!
+function TDataAbstractService.UnpackDeltas(aDeltaList: IDeltaArray; DeltaStructList: TDADeltaStructList): TDADeltasModes;
+var
+  i, j: integer;
+  lDeltaName: string;
+  lBizProc: TDABusinessProcessor;
+  lDetails : TDADatasetRelationshipList;
+  lFound: boolean;
+  lStruct : TDADeltaStruct;
+  ltabRef: TDADataTableReference;
+begin
+  result := [];
+  if (Length(aDeltaList) = 0) then Exit;
+  for i := 0 to Length(aDeltaList) - 1 do begin
+    lDeltaName := aDeltaList[i].LogicalName;
+    if (ExportedDataTables.Count >0) then begin
+      ltabRef := ExportedDataTables.FindByName(lDeltaName);
+      if Assigned(ltabRef) then begin
+        // for ExportedDataTables , BP=nil
+        DeltaStructList.Add(aDeltaList[i], nil);
+        Result:=Result+[dumExported];
+        Continue;
+      end;
+    end;
+    lFound := false;
+    { Tries to locate a user-defined business processor }
+    for j := 0 to (Self.ComponentCount - 1) do begin
+      if (Self.Components[j] is TDABusinessProcessor) then begin
+        lBizProc := TDABusinessProcessor(Self.Components[j]);
+        if SameText(lBizProc.ReferencedDataset, lDeltaName) and (lBizProc.Schema = fServiceSchema) then begin
+          DeltaStructList.Add(aDeltaList[i], lBizProc);
+          if fHasReducedDelta then begin
+            if (lBizProc.InsertCommandName <> '') or
+               (lBizProc.DeleteCommandName <> '') or
+               (lBizProc.UpdateCommandName <> '') or
+               ([poAutoGenerateInsert,poAutoGenerateUpdate,poAutoGenerateDelete]*lBizProc.ProcessorOptions <>[poAutoGenerateInsert,poAutoGenerateUpdate,poAutoGenerateDelete]) then
+             raise Exception.Create('SendReducedDelta option is incompatible with '+lBizProc.Name+' settings');
+          end;
+          lFound := true;
+          Break;
+        end;
+      end;
+    end;
+
+    { Either creates one or aborts raising an exception }
+    if not lFound then begin
+      if not AutoCreateBusinessProcessors then
+        raise Exception.CreateFmt(err_DARDMCannotFindProxessorForDelta, [lDeltaName]);
+
+      //ToDo: this will never get freed, until the DM frees?
+      lBizProc := TDABusinessProcessor.Create(self);
+      lBizProc.ReferencedDataset := lDeltaName;
+      lBizProc.Schema := ServiceSchema;
+      lBizProc.RaiseExceptionAtError := not fReturnUpdateFailureDelta;
+      if Assigned(fOnBusinessProcessorAutoCreated) then fOnBusinessProcessorAutoCreated(Self, lBizProc);
+
+      DeltaStructList.Add(aDeltaList[i], lBizProc);
+    end;
+
+    Result:=Result+[dumStandard];
+  end;
+  fHasReducedDelta := ServiceDataStreamer.HasReducedDelta;
+  if not (dumStandard in  Result) then  exit; // nothing to process
+  Check;
+  { Sets the master/detail relationships }
+  if (ServiceSchema.RelationShips.Count>0) then begin
+
+    lDetails := TDADatasetRelationshipList.Create;
+    try
+      for i := 0 to DeltaStructList.Count-1 do begin
+        ServiceSchema.RelationShips.GetDetails(DeltaStructList[i].BusinessProcessor.ReferencedDataset, lDetails);
+        if (lDetails.Count=0) then Continue;
+
+        { Prepares an array with the references to the detail deltas that will be used later on to adjust
+          autoincs, etc. }
+        for j := 0 to lDetails.Count-1 do begin
+          lStruct := DeltaStructList.FindStruct(lDetails[j].DetailDatasetName);
+          if assigned(lStruct) then begin
+            DeltaStructList[i].DetailDeltas.Add(lStruct.Delta);
+            DeltaStructList[i].RelationShips.Add(lDetails[j]);
+          end;
+        end;
+      end;
+    finally
+      lDetails.Free;
+    end;
+
+  end;
+end;
+
+function TDataAbstractService.UpdateData(const aDelta: Binary): Binary;
+var
+  aDeltaList: IDeltaArray;
+begin
+  // WARNING: any changes should be duplicated into TDALocalDataAdapter.DoUpdateData
+  if not AllowDataAccess then
+    raise Exception.Create('Data access has been disabled (UpdateData)');
+
+  if not AllowUpdates then
+    raise Exception.Create('Data updates have been disabled (UpdateData)');
+
+  fHasReducedDelta := False;
+  aDeltaList := ReadDeltaFromStream(aDelta);
+  try
+    InternalUpdateData(aDeltaList);
+    result := PackDeltas(aDeltaList);
+  finally
+    SetLength(aDeltaList,0);
+  end;
+end;
+
+function TDataAbstractService.ExecuteCommand(const aCommandName: Utf8String; const aParameterArray: DataParameterArray): Integer;
+var
+  aOutputParameters: DataParameterArray;
+begin
+  Result := ExecuteCommandEx(aCommandName,aParameterArray, aOutputParameters);
+  aOutputParameters.Free;
+end;
+
+{ IDataAbstractService: Direct SQL Access }
+
+function TDataAbstractService.SQLGetDataEx(const aSQLText: Utf8String;
+  const aIncludeSchema: Boolean; const aMaxRecords: Integer;
+  const aDynamicWhereXML: Widestring): Binary;
+var
+  lOptions: TDAWriteOptions;
+  lDataSet: IDADataSet;
+  lAllow: boolean;
+  lSQLText: string;
+begin
+  if not AllowDataAccess then
+    raise Exception.Create('Data access has been disabled (SQLGetData)');
+
+  if not AllowExecuteSQL then
+    raise Exception.Create('Execution of SQL has been disabled (SQLGetData)');
+
+  if assigned(fHETConnection) then
+    raise Exception.Create('Execution of SQL isnot supported for HET Connections');
+
+  result := nil;
+  lSQLText := UTF8ToString(aSQLText);
+  CheckUTF8Decode(aSQLText,lSQLText);
+  if lSQLText = '' then exit;
+
+  Check();
+
+  lAllow := true;
+  if assigned(fSQLValidation) then fSQLValidation(self, Connection, lSQLText, [], [], lAllow);
+  if not lAllow then raise EDADatasetNotAccessible.Create(err_SQLNotPermitted);
+
+  result := Binary.Create;
+  Result.CapacityIncrement := ServiceDataStreamer.BufferSize;
+  try
+    if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then InternalStartTransaction;
+    try
+      ServiceDataStreamer.Initialize(result, aiWrite);
+      try
+
+        lOptions := [woRows];
+        if aIncludeSchema then lOptions := lOptions+[woSchema];
+
+        lDataSet := Connection.NewDataset(lSQLText,'SQLResult');
+        try
+          if aDynamicWhereXML <> '' then lDataSet.DynamicWhere.Expression := lDataSet.DynamicWhere.XMLToExpression(aDynamicWhereXML);
+          if (woSchema in lOptions) and Assigned(fBeforeGetDatasetSchema) then fBeforeGetDatasetSchema(self, lDataset);
+          if (woRows in lOptions) and Assigned(fBeforeGetDatasetData) then fBeforeGetDatasetData(self, lDataset, (woSchema in lOptions), aMaxRecords);
+
+          lDataSet.Open();
+
+          ServiceDataStreamer.WriteDataset(lDataset, lOptions, aMaxRecords);
+
+          if (woRows in lOptions) and Assigned(fAfterGetDatasetData) then fAfterGetDatasetData(self, lDataset, (woSchema in lOptions), aMaxRecords);
+          if (woSchema in lOptions) and Assigned(fAfterGetDatasetSchema) then fAfterGetDatasetSchema(self, lDataset);
+
+        finally
+          lDataSet := nil;
+        end;
+
+      finally
+        ServiceDataStreamer.Finalize();
+      end;
+
+      if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataCommitTransaction) then Connection.CommitTransaction;
+    except
+      if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction) then Connection.RollbackTransaction;
+      raise;
+    end;
+
+  except
+    FreeAndNIL(result);
+    raise;
+  end;
+
+end;
+
+function TDataAbstractService.SQLExecuteCommandEx(const aSQLText: Utf8String; const aDynamicWhereXML: Widestring): Integer;
+var
+  lAllow: boolean;
+  lSQLText: string;
+begin
+  if not AllowDataAccess then
+    raise Exception.Create('Data access has been disabled (SQLExecuteCommand)');
+
+  if not AllowExecuteSQL then
+    raise Exception.Create('Execution of SQL has been disabled (SQLExecuteCommand)');
+
+  if assigned(fHETConnection) then
+    raise Exception.Create('Execution of SQL isnot supported for HET Connections');
+
+  Check();
+  lSQLText := UTF8ToString(aSQLText);
+  CheckUTF8Decode(aSQLText,lSQLText);
+  lAllow := true;
+  if assigned(fSQLValidation) then fSQLValidation(self, Connection, lSQLText, [], [], lAllow);
+  if not lAllow then raise EDADatasetNotAccessible.CreateFmt(err_SQLNotPermitted, []);
+
+  if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then InternalStartTransaction;
+  try
+    with Connection.NewCommand(lSQLText, stSQL) do begin
+      if aDynamicWhereXML <> '' then DynamicWhere.Expression := DynamicWhere.XMLToExpression(aDynamicWhereXML);
+      result := Execute;
+    end;
+    if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataCommitTransaction) then Connection.CommitTransaction;
+  except
+    if Connection.InTransaction and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction) then Connection.RollbackTransaction;
+    raise;
+  end;
+end;
+
+{ Properties }
+
+procedure TDataAbstractService.SetExportedDataTables(const Value: TDADataTableReferenceCollection);
+begin
+  fExportedDataTables.Assign(Value);
+end;
+
+procedure TDataAbstractService.SetServiceDataStreamer(const Value: TDADataStreamer);
+begin
+  if fServiceDataStreamer <> Value then begin
+    if (fServiceDataStreamer <> nil) then fServiceDataStreamer.RORemoveFreeNotification(Self);
+    fServiceDataStreamer := Value;
+    if (fServiceDataStreamer <> nil) then fServiceDataStreamer.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TDataAbstractService.SetServiceSchema(const Value: TDASchema);
+begin
+  if fServiceSchema <> Value then begin
+    if assigned(fServiceSchema) then fServiceSchema.RORemoveFreeNotification(self);
+    fServiceSchema := Value;
+    if assigned(fServiceSchema) then fServiceSchema.ROFreeNotification(self);
+  end;
+end;
+
+{ Connections }
+
+function TDataAbstractService.GetConnection: IDAConnection;
+var
+  lConnectionName: string;
+begin
+  // WARNING: any changes should be duplicated into TDALocalDataAdapter.GetConnection
+  inherited;
+  result := fConnection;
+  if assigned(fConnection) then exit;
+  if (csDesigning in ComponentState) then exit;
+
+  if AcquireConnection then try
+
+    if (fServiceSchema = nil) or (fServiceSchema.ConnectionManager = nil) then raise Exception.Create(err_DARDMInvalidSchema);
+
+    lConnectionName := ConnectionName;
+    if Assigned(fBeforeAcquireConnection) then fBeforeAcquireConnection(Self, lConnectionName);
+
+    result := ServiceSchema.ConnectionManager.NewConnection(lConnectionName);
+    Connection := result;
+    if Assigned(fAfterAcquireConnection) then fAfterAcquireConnection(Self, lConnectionName, result);
+
+  except
+    on E: Exception do begin
+      if Assigned(fOnAcquireConnectionFailure) then fOnAcquireConnectionFailure(Self, lConnectionName, E);
+      raise;
+    end;
+  end;
+end;
+
+{$WARN SYMBOL_DEPRECATED OFF}
+procedure TDataAbstractService.SetConnection(aConnection: IDAConnection);
+begin
+  // WARNING: any changes should be duplicated into TDALocalDataAdapter.SetConnection
+
+  if fConnection <> aConnection then begin
+    fConnection := aConnection;
+    if not Supports(fConnection, IDAHETConnection, fHETConnection) then fHETConnection := nil;
+  end;
+end;
+{$WARN SYMBOL_DEPRECATED ON}
+
+function TDataAbstractService.GetConnectionForObject(const aName: string): IDAConnection;
+begin
+  // WARNING: any changes should be duplicated into TDALocalDataAdapter.GetConnectionForObject
+
+  result := Connection; // forces acquisition of Connection
+  if assigned(fHETConnection) and (ServiceSchema.UnionDataTables.FindItem(aName) = nil) then
+    result := fHETConnection.GetConnectionForObject(aName)
+end;
+
+procedure TDataAbstractService.DoOnDeactivate(aClientID: TGUID);
+begin
+  inherited;
+  if (csDesigning in ComponentState) then Exit;
+
+  ReleaseConnection();
+end;
+
+procedure TDataAbstractService.ReleaseConnection;
+var
+  lConnectionName: string;
+begin
+  if assigned(fConnection) then begin
+    lConnectionName := fConnection.Name;
+    if Assigned(fBeforeReleaseConnection) then fBeforeReleaseConnection(Self, lConnectionName, fConnection);
+    Connection := nil;
+    if Assigned(fAfterReleaseConnection) then fAfterReleaseConnection(Self, lConnectionName);
+  end;
+end;
+
+procedure TDataAbstractService.Assign(Source: TPersistent);
+var
+  lSource: TDataAbstractService;
+begin
+  inherited;
+  if Source is TDataAbstractService then begin
+    lSource := TDataAbstractService(Source);
+
+    AcquireConnection := lSource.AcquireConnection;
+    AfterAcquireConnection := lSource.AfterAcquireConnection;
+    AfterExecuteCommand := lSource.AfterExecuteCommand;
+    AfterGetDatasetData := lSource.AfterGetDatasetData;
+    AfterGetDatasetSchema := lSource.AfterGetDatasetSchema;
+    AfterProcessDeltas := lSource.AfterProcessDeltas;
+    AfterReleaseConnection := lSource.AfterReleaseConnection;
+    AllowDataAccess := lSource.AllowDataAccess;
+    AllowDynamicSelect := lSource.AllowDynamicSelect;
+    AllowDynamicWhere := lSource.AllowDynamicWhere;
+    AllowExecuteCommands := lSource.AllowExecuteCommands;
+    AllowExecuteSQL := lSource.AllowExecuteSQL;
+    AllowSchemaAccess := lSource.AllowSchemaAccess;
+    AllowUpdates := lSource.AllowUpdates;
+    AllowWhereSQL := lSource.AllowWhereSQL;
+    AutoCreateBusinessProcessors := lSource.AutoCreateBusinessProcessors;
+    BeforeAcquireConnection := lSource.BeforeAcquireConnection;
+    BeforeExecuteCommand := lSource.BeforeExecuteCommand;
+    BeforeGetDatasetData := lSource.BeforeGetDatasetData;
+    BeforeGetDatasetSchema := lSource.BeforeGetDatasetSchema;
+    BeforeProcessDeltas := lSource.BeforeProcessDeltas;
+    BeforeReleaseConnection := lSource.BeforeReleaseConnection;
+    ConnectionName := lSource.ConnectionName;
+    ExportedDataTables := lSource.ExportedDataTables;
+    OnAcquireConnectionFailure := lSource.OnAcquireConnectionFailure;
+    OnBusinessProcessorAutoCreated := lSource.OnBusinessProcessorAutoCreated;
+    OnGetSchemaAsXMLEvent := lSource.OnGetSchemaAsXMLEvent;
+    OnProcessDeltasError := lSource.OnProcessDeltasError;
+    OnUpdateDataBeginTransaction := lSource.OnUpdateDataBeginTransaction;
+    OnUpdateDataCommitTransaction := lSource.OnUpdateDataCommitTransaction;
+    OnUpdateDataRollBackTransaction := lSource.OnUpdateDataRollBackTransaction;
+    ProcessDeltasWithoutUpdateRules := lSource.ProcessDeltasWithoutUpdateRules;
+    ReturnUpdateFailureDelta := lSource.ReturnUpdateFailureDelta;
+    ServiceDataStreamer := lSource.ServiceDataStreamer;
+    ServiceSchema := lSource.ServiceSchema;
+    ValidateCommandExecution := lSource.ValidateCommandExecution;
+    ValidateDatasetAccess := lSource.ValidateDatasetAccess;
+    ValidateDirectSQLAccess := lSource.ValidateDirectSQLAccess;
+  end;
+end;
+
+procedure TDataAbstractService.Check(CheckOnlyDataStreamer:Boolean = false);
+begin
+  if not CheckOnlyDataStreamer then Check2;
+  if not Assigned(ServiceDataStreamer) then
+    raise EROException.Create('DataStreamer must be assigned.');
+end;
+
+function TDataAbstractService.ExecuteCommandEx(const aCommandName: Utf8String;
+  const aInputParameters: DataParameterArray;
+  out aOutputParameters: DataParameterArray): Integer;
+var
+  lCommandName: string;
+begin
+  if not AllowDataAccess then
+    raise Exception.Create('Data access has been disabled (ExecuteCommand)');
+
+  if not AllowExecuteCommands then
+    raise Exception.Create('Execution of commands has been disabled (ExecuteCommand)');
+
+  lCommandName:= UTF8ToString(aCommandName);
+  CheckUTF8Decode(aCommandName,lCommandName);
+  Result := InternalExecuteCommandEx(lCommandName,aInputParameters,aOutputParameters);
+end;
+
+type
+  TMyDatasetCollection = class(TDADatasetCollection)
+  end;
+
+function TDataAbstractService.GetDatasetScripts(const DatasetNames: Utf8String): Utf8String;
+var names : TStringList;
+    i : integer;
+    ds : TDADataset;
+    lResult: UnicodeString;
+    lLogicalName: string;
+begin
+  lresult := '';
+  names := TStringList.Create;
+  try
+    names.CommaText := UTF8ToString(DatasetNames);
+    CheckUTF8Decode(DatasetNames,names.CommaText);
+    for i := 0 to (names.Count-1) do begin
+      // scripts for externaltables is not allowed
+      lLogicalName := names[i];
+      if fExportedDataTables.FindByName(lLogicalName) <> nil then continue;
+      ds := ServiceSchema.Datasets.FindDatasetByName(lLogicalName);
+      if not assigned(ds) then
+        ds := ServiceSchema.UnionDataTables.FindUnionDataTableByName(lLogicalName);
+      if not assigned(ds) then
+        ds := ServiceSchema.JoinDataTables.FindJoinTableByName(lLogicalName);
+      with TMyDatasetCollection(ServiceSchema.Datasets) do
+        if ds = nil then EDAException.CreateFmt(err_CannotFindItem, [ItemName, lLogicalName, ClassName]);
+
+      lresult := lresult+Format('<%s Language="%s"><![CDATA[%s]]></%s>', [
+          lLogicalName,
+          GetEnumName(TypeInfo(TROSEScriptLanguage), Ord(ds.BusinessRulesClient.ScriptLanguage)),
+          ds.BusinessRulesClient.Script,
+          lLogicalName]);
+    end;
+
+    result := UTF8Encode('<Scripts>'+lresult+'</Scripts>');
+  finally
+    FreeAndNIL(names);
+  end;
+end;
+
+procedure TDataAbstractService.ExportedDataTables_MergeDelta(ADelta: IDADelta);
+var
+  i, k, x: integer;
+  oldval, newval, val : Variant;
+  fld : TDAField;
+  pkfields : string;
+  pkfields1: array of string;
+  insertfields: array of string;
+  keyvals, insertvals : array of variant;
+  LDAEditableDataset:IDAEditableDataset;
+  ADataset: IDADataset;
+  pk_array: array of boolean;
+begin
+  // validated in UnpackDeltas
+  ADataset:=ExportedDataTables.FindByName(ADelta.LogicalName).Dataset;
+  SetLength(pk_array, ADelta.LoggedFieldCount);
+  for i := 0 to ADelta.LoggedFieldCount - 1 do
+    pk_array[i]:=False;
+
+  for i := 0 to ADelta.KeyFieldCount - 1 do begin
+    x := ADelta.IndexOfLoggedField(ADelta.KeyFieldNames[i]);
+    if x <> -1 then pk_array[x]:=True;
+  end;
+
+  SetLength(pkfields1, ADelta.KeyFieldCount);
+  for i := 0 to (ADelta.KeyFieldCount-1) do
+    pkfields1[i]:=ADelta.KeyFieldNames[i];
+  if ADelta.KeyFieldCount = 0 then
+    begin
+      SetLength(pkfields1, ADelta.LoggedFieldCount);
+      k:=-1;
+      for i := 0 to (ADelta.LoggedFieldCount-1) do begin
+        if ADelta.LoggedFieldTypes[i] in [datUnknown, datMemo, datBlob,datWideMemo, datXml] then Continue;
+        inc(k);
+        pkfields1[k]:=ADelta.LoggedFieldNames[i];
+      end;
+      SetLength(pkfields1,k+1);
+    end;
+  SetLength(keyvals, Length(pkfields1));
+  pkfields := '';
+  For i:=0 to Length(pkfields1) - 1 do
+    pkfields:=pkfields+pkfields1[i]+';';
+  pkfields := Copy(pkfields, 1, Length(pkfields)-1);
+
+  if (ADelta.Count>0) then begin
+    for i := (ADelta.Count-1) downto 0 do begin
+      for k := 0 to Length(pkfields1)-1 do begin
+        val := ADelta[i].OldValueByName[pkfields1[k]];
+        keyvals[k] := val;
+      end;
+      if fHasReducedDelta and (ADelta.KeyFieldCount = 0) then begin
+        SetLength(pkfields1, ADelta.LoggedFieldCount);
+        k:=-1;
+        for x := 0 to (ADelta.LoggedFieldCount-1) do begin
+          if ADelta.LoggedFieldTypes[x] in [datUnknown, datMemo, datBlob,datWideMemo, datXml] then Continue;
+          pkfields:=ADelta.LoggedFieldNames[x];
+          oldval:=ADelta[i].OldValueByName[pkfields];
+          if ROVariantsEqual(oldval,ADelta[i].NewValueByName[pkfields]) and (VarIsNull(oldval) or (VarIsEmpty(oldval))) then Continue;
+          inc(k);
+          pkfields1[k]:=ADelta.LoggedFieldNames[x];
+        end;
+        SetLength(pkfields1,k+1);
+        SetLength(keyvals,k+1);
+        for k := 0 to Length(pkfields1)-1 do begin
+          val := ADelta[i].OldValueByName[pkfields1[k]];
+          keyvals[k] := val;
+        end;
+        pkfields := '';
+        For x:=0 to Length(pkfields1) - 1 do
+          pkfields:=pkfields+pkfields1[x]+';';
+        pkfields := Copy(pkfields, 1, Length(pkfields)-1);
+      end;
+      if ADataset.QueryInterface(StringToGUID('{D3E2147F-65B3-4D9D-8614-7270011FA7D5}'),LDAEditableDataset) <> 0 then exit;
+      LDAEditableDataset.Open;
+      LDAEditableDataset.First;
+      case ADelta[i].ChangeType of
+        ctDelete: begin
+          // Locates the original record
+          if Length(keyvals)=1 then begin
+            if not Adataset.Locate(pkfields, keyvals[0], []) then Continue;
+          end
+          else begin
+            if not Adataset.Locate(pkfields, keyvals, []) then Continue;
+          end;
+          LDAEditableDataset.Delete;
+        end;
+        ctInsert: begin
+          // fHasReducedDelta don't work in this case
+          // old values = Unassigned
+          // new Values = Null
+          SetLength(insertFields, ADelta.LoggedFieldCount);
+          SetLength(insertvals, ADelta.LoggedFieldCount);
+          for x := 0 to (ADelta.LoggedFieldCount-1) do begin
+            insertfields[x] := ADelta.LoggedFieldNames[x];
+            insertvals[x] := ADelta[i].NewValueByName[ADelta.LoggedFieldNames[x]];
+          end;
+          LDAEditableDataset.AddRecord(insertfields,insertvals);
+        end;
+        ctUpdate: begin
+          // Locates the original record
+          if Length(keyvals)=1 then begin
+            if not Adataset.Locate(pkfields, keyvals[0], []) then Continue;
+          end
+          else begin
+            if not Adataset.Locate(pkfields, keyvals, []) then Continue;
+          end;
+          LDAEditableDataset.Edit;
+          for x := 0 to (ADelta.LoggedFieldCount-1) do begin
+            fld := Adataset.FieldByName(ADelta.LoggedFieldNames[x]);
+            newval := ADelta[i].NewValueByName[fld.Name];
+            oldval := ADelta[i].OldValueByName[fld.Name];
+            if fHasReducedDelta and (ROVariantsEqual(newval, oldval)) then Continue;
+            fld.Value:=newval;
+{            if fld.ServerAutoRefresh or (not VarIsArray(newVal) and (newval<>oldval)) then begin
+              VariantToFieldValue(newval, fld);
+            end;
+}
+          end;
+          LDAEditableDataset.Post;
+         end;
+      end;
+      // Removes this merged change
+      ADelta.Delete(i);
+    end;
+  end
+end;
+
+function TDataAbstractService.ReadDeltaFromStream(const DeltaStream: Binary): IDeltaArray;
+var
+  i: integer;
+  lDeltaName: string;
+begin
+  SetLength(result,0);
+  Check(True);
+  // Reads the deltas.
+  ServiceDataStreamer.Initialize(DeltaStream, aiReadFromBeginning);
+  try
+    fHasReducedDelta := ServiceDataStreamer.HasReducedDelta;
+    SetLength(result,ServiceDataStreamer.DeltaCount);
+    for i := 0 to (ServiceDataStreamer.DeltaCount - 1) do begin
+      lDeltaName := ServiceDataStreamer.DeltaNames[i];
+      Result[i] := NewDelta(lDeltaName);
+      ServiceDataStreamer.ReadDelta(lDeltaName, Result[i]);
+    end;
+  finally
+    ServiceDataStreamer.Finalize;
+  end;
+end;
+
+procedure TDataAbstractService.RegisterForDataChangeNotification(
+  const aTableName: Utf8String);
+begin
+{ TODO : todo }
+end;
+
+procedure TDataAbstractService.UnregisterForDataChangeNotification(
+  const aTableName: Utf8String);
+begin
+{ TODO : todo }
+end;
+
+function TDataAbstractService.SQLExecuteCommand(const aSQLText: Utf8String): Integer;
+begin
+  Result:= SQLExecuteCommandEx(aSQLText,'');
+end;
+
+function TDataAbstractService.SQLGetData(const aSQLText: Utf8String; const aIncludeSchema: Boolean; const aMaxRecords: Integer): Binary;
+begin
+  Result:= SQLGetDataEx(aSQLText, aIncludeSchema, aMaxRecords, '');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.bdsproj
new file mode 100644
index 0000000..4c974b2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.bdsproj	
@@ -0,0 +1,179 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{74F520E8-6944-4308-9CFD-20E9AFC351F3}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_Core_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">False</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">False</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - Core Library</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath"></Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals">DESIGNTIME</Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">0</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">0.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.cfg
new file mode 100644
index 0000000..11c667c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.cfg	
@@ -0,0 +1,48 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\Dcu\D10"
+-LE"..\Dcu\D10"
+-LN"..\Dcu\D10"
+-DDESIGNTIME
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.dpk
new file mode 100644
index 0000000..1836908
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.dpk	
@@ -0,0 +1,117 @@
+package DataAbstract_Core_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Core Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  RemObjects_Core_D10,
+  rtl,
+  vcl,
+  adortl,
+  dbrtl,
+  dsnap,
+  vcldb;
+
+contains
+  uDAInterfaces in 'uDAInterfaces.pas',
+  uDAInterfacesEx in 'uDAInterfacesEx.pas',
+  uDAClasses in 'uDAClasses.pas',
+  uDAHelpers in 'uDAHelpers.pas',
+  uDAEngine in 'uDAEngine.pas',
+  uDAUtils in 'uDAUtils.pas',
+  uDARes in 'uDARes.pas',
+  DataAbstract_Core_Reg in 'DataAbstract_Core_Reg.pas',
+  uDABinAdapter in 'uDABinAdapter.pas',
+  uDAXMLAdapter in 'uDAXMLAdapter.pas',
+  uDADriverManager in 'uDADriverManager.pas',
+  uDASupportClasses in 'uDASupportClasses.pas',
+  uDADataTable in 'uDADataTable.pas',
+  uDACDSDataTable in 'uDACDSDataTable.pas',
+  uDAADODataTable in 'uDAADODataTable.pas',
+  uDABusinessProcessor in 'uDABusinessProcessor.pas',
+  uDAIBInterfaces in 'uDAIBInterfaces.pas',
+  uDAOracleInterfaces in 'uDAOracleInterfaces.pas',
+  uDAADOInterfaces in 'uDAADOInterfaces.pas',
+  uDAMacroProcessors in 'uDAMacroProcessors.pas',
+  uDADBSessionManager in 'uDADBSessionManager.pas',
+  uDAMacros in 'uDAMacros.pas',
+  DALoginService_Impl in 'DALoginService_Impl.pas',
+  DARemoteService_Impl in 'DARemoteService_Impl.pas',
+  uDAXMLUtils in 'uDAXMLUtils.pas',
+  uDARegExpr in 'uDARegExpr.pas',
+  uDADriverInfo in 'uDADriverInfo.pas',
+  uDAPleaseWaitForm in 'uDAPleaseWaitForm.pas',
+  uDAClientDataModule in 'uDAClientDataModule.pas',
+  uDAScriptingProvider in 'uDAScriptingProvider.pas',
+  uDAServerLog in 'uDAServerLog.pas',
+  uDADatasetProvider in 'uDADatasetProvider.pas',
+  uDAPoweredByDataAbstractButton in 'uDAPoweredByDataAbstractButton.pas',
+  SimpleLoginService_Impl in 'SimpleLoginService_Impl.pas',
+  DataAbstract3_Intf in 'DataAbstract3_Intf.pas',
+  DataAbstract3_Invk in 'DataAbstract3_Invk.pas',
+  DataAbstract3_Async in 'DataAbstract3_Async.pas',
+  DataAbstractService_Impl in 'DataAbstractService_Impl.pas' {DataAbstractService: TRORemoteDataModule},
+  MultiDbLoginService_Impl in 'MultiDbLoginService_Impl.pas',
+  BaseLoginService_Impl in 'BaseLoginService_Impl.pas' {BaseLoginService: TRORemoteDataModule},
+  DataAbstract4_Invk in 'DataAbstract4_Invk.pas',
+  DataAbstract4_Intf in 'DataAbstract4_Intf.pas',
+  DataAbstract4_Async in 'DataAbstract4_Async.pas',
+  uDARemoteDataAdapter in 'uDARemoteDataAdapter.pas',
+  uDACache in 'uDACache.pas',
+  uDARemoteDataAdapterRequests in 'uDARemoteDataAdapterRequests.pas',
+  uDADataStreamer in 'uDADataStreamer.pas',
+  uDADelta in 'uDADelta.pas',
+  uDADesigntimeCall in 'uDADesigntimeCall.pas',
+  uDAExceptions in 'uDAExceptions.pas',
+  uDASQL92Interfaces in 'uDASQL92Interfaces.pas',
+  uDABin2DataStreamer in 'uDABin2DataStreamer.pas',
+  uDAMemDataset in 'uDAMemDataset.pas',
+  uDAMemDataTable in 'uDAMemDataTable.pas',
+  uDAReconcileDialog in 'uDAReconcileDialog.pas' {ReconcileDialogForm},
+  uDAReconcileDialogDetails in 'uDAReconcileDialogDetails.pas',
+  uDADatasetWrapper in 'uDADatasetWrapper.pas',
+  uDADataTableReferenceCollection in 'uDADataTableReferenceCollection.pas',
+  uDAMySQLInterfaces in 'uDAMySQLInterfaces.pas',
+  uDASQLiteInterfaces in 'uDASQLiteInterfaces.pas',
+  uDAExpressionEvaluator in 'uDAExpressionEvaluator.pas',
+  uDASQL92QueryBuilder in 'uDASQL92QueryBuilder.pas',
+  uDAWhere in 'uDAWhere.pas',
+  uDARemoteCommand in 'uDARemoteCommand.pas',  
+  uDAPostgresInterfaces in 'uDAPostgresInterfaces.pas',
+  uDAElevateDBInterfaces in 'uDAElevateDBInterfaces.pas',
+  uDADB2Interfaces in 'uDADB2Interfaces.pas',
+  uDASybaseInterfaces in 'uDASybaseInterfaces.pas',
+  MultiDbLoginServiceV5_Impl in 'MultiDbLoginServiceV5_Impl.pas',
+  //.31
+  uDAHETDriver in 'uDAHETDriver.pas',
+  uDAHETConnections in 'uDAHETConnections.pas',
+  //
+  uDAJSONDataStreamer in 'uDAJSONDataStreamer.pas',
+  uDALocalDataAdapter in 'uDALocalDataAdapter.pas',
+  uDADataAdapter in 'uDADataAdapter.pas',
+  uDALocalHelpers in 'uDALocalHelpers.pas',
+  uDALocalCommand in 'uDALocalCommand.pas';
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.res
new file mode 100644
index 0000000..6a57c43
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.dpk
new file mode 100644
index 0000000..f56be5d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.dpk	
@@ -0,0 +1,117 @@
+package DataAbstract_Core_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Core Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{$DEFINE RELEASE}
+
+requires
+  RemObjects_Core_D11,
+  rtl,
+  vcl,
+  adortl,
+  dbrtl,
+  dsnap,
+  vcldb;
+
+contains
+  uDAInterfaces in 'uDAInterfaces.pas',
+  uDAInterfacesEx in 'uDAInterfacesEx.pas',
+  uDAClasses in 'uDAClasses.pas',
+  uDAHelpers in 'uDAHelpers.pas',
+  uDAEngine in 'uDAEngine.pas',
+  uDAUtils in 'uDAUtils.pas',
+  uDARes in 'uDARes.pas',
+  DataAbstract_Core_Reg in 'DataAbstract_Core_Reg.pas',
+  uDABinAdapter in 'uDABinAdapter.pas',
+  uDAXMLAdapter in 'uDAXMLAdapter.pas',
+  uDADriverManager in 'uDADriverManager.pas',
+  uDASupportClasses in 'uDASupportClasses.pas',
+  uDADataTable in 'uDADataTable.pas',
+  uDACDSDataTable in 'uDACDSDataTable.pas',
+  uDAADODataTable in 'uDAADODataTable.pas',
+  uDABusinessProcessor in 'uDABusinessProcessor.pas',
+  uDAIBInterfaces in 'uDAIBInterfaces.pas',
+  uDAOracleInterfaces in 'uDAOracleInterfaces.pas',
+  uDAADOInterfaces in 'uDAADOInterfaces.pas',
+  uDAMacroProcessors in 'uDAMacroProcessors.pas',
+  uDADBSessionManager in 'uDADBSessionManager.pas',
+  uDAMacros in 'uDAMacros.pas',
+  DALoginService_Impl in 'DALoginService_Impl.pas',
+  DARemoteService_Impl in 'DARemoteService_Impl.pas',
+  uDAXMLUtils in 'uDAXMLUtils.pas',
+  uDARegExpr in 'uDARegExpr.pas',
+  uDADriverInfo in 'uDADriverInfo.pas',
+  uDAPleaseWaitForm in 'uDAPleaseWaitForm.pas',
+  uDAClientDataModule in 'uDAClientDataModule.pas',
+  uDAScriptingProvider in 'uDAScriptingProvider.pas',
+  uDAServerLog in 'uDAServerLog.pas',
+  uDADatasetProvider in 'uDADatasetProvider.pas',
+  uDAPoweredByDataAbstractButton in 'uDAPoweredByDataAbstractButton.pas',
+  SimpleLoginService_Impl in 'SimpleLoginService_Impl.pas',
+  DataAbstract3_Intf in 'DataAbstract3_Intf.pas',
+  DataAbstract3_Invk in 'DataAbstract3_Invk.pas',
+  DataAbstract3_Async in 'DataAbstract3_Async.pas',
+  DataAbstractService_Impl in 'DataAbstractService_Impl.pas' {DataAbstractService: TRORemoteDataModule},
+  MultiDbLoginService_Impl in 'MultiDbLoginService_Impl.pas',
+  BaseLoginService_Impl in 'BaseLoginService_Impl.pas' {BaseLoginService: TRORemoteDataModule},
+  DataAbstract4_Invk in 'DataAbstract4_Invk.pas',
+  DataAbstract4_Intf in 'DataAbstract4_Intf.pas',
+  DataAbstract4_Async in 'DataAbstract4_Async.pas',
+  uDARemoteDataAdapter in 'uDARemoteDataAdapter.pas',
+  uDACache in 'uDACache.pas',
+  uDARemoteDataAdapterRequests in 'uDARemoteDataAdapterRequests.pas',
+  uDADataStreamer in 'uDADataStreamer.pas',
+  uDADelta in 'uDADelta.pas',
+  uDADesigntimeCall in 'uDADesigntimeCall.pas',
+  uDAExceptions in 'uDAExceptions.pas',
+  uDASQL92Interfaces in 'uDASQL92Interfaces.pas',
+  uDABin2DataStreamer in 'uDABin2DataStreamer.pas',
+  uDAMemDataset in 'uDAMemDataset.pas',
+  uDAMemDataTable in 'uDAMemDataTable.pas',
+  uDAReconcileDialog in 'uDAReconcileDialog.pas' {ReconcileDialogForm},
+  uDAReconcileDialogDetails in 'uDAReconcileDialogDetails.pas',
+  uDADatasetWrapper in 'uDADatasetWrapper.pas',
+  uDADataTableReferenceCollection in 'uDADataTableReferenceCollection.pas',
+  uDAMySQLInterfaces in 'uDAMySQLInterfaces.pas',
+  uDASQLiteInterfaces in 'uDASQLiteInterfaces.pas',
+  uDAExpressionEvaluator in 'uDAExpressionEvaluator.pas',
+  uDASQL92QueryBuilder in 'uDASQL92QueryBuilder.pas',
+  uDAWhere in 'uDAWhere.pas',
+  uDARemoteCommand in 'uDARemoteCommand.pas',
+  uDAPostgresInterfaces in 'uDAPostgresInterfaces.pas',
+  uDAElevateDBInterfaces in 'uDAElevateDBInterfaces.pas',
+  uDADB2Interfaces in 'uDADB2Interfaces.pas',
+  uDASybaseInterfaces in 'uDASybaseInterfaces.pas',
+  MultiDbLoginServiceV5_Impl in 'MultiDbLoginServiceV5_Impl.pas',
+  uDAHETDriver in 'uDAHETDriver.pas',
+  uDAHETConnections in 'uDAHETConnections.pas',
+  uDAJSONDataStreamer in 'uDAJSONDataStreamer.pas',
+  uDALocalDataAdapter in 'uDALocalDataAdapter.pas',
+  uDADataAdapter in 'uDADataAdapter.pas',
+  uDALocalHelpers in 'uDALocalHelpers.pas',
+  uDALocalCommand in 'uDALocalCommand.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.dproj
new file mode 100644
index 0000000..dd437f4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.dproj	
@@ -0,0 +1,668 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f3a56007-69a7-443a-8fdf-56da71a8440c}</ProjectGuid>
+    <MainSource>DataAbstract_Core_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\DataAbstract_Core_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_Define>DESIGNTIME;RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+    <DCC_UnitSearchPath>..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_Define>DESIGNTIME</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+    <DCC_UnitSearchPath>..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - Core Library</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_Core_D11.dpk</Source></Source><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\bin\dclbde100.bpl">CodeGear BDE DB Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+    </Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_Core_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\adortl.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\dsnap.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\vcldb.dcp" />
+    <DCCReference Include="BaseLoginService_Impl.pas">
+      <Form>BaseLoginService</Form>
+      <DesignClass>TRORemoteDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="DALoginService_Impl.pas" />
+    <DCCReference Include="DARemoteService_Impl.pas" />
+    <DCCReference Include="DataAbstract3_Async.pas" />
+    <DCCReference Include="DataAbstract3_Intf.pas" />
+    <DCCReference Include="DataAbstract3_Invk.pas" />
+    <DCCReference Include="DataAbstract4_Async.pas" />
+    <DCCReference Include="DataAbstract4_Intf.pas" />
+    <DCCReference Include="DataAbstract4_Invk.pas" />
+    <DCCReference Include="DataAbstractService_Impl.pas">
+      <Form>DataAbstractService</Form>
+      <DesignClass>TRORemoteDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="DataAbstract_Core_Reg.pas" />
+    <DCCReference Include="MultiDbLoginServiceV5_Impl.pas" />
+    <DCCReference Include="MultiDbLoginService_Impl.pas" />
+    <DCCReference Include="SimpleLoginService_Impl.pas" />
+    <DCCReference Include="uDAADODataTable.pas" />
+    <DCCReference Include="uDAADOInterfaces.pas" />
+    <DCCReference Include="uDABin2DataStreamer.pas" />
+    <DCCReference Include="uDABinAdapter.pas" />
+    <DCCReference Include="uDABusinessProcessor.pas" />
+    <DCCReference Include="uDACache.pas" />
+    <DCCReference Include="uDACDSDataTable.pas" />
+    <DCCReference Include="uDAClasses.pas" />
+    <DCCReference Include="uDAClientDataModule.pas" />
+    <DCCReference Include="uDADataAdapter.pas" />
+    <DCCReference Include="uDADatasetProvider.pas" />
+    <DCCReference Include="uDADatasetWrapper.pas" />
+    <DCCReference Include="uDADataStreamer.pas" />
+    <DCCReference Include="uDADataTable.pas" />
+    <DCCReference Include="uDADataTableReferenceCollection.pas" />
+    <DCCReference Include="uDADB2Interfaces.pas" />
+    <DCCReference Include="uDADBSessionManager.pas" />
+    <DCCReference Include="uDADelta.pas" />
+    <DCCReference Include="uDADesigntimeCall.pas" />
+    <DCCReference Include="uDADriverInfo.pas" />
+    <DCCReference Include="uDADriverManager.pas" />
+    <DCCReference Include="uDAElevateDBInterfaces.pas" />
+    <DCCReference Include="uDAEngine.pas" />
+    <DCCReference Include="uDAExceptions.pas" />
+    <DCCReference Include="uDAExpressionEvaluator.pas" />
+    <DCCReference Include="uDAHelpers.pas" />
+    <DCCReference Include="uDAHETConnections.pas" />
+    <DCCReference Include="uDAHETDriver.pas" />
+    <DCCReference Include="uDAIBInterfaces.pas" />
+    <DCCReference Include="uDAInterfaces.pas" />
+    <DCCReference Include="uDAInterfacesEx.pas" />
+    <DCCReference Include="uDAJSONDataStreamer.pas" />
+    <DCCReference Include="uDALocalCommand.pas" />
+    <DCCReference Include="uDALocalDataAdapter.pas" />
+    <DCCReference Include="uDALocalHelpers.pas" />
+    <DCCReference Include="uDAMacroProcessors.pas" />
+    <DCCReference Include="uDAMacros.pas" />
+    <DCCReference Include="uDAMemDataset.pas" />
+    <DCCReference Include="uDAMemDataTable.pas" />
+    <DCCReference Include="uDAMySQLInterfaces.pas" />
+    <DCCReference Include="uDAOracleInterfaces.pas" />
+    <DCCReference Include="uDAPleaseWaitForm.pas" />
+    <DCCReference Include="uDAPostgresInterfaces.pas" />
+    <DCCReference Include="uDAPoweredByDataAbstractButton.pas" />
+    <DCCReference Include="uDAReconcileDialog.pas">
+      <Form>ReconcileDialogForm</Form>
+    </DCCReference>
+    <DCCReference Include="uDAReconcileDialogDetails.pas" />
+    <DCCReference Include="uDARegExpr.pas" />
+    <DCCReference Include="uDARemoteCommand.pas" />
+    <DCCReference Include="uDARemoteDataAdapter.pas" />
+    <DCCReference Include="uDARemoteDataAdapterRequests.pas" />
+    <DCCReference Include="uDARes.pas" />
+    <DCCReference Include="uDAScriptingProvider.pas" />
+    <DCCReference Include="uDAServerLog.pas" />
+    <DCCReference Include="uDASQL92Interfaces.pas" />
+    <DCCReference Include="uDASQL92QueryBuilder.pas" />
+    <DCCReference Include="uDASQLiteInterfaces.pas" />
+    <DCCReference Include="uDASupportClasses.pas" />
+    <DCCReference Include="uDASybaseInterfaces.pas" />
+    <DCCReference Include="uDAUtils.pas" />
+    <DCCReference Include="uDAWhere.pas" />
+    <DCCReference Include="uDAXMLAdapter.pas" />
+    <DCCReference Include="uDAXMLUtils.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.dpk
new file mode 100644
index 0000000..0523a14
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.dpk	
@@ -0,0 +1,117 @@
+package DataAbstract_Core_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Core Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  adortl,
+  dbrtl,
+  dsnap,
+  vcldb,
+  RemObjects_Core_D12;
+
+contains
+  uDAInterfaces in 'uDAInterfaces.pas',
+  uDAInterfacesEx in 'uDAInterfacesEx.pas',
+  uDAClasses in 'uDAClasses.pas',
+  uDAHelpers in 'uDAHelpers.pas',
+  uDAEngine in 'uDAEngine.pas',
+  uDAUtils in 'uDAUtils.pas',
+  uDARes in 'uDARes.pas',
+  DataAbstract_Core_Reg in 'DataAbstract_Core_Reg.pas',
+  uDABinAdapter in 'uDABinAdapter.pas',
+  uDAXMLAdapter in 'uDAXmlAdapter.pas',
+  uDADriverManager in 'uDADriverManager.pas',
+  uDASupportClasses in 'uDASupportClasses.pas',
+  uDADataTable in 'uDADataTable.pas',
+  uDACDSDataTable in 'uDACDSDataTable.pas',
+  uDAADODataTable in 'uDAADODataTable.pas',
+  uDABusinessProcessor in 'uDABusinessProcessor.pas',
+  uDAIBInterfaces in 'uDAIBInterfaces.pas',
+  uDAOracleInterfaces in 'uDAOracleInterfaces.pas',
+  uDAADOInterfaces in 'uDAADOInterfaces.pas',
+  uDAMacroProcessors in 'uDAMacroProcessors.pas',
+  uDADBSessionManager in 'uDADBSessionManager.pas',
+  uDAMacros in 'uDAMacros.pas',
+  DALoginService_Impl in 'DALoginService_Impl.pas',
+  DARemoteService_Impl in 'DARemoteService_Impl.pas',
+  uDAXMLUtils in 'uDAXMLUtils.pas',
+  uDARegExpr in 'uDARegExpr.pas',
+  uDADriverInfo in 'uDADriverInfo.pas',
+  uDAPleaseWaitForm in 'uDAPleaseWaitForm.pas',
+  uDAClientDataModule in 'uDAClientDataModule.pas',
+  uDAScriptingProvider in 'uDAScriptingProvider.pas',
+  uDAServerLog in 'uDAServerLog.pas',
+  uDADatasetProvider in 'uDADatasetProvider.pas',
+  uDAPoweredByDataAbstractButton in 'uDAPoweredByDataAbstractButton.pas',
+  SimpleLoginService_Impl in 'SimpleLoginService_Impl.pas',
+  DataAbstract3_Intf in 'DataAbstract3_Intf.pas',
+  DataAbstract3_Invk in 'DataAbstract3_Invk.pas',
+  DataAbstract3_Async in 'DataAbstract3_Async.pas',
+  DataAbstractService_Impl in 'DataAbstractService_Impl.pas' {DataAbstractService: TRORemoteDataModule},
+  MultiDbLoginService_Impl in 'MultiDbLoginService_Impl.pas',
+  BaseLoginService_Impl in 'BaseLoginService_Impl.pas' {BaseLoginService: TRORemoteDataModule},
+  DataAbstract4_Invk in 'DataAbstract4_Invk.pas',
+  DataAbstract4_Intf in 'DataAbstract4_Intf.pas',
+  DataAbstract4_Async in 'DataAbstract4_Async.pas',
+  uDARemoteDataAdapter in 'uDARemoteDataAdapter.pas',
+  uDACache in 'uDACache.pas',
+  uDARemoteDataAdapterRequests in 'uDARemoteDataAdapterRequests.pas',
+  uDADataStreamer in 'uDADataStreamer.pas',
+  uDADelta in 'uDADelta.pas',
+  uDADesigntimeCall in 'uDADesigntimeCall.pas',
+  uDAExceptions in 'uDAExceptions.pas',
+  uDASQL92Interfaces in 'uDASQL92Interfaces.pas',
+  uDABin2DataStreamer in 'uDABin2DataStreamer.pas',
+  uDAMemDataset in 'uDAMemDataset.pas',
+  uDAMemDataTable in 'uDAMemDataTable.pas',
+  uDAReconcileDialog in 'uDAReconcileDialog.pas' {ReconcileDialogForm},
+  uDAReconcileDialogDetails in 'uDAReconcileDialogDetails.pas',
+  uDADatasetWrapper in 'uDADatasetWrapper.pas',
+  uDADataTableReferenceCollection in 'uDADataTableReferenceCollection.pas',
+  uDAMySQLInterfaces in 'uDAMySQLInterfaces.pas',
+  uDASQLiteInterfaces in 'uDASQLiteInterfaces.pas',
+  uDAExpressionEvaluator in 'uDAExpressionEvaluator.pas',
+  uDASQL92QueryBuilder in 'uDASQL92QueryBuilder.pas',
+  uDAWhere in 'uDAWhere.pas',
+  uDARemoteCommand in 'uDARemoteCommand.pas',
+  uDAPostgresInterfaces in 'uDAPostgresInterfaces.pas',
+  uDAElevateDBInterfaces in 'uDAElevateDBInterfaces.pas',
+  uDADB2Interfaces in 'uDADB2Interfaces.pas',
+  uDASybaseInterfaces in 'uDASybaseInterfaces.pas',
+  MultiDbLoginServiceV5_Impl in 'MultiDbLoginServiceV5_Impl.pas',
+  //.31
+  uDAHETDriver in 'uDAHETDriver.pas',
+  uDAHETConnections in 'uDAHETConnections.pas',
+  //
+  uDAJSONDataStreamer in 'uDAJSONDataStreamer.pas',
+  uDALocalDataAdapter in 'uDALocalDataAdapter.pas',
+  uDADataAdapter in 'uDADataAdapter.pas',
+  uDALocalHelpers in 'uDALocalHelpers.pas',
+  uDALocalCommand in 'uDALocalCommand.pas';
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.dproj
new file mode 100644
index 0000000..814624d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.dproj	
@@ -0,0 +1,177 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{f3a56007-69a7-443a-8fdf-56da71a8440c}</ProjectGuid>
+			<MainSource>DataAbstract_Core_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\DataAbstract_Core_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..\..\RemObjects SDK for Delphi\Dcu\D12;..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\DataAbstract_Core_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - Core Library</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_Core_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="adortl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="dsnap.dcp"/>
+			<DCCReference Include="vcldb.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="uDAInterfaces.pas"/>
+			<DCCReference Include="uDAInterfacesEx.pas"/>
+			<DCCReference Include="uDAClasses.pas"/>
+			<DCCReference Include="uDAHelpers.pas"/>
+			<DCCReference Include="uDAEngine.pas"/>
+			<DCCReference Include="uDAUtils.pas"/>
+			<DCCReference Include="uDARes.pas"/>
+			<DCCReference Include="DataAbstract_Core_Reg.pas"/>
+			<DCCReference Include="uDABinAdapter.pas"/>
+			<DCCReference Include="uDAXmlAdapter.pas"/>
+			<DCCReference Include="uDADriverManager.pas"/>
+			<DCCReference Include="uDASupportClasses.pas"/>
+			<DCCReference Include="uDADataTable.pas"/>
+			<DCCReference Include="uDACDSDataTable.pas"/>
+			<DCCReference Include="uDAADODataTable.pas"/>
+			<DCCReference Include="uDABusinessProcessor.pas"/>
+			<DCCReference Include="uDAIBInterfaces.pas"/>
+			<DCCReference Include="uDAOracleInterfaces.pas"/>
+			<DCCReference Include="uDAADOInterfaces.pas"/>
+			<DCCReference Include="uDAMacroProcessors.pas"/>
+			<DCCReference Include="uDADBSessionManager.pas"/>
+			<DCCReference Include="uDAMacros.pas"/>
+			<DCCReference Include="DALoginService_Impl.pas"/>
+			<DCCReference Include="DARemoteService_Impl.pas"/>
+			<DCCReference Include="uDAXMLUtils.pas"/>
+			<DCCReference Include="uDARegExpr.pas"/>
+			<DCCReference Include="uDADriverInfo.pas"/>
+			<DCCReference Include="uDAPleaseWaitForm.pas"/>
+			<DCCReference Include="uDAClientDataModule.pas"/>
+			<DCCReference Include="uDAScriptingProvider.pas"/>
+			<DCCReference Include="uDAServerLog.pas"/>
+			<DCCReference Include="uDADatasetProvider.pas"/>
+			<DCCReference Include="uDAPoweredByDataAbstractButton.pas"/>
+			<DCCReference Include="SimpleLoginService_Impl.pas"/>
+			<DCCReference Include="DataAbstract3_Intf.pas"/>
+			<DCCReference Include="DataAbstract3_Invk.pas"/>
+			<DCCReference Include="DataAbstract3_Async.pas"/>
+			<DCCReference Include="DataAbstractService_Impl.pas">
+				<Form>DataAbstractService</Form>
+				<DesignClass>TRORemoteDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="MultiDbLoginService_Impl.pas"/>
+			<DCCReference Include="BaseLoginService_Impl.pas">
+				<Form>BaseLoginService</Form>
+				<DesignClass>TRORemoteDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="DataAbstract4_Invk.pas"/>
+			<DCCReference Include="DataAbstract4_Intf.pas"/>
+			<DCCReference Include="DataAbstract4_Async.pas"/>
+			<DCCReference Include="uDARemoteDataAdapter.pas"/>
+			<DCCReference Include="uDACache.pas"/>
+			<DCCReference Include="uDARemoteDataAdapterRequests.pas"/>
+			<DCCReference Include="uDADataStreamer.pas"/>
+			<DCCReference Include="uDADelta.pas"/>
+			<DCCReference Include="uDADesigntimeCall.pas"/>
+			<DCCReference Include="uDAExceptions.pas"/>
+			<DCCReference Include="uDASQL92Interfaces.pas"/>
+			<DCCReference Include="uDABin2DataStreamer.pas"/>
+			<DCCReference Include="uDAMemDataset.pas"/>
+			<DCCReference Include="uDAMemDataTable.pas"/>
+			<DCCReference Include="uDAReconcileDialog.pas">
+				<Form>ReconcileDialogForm</Form>
+			</DCCReference>
+			<DCCReference Include="uDAReconcileDialogDetails.pas"/>
+			<DCCReference Include="uDADatasetWrapper.pas"/>
+			<DCCReference Include="uDADataTableReferenceCollection.pas"/>
+			<DCCReference Include="uDAMySQLInterfaces.pas"/>
+			<DCCReference Include="uDASQLiteInterfaces.pas"/>
+			<DCCReference Include="uDAExpressionEvaluator.pas"/>
+			<DCCReference Include="uDASQL92QueryBuilder.pas"/>
+			<DCCReference Include="uDAWhere.pas"/>
+			<DCCReference Include="uDARemoteCommand.pas"/>
+			<DCCReference Include="uDAPostgresInterfaces.pas"/>
+			<DCCReference Include="uDAElevateDBInterfaces.pas"/>
+			<DCCReference Include="uDADB2Interfaces.pas"/>
+			<DCCReference Include="uDASybaseInterfaces.pas"/>
+			<DCCReference Include="MultiDbLoginServiceV5_Impl.pas"/>
+			<DCCReference Include="uDAHETDriver.pas"/>
+			<DCCReference Include="uDAHETConnections.pas"/>
+			<DCCReference Include="uDAJSONDataStreamer.pas"/>			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">2</VersionInfo>
+						<VersionInfo Name="Build">434</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.2.434</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_Core_D12.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.dpk
new file mode 100644
index 0000000..c2e7fa5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.dpk	
@@ -0,0 +1,116 @@
+package DataAbstract_Core_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Core Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{$WARN UNIT_DEPRECATED OFF}
+requires
+  rtl,
+  vcl,
+  adortl,
+  dbrtl,
+  dsnap,
+  vcldb,
+  RemObjects_Core_D14;
+
+contains
+  uDAInterfaces in 'uDAInterfaces.pas',
+  uDAInterfacesEx in 'uDAInterfacesEx.pas',
+  uDAClasses in 'uDAClasses.pas',
+  uDAHelpers in 'uDAHelpers.pas',
+  uDAEngine in 'uDAEngine.pas',
+  uDAUtils in 'uDAUtils.pas',
+  uDARes in 'uDARes.pas',
+  DataAbstract_Core_Reg in 'DataAbstract_Core_Reg.pas',
+  uDABinAdapter in 'uDABinAdapter.pas',
+  uDAXmlAdapter in 'uDAXmlAdapter.pas',
+  uDADriverManager in 'uDADriverManager.pas',
+  uDASupportClasses in 'uDASupportClasses.pas',
+  uDADataTable in 'uDADataTable.pas',
+  uDACDSDataTable in 'uDACDSDataTable.pas',
+  uDAADODataTable in 'uDAADODataTable.pas',
+  uDABusinessProcessor in 'uDABusinessProcessor.pas',
+  uDAIBInterfaces in 'uDAIBInterfaces.pas',
+  uDAOracleInterfaces in 'uDAOracleInterfaces.pas',
+  uDAADOInterfaces in 'uDAADOInterfaces.pas',
+  uDAMacroProcessors in 'uDAMacroProcessors.pas',
+  uDADBSessionManager in 'uDADBSessionManager.pas',
+  uDAMacros in 'uDAMacros.pas',
+  DALoginService_Impl in 'DALoginService_Impl.pas',
+  DARemoteService_Impl in 'DARemoteService_Impl.pas',
+  uDAXMLUtils in 'uDAXMLUtils.pas',
+  uDARegExpr in 'uDARegExpr.pas',
+  uDADriverInfo in 'uDADriverInfo.pas',
+  uDAPleaseWaitForm in 'uDAPleaseWaitForm.pas',
+  uDAClientDataModule in 'uDAClientDataModule.pas',
+  uDAScriptingProvider in 'uDAScriptingProvider.pas',
+  uDAServerLog in 'uDAServerLog.pas',
+  uDADatasetProvider in 'uDADatasetProvider.pas',
+  uDAPoweredByDataAbstractButton in 'uDAPoweredByDataAbstractButton.pas',
+  SimpleLoginService_Impl in 'SimpleLoginService_Impl.pas',
+  DataAbstract3_Intf in 'DataAbstract3_Intf.pas',
+  DataAbstract3_Invk in 'DataAbstract3_Invk.pas',
+  DataAbstract3_Async in 'DataAbstract3_Async.pas',
+  DataAbstractService_Impl in 'DataAbstractService_Impl.pas' {DataAbstractService: TRORemoteDataModule},
+  MultiDbLoginService_Impl in 'MultiDbLoginService_Impl.pas',
+  BaseLoginService_Impl in 'BaseLoginService_Impl.pas' {BaseLoginService: TRORemoteDataModule},
+  DataAbstract4_Invk in 'DataAbstract4_Invk.pas',
+  DataAbstract4_Intf in 'DataAbstract4_Intf.pas',
+  DataAbstract4_Async in 'DataAbstract4_Async.pas',
+  uDARemoteDataAdapter in 'uDARemoteDataAdapter.pas',
+  uDACache in 'uDACache.pas',
+  uDARemoteDataAdapterRequests in 'uDARemoteDataAdapterRequests.pas',
+  uDADataStreamer in 'uDADataStreamer.pas',
+  uDADelta in 'uDADelta.pas',
+  uDADesigntimeCall in 'uDADesigntimeCall.pas',
+  uDAExceptions in 'uDAExceptions.pas',
+  uDASQL92Interfaces in 'uDASQL92Interfaces.pas',
+  uDABin2DataStreamer in 'uDABin2DataStreamer.pas',
+  uDAMemDataset in 'uDAMemDataset.pas',
+  uDAMemDataTable in 'uDAMemDataTable.pas',
+  uDAReconcileDialog in 'uDAReconcileDialog.pas' {ReconcileDialogForm},
+  uDAReconcileDialogDetails in 'uDAReconcileDialogDetails.pas',
+  uDADatasetWrapper in 'uDADatasetWrapper.pas',
+  uDADataTableReferenceCollection in 'uDADataTableReferenceCollection.pas',
+  uDAMySQLInterfaces in 'uDAMySQLInterfaces.pas',
+  uDASQLiteInterfaces in 'uDASQLiteInterfaces.pas',
+  uDAExpressionEvaluator in 'uDAExpressionEvaluator.pas',
+  uDASQL92QueryBuilder in 'uDASQL92QueryBuilder.pas',
+  uDAWhere in 'uDAWhere.pas',
+  uDARemoteCommand in 'uDARemoteCommand.pas',
+  uDAPostgresInterfaces in 'uDAPostgresInterfaces.pas',
+  uDAElevateDBInterfaces in 'uDAElevateDBInterfaces.pas',
+  uDADB2Interfaces in 'uDADB2Interfaces.pas',
+  uDASybaseInterfaces in 'uDASybaseInterfaces.pas',
+  MultiDbLoginServiceV5_Impl in 'MultiDbLoginServiceV5_Impl.pas',
+  uDAHETDriver in 'uDAHETDriver.pas',
+  uDAHETConnections in 'uDAHETConnections.pas',
+  uDAJSONDataStreamer in 'uDAJSONDataStreamer.pas',
+  uDALocalDataAdapter in 'uDALocalDataAdapter.pas',
+  uDADataAdapter in 'uDADataAdapter.pas',
+  uDALocalHelpers in 'uDALocalHelpers.pas',
+  uDALocalCommand in 'uDALocalCommand.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.dproj
new file mode 100644
index 0000000..08aee1a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.dproj	
@@ -0,0 +1,182 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{f3a56007-69a7-443a-8fdf-56da71a8440c}</ProjectGuid>
+			<MainSource>DataAbstract_Core_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\DataAbstract_Core_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..\..\RemObjects SDK for Delphi\Dcu\D14;..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D14\DataAbstract_Core_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - Core Library</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_Core_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="adortl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="dsnap.dcp"/>
+			<DCCReference Include="vcldb.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="uDAInterfaces.pas"/>
+			<DCCReference Include="uDAInterfacesEx.pas"/>
+			<DCCReference Include="uDAClasses.pas"/>
+			<DCCReference Include="uDAHelpers.pas"/>
+			<DCCReference Include="uDAEngine.pas"/>
+			<DCCReference Include="uDAUtils.pas"/>
+			<DCCReference Include="uDARes.pas"/>
+			<DCCReference Include="DataAbstract_Core_Reg.pas"/>
+			<DCCReference Include="uDABinAdapter.pas"/>
+			<DCCReference Include="uDAXmlAdapter.pas"/>
+			<DCCReference Include="uDADriverManager.pas"/>
+			<DCCReference Include="uDASupportClasses.pas"/>
+			<DCCReference Include="uDADataTable.pas"/>
+			<DCCReference Include="uDACDSDataTable.pas"/>
+			<DCCReference Include="uDAADODataTable.pas"/>
+			<DCCReference Include="uDABusinessProcessor.pas"/>
+			<DCCReference Include="uDAIBInterfaces.pas"/>
+			<DCCReference Include="uDAOracleInterfaces.pas"/>
+			<DCCReference Include="uDAADOInterfaces.pas"/>
+			<DCCReference Include="uDAMacroProcessors.pas"/>
+			<DCCReference Include="uDADBSessionManager.pas"/>
+			<DCCReference Include="uDAMacros.pas"/>
+			<DCCReference Include="DALoginService_Impl.pas"/>
+			<DCCReference Include="DARemoteService_Impl.pas"/>
+			<DCCReference Include="uDAXMLUtils.pas"/>
+			<DCCReference Include="uDARegExpr.pas"/>
+			<DCCReference Include="uDADriverInfo.pas"/>
+			<DCCReference Include="uDAPleaseWaitForm.pas"/>
+			<DCCReference Include="uDAClientDataModule.pas"/>
+			<DCCReference Include="uDAScriptingProvider.pas"/>
+			<DCCReference Include="uDAServerLog.pas"/>
+			<DCCReference Include="uDADatasetProvider.pas"/>
+			<DCCReference Include="uDAPoweredByDataAbstractButton.pas"/>
+			<DCCReference Include="SimpleLoginService_Impl.pas"/>
+			<DCCReference Include="DataAbstract3_Intf.pas"/>
+			<DCCReference Include="DataAbstract3_Invk.pas"/>
+			<DCCReference Include="DataAbstract3_Async.pas"/>
+			<DCCReference Include="DataAbstractService_Impl.pas">
+				<Form>DataAbstractService</Form>
+				<DesignClass>TRORemoteDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="MultiDbLoginService_Impl.pas"/>
+			<DCCReference Include="BaseLoginService_Impl.pas">
+				<Form>BaseLoginService</Form>
+				<DesignClass>TRORemoteDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="DataAbstract4_Invk.pas"/>
+			<DCCReference Include="DataAbstract4_Intf.pas"/>
+			<DCCReference Include="DataAbstract4_Async.pas"/>
+			<DCCReference Include="uDARemoteDataAdapter.pas"/>
+			<DCCReference Include="uDACache.pas"/>
+			<DCCReference Include="uDARemoteDataAdapterRequests.pas"/>
+			<DCCReference Include="uDADataStreamer.pas"/>
+			<DCCReference Include="uDADelta.pas"/>
+			<DCCReference Include="uDADesigntimeCall.pas"/>
+			<DCCReference Include="uDAExceptions.pas"/>
+			<DCCReference Include="uDASQL92Interfaces.pas"/>
+			<DCCReference Include="uDABin2DataStreamer.pas"/>
+			<DCCReference Include="uDAMemDataset.pas"/>
+			<DCCReference Include="uDAMemDataTable.pas"/>
+			<DCCReference Include="uDAReconcileDialog.pas">
+				<Form>ReconcileDialogForm</Form>
+			</DCCReference>
+			<DCCReference Include="uDAReconcileDialogDetails.pas"/>
+			<DCCReference Include="uDADatasetWrapper.pas"/>
+			<DCCReference Include="uDADataTableReferenceCollection.pas"/>
+			<DCCReference Include="uDAMySQLInterfaces.pas"/>
+			<DCCReference Include="uDASQLiteInterfaces.pas"/>
+			<DCCReference Include="uDAExpressionEvaluator.pas"/>
+			<DCCReference Include="uDASQL92QueryBuilder.pas"/>
+			<DCCReference Include="uDAWhere.pas"/>
+			<DCCReference Include="uDARemoteCommand.pas"/>
+			<DCCReference Include="uDAPostgresInterfaces.pas"/>
+			<DCCReference Include="uDAElevateDBInterfaces.pas"/>
+			<DCCReference Include="uDADB2Interfaces.pas"/>
+			<DCCReference Include="uDASybaseInterfaces.pas"/>
+			<DCCReference Include="MultiDbLoginServiceV5_Impl.pas"/>
+			<DCCReference Include="uDAHETDriver.pas"/>
+			<DCCReference Include="uDAHETConnections.pas"/>
+			<DCCReference Include="uDAJSONDataStreamer.pas"/>
+			<DCCReference Include="uDALocalDataAdapter.pas"/>
+			<DCCReference Include="uDADataAdapter.pas"/>
+			<DCCReference Include="uDALocalHelpers.pas"/>
+			<DCCReference Include="uDALocalCommand.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">2</VersionInfo>
+						<VersionInfo Name="Build">434</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.2.434</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_Core_D14.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.cfg
new file mode 100644
index 0000000..3d4736d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.cfg	
@@ -0,0 +1,42 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\Dcu\D6"
+-LE"..\Dcu\D6"
+-LN"..\Dcu\D6"
+-U"..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6"
+-O"..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6"
+-I"..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6"
+-R"..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6"
+-DDESIGNTIME
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.dof
new file mode 100644
index 0000000..ff6f0ce
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Core Library
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6
+Packages=
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.280
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.dpk
new file mode 100644
index 0000000..4abdb86
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.dpk	
@@ -0,0 +1,117 @@
+package DataAbstract_Core_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Core Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  RemObjects_Core_D6,
+  rtl,
+  vcl,
+  adortl,
+  dbrtl,
+  dsnap,
+  vcldb;
+
+contains
+  uDAInterfaces in 'uDAInterfaces.pas',
+  uDAInterfacesEx in 'uDAInterfacesEx.pas',
+  uDAClasses in 'uDAClasses.pas',
+  uDAHelpers in 'uDAHelpers.pas',
+  uDAEngine in 'uDAEngine.pas',
+  uDAUtils in 'uDAUtils.pas',
+  uDARes in 'uDARes.pas',
+  DataAbstract_Core_Reg in 'DataAbstract_Core_Reg.pas',
+  uDABinAdapter in 'uDABinAdapter.pas',
+  uDAXMLAdapter in 'uDAXMLAdapter.pas',
+  uDADriverManager in 'uDADriverManager.pas',
+  uDASupportClasses in 'uDASupportClasses.pas',
+  uDADataTable in 'uDADataTable.pas',
+  uDACDSDataTable in 'uDACDSDataTable.pas',
+  uDAADODataTable in 'uDAADODataTable.pas',
+  uDABusinessProcessor in 'uDABusinessProcessor.pas',
+  uDAIBInterfaces in 'uDAIBInterfaces.pas',
+  uDAOracleInterfaces in 'uDAOracleInterfaces.pas',
+  uDAADOInterfaces in 'uDAADOInterfaces.pas',
+  uDAMacroProcessors in 'uDAMacroProcessors.pas',
+  uDADBSessionManager in 'uDADBSessionManager.pas',
+  uDAMacros in 'uDAMacros.pas',
+  DALoginService_Impl in 'DALoginService_Impl.pas',
+  DARemoteService_Impl in 'DARemoteService_Impl.pas',
+  uDAXMLUtils in 'uDAXMLUtils.pas',
+  uDARegExpr in 'uDARegExpr.pas',
+  uDADriverInfo in 'uDADriverInfo.pas',
+  uDAPleaseWaitForm in 'uDAPleaseWaitForm.pas',
+  uDAClientDataModule in 'uDAClientDataModule.pas',
+  uDAScriptingProvider in 'uDAScriptingProvider.pas',
+  uDAServerLog in 'uDAServerLog.pas',
+  uDADatasetProvider in 'uDADatasetProvider.pas',
+  uDAPoweredByDataAbstractButton in 'uDAPoweredByDataAbstractButton.pas',
+  SimpleLoginService_Impl in 'SimpleLoginService_Impl.pas',
+  DataAbstract3_Intf in 'DataAbstract3_Intf.pas',
+  DataAbstract3_Invk in 'DataAbstract3_Invk.pas',
+  DataAbstract3_Async in 'DataAbstract3_Async.pas',
+  DataAbstractService_Impl in 'DataAbstractService_Impl.pas' {DataAbstractService: TRORemoteDataModule},
+  MultiDbLoginService_Impl in 'MultiDbLoginService_Impl.pas',
+  BaseLoginService_Impl in 'BaseLoginService_Impl.pas' {BaseLoginService: TRORemoteDataModule},
+  DataAbstract4_Invk in 'DataAbstract4_Invk.pas',
+  DataAbstract4_Intf in 'DataAbstract4_Intf.pas',
+  DataAbstract4_Async in 'DataAbstract4_Async.pas',
+  uDARemoteDataAdapter in 'uDARemoteDataAdapter.pas',
+  uDACache in 'uDACache.pas',
+  uDARemoteDataAdapterRequests in 'uDARemoteDataAdapterRequests.pas',
+  uDADataStreamer in 'uDADataStreamer.pas',
+  uDADelta in 'uDADelta.pas',
+  uDADesigntimeCall in 'uDADesigntimeCall.pas',
+  uDAExceptions in 'uDAExceptions.pas',
+  uDASQL92Interfaces in 'uDASQL92Interfaces.pas',
+  uDABin2DataStreamer in 'uDABin2DataStreamer.pas',
+  uDAMemDataset in 'uDAMemDataset.pas',
+  uDAMemDataTable in 'uDAMemDataTable.pas',
+  uDAReconcileDialog in 'uDAReconcileDialog.pas' {ReconcileDialogForm},
+  uDAReconcileDialogDetails in 'uDAReconcileDialogDetails.pas',
+  uDADatasetWrapper in 'uDADatasetWrapper.pas',
+  uDADataTableReferenceCollection in 'uDADataTableReferenceCollection.pas',
+  uDAMySQLInterfaces in 'uDAMySQLInterfaces.pas',
+  uDASQLiteInterfaces in 'uDASQLiteInterfaces.pas',
+  uDAExpressionEvaluator in 'uDAExpressionEvaluator.pas',
+  uDASQL92QueryBuilder in 'uDASQL92QueryBuilder.pas',
+  uDAWhere in 'uDAWhere.pas',
+  uDARemoteCommand in 'uDARemoteCommand.pas',
+  uDAPostgresInterfaces in 'uDAPostgresInterfaces.pas',
+  uDAElevateDBInterfaces in 'uDAElevateDBInterfaces.pas',
+  uDADB2Interfaces in 'uDADB2Interfaces.pas',
+  uDASybaseInterfaces in 'uDASybaseInterfaces.pas',
+  MultiDbLoginServiceV5_Impl in 'MultiDbLoginServiceV5_Impl.pas',
+  //.31
+  uDAHETDriver in 'uDAHETDriver.pas',
+  uDAHETConnections in 'uDAHETConnections.pas',
+  //
+  uDAJSONDataStreamer in 'uDAJSONDataStreamer.pas',
+  uDALocalDataAdapter in 'uDALocalDataAdapter.pas',
+  uDADataAdapter in 'uDADataAdapter.pas',
+  uDALocalHelpers in 'uDALocalHelpers.pas',
+  uDALocalCommand in 'uDALocalCommand.pas';
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.res
new file mode 100644
index 0000000..8c3fa75
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.cfg
new file mode 100644
index 0000000..d9c7e92
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.cfg	
@@ -0,0 +1,51 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\Dcu\D7"
+-LE"..\Dcu\D7"
+-LN"..\Dcu\D7"
+-U"..\Dcu\D7;..\Dcu\DevEx;..\..\RemObjects SDK for Delphi\Dcu\D7;..\..\Pascal Script\Dcu\D7"
+-O"..\Dcu\D7;..\Dcu\DevEx;..\..\RemObjects SDK for Delphi\Dcu\D7;..\..\Pascal Script\Dcu\D7"
+-I"..\Dcu\D7;..\Dcu\DevEx;..\..\RemObjects SDK for Delphi\Dcu\D7;..\..\Pascal Script\Dcu\D7"
+-R"..\Dcu\D7;..\Dcu\DevEx;..\..\RemObjects SDK for Delphi\Dcu\D7;..\..\Pascal Script\Dcu\D7"
+-DDESIGNTIME
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.dof
new file mode 100644
index 0000000..19785e8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Core Library
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=..\Dcu\D7;..\Dcu\DevEx;..\..\RemObjects SDK for Delphi\Dcu\D7;..\..\Pascal Script\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.286
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.dpk
new file mode 100644
index 0000000..ef48c51
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.dpk	
@@ -0,0 +1,117 @@
+package DataAbstract_Core_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Core Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  RemObjects_Core_D7,
+  rtl,
+  vcl,
+  adortl,
+  dbrtl,
+  dsnap,
+  vcldb;
+
+contains
+  uDAInterfaces in 'uDAInterfaces.pas',
+  uDAInterfacesEx in 'uDAInterfacesEx.pas',
+  uDAClasses in 'uDAClasses.pas',
+  uDAHelpers in 'uDAHelpers.pas',
+  uDAEngine in 'uDAEngine.pas',
+  uDAUtils in 'uDAUtils.pas',
+  uDARes in 'uDARes.pas',
+  DataAbstract_Core_Reg in 'DataAbstract_Core_Reg.pas',
+  uDABinAdapter in 'uDABinAdapter.pas',
+  uDAXMLAdapter in 'uDAXMLAdapter.pas',
+  uDADriverManager in 'uDADriverManager.pas',
+  uDASupportClasses in 'uDASupportClasses.pas',
+  uDADataTable in 'uDADataTable.pas',
+  uDACDSDataTable in 'uDACDSDataTable.pas',
+  uDAADODataTable in 'uDAADODataTable.pas',
+  uDABusinessProcessor in 'uDABusinessProcessor.pas',
+  uDAIBInterfaces in 'uDAIBInterfaces.pas',
+  uDAOracleInterfaces in 'uDAOracleInterfaces.pas',
+  uDAADOInterfaces in 'uDAADOInterfaces.pas',
+  uDAMacroProcessors in 'uDAMacroProcessors.pas',
+  uDADBSessionManager in 'uDADBSessionManager.pas',
+  uDAMacros in 'uDAMacros.pas',
+  DALoginService_Impl in 'DALoginService_Impl.pas',
+  DARemoteService_Impl in 'DARemoteService_Impl.pas',
+  uDAXMLUtils in 'uDAXMLUtils.pas',
+  uDARegExpr in 'uDARegExpr.pas',
+  uDADriverInfo in 'uDADriverInfo.pas',
+  uDAPleaseWaitForm in 'uDAPleaseWaitForm.pas',
+  uDAClientDataModule in 'uDAClientDataModule.pas',
+  uDAScriptingProvider in 'uDAScriptingProvider.pas',
+  uDAServerLog in 'uDAServerLog.pas',
+  uDADatasetProvider in 'uDADatasetProvider.pas',
+  uDAPoweredByDataAbstractButton in 'uDAPoweredByDataAbstractButton.pas',
+  SimpleLoginService_Impl in 'SimpleLoginService_Impl.pas',
+  DataAbstract3_Intf in 'DataAbstract3_Intf.pas',
+  DataAbstract3_Invk in 'DataAbstract3_Invk.pas',
+  DataAbstract3_Async in 'DataAbstract3_Async.pas',
+  DataAbstractService_Impl in 'DataAbstractService_Impl.pas' {DataAbstractService: TRORemoteDataModule},
+  MultiDbLoginService_Impl in 'MultiDbLoginService_Impl.pas',
+  BaseLoginService_Impl in 'BaseLoginService_Impl.pas' {BaseLoginService: TRORemoteDataModule},
+  DataAbstract4_Invk in 'DataAbstract4_Invk.pas',
+  DataAbstract4_Intf in 'DataAbstract4_Intf.pas',
+  DataAbstract4_Async in 'DataAbstract4_Async.pas',
+  uDARemoteDataAdapter in 'uDARemoteDataAdapter.pas',
+  uDACache in 'uDACache.pas',
+  uDARemoteDataAdapterRequests in 'uDARemoteDataAdapterRequests.pas',
+  uDADataStreamer in 'uDADataStreamer.pas',
+  uDADelta in 'uDADelta.pas',
+  uDADesigntimeCall in 'uDADesigntimeCall.pas',
+  uDAExceptions in 'uDAExceptions.pas',
+  uDASQL92Interfaces in 'uDASQL92Interfaces.pas',
+  uDABin2DataStreamer in 'uDABin2DataStreamer.pas',
+  uDAMemDataset in 'uDAMemDataset.pas',
+  uDAMemDataTable in 'uDAMemDataTable.pas',
+  uDAReconcileDialog in 'uDAReconcileDialog.pas' {ReconcileDialogForm},
+  uDAReconcileDialogDetails in 'uDAReconcileDialogDetails.pas',
+  uDADatasetWrapper in 'uDADatasetWrapper.pas',
+  uDADataTableReferenceCollection in 'uDADataTableReferenceCollection.pas',
+  uDAMySQLInterfaces in 'uDAMySQLInterfaces.pas',
+  uDASQLiteInterfaces in 'uDASQLiteInterfaces.pas',
+  uDAExpressionEvaluator in 'uDAExpressionEvaluator.pas',
+  uDASQL92QueryBuilder in 'uDASQL92QueryBuilder.pas',
+  uDAWhere in 'uDAWhere.pas',
+  uDARemoteCommand in 'uDARemoteCommand.pas',
+  uDAPostgresInterfaces in 'uDAPostgresInterfaces.pas',
+  uDAElevateDBInterfaces in 'uDAElevateDBInterfaces.pas',
+  uDADB2Interfaces in 'uDADB2Interfaces.pas',
+  uDASybaseInterfaces in 'uDASybaseInterfaces.pas',
+  MultiDbLoginServiceV5_Impl in 'MultiDbLoginServiceV5_Impl.pas',
+  //.31
+  uDAHETDriver in 'uDAHETDriver.pas',
+  uDAHETConnections in 'uDAHETConnections.pas',
+  //
+  uDAJSONDataStreamer in 'uDAJSONDataStreamer.pas',
+  uDALocalDataAdapter in 'uDALocalDataAdapter.pas',
+  uDADataAdapter in 'uDADataAdapter.pas',
+  uDALocalHelpers in 'uDALocalHelpers.pas',
+  uDALocalCommand in 'uDALocalCommand.pas';
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Glyphs.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Glyphs.lrs
new file mode 100644
index 0000000..881fc96
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Glyphs.lrs	
@@ -0,0 +1,1856 @@
+LazarusResources.Add('TDABIN2DATASTREAMER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#142']'
+  +'Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#225#189#255#221#181#255#217#172#255
+  +#213#165#255#211#157#255#207#151#255#203#145#255#201#140#255#199#135#128'PK'
+  +#128#0#0#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#128#0#0'@'#0
+  +#0#255#231#203#0#0#0#0#0#0#255#220#178#255#216#171#0#0#0#0#0#0#0#0#0#255#203
+  +#143#128'PK'#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255
+  +#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#255
+  +#238#217#0#0#0#255#230#199#0#0#0#255#221#182#0#0#0#255#215#166#255#211#159
+  +#255#207#152#128'PK'#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128
+  +#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0#0
+  +#255#243#229#0#0#0#0#0#0#255#233#204#255#229#197#255#224#187#0#0#0#255#216
+  +#171#255#213#165#128'PK'#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128
+  +#0#0'@'#0#0#255#250#242#0#0#0#255#242#225#0#0#0#255#234#209#255#231#203#255
+  +#227#193#0#0#0#255#218#176#128'PK'#128#0#0#255#255#255#128#0#0#128#0#0#128#0
+  +#0#255#255#255#255#255#255#255#255#255#128#0#0#128#0#0#255#255#255#255#255
+  +#255#128#0#0'@'#0#0#255#254#250#0#0#0#0#0#0#255#244#231#255#240#222#0#0#0#0#0
+  +#0#255#229#198#255#225#189#128'PK'#128#0#0#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#128#0#0'@'#0#0#255#255#255#255#254#252#255#252#247
+  +#255#250#242#255#246#235#255#243#227#255#239#220#255#235#211#255#231#203#128
+  +'PK'#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#254#250#255#251#246#255#248#239#255#244#231#255#242#225#255#238#217
+  +#128'PKHJK'#201#194#201#7'9z'#7'9z'#7'9z='#154#242'5'#149#239'-'#140#239#7'9'
+  +'z'#7'9z'#7'9zyyy'#194#140'm'#255#255#255#255#255#255#255#255#255#137#167#199
+  +#7'9z'#137#167#199#255#252#248#247#240#235#226#218#209#226#216#204'{MIHJK'
+  +#206#199#204#191#184#192#7'9z@'#157#242'@'#157#242'@'#157#242'9'#152#240'2'
+  +#145#239#7'9zE_{yyy'#203#147'o'#255#255#255#255#255#255#137#167#199#7'9z'#15
+  +'s'#233#7'9z'#137#167#199#234#233#230#182#180#176#182#177#171'uIEHJK'#209#202
+  +#209#194#188#194'h'#129#163#7'9z@'#157#242'@'#157#242'@'#157#242#7'9zE_{{{{y'
+  +'yy'#209#153'r'#255#255#255#137#167#199#7'9z'#15's'#233#15's'#233#15's'#233#7
+  +'9zURf'#160'g['#160'g['#149'\KHJK'#213#207#213#197#191#197#194#188#194'Qk'
+  +#138#7'9z@'#157#242#7'9zId'#128'yzzyyyyyy'#216#159'u'#137#167#199#7'9z'#27'}'
+  +#235#22'y'#234#18'u'#233#15's'#233#15's'#233#7'9z'#254#176'J'#240#145','#225
+  +#132'.HJK'#217#213#217#201#196#202#199#192#198#150#146#152'0Kf'#7'9z,D^'#137
+  +#137#137#127#127#127#130#130#131'yyy'#220#163'v'#7'9z'#7'9z'#7'9z'#31#130#235
+  +#27'}'#235#22'y'#234#7'9z'#7'9z'#7'9z'#218#152'c'#255#0#255'HJK'#225#218#224
+  +#207#201#206#199#192#198#151#150#153'UWX'#175#175#177'JLM'#137#137#137#128
+  +#128#128#132#132#132#127#127#127#220#163'v'#209#146'm'#209#146'm'#7'9z-'#140
+  +#239'%'#135#238#31#130#237#7'9zXTh'#212#154's'#255#0#255#255#0#255'HJK'#231
+  +#226#230#212#207#211#225#218#224#152#149#152'UWX'#176#175#177'LNO'#150#149
+  +#149#132#131#131'vvvyyy'#143#143#143#131#132#132'*C]'#7'9z7'#150#240'2'#146
+  +#240#7'9z'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#239#235#239
+  +#235#233#235#198#197#199#160#157#161'UWX'#164#165#167';=>'#130#130#131#137
+  +#137#137#143#143#143#137#137#137#147#147#147'Id'#128#7'9z@'#157#242'@'#157
+  +#242'='#154#242#7'9z'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'
+  +#238#237#238#178#177#180#156#153#156#159#158#161'RTU'#235#235#237'ossY[Z'#7
+  +'9z'#7'9z'#7'9z'#7'9z'#7'9z@'#157#242'@'#157#242#7'9z'#7'9z'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#237#235#237#129#129#130#213
+  +#209#212#207#207#208'`cdprrxy{'#138#142#140#171#172#172'Xt'#146#7'9z'#7'9z'#7
+  +'9z'#7'9z'#7'9z'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'HJK'#251#251#252#204#204#204#254#254#254#227#227#230#186
+  +#184#188#151#149#152#136#134#137'xy{rssfihehi'#150#152#153#150#152#153'HJK'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'HJK'#255#255#255#251#251#252#238#238#242#237#238#240#231#230
+  +#233#217#213#217#196#192#196#172#170#172#151#145#151#136#131#136#150#142#146
+  +#136#129#131'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#255#255#255#255#255#255#246#246
+  ,#248#248#247#251#237#237#239#226#226#229#209#207#212#194#191#196#193#187#193
+  +#167#159#165'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJK'#255
+  +#255#255#255#255#255#255#255#255#240#239#243#229#225#230#203#197#203'HJKHJK'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'LNOHJKHJKHJKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TDABINDATASTREAMER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#142']'
+  +'Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#225#189#255#221#181#255#217#172#255
+  +#213#165#255#211#157#255#207#151#255#203#145#255#201#140#255#199#135#128'PK'
+  +#128#0#0#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#128#0#0'@'#0
+  +#0#255#231#203#255#227#194#255#224#187#255#220#178#255#216#171#0#0#0#0#0#0
+  +#255#206#149#255#203#143#128'PK'#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#255#238#217#255#233#208#255#230#199#255#226#191#255#221#182#0
+  +#0#0#255#215#166#0#0#0#255#207#152#128'PK'#128#0#0#255#255#255#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255
+  +#255#255#128#0#0'@'#0#0#255#243#229#255#240#222#255#235#213#255#233#204#255
+  +#229#197#0#0#0#0#0#0#255#216#171#255#213#165#128'PK'#128#0#0#255#255#255#128
+  +#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255
+  +#255#128#0#0#255#255#255#128#0#0'@'#0#0#7'9z'#255#246#233#255#242#225#255#238
+  +#218#255#234#209#0#0#0#255#227#193#0#0#0#255#218#176#128'PK'#128#0#0#255#255
+  +#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#128
+  +#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#255#254#250#255#250#244#255#248
+  +#239#255#244#231#255#240#222#0#0#0#0#0#0#255#229#198#255#225#189#128'PK'#128
+  +#0#0#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#128#0#0'@'#0#0
+  +#255#255#255#255#254#252#255#252#247#255#250#242#255#246#235#255#243#227#255
+  +#239#220#255#235#211#255#231#203#128'PK'#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#254#250#255#251#246#255#248#239
+  +#255#244#231#255#242#225#255#238#217#128'PKHJK'#201#194#201#7'9z'#7'9z'#7'9z'
+  +'='#154#242'5'#149#239'-'#140#239#7'9z'#7'9z'#7'9zyyy'#194#140'm'#255#255#255
+  +#255#255#255#255#255#255#137#167#199#7'9z'#137#167#199#255#252#248#247#240
+  +#235#226#218#209#226#216#204'{MIHJK'#206#199#204#191#184#192#7'9z@'#157#242
+  +'@'#157#242'@'#157#242'9'#152#240'2'#145#239#7'9zE_{yyy'#203#147'o'#255#255
+  +#255#255#255#255#137#167#199#7'9z'#15's'#233#7'9z'#137#167#199#234#233#230
+  +#182#180#176#182#177#171'uIEHJK'#209#202#209#194#188#194'h'#129#163#7'9z@'
+  +#157#242'@'#157#242'@'#157#242#7'9zE_{{{{yyy'#209#153'r'#255#255#255#137#167
+  +#199#7'9z'#15's'#233#15's'#233#15's'#233#7'9zURf'#160'g['#160'g['#149'\KHJK'
+  +#213#207#213#197#191#197#194#188#194'Qk'#138#7'9z@'#157#242#7'9zId'#128'yzzy'
+  +'yyyyy'#216#159'u'#137#167#199#7'9z'#27'}'#235#22'y'#234#18'u'#233#15's'#233
+  +#15's'#233#7'9z'#254#176'J'#240#145','#225#132'.HJK'#217#213#217#201#196#202
+  +#199#192#198#150#146#152'0Kf'#7'9z,D^'#137#137#137#127#127#127#130#130#131'y'
+  +'yy'#220#163'v'#7'9z'#7'9z'#7'9z'#31#130#235#27'}'#235#22'y'#234#7'9z'#7'9z'
+  +#7'9z'#218#152'c'#255#0#255'HJK'#225#218#224#207#201#206#199#192#198#151#150
+  +#153'UWX'#175#175#177'JLM'#137#137#137#128#128#128#132#132#132#127#127#127
+  +#220#163'v'#209#146'm'#209#146'm'#7'9z-'#140#239'%'#135#238#31#130#237#7'9zX'
+  +'Th'#212#154's'#255#0#255#255#0#255'HJK'#231#226#230#212#207#211#225#218#224
+  +#152#149#152'UWX'#176#175#177'LNO'#150#149#149#132#131#131'vvvyyy'#143#143
+  +#143#131#132#132'*C]'#7'9z7'#150#240'2'#146#240#7'9z'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'HJK'#239#235#239#235#233#235#198#197#199#160#157
+  +#161'UWX'#164#165#167';=>'#130#130#131#137#137#137#143#143#143#137#137#137
+  +#147#147#147'Id'#128#7'9z@'#157#242'@'#157#242'='#154#242#7'9z'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'HJK'#238#237#238#178#177#180#156#153#156
+  +#159#158#161'RTU'#235#235#237'ossY[Z'#7'9z'#7'9z'#7'9z'#7'9z'#7'9z@'#157#242
+  +'@'#157#242#7'9z'#7'9z'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255'HJK'#237#235#237#129#129#130#213#209#212#207#207#208'`cdprrxy{'#138
+  +#142#140#171#172#172'Xt'#146#7'9z'#7'9z'#7'9z'#7'9z'#7'9z'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#251#251
+  +#252#204#204#204#254#254#254#227#227#230#186#184#188#151#149#152#136#134#137
+  +'xy{rssfihehi'#150#152#153#150#152#153'HJK'#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#255#255#255#251
+  +#251#252#238#238#242#237#238#240#231#230#233#217#213#217#196#192#196#172#170
+  +#172#151#145#151#136#131#136#150#142#146#136#129#131'HJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  ,#255'HJK'#255#255#255#255#255#255#246#246#248#248#247#251#237#237#239#226#226
+  +#229#209#207#212#194#191#196#193#187#193#167#159#165'HJKHJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJKHJK'#255#255#255#255#255#255#255#255#255
+  +#240#239#243#229#225#230#203#197#203'HJKHJK'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'LNOHJKHJKHJKHJKHJK'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDABUSINESSPROCESSOR','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#128#0#0#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#128#0#0
+  +'@'#0#0#255#0#255#1#3#132#1#1'z'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128
+  +#0#0'@'#0#0#1#6#140#3#19#202#2#10#171#1#1'z'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255
+  +#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128
+  +#0#0'@'#0#0#2#29#218#2#25#216#3#20#207#2#10#171#1#1'z'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255
+  +#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255
+  +#255#128#0#0'@'#0#0#1'%'#234#2#31#225#2#25#216#3#20#207#2#10#171#1#1'z'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0
+  +#0#255#255#255#255#255#255#255#255#255#128#0#0#128#0#0#255#255#255#255#255
+  +#255#128#0#0'@'#0#0#128#149#248'1N'#237#2#31#225#2#25#216#3#20#207#2#10#171#1
+  +#1'z'#255#0#255#255#0#255#255#0#255#128#0#0#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#128#0#0'@'#0#0#255#255#255#144#162#248#1'%'#234#2#31
+  +#225#2#25#216#3#20#207#2#10#171#1#1'z'#255#0#255#255#0#255#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#255#255#255#225#231#255#239#242#254#17'8'#243#1'%'#234#2#31#225
+  +#2#25#216#3#20#207#2#10#171#1#1'z'#255#0#255#255#0#255#7#141#187'v'#223#233
+  +#131#248#254'`'#236#254'<'#224#254#27#210#251'+'#203#239#14#22#147'7d'#247'2'
+  +'b'#255')Z'#255#159#181#255'n'#141#255'Lr'#255#255#255#255#175#190#253#1'+'
+  +#243#1'%'#234#2#31#225#2#25#216#3#20#207#2#10#171#1#1'z'#255#0#255#7#141#187
+  +'v'#223#233#151#249#254#147#242#254#149#238#254#157#235#253#176#233#247#23'&'
+  +#164'Ds'#255';k'#255'2b'#255')Z'#255' Q'#255#23'I'#255#151#173#255#255#255
+  +#255'`}'#252#1'+'#243#1'%'#234#2#31#225#2#25#216#3#19#202#1#3#132#255#0#255#7
+  +#141#187#180#238#243#188#242#248#138#218#235'Y'#194#221'2'#170#206'"'#154#192
+  +#28'I'#158#28'.'#172'Ds'#255';k'#255'2b'#255')Z'#255' Q'#255'&U'#255#211#220
+  +#255#255#255#255#175#190#253'@`'#245#1'%'#234#2#29#218#1#6#140#255#0#255#255
+  +#0#255#9#138#183'o'#194#214'?'#176#203'='#189#218'/'#198#231#25#199#241','
+  +#210#248'S'#220#251'CO'#157#28'.'#172'Ds'#255';k'#255'2b'#255')Z'#255' Q'#255
+  +'&U'#255#151#173#255#255#255#255#207#216#254#1')'#235#1#8#143#255#0#255#255#0
+  +#255#255#0#255#11#134#178'Y'#196#215#128#245#252'`'#236#254'<'#224#254#27#212
+  +#254'.'#216#254'U'#223#254'z'#229#252#28'9'#141#28'.'#172'Ds'#255';k'#255'2b'
+  +#255')Z'#255' Q'#255#23'I'#255'-Y'#255'5Z'#247#1#10#146#255#0#255#255#0#255
+  +#255#0#255#255#0#255#7#140#186'v'#223#233#131#248#254'`'#236#254'<'#224#254
+  +#27#212#254'.'#216#254'U'#224#255'{'#231#254'v'#200#220#27'<'#145#28'.'#172
+  +'Ds'#255';k'#255'2b'#255')Z'#255' Q'#255#22'E'#247#4#13#147#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#7#141#187'v'#223#233#131#248#254'`'#236
+  +#254'<'#224#254#27#212#254'.'#216#254'U'#224#255'{'#232#255#144#227#244'c'
+  +#194#217#19';'#146#28'.'#172'Ds'#255';k'#255'2b'#255'''T'#247#7#16#147#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#7#141#187'v'#223#233
+  +#131#248#254'`'#236#254'<'#224#254#27#212#254'.'#216#254'U'#224#255'{'#232
+  +#255#149#235#253'h'#205#230'4'#168#203#4'3'#142#28'.'#172'Ds'#255'7d'#247#10
+  +#19#147#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#7#141#187'v'#223#233#131#248#254'`'#236#254'<'#224#254#27#212#254'.'#216#254
+  +'U'#224#255'{'#232#255#149#235#253'l'#212#238'7'#178#214#9#145#190#2'0'#139
+  +#23'&'#164#14#22#147#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#7#141#187'v'#223#233#131#248#254'`'#236#254'<'#224
+  +#254#27#212#254'.'#216#254'U'#224#255'{'#232#255#149#235#253'l'#212#238'9'
+  +#184#222#10#153#201#4#138#184#13'v'#157#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#7#141#187'}'#223#233
+  +#173#251#254#179#249#255#168#249#254#170#255#254#154#255#254#153#255#254#153
+  +#255#254#153#255#254#143#246#251'k'#227#244')'#187#224#4#145#194#14'}'#167
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  ,#255#255#0#255#7#141#187#195#223#234#250#255#255#229#255#255#207#255#255#185
+  +#255#254#164#255#254#153#255#254#153#255#254#153#255#254#153#255#254#148#253
+  +#254'q'#242#254'>'#205#233#14#128#170#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#7#141#187'h'#176#202#240
+  +#247#250#245#255#255#223#255#255#201#255#254#179#255#254#158#255#254#153#255
+  +#254#153#255#254#153#255#254#153#255#254#132#243#249'0'#170#202#14#128#170
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#7#141#187#14#145#190'|'#192#213'|'#192#213#164#223
+  +#234#148#223#233#131#223#233'w'#223#233'v'#223#233'T'#192#212'T'#192#212#23
+  +#136#175#14#128#170#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#7
+  +#141#187#7#141#187#7#141#187#7#141#187#7#141#187#7#141#187#7#141#187#7#141
+  +#187#7#141#187#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDACACHE','BMP',[
+  'BMv'#6#0#0#0#0#0#0'6'#4#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#8#0#0#0#0#0'@'#2#0
+  +#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#0#255#0#254
+  +#252#252#0#136']O'#0#150'5'#17#0#254#251#250#0#165'N+'#0#172'[9'#0#180'iI'#0
+  +#254#252#251#0#152'D'#16#0#254#248#244#0#189'X'#12#0#254#247#242#0#254#248
+  +#243#0#233#127#30#0#254#244#235#0#254#221#187#0#254#230#206#0#254#246#238#0
+  +#254#247#240#0#254#248#242#0#254#250#246#0#254#251#248#0#254#252#250#0#202'h'
+  +#0#0#254#211#165#0#254#215#171#0#254#217#176#0#254#217#177#0#254#217#178#0
+  +#254#218#180#0#254#220#184#0#254#221#184#0#254#222#188#0#254#224#191#0#254
+  +#224#192#0#254#224#193#0#254#225#193#0#254#226#196#0#254#227#197#0#254#227
+  +#198#0#254#229#202#0#254#234#213#0#254#235#215#0#254#238#220#0#254#244#233#0
+  +#206'r'#8#0#207'u'#11#0#208'z'#17#0#209'}'#21#0#211#127#24#0#212#130#28#0#254
+  +#226#194#0#254#229#199#0#254#233#208#0#254#239#222#0#254#243#230#0#254#247
+  +#239#0#215#138'('#0#216#140'+'#0#217#146'4'#0#254#242#226#0#254#242#227#0#254
+  +#247#238#0#254#251#247#0#254#246#235#0#254#250#244#0#192#182#165#0#147'x@'#0
+  +#128'pC'#0#254#254#251#0#254#254#252#0#192#193#187#0#164#166#159#0'=TS'#0'g'
+  +#255#252#0'd'#254#254#0'e'#254#254#0'f'#255#254#0'g'#255#254#0'j'#255#254#0
+  +#172#182#182#0'\'#250#254#0'['#238#243#0'`'#251#254#0'b'#251#254#0'T'#246#254
+  +#0'T'#221#227#0'K'#240#254#0'P'#243#254#0#135#149#150#0'?'#234#254#0'G'#238
+  +#254#0'6'#229#254#0';'#231#254#0','#222#254#0'/'#224#254#0'%'#217#254#0')'
+  +#218#254#0'('#207#243#0'/'#182#211#0'-'#173#201#0#31#212#254#0#20#203#255#0
+  +#21#204#255#0#25#207#255#0'%'#149#181#0'.MV'#0#135#150#154#0#5#187#255#0#10
+  +#192#255#0#12#194#255#0#12#186#244#0#25#142#181#0#31#136#171#0#3#183#255#0#9
+  +#171#233#0#11#156#212#0#24'z'#163#0'u'#138#146#0#0#175#255#0#0#176#255#0#1
+  +#176#255#0#1#177#255#0#1#167#244#0#2#177#255#0#0#171#255#0#0#173#255#0#0#164
+  +#244#0#0#156#233#0#1#165#244#0#1#157#233#0#1#140#212#0#3#144#212#0#6'u'#173#0
+  +#12'c'#144#0#0#136#212#0#0#137#212#0#0#138#212#0#2'v'#182#0#3'p'#173#0#6'd'
+  +#154#0#10'Ow'#0'6z'#160#0#135#158#171#0#0'p'#182#0#3'V'#138#0#4'W'#138#0#10
+  +'\'#143#0#18'\'#137#0')r'#157#0#0'h'#173#0#1'S'#138#0#1'Q'#137#0#1'R'#137#0#2
+  +'T'#138#0#3'Iz'#0#4'P'#132#0#8'Q'#132#0#9'S'#134#0#10'X'#138#0#12'V'#136#0#14
+  +'Y'#139#0#16'Z'#138#0#19'^'#143#0'.m'#150#0'Uw'#143#0'u'#146#165#0#0'Y'#154#0
+  +#0'R'#145#0#0'N'#134#0#0'J'#130#0#0'K'#130#0#0'L'#130#0#0'F{'#0#1'L'#129#0#2
+  +'N'#132#0#2'J}'#0#8'R'#135#0#128#161#186#0#8'Dw'#0#6'Au'#0#0'2h'#0'7G['#0'GL'
+  +'X'#0#254#254#254#0#220#220#220#0#255#255#255#0#0#0#0#0#0#1#0#0#151' '#206#2
+  +#22#0#0#0#0#255#255#255#0#0#0#0#1#0#0#0#165'D'#203#2#244#2#0#0#0#255#255#255
+  +#1#0#0#0'#'#228#201#2#12'\'#18#0#0#255#255#255#1#0#0#0#0#0#0#0#128'4'#233#2
+  +'dm'#18#0#0#133#230#0#176#0#0#0'>'#0#0#0#0#0#174#1#200'X'#18#0#0#0#0#0#24'['
+  +#18#0#24#238#144'|'#240#6#145'|'#255#255#255#255#235#6#145'|'#201#195#194'w'
+  +#0#0#174#1#0#0#0#0#206#195#194'w'#18#0#0#16#20'y'#23#0#24'y'#23#0#0#0#255#255
+  +#255#0#255#0#252'Z'#18#0#252#0#136']Xm'#18#0#148'\'#195'w'#136' '#193'w'#255
+  +#255#255#255#206#195#194'w'#231#195#194'w'#168#0#0#0'D['#18#0'.'#196#194'w'
+  +#168#0#0#0#15'"'#206#2#16#131#23#0#172#207#203#2#16#131#23#0#172'['#18#0'`'
+  +#154#174#1'dm'#18#0#0#0#0#0'('#181#232#2#2#0#0#0#2#232#201#2#18#0#0#16#20#0#0
+  +#0#156#237#227#2'}'#4#0#0'`'#154#174#1#2#210#210#210#210#210#210#210#210#210
+  +#210#210#210#210#174#174#174#174#174#174#174#2#2#2#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#210#129#129#127#127#127#127#134#174#2#2#254#1#1
+  +#1#1#1#1#1#1#1#1#1#254#210#140#140#140#140#131#127#127#132#174#2#254#1#254
+  +#254#254#1#1#254#1#1#254#1#254#210#184#184#180#184#184#170#127#127#134#174
+  +#254#1#254#1#1#254#1#254#254#254#254#1#254#210#4#176#180#8#9#186#147#127#127
+  +#174#254#1#254#1#1#254#1#254#1#1#254#1#254#210#174'r'#180'3'#27'E'#171#127
+  +#127#174#254#1#254#254#254#1#1#1#254#254#1#1#254#210'rr'#180'5 \'#153#129#129
+  +#174#254#1#1#1#1#1#1#1#1#1#1#1#254#210'kk'#180'Fy'#183#132#129#131#174#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254'_dd'#136#142#141#132#128#129
+  +#174#2#5#187#187#187#6'L'#178'RQQQQTZ`ahjqo'#127#159#185#2#5#187#187#187#187
+  +'>'#181#167#150#149#149'WQW[W'#149#154#154#154#166'K'#9#2#5#187#187#187#187
+  +'3'#187#23#23#14';'#158'WQOW'#180'>(($#'#7#2#5#26#26#26#26#26#26'001=>'#158
+  +'WQW'#144'5000'#26#5#2#5#187#187#187#187#26#187#187#187#23#23'<;'#180'WW'#163
+  +'3(# '#28#5#2#5#187#187#187#187#26#187#187#187#187#187#26#23#14#164'W'#165'3'
+  +'7(# '#5#2#5#187#187#187#187#26#187#187#187#187#187#26#23#23#14#166#145'38+('
+  +'#'#5#2#5#26#26#26#26#26#26#26#26#26#26#26#26#26'1222'#26#26#26#26#5#2#5#187
+  +#187#187#187#26#187#187#187#187#187#26#187'I'#24#12';'#26'?.,'#19#5#2#5#187
+  +#187#187#187#26#187#187#187#187#187#26#187#187#187#25#23#26#17'@9-'#5#2#5#188
+  +#188#188#188#26#188#188#188#188#188#26#188#188#188#188#188#26#188#188#188#188
+  +#5#2#5#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#5#2#13
+  +#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#13#2#2#13#13
+  ,#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+]);
+LazarusResources.Add('TDACONNECTIONMANAGER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'M'#194#11
+  +'c'#221#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0'M'#194#0'M'#194#3'S'#202#7'\'#213#0'M'#194#128#0#0
+  +#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#128#0#0'@'#0#0#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0'M'#194#12'e'#217#17'n'#217#0'M'#194#0'M'
+  +#194#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255
+  +#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0
+  +#255#0#255#255#0#255#255#0#255#0'M'#194#10'c'#217'9'#166#255','#147#255#7'\'
+  +#213#0'M'#194#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#255#0#255#255#0#255#0'M'#194#10'c'#217#29#128#231'0'#154#255#24'w'#243#1
+  +'P'#198#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255
+  +#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#0'M'#194#0'M'#194#10'c'#217'&'#140#243'0'#154#255#13'h'#225#1
+  +'P'#198#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128
+  +#0#0#255#255#255#255#255#255#255#255#255#128#0#0#128#0#0#255#255#255#255#255
+  +#255#128#0#0'@'#0#0'C'#178#255'A'#177#255'4'#159#255#0'M'#194#24'w'#243#0'M'
+  +#194#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#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#128#0#0'@'#0#0'C'#180#255'6'#161#255'('#143
+  +#255#31#130#255#0'M'#194#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#3'S'#198'+'#146#243'*'#146#255' '#131#255#31#129
+  +#255#0'M'#194#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3'Z'#5#8's'#21#3'^'#8#0'Lh'#2
+  +'Q'#198'-'#150#243'F'#183#255' '#131#231#2'Q'#198#25'y'#243#31#129#255#31#129
+  +#255#0'M'#194#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#3'Z'#5#5'e'#12#31#189'M%'#196'R'#6'e'#12
+  +#0'Lc'#3'S'#198'.'#152#243'.'#152#255#19'p'#231#1'P'#198#19'p'#235#31#129#255
+  +#0'M'#194#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#3'Z'#5#3'Z'#5#22#153'08'#227'l?'#233'o'#6
+  +'e'#10#0'L9'#2'Q'#198#28'}'#243#31#129#255#17'm'#231#0'M'#194#17'm'#231#0'M'
+  +#194#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#3'Z'#5#7#138#19#3'Z'#5'$'#175'A7'#226'_'#31
+  +#188'7'#2'['#3#0'L5'#1'P'#198#24'w'#243#31#129#255#17'm'#231#0'M'#194#0'M'
+  +#194#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#3'Z'#5#18#169'.'#19#160'2'#3'Z'#5#17#146#31#15
+  +#165#27#3#135#5#0'U'#0#0'L5'#1'P'#198#24'w'#243#28'~'#251#3'S'#202#0'M'#194
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3'Z'#5#27#182'C'#24#175'='#13#140'!'#3'Z'#5#1'r'#2#0
+  +#129#0#0'~'#0#0'U'#0#0'L5'#1'P'#198#4'V'#206#0'M'#194#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#3'Z'#5#24#172';'#17#156')'#11#139#25#4'r'#9#3'Z'#5#0'i'#0#0#129#0
+  +#0'~'#0#0'['#0#0'L5'#0'M'#194#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3
+  +'Z'#5#16#154'('#10#137#24#5'y'#10#1'l'#2#1'd'#1#3'Z'#5#0'^'#0#0'~'#0#0'U'#0#0
+  +'K'#0#255#0#255#0#189#255#0#189#255#0#189#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3'Z'#5#12#137#29#0'K'#0#4
+  +'w'#9#1'l'#2#1'j'#1#1'j'#1#1'd'#1#0'K'#0#0'N'#0#0'K'#0#255#0#255#7#233#231#7
+  +#233#231#7#233#231#0#189#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3'Z'#5#15#128#29'-'#212'N'#3'm'#6#0'K'#0#0'K'#0#0'K'
+  +#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255#7#233
+  +#231#0#189#255#0#189#255#0#189#255#255#0#255#255#0#255#255#0#255#255#0#255#3
+  +'Z'#5#31#166':-'#212'N'#3'v'#5#0'M'#0#0'K'#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#7#233
+  +#231#7#233#231#7#233#231#255#0#255#255#0#255#255#0#255#255#0#255#3'Z'#5#9'n'
+  +#17'('#206'G'#3#140#6#0'^'#0#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#0#0'K'
+  ,#0#0'`'#1#0'^'#0#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3'Z'#5#6'l'#16#2'X'#5#0'K'
+  +#0#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#10'y'#25#3'Z'#5
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDADBSESSIONMANAGER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'
+  +#3#143#10#17#172'.'#22#175'2'#13#146#15#0#127#0#0'Z'#0#0'Z'#0#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@'#31#189'L'#23#186'K'#15#147#19#140#226#140#17#144#19#0'z'#0#0
+  +']'#0'n-'#19'n-'#19#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@@@"'#202'Y'#15#147#19'p'#211'j'#255#240#239#30#157'"'#7#147#24
+  +#0'\'#0#244'[A'#248'J6n-'#19'n-'#19'@'#0#192#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#23#178'='#15#147#19#160#199#188#251#252#252#25#164'$'#12
+  +#150'%'#0'Z'#1#237#156#136#234#136't'#225'@#n-'#19'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192'@@@'#12')'#24'1X~.X'#146'5i'#130#17#135'8'#0'Z'#0
+  +#184'A'#23#255#240#239#226#176#154#212'C'#31'n-'#19'@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#9#17'?'#7')'#154#5'('#149#2#29#143#2#29#143#184'A'
+  +#23#233#161#140#251#252#252#229#160#136#226'U-n-'#19'@'#0#192#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'@'#0#192'@@@'#14'?'#167#13'A'#181#13'?'#172#14
+  +'@'#175#2#28#145#134'wwZ'#135#153'W'#131#143#149'hR'#181'2'#21#255#0#255'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192#10#28'='#18'T'#213#16'M'#198#17'M'#197#17'M'#197
+  +#17'L'#203#17'W'#139#9'_'#194#4'W'#193#11'n'#154#13#13#13'uuu~~~YYYEuM*'#194
+  +'?;a?BBBBBB========='#3#3#4#0#0#0#10#26'1'#24'j'#229#22'g'#229#22'c'#221#22
+  +'c'#221#23'e'#231#17'W'#139' '#129#251#30'{'#247#22'k'#239#11'n'#154'===dddY'
+  +'YYE'#145'S1'#202'KCiIIIIBBBBBB======'#5#5#6#10#9#7#24#27#31#28'['#169#31#139
+  +#255#31#138#255#31#139#255#31#138#255#17'W'#139')'#145#250'&'#142#250'!'#132
+  +#250#26'p'#235#11'n'#154'^^^YYYJ'#150'Z9'#209'VHnNIIIIIIBBBBBB======%%%USP+2'
+  +':'#17'5]'#19'K'#135#23'W'#154#22'Cx('#142#230'0'#157#251'-'#152#250'('#144
+  +#251#31#130#247#11'n'#154'^^^^^^P'#156'aA'#217'aKzTYYYIIIIIIBBBBBBBBB'#5#5#6
+  +'AABNKJ865'#22#19#19#5#3#3#5#2#1#2'7\5'#166#255'1'#157#251','#150#251'#'#137
+  +#246#11'n'#154'hhh^^^U'#161'iH'#224'mB'#209'aA'#132'LHnNJSKIIIBBBBBB====== '
+  +#31'"'#29#28#28#20#20#20#12#12#12#2'Bm'#29'x'#189'9'#172#255'7'#167#255'4'
+  +#160#255#11'n'#154#23#30#23#138#138#138'bbb\'#139'iP'#232'xH'#224'mA'#217'a9'
+  +#209'V1'#202'K;'#135'FIIIBBBBBB=========&I&'#19'i'#156'R'#152#188#21'c'#146#3
+  +'>h'#3'>h'#0'<j'#11'n'#154'BBB'#255#0#255'bbbbbbX'#230#129'P'#232'xH'#224'mA'
+  +#217'a9'#209'V>'#148'MIIIIIIBBBBBB======''V'''#0#147#0'#w'#166#22'i'#151#7'P'
+  +'~'#0'<j'#30'6'#30'&&&'#129#129#129#255#0#255'uuubbb_'#171'wW'#239#132'P'#232
+  +'xH'#224'mA'#217'a9'#209'V;'#164'M='#128'G?eD;a?4c7"x&'#7#150#9#0#147#0#0#147
+  +#0#0#141#0#0#141#0#10'q'#10'---&&&'#255#0#255#255#0#255#143#143#143'hhhdnh_'
+  +#228#137'W'#239#132'P'#232'xH'#224'mA'#217'a9'#209'V1'#202'K*'#194'?"'#187'4'
+  +#27#179'('#19#172#29#12#164#17#4#157#6#4#157#6#0#147#0#0#141#0'&@&---^^^'#255
+  +#0#255#255#0#255#255#0#255'uuubbbd'#129'n_'#237#140'W'#239#132'P'#232'xH'#224
+  +'mA'#217'a9'#209'V1'#202'K*'#194'?"'#187'4'#27#179'('#19#172#29#12#164#17#4
+  +#157#6#0#147#0'!X!555---'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +'hhhhhhd'#129'n_'#237#140'W'#239#132'P'#232'xH'#224'mA'#217'a9'#209'V1'#202
+  +'K*'#194'?"'#187'4'#27#179'('#19#172#29#15#157#20'''`''===555'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhhhhhdnh_'#181'zW'
+  +#239#132'P'#232'xH'#224'mA'#217'a9'#209'V1'#202'K*'#194'?"'#187'4'''#144'0<O'
+  +'======='#129#129#129#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'uuuhhhbbbakd['#148'kT'#169'jL'#190'gE'#183'^B'#161
+  +'TA'#132'LGZJIIIBBBBBB'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#143#143#143'hhhbbbb'
+  +'bb^^^^^^YYYYYYYYYIIIIIIyyy'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#148#148#148'yyy^^^^^^bbbyyy'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDADATADICTIONARY','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#128#0#0#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#128#0#0
+  +'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255
+  +#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255
+  +#255#128#0#0'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128
+  +#0#0#255#255#255#128#0#0'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255
+  +#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#128#0#0
+  +#255#255#255#255#255#255#128#0#0'@'#0#0#15'A'#180#15'@'#178#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#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#128#0#0'@'#0#0#206#139
+  +'bIg'#166#17'G'#189#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#215#137'^'#226#149'_'#238#172'u'
+  +#131#142#172#19'N'#198#19'N'#198#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#31'w'#254'e'#151#217#252#209
+  +#160#252#209#160#252#209#161#252#211#163#252#211#164#244#197#156#247#203#160
+  +#213#132'U'#220#138'W'#234#169'x'#247#206#169#215#202#197'Bw'#211#21'U'#208
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#31'x'
+  +#255#31'x'#255#220#206#187#254#218#178#254#220#181#254#221#183#254#221#184
+  +#254#222#187#237#191#159#220#153't'#209'zK'#227#151'b'#246#201#159#248#216
+  +#186#251#229#208#252#238#225#138#175#229'#f'#218#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255')m'#207'tgN'#254#224#187#254#230#201#254
+  +#230#202#254#231#204#254#231#206#243#207#178#239#196#165#220#153'r'#233#163
+  +'l'#233#167'w'#247#211#177#250#225#201#251#235#220#254#243#234#254#250#244
+  +#203#221#246'9{'#230#24'b'#225#255#0#255#255#0#255#255#0#255#31'x'#255'fe['
+  +#255#164'5'#254#238#217#254#238#218#254#239#220#254#239#221#254#239#222#244
+  +#216#193#239#203#178#211#128'S'#212'{J'#237#178#135#248#220#193#251#231#213
+  +#252#240#230#254#247#242#255#251#248#255#254#254#221#234#252#26'h'#234#26'f'
+  +#231#255#0#255#255#0#255#31'x'#255#175'u,'#255#192'm'#255#244#231#255#244#233
+  +#255#246#234#255#246#234#252#237#224#233#183#153#221#156'w'#213#130'S'#233
+  +#166'w'#247#209#178#233#213#194#252#238#225#254#246#238#254#250#246#255#254
+  +#252#255#255#255#218#198#198'?\'#153#28'm'#240#255#0#255#255#0#255#31']'#164
+  +#30#188'L'#206#238#207#255#248#242#255#250#243#255#250#243#255#250#244#244
+  +#217#199#243#213#194#220#158'{'#230#164'u'#233#170#127#250#224#199#157#154
+  +#149#158#157#153#235#231#227#255#252#250#255#255#254#255#255#255#202#151#151
+  +'po'#150#29's'#247#255#0#255#31'x'#255#31'eS'#30#188'L'#255#252#248#255#252
+  +#250#255#252#250#255#252#250#255#252#250#248#233#224#238#202#180#208'}P'#213
+  +#128'O'#240#192#156#251#231#212#252#240#229#217#213#208#142#144#142#183#184
+  +#183#255#255#255#247#238#238#191#129#129'7f'#181#255#0#255#255#0#255#31'p'
+  +#237#25'lYl'#193#169#255#254#252#255#254#252#255#254#254#255#255#254#252#244
+  +#239#229#173#143#224#164#130#217#139']'#238#186#146#248#221#197#252#237#222
+  +#254#244#237#254#250#246#255#254#251#183#184#183#201#202#201#206#227#255'\}'
+  +#197#31'x'#255#255#0#255#255#0#255#28'S'#176#0#30#255#193#206#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#224#166#135#225
+  +#157'r'#230#165'z'#225#211#196#217#211#202#254#248#243#255#252#250#255#254
+  +#254#255#255#255#255#255#255'f'#167#255#31'x'#255#255#0#255#255#0#255#255#0
+  +#255#17'7'#176#0#30#255#255#255#255#255#255#255#255#255#255#255#255#255#189
+  +#220#255'z'#180#255'?'#143#255#31'x'#255#127#167#221#251#230#211#234#224#213
+  +#158#158#154#158#159#157#237#235#234#255#255#255#255#255#255#255#255#255')'
+  ,#128#255#31'x'#255#255#0#255#255#0#255#31'x'#255#21'_'#255#132#171#255#238
+  +#246#255#175#211#255'r'#175#255'/'#132#255'/'#132#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'D'#144#248#220#227#238#254#250#246#218#218#216#142#144#143
+  +#183#186#184#255#255#255#159#202#255#31'x'#255#31'x'#255#255#0#255#255#0#255
+  +#31'x'#255#31'x'#255#31'x'#255#31'x'#255#31'x'#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'-'#131#254#144#192#252
+  +#255#254#254#255#255#255#192#193#192#246#246#246'L'#152#255#31'x'#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255']'#163#255#238#246#255#255#255#255#175#211#255#31'x'
+  +#255#31'x'#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#31'x'#255#31'x'#255#31
+  +'x'#255#31'x'#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#31'x'#255#31'x'#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDADATASOURCE','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#128#0#0#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#128#0#0
+  +'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255
+  +#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255
+  +#255#128#0#0'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128
+  +#0#0#255#255#255#128#0#0'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#128#0
+  +#0#128#0#0#128#0#0#128#0#0#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0
+  +#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#128#0#0#255#255
+  +#255#255#255#255#128#0#0'@'#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#128#0#0#128#0#0#128#0#0#255#0#255#255#0#255#128#0#0#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#128#0#0'@'#0#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#255#0#255#255#0#255#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0
+  +#0#255#0#255#255#0#255#128#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#128#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128
+  +#255#255#255#255#255#255#255#255#255#255#255#255#200#208#212#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#128#128#128#255#255#255#200#208#212#200#208
+  +#212#255#255#255#200#208#212#255#255#255#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#255#255#255#128#128#128#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#128#128#128#255#255#255#255#255#255#255#255#255#255#255#255#200#208#212#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#255#255#255#200#208#212
+  +#200#208#212#255#255#255#200#208#212#255#255#255#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#255#255#255#255#255#255#128#128#128#255#0
+  +#255#255#0#255#255#0#255#255#0#255#128#0#0#128#0#0#255#0#255#255#0#255#255#0
+  +#255#128#128#128#255#255#255#255#255#255#255#255#255#255#255#255#200#208#212
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#128#128#128#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#255#0#255#255#0#255#128#128#128#255#255#255#200#208#212#200
+  +#208#212#255#255#255#200#208#212#255#255#255#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#255#255#255#128#128#128#255#0#255
+  +#255#0#255#255#0#255#255#0#255#128#0#0#128#0#0#255#0#255#255#0#255#255#0#255
+  +#128#128#128#255#255#255#255#255#255#255#255#255#255#255#255#200#208#212#255
+  ,#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#128#128#128#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#128#128#128#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDADATATABLE','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#5'f'#149#5'f'#149#5'f'#149#5'f'#149#5'f'#149#5'f'#149#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#2't'#169'0'#201
+  +#233#18#203#254' '#206#254'T'#222#255't'#224#248','#167#211#5'f'#149#255#0
+  +#255#128#0#0#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#128#0#0
+  +'@'#0#0#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222#255't'
+  +#224#248'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255#255#128#0#0#128#0#0
+  +#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255
+  +#255#255#128#0#0'@'#0#0#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254
+  +'T'#222#255't'#224#248'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255#255#128
+  +#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128
+  +#0#0#255#255#255#128#0#0'@'#0#0#2't'#169's'#250#254'?'#227#254#18#203#254' '
+  +#206#254'T'#222#255't'#224#248'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255
+  +#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255
+  +#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#2't'#169#159#251#254#163#243
+  +#255#182#242#255#218#248#255#229#250#255#216#247#254#154#220#239'A'#172#213#5
+  +'f'#149#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255
+  +#255#255#255#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#2't'#169
+  +#167#233#243#28#170#211#7#145#197#7#136#188#16#139#188#31#145#191#20'y'#173
+  +'y'#192#220#5'g'#150#128#0#0#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#128#0#0'@'#0#0#2't'#169'1'#181#211'?'#227#254#18#203#254' '#206#254
+  +'T'#222#255't'#224#248'0'#176#218#2'h'#163#3'h'#154#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0'4'#144'4'#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222
+  +#255't'#224#248'0'#176#218#3#134#193#5'f'#149#150'5'#17#254#254#254#254#254
+  +#254#254#254#251#254#250#247#0'e'#0#254#246#237#254#243#230#254#240#225#254
+  +#237#218#254#233#211#0'e'#0#254#226#197#254#233#208#2't'#169's'#250#254'?'
+  +#227#254#18#203#254' '#206#254'T'#222#255't'#224#248'0'#176#218#3#134#193#5
+  +'f'#149#150'5'#17#254#254#254#254#254#254#254#254#254#254#254#252#0'e'#0#254
+  +#248#243#254#246#239#254#244#233#254#242#226#254#238#221#0'e'#0#254#230#206
+  +#254#235#216#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222#255
+  +'t'#224#248'0'#176#218#3#134#193#5'f'#149#150'5'#17#254#254#254#254#254#254
+  +#254#254#254#254#254#254#0'e'#0#254#251#250#254#250#244#254#247#240#254#244
+  +#234#254#242#227#0'e'#0#254#235#215#254#238#222#2't'#169'x'#251#254'h'#246
+  +#255'T'#246#255'_'#254#255#127#254#255#137#251#254'H'#207#242#5#139#199#5'f'
+  +#149#150'5'#17#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0
+  +#0'e'#0#0'e'#0#0'e'#0'4'#144'4'#2't'#169#251#255#255#240#255#255#198#255#255
+  +#160#255#255#152#255#255#152#255#255#147#255#255'W'#247#254#5'f'#149#150'5'
+  +#17#254#254#254#254#254#254#254#254#254#254#254#254#0'e'#0#254#254#254#254
+  +#254#254#254#252#252#254#251#247#254#248#243#0'e'#0#254#243#233#254#240#225
+  +#254#243#230#4'y'#175#237#250#252#220#255#255#183#255#255#153#255#255#146#255
+  +#255#131#250#251#8'k'#154#255#0#255#150'5'#17#254#254#254#254#254#254#254#254
+  +#254#254#254#254#0'e'#0#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#252#250#0'e'#0#254#247#239#254#244#234#254#242#227#254#244#231#2't'#169#2't'
+  +#169#2't'#169#2't'#169#2't'#169#2't'#169#150'5'#17#255#0#255#150'5'#17#254
+  +#254#254#254#254#254#254#254#254#254#254#254#0'e'#0#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#0'e'#0#254#250#246#254#247#242#254#244
+  +#235#254#242#229#254#239#224#0'e'#0#254#233#208#254#229#202#254#226#196#254
+  +#222#188#150'5'#17#255#0#255#150'5'#17#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0
+  +'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0
+  +'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#150'5'#17#255#0#255#150'5'#17#254#254#254
+  +#254#254#254#254#254#254#254#254#254#0'e'#0#254#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#0'e'#0#254#254#254#254#254#252#254#251#248#254
+  +#248#244#254#247#239#0'e'#0#254#242#226#254#238#220#254#234#213#254#230#206
+  +#150'5'#17#255#0#255#150'5'#17#254#254#254#254#254#254#254#254#254#254#254
+  +#254#0'e'#0#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#0'e'
+  +#0#254#254#254#254#254#254#254#254#254#254#252#250#254#250#246#0'e'#0#254#244
+  +#235#254#242#227#254#239#222#254#235#215#150'5'#17#255#0#255#150'5'#17#220
+  +#220#220#220#220#220#220#220#220#220#220#220#0'e'#0#220#220#220#220#220#220
+  ,#220#220#220#220#220#220#220#220#220#0'e'#0#220#220#220#220#220#220#220#220
+  +#220#220#220#220#220#220#220#0'e'#0#220#220#220#220#220#220#220#220#220#220
+  +#220#220#150'5'#17#255#0#255#150'5'#17#152'D'#16#152'D'#16#152'D'#16#152'D'
+  +#16#152'D'#16#152'D'#16#152'D'#16#152'D'#16#152'D'#16#152'D'#16#152'D'#16#152
+  +'D'#16#152'D'#16#152'D'#16#152'D'#16#152'D'#16#152'D'#16#152'D'#16#152'D'#16
+  +#152'D'#16#152'D'#16#150'5'#17#255#0#255#189'X'#12#233#127#30#233#127#30#233
+  +#127#30#233#127#30#233#127#30#233#127#30#233#127#30#233#127#30#233#127#30#233
+  +#127#30#233#127#30#233#127#30#233#127#30#233#127#30#233#127#30#233#127#30#233
+  +#127#30#233#127#30#233#127#30#233#127#30#233#127#30#189'X'#12#255#0#255#255#0
+  +#255#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12
+  +#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'
+  +#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12#189'X'#12#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDADATASETPROVIDER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#0#0#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#128#0#0'@'#0#0#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#128#128#128#128
+  +#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#255#255#255#128#128
+  +#128#0#0#0#192#220#192#0#0#0#128#128#128#255#255#255#255#255#255#255#255#255
+  +#128#128#128#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255
+  +#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0#0#128#128
+  +#128#0#0#0#255#255#255#128#128#128#255#255#255#0#0#0#128#128#128#255#255#255
+  +#255#255#255#128#128#128#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128
+  +#0#0'@'#0#0#0#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#128#128#128#255#255#255#255#255#255#128#128#128#128#0#0#255#255#255#128#0#0
+  +#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#128#0#0#255#255
+  +#255#255#255#255#128#0#0'@'#0#0#192#220#192#128#128#128#255#255#255#0#0#0#255
+  +#255#255#128#128#128#192#220#192#255#255#255#255#255#255#128#128#128#128#0#0
+  +#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#128#0#0'@'#0#0#0#0#0
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#0#255#255
+  +#255#255#255#255#128#128#128#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#128
+  +#128#0#0#0#255#255#255#128#128#128#255#255#255#0#0#0#128#128#128#255#255#255
+  +#255#255#255#128#128#128#255#0#255#128#128#128#192#220#192#255#255#255#255
+  +#255#255#192#220#192#192#220#192#0#0#0#255#0#255#128#128#128#128#128#128#128
+  +#128#128#255#255#255#255#255#255#255#255#255#128#128#128#0#0#0#192#220#192#0
+  +#0#0#128#128#128#255#255#255#255#255#255#255#255#255#128#128#128#255#0#255
+  +#128#128#128#192#220#192#192#220#192#255#255#255#255#255#255#192#220#192#0#0
+  +#0#255#0#255#128#128#128#192#220#192#128#128#128#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#128#128#128#255#0#255#128#128#128#192#220#192
+  +#255#255#255#255#255#255#192#220#192#192#220#192#0#0#0#255#0#255#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#255#0#255#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#192#220#192
+  +#255#255#255#255#255#255#255#255#255#192#220#192#0#0#0#255#0#255#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#255#0#255#128#128#128#128#128#128#255#255#255#255#255#255
+  +#255#255#255#128#128#128#0#0#0#255#0#255#128#128#128#192#220#192#128#128#128
+  +#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#128#128#128#255#0
+  +#255#255#0#255#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#255#0#255#255#0#255#128#128#128#255#255#255#128#128#128#255#255#255#255#255
+  +#255#255#255#255#128#128#128#0#0#0#192#220#192#0#0#0#128#128#128#255#255#255
+  +#255#255#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#192#220#192
+  +#128#128#128#255#255#255#255#255#255#128#128#128#0#0#0#255#255#255#128#128
+  +#128#255#255#255#0#0#0#128#128#128#255#255#255#255#255#255#128#128#128#255#0
+  +#255#255#0#255#255#0#255#128#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#128#128#128#255#255#255#128#128#128#255#255#255#255#255#255#0#0#0#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#128#128#128#255#255
+  +#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#128#0#0#255#0#255
+  +#128#0#0#255#0#255#255#0#255#255#0#255#128#128#128#192#220#192#128#128#128
+  ,#255#255#255#255#255#255#192#220#192#128#128#128#255#255#255#0#0#0#255#255
+  +#255#128#128#128#192#220#192#255#255#255#255#255#255#128#128#128#255#0#255
+  +#255#0#255#255#0#255#128#0#0#255#0#255#128#0#0#128#0#0#255#0#255#255#0#255
+  +#128#128#128#255#255#255#128#128#128#255#255#255#255#255#255#0#0#0#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#0#255#255#255#255
+  +#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#128#0#0
+  +#128#0#0#128#0#0#255#0#255#128#128#128#192#220#192#128#128#128#255#255#255
+  +#255#255#255#128#128#128#0#0#0#255#255#255#128#128#128#255#255#255#0#0#0#128
+  +#128#128#255#255#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#255#0#255#255#0#255#128#128#128#128#128
+  +#128#128#128#128#255#255#255#255#255#255#255#255#255#128#128#128#0#0#0#192
+  +#220#192#0#0#0#128#128#128#255#255#255#255#255#255#255#255#255#128#128#128
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#255#0#255#255#0
+  +#255#255#0#255#128#128#128#192#220#192#128#128#128#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#128#128#128#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128
+]);
+LazarusResources.Add('TDADESIGNTIMECALL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#1'2'#2
+  +#1'2'#2#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#2'p'#7#1'J'#4#1'2'#2#1'2'#2
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#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#128#0#0'@'#0#0#3#166#12#3
+  +#166#12#3'{'#9#1'J'#4#1'2'#2#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#128
+  +#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#3#154#11#3
+  +#154#11#3#166#12#3#166#12#2'l'#7#1'2'#2#255#0#255#255#0#255#255#0#255#255#0
+  +#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0#0#3#166#12#3#166#12
+  +#3#154#11#3#166#12#3#166#12#2'l'#7#1'2'#2#255#0#255#255#0#255#255#0#255#128#0
+  +#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#3#154#11#3#154#11
+  +#3#154#11#3#154#11#3#166#12#3#166#12#2'l'#7#1'2'#2#255#0#255#255#0#255#128#0
+  +#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255
+  +#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#3#154#11#3#166#12#3
+  +#154#11#3#166#12#3#154#11#3#166#12#3#166#12#1'J'#4#255#0#255#255#0#255#128#0
+  +#0#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#128#0#0'@'#0#0#3
+  +#166#12#3#154#11#3#154#11#3#154#11#3#154#11#3#154#11#3#166#12#3'{'#9#1'2'#2
+  +#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#3#154#11#3#154#11#3#166#12#3#154#11
+  +#3#166#12#3#154#11#3#166#12#3#154#11#3#166#12#1'@'#3#255#0#255#1'J'#4#7'i'#20
+  +#28#184'P'#25#177'A'#20#175'A'#218#244#225#246#252#246'#'#176'-'#3#154#11#3
+  +#166#12#3#154#11#3#154#11#3#166#12' '#175'+.'#181'9'#3#154#11#3#166#12#3#154
+  +#11#3#154#11#3#154#11#3#166#12#3#166#12#1'Y'#5#2'='#4#1'Y'#5#13#128'#!'#186
+  +'V'#28#178'N'#20#175'A'#218#244#225#255#255#255#153#222#160#8#163#25#8#163#25
+  +#6#164#21#8#163#25#8#161#22'='#187'G'#231#247#233'Y'#199'c'#3#154#11#3#166#12
+  +#3#154#11#3#166#12#3#154#11#3#166#12#2'p'#7#2'='#4#1'Y'#5#19#144'/*'#191'`'
+  +#30#180'P"'#181'T'#181#233#199#255#255#255#255#255#255#134#217#160')'#183'Q'
+  +#25#177'A'#28#178'N)'#183'Q1'#182'?'#255#255#255#255#255#255'r'#208'z'#3#154
+  +#11#3#166#12#3#154#11#3#154#11#3#166#12#3#129#9#1'2'#2#2'l'#7#29#154'9C'#197
+  +'s"'#181'T"'#181'Tc'#206#138#255#255#255#255#255#255#255#255#255#202#239#216
+  +'}'#215#158'W'#202#128'W'#202#128#132#216#144#255#255#255#255#255#255#255#255
+  +#255#146#220#153#8#163#25#3#154#11#3#166#12#3#166#12#3#129#9#1'@'#3#4'm'#8#29
+  +#154'9\'#208#137'9'#191'h"'#181'T('#184'Y'#183#234#202#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#178#230#186'1'#182'?'#3#154#11#3#166#12
+  +#3#129#9#2'='#4#3'u'#9#26#150'0l'#212#149'Y'#205#133'"'#181'T"'#181'T9'#191
+  +'h'#192#237#209#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#159
+  +#225#175#6#164#21#3#166#12#4'm'#8#2'='#4#255#0#255#14#139#28'l'#212#149#134
+  +#217#160'='#192'k'#22#175'I"'#181'T('#184'Y'#140#220#170#230#248#237#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#178#230#186'#'#178';'#4#159#17#3#166#12#1'Y'#5#255#0#255#255#0
+  +#255#15#146#28'I'#193'l'#167#230#192'v'#213#152'('#184'Y'#22#175'I"'#181'T"'
+  +#181'T9'#191'hv'#213#152#177#231#198#208#242#221#246#252#246#255#255#255#255
+  +#255#255#255#255#255#147#221#163#22#171'-'#8#163#25#6#164#21#4#159#17#1'@'#3
+  +#255#0#255#255#0#255#255#0#255#26#161'1'#154#227#186#181#233#199'Y'#205#133
+  +'"'#181'T'#20#175'A'#30#180'P"'#181'T"'#181'T"'#181'T9'#191'h'#159#225#175
+  +#255#255#255#255#255#255'z'#212#138#22#171'-'#12#167'$'#8#163#25#9#176#28#3
+  +'u'#9#255#0#255#255#0#255#255#0#255#255#0#255'('#161'2I'#193'l'#183#234#202
+  +#183#234#202'W'#202#128'('#184'Y'#22#175'I'#30#180'P"'#181'T'#30#180'P'#30
+  +#180'P'#147#222#175#246#252#246'Y'#205#133#16#170'0'#16#170'0'#12#173''''#12
+  +#173''''#12#167'$'#1'@'#3#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#20#156'$k'#209#139#192#237#209#189#237#208'v'#213#152'9'#191'h"'#181'T'#28
+  +#178'N('#184'Y"'#181'Tl'#212#149'Y'#205#133#25#177'A'#25#177'A'#21#166'<'#16
+  +#170'0'#15#176'-'#5'_'#13#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#21#151'$l'#212#149#192#237#209#208#242#221#164#227#188
+  ,'l'#212#149'P'#198'y9'#191'h('#184'Y='#192'k9'#191'h9'#191'h('#184'Y '#183'L'
+  +#25#177'A'#7'i'#20#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#28#158'(O'#196's'#154#227#186#189#237#208
+  +#192#237#209#183#234#202#154#227#186#140#220#170#129#217#164'l'#212#149'Y'
+  +#205#133'9'#191'h '#183'L'#7'i'#20#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#28#158
+  +'('#26#161'1P'#198'y'#129#217#164#149#226#181#149#226#181#140#220#170'v'#213
+  +#152'\'#208#137'9'#191'h'#22#145'2'#5'_'#13#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#28#158'('#26#161'1&'#169'C&'#169'C&'#169'C#'
+  +#161'@'#19#144'/'#2'l'#7#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDADIAGRAMS','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#5'f'#149#5'f'#149#5'f'#149#5'f'#149#5'f'#149#5'f'#149#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#142']Y'#2't'#169'0'#201#233
+  +#18#203#254' '#206#254'T'#222#255't'#224#248','#167#211#5'f'#149#255#0#255
+  +#128#0#0#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#128#0#0'@'#0
+  +#0#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222#255't'#224#248
+  +'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222
+  +#255't'#224#248'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255#255#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255
+  +#255#255#128#0#0'@'#0#0#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254
+  +'T'#222#255't'#224#248'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255#255#128
+  +#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255
+  +#255#128#0#0#255#255#255#128#0#0'@'#0#0#2't'#169#159#251#254#163#243#255#182
+  +#242#255#218#248#255#229#250#255#216#247#254#154#220#239'A'#172#213#5'f'#149
+  +#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255
+  +#255#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#2't'#169#167#233
+  +#243#28#170#211#7#145#197#7#136#188#16#139#188#31#145#191#20'y'#173'y'#192
+  +#220#5'f'#149#128#0#0#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
+  +#128#0#0'@'#0#0#2't'#169'1'#181#211'?'#227#254#18#203#254' '#206#254'T'#222
+  +#255't'#224#248'0'#176#218#2'h'#163#3'h'#154#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0';'
+  +#192'['#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222#255't'
+  +#224#248'0'#176#218#3#134#193#5'f'#149#152'ic'#249#238#225#251#242#234#0'K'#0
+  +#28#186'G'#28#186'G'#25#181'A'#0'K'#0#244#218#185#242#213#176#242#212#174#0
+  +'K'#0#28#186'GA'#201'k'#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254
+  +'T'#222#255't'#224#248'0'#176#218#3#134#193#5'f'#149#163'rf'#246#238#233#251
+  +#242#234#0'K'#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#244#218#185#244#218#182#242#212
+  +#174#0'K'#0#0'K'#0#30'k'#30#2't'#169's'#250#254'?'#227#254#18#203#254' '#206
+  +#254'T'#222#255't'#224#248'0'#176#218#3#134#193#5'f'#149#167'uh'#248#243#240
+  +#253#249#245#251#242#234#251#242#230#0'e'#0#247#230#209#246#226#204#240#222
+  +#204#244#218#185#244#218#185#242#213#176#242#212#174#30#129#30#2't'#169'x'
+  +#251#254'h'#246#255'U'#246#254'_'#254#255'x'#251#254#137#251#254'H'#207#242#5
+  +#139#199#5'f'#149#172'yi'#248#243#240#255#254#254#248#243#240#251#242#234#0
+  +'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#30#129#30#2't'#169#255
+  +#254#254#240#255#255#198#255#255#160#255#255#159#251#254#159#251#254#146#255
+  +#255'U'#246#254#5'f'#149#177'~k'#248#243#240#255#254#254#255#254#254#248#243
+  +#240#254#247#241#249#238#225#248#234#216#247#230#209#0'e'#0#245#222#192#245
+  +#222#192#242#213#176#242#213#176#244#218#185#4'y'#175#240#255#255#218#248#255
+  +#183#255#255#159#251#254#137#251#254#131#250#251#8'k'#154#255#0#255#182#129
+  +'l'#248#243#240#255#254#254#255#254#254#255#254#254#251#242#234#248#243#240
+  +#251#242#230#248#234#216#0'e'#0#247#230#209#245#222#192#245#222#192#244#218
+  +#185#242#213#176#244#218#185#2't'#169#2't'#169#2't'#169#2't'#169#2't'#169#2
+  +'t'#169#255#0#255#255#0#255#187#132'n'#248#243#240#255#254#254#255#254#254
+  +#255#254#254#255#254#254#251#242#234#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#245#222#192#244#218#185#242#213#176#242#212#174#240#208#165#240#207#163#128
+  +'PK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#192#137'o'#253#249#245
+  +#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#0#0#130#13'4'
+  +#255#4''''#255#0#30#255#0#0#130#246#224#193#245#222#192#244#218#182#242#213
+  +#176#242#212#174#240#208#165#128'PK'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#192#137'o'#253#249#245#255#254#254#255#254#254#255#254#254#255#254
+  +#254#255#254#254#0#0#130'(S'#255#26'D'#255#13'4'#255#0#0#130#247#230#209#246
+  +#224#193#245#222#192#244#218#185#242#213#176#242#212#174#128'PK'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#203#145's'#248#243#240#255#254#254
+  +#255#254#254#255#254#254#255#254#254#255#254#254#0#0#130'1^'#255'1^'#255'(S'
+  +#255#0#0#130#248#234#216#247#230#209#246#226#204#244#218#185#244#218#185#244
+  +#218#182#128'PK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#203#145's'
+  +#253#249#245#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#0#0
+  ,#130#0#0#130#0#0#130#0#0#130#0#0#130#249#238#225#248#234#216#247#230#209#246
+  +#224#193#246#224#193#244#218#182#128'PK'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#212#152'u'#253#249#245#255#254#254#255#254#254#255#254#254#255
+  +#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#251#242
+  +#234#253#249#245#248#234#216#248#234#216#248#234#216#246#224#193#245#222#192
+  +#128'PK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#212#152'u'#253#249
+  +#245#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254
+  +#255#254#254#255#254#254#255#254#254#253#249#245#251#242#234#251#242#234#250
+  +#238#222#248#234#216#248#234#216#246#224#193#128'PK'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#212#152'u'#255#254#254#255#254#254#255#254#254#255
+  +#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254
+  +#254#255#254#254#253#249#245#254#247#241#251#242#230#248#234#216#248#234#216
+  +#246#224#193#128'PK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#207
+  +#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207
+  +#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207
+  +#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDADRIVERMANAGER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#129#30#0
+  +#129#30#0#131#31#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#128#0#0#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#128#0#0
+  +'@'#0#0#129#30#0#129#30#0#136'%'#2#247#172'Q'#131#31#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#189'O'#3#173'E'#6#222'}'#31#255#173'C'#255#184'Z'#131#31#0
+  +#131#31#0#131#31#0#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255
+  +#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255
+  +#255#128#0#0'@'#0#0#255#134#3#255#140#12#255#152#28#255#163'/'#255#175'E'#255
+  +#186']'#255#198'v'#131#31#0#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0'@'#0#0#255#146#19#255#134#3#255#142#13#230#127
+  +#23#255#164'2'#255#176'G'#255#187'_'#131#31#0#255#0#255#255#0#255#128#0#0#255
+  +#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0
+  +#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#255#164'2'#247#136#15#154'0'
+  +#0#130#31#0#137'$'#1#230#137')'#255#177'I'#213#130'8'#131#31#0#255#0#255#128
+  +#0#0#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#128#0#0'@'#0#0
+  +#255#183'V'#154'0'#0#255#0#255'_'#9#0'}'#27#0#167'A'#9#255#166'5'#255#177'L'
+  +#188'K'#0#140'+'#5#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#255#216#159#255#202#128#154
+  +'0'#0#255#0#255'L'#0#0'i'#14#0#163':'#4#255#156'#'#255#167'7'#255#178'N'#131
+  +#31#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#130#0'K'#130'"'
+  +#143#186'o'#220#248#3'_'#150#149','#0#181'D'#0#173'Z,'#255#217#161#255#216
+  +#158#154'0'#0#255#0#255'h'#13#0#150'-'#0#176'B'#2#255#146#19#255#157'%'#188
+  +'K'#0#129#30#0#255#0#255#255#0#255#0'M'#132#2'W'#138#0'K'#130#0'K'#130#15#129
+  +#177'@'#201#240'c'#222#255'^'#203#234#3'_'#150#24'f'#142'(f}'#197'}K'#255#217
+  +#161#255#215#157#154'0'#0#165'B'#14#169'C'#9#247#130#7#255#136#6#238#130#17
+  +#131#31#0#255#0#255#255#0#255#255#0#255#0'X'#144#4'g'#153#19#201#254#15#199
+  +#254'!'#206#254'5'#211#254'L'#217#254'e'#224#255#127#229#255#154#235#255#3'_'
+  +#150#189'rA'#255#217#161#255#217#161#255#215#154#255#196's'#255#175'F'#255
+  +#154'!'#255#136#6#131#31#0#255#0#255#255#0#255#255#0#255#255#0#255#0'['#147#3
+  +'d'#152'('#194#240#17#199#254#17#199#254'#'#206#254'7'#212#254'N'#217#254'g'
+  +#224#255#129#230#255#3'_'#150#222#163'n'#255#217#161#255#217#161#255#217#161
+  +#255#213#152#255#194'n'#255#173'C'#255#153#30#131#31#0#255#0#255#255#0#255
+  +#255#0#255#0'K'#130#1'd'#157#3'i'#157'I'#203#240'-'#208#254#13#180#233#0'K'
+  +#130#3'Z'#140#27#146#192'P'#218#254'j'#224#255')x'#149#149'I"'#158'@'#17#172
+  +'A'#4#222#163'n'#255#217#161#230#172'p'#131#31#0#131#31#0#157'5'#3#255#0#255
+  +#255#0#255#0'K'#130#1'd'#156#11'v'#166'b'#184#213#129#230#255'R'#218#255#0'K'
+  +#130#255#0#255#0'K'#130#0'K'#130'*'#177#220'S'#218#255'Z'#208#240#3'_'#150'['
+  +'-'#24#238's'#0#158'<'#10#255#217#161#131#31#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0'K'#130#4#138#193'i'#186#213#186#242#255#171#239#255'{'
+  +#229#255#0'K'#130#255#0#255#0'Q'#137#0'K'#130#23#153#199'>'#213#254'U'#220
+  +#255'n'#225#255#3'_'#150#140'&'#0#149','#0#149'6'#15#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0'S'#139#3#129#187#28#137#181#144#213
+  +#234#186#242#255#167#238#255#0'K'#130#255#0#255#0'K'#130#2'f'#156#18#169#220
+  +'*'#208#254'@'#213#254#3'_'#150#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#130#3
+  +#139#197#12'~'#173#171#233#248#186#242#255#131#211#234#0'K'#130#3'j'#157#13
+  +#139#188#12#198#254#24#202#254#26#166#213#0'K'#130#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0'K'#130#5#147#201#144#213#234#186#242#255#184#242#255
+  +#159#237#255'n'#225#255'B'#215#254#28#203#254#12#198#254#0'K'#130#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#130#6#139#191#186#242#255
+  +#186#242#255#186#242#255#184#242#255#154#235#255'j'#225#255'>'#213#254#25#203
+  +#254#0'K'#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  ,#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2'}'#182#0
+  +'K'#130#0'K'#130'0'#153#193':'#157#193#186#242#255#183#242#255'j'#198#227#0
+  +'K'#130#0'K'#130#9'y'#170#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0'\'#149#6#169#225'\'#177#207#171#233#248
+  +#0'K'#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#130#0'K'
+  +#130#0'K'#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDAHETDRIVER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#129#30#0'w'#23#0'w'#23#0#255#0#255#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255#129#30
+  +#0#129#30#0#129#30#0#252#154'*'#184':'#0#184':'#0#128'*'#3#255#0#255#128#0#0
+  +#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#128#0#0'@'#0#0#255#0
+  +#255#130#24#0#129#30#0#248'w'#0#255#129#0#255#149#19#255#170'4'#255#189'Z'
+  +#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255
+  +#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#5'f'#149#130#24#0'y'#16#0#255#158' '#252'w'#0#143#30#0#213'g'#10#255#171
+  +'8'#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#130#24#0#130#24#0#221#152'Z'#255#191']'#186'M'#5#255#0#255'v'#12#0#242#134
+  +#20#252#160'4'#138#31#0#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#0'R'#143#0'6o  '
+  +' Q6'#24#171'3'#0#233#171'n'#255#215#146#193'e%'#255#0#255'v'#12#0#242'w'#1
+  +#255#150#25#138#31#0#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255
+  +#255#255#255#255#255#255#128#0#0#0'R'#143#0'R'#143#0'R'#143#6#140#194',Xb   '
+  +'   HF:'#255#218#154#233#170'j'#145'%'#0#193'M'#0#255'~'#0#138#31#0#255#0#255
+  +#128#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#0'6p'#0'j'#161#2#199#255#9#202#255'"NY.YbAks   '
+  +#255#218#154#255#218#154#255#211#137#255#177'C'#255#138#7#138#31#0#255#0#255
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#0'9'
+  +'u'#4'v'#170'('#212#255#0#158#218#0'N'#138#22#163#212'R'#224#255#0'v'#186#196
+  +'f#'#203'g'#25#255#218#154#184':'#0#184':'#0#184':'#0#255#0#255#255#0#255#2
+  +'t'#169'['#213#226'i'#246#254'E'#230#254'%'#215#254#13#199#254#26#204#254#0
+  +';v'#11#128#176#156#233#254'h'#230#255'#'#165#212#0'A~'#0'F'#129'0'#215#255
+  +'M'#215#254'%_p'#184':'#0#184':'#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#2't'#169'['#213#226#127#247#254'z'#238#254'}'#233#254#135#231#255
+  +#163#237#255#0';v'#3'{'#176#165#235#254#167#243#255'^'#193#226#0'L'#138#0'N'
+  +#138#19#204#255'-'#206#252#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#2't'#169#160#233#239#170#238#246'p'#207#229'?'
+  +#177#211#29#149#192#17#131#177#15'{'#170#0'@z'#24#150#196#182#246#255'~'#212
+  +#238#3'g'#157#13#182#235#1#198#255#13'b'#145#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3'p'#164'T'#177#202'('#156
+  +#188'&'#171#207#27#182#224#12#183#237#24#198#247':'#213#254#0'A~'#27#153#196
+  +#181#244#255#182#246#255#154#240#255'N'#222#255#13#202#255#13'b'#145#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#4
+  +'l'#158'?'#180#203'f'#242#251'E'#230#254'%'#215#254#13#199#254#26#204#254';'
+  +#215#255'`'#225#255#0'Ay'#0'E~;'#175#213#182#246#255#13'b'#145#13'b'#145#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#2's'#167'['#213#226'i'#246#254'E'#230#254'%'#215#254#13#199#254#26
+  +#204#254';'#215#255'`'#225#255'}'#229#252'Q'#199#233#0'A{'#0'E{'#1'z'#180#5
+  +'f'#149#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#2't'#169'['#213#226'i'#246#254'E'#230#254#128#128#128#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#255#0#255#255#0#255#2't'#169'['#213#226'i'#246#254
+  +'E'#230#254#128#128#128#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#0#0#0#255#0
+  +#255#255#0#255#2't'#169'['#213#226'i'#246#254'E'#230#254#128#128#128#255#255
+  +#255#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0
+  +#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#255#255
+  +#255#0#0#0#255#0#255#255#0#255#2't'#169'['#213#226'i'#246#254'E'#230#254#128
+  +#128#128#255#255#255#128#0#0#192#220#192#255#255#255#192#220#192#128#0#0#255
+  +#255#255#128#0#0#192#220#192#255#255#255#255#255#255#255#255#255#128#0#0#255
+  +#255#255#255#255#255#255#255#255#0#0#0#255#0#255#255#0#255#2't'#169'c'#213
+  +#226#152#250#254#159#247#255#128#128#128#255#255#255#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#192#220#192#255#255#255
+  +#128#0#0#255#255#255#255#255#255#255#255#255#0#0#0#255#0#255#255#0#255#2't'
+  +#169#178#213#227#248#255#255#221#255#255#128#128#128#255#255#255#128#0#0#192
+  ,#220#192#255#255#255#192#220#192#128#0#0#255#255#255#128#0#0#192#220#192#255
+  +#255#255#255#255#255#192#220#192#128#0#0#192#220#192#255#255#255#255#255#255
+  +#0#0#0#255#0#255#255#0#255#2't'#169'M'#156#187#235#244#248#242#255#255#128
+  +#128#128#255#255#255#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#255
+  +#255#255#128#0#0#128#0#0#192#220#192#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#255#255#255#0#0#0#255#0#255#255#0#255#255#0#255#2't'#169#5'x'#172'b'#175#201
+  +#128#128#128#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#0#0#0#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#2't'#169#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#255#0#255#0#0
+]);
+LazarusResources.Add('TDAJSONDATASTREAMER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#142']'
+  +'Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#225#189#255#221#181#255#217#172#255
+  +#213#165#255#211#157#255#207#151#255#203#145#255#201#140#255#199#135#128'PK'
+  +#128#0#0#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#128#0#0'@'#0
+  +#0#255#231#203#255#227#194#255#224#187#255#220#178#255#216#171#0#0#0#0#0#0
+  +#255#206#149#255#203#143#128'PK'#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#255#238#217#255#233#208#255#230#199#255#226#191#0#0#0#255#216
+  +#171#255#216#171#0#0#0#255#207#152#128'PK'#128#0#0#255#255#255#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255
+  +#255#255#128#0#0'@'#0#0#255#243#229#255#240#222#255#235#213#255#233#204#255
+  +#229#197#255#221#182#255#221#182#0#0#0#255#213#165#128'PK'#128#0#0#255#255
+  +#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255
+  +#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#7'9z'#255#246#233#255#242#225
+  +#255#238#218#255#234#209#255#229#197#255#229#197#0#0#0#255#218#176#128'PK'
+  +#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255
+  +#255#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#255#254#250#255
+  +#250#244#255#248#239#255#244#231#255#240#222#255#234#209#255#234#209#0#0#0
+  +#255#225#189#128'PK'#128#0#0#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#128#0#0'@'#0#0#255#255#255#255#254#252#255#252#247#255#250#242#255
+  +#246#235#0#0#0#0#0#0#0#0#0#255#231#203#128'PK'#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#254#250#255#251#246#255
+  +#248#239#255#244#231#255#240#222#255#238#217#128'PKHJK'#201#194#201#7'9z'#7
+  +'9z'#7'9z='#154#242'5'#149#239'-'#140#239#7'9z'#7'9z'#7'9zyyy'#194#140'm'#255
+  +#255#255#255#255#255#255#255#255#137#167#199#7'9z'#137#167#199#255#252#248
+  +#247#240#235#226#218#209#226#216#204'{MIHJK'#206#199#204#191#184#192#7'9z@'
+  +#157#242'@'#157#242'@'#157#242'9'#152#240'2'#145#239#7'9zE_{yyy'#203#147'o'
+  +#255#255#255#255#255#255#137#167#199#7'9z'#15's'#233#7'9z'#137#167#199#234
+  +#233#230#182#180#176#182#177#171'uIEHJK'#209#202#209#194#188#194'h'#129#163#7
+  +'9z@'#157#242'@'#157#242'@'#157#242#7'9zE_{{{{yyy'#209#153'r'#255#255#255#137
+  +#167#199#7'9z'#15's'#233#15's'#233#15's'#233#7'9zURf'#160'g['#160'g['#149'\K'
+  +'HJK'#213#207#213#197#191#197#194#188#194'Qk'#138#7'9z@'#157#242#7'9zId'#128
+  +'yzzyyyyyy'#216#159'u'#137#167#199#7'9z'#27'}'#235#22'y'#234#18'u'#233#15's'
+  +#233#15's'#233#7'9z'#254#176'J'#240#145','#225#132'.HJK'#217#213#217#201#196
+  +#202#199#192#198#150#146#152'0Kf'#7'9z,D^'#137#137#137#127#127#127#130#130
+  +#131'yyy'#220#163'v'#7'9z'#7'9z'#7'9z'#31#130#235#27'}'#235#22'y'#234#7'9z'#7
+  +'9z'#7'9z'#218#152'c'#255#0#255'HJK'#225#218#224#207#201#206#199#192#198#151
+  +#150#153'UWX'#175#175#177'JLM'#137#137#137#128#128#128#132#132#132#127#127
+  +#127#220#163'v'#209#146'm'#209#146'm'#7'9z-'#140#239'%'#135#238#31#130#237#7
+  +'9zXTh'#212#154's'#255#0#255#255#0#255'HJK'#231#226#230#212#207#211#225#218
+  +#224#152#149#152'UWX'#176#175#177'LNO'#150#149#149#132#131#131'vvvyyy'#143
+  +#143#143#131#132#132'*C]'#7'9z7'#150#240'2'#146#240#7'9z'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJK'#239#235#239#235#233#235#198#197#199#160
+  +#157#161'UWX'#164#165#167';=>'#130#130#131#137#137#137#143#143#143#137#137
+  +#137#147#147#147'Id'#128#7'9z@'#157#242'@'#157#242'='#154#242#7'9z'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#238#237#238#178#177#180#156#153
+  +#156#159#158#161'RTU'#235#235#237'ossY[Z'#7'9z'#7'9z'#7'9z'#7'9z'#7'9z@'#157
+  +#242'@'#157#242#7'9z'#7'9z'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'HJK'#237#235#237#129#129#130#213#209#212#207#207#208'`cdprrxy{'
+  +#138#142#140#171#172#172'Xt'#146#7'9z'#7'9z'#7'9z'#7'9z'#7'9z'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#251
+  +#251#252#204#204#204#254#254#254#227#227#230#186#184#188#151#149#152#136#134
+  +#137'xy{rssfihehi'#150#152#153#150#152#153'HJK'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#255#255#255
+  +#251#251#252#238#238#242#237#238#240#231#230#233#217#213#217#196#192#196#172
+  +#170#172#151#145#151#136#131#136#150#142#146#136#129#131'HJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255'HJK'#255#255#255#255#255#255#246#246#248#248#247#251#237#237#239
+  +#226#226#229#209#207#212#194#191#196#193#187#193#167#159#165'HJKHJK'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJK'#255#255#255#255#255#255#255
+  +#255#255#240#239#243#229#225#230#203#197#203'HJKHJK'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'LNOHJKHJKHJKHJK'
+  +'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0
+]);
+LazarusResources.Add('TDAMEMDATATABLE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#5'f'#149#5'f'#149#5'f'#149#5'f'#149#5'f'#149#5'f'#149#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#2't'#169'0'#201
+  +#233#18#203#254' '#206#254'T'#222#255't'#224#248','#167#211#5'f'#149#255#0
+  +#255#128#0#0#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#128#0#0
+  +'@'#0#0#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222#255't'
+  +#224#248'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255#255#128#0#0#128#0#0
+  +#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255
+  +#255#255#128#0#0'@'#0#0#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254
+  +'T'#222#255't'#224#248'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255#255#128
+  +#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128
+  +#0#0#255#255#255#128#0#0'@'#0#0#2't'#169's'#250#254'?'#227#254#18#203#254' '
+  +#206#254'T'#222#255't'#224#248'0'#176#218#3#134#193#5'f'#149#128#0#0#255#255
+  +#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255
+  +#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#2't'#169#159#251#254#163#243
+  +#255#182#242#255#218#248#255#229#250#255#216#247#254#154#220#239'A'#172#213#5
+  +'f'#149#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255
+  +#255#255#255#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#2't'#169
+  +#167#233#243#28#170#211#7#145#197#7#136#188#16#139#188#31#145#191#20'y'#173
+  +'y'#192#220#5'g'#150#128#0#0#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#128#0#0'@'#0#0#2't'#169'1'#181#211'?'#227#254#18#203#254' '#206#254
+  +'T'#222#255't'#224#248'0'#176#218#2'h'#163#3'h'#154#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0'4'#144'4'#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222
+  +#255't'#224#248'0'#176#218#3#134#193#5'f'#149#150'5'#17#254#254#254#254#254
+  +#254#254#254#251#254#250#247#0'e'#0#254#246#237#254#243#230#254#240#225#254
+  +#237#218#254#233#211#0'e'#0#254#226#197#254#233#208#2't'#169's'#250#254'?'
+  +#227#254#18#203#254' '#206#254'T'#222#255't'#224#248'0'#176#218#3#134#193#5
+  +'f'#149#150'5'#17#254#254#254#254#254#254#254#254#254#254#254#252#0'e'#0#254
+  +#248#243#254#246#239#254#244#233#254#242#226#254#238#221#0'e'#0#254#230#206
+  +#254#235#216#2't'#169's'#250#254'?'#227#254#18#203#254' '#206#254'T'#222#255
+  +'t'#224#248'0'#176#218#3#134#193#5'f'#149#150'5'#17#254#254#254#254#254#254
+  +#254#254#254#254#254#254#0'e'#0#254#251#250#254#250#244#254#247#240#254#244
+  +#234#254#242#227#0'e'#0#254#235#215#254#238#222#2't'#169'x'#251#254'h'#246
+  +#255'T'#246#255'_'#254#255#127#254#255#137#251#254'H'#207#242#5#139#199#5'f'
+  +#149#150'5'#17#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0#0'e'#0
+  +#0'e'#0#0'e'#0#0'e'#0'4'#144'4'#2't'#169#251#255#255#240#255#255#198#255#255
+  +#160#255#255#152#255#255#152#255#255#147#255#255'W'#247#254#5'f'#149#150'5'
+  +#17#254#254#254#254#254#254#254#254#254#254#254#254#0'e'#0#254#254#254#254
+  +#254#254#254#252#252#254#251#247#254#248#243#0'e'#0#254#243#233#254#240#225
+  +#254#243#230#4'y'#175#237#250#252#220#255#255#183#255#255#153#255#255#146#255
+  +#255#131#250#251#8'k'#154#255#0#255#150'5'#17#254#254#254#254#254#254#254#254
+  +#254#254#254#254#0'e'#0#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#252#250#0'e'#0#254#247#239#254#244#234#254#242#227#254#244#231#2't'#169#2't'
+  +#169#2't'#169#2't'#169#2't'#169#2't'#169#150'5'#17#255#0#255#150'5'#17#254
+  +#254#254#254#254#254#254#254#254#128#128#128#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
+  +#255#0#255#150'5'#17#0'e'#0#0'e'#0#0'e'#0#128#128#128#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#255#255#0#0#0#255#0#255#150'5'#17#254#254#254#254#254
+  +#254#254#254#254#128#128#128#255#255#255#128#0#0#255#255#255#255#255#255#255
+  +#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0#255
+  +#255#255#255#255#255#255#255#255#128#0#0#255#255#255#0#0#0#255#0#255#150'5'
+  +#17#254#254#254#254#254#254#254#254#254#128#128#128#255#255#255#128#0#0#255
+  +#255#255#192#220#192#255#255#255#128#0#0#255#255#255#128#0#0#192#220#192#255
+  +#255#255#255#255#255#128#0#0#255#255#255#192#220#192#255#255#255#128#0#0#255
+  +#255#255#0#0#0#255#0#255#150'5'#17#220#220#220#220#220#220#220#220#220#128
+  +#128#128#255#255#255#128#0#0#192#220#192#128#0#0#192#220#192#128#0#0#255#255
+  ,#255#128#0#0#128#0#0#192#220#192#255#255#255#128#0#0#192#220#192#128#0#0#192
+  +#220#192#128#0#0#255#255#255#0#0#0#255#0#255#150'5'#17#152'D'#16#152'D'#16
+  +#152'D'#16#128#128#128#255#255#255#128#0#0#128#0#0#192#220#192#128#0#0#128#0
+  +#0#255#255#255#128#0#0#192#220#192#255#255#255#255#255#255#128#0#0#128#0#0
+  +#192#220#192#128#0#0#128#0#0#255#255#255#0#0#0#255#0#255#189'X'#12#233#127#30
+  +#233#127#30#233#127#30#128#128#128#255#255#255#128#0#0#192#220#192#255#255
+  +#255#192#220#192#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#128
+  +#0#0#192#220#192#255#255#255#192#220#192#128#0#0#255#255#255#0#0#0#255#0#255
+  +#255#0#255#189'X'#12#189'X'#12#189'X'#12#128#128#128#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#255#255#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#255#0#255#0#0
+]);
+LazarusResources.Add('TDAPOWEREDBYDATAABSTRACTBUTTON','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#135'L*'#135'N.'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#128#0#0#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#128#0#0'@'#0
+  +#0#142'V5'#135'N.'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255
+  +#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0
+  +'@'#0#0#169'vR'#135'N.'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255
+  +#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0
+  +'@'#0#0#173'}Y'#135'N.'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255
+  +#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#166'tU'#137'P2'#134'L-'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0
+  +#0#255#255#255#255#255#255#255#255#255#128#0#0#128#0#0#255#255#255#255#255
+  +#255#128#0#0'@'#0#0#182#138'j'#156'hI'#144'Z:'#139'R2'#135'N.'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#128#0#0#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#128#0#0'@'#0#0#237#207#177#211#172#142#180#132'g'
+  +#153'eE'#142'T5'#136'P/'#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#254#233#209#255#235#207#255#231#202#239#208#178#203#163#130
+  +#165'rQ'#144'W8'#137'P2'#135'M-'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#208#183#169#207#182#164#224#201#181#247#229#209#255#240#221#255#240
+  +#221#254#238#218#254#237#216#254#235#213#254#234#212#254#233#209#254#233#207
+  +#255#234#206#255#235#207#251#225#196#220#183#151#170'xX'#143'Y:'#138'R3'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#218#198#187#216#192#180#224#203#187#246
+  +#230#212#255#243#225#255#240#221#254#239#222#254#239#222#254#237#220#254#238
+  +#218#254#237#216#254#234#212#254#233#209#254#231#207#255#231#202#255#234#206
+  +#255#230#198#215#177#144#161'oP'#143'Y:'#139'T4'#255#0#255#255#0#255#255#0
+  +#255#225#208#197#226#206#194#240#224#209#254#240#226#255#243#227#254#240#226
+  +#254#240#226#254#240#226#254#240#224#254#239#222#254#237#220#254#237#216#254
+  +#234#212#254#233#209#254#231#206#255#231#202#255#234#202#247#217#184#193#150
+  +'v'#151'dD'#143'Y:'#255#0#255#255#0#255#235#225#218#231#218#208#235#221#208
+  +#250#237#224#254#242#231#254#242#231#254#243#230#254#243#230#254#243#230#255
+  +#243#227#254#239#225#254#239#222#254#237#220#254#237#216#254#234#212#254#233
+  +#209#254#231#206#255#231#201#255#230#198#222#184#153#164'tU'#147'_A'#145'[<'
+  +#255#0#255#240#235#230#237#227#220#242#230#220#252#242#230#254#244#237#254
+  +#244#237#254#244#237#254#244#237#254#244#237#254#242#231#254#242#229#254#239
+  +#225#254#239#221#254#238#218#254#235#213#254#233#209#254#231#207#255#231#202
+  +#255#231#201#234#202#170#176#129'e'#153'gH'#150'bC'#255#0#255#247#243#242#243
+  +#235#230#246#237#227#252#243#234#254#247#239#254#247#240#254#247#239#254#247
+  +#240#254#247#239#254#244#237#254#242#231#254#242#229#254#240#224#254#237#220
+  +#254#237#216#254#234#212#254#233#207#255#231#202#255#231#202#237#204#173#180
+  +#136'k'#158'mP'#154'iJ'#255#0#255#254#252#252#250#246#243#247#240#234#252#244
+  +#235#254#248#240#254#250#244#254#250#244#254#250#244#254#248#240#254#244#237
+  +#254#244#234#254#243#230#254#240#226#254#239#221#254#237#217#254#235#213#254
+  +#233#207#254#231#206#255#231#202#229#197#166#178#137'l'#161'tX'#159'oR'#255#0
+  +#255#255#255#255#255#254#254#252#248#246#252#246#239#254#250#244#254#251#247
+  +#254#251#248#254#251#247#254#250#244#254#247#239#254#246#235#254#243#230#254
+  +#240#226#254#239#222#254#237#217#254#235#213#254#233#209#254#233#207#252#226
+  +#197#213#180#151#177#136'm'#167'z`'#164'wZ'#255#0#255#255#0#255#255#255#255
+  +#255#255#255#254#250#247#254#250#244#254#251#248#254#252#252#254#251#248#254
+  +#250#244#254#248#240#254#244#237#254#243#230#254#240#226#254#239#222#254#237
+  +#217#254#235#213#254#233#209#255#234#206#235#208#181#197#160#136#178#138'r'
+  +#172#130'i'#255#0#255#255#0#255#255#0#255#255#255#255#255#255#255#255#255#252
+  +#254#250#247#254#250#247#254#251#247#254#251#247#254#250#244#252#246#239#254
+  +#246#234#254#243#230#254#240#226#254#239#221#254#237#217#254#237#216#254#233
+  ,#209#242#218#192#211#181#157#189#154#131#182#144'z'#178#138't'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#255#255#255#255#255#255#254#254#254#251#248
+  +#254#250#244#254#247#240#254#247#240#254#244#237#254#244#234#254#243#230#254
+  +#240#226#255#240#221#254#237#216#251#231#208#239#216#193#217#191#171#198#167
+  +#149#192#159#139#187#153#132#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#255#255#255#255#255#255#255#255#254#251#248#254#250#244
+  +#252#246#239#252#243#234#252#240#229#251#239#226#250#235#220#248#231#215#242
+  +#224#206#230#211#193#218#194#178#208#181#164#202#173#156#198#167#149#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#255#255#255#255#255#255#255#255#255#254#254#252#252#248#250#247#240#247
+  +#239#233#244#234#225#239#227#217#235#220#209#229#212#201#221#203#191#216#196
+  +#182#213#189#175#208#183#166#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255
+  +#255#255#255#255#255#255#255#254#254#251#247#246#246#239#235#242#233#227#237
+  +#225#220#231#218#211#227#212#202#221#204#193#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255#255#254
+  +#254#251#247#246#246#240#237#242#233#227#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDAREMOTECOMMAND','BMP',[
+  'BMv'#6#0#0#0#0#0#0'6'#4#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#8#0#0#0#0#0'@'#2#0
+  +#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1#0#0#255#0#255#0#153'3'#0#0#154'4'#0#0#156'6'#0
+  +#0#158'8'#0#0#162'<'#0#0#165'?'#0#0#166'@'#0#0#169'C'#0#0#170'D'#0#0#175'I'#0
+  +#0#175'M'#11#0#172'L'#13#0#176'J'#0#0#179'M'#0#0#180'N'#0#0#182'P'#0#0#185'S'
+  +#0#0#185'V'#7#0#183'V'#11#0#181'T'#12#0#185'Y'#15#0#179'W'#25#0#191'd'#26#0
+  +#139'Q$'#0#138'Z+'#0#179'\&'#0#183'i$'#0#199'a'#0#0#201'c'#0#0#203'e'#0#0#204
+  +'f'#0#0#198'd'#10#0#209'k'#0#0#220'v'#0#0#229#127#0#0#197'v9'#0#204#127'>'#0
+  +#144'kG'#0#183'uD'#0#198'{D'#0#247#145#0#0#255#157#11#0#249#152#12#0#255#158
+  +#12#0#242#148#20#0#249#156#24#0#255#161#19#0#255#163#25#0#255#166#31#0#217
+  +#137'6'#0#230#146'-'#0#242#155'%'#0#236#159'>'#0#255#166'!'#0#255#169')'#0
+  +#255#172'.'#0#255#175'7'#0#255#176'8'#0#255#178'>'#0#138#141#127#0#210#136'E'
+  +#0#204#139'['#0#255#179'@'#0#249#178'M'#0#255#184'N'#0#236#167'S'#0#255#186
+  +'Q'#0#255#187'T'#0#255#188'W'#0#210#149'f'#0#223#170'y'#0#255#193'c'#0#255
+  +#194'e'#0#255#195'i'#0#255#196'j'#0#255#197'l'#0#249#193'r'#0#255#202'x'#0
+  +#255#203'|'#0#255#204'~'#0'(r'#138#0' '#129#159#0#14#128#170#0#23#136#175#0
+  +#11#134#178#0#9#138#183#0#7#140#186#0#14#145#190#0#30#148#188#0'('#152#186#0
+  +'g'#145#154#0'p'#159#166#0#4#147#196#0#9#151#199#0#10#157#206#0'"'#155#194#0
+  +#21#175#217#0'!'#170#207#0'5'#160#195#0'0'#170#202#0'2'#170#206#0'?'#176#203
+  +#0'='#189#218#0'9'#184#222#0')'#187#224#0'h'#176#202#0#25#199#241#0#27#212
+  +#254#0'/'#198#231#0'&'#194#233#0'>'#205#233#0','#211#249#0'.'#216#254#0'<'
+  +#224#254#0'T'#192#212#0'Y'#196#215#0'Y'#194#221#0'o'#194#214#0'|'#192#213#0
+  +'C'#200#233#0'T'#223#254#0'`'#206#234#0'l'#212#238#0'd'#217#233#0'v'#223#233
+  +#0'}'#223#233#0'U'#224#255#0'k'#227#244#0'`'#236#254#0'u'#226#250#0'{'#232
+  +#255#0'q'#242#254#0#136#153#143#0#151#166#158#0#150#177#174#0#236#187#133#0
+  +#230#182#136#0#255#205#130#0#255#210#141#0#236#193#147#0#255#212#147#0#249
+  +#212#162#0#255#220#166#0#249#215#170#0#255#221#169#0#255#223#173#0#255#224
+  +#175#0#255#226#181#0#134#187#196#0#131#223#233#0#138#218#235#0#148#223#233#0
+  +#149#223#237#0#164#223#234#0#149#235#253#0#149#238#254#0#158#237#255#0#132
+  +#243#249#0#128#245#252#0#143#246#251#0#131#248#254#0#147#242#254#0#151#249
+  +#254#0#148#253#254#0#153#255#254#0#158#255#254#0#180#238#243#0#164#255#254#0
+  +#168#249#254#0#173#251#254#0#170#255#254#0#182#241#255#0#188#242#248#0#179
+  +#249#255#0#179#255#254#0#185#255#254#0#195#223#234#0#206#234#238#0#204#246
+  +#255#0#201#255#254#0#207#255#255#0#209#247#255#0#223#255#255#0#229#255#255#0
+  +#240#247#250#0#245#255#255#0#250#255#255#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#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#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#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#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#22'N'#1#0#0#0#0#0
+  +#0#0#0#0'SSSSSSQ'#1#1#1#18#21'5HM'#1#1#1#0#0#0#0'SSbbanxz\'#7#4'.*19AHN'#141
+  +#1#0#0#0'SZ|'#129'rlq'#127#131#153#7#9'31*6:CJN'#1#0#0#0'W}'#161#129'rlq'#127
+  +#131#135#10#9'B:-'#7#1#12'@J='#1#0#0'W}'#161#129'rlq'#127#133#16#12'G'#141'H'
+  +#27#0#1#4#23'CJ%'#1#0'W}'#161#129'rlq'#127#15'!F'#148#147#139'&'#0#1#9#20'?C'
+  +'J'#1#0'W}'#161#129'rlq'#127'<'#29#20#137#148#146''''#0#4#15' 7?2'#1#0'W}'
+  +#161#129'rlq'#127#131#134#29#18#140#148#142#26#9#20'*/4'#1#0#0'W}'#163#162
+  +#156#157#172#179#182#178#29'"'#137#148#148#146'NE7*'#1#0#0#0'W'#167#173#151
+  +'ue`Yc[#'#29#144#148#148#148#146'NC7'#1#0#0#0'Vvfgmkpy'#130#149#18#15'>$$'
+  +#144#148#136#1#1#1#0#0#0'Ut'#159#129'rlq'#127#131#156'{g_'#24')('#148#1#0#0#0
+  +#0#0#0'W}'#161#129'rlq'#127#131#156'{h_R'#25#4#1#0#0#0#0#0#0#0'W}'#161#129'r'
+  +'lq'#127#131#156'{h_]S'#0#0#0#0#0#0#0#0#0'W}'#161#129'rlq'#127#131#156'{g_]S'
+  +#0#0#0#0#0#0#0#0#0'W}'#161#129'rlq'#127#131#156'{h_]S'#0#0#0#0#0#0#0#0#0'W}'
+  +#161#129'rlq'#127#131#156'{h_]S'#0#0#0#0#0#0#0#0#0'W~'#170#174#170#170#165
+  +#165#165#165#160#128'i^S'#0#0#0#0#0#0#0#0#0'W'#177#187#184#181#174#168#165
+  +#165#165#165#163#132'oS'#0#0#0#0#0#0#0#0#0'Wj'#185#186#183#181#174#165#165
+  +#165#165#165#159'eS'#0#0#0#0#0#0#0#0#0#0'WXww'#154#153#150'~}ssTS'#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0'WWWWWWWWW'#0#0#0#0#0#0#0#0#0#0#0
+]);
+LazarusResources.Add('TDALOCALCOMMAND','BMP',[
+  'BMv'#6#0#0#0#0#0#0'6'#4#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#8#0#0#0#0#0'@'#2#0
+  +#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1#0#0#255#0#255#0#153'3'#0#0#154'4'#0#0#156'6'#0
+  +#0#158'8'#0#0#162'<'#0#0#165'?'#0#0#166'@'#0#0#169'C'#0#0#170'D'#0#0#175'I'#0
+  +#0#175'M'#11#0#172'L'#13#0#176'J'#0#0#179'M'#0#0#180'N'#0#0#182'P'#0#0#185'S'
+  +#0#0#185'V'#7#0#183'V'#11#0#181'T'#12#0#185'Y'#15#0#179'W'#25#0#191'd'#26#0
+  +#139'Q$'#0#138'Z+'#0#179'\&'#0#183'i$'#0#199'a'#0#0#201'c'#0#0#203'e'#0#0#204
+  +'f'#0#0#198'd'#10#0#209'k'#0#0#220'v'#0#0#229#127#0#0#197'v9'#0#204#127'>'#0
+  +#144'kG'#0#183'uD'#0#198'{D'#0#247#145#0#0#255#157#11#0#249#152#12#0#255#158
+  +#12#0#242#148#20#0#249#156#24#0#255#161#19#0#255#163#25#0#255#166#31#0#217
+  +#137'6'#0#230#146'-'#0#242#155'%'#0#236#159'>'#0#255#166'!'#0#255#169')'#0
+  +#255#172'.'#0#255#175'7'#0#255#176'8'#0#255#178'>'#0#138#141#127#0#210#136'E'
+  +#0#204#139'['#0#255#179'@'#0#249#178'M'#0#255#184'N'#0#236#167'S'#0#255#186
+  +'Q'#0#255#187'T'#0#255#188'W'#0#210#149'f'#0#223#170'y'#0#255#193'c'#0#255
+  +#194'e'#0#255#195'i'#0#255#196'j'#0#255#197'l'#0#249#193'r'#0#255#202'x'#0
+  +#255#203'|'#0#255#204'~'#0'(r'#138#0' '#129#159#0#14#128#170#0#23#136#175#0
+  +#11#134#178#0#9#138#183#0#7#140#186#0#14#145#190#0#30#148#188#0'('#152#186#0
+  +'g'#145#154#0'p'#159#166#0#4#147#196#0#9#151#199#0#10#157#206#0'"'#155#194#0
+  +#21#175#217#0'!'#170#207#0'5'#160#195#0'0'#170#202#0'2'#170#206#0'?'#176#203
+  +#0'='#189#218#0'9'#184#222#0')'#187#224#0'h'#176#202#0#25#199#241#0#27#212
+  +#254#0'/'#198#231#0'&'#194#233#0'>'#205#233#0','#211#249#0'.'#216#254#0'<'
+  +#224#254#0'T'#192#212#0'Y'#196#215#0'Y'#194#221#0'o'#194#214#0'|'#192#213#0
+  +'C'#200#233#0'T'#223#254#0'`'#206#234#0'l'#212#238#0'd'#217#233#0'v'#223#233
+  +#0'}'#223#233#0'U'#224#255#0'k'#227#244#0'`'#236#254#0'u'#226#250#0'{'#232
+  +#255#0'q'#242#254#0#136#153#143#0#151#166#158#0#150#177#174#0#236#187#133#0
+  +#230#182#136#0#255#205#130#0#255#210#141#0#236#193#147#0#255#212#147#0#249
+  +#212#162#0#255#220#166#0#249#215#170#0#255#221#169#0#255#223#173#0#255#224
+  +#175#0#255#226#181#0#134#187#196#0#131#223#233#0#138#218#235#0#148#223#233#0
+  +#149#223#237#0#164#223#234#0#149#235#253#0#149#238#254#0#158#237#255#0#132
+  +#243#249#0#128#245#252#0#143#246#251#0#131#248#254#0#147#242#254#0#151#249
+  +#254#0#148#253#254#0#153#255#254#0#158#255#254#0#180#238#243#0#164#255#254#0
+  +#168#249#254#0#173#251#254#0#170#255#254#0#182#241#255#0#188#242#248#0#179
+  +#249#255#0#179#255#254#0#185#255#254#0#195#223#234#0#206#234#238#0#204#246
+  +#255#0#201#255#254#0#207#255#255#0#209#247#255#0#223#255#255#0#229#255#255#0
+  +#240#247#250#0#245#255#255#0#250#255#255#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#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#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#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#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#22'N'#1#0#0#0#0#0
+  +#0#0#0#0'SSSSSSQ'#1#1#1#18#21'5HM'#1#1#1#0#0#0#0'SSbbanxz\'#7#4'.*19AHN'#141
+  +#1#0#0#0'SZ|'#129'rlq'#127#131#153#7#9'31*6:CJN'#1#0#0#0'W}'#161#129'rlq'#127
+  +#131#135#10#9'B:-'#7#1#12'@J='#1#0#0'W}'#161#129'rlq'#127#133#16#12'G'#141'H'
+  +#27#0#1#4#23'CJ%'#1#0'W}'#161#129'rlq'#127#15'!F'#148#147#139'&'#0#1#9#20'?C'
+  +'J'#1#0'W}'#161#129'rlq'#127'<'#29#20#137#148#146''''#0#4#15' 7?2'#1#0'W}'
+  +#161#129'rlq'#127#131#134#29#18#140#148#142#26#9#20'*/4'#1#0#0'W}'#163#162
+  +#156#157#172#179#182#178#29'"'#137#148#148#146'NE7*'#1#0#0#0'W'#167#173#151
+  +'ue`Yc[#'#29#144#148#148#148#146'NC7'#1#0#0#0'Vvfgmkpy'#130#149#18#15'>$$'
+  +#144#148#136#1#1#1#0#0#0'Ut'#159#129'rlq'#127#131#156'{g_'#24')('#148#1#0#0#0
+  +#0#0#0'W}'#161#129'rlq'#127#131#156'{h_R'#25#4#1#0#0#0#0#0#0#0'W}'#161#129'r'
+  +'lq'#127#131#156'{h_]S'#0#0#0#0#0#0#0#0#0'W}'#161#129'rlq'#127#131#156'{g_]S'
+  +#0#0#0#0#0#0#0#0#0'W}'#161#129'rlq'#127#131#156'{h_]S'#0#0#0#0#0#0#0#0#0'W}'
+  +#161#129'rlq'#127#131#156'{h_]S'#0#0#0#0#0#0#0#0#0'W~'#170#174#170#170#165
+  +#165#165#165#160#128'i^S'#0#0#0#0#0#0#0#0#0'W'#177#187#184#181#174#168#165
+  +#165#165#165#163#132'oS'#0#0#0#0#0#0#0#0#0'Wj'#185#186#183#181#174#165#165
+  +#165#165#165#159'eS'#0#0#0#0#0#0#0#0#0#0'WXww'#154#153#150'~}ssTS'#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0'WWWWWWWWW'#0#0#0#0#0#0#0#0#0#0#0
+]);
+LazarusResources.Add('TDALOCALDATAADAPTER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#17#128#169#17#128#169
+  +#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169#255#0#255#255#0#255
+  +#255#0#255#128#0#0#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
+  +#128#0#0'@'#0#0'$}'#145#25#149#178'%'#183#215'Q'#210#235'~'#229#245#130#218
+  +#234'J'#179#210#17#128#169#17#128#169#255#0#255#128#0#0#255#255#255#128#0#0
+  +#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128
+  +#0#0#255#255#255#128#0#0'@'#0#0'aTA'#29'u'#133#29#144#168'I'#188#211'|'#225
+  +#240#145#230#243'b'#201#228'0'#169#212#21#148#197#17#128#169#128#0#0#255#255
+  +#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128
+  +#0#0#128#0#0#255#255#255#128#0#0'@'#0#0#174'L'#8#158'='#12'JfaH'#186#209'}'
+  +#227#242#145#230#243'b'#201#228'0'#169#212#22#153#204#17#128#169#128#0#0#255
+  +#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255
+  +#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#216#140';'#168'N'#31'5'
+  +#130#140'M'#200#225#127#230#246#145#230#243'b'#201#228'0'#169#212#22#153#204
+  +#17#128#169#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255
+  +#255#255#255#255#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#203
+  +#130'F|M."'#168#197'R'#213#238#128#232#248#145#230#243'b'#201#228'0'#169#212
+  +#22#153#204#17#128#169#128#0#0#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#128#0#0'@'#0#0#177']-Jok&'#187#220'U'#220#247#128#232#248#145
+  +#230#243'b'#201#228'0'#169#212#22#153#204#17#128#169#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#159'N"'#152'R+a'#188#202's'#217#233#143#236#247#164#240#247#172#239#244
+  +#129#215#233'A'#178#216#22#153#204#17#128#169#17#128#169#150#248#247'u'#239
+  +#249'N'#227#250'&'#215#252'2'#203#234#154'I'#30#199#136'Z'#169'S&'#139'X9Trw'
+  +#16'z'#161#163#230#233#137'pZdib0'#142#172#17'}'#166#17#128#169#17#128#169'3'
+  +#151#183'?'#158#188'x'#196#212#133#209#225#17#128#169#17#128#169#150#248#247
+  +'u'#239#249'N'#227#250'&'#215#252'+'#214#251'x'#138'~'#140#127'j'#139#196#201
+  +'_'#195#222'0'#168#211#17#128#169#25#135#174'H'#159#178'C'#191#213'$'#207#244
+  +'+'#213#250'V'#223#250#128#232#248#138#225#238'N'#182#213' '#147#188#17#130
+  +#171#17#128#169#17#128#169#150#248#247'u'#239#249'N'#227#250'&'#215#252'+'
+  +#214#251'V'#223#250#128#232#248#145#230#243'b'#201#228'0'#168#210#17'~'#167
+  +#141#239#240'u'#239#249'N'#227#250'&'#214#251'*'#208#244'Q'#210#235'y'#219
+  +#234#142#225#238'b'#201#228'0'#169#212#22#151#202#17#128#169#17#128#169#150
+  +#248#247#129#240#248'u'#234#248'w'#231#248'z'#231#248#143#236#247#164#240#247
+  +#172#239#244#127#212#230'='#168#204#16'v'#156#145#239#238's'#235#245'J'#215
+  +#237'"'#193#226'$'#177#208'A'#170#190'f'#185#197#134#213#225'b'#200#227'0'
+  +#169#212#22#153#204#17#128#169#17#128#169#165#233#236'x'#196#212'?'#158#188
+  +'3'#151#183#17#128#169#17#128#169#17#128#169'3'#151#183'<'#150#178'l'#140#141
+  +#13'c'#131#128#211#210'd'#205#214'<'#175#193'*'#135#150'aVDkT>R'#149#159'z'
+  +#193#204'`'#196#223'0'#169#212#22#153#204#17#128#169#17#128#169#25#135#174'<'
+  +#176#204'>'#202#230'$'#209#246'+'#214#251'V'#223#250#128#232#248#136#222#235
+  +'exuhE0'#10'Mfe'#155#152'hsc'#133'B'#27#156'7'#0#175'J'#1#153'3'#0'Rxzm'#172
+  +#182'\'#188#214'0'#169#212#22#153#204#17#128#169#17#128#169#142#241#242'u'
+  +#239#249'N'#227#250'&'#215#252'+'#214#251'V'#223#250#128#232#248#139#220#233
+  +#144'A'#23#153'3'#0'c9!'#148'8'#8#172'L'#14#192'd'#20#207'q'#17#205'k'#7#172
+  +'G'#1'oWAb'#156#165'X'#180#204'0'#168#211#22#153#204#17#128#169#17#128#169
+  +#150#248#247'u'#239#249'N'#227#250'&'#215#252'+'#214#251'V'#223#250#127#230
+  +#246#137#158#150#162'@'#10#188'i*'#193'q1'#212#140'A'#217#143'<'#215#138'6'
+  +#215#137'7'#213#132'1'#200'r('#150'I'#31'o'#181#181'z'#214#219'Q'#201#228#30
+  +#162#210#17#128#169#17#128#169#150#248#247'u'#239#249'N'#227#250'&'#215#252
+  +'+'#214#251'V'#223#250'}'#227#242#145'W3'#200#127'A'#229#179'q'#230#179'q'
+  +#227#173'j'#226#170'g'#225#165'b'#211#141'K'#191'n5'#168'N'#31#151'W/'#141
+  +#204#196#148#240#238#136#243#247'a'#230#250#17#128#169#17#128#169#150#248#247
+  +'u'#239#249'N'#227#250'&'#215#252'+'#214#251'V'#223#250#129#193#196#158';'#7
+  +#234#192#134#239#208#158#241#212#166#234#197#148#210#151'd'#178'_/'#161'J'#30
+  +#158#127'c'#151#209#201#149#242#240#152#248#246#153#249#247#17#128#169#17#128
+  +#169#255#0#255#17#128#169#150#248#247'u'#239#249'N'#227#250'&'#215#252'+'#214
+  ,#251'V'#223#250#134#173#168#160'N#'#191'{P'#229#197#160#225#190#154#164'H'#27
+  +'oA''Qbe'#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169
+  +#255#0#255#255#0#255#255#0#255#17#128#169#163#249#248#174#246#251#172#246#251
+  +#160#246#249#156#249#247#153#249#247#153#249#247#150#233#230#141#152#133#150
+  +'Q*'#172'Y.'#144'4'#6#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255
+  +#244#254#254#219#253#252#194#251#250#168#250#248#154#249#247#153#249#247#153
+  +#249#247#153#249#247#137#244#248'r'#172#170#144'4'#6#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#17#128#169#17#128#169#236#254#254#211#252#252#186#251
+  +#250#162#250#248#153#249#247#153#249#247#153#249#247#17#128#169#17#128#169
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#17
+  +#128#169#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDAREMOTEDATAADAPTER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#17#128#169#17#128#169
+  +#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169#255#0#255#255#0#255
+  +#255#0#255#128#0#0#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
+  +#128#0#0'@'#0#0'$}'#145#25#149#178'%'#183#215'Q'#210#235'~'#229#245#130#218
+  +#234'J'#179#210#17#128#169#17#128#169#255#0#255#128#0#0#255#255#255#128#0#0
+  +#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128
+  +#0#0#255#255#255#128#0#0'@'#0#0'aTA'#29'u'#133#29#144#168'I'#188#211'|'#225
+  +#240#145#230#243'b'#201#228'0'#169#212#21#148#197#17#128#169#128#0#0#255#255
+  +#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128
+  +#0#0#128#0#0#255#255#255#128#0#0'@'#0#0#174'L'#8#158'='#12'JfaH'#186#209'}'
+  +#227#242#145#230#243'b'#201#228'0'#169#212#22#153#204#17#128#169#128#0#0#255
+  +#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255
+  +#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#216#140';'#168'N'#31'5'
+  +#130#140'M'#200#225#127#230#246#145#230#243'b'#201#228'0'#169#212#22#153#204
+  +#17#128#169#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255
+  +#255#255#255#255#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#203
+  +#130'F|M."'#168#197'R'#213#238#128#232#248#145#230#243'b'#201#228'0'#169#212
+  +#22#153#204#17#128#169#128#0#0#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#128#0#0'@'#0#0#177']-Jok&'#187#220'U'#220#247#128#232#248#145
+  +#230#243'b'#201#228'0'#169#212#22#153#204#17#128#169#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#159'N"'#152'R+a'#188#202's'#217#233#143#236#247#164#240#247#172#239#244
+  +#129#215#233'A'#178#216#22#153#204#17#128#169#17#128#169#150#248#247'u'#239
+  +#249'N'#227#250'&'#215#252'2'#203#234#154'I'#30#199#136'Z'#169'S&'#139'X9Trw'
+  +#16'z'#161#163#230#233#137'pZdib0'#142#172#17'}'#166#17#128#169#17#128#169'3'
+  +#151#183'?'#158#188'x'#196#212#133#209#225#17#128#169#17#128#169#150#248#247
+  +'u'#239#249'N'#227#250'&'#215#252'+'#214#251'x'#138'~'#140#127'j'#139#196#201
+  +'_'#195#222'0'#168#211#17#128#169#25#135#174'H'#159#178'C'#191#213'$'#207#244
+  +'+'#213#250'V'#223#250#128#232#248#138#225#238'N'#182#213' '#147#188#17#130
+  +#171#17#128#169#17#128#169#150#248#247'u'#239#249'N'#227#250'&'#215#252'+'
+  +#214#251'V'#223#250#128#232#248#145#230#243'b'#201#228'0'#168#210#17'~'#167
+  +#141#239#240'u'#239#249'N'#227#250'&'#214#251'*'#208#244'Q'#210#235'y'#219
+  +#234#142#225#238'b'#201#228'0'#169#212#22#151#202#17#128#169#17#128#169#150
+  +#248#247#129#240#248'u'#234#248'w'#231#248'z'#231#248#143#236#247#164#240#247
+  +#172#239#244#127#212#230'='#168#204#16'v'#156#145#239#238's'#235#245'J'#215
+  +#237'"'#193#226'$'#177#208'A'#170#190'f'#185#197#134#213#225'b'#200#227'0'
+  +#169#212#22#153#204#17#128#169#17#128#169#165#233#236'x'#196#212'?'#158#188
+  +'3'#151#183#17#128#169#17#128#169#17#128#169'3'#151#183'<'#150#178'l'#140#141
+  +#13'c'#131#128#211#210'd'#205#214'<'#175#193'*'#135#150'aVDkT>R'#149#159'z'
+  +#193#204'`'#196#223'0'#169#212#22#153#204#17#128#169#17#128#169#25#135#174'<'
+  +#176#204'>'#202#230'$'#209#246'+'#214#251'V'#223#250#128#232#248#136#222#235
+  +'exuhE0'#10'Mfe'#155#152'hsc'#133'B'#27#156'7'#0#175'J'#1#153'3'#0'Rxzm'#172
+  +#182'\'#188#214'0'#169#212#22#153#204#17#128#169#17#128#169#142#241#242'u'
+  +#239#249'N'#227#250'&'#215#252'+'#214#251'V'#223#250#128#232#248#139#220#233
+  +#144'A'#23#153'3'#0'c9!'#148'8'#8#172'L'#14#192'd'#20#207'q'#17#205'k'#7#172
+  +'G'#1'oWAb'#156#165'X'#180#204'0'#168#211#22#153#204#17#128#169#17#128#169
+  +#150#248#247'u'#239#249'N'#227#250'&'#215#252'+'#214#251'V'#223#250#127#230
+  +#246#137#158#150#162'@'#10#188'i*'#193'q1'#212#140'A'#217#143'<'#215#138'6'
+  +#215#137'7'#213#132'1'#200'r('#150'I'#31'o'#181#181'z'#214#219'Q'#201#228#30
+  +#162#210#17#128#169#17#128#169#150#248#247'u'#239#249'N'#227#250'&'#215#252
+  +'+'#214#251'V'#223#250'}'#227#242#145'W3'#200#127'A'#229#179'q'#230#179'q'
+  +#227#173'j'#226#170'g'#225#165'b'#211#141'K'#191'n5'#168'N'#31#151'W/'#141
+  +#204#196#148#240#238#136#243#247'a'#230#250#17#128#169#17#128#169#150#248#247
+  +'u'#239#249'N'#227#250'&'#215#252'+'#214#251'V'#223#250#129#193#196#158';'#7
+  +#234#192#134#239#208#158#241#212#166#234#197#148#210#151'd'#178'_/'#161'J'#30
+  +#158#127'c'#151#209#201#149#242#240#152#248#246#153#249#247#17#128#169#17#128
+  +#169#255#0#255#17#128#169#150#248#247'u'#239#249'N'#227#250'&'#215#252'+'#214
+  ,#251'V'#223#250#134#173#168#160'N#'#191'{P'#229#197#160#225#190#154#164'H'#27
+  +'oA''Qbe'#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169
+  +#255#0#255#255#0#255#255#0#255#17#128#169#163#249#248#174#246#251#172#246#251
+  +#160#246#249#156#249#247#153#249#247#153#249#247#150#233#230#141#152#133#150
+  +'Q*'#172'Y.'#144'4'#6#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255
+  +#244#254#254#219#253#252#194#251#250#168#250#248#154#249#247#153#249#247#153
+  +#249#247#153#249#247#137#244#248'r'#172#170#144'4'#6#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#17#128#169#17#128#169#236#254#254#211#252#252#186#251
+  +#250#162#250#248#153#249#247#153#249#247#153#249#247#17#128#169#17#128#169
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#17
+  +#128#169#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169#17#128#169
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TDASCHEMA','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255#0'K'#0
+  +#12#152#25#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#0#0
+  +#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#128#0#0'@'#0#0#255#0
+  +#255#0'K'#0#24#169'-'#17#160'#'#12#152#25#0'K'#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255
+  +#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#0
+  +'K'#0'&'#186'D'#31#177'8'#24#169'-'#17#160'#'#12#152#25#0'K'#0#255#0#255#255
+  +#0#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0
+  +#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0#0'4'
+  +#203'\,'#193'N&'#186'D'#31#177'8'#23#167','#17#159'!'#12#151#24#0'K'#0#255#0
+  +#255#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0
+  +#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0
+  +#0'>'#215'm4'#203'\,'#193'N&'#186'D'#29#176'6'#23#167','#17#159'!'#9#138#19#0
+  +'K'#0#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#255
+  +#255#255#255#255#255#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0'@'#0#0
+  +'>'#215'm9'#209'f4'#203'\,'#193'N&'#186'D'#29#176'6'#17#151'"'#0'K'#0#255#0
+  +#255#255#0#255#128#0#0#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#128#0#0'@'#0#0#0'K'#0'>'#215'm9'#209'f4'#203'\,'#193'N'#28#164'3'#0'K'#0
+  +#255#0#255#255#0#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#255#0#255#255#0
+  +#255#0'K'#0'>'#215'm9'#209'f&'#177'E'#0'K'#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#0'/'#188'T'#0'K'#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0'K'#0'/'#188'T'#0'K'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#0#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0'K'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +'K'#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#0'K'#0#0
+  +'K'#0#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0'K'#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0'K'#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0
+  +#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#130#3'('#255#0#30#254#0#24#243#0#18#225#0#13#204#1#10#182#3#7#164#0
+  +#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#130#12'5'#255#3'('#255#0'!'#255#0#24#243#0#18#225#0#15#212#1#10#187
+  +#0#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#130#24'C'#255#12'5'#255#3'('#255#0'!'#255#0#30#254#0#20#234#0
+  +#15#212#0#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#130'&R'#255#24'C'#255#18'='#255#3'('#255#0'!'#255#0#30#254
+  +#0#20#234#0#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#130'/]'#255'&R'#255#24'C'#255#22'A'#255#12'5'#255#0'!'#255
+  +#0#30#254#0#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#130'1^'#255'1^'#255'1^'#255#24'C'#255#22'A'#255#12'5'#255
+  +#3'('#255#0#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#130'1^'#255'1^'#255'/]'#255'1^'#255#24'C'#255#22'A'#255#12
+  +'5'#255#0#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255
+]);
+LazarusResources.Add('TDASERVERLOG','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#194#30#0#0#194#30#0#0#0#0#0#0#0#0#0#0#255#0#255'>'#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#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'>'#0#0#183#129#131#183#129#131#183#129
+  +#131#183#129#131#183#129#131#183#129#131#183#129#131#183#129#131#183#129#131
+  +#255#0#255'}'#4#0#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'}'#4
+  +#0'>'#0#0#254#220#182#254#216#173#254#220#182#254#215#171#254#215#171#254#215
+  +#171#254#215#171#254#215#171#179#137'{'#255#0#255'}'#4#0#255#255#255'}'#4#0
+  +'}'#4#0'}'#4#0#255#255#255#255#255#255'}'#4#0#255#255#255#255#255#255'}'#4#0
+  +#255#255#255'}'#4#0'>'#0#0#254#220#182#254#220#182#254#215#171#254#220#182
+  +#254#216#173#254#216#173#254#215#171#254#215#171#179#137'{'#255#0#255'}'#4#0
+  +#255#255#255'}'#4#0#255#255#255#255#255#255'}'#4#0#255#255#255'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0#255#255#255'}'#4#0'>'#0#0#254#220#182#254#220#182#0#153#0#254
+  +#216#173#254#220#182#254#216#173#254#216#173#254#216#173#179#137'{'#255#0#255
+  +'}'#4#0#255#255#255'}'#4#0#255#255#255#255#255#255'}'#4#0#255#255#255'}'#4#0
+  +#255#255#255#255#255#255'}'#4#0#255#255#255'}'#4#0'>'#0#0#254#222#185#0#153#0
+  +#0#153#0#0#153#0#254#220#182#254#216#173#254#216#173#254#216#173#179#137'{'
+  +#255#0#255'}'#4#0#255#255#255'}'#4#0'}'#4#0'}'#4#0#255#255#255#255#255#255
+  +#255#255#255'}'#4#0'}'#4#0#255#255#255#255#255#255'}'#4#0'>'#0#0#0#153#0'K'
+  +#144'<~'#164'^'#0#153#0'o'#156'Q'#254#220#182#254#216#173#254#216#173#179#137
+  +'{'#255#0#255'}'#4#0#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
+  +'}'#4#0'>'#0#0#0#153#0#254#222#185#254#222#185#192#194#141#0#153#0#0#153#0
+  +#254#220#182#254#216#173#179#137'{'#255#0#255'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'
+  +#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0#254#228#198#254
+  +#228#198#254#228#198#254#222#185#254#222#185#242#217#178#0#153#0#0#153#0#254
+  +#220#182#179#137'{'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#179#137
+  +'{'#254#240#225#254#240#222#254#238#220#254#238#220#254#233#209#254#233#209
+  +#254#233#209#254#231#204#254#231#204#254#228#198#254#228#198#254#228#198#254
+  +#228#198#254#220#182#254#222#185#254#222#185#254#220#182#179#137'{'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#182#139#128#254#240#225#254#240#225
+  +#254#240#222#254#238#220#254#238#220#254#238#220#254#233#209#254#233#209#254
+  +#232#206#254#231#204#254#228#198#0#153#0#254#228#198#254#228#198#254#222#185
+  +#254#222#185#254#222#185#179#137'{'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#186#142#130#254#244#233#254#240#225#254#240#225#254#240#225#254
+  +#238#220#254#238#220#254#233#209#254#233#209#254#233#209#254#232#206#0#153#0
+  +#0#153#0#0#153#0#254#228#198#254#228#198#254#222#185#254#222#185#179#137'{'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#190#146#131#254#244#233
+  +#254#244#233#223#153'>'#223#153'>'#223#153'>'#223#153'>'#223#153'>'#223#153
+  +'>'#254#233#209#0#153#0'K'#147'A~'#169'g'#0#153#0'o'#160'X'#254#228#198#254
+  +#228#198#254#228#198#179#137'{'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#194#150#133#255#248#239#254#244#233#254#244#233#254#244#233#254#240#225
+  +#254#240#225#254#240#225#254#238#220#254#238#220#0#153#0#254#231#204#254#233
+  +#209#192#201#156#0#153#0#0#153#0#254#228#198#254#224#190#179#137'{'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#198#153#134#254#248#241#254#248#241
+  +#254#244#233#254#244#233#254#244#233#254#240#225#254#240#225#254#240#225#254
+  +#238#220#254#238#220#254#233#209#254#233#209#254#233#209#242#226#197#0#153#0
+  +#0#153#0#254#228#198#182#139#128#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#202#156#136#254#248#241#254#248#241#254#248#241#255#248#239#254#244
+  +#233#254#244#233#254#244#233#254#240#225#254#240#225#254#240#222#254#238#220
+  +#254#238#220#254#233#209#254#233#209#254#233#209#254#231#204#254#231#204#156
+  +#131'~'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#206#160#137#254#248
+  +#241#254#248#241#254#248#241#254#248#241#254#244#233#254#244#233#254#244#233
+  +#254#240#225#254#240#225#254#240#225#254#240#222#0#153#0#254#238#220#254#233
+  +#209#254#233#209#254#233#209#254#231#204#156#131'~'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#210#163#138#255#252#249#255#252#249#254#248#241#254
+  +#248#241#254#248#241#254#248#241#255#248#239#254#244#233#254#244#233#254#240
+  +#225#0#153#0#0#153#0#0#153#0#254#238#220#254#238#220#254#233#209#254#232#206
+  +#156#131'~'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#210#163#138#254
+  +#248#241#255#252#249#223#153'>'#223#153'>'#223#153'>'#223#153'>'#223#153'>'
+  +#223#153'>'#254#244#233#0#153#0'K'#147'A~'#174'q'#0#153#0'o'#165'b'#254#238
+  ,#220#254#233#209#254#233#209#173#130't'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#222#173#142#255#252#249#255#252#249#255#252#249#255#252#249
+  +#254#248#241#254#248#241#254#248#241#254#248#241#254#244#233#0#153#0#254#240
+  +#225#254#244#233#192#209#172#0#153#0#0#153#0#254#238#220#254#238#220#184#130
+  +#133#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#222#173#142#254#248
+  +#241#255#252#249#254#248#241#255#252#249#255#252#249#255#252#249#254#248#241
+  +#254#248#241#254#248#241#254#248#241#254#248#241#254#244#233#254#240#225#243
+  +#236#218#0#153#0#0#153#0#254#238#220#156#131'~'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#222#173#142#255#252#249#255#252#249#255#252#249#255#252
+  +#249#255#252#249#255#252#249#255#252#249#255#252#249#254#248#241#254#248#241
+  +#255#248#239#254#244#233#254#244#233#254#244#233#254#240#225#254#240#225#254
+  +#240#222#156#131'~'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#222#173
+  +#142#254#248#241#255#252#249#254#248#241#255#252#249#254#248#241#255#252#249
+  +#254#248#241#255#252#249#254#248#241#254#248#241#254#248#241#254#248#241#255
+  +#248#239#254#244#233#254#244#233#254#240#225#254#240#225#156#131'~'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#218#164#130#218#171#141#218#164#130
+  +#218#171#141#218#164#130#218#171#141#218#164#130#218#171#141#218#164#130#218
+  +#164#130#218#164#130#218#164#130#218#164#130#218#164#130#218#164#130#218#164
+  +#130#218#164#130#218#164#130#156#131'~'#255#0#255
+]);
+LazarusResources.Add('TDAXMLDATASTREAMER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#142']'
+  +'Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#225#189#255#221#181#255#217#172#255
+  +#213#165#255#211#157#255#207#151#255#203#145#255#201#140#255#199#135#128'PK'
+  +#128#0#0#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#128#0#0'@'#0
+  +#0#255#231#203#255#227#194#255#224#187#255#220#178#0#0#0#255#212#161#255#208
+  +#156#0#0#0#255#203#143#128'PK'#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0'@'#0#0#255#238#217#255#233#208#255#230#199#255#226#191#0#0#0#255#218
+  +#175#255#215#166#0#0#0#255#207#152#128'PK'#128#0#0#255#255#255#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255
+  +#255#255#128#0#0'@'#0#0#255#243#229#255#240#222#255#235#213#255#233#204#255
+  +#229#197#0#0#0#0#0#0#255#216#171#255#213#165#128'PK'#128#0#0#255#255#255#128
+  +#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255
+  +#255#128#0#0#255#255#255#128#0#0'@'#0#0#7'9z'#255#246#233#255#242#225#255#238
+  +#218#0#0#0#255#231#203#255#227#193#0#0#0#255#218#176#128'PK'#128#0#0#255#255
+  +#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#128
+  +#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#255#254#250#255#250#244#255#248
+  +#239#255#244#231#0#0#0#255#238#215#255#233#206#0#0#0#255#225#189#128'PK'#128
+  +#0#0#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#128#0#0'@'#0#0
+  +#255#255#255#255#254#252#255#252#247#255#250#242#255#246#235#255#243#227#255
+  +#239#220#255#235#211#255#231#203#128'PK'#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#254#250#255#251#246#255#248#239
+  +#255#244#231#255#242#225#255#238#217#128'PKHJK'#201#194#201#7'9z'#7'9z'#7'9z'
+  +'='#154#242'5'#149#239'-'#140#239#7'9z'#7'9z'#7'9zyyy'#194#140'm'#255#255#255
+  +#255#255#255#255#255#255#137#167#199#7'9z'#137#167#199#255#252#248#247#240
+  +#235#226#218#209#226#216#204'{MIHJK'#206#199#204#191#184#192#7'9z@'#157#242
+  +'@'#157#242'@'#157#242'9'#152#240'2'#145#239#7'9zE_{yyy'#203#147'o'#255#255
+  +#255#255#255#255#137#167#199#7'9z'#15's'#233#7'9z'#137#167#199#234#233#230
+  +#182#180#176#182#177#171'uIEHJK'#209#202#209#194#188#194'h'#129#163#7'9z@'
+  +#157#242'@'#157#242'@'#157#242#7'9zE_{{{{yyy'#209#153'r'#255#255#255#137#167
+  +#199#7'9z'#15's'#233#15's'#233#15's'#233#7'9zURf'#160'g['#160'g['#149'\KHJK'
+  +#213#207#213#197#191#197#194#188#194'Qk'#138#7'9z@'#157#242#7'9zId'#128'yzzy'
+  +'yyyyy'#216#159'u'#137#167#199#7'9z'#27'}'#235#22'y'#234#18'u'#233#15's'#233
+  +#15's'#233#7'9z'#254#176'J'#240#145','#225#132'.HJK'#217#213#217#201#196#202
+  +#199#192#198#150#146#152'0Kf'#7'9z,D^'#137#137#137#127#127#127#130#130#131'y'
+  +'yy'#220#163'v'#7'9z'#7'9z'#7'9z'#31#130#235#27'}'#235#22'y'#234#7'9z'#7'9z'
+  +#7'9z'#218#152'c'#255#0#255'HJK'#225#218#224#207#201#206#199#192#198#151#150
+  +#153'UWX'#175#175#177'JLM'#137#137#137#128#128#128#132#132#132#127#127#127
+  +#220#163'v'#209#146'm'#209#146'm'#7'9z-'#140#239'%'#135#238#31#130#237#7'9zX'
+  +'Th'#212#154's'#255#0#255#255#0#255'HJK'#231#226#230#212#207#211#225#218#224
+  +#152#149#152'UWX'#176#175#177'LNO'#150#149#149#132#131#131'vvvyyy'#143#143
+  +#143#131#132#132'*C]'#7'9z7'#150#240'2'#146#240#7'9z'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'HJK'#239#235#239#235#233#235#198#197#199#160#157
+  +#161'UWX'#164#165#167';=>'#130#130#131#137#137#137#143#143#143#137#137#137
+  +#147#147#147'Id'#128#7'9z@'#157#242'@'#157#242'='#154#242#7'9z'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'HJK'#238#237#238#178#177#180#156#153#156
+  +#159#158#161'RTU'#235#235#237'ossY[Z'#7'9z'#7'9z'#7'9z'#7'9z'#7'9z@'#157#242
+  +'@'#157#242#7'9z'#7'9z'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255'HJK'#237#235#237#129#129#130#213#209#212#207#207#208'`cdprrxy{'#138
+  +#142#140#171#172#172'Xt'#146#7'9z'#7'9z'#7'9z'#7'9z'#7'9z'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#251#251
+  +#252#204#204#204#254#254#254#227#227#230#186#184#188#151#149#152#136#134#137
+  +'xy{rssfihehi'#150#152#153#150#152#153'HJK'#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#255#255#255#251
+  +#251#252#238#238#242#237#238#240#231#230#233#217#213#217#196#192#196#172#170
+  +#172#151#145#151#136#131#136#150#142#146#136#129#131'HJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  ,#255'HJK'#255#255#255#255#255#255#246#246#248#248#247#251#237#237#239#226#226
+  +#229#209#207#212#194#191#196#193#187#193#167#159#165'HJKHJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJKHJK'#255#255#255#255#255#255#255#255#255
+  +#240#239#243#229#225#230#203#197#203'HJKHJK'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'LNOHJKHJKHJKHJKHJK'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Glyphs.res
new file mode 100644
index 0000000..f6af17a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Mac.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Mac.lpk
new file mode 100644
index 0000000..82ed795
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Mac.lpk	
@@ -0,0 +1,353 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="DataAbstract_Core_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <CStyleOperator Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Data Abstract - Core Library"/>
+    <Files Count="78">
+      <Item1>
+        <Filename Value="BaseLoginService_Impl.pas"/>
+        <UnitName Value="BaseLoginService_Impl"/>
+      </Item1>
+      <Item2>
+        <Filename Value="BaseLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item2>
+      <Item3>
+        <Filename Value="DALoginService_Impl.pas"/>
+        <UnitName Value="DALoginService_Impl"/>
+      </Item3>
+      <Item4>
+        <Filename Value="DARemoteService_Impl.pas"/>
+        <UnitName Value="DARemoteService_Impl"/>
+      </Item4>
+      <Item5>
+        <Filename Value="DataAbstract_Core_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="DataAbstract_Core_Reg"/>
+      </Item5>
+      <Item6>
+        <Filename Value="DataAbstract3_Async.pas"/>
+        <UnitName Value="DataAbstract3_Async"/>
+      </Item6>
+      <Item7>
+        <Filename Value="DataAbstract3_Intf.pas"/>
+        <UnitName Value="DataAbstract3_Intf"/>
+      </Item7>
+      <Item8>
+        <Filename Value="DataAbstract3_Invk.pas"/>
+        <UnitName Value="DataAbstract3_Invk"/>
+      </Item8>
+      <Item9>
+        <Filename Value="DataAbstract4_Async.pas"/>
+        <UnitName Value="DataAbstract4_Async"/>
+      </Item9>
+      <Item10>
+        <Filename Value="DataAbstract4_Intf.pas"/>
+        <UnitName Value="DataAbstract4_Intf"/>
+      </Item10>
+      <Item11>
+        <Filename Value="DataAbstract4_Invk.pas"/>
+        <UnitName Value="DataAbstract4_Invk"/>
+      </Item11>
+      <Item12>
+        <Filename Value="DataAbstractService_Impl.pas"/>
+        <UnitName Value="DataAbstractService_Impl"/>
+      </Item12>
+      <Item13>
+        <Filename Value="DataAbstractService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item13>
+      <Item14>
+        <Filename Value="MultiDbLoginService_Impl.pas"/>
+        <UnitName Value="MultiDbLoginService_Impl"/>
+      </Item14>
+      <Item15>
+        <Filename Value="MultiDbLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item15>
+      <Item16>
+        <Filename Value="MultiDbLoginServiceV5_Impl.pas"/>
+        <UnitName Value="MultiDbLoginServiceV5_Impl"/>
+      </Item16>
+      <Item17>
+        <Filename Value="MultiDbLoginServiceV5_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item17>
+      <Item18>
+        <Filename Value="SimpleLoginService_Impl.pas"/>
+        <UnitName Value="SimpleLoginService_Impl"/>
+      </Item18>
+      <Item19>
+        <Filename Value="SimpleLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uDAADOInterfaces.pas"/>
+        <UnitName Value="uDAADOInterfaces"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uDABin2DataStreamer.pas"/>
+        <UnitName Value="uDABin2DataStreamer"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uDABinAdapter.pas"/>
+        <UnitName Value="uDABinAdapter"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uDABusinessProcessor.pas"/>
+        <UnitName Value="uDABusinessProcessor"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uDAClasses.pas"/>
+        <UnitName Value="uDAClasses"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uDAClientDataModule.pas"/>
+        <UnitName Value="uDAClientDataModule"/>
+      </Item25>
+      <Item26>
+        <Filename Value="uDADataAdapter.pas"/>
+        <UnitName Value="uDADataAdapter"/>
+      </Item26>
+      <Item27>
+        <Filename Value="uDADatasetWrapper.pas"/>
+        <UnitName Value="uDADatasetWrapper"/>
+      </Item27>
+      <Item28>
+        <Filename Value="uDADataStreamer.pas"/>
+        <UnitName Value="uDADataStreamer"/>
+      </Item28>
+      <Item29>
+        <Filename Value="uDADataTable.pas"/>
+        <UnitName Value="uDADataTable"/>
+      </Item29>
+      <Item30>
+        <Filename Value="uDADataTableReferenceCollection.pas"/>
+        <UnitName Value="uDADataTableReferenceCollection"/>
+      </Item30>
+      <Item31>
+        <Filename Value="uDADB2Interfaces.pas"/>
+        <UnitName Value="uDADB2Interfaces"/>
+      </Item31>
+      <Item32>
+        <Filename Value="uDADBSessionManager.pas"/>
+        <UnitName Value="uDADBSessionManager"/>
+      </Item32>
+      <Item33>
+        <Filename Value="uDADelta.pas"/>
+        <UnitName Value="uDADelta"/>
+      </Item33>
+      <Item34>
+        <Filename Value="uDADesigntimeCall.pas"/>
+        <UnitName Value="uDADesigntimeCall"/>
+      </Item34>
+      <Item35>
+        <Filename Value="uDADriverInfo.pas"/>
+        <UnitName Value="uDADriverInfo"/>
+      </Item35>
+      <Item36>
+        <Filename Value="uDADriverManager.pas"/>
+        <UnitName Value="uDADriverManager"/>
+      </Item36>
+      <Item37>
+        <Filename Value="uDAEngine.pas"/>
+        <UnitName Value="uDAEngine"/>
+      </Item37>
+      <Item38>
+        <Filename Value="uDAExceptions.pas"/>
+        <UnitName Value="uDAExceptions"/>
+      </Item38>
+      <Item39>
+        <Filename Value="uDAExpressionEvaluator.pas"/>
+        <UnitName Value="uDAExpressionEvaluator"/>
+      </Item39>
+      <Item40>
+        <Filename Value="uDAHelpers.pas"/>
+        <UnitName Value="uDAHelpers"/>
+      </Item40>
+      <Item41>
+        <Filename Value="uDAIBInterfaces.pas"/>
+        <UnitName Value="uDAIBInterfaces"/>
+      </Item41>
+      <Item42>
+        <Filename Value="uDAInterfaces.pas"/>
+        <UnitName Value="uDAInterfaces"/>
+      </Item42>
+      <Item43>
+        <Filename Value="uDAInterfacesEx.pas"/>
+        <UnitName Value="uDAInterfacesEx"/>
+      </Item43>
+      <Item44>
+        <Filename Value="uDAJSONDataStreamer.pas"/>
+        <UnitName Value="uDAJSONDataStreamer"/>
+      </Item44>
+      <Item45>
+        <Filename Value="uDALocalDataAdapter.pas"/>
+        <UnitName Value="uDALocalDataAdapter"/>
+      </Item45>
+      <Item46>
+        <Filename Value="uDAMacroProcessors.pas"/>
+        <UnitName Value="uDAMacroProcessors"/>
+      </Item46>
+      <Item47>
+        <Filename Value="uDAMacros.pas"/>
+        <UnitName Value="uDAMacros"/>
+      </Item47>
+      <Item48>
+        <Filename Value="uDAMemDataset.pas"/>
+        <UnitName Value="uDAMemDataset"/>
+      </Item48>
+      <Item49>
+        <Filename Value="uDAMemDataTable.pas"/>
+        <UnitName Value="uDAMemDataTable"/>
+      </Item49>
+      <Item50>
+        <Filename Value="uDAMySQLInterfaces.pas"/>
+        <UnitName Value="uDAMySQLInterfaces"/>
+      </Item50>
+      <Item51>
+        <Filename Value="uDAOracleInterfaces.pas"/>
+        <UnitName Value="uDAOracleInterfaces"/>
+      </Item51>
+      <Item52>
+        <Filename Value="uDAPleaseWaitForm.pas"/>
+        <UnitName Value="uDAPleaseWaitForm"/>
+      </Item52>
+      <Item53>
+        <Filename Value="uDAPleaseWaitForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item53>
+      <Item54>
+        <Filename Value="uDAPostgresInterfaces.pas"/>
+        <UnitName Value="uDAPostgresInterfaces"/>
+      </Item54>
+      <Item55>
+        <Filename Value="uDAPoweredByDataAbstractButton.pas"/>
+        <UnitName Value="uDAPoweredByDataAbstractButton"/>
+      </Item55>
+      <Item56>
+        <Filename Value="uDAReconcileDialog.pas"/>
+        <UnitName Value="uDAReconcileDialog"/>
+      </Item56>
+      <Item57>
+        <Filename Value="uDAReconcileDialog.lfm"/>
+        <Type Value="LFM"/>
+      </Item57>
+      <Item58>
+        <Filename Value="uDAReconcileDialog.lrs"/>
+        <Type Value="LRS"/>
+      </Item58>
+      <Item59>
+        <Filename Value="uDAReconcileDialogDetails.pas"/>
+        <UnitName Value="uDAReconcileDialogDetails"/>
+      </Item59>
+      <Item60>
+        <Filename Value="uDAReconcileDialogDetails.lfm"/>
+        <Type Value="LFM"/>
+      </Item60>
+      <Item61>
+        <Filename Value="uDAReconcileDialogDetails.lrs"/>
+        <Type Value="LRS"/>
+      </Item61>
+      <Item62>
+        <Filename Value="uDARegExpr.pas"/>
+        <UnitName Value="uDARegExpr"/>
+      </Item62>
+      <Item63>
+        <Filename Value="uDARemoteDataAdapter.pas"/>
+        <UnitName Value="uDARemoteDataAdapter"/>
+      </Item63>
+      <Item64>
+        <Filename Value="uDARemoteDataAdapterRequests.pas"/>
+        <UnitName Value="uDARemoteDataAdapterRequests"/>
+      </Item64>
+      <Item65>
+        <Filename Value="uDARes.pas"/>
+        <UnitName Value="uDARes"/>
+      </Item65>
+      <Item66>
+        <Filename Value="uDAScriptingProvider.pas"/>
+        <UnitName Value="uDAScriptingProvider"/>
+      </Item66>
+      <Item67>
+        <Filename Value="uDAServerLog.pas"/>
+        <UnitName Value="uDAServerLog"/>
+      </Item67>
+      <Item68>
+        <Filename Value="uDASQL92Interfaces.pas"/>
+        <UnitName Value="uDASQL92Interfaces"/>
+      </Item68>
+      <Item69>
+        <Filename Value="uDASQL92QueryBuilder.pas"/>
+        <UnitName Value="uDASQL92QueryBuilder"/>
+      </Item69>
+      <Item70>
+        <Filename Value="uDASQLiteInterfaces.pas"/>
+        <UnitName Value="uDASQLiteInterfaces"/>
+      </Item70>
+      <Item71>
+        <Filename Value="uDASupportClasses.pas"/>
+        <UnitName Value="uDASupportClasses"/>
+      </Item71>
+      <Item72>
+        <Filename Value="uDASybaseInterfaces.pas"/>
+        <UnitName Value="uDASybaseInterfaces"/>
+      </Item72>
+      <Item73>
+        <Filename Value="uDAUtils.pas"/>
+        <UnitName Value="uDAUtils"/>
+      </Item73>
+      <Item74>
+        <Filename Value="uDAWhere.pas"/>
+        <UnitName Value="uDAWhere"/>
+      </Item74>
+      <Item75>
+        <Filename Value="uDAXMLAdapter.pas"/>
+        <UnitName Value="uDAXMLAdapter"/>
+      </Item75>
+      <Item76>
+        <Filename Value="uDAXMLUtils.pas"/>
+        <UnitName Value="uDAXMLUtils"/>
+      </Item76>
+      <Item77>
+        <Filename Value="uDALocalCommand.pas"/>
+        <UnitName Value="uDALocalCommand"/>
+      </Item77>
+      <Item78>
+        <Filename Value="uDALocalHelpers.pas"/>
+        <UnitName Value="uDALocalHelpers"/>
+      </Item78>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Mac"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)/"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Unix.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Unix.lpk
new file mode 100644
index 0000000..4cde31d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Unix.lpk	
@@ -0,0 +1,359 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_Core_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="units\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <D2Extensions Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Data Abstract - Core Library"/>
+    <Files Count="78">
+      <Item1>
+        <Filename Value="BaseLoginService_Impl.pas"/>
+        <UnitName Value="BaseLoginService_Impl"/>
+      </Item1>
+      <Item2>
+        <Filename Value="BaseLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item2>
+      <Item3>
+        <Filename Value="DALoginService_Impl.pas"/>
+        <UnitName Value="DALoginService_Impl"/>
+      </Item3>
+      <Item4>
+        <Filename Value="DARemoteService_Impl.pas"/>
+        <UnitName Value="DARemoteService_Impl"/>
+      </Item4>
+      <Item5>
+        <Filename Value="DataAbstract_Core_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="DataAbstract_Core_Reg"/>
+      </Item5>
+      <Item6>
+        <Filename Value="DataAbstract3_Async.pas"/>
+        <UnitName Value="DataAbstract3_Async"/>
+      </Item6>
+      <Item7>
+        <Filename Value="DataAbstract3_Intf.pas"/>
+        <UnitName Value="DataAbstract3_Intf"/>
+      </Item7>
+      <Item8>
+        <Filename Value="DataAbstract3_Invk.pas"/>
+        <UnitName Value="DataAbstract3_Invk"/>
+      </Item8>
+      <Item9>
+        <Filename Value="DataAbstract4_Async.pas"/>
+        <UnitName Value="DataAbstract4_Async"/>
+      </Item9>
+      <Item10>
+        <Filename Value="DataAbstract4_Intf.pas"/>
+        <UnitName Value="DataAbstract4_Intf"/>
+      </Item10>
+      <Item11>
+        <Filename Value="DataAbstract4_Invk.pas"/>
+        <UnitName Value="DataAbstract4_Invk"/>
+      </Item11>
+      <Item12>
+        <Filename Value="DataAbstractService_Impl.pas"/>
+        <UnitName Value="DataAbstractService_Impl"/>
+      </Item12>
+      <Item13>
+        <Filename Value="DataAbstractService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item13>
+      <Item14>
+        <Filename Value="MultiDbLoginService_Impl.pas"/>
+        <UnitName Value="MultiDbLoginService_Impl"/>
+      </Item14>
+      <Item15>
+        <Filename Value="MultiDbLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item15>
+      <Item16>
+        <Filename Value="MultiDbLoginServiceV5_Impl.pas"/>
+        <UnitName Value="MultiDbLoginServiceV5_Impl"/>
+      </Item16>
+      <Item17>
+        <Filename Value="MultiDbLoginServiceV5_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item17>
+      <Item18>
+        <Filename Value="SimpleLoginService_Impl.pas"/>
+        <UnitName Value="SimpleLoginService_Impl"/>
+      </Item18>
+      <Item19>
+        <Filename Value="SimpleLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uDAADOInterfaces.pas"/>
+        <UnitName Value="uDAADOInterfaces"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uDABin2DataStreamer.pas"/>
+        <UnitName Value="uDABin2DataStreamer"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uDABinAdapter.pas"/>
+        <UnitName Value="uDABinAdapter"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uDABusinessProcessor.pas"/>
+        <UnitName Value="uDABusinessProcessor"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uDAClasses.pas"/>
+        <UnitName Value="uDAClasses"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uDAClientDataModule.pas"/>
+        <UnitName Value="uDAClientDataModule"/>
+      </Item25>
+      <Item26>
+        <Filename Value="uDADataAdapter.pas"/>
+        <UnitName Value="uDADataAdapter"/>
+      </Item26>
+      <Item27>
+        <Filename Value="uDADatasetWrapper.pas"/>
+        <UnitName Value="uDADatasetWrapper"/>
+      </Item27>
+      <Item28>
+        <Filename Value="uDADataStreamer.pas"/>
+        <UnitName Value="uDADataStreamer"/>
+      </Item28>
+      <Item29>
+        <Filename Value="uDADataTable.pas"/>
+        <UnitName Value="uDADataTable"/>
+      </Item29>
+      <Item30>
+        <Filename Value="uDADataTableReferenceCollection.pas"/>
+        <UnitName Value="uDADataTableReferenceCollection"/>
+      </Item30>
+      <Item31>
+        <Filename Value="uDADB2Interfaces.pas"/>
+        <UnitName Value="uDADB2Interfaces"/>
+      </Item31>
+      <Item32>
+        <Filename Value="uDADBSessionManager.pas"/>
+        <UnitName Value="uDADBSessionManager"/>
+      </Item32>
+      <Item33>
+        <Filename Value="uDADelta.pas"/>
+        <UnitName Value="uDADelta"/>
+      </Item33>
+      <Item34>
+        <Filename Value="uDADesigntimeCall.pas"/>
+        <UnitName Value="uDADesigntimeCall"/>
+      </Item34>
+      <Item35>
+        <Filename Value="uDADriverInfo.pas"/>
+        <UnitName Value="uDADriverInfo"/>
+      </Item35>
+      <Item36>
+        <Filename Value="uDADriverManager.pas"/>
+        <UnitName Value="uDADriverManager"/>
+      </Item36>
+      <Item37>
+        <Filename Value="uDAEngine.pas"/>
+        <UnitName Value="uDAEngine"/>
+      </Item37>
+      <Item38>
+        <Filename Value="uDAExceptions.pas"/>
+        <UnitName Value="uDAExceptions"/>
+      </Item38>
+      <Item39>
+        <Filename Value="uDAExpressionEvaluator.pas"/>
+        <UnitName Value="uDAExpressionEvaluator"/>
+      </Item39>
+      <Item40>
+        <Filename Value="uDAHelpers.pas"/>
+        <UnitName Value="uDAHelpers"/>
+      </Item40>
+      <Item41>
+        <Filename Value="uDAIBInterfaces.pas"/>
+        <UnitName Value="uDAIBInterfaces"/>
+      </Item41>
+      <Item42>
+        <Filename Value="uDAInterfaces.pas"/>
+        <UnitName Value="uDAInterfaces"/>
+      </Item42>
+      <Item43>
+        <Filename Value="uDAInterfacesEx.pas"/>
+        <UnitName Value="uDAInterfacesEx"/>
+      </Item43>
+      <Item44>
+        <Filename Value="uDAJSONDataStreamer.pas"/>
+        <UnitName Value="uDAJSONDataStreamer"/>
+      </Item44>
+      <Item45>
+        <Filename Value="uDALocalDataAdapter.pas"/>
+        <UnitName Value="uDALocalDataAdapter"/>
+      </Item45>
+      <Item46>
+        <Filename Value="uDAMacroProcessors.pas"/>
+        <UnitName Value="uDAMacroProcessors"/>
+      </Item46>
+      <Item47>
+        <Filename Value="uDAMacros.pas"/>
+        <UnitName Value="uDAMacros"/>
+      </Item47>
+      <Item48>
+        <Filename Value="uDAMemDataset.pas"/>
+        <UnitName Value="uDAMemDataset"/>
+      </Item48>
+      <Item49>
+        <Filename Value="uDAMemDataTable.pas"/>
+        <UnitName Value="uDAMemDataTable"/>
+      </Item49>
+      <Item50>
+        <Filename Value="uDAMySQLInterfaces.pas"/>
+        <UnitName Value="uDAMySQLInterfaces"/>
+      </Item50>
+      <Item51>
+        <Filename Value="uDAOracleInterfaces.pas"/>
+        <UnitName Value="uDAOracleInterfaces"/>
+      </Item51>
+      <Item52>
+        <Filename Value="uDAPleaseWaitForm.pas"/>
+        <UnitName Value="uDAPleaseWaitForm"/>
+      </Item52>
+      <Item53>
+        <Filename Value="uDAPleaseWaitForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item53>
+      <Item54>
+        <Filename Value="uDAPostgresInterfaces.pas"/>
+        <UnitName Value="uDAPostgresInterfaces"/>
+      </Item54>
+      <Item55>
+        <Filename Value="uDAPoweredByDataAbstractButton.pas"/>
+        <UnitName Value="uDAPoweredByDataAbstractButton"/>
+      </Item55>
+      <Item56>
+        <Filename Value="uDAReconcileDialog.pas"/>
+        <UnitName Value="uDAReconcileDialog"/>
+      </Item56>
+      <Item57>
+        <Filename Value="uDAReconcileDialog.lfm"/>
+        <Type Value="LFM"/>
+      </Item57>
+      <Item58>
+        <Filename Value="uDAReconcileDialog.lrs"/>
+        <Type Value="LRS"/>
+      </Item58>
+      <Item59>
+        <Filename Value="uDAReconcileDialogDetails.pas"/>
+        <UnitName Value="uDAReconcileDialogDetails"/>
+      </Item59>
+      <Item60>
+        <Filename Value="uDAReconcileDialogDetails.lfm"/>
+        <Type Value="LFM"/>
+      </Item60>
+      <Item61>
+        <Filename Value="uDAReconcileDialogDetails.lrs"/>
+        <Type Value="LRS"/>
+      </Item61>
+      <Item62>
+        <Filename Value="uDARegExpr.pas"/>
+        <UnitName Value="uDARegExpr"/>
+      </Item62>
+      <Item63>
+        <Filename Value="uDARemoteDataAdapter.pas"/>
+        <UnitName Value="uDARemoteDataAdapter"/>
+      </Item63>
+      <Item64>
+        <Filename Value="uDARemoteDataAdapterRequests.pas"/>
+        <UnitName Value="uDARemoteDataAdapterRequests"/>
+      </Item64>
+      <Item65>
+        <Filename Value="uDARes.pas"/>
+        <UnitName Value="uDARes"/>
+      </Item65>
+      <Item66>
+        <Filename Value="uDAScriptingProvider.pas"/>
+        <UnitName Value="uDAScriptingProvider"/>
+      </Item66>
+      <Item67>
+        <Filename Value="uDAServerLog.pas"/>
+        <UnitName Value="uDAServerLog"/>
+      </Item67>
+      <Item68>
+        <Filename Value="uDASQL92Interfaces.pas"/>
+        <UnitName Value="uDASQL92Interfaces"/>
+      </Item68>
+      <Item69>
+        <Filename Value="uDASQL92QueryBuilder.pas"/>
+        <UnitName Value="uDASQL92QueryBuilder"/>
+      </Item69>
+      <Item70>
+        <Filename Value="uDASQLiteInterfaces.pas"/>
+        <UnitName Value="uDASQLiteInterfaces"/>
+      </Item70>
+      <Item71>
+        <Filename Value="uDASupportClasses.pas"/>
+        <UnitName Value="uDASupportClasses"/>
+      </Item71>
+      <Item72>
+        <Filename Value="uDASybaseInterfaces.pas"/>
+        <UnitName Value="uDASybaseInterfaces"/>
+      </Item72>
+      <Item73>
+        <Filename Value="uDAUtils.pas"/>
+        <UnitName Value="uDAUtils"/>
+      </Item73>
+      <Item74>
+        <Filename Value="uDAWhere.pas"/>
+        <UnitName Value="uDAWhere"/>
+      </Item74>
+      <Item75>
+        <Filename Value="uDAXMLAdapter.pas"/>
+        <UnitName Value="uDAXMLAdapter"/>
+      </Item75>
+      <Item76>
+        <Filename Value="uDAXMLUtils.pas"/>
+        <UnitName Value="uDAXMLUtils"/>
+      </Item76>
+      <Item77>
+        <Filename Value="uDALocalCommand.pas"/>
+        <UnitName Value="uDALocalCommand"/>
+      </Item77>
+      <Item78>
+        <Filename Value="uDALocalHelpers.pas"/>
+        <UnitName Value="uDALocalHelpers"/>
+      </Item78>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)\"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Windows.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Windows.lpk
new file mode 100644
index 0000000..35d24ac
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Lazarus_Windows.lpk	
@@ -0,0 +1,350 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_Core_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Data Abstract - Core Library"/>
+    <Files Count="78">
+      <Item1>
+        <Filename Value="BaseLoginService_Impl.pas"/>
+        <UnitName Value="BaseLoginService_Impl"/>
+      </Item1>
+      <Item2>
+        <Filename Value="BaseLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item2>
+      <Item3>
+        <Filename Value="DALoginService_Impl.pas"/>
+        <UnitName Value="DALoginService_Impl"/>
+      </Item3>
+      <Item4>
+        <Filename Value="DARemoteService_Impl.pas"/>
+        <UnitName Value="DARemoteService_Impl"/>
+      </Item4>
+      <Item5>
+        <Filename Value="DataAbstract_Core_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="DataAbstract_Core_Reg"/>
+      </Item5>
+      <Item6>
+        <Filename Value="DataAbstract3_Async.pas"/>
+        <UnitName Value="DataAbstract3_Async"/>
+      </Item6>
+      <Item7>
+        <Filename Value="DataAbstract3_Intf.pas"/>
+        <UnitName Value="DataAbstract3_Intf"/>
+      </Item7>
+      <Item8>
+        <Filename Value="DataAbstract3_Invk.pas"/>
+        <UnitName Value="DataAbstract3_Invk"/>
+      </Item8>
+      <Item9>
+        <Filename Value="DataAbstract4_Async.pas"/>
+        <UnitName Value="DataAbstract4_Async"/>
+      </Item9>
+      <Item10>
+        <Filename Value="DataAbstract4_Intf.pas"/>
+        <UnitName Value="DataAbstract4_Intf"/>
+      </Item10>
+      <Item11>
+        <Filename Value="DataAbstract4_Invk.pas"/>
+        <UnitName Value="DataAbstract4_Invk"/>
+      </Item11>
+      <Item12>
+        <Filename Value="DataAbstractService_Impl.pas"/>
+        <UnitName Value="DataAbstractService_Impl"/>
+      </Item12>
+      <Item13>
+        <Filename Value="DataAbstractService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item13>
+      <Item14>
+        <Filename Value="MultiDbLoginService_Impl.pas"/>
+        <UnitName Value="MultiDbLoginService_Impl"/>
+      </Item14>
+      <Item15>
+        <Filename Value="MultiDbLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item15>
+      <Item16>
+        <Filename Value="MultiDbLoginServiceV5_Impl.pas"/>
+        <UnitName Value="MultiDbLoginServiceV5_Impl"/>
+      </Item16>
+      <Item17>
+        <Filename Value="MultiDbLoginServiceV5_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item17>
+      <Item18>
+        <Filename Value="SimpleLoginService_Impl.pas"/>
+        <UnitName Value="SimpleLoginService_Impl"/>
+      </Item18>
+      <Item19>
+        <Filename Value="SimpleLoginService_Impl.lfm"/>
+        <Type Value="LFM"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uDAADOInterfaces.pas"/>
+        <UnitName Value="uDAADOInterfaces"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uDABin2DataStreamer.pas"/>
+        <UnitName Value="uDABin2DataStreamer"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uDABinAdapter.pas"/>
+        <UnitName Value="uDABinAdapter"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uDABusinessProcessor.pas"/>
+        <UnitName Value="uDABusinessProcessor"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uDAClasses.pas"/>
+        <UnitName Value="uDAClasses"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uDAClientDataModule.pas"/>
+        <UnitName Value="uDAClientDataModule"/>
+      </Item25>
+      <Item26>
+        <Filename Value="uDADataAdapter.pas"/>
+        <UnitName Value="uDADataAdapter"/>
+      </Item26>
+      <Item27>
+        <Filename Value="uDADatasetWrapper.pas"/>
+        <UnitName Value="uDADatasetWrapper"/>
+      </Item27>
+      <Item28>
+        <Filename Value="uDADataStreamer.pas"/>
+        <UnitName Value="uDADataStreamer"/>
+      </Item28>
+      <Item29>
+        <Filename Value="uDADataTable.pas"/>
+        <UnitName Value="uDADataTable"/>
+      </Item29>
+      <Item30>
+        <Filename Value="uDADataTableReferenceCollection.pas"/>
+        <UnitName Value="uDADataTableReferenceCollection"/>
+      </Item30>
+      <Item31>
+        <Filename Value="uDADB2Interfaces.pas"/>
+        <UnitName Value="uDADB2Interfaces"/>
+      </Item31>
+      <Item32>
+        <Filename Value="uDADBSessionManager.pas"/>
+        <UnitName Value="uDADBSessionManager"/>
+      </Item32>
+      <Item33>
+        <Filename Value="uDADelta.pas"/>
+        <UnitName Value="uDADelta"/>
+      </Item33>
+      <Item34>
+        <Filename Value="uDADesigntimeCall.pas"/>
+        <UnitName Value="uDADesigntimeCall"/>
+      </Item34>
+      <Item35>
+        <Filename Value="uDADriverInfo.pas"/>
+        <UnitName Value="uDADriverInfo"/>
+      </Item35>
+      <Item36>
+        <Filename Value="uDADriverManager.pas"/>
+        <UnitName Value="uDADriverManager"/>
+      </Item36>
+      <Item37>
+        <Filename Value="uDAEngine.pas"/>
+        <UnitName Value="uDAEngine"/>
+      </Item37>
+      <Item38>
+        <Filename Value="uDAExceptions.pas"/>
+        <UnitName Value="uDAExceptions"/>
+      </Item38>
+      <Item39>
+        <Filename Value="uDAExpressionEvaluator.pas"/>
+        <UnitName Value="uDAExpressionEvaluator"/>
+      </Item39>
+      <Item40>
+        <Filename Value="uDAHelpers.pas"/>
+        <UnitName Value="uDAHelpers"/>
+      </Item40>
+      <Item41>
+        <Filename Value="uDAIBInterfaces.pas"/>
+        <UnitName Value="uDAIBInterfaces"/>
+      </Item41>
+      <Item42>
+        <Filename Value="uDAInterfaces.pas"/>
+        <UnitName Value="uDAInterfaces"/>
+      </Item42>
+      <Item43>
+        <Filename Value="uDAInterfacesEx.pas"/>
+        <UnitName Value="uDAInterfacesEx"/>
+      </Item43>
+      <Item44>
+        <Filename Value="uDAJSONDataStreamer.pas"/>
+        <UnitName Value="uDAJSONDataStreamer"/>
+      </Item44>
+      <Item45>
+        <Filename Value="uDALocalDataAdapter.pas"/>
+        <UnitName Value="uDALocalDataAdapter"/>
+      </Item45>
+      <Item46>
+        <Filename Value="uDAMacroProcessors.pas"/>
+        <UnitName Value="uDAMacroProcessors"/>
+      </Item46>
+      <Item47>
+        <Filename Value="uDAMacros.pas"/>
+        <UnitName Value="uDAMacros"/>
+      </Item47>
+      <Item48>
+        <Filename Value="uDAMemDataset.pas"/>
+        <UnitName Value="uDAMemDataset"/>
+      </Item48>
+      <Item49>
+        <Filename Value="uDAMemDataTable.pas"/>
+        <UnitName Value="uDAMemDataTable"/>
+      </Item49>
+      <Item50>
+        <Filename Value="uDAMySQLInterfaces.pas"/>
+        <UnitName Value="uDAMySQLInterfaces"/>
+      </Item50>
+      <Item51>
+        <Filename Value="uDAOracleInterfaces.pas"/>
+        <UnitName Value="uDAOracleInterfaces"/>
+      </Item51>
+      <Item52>
+        <Filename Value="uDAPleaseWaitForm.pas"/>
+        <UnitName Value="uDAPleaseWaitForm"/>
+      </Item52>
+      <Item53>
+        <Filename Value="uDAPleaseWaitForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item53>
+      <Item54>
+        <Filename Value="uDAPostgresInterfaces.pas"/>
+        <UnitName Value="uDAPostgresInterfaces"/>
+      </Item54>
+      <Item55>
+        <Filename Value="uDAPoweredByDataAbstractButton.pas"/>
+        <UnitName Value="uDAPoweredByDataAbstractButton"/>
+      </Item55>
+      <Item56>
+        <Filename Value="uDAReconcileDialog.pas"/>
+        <UnitName Value="uDAReconcileDialog"/>
+      </Item56>
+      <Item57>
+        <Filename Value="uDAReconcileDialog.lfm"/>
+        <Type Value="LFM"/>
+      </Item57>
+      <Item58>
+        <Filename Value="uDAReconcileDialog.lrs"/>
+        <Type Value="LRS"/>
+      </Item58>
+      <Item59>
+        <Filename Value="uDAReconcileDialogDetails.pas"/>
+        <UnitName Value="uDAReconcileDialogDetails"/>
+      </Item59>
+      <Item60>
+        <Filename Value="uDAReconcileDialogDetails.lfm"/>
+        <Type Value="LFM"/>
+      </Item60>
+      <Item61>
+        <Filename Value="uDAReconcileDialogDetails.lrs"/>
+        <Type Value="LRS"/>
+      </Item61>
+      <Item62>
+        <Filename Value="uDARegExpr.pas"/>
+        <UnitName Value="uDARegExpr"/>
+      </Item62>
+      <Item63>
+        <Filename Value="uDARemoteDataAdapter.pas"/>
+        <UnitName Value="uDARemoteDataAdapter"/>
+      </Item63>
+      <Item64>
+        <Filename Value="uDARemoteDataAdapterRequests.pas"/>
+        <UnitName Value="uDARemoteDataAdapterRequests"/>
+      </Item64>
+      <Item65>
+        <Filename Value="uDARes.pas"/>
+        <UnitName Value="uDARes"/>
+      </Item65>
+      <Item66>
+        <Filename Value="uDAScriptingProvider.pas"/>
+        <UnitName Value="uDAScriptingProvider"/>
+      </Item66>
+      <Item67>
+        <Filename Value="uDAServerLog.pas"/>
+        <UnitName Value="uDAServerLog"/>
+      </Item67>
+      <Item68>
+        <Filename Value="uDASQL92Interfaces.pas"/>
+        <UnitName Value="uDASQL92Interfaces"/>
+      </Item68>
+      <Item69>
+        <Filename Value="uDASQL92QueryBuilder.pas"/>
+        <UnitName Value="uDASQL92QueryBuilder"/>
+      </Item69>
+      <Item70>
+        <Filename Value="uDASQLiteInterfaces.pas"/>
+        <UnitName Value="uDASQLiteInterfaces"/>
+      </Item70>
+      <Item71>
+        <Filename Value="uDASupportClasses.pas"/>
+        <UnitName Value="uDASupportClasses"/>
+      </Item71>
+      <Item72>
+        <Filename Value="uDASybaseInterfaces.pas"/>
+        <UnitName Value="uDASybaseInterfaces"/>
+      </Item72>
+      <Item73>
+        <Filename Value="uDAUtils.pas"/>
+        <UnitName Value="uDAUtils"/>
+      </Item73>
+      <Item74>
+        <Filename Value="uDAWhere.pas"/>
+        <UnitName Value="uDAWhere"/>
+      </Item74>
+      <Item75>
+        <Filename Value="uDAXMLAdapter.pas"/>
+        <UnitName Value="uDAXMLAdapter"/>
+      </Item75>
+      <Item76>
+        <Filename Value="uDAXMLUtils.pas"/>
+        <UnitName Value="uDAXMLUtils"/>
+      </Item76>
+      <Item77>
+        <Filename Value="uDALocalCommand.pas"/>
+        <UnitName Value="uDALocalCommand"/>
+      </Item77>
+      <Item78>
+        <Filename Value="uDALocalHelpers.pas"/>
+        <UnitName Value="uDALocalHelpers"/>
+      </Item78>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Reg.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Reg.pas
new file mode 100644
index 0000000..a3d833e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Core_Reg.pas	
@@ -0,0 +1,80 @@
+unit DataAbstract_Core_Reg;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  Classes,
+  uDARes, uDAInterfaces, uDAClasses, uDADriverManager,
+  uDABinAdapter, uDAXMLAdapter, uDADataTable, uDADesigntimeCall,uDABin2DataStreamer,
+  uDAJSONDataStreamer,
+  {$IFNDEF FPC}uDACDSDataTable,uDADatasetProvider,uDACache,{$ENDIF FPC} 
+  uDARemoteDataAdapter,uDALocalDataAdapter,
+  {$IFDEF MSWINDOWS}
+  {$IFNDEF FPC}
+  uDAADODataTable,
+  {$ENDIF}
+  {$ENDIF MSWINDOWS}
+  uDABusinessProcessor,
+  uDADBSessionManager,
+  uDAServerLog,
+  uDAMemDataTable,
+  uDARemoteCommand, uDALocalCommand,
+  uDAPoweredByDataAbstractButton;
+
+{$IFNDEF FPC}
+  {$R DataAbstract_Core_Glyphs.res}
+{$ENDIF}
+  
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName,
+    [TDAPoweredByDataAbstractButton,
+      TDADriverManager,
+      TDAConnectionManager,
+      TDASchema,
+      TDADiagrams,
+      TDADataDictionary,
+      TDABin2DataStreamer,
+      TDAXMLDataStreamer,
+      TDAJSONDataStreamer,
+      TDARemoteDataAdapter, TDALocalDataAdapter,
+      {$IFNDEF FPC}
+      TDADatasetProvider,
+      {$ENDIF FPC}
+      TDAMemDataTable,
+      TDABusinessProcessor,
+      TDADesigntimeCall,
+      TDADataSource,
+      TDARemoteCommand, TDALocalCommand,
+      TDAServerLog]);
+{$WARN SYMBOL_DEPRECATED OFF}
+  RegisterComponents('RemObjects Data Abstract (Legacy)', [TDABinAdapter,TDABinDataStreamer
+    {$IFNDEF FPC},TDACDSDataTable, TDAADODataTable, TDAXMLAdapter,TDACache{$ENDIF}]);
+{$WARN SYMBOL_DEPRECATED ON}      
+  RegisterComponents('RemObjects SDK', [TDADBSessionManager]);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I DataAbstract_Core_Glyphs.lrs}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.bdsproj
new file mode 100644
index 0000000..81d84c2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{20E037D4-6EF6-4096-ACA5-5BA32C54E59D}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">DataAbstract_Scripting_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">1</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects Data Abstract - Scripting Integration Library</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\Dcu\D10;..\..\Pascal Script\Dcu\D10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String"></Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.cfg
new file mode 100644
index 0000000..6d65c2e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.cfg	
@@ -0,0 +1,52 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\Dcu\D10"
+-LE"..\Dcu\D10"
+-LN"..\Dcu\D10"
+-U"..\Dcu\D10;..\..\Pascal Script\Dcu\D10"
+-O"..\Dcu\D10;..\..\Pascal Script\Dcu\D10"
+-I"..\Dcu\D10;..\..\Pascal Script\Dcu\D10"
+-R"..\Dcu\D10;..\..\Pascal Script\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.dpk
new file mode 100644
index 0000000..14457eb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_Scripting_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Scripting Integration Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  dbrtl,
+  vcl,
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10,
+  PascalScript_Core_D10;
+
+contains
+  uDAPascalScript in 'uDAPascalScript.pas',
+  uDAPSScriptingProvider in 'uDAPSScriptingProvider.pas',
+  DataAbstract_Scripting_Reg in 'DataAbstract_Scripting_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.dpk
new file mode 100644
index 0000000..2e5cb89
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.dpk	
@@ -0,0 +1,42 @@
+package DataAbstract_Scripting_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Scripting Integration Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  dbrtl,
+  vcl,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  PascalScript_Core_D11;
+
+contains
+  uDAPascalScript in 'uDAPascalScript.pas',
+  uDAPSScriptingProvider in 'uDAPSScriptingProvider.pas',
+  DataAbstract_Scripting_Reg in 'DataAbstract_Scripting_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.dproj
new file mode 100644
index 0000000..9a099a4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.dproj	
@@ -0,0 +1,560 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3fb27763-9440-44c3-bb51-17969172e8fe}</ProjectGuid>
+    <MainSource>DataAbstract_Scripting_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\DataAbstract_Scripting_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11;..\..\Pascal Script for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11;..\..\Pascal Script for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11;..\..\Pascal Script for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11;..\..\Pascal Script for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11;..\..\Pascal Script for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11;..\..\Pascal Script for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11;..\..\Pascal Script for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11;..\..\Pascal Script for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - Scripting Integration Library</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_Scripting_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_Scripting_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\PascalScript_Core_D11.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="DataAbstract_Scripting_Reg.pas" />
+    <DCCReference Include="uDAPascalScript.pas" />
+    <DCCReference Include="uDAPSScriptingProvider.pas" />
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.dpk
new file mode 100644
index 0000000..aa68349
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_Scripting_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Scripting Integration Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  RemObjects_Core_D12,
+  DataAbstract_Core_D12,
+  PascalScript_Core_D12;
+
+contains
+  uDAPascalScript in 'uDAPascalScript.pas',
+  uDAPSScriptingProvider in 'uDAPSScriptingProvider.pas',
+  DataAbstract_Scripting_Reg in 'DataAbstract_Scripting_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.dproj
new file mode 100644
index 0000000..a58aede
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.dproj	
@@ -0,0 +1,90 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{3fb27763-9440-44c3-bb51-17969172e8fe}</ProjectGuid>
+			<MainSource>DataAbstract_Scripting_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D11\DataAbstract_Scripting_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+			<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..\Dcu\D12;..\..\Pascal Script for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\DataAbstract_Scripting_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - Scripting Integration Library</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_Scripting_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="PascalScript_Core_D12.dcp"/>
+			<DCCReference Include="uDAPascalScript.pas"/>
+			<DCCReference Include="uDAPSScriptingProvider.pas"/>
+			<DCCReference Include="DataAbstract_Scripting_Reg.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_Scripting_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.dpk
new file mode 100644
index 0000000..e6f3cb6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_Scripting_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Scripting Integration Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  RemObjects_Core_D14,
+  DataAbstract_Core_D14,
+  PascalScript_Core_D14;
+
+contains
+  uDAPascalScript in 'uDAPascalScript.pas',
+  uDAPSScriptingProvider in 'uDAPSScriptingProvider.pas',
+  DataAbstract_Scripting_Reg in 'DataAbstract_Scripting_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.dproj
new file mode 100644
index 0000000..3fb2d6e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.dproj	
@@ -0,0 +1,90 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{3fb27763-9440-44c3-bb51-17969172e8fe}</ProjectGuid>
+			<MainSource>DataAbstract_Scripting_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D11\DataAbstract_Scripting_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+			<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..\Dcu\D14;..\..\Pascal Script for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D14\DataAbstract_Scripting_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - Scripting Integration Library</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_Scripting_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="PascalScript_Core_D14.dcp"/>
+			<DCCReference Include="uDAPascalScript.pas"/>
+			<DCCReference Include="uDAPSScriptingProvider.pas"/>
+			<DCCReference Include="DataAbstract_Scripting_Reg.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_Scripting_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.cfg
new file mode 100644
index 0000000..d94514b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\Dcu\D6"
+-LE"..\Dcu\D6"
+-LN"..\Dcu\D6"
+-U"..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6"
+-O"..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6"
+-I"..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6"
+-R"..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.dof
new file mode 100644
index 0000000..75f52a1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Scripting Integration Library
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=..\Dcu\D6;..\..\RemObjects SDK for Delphi\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.280
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.dpk
new file mode 100644
index 0000000..4c39879
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_Scripting_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Scripting Integration Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  dbrtl,
+  vcl,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6,
+  PascalScript_Core_D6;
+
+contains
+  uDAPascalScript in 'uDAPascalScript.pas',
+  uDAPSScriptingProvider in 'uDAPSScriptingProvider.pas',
+  DataAbstract_Scripting_Reg in 'DataAbstract_Scripting_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.res
new file mode 100644
index 0000000..5f31444
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.cfg
new file mode 100644
index 0000000..b26eab1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.cfg	
@@ -0,0 +1,46 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\Dcu\D7"
+-LE"..\Dcu\D7"
+-LN"..\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.dof
new file mode 100644
index 0000000..97dc0fb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Scripting Integration Library
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=ROServiceTester
+FileVersion=3.0.0.257
+InternalName=ROServiceTester
+LegalCopyright=Copyright RemObjects Software 2002
+LegalTrademarks=RemObjects Software 2002
+OriginalFilename=ROServiceTester.exe
+ProductName=RemObjects SDK
+ProductVersion=3.0.0.0
+Compile Date=Sunday, March 21, 2004 5:55 PM
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.dpk
new file mode 100644
index 0000000..34f8513
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.dpk	
@@ -0,0 +1,43 @@
+package DataAbstract_Scripting_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Scripting Integration Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  dbrtl,
+  vcl,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7,
+  PascalScript_Core_D7,
+  dsnap,
+  adortl;
+
+contains
+  uDAPascalScript in 'uDAPascalScript.pas',
+  uDAPSScriptingProvider in 'uDAPSScriptingProvider.pas',
+  DataAbstract_Scripting_Reg in 'DataAbstract_Scripting_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Glyphs.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Glyphs.lrs
new file mode 100644
index 0000000..ad57b0f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Glyphs.lrs	
@@ -0,0 +1,79 @@
+LazarusResources.Add('TDAPSSCRIPTINGPROVIDER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#1'>'#3#1'='#3#1'<'#3#1';'#3#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#1'='#3#3#151#11#3#137#10#3#128#9#2
+  +'z'#9#1'.'#2#1'4'#3#255#0#255#255#0#255#255#0#255#128#0#0#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#128#0#0'@'#0#0#4#158#15#3#151#11#3#149
+  +#11#3#149#11#3#145#10#3#132#10#2't'#9#1'-'#2'111'#255#0#255#128#0#0#255#255
+  +#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#255
+  +#255#255#128#0#0#255#255#255#128#0#0'@'#0#0#7#163#24#5#160#16#3#158#12#3#158
+  +#12#3#158#12#3#158#12#3#151#11#3'~'#9#1'.'#2#255#0#255#128#0#0#255#255#255
+  +#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#128#0#0#255#255#255#128#0#0'@'#0#0#12#166'#'#8#163#26#255#255#255#3#158#12#3
+  +#158#12#3#158#12#3#158#12#3#154#12#1'0'#3#255#0#255#128#0#0#255#255#255#128#0
+  +#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255
+  +#255#128#0#0#255#255#255#128#0#0'@'#0#0#15#170'.'#12#166'%'#255#255#255#255
+  +#255#255#3#159#13#3#158#12#3#158#12#3#158#12#3#146#11#2'V'#5#128#0#0#255#255
+  +#255#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#128
+  +#0#0#255#255#255#255#255#255#128#0#0'@'#0#0#20#173':'#17#170'0'#255#255#255
+  +#255#255#255#255#255#255#4#159#15#3#158#12#3#158#12#3#156#12#2'_'#6#128#0#0
+  +#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#128#0#0'@'#0#0#24
+  +#177'G'#21#173'='#255#255#255#255#255#255#255#255#255#7#163#24#4#160#16#3#158
+  +#12#3#158#12#2'g'#6#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#28#178'N'#28#178'N'#26#177
+  +'I'#255#255#255#255#255#255#15#169','#11#166'#'#8#163#25#5#160#17#3#158#12#2
+  +'g'#6#255#0#255'KKK'#217#217#217#177#176#176#166#165#165#152#152#152#145#145
+  +#145#137#137#137#255#255#255#255#255#255'D'#173'Mb'#206#137#137#218#167'&'
+  +#183'W'#28#178'N'#28#178'N'#255#255#255#23#175'A'#19#172'7'#15#170'-'#12#166
+  +'$'#9#164#28#6#161#19#2'P'#5#255#0#255'KKK'#226#226#226#193#193#193#177#177
+  +#177#159#159#159#153#153#153#144#144#144#209#209#209#255#255#255#177#215#163
+  +#10#143#22#154#225#181#131#217#164'.'#187'^'#28#178'N'#28#178'N'#27#178'L'#24
+  +#176'D'#20#173':'#16#170'0'#13#167''''#7#135#16#255#0#255#255#0#255'KKK'#234
+  +#233#233#209#208#208#189#188#188#167#167#167#163#163#163#151#151#151#194#193
+  +#193#240#240#240#206#206#206'O'#180'T'#11#144#24#165#227#188#173#230#196'i'
+  +#208#143'A'#193'n5'#189'e6'#189'f-'#184'Y'#24#175'@'#9#139#19'5='#10#255#0
+  +#255#255#0#255'KKK'#238#238#238#218#218#218#198#198#198#176#175#175#171#170
+  +#170#158#158#158#177#177#177#226#226#226#208#208#208#166#166#166'_'#187'c'#10
+  +#143#22'o'#211#149#153#224#180#149#222#176'}'#215#158'Z'#203#131'/'#187'`'#11
+  +#140#22'K'#128':111'#255#0#255#255#0#255'KKK'#240#240#240#225#225#225#206#204
+  +#204#182#182#182#199#199#199#191#190#190#153#152#152#227#227#227#226#226#226
+  +#136#136#136#255#255#255#177#217#167'D'#178'O'#9#142#20#10#143#22#10#142#22#9
+  +#139#19'B'#153'C'#176#186#132'~ee111'#255#0#255#255#0#255'KKK'#242#242#242
+  +#230#230#230#212#211#211#191#189#189#204#204#204#234#234#234#218#218#218#229
+  +#229#229#228#228#228#142#142#142#255#255#255#255#255#255#130#129#129#132#127
+  +#127#138#127'~'#143#127#127#147'~~'#152'~~'#158'~}zee111'#255#0#255#255#0#255
+  +'KKK'#243#242#242#233#233#233#218#218#218#196#196#196#197#196#196#228#227#227
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#187#185#185#137#127'~'#143#127#127#146'~~'#152'~~wfe111'
+  +#255#0#255#255#0#255'KKK'#243#243#243#235#235#235#224#224#224#206#204#204#207
+  +#207#207#199#199#199#188#188#188#180#178#178#171#171#171#163#161#161#156#156
+  +#156#147#147#147#140#140#140#134#134#134#130#129#129#131#127#127#137'~~'#143
+  +#127'~'#146'~~uff111'#255#0#255#255#0#255'KKK'#243#243#243#238#238#238#230
+  +#230#230#208#207#207#211#211#211#204#204#204#197#196#196#189#188#188#181#181
+  +#181#173#172#172#170#169#169#159#159#159#151#151#151#142#142#142#134#134#134
+  +#130#130#130#131#127#127#136#127#127#142#127'~pgg111'#255#0#255#255#0#255'KK'
+  +'K'#243#243#243#240#239#239#238#238#238#220#218#218#216#216#216#213#213#213
+  +#206#204#204#199#198#198#191#189#189#183#182#182#182#182#182#171#171#171#159
+  +#158#158#150#149#149#143#143#143#135#135#135#130#130#130#130#127#127#135#127
+  +#127'mgf111'#255#0#255#255#0#255'KKK'#242#242#242#238#238#238#243#242#242#240
+  +#239#239#238#238#238#235#235#235#231#231#231#226#226#226#218#218#218#208#208
+  +#208#198#198#198#183#182#182#170#170#170#157#157#157#149#147#147#140#140#140
+  ,#136#136#136#131#131#131#130#127#127'kgg111'#255#0#255#255#0#255'KKK'#239#239
+  +#239#233#233#233#238#238#238#242#240#240#242#240#240#239#239#239#237#237#237
+  +#234#234#234#227#227#227#218#218#218#206#206#206#193#193#193#177#177#177#165
+  +#164#164#156#156#156#149#149#149#140#140#140#137#136#136#131#131#131'hgg111'
+  +#255#0#255#255#0#255'KKK'#216#216#216#239#239#239#242#242#242#243#243#243#244
+  +#244#244#243#243#243#243#242#242#242#240#240#239#239#239#235#235#235#230#230
+  +#230#225#224#224#217#217#217#211#211#211#207#207#207#203#202#202#199#199#199
+  +#197#197#197#194#194#194'hgg111'#255#0#255#255#0#255#255#0#255'QQQQQQQQQQQQQ'
+  +'QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQSSSQQQQQQQQQQQQ'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Glyphs.res
new file mode 100644
index 0000000..fa5cad1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Lazarus_Unix.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Lazarus_Unix.lpk
new file mode 100644
index 0000000..35f6313
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Lazarus_Unix.lpk	
@@ -0,0 +1,65 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_Scripting_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="units\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <D2Extensions Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Data Abstract - Scripting Integration Library"/>
+    <Files Count="3">
+      <Item1>
+        <Filename Value="DataAbstract_Scripting_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="DataAbstract_Scripting_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uDAPascalScript.pas"/>
+        <UnitName Value="uDAPascalScript"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uDAPSScriptingProvider.pas"/>
+        <UnitName Value="uDAPSScriptingProvider"/>
+      </Item3>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="4">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="DataAbstract_Core_Lazarus_Unix"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="PascalScript"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item4>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)\"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Lazarus_Windows.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Lazarus_Windows.lpk
new file mode 100644
index 0000000..b7fb091
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Lazarus_Windows.lpk	
@@ -0,0 +1,52 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_Scripting_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="3">
+      <Item1>
+        <Filename Value="DataAbstract_Scripting_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="DataAbstract_Scripting_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uDAPascalScript.pas"/>
+        <UnitName Value="uDAPascalScript"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uDAPSScriptingProvider.pas"/>
+        <UnitName Value="uDAPSScriptingProvider"/>
+      </Item3>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="3">
+      <Item1>
+        <PackageName Value="DataAbstract_Core_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="PascalScript"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item3>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)\"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Reg.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Reg.pas
new file mode 100644
index 0000000..f71baf2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_Scripting_Reg.pas	
@@ -0,0 +1,40 @@
+unit DataAbstract_Scripting_Reg;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       } 
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  Classes, uDAPSScriptingProvider, uDARes;
+
+{$IFNDEF FPC}  
+  {$R DataAbstract_Scripting_Glyphs.res}
+{$ENDIF FPC}  
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAPSScriptingProvider]);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I DataAbstract_Scripting_Glyphs.lrs}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.bdsproj
new file mode 100644
index 0000000..ddab013
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.bdsproj	
@@ -0,0 +1,177 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{07EA6B1E-3F93-43E7-91C5-50005788308E}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_SimpleQuery_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - Korzh SimpleQuery Integration Library</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\Dcu\D10;..\..\RemObjects SDK for Dephi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.cfg
new file mode 100644
index 0000000..c44bc25
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.cfg	
@@ -0,0 +1,44 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\Dcu\D10"
+-LE"..\Dcu\D10"
+-LN"..\Dcu\D10"
+-U"..\Dcu\D10;..\..\RemObjects SDK for Dephi\Dcu\D10"
+-O"..\Dcu\D10;..\..\RemObjects SDK for Dephi\Dcu\D10"
+-I"..\Dcu\D10;..\..\RemObjects SDK for Dephi\Dcu\D10"
+-R"..\Dcu\D10;..\..\RemObjects SDK for Dephi\Dcu\D10"
+-Z
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.dpk
new file mode 100644
index 0000000..9f33f70
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.dpk	
@@ -0,0 +1,42 @@
+package DataAbstract_SimpleQuery_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Korzh SimpleQuery Integration Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  RemObjects_Core_D10,
+  dbrtl,
+  vcl,
+  DataAbstract_Core_D10,
+  PascalScript_Core_D10,
+  sq7,
+  kprocs7;
+
+contains
+  uDAKDBInfo in 'uDAKDBInfo.pas',
+  DataAbstract_SimpleQuery_Reg in 'DataAbstract_SimpleQuery_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.res
new file mode 100644
index 0000000..c73b102
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.dpk
new file mode 100644
index 0000000..795f67f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.dpk	
@@ -0,0 +1,42 @@
+package DataAbstract_SimpleQuery_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Korzh SimpleQuery Integration Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  RemObjects_Core_D11,
+  dbrtl,
+  vcl,
+  DataAbstract_Core_D11,
+  PascalScript_Core_D11,
+  sq11,
+  kprocs11;
+
+contains
+  uDAKDBInfo in 'uDAKDBInfo.pas',
+  DataAbstract_SimpleQuery_Reg in 'DataAbstract_SimpleQuery_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.dproj
new file mode 100644
index 0000000..58bef6e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.dproj	
@@ -0,0 +1,71 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{12feb998-13fa-45f9-8ee6-f5ab6077ef8e}</ProjectGuid>
+    <MainSource>DataAbstract_SimpleQuery_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\DataAbstract_SimpleQuery_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D10</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D10</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D10</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D10</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - Korzh SimpleQuery Integration Library</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_SimpleQuery_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_SimpleQuery_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\DataAbstract_Core_D10.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\kprocs.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\kprocs1.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\kprocs11.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\kprocs7.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\PascalScript_Core_D10.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\PascalScript_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\RemObjects_Core_D10.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\rtl.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\sq.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\sq1.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\sq11.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\sq7.dcp" />
+    <DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\vcl.dcp" />
+    <DCCReference Include="DataAbstract_SimpleQuery_Reg.pas" />
+    <DCCReference Include="uDAKDBInfo.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.res
new file mode 100644
index 0000000..c73b102
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.cfg
new file mode 100644
index 0000000..e2a8294
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.cfg	
@@ -0,0 +1,47 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"s:\exe"
+-N"..\Dcu\D6"
+-LE"..\Dcu\D6"
+-LN"..\Dcu\D6"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.dof
new file mode 100644
index 0000000..29abd6f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.dof	
@@ -0,0 +1,114 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Korzh SimpleQuery Integration Library
+
+[Directories]
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=ROServiceTester
+FileVersion=3.0.0.257
+InternalName=ROServiceTester
+LegalCopyright=Copyright RemObjects Software 2002
+LegalTrademarks=RemObjects Software 2002
+OriginalFilename=ROServiceTester.exe
+ProductName=RemObjects SDK
+ProductVersion=3.0.0.0
+Compile Date=Sunday, March 21, 2004 5:55 PM
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.dpk
new file mode 100644
index 0000000..b8c2834
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.dpk	
@@ -0,0 +1,42 @@
+package DataAbstract_SimpleQuery_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Korzh SimpleQuery Integration Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  RemObjects_Core_D6,
+  dbrtl,
+  vcl,
+  DataAbstract_Core_D6,
+  PascalScript_Core_D6,
+  sq6,
+  kprocs6;
+
+contains
+  uDAKDBInfo in 'uDAKDBInfo.pas',
+  DataAbstract_SimpleQuery_Reg in 'DataAbstract_SimpleQuery_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.res
new file mode 100644
index 0000000..fff68a1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.cfg
new file mode 100644
index 0000000..b26eab1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.cfg	
@@ -0,0 +1,46 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\Dcu\D7"
+-LE"..\Dcu\D7"
+-LN"..\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.dof
new file mode 100644
index 0000000..7e2dfdc
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Korzh SimpleQuery Integration Library
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=ROServiceTester
+FileVersion=3.0.0.257
+InternalName=ROServiceTester
+LegalCopyright=Copyright RemObjects Software 2002
+LegalTrademarks=RemObjects Software 2002
+OriginalFilename=ROServiceTester.exe
+ProductName=RemObjects SDK
+ProductVersion=3.0.0.0
+Compile Date=Sunday, March 21, 2004 5:55 PM
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.dpk
new file mode 100644
index 0000000..63ff17e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.dpk	
@@ -0,0 +1,42 @@
+package DataAbstract_SimpleQuery_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Korzh SimpleQuery Integration Library'}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  RemObjects_Core_D7,
+  dbrtl,
+  vcl,
+  DataAbstract_Core_D7,
+  PascalScript_Core_D7,
+  sq7,
+  kprocs7;
+
+contains
+  uDAKDBInfo in 'uDAKDBInfo.pas',
+  DataAbstract_SimpleQuery_Reg in 'DataAbstract_SimpleQuery_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.res
new file mode 100644
index 0000000..fff68a1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_Glyphs.res
new file mode 100644
index 0000000..4a5d497
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_Reg.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_Reg.pas
new file mode 100644
index 0000000..5a9be83
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/DataAbstract_SimpleQuery_Reg.pas	
@@ -0,0 +1,33 @@
+unit DataAbstract_SimpleQuery_Reg;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+{$R DataAbstract_SimpleQuery_Glyphs.res}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  Classes, uDAKDBInfo;
+
+procedure Register;
+begin
+  RegisterComponents('Data Abstract', [TDAKDBConnectionInfo, TDAKDBSchemaInfo]);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/ASGRout3.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/ASGRout3.pas
new file mode 100644
index 0000000..6382a1b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/ASGRout3.pas	
@@ -0,0 +1,424 @@
+{*_* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+
+Author:       Albert Drent
+Description:  ASGRout parser routines
+Creation:     Januari 1998
+Version:      1.2.B
+EMail:        a.drent@aducom.com (www.aducom.com)
+Support:      support@aducom.com (www.aducom.com)
+Legal issues: Copyright (C) 2003 by Aducom Software
+
+              Aducom Software
+              Eckhartstr 61
+              9746 BN  Groningen
+              Netherlands
+
+              This software is provided 'as-is', without any express or
+              implied warranty.  In no event will the author be held liable
+              for any damages arising from the use of this software.
+
+              Permission is granted to anyone to use this software for any
+              purpose, including commercial applications, and to alter it
+              and redistribute it freely, subject to the following
+              restrictions:
+
+              1. The origin of this software must not be misrepresented,
+                 you must not claim that you wrote the original software.
+                 If you use this software in a product, an acknowledgment
+                 in the product documentation would be appreciated but is
+                 not required.
+
+              2. Altered source versions must be plainly marked as such, and
+                 must not be misrepresented as being the original software.
+
+              3. If you make changes which improves the component you must
+                 mail these to aducom as the moderator of the components
+                 complete with documentation for the benefits of the community.
+
+              4. You are not allowed to create commercial available components
+                 using this software. If you use this source in any way to create
+                 your own components, your source should be free of charge,
+                 available to anyone. It's a far better idea to distribute your
+                 changes through Aducom Software.
+
+              5. This notice may not be removed or altered from any source
+                 distribution.
+
+              6. You must register this software by entering the support forum.
+                 I like to keep track about where the components are used, so
+                 sending a picture postcard to the author would be appreciated.
+                 Use a nice stamp and mention your name, street
+                 address, EMail address and any comment you like to say.
+
+Modifications
+              26/5/2004 Function YYYYMMDDParser by JPierce, necessary for
+              locale independent datehandling in SQLite components.
+              1/9/2005 Changes to the StrToFloatX routine, now depending on
+              decimalseparator.
+
+*_* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * }
+
+unit ASGRout3;
+
+interface
+
+uses SysUtils;
+
+const
+  vtcIdentifier = 1;
+  vtcNumber = 2;
+  vtcAssignment = 3;
+  vtcQString = 4;
+  vtcDString = 5;
+  vtcRelOp = 6;
+  vtcFloat = 7;
+  vtcDelimiter = 8;
+  vtcEof = 9;
+
+procedure FindErrorPos(InString: string; ErrPos: integer;
+  var TheLine, TheCol: integer);
+function GetWord(var InString: string; var StartPos: integer;
+  var VarType: integer): string;
+function GetWordByDelim(var InString: string; var StartPos: integer;
+  var Delim: string): string;
+function PeekWord(var InString: string; StartPos: integer;
+  var VarType: integer): string;
+function Recover(var InString: string; var StartPos: integer): boolean;
+function StrToIntX(StrIn: string): integer;
+function StrToFloatX(StrIn : string) : extended;
+function StrToDateX(TheDate: string): TDateTime;
+function StrToDateTimeX(const S: string): TDateTime;
+function YYYYMMDDParser(Str: PChar): TDateTime;
+function FloatParser(Str: string): string;// jordi march
+
+implementation
+
+function FloatParser(Str: string): string;// jordi march
+var
+  Point: Byte;
+begin
+  if  DecimalSeparator <> '.'  then  begin
+    Point := Pos ('.', Str);
+    if  Point <> 0
+    then  Str[Point] := DecimalSeparator;
+  end;
+  Result := Str;
+end;
+
+ //==============================================================================
+ // Convert dates to a correct datetime notation. Try several notations,
+ // starting with the system defaults                           
+ //==============================================================================
+
+function StrToDateTimeX(const S: string): TDateTime;
+begin
+  if S = '' then
+     StrToDateTimeX := 0
+  else begin
+     try
+        StrToDateTimeX := StrToDateTime(S);
+     except
+        StrToDateTimeX := StrToDateX(s);
+     end;
+  end;
+end;
+
+function StrToDateX(TheDate: string): TDateTime;
+var
+  DateFormat: string;
+  DateSep:    char;
+begin
+  DateFormat := ShortDateFormat; // save current settings
+  DateSep    := DateSeparator;
+  try
+    try
+      StrToDateX      := StrToDate(TheDate)
+    except
+      DateSeparator   := '-';
+      ShortDateFormat := 'dd-mm-yyyy';
+      try
+        StrToDateX      := StrToDate(TheDate)
+      except
+        ShortDateFormat := 'yyyy-mm-dd';
+        try
+          StrToDateX := StrToDate(TheDate)
+        except
+          StrToDateX := StrToDateX('01-01-1900');
+          raise;
+        end;
+      end;
+    end;
+  finally
+    ShortDateFormat := DateFormat;
+    DateSeparator   := DateSep;
+  end;
+end;
+
+// Routine submitted by jpierce, modified to accept more types
+// It requires that the date be in strict yyyy-mm-dd [hh:nn:[ss[:mmm]]]
+
+function YYYYMMDDParser(Str: PChar): TDateTime;
+var
+  Year, Month, Day, Hour, Min, Sec, MSec: Word;
+begin
+  Result := 0;
+
+  try
+    if Length(Str) >= 10 then // 10 = Length of YYYY-MM-DD
+    begin
+      Year := StrToInt(Copy(Str, 1, 4));
+      Month := StrToInt(Copy(Str, 6, 2));
+      Day := StrToInt(Copy(Str, 9, 2));
+
+      Result := EncodeDate(Year, Month, Day);
+    end;
+
+    if Length(Str) > 10 then // it has a time
+    begin
+      Hour := StrToInt(Copy(Str, 12, 2));
+      Min := StrToInt(Copy(Str, 15, 2));
+      Sec := 0;
+      MSec := 0;
+      if Length(Str) > 16 then Sec := StrToInt(Copy(Str, 18, 2));
+      if Length(Str) > 19 then Msec := StrToInt(Copy(Str, 21, 3));
+      Result := Result + EncodeTime(Hour, Min, Sec, MSec);
+    end;
+  except
+    Result := 0;
+  end;
+end;
+
+function StrToIntX(StrIn: string): integer;
+var
+E: Integer;
+begin
+ Val(StrIn, Result, E);
+ if E <> 0 then Result := 0;
+end;
+
+function StrToFloatX(StrIn : string) : extended;
+begin
+  if not TextToFloat(PChar(StrIn), Result, fvExtended) then
+  Result := 0;
+end;
+
+procedure FindErrorPos(InString: string; ErrPos: integer;
+  var TheLine, TheCol: integer);
+var
+  i: integer;
+begin
+  TheLine := 1;
+  TheCol := 1;
+  i := 1;
+  while i < ErrPos do
+  begin
+    if InString[i] in [ #10, #13] then
+    begin
+      Inc(TheLine);
+      TheCol := 1;
+      Inc(i);
+      Inc(i);
+    end
+    else
+    begin
+      Inc(TheCol);
+      Inc(i);
+    end;
+  end;
+end;
+
+function Recover(var InString: string;
+  var StartPos: integer): boolean;
+begin
+  if (StartPos > Length(InString)) then
+  begin
+    Recover := false;
+    exit;
+  end;
+
+  while (Startpos < Length(InString)) and
+    ( not (InString[StartPos] in [ #10, #13])) do
+    Inc(StartPos);
+  Recover := true;
+end;
+
+function PeekWord(var InString: string; StartPos: integer;
+  var VarType: integer): string;
+begin
+  PeekWord := GetWord(InString, StartPos, VarType);
+end;
+
+function GetWordByDelim(var InString: string;
+  var StartPos: integer;
+  var Delim: string): string;
+var
+  Ret: string;
+begin
+  Ret := '';
+  while (StartPos <= Length(InString)) and (InString[StartPos] = ' ') do
+    Inc(StartPos);
+  while (StartPos <= Length(InString)) and (Pos(InString[StartPos], Delim) = 0) do
+  begin
+    Ret := Ret + InString[StartPos];
+    Inc(StartPos);
+  end;
+  GetWordByDelim := Trim(Ret);
+end;
+
+function GetWord(var InString: string; var StartPos: integer;
+  var VarType: integer): string;
+var
+  TheChar: char;
+  Rv:      string;
+begin
+  if (StartPos > Length(InString)) then
+  begin
+    GetWord := '';
+    VarType := vtcEof;
+    exit;
+  end;
+
+  while (StartPos <= Length(InString)) and (InString[StartPos] <= #32) do
+    Inc(StartPos);
+
+  TheChar := InString[StartPos];
+  Rv      := '';
+
+  if TheChar in ['a'..'z', 'A'..'Z'] then
+    VarType := vtcIdentifier
+  else if TheChar in ['0'..'9', '-'] then
+    VarType := vtcNumber
+  else if TheChar = ':' then
+    VarType := vtcAssignment
+  else if TheChar = '"' then
+    VarType := vtcDString
+  else if TheChar = '''' then
+    VarType := vtcQString
+  else if TheChar in ['>', '=', '<'] then
+    VarType := vtcRelOp
+  else
+  begin
+    Inc(StartPos);
+    if TheChar = '!' then
+    begin
+      Recover(InString, StartPos);
+      Rv      := GetWord(InString, StartPos, VarType);
+      GetWord := Rv;
+    end
+    else
+    begin
+      GetWord := TheChar;
+    end;
+    exit;
+  end;
+
+  case VarType of
+    vtcIdentifier:
+    begin
+      while InString[StartPos] in ['a'..'z', 'A'..'Z', '_','0'..'9'] do
+      begin
+        Rv := Rv + InString[StartPos];
+        Inc(StartPos);
+      end;
+    end;
+    vtcNumber:
+    begin
+      while InString[StartPos] in ['-', '0'..'9', '.'] do
+      begin
+        if InString[StartPos] = '.' then
+          VarType := vtcFloat;
+        Rv := Rv + InString[StartPos];
+        Inc(StartPos);
+      end;
+      if VarType = vtcFloat then
+        Rv := FloatToStr(StrToFloat(Rv))
+      else
+        Rv := IntToStr(StrToInt(Rv));
+    end;
+    vtcAssignment:
+    begin
+      Rv := InString[StartPos];
+      Inc(StartPos);
+      if InString[StartPos] = '=' then
+      begin
+        Inc(StartPos);
+        Rv := ':=';
+      end
+      else
+      begin
+        VarType := vtcDelimiter;
+        Rv      := ':';
+      end;
+    end;
+    vtcQString:
+    begin
+      Inc(StartPos);
+      while InString[StartPos] <> '''' do
+      begin
+        Rv := Rv + InString[StartPos];
+        Inc(StartPos);
+      end;
+      Inc(StartPos);
+    end;
+    vtcDString:
+    begin
+      Inc(StartPos);
+      while InString[StartPos] <> '"' do
+      begin
+        Rv := Rv + InString[StartPos];
+        Inc(StartPos);
+      end;
+      Inc(StartPos);
+    end;
+    vtcRelOp:
+    begin
+      Rv := InString[StartPos];
+      if Rv = '<' then
+      begin
+        if InString[StartPos + 1] in ['=', '>'] then
+        begin
+          Rv := Rv + InString[StartPos + 1];
+          StartPos := StartPos + 2;
+        end
+        else
+        begin
+          Inc(StartPos);
+        end;
+      end
+      else if Rv = '>' then
+      begin
+        if InString[StartPos + 1] in ['=', '<'] then
+        begin
+          Rv := Rv + InString[StartPos + 1];
+          StartPos := StartPos + 2;
+        end
+        else
+        begin
+          Inc(StartPos);
+        end;
+      end
+      else
+      begin
+        Inc(StartPos);
+      end;
+    end;
+  end;
+  GetWord := Rv;
+end;
+
+{$IFDEF SQLite_Static} 
+Var 
+  TZInfo  :_TIME_ZONE_INFORMATION; 
+  TZRes   :Integer; 
+
+initialization 
+  PInteger(@__timezone)^:=0; 
+  PInteger(@__daylight)^:=0; 
+  TZRes:=GetTimezoneInformation(TZInfo); 
+  if TZRes>=0 Then 
+    PInteger(@__timezone)^:=TZInfo.Bias*60; 
+  if TZRes=TIME_ZONE_ID_DAYLIGHT Then 
+    PInteger(@__daylight)^:=1; 
+{$ENDIF} 
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODriverHtml.res
new file mode 100644
index 0000000..98b7c6e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.cfg
new file mode 100644
index 0000000..fbc8cdc
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.cfg	
@@ -0,0 +1,46 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-GD
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.dof
new file mode 100644
index 0000000..1a2d3d6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsD7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.287
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.dpr
new file mode 100644
index 0000000..7d130a8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.dpr	
@@ -0,0 +1,13 @@
+library DAADODrv;
+
+uses
+  ShareMem,
+  uDAADODriver in 'uDAADODriver.pas',
+  uDAADOInterfaces in '..\uDAADOInterfaces.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAADODriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAADODrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriver.html b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriver.html
new file mode 100644
index 0000000..9f0be67
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriver.html	
@@ -0,0 +1,20 @@
+<p class="h1">AbsoluteDB Driver</p>
+<p>
+This driver allows you to connect to data sources accessible via AbsoluteDB.
+</p>
+<p class="h2">Step 2: Database</p>
+<p>
+Specify the complete path to your database (including the file name and extension)
+</p>
+<p class="h2">Step 3: Custom parameters</p>
+<p>
+You can specify additional AbsoluteDB specific options as a semicolon separated list of name/value pairs. Please address the AbsoluteDB specification for additional information on the available parameter options.
+</p>
+<p class="h2">Important Note</p>
+<p>
+You will need to adopt the following naming convention for your Autoinc column's GeneratorName property to enable the driver to obtain and return the LastAutoInc value.
+<br><br>
+&ltTableName&gt*&ltColumnName&gt
+<br><br>
+e.g. 'Orders*OrderID'
+</p>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriverHtml.rc b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriverHtml.rc
new file mode 100644
index 0000000..fbfd5a3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriverHtml.rc	
@@ -0,0 +1 @@
+DRIVER_HELP 2110 "DAAbsoluteDBDriver.html"
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriverHtml.res
new file mode 100644
index 0000000..30a5da7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.bdsproj
new file mode 100644
index 0000000..ed9cd3e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.bdsproj	
@@ -0,0 +1,174 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{9B98595C-7A8A-4139-9638-98A40A460278}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DAAbsoluteDBDrv.dpr</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">0</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">3</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">True</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir">..\..\bin</Directories>
+			<Directories Name="UnitOutputDir"></Directories>
+			<Directories Name="PackageDLLOutputDir"></Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath">$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</Directories>
+			<Directories Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsD7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7</Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication">D:\Program Files\RemObjects Software\Data Abstract\DASchemaModeler.exe</Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">290</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.0.290</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.cfg
new file mode 100644
index 0000000..63f903b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.cfg	
@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-GD
+-cg
+-vn
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\bin"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dof
new file mode 100644
index 0000000..64a663b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dof	
@@ -0,0 +1,120 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=1
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=$(DELPHI)\Lib\Debug
+Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;dbexpress;dbxcds;indy;vclie;RemObjects_WebBroker_D6;inet;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;RemObjects_Synapse_D6;Jcl;JclVcl;JvCoreD6R;JvSystemD6R;JvStdCtrlsD6R;JvAppFrmD6R;JvBandsD6R;JvDBD6R;JvDlgsD6R;JvBDED6R;JvCmpD6R;JvCryptD6R;JvCtrlsD6R;JvCustomD6R;JvDockingD6R;JvDotNetCtrlsD6R;JvEDID6R;JvGlobusD6R;JvHMID6R;JvInterpreterD6R;JvJansD6R;JvManagedThreadsD6R;JvMMD6R;JvNetD6R;JvPageCompsD6R;JvPluginD6R;JvPrintPreviewD6R;JvRuntimeDesignD6R;JvTimeFrameworkD6R;JvUIBD6R;JvValidatorsD6R;JvWizardD6R;JvXPCtrlsD6R;mySQLDAC6;IBO40FTS_D6;IBO40TRT_D6;IBO40CRT_D6;IBO40RPL_D6;IBO40VRT_D6;IBO40FRT_D6;IBO40XRT_D6;IBO40WRT_D6;IBO40WXDT_D6;IBO40WXRT_D6;inetdb;webdsnap;websnap;
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+Launcher=
+UseLauncher=0
+DebugCWD=
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dpr
new file mode 100644
index 0000000..93bd8c4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dpr	
@@ -0,0 +1,12 @@
+library DAAbsoluteDBDrv;
+
+uses
+  ShareMem,
+  uDAAbsoluteDBDriver in 'uDAAbsoluteDBDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAAbsoluteDBDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dproj
new file mode 100644
index 0000000..18a5047
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.dproj	
@@ -0,0 +1,112 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{9B98595C-7A8A-4139-9638-98A40A460278}</ProjectGuid>
+			<MainSource>DAAbsoluteDBDrv.dpr</MainSource>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<ProjectVersion>12.0</ProjectVersion>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+			<Cfg_1>true</Cfg_1>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+			<Cfg_2>true</Cfg_2>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_DependencyCheckOutputName>..\..\bin\DAAbsoluteDBDrv.dad</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_MapFile>3</DCC_MapFile>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_Optimize>false</DCC_Optimize>
+			<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
+			<DCC_ExeOutput>..\..\bin</DCC_ExeOutput>
+			<DCC_Platform>x86</DCC_Platform>
+			<DCC_UsePackage>vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsD7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7</DCC_UsePackage>
+			<DCC_N>true</DCC_N>
+			<DCC_K>false</DCC_K>
+			<GenDll>true</GenDll>
+			<DCC_S>false</DCC_S>
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+			<DCC_F>false</DCC_F>
+			<DCC_E>false</DCC_E>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_1)'!=''">
+			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_DebugInformation>false</DCC_DebugInformation>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_2)'!=''">
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DAAbsoluteDBDrv.dpr">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="uDAAbsoluteDBDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_2</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_1</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>VCLApplication</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Source>
+						<Source Name="MainSource">DAAbsoluteDBDrv.dpr</Source>
+					</Source>
+					<Parameters>
+						<Parameters Name="HostApplication">D:\Program Files\RemObjects Software\Data Abstract\DASchemaModeler.exe</Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">290</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.0.290</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAbsoluteDBDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDriverHtml.res
new file mode 100644
index 0000000..93f013e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.cfg
new file mode 100644
index 0000000..9f8c69f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.cfg	
@@ -0,0 +1,37 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.dof
new file mode 100644
index 0000000..b542147
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsD7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=5.0.5.25
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.dpr
new file mode 100644
index 0000000..ab5ec53
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.dpr	
@@ -0,0 +1,12 @@
+library DAAnyDACDrv;
+
+uses
+  ShareMem,
+  uDAAnyDACDriver in 'uDAAnyDACDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAAnyDACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.res
new file mode 100644
index 0000000..84f461e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAAnyDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDriverHtml.res
new file mode 100644
index 0000000..57e2373
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.bdsproj
new file mode 100644
index 0000000..720c571
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.bdsproj	
@@ -0,0 +1,173 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{9B98595C-7A8A-4139-9638-98A40A460278}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DABDEDrv.dpr</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">0</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">3</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">True</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir">..\..\bin</Directories>
+			<Directories Name="UnitOutputDir"></Directories>
+			<Directories Name="PackageDLLOutputDir"></Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath">$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>  <Directories Name="Packages"></Directories>
+    </Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication">D:\Program Files\RemObjects Software\Data Abstract\DASchemaModeler.exe</Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">290</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.0.290</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.cfg
new file mode 100644
index 0000000..695c614
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.cfg	
@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-GD
+-cg
+-vn
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\bin"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.dof
new file mode 100644
index 0000000..593b787
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.dof	
@@ -0,0 +1,94 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.dpr
new file mode 100644
index 0000000..f00c885
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.dpr	
@@ -0,0 +1,12 @@
+library DABDEDrv;
+
+uses
+  ShareMem,
+  uDABDEDriver in 'uDABDEDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DABDEDriverHtml.res}
+begin
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DABDEDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.cfg
new file mode 100644
index 0000000..4a853d2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J+
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_PLATFORM
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.dof
new file mode 100644
index 0000000..af7d0f6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=1
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Purposesoft HtmlEdit 2.0
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;CDKSmp;EaglWk;ESGraphUtils;ESBase;CDKDesignTimeSupport;ESVsCp;ESSampleCompositeEditors7;ESSampleComposites70;SynEdit_D7;dxsbD7;dxComnD7;dxExELD7;dxGrEdD7;ECQDBCD7;EQTLD7;dxEdtrD7;EQDBTLD7;EQGridD7;dxMasterViewD7;dxmdsd7;dxObjInsD7;dxPSCoreD7;Rz252N70;Rz252D70;madBasic_;madHelp_;madDisAsm_;madExcept_;EzSpecials_D7;sq7;kprocs7;dxDockingD7;dxLayoutControlD7;dxPageControlD7;cxEditorsVCLD7;cxLibraryVCLD7;dxThemeD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;Phoenix_Core_D7;cxPageControlVCLD7;dxELibD7;dxExRwD7;dxDBEdD7;dxInsD7;dxNavBarD7;Phoenix_IDE_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;cxWebD7;cxWebPascalScriptD7;cxWebTeeChartD7;cxWebSnapD7;SchemaModelerUtils_d7;Ani95_D7;DataAbstract_IDE_D7;DataAbstract_DiskDriver_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=3.0.0.50
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.dpr
new file mode 100644
index 0000000..8efca9c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.dpr	
@@ -0,0 +1,18 @@
+library DADBISAM3Drv;
+
+uses
+  ShareMem,
+  uDADBISAMDriver in 'uDADBISAMDriver.pas';
+
+{$E dad}
+
+{$I dbisamvr.inc}
+{$IFDEF DBISAM_V4}
+Please only build this driver dpr with DBISAM3
+{$ENDIF DBISAM_V4}
+
+{$R *.res}
+{$R DADBISAMDriverHtml.res}
+
+begin
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM3Drv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.cfg
new file mode 100644
index 0000000..4a853d2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J+
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_PLATFORM
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.dof
new file mode 100644
index 0000000..af7d0f6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=1
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Purposesoft HtmlEdit 2.0
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;CDKSmp;EaglWk;ESGraphUtils;ESBase;CDKDesignTimeSupport;ESVsCp;ESSampleCompositeEditors7;ESSampleComposites70;SynEdit_D7;dxsbD7;dxComnD7;dxExELD7;dxGrEdD7;ECQDBCD7;EQTLD7;dxEdtrD7;EQDBTLD7;EQGridD7;dxMasterViewD7;dxmdsd7;dxObjInsD7;dxPSCoreD7;Rz252N70;Rz252D70;madBasic_;madHelp_;madDisAsm_;madExcept_;EzSpecials_D7;sq7;kprocs7;dxDockingD7;dxLayoutControlD7;dxPageControlD7;cxEditorsVCLD7;cxLibraryVCLD7;dxThemeD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;Phoenix_Core_D7;cxPageControlVCLD7;dxELibD7;dxExRwD7;dxDBEdD7;dxInsD7;dxNavBarD7;Phoenix_IDE_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;cxWebD7;cxWebPascalScriptD7;cxWebTeeChartD7;cxWebSnapD7;SchemaModelerUtils_d7;Ani95_D7;DataAbstract_IDE_D7;DataAbstract_DiskDriver_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=3.0.0.50
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.dpr
new file mode 100644
index 0000000..c81ef35
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.dpr	
@@ -0,0 +1,18 @@
+library DADBISAM4Drv;
+
+uses
+  ShareMem,
+  uDADBISAMDriver in 'uDADBISAMDriver.pas';
+
+{$E dad}
+
+{$I dbisamvr.inc}
+{$IFNDEF DBISAM_V4}
+Please only build this driver dpr with DBISAM4
+{$ENDIF DBISAM_V4}
+
+{$R *.res}
+{$R DADBISAMDriverHtml.res}
+
+begin
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAM4Drv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAMDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAMDriverHtml.res
new file mode 100644
index 0000000..449e052
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBISAMDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDriverHtml.res
new file mode 100644
index 0000000..a6590c9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.cfg
new file mode 100644
index 0000000..b0ec5d7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.cfg	
@@ -0,0 +1,45 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.dof
new file mode 100644
index 0000000..daabfcd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.dpr
new file mode 100644
index 0000000..4c68283
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.dpr	
@@ -0,0 +1,13 @@
+library DADBXDrv;
+
+uses
+  ShareMem,
+  uDADBXDriver in 'uDADBXDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DADBXDriverHtml.res}
+
+begin
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADBXDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADriverHtml.res
new file mode 100644
index 0000000..077daa2
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.cfg
new file mode 100644
index 0000000..ce504fe
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.cfg	
@@ -0,0 +1,44 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J+
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\bin"
+-LN"D:\Program files.all\Winsys\borland\DCP_70"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.dpr
new file mode 100644
index 0000000..6282793
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.dpr	
@@ -0,0 +1,15 @@
+library DADOADrv;
+
+uses
+  ShareMem,
+  Forms,
+  SysUtils,
+  Classes,
+  uDADOADriver in 'uDADOADriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DADOADriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DADOADrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDriverHtml.res
new file mode 100644
index 0000000..e0b8925
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.cfg
new file mode 100644
index 0000000..a0ce1dc
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\bin"
+-U"d:\program files.all\borland\delphi7\Lib\Debug;"
+-O"d:\program files.all\borland\delphi7\Lib\Debug;"
+-I"d:\program files.all\borland\delphi7\Lib\Debug;"
+-R"d:\program files.all\borland\delphi7\Lib\Debug;"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.dpr
new file mode 100644
index 0000000..7f7050b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.dpr	
@@ -0,0 +1,12 @@
+library DAElevateDBDrv;
+
+uses
+  ShareMem,
+  uDAElevateDBDriver in 'uDAElevateDBDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAElevateDBDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.res
new file mode 100644
index 0000000..08ba56e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAElevateDBDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDriverHtml.res
new file mode 100644
index 0000000..d12ca9d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.cfg
new file mode 100644
index 0000000..a17abb2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.cfg	
@@ -0,0 +1,46 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-GD
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.dof
new file mode 100644
index 0000000..1a2d3d6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsD7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.287
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.dpr
new file mode 100644
index 0000000..1373b9a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.dpr	
@@ -0,0 +1,12 @@
+library DAFIBDrv;
+
+uses
+  ShareMem,
+  uDAFIBDriver in 'uDAFIBDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAFIBDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAFIBDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDriverHtml.res
new file mode 100644
index 0000000..4732a47
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDrv.dpr
new file mode 100644
index 0000000..5c46278
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDrv.dpr	
@@ -0,0 +1,12 @@
+library DAIBDACDrv;
+
+uses
+  ShareMem,
+  uDAIBDACDriver in 'uDAIBDACDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAIBDACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDrv.res
new file mode 100644
index 0000000..2aba20c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODriverHtml.res
new file mode 100644
index 0000000..32c06f3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.cfg
new file mode 100644
index 0000000..301d58f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.cfg	
@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.dof
new file mode 100644
index 0000000..daabfcd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.dpr
new file mode 100644
index 0000000..152fbe5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.dpr	
@@ -0,0 +1,13 @@
+library DAIBODrv;
+
+uses
+  ShareMem,
+  uDAIBODriver in 'uDAIBODriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAIBODriverHtml.res}
+
+begin
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBODrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDriverHtml.res
new file mode 100644
index 0000000..790cda2
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.cfg
new file mode 100644
index 0000000..b0ec5d7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.cfg	
@@ -0,0 +1,45 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.dof
new file mode 100644
index 0000000..daabfcd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.dpr
new file mode 100644
index 0000000..39dde39
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.dpr	
@@ -0,0 +1,13 @@
+library DAIBXDrv;
+
+uses
+  ShareMem,
+  uDAIBXDriver in 'uDAIBXDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAIBXDriverHtml.res}
+
+begin
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAIBXDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDriverHtml.res
new file mode 100644
index 0000000..e1fa180
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.cfg
new file mode 100644
index 0000000..301d58f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.cfg	
@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.dof
new file mode 100644
index 0000000..dd86d8f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.dof	
@@ -0,0 +1,115 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.178
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.dpr
new file mode 100644
index 0000000..971e17b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.dpr	
@@ -0,0 +1,12 @@
+library DAMyDACDrv;
+
+uses
+  ShareMem,
+  uDAMyDACDriver in 'uDAMyDACDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAMyDACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMyDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDriverHtml.res
new file mode 100644
index 0000000..c7f7a82
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.cfg
new file mode 100644
index 0000000..40c80d0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.cfg	
@@ -0,0 +1,45 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.dof
new file mode 100644
index 0000000..dd86d8f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.dof	
@@ -0,0 +1,115 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.178
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.dpr
new file mode 100644
index 0000000..3a48d91
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.dpr	
@@ -0,0 +1,12 @@
+library DAMySQLDACDrv;
+
+uses
+  ShareMem,
+  uDAMySQLDACDriver in 'uDAMySQLDACDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAMySQLDACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAMySQLDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDriverHtml.res
new file mode 100644
index 0000000..46b9c33
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.cfg
new file mode 100644
index 0000000..7caebcd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.cfg	
@@ -0,0 +1,45 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Data Abstract\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.dpr
new file mode 100644
index 0000000..5d47e04
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.dpr	
@@ -0,0 +1,12 @@
+library DANexusDBDrv;
+
+uses
+  ShareMem,
+  uDANexusDBDriver in 'uDANexusDBDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DANexusDBDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DANexusDBDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDriverHtml.res
new file mode 100644
index 0000000..a096da3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.cfg
new file mode 100644
index 0000000..301d58f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.cfg	
@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.dof
new file mode 100644
index 0000000..daabfcd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.dpr
new file mode 100644
index 0000000..b2aa1e2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.dpr	
@@ -0,0 +1,13 @@
+library DAODACDrv;
+
+uses
+  ShareMem,
+  uDAODACDriver in 'uDAODACDriver.pas',
+  uDAOracleInterfaces in '..\uDAOracleInterfaces.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAODACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAODACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPGDACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPGDACDrv.dpr
new file mode 100644
index 0000000..25f9404
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPGDACDrv.dpr	
@@ -0,0 +1,12 @@
+library DAPGDACDrv;
+
+uses
+  ShareMem,
+  uDAPGDACDriver in 'uDAPGDACDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAPGDACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPGDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPGDACDrv.res
new file mode 100644
index 0000000..2aba20c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPGDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPgDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPgDACDriverHtml.res
new file mode 100644
index 0000000..1b66d75
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPgDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDriverHtml.res
new file mode 100644
index 0000000..c7f7a82
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.cfg
new file mode 100644
index 0000000..40c80d0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.cfg	
@@ -0,0 +1,45 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.dof
new file mode 100644
index 0000000..dd86d8f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.dof	
@@ -0,0 +1,115 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.178
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.dpr
new file mode 100644
index 0000000..700c0aa
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.dpr	
@@ -0,0 +1,12 @@
+library DAPostgresDACDrv;
+
+uses
+  ShareMem,
+  uDAPostgresDACDriver in 'uDAPostgresDACDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAPostgresDACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAPostgresDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDriverHtml.res
new file mode 100644
index 0000000..2ca3ed1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.cfg
new file mode 100644
index 0000000..301d58f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.cfg	
@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.dof
new file mode 100644
index 0000000..8c8eb5f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.1.196
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.dpr
new file mode 100644
index 0000000..615439d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.dpr	
@@ -0,0 +1,12 @@
+library DASDACDrv;
+
+uses
+  ShareMem,
+  uDASDACDriver in 'uDASDACDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DASDACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDriverHtml.res
new file mode 100644
index 0000000..316f711
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.bdsproj
new file mode 100644
index 0000000..584582a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.bdsproj	
@@ -0,0 +1,182 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{5F97886E-15E1-47E5-B346-586F0B37A04B}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DASQLiteDrv.dpr</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">0</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">3</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir">D:\Program Files\RemObjects Software\Data Abstract</Directories>
+			<Directories Name="UnitOutputDir"></Directories>
+			<Directories Name="PackageDLLOutputDir"></Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath">$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;$(DELPHI)\Lib\Debug</Directories>
+			<Directories Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7</Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication">D:\Program Files\RemObjects Software\Data Abstract\DASchemaModeler.exe</Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">290</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.0.290</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>  <Excluded_Packages>
+      <Excluded_Packages Name="D:\Program Files\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_FIBDriver_D10.bpl">RemObjects Data Abstract - FIBPlus Driver</Excluded_Packages>
+      <Excluded_Packages Name="D:\Program Files\RemObjects Software\Hydra for Delphi\Dcu\D10\Hydra_Core_D10.bpl">RemObjects Hydra - Core Library</Excluded_Packages>
+      <Excluded_Packages Name="D:\Program Files\RemObjects Software\Hydra for Delphi\Dcu\D10\Hydra_IDE_D10.bpl">RemObjects Hydra - IDE Integration</Excluded_Packages>
+      <Excluded_Packages Name="D:\Program Files\RemObjects Software\Hydra for Delphi\Dcu\D10\Hydra_RO_D10.bpl">RemObjects Hydra - RemObjects SDK Integration Library</Excluded_Packages>
+      <Excluded_Packages Name="D:\Program Files\RemObjects Software\Hydra for Delphi\Dcu\D10\Hydra_RO_IDE_D10.bpl">RemObjects Hydra - RemObjects SDK IDE Integration</Excluded_Packages>
+      <Excluded_Packages Name="D:\Program Files\RemObjects Software\NexusDB Pack\Dcu\D10\RemObjects_NexusDB_D10.bpl">RemObjects NexusDB Pack - Library</Excluded_Packages>
+      <Excluded_Packages Name="D:\Program Files\RemObjects Software\NexusDB Pack\Dcu\D10\RemObjects_NexusDB_IDE_D10.bpl">RemObjects NexusDB Pack - IDE Integration</Excluded_Packages>
+    </Excluded_Packages>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.cfg
new file mode 100644
index 0000000..8549342
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.cfg	
@@ -0,0 +1,34 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.dpr
new file mode 100644
index 0000000..dafaf13
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.dpr	
@@ -0,0 +1,13 @@
+library DASQLiteDrv;
+
+uses
+  ShareMem,
+  uDASQLiteDriver in 'uDASQLiteDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DASQLiteDriverHtml.res}
+
+begin
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLiteDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDriver.html b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDriver.html
new file mode 100644
index 0000000..a97ff77
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDriver.html	
@@ -0,0 +1,15 @@
+<p class="h1">SQLite Driver</p>
+<p>
+  This Driver allows you to connect to data sources accessible via SQLite Pass.
+</p>
+
+<p class="h2">Step 1: Database</p>
+<p>
+  Specify the database to which you wish to connect. This a complete path and filename (e.g. "c:\test.db3").
+</p>
+
+<p class="h2">Step 2: Custom parameters</p>
+<p>
+  You can specify additional SQLite-driver specific options as a semicolon separated list of name/value pairs.
+  Please consult the SQLite Pass documentation for details on the options available.
+</p>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.bdsproj
new file mode 100644
index 0000000..04695df
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.bdsproj	
@@ -0,0 +1,169 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{9E9CC61D-43B1-4CB4-A2FC-50291E643286}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DASQLitePassDrv.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir">..\..\bin</Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages">vcl;rtl;indy;vcldb;dbrtl;dsnap;vclx;VclSmp;dbexpress;dbxcds;vclie;inet;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;RemObjects_Synapse_D7;Jcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;TntUnicodeVcl_R70;acat70;dsnapcon;adortl;ibxpress;IBO40FTS_D7;IBO40RPL_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;DataAbstract_IDE_D7;xmlrtl;dxBarD7;IndyCore70;IndySystem70;vclactnband;IndyProtocols70;bdertl;DataAbstract_DBISAMDriver_D7;DataAbstract_SQLiteDriver_D7;cxLibraryVCLD7;dxThemeD7;cxEditorsVCLD7;cxTreeListVCLD7;Hydra_Core_D7;dxComnD7;Hydra_DX_D7;Hydra_RO_D7;PascalScript_RO_D7;DataAbstract_Scripting_D7</Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">5</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">31</VersionInfo>
+      <VersionInfo Name="Build">701</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">5.0.31.701</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">RemObjects Software 2002-2008. All rights reserved.</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName">Data Abstract</VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">5.0.31.701</VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.cfg
new file mode 100644
index 0000000..8b0d25d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.cfg	
@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\bin"
+-LE"C:\Documents and Settings\Administrator\My Documents\Borland Studio Projects\Bpl"
+-LN"C:\Documents and Settings\Administrator\My Documents\Borland Studio Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dof
new file mode 100644
index 0000000..1d774c2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;indy;vcldb;dbrtl;dsnap;vclx;VclSmp;dbexpress;dbxcds;vclie;inet;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;RemObjects_Synapse_D7;Jcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;TntUnicodeVcl_R70;acat70;dsnapcon;adortl;ibxpress;IBO40FTS_D7;IBO40RPL_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;DataAbstract_IDE_D7;xmlrtl;dxBarD7;IndyCore70;IndySystem70;vclactnband;IndyProtocols70;bdertl;DataAbstract_DBISAMDriver_D7;DataAbstract_SQLiteDriver_D7;cxLibraryVCLD7;dxThemeD7;cxEditorsVCLD7;cxTreeListVCLD7;Hydra_Core_D7;dxComnD7;Hydra_DX_D7;Hydra_RO_D7;PascalScript_RO_D7;DataAbstract_Scripting_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=5.0.31.701
+InternalName=
+LegalCopyright=RemObjects Software 2002-2008. All rights reserved.
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=5.0.31.701
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dpr
new file mode 100644
index 0000000..84c3df2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dpr	
@@ -0,0 +1,13 @@
+library DASQLitePassDrv;
+
+uses
+  ShareMem,
+  uDASQLitePassDriver in 'uDASQLitePassDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DASQLitePassDriverHtml.res}
+
+begin
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dproj
new file mode 100644
index 0000000..8613d6d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.dproj	
@@ -0,0 +1,106 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{5149a29c-143c-4239-9195-63df58f7a57a}</ProjectGuid>
+			<MainSource>DASQLitePassDrv.dpr</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\bin\DASQLitePassDrv.dad</DCC_DependencyCheckOutputName>
+			<ProjectVersion>12.0</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+			<Cfg_1>true</Cfg_1>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+			<Cfg_2>true</Cfg_2>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_DependencyCheckOutputName>DASQLitePassDrv.dad</DCC_DependencyCheckOutputName>
+			<GenDll>true</GenDll>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_1)'!=''">
+			<DCC_DependencyCheckOutputName>..\..\bin\DASQLitePassDrv.dad</DCC_DependencyCheckOutputName>
+			<Version>7.0</Version>
+			<DCC_DebugInformation>False</DCC_DebugInformation>
+			<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_ExeOutput>..\..\bin</DCC_ExeOutput>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_2)'!=''">
+			<DCC_DependencyCheckOutputName>..\..\bin\DASQLitePassDrv.dad</DCC_DependencyCheckOutputName>
+			<Version>7.0</Version>
+			<DCC_ExeOutput>..\..\bin</DCC_ExeOutput>
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>VCLApplication</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">5</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">31</VersionInfo>
+						<VersionInfo Name="Build">701</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">5.0.31.701</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software 2002-2009. All rights reserved.</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">5.0.31.701</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DASQLitePassDrv.dpr</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+		<ItemGroup>
+			<DelphiCompile Include="DASQLitePassDrv.dpr">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="uDASQLitePassDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_2</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_1</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<ItemGroup/>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DASQLitePassDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDriver.html b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDriver.html
new file mode 100644
index 0000000..7670401
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDriver.html	
@@ -0,0 +1,4 @@
+<p class="h1">UniDAC Driver</p>
+<p>
+  No specific help for the UniDAC driver is available, yet. Please consult the Devart's UniDAC documentation for details.
+</p>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDriverHtml.res
new file mode 100644
index 0000000..ab9fe22
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.bdsproj
new file mode 100644
index 0000000..06073c9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.bdsproj	
@@ -0,0 +1,174 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{E1366B87-D081-4092-92F2-E03C440E76F3}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DAUniDACDrv.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">False</Compiler>
+      <Compiler Name="SymbolLibrary">False</Compiler>
+      <Compiler Name="SymbolPlatform">False</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">False</Compiler>
+      <Compiler Name="UnitPlatform">False</Compiler>
+      <Compiler Name="UnitDeprecated">False</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir">..\..\Bin</Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7</Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">2.0.0.142</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName">Data Abstract</VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.cfg
new file mode 100644
index 0000000..4168799
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.cfg	
@@ -0,0 +1,44 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-GD
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Bin"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dof
new file mode 100644
index 0000000..d27c0ad
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=..\..\Bin
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=$(DELPHI)\Lib\Debug;D:\Jenya\DLIB\jcl\lib\d7\debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.290
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Data Abstract
+ProductVersion=2.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dpr
new file mode 100644
index 0000000..391d393
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dpr	
@@ -0,0 +1,12 @@
+library DAUniDACDrv;
+
+uses
+  ShareMem,
+  uDAUniDACDriver in 'uDAUniDACDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAUniDACDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dproj
new file mode 100644
index 0000000..953fafb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.dproj	
@@ -0,0 +1,110 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{39820DD8-A8F5-47C9-AE78-338D8AEA630F}</ProjectGuid>
+			<MainSource>DAUniDACDrv.dpr</MainSource>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<ProjectVersion>12.0</ProjectVersion>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+			<Cfg_1>true</Cfg_1>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+			<Cfg_2>true</Cfg_2>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_UsePackage>vcl;rtl;vclx;vclimg;vclactnband;dbrtl;vcldb;vcldbx;bdertl;vcltouch;xmlrtl;dsnap;dsnapcon;TeeUI;TeeDB;Tee;vclib;ibxpress;adortl;IndyCore;IndySystem;IndyProtocols;inet;intrawebdb_100_140;Intraweb_100_140;VclSmp;vclie;websnap;webdsnap;inetdb;inetdbbde;inetdbxpress;soaprtl;vclribbon;dbexpress;DbxCommonDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;DbxClientDriver;DataSnapServer;DBXInterBaseDriver;DBXMySQLDriver;dbxcds;DBXFirebirdDriver;DBXSybaseASEDriver;DBXSybaseASADriver;DBXOracleDriver;DBXMSSQLDriver;DBXInformixDriver;DBXDb2Driver;RemObjects_RODX_D14;RemObjects_BPDX_D14;RemObjects_Indy_D14;RemObjects_WebBroker_D14;Jcl;JclVcl;JvCoreD14R;JvStdCtrlsD14R;JvSystemD14R;RemObjects_Synapse_D14;DataAbstract_Core_D14;DataAbstract_DBXDriver_D14;DataAbstract_Scripting_D14;DataAbstract_IDE_D14;AnyDAC_PhysSQLite_D14;AnyDAC_Phys_D14;AnyDAC_ComI_D14;AnyDAC_PhysPg_D14;AnyDAC_PhysIB_D14;AnyDAC_PhysTDBX_D14;AnyDAC_PhysADS_D14;AnyDAC_PhysODBC_D14;AnyDAC_PhysASA_D14;AnyDAC_PhysOracl_D14;AnyDAC_PhysMySQL_D14;AnyDAC_PhysDb2_D14;AnyDAC_PhysMSSQL_D14;AnyDAC_PhysMSAcc_D14;AnyDAC_GUIxForms_D14;AnyDAC_Comp_D14;localizer14</DCC_UsePackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_E>false</DCC_E>
+			<DCC_DependencyCheckOutputName>DAUniDACDrv.dad</DCC_DependencyCheckOutputName>
+			<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
+			<DCC_Platform>x86</DCC_Platform>
+			<DCC_S>false</DCC_S>
+			<GenDll>true</GenDll>
+			<DCC_N>false</DCC_N>
+			<DCC_F>false</DCC_F>
+			<DCC_K>false</DCC_K>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_1)'!=''">
+			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_DebugInformation>false</DCC_DebugInformation>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_2)'!=''">
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DAUniDACDrv.dpr">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="uDAUniDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_2</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_1</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>VCLApplication</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Source>
+						<Source Name="MainSource">DAUniDACDrv.dpr</Source>
+					</Source>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">290</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.0.290</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k140.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp140.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.res
new file mode 100644
index 0000000..2aba20c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAUniDACDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDriverHtml.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDriverHtml.res
new file mode 100644
index 0000000..f3000f5
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDriverHtml.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.cfg
new file mode 100644
index 0000000..96a1b9a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"D:\Program Files\RemObjects Software\Data Abstract"
+-U"d:\program files.all\borland\delphi7\Lib\Debug;J:\Products\ACAT\Source"
+-O"d:\program files.all\borland\delphi7\Lib\Debug;J:\Products\ACAT\Source"
+-I"d:\program files.all\borland\delphi7\Lib\Debug;J:\Products\ACAT\Source"
+-R"d:\program files.all\borland\delphi7\Lib\Debug;J:\Products\ACAT\Source"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.dpr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.dpr
new file mode 100644
index 0000000..a566487
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.dpr	
@@ -0,0 +1,12 @@
+library DAZeosDrv;
+
+uses
+  ShareMem,
+  uDAZeosDriver in 'uDAZeosDriver.pas';
+
+{$E dad}
+
+{$R *.res}
+{$R DAZeosDriverHtml.res}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.res
new file mode 100644
index 0000000..c7afdf1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DAZeosDrv.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.bdsproj
new file mode 100644
index 0000000..1e97716
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0FC45B58-F519-40B6-831A-DD79C8D3270F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_ADODriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - ADOExpress/dbGo Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.dpk
new file mode 100644
index 0000000..501b019
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ADODriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ADOExpress/dbGo Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  adortl;
+
+contains
+  uDAADODriver in 'uDAADODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.dpk
new file mode 100644
index 0000000..7a5a6d9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_ADODriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ADOExpress/dbGo Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  adortl;
+
+contains
+  uDAADODriver in 'uDAADODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.dproj
new file mode 100644
index 0000000..cf28353
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.dproj	
@@ -0,0 +1,552 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+    <MainSource>DataAbstract_ADODriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ADODriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - ADOExpress/dbGo Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_ADODriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_ADODriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\adortl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="uDAADODriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.dpk
new file mode 100644
index 0000000..9bd8e7c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ADODriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ADOExpress/dbGo Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  adortl,
+  DataAbstract_Core_D12;
+
+contains
+  uDAADODriver in 'uDAADODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.dproj
new file mode 100644
index 0000000..149460f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+			<MainSource>DataAbstract_ADODriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ADODriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_ADODriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - ADOExpress/dbGo Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_ADODriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="adortl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="uDAADODriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_ADODriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.dpk
new file mode 100644
index 0000000..448f41a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ADODriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ADOExpress/dbGo Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  adortl,
+  DataAbstract_Core_D14;
+
+contains
+  uDAADODriver in 'uDAADODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.dproj
new file mode 100644
index 0000000..910a5d4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+			<MainSource>DataAbstract_ADODriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ADODriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_ADODriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - ADOExpress/dbGo Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_ADODriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="adortl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="uDAADODriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_ADODriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.cfg
new file mode 100644
index 0000000..05f9ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.dof
new file mode 100644
index 0000000..e0035fa
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - ADOExpress/dbGo Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.dpk
new file mode 100644
index 0000000..9a608cd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ADODriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ADOExpress/dbGo Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  adortl;
+
+contains
+  uDAADODriver in 'uDAADODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.cfg
new file mode 100644
index 0000000..6784156
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.dof
new file mode 100644
index 0000000..f2d0c96
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - ADOExpress/dbGo Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.dpk
new file mode 100644
index 0000000..a1427e8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ADODriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ADOExpress/dbGo Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  adortl;
+
+contains
+  uDAADODriver in 'uDAADODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_Glyphs.res
new file mode 100644
index 0000000..067c6a6
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ADODriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.bdsproj
new file mode 100644
index 0000000..28dc1b5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0FC45B58-F519-40B6-831A-DD79C8D3270F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_AbsoluteDBDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - AbsoluteDB Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.dpk
new file mode 100644
index 0000000..0570873
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_AbsoluteDBDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AbsoluteDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  dclAbsDBd10;
+
+contains
+  uDAAbsoluteDBDriver in 'uDAAbsoluteDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.dproj
new file mode 100644
index 0000000..7ba10f7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.dproj	
@@ -0,0 +1,110 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+    <MainSource>DataAbstract_AbsoluteDBDriver_D10.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D10\DataAbstract_AbsoluteDBDriver_D10.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D10</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D10</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D10</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D10</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D10</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D10</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D10</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D10</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D10</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D10</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_IncludePath>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Package_Options>
+      <Package_Options Name="PackageDescription">RemObjects Data Abstract - AbsoluteDB Driver</Package_Options>
+      <Package_Options Name="ImplicitBuild">False</Package_Options>
+      <Package_Options Name="DesigntimeOnly">True</Package_Options>
+      <Package_Options Name="RuntimeOnly">False</Package_Options>
+    </Package_Options>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">3</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">1</VersionInfo>
+      <VersionInfo Name="Build">361</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DataAbstract_AbsoluteDBDriver_D10.dpk</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_AbsoluteDBDriver_D10.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\adortl.dcp" />
+    <DCCReference Include="..\DataAbstract_Core_D10.dcp" />
+    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="uDAAbsoluteDBDriver.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.dpk
new file mode 100644
index 0000000..b057f5b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_AbsoluteDBDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AbsoluteDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  dclAbsDBd11;
+
+contains
+  uDAAbsoluteDBDriver in 'uDAAbsoluteDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.dproj
new file mode 100644
index 0000000..3287315
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.dproj	
@@ -0,0 +1,552 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+    <MainSource>DataAbstract_AbsoluteDBDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_AbsoluteDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - AbsoluteDB Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">361</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_AbsoluteDBDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_AbsoluteDBDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dclAbsDBd11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="uDAAbsoluteDBDriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.dpk
new file mode 100644
index 0000000..a5f0feb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_AbsoluteDBDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AbsoluteDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  dclAbsDBd12;
+
+contains
+  uDAAbsoluteDBDriver in 'uDAAbsoluteDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.dproj
new file mode 100644
index 0000000..aa7fc58
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+			<MainSource>DataAbstract_AbsoluteDBDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_AbsoluteDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_AbsoluteDBDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - AbsoluteDB Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_AbsoluteDBDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="dclAbsDBd12.dcp"/>
+			<DCCReference Include="uDAAbsoluteDBDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_AbsoluteDBDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.dpk
new file mode 100644
index 0000000..4342e5c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_AbsoluteDBDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AbsoluteDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  dclAbsDBd14;
+
+contains
+  uDAAbsoluteDBDriver in 'uDAAbsoluteDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.dproj
new file mode 100644
index 0000000..4ff22e0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+			<MainSource>DataAbstract_AbsoluteDBDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_AbsoluteDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_AbsoluteDBDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - AbsoluteDB Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_AbsoluteDBDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="dclAbsDBd14.dcp"/>
+			<DCCReference Include="uDAAbsoluteDBDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_AbsoluteDBDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.cfg
new file mode 100644
index 0000000..c2c069b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.dof
new file mode 100644
index 0000000..91ad15c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - AbsoluteDB Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.dpk
new file mode 100644
index 0000000..2c71a2e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_AbsoluteDBDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AbsoluteDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  dclAbsDBd6;
+
+contains
+  uDAAbsoluteDBDriver in 'uDAAbsoluteDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.res
new file mode 100644
index 0000000..f5602d3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.cfg
new file mode 100644
index 0000000..8e0bad7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.dof
new file mode 100644
index 0000000..a5f0893
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - AbsoluteDB Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.dpk
new file mode 100644
index 0000000..abcb4ea
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_AbsoluteDBDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AbsoluteDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  dclAbsDBd7;
+
+contains
+  uDAAbsoluteDBDriver in 'uDAAbsoluteDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.res
new file mode 100644
index 0000000..77a3fad
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.bdsproj
new file mode 100644
index 0000000..55d25b6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.bdsproj	
@@ -0,0 +1,172 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0FC45B58-F519-40B6-831A-DD79C8D3270F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_AbsoluteDBDriver_D9.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - AbsoluteDB Driver</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.cfg
new file mode 100644
index 0000000..4e5bf0e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D9"
+-LE"..\..\Dcu\D9"
+-LN"..\..\Dcu\D9"
+-U"..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9"
+-O"..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9"
+-I"..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9"
+-R"..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.dpk
new file mode 100644
index 0000000..31dc35a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_AbsoluteDBDriver_D9;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AbsoluteDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D9,
+  dclAbsDBd8;
+
+contains
+  uDAAbsoluteDBDriver in 'uDAAbsoluteDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.res
new file mode 100644
index 0000000..b7c9b4e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_D9.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_Glyphs.RES b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_Glyphs.RES
new file mode 100644
index 0000000..19121c3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_Glyphs.RES differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_Glyphs.rc b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_Glyphs.rc
new file mode 100644
index 0000000..5b44b65
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AbsoluteDBDriver_Glyphs.rc	
@@ -0,0 +1,3 @@
+TDAAbsoluteDBDriver BITMAP DISCARDABLE "..\Glyphs\TDAAbsoluteDBDriver.bmp"
+TDAAbsoluteDBDriver16 BITMAP DISCARDABLE "..\Glyphs\TDADriver16.bmp"
+TDAAbsoluteDBDriver32 BITMAP DISCARDABLE "..\Glyphs\TDAAbsoluteDBDriver32.bmp"
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.bdsproj
new file mode 100644
index 0000000..a34aa65
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0FC45B58-F519-40B6-831A-DD79C8D3270F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_AnyDACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - AnyDAC Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.dpk
new file mode 100644
index 0000000..ba12aac
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.dpk	
@@ -0,0 +1,55 @@
+package DataAbstract_AnyDACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AnyDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  dbexpress,
+  xmlrtl,
+  AnyDAC_PhysIB_D10,
+  AnyDAC_Phys_D10,
+  AnyDAC_ComI_D10,
+  AnyDAC_PhysADS_D10,
+  AnyDAC_PhysODBC_D10,
+  AnyDAC_PhysDBExp_D10,
+  AnyDAC_PhysASA_D10,
+  AnyDAC_PhysOracl_D10,
+  AnyDAC_PhysMySQL_D10,
+  AnyDAC_PhysDb2_D10,
+  AnyDAC_PhysMSSQL_D10,
+  AnyDAC_PhysMSAcc_D10,
+  AnyDAC_PhysPg_D10,
+  AnyDAC_PhysSQLite_D10,
+  AnyDAC_Comp_D10;
+
+contains
+  uDAAnyDACDriver in 'uDAAnyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.dpk
new file mode 100644
index 0000000..ca82d02
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.dpk	
@@ -0,0 +1,54 @@
+package DataAbstract_AnyDACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AnyDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  AnyDAC_PhysIB_D11,
+  AnyDAC_Phys_D11,
+  AnyDAC_ComI_D11,
+  AnyDAC_PhysADS_D11,
+  AnyDAC_PhysODBC_D11,
+  AnyDAC_PhysASA_D11,
+  AnyDAC_PhysOracl_D11,
+  AnyDAC_PhysMySQL_D11,
+  AnyDAC_PhysDb2_D11,
+  AnyDAC_PhysMSSQL_D11,
+  AnyDAC_PhysMSAcc_D11,
+  AnyDAC_PhysPg_D11,
+  AnyDAC_PhysSQLite_D11,
+  AnyDAC_Comp_D11,
+  AnyDAC_PhysTDBX_D11;
+
+contains
+  uDAAnyDACDriver in 'uDAAnyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.dproj
new file mode 100644
index 0000000..1ca57a1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.dproj	
@@ -0,0 +1,566 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+    <MainSource>DataAbstract_AnyDACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_AnyDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - AnyDAC Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">361</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_AnyDACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_AnyDACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_ComI_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_Comp_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysADS_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysASA_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysDb2_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysIB_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysMSAcc_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysMSSQL_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysMySQL_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysODBC_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysOracl_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysPg_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysSQLite_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_PhysTDBX_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\AnyDAC_Phys_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="uDAAnyDACDriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.dpk
new file mode 100644
index 0000000..ac76284
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.dpk	
@@ -0,0 +1,53 @@
+package DataAbstract_AnyDACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AnyDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  AnyDAC_PhysIB_D12,
+  AnyDAC_Phys_D12,
+  AnyDAC_ComI_D12,
+  AnyDAC_PhysADS_D12,
+  AnyDAC_PhysODBC_D12,
+  AnyDAC_PhysASA_D12,
+  AnyDAC_PhysOracl_D12,
+  AnyDAC_PhysMySQL_D12,
+  AnyDAC_PhysDb2_D12,
+  AnyDAC_PhysMSSQL_D12,
+  AnyDAC_PhysMSAcc_D12,
+  AnyDAC_Comp_D12,
+  AnyDAC_PhysPg_D12,
+  AnyDAC_PhysSQLite_D12,
+  AnyDAC_PhysTDBX_D12;
+
+contains
+  uDAAnyDACDriver in 'uDAAnyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.dproj
new file mode 100644
index 0000000..29141cc
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.dproj	
@@ -0,0 +1,159 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+			<MainSource>DataAbstract_AnyDACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_AnyDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_Release)'!=''">
+			<Cfg_Release>true</Cfg_Release>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_Debug)'!=''">
+			<Cfg_Debug>true</Cfg_Debug>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_AnyDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - AnyDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_Release)'!=''">
+			<DCC_HppOutput>..\..\Dcu\D12</DCC_HppOutput>
+			<Version>7.0</Version>
+			<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+			<DCC_DebugInformation>False</DCC_DebugInformation>
+			<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+			<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+			<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+			<DCC_ObjPath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_ObjPath)</DCC_ObjPath>
+			<DCC_ResourcePath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_ResourcePath)</DCC_ResourcePath>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+			<DCC_ObjOutput>..\..\Dcu\D12</DCC_ObjOutput>
+			<DCC_IncludePath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_IncludePath)</DCC_IncludePath>
+			<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_Debug)'!=''">
+			<DCC_HppOutput>..\..\Dcu\D12</DCC_HppOutput>
+			<Version>7.0</Version>
+			<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+			<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+			<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+			<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+			<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+			<DCC_ObjPath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_ObjPath)</DCC_ObjPath>
+			<DCC_ResourcePath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_ResourcePath)</DCC_ResourcePath>
+			<DCC_ObjOutput>..\..\Dcu\D12</DCC_ObjOutput>
+			<DCC_IncludePath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_IncludePath)</DCC_IncludePath>
+			<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_AnyDACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysIB_D12.dcp"/>
+			<DCCReference Include="AnyDAC_Phys_D12.dcp"/>
+			<DCCReference Include="AnyDAC_ComI_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysADS_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysODBC_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysASA_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysOracl_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysMySQL_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysDb2_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysMSSQL_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysMSAcc_D12.dcp"/>
+			<DCCReference Include="AnyDAC_Comp_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysPg_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysSQLite_D12.dcp"/>
+			<DCCReference Include="AnyDAC_PhysTDBX_D12.dcp"/>
+			<DCCReference Include="uDAAnyDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_Release</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_Debug</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_AnyDACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.dpk
new file mode 100644
index 0000000..c56c07e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.dpk	
@@ -0,0 +1,53 @@
+package DataAbstract_AnyDACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AnyDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  AnyDAC_PhysIB_D14,
+  AnyDAC_Phys_D14,
+  AnyDAC_ComI_D14,
+  AnyDAC_PhysADS_D14,
+  AnyDAC_PhysODBC_D14,
+  AnyDAC_PhysASA_D14,
+  AnyDAC_PhysOracl_D14,
+  AnyDAC_PhysMySQL_D14,
+  AnyDAC_PhysDb2_D14,
+  AnyDAC_PhysMSSQL_D14,
+  AnyDAC_PhysMSAcc_D14,
+  AnyDAC_Comp_D14,
+  AnyDAC_PhysPg_D14,
+  AnyDAC_PhysSQLite_D14,
+  AnyDAC_PhysTDBX_D14;
+
+contains
+  uDAAnyDACDriver in 'uDAAnyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.dproj
new file mode 100644
index 0000000..599588b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.dproj	
@@ -0,0 +1,159 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{6843d8de-6ab6-4222-a3c5-282e7cc611df}</ProjectGuid>
+			<MainSource>DataAbstract_AnyDACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_AnyDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_Release)'!=''">
+			<Cfg_Release>true</Cfg_Release>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_Debug)'!=''">
+			<Cfg_Debug>true</Cfg_Debug>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_AnyDACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - AnyDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_Release)'!=''">
+			<DCC_HppOutput>..\..\Dcu\D12</DCC_HppOutput>
+			<Version>7.0</Version>
+			<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+			<DCC_DebugInformation>False</DCC_DebugInformation>
+			<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+			<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+			<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+			<DCC_ObjPath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_ObjPath)</DCC_ObjPath>
+			<DCC_ResourcePath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_ResourcePath)</DCC_ResourcePath>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+			<DCC_ObjOutput>..\..\Dcu\D12</DCC_ObjOutput>
+			<DCC_IncludePath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_IncludePath)</DCC_IncludePath>
+			<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_Debug)'!=''">
+			<DCC_HppOutput>..\..\Dcu\D12</DCC_HppOutput>
+			<Version>7.0</Version>
+			<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+			<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+			<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+			<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+			<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+			<DCC_ObjPath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_ObjPath)</DCC_ObjPath>
+			<DCC_ResourcePath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_ResourcePath)</DCC_ResourcePath>
+			<DCC_ObjOutput>..\..\Dcu\D12</DCC_ObjOutput>
+			<DCC_IncludePath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_IncludePath)</DCC_IncludePath>
+			<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_AnyDACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysIB_D14.dcp"/>
+			<DCCReference Include="AnyDAC_Phys_D14.dcp"/>
+			<DCCReference Include="AnyDAC_ComI_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysADS_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysODBC_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysASA_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysOracl_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysMySQL_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysDb2_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysMSSQL_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysMSAcc_D14.dcp"/>
+			<DCCReference Include="AnyDAC_Comp_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysPg_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysSQLite_D14.dcp"/>
+			<DCCReference Include="AnyDAC_PhysTDBX_D14.dcp"/>
+			<DCCReference Include="uDAAnyDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_Release</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_Debug</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_AnyDACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.cfg
new file mode 100644
index 0000000..05f9ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.dof
new file mode 100644
index 0000000..70f2fea
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - AnyDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.dpk
new file mode 100644
index 0000000..1136d5c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.dpk	
@@ -0,0 +1,55 @@
+package DataAbstract_AnyDACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AnyDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  dbexpress,
+  xmlrtl,
+  AnyDAC_PhysIB_D6,
+  AnyDAC_Phys_D6,
+  AnyDAC_ComI_D6,
+  AnyDAC_PhysADS_D6,
+  AnyDAC_PhysODBC_D6,
+  AnyDAC_PhysDBExp_D6,
+  AnyDAC_PhysASA_D6,
+  AnyDAC_PhysOracl_D6,
+  AnyDAC_PhysMySQL_D6,
+  AnyDAC_PhysDb2_D6,
+  AnyDAC_PhysMSSQL_D6,
+  AnyDAC_PhysMSAcc_D6,
+  AnyDAC_PhysPg_D6,
+  AnyDAC_PhysSQLite_D6,
+  AnyDAC_Comp_D6;
+
+contains
+  uDAAnyDACDriver in 'uDAAnyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.cfg
new file mode 100644
index 0000000..f33a910
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.dof
new file mode 100644
index 0000000..f8327e9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - AnyDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.289
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.dpk
new file mode 100644
index 0000000..1cfbdcf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.dpk	
@@ -0,0 +1,55 @@
+package DataAbstract_AnyDACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - AnyDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  dbexpress,
+  xmlrtl,
+  AnyDAC_PhysIB_D7,
+  AnyDAC_Phys_D7,
+  AnyDAC_ComI_D7,
+  AnyDAC_PhysADS_D7,
+  AnyDAC_PhysODBC_D7,
+  AnyDAC_PhysDBExp_D7,
+  AnyDAC_PhysASA_D7,
+  AnyDAC_PhysOracl_D7,
+  AnyDAC_PhysMySQL_D7,
+  AnyDAC_PhysDb2_D7,
+  AnyDAC_PhysMSSQL_D7,
+  AnyDAC_PhysMSAcc_D7,
+  AnyDAC_PhysPg_D7,
+  AnyDAC_PhysSQLite_D7,
+  AnyDAC_Comp_D7;
+
+contains
+  uDAAnyDACDriver in 'uDAAnyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.res
new file mode 100644
index 0000000..b40eccd
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Glyphs.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Glyphs.lrs
new file mode 100644
index 0000000..73491f3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Glyphs.lrs	
@@ -0,0 +1,80 @@
+LazarusResources.Add('TDAANYDACDriver','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#129#30#0'w'#23#0'w'#23#0#255#0#255#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255#129#30
+  +#0#129#30#0#129#30#0#252#154'*'#184':'#0#184':'#0#128'*'#3#255#0#255#128#0#0
+  +#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#128#0#0'@'#0#0#255#0
+  +#255#130#24#0#129#30#0#248'w'#0#255#129#0#255#149#19#255#170'4'#255#189'Z'
+  +#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255
+  +#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#5'f'#149#130#24#0'y'#16#0#255#158' '#252'w'#0#143#30#0#213'g'#10#255#171
+  +'8'#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#130#24#0#130#24#0#221#152'Z'#255#191']'#186'M'#5#255#0#255'v'#12#0#242#134
+  +#20#252#160'4'#138#31#0#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#0'R'#143#0'6o'#9
+  +'o'#164'W9'#23#171'3'#0#233#171'n'#255#215#146#193'e%'#255#0#255'v'#12#0#242
+  +'w'#1#255#150#25#138#31#0#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255
+  +#255#255#255#255#255#255#255#128#0#0#0'R'#143#0'R'#143#0'R'#143#6#140#194'I'
+  +#221#255#0'v'#186#0'v'#186'YVE'#255#218#154#233#170'j'#145'%'#0#193'M'#0#255
+  +'~'#0#138#31#0#255#0#255#128#0#0#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#0'6p'#0'j'#161#2#199#255
+  +#9#202#255''''#212#255'N'#222#255'y'#233#255#0'v'#186#255#218#154#255#218#154
+  +#255#211#137#255#177'C'#255#138#7#138#31#0#255#0#255#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#0'9u'#4'v'#170'('#212#255#0
+  +#158#218#0'N'#138#22#163#212'R'#224#255#0'v'#186#196'f#'#203'g'#25#255#218
+  +#154#184':'#0#184':'#0#184':'#0#255#0#255#255#0#255#2't'#169'['#213#226'i'
+  +#246#254'E'#230#254'%'#215#254#13#199#254#26#204#254#0';v'#11#128#176#156#233
+  +#254'h'#230#255'#'#165#212#0'A~'#0'F'#129'0'#215#255'M'#215#254'%_p'#184':'#0
+  +#184':'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2't'#169'['#213
+  +#226#127#247#254'z'#238#254'}'#233#254#135#231#255#163#237#255#0';v'#3'{'#176
+  +#165#235#254#167#243#255'^'#193#226#0'L'#138#0'N'#138#19#204#255'-'#206#252
+  +#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#2't'#169#160#233#239#170#238#246'p'#207#229'?'#177#211#29#149#192#17#131
+  +#177#15'{'#170#0'@z'#24#150#196#182#246#255'~'#212#238#3'g'#157#13#182#235#1
+  +#198#255#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3'p'#164'T'#177#202'('#156#188'&'#171#207#27#182#224
+  +#12#183#237#24#198#247':'#213#254#0'A~'#27#153#196#181#244#255#182#246#255
+  +#154#240#255'N'#222#255#13#202#255#13'b'#145#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#4'l'#158'?'#180#203'f'#242
+  +#251'E'#230#254'%'#215#254#0#0#0#0#0#0#0#0#0#0#0#0#0'Ay'#0'E~;'#175#213#182
+  +#246#255#13'b'#145#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#2's'#167'['#213#226'i'#246#254
+  +'E'#230#254#0#0#0#255#255#255#255#255#255#255#255#255#255#255#255#0#0#0'Q'
+  +#199#233#0'A{'#0'E{'#1'z'#180#5'f'#149#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#255#255#255#128#0#0#128#0#0#255#255#255#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#128#128#128#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#254#254#254#128#0#0#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#0#0#0#128#128#128#255#255#255#128#0#0#255#255
+  +#255#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#255
+  +#255#255#128#0#0#128#0#0#192#220#192#255#255#255#128#0#0#255#255#255#128#0#0
+  +#255#255#255#192#220#192#128#0#0#255#255#255#0#0#0#128#128#128#255#255#255
+  +#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#255#255
+  +#255#128#0#0#255#255#255#128#0#0#192#220#192#128#0#0#255#255#255#128#0#0#255
+  +#255#255#128#0#0#255#255#255#128#0#0#192#220#192#255#255#255#0#0#0#128#128
+  +#128#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0
+  +#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#128
+  +#0#0#128#0#0#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#0#0#0#128
+  +#128#128#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#255
+  ,#255#255#254#254#254#255#255#255#255#255#255#255#255#255#128#0#0#192#220#192
+  +#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#192#220
+  +#192#255#255#255#0#0#0#128#128#128#255#255#255#192#220#192#128#0#0#192#220
+  +#192#255#255#255#255#255#255#255#255#255#254#254#254#255#255#255#255#255#255
+  +#255#255#255#128#0#0#128#0#0#192#220#192#255#255#255#192#220#192#128#0#0#192
+  +#220#192#255#255#255#192#220#192#128#0#0#255#255#255#0#0#0#128#128#128#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#254#254#254#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#0#0#0#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Glyphs.res
new file mode 100644
index 0000000..3926468
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Lazarus_Windows.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Lazarus_Windows.lpk
new file mode 100644
index 0000000..a937aad
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_AnyDACDriver_Lazarus_Windows.lpk	
@@ -0,0 +1,52 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_AnyDACDriver_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <IncludeFiles Value="T:\ROSOFT\AnyDAC\Source\"/>
+        <UnitOutputDirectory Value="..\..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="uDAAnyDACDriver.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAAnyDACDriver"/>
+      </Item1>
+      <Item2>
+        <Filename Value="DataAbstract_AnyDACDriver_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="3">
+      <Item1>
+        <PackageName Value="DataAbstract_Core_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="AnyDAC_lazarus"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item3>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.bdsproj
new file mode 100644
index 0000000..f5afeb9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.bdsproj	
@@ -0,0 +1,179 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0FC45B58-F519-40B6-831A-DD79C8D3270F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_BDEDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - BDE Driver</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.dpk
new file mode 100644
index 0000000..de3b837
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_BDEDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - BDE Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  DataAbstract_Core_D10;
+
+contains
+  uDABDEDriver in 'uDABDEDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.dpk
new file mode 100644
index 0000000..357cae1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_BDEDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - BDE Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  DataAbstract_Core_D11;
+
+contains
+  uDABDEDriver in 'uDABDEDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.dproj
new file mode 100644
index 0000000..f10798d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.dproj	
@@ -0,0 +1,552 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3cd4ddcd-76f8-4583-8117-c00562cb6a62}</ProjectGuid>
+    <MainSource>DataAbstract_BDEDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_BDEDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - BDE Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_BDEDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_BDEDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\bdertl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="uDABDEDriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.dpk
new file mode 100644
index 0000000..806569a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_BDEDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - BDE Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  DataAbstract_Core_D12;
+
+contains
+  uDABDEDriver in 'uDABDEDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.dproj
new file mode 100644
index 0000000..07c3f28
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{3cd4ddcd-76f8-4583-8117-c00562cb6a62}</ProjectGuid>
+			<MainSource>DataAbstract_BDEDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_BDEDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_BDEDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - BDE Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_BDEDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="uDABDEDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_BDEDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.dpk
new file mode 100644
index 0000000..b9414fe
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_BDEDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - BDE Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  DataAbstract_Core_D14;
+
+contains
+  uDABDEDriver in 'uDABDEDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.dproj
new file mode 100644
index 0000000..5445ba0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{3cd4ddcd-76f8-4583-8117-c00562cb6a62}</ProjectGuid>
+			<MainSource>DataAbstract_BDEDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_BDEDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_BDEDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - BDE Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_BDEDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="uDABDEDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_BDEDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.cfg
new file mode 100644
index 0000000..c2c069b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.dpk
new file mode 100644
index 0000000..aceb56d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_BDEDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - BDE Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  bdertl;
+
+contains
+  uDABDEDriver in 'uDABDEDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.res
new file mode 100644
index 0000000..f5602d3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.cfg
new file mode 100644
index 0000000..8e0bad7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.dpk
new file mode 100644
index 0000000..a5b4538
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_BDEDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - BDE Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  DataAbstract_Core_D7;
+
+contains
+  uDABDEDriver in 'uDABDEDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_Glyphs.res
new file mode 100644
index 0000000..a2a5a20
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_BDEDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.bdsproj
new file mode 100644
index 0000000..096f1d8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{E4D07654-5C28-4ECD-A91D-BABEA25937FF}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_DBISAMDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - DBISAM Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.dpk
new file mode 100644
index 0000000..b21161d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DBISAMDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - DBISAM Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10,
+  db324d9r;
+
+contains
+  uDADBISAMDriver in 'uDADBISAMDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.dpk
new file mode 100644
index 0000000..8831294
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_DBISAMDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - DBISAM Driver'}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  db324d2007r;
+
+contains
+  uDADBISAMDriver in 'uDADBISAMDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.dproj
new file mode 100644
index 0000000..54b7ccf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.dproj	
@@ -0,0 +1,554 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{18f879f9-5865-46a9-8515-d3b4503d16ff}</ProjectGuid>
+    <MainSource>DataAbstract_DBISAMDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - DBISAM Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_DBISAMDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_DBISAMDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\db324d2007r.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcldb.dcp" />
+    <DCCReference Include="uDADBISAMDriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.dpk
new file mode 100644
index 0000000..db50a91
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_DBISAMDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - DBISAM Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  DataAbstract_Core_D12,
+  db424b2009r;
+
+contains
+  uDADBISAMDriver in 'uDADBISAMDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.dproj
new file mode 100644
index 0000000..19951b8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.dproj	
@@ -0,0 +1,96 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{18f879f9-5865-46a9-8515-d3b4503d16ff}</ProjectGuid>
+			<MainSource>DataAbstract_DBISAMDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_DBISAMDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - DBISAM Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_DBISAMDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="vcldb.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="db424b2009r.dcp"/>
+			<DCCReference Include="uDADBISAMDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_DBISAMDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.dpk
new file mode 100644
index 0000000..24dc055
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_DBISAMDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - DBISAM Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  DataAbstract_Core_D14,
+  db424b2009r;
+
+contains
+  uDADBISAMDriver in 'uDADBISAMDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.dproj
new file mode 100644
index 0000000..7e420c9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.dproj	
@@ -0,0 +1,98 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{18f879f9-5865-46a9-8515-d3b4503d16ff}</ProjectGuid>
+			<MainSource>DataAbstract_DBISAMDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_DBISAMDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - DBISAM Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_DBISAMDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="vcldb.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="db424b2009r.dcp"/>
+			<DCCReference Include="uDADBISAMDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_DBISAMDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.cfg
new file mode 100644
index 0000000..05f9ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.dof
new file mode 100644
index 0000000..1e36acf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - DBISAM Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6
+Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;tb2kComplete;CRControls60;dac60;dacvcl60;sdacvcl60;sdac60;oraprov60;odac60;odacvcl60;DataAbstract_Core_D6;DataAbstract_DBXDriver_D6;DataAbstract_DiskDriver_D6
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.dpk
new file mode 100644
index 0000000..f1b37bf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DBISAMDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - DBISAM Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6,
+  db324d6r;
+
+contains
+  uDADBISAMDriver in 'uDADBISAMDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.res
new file mode 100644
index 0000000..84eaa11
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.cfg
new file mode 100644
index 0000000..02179cd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7"
+-O"..\..\Dcu\D7"
+-I"..\..\Dcu\D7"
+-R"..\..\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.dof
new file mode 100644
index 0000000..2d15714
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - DBISAM Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.dpk
new file mode 100644
index 0000000..6a2ee23
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DBISAMDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - DBISAM Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7,
+  db324d7r;
+
+contains
+  uDADBISAMDriver in 'uDADBISAMDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.res
new file mode 100644
index 0000000..84eaa11
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_Glyphs.res
new file mode 100644
index 0000000..3163762
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBISAMDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.bdsproj
new file mode 100644
index 0000000..214c011
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{C227C50C-E7AA-4212-8D32-C33B5BFE5BB8}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_DBXDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - dbExpress Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.dpk
new file mode 100644
index 0000000..ce917fe
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.dpk	
@@ -0,0 +1,38 @@
+package DataAbstract_DBXDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - dbExpress Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dbexpress,
+  DataAbstract_Core_D10;
+
+contains
+  uDADBXDriver in 'uDADBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.dpk
new file mode 100644
index 0000000..be253ca
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_DBXDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - dbExpress Driver'}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dbexpress,
+  DataAbstract_Core_D11;
+
+contains
+  uDADBXDriver in 'uDADBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.dproj
new file mode 100644
index 0000000..05e1e43
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.dproj	
@@ -0,0 +1,556 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f8cd0c64-f9cd-46d4-8a1b-03d6a3efbdb3}</ProjectGuid>
+    <MainSource>DataAbstract_DBXDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_DBXDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - dbExpress Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_DBXDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_DBXDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbexpress.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="uDADBXDriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.dpk
new file mode 100644
index 0000000..a8fb1ce
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.dpk	
@@ -0,0 +1,46 @@
+package DataAbstract_DBXDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - dbExpress Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dbexpress,
+  DataAbstract_Core_D12,
+  DBXInterBaseDriver,
+  DBXMySQLDriver,
+  DBXSybaseASEDriver,
+  DBXSybaseASADriver,
+  DBXOracleDriver,
+  DBXMSSQLDriver,
+  DBXInformixDriver,
+  DBXDb2Driver;
+
+contains
+  uDADBXDriver in 'uDADBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.dproj
new file mode 100644
index 0000000..f253ce6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.dproj	
@@ -0,0 +1,105 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{f8cd0c64-f9cd-46d4-8a1b-03d6a3efbdb3}</ProjectGuid>
+			<MainSource>DataAbstract_DBXDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_DBXDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_DBXDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - dbExpress Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_DBXDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="dbexpress.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="DBXInterBaseDriver.dcp"/>
+			<DCCReference Include="DBXMySQLDriver.dcp"/>
+			<DCCReference Include="DBXSybaseASEDriver.dcp"/>
+			<DCCReference Include="DBXSybaseASADriver.dcp"/>
+			<DCCReference Include="DBXOracleDriver.dcp"/>
+			<DCCReference Include="DBXMSSQLDriver.dcp"/>
+			<DCCReference Include="DBXInformixDriver.dcp"/>
+			<DCCReference Include="DBXDb2Driver.dcp"/>
+			<DCCReference Include="uDADBXDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_DBXDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.dpk
new file mode 100644
index 0000000..8acd915
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.dpk	
@@ -0,0 +1,46 @@
+package DataAbstract_DBXDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - dbExpress Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dbexpress,
+  DataAbstract_Core_D14,
+  DBXInterBaseDriver,
+  DBXMySQLDriver,
+  DBXSybaseASEDriver,
+  DBXSybaseASADriver,
+  DBXOracleDriver,
+  DBXMSSQLDriver,
+  DBXInformixDriver,
+  DBXDb2Driver;
+
+contains
+  uDADBXDriver in 'uDADBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.dproj
new file mode 100644
index 0000000..0dcb582
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.dproj	
@@ -0,0 +1,105 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{f8cd0c64-f9cd-46d4-8a1b-03d6a3efbdb3}</ProjectGuid>
+			<MainSource>DataAbstract_DBXDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_DBXDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_DBXDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - dbExpress Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_DBXDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="dbexpress.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="DBXInterBaseDriver.dcp"/>
+			<DCCReference Include="DBXMySQLDriver.dcp"/>
+			<DCCReference Include="DBXSybaseASEDriver.dcp"/>
+			<DCCReference Include="DBXSybaseASADriver.dcp"/>
+			<DCCReference Include="DBXOracleDriver.dcp"/>
+			<DCCReference Include="DBXMSSQLDriver.dcp"/>
+			<DCCReference Include="DBXInformixDriver.dcp"/>
+			<DCCReference Include="DBXDb2Driver.dcp"/>
+			<DCCReference Include="uDADBXDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_DBXDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.cfg
new file mode 100644
index 0000000..0aa2cb6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.dof
new file mode 100644
index 0000000..d2de85f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - dbExpress Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.dpk
new file mode 100644
index 0000000..d9265ff
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_DBXDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - dbExpress Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dbexpress,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6;
+
+contains
+  uDADBXDriver in 'uDADBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.cfg
new file mode 100644
index 0000000..a290ad9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.dof
new file mode 100644
index 0000000..7f90f99
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - dbExpress Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.dpk
new file mode 100644
index 0000000..a20bd62
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_DBXDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - dbExpress Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dbexpress,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7;
+
+contains
+  uDADBXDriver in 'uDADBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_Glyphs.res
new file mode 100644
index 0000000..3ac39af
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DBXDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.bdsproj
new file mode 100644
index 0000000..9e97b99
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.bdsproj	
@@ -0,0 +1,172 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{EB34E68F-ED55-4ABC-A07A-7AF827B26017}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_DOADriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">0</Compiler>
+			<Compiler Name="D">0</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">0</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">1</Compiler>
+			<Compiler Name="R">1</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">0</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - Direct Oracle Access Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1031</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.cfg
new file mode 100644
index 0000000..ec7d8d2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C-
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q+
+-$R+
+-$S-
+-$T-
+-$U+
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10"
+-O"..\..\Dcu\D10"
+-I"..\..\Dcu\D10"
+-R"..\..\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.dpk
new file mode 100644
index 0000000..15b25df
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DOADriver_D10;
+
+{$R *.res}
+{$R 'uDADOADriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS OFF}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS ON}
+{$RANGECHECKS ON}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Direct Oracle Access Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  doa41d2006;
+
+contains
+  uDADOADriver in 'uDADOADriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.res
new file mode 100644
index 0000000..7d5072d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.dpk
new file mode 100644
index 0000000..150f485
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DOADriver_D11;
+
+{$R *.res}
+{$R 'uDADOADriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS OFF}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS ON}
+{$RANGECHECKS ON}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Direct Oracle Access Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  doa41d2007;
+
+contains
+  uDADOADriver in 'uDADOADriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.dproj
new file mode 100644
index 0000000..28b9bc0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.dproj	
@@ -0,0 +1,96 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{a2e90cba-5a04-4ca5-b40f-eeb19b461f2f}</ProjectGuid>
+    <MainSource>DataAbstract_DOADriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_DOADriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
+    <DCC_RangeChecking>True</DCC_RangeChecking>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Package_Options>
+      <Package_Options Name="PackageDescription">RemObjects Data Abstract - Direct Oracle Access Driver</Package_Options>
+      <Package_Options Name="ImplicitBuild">False</Package_Options>
+      <Package_Options Name="DesigntimeOnly">True</Package_Options>
+      <Package_Options Name="RuntimeOnly">False</Package_Options>
+    </Package_Options>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1031</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DataAbstract_DOADriver_D11.dpk</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_DOADriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\dbrtl.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\rtl.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\vcl.dcp" />
+    <DCCReference Include="uDADOADriver.dcr" />
+    <DCCReference Include="uDADOADriver.dcr" />
+    <DCCReference Include="uDADOADriver.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.res
new file mode 100644
index 0000000..c467631
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.dpk
new file mode 100644
index 0000000..166b374
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DOADriver_D12;
+
+{$R *.res}
+{$R 'uDADOADriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS OFF}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS ON}
+{$RANGECHECKS ON}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Direct Oracle Access Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  doa41d2009;
+
+contains
+  uDADOADriver in 'uDADOADriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.dproj
new file mode 100644
index 0000000..d9bf6ae
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.dproj	
@@ -0,0 +1,103 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{E84B9AAD-18C0-4A3D-893C-C2036F2B3D7A}</ProjectGuid>
+			<MainSource>DataAbstract_DOADriver_D12.dpk</MainSource>
+			<Config Condition="'$(Config)'==''">Base</Config>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<ProjectVersion>11.1</ProjectVersion>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_Description>RemObjects Data Abstract - Direct Oracle Access Driver</DCC_Description>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_DOADriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_RangeChecking>true</DCC_RangeChecking>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
+			<DCC_AssertionsAtRuntime>false</DCC_AssertionsAtRuntime>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_DebugInformation>false</DCC_DebugInformation>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<GenPackage>true</GenPackage>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_Platform>x86</DCC_Platform>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_DOADriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="uDADOADriver.dcr"/>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="doa41d2009.dcp"/>
+			<DCCReference Include="uDADOADriver.pas"/>
+			<DCCReference Include="uDADOADriver.dcr"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Source>
+						<Source Name="MainSource">DataAbstract_DOADriver_D12.dpk</Source>
+					</Source>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1049</VersionInfo>
+						<VersionInfo Name="CodePage">1251</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Excluded_Packages/>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.res
new file mode 100644
index 0000000..77cfa35
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.dpk
new file mode 100644
index 0000000..32666ed
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DOADriver_D14;
+
+{$R *.res}
+{$R 'uDADOADriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS OFF}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS ON}
+{$RANGECHECKS ON}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Direct Oracle Access Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  doa41d2010;
+
+contains
+  uDADOADriver in 'uDADOADriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.dproj
new file mode 100644
index 0000000..2f25712
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{E84B9AAD-18C0-4A3D-893C-C2036F2B3D7A}</ProjectGuid>
+			<MainSource>DataAbstract_DOADriver_D14.dpk</MainSource>
+			<Config Condition="'$(Config)'==''">Base</Config>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<ProjectVersion>11.1</ProjectVersion>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_Description>RemObjects Data Abstract - Direct Oracle Access Driver</DCC_Description>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_DOADriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_RangeChecking>true</DCC_RangeChecking>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
+			<DCC_AssertionsAtRuntime>false</DCC_AssertionsAtRuntime>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_DebugInformation>false</DCC_DebugInformation>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<GenPackage>true</GenPackage>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_Platform>x86</DCC_Platform>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_DOADriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="uDADOADriver.dcr"/>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="uDADOADriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Source>
+						<Source Name="MainSource">DataAbstract_DOADriver_D14.dpk</Source>
+					</Source>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1049</VersionInfo>
+						<VersionInfo Name="CodePage">1251</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Excluded_Packages/>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.res
new file mode 100644
index 0000000..77cfa35
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.cfg
new file mode 100644
index 0000000..ce65bb4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C-
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q+
+-$R+
+-$S-
+-$T-
+-$U+
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6"
+-O"..\..\Dcu\D6"
+-I"..\..\Dcu\D6"
+-R"..\..\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.dof
new file mode 100644
index 0000000..3c9cab7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=0
+D=0
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=0
+M=0
+N=1
+O=1
+P=1
+Q=1
+R=1
+S=0
+T=0
+U=1
+V=1
+W=0
+X=1
+Y=0
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Direct Oracle Access Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.dpk
new file mode 100644
index 0000000..4eff87c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DOADriver_D6;
+
+{$R *.res}
+{$R 'uDADOADriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS OFF}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS ON}
+{$RANGECHECKS ON}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Direct Oracle Access Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  doa41d6;
+
+contains
+  uDADOADriver in 'uDADOADriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.res
new file mode 100644
index 0000000..c467631
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.cfg
new file mode 100644
index 0000000..e5c2492
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C-
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q+
+-$R+
+-$S-
+-$T-
+-$U+
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7"
+-O"..\..\Dcu\D7"
+-I"..\..\Dcu\D7"
+-R"..\..\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.dof
new file mode 100644
index 0000000..b369898
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=0
+D=0
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=0
+M=0
+N=1
+O=1
+P=1
+Q=1
+R=1
+S=0
+T=0
+U=1
+V=1
+W=0
+X=1
+Y=0
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Direct Oracle Access Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.dpk
new file mode 100644
index 0000000..fc81f64
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DOADriver_D7;
+
+{$R *.res}
+{$R 'uDADOADriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS OFF}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS ON}
+{$RANGECHECKS ON}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Direct Oracle Access Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  doa41d7;
+
+contains
+  uDADOADriver in 'uDADOADriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.res
new file mode 100644
index 0000000..c467631
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.bdsproj
new file mode 100644
index 0000000..213d43f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.bdsproj	
@@ -0,0 +1,168 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{EB34E68F-ED55-4ABC-A07A-7AF827B26017}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_DOADriver_D9.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">0</Compiler>
+			<Compiler Name="D">0</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">0</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">1</Compiler>
+			<Compiler Name="R">1</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">0</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - Direct Oracle Access Driver</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D9</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1031</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.cfg
new file mode 100644
index 0000000..1ff2976
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C-
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q+
+-$R+
+-$S-
+-$T-
+-$U+
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D9"
+-LE"..\..\Dcu\D9"
+-LN"..\..\Dcu\D9"
+-U"..\..\Dcu\D9"
+-O"..\..\Dcu\D9"
+-I"..\..\Dcu\D9"
+-R"..\..\Dcu\D9"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.dpk
new file mode 100644
index 0000000..5b58a97
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_DOADriver_D9;
+
+{$R *.res}
+{$R 'uDADOADriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS OFF}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS ON}
+{$RANGECHECKS ON}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Direct Oracle Access Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D9,
+  doa41d9;
+
+contains
+  uDADOADriver in 'uDADOADriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.res
new file mode 100644
index 0000000..7d5072d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_DOADriver_D9.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_Drivers_D6.bpg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_Drivers_D6.bpg
new file mode 100644
index 0000000..4e931fa
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_Drivers_D6.bpg	
@@ -0,0 +1,61 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DataAbstract_ADODriver_D7.bpl DataAbstract_DBXDriver_D7.bpl \
+  DataAbstract_IBXDriver_D7.bpl DataAbstract_DiskDriver_D7.bpl DAADODrv.dad \
+  DADBXDrv.dad DADiskDrv.dad DAIBXDrv.dad DataAbstract_IBODriver_D7.bpl \
+  DataAbstract_SDACDriver_D7.bpl DataAbstract_ODACDriver_D7.bpl DAIBODrv.dad \
+  DASDACDrv.dad
+DataAbstract_SDACDriver_D6.bpl DataAbstract_ODACDriver_D6.bpl
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DataAbstract_DiskDriver_D7.bpl: DataAbstract_DiskDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_DBXDriver_D7.bpl: DataAbstract_DBXDriver_D7.dpk
+  $(DCC)
+
+DAADODrv.dad: DAADODrv.dpr
+  $(DCC)
+
+DADBXDrv.dad: DADBXDrv.dpr
+  $(DCC)
+
+DADiskDrv.dad: DADiskDrv.dpr
+  $(DCC)
+
+DAIBXDrv.dad: DAIBXDrv.dpr
+  $(DCC)
+
+DAIBODrv.dad: DAIBODrv.dpr
+  $(DCC)
+
+DASDACDrv.dad: DASDACDrv.dpr
+  $(DCC)
+
+DataAbstract_SDACDriver_D7.bpl: DataAbstract_SDACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_ODACDriver_D7.bpl: DataAbstract_ODACDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_ADODriver_D7.bpl: DataAbstract_ADODriver_D7.dpk
+  $(DCC)
+
+DataAbstract_IBXDriver_D7.bpl: DataAbstract_IBXDriver_D7.dpk
+  $(DCC)
+
+DataAbstract_IBODriver_D7.bpl: DataAbstract_IBODriver_D7.dpk
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.bdsproj
new file mode 100644
index 0000000..47a24e4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{D0E1436D-9AA9-4616-943B-851DF450E715}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_ElevateDBDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - Elevate DB Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.dpk
new file mode 100644
index 0000000..b6773b6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ElevateDBDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ElevateDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  edb105d10run;
+
+contains
+  uDAElevateDBDriver in 'uDAElevateDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.dpk
new file mode 100644
index 0000000..bd44fbd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ElevateDBDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ElevateDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  edb105D2007run;
+
+contains
+  uDAElevateDBDriver in 'uDAElevateDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.dproj
new file mode 100644
index 0000000..9e5e80d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.dproj	
@@ -0,0 +1,552 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c31471d9-f8e2-4e45-94a7-1264d8011587}</ProjectGuid>
+    <MainSource>DataAbstract_ElevateDBDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - ElevateDB Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">361</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_ElevateDBDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_ElevateDBDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\edb105D2007run.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="uDAElevateDBDriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.dpk
new file mode 100644
index 0000000..0eb30af
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ElevateDBDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ElevateDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  edb105D2009run;
+
+contains
+  uDAElevateDBDriver in 'uDAElevateDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.dproj
new file mode 100644
index 0000000..d3ea1af
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.dproj	
@@ -0,0 +1,93 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{c31471d9-f8e2-4e45-94a7-1264d8011587}</ProjectGuid>
+			<MainSource>DataAbstract_ElevateDBDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_ElevateDBDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - ElevateDB Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_ElevateDBDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_ElevateDBDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.dpk
new file mode 100644
index 0000000..259fde0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ElevateDBDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ElevateDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  edb105D2009run;
+
+contains
+  uDAElevateDBDriver in 'uDAElevateDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.dproj
new file mode 100644
index 0000000..edca6cb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.dproj	
@@ -0,0 +1,97 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{c31471d9-f8e2-4e45-94a7-1264d8011587}</ProjectGuid>
+			<MainSource>DataAbstract_ElevateDBDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_ElevateDBDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - ElevateDB Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_ElevateDBDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="edb105D2009run.dcp"/>
+			<DCCReference Include="uDAElevateDBDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_ElevateDBDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.cfg
new file mode 100644
index 0000000..c2c069b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.dof
new file mode 100644
index 0000000..0c3ea83
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - ElevateDB Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.dpk
new file mode 100644
index 0000000..5e5f141
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ElevateDBDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ElevateDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  edb105d6run;
+
+contains
+  uDAElevateDBDriver in 'uDAElevateDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.res
new file mode 100644
index 0000000..f5602d3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.cfg
new file mode 100644
index 0000000..6784156
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.dof
new file mode 100644
index 0000000..9e696f5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - ElevateDB Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;EDBpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.dpk
new file mode 100644
index 0000000..c2f5f25
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ElevateDBDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - ElevateDB Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  edb105d7run;
+
+contains
+  uDAElevateDBDriver in 'uDAElevateDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.res
new file mode 100644
index 0000000..77a3fad
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_Glyphs.res
new file mode 100644
index 0000000..9e2c761
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ElevateDBDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.bdsproj
new file mode 100644
index 0000000..239dc3d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0FC45B58-F519-40B6-831A-DD79C8D3270F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_FIBDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - FIBPlus Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.dpk
new file mode 100644
index 0000000..6b4fd10
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_FIBDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - FIBPlus Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  FIBPlus2006;
+
+contains
+  uDAFIBDriver in 'uDAFIBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.dpk
new file mode 100644
index 0000000..d35cd4a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_FIBDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - FIBPlus Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  FIBPlus2007;
+
+contains
+  uDAFIBDriver in 'uDAFIBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.dproj
new file mode 100644
index 0000000..f73572b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.dproj	
@@ -0,0 +1,68 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4aa60252-6f77-44b7-a171-e158f29374ca}</ProjectGuid>
+    <MainSource>DataAbstract_FIBDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_FIBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - FIBPlus Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">361</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_FIBDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_FIBDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\FIBPlus2007.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\vcl.dcp" />
+    <DCCReference Include="uDAFIBDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.dpk
new file mode 100644
index 0000000..07031d1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_FIBDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - FIBPlus Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  FIBPlus2009;
+
+contains
+  uDAFIBDriver in 'uDAFIBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.dproj
new file mode 100644
index 0000000..67a3d3b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{4aa60252-6f77-44b7-a171-e158f29374ca}</ProjectGuid>
+			<MainSource>DataAbstract_FIBDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_FIBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_FIBDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - FIBPlus Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_FIBDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="FIBPlus2009.dcp"/>
+			<DCCReference Include="uDAFIBDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_FIBDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.dpk
new file mode 100644
index 0000000..fdf734e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_FIBDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - FIBPlus Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  FIBPlus2010;
+
+contains
+  uDAFIBDriver in 'uDAFIBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.dproj
new file mode 100644
index 0000000..9cef237
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.dproj	
@@ -0,0 +1,97 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{4aa60252-6f77-44b7-a171-e158f29374ca}</ProjectGuid>
+			<MainSource>DataAbstract_FIBDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_FIBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_FIBDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - FIBPlus Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_FIBDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="FIBPlus2009.dcp"/>
+			<DCCReference Include="uDAFIBDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_FIBDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.cfg
new file mode 100644
index 0000000..05f9ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.dof
new file mode 100644
index 0000000..c96c6c8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - FIBPlus Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.289
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.dpk
new file mode 100644
index 0000000..0447c56
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_FIBDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - FIBPlus Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  FIBPlus6;
+
+contains
+  uDAFIBDriver in 'uDAFIBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.res
new file mode 100644
index 0000000..f5602d3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.cfg
new file mode 100644
index 0000000..6784156
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.dof
new file mode 100644
index 0000000..ccdfd7b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - FIBPlus Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.dpk
new file mode 100644
index 0000000..8ecc150
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_FIBDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - FIBPlus Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  FIBPlus7;
+
+contains
+  uDAFIBDriver in 'uDAFIBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_Glyphs.res
new file mode 100644
index 0000000..d0e3d08
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_FIBDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.bdsproj
new file mode 100644
index 0000000..8d350cb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.bdsproj	
@@ -0,0 +1,179 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{89ABBDEB-A4DB-4045-AE76-0CE8A7CB792A}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_IBDACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - CoreLabs IBDAC Driver</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.dpk
new file mode 100644
index 0000000..032d677
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.dpk	
@@ -0,0 +1,38 @@
+package DataAbstract_MyDACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs IBDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  IBdac100,
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10;
+
+contains
+  uDAIBDACDriver in 'uDAIBDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.dpk
new file mode 100644
index 0000000..d018594
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_IBDACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs IBDAC Driver'}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  IBdac105,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11;
+
+contains
+  uDAIBDACDriver in 'uDAIBDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.dproj
new file mode 100644
index 0000000..80efb8b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.dproj	
@@ -0,0 +1,557 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{0d0e2131-7a05-4241-9ca1-f98aea2eb9d9}</ProjectGuid>
+    <MainSource>DataAbstract_IBDACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - CoreLabs IBDAC Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_IBDACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_IBDACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\IBdac105.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="IBdac100.dcp" />
+    <DCCReference Include="uDAIBDACDriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.dpk
new file mode 100644
index 0000000..f4b2112
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.dpk	
@@ -0,0 +1,38 @@
+package DataAbstract_IBDACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs IBDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  IBdac120,
+  RemObjects_Core_D12,
+  DataAbstract_Core_D12;
+
+contains
+  uDAIBDACDriver in 'uDAIBDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.dproj
new file mode 100644
index 0000000..014d532
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.dproj	
@@ -0,0 +1,97 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{0d0e2131-7a05-4241-9ca1-f98aea2eb9d9}</ProjectGuid>
+			<MainSource>DataAbstract_IBDACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_IBDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - CoreLabs IBDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_IBDACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="IBdac12.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="uDAIBDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_IBDACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.dpk
new file mode 100644
index 0000000..42e9d7a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.dpk	
@@ -0,0 +1,38 @@
+package DataAbstract_IBDACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs IBDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  IBdac140,
+  RemObjects_Core_D14,
+  DataAbstract_Core_D14;
+
+contains
+  uDAIBDACDriver in 'uDAIBDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.dproj
new file mode 100644
index 0000000..cd2ef89
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{0d0e2131-7a05-4241-9ca1-f98aea2eb9d9}</ProjectGuid>
+			<MainSource>DataAbstract_IBDACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_IBDACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - CoreLabs IBDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_IBDACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="IBdac12.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="uDAIBDACDriver.pas"/>
+			<DCCReference Include="RemObjects_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_IBDACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.cfg
new file mode 100644
index 0000000..51b688e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6"
+-O"..\..\Dcu\D6"
+-I"..\..\Dcu\D6"
+-R"..\..\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.dof
new file mode 100644
index 0000000..0cbf2a3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - CoreLabs IBDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.dpk
new file mode 100644
index 0000000..6975ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.dpk	
@@ -0,0 +1,38 @@
+package DataAbstract_IBDACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs IBDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  ibdac60,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6;
+
+contains
+  uDAIBDACDriver in 'uDAIBDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.res
new file mode 100644
index 0000000..371f8db
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.cfg
new file mode 100644
index 0000000..4c8862b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7"
+-O"..\..\Dcu\D7"
+-I"..\..\Dcu\D7"
+-R"..\..\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.dof
new file mode 100644
index 0000000..f69663d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - CoreLabs IBDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.dpk
new file mode 100644
index 0000000..3fd2f36
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.dpk	
@@ -0,0 +1,38 @@
+package DataAbstract_MyDACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs IBDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  ibdac70,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7;
+
+contains
+  uDAIBDACDriver in 'uDAIBDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.res
new file mode 100644
index 0000000..371f8db
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_Glyphs.res
new file mode 100644
index 0000000..3497984
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBDACDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.bdsproj
new file mode 100644
index 0000000..00d9b79
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{EECA635C-0BB1-414E-B43A-42F8C5D07E64}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_IBODriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - InterBase Objects Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.dpk
new file mode 100644
index 0000000..ef0bb3f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_IBODriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Objects Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  IBO40TRT_D10,
+  IBO40XRT_D10;
+  
+contains
+  uDAIBODriver in 'uDAIBODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.dpk
new file mode 100644
index 0000000..8d0c9ef
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_IBODriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Objects Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  IBO40TRT_D2007,
+  IBO40XRT_D2007;
+
+contains
+  uDAIBODriver in 'uDAIBODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.dproj
new file mode 100644
index 0000000..2afac81
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.dproj	
@@ -0,0 +1,554 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{8dcafd0d-ab98-4b7e-8b86-36dbc593e504}</ProjectGuid>
+    <MainSource>DataAbstract_IBODriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBODriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - InterBase Objects Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_IBODriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_IBODriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\IBO40TRT_D2007.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\IBO40XRT_D2007.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="uDAIBODriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.dpk
new file mode 100644
index 0000000..2056b9a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_IBODriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Objects Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  IBO40TRT_D2009,
+  IBO40XRT_D2009;
+
+contains
+  uDAIBODriver in 'uDAIBODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.dproj
new file mode 100644
index 0000000..f65fa8f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.dproj	
@@ -0,0 +1,96 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{8dcafd0d-ab98-4b7e-8b86-36dbc593e504}</ProjectGuid>
+			<MainSource>DataAbstract_IBODriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBODriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_IBODriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - InterBase Objects Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_IBODriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="IBO40TRT_D2009.dcp"/>
+			<DCCReference Include="IBO40XRT_D2009.dcp"/>
+			<DCCReference Include="uDAIBODriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_IBODriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.dpk
new file mode 100644
index 0000000..88b1691
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_IBODriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Objects Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  IBO40TRT_D2010,
+  IBO40XRT_D2010;
+
+contains
+  uDAIBODriver in 'uDAIBODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.dproj
new file mode 100644
index 0000000..3b14493
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.dproj	
@@ -0,0 +1,98 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{8dcafd0d-ab98-4b7e-8b86-36dbc593e504}</ProjectGuid>
+			<MainSource>DataAbstract_IBODriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBODriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_IBODriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - InterBase Objects Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_IBODriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="IBO40TRT_D2009.dcp"/>
+			<DCCReference Include="IBO40XRT_D2009.dcp"/>
+			<DCCReference Include="uDAIBODriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_IBODriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.cfg
new file mode 100644
index 0000000..05f9ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.dof
new file mode 100644
index 0000000..533614b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - InterBase Objects Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.dpk
new file mode 100644
index 0000000..1238d53
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_IBODriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Objects Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  IBO40TRT_D6,
+  IBO40XRT_D6;
+  
+contains
+  uDAIBODriver in 'uDAIBODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.cfg
new file mode 100644
index 0000000..6784156
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.dof
new file mode 100644
index 0000000..b8f8fb1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - InterBase Objects Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.dpk
new file mode 100644
index 0000000..d4562dc
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_IBODriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Objects Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  IBO40TRT_D7,
+  IBO40XRT_D7;
+
+contains
+  uDAIBODriver in 'uDAIBODriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_Glyphs.res
new file mode 100644
index 0000000..e4c8f7b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBODriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.bdsproj
new file mode 100644
index 0000000..ba3a5e6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{D0E1436D-9AA9-4616-943B-851DF450E715}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_IBXDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - InterBase Express Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.dpk
new file mode 100644
index 0000000..33c10ef
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_IBXDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Express Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  ibxpress;
+
+contains
+  uDAIBXDriver in 'uDAIBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.dpk
new file mode 100644
index 0000000..f4f4afd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_IBXDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Express Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  ibxpress;
+
+contains
+  uDAIBXDriver in 'uDAIBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.dproj
new file mode 100644
index 0000000..0a51da1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.dproj	
@@ -0,0 +1,63 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c31471d9-f8e2-4e45-94a7-1264d8011587}</ProjectGuid>
+    <MainSource>DataAbstract_IBXDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBXDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - InterBase Express Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">361</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_IBXDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_IBXDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="uDAIBXDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.dpk
new file mode 100644
index 0000000..5f919cf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_IBXDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Express Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  ibxpress;
+
+contains
+  uDAIBXDriver in 'uDAIBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.dproj
new file mode 100644
index 0000000..fdd0d82
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.dproj	
@@ -0,0 +1,102 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{c31471d9-f8e2-4e45-94a7-1264d8011587}</ProjectGuid>
+			<MainSource>DataAbstract_IBXDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBXDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_IBXDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - InterBase Express Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_IBXDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="ibxpress.dcp"/>
+			<DCCReference Include="uDAIBXDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_IBXDriver_D12.dpk</Source>
+					</Source>
+					<Excluded_Packages>
+						<Excluded_Packages Name="C:\WINNT\system32\vclimg120.bpl">CodeGear Delphi image support library</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcboffice2k120.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcbofficexp120.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k120.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp120.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.dpk
new file mode 100644
index 0000000..bbc8145
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_IBXDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Express Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  ibxpress;
+
+contains
+  uDAIBXDriver in 'uDAIBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.dproj
new file mode 100644
index 0000000..5ff0445
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.dproj	
@@ -0,0 +1,102 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{c31471d9-f8e2-4e45-94a7-1264d8011587}</ProjectGuid>
+			<MainSource>DataAbstract_IBXDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IBXDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_IBXDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - InterBase Express Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_IBXDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="ibxpress.dcp"/>
+			<DCCReference Include="uDAIBXDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_IBXDriver_D14.dpk</Source>
+					</Source>
+					<Excluded_Packages>
+						<Excluded_Packages Name="C:\WINNT\system32\vclimg120.bpl">CodeGear Delphi image support library</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcboffice2k120.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcbofficexp120.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k120.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp120.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.cfg
new file mode 100644
index 0000000..05f9ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.dof
new file mode 100644
index 0000000..220d444
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - InterBase Express Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.dpk
new file mode 100644
index 0000000..98c5ffa
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_IBXDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Express Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  ibxpress;
+
+contains
+  uDAIBXDriver in 'uDAIBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.cfg
new file mode 100644
index 0000000..6784156
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.dof
new file mode 100644
index 0000000..933b8c1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - InterBase Express Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.dpk
new file mode 100644
index 0000000..7c15b6b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_IBXDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - InterBase Express Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  ibxpress;
+
+contains
+  uDAIBXDriver in 'uDAIBXDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_Glyphs.res
new file mode 100644
index 0000000..5d3bf7b
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_IBXDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.bdsproj
new file mode 100644
index 0000000..f023fd3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{89ABBDEB-A4DB-4045-AE76-0CE8A7CB792A}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_MyDACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - CoreLabs MyDAC Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.dpk
new file mode 100644
index 0000000..7d302e2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_MyDACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs MyDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac100,
+  mydac100,
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10;
+
+contains
+  uDAMyDACDriver in 'uDAMyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.dpk
new file mode 100644
index 0000000..9a0e35d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_MyDACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs MyDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac105,
+  mydac105,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11;
+
+contains
+  uDAMyDACDriver in 'uDAMyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.dproj
new file mode 100644
index 0000000..dec5987
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.dproj	
@@ -0,0 +1,77 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c13e3848-8048-4b6e-a5c5-b14de1a683a5}</ProjectGuid>
+    <MainSource>DataAbstract_MyDACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - CoreLabs MyDAC Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_MyDACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_MyDACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\bdertl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dac105.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\mydac105.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\vcl.dcp" />
+    <DCCReference Include="dac100.dcp" />
+    <DCCReference Include="mydac100.dcp" />
+    <DCCReference Include="uDAMyDACDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.dpk
new file mode 100644
index 0000000..1051872
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_MyDACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs MyDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac120,
+  mydac120,
+  DataAbstract_Core_D12;
+
+contains
+  uDAMyDACDriver in 'uDAMyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.dproj
new file mode 100644
index 0000000..addf263
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.dproj	
@@ -0,0 +1,99 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{c13e3848-8048-4b6e-a5c5-b14de1a683a5}</ProjectGuid>
+			<MainSource>DataAbstract_MyDACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_MyDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - CoreLabs MyDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_MyDACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac12.dcp"/>
+			<DCCReference Include="mydac12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="uDAMyDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_MyDACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.dpk
new file mode 100644
index 0000000..aa75284
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_MyDACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs MyDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac140,
+  mydac140,
+  DataAbstract_Core_D14;
+
+contains
+  uDAMyDACDriver in 'uDAMyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.dproj
new file mode 100644
index 0000000..e39e5b1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{c13e3848-8048-4b6e-a5c5-b14de1a683a5}</ProjectGuid>
+			<MainSource>DataAbstract_MyDACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_MyDACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - CoreLabs MyDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_MyDACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac12.dcp"/>
+			<DCCReference Include="mydac12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="uDAMyDACDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_MyDACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.cfg
new file mode 100644
index 0000000..481e4c1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.cfg	
@@ -0,0 +1,42 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\dcu\d6"
+-LE"..\..\dcu\d6"
+-LN"..\..\dcu\d6"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_PLATFORM
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.dof
new file mode 100644
index 0000000..468bfc4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - CoreLabs MyDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.dpk
new file mode 100644
index 0000000..3886fc7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_MYDACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs MyDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac60,
+  mydac60,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6;
+
+contains
+  uDAMyDACDriver in 'uDAMyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.res
new file mode 100644
index 0000000..371f8db
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.cfg
new file mode 100644
index 0000000..6784156
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.dof
new file mode 100644
index 0000000..d99f972
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - CoreLabs MyDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.dpk
new file mode 100644
index 0000000..a90f1f3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_MyDACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs MyDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac70,
+  mydac70,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7;
+
+contains
+  uDAMyDACDriver in 'uDAMyDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.res
new file mode 100644
index 0000000..371f8db
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_Glyphs.res
new file mode 100644
index 0000000..7e28db9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MyDACDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.bdsproj
new file mode 100644
index 0000000..98d0a00
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0FC45B58-F519-40B6-831A-DD79C8D3270F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_MySQLDACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - MicroOlap mySQL Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.dpk
new file mode 100644
index 0000000..835b724
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_MySQLDACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap mySQLDac Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  mySQLDAC10;
+
+contains
+  uDAMySQLDACDriver in 'uDAMySQLDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.dpk
new file mode 100644
index 0000000..55e6cc5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_MySQLDACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap mySQLDac Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  mySQLDAC11;
+
+contains
+  uDAMySQLDACDriver in 'uDAMySQLDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.dproj
new file mode 100644
index 0000000..3c6e25d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.dproj	
@@ -0,0 +1,552 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{8ba781c7-bf1c-49bf-a87d-d21f3a68fd91}</ProjectGuid>
+    <MainSource>DataAbstract_MySQLDACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_MySQLDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - MicroOlap mySQLDac Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">361</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_MySQLDACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_MySQLDACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\mySQLDAC11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="uDAMySQLDACDriver.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.dpk
new file mode 100644
index 0000000..9a3dd0e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_MySQLDACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap mySQLDac Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  mySQLDAC12;
+
+contains
+  uDAMySQLDACDriver in 'uDAMySQLDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.dproj
new file mode 100644
index 0000000..8eec613
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{8ba781c7-bf1c-49bf-a87d-d21f3a68fd91}</ProjectGuid>
+			<MainSource>DataAbstract_MySQLDACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_MySQLDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_MySQLDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - MicroOlap mySQLDac Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_MySQLDACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="mySQLDAC12.dcp"/>
+			<DCCReference Include="uDAMySQLDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_MySQLDACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.dpk
new file mode 100644
index 0000000..b35e124
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_MySQLDACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap mySQLDac Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  mySQLDAC14;
+
+contains
+  uDAMySQLDACDriver in 'uDAMySQLDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.dproj
new file mode 100644
index 0000000..0287444
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.dproj	
@@ -0,0 +1,97 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{8ba781c7-bf1c-49bf-a87d-d21f3a68fd91}</ProjectGuid>
+			<MainSource>DataAbstract_MySQLDACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_MySQLDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_MySQLDACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - MicroOlap mySQLDac Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_MySQLDACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="mySQLDAC12.dcp"/>
+			<DCCReference Include="uDAMySQLDACDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_MySQLDACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.cfg
new file mode 100644
index 0000000..05f9ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.dof
new file mode 100644
index 0000000..e0035fa
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - ADOExpress/dbGo Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.dpk
new file mode 100644
index 0000000..66a1e6c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_MySQLDACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap mySQLDac Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  mySQLDAC6;
+
+contains
+  uDAMySQLDACDriver in 'uDAMySQLDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.cfg
new file mode 100644
index 0000000..6784156
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.dof
new file mode 100644
index 0000000..f2d0c96
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - ADOExpress/dbGo Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.dpk
new file mode 100644
index 0000000..994ed6b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_MySQLDACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap mySQLDac Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  mySQLDAC7;
+
+contains
+  uDAMySQLDACDriver in 'uDAMySQLDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_Glyphs.res
new file mode 100644
index 0000000..cd846aa
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_MySQLDACDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.bdsproj
new file mode 100644
index 0000000..05fd89b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.bdsproj	
@@ -0,0 +1,182 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{56F75847-162D-44A5-A3DF-94172EE994EF}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_NexusDBDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">Data Abstract - NexusDB Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>  
+    
+    <Excluded_Packages>
+      <Excluded_Packages Name="R:\Data Abstract\Dcu\D9\DataAbstract_Core_D9.bpl">RemObjects Data Abstract - Core Library</Excluded_Packages>
+      <Excluded_Packages Name="R:\Data Abstract\Dcu\D9\DataAbstract_IDE_D9.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages>
+    </Excluded_Packages>
+  </Delphi.Personality>  <StarTeamAssociation></StarTeamAssociation>
+  <StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.cfg
new file mode 100644
index 0000000..ab68ed8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\"
+-O"..\"
+-I"..\"
+-R"..\"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.dpk
new file mode 100644
index 0000000..5ab0396
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.dpk	
@@ -0,0 +1,47 @@
+package DataAbstract_NexusDBDriver_D10;
+
+{$R *.res}
+{$R 'uDANexusDBDriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Data Abstract - NexusDB Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10,
+  NexusDB107ll100,
+  NexusDB107sr100,
+  NexusDB107sd100,
+  NexusDB107sq100,
+  NexusDB107re100,
+  NexusDB107st100,
+  NexusDB107tn100,
+  NexusDB107pt100,
+  NexusDB107tw100,
+  NexusDB107db100,
+  NexusDB1071x100;
+
+contains
+  uDANexusDBDriver in 'uDANexusDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.res
new file mode 100644
index 0000000..941b7a7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.dpk
new file mode 100644
index 0000000..457277c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.dpk	
@@ -0,0 +1,46 @@
+package DataAbstract_NexusDBDriver_D11;
+
+{$R *.res}
+{$R 'uDANexusDBDriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Data Abstract - NexusDB Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  NexusDB302ll110,
+  NexusDB302se110,
+  NexusDB302sr110,
+  NexusDB302sd110,
+  NexusDB302sq110,
+  NexusDB302re110,
+  NexusDB302pt110,
+  NexusDB302tn110,
+  NexusDB302tw110,
+  NexusDB302db110;
+
+contains
+  uDANexusDBDriver in 'uDANexusDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.dproj
new file mode 100644
index 0000000..52343f9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.dproj	
@@ -0,0 +1,102 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f5368522-8742-4b69-a8b3-668ec242cc52}</ProjectGuid>
+    <MainSource>DataAbstract_NexusDBDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\</DCC_ResourcePath>
+    <DCC_ObjPath>..\</DCC_ObjPath>
+    <DCC_IncludePath>..\</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\</DCC_ResourcePath>
+    <DCC_ObjPath>..\</DCC_ObjPath>
+    <DCC_IncludePath>..\</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Data Abstract - NexusDB Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MySQLDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap mySQLDac Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclbde100.bpl">CodeGear BDE DB Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">DataAbstract_NexusDBDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_NexusDBDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\containsuDANexusDBDriverin.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207db110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207ll110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207pt110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207re110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207sd110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207se110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207sq110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207sr110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207tn110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\NexusDB207tw110.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="uDANexusDBDriver.dcr" />
+    <DCCReference Include="uDANexusDBDriver.dcr" />
+    <DCCReference Include="uDANexusDBDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.res
new file mode 100644
index 0000000..941b7a7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.dpk
new file mode 100644
index 0000000..380698b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.dpk	
@@ -0,0 +1,44 @@
+package DataAbstract_NexusDBDriver_D12;
+
+{$R *.res}
+{$R 'uDANexusDBDriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Data Abstract - NexusDB Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  DataAbstract_Core_D12,
+  NexusDB302ll120,
+  NexusDB302se120,
+  NexusDB302sr120,
+  NexusDB302sd120,
+  NexusDB302sq120,
+  NexusDB302re120,
+  NexusDB302pt120,
+  NexusDB302tn120,
+  NexusDB302tw120,
+  NexusDB302db120;
+contains
+  uDANexusDBDriver in 'uDANexusDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.dproj
new file mode 100644
index 0000000..e683a67
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.dproj	
@@ -0,0 +1,111 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{f5368522-8742-4b69-a8b3-668ec242cc52}</ProjectGuid>
+			<MainSource>DataAbstract_NexusDBDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_NexusDBDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>Data Abstract - NexusDB Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_NexusDBDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="uDANexusDBDriver.dcr"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="NexusDB207ll120.dcp"/>
+			<DCCReference Include="NexusDB207se120.dcp"/>
+			<DCCReference Include="NexusDB207sr120.dcp"/>
+			<DCCReference Include="NexusDB207sd120.dcp"/>
+			<DCCReference Include="NexusDB207sq120.dcp"/>
+			<DCCReference Include="NexusDB207re120.dcp"/>
+			<DCCReference Include="NexusDB207pt120.dcp"/>
+			<DCCReference Include="NexusDB207tn120.dcp"/>
+			<DCCReference Include="NexusDB207tw120.dcp"/>
+			<DCCReference Include="NexusDB207db120.dcp"/>
+			<DCCReference Include="uDANexusDBDriver.pas"/>
+			<DCCReference Include="uDANexusDBDriver.dcr"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Excluded_Packages>
+						<Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MySQLDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap mySQLDac Driver</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclbde100.bpl">CodeGear BDE DB Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+					<Source>
+						<Source Name="MainSource">DataAbstract_NexusDBDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.res
new file mode 100644
index 0000000..941b7a7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.dpk
new file mode 100644
index 0000000..8cacec4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.dpk	
@@ -0,0 +1,45 @@
+package DataAbstract_NexusDBDriver_D14;
+
+{$R *.res}
+{$R 'uDANexusDBDriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Data Abstract - NexusDB Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  DataAbstract_Core_D14,
+  NexusDB302ll140,
+  NexusDB302se140,
+  NexusDB302sr140,
+  NexusDB302sd140,
+  NexusDB302sq140,
+  NexusDB302re140,
+  NexusDB302pt140,
+  NexusDB302tn140,
+  NexusDB302tw140,
+  NexusDB302db140;
+
+contains
+  uDANexusDBDriver in 'uDANexusDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.dproj
new file mode 100644
index 0000000..cf9424a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.dproj	
@@ -0,0 +1,113 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{f5368522-8742-4b69-a8b3-668ec242cc52}</ProjectGuid>
+			<MainSource>DataAbstract_NexusDBDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_NexusDBDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>Data Abstract - NexusDB Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_NexusDBDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="uDANexusDBDriver.dcr"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="NexusDB207ll120.dcp"/>
+			<DCCReference Include="NexusDB207se120.dcp"/>
+			<DCCReference Include="NexusDB207sr120.dcp"/>
+			<DCCReference Include="NexusDB207sd120.dcp"/>
+			<DCCReference Include="NexusDB207sq120.dcp"/>
+			<DCCReference Include="NexusDB207re120.dcp"/>
+			<DCCReference Include="NexusDB207pt120.dcp"/>
+			<DCCReference Include="NexusDB207tn120.dcp"/>
+			<DCCReference Include="NexusDB207tw120.dcp"/>
+			<DCCReference Include="NexusDB207db120.dcp"/>
+			<DCCReference Include="uDANexusDBDriver.pas"/>
+			<DCCReference Include="uDANexusDBDriver.dcr"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Excluded_Packages>
+						<Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MySQLDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap mySQLDac Driver</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclbde100.bpl">CodeGear BDE DB Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+					<Source>
+						<Source Name="MainSource">DataAbstract_NexusDBDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.res
new file mode 100644
index 0000000..941b7a7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.cfg
new file mode 100644
index 0000000..c7cbecf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.cfg	
@@ -0,0 +1,42 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\Dcu\D6"
+-LE"..\Dcu\D6"
+-LN"..\Dcu\D6"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_PLATFORM
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.dof
new file mode 100644
index 0000000..dcd6c63
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - NexusDB Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.dpk
new file mode 100644
index 0000000..f2b9bec
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.dpk	
@@ -0,0 +1,44 @@
+package DataAbstract_NexusDBDriver_D6;
+
+{$R *.res}
+{$R 'uDANexusDBDriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Data Abstract - NexusDB Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6,
+  NexusDB107st60,
+  NexusDB107pt60,
+  NexusDB107tw60,
+  NexusDB107tn60,
+  NexusDB107re60,
+  NexusDB1071x60,
+  NexusDB107sq60,
+  NexusDB107db60;
+
+contains
+  uDANexusDBDriver in 'uDANexusDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.res
new file mode 100644
index 0000000..22eb4e7
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.cfg
new file mode 100644
index 0000000..d772b58
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.cfg	
@@ -0,0 +1,46 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\Dcu\D7"
+-LE"..\Dcu\D7"
+-LN"..\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.dof
new file mode 100644
index 0000000..3a86bcb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - NexusDB Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.dpk
new file mode 100644
index 0000000..66eb10a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.dpk	
@@ -0,0 +1,47 @@
+package DataAbstract_NexusDBDriver_D7;
+
+{$R *.res}
+{$R 'uDANexusDBDriver.dcr'}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Data Abstract - NexusDB Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7,
+  NexusDB107ll70,
+  NexusDB107sr70,
+  NexusDB107sd70,
+  NexusDB107sq70,
+  NexusDB107re70,
+  NexusDB107st70,
+  NexusDB107tn70,
+  NexusDB107pt70,
+  NexusDB107tw70,
+  NexusDB107db70,
+  NexusDB1071x70;
+
+contains
+  uDANexusDBDriver in 'uDANexusDBDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.res
new file mode 100644
index 0000000..20e9bca
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_NexusDBDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.bdsproj
new file mode 100644
index 0000000..01bb3ad
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{D5CF0E18-5430-44E4-8B68-4D54B5F3535D}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_ODACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - CoreLabs ODAC Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.dpk
new file mode 100644
index 0000000..78921ea
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_ODACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs ODAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac100,
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10,
+  odac100;
+
+contains
+  uDAODACDriver in 'uDAODACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.dpk
new file mode 100644
index 0000000..92f4d48
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_ODACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs ODAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac105,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  odac105;
+
+contains
+  uDAODACDriver in 'uDAODACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.dproj
new file mode 100644
index 0000000..7d8ed75
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.dproj	
@@ -0,0 +1,87 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+    <MainSource>DataAbstract_ODACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ODACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - CoreLabs ODAC Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_ODACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_ODACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\bdertl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dac105.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\odac105.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\vcl.dcp" />
+    <DCCReference Include="bdac105.dcp" />
+    <DCCReference Include="bddac105.dcp" />
+    <DCCReference Include="bdedac105.dcp" />
+    <DCCReference Include="bderdac105.dcp" />
+    <DCCReference Include="bdertdac105.dcp" />
+    <DCCReference Include="bdertldac105.dcp" />
+    <DCCReference Include="brdac105.dcp" />
+    <DCCReference Include="bredac105.dcp" />
+    <DCCReference Include="dac10.dcp" />
+    <DCCReference Include="dac100.dcp" />
+    <DCCReference Include="odac10.dcp" />
+    <DCCReference Include="odac100.dcp" />
+    <DCCReference Include="uDAODACDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.dpk
new file mode 100644
index 0000000..0b6e0ae
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_ODACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs ODAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac120,
+  DataAbstract_Core_D12,
+  odac120;
+
+contains
+  uDAODACDriver in 'uDAODACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.dproj
new file mode 100644
index 0000000..16668d0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.dproj	
@@ -0,0 +1,99 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+			<MainSource>DataAbstract_ODACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ODACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_ODACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - CoreLabs ODAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_ODACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="odac12.dcp"/>
+			<DCCReference Include="uDAODACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_ODACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.dpk
new file mode 100644
index 0000000..119eebe
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_ODACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs ODAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac140,
+  DataAbstract_Core_D14,
+  odac140;
+
+contains
+  uDAODACDriver in 'uDAODACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.dproj
new file mode 100644
index 0000000..2a2d16d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+			<MainSource>DataAbstract_ODACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ODACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_ODACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - CoreLabs ODAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_ODACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="odac12.dcp"/>
+			<DCCReference Include="uDAODACDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_ODACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.cfg
new file mode 100644
index 0000000..0aa2cb6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.dof
new file mode 100644
index 0000000..e6a8cb6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - CoreLabs ODAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.dpk
new file mode 100644
index 0000000..debd426
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_ODACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs ODAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac60,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6,
+  odac60;
+
+contains
+  uDAODACDriver in 'uDAODACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.cfg
new file mode 100644
index 0000000..a290ad9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.dof
new file mode 100644
index 0000000..b6566eb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - CoreLabs ODAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.dpk
new file mode 100644
index 0000000..06e9940
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_ODACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs ODAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac70,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7,
+  odac70;
+
+contains
+  uDAODACDriver in 'uDAODACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_Glyphs.res
new file mode 100644
index 0000000..5948a0e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ODACDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.bdsproj
new file mode 100644
index 0000000..30eddaf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{D5CF0E18-5430-44E4-8B68-4D54B5F3535D}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_PgDACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - Devart PgDAC Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.dpk
new file mode 100644
index 0000000..7517fcb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_PgDACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart PgDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac100,
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10,
+  pgdac100;
+
+contains
+  uDAPgDACDriver in 'uDAPgDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.dpk
new file mode 100644
index 0000000..162cb52
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_PgDACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart PgDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac105,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  pgdac105;
+
+contains
+  uDAPgDACDriver in 'uDAPgDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.dproj
new file mode 100644
index 0000000..18fec30
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.dproj	
@@ -0,0 +1,73 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+    <MainSource>DataAbstract_PgDACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_PgDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - Devart PgDAC Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_PgDACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_PgDACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="bdertl.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uDAPgDACDriver.pas" />
+    <DCCReference Include="vcl.dcp" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.dpk
new file mode 100644
index 0000000..a79a681
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_PgDACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart PgDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac120,
+  DataAbstract_Core_D12,
+  pgdac120;
+
+contains
+  uDAPgDACDriver in 'uDAPgDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.dproj
new file mode 100644
index 0000000..7a6bbb4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.dproj	
@@ -0,0 +1,99 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+			<MainSource>DataAbstract_PgDACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_PgDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_PgDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - Devart PgDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_PgDACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac120.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="pgdac120.dcp"/>
+			<DCCReference Include="uDAPgDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_PgDACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.dpk
new file mode 100644
index 0000000..d8d6a08
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_PgDACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart PgDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dac140,
+  DataAbstract_Core_D14,
+  pgdac140;
+
+contains
+  uDAPgDACDriver in 'uDAPgDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.dproj
new file mode 100644
index 0000000..af91ba5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+			<MainSource>DataAbstract_PgDACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_PgDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_PgDACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - Devart PgDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_PgDACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="pgdac12.dcp"/>
+			<DCCReference Include="uDAPgDACDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_PgDACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.cfg
new file mode 100644
index 0000000..7124fa1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.dof
new file mode 100644
index 0000000..94003e2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Devart PgDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.dpk
new file mode 100644
index 0000000..85d77b6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_PgDACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart PgDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dac60,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6,
+  pgdac60;
+
+contains
+  uDAPgDACDriver in 'uDAPgDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.cfg
new file mode 100644
index 0000000..a290ad9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.dof
new file mode 100644
index 0000000..a870306
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Devart PgDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.dpk
new file mode 100644
index 0000000..db2cfb1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_PgDACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart PgDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac70,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7,
+  pgdac70;
+
+contains
+  uDAPgDACDriver in 'uDAPgDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_Glyphs.res
new file mode 100644
index 0000000..f3a4591
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PgDACDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.bdsproj
new file mode 100644
index 0000000..d3a6db6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0FC45B58-F519-40B6-831A-DD79C8D3270F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_PostgresDACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - MicroOlap PostgresDAC Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.cfg
new file mode 100644
index 0000000..9037d9d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.dpk
new file mode 100644
index 0000000..424def4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_PostgresDACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap PostgresDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  PostgresDAC10;
+
+contains
+  uDAPostgresDACDriver in 'uDAPostgresDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.dpk
new file mode 100644
index 0000000..14e92ab
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_PostgresDACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap PostgresDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  PostgresDAC11;
+
+contains
+  uDAPostgresDACDriver in 'uDAPostgresDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.dproj
new file mode 100644
index 0000000..1233566
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.dproj	
@@ -0,0 +1,69 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{777e54de-8166-497d-912a-60af105eb626}</ProjectGuid>
+    <MainSource>DataAbstract_PostgresDACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - MicroOlap PostgresDAC Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">361</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_PostgresDACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_PostgresDACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\PostgresDAC11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\vcl.dcp" />
+    <DCCReference Include="uDAPostgresDACDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.dpk
new file mode 100644
index 0000000..162af52
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_PostgresDACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap PostgresDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12,
+  PostgresDAC12;
+
+contains
+  uDAPostgresDACDriver in 'uDAPostgresDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.dproj
new file mode 100644
index 0000000..cc12094
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.dproj	
@@ -0,0 +1,95 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{777e54de-8166-497d-912a-60af105eb626}</ProjectGuid>
+			<MainSource>DataAbstract_PostgresDACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_PostgresDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - MicroOlap PostgresDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_PostgresDACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="PostgresDAC12.dcp"/>
+			<DCCReference Include="uDAPostgresDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_PostgresDACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.dpk
new file mode 100644
index 0000000..2d97f99
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_PostgresDACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap PostgresDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14,
+  PostgresDAC14;
+
+contains
+  uDAPostgresDACDriver in 'uDAPostgresDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.dproj
new file mode 100644
index 0000000..43b7324
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.dproj	
@@ -0,0 +1,97 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{777e54de-8166-497d-912a-60af105eb626}</ProjectGuid>
+			<MainSource>DataAbstract_PostgresDACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_PostgresDACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - MicroOlap PostgresDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_PostgresDACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="PostgresDAC12.dcp"/>
+			<DCCReference Include="uDAPostgresDACDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_PostgresDACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.cfg
new file mode 100644
index 0000000..05f9ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.dof
new file mode 100644
index 0000000..e0035fa
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - ADOExpress/dbGo Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.dpk
new file mode 100644
index 0000000..b7803fe
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_PostgresDACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap PostgresDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6,
+  PostgresDAC6;
+
+contains
+  uDAPostgresDACDriver in 'uDAPostgresDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.cfg
new file mode 100644
index 0000000..6784156
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.dof
new file mode 100644
index 0000000..f2d0c96
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - ADOExpress/dbGo Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.dpk
new file mode 100644
index 0000000..37c6d74
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_PostgresDACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - MicroOlap PostgresDAC Driver'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7,
+  PostgresDAC7;
+
+contains
+  uDAPostgresDACDriver in 'uDAPostgresDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.res
new file mode 100644
index 0000000..892aed8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_Glyphs.res
new file mode 100644
index 0000000..fb43550
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_PostgresDACDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.bdsproj
new file mode 100644
index 0000000..d05f343
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{D100EE26-6D50-4902-BC9B-C2BA456E2258}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_SDACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - CoreLabs SDAC Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.dpk
new file mode 100644
index 0000000..a7067e9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_SDACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs SDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac100,
+  RemObjects_Core_D10,
+  sdac100,
+  DataAbstract_Core_D10;
+
+contains
+  uDASDACDriver in 'uDASDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.dpk
new file mode 100644
index 0000000..40d1424
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_SDACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs SDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac105,
+  RemObjects_Core_D11,
+  sdac105,
+  DataAbstract_Core_D11;
+
+contains
+  uDASDACDriver in 'uDASDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.dproj
new file mode 100644
index 0000000..4c5409b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.dproj	
@@ -0,0 +1,79 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{bcb5ceeb-712c-4f85-83e3-6f57bb934c9f}</ProjectGuid>
+    <MainSource>DataAbstract_SDACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - CoreLabs SDAC Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_SDACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_SDACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\bdertl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dac105.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\sdac105.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\vcl.dcp" />
+    <DCCReference Include="dac10.dcp" />
+    <DCCReference Include="dac100.dcp" />
+    <DCCReference Include="sdac10.dcp" />
+    <DCCReference Include="sdac100.dcp" />
+    <DCCReference Include="uDASDACDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.dpk
new file mode 100644
index 0000000..206f297
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_SDACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs SDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac120,
+  sdac120,
+  DataAbstract_Core_D12;
+
+contains
+  uDASDACDriver in 'uDASDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.dproj
new file mode 100644
index 0000000..6641211
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.dproj	
@@ -0,0 +1,99 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{bcb5ceeb-712c-4f85-83e3-6f57bb934c9f}</ProjectGuid>
+			<MainSource>DataAbstract_SDACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_SDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - CoreLabs SDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_SDACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac12.dcp"/>
+			<DCCReference Include="sdac12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="uDASDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_SDACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.dpk
new file mode 100644
index 0000000..bd096f5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_SDACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs SDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac140,
+  sdac140,
+  DataAbstract_Core_D14;
+
+contains
+  uDASDACDriver in 'uDASDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.dproj
new file mode 100644
index 0000000..2fd239b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{bcb5ceeb-712c-4f85-83e3-6f57bb934c9f}</ProjectGuid>
+			<MainSource>DataAbstract_SDACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_SDACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - CoreLabs SDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_SDACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac12.dcp"/>
+			<DCCReference Include="sdac12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="uDASDACDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_SDACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.cfg
new file mode 100644
index 0000000..0aa2cb6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.dof
new file mode 100644
index 0000000..a6cb4e4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - CoreLabs SDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.dpk
new file mode 100644
index 0000000..6f3c3e6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_SDACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs SDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6,
+  dac60,
+  sdac60;
+
+contains
+  uDASDACDriver in 'uDASDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.cfg
new file mode 100644
index 0000000..a290ad9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.dof
new file mode 100644
index 0000000..42ca991
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - CoreLabs SDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.dpk
new file mode 100644
index 0000000..ca1d337
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_SDACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - CoreLabs SDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac70,
+  RemObjects_Core_D7,
+  sdac70,
+  DataAbstract_Core_D7;
+
+contains
+  uDASDACDriver in 'uDASDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.res
new file mode 100644
index 0000000..ac3b612
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_Glyphs.res
new file mode 100644
index 0000000..d14c81c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SDACDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.bdsproj
new file mode 100644
index 0000000..4acf23e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{C227C50C-E7AA-4212-8D32-C33B5BFE5BB8}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_SQLiteDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - SQLite Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.dpk
new file mode 100644
index 0000000..e678ec2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.dpk	
@@ -0,0 +1,37 @@
+package DataAbstract_SQLiteDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLite Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10;
+
+contains
+  uDASQLiteDriver in 'uDASQLiteDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.dpk
new file mode 100644
index 0000000..ba6edaa
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.dpk	
@@ -0,0 +1,37 @@
+package DataAbstract_SQLiteDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLite Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11;
+
+contains
+  uDASQLiteDriver in 'uDASQLiteDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.dproj
new file mode 100644
index 0000000..ed142b2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.dproj	
@@ -0,0 +1,71 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{17f81962-5ed1-4c36-bee9-ce79aab46e95}</ProjectGuid>
+    <MainSource>DataAbstract_SQLiteDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - SQLite Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">361</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_SQLiteDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_SQLiteDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\vcl.dcp" />
+    <DCCReference Include="uDASQLiteDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.dpk
new file mode 100644
index 0000000..201d328
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.dpk	
@@ -0,0 +1,37 @@
+package DataAbstract_SQLiteDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLite Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D12;
+
+contains
+  uDASQLiteDriver in 'uDASQLiteDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.dproj
new file mode 100644
index 0000000..e23601c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.dproj	
@@ -0,0 +1,96 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{17f81962-5ed1-4c36-bee9-ce79aab46e95}</ProjectGuid>
+			<MainSource>DataAbstract_SQLiteDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_SQLiteDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - SQLite Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_SQLiteDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="uDASQLiteDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_SQLiteDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.dpk
new file mode 100644
index 0000000..633943e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.dpk	
@@ -0,0 +1,37 @@
+package DataAbstract_SQLiteDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLite Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D14;
+
+contains
+  uDASQLiteDriver in 'uDASQLiteDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.dproj
new file mode 100644
index 0000000..0ae6814
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.dproj	
@@ -0,0 +1,98 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{17f81962-5ed1-4c36-bee9-ce79aab46e95}</ProjectGuid>
+			<MainSource>DataAbstract_SQLiteDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_SQLiteDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - SQLite Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_SQLiteDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="uDASQLiteDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">361</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_SQLiteDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.res
new file mode 100644
index 0000000..7b3c163
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.cfg
new file mode 100644
index 0000000..4730510
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.dof
new file mode 100644
index 0000000..1fb3129
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.dof	
@@ -0,0 +1,76 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - SQLite Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.dpk
new file mode 100644
index 0000000..81be681
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.dpk	
@@ -0,0 +1,37 @@
+package DataAbstract_SQLiteDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLite Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D6;
+
+contains
+  uDASQLiteDriver in 'uDASQLiteDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.res
new file mode 100644
index 0000000..f5602d3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.cfg
new file mode 100644
index 0000000..5cf57a8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.dof
new file mode 100644
index 0000000..94c4d85
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - SQLite Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.142
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.dpk
new file mode 100644
index 0000000..0265195
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.dpk	
@@ -0,0 +1,37 @@
+package DataAbstract_SQLiteDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLite Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D7;
+
+contains
+  uDASQLiteDriver in 'uDASQLiteDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_Glyphs.res
new file mode 100644
index 0000000..9f2e224
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLiteDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.bdsproj
new file mode 100644
index 0000000..ebc5585
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.bdsproj	
@@ -0,0 +1,170 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{A7C1512C-6957-4F5F-B567-CF112814C32C}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DataAbstract_SQLitePassDriver_D10.dpk</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">1</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">1</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription">RemObjects Data Abstract - SQLitePass Driver</Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+      <Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+      <Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+      <Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.cfg
new file mode 100644
index 0000000..83deb76
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.cfg	
@@ -0,0 +1,44 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.dpk
new file mode 100644
index 0000000..accadb7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_SQLitePassDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLitePass Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D10,
+  vcldb,
+  RemObjects_Core_D10;
+
+contains
+  uDASQLitePassDriver in 'uDASQLitePassDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.dproj
new file mode 100644
index 0000000..d240289
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.dproj	
@@ -0,0 +1,100 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{8e6254e3-ed13-46bb-a357-86f60b62c415}</ProjectGuid>
+    <MainSource>DataAbstract_SQLitePassDriver_D10.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>D:\Program files.all\Winsys\borland\DataAbstract_SQLitePassDriver_D10.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_Define>DEBUG</DCC_Define>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Package_Options>
+      <Package_Options Name="PackageDescription">RemObjects Data Abstract - SQLitePass Driver</Package_Options>
+      <Package_Options Name="ImplicitBuild">False</Package_Options>
+      <Package_Options Name="DesigntimeOnly">False</Package_Options>
+      <Package_Options Name="RuntimeOnly">False</Package_Options>
+    </Package_Options>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">DataAbstract_SQLitePassDriver_D10.dpk</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_SQLitePassDriver_D10.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\DataAbstract_Core_D10.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\dbrtl.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\RemObjects_Core_D10.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\rtl.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\vcl.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\vcldb.dcp" />
+    <DCCReference Include="uDASQLitePassDriver.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.res
new file mode 100644
index 0000000..c71f94d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.dpk
new file mode 100644
index 0000000..038434e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_SQLitePassDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLitePass Driver'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DEBUG}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  DataAbstract_Core_D11,
+  RemObjects_Core_D11;
+
+contains
+  uDASQLitePassDriver in 'uDASQLitePassDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.dproj
new file mode 100644
index 0000000..af5a6da
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.dproj	
@@ -0,0 +1,62 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{8e6254e3-ed13-46bb-a357-86f60b62c415}</ProjectGuid>
+    <MainSource>DataAbstract_SQLitePassDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SQLitePassDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - SQLitePass Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1049</VersionInfo><VersionInfo Name="CodePage">1251</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">DataAbstract_SQLitePassDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_SQLitePassDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\dbrtl.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\rtl.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\vcl.dcp" />
+    <DCCReference Include="D:\Program files.all\Borland\RAD Studio\5.0\bin\vcldb.dcp" />
+    <DCCReference Include="uDASQLitePassDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.res
new file mode 100644
index 0000000..653aa54
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.dpk
new file mode 100644
index 0000000..1aa375a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_SQLitePassDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLitePass Driver'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DEBUG}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  DataAbstract_Core_D12,
+  RemObjects_Core_D12;
+
+contains
+  uDASQLitePassDriver in 'uDASQLitePassDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.dproj
new file mode 100644
index 0000000..90cf7bb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{8e6254e3-ed13-46bb-a357-86f60b62c415}</ProjectGuid>
+			<MainSource>DataAbstract_SQLitePassDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SQLitePassDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_SQLitePassDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_UnitSearchPath>..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+			<DCC_Description>RemObjects Data Abstract - SQLitePass Driver</DCC_Description>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<GenPackage>true</GenPackage>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_SQLitePassDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="vcldb.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="uDASQLitePassDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1049</VersionInfo>
+						<VersionInfo Name="CodePage">1251</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Excluded_Packages>
+						<Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+					<Source>
+						<Source Name="MainSource">DataAbstract_SQLitePassDriver_D12.dpk</Source>
+					</Source>
+					<Language>
+						<Language Name="RootDir">C:\Program Files\RemObjects Software\Data Abstract for Delphi\Source\Drivers\</Language>
+					</Language>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.res
new file mode 100644
index 0000000..653aa54
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.dpk
new file mode 100644
index 0000000..95d53c0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_SQLitePassDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLitePass Driver'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DEBUG}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  DataAbstract_Core_D14,
+  RemObjects_Core_D14;
+
+contains
+  uDASQLitePassDriver in 'uDASQLitePassDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.dproj
new file mode 100644
index 0000000..0d2928f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{8e6254e3-ed13-46bb-a357-86f60b62c415}</ProjectGuid>
+			<MainSource>DataAbstract_SQLitePassDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_SQLitePassDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_SQLitePassDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_UnitSearchPath>..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+			<DCC_Description>RemObjects Data Abstract - SQLitePass Driver</DCC_Description>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<GenPackage>true</GenPackage>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_SQLitePassDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="vcldb.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="uDASQLitePassDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1049</VersionInfo>
+						<VersionInfo Name="CodePage">1251</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Excluded_Packages>
+						<Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+					<Source>
+						<Source Name="MainSource">DataAbstract_SQLitePassDriver_D14.dpk</Source>
+					</Source>
+					<Language>
+						<Language Name="RootDir">C:\Program Files\RemObjects Software\Data Abstract for Delphi\Source\Drivers\</Language>
+					</Language>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.res
new file mode 100644
index 0000000..653aa54
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.cfg
new file mode 100644
index 0000000..7124fa1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.dof
new file mode 100644
index 0000000..9b84b3a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - SQLitePass Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.dpk
new file mode 100644
index 0000000..ba6495f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_SQLitePassDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLitePass Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  DataAbstract_Core_D6,
+  RemObjects_Core_D6;
+
+contains
+  uDASQLitePassDriver in 'uDASQLitePassDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.res
new file mode 100644
index 0000000..622f41e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.cfg
new file mode 100644
index 0000000..fa0d7af
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.cfg	
@@ -0,0 +1,44 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7"
+-Z
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.dof
new file mode 100644
index 0000000..6326525
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - SQLitePass Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\..\RemObjects SDK for Delphi\Dcu\D7
+Packages=vcl;rtl;indy;vcldb;dbrtl;dsnap;vclx;VclSmp;dbexpress;dbxcds;vclie;inet;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;RemObjects_Synapse_D7;Jcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;TntUnicodeVcl_R70;acat70;dsnapcon;adortl;ibxpress;IBO40FTS_D7;IBO40RPL_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;DataAbstract_IDE_D7;xmlrtl;dxBarD7;IndyCore70;IndySystem70;vclactnband;IndyProtocols70;bdertl;DataAbstract_DBISAMDriver_D7;DataAbstract_SQLiteDriver_D7;cxLibraryVCLD7;dxThemeD7;cxEditorsVCLD7;cxTreeListVCLD7;Hydra_Core_D7;dxComnD7;Hydra_DX_D7;Hydra_RO_D7;PascalScript_RO_D7;DataAbstract_Scripting_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.dpk
new file mode 100644
index 0000000..cc5b811
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_SQLitePassDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLitePass Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  DataAbstract_Core_D7,
+  RemObjects_Core_D7;
+
+contains
+  uDASQLitePassDriver in 'uDASQLitePassDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.res
new file mode 100644
index 0000000..622f41e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.bdsproj
new file mode 100644
index 0000000..1308e38
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.bdsproj	
@@ -0,0 +1,168 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{DF172256-09A3-40CF-BF86-02A5D09B9595}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DataAbstract_SQLitePassDriver_D9.dpk</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">1</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">1</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription">RemObjects Data Abstract - SQLitePass Driver</Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir">..\..\Dcu\D9</Directories>
+      <Directories Name="PackageDLLOutputDir">..\..\Dcu\D9</Directories>
+      <Directories Name="PackageDCPOutputDir">..\..\Dcu\D9</Directories>
+      <Directories Name="SearchPath">..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9</Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="RemoteHost"></Parameters>
+      <Parameters Name="RemotePath"></Parameters>
+      <Parameters Name="RemoteLauncher"></Parameters>
+      <Parameters Name="RemoteCWD"></Parameters>
+      <Parameters Name="RemoteDebug">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.cfg
new file mode 100644
index 0000000..8de9e14
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.cfg	
@@ -0,0 +1,44 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D9"
+-LE"..\..\Dcu\D9"
+-LN"..\..\Dcu\D9"
+-U"..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9"
+-O"..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9"
+-I"..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9"
+-R"..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9"
+-Z
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.dpk
new file mode 100644
index 0000000..3500ef6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_SQLitePassDriver_D9;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - SQLitePass Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  vcldb,
+  DataAbstract_Core_D9,
+  RemObjects_Core_D9;
+
+contains
+  uDASQLitePassDriver in 'uDASQLitePassDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.res
new file mode 100644
index 0000000..653aa54
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_D9.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Glyphs.RES b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Glyphs.RES
new file mode 100644
index 0000000..802b13a
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Glyphs.RES differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Glyphs.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Glyphs.lrs
new file mode 100644
index 0000000..d4e787d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Glyphs.lrs	
@@ -0,0 +1,80 @@
+LazarusResources.Add('TDASQLITEPASSDRIVER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#129#30#0'w'#23#0'w'#23#0#255#0#255#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255#129#30
+  +#0#129#30#0#129#30#0#252#154'*'#184':'#0#184':'#0#128'*'#3#255#0#255#128#0#0
+  +#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#128#0#0'@'#0#0#255#0
+  +#255#130#24#0#129#30#0#248'w'#0#255#129#0#255#149#19#255#170'4'#255#189'Z'
+  +#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255
+  +#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#5'f'#149#130#24#0'y'#16#0#255#158' '#252'w'#0#143#30#0#213'g'#10#255#171
+  +'8'#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#130#24#0#130#24#0#221#152'Z'#255#191']'#186'M'#5#255#0#255'v'#12#0#242#134
+  +#20#252#160'4'#138#31#0#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#0'R'#143#0'6o'#9
+  +'o'#164'W9'#23#171'3'#0#233#171'n'#255#215#146#193'e%'#255#0#255'v'#12#0#242
+  +'w'#1#255#150#25#138#31#0#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255
+  +#255#255#255#255#255#255#255#128#0#0#0'R'#143#0'R'#143#0'R'#143#6#140#194'I'
+  +#221#255#0'v'#186#0'v'#186'YVE'#255#218#154#233#170'j'#145'%'#0#193'M'#0#255
+  +'~'#0#138#31#0#255#0#255#128#0#0#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#0'6p'#0'j'#161#2#199#255
+  +#9#202#255''''#212#255'N'#222#255'y'#233#255#0'v'#186#255#218#154#255#218#154
+  +#255#211#137#255#177'C'#255#138#7#138#31#0#255#0#255#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#0'9u'#4'v'#170'('#212#255#0
+  +#158#218#0'N'#138#22#163#212'R'#224#255#0'v'#186#196'f#'#203'g'#25#255#218
+  +#154#184':'#0#184':'#0#184':'#0#255#0#255#255#0#255#2't'#169'['#213#226'i'
+  +#246#254'E'#230#254'%'#215#254#13#199#254#26#204#254#0';v'#11#128#176#156#233
+  +#254'h'#230#255'#'#165#212#0'A~'#0'F'#129'0'#215#255'M'#215#254'%_p'#184':'#0
+  +#184':'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2't'#169'['#213
+  +#226#127#247#254'z'#238#254'}'#233#254#135#231#255#163#237#255#0';v'#3'{'#176
+  +#165#235#254#167#243#255'^'#193#226#0'L'#138#0'N'#138#19#204#255'-'#206#252
+  +#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#2't'#169#160#233#239#170#238#246'p'#207#229'?'#177#211#29#149#192#17#131
+  +#177#15'{'#170#0'@z'#24#150#196#182#246#255'~'#212#238#3'g'#157#13#182#235#1
+  +#198#255#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3'p'#164'T'#177#202'('#156#188'&'#171#207#27#182#224
+  +#12#183#237#24#198#247':'#213#254#0'A~'#27#153#196#181#244#255#182#246#255
+  +#154#240#255'N'#222#255#13#202#255#13'b'#145#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#4'l'#158'?'#180#203'f'#242
+  +#251'E'#230#254'%'#215#254#13#199#254#26#204#254';'#215#255'`'#225#255#0'Ay'
+  +#0'E~;'#175#213#182#246#255#13'b'#145#13'b'#145#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2's'#167'['#213
+  +#226'i'#246#254'E'#230#254'%'#215#254#13#199#254#26#204#254';'#215#255'`'#225
+  +#255'}'#229#252'Q'#199#233#0'A{'#0'E{'#1'z'#180#5'f'#149#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#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#128#128#128#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#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#0#0#0#128#128#128#255#255#255#128#0#0#128#0
+  +#0#128#0#0#192#220#192#255#255#255#192#220#192#128#0#0#192#220#192#128#0#0
+  +#255#255#255#128#0#0#128#0#0#192#220#192#128#0#0#255#255#255#128#0#0#255#255
+  +#255#128#0#0#128#0#0#128#0#0#255#255#255#0#0#0#128#128#128#255#255#255#255
+  +#255#255#255#255#255#192#220#192#128#0#0#255#255#255#128#0#0#255#255#255#128
+  +#0#0#192#220#192#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255
+  +#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#255#255#255#0#0#0
+  +#128#128#128#255#255#255#192#220#192#128#0#0#128#0#0#192#220#192#255#255#255
+  +#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#255
+  +#255#255#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#128#0#0#192#220#192
+  +#255#255#255#0#0#0#128#128#128#255#255#255#128#0#0#192#220#192#255#255#255
+  ,#255#255#255#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0#255#255#255#255#255#255#255#255#255#255#255#255#128#0#0#255#255#255
+  +#128#0#0#255#255#255#255#255#255#255#255#255#0#0#0#128#128#128#255#255#255
+  +#192#220#192#128#0#0#128#0#0#128#0#0#255#255#255#192#220#192#128#0#0#128#0#0
+  +#192#220#192#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#192#220#192
+  +#128#0#0#128#0#0#192#220#192#128#0#0#128#0#0#255#255#255#0#0#0#128#128#128
+  +#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#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#0#0#0#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Lazarus_Unix.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Lazarus_Unix.lpk
new file mode 100644
index 0000000..5c89f27
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Lazarus_Unix.lpk	
@@ -0,0 +1,58 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_SQLitePassDriver_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\units\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="uDASQLitePassDriver.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDASQLitePassDriver"/>
+      </Item1>
+      <Item2>
+        <Filename Value="DataAbstract_SQLitePassDriver_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="5">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="DataAbstract_Core_Lazarus_Unix"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="Laz_SqlitePassDbo_Runtime"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item5>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Lazarus_Windows.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Lazarus_Windows.lpk
new file mode 100644
index 0000000..a8fa43b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_SQLitePassDriver_Lazarus_Windows.lpk	
@@ -0,0 +1,57 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_SQLitePassDriver_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="uDASQLitePassDriver.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDASQLitePassDriver"/>
+      </Item1>
+      <Item2>
+        <Filename Value="DataAbstract_SQLitePassDriver_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="5">
+      <Item1>
+        <PackageName Value="DataAbstract_Core_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="LCL"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="Laz_SqlitePassDbo_Runtime"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item5>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.bdsproj
new file mode 100644
index 0000000..5308f1d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.bdsproj	
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{D5CF0E18-5430-44E4-8B68-4D54B5F3535D}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_UniDACDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - Devart UniDAC Driver</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.dpk
new file mode 100644
index 0000000..73d5c8d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_UniDACDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart UniDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac100,
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10,
+  UniDAC100;
+
+contains
+  uDAUniDACDriver in 'uDAUniDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.dproj
new file mode 100644
index 0000000..d438d9b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.dproj	
@@ -0,0 +1,117 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+    <MainSource>DataAbstract_UniDACDriver_D10.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D10\DataAbstract_UniDACDriver_D10.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D10</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D10</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D10</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D10</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D10</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D10</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D10</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D10</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D10</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D10</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</DCC_IncludePath>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Package_Options>
+      <Package_Options Name="PackageDescription">RemObjects Data Abstract - Devart UniDAC Driver</Package_Options>
+      <Package_Options Name="ImplicitBuild">False</Package_Options>
+      <Package_Options Name="DesigntimeOnly">False</Package_Options>
+      <Package_Options Name="RuntimeOnly">False</Package_Options>
+    </Package_Options>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DataAbstract_UniDACDriver_D10.dpk</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_UniDACDriver_D10.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\bdertl.dcp" />
+    <DCCReference Include="..\dac100.dcp" />
+    <DCCReference Include="..\DataAbstract_Core_D10.dcp" />
+    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="..\UniDAC100.dcp" />
+    <DCCReference Include="..\RemObjects_Core_D10.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="uDAUniDACDriver.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.dpk
new file mode 100644
index 0000000..3eef34d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_UniDACDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart UniDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac105,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  UniDAC105;
+
+contains
+  uDAUniDACDriver in 'uDAUniDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.dproj
new file mode 100644
index 0000000..83719d2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.dproj	
@@ -0,0 +1,75 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+    <MainSource>DataAbstract_UniDACDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_UniDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - Devart UniDAC Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_UniDACDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_UniDACDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="bdertl.dcp" />
+    <DCCReference Include="dac105.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uDAUniDACDriver.pas" />
+    <DCCReference Include="UniDAC105.dcp" />
+    <DCCReference Include="vcl.dcp" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.dpk
new file mode 100644
index 0000000..4e208c2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_UniDACDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart UniDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac120,
+  DataAbstract_Core_D12,
+  UniDAC120;
+
+contains
+  uDAUniDACDriver in 'uDAUniDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.dproj
new file mode 100644
index 0000000..cd51cf6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.dproj	
@@ -0,0 +1,99 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+			<MainSource>DataAbstract_UniDACDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_UniDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_UniDACDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - Devart UniDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_UniDACDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac120.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="UniDAC120.dcp"/>
+			<DCCReference Include="uDAUniDACDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_UniDACDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.dpk
new file mode 100644
index 0000000..4aa2798
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_UniDACDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart UniDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dac140,
+  DataAbstract_Core_D14,
+  UniDAC140;
+
+contains
+  uDAUniDACDriver in 'uDAUniDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.dproj
new file mode 100644
index 0000000..887bbd0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.dproj	
@@ -0,0 +1,101 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{4ed86b4c-3296-4ab5-b711-e264774d76b0}</ProjectGuid>
+			<MainSource>DataAbstract_UniDACDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_UniDACDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_UniDACDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - Devart UniDAC Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_UniDACDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="bdertl.dcp"/>
+			<DCCReference Include="dac12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="UniDAC12.dcp"/>
+			<DCCReference Include="uDAUniDACDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_UniDACDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.cfg
new file mode 100644
index 0000000..7124fa1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.dof
new file mode 100644
index 0000000..782fb42
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Devart UniDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\..\RemObjects SDK for Delphi\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.dpk
new file mode 100644
index 0000000..a8628c1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.dpk	
@@ -0,0 +1,40 @@
+package DataAbstract_UniDACDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart UniDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  dac60,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6,
+  UniDAC60;
+
+contains
+  uDAUniDACDriver in 'uDAUniDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.cfg
new file mode 100644
index 0000000..a290ad9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.dof
new file mode 100644
index 0000000..c455597
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Devart UniDAC Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.dpk
new file mode 100644
index 0000000..e2edfd7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_UniDACDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart UniDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac70,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7,
+  UniDAC70;
+
+contains
+  uDAUniDACDriver in 'uDAUniDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.bdsproj
new file mode 100644
index 0000000..e608c59
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.bdsproj	
@@ -0,0 +1,172 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{D5CF0E18-5430-44E4-8B68-4D54B5F3535D}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DataAbstract_UniDACDriver_D9.dpk</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">False</Compiler>
+      <Compiler Name="SymbolLibrary">False</Compiler>
+      <Compiler Name="SymbolPlatform">False</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">False</Compiler>
+      <Compiler Name="UnitPlatform">False</Compiler>
+      <Compiler Name="UnitDeprecated">False</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription">RemObjects Data Abstract - Devart UniDAC Driver</Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D9</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D9;..\..\..\RemObjects SDK for Delphi\Dcu\D9</Directories>
+			<Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="RemoteHost"></Parameters>
+      <Parameters Name="RemotePath"></Parameters>
+      <Parameters Name="RemoteLauncher"></Parameters>
+      <Parameters Name="RemoteCWD"></Parameters>
+      <Parameters Name="RemoteDebug">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.cfg
new file mode 100644
index 0000000..4a508dd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D9"
+-LE"..\..\Dcu\D9"
+-LN"..\..\Dcu\D9"
+-U"..\..\Dcu\D9"
+-O"..\..\Dcu\D9"
+-I"..\..\Dcu\D9"
+-R"..\..\Dcu\D9"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.dpk
new file mode 100644
index 0000000..09b480e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.dpk	
@@ -0,0 +1,41 @@
+package DataAbstract_UniDACDriver_D9;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Devart UniDAC Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  bdertl,
+  dac90,
+  RemObjects_Core_D9,
+  DataAbstract_Core_D9,
+  UniDAC90;
+
+contains
+  uDAUniDACDriver in 'uDAUniDACDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.res
new file mode 100644
index 0000000..c2869c8
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_D9.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Glyphs.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Glyphs.lrs
new file mode 100644
index 0000000..5a19295
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Glyphs.lrs	
@@ -0,0 +1,80 @@
+LazarusResources.Add('TDAUNIDACDRIVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0#255
+  +#255#0#255#255#0#255#255#0#255#129#30#0'w'#23#0'w'#23#0#255#0#255#255#0#255
+  +#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255#129#30#0
+  +#129#30#0#129#30#0#252#154'*'#184':'#0#184':'#0#128'*'#3#255#0#255#128#0#0
+  +#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#128#0#0'@'#0#0#255#0
+  +#255#130#24#0#129#30#0#248'w'#0#255#129#0#255#149#19#255#170'4'#255#189'Z'
+  +#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255
+  +#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#5'f'#149#130#24#0'y'#16#0#255#158' '#252'w'#0#143#30#0#213'g'#10#255#171
+  +'8'#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#130#24#0#130#24#0#221#152'Z'#255#191']'#186'M'#5#255#0#255'v'#12#0#242#134
+  +#20#252#160'4'#138#31#0#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#0'R'#143#0'6o'#9
+  +'o'#164'W9'#23#171'3'#0#233#171'n'#255#215#146#193'e%'#255#0#255'v'#12#0#242
+  +'w'#1#255#150#25#138#31#0#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255
+  +#255#255#255#255#255#255#255#128#0#0#0'R'#143#0'R'#143#0'R'#143#6#140#194'I'
+  +#221#255#0'v'#186#0'v'#186'YVE'#255#218#154#233#170'j'#145'%'#0#193'M'#0#255
+  +'~'#0#138#31#0#255#0#255#128#0#0#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#0'6p'#0'j'#161#2#199#255
+  +#9#202#255''''#212#255'N'#222#255'y'#233#255#0'v'#186#255#218#154#255#218#154
+  +#255#211#137#255#177'C'#255#138#7#138#31#0#255#0#255#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#0'9u'#4'v'#170'('#212#255#0
+  +#158#218#0'N'#138#22#163#212'R'#224#255#0'v'#186#196'f#'#203'g'#25#255#218
+  +#154#184':'#0#184':'#0#184':'#0#255#0#255#255#0#255#2't'#169'['#213#226'i'
+  +#246#254'E'#230#254'%'#215#254#13#199#254#26#204#254#0';v'#11#128#176#156#233
+  +#254'h'#230#255'#'#165#212#0'A~'#0'F'#129'0'#215#255'M'#215#254'%_p'#184':'#0
+  +#184':'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2't'#169'['#213
+  +#226#127#247#254'z'#238#254'}'#233#254#135#231#255#163#237#255#0';v'#3'{'#176
+  +#165#235#254#167#243#255'^'#193#226#0'L'#138#0'N'#138#19#204#255'-'#206#252
+  +#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#2't'#169#160#233#239#170#238#246'p'#207#229'?'#177#211#29#149#192#17#131
+  +#177#15'{'#170#0'@z'#24#150#196#182#246#255'~'#212#238#3'g'#157#13#182#235#1
+  +#198#255#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3'p'#164'T'#177#202'('#156#188'&'#171#207#27#182#224
+  +#12#183#237#24#198#247':'#213#254#0'A~'#27#153#196#181#244#255#182#246#255
+  +#154#240#255'N'#222#255#13#202#255#13'b'#145#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#4'l'#158'?'#180#203'f'#242
+  +#251'E'#230#254'%'#215#254#13#199#254#26#204#254';'#215#255'`'#225#255#0'Ay'
+  +#0'E~;'#175#213#182#246#255#13'b'#145#13'b'#145#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2's'#167'['#213
+  +#226'i'#246#254'E'#230#254'%'#215#254#13#199#254#26#204#254';'#215#255'`'#225
+  +#255'}'#229#252'Q'#199#233#0'A{'#0'E{'#1'z'#180#5'f'#149#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#128
+  +#128#128#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#255#0#255#128#128
+  +#128#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#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#0#0#0#128#128#128#255#255#255#128#0
+  +#0#128#0#0#128#0#0#192#220#192#128#0#0#192#220#192#128#0#0#192#220#192#128#0
+  +#0#192#220#192#128#0#0#128#0#0#192#220#192#255#255#255#128#0#0#255#255#255
+  +#128#0#0#255#255#255#192#220#192#128#0#0#255#255#255#0#0#0#128#128#128#255
+  +#255#255#128#0#0#192#220#192#128#0#0#192#220#192#128#0#0#192#220#192#128#0#0
+  +#192#220#192#128#0#0#192#220#192#128#0#0#192#220#192#128#0#0#255#255#255#128
+  +#0#0#255#255#255#128#0#0#255#255#255#128#0#0#192#220#192#255#255#255#0#0#0
+  +#128#128#128#255#255#255#128#0#0#192#220#192#128#0#0#192#220#192#128#0#0#192
+  +#220#192#128#0#0#192#220#192#128#0#0#192#220#192#128#0#0#255#255#255#128#0#0
+  +#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0#255#255#255#255#255
+  +#255#0#0#0#128#128#128#255#255#255#128#0#0#192#220#192#128#0#0#192#220#192
+  ,#128#0#0#128#0#0#128#0#0#255#255#255#255#255#255#255#255#255#128#0#0#192#220
+  +#192#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#255#255#255#128#0#0#192
+  +#220#192#255#255#255#0#0#0#128#128#128#255#255#255#128#0#0#255#255#255#128#0
+  +#0#255#255#255#255#255#255#255#255#255#254#254#254#255#255#255#128#0#0#255
+  +#255#255#128#0#0#128#0#0#192#220#192#255#255#255#192#220#192#128#0#0#192#220
+  +#192#255#255#255#192#220#192#128#0#0#255#255#255#0#0#0#128#128#128#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#254#254#254#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#0#0#0#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Lazarus_Unux.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Lazarus_Unux.lpk
new file mode 100644
index 0000000..3aebe6a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Lazarus_Unux.lpk	
@@ -0,0 +1,61 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="DataAbstract_UniDACDriver_Lazarus_Unux"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="../../Dcu/Lazarus/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="uDAUniDACDriver.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAUniDACDriver"/>
+      </Item1>
+      <Item2>
+        <Filename Value="DataAbstract_UniDACDriver_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="8">
+      <Item1>
+        <PackageName Value="DataAbstract_Core_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="liteprovider10"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="pgprovider10"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="oraprovider10"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="myprovider10"/>
+      </Item5>
+      <Item6>
+        <PackageName Value="ibprovider10"/>
+      </Item6>
+      <Item7>
+        <PackageName Value="dac10"/>
+      </Item7>
+      <Item8>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item8>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Lazarus_Windows.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Lazarus_Windows.lpk
new file mode 100644
index 0000000..48e702e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UniDACDriver_Lazarus_Windows.lpk	
@@ -0,0 +1,81 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_UniDACDriver_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="uDAUniDACDriver.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAUniDACDriver"/>
+      </Item1>
+      <Item2>
+        <Filename Value="DataAbstract_UniDACDriver_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="14">
+      <Item1>
+        <PackageName Value="liteprovider10"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="msprovider10"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="pgprovider10"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="oraprovider10"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="myprovider10"/>
+      </Item5>
+      <Item6>
+        <PackageName Value="ibprovider10"/>
+      </Item6>
+      <Item7>
+        <PackageName Value="db2provider10"/>
+      </Item7>
+      <Item8>
+        <PackageName Value="aseprovider10"/>
+      </Item8>
+      <Item9>
+        <PackageName Value="adsprovider10"/>
+      </Item9>
+      <Item10>
+        <PackageName Value="odbcprovider10"/>
+      </Item10>
+      <Item11>
+        <PackageName Value="accessprovider10"/>
+      </Item11>
+      <Item12>
+        <PackageName Value="dac10"/>
+      </Item12>
+      <Item13>
+        <PackageName Value="DataAbstract_Core_Lazarus_Windows"/>
+      </Item13>
+      <Item14>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item14>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UnidacDriver_Glyphs.RES b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UnidacDriver_Glyphs.RES
new file mode 100644
index 0000000..440c85c
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_UnidacDriver_Glyphs.RES differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.bdsproj
new file mode 100644
index 0000000..a1f034b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.bdsproj	
@@ -0,0 +1,179 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{D5CF0E18-5430-44E4-8B68-4D54B5F3535D}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">DataAbstract_ZeosDriver_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">1</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Data Abstract - Zeos Driver</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.cfg
new file mode 100644
index 0000000..207b254
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.cfg	
@@ -0,0 +1,49 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-O"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-I"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-R"..\..\Dcu\D10;..\..\..\RemObjects SDK for Delphi\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.dpk
new file mode 100644
index 0000000..fa6c962
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ZeosDriver_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Zeos Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  ZComponentDesign,  
+  RemObjects_Core_D10,
+  DataAbstract_Core_D10;
+
+contains
+  uDAZeosDriver in 'uDAZeosDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.dpk
new file mode 100644
index 0000000..8483957
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ZeosDriver_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Zeos Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  ZComponentDesign,  
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11;
+
+contains
+  uDAZeosDriver in 'uDAZeosDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.dproj
new file mode 100644
index 0000000..5711217
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.dproj	
@@ -0,0 +1,73 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{a14f79c2-acbc-46d8-a339-5d13e7ddad81}</ProjectGuid>
+    <MainSource>DataAbstract_ZeosDriver_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ZeosDriver_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_PentiumSafeDivide>True</DCC_PentiumSafeDivide>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Dcu\D11;..\..\..\RemObjects SDK for Delphi\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - Zeos Driver</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_ZeosDriver_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_ZeosDriver_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\vcl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataSnap\ZComponentDesign.dcp" />
+    <DCCReference Include="uDAZeosDriver.pas" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.dpk
new file mode 100644
index 0000000..7a4343f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.dpk	
@@ -0,0 +1,38 @@
+package DataAbstract_ZeosDriver_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Zeos Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  ZComponentDesign,
+  DataAbstract_Core_D12;
+
+contains
+  uDAZeosDriver in 'uDAZeosDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.dproj
new file mode 100644
index 0000000..22b6b80
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.dproj	
@@ -0,0 +1,97 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{a14f79c2-acbc-46d8-a339-5d13e7ddad81}</ProjectGuid>
+			<MainSource>DataAbstract_ZeosDriver_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ZeosDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_ZeosDriver_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - Zeos Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_ZeosDriver_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="ZComponentDesign.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="uDAZeosDriver.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_ZeosDriver_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.dpk
new file mode 100644
index 0000000..b93cc3e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.dpk	
@@ -0,0 +1,38 @@
+package DataAbstract_ZeosDriver_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Zeos Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  ZComponentDesign,
+  DataAbstract_Core_D14;
+
+contains
+  uDAZeosDriver in 'uDAZeosDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.dproj
new file mode 100644
index 0000000..9ae3ad4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.dproj	
@@ -0,0 +1,100 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{a14f79c2-acbc-46d8-a339-5d13e7ddad81}</ProjectGuid>
+			<MainSource>DataAbstract_ZeosDriver_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_ZeosDriver_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_ZeosDriver_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_PentiumSafeDivide>true</DCC_PentiumSafeDivide>
+			<DCC_Description>RemObjects Data Abstract - Zeos Driver</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_ZeosDriver_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="ZComponentDesign.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="uDAZeosDriver.pas"/>
+			<DCCReference Include="DataAbstract_Core_D13.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D1.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects Data Abstract</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_ZeosDriver_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.res
new file mode 100644
index 0000000..6ef0ba1
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.cfg
new file mode 100644
index 0000000..0aa2cb6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-O"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-I"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-R"..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.dof
new file mode 100644
index 0000000..1972ae0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - Zeos Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.dpk
new file mode 100644
index 0000000..95dba7c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ZeosDriver_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Zeos Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  ZComponentDesign,
+  RemObjects_Core_D6,
+  DataAbstract_Core_D6;
+
+contains
+  uDAZeosDriver in 'uDAZeosDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.cfg
new file mode 100644
index 0000000..a290ad9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U+
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.dof
new file mode 100644
index 0000000..cb208b6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=1
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - Zeos Driver
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software, Inc.
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=RemObjects Software, Inc.
+LegalTrademarks=RemObjects Software, Inc.
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=http://www.remobjects.com
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.dpk
new file mode 100644
index 0000000..9cac616
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.dpk	
@@ -0,0 +1,39 @@
+package DataAbstract_ZeosDriver_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE ON}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - Zeos Driver'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  RemObjects_Core_D7,
+  DataAbstract_Core_D7,
+  ZComponentDesign;
+
+contains
+  uDAZeosDriver in 'uDAZeosDriver.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.res
new file mode 100644
index 0000000..b26b84e
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Glyphs.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Glyphs.lrs
new file mode 100644
index 0000000..a7f714d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Glyphs.lrs	
@@ -0,0 +1,80 @@
+LazarusResources.Add('TDAZEOSDRIVER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@'#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#255#0
+  +#255#255#0#255#255#0#255#255#0#255#129#30#0'w'#23#0'w'#23#0#255#0#255#255#0
+  +#255#255#0#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0'@'#0#0#255#0#255#255#0#255#129#30
+  +#0#129#30#0#129#30#0#252#154'*'#184':'#0#184':'#0#128'*'#3#255#0#255#128#0#0
+  +#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#128#0#0'@'#0#0#255#0
+  +#255#130#24#0#129#30#0#248'w'#0#255#129#0#255#149#19#255#170'4'#255#189'Z'
+  +#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255#255
+  +#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#5'f'#149#130#24#0'y'#16#0#255#158' '#252'w'#0#143#30#0#213'g'#10#255#171
+  +'8'#138#31#0#255#0#255#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0'@'#0
+  +#0#130#24#0#130#24#0#221#152'Z'#255#191']'#186'M'#5#255#0#255'v'#12#0#242#134
+  +#20#252#160'4'#138#31#0#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255
+  +#128#0#0#255#255#255#128#0#0#255#255#255#255#255#255#128#0#0#0'R'#143#0'6o'#9
+  +'o'#164'W9'#23#171'3'#0#233#171'n'#255#215#146#193'e%'#255#0#255'v'#12#0#242
+  +'w'#1#255#150#25#138#31#0#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#255#255
+  +#255#255#255#255#255#255#255#128#0#0#0'R'#143#0'R'#143#0'R'#143#6#140#194'I'
+  +#221#255#0'v'#186#0'v'#186'YVE'#255#218#154#233#170'j'#145'%'#0#193'M'#0#255
+  +'~'#0#138#31#0#255#0#255#128#0#0#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#0'6p'#0'j'#161#2#199#255
+  +#9#202#255''''#212#255'N'#222#255'y'#233#255#0'v'#186#255#218#154#255#218#154
+  +#255#211#137#255#177'C'#255#138#7#138#31#0#255#0#255#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#0'9u'#4'v'#170'('#212#255#0
+  +#158#218#0'N'#138#22#163#212'R'#224#255#0'v'#186#196'f#'#203'g'#25#255#218
+  +#154#184':'#0#184':'#0#184':'#0#255#0#255#255#0#255#2't'#169'['#213#226'i'
+  +#246#254'E'#230#254'%'#215#254#13#199#254#26#204#254#0';v'#11#128#176#156#233
+  +#254'h'#230#255'#'#165#212#0'A~'#0'F'#129'0'#215#255'M'#215#254'%_p'#184':'#0
+  +#184':'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2't'#169'['#213
+  +#226#127#247#254'z'#238#254'}'#233#254#135#231#255#163#237#255#0';v'#3'{'#176
+  +#165#235#254#167#243#255'^'#193#226#0'L'#138#0'N'#138#19#204#255'-'#206#252
+  +#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#2't'#169#160#233#239#170#238#246'p'#207#229'?'#177#211#29#149#192#17#131
+  +#177#15'{'#170#0'@z'#24#150#196#182#246#255'~'#212#238#3'g'#157#13#182#235#1
+  +#198#255#13'b'#145#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3'p'#164'T'#177#202'('#156#188'&'#171#207#27#182#224
+  +#12#183#237#24#198#247':'#213#254#0'A~'#27#153#196#181#244#255#182#246#255
+  +#154#240#255'N'#222#255#13#202#255#13'b'#145#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#4'l'#158'?'#180#203'f'#242
+  +#251'E'#230#254'%'#215#254#13#199#254#26#204#254';'#215#255'`'#225#255#0'Ay'
+  +#0'E~;'#175#213#182#246#255#13'b'#145#13'b'#145#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2's'#167'['#213
+  +#226'i'#246#254'E'#230#254'%'#215#254#13#199#254#26#204#254';'#215#255'`'#225
+  +#255'}'#229#252'Q'#199#233#0'A{'#0'E{'#1'z'#180#5'f'#149#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#128#128#128#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#128#128#128#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#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#0#0#0#128#128#128#255#255#255#128#0#0#128#0
+  +#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0#128#0#0#128#0#0#128#0#0#255
+  +#255#255#192#220#192#128#0#0#128#0#0#192#220#192#255#255#255#128#0#0#128#0#0
+  +#128#0#0#192#220#192#255#255#255#0#0#0#128#128#128#255#255#255#192#220#192
+  +#128#0#0#192#220#192#255#255#255#255#255#255#255#255#255#128#0#0#192#220#192
+  +#255#255#255#255#255#255#255#255#255#128#0#0#192#220#192#192#220#192#128#0#0
+  +#255#255#255#255#255#255#255#255#255#192#220#192#128#0#0#255#255#255#0#0#0
+  +#128#128#128#255#255#255#255#255#255#192#220#192#128#0#0#192#220#192#255#255
+  +#255#255#255#255#128#0#0#128#0#0#128#0#0#192#220#192#255#255#255#128#0#0#255
+  +#255#255#255#255#255#128#0#0#255#255#255#192#220#192#128#0#0#128#0#0#192#220
+  +#192#255#255#255#0#0#0#128#128#128#255#255#255#255#255#255#255#255#255#192
+  ,#220#192#128#0#0#192#220#192#255#255#255#128#0#0#192#220#192#255#255#255#255
+  +#255#255#255#255#255#128#0#0#192#220#192#192#220#192#128#0#0#255#255#255#128
+  +#0#0#192#220#192#255#255#255#255#255#255#255#255#255#0#0#0#128#128#128#255
+  +#255#255#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#255#255#255#128#0#0#128#0#0
+  +#128#0#0#128#0#0#255#255#255#192#220#192#128#0#0#128#0#0#192#220#192#255#255
+  +#255#192#220#192#128#0#0#128#0#0#128#0#0#255#255#255#0#0#0#128#128#128#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#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#0#0#0#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
+  +#128#128#128#128#128#128#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Glyphs.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Glyphs.res
new file mode 100644
index 0000000..92bfe89
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Mac.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Mac.lpk
new file mode 100644
index 0000000..091b32e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Mac.lpk	
@@ -0,0 +1,50 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="DataAbstract_ZeosDriver_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="../units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Data Abstract - Zeos Driver"/>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="DataAbstract_ZeosDriver_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uDAZeosDriver.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAZeosDriver"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="4">
+      <Item1>
+        <PackageName Value="DataAbstract_Core_Lazarus_Mac"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="zcomponent"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item4>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)/"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Unix.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Unix.lpk
new file mode 100644
index 0000000..ca75cdb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Unix.lpk	
@@ -0,0 +1,56 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_ZeosDriver_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\units\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Data Abstract - Zeos Driver"/>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="DataAbstract_ZeosDriver_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uDAZeosDriver.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAZeosDriver"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="4">
+      <Item1>
+        <PackageName Value="DataAbstract_Core_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="zcomponent"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item4>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)\"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Windows.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Windows.lpk
new file mode 100644
index 0000000..4a5c1ef
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/DataAbstract_ZeosDriver_Lazarus_Windows.lpk	
@@ -0,0 +1,57 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_ZeosDriver_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="DataAbstract_ZeosDriver_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uDAZeosDriver.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAZeosDriver"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="5">
+      <Item1>
+        <PackageName Value="DataAbstract_Core_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="zcomponent"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="LCL"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item5>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)\"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/asgsqlite3.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/asgsqlite3.pas
new file mode 100644
index 0000000..edea777
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/asgsqlite3.pas	
@@ -0,0 +1,5562 @@
+// To enable debugging remove the dot. Do NOT forget to re-insert before
+// deploying to production since this feature will slow down this component
+// significantly
+{.$DEFINE DEBUG_ENABLED } // Enables Debug information
+ {.$DEFINE DEBUG_VERY_LOUD}
+ {.$DEFINE DEBUG_LOUD}
+
+// Disable this for ignoring IProvider interface (for D4)
+{$DEFINE IPROVIDER}
+
+// enable this if you want to link the SQLite library statically. (No need for dll)
+{.$DEFINE SQLite_Static}
+
+{$I asqlite_def.inc}
+
+unit ASGSQLite3;
+{$HINTS OFF} 
+{$WARNINGS OFF} 
+{*_* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+
+Author:       Albert Drent
+Description:  SQLite 3 DataSet class (encapsulates the Delphi DataSet Class)
+              based upon the asqlite version for sqlite 2
+Target:       Delphi 4, 5, 6 and 7; Delphi 2005; Borland C++ 5 and 6
+Creation:     November 2003
+Version:      2006.03.D Stable
+EMail:        a.drent@aducom.com (www.aducom.com/sqlite, sqlite.aducom.com)
+Support:      support@aducom.com (supportforum on www.aducom.com)
+              Please post any questions, remarks etc. to the support forum. We
+              useually answer questions within days.
+              Unsollicited mail to support will be intercepted by our spamfilters
+              and probabely never be heard of.
+Legal issues: Copyright (C) 2003..2006 by Aducom Software
+
+              Aducom Software
+              Eckhartstr 61
+              9746 BN  Groningen
+              Netherlands
+
+              Open Source licence (BSD: http://www.opensource.org/licenses/bsd-license.php)
+
+              Copyright (c) 2006, Aducom Software
+              All rights reserved.
+
+              Redistribution and use in source and binary forms, with or without modification,
+              are permitted provided that the following conditions are met:
+
+              Redistributions of source code must retain the above copyright notice,
+              this list of conditions and the following disclaimer.
+              Redistributions in binary form must reproduce the above copyright notice,
+              this list of conditions and the following disclaimer in the documentation
+              and/or other materials provided with the distribution.
+              Neither the name of Aducom Software nor the names of its contributors
+              may be used to endorse or promote products derived from this software
+              without specific prior written permission.
+              THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+              "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+              TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+              PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+              COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+              INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+              DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+              GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+              HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+              STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
+              IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+              POSSIBILITY OF SUCH DAMAGE.
+
+
+Acknowledgement
+              These components were written for our own needs. Since SQLite is
+              a freeware component we like to donate this one to the community
+              too. Parts of the code is adapted from several sources, but mainly
+              from a sample and the vcl sources of Borland itself. And, of
+              course, we did a lot and still are...
+To Do
+              A lot...
+              We are very busy, but will develop on our needs. If anyone can
+              contribute, please feel welcome. Alter the source with lots of comment
+              and mail it to me. If it works right I will add it to the official
+              source and add your credit here below. Before you start, please
+              put a request on the forum. It would be a shame and a waste of your
+              time if you develop something which already is... and I need to set
+              the spamfilter right to let you pass through.
+History:
+              Nov 8, 2003 First alpha release 1.0.A Albert Drent (c) 2003 Aducom Software
+              Nov 11, Release alpha 1.0.B Albert Drent (c) 2003 Aducom Software
+                        - added 'param' support
+                        - fixed null pointer assignment
+                        - added support for partial select (limit / offset)
+              Nov 12, Release alpha 1.0.C Albert Drent (c) 2003 Aducom Software
+                        - fixed bug in update
+                        - support for events
+                        - added 'RowsAffected'
+              Nov 16, Release beta 1.0.D Albert Drent (c) 2003 Aducom Software
+                        - fixed 0 resultlist after any ExecSQL usage
+                        - added Transaction support
+              Nov 24, Release beta 1.0.E Albert Drent (c) 2003 Aducom Software
+                        - StartTransaction will open database if it is'nt already open
+                        - Changed resultset method
+                        - Added property editor for table names
+                        - Added GetTableNames function to TASQLite3Database
+                        - Added GetIndexNames function to TASQLite3Database
+                        - Added Open and Close function to TASQLite3Database
+                        - Added AutoCommit property to TDataSet descendants
+                        - Split of source in designtime and runtime package
+              Dec 15, Release beta 1.0.F Albert Drent (c) 2003 Aducom Software
+                        - Optimized code for speed
+                        - Added support for quering databases
+                        - Added property for base directory (default dir) TDatabase
+                        - Preparations for mastersets and TUpdateSQL (not functional yet)
+                        - Solved GPF on stringfields
+                        - Solved hangup of Delphi when developing
+                        - Solved invalid pointer operation bug while developing
+              Jan 11 2004, Release beta 1.0.G Albert Drent (c) 2003, 2004 Aducom Software
+                        - Fixed GetTableNames Bug as reported on forum
+                        - Solved some minor bugs, several code optimizations
+                        - Added 'getfieldnames' procedure to asqlitedb
+                        - Added component asqlitepragma for adjustments to sqlite behaviour
+                        - Added several property editors to smooth things up
+                        - Added component asqliteupdatesql
+                        - Added master-detail support for TASQLite3table (not fully tested yet)
+                        - Added master-detail support for TASQLite3query (not fully tested yet)
+                        - Added filter property to TASQLite3Query
+              Jan 18, 2004, Release beta 1.0.H Albert Drent (c) 2003, 2004 Aducom Software
+                        - Added TASQLite3Log component
+                        - Support for autoincrement (index primary key)
+              Jan 22, 2004, Release beta 1.0.I Albert Drent (c) 2003, 2004 Aducom Software
+                        - Solved bug, causing the user to open database first (where
+                          it should be opened automatically after open query or table.
+                        - datatype text is now treated as a string of max 255 chars.
+                        - added samples
+                        - added preparations for import and export component
+              Jan 26, 2004, Release beta 1.1.A Albert Drent (c) 2003, 2004 Aducom Software
+                        - Support for master-detail
+                        - Support for TUpdateSQL
+              Feb 05, 2004, Release beta 1.1.B Albert Drent (c) 2003, 2004 Aducom Software
+                        - Solved small bug: basequery is closed on querychanged event
+                        - Solved small bug: basequery is closed on filter change event
+                        - Solved bug in design package, by Marc Wetzel(forum)
+                        - Notification of BaseQuery removed and added to SQLiteTable
+              Feb 24, 2004 Release alpha 1.2.A Albert Drent (c) 2003, 2004 Aducom Software
+                        - Locate implemented, working on resultset!
+                        - Some small bugfixes
+              Feb 25, 2004 Release alpha 1.2.B Albert Drent (c) 2003, 2004 Aducom Software
+                        - Reformat of source (Marc Wetzel)
+                        - All the debug directives (Marc Wetzel)
+                          The debug stuff is added to be able to do more debugging on the
+                          components. At this stage there are still some isues which are
+                          hard to be find.
+                        - Some small bugfixes (Marc Wetzel)
+                        - Solved bug with dblookupcombobox, lookup is now shown (variant error)
+                        - Derived more classes from TDataset to solve compatibility isues with
+                          3rd party software (DevExpress)
+                        - Start of port to lower Delphi versions (designintf vs dsgnintf)
+              March 25, 2004 Release alpha 1.2.C Albert Drent (c) 2003, 2004 Aducom Software
+                        - Added property editor for database directory
+                        - Added property editor for sqlitedll directory
+                        - Bugix needed for release 13 of SQLite.dll (is compatible to lower
+                          dll versions)
+                        - More changes to solve compatibility problem with DevExpress (Plato of DevExpress)
+                        - Solved some compatibility isues with TDataSet
+                        - Solved some compatibility isues with the newest SQLite version (2.8.12)
+                        - Added/modified, GetFieldNames, GetPrimaryKeys
+                        - Added GetTableInfo
+                        - Added StartTransaction and Commit and RollBack to TTable and TQuery
+                          This will create a more readable source:
+                             db.starttranaction;
+                             q.somesql
+                             db.commit
+                          becomes now
+                             with q do begin
+                               starttransaction;
+                               somesql;
+                               try
+                                 commit;
+                               except
+                                 rollback;
+                               end;
+                             end;
+                        - Changed cleanup of components in notification (TheSneak)
+                        - Fixed potential AV (so far not reported)
+                        - Changed escape of string characters (TheSneak)
+                          (might cause incompatibility of older components if you use single
+                          quote in data)
+                        - Fixed question mark problem in data (TheSneak)
+              April 7, 2004
+                        - Fixed bug GetxxxxNames, moved pragma (reported by Martini)
+                        - Improved some performance isues (TheSneak)
+                        - Added GetTableIndexNames(by Martini)
+                        - Added support for 'small text blobs', it isn't the real stuff but
+                          limited to 20000 characters.
+                        - Fixed another compatibility isue with DevExpress
+              April 8, 2004
+                        - Fixed EnableControls (TheSneak)
+                        - Fixed memoryleak ASQLiteQuery.InternalPost (TheSneak)
+                        - Downgraded some stuff for support Delphi 4/5
+                        - Updated Locate function (by Joel  hottcha@juno.com)
+              April 14, 2004 Release beta 1.2.C Albert Drent (c) 2003, 2004 Aducom Software
+                        - RawSQL property implemented (supresses parsing of sql data)
+                        - published csv release as 1.2.C beta
+              April 15, 2004 Release alpha 2.0.A Albert Drent (c) 2003, 2004 Aducom Software
+                        - support for real clobs
+                        - added fieldtype numeric(x.y)
+                        - Implement RawSQL property in TASQLite3Query
+              May 26, 2004 Release beta 2.0.B Albert Drent (c) 2003, 2004 Aducom Software
+                        - new procedure: GetGetLastInsertRow
+                        - new component: TASQLite3InlineSQL, to be used to contain all
+                          kinds of pre-stored sql statements. I.e. for creation of tables in case
+                          of an in-memory database, or a local storage for sql statements to
+                          simplify sourcecode. In this release it is bound to the ASQLiteDB component.
+                        - new component TASQLite3Output, to be used to generate csv files,
+                          xml and html documents. It is NOT bound to ASQLite components but
+                          to a datasource (containing any database connection)
+                        - implemented bound as described by minhl on the forum
+                        - implemented IsNull as described by Kazooie64 on the forum
+                        - implemented a uniform datetime implementation by jpierce
+              May, 26, 2004 Release beta 2.0.B Albert Drent (c) 2003, 2004 Aducom Software
+                        - A few bugfixes
+              June, 15, 2004 Release beta 2.0.C Albert Drent (c) 2003, 2004 Aducom Software
+                        - A few bugfixes, thanks to Tzvetan
+              July 2004, Release 1.0 based upon source sqlite version 2 components
+              Okt 11, 2004 Release beta 1.0.B Albert Drent (c) 2003, 2004 Aducom Software
+                        - Callback routine for retieving data replaced by new
+                          by sqlite prefered way.
+                        - Some bugfixes
+                        - Support for calculated fields
+                        - Support for real blobs
+              okt 14, 2004 Release beta 1.0.C Albert Drent (c) 2003, 2004 Aducom Software
+                        - support for locate lo-partial key (thanks to Bob Mitchel)
+                        - some bugfixes (thanks to Oleg Lembievskiy marked by OL)
+                        - some other bugfixes and code cleanup
+              okt 18, 2004
+                        - re-introduced sqlite_version
+                        - added transactiontype property(SQLite3 feature)
+                        - added transaction procedures to db and basequery
+                                StartDeferredTransaction;
+                                StartImmediateTransaction;
+                                StartExclusiveTransaction;
+              nov 1, 2004
+                        - bugfix (thanx to James) for null pointer assignment on null values
+              nov 8, 2004
+                        - fixed introduced bug in result preventing new records to appear
+                          right in dbgrids.
+              nov 17, 2004
+                        - fixed small bug showing rubish on empty tables
+              Nov 17, 2004 by Mike Dijkema
+                        - filter bug  FPrepared := FPrepared + ' and ' + Filter adds ' and filterexpr' to the end of the sql statement
+                          this created errors with 'order by' 'limit' 'union' 'having' etc..
+                          filtering changed to that it works like the ADO components and union and other statements
+                          now 'select a from b union select c from d' and 'select a from b order by c' works with a filter
+                        - filter bug 'select a_where from b' removed
+              jan 11, 2005 Release 2005.01.A Albert Drent (c) 2003 .. 2005 Aducom Software
+                        - fixed bug causing fielddescription to be deleted incorrectly
+                        - fixed bug causing errormessage on null values in integer fields
+                        - added sqlcursor property
+                        - modifications to support Delphi 2005
+                        - implemented all transactiontypes
+                        - changed all showmessages to raise event types
+                        - added readonly property
+              feb 21, 2005 Release 2005.02.A Albert Drent (c) 2003 .. 2005 Aducom Software
+                        - some bugfixes, code optimization
+                        - first implementation of IProvider support (thanks to
+                          Rocco Barbaresco)
+                        - changed default SDB extension to SQB
+                        - support for multi sql statements in one string
+                        - added master-detail functionality on insert of
+                          new child record (key-data is copied)
+                        - added compatibility with SQLite3.dll version 3.1.2
+              feb 28, 2005 Release 2005.02.B Albert Drent (c) 2003 .. 2005 Aducom Software
+                        - bugfix for filter on master-detail. Setting filtered will
+                          not automatical open table any more. Causes error on closed
+                          tables in master-detail otherwise.
+              mar 7, 2005 Release 2005.03.A Albert Drent (c) 2003 .. 2005 Aducom Software
+                        - bugfix for memofields causing crlf to be handled wrongly
+                        - added TableExists function ('// DI  Ralf http://www.yunqa.de/delphi/)
+                        - some code optimizations ('// DI Ralf http://www.yunqa.de/delphi/)
+                        - solved decimalpoint bug ('// DI Ralf http://www.yunqa.de/delphi/)
+              mar 10, 2005 Release 2005.03.B Albert Drent (c) 2003 .. 2005 Aducom Software
+                        - more code optimizations
+                        - removed Forms from uses list to decrease codesize of console app's
+                        - changed cursorstyle handling
+                        - changed exception handling
+              mar 29, 2005 Release 2005.03.C Albert Drent (c) 2003 .. 2005 Aducom Software
+                        - removed default pragma's for tables
+                        - implemented another solution for tableheader duplicates (mirko)
+                        - implemented user version
+                        - solved minor bug in GetTableInfo
+              april 5, 2005 Release 2005.04.A Albert Drent (c) 2003 .. 2005 Aducom Software
+                        - fixed bug conceirning in-memory database (Bert Verhees)
+                        - fixed precompiler settings for Delhpi 7 (Dak)
+              mai 31, 2005 Release 2005.05.A Albert Drent (c) 2003 .. 2005 Aducom Software
+                        - UTF8 support (thanks to Bilgehan KUYUCU)
+                        - Statical linking (thanks to Gianpaolo Avallone (GPA)
+                        - Some bugfixes and enhancements by Albert, Gianpaolo and others.
+              august 1, 2005 Release 2005.08.A
+                        - UTF8 support to be set by property, solving a 'locale' problem.
+                        - Bugfix for null strings
+                        - Fix for static linking
+                        - Solved bug in updatesql, fieldlist is now setup correctly
+                        - solved bug in updatesql, inserting null values and constants.
+              august 2, 2005 Release 2005.08.B
+                        - first steps towards support utf16 (by Kevin Zhang)
+                        - implemented another locate routine (by jbannon)
+                        - changed treatment of datatype text. It is considered 'longtext' now.
+                          added 'shorttext' datatype which replaces the original 'text' datatype.
+                          The datatype text is now compatible with sqlite3, mysql and perhaps
+                          others.
+              sept 1, 2005 Release 2005.09.A
+                        - code optimizations by Kevin Lu, Aducom
+              sept 1, 2005 Release 2005.09.B
+                        - candidate fix for decimal point problem by Jordi March
+              sept 20, 2005 Release 2005.09.C
+                        - implementation of unidirectional dataset. This improves
+                          performance on large resultsets to the optimum. However
+                          the dataset is readonly by default, using inserts/deletes and
+                          updates will result in a 'database table is locked' error.
+              sept 21, 2005 Release 2005.09.D
+                        - bugfix for decimal point routine by Kevin Lu
+              sept 29, 2005 Release 2005.09.E
+                        - bugfix for unidirectional dataset.
+                        - bugfix for split of prepare and execute. Data was not updated
+                          correctly
+              nov 1, 2005 Release 2005.11.A
+                        - Code improvements
+                        - First (alpha) implementation of Lookup field (By John Lito)
+              dec 14, 2005 Release 2005.12.A
+                        - Check for null values
+              jan 5, 2006 Release 2006.01.A
+                        - fixed unidirectional bug (I)
+              jan 9, 2006 Release 2006.01.B
+                        - fixed unidirectional bug (II)
+                        - automatically will close table if tablename property is changed
+                          while a table is still open.
+                        - automatically close query if sql property is changed while a table
+                          is still open.
+                        - fixes for compilation under D4
+                        - changes for installation under Delphi 2005 and 2006
+                        - changes of copyright notice, the components are now under
+                          open-source bsd licence.
+              feb 22, 2006 Release 2006.02.A
+                        - Changed status to stable
+              mar 2, 2006 Release 2006.03.A
+                        - Modifications for D4/D5
+                        - Added order by property. Enter fieldnames separated by ','
+                        - Added GetIndexFieldNames (thanks to zavu10n)
+                        - Database will be reopened if necessary on filter change
+                        - Fixes by Donnie
+                        - New routine for dates and floates by Donnie
+              mar 8, 2006 Release 2006.03.B
+                        - Fixed small bug causing text treated as char 255, is now memo.
+              mar 15, 2006 Release 2006.03.C
+                        - Added switch for compilation under D4/D5 (Art Register)
+                        - DBOpen change for utf8 by John Lito
+                        - SQLCursor fix
+                        - GetFieldValue fix by Velis
+              mar 23, 2006 Release 2006.03.D
+                        - Compatibility fixes for D45 (Art Register)
+                        - changed D45 directive to $IFDEF ASQLITE_D6PLUS so
+                          compilation should work automatically now
+                        - changed cr cr/lf pairs for compatibilty with D4/D5
+                        - added CompareBookmarks to support multiple selection
+                          in DBGrid (Michael S)
+                        - added support for char *nothing* datatype (was char(1) now char is allowed)
+
+
+
+*_* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * }
+
+
+interface
+
+uses
+  DB,
+  DBCommon,
+  Dialogs,
+  Classes,
+  Windows,
+  SysUtils,
+{$IFDEF ASQLITE_D6PLUS}
+  Variants,
+{$ENDIF}
+  ASGRout3;
+const
+  SQLiteVersion     = 'ASGSQLite V2006.03.D stable';
+
+  MaxBuf            = 30000;            // max stringbuffer for record (length) (excluding blob's)
+  SQLITE_OK         = 0;                // Successful result */
+  SQLITE_ERROR      = 1;                // SQL error or missing database */
+  SQLITE_INTERNAL   = 2;                // An internal logic error in SQLite */
+  SQLITE_PERM       = 3;                // Access permission denied */
+  SQLITE_ABORT      = 4;                // Callback routine requested an abort */
+  SQLITE_BUSY       = 5;                // The database file is locked */
+  SQLITE_LOCKED     = 6;                // A table in the database is locked */
+  SQLITE_NOMEM      = 7;                // A malloc() failed */
+  SQLITE_READONLY   = 8;                // Attempt to write a readonly database */
+  SQLITE_INTERRUPT  = 9;                // Operation terminated by sqlite_interrupt() */
+  SQLITE_IOERR      = 10;               // Some kind of disk I/O error occurred */
+  SQLITE_CORRUPT    = 11;               // The database disk image is malformed */
+  SQLITE_NOTFOUND   = 12;               // (Internal Only) Table or record not found */
+  SQLITE_FULL       = 13;               // Insertion failed because database is full */
+  SQLITE_CANTOPEN   = 14;               // Unable to open the database file */
+  SQLITE_PROTOCOL   = 15;               // Database lock protocol error */
+  SQLITE_EMPTY      = 16;               // (Internal Only) Database table is empty */
+  SQLITE_SCHEMA     = 17;               // The database schema changed */
+  SQLITE_TOOBIG     = 18;               // Too much data for one row of a table */
+  SQLITE_CONSTRAINT = 19;               // Abort due to contraint violation */
+  SQLITE_MISMATCH   = 20;               // Data type mismatch */
+  SQLITE_MISUSE     = 21;               // Library used incorrectly */
+  SQLITE_NOLFS      = 22;               // Uses OS features not supported on host */
+  SQLITE_AUTH       = 23;               // Authorization denied */
+  SQLITE_ROW        = 100;              // sqlite_step() has another row ready */
+  SQLITE_DONE       = 101;              // sqlite_step() has finished executing */
+
+  SQLITE_CREATE_INDEX = 1;              // Index Name      Table Name      */
+  SQLITE_CREATE_TABLE = 2;              // Table Name      NULL            */
+  SQLITE_CREATE_TEMP_INDEX = 3;         // Index Name      Table Name      */
+  SQLITE_CREATE_TEMP_TABLE = 4;         // Table Name      NULL            */
+  SQLITE_CREATE_TEMP_TRIGGER = 5;       // Trigger Name    Table Name      */
+  SQLITE_CREATE_TEMP_VIEW = 6;          // View Name       NULL            */
+  SQLITE_CREATE_TRIGGER = 7;            // Trigger Name    Table Name      */
+  SQLITE_CREATE_VIEW = 8;               // View Name       NULL            */
+  SQLITE_DELETE     = 9;                // Table Name      NULL            */
+  SQLITE_DROP_INDEX = 10;               // Index Name      Table Name      */
+  SQLITE_DROP_TABLE = 11;               // Table Name      NULL            */
+  SQLITE_DROP_TEMP_INDEX = 12;          // Index Name      Table Name      */
+  SQLITE_DROP_TEMP_TABLE = 13;          // Table Name      NULL            */
+  SQLITE_DROP_TEMP_TRIGGER = 14;        // Trigger Name    Table Name      */
+  SQLITE_DROP_TEMP_VIEW = 15;           // View Name       NULL            */
+  SQLITE_DROP_TRIGGER = 16;             // Trigger Name    Table Name      */
+  SQLITE_DROP_VIEW  = 17;               // View Name       NULL            */
+  SQLITE_INSERT     = 18;               // Table Name      NULL            */
+  SQLITE_PRAGMA     = 19;               // Pragma Name     1st arg or NULL */
+  SQLITE_READ       = 20;               // Table Name      Column Name     */
+  SQLITE_SELECT     = 21;               // NULL            NULL            */
+  SQLITE_TRANSACTION = 22;              // NULL            NULL            */
+  SQLITE_UPDATE     = 23;               // Table Name      Column Name     */
+  SQLITE_ATTACH     = 24;               // Filename        NULL            */
+  SQLITE_DETACH     = 25;               // Database Name   NULL            */
+
+  SQLITE_DENY       = 1;                // Abort the SQL statement with an error */
+  SQLITE_IGNORE     = 2;                // Don't allow access, but don't generate an error */
+
+  Crlf              : string = #13#10;
+  Q                 = '''';
+
+type
+  pInteger = ^integer;
+  pPointer = ^Pointer;
+  pSmallInt = ^smallint;
+  pFloat = ^extended;
+  pBoolean = ^boolean;
+
+
+  TConvertBuffer = array[1..255] of char;
+
+  TSQLite3_Callback = function(UserData: Pointer; ColumnCount: Integer; ColumnValues, ColumnNames: PPointer): Integer; cdecl;
+//  TSQLiteExecCallback = function(Sender: TObject; Columns: integer; ColumnValues: Pointer; ColumnNames: Pointer): integer of object; cdecl;
+  TSQLiteBusyCallback = function(Sender: TObject; ObjectName: PAnsiChar; BusyCount: integer): integer of object; cdecl;
+  TOnData = procedure(Sender: TObject; Columns: integer; ColumnNames, ColumnValues: string) of object;
+  TOnBusy = procedure(Sender: TObject; ObjectName: string; BusyCount: integer; var Cancel: boolean) of object;
+  TOnQueryComplete = procedure(Sender: TObject) of object;
+  TASQLite3NotifyEvent = procedure(Sender: TObject) of object;
+
+  // structure for holding field information. It is used by GetTableInfo
+
+  TASQLite3Field = class
+  public
+    FieldNumber: integer;
+    FieldName: string;
+    FieldType: string;
+    FieldNN: integer;                   // 1 if notnull
+    FieldDefault: string;
+    FieldPK: integer;                   // 1 if primary key
+  end;
+
+  // object to 'play' with SQLite's default settings
+
+  TASQLite3Pragma = class(TComponent)
+  private
+    FTempCacheSize: integer;
+    FDefaultCacheSize: integer;
+    FDefaultSynchronous: string;
+    FDefaultTempStore: string;
+    FTempStore: string;
+    FSynchronous: string;
+  protected
+    function GetTempCacheSize: string;
+    function GetDefaultCacheSize: string;
+    function GetDefaultSynchronous: string;
+    function GetDefaultTempStore: string;
+    function GetTempStore: string;
+    function GetSynchronous: string;
+  published
+    { Published declarations }
+    property TempCacheSize: integer read FTempCacheSize write FTempCacheSize;
+    property DefaultCacheSize: integer read FDefaultCacheSize write FDefaultCacheSize;
+    property DefaultSynchronous: string read FDefaultSynchronous
+      write FDefaultSynchronous;
+    property DefaultTempStore: string read FDefaultTempStore write FDefaultTempStore;
+    property TempStore: string read FTempStore write FTempStore;
+    property Synchronous: string read FSynchronous write FSynchronous;
+  end;
+
+  // component to log messages
+  // it's for debugging purpose and may be obsolete due
+  // to the event implementation. not sure yet...
+
+  TASQLite3Log = class(TComponent)
+  private
+    FLogFile: string;
+    FLogDebugOut: boolean;
+    FAppend: boolean;
+    FLogSQL: boolean;
+    FLogInt: boolean;
+  protected
+  public
+    procedure Display(Msg: string);
+  published
+    { Published declarations }
+    property LogFile: string read FLogFile write FLogFile;
+    property LogDebugOut: boolean read FLogDebugOut write FLogDebugOut; // 20040225
+    property Append: boolean read FAppend write FAppend;
+    property LogSQL: boolean read FLogSQL write FLogSQL;
+    property LogInternals: boolean read FLogInt write FLogInt;
+  end;
+
+// This component can be used to store sql outside the pascal source.
+// It is useful for automatically creating tables on open of a temporary database
+// (i.e. in-memory database)
+
+  TASQLite3InlineSQL = class(TComponent)
+  private
+    FSQL: TStrings;
+    procedure SetSQL(const Value: TStrings);
+    function GetSQL: TStrings;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  published
+    property SQL: TStrings read GetSQL write SetSQL;
+  end;
+
+  { Basic Database component }
+
+  TASQLite3DB = class(TComponent)
+  private
+    { Private declarations }
+    FAfterConnect: TASQLite3NotifyEvent;
+    FBeforeConnect: TASQLite3NotifyEvent;
+    FAfterDisconnect: TASQLite3NotifyEvent;
+    FBeforeDisconnect: TASQLite3NotifyEvent;
+    function FGetDefaultExt: string;
+    function FGetDriverDLL: string;
+  protected
+    { Protected declarations }
+    FInlineSQL: TASQLite3InlineSQL;
+    FExecuteInlineSQL: boolean;
+    FDatabase: string;
+    FTransactionType: string;
+    FSQLiteVersion: string;
+    FDefaultExt: string;
+    FDefaultDir: string;
+    FDriverDll: string;
+    FConnected: boolean;
+    FMustExist: boolean;
+    FVersion: string;
+    FCharEnc: string;
+    FUtf8: boolean;
+    DBHandle: Pointer;
+    FASQLitePragma: TASQLite3Pragma;
+    FASQLiteLog: TASQLite3Log;
+    FLastError: string;
+    SQLite3_Open: function(dbname: PAnsiChar; var db: pointer): integer; cdecl;
+    SQLite3_Close: function(db: pointer): integer; cdecl;
+    SQLite3_Exec: function(DB: Pointer; SQLStatement: PAnsiChar; Callback: TSQLite3_Callback;
+                           UserDate: Pointer; var ErrMsg: PAnsiChar): Integer; cdecl;
+    SQLite3_LibVersion: function(): PAnsiChar; cdecl;
+    SQLite3_ErrorString: function(db: pointer): PAnsiChar; cdecl;
+    SQLite3_GetTable: function(db: Pointer; SQLStatement: PAnsiChar; var ResultPtr: Pointer;
+      var RowCount: cardinal; var ColCount: cardinal; var ErrMsg: PAnsiChar): integer; cdecl;
+    SQLite3_FreeTable: procedure(Table: PAnsiChar); cdecl;
+    SQLite3_FreeMem: procedure(P: PAnsiChar); cdecl;
+    SQLite3_Complete: function(P: PAnsiChar): boolean; cdecl;
+    SQLite3_LastInsertRow: function(db: Pointer): integer; cdecl;
+    SQLite3_Cancel: procedure(db: Pointer); cdecl;
+    SQLite3_BusyHandler: procedure(db: Pointer; CallbackPtr: Pointer; Sender: TObject); cdecl;
+    SQLite3_BusyTimeout: procedure(db: Pointer; TimeOut: integer); cdecl;
+    SQLite3_Changes: function(db: Pointer): integer; cdecl;
+    SQLite3_Prepare: function(db: Pointer; SQLStatement: PAnsiChar; nBytes: integer;
+      var hstatement: pointer; var Tail: PAnsiChar): integer; cdecl;
+    SQLite3_Finalize: function(hstatement: pointer): integer; cdecl;
+    SQLite3_Reset: function(hstatement: pointer): integer; cdecl;
+    SQLite3_Step: function(hstatement: pointer): integer; cdecl;
+    SQLite3_Column_blob: function(hstatement: pointer; iCol: integer): pointer; cdecl;
+    SQLite3_Column_bytes: function(hstatement: pointer; iCol: integer): integer; cdecl;
+    SQLite3_Column_count: function(hstatement: pointer): integer; cdecl;
+    SQLite3_Column_decltype: function(hstatement: pointer; iCol: integer): PAnsiChar; cdecl;
+    SQLite3_Column_double: function(hstatement: pointer; iCol: integer): double; cdecl;
+    SQLite3_Column_int: function(hstatement: pointer; iCol: integer): integer; cdecl;
+    SQLite3_Column_int64: function(hstatement: pointer; iCol: integer): int64; cdecl;
+    SQLite3_Column_name: function(hstatement: pointer; iCol: integer): PAnsiChar; cdecl;
+    SQLite3_Column_text: function(hstatement: pointer; iCol: integer): PAnsiChar; cdecl;
+    SQLite3_Column_text16: function(hstatement: pointer; iCol: integer): PWideChar; cdecl;
+    SQLite3_Column_type: function(hstatement: pointer; iCol: integer): integer; cdecl;
+    SQLite3_Bind_Blob: function(hstatement: pointer; iCol: integer; buf: PAnsiChar; n: integer; DestroyPtr: Pointer): integer; cdecl;
+    SQLite3_Bind_Text16: function(hstatement: pointer; iCol: integer; buf: pointer; n: integer; DestroyPtr: Pointer): integer; cdecl;//\\\
+    SQLite3_Bind_Parameter_Count: function(hstatement: pointer): integer; cdecl;//\\\
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure DBConnect(Connected: boolean);
+    function SQLite3_PrepareResult(DB: Pointer; TheStatement: string; FParams: TParams; Sender: TObject) : pointer;
+    function SQLite3_GetNextResult(DB: Pointer; TheStatement: pointer; FParams: TParams; Sender: TObject) : pointer;
+    procedure SQLite3_CloseResult(TheStatement : pointer);
+  public
+    DLLHandle: THandle;
+    { Public declarations }
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    function LoadLibs: boolean;
+    procedure FSetDatabase(Database: string);
+    function RowsAffected: integer;
+    function  TableExists(const ATableName: AnsiString): Boolean;
+    procedure ExecStartTransaction(TransType: string);
+    procedure StartTransaction;
+    procedure StartDeferredTransaction;
+    procedure StartImmediateTransaction;
+    procedure StartExclusiveTransaction;
+    procedure Open;
+    procedure Close;
+    procedure Commit;
+    procedure RollBack;
+    procedure ShowDatabases(List: TStrings);
+    procedure GetTableNames(List: TStrings; SystemTables: boolean = false);
+    procedure GetTableInfo(TableName: string; List: TList);
+    procedure GetIndexNames(List: TStrings; SystemTables: boolean = false);
+    procedure GetIndexFieldNames(IndexName: string; List: TStrings);
+    procedure GetFieldNames(TableName: string; List: TStrings);
+    procedure GetPrimaryKeys(TableName: string; List: TStrings);
+    procedure GetTableIndexNames(TableName: string; List: TStrings);
+    procedure ExecPragma;
+//    function SQLite_XExec(db: Pointer; SQLStatement: PAnsiChar;
+//      CallbackPtr: Pointer; Sender: TObject; var ErrMsg: PAnsiChar): integer; cdecl;
+    function SQLite3_Execute(db: Pointer; TheStatement: string; FParams: TParams; Sender: TObject): integer;
+    function SQLite3_ExecSQL(TheStatement: string; Blobs: TList=nil): integer;
+    procedure ShowError;
+    function GetUserVersion(database : string=''): integer;
+    procedure SetUserVersion(Version : integer; Database : string='');
+  published
+    { Published declarations }
+    property CharacterEncoding: string read FCharEnc write FCharEnc;
+    property TransactionType: string read FTransactionType write FTransactionType;
+    property Database: string read FDatabase write FSetDatabase;
+    property ASQLitePragma: TASQLite3Pragma read FASQLitePragma write FASQLitePragma;
+    property ASQLiteLog: TASQLite3Log read FASQLiteLog write FASQLiteLog;
+    property DefaultExt: string read FGetDefaultExt write FDefaultExt;
+    property DefaultDir: string read FDefaultDir write FDefaultDir;
+    property Version: string read FVersion write FVersion;
+//  property CharacterEncoding: string Read FCharEncoding Write FCharEncoding;
+    property DriverDLL: string read FGetDriverDLL write FDriverDLL;
+    property Connected: boolean read FConnected write DBConnect;
+    property MustExist: boolean read FMustExist write FMustExist;
+    property ASQLiteInlineSQL: TASQLite3InlineSQL read FInlineSQL write FInlineSQL;
+    property ExecuteInlineSQL: boolean read FExecuteInlineSQL write FExecuteInlineSQL;
+    property AfterConnect: TASQLite3NotifyEvent read FAfterConnect write FAfterConnect;
+    property BeforeConnect: TASQLite3NotifyEvent read FBeforeConnect write FBeforeConnect;
+    property AfterDisconnect: TASQLite3NotifyEvent
+      read FAfterDisconnect write FAfterDisconnect;
+    property BeforeDisconnect: TASQLite3NotifyEvent
+      read FBeforeDisconnect write FBeforeDisconnect;
+  end;
+
+  AsgError = class(Exception);
+
+{ TRecInfo }
+
+{   This structure is used to access additional information stored in
+  each record buffer which follows the actual record data.
+
+    Buffer: PAnsiChar;
+   ||
+   \/
+    --------------------------------------------
+    |  Record Data  | Bookmark | Bookmark Flag |
+    --------------------------------------------
+                    ^-- PRecInfo = Buffer + FRecInfoOfs
+
+  Keep in mind that this is just an example of how the record buffer
+  can be used to store additional information besides the actual record
+  data.  There is no requirement that TDataSet implementations do it this
+  way.
+
+  For the purposes of this demo, the bookmark format used is just an integer
+  value.  For an actual implementation the bookmark would most likely be
+  a native bookmark type (as with BDE), or a fabricated bookmark for
+  data providers which do not natively support bookmarks (this might be
+  a variant array of key values for instance).
+
+  The BookmarkFlag is used to determine if the record buffer contains a
+  valid bookmark and has special values for when the dataset is positioned
+  on the "cracks" at BOF and EOF. }
+
+  PRecInfo = ^TRecInfo;
+
+  TRecInfo = packed record
+    Bookmark : integer;
+    BookmarkFlag : TBookmarkFlag;
+//    Nulls :
+  end;
+
+ //============================================================================== TFResult
+ // The TFResult class is used to maintain the resultlist in memory. This
+ // will only be the case for 'normal' data. Blobs and Clobs will be treated
+ // differently, but they are not supported yet.
+ //==============================================================================
+  TASQLite3BaseQuery = class;
+
+  TFResult = class
+  protected
+    Data: TList;
+    BookMark: TList;
+    RowId: TList;
+    FLastBookmark: integer;
+    FBufSize: integer;
+    FDataSet: TASQLite3BaseQuery;
+  public
+    constructor Create(TheDataSet: TASQLite3BaseQuery);
+    destructor Destroy; override;
+    procedure FreeBlobs;
+    procedure SetBufSize(TheSize: integer);
+    procedure Add(TheBuffer: PAnsiChar; TheRowId: integer);
+    procedure Insert(Index: integer; TheBuffer: Pointer; TheRowId: integer);
+    procedure Delete(Index: integer);
+    function GetData(Index: integer): Pointer;
+    function Count: integer;
+    function IndexOf(TheBookMark: pointer): integer;
+    function GetBookmark(Index: integer): integer;
+    function GetRowId(Index: integer): integer;
+  end;
+
+//============================================================================== TASQLite3UpdateSQL
+  TASQLite3UpdateSQL = class(TComponent)
+  private
+    FInsertSQL: TStrings;
+    FUpdateSQL: TStrings;
+    FDeleteSQL: TStrings;
+    procedure SetInsertSQL(const Value: TStrings);
+    procedure SetUpdateSQL(const Value: TStrings);
+    procedure SetDeleteSQL(const Value: TStrings);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  published
+    property InsertSQL: TStrings read FInsertSQL write SetInsertSQL;
+    property UpdateSQL: TStrings read FUpdateSQL write SetUpdateSQL;
+    property DeleteSQL: TStrings read FDeleteSQL write SetDeleteSQL;
+  end;
+
+//============================================================================== TASQLite3Output
+
+  TASQLite3Output = class(TComponent)
+  private
+    FActive: boolean;
+    FOutputType: string;
+    FTableClass: string;
+    FHeaderClass: string;
+    FCellClass: string;
+    FOutput: TStrings;
+    FSeparator: string;
+    FDataSource: TDataSource;
+    procedure SetOutput(const Value: TStrings);
+    procedure SetFActive(Active: boolean);
+    function GetOutput: TStrings;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Execute(MyDataSet: TDataSet);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  published
+    property Active: boolean read FActive write SetFActive;
+    property DataSource: TDataSource read FDataSource write FDataSource;
+    property OutputType: string read FOutputType write FOutputType;
+    property TableClass: string read FTableClass write FTableClass;
+    property HeaderClass: string read FHeaderClass write FHeaderClass;
+    property CellClass: string read FCellClass write FCellClass;
+    property Output: TStrings read GetOutput write SetOutput;
+    property FieldSeparator: string read FSeparator write FSeparator;
+  end;
+
+//============================================================================== TASQLite3BaseQuery
+  TASQLite3BaseQuery = class(TDataSet)
+  private
+    FParams: TParams;
+    FTypeLess: boolean;
+    FNoResults: boolean;                // suppresses the creation of a result list
+    FAutoCommit: boolean;
+    FTransactionType: string;
+    FTableDateFormat: string;
+    FSQLiteDateFormat: boolean;
+    FResult: TFResult;
+    FSQL: TStrings;
+    FSQLCursor: boolean;
+    FPrepared: string;
+    FRecBufSize: integer;
+    FRecInfoOfs: integer;
+    FCurRec: integer;
+    FMasterFields: string;
+    FMasterSource: TDataSource;
+    FSaveChanges: boolean;
+    MaxStrLen: integer;
+    FConnection: TASQLite3DB;
+    FReadOnly: boolean;
+    FMaxResults: integer;
+    FStartResult: integer;
+    FUniDir : boolean;
+    FStatement : pointer;
+    CurrentRowId: integer;
+    SQLStr: string;
+    ResultStr: PAnsiChar;
+    RowId : integer;
+    RowIdCol : integer;
+    DetailList: TList;
+    procedure SetSQL(const Value: TStrings);
+    function UnpackBuffer(Buffer: PAnsiChar; FieldType: TFieldType): TConvertBuffer;
+    procedure SetDataSource(Value: TDataSource);
+  protected
+    function SetQueryParams(InStr: string): string; //***
+    procedure SetParamsList(Value: TParams);
+    function GetParamsCount: word;
+    procedure RegisterDetailDataset(DetailDataSet: TASQLite3BaseQuery);
+    procedure LoadQueryData;
+    function GetActiveBuffer(var Buffer: PAnsiChar): boolean;
+    function GetDataSource: TDataSource; override;
+    procedure NotifySQLiteMasterChanged;
+    function GetFieldValue(const AField: TField; const Blobs: TList = nil): string; // added by Donnie
+
+    { Overriden abstract methods (required) }
+    function AllocRecordBuffer: PAnsiChar; override;
+    procedure FreeRecordBuffer(var Buffer: PAnsiChar); override;
+    procedure GetBookmarkData(Buffer: PAnsiChar; Data: Pointer); override;
+    function GetBookmarkFlag(Buffer: PAnsiChar): TBookmarkFlag; override;
+    function GetRecord(Buffer: PAnsiChar; GetMode: TGetMode;
+      DoCheck: boolean): TGetResult; override;
+    function GetRecordSize: word; override;
+    procedure InternalAddRecord(Buffer: Pointer; Append: boolean); override;
+    procedure InternalClose; override;
+    procedure InternalDelete; override;
+    procedure InternalFirst; override;
+    procedure InternalGotoBookmark(Bookmark: Pointer); override;
+    procedure InternalHandleException; override;
+    procedure InternalInitFieldDefs; override;
+    procedure InternalInitRecord(Buffer: PAnsiChar); override;
+    procedure InternalLast; override;
+    procedure InternalOpen; override;
+    procedure InternalPost; override;
+    procedure InternalSetToRecord(Buffer: PAnsiChar); override;
+    procedure OpenCursor(InfoQuery: Boolean); override; // GPA
+    function IsCursorOpen: boolean; override;
+    procedure SetBookmarkFlag(Buffer: PAnsiChar; Value: TBookmarkFlag); override;
+    procedure SetBookmarkData(Buffer: PAnsiChar; Data: Pointer); override;
+    procedure SetFieldData(Field: TField; Buffer: Pointer); override;
+    function GetFieldSize(FieldNo: integer): integer; overload;
+    function GetFieldSize(Field: TField): integer; overload;
+    function GetNativeFieldSize(FieldNo: integer): integer;
+    function GetFieldOffset(FieldNo: integer): integer;
+    function GetCalcFieldOffset(Field: TField): integer;
+    function GetMasterFields: string;
+    procedure SetMasterFields(const Value: string);
+    { Additional overrides (optional) }
+    function GetRecordCount: integer; override;
+    function GetRecNo: integer; override;
+    procedure SetRecNo(Value: integer); override;
+    property BaseSQL: TStrings read FSQL write SetSQL;
+    procedure SetSQLiteDateFormat(const Value: boolean);
+    procedure SetFilterText(const Value: string); override;
+    procedure DataConvert(Field: TField; Source, Dest: Pointer; ToNative: Boolean); override;//\\\
+    function CalcFieldInList(const List: string): Boolean;                      // John Lito
+
+   {$IFDEF IPROVIDER}
+   {***** IProviderSupport - Begin *****}
+    //-----| These are not necessary until the moment!
+    // procedure PSGetAttributes(List: TList); virtual;
+    // function PSGetDefaultOrder: TIndexDef; virtual;
+    // function PSGetIndexDefs(IndexTypes: TIndexOptions): TIndexDefs; virtual;
+    //-----| These are necessary to support IProvider
+    procedure PSEndTransaction(Commit: Boolean); override;
+    procedure PSExecute; override;
+    function PSExecuteStatement(const ASQL: string; AParams: TParams; ResultSet: Pointer = nil): Integer; override;
+    function PSGetParams: TParams; override;
+    function PSGetTableName: string; override;
+    function PSGetUpdateException(E: Exception; Prev: EUpdateError): EUpdateError; override;
+    function PSInTransaction: Boolean; override;
+    function PSIsSQLBased: Boolean; override;
+    function PSIsSQLSupported: Boolean; override;
+    procedure PSReset; override;
+    procedure PSSetCommandText(const CommandText: string); override;
+    procedure PSSetParams(AParams: TParams); override;
+    procedure PSStartTransaction; override;
+    function PSUpdateRecord(UpdateKind: TUpdateKind; Delta: TDataSet): Boolean; override;
+    function PSGetQuoteChar: string; override;
+    function PSGetKeyFields: string; override;
+   {***** IProviderSupport - End *****}
+   {$ENDIF}
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure ExecSQL;
+    procedure StartTransaction;
+    procedure StartDeferredTransaction;
+    procedure StartImmediateTransaction;
+    procedure StartExclusiveTransaction;
+    procedure Commit;
+    procedure RollBack;
+    procedure SetFiltered(Value: Boolean); override;
+    procedure SQLiteMasterChanged; virtual;
+    function GetFieldData(Field: TField; Buffer: Pointer): boolean; override;
+    function GetFieldData(FieldNo: integer; Buffer: Pointer): boolean; override; // 20040225
+    function GetLastInsertRow: integer;
+{$IFDEF ASQLITE_D6PLUS}
+//    function GetFieldData(Field: TField; Buffer: Pointer; NativeFormat: boolean): boolean; override;
+{$ENDIF}
+
+    function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer; override; //MS
+    function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
+    function Locate(const KeyFields: string; const KeyValues: variant; Options: TLocateOptions): boolean; override;
+    function BookmarkValid(Bookmark: Pointer): boolean; override;
+//    function    LocateNearest(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;
+    property Params: TParams read FParams write SetParamsList stored false;
+    function Lookup(const KeyFields: string; const KeyValues: Variant;          // John Lito
+                    const ResultFields: string): Variant; override;             // John Lito
+  published
+    property AutoCommit: boolean read FAutoCommit write FAutoCommit default true;
+    property TransactionType: string read FTransactionType write FTransactionType;
+    property SQLiteDateFormat: boolean read FSQLiteDateFormat write SetSQLiteDateFormat;
+    property TableDateFormat: string read FTableDateFormat write FTableDateFormat;
+    property Connection: TASQLite3DB read FConnection write FConnection;
+    property MaxResults: integer read FMaxResults write FMaxResults;
+    property StartResult: integer read FStartResult write FStartResult;
+    property TypeLess: boolean read FTypeLess write FTypeLess;
+    property MasterFields: string read GetMasterFields write SetMasterFields;
+    property MasterSource: TDataSource read GetDataSource write SetDataSource;
+    property SQLCursor: boolean read FSQLCursor write FSQLCursor;
+    property ReadOnly: boolean read FreadOnly write FReadOnly;
+    property UniDirectional : boolean read FUniDir write FUniDir;
+    property AutoCalcFields;
+    property Filter;
+    property Filtered;
+    property Active;
+    property BeforeOpen;
+    property AfterOpen;
+    property BeforeClose;
+    property AfterClose;
+    property BeforeInsert;
+    property AfterInsert;
+    property BeforeEdit;
+    property AfterEdit;
+    property BeforePost;
+    property AfterPost;
+    property BeforeCancel;
+    property AfterCancel;
+    property BeforeDelete;
+    property AfterDelete;
+    property BeforeScroll;
+    property AfterScroll;
+{$IFDEF ASQLITE_D6PLUS}
+    property BeforeRefresh;
+    property AfterRefresh;
+{$ENDIF}
+    property OnCalcFields;
+    property OnDeleteError;
+    property OnEditError;
+    property OnNewRecord;
+    property OnPostError;
+  end;
+//============================================================================== TASQLite3Query
+
+  TASQLite3Query = class(TASQLite3BaseQuery)
+  private
+    FUpdateSQL: TASQLite3UpdateSQL;
+    FRawSQL: boolean;
+    procedure SetSQL(const Value: TStrings);
+    function GetSQL: TStrings;
+    procedure QueryChanged(Sender: TObject);
+  protected
+    procedure InternalOpen; override;
+    procedure InternalPost; override;
+    procedure InternalDelete; override;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure InternalClose; override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+//    property Params: TParams Read FParams Write SetParamsList Stored false;
+    procedure SQLiteMasterChanged; override;
+  published
+    property RawSQL: boolean read FRawSQL write FRawSQL;
+    property SQL: TStrings read GetSQL write SetSQL;
+    property UpdateSQL: TASQLite3UpdateSQL read FUpdateSQL write FUpdateSQL;
+  end;
+
+//============================================================================== TASQLite3Table
+
+  TASQLite3Table = class(TASQLite3BaseQuery)
+  private
+    FTableName: string;
+    FOrderBy : string;
+    FPrimaryAutoInc: boolean;
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure InternalOpen; override;
+    procedure InternalPost; override;
+    procedure InternalDelete; override;
+    procedure SetFTableName(TableName : string);
+    procedure SetFOrderBy(OrderBy : string);
+  public
+    procedure SQLiteMasterChanged; override;
+  published
+    property TableName: string read FTableName write SetFTableName;
+    property PrimaryAutoInc: boolean read FPrimaryAutoInc write FPrimaryAutoInc;
+    property OrderBy : string read FOrderBy write SetFOrderBy;
+  end;
+
+ //============================================================================== TASQLite3BlobStream
+
+  TASQLite3BlobStream = class(TMemoryStream)
+  private
+    FField: TBlobField;
+    FDataSet: TASQLite3BaseQuery;
+    FMode: TBlobStreamMode;
+    FModified: Boolean;
+    FOpened: Boolean;
+    procedure LoadBlobData;
+    procedure SaveBlobData;
+  public
+    constructor Create(Field: TBlobField; Mode: TBlobStreamMode);
+    destructor Destroy; override;
+    function Read(var Buffer; Count: Longint): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+  end;
+
+
+implementation
+
+uses
+  Math
+{$IFDEF ASQLITE_D6PLUS}
+  , StrUtils
+{$endif}
+  ;
+
+// GPA - Static Link Start
+{$IFDEF SQLite_Static}
+Var
+  __HandlerPtr:Pointer;
+
+  {$L 'OBJ\sqlite3.obj'}
+  {$L 'OBJ\files.obj'}
+  {$L 'OBJ\strlen.obj'}
+  {$L 'OBJ\assert.obj'}
+  {$L 'OBJ\memcmp.obj'}
+  {$L 'OBJ\memcpy.obj'}
+  {$L 'OBJ\memset.obj'}
+  {$L 'OBJ\strcmp.obj'}
+  {$L 'OBJ\strcpy.obj'}
+  {$L 'OBJ\strcat.obj'}
+  {$L 'OBJ\strncmp.obj'}
+  {$L 'OBJ\strncpy.obj'}
+  {$L 'OBJ\strncat.obj'}
+  {$L 'OBJ\sprintf.obj'}
+  {$L 'OBJ\fprintf.obj'}
+  {$L 'OBJ\_ll.obj'}
+  {$L 'OBJ\ltoupper.obj'}
+  {$L 'OBJ\ltolower.obj'}
+  {$L 'OBJ\atol.obj'}
+  {$L 'OBJ\ftol.obj'}
+  {$L 'OBJ\longtoa.obj'}
+  {$L 'OBJ\hrdir_r.obj'}
+  {$L 'OBJ\gmtime.obj'}
+  {$L 'OBJ\tzdata.obj'}
+  {$L 'OBJ\initcvt.obj'}
+  {$L 'OBJ\streams.obj'}
+  {$L 'OBJ\scantod.obj'}
+  {$L 'OBJ\scanwtod.obj'}
+  {$L 'OBJ\allocbuf.obj'}
+  {$L 'OBJ\bigctype.obj'}
+  {$L 'OBJ\clocale.obj'}
+  {$L 'OBJ\clower.obj'}
+  {$L 'OBJ\cupper.obj'}
+  {$L 'OBJ\fflush.obj'}
+  {$L 'OBJ\fputn.obj'}
+  {$L 'OBJ\hrdir_s.obj'}
+  {$L 'OBJ\mbisspc.obj'}
+  {$L 'OBJ\mbsrchr.obj'}
+  {$L 'OBJ\realcvt.obj'}
+  {$L 'OBJ\realcvtw.obj'}
+  {$L 'OBJ\timefunc.obj'}
+  {$L 'OBJ\vprinter.obj'}
+  {$L 'OBJ\hugeval.obj'}
+  {$L 'OBJ\cvtfak.obj'}
+  {$L 'OBJ\getinfo.obj'}
+  {$L 'OBJ\qmul10.obj'}
+  {$L 'OBJ\fuildq.obj'}
+  {$L 'OBJ\_pow10.obj'}
+  {$L 'OBJ\ldtrunc.obj'}
+  {$L 'OBJ\cvtfakw.obj'}
+  {$L 'OBJ\wis.obj'}
+  {$L 'OBJ\xfflush.obj'}
+  {$L 'OBJ\flushout.obj'}
+  {$L 'OBJ\lputc.obj'}
+  {$L 'OBJ\hrdir_b.obj'}
+  {$L 'OBJ\realloc.obj'}
+  {$L 'OBJ\mbctype.obj'}
+  {$L 'OBJ\xcvt.obj'}
+  {$L 'OBJ\xcvtw.obj'}
+  {$L 'OBJ\wcscpy.obj'}
+  {$L 'OBJ\errno.obj'}
+  {$L 'OBJ\ctrl87.obj'}
+  {$L 'OBJ\timedata.obj'}
+  {$L 'OBJ\int64toa.obj'}
+  {$L 'OBJ\cvtentry.obj'}
+  {$L 'OBJ\mbyte1.obj'}
+  {$L 'OBJ\errormsg.obj'}
+  {$L 'OBJ\exit.obj'}
+  {$L 'OBJ\iswctype.obj'}
+  {$L 'OBJ\heap.obj'}
+  {$L 'OBJ\memmove.obj'}
+  {$L 'OBJ\fxam.obj'}
+  {$L 'OBJ\fuistq.obj'}
+  {$L 'OBJ\qdiv10.obj'}
+  {$L 'OBJ\wmemset.obj'}
+  {$L 'OBJ\wcslen.obj'}
+  {$L 'OBJ\_tzset.obj'}
+  {$L 'OBJ\deflt87.obj'}
+  {$L 'OBJ\mbschr.obj'}
+  {$L 'OBJ\mbsrchr.obj'}
+  {$L 'OBJ\ermsghlp.obj'}
+  {$L 'OBJ\patexit.obj'}
+  {$L 'OBJ\initexit.obj'}
+  {$L 'OBJ\virtmem.obj'}
+  {$L 'OBJ\tzset.obj'}
+  {$L 'OBJ\mbisdgt.obj'}
+  {$L 'OBJ\mbsnbcpy.obj'}
+  {$L 'OBJ\platform.obj'}
+  {$L 'OBJ\getenv.obj'}
+  {$L 'OBJ\mbisalp.obj'}
+  {$L 'OBJ\abort.obj'}
+  {$L 'OBJ\signal.obj'}
+  {$L 'OBJ\clear87.obj'}
+  {$L 'OBJ\abort.obj'}
+  {$L 'OBJ\handles.obj'}
+  {$L 'OBJ\_cfinfo.obj'}
+  {$L 'OBJ\__isatty.obj'}
+  {$L 'OBJ\perror.obj'}
+  {$L 'OBJ\fputs.obj'}
+  {$L 'OBJ\files2.obj'}
+  {$L 'OBJ\ioerror.obj'}
+  {$L 'OBJ\__write.obj'}
+  {$L 'OBJ\_write.obj'}
+  {$L 'OBJ\__lseek.obj'}
+  {$L 'OBJ\ioerror.obj'}
+  {$L 'OBJ\setenvp.obj'}
+  {$L 'OBJ\calloc.obj'}
+  {$L 'OBJ\mbsnbcmp.obj'}
+  {$L 'OBJ\mbsnbicm.obj'}
+  {$L 'OBJ\is.obj'}
+  {$L 'OBJ\isctype.obj'}
+  {$L 'OBJ\bigctype.obj'}
+  {$L 'OBJ\globals.obj'}
+  {$L 'OBJ\hrdir_mf.obj'}
+  {$L 'OBJ\fpreset.obj'}
+  {$L 'OBJ\ta.obj'}
+  {$L 'OBJ\setexc.obj'}
+  {$L 'OBJ\defhandl.obj'}
+
+  function _wsprintfA:integer; external 'user32.dll' name 'wsprintfA';
+  procedure RtlUnwind; external 'NtDll.dll' name 'RtlUnwind';
+
+  function  _sqlite3_open(dbname: PAnsiChar; var db: pointer): integer; cdecl; external;
+  function  _sqlite3_close(db: pointer): integer; cdecl; external;
+  function  _sqlite3_exec(DB: Pointer; SQLStatement: PAnsiChar; Callback: TSQLite3_Callback;
+                          UserDate: Pointer; var ErrMsg: PAnsiChar): Integer; cdecl; external;
+  function  _sqlite3_libversion: PAnsiChar; cdecl; external;
+  function  _sqlite3_errmsg(db: pointer): PAnsiChar; cdecl; external;
+  function  _sqlite3_get_table(db: Pointer; SQLStatement: PAnsiChar; var ResultPtr: Pointer;
+                              var RowCount: cardinal; var ColCount: cardinal; var ErrMsg: PAnsiChar): integer; cdecl; external;
+  procedure _sqlite3_free_table(Table: PAnsiChar); cdecl; external;
+  procedure _sqlite3_free(P: PAnsiChar); cdecl; external;
+  function  _sqlite3_complete(P: PAnsiChar): boolean; cdecl; external;
+  function  _sqlite3_last_insert_rowid(db: Pointer): integer; cdecl; external;
+  procedure _sqlite3_interrupt(db: Pointer); cdecl; external;
+  procedure _sqlite3_busy_handler(db: Pointer; CallbackPtr: Pointer; Sender: TObject); cdecl; external;
+  procedure _sqlite3_busy_timeout(db: Pointer; TimeOut: integer); cdecl; external;
+  function  _sqlite3_changes(db: Pointer): integer; cdecl; external;
+  function  _sqlite3_prepare(db: Pointer; SQLStatement: PAnsiChar; nBytes: integer;
+                             var hstatement: pointer; var Tail: PAnsiChar): integer; cdecl; external;
+  function  _sqlite3_finalize(hstatement: pointer): integer; cdecl; external;
+  function  _sqlite3_reset(hstatement: pointer): integer; cdecl; external;
+  function  _sqlite3_step(hstatement: pointer): integer; cdecl; external;
+  function  _sqlite3_column_blob(hstatement: pointer; iCol: integer): pointer; cdecl; external;
+  function  _sqlite3_column_bytes(hstatement: pointer; iCol: integer): integer; cdecl; external;
+  function  _sqlite3_column_count(hstatement: pointer): integer; cdecl; external;
+  function  _sqlite3_column_decltype(hstatement: pointer; iCol: integer): PAnsiChar; cdecl; external;
+  function  _sqlite3_column_double(hstatement: pointer; iCol: integer): double; cdecl; external;
+  function  _sqlite3_column_int(hstatement: pointer; iCol: integer): integer; cdecl; external;
+  function  _sqlite3_column_int64(hstatement: pointer; iCol: integer): int64; cdecl; external;
+  function  _sqlite3_column_name(hstatement: pointer; iCol: integer): PAnsiChar; cdecl; external;
+  function  _sqlite3_column_text(hstatement: pointer; iCol: integer): PAnsiChar; cdecl; external;
+  function  _sqlite3_column_type(hstatement: pointer; iCol: integer): integer; cdecl; external;
+  function  _sqlite3_bind_blob(hstatement: pointer; iCol: integer; buf: PAnsiChar; n: integer; DestroyPtr: Pointer): integer; cdecl; external;
+
+{$ENDIF}
+// GPA - Static Link End
+
+
+{$IFDEF DEBUG_ENABLED}
+var
+  DebugSpaces       : Integer = 0;
+{$ENDIF}
+
+{$IFNDEF ASQLITE_D6PLUS} //Art Register - Function sign not provided in Delphi 5
+function Sign(I: Integer) : Integer ;
+begin
+ if (I > 0) then
+   Result := 1
+ else
+ begin
+   if (I < 0) then
+     Result := -1
+   else
+     Result := 0;
+ end;
+end;
+{$ENDIF}
+
+procedure Debug(const S: string);
+begin
+{$IFDEF DEBUG_ENABLED}
+  OutputDebugString(PAnsiChar(StringOfChar(' ', DebugSpaces) + S));
+{$ENDIF}
+end;
+
+procedure DebugEnter(const S: string);
+begin
+{$IFDEF DEBUG_ENABLED}
+  OutputDebugString(PAnsiChar(StringOfChar(' ', DebugSpaces) + 'Enter ' + S));
+  inc(DebugSpaces);
+{$ENDIF}
+end;
+
+procedure DebugLeave(const S: string);
+begin
+{$IFDEF DEBUG_ENABLED}
+  dec(DebugSpaces);
+  OutputDebugString(PAnsiChar(StringOfChar(' ', DebugSpaces) + 'Leave ' + S));
+{$ENDIF}
+end;
+
+//==============================================================================
+// SyntaxCheck. This routine is used to check if words match the sql syntax
+//              It is called where sql statements are parsed and generated
+//==============================================================================
+
+function SyntaxCheck(LWord, RWord: string): boolean;
+begin
+  DebugEnter('SyntaxCheck');
+  try
+    if CompareText(LWord, RWord) <> 0 then begin
+      SyntaxCheck := false;
+      raise AsgError.Create('SQL macro syntax error on sql, expected ' + RWord)
+    end else
+      SyntaxCheck := true;
+  finally
+    DebugLeave('SyntaxCheck');
+  end;
+end;
+
+//==============================================================================
+// Parse the SQL fielddescription and return the Delphi Field types, length etc.
+//==============================================================================
+
+procedure GetFieldInfo(FieldInfo: string; var FieldType: TFieldType;
+  var FieldLen, FieldDec: integer);
+var
+  p1, p2, pn        : integer;
+  vt                : string;
+begin
+  DebugEnter('GetFieldInfo');
+  FieldType := ftString;                // just a default;
+  FieldLen := 255;
+  FieldDec := 0;
+
+  p1 := pos('(', FieldInfo);
+  if p1 <> 0 then
+  begin
+    p2 := pos(')', FieldInfo);
+    if p2 <> 0 then
+    begin
+      vt := LowerCase(Copy(FieldInfo, 1, p1 - 1));
+      if (vt = 'varchar') or (vt = 'char') or (vt = 'varchar2') then begin
+        FieldType := ftString;
+        FieldLen := StrToInt(Copy(FieldInfo, p1 + 1, p2 - p1 - 1));
+      end else if (vt = 'nvarchar') or (vt = 'nchar') or (vt = 'nvarchar2') then begin
+        FieldType := ftWideString;
+        FieldLen := StrToInt(Copy(FieldInfo, p1 + 1, p2 - p1 - 1)) * 2;
+      end else if (vt = 'numeric') then begin
+        vt := Copy(FieldInfo, p1 + 1, p2 - p1 - 1);
+        pn := pos('.', vt); if pn = 0 then pn := pos(',', vt);
+        FieldType := ftFloat;
+        if pn = 0 then begin
+          FieldLen := StrToInt(vt);
+          FieldDec := 0;
+        end else begin
+          FieldLen := StrToInt(Copy(vt, 1, pn - 1));
+          FieldDec := StrToInt(Copy(vt, pn + 1, 2));
+        end;
+      end;
+    end
+    else
+      FieldLen := 256;
+  end
+  else
+  begin
+    vt := LowerCase(FieldInfo);
+    if vt = 'date' then
+    begin
+      FieldType := ftDate;
+      FieldLen := 10;
+    end
+    else if vt = 'datetime' then
+    begin
+      FieldType := ftDateTime;          // fpierce original ftDate
+      FieldLen := 24;                   // aducom
+    end
+    else if vt = 'time' then
+    begin
+      FieldType := ftTime;
+      FieldLen := 12;
+    end
+{$IFDEF ASQLITE_D6PLUS}
+    else if vt = 'timestamp' then
+    begin
+      FieldType := ftTimeStamp;
+      FieldLen := 12;
+    end
+{$ENDIF}
+    else if (vt = 'integer') or (vt = 'int')  then
+    begin
+      FieldType := ftInteger;
+      FieldLen := 12;
+    end
+    else if (vt = 'float') or (vt = 'real') then
+    begin
+      FieldType := ftFloat;
+      FieldLen := 12;
+    end
+    else if (vt = 'boolean') or (vt = 'logical') then
+    begin
+      FieldType := ftBoolean;
+      FieldLen := 2;
+    end
+    else if (vt = 'char') or (vt = 'byte') then
+    begin
+      FieldType := ftString;
+      FieldLen := 1;
+    end
+    else if (vt = 'shorttext') or (vt = 'string') then
+    begin
+      FieldType := ftString;
+      FieldLen := 255;
+    end
+    else if (vt = 'widetext') or (vt = 'widestring') then
+    begin
+      FieldType := ftWideString;
+      FieldLen := 512;
+    end
+    else if (vt = 'currency') or (vt = 'financial') or (vt = 'money') then
+    begin
+      FieldType := ftCurrency;
+      FieldLen := 10;
+    end
+    else if (vt = 'blob') then
+    begin
+      FieldType := ftBlob;
+      FieldLen := SizeOf(Pointer);
+    end
+    else if (vt = 'graphic') then
+    begin
+      FieldType := ftGraphic;
+      FieldLen := SizeOf(Pointer);
+    end
+    else if (vt = 'clob') or (vt = 'memo') or (vt = 'text') or (vt = 'longtext') then
+    begin
+      FieldType := ftMemo;
+      FieldLen := SizeOf(Pointer);
+    end;
+  end;
+  DebugLeave('GetFieldInfo: ' + vt);
+end;
+
+ //==============================================================================
+ // Convert TDateTime to TDateTimeRec
+ //==============================================================================
+
+function DateTimeToNative(DataType: TFieldType; Data: TDateTime): TDateTimeRec;
+var
+  TimeStamp         : TTimeStamp;
+begin
+  DebugEnter('DateTimeToNative');
+  TimeStamp := DateTimeToTimeStamp(Data);
+  case DataType of
+    ftDate: Result.Date := TimeStamp.Date;
+    ftTime: Result.Time := TimeStamp.Time;
+  else
+    Result.DateTime := TimeStampToMSecs(TimeStamp);
+  end;
+  DebugLeave('DateTimeToNative');
+end;
+
+procedure ApplicationHandleException(Sender: TObject);
+begin
+{$IFDEF ASQLITE_D6PLUS}
+  if Assigned(Classes.ApplicationHandleException) then
+    Classes.ApplicationHandleException(Sender);
+{$ENDIF}
+end;
+
+//============================================================================== TASQLite3LOG
+
+procedure TASQLite3Log.Display(Msg: string);
+var
+  fn                : Textfile;
+begin
+  DebugEnter('TASQLite3Log.Display');
+  if FileExists(FLogFile) then
+  begin
+    if FAppend then
+    begin
+      AssignFile(fn, FLogFile);
+      System.Append(fn);
+    end
+    else
+    begin
+      SysUtils.DeleteFile(FLogFile);
+      AssignFile(fn, FLogFile);
+      Rewrite(fn);
+    end;
+  end
+  else
+  begin
+    AssignFile(fn, FLogFile);
+    Rewrite(fn);
+  end;
+  Writeln(fn, FormatDateTime('yyyy mmm dd (hh:nn:ss) ', now) + Msg);
+  CloseFile(fn);
+  DebugLeave('TASQLite3Log.Display');
+end;
+
+//============================================================================== TASQLite3PRAGMA
+
+function TASQLite3Pragma.GetTempCacheSize: string;
+begin
+  DebugEnter('TASQLite3Pragma.GetTempCacheSize');
+  GetTempCacheSize := 'pragma cache_size=' + IntToStr(FTempCacheSize);
+  DebugLeave('TASQLite3Pragma.GetTempCacheSize');
+end;
+
+function TASQLite3Pragma.GetDefaultCacheSize: string;
+begin
+  DebugEnter('TASQLite3Pragma.GetDefaultCacheSize');
+  GetDefaultCacheSize := 'pragma default_cache_size=' + IntToStr(FDefaultCacheSize);
+  DebugLeave('TASQLite3Pragma.GetDefaultCacheSize');
+end;
+
+function TASQLite3Pragma.GetDefaultSynchronous: string;
+begin
+  DebugEnter('TASQLite3Pragma.GetDefaultSynchronous');
+  GetDefaultSynchronous := 'pragma default_synchronous=' + FDefaultSynchronous;
+  DebugLeave('TASQLite3Pragma.GetDefaultSynchronous');
+end;
+
+function TASQLite3Pragma.GetDefaultTempStore: string;
+begin
+  DebugEnter('TASQLite3Pragma.GetDefaultTempStore');
+  GetDefaultTempStore := 'pragma default_temp_store=' + FDefaultTempStore;
+  DebugLeave('TASQLite3Pragma.GetDefaultTempStore');
+end;
+
+function TASQLite3Pragma.GetTempStore: string;
+begin
+  DebugEnter('TASQLite3Pragma.GetTempStore');
+  GetTempStore := 'pragma temp_store=' + FTempStore;
+  DebugLeave('TASQLite3Pragma.GetTempStore');
+end;
+
+function TASQLite3Pragma.GetSynchronous: string;
+begin
+  DebugEnter('TASQLite3Pragma.GetSynchronous');
+  GetSynchronous := 'pragma synchronous=' + FSynchronous;
+  DebugLeave('TASQLite3Pragma.GetSynchronous');
+end;
+
+ //============================================================================== TFRESULT
+ // TResult is a representation of an internal pointerlist of results.
+ // Only 'normal' results will be stored internally within a fixed memory block
+ // depending on calculated length internally. This is not the case
+ // for blobs and clobs. In this case only the handle is stored in the fixed
+ // structure and a separate memory handle is retrieved to store the blob and
+ // clob data. This is because the blobs are stored as null terminated 'strings'
+ // and thus have different lengths. No more memory is allocated this way than
+ // strictly necessary.
+ // KEEP IN MIND: ...
+ //     This resultset is NOT used for unidirectional search results. You can
+ //     however, open a dbgrid containing griddata. You cannot update your data
+ //     if you use the unidirectional the result is read-only by default and cannot
+ //     be changed.
+ //     The unidirectional dataset improves performance on large resultsets and
+ //     is to be considered for query-only components...
+ //==============================================================================
+
+constructor TFResult.Create(TheDataSet: TASQLite3BaseQuery);
+begin
+  DebugEnter('TFResult.Create');
+  Data := TList.Create;
+  Bookmark := TList.Create;
+  RowId := TList.Create;
+  FDataSet := TheDataset;
+  FLastBookmark := -1;                  // 2004-14-09 (rps) 0 -> -1 (otherwise insert in an empty table gives index out of range)
+  DebugLeave('TFResult.Create');
+end;
+
+destructor TFResult.Destroy;
+var
+  ptr               : Pointer;
+  i                 : integer;
+begin
+  DebugEnter('TFResult.Destroy');
+  FreeBlobs;
+  if Assigned(Data) then begin
+    for i := 0 to Data.Count - 1 do begin
+      ptr := Data.Items[i];
+      if Assigned(ptr) then FreeMem(ptr, FBufSize);
+    end;
+    Data.Free;                          // D4 compatibility, otherwise FreeAndNil could be used
+    Data := nil;
+  end;
+
+  if Assigned(Bookmark) then begin
+    Bookmark.Free;
+    Bookmark := nil;
+  end;
+
+  if Assigned(RowId) then begin
+    RowId.Free;
+    RowId := nil;
+  end;
+
+  DebugLeave('TFResult.Destroy');
+end;
+
+procedure TFResult.FreeBlobs;
+var i, j            : integer;
+  offset            : integer;
+  ptr               : PAnsiChar;
+  stream            : TMemoryStream;
+begin
+  if not Assigned(FDataSet) then exit;
+  if not Assigned(FDataSet.FieldList) then exit;
+  for j := 0 to Data.Count - 1 do begin
+    ptr := GetData(j);
+    for i := 0 to FDataSet.FieldList.Count - 1 do begin
+      if FDataSet.FieldList[i].DataType in [ftMemo, ftFmtMemo, ftGraphic, ftBlob] then begin
+        Offset := FDataset.GetFieldOffset(FDataSet.FieldList[i].FieldNo);
+        Move((ptr + Offset)^, Pointer(Stream), sizeof(Pointer));
+        Stream.Free;
+      end;
+    end;
+  end;
+end;
+
+procedure TFResult.SetBufSize(TheSize: integer);
+begin
+  DebugEnter('TFResult.SetBufSize');
+  FBufSize := TheSize;
+  DebugLeave('TFResult.SetBufSize');
+end;
+
+//==============================================================================
+// Adds a row of data to the resultset.
+//==============================================================================
+
+procedure TFResult.Add(TheBuffer: PAnsiChar; TheRowId: integer);
+var
+  ptr               : PAnsiChar;
+//  i:   integer;
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TFResult.Add');
+{$ENDIF}
+  Inc(FLastBookmark);
+  GetMem(Ptr, FBufSize);
+  move(TheBuffer^, ptr^, FBufSize);
+  Data.Add(Ptr);
+  Bookmark.Add(Pointer(FLastBookMark));
+  if TheRowId >= 0 then
+    RowId.Add(Pointer(TheRowId))
+  else
+    RowId.Add(Pointer(RowId.Count));
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TFResult.Add');
+{$ENDIF}
+end;
+
+//==============================================================================
+// Inserts a row of date into the resultset
+//==============================================================================
+
+procedure TFResult.Insert(Index: integer; TheBuffer: pointer; TheRowId: integer);
+var
+  ptr               : Pointer;
+begin
+  DebugEnter('TFResult.Insert');
+  Inc(FLastBookmark);
+  GetMem(Ptr, FBufSize);
+  move(TheBuffer^, ptr^, FBufSize);
+  if Data.Count < Index then begin
+    Data.Add(Ptr);
+    Bookmark.Add(Pointer(FLastBookMark));
+    RowId.Add(Pointer(TheRowId));
+  end else begin
+    Data.Insert(Index, Ptr);
+    Bookmark.Insert(Index, Pointer(FLastBookMark));
+    RowId.Insert(Index, Pointer(TheRowId));
+  end;
+  DebugLeave('TFResult.Insert');
+end;
+
+//==============================================================================
+// Deletes a row of data from the resultset
+//==============================================================================
+
+procedure TFResult.Delete(Index: integer);
+var
+  ptr               : pointer;
+begin
+  DebugEnter('TFResult.Delete');
+  if not ((Index < 0) or (Index >= Data.Count)) then
+  begin
+    ptr := Data.Items[Index];
+    if ptr <> nil then
+      FreeMem(ptr, FBufSize);
+    Data.Delete(Index);
+    Bookmark.Delete(Index);
+    Rowid.Delete(Index);
+  end;
+  DebugLeave('TFResult.Delete');
+end;
+
+//==============================================================================
+// Returns a row from the resultset
+//==============================================================================
+
+function TFResult.GetData(Index: integer): Pointer;
+begin
+  DebugEnter('TFResult.GetData');
+  if (Index < 0) or (Index >= Data.Count) then
+    GetData := nil
+  else
+    GetData := Data.Items[Index];
+  DebugLeave('TFResult.GetData');
+end;
+
+function TFResult.GetBookmark(Index: integer): integer;
+begin
+  DebugEnter('TFResult.GetBookmark');
+  if (Index < 0) or (Index >= Data.Count) then
+    GetBookmark := -1
+  else
+    GetBookmark := integer(Bookmark.Items[Index]);
+  DebugLeave('TFResult.GetBookmark');
+end;
+
+function TFResult.GetRowId(Index: integer): integer;
+begin
+  DebugEnter('TFResult.GetRowId');
+  if (Index < 0) or (Index >= RowId.Count) then
+    GetRowId := -1
+  else
+    GetRowId := integer(RowId.Items[Index]);
+  DebugLeave('TFResult.GetRowId');
+end;
+
+function TFResult.Count: integer;
+begin
+  Count := Data.Count;
+end;
+
+function TFResult.IndexOf(TheBookMark: pointer): integer;
+begin
+  Result := BookMark.IndexOf(TheBookmark);
+end;
+
+//============================================================================== ASQLITEDB
+
+procedure TASQLite3DB.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3DB.Notification');
+{$ENDIF}
+//  Application.ProcessMessages;
+  if Assigned(AComponent) then
+  begin
+    if (Operation = opRemove) then
+    begin
+      if (AComponent is TASQLite3Pragma) then begin
+        if Assigned(FASQLitePragma) then begin
+          if TASQLite3Pragma(AComponent) = FASQLitePragma then
+            FASQLitePragma := nil;
+        end;
+      end
+      else if (AComponent is TASQLite3Log) then
+      begin
+        if Assigned(FASQLiteLog) then begin
+          if TASQLite3Log(AComponent) = FASQLiteLog then
+            FASQLiteLog := nil;
+        end;
+      end
+      else if (AComponent is TASQLite3InlineSQL) then
+      begin
+        if Assigned(FInlineSQL) then begin
+          if TASQLite3InlineSQL(AComponent) = FInlineSQL then
+            FInlineSQL := nil;
+        end;
+      end;
+    end;
+  end;
+  inherited;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3DB.Notification');
+{$ENDIF}
+end;
+
+function TASQLite3DB.LoadLibs: boolean;
+begin
+  try
+    DebugEnter('TASQLite3DB.LoadLibs');
+    if not(DecimalSeparator in ['.',',']) then
+       DecimalSeparator := '.';
+
+    Debug('loading sqlite lib');
+{$IFNDEF SQLite_Static}
+    Debug(PAnsiChar(DriverDLL));
+    Result := false;
+    DLLHandle := LoadLibrary(PAnsiChar(DriverDLL));  //JohnLito
+    if DLLHandle <> 0 then
+    begin
+      @SQLite3_Open := GetProcAddress(DLLHandle, 'sqlite3_open');
+      if not Assigned(@SQLite3_Open) then exit;
+      @SQLite3_Close := GetProcAddress(DLLHandle, 'sqlite3_close');
+      if not Assigned(@SQLite3_Close) then exit;
+      @SQLite3_Exec := GetProcAddress(DLLHandle, 'sqlite3_exec');
+      if not Assigned(@SQLite3_Exec) then exit;
+      @SQLite3_LibVersion := GetProcAddress(DLLHandle, 'sqlite3_libversion');
+      if not Assigned(@SQLite3_LibVersion) then exit;
+      @SQLite3_ErrorString := GetProcAddress(DLLHandle, 'sqlite3_errmsg');
+      if not Assigned(@SQLite3_ErrorString) then exit;
+      @SQLite3_GetTable := GetProcAddress(DLLHandle, 'sqlite3_get_table');
+      if not Assigned(@SQLite3_GetTable) then exit;
+      @SQLite3_FreeTable := GetProcAddress(DLLHandle, 'sqlite3_free_table');
+      if not Assigned(@SQLite3_FreeTable) then exit;
+      @SQLite3_FreeMem := GetProcAddress(DLLHandle, 'sqlite3_free');
+      if not Assigned(@SQLite3_FreeMem) then exit;
+      @SQLite3_Complete := GetProcAddress(DLLHandle, 'sqlite3_complete');
+      if not Assigned(@SQLite3_Complete) then exit;
+      @SQLite3_LastInsertRow := GetProcAddress(DLLHandle, 'sqlite3_last_insert_rowid');
+      if not Assigned(@SQLite3_LastInsertRow) then exit;
+      @SQLite3_Cancel := GetProcAddress(DLLHandle, 'sqlite3_interrupt');
+      if not Assigned(@SQLite3_Cancel) then exit;
+      @SQLite3_BusyTimeout := GetProcAddress(DLLHandle, 'sqlite3_busy_timeout');
+      if not Assigned(@SQLite3_BusyTimeout) then exit;
+      @SQLite3_BusyHandler := GetProcAddress(DLLHandle, 'sqlite3_busy_handler');
+      if not Assigned(@SQLite3_BusyHandler) then exit;
+      @SQLite3_Changes := GetProcAddress(DLLHandle, 'sqlite3_changes');
+      if not Assigned(@SQLite3_Changes) then exit;
+      @SQLite3_Prepare := GetProcAddress(DLLHandle, 'sqlite3_prepare');
+      if not Assigned(@SQLite3_Prepare) then exit;
+      @SQLite3_Finalize := GetProcAddress(DLLHandle, 'sqlite3_finalize');
+      if not Assigned(@SQLite3_Finalize) then exit;
+      @SQLite3_Reset := GetProcAddress(DLLHandle, 'sqlite3_reset');
+      if not Assigned(@SQLite3_Reset) then exit;
+      @SQLite3_Step := GetProcAddress(DLLHandle, 'sqlite3_step');
+      if not Assigned(@SQLite3_Step) then exit;
+      @SQLite3_Column_blob := GetProcAddress(DLLHandle, 'sqlite3_column_blob');
+      if not Assigned(@SQLite3_Column_blob) then exit;
+      @SQLite3_Column_bytes := GetProcAddress(DLLHandle, 'sqlite3_column_bytes');
+      if not Assigned(@SQLite3_Column_bytes) then exit;
+      @SQLite3_Column_count := GetProcAddress(DLLHandle, 'sqlite3_column_count');
+      if not Assigned(@SQLite3_Column_Count) then exit;
+      @SQLite3_Column_decltype := GetProcAddress(DLLHandle, 'sqlite3_column_decltype');
+      if not Assigned(@SQLite3_Column_decltype) then exit;
+      @SQLite3_Column_double := GetProcAddress(DLLHandle, 'sqlite3_column_double');
+      if not Assigned(@SQLite3_Column_double) then exit;
+      @SQLite3_Column_int := GetProcAddress(DLLHandle, 'sqlite3_column_int');
+      if not Assigned(@SQLite3_Column_int) then exit;
+      @SQLite3_Column_int64 := GetProcAddress(DLLHandle, 'sqlite3_column_int64');
+      if not Assigned(@SQLite3_Column_int64) then exit;
+      @SQLite3_Column_name := GetProcAddress(DLLHandle, 'sqlite3_column_name');
+      if not Assigned(@SQLite3_Column_name) then exit;
+      @SQLite3_Column_text := GetProcAddress(DLLHandle, 'sqlite3_column_text');
+      if not Assigned(@SQLite3_Column_text) then exit;
+      @SQLite3_Column_text16 := GetProcAddress(DLLHandle, 'sqlite3_column_text16');
+      if not Assigned(@SQLite3_Column_text16) then exit;
+      @SQLite3_Column_type := GetProcAddress(DLLHandle, 'sqlite3_column_type');
+      if not Assigned(@SQLite3_Column_type) then exit;
+      @SQLite3_Bind_Blob := GetProcAddress(DLLHandle, 'sqlite3_bind_blob');
+      if not Assigned(@SQLite3_Bind_blob) then exit;
+      @SQLite3_Bind_Text16 := GetProcAddress(DLLHandle, 'sqlite3_bind_text16');
+      if not Assigned(@SQLite3_Bind_Text16) then exit;
+      @SQLite3_Bind_Parameter_Count := GetProcAddress(DLLHandle, 'sqlite3_bind_parameter_count');
+      if not Assigned(@SQLite3_Bind_Parameter_Count) then exit;
+
+      Result := true;
+    end;
+    {$ELSE}
+      DllHandle := 1;
+      @SQLite3_Open := @_sqlite3_open;
+      @SQLite3_Close := @_sqlite3_close;
+      @SQLite3_Exec := @_sqlite3_exec;
+      @SQLite3_LibVersion := @_sqlite3_libversion;
+      @SQLite3_ErrorString := @_sqlite3_errmsg;
+      @SQLite3_GetTable := @_sqlite3_get_table;
+      @SQLite3_FreeTable := @_sqlite3_free_table;
+      @SQLite3_FreeMem := @_sqlite3_free;
+      @SQLite3_Complete := @_sqlite3_complete;
+      @SQLite3_LastInsertRow := @_sqlite3_last_insert_rowid;
+      @SQLite3_Cancel := @_sqlite3_interrupt;
+      @SQLite3_BusyTimeout := @_sqlite3_busy_timeout;
+      @SQLite3_BusyHandler := @_sqlite3_busy_handler;
+      @SQLite3_Changes := @_sqlite3_changes;
+      @SQLite3_Prepare := @_sqlite3_prepare;
+      @SQLite3_Finalize := @_sqlite3_finalize;
+      @SQLite3_Reset := @_sqlite3_reset;
+      @SQLite3_Step := @_sqlite3_step;
+      @SQLite3_Column_blob := @_sqlite3_column_blob;
+      @SQLite3_Column_bytes := @_sqlite3_column_bytes;
+      @SQLite3_Column_count := @_sqlite3_column_count;
+      @SQLite3_Column_decltype := @_sqlite3_column_decltype;
+      @SQLite3_Column_double := @_sqlite3_column_double;
+      @SQLite3_Column_int := @_sqlite3_column_int;
+      @SQLite3_Column_int64 := @_sqlite3_column_int64;
+      @SQLite3_Column_name := @_sqlite3_column_name;
+      @SQLite3_Column_text := @_sqlite3_column_text;
+      @SQLite3_Column_type := @_sqlite3_column_type;
+      @SQLite3_Bind_Blob := @_sqlite3_bind_blob;
+      Result := true;
+    {$ENDIF}
+  finally
+    DebugLeave('TASQLite3DB.LoadLibs');
+  end;
+end;
+
+procedure TASQLite3DB.ShowError;
+var msg             : PAnsiChar;
+begin
+  msg := SQLite3_ErrorString(DBHandle);
+  raise EDatabaseError.Create(msg);
+end;
+
+function TASQLite3DB.SQLite3_ExecSQL(TheStatement: string; Blobs: TList=nil): integer;
+var
+ PF: PAnsiChar;
+ p: Pointer;
+ i: Integer;
+ b: Integer;
+ m: TMemoryStream;
+begin
+ TheStatement := StringReplace(TheStatement, #2, '?', [rfReplaceAll, rfIgnoreCase]);
+ PF := PAnsiChar(TheStatement);
+ repeat
+   Result := SQLite3_Prepare(DBHandle, PF, -1, p, PF);
+   if Result = SQLITE_OK then
+     begin
+       if Assigned(Blobs) then begin
+         for i := 0 to Blobs.Count - 1 do Begin
+           b := i+1;
+           m := TMemoryStream(Blobs.Items[i]);
+           SQLite3_Bind_Blob(p, b, PChar(m.Memory), m.Size, nil);
+         End;
+       end;
+       repeat
+       until SQLite3_Step(p) in [SQLITE_DONE, SQLITE_ERROR, SQLITE_MISUSE];
+       Result := SQLite3_Finalize(p);
+       if Result <> SQLITE_OK then ShowError;
+     end
+   else
+     ShowError;
+ until PF^ = #0;
+end;
+
+function TASQLite3DB.SQLite3_PrepareResult(DB: Pointer; TheStatement: string; FParams: TParams; Sender: TObject): Pointer;
+var
+  i,tmpi: Integer;
+  t: PAnsiChar;
+  RV: Integer;
+//  RowIdCol: Integer; // column containing rowid
+//  RowId: Integer; // current record row id (to be stored in resultset)
+  colname, coltype: PChar;
+  tmpcolname:string;
+  FieldType: TFieldType;
+  FieldLen: Integer;
+  FieldDec: Integer;
+  bFirst: Boolean;
+  wildcard: Integer;
+begin
+  if not (Sender is TASQLite3BaseQuery) then Exit;
+
+  with (Sender as TASQLite3BaseQuery) do begin
+         // if there are blob fields then we need to bind the blob variable
+        RowId := -1;
+        RowIdCol := -1;
+        TheStatement := StringReplace(TheStatement, #2, '?', [rfReplaceAll, rfIgnoreCase]);
+
+        bFirst := True;
+{$IFDEF ASQLITE_D6PLUS}
+        if FUtf8 then
+           RV := SQLite3_Prepare(DBHandle, PAnsiChar(AnsiToUtf8(TheStatement)), -1, result, t)
+        else
+{$endif}
+           RV := SQLite3_Prepare(DBHandle, PAnsiChar(TheStatement), -1, result, t);
+
+          wildcard := 1;
+          if Assigned(FParams) then begin
+              for i := 0 to FParams.Count - 1 do begin
+                  if FParams[i].DataType in [ftBlob, ftGraphic] then begin
+                      SQLite3_Bind_Blob(result, wildcard, PChar(FParams[i].AsBlob), FParams[i].GetDataSize, nil);
+                      Inc(wildcard);
+                    end;
+                end;
+            end;
+
+          if RV <> 0 then ShowError else begin
+              if bFirst then begin // retrieve metadata on first row
+                  bFirst := False;
+                  if SQLite3_Column_count(result) > 0 then FieldDefs.Clear;
+                  for i := 0 to SQLite3_Column_count(result) - 1 do begin
+                      colname := SQLite3_Column_name(result, i);
+
+                  // the second field named "ID", change in "ID_1" (like InterBase)
+                      if (FieldDefs.IndexOf(colname) >= 0) then begin           // Mirko
+                         tmpColName := colname;                                 // Mirko
+                         tmpI := 0;                                             // Mirko
+                         while (FieldDefs.IndexOf(tmpcolname) >= 0) do begin    // Mirko
+                           inc(tmpI);                                           // Mirko
+                           tmpColName := colname + '_' + inttostr(tmpI);        // Mirko
+                         end;                                                   // Mirko
+                         colName := PChar(tmpColName);                          // Mirko
+                      end;                                                      // Mirko
+
+                      if CompareText(colname, 'rowid') = 0 then begin
+                          RowIdCol := i;
+                        end else begin
+                          coltype := SQLite3_Column_decltype(result, i);
+                          //SQl: select max(CurID) from Items, sqlite3_column_decltype returns null.. it's probably SQLite bug
+                          // better is to use max(CurID) as something from .... Aducom
+                          if coltype = nil then
+                            GetFieldInfo('string', FieldType, FieldLen, FieldDec) //OL
+                          else
+                            GetFieldInfo(coltype, FieldType, FieldLen, FieldDec);
+                          if TypeLess then begin
+                              FieldType := ftString;
+                              with FieldDefs.AddFieldDef do begin
+                                  Name := colname;
+                                  DataType := FieldType;
+                                  Size := FieldLen;
+                                end;
+                            end else begin
+                              with FieldDefs.AddFieldDef do begin
+                                  if FieldType <> ftString then begin
+                                      Name := colname;
+                                      DataType := FieldType;
+                                      if FieldType = ftFloat then
+                                        Precision := FieldDec;
+                                    end else begin
+                                      Name := colname;
+                                      DataType := FieldType;
+                                      Size := FieldLen;
+                                    end;
+                                end;
+                            end;
+                          MaxStrLen := MaxStrLen + GetNativeFieldSize(i + 1); // compensate for terminating zero
+                          FResult.SetBufSize(MaxStrLen + 1 + SizeOf(TBookMark));
+                        end;
+                    end;
+                end;
+              end;
+          end;
+end;
+
+function TASQLite3DB.SQLite3_GetNextResult(DB: Pointer; TheStatement: pointer; FParams: TParams; Sender: TObject) : pointer;
+var
+  i : integer;
+  minmin : integer;
+  RV: Integer;
+  mv: Integer;
+//  RowIdCol: Integer; // column containing rowid
+  convertbuf: TConvertBuffer;
+  pData: PAnsiChar;
+  BlobStream: TMemoryStream;
+begin
+  result := nil;
+  with (Sender as TASQLite3BaseQuery) do begin
+
+                FillChar(ResultStr^, MaxBuf, 0);
+                RV := SQLite3_Step(theStatement);
+                if RV = SQLITE_ROW then begin
+
+                    // retrieve data
+                    if (Sender is TASQLite3Query) then
+                        MinMin := 1
+                    else
+                        MinMin := 1; // compensate for 'rowid'
+                    for i := 0 to SQLite3_Column_count(theStatement) - MinMin do begin
+                        if i = RowIdCol then begin // just save rowid
+                            RowId := SQLite3_Column_int(theStatement, i);
+                          end else begin
+
+// ok, i can find-out that the fiels is null but.... eh....
+//                            if SQLite3_column_type(theStatement, i) = 5 then begin
+//                            end;
+
+                            pData := SQLite3_Column_text(theStatement, i);
+                            if pData = nil then pData := ''; // james
+                            if FTypeLess then begin
+                                mv := GetNativeFieldSize(i + 1);
+                                if StrLen(pData) < Cardinal(mv) then
+                                  mv := StrLen(pData);
+                                Move(pData^, (ResultStr + GetFieldOffset(i + 1))^, mv);
+                            end else begin
+                                case FieldDefs[i].DataType of // DI
+                                  ftString: // DI
+                                    begin // DI
+                                      mv := GetNativeFieldSize(i + 1);
+                                      if pData <> nil then //OL
+                                        begin
+                                          if StrLen(pData) < Cardinal(mv) then
+                                             mv := StrLen(pData)+1;  // plus onennnnnnnnnnnnnnnn
+                                          Move(pData^, (ResultStr + GetFieldOffset(i + 1))^, mv);
+                                        end;
+                                    end; // DI
+                                  ftMemo, ftGraphic, ftFmtMemo, ftBlob: // DI
+                                    begin // DI
+                                      // create memory stream to save blob;
+                                      pData := SQLite3_Column_blob(theStatement, i);
+                                      BlobStream := TMemoryStream.Create;
+                                      if pData <> nil then
+                                        BlobStream.Write(pData^, SQLite3_Column_bytes(theStatement, i))
+                                      else begin
+                                          pData := '';
+                                          BlobStream.Write(pData^, 0);
+                                        end;
+                                      Move(BlobStream, (ResultStr + GetFieldOffset(i + 1))^, SizeOf(BlobStream));
+                                    end; // DI
+                                else // DI
+                                  begin // DI
+                                    convertbuf := UnpackBuffer(pData, FieldDefs[i].DataType);
+                                    Move(convertbuf, (ResultStr + GetFieldOffset(i + 1))^, GetFieldSize(i + 1));
+                                  end;
+                                end;
+                            end;
+                          end
+                      end;
+                    Result := ResultStr;
+                  end;
+              if RV in [SQLITE_DONE] then result := nil;
+              if RV in [SQLITE_ERROR, SQLITE_MISUSE] then //f.e. inserting NULL in field declared as NOT NULL
+                ShowError;
+            end;
+end;
+
+procedure TASQLite3DB.SQLite3_CloseResult(TheStatement : pointer);
+var RV : integer;
+begin
+    if TheStatement <> nil then begin
+       SQLite3_Reset(TheStatement);
+       RV := SQLite3_Finalize(TheStatement);
+       if RV <> 0 then raise AsgError.Create('SQLiteExecute error: ' + IntToStr(RV));
+    end;
+end;
+
+function TASQLite3DB.SQLite3_Execute(DB: Pointer; TheStatement: string; FParams: TParams; Sender: TObject): Integer;
+var
+  p: Pointer;
+  RowIdCol: Integer; // column containing rowid
+{$IFDEF ASQLITE_D6PLUS}
+  Cursor: TDBScreenCursor;
+{$endif}
+begin
+  SQLite3_Execute := 0;
+  RowIdCol := -1;
+  if not (Sender is TASQLite3BaseQuery) then Exit;
+  try
+    with (Sender as TASQLite3BaseQuery) do begin
+{$IFDEF ASQLITE_D6PLUS}
+     if Assigned(DBScreen) and (FSQLCursor) then begin
+       Cursor := DBScreen.Cursor;
+       DBScreen.Cursor := dcrSQLWait;
+     end;
+{$endif}
+    RowId := -1;
+
+    FStatement := Connection.SQLite3_PrepareResult(Connection.DBHandle, PAnsiChar(TheStatement),FParams, Sender);
+
+    repeat
+       p := Connection.SQLite3_GetNextResult(Connection.DBHandle, FStatement, FParams, Sender);
+       if p <> nil then
+          FResult.Add(ResultStr, RowId);
+    until p = nil;
+
+    Connection.SQLite3_CloseResult(FStatement);
+    FStatement := nil;
+    end;
+  finally
+{$IFDEF ASQLITE_D6PLUS}
+    if Assigned(DBScreen) and ((Sender as TASQLite3BaseQuery).FSQLCursor) then begin
+        DBScreen.Cursor := Cursor;
+        if DBScreen.Cursor = dcrSQLWait then
+           DBScreen.Cursor := dcrDefault;
+    end;
+{$endif}
+
+  end;
+end;
+
+function TASQLite3DB.FGetDriverDLL: string;
+begin
+  DebugEnter('TASQLite3DB.FGetDriverDLL');
+  if FDriverDLL = '' then
+    FDriverDLL := 'SQLite3.dll';
+  FGetDriverDLL := FDriverDLL;
+  DebugLeave('TASQLite3DB.FGetDriverDLL');
+end;
+
+function TASQLite3DB.FGetDefaultExt: string;
+begin
+  DebugEnter('TASQLite3DB.FGetDefaultExt');
+  if FDefaultExt = '' then
+    FDefaultExt := '.sqb';
+  FGetDefaultExt := FDefaultExt;
+  DebugLeave('TASQLite3DB.FGetDefaultExt');
+end;
+
+procedure TASQLite3DB.FSetDatabase(Database: string);
+begin
+  DebugEnter('TASQLite3DB.FSetDatabase ' + Database);
+  FDatabase := Trim(Database);
+  if ExtractFileExt(FDataBase)='' Then  // GPA
+     FDatabase:=FDataBase+FDefaultExt;  // GPA
+  DebugLeave('TASQLite3DB.FSetDatabase');
+end;
+
+procedure TASQLite3DB.ShowDatabases(List: TStrings);
+var
+  sr                : TSearchRec;
+begin
+  DebugEnter('TASQLite3DB.ShowDatabases');
+  if DefaultExt = '' then
+    DefaultExt := '.sqb';
+  if DefaultExt[1] <> '.' then
+    DefaultExt := '.' + DefaultExt;
+  if DefaultDir <> '' then
+    if DefaultDir[Length(DefaultDir)] <> '\' then
+      DefaultDir := DefaultDir + '\';
+  if FindFirst(FDefaultDir + '*' + DefaultExt, faAnyFile, sr) = 0 then
+  begin
+    repeat
+      List.Add(sr.Name);
+    until FindNext(sr) <> 0;
+    SysUtils.FindClose(sr);
+  end;
+  DebugLeave('TASQLite3DB.ShowDatabases');
+end;
+
+procedure TASQLite3DB.GetTableNames(List: TStrings; SystemTables: boolean = false);
+var
+  ResultPtr         : Pointer;
+  ResultStr         : ^Pointer;
+  RowCount          : cardinal;
+  ColCount          : cardinal;
+  ErrMsg            : PAnsiChar;
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3DB.GetTableNames');
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    SQLite3_GetTable(DBHandle, PAnsiChar(
+      'SELECT name FROM sqlite_master WHERE type="table" ORDER BY name'),
+      ResultPtr, RowCount, ColCount, ErrMsg);
+
+    ResultStr := ResultPtr;
+    List.Clear;
+    Inc(ResultStr);                     // ignore header
+    for i := 1 to RowCount do
+    begin
+      if (CompareText('name', PAnsiChar(ResultStr^)) <> 0) then
+        List.Add(PAnsiChar(ResultStr^));
+      Inc(ResultStr);
+    end;
+    if Assigned(ResultPtr) then SQLite3_FreeTable(ResultPtr);
+  end;
+  DebugLeave('TASQLite3DB.GetTableNames');
+end;
+
+procedure TASQLite3DB.GetIndexFieldNames(IndexName: string; List: TStrings);
+var
+  ResultPtr         : Pointer;
+  ResultStr         : ^Pointer;
+  RowCount          : cardinal;
+  ColCount          : cardinal;
+  ErrMsg            : PAnsiChar;
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3DB.GetIndexFieldNames');
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    SQLite3_GetTable(DBHandle, PAnsiChar(
+      'PRAGMA  index_info("' + IndexName + '");'),
+      ResultPtr, RowCount, ColCount, ErrMsg);
+
+    ResultStr := ResultPtr;
+    List.Clear;
+    Inc(ResultStr, 5);
+    for i := 1 to RowCount do
+    begin
+      List.Insert(0, PAnsiChar(ResultStr^));
+      Inc(ResultStr, 3);
+    end;
+    if Assigned(ResultPtr) then SQLite3_FreeTable(ResultPtr);
+  end;
+  DebugLeave('TASQLite3DB.GetIndexFieldNames');
+end;
+
+procedure TASQLite3DB.GetIndexNames(List: TStrings; SystemTables: boolean = false);
+var
+  ResultPtr         : Pointer;
+  ResultStr         : ^Pointer;
+  RowCount          : cardinal;
+  ColCount          : cardinal;
+  ErrMsg            : PAnsiChar;
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3DB.GetIndexNames');
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    SQLite3_GetTable(DBHandle, PAnsiChar(
+      'SELECT name FROM sqlite_master WHERE type="index" ORDER BY name'),
+      ResultPtr, RowCount, ColCount, ErrMsg);
+
+    ResultStr := ResultPtr;
+    List.Clear;
+    Inc(ResultStr);                     // ignore header
+    for i := 1 to RowCount do
+    begin
+      List.Add(PAnsiChar(ResultStr^));
+      Inc(ResultStr);
+    end;
+    if Assigned(ResultPtr) then SQLite3_FreeTable(ResultPtr);
+  end;
+  DebugLeave('TASQLite3DB.GetIndexNames');
+end;
+
+procedure TASQLite3DB.GetFieldNames(TableName: string; List: TStrings);
+var
+  ResultPtr         : Pointer;
+  ResultStr         : ^Pointer;
+  RowCount          : cardinal;
+  ColCount          : cardinal;
+  ErrMsg            : PAnsiChar;
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3DB.GetFieldNames ' + Tablename);
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    SQLite3_GetTable(DBHandle, PAnsiChar('PRAGMA table_info("' + TableName + '");'),
+      ResultPtr, RowCount, ColCount, ErrMsg);
+    ResultStr := ResultPtr;
+    List.Clear;
+    Inc(ResultStr, 6);                  // headers can be ignored
+    for i := 1 to RowCount do
+    begin
+      Inc(ResultStr);
+      List.Add(PAnsiChar(ResultStr^));      // the second field contains the fieldname
+      Inc(ResultStr, 5);
+    end;
+    if Assigned(ResultPtr) then SQLite3_FreeTable(ResultPtr);
+  end;
+  DebugLeave('TASQLite3DB.GetFieldNames');
+end;
+
+procedure TASQLite3DB.GetPrimaryKeys(TableName: string; List: TStrings);
+var
+  ResultPtr         : Pointer;
+  ResultStr         : ^Pointer;
+//  PK:     ^Pointer;
+  RowCount          : cardinal;
+  ColCount          : cardinal;
+  ErrMsg            : PAnsiChar;
+  Temp              : string;
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3DB.GetPrimaryKeys ' + Tablename);
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    SQLite3_GetTable(DBHandle, PAnsiChar('PRAGMA table_info("' + TableName + '");'),
+      ResultPtr, RowCount, ColCount, ErrMsg);
+    ResultStr := ResultPtr;
+    List.Clear;
+    Inc(ResultStr, 6);                  // headers can be ignored
+    for i := 1 to RowCount do
+    begin
+      Inc(ResultStr);
+      Temp := PAnsiChar(ResultStr^);        // the second field contains the fieldname
+      Inc(ResultStr, 4);
+            // the last field reveils a indicator for primary key
+      if PAnsiChar(ResultStr^) = '1' then
+        List.Add(Temp);
+      Inc(ResultStr);
+    end;
+    if Assigned(ResultPtr) then SQLite3_FreeTable(ResultPtr);
+  end;
+  DebugLeave('TASQLite3DB.GetPrimaryKeys');
+end;
+
+procedure TASQLite3DB.GetTableInfo(TableName: string; List: TList);
+var
+  ResultPtr         : Pointer;
+  ResultStr         : ^Pointer;
+  RowCount          : cardinal;
+  ColCount          : cardinal;
+  ErrMsg            : PAnsiChar;
+  Field             : TASQLite3Field;
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3DB.GetTableInfo ' + Tablename);
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    SQLite3_GetTable(DBHandle, PAnsiChar('PRAGMA table_info("' + TableName + '");'),
+      ResultPtr, RowCount, ColCount, ErrMsg);
+    ResultStr := ResultPtr;
+    while List.Count > 0 do
+    begin
+      TASQLite3Field(List[0]).Free;
+      List.Delete(0);
+    end;
+    List.Clear;
+
+    Inc(ResultStr,6);
+    for i := 1 to RowCount do
+    begin
+      Field := TASQLite3Field.Create;
+      with Field do
+      begin
+        FieldNumber := StrToIntX(PAnsiChar(ResultStr^));
+        Inc(ResultStr);
+        FieldName := PAnsiChar(ResultStr^);
+        Inc(ResultStr);
+        FieldType := PAnsiChar(ResultStr^);
+        Inc(ResultStr);
+        FieldNN := StrToIntX(PAnsiChar(ResultStr^));
+        Inc(ResultStr);
+        FieldDefault := PAnsiChar(ResultStr^);
+        Inc(ResultStr);
+        FieldPK := StrToIntX(PAnsiChar(ResultStr^));
+        Inc(ResultStr);
+      end;
+      List.Add(Field);
+    end;
+    if Assigned(ResultPtr) then SQLite3_FreeTable(ResultPtr);
+  end;
+  DebugLeave('TASQLite3DB.GetTableInfo');
+end;
+
+// retrieves the user version
+function TASQLite3DB.GetUserVersion(database : string=''): integer;
+var
+  ResultPtr         : Pointer;
+  ResultStr         : ^Pointer;
+  RowCount          : cardinal;
+  ColCount          : cardinal;
+  ErrMsg            : PAnsiChar;
+begin
+  DebugEnter('TASQLite3DB.GetTableIndexNames');
+  GetUserVersion := -1;
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    if database <> '' then database := database +'.';
+    SQLite3_GetTable(DBHandle, PAnsiChar(
+      'PRAGMA '+Database+'user_version'),
+      ResultPtr, RowCount, ColCount, ErrMsg);
+    ResultStr := ResultPtr;
+    Inc(ResultStr);
+    GetUserVersion := StrToIntX(PAnsiChar(ResultStr^));
+  end;
+end;
+
+// sets user version.
+procedure TASQLite3DB.SetUserVersion(Version : integer; Database : string='');
+begin
+  if Database <> '' then Database := Database +'.';
+  SQLite3_ExecSQL('PRAGMA '+Database+'user_version='+IntToStr(Version));
+end;
+
+procedure TASQLite3DB.GetTableIndexNames(TableName: string; List: TStrings);
+var
+  ResultPtr         : Pointer;
+  ResultStr         : ^Pointer;
+  RowCount          : cardinal;
+  ColCount          : cardinal;
+  ErrMsg            : PAnsiChar;
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3DB.GetTableIndexNames');
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    SQLite3_GetTable(DBHandle, PAnsiChar(
+      'PRAGMA  index_list("' + TableName + '");'),
+      ResultPtr, RowCount, ColCount, ErrMsg);
+
+    ResultStr := ResultPtr;
+    List.Clear;
+    Inc(ResultStr, 4);                  // Skip header + 1st col.
+    for i := 1 to RowCount do
+    begin
+      List.Insert(0, PAnsiChar(ResultStr^));
+      Inc(ResultStr, 3);
+    end;
+    if Assigned(ResultPtr) then SQLite3_FreeTable(ResultPtr);
+  end;
+  DebugLeave('TASQLite3DB.GetTableIndexNames');
+end;
+
+procedure TASQLite3DB.DBConnect(Connected: boolean);
+var
+  ErrMsg            : PAnsiChar;
+  DBMS              : string;
+  rv                : integer;
+  i                 : integer; // GPA
+begin
+  DebugEnter('TASQLite3DB.DBConnect');
+
+//  ShowMessage(FCharEnc);
+  if (CompareText(FCharEnc,'utf8')=0) or (FCharEnc='') then
+     FUtf8 := true
+  else
+     FUtf8 := false;
+
+  if (Connected) and (FDatabase = '') then
+  begin
+    DebugLeave('TASQLite3DB.DBConnect Exit');
+    raise AsgError.Create('Missing database property');
+    SQLite3_FreeMem(ErrMsg);
+    FConnected := false;
+    exit;
+  end;
+
+  if not Connected then
+  begin
+    if FConnected then
+    begin
+      if DLLHandle <> 0 then
+      begin
+        Debug('freeing sqlite dll');
+        if Assigned(FBeforeDisconnect) then
+          FBeforeDisconnect(self);
+          // if closed then all Datasets must be closed (GPA)
+          if Assigned(Owner) Then
+            For I:=0 to Owner.ComponentCount-1 do
+              if Owner.Components[I] is TASQLite3BaseQuery Then
+                TASQLite3BaseQuery(Owner.Components[I]).Active:=False;
+
+        if Assigned(@SQLite3_Close) then
+          SQLite3_Close(DBHandle);
+
+      {$IFNDEF SQLite_Static}
+          FreeLibrary(DLLHandle);
+      {$ENDIF}
+
+        DLLHandle := 0;
+        if Assigned(FAfterDisconnect) then
+          FAfterDisconnect(self);
+      end;
+      FConnected := false;
+      DebugLeave('TASQLite3DB.DBConnect');
+      exit;
+    end
+  end
+  else
+  begin
+    if CompareText(':memory:', Database) <> 0 then begin
+       if DefaultDir <> '' then begin
+         if DefaultDir[Length(DefaultDir)] <> '\' then
+           DefaultDir := DefaultDir + '\';
+         DBMS := DefaultDir + Database;
+       end else begin
+         if Pos('\', Database) = 0 then
+           DBMS := GetCurrentDir + '\' + DataBase
+         else
+           DBMS := Database;
+       end;
+
+       if FMustExist then begin
+         if not FileExists(DBMS) then begin
+          DebugLeave('TASQLite3DB.DBConnect ' + 'Database ' + DBMS + ' does not exist');
+          raise EDatabaseError.Create('Database ' + DBMS + ' does not exist');
+         end;
+      end;
+    end else DBMS := Database; // in memory database
+
+    if DLLHandle = 0 then
+    begin
+      if not LoadLibs then
+      begin
+        FConnected := false;
+        DebugLeave('TASQLite3DB.DBConnect ' + 'Could Not load SQLite Library');
+        raise AsgError.Create('Could not load SQLite library');
+      end;
+    end;
+
+    FConnected := true;
+    FVersion := SQLite3_LibVersion;
+
+    DBHandle := nil;
+    ErrMsg := nil;
+    if Assigned(FBeforeConnect) then
+      FBeforeConnect(self);
+
+{$IFDEF ASQLITE_D6PLUS}
+    if Assigned(@SQLite3_Open) then
+      if FVersion > '3.2.5' then
+        rv := SQLite3_Open(PAnsiChar(AnsiToUTF8(DBMS)), DBHandle)
+      else
+{$endif}
+        rv := SQLite3_Open(PAnsiChar(DBMS), DBHandle);
+
+    if Assigned(FAfterConnect) then
+      FAfterConnect(self);
+      
+    if DBHandle = nil then
+      FConnected := false;
+
+    if Assigned(FASQLitePragma) then
+      ExecPragma;
+
+    FLastError := ErrMsg;
+    if ErrMsg <> nil then
+      SQLite3_FreeMem(ErrMsg);
+ // GPA Added to execute InlineSQL in case of use Connected:=True instead of Open
+    if ExecuteInlineSQL and Assigned(FInlineSQL) then Try    // GPA
+      ExecStartTransaction('');                              // GPA
+      SQLite3_ExecSQL(FInlineSQL.FSQL.Text);                 // GPA
+      Commit;                                                // GPA
+    finally                                                  // GPA
+      ExecuteInlineSQL:=False;  //GPA Assure just one execution in case of reopen
+    end;                                                     // GPA
+  end;
+  DebugLeave('TASQLite3DB.DBConnect');
+end;
+
+function TASQLite3DB.RowsAffected: integer;
+begin
+  DebugEnter('TASQLite3DB.RowsAffected');
+  if not FConnected then
+    Result := -1
+  else
+    Result := SQLite3_Changes(DBHandle);
+  DebugLeave('TASQLite3DB.RowsAffected');
+end;
+
+//------------------------------------------------------------------------------
+// By Ralf, The Delphi Inspiration
+//------------------------------------------------------------------------------
+
+function TableExistsCallback(UserData: Pointer; ColumnCount: Integer; ColumnValues, ColumnNames: PPointer): Integer; cdecl;
+begin
+  if AnsiStrIComp(UserData, ColumnValues^) <> 0 then
+    Result := 0
+  else
+    Result := 1; // Abort
+end;
+
+//------------------------------------------------------------------------------
+
+function TASQLite3DB.TableExists(const ATableName: AnsiString): Boolean;
+var
+  ErrMsg: PAnsiChar;
+begin
+  try
+    { No WHERE clause is used in the SQL statement below.
+      Instead, the callback function compares without case sensitivity. }
+    Result := SQLite3_Exec(DBHandle, 'SELECT name FROM sqlite_master',
+                           TableExistsCallback,Pointer(ATableName), ErrMsg) = SQLITE_ABORT;
+  finally
+    if ErrMsg <> nil then
+      begin
+        SQLite3_FreeMem(ErrMsg);
+        ShowError;
+      end;
+  end;
+end;
+
+//------------------------------------------------------------------------------
+procedure TASQLite3DB.ExecStartTransaction(TransType: string);
+begin
+// if no transaction type available then use default from asqlitedb
+  if (TransType = '') then TransType := FTransactionType;
+
+  if ((TransType = '') or (CompareText(TransType, 'DEFAULT') = 0)) then StartTransaction
+  else if (CompareText(TransType, 'DEFERRED') = 0) then StartDeferredTransaction
+  else if (CompareText(TransType, 'IMMEDIATE') = 0) then StartImmediateTransaction
+  else if (CompareText(TransType, 'EXCLUSIVE') = 0) then StartExclusiveTransaction
+  else StartTransaction;
+end;
+
+procedure TASQLite3DB.StartTransaction;
+begin
+  DebugEnter('TASQLite3DB.StartTransaction');
+  if not FConnected then                // open database if necessary
+    Connected := true;                  // trigger the 'dbconnect' event
+  if FConnected then SQLite3_ExecSQL('begin transaction');
+  DebugLeave('TASQLite3DB.StartTransaction');
+end;
+
+procedure TASQLite3DB.StartDeferredTransaction;
+begin
+  if not FConnected then                // open database if necessary
+    Connected := true;                  // trigger the 'dbconnect' event
+  if FConnected then SQLite3_ExecSQL('begin deferred transaction');
+end;
+
+procedure TASQLite3DB.StartImmediateTransaction;
+begin
+  if not FConnected then                // open database if necessary
+    Connected := true;                  // trigger the 'dbconnect' event
+  if FConnected then SQLite3_ExecSQL('begin immediate transaction');
+end;
+
+procedure TASQLite3DB.StartExclusiveTransaction;
+begin
+  if not FConnected then                // open database if necessary
+    Connected := true;                  // trigger the 'dbconnect' event
+  if FConnected then SQLite3_ExecSQL('begin exclusive transaction');
+end;
+
+procedure TASQLite3DB.Open;
+begin
+  DebugEnter('TASQLite3DB.Open');
+  Connected := true;
+
+  if DLLHandle = 0 then
+    Connected := false;
+
+  DebugLeave('TASQLite3DB.Open');
+end;
+
+procedure TASQLite3DB.Close;
+begin
+  DebugEnter('TASQLite3DB.Close');
+  Connected := false;
+  DebugLeave('TASQLite3DB.Close');
+end;
+
+procedure TASQLite3DB.ExecPragma;
+var
+  Cmd               : string;
+begin
+  DebugEnter('TASQLite3DB.ExecPragma');
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+  begin
+    if FASQLitePragma.FTempCacheSize <> 0 then
+    begin
+      cmd := FASQLitePragma.GetTempCacheSize;
+      SQLite3_ExecSQL(cmd);
+    end;
+    if FASQLitePragma.FDefaultCacheSize <> 0 then
+    begin
+      cmd := FASQLitePragma.GetDefaultCacheSize;
+      SQLite3_ExecSQL(cmd);
+    end;
+
+    if FASQLitePragma.FDefaultSynchronous <> '' then
+    begin
+      cmd := FASQLitePragma.GetDefaultSynchronous;
+      SQLite3_ExecSQL(cmd);
+    end;
+
+    if FASQLitePragma.FDefaultTempStore <> '' then
+    begin
+      cmd := FASQLitePragma.GetDefaultTempStore;
+      SQLite3_ExecSQL(cmd);
+    end;
+
+    if FASQLitePragma.FTempStore <> '' then
+    begin
+      cmd := FASQLitePragma.GetTempStore;
+      SQLite3_ExecSQL(cmd);
+    end;
+
+    if FASQLitePragma.FSynchronous <> '' then
+    begin
+      cmd := FASQLitePragma.GetSynchronous;
+      SQLite3_ExecSQL(cmd);
+    end;
+  end;
+  DebugLeave('TASQLite3DB.ExecPragma');
+end;
+
+procedure TASQLite3DB.Commit;
+begin
+  DebugEnter('TASQLite3DB.Commit');
+  if not FConnected then
+    Connected := true;
+  if FConnected then SQLite3_ExecSQL('commit transaction');
+  DebugLeave('TASQLite3DB.Commit');
+end;
+
+procedure TASQLite3DB.RollBack;
+begin
+  DebugEnter('TASQLite3DB.RollBack');
+  if not FConnected then
+    Connected := true;
+  if FConnected then
+    SQLite3_ExecSQL('rollback transaction');
+  DebugLeave('TASQLite3DB.RollBack');
+end;
+
+constructor TASQLite3DB.Create(AOwner: TComponent);
+//var fn : TextFile;
+begin
+  DebugEnter('TASQLite3DB.Create');
+  Connected := false;
+  ASQLiteLog := nil;
+  ASQLitePragma := nil;
+  inherited Create(AOwner);
+  DebugLeave('TASQLite3DB.Create');
+end;
+
+destructor TASQLite3DB.Destroy;
+//var fn : TextFile;
+begin
+  DebugEnter('TASQLite3DB.Destroy');
+  FConnected := false;
+  ASQLiteLog := nil;
+  ASQLitePragma := nil;
+  inherited Destroy;
+  DebugLeave('TASQLite3DB.Destroy');
+end;
+
+//============================================================================== TASQLite3BaseQuery
+
+function TASQLite3BaseQuery.CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer; //MS
+begin
+   result := sign(integer(Bookmark1^)-integer(Bookmark2^));
+end;
+
+// Is one or more fields a calculated field?  (John Lito)
+function TASQLite3BaseQuery.CalcFieldInList(const List: string): Boolean;
+var i: Integer;
+    Fields: TList;
+begin
+  if Pos(';', List) <> 0 then
+  begin
+    Result := False;
+    Fields := TList.Create;
+    try
+      GetFieldList(Fields, List);
+      for i := 0 to Fields.Count - 1 do
+        if TField(Fields[I]).FieldKind in [fkCalculated, fkLookup] then Result := True;
+    finally
+      Fields.Free;
+    end;
+  end else
+    Result := (FieldByName(List).FieldKind in [fkCalculated, fkLookup]);
+end;
+
+function TASQLite3BaseQuery.Lookup(const KeyFields: string; const KeyValues: Variant;
+  const ResultFields: string): Variant;
+var OldState: TDataSetState;
+begin
+  Result := '';
+  if Locate(KeyFields, KeyValues, []) then
+  begin
+    if CalcFieldInList(ResultFields) then GetCalcFields(PChar(FResult.GetData(FCurRec)));
+    OldState := SetTempState(dsFilter);
+    try
+      Result := FieldValues[ResultFields];
+    finally
+      RestoreState(OldState);
+    end;
+  end;
+end;
+
+{
+  support routine for UTF16
+}
+
+procedure TASQlite3BaseQuery.DataConvert(Field: TField; Source, Dest: Pointer;
+  ToNative: Boolean);
+const x: Word = 0;
+var L: Integer;
+begin
+  try
+    case Field.DataType of
+     ftWideString:
+       begin
+        if ToNative then
+          begin
+           L := Length(PWideChar(Source^));
+           if (L <= 0) then
+            Move(x,Dest^,2)
+           else
+            begin
+             if (L <= Field.Size) then
+              Move(PWideChar(Source^)^, Dest^, (L+1)*2)
+             else
+              begin
+               Move(PWideChar(Source^)^, Dest^, Field.Size*2);
+               //Move(x,(PChar(Dest)+Field.Size-(Field.Size mod 2))^,2+(Field.Size mod 2));
+               Move(x, (PChar(Dest)+Field.Size*2 - 2)^, 2);
+              end;
+            end;
+          end
+         else
+          begin
+           WideString(Dest^) := WideString(PWideChar(Source));
+          end;
+       end;//ftWideString
+     else
+      begin
+       inherited DataConvert(Field, Source, Dest, ToNative);
+      end
+    end;//case
+  finally
+  end;
+end;//DataConvert
+
+
+{
+ Register detail dataset for a master-detail relationship
+}
+procedure TASQLite3BaseQuery.RegisterDetailDataset(DetailDataSet: TASQLite3BaseQuery);
+var
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3BaseQuery.RegisterDetailDataset');
+  try
+    for i := 0 to DetailList.Count - 1 do
+      if DetailList[i] = DetailDataset then exit;
+    DetailList.Add(DetailDataSet);
+  finally
+    DebugLeave('TASQLite3BaseQuery.RegisterDetailDataset');
+  end;
+end;
+
+{ compatibility isue }
+procedure TASQLite3BaseQuery.SQLiteMasterChanged;
+begin
+  DebugEnter('TASQLite3BaseQuery.SQLiteMasterChanged');
+  DebugLeave('TASQLite3BaseQuery.SQLiteMasterChanged');
+end;
+
+{
+ notify that the master has changed and a requery on the detail has
+ to be done
+}
+
+procedure TASQLite3BaseQuery.NotifySQLiteMasterChanged;
+var
+  i                 : integer;
+begin
+  DebugEnter('TASQLite3BaseQuery.NotifySQLiteMasterChanged');
+  for i := 0 to DetailList.Count - 1 do
+  begin
+    TASQLite3BaseQuery(DetailList[i]).SQLiteMasterChanged;
+  end;
+  DebugLeave('TASQLite3BaseQuery.NotifySQLiteMasterChanged');
+end;
+
+{
+   This function returns a string representing the value of the specified field
+   in SQLite format. Floating point values always use '.' as a decimal separator.
+   Date values use 'yyyy-mm-dd' format, unless SQLiteDateFormat is set to false,
+   which results in using TableDateFormat, or system dependent ShortDateFormat
+   if TableDateFormat is not set. Same goes for DateTime and Time values, for
+   which default formats are 'yyyy-mm-ss hh:nn:ss' and 'hh:nn:ss.zzz', respectively.
+   Setting SQLiteDateFormat to false is discouraged.
+   Result is quoted when necessary.
+}
+// added by Donnie
+
+function TASQLite3BaseQuery.GetFieldValue(const AField: TField; const Blobs: TList = nil): string;
+var
+  MS: TMemoryStream;
+  DateTimeFormat: string;
+begin
+  if (AField.DataSet <> Self) then
+    raise EInvalidArgument.Create('Only own fields are accepted');
+  case AField.DataType of
+    ftString:
+{$IFDEF ASQLITE_D6PLUS}
+      if Connection.FUtf8 then
+        Result := QuotedStr(UTF8Encode(VarToWideStr(AField.Value)))
+      else
+{$endif}
+        Result := QuotedStr(AField.AsString);
+    ftSmallint, ftInteger, ftWord:
+      Result := AField.AsString;
+    ftFloat:
+      if DecimalSeparator <> '.' then
+{$IFDEF ASQLITE_D6PLUS}
+        Result := AnsiReplaceStr(AField.AsString, DecimalSeparator, '.')
+{$else}
+        Result := StringReplace(AField.AsString, DecimalSeparator, '.', [rfReplaceAll])
+{$endif}
+      else
+        Result := AField.AsString;
+    ftDate: begin
+      if FSQLiteDateFormat then
+        DateTimeFormat := 'yyyy"-"mm"-"dd'
+      else if TableDateFormat <> '' then
+        DateTimeFormat := TableDateFormat
+      else
+        DateTimeFormat := ShortDateFormat;
+      Result := QuotedStr(FormatDateTime(DateTimeFormat, AField.AsDateTime));
+    end;
+    ftDateTime: begin
+      if FSQLiteDateFormat then
+        DateTimeFormat := 'yyyy"-"mm"-"dd" "hh":"nn":"ss"."zzz'
+      else if TableDateFormat <> '' then
+        DateTimeFormat := TableDateFormat
+      else
+        DateTimeFormat := ShortDateFormat + '" "' + LongTimeFormat;
+      Result := QuotedStr(FormatDateTime(DateTimeFormat, AField.AsDateTime));
+    end;
+    ftTime: begin
+      if FSQLiteDateFormat then
+        DateTimeFormat := 'hh":"nn":"ss"."zzz'
+      else if TableDateFormat <> '' then
+        DateTimeFormat := TableDateFormat
+      else
+        DateTimeFormat := LongTimeFormat;
+      Result := QuotedStr(FormatDateTime(DateTimeFormat, AField.AsDateTime));
+    end;
+    ftBlob, ftGraphic, ftMemo, ftFmtMemo: begin
+      if Blobs = nil then
+        raise EInvalidArgument.Create('No place to store a blob field');
+      MS := TMemoryStream.Create;
+      TBlobField(AField).SaveToStream(MS);
+      Result := #2 + IntToStr(1 + Blobs.Add(MS));
+    end
+    else
+      Result := QuotedStr(AField.AsString);
+  end;
+end; // GetFieldValue
+
+{
+   Unpack the buffer (if necessary) and convert it to a valid representation
+   this is necessary for sqlite since it it typeless. If typed has been
+   defined then the fields have to be converted to the appropiate datatype
+}
+
+function TASQLite3BaseQuery.UnpackBuffer(Buffer: PAnsiChar; FieldType: TFieldType): TConvertBuffer;
+var
+  TempInt           : integer;
+  TempDouble        : double;
+  TempBool          : wordbool;
+  TempT             : TDateTimeRec;
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3BaseQuery.UnpackBuffer: ' + Buffer);
+{$ENDIF}
+  case FieldType of
+    ftString:
+      begin
+{$IFDEF DEBUG_VERY_LOUD}
+        DebugLeave('TASQLite3BaseQuery.UnpackBuffer');
+{$ENDIF}
+        exit;
+      end;
+    ftInteger, ftSmallInt:
+      begin
+        TempInt := StrToIntX(Buffer);
+        Move(TempInt, result, sizeof(TempInt));
+      end;
+    ftTime:
+      begin
+        TempT := DateTimeToNative(FieldType, StrToDateTimeX(Buffer));
+        Move(TempT, result, sizeof(TDateTime));
+      end;
+    ftDate:
+      begin
+        TempT := DateTimeToNative(FieldType, StrToDateTimeX(Buffer));
+        Move(TempT, result, sizeof(TDateTime));
+      end;
+    ftDateTime:
+      begin
+        if FSQLiteDateFormat then       // aducom
+          TempT := DateTimeToNative(FieldType, YYYYMMDDParser(Buffer)) // jpierce
+        else
+          TempT := DateTimeToNative(FieldType, StrToDateTimeX(Buffer));
+        Move(TempT, result, sizeof(TDateTime));
+      end;
+    ftFloat, ftBCD, ftCurrency:
+      begin
+        TempDouble := StrToFloatX(FloatParser(Buffer));
+        Move(TempDouble, result, sizeof(TempDouble));
+      end;
+
+{$IFDEF ASQLITE_D6PLUS}
+    ftBoolean:
+      begin
+        TempBool := StrToBool(Buffer);
+        Move(TempBool, result, sizeof(TempBool));
+      end;
+{$ENDIF}
+    ftMemo, ftGraphic, ftBlob, ftFMTMemo: // pointer to stream
+      begin
+        TempInt := StrToInt(Buffer);
+        Move(TempInt, result, sizeof(TempInt));
+      end;
+  end;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3BaseQuery.UnpackBuffer');
+{$ENDIF}
+end;
+
+{ This method is called by TDataSet.Open and also when FieldDefs need to
+  be updated (usually by the DataSet designer).  Everything which is
+  allocated or initialized in this method should also be freed or
+  uninitialized in the InternalClose method. }
+
+constructor TASQLite3BaseQuery.Create(AOwner: TComponent);
+begin
+  DebugEnter('TASQLite3BaseQuery.Create');
+  MaxStrLen := 0;
+  FSQL := TStringList.Create;
+  FParams := TParams.Create(Self);
+  DetailList := TList.Create;
+  FConnection := nil;
+  FResult := nil;
+  GetMem(ResultStr, MaxBuf);
+  SQLCursor := true;
+  SQLiteDateFormat := true;
+  TypeLess := false;
+  ReadOnly := false;
+  inherited;
+  DebugLeave('TASQLite3BaseQuery.Create');
+end;
+
+function TASQLite3BaseQuery.CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream;
+begin
+  Result := TASQLite3BlobStream.Create(Field as TBlobField, Mode);
+end;
+
+destructor TASQLite3BaseQuery.Destroy;
+begin
+  DebugEnter('TASQLite3BaseQuery.Destroy');
+//  Close;
+//  inherited Destroy;
+
+  if Assigned(FSQL) then begin
+    TStringList(FSQL).OnChange := nil;
+    FSQL.Free;
+  end;
+  FSQL := nil;
+
+  if Assigned(FParams) then
+  begin
+    FParams.Free;
+    FParams := nil;
+  end;
+
+  if Assigned(DetailList) then
+    DetailList.Free;
+  DetailList := nil;
+
+  if Assigned(FConnection) then
+    FConnection := nil;
+
+  if Assigned(ResultStr) then
+    FreeMem(ResultStr);
+  ResultStr := nil;
+
+  if Assigned(FResult) then
+    FResult.Free;
+  FResult := nil;
+
+  inherited;
+  DebugLeave('TASQLite3BaseQuery.Destroy');
+end;
+
+procedure TASQLite3BaseQuery.StartTransaction;
+begin
+  if Assigned(FConnection) then
+    FConnection.ExecStartTransaction(FTransActionType);
+end;
+
+procedure TASQLite3BaseQuery.StartDeferredTransaction;
+begin
+  if Assigned(FConnection) then
+    FConnection.StartDeferredTransaction;
+end;
+
+procedure TASQLite3BaseQuery.StartImmediateTransaction;
+begin
+  if Assigned(FConnection) then
+    FConnection.StartImmediateTransaction;
+end;
+
+procedure TASQLite3BaseQuery.StartExclusiveTransaction;
+begin
+  if Assigned(FConnection) then
+    FConnection.StartExclusiveTransaction;
+end;
+
+procedure TASQLite3BaseQuery.Commit;
+begin
+  if Assigned(FConnection) then
+    FConnection.Commit;
+end;
+
+procedure TASQLite3BaseQuery.RollBack;
+begin
+  if Assigned(FConnection) then
+    FConnection.RollBack;
+end;
+
+//function TASQLite3BaseQuery.LocateNearest(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;
+ //begin
+ //end;
+
+// implementation by J Bannon, implementing partial key too.
+function TASQLite3BaseQuery.Locate(const KeyFields: string;
+  const KeyValues: variant; Options: TLocateOptions): boolean;
+//loCaseInsensitive, loPartialKey
+var
+  bOk               : boolean;
+  i, j, p           : integer;
+  Fields, SearchValue: string;          //Variable SearchValue added by bobmitch
+  FieldList         : TStringList;
+  DebugStr          : string;
+  DoEnableControls  : boolean;
+begin
+  DebugEnter('TASQLite3BaseQuery.Locate ' + Keyfields);
+  DoEnableControls := not ControlsDisabled; {used to determine whether to EnableControls at end of function}
+  DisableControls;
+  FieldList := TStringList.Create;
+  bOk := false;
+  try
+    Fields := KeyFields;
+    p := pos(';', Fields);
+    while p > 0 do
+    begin
+      FieldList.Add(Copy(Fields, 1, p - 1));
+      System.Delete(Fields, 1, p);
+      p := pos(';', Fields);
+    end;
+    if Fields <> '' then
+      FieldList.Add(Fields);
+
+    First;
+    for i := 1 to FResult.Data.Count do
+    begin
+      SetRecNo(i);
+      bOk := true;
+      for j := 0 to FieldList.Count - 1 do
+      begin
+        if loCaseInsensitive in Options then
+        begin
+          if FieldList.Count = 1 then
+          begin                         //Lines 2303 - 2338 by bobmitch, replaces original lines 2303 - 2336
+            SearchValue := VarToStr(KeyValues);
+            if (loPartialKey in Options) and (Length(SearchValue) <= Length(FieldByName(FieldList[j]).AsString)) then
+              bOk := CompareText(Copy(FieldByName(FieldList[j]).AsString, 1, Length(SearchValue)), SearchValue) = 0
+            else
+              bOk := CompareText(FieldByName(FieldList[j]).AsString, SearchValue) = 0
+          end                           {end loCaseInsensitive in Options AND FieldList.Count = 1}
+          else
+          begin
+            SearchValue := VarToStr(KeyValues[j]);
+            if (loPartialKey in Options) and (Length(SearchValue) <= Length(FieldByName(FieldList[j]).AsString)) then
+              bOk := CompareText(Copy(FieldByName(FieldList[j]).AsString, 1, Length(SearchValue)), SearchValue) = 0
+            else
+              bOk := CompareText(FieldByName(FieldList[j]).AsString, SearchValue) = 0
+          end                           {end loCaseInsensitive in Options AND FieldList.Count greater than 1}
+        end                             {end loCaseInsensitive in Options}
+        else
+        begin                           {begin loCaseInsensitive NOT in Options}
+          if FieldList.Count = 1 then
+          begin
+            SearchValue := VarToStr(KeyValues);
+            if (loPartialKey in Options) and (Length(SearchValue) <= Length(FieldByName(FieldList[j]).AsString)) then
+              bOk := Copy(FieldByName(FieldList[j]).AsString, 1, Length(SearchValue)) = SearchValue
+            else
+              bOk := FieldByName(FieldList[j]).AsString = SearchValue
+          end                           {end loCaseInsensitive NOT in Options AND FieldList.Count = 1}
+          else
+          begin
+            SearchValue := VarToStr(KeyValues[j]);
+            if (loPartialKey in Options) and (Length(SearchValue) <= Length(FieldByName(FieldList[j]).AsString)) then
+              bOk := Copy(FieldByName(FieldList[j]).AsString, 1, Length(SearchValue)) = SearchValue
+            else
+              bOk := FieldByName(FieldList[j]).AsString = SearchValue
+          end;                          {end loCaseInsensitive NOT in Options AND FieldList.Count greater than 1}
+        end;                            {end loCaseInsensitive NOT in Options}
+        if bOk = false then
+          break;
+      end;                              {end for j := 0 to FieldList.Count - 1}
+      if bOk then
+      begin
+        break;
+      end;
+    end;                                {end for i := 1 to FResult.Data.Count}
+    if bOk then
+    begin
+      Locate := true;
+      DebugStr := 'TASQLite3BaseQuery.Locate true';
+    end
+    else
+    begin
+      Locate := false;
+      DebugStr := 'TASQLite3BaseQuery.Locate false';
+    end;
+  finally
+    FieldList.Free;
+    if DoEnableControls then            {restore original state of the controls}
+      EnableControls;
+    DebugLeave(DebugStr);
+  end;
+end;
+
+
+function TASQLite3BaseQuery.GetDataSource: TDataSource;
+
+begin
+  DebugEnter('TASQLite3BaseQuery.GetDataSource');
+  Result := FMasterSource;
+  DebugLeave('TASQLite3BaseQuery.GetDataSource');
+end;
+
+procedure TASQLite3BaseQuery.SetSQLiteDateFormat(const Value: boolean);
+begin
+  FSQLiteDateFormat := Value;
+end;
+
+procedure TASQLite3BaseQuery.SetDataSource(Value: TDataSource);
+begin
+  DebugEnter('TASQLite3BaseQuery.SetDataSource');
+  if IsLinkedTo(Value) then
+    DatabaseError('circular references are not allowed', Self);
+  FMasterSource := Value;
+  DebugLeave('TASQLite3BaseQuery.SetDataSource');
+end;
+
+function TASQLite3BaseQuery.GetMasterFields: string;
+begin
+  DebugEnter('TASQLite3BaseQuery.GetMasterFields');
+  Result := FMasterFields;              //FMasterLink.FieldNames;
+  DebugLeave('TASQLite3BaseQuery.GetMasterFields');
+end;
+
+procedure TASQLite3BaseQuery.SetMasterFields(const Value: string);
+begin
+  DebugEnter('TASQLite3BaseQuery.SetMasterFields ' + Value);
+  FMasterFields := Value;               //  FMasterLink.FieldNames := Value;
+  DebugLeave('TASQLite3BaseQuery.SetMasterFields');
+end;
+ //Checks the State and Results a defined Buffer;
+
+function TASQLite3BaseQuery.GetActiveBuffer(var Buffer: PAnsiChar): boolean;
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3BaseQuery.GetActiveBuffer');
+{$ENDIF}
+  case State of
+    dsBrowse: if IsEmpty then
+        Buffer := nil
+      else
+        Buffer := ActiveBuffer;
+
+    dsEdit: Buffer := ActiveBuffer;
+    dsInsert: Buffer := ActiveBuffer;
+    dsFilter: Buffer := ActiveBuffer;   //FFilterBuffer;
+    dsCalcFields: Buffer := CalcBuffer;
+  else
+    Buffer := nil;
+  end;
+  Result := Buffer <> nil;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3BaseQuery.GetActiveBuffer ' + PAnsiChar(Buffer));
+{$ENDIF}
+end;
+
+function TASQLite3BaseQuery.GetNativeFieldSize(FieldNo: integer): integer;
+begin
+  DebugEnter('TASQLite3BaseQuery.GetNativeFieldSize');
+  Result := 0;
+  case FieldDefs.Items[FieldNo - 1].Datatype of
+    ftString: Result := FieldDefs.Items[FieldNo - 1].Size + 1;
+    ftWideString: Result := FieldDefs.Items[FieldNo - 1].Size + 1;    
+    ftInteger, ftSmallInt, ftDate, ftTime: Result := 12;
+    ftDateTime: Result := 20;
+    ftFloat, ftBCD, ftCurrency: Result := 12;
+    ftBoolean: Result := 12;
+    ftGraphic, ftMemo, ftBlob, ftFmtMemo: Result := 12; // space for memory handles
+  else
+    raise AsgError.Create('Fieldtype of Field "' + FieldDefs.Items[FieldNo - 1].Name +
+      '" not supported!');
+  end;
+  DebugLeave('TASQLite3BaseQuery.GetNativeFieldSize');
+end;
+
+function TASQLite3BaseQuery.GetFieldSize(FieldNo: integer): integer;
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3BaseQuery.GetFieldSize');
+{$ENDIF}
+ // try
+  Result := 0;
+  case FieldDefs.Items[FieldNo - 1].Datatype of
+    ftString: Result := FieldDefs.Items[FieldNo - 1].Size+ 1 ;  // GPA - Warning UTF-8 length can be potentially > Ansi length
+    ftWideString: Result := FieldDefs.Items[FieldNo - 1].Size+ 1 ;  
+    ftInteger, ftSmallInt, ftDate, ftTime: Inc(Result, sizeof(integer));
+    ftDateTime: Inc(Result, sizeof(TDateTime));
+    ftFloat, ftBCD, ftCurrency: Inc(Result, sizeof(double));
+    ftBoolean: Inc(Result, sizeof(wordbool));
+    ftGraphic, ftMemo, ftBlob, ftFmtMemo: Inc(Result, sizeof(pointer));
+  else
+    raise AsgError.Create('Fieldtype of Field "' + FieldDefs.Items[FieldNo - 1].Name +
+      '" not supported!');
+  end;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3BaseQuery.GetFieldSize');
+{$ENDIF}
+end;
+
+function TASQLite3BaseQuery.GetFieldSize(Field: TField): integer;
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLiteBaseQuery.GetFieldSize');
+{$ENDIF}
+ // try
+  Result := 0;
+  case Field.DataType of
+    ftString: Result := Field.Size + 1;
+    ftWideString: Result := Field.Size + 1;
+    ftInteger, ftSmallInt, ftDate, ftTime: Inc(Result, sizeof(integer));
+    ftDateTime: Inc(Result, sizeof(TDateTime));
+    ftFloat, ftBCD, ftCurrency: Inc(Result, sizeof(double));
+    ftBoolean: Inc(Result, sizeof(wordbool));
+    ftGraphic, ftMemo, ftBlob, ftFmtMemo: Inc(Result, sizeof(pointer));
+  else
+    raise AsgError.Create('Fieldtype of Field "' + Field.FieldName +
+      '" not supported!');
+  end;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLiteBaseQuery.GetFieldSize');
+{$ENDIF}
+end;
+
+function TASQLite3BaseQuery.GetFieldOffset(FieldNo: integer): integer;
+var
+  i                 : integer;
+  Offset            : integer;
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3BaseQuery.GetFieldOffset');
+{$ENDIF}
+  Offset := 0;
+  if FieldNo > 1 then
+  begin
+    for i := 1 to FieldNo - 1 do
+      OffSet := OffSet + GetFieldSize(i);
+  end;
+  GetFieldOffset := Offset;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3BaseQuery.GetFieldOffset');
+{$ENDIF}
+end;
+
+function TASQLite3BaseQuery.GetCalcFieldOffset(Field: TField): integer;
+var
+  i                 : integer;
+  Offset            : integer;
+begin
+
+// calcfieldoffset is appended to record (after bookmarkinfo)
+
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLiteBaseQuery.GetCalcFieldOffset');
+{$ENDIF}
+  Offset := FRecBufSize + sizeof(TRecInfo); // startlocation of offsetbuffer
+  for i := 0 to FieldList.Count - 1 do begin
+    if CompareText(FieldList[i].FieldName, Field.FieldName) = 0 then begin
+      GetCalcFieldOffset := Offset;
+      exit;
+    end;
+    if FieldList[i].Calculated then
+      OffSet := OffSet + GetFieldSize(Field);
+  end;
+  GetCalcFieldOffset := Offset;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLiteBaseQuery.GetCalcFieldOffset');
+{$ENDIF}
+end;
+
+procedure TASQLite3BaseQuery.SetSQL(const Value: TStrings);
+begin
+  DebugEnter('TASQLite3BaseQuery.SetSQL');
+  Close;
+  if Assigned(FSQL) then
+    FSQL.Assign(Value)
+  else
+    FSQL := Value;
+  DebugLeave('TASQLite3BaseQuery.SetSQL');
+end;
+
+procedure TASQLite3BaseQuery.LoadQueryData;
+begin
+  DebugEnter('TASQLite3BaseQuery.LoadQueryData');
+  if Connection.FConnected then begin
+    Connection.SQLite3_execute(Connection.DBHandle, PAnsiChar(FPrepared), FParams, self);
+  end;
+  DebugLeave('TASQLite3BaseQuery.LoadQueryData');
+end;
+
+procedure TASQLite3BaseQuery.InternalOpen;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalOpen');
+{$IFDEF ASQLITE_D6PLUS}
+  if UniDirectional then
+     SetUnidirectional(true)
+  else
+     SetUniDirectional(false);
+{$endif}
+  MaxStrLen := 0;
+  if (Connection = nil) then
+  begin                                 // check to see if a valid database
+    raise AsgError.Create('no database connection');
+  end
+  else
+  begin
+
+    if Connection.Connected = false then // open database if necessary
+      Connection.Connected := true;     // trigger the 'dbconnect' event
+
+    if (Connection.Connected) and (Connection.DLLHandle <> 0) then
+      if Assigned(MasterSource) then
+      begin                             // notify master about existance!
+        if (MasterSource.DataSet <> nil) then
+        begin
+          if CompareText(Copy(MasterSource.DataSet.ClassName, 1, 9), 'TASQLite3') = 0 then
+          begin
+            TASQLite3BaseQuery(MasterSource.DataSet).RegisterDetailDataset(
+              TASQLite3BaseQuery(Self));
+          end
+          else
+          begin
+            raise AsgError.Create('master dataset ' + MasterSource.DataSet.ClassName +
+              ' is not of TSQLiteBaseQuery type');
+            DebugLeave('TASQLite3BaseQuery.InternalOpen');
+            exit;
+          end;
+        end
+        else
+        begin
+          raise AsgError.Create('master dataset undefined');
+          DebugLeave('TASQLite3BaseQuery.InternalOpen');
+          exit;
+        end;
+      end;
+
+    if not FUniDir then begin
+  { Load the result into a resultlist }
+       FResult := TFResult.Create(Self);
+       LoadQueryData;
+    end else begin
+       FResult := TFResult.Create(Self);
+       FStatement := Connection.SQLite3_PrepareResult(Connection.DBHandle, PAnsiChar(FPrepared),FParams, self);
+//       ptr := Connection.SQLite3_GetNextResult(Connection.DBHandle, FStatement, FParams,self);
+    end;
+
+  { Initialize our internal position.
+    We use -1 to indicate the "crack" before the first record. }
+    FCurRec := -1;
+
+  { Initialize an offset value to find the TRecInfo in each buffer }
+    FRecInfoOfs := MaxStrLen;
+
+  { Calculate the size of the record buffers.
+    Note: This is NOT the same as the RecordSize property which
+    only gets the size of the data in the record buffer }
+    FRecBufSize := FRecInfoOfs + SizeOf(TRecInfo);
+
+  { Tell TDataSet how big our Bookmarks are (REQUIRED) }
+    BookmarkSize := SizeOf(integer);
+
+  { Initialize the FieldDefs }
+    InternalInitFieldDefs;
+
+  { Create TField components when no persistent fields have been created }
+    if DefaultFields then
+      CreateFields;
+
+  { Bind the TField components to the physical fields }
+    BindFields(true);
+
+  end;
+  DebugLeave('TASQLite3BaseQuery.InternalOpen');
+end;
+
+procedure TASQLite3BaseQuery.InternalClose;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalClose');
+
+   if (FUniDir) and (FStatement <> nil) and (active) then begin
+      Connection.SQLite3_CloseResult(FStatement);
+      FStatement := nil;
+   end;
+
+  if Assigned(FResult) then
+  begin
+    FResult.Free;
+    FResult := nil;
+  end;
+
+  { Destroy the TField components if no persistent fields }
+  if DefaultFields then
+    DestroyFields;
+
+  { Reset these internal flags }
+  //  FLastBookmark := 0;
+  FCurRec := -1;
+  DebugLeave('TASQLite3BaseQuery.InternalClose');
+end;
+
+{ This property is used while opening the dataset.
+  It indicates if data is available even though the
+  current state is still dsInActive. }
+
+function TASQLite3BaseQuery.IsCursorOpen: boolean;
+begin
+  Result := Assigned(FResult);
+end;
+
+procedure TASQLite3BaseQuery.OpenCursor(InfoQuery: Boolean);
+begin  
+  if InfoQuery then  
+    Begin  
+      if Assigned(FConnection) Then Begin  
+        InternalOpen;
+        InternalClose;  
+      End;  
+    End  
+  else if State <> dsOpening then  
+    inherited OpenCursor(InfoQuery);  
+end;  
+
+procedure TASQLite3BaseQuery.InternalInitFieldDefs;
+begin
+//  Just here for compatibility
+end;
+
+{ This is the exception handler which is called if an exception is raised
+  while the component is being stream in or streamed out.  In most cases this
+  should be implemented useing the application exception handler as follows. }
+
+procedure TASQLite3BaseQuery.InternalHandleException;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalHandleException');
+  ApplicationHandleException(Self);
+  DebugLeave('TASQLite3BaseQuery.InternalHandleException');
+end;
+
+ { Bookmarks }
+ { ========= }
+
+{ In this sample the bookmarks are stored in the Object property of the
+  TStringList holding the data.  Positioning to a bookmark just requires
+  finding the offset of the bookmark in the TStrings.Objects and using that
+  value as the new current record pointer. }
+
+procedure TASQLite3BaseQuery.InternalGotoBookmark(Bookmark: Pointer);
+var
+  Index             : integer;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalGotoBookmark');
+//  inherited;
+  Index := FResult.IndexOf(TObject(PInteger(Bookmark)^));
+  if Index <> -1 then
+    FCurRec := Index
+  else
+    if not FUniDir then DatabaseError('Bookmark not found');
+  DebugLeave('TASQLite3BaseQuery.InternalGotoBookmark');
+end;
+
+function TASQLite3BaseQuery.BookmarkValid(Bookmark: Pointer): boolean;
+var
+  Index             : integer;
+begin
+  DebugEnter('TASQLite3BaseQuery.BookmarkValid');
+  Index := FResult.IndexOf(TObject(PInteger(Bookmark)^));
+  if Index <> -1 then
+    BookmarkValid := true
+  else
+    BookmarkValid := false;
+  DebugLeave('TASQLite3BaseQuery.BookmarkValid');
+end;
+
+{ This function does the same thing as InternalGotoBookmark, but it takes
+  a record buffer as a parameter instead }
+
+procedure TASQLite3BaseQuery.InternalSetToRecord(Buffer: PAnsiChar);
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalSetToRecord');
+  InternalGotoBookmark(@PRecInfo(Buffer + FRecInfoOfs).Bookmark);
+//  NotifySQLiteMasterChanged;
+  DebugLeave('TASQLite3BaseQuery.InternalSetToRecord');
+end;
+
+{ Bookmark flags are used to indicate if a particular record is the first
+  or last record in the dataset.  This is necessary for "crack" handling.
+  If the bookmark flag is bfBOF or bfEOF then the bookmark is not actually
+  used; InternalFirst, or InternalLast are called instead by TDataSet. }
+
+function TASQLite3BaseQuery.GetBookmarkFlag(Buffer: PAnsiChar): TBookmarkFlag;
+begin
+  DebugEnter('TASQLite3BaseQuery.GetBookmarkFlag');
+  Result := PRecInfo(Buffer + FRecInfoOfs).BookmarkFlag;
+  DebugLeave('TASQLite3BaseQuery.GetBookmarkFlag');
+end;
+
+procedure TASQLite3BaseQuery.SetBookmarkFlag(Buffer: PAnsiChar; Value: TBookmarkFlag);
+begin
+  DebugEnter('TASQLite3BaseQuery.SetBookmarkFlag');
+  PRecInfo(Buffer + FRecInfoOfs).BookmarkFlag := Value;
+  DebugLeave('TASQLite3BaseQuery.SetBookmarkFlag');
+end;
+
+{ These methods provide a way to read and write bookmark data into the
+  record buffer without actually repositioning the current record }
+
+procedure TASQLite3BaseQuery.GetBookmarkData(Buffer: PAnsiChar; Data: Pointer);
+begin
+  DebugEnter('TASQLite3BaseQuery.GetBookmarkData');
+  PInteger(Data)^ := PRecInfo(Buffer + FRecInfoOfs).Bookmark;
+  DebugLeave('TASQLite3BaseQuery.GetBookmarkData');
+end;
+
+procedure TASQLite3BaseQuery.SetBookmarkData(Buffer: PAnsiChar; Data: Pointer);
+begin
+  DebugEnter('TASQLite3BaseQuery.SetBookmarkData');
+  PRecInfo(Buffer + FRecInfoOfs).Bookmark := PInteger(Data)^;
+  DebugLeave('TASQLite3BaseQuery.SetBookmarkData');
+end;
+
+ { Record / Field Access }
+ { ===================== }
+
+{ This method returns the size of just the data in the record buffer.
+  Do not confuse this with RecBufSize which also includes any additonal
+  structures stored in the record buffer (such as TRecInfo). }
+
+function TASQLite3BaseQuery.GetRecordSize: word;
+begin
+  DebugEnter('TASQLite3BaseQuery.GetRecordSize');
+  Result := MaxStrLen;
+  DebugLeave('TASQLite3BaseQuery.GetRecordSize');
+end;
+
+{ TDataSet calls this method to allocate the record buffer.  Here we use
+  FRecBufSize which is equal to the size of the data plus the size of the
+  TRecInfo structure. }
+
+function TASQLite3BaseQuery.AllocRecordBuffer: PAnsiChar;
+begin
+  DebugEnter('TASQLiteBaseQuery.AllocRecordBuffer');
+  GetMem(Result, FRecBufSize + CalcFieldsSize + sizeof(TRecinfo) + 5);
+  FillChar(Result^, FRecBufSize + CalcFieldsSize + sizeof(TRecinfo) + 5, 0);
+//  FillChar(Result^, GetRecordSize+CalcFieldsSize+10, 0);
+  DebugLeave('TASQLiteBaseQuery.AllocRecordBuffer');
+end;
+
+{ Again, TDataSet calls this method to free the record buffer.
+  Note: Make sure the value of FRecBufSize does not change before all
+  allocated buffers are freed. }
+
+procedure TASQLite3BaseQuery.FreeRecordBuffer(var Buffer: PAnsiChar);
+begin
+  DebugEnter('TASQLiteBaseQuery.FreeRecordBuffer');
+  try FreeMem(Buffer);                  //, FRecBufSize+CalcFieldsSize+sizeof(TRecinfo));
+  except end;
+//  Buffer := nil;
+  DebugLeave('TASQLiteBaseQuery.FreeRecordBuffer');
+end;
+
+{ This multi-purpose function does 3 jobs.  It retrieves data for either
+  the current, the prior, or the next record.  It must return the status
+  (TGetResult), and raise an exception if DoCheck is True. }
+
+function TASQLite3BaseQuery.GetRecord(Buffer: PAnsiChar; GetMode: TGetMode;
+  DoCheck: boolean): TGetResult;
+var
+  ptr               : pointer;
+begin
+  DebugEnter('TASQLite3BaseQuery.GetRecord');
+//  if Active then CheckBrowseMode;
+  if (not (FUniDir)) and (FResult.Count < 1) then
+    Result := grEOF
+  else
+  begin
+    Result := grOK;
+    case GetMode of
+      gmNext:
+        if FUniDir then begin
+//          ptr := Connection.SQLite3_GetNextResult(Connection.DBHandle, FStatement, FParams,self);
+//          if ptr <> nil then
+//             Move(ptr^, Buffer^, MaxStrLen)
+//          else
+//             Result := grEOF;
+        end else begin
+           if FCurRec >= RecordCount - 1 then
+              Result := grEOF
+           else
+             Inc(FCurRec);
+        end;
+      gmPrior: begin
+                if FUniDir then
+//                   Result := grOK
+                   raise AsgError.Create('operation PRIOR not allowed on unidirectional dataset')
+                else begin
+                   if FCurRec <= 0 then
+                      Result := grBOF
+                   else
+                      Dec(FCurRec);
+                   end;
+               end;
+      gmCurrent:
+        begin
+          if (FCurRec < 0) or (FCurRec >= RecordCount) then
+            Result := grError;
+        end;
+    end;
+    if Result = grOK then
+    begin
+      if FUniDir then begin
+          ptr := Connection.SQLite3_GetNextResult(Connection.DBHandle, FStatement, FParams,self);
+          if ptr <> nil then begin
+             Move(ptr^, ActiveBuffer^, MaxStrLen);
+          end else Result := grEOF;
+      end else begin
+          ptr := FResult.GetData(FCurRec);
+          if FResult.Count = 0 then
+             InternalInitRecord(Buffer)
+          else
+             if ptr <> nil then Move(ptr^, Buffer^, MaxStrLen); // albert 17/11/2004
+      end;
+
+      with PRecInfo(Buffer + FRecInfoOfs)^ do
+      begin
+        BookmarkFlag := bfCurrent;
+        Bookmark := FResult.GetBookMark(FCurRec);
+      end;
+
+      if CalcFieldsSize > 0 then
+        GetCalcFields(Buffer)
+
+    end
+    else if (Result = grError) and DoCheck then
+      DatabaseError('No Records');
+  end;
+  DebugLeave('TASQLite3BaseQuery.GetRecord: ' + Buffer);
+end;
+
+{ This routine is called to initialize a record buffer. }
+
+procedure TASQLite3BaseQuery.InternalInitRecord(Buffer: PAnsiChar);
+var
+  i                 : integer;
+  TempT             : TDateTimeRec;
+  Stream            : TMemoryStream;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalInitRecord');
+
+  for i := 0 to FieldDefs.Count - 1 do
+  begin
+    if not (Fields[i].Calculated) then begin
+      case FieldDefs.Items[i].Datatype of
+        ftMemo, ftGraphic, ftBlob, ftFmtMemo: begin
+            Stream := TMemoryStream.Create;
+            Move(Pointer(Stream), (Buffer + GetFieldOffset(i + 1))^, sizeof(Pointer));
+          end;
+        ftString: PAnsiChar(Buffer + GetFieldOffset(i + 1))^ := #0;
+        ftBoolean: pBoolean(Buffer + GetFieldOffset(i + 1))^ := false;
+        ftFloat: pFloat(Buffer + GetFieldOffset(i + 1))^ := 0;
+        ftSmallInt: pSmallInt(Buffer + GetFieldOffset(i + 1))^ := 0;
+        ftInteger: pInteger(Buffer + GetFieldOffset(i + 1))^ := integer(nil);
+        ftCurrency: pFloat(Buffer + GetFieldOffset(i + 1))^ := 0;
+        ftDate:
+          begin
+            TempT := DateTimeToNative(ftDate, now);
+            Move(TempT, (Buffer + GetFieldOffset(i + 1))^, sizeof(TDateTime));
+          end;
+        ftTime:
+          begin
+            TempT := DateTimeToNative(ftTime, now);
+            Move(TempT, (Buffer + GetFieldOffset(i + 1))^, sizeof(TDateTime));
+          end;
+        ftDateTime:
+          begin
+            TempT := DateTimeToNative(ftDateTime, now);
+            Move(TempT, (Buffer + GetFieldOffset(i + 1))^, sizeof(TDateTime));
+          end;
+      end;
+    end;
+  end;
+
+//  if FMasterSource <> nil then begin
+//     FMasterSource.DataSet.FieldByName()
+//  end;
+
+
+  DebugLeave('TASQLite3BaseQuery.InternalInitRecord');
+end;
+
+{ Here we copy the data from the record buffer into a field's buffer.
+  This function, and SetFieldData, are more complex when supporting
+  calculated fields, filters, and other more advanced features.
+  See TBDEDataSet for a more complete example. }
+
+function TASQLite3BaseQuery.GetFieldData(Field: TField; Buffer: Pointer): boolean;
+var
+//  SrcBuffer         : PAnsiChar;
+  MyBuf : string;
+
+  SrcBuffer         : PAnsiChar;
+//  MasterField       : TField;
+//  EqualPos          : Integer;
+///  MasterFieldName, DetailFieldName   : string;
+
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3BaseQuery.GetFieldData');
+{$ENDIF}
+  if Field.FieldNo > 0 then begin
+    // load masterfield data if there's a master-detail relationship
+    // key-data should not be NULL!!
+    if pos(UpperCase(Field.FieldName), UpperCase(FMasterFields)) > 0 then begin
+       MasterSource.DataSet.GetFieldData(Field, Buffer);
+       Result := true;
+       exit;
+    end;
+
+//    if FMasterFields <> '' then begin
+//      EqualPos := Pos('=',FMasterFields);
+//      DetailFieldName := Copy(FMasterFields,1, EqualPos - 1);
+//      MasterFieldName := Copy(FMasterFields,EqualPos + 1, Length(FMasterFields) - EqualPos -1);
+//      if UpperCase(Field.FieldName) = UpperCase(DetailFieldName) then begin
+//        // locate and get master field by name
+//        MasterField := MasterSource.DataSet.FieldByName(MasterFieldName);
+//        MasterSource.DataSet.GetFieldData(MasterField, Buffer);
+//        Result := true;
+//        exit;
+//      end;
+//    end;
+
+    Result := true;                     // indicates NotNull
+    if GetActiveBuffer(SrcBuffer) then begin
+      if (Assigned(Buffer)) and (Assigned(SrcBuffer)) then begin
+        Move((SrcBuffer + GetFieldOffset(Field.FieldNo))^, Buffer^, GetFieldSize(Field.FieldNo));
+        if Field.DataType = ftString then begin // GPA
+           MyBuf := PChar(Buffer);
+{$IFDEF ASQLITE_D6PLUS}
+           if Connection.FUtf8 then
+              Move(Utf8ToAnsi(MyBuf)[1], Buffer^, Length(MyBuf)) // GPA - Warning UTF-8 length can be potentially > Ansi length
+           else
+{$endif}           
+              Move(MyBuf[1], Buffer^, Length(MyBuf)); // GPA - Warning UTF-8 length can be potentially > Ansi length
+            PAnsiChar(PAnsiChar(Buffer) + GetFieldSize(Field.FieldNo))^ := #0; // dev
+        end;
+        Result := true;
+        exit;
+      end;
+      if Assigned(SrcBuffer) then
+        if (Field.DataType <> ftDateTime) and ((SrcBuffer + GetFieldOffset(Field.FieldNo))^ = #0) then
+          Result := false
+    end else begin
+      if assigned(Buffer) then PAnsiChar(Buffer)^ := #0;
+      Result := false;
+    end;
+  end else begin                        {calcfields}
+    Result := GetActiveBuffer(SrcBuffer);
+    if Result and (State in [dsBrowse, dsEdit, dsInsert, dsCalcFields, dsBlockRead]) then begin
+      if (Assigned(Buffer)) then
+        Move((SrcBuffer + GetCalcFieldOffset(Field))^, Buffer^, GetFieldSize(Field));
+    end;
+  end;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3BaseQuery.GetFieldData: ' + PAnsiChar(Buffer));
+{$ENDIF}
+end;
+
+// The next two functions are added to increase compatibility with
+// components that require it (like DevExpress)
+
+function TASQLite3BaseQuery.GetFieldData(FieldNo: integer; Buffer: Pointer): boolean;
+begin
+  Result := GetFieldData(FieldByNumber(FieldNo), Buffer);
+end;
+
+{$IFDEF ASQLITE_D6PLUS}
+//function TASQLite3BaseQuery.GetFieldData(Field: TField; Buffer: Pointer;
+//  NativeFormat: boolean): boolean;
+//begin
+//  Result := GetFieldData(Field, Buffer);
+//end;
+{$ENDIF}
+
+{ returns the field data back to callee }
+
+procedure TASQLite3BaseQuery.SetFieldData(Field: TField; Buffer: Pointer);
+var
+  DestBuffer        : PAnsiChar;
+  MyBuf             : string;
+begin
+  DebugEnter('TASQLite3BaseQuery.SetFieldData');
+  GetActiveBuffer(DestBuffer);
+  if (Field.FieldNo > 0) and (Assigned(Buffer)) and (Assigned(DestBuffer)) then
+  begin
+    if Field.DataType = ftString then
+      Begin // GPA 
+        MyBuf := PChar(Buffer);
+{$IFDEF ASQLITE_D6PLUS}
+        if Connection.FUtf8 then
+           MyBuf := AnsiToUTF8(MyBuf);
+{$endif}
+        if Length(MyBuf)>0 then
+           Move(MyBuf[1], (DestBuffer + GetFieldOffset(Field.FieldNo))^, Length(MyBuf)+1) // GPA - Warning UTF-8 length can be potentially > Ansi length
+        else begin
+           MyBuf := #0;
+           Move(MyBuf[1], (DestBuffer + GetFieldOffset(Field.FieldNo))^, Length(MyBuf)); // GPA - Warning UTF-8 length can be potentially > Ansi length
+        end;
+      End
+    else
+      Move(Buffer^, (DestBuffer + GetFieldOffset(Field.FieldNo))^, GetFieldSize(Field.FieldNo));
+  end else {fkCalculated, fkLookup}  begin
+    if (State in [dsBrowse, dsEdit, dsInsert, dsCalcFields, dsBlockRead]) then begin
+      if (Field.FieldNo < 0) and (Assigned(Buffer)) and (Assigned(DestBuffer)) then begin
+        Move(Buffer^, (CalcBuffer + GetCalcFieldOffset(Field))^, GetFieldSize(Field));
+      end;
+    end;
+  end;
+
+  if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
+    DataEvent(deFieldChange, Longint(Field));
+  DebugLeave('TASQLite3BaseQuery.SetFieldData');
+end;
+
+{ Record Navigation / Editing }
+{ =========================== }
+
+{ This method is called by TDataSet.First.  Crack behavior is required.
+  That is we must position to a special place *before* the first record.
+  Otherwise, we will actually end up on the second record after Resync
+  is called. }
+
+procedure TASQLite3BaseQuery.InternalFirst;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalFirst');
+  FCurRec := -1;
+  DebugLeave('TASQLite3BaseQuery.InternalFirst');
+end;
+
+{ Again, we position to the crack *after* the last record here. }
+
+procedure TASQLite3BaseQuery.InternalLast;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalLast');
+  FCurRec := FResult.Count;
+  DebugLeave('TASQLite3BaseQuery.InternalLast');
+end;
+
+function TASQLite3BaseQuery.GetLastInsertRow: integer;
+begin
+  if Assigned(Connection) then
+    result := Connection.SQLite3_LastInsertRow(Connection.DBHandle)
+  else
+    result := -1;
+end;
+
+{ This method is called by TDataSet.Post. }
+
+procedure TASQLite3BaseQuery.InternalPost;
+var
+  ptr               : Pointer;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalPost');
+  FSaveChanges := true;
+  { For inserts, just update the data in the string list }
+  if State = dsEdit then
+  begin
+    if FUniDir then
+       Connection.SQLite3_GetNextResult(Connection.DBHandle, FStatement, FParams,self)
+    else begin
+       ptr := FResult.GetData(FCurrec);
+       if ptr <> nil then
+          move(ActiveBuffer^, ptr^, FRecBufSize); // albert 17/11/2004
+    end;//2006
+  end
+  else
+  begin
+    { If inserting (or appending), increment the bookmark counter and
+      store the data }
+    FResult.Insert(FCurRec, ActiveBuffer,
+      Connection.SQLite3_LastInsertRow(Connection.DBHandle));
+  end;
+  DebugLeave('TASQLite3BaseQuery.InternalPost');
+end;
+
+{ This method is similar to InternalPost above, but the operation is always
+  an insert or append and takes a pointer to a record buffer as well. }
+
+procedure TASQLite3BaseQuery.InternalAddRecord(Buffer: Pointer; Append: boolean);
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalAddRecord');
+  if FReadOnly then
+     raise AsgError.Create('Cannot write to a read-only dataset');
+
+  FSaveChanges := true;
+  if Append then
+    InternalLast;
+  Post;
+  DebugLeave('TASQLite3BaseQuery.InternalAddRecord');
+end;
+
+{ This method is called by TDataSet.Delete to delete the current record }
+
+procedure TASQLite3BaseQuery.InternalDelete;
+begin
+  DebugEnter('TASQLite3BaseQuery.InternalDelete');
+  FSaveChanges := true;
+  FResult.Delete(FCurRec);
+  if FCurRec >= FResult.Count then
+    Dec(FCurRec);
+  DebugLeave('TASQLite3BaseQuery.InternalDelete');
+end;
+
+ { Optional Methods }
+ { ================ }
+
+{ The following methods are optional.  When provided they will allow the
+  DBGrid and other data aware controls to track the current cursor postion
+  relative to the number of records in the dataset.  Because we are dealing
+  with a small, static data store (a stringlist), these are very easy to
+  implement.  However, for many data sources (SQL servers), the concept of
+  record numbers and record counts do not really apply. }
+
+function TASQLite3BaseQuery.GetRecordCount: longint;
+begin
+  DebugEnter('TASQLite3BaseQuery.GetRecordCount');
+  Result := FResult.Count;
+  DebugLeave('TASQLite3BaseQuery.GetRecordCount ' + IntToStr(Result));
+end;
+
+function TASQLite3BaseQuery.GetRecNo: longint;
+begin
+  DebugEnter('TASQLite3BaseQuery.GetRecNo');
+  UpdateCursorPos;
+  if (FCurRec = -1) and (RecordCount > 0) then
+    Result := 1
+  else
+    Result := FCurRec + 1;
+  NotifySQLiteMasterChanged;            //20040819
+  DebugLeave('TASQLite3BaseQuery.GetRecNo');
+end;
+
+procedure TASQLite3BaseQuery.SetRecNo(Value: integer);
+begin
+  DebugEnter('TASQLite3BaseQuery.SetRecNo');
+  if (Value >= 0) and (Value < FResult.Count + 2) then // value < resultetc
+  begin
+    FCurRec := Value - 1;
+    Resync([]);
+  end;
+  DebugLeave('TASQLite3BaseQuery.SetRecNo');
+end;
+
+procedure TASQLite3BaseQuery.SetFiltered(Value: Boolean);
+begin
+  inherited;
+end;
+
+procedure TASQLite3BaseQuery.SetFilterText(const Value: string);
+begin
+  DebugEnter('TASQLite3BaseQuery.SetFilterText ' + Value);
+  if Active then begin
+     Close;
+     inherited;
+     Open;
+  end else Inherited;
+  DebugLeave('TASQLite3BaseQuery.SetFilterText');
+end;
+
+function TASQLite3BaseQuery.SetQueryParams(InStr: string): string;
+var
+  i                 : integer;
+  TempParam         : string;
+  ThisDateFormat    : string;
+  OldDateFormat     : string;
+begin
+  if FSQLiteDateFormat then
+    ThisDateFormat := 'yyyy-mm-dd hh:nn:ss.zzz'
+  else if (FTableDateFormat <> '') then
+    ThisDateFormat := FTableDateFormat
+  else
+    ThisDateFormat := ShortDateFormat;
+
+  for i := 0 to FParams.Count - 1 do begin
+    if (FParams.Items[i].DataType <> ftBlob) and
+      (FParams.Items[i].DataType <> ftGraphic) then begin
+      TempParam := Fparams.Items[i].AsString;
+      if (TempParam = '') and (FParams.Items[i].bound) then begin
+        InStr := StringReplace(Instr, '?', 'NULL', []);
+      end else begin
+        //Here we'll replace legitimate '?' characters with an unprintable character
+        TempParam := StringReplace(TempParam, '?', #1, [rfReplaceAll]);
+
+        //Okay, we need to check string dates and times
+        if FParams[i].DataType = ftDate then begin
+        end else if FParams[i].DataType = ftTime then begin
+        end else if FParams[i].DataType = ftDateTime then begin
+          OldDateFormat := ShortDateFormat;
+          ShortDateFormat := ThisDateFormat;
+          TempParam := DateToStr(FParams[i].AsDateTime);
+          ShortDateFormat := OldDateFormat;
+        end;
+
+        InStr := StringReplace(Instr, '?', QuotedStr(TempParam), [rfIgnoreCase]);
+      end;
+    end else begin                      // BLOB !!
+        //Here we'll replace legitimate '?' characters with an unprintable character
+      InStr := StringReplace(Instr, '?', #2, [rfIgnoreCase]);
+    end;
+  end;
+    //Here we'll restore legitimate '?' characters
+  InStr := StringReplace(Instr, #1, '?', [rfReplaceAll]);
+  SetQueryParams := InStr;
+end;
+
+// ============================================================================= TASQLite3 UPDATE SQL
+
+constructor TASQLite3UpdateSQL.Create(AOWner: TComponent);
+begin
+  DebugEnter('TASQLite3UpdateSQL.Create');
+  inherited Create(AOwner);
+  FInsertSQL := TStringList.Create;
+  FUpdateSQL := TStringList.Create;
+  FDeleteSQL := TStringList.Create;
+  DebugLeave('TASQLite3UpdateSQL.Create');
+end;
+
+destructor TASQLite3UpdateSQL.Destroy;
+begin
+  DebugEnter('TASQLite3UpdateSQL.Destroy');
+  inherited;
+  if Assigned(FInsertSQL) then
+    FInsertSQL.Free;
+  if Assigned(FUpdateSQL) then
+    FUpdateSQL.Free;
+  if Assigned(FDeleteSQL) then
+    FDeleteSQL.Free;
+  DebugLeave('TASQLite3UpdateSQL.Destroy');
+end;
+
+procedure TASQLite3UpdateSQL.SetInsertSQL(const Value: TStrings);
+begin
+  DebugEnter('TASQLite3UpdateSQL.SetInsertSQL');
+  if Assigned(FInsertSQL) then
+    FInsertSQL.Assign(Value)
+  else
+    FInsertSQL := Value;
+  DebugLeave('TASQLite3UpdateSQL.SetInsertSQL');
+end;
+
+procedure TASQLite3UpdateSQL.SetUpdateSQL(const Value: TStrings);
+begin
+  DebugEnter('TASQLite3UpdateSQL.SetUpdateSQL');
+  if Assigned(FUpdateSQL) then
+    FUpdateSQL.Assign(Value)
+  else
+    FUpdateSQL := Value;
+  DebugLeave('TASQLite3UpdateSQL.SetUpdateSQL');
+end;
+
+procedure TASQLite3UpdateSQL.SetDeleteSQL(const Value: TStrings);
+begin
+  DebugEnter('TASQLite3UpdateSQL.SetDeleteSQL');
+  if Assigned(FDeleteSQL) then
+    FDeleteSQL.Assign(Value)
+  else
+    FDeleteSQL := Value;
+  DebugLeave('TASQLite3UpdateSQL.SetDeleteSQL');
+end;
+// ============================================================================= TASQLite3 QUERY
+
+constructor TASQLite3Query.Create(AOwner: TComponent);
+begin
+  DebugEnter('TASQLite3Query.Create');
+  inherited Create(AOwner);
+//  FParams := TParams.Create(Self);
+  TStringList(FSQL).OnChange := QueryChanged;
+  DebugLeave('TASQLite3Query.Create');
+end;
+
+destructor TASQLite3Query.Destroy;
+begin
+  DebugEnter('TASQLite3Query.Destroy');
+
+  if Assigned(FSQL) then
+    TStringList(FSQL).OnChange := nil;
+
+  inherited Destroy;
+  DebugLeave('TASQLite3Query.Destroy');
+end;
+
+procedure TASQLite3Query.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3Query.Notification');
+{$ENDIF}
+//  Application.ProcessMessages;
+  if Assigned(AComponent) then
+  begin
+    if (Operation = opRemove) then begin
+      if Assigned(FUpdateSQL) and (AComponent is TASQLite3UpdateSQL) then begin
+        if TASQLite3UpdateSQL(AComponent) = FUpdateSQL then
+          FUpdateSQL := nil;
+      end else
+
+        if Assigned(FConnection) then begin
+          if (AComponent is TASQLite3DB) and
+            (TASQLite3Db(AComponent) = FConnection) then begin
+            Close;
+            Connection := nil;
+          end;
+        end else
+
+    end;
+  end;
+  inherited;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3Query.Notification');
+{$ENDIF}
+end;
+
+procedure TASQLite3Query.QueryChanged(Sender: TObject);
+begin
+  DebugEnter('TASQLite3Query.QueryChanged');
+  FNoResults := false;
+  Close;
+  if not FRawSQL then begin
+    if assigned(FParams) then FParams.Clear; // new
+    SQLStr := FParams.ParseSQL(SQL.Text, true)
+  end else SQLStr := SQL.Text;
+  DebugLeave('TASQLite3Query.QueryChanged');
+end;
+
+procedure TASQLite3Query.SetSQL(const Value: TStrings);
+begin
+  DebugEnter('TASQLite3Query.SetSQL');
+  FNoResults := false;
+  Close;
+  if Assigned(FSQL) then
+    FSQL.Assign(Value)
+  else
+    FSQL := Value;
+//  FText := FParams.ParseSQL(SQL.Text, False);
+  DebugLeave('TASQLite3Query.SetSQL');
+end;
+
+function TASQLite3Query.GetSQL: TStrings;
+begin
+  DebugEnter('TASQLite3Query.GetSQL');
+  GetSQL := FSQL;
+  DebugLeave('TASQLite3Query.GetSQL');
+end;
+
+procedure TASQLite3Query.InternalDelete;
+var
+  MySQL             : string;
+  TempSQL           : string;
+  SQLStr            : string; // added by Donnie
+  TheWord           : string;
+  TableId           : string;
+  FieldId           : string;
+  startpos          : integer;
+  vartype           : integer;
+  p                 : integer;
+  Blobs             : TList; // added by Donnie
+label
+  Ende;
+begin
+  DebugEnter('TASQLite3Query.InternalDelete');
+  if FReadOnly then
+    raise AsgError.Create('Cannot delete from a read-only dataset');
+
+  if Connection.FConnected then
+  begin
+    if FAutoCommit then
+      Connection.ExecStartTransaction(FTransactionType);
+
+    if not Assigned(FUpdateSQL) then
+    begin
+      raise AsgError.Create('Missing TASQLite3UpdateSQL component');
+      goto ende;
+    end;
+ //     MyFieldList := TStringList.Create;
+ //     MyFieldValues := TStringList.Create;
+    Blobs := TList.Create;
+    MySQL := FUpdateSQL.FDeleteSQL.Text;
+    startpos := 1;
+
+    TheWord := GetWord(MySQL, startpos, vartype); // delete
+    if not SyntaxCheck(TheWord, 'delete') then
+      goto ende;
+
+    TheWord := GetWord(MySQL, startpos, vartype); // from
+    if not SyntaxCheck(TheWord, 'from') then
+      goto ende;
+
+    Tableid := GetWord(MySQL, startpos, vartype); // tablename
+
+    TheWord := GetWord(MySQL, startpos, vartype); // where
+    if not SyntaxCheck(TheWord, 'where') then
+      goto ende;
+
+    SQLStr := 'delete from ' + TableId + ' where ';
+    TempSQL := Copy(MySQL, startpos, 999);
+
+    p := pos(':', TempSQL);
+    while p > 0 do
+    begin
+      SQLStr := SQLStr + Copy(TempSQL, 1, p - 1);
+      System.Delete(TempSQL, 1, p);
+      startpos := 1;
+      FieldId := GetWord(TempSQL, startpos, vartype); // variable
+      System.Delete(TempSQL, 1, startpos); // Tzvetan
+      // SQLStr := SQLStr + QuotedStr(FieldByName(FieldId).AsString);
+      // edited by Donnie
+      SQLStr := SQLStr + GetFieldValue(FieldByName(FieldId), Blobs);
+      p := pos(':', TempSQL);
+    end;
+    SQLStr := SQLStr + Copy(TempSQL, StartPos, 999);
+    try
+      Connection.SQLite3_execute(Connection.DBHandle, PAnsiChar(SQLStr), FParams, self);
+      if FAutoCommit then
+        Connection.Commit;
+    except
+      if FAutoCommit then begin
+        Connection.RollBack;
+        raise;
+      end;
+    end;
+    if Assigned(Blobs) then begin
+      for p := 0 to Blobs.Count - 1 do
+        TMemoryStream(Blobs.Items[p]).Free;
+      Blobs.Free;
+    end;
+    inherited InternalDelete;
+  end;
+  Ende:
+  DebugLeave('TASQLite3Query.InternalDelete');
+end;
+
+ //==============================================================================
+ // This is probabely the most difficult thing about these components.
+ // To be able to have a live resultset a tupdatequery must be used to
+ // supply the correct sql on the events. In the internalpost the insert and
+ // update are handled. The routine will take the given sql and remodel it
+ // to a workable sql which is executed. Keep in mind that this routine
+ // is far more difficult then the TASQLite3Table, since the last one is depending
+ // on a unique rownumber, available in the resultset, which might not be
+ // available to user queries
+ // There are several syntaxes allowed:
+ //
+ // insert into table *
+ // this will generate an insert statement for each field and values
+ // i.e. insert into table a,b,c values :a, :b, :c;
+ //
+ // insert into table (a, b, c) values *
+ // this will generate an insert statement like
+ // insert into table (a, b, c) values (:a, :b, :c);
+ //
+ // insert into table (a, b, c) values (:a, :b, :c);
+ // insert into table (a, b, c) values (:a, "bvalue", :c) etc.
+ //
+ // update table set * where <criteria>
+ // this will generate a update for all fields like
+ // update a=:a, b=:b, c=:c where <criteria>
+ //
+ //==============================================================================
+
+procedure TASQLite3Query.InternalPost;
+var
+  i                 : integer;
+  p                 : integer;
+  startpos          : integer;
+  MyFieldList       : TStringList;
+  MyFieldValues     : TStringList;
+  MySQL             : string;
+  TheWord           : string;
+  TempSQL           : string;
+  SQLStr            : string; // added by Donnie
+  TableId           : string;
+  FieldId           : string;
+  varType           : integer;
+  Blobs             : TList; // added by Donnie
+begin
+  DebugEnter('TASQLite3Query.InternalPost');
+  if FReadOnly then
+    raise AsgError.Create('Cannot post into a read-only dataset');
+  MyFieldList := nil;
+  MyFieldValues := nil;
+  try
+    if not Connection.FConnected then
+    begin
+      DebugLeave('TASQLite3Query.InternalPost');
+      exit;
+    end;
+    if FAutoCommit then
+      Connection.ExecStartTransaction(FTransactionType);
+    if not Assigned(FUpdateSQL) then
+    begin
+      DebugLeave('TASQLite3Query.InternalPost Exception');
+      raise AsgError.Create('Missing TASQLite3UpdateSQL component');
+    end;
+
+    Blobs := TList.Create;
+    if (State = dsEdit) and (FResult.Count > 0) then
+    begin
+      MyFieldList := TStringList.Create;
+      MyFieldValues := TStringList.Create;
+      MySQL := FUpdateSQL.FUpdateSQL.Text;
+      startpos := 1;
+      TheWord := GetWord(MySQL, startpos, vartype); // update
+      if not SyntaxCheck(TheWord, 'update') then
+        exit;
+
+      Tableid := GetWord(MySQL, startpos, vartype); // tablename
+
+      TheWord := GetWord(MySQL, startpos, vartype); // set or '*'
+      if TheWord = '*' then
+      begin
+        for i := 0 to FieldList.Count - 1 do
+        begin
+          MyFieldList.Add(FieldList[i].FieldName);
+          MyFieldValues.Add(':' + FieldList[i].FieldName);
+        end;
+        TheWord := GetWord(MySQL, startpos, vartype); // where
+      end
+      else
+      begin
+        if not SyntaxCheck(TheWord, 'set') then
+        begin
+          DebugLeave('TASQLite3Query.InternalPost');
+          exit;
+        end;
+
+        repeat
+          TheWord := GetWord(MySQL, startpos, vartype); // fieldname
+          MyFieldList.Add(TheWord);
+
+          TheWord := GetWord(MySQL, startpos, vartype); // '='
+          if not SyntaxCheck(TheWord, '=') then
+          begin
+            DebugLeave('TASQLite3Query.InternalPost');
+            exit;
+          end;
+          TheWord := GetWord(MySQL, startpos, vartype); // 2004-14-09 (rps) ':' or 'where'  --->
+          if vartype = vtcDelimiter then //                                 <---
+            TheWord := GetWord(MySQL, startpos, vartype); // fieldvalue
+          if TheWord = '*' then
+            MyFieldValues.Add(':' + MyFieldList[MyFieldList.Count - 1])
+          else
+            MyFieldValues.Add(':' + TheWord);
+
+          TheWord := GetWord(MySQL, startpos, vartype); // , or 'where'
+        until CompareText(TheWord, 'where') = 0;
+      end;
+
+      if not SyntaxCheck(TheWord, 'where') then
+        exit;
+
+      SQLStr := 'update ' + TableId + ' set ';
+      // for i := 0 to FieldList.Count - 1 do
+      // typo corrected by Donnie
+      for i := 0 to MyFieldList.Count - 1 do
+      begin
+        // SQLStr := SQLStr + FieldList[i].FieldName + '=';
+        // typo corrected by Donnie
+        SQLStr := SQLStr + MyFieldList.Strings[i] + '=';
+        FieldId := MyFieldValues[i];
+        if FieldId[1] = ':' then
+        begin
+          System.Delete(FieldId, 1, 1);
+          // SQLStr := SQLStr + QuotedStr(FieldByName(FieldId).AsString) + ','
+          // edited by Donnie
+          SQLStr := SQLStr + GetFieldValue(FieldByName(FieldId), Blobs) + ','
+        end
+        else
+          SQLStr := SQLStr + QuotedStr(FieldId) + ','
+      end;
+      System.Delete(SQLStr, Length(SQLStr), 1); // get rid of ','
+      TempSQL := ' where ' + Copy(MySQL, startpos, 999);
+
+      p := pos(':', TempSQL);
+      while p > 0 do
+      begin
+        SQLStr := SQLStr + Copy(TempSQL, 1, p - 1);
+        System.Delete(TempSQL, 1, p);
+        startpos := 1;
+        FieldId := GetWord(TempSQL, startpos, vartype); // variable
+        System.Delete(TempSQL, 1, startpos); // Tzvetan
+        // SQLStr := SQLStr + QuotedStr(FieldToStr(FieldByName(FieldId)));
+        // edited by Donnie
+        SQLStr := SQLStr + GetFieldValue(FieldByName(FieldId), Blobs);
+        p := pos(':', TempSQL);
+      end;
+      SQLStr := SQLStr + Copy(TempSQL, StartPos, 999);
+
+      // Connection.SQLite3_ExecSQL(SQLStr);
+      // edited by Donnie
+      Connection.SQLite3_ExecSQL(SQLStr, Blobs);
+      inherited InternalPost;           // rework internals
+    end
+    else
+    begin
+    { If inserting (or appending), increment the bookmark counter and
+      store the data. Sytax should be: insert into <table> * or
+      insert into <table> (field, field) values (field, field) | *
+      The sql is parsed and a new (valid) sql generated
+    }
+      MyFieldList := TStringList.Create;
+      MyFieldValues := TStringList.Create;
+      MySQL := FUpdateSQL.FInsertSQL.Text;
+      startpos := 1;
+      TheWord := GetWord(MySQL, startpos, vartype); // insert
+      if not SyntaxCheck(TheWord, 'insert') then
+        exit;
+
+      TheWord := GetWord(MySQL, startpos, vartype); // into
+      if not SyntaxCheck(TheWord, 'into') then
+        exit;
+
+      Tableid := GetWord(MySQL, startpos, vartype); // tablename
+
+      TheWord := GetWord(MySQL, startpos, vartype); // ( or *
+      if TheWord = '*' then
+      begin
+        for i := 0 to FieldList.Count - 1 do
+        begin
+          MyFieldList.Add(FieldList[i].FieldName);
+          MyFieldValues.Add(':' + FieldList[i].FieldName);
+        end;
+      end
+      else if TheWord = '(' then
+      begin
+        repeat
+          TheWord := GetWord(MySQL, startpos, vartype); // fieldname
+          MyFieldList.Add(TheWord);
+          TheWord := GetWord(MySQL, startpos, vartype); // ',' or ')'
+        until theword = ')';
+        TheWord := GetWord(MySQL, startpos, vartype); // values
+        TheWord := GetWord(MySQL, startpos, vartype); // '(' or '*'
+        if TheWord = '*' then
+        begin
+          for i := 0 to MyFieldList.Count - 1 do
+            MyFieldValues.Add(':' + MyFieldList[i]);
+        end
+        else
+        begin
+// 2004-14-09 (rps) original - does not work
+          repeat
+            TheWord := GetWord(MySQL, startpos, vartype); // ':' or fieldname
+            if vartype = vtcDelimiter then begin
+              TheWord := GetWord(MySQL, startpos, vartype); // fieldname !!
+              MyFieldValues.Add(':' + TheWord);
+            end else
+              MyFieldValues.Add(TheWord);
+            TheWord := GetWord(MySQL, startpos, vartype); // ',' or ')'
+          until theword = ')';
+        end;
+      end
+      else
+      begin
+        raise AsgError.Create('SQL macro syntax error on insertsql, expected ( or *');
+      end;
+
+      SQLStr := 'insert into ' + TableId + ' (';
+      for i := 0 to MyFieldList.Count - 1 do
+        SQLStr := SQLStr + MyFieldList[i] + ',';
+      SQLStr[Length(SQLStr)] := ')';
+      SQLStr := SQLStr + ' values (';
+      for i := 0 to MyFieldList.Count - 1 do
+      begin
+        FieldId := MyFieldValues[i];
+        if FieldId[1] = ':' then begin
+          System.Delete(FieldId, 1, 1);
+          // SQLStr := SQLStr + QuotedStr(FieldByName(FieldId).AsString) + ','
+          // edited by Donnie
+          SQLStr := SQLStr + GetFieldValue(FieldByName(FieldId), Blobs) + ','
+        end else begin
+          if CompareText(FieldId,'null')=0 then
+             SQLStr := SQLStr + FieldId+','
+          else
+             SQLStr := SQLStr + QuotedStr(FieldId) + ','
+        end;
+      end;
+      SQLStr[Length(SQLStr)] := ')';
+      // Connection.SQLite3_ExecSQL(SQLStr);
+      // edited by Donnie
+      Connection.SQLite3_ExecSQL(SQLStr, Blobs);
+      if FResult.Count = 0 then
+        Inc(FCurrec);
+      inherited InternalPost;           // rework internals
+    end;
+    if FAutoCommit then
+    begin
+      try
+        Connection.Commit;
+      except
+        Connection.RollBack;
+        raise;
+      end;
+    end;
+  finally
+    if Assigned(MyFieldList) then MyFieldList.Free;
+    if Assigned(MyFieldValues) then MyFieldValues.Free;
+    if Assigned(Blobs) then begin
+      for i := 0 to Blobs.Count - 1 do
+        try
+          TMemoryStream(Blobs.Items[i]).Free;
+        except
+        end;
+      Blobs.Free;
+    end;
+  end;
+  DebugLeave('TASQLite3Query.InternalPost');
+end;
+
+procedure TASQLite3Query.InternalClose;
+begin
+  DebugEnter('TASQLite3Query.InternalClose');
+  FPrepared := '';
+  inherited;
+  DebugLeave('TASQLite3Query.InternalClose');
+end;
+
+procedure TASQLite3Query.InternalOpen;
+//var
+//  p                 : integer;
+begin
+  DebugEnter('TASQLite3Query.InternalOpen');
+  if Trim(FSQL.Text) = '' then
+  begin
+    raise AsgError.Create('no query specified');
+    abort;
+  end;
+
+  if (FMaxResults = 0) and (FStartResult <> 0) then
+    FMaxResults := -1;
+
+ // SQLStr contains the 'raw' interpreted SQL, with ? as parameterlist
+ // This string has to be preserved, since it was parsed on entering the sql.
+ // On close and open (i.e. in case of master-detail) the parsed data still
+ // must be available
+
+ // We'll prepare the SQL statement into FPrepared. This is also the var
+ // containing the SQL statement to be executed.
+  FPrepared := SQLStr;
+
+//  FPrepared := FSql.Text; // 2004-14-09 (rps) changed SqlStr (current) -> FSql.Text (property),
+                          //                  to bring Close; Open; to work. (Full refresh.)
+                          // this will block parameterized queries to function right (Aducom)
+
+  if (Filtered) and (Filter <> '') then
+  begin
+    //in order to let a filter work we use a little trick:
+    //select * from (my select statement)
+    FPrepared := 'select * from (' + FPrepared + ') where ' + Filter;
+  end;
+
+  if FParams.Count > 0 then
+    FPrepared := SetQueryParams(FPrepared);
+
+  if FMaxResults <> 0 then
+    FPrepared := FPrepared + ' limit ' + IntToStr(FMaxResults);
+  if FStartResult <> 0 then
+    FPrepared := FPrepared + ' offset ' + IntToStr(FStartResult);
+  inherited;
+  DebugLeave('TASQLite3Query.InternalOpen');
+end;
+
+ // =============================================================================
+ // The master-detail is implemented through the filter object
+ // in the future perhaps a separate filter object will be used allowing
+ // to add your own criteria too, but for the time being..
+ //==============================================================================
+
+procedure TASQLite3Query.SQLiteMasterChanged;
+var
+  r, s              : string;
+  m, d              : string;
+  p                 : integer;
+  cAnd              : string;
+begin
+  DebugEnter('TASQLite3Query.SQLiteMasterChanged');
+  Close;
+  cAnd := '';
+  r := FMasterFields;
+  Filter := '';
+  Filtered := false;
+  while r <> '' do
+  begin                                 // build the filter sql syntax
+    p := pos(';', r);
+    if p = 0 then
+    begin
+      if Trim(r) <> '' then
+        s := r;
+      r := '';
+    end
+    else
+    begin
+      s := Trim(Copy(r, 1, p - 1));
+      System.Delete(r, 1, p);
+    end;
+
+    p := pos('=', s);
+    if p = 0 then
+    begin
+      raise AsgError.Create('Syntax error: Masterfields not build of a=b;... pairs');
+    end
+    else
+    begin
+      d := copy(s, 1, p - 1);
+      m := copy(s, p + 1, 99);
+    end;
+//    Filter := Filter + cAnd + d + '=' + FMasterSource.DataSet.FieldByName(m).AsString;
+    Filter := Filter + cAnd + d + '=' + QuotedStr(FMasterSource.DataSet.FieldByName(m).AsString) ;
+    cAnd := ' and ';
+  end;
+  if (Filter <> '') and (Active) then begin
+    filtered := true;
+    Open;
+  end;
+  DebugLeave('TASQLite3Query.SQLiteMasterChanged');
+end;
+
+ //==============================================================================
+ // execsql is used for sql statements which do not require cursors. For this
+ // reason the fnoresults is set, to prevent building a result set
+ //==============================================================================
+
+procedure TASQLite3BaseQuery.ExecSQL;
+begin
+  DebugEnter('TASQLite3BaseQuery.ExecSQL');
+  FNoResults := true;
+  Close;
+  if FAutoCommit then
+  begin
+    Connection.ExecStartTransaction(FTransactionType);
+    Open;
+    try
+      Connection.Commit
+    except
+      Connection.RollBack;
+      raise;
+    end;
+  end
+  else
+    Open;
+  DebugLeave('TASQLite3BaseQuery.ExecSQL');
+end;
+
+procedure TASQLite3BaseQuery.SetParamsList(Value: TParams);
+begin
+  DebugEnter('TASQLite3BaseQuery.SetParamsList');
+  FParams.AssignValues(Value);
+  DebugLeave('TASQLite3BaseQuery.SetParamsList');
+end;
+
+function TASQLite3BaseQuery.GetParamsCount: word;
+begin
+  DebugEnter('TASQLite3BaseQuery.GetParamsCount');
+  Result := FParams.Count;
+  DebugLeave('TASQLite3BaseQuery.GetParamsCount');
+end;
+
+procedure TASQLite3Table.SetFOrderBy(OrderBy : string);
+begin
+ if FOrderBy <> OrderBy then begin
+    Close;
+    FOrderBy := OrderBy;
+ end;
+end;
+
+procedure TASQLite3Table.SetFTableName(TableName : string);
+begin
+  Close;
+  FTableName := TableName;
+end;
+
+procedure TASQLite3Table.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3Table.Notification');
+{$ENDIF}
+//  Application.ProcessMessages;
+  if Assigned(AComponent) then
+  begin
+    if (Operation = opRemove) then
+    begin
+      if (AComponent is TASQLite3DB) and Assigned(FConnection) then
+      begin
+        if TASQLite3DB(AComponent) = FConnection then begin
+          Close;
+          FConnection := nil;
+        end;
+      end else
+
+    end;
+  end;
+  inherited;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3Table.Notification');
+{$ENDIF}
+end;
+
+procedure TASQLite3Table.InternalOpen;
+begin
+  DebugEnter('TASQLite3Table.InternalOpen');
+
+  if FTableName = '' then
+  begin
+    raise AsgError.Create('no table specified');
+    exit;
+  end;
+  FSQL.Clear;
+  FSQL.Add('select *, rowid as rowid from ' + TableName);
+  if Filtered then
+    if Filter <> '' then
+      FSQL.Add(' where ' + Filter);
+  if (FMaxResults = 0) and (FStartResult <> 0) then
+    FMaxResults := -1;
+  if FMaxResults <> 0 then
+    FSQL.Add(' limit ' + IntToStr(FMaxResults));
+  if FStartResult <> 0 then
+    FSQL.Add(' offset ' + IntToStr(FStartResult));
+  if FOrderBy <> '' then
+    FSQL.Add(' order by ('+FOrderBy+')');
+  SQLStr := FSQL.Text;
+  FPrepared := SQLStr;
+  inherited;
+  DebugLeave('TASQLite3Table.InternalOpen');
+end;
+
+procedure TASQLite3Table.SQLiteMasterChanged;
+var
+  r, s              : string;
+  m, d              : string;
+  p                 : integer;
+  cAnd              : string;
+begin
+  DebugEnter('TASQLite3Table.SQLiteMasterChanged');
+  Close;
+  cAnd := '';
+  r := FMasterFields;
+  Filter := '';
+  while r <> '' do
+  begin
+    p := pos(';', r);
+    if p = 0 then
+    begin
+      if Trim(r) <> '' then
+        s := r;
+      r := '';
+    end
+    else
+    begin
+      s := Trim(Copy(r, 1, p - 1));
+      System.Delete(r, 1, p);
+    end;
+
+    p := pos('=', s);
+    if p = 0 then
+    begin
+      raise AsgError.Create('Syntax error: Masterfields not build of a=b;... pairs');
+    end
+    else
+    begin
+      d := copy(s, 1, p - 1);
+      m := copy(s, p + 1, 99);
+    end;
+//    Filter := Filter + cAnd + d + '=' + FMasterSource.DataSet.FieldByName(m).AsString;
+    Filter := Filter + cAnd + d + '=' + QuotedStr(FMasterSource.DataSet.FieldByName(m).AsString) ;
+    cAnd := ' and ';
+  end;
+  if Filter <> '' then
+    filtered := true;
+  Open;
+  DebugLeave('TASQLite3Table.SQLiteMasterChanged');
+end;
+
+procedure TASQLite3Table.InternalDelete;
+begin
+  DebugEnter('TASQLite3Table.InternalDelete');
+  if FReadOnly then
+    raise AsgError.Create('Cannot delete from a read-only dataset');
+
+  if not Connection.FConnected then
+    exit;
+  if FAutoCommit then
+    Connection.ExecStartTransaction(FTransactionType);
+
+  SQLStr := '';
+  CurrentRowId := FResult.GetRowId(FCurRec);
+  FSQL.Clear;
+  FSQL.Add('delete from ' + Tablename + ' where rowid=' + QuotedStr(IntToStr(CurrentRowId)));
+//  SQLStr := StringReplace(FSQL.Text, crlf, #10, [rfReplaceAll, rfIgnoreCase]); // albert
+  SQLStr := FSQL.Text;
+  Connection.SQLite3_execute(Connection.DBHandle, PAnsiChar(SQLStr), FParams, self);
+
+  inherited InternalDelete;
+
+  if FAutoCommit then
+  begin
+    try
+      Connection.Commit;
+    except
+      Connection.RollBack;
+      raise;
+    end;
+  end;
+  DebugLeave('TASQLite3Table.InternalDelete');
+end;
+
+procedure TASQLite3Table.InternalPost;
+var
+  i : integer;
+  n: Integer;
+  ThisDateFormat,
+  tmpMasterDetail, MasterField, chDelim: string;
+  slDetail, slValues: TStringList;
+  lsBlobs: TList; //GPA
+  M:TMemoryStream; //GPA
+
+  // this function will return the fielvalue of an indicated fieldbyordinalnumber
+  // if the fieldtype is tdatetime it is transfered to the right date notation as
+  // indicated by jpierce.
+
+  function GetFieldValue(const AField: TField): string; // DI
+  begin // DI
+    if AField.DataType = ftDateTime then // DI
+      GetFieldValue := QuotedStr(FormatDateTime(ThisDateFormat, FieldByName(AField.FieldName).AsDateTime)) // DI
+    else if (AField.DataType = ftBlob) or (AField.DataType = ftMemo) or (AField.DataType = ftFmtMemo) or (AField.DataType = ftGraphic) then //GPA
+      begin //GPA
+        M:=TMemoryStream.Create; //GPA
+        TBlobField(FieldByName(AField.FieldName)).SaveToStream(M);
+        GetFieldValue := #2+IntToStr(1+lsBlobs.Add(Pointer(M))) //GPA
+      end
+    else
+      GetFieldValue := QuotedStr(FieldByName(AField.FieldName).AsString); // DI
+  end; // DI
+
+var
+  f: TField; // DI
+  OldDecimalSeparator: ansiChar; // DI
+begin
+  DebugEnter('TASQLite3Table.InternalPost');
+
+  if FReadOnly then
+    raise AsgError.Create('Cannot post into a read-only dataset');
+
+  // determine datetime style of dataset (if any)
+
+  if FSQLiteDateFormat then
+    ThisDateFormat := 'yyyy-mm-dd hh:nn:ss.zzz'
+  else if (FTableDateFormat <> '') then
+    ThisDateFormat := FTableDateFormat
+  else
+    ThisDateFormat := ShortDateFormat;
+
+  if not Connection.FConnected then Exit;
+  if FAutoCommit then Connection.StartTransaction;
+
+  lsBlobs := TList.Create; //GPA
+  OldDecimalSeparator := DecimalSeparator; // DI
+  try // DI
+    DecimalSeparator := '.'; // DI: Force Delphi's DecimalSeparator to SQL style syntax.
+
+    if (State = dsEdit) and (FResult.Count > 0) then
+      begin
+        CurrentRowId := FResult.GetRowId(FCurRec);
+        FSQL.Clear;
+        FSQL.Add('update ' + TableName + ' set ');
+        SQLStr := '';
+        for i := 0 to FieldList.Count - 1 do begin
+            f := FieldList[i]; // DI
+            if not (f.Calculated or f.Lookup) then // DI
+              SQLStr := SQLStr + f.FieldName + '=' + GetFieldValue(f) + ','; // DI
+          end;
+        SQLStr[Length(SQLStr)] := ' ';
+        FSQL.Add(SQLStr);
+        FSQL.Add(' where rowid=' + QuotedStr(IntToStr(CurrentRowId)));
+
+        SQLStr := FSQL.Text; // DI
+        // DI SQLStr := StringReplace(FSQL.Text, CRLF, #10, [rfReplaceAll, rfIgnoreCase]);
+
+        Connection.SQLite3_ExecSQL(SQLStr,lsBlobs);
+        inherited InternalPost; // rework internals
+      end
+    else
+      begin
+        { If inserting (or appending), increment the bookmark counter and
+        store the data }
+        FSQL.Clear;
+        FSQL.Add('insert into ' + TableName + ' (');
+        SQLStr := '';
+
+        for i := 0 to FieldList.Count - 1 do begin
+            if not (FieldList[i].Calculated or FieldList[i].Lookup) then // aducom
+              SQLStr := SQLStr + FieldList[i].FieldName + ',';
+          end;
+
+        SQLStr[Length(SQLStr)] := ')';
+        SQLStr := SQLStr + ' values (';
+        FSQL.Add(SQLStr);
+        SQLStr := '';
+
+        slDetail := TStringList.Create;
+        slValues := TStringList.Create;
+        i := 0; chDelim := ';';
+        if FMasterSource <> nil then
+          begin
+            while i < Length(FMasterFields) do
+              begin
+                tmpMasterDetail := GetWordByDelim(FMasterFields, i, chDelim);
+                n := Pos('=', tmpMasterDetail);
+                if n <> 0 then
+                  begin
+                    slDetail.Add(Copy(tmpMasterDetail, 1, n - 1));
+                    MasterField := Copy(tmpMasterDetail, n + 1, Length(tmpMasterDetail) - n);
+                    slValues.Add(FMasterSource.DataSet.FieldByName(MasterField).AsString);
+                  end;
+              end;
+          end;
+
+        if (FPrimaryAutoInc) and (FieldDefs[0].DataType = ftInteger) then begin
+          SQLStr := SQLStr + 'null,';
+          n := 1;                                                               // aducom
+        end else begin                                                          // aducom
+          n := 0;                                                               // aducom
+        end;                                                                    // aducom
+
+        for i := n to FieldList.Count - 1 do                                    // aducom
+          begin // DI
+            f := FieldList[i];
+            if not (f.Calculated or f.Lookup) then // DI
+              if slDetail.Find(f.FieldName, n) then // DI
+                SQLStr := SQLStr + QuotedStr(slValues.Strings[n]) + ','
+              else
+                SQLStr := SQLStr + GetFieldValue(f) + ','; // DI
+          end; // DI
+
+        slDetail.Free;
+        slValues.Free;
+
+        SQLStr[Length(SQLStr)] := ')';
+        FSQL.Add(SQLStr);
+
+        SQLStr := FSQL.Text; // DI
+        // DI SQLStr := StringReplace(FSQL.Text, CRLF, #10, [rfReplaceAll, rfIgnoreCase]);
+
+        Connection.SQLite3_ExecSQL(SQLStr, lsBlobs);
+        if FPrimaryAutoInc then
+          if FieldDefs[0].DataType = ftInteger then
+            FieldByName(FieldList[0].FieldName).AsInteger :=
+              Connection.SQLite3_LastInsertRow(Connection.DBHandle);
+        if FResult.Count = 0 then
+          Inc(FCurRec);
+        inherited InternalPost; // rework internals
+      end;
+
+  finally // DI
+    DecimalSeparator := OldDecimalSeparator; // DI
+    For I:=0 to lsBlobs.Count-1 do begin // GPA
+      M:=TMemoryStream(lsBlobs.Items[I]); // GPA
+      M.Free; // GPA
+    end; // GPA
+    lsBlobs.Free; // GPA
+
+  end; // DI
+
+  if FAutoCommit then
+    begin
+      try
+        Connection.Commit;
+      except
+        Connection.RollBack;
+        raise;
+      end;
+    end;
+  DebugLeave('TASQLite3Table.InternalPost');
+end;
+
+// Blobfields in SQLite are in fact CLOB fields. However, since it is a large
+// chunk of data for all types the ftBlob is used. Keep in mind that blobs are
+// stored separately of TResult. Within the result structure only the memory
+// handle of the blob is stored.
+
+constructor TASQLite3BlobStream.Create(Field: TBlobField; Mode: TBlobStreamMode);
+begin
+//  inherited Create;
+  FField := Field;
+  FMode := Mode;
+  FDataSet := FField.DataSet as TASQLite3BaseQuery;
+  if Mode <> bmWrite then
+    LoadBlobData;
+end;
+
+destructor TASQLite3BlobStream.Destroy;
+begin
+  DebugEnter('TASQLite3BlobStream.Destroy');
+  if FModified then
+    SaveBlobData;
+  inherited Destroy;
+end;
+
+function TASQLite3BlobStream.Read(var Buffer; Count: Longint): Longint;
+begin
+  DebugEnter('ASQLiteBlobStream.Read');
+  Result := inherited Read(Buffer, Count);
+  FOpened := True;
+end;
+
+function TASQLite3BlobStream.Write(const Buffer; Count: Longint): Longint;
+begin
+  DebugEnter('ASQLiteBlobStream.Write');
+  Result := inherited Write(Buffer, Count);
+  FModified := True;
+  FDataSet.SetModified(true);
+end;
+
+procedure TASQLite3BlobStream.LoadBlobData;
+var
+  Stream            : TMemoryStream;
+  Offset            : Integer;
+  RecBuffer         : PAnsiChar;
+begin
+  DebugEnter('ASQLiteBlobStream.LoadBlobData');
+  Self.Size := 0;
+  FDataset.GetActiveBuffer(RecBuffer);
+
+//  recbuffer := nil;
+
+  if RecBuffer <> nil then
+  begin
+    Offset := FDataset.GetFieldOffset(FField.FieldNo);
+    Move((RecBuffer + Offset)^, Pointer(Stream), sizeof(Pointer));
+    Self.CopyFrom(Stream, 0);
+  end;
+  Position := 0;
+end;
+
+procedure TASQLite3BlobStream.SaveBlobData;
+var
+  Stream            : TMemoryStream;
+  Offset            : Integer;
+  RecBuffer         : PAnsiChar;
+begin
+  DebugEnter('ASQLiteBlobStream.SaveBlobData');
+  FDataset.GetActiveBuffer(RecBuffer);
+  if RecBuffer <> nil then
+  begin
+    Offset := FDataset.GetFieldOffset(FField.FieldNo);
+    Move((RecBuffer + Offset)^, Pointer(Stream), sizeof(Pointer));
+    Stream.Size := 0;
+    Stream.CopyFrom(Self, 0);
+    Stream.Position := 0;
+  end;
+end;
+
+// Inline sql can be used to store sqlstatements outside of the pascal source.
+// it prevents large 'sql.add' rows. Also it can be used to generate an in-memory
+// database structure if needed
+
+constructor TASQLite3InlineSQL.Create;
+begin
+  inherited;
+  FSQL := TStringList.Create;
+end;
+
+destructor TASQLite3InlineSQL.Destroy;
+begin
+  if Assigned(FSQL) then FSQL.Free;
+  inherited;
+end;
+
+procedure TASQLite3InlineSQL.SetSQL(const Value: TStrings);
+begin
+  if Assigned(FSQL) then
+    FSQL.Assign(Value)
+  else
+    FSQL := Value;
+end;
+
+function TASQLite3InlineSQL.GetSQL: TStrings;
+begin
+  GetSQL := FSQL;
+end;
+
+// save resultset as text, html or xml. Depending on type the following
+// will happen:
+//
+// text: all rows will be output, separated by the given separation symbol
+// xml: all rows will be output, tags are the fieldnames
+//      <queryname>
+//              <rowid>
+//                      <fieldid> fieldvalue </fieldid>
+//                      ....
+//
+// html: a table will be generated with the given classnames (if available)
+
+constructor TASQLite3Output.Create;
+begin
+  inherited;
+  FOutput := TStringList.Create;
+end;
+
+destructor TASQLite3Output.Destroy;
+begin
+  if Assigned(FOutput) then FOutput.Free;
+  inherited;
+end;
+
+procedure TASQLite3Output.SetFActive(Active: boolean);
+begin
+  FActive := Active;
+  if FActive = false then begin
+  end else begin
+    if Assigned(FDataSource) then begin
+      if Assigned(FDataSource.DataSet) then begin
+        Execute(FDataSource.DataSet);
+      end else raise AsgError.Create('Missing Datasource.Dataset');
+    end else raise AsgError.Create('Missing Datasource');
+  end;
+end;
+
+procedure TASQLite3Output.SetOutput(const Value: TStrings);
+begin
+  if Assigned(FOutput) then
+    FOutput.Assign(Value)
+  else
+    FOutput := Value;
+end;
+
+function TASQLite3Output.GetOutput: TStrings;
+begin
+  GetOutput := FOutput;
+end;
+
+procedure TASQLite3Output.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugEnter('TASQLite3Output.Notification');
+{$ENDIF}
+  if Assigned(AComponent) then begin
+    if (Operation = opRemove) then begin
+      if (AComponent is TDataSource) then begin
+        if Assigned(FDataSource) then begin
+          if TDataSource(AComponent) = FDataSource then
+            FDataSource := nil;
+        end;
+      end
+    end;
+  end;
+  inherited;
+{$IFDEF DEBUG_VERY_LOUD}
+  DebugLeave('TASQLite3DB.Notification');
+{$ENDIF}
+end;
+
+procedure TASQLite3Output.Execute(MyDataSet: TDataSet);
+const eXML          = 0;
+  eHTML             = 1;
+  eTXT              = 2;
+var FType           : integer;
+  i                 : integer;
+  Line              : string;
+  Sep               : string;
+//    Indent : integer;
+begin
+  if Assigned(MyDataset) then begin
+    if MyDataSet.Active = false then MyDataSet.Open;
+    Output.Clear;
+    FType := ETxt;
+    Line := '';
+
+    if CompareText(FOutputType[1], 'X') = 0 then begin
+      FType := eXML;
+      Line := Line + '<table id="' + MyDataSet.Name + '" CreationDate="' + DateToStr(Now) + '">' + #10;
+    end else if CompareText(FOutputType[1], 'H') = 0 then begin
+      FType := eHTML;
+      Line := Line + '<html>' + #10 + '<head>' + #10 +
+        '<title>Table ' + MyDataSet.Name + '</title>' + #10 +
+        '<meta name="generator" content="Dev-PHP 2.0.13 test">' + #10 +
+        '<table class="' + FTableClass + '"cellpadding="0" cellspacing="0">' + #10 +
+        '<tr>' + #10;
+    end else if CompareText(FOutputType[1], 'T') = 0 then begin
+      FType := eTXT;
+    end;
+
+    Sep := '';
+
+    for i := 0 to MyDataSet.FieldDefs.Count - 1 do begin
+      case FType of
+        eXML: begin
+          end;
+        eHTML: begin
+            Line := Line + '<td>' + MyDataSet.FieldDefs[i].Name + '</td>';
+          end;
+        eTXT: begin
+            Line := Line + Sep + MyDataSet.FieldDefs[i].Name;
+          end;
+      end;
+      Sep := FSeparator;
+    end;
+
+    Output.Add(Line); Line := ''; Sep := '';
+    MyDataSet.First;
+
+//    Indent := 0;
+    while not MyDataSet.Eof do begin
+
+      case FType of
+        eXML: Line := Line + '   <record>' + #10;
+        eHTML: Line := Line + '<tr>' + #10;
+      end;
+
+      for i := 0 to MyDataSet.FieldDefs.Count - 1 do begin
+        case FType of
+          eXML: begin
+              Line := Line + '      <' + MyDataSet.FieldDefs[i].Name + '>' +
+                MyDataSet.FieldByName(MyDataSet.FieldDefs[i].Name).AsString +
+                '</' + MyDataSet.FieldDefs[i].Name + '>' + #10;
+            end;
+          eHTML: begin
+              Line := Line + '<td>' + MyDataSet.FieldByName(MyDataSet.FieldDefs[i].Name).AsString + '</td>';
+            end;
+          eTXT: begin
+              Line := Line + Sep + MyDataSet.FieldByName(MyDataSet.FieldDefs[i].Name).AsString;
+            end;
+        end;
+        Sep := FSeparator;
+      end;
+
+      case FType of
+        eXML: Line := Line + '   </record>' + #10;
+        eHTML: Line := Line + '</tr>' + #10;
+      end;
+
+      Output.Add(Line); Line := ''; Sep := '';
+      MyDataSet.Next;
+    end;
+
+    case FType of
+      eXML: Line := Line + '   </table>' + #10;
+      eHTML: Line := Line + '</table>' + #10 + '</body>' + #10 + '</html>' + #10;
+    end;
+    Output.Add(Line);
+  end;
+end;
+
+{$IFDEF IPROVIDER}
+procedure TASQLite3BaseQuery.PSEndTransaction(Commit: Boolean);
+begin
+  // qui non sono molto sicuro...
+  if Assigned(Connection) then
+    if Commit then
+      Connection.Commit
+    else
+      Connection.RollBack;
+end;
+
+procedure TASQLite3BaseQuery.PSExecute;
+begin
+  UniDirectional := true;
+  ExecSQL;
+end;
+
+function TASQLite3BaseQuery.PSExecuteStatement(const ASQL: string;
+  AParams: TParams; ResultSet: Pointer): Integer;
+var
+  AsqlQry           : TASQLite3BaseQuery;
+begin
+  if Assigned(ResultSet) then
+  begin
+    TDataSet(ResultSet^) := TASQLite3Query.Create(nil);
+{$IFDEF ASQLITE_D6PLUS}
+    TASQlite3Query(ResultSet^).SetUniDirectional(true);// := true; // just store data in provider.
+{$endif}
+    with TASQLite3BaseQuery(ResultSet^) do begin
+      Connection := self.Connection;
+      Params.Assign(AParams);
+      FPrepared := ASql;
+      if FParams.Count > 0 then
+        FPrepared := SetQueryParams(FPrepared);
+      Open;
+      Result := Connection.RowsAffected;
+    end;
+  end
+  else
+  begin
+    AsqlQry := TASQLite3BaseQuery.Create(nil);
+    try
+      with AsqlQry do begin
+        Connection := self.Connection;
+        FPrepared := ASql;
+        FParams.Assign(AParams);
+        if FParams.Count > 0 then
+          FPrepared := SetQueryParams(AsqlQry.FPrepared);
+        ExecSQL;
+        Result := Connection.RowsAffected;
+      end;
+    finally
+      AsqlQry.Free;
+    end;
+  end;
+end;
+
+function TASQLite3BaseQuery.PSGetParams: TParams;
+begin
+  Result := Params;
+end;
+
+function TASQLite3BaseQuery.PSGetQuoteChar: string;
+begin
+  Result := '"';
+end;
+
+function TASQLite3BaseQuery.PSGetTableName: string;
+begin
+  Result := GetTableNameFromSQL(FSQL.Text);
+end;
+
+function TASQLite3BaseQuery.PSInTransaction: Boolean;
+begin
+  Result := Assigned(Connection);
+end;
+
+function TASQLite3BaseQuery.PSIsSQLBased: Boolean;
+begin
+  Result := True;
+end;
+
+function TASQLite3BaseQuery.PSIsSQLSupported: Boolean;
+begin
+  Result := True;
+end;
+
+procedure TASQLite3BaseQuery.PSSetCommandText(const CommandText: string);
+begin
+  if CommandText <> '' then begin
+    FSQL.Text := CommandText;
+    FPrepared := CommandText;
+  end;
+end;
+
+procedure TASQLite3BaseQuery.PSSetParams(AParams: TParams);
+begin
+  if AParams.Count <> 0 then
+    Params.Assign(AParams);
+  Close;
+end;
+
+procedure TASQLite3BaseQuery.PSStartTransaction;
+begin
+  StartTransaction;
+end;
+
+procedure TASQLite3BaseQuery.PSReset;
+begin
+  if Active then
+  begin
+    Close;
+    Open;
+  end;
+end;
+
+function TASQLite3BaseQuery.PSGetUpdateException(e: Exception; Prev: EUpdateError): EUpdateError;
+var
+  PrevErr           : Integer;
+begin
+  // Generates an EUpdateError object based on another exception object.
+  if e is ASGError then begin
+    if Prev = nil then
+      PrevErr := Prev.errorCode
+    else
+      PrevErr := 0;
+    with ASGError(e) do
+      Result := EUpdateError.Create(e.Message, '', -1, PrevErr, e);
+  end else
+    Result := EUpdateError.Create(e.Message, '', -1, -1, e);
+end;
+
+function TASQLite3BaseQuery.PSUpdateRecord(UpdateKind: TUpdateKind; Delta: TDataSet): Boolean;
+begin
+  // OnUpdateRecord is not supported
+  Result := False;
+end;
+
+function TASQlite3BaseQuery.PSGetKeyFields: string;
+var
+  i                 : integer;
+begin
+  Result := '';
+  for i := 0 to (Fields.Count - 1) do begin
+    if pfInKey in Fields[i].ProviderFlags then begin
+      if Result <> '' then
+        Result := Result + ';';
+      Result := Result + Fields[i].FieldName;
+    end;
+  end;
+end;
+
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/asqlite_def.inc b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/asqlite_def.inc
new file mode 100644
index 0000000..bbd5e3b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/asqlite_def.inc	
@@ -0,0 +1,99 @@
+{
+
+Aducom Software SQLite components
+Copyright (C) 2003-2006 by Aducom Software
+Albert Drent
+a.drent@aducom.com
+for questions please register on the forum on www.aducom.com/sqlite
+}
+
+{$IFDEF VER125}{C4}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
+{$IFDEF VER110}{C3}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
+{$IFDEF VER93}{C1}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
+{$IFDEF VER180}
+  {$DEFINE ASQLite_D2PLUS}
+  {$DEFINE ASQLite_D3PLUS}
+  {$DEFINE ASQLite_D4PLUS}
+  {$DEFINE ASQLite_D5PLUS}
+  {$DEFINE ASQLite_D6PLUS}
+  {$DEFINE ASQLite_D7PLUS}
+  {$DEFINE ASQLite_D2005PLUS}
+  {$DEFINE ASQLite_D2006PLUS}
+  {DELPHI10}
+  {$B-}{$X+}{$T-}{$H+}
+  {$DEFINE ASQLite_DYNARRAY}
+{$ENDIF}
+{$IFDEF VER170}
+  {$DEFINE ASQLite_D2PLUS}
+  {$DEFINE ASQLite_D3PLUS}
+  {$DEFINE ASQLite_D4PLUS}
+  {$DEFINE ASQLite_D5PLUS}
+  {$DEFINE ASQLite_D6PLUS}
+  {$DEFINE ASQLite_D7PLUS}
+  {$DEFINE ASQLite_D2005PLUS}
+  {DELPHI9}
+  {$B-}{$X+}{$T-}{$H+}
+  {$DEFINE ASQLite_DYNARRAY}
+{$ENDIF}
+{$IFDEF VER150}
+  {$DEFINE ASQLite_D2PLUS}
+  {$DEFINE ASQLite_D3PLUS}
+  {$DEFINE ASQLite_D4PLUS}
+  {$DEFINE ASQLite_D5PLUS}
+  {$DEFINE ASQLite_D6PLUS}
+  {$DEFINE ASQLite_D7PLUS}
+  {DELPHI7}
+  {$B-}{$X+}{$T-}{$H+}                                   
+  {$DEFINE ASQLite_DYNARRAY}
+{$ENDIF}
+{$IFDEF VER140}
+  {$DEFINE ASQLite_D2PLUS}
+  {$DEFINE ASQLite_D3PLUS}
+  {$DEFINE ASQLite_D4PLUS}
+  {$DEFINE ASQLite_D5PLUS}
+  {$DEFINE ASQLite_D6PLUS}
+  {DELPHI6}
+  {$B-}{$X+}{$T-}{$H+}
+  {$DEFINE ASQLite_DYNARRAY}
+{$ENDIF}
+{$IFDEF VER130}
+  {$DEFINE ASQLite_D2PLUS}
+  {$DEFINE ASQLite_D3PLUS}
+  {$DEFINE ASQLite_D4PLUS}
+  {$DEFINE ASQLite_D5PLUS}
+  {DELPHI5}
+  {$DEFINE ASQLite_DYNARRAY}
+  {$B-}{$X+}{$T-}{$H+}
+{$ENDIF}
+{$IFDEF VER120}
+  {$DEFINE ASQLite_D2PLUS}
+  {$DEFINE ASQLite_D3PLUS}
+  {$DEFINE ASQLite_D4PLUS}
+  {DELPHI4}
+  {$DEFINE ASQLite_DYNARRAY}
+  {$B-}{$X+}{$T-}{$H+}
+{$ENDIF}
+{$IFDEF VER100}
+  {$DEFINE ASQLite_D2PLUS}
+  {$DEFINE ASQLite_D3PLUS}
+  {$DEFINE ASQLite_NOINT64}
+  {DELPHI3}
+  {$B-}{$X+}{$T-}{$H+}
+{$ENDIF}
+{$IFDEF VER90}
+  {$DEFINE ASQLite_D2PLUS}
+  {$DEFINE ASQLite_NOINT64}
+  {$DEFINE ASQLite_NOWIDESTRING}
+  {DELPHI2}
+  {$B-}{$X+}{$T-}{$H+}
+{$ENDIF}
+
+{$IFDEF LINUX}{KYLIX}{$DEFINE CLX}{$ENDIF}
+{$IFDEF FPC}{$H+}{$MODE DELPHI}{$ENDIF}
+{$IFDEF ASQLite_D4PLUS}{$DEFINE ASQLite_HAVEVARIANT}{$ENDIF}
+{$R-}{$Q-}
+
+{$IFDEF CLX}
+{$DEFINE ASQLite_NOIDISPATCH} // not implemented
+{$ENDIF}
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAADODriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAADODriver.pas
new file mode 100644
index 0000000..3ee7b35
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAADODriver.pas	
@@ -0,0 +1,1795 @@
+unit uDAADODriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_ADODriver_Glyphs.res}
+
+// with included option, you can receive errors like
+// Access violation at address 6BD7297F in module 'msado15.dll'. Read of address 00000068.
+{.$DEFINE ADOMONITOR_SHOWPARAMVALUES}
+
+interface
+
+uses Windows, Classes, DB, uDAEngine, uDAInterfaces, uDAADOInterfaces, uROClasses, ADODB,
+  uDAInterfacesEx, uDAUtils, uDAOracleInterfaces;
+
+type { TDAADODriver }
+  TDAADODriver = class(TDADriverReference)
+  end;
+  TDAEADODriver = class;
+
+  TDAADOMonitor = class
+  private
+    FDriver: TDAEADODriver;
+    FEnabled: Boolean;
+    FOnCallback: TDALogTraceEvent;
+    FTraceFlags: TDATraceOptions;
+    procedure SetEnabled(const Value: Boolean);
+    procedure SetTraceFlags(const Value: TDATraceOptions);
+    procedure SetOnCallback(const Value: TDALogTraceEvent);
+    procedure ADOConnectionBeginTransComplete(Connection: TADOConnection;
+      TransactionLevel: Integer; const Error: Error;
+      var EventStatus: TEventStatus);
+    procedure ADOConnectionCommitTransComplete(Connection: TADOConnection;
+      const Error: Error; var EventStatus: TEventStatus);
+    procedure ADOConnectionConnectComplete(Connection: TADOConnection;
+      const Error: Error; var EventStatus: TEventStatus);
+    procedure ADOConnectionExecuteComplete(Connection: TADOConnection;
+      RecordsAffected: Integer; const Error: Error;
+      var EventStatus: TEventStatus; const Command: _Command;
+      const Recordset: _Recordset);
+    procedure ADOConnectionInfoMessage(Connection: TADOConnection;
+      const Error: Error; var EventStatus: TEventStatus);
+    procedure ADOConnectionRollbackTransComplete(
+      Connection: TADOConnection; const Error: Error;
+      var EventStatus: TEventStatus);
+    procedure ADOConnectionDisconnect(Connection: TADOConnection;
+      var EventStatus: TEventStatus);
+    procedure ADOConnectionWillConnect(Connection: TADOConnection;
+      var ConnectionString, UserID, Password: WideString;
+      var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
+    procedure ADOConnectionWillExecute(Connection: TADOConnection;
+      var CommandText: WideString; var CursorType: TCursorType;
+      var LockType: TADOLockType; var CommandType: TCommandType;
+      var ExecuteOptions: TExecuteOptions; var EventStatus: TEventStatus;
+      const Command: _Command; const Recordset: _Recordset);
+  public
+    constructor Create(ADriver: TDAEADODriver);
+    procedure ReAssignEvents;
+    procedure AssignEvents(AConnection:TADOConnection);
+    procedure UnAssignEvents(AConnection:TADOConnection);
+    property Enabled : Boolean read FEnabled write SetEnabled;
+    property TraceFlags: TDATraceOptions read FTraceFlags write SetTraceFlags;
+    property OnCallback: TDALogTraceEvent read FOnCallback write SetOnCallback;
+  end;
+
+     { TDAEADODriver }
+  TDAEADODriver = class(TDAEDriver, IDADriver40)
+  private
+    FConnectionList: TThreadList;
+    FMonitor: TDAADOMonitor;
+  protected
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceFlags: TDATraceOptions; Callback: TDALogTraceEvent); override;
+    procedure RegisterConnection(AConnection: TADOConnection);
+    procedure UnregisterConnection(AConnection: TADOConnection);
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    procedure CustomizeConnectionObject(aConnection: TDAEConnection); override;
+       // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+    procedure GetAuxDrivers(out List: IROStrings); override;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
+    function GetProviderDefaultCustomParameters(Provider: string): string; safecall;
+    function GetDefaultConnectionType(const AuxDriver: string): string;override; safecall;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+     { TDAEADOConnection }
+  TDAEADOConnection = class(TDAEConnection,
+    IDAADOConnection, IDAConnectionModelling, IDACanQueryDatabaseNames,IDAFileBasedDatabase,
+    IDAUseGenerators,IDAUseGenerators2,IDAOracleConnection)
+  private
+    fProviderName: string;
+    fSchemaEnabled: Boolean;
+    fProviderType: TDAOleDBProviderType;
+    fADOConnection: TADOConnection;
+    fQuery_CursorType: TCursorType;
+    fQuery_CursorLocation: TCursorLocation;
+    fQuery_ADOLockType: TADOLockType;
+    procedure GetViewOrTableNames(const aType: string; const aSystemTables: boolean; List: IROStrings);
+    function CreateCompatibleQuery: IDADataset;
+
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+    function CreateCustomConnection: TCustomConnection; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+
+    function GetQuoteChars: TDAQuoteCharArray; override;
+    function isAlive: Boolean; override; safecall;
+
+    // IADOConnection
+    function GetProviderName: string; safecall;
+    function GetProviderType: TDAOleDBProviderType; safecall;
+    function GetCommandTimeout: Integer; safecall;
+    procedure SetCommandTimeout(const Value: Integer); safecall;
+
+    // IDAConnectionModelling
+    function BuildCreateTableSQL(aDataSet: TDADataSet; const aOverrideName: string = ''): string; safecall;
+    procedure CreateTable(aDataSet: TDADataSet; const aOverrideName: string = ''); safecall;
+    function FieldToDeclaration(aField: TDAField): string; safecall;
+
+    // IDACanQueryDatabaseNames
+    function GetDatabaseNames: IROStrings;
+    function GetSPSelectSyntax(HasArguments: Boolean): String; override; safecall;
+    // IDAFileBasedDatabase
+    function GetFileExtensions: IROStrings;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; safecall;
+    { IDAUseGenerators }
+    function GetNextAutoinc(const GeneratorName: string): integer; safecall;
+    { IDAUseGenerators2 }
+    function GetNextAutoinc2(const GeneratorName: string): variant; safecall;
+  public
+    constructor Create(aDriver: TDAEDriver; aName: string = ''); override;
+    destructor Destroy; override;
+    property SchemaEnabled: Boolean read fSchemaEnabled write fSchemaEnabled;
+  end;
+
+     { TDAEADOQuery }
+  TDAEADOQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+
+  protected
+    procedure ClearParams; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+
+
+       // IDAMustSetParams
+    procedure SetParamValues(Params: TDAParamCollection); override;safecall;
+    procedure RefreshParams; override; safecall;
+    procedure GetParamValues(Params: TDAParamCollection); override;safecall;
+
+  public
+  end;
+
+     { TDAEADOStoredProcedure }
+  TDAEADOStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+
+       // IDAMustSetParams
+    procedure SetParamValues(Params: TDAParamCollection); override;safecall;
+    procedure GetParamValues(Params: TDAParamCollection); override;safecall;
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses SysUtils, uDADriverManager, uDARes, Variants, ADOInt, uDAMacroProcessors,
+  Math, uDAHelpers, uROBinaryHelpers, uDAPostgresInterfaces;
+
+const
+  Default_CursorType = ctOpenForwardOnly;
+  Default_CursorLocation = clUseServer;
+  Default_ADOLockType = ltReadOnly;
+
+const
+   TConnectOptionStr:  array[TConnectOption]  of string = ('coConnectUnspecified', 'coAsyncConnect');
+   TCursorLocationStr: array[TCursorLocation] of string = ('clUseServer', 'clUseClient');
+   TCursorTypeStr:     array[TCursorType]     of string = ('ctUnspecified', 'ctOpenForwardOnly', 'ctKeyset', 'ctDynamic','ctStatic');
+   TEventStatusStr:    array[TEventStatus]    of string = ('esOK', 'esErrorsOccured', 'esCantDeny', 'esCancel', 'esUnwantedEvent');
+   TADOLockTypeStr:    array[TADOLockType]    of string = ('ltUnspecified', 'ltReadOnly', 'ltPessimistic', 'ltOptimistic', 'ltBatchOptimistic');
+   TCommandTypeStr:    array[TCommandType]    of string = ('cmdUnknown', 'cmdText', 'cmdTable', 'cmdStoredProc', 'cmdFile', 'cmdTableDirect');
+   TExecuteOptionStr:  array[TExecuteOption]  of string = ('eoAsyncExecute', 'eoAsyncFetch', 'eoAsyncFetchNonBlocking','eoExecuteNoRecords');
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAADODriver]);
+end;
+
+function GetDriverObject: IDADriver;
+begin
+  if (_driver = nil) then _driver := TDAEADODriver.Create(nil);
+  result := _driver;
+end;
+
+type
+  TDecimalVariant = packed record
+    VarType: TVarType;
+    scale: Byte;
+    sign: Byte;
+    Hi32: Cardinal;
+    Lo32: Cardinal;
+    Mid32: Cardinal;
+    Dummy: Cardinal;
+  end;
+
+function DecimalToInt64(const V: Variant): variant;
+var
+  vData: TDecimalVariant absolute V;
+begin
+  if VarIsNull(v) or VarIsEmpty(v) then
+    VarClear(Result)
+  else if (vData.VarType = 14) and (vData.scale = 0) and (vData.Hi32 = 0) then begin
+    Result := Int64(vData.Lo32) or (Int64(vData.Mid32) shl 32);
+    if vData.sign <> 0 then result := -Result;
+  end else result := v;
+end;
+
+function Int64ToDecimal(Data: Variant): Variant;
+var
+  vd: TDecimalVariant absolute Result;
+  lint64: int64;
+begin
+  VarClear(Result);
+  if VarIsNull(Data) or VarIsEmpty(Data) then Exit;
+  lint64 := Data;
+  vd.scale := 0;
+  if lint64 < 0 then begin
+    vd.Sign := 128;
+    lint64 := -lint64;
+  end else
+    vd.sign := 0;
+  vd.Hi32 := 0;
+  vd.Mid32 := int64(lint64 shr 32);
+  vd.Lo32 := lint64;
+  vd.VarType := 14;
+end;
+
+
+{ TDAEADOConnection }
+
+procedure TDAEADOConnection.DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  lConnectionString: string;
+  i: Integer;
+  sName,sValue: string;
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    lConnectionString := '';
+    if AuxDriver <> '' then lConnectionString := lConnectionString + 'Provider=' + AuxDriver + ';' else
+      raise EDADriverException.Create('No aux driver specified for ADO connection');
+
+    fProviderName := AuxDriver;
+    fProviderType := OleDBDriverIdToOleDBProviderType(fProviderName);
+
+    if (Self.UserID <> '') then
+      lConnectionString := lConnectionString + 'User ID=' + Self.UserID + ';'
+    else if (UserID <> '') then
+      lConnectionString := lConnectionString + 'User ID=' + UserID + ';';
+
+    if (Self.Password <> '') then
+      lConnectionString := lConnectionString + 'Password=' + Self.Password + ';'
+    else if (Password <> '') then
+      lConnectionString := lConnectionString + 'Password=' + Password + ';';
+
+    if fProviderType = oledb_Jet then begin
+      lConnectionString := lConnectionString + 'Data Source=' + Database+';';
+    end else begin
+      if Database <> '' then begin
+        if fProviderType = oledb_Postgresql then
+          lConnectionString := lConnectionString + 'Location=' + Database + ';'
+        else
+          lConnectionString := lConnectionString + 'Initial Catalog=' + Database + ';';
+      end;
+      if Server <> '' then lConnectionString := lConnectionString + 'Data Source=' + Server + ';';
+
+      if fProviderType <> oledb_Postgresql then
+        lConnectionString := lConnectionString + 'OLE DB SERVICES=-2;';
+    end;
+    fSchemaEnabled := false;
+    for i := 0 to AuxParamsCount -1 do
+    begin
+      sName := AuxParamNames[i];
+      if sName = '' then Continue;
+      sValue := AuxParams[AuxParamNames[i]];
+      if AnsiSameText('SCHEMAS',sName) then
+        fSchemaEnabled := sValue = '1'
+      else if AnsiSameText(sName, 'CursorLocation') then begin
+        if AnsiSameText('clUseServer',sValue) then
+          fQuery_CursorLocation:= clUseServer
+        else if AnsiSameText('clUseClient',sValue) then
+          fQuery_CursorLocation:= clUseClient;
+      end else if AnsiSameText(sName,'CursorType') then begin
+        if AnsiSameText('ctUnspecified',sValue) then
+          fQuery_CursorType:=ctUnspecified
+        else if AnsiSameText('ctOpenForwardOnly',sValue) then
+          fQuery_CursorType:=ctOpenForwardOnly
+        else if AnsiSameText('ctKeyset',sValue) then
+          fQuery_CursorType:=ctKeyset
+        else if AnsiSameText('ctDynamic',sValue) then
+          fQuery_CursorType:=ctDynamic
+        else if AnsiSameText('ctStatic',sValue) then
+          fQuery_CursorType:=ctStatic;
+      end else if AnsiSameText(sName, 'LockType') then begin
+        if AnsiSameText('ltUnspecified',sValue) then
+          fQuery_ADOLockType:= ltUnspecified
+        else if AnsiSameText('ltReadOnly',sValue) then
+          fQuery_ADOLockType:= ltReadOnly
+        else if AnsiSameText('ltPessimistic',sValue) then
+          fQuery_ADOLockType:= ltPessimistic
+        else if AnsiSameText('ltOptimistic',sValue) then
+          fQuery_ADOLockType:= ltOptimistic
+        else if AnsiSameText('ltBatchOptimistic',sValue) then
+          fQuery_ADOLockType:= ltBatchOptimistic;
+      end else begin
+        if sName[1] = '@' then sName:= Pchar(sName)+1;
+        lConnectionString := lConnectionString + sName + '=' + sValue +';';
+      end;
+    end;
+    fADOConnection.ConnectionString := lConnectionString;
+  end;
+  SchemaEnabled := fSchemaEnabled or ((UpperCase(GetProviderName) = 'SQLNCLI') or (UpperCase(GetProviderName) ='SQLNCLI.1'));
+  if fProviderType = oledb_Postgresql then fQuery_CursorLocation:=clUseClient; // ADOQuery can't process correctly "name" datatype of Postgres
+  if fProviderType = oledb_Oracle then fQuery_CursorLocation:=clUseClient; // Oracle don't work correctly without clUseClient
+end;
+
+function TDAEADOConnection.DoBeginTransaction: integer;
+begin
+  result := fADOConnection.BeginTrans
+end;
+
+procedure TDAEADOConnection.DoCommitTransaction;
+begin
+  fADOConnection.CommitTrans
+end;
+
+function TDAEADOConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fSchemaEnabled := true;
+  fADOConnection := TADOConnection.Create(nil);
+  fADOConnection.LoginPrompt := FALSE;
+  if Assigned(fADOConnection) then TDAEADODriver(Driver).RegisterConnection(fADOConnection);
+  result := fADOConnection;
+end;
+
+function TDAEADOConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEADOQuery;
+end;
+
+function TDAEADOConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEADOStoredProcedure;
+end;
+
+procedure TDAEADOConnection.DoGetStoredProcedureNames(out List: IROStrings);
+var
+  Schema, NameField: TField;
+  DataSet: TADODataSet;
+  lName: string;
+  p: integer;
+begin
+  inherited;
+  case fProviderType of
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: MSSQL_DoGetNames(CreateCompatibleQuery,List,dotProcedure,SchemaEnabled);
+    oledb_Postgresql: Postgres_DoGetNames(CreateCompatibleQuery,List,dotProcedure);
+    oledb_Oracle: Oracle_DoGetNames(CreateCompatibleQuery,List,dotProcedure);
+  else
+    fADOConnection.Open();
+    DataSet := TADODataSet.Create(nil);
+    try
+      fADOConnection.OpenSchema(siProcedures, EmptyParam, EmptyParam, DataSet);
+      NameField := DataSet.FieldByName('PROCEDURE_NAME');
+      Schema := DataSet.Findfield('PROCEDURE_SCHEMA');
+      while not DataSet.EOF do begin
+        lName := NameField.AsString;
+        if (Schema <> nil) and (Schema.Value = 'sys') then begin dataset.Next; continue; end;
+        p := Pos(';', lName);
+        if p > 1 then begin
+          if P+1 >= length(lName) then begin
+            if lName[p+1] = '0' then // function
+            begin
+              Dataset.Next;
+              continue;
+            end;
+          end;
+          SetLength(lName, p-1);
+        end;
+        if fSchemaEnabled and (Schema <> nil) and not (VarIsNull(Schema.Value)) then
+          List.Add(Schema.AsString + '.' + lName)
+        else
+          List.Add(lName);
+        DataSet.Next;
+      end;
+    finally
+      DataSet.Free;
+    end;
+  end;
+end;
+
+function ADOTypeToFieldType(const ADOType: DataTypeEnum; EnableBCD: Boolean = False): TFieldType;
+begin
+  case ADOType of
+    adEmpty: Result := ftUnknown;
+    adTinyInt, adSmallInt: Result := ftSmallint;
+    adError, adInteger, adUnsignedInt: Result := ftInteger;
+    adBigInt, adUnsignedBigInt: Result := ftLargeInt;
+    adUnsignedTinyInt, adUnsignedSmallInt: Result := ftWord;
+    adSingle, adDouble: Result := ftFloat;
+    adCurrency: Result := ftCurrency;
+    adBoolean: Result := ftBoolean;
+    adDBDate: Result := ftDate;
+    adDBTime: Result := ftTime;
+    adDate, adDBTimeStamp, adFileTime, adDBFileTime: Result := ftDateTime;
+    adChar: Result := ftFixedChar;
+    adVarChar: Result := ftString;
+    adBSTR, adWChar, adVarWChar: Result := ftWideString;
+    adLongVarChar, adLongVarWChar: Result := ftMemo;
+    adLongVarBinary: Result := ftBlob;
+    adBinary: Result := ftBytes;
+    adVarBinary: Result := ftVarBytes;
+    adChapter: Result := ftDataSet;
+    adPropVariant, adVariant: Result := ftVariant;
+    adIUnknown: Result := ftInterface;
+    adIDispatch: Result := ftIDispatch;
+    adGUID: Result := ftGUID;
+    adDecimal, adNumeric, adVarNumeric:
+      if EnableBCD then
+        Result := ftBCD
+      else
+        Result := ftFloat;
+  else
+    Result := ftUnknown;
+  end;
+end;
+
+(*procedure TDAEADOConnection.DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection);
+var
+  DataSet: TADODataSet;
+begin
+  fADOConnection.Open();
+  DataSet := TADODataSet.Create(nil);
+  try
+    fADOConnection.OpenSchema(siProcedureParameters, VarArrayOf([Null, Null, aStoredProcedureName]), EmptyParam, DataSet);
+    //NameField := DataSet.FieldByName('PROCEDURE_NAME'); { do not localize }
+    Params := TDAParamCollection.Create(NIL);
+    while not DataSet.EOF do  begin
+      with Params.Add() do begin
+        Name := DataSet.FieldByName('PARAMETER_NAME').AsString;
+        ParamType := TDAParamType(DataSet.FieldByName('PARAMETER_TYPE').AsInteger);
+        //DataType := TDADataType(DataSet.FieldByName('DATA_TYPE').AsInteger);
+        DataType := VCLTypeToDAType(ADOTypeToFieldType(DataSet.FieldByName('DATA_TYPE').AsInteger));
+        Size := DataSet.FieldByName('CHARACTER_MAXIMUM_LENGTH').AsInteger
+        //more info available:
+        //'PARAMETER_HASDEFAULT'
+        //'PARAMETER_DEFAULT'
+        //'IS_NULLABLE'
+        //'DATA_TYPE'
+        //'CHARACTER_MAXIMUM_LENGTH'
+        //'CHARACTER_OCTET_LENGTH'
+        //'DESCRIPTION'
+        //'TYPE_NAME'
+        //'LOCAL_TYPE_NAME'
+      end;
+      //List.Add(NameField.AsString);
+      DataSet.Next;
+    end;
+  finally
+    DataSet.Free;
+  end;
+end;*)
+
+procedure TDAEADOConnection.DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection);
+var
+  lField: TDAField;
+  //i: Integer;
+  DataSet: TADODataSet;
+begin
+  case fProviderType of
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),CreateCompatibleQuery,Fields);
+    oledb_Postgresql: Postgres_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),CreateCompatibleQuery,Fields);
+    oledb_Oracle: Oracle_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),CreateCompatibleQuery,Fields);
+  else
+    fADOConnection.Open();
+    DataSet := TADODataSet.Create(nil);
+    try
+      if (pos('.', aTableName) > 0) and (SchemaEnabled) then
+        fADOConnection.OpenSchema(siColumns, VarArrayOf([Unassigned, Copy(aTableName, 1, Pos('.', aTableName)-1), Copy(aTableName, Pos('.', aTableName)+1, MaxInt)]), EmptyParam, DataSet)
+      else
+        fADOConnection.OpenSchema(siColumns, VarArrayOf([Unassigned, Unassigned, aTableName]), EmptyParam, DataSet);
+      //NameField := DataSet.FieldByName('PROCEDURE_NAME'); { do not localize }
+      if DataSet.EOF then begin
+        inherited DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), Fields);
+        exit ;
+      end;
+
+      Fields := TDAFieldCollection.Create(nil);
+
+      {for i := 0 to DataSet.FieldCount-1 do begin
+        DebugServer.Wre(DataSet.Fields[i].FieldName);
+      end; { for }
+
+      while not DataSet.EOF do begin
+        with Fields.Add() do begin
+          Name := DataSet.FieldByName('COLUMN_NAME').AsString;
+          DataType := VCLTypeToDAType(ADOTypeToFieldType(DataSet.FieldByName('DATA_TYPE').AsInteger));
+          Size := DataSet.FieldByName('CHARACTER_MAXIMUM_LENGTH').AsInteger;
+          Description := DataSet.FieldByName('DESCRIPTION').AsString;
+          // NotNull := DataSet.FieldByName('IS_NULLABLE').AsBoolean;
+          Required := not DataSet.FieldByName('IS_NULLABLE').AsBoolean;
+
+          { Hack: for Memo fields ADO seems to return datString, with a lenght of $7fffffff }
+          //if (DataType = datString) and (Size = $7FFFFFFF) then
+          if (DataType = datString) and (Size > $100000) then
+            DataType := datMemo;
+          if (DAtaType = datWideString) and (Size > $100000) then
+            DataType := datWideMemo;
+
+          if DataSet.FieldByName('COLUMN_HASDEFAULT').AsBoolean then
+          begin
+            DefaultValue := DataSet.FieldByName('COLUMN_DEFAULT').AsString;
+            if not TestDefaultValue(DefaultValue, DataType) then
+              DefaultValue := '';
+          end;
+
+          if ADOTypeToFieldType(DataSet.FieldByName('DATA_TYPE').AsInteger) = ftGUID then begin
+            Size := 38; { Quickhack, until we have proper GUID support in 3.0 }
+            if DefaultValue = 'newid()' then DefaultValue := Unassigned;
+          end;
+
+
+          //more info available:
+          //'COLUMN_HASDEFAULT'
+          //'COLUMN_DEFAULT'
+          //'IS_NULLABLE'
+          //'DATA_TYPE'
+          //'CHARACTER_MAXIMUM_LENGTH'
+        end;
+        //List.Add(NameField.AsString);
+        DataSet.Next;
+      end;
+
+      if (pos('.', aTableName) > 0) and (SchemaEnabled) then
+        fADOConnection.OpenSchema(siPrimaryKeys, VarArrayOf([Unassigned, Copy(aTableName, 1, Pos('.', aTableName)-1), Copy(aTableName, Pos('.', aTableName)+1, MaxInt)]), EmptyParam, DataSet)
+      else
+        fADOConnection.OpenSchema(siPrimaryKeys, VarArrayOf([Unassigned, Unassigned, aTableName]), EmptyParam, DataSet);
+      {for i := 0 to DataSet.FieldCount-1 do begin
+        DebugServer.Write(DataSet.Fields[i].FieldName);
+      end; { for }
+      while not DataSet.EOF do begin
+        lField := Fields.FieldByName(DataSet.FieldByName('COLUMN_NAME').AsString);
+        if Assigned(lField) then
+          lField.InPrimaryKey := true;
+
+        DataSet.Next();
+      end;
+    finally
+      DataSet.Free;
+    end;
+  end;
+end;
+
+procedure TDAEADOConnection.DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection);
+var
+  //i: Integer;
+  DataSet: TADODataSet;
+  s: string;
+  PKSchema,FKSchema: TField;
+begin
+  inherited;
+  case fProviderType of
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: MSSQL_DoGetForeignKeys(CreateCompatibleQuery, ForeignKeys, SchemaEnabled);
+    oledb_Postgresql:  Postgres_DoGetForeignKeys(CreateCompatibleQuery, ForeignKeys);
+    oledb_Oracle:  Oracle_DoGetForeignKeys(CreateCompatibleQuery, ForeignKeys);
+  else
+    s := UpperCase(GetProviderName);
+    fADOConnection.Open();
+    DataSet := TADODataSet.Create(nil);
+    try
+      fADOConnection.OpenSchema(siForeignKeys, EmptyParam, EmptyParam, DataSet);
+      {for i := 0 to DataSet.FieldCount-1 do begin
+        DebugServer.Write(DataSet.Fields[i].FieldName);
+      end; { for }
+      PKSchema := DataSet.FindField('PK_TABLE_SCHEMA');
+      FKSchema := DataSet.FindField('FK_TABLE_SCHEMA');
+      while not DataSet.EOF do begin
+        {lField := Fields.FieldByName(DataSet.FieldByName('COLUMN_NAME').AsString);
+        if Assigned(lField) then
+          lField.InPrimaryKey := true;}
+        with ForeignKeys.Add() do begin
+          FKField := DataSet.FieldByName('FK_COLUMN_NAME').AsString;
+          PKField := DataSet.FieldByName('PK_COLUMN_NAME').AsString;
+          //FKTable := DataSet.FieldByName('FK_TABLE_NAME').AsString;
+          //PKTable := DataSet.FieldByName('PK_TABLE_NAME').AsString;
+          if fSchemaEnabled and (PKSchema <> nil) and not (VarIsNull(PKSchema.Value)) then
+            PKTable := PKSchema.AsString + '.' + DataSet.FieldByName('PK_TABLE_NAME').AsString
+          else
+            PKTable := DataSet.FieldByName('PK_TABLE_NAME').AsString;
+          if fSchemaEnabled and (FKSchema <> nil) and not (VarIsNull(FKSchema.Value)) then
+            FKTable := FKSchema.AsString + '.' + DataSet.FieldByName('FK_TABLE_NAME').AsString
+          else
+            FKTable := DataSet.FieldByName('FK_TABLE_NAME').AsString;
+
+        end;
+        {DebugServer.Write(DataSet.FieldByName('FK_TABLE_NAME').AsString+'.'+DataSet.FieldByName('FK_COLUMN_NAME').AsString+' => '+
+                          DataSet.FieldByName('PK_COLUMN_NAME').AsString);}
+
+        DataSet.Next();
+      end;
+
+
+    finally
+      DataSet.Free;
+    end;
+  end;  
+end;
+
+procedure TDAEADOConnection.GetViewOrTableNames(const aType: string; const aSystemTables: boolean; List: IROStrings);
+var
+  SchemaField,
+  TypeField,
+    NameField: TField;
+  TableType: string;
+  DataSet: TADODataSet;
+begin
+  fADOConnection.Open();
+
+  DataSet := TADODataSet.Create(nil);
+  try
+    fADOConnection.OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);
+
+    TypeField := DataSet.FieldByName('TABLE_TYPE'); { do not localize }
+    NameField := DataSet.FieldByName('TABLE_NAME'); { do not localize }
+    SchemaField := DataSet.FindField('TABLE_SCHEMA');
+    while not DataSet.EOF do begin
+      TableType := TypeField.AsString;
+      if (TableType = aType) or ((aType = 'TABLE') and (TableType ='ACCESS TABLE')) or (aSystemTables and (TableType = 'SYSTEM TABLE')) then
+      begin
+        if fSchemaEnabled and (SchemaField <> nil) and not (VarIsNull(SchemaField.Value)) then
+          List.Add(SchemaField.AsString + '.' + NameField.AsString)
+        else
+          List.Add(NameField.AsString);
+      end;
+      DataSet.Next;
+    end;
+  finally
+    DataSet.Free;
+  end;
+end;
+
+procedure TDAEADOConnection.DoGetViewNames(out List: IROStrings);
+var
+  Schema,NameField: TField;
+  DataSet: TADODataSet;
+  lName: string;
+  p: integer;
+begin
+  inherited;
+  case fProviderType of
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: MSSQL_DoGetNames(CreateCompatibleQuery,List,dotView,SchemaEnabled);
+    oledb_Postgresql: Postgres_DoGetNames(CreateCompatibleQuery,List,dotView);
+    oledb_Oracle: Oracle_DoGetNames(CreateCompatibleQuery,List,dotView);
+  else
+    GetViewOrTableNames('VIEW', false, List);
+    fADOConnection.Open();
+    DataSet := TADODataSet.Create(nil);
+    try
+      fADOConnection.OpenSchema(siProcedures, EmptyParam, EmptyParam, DataSet);
+      NameField := DataSet.FieldByName('PROCEDURE_NAME'); { do not localize }
+      Schema := DataSet.Findfield('PROCEDURE_SCHEMA');
+      if List = nil then
+        List := NewROStrings();
+      while not DataSet.EOF do begin
+        lName := NameField.AsString;
+        if (Schema <> nil) and (Schema.Value = 'sys') then begin dataset.Next; continue; end;
+        p := Pos(';', lName);
+        if p > 1 then begin
+          if P+1 >= length(lName) then begin
+            if lName[p+1] = '1' then // procedure
+            begin
+              Dataset.Next;
+              continue;
+            end;
+          end;
+          SetLength(lName, p-1);
+        end;
+        if fSchemaEnabled and (Schema <> nil) and not (VarIsNull(Schema.Value)) then
+          List.Add(Schema.AsString + '.' + lName)
+        else
+          List.Add(lName);
+        DataSet.Next;
+      end;
+    finally
+      DataSet.Free;
+    end;
+  end;
+end;
+
+procedure TDAEADOConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited;
+  case fProviderType of
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: MSSQL_DoGetNames(CreateCompatibleQuery,List,dotTable,SchemaEnabled);
+    oledb_Postgresql: Postgres_DoGetNames(CreateCompatibleQuery,List,dotTable);
+    oledb_Oracle: Oracle_DoGetNames(CreateCompatibleQuery,List,dotTable);
+  else
+    GetViewOrTableNames('TABLE', false, List);
+  end;
+end;
+
+procedure TDAEADOConnection.DoRollbackTransaction;
+begin
+  fADOConnection.RollbackTrans
+end;
+
+function TDAEADOConnection.GetQuoteChars: TDAQuoteCharArray;
+begin
+  case fProviderType of
+    oledb_Oracle: Result:= Oracle_GetQuoteChars;
+  else
+    result:=MSSQL_GetQuoteChars;
+  end;  
+end;
+
+function TDAEADOConnection.DoGetInTransaction: boolean;
+begin
+  result := fADOConnection.InTransaction
+end;
+
+function TDAEADOConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+var
+  ds: IDADataset;
+begin
+  case fProviderType of
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: begin
+      Result := MSSQL_DoGetLastAutoInc(GeneratorName,CreateCompatibleQuery);
+    end;
+    oledb_Jet: begin
+      ds := NewDataset('SELECT @@Identity', ''); // Returns 0 by default
+      ds.Open;
+      result := ds.Fields[0].Value;
+    end;
+    oledb_Postgresql: Result := Postgres_DoGetLastAutoInc(GeneratorName,CreateCompatibleQuery);
+    oledb_Oracle: Result := Oracle_DoGetLastAutoInc(GeneratorName,CreateCompatibleQuery);
+  else
+    result := inherited DoGetLastAutoInc(GeneratorName);
+  end;
+end;
+
+function TDAEADOConnection.GetProviderName: string;
+begin
+  result := fProviderName;
+end;
+
+function TDAEADOConnection.GetProviderType: TDAOleDBProviderType;
+begin
+  result := fProviderType;
+end;
+
+function TDAEADOConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  case fProviderType of
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: Result := MSSQL_CreateMacroProcessor;
+    oledb_Jet: result := MSSQL_CreateMacroProcessor;
+    oledb_Oracle: Result := Oracle_CreateMacroProcessor;
+  else
+    Result:= inherited CreateMacroProcessor;
+  end;
+end;
+
+procedure TDAEADOConnection.CreateTable(aDataSet: TDADataSet; const aOverrideName: string);
+var
+  lSQL: string;
+begin
+  lSQL := BuildCreateTableSQL(aDataSet, aOverrideName);
+  with NewCommand(lSQL, stSQL) do begin
+    Execute();
+  end; { with }
+end;
+
+function TDAEADOConnection.BuildCreateTableSQL(aDataSet: TDADataSet; const aOverrideName: string): string;
+var
+  lName: string;
+begin
+  lName := aOverrideName;
+  if lName = '' then lName := aDataSet.Name;
+  result := uDAHelpers.BuildCreateStatementForTable(aDataSet, lName, self);
+end;
+
+function TDAEADOConnection.FieldToDeclaration(aField: TDAField): string;
+begin
+  case aField.DataType of
+    datUnknown: result := 'unknown';
+    datString: result := Format('varchar(%d)', [aField.Size]);
+    datDateTime: result := 'datetime';
+    datFloat: result := 'float';
+    datCurrency: result := 'money';
+    datAutoInc: result := 'int IDENTITY(1,1)';
+    datLargeAutoInc: result := 'bigint IDENTITY(1,1)';
+    datInteger: result := 'int';
+    datLargeInt: result := 'largeint';
+    datBoolean: result := 'bit';
+    datMemo: result := 'text';
+    datWideMemo: result := 'ntext';
+    datBlob: result := 'image';
+    //datGuid:result := 'uniqueidentifier';
+  end; { case }
+end;
+
+function TDAEADOConnection.GetDatabaseNames: IROStrings;
+begin
+  case fProviderType of
+    oledb_Jet: Result := NewROStrings;
+    oledb_Postgresql: Result:= Postgres_GetDatabaseNames(Self);
+  else
+    Result := MSSQL_GetDatabaseNames(Self);
+  end;
+end;
+
+function TDAEADOConnection.GetSPSelectSyntax(
+  HasArguments: Boolean): String;
+begin
+  case fProviderType of
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: Result := MSSQL_GetSPSelectSyntax(HasArguments);
+    oledb_Oracle: Result := Oracle_GetSPSelectSyntax(HasArguments);
+    oledb_Postgresql: Result:= Postgres_GetSPSelectSyntax(HasArguments);
+  else
+    Result := inherited GetSPSelectSyntax(HasArguments);
+  end;
+end;
+
+function TDAEADOConnection.GetCommandTimeout: Integer;
+begin
+  if fADOConnection <> nil then
+    Result:= fADOConnection.CommandTimeout
+  else
+    Result:=0;
+end;
+
+procedure TDAEADOConnection.SetCommandTimeout(const Value: Integer);
+begin
+  if fADOConnection <> nil then
+    fADOConnection.CommandTimeout:= Value;
+end;
+
+function TDAEADOConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier);
+  if not Result then
+    case fProviderType of
+      oledb_Oracle: Result:= Oracle_IdentifierNeedsQuoting(iIdentifier);
+      oledb_Postgresql: Result:= Postgres_IdentifierNeedsQuoting(iIdentifier);
+    else
+      Result:= MSSQL_IdentifierNeedsQuoting(iIdentifier);
+    end;  
+end;
+
+function TDAEADOConnection.GetFileExtensions: IROStrings;
+begin
+  case fProviderType of
+    oledb_Jet: Result:=MSACCESS_GetFileExtensions;
+  else
+    result := NewROStrings;
+  end;
+end;
+
+function TDAEADOConnection.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  Result := E_NOINTERFACE;
+  if IsEqualGUID(IID, IDAFileBasedDatabase) then begin
+    if not (fProviderType in [oledb_Jet]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDACanQueryDatabaseNames) then begin
+    if (fProviderType in [oledb_Jet]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDAUseGenerators) or IsEqualGUID(IID, IDAUseGenerators2) then begin
+    if not (fProviderType in [oledb_Oracle, oledb_Postgresql]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDAOracleConnection) then begin
+    if (fProviderType <> oledb_Oracle) then Exit;
+  end;
+
+  Result := inherited QueryInterface(IID, Obj);
+end;
+
+function TDAEADOConnection.isAlive: Boolean;
+begin
+  Result:=(ConnectionObject <> nil) and not (stClosed in fADOConnection.State);
+end;
+
+constructor TDAEADOConnection.Create(aDriver: TDAEDriver; aName: string);
+begin
+  inherited Create(aDriver, aName);
+  fQuery_CursorType := Default_CursorType;
+  fQuery_CursorLocation := Default_CursorLocation;
+  fQuery_ADOLockType := Default_ADOLockType;
+end;
+
+function TDAEADOConnection.GetNextAutoinc(const GeneratorName: string): integer;
+begin
+  Result := GetNextAutoinc2(GeneratorName);
+end;
+
+function TDAEADOConnection.CreateCompatibleQuery: IDADataset;
+begin
+  Result := GetDatasetClass.Create(Self);
+  TADOQuery(Result.Dataset).CursorLocation:=clUseClient;
+end;
+
+procedure TDAEADOConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  case fProviderType of
+    oledb_Postgresql: Postgres_DoGetStoredProcedureParams(aStoredProcedureName, CreateCompatibleQuery, Params);
+    oledb_Oracle: Oracle_DoGetStoredProcedureParams(aStoredProcedureName, CreateCompatibleQuery, Params);
+    oledb_MSSQL, oledb_MSSQL2005, oledb_MSSQL2008: MSSQL_DoGetStoredProcedureParams(aStoredProcedureName, CreateCompatibleQuery, Params);
+  else
+    inherited;
+  end;
+end;
+
+destructor TDAEADOConnection.Destroy;
+begin
+  if Assigned(fADOConnection) then TDAEADODriver(Driver).UnregisterConnection(fADOConnection);
+  inherited;
+end;
+
+function TDAEADOConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  case fProviderType of
+    oledb_Oracle: Result:=Oracle_GetNextAutoinc(GeneratorName,CreateCompatibleQuery);
+    oledb_Postgresql: Result := Postgres_GetNextAutoInc(GeneratorName,CreateCompatibleQuery);
+  else
+    Result:=-1;
+  end;
+end;
+
+{ TDAEADODriver }
+
+function TDAEADODriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAEADODriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEADOConnection;
+end;
+
+function TDAEADODriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  case OleDBDriverIdToOleDBProviderType(AuxDriver) of
+    oledb_MSSQL,
+    oledb_MSSQL2005,
+    oledb_MSSQL2008 :Result:=MSSQL_DriverType;
+    oledb_Jet: Result := Access_DriverType;
+    oledb_Oracle: Result := Oracle_DriverType;
+    oledb_ODBC: Result := ODBC_DriverType;
+    oledb_Postgresql : Result := PostgreSQL_DriverType;
+    oleDb_VisualFoxPro: Result := FoxPro_DriverType;
+  else
+    Result:= inherited GetDefaultConnectionType(AuxDriver);
+  end;
+end;
+
+function TDAEADODriver.GetDescription: string;
+begin
+  result := 'Borland ADOExpress Driver';
+end;
+
+function TDAEADODriver.GetDriverID: string;
+begin
+  result := 'ADO';
+end;
+
+procedure TDAEADODriver.GetAuxDrivers(out List: IROStrings);
+var
+  i: TDAOleDBProviderType;
+begin
+  inherited;
+  for i := Low(TDAOleDBProviderType) to High(TDAOleDBProviderType) do
+    if (i <> oledb_Unknown) {// Redundant but safe if I change the enum later...} then List.Add(OleDBProviders[i]);
+end;
+
+function TDAEADODriver.GetProviderDefaultCustomParameters(
+  Provider: string): string;
+begin
+  if Sametext(Trim(Provider), oledb_MSSQL2005id) or
+     Sametext(Trim(Provider), oledb_MSSQL2008id) then Result := 'Schemas=1;Integrated Security=SSPI;' else
+  if SameText(Trim(Provider), oledb_MSSQLId) then Result := 'Integrated Security=SSPI;';
+end;
+
+procedure TDAEADODriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  if Sametext(Trim(AuxDriver), oledb_MSSQL2005id) or
+     SameText(Trim(AuxDriver), oledb_MSSQLId)     or
+     Sametext(Trim(AuxDriver), oledb_MSSQL2008id) then
+    MSSQL_GetAuxParams(List);
+  List.Add('CursorLocation=(clUseServer,clUseClient)');
+  List.Add('CursorType=(ctUnspecified,ctOpenForwardOnly,ctKeyset,ctDynamic,ctStatic)');
+  List.Add('LockType=(ltUnspecified,ltReadOnly,ltPessimistic,ltOptimistic,ltBatchOptimistic)');
+  List.Add('');
+  List.Add('You can pass any parameters directly to driver. Use the prefix ''@'' for this, e.g.:');
+  List.Add('CursorLocation=clUseServer;@Mode=Read');
+end;
+
+procedure TDAEADODriver.CustomizeConnectionObject(
+  aConnection: TDAEConnection);
+begin
+  inherited;
+  if Assigned(FMonitor) then fMonitor.AssignEvents(TDAEADOConnection(aConnection).fADOConnection);
+end;
+
+constructor TDAEADODriver.Create(AOwner: TComponent);
+begin
+  FConnectionList:= TThreadList.Create;
+  inherited;
+end;
+
+destructor TDAEADODriver.Destroy;
+begin
+  inherited;
+  FConnectionList.Free;
+end;
+
+procedure TDAEADODriver.DoSetTraceOptions(TraceActive: boolean;
+  TraceFlags: TDATraceOptions; Callback: TDALogTraceEvent);
+begin
+  inherited;
+  if TraceActive then begin
+    if (FMonitor = nil) then fMonitor := TDAADOMonitor.Create(Self);
+    fMonitor.Enabled := FALSE;
+    fMonitor.TraceFlags := TraceFlags;
+    FMonitor.OnCallback := Callback;
+    fMonitor.Enabled := TRUE;
+  end
+  else begin
+    if (FMonitor <> nil) then begin
+      fMonitor.Enabled:=False;
+      FreeAndNIL(fMonitor);
+    end;
+  end;
+end;
+
+procedure TDAEADODriver.RegisterConnection(AConnection: TADOConnection);
+begin
+  FConnectionList.Add(AConnection);
+  if FMonitor <> nil then FMonitor.AssignEvents(AConnection);
+end;
+
+procedure TDAEADODriver.UnregisterConnection(AConnection: TADOConnection);
+begin
+  FConnectionList.Remove(AConnection);
+  if FMonitor <> nil then FMonitor.UnAssignEvents(AConnection);  
+end;
+
+{ TDAEADOQuery }
+
+procedure TDAEADOQuery.ClearParams;
+begin
+  inherited;
+  TADOQuery(Dataset).Parameters.Clear;
+end;
+
+function TDAEADOQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TADOQuery.Create(nil);
+
+  TADOQuery(result).LockType := TDAEADOConnection(aConnection).fQuery_ADOLockType;// ltReadOnly;
+  TADOQuery(result).CursorLocation :=TDAEADOConnection(aConnection).fQuery_CursorLocation; // clUseClient;
+  TADOQuery(result).CursorType := TDAEADOConnection(aConnection).fQuery_CursorType; //ctOpenForwardOnly;
+  TADOQuery(result).Connection := TDAEADOConnection(aConnection).fADOConnection;
+  TADOQuery(result).EnableBCD := False;
+  TADOQuery(result).CacheSize := 25;
+//  TADOQuery(result).Prepared := TRUE;
+  if TADOQuery(result).Connection <> nil then
+    TADOQuery(result).CommandTimeout := TADOQuery(result).Connection.CommandTimeout;
+end;
+
+function TDAEADOQuery.DoExecute: integer;
+begin
+  result := TADOQuery(Dataset).ExecSQL;
+  if TADOQuery(Dataset).Connection.Errors.Count>0 then
+    raise Exception.Create(TADOQuery(Dataset).Connection.Errors.Item[0].Description);
+end;
+
+function TDAEADOQuery.DoGetSQL: string;
+begin
+  result := TADOQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEADOQuery.DoSetSQL(const Value: string);
+begin
+  TADOQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEADOQuery.GetParamValues(Params: TDAParamCollection);
+var
+  i: integer;
+  par: TDAParam;
+  inpar: TParameter;
+  ds: TADOQuery;
+begin
+  ds := TADOQuery(Dataset);
+  if not Assigned(ds.Parameters) then
+    Exit;
+
+  for i := 0 to (ds.Parameters.Count - 1) do begin
+    inpar := ds.Parameters[i];
+
+    par := Params.ParamByName(inpar.Name);
+    if par.ParamType in [daptOutput, daptInputOutput, daptResult] then begin
+      if inpar.DataType = ftLargeint then
+        par.Value := DecimalToInt64(inpar.Value)
+      else
+        par.Value := inpar.Value;
+    end;
+  end;
+end;
+
+procedure TDAEADOQuery.RefreshParams;
+var
+  i: Integer;
+  par: TDAParam;
+  outpar: TParameter;
+  ds: TADOQuery;
+begin
+  inherited;
+  ds := TADOQuery(Dataset);
+  if not Assigned(ds.Parameters) then
+    Exit;
+  for i := 0 to ds.Parameters.Count -1 do begin
+    outpar := ds.Parameters[i];
+
+    par := self.ParamByName(outpar.Name);
+
+    if outpar.DataType <> ftUnknown then begin
+      par.DataType := VCLTypeToDAType(outpar.DataType);
+      par.Size := outpar.Size;
+      par.DecimalPrecision := outpar.Precision;
+      par.DecimalScale := outpar.NumericScale;
+      case outpar.Direction of
+        pdInput: par.ParamType := daptInput;
+        pdOutput: par.ParamType := daptOutput;
+        pdInputOutput: par.ParamType := daptInputOutput;
+        pdReturnValue: par.ParamType := daptResult;
+      end;
+    end;
+ end;
+end;
+
+procedure TDAEADOQuery.SetParamValues(Params: TDAParamCollection);
+var
+  i: integer;
+  par: TDAParam;
+  outpar: TParameter;
+  ds: TADOQuery;
+  ft: TFieldType;
+  {$IFDEF DELPHI2009UP}
+  st: TROBinaryMemoryStream;
+  {$ENDIF}
+begin
+  ds := TADOQuery(Dataset);
+  if not Assigned(ds.Parameters) then
+    Exit;
+
+  for i := 0 to (ds.Parameters.Count - 1) do begin
+    outpar := ds.Parameters[i];
+
+    par := Params.ParamByName(outpar.Name);
+    ft := DATypeToVCLType(par.DataType);
+    case par.ParamType of
+      daptInput: outpar.Direction := pdInput;
+      daptOutput: outpar.Direction := pdOutput;
+      daptInputOutput: outpar.Direction := pdInputOutput;
+      daptResult: outpar.Direction := pdReturnValue;
+    end;
+
+    if par.DataType in [datBlob, datMemo, datWideMemo] then begin
+      case par.DataType of
+        datBlob: outpar.DataType := ftBlob;
+        datMemo: outpar.DataType := ftMemo;
+        datWideMemo: outpar.DataType := {$IFDEF DA_WideMemoSupport}ftWideMemo{$ELSE}ftWideString{$ENDIF};
+      end;
+      if not (par.ParamType in [daptOutput, daptResult]) then begin
+        if VarIsEmpty(par.Value) or VarIsNull(par.Value) then begin
+          outpar.Value := NULL
+        end
+        else begin
+          {$IFDEF DELPHI2009UP}
+          // bug in ADODB, TParameter.SetValue at settings AnsiString+ftBlob
+          st := TROBinaryMemoryStream.Create(VariantToAnsiString(par.Value));
+          try
+            outpar.LoadFromStream(st, outpar.DataType);
+          finally
+            st.Free;
+          end;
+          {$ELSE}
+          outpar.Value := VariantToAnsiString(par.Value);
+          {$ENDIF}
+        end;
+       end;
+    end
+    else begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then begin
+        {$IFNDEF DELPHI2009UP}
+        // ADODB.pas doesn't support ftFMTBCD up to D2009
+        if ft = ftFMTBcd then
+          ft := ftBCD
+        else
+        {$ENDIF}
+        outpar.DataType := ft;
+      end;
+      if not (par.ParamType in [daptOutput, daptResult]) then begin
+        if outpar.DataType = ftLargeint then
+          Outpar.Value := Int64ToDecimal(par.Value)
+        else if ((par.DataType <> datString) and (par.DataType <> datWideString)) and VarIsStr(par.Value) and (VarToStr(par.Value)= '') then begin
+            par.Value := Null;
+        end;
+        outpar.Value := par.Value;
+      end;
+    end;
+    if (VarIsEmpty(par.Value) or VarIsNull(par.Value)) and (par.DataType <> datUnknown) then begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then outpar.DataType := ft;
+    end;
+  end;
+end;
+
+{ TDAEADOStoredProcedure }
+
+function TDAEADOStoredProcedure.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TADOStoredProc.Create(nil);
+  TADOStoredProc(result).Connection := TDAEADOConnection(aConnection).fADOConnection;
+  if TADOStoredProc(result).Connection <> nil then
+    TADOStoredProc(result).CommandTimeout := TADOStoredProc(result).Connection.CommandTimeout;
+end;
+
+procedure TDAEADOStoredProcedure.SetParamValues(Params: TDAParamCollection);
+var
+  i: integer;
+  par: TDAParam;
+  outpar: TParameter;
+  ds: TADOStoredProc;
+  ft: TFieldType;
+  {$IFDEF DELPHI2009UP}
+  st: TROBinaryMemoryStream;
+  {$ENDIF}
+begin
+  ds := TADOStoredProc(Dataset);
+  if not Assigned(ds.Parameters) then
+    Exit;
+
+  for i := 0 to (ds.Parameters.Count - 1) do begin
+    outpar := ds.Parameters[i];
+
+    par := Params.ParamByName(outpar.Name);
+    ft := DATypeToVCLType(par.DataType);
+    case par.ParamType of
+      daptInput: outpar.Direction := pdInput;
+      daptOutput: outpar.Direction := pdOutput;
+      daptInputOutput: outpar.Direction := pdInputOutput;
+      daptResult: outpar.Direction := pdReturnValue;
+    end;
+
+    if par.DataType = datBlob then begin
+      outpar.DataType := ftBlob;
+      if not (par.ParamType in [daptOutput, daptResult]) then begin
+        if VarIsEmpty(par.Value) or VarIsNull(par.Value) then begin
+          outpar.Value := NULL
+        end
+        else begin
+          {$IFDEF DELPHI2009UP}
+          // bug in ADODB, TParameter.SetValue at settings AnsiString+ftBlob
+          st := TROBinaryMemoryStream.Create(VariantToAnsiString(par.Value));
+          try
+            outpar.LoadFromStream(st,ftBlob);
+          finally
+            st.Free;
+          end;
+          {$ELSE}
+          outpar.Value := VariantToAnsiString(par.Value);
+          {$ENDIF}
+        end;
+       end;
+    end
+    else begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then
+        outpar.DataType := ft;
+      if not (par.ParamType in [daptOutput, daptResult]) then begin
+        if outpar.DataType = ftLargeint then
+          Outpar.Value := Int64ToDecimal(par.Value)
+        else
+          outpar.Value := par.Value;
+      end;
+    end;
+    if (VarIsEmpty(par.Value) or VarIsNull(par.Value)) and
+       (par.DataType <> datUnknown) then begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then
+        outpar.DataType := ft;
+    end;
+  end;
+end;
+
+procedure TDAEADOStoredProcedure.GetParamValues(Params: TDAParamCollection);
+var
+  i: integer;
+  par: TDAParam;
+  inpar: TParameter;
+  ds: TADOQuery;
+begin
+  ds := TADOQuery(Dataset);
+  if not Assigned(ds.Parameters) then
+    Exit;
+
+  for i := 0 to (ds.Parameters.Count - 1) do begin
+    inpar := ds.Parameters[i];
+
+    par := Params.ParamByName(inpar.Name);
+    if par.ParamType in [daptOutput, daptInputOutput, daptResult] then begin
+      if inpar.DataType = ftLargeint then
+        par.Value := DecimalToInt64(inpar.Value)
+      else
+        par.Value := inpar.Value;
+    end;
+  end;
+end;
+
+
+type
+  TADOStoredProcHack = class(TADOStoredProc);
+
+function TDAEADOStoredProcedure.Execute: integer;
+var
+  i: integer;
+  pstr: string;
+  params: TDAParamCollection;
+  ds: TADOStoredProc;
+  lParam: TParameter;
+begin
+  params := GetParams;
+  if (Connection as TDAEADOConnection).fProviderType = oledb_Oracle then pstr := '' else pstr := '@';
+
+  ds := TADOStoredProc(Dataset);
+
+  for i := ds.Parameters.Count -1 downto 0 do
+  begin
+    if (ds.Parameters[i].DataType = ftInterface) and (ds.Parameters[i].Direction in [pdOutput, pdInputOutput, pdReturnValue]) then
+      ds.Parameters.Delete(i);
+  end;
+
+  if (ds.Parameters.Count<>Params.Count) then begin
+    ds.Parameters.Refresh;
+  end;
+
+  {for i := 0 to (Parameters.Count - 1) do
+    if (Parameters[i].Direction in [pdInput, pdInputOutput])
+      then Parameters.ParamByName('@'+params[i].Name)  [i].Value := params[i].Value;}
+
+  for i := 0 to (params.Count-1) do
+  begin
+    lParam:= ds.Parameters.ParamByName(pstr+params[i].Name);
+    if (params[i].ParamType = daptOutput) and (lParam.Direction <> pdOutput) then
+      lParam.Direction := pdOutput // ado sometimes doesn't set the direction properly
+    else if (params[i].ParamType in [daptInput, daptInputOutput]) then
+      lParam.Value := params[i].Value;
+  end;
+
+  Result := DoExecute;
+
+  {TADOStoredProcHack(Dataset).InitializeMasterFields(Self);
+  Command.Execute;}
+
+  {for i := 0 to (Parameters.Count - 1) do
+    if (Parameters[i].Direction in [pdOutput, pdInputOutput, pdReturnValue])
+      then params[i].Value := Parameters[i].Value;}
+
+  for i := 0 to (params.Count-1) do
+    if (params[i].ParamType in [daptOutput, daptInputOutput, daptResult])
+      then params[i].Value := ds.Parameters.ParamByName(pstr+params[i].Name).Value;
+end;
+
+function TDAEADOStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TADOStoredProc(Dataset).ProcedureName;
+end;
+
+procedure TDAEADOStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TADOStoredProc(Dataset).ProcedureName := Name;
+end;
+
+procedure TDAEADOStoredProcedure.RefreshParams;
+var
+  dsparams: TParameters;
+  dPar: TParameter;
+  i: integer;
+  par: TDAParam;
+  params: TDAParamCollection;
+  nme: string;
+begin
+  dsparams := TADOStoredProc(Dataset).Parameters;
+
+  dsparams.Refresh;
+  params := GetParams;
+  params.Clear;
+
+  for i := 0 to (dsparams.Count - 1) do begin
+    par := params.Add;
+    dPar:=dsparams[i];
+    nme := dPar.Name;
+    if Pos('@', nme) > 0 then
+      System.Delete(nme, Pos('@', nme), 1);
+    par.Name := nme;
+
+    if (dPar.DataType = ftInterface) then
+      par.DataType := datUnknown
+    else
+      par.DataType := VCLTypeToDAType(dPar.DataType);
+    par.ParamType := TDAParamType(dPar.Direction);
+    par.Size := dPar.Size;
+  end;
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+
+function TDAEADOStoredProcedure.DoExecute: integer;
+begin
+  TADOStoredProcHack(TADOStoredProc(Dataset)).Command.Execute(result, EmptyParam);
+
+  if TADOStoredProc(Dataset).Connection.Errors.Count >0 then
+    raise Exception.Create(TADOStoredProc(Dataset).Connection.Errors.Item[0].Description);
+end;
+
+{ TDAADOMonitor }
+
+function ParseError(const AError: Error):string;
+begin
+  if aError = nil then begin
+    Result:=''
+  end
+  else begin
+    Result:=
+      'Error.Number: ' + IntToStr(AError.Number) + sLineBreak +
+      'Error.NativeError: ' + IntToStr(AError.NativeError) + sLineBreak +
+      'Error.Source: ' + AError.Source+sLineBreak +
+      'Error.Description: ' + AError.Description + sLineBreak +
+      'Error.SQLState: ' + AError.SQLState + sLineBreak;
+  end;
+end;
+
+function ParseCommand(Const Command: _Command): string;
+var
+  i: integer;
+  {$IFDEF ADOMONITOR_SHOWPARAMVALUES}
+  v: Variant;
+  {$ENDIF}
+  lItem: _Parameter;
+  s: String;
+begin
+  if Command = nil then begin
+    Result:=sLineBreak;
+  end
+  else begin
+    s:= PWideChar(Command.CommandText);
+    Result:=
+      'Command.CommandText: ' + StringReplace(s, sLineBreak,' ',[rfReplaceAll]) + sLineBreak +
+      'Command.Parameters.Count: ' + IntToStr(Command.Parameters.Count) + sLineBreak;
+    for i:= 0 to Command.Parameters.Count-1 do begin
+      lItem:=Command.Parameters.Item[i];
+      Result := Result + 'Command.Parameters['+intToStr(i)+ ']: '+ lItem.Name;
+      {$IFDEF ADOMONITOR_SHOWPARAMVALUES}
+      Result:= Result + ' = ';
+      v:=lItem.Value;
+      if VarIsNull(v) then Result := Result+ '<Null>'
+      else if VarIsEmpty(v) then Result := Result+ '<empty>'
+      else if lItem.Type_ in [adBinary, adVarBinary, adLongVarBinary, adLongVarChar] then Result:= Result + '<blob>'
+      else Result:= Result + VarToStr(v);
+      {$ENDIF}
+      Result:=Result+sLineBreak;
+    end;
+    Result:=Result+sLineBreak;
+  end;
+end;
+
+function ParseEventStatus(const EventStatus: TEventStatus): string;
+begin
+  Result := 'EventStatus: ' + TEventStatusStr[EventStatus]+sLineBreak;
+end;
+
+procedure TDAADOMonitor.ADOConnectionBeginTransComplete(
+  Connection: TADOConnection; TransactionLevel: Integer;
+  const Error: Error; var EventStatus: TEventStatus);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Begin transaction'+sLineBreak+
+    '-----------------'+sLineBreak+
+    'TransactionLevel: ' +IntToStr(TransactionLevel)+sLineBreak+
+    ParseError(Error)+
+    ParseEventStatus(EventStatus),
+    0);
+end;
+
+procedure TDAADOMonitor.ADOConnectionCommitTransComplete(
+  Connection: TADOConnection; const Error: Error;
+  var EventStatus: TEventStatus);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Commit transaction'+sLineBreak+
+    '------------------'+sLineBreak+
+    ParseError(Error)+
+    ParseEventStatus(EventStatus),
+    0);
+end;
+
+procedure TDAADOMonitor.ADOConnectionConnectComplete(
+  Connection: TADOConnection; const Error: Error;
+  var EventStatus: TEventStatus);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Connect'+sLineBreak+
+    '-------'+sLineBreak+
+    ParseError(Error)+
+    ParseEventStatus(EventStatus),
+    0);
+end;
+
+procedure TDAADOMonitor.ADOConnectionDisconnect(Connection: TADOConnection;
+  var EventStatus: TEventStatus);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Disconnect'+sLineBreak+
+    '----------'+sLineBreak+
+    ParseEventStatus(EventStatus),
+    0);
+end;
+
+procedure TDAADOMonitor.ADOConnectionExecuteComplete(
+  Connection: TADOConnection; RecordsAffected: Integer; const Error: Error;
+  var EventStatus: TEventStatus; const Command: _Command;
+  const Recordset: _Recordset);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Execute'+sLineBreak+
+    '-------'+sLineBreak+
+    'RecordsAffected: ' +IntToStr(RecordsAffected)+sLineBreak+
+    ParseError(Error)+
+    ParseEventStatus(EventStatus)+
+    ParseCommand(Command),
+    0);
+end;
+
+procedure TDAADOMonitor.ADOConnectionInfoMessage(
+  Connection: TADOConnection; const Error: Error;
+  var EventStatus: TEventStatus);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Info message'+sLineBreak+
+    '------------'+sLineBreak+
+    ParseError(Error)+
+    ParseEventStatus(EventStatus),
+    0);
+end;
+
+procedure TDAADOMonitor.ADOConnectionRollbackTransComplete(
+  Connection: TADOConnection; const Error: Error;
+  var EventStatus: TEventStatus);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Rollback transaction'+sLineBreak+
+    '-------------------'+sLineBreak+
+    ParseError(Error)+
+    ParseEventStatus(EventStatus),
+    0);
+end;
+
+procedure TDAADOMonitor.ADOConnectionWillConnect(
+  Connection: TADOConnection; var ConnectionString, UserID,
+  Password: WideString; var ConnectOptions: TConnectOption;
+  var EventStatus: TEventStatus);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Will connect'+sLineBreak+
+    '------------'+sLineBreak+
+    'Connection string: ' + ConnectionString +sLineBreak+
+    'UserID: ' + UserID +sLineBreak+
+    'Password: ' + Password +sLineBreak+
+    'ConnectOptions: ' + TConnectOptionStr[ConnectOptions]+sLineBreak+
+    ParseEventStatus(EventStatus),
+    0);
+end;
+
+function getExecuteOptionStr(const ExecuteOptions: TExecuteOptions): string;
+var
+  i: TExecuteOption;
+begin
+  Result:='';
+  for i:= low(TExecuteOption) to High(TExecuteOption) do
+    if i in ExecuteOptions then Result:= Result + TExecuteOptionStr[i]+',';
+  if Length(Result) > 0 then SetLength(Result, Length(Result)-1);
+end;
+
+procedure TDAADOMonitor.ADOConnectionWillExecute(
+  Connection: TADOConnection; var CommandText: WideString;
+  var CursorType: TCursorType; var LockType: TADOLockType;
+  var CommandType: TCommandType; var ExecuteOptions: TExecuteOptions;
+  var EventStatus: TEventStatus; const Command: _Command;
+  const Recordset: _Recordset);
+begin
+  if Assigned(FOnCallback) then FOnCallback(Self,
+    'Will execute'   + sLineBreak+
+    '------------'   + sLineBreak+
+    'CommandText: ' + CommandText + sLineBreak+
+    'CursorType: '  + TCursorTypeStr[CursorType] + sLineBreak +
+    'LockType: '    + TADOLockTypeStr[LockType] + sLineBreak +
+    'CommandType: ' + TCommandTypeStr[CommandType] + sLineBreak +
+    'ExecuteOptions: ' + getExecuteOptionStr(ExecuteOptions) + sLineBreak +
+    ParseEventStatus(EventStatus)+
+    ParseCommand(Command),
+    0);
+end;
+
+procedure TDAADOMonitor.AssignEvents(AConnection: TADOConnection);
+begin
+  if (AConnection <> nil) and FEnabled and Assigned(FOnCallback) then begin
+  //  if toPrepare in FTraceFlags then AConnection.
+    if toExecute in FTraceFlags then begin
+      AConnection.OnExecuteComplete := ADOConnectionExecuteComplete;
+      AConnection.OnWillExecute := ADOConnectionWillExecute;
+    end;
+  //  if toFetch in FTraceFlags then AConnection.
+    if toError in FTraceFlags then begin
+      AConnection.OnInfoMessage := ADOConnectionInfoMessage;
+    end;
+  //  if toStmt in FTraceFlags then AConnection.
+    if toConnect in FTraceFlags then begin
+      AConnection.OnConnectComplete := ADOConnectionConnectComplete;
+      AConnection.OnWillConnect := ADOConnectionWillConnect;
+      AConnection.OnDisconnect := ADOConnectionDisconnect;
+    end;
+    if toTransact in FTraceFlags then begin
+      AConnection.OnBeginTransComplete := ADOConnectionBeginTransComplete;
+      AConnection.OnCommitTransComplete := ADOConnectionCommitTransComplete;
+      AConnection.OnRollbackTransComplete := ADOConnectionRollbackTransComplete;
+    end;
+  //  if toBlob in FTraceFlags then AConnection.
+  //  if toService in FTraceFlags then AConnection.
+  //  if toMisc in FTraceFlags then AConnection.
+  //  if toParams in FTraceFlags then AConnection.
+  end;
+end;
+
+constructor TDAADOMonitor.Create(ADriver: TDAEADODriver);
+begin
+  inherited Create;
+  FDriver := ADriver;
+  FEnabled := False;
+end;
+
+procedure TDAADOMonitor.ReAssignEvents;
+var
+  i: integer;
+  lmode: boolean;
+begin
+  lMode:=FEnabled and (fTraceFlags <> []) and Assigned(FOnCallback);
+  with FDriver.FConnectionList.LockList do try
+    for i:= 0 to Count-1 do
+     if lMode then
+       AssignEvents(TADOConnection(Items[i]))
+     else
+       UnAssignEvents(TADOConnection(Items[i]));
+  finally
+    FDriver.FConnectionList.UnLockList;
+  end;
+end;
+
+procedure TDAADOMonitor.SetEnabled(const Value: Boolean);
+begin
+  if FEnabled <> Value then begin
+    FEnabled := Value;
+    if FEnabled and (fTraceFlags <> []) and Assigned(FOnCallback) then ReAssignEvents;
+  end;
+end;
+
+procedure TDAADOMonitor.SetOnCallback(const Value: TDALogTraceEvent);
+begin
+  if @fOnCallback <> @Value  then begin
+    FOnCallback := Value;
+    if FEnabled and (fTraceFlags <> []) and Assigned(FOnCallback) then ReAssignEvents;
+  end;
+end;
+
+procedure TDAADOMonitor.SetTraceFlags(const Value: TDATraceOptions);
+begin
+  if FTraceFlags <> Value then begin
+    FTraceFlags := Value;
+    if FEnabled and (fTraceFlags <> []) and Assigned(FOnCallback) then ReAssignEvents;
+  end;
+end;
+
+procedure TDAADOMonitor.UnAssignEvents(AConnection: TADOConnection);
+begin
+  if AConnection <> nil then begin
+    // toTransact
+    AConnection.OnBeginTransComplete := nil;
+    AConnection.OnCommitTransComplete := nil;
+    AConnection.OnRollbackTransComplete := nil;
+
+    //toConnect
+    AConnection.OnConnectComplete := nil;
+    AConnection.OnWillConnect := nil;
+    AConnection.OnDisconnect := nil;
+
+    //toExecute
+    AConnection.OnExecuteComplete := nil;
+    AConnection.OnWillExecute := nil;
+
+    //toError
+    AConnection.OnInfoMessage := nil;
+  end;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAAbsoluteDBDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAAbsoluteDBDriver.pas
new file mode 100644
index 0000000..8d59023
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAAbsoluteDBDriver.pas	
@@ -0,0 +1,868 @@
+unit uDAAbsoluteDBDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library                                     }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{ Originally was created by Steve Forbes                                     }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+
+{$R DataAbstract_AbsoluteDBDriver_Glyphs.res}
+
+//{$I absvr.inc}
+
+interface
+
+uses DB, Classes, uDAEngine, uDAInterfaces, uROClasses, ABSMain, uDAUtils;
+
+type
+  { TDAAbsoluteDBDriver }
+  TDAAbsoluteDBDriver = class(TDADriverReference)
+  end;
+
+  { IAbsoluteDBConnection }
+  IAbsoluteDBConnection = interface
+    ['{A0A17C42-D225-4610-83D5-FC6D2A554010}']
+  end;
+
+  { IABSConnectionProperties
+    Provides access to common properties of AbsoluteDB connections }
+
+  IABSConnectionProperties = interface
+    ['{7B13C981-3131-47A5-A6AC-62635B1777AD}']
+    function GetKeepConnections: Boolean;
+    procedure SetKeepConnections(Value: Boolean);
+
+    property KeepConnections: Boolean read GetKeepConnections write SetKeepConnections;
+  end;
+
+  { TAbsoluteDBConnection }
+  TAbsoluteDBConnection = class(TDAConnectionWrapper)
+  private
+    FDatabase: TABSDatabase;
+    FSession: TABSSession;
+
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: Boolean); override;
+
+  public
+    constructor Create(AOwner: TComponent); override;
+
+    property Database: TABSDatabase read FDatabase;
+    property Session: TABSSession read FSession;
+  end;
+
+  { TDAEAbsoluteDBDriver }
+  TDAEAbsoluteDBDriver = class(TDAEDriver)
+  private
+
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; safecall;
+  public
+  end;
+
+  { TDAEAbsoluteDBConnection }
+  TDAEAbsoluteDBConnection = class(TDAEConnection, IAbsoluteDBConnection, IABSConnectionProperties)
+  private
+    FConnection: TAbsoluteDBConnection;
+
+  protected
+    // IABSConnectionProperties
+    function GetKeepConnections: Boolean;
+    procedure SetKeepConnections(Value: Boolean);
+
+    // IDAConnection
+    function CreateCustomConnection: TCustomConnection; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+    function DoBeginTransaction: Integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: Boolean; override;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection);override;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}    
+  public
+  end;
+
+  { TDAEAbsoluteDBQuery }
+  TDAEAbsoluteDBQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: Integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: Boolean); override;
+
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+const
+  AbsoluteDB_DriverType = 'AbsoluteDB';
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils, uDADriverManager, uDARes, uDAMacroProcessors, Variants,
+  uROBinaryHelpers;
+
+var
+  _driver: TDAEDriver = nil;
+  absolute_reservedwords: array of string;
+
+const
+  GEN_NAME_DELIMITER = '*';
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAAbsoluteDBDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEAbsoluteDBDriver.Create(nil);
+  result := _driver;
+end;
+
+{ TAbsoluteDBConnection }
+
+constructor TAbsoluteDBConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+
+  FSession := TABSSession.Create(Self);
+  FSession.AutoSessionName := TRUE;
+
+  FDatabase := TABSDatabase.Create(Self);
+  FDatabase.SessionName := FSession.SessionName;
+  FDatabase.DatabaseName := 'ABSOLUTEDB';
+end;
+
+function TAbsoluteDBConnection.GetConnected: Boolean;
+begin
+  result := FDatabase.Connected;
+end;
+
+procedure TAbsoluteDBConnection.SetConnected(Value: Boolean);
+begin
+  if not(csDestroying in FDatabase.ComponentState) then begin
+    try
+      FSession.Active := Value;
+      FDatabase.Connected := Value;
+    except
+      FSession.Active := FALSE;
+      FDatabase.Connected := FALSE;
+      raise;
+    end;
+  end;
+end;
+
+{ TDAEAbsoluteDBConnection }
+
+procedure TDAEAbsoluteDBConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  inherited;
+  with aConnStrParser do begin
+    FConnection.Database.DatabaseFileName := Database;
+
+    if (AuxParams['DisableTempFiles'] = 'False') then
+    begin
+      FConnection.Database.DisableTempFiles := False;
+    end
+    else
+    begin
+      FConnection.Database.DisableTempFiles := True;
+    end;
+
+    if (AuxParams['Exclusive'] = 'False') then
+    begin
+      FConnection.Database.Exclusive := False;
+    end
+    else
+    begin
+      FConnection.Database.Exclusive := True;
+    end;
+
+    if (AuxParams['HandleShared'] = 'False') then
+    begin
+      FConnection.Database.HandleShared := False;
+    end
+    else
+    begin
+      FConnection.Database.HandleShared := True;
+    end;
+
+    if (AuxParams['KeepConnections'] = 'False') then
+    begin
+      FConnection.Session.KeepConnections := False;
+      FConnection.Database.KeepConnection := False;
+    end
+    else if (AuxParams['KeepConnections'] = 'True') then
+    begin
+      FConnection.Session.KeepConnections := True;
+      FConnection.Database.KeepConnection := True;
+    end;
+
+    if (AuxParams['MultiUser'] = 'False') then
+    begin
+      FConnection.Database.MultiUser := False;
+    end
+    else
+    begin
+      FConnection.Database.MultiUser := True;
+    end;
+
+    if (AuxParams['DBPassword'] <> '') then
+    begin
+      fConnection.Database.Password := AuxParams['DBPassword'];
+    end;
+  end;
+end;
+
+function TDAEAbsoluteDBConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+  FConnection.Database.StartTransaction;
+end;
+
+procedure TDAEAbsoluteDBConnection.DoCommitTransaction;
+begin
+  with FConnection do
+    Database.Commit;
+end;
+
+function TDAEAbsoluteDBConnection.CreateCustomConnection: TCustomConnection;
+begin
+  result := TAbsoluteDBConnection.Create(nil);
+  FConnection := TAbsoluteDBConnection(result);
+end;
+
+function TDAEAbsoluteDBConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEAbsoluteDBQuery
+end;
+
+procedure TDAEAbsoluteDBConnection.DoGetTableNames(out List: IROStrings);
+var
+  _database: string;
+begin
+  List := TROStrings.Create;
+  _database := FConnection.Database.DatabaseName;
+
+  FConnection.Session.GetTableNames(_database, List.Strings);
+end;
+
+procedure TDAEAbsoluteDBConnection.DoRollbackTransaction;
+begin
+  FConnection.Database.Rollback;
+end;
+
+function TDAEAbsoluteDBConnection.DoGetInTransaction: Boolean;
+begin
+  result := FConnection.Database.InTransaction;
+end;
+
+function TDAEAbsoluteDBConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  result := TDADBISAMMacroProcessor.Create;
+end;
+
+function TDAEAbsoluteDBConnection.GetKeepConnections: Boolean;
+begin
+  result := FConnection.Session.KeepConnections;
+end;
+
+procedure TDAEAbsoluteDBConnection.SetKeepConnections(Value: Boolean);
+begin
+  FConnection.Session.KeepConnections := Value;
+  FConnection.Database.KeepConnection := Value;
+end;
+
+function TDAEAbsoluteDBConnection.DoGetLastAutoInc(
+  const GeneratorName: string): integer;
+var
+  lQuery: IDADataset;
+  TableName: String;
+  FieldName: String;
+begin
+  try
+    if ((GeneratorName <> '') and (Pos(GEN_NAME_DELIMITER, GeneratorName) > 0)) then
+    begin
+
+      TableName := Copy(GeneratorName, 1,
+        Pos(GEN_NAME_DELIMITER, GeneratorName) - 1);
+      FieldName := Copy(GeneratorName,
+        Pos(GEN_NAME_DELIMITER, GeneratorName) + 1,
+        Length(GeneratorName) - (Length(TableName) + 1));
+      lQuery := GetDatasetClass.Create(Self);
+      try
+        lQuery.SQL := 'SELECT LASTAUTOINC(''' + TableName + ''', ''' +
+          FieldName + ''') from ' + QuoteIdentifierIfNeeded(TableName);
+        lQuery.Open;
+        Result := lQuery.Fields[0].AsInteger;
+        lQuery.Close;
+      finally
+        lQuery := nil;
+      end;
+    end
+    else
+    begin
+      Result := inherited DoGetLastAutoInc(GeneratorName);
+    end;
+  except
+    Result := inherited DoGetLastAutoInc(GeneratorName);
+  end;
+end;
+
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED OFF}
+{$ENDIF DELPHI10UP}
+procedure TDAEAbsoluteDBConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+var
+  i: integer;
+  pos1: integer;
+  fld: TDAField;
+  lofld:TFieldDef;
+  s: string;
+  ltable: TABSTable;
+begin
+  Fields:=TDAFieldCollection.Create(nil);
+  ltable:=TABSTable.Create(nil);
+  try
+    ltable.DatabaseName := FConnection.Database.DatabaseName;
+    ltable.SessionName := FConnection.Session.SessionName;
+    ltable.TableName := aTableName;
+    ltable.FieldDefs.Update;
+    for i:=0 to ltable.FieldDefs.Count-1 do begin
+      lofld:=ltable.FieldDefs[i];
+      fld:= Fields.Add;
+      fld.Name:= lofld.Name;
+      fld.DataType:= VCLTypeToDAType(lofld.DataType);
+      fld.Size:= lofld.Size;
+      fld.Required:= lofld.Required;
+      fld.ReadOnly:= DB.faReadonly in lofld.Attributes;
+      if fld.DataType = datAutoInc then fld.GeneratorName:= aTableName+GEN_NAME_DELIMITER+fld.Name;
+      if fld.DataType = datDecimal then begin
+        case lofld.DataType of
+          ftBCD: begin
+            fld.DecimalPrecision:=20;
+            fld.DecimalScale:=lofld.Size;
+          end;
+        end;  
+      end;
+    end;
+
+    //pk
+    ltable.IndexDefs.Update;
+    For i:=0 to ltable.IndexDefs.Count - 1 do
+      if ixPrimary in ltable.IndexDefs[i].Options then begin
+        Pos1 := 1;
+        s:=ltable.IndexDefs[i].Fields;
+        while Pos1 <= Length(s) do begin
+          fld := Fields.FindField(ExtractFieldName(s, Pos1));
+          if fld <> nil then fld.InPrimaryKey:=True;
+        end;
+      end;
+
+  finally
+    ltable.free;
+  end;
+end;
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED ON}
+{$ENDIF DELPHI10UP}
+
+function TDAEAbsoluteDBConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier) or TestIdentifier(iIdentifier,absolute_reservedwords);
+end;
+
+{ TDAEAbsoluteDBDriver }
+
+procedure TDAEAbsoluteDBDriver.GetAuxParams(const AuxDriver: string; out List: IROStrings);
+begin
+  inherited;
+
+  List.Add('DBPassword=');
+  List.Add('DisableTempFiles=False,True');
+  List.Add('Exclusive=False,True');
+  List.Add('HandleShared=False,True');
+  List.Add('KeepConnections=False,True');
+  List.Add('MultiUser=False,True');
+
+  List.Sorted := True;
+end;
+
+function TDAEAbsoluteDBDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doDatabaseName, doCustom];
+end;
+
+function TDAEAbsoluteDBDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEAbsoluteDBConnection
+end;
+
+function TDAEAbsoluteDBDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  Result := AbsoluteDB_DriverType;
+end;
+
+function TDAEAbsoluteDBDriver.GetDescription: string;
+begin
+  result := 'AbsoluteDB Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEAbsoluteDBDriver.GetDriverID: string;
+begin
+  result := 'AbsoluteDB';
+end;
+
+{ TDAEAbsoluteDBQuery }
+
+function TDAEAbsoluteDBQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TABSQuery.Create(nil);
+
+  with TABSQuery(result) do begin
+    DatabaseName := TDAEAbsoluteDBConnection(aConnection).FConnection.Database.DatabaseName;
+    SessionName := TDAEAbsoluteDBConnection(aConnection).FConnection.Session.SessionName;
+    ReadOnly := True;
+    RequestLive := True;
+  end;
+end;
+
+function TDAEAbsoluteDBQuery.DoExecute: integer;
+begin
+  with TABSQuery(Dataset) do begin
+    ExecSQL;
+    result := RowsAffected;
+  end;
+end;
+
+function TDAEAbsoluteDBQuery.DoGetSQL: string;
+begin
+  result := TABSQuery(Dataset).SQL.Text
+end;
+
+procedure TDAEAbsoluteDBQuery.DoPrepare(Value: Boolean);
+begin
+  TABSQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEAbsoluteDBQuery.SetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  par: uDAInterfaces.TDAParam;
+  outpar: TParam;
+  ft: TFieldType;
+  lParIsEmpty: Boolean;
+begin
+  for i := 0 to (AParams.Count - 1) do begin
+    par := AParams[i];
+    outpar := TABSQuery(Dataset).Params.ParamByName(par.Name);
+
+    ft := DATypeToVCLType(par.DataType);
+    
+    case par.ParamType of
+      daptInput: outpar.ParamType := ptInput;
+      daptOutput: outpar.ParamType := ptOutput;
+      daptInputOutput: outpar.ParamType := ptInputOutput;
+      daptResult: outpar.ParamType := ptResult;
+    end;
+
+    lParIsEmpty := VarIsEmpty(par.Value) or VarIsNull(par.Value);
+
+    if par.DataType = datBlob then begin
+      outpar.DataType := ftBlob;
+      if not (par.ParamType in [daptOutput, daptResult]) then begin
+        if lParIsEmpty then
+           outpar.Value := Null
+        else
+           outpar.Value := VariantToAnsiString(par.Value);
+      end;
+    end
+    else begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then outpar.DataType := ft;
+      if not (par.ParamType in [daptOutput, daptResult]) then outpar.Value := par.Value;
+    end;
+
+    if lParIsEmpty and (par.DataType <> datUnknown) then begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then outpar.DataType := ft;
+    end;
+  end;
+end;
+
+procedure TDAEAbsoluteDBQuery.GetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  par: uDAInterfaces.TDAParam;
+begin
+  for i := 0 to (AParams.Count - 1) do begin
+    par := AParams[i];
+    if Par.ParamType in [daptOutput, daptInputOutput, daptResult] then
+      Par.Value := TABSQuery(Dataset).Params.ParamByName(par.Name).Value;
+  end;
+end;
+
+procedure TDAEAbsoluteDBQuery.DoSetSQL(const Value: string);
+begin
+  TABSQuery(Dataset).SQL.Text := Value;
+end;
+
+exports GetDriverObject name func_GetDriverObject;
+
+procedure TDAEAbsoluteDBQuery.ClearParams;
+begin
+  inherited;
+  TABSQuery(Dataset).Params.Clear;
+end;
+
+procedure absolute_InitializeReservedWords;
+begin
+  SetLength(absolute_reservedwords, 283);
+  // sorted with TStringList.Sort (bds2007)  
+  absolute_reservedwords[0] := 'ABS';
+  absolute_reservedwords[1] := 'ABSOLUTE';
+  absolute_reservedwords[2] := 'ACOS';
+  absolute_reservedwords[3] := 'ACTION';
+  absolute_reservedwords[4] := 'ADD';
+  absolute_reservedwords[5] := 'ALL';
+  absolute_reservedwords[6] := 'ALLOCATE';
+  absolute_reservedwords[7] := 'ALTER';
+  absolute_reservedwords[8] := 'AND';
+  absolute_reservedwords[9] := 'ANY';
+  absolute_reservedwords[10] := 'ARE';
+  absolute_reservedwords[11] := 'AS';
+  absolute_reservedwords[12] := 'ASC';
+  absolute_reservedwords[13] := 'ASIN';
+  absolute_reservedwords[14] := 'ASSERTION';
+  absolute_reservedwords[15] := 'AT';
+  absolute_reservedwords[16] := 'ATAN';
+  absolute_reservedwords[17] := 'AUTHORIZATION';
+  absolute_reservedwords[18] := 'AUTOINC';
+  absolute_reservedwords[19] := 'AUTOINDEXES';
+  absolute_reservedwords[20] := 'AVG';
+  absolute_reservedwords[21] := 'BEGIN';
+  absolute_reservedwords[22] := 'BETWEEN';
+  absolute_reservedwords[23] := 'BIT';
+  absolute_reservedwords[24] := 'BIT_LENGTH';
+  absolute_reservedwords[25] := 'BLOBBLOCKSIZE';
+  absolute_reservedwords[26] := 'BLOBCOMPRESSIONALGORITHM';
+  absolute_reservedwords[27] := 'BLOBCOMPRESSIONMODE';
+  absolute_reservedwords[28] := 'BOTH';
+  absolute_reservedwords[29] := 'BY';
+  absolute_reservedwords[30] := 'CASCADE';
+  absolute_reservedwords[31] := 'CASCADED';
+  absolute_reservedwords[32] := 'CASE';
+  absolute_reservedwords[33] := 'CAST';
+  absolute_reservedwords[34] := 'CATALOG';
+  absolute_reservedwords[35] := 'CEIL';
+  absolute_reservedwords[36] := 'CHAR';
+  absolute_reservedwords[37] := 'CHAR_LENGTH';
+  absolute_reservedwords[38] := 'CHARACTER';
+  absolute_reservedwords[39] := 'CHARACTER_LENGTH';
+  absolute_reservedwords[40] := 'CHECK';
+  absolute_reservedwords[41] := 'CLOSE';
+  absolute_reservedwords[42] := 'COALESCE';
+  absolute_reservedwords[43] := 'COLLATE';
+  absolute_reservedwords[44] := 'COLLATION';
+  absolute_reservedwords[45] := 'COLUMN';
+  absolute_reservedwords[46] := 'COMMIT';
+  absolute_reservedwords[47] := 'CONNECT';
+  absolute_reservedwords[48] := 'CONNECTION';
+  absolute_reservedwords[49] := 'CONSTRAINT';
+  absolute_reservedwords[50] := 'CONSTRAINTS';
+  absolute_reservedwords[51] := 'CONTINUE';
+  absolute_reservedwords[52] := 'CONVERT';
+  absolute_reservedwords[53] := 'CORRESPONDING';
+  absolute_reservedwords[54] := 'COS';
+  absolute_reservedwords[55] := 'COUNT';
+  absolute_reservedwords[56] := 'CREATE';
+  absolute_reservedwords[57] := 'CROSS';
+  absolute_reservedwords[58] := 'CURRENT';
+  absolute_reservedwords[59] := 'CURRENT_DATE';
+  absolute_reservedwords[60] := 'CURRENT_TIME';
+  absolute_reservedwords[61] := 'CURRENT_TIMESTAMP';
+  absolute_reservedwords[62] := 'CURRENT_USER';
+  absolute_reservedwords[63] := 'CURSOR';
+  absolute_reservedwords[64] := 'CYCLED';
+  absolute_reservedwords[65] := 'DATE';
+  absolute_reservedwords[66] := 'DAY';
+  absolute_reservedwords[67] := 'DEALLOCATE';
+  absolute_reservedwords[68] := 'DEC';
+  absolute_reservedwords[69] := 'DECIMAL';
+  absolute_reservedwords[70] := 'DECLARE';
+  absolute_reservedwords[71] := 'DEFAULT';
+  absolute_reservedwords[72] := 'DEFERRABLE';
+  absolute_reservedwords[73] := 'DEFERRED';
+  absolute_reservedwords[74] := 'DELETE';
+  absolute_reservedwords[75] := 'DESC';
+  absolute_reservedwords[76] := 'DESCRIBE';
+  absolute_reservedwords[77] := 'DESCRIPTOR';
+  absolute_reservedwords[78] := 'DIAGNOSTICS';
+  absolute_reservedwords[79] := 'DISCONNECT';
+  absolute_reservedwords[80] := 'DISTINCT';
+  absolute_reservedwords[81] := 'DOMAIN';
+  absolute_reservedwords[82] := 'DOUBLE';
+  absolute_reservedwords[83] := 'DROP';
+  absolute_reservedwords[84] := 'ELSE';
+  absolute_reservedwords[85] := 'END';
+  absolute_reservedwords[86] := 'END-EXEC';
+  absolute_reservedwords[87] := 'ESCAPE';
+  absolute_reservedwords[88] := 'EXCEPT';
+  absolute_reservedwords[89] := 'EXCEPTION';
+  absolute_reservedwords[90] := 'EXEC';
+  absolute_reservedwords[91] := 'EXECUTE';
+  absolute_reservedwords[92] := 'EXISTS';
+  absolute_reservedwords[93] := 'EXP';
+  absolute_reservedwords[94] := 'EXTERNAL';
+  absolute_reservedwords[95] := 'EXTRACT';
+  absolute_reservedwords[96] := 'FALSE';
+  absolute_reservedwords[97] := 'FETCH';
+  absolute_reservedwords[98] := 'FIRST';
+  absolute_reservedwords[99] := 'FLOAT';
+  absolute_reservedwords[100] := 'FLOOR';
+  absolute_reservedwords[101] := 'FLUSH';
+  absolute_reservedwords[102] := 'FOR';
+  absolute_reservedwords[103] := 'FOREIGN';
+  absolute_reservedwords[104] := 'FOUND';
+  absolute_reservedwords[105] := 'FROM';
+  absolute_reservedwords[106] := 'FULL';
+  absolute_reservedwords[107] := 'GET';
+  absolute_reservedwords[108] := 'GLOBAL';
+  absolute_reservedwords[109] := 'GO';
+  absolute_reservedwords[110] := 'GOTO';
+  absolute_reservedwords[111] := 'GRANT';
+  absolute_reservedwords[112] := 'GROUP';
+  absolute_reservedwords[113] := 'HAVING';
+  absolute_reservedwords[114] := 'HOUR';
+  absolute_reservedwords[115] := 'IDENTITY';
+  absolute_reservedwords[116] := 'IF';
+  absolute_reservedwords[117] := 'IMMEDIATE';
+  absolute_reservedwords[118] := 'IN';
+  absolute_reservedwords[119] := 'INCREMENT';
+  absolute_reservedwords[120] := 'INDEX';
+  absolute_reservedwords[121] := 'INDICATOR';
+  absolute_reservedwords[122] := 'INITIALLY';
+  absolute_reservedwords[123] := 'INITIALVALUE';
+  absolute_reservedwords[124] := 'INNER';
+  absolute_reservedwords[125] := 'INPUT';
+  absolute_reservedwords[126] := 'INSENSITIVE';
+  absolute_reservedwords[127] := 'INSERT';
+  absolute_reservedwords[128] := 'INT';
+  absolute_reservedwords[129] := 'INTEGER';
+  absolute_reservedwords[130] := 'INTERSECT';
+  absolute_reservedwords[131] := 'INTERVAL';
+  absolute_reservedwords[132] := 'INTO';
+  absolute_reservedwords[133] := 'IS';
+  absolute_reservedwords[134] := 'ISOLATION';
+  absolute_reservedwords[135] := 'JOIN';
+  absolute_reservedwords[136] := 'KEY';
+  absolute_reservedwords[137] := 'LANGUAGE';
+  absolute_reservedwords[138] := 'LAST';
+  absolute_reservedwords[139] := 'LASTAUTOINC';
+  absolute_reservedwords[140] := 'LASTVALUE';
+  absolute_reservedwords[141] := 'LEADING';
+  absolute_reservedwords[142] := 'LEFT';
+  absolute_reservedwords[143] := 'LENGTH';
+  absolute_reservedwords[144] := 'LEVEL';
+  absolute_reservedwords[145] := 'LIKE';
+  absolute_reservedwords[146] := 'LOCAL';
+  absolute_reservedwords[147] := 'LOG';
+  absolute_reservedwords[148] := 'LOWER';
+  absolute_reservedwords[149] := 'LTRIM';
+  absolute_reservedwords[150] := 'MATCH';
+  absolute_reservedwords[151] := 'MAX';
+  absolute_reservedwords[152] := 'MAXVALUE';
+  absolute_reservedwords[153] := 'MEMORY';
+  absolute_reservedwords[154] := 'MIMETOBIN';
+  absolute_reservedwords[155] := 'MIN';
+  absolute_reservedwords[156] := 'MINUS';
+  absolute_reservedwords[157] := 'MINUTE';
+  absolute_reservedwords[158] := 'MINVALUE';
+  absolute_reservedwords[159] := 'MODIFY';
+  absolute_reservedwords[160] := 'MODULE';
+  absolute_reservedwords[161] := 'MONTH';
+  absolute_reservedwords[162] := 'NAMES';
+  absolute_reservedwords[163] := 'NATIONAL';
+  absolute_reservedwords[164] := 'NATURAL';
+  absolute_reservedwords[165] := 'NCHAR';
+  absolute_reservedwords[166] := 'NEW';
+  absolute_reservedwords[167] := 'NEXT';
+  absolute_reservedwords[168] := 'NO';
+  absolute_reservedwords[169] := 'NOAUTOINDEXES';
+  absolute_reservedwords[170] := 'NOCASE';
+  absolute_reservedwords[171] := 'NOCYCLED';
+  absolute_reservedwords[172] := '';
+  absolute_reservedwords[173] := 'NOMAXVALUE';
+  absolute_reservedwords[174] := 'NOMINVALUE';
+  absolute_reservedwords[175] := 'NOT';
+  absolute_reservedwords[176] := 'NOW';
+  absolute_reservedwords[177] := 'NULL';
+  absolute_reservedwords[178] := 'NULLIF';
+  absolute_reservedwords[179] := 'NUMERIC';
+  absolute_reservedwords[180] := 'OCTET_LENGTH';
+  absolute_reservedwords[181] := 'OF';
+  absolute_reservedwords[182] := 'ON';
+  absolute_reservedwords[183] := 'ONLY';
+  absolute_reservedwords[184] := 'OPEN';
+  absolute_reservedwords[185] := 'OPTION';
+  absolute_reservedwords[186] := 'OR';
+  absolute_reservedwords[187] := 'ORDER';
+  absolute_reservedwords[188] := 'OUTER';
+  absolute_reservedwords[189] := 'OUTPUT';
+  absolute_reservedwords[190] := 'OVERLAPS';
+  absolute_reservedwords[191] := 'PAD';
+  absolute_reservedwords[192] := 'PARTIAL';
+  absolute_reservedwords[193] := 'PASSWORD';
+  absolute_reservedwords[194] := 'POS';
+  absolute_reservedwords[195] := 'POSITION';
+  absolute_reservedwords[196] := 'POWER';
+  absolute_reservedwords[197] := 'PRECISION';
+  absolute_reservedwords[198] := 'PREPARE';
+  absolute_reservedwords[199] := 'PRESERVE';
+  absolute_reservedwords[200] := 'PRIMARY';
+  absolute_reservedwords[201] := 'PRIOR';
+  absolute_reservedwords[202] := 'PRIVILEGES';
+  absolute_reservedwords[203] := 'PROCEDURE';
+  absolute_reservedwords[204] := 'PUBLIC';
+  absolute_reservedwords[205] := 'RAND';
+  absolute_reservedwords[206] := 'READ';
+  absolute_reservedwords[207] := 'REAL';
+  absolute_reservedwords[208] := 'REFERENCES';
+  absolute_reservedwords[209] := 'RELATIVE';
+  absolute_reservedwords[210] := 'RENAME';
+  absolute_reservedwords[211] := 'RESTRICT';
+  absolute_reservedwords[212] := 'REVOKE';
+  absolute_reservedwords[213] := 'RIGHT';
+  absolute_reservedwords[214] := 'ROLLBACK';
+  absolute_reservedwords[215] := 'ROUND';
+  absolute_reservedwords[216] := 'ROWNUM';
+  absolute_reservedwords[217] := 'ROWS';
+  absolute_reservedwords[218] := 'RTRIM';
+  absolute_reservedwords[219] := 'SCHEMA';
+  absolute_reservedwords[220] := 'SCROLL';
+  absolute_reservedwords[221] := 'SECOND';
+  absolute_reservedwords[222] := 'SECTION';
+  absolute_reservedwords[223] := 'SELECT';
+  absolute_reservedwords[224] := 'SESSION';
+  absolute_reservedwords[225] := 'SESSION_USER';
+  absolute_reservedwords[226] := 'SET';
+  absolute_reservedwords[227] := 'SIGN';
+  absolute_reservedwords[228] := 'SIN';
+  absolute_reservedwords[229] := 'SIZE';
+  absolute_reservedwords[230] := 'SMALLINT';
+  absolute_reservedwords[231] := 'SOME';
+  absolute_reservedwords[232] := 'SPACE';
+  absolute_reservedwords[233] := 'SQL';
+  absolute_reservedwords[234] := 'SQLCODE';
+  absolute_reservedwords[235] := 'SQLERROR';
+  absolute_reservedwords[236] := 'SQLSTATE';
+  absolute_reservedwords[237] := 'SQR';
+  absolute_reservedwords[238] := 'SQRT';
+  absolute_reservedwords[239] := 'START';
+  absolute_reservedwords[240] := 'SUBSTRING';
+  absolute_reservedwords[241] := 'SUM';
+  absolute_reservedwords[242] := 'SYSDATE';
+  absolute_reservedwords[243] := 'SYSTEM_USER';
+  absolute_reservedwords[244] := 'TABLE';
+  absolute_reservedwords[245] := 'TEMPORARY';
+  absolute_reservedwords[246] := 'THEN';
+  absolute_reservedwords[247] := 'TIME';
+  absolute_reservedwords[248] := 'TIMESTAMP';
+  absolute_reservedwords[249] := 'TIMEZONE_HOUR';
+  absolute_reservedwords[250] := 'TIMEZONE_MINUTE';
+  absolute_reservedwords[251] := 'TO';
+  absolute_reservedwords[252] := 'TODATE';
+  absolute_reservedwords[253] := 'TOP';
+  absolute_reservedwords[254] := 'TOSTRING';
+  absolute_reservedwords[255] := 'TRAILING';
+  absolute_reservedwords[256] := 'TRANSACTION';
+  absolute_reservedwords[257] := 'TRANSLATE';
+  absolute_reservedwords[258] := 'TRANSLATION';
+  absolute_reservedwords[259] := 'TRIM';
+  absolute_reservedwords[260] := 'TRUE';
+  absolute_reservedwords[261] := 'TRUNCATE';
+  absolute_reservedwords[262] := 'UNION';
+  absolute_reservedwords[263] := 'UNIQUE';
+  absolute_reservedwords[264] := 'UNKNOWN';
+  absolute_reservedwords[265] := 'UPDATE';
+  absolute_reservedwords[266] := 'UPPER';
+  absolute_reservedwords[267] := 'USAGE';
+  absolute_reservedwords[268] := 'USER';
+  absolute_reservedwords[269] := 'USING';
+  absolute_reservedwords[270] := 'VALUE';
+  absolute_reservedwords[271] := 'VALUES';
+  absolute_reservedwords[272] := 'VARCHAR';
+  absolute_reservedwords[273] := 'VARYING';
+  absolute_reservedwords[274] := 'VIEW';
+  absolute_reservedwords[275] := 'WHEN';
+  absolute_reservedwords[276] := 'WHENEVER';
+  absolute_reservedwords[277] := 'WHERE';
+  absolute_reservedwords[278] := 'WITH';
+  absolute_reservedwords[279] := 'WORK';
+  absolute_reservedwords[280] := 'WRITE';
+  absolute_reservedwords[281] := 'YEAR';
+  absolute_reservedwords[282] := 'ZONE';
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+  absolute_InitializeReservedWords;
+finalization
+  absolute_reservedwords := nil;
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNil(_driver);
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAAnyDACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAAnyDACDriver.pas
new file mode 100644
index 0000000..ba8c006
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAAnyDACDriver.pas	
@@ -0,0 +1,2897 @@
+{-------------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library                                        }
+{                                                                               }
+{ compiler: Delphi 6 and up                                                     }
+{ platform: Win32                                                               }
+{                                                                               }
+{ (c)opyright RemObjects Software. all rights reserved.                         }
+{                                                                               }
+{ Using this code requires a valid license of the Data Abstract                 }
+{ which can be obtained at http://www.remobjects.com.                           }
+{                                                                               }
+{ Based on AnyDAC Driver by Dmitry Arefiev (www.da-soft.com)                    }
+{-------------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$I uAD.inc}
+
+unit uDAAnyDACDriver;
+
+interface
+
+uses
+  DB, Classes,
+  uROClasses,
+  uDAEngine, uDAInterfaces, uDAInterfacesEx, uDAUtils, uDAOracleInterfaces,
+  uDAMySQLInterfaces, uDAADOInterfaces, uDAIBInterfaces, uDADB2Interfaces,
+  uDASybaseInterfaces, uDASQLiteInterfaces, uDAPostgresInterfaces,
+  uADStanIntf, uADStanOption, uADDatSManager, uADPhysIntf, uADCompClient
+{$IFDEF AnyDAC_MONITOR}
+    ,uADMoniBase, uADMoniCustom
+{$ENDIF}
+  ;
+
+const
+  C_DriverMajVer = 3;
+  C_DriverMinVer = 50;
+
+type
+  TDAAnyDACDriverType = TADRDBMSKind;
+
+  { TDAAnyDACDriver }
+  TDAAnyDACDriver = class(TDADriverReference)
+  end;
+
+  { TDAEAnyDACDriver }
+  TDAEAnyDACDriver = class(TDAEDriver, IDADriver40)
+  private
+    FConnectionDefs: TStringList;
+    FConnectionDefIndex: Integer;
+{$IFDEF AnyDAC_MONITOR}
+    FMonitor: TADMoniCustomClientLink;
+    FTraceCallback: TDALogTraceEvent;
+    procedure DoTrace(ASender: TADMoniClientLinkBase; const AClassName, AObjName, AMessage: String);
+{$ENDIF}
+    function LookupConnectionString(const AConnectionString: String; AParsedParams: TStringList): String;
+  protected
+{$IFDEF AnyDAC_MONITOR}
+    procedure DoSetTraceOptions(TraceActive: Boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+{$ENDIF}
+    function GetConnectionClass: TDAEConnectionClass; override;
+    // IDADriver
+    procedure Initialize; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Finalize; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDriverID: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDescription: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetMajVersion: byte; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetMinVersion: byte; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}    // IDADriver40
+    procedure GetAuxDrivers(out List: IROStrings); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetProviderDefaultCustomParameters(Provider: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { TDAEAnyDACConnection }
+  TDAEAnyDACConnection = class(TDAEConnection, IDAConnection,
+    IDAADOConnection,
+    IDAInterbaseConnection,
+    IDAIBTransactionAccess,
+    IDAIBConnectionProperties,
+    IDAOracleConnection,
+    IDAMySQLConnection,
+    IDADB2Connection,
+    IDAPostgresConnection,
+    IDASQLiteConnection,
+    IDASybaseConnection,
+    IDAConnectionModelling,
+    IDACanQueryDatabaseNames,
+    IDAFileBasedDatabase,
+    IDAUseGenerators,
+    IDAUseGenerators2,
+    IDACanQueryGeneratorsNames,
+    IDATestableObject)
+  private
+    FADConnection: TADConnection;
+    fDriverType: TDAAnyDACDriverType;
+    fMSSQLSchemaEnabled: Boolean;
+    fBiDirectionalDataSets: Boolean;
+    fDirectMode: Boolean;
+    FDataTypeSchema: String;
+    FMySQLVersion: integer;
+    FDataBaseName: string;
+    procedure DoGetNames(AList: IROStrings; AObjectType: TDAObjecttype);
+    procedure Native_DoGetTableFields(aTableName: string; out Fields: TDAFieldCollection);
+    procedure Native_DoGetForeignKeys(ForeignKeys: TDADriverForeignKeyCollection);
+    function Native_DoGetLastAutoInc(const GeneratorName: string): variant;
+    function Native_GetQuoteChars: TDAQuoteCharArray;
+    function GetAnyDACPhysConnection:IADPhysConnection;
+    procedure MapAsFIB;
+    function GetMySQLVersion: integer;
+    function GetDataBaseName: string;
+  protected
+    // IInterface
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+    // TDAEConnection
+    function CreateCustomConnection: TCustomConnection; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+    procedure SetupDataset(ADataSet: TADRdbmsDataSet; AFetchMeta: Boolean);
+    procedure SetupOptions(AOptions: IADStanOptions; AFetchMeta: Boolean);
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    // IDATestObject
+    // nothing
+    // IDAConnection
+    function GetSPSelectSyntax(AHasArguments: Boolean): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetQuoteChars: TDAQuoteCharArray; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IdentifierNeedsQuoting(const AIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAADOConnection
+    function GetProviderName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetProviderType: TDAOleDBProviderType; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetCommandTimeout: Integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetCommandTimeout(const Value: Integer); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAInterbaseConnection
+    // nothing
+    // IDAIBTransactionAccess
+    function GetTransaction: TObject; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAIBConnectionProperties
+    function GetRole: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRole(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSQLDialect: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQLDialect(Value: integer); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetCharset: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetCharset(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Commit; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CommitRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Rollback; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RollbackRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAOracleConnection
+    // nothing
+    // IDAConnectionModelling
+    function FieldToDeclaration(aField: TDAField): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function BuildCreateTableSQL(aDataSet: TDADataSet; const aOverrideName: string = ''): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CreateTable(aDataSet: TDADataSet; const aOverrideName: string = ''); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDACanQueryDatabaseNames
+    function GetDatabaseNames: IROStrings;
+    // IDAFileBasedDatabase
+    function GetFileExtensions: IROStrings;
+    // IDADirectoryBasedDatabase
+    // nothing
+    // IDAUseGenerators
+    function GetNextAutoinc(const GeneratorName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAUseGenerators2
+    function GetNextAutoinc2(const GeneratorName: string): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDACanQueryGeneratorsNames
+    function GetGeneratorNames: IROStrings;
+  end;
+
+  { TDAEAnyDACQuery }
+  TDAEAnyDACQuery = class(TDAEDataset, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    // TDAEDataset
+    procedure DoPrepare(AValue: boolean); override;
+    function DoExecute: integer; override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const AValue: string); override;
+    procedure ClearParams; override;
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { TDAEAnyDACStoredProcedure }
+  TDAEAnyDACStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    // TDAEDataset
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  TDAEAnyDACNativeDatabaseAccess = class;
+
+  { TDAEAnyDACNativeField }
+  TDAEAnyDACNativeField = class(TInterfacedObject, IDANativeField)
+  private
+    FCol: TADDatSColumn;
+    FCmd: IADPhysCommand;
+    fParent: TDAEAnyDACNativeDatabaseAccess;
+  protected
+    function GetNativeObject: TObject;
+    function isTFieldCompatible: Boolean;
+    function GetFieldName: string;
+    function GetDataType: TFieldType;
+    function GetSize: integer;
+    function GetDecimalPrecision: Integer;
+    procedure SetDecimalPrecision(Value: integer);
+    function GetDecimalScale: Integer;
+    procedure SetDecimalScale(Value: integer);
+    procedure SetDataType(Value: TFieldType);
+    function GetFieldIndex: integer;
+    function GetValue: Variant;
+    function IsNull: Boolean;
+  public
+    constructor Create(ACol: TADDatSColumn; const ACmd: IADPhysCommand; AParent: TDAEAnyDACNativeDatabaseAccess);
+  end;
+
+  { TDAEAnyDACNativeDatabaseAccess }
+  TDAEAnyDACNativeDatabaseAccessFlags = set of (nfActive, nfBOF, nfEOF);
+  TDAEAnyDACNativeDatabaseAccess = class(TObject, IInterface, IDANativeDatabaseAccess)
+  private
+    FCmd: IADPhysCommand;
+    FTab: TADDatSTable;
+    FFlags: TDAEAnyDACNativeDatabaseAccessFlags;
+    FRowIndex: Integer;
+    FRowsPurged: Integer;
+    FBuffs: array of Pointer;
+    procedure First;
+    procedure CheckActive;
+    procedure CheckBidir;
+    function LocateRecord(const KeyFields: string; const KeyValues: Variant;
+      Options: TLocateOptions; AChangePos: Boolean): Integer;
+    function IsNull(Index: integer): Boolean;
+  protected
+    // IInterface
+    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+    // IDANativeDatabaseAccess
+    procedure ClearFieldDefs;
+    function GetRecordCount: Integer;
+    function GetBOF: Boolean;
+    function GetEOF: Boolean;
+    function GetActive: Boolean;
+    procedure SetActive(const aValue: Boolean);
+    procedure Next;
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant;
+    function GetFieldName(Index: Integer): string;
+    procedure DisableControls;
+    procedure EnableControls;
+    function GetIsEmpty: boolean;
+    procedure FreeBookmark(Bookmark: TBookmark);
+    function GetBookMark: pointer;
+    procedure GotoBookmark(Bookmark: TBookmark);
+    function GetState: TDatasetState;
+    function ControlsDisabled: Boolean;
+    procedure Prepare(const AValue: Boolean);
+    function GetFields(Index: integer): IDANativeField;
+    function FieldCount: Integer;
+    function FindField(const FieldName: string): IDANativeField;
+    function IsTDatasetCompatible: Boolean;
+    function GetNativeFieldData(Index: Integer; var Data: pointer; var DataSize: cardinal):Boolean;
+    function GetNativeFieldValue(Index: Integer): Variant;
+    function CanFreeNativeFieldData: Boolean;
+  public
+    Constructor Create(ADAEConnection: TDAEAnyDACConnection);
+    destructor Destroy; override;
+  end;
+
+  { TDAEAnyDACQueryNative }
+  TDAEAnyDACQueryNative = class(TDAEDataset, IDAMustSetParams)
+  private
+    function GetNativeObject: TDAEAnyDACNativeDatabaseAccess;
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function CreateNativeObject(aConnection: TDAEConnection): TObject; override;
+    function CreateNativeDatabaseAccess: IDANativeDatabaseAccess; override;
+    // TDAEDataset
+    procedure DoPrepare(AValue: boolean); override;
+    function DoExecute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const AValue: string); override;
+    procedure ClearParams; override;
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+    property NativeObject: TDAEAnyDACNativeDatabaseAccess read GetNativeObject;
+  end;
+
+  { TDAEAnyDACStoredProcedureNative }
+  TDAEAnyDACStoredProcedureNative = class(TDAEStoredProcedure, IDAMustSetParams)
+  private
+    function GetNativeObject: TDAEAnyDACNativeDatabaseAccess;
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function CreateNativeObject(aConnection: TDAEConnection): TObject; override;
+    function CreateNativeDatabaseAccess: IDANativeDatabaseAccess; override;
+    // TDAEDataset
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+    property NativeObject: TDAEAnyDACNativeDatabaseAccess read GetNativeObject;
+  end;
+
+procedure Register;
+function GetDriverObject: IDADriver; stdcall;
+function AnyDACDriverIdToAnyDACDriverType(Provider: string): TDAAnyDACDriverType;
+
+implementation
+
+uses
+  {$IFDEF FPC} LResources, {$ENDIF}
+  {$IFDEF MSWINDOWS} Windows, {$ENDIF}
+  SysUtils, Variants, FmtBCD,
+  uDADriverManager, uDARes, uDAHelpers, uROBinaryHelpers,
+  uADStanDef, uADStanAsync, uADStanPool, uADStanExpr, uADStanExprFuncs,
+    uADStanParam, uADStanConst, uADStanFactory,
+{$IFDEF AnyDAC_MONITOR}
+  uADMoniFlatFile, uADMoniRemoteClient,
+{$ENDIF}
+  uADDAptManager,
+  uADGUIxConsoleWait,
+  uADPhysManager, uADPhysODBC, uADPhysOracl, uADPhysMySQL, uADPhysMSSQL,
+    uADPhysMSAcc, uADPhysDB2, uADPhysASA, uADPhysIB, uADPhysADS, uADStanUtil,
+    uADPhysSQLite, uADPhysPg
+{$IFDEF AnyDAC_D11}
+    , uADPhysTDBX
+{$ELSE}
+  {$IFDEF AnyDAC_D6}
+    , uADPhysDbExp
+  {$ENDIF}
+{$ENDIF};
+
+{$IFNDEF FPC}
+  {$R DataAbstract_AnyDACDriver_Glyphs.res}
+{$ENDIF}
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+  {$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+{------------------------------------------------------------------------------}
+{ Generic procedures                                                           }
+{------------------------------------------------------------------------------}
+function AnyDACDriverIdToAnyDACDriverType(Provider: string): TDAAnyDACDriverType;
+var
+  FConnectionIntf: IADPhysConnection;
+  oConMeta: IADPhysConnectionMetadata;
+begin
+  Result := mkUnknown;
+  if Provider = '' then
+    Exit;
+  try
+    with TADConnection.Create(nil) do
+    try
+      ResultConnectionDef.DriverID := Provider;
+      ADPhysManager.CreateConnection(ResultConnectionDef, FConnectionIntf);
+      if FConnectionIntf <> nil then begin
+        FConnectionIntf.CreateMetadata(oConMeta);
+        Result := oConMeta.Kind;
+      end;
+    finally
+      Free;
+    end;
+  except
+    // hide an exception
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure SetADParamValuesFromDA(ADAParams: TDAParamCollection;
+  AADParams: TADParams; ASetType: Boolean);
+var
+  i: integer;
+  oDAPar: TDAParam;
+  oADPar: TADParam;
+begin
+  for i := 0 to AADParams.Count - 1 do begin
+    oADPar := AADParams[i];
+    oDAPar := ADAParams.ParamByName(oADPar.Name);
+    oADPar.ParamType := TParamType(oDAPar.ParamType);
+    if oDAPar.ParamType in [daptInput, daptInputOutput, daptUnknown] then
+      if oDAPar.DataType in [datBlob, datMemo, datWideMemo, datXml] then begin
+        if ASetType then
+          if oDAPar.BlobType = dabtUnknown then
+            case oDAPar.DataType of
+            datMemo:     oADPar.DataType := ftMemo;
+            datBlob:     oADPar.DataType := ftBlob;
+            datXml,
+            datWideMemo: oADPar.DataType := {$IFDEF AnyDAC_D10} ftWideMemo {$ELSE} ftFmtMemo {$ENDIF};
+            end
+          else
+            oADPar.DataType := BlobTypeMappings[oDAPar.BlobType];
+        if VarIsEmpty(oDAPar.Value) or VarIsNull(oDAPar.Value) then
+          oADPar.Clear
+        else
+          oADPar.AsBlob := VariantToAnsiString(oDAPar.Value);
+      end
+      else begin
+        if ASetType then
+          oADPar.DataType := DATypeToVCLType(oDAPar.DataType);
+        if VarIsEmpty(oDAPar.Value) or VarIsNull(oDAPar.Value) then
+          oADPar.Clear
+        else
+          oADPar.Value := oDAPar.Value;
+      end
+    else
+      if ASetType then begin
+        oADPar.DataType := DATypeToVCLType(oDAPar.DataType);
+        oADPar.Size := oDAPar.Size;
+        oADPar.Precision := oDAPar.DecimalPrecision;
+        oADPar.NumericScale := oDAPar.DecimalScale;
+      end;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure GetDAParamValuesFromAD(Params: TDAParamCollection; AADParams: TADParams);
+var
+  i: integer;
+  oDAPar: TDAParam;
+  oADPar: TADParam;
+begin
+  if not Assigned(AADParams) then
+    Exit;
+  for i := 0 to AADParams.Count - 1 do begin
+    oADPar := AADParams[i];
+    oDAPar := Params.ParamByName(oADPar.Name);
+    if oDAPar.ParamType in [daptOutput, daptInputOutput, daptResult] then
+      oDAPar.Value := oADPar.Value;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function MapAD2DADataType(AADDataType: TADDataType; out ABlobType: TDABlobType): TDADataType;
+begin
+  ABlobType := dabtUnknown;
+  case AADDataType of
+  dtUnknown:       Result := datUnknown;
+  dtBoolean:       Result := datBoolean;
+  dtSByte:         Result := datShortInt;
+  dtInt16:         Result := datSmallInt;
+  dtInt32:         Result := datInteger;
+  dtInt64:         Result := datLargeInt;
+  dtByte:          Result := datByte;
+  dtUInt16:        Result := datWord;
+  dtUInt32:        Result := datCardinal;
+  dtUInt64:        Result := datLargeUInt;
+  dtDouble:        Result := datFloat;
+  dtCurrency:      Result := datFloat;    // Double
+  dtBCD:           Result := datCurrency; // Currency
+  dtFmtBCD:        Result := datDecimal;  // TBcd
+  dtDateTime:      Result := datDateTime;
+  dtTime:          Result := datDateTime;
+  dtDate:          Result := datDateTime;
+  dtDateTimeStamp: Result := datDateTime;
+  dtAnsiString:    Result := datString;
+  dtWideString:    Result := datWideString;
+  dtByteString:    Result := datString;
+  dtBlob:          begin Result := datBlob; ABlobType := dabtBlob; end;
+  dtMemo:          begin Result := datMemo; ABlobType := dabtMemo; end;
+  dtWideMemo:      begin Result := datWideMemo; ABlobType := dabtMemo; end;
+  dtHBlob:         begin Result := datBlob; ABlobType := dabtOraBlob; end;
+  dtHMemo:         begin Result := datMemo; ABlobType := dabtOraClob; end;
+  dtWideHMemo:     begin Result := datWideMemo; ABlobType := dabtOraClob; end;
+  dtHBFile:        begin Result := datBlob; ABlobType := dabtOraBlob; end;
+  dtGUID:          Result := datGuid;
+  else             raise Exception.CreateFmt('AnyDAC data type [%s] is not supported by DataAbstract',
+                                             [C_AD_DataTypeNames[AADDataType]]);
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+{ TDAEAnyDACDriver                                                             }
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEAnyDACConnection;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.GetDriverID: string;
+begin
+  result := 'AnyDAC';
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.GetDescription: string;
+begin
+  result := 'RemObjects AnyDAC v ' + C_AD_Version + ' Driver'
+    {$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.GetMajVersion: byte;
+begin
+  Result := C_DriverMajVer;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.GetMinVersion: byte;
+begin
+  Result := C_DriverMinVer; 
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACDriver.GetAuxDrivers(out List: IROStrings);
+begin
+  List := NewROStrings;
+  ADManager.GetDriverNames(List.Strings);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.GetProviderDefaultCustomParameters(Provider: string): string;
+begin
+  Result := '';
+  case AnyDACDriverIdToAnyDACDriverType(Provider) of
+    mkOracle:    Result := S_AD_ConnParam_Common_OSAuthent + '=No;';
+    mkMSSQL:     Result := 'Schemas=1;Integrated Security=SSPI;';
+    mkMySQL:     Result := MYSQL_GetDefaultCustomParameters;
+    mkInterbase: Result := S_AD_ConnParam_IB_Protocol + '=TCPIP;';
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.GetDefaultConnectionType(const AuxDriver: string): string;
+begin
+  case AnyDACDriverIdToAnyDACDriverType(AuxDriver) of
+    mkOracle:    Result := Oracle_DriverType;
+    mkMSSQL:     Result := MSSQL_DriverType;
+    mkMSAccess:  Result := Access_DriverType;
+    mkMySQL:     Result := MySQL_DriverType;
+    mkDB2:       Result := DB2_DriverType;
+    mkASA:       Result := ASA_DriverType;
+    mkInterbase: Result := IB_DriverType;
+    mkSQLite:    Result := SQLite_DriverType;
+    mkPostgreSQL:Result := PostgreSQL_DriverType;
+  else
+    Result := inherited GetDefaultConnectionType(AuxDriver);
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+const
+  C_Line: String = '-----------------------------';
+begin
+  inherited;
+
+  List.Add('AnyDAC Driver parameters');
+  List.Add(C_Line);
+  case AnyDACDriverIdToAnyDACDriverType(AuxDriver) of
+    mkOracle:
+      ;
+    mkMSSQL:
+      MSSQL_GetAuxParams(List);
+    mkMSAccess:
+      ;
+    mkMySQL:
+      MYSQL_GetAuxParams(List);
+    mkDB2:
+      ;
+    mkASA:
+      ;
+    mkInterbase:
+      begin
+        AddIBAuxParams(List);
+        List.Add('DataTypeSchema=<FIB>');
+      end;
+  end;
+  List.Add('ConnectionDefName=<string>');
+  List.Add('BiDirectionalDataSets=0,1');
+  List.Add('DirectMode=0,1');
+  List.Add('');
+
+  case AnyDACDriverIdToAnyDACDriverType(AuxDriver) of
+    mkOracle:
+      begin
+        List.Add('Oracle AuxDriver parameters');
+        List.Add(C_Line);
+        List.Add('You can pass any parameters directly to aux driver. Use the prefix ''@'' for this, e.g.:');
+        List.Add('@SQLTrace=True;@Pooled=True');
+        List.Add('');
+        List.Add('Detailed description of aux driver parameters you can find at:');
+        List.Add('http://wiki.remobjects.com/wiki/Connect_to_Oracle_Server_(AnyDAC)');
+      end;
+    mkMSSQL:
+      begin
+        List.Add('MSSQL AuxDriver parameters');
+        List.Add(C_Line);
+        List.Add('');
+        List.Add('You can pass any parameters directly to aux driver. Use the prefix ''@'' for this, e.g.:');
+        List.Add('@App=My DA Server;@Pooled=True');
+        List.Add('');
+        List.Add('Detailed description of aux driver parameters you can find at:');
+        List.Add('http://wiki.remobjects.com/wiki/Connect_to_Microsoft_SQL_Server_(AnyDAC)');
+      end;
+    mkMSAccess:
+      begin
+        List.Add('MSAccess AuxDriver parameters');
+        List.Add(C_Line);
+        List.Add('You can pass any parameters directly to aux driver. Use the prefix ''@'' for this, e.g.:');
+        List.Add('@ReadOnly=True;@Pooled=True');
+        List.Add('');
+        List.Add('Detailed description of aux driver parameters you can find at:');
+        List.Add('http://wiki.remobjects.com/wiki/Connect_to_MS_Access_database_(AnyDAC)');
+      end;
+    mkMySQL:
+      begin
+        List.Add('MySQL AuxDriver parameters');
+        List.Add(C_Line);
+        List.Add('You can pass any parameters directly to aux driver. Use the prefix ''@'' for this, e.g.:');
+        List.Add('@CharacterSet=utf8;@Pooled=True');
+        List.Add('');
+        List.Add('Detailed description of aux driver parameters you can find at:');
+        List.Add('http://wiki.remobjects.com/wiki/Connect_to_MySQL_Server_(AnyDAC)');
+      end;
+    mkDB2:
+      begin
+        List.Add('DB2 AuxDriver parameters');
+        List.Add(C_Line);
+        List.Add('You can pass any parameters directly to aux driver. Use the prefix ''@'' for this, e.g.:');
+        List.Add('@Alias=MyDB;@Pooled=True');
+        List.Add('');
+        List.Add('Detailed description of aux driver parameters you can find at:');
+        List.Add('http://wiki.remobjects.com/wiki/Connect_to_IBM_DB2_Server_(AnyDAC)');
+      end;
+    mkASA:
+      begin
+        List.Add('ASA AuxDriver parameters');
+        List.Add(C_Line);
+        List.Add('You can pass any parameters directly to aux driver. Use the prefix ''@'' for this, e.g.:');
+        List.Add('@ODBCAdvanced=AutoStart=Yes;@DatabaseFile=C:\sybase\addemo_asa10.db;@Pooled=True');
+        List.Add('');
+        List.Add('Detailed description of aux driver parameters you can find at:');
+        List.Add('http://wiki.remobjects.com/wiki/Connect_to_Sybase_SQL_Anywhere_(AnyDAC)');
+      end;
+    mkInterBase:
+      begin
+        List.Add('IB/FB AuxDriver parameters');
+        List.Add(C_Line);
+        List.Add('You can pass any parameters directly to aux driver. Use the prefix ''@'' for this, e.g.:');
+        List.Add('@Protocol=TCPIP;@CharacterSet=win1251;@Pooled=True');
+        List.Add('');
+        List.Add('Detailed description of aux driver parameters you can find at:');
+        List.Add('http://wiki.remobjects.com/wiki/Connect_to_Interbase_or_Firebird_Server_(AnyDAC)');
+      end;
+    mkADS:
+      begin
+        List.Add('AdvantageDS AuxDriver parameters');
+        List.Add(C_Line);
+        List.Add('You can pass any parameters directly to aux driver. Use the prefix ''@'' for this, e.g.:');
+        List.Add('@DefaultType=Advantage;@ServerTypes=1;@Pooled=True');
+        List.Add('');
+        List.Add('Detailed description of aux driver parameters you can find at:');
+        List.Add('http://wiki.remobjects.com/wiki/Connect_to_Advantage_Database_Server_(AnyDAC)');
+      end;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACDriver.Initialize;
+begin
+  FConnectionDefs := TStringList.Create;
+  FConnectionDefs.Sorted := True;
+  FConnectionDefIndex := 0;
+  ADManager.Open;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACDriver.Finalize;
+begin
+  ADManager.Close;
+  FreeAndNil(FConnectionDefs);
+{$IFDEF AnyDAC_MONITOR}
+  FreeAndNil(FMonitor);
+{$ENDIF}
+  ADTerminate;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACDriver.LookupConnectionString(const AConnectionString: String;
+  AParsedParams: TStringList): String;
+var
+  i: Integer;
+begin
+  i := FConnectionDefs.IndexOf(AConnectionString);
+  if i = -1 then begin
+    Inc(FConnectionDefIndex);
+    FConnectionDefs.AddObject(AConnectionString, TObject(FConnectionDefIndex));
+    with ADManager.ConnectionDefs.AddConnectionDef do begin
+      Name := Format('__DACD_%d', [FConnectionDefIndex]);
+      Params.AddStrings(AParsedParams);
+      Result := Name;
+    end;
+  end
+  else
+    Result := Format('__DACD_%d', [Integer(FConnectionDefs.Objects[i])]);
+end;
+
+{------------------------------------------------------------------------------}
+{$IFDEF AnyDAC_MONITOR}
+procedure TDAEAnyDACDriver.DoTrace(ASender: TADMoniClientLinkBase;
+  const AClassName, AObjName, AMessage: String);
+begin
+  if Assigned(FTraceCallback) then
+    FTraceCallback(ASender, AMessage, 0);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACDriver.DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+var
+  eKinds: TADMoniEventKinds;
+begin
+  inherited;
+  if TraceActive then begin
+    FTraceCallBack := Callback;
+    eKinds := [];
+    if toPrepare in TraceOptions then  eKinds := eKinds + [ekCmdPrepare];
+    if toExecute in TraceOptions then  eKinds := eKinds + [ekCmdExecute];
+    if toFetch in TraceOptions then    eKinds := eKinds + [ekCmdDataIn];
+    if toError in TraceOptions then    eKinds := eKinds + [ekError];
+    // if toStmt in TraceOptions then  eKinds := eKinds + [tfStmt];
+    if toConnect in TraceOptions then  eKinds := eKinds + [ekConnConnect];
+    if toTransact in TraceOptions then eKinds := eKinds + [ekConnTransact];
+    // if toBlob in TraceOptions then  eKinds := eKinds + [tfBlob];
+    if toService in TraceOptions then  eKinds := eKinds + [ekVendor];
+    if toMisc in TraceOptions then     eKinds := eKinds + [ekConnService, ekLiveCycle, ekAdaptUpdate];
+    if toParams in TraceOptions then   eKinds := eKinds + [ekCmdDataIn, ekCmdDataOut];
+    if FMonitor = nil then FMonitor := TADMoniCustomClientLink.Create(Self);
+    FMonitor.Tracing := False;
+    FMonitor.OnOutput := DoTrace;
+    FMonitor.EventKinds := eKinds;
+    FMonitor.Tracing := True;
+  end
+  else begin
+    if FMonitor <> nil then
+      FMonitor.Tracing := False;
+    FTraceCallback := nil;
+  end;
+end;
+{$ENDIF}
+
+{------------------------------------------------------------------------------}
+{ TDAEAnyDACConnection                                                         }
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.QueryInterface(const IID: TGUID; out Obj): HResult;
+begin
+  Result := E_NOINTERFACE;
+  if IsEqualGUID(IID, IDAADOConnection) then begin
+    if fDriverType <> mkMSSQL then Exit;
+  end else if IsEqualGUID(IID, IDAInterbaseConnection) then begin
+    if fDriverType <> mkInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAIBTransactionAccess) then begin
+    if fDriverType <> mkInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAIBConnectionProperties) then begin
+    if fDriverType <> mkInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAOracleConnection) then begin
+    if fDriverType <> mkOracle then Exit;
+  end else if IsEqualGUID(IID, IDADB2Connection) then begin
+    if fDriverType <> mkDB2 then Exit;
+  end else if IsEqualGUID(IID, IDASybaseConnection) then begin
+    if not (fDriverType in [mkASA, mkADS]) then Exit;
+  end else if IsEqualGUID(IID, IDAMySQLConnection) then begin
+    if fDriverType <> mkMySQL then Exit;
+  end else if IsEqualGUID(IID, IDAPostgresConnection) then begin
+    if fDriverType <> mkPostgreSQL then Exit;
+  end else if IsEqualGUID(IID, IDASQLiteConnection) then begin
+    if fDriverType <> mkSQLite then Exit;
+  end else if IsEqualGUID(IID, IDACanQueryDatabaseNames) then begin
+    if not (fDriverType in [mkMSSQL, mkMySQL, mkPostgreSQL]) then Exit;
+  end else if IsEqualGUID(IID, IDAFileBasedDatabase) then begin
+    if not (fDriverType in [mkInterBase,mkMSAccess, mkSQLite]) then Exit;
+  end else if IsEqualGUID(IID, IDAUseGenerators) or IsEqualGUID(IID, IDAUseGenerators2) then begin
+    if not (fDriverType in [mkInterBase, mkOracle,mkPostgreSQL]) then Exit;
+  end else if IsEqualGUID(IID, IDACanQueryGeneratorsNames) then begin
+    if not (fDriverType in [mkInterBase]) then Exit;
+  end
+  //  else if IsEqualGUID(IID, IDAConnectionModelling) then
+  ;
+  Result := inherited QueryInterface(IID, Obj);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  if FDirectMode then
+    result := TDAEAnyDACQueryNative
+  else
+    result := TDAEAnyDACQuery;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  if FDirectMode then
+    result := TDAEAnyDACStoredProcedureNative
+  else
+    result := TDAEAnyDACStoredProcedure;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fDriverType := mkUnknown;
+  FADConnection := TADConnection.Create(nil);
+  with FADConnection do begin
+    LoginPrompt := False;
+    FetchOptions.Mode := fmAll;
+    FetchOptions.RowsetSize := 100;
+    ResourceOptions.SilentMode := True;
+    ResourceOptions.UnifyParamNames := True;
+  end;
+  result := FADConnection;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetAnyDACPhysConnection: IADPhysConnection;
+begin
+  Result := FADConnection.ConnectionIntf;
+  if Result = nil then
+    ADPhysManager.CreateConnection(FADConnection.ConnectionDefName, Result);
+end;
+
+{------------------------------------------------------------------------------}
+
+{
+Database=                 S_AD_ConnParam_Common_Database
+User_Name=                S_AD_ConnParam_Common_UserName
+Password=                 S_AD_ConnParam_Common_Password
+
+Oracle
+======
+OSAuthent=                S_AD_ConnParam_Common_OSAuthent
+DriverID=Ora
+
+MSAccess
+========
+SystemDB=                 S_AD_ConnParam_MSAcc_SysDB
+DriverID=MSAcc
+
+DB2
+===
+Alias=                    S_AD_ConnParam_DB2_Alias
+Server=                   S_AD_ConnParam_Common_Server
+Port=                     S_AD_ConnParam_Common_Port
+Protocol=                 S_AD_ConnParam_DB2_Protocol
+DriverID=DB2
+
+ASA
+===
+Server=                   S_AD_ConnParam_Common_Server
+DatabaseFile=             S_AD_ConnParam_ASA_DatabaseFile
+OSAuthent=                S_AD_ConnParam_Common_OSAuthent
+App=                      S_AD_ConnParam_ASA_App
+Compress=                 S_AD_ConnParam_ASA_Compress
+Encrypt=                  S_AD_ConnParam_ASA_Encrypt
+DriverID=ASA
+
+ADS
+===
+DefaultType=
+ServerTypes=
+DriverID=ADS
+
+MSSQL
+=====
+Server=                   S_AD_ConnParam_Common_Server
+Network=                  S_AD_ConnParam_MSSQL_Network
+Address=                  S_AD_ConnParam_MSSQL_Address
+OSAuthent=                S_AD_ConnParam_Common_OSAuthent
+Workstation=              S_AD_ConnParam_MSSQL_Workstation
+App=                      S_AD_ConnParam_MSSQL_App
+Encrypt=                  S_AD_ConnParam_MSSQL_Encrypt
+Language=                 S_AD_ConnParam_MSSQL_Language
+DriverID=MSSQL
+
+MySQL
+=====
+CharacterSet=             S_AD_ConnParam_Common_CharacterSet
+Server=                   S_AD_ConnParam_Common_Server
+Port=                     S_AD_ConnParam_Common_Port
+DriverID=MySQL
+
+IB
+==
+Protocol=                 S_AD_ConnParam_IB_Protocol
+Server=                   S_AD_ConnParam_Common_Server
+InstanceName=             S_AD_ConnParam_IB_InstanceName
+CharacterSet=             S_AD_ConnParam_Common_CharacterSet
+RoleName=                 S_AD_ConnParam_IB_RoleName
+SQLDialect=               S_AD_ConnParam_IB_SQLDialect
+DriverID=IB
+
+Other
+=====
+ODBCDriver=
+DataSource=
+RDBMS=
+ODBCAdvanced=
+DriverID=ODBC
+}
+
+procedure TDAEAnyDACConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  sName, sValue: string;
+  i: integer;
+  oParams: TStringList;
+begin
+  FMySQLVersion := -1;
+  fDriverType := mkUnknown;
+  FDataTypeSchema := '';
+  fMSSQLSchemaEnabled := False;
+  fBiDirectionalDataSets := False;
+  fDirectMode := False;
+
+  inherited DoApplyConnectionString(aConnStrParser, aConnectionObject);
+  oParams := TStringList.Create;
+  try
+    with aConnStrParser do begin
+      oParams.Values[S_AD_ConnParam_Common_DriverID] := AuxDriver;
+      fDriverType := AnyDACDriverIdToAnyDACDriverType(AuxDriver);
+
+      if (Self.UserID <> '') then
+        oParams.Values[S_AD_ConnParam_Common_UserName] := Self.UserID
+      else if (UserID <> '') then
+        oParams.Values[S_AD_ConnParam_Common_UserName] := UserID;
+
+      if (Self.Password <> '') then
+        oParams.Values[S_AD_ConnParam_Common_Password] := Self.Password
+      else if (Password <> '') then
+        oParams.Values[S_AD_ConnParam_Common_Password] := Password;
+
+      if Database <> '' then
+        oParams.Values[S_AD_ConnParam_Common_Database] := Database;
+       FDataBaseName := DataBase;
+
+      if Server <> '' then
+        oParams.Values[S_AD_ConnParam_Common_Server] := Server;
+
+      for i := 0 to AuxParamsCount - 1 do begin
+        sName := AuxParamNames[i];
+        if sName = '' then Continue;
+        sValue := AuxParams[AuxParamNames[i]];
+        if SameText(sName, 'Schemas') then begin
+          fMSSQLSchemaEnabled := sValue = '1';
+          Continue;
+        end
+        else if SameText(sName, 'Dialect') then begin
+          if fDriverType = mkInterBase then
+            sName := S_AD_ConnParam_IB_SQLDialect;
+        end
+        else if SameText(sName, 'Role') then begin
+          if fDriverType = mkInterBase then
+            sName := S_AD_ConnParam_IB_RoleName;
+        end
+        else if SameText(sName, 'Charset') then begin
+          if fDriverType = mkInterBase then
+            sName := S_AD_ConnParam_Common_CharacterSet;
+        end
+        else if SameText(sName, 'Port') then begin
+          if StrToIntDef(sValue, -1) <> -1 then
+            sName := S_AD_ConnParam_Common_Port;
+        end
+        else if SameText(sName, 'ConnectionDefName') then
+          sName := S_AD_DefinitionParam_Common_ConnectionDef
+        else if SameText(sName, 'DataTypeSchema') then begin
+          if fDriverType = mkInterBase then
+            FDataTypeSchema := UpperCase(sValue);
+        end
+        else if SameText(sName, 'Integrated Security') then begin
+          if (fDriverType = mkMSSQL) and (sValue = 'SSPI') then begin
+            sName := S_AD_ConnParam_Common_OSAuthent;
+            sValue := 'Yes';
+          end
+          else
+            Continue;
+        end
+        else if SameText(sName, 'BiDirectionalDataSets') then begin
+          fBiDirectionalDataSets := sValue = '1';
+          Continue;
+        end
+        else if SameText(sName, 'DirectMode') then begin
+          fDirectMode := sValue = '1';
+          Continue;
+        end
+        else
+          if sName[1] = '@' then
+            sName := Pchar(sName) + 1;
+        oParams.Values[sName] := sValue;
+      end;
+    end;
+
+    FADConnection.ConnectionDefName :=
+      TDAEAnyDACDriver(Driver).LookupConnectionString(GetConnectionString, oParams);
+
+    if FDataTypeSchema = 'FIB' then
+      MapAsFIB;
+  finally
+    oParams.Free;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.MapAsFIB;
+begin
+  with FADConnection.FormatOptions do begin
+    OwnMapRules := True;
+    MapRules.Clear;
+    with MapRules.Add do begin
+      SourceDataType := dtFmtBCD;
+      TargetDataType := dtDouble;
+    end;
+    with MapRules.Add do begin
+      SourceDataType := dtCurrency;
+      TargetDataType := dtDouble;
+    end;
+    with MapRules.Add do begin
+      SourceDataType := dtBCD;
+      TargetDataType := dtBCD;
+    end;
+    with MapRules.Add do begin
+      SourceDataType := dtInt64;
+      TargetDataType := dtBCD;
+    end;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetMySQLVersion: integer;
+begin
+  if FMySQLVersion = -1 then FMySQLVersion := MYSQL_GetVersion(GetDatasetClass.Create(Self));
+  Result := FMySQLVersion;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.DoBeginTransaction: integer;
+begin
+  Result := 0;
+  FADConnection.StartTransaction;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoCommitTransaction;
+begin
+  FADConnection.Commit;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoRollbackTransaction;
+begin
+  FADConnection.Rollback;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.DoGetInTransaction: boolean;
+begin
+  result := FADConnection.InTransaction;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.Native_DoGetLastAutoInc(const GeneratorName: string): variant;
+var
+  v: Variant;
+begin
+  v := FADConnection.GetLastAutoGenValue(GeneratorName);
+  if VarIsNull(v) then
+    Result := -1
+  else
+    Result := v;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  case fDriverType of
+    mkOracle:    Result := Oracle_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    mkMSSQL:     Result := MSSQL_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    mkMySQL:     Result := MySQL_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    mkInterBase: Result := IB_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    mkPostgreSQL: Result := Postgres_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+  else
+    Result := Native_DoGetLastAutoInc(GeneratorName);
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoGetStoredProcedureNames(out List: IROStrings);
+begin
+  inherited;
+  case fDriverType of
+    mkOracle:    Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    mkMSSQL:     MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, fMSSQLSchemaEnabled);
+    mkMySQL:     MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, GetDataBaseName,GetMySQLVersion);
+    mkInterbase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    mkSQLite:    SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    mkPostgreSQL: Postgres_DoGetNames(GetDatasetClass.Create(Self),List,dotProcedure);
+  else
+    DoGetNames(List, dotProcedure);
+  end
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited;
+  case fDriverType of
+    mkOracle:    Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+    mkMSSQL:     MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, fMSSQLSchemaEnabled);
+    mkMySQL:     MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, GetDataBaseName,GetMySQLVersion);
+    mkInterbase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotView);
+    mkSQLite:    SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotView);
+    mkPostgreSQL: Postgres_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+  else
+    DoGetNames(List, dotView);
+  end
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited;
+  case fDriverType of
+    mkOracle:    Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotTable);
+    mkMSSQL:     MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, fMSSQLSchemaEnabled);
+    mkMySQL:     MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, GetDataBaseName,GetMySQLVersion);
+    mkInterbase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotTable);
+    mkSQLite:    SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotTable);
+    mkPostgreSQL:Postgres_DoGetNames(GetDatasetClass.Create(Self),List,dotTable);
+  else
+    DoGetNames(List, dotTable);
+  end
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.Native_DoGetTableFields(aTableName: string; out Fields: TDAFieldCollection);
+var
+  oMIQ: TADMetaInfoQuery;
+  eAttrs: TADDataAttributes;
+  eBlobType: TDABlobType;
+  lUseROWIDAsPK: Boolean;
+  oFld: TDAField;
+begin
+  aTableName := QuoteIdentifierIfNeeded(aTableName);
+  Fields := TDAFieldCollection.Create(nil);
+  lUseROWIDAsPK := False;
+  oMIQ := TADMetaInfoQuery.Create(nil);
+  try
+    oMIQ.Connection := FADConnection;
+    oMIQ.ObjectName := aTableName;
+    oMIQ.MetaInfoKind := mkTableFields;
+    oMIQ.Open;
+    while not oMIQ.Eof do begin
+      with Fields.Add do begin
+        Name := oMIQ.FieldByName('COLUMN_NAME').AsString;
+        Size := oMIQ.FieldByName('COLUMN_LENGTH').AsInteger;
+        eAttrs := TADDataAttributes({$IFDEF FPC}ord{$ELSE}Word{$ENDIF}(oMIQ.FieldByName('COLUMN_ATTRIBUTES').AsInteger));
+        DataType := MapAD2DADataType(TADDataType(oMIQ.FieldByName('COLUMN_DATATYPE').AsInteger), eBlobType);
+        if eBlobType <> dabtUnknown then BlobType := eBlobType;
+        if (DataType = datInteger) and (caAutoInc in eAttrs) then DataType := datAutoInc;
+        if (DataType = datLargeInt) and (caAutoInc in eAttrs) then DataType := datLargeAutoInc;
+        Required := not (caAllowNull in eAttrs);
+        ReadOnly := caReadOnly in eAttrs;
+        if caROWID in eAttrs then begin
+          InPrimaryKey := True;
+          lUseROWIDAsPK := True;
+        end;
+        // DefaultValue
+        // ServerAutoRefresh
+      end;
+      oMIQ.Next;
+    end;
+
+    if not lUseROWIDAsPK then begin
+      oMIQ.Close;
+      oMIQ.BaseObjectName := oMIQ.ObjectName;
+      oMIQ.ObjectName := '';
+      oMIQ.MetaInfoKind := mkPrimaryKeyFields;
+      oMIQ.Open;
+      while not oMIQ.Eof do begin
+        oFld := Fields.FindField(oMIQ.FieldByName('COLUMN_NAME').AsString);
+        if oFld <> nil then
+          oFld.InPrimaryKey := True;
+        oMIQ.Next;
+      end;
+    end;
+
+  finally
+    oMIQ.Free;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.Native_DoGetForeignKeys(ForeignKeys: TDADriverForeignKeyCollection);
+var
+  oTabs, oFKeys, oFKeyFields: TADMetaInfoQuery;
+  sFKFields, sPKFields: String;
+  oConnMeta: IADPhysConnectionMetadata;
+
+  function QuoteName(const AName: String): String;
+  begin
+    if AName = '' then
+      Result := ''
+    else
+      Result := oConnMeta.NameQuotaChar1 + AName + oConnMeta.NameQuotaChar2;
+  end;
+
+begin
+  GetAnyDACPhysConnection.CreateMetadata(oConnMeta);
+  ForeignKeys := TDADriverForeignKeyCollection.Create(nil);
+  oTabs := TADMetaInfoQuery.Create(nil);
+  oFKeys := TADMetaInfoQuery.Create(nil);
+  oFKeyFields := TADMetaInfoQuery.Create(nil);
+  try
+    oTabs.Connection := FADConnection;
+    oTabs.MetaInfoKind := mkTables;
+    oTabs.TableKinds := [tkTable, tkTempTable, tkLocalTable];
+    oFKeys.MetaInfoKind := mkForeignKeys;
+    oFKeys.Connection := FADConnection;
+    oFKeys.MetaInfoKind := mkForeignKeys;
+    oFKeyFields.Connection := FADConnection;
+    oFKeyFields.MetaInfoKind := mkForeignKeyFields;
+    oTabs.Open;
+    while not oTabs.Eof do begin
+      oFKeys.Close;
+      oFKeys.CatalogName := QuoteName(oTabs.Fields[1].AsString);
+      oFKeys.SchemaName := QuoteName(oTabs.Fields[2].AsString);
+      oFKeys.ObjectName := QuoteName(oTabs.Fields[3].AsString);
+      oFKeys.Open;
+      while not oFKeys.Eof do begin
+        oFKeyFields.Close;
+        oFKeyFields.CatalogName := QuoteName(oFKeys.Fields[1].AsString);
+        oFKeyFields.SchemaName := QuoteName(oFKeys.Fields[2].AsString);
+        oFKeyFields.BaseObjectName := QuoteName(oFKeys.Fields[3].AsString);
+        oFKeyFields.ObjectName := QuoteName(oFKeys.Fields[4].AsString);
+        oFKeyFields.Open;
+        sPKFields := '';
+        sFKFields := '';
+        while not oFKeyFields.Eof do begin
+          if sPKFields <> '' then
+            sPKFields := sPKFields + ',';
+          sPKFields := sPKFields + oFKeyFields.Fields[6].AsString;
+          if sFKFields <> '' then
+            sFKFields := sFKFields + ',';
+          sFKFields := sFKFields + oFKeyFields.Fields[5].AsString;
+          oFKeyFields.Next;
+        end;
+        with ForeignKeys.Add do begin
+          PKTable := FADConnection.EncodeObjectName(oFKeys.Fields[5].AsString,
+            oFKeys.Fields[6].AsString, '', oFKeys.Fields[7].AsString);
+          PKField := sPKFields;
+          FKTable := FADConnection.EncodeObjectName(oFKeys.Fields[1].AsString,
+            oFKeys.Fields[2].AsString, '', oFKeys.Fields[3].AsString);
+          FKField := sFKFields;
+        end;
+        oFKeys.Next;
+      end;
+      oTabs.Next;
+    end;
+  finally
+    oTabs.Free;
+    oFKeys.Free;
+    oFKeyFields.Free;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoGetNames(AList: IROStrings; AObjectType: TDAObjecttype);
+begin
+  case AObjectType of
+    dotTable:     FADConnection.GetTableNames('', '', '', AList.Strings, [osMy], [tkTable]);
+    dotProcedure: FADConnection.GetStoredProcNames('', '', '', '', AList.Strings, [osMy]);
+    dotView:      FADConnection.GetTableNames('', '', '', AList.Strings, [osMy], [tkView]);
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  case fDriverType of
+    mkOracle:    Oracle_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    mkMSSQL:     MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    mkMySQL:     MYSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),GetDatasetClass.Create(Self),Fields, GetDataBaseName,GetMySQLVersion);
+    mkInterBase: IB_GetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    mkPostgreSQL:Postgres_DoGetTableFields(aTableName, GetDatasetClass.Create(Self), Fields);
+  else
+    Native_DoGetTableFields(aTableName,Fields);
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  case fDriverType of
+    mkMySQL:  MYSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params, GetDataBaseName);
+    mkOracle: Oracle_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+    mkMSSQL:  MSSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+  else
+    inherited;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited;
+  case fDriverType of
+    mkOracle:    Oracle_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    mkMSSQL:     MSSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, fMSSQLSchemaEnabled);
+    mkMySQL:     MYSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, GetDataBaseName,GetMySQLVersion);
+    mkInterBase: IB_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    mkSQLite:    SQLite_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    mkPostgreSQL:Postgres_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+  else
+    Native_DoGetForeignKeys(ForeignKeys);
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  case fDriverType of
+    mkOracle:           Result := Oracle_CreateMacroProcessor;
+    mkMSSQL,mkMSAccess: Result := MSSQL_CreateMacroProcessor;
+    mkInterBase:        Result := IB_CreateMacroProcessor;
+  else
+    Result := inherited CreateMacroProcessor;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+// IDAConnection
+
+function TDAEAnyDACConnection.GetSPSelectSyntax(AHasArguments: Boolean): string;
+begin
+  case fDriverType of
+    mkOracle:    Result := Oracle_GetSPSelectSyntax(AHasArguments);
+    mkMSSQL:     Result := MSSQL_GetSPSelectSyntax(AHasArguments);
+    mkInterBase: Result := IB_GetSPSelectSyntax(AHasArguments);
+    mkPostgreSQL:Result := Postgres_GetSPSelectSyntax(AHasArguments);
+  else
+    Result := inherited GetSPSelectSyntax(AHasArguments);
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.Native_GetQuoteChars: TDAQuoteCharArray;
+var
+  oConnMeta: IADPhysConnectionMetadata;
+begin
+  GetAnyDACPhysConnection.CreateMetadata(oConnMeta);
+  result[0] := oConnMeta.NameQuotaChar1;
+  result[1] := oConnMeta.NameQuotaChar2;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetQuoteChars: TDAQuoteCharArray;
+begin
+  case fDriverType of
+    mkMSSQL:  Result := MSSQL_GetQuoteChars;
+    mkOracle: Result := Oracle_GetQuoteChars;
+  else
+    Result := Native_GetQuoteChars;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.IdentifierNeedsQuoting(const AIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(AIdentifier);
+  if not Result then
+    case fDriverType of
+      mkORACLE:    Result := Oracle_IdentifierNeedsQuoting(AIdentifier);
+      mkMSSQL:     Result := MSSQL_IdentifierNeedsQuoting(AIdentifier);
+      mkMySQL:     Result := MYSQL_IdentifierNeedsQuoting(AIdentifier);
+      mkInterBase: Result := IB_IdentifierNeedsQuoting(AIdentifier, GetSQLDialect);
+      mkDB2:       Result := DB2_IdentifierNeedsQuoting(AIdentifier);
+      mkASA,mkADS: Result := Sybase_IdentifierNeedsQuoting(AIdentifier);
+      mkSQLite:    Result := SQLite_IdentifierNeedsQuoting(AIdentifier);
+      mkPostgreSQL:Result := Postgres_IdentifierNeedsQuoting(AIdentifier);
+    else
+    end;
+end;
+
+{------------------------------------------------------------------------------}
+// IDAADOConnection
+
+function TDAEAnyDACConnection.GetCommandTimeout: Integer;
+begin
+  Result := Integer(FADConnection.ResourceOptions.CmdExecTimeout);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.SetCommandTimeout(const Value: Integer);
+begin
+  FADConnection.ResourceOptions.CmdExecTimeout := Value;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetProviderName: string;
+begin
+  Result := FADConnection.ResultConnectionDef.DriverID;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetProviderType: TDAOleDBProviderType;
+var
+  s: String;
+begin
+  s := GetProviderName;
+  if SameText(s, S_AD_MSSQLId) then
+    Result := oledb_MSSQL
+  else if SameText(s, S_AD_MSAccId) then
+    Result := oledb_Jet
+  else if SameText(s, S_AD_OraId) then
+    Result := oledb_Oracle
+  else if SameText(s, S_AD_ODBCId) then
+    Result := oledb_ODBC
+  else if SameText(s, S_AD_PGId) then
+    Result := oledb_Postgresql
+  else
+    Result := oledb_Unknown;
+  // oledb_MSSQL2005
+  // oleDb_VisualFoxPro
+  // oledb_MSSQL2008
+end;
+
+{------------------------------------------------------------------------------}
+// IDAIBTransactionAccess
+
+function TDAEAnyDACConnection.GetTransaction: TObject;
+begin
+  Result := FADConnection.Transaction;
+end;
+
+{------------------------------------------------------------------------------}
+// IDAIBConnectionProperties
+
+function TDAEAnyDACConnection.GetSQLDialect: integer;
+begin
+  Result := StrToIntDef(FADConnection.Params.Values[S_AD_ConnParam_IB_SQLDialect],3);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.SetSQLDialect(Value: integer);
+begin
+  FADConnection.Params.Values[S_AD_ConnParam_IB_SQLDialect] := IntToStr(Value);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetCharset: string;
+begin
+  Result := FADConnection.Params.Values[S_AD_ConnParam_Common_CharacterSet];
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.SetCharset(const Value: string);
+begin
+  FADConnection.Params.Values[S_AD_ConnParam_Common_CharacterSet] := Value;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetRole: string;
+begin
+  Result := FADConnection.Params.Values[S_AD_ConnParam_IB_RoleName];
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.SetRole(const Value: string);
+begin
+  FADConnection.Params.Values[S_AD_ConnParam_IB_RoleName] := Value;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.Commit;
+begin
+  Self.DoCommitTransaction;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.Rollback;
+begin
+  Self.DoRollbackTransaction;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.CommitRetaining;
+begin
+  FADConnection.CommitRetaining;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.RollbackRetaining;
+begin
+  FADConnection.RollbackRetaining;
+end;
+
+{------------------------------------------------------------------------------}
+// IDAConnectionModelling
+
+function TDAEAnyDACConnection.FieldToDeclaration(aField: TDAField): string;
+begin
+  Result := '';
+  case fDriverType of
+  mkMSSQL:
+    case aField.DataType of
+    datString:       result := Format('varchar(%d)', [aField.Size]);
+    datDateTime:     result := 'datetime';
+    datFloat:        result := 'float';
+    datCurrency:     result := 'money';
+    datAutoInc:      result := 'int IDENTITY(1,1)';
+    datInteger:      result := 'int';
+    datLargeInt:     result := 'bigint';
+    datBoolean:      result := 'bit';
+    datMemo:         result := 'text';
+    datBlob:         result := 'image';
+    datWideString:   result := Format('nvarchar(%d)', [aField.Size]);
+    datWideMemo:     result := 'ntext';
+    datLargeAutoInc: result := 'bigint IDENTITY(1,1)';
+    datByte:         result := 'smallint';
+    datShortInt:     result := 'smallint';
+    datWord:         result := 'int';
+    datSmallInt:     result := 'smallint';
+    datCardinal:     result := 'bigint';
+    datLargeUInt:    result := 'bigint';
+    datGuid:         result := 'uniqueidentifier';
+    datXml:          result := 'ntext';
+    datDecimal:      result := 'decimal';
+    datSingleFloat:  result := 'real';
+    end;
+
+  mkOracle:
+    case aField.DataType of
+    datString:       result := Format('varchar2(%d)', [aField.Size]);
+    datDateTime:     result := 'date';
+    datFloat:        result := 'float';
+    datCurrency:     result := 'number(19,4)';
+    datAutoInc:      result := 'number(10,0)';
+    datInteger:      result := 'number(10,0)';
+    datLargeInt:     result := 'number(19,0)';
+    datBoolean:      result := 'number(1)';
+    datMemo,
+    datBlob:
+      case aField.BlobType of
+      dabtBlob:      result := 'long raw';
+      dabtMemo:      result := 'long';
+      dabtOraBlob:   result := 'blob';
+      dabtOraClob:   result := 'clob';
+      else           if aField.DataType = datMemo then result := 'long' else result := 'long raw';
+      end;
+    datWideString:   result := Format('nvarchar2(%d)', [aField.Size]);
+    datWideMemo:     result := 'nclob';
+    datLargeAutoInc: result := 'number(19,0)';
+    datByte:         result := 'number(3,0)';
+    datShortInt:     result := 'number(3,0)';
+    datWord:         result := 'number(5,0)';
+    datSmallInt:     result := 'number(5,0)';
+    datCardinal:     result := 'number(10,0)';
+    datLargeUInt:    result := 'number(19,0)';
+    datGuid:         result := 'varchar2(38)';
+    datXml:          result := 'XMLType';
+    datDecimal:      result := 'number';
+    datSingleFloat:  result := 'float';
+    end;
+
+  mkMySQL:
+    case aField.DataType of
+    datString:       result := Format('varchar(%d)', [aField.Size]);
+    datDateTime:     result := 'datetime';
+    datFloat:        result := 'double';
+    datCurrency:     result := 'decimal(19,4)';
+    datAutoInc:      result := 'int auto_increment';
+    datInteger:      result := 'int';
+    datLargeInt:     result := 'bigint';
+    datBoolean:      result := 'bool';
+    datMemo:         result := 'longtext';
+    datBlob:         result := 'longblob';
+    datWideString:   result := Format('varchar(%d) character set utf8', [aField.Size]);
+    datWideMemo:     result := 'longtext character set utf8';
+    datLargeAutoInc: result := 'bigint auto_increment';
+    datByte:         result := 'tinyint unsigned';
+    datShortInt:     result := 'tinyint';
+    datWord:         result := 'smallint unsigned';
+    datSmallInt:     result := 'smallint';
+    datCardinal:     result := 'int unsigned';
+    datLargeUInt:    result := 'bigint unsigned';
+    datGuid:         result := 'varchar(38)';
+    datXml:          result := 'longtext';
+    datDecimal:      result := 'decimal';
+    datSingleFloat:  result := 'float';
+    end;
+
+  mkMSAccess:
+    case aField.DataType of
+    datString:       result := Format('varchar(%d)', [aField.Size]);
+    datDateTime:     result := 'datetime';
+    datFloat:        result := 'float';
+    datCurrency:     result := 'currency';
+    datAutoInc:      result := 'IDENTITY(1,1)';
+    datInteger:      result := 'integer';
+    datLargeInt:     result := 'decimal(19,0)';
+    datBoolean:      result := 'boolean';
+    datMemo:         result := 'memo';
+    datBlob:         result := 'image';
+    datWideString:   result := Format('nchar(%d)', [aField.Size]);
+    datWideMemo:     result := 'ntext';
+    datLargeAutoInc: result := 'IDENTITY(1,1)';
+    datByte:         result := 'byte';
+    datShortInt:     result := 'tinyint';
+    datWord:         result := 'smallint';
+    datSmallInt:     result := 'smallint';
+    datCardinal:     result := 'integer';
+    datLargeUInt:    result := 'decimal(19,0)';
+    datGuid:         result := 'varchar(38)';
+    datXml:          result := 'ntext';
+    datDecimal:      result := 'decimal';
+    datSingleFloat:  result := 'real';
+    end;
+
+  mkDB2:
+    case aField.DataType of
+    datString:       result := Format('varchar(%d)', [aField.Size]);
+    datDateTime:     result := 'timestamp';
+    datFloat:        result := 'real';
+    datCurrency:     result := 'decimal(19,4)';
+    datAutoInc:      result := 'integer not null generated always as identity (start with 1, increment by 1, no cache)';
+    datInteger:      result := 'integer';
+    datLargeInt:     result := 'bigint'; // >= 9.1
+    datBoolean:      result := 'smallint';
+    datMemo,
+    datBlob:
+      case aField.BlobType of
+      dabtBlob:      result := 'long varchar for bit data';
+      dabtMemo:      result := 'long varchar ';
+      dabtOraBlob:   result := 'blob';
+      dabtOraClob:   result := 'clob';
+      else           if aField.DataType = datMemo then result := 'long varchar' else result := 'long varchar for bit data';
+      end;
+    datWideString:   result := Format('vargraphic(%d)', [aField.Size]);
+    datWideMemo:     result := 'clob';
+    datLargeAutoInc: result := 'bigint not null generated always as identity (start with 1, increment by 1, no cache)'; // >= 9.1
+    datByte:         result := 'smallint';
+    datShortInt:     result := 'smallint';
+    datWord:         result := 'smallint';
+    datSmallInt:     result := 'smallint';
+    datCardinal:     result := 'integer';
+    datLargeUInt:    result := 'bigint'; // >= 9.1
+    datGuid:         result := 'varchar(38)';
+    datXml:          result := 'clob';
+    datDecimal:      result := 'number';
+    datSingleFloat:  result := 'real';
+    end;
+
+  mkASA:
+    case aField.DataType of
+    datString:       result := Format('varchar(%d)', [aField.Size]);
+    datDateTime:     result := 'timestamp';
+    datFloat:        result := 'double';
+    datCurrency:     result := 'money';
+    datAutoInc:      result := 'integer identity(1,1)';
+    datInteger:      result := 'integer';
+    datLargeInt:     result := 'bigint';
+    datBoolean:      result := 'bit';
+    datMemo:         result := 'text';
+    datBlob:         result := 'image';
+    datWideString:   result := Format('nvarchar(%d)', [aField.Size]);
+    datWideMemo:     result := 'ntext';
+    datLargeAutoInc: result := 'bigint identity(1,1)';
+    datByte:         result := 'unsigned tinyint';
+    datShortInt:     result := 'tinyint';
+    datWord:         result := 'unsigned smallint';
+    datSmallInt:     result := 'smallint';
+    datCardinal:     result := 'unsigned integer';
+    datLargeUInt:    result := 'unsigned bigint';
+    datGuid:         result := 'uniqueidentifierstr';
+    datXml:          result := 'xml';
+    datDecimal:      result := 'decimal';
+    datSingleFloat:  result := 'real';
+    end;
+
+  mkInterbase:
+    case aField.DataType of
+    datString:       result := Format('varchar(%d)', [aField.Size]);
+    datDateTime:     result := 'timestamp';
+    datFloat:        result := 'double precision';
+    datCurrency:     result := 'decimal(18,4)';
+    datAutoInc:      result := 'integer';
+    datInteger:      result := 'integer';
+    datLargeInt:     result := 'decimal(18,0)';
+    datBoolean:      result := 'integer check (value in (0, 1))';
+    datMemo,
+    datBlob:
+      case aField.BlobType of
+      dabtBlob:      result := 'blob(2000,0)';
+      dabtMemo:      result := 'blob(2000,1)';
+      dabtOraBlob:   result := 'blob(2000,0)';
+      dabtOraClob:   result := 'blob(2000,1)';
+      else           if aField.DataType = datMemo then result := 'blob(2000,1)' else result := 'blob(2000,0)';
+      end;
+    datWideString:   result := Format('varchar(%d) character set unicode_fss', [aField.Size]);
+    datWideMemo:     result := 'blob sub_type 1 segment size 2000 character set unicode_fss';
+    datLargeAutoInc: result := 'decimal(18,0)';
+    datByte:         result := 'smallint';
+    datShortInt:     result := 'smallint';
+    datWord:         result := 'smallint';
+    datSmallInt:     result := 'smallint';
+    datCardinal:     result := 'decimal(10,0)';
+    datLargeUInt:    result := 'decimal(18,0)';
+    datGuid:         result := 'varchar(38)';
+    datXml:          result := 'blob(2000,1)';
+    datDecimal:      result := 'decimal(18,6)';
+    datSingleFloat:  result := 'float';
+    end;
+  end;
+
+  if Result = '' then
+    raise Exception.CreateFmt('DataAbstract [%d] data type of field [%s] for DBMS [%s] is not supported',
+      [Integer(aField.DataType), aField.Name, C_AD_PhysRDBMSKinds[fDriverType]]);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.BuildCreateTableSQL(aDataSet: TDADataSet;
+  const aOverrideName: string): string;
+var
+  lName: string;
+begin
+  lName := aOverrideName;
+  if lName = '' then
+    lName := aDataSet.Name;
+  result := uDAHelpers.BuildCreateStatementForTable(aDataSet, lName, self);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.CreateTable(aDataSet: TDADataSet; const aOverrideName: string);
+var
+  sSQL: string;
+begin
+  sSQL := BuildCreateTableSQL(aDataSet, aOverrideName);
+  with NewCommand(sSQL, stSQL) do
+    Execute();
+end;
+
+{------------------------------------------------------------------------------}
+// IDACanQueryDatabaseNames
+
+function TDAEAnyDACConnection.GetDataBaseName: string;
+begin
+  Result := FDataBaseName;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetDatabaseNames: IROStrings;
+begin
+  case fDriverType of
+    mkMSSQL:      Result := MSSQL_GetDatabaseNames(Self);
+    mkMySQL:      Result := MYSQL_GetDatabaseNames(Self);
+    mkPostgreSQL: Result := Postgres_GetDatabaseNames(Self);
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+// IDAFileBasedDatabase
+
+function TDAEAnyDACConnection.GetFileExtensions: IROStrings;
+begin
+  case fDriverType of
+    mkInterBase: Result := IB_GetFileExtensions;
+    mkMSAccess:  Result := MSACCESS_GetFileExtensions;
+    mkSQLite:    Result := SQLite_GetFileExtensions;
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+// IDAUseGenerators
+
+function TDAEAnyDACConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  Result := -1;
+  case fDriverType of
+    mkInterBase: Result := IB_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+    mkOracle:    Result := Oracle_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+    mkPostgreSQL:Result := Postgres_GetNextAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACConnection.GetNextAutoinc(const GeneratorName: string): integer;
+begin
+  Result := GetNextAutoinc2(GeneratorName);
+end;
+
+{------------------------------------------------------------------------------}
+// IDACanQueryGeneratorsNames
+
+function TDAEAnyDACConnection.GetGeneratorNames: IROStrings;
+begin
+  case fDriverType of
+    mkInterBase: Result := IB_GetGeneratorNames(GetDatasetClass.Create(Self));
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.SetupOptions(AOptions: IADStanOptions;
+  AFetchMeta: Boolean);
+begin
+  with AOptions do begin
+    if not fBiDirectionalDataSets then
+      FetchOptions.Unidirectional := True;
+    if not AFetchMeta then
+      FetchOptions.Items := FetchOptions.Items - [fiMeta];
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACConnection.SetupDataset(ADataSet: TADRdbmsDataSet;
+  AFetchMeta: Boolean);
+begin
+  TADQuery(ADataSet).Connection := FADConnection;
+  SetupOptions(IADStanOptions(TADQuery(ADataSet).Command), AFetchMeta);
+end;
+
+{------------------------------------------------------------------------------}
+{ TDAEAnyDACQuery                                                              }
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TADQuery.Create(nil);
+  TDAEAnyDACConnection(aConnection).SetupDataset(TADQuery(result), False);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQuery.DoPrepare(AValue: boolean);
+var
+  i: integer;
+  oPar: TADParam;
+begin
+  if AValue and not TADQuery(Dataset).Prepared and (TADQuery(Dataset).ParamCount <> 0) then
+    for I := 0 to GetParams.Count - 1 do begin
+      oPar := TADQuery(Dataset).ParamByName(GetParams[i].Name);
+      oPar.DataType := DATypeToVCLType(GetParams[i].DataType);
+      if oPar.DataType = ftAutoInc then
+        oPar.DataType := ftInteger;
+    end;
+  TADQuery(Dataset).Prepared := AValue;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQuery.ClearParams;
+begin
+  inherited;
+  TADQuery(Dataset).Params.Clear;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQuery.DoExecute: integer;
+begin
+  with TADQuery(Dataset) do begin
+    // 1) SELECT command on MSSQL, etc may be without result set, for example:
+    //    SELECT :CUSTOMERS_CNT = count(*) from customers
+    // 2) On Oracle skExecute is handled specially (PL/SQL) and commands as
+    //    above are not possible
+    if PointedConnection.RDBMSKind <> mkOracle then
+      Command.CommandKind := skExecute;
+    ExecSQL;
+    Result := RowsAffected;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQuery.DoGetSQL: string;
+begin
+  Result := TADQuery(Dataset).SQL.Text;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQuery.DoSetSQL(const AValue: string);
+begin
+  with TADQuery(Dataset).SQL do begin
+    BeginUpdate;
+    try
+      Clear;
+      Add(AValue);
+    finally
+      EndUpdate;
+    end;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetADParamValuesFromDA(AParams, TADQuery(Dataset).Params, True);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetDAParamValuesFromAD(GetParams, TADQuery(Dataset).Params);
+end;
+
+{------------------------------------------------------------------------------}
+{ TDAEAnyDACStoredProcedure                                                    }
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedure.CreateDataset(AConnection: TDAEConnection): TDataset;
+begin
+  Result := TADStoredProc.Create(nil);
+  TDAEAnyDACConnection(aConnection).SetupDataset(TADStoredProc(Result), True);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedure.GetStoredProcedureName: string;
+begin
+  Result := TADStoredProc(DataSet).StoredProcName;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACStoredProcedure.SetStoredProcedureName(const Name: string);
+begin
+  TADStoredProc(DataSet).StoredProcName := Name;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedure.DoExecute: integer;
+begin
+  TADStoredProc(Dataset).ExecProc;
+  result := TADStoredProc(Dataset).RowsAffected;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedure.Execute: integer;
+var
+  oADParams: TADParams;
+  oDAParams: TDAParamCollection;
+begin
+  oADParams := TADStoredProc(Dataset).Params;
+  oDAParams := GetParams;
+  if oADParams.Count <> oDAParams.Count then
+    TADStoredProc(Dataset).Prepare;
+  SetADParamValuesFromDA(oDAParams, oADParams, False);
+  Result := DoExecute;
+  // in case of SP the reference to params may be invalid after execution
+  oADParams := TADStoredProc(Dataset).Params;
+  GetDAParamValuesFromAD(oDAParams, oADParams);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACStoredProcedure.RefreshParams;
+var
+  oDAParams: TDAParamCollection;
+  oDAParam: TDAParam;
+  i: Integer;
+begin
+  TADStoredProc(Dataset).Prepare;
+  oDAParams := GetParams;
+  oDAParams.Clear;
+  with TADStoredProc(Dataset) do
+    for i := 0 to Params.Count - 1 do begin
+      oDAParam := oDAParams.Add;
+      oDAParam.Name := Params[i].Name;
+      oDAParam.DataType := VCLTypeToDAType(Params[i].DataType);
+      oDAParam.ParamType := TDAParamType(Params[i].ParamType);
+      oDAParam.Size := Params[i].Size;
+    end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetADParamValuesFromDA(AParams, TADStoredProc(Dataset).Params, False);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetDAParamValuesFromAD(AParams, TADStoredProc(Dataset).Params);
+end;
+
+{------------------------------------------------------------------------------}
+{ TDAEAnyDACNativeField                                                        }
+{------------------------------------------------------------------------------}
+constructor TDAEAnyDACNativeField.Create(ACol: TADDatSColumn; const ACmd: IADPhysCommand; AParent: TDAEAnyDACNativeDatabaseAccess);
+begin
+  inherited Create;
+  FCol := ACol;
+  FCmd := ACmd;
+  fParent:= AParent;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.GetDataType: TFieldType;
+var
+  iDestSize: Longword;
+  iDestPrec,iDescScale: Integer;
+begin
+  FCmd.Options.FormatOptions.ColumnDef2FieldDef(FCol.DataType, FCol.Size, FCol.Precision, FCol.Scale,
+    FCol.Attributes, Result, iDestSize, iDestPrec, iDescScale);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.GetDecimalPrecision: Integer;
+begin
+  Result := FCol.Precision;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.GetDecimalScale: Integer;
+begin
+  Result := FCol.Scale;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.GetFieldIndex: integer;
+begin
+  Result := FCol.Index;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.GetFieldName: string;
+begin
+  Result := FCol.Name;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.GetNativeObject: TObject;
+begin
+  Result := Self;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.GetSize: integer;
+begin
+  Result := FCol.Size;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.GetValue: Variant;
+begin
+  Result := FParent.GetNativeFieldValue(FCol.Index);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.IsNull: Boolean;
+begin
+  Result := fParent.IsNull(FCol.Index);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeField.isTFieldCompatible: Boolean;
+begin
+  Result := False;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeField.SetDataType(Value: TFieldType);
+var
+  eDestType: TADDataType;
+  iDestScale: Integer;
+  iDestPrec: Integer;
+  iDestSize: LongWord;
+  iDestAttrs: TADDataAttributes;
+begin
+  FCmd.Options.FormatOptions.FieldDef2ColumnDef(Value, FCol.Size, FCol.Precision,FCol.Scale,
+    eDestType, iDestSize, iDestPrec, iDestScale, iDestAttrs);
+  FCol.DataType := eDestType;
+  FCol.Attributes := iDestAttrs;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeField.SetDecimalPrecision(Value: integer);
+begin
+  FCol.Precision := Value;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeField.SetDecimalScale(Value: integer);
+begin
+  FCol.Scale := Value;
+end;
+
+{------------------------------------------------------------------------------}
+{ TDAEAnyDACNativeDatabaseAccess                                               }
+{------------------------------------------------------------------------------}
+constructor TDAEAnyDACNativeDatabaseAccess.Create(ADAEConnection: TDAEAnyDACConnection);
+begin
+  inherited Create;
+  ADAEConnection.FADConnection.Connected:=True;
+  ADAEConnection.FADConnection.ConnectionIntf.CreateCommand(FCmd);
+  FTab := TADDatSTable.Create;
+end;
+
+{------------------------------------------------------------------------------}
+destructor TDAEAnyDACNativeDatabaseAccess.Destroy;
+begin
+  if GetActive then SetActive(False);
+  FCmd := nil;
+  FreeAndNil(FTab);
+  inherited Destroy;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess._AddRef: Integer;
+begin
+  Result := 1;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess._Release: Integer;
+begin
+  Result := 1;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.QueryInterface(const IID: TGUID; out Obj): HResult;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.CheckActive;
+begin
+  if not (nfActive in FFlags) then
+    raise Exception.Create('Dataset must be active');
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.CheckBidir;
+begin
+  if FCmd.Options.FetchOptions.Unidirectional then
+    raise Exception.Create('Dataset must be bidirectional');
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.ClearFieldDefs;
+begin
+  FTab.Reset;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetRecordCount: Integer;
+begin
+  Result := FRowsPurged + FTab.Rows.Count;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetBOF: Boolean;
+begin
+  Result := nfBOF in FFlags;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetEOF: Boolean;
+begin
+  Result := nfEOF in FFlags;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetActive: Boolean;
+begin
+  Result := nfActive in FFlags;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.SetActive(const aValue: Boolean);
+var
+  i: Integer;
+begin
+  if (nfActive in FFlags) <> aValue then
+    if aValue then begin
+      FCmd.Open;
+      FCmd.Define(FTab);
+      FCmd.Fetch(FTab, False);
+      FRowIndex := 0;
+      FRowsPurged := 0;
+      if FTab.Rows.Count = 0 then
+        Include(FFlags, nfEOF)
+      else
+        Exclude(FFlags, nfEOF);
+      Include(FFlags, nfBOF);
+      Include(FFlags, nfActive);
+      SetLength(FBuffs, FTab.Columns.Count);
+      for i := 0 to FTab.Columns.Count - 1 do
+        case FTab.Columns[i].DataType of
+        dtDateTimeStamp,
+        dtTime,
+        dtDate:
+          GetMem(FBuffs[i], SizeOf(TDateTime));
+        dtGUID:
+          GetMem(FBuffs[i], 39);
+        dtCurrency:
+          GetMem(FBuffs[i], SizeOf(Double));
+        dtBCD:
+          GetMem(FBuffs[i], SizeOf(Currency));
+        else
+          FBuffs[i] := nil;
+        end;
+    end
+    else begin
+      FCmd.AbortJob(True);
+      FCmd.CloseAll;
+      FTab.Clear;
+      FRowIndex := 0;
+      FRowsPurged := 0;
+      Exclude(FFlags, nfActive);
+      for i := 0 to FTab.Columns.Count - 1 do
+        if FBuffs[i] <> nil then
+          FreeMem(FBuffs[i]);
+      SetLength(FBuffs, 0);
+    end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.First;
+begin
+  CheckActive;
+  CheckBidir;
+  FRowIndex := 0;
+  if FTab.Rows.Count = 0 then
+    Include(FFlags, nfEOF);
+  Include(FFlags, nfBOF);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.Next;
+begin
+  CheckActive;
+  Exclude(FFlags, nfEOF);
+  if FRowIndex >= FTab.Rows.Count - 1 then begin
+    if FCmd.State = csOpen then begin
+      if FCmd.Options.FetchOptions.Unidirectional then begin
+        Inc(FRowsPurged, FTab.Rows.Count);
+        FTab.Clear;
+        FRowIndex := -1;
+      end;
+      FCmd.Fetch(FTab, False);
+      if FCmd.RowsAffected = 0 then
+        Include(FFlags, nfEOF);
+    end
+    else
+      Include(FFlags, nfEOF);
+  end;
+  if FRowIndex < FTab.Rows.Count - 1 then
+    Inc(FRowIndex);
+  if FRowIndex <= 0 then
+    Include(FFlags, nfBOF)
+  else
+    Exclude(FFlags, nfBOF);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.LocateRecord(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions; AChangePos: Boolean): Integer;
+var
+  oCols: TADDatSColumnSublist;
+  iPrevRowIndex: Integer;
+  ePrevFlags: TDAEAnyDACNativeDatabaseAccessFlags;
+  lSimple: Boolean;
+  lEQ: Boolean;
+  i: Integer;
+  V1, V2: Variant;
+begin
+  Result := -1;
+  oCols := TADDatSColumnSublist.Create;
+  iPrevRowIndex := FRowIndex;
+  ePrevFlags := FFlags;
+  try
+    oCols.Fill(FTab, KeyFields);
+    lSimple := (oCols.Count = 1) and not VarIsArray(KeyValues);     
+    First;
+    while not (nfEOF in FFlags) do begin
+      lEQ := False;
+      for i := 0 to oCols.Count - 1 do begin
+        V1 := FTab.Rows[FRowIndex].GetData(oCols[i]);
+        if lSimple then
+          V2 := KeyValues
+        else
+          V2 := KeyValues[i];
+        if VarIsNull(V1) and VarIsNull(V2) then
+          lEQ := True
+        else if VarIsNull(V1) xor VarIsNull(V2) then
+          lEQ := False
+        else if oCols[i].DataType in [dtAnsiString, dtWideString, dtMemo,
+                                      dtWideMemo, dtHMemo, dtWideHMemo] then
+          if loCaseInsensitive in Options then begin
+            if loPartialKey in Options then
+              lEQ := Pos(AnsiLowerCase(VarToStr(V2)), AnsiLowerCase(VarToStr(V1))) = 1
+            else
+              lEQ := AnsiCompareText(VarToStr(V2), VarToStr(V1)) = 0;
+          end
+          else if loPartialKey in Options then
+            lEQ := Pos(VarToStr(V2), VarToStr(V1)) = 1
+          else
+            lEQ := CompareStr(VarToStr(V2), VarToStr(V1)) = 0
+        else
+          try
+            lEQ := V1 = V2;
+          except
+            lEQ := False;
+          end;
+        if not lEQ then
+          Break;
+      end;
+      if lEQ then begin
+        Result := FRowIndex;
+        Break;
+      end;
+      Next;
+    end;
+  finally
+    oCols.Free;
+    if (Result = -1) or not AChangePos then begin
+      FRowIndex := iPrevRowIndex;
+      FFlags := ePrevFlags;
+    end;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.Locate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  Result := LocateRecord(KeyFields, KeyValues, Options, True) <> -1;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+var
+  iRowIndex, i: Integer;
+  oCols: TADDatSColumnSublist;
+begin
+  iRowIndex := LocateRecord(KeyFields, KeyValues, [], False);
+  if iRowIndex <> -1 then begin
+    oCols := TADDatSColumnSublist.Create;
+    try
+      if oCols.Count = 1 then
+        Result := FTab.Rows[iRowIndex].GetData(oCols[0])
+      else begin
+        Result := VarArrayCreate([0, oCols.Count - 1], varVariant);
+        for i := 0 to oCols.Count - 1 do
+          Result[i] := FTab.Rows[iRowIndex].GetData(oCols[i]);
+      end;
+    finally
+      oCols.Free;
+    end
+  end
+  else
+    Result := Null;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetFieldName(Index: Integer): string;
+begin
+  Result := FTab.Columns[Index].Name;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.DisableControls;
+begin
+  // nothing
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.EnableControls;
+begin
+  // nothing
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.ControlsDisabled: Boolean;
+begin
+  // nothing
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetIsEmpty: boolean;
+begin
+  Result := (FRowsPurged + FTab.Rows.Count) = 0;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.FreeBookmark(Bookmark: TBookmark);
+begin
+  // nothing
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetBookMark: pointer;
+begin
+  CheckActive;
+  CheckBidir;
+  Result := Pointer(FRowIndex);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.GotoBookmark(Bookmark: TBookmark);
+begin
+  CheckActive;
+  CheckBidir;
+  FRowIndex := Integer(Bookmark);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetState: TDatasetState;
+begin
+  if FCmd.State = csExecuting then
+    Result := dsOpening
+  else if nfActive in FFlags then
+    Result := dsBrowse
+  else
+    Result := dsInactive;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACNativeDatabaseAccess.Prepare(const AValue: Boolean);
+begin
+  if AValue then
+    FCmd.Prepare
+  else
+    FCmd.Unprepare;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetFields(Index: integer): IDANativeField;
+begin
+  Result := TDAEAnyDACNativeField.Create(FTab.Columns[Index], FCmd, Self) as IDANativeField;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.FieldCount: Integer;
+begin
+  Result := FTab.Columns.Count;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.FindField(const FieldName: string): IDANativeField;
+var
+  i: Integer;
+begin
+  i := FTab.Columns.IndexOfName(FieldName);
+  if i = -1 then
+    Result := nil
+  else
+    Result := GetFields(i);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.IsTDatasetCompatible: Boolean;
+begin
+  Result := False;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.IsNull(Index: integer): Boolean;
+var
+  Data: pointer;
+  DataSize: Cardinal;
+begin
+  Result := not FTab.Rows[FRowIndex].GetData(Index, rvDefault, Data, 0, DataSize, False);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetNativeFieldData(Index: Integer;
+  var Data: pointer; var DataSize: cardinal): Boolean;
+
+  procedure CvtGUID(ABuff: PChar; AGuid: PGUID);
+  begin
+    with AGuid^ do
+      StrLFmt(ABuff, 38,
+        '{%.8x-%.4x-%.4x-%.2x%.2x-%.2x%.2x%.2x%.2x%.2x%.2x}',
+        [D1, D2, D3, D4[0], D4[1], D4[2], D4[3], D4[4], D4[5], D4[6], D4[7]]);
+  end;
+
+  procedure ErrNotSupported(AType: TADDataType);
+  begin
+    raise Exception.CreateFmt('AnyDAC data type [%s] is not supported by DataAbstract',
+                              [C_AD_DataTypeNames[AType]]);
+  end;
+
+begin
+  CheckActive;
+  if (FRowIndex >= 0) and (FRowIndex < FTab.Rows.Count) then begin
+    Result := FTab.Rows[FRowIndex].GetData(Index, rvDefault, Data, 0, DataSize, False);
+    if Result then
+      case FTab.Columns[Index].DataType of
+      dtWideString,
+      dtWideMemo,
+      dtWideHMemo:
+        DataSize := DataSize * SizeOf(WideChar);
+      dtDateTimeStamp:
+        begin
+          PDateTime(FBuffs[Index])^ := ADSQLTimeStamp2DateTime(PADSQLTimeStamp(Data)^);
+          DataSize := SizeOf(TDateTime);
+          Data := FBuffs[Index];
+        end;
+      dtTime:
+        begin
+          PDateTime(FBuffs[Index])^ := ADTime2DateTime(PLongint(Data)^);
+          DataSize := SizeOf(TDateTime);
+          Data := FBuffs[Index];
+        end;
+      dtDate:
+        begin
+          PDateTime(FBuffs[Index])^ := ADDate2DateTime(PLongint(Data)^);
+          DataSize := SizeOf(TDateTime);
+          Data := FBuffs[Index];
+        end;
+      dtGUID:
+        begin
+          CvtGUID(PChar(FBuffs[Index]), PGuid(Data));
+          DataSize := 38;
+          Data := FBuffs[Index];
+        end;
+      dtCurrency:
+        begin
+          PDouble(FBuffs[Index])^ := PCurrency(Data)^;
+          DataSize := SizeOf(Double);
+          Data := FBuffs[Index];
+        end;
+      dtBCD:
+        begin
+          BCDToCurr(PBCD(Data)^, PCurrency(FBuffs[Index])^);
+          DataSize := SizeOf(Currency);
+          Data := FBuffs[Index];
+        end;
+      dtFmtBCD: begin
+        PBCD(FBuffs[Index])^ := PBCD(Data)^;
+        DataSize := SizeOf(TBCD);
+        Data := FBuffs[Index];
+      end;
+      dtRowSetRef,
+      dtCursorRef,
+      dtRowRef,
+      dtArrayRef,
+      dtParentRowRef,
+      dtObject:
+        ErrNotSupported(FTab.Columns[Index].DataType);
+      end;
+  end
+  else
+    Result := False;
+  if not Result then begin
+    DataSize := 0;
+    Data := nil;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.GetNativeFieldValue(Index: Integer): Variant;
+var
+  data: pointer;
+  DataSize: cardinal;
+  c: Currency;
+begin
+  CheckActive;
+  if (FRowIndex >= 0) and (FRowIndex < FTab.Rows.Count) then begin
+    case FTab.Columns[Index].DataType of
+      dtDateTimeStamp:
+        if FTab.Rows[FRowIndex].GetData(Index, rvDefault, Data, 0, DataSize, False) then
+          Result := VarFromDateTime(ADSQLTimeStamp2DateTime(PADSQLTimeStamp(Data)^))
+        else
+          Result := Null;
+      dtBCD:
+        if FTab.Rows[FRowIndex].GetData(Index, rvDefault, Data, 0, DataSize, False) then begin
+          BCDToCurr(PBCD(Data)^, c);
+          Result := c;
+        end
+        else begin
+          Result := Null;
+        end;
+      dtFmtBCD:
+        if FTab.Rows[FRowIndex].GetData(Index, rvDefault, Data, 0, DataSize, False) then
+          Result := DecimalToString(BCDToDecimal(PBCD(Data)^),DecimalSeparator)
+        else
+          Result := Null;
+      dtTime, dtDate:
+        if FTab.Rows[FRowIndex].GetData(Index, rvDefault, Data, 0, DataSize, False) then
+          Result := VarFromDateTime(ADTime2DateTime(PLongint(Data)^))
+        else
+          Result := Null;
+      dtCurrency:
+        if FTab.Rows[FRowIndex].GetData(Index, rvDefault, Data, 0, DataSize, False) then
+          Result := PCurrency(Data)^
+        else
+          Result := Null;
+      dtGUID:
+        if FTab.Rows[FRowIndex].GetData(Index, rvDefault, Data, 0, DataSize, False) then
+          Result := GUIDToString(PGuid(Data)^)
+        else
+          Result := Null;
+    else
+      Result := FTab.Rows[FRowIndex].GetData(Index);
+    end;
+  end
+  else
+    Result := Null;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACNativeDatabaseAccess.CanFreeNativeFieldData: Boolean;
+begin
+  Result := False;
+end;
+
+{------------------------------------------------------------------------------}
+{ TDAEAnyDACQueryNative                                                        }
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQueryNative.GetNativeObject: TDAEAnyDACNativeDatabaseAccess;
+begin
+  Result := TDAEAnyDACNativeDatabaseAccess(inherited NativeObject);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQueryNative.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  Result := nil;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQueryNative.CreateNativeDatabaseAccess: IDANativeDatabaseAccess;
+begin
+  Supports(NativeObject, IDANativeDatabaseAccess, Result);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQueryNative.CreateNativeObject(aConnection: TDAEConnection): TObject;
+begin
+  Result := TDAEAnyDACNativeDatabaseAccess.Create(TDAEAnyDACConnection(aConnection));
+  TDAEAnyDACConnection(aConnection).SetupOptions(TDAEAnyDACNativeDatabaseAccess(Result).FCmd.Options, False);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQueryNative.DoPrepare(AValue: boolean);
+var
+  i: integer;
+  oPar: TADParam;
+begin
+  if AValue and (NativeObject.FCmd.State <> csPrepared) and (NativeObject.FCmd.Params.Count <> 0) then
+    for I := 0 to GetParams.Count - 1 do begin
+      oPar := NativeObject.FCmd.Params.ParamByName(GetParams[i].Name);
+      oPar.DataType := DATypeToVCLType(GetParams[i].DataType);
+      if oPar.DataType = ftAutoInc then
+        oPar.DataType := ftInteger;
+    end;
+  if AValue then
+    NativeObject.FCmd.Prepare
+  else
+    NativeObject.FCmd.Unprepare;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQueryNative.ClearParams;
+begin
+  inherited;
+  NativeObject.FCmd.Params.Clear;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQueryNative.DoExecute: integer;
+var
+  oConnMeta: IADPhysConnectionMetadata;
+begin
+  with NativeObject.FCmd do begin
+    // 1) SELECT command on MSSQL, etc may be without result set, for example:
+    //    SELECT :CUSTOMERS_CNT = count(*) from customers
+    // 2) On Oracle skExecute is handled specially (PL/SQL) and commands as
+    //    above are not possible
+    Connection.CreateMetadata(oConnMeta);
+    if oConnMeta.Kind <> mkOracle then
+      CommandKind := skExecute;
+    Execute;
+    if RowsAffectedReal then
+      Result := RowsAffected
+    else
+      Result := 0;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACQueryNative.DoGetSQL: string;
+begin
+  Result := NativeObject.FCmd.CommandText;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQueryNative.DoSetSQL(const AValue: string);
+begin
+  NativeObject.FCmd.CommandText := AValue;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQueryNative.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetADParamValuesFromDA(AParams, NativeObject.FCmd.Params, True);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACQueryNative.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetDAParamValuesFromAD(GetParams, NativeObject.FCmd.Params);
+end;
+
+{------------------------------------------------------------------------------}
+{ TDAEAnyDACStoredProcedureNative                                              }
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedureNative.GetNativeObject: TDAEAnyDACNativeDatabaseAccess;
+begin
+  Result := TDAEAnyDACNativeDatabaseAccess(inherited NativeObject);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedureNative.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  Result := nil;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedureNative.CreateNativeDatabaseAccess: IDANativeDatabaseAccess;
+begin
+  Supports(NativeObject, IDANativeDatabaseAccess, Result);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedureNative.CreateNativeObject(aConnection: TDAEConnection): TObject;
+begin
+  Result := TDAEAnyDACNativeDatabaseAccess.Create(TDAEAnyDACConnection(aConnection));
+  TDAEAnyDACNativeDatabaseAccess(Result).FCmd.CommandKind := skStoredProc;
+  TDAEAnyDACConnection(aConnection).SetupOptions(TDAEAnyDACNativeDatabaseAccess(Result).FCmd.Options, False);
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedureNative.GetStoredProcedureName: string;
+begin
+  Result := NativeObject.FCmd.CommandText;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACStoredProcedureNative.SetStoredProcedureName(const Name: string);
+begin
+  NativeObject.FCmd.CommandText := Name;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedureNative.DoExecute: integer;
+begin
+  with NativeObject.FCmd do begin
+    Execute();
+    if RowsAffectedReal then
+      Result := RowsAffected
+    else
+      Result := 0;
+  end;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAEAnyDACStoredProcedureNative.Execute: integer;
+var
+  oADParams: TADParams;
+  oDAParams: TDAParamCollection;
+begin
+  oADParams := NativeObject.FCmd.Params;
+  oDAParams := GetParams;
+  if oADParams.Count <> oDAParams.Count then
+    NativeObject.FCmd.Prepare;
+  SetADParamValuesFromDA(oDAParams, oADParams, False);
+  Result := DoExecute;
+  // in case of SP the reference to params may be invalid after execution
+  oADParams := NativeObject.FCmd.Params;
+  GetDAParamValuesFromAD(oDAParams, oADParams);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACStoredProcedureNative.RefreshParams;
+var
+  oDAParams: TDAParamCollection;
+  oDAParam: TDAParam;
+  i: Integer;
+begin
+  NativeObject.FCmd.Prepare;
+  oDAParams := GetParams;
+  oDAParams.Clear;
+  with NativeObject.FCmd do
+    for i := 0 to Params.Count - 1 do begin
+      oDAParam := oDAParams.Add;
+      oDAParam.Name := Params[i].Name;
+      oDAParam.DataType := VCLTypeToDAType(Params[i].DataType);
+      oDAParam.ParamType := TDAParamType(Params[i].ParamType);
+      oDAParam.Size := Params[i].Size;
+    end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACStoredProcedureNative.GetParamValues(AParams: TDAParamCollection);
+begin
+  SetADParamValuesFromDA(AParams, NativeObject.FCmd.Params, False);
+end;
+
+{------------------------------------------------------------------------------}
+procedure TDAEAnyDACStoredProcedureNative.SetParamValues(AParams: TDAParamCollection);
+begin
+  GetDAParamValuesFromAD(AParams, NativeObject.FCmd.Params);
+end;
+
+{------------------------------------------------------------------------------}
+{ Registration and factory code                                                }
+{------------------------------------------------------------------------------}
+var
+  _driver: TDAEDriver = nil;
+
+{------------------------------------------------------------------------------}
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAAnyDACDriver]);
+end;
+
+{------------------------------------------------------------------------------}
+function GetDriverObject: IDADriver;
+begin
+{$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+{$ENDIF}
+  if _driver = nil then
+    _driver := TDAEAnyDACDriver.Create(nil);
+  result := _driver;
+end;
+
+{------------------------------------------------------------------------------}
+exports
+  GetDriverObject name func_GetDriverObject;
+
+initialization
+{$IFDEF FPC}
+  {$I DataAbstract_AnyDACDriver_Glyphs.lrs}
+{$ENDIF}
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNil(_driver);
+
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDABDEDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDABDEDriver.pas
new file mode 100644
index 0000000..2a6ac6f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDABDEDriver.pas	
@@ -0,0 +1,1204 @@
+unit uDABDEDriver;
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_BDEDriver_Glyphs.res}
+{$DEFINE MAX_SUPPORT}
+interface
+
+uses DB, uDAEngine, uDAInterfaces, uROClasses, uDAInterfacesEx, uDAUtils, DBTables,
+     uDAIBInterfaces, uDAADOInterfaces, uDAOracleInterfaces, uDADB2Interfaces, uDASybaseInterfaces;
+
+type
+  TDABDEProviderType = (
+    bdeSTANDARD,
+    bdeDB2,
+    bdeINFORMIX,
+    bdeINTRBASE,
+    bdeMSACCESS,
+    bdeMSSQL,
+    bdeORACLE,
+    bdeSYBASE,
+    bdeODBC);
+
+  { TDABDEDriver }
+  TDABDEDriver = class(TDADriverReference)
+  end;
+
+  { TDAEADODriver }
+  TDAEBDEDriver = class(TDAEDriver, IDADriver40)
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+    procedure GetAuxDrivers(out List: IROStrings); override;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
+    function GetAvailableDriverOptionsEx(AuxDriver: string): TDAAvailableDriverOptions; override;
+    function GetProviderDefaultCustomParameters(Provider: string): string; safecall;
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; safecall;
+  public
+  end;
+
+  { TDAEADOConnection }
+  TDAEBDEConnection = class(TDAEConnection, IDACanQueryDatabaseNames, IDAFileBasedDatabase,
+                            IDADirectoryBasedDatabase, IDAUseGenerators, IDAUseGenerators2, {IDAADOConnection,}
+                            IDAInterbaseConnection, IDAOracleConnection, IDACanQueryGeneratorsNames,
+                            IDADB2Connection, IDASybaseConnection)
+  private
+    fProviderName: string;
+    fProviderType: TDABDEProviderType;
+    fDatabase: TDataBase;
+    FSession: TSession;
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+    function CreateCustomConnection: TCustomConnection; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    function GetQuoteChars: TDAQuoteCharArray; override;
+    function GetSPSelectSyntax(HasArguments: Boolean): string; override; safecall;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; safecall;
+    function QuoteFieldName(const aTableName, aFieldName: string): string; override; safecall;
+    function GetUserID: string; override; safecall;
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    // IDACanQueryDatabaseNames
+    function GetDatabaseNames: IROStrings;
+    // IDAFileBasedDatabase
+    function GetFileExtensions: IROStrings;
+    // IDAUseGenerators
+    function GetNextAutoinc(const GeneratorName: string): integer; safecall;
+    // IDAUseGenerators2
+    function GetNextAutoinc2(const GeneratorName: string): variant; safecall;
+    // IDACanQueryGeneratorsNames
+    function GetGeneratorNames: IROStrings;
+  public
+    destructor Destroy; override;
+    property DataBase: TDatabase read fDatabase;
+    property Session: TSession read FSession;
+  end;
+
+  { TDAEADOQuery }
+  TDAEBDEQuery = class(TDAEDataset, IDAMustSetParams)
+  protected
+    procedure ClearParams; override;  
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure RefreshParams; override; safecall;
+    procedure DoPrepare(Value: boolean); override; safecall;
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  { TDAEADOStoredProcedure }
+  TDAEBDEStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoPrepare(Value: boolean); override; safecall;
+  end;
+
+procedure Register;
+function GetDriverObject: IDADriver; stdcall;
+
+function ProviderToProviderType(AProvider: string): TDABDEProviderType;
+
+implementation
+
+uses
+  Windows, SysUtils, Variants, Classes, uDARes,
+  uROBinaryHelpers, uDADriverManager, uDAMacroProcessors, uDASQL92Interfaces;
+
+var
+  _driver                     : TDAEDriver = nil;
+
+const
+  BDE_LANGDRIVER              =
+    '(Access General,Access Greece,Access Japanese,Access Nord/Danish,Access Swed/Finnish,''ascii'' ANSI,' +
+    'Borland ANSI Arabic,Borland DAN Latin-1,Borland DEU Latin-1,Borland ENG Latin-1,Borland ENU Latin-1,Borland ESP Latin-1,' +
+    'Borland FIN Latin-1,Borland FRA Latin-1,Borland FRC Latin-1,Borland ISL Latin-1,Borland ITA Latin-1,Borland NLD Latin-1,' +
+    'Borland NOR Latin-1,Borland PTG Latin-1,Borland SVE Latin-1,DB2 SQL ANSI DEU,dBASE BUL 868,dBASE CHS cp936,dBASE CHT cp950,' +
+    'dBASE CSY cp852,dBASE CSY cp867,dBASE DAN cp865,dBASE DEU cp437,dBASE DEU cp850,dBASE ELL GR437,dBASE ENG cp437,dBASE ENG cp850,' +
+    'dBASE ENU cp437,dBASE ENU cp850,dBASE ESP cp437,dBASE ESP cp850,dBASE FIN cp437,dBASE FRA cp437,dBASE FRA cp850,dBASE FRC cp850,' +
+    'dBASE FRC cp863,dBASE HUN cp852,dBASE ITA cp437,dBASE ITA cp850,dBASE JPN cp932,dBASE JPN Dic932,dBASE KOR cp949,dBASE NLD cp437,' +
+    'dBASE NLD cp850,dBASE NOR cp865,dBASE PLK cp852,dBASE PTB cp850,dBASE PTG cp860,dBASE RUS cp866,dBASE SLO cp852,dBASE SVE cp437,' +
+    'dBASE SVE cp850,dBASE THA cp874,dBASE TRK cp857,FoxPro Czech 1250,FoxPro Czech DOS895,FoxPro German 1252,FoxPro German 437,FoxPro Nordic 1252,' +
+    'FoxPro Nordic 437,FoxPro Nordic 850,Hebrew dBASE,MSSQL ANSI Greek,Oracle SQL WE850,Paradox ANSI HEBREW,Paradox ''ascii'',Paradox BUL 868,' +
+    'Paradox China 936,Paradox Cyrr 866,Paradox Czech 852,Paradox Czech 867,Paradox ESP 437,Paradox Greek GR437,Paradox ''hebrew'',' +
+    'Paradox Hun 852 DC,Paradox ''intl'',Paradox ''intl'' 850,Paradox ISL 861,Paradox ''japan'',Paradox Korea 949,Paradox ''nordan'',' +
+    'Paradox ''nordan40'',Paradox Polish 852,Paradox Slovene 852,Paradox ''swedfin'',Paradox Taiwan 950,Paradox Thai 874,Paradox ''turk'',' +
+    'Pdox ANSI Bulgaria,Pdox ANSI Cyrillic,Pdox ANSI Czech,Pdox ANSI Greek,Pdox ANSI Hun. DC,Pdox ANSI Intl,Pdox ANSI Intl850,Pdox ANSI Nordan4,' +
+    'Pdox ANSI Polish,Pdox ANSI Slovene,Pdox ANSI Spanish,Pdox ANSI Swedfin,Pdox ANSI Swedfin,Pdox ANSI Turkish,Paradox ''ascii'' Japan,' +
+    'pdx ANSI Czech ''CH'',pdx ANSI ISO L_2 CZ,pdx Czech 852 ''CH'',pdx Czech 867 ''CH'',pdx ISO L_2 Czech,''Spanish'' ANSI,' +
+    'SQL Link ROMAN8,Sybase SQL Dic437,Sybase SQL Dic850,''WEurope'' ANSI)';
+
+function ProviderToProviderType2(AProvider: string): TDABDEProviderType;
+begin
+  if AnsiCompareText(AProvider, 'STANDARD') = 0 then Result := bdeSTANDARD else
+    if AnsiCompareText(AProvider, 'DB2') = 0 then Result := bdeDB2 else
+    if AnsiCompareText(AProvider, 'INFORMIX') = 0 then Result := bdeINFORMIX else
+    if AnsiCompareText(AProvider, 'INTRBASE') = 0 then Result := bdeINTRBASE else
+    if AnsiCompareText(AProvider, 'MSACCESS') = 0 then Result := bdeMSACCESS else
+    if AnsiCompareText(AProvider, 'MSSQL') = 0 then Result := bdeMSSQL else
+    if AnsiCompareText(AProvider, 'ORACLE') = 0 then Result := bdeORACLE else
+    if AnsiCompareText(AProvider, 'SYBASE') = 0 then Result := bdeSYBASE else
+    Result := bdeODBC;
+end;
+
+function ProviderToProviderType(AProvider: string): TDABDEProviderType;
+begin
+  if Session.IsAlias(AProvider) then
+    Result := ProviderToProviderType2(Session.GetAliasDriverName(AProvider))
+  else
+    Result := ProviderToProviderType2(AProvider);
+end;
+
+function GetDriverObject: IDADriver;
+begin
+  if (_driver = nil) then _driver := TDAEBDEDriver.Create(nil);
+  result := _driver;
+end;
+
+{ TDAEBDEDriver }
+
+procedure TDAEBDEDriver.GetAuxDrivers(out List: IROStrings);
+var
+  FList                       : TStringList;
+begin
+  inherited GetAuxDrivers(List);
+  FList := TStringList.Create;
+  try
+    try
+      Session.GetAliasNames(FList);
+      List.AddStrings(FList);
+    except
+    end;
+    try
+      Session.GetDriverNames(FList);
+      List.AddStrings(FList);
+    except
+    end;
+  finally
+    FList.Free;
+  end;
+  List.Sorted := True;
+  List.Sorted := False;
+end;
+
+procedure TDAEBDEDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited GetAuxParams(AuxDriver, List);
+  case ProviderToProviderType(AuxDriver) of
+    bdeSTANDARD: begin
+        List.Add('DEFAULT DRIVER=(PARADOX, DBASE, FOXPRO, ASCIIDRV)');
+        List.Add('ENABLE BCD=(TRUE, FALSE)');
+      end;
+    bdeDB2: begin
+        List.Add('BATCH COUNT=200');
+        List.Add('BLOB SIZE=32');
+        List.Add('BLOBS TO CACHE=64');
+        //List.Add('DB2 DSN'); { = 'DB2_SERVER'}
+        List.Add('ENABLE BCD=(TRUE, FALSE)');
+        List.Add('ENABLE SCHEMA CACHE=(TRUE, FALSE)');
+        List.Add('LANGDRIVER=' + BDE_LANGDRIVER);
+        List.Add('MAX ROWS=-1');
+        List.Add('OPEN MODE=(READ/WRITE,READ ONLY)');
+        List.Add('ROWSET SIZE=20');
+        List.Add('SCHEMA CACHE DIR=<dir>');
+        List.Add('SCHEMA CACHE SIZE=8');
+        List.Add('SCHEMA CACHE TIME=-1');
+        List.Add('SQLPASSTHRU MODE=(SHARED AUTOCOMMIT,SHARED NOAUTOCOMMIT,NOT SHARED)');
+        List.Add('SQLQRYMODE=(LOCAL,SERVER)');
+      end;
+    bdeINFORMIX: begin
+        List.Add('BATCH COUNT=200');
+        List.Add('BLOB SIZE=32');
+        List.Add('BLOBS TO CACHE=64');
+        List.Add('COLLCHAR=(0,1,2)');
+        List.Add('DATE MODE=0');
+        List.Add('DATE SEPARATOR=/');
+        List.Add('DBNLS=(0,1,2)');
+        List.Add('ENABLE BCD=(TRUE, FALSE)');
+        List.Add('ENABLE SCHEMA CACHE=(TRUE, FALSE)');
+        List.Add('LANGDRIVER=' + BDE_LANGDRIVER);
+        List.Add('LIST SYNONYMS=(NONE,ALL,PRIVATE)');
+        List.Add('LOCK MODE=5');
+        List.Add('MAX ROWS=-1');
+        List.Add('OPEN MODE=(READ/WRITE,READ ONLY)');
+        List.Add('SCHEMA CACHE DIR=<dir>');
+        List.Add('SCHEMA CACHE SIZE=8');
+        List.Add('SCHEMA CACHE TIME=-1');
+        List.Add('SQLPASSTHRU MODE=(SHARED AUTOCOMMIT,SHARED NOAUTOCOMMIT,NOT SHARED)');
+        List.Add('SQLQRYMODE=(LOCAL,SERVER)');
+      end;
+    bdeINTRBASE: begin
+        List.Add('BATCH COUNT=200');
+        List.Add('BLOB SIZE=32');
+        List.Add('BLOBS TO CACHE=64');
+        List.Add('COMMIT RETAIN=(FALSE)');
+        List.Add('ENABLE BCD=(TRUE, FALSE)');
+        List.Add('ENABLE SCHEMA CACHE=(TRUE, FALSE)');
+        List.Add('LANGDRIVER=' + BDE_LANGDRIVER);
+        List.Add('MAX ROWS=-1');
+        List.Add('OPEN MODE=(READ/WRITE,READ ONLY)');
+        List.Add('ROLE NAME=<rolename>');
+        List.Add('SCHEMA CACHE DIR=<dir>');
+        List.Add('SCHEMA CACHE SIZE=8');
+        List.Add('SCHEMA CACHE TIME=-1');
+        List.Add('SQLPASSTHRU MODE=(SHARED AUTOCOMMIT,SHARED NOAUTOCOMMIT,NOT SHARED)');
+        List.Add('SQLQRYMODE=(LOCAL,SERVER)');
+        List.Add('WAIT ON LOCKS=(FALSE)');
+      end;
+    bdeMSACCESS: begin
+        //List.Add('DATABASE NAME');  { DRIVE:/PATH/DATABASE.MDB}
+        List.Add('LANGDRIVER=' + BDE_LANGDRIVER);
+        List.Add('OPEN MODE=(READ/WRITE,READ ONLY)');
+        List.Add('SYSTEM DATABASE=(<file>.MDW)');
+      end;
+    bdeMSSQL: begin
+        List.Add('APPLICATION MODE');   { }
+        List.Add('BATCH COUNT=200');
+        List.Add('BLOB EDIT LOGGING=(TRUE, FALSE)');
+        List.Add('BLOB SIZE=32');
+        List.Add('BLOBS TO CACHE=64');
+        //List.Add('DATABASE NAME');  { }
+        List.Add('DATE MODE=0');
+        List.Add('ENABLE BCD=(TRUE, FALSE)');
+        List.Add('ENABLE SCHEMA CACHE=(TRUE, FALSE)');
+        //List.Add('HOST NAME');      { }
+        List.Add('LANGDRIVER=' + BDE_LANGDRIVER);
+        List.Add('MAX QUERY TIME=300');
+        List.Add('NATIONAL LANG NAME=');
+        List.Add('MAX ROWS=-1');
+        List.Add('OPEN MODE=(READ/WRITE,READ ONLY)');
+        List.Add('SCHEMA CACHE DIR=<dir>');
+        List.Add('SCHEMA CACHE SIZE=8');
+        List.Add('SCHEMA CACHE TIME=-1');
+        List.Add('SQLPASSTHRU MODE=(SHARED AUTOCOMMIT,SHARED NOAUTOCOMMIT,NOT SHARED)');
+        List.Add('SQLQRYMODE=(LOCAL,SERVER)');
+        List.Add('TDS PACKET SIZE=4096');
+      end;
+    bdeORACLE: begin
+        List.Add('BATCH COUNT=200');
+        List.Add('BLOB SIZE=32');
+        List.Add('BLOBS TO CACHE=64');
+        List.Add('ENABLE BCD=(TRUE, FALSE)');
+        List.Add('ENABLE INTEGERS=(TRUE, FALSE)');
+        List.Add('ENABLE SCHEMA CACHE=(TRUE, FALSE)');
+        List.Add('LANGDRIVER=' + BDE_LANGDRIVER);
+        List.Add('LIST SYNONYMS=(NONE,ALL,PRIVATE)');
+        List.Add('MAX ROWS=-1');
+        List.Add('OPEN MODE=(READ/WRITE,READ ONLY)');
+        List.Add('NET PROTOCOL=(TNS,TCP/IP,SPX/IPX,NETBIOS,NAMED PIPES,DECNET,3270,VINES,APPC,ASYNC)');
+        List.Add('OBJECT MODE=(TRUE, FALSE)');
+        List.Add('ROWSET SIZE=20');
+        List.Add('SCHEMA CACHE DIR=<dir>');
+        List.Add('SCHEMA CACHE SIZE=8');
+        List.Add('SCHEMA CACHE TIME=-1');
+        List.Add('SQLPASSTHRU MODE=(SHARED AUTOCOMMIT,SHARED NOAUTOCOMMIT,NOT SHARED)');
+        List.Add('SQLQRYMODE=(LOCAL,SERVER)');
+      end;
+    bdeSYBASE: begin
+        List.Add('APPLICATION MODE=');
+        List.Add('BATCH COUNT=200');
+        List.Add('BLOB EDIT LOGGING=(TRUE, FALSE)');
+        List.Add('BLOB SIZE=32');
+        List.Add('BLOBS TO CACHE=64');
+        List.Add('CS CURSOR ROWS=1');
+        //List.Add('DATABASE NAME');  { }
+        List.Add('DATE MODE=0');
+        List.Add('ENABLE BCD=(TRUE, FALSE)');
+        List.Add('ENABLE SCHEMA CACHE=(TRUE, FALSE)');
+        List.Add('HOST NAME=');         { }
+        List.Add('LANGDRIVER=' + BDE_LANGDRIVER);
+        List.Add('MAX QUERY TIME=300');
+        List.Add('NATIONAL LANG NAME=');
+        List.Add('MAX ROWS=-1');
+        List.Add('OPEN MODE=(READ/WRITE,READ ONLY)');
+        List.Add('SCHEMA CACHE DIR=<dir>');
+        List.Add('SCHEMA CACHE SIZE=8');
+        List.Add('SCHEMA CACHE TIME=-1');
+        List.Add('SQLPASSTHRU MODE=(SHARED AUTOCOMMIT,SHARED NOAUTOCOMMIT,NOT SHARED)');
+        List.Add('SQLQRYMODE=(LOCAL,SERVER)');
+        List.Add('TDS PACKET SIZE=512');
+      end;
+    bdeODBC: begin
+        List.Add('BATCH COUNT=200');
+        List.Add('BLOB SIZE=32');
+        List.Add('BLOBS TO CACHE=64');
+        //List.Add('DATABASE NAME=');  { }
+        List.Add('ENABLE BCD=(TRUE, FALSE)');
+        List.Add('ENABLE SCHEMA CACHE=(TRUE, FALSE)');
+        List.Add('LANGDRIVER=' + BDE_LANGDRIVER);
+        List.Add('MAX ROWS=-1');
+        List.Add('OPEN MODE=(READ/WRITE,READ ONLY)');
+        List.Add('ODBC DSN=<odbc dsn>');
+        List.Add('ROWSET SIZE=20');
+        List.Add('SCHEMA CACHE DIR=<dir>');
+        List.Add('SCHEMA CACHE SIZE=8');
+        List.Add('SCHEMA CACHE TIME=-1');
+        List.Add('SQLPASSTHRU MODE=(SHARED AUTOCOMMIT,SHARED NOAUTOCOMMIT,NOT SHARED)');
+        List.Add('SQLQRYMODE=(LOCAL,SERVER)');
+      end;
+  end;
+  List.Add('Exclusive=(TRUE, FALSE)');
+  List.Add('KeepConnections=(TRUE, FALSE)');
+  List.Add('Session_NetFileDir=<dir>');
+  List.Add('Session_PrivateDir=<dir>');
+  List.Add('TransIsolation=(tiDirtyRead,tiReadCommitted,tiRepeatableRead)');
+end;
+
+function TDAEBDEDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+  { TODO -c???: GetAuxParams }
+end;
+
+function TDAEBDEDriver.GetAvailableDriverOptionsEx(
+  AuxDriver: string): TDAAvailableDriverOptions;
+begin
+  case ProviderToProviderType(AuxDriver) of
+    bdeSTANDARD: result :=  [doAuxDriver, doDatabaseName, doCustom];
+    bdeDB2:      result :=  [doAuxDriver, doServerName, doLogin, doCustom];
+    bdeMSACCESS: result :=  [doAuxDriver, doDatabaseName, doLogin, doCustom];
+  else
+    result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+  end;
+end;
+
+function TDAEBDEDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEBDEConnection;
+end;
+
+function TDAEBDEDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  case ProviderToProviderType(AuxDriver) of
+    bdeSTANDARD : Result := Paradox_DriverType;
+    bdeDB2 : Result := DB2_DriverType;
+    bdeINFORMIX: Result := Informix_DriverType;
+    bdeINTRBASE : Result := IB_DriverType;
+    bdeMSACCESS : Result := Access_DriverType;
+    bdeMSSQL: Result:=MSSQL_DriverType;
+    bdeORACLE: Result:=Oracle_DriverType;
+    bdeSYBASE: Result:=Sybase_DriverType;
+    bdeODBC: Result:=ODBC_DriverType;
+  else
+    Result := inherited GetDefaultConnectionType(AuxDriver);
+  end;
+end;
+
+function TDAEBDEDriver.GetDescription: string;
+begin
+  result := 'Borland BDE Driver';
+end;
+
+function TDAEBDEDriver.GetDriverID: string;
+begin
+  result := 'BDE';
+end;
+
+function Need_ODBC_DSN(Provider: string): boolean;
+var
+  List                        : TStringList;
+begin
+  List := TStringList.Create;
+  try
+    try
+      if Session.IsAlias(Provider) then
+        Session.GetAliasParams(Provider, List)
+      else
+        Session.GetDriverParams(Provider, List);
+      Result := List.Values['ODBC DSN'] = '';
+    except
+      // in case is invalid Provider, error is raised
+      Result := False;
+    end;
+  finally
+    List.Free;
+  end;
+end;
+
+function TDAEBDEDriver.GetProviderDefaultCustomParameters(
+  Provider: string): string;
+begin
+  Result := '';
+  if Provider = '' then Exit;
+  case ProviderToProviderType(Provider) of
+    bdeODBC: if Need_ODBC_DSN(Provider) then Result := 'ODBC DSN=<please specify!>';
+    bdeSTANDARD, bdeDB2, bdeMSACCESS: Result := 'TransIsolation=tiDirtyRead;';
+  end;
+end;
+
+{ TDAEBDEQuery }
+
+procedure TDAEBDEQuery.ClearParams;
+begin
+  inherited;
+  TQuery(Dataset).Params.Clear;
+end;
+
+function TDAEBDEQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TQuery.Create(nil);
+  TQuery(Result).DatabaseName := TDAEBDEConnection(aConnection).fDatabase.DatabaseName;
+  TQuery(Result).SessionName := TDAEBDEConnection(aConnection).fDatabase.SessionName;
+end;
+
+function TDAEBDEQuery.DoExecute: integer;
+begin
+  TQuery(Dataset).ExecSQL;
+  result := TQuery(Dataset).RowsAffected;
+end;
+
+function TDAEBDEQuery.DoGetSQL: string;
+begin
+  result := TQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEBDEQuery.DoPrepare(Value: boolean);
+begin
+  if Value then
+    TQuery(Dataset).Prepare
+  else
+    TQuery(Dataset).UnPrepare
+end;
+
+procedure TDAEBDEQuery.DoSetSQL(const Value: string);
+begin
+  TQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEBDEQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams,TQuery(Dataset).Params);
+end;
+
+procedure TDAEBDEQuery.RefreshParams;
+var
+  i                           : Integer;
+  par                         : TDAParam;
+  outpar                      : TParam;
+  ds                          : TQuery;
+begin
+  inherited;
+  ds := TQuery(Dataset);
+  if not Assigned(ds.Params) then Exit;
+  for i := 0 to ds.Params.Count - 1 do begin
+    outpar := ds.Params[i];
+
+    par := self.ParamByName(outpar.Name);
+
+    if outpar.DataType <> ftUnknown then
+      par.DataType := VCLTypeToDAType(outpar.DataType);
+  end;
+end;
+
+procedure TDAEBDEQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams,TQuery(Dataset).Params);
+end;
+
+{ TDAEBDEStoredProcedure }
+
+function TDAEBDEStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TStoredProc.Create(nil);
+  TStoredProc(result).DatabaseName := TDAEBDEConnection(aConnection).fDatabase.DatabaseName;
+  TStoredProc(result).SessionName := TDAEBDEConnection(aConnection).fDatabase.SessionName;
+end;
+
+function TDAEBDEStoredProcedure.DoExecute: integer;
+begin
+  Result := -1;
+  TStoredProc(Dataset).ExecProc;
+end;
+
+procedure TDAEBDEStoredProcedure.DoPrepare(Value: boolean);
+begin
+  if value then
+    TStoredProc(Dataset).Prepare
+  else
+    TStoredProc(Dataset).UnPrepare
+end;
+
+function TDAEBDEStoredProcedure.Execute: integer;
+var
+  i                           : integer;
+  ds                          : TStoredProc;
+begin
+  ds := TStoredProc(Dataset);
+
+  for i := ds.Params.Count - 1 downto 0 do begin
+    if (ds.Params[i].DataType = ftInterface) and
+      (ds.Params[i].ParamType in [ptOutput, ptInputOutput, ptReSult]) then
+      ds.Params.Delete(i);
+  end;
+
+  SetParamValuesStd(GetParams, TStoredProc(Dataset).Params);
+
+  Result:= DoExecute;
+  ds.GetResults;
+
+  GetParamValuesStd(GetParams, TStoredProc(Dataset).Params);
+end;
+
+procedure TDAEBDEStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TStoredProc(Dataset).Params);
+end;
+
+function TDAEBDEStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEBDEStoredProcedure.RefreshParams;
+var
+  dsparams                    : TParams;
+begin
+  dsparams := TParams.Create(nil);
+  try
+    TStoredProc(Dataset).CopyParams(dsParams);
+    RefreshParamsStd(dsparams);
+  finally
+    dsParams.Free;
+  end;
+end;
+
+procedure TDAEBDEStoredProcedure.SetParamValues(
+  AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TStoredProc(Dataset).Params);
+end;
+
+procedure TDAEBDEStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TStoredProc(Dataset).StoredProcName := Name;
+end;
+
+{ TDAEBDEConnection }
+
+function TDAEBDEConnection.CreateCustomConnection: TCustomConnection;
+begin
+  FDatabase := TDatabase.Create(nil);
+  FSession := TSession.Create(nil);
+  FSession.AutoSessionName := True;
+  fDatabase.SessionName := FSession.SessionName;
+  Result := fDatabase;
+  fDatabase.LoginPrompt := False;
+  fDatabase.DatabaseName := copy(NewStrippedGuidAsString, 1, 30);
+end;
+
+function TDAEBDEConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: Result := IB_CreateMacroProcessor;
+    bdeMSSQL: Result := MSSQL_CreateMacroProcessor;
+    bdeORACLE: Result := Oracle_CreateMacroProcessor;
+  else
+    Result:=inherited CreateMacroProcessor;  
+  end;
+  {$ELSE}
+    Result:=inherited CreateMacroProcessor;    
+  {$ENDIF}
+end;
+
+destructor TDAEBDEConnection.Destroy;
+begin
+  FSession.CloseDatabase(fDatabase);
+  FSession.Close;
+  fDatabase.Close;
+  FreeAndNil(FSession);
+  inherited;
+end;
+
+procedure TDAEBDEConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser;
+  aConnectionObject: TCustomConnection);
+
+  procedure SetUserNamePassword;
+  begin
+    with aConnStrParser do begin
+      if (Self.UserID <> '') then
+        fDatabase.Params.Values['USER NAME'] := Self.UserID
+      else if (UserID <> '') then
+        fDatabase.Params.Values['USER NAME'] := UserID;
+
+      if (Self.Password <> '') then
+        fDatabase.Params.Values['PASSWORD'] := Self.Password
+      else if (Password <> '') then
+        fDatabase.Params.Values['PASSWORD'] := Password;
+    end;
+  end;
+
+var
+  i                           : Integer;
+  sName, sValue: String;
+begin
+  inherited;
+  with aConnStrParser do begin
+    if AuxDriver <> '' then begin
+      fDatabase.Params.Clear;
+      fDatabase.AliasName := '';
+      fDatabase.DriverName := '';
+      fProviderType := ProviderToProviderType(AuxDriver);
+      if fDatabase.Session.IsAlias(AuxDriver) then
+        fDatabase.AliasName := AuxDriver
+      else
+        fDatabase.DriverName := AuxDriver;
+    end
+    else
+      raise EDADriverException.Create('No aux driver specified for BDE connection');
+
+    fProviderName := AuxDriver;
+
+    case fProviderType of
+      bdeSTANDARD: begin
+          //fDatabase.Params.Values['DEFAULT DRIVER'] := ; {PARADOX, DBASE, FOXPRO, ASCIIDRV}
+          //fDatabase.Params.Values['ENABLE BCD'] :=   { TRUE / FALSE}
+          if Database <> '' then fDatabase.Params.Values['PATH'] := Database;
+        end;
+      bdeDB2: begin
+          //fDatabase.Params.Values['BATCH COUNT'] :=  { = 200}
+          //fDatabase.Params.Values['BLOB SIZE'] :=   { = 32}
+          //fDatabase.Params.Values['BLOBS TO CACHE'] := { = 64}
+          if Server <> '' then fDatabase.Params.Values['DB2 DSN'] := Server; { = 'DB2_SERVER'}
+          //fDatabase.Params.Values['ENABLE BCD'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['ENABLE SCHEMA CACHE'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['LANGDRIVER'] :=   { ...}
+          //fDatabase.Params.Values['MAX ROWS'] :=   { = -1}
+          //fDatabase.Params.Values['OPEN MODE'] :=   { READ/WRITE, READ ONLY}
+          //fDatabase.Params.Values['ROWSET SIZE'] :=   { = 20}
+          //fDatabase.Params.Values['SCHEMA CACHE DIR'] :=   { = ''}
+          //fDatabase.Params.Values['SCHEMA CACHE SIZE'] :=   { = 8}
+          //fDatabase.Params.Values['SCHEMA CACHE TIME'] :=   { = -1}
+          //fDatabase.Params.Values['SQLPASSTHRU MODE'] :=   { SHARED AUTOCOMMIT, SHARED NOAUTOCOMMIT, NOT SHARED}
+          //fDatabase.Params.Values['SQLQRYMODE'] :=   { = '',LOCAL,SERVER}
+          SetUserNamePassword;
+        end;
+      bdeINFORMIX: begin
+          //fDatabase.Params.Values['BATCH COUNT'] :=  { = 200}
+          //fDatabase.Params.Values['BLOB SIZE'] :=   { = 32}
+          //fDatabase.Params.Values['BLOBS TO CACHE'] := { = 64}
+          //fDatabase.Params.Values['COLLCHAR'] := { = 0,1,2}
+          if Database <> '' then fDatabase.Params.Values['DATABASE NAME'] := Database;
+          //fDatabase.Params.Values['DATE MODE'] := { = 0};
+          //fDatabase.Params.Values['DATE SEPARATOR'] := { = '/'};
+          //fDatabase.Params.Values['DBNLS'] := { = '',0,1,2};
+          //fDatabase.Params.Values['ENABLE BCD'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['ENABLE SCHEMA CACHE'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['LANGDRIVER'] :=   { ...}
+          //fDatabase.Params.Values['LIST SYNONYMS'] :=   { NONE, ALL, PRIVATE}
+          //fDatabase.Params.Values['LOCK MODE'] :=   { = 5}
+          //fDatabase.Params.Values['MAX ROWS'] :=   { = -1}
+          //fDatabase.Params.Values['OPEN MODE'] :=   { READ/WRITE, READ ONLY}
+          //fDatabase.Params.Values['SCHEMA CACHE DIR'] :=   { = ''}
+          //fDatabase.Params.Values['SCHEMA CACHE SIZE'] :=   { = 8}
+          //fDatabase.Params.Values['SCHEMA CACHE TIME'] :=   { = -1}
+          if Server <> '' then fDatabase.Params.Values['SERVER NAME'] := Server;
+          //fDatabase.Params.Values['SQLPASSTHRU MODE'] :=   { SHARED AUTOCOMMIT, SHARED NOAUTOCOMMIT, NOT SHARED}
+          //fDatabase.Params.Values['SQLQRYMODE'] :=   { = '',LOCAL,SERVER}
+          SetUserNamePassword;
+        end;
+      bdeINTRBASE: begin
+          //fDatabase.Params.Values['BATCH COUNT'] :=  { = 200}
+          //fDatabase.Params.Values['BLOB SIZE'] :=   { = 32}
+          //fDatabase.Params.Values['BLOBS TO CACHE'] := { = 64}
+          //fDatabase.Params.Values['COMMIT RETAIN'] := { = FALSE}
+          //fDatabase.Params.Values['ENABLE BCD'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['ENABLE SCHEMA CACHE'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['LANGDRIVER'] :=   { ...}
+          //fDatabase.Params.Values['MAX ROWS'] :=   { = -1}
+          //fDatabase.Params.Values['OPEN MODE'] :=   { READ/WRITE, READ ONLY}
+          //fDatabase.Params.Values['ROLE NAME'] :=   { = ''}
+          //fDatabase.Params.Values['SCHEMA CACHE DIR'] :=   { = ''}
+          //fDatabase.Params.Values['SCHEMA CACHE SIZE'] :=   { = 8}
+          //fDatabase.Params.Values['SCHEMA CACHE TIME'] :=   { = -1}
+          if Database <> '' then fDatabase.Params.Values['SERVER NAME'] := StringReplace(Database, '\', '/', [rfReplaceAll]); { = IB_SERVER:/PATH/DATABASE.GDB}
+          if Server <> '' then fDatabase.Params.Values['SERVER NAME'] := Server + ':' + fDatabase.Params.Values['SERVER NAME']; { = IB_SERVER:/PATH/DATABASE.GDB}
+          //fDatabase.Params.Values['SQLPASSTHRU MODE'] :=   { SHARED AUTOCOMMIT, SHARED NOAUTOCOMMIT, NOT SHARED}
+          //fDatabase.Params.Values['SQLQRYMODE'] :=   { = '',LOCAL,SERVER}
+          SetUserNamePassword;
+          //fDatabase.Params.Values['WAIT ON LOCKS'] := {FALSE};
+        end;
+      bdeMSACCESS: begin
+          if Database <> '' then fDatabase.Params.Values['DATABASE NAME'] := StringReplace(Database, '\', '/', [rfReplaceAll]); { DRIVE:/PATH/DATABASE.MDB}
+          //fDatabase.Params.Values['LANGDRIVER'] :=   { ...}
+          //fDatabase.Params.Values['OPEN MODE'] :=   { READ/WRITE, READ ONLY}
+          //fDatabase.Params.Values['SYSTEM DATABASE'] :=   { *.MDW}
+          SetUserNamePassword;
+        end;
+      bdeMSSQL: begin
+          //fDatabase.Params.Values['APPLICATION MODE'] := { }
+          //fDatabase.Params.Values['BATCH COUNT'] :=  { = 200}
+          //fDatabase.Params.Values['BLOB EDIT LOGGING'] :=  { '',TRUE,FALSE}
+          //fDatabase.Params.Values['BLOB SIZE'] :=   { = 32}
+          //fDatabase.Params.Values['BLOBS TO CACHE'] := { = 64}
+          if Database <> '' then fDatabase.Params.Values['DATABASE NAME'] := Database;
+          //fDatabase.Params.Values['DATE MODE'] := { = 0};
+          //fDatabase.Params.Values['ENABLE BCD'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['ENABLE SCHEMA CACHE'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['HOST NAME'] := { };
+          //fDatabase.Params.Values['LANGDRIVER'] :=   { ...}
+          //fDatabase.Params.Values['MAX QUERY TIME'] :=   { 300}
+          //fDatabase.Params.Values['MAX ROWS'] :=   { = -1}
+          //fDatabase.Params.Values['NATIONAL LANG NAME'] :=   { }
+          //fDatabase.Params.Values['OPEN MODE'] :=   { READ/WRITE, READ ONLY}
+          //fDatabase.Params.Values['SCHEMA CACHE DIR'] :=   { = ''}
+          //fDatabase.Params.Values['SCHEMA CACHE SIZE'] :=   { = 8}
+          //fDatabase.Params.Values['SCHEMA CACHE TIME'] :=   { = -1}
+          if Server <> '' then fDatabase.Params.Values['SERVER NAME'] := Server; { = MSS_SERVER}
+          //fDatabase.Params.Values['SQLPASSTHRU MODE'] :=   { SHARED AUTOCOMMIT, SHARED NOAUTOCOMMIT, NOT SHARED}
+          //fDatabase.Params.Values['SQLQRYMODE'] :=   { = '',LOCAL,SERVER}
+          //fDatabase.Params.Values['TDS PACKET SIZE'] :=   { = 4096}
+          SetUserNamePassword;
+        end;
+      bdeORACLE: begin
+          //fDatabase.Params.Values['BATCH COUNT'] :=  { = 200}
+          //fDatabase.Params.Values['BLOB SIZE'] :=   { = 32}
+          //fDatabase.Params.Values['BLOBS TO CACHE'] := { = 64}
+          //fDatabase.Params.Values['ENABLE BCD'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['ENABLE INTEGERS'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['ENABLE SCHEMA CACHE'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['LANGDRIVER'] :=   { ...}
+          //fDatabase.Params.Values['LIST SYNONYMS'] :=   { NONE, ALL, PRIVATE}
+          //fDatabase.Params.Values['MAX ROWS'] :=   { = -1}
+          //fDatabase.Params.Values['NET PROTOCOL'] :=   { = TNS, TCP/IP,SPX/IPX,NETBIOS,NAMED PIPES,DECNET,3270,VINES,APPC,ASYNC}
+          //fDatabase.Params.Values['OBJECT MODE'] :=   { = TRUE/FALSE}
+          //fDatabase.Params.Values['OPEN MODE'] :=   { READ/WRITE, READ ONLY}
+          //fDatabase.Params.Values['ROWSET SIZE'] :=   { = 20}
+          //fDatabase.Params.Values['SCHEMA CACHE DIR'] :=   { = ''}
+          //fDatabase.Params.Values['SCHEMA CACHE SIZE'] :=   { = 8}
+          //fDatabase.Params.Values['SCHEMA CACHE TIME'] :=   { = -1}
+          if Server <> '' then fDatabase.Params.Values['SERVER NAME'] := Server; { = ORA_SERVER}
+          //fDatabase.Params.Values['SQLPASSTHRU MODE'] :=   { SHARED AUTOCOMMIT, SHARED NOAUTOCOMMIT, NOT SHARED}
+          //fDatabase.Params.Values['SQLQRYMODE'] :=   { = '',LOCAL,SERVER}
+          SetUserNamePassword;
+        end;
+      bdeSYBASE: begin
+          //fDatabase.Params.Values['APPLICATION MODE'] := { }
+          //fDatabase.Params.Values['BATCH COUNT'] :=  { = 200}
+          //fDatabase.Params.Values['BLOB EDIT LOGGING'] :=  { '',TRUE,FALSE}
+          //fDatabase.Params.Values['BLOB SIZE'] :=   { = 32}
+          //fDatabase.Params.Values['BLOBS TO CACHE'] := { = 64}
+          //fDatabase.Params.Values['CS CURSOR ROWS'] := { = 1}
+          if Database <> '' then fDatabase.Params.Values['DATABASE NAME'] := Database;
+          //fDatabase.Params.Values['DATE MODE'] := { = 0};
+          //fDatabase.Params.Values['ENABLE BCD'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['ENABLE SCHEMA CACHE'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['HOST NAME'] := { };
+          //fDatabase.Params.Values['LANGDRIVER'] :=   { ...}
+          //fDatabase.Params.Values['MAX QUERY TIME'] :=   { 300}
+          //fDatabase.Params.Values['MAX ROWS'] :=   { = -1}
+          //fDatabase.Params.Values['NATIONAL LANG NAME'] :=   { }
+          //fDatabase.Params.Values['OPEN MODE'] :=   { READ/WRITE, READ ONLY}
+          //fDatabase.Params.Values['SCHEMA CACHE DIR'] :=   { = ''}
+          //fDatabase.Params.Values['SCHEMA CACHE SIZE'] :=   { = 8}
+          //fDatabase.Params.Values['SCHEMA CACHE TIME'] :=   { = -1}
+          if Server <> '' then fDatabase.Params.Values['SERVER NAME'] := Server; { = SYB_SERVER}
+          //fDatabase.Params.Values['SQLPASSTHRU MODE'] :=   { SHARED AUTOCOMMIT, SHARED NOAUTOCOMMIT, NOT SHARED}
+          //fDatabase.Params.Values['SQLQRYMODE'] :=   { = '',LOCAL,SERVER}
+          //fDatabase.Params.Values['TDS PACKET SIZE'] :=   { = 512}
+          SetUserNamePassword;
+        end;
+      bdeODBC: begin
+          //fDatabase.Params.Values['BATCH COUNT'] :=  { = 200}
+          //fDatabase.Params.Values['BLOB SIZE'] :=   { = 32}
+          //fDatabase.Params.Values['BLOBS TO CACHE'] := { = 64}
+          if Database <> '' then fDatabase.Params.Values['DATABASE NAME'] := Database;
+          //fDatabase.Params.Values['ENABLE BCD'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['ENABLE SCHEMA CACHE'] :=   { TRUE / FALSE}
+          //fDatabase.Params.Values['LANGDRIVER'] :=   { ...}
+          //fDatabase.Params.Values['MAX ROWS'] :=   { = -1}
+          //fDatabase.Params.Values['ODBC DSN'] :=   {}
+          //fDatabase.Params.Values['OPEN MODE'] :=   { READ/WRITE, READ ONLY}
+          //fDatabase.Params.Values['ROWSET SIZE'] :=   { = 20}
+          //fDatabase.Params.Values['SCHEMA CACHE DIR'] :=   { = ''}
+          //fDatabase.Params.Values['SCHEMA CACHE SIZE'] :=   { = 8}
+          //fDatabase.Params.Values['SCHEMA CACHE TIME'] :=   { = -1}
+          //fDatabase.Params.Values['SQLPASSTHRU MODE'] :=   { SHARED AUTOCOMMIT, SHARED NOAUTOCOMMIT, NOT SHARED}
+          //fDatabase.Params.Values['SQLQRYMODE'] :=   { = '',LOCAL,SERVER}
+          SetUserNamePassword;
+        end;
+    end;
+    for i := 0 to AuxParamsCount - 1 do begin
+      sName := AuxParamNames[i];
+      sValue := AuxParams[sName];
+
+      if AnsiSameText(sName, 'TransIsolation') then begin
+          if AnsiSameText(sValue, 'tiDirtyRead') then fDatabase.TransIsolation := tiDirtyRead else
+          if AnsiSameText(sValue, 'tiReadCommitted') then fDatabase.TransIsolation := tiReadCommitted else
+          if AnsiSameText(sValue, 'tiRepeatableRead') then fDatabase.TransIsolation := tiRepeatableRead;
+      end
+      else if AnsiSameText(sName,'Session_NetFileDir') then begin
+        FSession.Close;
+        FSession.NetFileDir := sValue
+      end
+      else if AnsiSameText(sName,'Session_PrivateDir') then begin
+        FSession.Close;      
+        FSession.PrivateDir := sValue
+      end
+      else if AnsiSameText(sName,'KeepConnections') and AnsiSameText(sValue, 'False') then begin
+        FSession.KeepConnections := False  // it has True by defaulr
+      end
+      else if AnsiSameText(sName,'Exclusive') then
+        fDatabase.Exclusive := AnsiSameText(sValue, 'True') // it has False by defaulr
+      else
+        fDatabase.Params.Values[AuxParamNames[i]] := AuxParams[AuxParamNames[i]];
+    end;
+  end;
+end;
+
+function TDAEBDEConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+  fDatabase.StartTransaction;
+end;
+
+procedure TDAEBDEConnection.DoCommitTransaction;
+begin
+  fDatabase.Commit;
+end;
+
+procedure TDAEBDEConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited DoGetForeignKeys(ForeignKeys);
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: IB_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    bdeMSSQL: MSSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, True);
+    bdeORACLE: Oracle_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+  end;
+  {$ENDIF}
+end;
+
+function TDAEBDEConnection.DoGetInTransaction: boolean;
+begin
+  Result := fDatabase.InTransaction;
+end;
+
+function TDAEBDEConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  Result := inherited DoGetLastAutoInc(GeneratorName);
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: Result := IB_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    bdeMSSQL: Result := MSSQL_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    bdeOracle: Result := Oracle_DoGetLastAutoInc(GeneratorName,GetDatasetClass.Create(Self));
+  end;
+  {$ENDIF}
+end;
+
+procedure TDAEBDEConnection.DoGetStoredProcedureNames(
+  out List: IROStrings);
+begin
+  inherited DoGetStoredProcedureNames(List);
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    bdeMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, True);
+    bdeORACLE: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure);
+  else
+    fDatabase.Session.GetStoredProcNames(fDatabase.DatabaseName, List.Strings);
+  end;
+  {$ELSE}
+  fDatabase.Session.GetStoredProcNames(fDatabase.DatabaseName, List.Strings);
+  {$ENDIF}
+end;
+
+procedure TDAEBDEConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeOracle: Oracle_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+    bdeMSSQL:  MSSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+  else
+    inherited DoGetStoredProcedureParams(aStoredProcedureName, Params);
+  end;
+  {$ELSE}
+  inherited DoGetStoredProcedureParams(aStoredProcedureName, Params);
+  {$ENDIF}
+end;
+
+procedure TDAEBDEConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: IB_GetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    bdeMSSQL: MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    bdeOracle: Oracle_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+  else
+    inherited DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), Fields);
+  end;
+  {$ELSE}
+  inherited DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), Fields);
+  {$ENDIF}
+end;
+
+procedure TDAEBDEConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited DoGetTableNames(List);
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotTable);
+    bdeMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, True);
+    bdeORACLE: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotTable);
+  else
+    fDatabase.GetTableNames(List.Strings);
+  end;
+  {$ELSE}
+  fDatabase.GetTableNames(List.Strings);
+  {$ENDIF}
+end;
+
+procedure TDAEBDEConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited DoGetViewNames(List);
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotView);
+    bdeMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, True);
+    bdeORACLE: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+  end;
+  {$ENDIF}
+end;
+
+procedure TDAEBDEConnection.DoRollbackTransaction;
+begin
+  fDatabase.Rollback;
+end;
+
+function TDAEBDEConnection.GetDatabaseNames: IROStrings;
+begin
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeMSSQL: Result := MSSQL_GetDatabaseNames(Self);
+  else
+    Result := NewROStrings;
+    fDatabase.Session.GetDatabaseNames(Result.Strings);
+  end;
+  {$ELSE}
+  Result := NewROStrings;
+  fDatabase.Session.GetDatabaseNames(Result.Strings);
+  {$ENDIF}
+end;
+
+function TDAEBDEConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  Result := TDAEBDEQuery;
+end;
+
+function TDAEBDEConnection.GetFileExtensions: IROStrings;
+begin
+  case fProviderType of
+    bdeINTRBASE: Result := IB_GetFileExtensions;
+    bdeMSACCESS: Result := MSACCESS_GetFileExtensions;
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+function TDAEBDEConnection.GetGeneratorNames: IROStrings;
+begin
+  case fProviderType of
+    bdeINTRBASE: Result:= IB_GetGeneratorNames(GetDatasetClass.Create(Self));
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+function TDAEBDEConnection.GetNextAutoinc(
+  const GeneratorName: string): integer;
+begin
+  Result := GetNextAutoinc2(GeneratorName);
+end;
+
+function TDAEBDEConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  result := -1;
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: Result := IB_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+    bdeOracle:   Result := Oracle_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+  end;
+  {$ENDIF}
+end;
+
+function TDAEBDEConnection.GetQuoteChars: TDAQuoteCharArray;
+begin
+  case fProviderType of
+    bdeMSSQL: result:=MSSQL_GetQuoteChars;
+    bdeORACLE: Result:= Oracle_GetQuoteChars;
+  else
+    Result[0] := '"';
+    Result[1] := '"';
+  end;
+end;
+
+function TDAEBDEConnection.GetSPSelectSyntax(
+  HasArguments: Boolean): string;
+begin
+  Result := inherited GetSPSelectSyntax(HasArguments);
+  {$IFDEF MAX_SUPPORT}
+  case fProviderType of
+    bdeINTRBASE: Result := IB_GetSPSelectSyntax(HasArguments);
+    bdeMSSQL: Result := MSSQL_GetSPSelectSyntax(HasArguments);
+    bdeOracle: Result := Oracle_GetSPSelectSyntax(HasArguments);
+  end;
+  {$ENDIF}
+end;
+
+function TDAEBDEConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  Result := TDAEBDEStoredProcedure;
+end;
+
+function TDAEBDEConnection.GetUserID: string;
+begin
+  Result:=fDatabase.Params.Values['USER NAME'];
+end;
+
+function TDAEBDEConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier);
+  if not Result then
+    case fProviderType of
+      bdeMSSQL: Result := MSSQL_IdentifierNeedsQuoting(iIdentifier);
+      bdeINTRBASE: Result := IB_IdentifierNeedsQuoting(iIdentifier,1);
+      bdeORACLE: Result := Oracle_IdentifierNeedsQuoting(iIdentifier);
+      bdeDB2: Result := DB2_IdentifierNeedsQuoting(iIdentifier);
+      bdeSYBASE: Result := Sybase_IdentifierNeedsQuoting(iIdentifier);
+    else
+      Result := SQL92_IdentifierNeedsQuoting(iIdentifier);
+    end;
+end;
+
+function TDAEBDEConnection.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  Result := E_NOINTERFACE;
+
+  if IsEqualGUID(IID, IDADB2Connection) then begin
+    if not (fProviderType in [bdeDB2]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDASybaseConnection) then begin
+    if not (fProviderType in [bdeSYBASE]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDAInterbaseConnection) then begin
+    if not (fProviderType in [bdeINTRBASE]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDAADOConnection) then begin
+    if not (fProviderType in [bdeMSSQL]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDAOracleConnection) then begin
+    if not (fProviderType in [bdeOracle]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDAUseGenerators) or IsEqualGUID(IID, IDAUseGenerators2) then begin
+    if not (fProviderType in [bdeINTRBASE, bdeOracle]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDACanQueryGeneratorsNames) then begin
+    if not (fProviderType in [bdeINTRBASE]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDAFileBasedDatabase) then begin
+    if not (fProviderType in [bdeINTRBASE, bdeMSACCESS]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDACanQueryDatabaseNames) then begin
+    if not (fProviderType in [bdeINFORMIX, bdeMSSQL, bdeORACLE, bdeSYBASE]) then Exit;
+  end;
+
+  if IsEqualGUID(IID, IDADirectoryBasedDatabase) then begin
+    if not (fProviderType in [bdeSTANDARD]) then Exit;
+  end;
+
+  Result := inherited QueryInterface(IID, Obj);
+end;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDABDEDriver]);
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+function TDAEBDEConnection.QuoteFieldName(const aTableName,
+  aFieldName: string): string;
+begin
+  Result := inherited QuoteFieldName(aTableName, aFieldName);
+  case fProviderType of
+    bdeSTANDARD:
+      if (aTableName <> '') and (aFieldName <> Result) then
+        Result := QuoteIdentifierIfNeeded(aTableName) + '.' + Result;
+  end;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDACRLabsUtils.inc b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDACRLabsUtils.inc
new file mode 100644
index 0000000..7db5910
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDACRLabsUtils.inc	
@@ -0,0 +1,61 @@
+{
+                             !!! DO NOT REMOVE THIS FILE !!!
+
+  It's included with an $I directive in the SDAC and ODAC driver units and it's used in
+  their implementation of the IDAMustSetParams
+  
+}
+procedure WriteCrLabsParamValues(InputParams : TDAParamCollection; OutputParams: TDAParams; IgnoreBlobType : boolean = false);
+var i : integer;
+    par : uDAInterfaces.TDAParam;
+    outpar : DBAccess.TDAParam;
+    blobtype : TFieldType;
+begin
+  for i := 0 to (InputParams.Count-1) do begin
+    par := InputParams[i];
+    outpar := OutputParams.ParamByName(par.Name);
+
+    // If no blob type is specified, then gets the default field type.
+    // BlobType is only meaningful to Oracle. MSSQL works fine just setting the DataType
+    blobtype := BlobTypeMappings[par.BlobType];
+    if (blobtype=ftUnknown)
+      then blobtype := DADataTypesMappings[par.DataType];
+
+    case par.DataType of
+      datWideMemo,
+      datBlob : begin
+          outpar.ParamType := TParamType(par.ParamType);
+          outpar.DataType := DADataTypesMappings[par.DataType];
+          if VarIsNull(par.Value) then 
+            outpar.Clear
+          else begin
+            if VarIsArray(par.Value) then
+              outpar.Value := VariantToAnsiString(par.Value)
+            else
+              outpar.Value := par.Value;
+          end;    
+        end;
+      datMemo : begin
+          outpar.ParamType := TParamType(par.ParamType);
+          outpar.DataType := ftMemo;
+
+          // Only happens with Oracle
+          if not IgnoreBlobType and (blobtype<>ftUnknown) then
+            outpar.DataType := blobtype;
+
+          if VarIsNull(par.Value) then 
+            outpar.Clear
+          else
+            outpar.Value := par.Value;
+        end;
+      else begin
+        outpar.ParamType := TParamType(par.ParamType);
+        outpar.DataType := DADataTypesMappings[par.DataType];
+        if VarIsNull(par.Value)
+          then outpar.Clear
+          else outpar.Value := par.Value;
+      end;
+    end; { case }
+  end; { for }
+end;
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADBISAMDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADBISAMDriver.pas
new file mode 100644
index 0000000..8627488
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADBISAMDriver.pas	
@@ -0,0 +1,1109 @@
+unit uDADBISAMDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+
+{$R DataAbstract_DBISAMDriver_Glyphs.res}
+
+{$I dbisamvr.inc}
+{$IFNDEF DBISAM_V4}
+{$DEFINE DBISAM_V3}
+{$ENDIF}
+
+interface
+
+uses DB, Classes, uDAEngine, uDAInterfaces, uROClasses, DBISAMTb, uDAUtils;
+
+type
+  { TDADBISAMDriver }
+  TDADBISAMDriver = class(TDADriverReference)
+  end;
+
+  { IDBISAMConnection }
+  IDBISAMConnection = interface
+    ['{C6222EF8-FBAE-42AE-B034-8FFAE8FF2578}']
+  end;
+
+  { IDBISAMConnectionProperties
+    Provides access to common properties of DBISAM connections }
+
+  IDBISAMConnectionProperties = interface
+    ['{41BAFCD6-D6EA-477E-B489-7EA6E05FFCC0}']
+    function GetForceBufferFlush: Boolean;
+    procedure SetForceBufferFlush(Value: Boolean);
+    function GetKeepConnections: Boolean;
+    procedure SetKeepConnections(Value: Boolean);
+    function GetLockProtocol: TLockProtocol;
+    procedure SetLockProtocol(Value: TLockProtocol);
+    function GetLockRetryCount: Byte;
+    procedure SetLockRetryCount(Value: Byte);
+    function GetLockWaitTime: Word;
+    procedure SetLockWaitTime(Value: Word);
+    function GetPrivateDir: string;
+    procedure SetPrivateDir(const Value: string);
+    function GetRemotePort: Integer;
+    procedure SetRemotePort(Value: Integer);
+    function GetRemoteService: string;
+    procedure SetRemoteService(const Value: string);
+    function GetRemoteTrace: Boolean;
+    procedure SetRemoteTrace(Value: Boolean);
+    {$IFDEF DBISAM_V3}
+    function GetRemoteType: TRemoteType;
+    procedure SetRemoteType(Value: TRemoteType);
+    {$ENDIF}
+    {$IFDEF DBISAM_V4}
+    function GetRemoteCompression: Byte;
+    procedure SetRemoteCompression(Value: Byte);
+    function GetRemoteEncryption: Boolean;
+    procedure SetRemoteEncryption(Value: Boolean);
+    function GetRemoteEncryptionPassword: string;
+    procedure SetRemoteEncryptionPassword(const Value: string);
+    function GetRemoteTimeout: Integer;
+    procedure SetRemoteTimeout(Value: Integer);
+    {$ENDIF}
+
+    procedure AddPassword( const aPassword: string);
+    procedure RemovePassword(const aPassword: string);
+    procedure RemoveAllPasswords;
+
+    property ForceBufferFlush: Boolean read GetForceBufferFlush write SetForceBufferFlush;
+    property KeepConnections: Boolean read GetKeepConnections write SetKeepConnections;
+    property LockProtocol: TLockProtocol read GetLockProtocol write SetLockProtocol;
+    property LockRetryCount: Byte read GetLockRetryCount write SetLockRetryCount;
+    property LockWaitTime: Word read GetLockWaitTime write SetLockWaitTime;
+    property PrivateDir: string read GetPrivateDir write SetPrivateDir;
+    property RemotePort: Integer read GetRemotePort write SetRemotePort;
+    property RemoteService: string read GetRemoteService write SetRemoteService;
+    property RemoteTrace: Boolean read GetRemoteTrace write SetRemoteTrace;
+    {$IFDEF DBISAM_V3}
+    property RemoteType: TRemoteType read GetRemoteType write SetRemoteType;
+    {$ENDIF}
+    {$IFDEF DBISAM_V4}
+    property RemoteCompression: Byte read GetRemoteCompression write SetRemoteCompression;
+    property RemoteEncryption: Boolean read GetRemoteEncryption write SetRemoteEncryption;
+    property RemoteEncryptionPassword: string read GetRemoteEncryptionPassword write SetRemoteEncryptionPassword;
+    property RemoteTimeout: Integer read GetRemoteTimeout write SetRemoteTimeout;
+    {$ENDIF}
+  end;
+
+  { TDBISAMConnection }
+  TDBISAMConnection = class(TDAConnectionWrapper)
+  private
+    fDatabase: TDBISAMDatabase;
+    fSession: TDBISAMSession;
+
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: Boolean); override;
+
+  public
+    constructor Create(AOwner: TComponent); override;
+
+    property Database: TDBISAMDatabase read fDatabase;
+    property Session: TDBISAMSession read fSession;
+  end;
+
+  { TDAEDBISAMDriver }
+  TDAEDBISAMDriver = class(TDAEDriver)
+  private
+
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; safecall;
+  public
+  end;
+
+  { TDAEDBISAMConnection }
+  TDAEDBISAMConnection = class(TDAEConnection, IDBISAMConnection, IDBISAMConnectionProperties)
+  private
+    fConnection: TDBISAMConnection;
+
+  protected
+    // IDBISAMConnectionProperties
+    function GetForceBufferFlush: Boolean;
+    procedure SetForceBufferFlush(Value: Boolean);
+    function GetKeepConnections: Boolean;
+    procedure SetKeepConnections(Value: Boolean);
+    function GetLockProtocol: TLockProtocol;
+    procedure SetLockProtocol(Value: TLockProtocol);
+    function GetLockRetryCount: Byte;
+    procedure SetLockRetryCount(Value: Byte);
+    function GetLockWaitTime: Word;
+    procedure SetLockWaitTime(Value: Word);
+    function GetPrivateDir: string;
+    procedure SetPrivateDir(const Value: string);
+    function GetRemotePort: Integer;
+    procedure SetRemotePort(Value: Integer);
+    function GetRemoteService: string;
+    procedure SetRemoteService(const Value: string);
+    function GetRemoteTrace: Boolean;
+    procedure SetRemoteTrace(Value: Boolean);
+    {$IFDEF DBISAM_V3}
+    function GetRemoteType: TRemoteType;
+    procedure SetRemoteType(Value: TRemoteType);
+    {$ENDIF}
+    {$IFDEF DBISAM_V4}
+    function GetRemoteCompression: Byte;
+    procedure SetRemoteCompression(Value: Byte);
+    function GetRemoteEncryption: Boolean;
+    procedure SetRemoteEncryption(Value: Boolean);
+    function GetRemoteEncryptionPassword: string;
+    procedure SetRemoteEncryptionPassword(const Value: string);
+    function GetRemoteTimeout: Integer;
+    procedure SetRemoteTimeout(Value: Integer);
+    {$ENDIF}
+    procedure AddPassword( const aPassword: string);
+    procedure RemovePassword(const aPassword: string);
+    procedure RemoveAllPasswords;
+
+    // IDAConnection
+    function CreateCustomConnection: TCustomConnection; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+    function DoBeginTransaction: Integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: Boolean; override;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection);override;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}    
+  public
+  end;
+
+  { TDAEDBISAMQuery }
+  TDAEDBISAMQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: Integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: Boolean); override;
+
+    // IDAMustSetParams
+    {$IFDEF DBISAM_V4}
+    procedure RefreshParams; override;
+    {$ENDIF}
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+const
+  DBISAM_DriverType = 'DBISAM';
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils, uDADriverManager, uDARes, uDAMacroProcessors, Variants,
+  uROBinaryHelpers;
+
+var
+  _driver: TDAEDriver = nil;
+  dbisam_reservedwords: array of string;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDADBISAMDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEDBISAMDriver.Create(nil);
+  result := _driver;
+end;
+
+{ TDBISAMConnection }
+
+constructor TDBISAMConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+
+  fSession := TDBISAMSession.Create(Self);
+  fSession.AutoSessionName := TRUE;
+
+  fDatabase := TDBISAMDatabase.Create(Self);
+  fDatabase.SessionName := fSession.SessionName;
+  fDatabase.DatabaseName := 'DBISAMDB';
+end;
+
+function TDBISAMConnection.GetConnected: Boolean;
+begin
+  result := fDatabase.Connected;
+end;
+
+procedure TDBISAMConnection.SetConnected(Value: Boolean);
+begin
+  if not(csDestroying in fDatabase.ComponentState) then begin
+    try
+      fSession.Active := Value;
+      fDatabase.Connected := Value;
+    except
+      fSession.Active := FALSE;
+      fDatabase.Connected := FALSE;
+      raise;
+    end;
+  end;
+end;
+
+{ TDAEDBISAMConnection }
+
+procedure TDAEDBISAMConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  inherited;
+  with aConnStrParser do begin
+    if (Self.UserID <> '') then
+      fConnection.Session.RemoteUser := Self.UserID
+    else
+      fConnection.Session.RemoteUser := UserID;
+    if (Self.Password <> '') then
+      fConnection.Session.RemotePassword := Self.Password
+    else
+      fConnection.Session.RemotePassword := Password;
+
+    if (Server <> '') then begin
+      // Remote connection
+      fConnection.Session.SessionType := stRemote;
+      fConnection.Session.RemoteHost := Server;
+      fConnection.Database.RemoteDatabase := Database;
+      if (AuxParams['RemotePort'] <> '') then
+        fConnection.Session.RemotePort := StrToInt(AuxParams['RemotePort']);
+      if (AuxParams['RemoteService'] <> '') then
+        fConnection.Session.RemoteService := AuxParams['RemoteService'];
+      if (AuxParams['RemoteTrace'] = 'False') then
+        fConnection.Session.RemoteTrace := False
+      else if (AuxParams['RemoteTrace'] = 'True') then
+        fConnection.Session.RemoteTrace := True;
+      {$IFDEF DBISAM_V3}
+      if (AuxParams['RemoteType'] = 'rtLAN') then
+        fConnection.Session.RemoteType := rtLAN
+      else if (AuxParams['RemoteType'] = 'rtInternet') then
+        fConnection.Session.RemoteType := rtInternet;
+      {$ENDIF}
+      {$IFDEF DBISAM_V4}
+      if (AuxParams['RemoteCompression'] <> '') then
+        if (StrToInt(AuxParams['RemoteCompression']) in [0..9]) then
+          fConnection.Session.RemoteCompression := StrToInt(AuxParams['RemoteCompression']);
+      if (AuxParams['RemoteEncryption'] = 'False') then
+        fConnection.Session.RemoteEncryption := False
+      else if (AuxParams['RemoteEncryption'] = 'True') then
+        fConnection.Session.RemoteEncryption := True;
+      if (AuxParams['RemoteEncryptionPassword'] <> '') then
+        fConnection.Session.RemoteEncryptionPassword := AuxParams['RemoteEncryptionPassword'];
+      if (AuxParams['RemoteTimeout'] <> '') then
+        fConnection.Session.RemoteTimeout := StrToInt(AuxParams['RemoteTimeout']);
+      {$ENDIF}
+    end
+    else begin
+      // Local connection
+      fConnection.Session.SessionType := stLocal;
+      fConnection.Database.Directory := Database;
+    end;
+
+    if (AuxParams['ForceBufferFlush'] = 'False') then
+      fConnection.Session.ForceBufferFlush := False
+    else if (AuxParams['ForceBufferFlush'] = 'True') then
+      fConnection.Session.ForceBufferFlush := True;
+    if (AuxParams['KeepConnections'] = 'False') then
+    begin
+      fConnection.Session.KeepConnections := False;
+      fConnection.Database.KeepConnection := False;
+    end
+    else if (AuxParams['KeepConnections'] = 'True') then
+    begin
+      fConnection.Session.KeepConnections := True;
+      fConnection.Database.KeepConnection := True;
+    end;
+    if (AuxParams['LockProtocol'] = 'lpOptimistic') then
+      fConnection.Session.LockProtocol := lpOptimistic
+    else if (AuxParams['LockProtocol'] = 'lpPessimistic') then
+      fConnection.Session.LockProtocol := lpPessimistic;
+    if (AuxParams['LockRetryCount'] <> '') then
+      fConnection.Session.LockRetryCount := StrToInt(AuxParams['LockRetryCount']);
+    if (AuxParams['LockWaitTime'] <> '') then
+      fConnection.Session.LockWaitTime := StrToInt(AuxParams['LockWaitTime']);
+    if (AuxParams['PrivateDir'] <> '') then
+      fConnection.Session.PrivateDir := AuxParams['PrivateDir'];
+    if (AuxParams['TablePassword'] <> '') then
+    begin
+      fConnection.Session.Active := True;
+      fConnection.Session.AddPassword(AuxParams['TablePassword']);
+    end;
+  end;
+end;
+
+function TDAEDBISAMConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+  fConnection.Database.StartTransaction;
+end;
+
+procedure TDAEDBISAMConnection.DoCommitTransaction;
+begin
+  with fConnection do
+    Database.Commit(Session.ForceBufferFlush);
+end;
+
+function TDAEDBISAMConnection.CreateCustomConnection: TCustomConnection;
+begin
+  result := TDBISAMConnection.Create(nil);
+  fConnection := TDBISAMConnection(result);
+end;
+
+function TDAEDBISAMConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEDBISAMQuery
+end;
+
+procedure TDAEDBISAMConnection.DoGetTableNames(out List: IROStrings);
+var
+  _database: string;
+begin
+  List := TROStrings.Create;
+  if (fConnection.Session.SessionType = stLocal) then
+    _database := fConnection.Database.Directory
+  else
+    _database := fConnection.Database.RemoteDatabase;
+
+  fConnection.Session.GetTableNames(_database, List.Strings);
+end;
+
+procedure TDAEDBISAMConnection.DoRollbackTransaction;
+begin
+  fConnection.Database.Rollback;
+end;
+
+function TDAEDBISAMConnection.DoGetInTransaction: Boolean;
+begin
+  result := fConnection.Database.InTransaction;
+end;
+
+function TDAEDBISAMConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  result := TDADBISAMMacroProcessor.Create;
+end;
+
+function TDAEDBISAMConnection.GetForceBufferFlush: Boolean;
+begin
+  result := fConnection.Session.ForceBufferFlush;
+end;
+
+procedure TDAEDBISAMConnection.SetForceBufferFlush(Value: Boolean);
+begin
+  fConnection.Session.ForceBufferFlush := Value;
+end;
+
+function TDAEDBISAMConnection.GetKeepConnections: Boolean;
+begin
+  result := fConnection.Session.KeepConnections;
+end;
+
+procedure TDAEDBISAMConnection.SetKeepConnections(Value: Boolean);
+begin
+  fConnection.Session.KeepConnections := Value;
+  fConnection.Database.KeepConnection := Value;
+end;
+
+function TDAEDBISAMConnection.GetLockProtocol: TLockProtocol;
+begin
+  result := fConnection.Session.LockProtocol;
+end;
+
+procedure TDAEDBISAMConnection.SetLockProtocol(Value: TLockProtocol);
+begin
+  fConnection.Session.LockProtocol := Value;
+end;
+
+function TDAEDBISAMConnection.GetLockRetryCount: Byte;
+begin
+  result := fConnection.Session.LockRetryCount;
+end;
+
+procedure TDAEDBISAMConnection.SetLockRetryCount(Value: Byte);
+begin
+  fConnection.Session.LockRetryCount := Value;
+end;
+
+function TDAEDBISAMConnection.GetLockWaitTime: Word;
+begin
+  result := fConnection.Session.LockWaitTime;
+end;
+
+procedure TDAEDBISAMConnection.SetLockWaitTime(Value: Word);
+begin
+  fConnection.Session.LockWaitTime := Value;
+end;
+
+function TDAEDBISAMConnection.GetPrivateDir: string;
+begin
+  result := fConnection.Session.PrivateDir;
+end;
+
+procedure TDAEDBISAMConnection.SetPrivateDir(const Value: string);
+begin
+  fConnection.Session.PrivateDir := Value;
+end;
+
+function TDAEDBISAMConnection.GetRemotePort: Integer;
+begin
+  result := fConnection.Session.RemotePort;
+end;
+
+procedure TDAEDBISAMConnection.SetRemotePort(Value: Integer);
+begin
+  fConnection.Session.RemotePort := Value;
+end;
+
+function TDAEDBISAMConnection.GetRemoteService: string;
+begin
+  result := fConnection.Session.RemoteService;
+end;
+
+procedure TDAEDBISAMConnection.SetRemoteService(const Value: string);
+begin
+  fConnection.Session.RemoteService := Value;
+end;
+
+function TDAEDBISAMConnection.GetRemoteTrace: Boolean;
+begin
+  result := fConnection.Session.RemoteTrace;
+end;
+
+procedure TDAEDBISAMConnection.SetRemoteTrace(Value: Boolean);
+begin
+  fConnection.Session.RemoteTrace := Value;
+end;
+
+{$IFDEF DBISAM_V3}
+
+function TDAEDBISAMConnection.GetRemoteType: TRemoteType;
+begin
+  result := fConnection.Session.RemoteType;
+end;
+
+procedure TDAEDBISAMConnection.SetRemoteType(Value: TRemoteType);
+begin
+  fConnection.Session.RemoteType := Value;
+end;
+{$ENDIF}
+
+{$IFDEF DBISAM_V4}
+
+function TDAEDBISAMConnection.GetRemoteCompression: Byte;
+begin
+  result := fConnection.Session.RemoteCompression;
+end;
+
+procedure TDAEDBISAMConnection.SetRemoteCompression(Value: Byte);
+begin
+  fConnection.Session.RemoteCompression := Value;
+end;
+
+function TDAEDBISAMConnection.GetRemoteEncryption: Boolean;
+begin
+  result := fConnection.Session.RemoteEncryption;
+end;
+
+procedure TDAEDBISAMConnection.SetRemoteEncryption(Value: Boolean);
+begin
+  fConnection.Session.RemoteEncryption := Value;
+end;
+
+function TDAEDBISAMConnection.GetRemoteEncryptionPassword: string;
+begin
+  result := fConnection.Session.RemoteEncryptionPassword;
+end;
+
+procedure TDAEDBISAMConnection.SetRemoteEncryptionPassword(const Value: string);
+begin
+  fConnection.Session.RemoteEncryptionPassword := Value;
+end;
+
+function TDAEDBISAMConnection.GetRemoteTimeout: Integer;
+begin
+  result := fConnection.Session.RemoteTimeout;
+end;
+
+procedure TDAEDBISAMConnection.SetRemoteTimeout(Value: Integer);
+begin
+  fConnection.Session.RemoteTimeout := Value;
+end;
+{$ENDIF}
+
+procedure TDAEDBISAMConnection.AddPassword( const aPassword: string);
+begin
+  fConnection.Session.AddPassword(aPassword);
+end;
+
+procedure TDAEDBISAMConnection.RemovePassword( const aPassword: string);
+begin
+  fConnection.Session.RemovePassword(aPassword);
+end;
+
+procedure TDAEDBISAMConnection.RemoveAllPasswords;
+begin
+  fConnection.Session.RemoveAllPasswords;
+end;
+
+function TDAEDBISAMConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+var
+  lQuery: IDADataset;
+begin
+  Result:= inherited DoGetLastAutoInc(GeneratorName);
+  if GeneratorName <> '' then begin
+    lQuery:=GetDatasetClass.Create(Self);
+    try
+      lQuery.SQL := 'SELECT LASTAUTOINC('''+GeneratorName+''') from '+QuoteIdentifierIfNeeded(GeneratorName);
+      lQuery.Open;
+      Result := lQuery.Fields[0].Value;
+    finally
+      lQuery:=nil;
+    end;
+  end;
+end;
+
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED OFF}
+{$ENDIF DELPHI10UP}
+procedure TDAEDBISAMConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+var
+  i: integer;
+  pos1: integer;
+  fld: TDAField;
+  {$IFDEF DBISAM_V4}
+  lofld:TDBISAMFieldDef;
+  {$ELSE}
+  lofld:TFieldDef;
+  {$ENDIF}
+  s: string;
+  ltable: TDBISAMTable;
+begin
+  Fields:=TDAFieldCollection.Create(nil);
+  ltable:=TDBISAMTable.Create(nil);
+  try
+    ltable.DatabaseName := fConnection.Database.DatabaseName;
+    ltable.SessionName := fConnection.Session.SessionName;
+    ltable.TableName := aTableName;
+    ltable.FieldDefs.Update;
+    for i:=0 to ltable.FieldDefs.Count-1 do begin
+      lofld:=ltable.FieldDefs[i];
+      fld:= Fields.Add;
+      fld.Name:= lofld.Name;
+      fld.DataType:= VCLTypeToDAType(lofld.DataType);
+      fld.Size:= lofld.Size;
+      fld.Required:= lofld.Required;
+      {$IFDEF DBISAM_V4}
+      fld.DefaultValue:=lofld.DefaultValue;
+      fld.Description:=lofld.Description;
+      {$ENDIF DBISAM_V4}
+      fld.ReadOnly:= DB.faReadonly in lofld.Attributes;
+      if fld.DataType in [datAutoInc, datLargeAutoInc] then fld.GeneratorName:= aTableName;
+      if fld.DataType = datDecimal then begin
+        case lofld.DataType of
+          ftBCD: begin
+            fld.DecimalPrecision:=20;
+            fld.DecimalScale:=lofld.Size;
+          end;
+        end;  
+      end;
+    end;
+
+    //pk
+    ltable.IndexDefs.Update;
+    For i:=0 to ltable.IndexDefs.Count - 1 do
+      if ixPrimary in ltable.IndexDefs[i].Options then begin
+        Pos1 := 1;
+        s:=ltable.IndexDefs[i].Fields;
+        while Pos1 <= Length(s) do begin
+          fld := Fields.FindField(ExtractFieldName(s, Pos1));
+          if fld <> nil then fld.InPrimaryKey:=True;
+        end;
+      end;
+
+  finally
+    ltable.free;
+  end;
+end;
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED ON}
+{$ENDIF DELPHI10UP}
+
+function TDAEDBISAMConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier) or TestIdentifier(iIdentifier,dbisam_reservedwords);
+end;
+
+{ TDAEDBISAMDriver }
+
+procedure TDAEDBISAMDriver.GetAuxParams(const AuxDriver: string; out List: IROStrings);
+begin
+  inherited;
+
+  List.Add('ForceBufferFlush=False,True');
+  List.Add('KeepConnections=False,True');
+  List.Add('LockProtocol=lpOptimistic,lpPessimistic');
+  List.Add('LockRetryCount=');
+  List.Add('LockWaitTime=');
+  List.Add('PrivateDir=');
+  List.Add('RemotePort=');
+  List.Add('RemoteService=');
+  List.Add('RemoteTrace=False,True');
+  List.Add('TablePassword=');
+  {$IFDEF DBISAM_V3}
+  List.Add('RemoteType=rtLAN,rtInternet');
+  {$ENDIF}
+  {$IFDEF DBISAM_V4}
+  List.Add('RemoteCompression=');
+  List.Add('RemoteEncryption=False,True');
+  List.Add('RemoteEncryptionPassword=');
+  List.Add('RemoteTimeout=');
+  {$ENDIF}
+
+  List.Sorted := True;
+end;
+
+function TDAEDBISAMDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAEDBISAMDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEDBISAMConnection
+end;
+
+function TDAEDBISAMDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  Result:=DBISAM_DriverType;
+end;
+
+function TDAEDBISAMDriver.GetDescription: string;
+begin
+  {$IFDEF DBISAM_V3}
+  result := 'DBISAM3 Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+  {$ENDIF}
+  {$IFDEF DBISAM_V4}
+  result := 'DBISAM4 Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+  {$ENDIF}
+end;
+
+function TDAEDBISAMDriver.GetDriverID: string;
+begin
+  {$IFDEF DBISAM_V3}
+  result := 'DBISAM3';
+  {$ENDIF}
+  {$IFDEF DBISAM_V4}
+  result := 'DBISAM4';
+  {$ENDIF}
+end;
+
+{ TDAEDBISAMQuery }
+
+function TDAEDBISAMQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TDBISAMQuery.Create(nil);
+
+  with TDBISAMQuery(result) do begin
+    DatabaseName := TDAEDBISAMConnection(aConnection).fConnection.Database.DatabaseName;
+    SessionName := TDAEDBISAMConnection(aConnection).fConnection.Session.SessionName;
+    ReadOnly := True;
+    RequestLive := True;
+  end;
+end;
+
+function TDAEDBISAMQuery.DoExecute: integer;
+begin
+  with TDBISAMQuery(Dataset) do begin
+    ExecSQL;
+    result := RowsAffected;
+  end;
+end;
+
+function TDAEDBISAMQuery.DoGetSQL: string;
+begin
+  result := TDBISAMQuery(Dataset).SQL.Text
+end;
+
+procedure TDAEDBISAMQuery.DoPrepare(Value: Boolean);
+begin
+  TDBISAMQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEDBISAMQuery.SetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  par: uDAInterfaces.TDAParam;
+  {$IFDEF DBISAM_V4}
+  outpar: TDBISAMParam;
+  {$ELSE}
+  outpar: TParam;
+  {$ENDIF}
+  ft: TFieldType;
+  lParIsEmpty: Boolean;
+begin
+  for i := 0 to (AParams.Count - 1) do begin
+    par := AParams[i];
+    outpar := TDBISAMQuery(Dataset).Params.ParamByName(par.Name);
+
+    ft := DATypeToVCLType(par.DataType);
+    {$IFNDEF DBISAM_V4}
+    case par.ParamType of
+      daptInput: outpar.ParamType := ptInput;
+      daptOutput: outpar.ParamType := ptOutput;
+      daptInputOutput: outpar.ParamType := ptInputOutput;
+      daptResult: outpar.ParamType := ptResult;
+    end;
+    {$ENDIF DBISAM_V3}
+    lParIsEmpty := VarIsEmpty(par.Value) or VarIsNull(par.Value);
+
+    if par.DataType = datBlob then begin
+      outpar.DataType := ftBlob;
+      if not (par.ParamType in [daptOutput, daptResult]) then begin
+        if lParIsEmpty then
+           outpar.Value := Null
+        else
+           outpar.Value := VariantToAnsiString(par.Value);
+      end;
+    end
+    else begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then outpar.DataType := ft;
+      if not (par.ParamType in [daptOutput, daptResult]) then outpar.Value := par.Value;
+    end;
+
+    if lParIsEmpty and (par.DataType <> datUnknown) then begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then outpar.DataType := ft;
+    end;
+  end;
+end;
+
+procedure TDAEDBISAMQuery.GetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  par: uDAInterfaces.TDAParam;
+begin
+  for i := 0 to (AParams.Count - 1) do begin
+    par := AParams[i];
+    if Par.ParamType in [daptOutput, daptInputOutput, daptResult] then
+      Par.Value := TDBISAMQuery(Dataset).Params.ParamByName(par.Name).Value;
+  end;
+end;
+
+procedure TDAEDBISAMQuery.DoSetSQL(const Value: string);
+begin
+  TDBISAMQuery(Dataset).SQL.Text := Value;
+end;
+
+{$IFDEF DBISAM_V4}
+procedure TDAEDBISAMQuery.RefreshParams;
+var
+  i: Integer;
+  par: TDAParam;
+  outpar: TDBISAMParam;
+  ds: TDBISAMQuery;
+begin
+  inherited;
+  ds := TDBISAMQuery(Dataset);
+  if not Assigned(ds.Params) then
+    Exit;
+  for i := 0 to ds.Params.Count -1 do begin
+    outpar := ds.Params[i];
+
+    par := self.ParamByName(outpar.Name);
+
+    if outpar.DataType <> ftUnknown then begin
+      par.DataType := VCLTypeToDAType(outpar.DataType);
+    end;
+ end;
+end;
+{$ENDIF}
+
+exports GetDriverObject name func_GetDriverObject;
+
+procedure TDAEDBISAMQuery.ClearParams;
+begin
+  inherited;
+  TDBISAMQuery(Dataset).Params.Clear;
+end;
+
+procedure dbisam_InitializeReservedWords;
+begin
+  SetLength(dbisam_reservedwords, 220);
+  // sorted with TStringList.Sort (bds2007)  
+  dbisam_reservedwords[0] := 'ABS';
+  dbisam_reservedwords[1] := 'ACOS';
+  dbisam_reservedwords[2] := 'ADD';
+  dbisam_reservedwords[3] := 'ALL';
+  dbisam_reservedwords[4] := 'ALLTRIM';
+  dbisam_reservedwords[5] := 'ALTER';
+  dbisam_reservedwords[6] := 'AND';
+  dbisam_reservedwords[7] := 'AS';
+  dbisam_reservedwords[8] := 'ASC';
+  dbisam_reservedwords[9] := 'ASCENDING';
+  dbisam_reservedwords[10] := 'ASIN';
+  dbisam_reservedwords[11] := 'AT';
+  dbisam_reservedwords[12] := 'ATAN';
+  dbisam_reservedwords[13] := 'ATAN2';
+  dbisam_reservedwords[14] := 'AUTOINC';
+  dbisam_reservedwords[15] := 'AVG';
+  dbisam_reservedwords[16] := 'BETWEEN';
+  dbisam_reservedwords[17] := 'BINARY';
+  dbisam_reservedwords[18] := 'BIT';
+  dbisam_reservedwords[19] := 'BLOB';
+  dbisam_reservedwords[20] := 'BLOCK';
+  dbisam_reservedwords[21] := 'BOOL';
+  dbisam_reservedwords[22] := 'BOOLEAN';
+  dbisam_reservedwords[23] := 'BOTH';
+  dbisam_reservedwords[24] := 'BY';
+  dbisam_reservedwords[25] := 'BYTES';
+  dbisam_reservedwords[26] := 'CAST';
+  dbisam_reservedwords[27] := 'CEIL';
+  dbisam_reservedwords[28] := 'CEILING';
+  dbisam_reservedwords[29] := 'CHAR';
+  dbisam_reservedwords[30] := 'CHARACTER';
+  dbisam_reservedwords[31] := 'CHARCASE';
+  dbisam_reservedwords[32] := 'CHARS';
+  dbisam_reservedwords[33] := 'COALESCE';
+  dbisam_reservedwords[34] := 'COLUMN';
+  dbisam_reservedwords[35] := 'COLUMNS';
+  dbisam_reservedwords[36] := 'COMMIT';
+  dbisam_reservedwords[37] := 'COMPRESS';
+  dbisam_reservedwords[38] := 'CONCAT';
+  dbisam_reservedwords[39] := 'CONSTRAINT';
+  dbisam_reservedwords[40] := 'COS';
+  dbisam_reservedwords[41] := 'COT';
+  dbisam_reservedwords[42] := 'COUNT';
+  dbisam_reservedwords[43] := 'CREATE';
+  dbisam_reservedwords[44] := 'CURRENT_DATE';
+  dbisam_reservedwords[45] := 'CURRENT_GUID';
+  dbisam_reservedwords[46] := 'CURRENT_TIME';
+  dbisam_reservedwords[47] := 'CURRENT_TIMESTAMP';
+  dbisam_reservedwords[48] := 'DAY';
+  dbisam_reservedwords[49] := 'DAYOFWEEK';
+  dbisam_reservedwords[50] := 'DAYOFYEAR';
+  dbisam_reservedwords[51] := 'DAYSFROMMSECS';
+  dbisam_reservedwords[52] := 'DECIMAL';
+  dbisam_reservedwords[53] := 'DEFAULT';
+  dbisam_reservedwords[54] := 'DEGREES';
+  dbisam_reservedwords[55] := 'DELETE';
+  dbisam_reservedwords[56] := 'DELIMITER';
+  dbisam_reservedwords[57] := 'DESC';
+  dbisam_reservedwords[58] := 'DESCENDING';
+  dbisam_reservedwords[59] := 'DESCRIPTION';
+  dbisam_reservedwords[60] := 'DISTINCT';
+  dbisam_reservedwords[61] := 'DROP';
+  dbisam_reservedwords[62] := 'DUPBYTE';
+  dbisam_reservedwords[63] := 'ELSE';
+  dbisam_reservedwords[64] := 'EMPTY';
+  dbisam_reservedwords[65] := 'ENCRYPTED';
+  dbisam_reservedwords[66] := 'ESCAPE';
+  dbisam_reservedwords[67] := 'EXCEPT';
+  dbisam_reservedwords[68] := 'EXISTS';
+  dbisam_reservedwords[69] := 'EXP';
+  dbisam_reservedwords[70] := 'EXPORT';
+  dbisam_reservedwords[71] := 'EXTRACT';
+  dbisam_reservedwords[72] := 'FALSE';
+  dbisam_reservedwords[73] := 'FLOAT';
+  dbisam_reservedwords[74] := 'FLOOR';
+  dbisam_reservedwords[75] := 'FLUSH';
+  dbisam_reservedwords[76] := 'FOR';
+  dbisam_reservedwords[77] := 'FORCEINDEXREBUILD';
+  dbisam_reservedwords[78] := 'FROM';
+  dbisam_reservedwords[79] := 'FULL';
+  dbisam_reservedwords[80] := 'GRAPHIC';
+  dbisam_reservedwords[81] := 'GROUP';
+  dbisam_reservedwords[82] := 'GUID';
+  dbisam_reservedwords[83] := 'HAVING';
+  dbisam_reservedwords[84] := 'HEADERS';
+  dbisam_reservedwords[85] := 'HOUR';
+  dbisam_reservedwords[86] := 'HOURSFROMMSECS';
+  dbisam_reservedwords[87] := 'IDENT_CURRENT';
+  dbisam_reservedwords[88] := 'IDENTITY';
+  dbisam_reservedwords[89] := 'IF';
+  dbisam_reservedwords[90] := 'IFNULL';
+  dbisam_reservedwords[91] := 'IMPORT';
+  dbisam_reservedwords[92] := 'IN';
+  dbisam_reservedwords[93] := 'INCLUDE';
+  dbisam_reservedwords[94] := 'INDEX';
+  dbisam_reservedwords[95] := 'INNER';
+  dbisam_reservedwords[96] := 'INSERT';
+  dbisam_reservedwords[97] := 'INT';
+  dbisam_reservedwords[98] := 'INTEGER';
+  dbisam_reservedwords[99] := 'INTERSECT';
+  dbisam_reservedwords[100] := 'INTERVAL';
+  dbisam_reservedwords[101] := 'INTO';
+  dbisam_reservedwords[102] := 'IS';
+  dbisam_reservedwords[103] := 'JOIN';
+  dbisam_reservedwords[104] := 'KEY';
+  dbisam_reservedwords[105] := 'LARGEINT';
+  dbisam_reservedwords[106] := 'LAST';
+  dbisam_reservedwords[107] := 'LASTAUTOINC';
+  dbisam_reservedwords[108] := 'LCASE';
+  dbisam_reservedwords[109] := 'LEADING';
+  dbisam_reservedwords[110] := 'LEFT';
+  dbisam_reservedwords[111] := 'LENGTH';
+  dbisam_reservedwords[112] := 'LIKE';
+  dbisam_reservedwords[113] := 'LOCALE';
+  dbisam_reservedwords[114] := 'LOG';
+  dbisam_reservedwords[115] := 'LOG10';
+  dbisam_reservedwords[116] := 'LONGVARBINARY';
+  dbisam_reservedwords[117] := 'LONGVARCHAR';
+  dbisam_reservedwords[118] := 'LOWER';
+  dbisam_reservedwords[119] := 'LTRIM';
+  dbisam_reservedwords[120] := 'MAJOR';
+  dbisam_reservedwords[121] := 'MAX';
+  dbisam_reservedwords[122] := 'MAXIMUM';
+  dbisam_reservedwords[123] := 'MEMO';
+  dbisam_reservedwords[124] := 'MIN';
+  dbisam_reservedwords[125] := 'MINIMUM';
+  dbisam_reservedwords[126] := 'MINOR';
+  dbisam_reservedwords[127] := 'MINSFROMMSECS';
+  dbisam_reservedwords[128] := 'MINUTE';
+  dbisam_reservedwords[129] := 'MOD';
+  dbisam_reservedwords[130] := 'MONEY';
+  dbisam_reservedwords[131] := 'MONTH';
+  dbisam_reservedwords[132] := 'MSECOND';
+  dbisam_reservedwords[133] := 'MSECSFROMMSECS';
+  dbisam_reservedwords[134] := 'NOBACKUP';
+  dbisam_reservedwords[135] := 'NOCASE';
+  dbisam_reservedwords[136] := 'NOCHANGE';
+  dbisam_reservedwords[137] := 'NOJOINOPTIMIZE';
+  dbisam_reservedwords[138] := 'NONE';
+  dbisam_reservedwords[139] := 'NOT';
+  dbisam_reservedwords[140] := 'NULL';
+  dbisam_reservedwords[141] := 'NUMERIC';
+  dbisam_reservedwords[142] := 'OCCURS';
+  dbisam_reservedwords[143] := 'ON';
+  dbisam_reservedwords[144] := 'OPTIMIZE';
+  dbisam_reservedwords[145] := 'OR';
+  dbisam_reservedwords[146] := 'ORDER';
+  dbisam_reservedwords[147] := 'OUTER';
+  dbisam_reservedwords[148] := 'PAGE';
+  dbisam_reservedwords[149] := 'PI';
+  dbisam_reservedwords[150] := 'POS';
+  dbisam_reservedwords[151] := 'POSITION';
+  dbisam_reservedwords[152] := 'POWER';
+  dbisam_reservedwords[153] := 'PRIMARY';
+  dbisam_reservedwords[154] := 'RADIANS';
+  dbisam_reservedwords[155] := 'RAND';
+  dbisam_reservedwords[156] := 'RANGE';
+  dbisam_reservedwords[157] := 'REDEFINE';
+  dbisam_reservedwords[158] := 'RENAME';
+  dbisam_reservedwords[159] := 'REPAIR';
+  dbisam_reservedwords[160] := 'REPEAT';
+  dbisam_reservedwords[161] := 'REPLACE';
+  dbisam_reservedwords[162] := 'RIGHT';
+  dbisam_reservedwords[163] := 'ROLLBACK';
+  dbisam_reservedwords[164] := 'ROUND';
+  dbisam_reservedwords[165] := 'RTRIM';
+  dbisam_reservedwords[166] := 'RUNSUM';
+  dbisam_reservedwords[167] := 'SECOND';
+  dbisam_reservedwords[168] := 'SECSFROMMSECS';
+  dbisam_reservedwords[169] := 'SELECT';
+  dbisam_reservedwords[170] := 'SET';
+  dbisam_reservedwords[171] := 'SIGN';
+  dbisam_reservedwords[172] := 'SIN';
+  dbisam_reservedwords[173] := 'SIZE';
+  dbisam_reservedwords[174] := 'SMALLINT';
+  dbisam_reservedwords[175] := 'SPACE';
+  dbisam_reservedwords[176] := 'SQRT';
+  dbisam_reservedwords[177] := 'START';
+  dbisam_reservedwords[178] := 'STDDEV';
+  dbisam_reservedwords[179] := 'STOP';
+  dbisam_reservedwords[180] := 'SUBSTRING';
+  dbisam_reservedwords[181] := 'SUM';
+  dbisam_reservedwords[182] := 'TABLE';
+  dbisam_reservedwords[183] := 'TAN';
+  dbisam_reservedwords[184] := 'TEXT';
+  dbisam_reservedwords[185] := 'TEXTOCCURS';
+  dbisam_reservedwords[186] := 'TEXTSEARCH';
+  dbisam_reservedwords[187] := 'THEN';
+  dbisam_reservedwords[188] := 'TIME';
+  dbisam_reservedwords[189] := 'TIMESTAMP';
+  dbisam_reservedwords[190] := 'TO';
+  dbisam_reservedwords[191] := 'TOP';
+  dbisam_reservedwords[192] := 'TRAILBYTE';
+  dbisam_reservedwords[193] := 'TRAILING';
+  dbisam_reservedwords[194] := 'TRANSACTION';
+  dbisam_reservedwords[195] := 'TRIM';
+  dbisam_reservedwords[196] := 'TRUE';
+  dbisam_reservedwords[197] := 'TRUNC';
+  dbisam_reservedwords[198] := 'TRUNCATE';
+  dbisam_reservedwords[199] := 'UCASE';
+  dbisam_reservedwords[200] := 'UNION';
+  dbisam_reservedwords[201] := 'UNIQUE';
+  dbisam_reservedwords[202] := 'UPDATE';
+  dbisam_reservedwords[203] := 'UPGRADE';
+  dbisam_reservedwords[204] := 'UPPER';
+  dbisam_reservedwords[205] := 'USER';
+  dbisam_reservedwords[206] := 'VALUES';
+  dbisam_reservedwords[207] := 'VARBINARY';
+  dbisam_reservedwords[208] := 'VARBYTES';
+  dbisam_reservedwords[209] := 'VARCHAR';
+  dbisam_reservedwords[210] := 'VERIFY';
+  dbisam_reservedwords[211] := 'VERSION';
+  dbisam_reservedwords[212] := 'WEEK';
+  dbisam_reservedwords[213] := 'WHERE';
+  dbisam_reservedwords[214] := 'WITH';
+  dbisam_reservedwords[215] := 'WORD';
+  dbisam_reservedwords[216] := 'WORDS';
+  dbisam_reservedwords[217] := 'WORK';
+  dbisam_reservedwords[218] := 'YEAR';
+  dbisam_reservedwords[219] := 'YEARSFROMMSECS';
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+  dbisam_InitializeReservedWords;
+finalization
+  dbisam_reservedwords := nil;
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADBXDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADBXDriver.pas
new file mode 100644
index 0000000..19938af
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADBXDriver.pas	
@@ -0,0 +1,1046 @@
+unit uDADBXDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+
+{$R DataAbstract_DBXDriver_Glyphs.res}
+
+interface
+
+uses Windows,Classes, DB, uDAEngine, uDAInterfaces, uROClasses, SqlExpr,{$IFNDEF DELPHI11UP}DBXpress,{$ENDIF}
+     SqlConst, uDAUtils, uDAIBInterfaces, uDAAdoInterfaces,uDAMySQLInterfaces, {$IFDEF DELPHI9UP}uDASybaseInterfaces,{$ENDIF}
+     uDADB2Interfaces, uDAOracleInterfaces;
+
+const
+  // Standard dbExpress driver identifiers
+  dbx_UnknownId = '???';
+  dbx_MSSQLId = 'MSSQL';
+  dbx_InterbaseId = 'Interbase';
+  dbx_OracleId = 'Oracle';
+  dbx_DB2Id = 'DB2';
+  dbx_MySQLId = 'MYSQL';
+  dbx_InformixId = 'Informix';
+  {$IFDEF DELPHI9UP}
+  dbx_ASAid = 'ASA';
+  dbx_ASEid = 'ASE';
+  {$ENDIF}
+  {$IFDEF DELPHI14UP}
+  dbx_FirebirdID = 'Firebird';
+  {$ENDIF}
+
+
+
+type
+  // Standard dbExpress driver enumerated
+  TDADBXDriverType = (dbx_Unknown,
+    dbx_MSSQL,
+    dbx_Interbase,
+    dbx_Oracle,
+    dbx_DB2,
+    dbx_MySQL,
+    dbx_Informix
+  {$IFDEF DELPHI9UP}
+  , dbx_ASA, dbx_ASE
+  {$ENDIF DELPHI9UP}
+  {$IFDEF DELPHI14UP}
+  , dbx_Firebird
+  {$ENDIF}
+    );
+
+const
+  // Standard dbExpress driver identifier array (useful for lookups)
+  DBXDrivers: array[TDADBXDriverType] of string = (
+    dbx_UnknownId,
+    dbx_MSSQLId,
+    dbx_InterbaseId,
+    dbx_OracleId,
+    dbx_DB2Id,
+    dbx_MySQLId,
+    dbx_InformixId
+  {$IFDEF DELPHI9UP}
+   ,dbx_ASAid, dbx_ASEid
+  {$ENDIF DELPHI9UP}
+  {$IFDEF DELPHI14UP}
+  , dbx_FirebirdID
+  {$ENDIF}
+    );
+
+type
+  { TDADBXDriver }
+  TDADBXDriver = class(TDADriverReference)
+  end;
+
+  { TDAEDBXDriver }
+  TDAEDBXDriver = class(TDAEDriver, IDADriver40)
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+
+    procedure GetAuxDrivers(out List: IROStrings); override;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
+    // IDADriver40
+    function GetProviderDefaultCustomParameters(Provider: string): string; safecall;
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; safecall;
+  public
+  end;
+
+  { IDBXConnection
+      For identification purposes. }
+  IDBXConnection = interface
+    ['{D4E8FE6C-76B5-46FA-A850-2FD626960775}']
+    function GetDriverName: string;
+    function GetDriverType: TDADBXDriverType;
+
+    property DriverName: string read GetDriverName;
+    property DriverType: TDADBXDriverType read GetDriverType;
+  end;
+
+  { TDBXConnection }
+  TDBXConnection = class(TDAConnectionWrapper)
+  private
+    fSQLConnection: TSQLConnection;
+    fTransDesc: TTransactionDesc;
+
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: Boolean); override;
+
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+
+    property SQLConnection: TSQLConnection read fSQLConnection;
+    property TransDesc: TTransactionDesc read fTransDesc;
+  end;
+
+
+  { TDAEDBXConnection }
+  TDAEDBXConnection = class(TDAEConnection, IDAFileBasedDatabase,
+                            IDACanQueryDatabaseNames, IDAUseGenerators ,IDAUseGenerators2 ,{IDAADOConnection,}
+                            IDAInterbaseConnection, IDACanQueryGeneratorsNames,
+                            {$IFDEF DELPHI9UP}IDASybaseConnection,{$ENDIF}
+                            IDADB2Connection, IDAMySQLConnection,IDAOracleConnection)
+  private
+    fConnection: TDBXConnection;
+    fDriverName: string;
+    fDriverType: TDADBXDriverType;
+    fMSSQLSchemaEnabled: Boolean;
+    fSqlDialect: Integer;
+    FMySQLVersion: integer;
+    function GetMySQLVersion: integer;
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+    // TDAEConnection
+    function CreateCustomConnection: TCustomConnection; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+    function GetUserID: string; override; safecall;
+    procedure SetUserID(const Value: string); override; safecall;
+    function GetPassword: string; override; safecall;
+    procedure SetPassword(const Value: string); override; safecall;
+
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; safecall;
+    function GetQuoteChars: TDAQuoteCharArray; override;
+    // IDBXConnection
+    function GetDriverName: string;
+    function GetDriverType: TDADBXDriverType;
+    function GetSPSelectSyntax(HasArguments: Boolean): string; override;
+      safecall;
+    //IDAFileBasedDatabase
+    function GetFileExtensions: IROStrings;
+    //IDACanQueryDatabaseNames
+    function GetDatabaseNames: IROStrings;
+    //IDAUseGenerators
+    function GetNextAutoinc(const GeneratorName: string): integer; safecall;
+    //IDAUseGenerators2
+    function GetNextAutoinc2(const GeneratorName: string): variant; safecall;
+    // IDACanQueryGeneratorsNames
+    function GetGeneratorNames: IROStrings;
+  public
+    property MSSQLSchemaEnabled: Boolean read fMSSQLSchemaEnabled write fMSSQLSchemaEnabled;
+  end;
+
+  { TDAEDBXQuery }
+  TDAEDBXQuery = class(TDAEDataset,IDAMustSetParams)
+  private
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function IsNeedToFixFMTBCDIssue: Boolean; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+    procedure ClearParams; override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  { TDAEDBXStoredProcedure }
+  TDAEDBXStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function DBXDriverIdToDBXDriverType(const anID: string): TDADBXDriverType;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses SysUtils, Variants, SqlTimSt, INIFiles,
+    {$IFDEF DELPHI12UP}
+    // full set of files
+    DbxDb2,DbxInformix,DbxInterbase,DbxMSSQL,DbxMySql,DbxOracle,DbxSybaseASA,DbxSybaseASE,
+    {$ENDIF}
+  {$IFDEF DELPHI14UP}
+  DbxFirebird,
+  {$ENDIF}
+  uDADriverManager, uDARes, uDAMacroProcessors,
+  uROBinaryHelpers,uDASQL92Interfaces;
+
+// TODO: Add support for IADOConnection and IInterbaseConnection, etc by redefining QueryInterface in TDAEDBXConnection
+
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDADBXDriver]);
+end;
+
+function GetDriverObject: IDADriver;
+begin
+  if (_driver = nil) then _driver := TDAEDBXDriver.Create(nil);
+  result := _driver;
+end;
+
+function DBXDriverIdToDBXDriverType(const anID: string): TDADBXDriverType;
+var
+  x: TDADBXDriverType;
+begin
+  result := dbx_Unknown;
+
+  for x := Low(TDADBXDriverType) to High(TDADBXDriverType) do
+    if AnsiSameText(DBXDrivers[x], anID) then begin
+      result := x;
+      Exit;
+    end;
+  //RaiseError('Unknown dbExpress driver %s', [anID]);
+end;
+
+{ TDBXConnection }
+
+constructor TDBXConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+  fSQLConnection := TSQLConnection.Create(nil);
+end;
+
+destructor TDBXConnection.Destroy;
+begin
+  inherited;
+  fSQLConnection.Free;
+end;
+
+function TDBXConnection.GetConnected: Boolean;
+begin
+  result := fSQLConnection.Connected
+end;
+
+procedure TDBXConnection.SetConnected(Value: Boolean);
+begin
+  fSQLConnection.Connected := Value;
+end;
+
+{ TDAEDBXConnection }
+{$IFDEF DELPHI2009UP}
+const
+  SDriverNotInConfigFile = 'Driver (%s) not found in Cfg file (%s)';
+{$ENDIF}
+
+procedure TDAEDBXConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+
+  function GetProfileString(Section, Setting, IniFileName: string): string;
+  var
+    IniFile: TMemIniFile;
+    List: TStrings;
+  begin
+    List := TStringList.Create;
+    try
+      IniFile := TMemIniFile.Create(IniFileName);
+      IniFile.ReadSectionValues(Section, List);
+      try
+        Result := List.Values[Setting];
+      finally
+        IniFile.Free;
+      end;
+    finally
+      List.Free;
+    end;
+  end;
+
+var
+  i: integer;
+  drvregfile: string;
+begin
+  inherited;
+  FMySQLVersion := -1;
+  with aConnStrParser do begin
+
+    with TDBXConnection(aConnectionObject).SQLConnection do begin
+      DriverName := AuxDriver;
+
+      fDriverType := DBXDriverIdToDBXDriverType(AuxDriver);
+
+      drvregfile := GetDriverRegistryFile(false);
+
+      try
+        VendorLib := GetProfileString(DriverName, VENDORLIB_KEY, drvregfile);
+        LibraryName := GetProfileString(DriverName, DLLLIB_KEY, drvregfile);
+        GetDriverFunc := GetProfileString(DriverName, GETDRIVERFUNC_KEY, drvregfile);
+      except
+        DatabaseErrorFmt(SDriverNotInConfigFile, [DriverName, drvregfile]);
+      end;
+
+      Params.Clear;
+      Params.Values[szUSERNAME] := UserID;
+      Params.Values[szPASSWORD] := Password;
+      if fDriverType in [dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}] then begin // Dbx requires a seperate host field for Interbase
+        if Trim(Server) <> '(local)' then
+          Params.Values[DATABASENAME_KEY] := Server + ':' + Database
+        else
+          Params.Values[DATABASENAME_KEY] := Database;
+        if auxParams[SQLDIALECT_KEY] = '' then begin
+          AuxParams[SQLDIALECT_KEY] := '3'; // default to 3
+        end;
+      end else begin
+        Params.Values[HOSTNAME_KEY] := Server;
+        Params.Values[DATABASENAME_KEY] := Database;
+      end;
+      fMSSQLSchemaEnabled := false;
+      for i := 0 to (AuxParamsCount - 1) do begin
+        if AnsiSameText(AuxParamNames[i], 'DriverName') then
+           fConnection.fSQLConnection.DriverName:=AuxParams[AuxParamNames[i]]
+        else if AnsiSameText(AuxParamNames[i], 'GetDriverFunc') then
+           fConnection.fSQLConnection.GetDriverFunc:=AuxParams[AuxParamNames[i]]
+        else if AnsiSameText(AuxParamNames[i], 'LibraryName') then
+           fConnection.fSQLConnection.LibraryName:=AuxParams[AuxParamNames[i]]
+        else if AnsiSameText(AuxParamNames[i], 'TableScope') then begin
+          if AnsiSameText(AuxParams[AuxParamNames[i]], 'Synonyms') then
+            TableScope := [tsTable, tsView, tsSynonym]
+          else
+            TableScope := [tsTable, tsView]
+        end
+        else if AnsiSameText(AuxParamNames[i], 'Schemas') then
+          fMSSQLSchemaEnabled := AuxParams['Schemas'] = '1'
+        else begin
+          Params.Add(AuxParamNames[i] + '=' + AuxParams[AuxParamNames[i]]);
+        end;
+      end;
+      LoginPrompt := FALSE;
+      if fDriverType in [dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}] then fSqlDialect := StrToIntDef(AuxParams[SQLDIALECT_KEY],3);
+    end;
+  end;
+end;
+
+function TDAEDBXConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+
+  // TODO: allow more flexibility here...
+  fConnection.fTransDesc.TransactionID := 1;
+  fConnection.fTransDesc.IsolationLevel := xilREADCOMMITTED;
+{$IFDEF DELPHI10UP}{$WARN SYMBOL_DEPRECATED OFF}{$ENDIF}
+  fConnection.fSQLConnection.StartTransaction(fConnection.fTransDesc);
+{$IFDEF DELPHI10UP}{$WARN SYMBOL_DEPRECATED ON}{$ENDIF}
+end;
+
+procedure TDAEDBXConnection.DoCommitTransaction;
+begin
+{$IFDEF DELPHI10UP}{$WARN SYMBOL_DEPRECATED OFF}{$ENDIF}
+  fConnection.fSQLConnection.Commit(fConnection.fTransDesc);
+{$IFDEF DELPHI10UP}{$WARN SYMBOL_DEPRECATED ON}{$ENDIF}
+end;
+
+function TDAEDBXConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TDBXConnection.Create(nil);
+  fConnection.SQLConnection.LoginPrompt := FALSE;
+  result := fConnection;
+end;
+
+function TDAEDBXConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEDBXQuery;
+end;
+
+function TDAEDBXConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEDBXStoredProcedure;
+end;
+
+procedure TDAEDBXConnection.DoGetStoredProcedureNames(out List: IROStrings);
+begin
+  inherited DoGetStoredProcedureNames(List);
+  case fDriverType of
+    dbx_MSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, MSSQLSchemaEnabled);
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    dbx_MySQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure,fConnection.SQLConnection.Params.Values[DATABASENAME_KEY],GetMySQLVersion);
+    dbx_Oracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure);
+  else
+{$IFDEF DELPHI10UP}{$WARN SYMBOL_DEPRECATED OFF}{$ENDIF}
+    fConnection.fSQLConnection.GetProcedureNames(List.Strings);
+{$IFDEF DELPHI10UP}{$WARN SYMBOL_DEPRECATED ON}{$ENDIF}
+  end;
+end;
+
+procedure TDAEDBXConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  case fDriverType of
+    dbx_MySQL: MYSQL_DoGetStoredProcedureParams(aStoredProcedureName,GetDatasetClass.Create(Self),Params,fConnection.SQLConnection.Params.Values[DATABASENAME_KEY]);
+    dbx_MSSQL: MSSQL_DoGetStoredProcedureParams(aStoredProcedureName,GetDatasetClass.Create(Self),Params);
+  else
+    inherited;
+  end;
+end;
+
+procedure TDAEDBXConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited DoGetTableNames(List);
+  case fDriverType of
+    dbx_MSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, MSSQLSchemaEnabled);
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotTable);
+    dbx_MySQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable,fConnection.SQLConnection.Params.Values[DATABASENAME_KEY],GetMySQLVersion);
+    dbx_Oracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotTable);
+  else
+    fConnection.fSQLConnection.GetTableNames(List.Strings);
+  end;
+end;
+
+procedure TDAEDBXConnection.DoRollbackTransaction;
+begin
+{$WARNINGS OFF}
+  fConnection.fSQLConnection.Rollback(fConnection.fTransDesc);
+{$WARNINGS ON}  
+end;
+
+function TDAEDBXConnection.DoGetInTransaction: boolean;
+begin
+  result := fConnection.fSQLConnection.InTransaction
+end;
+
+function TDAEDBXConnection.GetDriverName: string;
+begin
+  result := fDriverName
+end;
+
+function TDAEDBXConnection.GetDriverType: TDADBXDriverType;
+begin
+  result := fDriverType
+end;
+
+function TDAEDBXConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  case fDriverType of
+    dbx_MSSQL: result := MSSQL_CreateMacroProcessor;
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: result := IB_CreateMacroProcessor;
+    dbx_Oracle: result := Oracle_CreateMacroProcessor;
+  else
+    result := inherited CreateMacroProcessor;  
+  end;
+end;
+
+function TDAEDBXConnection.GetPassword: string;
+begin
+  Result := fConnection.SQLConnection.Params.Values[szPASSWORD];
+end;
+
+function TDAEDBXConnection.GetUserID: string;
+begin
+  Result := fConnection.SQLConnection.Params.Values[szUSERNAME];
+end;
+
+procedure TDAEDBXConnection.SetPassword(const Value: string);
+begin
+  fConnection.SQLConnection.Params.Values[szPASSWORD] := Value;
+end;
+
+procedure TDAEDBXConnection.SetUserID(const Value: string);
+begin
+  fConnection.SQLConnection.Params.Values[szUSERNAME] := Value;
+end;
+
+function TDAEDBXConnection.GetSPSelectSyntax(
+  HasArguments: Boolean): string;
+begin
+  case fDriverType of
+    dbx_MSSQL:  Result := MSSQL_GetSPSelectSyntax(HasArguments);
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: Result := IB_GetSPSelectSyntax(HasArguments);
+    dbx_Oracle: Result := Oracle_GetSPSelectSyntax(HasArguments);
+  else
+    Result := inherited GetSPSelectSyntax(HasArguments);
+  end;
+end;
+
+function TDAEDBXConnection.GetFileExtensions: IROStrings;
+begin
+  case fDriverType of
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: result := IB_GetFileExtensions;
+  else
+    result := TROStrings.Create;
+  end;
+end;
+
+function TDAEDBXConnection.GetGeneratorNames: IROStrings;
+begin
+  case fDriverType of
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: Result:= IB_GetGeneratorNames(GetDatasetClass.Create(Self));
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+function TDAEDBXConnection.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  Result := E_NOINTERFACE;
+
+  {$IFDEF DELPHI9UP}
+  if IsEqualGUID(IID, IDASybaseConnection) then begin
+    if not (fDriverType in [dbx_ASA, dbx_ASE]) then Exit;
+  end
+  else
+  {$ENDIF}
+  if IsEqualGUID(IID, IDADB2Connection) then begin
+    if not (fDriverType in [dbx_DB2]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDAInterbaseConnection) then begin
+    if not (fDriverType in [dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDAADOConnection) then begin
+    if not (fDriverType in [dbx_MSSQL]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDAMySQLConnection) then begin
+    if not (fDriverType in [dbx_MySQL]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDAOracleConnection) then begin
+    if not (fDriverType in [dbx_Oracle]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDAUseGenerators) or IsEqualGUID(IID, IDAUseGenerators2) then begin
+    if not (fDriverType in [dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF},dbx_Oracle]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDACanQueryGeneratorsNames) then begin
+    if not (fDriverType in [dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDAFileBasedDatabase) then begin
+    if not (fDriverType in [dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}]) then Exit;
+  end
+  else if IsEqualGUID(IID, IDACanQueryDatabaseNames) then begin
+    if not (fDriverType in [dbx_MSSQL, dbx_Oracle, dbx_MySQL {$IFDEF DELPHI9UP}, dbx_ASA, dbx_ASE{$ENDIF DELPHI9UP}]) then Exit;
+  end;
+
+  Result := inherited QueryInterface(IID, Obj);
+end;
+
+function TDAEDBXConnection.GetDatabaseNames: IROStrings;
+begin
+  case fDriverType of
+    dbx_MSSQL: Result:=MSSQL_GetDatabaseNames(Self);
+    dbx_MySQL: Result:=MYSQL_GetDatabaseNames(Self);
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+procedure TDAEDBXConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited DoGetViewNames(List);
+  case fDriverType of
+    dbx_MSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, MSSQLSchemaEnabled);
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotView);
+    dbx_MySQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView,fConnection.SQLConnection.Params.Values[DATABASENAME_KEY],GetMySQLVersion);
+    dbx_Oracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+  else
+    //
+  end;
+end;
+
+procedure TDAEDBXConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited DoGetForeignKeys(ForeignKeys);
+  case fDriverType of
+    dbx_MSSQL: MSSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, MSSQLSchemaEnabled);
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: IB_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    dbx_MySQL: MYSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys,fConnection.SQLConnection.Params.Values[DATABASENAME_KEY],GetMySQLVersion);
+    dbx_ORACLE: Oracle_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+  else
+    //
+  end;
+end;
+
+procedure TDAEDBXConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  case fDriverType of
+    dbx_MSSQL: MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: IB_GetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    dbx_MySQL: MYSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields,fConnection.SQLConnection.Params.Values[DATABASENAME_KEY],GetMySQLVersion);
+    dbx_Oracle: Oracle_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+  else
+    inherited DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), Fields);
+  end;
+end;
+
+function TDAEDBXConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  case fDriverType of
+    dbx_MSSQL: Result := MSSQL_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: Result := IB_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dbx_Oracle: Result := Oracle_DoGetLastAutoInc(GeneratorName,GetDatasetClass.Create(Self));
+    dbx_MySQL: Result := MySQL_GetLastAutoInc(GeneratorName,GetDatasetClass.Create(Self));
+  else
+    Result := inherited DoGetLastAutoInc(GeneratorName);
+  end;
+end;
+
+function TDAEDBXConnection.GetNextAutoinc(
+  const GeneratorName: string): integer;
+begin
+  Result := GetNextAutoinc2(GeneratorName);
+end;
+
+function TDAEDBXConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier);
+  if not Result then
+    case fDriverType of
+      dbx_MSSQL: Result := MSSQL_IdentifierNeedsQuoting(iIdentifier);
+      dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: Result := IB_IdentifierNeedsQuoting(iIdentifier, fSqlDialect);
+      dbx_MySQL: Result := MYSQL_IdentifierNeedsQuoting(iIdentifier);
+      dbx_ORACLE: Result := Oracle_IdentifierNeedsQuoting(iIdentifier);
+      dbx_DB2: Result := DB2_IdentifierNeedsQuoting(iIdentifier);
+      {$IFDEF DELPHI9UP}
+      dbx_ASA, dbx_ASE: Result := Sybase_IdentifierNeedsQuoting(iIdentifier);
+      {$ENDIF DELPHI9UP}
+    else
+      Result:= SQL92_IdentifierNeedsQuoting(iIdentifier);
+    end;
+end;
+
+function TDAEDBXConnection.GetQuoteChars: TDAQuoteCharArray;
+begin
+  case fDriverType of
+    dbx_Oracle: Result:=Oracle_GetQuoteChars;
+  else
+    Result:= inherited GetQuoteChars;
+  end;    
+end;
+
+function TDAEDBXConnection.GetMySQLVersion: integer;
+begin
+  if FMySQLVersion = -1 then FMySQLVersion := MYSQL_GetVersion(GetDatasetClass.Create(Self));
+  Result := FMySQLVersion;
+end;
+
+{ TDAEDBXDriver }
+
+function TDAEDBXDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAEDBXDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEDBXConnection;
+end;
+
+function TDAEDBXDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  case DBXDriverIdToDBXDriverType(AuxDriver) of
+    dbx_MSSQL: Result:=MSSQL_DriverType;
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: Result:=IB_DriverType;
+    dbx_Oracle: Result:=Oracle_DriverType;
+    dbx_DB2: Result:=DB2_DriverType;
+    dbx_MySQL: Result:=MySQL_DriverType;
+    dbx_Informix: Result:=Informix_DriverType;
+  {$IFDEF DELPHI9UP}
+    dbx_ASA,dbx_ASE : Result:=ASA_DriverType;
+  {$ENDIF DELPHI9UP}
+  else
+    Result := inherited GetDefaultConnectionType(AuxDriver);
+  end;
+end;
+
+function TDAEDBXDriver.GetDescription: string;
+begin
+  result := 'Borland DBXExpress Driver';
+end;
+
+function TDAEDBXDriver.GetDriverID: string;
+begin
+  result := 'DBX';
+end;
+
+procedure TDAEDBXDriver.GetAuxDrivers(out List: IROStrings);
+var
+  i: Integer;
+  lDriversIni: string;
+  x: TDADBXDriverType;
+begin
+  List := NewROStrings;
+
+  lDriversIni := GetDriverRegistryFile(false);
+  if FileExists(lDriversIni) then begin
+    with TMemIniFile.Create(lDriversIni) do try
+      ReadSections(List.Strings);
+      for i := List.Count - 1 downto 0 do begin
+        if not ValueExists(List[i], 'LibraryName') then List.Delete(i);
+      end; { for }
+    finally
+      Free();
+    end;
+  end
+  else begin
+    for x := Low(TDADBXDriverType) to High(TDADBXDriverType) do
+      if (x <> dbx_Unknown) {// Redundant but safe if I change the enum later...} then
+        List.Add(DBXDrivers[x])
+  end;
+  List.Sorted:=True;
+end;
+
+procedure TDAEDBXDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  List.Add('TableScope=Synonyms');
+  List.Add('DriverName=<DriverName>');
+  List.Add('GetDriverFunc=<GetDriverFunc>');
+  List.Add('LibraryName=<LibraryName>');
+  case DBXDriverIdToDBXDriverType(AuxDriver) of
+    dbx_MSSQL: List.Add('Schemas=(0,1)');
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: List.Add('Interbase TransIsolation=(ReadCommited,RepeatableRead)');
+  end;
+end;
+
+function TDAEDBXDriver.GetProviderDefaultCustomParameters(
+  Provider: string): string;
+begin
+  Result := '';
+  case DBXDriverIdToDBXDriverType(Provider) of
+    dbx_MSSQL: Result := 'Schemas=0;';
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: Result:='Interbase TransIsolation=ReadCommited;';
+  end;
+end;
+
+{ TDAEDBXQuery }
+
+procedure TDAEDBXQuery.ClearParams;
+begin
+  inherited;
+  TSQLQuery(Dataset).Params.Clear;
+end;
+
+function TDAEDBXQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TSQLQuery.Create(nil);
+
+  //TSQLQuery(result).rea
+  //TSQLQuery(result).CursorLocation := clUseClient;
+  //TSQLQuery(result).CursorType := ctOpenForwardOnly;
+  TSQLQuery(result).SQLConnection := TDAEDBXConnection(aConnection).fConnection.fSQLConnection;
+end;
+
+{$IFNDEF DELPHI12UP}
+function GetBlobValue(const val: Variant): string;
+var
+  lsize: integer;
+  p: Pointer;
+begin
+  if VarType(val) = 8209 then
+  begin
+    lSize := VarArrayHighBound(val, 1) - VarArrayLowBound(val, 1) + 1;
+    p := VarArrayLock(val);
+    try
+      setlength(REsult, lSize);
+      move(p^, Result[1], lSize);
+    finally
+      VarArrayUnlock(val);
+    end;
+  end else if vartype(val) = varEmpty then
+    result := ''
+  else
+    result := val;
+end;
+{$ELSE}
+function GetBlobValue(const val: Variant): TBytes;
+var
+  Data: UnicodeString;
+  lData: Ansistring;
+  Len: Integer;
+  lsize: integer;
+  p: Pointer;
+begin
+  if VarType(val) = 8209 then begin
+    lSize := VarArrayHighBound(val, 1) - VarArrayLowBound(val, 1) + 1;
+    p := VarArrayLock(val);
+    try
+      setlength(Result, lSize);
+      move(p^, Result[0], lSize);
+    finally
+      VarArrayUnlock(val);
+    end;
+  end
+  else if vartype(val) = varEmpty then
+    Result := Null
+  else if (VarType(Val) = varOleStr) or (VarType(Val) = varUString) then begin
+    Data := VarToStr(Val);
+    Len := Length(Data);
+    SetLength(Result, Len * SizeOf(Char));
+    Move(Pointer(Data)^, Pointer(Result)^, Len * SizeOf(Char));
+  end
+  else if VarType(Val) = varString then begin
+    lData := PAnsiChar(TVarData(Val).vString);
+    Len := Length(lData);
+    SetLength(Result, Len);
+    Move(Pointer(lData)^, Pointer(Result)^, Len);
+  end
+  else
+    Result := val;
+end;
+{$ENDIF}
+
+function TDAEDBXQuery.DoExecute: integer;
+var
+  i: Integer;
+  refParams: TParams;
+  dapar: TDAParam;
+  lDriverName: string;
+begin
+  if Assigned(DataSet) and Assigned(TSQLQuery(DataSet).SQLConnection) and
+    Assigned(TSQLQuery(DataSet).Params) then begin
+    lDriverName := TSQLQuery(DataSet).SQLConnection.DriverName;
+    refParams := TSQLQuery(DataSet).Params;
+    case DBXDriverIdToDBXDriverType(lDriverName) of
+      dbx_Oracle: begin
+          for i := 0 to refParams.Count - 1 do begin
+            case VarType(refParams[i].Value) of
+              varInteger,
+                varSmallInt,
+                varShortInt,
+                varWord,
+                varByte,
+                varLongWord:
+                refParams[i].AsString := VarToStr(refParams[i].Value);
+              varSingle,
+                varDouble,
+                varCurrency:
+                refParams[i].AsBCD := StrToCurr(VarToStr(refParams[i].Value));
+              varDate:
+                refParams[i].AsSQLTimeStamp := DateTimeToSQLTimeStamp(VarToDateTime(refParams[i].Value));
+            end;
+          end;
+        end;
+      dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: begin
+          for i := 0 to refParams.Count - 1 do begin
+            dapar := GetParams.FindParam(refParams[i].Name);
+            if (dapar <> nil) then begin
+              if dapar.DataType = datBlob then begin
+                refParams[i].AsBlob := GetBlobValue(dapar.AsVariant);
+                continue;
+              end;
+              if dapar.DataType = datMemo then begin
+                refParams[i].AsMemo := dapar.AsVariant;
+                continue;
+              end;
+            end;
+            case VarType(refParams[i].Value) of
+              varDate:
+                refParams[i].AsSQLTimeStamp := DateTimeToSQLTimeStamp(VarToDateTime(refParams[i].Value));
+            end;
+          end;
+        end;
+      dbx_MySQL: begin
+        if UpperCase(TSQLQuery(DataSet).SQLConnection.LibraryName) = 'DBXOPENMYSQL50.DLL' then
+        for i := 0 to refParams.Count - 1 do begin
+            case VarType(refParams[i].Value) of
+              varDate:
+                refParams[i].AsSQLTimeStamp := DateTimeToSQLTimeStamp(VarToDateTime(refParams[i].Value));
+            end;
+        end;
+      end
+    else ;
+    end;
+  end;
+
+  Result := TSQLQuery(Dataset).ExecSQL;
+end;
+
+function TDAEDBXQuery.DoGetSQL: string;
+begin
+  result := TSQLQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEDBXQuery.DoPrepare(Value: boolean);
+begin
+  TSQLQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEDBXQuery.DoSetSQL(const Value: string);
+begin
+  TSQLQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEDBXQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TSQLQuery(Dataset).Params);
+end;
+
+function TDAEDBXQuery.IsNeedToFixFMTBCDIssue: Boolean;
+var
+  i: integer;
+begin
+  Result:=False;
+  For i:=0 to TSQLQuery(Dataset).FieldCount-1 do begin
+    Result:= TSQLQuery(Dataset).Fields[i].DataType = ftFMTBcd;
+    if Result then Break;
+  end;
+end;
+
+procedure TDAEDBXQuery.SetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  p: TParams;
+begin
+  SetParamValuesStd(AParams, TSQLQuery(Dataset).Params);
+    p := TSQLQuery(Dataset).Params;
+  for I := 0 to p.Count - 1 do
+    if p[i].DataType = ftLargeint then
+       p[i].DataType := ftFMTBcd;
+end;
+
+{ TDAEDBXStoredProcedure }
+
+function TDAEDBXStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TSQLStoredProc.Create(nil);
+  TSQLStoredProc(result).SQLConnection := TDAEDBXConnection(aConnection).fConnection.fSQLConnection;
+end;
+
+procedure TDAEDBXStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TSQLStoredProc(Dataset).Params);
+end;
+
+procedure TDAEDBXStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TSQLStoredProc(Dataset).Params);
+end;
+
+function TDAEDBXStoredProcedure.Execute: integer;
+begin
+  SetParamValues(GetParams);
+  Result:= DoExecute;
+  GetParamValues(GetParams);
+end;
+
+function TDAEDBXStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TSQLStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEDBXStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TSQLStoredProc(Dataset).StoredProcName := Name;
+end;
+
+procedure TDAEDBXStoredProcedure.RefreshParams;
+begin
+  TSQLStoredProc(Dataset).Prepared := True;
+  RefreshParamsStd(TSQLStoredProc(Dataset).Params)
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+function TDAEDBXStoredProcedure.DoExecute: integer;
+begin
+  Result := TSQLStoredProc(Dataset).ExecProc;
+end;
+
+function TDAEDBXConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  case fDriverType of
+    dbx_Interbase{$IFDEF DELPHI14UP},dbx_Firebird{$ENDIF}: Result := IB_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+    dbx_Oracle:   Result := Oracle_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+  else
+    result := -1;
+  end;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADOADriver.dcr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADOADriver.dcr
new file mode 100644
index 0000000..3e5d914
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADOADriver.dcr differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADOADriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADOADriver.pas
new file mode 100644
index 0000000..52fdd6c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDADOADriver.pas	
@@ -0,0 +1,692 @@
+unit uDADOADriver;
+
+// if using DOA 4.0 or higher activate this define
+{$DEFINE DOA4}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_DOADriver_Glyphs.res}
+
+interface
+
+uses
+  DB,
+  Classes,
+  uROClasses,
+  uDAEngine,
+  uDAInterfaces,
+  uDAOracleInterfaces,
+  uDAUtils,
+  Oracle,
+  OracleData;
+
+type
+
+  TDADOADriver = class(TDADriverReference)
+  end;
+
+  TDAEDOADriver = class(TDAOracleDriver)
+  private
+    fTraceCallBack: TDALogTraceEvent; // UKO 26.09.2003
+  protected
+    procedure DoSetTraceOptions(TraceActive: Boolean; TraceOptions:
+      TDATraceOptions; Callback: TDALogTraceEvent); override;
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
+    function GetConnectionClass: TDAEConnectionClass; override;
+    function GetDefaultCustomParameters: string; override;
+    function GetDescription: string; override;
+    function GetDriverID: string; override;
+
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+  end;
+
+  TDAEDOAConnection = class(TDAOracleConnection)
+  private
+    function GetOracleSession: TOracleSession;
+  protected
+    function CreateCompatibleQuery: IDADataset; override;
+    function CreateCustomConnection: TCustomConnection; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+
+    function DoGetInTransaction: boolean; override;
+    function DoBeginTransaction: Integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function GetDataSetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+    property OracleSession: TOracleSession read GetOracleSession;
+  end;
+
+  TDAEDOAQuery = class(TDAEDataSet,  IOracleDataSet)
+  private
+    function LockModeDaToDoa(LockMode: TDAOracleLockMode): TLockingModeOptions;
+    function LockModeDoaToDa(LockMode: TLockingModeOptions): TDAOracleLockMode;
+  protected
+    procedure ClearParams; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function DoExecute: Integer; override;
+    function DoGetSQL: string; override;
+    procedure DoPrepare(Value: Boolean); override;
+    procedure DoSetSQL(const Value: string); override;
+    function GetLockMode: TDAOracleLockMode;
+    function GetOptions: TDAOracleOptions;
+    procedure SetLockMode(Value: TDAOracleLockMode);
+    procedure SetOptions(Value: TDAOracleOptions);
+    procedure SetParamValues(Params: TDAParamCollection); override; safecall;
+    procedure GetParamValues(Params: TDAParamCollection); override; safecall;
+  end;
+
+  TDAEDOAStoredProcedure = class(TDAEStoredProcedure)
+  private
+    fProcedureName: string;
+    FConnection: TDAEDOAConnection;
+    procedure DoGetParams;
+    function DoGetParamsResult: TDAParam;
+    procedure DoSetSource;
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function Execute: Integer; override;
+    function GetStoredProcedureName: string; override;
+    procedure RefreshParams; override;
+    procedure SetParamValues(Params: TDAParamCollection); override; safecall;
+    procedure GetParamValues(Params: TDAParamCollection); override; safecall;
+    procedure SetStoredProcedureName(const Name: string); override;
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils,
+  uDADriverManager,
+  uDARes;
+
+type
+  TDADOAInternalConnection = class(TCustomConnection)
+  private
+    fOracleSession: TOracleSession;
+  protected
+    procedure DoConnect; override;
+    procedure DoDisconnect; override;
+    function GetConnected: Boolean; override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property Session: TOracleSession read fOracleSession;
+  end;
+
+  TOraPath = record
+    aScheme: string;
+    aPackage: string;
+    aObject: string;
+  end;
+
+var
+  _Driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDADOADriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEDOADriver.Create(nil);
+  result := _driver;
+end;
+
+
+function HandleSqlName(AParamName: string; AParamType: TDAParamType): string;
+begin
+  Result := AParamName;
+  if AParamType = daptResult then Result := 'result';
+end;
+
+function DataTypeDaToOra(AType: TDADataType): Integer;
+const
+  Error = 'INTERNAL: not supported by DOA';
+begin
+  Result := otString;
+  case AType of
+    datUnknown: raise Exception.Create(Error);
+    datGuid, datString: Result := otString;
+    datDateTime: Result := otDate;
+    datSingleFloat, datFloat, datCurrency: Result := otFloat;
+    datByte,
+    datShortInt,
+    datWord,
+    datCardinal,
+    datAutoInc,
+    datInteger,
+    datLargeInt: Result := otInteger;
+    datBoolean: Result := otInteger; // needs a special handling
+    datMemo: Result := otClob;
+    datBlob: Result := otBlob;
+    datWideString: Result := otVarchar2;
+    datXml,
+    datWideMemo : Result := otNCLOB;
+    datLargeAutoInc, datLargeUInt,datDecimal : Result := otNumber;
+  end;
+end;
+
+procedure SetDataSetParams(Params: TDAParamCollection; DataSet: TDataSet);
+var
+  I: Integer;
+  Ds: TOracleDataSet;
+  ParamIndex, OraType: Integer;
+  Name: string;
+begin
+  Ds := TOracleDataSet(DataSet);
+  if Ds.Variables.Count > Params.Count then
+    for I := Ds.VariableCount - 1 downto 0 do
+      if Params.ParamByName(Ds.VariableName(I)) = nil then
+        Ds.DeleteVariable(Ds.VariableName(I));
+
+  for I := 0 to Params.Count - 1 do
+  begin
+    ParamIndex := Ds.VariableIndex(Params[I].Name);
+    Name := HandleSqlName(Params[I].Name, Params[I].ParamType);
+    OraType := DataTypeDaToOra(Params[I].DataType);
+    // New Param
+    if ParamIndex = -1 then
+      Ds.DeclareVariable(Name, OraType);
+    // Changed Param
+    if (ParamIndex > -1) and (Ds.VariableType(ParamIndex) <> DataTypeDaToOra(
+      Params[I].DataType)) then
+    begin
+      Ds.DeleteVariable(Params[I].Name);
+      Ds.DeclareVariable(Name, OraType);
+    end;
+    // Set value
+    if Params[I].DataType = datBoolean then
+      Ds.SetVariable(Name, Integer(Params[I].Value))
+    else
+      Ds.SetVariable(Name, Params[I].Value);
+  end;
+end;
+
+{ INTERNAL CLASSES *********************************************************** }
+{
+*************************** TDADOAInternalConnection ***************************
+}
+
+constructor TDADOAInternalConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+  fOracleSession := TOracleSession.Create(nil);
+end;
+
+destructor TDADOAInternalConnection.Destroy;
+begin
+  fOracleSession.Free;
+  inherited;
+end;
+
+procedure TDADOAInternalConnection.DoConnect;
+begin
+  fOracleSession.LogOn;
+end;
+
+procedure TDADOAInternalConnection.DoDisconnect;
+begin
+  fOracleSession.LogOff;
+end;
+
+function TDADOAInternalConnection.GetConnected: Boolean;
+begin
+  Result := fOracleSession.Connected;
+end;
+
+{ PUBLIC CLASSES ************************************************************* }
+{
+******************************** TDAEDOADriver *********************************
+}
+
+// -----------------------------------------------------------------------------
+// TDAEDOADriver.DoSetTraceOptions
+//
+// Tracing can only be enabled when DOA Version 4.0 or higher is used.
+// UKO 26.09.2003 21:14:47
+//
+
+procedure TDAEDOADriver.DoSetTraceOptions(TraceActive: Boolean; TraceOptions:
+  TDATraceOptions; Callback: TDALogTraceEvent);
+begin
+  inherited;
+
+  if TraceActive then
+  begin
+    fTraceCallBack := Callback;
+
+    {$IFDEF DOA4}
+    EnableMonitor;
+    {$ENDIF}
+  end
+  else
+  begin
+    fTraceCallBack := nil;
+
+    {$IFDEF DOA4}
+    DisableMonitor;
+    {$ENDIF}
+  end;
+
+end;
+
+procedure TDAEDOADriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+end;
+
+// -----------------------------------------------------------------------------
+// TDAEDOADriver.GetAvailableDriverOptions
+//
+// Only Database, Login and Custom needed. doServerName is not needed !
+//
+// UKO 25.09.2003 17:51:31
+//
+
+function TDAEDOADriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  Result := [doDatabaseName, doLogin{, doCustom}];
+end;
+
+function TDAEDOADriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  Result := TDAEDOAConnection;
+end;
+
+function TDAEDOADriver.GetDefaultCustomParameters: string;
+begin
+  Result:='';
+end;
+
+function TDAEDOADriver.GetDescription: string;
+begin
+  Result := 'Direct Oracle Access Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};;
+end;
+
+function TDAEDOADriver.GetDriverID: string;
+begin
+  Result := 'DOA';
+end;
+
+{
+****************************** TDAEDOAConnection *******************************
+}
+
+function TDAEDOAConnection.CreateCompatibleQuery: IDADataset;
+begin
+  Result := inherited CreateCompatibleQuery;
+  OracleSession.LogOn;
+end;
+
+function TDAEDOAConnection.CreateCustomConnection: TCustomConnection;
+begin
+  Result := TDADOAInternalConnection.Create(nil);
+end;
+
+// -----------------------------------------------------------------------------
+// TDAEDOAConnection.CreateMacroProcessor
+//
+// UKO 25.09.2003 18:43:06
+//
+
+
+// -----------------------------------------------------------------------------
+// TDAEDOAConnection.DoApplyConnectionString
+//
+// Use Database instead of Server. Server has no meaning in Oracle
+// UKO 25.09.2003 17:54:25
+//
+
+procedure TDAEDOAConnection.DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  inherited;
+  with aConnStrParser do begin
+    OracleSession.LogonDatabase := Database;
+    OracleSession.LogonUsername := UpperCase(UserID);
+    OracleSession.LogonPassword := Password;
+  end;
+end;
+
+function TDAEDOAConnection.DoBeginTransaction: Integer;
+begin
+  // DOA doesn't have any special transaction starting routines
+  Result := 0;
+end;
+
+procedure TDAEDOAConnection.DoCommitTransaction;
+begin
+  OracleSession.Commit;
+end;
+
+function TDAEDOAConnection.DoGetInTransaction: boolean;
+begin
+  Result := OracleSession.InTransaction;
+end;
+
+procedure TDAEDOAConnection.DoRollbackTransaction;
+begin
+  OracleSession.Rollback;
+end;
+
+function TDAEDOAConnection.GetDataSetClass: TDAEDatasetClass;
+begin
+  Result := TDAEDOAQuery;
+end;
+
+function TDAEDOAConnection.GetOracleSession: TOracleSession;
+begin
+  Result := TDADOAInternalConnection(inherited ConnectionObject).Session;
+end;
+
+
+
+function TDAEDOAConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  Result := TDAEDOAStoredProcedure;
+end;
+
+// -----------------------------------------------------------------------------
+// TDAEDOAConnection.IdentifierNeedsQuoting
+//
+// Default behavior not enough, as '$' and '.' are also a valid character which doesn�t need quoting
+//
+// UKO 25.09.2003 11:48:13
+//
+
+{
+********************************* TDAEDOAQuery *********************************
+}
+
+procedure TDAEDOAQuery.ClearParams;
+begin
+  inherited;
+  TOracleDataSet(Dataset).ClearVariables;
+end;
+
+function TDAEDOAQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  Result := TOracleDataSet.Create(nil);
+  TOracleDataSet(Result).ReadOnly := True;
+  TOracleDataSet(Result).Session := TDAEDOAConnection(aConnection).OracleSession;
+end;
+
+function TDAEDOAQuery.DoExecute: Integer;
+begin
+  TOracleDataSet(DataSet).ExecSQL;
+  Result := -1;
+end;
+
+function TDAEDOAQuery.DoGetSQL: string;
+begin
+  Result := TOracleDataSet(Dataset).SQL.Text;
+end;
+
+procedure TDAEDOAQuery.DoPrepare(Value: Boolean);
+begin
+  TOracleDataSet(DataSet).Optimize := Value;
+end;
+
+procedure TDAEDOAQuery.DoSetSQL(const Value: string);
+begin
+  TOracleDataSet(Dataset).SQL.Text := Value;
+end;
+
+function TDAEDOAQuery.GetLockMode: TDAOracleLockMode;
+begin
+  Result := LockModeDoaToDa(TOracleDataSet(Dataset).LockingMode)
+end;
+
+function TDAEDOAQuery.GetOptions: TDAOracleOptions;
+begin
+  // Can't be implemented
+end;
+
+procedure TDAEDOAQuery.GetParamValues(Params: TDAParamCollection);
+var
+  i: integer;
+  par: TDAParam;
+  ds: TOracleDataSet;
+begin
+  ds := TOracleDataSet(Dataset);
+  if not Assigned(ds.Variables) then Exit;
+
+  for i := 0 to (ds.VariableCount - 1) do begin
+    par := Params.ParamByName(copy(ds.VariableName(i),2,MaxInt));
+    if par.ParamType in [daptOutput, daptInputOutput, daptResult] then
+       par.Value := ds.GetVariable(i);
+  end;
+end;
+
+function TDAEDOAQuery.LockModeDaToDoa(LockMode: TDAOracleLockMode):
+  TLockingModeOptions;
+begin
+  Result := lmNone;
+  case LockMode of
+    olmLockImmediate: Result := lmLockImmediate;
+    olmLockDelayed: Result := lmLockDelayed;
+  end;
+end;
+
+function TDAEDOAQuery.LockModeDoaToDa(LockMode: TLockingModeOptions):
+  TDAOracleLockMode;
+begin
+  Result := olmNone;
+  case LockMode of
+    lmLockImmediate: Result := olmLockImmediate;
+    lmLockDelayed: Result := olmLockDelayed;
+  end;
+end;
+
+procedure TDAEDOAQuery.SetLockMode(Value: TDAOracleLockMode);
+begin
+  TOracleDataSet(Dataset).LockingMode := LockModeDaToDoa(Value);
+end;
+
+procedure TDAEDOAQuery.SetOptions(Value: TDAOracleOptions);
+begin
+  // Can't be implemented
+end;
+
+procedure TDAEDOAQuery.SetParamValues(Params: TDAParamCollection);
+begin
+  SetDataSetParams(Params, DataSet);
+end;
+
+{
+**************************** TDAEDOAStoredProcedure ****************************
+}
+
+function TDAEDOAStoredProcedure.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  Result := TOracleDataSet.Create(nil);
+  FConnection := TDAEDOAConnection(aConnection); 
+  TOracleDataSet(Result).Session := TDAEDOAConnection(aConnection).OracleSession;
+end;
+
+procedure TDAEDOAStoredProcedure.DoGetParams;
+var
+  Ds: TOracleDataSet;
+  I: Integer;
+  Params: TDAParamCollection;
+begin
+  Params := GetParams;
+  Ds := TOracleDataSet(DataSet);
+  for I := 0 to Params.Count - 1 do
+    if Params[I].ParamType in [daptOutput, daptInputOutput, daptResult] then
+      Params[I].Value := Ds.GetVariable(HandleSqlName(Params[I].Name, Params[I].ParamType));
+end;
+
+function TDAEDOAStoredProcedure.DoGetParamsResult: TDAParam;
+var
+  I: Integer;
+  Params: TDAParamCollection;
+begin
+  Result := nil;
+  Params := GetParams;
+  for I := 0 to Params.Count - 1 do
+    if Params[I].ParamType = daptResult then
+    begin
+      Result := Params[I];
+      Exit;
+    end;
+end;
+
+procedure TDAEDOAStoredProcedure.DoSetSource;
+var
+  Ds: TOracleDataSet;
+  I: Integer;
+  Params: TDaParamCollection;
+  ParamResult: TDAParam;
+  ParamsExist: Boolean;
+
+const
+  SQLHeader = 'declare' + sLineBreak +
+    '  result boolean;' + sLineBreak +
+    'begin' + sLineBreak;
+  SQLHandleBoolean = ':result := sys.diutil.bool_to_int(function_result);';
+  SQLFooter = 'end;';
+
+  function CaseOfParam(const AParamResult: TDAParam): Integer;
+  begin
+    Result := 0;
+    if AParamResult <> nil then
+      if AParamResult.DataType = datBoolean then
+        Result := 1
+      else
+        Result := 2;
+  end;
+
+  function ConvertParam(const AName: string; const ADataType: TDADataType):
+      string;
+  begin
+    if ADataType = datBoolean then
+    begin
+      Result := Format('%s => sys.diutil.int_to_bool(:%s), ', [AName, AName]);
+      Exit;
+    end;
+    Result := Format('%s => :%s, ', [AName, AName]);
+  end;
+
+  function TrimSqlParams(const SQL: string): string;
+  var
+    S: string;
+  begin
+    S := SQL;
+    Delete(S, Length(S) - 3, 4);
+    Result := S;
+  end;
+
+begin
+  Ds := TOracleDataSet(DataSet);
+  Params := GetParams;
+  ParamResult := DoGetParamsResult;
+  // PL/SQL Block - header + stored proc name
+  Ds.SQL.Text := SQLHeader;
+  case CaseOfParam(ParamResult) of // 0 = no result, 1 = boolean, 2 = misc
+    0: Ds.SQL.Add(Format('  %s(', [fProcedureName]));
+    1: Ds.SQL.Add(Format('  result := %s(', [fProcedureName]));
+    2: Ds.SQL.Add(Format('  :result := %s(', [fProcedureName]));
+  end;
+  // PL/SQL Block - params if any;
+  ParamsExist := False;
+  for I := 0 to Params.Count - 1 do
+    if (Params.Items[I] <> ParamResult) then
+    begin
+      ParamsExist := True;
+      Ds.SQL.Add(ConvertParam(Params[I].Name, Params[I].DataType));
+    end;
+  // PL/SQL Block - params - remove the last half-stop
+  if ParamsExist then
+    Ds.SQL.Text := TrimSQLParams(Ds.SQL.Text);
+  Ds.SQL.Add(');');
+  // PL/SQL Block - special treatment for functions with boolean results
+  if ParamResult.DataType = datBoolean then
+    Ds.SQL.Add(SQLHandleBoolean);
+  Ds.SQL.Add(SQLFooter);
+end;
+
+function TDAEDOAStoredProcedure.Execute: Integer;
+var
+  Params: TDAParamCollection;
+begin
+  Params := GetParams;
+  SetDataSetParams(Params, DataSet);
+  DoSetSource;
+  TOracleDataSet(DataSet).ExecSQL;
+  DoGetParams;
+  Result := -1;
+end;
+
+function TDAEDOAStoredProcedure.GetStoredProcedureName: string;
+begin
+  Result := fProcedureName;
+end;
+
+procedure TDAEDOAStoredProcedure.RefreshParams;
+var
+  OraParams: TDAParamCollection;
+begin
+  Oracle_DoGetStoredProcedureParams(fProcedureName, FConnection.CreateCompatibleQuery,OraParams);
+  GetParams.AssignParamCollection(OraParams);
+end;
+
+procedure TDAEDOAStoredProcedure.GetParamValues(Params: TDAParamCollection);
+var
+  i: integer;
+  par: TDAParam;
+  ds: TOracleDataSet;
+begin
+  ds := TOracleDataSet(Dataset);
+  if not Assigned(ds.Variables) then Exit;
+
+  for i := 0 to (ds.VariableCount - 1) do begin
+    par := Params.ParamByName(ds.VariableName(i));
+    if par.ParamType in [daptOutput, daptInputOutput, daptResult] then
+       par.Value := ds.GetVariable(i);
+  end;
+end;
+
+procedure TDAEDOAStoredProcedure.SetParamValues(Params: TDAParamCollection);
+begin
+  SetDataSetParams(Params, DataSet);
+end;
+
+procedure TDAEDOAStoredProcedure.SetStoredProcedureName(const Name: string);
+begin
+  fProcedureName := Name;
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+initialization
+  _Driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNil(_Driver);
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAElevateDBDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAElevateDBDriver.pas
new file mode 100644
index 0000000..d2752b0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAElevateDBDriver.pas	
@@ -0,0 +1,1496 @@
+unit uDAElevateDBDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_ElevateDBDriver_Glyphs.res}
+
+interface
+uses Classes, DB,
+  uDAElevateDBInterfaces, edbType, edbcomps,
+  uROClasses, uDAEngine, uDAInterfaces, uDAInterfacesEx, uDAUtils;
+
+type { TDAElevateDBDriver }
+  TDAElevateDBDriver = class(TDADriverReference)
+  end;
+
+  { TDAEElevateDBDriver }
+  TDAEElevateDBDriver = class(uDAElevateDBInterfaces.TDAElevateDBDriver ,IDADriver40)
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    //procedure CustomizeConnectionObject(aConnection: TDAEConnection); override;
+    //procedure DoSetTraceOptions(TraceActive: boolean; TraceFlags: TDATraceOptions; Callback: TDALogTraceEvent); override;
+
+    { IDADriver }
+    function GetDriverID: string; override; safecall;
+    function GetDescription: string; override; safecall;
+    // function GetMajVersion: byte; override; safecall;
+    // function GetMinVersion: byte; override; safecall;
+    procedure GetAuxDrivers(out List: IROStrings); override; safecall;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override; safecall;
+    // procedure Initialize; override; safecall;
+    // procedure Finalize; override; safecall;
+    // function GetDefaultCustomParameters: string; override; safecall;
+
+    { IDADriver40 }
+    function GetProviderDefaultCustomParameters(Provider: string): string; safecall;
+  public
+  end;
+
+  IElevateDBEngineProperties = interface
+    function GetBackupExtension: TEDBString;
+    function GetCatalogExtension: TEDBString;
+    function GetCatalogName: TEDBString;
+    function GetConfigExtension: TEDBString;
+    function GetConfigName: TEDBString;
+    function GetConfigPath: TEDBString;
+    function GetEncryptionPassword: TEDBString;
+    function GetEngineType: TEDBEngineType;
+    function GetLargeFileSupport: Boolean;
+    function GetLicensedSessions: Integer;
+    function GetLockExtension: TEDBString;
+    function GetLogCategories: TEDBLogCategories;
+    function GetLogExtension: TEDBString;
+    function GetMaxLogFileSize: Integer;
+    function GetServerAddress: TEDBString;
+    function GetServerAuthorizedAddresses: TEDBStrings;
+    function GetServerBlockedAddresses: TEDBStrings;
+    function GetServerDeadSessionExpiration: Integer;
+    function GetServerDeadSessionInterval: Integer;
+    function GetServerDescription: TEDBString;
+    function GetServerEncryptedOnly: Boolean;
+    function GetServerJobCategory: TEDBString;
+    function GetServerMaxDeadSessions: Integer;
+    function GetServerName: TEDBString;
+    function GetServerPort: Integer;
+    function GetServerRunJobs: Boolean;
+    function GetServerSessionTimeout: Integer;
+    function GetServerThreadCacheSize: Integer;
+    function GetSignature: TEDBString;
+    function GetTableBlobExtension: TEDBString;
+    function GetTableExtension: TEDBString;
+    function GetTableIndexExtension: TEDBString;
+    function GetTempTablesPathProperty: TEDBString;
+    procedure SetBackupExtension(const Value: TEDBString);
+    procedure SetCatalogExtension(const Value: TEDBString);
+    procedure SetCatalogName(const Value: TEDBString);
+    procedure SetConfigExtension(const Value: TEDBString);
+    procedure SetConfigName(const Value: TEDBString);
+    procedure SetConfigPath(const Value: TEDBString);
+    procedure SetEncryptionPassword(const Value: TEDBString);
+    procedure SetEngineType(const Value: TEDBEngineType);
+    procedure SetLargeFileSupport(const Value: Boolean);
+    procedure SetLicensedSessions(const Value: Integer);
+    procedure SetLockExtension(const Value: TEDBString);
+    procedure SetLogCategories(const Value: TEDBLogCategories);
+    procedure SetLogExtension(const Value: TEDBString);
+    procedure SetMaxLogFileSize(const Value: Integer);
+    procedure SetServerAddress(const Value: TEDBString);
+    procedure SetServerAuthorizedAddresses(const Value: TEDBStrings);
+    procedure SetServerBlockedAddresses(const Value: TEDBStrings);
+    procedure SetServerDeadSessionExpiration(const Value: Integer);
+    procedure SetServerDeadSessionInterval(const Value: Integer);
+    procedure SetServerDescription(const Value: TEDBString);
+    procedure SetServerEncryptedOnly(const Value: Boolean);
+    procedure SetServerJobCategory(const Value: TEDBString);
+    procedure SetServerMaxDeadSessions(const Value: Integer);
+    procedure SetServerName(const Value: TEDBString);
+    procedure SetServerPort(const Value: Integer);
+    procedure SetServerRunJobs(const Value: Boolean);
+    procedure SetServerSessionTimeout(const Value: Integer);
+    procedure SetServerThreadCacheSize(const Value: Integer);
+    procedure SetSignature(const Value: TEDBString);
+    procedure SetTableBlobExtension(const Value: TEDBString);
+    procedure SetTableExtension(const Value: TEDBString);
+    procedure SetTableIndexExtension(const Value: TEDBString);
+    procedure SetTempTablesPath(const Value: TEDBString);
+    property EngineType: TEDBEngineType read GetEngineType write SetEngineType;
+    property Signature: TEDBString read GetSignature write SetSignature;
+    property EncryptionPassword: TEDBString read GetEncryptionPassword write SetEncryptionPassword;
+    property LargeFileSupport: Boolean read GetLargeFileSupport write SetLargeFileSupport;
+    property LicensedSessions: Integer read GetLicensedSessions write SetLicensedSessions;
+    property ConfigPath: TEDBString read GetConfigPath write SetConfigPath;
+    property ConfigName: TEDBString read GetConfigName write SetConfigName;
+    property ConfigExtension: TEDBString read GetConfigExtension write SetConfigExtension;
+    property LockExtension: TEDBString read GetLockExtension write SetLockExtension;
+    property LogExtension: TEDBString read GetLogExtension write SetLogExtension;
+    property MaxLogFileSize: Integer read GetMaxLogFileSize write SetMaxLogFileSize;
+    property LogCategories: TEDBLogCategories read GetLogCategories write SetLogCategories;
+    property CatalogName: TEDBString read GetCatalogName write SetCatalogName;
+    property CatalogExtension: TEDBString read GetCatalogExtension write SetCatalogExtension;
+    property BackupExtension: TEDBString read GetBackupExtension write SetBackupExtension;
+    property TableExtension: TEDBString read GetTableExtension write SetTableExtension;
+    property TableIndexExtension: TEDBString read GetTableIndexExtension write SetTableIndexExtension;
+    property TableBlobExtension: TEDBString read GetTableBlobExtension write SetTableBlobExtension;
+    property TempTablesPath: TEDBString read GetTempTablesPathProperty write SetTempTablesPath;
+    property ServerName: TEDBString read GetServerName write SetServerName;
+    property ServerDescription: TEDBString read GetServerDescription write SetServerDescription;
+    property ServerAddress: TEDBString read GetServerAddress write SetServerAddress;
+    property ServerPort: Integer read GetServerPort write SetServerPort;
+    property ServerThreadCacheSize: Integer read GetServerThreadCacheSize write SetServerThreadCacheSize;
+    property ServerEncryptedOnly: Boolean read GetServerEncryptedOnly write SetServerEncryptedOnly;
+    property ServerSessionTimeout: Integer read GetServerSessionTimeout write SetServerSessionTimeout;
+    property ServerDeadSessionInterval: Integer read GetServerDeadSessionInterval write SetServerDeadSessionInterval;
+    property ServerDeadSessionExpiration: Integer read GetServerDeadSessionExpiration write SetServerDeadSessionExpiration;
+    property ServerMaxDeadSessions: Integer read GetServerMaxDeadSessions write SetServerMaxDeadSessions;
+    property ServerAuthorizedAddresses: TEDBStrings read GetServerAuthorizedAddresses write SetServerAuthorizedAddresses;
+    property ServerBlockedAddresses: TEDBStrings read GetServerBlockedAddresses write SetServerBlockedAddresses;
+    property ServerRunJobs: Boolean read GetServerRunJobs write SetServerRunJobs;
+    property ServerJobCategory: TEDBString read GetServerJobCategory write SetServerJobCategory;
+  end;
+
+  TElevateDBEngineProperties = class(TInterfacedObject,IElevateDBEngineProperties)
+  protected
+    function GetBackupExtension: TEDBString;
+    function GetCatalogExtension: TEDBString;
+    function GetCatalogName: TEDBString;
+    function GetConfigExtension: TEDBString;
+    function GetConfigName: TEDBString;
+    function GetConfigPath: TEDBString;
+    function GetEncryptionPassword: TEDBString;
+    function GetEngineType: TEDBEngineType;
+    function GetLargeFileSupport: Boolean;
+    function GetLicensedSessions: Integer;
+    function GetLockExtension: TEDBString;
+    function GetLogCategories: TEDBLogCategories;
+    function GetLogExtension: TEDBString;
+    function GetMaxLogFileSize: Integer;
+    function GetServerAddress: TEDBString;
+    function GetServerAuthorizedAddresses: TEDBStrings;
+    function GetServerBlockedAddresses: TEDBStrings;
+    function GetServerDeadSessionExpiration: Integer;
+    function GetServerDeadSessionInterval: Integer;
+    function GetServerDescription: TEDBString;
+    function GetServerEncryptedOnly: Boolean;
+    function GetServerJobCategory: TEDBString;
+    function GetServerMaxDeadSessions: Integer;
+    function GetServerName: TEDBString;
+    function GetServerPort: Integer;
+    function GetServerRunJobs: Boolean;
+    function GetServerSessionTimeout: Integer;
+    function GetServerThreadCacheSize: Integer;
+    function GetSignature: TEDBString;
+    function GetTableBlobExtension: TEDBString;
+    function GetTableExtension: TEDBString;
+    function GetTableIndexExtension: TEDBString;
+    function GetTempTablesPathProperty: TEDBString;
+    procedure SetBackupExtension(const Value: TEDBString);
+    procedure SetCatalogExtension(const Value: TEDBString);
+    procedure SetCatalogName(const Value: TEDBString);
+    procedure SetConfigExtension(const Value: TEDBString);
+    procedure SetConfigName(const Value: TEDBString);
+    procedure SetConfigPath(const Value: TEDBString);
+    procedure SetEncryptionPassword(const Value: TEDBString);
+    procedure SetEngineType(const Value: TEDBEngineType);
+    procedure SetLargeFileSupport(const Value: Boolean);
+    procedure SetLicensedSessions(const Value: Integer);
+    procedure SetLockExtension(const Value: TEDBString);
+    procedure SetLogCategories(const Value: TEDBLogCategories);
+    procedure SetLogExtension(const Value: TEDBString);
+    procedure SetMaxLogFileSize(const Value: Integer);
+    procedure SetServerAddress(const Value: TEDBString);
+    procedure SetServerAuthorizedAddresses(const Value: TEDBStrings);
+    procedure SetServerBlockedAddresses(const Value: TEDBStrings);
+    procedure SetServerDeadSessionExpiration(const Value: Integer);
+    procedure SetServerDeadSessionInterval(const Value: Integer);
+    procedure SetServerDescription(const Value: TEDBString);
+    procedure SetServerEncryptedOnly(const Value: Boolean);
+    procedure SetServerJobCategory(const Value: TEDBString);
+    procedure SetServerMaxDeadSessions(const Value: Integer);
+    procedure SetServerName(const Value: TEDBString);
+    procedure SetServerPort(const Value: Integer);
+    procedure SetServerRunJobs(const Value: Boolean);
+    procedure SetServerSessionTimeout(const Value: Integer);
+    procedure SetServerThreadCacheSize(const Value: Integer);
+    procedure SetSignature(const Value: TEDBString);
+    procedure SetTableBlobExtension(const Value: TEDBString);
+    procedure SetTableExtension(const Value: TEDBString);
+    procedure SetTableIndexExtension(const Value: TEDBString);
+    procedure SetTempTablesPath(const Value: TEDBString);
+  public
+    property EngineType: TEDBEngineType read GetEngineType write SetEngineType;
+    property Signature: TEDBString read GetSignature write SetSignature;
+    property EncryptionPassword: TEDBString read GetEncryptionPassword write SetEncryptionPassword;
+    property LargeFileSupport: Boolean read GetLargeFileSupport write SetLargeFileSupport;
+    property LicensedSessions: Integer read GetLicensedSessions write SetLicensedSessions;
+    property ConfigPath: TEDBString read GetConfigPath write SetConfigPath;
+    property ConfigName: TEDBString read GetConfigName write SetConfigName;
+    property ConfigExtension: TEDBString read GetConfigExtension write SetConfigExtension;
+    property LockExtension: TEDBString read GetLockExtension write SetLockExtension;
+    property LogExtension: TEDBString read GetLogExtension write SetLogExtension;
+    property MaxLogFileSize: Integer read GetMaxLogFileSize write SetMaxLogFileSize;
+    property LogCategories: TEDBLogCategories read GetLogCategories write SetLogCategories;
+    property CatalogName: TEDBString read GetCatalogName write SetCatalogName;
+    property CatalogExtension: TEDBString read GetCatalogExtension write SetCatalogExtension;
+    property BackupExtension: TEDBString read GetBackupExtension write SetBackupExtension;
+    property TableExtension: TEDBString read GetTableExtension write SetTableExtension;
+    property TableIndexExtension: TEDBString read GetTableIndexExtension write SetTableIndexExtension;
+    property TableBlobExtension: TEDBString read GetTableBlobExtension write SetTableBlobExtension;
+    property TempTablesPath: TEDBString read GetTempTablesPathProperty write SetTempTablesPath;
+    property ServerName: TEDBString read GetServerName write SetServerName;
+    property ServerDescription: TEDBString read GetServerDescription write SetServerDescription;
+    property ServerAddress: TEDBString read GetServerAddress write SetServerAddress;
+    property ServerPort: Integer read GetServerPort write SetServerPort;
+    property ServerThreadCacheSize: Integer read GetServerThreadCacheSize write SetServerThreadCacheSize;
+    property ServerEncryptedOnly: Boolean read GetServerEncryptedOnly write SetServerEncryptedOnly;
+    property ServerSessionTimeout: Integer read GetServerSessionTimeout write SetServerSessionTimeout;
+    property ServerDeadSessionInterval: Integer read GetServerDeadSessionInterval write SetServerDeadSessionInterval;
+    property ServerDeadSessionExpiration: Integer read GetServerDeadSessionExpiration write SetServerDeadSessionExpiration;
+    property ServerMaxDeadSessions: Integer read GetServerMaxDeadSessions write SetServerMaxDeadSessions;
+    property ServerAuthorizedAddresses: TEDBStrings read GetServerAuthorizedAddresses write SetServerAuthorizedAddresses;
+    property ServerBlockedAddresses: TEDBStrings read GetServerBlockedAddresses write SetServerBlockedAddresses;
+    property ServerRunJobs: Boolean read GetServerRunJobs write SetServerRunJobs;
+    property ServerJobCategory: TEDBString read GetServerJobCategory write SetServerJobCategory;
+  end;
+
+  IElevateDBEngine = interface
+    function EngineProperties: IElevateDBEngineProperties;
+  end;
+
+  IElevateDBSessionProperties = interface
+    function GetForceBufferFlush: Boolean;
+    function GetKeepConnections: Boolean;
+    function GetKeepTablesOpen: Boolean;
+    function GetProgressTimeInterval: Integer;
+    function GetRecordChangeDetection: Boolean;
+    function GetRecordLockProtocol: TEDBRecordLockProtocol;
+    function GetRecordLockRetryCount: Integer;
+    function GetRecordLockWaitTime: Integer;
+    function GetRemoteAddress: TEDBString;
+    function GetRemoteCompression: Integer;
+    function GetRemoteEncryption: Boolean;
+    function GetRemoteHost: TEDBString;
+    function GetRemotePing: Boolean;
+    function GetRemotePingInterval: Integer;
+    function GetRemotePort: Integer;
+    function GetRemoteService: TEDBString;
+    function GetRemoteTimeout: Integer;
+    function GetRemoteTrace: Boolean;
+    function GetSessionType: TEDBSessionType;
+    procedure SetForceBufferFlush(const Value: Boolean);
+    procedure SetKeepTablesOpen(const Value: Boolean);
+    procedure SetKeepConnections(const Value: Boolean);
+    procedure SetProgressTimeInterval(const Value: Integer);
+    procedure SetRecordChangeDetection(const Value: Boolean);
+    procedure SetRecordLockProtocol(const Value: TEDBRecordLockProtocol);
+    procedure SetRecordLockRetryCount(const Value: Integer);
+    procedure SetRecordLockWaitTime(const Value: Integer);
+    procedure SetRemoteAddress(const Value: TEDBString);
+    procedure SetRemoteCompression(const Value: Integer);
+    procedure SetRemoteEncryption(const Value: Boolean);
+    procedure SetRemoteHost(const Value: TEDBString);
+    procedure SetRemotePing(const Value: Boolean);
+    procedure SetRemotePingInterval(const Value: Integer);
+    procedure SetRemotePort(const Value: Integer);
+    procedure SetRemoteService(const Value: TEDBString);
+    procedure SetRemoteTimeout(const Value: Integer);
+    procedure SetRemoteTrace(const Value: Boolean);
+    procedure SetSessionType(const Value: TEDBSessionType);
+    property ForceBufferFlush: Boolean read GetForceBufferFlush write SetForceBufferFlush;
+    property KeepConnections: Boolean read GetKeepConnections write SetKeepConnections;
+    property KeepTablesOpen: Boolean read GetKeepTablesOpen write SetKeepTablesOpen;
+    property RecordLockProtocol: TEDBRecordLockProtocol read GetRecordLockProtocol write SetRecordLockProtocol;
+    property RecordLockRetryCount: Integer read GetRecordLockRetryCount write SetRecordLockRetryCount;
+    property RecordLockWaitTime: Integer read GetRecordLockWaitTime write SetRecordLockWaitTime;
+    property RecordChangeDetection: Boolean read GetRecordChangeDetection write SetRecordChangeDetection;
+    property ProgressTimeInterval: Integer read GetProgressTimeInterval write SetProgressTimeInterval;
+    property SessionType: TEDBSessionType read GetSessionType write SetSessionType;
+    property RemoteCompression: Integer read GetRemoteCompression write SetRemoteCompression;
+    property RemoteEncryption: Boolean read GetRemoteEncryption write SetRemoteEncryption;
+    property RemoteHost: TEDBString read GetRemoteHost write SetRemoteHost;
+    property RemoteAddress: TEDBString read GetRemoteAddress write SetRemoteAddress;
+    property RemotePort: Integer read GetRemotePort write SetRemotePort;
+    property RemoteService: TEDBString read GetRemoteService write SetRemoteService;
+    property RemoteTrace: Boolean read GetRemoteTrace write SetRemoteTrace;
+    property RemoteTimeout: Integer read GetRemoteTimeout write SetRemoteTimeout;
+    property RemotePing: Boolean read GetRemotePing write SetRemotePing;
+    property RemotePingInterval: Integer read GetRemotePingInterval write SetRemotePingInterval;
+  end;
+
+  { TDAEEDBConnection }
+  TDAEEDBConnection = class(TDAElevateDBConnection,IElevateDBEngine,IElevateDBSessionProperties)
+  private
+    FNativeSession: TEDBSession;
+    fNativeDatabase: TEDBDatabase;
+    FDataBasePath: String;
+    FDataBaseName: string;
+    function CreateConfigQuery: TDAEDataset;
+  protected
+    procedure CheckConnected; override;
+    function GetForceBufferFlush: Boolean;
+    function GetKeepConnections: Boolean;
+    function GetKeepTablesOpen: Boolean;
+    function GetProgressTimeInterval: Integer;
+    function GetRecordChangeDetection: Boolean;
+    function GetRecordLockProtocol: TEDBRecordLockProtocol;
+    function GetRecordLockRetryCount: Integer;
+    function GetRecordLockWaitTime: Integer;
+    function GetRemoteAddress: TEDBString;
+    function GetRemoteCompression: Integer;
+    function GetRemoteEncryption: Boolean;
+    function GetRemoteHost: TEDBString;
+    function GetRemotePing: Boolean;
+    function GetRemotePingInterval: Integer;
+    function GetRemotePort: Integer;
+    function GetRemoteService: TEDBString;
+    function GetRemoteTimeout: Integer;
+    function GetRemoteTrace: Boolean;
+    function GetSessionType: TEDBSessionType;
+    procedure SetForceBufferFlush(const Value: Boolean);
+    procedure SetKeepTablesOpen(const Value: Boolean);
+    procedure SetKeepConnections(const Value: Boolean);
+    procedure SetProgressTimeInterval(const Value: Integer);
+    procedure SetRecordChangeDetection(const Value: Boolean);
+    procedure SetRecordLockProtocol(const Value: TEDBRecordLockProtocol);
+    procedure SetRecordLockRetryCount(const Value: Integer);
+    procedure SetRecordLockWaitTime(const Value: Integer);
+    procedure SetRemoteAddress(const Value: TEDBString);
+    procedure SetRemoteCompression(const Value: Integer);
+    procedure SetRemoteEncryption(const Value: Boolean);
+    procedure SetRemoteHost(const Value: TEDBString);
+    procedure SetRemotePing(const Value: Boolean);
+    procedure SetRemotePingInterval(const Value: Integer);
+    procedure SetRemotePort(const Value: Integer);
+    procedure SetRemoteService(const Value: TEDBString);
+    procedure SetRemoteTimeout(const Value: Integer);
+    procedure SetRemoteTrace(const Value: Boolean);
+    procedure SetSessionType(const Value: TEDBSessionType);
+  protected
+    procedure SetConnected(Value: boolean); override; safecall;
+    function CreateCustomConnection: TCustomConnection; override;
+    //function CreateMacroProcessor: TDASQLMacroProcessor; override;
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+    // transaction support
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+    // procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    // procedure DoGetQueryFields(const aSQL: string; aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection); override;
+    // procedure DoGetViewFields(const aViewName: string; out Fields: TDAFieldCollection); override;
+
+    // procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    // function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+
+    { IDAConnection }
+    // UserID/Password
+    // function GetUserID: string; override; safecall;
+    // procedure SetUserID(const Value: string); override; safecall;
+    // function GetPassword: string; override; safecall;
+    // procedure SetPassword(const Value: string); override; safecall;
+
+    function GetSPSelectSyntax(HasArguments: Boolean): string; override; safecall;
+    // function GetQuoteChars: TDAQuoteCharArray; override; safecall;
+    // function IdentifierIsQuoted(const iIdentifier: string): boolean; override; safecall;
+    // function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; safecall;
+    // function QuoteIdentifierIfNeeded(const iIdentifier: string): string; override; safecall;
+    // function QuoteIdentifier(const iIdentifier: string): string; override; safecall;
+    // function QuoteFieldNameIfNeeded(const aTableName, aFieldName: string): string; override;safecall;
+    // function QuoteFieldName(const aTableName, aFieldName: string): string; override; safecall;
+
+    // function NewCommand(const Text: string; CommandType: TDASQLStatementType; const aCommandName: string = ''): IDASQLCommand; override; safecall;
+    // function NewDataset(const SQL: string; const aDatasetName: string = ''): IDADataset; override; safecall;
+    // function GetLastAutoInc(const GeneratorName: string = ''): integer; safecall;
+
+    // function isAlive: Boolean; override; safecall;
+    // function GetQueryBuilder: TDAQueryBuilder; override; safecall;
+
+    { IDAUseGenerators }
+    // function GetNextAutoinc(const GeneratorName: string): integer; safecall;
+    { IElevateDBEngine }
+    function EngineProperties: IElevateDBEngineProperties;
+  public
+    destructor Destroy; override;
+  end;
+
+  { TDAEElevDBQuery }
+  TDAEElevDBQuery = class(TDAEDataset, IDASQLCommand , IDAMustSetParams)
+  protected
+    // procedure PrepareSQLStatement; override;
+    procedure ClearParams; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure DoPrepare(Value: boolean); override; safecall;
+    function DoExecute: integer; override; safecall;
+    procedure DoSetSQL(const Value: string); override; safecall;
+    function DoGetSQL: string; override; safecall;
+    // function intVCLTypeToDAType(aFieldType: TFieldType): TDADataType;override;
+
+    { IDASQLCommand }
+    // procedure RefreshParams; override; safecall;
+    function Execute: integer; override; safecall;
+    // function DoGetRecordCount: integer; override;
+    // function DoGetActive: boolean; override;
+    // procedure DoSetActive(Value: boolean); override;
+    // function DoGetBOF: boolean; override;
+    // function DoGetEOF: boolean; override;
+    // procedure DoNext; override;
+    // function DoLocate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; override;
+
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  { TDAEElevDBStoredProcedure }
+  TDAEElevDBStoredProcedure = class(TDAEStoredProcedure, IDAStoredProcedure , IDAMustSetParams)
+  protected
+    // IDAStoredProcedure
+    function GetStoredProcedureName: string; override; safecall;
+    procedure SetStoredProcedureName(const Name: string); override; safecall;
+
+    // procedure PrepareSQLStatement; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure DoPrepare(Value: boolean); override; safecall;
+    function DoExecute: integer; override; safecall;
+    procedure DoSetSQL(const Value: string); override; safecall;
+    function DoGetSQL: string; override; safecall;
+    // function intVCLTypeToDAType(aFieldType: TFieldType): TDADataType;override;
+
+    { IDASQLCommand }
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; override; safecall;
+    // function DoGetRecordCount: integer; override;
+    // function DoGetActive: boolean; override;
+    // procedure DoSetActive(Value: boolean); override;
+    // function DoGetBOF: boolean; override;
+    // function DoGetEOF: boolean; override;
+    // procedure DoNext; override;
+    // function DoLocate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; override;
+
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses SysUtils, uDADriverManager, uDARes, Variants, uDAMacroProcessors,
+  Math, uDAHelpers, uROBinaryHelpers, Windows;
+
+var
+  _driver: TDAEDriver = nil;
+   gEngineProperties: TElevateDBEngineProperties;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAElevateDBDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEElevateDBDriver.Create(nil);
+  result := _driver;
+end;
+
+{ TDAEEDBConnection }
+
+procedure TDAEEDBConnection.DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  i: Integer;
+  sName, sValue: string;
+begin
+  inherited;
+  with aConnStrParser do begin
+    if (Self.UserID <> '') then
+      FNativeSession.LoginUser := Self.UserID
+    else
+      FNativeSession.LoginUser := UserID;
+
+    if (Self.Password <> '') then
+      FNativeSession.LoginPassword := Self.Password
+    else
+      FNativeSession.LoginPassword := Password;
+
+    Session.RemoteAddress := Server;
+//    Engine.ConfigPath := Database;
+    FDataBasePath := Database;
+    FDataBaseName := '';
+    for i := 0 to AuxParamsCount - 1 do begin
+      sName := AuxParamNames[i];
+      if sName = '' then Continue;
+      sValue := AuxParams[AuxParamNames[i]];
+      // engine settings
+      if SameText(sName,'EngineType') then begin
+        if SameText(sValue,'etClient') then gEngineProperties.EngineType:=etClient
+        else if SameText(sValue,'etServer') then gEngineProperties.EngineType:=etServer;
+      end
+      else if SameText(sName,'Signature') then gEngineProperties.Signature := sValue
+      else if SameText(sName,'EncryptionPassword') then gEngineProperties.EncryptionPassword := sValue
+      else if SameText(sName,'LargeFileSupport') then gEngineProperties.LargeFileSupport := StrToBoolDef(sValue, gEngineProperties.LargeFileSupport)
+      else if SameText(sName,'LicensedSessions') then gEngineProperties.LicensedSessions := StrToIntDef(sValue, gEngineProperties.LicensedSessions)
+      else if SameText(sName,'ConfigPath') then       gEngineProperties.ConfigPath := sValue
+      else if SameText(sName,'ConfigName') then       gEngineProperties.ConfigName := sValue
+      else if SameText(sName,'ConfigExtension') then  gEngineProperties.ConfigExtension := sValue
+      else if SameText(sName,'LockExtension') then    gEngineProperties.LockExtension := sValue
+      else if SameText(sName,'LogExtension') then     gEngineProperties.LogExtension := sValue
+      else if SameText(sName,'MaxLogFileSize') then   gEngineProperties.MaxLogFileSize := StrToIntDef(sValue, gEngineProperties.MaxLogFileSize)
+      else if SameText(sName,'CatalogName') then      gEngineProperties.CatalogName := sValue
+      else if SameText(sName,'CatalogExtension') then gEngineProperties.CatalogExtension := sValue
+      else if SameText(sName,'BackupExtension') then  gEngineProperties.BackupExtension := sValue
+      else if SameText(sName,'TableExtension') then   gEngineProperties.TableExtension := sValue
+      else if SameText(sName,'TableIndexExtension') then gEngineProperties.TableIndexExtension := sValue
+      else if SameText(sName,'TableBlobExtension') then  gEngineProperties.TableBlobExtension := sValue
+      else if SameText(sName,'TempTablesPath') then      gEngineProperties.TempTablesPath := sValue
+      else if SameText(sName,'ServerName') then          gEngineProperties.ServerName := sValue
+      else if SameText(sName,'ServerDescription') then   gEngineProperties.ServerDescription := sValue
+      else if SameText(sName,'ServerPort') then          gEngineProperties.ServerPort := StrToIntDef(sValue, gEngineProperties.ServerPort)
+      else if SameText(sName,'ServerThreadCacheSize') then gEngineProperties.ServerThreadCacheSize := StrToIntDef(sValue, gEngineProperties.ServerThreadCacheSize)
+      else if SameText(sName,'ServerEncryptedOnly') then   gEngineProperties.ServerEncryptedOnly := StrToBoolDef(sValue, gEngineProperties.ServerEncryptedOnly)
+      else if SameText(sName,'ServerSessionTimeout') then  gEngineProperties.ServerSessionTimeout := StrToIntDef(sValue, gEngineProperties.ServerSessionTimeout)
+      else if SameText(sName,'ServerDeadSessionInterval') then gEngineProperties.ServerDeadSessionInterval := StrToIntDef(sValue, gEngineProperties.ServerDeadSessionInterval)
+      else if SameText(sName,'ServerDeadSessionExpiration') then gEngineProperties.ServerDeadSessionExpiration := StrToIntDef(sValue, gEngineProperties.ServerDeadSessionExpiration)
+      else if SameText(sName,'ServerMaxDeadSessions') then gEngineProperties.ServerMaxDeadSessions := StrToIntDef(sValue, gEngineProperties.ServerMaxDeadSessions)
+      else if SameText(sName,'ServerRunJobs') then         gEngineProperties.ServerRunJobs := StrToBoolDef(sValue, gEngineProperties.ServerRunJobs)
+      else if SameText(sName,'ServerJobCategory') then     gEngineProperties.ServerJobCategory := sValue
+      // session settings
+      else if SameText(sName,'ForceBufferFlush') then FNativeSession.ForceBufferFlush := StrToBoolDef(sValue, FNativeSession.ForceBufferFlush)
+      else if SameText(sName,'KeepConnections') then FNativeSession.KeepConnections := StrToBoolDef(sValue, FNativeSession.KeepConnections)
+      else if SameText(sName,'KeepTablesOpen') then FNativeSession.KeepTablesOpen := StrToBoolDef(sValue, FNativeSession.KeepTablesOpen)
+      else if SameText(sName,'RecordLockProtocol') then begin
+        if SameText(sValue,'lpPessimistic') then FNativeSession.RecordLockProtocol:=lpPessimistic
+        else if SameText(sValue,'lpOptimistic') then FNativeSession.RecordLockProtocol:=lpOptimistic;
+      end
+      else if SameText(sName,'RecordLockRetryCount') then FNativeSession.RecordLockRetryCount := StrToIntDef(sValue, fNativeSession.RecordLockRetryCount)
+      else if SameText(sName,'RecordLockWaitTime') then fNativeSession.RecordLockWaitTime := StrToIntDef(sValue, fNativeSession.RecordLockWaitTime)
+      else if SameText(sName,'RecordChangeDetection') then FNativeSession.RecordChangeDetection := StrToBoolDef(sValue, FNativeSession.RecordChangeDetection)
+      else if SameText(sName,'ProgressTimeInterval') then fNativeSession.ProgressTimeInterval := StrToIntDef(sValue, fNativeSession.ProgressTimeInterval)
+      else if SameText(sName,'SessionType') then begin
+        if SameText(sValue,'stLocal') then FNativeSession.SessionType:=stLocal
+        else if SameText(sValue,'stRemote') then FNativeSession.SessionType:=stRemote;
+      end
+      else if SameText(sName,'RemoteCompression') then fNativeSession.RemoteCompression := StrToIntDef(sValue, fNativeSession.RemoteCompression)
+      else if SameText(sName,'RemoteEncryption') then FNativeSession.RemoteEncryption := StrToBoolDef(sValue, FNativeSession.RemoteEncryption)
+      else if SameText(sName,'RemoteHost') then fNativeSession.RemoteHost := sValue
+      else if SameText(sName,'RemoteAddress') then fNativeSession.RemoteAddress := sValue
+      else if SameText(sName,'RemotePort') then fNativeSession.RemotePort := StrToIntDef(sValue, fNativeSession.RemotePort)
+      else if SameText(sName,'RemoteService') then fNativeSession.RemoteService := sValue
+      else if SameText(sName,'RemoteTrace') then FNativeSession.RemoteTrace := StrToBoolDef(sValue, FNativeSession.RemoteTrace)
+      else if SameText(sName,'RemoteTimeout') then fNativeSession.RemoteTimeout := StrToIntDef(sValue, fNativeSession.RemoteTimeout)
+      else if SameText(sName,'RemotePing') then FNativeSession.RemotePing := StrToBoolDef(sValue, FNativeSession.RemotePing)
+      else if SameText(sName,'RemotePingInterval') then fNativeSession.RemotePingInterval := StrToIntDef(sValue, fNativeSession.RemotePingInterval)
+      //
+      else if SameText(sName,'DataBaseName') then FDataBaseName:=sValue;
+    end;
+    fNativeDatabase.DatabaseName := FDataBaseName;
+    fNativeDatabase.Database := FDataBaseName;
+    if gEngineProperties.ConfigPath = '' then gEngineProperties.ConfigPath := '.';
+  end;
+end;
+
+function TDAEEDBConnection.DoBeginTransaction: integer;
+begin
+  CheckConnected;
+  fNativeDatabase.StartTransaction(EmptyEDBStringsArray);
+  Result := 0;
+end;
+
+procedure TDAEEDBConnection.DoCommitTransaction;
+begin
+  CheckConnected;
+  fNativeDatabase.Commit;
+end;
+
+function TDAEEDBConnection.CreateCustomConnection: TCustomConnection;
+begin
+  FNativeSession := TEDBSession.Create(nil);
+  FNativeSession.AutoSessionName:=True;
+  fNativeDatabase := TEDBDatabase.Create(nil);
+  fNativeDatabase.SessionName := FNativeSession.SessionName;
+  result := fNativeDatabase;
+end;
+
+function TDAEEDBConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEElevDBQuery;
+end;
+
+function TDAEEDBConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEElevDBStoredProcedure;
+end;
+
+procedure TDAEEDBConnection.DoRollbackTransaction;
+begin
+  CheckConnected;
+  fNativeDatabase.Rollback;
+end;
+
+function TDAEEDBConnection.DoGetInTransaction: boolean;
+begin
+  CheckConnected;
+  Result := fNativeDatabase.InTransaction;
+end;
+
+
+procedure TDAEEDBConnection.SetConnected(Value: boolean);
+begin
+  if (fNativeDatabase <> nil) then
+    if Value then begin
+      FNativeSession.Connected:=True;
+      ElevateDB_RegisterDatabase(CreateConfigQuery,fNativeDatabase.DatabaseName,FDataBasePath);
+      fNativeDatabase.Connected:=True;
+    end
+    else begin
+      fNativeDatabase.Connected:=False;
+      FNativeSession.Connected:=False;
+    end;
+end;
+
+procedure TDAEEDBConnection.CheckConnected;
+begin
+  if not fNativeDatabase.Connected then SetConnected(True);
+end;
+
+destructor TDAEEDBConnection.Destroy;
+begin
+  FNativeSession.Free;
+  if Engine.SessionCount = 0 then Engine.Active:=False;
+  inherited;
+end;
+
+function TDAEEDBConnection.CreateConfigQuery: TDAEDataset;
+begin
+  Result:= GetDatasetClass.Create(Self);
+  TEDBQuery(TDAEElevDBQuery(Result).Dataset).DatabaseName := ElevateDB_ConfigDBName;
+end;
+
+function TDAEEDBConnection.EngineProperties: IElevateDBEngineProperties;
+begin
+  Result:= gEngineProperties;
+end;
+
+function TDAEEDBConnection.GetForceBufferFlush: Boolean;
+begin
+  Result := FNativeSession.ForceBufferFlush;
+end;
+
+function TDAEEDBConnection.GetKeepConnections: Boolean;
+begin
+  Result := FNativeSession.KeepConnections;
+end;
+
+function TDAEEDBConnection.GetKeepTablesOpen: Boolean;
+begin
+  Result := FNativeSession.KeepTablesOpen;
+end;
+
+function TDAEEDBConnection.GetProgressTimeInterval: Integer;
+begin
+  Result := FNativeSession.ProgressTimeInterval;
+end;
+
+function TDAEEDBConnection.GetRecordChangeDetection: Boolean;
+begin
+  Result := FNativeSession.RecordChangeDetection;
+end;
+
+function TDAEEDBConnection.GetRecordLockProtocol: TEDBRecordLockProtocol;
+begin
+  Result := FNativeSession.RecordLockProtocol;
+end;
+
+function TDAEEDBConnection.GetRecordLockRetryCount: Integer;
+begin
+  Result := FNativeSession.RecordLockRetryCount;
+end;
+
+function TDAEEDBConnection.GetRecordLockWaitTime: Integer;
+begin
+  Result := FNativeSession.RecordLockWaitTime;
+end;
+
+function TDAEEDBConnection.GetRemoteAddress: TEDBString;
+begin
+  Result := FNativeSession.RemoteAddress;
+end;
+
+function TDAEEDBConnection.GetRemoteCompression: Integer;
+begin
+  Result := FNativeSession.RemoteCompression;
+end;
+
+function TDAEEDBConnection.GetRemoteEncryption: Boolean;
+begin
+  Result := FNativeSession.RemoteEncryption;
+end;
+
+function TDAEEDBConnection.GetRemoteHost: TEDBString;
+begin
+  Result := FNativeSession.RemoteHost;
+end;
+
+function TDAEEDBConnection.GetRemotePing: Boolean;
+begin
+  Result := FNativeSession.RemotePing;
+end;
+
+function TDAEEDBConnection.GetRemotePingInterval: Integer;
+begin
+  Result := FNativeSession.RemotePingInterval;
+end;
+
+function TDAEEDBConnection.GetRemotePort: Integer;
+begin
+  Result := FNativeSession.RemotePort;
+end;
+
+function TDAEEDBConnection.GetRemoteService: TEDBString;
+begin
+  Result := FNativeSession.RemoteService;
+end;
+
+function TDAEEDBConnection.GetRemoteTimeout: Integer;
+begin
+  Result := FNativeSession.RemoteTimeout;
+end;
+
+function TDAEEDBConnection.GetRemoteTrace: Boolean;
+begin
+  Result := FNativeSession.RemoteTrace;
+end;
+
+function TDAEEDBConnection.GetSessionType: TEDBSessionType;
+begin
+  Result := FNativeSession.SessionType;
+end;
+
+procedure TDAEEDBConnection.SetForceBufferFlush(const Value: Boolean);
+begin
+  FNativeSession.ForceBufferFlush := Value;
+end;
+
+procedure TDAEEDBConnection.SetKeepConnections(const Value: Boolean);
+begin
+  FNativeSession.KeepConnections := Value;
+end;
+
+procedure TDAEEDBConnection.SetKeepTablesOpen(const Value: Boolean);
+begin
+  FNativeSession.KeepTablesOpen := Value;
+end;
+
+procedure TDAEEDBConnection.SetProgressTimeInterval(const Value: Integer);
+begin
+  FNativeSession.ProgressTimeInterval := Value;
+end;
+
+procedure TDAEEDBConnection.SetRecordChangeDetection(const Value: Boolean);
+begin
+  FNativeSession.RecordChangeDetection := Value;
+end;
+
+procedure TDAEEDBConnection.SetRecordLockProtocol(
+  const Value: TEDBRecordLockProtocol);
+begin
+  FNativeSession.RecordLockProtocol := Value;
+end;
+
+procedure TDAEEDBConnection.SetRecordLockRetryCount(const Value: Integer);
+begin
+  FNativeSession.RecordLockRetryCount := Value;
+end;
+
+procedure TDAEEDBConnection.SetRecordLockWaitTime(const Value: Integer);
+begin
+  FNativeSession.RecordLockWaitTime := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemoteAddress(const Value: TEDBString);
+begin
+  FNativeSession.RemoteAddress := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemoteCompression(const Value: Integer);
+begin
+  FNativeSession.RemoteCompression := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemoteEncryption(const Value: Boolean);
+begin
+  FNativeSession.RemoteEncryption := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemoteHost(const Value: TEDBString);
+begin
+  FNativeSession.RemoteHost := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemotePing(const Value: Boolean);
+begin
+  FNativeSession.RemotePing := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemotePingInterval(const Value: Integer);
+begin
+  FNativeSession.RemotePingInterval := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemotePort(const Value: Integer);
+begin
+  FNativeSession.RemotePort := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemoteService(const Value: TEDBString);
+begin
+  FNativeSession.RemoteService := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemoteTimeout(const Value: Integer);
+begin
+  FNativeSession.RemoteTimeout := Value;
+end;
+
+procedure TDAEEDBConnection.SetRemoteTrace(const Value: Boolean);
+begin
+  FNativeSession.RemoteTrace := Value;
+end;
+
+procedure TDAEEDBConnection.SetSessionType(const Value: TEDBSessionType);
+begin
+  FNativeSession.SessionType := Value;
+end;
+
+function TDAEEDBConnection.GetSPSelectSyntax(
+  HasArguments: Boolean): string;
+begin
+  Result:= ''; // not supported!
+end;
+
+{ TDAEElevateDBDriver }
+
+procedure TDAEElevateDBDriver.GetAuxDrivers(out List: IROStrings);
+begin
+  inherited;
+ // List.Add('Driver1');
+ // List.Add('Driver2');
+end;
+
+procedure TDAEElevateDBDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  List.Add('DataBaseName=<string>');
+  List.Add('ForceBufferFlush=(True,False)');
+  List.Add('KeepConnections=(True,False)');
+  List.Add('KeepTablesOpen=(True,False)');
+  List.Add('RecordLockProtocol=(lpPessimistic,lpOptimistic)');
+  List.Add('RecordLockRetryCount=<number>');
+  List.Add('RecordLockWaitTime=<number>');
+  List.Add('RecordChangeDetection=(True,False)');
+  List.Add('ProgressTimeInterval=<number>');
+  List.Add('SessionType=(stLocal,stRemote)');
+  List.Add('RemoteCompression=<number>');
+  List.Add('RemoteEncryption=(True,False)');
+  List.Add('RemoteHost=<string>');
+  List.Add('RemoteAddress=<string>');
+  List.Add('RemotePort=<number>');
+  List.Add('RemoteService=<string>');
+  List.Add('RemoteTrace=(True,False)');
+  List.Add('RemoteTimeout=<number>');
+  List.Add('RemotePing=(True,False)');
+  List.Add('RemotePingInterval=<number>');
+  List.Add('');
+  List.Add('=== Global Engine Options ===');
+  List.Add('EngineType=(etClient,etServer)');
+  List.Add('Signature=<string>');
+  List.Add('EncryptionPassword=<string>');
+  List.Add('LargeFileSupport=(True,False)');
+  List.Add('LicensedSessions=<number>');
+  List.Add('ConfigPath=<string>');
+  List.Add('ConfigName=<string>');
+  List.Add('ConfigExtension=<string>');
+  List.Add('LockExtension=<string>');
+  List.Add('LogExtension=<string>');
+  List.Add('MaxLogFileSize=<number>');
+  List.Add('CatalogName=<string>');
+  List.Add('CatalogExtension=<string>');
+  List.Add('BackupExtension=<string>');
+  List.Add('TableExtension=<string>');
+  List.Add('TableIndexExtension=<string>');
+  List.Add('TableBlobExtension=<string>');
+  List.Add('TempTablesPath=<string>');
+  List.Add('ServerName=<string>');
+  List.Add('ServerDescription=<string>');
+  List.Add('ServerPort=<number>');
+  List.Add('ServerThreadCacheSize=<number>');
+  List.Add('ServerEncryptedOnly=(True,False)');
+  List.Add('ServerSessionTimeout=<number>');
+  List.Add('ServerDeadSessionInterval=<number>');
+  List.Add('ServerDeadSessionExpiration=<number>');
+  List.Add('ServerMaxDeadSessions=<number>');
+  List.Add('ServerRunJobs=(True,False)');
+  List.Add('ServerJobCategory=<string>');
+end;
+
+function TDAEElevateDBDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  Result:=[doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAEElevateDBDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEEDBConnection;
+end;
+
+
+function TDAEElevateDBDriver.GetDescription: string;
+begin
+  result := 'ElevateDB Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEElevateDBDriver.GetDriverID: string;
+begin
+  result := 'ElevateDB';
+end;
+
+function TDAEElevateDBDriver.GetProviderDefaultCustomParameters(
+  Provider: string): string;
+begin
+  Result:='DataBaseName=<please specify>';
+end;
+
+{ TDAEElevDBQuery }
+
+procedure TDAEElevDBQuery.ClearParams;
+begin
+  inherited;
+  TEDBQuery(Dataset).Params.Clear;
+end;
+
+function TDAEElevDBQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  Result := TEDBQuery.Create(nil);
+  TEDBQuery(Result).SessionName := TDAEEDBConnection(aConnection).fNativeDatabase.SessionName;
+  TEDBQuery(Result).DatabaseName := TDAEEDBConnection(aConnection).fNativeDatabase.DatabaseName;
+end;
+
+function TDAEElevDBQuery.DoExecute: integer;
+begin
+  TEDBQuery(Dataset).ExecSQL;
+  Result:=TEDBQuery(Dataset).RowsAffected;
+end;
+
+function TDAEElevDBQuery.DoGetSQL: string;
+begin
+  Result := TEDBQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEElevDBQuery.DoPrepare(Value: boolean);
+begin
+//nothing
+  TEDBQuery(Dataset).Prepared:= Value;
+end;
+
+procedure TDAEElevDBQuery.DoSetSQL(const Value: string);
+begin
+  TEDBQuery(Dataset).SQL.Text := Value;
+end;
+
+function TDAEElevDBQuery.Execute: integer;
+begin
+  SetParamValues(GetParams);
+  Result:= DoExecute;
+  GetParamValues(GetParams);
+end;
+
+procedure TDAEElevDBQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TEDBQuery(Dataset).Params);
+end;
+
+procedure TDAEElevDBQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TEDBQuery(Dataset).Params);
+end;
+
+{ TDAEElevDBStoredProcedure }
+
+function TDAEElevDBStoredProcedure.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TEDBStoredProc.Create(nil);
+  TEDBStoredProc(Result).SessionName := TDAEEDBConnection(aConnection).fNativeDatabase.SessionName;
+  TEDBStoredProc(Result).DatabaseName := TDAEEDBConnection(aConnection).fNativeDatabase.DatabaseName;
+end;
+
+function TDAEElevDBStoredProcedure.Execute: integer;
+begin
+  TEDBStoredProc(Dataset).Prepare;
+  SetParamValues(GetParams);
+  Result:= DoExecute;
+  //Result:=TEDBStoredProc(Dataset).RecordCount;
+  GetParamValues(GetParams);
+end;
+
+function TDAEElevDBStoredProcedure.DoGetSQL: string;
+begin
+  Result := '';
+end;
+
+procedure TDAEElevDBStoredProcedure.DoPrepare(Value: boolean);
+begin
+  TEDBStoredProc(Dataset).Prepared:=Value;
+end;
+
+procedure TDAEElevDBStoredProcedure.DoSetSQL(const Value: string);
+begin
+  //
+end;
+
+procedure TDAEElevDBStoredProcedure.GetParamValues(
+  AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TEDBStoredProc(Dataset).Params);
+end;
+
+function TDAEElevDBStoredProcedure.GetStoredProcedureName: string;
+begin
+  Result := TEDBStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEElevDBStoredProcedure.RefreshParams;
+var
+  lField: TField;
+  i: integer;
+  par: TDAParam;
+begin
+  DoPrepare(False);
+  DoPrepare(True);
+  RefreshParamsStd(TEDBStoredProc(Dataset).Params);
+  For i:=0 to TEDBStoredProc(Dataset).FieldCount-1 do begin
+    par := GetParams.Add;
+    lField:=TEDBStoredProc(Dataset).Fields[i];
+    par.Name := lField.Name;
+    par.DataType := intVCLTypeToDAType(lField.DataType,lField.Size);
+    par.ParamType := daptOutput;
+    par.Size := lField.Size;
+  end;
+end;
+
+procedure TDAEElevDBStoredProcedure.SetParamValues(
+  AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TEDBStoredProc(Dataset).Params);
+end;
+
+procedure TDAEElevDBStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TEDBStoredProc(Dataset).StoredProcName := Name;
+end;
+
+function TDAEElevDBStoredProcedure.DoExecute: integer;
+begin
+  TEDBStoredProc(Dataset).ExecProc;
+  Result:=0;
+end;
+
+{ TElevateDBEngineProperties }
+
+function TElevateDBEngineProperties.GetBackupExtension: TEDBString;
+begin
+  Result := edbcomps.Engine.BackupExtension;
+end;
+
+function TElevateDBEngineProperties.GetCatalogExtension: TEDBString;
+begin
+  Result := edbcomps.Engine.CatalogExtension;
+end;
+
+function TElevateDBEngineProperties.GetCatalogName: TEDBString;
+begin
+  Result := edbcomps.Engine.CatalogName;
+end;
+
+function TElevateDBEngineProperties.GetConfigExtension: TEDBString;
+begin
+  Result := edbcomps.Engine.ConfigExtension;
+end;
+
+function TElevateDBEngineProperties.GetConfigName: TEDBString;
+begin
+  Result := edbcomps.Engine.ConfigName;
+end;
+
+function TElevateDBEngineProperties.GetConfigPath: TEDBString;
+begin
+  Result := edbcomps.Engine.ConfigPath;
+end;
+
+function TElevateDBEngineProperties.GetEncryptionPassword: TEDBString;
+begin
+  Result := edbcomps.Engine.EncryptionPassword;
+end;
+
+function TElevateDBEngineProperties.GetEngineType: TEDBEngineType;
+begin
+  Result := edbcomps.Engine.EngineType;
+end;
+
+function TElevateDBEngineProperties.GetLargeFileSupport: Boolean;
+begin
+  Result := edbcomps.Engine.LargeFileSupport;
+end;
+
+function TElevateDBEngineProperties.GetLicensedSessions: Integer;
+begin
+  Result := edbcomps.Engine.LicensedSessions;
+end;
+
+function TElevateDBEngineProperties.GetLockExtension: TEDBString;
+begin
+  Result := edbcomps.Engine.LockExtension;
+end;
+
+function TElevateDBEngineProperties.GetLogCategories: TEDBLogCategories;
+begin
+  Result := edbcomps.Engine.LogCategories;
+end;
+
+function TElevateDBEngineProperties.GetLogExtension: TEDBString;
+begin
+  Result := edbcomps.Engine.LogExtension;
+end;
+
+function TElevateDBEngineProperties.GetMaxLogFileSize: Integer;
+begin
+  Result := edbcomps.Engine.MaxLogFileSize;
+end;
+
+function TElevateDBEngineProperties.GetServerAddress: TEDBString;
+begin
+  Result := edbcomps.Engine.ServerAddress;
+end;
+
+function TElevateDBEngineProperties.GetServerAuthorizedAddresses: TEDBStrings;
+begin
+  Result := edbcomps.Engine.ServerAuthorizedAddresses;
+end;
+
+function TElevateDBEngineProperties.GetServerBlockedAddresses: TEDBStrings;
+begin
+  Result := edbcomps.Engine.ServerBlockedAddresses;
+end;
+
+function TElevateDBEngineProperties.GetServerDeadSessionExpiration: Integer;
+begin
+  Result := edbcomps.Engine.ServerDeadSessionExpiration;
+end;
+
+function TElevateDBEngineProperties.GetServerDeadSessionInterval: Integer;
+begin
+  Result := edbcomps.Engine.ServerDeadSessionInterval;
+end;
+
+function TElevateDBEngineProperties.GetServerDescription: TEDBString;
+begin
+  Result := edbcomps.Engine.ServerDescription;
+end;
+
+function TElevateDBEngineProperties.GetServerEncryptedOnly: Boolean;
+begin
+  Result := edbcomps.Engine.ServerEncryptedOnly;
+end;
+
+function TElevateDBEngineProperties.GetServerJobCategory: TEDBString;
+begin
+  Result := edbcomps.Engine.ServerJobCategory;
+end;
+
+function TElevateDBEngineProperties.GetServerMaxDeadSessions: Integer;
+begin
+  Result := edbcomps.Engine.ServerMaxDeadSessions;
+end;
+
+function TElevateDBEngineProperties.GetServerName: TEDBString;
+begin
+  Result := edbcomps.Engine.ServerName;
+end;
+
+function TElevateDBEngineProperties.GetServerPort: Integer;
+begin
+  Result := edbcomps.Engine.ServerPort;
+end;
+
+function TElevateDBEngineProperties.GetServerRunJobs: Boolean;
+begin
+  Result := edbcomps.Engine.ServerRunJobs;
+end;
+
+function TElevateDBEngineProperties.GetServerSessionTimeout: Integer;
+begin
+  Result := edbcomps.Engine.ServerSessionTimeout;
+end;
+
+function TElevateDBEngineProperties.GetServerThreadCacheSize: Integer;
+begin
+  Result := edbcomps.Engine.ServerThreadCacheSize;
+end;
+
+function TElevateDBEngineProperties.GetSignature: TEDBString;
+begin
+  Result := edbcomps.Engine.Signature;
+end;
+
+function TElevateDBEngineProperties.GetTableBlobExtension: TEDBString;
+begin
+  Result := edbcomps.Engine.TableBlobExtension;
+end;
+
+function TElevateDBEngineProperties.GetTableExtension: TEDBString;
+begin
+  Result := edbcomps.Engine.TableExtension;
+end;
+
+function TElevateDBEngineProperties.GetTableIndexExtension: TEDBString;
+begin
+  Result := edbcomps.Engine.TableIndexExtension;
+end;
+
+function TElevateDBEngineProperties.GetTempTablesPathProperty: TEDBString;
+begin
+  Result := edbcomps.Engine.TempTablesPath;
+end;
+
+procedure TElevateDBEngineProperties.SetBackupExtension(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.BackupExtension := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetCatalogExtension(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.CatalogExtension := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetCatalogName(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.CatalogName := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetConfigExtension(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.ConfigExtension := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetConfigName(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.ConfigName := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetConfigPath(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.ConfigPath := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetEncryptionPassword(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.EncryptionPassword := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetEngineType(
+  const Value: TEDBEngineType);
+begin
+  edbcomps.Engine.EngineType := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetLargeFileSupport(
+  const Value: Boolean);
+begin
+  edbcomps.Engine.LargeFileSupport := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetLicensedSessions(
+  const Value: Integer);
+begin
+  edbcomps.Engine.LicensedSessions := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetLockExtension(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.LockExtension := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetLogCategories(
+  const Value: TEDBLogCategories);
+begin
+  edbcomps.Engine.LogCategories := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetLogExtension(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.LogExtension := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetMaxLogFileSize(
+  const Value: Integer);
+begin
+  edbcomps.Engine.MaxLogFileSize := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerAddress(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.ServerAddress := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerAuthorizedAddresses(
+  const Value: TEDBStrings);
+begin
+  edbcomps.Engine.ServerAuthorizedAddresses := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerBlockedAddresses(
+  const Value: TEDBStrings);
+begin
+  edbcomps.Engine.ServerBlockedAddresses := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerDeadSessionExpiration(
+  const Value: Integer);
+begin
+  edbcomps.Engine.ServerDeadSessionExpiration := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerDeadSessionInterval(
+  const Value: Integer);
+begin
+  edbcomps.Engine.ServerDeadSessionInterval := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerDescription(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.ServerDescription := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerEncryptedOnly(
+  const Value: Boolean);
+begin
+  edbcomps.Engine.ServerEncryptedOnly := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerJobCategory(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.ServerJobCategory := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerMaxDeadSessions(
+  const Value: Integer);
+begin
+  edbcomps.Engine.ServerMaxDeadSessions := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerName(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.ServerName := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerPort(const Value: Integer);
+begin
+  edbcomps.Engine.ServerPort := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerRunJobs(
+  const Value: Boolean);
+begin
+  edbcomps.Engine.ServerRunJobs := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerSessionTimeout(
+  const Value: Integer);
+begin
+  edbcomps.Engine.ServerSessionTimeout := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetServerThreadCacheSize(
+  const Value: Integer);
+begin
+  edbcomps.Engine.ServerThreadCacheSize := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetSignature(const Value: TEDBString);
+begin
+  edbcomps.Engine.Signature := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetTableBlobExtension(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.TableBlobExtension := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetTableExtension(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.TableExtension := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetTableIndexExtension(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.TableIndexExtension := Value;
+end;
+
+procedure TElevateDBEngineProperties.SetTempTablesPath(
+  const Value: TEDBString);
+begin
+  edbcomps.Engine.TempTablesPath := Value;
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+  gEngineProperties := TElevateDBEngineProperties.Create;
+finalization
+  gEngineProperties := nil;
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAFIBDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAFIBDriver.pas
new file mode 100644
index 0000000..d596d87
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAFIBDriver.pas	
@@ -0,0 +1,682 @@
+unit uDAFIBDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_FIBDriver_Glyphs.res}
+
+{.$DEFINE MANUAL_STARTTRANSACTION}
+interface
+
+uses
+  Classes, DB, uDAEngine, uDAInterfaces, uDAIBInterfaces, FIBDatabase,
+  uROClasses, pFIBDatabase, FIBQuery, pFIBQuery, pFIBStoredProc, uDAUtils,
+  FIBDataSet, ibase, FIBSQLMonitor;
+
+type
+  { TDAFIBDriver }
+  TDAFIBDriver = class(TDADriverReference)
+  end;
+
+  { TFIBConnection }
+  TFIBConnection = class(TDAConnectionWrapper)
+  private
+    fDatabase: TpFIBDatabase;
+    fTransaction: TFIBTransaction;
+
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: boolean); override;
+
+  public
+    constructor Create(AOwner: TComponent); override;
+
+    property Database: TpFIBDatabase read fDatabase;
+    property Transaction: TFIBTransaction read fTransaction;
+  end;
+
+  { TDAEFIBDriver }
+  TDAEFIBDriver = class(TDAIBDriver)
+  private
+    fFIBTraceOptions: TFIBTraceFlags;
+    fTraceCallback: TDALogTraceEvent;
+    fMonitor: TFIBSQLMonitor;
+    procedure OnTrace(EventText: string; EventTime: TDateTime);
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    procedure CustomizeConnectionObject(aConnection: TDAEConnection); override;
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+  public
+  end;
+
+  { TDAEFIBConnection }
+  TDAEFIBConnection = class(TDAIBConnection, IDAInterbaseConnection, IDAIBTransactionAccess, IDAIBConnectionProperties, IDAUseGenerators, IDAFileBasedDatabase)
+  private
+    fConnection: TFIBConnection;
+    procedure IntOpen;
+  protected
+
+    // IIBTransactionAccess
+    function GetTransaction: TObject; safecall;
+
+    procedure Commit; safecall;
+    procedure CommitRetaining; safecall;
+    procedure Rollback; safecall;
+    procedure RollbackRetaining; safecall;
+
+    // IIBConnectionProperties
+    function GetRole: string; safecall;
+    procedure SetRole(const Value: string); safecall;
+    function GetSQLDialect: integer; override; safecall;
+    procedure SetSQLDialect(Value: integer); safecall;
+    function GetCharset: string; safecall;
+    procedure SetCharset(const Value: string); safecall;
+
+    // IDAConnection
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+  public
+  end;
+
+  { TDAEFIBQuery }
+  TDAEFIBQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+  protected
+    function DoGetRecordCount: integer; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+    procedure RefreshParams; override;
+    procedure DoSetActive(Value: Boolean); override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  { TDAEFIBStoredProcedure }
+  TDAEFIBStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  private
+    FSP: TpFIBStoredProc;
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoExecute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses SysUtils, uDADriverManager, uDARes, 
+  pFIBProps;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAFIBDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEFIBDriver.Create(nil);
+  result := _driver;
+end;
+
+
+{ TFIBConnection }
+
+constructor TFIBConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+
+  fDatabase := TpFIBDatabase.Create(Self);
+  fTransaction := TFIBTransaction.Create(Self);
+
+  fDatabase.UseLoginPrompt := FALSE;
+  fDatabase.DefaultTransaction := fTransaction;
+end;
+
+function TFIBConnection.GetConnected: Boolean;
+begin
+  result := fDatabase.Connected
+end;
+
+procedure TFIBConnection.SetConnected(Value: boolean);
+begin
+  // This first check is required.
+  // I think there's a bug in the FIB destroying sequence and the notification. TCustomConnection gets to this point *after*
+  // the owned components are destroyed. Only happens with FIB...
+
+  if (csDestroying in ComponentState) then Exit;
+  fDatabase.Connected := Value
+end;
+
+{ TDAEFIBConnection }
+
+procedure TDAEFIBConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  inherited;
+
+  fConnection.Database.SQLDialect := 3;
+  with aConnStrParser do begin
+    if (Self.UserID <> '') then
+      fConnection.Database.ConnectParams.UserName := Self.UserID
+    else
+      fConnection.Database.ConnectParams.UserName := UserID;
+
+    if (Self.Password <> '') then
+      fConnection.Database.ConnectParams.Password := Self.Password
+    else
+      fConnection.Database.ConnectParams.Password := Password;
+
+    if Server <> '' then 
+      fConnection.Database.DatabaseName := Server + ':' + Database
+    else
+      fConnection.Database.DatabaseName := Database;
+
+    if AuxParams['Dialect'] <> '' then
+      fConnection.Database.SQLDialect := StrtoInt(AuxParams['Dialect'])
+    else if AuxParams['SQLDialect'] <> '' then
+      fConnection.Database.SQLDialect := StrtoInt(AuxParams['SQLDialect']);
+
+    if AuxParams['Role'] <> '' then
+      fConnection.Database.ConnectParams.RoleName := AuxParams['Role'];
+
+    if AuxParams['Charset'] <> '' then
+      SetCharset(AuxParams['Charset']);
+
+  end;
+end;
+
+function TDAEFIBConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+  fConnection.Database.DefaultTransaction.StartTransaction;
+end;
+
+procedure TDAEFIBConnection.DoCommitTransaction;
+begin
+  fConnection.Database.DefaultTransaction.Commit;
+end;
+
+function TDAEFIBConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TFIBConnection.Create(nil);
+  result := fConnection;
+end;
+
+function TDAEFIBConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEFIBQuery
+end;
+
+function TDAEFIBConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEFIBStoredProcedure
+end;
+
+function TDAEFIBConnection.GetTransaction: TObject;
+begin
+  result := fConnection.fTransaction;
+end;
+
+procedure TDAEFIBConnection.DoRollbackTransaction;
+begin
+  fConnection.Database.DefaultTransaction.Rollback;
+end;
+
+function TDAEFIBConnection.GetRole: string;
+begin
+  result := fConnection.Database.ConnectParams.RoleName;
+end;
+
+function TDAEFIBConnection.GetSQLDialect: integer;
+begin
+  result := fConnection.Database.SQLDialect
+end;
+
+function TDAEFIBConnection.GetCharset: string;
+begin
+  result := fConnection.Database.ConnectParams.CharSet
+end;
+
+procedure TDAEFIBConnection.SetRole(const Value: string);
+begin
+  fConnection.Database.ConnectParams.RoleName := Value
+end;
+
+procedure TDAEFIBConnection.SetSQLDialect(Value: integer);
+begin
+  fConnection.Database.SQLDialect := Value
+end;
+
+procedure TDAEFIBConnection.SetCharset(const Value: string);
+begin
+  fConnection.Database.ConnectParams.CharSet := Value;
+end;
+
+procedure TDAEFIBConnection.Commit;
+begin
+  fConnection.fTransaction.Commit
+end;
+
+procedure TDAEFIBConnection.CommitRetaining;
+begin
+  fConnection.fTransaction.CommitRetaining
+end;
+
+procedure TDAEFIBConnection.Rollback;
+begin
+  fConnection.fTransaction.Rollback
+end;
+
+procedure TDAEFIBConnection.RollbackRetaining;
+begin
+  fConnection.fTransaction.RollbackRetaining
+end;
+
+function TDAEFIBConnection.DoGetInTransaction: boolean;
+begin
+  result := fConnection.fTransaction.InTransaction
+end;
+
+procedure TDAEFIBConnection.IntOpen;
+begin
+  {$IFNDEF MANUAL_STARTTRANSACTION}
+  if not fConnection.Connected then fConnection.Open;
+  if not fConnection.Transaction.InTransaction then fConnection.Transaction.StartTransaction;
+  {$ENDIF}
+end;
+
+{ TDAEFIBDriver }
+
+procedure TDAEFIBDriver.CustomizeConnectionObject(aConnection: TDAEConnection);
+begin
+  // 25/04/06 13:05 Donald Shimoda . To do.
+  //TDAEFIBConnection(aConnection).fConnection.Database.TraceFlags := fIBTraceOptions;
+end;
+
+procedure TDAEFIBDriver.DoSetTraceOptions(TraceActive: boolean;
+  TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+begin
+  inherited;
+
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TFIBSQLMonitor.Create(Self);
+
+    fMonitor.Active := False;
+    fMonitor.OnSQL := OnTrace;
+
+    fFIBTraceOptions := [];
+    if (toPrepare in TraceOptions) then fFIBTraceOptions := fFIBTraceOptions + [tfQPrepare];
+    if (toExecute in TraceOptions) then fFIBTraceOptions := fFIBTraceOptions + [tfQExecute];
+    if (toFetch in TraceOptions) then fFIBTraceOptions := fFIBTraceOptions + [tfQFetch];
+    if (toConnect in TraceOptions) then fFIBTraceOptions := fFIBTraceOptions + [tfConnect];
+    if (toTransact in TraceOptions) then fFIBTraceOptions := fFIBTraceOptions + [tfTransact];
+    if (toService in TraceOptions) then fFIBTraceOptions := fFIBTraceOptions + [tfService];
+    if (toMisc in TraceOptions) then fFIBTraceOptions := fFIBTraceOptions + [tfMisc];
+
+    fTraceCallBack := Callback;
+
+    fMonitor.TraceFlags := fFIBTraceOptions;
+    fMonitor.Active := True;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+end;
+
+
+function TDAEFIBDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEFIBConnection;
+end;
+
+function TDAEFIBDriver.GetDescription: string;
+begin
+  result := 'FIBPlus Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEFIBDriver.GetDriverID: string;
+begin
+  result := 'FIB';
+end;
+
+procedure CreateParams(FQuery: TFIBQuery; Pars: TDAParamCollection; CreateOutputParams: Boolean = False);
+var
+  i: Integer;
+  par: TDAParam;
+  sqPar: TFIBXSQLVAR;
+begin
+  if FQuery.Database.Handle = nil then
+    FQuery.Database.Open;
+
+  if not FQuery.Prepared then
+    FQuery.Prepare;
+  pars.Clear;
+  for i := 0 to FQuery.ParamCount -1 do begin
+    sqpar := FQuery.Params[i];
+    if sqpar.IsParam then begin
+      par := pars.Add;
+      par.Name := sqPar.Name;
+      par.ParamType:= daptInput;
+      case sqpar.SQLType and not 1 of
+        SQL_VARYING, SQL_TEXT:
+        begin
+          if sqPar.CharacterSet = 'UNICODE_FSS' then
+            par.DataType := datWideString
+          else
+            par.DataType := datString;
+          par.Size := sqPar.Size;
+        end;
+        SQL_DOUBLE, SQL_FLOAT,SQL_D_FLOAT:par.DataType := datFloat;
+        SQL_SHORT, SQL_LONG: begin
+         if sqPar.Scale <> 0 then
+           par.DataType := datFloat
+         else
+           par.DataType := datInteger;
+        end;
+        SQL_INT64: begin
+         if sqPar.Scale <> 0 then
+           par.DataType := datFloat
+         else
+           par.DataType := datLargeInt;
+        end;
+        SQL_TIMESTAMP,
+        SQL_TYPE_TIME,
+        SQL_TYPE_DATE: par.DataType := datDateTime;
+        SQL_BLOB:
+          if sqPar.SQLSubtype = 1 then
+             par.DataType := datMemo
+          else
+             par.DataType := datBlob;
+        SQL_BOOLEAN: par.DataType := datBoolean;
+      else
+          par.DataType := datUnknown;
+      end;
+    end;
+  end;
+
+  if CreateOutputParams then
+    for i := 0 to FQuery.FieldCount -1 do begin
+      sqpar := FQuery.Fields[i];
+      par := pars.Add;
+      par.Name := sqPar.Name;
+      par.ParamType:= daptOutput;
+      case sqpar.SQLType and not 1 of
+        SQL_VARYING, SQL_TEXT:
+        begin
+          if sqPar.CharacterSet = 'UNICODE_FSS' then
+            par.DataType := datWideString
+          else
+            par.DataType := datString;
+          par.Size := sqPar.Size;
+        end;
+        SQL_DOUBLE, SQL_FLOAT,SQL_D_FLOAT:par.DataType := datFloat;
+        SQL_SHORT, SQL_LONG: begin
+         if sqPar.Scale <> 0 then
+           par.DataType := datFloat
+         else
+           par.DataType := datInteger;
+        end;
+        SQL_INT64: begin
+         if sqPar.Scale <> 0 then
+           par.DataType := datFloat
+         else
+           par.DataType := datLargeInt;
+        end;
+        SQL_TIMESTAMP,
+        SQL_TYPE_TIME,
+        SQL_TYPE_DATE: par.DataType := datDateTime;
+        SQL_BLOB:
+          if sqPar.SQLSubtype = 1 then
+             par.DataType := datMemo
+          else
+             par.DataType := datBlob;
+        SQL_BOOLEAN: par.DataType := datBoolean;
+      else
+          par.DataType := datUnknown;
+      end;
+    end;
+end;
+
+
+{ TDAEFIBQuery }
+
+
+procedure TDAEFIBDriver.OnTrace(EventText: string; EventTime: TDateTime);
+begin
+  if Assigned(fTraceCallback) then fTraceCallback(fMonitor, EventText, 0);
+end;
+
+procedure TDAEFIBQuery.ClearParams;
+begin
+  inherited;
+  TFIBDataSet(Dataset).Params.ClearValues;
+end;
+
+{ TDAEFIBStoredProcedure }
+
+function TDAEFIBStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  FreeAndNil(FSP);
+  FSP := TpFIBStoredProc.Create(nil);
+  FSP.Database := TDAEFIBConnection(aConnection).fConnection.Database;
+  result := nil;
+end;
+
+function TDAEFIBStoredProcedure.Execute: integer;
+begin
+  TDAEFIBConnection(Connection).IntOpen;
+  if FSP.Database.Handle = nil then FSP.Database.Open;
+
+  SetParamValues(GetParams);
+  Result:= DoExecute;
+  GetParamValues(GetParams);
+end;
+
+procedure TDAEFIBStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  sqPar: TFIBXSQLVAR;
+begin
+  FSP.Prepare;
+  for i := 0 to AParams.Count - 1 do begin
+    if (AParams[i].ParamType in [daptInput, daptInputOutput, daptUnknown]) then begin
+     sqPar:= FSP.ParamByName(AParams[i].Name);
+     if (sqPar <> nil) and sqPar.IsParam then sqPar.Value:=AParams[i].Value;
+    end;
+  end;
+end;
+
+procedure TDAEFIBStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  sqPar: TFIBXSQLVAR;
+begin
+  for i := 0 to AParams.Count - 1 do begin
+    if (AParams[i].ParamType in [daptOutput, daptInputOutput, daptResult]) then begin
+     sqPar:= FSP.FieldByName(AParams[i].Name);
+     if (sqPar <> nil) then AParams[i].Value:=sqPar.Value;
+    end;
+  end;
+end;
+
+
+function TDAEFIBStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := FSP.StoredProcName;
+end;
+
+procedure TDAEFIBStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TDAEFIBConnection(Connection).IntOpen;
+  FSP.StoredProcName := Name;
+end;
+
+procedure TDAEFIBStoredProcedure.RefreshParams;
+begin
+  TDAEFIBConnection(Connection).IntOpen;
+  CreateParams(FSP, GetParams,True);
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+function TDAEFIBStoredProcedure.DoExecute: integer;
+begin
+  FSP.ExecQuery;
+  result := FSP.RowsAffected;
+end;
+
+{ TDAEFIBQuery }
+
+function TDAEFIBQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+var
+  ds: TFIBDataSet;
+begin
+  ds := TFIBDataSet.Create(nil);
+  ds.Database := TDAEFIBConnection(aConnection).fConnection.Database;
+  ds.Transaction := TDAEFIBConnection(aConnection).fConnection.Transaction;
+  ds.PrepareOptions := ds.PrepareOptions + [psUseLargeIntField];
+  result := ds;
+end;
+
+function TDAEFIBQuery.DoExecute: integer;
+begin
+  TDAEFIBConnection(Connection).IntOpen;
+  TFIBDataSet(Dataset).QSelect.ExecQuery;
+  result := TFIBDataSet(Dataset).QSelect.RowsAffected;
+end;
+
+function TDAEFIBQuery.DoGetRecordCount: integer;
+begin
+  result := TFIBDataSet(DAtaset).QSelect.RecordCount;
+end;
+
+function TDAEFIBQuery.DoGetSQL: string;
+begin
+  result := TFIBDataSet(DAtaset).QSelect.SQL.Text;
+end;
+
+procedure TDAEFIBQuery.DoPrepare(Value: boolean);
+begin
+  TDAEFIBConnection(Connection).IntOpen;
+  if Value then TFIBDataSet(DAtaset).QSelect.Prepare;
+end;
+
+procedure TDAEFIBQuery.DoSetActive(Value: Boolean);
+begin
+  TDAEFIBConnection(Connection).IntOpen;
+  if Value then begin
+    if not TFIBDataSet(Dataset).Database.Connected then
+      TFIBDataSet(Dataset).Database.Connected := true;
+  end;
+  inherited DoSetActive(Value);
+end;
+
+procedure TDAEFIBQuery.DoSetSQL(const Value: string);
+begin
+  TFIBDataSet(DAtaset).QSelect.SQL.Text := Value;
+end;
+
+
+
+procedure TDAEFIBQuery.RefreshParams;
+begin
+  CreateParams(TFIBDataSet(Dataset).QSelect, GetParams);
+end;
+
+
+procedure TDAEFIBQuery.SetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  _par: TDAParam;
+begin
+  TFIBDataSet(Dataset).Prepare;
+  for i := 0 to TFIBDataSet(Dataset).ParamCount - 1 do begin
+    _Par := AParams.ParamByName(TFIBDataSet(Dataset).Params[i].Name);
+    if (_Par.ParamType in [daptInput, daptInputOutput, daptUnknown]) then
+      if (TFIBDataSet(Dataset).Params[i].IsParam) then
+         TFIBDataSet(Dataset).Params[i].Value := _Par.Value;
+  end;
+end;
+
+procedure TDAEFIBQuery.GetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  _Par: TDAParam;
+begin
+  for i := 0 to TFIBDataSet(Dataset).ParamCount - 1 do begin
+    _Par := AParams.ParamByName(TFIBDataSet(Dataset).Params[i].Name);
+     if (_Par.ParamType in [daptOutput, daptInputOutput, daptResult]) then
+      _Par.Value := TFIBDataSet(Dataset).Params[i].Value;
+  end;
+end;
+
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBDACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBDACDriver.pas
new file mode 100644
index 0000000..550449f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBDACDriver.pas	
@@ -0,0 +1,579 @@
+unit uDAIBDACDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_IBDACDriver_Glyphs.res}
+
+interface
+
+uses
+  DB, Classes, uDAEngine, uDAInterfaces, uDAADOInterfaces, uROClasses,
+  DBAccess, IBC, DASQLMonitor,
+  IBCSQLMonitor, Variants, uDAUtils, uDAIBInterfaces;
+
+type { TDAIBDACDriver }
+  TDAIBDACDriver = class(TDADriverReference)
+  end;
+
+  { TDAEIBDACDriver }
+  TDAEIBDACDriver = class(TDAIBDriver)
+  private
+    fMonitor: TIBCSQLMonitor;
+    fTraceCallBack: TDALogTraceEvent;
+    procedure OnIBDACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+    procedure CustomizeConnectionObject(aConnection: TDAEConnection); override;
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+  end;
+
+  { TDAEIBDACConnection }
+  TDAEIBDACConnection = class(TDAIBConnection, IDAInterbaseConnection, IDAIBTransactionAccess, IDAIBConnectionProperties, IDAUseGenerators, IDAFileBasedDatabase)
+  private
+    fConnection: TIBCConnection;
+  protected
+    // IIBTransactionAccess
+    function GetTransaction: TObject; safecall;
+
+    procedure Commit; safecall;
+    procedure CommitRetaining; safecall;
+    procedure Rollback; safecall;
+    procedure RollbackRetaining; safecall;
+
+    // IIBConnectionProperties
+    function GetRole: string; safecall;
+    procedure SetRole(const Value: string); safecall;
+    function GetSQLDialect: integer;override; safecall;
+    procedure SetSQLDialect(Value: integer); safecall;
+    function GetCharset: string; safecall;
+    procedure SetCharset(const Value: string); safecall;
+
+
+    // IDAConnection
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+  end;
+
+  { TDAEIBDACQuery }
+  TDAEIBDACQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+
+  protected
+    function DoGetRecordCount: integer; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+  end;
+
+  { TDAEIBDACStoredProcedure }
+  TDAEIBDACStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: Integer; override;
+    function Execute: integer; override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils,
+  uDADriverManager, uDARes,
+  uROBinaryHelpers;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAIBDACDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+{$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+{$ENDIF}
+  if (_driver = nil) then _driver := TDAEIBDACDriver.Create(nil);
+  result := _driver;
+end;
+
+{$I uDACRLabsUtils.inc}
+
+{ TDAEIBDACConnection }
+
+procedure TDAEIBDACConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  inherited;
+  SetSQLDialect(3);
+  with aConnStrParser do begin
+    if (Self.UserID <> '') then
+      fConnection.Username := Self.UserID
+    else
+      fConnection.Username := UserID;
+
+    if (Self.Password <> '') then
+      fConnection.Password := Self.Password
+    else
+      fConnection.Password := Password;
+
+    if Server <> '' then
+      fConnection.Database := Server + ':' + Database
+    else
+      fConnection.Database := Database;
+
+    if AuxParams['Dialect'] <> '' then
+      SetSQLDialect(StrToInt(AuxParams['Dialect']))
+    else if AuxParams['SQLDialect'] <> '' then
+      SetSQLDialect(StrToInt(AuxParams['SQLDialect']));
+
+    if AuxParams['Role'] <> '' then SetRole(AuxParams['Role']);
+
+    if AuxParams['Charset'] <> '' then SetCharset(AuxParams['Charset']);
+    if AuxParams['EnableMemos'] <> '' then fConnection.Options.EnableMemos := StrToBool(AuxParams['EnableMemos']);
+    if AuxParams['UseUnicode'] <> '' then fConnection.Options.UseUnicode := StrToBool(AuxParams['UseUnicode']);
+  end;
+end;
+
+function TDAEIBDACConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+  fConnection.StartTransaction;
+end;
+
+procedure TDAEIBDACConnection.DoCommitTransaction;
+begin
+  fConnection.Commit;
+end;
+
+function TDAEIBDACConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TIBCConnection.Create(nil);
+  fConnection.LoginPrompt := FALSE;
+
+  result := fConnection;
+end;
+
+function TDAEIBDACConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEIBDACQuery;
+end;
+
+function TDAEIBDACConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEIBDACStoredProcedure;
+end;
+
+(*function SqlServerToDAType(aType:integer):TDADataType;
+begin
+  case aType of
+    34:result := datBlob;
+    35:result := datMemo;
+    36:result := datString; //uniqueidentifier
+    48:result := datInteger;
+    52:result := datInteger;
+    56:result := datInteger;
+    58:result := datDateTime;
+    59:result := datFloat;
+    60:result := datCurrency;
+    61:result := datDateTime;
+    62:result := datFloat;
+    //98    sql_variant
+    99:result := datMemo;//    ntext
+    104:result := datBoolean;
+    106:result := datFloat;
+    108:result := datFloat;
+    122:result := datCurrency;
+    127:result := datInteger;
+    165:result := datBlob; // varbinary
+    167:result := datString;
+    173:result := datBlob;   // binary
+    175:result := datString; //   char
+    189:result := datBlob;   //   timestamp
+    231:result := datString; //  nvarchar
+    239:result := datString; //nchar
+    240:result := datDateTime;
+    241:result := datBlob;//   xml
+    else result := datUnknown;
+  end;
+end;
+
+procedure TDAEIBDACConnection.DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection);
+var
+  ds : TIBCQuery;
+  lID:string;
+begin
+  ds := TIBCQuery.Create(NIL);
+  try
+
+    ds.Connection := fConnection;
+    ds.SQL.Text := 'select * from sysobjects where xtype=''P'' and name='''+aStoredProcedureName+'''';
+    ds.Open;
+    try
+      if ds.EOF then RaiseError('Stored Procedure %s not found in database',[aStoredProcedureName]);
+      lID := ds.FieldbyName('id').AsString;
+    finally
+      ds.Close();
+    end;
+
+    ds.SQL.Text := 'select * from sys.parameters where object_id='''+lID+''' ORDER BY parameter_id';
+    ds.Open;
+    try
+      Params := TDAParamCollection.Create(nil);
+      while not ds.Eof do begin
+        with Params.Add() do begin
+          Name := ds.FieldByName('name').AsString;
+
+          DataType := SqlServerToDAType(ds.FieldByName('system_type_id').AsInteger);
+          Size := ds.FieldByName('max_length').AsInteger;
+
+          {if ds.FieldByName('has_default_value').AsBoolean then
+            DefaultValue := ds.FieldByName('default_Value').AsInteger;}
+
+          if ds.FieldByName('is_output').AsBoolean then
+            ParamType := daptOutput
+          else
+            ParamType := daptInput;
+
+        end;
+        ds.Next();
+      end;
+    finally
+      Close();
+    end;
+
+  finally
+    ds.Free;
+  end;
+end;*)
+
+procedure TDAEIBDACConnection.DoRollbackTransaction;
+begin
+  fConnection.Rollback;
+end;
+
+function TDAEIBDACConnection.DoGetInTransaction: boolean;
+begin
+  result := fConnection.InTransaction
+end;
+
+procedure TDAEIBDACConnection.Commit;
+begin
+  fConnection.Commit;
+end;
+
+procedure TDAEIBDACConnection.CommitRetaining;
+begin
+  fConnection.CommitRetaining;
+end;
+
+function TDAEIBDACConnection.GetCharset: string;
+begin
+  result := fConnection.Options.Charset;
+end;
+
+function TDAEIBDACConnection.GetRole: string;
+begin
+  Result := fConnection.Options.Role;
+end;
+
+function TDAEIBDACConnection.GetSQLDialect: integer;
+begin
+  Result := fConnection.SQLDialect;
+end;
+
+function TDAEIBDACConnection.GetTransaction: TObject;
+begin
+  Result := fConnection.DefaultTransaction;
+end;
+
+procedure TDAEIBDACConnection.Rollback;
+begin
+  fConnection.Rollback;
+end;
+
+procedure TDAEIBDACConnection.RollbackRetaining;
+begin
+  fConnection.RollbackRetaining;
+end;
+
+procedure TDAEIBDACConnection.SetCharset(const Value: string);
+begin
+  fConnection.Options.Charset := Value;
+end;
+
+procedure TDAEIBDACConnection.SetRole(const Value: string);
+begin
+  fConnection.Options.Role := Value;
+end;
+
+procedure TDAEIBDACConnection.SetSQLDialect(Value: integer);
+begin
+  fConnection.SQLDialect := Value;
+end;
+
+{ TDAEIBDACDriver }
+
+procedure TDAEIBDACDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+//  List.Add('EnableMemos={True,False}');
+//  List.Add('UseUnicode={True,False}');
+end;
+
+function TDAEIBDACDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEIBDACConnection;
+end;
+
+function TDAEIBDACDriver.GetDescription: string;
+begin
+  result := 'Core Lab IBDAC Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEIBDACDriver.GetDriverID: string;
+begin
+  result := 'IBDAC';
+end;
+
+procedure TDAEIBDACDriver.OnIBDACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+begin
+  inherited;
+  //  if Assigned(fTraceCallback) then fTraceCallback(Sender, Text, integer(Flag));
+end;
+
+procedure TDAEIBDACDriver.DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+var
+  IBDACopts: TDATraceFlags;
+begin
+  inherited;
+  exit;
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TIBCSQLMonitor.Create(Self);
+
+    fMonitor.Active := FALSE;
+    fMonitor.OnSQL := OnIBDACTrace;
+
+    IBDACopts := [];
+    if (toPrepare in TraceOptions) then IBDACopts := IBDACopts + [tfQPrepare];
+    if (toExecute in TraceOptions) then IBDACopts := IBDACopts + [tfQExecute];
+    if (toFetch in TraceOptions) then IBDACopts := IBDACopts + [tfQFetch];
+    if (toError in TraceOptions) then IBDACopts := IBDACopts + [tfError];
+    if (toStmt in TraceOptions) then IBDACopts := IBDACopts + [tfStmt];
+    if (toConnect in TraceOptions) then IBDACopts := IBDACopts + [tfConnect];
+    if (toTransact in TraceOptions) then IBDACopts := IBDACopts + [tfTransact];
+    if (toBlob in TraceOptions) then IBDACopts := IBDACopts + [tfBlob];
+    if (toService in TraceOptions) then IBDACopts := IBDACopts + [tfService];
+    if (toMisc in TraceOptions) then IBDACopts := IBDACopts + [tfMisc];
+    if (toParams in TraceOptions) then IBDACopts := IBDACopts + [tfParams];
+
+    fTraceCallBack := Callback;
+
+    fMonitor.TraceFlags := IBDACopts;
+    fMonitor.Active := TRUE;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+end;
+
+procedure TDAEIBDACDriver.CustomizeConnectionObject(
+  aConnection: TDAEConnection);
+begin
+  //
+end;
+
+{ TDAEIBDACQuery }
+
+procedure TDAEIBDACQuery.ClearParams;
+begin
+  inherited;
+  TIBCQuery(Dataset).Params.Clear;
+end;
+
+function TDAEIBDACQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TIBCQuery.Create(nil);
+  TIBCQuery(result).FetchAll := True;  //for preventing creating an additional session when you call StartTransaction (an known issue of OLEDB)
+  TIBCQuery(result).Unidirectional := True;
+  TIBCQuery(result).ReadOnly := TRUE;
+  TIBCQuery(result).Connection := TDAEIBDACConnection(aConnection).fConnection;
+  TIBCQuery(result).AutoCommit := False;
+end;
+
+function TDAEIBDACQuery.DoExecute: integer;
+begin
+  TIBCQuery(Dataset).ExecSQL;
+  result := TIBCQuery(Dataset).RowsAffected;
+end;
+
+function TDAEIBDACQuery.DoGetRecordCount: integer;
+begin
+  Result := TIBCQuery(Dataset).RecordCount;
+end;
+
+function TDAEIBDACQuery.DoGetSQL: string;
+begin
+  result := TIBCQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEIBDACQuery.DoPrepare(Value: boolean);
+begin
+  TIBCQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEIBDACQuery.DoSetSQL(const Value: string);
+begin
+  TIBCQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEIBDACQuery.GetParamValues(AParams: TDAParamCollection);
+var
+  I: Integer;
+  lParam: TIBCParam;
+begin
+  for i := 0 to TIBCQuery(DataSet).Params.Count - 1 do begin
+    lParam:=TIBCQuery(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      AParams.ParamByName(lParam.Name).Value := lParam.Value;
+  end;
+end;
+
+procedure TDAEIBDACQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TIBCQuery(Dataset).Params, true);
+end;
+
+{ TDAEIBDACStoredProcedure }
+
+function TDAEIBDACStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TIBCStoredProc.Create(nil);
+  TIBCStoredProc(result).Connection := TDAEIBDACConnection(aConnection).fConnection;
+  TIBCStoredProc(result).AutoCommit := False;
+end;
+
+function TDAEIBDACStoredProcedure.Execute: integer;
+begin
+  TIBCStoredProc(Dataset).Prepare;
+  SetParamValues(GetParams);
+  Result:=DoExecute;
+  GetParamValues(GetParams);
+end;
+
+
+procedure TDAEIBDACStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+var
+  i: Integer;
+  lParam: TIBCParam;
+begin
+  for i := 0 to TIBCStoredProc(DataSet).Params.Count - 1 do begin
+    lParam:=TIBCStoredProc(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      AParams.ParamByName(lParam.Name).Value := lParam.Value;
+  end;
+end;
+
+function TDAEIBDACStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TIBCStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEIBDACStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TIBCStoredProc(Dataset).StoredProcName := Name;
+end;
+
+procedure TDAEIBDACStoredProcedure.RefreshParams;
+begin
+  TIBCStoredProc(Dataset).Prepare;
+  RefreshParamsStd(TIBCStoredProc(Dataset).Params);
+end;
+
+procedure TDAEIBDACStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TIBCStoredProc(Dataset).Params);
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+function TDAEIBDACStoredProcedure.DoExecute: Integer;
+begin
+  TIBCStoredProc(Dataset).ExecProc;
+  result := TIBCStoredProc(Dataset).RowsAffected;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBODriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBODriver.pas
new file mode 100644
index 0000000..cc2d92a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBODriver.pas	
@@ -0,0 +1,530 @@
+unit uDAIBODriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_IBODriver_Glyphs.res}
+
+interface
+
+uses DB, Classes, uDAEngine, uDAInterfaces, uDAIBInterfaces, uROClasses,
+  IBODataset, IB_Components, IB_Monitor, uDAUtils;
+
+type
+  { TDAIBODriver }
+  TDAIBODriver = class(TDADriverReference)
+  end;
+
+  { TIBOConnection }
+  TIBOConnection = class(TDAConnectionWrapper)
+  private
+    fDatabase: TIBODatabase;
+
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: boolean); override;
+
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property Database: TIBODatabase read fDatabase;
+  end;
+
+  { TDAEIBODriver }
+  TDAEIBODriver = class(TDAIBDriver)
+  private
+    fTraceCallback: TDALogTraceEvent;
+    fMonitor: TIB_Monitor;
+    procedure OnIBOTrace(Sender: TObject; const NewString: string);
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions;
+      Callback: TDALogTraceEvent); override;
+
+  public
+  end;
+
+  { TDAEIBOConnection }
+  TDAEIBOConnection = class(TDAIBConnection, IDAInterbaseConnection, IDAIBTransactionAccess, IDAIBConnectionProperties, IDAUseGenerators,
+      IDAFileBasedDatabase)
+  private
+    fConnection: TIBOConnection;
+    fSQLDialect: integer; // See TDAEIBOConnection.GetSQLDialect for more details
+
+  protected
+
+    // IIBTransactionAccess
+    function GetTransaction: TObject; safecall;
+
+    procedure Commit; safecall;
+    procedure CommitRetaining; safecall;
+    procedure Rollback; safecall;
+    procedure RollbackRetaining; safecall;
+
+    // IIBConnectionProperties
+    function GetRole: string; safecall;
+    procedure SetRole(const Value: string); safecall;
+    function GetSQLDialect: integer; override;safecall;
+    procedure SetSQLDialect(Value: integer); safecall;
+    function GetCharset: string; safecall;
+    procedure SetCharset(const Value: string); safecall;
+
+    // IDAConnection
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+  public
+  end;
+
+  { TDAEIBOQuery }
+  TDAEIBOQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+  end;
+
+  { TDAEIBOStoredProcedure }
+  TDAEIBOStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  private
+
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses SysUtils, uDADriverManager, uDARes, uROBinaryHelpers, Variants;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAIBODriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEIBODriver.Create(nil);
+  result := _driver;
+end;
+
+
+
+{ TIBOConnection }
+
+constructor TIBOConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+
+  fDatabase := TIBODatabase.Create(Self);
+  fDatabase.LoginPrompt := FALSE;
+end;
+
+destructor TIBOConnection.Destroy;
+begin
+  FreeAndNil(fDatabase);
+  inherited;
+end;
+
+function TIBOConnection.GetConnected: Boolean;
+begin
+  result := fDatabase.Connected
+end;
+
+procedure TIBOConnection.SetConnected(Value: boolean);
+begin
+  if fDatabase <> nil then fDatabase.Connected := Value;
+end;
+
+{ TDAEIBOConnection }
+
+procedure TDAEIBOConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    if (Self.UserID <> '') then
+      fConnection.Database.Username := Self.UserID
+    else
+      fConnection.Database.Username := UserID;
+
+    if (Self.Password <> '') then
+      fConnection.Database.Password := Self.Password
+    else
+      fConnection.Database.Password := Password;
+
+    if (Server <> '') then
+      fConnection.Database.DatabaseName := Server + ':' + Database
+    else
+      fConnection.Database.DatabaseName := Database;
+
+    if AuxParams['Dialect'] <> '' then
+      SetSQLDialect(StrToInt(AuxParams['Dialect']))
+    else if AuxParams['SQLDialect'] <> '' then
+      SetSQLDialect(StrToInt(AuxParams['SQLDialect']));
+
+    if AuxParams['Role'] <> '' then
+      SetRole(AuxParams['Role']);
+
+    if AuxParams['Charset'] <> '' then
+      fConnection.Database.CharSet := AuxParams['Charset'];
+
+  end;
+end;
+
+function TDAEIBOConnection.DoBeginTransaction: integer;
+begin
+  fConnection.Database.DefaultTransaction.StartTransaction;
+  result := -1;
+end;
+
+procedure TDAEIBOConnection.DoCommitTransaction;
+begin
+  fConnection.Database.DefaultTransaction.Commit;
+end;
+
+function TDAEIBOConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TIBOConnection.Create(nil);
+  fSQLDialect := fConnection.Database.SQLDialect;
+  result := fConnection;
+end;
+
+function TDAEIBOConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEIBOQuery
+end;
+
+function TDAEIBOConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEIBOStoredProcedure
+end;
+
+function TDAEIBOConnection.GetTransaction: TObject;
+begin
+  result := fConnection.Database.DefaultTransaction;
+end;
+
+procedure TDAEIBOConnection.DoRollbackTransaction;
+begin
+  fConnection.Database.DefaultTransaction.Rollback;
+end;
+
+function TDAEIBOConnection.GetRole: string;
+begin
+  result := fConnection.Database.SQLRole
+end;
+
+function TDAEIBOConnection.GetSQLDialect: integer;
+begin
+  // AleF: I modified this because somehow IBO returned 3 even after setting this value to 2 or else.
+  // Somewhere in the IBO code this calue gets reset. This is a work around that basically makes QuoteIdentifier work correctly
+
+  result := fSQLDialect; // fConnection.Database.SQLDialect;
+end;
+
+procedure TDAEIBOConnection.SetSQLDialect(Value: integer);
+begin
+  fSQLDialect := Value;
+  fConnection.Database.SQLDialect := Value;
+end;
+
+procedure TDAEIBOConnection.SetRole(const Value: string);
+begin
+  fConnection.Database.SQLRole := Value
+end;
+
+procedure TDAEIBOConnection.Commit;
+begin
+  fConnection.Database.Commit
+end;
+
+procedure TDAEIBOConnection.CommitRetaining;
+begin
+  fConnection.Database.CommitRetaining
+end;
+
+procedure TDAEIBOConnection.Rollback;
+begin
+  fConnection.Database.Rollback
+end;
+
+procedure TDAEIBOConnection.RollbackRetaining;
+begin
+  fConnection.Database.RollbackRetaining
+end;
+
+function TDAEIBOConnection.DoGetInTransaction: boolean;
+begin
+  result := fConnection.Database.InTransaction
+end;
+
+function TDAEIBOConnection.GetCharset: string;
+begin
+  result := fConnection.Database.CharSet;
+end;
+
+procedure TDAEIBOConnection.SetCharset(const Value: string);
+begin
+  fConnection.Database.CharSet := Value;
+end;
+
+{ TDAEIBODriver }
+
+function TDAEIBODriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEIBOConnection
+end;
+
+function TDAEIBODriver.GetDescription: string;
+begin
+  result := 'Interbase Objects (IBO) Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEIBODriver.GetDriverID: string;
+begin
+  result := 'IBO';
+end;
+
+procedure TDAEIBODriver.OnIBOTrace(Sender: TObject; const NewString: string);
+begin
+  if Assigned(fTraceCallback) then fTraceCallback(fMonitor, NewString, 0);
+end;
+
+procedure TDAEIBODriver.DoSetTraceOptions(TraceActive: boolean; TraceOptions:
+  TDATraceOptions; Callback: TDALogTraceEvent);
+begin
+  inherited;
+
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TIB_Monitor.Create(Self);
+
+    fMonitor.Enabled := FALSE;
+    fMonitor.OnMonitorOutputItem := OnIBOTrace;
+    fMonitor.IncludeTimeStamp := True;
+    fMonitor.ItemStart := '';
+    fMonitor.ItemEnd := '';
+    fMonitor.NewLineText := ',';
+
+    FMonitor.MonitorGroups := [];
+    FMonitor.StatementGroups := [];
+
+    if (toPrepare in TraceOptions) then begin
+      FMonitor.MonitorGroups := FMonitor.MonitorGroups + [mgStatement];
+      FMonitor.StatementGroups := FMonitor.StatementGroups + [sgPrepare, sgAllocate, sgStatementInfo, sgDescribe];
+    end;
+
+    if (toExecute in TraceOptions) then begin
+      FMonitor.MonitorGroups := FMonitor.MonitorGroups + [mgStatement];
+      FMonitor.StatementGroups := FMonitor.StatementGroups + [sgExecute];
+    end;
+
+    if (toFetch in TraceOptions) then begin
+      FMonitor.MonitorGroups := FMonitor.MonitorGroups + [mgStatement, mgRow];
+      FMonitor.StatementGroups := FMonitor.StatementGroups + [sgDescribe, sgStatementInfo];
+    end;
+
+    if (toStmt in TraceOptions) then begin
+      FMonitor.MonitorGroups := FMonitor.MonitorGroups + [mgStatement];
+      FMonitor.StatementGroups := FMonitor.StatementGroups + [sgDescribe, sgStatementInfo];
+    end;
+
+    if (toConnect in TraceOptions) then FMonitor.MonitorGroups := FMonitor.MonitorGroups + [mgConnection];
+    if (toTransact in TraceOptions) then FMonitor.MonitorGroups := FMonitor.MonitorGroups + [mgtransaction];
+
+    if (toBlob in TraceOptions) then FMonitor.MonitorGroups := FMonitor.MonitorGroups + [mgBlob];
+
+    if (toMisc in TraceOptions) then begin
+      FMonitor.MonitorGroups := FMonitor.MonitorGroups + [mgBlob, mgArray, mgClientTrace];
+      FMonitor.StatementGroups := FMonitor.StatementGroups + [sgStatementInfo, sgServerCursor, sgServerCursor];
+    end;
+
+    fTraceCallBack := Callback;
+
+    fMonitor.Enabled := TRUE;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+end;
+
+{ TDAEIBOQuery }
+
+procedure TDAEIBOQuery.ClearParams;
+begin
+  inherited;
+  TIBOQuery(Dataset).Params.Clear;
+end;
+
+function TDAEIBOQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TIBOQuery.Create(nil);
+  TIBOQuery(result).IB_Connection := TDAEIBOConnection(aConnection).fConnection.Database;
+  TIBOQuery(result).AutoFetchAll := TRUE;
+  TIBOQuery(result).RecordCountAccurate := TRUE;
+end;
+
+function TDAEIBOQuery.DoExecute: integer;
+begin
+  TIBOQuery(Dataset).ExecSQL;
+  result := TIBOQuery(Dataset).RowsAffected;
+end;
+
+function TDAEIBOQuery.DoGetSQL: string;
+begin
+  result := TIBOQuery(Dataset).SQL.Text
+end;
+
+procedure TDAEIBOQuery.DoPrepare(Value: boolean);
+begin
+  TIBOQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEIBOQuery.DoSetSQL(const Value: string);
+begin
+  TIBOQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEIBOQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TIBOQuery(Dataset).Params);
+end;
+
+procedure TDAEIBOQuery.SetParamValues(AParams: TDAParamCollection);
+var i: Integer;
+begin
+  for i := 0 to AParams.Count - 1 do
+    if (VarType(AParams[i].Value) = varOleStr) and (AParams[i].Value = '') then
+      AParams[i].Value := Unassigned;
+  SetParamValuesStd(AParams, TIBOQuery(Dataset).Params);
+end;
+
+{ TDAEIBOStoredProcedure }
+
+function TDAEIBOStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TIBOStoredProc.Create(nil);
+  TIBOStoredProc(result).IB_Connection := TDAEIBOConnection(aConnection).fConnection.Database;
+end;
+
+function TDAEIBOStoredProcedure.Execute: integer;
+begin
+  with TIBOStoredProc(Dataset) do begin
+    Unprepare;
+    Prepare;
+  end;
+
+  SetParamValues(GetParams);
+  Result := DoExecute;
+  GetParamValues(GetParams);
+end;
+
+function TDAEIBOStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TIBOStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEIBOStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TIBOStoredProc(Dataset).StoredProcName := Name;
+end;
+
+procedure TDAEIBOStoredProcedure.RefreshParams;
+begin
+  // Apparently a bug in IBO requires to do so... Automatic gathering only works at runtime
+  TIBOStoredProc(Dataset).Prepare;
+  RefreshParamsStd(TIBOStoredProc(Dataset).Params);
+end;
+
+procedure TDAEIBOStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TIBOStoredProc(Dataset).Params);
+end;
+
+procedure TDAEIBOStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TIBOStoredProc(Dataset).Params);
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+function TDAEIBOStoredProcedure.DoExecute: integer;
+begin
+  TIBOStoredProc(Dataset).ExecProc;
+  result := TIBOStoredProc(Dataset).RowsAffected;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBXDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBXDriver.pas
new file mode 100644
index 0000000..938d609
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAIBXDriver.pas	
@@ -0,0 +1,538 @@
+unit uDAIBXDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_IBXDriver_Glyphs.res}
+
+interface
+
+uses
+  Classes, DB, uDAEngine, uDAInterfaces, uDAIBInterfaces, IBDatabase,
+  uROClasses, IBQuery, IBStoredProc, IBSQLMonitor, IB, uDAUtils;
+
+type
+  { TDAIBXDriver }
+  TDAIBXDriver = class(TDADriverReference)
+  end;
+
+  { TIBXConnection }
+  TIBXConnection = class(TDAConnectionWrapper)
+  private
+    fDatabase: TIBDatabase;
+    fTransaction: TIBTransaction;
+
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: boolean); override;
+
+  public
+    constructor Create(AOwner: TComponent); override;
+
+    property Database: TIBDatabase read fDatabase;
+    property Transaction: TIBTransaction read fTransaction;
+  end;
+
+  { TDAEIBXDriver }
+  TDAEIBXDriver = class(TDAIBDriver)
+  private
+    fIBTraceOptions: TTraceFlags;
+    fTraceCallback: TDALogTraceEvent;
+    fMonitor: TIBSQLMonitor;
+
+    procedure OnIBXTrace(EventText: string; EventTime: TDateTime);
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    procedure CustomizeConnectionObject(aConnection: TDAEConnection); override;
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+
+    // IDADriver
+    procedure Finalize; override;    
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+  public
+  end;
+
+  { TDAEIBXConnection }
+  TDAEIBXConnection = class(TDAIBConnection, IDAInterbaseConnection, IDAIBTransactionAccess, IDAIBConnectionProperties, IDAUseGenerators, IDAFileBasedDatabase)
+  private
+    fConnection: TIBXConnection;
+
+  protected
+    // IIBTransactionAccess
+    function GetTransaction: TObject; safecall;
+
+    procedure Commit; safecall;
+    procedure CommitRetaining; safecall;
+    procedure Rollback; safecall;
+    procedure RollbackRetaining; safecall;
+
+    // IIBConnectionProperties
+    function GetRole: string; safecall;
+    procedure SetRole(const Value: string); safecall;
+    function GetSQLDialect: integer; override;safecall; 
+    procedure SetSQLDialect(Value: integer); safecall;
+    function GetCharset: string; safecall;
+    procedure SetCharset(const Value: string); safecall;
+
+
+    // IDAConnection
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+  end;
+
+  { TDAEIBXQuery }
+  TDAEIBXQuery = class(TDAEDataset,IDAMustSetParams)
+
+  protected
+    function DoGetRecordCount: integer; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  { TDAEIBXStoredProcedure }
+  TDAEIBXStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses SysUtils, uDADriverManager, uDARes, IBCustomDataSet, IBSQL,uROBinaryHelpers;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAIBXDriver]);
+end;
+
+function GetDriverObject: IDADriver;
+begin
+  if (_driver = nil) then _driver := TDAEIBXDriver.Create(nil);
+  result := _driver;
+end;
+
+{ TIBXConnection }
+
+constructor TIBXConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+
+  fDatabase := TIBDatabase.Create(Self);
+  fTransaction := TIBTransaction.Create(Self);
+  fTransaction.AutoStopAction := saNone;
+  //fTransaction.AutoStopAction := saCommit;
+  // ^ new per recommendation from Andy Gibson, to fix the "Transaction in progress" error.
+
+  fDatabase.LoginPrompt := FALSE;
+  fDatabase.DefaultTransaction := fTransaction;
+end;
+
+function TIBXConnection.GetConnected: Boolean;
+begin
+  result := fDatabase.Connected
+end;
+
+procedure TIBXConnection.SetConnected(Value: boolean);
+begin
+  // This first check is required.
+  // I think there's a bug in the IBX destroying sequence and the notification. TCustomConnection gets to this point *after*
+  // the owned components are destroyed. Only happens with IBX...
+
+  if (csDestroying in ComponentState) then Exit;
+  fDatabase.Connected := Value
+end;
+
+{ TDAEIBXConnection }
+
+procedure TDAEIBXConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    if (Self.UserID <> '') then
+      fConnection.Database.Params.Add('user_name=' + Self.UserID)
+    else
+      fConnection.Database.Params.Add('user_name=' + UserID);
+
+    if (Self.Password <> '') then
+      fConnection.Database.Params.Add('password=' + Self.Password)
+    else
+      fConnection.Database.Params.Add('password=' + Password);
+
+    if Server <> '' then { Change: Aleksander Oven, 27. july 2003 }
+      fConnection.Database.DatabaseName := Server + ':' + Database
+    else
+      fConnection.Database.DatabaseName := Database;
+
+    if AuxParams['Dialect'] <> '' then
+      SetSQLDialect(StrToInt(AuxParams['Dialect']))
+    else if AuxParams['SQLDialect'] <> '' then
+      SetSQLDialect(StrToInt(AuxParams['SQLDialect']));
+
+    if AuxParams['Role'] <> '' then
+      SetRole(AuxParams['Role']);
+
+    if AuxParams['Charset'] <> '' then
+      SetCharset(AuxParams['Charset']);
+
+  end;
+end;
+
+function TDAEIBXConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+  fConnection.Database.DefaultTransaction.StartTransaction;
+end;
+
+procedure TDAEIBXConnection.DoCommitTransaction;
+begin
+  fConnection.Database.DefaultTransaction.Commit;
+end;
+
+function TDAEIBXConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TIBXConnection.Create(nil);
+  result := fConnection;
+end;
+
+function TDAEIBXConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEIBXQuery
+end;
+
+function TDAEIBXConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEIBXStoredProcedure
+end;
+
+function TDAEIBXConnection.GetTransaction: TObject;
+begin
+  result := fConnection.fTransaction;
+end;
+
+procedure TDAEIBXConnection.DoRollbackTransaction;
+begin
+  fConnection.Database.DefaultTransaction.Rollback;
+end;
+
+function TDAEIBXConnection.GetRole: string;
+begin
+  result := fConnection.Database.Params.Values['sql_role_name']
+end;
+
+function TDAEIBXConnection.GetSQLDialect: integer;
+begin
+  result := fConnection.Database.SQLDialect
+end;
+
+function TDAEIBXConnection.GetCharset: string;
+begin
+  result := fConnection.Database.Params.Values['lc_ctype']
+end;
+
+procedure TDAEIBXConnection.SetRole(const Value: string);
+begin
+  fConnection.Database.Params.Values['sql_role_name'] := Value
+end;
+
+procedure TDAEIBXConnection.SetSQLDialect(Value: integer);
+begin
+  fConnection.Database.SQLDialect := Value
+end;
+
+procedure TDAEIBXConnection.SetCharset(const Value: string);
+begin
+  fConnection.Database.Params.Values['lc_ctype'] := Value;
+end;
+
+procedure TDAEIBXConnection.Commit;
+begin
+  fConnection.fTransaction.Commit
+end;
+
+procedure TDAEIBXConnection.CommitRetaining;
+begin
+  fConnection.fTransaction.CommitRetaining
+end;
+
+procedure TDAEIBXConnection.Rollback;
+begin
+  fConnection.fTransaction.Rollback
+end;
+
+procedure TDAEIBXConnection.RollbackRetaining;
+begin
+  fConnection.fTransaction.RollbackRetaining
+end;
+
+function TDAEIBXConnection.DoGetInTransaction: boolean;
+begin
+  result := fConnection.fTransaction.InTransaction
+end;
+
+{ TDAEIBXDriver }
+
+procedure TDAEIBXDriver.CustomizeConnectionObject(aConnection: TDAEConnection);
+begin
+  TDAEIBXConnection(aConnection).fConnection.Database.TraceFlags := fIBTraceOptions;
+end;
+
+function TDAEIBXDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEIBXConnection;
+end;
+
+function TDAEIBXDriver.GetDescription: string;
+begin
+  result := 'Borland Interbase Express Driver';
+end;
+
+function TDAEIBXDriver.GetDriverID: string;
+begin
+  result := 'IBX';
+end;
+
+procedure TDAEIBXDriver.OnIBXTrace(EventText: string; EventTime: TDateTime);
+begin
+  if Assigned(fTraceCallback) then fTraceCallback(fMonitor, EventText, 0);
+end;
+
+procedure TDAEIBXDriver.DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+begin
+  inherited;
+
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TIBSQLMonitor.Create(Self);
+
+    fMonitor.Enabled := FALSE;
+    fMonitor.OnSQL := OnIBXTrace;
+
+    fIBTraceOptions := [];
+    if (toPrepare in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfQPrepare];
+    if (toExecute in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfQExecute];
+    if (toFetch in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfQFetch];
+    if (toError in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfError];
+    if (toStmt in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfStmt];
+    if (toConnect in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfConnect];
+    if (toTransact in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfTransact];
+    if (toBlob in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfBlob];
+    if (toService in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfService];
+    if (toMisc in TraceOptions) then fIBTraceOptions := fIBTraceOptions + [tfMisc];
+
+    fTraceCallBack := Callback;
+
+    fMonitor.TraceFlags := fIBTraceOptions;
+    fMonitor.Enabled := TRUE;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+  if TraceActive then
+    EnableMonitoring
+  else
+    DisableMonitoring;
+end;
+
+procedure TDAEIBXDriver.Finalize;
+begin
+  inherited;
+end;
+
+{ TDAEIBXQuery }
+
+procedure TDAEIBXQuery.ClearParams;
+begin
+  inherited;
+  TIBQuery(Dataset).Params.Clear;
+end;
+
+function TDAEIBXQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TIBQuery.Create(nil);
+  TIBQuery(result).UniDirectional := true;
+  TIBQuery(result).Database := TDAEIBXConnection(aConnection).fConnection.Database;
+end;
+
+function TDAEIBXQuery.DoExecute: integer;
+begin
+  TIBQuery(Dataset).ExecSQL;
+  result := TIBQuery(Dataset).RowsAffected;
+end;
+
+function TDAEIBXQuery.DoGetRecordCount: integer;
+begin
+  TIBQuery(Dataset).FetchAll;
+  Result := inherited DoGetRecordCount;
+end;
+
+function TDAEIBXQuery.DoGetSQL: string;
+begin
+  result := TIBQuery(Dataset).SQL.Text
+end;
+
+procedure TDAEIBXQuery.DoPrepare(Value: boolean);
+begin
+  TIBQuery(Dataset).Prepared := Value
+end;
+
+procedure TDAEIBXQuery.DoSetSQL(const Value: string);
+begin
+  TIBQuery(Dataset).SQL.Text := Value;
+end;
+
+
+procedure TDAEIBXQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams,TIBQuery(Dataset).Params);
+end;
+
+procedure TDAEIBXQuery.SetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  k: UnicodeString;
+begin
+  for I := 0 to AParams.Count - 1 do
+    if AParams[i].DataType = datWideMemo then begin
+      k := AParams[i].AsWideString;
+      {$IFDEF UNICODE}
+      AParams[i].DataType := datMemo;
+      {$ELSE}
+      AParams[i].DataType := datBlob;
+      {$ENDIF}
+      AParams[i].AsWideString:=k;
+    end;
+  SetParamValuesStd(AParams,TIBQuery(Dataset).Params);
+end;
+
+{ TDAEIBXStoredProcedure }
+
+function TDAEIBXStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TIBStoredProc.Create(nil);
+  TIBStoredProc(result).Database := TDAEIBXConnection(aConnection).fConnection.Database;
+end;
+
+function TDAEIBXStoredProcedure.Execute: integer;
+begin
+  SetParamValues(GetParams);
+  Result:=DoExecute;
+  GetParamValues(GetParams);
+end;
+
+procedure TDAEIBXStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  k: UnicodeString;
+begin
+  for I := 0 to AParams.Count - 1 do
+    if AParams[i].DataType = datWideMemo then begin
+      k := AParams[i].AsWideString;
+      {$IFDEF UNICODE}
+      AParams[i].DataType := datMemo;
+      {$ELSE}
+      AParams[i].DataType := datBlob;
+      {$ENDIF}
+      AParams[i].AsWideString:=k;
+    end;
+  SetParamValuesStd(AParams,TIBStoredProc(Dataset).Params);
+end;
+
+procedure TDAEIBXStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams,TIBStoredProc(Dataset).Params);
+end;
+
+function TDAEIBXStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TIBStoredProc(Dataset).StoredProcName
+end;
+
+procedure TDAEIBXStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TIBStoredProc(Dataset).StoredProcName := Name;
+end;
+
+procedure TDAEIBXStoredProcedure.RefreshParams;
+begin
+  // Apparently a bug in IBX requires to do so... Automatic gathering only works at runtime
+  TIBStoredProc(Dataset).Prepare;
+  RefreshParamsStd(TIBStoredProc(Dataset).Params);
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+function TDAEIBXStoredProcedure.DoExecute: integer;
+begin
+  TIBStoredProc(Dataset).ExecProc;
+  result := TIBStoredProc(Dataset).RowsAffected;
+end;
+
+var
+  FOldMonitoringEnabled : Boolean;
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+  FOldMonitoringEnabled := MonitoringEnabled;
+  DisableMonitoring;
+
+finalization
+  if FOldMonitoringEnabled then
+    EnableMonitoring
+  else
+    DisableMonitoring;
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAMyDACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAMyDACDriver.pas
new file mode 100644
index 0000000..f8d68d9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAMyDACDriver.pas	
@@ -0,0 +1,544 @@
+unit uDAMyDACDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_MyDACDriver_Glyphs.res}
+{.$DEFINE ENABLE_SQLMonitor}
+{.$DEFINE MYSQL4Compatible}
+
+interface
+
+uses DB, Classes, uDAEngine, uDAInterfaces, {uDAADOInterfaces,} uROClasses, DBAccess, MyAccess,
+  {$IFDEF ENABLE_SQLMonitor}DASQLMonitor, MySQLMonitor,{$ENDIF ENABLE_SQLMonitor} uROBinaryHelpers, uDAUtils, uDAMySQLInterfaces;
+
+type { TDAMyDACDriver }
+  TDAMyDACDriver = class(TDADriverReference)
+  end;
+
+     { TDAEADODriver }
+  TDAEADODriver = class(TDAMySQLDriver)
+  private
+    {$IFDEF ENABLE_SQLMonitor}
+    fMonitor: TMySQLMonitor;
+    fTraceCallBack: TDALogTraceEvent;
+
+    procedure OnMyDACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+    {$ENDIF ENABLE_SQLMonitor}
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    {$IFDEF ENABLE_SQLMonitor}
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+    {$ENDIF ENABLE_SQLMonitor}
+       // IDADriver
+    function GetDriverID: string; override; safecall;
+    function GetDescription: string; override; safecall;
+    function GetDefaultCustomParameters: string; override; safecall;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+  end;
+
+     { TDAEMyConnection }
+  TDAEMyConnection = class(TDAMySQLConnection, IDAMySQLConnection,IDACanQueryDatabaseNames)
+  private
+    function GetMyConnection: TMyConnection;
+
+  protected
+    function GetTableSchema: string; override;
+    function useUnicode:Boolean; override;
+
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    function GetDatabaseNames: IROStrings;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    property MyConnection: TMyConnection read GetMyConnection;
+  public
+  end;
+
+     { TDAEMyQuery }
+  TDAEMyQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+
+       // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+  end;
+
+     { TDAEADOStoredProcedure }
+  TDAEADOStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+       // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils,Variants,
+  uDADriverManager, uDARes;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAMyDACDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEADODriver.Create(nil);
+  result := _driver;
+end;
+
+{$IFDEF LATEST_MyDAC}
+{$I uDACRLabsUtils.inc}
+{$ENDIF LATEST_MyDAC}
+
+
+{$I uDACRLabsUtils.inc}
+{ TDAEMyConnection }
+
+function TDAEMyConnection.DoBeginTransaction: integer;
+begin
+  MyConnection.StartTransaction;
+  result := 0;
+end;
+
+procedure TDAEMyConnection.DoCommitTransaction;
+begin
+  MyConnection.Commit;
+end;
+
+function TDAEMyConnection.GetMyConnection: TMyConnection;
+begin
+  result := TMyConnection(inherited ConnectionObject);
+end;
+
+function TDAEMyConnection.CreateCustomConnection: TCustomConnection;
+begin
+  result := TMyConnection.Create(nil);
+  TMyConnection(result).LoginPrompt := FALSE;
+end;
+
+function TDAEMyConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEMyQuery;
+end;
+
+function TDAEMyConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEADOStoredProcedure;
+end;
+
+procedure TDAEMyConnection.DoGetStoredProcedureNames(out List: IROStrings);
+begin
+  {$IFDEF MYSQL4Compatible}
+  List := TROStrings.Create;
+  MyConnection.GetStoredProcNames(List.Strings);
+  {$ELSE}
+  inherited DoGetStoredProcedureNames(List);
+  {$ENDIF}
+end;
+
+procedure TDAEMyConnection.DoGetTableNames(out List: IROStrings);
+begin
+  {$IFDEF MYSQL4Compatible}
+  List := TROStrings.Create;
+  MyConnection.GetTableNames(List.Strings);
+  {$ELSE}
+  inherited DoGetTableNames(List);
+  {$ENDIF MYSQL4Compatible}
+end;
+
+procedure TDAEMyConnection.DoRollbackTransaction;
+begin
+  MyConnection.Rollback;
+end;
+
+function TDAEMyConnection.DoGetInTransaction: boolean;
+begin
+  result := MyConnection.InTransaction
+end;
+
+
+procedure TDAEMyConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+const
+  stdMSSQL_ConnectionString = 'User ID=%s;Password=%s;Initial Catalog=%s;Data Source=%s';
+var
+  adoconn: string;
+  i: integer;
+  sName,sValue: string;
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    adoconn := Format(stdMSSQL_ConnectionString, [UserID, Password, Database, Server]);
+
+    MyConnection.Database := Database;
+
+    MyConnection.Server := Server;
+
+    if (Self.UserID <> '') then
+      MyConnection.Username := Self.UserID
+    else
+      MyConnection.Username := UserID;
+
+    if (Self.Password <> '') then
+      MyConnection.Password := Self.Password
+    else
+      MyConnection.Password := Password;
+    for i := 0 to AuxParamsCount -1 do
+    begin
+      sName := AuxParamNames[i];
+      sValue := AuxParams[AuxParamNames[i]];
+      if SameText('Port', sName) then MyConnection.Port:= StrToIntDef(sValue,3306);
+      if SameText('useUnicode', sName) then MyConnection.Options.UseUnicode:=StrToBoolDef(sValue,False);
+    end;
+  end;
+end;
+
+function TDAEMyConnection.GetTableSchema: string;
+begin
+  Result:=MyConnection.Database;
+end;
+
+function TDAEMyConnection.useUnicode: Boolean;
+begin
+  Result:= GetMyConnection.Options.UseUnicode;
+end;
+
+function TDAEMyConnection.GetDatabaseNames: IROStrings;
+begin
+  {$IFDEF MYSQL4Compatible}
+  Result := TROStrings.Create();
+  MyConnection.GetDatabaseNames(Result.Strings);
+  {$ELSE}
+  Result := inherited GetDatabaseNames;
+  {$ENDIF MYSQL4Compatible}
+end;
+
+procedure TDAEMyConnection.DoGetViewNames(out List: IROStrings);
+begin
+  {$IFDEF MYSQL4Compatible}
+  List := TROStrings.Create;
+  GetTablesList(MyConnection, List.Strings);
+  {$ELSE}
+  inherited DoGetViewNames(List);
+  {$ENDIF MYSQL4Compatible}
+end;
+
+procedure TDAEMyConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  {$IFDEF MYSQL4Compatible}
+  ForeignKeys := TDADriverForeignKeyCollection.Create(nil);
+  {$ELSE}
+  inherited DoGetForeignKeys(ForeignKeys);
+  {$ENDIF MYSQL4Compatible}
+end;
+
+procedure TDAEMyConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+{$IFDEF MYSQL4Compatible}
+var
+  cmd: IDASQLCommand;
+  {$ENDIF MYSQL4Compatible}
+begin
+  {$IFDEF MYSQL4Compatible}
+  cmd := NewCommand(aStoredProcedureName, stStoredProcedure);
+  cmd.RefreshParams;
+  Params := TDAParamCollection.Create(nil);
+  Params.AssignParamCollection(cmd.Params);
+  {$ELSE}
+  inherited DoGetStoredProcedureParams(aStoredProcedureName, Params);
+  {$ENDIF MYSQL4Compatible}
+end;
+
+procedure TDAEMyConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+{$IFDEF MYSQL4Compatible}
+  var
+  qry: IDADataset;
+{$ENDIF}
+begin
+  {$IFDEF MYSQL4Compatible}
+  Fields := TDAFieldCollection.Create(nil);
+  qry := GetDatasetClass.Create(Self);
+  try
+    qry.SQL := 'SELECT * FROM ' + QuoteIdentifierIfNeeded(aTableName) + ' WHERE 1=0';
+    qry.Open;
+    Fields.Assign(qry.Fields);
+  finally
+    qry := nil;
+  end;
+  {$ELSE}
+  inherited DoGetTableFields(aTableName, Fields);
+  {$ENDIF MYSQL4Compatible}
+end;
+
+{ TDAEADODriver }
+
+procedure TDAEADODriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  List.Add('useUnicode=(True;False)');
+end;
+
+function TDAEADODriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEMyConnection;
+end;
+
+function TDAEADODriver.GetDefaultCustomParameters: string;
+begin
+  Result:= inherited GetDefaultCustomParameters + 'useUnicode=False;';
+end;
+
+function TDAEADODriver.GetDescription: string;
+begin
+  result := 'Core Lab MyDAC Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEADODriver.GetDriverID: string;
+begin
+  result := 'MyDAC';
+end;
+
+{$IFDEF ENABLE_SQLMonitor}
+procedure TDAEADODriver.OnMyDACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+begin
+  if Assigned(fTraceCallback) then fTraceCallback(Sender, Text, integer(Flag));
+end;
+
+procedure TDAEADODriver.DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+var
+  MyDACopts: TDATraceFlags;
+begin
+  inherited;
+
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TMySQLMonitor.Create(Self);
+
+    fMonitor.Active := FALSE;
+    fMonitor.OnSQL := OnMyDACTrace;
+
+    MyDACopts := [];
+    if (toPrepare in TraceOptions) then MyDACopts := MyDACopts + [tfQPrepare];
+    if (toExecute in TraceOptions) then MyDACopts := MyDACopts + [tfQExecute];
+    if (toFetch in TraceOptions) then MyDACopts := MyDACopts + [tfQFetch];
+    if (toError in TraceOptions) then MyDACopts := MyDACopts + [tfError];
+    if (toStmt in TraceOptions) then MyDACopts := MyDACopts + [tfStmt];
+    if (toConnect in TraceOptions) then MyDACopts := MyDACopts + [tfConnect];
+    if (toTransact in TraceOptions) then MyDACopts := MyDACopts + [tfTransact];
+    if (toBlob in TraceOptions) then MyDACopts := MyDACopts + [tfBlob];
+    if (toService in TraceOptions) then MyDACopts := MyDACopts + [tfService];
+    if (toMisc in TraceOptions) then MyDACopts := MyDACopts + [tfMisc];
+    if (toParams in TraceOptions) then MyDACopts := MyDACopts + [tfParams];
+
+    fTraceCallBack := Callback;
+
+    fMonitor.TraceFlags := MyDACopts;
+    fMonitor.Active := TRUE;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+end;
+{$ENDIF ENABLE_SQLMonitor}
+
+{ TDAEMyQuery }
+
+function TDAEMyQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TMyQuery.Create(nil);
+  TMyQuery(result).ReadOnly := TRUE;
+  TMyQuery(result).Connection := TDAEMyConnection(aConnection).MyConnection;
+  TMyQuery(result).FetchAll := True;  //for preventing creating an additional session when you call StartTransaction (an known issue of OLEDB)
+
+//  GetLastAutoInc will work in case these options is commented
+//  TMyQuery(result).FetchAll := False;
+//  TMyQuery(result).Unidirectional := True;
+end;
+
+function TDAEMyQuery.DoExecute: integer;
+begin
+  TMyQuery(Dataset).Execute;
+  result := TMyQuery(Dataset).RowsAffected;
+end;
+
+function TDAEMyQuery.DoGetSQL: string;
+begin
+  result := TMyQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEMyQuery.DoPrepare(Value: boolean);
+begin
+  // Do not do inherited DoPrepare for MySQL.
+  {with TMyQuery(Dataset) do begin
+     if not Options.Direct then Prepared := Value;
+  end;}
+end;
+
+procedure TDAEMyQuery.DoSetSQL(const Value: string);
+begin
+  TMyQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEMyQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TMyQuery(Dataset).Params);
+end;
+
+procedure TDAEMyQuery.GetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+  par: uDAInterfaces.TDAParam;
+  inpar: TParam;
+begin
+  for i := 0 to (AParams.Count - 1) do begin
+    par := AParams[i];
+    inpar := TMyQuery(Dataset).Params.ParamByName(par.Name);
+    par.Value := inpar.Value;
+  end;
+end;
+
+procedure TDAEMyQuery.ClearParams;
+begin
+  inherited;
+  TMyQuery(Dataset).Params.Clear;
+end;
+
+{ TDAEADOStoredProcedure }
+
+function TDAEADOStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TMyStoredProc.Create(nil);
+  TMyStoredProc(result).Connection := TDAEMyConnection(aConnection).MyConnection;
+end;
+
+function TDAEADOStoredProcedure.Execute: integer;
+begin
+  SetParamValues(GetParams);
+  Result:= DoExecute;
+  GetParamValues(GetParams);
+end;
+
+function TDAEADOStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TMyStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEADOStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TMyStoredProc(Dataset).StoredProcName := Name;
+end;
+
+procedure TDAEADOStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TMyStoredProc(Dataset).Params);
+end;
+
+procedure TDAEADOStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+var
+  i: Integer;
+  lParam: DBAccess.TDAParam;
+begin
+  for i := 0 to TMyStoredProc(DataSet).Params.Count - 1 do begin
+    lParam:=TMyStoredProc(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      Aparams.ParamByName(lParam.Name).Value := lParam.Value;
+  end;
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+procedure TDAEADOStoredProcedure.RefreshParams;
+begin
+  TMyStoredProc(Dataset).Prepare;
+  RefreshParamsStd(TMyStoredProc(DataSet).Params);
+end;
+
+function TDAEADOStoredProcedure.DoExecute: integer;
+begin
+  TMyStoredProc(Dataset).ExecProc;
+  Result := -1;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAMySQLDACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAMySQLDACDriver.pas
new file mode 100644
index 0000000..bc9702a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAMySQLDACDriver.pas	
@@ -0,0 +1,366 @@
+unit uDAMySQLDACDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_MySQLDACDriver_Glyphs.res}
+
+interface
+
+uses DB, Classes, uDAEngine, uDAInterfaces, uDAADOInterfaces, uROClasses,
+  uROBinaryHelpers, uDAUtils, mySQLAccess, mySQLDbTables, mySQLTypes, uDAMySQLInterfaces;
+
+type { TDAMySQLDACDriver }
+  TDAMySQLDacDriver = class(TDADriverReference)
+  end;
+
+     { TDAEMySQLDacDriver }
+  TDAEMySQLDacDriver = class(TDAMySQLDriver)
+  private
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+       // IDADriver
+    function GetDriverID: string; override; safecall;
+    function GetDescription: string; override; safecall;
+  end;
+
+     { TDAEMyConnection }
+  TDAEMySQLDacConnection = class(TDAMySQLConnection, IDACanQueryDatabaseNames,IDAMySQLConnection)
+  private
+    function GetConnection: TmySQLDatabase;
+
+  protected
+    function GetTableSchema: string; override;
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+    property Connection: TmySQLDatabase read GetConnection;
+  public
+  end;
+
+     { TDAEMySQLDacQuery }
+  TDAEMySQLDacQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+  end;
+
+     { TDAEMySQLDacStoredProcedure }
+  TDAEMySQLDacStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils,
+  uDADriverManager, uDARes, uDAMacroProcessors;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAMySQLDACDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEMySQLDacDriver.Create(nil);
+  result := _driver;
+end;
+
+{$IFDEF LATEST_MyDAC}
+{$I uDACRLabsUtils.inc}
+{$ENDIF LATEST_MyDAC}
+
+{ TDAEMySQLDacConnection }
+
+function TDAEMySQLDacConnection.DoBeginTransaction: integer;
+begin
+  Connection.StartTransaction;
+  result := 0;
+end;
+
+procedure TDAEMySQLDacConnection.DoCommitTransaction;
+begin
+  Connection.Commit;
+end;
+
+function TDAEMySQLDacConnection.GetConnection: TmySQLDatabase;
+begin
+  result := TmySQLDatabase(inherited ConnectionObject);
+end;
+
+function TDAEMySQLDacConnection.CreateCustomConnection: TCustomConnection;
+begin
+  result := TmySQLDatabase.Create(nil);
+  TmySQLDatabase(result).LoginPrompt := false;
+end;
+
+function TDAEMySQLDacConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEMySQLDacQuery;
+end;
+
+function TDAEMySQLDacConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEMySQLDacStoredProcedure;
+end;
+
+
+procedure TDAEMySQLDacConnection.DoRollbackTransaction;
+begin
+  Connection.Rollback;
+end;
+
+function TDAEMySQLDacConnection.DoGetInTransaction: boolean;
+begin
+  result := Connection.InTransaction
+end;
+
+
+
+procedure TDAEMySQLDacConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  i: Integer;
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    Connection.DatabaseName := Database;
+
+    Connection.Host := Server;
+
+    if (Self.UserID <> '') then
+      Connection.Username := Self.UserID
+    else
+      Connection.Username := UserID;
+
+    if (Self.Password <> '') then
+      Connection.UserPassword := Self.Password
+    else
+      Connection.UserPassword := Password;
+    if AuxParams['Port'] <> '' then Connection.Port := StrToIntDef(AuxParams['Port'],3306);
+
+    for i := 0 to AuxParamsCount -1 do
+    begin
+      if SameText(AuxParamNames[i], 'Port') then continue;
+      if AuxParams[AuxParamNames[i]] <> '' then
+        Connection.Params.Add(AuxParamNames[i]+'='+AuxParams[AuxParamNames[i]]);
+    end;
+  end;
+end;
+
+
+function TDAEMySQLDacConnection.GetTableSchema: string;
+begin
+  Result:=Connection.DatabaseName;
+end;
+
+{ TDAEMySQLDacDriver }
+
+
+function TDAEMySQLDacDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEMySQLDacConnection;
+end;
+
+function TDAEMySQLDacDriver.GetDescription: string;
+begin
+  result := 'MicroOlap DAC for MySQL Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEMySQLDacDriver.GetDriverID: string;
+begin
+  result := 'MySQLDAC';
+end;
+
+
+{ TDAEMySQLDacQuery }
+
+procedure TDAEMySQLDacQuery.ClearParams;
+begin
+  inherited;
+  TmySQLQuery(Dataset).Params.Clear;
+end;
+
+function TDAEMySQLDacQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TmySQLQuery.Create(nil);
+
+  TmySQLQuery(result).RequestLive := false;
+  TmySQLQuery(result).UniDirectional:=True;
+  TMySqlQuery(result).Database := TDAEMySQLDacConnection(aConnection).Connection;
+end;
+
+function TDAEMySQLDacQuery.DoExecute: integer;
+begin
+  TmySQLQuery(Dataset).ExecSQL;
+  result := TmySQLQuery(Dataset).RowsAffected;
+end;
+
+function TDAEMySQLDacQuery.DoGetSQL: string;
+begin
+  result := TmySQLQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEMySQLDacQuery.DoPrepare(Value: boolean);
+begin
+  TmySQLQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEMySQLDacQuery.DoSetSQL(const Value: string);
+begin
+  TmySQLQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEMySQLDacQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TmySQLQuery(Dataset).Params);
+end;
+
+procedure TDAEMySQLDacQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TmySQLQuery(Dataset).Params);
+end;
+
+
+{ TDAEADOStoredProcedure }
+
+function TDAEMySQLDacStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TmySQLStoredProc.Create(nil);
+  TmySQLStoredProc(result).Database := TDAEMySQLDacConnection(aConnection).Connection;
+end;
+
+function TDAEMySQLDacStoredProcedure.Execute: integer;
+var
+  i: integer;
+  _params: TDAParamCollection;
+  lParam: TmySQLSPParam;
+begin
+  _params := GetParams;
+
+  with TmySQLStoredProc(Dataset) do begin
+    for i := 0 to (Params.Count-1) do begin
+      lParam:=Params[i];
+      if (lParam.ParamType in [ptInput, ptInputOutput]) then
+        lParam.Value := _params.ParamByName(lParam.Name).Value;
+    end;
+
+    Result:= DoExecute;
+
+    for i := 0 to (Params.Count-1) do begin
+      lParam:=Params[i];
+      if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+        _params.ParamByName(lParam.Name).Value := lParam.Value;
+    end;
+  end; 
+end;
+
+function TDAEMySQLDacStoredProcedure.GetStoredProcedureName: string;
+begin
+  Result := TmySQLStoredProc(Dataset).ProcedureName;
+end;
+
+procedure TDAEMySQLDacStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TmySQLStoredProc(Dataset).ProcedureName := Name;
+end;
+
+procedure TDAEMySQLDacStoredProcedure.RefreshParams;
+begin
+  RefreshParamsStd(TmySQLStoredProc(Dataset).Params);
+end;
+
+procedure TDAEMySQLDacStoredProcedure.GetParamValues(
+  AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TmySQLStoredProc(Dataset).Params);
+end;
+
+procedure TDAEMySQLDacStoredProcedure.SetParamValues(
+  AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TmySQLStoredProc(Dataset).Params);
+end;
+
+exports  GetDriverObject name func_GetDriverObject;
+
+function TDAEMySQLDacStoredProcedure.DoExecute: integer;
+begin
+  TmySQLStoredProc(Dataset).ExecProc;
+  result := -1;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDANexusDBDriver.dcr b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDANexusDBDriver.dcr
new file mode 100644
index 0000000..52a0cec
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDANexusDBDriver.dcr differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDANexusDBDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDANexusDBDriver.pas
new file mode 100644
index 0000000..5d82280
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDANexusDBDriver.pas	
@@ -0,0 +1,1149 @@
+unit uDANexusDBDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{ (c)opyright Nexus Database Systems Pty. Ltd.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes,
+  DB,
+
+  uDAEngine,
+  uDAInterfaces,
+  uROClasses,
+
+  nxllMemoryManager,
+  nxllSync,
+  nxllComponent,
+  nxllTransport,
+
+  nxsdServerEngine,
+
+  nxdb,
+
+  {$IFNDEF DataAbstract_NexusDBPack}
+  nxptBasePooledTransport,
+  nxtwWinsockTransport,
+  nxtnNamedPipeTransport,
+
+  nxreRemoteServerEngine,
+  {$ENDIF}
+
+  nxsrSqlEngineBase,
+  nxsrServerEngine,
+
+  nxsqlEngine,
+
+  //nx1xAllEngines,
+  nxseAllEngines, // // NXDB2: Renamed
+  uDAUtils;
+
+type
+  TDANexusDBDriver = class(TDADriverReference)
+  end;
+
+  INexusDBConnection = interface
+    ['{DFF41623-A766-44C0-A61A-CC18FB80CAE3}']
+  end;
+
+  INexusDBDriver = interface
+    ['{CFE4B5BB-3C38-40BF-BE57-5BE3C627A6C3}']
+    procedure RegisterServerEngine(aServerEngine: TnxBaseServerEngine;
+      const aName: string); safecall;
+
+    procedure UnregisterServerEngine(aServerEngine: TnxBaseServerEngine); overload; safecall;
+    procedure UnregisterServerEngine(const aName: string); overload; safecall;
+  end;
+
+  TNexusDBConnection = class;
+
+  TNexusDBBaseEngineContainer = class(TnxObject)
+  protected                                                 {private}
+    becServerName: string;
+
+    becConnectionsHead : TNexusDBConnection;
+    becConnectionsTail : TNexusDBConnection;
+  protected
+    function becGetEngine: TnxBaseServerEngine; virtual; abstract;
+  public
+    constructor Create(aServerName: string);
+    destructor Destroy; override;
+
+    procedure CheckedFree; virtual;
+
+    property Engine: TnxBaseServerEngine
+      read becGetEngine;
+  end;
+
+  TNexusDBConnection = class(TDAConnectionWrapper)
+  protected                                                 {private}
+    conEngineContainer      : TNexusDBBaseEngineContainer;
+    conEngineContainerNext  : TNexusDBConnection;
+    conEngineContainerPrev  : TNexusDBConnection;
+    conEngineContainerAdded : Boolean;
+
+    conSession              : TnxSession;
+    conDatabase             : TnxDatabase;
+
+    procedure conSetEngineContainer(aContainer: TNexusDBBaseEngineContainer);
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: Boolean); override;
+
+    procedure conAddToEngineContainer;
+    procedure conRemoveFromEngineContainer;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    property EngineContainer: TNexusDBBaseEngineContainer read conEngineContainer write conSetEngineContainer;
+    property Session: TnxSession read conSession;
+    property Database: TnxDatabase read conDatabase;
+  end;
+
+  TDAENexusDBDriver = class(TDAEDriver, INexusDBDriver)
+  protected                                                 {private}
+    nxdEnginesPadlock: TnxPadlock;
+    nxdEngines: TStringList;
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+    { IDADriver }
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
+    function GetDefaultCustomParameters: string; override; safecall;
+    { INexusDBDriver }
+    procedure RegisterServerEngine(aServerEngine: TnxBaseServerEngine;const aName: string); safecall;
+
+    procedure UnregisterServerEngine(aServerEngine: TnxBaseServerEngine); overload; safecall;
+    procedure UnregisterServerEngine(const aName: string); overload; safecall;
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; safecall;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+  { TDAENexusDBConnection }
+  TDAENexusDBConnection = class(TDAEConnection, INexusDBConnection)
+  private
+    dacConnection: TNexusDBConnection;
+  protected
+    { IDAConnection }
+    function CreateCustomConnection: TCustomConnection; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+                                      aConnectionObject : TCustomConnection); override;
+    function DoBeginTransaction: Integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: Boolean; override;
+
+    procedure DoGetTableNames(out aList: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetTableFields(const aTableName : string;
+                                 out aFields    : TDAFieldCollection); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  { TDAENexusDBQuery }
+  TDAENexusDBQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataSet; override;
+    procedure ClearParams; override;
+    function DoExecute: Integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: Boolean); override;
+
+    { IDAMustSetParams }
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+    { TDAENexusStoredProcedure }
+  TDAENexusStoredProcedure = class(TDAEStoredProcedure, IDAStoredProcedure, IDAMustSetParams)
+  protected
+    // Internal
+    // function DoGetStoredProcedureName: string; override;
+    // procedure DoSetStoredProcedureName(const Name: string); override;
+
+    // IDAStoredProcedure
+    function GetStoredProcedureName: string; override; safecall;
+    procedure SetStoredProcedureName(const Name: string); override; safecall;
+
+    // procedure PrepareSQLStatement; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure DoPrepare(Value: boolean); override; safecall;
+    function DoExecute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoSetSQL(const Value: string); override; safecall;
+    function DoGetSQL: string; override; safecall;
+    // function intVCLTypeToDAType(aFieldType: TFieldType): TDADataType;override;
+
+    { IDASQLCommand }
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function DoGetRecordCount: integer; override;
+    // function DoGetActive: boolean; override;
+    // procedure DoSetActive(Value: boolean); override;
+    // function DoGetBOF: boolean; override;
+    // function DoGetEOF: boolean; override;
+    // procedure DoNext; override;
+    // function DoLocate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; override;
+
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+const
+  Nexus_DriverType = 'Nexus';
+implementation
+
+uses
+  SysUtils,
+
+  nxllUtils,nxsdTypes,nxsqlBase,
+
+  uDADriverManager,
+  uDARes,
+  uDAMacroProcessors,
+
+  TypInfo;
+
+const
+  csUrlSeperator              = '://';
+
+  csEmbedded                  = 'embedded';
+  csRegistered                = 'registered';
+  csEmbeddedDefault           = 'embedded://default';
+
+  csAlias                     = 'alias';
+  csPath                      = 'path';
+
+  csNexusDB                   = 'NexusDB';
+  csNexusDBDriver             = 'NexusDB Driver';
+
+resourcestring
+  rsEmbeddedOnly = ' [embedded only]';
+  rsThisDriverOnlySupportsEmbeddedServerEngines = 'This driver only supports embedded server engines. Connections to remote server engines require a full NexusDB license.';
+  rsNoProtocolHasBeenSpecified = 'No protocol has been specified';
+  rsNoServerEngineHasBeenRegisteredAs = 'No Server Engine has been registered as "%s"';
+  rsNoTransportAvailableForProtocol = 'No transport available for protocol "%s"';
+  rsUnknownDatabaseType       = 'Unknown database type "%s"';
+
+var
+  _driver                     : TDAENexusDBDriver = nil;
+
+{===Register===================================================================}
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDANexusDBDriver]);
+end;
+{==============================================================================}
+
+
+
+{===GetDriverObject============================================================}
+{$IFDEF DataAbstract_SchemaModelerOnly}{$INCLUDE DataAbstract_SchemaModelerOnly.inc}{$ENDIF DataAbstract_SchemaModelerOnly}
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    Result := nil;
+    Exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAENexusDBDriver.Create(nil);
+  Result := _driver;
+end;
+{==============================================================================}
+
+
+
+{===TNexusDBBaseEngineContainer================================================}
+procedure TNexusDBBaseEngineContainer.CheckedFree;
+begin
+  if not Assigned(becConnectionsHead) then
+    Free;
+end;
+{------------------------------------------------------------------------------}
+constructor TNexusDBBaseEngineContainer.Create(aServerName: string);
+begin
+  becServerName := aServerName;
+
+  inherited Create;
+
+  _driver.nxdEnginesPadlock.Lock;
+  try
+    _driver.nxdEngines.AddObject(aServerName, Self);
+  finally
+    _driver.nxdEnginesPadlock.Unlock;
+  end;
+end;
+{------------------------------------------------------------------------------}
+destructor TNexusDBBaseEngineContainer.Destroy;
+var
+  i                           : Integer;
+begin
+  if Assigned(_driver) then begin
+    _driver.nxdEnginesPadlock.Lock;
+    try
+      with _driver.nxdEngines do
+        if Find(becServerName, i) and (Objects[i] = Self) then
+          Delete(i);
+      while Assigned(becConnectionsHead) do try
+        becConnectionsHead.EngineContainer := nil;
+      except end;
+    finally
+      _driver.nxdEnginesPadlock.Unlock;
+    end;
+  end;
+
+  inherited;
+end;
+{==============================================================================}
+
+
+
+{===TNexusDBEmbeddedEngineContainer============================================}
+type
+  TNexusDBEmbeddedEngineContainer = class(TNexusDBBaseEngineContainer)
+  protected                                                 {private}
+    eecServerEngine: TnxServerEngine;
+  protected
+    function becGetEngine: TnxBaseServerEngine; override;
+  public
+    constructor Create(aServerName: string);
+    destructor Destroy; override;
+
+    procedure CheckedFree; override;
+  end;
+function TNexusDBEmbeddedEngineContainer.becGetEngine: TnxBaseServerEngine;
+begin
+  Result := eecServerEngine;
+end;
+{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
+procedure TNexusDBEmbeddedEngineContainer.CheckedFree;
+begin
+  if not SameText(becServerName, csEmbeddedDefault) then
+    inherited;
+end;
+{------------------------------------------------------------------------------}
+constructor TNexusDBEmbeddedEngineContainer.Create(aServerName: string);
+begin
+  eecServerEngine := TnxServerEngine.Create(nil);
+  eecServerEngine.SqlEngine := TnxSqlEngine.Create(eecServerEngine);
+  eecServerEngine.Open;
+
+  inherited Create(aServerName);
+end;
+{------------------------------------------------------------------------------}
+destructor TNexusDBEmbeddedEngineContainer.Destroy;
+begin
+  inherited;
+  FreeAndNil(eecServerEngine);
+end;
+{==============================================================================}
+
+
+
+{$IFNDEF DataAbstract_NexusDBPack}
+{==============================================================================}
+type
+  TNexusDBRemoteEngineContainer = class(TNexusDBBaseEngineContainer)
+  protected                                                 {private}
+    recTransport: TnxBaseTransport;
+    recServerEngine: TnxRemoteServerEngine;
+  protected
+    function becGetEngine: TnxBaseServerEngine; override;
+  public
+    constructor Create(aServerName, aAuxParamsString: string;
+      aTransportClass: TnxBaseTransportClass);
+    destructor Destroy; override;
+  end;
+{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
+function TNexusDBRemoteEngineContainer.becGetEngine: TnxBaseServerEngine;
+begin
+  Result := recServerEngine;
+end;
+{------------------------------------------------------------------------------}
+constructor TNexusDBRemoteEngineContainer.Create(aServerName, aAuxParamsString: string;
+  aTransportClass: TnxBaseTransportClass);
+var
+  S,
+  N,
+  V                           : string;
+  AuxParams                   : IROStrings;
+  i                           : integer;
+
+  procedure SetProperty(Instance: TObject; const Prefix, Name, Value: string);
+  begin
+    if (Pos(Prefix, Name) = 1) then
+    begin
+      SetPropValue(Instance,
+                   Copy(Name, Length(Prefix) + 1, Length(Name)),
+                   Value);
+    end;
+  end;
+
+begin
+  S := aServerName;
+  Delete(S, 1, Pos(csUrlSeperator, S) + 2);
+
+  AuxParams := ListStringElements(aAuxParamsString);
+
+  recTransport := aTransportClass.Create(nil);
+  recTransport.ServerName := S;
+
+  recServerEngine := TnxRemoteServerEngine.Create(nil);
+  recServerEngine.Transport := recTransport;
+
+  for i := 0 to AuxParams.Count-1 do
+  begin
+    N := AuxParams.Names[i];
+    V := AuxParams.Values[AuxParams.Names[i]];
+    SetProperty(recTransport, 'Transport.', N, V);
+    SetProperty(recServerEngine, 'Server.', N, V);
+  end;
+
+  recTransport.Open;
+  recServerEngine.Open;
+
+  inherited Create(aServerName);
+end;
+{------------------------------------------------------------------------------}
+destructor TNexusDBRemoteEngineContainer.Destroy;
+begin
+  inherited;
+  FreeAndNil(recServerEngine);
+  FreeAndNil(recTransport);
+end;
+{==============================================================================}
+{$ENDIF}
+
+
+
+{===TNexusDBRegisteredEngineContainer==========================================}
+type
+  TNexusDBRegisteredEngineContainer = class(TNexusDBBaseEngineContainer)
+  protected                                                 {private}
+    regecServerEngine: TnxBaseServerEngine;
+  protected
+    function becGetEngine: TnxBaseServerEngine; override;
+  public
+    constructor Create(aServerName: string;
+      aServerEngine: TnxBaseServerEngine);
+
+    procedure CheckedFree; override;
+  end;
+{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
+function TNexusDBRegisteredEngineContainer.becGetEngine: TnxBaseServerEngine;
+begin
+  Result := regecServerEngine;
+end;
+{------------------------------------------------------------------------------}
+procedure TNexusDBRegisteredEngineContainer.CheckedFree;
+begin
+  {never}
+end;
+{------------------------------------------------------------------------------}
+constructor TNexusDBRegisteredEngineContainer.Create(aServerName: string;
+  aServerEngine: TnxBaseServerEngine);
+begin
+  regecServerEngine := aServerEngine;
+  inherited Create(aServerName);
+end;
+{==============================================================================}
+
+
+
+{===TNexusDBConnection=========================================================}
+procedure TNexusDBConnection.conAddToEngineContainer;
+begin
+  if conEngineContainerAdded then
+    Exit;
+  if not Assigned(conEngineContainer) then
+    Exit;
+
+  _driver.nxdEnginesPadlock.Lock;
+  try
+    conEngineContainerPrev := conEngineContainer.becConnectionsTail;
+    conEngineContainer.becConnectionsTail := Self;
+    if Assigned(conEngineContainerPrev) then
+      conEngineContainerPrev.conEngineContainerNext := Self;
+    if not Assigned(conEngineContainer.becConnectionsHead) then
+      conEngineContainer.becConnectionsHead := Self;
+  finally
+    _driver.nxdEnginesPadlock.Unlock;
+  end;
+
+  conEngineContainerAdded := True;
+end;
+{------------------------------------------------------------------------------}
+procedure TNexusDBConnection.conRemoveFromEngineContainer;
+begin
+  if not conEngineContainerAdded then
+    Exit;
+
+  _driver.nxdEnginesPadlock.Lock;
+  try
+    if Assigned(conEngineContainerNext) then
+      conEngineContainerNext.conEngineContainerPrev := conEngineContainerPrev
+    else
+      if conEngineContainer.becConnectionsTail = Self then
+        conEngineContainer.becConnectionsTail := conEngineContainerPrev;
+
+    if Assigned(conEngineContainerPrev) then
+      conEngineContainerPrev.conEngineContainerNext := conEngineContainerNext
+    else
+      if conEngineContainer.becConnectionsHead = Self then
+        conEngineContainer.becConnectionsHead := conEngineContainerNext;
+
+    conEngineContainerNext := nil;
+    conEngineContainerPrev := nil;
+
+    conEngineContainer.CheckedFree;
+    conEngineContainer := nil;
+  finally
+    _driver.nxdEnginesPadlock.Unlock;
+  end;
+  conEngineContainerAdded := False;
+end;
+{------------------------------------------------------------------------------}
+procedure TNexusDBConnection.conSetEngineContainer(aContainer: TNexusDBBaseEngineContainer);
+begin
+  if conEngineContainer <> aContainer then begin
+    conSession.Close;
+    conSession.ServerEngine := nil;
+
+    conRemoveFromEngineContainer;
+
+    conEngineContainer := aContainer;
+    if Assigned(conEngineContainer) then
+      conSession.ServerEngine := conEngineContainer.Engine;
+
+    conAddToEngineContainer;
+  end;
+end;
+{------------------------------------------------------------------------------}
+constructor TNexusDBConnection.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  conSession := TnxSession.Create(Self);
+  conDatabase := TnxDatabase.Create(Self);
+  conDatabase.Session := conSession;
+end;
+{------------------------------------------------------------------------------}
+destructor TNexusDBConnection.Destroy;
+begin
+  EngineContainer := nil;
+  inherited;
+end;
+{------------------------------------------------------------------------------}
+function TNexusDBConnection.GetConnected: Boolean;
+begin
+  Result := conDatabase.Connected;
+end;
+{------------------------------------------------------------------------------}
+procedure TNexusDBConnection.SetConnected(Value: Boolean);
+begin
+  if (csDestroying in ComponentState) then Exit;
+
+  try
+    conSession.Active := Value;
+    conDatabase.Connected := Value;
+  except
+    conSession.Active := False;
+    conDatabase.Connected := False;
+    raise;
+  end;
+end;
+{==============================================================================}
+
+
+
+{===TDAENexusDBDriver==========================================================}
+constructor TDAENexusDBDriver.Create(aOwner: TComponent);
+begin
+  inherited;
+  nxdEnginesPadlock := TnxPadlock.Create;
+  nxdEngines := TStringList.Create;
+end;
+{------------------------------------------------------------------------------}
+destructor TDAENexusDBDriver.Destroy;
+var
+  i                           : Integer;
+begin
+  if Assigned(nxdEnginesPadlock) then begin
+    nxdEnginesPadlock.Lock;
+    try
+      if Assigned(nxdEngines) then begin
+        for i := Pred(nxdEngines.Count) downto 0 do
+          nxdEngines.Objects[i].Free;
+        nxdEngines.Clear;
+      end;
+    finally
+      nxdEnginesPadlock.Unlock;
+    end;
+  end;
+  inherited;
+  FreeAndNil(nxdEnginesPadlock);
+  FreeAndNil(nxdEngines);
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBDriver.GetAuxParams(const AuxDriver: string; out List: IROStrings);
+begin
+  inherited;
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  {$IFDEF DataAbstract_NexusDBPack}
+    Result := [doDatabaseName];
+  {$ELSE}
+    Result := [doServerName, doDatabaseName, doLogin, doCustom];
+  {$ENDIF}
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  Result := TDAENexusDBConnection;
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  Result:=Nexus_DriverType;
+end;
+
+function TDAENexusDBDriver.GetDefaultCustomParameters: string;
+begin
+  Result:='';
+end;
+
+function TDAENexusDBDriver.GetDescription: string;
+begin
+  Result := csNexusDBDriver
+    {$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF}
+    {$IFDEF DataAbstract_NexusDBPack} + rsEmbeddedOnly{$ENDIF};
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBDriver.GetDriverID: string;
+begin
+  Result := csNexusDB;
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBDriver.RegisterServerEngine(aServerEngine : TnxBaseServerEngine;
+                                           const aName         : string);
+begin
+  TNexusDBRegisteredEngineContainer.Create(csRegistered + csUrlSeperator + aName, aServerEngine);
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBDriver.UnregisterServerEngine(aServerEngine : TnxBaseServerEngine);
+var
+  i                           : Integer;
+begin
+  _driver.nxdEnginesPadlock.Lock;
+  try
+    for i := Pred(_driver.nxdEngines.Count) downto 0 do
+      if _driver.nxdEngines.Objects[i] is TNexusDBRegisteredEngineContainer then
+        if TNexusDBRegisteredEngineContainer(_driver.nxdEngines.Objects[i]).regecServerEngine = aServerEngine then
+          _driver.nxdEngines.Objects[i].Free;
+  finally
+    _driver.nxdEnginesPadlock.Unlock;
+  end;
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBDriver.UnregisterServerEngine(const aName : string);
+var
+  i                           : Integer;
+begin
+  _driver.nxdEnginesPadlock.Lock;
+  try
+    if _driver.nxdEngines.Find(csRegistered + csUrlSeperator + aName, i) then
+      _driver.nxdEngines.Objects[i].Free;
+  finally
+    _driver.nxdEnginesPadlock.Unlock;
+  end;
+end;
+{==============================================================================}
+
+
+
+{===TDAENexusDBConnection======================================================}
+function TDAENexusDBConnection.CreateCustomConnection: TCustomConnection;
+begin
+  Result := TNexusDBConnection.Create(nil);
+  dacConnection := TNexusDBConnection(Result);
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  Result := TOracleMacroProcessor.Create;
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBConnection.DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+                                                              aConnectionObject : TCustomConnection);
+var
+  S, T                        : string;
+  i                           : Integer;
+  sl                          : TStringList;
+  tpc                         : TnxBaseTransportClass;
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    (aConnectionObject as TNexusDBConnection).Session.Close;
+
+    if Self.UserID <> '' then
+      dacConnection.Session.Username := Self.UserID
+    else
+      dacConnection.Session.Username := UserID;
+
+    if Self.Password <> '' then
+      dacConnection.Session.Password := Self.Password
+    else
+      dacConnection.Session.Password := Password;
+
+    Server := Trim(Server);
+
+    if Server = '' then
+      Server := csEmbeddedDefault;
+
+    _driver.nxdEnginesPadlock.Lock;
+    try
+      S := Server;
+      SetLength(S, nxMaxI32(0, Pred(Pos(csUrlSeperator, S))));
+
+      if S = '' then
+        raise EDADriverException.Create(rsNoProtocolHasBeenSpecified);
+
+      if not _driver.nxdEngines.Find(Server, i) then begin
+
+        if SameText(S, csEmbedded) then begin
+          (aConnectionObject as TNexusDBConnection).EngineContainer :=
+            TNexusDBEmbeddedEngineContainer.Create(Server);
+        end else if SameText(S, csRegistered) then begin
+          raise EDADriverException.CreateFmt(rsNoServerEngineHasBeenRegisteredAs, [Server]);
+        end else begin
+          {$IFDEF DataAbstract_NexusDBPack}
+            raise EDADriverException.Create(rsThisDriverOnlySupportsEmbeddedServerEngines);
+          {$ELSE}
+          sl := TStringList.Create;
+          try
+            TnxBaseDirectTransport.GetRegisteredClasses(sl);
+            tpc := nil;
+            for i := 0 to Pred(sl.Count) do
+              if SameText(S, TnxBaseTransportClass(sl.Objects[i]).ProtocolName) then begin
+                tpc := TnxBaseTransportClass(sl.Objects[i]);
+                Break;
+              end;
+            if not Assigned(tpc) then
+              raise EDADriverException.CreateFmt(rsNoTransportAvailableForProtocol, [S]);
+            (aConnectionObject as TNexusDBConnection).EngineContainer :=
+              TNexusDBRemoteEngineContainer.Create(Server, AuxParamsString, tpc);
+          finally
+            FreeAndNil(sl);
+          end;
+          {$ENDIF}
+        end;
+      end else
+        (aConnectionObject as TNexusDBConnection).EngineContainer :=
+          (_driver.nxdEngines.Objects[i] as TNexusDBBaseEngineContainer);
+    finally
+      _driver.nxdEnginesPadlock.Unlock;
+    end;
+
+    Database := Trim(Database);
+
+    S := Database;
+    SetLength(S, nxMaxI32(0, Pred(Pos(csUrlSeperator, S))));
+    if Pos(csUrlSeperator, Database) > 0 then
+      T := Copy(Database, Length(S) + 4, High(Integer))
+    else
+      T := Database;
+
+    if S = '' then
+      if (aConnectionObject as TNexusDBConnection).EngineContainer.becGetEngine is TnxServerEngine then
+        S := csPath
+      else
+        S := csAlias;
+
+    if SameText(S, csAlias) then
+      (aConnectionObject as TNexusDBConnection).Database.AliasName := T
+    else if SameText(S, csPath) then
+      (aConnectionObject as TNexusDBConnection).Database.AliasPath := T
+    else
+      raise EDADriverException.CreateFmt(rsUnknownDatabaseType, [S]);
+
+  end;
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBConnection.DoBeginTransaction: Integer;
+begin
+  Result := -1;
+  dacConnection.Database.StartTransaction;
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBConnection.DoCommitTransaction;
+begin
+  dacConnection.Database.Commit;
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBConnection.DoGetInTransaction: Boolean;
+begin
+  Result := dacConnection.Database.InTransaction;
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBConnection.DoGetTableFields(const aTableName : string;
+                                                   out aFields    : TDAFieldCollection);
+var
+  i                           : Integer;
+  fld: TField;
+  dafld: TDAField;
+begin
+  dacConnection.Open;
+
+  with TnxQuery.Create(nil) do try
+    SQL.Text := 'SELECT * FROM "' + aTableName + '" WHERE ''c'' <> ''c''';
+    Database := dacConnection.Database;
+    Open;
+
+    aFields := TDAFieldCollection.Create(nil);
+    try
+      for i := 0 to Pred(FieldCount) do begin
+        fld:=Fields.Fields[i];
+        with aFields.Add do begin
+          Name := fld.FieldName;
+          Size := fld.Size;
+          Required := fld.Required;
+          ReadOnly := fld.ReadOnly;
+          Calculated := fld.Calculated;
+          DisplayWidth := fld.DisplayWidth;
+          DisplayLabel := fld.DisplayLabel;
+          DataType := VCLTypeToDAType(fld.DataType);
+          if DataType = datDecimal then begin
+            case fld.DataType of
+              ftBCD: begin
+                DecimalPrecision:= TBCDField(fld).Precision;
+                DecimalScale:= TBCDField(fld).Size;
+              end;
+              ftFMTBCD: begin
+                DecimalPrecision:= TFMTBCDField(fld).Precision;
+                DecimalScale:= TFMTBCDField(fld).Size;
+              end;
+            end;
+          end;
+        end;
+      end;
+    except
+      FreeAndNil(aFields);
+      raise;
+    end;
+    close;
+    //pk
+    sql.Text := 'SELECT SEGMENT_FIELD FROM #INDEXFIELDS '+
+                'WHERE INDEX_NAME = ''$SQL$PRIMARYKEY$INDEX#0'' AND TABLE_NAME = '''+aTableName+''' '+
+                'ORDER BY TABLE_NAME, SEGMENT_INDEX';
+    Open;
+    while not Eof do begin
+      daFld := aFields.FindField(Fields[0].AsString);
+      if dafld <> nil then begin
+        daFld.InPrimaryKey := True;
+        dafld.Required := True;
+      end;
+      Next;
+    end;
+    // field description
+    close;
+    sql.Text := 'SELECT FIELD_NAME, FIELD_DESC, FIELD_TYPE_SQL FROM #FIELDS WHERE TABLE_NAME = '''+aTableName+''' ORDER BY FIELD_INDEX';
+    Open;
+    while not Eof do begin
+      daFld := aFields.FindField(Fields[0].AsString);
+      if dafld <> nil then begin
+        if not Fields[1].IsNull then daFld.Description := Fields[1].AsString;
+        if Fields[2].AsString  = 'AUTOINC' then  begin
+          dafld.DataType:= datAutoInc;
+          dafld.GeneratorName := aTableName;
+        end;
+      end;
+      Next;
+    end;
+  finally
+    Free;
+  end;
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBConnection.DoGetTableNames(out aList: IROStrings);
+begin
+  inherited;
+  dacConnection.Database.Open;
+  dacConnection.Database.GetTableNames(aList.Strings);
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBConnection.DoRollbackTransaction;
+begin
+  dacConnection.Database.Rollback;
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  Result := TDAENexusDBQuery;
+end;
+
+function TDAENexusDBConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  Result:=TDAENexusStoredProcedure;
+end;
+
+{------------------------------------------------------------------------------}
+function TDAENexusDBConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+var
+  lvalue: cardinal;
+begin
+  // dacConnection.Database.GetAutoIncValue(GeneratorName, Cardinal(Result)); // NXDB2: Changed
+  dacConnection.Database.GetAutoIncValue(GeneratorName,
+                                          dacConnection.Session.Password,
+                                          lValue);
+  result := lValue;
+//  Dec(Result);
+end;
+{==============================================================================}
+
+
+
+{===TDAENexusDBQuery===========================================================}
+function TDAENexusDBQuery.CreateDataset(aConnection: TDAEConnection): TDataSet;
+begin
+  Result := TnxQuery.Create(nil);
+  with TnxQuery(Result) do begin
+    Database := TDAENexusDBConnection(aConnection).dacConnection.Database;
+    RequestLive := False;
+  end;
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBQuery.DoExecute: Integer;
+begin
+  with TnxQuery(DataSet) do begin
+    ExecSQL;
+    Result := RowsAffected;
+  end;
+end;
+{------------------------------------------------------------------------------}
+function TDAENexusDBQuery.DoGetSQL: string;
+begin
+  Result := TnxQuery(DataSet).SQL.Text
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBQuery.DoPrepare(Value: Boolean);
+begin
+  TnxQuery(DataSet).Prepared := Value;
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBQuery.DoSetSQL(const Value: string);
+begin
+  TnxQuery(DataSet).SQL.Text := Value;
+end;
+{------------------------------------------------------------------------------}
+procedure TDAENexusDBQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TnxQuery(DataSet).Params);
+end;
+
+procedure TDAENexusDBQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TnxQuery(DataSet).Params);
+end;
+
+procedure TDAENexusDBQuery.ClearParams;
+begin
+  inherited;
+  TnxQuery(DataSet).Params.Clear;
+end;
+
+
+{==============================================================================}
+
+exports  GetDriverObject Name func_GetDriverObject;
+
+procedure TDAENexusDBConnection.DoGetStoredProcedureNames(
+  out List: IROStrings);
+begin
+  inherited;
+  dacConnection.Database.Open;
+  dacConnection.Database.GetStoredProcNames(List.Strings);
+end;
+
+
+{ TDAENexusStoredProcedure }
+
+function TDAENexusStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  Result := TnxStoredProc.Create(nil);
+  with TnxStoredProc(Result) do begin
+    Database := TDAENexusDBConnection(aConnection).dacConnection.Database;
+    RequestLive := False;
+  end;
+end;
+
+function TDAENexusStoredProcedure.Execute: integer;
+begin
+  SetParamValues(GetParams);
+  Result:=DoExecute;
+  GetParamValues(GetParams);
+end;
+
+function TDAENexusStoredProcedure.DoGetSQL: string;
+begin
+  Result:='';
+end;
+
+procedure TDAENexusStoredProcedure.DoSetSQL(const Value: string);
+begin
+//
+end;
+
+procedure TDAENexusStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams,TnxStoredProc(Dataset).Params);
+end;
+
+function TDAENexusStoredProcedure.GetStoredProcedureName: string;
+begin
+  Result:=TnxStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAENexusStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams,TnxStoredProc(Dataset).Params);
+end;
+
+procedure TDAENexusStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TnxStoredProc(Dataset).StoredProcName:=Name;
+end;
+
+procedure TDAENexusStoredProcedure.RefreshParams;
+begin
+  TnxStoredProc(DataSet).RefreshParam;
+  RefreshParamsStd(TnxStoredProc(DataSet).Params);
+end;
+
+procedure TDAENexusStoredProcedure.DoPrepare(Value: boolean);
+begin
+  TnxStoredProc(DataSet).Prepared:=Value;
+end;
+
+
+function TDAENexusStoredProcedure.DoExecute: integer;
+begin
+  TnxStoredProc(Dataset).ExecProc;
+  Result:=-1;
+end;
+
+
+function TDAENexusDBConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier) or IsReservedName(iIdentifier);
+end;
+
+procedure TDAENexusDBConnection.DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection);
+const
+  sFK_SQL =
+    'SELECT fkc.fk_constraint_name, fkc.fk_constraint_table_name as table_name, fkc.fk_constraint_references_table_name as target_table, '+
+    'srccols.fk_constraint_referencing_columns_name as srccol, destcols.fk_constraint_referenced_columns_name as destcol '+
+    'from #foreignkey_constraints fkc '+
+    'join #foreignkey_constraints_referencing_columns srccols on (fkc.fk_constraint_name = srccols.fk_constraint_name and fkc.fk_constraint_table_name = srccols.fk_constraint_table_name) '+
+    'join #foreignkey_constraints_referenced_columns destcols on (fkc.fk_constraint_name = destcols.fk_constraint_name and fkc.fk_constraint_table_name = destcols.fk_constraint_table_name '+
+    'and srccols.fk_constraint_referencing_columns_index = destcols.fk_constraint_referenced_columns_index) '+
+    'order by fkc.fk_constraint_table_name, fkc.fk_constraint_name, srccols.fk_constraint_referencing_columns_index';
+var
+  lCurrConstraint: string;
+  lCurrFK: TDADriverForeignKey;
+  Query: TnxQuery;
+begin
+  inherited DoGetForeignKeys(ForeignKeys);
+  lCurrConstraint := '';
+  lCurrFK := nil;
+  Query :=  TnxQuery.Create(nil);
+  try
+    Query.SQL.Text := sFK_SQL;
+    Query.Database := dacConnection.Database;
+    Query.Open;
+
+    ForeignKeys.Clear;
+    while (not Query.EOF) do begin
+
+      if lCurrConstraint <> Query.Fields[0].AsString then begin
+        lCurrConstraint := Query.Fields[0].AsString;
+
+        lCurrFK := ForeignKeys.Add();
+        with lCurrFK do begin
+          FKField := TrimRight(Query.Fields[3].AsString);
+          PKField := TrimRight(Query.Fields[4].AsString);
+          FKTable := TrimRight(Query.Fields[1].AsString);
+          PKTable := TrimRight(Query.Fields[2].AsString);
+        end;
+      end else begin
+        with lCurrFK do begin
+          FKField := FKField + ';' + TrimRight(Query.Fields[4].AsString);
+          PKField := PKField + ';' + TrimRight(Query.Fields[3].AsString);
+        end;
+      end;
+      Query.Next;
+    end;
+  finally
+    Query.Free;
+  end;
+
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  try
+    _driver.Free;
+  except end;
+  _driver := nil;
+end.
+
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAODACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAODACDriver.pas
new file mode 100644
index 0000000..1086617
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAODACDriver.pas	
@@ -0,0 +1,677 @@
+unit uDAODACDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_ODACDriver_Glyphs.res}
+
+{
+  If you have the version with source code, uncomment the following conditional to
+  make this unit compile.
+}
+
+{.$DEFINE SOURCECODEVERSION}
+
+interface
+
+uses DB, Classes, uDAEngine, uDAInterfaces, uDAADOInterfaces, uROClasses, Variants,
+  uDAOracleInterfaces, Ora, DBAccess, DASQLMonitor, OraSQLMonitor, OraSmart, uDAMacroProcessors, uDAUtils, OraClasses;
+
+type { TDAODACDriver }
+  TDAODACDriver = class(TDADriverReference)
+  end;
+
+     { TDAEODACDriver }
+  TDAEODACDriver = class(TDAOracleDriver)
+  private
+    fMonitor: TOraSQLMonitor;
+    fTraceCallBack: TDALogTraceEvent;
+
+    procedure OnODACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+       // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
+    function GetDefaultCustomParameters: string; override;
+
+  public
+  end;
+
+     { TDAEODACConnection }
+  TDAEODACConnection = class(TDAOracleConnection)
+  private
+    fConnection: TORASession;
+  protected
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+  public
+    function GetDatabaseNames: IROStrings;
+  end;
+
+     { TDAEODACQuery }
+  TDAEODACQuery = class(TDAEDataset, IDAOracleDataset, IDAMustSetParams)
+  private
+
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function intVCLTypeToDAType(aFieldType: TFieldType; ASize: integer = 0; ADecimalPrecision: integer = 0; aDecimalScale: integer = 0): TDADataType;override;
+    procedure ClearParams; override;
+       // IDADataset
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+    procedure DoSetActive(Value: boolean); override;
+
+       // IOracleDataset
+    function GetLockMode: TDAOracleLockMode;
+    procedure SetLockMode(Value: TDAOracleLockMode);
+    function GetOptions: TDAOracleOptions;
+    procedure SetOptions(Value: TDAOracleOptions);
+
+       // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+     { TDAEODACStoredProcedure }
+  TDAEODACStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function intVCLTypeToDAType(aFieldType: TFieldType; ASize: integer = 0; ADecimalPrecision: integer = 0; aDecimalScale: integer = 0): TDADataType;override;
+
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+
+        // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils,
+  uDADriverManager, uDARes, uROBinaryHelpers;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAODACDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEODACDriver.Create(nil);
+  result := _driver;
+end;
+
+
+procedure ReadODACParamValues(AParams: TDAParamCollection;aDACParams: TOraParams;pvSession: TOraSession);
+var
+  i: integer;
+  lParam: TOraParam;
+  ms: IROStream;
+begin
+  for i := 0 to aDACParams.Count - 1 do begin
+    lParam := aDACParams[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      if ord(lParam.DataType) = ftBFile then begin
+        ms := TROStream.Create;
+        lParam.AsBFile.SaveToStream(ms.Stream);
+        ms.Position:=0;
+        Aparams.ParamByName(lParam.Name).LoadFromStream(ms);
+        ms:=nil;
+      end
+      else
+        Aparams.ParamByName(lParam.Name).Value := lParam.Value;
+  end;
+end;
+
+
+procedure WriteODACParamValues(InputParams: TDAParamCollection;OutputParams: TOraParams;pvSession: TOraSession);
+var i : integer;
+    par : uDAInterfaces.TDAParam;
+    outpar : TOraParam;
+    ms: IROStream;
+    blobtype : TFieldType;
+    lvOraLob : TOralob;
+begin
+  for i := 0 to (InputParams.Count-1) do begin
+    par := InputParams[i];
+    outpar := OutputParams.ParamByName(par.Name);
+
+    // If no blob type is specified, then gets the default field type.
+    // BlobType is only meaningful to Oracle. MSSQL works fine just setting the DataType
+    blobtype := BlobTypeMappings[par.BlobType];
+    if (blobtype=ftUnknown) then blobtype := DADataTypesMappings[par.DataType];
+
+    case par.DataType of
+      datBlob : begin
+        outpar.ParamType := TParamType(par.ParamType);
+        outpar.DataType := DADataTypesMappings[par.DataType];
+        if par.ParamType <> daptOutput then begin
+          ms := TROStream.Create;
+          par.SaveToStream(ms);
+          ms.Position := 0;
+          lvOraLob := TOralob.Create(pvSession.OCISvcCtx);
+          try
+            lvOraLob.CreateTemporary(ltBlob);
+            if ms.Size>0 then lvOraLob.LoadFromStream(ms.Stream);
+            lvOraLob.WriteLob;
+            outpar.AsOraBLOB := lvOraLob;
+          finally
+            lvOraLob.Free;
+          end;
+        end;
+
+      end;
+      datMemo : begin
+        outpar.ParamType := TParamType(par.ParamType);
+        outpar.DataType := ftMemo;
+
+        // Only happens with Oracle
+        if (blobtype<>ftUnknown) then outpar.DataType := blobtype;
+        if par.ParamType <> daptOutput then outpar.Value := par.Value;
+      end;
+      else begin
+        outpar.ParamType := TParamType(par.ParamType);
+        case par.DataType of
+          datAutoInc : outpar.DataType := ftInteger;
+          datLargeAutoInc: outpar.DataType := ftLargeInt;
+        else
+          outpar.DataType := DADataTypesMappings[par.DataType];
+        end;
+        if par.ParamType <> daptOutput then outpar.Value := par.Value;
+      end;
+    end;
+  end;
+end;
+
+{ TDAEODACConnection }
+
+procedure TDAEODACConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  inherited;
+
+  with aConnStrParser do begin
+
+    if (Self.UserID <> '') then
+      fConnection.Username := Self.UserID
+    else
+      fConnection.Username := UserID;
+
+    if (Self.Password <> '') then
+      fConnection.Password := Self.Password
+    else
+      fConnection.Password := Password;
+
+    fConnection.Server := Server;
+    fConnection.ConnectPrompt := FALSE;
+    fConnection.Debug := (AuxParams['Debug']='1');
+
+    fConnection.Options.Net := AuxParams['Net'] = '1';
+  end;
+end;
+
+function TDAEODACConnection.DoBeginTransaction: integer;
+begin
+  fConnection.StartTransaction;
+  result := 0;
+end;
+
+procedure TDAEODACConnection.DoCommitTransaction;
+begin
+  fConnection.Commit;
+end;
+
+function TDAEODACConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TORASession.Create(nil);
+  fConnection.LoginPrompt := FALSE;
+
+  { ToDo: add a COnnectionString parameter to set
+    fConnection.Debug := TRUE; }
+
+  result := fConnection;
+end;
+
+function TDAEODACConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEODACQuery;
+end;
+
+function TDAEODACConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEODACStoredProcedure;
+end;
+
+procedure TDAEODACConnection.DoRollbackTransaction;
+begin
+  fConnection.Rollback;
+end;
+
+function TDAEODACConnection.DoGetInTransaction: boolean;
+begin
+  result := fConnection.InTransaction
+end;
+
+function TDAEODACConnection.GetDatabaseNames: IROStrings;
+begin
+  Result := TROStrings.Create();
+  fConnection.GetDatabaseNames(Result.Strings);
+end;
+
+
+{ TDAEODACDriver }
+
+function TDAEODACDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doServerName, doLogin, doCustom];
+end;
+
+function TDAEODACDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEODACConnection;
+end;
+
+function TDAEODACDriver.GetDefaultCustomParameters: string;
+begin
+  result := 'Net=0';
+end;
+
+function TDAEODACDriver.GetDescription: string;
+begin
+  result := 'Core Lab ODAC Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEODACDriver.GetDriverID: string;
+begin
+  result := 'ODAC';
+end;
+
+procedure TDAEODACDriver.GetAuxParams(const AuxDriver: string; out List: IROStrings);
+begin
+  inherited;
+  List.Add('Net=0,1');
+end;
+
+procedure TDAEODACDriver.OnODACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+begin
+  if Assigned(fTraceCallback) then fTraceCallback(Sender, Text, integer(Flag));
+end;
+
+procedure TDAEODACDriver.DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+var
+  sdacopts: TDATraceFlags;
+begin
+  inherited;
+
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TOraSQLMonitor.Create(Self);
+
+    fMonitor.Active := FALSE;
+    fMonitor.OnSQL := OnODACTrace;
+
+    sdacopts := [];
+    if (toPrepare in TraceOptions) then sdacopts := sdacopts + [tfQPrepare];
+    if (toExecute in TraceOptions) then sdacopts := sdacopts + [tfQExecute];
+    if (toFetch in TraceOptions) then sdacopts := sdacopts + [tfQFetch];
+    if (toError in TraceOptions) then sdacopts := sdacopts + [tfError];
+    if (toStmt in TraceOptions) then sdacopts := sdacopts + [tfStmt];
+    if (toConnect in TraceOptions) then sdacopts := sdacopts + [tfConnect];
+    if (toTransact in TraceOptions) then sdacopts := sdacopts + [tfTransact];
+    if (toBlob in TraceOptions) then sdacopts := sdacopts + [tfBlob];
+    if (toService in TraceOptions) then sdacopts := sdacopts + [tfService];
+    if (toMisc in TraceOptions) then sdacopts := sdacopts + [tfMisc];
+    if (toParams in TraceOptions) then sdacopts := sdacopts + [tfParams];
+
+    fTraceCallBack := Callback;
+
+    fMonitor.TraceFlags := sdacopts;
+    fMonitor.Active := TRUE;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+end;
+
+{ TDAEODACQuery }
+
+function TDAEODACQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TSmartQuery.Create(nil);
+  TSmartQuery(result).Debug := TDAEODACConnection(aConnection).fConnection.Debug;
+  TSmartQuery(result).ReadOnly := TRUE;
+  TSmartQuery(result).FetchAll := True; //for preventing creating an additional session when you call StartTransaction (an known issue of OLEDB)
+  TSmartQuery(result).Unidirectional := True;
+  TSmartQuery(result).Session := TDAEODACConnection(aConnection).fConnection;
+end;
+
+function TDAEODACQuery.DoGetSQL: string;
+begin
+  result := TSmartQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEODACQuery.DoSetSQL(const Value: string);
+begin
+  TSmartQuery(Dataset).SQL.Text := Value;
+end;
+
+function TDAEODACQuery.GetLockMode: TDAOracleLockMode;
+begin
+  result := TDAOracleLockMode(TSmartQuery(Dataset).LockMode)
+end;
+
+procedure TDAEODACQuery.SetLockMode(Value: TDAOracleLockMode);
+begin
+  TSmartQuery(Dataset).LockMode := Ora.TLockMode(Value)
+end;
+
+procedure TDAEODACQuery.SetOptions(Value: TDAOracleOptions);
+var
+  {$IFDEF SOURCECODEVERSION}
+  dsopts: TOraDataSetOptions;
+  {$ELSE}
+  dsopts: TOraDataSetOptionsDS;
+  {$ENDIF}
+begin
+  {$IFDEF SOURCECODEVERSION}
+  dsopts := TSmartQuery(Dataset).Options;
+  {$ELSE}
+  dsopts := TSmartQuery(Dataset).OptionsDS;
+  {$ENDIF}
+  
+  TSmartQuery(Dataset).DMLRefresh := True; // To get the output params when we exec SPs
+  dsopts.AutoClose := opAutoClose in Value;
+  dsopts.DefaultValues := opDefaultValues in Value;
+  dsopts.LongStrings := opLongStrings in Value;
+  dsopts.QueryRecCount := opQueryRecCount in Value;
+  dsopts.CacheLobs := opCacheLobs in Value;
+  dsopts.DeferredLobRead := opDeferredLobRead in Value;
+  dsopts.KeepPrepared := opKeepPrepared in Value;
+end;
+
+function TDAEODACQuery.GetOptions: TDAOracleOptions;
+var
+  {$IFDEF SOURCECODEVERSION}
+  dsopts: TOraDataSetOptions;
+  {$ELSE}
+  dsopts: TOraDataSetOptionsDS;
+  {$ENDIF}
+begin
+  {$IFDEF SOURCECODEVERSION}
+  dsopts := TSmartQuery(Dataset).Options;
+  {$ELSE}
+  dsopts := TSmartQuery(Dataset).OptionsDS;
+  {$ENDIF}
+
+  result := [];
+
+  if dsopts.AutoClose then result := result + [opAutoClose];
+  if dsopts.DefaultValues then result := result + [opDefaultValues];
+  if dsopts.LongStrings then result := result + [opLongStrings];
+  if dsopts.QueryRecCount then result := result + [opQueryRecCount];
+  if dsopts.CacheLobs then result := result + [opCacheLobs];
+  if dsopts.DeferredLobRead then result := result + [opDeferredLobRead];
+  if dsopts.KeepPrepared then result := result + [opKeepPrepared];
+end;
+
+procedure TDAEODACQuery.DoPrepare(Value: boolean);
+begin
+  TSmartQuery(Dataset).Prepared := Value
+end;
+
+function TDAEODACQuery.DoExecute: integer;
+begin
+  TSmartQuery(Dataset).ExecSQL;
+  result := TSmartQuery(Dataset).RowsAffected;
+end;
+
+procedure TDAEODACQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteODACParamValues(AParams, TSmartQuery(Dataset).Params, TSmartQuery(Dataset).Session);
+end;
+
+procedure TDAEODACQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  ReadODACParamValues(AParams, TSmartQuery(Dataset).Params, TSmartQuery(Dataset).Session)
+end;
+
+
+function ExtractTableName(aSQLStatement: string): string;
+var sql: string;
+    idx, i, x: integer;
+begin
+  result := '';
+
+  sql := UpperCase(aSQLStatement);
+  ReplaceChar(sql, [#13, #9, #10], #32);
+
+  idx := Pos(' FROM ', sql);
+  if (idx=0) then Exit;
+
+  for i := idx+6 to Length(sql) do begin
+    if (sql[i]<>#32) then begin
+      for x := i to Length(sql) do
+        if not (sql[x] in ['A'..'Z', '0'..'9', '.', '_']) then begin
+          result := Trim(Copy(sql, i, x-i));
+          Exit;
+        end;
+    end;
+  end;
+end;
+
+procedure TDAEODACQuery.DoSetActive(Value: boolean);
+var willCreateFields: boolean;
+    fieldColl: TDAFieldCollection;
+    tableName: string;
+    fld: TDAField;
+    qry: TSmartQuery;
+begin
+  fieldColl:=nil; // prevent warnings
+  willCreateFields := FALSE;
+  if Value then begin
+    fieldColl := inherited GetFields;
+    willCreateFields := fieldColl.Count=0;
+  end;
+
+  inherited;
+
+  if not willCreateFields then Exit;
+
+  { Determines which ones are part of the PK }
+  tableName := UpperCase(ExtractTableName(DoGetSQL));
+
+  if (tableName='') then Exit;
+  qry := TSmartQuery.Create(NIL);
+  try
+    qry.Assign(Dataset);
+    qry.SQL.Text := Format(
+       'SELECT cols.column_name, cols.position '+
+       'FROM all_constraints cons, all_cons_columns cols '+
+       'WHERE cols.table_name = ''%s'' AND cons.constraint_type = ''P'' AND cons.constraint_name = cols.constraint_name '+
+       'AND cons.owner = cols.owner ORDER BY cols.position', [tableName]);
+    qry.Open;
+    if (qry.RecordCount=0) then Exit;
+
+    while not qry.Eof do try
+      fld := fieldColl.FindField(qry.Fields[0].AsString);
+      if (fld<>NIL) then begin
+        fld.InPrimaryKey := TRUE;
+        fld.Required := TRUE;
+      end;
+    finally
+      qry.Next;
+    end;
+  finally
+    qry.Free;
+  end;
+end;
+
+function TDAEODACQuery.intVCLTypeToDAType(aFieldType: TFieldType; ASize: integer = 0; ADecimalPrecision: integer = 0; aDecimalScale: integer = 0): TDADataType;
+begin
+  if ord(aFieldType) in [ftTimeStampTZ,ftTimeStampLTZ] then aFieldType:=ftTimeStamp;
+  if ord(aFieldType) in [ftBFile] then aFieldType:=ftBlob;
+  with TSmartQuery(Dataset).Session do
+    if ord(aFieldType) in [ftNumber] then begin
+      if (Options.EnableIntegers) and (aDecimalScale = 0) and (ADecimalPrecision < IntegerPrecision) then aFieldType := ftInteger
+      else if (Options.EnableIntegers) and (aDecimalScale = 0) and (ADecimalPrecision < LargeIntPrecision) then aFieldType := ftLargeint
+      else if (Options.EnableNumbers) and (ADecimalPrecision > FloatPrecision) then aFieldType := ftFMTBcd
+      else aFieldType := ftFloat;
+    end;
+  Result:= inherited intVCLTypeToDAType(aFieldType,ASize,ADecimalPrecision,aDecimalScale);
+end;
+
+procedure TDAEODACQuery.ClearParams;
+begin
+  inherited;
+  TSmartQuery(Dataset).Params.Clear;
+end;
+
+{ TDAEODACStoredProcedure }
+
+function TDAEODACStoredProcedure.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TOraStoredProc.Create(nil);
+  TOraStoredProc(result).Debug := TDAEODACConnection(aConnection).fConnection.Debug;
+  TOraStoredProc(result).Session := TDAEODACConnection(aConnection).fConnection;
+end;
+
+function TDAEODACStoredProcedure.Execute: integer;
+var
+//  i: integer;
+  _params: TDAParamCollection;
+ // lParam: DBAccess.TDAParam;
+begin
+  _params := GetParams;
+  setParamValues(_Params);
+{
+  with TOraStoredProc(Dataset) do begin
+    if (Params.Count <> _Params.Count) then TOraStoredProc(Dataset).PrepareSQL;
+
+    for i := 0 to (Params.Count - 1) do
+      if (Params[i].ParamType in [ptInput, ptInputOutput]) then
+        Params[i].Value := _params.ParamByName(Params[i].Name).Value;
+
+    for i := 0 to (_params.Count - 1) do begin
+      lParam := Params.ParamByName(_params[i].Name);
+      if (_params[i].DataType = datString) and (_params[i].Size > 4000) and (lParam.ParamType in [ptOutput, ptInputOutput]) then
+        lParam.Size := _params[i].Size;
+    end;
+  end;
+}
+  result := DoExecute;
+  GetParamValues(_Params);
+end;
+
+function TDAEODACStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TOraStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEODACStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TOraStoredProc(Dataset).StoredProcName := Name;
+end;
+
+procedure TDAEODACStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  if (AParams.Count <> TOraStoredProc(Dataset).Params.Count) then TOraStoredProc(Dataset).PrepareSQL;
+  WriteODACParamValues(AParams, TOraStoredProc(Dataset).Params, TOraStoredProc(Dataset).Session);
+end;
+
+procedure TDAEODACStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+begin
+  ReadODACParamValues(AParams, TOraStoredProc(Dataset).Params, TOraStoredProc(Dataset).Session)
+end;
+
+procedure TDAEODACStoredProcedure.RefreshParams;
+begin
+  TOraStoredProc(Dataset).PrepareSQL;
+  RefreshParamsStd(TOraStoredProc(Dataset).Params);
+end;
+
+function TDAEODACStoredProcedure.intVCLTypeToDAType(aFieldType: TFieldType; ASize: integer = 0; ADecimalPrecision: integer = 0; aDecimalScale: integer = 0): TDADataType;
+begin
+  if ord(aFieldType) in [ftTimeStampTZ,ftTimeStampLTZ] then aFieldType:=ftTimeStamp;
+  if ord(aFieldType) in [ftNumber] then aFieldType := ftFloat;
+  Result:= inherited intVCLTypeToDAType(aFieldType,ASize,ADecimalPrecision,aDecimalScale);
+end;
+
+exports GetDriverObject name func_GetDriverObject;
+
+function TDAEODACStoredProcedure.DoExecute: integer;
+begin
+  with TOraStoredProc(Dataset) do begin
+    ExecProc;
+    result := RowsAffected;
+  end;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAPgDACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAPgDACDriver.pas
new file mode 100644
index 0000000..593a0ab
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAPgDACDriver.pas	
@@ -0,0 +1,455 @@
+unit uDAPGDACDriver;
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library                                     }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_PgDACDriver_Glyphs.res}
+interface
+
+uses
+  DB, Classes,
+  DBAccess, PgAccess, DASQLMonitor, PgSQLMonitor,
+  uDAEngine, uDAInterfaces, uDAADOInterfaces, uROClasses,
+  uROBinaryHelpers, uDAUtils, uDAPostgresInterfaces;
+
+type
+  { TDAPgDACDriver }
+  TDAPgDACDriver = class(TDADriverReference)
+  end;
+
+  { TDAEPgDACDriver }
+  TDAEPgDACDriver = class(TDAPostgresDriver)
+  private
+    fMonitor: TPgSQLMonitor;
+    fTraceCallBack: TDALogTraceEvent;
+    procedure OnSDACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+       // IDADriver
+    function GetDriverID: string; override; safecall;
+    function GetDescription: string; override; safecall;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+
+  end;
+
+     { TDAEMyConnection }
+  TDAEPgDACConnection = class(TDAEPostgresConnection)
+  private
+    fConnection: TPgConnection;
+  protected
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+  public
+  end;
+
+     { TDAEPgDACQuery }
+  TDAEPgDACQuery = class(TDAEDataset,IDAMustSetParams)
+  private
+
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoGetSQL: string; override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoSetSQL(const Value: string); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoPrepare(Value: boolean); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+  end;
+
+     { TDAEPgDACStoredProcedure }
+  TDAEPgDACStoredProcedure = class(TDAEStoredProcedure,IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+       // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+
+
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils, Variants,TypInfo,
+  uDADriverManager, uDARes;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAPgDACDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEPgDacDriver.Create(nil);
+  result := _driver;
+end;
+
+{$I uDACRLabsUtils.inc}
+
+
+exports GetDriverObject name func_GetDriverObject;
+
+
+{ TDAEPgDACDriver }
+
+procedure TDAEPgDACDriver.DoSetTraceOptions(TraceActive: boolean;
+  TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+var
+  sdacopts: TDATraceFlags;
+begin
+  inherited;
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TPgSQLMonitor.Create(Self);
+
+    fMonitor.Active := FALSE;
+    fMonitor.OnSQL := OnSDACTrace;
+
+    sdacopts := [];
+    if (toPrepare in TraceOptions) then sdacopts := sdacopts + [tfQPrepare];
+    if (toExecute in TraceOptions) then sdacopts := sdacopts + [tfQExecute];
+    if (toFetch in TraceOptions) then sdacopts := sdacopts + [tfQFetch];
+    if (toError in TraceOptions) then sdacopts := sdacopts + [tfError];
+    if (toStmt in TraceOptions) then sdacopts := sdacopts + [tfStmt];
+    if (toConnect in TraceOptions) then sdacopts := sdacopts + [tfConnect];
+    if (toTransact in TraceOptions) then sdacopts := sdacopts + [tfTransact];
+    if (toBlob in TraceOptions) then sdacopts := sdacopts + [tfBlob];
+    if (toService in TraceOptions) then sdacopts := sdacopts + [tfService];
+    if (toMisc in TraceOptions) then sdacopts := sdacopts + [tfMisc];
+    if (toParams in TraceOptions) then sdacopts := sdacopts + [tfParams];
+
+    fTraceCallBack := Callback;
+
+    fMonitor.TraceFlags := sdacopts;
+    fMonitor.Active := TRUE;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+end;
+
+procedure TDAEPgDACDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  List.Add('Options.<Param>=<Value>');
+  List.Add('PoolingOptions.<Param>=<Value>');
+  List.Add('Port=5432');
+  List.Add('SSLOptions.<Param>=<Value>');
+  List.Add('');
+  List.Add('Consult to PgDAC documentation about Options, PoolingOptions and SSLOptions options.');
+end;
+
+function TDAEPgDACDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEPgDacConnection;
+end;
+
+function TDAEPgDACDriver.GetDescription: string;
+begin
+  result := 'Devart''s PostgreSQL Data Access Components'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEPgDACDriver.GetDriverID: string;
+begin
+  Result := 'PgDAC';
+end;
+
+procedure TDAEPgDACDriver.OnSDACTrace(Sender: TObject; Text: string;
+  Flag: TDATraceFlag);
+begin
+  if Assigned(fTraceCallback) then fTraceCallback(Sender, Text, integer(Flag));
+end;
+
+{ TDAEPgDACConnection }
+
+function TDAEPgDACConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TPgConnection.Create(nil);
+  fConnection.LoginPrompt := FALSE;
+
+  result := fConnection;
+end;
+
+procedure TDAEPgDACConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser;
+  aConnectionObject: TCustomConnection);
+var
+  i: integer;
+  sName, sValue: string;
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    fConnection.Database := Database;
+
+    fConnection.Server := Server;
+
+    if (Self.UserID <> '') then
+      fConnection.Username := Self.UserID
+    else
+      fConnection.Username := UserID;
+
+    if (Self.Password <> '') then
+      fConnection.Password := Self.Password
+    else
+      fConnection.Password := Password;
+
+    for i := 0 to AuxParamsCount -1 do begin
+      sName := AuxParamNames[i];
+      sValue := AuxParams[sName];
+
+      if Pos('options.', AnsiLowerCase(sName)) = 1 then begin
+        sName := Copy(sName,9, Length(sName)-8);
+        SetPropValue(fConnection.Options, sName, sValue);
+      end
+      else if Pos('poolingoptions.', AnsiLowerCase(sName)) = 1 then begin
+        sName := Copy(sName,16, Length(sName)-15);
+        SetPropValue(fConnection.PoolingOptions, sName, sValue);
+      end
+      else if AnsiSameStr(sName, 'PORT') then begin
+        fConnection.Port := StrToIntDef(sValue,0);
+      end
+      else if Pos('ssloptions.', AnsiLowerCase(sName)) = 1 then begin
+        sName := Copy(sName,12, Length(sName)-11);
+        SetPropValue(fConnection.SSLOptions, sName, sValue);
+      end;
+    end;
+  end;
+end;
+
+function TDAEPgDACConnection.DoBeginTransaction: integer;
+begin
+  fConnection.StartTransaction;
+  result := 0;
+end;
+
+procedure TDAEPgDACConnection.DoCommitTransaction;
+begin
+  fConnection.Commit;
+end;
+
+function TDAEPgDACConnection.DoGetInTransaction: boolean;
+begin
+  Result := fConnection.InTransaction;
+end;
+
+procedure TDAEPgDACConnection.DoRollbackTransaction;
+begin
+  fConnection.Rollback;
+end;
+
+
+function TDAEPgDACConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  Result := TDAEPgDACQuery;
+end;
+
+function TDAEPgDACConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  Result := TDAEPgDACStoredProcedure;
+end;
+
+{ TDAEPgDACQuery }
+
+procedure TDAEPgDACQuery.ClearParams;
+begin
+  inherited;
+  TPgQuery(Dataset).Params.Clear;
+end;
+
+function TDAEPgDACQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TPgQuery.Create(nil);
+
+  TPgQuery(result).FetchAll := True;  //for preventing creating an additional session when you call StartTransaction (an known issue of OLEDB)
+  TPgQuery(result).Unidirectional := True;
+  TPgQuery(result).ReadOnly := TRUE;
+  TPgQuery(result).Connection := TDAEPgDACConnection(aConnection).fConnection;
+end;
+
+function TDAEPgDACQuery.DoExecute: integer;
+begin
+  TPgQuery(Dataset).Execute;
+  result := TPgQuery(Dataset).RowsAffected;
+end;
+
+function TDAEPgDACQuery.DoGetSQL: string;
+begin
+  result := TPgQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEPgDACQuery.DoPrepare(Value: boolean);
+var
+  i: integer;
+  par: TPgParam;
+begin
+  if Value and not TPgQuery(Dataset).Prepared and (TPgQuery(Dataset).ParamCount<>0) then begin
+    for I := 0 to GetParams.Count - 1 do begin
+      par:=TPgQuery(Dataset).ParamByName(GetParams[i].Name);
+      par.DataType:= DATypeToVCLType(GetParams[i].DataType);
+      if par.DataType = ftAutoInc then par.DataType:= ftInteger;
+    end;
+  end;
+  TPgQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEPgDACQuery.DoSetSQL(const Value: string);
+begin
+  TPgQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEPgDACQuery.GetParamValues(AParams: TDAParamCollection);
+var
+  I: Integer;
+  lParam: TPgParam;
+begin
+  for i := 0 to TPgQuery(DataSet).Params.Count - 1 do begin
+    lParam:=TPgQuery(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      Aparams.ParamByName(lParam.Name).Value := lParam.Value;
+  end;
+end;
+
+procedure TDAEPgDACQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TPgQuery(Dataset).Params, true);
+end;
+
+{ TDAEPgDACStoredProcedure }
+
+function TDAEPgDACStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TPgStoredProc.Create(nil);
+  TPgStoredProc(result).Connection := TDAEPgDACConnection(aConnection).fConnection;
+end;
+
+function TDAEPgDACStoredProcedure.DoExecute: integer;
+begin
+  with TPgStoredProc(Dataset) do begin
+    ExecProc;
+    result := RowsAffected;
+  end;
+end;
+
+function TDAEPgDACStoredProcedure.Execute: integer;
+var
+  i: integer;
+  _params: TDAParamCollection;
+  lParam: uDAInterfaces.TDAParam;
+begin
+  _params := GetParams;
+
+  with TPgStoredProc(Dataset) do begin
+    for i := 0 to (Params.Count - 1) do
+      if (Params[i].ParamType in [ptInput, ptInputOutput]) then begin
+        lParam := _params.ParamByName(Params[i].Name);
+        if (Params[i].DataType in [ftMemo, ftBlob, ftGraphic]) and VarIsArray(lParam.Value)then
+          Params[i].Value := VariantToAnsiString(lParam.Value)
+        else
+          Params[i].Value := lParam.Value;
+      end;
+
+    result := DoExecute;
+
+    for i := 0 to (_params.Count-1) do
+      if (_params[i].ParamType in [daptOutput, daptInputOutput, daptResult])
+        then _params[i].Value := params.ParamByName(_params[i].Name).Value;
+  end;
+end;
+
+procedure TDAEPgDACStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+var
+  i: Integer;
+  lParam: TPgParam;
+begin
+  for i := 0 to TPgStoredProc(DataSet).Params.Count - 1 do begin
+    lParam:=TPgStoredProc(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      Aparams.ParamByName(lParam.Name).Value := lParam.Value;
+    end;
+end;
+
+function TDAEPgDACStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TPgStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEPgDACStoredProcedure.RefreshParams;
+begin
+  TPgStoredProc(Dataset).Prepare;
+  RefreshParamsStd(TPgStoredProc(Dataset).Params);
+end;
+
+procedure TDAEPgDACStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TPgStoredProc(Dataset).Params);
+end;
+
+procedure TDAEPgDACStoredProcedure.SetStoredProcedureName(const Name: string);
+begin
+  TPgStoredProc(Dataset).StoredProcName := Name;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAPostgresDACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAPostgresDACDriver.pas
new file mode 100644
index 0000000..6e20c81
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAPostgresDACDriver.pas	
@@ -0,0 +1,353 @@
+unit uDAPostgresDACDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_PostgresDACDriver_Glyphs.res} 
+
+interface
+
+uses DB, Classes, uDAEngine, uDAInterfaces, uDAADOInterfaces, uROClasses,
+  uROBinaryHelpers, uDAUtils, PSQLDbTables, uDAPostgresInterfaces;
+
+type { TDAPostgresDACDriver }
+  TDAPostgresDACDriver = class(TDADriverReference)
+  end;
+
+     { TDAEPostgresDACDriver }
+  TDAEPostgresDACDriver = class(TDAPostgresDriver)
+  private
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+       // IDADriver
+    function GetDriverID: string; override; safecall;
+    function GetDescription: string; override; safecall;
+  end;
+
+     { TDAEMyConnection }
+  TDAEPostgresDACConnection = class(TDAEPostgresConnection)
+  private
+    function GetConnection: TPSQLDatabase;
+  protected
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+    property Connection: TPSQLDatabase read GetConnection;
+  public
+  end;
+
+     { TDAEPostgresDACQuery }
+  TDAEPostgresDACQuery = class(TDAEDataset,IDAMustSetParams)
+  private
+
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+       // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+     { TDAEPostgresDACStoredProcedure }
+  TDAEPostgresDACStoredProcedure = class(TDAEStoredProcedure,IDAMustSetParams)
+  private
+    fConnection:TDAEConnection;
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function GetStoredProcedureName: string; override; safecall;
+    procedure SetStoredProcedureName(const Name: string); override; safecall;
+    function DoExecute: integer; override;safecall;    
+    function Execute: integer; override;safecall;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}    
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils,
+  uDADriverManager, uDARes;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAPostgresDACDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEPostgresDacDriver.Create(nil);
+  result := _driver;
+end;
+
+{$IFDEF LATEST_MyDAC}
+{$I uDACRLabsUtils.inc}
+{$ENDIF LATEST_MyDAC}
+
+{ TDAEPostgresDacConnection }
+
+function TDAEPostgresDacConnection.DoBeginTransaction: integer;
+begin
+  Connection.StartTransaction;
+  result := 0;
+end;
+
+procedure TDAEPostgresDacConnection.DoCommitTransaction;
+begin
+  Connection.Commit;
+end;
+
+function TDAEPostgresDacConnection.GetConnection: TPsqlDatabase;
+begin
+  result := TPsqlDatabase(inherited ConnectionObject);
+end;
+
+function TDAEPostgresDacConnection.CreateCustomConnection: TCustomConnection;
+begin
+  result := TPsqlDatabase.Create(nil);
+  TPsqlDatabase(result).LoginPrompt := false;
+end;
+
+function TDAEPostgresDacConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEPostgresDacQuery;
+end;
+
+function TDAEPostgresDacConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEPostgresDacStoredProcedure;
+end;
+
+procedure TDAEPostgresDacConnection.DoRollbackTransaction;
+begin
+  Connection.Rollback;
+end;
+
+function TDAEPostgresDacConnection.DoGetInTransaction: boolean;
+begin
+  result := Connection.InTransaction
+end;
+
+
+procedure TDAEPostgresDacConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  i: Integer;
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    Connection.DatabaseName := Database;
+
+    Connection.Host := Server;
+
+    if (Self.UserID <> '') then
+      Connection.Username := Self.UserID
+    else
+      Connection.Username := UserID;
+
+    if (Self.Password <> '') then
+      Connection.UserPassword := Self.Password
+    else
+      Connection.UserPassword := Password;
+
+    for i := 0 to AuxParamsCount -1 do
+    begin
+      if AuxParams[AuxParamNames[i]] <> '' then
+        Connection.Params.Add(AuxParamNames[i]+'='+AuxParams[AuxParamNames[i]]);
+    end;
+  end;
+end;
+
+
+{ TDAEPostgresDacDriver }
+
+
+function TDAEPostgresDacDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEPostgresDacConnection;
+end;
+
+function TDAEPostgresDacDriver.GetDescription: string;
+begin
+  result := 'MicroOlap DAC for Postgres Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEPostgresDacDriver.GetDriverID: string;
+begin
+  result := 'PostgresDAC';
+end;
+
+
+{ TDAEPostgresDacQuery }
+
+procedure TDAEPostgresDACQuery.ClearParams;
+begin
+  inherited;
+  TPSQLQuery(Dataset).Params.Clear;
+end;
+
+function TDAEPostgresDacQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TPSQLQuery.Create(nil);
+  TPSQLQuery(result).UniDirectional := True;
+  TPSQLQuery(result).RequestLive := false;
+  TPSQLQuery(result).Database := TDAEPostgresDacConnection(aConnection).Connection;
+end;
+
+function TDAEPostgresDacQuery.DoExecute: integer;
+begin
+  TPSQLQuery(Dataset).ExecSQL;
+  result := TPSQLQuery(Dataset).RowsAffected;
+end;
+
+function TDAEPostgresDacQuery.DoGetSQL: string;
+begin
+  result := TPSQLQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEPostgresDacQuery.DoPrepare(Value: boolean);
+begin
+  TPSQLQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEPostgresDacQuery.DoSetSQL(const Value: string);
+begin
+  TPSQLQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEPostgresDACQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TPSQLQuery(Dataset).Params);
+end;
+
+procedure TDAEPostgresDACQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TPSQLQuery(Dataset).Params);
+end;
+
+
+{ TDAEADOStoredProcedure }
+
+function TDAEPostgresDacStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  fConnection := aConnection;
+  result := TPSQLStoredProc.Create(nil);
+  TPSQLStoredProc(result).Database := TDAEPostgresDacConnection(aConnection).Connection;
+end;
+
+function TDAEPostgresDACStoredProcedure.DoExecute: integer;
+begin
+  TPSQLStoredProc(Dataset).ExecProc;
+  result := -1;
+end;
+
+function TDAEPostgresDacStoredProcedure.Execute: integer;
+var
+  i: integer;
+  _params: TDAParamCollection;
+begin
+  _params := GetParams;
+
+  with TPSQLStoredProc(Dataset) do begin
+    for i := 0 to (ParamCount-1) do
+      if (Params[i].ParamType in [ptInput, ptInputOutput]) then
+        Params[i].Value := _params.ParamByName(Params[i].Name).Value;
+
+    result := DoExecute;
+
+    for i := 0 to (ParamCount-1) do
+      if (Params[i].ParamType in [ptOutput, ptInputOutput, ptResult]) then
+        _params.ParamByName(Params[i].Name).Value := Params[i].Value;
+  end;
+end;
+
+procedure TDAEPostgresDACStoredProcedure.GetParamValues(
+  AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams,TPSQLStoredProc(Dataset).Params);
+end;
+
+function TDAEPostgresDacStoredProcedure.GetStoredProcedureName: string;
+begin
+  Result := TPSQLStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEPostgresDACStoredProcedure.RefreshParams;
+begin
+  TPSQLStoredProc(Dataset).RefreshParams;
+  RefreshParamsStd(TPSQLStoredProc(Dataset).Params);
+end;
+
+procedure TDAEPostgresDACStoredProcedure.SetParamValues(
+  AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams,TPSQLStoredProc(Dataset).Params);
+end;
+
+procedure TDAEPostgresDacStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TPSQLStoredProc(Dataset).StoredProcName := Name;
+end;
+
+exports GetDriverObject name func_GetDriverObject;
+
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASDACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASDACDriver.pas
new file mode 100644
index 0000000..5d1f139
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASDACDriver.pas	
@@ -0,0 +1,506 @@
+unit uDASDACDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_SDACDriver_Glyphs.res}
+
+interface
+
+uses
+  DB, Classes, uDAEngine, uDAInterfaces, uDAADOInterfaces, uROClasses,
+  DBAccess, MSAccess, DASQLMonitor,
+  MSSQLMonitor, Variants, uDAUtils;
+
+type { TDASDACDriver }
+  TDASDACDriver = class(TDADriverReference)
+  end;
+
+     { TDAEADODriver }
+  TDAEADODriver = class(TDAMSSQLDriver)
+  private
+    fMonitor: TMSSQLMonitor;
+    fTraceCallBack: TDALogTraceEvent;
+
+    procedure OnSDACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+
+       // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override; safecall;
+    function GetDefaultCustomParameters: String; override; safecall;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;    
+  end;
+
+     { TDAEMSConnection }
+  TDAEMSConnection = class(TDAMSConnection, IDAADOConnection, IDACanQueryDatabaseNames)
+  private
+    fMSConnection: TMSConnection;
+
+//    procedure GetSysObjects(const aCondition: string; aList: TStrings);
+
+  protected
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+    // IADOConnection
+    function GetProviderName: string; safecall;
+    function GetProviderType: TDAOleDBProviderType; safecall;
+    function GetCommandTimeout: Integer; safecall;
+    procedure SetCommandTimeout(const Value: Integer); safecall;
+  end;
+
+     { TDAEMSQuery }
+  TDAEMSQuery = class(TDAEDataset, IDAMustSetParams)
+  private
+
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure DoPrepare(Value: boolean); override;
+
+       // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+  end;
+
+     { TDAEADOStoredProcedure }
+  TDAEADOStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+       // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  SysUtils,
+  uDADriverManager, uDARes, OLEDBAccess,
+    uROBinaryHelpers;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDASDACDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEADODriver.Create(nil);
+  result := _driver;
+end;
+
+{$I uDACRLabsUtils.inc}
+
+{ TDAEMSConnection }
+
+procedure TDAEMSConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  adoconn: string;
+  i: integer;
+begin
+  inherited;
+
+  with aConnStrParser do begin
+    adoconn := Format(stdMSSQL_ConnectionString, [UserID, Password, Database, Server]);
+    adoconn := '';
+    if UserId <> '' then begin
+      if adoconn = '' then
+        AdoConn := 'User ID='+UserID
+      else
+        AdoConn := ADoConn + ';User ID='+UserID;
+    end;
+    if Password <> '' then begin
+      if adoconn = '' then
+        AdoConn := 'Password='+Password
+      else
+        AdoConn := ADoConn + ';Password='+Password;
+    end;
+    if DataBase <> '' then begin
+      if adoconn = '' then
+        AdoConn := 'Initial Catalog='+Database
+      else
+        AdoConn := ADoConn + ';Initial Catalog='+Database;
+    end;
+    if Server <> '' then begin
+      if adoconn = '' then
+        AdoConn := 'Data Source='+Server
+      else
+        AdoConn := ADoConn + ';Data Source='+Server;
+    end;
+
+    AdoConn := ADoConn + ';';
+    MSSQLSchemaEnabled := True; // by default
+    for i := 0 to AuxParamsCount -1 do
+    begin
+      if Uppercase(AuxParamNames[i]) = 'SCHEMAS' then
+        MSSQLSchemaEnabled := AuxParams['Schemas'] = '1'
+      else
+        adoconn := adoconn + AuxParamNames[i] + '=' + AuxParams[AuxParamNames[i]]+';';
+    end;
+
+    fMSConnection.ConnectString := adoconn;
+
+    if (Self.UserID <> '') then fMSConnection.Username := Self.UserID;
+
+    if (Self.Password <> '') then fMSConnection.Password := Self.Password;
+  end;
+end;
+
+function TDAEMSConnection.DoBeginTransaction: integer;
+begin
+  fMSConnection.StartTransaction;
+  result := 0;
+end;
+
+procedure TDAEMSConnection.DoCommitTransaction;
+begin
+  fMSConnection.Commit;
+end;
+
+function TDAEMSConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fMSConnection := TMSConnection.Create(nil);
+  fMSConnection.LoginPrompt := FALSE;
+
+  result := fMSConnection;
+end;
+
+function TDAEMSConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAEMSQuery;
+end;
+
+function TDAEMSConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAEADOStoredProcedure;
+end;
+
+procedure TDAEMSConnection.DoRollbackTransaction;
+begin
+  fMSConnection.Rollback;
+end;
+
+function TDAEMSConnection.DoGetInTransaction: boolean;
+begin
+  result := fMSConnection.InTransaction
+end;
+
+function TDAEMSConnection.GetProviderName: string;
+begin
+  result := oledb_MSSQLId;
+end;
+
+function TDAEMSConnection.GetProviderType: TDAOleDBProviderType;
+begin
+  result := oledb_MSSQL;
+end;
+
+function TDAEMSConnection.GetCommandTimeout: Integer;
+begin
+   if fMSConnection <> nil then
+     Result := fMSConnection.ConnectionTimeout
+   else
+     Result:=0;
+end;
+
+procedure TDAEMSConnection.SetCommandTimeout(const Value: Integer);
+begin
+  if fMSConnection <> nil then
+  fMSConnection.ConnectionTimeout := Value;
+end;
+
+{ TDAEADODriver }
+
+function TDAEADODriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEMSConnection;
+end;
+
+function TDAEADODriver.GetDescription: string;
+begin
+  result := 'Core Lab SDAC Driver'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEADODriver.GetDriverID: string;
+begin
+  result := 'SDAC';
+end;
+
+procedure TDAEADODriver.OnSDACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+begin
+  if Assigned(fTraceCallback) then fTraceCallback(Sender, Text, integer(Flag));
+end;
+
+procedure TDAEADODriver.DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+var
+  sdacopts: TDATraceFlags;
+begin
+  inherited;
+
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TMSSQLMonitor.Create(Self);
+
+    fMonitor.Active := FALSE;
+    fMonitor.OnSQL := OnSDACTrace;
+
+    sdacopts := [];
+    if (toPrepare in TraceOptions) then sdacopts := sdacopts + [tfQPrepare];
+    if (toExecute in TraceOptions) then sdacopts := sdacopts + [tfQExecute];
+    if (toFetch in TraceOptions) then sdacopts := sdacopts + [tfQFetch];
+    if (toError in TraceOptions) then sdacopts := sdacopts + [tfError];
+    if (toStmt in TraceOptions) then sdacopts := sdacopts + [tfStmt];
+    if (toConnect in TraceOptions) then sdacopts := sdacopts + [tfConnect];
+    if (toTransact in TraceOptions) then sdacopts := sdacopts + [tfTransact];
+    if (toBlob in TraceOptions) then sdacopts := sdacopts + [tfBlob];
+    if (toService in TraceOptions) then sdacopts := sdacopts + [tfService];
+    if (toMisc in TraceOptions) then sdacopts := sdacopts + [tfMisc];
+    if (toParams in TraceOptions) then sdacopts := sdacopts + [tfParams];
+
+    fTraceCallBack := Callback;
+
+    fMonitor.TraceFlags := sdacopts;
+    fMonitor.Active := TRUE;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+end;
+
+function TDAEADODriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAEADODriver.GetDefaultCustomParameters: String;
+begin
+  Result := 'Schemas=1;Integrated Security=SSPI';
+end;
+
+
+
+procedure TDAEADODriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  MSSQL_GetAuxParams(List);
+end;
+
+{ TDAEMSQuery }
+
+procedure TDAEMSQuery.ClearParams;
+begin
+  inherited;
+  TMSQuery(Dataset).Params.Clear;
+end;
+
+function TDAEMSQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TMSQuery.Create(nil);
+
+  TMSQuery(result).FetchAll := True;  //for preventing creating an additional session when you call StartTransaction (an known issue of OLEDB)
+  TMSQuery(result).Unidirectional := True;
+  TMSQuery(result).ReadOnly := TRUE;
+  TMSQuery(result).Connection := TDAEMSConnection(aConnection).fMSConnection;
+//  TMSQuery(result).Options.AutoPrepare:=True;
+end;
+
+function TDAEMSQuery.DoExecute: integer;
+begin
+  TMSQuery(Dataset).Execute;
+  result := TMSQuery(Dataset).RowsAffected;
+end;
+
+function TDAEMSQuery.DoGetSQL: string;
+begin
+  result := TMSQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEMSQuery.DoPrepare(Value: boolean);
+var
+  i: integer;
+  par: TMSParam;
+begin
+  if Value and not TMSQuery(Dataset).Prepared and (TMSQuery(Dataset).ParamCount<>0) then begin
+    for I := 0 to GetParams.Count - 1 do begin
+      par:=TMSQuery(Dataset).ParamByName(GetParams[i].Name);
+      par.DataType:= DATypeToVCLType(GetParams[i].DataType);
+      if par.DataType = ftAutoInc then par.DataType:= ftInteger;
+    end;
+  end;
+  TMSQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEMSQuery.DoSetSQL(const Value: string);
+begin
+  TMSQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEMSQuery.GetParamValues(AParams: TDAParamCollection);
+var
+  I: Integer;
+  lParam: TMSParam;
+begin
+  for i := 0 to TMSQuery(DataSet).Params.Count - 1 do begin
+    lParam:=TMSQuery(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      Aparams.ParamByName(lParam.Name).Value := lParam.Value;
+  end;
+end;
+
+procedure TDAEMSQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TMSQuery(Dataset).Params, true);
+end;
+
+{ TDAEADOStoredProcedure }
+
+function TDAEADOStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TMSStoredProc.Create(nil);
+  TMSStoredProc(result).Connection := TDAEMSConnection(aConnection).fMSConnection;
+end;
+
+function TDAEADOStoredProcedure.Execute: integer;
+var
+  i: integer;
+  _params: TDAParamCollection;
+  lParam: uDAInterfaces.TDAParam;
+begin
+  _params := GetParams;
+
+  with TMSStoredProc(Dataset) do begin
+    for i := 0 to (Params.Count - 1) do
+      if (Params[i].ParamType in [ptInput, ptInputOutput]) then begin
+        lParam := _params.ParamByName(Params[i].Name);
+        if (Params[i].DataType in [ftMemo, ftBlob, ftGraphic]) and VarIsArray(lParam.Value)then
+          Params[i].Value := VariantToAnsiString(lParam.Value)
+        else
+          Params[i].Value := lParam.Value;
+      end;
+
+    result := DoExecute;
+
+    for i := 0 to (_params.Count-1) do
+      if (_params[i].ParamType in [daptOutput, daptInputOutput, daptResult])
+        then _params[i].Value := params.ParamByName(_params[i].Name).Value;
+  end;
+end;
+
+procedure TDAEADOStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+var
+  i: Integer;
+  lParam: TMSParam;
+begin
+  for i := 0 to TMSStoredProc(DataSet).Params.Count - 1 do begin
+    lParam:=TMSStoredProc(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      Aparams.ParamByName(lParam.Name).Value := lParam.Value;
+    end;
+end;
+
+
+function TDAEADOStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TMSStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEADOStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TMSStoredProc(Dataset).StoredProcName := Name;
+end;
+
+procedure TDAEADOStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TMSStoredProc(Dataset).Params);
+end;
+
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+procedure TDAEADOStoredProcedure.RefreshParams;
+begin
+  TMSStoredProc(Dataset).PrepareSQL;
+  RefreshParamsStd(TMSStoredProc(Dataset).Params);
+end;
+
+function TDAEADOStoredProcedure.DoExecute: integer;
+begin
+  with TMSStoredProc(Dataset) do begin
+    ExecProc;
+    result := RowsAffected;
+  end;
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASQLiteDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASQLiteDriver.pas
new file mode 100644
index 0000000..18961a3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASQLiteDriver.pas	
@@ -0,0 +1,349 @@
+unit uDASQLiteDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$R DataAbstract_SQLiteDriver_Glyphs.res}
+
+interface
+
+uses Windows, Classes, DB, uDAEngine, uDAInterfaces, uROClasses, uDAUtils, ASGSQLite3, uDASQLiteInterfaces;
+
+type
+  { TDASQLiteDriver }
+  TDASQLiteDriver = class(TDADriverReference)
+  end;
+
+  { TDAESQLiteDriver }
+  TDAESQLiteDriver = class(uDASQLiteInterfaces.TDASQLiteDriver, IDADriver40)
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+  public
+  end;
+
+  // for access to protected methods
+  TDAASQLite3DB = class(TASQLite3DB)
+  private
+  public
+    function GetLastInsertRow: integer;
+  end;
+
+  { TSQLiteConnection }
+  TSQLiteConnection = class(TDAConnectionWrapper)
+  private
+    fConnection: TDAASQLite3DB;
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: Boolean); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property Connection: TDAASQLite3DB read fConnection;
+  end;
+
+  { TDAESQLiteConnection }
+  TDAESQLiteConnection = class(TDASQLiteConnection)
+  private
+    FtransactionFlag: Boolean;
+    fConnection: TSQLiteConnection;
+  protected
+    // TDAEConnection
+    function CreateCustomConnection: TCustomConnection; override;
+    function GetDatasetClass: TDAEDatasetClass; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; safecall;
+  public
+    constructor Create(aDriver: TDAEDriver; aName: string = ''); override;
+  end;
+
+  { TDAESQLiteQuery }
+  TDAESQLiteQuery = class(TDAEDataset,IDAMustSetParams)
+  private
+  protected
+    procedure ClearParams; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure DoPrepare(Value: boolean); override; safecall;
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses SysUtils, uDADriverManager, uDARes, Variants,
+  uROBinaryHelpers, uDASQL92Interfaces;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDASQLiteDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  if (_driver = nil) then _driver := TDAESQLiteDriver.Create(nil);
+  result := _driver;
+end;
+
+{ TSQLiteConnection }
+
+constructor TSQLiteConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+  fConnection := TDAASQLite3DB.Create(nil);
+end;
+
+destructor TSQLiteConnection.Destroy;
+begin
+  inherited;
+  fConnection.Free;
+end;
+
+function TSQLiteConnection.GetConnected: Boolean;
+begin
+  result := fConnection.Connected;
+end;
+
+procedure TSQLiteConnection.SetConnected(Value: Boolean);
+begin
+  fConnection.Connected := Value;
+end;
+
+{ TDAESQLiteConnection }
+
+procedure TDAESQLiteConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  sName, sValue: string;
+  i: integer;
+begin
+  inherited;
+  with aConnStrParser do begin
+    TSQLiteConnection(aConnectionObject).Connection.Database := Database;
+    for i := 0 to (AuxParamsCount - 1) do begin
+      sName := AuxParamNames[i];
+      sValue := AuxParams[sName];
+      if AnsiSameText(sName, 'TransactionType') then begin
+        if AnsiSameText(sValue, 'DEFAULT') or
+          AnsiSameText(sValue, 'DEFERRED') or
+          AnsiSameText(sValue, 'IMMEDIATE') or
+          AnsiSameText(sValue, 'EXCLUSIVE') then
+          fConnection.fConnection.TransactionType := AnsiUpperCase(sValue);
+      end
+      else if AnsiSameText(sName, 'DriverDll') then begin
+        fConnection.fConnection.DriverDll := sValue
+      end
+      else if AnsiSameText(sName, 'CharacterEncoding') then begin
+        if AnsiSameText(sValue, 'STANDARD') or
+          AnsiSameText(sValue, 'UTF8') then
+          fConnection.fConnection.CharacterEncoding := AnsiUpperCase(sValue);
+      end;
+    end;
+  end;
+end;
+
+function TDAESQLiteConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+  fConnection.Connection.StartTransaction;
+  FtransactionFlag := True;
+end;
+
+procedure TDAESQLiteConnection.DoCommitTransaction;
+begin
+  fConnection.Connection.Commit;
+  FtransactionFlag := False;
+end;
+
+function TDAESQLiteConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TSQLiteConnection.Create(nil);
+  result := fConnection;
+end;
+
+function TDAESQLiteConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAESQLiteQuery;
+end;
+
+procedure TDAESQLiteConnection.DoRollbackTransaction;
+begin
+  FtransactionFlag := False;
+  fConnection.Connection.RollBack;
+end;
+
+function TDAESQLiteConnection.DoGetInTransaction: boolean;
+begin
+  Result := FtransactionFlag;
+end;
+
+procedure TDAESQLiteConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+var
+  List: TList;
+  i: integer;
+  fld: TDAField;
+begin
+  inherited DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), Fields);
+  List := TList.Create;
+  try
+    fConnection.Connection.GetTableInfo(aTableName, List);
+    for i := 0 to List.Count - 1 do
+      with TASQLite3Field(List[i]) do begin
+        fld := Fields.FieldByName(FieldName);
+        fld.Required := FieldNN <> 0;
+        fld.InPrimaryKey := FieldPK <> 0;
+        if fld.InPrimaryKey then fld.Required := True;
+        fld.DefaultValue := FieldDefault;
+      end;
+  finally
+    List.Free;
+  end;
+end;
+
+function TDAESQLiteConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier) or
+    SQL92_IdentifierNeedsQuoting(iIdentifier);
+end;
+
+constructor TDAESQLiteConnection.Create(aDriver: TDAEDriver;
+  aName: string);
+begin
+  inherited;
+  FtransactionFlag := False;
+end;
+
+function TDAESQLiteConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  Result := fConnection.Connection.GetLastInsertRow;
+end;
+
+{ TDAESQLiteDriver }
+
+function TDAESQLiteDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAESQLiteConnection;
+end;
+
+function TDAESQLiteDriver.GetDescription: string;
+begin
+  result := 'SQLite Driver';
+end;
+
+function TDAESQLiteDriver.GetDriverID: string;
+begin
+  result := 'SQLite';
+end;
+
+procedure TDAESQLiteDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  List.Add('TransactionType=(DEFAULT,DEFERRED,IMMEDIATE,EXCLUSIVE)');
+  List.Add('DriverDll=SQLite3.dll');
+  List.Add('CharacterEncoding=(STANDARD,UTF8)');
+end;
+
+{ TDAESQLiteQuery }
+
+procedure TDAESQLiteQuery.ClearParams;
+begin
+  inherited;
+  TASQLite3Query(Dataset).Params.Clear;
+end;
+
+function TDAESQLiteQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TASQLite3Query.Create(nil);
+  TASQLite3Query(result).Connection := TDAESQLiteConnection(aConnection).fConnection.Connection;
+end;
+
+function TDAESQLiteQuery.DoExecute: integer;
+begin
+  Result := -1;
+  TASQLite3Query(Dataset).ExecSQL;
+end;
+
+function TDAESQLiteQuery.DoGetSQL: string;
+begin
+  result := TASQLite3Query(Dataset).SQL.Text;
+end;
+
+procedure TDAESQLiteQuery.DoPrepare(Value: boolean);
+begin
+  // nothing
+end;
+
+procedure TDAESQLiteQuery.DoSetSQL(const Value: string);
+begin
+  TASQLite3Query(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAESQLiteQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TASQLite3Query(Dataset).Params);
+end;
+
+procedure TDAESQLiteQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TASQLite3Query(Dataset).Params);
+end;
+
+exports GetDriverObject name func_GetDriverObject;
+{ TDAASQLite3DB }
+
+function TDAASQLite3DB.GetLastInsertRow: integer;
+begin
+  result := SQLite3_LastInsertRow(DBHandle)
+end;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASQLitePassDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASQLitePassDriver.pas
new file mode 100644
index 0000000..854f51f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDASQLitePassDriver.pas	
@@ -0,0 +1,390 @@
+unit uDASQLitePassDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library                                     }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{                                                                            }
+{ based on code of Giovanni Siano                                            }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$IFNDEF FPC}
+{$R DataAbstract_SQLitePassDriver_Glyphs.res}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Classes, DB, uDAEngine, uDAInterfaces, uROClasses, uDAUtils, uDASQLiteInterfaces, SqlitePassDbo;
+
+type
+  { TDASQLitePassDriver }
+  TDASQLitePassDriver = class(TDADriverReference)
+  end;
+
+  { TDAESQLiteDriver }
+  TDAESQLiteDriver = class(uDASQLiteInterfaces.TDASQLiteDriver, IDADriver40)
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    procedure CustomizeConnectionObject(aConnection: TDAEConnection); override;
+    // IDADriver
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+  public
+  end;
+
+  // for access to protected methods
+  TDASQLite3PassDB = class(TSqlitePassDatabase)
+  private
+  public
+  end;
+
+  { TSQLiteConnection }
+  TSQLiteConnection = class(TDAConnectionWrapper)
+  private
+    fConnection: TDASQLite3PassDB;
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: Boolean); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property Connection: TDASQLite3PassDB read fConnection;
+  end;
+
+  { TDAESQLiteConnection }
+  TDAESQLiteConnection = class(TDASQLiteConnection)
+  private
+    FtransactionFlag: Boolean;
+    fConnection: TSQLiteConnection;
+  protected
+    procedure SetConnected(Value: boolean); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // TDAEConnection
+    function CreateCustomConnection: TCustomConnection; override;
+    function GetDatasetClass: TDAEDatasetClass; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+    function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    procedure DoGetTableNames(out List: IROStrings); override;
+  public
+    constructor Create(aDriver: TDAEDriver; aName: string = ''); override;
+  end;
+
+  { TDAESQLiteQuery }
+  TDAESQLiteQuery = class(TDAEDataset,IDAMustSetParams)
+  private
+  protected
+    procedure ClearParams; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure DoPrepare(Value: boolean); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoExecute: integer; override;
+    function DoGetSQL: string; override;
+    procedure DoSetSQL(const Value: string); override;
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses SysUtils, uDADriverManager, uDARes, Variants, TypInfo,
+  uROBinaryHelpers, uDASQL92Interfaces, SqlitePassApi_v3, SqlitePassErrorLang;
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDASQLitePassDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  if (_driver = nil) then _driver := TDAESQLiteDriver.Create(nil);
+  result := _driver;
+end;
+
+{ TSQLiteConnection }
+
+constructor TSQLiteConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+  fConnection := TDASQLite3PassDB.Create(nil);
+end;
+
+destructor TSQLiteConnection.Destroy;
+begin
+  inherited;
+  fConnection.Free;
+end;
+
+function TSQLiteConnection.GetConnected: Boolean;
+begin
+  result := fConnection.Connected;
+end;
+
+procedure TSQLiteConnection.SetConnected(Value: Boolean);
+begin
+  fConnection.Connected := Value;
+end;
+
+{ TDAESQLiteConnection }
+
+procedure TDAESQLiteConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  sName, sValue: string;
+  i: integer;
+begin
+  inherited;
+  with aConnStrParser do begin
+    for i := 0 to (AuxParamsCount - 1) do begin
+      sName := AuxParamNames[i];
+      sValue := AuxParams[sName];
+      if AnsiSameText(sName, 'SqliteLibrary') then begin
+        fConnection.fConnection.SQLiteLibrary := sValue;
+      end
+      else if AnsiSameText(sName, 'DatabaseType') then begin
+        if AnsiSameText(sValue, 'dbtSqlitePass') then fConnection.fConnection.DatabaseType := dbtSqlitePass
+        else if AnsiSameText(sValue, 'dbtKexi') then fConnection.fConnection.DatabaseType := dbtKexi
+        else if AnsiSameText(sValue, 'dbtSqliteAdmin') then fConnection.fConnection.DatabaseType := dbtSqliteAdmin
+        else if AnsiSameText(sValue, 'dbtSqlite4Fpc') then fConnection.fConnection.DatabaseType := dbtSqlite4Fpc
+        else if AnsiSameText(sValue, 'dbtSqliteExpert') then fConnection.fConnection.DatabaseType := dbtSqliteExpert
+        else fConnection.fConnection.DatabaseType := dbtUnknown;
+      end
+      else if Pos('datatypeoptions.', AnsiLowerCase(sName)) = 1 then begin
+        sName := Copy(sName,17, Length(sName)-16);
+        SetPropValue(fConnection.fConnection.DatatypeOptions, sName, sValue);
+      end
+      else if Pos('options.', AnsiLowerCase(sName)) = 1 then begin
+        sName := Copy(sName,9, Length(sName)-8);
+        SetPropValue(fConnection.fConnection.Options, sName, sValue);
+      end;
+    end;
+    TSQLiteConnection(aConnectionObject).Connection.Database := Database;
+  end;
+end;
+
+function TDAESQLiteConnection.DoBeginTransaction: integer;
+begin
+  result := -1;
+  fConnection.Connection.Engine.Transaction.Start;
+  FtransactionFlag := True;
+end;
+
+procedure TDAESQLiteConnection.DoCommitTransaction;
+begin
+  fConnection.Connection.Engine.Transaction.Commit;
+  FtransactionFlag := False;
+end;
+
+function TDAESQLiteConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TSQLiteConnection.Create(nil);
+  result := fConnection;
+end;
+
+function TDAESQLiteConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAESQLiteQuery;
+end;
+
+procedure TDAESQLiteConnection.DoRollbackTransaction;
+begin
+  FtransactionFlag := False;
+  fConnection.Connection.Engine.Transaction.Rollback;
+end;
+
+function TDAESQLiteConnection.DoGetInTransaction: boolean;
+begin
+  Result := FtransactionFlag;
+end;
+
+procedure TDAESQLiteConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+var
+  i: integer;
+  fld: TDAField;
+  lSqlitePassTableDef: TSqlitePassTableDef;
+begin
+  inherited DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), Fields);
+
+  lSqlitePassTableDef :=  fConnection.Connection.TableDefs.TableByName(aTableName);
+
+  with lSqlitePassTableDef do begin
+    for i := 0 to Pred(Fields.Count - 1) do
+    with FieldDefs.FindFieldDef(Fields[i].Name) do
+    begin
+      fld := Fields[i];
+      fld.Required :=  NotNull;
+      fld.InPrimaryKey := PrimaryKey;
+      if fld.InPrimaryKey then fld.Required := True;
+      fld.DefaultValue := DefaultValue;
+    end;
+  end;
+end;
+
+procedure TDAESQLiteConnection.SetConnected(Value: boolean);
+var
+  lErrorCode: integer;
+  lMsg: String;
+  lDateTime: TDateTime;
+begin
+  inherited;
+  if not fConnection.fConnection.Connected then begin
+    fConnection.fConnection.DatabaseError.GetLastError(lErrorCode,lMsg, lDateTime);
+    if lMsg <> Msg1002 then raise Exception.Create(lMsg);
+  end;
+end;
+
+constructor TDAESQLiteConnection.Create(aDriver: TDAEDriver;
+  aName: string);
+begin
+  inherited;
+  FtransactionFlag := False;
+end;
+
+function TDAESQLiteConnection.DoGetLastAutoInc(
+  const GeneratorName: string): integer;
+begin
+  Result := SqliteDbv3_last_insert_rowid(fConnection.Connection);
+end;
+
+
+
+procedure TDAESQLiteConnection.DoGetTableNames(out List: IROStrings);
+var
+  i: integer;
+begin
+  inherited;
+  {Giovanni: to avoid return of system table names}
+  for i := Pred(List.Count) downto 0 do
+    if fConnection.fConnection.IsSystemTable(List.Strings[i]) then List.Delete(i);
+end;
+
+{ TDAESQLiteDriver }
+
+procedure TDAESQLiteDriver.CustomizeConnectionObject(
+  aConnection: TDAEConnection);
+begin
+  inherited;
+  //TODO:
+end;
+
+
+function TDAESQLiteDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAESQLiteConnection;
+end;
+
+function TDAESQLiteDriver.GetDescription: string;
+begin
+  result := 'SQLitePass Driver';
+end;
+
+function TDAESQLiteDriver.GetDriverID: string;
+begin
+  result := 'SQLitePass';
+end;
+
+procedure TDAESQLiteDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  //TODO: TDAESQLiteDriver.GetAuxParams()
+  //List.Add('TransactionType=(DEFAULT,DEFERRED,IMMEDIATE,EXCLUSIVE)');
+  List.Add('DatabaseType=(dbtSqlitePass, dbtKexi, dbtSqliteAdmin, dbtSqlite4Fpc, dbtSqliteExpert, dbtUnknown)');
+  List.Add('SqliteLibrary=path to sqlitepass3.dll or libsqlitepass3.so');
+  List.Add('DatatypeOptions.<Param>=<Value>');
+  List.Add('Options.<Param>=<Value>');
+
+  List.Add('');
+  List.Add('Consult to SQLitePass documentation about DatatypeOptions and Options options.');
+
+  //List.Add('CharacterEncoding=(STANDARD,UTF8)');
+end;
+
+{ TDAESQLiteQuery }
+
+procedure TDAESQLiteQuery.ClearParams;
+begin
+  inherited;
+  TSqlitePassDataset(Dataset).Params.Clear;
+end;
+
+function TDAESQLiteQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TSqlitePassDataset.Create(nil);
+  TSqlitePassDataset(Result).Database := TDAESQLiteConnection(aConnection).fConnection.Connection;
+  if not TDAESQLiteConnection(aConnection).GetConnected then TDAESQLiteConnection(aConnection).Open
+end;
+
+function TDAESQLiteQuery.DoExecute: integer;
+begin
+  Result := -1;
+  TSqlitePassDataset(Dataset).Open;
+end;
+
+function TDAESQLiteQuery.DoGetSQL: string;
+begin
+  result := TSqlitePassDataset(Dataset).SQL.Text;
+end;
+
+procedure TDAESQLiteQuery.DoPrepare(Value: boolean);
+begin
+  // nothing
+end;
+
+procedure TDAESQLiteQuery.DoSetSQL(const Value: string);
+begin
+  TSqlitePassDataset(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAESQLiteQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TSqlitePassDataset(Dataset).Params);
+end;
+
+procedure TDAESQLiteQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  SetParamValuesStd(AParams, TSqlitePassDataset(Dataset).Params);
+end;
+
+exports GetDriverObject name func_GetDriverObject;
+
+initialization
+{$IFDEF FPC}
+  {$I DataAbstract_SQLitePassDriver_Glyphs.lrs}
+{$ENDIF}
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAUniDACDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAUniDACDriver.pas
new file mode 100644
index 0000000..f0d68fd
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAUniDACDriver.pas	
@@ -0,0 +1,1196 @@
+unit uDAUniDACDriver;
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library                                     }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+
+{.$DEFINE UNIDAC_NATIVE_ONLY}
+interface
+
+uses DB, Classes, uDAEngine, uROClasses,
+  uROBinaryHelpers, uDAUtils,
+  DBAccess, Uni, DASQLMonitor, UniSQLMonitor,
+  uDAInterfaces,
+  uDAADOInterfaces,
+  uDAIBInterfaces,
+  uDASQLiteInterfaces,
+  uDAOracleInterfaces,
+  uDAMySQLInterfaces,
+  uDADB2Interfaces,
+  uDASybaseInterfaces,
+  uDAPostgresInterfaces;
+
+type
+
+  TDAUnidacDriverType = (
+    dauUnknown,
+    dauAccess,
+    dauAdvantage,
+    dauASE,
+    dauIBMDB2,
+    dauInterBase,
+    dauMySQL,
+    dauOracle,
+    dauPostgreSQL,
+    dauSQLite,
+    dauMSSQL);
+
+const
+  uni_access                 = 'access';
+  uni_advantage              = 'advantage';
+  uni_ase                    = 'ase';
+  uni_ibmdb2                 = 'db2';
+  uni_interbase              = 'interbase';
+  uni_mysql                  = 'mysql';
+  uni_oracle                 = 'oracle';
+  uni_postgresql             = 'postgresql';
+  uni_sqlite                 = 'sqlite';
+  uni_sqlserver              = 'sql server';
+
+type
+  { TDAUniDACDriver }
+  TDAUniDACDriver = class(TDADriverReference)
+  end;
+
+  { TDAEUniDACDriver }
+  TDAEUniDACDriver = class(TDAEDriver,IDADriver40)
+  private
+    fMonitor: TUniSQLMonitor;
+    fTraceCallBack: TDALogTraceEvent;
+    procedure OnSDACTrace(Sender: TObject; Text: string; Flag: TDATraceFlag);
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); override;
+       // IDADriver
+    function GetDriverID: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDescription: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetAuxDrivers(out List: IROStrings); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptionsEx(AuxDriver: string): TDAAvailableDriverOptions; override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    //IDADriver40
+    function GetProviderDefaultCustomParameters(Provider: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+     { TDAEMyConnection }
+  TDAEUniDACConnection = class(TDAEConnection, IDAConnection,
+      IDAInterbaseConnection,           //IDAIBTransactionAccess, IDAIBConnectionProperties,
+      IDAOracleConnection,
+      IDAMySQLConnection,
+      IDASQLiteConnection,
+      IDADB2Connection,
+      IDASybaseConnection,
+      IDAPostgresConnection,
+      // IDAConnectionModelling,
+      IDACanQueryDatabaseNames,
+      IDAFileBasedDatabase,
+      // IDADirectoryBasedDatabase,
+      IDAUseGenerators,
+      IDAUseGenerators2,
+      IDACanQueryGeneratorsNames,
+      IDATestableObject)
+  private
+    fConnection: TUniConnection;
+    fDriverName: string;
+    fDriverType: TDAUnidacDriverType;
+    fMSSQLSchemaEnabled: Boolean;
+    FMySQLVersion: integer;
+    FSchemaSupported: integer;
+    function CombineSchemaWithName(aSchema, aName: string): string;
+    function GetMySQLVersion: integer;
+    procedure native_DoGetNames(AList: IROStrings; AObjectType: TDAObjecttype);
+    procedure native_DoGetForeignKeys(ForeignKeys: TDADriverForeignKeyCollection);
+    procedure native_GetGeneratorNames(AList: IROStrings);
+    procedure native_DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection);
+    function isSchemaSupported: Boolean;
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+    function CreateCustomConnection: TCustomConnection; override;
+
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser;
+      aConnectionObject: TCustomConnection); override;
+
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    //rocedure DoGetQueryFields(const aSQL: string; aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection); override;
+    //procedure DoGetViewFields(const aViewName: string; out Fields: TDAFieldCollection); override;
+
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+
+    { IDATestableObject }
+    // procedure Test; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAConnection }
+
+    function GetSPSelectSyntax(HasArguments: Boolean): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetQuoteChars: TDAQuoteCharArray; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function IdentifierIsQuoted(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function QuoteIdentifierIfNeeded(const iIdentifier: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function QuoteIdentifier(const iIdentifier: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function QuoteFieldNameIfNeeded(const aTableName, aFieldName: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function QuoteFieldName(const aTableName, aFieldName: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // function NewCommand(const Text: string; CommandType: TDASQLStatementType; const aCommandName: string = ''): IDASQLCommand; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function NewDataset(const SQL: string; const aDatasetName: string = ''): IDADataset; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // function isAlive: Boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function GetQueryBuilder: TDAQueryBuilder; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAInterbaseConnection }
+    // nothing
+
+    { IDAIBTransactionAccess }
+    //function GetTransaction: TObject; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    //procedure CommitRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    //procedure RollbackRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAIBConnectionProperties }
+    function GetRole: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRole(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSQLDialect: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQLDialect(Value: integer); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetCharset: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetCharset(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Commit; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // procedure CommitRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Rollback; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // procedure RollbackRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAOracleConnection }
+    // nothing
+
+    { IDAConnectionModelling }
+    // function FieldToDeclaration(aField: TDAField): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function BuildCreateTableSQL(aDataSet: TDADataSet; const aOverrideName: string = ''): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // procedure CreateTable(aDataSet: TDADataSet; const aOverrideName: string = ''); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDACanQueryDatabaseNames }
+    function GetDatabaseNames: IROStrings;
+
+    { IDAFileBasedDatabase }
+    function GetFileExtensions: IROStrings;
+
+    { IDADirectoryBasedDatabase }
+    // nothing
+
+    { IDAUseGenerators }
+    function GetNextAutoinc(const GeneratorName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    { IDAUseGenerators2 }
+    function GetNextAutoinc2(const GeneratorName: string): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDACanQueryGeneratorsNames }
+    function GetGeneratorNames: IROStrings;
+  public
+  end;
+
+     { TDAEUniDACQuery }
+  TDAEUniDACQuery = class(TDAEDataset,IDAMustSetParams)
+  private
+
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure ClearParams; override;
+    function DoExecute: integer; override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoGetSQL: string; override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoSetSQL(const Value: string); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoPrepare(Value: boolean); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+  end;
+
+     { TDAEUniDACStoredProcedure }
+  TDAEUniDACStoredProcedure = class(TDAEStoredProcedure,IDAMustSetParams)
+  protected
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+
+    function GetStoredProcedureName: string; override;
+    procedure SetStoredProcedureName(const Name: string); override;
+    function DoExecute: integer; override;
+    function Execute: integer; override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+       // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+
+
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  SysUtils, Variants,
+  uDADriverManager, uDARes, TypInfo,
+  {$IFDEF MSWINDOWS}
+  AccessUniProvider,
+  AdvantageUniProvider,
+  ASEUniProvider,
+  DB2UniProvider,
+  ODBCUniProvider,
+  SQLServerUniProvider, 
+  {$ENDIF}
+  InterBaseUniProvider,
+  MySQLUniProvider,
+  OracleUniProvider,
+  PostgreSQLUniProvider,
+  SQLiteUniProvider,
+  UniProvider;
+
+{$IFNDEF FPC}
+  {$R DataAbstract_UniDACDriver_Glyphs.res}
+{$ENDIF}
+
+
+
+function UNIDriverIdToUNIDriverType(aAuxDriver: string): TDAUnidacDriverType;
+begin
+  Result := dauUnknown;
+  aAuxDriver := LowerCase(aAuxDriver);
+  if uni_access = aAuxDriver then Result := dauAccess
+  else if uni_advantage = aAuxDriver then Result := dauAdvantage
+  else if uni_ase = aAuxDriver then Result := dauASE
+  else if uni_ibmdb2 = aAuxDriver then Result := dauIBMDB2
+  else if uni_interbase = aAuxDriver then Result := dauInterBase
+  else if uni_MySQL = aAuxDriver then Result := dauMySQL
+  else if uni_ORACLE = aAuxDriver then Result := dauOracle
+  else if uni_PostgreSQL = aAuxDriver then Result := dauPostgreSQL
+  else if uni_SQLite = aAuxDriver then Result := dauSQLite
+  else if uni_sqlserver = aAuxDriver then Result := dauMSSQL
+  else ;
+end;
+
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAUniDACDriver]);
+end;
+
+{$IFDEF DataAbstract_SchemaModelerOnly}
+{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModelerOnly}
+
+function GetDriverObject: IDADriver;
+begin
+  {$IFDEF DataAbstract_SchemaModelerOnly}
+  if not RunningInSchemaModeler then begin
+    result := nil;
+    exit;
+  end;
+  {$ENDIF}
+  if (_driver = nil) then _driver := TDAEUniDACDriver.Create(nil);
+  result := _driver;
+end;
+
+{$I uDACRLabsUtils.inc}
+
+{ TDAEUniDACDriver }
+
+procedure TDAEUniDACDriver.DoSetTraceOptions(TraceActive: boolean;
+  TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent);
+var
+  sdacopts: TDATraceFlags;
+begin
+  inherited;
+  if TraceActive then begin
+    if (fMonitor = nil) then fMonitor := TUniSQLMonitor.Create(Self);
+
+    fMonitor.Active := FALSE;
+    fMonitor.OnSQL := OnSDACTrace;
+
+    sdacopts := [];
+    if (toPrepare in TraceOptions) then sdacopts := sdacopts + [tfQPrepare];
+    if (toExecute in TraceOptions) then sdacopts := sdacopts + [tfQExecute];
+    if (toFetch in TraceOptions) then sdacopts := sdacopts + [tfQFetch];
+    if (toError in TraceOptions) then sdacopts := sdacopts + [tfError];
+    if (toStmt in TraceOptions) then sdacopts := sdacopts + [tfStmt];
+    if (toConnect in TraceOptions) then sdacopts := sdacopts + [tfConnect];
+    if (toTransact in TraceOptions) then sdacopts := sdacopts + [tfTransact];
+    if (toBlob in TraceOptions) then sdacopts := sdacopts + [tfBlob];
+    if (toService in TraceOptions) then sdacopts := sdacopts + [tfService];
+    if (toMisc in TraceOptions) then sdacopts := sdacopts + [tfMisc];
+    if (toParams in TraceOptions) then sdacopts := sdacopts + [tfParams];
+
+    fTraceCallBack := Callback;
+
+    fMonitor.TraceFlags := sdacopts;
+    fMonitor.Active := TRUE;
+  end
+  else begin
+    FreeAndNIL(fMonitor);
+    fTraceCallback := nil;
+  end;
+end;
+
+procedure TDAEUniDACDriver.GetAuxDrivers(out List: IROStrings);
+var
+  i                        : integer;
+  str: TStringList;
+begin
+  inherited;
+  Str := TStringList.Create;
+  try
+    UniProviders.GetProviderNames(str);
+    for i := 0 to Str.Count - 1 do
+      if UNIDriverIdToUNIDriverType(str[i]) <> dauUnknown then
+        List.Add(str[i]);
+    List.Sorted := True;
+  finally
+    Str.Free;
+  end;
+end;
+
+procedure TDAEUniDACDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  case UNIDriverIdToUNIDriverType(AuxDriver) of
+    dauMSSQL: MSSQL_GetAuxParams(List);
+  end;
+  List.Add('Options.<Param>=<Value>');
+  List.Add('SpecificOptions.<Param>=<Value>');
+  case UNIDriverIdToUNIDriverType(AuxDriver) of
+    dauAccess, dauSQLite:;
+  else
+    List.Add('Port=<integer>');
+  end;
+  List.Add('');
+  List.Add('Consult to UniDAC documentation about Options and SpecificOptions options.');
+end;
+
+function TDAEUniDACDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  Result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAEUniDACDriver.GetAvailableDriverOptionsEx(
+  AuxDriver: string): TDAAvailableDriverOptions;
+begin
+  case UNIDriverIdToUNIDriverType(AuxDriver) of
+    dauAccess : Result := [doAuxDriver, doDatabaseName, doLogin, doCustom];
+    dauSQLite : Result := [doAuxDriver, doDatabaseName, doCustom];
+  else
+    Result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+  end;
+end;
+
+function TDAEUniDACDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEUniDACConnection;
+end;
+
+function TDAEUniDACDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  case UNIDriverIdToUNIDriverType(AuxDriver) of
+    dauAccess: Result := Access_DriverType;
+//    dauAdvantage,
+//    dauASE,
+    dauIBMDB2:    Result:= DB2_DriverType;
+    dauInterBase: Result := IB_DriverType;
+    dauMySQL:     Result := MySQL_DriverType;
+    dauOracle:    Result := Oracle_DriverType;
+    dauPostgreSQL: Result := PostgreSQL_DriverType;
+    dauSQLite:    Result:= SQLite_DriverType;
+    dauMSSQL: Result := MSSQL_DriverType;
+  else
+    Result:= inherited GetDefaultConnectionType(AuxDriver);
+  end;
+end;
+
+function TDAEUniDACDriver.GetDescription: string;
+begin
+  result := 'Devart''s UniDAC'{$IFDEF DataAbstract_SchemaModelerOnly} + SchemaModelerOnly{$ENDIF};
+end;
+
+function TDAEUniDACDriver.GetDriverID: string;
+begin
+  Result := 'UniDAC';
+end;
+
+function TDAEUniDACDriver.GetProviderDefaultCustomParameters(
+  Provider: string): string;
+begin
+  Result := '';
+  case UNIDriverIdToUNIDriverType(Provider) of
+    dauMySQL: Result := MYSQL_GetDefaultCustomParameters;
+    dauMSSQL: Result := 'Schemas=1;Integrated Security=SSPI';
+  end;
+end;
+
+procedure TDAEUniDACDriver.OnSDACTrace(Sender: TObject; Text: string;
+  Flag: TDATraceFlag);
+begin
+  if Assigned(fTraceCallback) then fTraceCallback(Sender, Text, integer(Flag));
+end;
+
+{ TDAEUniDACConnection }
+
+function TDAEUniDACConnection.CombineSchemaWithName(aSchema,
+  aName: string): string;
+begin
+  if not isSchemaSupported then begin
+    Result := aName
+  end
+  else begin
+    if (fDriverType = dauMSSQL) and (not fMSSQLSchemaEnabled) then begin
+      if aSchema = 'dbo' then
+        Result := aName
+      else
+        Result := aSchema + '.' + aName;
+    end
+   else
+     Result := aSchema + '.' + aName;
+  end;
+end;
+
+procedure TDAEUniDACConnection.Commit;
+begin
+  Self.DoCommitTransaction;
+end;
+
+function TDAEUniDACConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fConnection := TUniConnection.Create(nil);
+  fConnection.LoginPrompt := FALSE;
+
+  result := fConnection;
+end;
+
+procedure TDAEUniDACConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser;
+  aConnectionObject: TCustomConnection);
+var
+  i: integer;
+  sName, lcName, sValue: string;
+begin
+  FSchemaSupported := -1;
+  FMySQLVersion := -1;
+  fMSSQLSchemaEnabled := True;
+  inherited;
+  with aConnStrParser do begin
+    fDriverName := AuxDriver;
+    fDriverType := UNIDriverIdToUNIDriverType(AuxDriver);
+
+    fConnection.ProviderName := AuxDriver;
+    if (Self.UserID <> '') then
+      fConnection.Username := Self.UserID
+    else
+      fConnection.Username := UserID;
+
+    if (Self.Password <> '') then
+      fConnection.Password := Self.Password
+    else
+      fConnection.Password := Password;
+    if Server <> '' then fConnection.Server := Server;
+    if Database <> '' then fConnection.Database := Database;
+
+    for i := 0 to AuxParamsCount - 1 do begin
+      sName := AuxParamNames[i];
+      if sName = '' then Continue;
+      lcName := AnsiLowerCase(sName);
+      sValue := AuxParams[AuxParamNames[i]];
+      if AnsiSameText(sName, 'port') then begin
+        if StrToIntDef(sValue, -1) <> -1 then fConnection.Port := StrToInt(sValue);
+      end
+      else if Pos('options.', lcName) = 1 then begin
+        sName := Copy(sName,9, Length(sName)-8);
+        SetPropValue(fConnection.Options, sName, sValue);
+      end
+      else if Pos('specificoptions.', lcName) = 1 then begin
+        sName := Copy(sName,17, Length(sName)- 16);
+        fConnection.SpecificOptions.Values[sValue]:=sName;
+      end
+      else if lcName = 'schemas' then begin
+        fMSSQLSchemaEnabled := AuxParams['Schemas'] = '1'
+      end
+      else if (fDriverType = dauMSSQL) and (lcname = 'integrated security') and (AnsiSameText(sValue, 'SSPI')) then begin
+        fConnection.SpecificOptions.Values['Authentication']:='auWindows';
+      end;
+    end;
+  end;
+end;
+
+function TDAEUniDACConnection.DoBeginTransaction: integer;
+begin
+  fConnection.StartTransaction;
+  result := 0;
+end;
+
+procedure TDAEUniDACConnection.DoCommitTransaction;
+begin
+  fConnection.Commit;
+end;
+
+procedure TDAEUniDACConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited;
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: MSSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, fMSSQLSchemaEnabled);
+    dauInterBase: IB_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    dauMySQL: MYSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, fConnection.Database,GetMySQLVersion);
+    dauPostgreSQL:   Postgres_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+    dauOracle: Oracle_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    dauSQLite: SQLite_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+  else
+  {$ENDIF}
+    native_DoGetForeignKeys(ForeignKeys);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+function TDAEUniDACConnection.DoGetInTransaction: boolean;
+begin
+  Result := fConnection.InTransaction;
+end;
+
+function TDAEUniDACConnection.DoGetLastAutoIncValue(
+  const GeneratorName: string): Variant;
+begin
+  Result := -1;
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: Result := MSSQL_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dauInterBase: Result := IB_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dauMySQL: Result := MySQL_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dauOracle: Result := Oracle_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dauPostgreSQL: Result := Postgres_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+  else
+  end;
+  {$ENDIF}
+end;
+
+procedure TDAEUniDACConnection.native_DoGetForeignKeys(
+  ForeignKeys: TDADriverForeignKeyCollection);
+begin
+// not implemented yet
+end;
+
+procedure TDAEUniDACConnection.native_DoGetNames(AList: IROStrings;
+  AObjectType: TDAObjecttype);
+
+  procedure _GetNames(aRestriction: string);
+  var
+    FMetadata: TUniMetaData;
+    fld, fld2: TField;
+  begin
+    FMetadata := TUniMetaData(fConnection.CreateMetaData);
+    try
+      FMetadata.MetaDataKind := 'tables';
+      if (fDriverType = dauMSSQL) and not fMSSQLSchemaEnabled then
+        FMetadata.Restrictions.Values['TABLE_SCHEMA'] := 'dbo';
+      FMetadata.Restrictions.Values['TABLE_TYPE'] := aRestriction;
+      FMetadata.Open;
+      fld := FMetadata.FindField('TABLE_SCHEMA');
+      fld2 := FMetadata.FieldByName('TABLE_NAME');
+      while not FMetadata.Eof do begin
+        if isSchemaSupported and (fld <> nil) and (fld.AsString <> '') then
+          AList.Add(CombineSchemaWithName(fld.AsString,fld2.AsString))
+        else
+          AList.Add(fld2.AsString);
+        FMetadata.Next;
+      end;
+    finally
+      FMetadata.Free;
+    end;
+  end;
+
+begin
+  case AObjectType of
+    dotTable:     _GetNames('TABLE');
+    dotView:      _GetNames('VIEW');
+    dotProcedure: fConnection.GetStoredProcNames(AList.Strings);
+  end;
+end;
+
+procedure TDAEUniDACConnection.native_DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+var
+  FMetadata: TUniMetaData;
+  i: integer;
+  lSchemaName,lTableName: string;
+  lPK: string;
+  fld: TDAField;
+begin
+  inherited DoGetTableFields(aTableName,Fields);
+
+  FMetadata := TUniMetaData(fConnection.CreateMetaData);
+  try
+    FMetadata.MetaDataKind := 'constraints';
+    i := pos('.', aTableName);
+    if isSchemaSupported and (i <> 0) then begin
+      lSchemaName := Copy(aTableName, 1, i-1);
+      lTableName := Copy(aTableName, i+1, Length(aTableName)-i);
+    end
+    else begin
+      lSchemaName := '';
+      lTableName := aTableName;
+    end;
+
+    if (fDriverType = dauMSSQL) and not fMSSQLSchemaEnabled then
+      FMetadata.Restrictions.Values['TABLE_SCHEMA'] := 'dbo'
+    else
+      if lSchemaName <> '' then
+        FMetadata.Restrictions.Values['TABLE_SCHEMA'] := lSchemaName;
+    FMetadata.Restrictions.Values['TABLE_NAME'] := lTableName;
+    FMetadata.Restrictions.Values['CONSTRAINT_TYPE'] := 'PRIMARY KEY';
+    FMetadata.Open;
+    if not FMetadata.Eof then lPk := FMetadata.FieldByName('CONSTRAINT_NAME').AsString;
+    if lpk <> '' then begin
+      FMetadata.Close;
+      FMetadata.MetaDataKind := 'IndexColumns';
+      FMetadata.Restrictions.Values['INDEX_NAME'] := lPK;
+      FMetadata.Open;
+      While not FMetadata.Eof do begin
+        fld:= Fields.FindField(FMetadata.FieldByName('COLUMN_NAME').AsString);
+        if fld <> nil then begin
+          fld.InPrimaryKey := True;
+          fld.Required := True;
+        end;
+        FMetadata.Next;
+      end;
+    end;
+  finally
+    FMetadata.Free;
+  end;
+end;
+
+procedure TDAEUniDACConnection.native_GetGeneratorNames(AList: IROStrings);
+var
+  FMetadata: TUniMetaData;
+  s: string;
+begin
+  // nowadays, IB is only supported
+  FMetadata := TUniMetaData(fConnection.CreateMetaData);
+  try
+    FMetadata.MetaDataKind := 'generators';
+    FMetadata.Open;
+    while not FMetadata.Eof do begin
+      s:= FMetadata.Fields[0].AsString;
+      AList.Add(s);
+      FMetadata.Next;
+    end;
+  finally
+    FMetadata.Free;
+  end;
+end;
+
+procedure TDAEUniDACConnection.DoGetStoredProcedureNames(out List: IROStrings);
+begin
+  inherited;
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, fMSSQLSchemaEnabled);
+    dauInterBase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    dauMYSQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, fConnection.Database,GetMySQLVersion);
+    dauSQLite: SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    dauPostgreSQL: Postgres_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    dauOracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure);
+  else
+  {$ENDIF}
+    native_DoGetNames(List, dotProcedure);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+procedure TDAEUniDACConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  inherited DoGetStoredProcedureParams(aStoredProcedureName,Params);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMySQL:   MYSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params, fConnection.Database);
+    dauOracle:  Oracle_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+    dauPostgreSQL: Postgres_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+    dauMSSQL:   MSSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+  else
+  end;
+  {$ENDIF}
+end;
+
+procedure TDAEUniDACConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    dauInterBase: IB_GetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    dauMySQL: MYSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),GetDatasetClass.Create(Self),Fields, fConnection.Database,GetMySQLVersion);
+    dauOracle: Oracle_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    dauPostgreSQL: Postgres_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+  else
+  {$ENDIF}
+    native_DoGetTableFields(aTableName, Fields);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+procedure TDAEUniDACConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited;
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, fMSSQLSchemaEnabled);
+    dauInterBase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotTable);
+    dauMYSQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, fConnection.Database,GetMySQLVersion);
+    dauSQLite: SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotTable);
+    dauPostgreSQL: Postgres_DoGetNames(GetDatasetClass.Create(Self), List, dotTable);
+    dauOracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotTable);
+  else
+  {$ENDIF}
+    native_DoGetNames(List, dotTable);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+procedure TDAEUniDACConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited;
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, fMSSQLSchemaEnabled);
+    dauInterBase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotView);
+    dauMYSQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, fConnection.Database,GetMySQLVersion);
+    dauSQLite: SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotView);
+    dauPostgreSQL: Postgres_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+    dauOracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+  else
+  {$ENDIF}
+    native_DoGetNames(List, dotView);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+procedure TDAEUniDACConnection.DoRollbackTransaction;
+begin
+  fConnection.Rollback;
+end;
+
+
+function TDAEUniDACConnection.GetCharset: string;
+begin
+  Result := fConnection.SpecificOptions.Values['Charset'];
+end;
+
+function TDAEUniDACConnection.GetDatabaseNames: IROStrings;
+begin
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: Result := MSSQL_GetDatabaseNames(Self);
+    dauMySQL: Result := MYSQL_GetDatabaseNames(Self);
+    dauPostgreSQL: Result := Postgres_GetDatabaseNames(Self);
+  else
+  {$ENDIF}
+    Result := NewROStrings;
+    fConnection.GetDatabaseNames(Result.Strings);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+function TDAEUniDACConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  Result := TDAEUniDACQuery;
+end;
+
+function TDAEUniDACConnection.GetFileExtensions: IROStrings;
+begin
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauInterBase: Result := IB_GetFileExtensions;
+    dauSQLite: Result := SQLite_GetFileExtensions;
+    dauAccess: Result := MSACCESS_GetFileExtensions;
+  else
+  {$ENDIF}
+    Result := NewROStrings;
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+function TDAEUniDACConnection.GetGeneratorNames: IROStrings;
+begin
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauInterBase: Result:= IB_GetGeneratorNames(GetDatasetClass.Create(Self));
+  else
+  {$ENDIF}
+    Result := NewROStrings;
+    native_GetGeneratorNames(Result);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+function TDAEUniDACConnection.GetMySQLVersion: integer;
+begin
+  if FMySQLVersion = -1 then FMySQLVersion := MYSQL_GetVersion(GetDatasetClass.Create(Self));
+  Result := FMySQLVersion;
+end;
+
+function TDAEUniDACConnection.GetNextAutoinc(
+  const GeneratorName: string): integer;
+begin
+  Result := GetNextAutoinc2(GeneratorName);
+end;
+
+function TDAEUniDACConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  Result := -1;
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauInterBase: Result := IB_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+    dauOracle: Result := Oracle_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+    dauPostgreSQL: Result := Postgres_GetNextAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+  end;
+  {$ENDIF}
+end;
+
+function TDAEUniDACConnection.GetQuoteChars: TDAQuoteCharArray;
+begin
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: Result := MSSQL_GetQuoteChars;
+    dauOracle: Result:= Oracle_GetQuoteChars;
+  else
+  {$ENDIF}
+    Result := inherited GetQuoteChars;
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+function TDAEUniDACConnection.GetRole: string;
+begin
+  Result := fConnection.SpecificOptions.Values['Role'];
+end;
+
+function TDAEUniDACConnection.GetSPSelectSyntax(HasArguments: Boolean): string;
+begin
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  case fDriverType of
+    dauMSSQL: Result := MSSQL_GetSPSelectSyntax(HasArguments);
+    dauInterBase: Result := IB_GetSPSelectSyntax(HasArguments);
+    dauOracle: Result := Oracle_GetSPSelectSyntax(HasArguments);
+    dauPostgreSQL: Result := Postgres_GetSPSelectSyntax(HasArguments);
+  else
+  {$ENDIF}
+    Result := inherited GetSPSelectSyntax(HasArguments);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  end;
+  {$ENDIF}
+end;
+
+function TDAEUniDACConnection.GetSQLDialect: integer;
+begin
+  Result := StrToIntDef(fConnection.SpecificOptions.Values['SQLDialect'],3);
+end;
+
+function TDAEUniDACConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  Result := TDAEUniDACStoredProcedure;
+end;
+
+function TDAEUniDACConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result:= inherited IdentifierNeedsQuoting(iIdentifier);
+  {$IFNDEF UNIDAC_NATIVE_ONLY}
+  if not result then
+    case fDriverType of
+      dauMSSQL: Result := MSSQL_IdentifierNeedsQuoting(iIdentifier);
+      dauInterBase: Result := IB_IdentifierNeedsQuoting(iIdentifier, GetSQLDialect);
+      dauMySQL: Result := MYSQL_IdentifierNeedsQuoting(iIdentifier);
+      dauORACLE: Result := Oracle_IdentifierNeedsQuoting(iIdentifier);
+      dauPostgreSQL: Result:= Postgres_IdentifierNeedsQuoting(iIdentifier);
+      dauIBMDB2: Result := DB2_IdentifierNeedsQuoting(iIdentifier);
+      dauASE,dauAdvantage: Result := Sybase_IdentifierNeedsQuoting(iIdentifier);
+    else
+
+    end;
+  {$ENDIF}
+end;
+
+function TDAEUniDACConnection.isSchemaSupported: Boolean;
+var
+  Fld: TField;
+begin
+  if FSchemaSupported = -1 then begin
+    With fConnection.CreateMetaData do try
+      MetaDataKind := 'tables';
+      Restrictions.Values['TABLE_NAME']:='___';
+      Open;
+      Fld := FindField('TABLE_SCHEMA');
+      Result := Assigned(Fld) and (Fld.Size <> 0);
+      FSchemaSupported := ord(Result);
+    finally
+      Free;
+    end;
+  end
+  else
+    Result := FSchemaSupported = 1;
+end;
+
+function TDAEUniDACConnection.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  Result := E_NOINTERFACE;
+  if IsEqualGUID(IID, IDAInterbaseConnection) then begin
+    if fDriverType <> dauInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAIBTransactionAccess) then begin
+    if fDriverType <> dauInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAIBConnectionProperties) then begin
+    if fDriverType <> dauInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAOracleConnection) then begin
+    if fDriverType <> dauOracle then Exit;
+  end else if IsEqualGUID(IID, IDASQLiteConnection) then begin
+    if fDriverType <> dauSQLite then Exit;
+  end else if IsEqualGUID(IID, IDADB2Connection) then begin
+    if fDriverType <> dauIBMDB2 then Exit;
+  end else if IsEqualGUID(IID, IDASybaseConnection) then begin
+    if not (fDriverType in [dauAdvantage, dauASE]) then Exit;
+  end else if IsEqualGUID(IID, IDAPostgresConnection) then begin
+    if fDriverType <> dauPostgreSQL then Exit;
+  end else if IsEqualGUID(IID, IDAMySQLConnection) then begin
+    if fDriverType <> dauMySQL then Exit;
+  end else if IsEqualGUID(IID, IDACanQueryDatabaseNames) then begin
+    if (fDriverType in [dauInterBase, dauSQLite, dauAccess]) then Exit;
+  end else if IsEqualGUID(IID, IDAFileBasedDatabase) then begin
+    if not (fDriverType in [dauInterBase, dauSQLite, dauAccess]) then Exit;
+  end else if IsEqualGUID(IID, IDAUseGenerators) or IsEqualGUID(IID, IDAUseGenerators2) then begin
+    if not (fDriverType in [dauInterBase, dauOracle, dauPostgreSQL]) then Exit;
+  end else if IsEqualGUID(IID, IDACanQueryGeneratorsNames) then begin
+    if not (fDriverType in [dauInterBase]) then Exit;
+  end
+
+  //  else if IsEqualGUID(IID, IDAConnectionModelling) then
+  //  else if IsEqualGUID(IID, IDADirectoryBasedDatabase) then
+  ;
+  Result := inherited QueryInterface(IID, Obj);
+end;
+
+procedure TDAEUniDACConnection.Rollback;
+begin
+  Self.DoRollbackTransaction;
+end;
+
+procedure TDAEUniDACConnection.SetCharset(const Value: string);
+begin
+  fConnection.SpecificOptions.Values['Charset'] := Value;
+end;
+
+procedure TDAEUniDACConnection.SetRole(const Value: string);
+begin
+  fConnection.SpecificOptions.Values['Role'] := Value;
+end;
+
+procedure TDAEUniDACConnection.SetSQLDialect(Value: integer);
+begin
+  fConnection.SpecificOptions.Values['SQLDialect'] := IntToStr(Value);
+end;
+
+{ TDAEUniDACQuery }
+
+procedure TDAEUniDACQuery.ClearParams;
+begin
+  inherited;
+  TUniQuery(Dataset).Params.Clear;
+end;
+
+function TDAEUniDACQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TUniQuery.Create(nil);
+  TUniQuery(result).Unidirectional := True;
+  TUniQuery(result).ReadOnly := TRUE;
+  TUniQuery(result).Connection := TDAEUniDACConnection(aConnection).fConnection;
+end;
+
+function TDAEUniDACQuery.DoExecute: integer;
+begin
+  TUniQuery(Dataset).Execute;
+  result := TUniQuery(Dataset).RowsAffected;
+end;
+
+function TDAEUniDACQuery.DoGetSQL: string;
+begin
+  result := TUniQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAEUniDACQuery.DoPrepare(Value: boolean);
+var
+  i: integer;
+  par: TUniParam;
+begin
+  if Value and not TUniQuery(Dataset).Prepared and (TUniQuery(Dataset).ParamCount<>0) then begin
+    for I := 0 to GetParams.Count - 1 do begin
+      par:=TUniQuery(Dataset).ParamByName(GetParams[i].Name);
+      par.DataType:= DATypeToVCLType(GetParams[i].DataType);
+      if par.DataType = ftAutoInc then par.DataType:= ftInteger;
+    end;
+  end;
+  TUniQuery(Dataset).Prepared := Value;
+end;
+
+procedure TDAEUniDACQuery.DoSetSQL(const Value: string);
+begin
+  TUniQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAEUniDACQuery.GetParamValues(AParams: TDAParamCollection);
+var
+  I: Integer;
+  lParam: TUniParam;
+begin
+  for i := 0 to TUniQuery(DataSet).Params.Count - 1 do begin
+    lParam:=TUniQuery(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      Aparams.ParamByName(lParam.Name).Value := lParam.Value;
+  end;
+end;
+
+procedure TDAEUniDACQuery.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TUniQuery(Dataset).Params, true);
+end;
+
+{ TDAEUniDACStoredProcedure }
+
+function TDAEUniDACStoredProcedure.CreateDataset(
+  aConnection: TDAEConnection): TDataset;
+begin
+  result := TUniStoredProc.Create(nil);
+  TUniStoredProc(result).Connection := TDAEUniDACConnection(aConnection).fConnection;
+end;
+
+function TDAEUniDACStoredProcedure.DoExecute: integer;
+begin
+  with TUniStoredProc(Dataset) do begin
+    ExecProc;
+    result := RowsAffected;
+  end;
+end;
+
+function TDAEUniDACStoredProcedure.Execute: integer;
+var
+  i: integer;
+  _params: TDAParamCollection;
+  lParam: uDAInterfaces.TDAParam;
+begin
+  _params := GetParams;
+
+  with TUniStoredProc(Dataset) do begin
+    for i := 0 to (Params.Count - 1) do
+      if (Params[i].ParamType in [ptInput, ptInputOutput]) then begin
+        lParam := _params.ParamByName(Params[i].Name);
+        if (Params[i].DataType in [ftMemo, ftBlob, ftGraphic]) and VarIsArray(lParam.Value)then
+          Params[i].Value := VariantToAnsiString(lParam.Value)
+        else
+          Params[i].Value := lParam.Value;
+      end;
+
+    result := DoExecute;
+
+    for i := 0 to (_params.Count-1) do
+      if (_params[i].ParamType in [daptOutput, daptInputOutput, daptResult])
+        then _params[i].Value := params.ParamByName(_params[i].Name).Value;
+  end;
+end;
+
+procedure TDAEUniDACStoredProcedure.GetParamValues(AParams: TDAParamCollection);
+var
+  i: Integer;
+  lParam: TUniParam;
+begin
+  for i := 0 to TUniStoredProc(DataSet).Params.Count - 1 do begin
+    lParam:=TUniStoredProc(DataSet).Params[i];
+    if (lParam.ParamType in [ptOutput, ptInputOutput, ptResult]) then
+      Aparams.ParamByName(lParam.Name).Value := lParam.Value;
+    end;
+end;
+
+function TDAEUniDACStoredProcedure.GetStoredProcedureName: string;
+begin
+  result := TUniStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAEUniDACStoredProcedure.RefreshParams;
+begin
+  TUniStoredProc(Dataset).PrepareSQL;
+  RefreshParamsStd(TUniStoredProc(Dataset).Params);
+end;
+
+procedure TDAEUniDACStoredProcedure.SetParamValues(AParams: TDAParamCollection);
+begin
+  WriteCrLabsParamValues(AParams, TUniStoredProc(Dataset).Params);
+end;
+
+procedure TDAEUniDACStoredProcedure.SetStoredProcedureName(const Name: string);
+begin
+  TUniStoredProc(Dataset).StoredProcName := Name;
+end;
+
+{$IFNDEF DARWIN}
+exports GetDriverObject name func_GetDriverObject;
+{$ENDIF}
+
+initialization
+{$IFDEF FPC}
+  {$I DataAbstract_UniDACDriver_Glyphs.lrs}
+{$ENDIF}
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAZeosDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAZeosDriver.pas
new file mode 100644
index 0000000..90798e5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Drivers/uDAZeosDriver.pas	
@@ -0,0 +1,1267 @@
+unit uDAZeosDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library                                     }
+{                                                                            }
+{ compiler: Delphi 6 and up , FPC                                            }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, DB,
+  ZConnection, ZSqlMetadata,ZDbcIntfs, ZClasses,
+  uDAInterfaces,
+  uDAADOInterfaces,
+  uDAIBInterfaces,
+  uDASQLiteInterfaces,
+  uDAOracleInterfaces,
+  uDAMySQLInterfaces,
+  uDADB2Interfaces,
+  uDASybaseInterfaces,
+  uDAPostgresInterfaces,
+  uROClasses, uDAEngine, uDAUtils;
+
+// declare for Zeos7 under FPC
+{.$DEFINE ZEOS7}
+
+
+{$IFNDEF FPC}
+// it produces "Fatal: Internal error 200501152" under FPC
+{$IF ZEOS_VERSION > '7'}{$DEFINE ZEOS7}{$IFEND}
+{$ENDIF}
+
+{$IFNDEF ZEOS7}
+type
+  IZDatabaseInfo = IZDatabaseMetadata;
+{$ENDIF}
+
+type
+  TDAZEOSDriverType = (
+    dazUnknown,
+    dazADO,
+    dazASA,
+    dazIBMDB2,
+    dazInterBase,
+    dazMSSQL,
+    dazMySQL,
+    dazOracle,
+    dazPostgreSQL,
+    dazSQLite,
+    dazSybase);
+
+const
+  ZEOS_ADO                    = 'ado';
+  ZEOS_ASA                    = 'asa';
+  ZEOS_IBMDB2                 = 'db2';
+  ZEOS_Interbase              = 'interbase';
+  ZEOS_Firebird               = 'firebird';
+  ZEOS_MSSQL                  = 'mssql';
+  ZEOS_MySQL                  = 'mysql';
+  ZEOS_ORACLE                 = 'oracle';
+  ZEOS_PostgreSQL             = 'postgresql';
+  ZEOS_SQLite                 = 'sqlite';
+  ZEOS_SYBASE                 = 'sybase';
+
+type
+  { TDAZeosDriver }
+  TDAZeosDriver = class(TDADriverReference)
+  end;
+
+  { TDAESampleDriver }
+  TDAESampleDriver = class(TDAEDriver, IDADriver40)
+    //  TDAESampleDriver = class(TDAIBDriver, IDADriver40)
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+    //procedure CustomizeConnectionObject(aConnection: TDAEConnection); override;
+    //procedure DoSetTraceOptions(TraceActive: boolean; TraceFlags: TDATraceOptions; Callback: TDALogTraceEvent); override;
+
+    { IDADriver }
+    function GetDriverID: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDescription: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function GetMajVersion: byte; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function GetMinVersion: byte; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetAuxDrivers(out List: IROStrings); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptionsEx(AuxDriver: string): TDAAvailableDriverOptions; override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // procedure Initialize; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // procedure Finalize; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function GetDefaultCustomParameters: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDADriver40 }
+    function GetProviderDefaultCustomParameters(Provider: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  TZEOSConnection = class(TDAConnectionWrapper)
+  private
+    fConnection: TZConnection;
+    fMetaData: TZSQLMetaData;
+  protected
+    function GetConnected: Boolean; override;
+    procedure SetConnected(Value: boolean); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property Connection: TZConnection read fConnection write fConnection;
+  end;
+
+  { TDAESampleConnection }
+  TDAESampleConnection = class(TDAEConnection, IDAConnection,
+      IDAADOConnection,
+      IDAInterbaseConnection,           //IDAIBTransactionAccess, IDAIBConnectionProperties,
+      IDAOracleConnection,
+      IDAMySQLConnection,
+      IDASQLiteConnection,
+      IDADB2Connection,
+      IDASybaseConnection,
+      IDAPostgresConnection,
+      // IDAConnectionModelling,
+      IDACanQueryDatabaseNames,
+      IDAFileBasedDatabase,
+      // IDADirectoryBasedDatabase,
+      IDAUseGenerators,
+      IDAUseGenerators2,
+      IDACanQueryGeneratorsNames,
+      IDATestableObject)
+  private
+    fNativeConnection: TZEOSConnection;
+    fDriverType: TDAZEOSDriverType;
+    fDriverName: string;
+    fADOProviderName: string;
+    fADOProviderType: TDAOleDBProviderType;
+    fMSSQLSchemaEnabled: Boolean;
+    FMySQLVersion: integer;
+    function GetMySQLVersion: integer;
+    procedure DoGetNames(AList: IROStrings; AObjectType: TDAObjecttype);
+    function ZEOS_GetMetaData: IZDatabaseMetadata;
+    function ZEOS_GetDataBaseInfo: IZDatabaseInfo;
+    procedure FixWideStringBug(AFields: TDAFieldCollection);
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+
+    function CreateCustomConnection: TCustomConnection; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+    function GetDatasetClass: TDAEDatasetClass; override;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; override;
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+
+    // transaction support
+    function DoBeginTransaction: integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: boolean; override;
+
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    procedure DoGetQueryFields(const aSQL: string; aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection); override;
+    //procedure DoGetViewFields(const aViewName: string; out Fields: TDAFieldCollection); override;
+
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+
+    { IDATestableObject }
+    // procedure Test; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAConnection }
+
+    function GetSPSelectSyntax(HasArguments: Boolean): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetQuoteChars: TDAQuoteCharArray; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function IdentifierIsQuoted(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function QuoteIdentifierIfNeeded(const iIdentifier: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function QuoteIdentifier(const iIdentifier: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function QuoteFieldNameIfNeeded(const aTableName, aFieldName: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function QuoteFieldName(const aTableName, aFieldName: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // function NewCommand(const Text: string; CommandType: TDASQLStatementType; const aCommandName: string = ''): IDASQLCommand; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function NewDataset(const SQL: string; const aDatasetName: string = ''): IDADataset; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // function isAlive: Boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function GetQueryBuilder: TDAQueryBuilder; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAADOConnection }
+    function GetProviderName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetProviderType: TDAOleDBProviderType; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetCommandTimeout: Integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetCommandTimeout(const Value: Integer); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAInterbaseConnection }
+    // nothing
+
+    { IDAIBTransactionAccess }
+    //function GetTransaction: TObject; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    //procedure CommitRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    //procedure RollbackRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAIBConnectionProperties }
+    function GetRole: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRole(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSQLDialect: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQLDialect(Value: integer); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetCharset: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetCharset(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Commit; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // procedure CommitRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Rollback; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // procedure RollbackRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDAOracleConnection }
+    // nothing
+
+    { IDAConnectionModelling }
+    // function FieldToDeclaration(aField: TDAField): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function BuildCreateTableSQL(aDataSet: TDADataSet; const aOverrideName: string = ''): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // procedure CreateTable(aDataSet: TDADataSet; const aOverrideName: string = ''); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDACanQueryDatabaseNames }
+    function GetDatabaseNames: IROStrings;
+
+    { IDAFileBasedDatabase }
+    function GetFileExtensions: IROStrings;
+
+    { IDADirectoryBasedDatabase }
+    // nothing
+
+    { IDAUseGenerators }
+    function GetNextAutoinc(const GeneratorName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    { IDAUseGenerators2 }
+    function GetNextAutoinc2(const GeneratorName: string): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDACanQueryGeneratorsNames }
+    function GetGeneratorNames: IROStrings;
+
+  public
+    constructor Create(aDriver: TDAEDriver; aName: string = ''); override;
+  end;
+
+  { TDAESampleQuery }
+  TDAESampleQuery = class(TDAEDataset , IDAMustSetParams)
+  protected
+    // procedure PrepareSQLStatement; override;
+    procedure ClearParams; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    procedure DoPrepare(Value: boolean); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoExecute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoSetSQL(const Value: string); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoGetSQL: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function intVCLTypeToDAType(aFieldType: TFieldType): TDADataType;override;
+
+    { IDASQLCommand }
+    // procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function Execute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function DoGetRecordCount: integer; override;
+    // function DoGetActive: boolean; override;
+    // procedure DoSetActive(Value: boolean); override;
+    // function DoGetBOF: boolean; override;
+    // function DoGetEOF: boolean; override;
+    // procedure DoNext; override;
+    // function DoLocate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; override;
+
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  { TDAESampleStoredProcedure }
+  TDAESampleStoredProcedure = class(TDAEStoredProcedure, IDAMustSetParams)
+  protected
+    // Internal
+    // function DoGetStoredProcedureName: string; override;
+    // procedure DoSetStoredProcedureName(const Name: string); override;
+    procedure DoPrepare(Value: boolean); override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // IDAStoredProcedure
+    function GetStoredProcedureName: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetStoredProcedureName(const Name: string); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // procedure PrepareSQLStatement; override;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; override;
+    function DoExecute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoSetSQL(const Value: string); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoGetSQL: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function intVCLTypeToDAType(aFieldType: TFieldType): TDADataType;override;
+
+    { IDASQLCommand }
+    // procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function Execute: integer; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // function DoGetRecordCount: integer; override;
+    // function DoGetActive: boolean; override;
+    // procedure DoSetActive(Value: boolean); override;
+    // function DoGetBOF: boolean; override;
+    // function DoGetEOF: boolean; override;
+    // procedure DoNext; override;
+    // function DoLocate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; override;
+
+    // IDAMustSetParams
+    procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+procedure Register;
+
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  Variants, Types, SysUtils,
+  uDADriverManager, uDARes, uDASQL92Interfaces,
+  ZDataset, ZStoredProcedure;
+
+{$IFNDEF FPC}
+  {$R DataAbstract_ZeosDriver_Glyphs.res}
+{$ENDIF}
+
+var
+  _driver                     : TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAZeosDriver]);
+end;
+
+function GetDriverObject: IDADriver;
+begin
+  if (_driver = nil) then _driver := TDAESampleDriver.Create(nil);
+  result := _driver;
+end;
+
+function ZEOSDriverIdToZEOSDriverType(aAuxDriver: string): TDAZEOSDriverType;
+begin
+  aAuxDriver := LowerCase(aAuxDriver);
+  if aAuxDriver = '' then Result := dazUnknown
+  else if Pos(ZEOS_ADO, aAuxDriver) = 1 then Result := dazADO
+  else if Pos(ZEOS_ASA, aAuxDriver) = 1 then Result := dazASA
+  else if Pos(ZEOS_IBMDB2, aAuxDriver) = 1 then Result := dazIBMDB2
+  else if Pos(ZEOS_Interbase, aAuxDriver) = 1 then Result := dazInterBase
+  else if Pos(ZEOS_Firebird, aAuxDriver) = 1 then Result := dazInterBase
+  else if Pos(ZEOS_MSSQL, aAuxDriver) = 1 then Result := dazMSSQL
+  else if Pos(ZEOS_MySQL, aAuxDriver) = 1 then Result := dazMySQL
+  else if Pos(ZEOS_ORACLE, aAuxDriver) = 1 then Result := dazOracle
+  else if Pos(ZEOS_PostgreSQL, aAuxDriver) = 1 then Result := dazPostgreSQL
+  else if Pos(ZEOS_SQLite, aAuxDriver) = 1 then Result := dazSQLite
+  else if Pos(ZEOS_SYBASE, aAuxDriver) = 1 then Result := dazSybase
+  else Result := dazUnknown;
+end;
+
+{ TDAESampleConnection }
+
+procedure TDAESampleConnection.DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+var
+  i                           : Integer;
+  sName, sValue               : string;
+begin
+  FMySQLVersion := -1;
+  inherited;
+  with aConnStrParser do begin
+    fDriverName := AuxDriver;
+    fDriverType := ZEOSDriverIdToZEOSDriverType(AuxDriver);
+    fADOProviderName := AuxParams['Provider'];
+    FADOProviderType := OleDBDriverIdToOleDBProviderType(FADOProviderName);
+
+    fNativeConnection.fConnection.Protocol := AuxDriver;
+    if (Self.UserID <> '') then
+      fNativeConnection.fConnection.User := Self.UserID
+    else
+      fNativeConnection.fConnection.User := UserID;
+
+    if (Self.Password <> '') then
+      fNativeConnection.fConnection.Password := Self.Password
+    else
+      fNativeConnection.fConnection.Password := Password;
+    if Server <> '' then fNativeConnection.fConnection.HostName := Server;
+    if Database <> '' then begin
+      fNativeConnection.fConnection.Database := Database;
+      if fDriverType <> dazSQLite then   
+         fNativeConnection.fConnection.Catalog := Database;
+    end;
+
+    for i := 0 to AuxParamsCount - 1 do begin
+      sName := AuxParamNames[i];
+      if sName = '' then Continue;
+      sValue := AuxParams[AuxParamNames[i]];
+      if AnsiSameText(sName, 'role') then begin
+        if fDriverType = dazInterBase then sName := 'rolename';
+      end else if AnsiSameText(sName, 'charset') then begin
+        if fDriverType = dazInterBase then sName := 'codepage';
+      end else if AnsiSameText(sName, 'port') then begin
+        if StrToIntDef(sValue, -1) <> -1 then fNativeConnection.fConnection.Port := StrToInt(sValue);
+      end else begin
+        if sName[1] = '@' then sName := Pchar(sName) + 1;
+      end;
+      fNativeConnection.fConnection.Properties.Values[sName] := sValue;
+    end;
+
+    if fDriverType = dazADO then begin
+      if fADOProviderName = '' then
+        raise EDADriverException.Create('No proviver specified for ADO auxdriver');
+
+      fNativeConnection.fConnection.Properties.Values['User ID'] := fNativeConnection.fConnection.User;
+      fNativeConnection.fConnection.Properties.Values['Password'] := fNativeConnection.fConnection.Password;
+      if FADOProviderType = oledb_Jet then begin
+        fNativeConnection.fConnection.Properties.Values['Data Source'] := Database;
+      end else begin
+        if Database <> '' then begin
+          if fADOProviderType = oledb_Postgresql then
+            fNativeConnection.fConnection.Properties.Values['Location'] := Database
+          else
+            fNativeConnection.fConnection.Properties.Values['Initial Catalog'] := Database;
+        end;
+        if Server <> '' then fNativeConnection.fConnection.Properties.Values['Data Source'] := Server;
+        if fADOProviderType <> oledb_Postgresql then fNativeConnection.fConnection.Properties.Values['OLE DB SERVICES'] := '-2';
+      end;
+      fNativeConnection.fConnection.Database := '';
+      for i := 0 to fNativeConnection.fConnection.Properties.Count - 1 do begin
+        sName:=fNativeConnection.fConnection.Properties.Names[i];
+        sValue:=fNativeConnection.fConnection.Properties.Values[sName];
+        fNativeConnection.fConnection.Database:=fNativeConnection.fConnection.Database + sName+'='+sValue+';'
+      end;
+    end;
+  end;
+end;
+
+function TDAESampleConnection.DoBeginTransaction: integer;
+begin
+  fNativeConnection.fConnection.StartTransaction;
+  Result := 0;
+end;
+
+procedure TDAESampleConnection.DoCommitTransaction;
+begin
+  fNativeConnection.fConnection.Commit;
+end;
+
+function TDAESampleConnection.CreateCustomConnection: TCustomConnection;
+begin
+  fNativeConnection := TZEOSConnection.Create(nil);
+  result := fNativeConnection;
+end;
+
+function TDAESampleConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := TDAESampleQuery;
+end;
+
+function TDAESampleConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := TDAESampleStoredProcedure;
+end;
+
+procedure TDAESampleConnection.DoRollbackTransaction;
+begin
+  fNativeConnection.fConnection.Rollback;
+end;
+
+function TDAESampleConnection.DoGetInTransaction: boolean;
+begin
+  Result := fNativeConnection.fConnection.InTransaction
+end;
+
+function TDAESampleConnection.QueryInterface(const IID: TGUID; out Obj): HResult;
+begin
+  Result := E_NOINTERFACE;
+  if IsEqualGUID(IID, IDAADOConnection) then begin
+    if fDriverType <> dazADO then Exit;
+  end else if IsEqualGUID(IID, IDAInterbaseConnection) then begin
+    if fDriverType <> dazInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAIBTransactionAccess) then begin
+    if fDriverType <> dazInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAIBConnectionProperties) then begin
+    if fDriverType <> dazInterbase then Exit;
+  end else if IsEqualGUID(IID, IDAOracleConnection) then begin
+    if fDriverType <> dazOracle then Exit;
+  end else if IsEqualGUID(IID, IDASQLiteConnection) then begin
+    if fDriverType <> dazSQLite then Exit;
+  end else if IsEqualGUID(IID, IDADB2Connection) then begin
+    if fDriverType <> dazIBMDB2 then Exit;
+  end else if IsEqualGUID(IID, IDASybaseConnection) then begin
+    if not (fDriverType in [dazSybase, dazASA]) then Exit;
+  end else if IsEqualGUID(IID, IDAPostgresConnection) then begin
+    if fDriverType <> dazPostgreSQL then Exit;
+  end else if IsEqualGUID(IID, IDAMySQLConnection) then begin
+    if fDriverType <> dazMySQL then Exit;
+  end else if IsEqualGUID(IID, IDACanQueryDatabaseNames) then begin
+    if (fDriverType in [dazInterBase, dazSQLite]) then Exit;
+  end else if IsEqualGUID(IID, IDAFileBasedDatabase) then begin
+    if not (fDriverType in [dazInterBase, dazSQLite]) then Exit;
+  end else if IsEqualGUID(IID, IDAUseGenerators) or IsEqualGUID(IID, IDAUseGenerators2) then begin
+    if not (fDriverType in [dazInterBase, dazOracle, dazPostgreSQL]) then Exit;
+  end else if IsEqualGUID(IID, IDACanQueryGeneratorsNames) then begin
+    if not (fDriverType in [dazInterBase]) then Exit;
+  end
+
+  //  else if IsEqualGUID(IID, IDAConnectionModelling) then
+  //  else if IsEqualGUID(IID, IDADirectoryBasedDatabase) then
+  ;
+  Result := inherited QueryInterface(IID, Obj);
+end;
+
+constructor TDAESampleConnection.Create(aDriver: TDAEDriver; aName: string);
+begin
+  inherited Create(aDriver, aName);
+  fMSSQLSchemaEnabled := True;
+end;
+
+function TDAESampleConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  case fDriverType of
+    dazInterBase: Result := IB_CreateMacroProcessor;
+    dazMSSQL: Result := MSSQL_CreateMacroProcessor;
+    dazOracle: Result := Oracle_CreateMacroProcessor;
+  else
+    Result := inherited CreateMacroProcessor;
+  end;
+end;
+
+function TDAESampleConnection.GetFileExtensions: IROStrings;
+begin
+  case fDriverType of
+    dazInterBase: Result := IB_GetFileExtensions;
+    dazSQLite: Result := SQLite_GetFileExtensions;
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+function TDAESampleConnection.GetGeneratorNames: IROStrings;
+begin
+  case fDriverType of
+    dazInterBase: Result:= IB_GetGeneratorNames(GetDatasetClass.Create(Self));
+  else
+    Result := NewROStrings;
+  end;
+end;
+
+procedure TDAESampleConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited;
+  case fDriverType of
+    dazMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, fMSSQLSchemaEnabled);
+    dazInterBase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotTable);
+    dazMYSQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, fNativeConnection.fConnection.Catalog,GetMySQLVersion);
+    dazSQLite: SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotTable);
+    dazPostgreSQL: Postgres_DoGetNames(GetDatasetClass.Create(Self), List, dotTable);
+    dazOracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotTable);
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, fMSSQLSchemaEnabled)
+    else begin
+      DoGetNames(List, dotTable);
+    end;
+  end
+end;
+
+procedure TDAESampleConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited;
+  case fDriverType of
+    dazMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, fMSSQLSchemaEnabled);
+    dazInterBase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotView);
+    dazMYSQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, fNativeConnection.fConnection.Catalog,GetMySQLVersion);
+    dazSQLite: SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotView);
+    dazPostgreSQL: Postgres_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+    dazOracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, fMSSQLSchemaEnabled)
+    else begin
+      DoGetNames(List, dotView);
+    end;
+  end
+end;
+
+procedure TDAESampleConnection.DoGetStoredProcedureNames(
+  out List: IROStrings);
+begin
+  inherited;
+  case fDriverType of
+    dazMSSQL: MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, fMSSQLSchemaEnabled);
+    dazInterBase: IB_GetObjectNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    dazMYSQL: MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, fNativeConnection.fConnection.Catalog,GetMySQLVersion);
+    dazSQLite: SQLite_GetObjectNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    dazPostgreSQL: Postgres_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure);
+    dazOracle: Oracle_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure);
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      MSSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, fMSSQLSchemaEnabled)
+    else begin
+      DoGetNames(List, dotProcedure);
+    end;
+  end
+end;
+
+procedure TDAESampleConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+var
+  lschema, ltbl               : string;
+  fld                         : TDAField;
+begin
+  case fDriverType of
+    dazMSSQL: MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    dazInterBase: IB_GetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    dazMySQL: MYSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),GetDatasetClass.Create(Self),Fields, fNativeConnection.fConnection.Catalog,GetMySQLVersion);
+    dazOracle: Oracle_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+    dazPostgreSQL: Postgres_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields);
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields)
+    else begin
+      inherited;
+      if Pos('.', aTableName) > 0 then begin
+        lschema := Trim(Copy(aTableName, 1, Pos('.', aTableName) - 1));
+        ltbl := Trim(Copy(aTableName, Pos('.', aTableName) + 1, Length(aTableName)));
+      end else begin
+        lschema := '';
+        ltbl := aTableName;
+      end;
+      // required+default value
+      with ZEOS_GetMetadata.GetColumns(fNativeConnection.fConnection.Catalog, lschema, ltbl, '') do
+        while Next do begin
+          fld := Fields.FindField(GetStringByName('COLUMN_NAME'));
+          if fld = nil then Continue;
+          fld.Required := GetStringByName('IS_NULLABLE') = 'NO';
+
+          fld.DefaultValue := GetStringByName('COLUMN_DEF');
+          if not TestDefaultValue(fld.DefaultValue, fld.DataType) then
+            fld.DefaultValue := '';
+        end;
+      // pk
+      with ZEOS_GetMetadata.GetPrimaryKeys(fNativeConnection.fConnection.Catalog, lschema, ltbl) do
+        while Next do begin
+          fld := Fields.FindField(GetStringByName('COLUMN_NAME'));
+          if fld = nil then Continue;
+          fld.Required := True;
+          fld.InPrimaryKey := True;
+        end;
+    end;
+  end;
+  FixWideStringBug(Fields);
+end;
+
+procedure TDAESampleConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+var
+  lSupportedSchema            : boolean;
+begin
+  inherited;
+  case fDriverType of
+    dazMSSQL: MSSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, fMSSQLSchemaEnabled);
+    dazInterBase: IB_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    dazMySQL: MYSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, fNativeConnection.fConnection.Catalog,GetMySQLVersion);
+    dazPostgreSQL:   Postgres_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+    dazOracle: Oracle_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys);
+    dazSQLite: SQLite_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      MSSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, fMSSQLSchemaEnabled)
+    else begin
+      lSupportedSchema := ZEOS_GetDataBaseInfo.SupportsSchemasInDataManipulation;
+      with ZEOS_GetMetadata.GetCrossReference(fNativeConnection.fConnection.Catalog, '', '', fNativeConnection.fConnection.Catalog, '', '') do
+        while Next do
+          with ForeignKeys.Add do begin
+            if lSupportedSchema then begin
+              PKTable := GetStringByName('PKTABLE_SCHEM') + '.' + GetStringByName('PKTABLE_NAME');
+              FKTable := GetStringByName('FKTABLE_SCHEM') + '.' + GetStringByName('FKTABLE_NAME');
+            end
+            else begin
+              PKTable := GetStringByName('PKTABLE_NAME');
+              FKTable := GetStringByName('FKTABLE_NAME');
+            end;
+            PKField := GetStringByName('PKCOLUMN_NAME');
+            FKField := GetStringByName('FKCOLUMN_NAME');
+          end;
+    end;
+  end;
+end;
+
+function TDAESampleConnection.GetDatabaseNames: IROStrings;
+begin
+  case fDriverType of
+    dazMSSQL: Result := MSSQL_GetDatabaseNames(Self);
+    dazMySQL: Result := MYSQL_GetDatabaseNames(Self);
+    dazPostgreSQL: Result := Postgres_GetDatabaseNames(Self);
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      Result := MSSQL_GetDatabaseNames(Self)
+    else begin
+      Result := NewROStrings;
+      with ZEOS_GetMetadata.GetCatalogs do
+        while Next do
+          Result.Add(GetStringByName('TABLE_CAT'));
+    end;
+  end;
+end;
+
+function TDAESampleConnection.GetQuoteChars: TDAQuoteCharArray;
+var
+  s                           : string;
+begin
+  Result := inherited GetQuoteChars;
+  case fDriverType of
+    dazMSSQL: Result := MSSQL_GetQuoteChars;
+    dazOracle: Result:= Oracle_GetQuoteChars;
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      Result := MSSQL_GetQuoteChars
+    else begin
+      s := ZEOS_GetDataBaseInfo.GetIdentifierQuoteString;
+      if Length(s) = 1 then begin
+        Result[0] := s[1];
+        Result[1] := s[1];
+      end
+      else if Length(s) = 2 then begin
+        Result[0] := s[1];
+        Result[1] := s[2];
+      end
+    end;
+  end;
+end;
+
+function TDAESampleConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+
+  function _getList: string;
+  begin
+    fNativeConnection.Connected:=True;
+    with ZEOS_GetDataBaseInfo do
+      Result :=
+        GetSQLKeywords + ',' +
+        GetNumericFunctions + ',' +
+        GetStringFunctions + ',' +
+        GetSystemFunctions + ',' +
+        GetTimeDateFunctions;
+  end;
+
+var
+  lList                       : TstringList;
+  i                           : integer;
+begin
+  Result:= inherited IdentifierNeedsQuoting(iIdentifier);
+  if not result then
+    case fDriverType of
+      dazMSSQL: Result := MSSQL_IdentifierNeedsQuoting(iIdentifier);
+      dazInterBase: Result := IB_IdentifierNeedsQuoting(iIdentifier, GetSQLDialect);
+      dazMySQL: Result := MYSQL_IdentifierNeedsQuoting(iIdentifier);
+      dazORACLE: Result := Oracle_IdentifierNeedsQuoting(iIdentifier);
+      dazPostgreSQL: Result:= Postgres_IdentifierNeedsQuoting(iIdentifier);
+      dazIBMDB2: Result := DB2_IdentifierNeedsQuoting(iIdentifier);
+      dazASA,dazSybase: Result := Sybase_IdentifierNeedsQuoting(iIdentifier);
+    else
+      if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+        Result := MSSQL_IdentifierNeedsQuoting(iIdentifier)
+      else begin
+        lList := TStringList.Create;
+        try
+          lList.CommaText := _getList;
+          for i := 0 to lList.Count - 1 do
+            if CompareText(llist[i], iIdentifier) = 0 then begin
+              Result := True;
+              Exit;
+            end;
+        finally
+          lList.Free;
+        end
+      end;
+    end;
+end;
+
+function TDAESampleConnection.GetRole: string;
+begin
+  Result := fNativeConnection.fConnection.Properties.Values['rolename'];
+end;
+
+function TDAESampleConnection.GetSQLDialect: integer;
+begin
+  Result := StrToIntDef(fNativeConnection.fConnection.Properties.Values['dialect'], -1);
+  if Result = -1 then begin
+    if fDriverName = 'interbase-5' then
+      Result := 1
+    else
+      Result := 3;
+  end;
+end;
+
+procedure TDAESampleConnection.SetRole(const Value: string);
+begin
+  fNativeConnection.fConnection.Properties.Values['rolename'] := Value;
+end;
+
+procedure TDAESampleConnection.SetSQLDialect(Value: integer);
+begin
+  fNativeConnection.fConnection.Properties.Values['dialect'] := IntToStr(Value);
+end;
+
+function TDAESampleConnection.GetCharset: string;
+begin
+  Result := fNativeConnection.fConnection.Properties.Values['codepage'];
+end;
+
+procedure TDAESampleConnection.SetCharset(const Value: string);
+begin
+  fNativeConnection.fConnection.Properties.Values['codepage'] := Value;
+end;
+
+procedure TDAESampleConnection.Commit;
+begin
+  Self.DoCommitTransaction;
+end;
+
+procedure TDAESampleConnection.Rollback;
+begin
+  Self.DoRollbackTransaction;
+end;
+
+function TDAESampleConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  Result := -1;
+  case fDriverType of
+    dazMSSQL: Result := MSSQL_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dazInterBase: Result := IB_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dazMySQL: Result := MySQL_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dazOracle: Result := Oracle_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+    dazPostgreSQL: Result := Postgres_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      Result := MSSQL_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self))
+    else ;
+  end;
+end;
+
+function TDAESampleConnection.GetNextAutoinc(
+  const GeneratorName: string): integer;
+begin
+  Result := GetNextAutoinc2(GeneratorName);
+end;
+
+procedure TDAESampleConnection.DoGetNames(AList: IROStrings;
+  AObjectType: TDAObjecttype);
+var
+  lTableTypes                 : TStringDynArray;
+  lsupportSchema              : Boolean;
+  lprocname                   : string;
+  i                           : integer;
+begin
+  fNativeConnection.fConnection.Connect;
+  lsupportSchema := ZEOS_GetDataBaseInfo.SupportsSchemasInDataManipulation;
+  if AObjectType = dotProcedure then begin
+    with ZEOS_GetMetadata.GetProcedures(fNativeConnection.fConnection.Catalog, '', '') do
+      while Next do begin
+        lprocname := GetStringByName('PROCEDURE_NAME');
+        i := pos(';', lprocname);
+        if i > 0 then lprocname := Copy(lprocname, 1, i - 1);
+        if lsupportSchema then
+          aList.Add(GetStringByName('PROCEDURE_SCHEM') + '.' + lprocname)
+        else
+          aList.Add(lprocname)
+      end;
+  end
+  else begin
+    SetLength(lTableTypes, 1);
+    if AObjectType = dotTable then
+      lTableTypes[0] := 'TABLE'
+    else
+      lTableTypes[0] := 'VIEW';
+    with ZEOS_GetMetadata.GetTables(fNativeConnection.fConnection.Catalog, '', '', lTableTypes) do
+      while Next do
+        if lsupportSchema then
+          aList.Add(GetStringByName('TABLE_SCHEM') + '.' + GetStringByName('TABLE_NAME'))
+        else
+          aList.Add(GetStringByName('TABLE_NAME'))
+  end;
+end;
+
+function TDAESampleConnection.GetSPSelectSyntax(
+  HasArguments: Boolean): string;
+begin
+  case fDriverType of
+    dazMSSQL: Result := MSSQL_GetSPSelectSyntax(HasArguments);
+    dazInterBase: Result := IB_GetSPSelectSyntax(HasArguments);
+    dazOracle: Result := Oracle_GetSPSelectSyntax(HasArguments);
+    dazPostgreSQL: Result := Postgres_GetSPSelectSyntax(HasArguments);
+  else
+    if (fDriverType = dazADO) and (fADOProviderType in [oledb_MSSQL, oledb_MSSQL2005]) then
+      Result := MSSQL_GetSPSelectSyntax(HasArguments)
+    else begin
+      Result := inherited GetSPSelectSyntax(HasArguments);
+    end;
+  end;
+end;
+
+function TDAESampleConnection.GetCommandTimeout: Integer;
+begin
+  Result := StrToIntDef(fNativeConnection.fConnection.Properties.Values['timeout'], 0);
+end;
+
+function TDAESampleConnection.GetProviderName: string;
+begin
+  Result := fADOProviderName;
+end;
+
+function TDAESampleConnection.GetProviderType: TDAOleDBProviderType;
+begin
+  Result := fADOProviderType;
+end;
+
+procedure TDAESampleConnection.SetCommandTimeout(const Value: Integer);
+begin
+  fNativeConnection.fConnection.Properties.Values['timeout'] := InttoStr(Value);
+end;
+
+procedure TDAESampleConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  case fDriverType of
+    dazMySQL:   MYSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params, fNativeConnection.fConnection.Catalog);
+    dazOracle:  Oracle_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+    dazPostgreSQL: Postgres_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+    dazMSSQL:   MSSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+  else
+    inherited;
+  end;
+end;
+
+
+function TDAESampleConnection.ZEOS_GetDataBaseInfo: IZDatabaseInfo;
+begin
+  {$IFDEF ZEOS7}
+  Result := ZEOS_GetMetaData.GetDatabaseInfo;
+  {$ELSE}
+  Result := ZEOS_GetMetaData;
+  {$ENDIF}
+end;
+
+function TDAESampleConnection.ZEOS_GetMetaData: IZDatabaseMetadata;
+begin
+  fNativeConnection.Connected:=True;
+  Result:= fNativeConnection.fConnection.DbcConnection.GetMetadata;
+end;
+
+procedure TDAESampleConnection.FixWideStringBug(AFields: TDAFieldCollection);
+{$IFDEF DA_WideMemoSupport}
+var
+  i: integer;
+{$ENDIF}
+begin
+  {$IFDEF DA_WideMemoSupport}
+  For i:=0 to AFields.Count -1 do
+    with AFields[i] do
+      if (DataType = datWideString) and (Size = MaxInt div 2) then begin
+        DataType:= datWideMemo;
+        Size := 0;
+      end;
+  {$ENDIF}
+end;
+
+procedure TDAESampleConnection.DoGetQueryFields(const aSQL: string;
+  aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection);
+begin
+  inherited;
+  FixWideStringBug(Fields);
+end;
+
+function TDAESampleConnection.GetMySQLVersion: integer;
+begin
+  if FMySQLVersion = -1 then FMySQLVersion := MYSQL_GetVersion(GetDatasetClass.Create(Self));
+  Result := FMySQLVersion;
+end;
+
+function TDAESampleConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  Result := -1;
+  case fDriverType of
+    dazInterBase: Result := IB_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+    dazOracle: Result := Oracle_GetNextAutoinc(GeneratorName, GetDatasetClass.Create(Self));
+    dazPostgreSQL: Result := Postgres_GetNextAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+  end;
+end;
+
+{ TDAESampleDriver }
+
+procedure TDAESampleDriver.GetAuxDrivers(out List: IROStrings);
+var
+  i, j                        : integer;
+  lDrivers                    : IZCollection;
+  Protocols                   : TStringDynArray;
+begin
+  inherited;
+  lDrivers := ZDbcIntfs.DriverManager.GetDrivers;
+  for i := 0 to lDrivers.Count - 1 do begin
+    Protocols := (lDrivers[I] as IZDriver).GetSupportedProtocols;
+    for J := Low(Protocols) to High(Protocols) do
+      List.Add(Protocols[J]);
+  end;
+  List.Sorted := True;
+end;
+
+procedure TDAESampleDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+var
+  i                           : TDAOleDBProviderType;
+  s                           : string;
+begin
+  inherited;
+  case ZEOSDriverIdToZEOSDriverType(AuxDriver) of
+    dazADO: begin
+        s := '';
+        for i := Low(TDAOleDBProviderType) to High(TDAOleDBProviderType) do
+          if (i <> oledb_Unknown) {// Redundant but safe if I change the enum later...} then begin
+            if s <> '' then s := s + ';';
+            s := s + OleDBProviders[i];
+          end;
+        List.Add('Provider=(' + s + ')');
+      end;
+    dazInterBase: AddIBAuxParams(List);
+  end;
+  if not (ZEOSDriverIdToZEOSDriverType(AuxDriver) in [dazAdo, dazSQLite]) then List.Add('Port=<port>');
+  List.Add('timeout=<timeout>');
+end;
+
+function TDAESampleDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  Result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAESampleDriver.GetAvailableDriverOptionsEx(
+  AuxDriver: string): TDAAvailableDriverOptions;
+begin
+  case ZEOSDriverIdToZEOSDriverType(AuxDriver) of
+    dazSQLite : Result := [doAuxDriver, doDatabaseName, doCustom];
+  else
+    Result := [doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom];
+  end;    
+end;
+
+function TDAESampleDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAESampleConnection;
+end;
+
+function TDAESampleDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  case ZEOSDriverIdToZEOSDriverType(AuxDriver) of
+    dazADO: Result := '';
+    dazMySQL: Result := MySQL_DriverType;
+    dazIBMDB2: Result:= DB2_DriverType;
+    dazInterBase: Result := IB_DriverType;
+    dazMSSQL: Result := MSSQL_DriverType;
+    dazOracle: Result := Oracle_DriverType;
+    dazPostgreSQL: Result := PostgreSQL_DriverType;
+    dazSQLite : Result:= SQLite_DriverType;
+    dazASA: Result:=ASA_DriverType;
+    dazSybase: Result:=Sybase_DriverType;
+  else
+    Result:= inherited GetDefaultConnectionType(AuxDriver);
+  end;
+end;
+
+function TDAESampleDriver.GetDescription: string;
+begin
+  result := 'DataAbstact Zeos Driver';
+end;
+
+function TDAESampleDriver.GetDriverID: string;
+begin
+  result := 'ZEOS';
+end;
+
+function TDAESampleDriver.GetProviderDefaultCustomParameters(
+  Provider: string): string;
+begin
+  Result := '';
+  case ZEOSDriverIdToZEOSDriverType(Provider) of
+    dazADO: Result := 'Provider=<please specify provider>;';
+    dazMySQL: Result := MYSQL_GetDefaultCustomParameters;
+  end;
+end;
+
+{ TDAESampleQuery }
+
+function TDAESampleQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TZReadOnlyQuery.Create(nil);
+  TZReadOnlyQuery(result).Connection := TDAESampleConnection(aConnection).fNativeConnection.fConnection;
+end;
+
+function TDAESampleQuery.DoExecute: integer;
+begin
+  TZReadOnlyQuery(Dataset).ExecSQL;
+  Result:=TZReadOnlyQuery(Dataset).RowsAffected;
+end;
+
+function TDAESampleQuery.DoGetSQL: string;
+begin
+  result := TZReadOnlyQuery(Dataset).SQL.Text;
+end;
+
+procedure TDAESampleQuery.DoPrepare(Value: boolean);
+begin
+  // nothing
+end;
+
+procedure TDAESampleQuery.DoSetSQL(const Value: string);
+begin
+  TZReadOnlyQuery(Dataset).SQL.Text := Value;
+end;
+
+procedure TDAESampleQuery.SetParamValues(AParams: TDAParamCollection);
+var
+  i: integer;
+begin
+  SetParamValuesStd(AParams, TZReadOnlyQuery(Dataset).Params);
+  // zeos doesn't support ftfmtBCD, ftBCD
+  for i:=0 to TZReadOnlyQuery(Dataset).Params.Count-1 do
+    with TZReadOnlyQuery(Dataset).Params[i] do begin
+      if DataType = ftBCD then AsCurrency := Value
+      else if DataType = ftFMTBCD then AsFloat := Value;
+    end;  
+end;
+
+procedure TDAESampleQuery.GetParamValues(AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TZReadOnlyQuery(Dataset).Params);
+end;
+
+procedure TDAESampleQuery.ClearParams;
+begin
+  inherited;
+  TZReadOnlyQuery(Dataset).Params.Clear;
+end;
+
+{ TDAESampleStoredProcedure }
+
+function TDAESampleStoredProcedure.CreateDataset(aConnection: TDAEConnection): TDataset;
+begin
+  result := TZStoredProc.Create(nil);
+  TZStoredProc(result).Connection := TDAESampleConnection(aConnection).fNativeConnection.fConnection;
+end;
+
+function TDAESampleStoredProcedure.DoExecute: integer;
+begin
+  TZStoredProc(Dataset).ExecProc;
+  Result:=TZStoredProc(Dataset).RowsAffected;
+end;
+
+function TDAESampleStoredProcedure.DoGetSQL: string;
+begin
+  Result := '';
+end;
+
+procedure TDAESampleStoredProcedure.DoPrepare(Value: boolean);
+begin
+end;
+
+procedure TDAESampleStoredProcedure.DoSetSQL(const Value: string);
+begin
+end;
+
+procedure TDAESampleStoredProcedure.GetParamValues(
+  AParams: TDAParamCollection);
+begin
+  GetParamValuesStd(AParams, TZStoredProc(Dataset).Params);
+end;
+
+function TDAESampleStoredProcedure.GetStoredProcedureName: string;
+begin
+  Result := TZStoredProc(Dataset).StoredProcName;
+end;
+
+procedure TDAESampleStoredProcedure.RefreshParams;
+begin
+  RefreshParamsStd(TZStoredProc(Dataset).Params);
+end;
+
+procedure TDAESampleStoredProcedure.SetParamValues(
+  AParams: TDAParamCollection);
+var
+  i: integer;  
+begin
+  SetParamValuesStd(AParams, TZStoredProc(Dataset).Params);
+  // zeos doesn't support ftfmtBCD, ftBCD
+  for i:=0 to TZStoredProc(Dataset).Params.Count-1 do
+    with TZStoredProc(Dataset).Params[i] do begin
+      if DataType = ftBCD then AsCurrency := Value
+      else if DataType = ftFMTBCD then AsFloat := Value;
+    end
+end;
+
+procedure TDAESampleStoredProcedure.SetStoredProcedureName(
+  const Name: string);
+begin
+  TZStoredProc(Dataset).Connection.Connect;
+  TZStoredProc(Dataset).StoredProcName := Name;
+end;
+
+{ TZEOSConnection }
+
+constructor TZEOSConnection.Create(AOwner: TComponent);
+begin
+  inherited;
+  fConnection := TZConnection.Create(nil);
+  fConnection.LoginPrompt := False;
+  fMetaData := TZSQLMetaData.Create(nil);
+  fMetaData.Connection := fConnection;
+end;
+
+destructor TZEOSConnection.Destroy;
+begin
+  inherited;
+  FreeAndNil(fMetaData);
+  FreeAndNil(fConnection);
+end;
+
+function TZEOSConnection.GetConnected: Boolean;
+begin
+  if fConnection <> nil then
+    Result := fConnection.Connected
+  else
+    Result:=False;  
+end;
+
+procedure TZEOSConnection.SetConnected(Value: boolean);
+begin
+  fConnection.Connected := Value;
+end;
+
+{$IFNDEF DARWIN}
+exports
+  GetDriverObject name func_GetDriverObject;
+{$ENDIF}
+
+initialization
+{$IFDEF FPC}
+  {$I DataAbstract_ZeosDriver_Glyphs.lrs}
+{$ENDIF}
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.lrs
new file mode 100644
index 0000000..d9a86b7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.lrs	
@@ -0,0 +1,76 @@
+LazarusResources.Add('dalogo','BMP',[
+  'BMX'#8#0#0#0#0#0#0'6'#4#0#0'('#0#0#0' '#0#0#0' '#0#0#0#1#0#8#0#1#0#0#0'"'#4#0
+  +#0#194#30#0#0#194#30#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128
+  +#128#0#128#0#0#0#128#0#128#0#128#128#0#0#192#192#192#0#192#220#192#0#240#202
+  +#166#0#0#148#0#0#0'1'#0#0#0'J'#0#0#0'R'#0#0#0'c'#0#0#0'k'#0#0#0's'#0#0#0'{'#0
+  +#0#0#132#0#0#0#140#0#0#0#148#0#0#0#156#0#0#8#8#8#0#8#16#8#0#8#24#8#0#8'!'#8#0
+  +#8')'#8#0#8'1'#8#0#8'J'#8#0#8'R'#8#0#8'c'#8#0#8'k'#8#0#8#132#8#0#8#165#8#0#16
+  +#16#16#0#16#24#16#0#16')'#16#0#16'1'#16#0#16'9'#16#0#16'B'#16#0#16'R'#16#0#16
+  +'c'#16#0#16'{'#16#0#16#132#16#0#8#165#16#0#24#24#24#0#24')'#24#0#24'1'#24#0
+  +#24'9'#24#0#16#173#24#0'!!!'#0'!B!'#0#24#148'!'#0#24#181'!'#0')))'#0'!s)'#0
+  +'!'#148')'#0#24#181')'#0'111'#0'191'#0'1R1'#0')'#140'1'#0')'#156'1'#0'!'#189
+  +'1'#0'199'#0'999'#0'1R9'#0')'#165'9'#0')'#198'9'#0'9BB'#0'BBB'#0'9RB'#0'BZB'
+  +#0'9'#132'B'#0'1'#165'B'#0')'#181'B'#0'JJJ'#0'JRJ'#0'BkJ'#0'BsJ'#0'B{J'#0'B'
+  +#132'J'#0'9'#148'J'#0'1'#173'J'#0'1'#206'J'#0'JRR'#0'RRR'#0'J'#132'R'#0'B'
+  +#140'R'#0'B'#148'R'#0'9'#173'R'#0'B'#181'R'#0'1'#198'R'#0'1'#206'R'#0'ZZZ'#0
+  +'B'#181'Z'#0'B'#189'Z'#0'9'#206'Z'#0'9'#214'Z'#0'Zcc'#0'ccc'#0'ckc'#0'Z'#132
+  +'c'#0'J'#189'c'#0'B'#214'c'#0'B'#222'c'#0'cck'#0'kkk'#0'R'#165'k'#0'R'#189'k'
+  +#0'B'#222'k'#0'sss'#0'c'#148's'#0'Z'#173's'#0'J'#231's'#0'ss{'#0's{{'#0'{{{'
+  +#0'c'#173'{'#0'R'#239'{'#0'{'#132#132#0#132#132#132#0'Z'#231#132#0'R'#247#132
+  +#0#140#140#140#0'Z'#239#140#0'Z'#247#140#0#140#140#148#0#140#148#148#0#148
+  +#148#156#0#148#156#156#0#156#156#165#0#165#173#173#0#173#181#181#0#181#181
+  +#189#0#181#189#189#0#181#189#198#0#189#198#198#0#189#198#206#0#198#198#206#0
+  +#198#206#206#0#206#214#214#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#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#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#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#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#240#251
+  +#255#0#164#160#160#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0
+  +#255#0#255#0#255#255#0#0#255#255#255#0#10#140#0#13#137'cA--""6At'#134#140#0
+  +#9#140#0#0#8#140#0#3#135'j2'#0#2'2'#4'-'#3'"'#2#22#0#3'A'#131#140#1#7#140#0#0
+  +#7#140#1'o'#3'6'#3'2'#4'-'#3'"'#3#22#0#3'A'#134#140#6#5#140#0#0#5#140#0#4#135
+  +'U:6'#2'6'#0#12'0('#30#17#16#16#15#14#28#26'"'#22#2#22#0#3'"'#140#0#4#140#0
+  +#0#4#140#0#3#133'F:'#0#2':'#2'6'#0#8'3('#30#17#17#16#16#15#2#15#0#3#14#27#22
+  +#0#3#22#1'x'#4#140#0#0#3#140#0#5#138'FAA:'#0#2':'#4'6'#0#6'/'#16#17#16#16#15
+  +#2#15#0#4#14#13#24#22#2#22#1''#3#140#0#0#3#140#1'd'#4'A'#3':'#4'6'#1#30#2#17
+  +#2#16#0#6#28'$##'#24#22#2#22#0#4'"'#134#140#140#0#0#2#140#1#128#2'F'#4'A'#3
+  +':'#3'6'#1#31#3#17#1''''#3'-'#3'"'#3#22#1'A'#2#140#0#0#0#7#140#138'VFFBA'#22
+  +#3'A'#3':'#4'6'#0#4'/0.-'#3'-'#3'"'#3#22#1#131#1#140#0#0#0#8#140'|LLG8FA'#3
+  +'A'#3':'#4'6'#3'2'#4'-'#0#7'"'#26#27#22#22'A'#140'F'#0#0#0#9#140'^LL=8FFA'#15
+  +#3'A'#3':'#4'6'#3'2'#4'-'#0#6'$'#14'"'#22#22#134#0#0#0#7#134'VLM?>F'#16#2'F'
+  +#4'A'#3':'#4'6'#3'2'#3'-'#0#6'$'#15#27'"'#22't'#0#0#1#130#2'V'#0#5'ODCLF'#17
+  +#2'F'#4'A'#3':'#4'6'#3'2'#2'-'#0#6'$'#15#28'""A'#0#0#1'|'#2'V'#0#6'XTJLLF'#2
+  +'F'#4'A'#3':'#4'6'#3'2'#0#7'-%'#15#14'""-L'#0#0#0#7's^V_]SL2'#2'L'#3'F'#4'A'
+  +#3':'#4'6'#3'2'#0#6'/'#16#15'-""'#0#0#1't'#2'^'#0#4'_bZL'#3'L'#3'F'#4'A'#3':'
+  +#4'6'#2'2'#1'0'#2#16#2'-'#1'"'#0#0#1'u'#2'^'#0#5'gh_VL:'#3'L'#3'F'#4'A'#3':'
+  +#1'3'#2'6'#0#6'0'''#15#17#16'-'#2'-'#0#0#0#9'ud^mnhWVL6'#3'L'#3'F'#4'A'#2':'
+  +#2#19#2#18#1#2#3#17#3'-'#0#0#1#130#2'd'#0#11'lrnhaZRIHLF'#7#2'F'#4'A'#1':'#3
+  +#19#2#18#0#6#2#17#31'2-A'#0#0#1#132#2'd'#0#12'fwrnhb]TNLLF'#2'F'#4'A'#1#10#3
+  +#19#2#18#0#5#2'(22VF'#0#0#1#137#3'd'#0#9'zwrnhb]QL'#0#2'L'#3'F'#2'A'#1';'#2
+  +#10#3#19#2#18#1'0'#2'2'#1''#0#0#0#17#140#248'ddq}wrnhb\PMLLFm'#2'F'#0#3'<*'
+  ,#10'L'#2#10#3#19#1#31#2'6'#1'2'#1#137#0#0#0#23#140#132'kde}}wrnhb]TKC>81,!'
+  +#21#10'A'#2#10#2#19#1'3'#2'6'#1'j'#1#140#0#0#2#140#0#22'okdp~}wrnhb]TD??91,!'
+  +#21#10#2#10#0#6'):66'#135#140#0#0#2#140#1#134#2'k'#0#22'dv~}wrnhb]TD??91,!'
+  +#21#10' :'#2':'#1'o'#2#140#0#0#3#140#1#129#2'k'#0#26'dv~}wrnhb]TD??91,!+;A:U'
+  +#137#140#140#0#0#4#140#1'y'#2'k'#0#18'dp}}wrnhb]TD??917A'#2'A'#0#3'F'#135#140
+  +#22#2#140#0#0#4#140#0#25#139'|kkdeqzwrnhb]TD?=GFFAF'#133#140#6#3#140#0#0#6
+  +#140#1#129#2'k'#3'd'#0#16'flmg__YPMLLFFd'#138#140#4#140#0#0#7#140#0#4#134'ok'
+  +'d'#3'd'#3'^'#3'V'#3'L'#0#3'V'#128#140'v'#6#140#0#0#9#140#0#3#132#248'd?'#3
+  +'d'#3'^'#3'V'#0#4'^|'#138#140#7#140#0#0#11#140#0#11#137#132#130'uuts|'#130
+  +#134#140']'#10#140#0#1
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.rc b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.rc
new file mode 100644
index 0000000..d480282
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.rc	
@@ -0,0 +1 @@
+DALOGO           BITMAP DISCARDABLE "dalogo.bmp"
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.res
new file mode 100644
index 0000000..6735fcb
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_AdditionalResources.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.bdsproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.bdsproj
new file mode 100644
index 0000000..67fa8e2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.bdsproj	
@@ -0,0 +1,179 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{06DC969E-3DBF-4AD9-80A8-ADB03BFF41D1}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">DataAbstract_IDE_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">1</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects Data Abstract - IDE Package</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\;..\..\Dcu\D10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String"></Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">361</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.1.361</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.cfg
new file mode 100644
index 0000000..f6e54d1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.cfg	
@@ -0,0 +1,52 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\;..\..\Dcu\D10"
+-O"..\;..\..\Dcu\D10"
+-I"..\;..\..\Dcu\D10"
+-R"..\;..\..\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.dpk
new file mode 100644
index 0000000..fdc6b17
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.dpk	
@@ -0,0 +1,51 @@
+package DataAbstract_IDE_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - IDE Package'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  DesignIDE,
+  vcldb,
+  dbrtl,
+  RemObjects_Core_D10,
+  RemObjects_IDE_D10,
+  RemObjects_Everwood_D10,
+  DataAbstract_Core_D10;
+
+contains
+  DataAbstract_IDE_Reg in 'DataAbstract_IDE_Reg.pas',
+  uDADataAbstractEditors in 'uDADataAbstractEditors.pas',
+  uDADBSessionManagerEditor in 'uDADBSessionManagerEditor.pas',
+  uDASchemaUnitsGenerator in 'uDASchemaUnitsGenerator.pas',
+  uDAIDEMenu in 'uDAIDEMenu.pas',
+  uDAIDEData in 'uDAIDEData.pas' {DAIdeData: TDataModule},
+  uDAIDERes in 'uDAIDERes.pas',
+  uDASelectDataTablesForm in 'uDASelectDataTablesForm.pas' {DASelectDataTablesForm},
+  uDADataTableMasterLinkWizardForm in 'uDADataTableMasterLinkWizardForm.pas' {DADataTableMasterLinkWizard},
+  uDAGuideWizardForm in 'uDAGuideWizardForm.pas' {DAGuideWizardForm},
+  uDADataTableWizards in 'uDADataTableWizards.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.res
new file mode 100644
index 0000000..669dbd3
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D10.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.dpk
new file mode 100644
index 0000000..906a394
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.dpk	
@@ -0,0 +1,52 @@
+package DataAbstract_IDE_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - IDE Package'}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  DesignIDE,
+  vcldb,
+  dbrtl,
+  RemObjects_Core_D11,
+  RemObjects_IDE_D11,
+  RemObjects_Everwood_D11,
+  DataAbstract_Core_D11;
+
+contains
+  DataAbstract_IDE_Reg in 'DataAbstract_IDE_Reg.pas',
+  uDADataAbstractEditors in 'uDADataAbstractEditors.pas',
+  uDADBSessionManagerEditor in 'uDADBSessionManagerEditor.pas',
+  uDASchemaUnitsGenerator in 'uDASchemaUnitsGenerator.pas',
+  uDAIDEMenu in 'uDAIDEMenu.pas',
+  uDAIDEData in 'uDAIDEData.pas' {DAIdeData: TDataModule},
+  uDAIDERes in 'uDAIDERes.pas',
+  uDASelectDataTablesForm in 'uDASelectDataTablesForm.pas' {DASelectDataTablesForm},
+  uDADataTableMasterLinkWizardForm in 'uDADataTableMasterLinkWizardForm.pas' {DADataTableMasterLinkWizard},
+  uDAGuideWizardForm in 'uDAGuideWizardForm.pas' {DAGuideWizardForm},
+  uDADataTableWizards in 'uDADataTableWizards.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.dproj
new file mode 100644
index 0000000..b270446
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.dproj	
@@ -0,0 +1,580 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{83d4313b-eff3-4ea0-9289-ba6e608e821e}</ProjectGuid>
+    <MainSource>DataAbstract_IDE_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IDE_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Data Abstract - IDE Package</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DataAbstract_IDE_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DataAbstract_IDE_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\DesignIDE.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\RemObjects_Everwood_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\RemObjects_IDE_D11.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\..\RemObjects SDK for Delphi\Source\vcldb.dcp" />
+    <DCCReference Include="DataAbstract_IDE_Reg.pas" />
+    <DCCReference Include="uDADataAbstractEditors.pas" />
+    <DCCReference Include="uDADataTableMasterLinkWizardForm.pas">
+      <Form>DADataTableMasterLinkWizard</Form>
+    </DCCReference>
+    <DCCReference Include="uDADataTableWizards.pas" />
+    <DCCReference Include="uDADBSessionManagerEditor.pas" />
+    <DCCReference Include="uDAGuideWizardForm.pas">
+      <Form>DAGuideWizardForm</Form>
+    </DCCReference>
+    <DCCReference Include="uDAIDEData.pas">
+      <Form>DAIdeData</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uDAIDEMenu.pas" />
+    <DCCReference Include="uDAIDERes.pas" />
+    <DCCReference Include="uDASchemaUnitsGenerator.pas" />
+    <DCCReference Include="uDASelectDataTablesForm.pas">
+      <Form>DASelectDataTablesForm</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D11.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.dpk
new file mode 100644
index 0000000..5ffd96f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.dpk	
@@ -0,0 +1,51 @@
+package DataAbstract_IDE_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - IDE Package'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  DesignIDE,
+  vcldb,
+  dbrtl,
+  RemObjects_Core_D12,
+  RemObjects_IDE_D12,
+  RemObjects_Everwood_D12,
+  DataAbstract_Core_D12;
+
+contains
+  DataAbstract_IDE_Reg in 'DataAbstract_IDE_Reg.pas',
+  uDADataAbstractEditors in 'uDADataAbstractEditors.pas',
+  uDADBSessionManagerEditor in 'uDADBSessionManagerEditor.pas',
+  uDASchemaUnitsGenerator in 'uDASchemaUnitsGenerator.pas',
+  uDAIDEMenu in 'uDAIDEMenu.pas',
+  uDAIDEData in 'uDAIDEData.pas' {DAIdeData: TDataModule},
+  uDAIDERes in 'uDAIDERes.pas',
+  uDASelectDataTablesForm in 'uDASelectDataTablesForm.pas' {DASelectDataTablesForm},
+  uDADataTableMasterLinkWizardForm in 'uDADataTableMasterLinkWizardForm.pas' {DADataTableMasterLinkWizard},
+  uDAGuideWizardForm in 'uDAGuideWizardForm.pas' {DAGuideWizardForm},
+  uDADataTableWizards in 'uDADataTableWizards.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.dproj
new file mode 100644
index 0000000..5269ffc
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.dproj	
@@ -0,0 +1,119 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{83d4313b-eff3-4ea0-9289-ba6e608e821e}</ProjectGuid>
+			<MainSource>DataAbstract_IDE_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IDE_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_DebugDCUs>true</DCC_DebugDCUs>
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D12;..\..\..\RemObjects SDK for Delphi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_BplOutput>..\..\Dcu\D12\</DCC_BplOutput>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_DcuOutput>..\..\Dcu\D12\</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D12\</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\DataAbstract_IDE_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - IDE Package</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_IDE_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="DesignIDE.dcp"/>
+			<DCCReference Include="vcldb.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="RemObjects_IDE_D12.dcp"/>
+			<DCCReference Include="RemObjects_Everwood_D12.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D12.dcp"/>
+			<DCCReference Include="DataAbstract_IDE_Reg.pas"/>
+			<DCCReference Include="uDADataAbstractEditors.pas"/>
+			<DCCReference Include="uDADBSessionManagerEditor.pas"/>
+			<DCCReference Include="uDASchemaUnitsGenerator.pas"/>
+			<DCCReference Include="uDAIDEMenu.pas"/>
+			<DCCReference Include="uDAIDEData.pas">
+				<Form>DAIdeData</Form>
+				<DesignClass>TDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="uDAIDERes.pas"/>
+			<DCCReference Include="uDASelectDataTablesForm.pas">
+				<Form>DASelectDataTablesForm</Form>
+			</DCCReference>
+			<DCCReference Include="uDADataTableMasterLinkWizardForm.pas">
+				<Form>DADataTableMasterLinkWizard</Form>
+			</DCCReference>
+			<DCCReference Include="uDAGuideWizardForm.pas">
+				<Form>DAGuideWizardForm</Form>
+			</DCCReference>
+			<DCCReference Include="uDADataTableWizards.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">6</VersionInfo>
+						<VersionInfo Name="Build">442</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_IDE_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D12.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.dpk
new file mode 100644
index 0000000..2cfbc2f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.dpk	
@@ -0,0 +1,51 @@
+package DataAbstract_IDE_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - IDE Package'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  DesignIDE,
+  vcldb,
+  dbrtl,
+  RemObjects_Core_D14,
+  RemObjects_IDE_D14,
+  RemObjects_Everwood_D14,
+  DataAbstract_Core_D14;
+
+contains
+  DataAbstract_IDE_Reg in 'DataAbstract_IDE_Reg.pas',
+  uDADataAbstractEditors in 'uDADataAbstractEditors.pas',
+  uDADBSessionManagerEditor in 'uDADBSessionManagerEditor.pas',
+  uDASchemaUnitsGenerator in 'uDASchemaUnitsGenerator.pas',
+  uDAIDEMenu in 'uDAIDEMenu.pas',
+  uDAIDEData in 'uDAIDEData.pas' {DAIdeData: TDataModule},
+  uDAIDERes in 'uDAIDERes.pas',
+  uDASelectDataTablesForm in 'uDASelectDataTablesForm.pas' {DASelectDataTablesForm},
+  uDADataTableMasterLinkWizardForm in 'uDADataTableMasterLinkWizardForm.pas' {DADataTableMasterLinkWizard},
+  uDAGuideWizardForm in 'uDAGuideWizardForm.pas' {DAGuideWizardForm},
+  uDADataTableWizards in 'uDADataTableWizards.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.dproj b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.dproj
new file mode 100644
index 0000000..3880565
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.dproj	
@@ -0,0 +1,121 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{83d4313b-eff3-4ea0-9289-ba6e608e821e}</ProjectGuid>
+			<MainSource>DataAbstract_IDE_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\DataAbstract_IDE_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_DebugDCUs>true</DCC_DebugDCUs>
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_UnitSearchPath>..;..\..\Dcu\D14;..\..\..\RemObjects SDK for Delphi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_BplOutput>..\..\Dcu\D14\</DCC_BplOutput>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_DcuOutput>..\..\Dcu\D14\</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Dcu\D14\</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\DataAbstract_IDE_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Data Abstract - IDE Package</DCC_Description>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="DataAbstract_IDE_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="DesignIDE.dcp"/>
+			<DCCReference Include="vcldb.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="RemObjects_IDE_D14.dcp"/>
+			<DCCReference Include="RemObjects_Everwood_D14.dcp"/>
+			<DCCReference Include="DataAbstract_Core_D14.dcp"/>
+			<DCCReference Include="DataAbstract_IDE_Reg.pas"/>
+			<DCCReference Include="uDADataAbstractEditors.pas"/>
+			<DCCReference Include="uDADBSessionManagerEditor.pas"/>
+			<DCCReference Include="uDASchemaUnitsGenerator.pas"/>
+			<DCCReference Include="uDAIDEMenu.pas"/>
+			<DCCReference Include="uDAIDEData.pas">
+				<Form>DAIdeData</Form>
+				<DesignClass>TDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="uDAIDERes.pas"/>
+			<DCCReference Include="uDASelectDataTablesForm.pas">
+				<Form>DASelectDataTablesForm</Form>
+			</DCCReference>
+			<DCCReference Include="uDADataTableMasterLinkWizardForm.pas">
+				<Form>DADataTableMasterLinkWizard</Form>
+			</DCCReference>
+			<DCCReference Include="uDAGuideWizardForm.pas">
+				<Form>DAGuideWizardForm</Form>
+			</DCCReference>
+			<DCCReference Include="uDADataTableWizards.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+						<Parameters Name="RunParams">-pDelphi</Parameters>
+						<Parameters Name="HostApplication">C:\Program Files\CodeGear\RAD Studio\6.0\bin\bds.exe</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">6</VersionInfo>
+						<VersionInfo Name="Build">442</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">DataAbstract_IDE_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D14.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.cfg
new file mode 100644
index 0000000..19431c3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Dcu\D6"
+-LN"..\..\Dcu\D6"
+-U"..\..\Dcu\D6"
+-O"..\..\Dcu\D6"
+-I"..\..\Dcu\D6"
+-R"..\..\Dcu\D6"
+-Z
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.dof
new file mode 100644
index 0000000..552aad2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Data Abstract - IDE Package
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.138
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.dpk
new file mode 100644
index 0000000..c2b6298
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.dpk	
@@ -0,0 +1,51 @@
+package DataAbstract_IDE_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - IDE Package'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  DesignIDE,
+  vcldb,
+  dbrtl,
+  RemObjects_Core_D6,
+  RemObjects_IDE_D6,
+  RemObjects_Everwood_D6,
+  DataAbstract_Core_D6;
+
+contains
+  DataAbstract_IDE_Reg in 'DataAbstract_IDE_Reg.pas',
+  uDADataAbstractEditors in 'uDADataAbstractEditors.pas',
+  uDADBSessionManagerEditor in 'uDADBSessionManagerEditor.pas',
+  uDASchemaUnitsGenerator in 'uDASchemaUnitsGenerator.pas',
+  uDAIDEMenu in 'uDAIDEMenu.pas',
+  uDAIDEData in 'uDAIDEData.pas' {DAIdeData: TDataModule},
+  uDAIDERes in 'uDAIDERes.pas',
+  uDASelectDataTablesForm in 'uDASelectDataTablesForm.pas' {DASelectDataTablesForm},
+  uDADataTableMasterLinkWizardForm in 'uDADataTableMasterLinkWizardForm.pas' {DADataTableMasterLinkWizard},
+  uDAGuideWizardForm in 'uDAGuideWizardForm.pas' {DAGuideWizardForm},
+  uDADataTableWizards in 'uDADataTableWizards.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.res
new file mode 100644
index 0000000..2d6c311
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D6.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.cfg b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.cfg
new file mode 100644
index 0000000..5645689
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.cfg	
@@ -0,0 +1,50 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Dcu\D7"
+-LN"..\..\Dcu\D7"
+-U"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-O"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-I"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-R"..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.dof b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.dof
new file mode 100644
index 0000000..2b8a3a6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.dof	
@@ -0,0 +1,116 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Data Abstract - IDE Package
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\..\Dcu\DevEx;..\..\..\RemObjects SDK\Dcu\D7
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;RemObjects_DataSnap_D7;PurposesoftD7;addict3_d6;tb2kComplete_70;CDKDesignTimeSupport;CDKSmp;CDK;ES_CodeSite20;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;Rz252N70;SynEdit_D7;dxsbD7;dxComnD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;Rz252D70;cxPageControlVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;RemObjects_BPDX_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.280
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.dpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.dpk
new file mode 100644
index 0000000..377b366
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.dpk	
@@ -0,0 +1,51 @@
+package DataAbstract_IDE_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Data Abstract - IDE Package'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  DesignIDE,
+  vcldb,
+  dbrtl,
+  RemObjects_Core_D7,
+  RemObjects_IDE_D7,
+  RemObjects_Everwood_D7,
+  DataAbstract_Core_D7;
+
+contains
+  DataAbstract_IDE_Reg in 'DataAbstract_IDE_Reg.pas',
+  uDADataAbstractEditors in 'uDADataAbstractEditors.pas',
+  uDADBSessionManagerEditor in 'uDADBSessionManagerEditor.pas',
+  uDASchemaUnitsGenerator in 'uDASchemaUnitsGenerator.pas',
+  uDAIDEMenu in 'uDAIDEMenu.pas',
+  uDAIDEData in 'uDAIDEData.pas' {DAIdeData: TDataModule},
+  uDAIDERes in 'uDAIDERes.pas',
+  uDASelectDataTablesForm in 'uDASelectDataTablesForm.pas' {DASelectDataTablesForm},
+  uDADataTableMasterLinkWizardForm in 'uDADataTableMasterLinkWizardForm.pas' {DADataTableMasterLinkWizard},
+  uDAGuideWizardForm in 'uDAGuideWizardForm.pas' {DAGuideWizardForm},
+  uDADataTableWizards in 'uDADataTableWizards.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_D7.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Mac.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Mac.lpk
new file mode 100644
index 0000000..ed53532
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Mac.lpk	
@@ -0,0 +1,114 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="DataAbstract_IDE_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="../units/$(TargetCPU)-$(TargetOS)"/>
+        <ObjectPath Value="../../Dcu/D7/"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="16">
+      <Item1>
+        <Filename Value="DataAbstract_IDE_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="DataAbstract_IDE_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uDADataAbstractEditors.pas"/>
+        <UnitName Value="uDADataAbstractEditors"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.pas"/>
+        <UnitName Value="uDADataTableMasterLinkWizardForm_laz"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.lfm"/>
+        <Type Value="LFM"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.lrs"/>
+        <Type Value="LRS"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uDADataTableWizards.pas"/>
+        <UnitName Value="uDADataTableWizards"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uDADBSessionManagerEditor.pas"/>
+        <UnitName Value="uDADBSessionManagerEditor"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uDAIDEData.pas"/>
+        <UnitName Value="uDAIDEData"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uDAIDEData.lfm"/>
+        <Type Value="LFM"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uDAIDEData.lrs"/>
+        <Type Value="LRS"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uDAIDEMenu_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAIDEMenu_laz"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uDAIDERes.pas"/>
+        <UnitName Value="uDAIDERes"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uDASchemaUnitsGenerator.pas"/>
+        <UnitName Value="uDASchemaUnitsGenerator"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uDASelectDataTablesForm.pas"/>
+        <UnitName Value="uDASelectDataTablesForm"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uDASelectDataTablesForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uDASelectDataTablesForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item16>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="6">
+      <Item1>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="IDEIntf"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="RemObjects_IDE_Lazarus_Mac"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="DataAbstract_Core_Lazarus_Mac"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="RemObjects_Everwood_Lazarus_Mac"/>
+      </Item5>
+      <Item6>
+        <PackageName Value="LCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item6>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Unix.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Unix.lpk
new file mode 100644
index 0000000..9ee52af
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Unix.lpk	
@@ -0,0 +1,120 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_IDE_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\units\$(TargetCPU)-$(TargetOS)"/>
+        <ObjectPath Value="..\..\Dcu\D7\"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="16">
+      <Item1>
+        <Filename Value="DataAbstract_IDE_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="DataAbstract_IDE_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uDADataAbstractEditors.pas"/>
+        <UnitName Value="uDADataAbstractEditors"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.pas"/>
+        <UnitName Value="uDADataTableMasterLinkWizardForm_laz"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.lfm"/>
+        <Type Value="LFM"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.lrs"/>
+        <Type Value="LRS"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uDADataTableWizards.pas"/>
+        <UnitName Value="uDADataTableWizards"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uDADBSessionManagerEditor.pas"/>
+        <UnitName Value="uDADBSessionManagerEditor"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uDAIDEData.pas"/>
+        <UnitName Value="uDAIDEData"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uDAIDEData.lfm"/>
+        <Type Value="LFM"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uDAIDEData.lrs"/>
+        <Type Value="LRS"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uDAIDEMenu_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAIDEMenu_laz"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uDAIDERes.pas"/>
+        <UnitName Value="uDAIDERes"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uDASchemaUnitsGenerator.pas"/>
+        <UnitName Value="uDASchemaUnitsGenerator"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uDASelectDataTablesForm.pas"/>
+        <UnitName Value="uDASelectDataTablesForm"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uDASelectDataTablesForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uDASelectDataTablesForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item16>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="6">
+      <Item1>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="IDEIntf"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="RemObjects_IDE_Lazarus_Unix"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="DataAbstract_Core_Lazarus_Unix"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="RemObjects_Everwood_Lazarus_Unix"/>
+      </Item5>
+      <Item6>
+        <PackageName Value="LCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item6>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Windows.lpk b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Windows.lpk
new file mode 100644
index 0000000..7cfde89
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Lazarus_Windows.lpk	
@@ -0,0 +1,116 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="DataAbstract_IDE_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+        <ObjectPath Value="..\..\Dcu\D7\"/>
+        <SrcPath Value="..\"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="16">
+      <Item1>
+        <Filename Value="DataAbstract_IDE_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="DataAbstract_IDE_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uDADataAbstractEditors.pas"/>
+        <UnitName Value="uDADataAbstractEditors"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.pas"/>
+        <UnitName Value="uDADataTableMasterLinkWizardForm_laz"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.lfm"/>
+        <Type Value="LFM"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uDADataTableMasterLinkWizardForm_laz.lrs"/>
+        <Type Value="LRS"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uDADataTableWizards.pas"/>
+        <UnitName Value="uDADataTableWizards"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uDADBSessionManagerEditor.pas"/>
+        <UnitName Value="uDADBSessionManagerEditor"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uDAIDEData.pas"/>
+        <UnitName Value="uDAIDEData"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uDAIDEData.lfm"/>
+        <Type Value="LFM"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uDAIDEData.lrs"/>
+        <Type Value="LRS"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uDAIDEMenu_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uDAIDEMenu_laz"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uDAIDERes.pas"/>
+        <UnitName Value="uDAIDERes"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uDASchemaUnitsGenerator.pas"/>
+        <UnitName Value="uDASchemaUnitsGenerator"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uDASelectDataTablesForm.pas"/>
+        <UnitName Value="uDASelectDataTablesForm"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uDASelectDataTablesForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uDASelectDataTablesForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item16>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="5">
+      <Item1>
+        <PackageName Value="RemObjects_Everwood_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_IDE_Lazarus_Windows"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="DataAbstract_Core_Lazarus_Windows"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="IDEIntf"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="LCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item5>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Reg.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Reg.pas
new file mode 100644
index 0000000..b37c6ac
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/DataAbstract_IDE_Reg.pas	
@@ -0,0 +1,190 @@
+unit DataAbstract_IDE_Reg;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - IDE Library                                        }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+{$WARN SYMBOL_DEPRECATED OFF}
+{$WARN UNIT_DEPRECATED OFF}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  SysUtils, DB, Classes,
+  uRODLGenTools,
+  {$IFDEF FPC}
+  ComponentEditors,PropEdits,FormEditingIntf,
+  {$ELSE}
+  ColnEdit,uROProductVersionInfo,
+  {$IFDEF DELPHI5}
+  DsgnIntf, DMDesigner,
+  {$ELSE}
+  DesignIntf, DesignEditors,
+  {$ENDIF}
+  {$ENDIF}
+  uDAClasses, uDADataTable, uDARemoteDataAdapter, uDARemoteDataAdapterRequests,
+  uDADataAbstractEditors, uDADriverManager, uDAInterfaces, uDABusinessProcessor,
+  uDADBSessionManagerEditor, uDADBSessionManager,
+  DARemoteService_Impl, DALoginService_Impl,
+  DataAbstractService_Impl, BaseLoginService_Impl, MultiDbLoginService_Impl,MultiDbLoginServiceV5_Impl,
+  SimpleLoginService_Impl, uDAClientDataModule, uDADesigntimeCall, uDADataTableReferenceCollection,
+  fROAbout, uDADataAdapter, uDALocalDataAdapter, uDALocalCommand;
+
+
+procedure Register;
+begin
+  RegisterComponentEditor(TDADriverManager, TDADriverManagerEditor);
+  RegisterComponentEditor(TDASchema, TDASchemaEditor);
+  RegisterComponentEditor(TDAConnectionManager, TDAConnectionManagerEditor);
+  RegisterComponentEditor(TDADataDictionary, TDADataDictionaryEditor);
+  RegisterComponentEditor(TDADataTable, TDADataTableEditor);
+  RegisterComponentEditor(TDABaseDataAdapter, TDABaseDataAdapterEditor);
+  RegisterComponentEditor(TDARemoteDataAdapter, TDARemoteDataAdapterEditor);
+  RegisterComponentEditor(TDADesigntimeCall, TDADesigntimeCallEditor);
+
+  {$IFDEF MSWINDOWS}
+  //RegisterComponentEditor(TDAClientDataModule, TDAClientDataModuleEditor);
+  {$ENDIF MSWINDOWS}
+
+  RegisterPropertyEditor(TypeInfo(string), TDARemoteRequest, 'MethodName', TDADataRequestCallMethodNameEditor);
+
+  {$IFDEF MSWINDOWS}
+  RegisterPropertyEditor(TypeInfo(string), TDADataTable, 'MasterFields', TDADataTableMasterDetailProps);
+  RegisterPropertyEditor(TypeInfo(string), TDADataTable, 'DetailFields', TDADataTableMasterDetailProps);
+  RegisterPropertyEditor(TypeInfo(TStrings), TDADataTable, 'MasterRequestMappings', TDADataTableMasterDetailProps);
+  RegisterPropertyEditor(TypeInfo(TStrings), TDADataTable, 'MasterParamsMappings', TDADataTableMasterDetailProps);
+  {$ENDIF MSWINDOWS}
+
+  RegisterPropertyEditor(TypeInfo(string), TDADriverManager, 'DriverDirectory', TDADriverManagerDirectory);
+  RegisterPropertyEditor(TypeInfo(TComponent), TDADataTableReference, 'DataTable', TDADataTableReferenceDataTable);
+
+  RegisterPropertyEditor(TypeInfo(TDataset), TDADataSource, 'Dataset', NIL);
+
+  RegisterPropertyEditor(TypeInfo(string), TDADataTable, 'LogicalName', TDADataTableLogicalNameEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADataTable, 'LocalConnection', TDADataTableLocalConnection);
+
+  RegisterPropertyEditor(TypeInfo(string), TDAUpdateRule, 'DatasetName', TDACollectionItemDatasetNameEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADatasetRelationship, 'DetailDatasetName', TDACollectionItemDatasetNameEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADatasetRelationship, 'MasterDatasetName', TDACollectionItemDatasetNameEditor);
+
+  RegisterPropertyEditor(TypeInfo(string), TDABusinessProcessor, 'InsertCommandName', TDABusinessProcessorCommandProperty);
+  RegisterPropertyEditor(TypeInfo(string), TDABusinessProcessor, 'DeleteCommandName', TDABusinessProcessorCommandProperty);
+  RegisterPropertyEditor(TypeInfo(string), TDABusinessProcessor, 'UpdateCommandName', TDABusinessProcessorCommandProperty);
+  RegisterPropertyEditor(TypeInfo(string), TDABusinessProcessor, 'ReferencedDataset', TDABusinessProcessorRefDatasetProperty);
+  RegisterPropertyEditor(TypeInfo(string), TDABusinessProcessor, 'RefreshDatasetName', TDABusinessProcessorRefDatasetProperty);
+
+  RegisterPropertyEditor(TypeInfo(string), TDADBSessionManager, 'InsertSessionCommand', TDASchemaCommandListEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADBSessionManager, 'UpdateSessionCommand', TDASchemaCommandListEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADBSessionManager, 'DeleteSessionCommand', TDASchemaCommandListEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADBSessionManager, 'ClearSessionsCommand', TDASchemaCommandListEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADBSessionManager, 'GetSessionCountDataSet', TDASchemaDataSetListEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADBSessionManager, 'GetAllSessionIDsDataset', TDASchemaDataSetListEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADBSessionManager, 'GetSessionDataSet', TDASchemaDataSetListEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDADBSessionManager, 'Connection', TDASchemaConnectionsListEditor);
+
+  RegisterPropertyEditor(TypeInfo(TCollection), TDADataset, 'Fields', TCollectionProperty);
+  RegisterPropertyEditor(TypeInfo(TCollection), TDADataset, 'Params', TCollectionProperty);
+  RegisterPropertyEditor(TypeInfo(TCollection), TDADataset, 'Statements', TCollectionProperty);
+
+  RegisterPropertyEditor(TypeInfo(string), TDALoginService, 'LoginDataset', TDARemoteServiceDataSetListEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDALoginService, 'LogoutCommand', TDARemoteServiceCommandListEditor);
+
+  RegisterPropertyEditor(TypeInfo(string), TDAField, 'KeyFields', TDALookupSourceProperty);
+  RegisterPropertyEditor(TypeInfo(string), TDAField, 'LookupKeyFields', TDALookupDestProperty);
+  RegisterPropertyEditor(TypeInfo(string), TDAField, 'LookupResultField', TDALookupResultFieldProperty);
+
+  RegisterPropertyEditor(TypeInfo(string), TDALocalDataAdapter, 'ServiceName', TDALocalDataAdapterServiceEditor);
+  RegisterPropertyEditor(TypeInfo(string), TDALocalCommand, 'ServiceName', TDALocalDataAdapterServiceEditor);
+
+  {$IFDEF FPC}
+  FormEditingHook.RegisterDesignerBaseClass(TDARemoteService);
+  FormEditingHook.RegisterDesignerBaseClass(TDALoginService);
+  FormEditingHook.RegisterDesignerBaseClass(TDataAbstractService);
+  FormEditingHook.RegisterDesignerBaseClass(TBaseLoginService);
+  FormEditingHook.RegisterDesignerBaseClass(TSimpleLoginService);
+  FormEditingHook.RegisterDesignerBaseClass(TMultiDbLoginService);
+  FormEditingHook.RegisterDesignerBaseClass(TMultiDbLoginServiceV5);
+  FormEditingHook.RegisterDesignerBaseClass(TDAClientDataModule);
+  {$ELSE}
+  {$IFDEF VER140UP}
+  RegisterCustomModule(TDARemoteService, TCustomModule);
+  RegisterCustomModule(TDALoginService, TCustomModule);
+  RegisterCustomModule(TDataAbstractService, TCustomModule);
+  RegisterCustomModule(TBaseLoginService, TCustomModule);
+  RegisterCustomModule(TSimpleLoginService, TCustomModule);
+  RegisterCustomModule(TMultiDbLoginService, TCustomModule);
+  RegisterCustomModule(TMultiDbLoginServiceV5, TCustomModule);
+  {$ELSE}
+  RegisterCustomModule(TDARemoteService, TDataModuleDesignerCustomModule);
+  RegisterCustomModule(TDALoginService, TDataModuleDesignerCustomModule);
+  RegisterCustomModule(TDataAbstractService, TDataModuleDesignerCustomModule);
+  RegisterCustomModule(TBaseLoginService, TDataModuleDesignerCustomModule);
+  RegisterCustomModule(TSimpleLoginService, TDataModuleDesignerCustomModule);
+  RegisterCustomModule(TMultiDbLoginService, TDataModuleDesignerCustomModule);
+  RegisterCustomModule(TMultiDbLoginServiceV5, TDataModuleDesignerCustomModule);
+  {$ENDIF}
+  RegisterCustomModule(TDAClientDataModule,TCustomModule);
+  { TDARemoteDataAdapter }
+  RegisterPropertiesInCategory('Dynamic Method Binding', TDARemoteDataAdapter, ['GetSchemaCall', 'GetDataCall', 'GetScriptsCall', 'UpdateDataCall']);
+
+  RegisterPropertiesInCategory('Legacy', TDAGetDataRequest, ['OutgoingParamsParameter', 'OutgoingIncludeSchemaParameter', 'OutgoingMaxRecordsParameter']);
+
+  { TDADataTable }
+  //RegisterPropertiesInCategory('Legacy v3.0', TDADataTable, ['DataRequestCall', 'DataUpdateCall', 'SchemaCall', 'ScriptCall', 'Adapter']);
+  RegisterPropertiesInCategory('Master/Detail', TDADataTable, ['MasterFields', 'MasterMappingMode', 'MasterOptions', 'MasterParamsMappings', 'MasterRequestMappings', 'MasterSource', 'DetailFields', 'DetailOptions']);
+  RegisterPropertiesInCategory('Database', TDADataTable, ['Fields', 'Params', 'LogicalName', 'IndexDefs', 'IndexName', 'Active', 'StoreActive', 'LogChanges', 'MaxRecords']);
+  RegisterPropertiesInCategory('Business Rules', TDADataTable, ['BusinessRulesID', 'ScriptCode']);
+  RegisterPropertiesInCategory('Local Data', TDADataTable, ['LocalConnection', 'LocalSchema', 'LocalDataStreamer']);
+
+  { DA Service }
+
+  { Login Services }
+  RegisterPropertiesInCategory('Login', TBaseLoginService, ['OnLogout']);
+  RegisterPropertiesInCategory('Login', TSimpleLoginService, ['OnLogin']);
+  RegisterPropertiesInCategory('Login', TMultiDbLoginService, ['OnLogin']);
+  {$ENDIF}
+
+  RegisterRODataModuleClass(TDataAbstractService,
+    '&Data Abstract 4.0 Service',
+    'Data Abstract datamodule. '+
+    'This is the preferred server type when creating a Data Abstract version 4.0 or above server.',
+    'uRORemoteDataModule, uDAInterfaces, DataAbstractService_Impl, DataAbstract4_Intf'
+  );
+
+  RegisterRODataModuleClass(TDARemoteService,
+    'Data Abstract &3.0 Remote Service',
+    'Data Abstract datamodule. This is the preferred server type when creating backward-compatible version 3.0 Data Abstract server.',
+    'uRORemoteDataModule, uDAInterfaces, DARemoteService_Impl, DataAbstract3_Intf'
+  );
+
+
+
+end;
+
+{$IFNDEF FPC}
+{$IFDEF MSWINDOWS}
+initialization
+  RegisterProduct('{261E7EA5-C380-42A4-90AC-1FA10ADB39D8}',VersionBuildNo(hInstance));
+finalization
+  UnregisterProduct('{261E7EA5-C380-42A4-90AC-1FA10ADB39D8}');
+{$ENDIF MSWINDOWS}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/Resources.BDS.RES b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/Resources.BDS.RES
new file mode 100644
index 0000000..d8238b6
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/Resources.BDS.RES differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleDataTableWizardForm.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleDataTableWizardForm.dfm
new file mode 100644
index 0000000..1b2f269
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleDataTableWizardForm.dfm	
@@ -0,0 +1,176 @@
+object DAClientDataModuleDataTableWizardForm: TDAClientDataModuleDataTableWizardForm
+  Left = 417
+  Top = 173
+  BorderStyle = bsDialog
+  BorderWidth = 5
+  Caption = '%s - DataTable Wizard'
+  ClientHeight = 412
+  ClientWidth = 339
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  DesignSize = (
+    339
+    412)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbl_ServerUrl1: TLabel
+    Left = 0
+    Top = 0
+    Width = 90
+    Height = 13
+    Caption = 'Select DataSets'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object lbl_ServerUrl2: TLabel
+    Left = 16
+    Top = 16
+    Width = 248
+    Height = 26
+    Caption = 
+      'Select the Datasets  for that you want to generate TDADataTable ' +
+      'components.'
+    WordWrap = True
+  end
+  object BitBtn2: TBitBtn
+    Left = 264
+    Top = 387
+    Width = 75
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 0
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+      FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+      00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+      00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+      F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+      00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+      6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+      A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+      A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+      ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+      ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+      6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+      F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+      00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+      00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+      FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+      00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object BitBtn1: TBitBtn
+    Left = 184
+    Top = 387
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'Finish'
+    Default = True
+    ModalResult = 1
+    TabOrder = 1
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00FF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+      811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF787878787878FF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      811E00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF787878787878787878FF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878898989787878FF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF811E00A7632F811E00811E00FF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7878789F9F9F78787878
+      7878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878B8B8B8C6
+      C6C6787878787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF811E00D8B69CE6D1BFE7D3C4811E00FF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878D1
+      D1D1E0E0E0E2E2E2787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+      7878EBEBEBF5F5F5F1F1F1787878787878FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF811E00D8AF96F4E2CFF0D7BDD8A784811E
+      00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+      7878D0D0D0E9E9E9E3E3E3CACACA787878787878FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878E7
+      E7E7E1E1E1DBDBDBC9C9C9787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF811E00E7BB92E3B081E0A672D5925A811E
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+      7878D3D3D3CDCDCDC6C6C6BCBCBC787878FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+      35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FF787878BFBFBFB8B8B8B2B2B2ACACAC787878FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00811E
+      00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FF787878787878787878787878787878787878FF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object lb_DataSets: TCheckListBox
+    Left = 16
+    Top = 48
+    Width = 323
+    Height = 329
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ItemHeight = 13
+    TabOrder = 2
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleDataTableWizardForm.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleDataTableWizardForm.pas
new file mode 100644
index 0000000..e48152d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleDataTableWizardForm.pas	
@@ -0,0 +1,114 @@
+unit uDAClientDataModuleDataTableWizardForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, CheckLst, Buttons, uDAClientDataModule, DesignIntf;
+
+type
+  TDAClientDataModuleDataTableWizardForm = class(TForm)
+    BitBtn2: TBitBtn;
+    BitBtn1: TBitBtn;
+    lbl_ServerUrl1: TLabel;
+    lbl_ServerUrl2: TLabel;
+    lb_DataSets: TCheckListBox;
+  private
+    fModule:TDAClientDataModule;
+    procedure FillDataSets;
+  public
+    class function Execute(aOwner: TComponent; aModule:TDAClientDataModule; aDesigner:IDesigner):boolean;
+  end;
+
+var
+  DAClientDataModuleDataTableWizardForm: TDAClientDataModuleDataTableWizardForm;
+
+implementation
+
+uses
+  uROClasses, uDAIDERes, uRODL, uRORemoteService,
+  uDADataAbstractEditors, uDAMemDataTable, uDAClasses, uDAPleaseWaitForm;
+
+{$R *.dfm}
+
+{ TDAClientDataModuleDataTableWizardForm }
+
+class function TDAClientDataModuleDataTableWizardForm.Execute(aOwner: TComponent; aModule: TDAClientDataModule; aDesigner:IDesigner): boolean;
+var
+  i:integer;
+begin
+  if not Assigned(aModule.RemoteService) then         RaiseError(err_AssignRemoteService);
+  if not Assigned(aModule.RemoteService.Channel) then RaiseError(err_AssignRemoteServiceChannel);
+  if not Assigned(aModule.RemoteService.Message) then RaiseError(err_AssignRemoteServiceMessage);
+
+  with self.Create(aOwner) do try
+
+    fModule := aModule;
+    Caption := Format(Caption,[fModule.Name]);
+    FillDataSets();
+
+    result := ShowModal() = idOk;
+    if result then begin
+
+      for i := 0 to lb_DataSets.Items.Count-1 do begin
+        if lb_DataSets.Checked[i] then begin
+          CreateDataTable(aDesigner, aModule, TDAMemDataTable, lb_DataSets.Items[i], false);
+        end;
+      end;
+
+    end;
+
+  finally
+    Free();
+  end;
+end;
+
+procedure TDAClientDataModuleDataTableWizardForm.FillDataSets;
+var
+  i: integer;
+  lSchema: TDASchema;
+  lDataSets: TStringList;
+begin
+
+  lDataSets := TStringList.Create();
+  try
+    lDataSets.Duplicates := dupIgnore;
+    lDataSets.Sorted := true;
+
+
+    lSchema := nil;
+    with CreatePleaseWaitForm(self,'Retrieving Schema...') do begin
+      fModule.GetSchema(lSchema,true);
+      Hide;
+    end;
+    try
+      for i := 0 to lSchema.Datasets.Count-1 do begin
+        lDataSets.Add(lSchema.Datasets[i].Name);
+      end; { for }
+    finally
+      lSchema.Free();
+    end;
+
+    lb_DataSets.Items.Assign(lDataSets);
+    for i := 0 to lb_Datasets.Items.Count-1 do begin
+      lb_DataSets.Checked[i] := true;
+    end; { for }
+
+  finally
+    FreeAndNil(lDataSets);
+  end;
+  {lLibrary := fModule.RemoteService.GetRODLLibrary();
+  if not Assigned (lLibrary) then RaiseError('Library could not retrieved from server');
+  try
+    lDataSets := fModule.RemoteService.GetServiceMethods();
+    for i := 0 to lDataSets.Count-1 do begin
+      p := Pos('_',lDataSets[i]);
+      if p > 0 then
+        lb_DataSets.Checked[lb_DataSets.Items.Add(Copy(lDataSets[i],p+1,Length(lDataSets[i])-p))] := true;
+    end;
+  finally
+    lLibrary.Free();
+  end; }
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleEditorForm.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleEditorForm.dfm
new file mode 100644
index 0000000..3b17c9c
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleEditorForm.dfm	
@@ -0,0 +1,280 @@
+object DAClientDataModuleEditorForm: TDAClientDataModuleEditorForm
+  Left = 381
+  Top = 253
+  BorderStyle = bsDialog
+  BorderWidth = 5
+  Caption = '%s - ClientDataModule Editor'
+  ClientHeight = 183
+  ClientWidth = 322
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  DesignSize = (
+    322
+    183)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbl_ServerUrl1: TLabel
+    Left = 0
+    Top = 0
+    Width = 66
+    Height = 13
+    Caption = 'Server URL:'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object lbl_ServerUrl2: TLabel
+    Left = 16
+    Top = 16
+    Width = 211
+    Height = 13
+    Caption = 'Select the URL of yout development server.'
+  end
+  object lbl_ServerUrl3: TLabel
+    Left = 16
+    Top = 32
+    Width = 308
+    Height = 26
+    Caption = 
+      'If you have kept the defaults when writing the server and are ru' +
+      'nning the server on this machine, the default  value will be ok:'
+    WordWrap = True
+  end
+  object Label4: TLabel
+    Left = 0
+    Top = 96
+    Width = 77
+    Height = 13
+    Caption = 'Service Name'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label5: TLabel
+    Left = 16
+    Top = 112
+    Width = 228
+    Height = 13
+    Caption = 'Select the Service that you want to connect to:'
+  end
+  object btn_CreateTables: TBitBtn
+    Left = 62
+    Top = 158
+    Width = 126
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'Create DataTables'
+    ModalResult = 1
+    TabOrder = 0
+    OnClick = btn_CreateTablesClick
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000130B0000130B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08750D08750D08750D0875
+      0DFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FF8C8C8C8C8C8C8C8C8C8C8C8CFF00FFFF00FFFF00FFFF00FFFF00FF
+      0E80AA0E80AA0E80AA0E80AA0E80AA0E80AAFF00FF08750D13AA2210A61D0875
+      0DFF00FFFF00FFFF00FFFF00FFFF00FF83838383838383838383838383838383
+      8383FF00FF8C8C8CA3A3A3A1A1A18C8C8CFF00FFFF00FFFF00FFFF00FF078DBB
+      49D5EE23D7FE36D9FE6FE6FF8DE7FA44BADD0E80AA08750D1AB12D16AD260875
+      0DFF00FFFF00FFFF00FFFF00FF878787AFAFAFA8A8A8AFAFAFC3C3C3CCCCCCA8
+      A8A88383838C8C8CA8A8A8A5A5A58C8C8CFF00FFFF00FFFF00FF078DBB8CFBFE
+      59EAFE23D7FE36D8FD6CE0F808750D08750D08750D08750D22B93B1DB5320875
+      0D08750D08750D08750D878787CDCDCDBBBBBBA8A8A8AEAEAEC0C0C08C8C8C8C
+      8C8C8C8C8C8C8C8CADADADAAAAAA8C8C8C8C8C8C8C8C8C8C8C8C078DBB8CFBFE
+      59EAFE23D7FE36D8FD6CE0F808750D3CD46236CF5A30C9522CC34926BE4121B8
+      381CB43117AF2A08750D878787CDCDCDBBBBBBA8A8A8AEAEAEC0C0C08C8C8CC0
+      C0C0BCBCBCB8B8B8B4B4B4B1B1B1ACACACAAAAAAA6A6A68C8C8C078DBB8CFBFE
+      59EAFE23D7FE36D9FE6CE1F908750D44DD703FD8683AD26035CD582FC74F2AC1
+      4725BD3E20B83608750D878787CDCDCDBBBBBBA8A8A8AFAFAFC0C0C08C8C8CC6
+      C6C6C2C2C2BFBFBFBBBBBBB7B7B7B3B3B3B0B0B0ACACAC8C8C8C078DBBB3FCFE
+      B6F6FFC6F5FFE3FAFFE9F9FD08750D08750D08750D08750D3ED76638D15E0875
+      0D08750D08750D08750D878787DADADADCDCDCE1E1E1ECECECEDEDED8C8C8C8C
+      8C8C8C8C8C8C8C8CC2C2C2BDBDBD8C8C8C8C8C8C8C8C8C8C8C8C078DBBBAEEF6
+      30BCDD11A7D2129FCB20A1CA35A7CD2692BF92CEE408750D46DE7341DA6D0875
+      0DFF00FFFF00FFFF00FF878787DADADAA1A1A19292929090909595959D9D9D93
+      9393C6C6C68C8C8CC7C7C7C4C4C48C8C8CFF00FFFF00FFFF00FF078DBB4AC5DD
+      59EAFE23D7FE36D9FE6FE6FF8DE7FA49C1E30682B608750D4DE67F49E2790875
+      0DFF00FFFF00FFFF00FF878787AAAAAABBBBBBA8A8A8AFAFAFC3C3C3CCCCCCAC
+      ACAC8585858C8C8CCCCCCCC9C9C98C8C8CFF00FFFF00FFFF00FF078DBB8CFBFE
+      59EAFE23D7FE36D9FE6FE6FF8DE7FA49C1E3089DCF08750D08750D08750D0875
+      0DFF00FFFF00FFFF00FF878787CDCDCDBBBBBBA8A8A8AFAFAFC3C3C3CCCCCCAC
+      ACAC8E8E8E8C8C8C8C8C8C8C8C8C8C8C8CFF00FFFF00FFFF00FF078DBB8CFBFE
+      59EAFE23D7FE36D9FE6FE6FF8DE7FA49C1E3089CCE0E7FA9FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF878787CDCDCDBBBBBBA8A8A8AFAFAFC3C3C3CCCCCCAC
+      ACAC8E8E8E838383FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF078DBB8CFBFE
+      59EAFE23D7FE36D9FE6FE6FF8DE7FA49C1E3089DCF0E80AAFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF878787CDCDCDBBBBBBA8A8A8AFAFAFC3C3C3CCCCCCAC
+      ACAC8E8E8E838383FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF078DBB91FCFE
+      82F8FF6FF8FF7AFEFF97FEFFA0FCFE63DAF50DA2D40E80AAFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF878787CECECEC9C9C9C3C3C3C7C7C7D1D1D1D4D4D4BB
+      BBBB919191838383FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF078DBBFCFFFF
+      F4FFFFD3FFFFB4FFFFADFFFFADFFFFA9FFFF72F9FE0E80AAFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF878787F4F4F4F1F1F1E6E6E6DBDBDBD9D9D9D9D9D9D7
+      D7D7C4C4C4838383FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0C92C0
+      F1FBFDE4FFFFC7FFFFAEFFFFA8FFFF9BFBFC1385AFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF8A8A8AF0F0F0ECECECE2E2E2D9D9D9D7D7D7D1
+      D1D1878787FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      078DBB078DBB078DBB078DBB078DBB078DBBFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF87878787878787878787878787878787
+      8787FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object BitBtn2: TBitBtn
+    Left = 259
+    Top = 158
+    Width = 63
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 1
+    OnClick = BitBtn2Click
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+      FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+      00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+      00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+      F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+      00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+      6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+      A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+      A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+      ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+      ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+      6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+      F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+      00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+      00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+      FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+      00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object ed_ServerUrl: TEdit
+    Left = 16
+    Top = 64
+    Width = 306
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 2
+    OnChange = ed_ServerUrlChange
+  end
+  object cb_Services: TComboBox
+    Left = 16
+    Top = 128
+    Width = 306
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 3
+    OnChange = cb_ServicesChange
+    OnCloseUp = cb_ServicesChange
+    OnEnter = cb_ServicesEnter
+    OnExit = cb_ServicesChange
+  end
+  object BitBtn1: TBitBtn
+    Left = 193
+    Top = 158
+    Width = 61
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'Finish'
+    Default = True
+    ModalResult = 1
+    TabOrder = 4
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00FF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+      811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF787878787878FF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      811E00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF787878787878787878FF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878898989787878FF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF811E00A7632F811E00811E00FF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7878789F9F9F78787878
+      7878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878B8B8B8C6
+      C6C6787878787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF811E00D8B69CE6D1BFE7D3C4811E00FF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878D1
+      D1D1E0E0E0E2E2E2787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+      7878EBEBEBF5F5F5F1F1F1787878787878FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF811E00D8AF96F4E2CFF0D7BDD8A784811E
+      00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+      7878D0D0D0E9E9E9E3E3E3CACACA787878787878FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878E7
+      E7E7E1E1E1DBDBDBC9C9C9787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF811E00E7BB92E3B081E0A672D5925A811E
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+      7878D3D3D3CDCDCDC6C6C6BCBCBC787878FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+      35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FF787878BFBFBFB8B8B8B2B2B2ACACAC787878FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00811E
+      00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FF787878787878787878787878787878787878FF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleEditorForm.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleEditorForm.pas
new file mode 100644
index 0000000..c5a26ff
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleEditorForm.pas	
@@ -0,0 +1,148 @@
+unit uDAClientDataModuleEditorForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDAClientDataModule, StdCtrls, Buttons, DesignIntf;
+
+type
+  TDAClientDataModuleEditorForm = class(TForm)
+    btn_CreateTables: TBitBtn;
+    BitBtn2: TBitBtn;
+    lbl_ServerUrl1: TLabel;
+    ed_ServerUrl: TEdit;
+    lbl_ServerUrl2: TLabel;
+    lbl_ServerUrl3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    cb_Services: TComboBox;
+    BitBtn1: TBitBtn;
+    procedure ed_ServerUrlChange(Sender: TObject);
+    procedure cb_ServicesEnter(Sender: TObject);
+    procedure BitBtn2Click(Sender: TObject);
+    procedure btn_CreateTablesClick(Sender: TObject);
+    procedure cb_ServicesChange(Sender: TObject);
+  private
+    fServerUrlChanged: boolean;
+    fRestoreServerUrl: string;
+    fModule:TDAClientDataModule;
+    fCreateDataTables: boolean;
+    procedure FillServiceCombo;
+
+  public
+    class function Execute(aOwner: TCOmponent; aModule:TDAClientDataModule; aDesigner:IDesigner):boolean;
+  end;
+
+var
+  DAClientDataModuleEditorForm: TDAClientDataModuleEditorForm;
+
+implementation
+
+uses
+  uROClasses, TypInfo, uDAIDERes, uDAPleaseWaitForm,
+    uDAClientDataModuleDataTableWizardForm;
+
+{$R *.dfm}
+
+{ TDAClientDataModuleEditorForm }
+
+class function TDAClientDataModuleEditorForm.Execute(aOwner: TCOmponent; aModule: TDAClientDataModule; aDesigner:IDesigner): boolean;
+begin
+  if not Assigned(aModule.RemoteService) then         RaiseError(err_AssignRemoteService);
+  if not Assigned(aModule.RemoteService.Channel) then RaiseError(err_AssignRemoteServiceChannel);
+  if not Assigned(aModule.RemoteService.Message) then RaiseError(err_AssignRemoteServiceMessage);
+
+  with self.Create(aOwner) do try
+
+    fModule := aModule;
+    Caption := Format(Caption,[fModule.Name]);
+
+
+    try
+      fRestoreServerUrl := GetStrProp(fModule.RemoteService.Channel,'TargetURL');
+      ed_ServerUrl.Text := fRestoreServerUrl;
+      fServerUrlChanged := false;
+    except
+      ed_ServerUrl.Enabled := false;
+      lbl_ServerUrl1.Enabled := false;
+      lbl_ServerUrl2.Enabled := false;
+      lbl_ServerUrl3.Enabled := false;
+    end;
+
+    FillServiceCombo();
+    cb_Services.ItemIndex := cb_Services.Items.IndexOf(fModule.RemoteService.ServiceName);
+    cb_ServicesChange(nil);
+
+    result := ShowModal() = idOk;
+    if result then begin
+      if ed_ServerUrl.Enabled then SetStrProp(fModule.RemoteService.Channel,'TargetURL',ed_ServerUrl.Text);
+      fModule.RemoteService.ServiceName := cb_Services.Text;
+
+      if fCreateDataTables then begin
+        TDAClientDataModuleDataTableWizardForm.Execute(aOwner, fModule, aDesigner);
+      end;
+
+    end;
+
+  finally
+    Free();
+  end;
+end;
+
+procedure TDAClientDataModuleEditorForm.ed_ServerUrlChange(
+  Sender: TObject);
+begin
+  fServerUrlChanged := true;
+end;
+
+procedure TDAClientDataModuleEditorForm.FillServiceCombo;
+var
+  lServiceNames: IROStrings;
+  i:integer;
+begin
+  Screen.Cursor := crHourGlass;
+  try
+    cb_Services.Items.Clear();
+    lServiceNames := fModule.RemoteService.GetServiceNames();
+    if Assigned(lServiceNames) then begin
+      for i := 0 to (lServiceNames.Count-1) do
+        cb_Services.Items.Add(lServiceNames[i]);
+    end
+    else begin
+      cb_Services.Text := '<could not retrieve RODL>';
+    end;
+    cb_ServicesChange(nil);
+  finally
+    Screen.Cursor := crDefault;
+  end;
+end;
+
+procedure TDAClientDataModuleEditorForm.cb_ServicesEnter(Sender: TObject);
+begin
+  if fServerUrlChanged then begin
+    if ed_ServerUrl.Enabled then begin
+      SetStrProp(fModule.RemoteService.Channel,'TargetURL',ed_ServerUrl.Text);
+      FillServiceCombo();
+    end;
+    fServerUrlChanged := true;
+  end
+end;
+
+procedure TDAClientDataModuleEditorForm.BitBtn2Click(Sender: TObject);
+begin
+  if ed_ServerUrl.Enabled then
+    SetStrProp(fModule.RemoteService.Channel,'TargetURL',fRestoreServerUrl);
+end;
+
+procedure TDAClientDataModuleEditorForm.btn_CreateTablesClick(Sender: TObject);
+begin
+  fCreateDataTables := true;
+end;
+
+procedure TDAClientDataModuleEditorForm.cb_ServicesChange(Sender: TObject);
+begin
+  btn_CreateTables.Enabled := cb_Services.Text <> '';
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleWizard.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleWizard.pas
new file mode 100644
index 0000000..8ced8e8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientDataModuleWizard.pas	
@@ -0,0 +1,394 @@
+unit uDAClientDataModuleWizard;
+
+{$I DataAbstract.inc}
+
+interface
+
+uses DesignEditors, ToolsAPI, Windows, ActnList, Menus, Classes;
+
+const CRLF = #13#10;		// Carriage-return line-feed.
+
+resourcestring
+  sBasicDfmSource =
+    'object %0:s: T%0:s'                                       + crlf +
+    '  Left = 200'                                             + crlf +
+    '  Top = 200'                                              + crlf +
+    '  Height = 300'                                           + crlf +
+    '  Width = 300'                                            + crlf +
+    '  RemoteService = RORemoteService'                        + crlf +
+    '  Adapter = DABinAdapter'                                 + crlf +
+    '  SchemaCall.MethodName = ''GetSchemaAsXML'''             + crlf +
+    '  SchemaCall.Params = <'                                  + crlf +
+    '    item'                                                 + crlf +
+    '      Name = ''Result'''                                  + crlf +
+    '      ParamType = fResult'                                + crlf +
+    '      DataType = rtString'                                + crlf +
+    '    end>'                                                 + crlf +
+    '  object ROChannel: TROWinInetHTTPChannel'                + crlf +
+    '    UserAgent = ''RemObjects SDK'''                       + crlf +
+    '    TargetURL = ''http://localhost:8099/bin'''            + crlf +
+    '    Left = 40'                                            + crlf +
+    '    Top = 8'                                              + crlf +
+    '  end'                                                    + crlf +
+    '   object ROMessage: TROBinMessage'                       + crlf +
+    '    Left = 40'                                            + crlf +
+    '    Top = 52'                                             + crlf +
+    '  end'                                                    + crlf +
+    '  object RORemoteService: TRORemoteService'               + crlf +
+    '    Message = ROMessage'                                  + crlf +
+    '    Channel = ROChannel'                                  + crlf +
+    '    Left = 40'                                            + crlf +
+    '    Top = 96'                                             + crlf +
+    '   end'                                                   + crlf +
+    '   object DABinAdapter: TDABINAdapter'                    + crlf +
+    '     Left = 40'                                           + crlf +
+    '     Top = 144'                                           + crlf +
+    '   end'                                                   + crlf +
+    'end';
+
+  sBasicFormSource =
+    'unit %0:s;' 					       + crlf +
+                                                                 crlf +
+    'interface'  					       + crlf +
+                                                                 crlf +
+    'uses {vcl:} SysUtils, Classes, DB, DBClient, '            + crlf +
+    '     {RemObjects:} %3:s;'                                 + crlf +
+                                                                 crlf +
+    'type'                                                     + crlf +
+    '  T%1:s = class(%2:s)'  				                           + crlf +
+    '    ROChannel: TROWinInetHTTPChannel;'                    + crlf +
+    '    ROMessage: TROBinMessage;'                            + crlf +
+    '    RORemoteService: TRORemoteService;'                   + crlf +
+    '    DABinAdapter: TDABINAdapter;'                         + crlf +
+    '  private'  			                                         + crlf +
+    '    { Private declarations }' 		                         + crlf +
+    '  public'  			                                         + crlf +
+    '    { Public declarations }' 		                         + crlf +
+    '  end;'	 					                                       + crlf +
+                                                                 crlf +
+    'var'  						                                         + crlf +
+    '  %1:s: T%1:s;'                                           + crlf +
+                                                                 crlf +
+    'implementation'                                           + crlf +
+                                                                 crlf +
+    '{$R *.DFM}'                                               + crlf +
+                                                                 crlf +
+    'initialization'                                           + crlf +
+    'end.' 																									   ;
+
+type TSourceFile = class(TInterfacedObject, IOTAFile)
+     private
+       fAge: TDateTime;
+       fSource:string;
+     public
+       function GetSource: string;
+       function GetAge: TDateTime;
+       constructor Create(const iSource:string);
+     end;
+
+     TBaseFormCreator = class(TInterfacedObject, IOTAModuleCreator)
+     public
+       function GetCreatorType: string;
+       function GetExisting: Boolean;
+       function GetFileSystem: string;
+       function GetOwner: IOTAModule;
+       function GetUnnamed: Boolean;
+
+       function GetAncestorName: string;
+       function GetImplFileName: string;
+       function GetIntfFileName: string;
+       function GetFormName: string;
+       function GetMainForm: Boolean;
+       function GetShowForm: Boolean;
+       function GetShowSource: Boolean;
+       function NewFormFile(const FormIdent, AncestorIdent: string): IOTAFile;
+       function NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+       function NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+
+       procedure FormCreated(const FormEditor: IOTAFormEditor);
+     end;		{ TBaseFormCreator }
+
+     TNewModuleExpert = class(TInterfacedObject,
+       IOTAWizard,
+       IOTARepositoryWizard,
+       IOTAFormWizard,
+       {$IFDEF BDS}
+       IOTARepositoryWizard80,
+       {$ENDIF}
+       IOTARepositoryWizard60)
+     public
+
+       constructor Create();
+       destructor Destroy(); override;
+
+       procedure AfterSave;
+       procedure BeforeSave;
+       procedure Destroyed;
+       procedure Modified;
+
+       procedure Execute;
+       function GetAuthor: String;
+       function GetComment: String;
+       function GetGlyph: Cardinal;
+       function GetIDString: String;
+       function GetName: String;
+       function GetPage: String;
+       function GetState: TWizardState;
+       function GetDesigner: String;
+
+       {$IFDEF BDS}
+       function GetGalleryCategory: IOTAGalleryCategory;
+       function GetPersonality: string;
+       {$ENDIF}
+
+     end;
+
+procedure Register;
+
+implementation
+
+uses SysUtils, Graphics,
+     uRORes, uDADataAbstractEditors, Dialogs, uDAClientDataModuleEditorForm, Forms,
+       uDAClientDataModule;
+
+{ TBaseFormCreator }
+
+procedure TBaseFormCreator.FormCreated(const FormEditor: IOTAFormEditor);
+begin
+
+end;
+
+function TBaseFormCreator.GetAncestorName: string;
+begin
+  result := 'TDAClientDataModule';
+end;
+
+function TBaseFormCreator.GetCreatorType: string;
+begin
+  result := sForm;
+end;
+
+function TBaseFormCreator.GetExisting: Boolean;
+begin
+  result := false;
+end;
+
+function TBaseFormCreator.GetFileSystem: string;
+begin
+  result := '';
+end;
+
+function TBaseFormCreator.GetFormName: string;
+begin
+  result := '';
+end;
+
+function TBaseFormCreator.GetImplFileName: string;
+begin
+  result := '';
+end;
+
+function TBaseFormCreator.GetIntfFileName: string;
+begin
+  result := '';
+end;
+
+function TBaseFormCreator.GetMainForm: Boolean;
+begin
+  result := false;
+end;
+
+function TBaseFormCreator.GetOwner: IOTAModule;
+var
+  ModuleServices: IOTAModuleServices;
+  Module: IOTAModule;
+  NewModule: IOTAModule;
+begin
+  Result := nil;
+  if BorlandIDEServices.QueryInterface(IOTAModuleServices, ModuleServices) =
+S_OK then
+  begin
+    Module := ModuleServices.CurrentModule;
+    if Module <> nil then
+      if Module.GetOwnerCount > 0 then
+      begin
+         NewModule := Module.GetOwner(0);
+         if NewModule <> nil then
+            if NewModule.QueryInterface(IOTAProject, Result) <> S_OK then
+               Result := nil;
+      end;
+  end;
+end;
+
+function TBaseFormCreator.GetShowForm: Boolean;
+begin
+  result := true;
+end;
+
+function TBaseFormCreator.GetShowSource: Boolean;
+begin
+  result := true;
+end;
+
+function TBaseFormCreator.GetUnnamed: Boolean;
+begin
+  result := true;
+end;
+
+function RemoveInitialT(const iString:string):string;
+begin
+  result := iString;
+  if (result <> '') and (result[1] = 'T') then Delete(result,1,1);
+  //ShowMessage(iString+' '+result);
+end;
+
+function TBaseFormCreator.NewFormFile(const FormIdent,
+  AncestorIdent: string): IOTAFile;
+begin
+  result := TSourceFile.Create(Format(sBasicDfmSource,[RemoveInitialT(FormIdent)]));
+end;
+
+function TBaseFormCreator.NewImplSource(const ModuleIdent, FormIdent,
+  AncestorIdent: string): IOTAFile;
+begin
+  result := TSourceFile.Create(Format(sBasicFormSource,[ModuleIdent,RemoveInitialT(FormIdent),AncestorIdent,'uDAClientDataModule']));
+end;
+
+function TBaseFormCreator.NewIntfSource(const ModuleIdent, FormIdent,
+  AncestorIdent: string): IOTAFile;
+begin
+
+end;
+
+{ TSourceFile }
+
+constructor TSourceFile.Create(const iSource: string);
+begin
+  inherited Create();
+  fSource := iSource;
+  fAge := Now;
+end;
+
+function TSourceFile.GetAge: TDateTime;
+begin
+  result := fAge;
+end;
+
+function TSourceFile.GetSource: string;
+begin
+  result := fSource;
+end;
+
+{ TNewModuleExpert }
+
+constructor TNewModuleExpert.Create;
+begin
+  inherited;
+end;
+
+destructor TNewModuleExpert.Destroy;
+begin
+  inherited;
+end;
+
+procedure TNewModuleExpert.Execute;
+var
+  lModuleServices: IOTAModuleServices;
+  lModuleCreator: IOTAModuleCreator;
+  lModule: IOTAModule;
+begin
+  if BorlandIDEServices.QueryInterface(IOTAModuleServices, lModuleServices) = S_OK then
+  begin
+    lModuleCreator := TBaseFormCreator.Create();
+    lModule := lModuleServices.CreateModule(lModuleCreator);
+    TDAClientDataModuleEditorForm.Execute(Application,
+                                          (lModule.GetCurrentEditor as INTAFormEditor).FormDesigner.Root as TDAClientDataModule,
+                                          (lModule.GetCurrentEditor as INTAFormEditor).FormDesigner);
+  end;
+end;
+
+function TNewModuleExpert.GetAuthor: String;
+begin
+  result := 'RemObjects Software';
+end;
+
+function TNewModuleExpert.GetComment: String;
+begin
+  result := 'Data Abstract ClientDataModule';
+end;
+
+function TNewModuleExpert.GetGlyph: Cardinal;
+begin
+  result := LoadIcon(hInstance,'DAClientDataModule');
+end;
+
+function TNewModuleExpert.GetIDString: String;
+begin
+  result := 'RemObjectsDAClientDataModule';
+end;
+
+function TNewModuleExpert.GetName: String;
+begin
+  result := 'Data Abstract ClientDataModule';
+end;
+
+function TNewModuleExpert.GetPage: String;
+begin
+  result := 'RemObjects Data Abstract';
+end;
+
+{$IFDEF BDS}
+function TNewModuleExpert.GetGalleryCategory: IOTAGalleryCategory;
+var
+  lGalleryManager: IOTAGalleryCategoryManager;
+begin
+  lGalleryManager := BorlandIDEServices as IOTAGalleryCategoryManager;
+  result := lGalleryManager.FindCategory('RemObjectsDataAbstractDelphi');
+end;
+
+function TNewModuleExpert.GetPersonality: string;
+begin
+  result := sDelphiPersonality;
+end;
+{$ENDIF}
+
+function TNewModuleExpert.GetState: TWizardState;
+begin
+  result := [wsEnabled];
+end;
+
+procedure TNewModuleExpert.AfterSave;
+begin
+
+end;
+
+procedure TNewModuleExpert.BeforeSave;
+begin
+
+end;
+
+procedure TNewModuleExpert.Destroyed;
+begin
+
+end;
+
+procedure TNewModuleExpert.Modified;
+begin
+
+end;
+
+procedure Register;
+begin
+  //RegisterPackageWizard(TNewModuleExpert.Create as IOTAFormWizard);
+end;
+
+{$R 'uDAClientModuleWizard.res' 'uDAClientModuleWizard.rc'}
+
+function TNewModuleExpert.GetDesigner: String;
+begin
+  Result := dAny;
+end;
+
+initialization
+finalization
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientModuleWizard.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientModuleWizard.res
new file mode 100644
index 0000000..dd81d99
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAClientModuleWizard.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADBSessionManagerEditor.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADBSessionManagerEditor.pas
new file mode 100644
index 0000000..9fce3f7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADBSessionManagerEditor.pas	
@@ -0,0 +1,174 @@
+unit uDADBSessionManagerEditor;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - IDE Library                                        }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes,
+  {$IFDEF FPC}
+  PropEdits,
+  {$ELSE}
+  DesignIntf, DesignEditors,
+  {$ENDIF}
+  uDAClasses;
+
+type
+  TDASchemaItemListEditor = class(TStringProperty)
+  protected
+    function GetSchema: TDASchema; virtual;
+
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure SetValue(const Value: string); override;
+    property Schema: TDASchema read GetSchema;
+  end;
+
+  TDASchemaCommandListEditor = class(TDASchemaItemListEditor)
+  public
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+
+  TDASchemaDataSetListEditor = class(TDASchemaItemListEditor)
+  public
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+
+  TDARemoteServiceDataSetListEditor = class(TDASchemaDataSetListEditor)
+  protected
+    function GetSchema: TDASchema; override;
+
+  end;
+
+  TDARemoteServiceCommandListEditor = class(TDASchemaCommandListEditor)
+  protected
+    function GetSchema: TDASchema; override;
+
+  end;
+
+  TDASchemaCommandAndDataSetListEditor = class(TDASchemaItemListEditor)
+  public
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+
+  TDASchemaConnectionsListEditor = class(TDASchemaItemListEditor)
+  public
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+
+implementation
+
+uses
+  uDADBSessionManager, Dialogs,
+  {$WARN UNIT_DEPRECATED OFF}
+  DARemoteService_Impl
+  {$WARN UNIT_DEPRECATED ON}
+  ;
+
+{ TDASchemaItemListEditor }
+
+function TDASchemaItemListEditor.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList]
+end;
+
+function TDASchemaItemListEditor.GetSchema: TDASchema;
+begin
+  result := (GetComponent(0) as TDADBSessionManager).Schema;
+end;
+
+procedure TDASchemaItemListEditor.SetValue(const Value: string);
+begin
+  inherited;
+
+end;
+
+{ TDASchemaCommandListEditor }
+
+procedure TDASchemaCommandListEditor.GetValues(Proc: TGetStrProc);
+var
+  i: integer;
+begin
+  if Assigned(Schema) then begin
+    for i := 0 to Schema.Commands.Count - 1 do begin
+      Proc(Schema.Commands[i].Name);
+    end;
+  end;
+end;
+
+{ TDASchemaDataSetListEditor }
+
+procedure TDASchemaDataSetListEditor.GetValues(Proc: TGetStrProc);
+var
+  i: integer;
+begin
+  if Assigned(Schema) then begin
+    for i := 0 to Schema.Datasets.Count - 1 do begin
+      Proc(Schema.Datasets[i].Name);
+    end;
+  end;
+end;
+
+{ TDASchemaCommandAndDataSetListEditor }
+
+procedure TDASchemaCommandAndDataSetListEditor.GetValues(Proc: TGetStrProc);
+var
+  i: integer;
+begin
+  if Assigned(Schema) then begin
+    for i := 0 to Schema.Datasets.Count - 1 do begin
+      Proc(Schema.Datasets[i].Name);
+    end;
+    if (Schema.Datasets.Count > 0) and (Schema.Commands.Count > 0) then
+      Proc('---');
+
+    for i := 0 to Schema.Commands.Count - 1 do begin
+      Proc(Schema.Commands[i].Name);
+    end;
+  end;
+end;
+
+{ TDASchemaConnectionsListEditor }
+
+procedure TDASchemaConnectionsListEditor.GetValues(Proc: TGetStrProc);
+var
+  i: integer;
+begin
+  if Assigned(Schema) and Assigned(Schema.ConnectionManager) then begin
+    for i := 0 to Schema.ConnectionManager.Connections.Count - 1 do begin
+      Proc(Schema.ConnectionManager.Connections[i].Name);
+    end;
+  end;
+end;
+
+{ TDARemoteServiceDataSetListEditor }
+{$WARN SYMBOL_DEPRECATED OFF}
+function TDARemoteServiceDataSetListEditor.GetSchema: TDASchema;
+begin
+  result := (GetComponent(0) as TDARemoteService).ServiceSchema;
+end;
+
+{ TDARemoteServiceCommandListEditor }
+
+function TDARemoteServiceCommandListEditor.GetSchema: TDASchema;
+begin
+  result := (GetComponent(0) as TDARemoteService).ServiceSchema;
+end;
+{$WARN SYMBOL_DEPRECATED ON}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataAbstractEditors.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataAbstractEditors.pas
new file mode 100644
index 0000000..0c79fb0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataAbstractEditors.pas	
@@ -0,0 +1,1638 @@
+unit uDADataAbstractEditors;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - IDE Library                                        }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  {$IFDEF FPC}ComponentEditors, PropEdits, {$ELSE}DesignIntf, DesignEditors, ColnEdit,{$ENDIF}
+  SysUtils, Classes,
+  uROClient, uRODL,uRORemoteService,
+  uDAClasses, uDARes, uDADataTable, uDARemoteDataAdapter, uDADataAdapter, uDALocalHelpers;
+
+type { TDADriverManagerEditor }
+     TDADriverManagerEditor = class(TComponentEditor)
+     private
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     { TDAConnectionManagerEditor }
+     TDAConnectionManagerEditor = class(TComponentEditor)
+     private
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     { TDADataDictionaryEditor }
+     TDADataDictionaryEditor = class(TComponentEditor)
+     private
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     { TDASchemaEditor }
+     TDASchemaEditor = class(TComponentEditor)
+     protected
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     { TDADesigntimeCallEditor }
+     TDADesigntimeCallEditor = class(TComponentEditor)
+     protected
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     { TDADataRequestCallMethodNameEditor }
+     TDADataRequestCallMethodNameEditor = class(TStringProperty)
+     private
+       function RetrieveLibrary: TRODLLibrary;
+
+     protected
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+       procedure SetValue(const Value: string); override;
+     end;
+
+     { TDALoginAwareComponentEditor }
+     TDALoginAwareComponentEditor = class(TComponentEditor)
+     protected
+       fRemoteService: TRORemoteService;
+       function GetAdapterSchema(aAdapter: TDABaseDataAdapter): TDASchema;
+       procedure OnLoginNeeded(Sender: TROTransportChannel; anException: Exception; var aRetry: Boolean);
+     end;
+
+     { TDADataTableEditor }
+     TDADataTableEditor = class(TDALoginAwareComponentEditor)
+     protected
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     { TDABaseDataAdapterEditor }
+     TDABaseDataAdapterEditor = class(TDALoginAwareComponentEditor)
+     protected
+       fDataTables: TStringList;
+       function HookUpDataTables: boolean;
+       procedure GetDataTables(const aName: string);
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     { TDARemoteDataAdapterEditor }
+     TDARemoteDataAdapterEditor = class(TDABaseDataAdapterEditor )
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     { TDADataTableMasterDetailProps }
+     TDADataTableMasterDetailProps = class(TStringProperty)
+     protected
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure Edit; override;
+     end;
+
+     { TDABusinessProcessorCommandProperty }
+     TDABusinessProcessorCommandProperty = class(TStringProperty)
+     protected
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     { TDABusinessProcessorRefDatasetProperty }
+     TDABusinessProcessorRefDatasetProperty = class(TStringProperty)
+     protected
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+    {$IFDEF FPC}
+     TCollectionProperty = TCollectionPropertyEditor;
+    {$ENDIF FPC}
+     { TDACollectionProperty }
+     TDACollectionProperty = class(TCollectionProperty)
+     private
+     protected
+     public
+       procedure Edit; override;
+       function GetAttributes: TPropertyAttributes; override;
+     end;
+
+
+     { TDADataTableLogicalNameEditor }
+     TDADataTableLogicalNameEditor = class(TStringProperty)
+     private
+       function GetSchema: TDASchema;
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     { TDACollectionItemDatasetNameEditor }
+     TDACollectionItemDatasetNameEditor = class(TStringProperty)
+     private
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     { TDADataTableLocalConnection }
+     TDADataTableLocalConnection = class(TStringProperty)
+     private
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     { TDADriverManagerDirectory }
+     TDADriverManagerDirectory = class(TStringProperty)
+     private
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+       procedure SetValue(const Value: string); override;
+     end;
+
+     { TDADataTableReferenceDataTable }
+     TDADataTableReferenceDataTable = class(TComponentProperty)
+     public
+        procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     { TDALookupSourceProperty }
+     TDALookupSourceProperty = class(TStringProperty)
+     private
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     { TDALookupDestProperty }
+     TDALookupDestProperty = class(TStringProperty)
+     private
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     { TDALookupResultFieldProperty }
+     TDALookupResultFieldProperty = class(TDALookupDestProperty)
+     private
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure SetValue(const Value: string); override;
+     end;
+
+    { TDALocalDataAdapterServiceEditor }
+     TDALocalDataAdapterServiceEditor = class(TStringProperty)
+     private
+       function GetRODL: TRODLLibrary;
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     function GetServiceInstance(aServiceName: string): IDataAbstractLocalServiceAccess;
+     procedure SetDefaultConnection(aServiceName: string);
+
+implementation
+
+uses
+
+  {$IFDEF FPC}
+  uDADataTableMasterLinkWizardForm_laz, uROIDETools_laz,uDAIDEMenu_laz,
+  uEWOTAHelpers_laz,ProjectIntf,LazIDEIntf,
+  {$ELSE}
+  uROIDETools, uROIDEMenu, uROPleaseWaitForm,
+  uDAIDEMenu, uDAPleaseWaitForm,
+  ToolsAPI,uEWOTAHelpers,
+  uDADataTableMasterLinkWizardForm,ShellAPI,
+  {$ENDIF}
+  uDAIDEData,uDASchemaUnitsGenerator,
+  uROLoginNeededForm,
+  Dialogs,  Graphics, Controls,
+  {$WARN UNIT_PLATFORM OFF}
+  FileCtrl,
+  {$WARN UNIT_PLATFORM ON}
+  TypInfo, Forms, ClipBrd, DB,
+  uROTypes,
+  uDAUtils, uDADriverManager, uDADriverInfo, uDASupportClasses,
+  uROClasses,
+  uRODLToXML, uDAInterfaces, uDABusinessProcessor, uDAIDERes,
+  IniFiles, Registry, uDADesigntimeCall, uDASelectDataTablesForm,
+  uRODynamicRequest, {$IFDEF USE_LOCALDATAADAPTER}uDALocalDataAdapter,{$ENDIF} uDADataTableWizards,
+  DataAbstractService_Impl;
+
+{$IFNDEF FPC}
+function FindProjectByActiveModule: IOTAProject;
+var
+  services: IOTAModuleServices;
+  lProject: IOTAProject;
+  lcurModule: IOTAModule;
+  i,j: Integer;
+begin
+  Result:= CurrentProject;
+  services := ModuleServices;
+  if (services = nil) then Exit;
+  lcurModule := services.CurrentModule;
+  for I := 0 to (services.ModuleCount - 1) do begin
+    if Services.Modules[i].QueryInterface(IOTAProject, lProject) = S_OK then begin
+      for j := 0 to lProject.GetModuleCount-1 do begin
+        if SameText(lProject.GetModule(j).FileName,lcurModule.FileName) then begin
+          result := lProject;
+          exit;
+        end;
+      end;
+    end;
+  end;
+end;
+{$ENDIF}
+{ TDASchemaEditor }
+
+const
+  COMMAND_INDEX_EDIT = 0;
+  COMMAND_INDEX_PUBLISH = 1;
+  COMMAND_INDEX_SEPARATOR_1 = 2;
+  COMMAND_INDEX_SAVE = 3;
+  COMMAND_INDEX_LOAD = 4;
+  COMMAND_INDEX_SEPARATOR_2 = 5;
+  COMMAND_INDEX_GENCODE = 6;
+  COMMAND_INDEX_GENCONSTS = 7;
+
+procedure TDASchemaEditor.ExecuteVerb(Index: Integer);
+var
+  schema :TDASchema;
+  connmgr : TDAConnectionManager;
+  {$IFDEF DELPHI2009UP}
+  lSchemaAge, lAge: TDateTime;
+  {$ELSE}
+  lSchemaAge: integer;
+  {$ENDIF}
+  sfname,
+  cmfname, dadname,diagramname :string;
+  i, x : integer;
+  s : string;
+  lDesigner:IDesignerNotify;
+  params: TStringList;
+  {$IFNDEF FPC}
+  loldCurrentProject, lproject: IOTAProject;
+  {$ENDIF}
+begin
+  schema := GetComponent as TDASchema;
+  connmgr := schema.ConnectionManager;
+
+  if (Index=COMMAND_INDEX_GENCONSTS) then begin
+    params := TStringList.Create;
+    with schema do try
+      params.Sorted := TRUE;
+
+      s := '';
+      if Datasets.Count>0 then begin
+        s := Format('  { Dataset names contained in schema "%s" }',[schema.Name])+#13#10;
+        for i := 0 to (Datasets.Count-1) do begin
+          s := s+Format('  ds_%s = ''%s'';', [MakeValidIdentifier(Datasets[i].Name), Datasets[i].Name])+#13#10;
+        end;
+      end;
+
+      if Commands.Count>0 then begin
+        s := s+#13#10+Format('  { Command names contained in schema "%s"}',[schema.Name])+#13#10;
+        for i := 0 to (Commands.Count-1) do begin
+          s := s+Format('  cmd_%s = ''%s'';', [MakeValidIdentifier(Commands[i].Name), Commands[i].Name])+#13#10;
+        end;
+      end;
+
+      s := s+'  { Dataset and command parameters }'+#13#10;
+      for i := 0 to (Datasets.Count-1) do begin
+        for x := 0 to (Datasets[i].Params.Count-1) do begin
+          // Checks for duplicates
+          if params.IndexOf(UpperCase(Datasets[i].Params[x].Name))<0
+            then params.Add(UpperCase(Datasets[i].Params[x].Name))
+            else Continue;
+
+          s := s+Format('  par_%s = ''%s'';', [Datasets[i].Params[x].Name, Datasets[i].Params[x].Name])+#13#10;
+        end;
+      end;
+
+      for i := 0 to (Commands.Count-1) do begin
+        for x := 0 to (Commands[i].Params.Count-1) do begin
+          // Checks for duplicates
+          if params.IndexOf(UpperCase(Commands[i].Params[x].Name))<0
+            then params.Add(UpperCase(Commands[i].Params[x].Name))
+            else Continue;
+
+          s := s+Format('  par_%s = ''%s'';', [Commands[i].Params[x].Name, Commands[i].Params[x].Name])+#13#10;
+        end;
+      end;
+    finally
+      params.Free;
+    end;
+
+    Clipboard.AsText := s;
+    Exit;
+  end
+  else if Index = COMMAND_INDEX_SAVE then begin
+    sfname := schema.Name;
+    if not PromptForFileName(sfname, 'Data Abstract Schema (*'+daFileExtSchemaFile+')|*'+daFileExtSchemaFile+'|All Files (*.*)|*.*', daFileExtSchemaFile, 'Save Schema '+schema.Name, '', TRUE) then Exit;
+
+    schema.SaveToFile(sfname, pfXML);
+    // in COMMAND_INDEX_LOAD we load only schema so we will save also schema only
+    {
+    if Assigned(schema.ConnectionManager) then
+      schema.ConnectionManager.SaveToFile(ChangeFileExt(sfname, daFileExtConnectionMgrFile), pfXML);
+
+    if Assigned(schema.DataDictionary) then
+      schema.DataDictionary.SaveToFile(ChangeFileExt(sfname, daFileExtDataDictionaryFile), pfXML);
+
+    if Assigned(schema.Diagrams) then
+      schema.Diagrams.SaveToFile(ChangeFileExt(sfname, DAFileExtDiagramsFile));
+    }
+  end
+  else if (Index<>COMMAND_INDEX_LOAD) and (Index<>COMMAND_INDEX_GENCODE)  then begin
+    Check(connmgr=NIL, 'The schema doesn''t have a connection manager associated. Cannot launch Schema Modeler');
+
+    if (Index=COMMAND_INDEX_SAVE) then begin
+      sfname := schema.Name;
+      if not PromptForFileName(sfname, 'Data Abstract Schema (*'+daFileExtSchemaFile+')|*'+daFileExtSchemaFile+'|All Files (*.*)|*.*', daFileExtSchemaFile, 'Save Schema '+schema.Name, '', TRUE)
+        then Exit;
+    end
+    else begin
+      sfname := GetTempFileName(daFileExtSchemaFile);
+    end;
+
+    schema.SaveToFile(sfname, pfXML);
+    {$IFDEF DELPHI2009UP}
+    FileAge(sfname, lSchemaAge);
+    {$ELSE}
+    lSchemaAge := FileAge(sfname);
+    {$ENDIF}
+
+    cmfname := ChangeFileExt(sfname, daFileExtConnectionMgrFile);
+    connmgr.SaveToFile(cmfname, pfXML);
+
+    dadname := '';
+    if Assigned(schema.DataDictionary) then begin
+      dadname := ChangeFileExt(sfname, daFileExtDataDictionaryFile);
+      schema.DataDictionary.SaveToFile(dadname, pfXML);
+    end;
+
+    diagramname := '';
+    if Assigned(schema.Diagrams) then begin
+      diagramname := ChangeFileExt(sfname, DAFileExtDiagramsFile);
+      schema.Diagrams.SaveToFile(diagramname);
+    end;
+
+    if (Index=COMMAND_INDEX_LOAD) then Exit; // Only wants to save!
+
+    case Index of
+      COMMAND_INDEX_EDIT: begin
+        {$IFDEF FPC}
+          ShowMessage('Not implemented');
+        {$ELSE}
+        try
+          with CreatePleaseWaitForm('Running the Schema Modeler...') do try
+            Show();
+            ExecuteAndWait(GetSchemaModelerPath, '/ns /platform:Delphi /projectname:"'+GetComponent().Name+'" /autosave /schemafile:"'+sfname+'"');
+            Hide();
+          finally
+            Free();
+          end;
+
+          {$IFDEF DELPHI2009UP}
+          FileAge(sfname, lAge);
+          if lSchemaAge < lAge then begin
+          {$ELSE}
+          if lSchemaAge < FileAge(sfname) then begin
+          {$ENDIF}
+            schema.LoadFromFile(sfname, pfXML);
+            Designer.Modified();
+
+            connmgr.LoadFromFile(cmfname, pfXML);
+            lDesigner := FindRootDesigner(connmgr);
+            if Assigned(lDesigner) then lDesigner.Modified();
+
+            if dadname <> '' then begin
+              schema.DataDictionary.LoadFromFile(dadname, pfXML);
+              lDesigner := FindRootDesigner(schema.DataDictionary);
+              if Assigned(lDesigner) then lDesigner.Modified();
+            end;
+
+            if diagramname <> '' then begin
+              schema.Diagrams.LoadFromFile(diagramname);
+              lDesigner := FindRootDesigner(schema.DataDictionary);
+              if Assigned(lDesigner) then lDesigner.Modified();
+            end;
+
+          end;
+          
+        finally
+          DeleteFile(sfname);
+          DeleteFile(cmfname);
+          if dadname <> '' then DeleteFile(dadname);
+        end;
+        {$ENDIF}
+        end;
+      COMMAND_INDEX_PUBLISH: begin
+        {$IFDEF FPC}
+          ShowMessage('Don''t implemented');
+        {$ELSE}
+        // search project for current unit
+        loldCurrentProject := CurrentProject;
+        // lproject
+        lproject := FindProjectByActiveModule;
+        SetActiveProject(lproject);
+        try
+          with CreatePleaseWaitForm('Running the Service Builder...') do try
+            Show();
+            {$IFDEF SB2}
+            LaunchServiceBuilderForCurrentProject('/dataabstract-import-schema /schemafile:"'+sfname+'" /schemacomponentname:"'+schema.Name+'" /ServiceName:"'+schema.Owner.Name+'"',true,true);
+            {$ELSE}
+            LaunchServiceBuilderForCurrentProject('/execute:"DataAbstract.PublishSchemaWizard" /execute-options:"Schema='+sfname+';ServiceName='+schema.Owner.Name+';SchemaComponentName='+schema.Name+'"',true,true);
+            {$ENDIF}
+            Hide();
+          finally
+            Free();
+          end;
+        finally
+          DeleteFile(sfname);
+          DeleteFile(cmfname);
+          if dadname <> '' then DeleteFile(dadname);
+          if diagramname <> '' then DeleteFile(diagramname);
+          if loldCurrentProject <> CurrentProject then SetActiveProject(loldCurrentProject);
+        end;
+        {$ENDIF}
+      end;
+      COMMAND_INDEX_SAVE: exit;
+    end;
+  end
+  else if (Index=COMMAND_INDEX_GENCODE) then begin
+    GenerateSchemaUnits(schema);
+  end
+  else begin
+    if PromptForFileName(sfname, 'Data Abstract Schema (*'+daFileExtSchemaFile+')|*'+daFileExtSchemaFile+'|All Files (*.*)|*.*', daFileExtSchemaFile, 'Load Schema') then begin
+      schema.LoadFromFile(sfname, pfXML);
+      Designer.Modified;
+    end;
+  end;
+end;
+
+function TDASchemaEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    COMMAND_INDEX_SEPARATOR_1,
+    COMMAND_INDEX_SEPARATOR_2 : result := '-';
+    COMMAND_INDEX_EDIT : result := 'Edit '+GetComponent.Name;
+    COMMAND_INDEX_PUBLISH : result := 'Publish '+GetComponent.Name+'...';
+    COMMAND_INDEX_SAVE : result := 'Save '+GetComponent.Name+' to Disk...';
+    COMMAND_INDEX_LOAD : result := 'Load '+GetComponent.Name+' from Disk...';
+    COMMAND_INDEX_GENCODE : result := 'Generate '+GetComponent.Name+' strongly-typed access units...';
+    COMMAND_INDEX_GENCONSTS : result := 'Copy Dataset and Command Names to Clipboard';
+  end;
+end;
+
+function TDASchemaEditor.GetVerbCount: Integer;
+begin
+  result := 8;
+end;
+
+{ TDADriverManagerEditor }
+
+procedure TDADriverManagerEditor.ExecuteVerb(Index: Integer);
+var
+  s : string;
+  i: Integer;
+  sl : IROStrings;
+  dm : TDADriverManager;
+begin
+  dm := TDADriverManager(GetComponent);
+  s := '';
+
+  case Index of
+    0 : ShowDriverInfo(dm);
+
+    1: begin
+      if (dm.DriverCount=0) then begin
+        MessageDlg('No drivers to unload.', mtWarning, [mbOK], 0);
+      end
+      else begin
+        dm.UnloadAllDrivers;
+        MessageDlg('Drivers unloaded.', mtInformation, [mbOK], 0);
+      end;
+    end;
+
+    2 : begin
+      if (dm.DriverDirectory='') then begin
+        MessageDlg('DriverDirectory is empty. Cannot load drivers.', mtWarning, [mbOK], 0);
+      end
+      else begin
+        dm.ListDrivers(dm.DriverDirectory, sl);
+        if (sl.Count=0) then begin
+          MessageDlg('No drivers were found', mtInformation, [mbOK], 0);
+        end
+        else begin
+          {$IFNDEF FPC}
+          with CreatePleaseWaitForm('Loading Drivers...') do try
+          {$ENDIF}
+            for i := 0 to sl.Count-1 do try
+              {$IFNDEF FPC}
+              Show(Format('Loading %s...',[ExtractFileName(sl[i])]));
+              {$ENDIF}
+              dm.LoadDriver(sl[i]);
+            except
+              on E:EDADriverAlreadyLoaded do;
+              on E:EDASchemaModelerOnly do;
+              on E:Exception do begin
+                {$IFNDEF FPC}
+                Hide();
+                {$ENDIF}
+                ShowMessageFmt('There was an error loading the %s driver:'#13#13'%s: %s',[ExtractFileName(sl[i]),E.ClassName,E.Message]);
+              end;
+            end; { for }
+          {$IFNDEF FPC}
+          finally
+            free;
+          end;
+          {$ENDIF}
+          MessageDlg(IntToStr(dm.DriverCount)+' Drivers loaded.', mtInformation, [mbOK], 0);
+        end;
+      end;
+    end;
+  end;
+end;
+
+function TDADriverManagerEditor.GetVerb(Index: Integer): string;
+var dir : string;
+begin
+  case Index of
+    0 : result := 'Display Driver Information...';
+    1 : result := 'Unload All Drivers';
+    2 : begin
+      dir := TranslateFileName(TDADriverManager(GetComponent).DriverDirectory);
+      if (dir='')
+        then dir := '<DriverDirectory property is empty!>';
+      result := 'Load Drivers in '+dir;
+    end;
+  end;
+end;
+
+function TDADriverManagerEditor.GetVerbCount: Integer;
+begin
+  result := 3;
+end;
+
+{ TDAConnectionManagerEditor }
+
+procedure TDAConnectionManagerEditor.ExecuteVerb(Index: Integer);
+var connmgr : TDAConnectionManager;
+    sfname : string;
+begin
+  connmgr := GetComponent as TDAConnectionManager;
+  sfname := connmgr.Name+daFileExtConnectionMgrFile;
+
+  case Index of
+    0:begin
+      {$IFDEF FPC}
+      EditCollection(connmgr, connmgr.Connections, 'Connections');
+      {$ELSE}
+      ShowCollectionEditor(Designer, connmgr,  connmgr.Connections, 'Connections');
+      {$ENDIF}
+    end;
+
+    1 : {separator};
+
+    2 : begin
+      if not PromptForFileName(sfname, 'Data Abstract Connections (*'+daFileExtConnectionMgrFile+')|*'+daFileExtConnectionMgrFile+'|All Files (*.*)|*.*', daFileExtConnectionMgrFile, 'Save Connections '+connmgr.Name, '', TRUE)
+        then Exit;
+
+      connmgr.SaveToFile(sfname, pfXML);
+    end;
+
+    3: begin
+      if not PromptForFileName(sfname, 'Data Abstract Connections (*'+daFileExtConnectionMgrFile+')|*'+daFileExtConnectionMgrFile+'|All Files (*.*)|*.*', DAFileExtConnectionMgrFile, 'Load Connections '+connmgr.Name, '')
+        then Exit;
+
+      connmgr.LoadFromFile(sfname, pfXML);
+      Designer.Modified;
+    end;
+  end;
+end;
+
+function TDAConnectionManagerEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    0 : result := 'Connection List Editor';
+    1 : result := '-';
+    2 : result := 'Save '+GetComponent.Name+' To Disk...';
+    3 : result := 'Load '+GetComponent.Name+' From Disk...';
+  end;
+end;
+
+function TDAConnectionManagerEditor.GetVerbCount: Integer;
+begin
+  result := 4;  
+end;
+
+{ TDADataRequestAccessParamEditor }
+
+procedure CheckCondition(InvalidSituation : boolean; const anErrorMessage : string);
+begin
+  if InvalidSituation then begin
+    MessageDlg(anErrorMessage, mtError, [mbOK], 0);
+    Abort;
+  end;
+end;
+
+
+{ TDADataRequestCallMethodNameEditor }
+
+function TDADataRequestCallMethodNameEditor.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList]
+end;
+
+function TDADataRequestCallMethodNameEditor.RetrieveLibrary : TRODLLibrary;
+var datamethod : TDARemoteRequest;
+    //datatable : TDADataTable;
+    //adapter : TDADataAdapter;
+    rs : TRORemoteService;
+    svcname : string;
+begin
+  //result := NIL;
+
+  // Sets the variable we need
+  datamethod := GetComponent(0) as TDARemoteRequest;
+  rs := datamethod.RemoteService;
+
+  CheckCondition(rs=NIL, 'RemoteService must be assigned.');
+
+  svcname := Trim(rs.ServiceName);
+  CheckCondition(svcname='', rs.Name+'.ServiceName must be assigned.');
+
+  {adapter := datamethod.Owner.Adapter;
+  CheckCondition(adapter=NIL, 'The Adpater property is not set');}
+
+  result := rs.GetRODLLibrary;
+end;
+
+procedure TDADataRequestCallMethodNameEditor.GetValues(Proc: TGetStrProc);
+var lib : TRODLLibrary;
+    i,j : integer;
+    svc : TRODLService;
+    svcintf : TRODLServiceInterface;
+    svcname : string;
+    sl : IROStrings;
+    anchestors : TList;
+    method: TDARemoteRequest;
+begin
+  lib := RetrieveLibrary;
+  if not assigned(lib) then
+    raise Exception.Create('RODL library could npt be retrieved from server.');
+
+  anchestors := TList.Create;
+  try
+
+    method := GetComponent(0) as TDARemoteRequest;
+    svcname := method.RemoteService.ServiceName;
+
+    svc := lib.FindService(svcname);
+    if not assigned(svc) then raise Exception.Create('Service "'+svcname+'" could not be found in RODL.');
+
+    repeat
+      anchestors.Add(svc.Default);
+      if (Trim(svc.Ancestor)<>'') then begin
+        svc := lib.FindService(svc.Ancestor);
+        if not assigned(svc) then break;
+      end
+      else break;
+    until false;
+
+    // Methods
+    sl := NewROStrings;
+    sl.Sorted := TRUE;
+
+    for i := 0 to anchestors.Count-1 do begin
+      svcintf := TRODLServiceInterface(anchestors[i]);
+
+      for j := 0 to (svcintf.Count-1) do begin
+        {if (svcintf.Items[i].Result=NIL) or
+           not (StrToDataType(svcintf.Items[i].Result.DataType)=method.Owner.Adapter.TargetDataType)
+        then Continue;}
+
+        sl.Add(svcintf.Items[j].Name);
+      end;
+    end;
+
+    for i := 0 to (sl.Count-1)
+      do Proc(sl[i]);
+
+  finally
+    anchestors.Free;
+  end;
+end;
+
+procedure TDADataRequestCallMethodNameEditor.SetValue(const Value: string);
+var
+  lRemoteRequest: TDARemoteRequest;
+  lOldMethodName: String;
+begin
+  lRemoteRequest := TDARemoteRequest(GetComponent(0));
+  lOldMethodName := lRemoteRequest.MethodName;
+  lRemoteRequest.MethodName := Value;
+  if (Trim(lOldMethodName) <> Trim(Value)) then begin
+    {$IFNDEF FPC}
+    Designer.Modified();
+    {$ELSE}
+    PropertyHook.Modified(lRemoteRequest);
+    {$ENDIF}
+  end;
+
+  if (Trim(Value)='') then Exit;
+
+  if MessageDlg('Do you want to retrieve the parameters of the method '+Value+'?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
+    {$IFNDEF FPC}
+    with CreatePleaseWaitForm('Retrieving Parameters...') do begin
+    {$ENDIF}
+      lRemoteRequest.RefreshParams(true);
+      {$IFNDEF FPC}
+      Hide();
+      {$ENDIF}
+      {$IFNDEF FPC}
+      Designer.Modified();
+      {$ELSE}
+      PropertyHook.Modified(lRemoteRequest);
+      {$ENDIF FPC}
+    {$IFNDEF FPC}
+    end;
+    {$ENDIF}
+  end;
+end;
+
+{ TDALoginAwareComponentEditor }
+
+procedure TDALoginAwareComponentEditor.OnLoginNeeded(Sender: TROTransportChannel; anException: Exception; var aRetry: Boolean);
+begin
+  aRetry := TROLoginNeededForm.Execute(fRemoteService);
+end;
+
+function TDALoginAwareComponentEditor.GetAdapterSchema(aAdapter: TDABaseDataAdapter): TDASchema;
+var
+  lSaved: TROExceptionEvent;
+begin
+  if (aAdapter is TDARemoteDataAdapter) then begin
+    if TDARemoteDataAdapter(aAdapter).RemoteService.Channel = nil then
+      raise EROException.Create('Channel not assigned');
+    lSaved := TDARemoteDataAdapter(aAdapter).RemoteService.Channel.OnLoginNeeded;
+    TDARemoteDataAdapter(aAdapter).RemoteService.Channel.OnLoginNeeded := OnLoginNeeded;
+    try
+      fRemoteService := TDARemoteDataAdapter(aAdapter).RemoteService;
+      result := aAdapter.ReadSchema(True);
+    finally
+      TDARemoteDataAdapter(aAdapter).RemoteService.Channel.OnLoginNeeded := lSaved;
+    end;
+  end
+  else begin
+    result := aAdapter.ReadSchema(True);
+  end;
+end;
+
+{ TDARemoteDataAdapterEditor }
+
+procedure TDARemoteDataAdapterEditor.ExecuteVerb(Index: Integer);
+var
+  lAdapter: TDARemoteDataAdapter;
+begin
+  lAdapter := TDARemoteDataAdapter(GetComponent);
+  case Index of
+    0: lAdapter.SetupDefaultRequest();
+    1: lAdapter.SetupDefaultRequestV3();
+    2: exit{ Separator };
+    3: if not HookUpDataTables() then exit;
+    4: if not TDataTableWizards.CreateDataTables(Designer, lAdapter, GetAdapterSchema(lAdapter), Point(0,0)) then exit;
+  end;
+  Designer.Modified();
+end;
+
+function TDARemoteDataAdapterEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    0 : result := '&Reset Calls to Default';
+    1 : result := 'Reset Calls to Default (Legacy v&3.0)';
+    2 : result := '-';
+    3 : result := '&Hook up Data Tables...';
+    4 : result := '&Create Data Tables...';
+  end;
+end;
+
+function TDARemoteDataAdapterEditor.GetVerbCount: Integer;
+begin
+  result := 5;
+end;
+
+{ TDADataTableEditor }
+
+procedure TDADataTableEditor.ExecuteVerb(Index: Integer);
+var
+  dt: TDADataTable;
+  lTempSchema: TDASchema;
+  lTempSchemaDataSet: TDADataset;
+  s: string;
+  lSaved: TROExceptionEvent;
+  lDA: TDALocalDataAdapter;
+begin
+  dt := TDADataTable(GetComponent);
+
+  case Index of
+    0:begin
+       {$IFDEF FPC}
+        EditCollection(dt, dt.Fields, 'Fields');
+       {$ELSE}
+        ShowCollectionEditor(Designer, dt,  dt.Fields, 'Fields');
+       {$ENDIF}
+      end;
+    1:{ Seperator };
+    2:begin
+        if not (MessageDlg('Do you want to retrieve the schema of '+dt.Name+'?'#13+
+                           'This will overwrite the current field and parameter settings.',
+                mtWarning, [mbYes, mbNo], 0)=mrYes) then Exit;
+
+        if dt.LogicalName = '' then
+          raise Exception.Create('LogicalName must be set.');
+
+        if dt.RemoteFetchEnabled then begin
+          if assigned(dt.RemoteDataAdapter) then begin
+            (dt.RemoteDataAdapter as TDABaseDataAdapter).CheckProperties();
+            if dt.RemoteDataAdapter is TDARemoteDataAdapter then begin
+              fRemoteService := (dt.RemoteDataAdapter as TDARemoteDataAdapter).RemoteService;
+              lSaved := fRemoteService.Channel.OnLoginNeeded;
+              fRemoteService.Channel.OnLoginNeeded := OnLoginNeeded;
+              (dt.RemoteDataAdapter as TDARemoteDataAdapter).FlushSchema;
+              try
+                dt.LoadSchema(true, true);
+              finally
+                fRemoteService.Channel.OnLoginNeeded := lSaved;
+              end;
+            end
+            else if dt.RemoteDataAdapter is TDALocalDataAdapter then begin
+              lDA := TDALocalDataAdapter(dt.RemoteDataAdapter);
+              lDA.ServiceInstance := GetServiceInstance(lDA.ServiceName);
+              try
+              dt.LoadSchema(true, true);
+              finally
+                lDA.ServiceInstance := nil;
+              end;
+            end;
+          end
+          else begin
+            MessageDlg('RemoteDataAdapter must be assigned.', mtError, [mbOK], 0);
+            Exit;
+          end;
+        end
+        else begin
+          if assigned(dt.LocalSchema) and assigned(dt.LocalDataStreamer) then begin
+            dt.loadschema(True, True);       
+            //ds := dt.LocalSchema.Datasets.DatasetByName(dt.LogicalName);
+            //dt.Fields.AssignFieldCollection(ds.Fields);
+            //dt.Params.AssignParamCollection(ds.Params);
+          end
+          else begin
+            MessageDlg('LocalSchema/LocalDataStreamer must be assigned.', mtError, [mbOK], 0);
+            Exit;
+          end;
+        end;
+
+        s := 'Schema loaded successfully. '+IntToStr(dt.Fields.Count)+' fields';
+        if (dt.Params.Count>0) then s := s+' and '+IntToStr(dt.Params.Count)+' params';
+        s := s+' have been created. Original lookup- and client calculated fields have been preserved.';
+
+        MessageDlg(s, mtInformation, [mbOK], 0);
+
+        Designer.Modified;
+      end;
+
+    3: if TDADataTableMasterLinkWizard.ExecuteWizard(dt,{$IFDEF FPC}Designer.PropertyEditorHook{$ELSE} Designer {$ENDIF}) then
+         Designer.Modified();
+    4:{ Seperator };
+    5:begin
+        lTempSchema := TDASchema.Create(NIL);
+        try
+          lTempSchema.Name := MakeValidIdentifier(dt.LogicalName);
+          if lTempSchema.Name = '' then lTempSchema.Name := dt.Name;
+
+          lTempSchemaDataSet := lTempSchema.Datasets.Add();
+          lTempSchemaDataSet.Name := lTempSchema.Name;
+          lTempSchemaDataSet.Fields.AssignFieldCollection(dt.Fields);
+          GenerateSchemaUnits(lTempSchema);
+        finally
+          lTempSchema.Free;
+        end;
+      end;
+    6:{ Seperator };
+    7:begin
+        with TDAIdeData.Create(nil) do try
+          if dlg_OpenBriefcase.Execute then begin
+            dt.LoadFromFile(dlg_OpenBriefcase.Filename);
+            Designer.Modified();
+          end;
+        finally
+          Free();
+        end;
+      end;
+    8:begin
+        if not dt.Active then
+          raise Exception.Create('DataTable is not active.');
+
+        with TDAIdeData.Create(nil) do try
+          if dlg_SaveBriefcase.Execute then begin
+            dt.SaveToFile(dlg_SaveBriefcase.Filename);
+          end;
+        finally
+          Free();
+        end;
+      end;
+    10:begin
+        if dt.LogicalName = '' then
+          raise Exception.Create('LogicalName must be set.');
+
+        if dt.RemoteFetchEnabled then
+          if assigned(dt.RemoteDataAdapter) then begin
+            (dt.RemoteDataAdapter as TDABaseDataAdapter).CheckProperties();
+            if dt.RemoteDataAdapter is TDARemoteDataAdapter then begin
+              fRemoteService := (dt.RemoteDataAdapter as TDARemoteDataAdapter).RemoteService;
+              lSaved := fRemoteService.Channel.OnLoginNeeded;
+              fRemoteService.Channel.OnLoginNeeded := OnLoginNeeded;
+              try
+                dt.Open();
+              finally
+                fRemoteService.Channel.OnLoginNeeded := lSaved;
+              end;
+            end
+            else if dt.RemoteDataAdapter is TDALocalDataAdapter then begin
+              lDA := TDALocalDataAdapter(dt.RemoteDataAdapter);
+              SetDefaultConnection(lDA.ServiceName);
+              lDA.ServiceInstance := GetServiceInstance(lDA.ServiceName);
+              try
+                dt.Open();
+              finally
+                lDA.ServiceInstance := nil;
+              end;
+            end;
+          end
+        else if assigned(dt.LocalSchema) and assigned(dt.LocalDataStreamer) then begin
+          dt.Open();
+        end;
+        Designer.Modified;
+      end;
+
+  end; { case }
+end;
+
+function TDADataTableEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    0 : result := 'Field Collection Editor';
+    1 : result := '-';
+    //2 : result := 'Dynamic Method Binding Setup Wizard (Legacy v3.0)';
+    //3 : result := '-';
+    2 : result := 'Retrieve DataTable Schema';
+    3 : result := 'Master/Detail Wizard';
+    4 : result := '-';
+    5 : result := 'Generate Business Class...';
+    6 : result := '-';
+    7 : result := 'Load Data from briefcase file...';
+    8 : result := 'Save Data to briefcase file...';
+    9 : result := '-';
+    10 : result := 'Get Design-Time Data';
+  end;
+end;
+
+function TDADataTableEditor.GetVerbCount: Integer;
+begin
+  result := 9;
+  if not TDADataTable(GetComponent).Active and (assigned(TDADataTable(GetComponent).RemoteDataAdapter)) then inc(result,2);
+end;
+
+{ TDABusinessProcessorCommandProperty }
+
+function TDABusinessProcessorCommandProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList]
+end;
+
+procedure TDABusinessProcessorCommandProperty.GetValues(Proc: TGetStrProc);
+var biz : TDABusinessProcessor;
+    i : integer;
+    list : IROStrings;
+begin
+  biz := GetComponent(0) as TDABusinessProcessor;
+  if (biz.Schema=NIL) then Exit;
+
+  list := NewROStrings;
+  for i := 0 to (biz.Schema.Commands.Count-1) do
+    list.Add(biz.Schema.Commands[i].Name);
+
+  list.Sorted := TRUE;
+
+  for i := 0 to (list.Count-1) do
+    Proc(list[i]);
+end;
+
+type
+  TPersistentCracker = class(TPersistent);
+{ TDACollectionProperty }
+
+procedure TDACollectionProperty.Edit;
+var coll : TCollection;
+begin
+  coll := GetObjectProp(GetComponent(0), GetName) as TCollection;
+
+  if (coll=NIL) then ShowMessage('no way!')
+                else showmessage(GetName+' has #'+INtToSTr(coll.count)+' '+TComponent(integer(coll.Owner)).ClassName);
+  {$IFDEF FPC}
+  EditCollection(TComponent(GetComponent(0)),coll, GetName);
+  {$ELSE}
+  ShowCollectionEditor(Designer, TComponent(GetComponent(0)), coll, GetName);
+  {$ENDIF}
+end;
+
+function TDACollectionProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paDialog, paReadOnly];
+end;
+{ TDABusinessProcessorRefDatasetProperty }
+
+function TDABusinessProcessorRefDatasetProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList]
+end;
+
+procedure TDABusinessProcessorRefDatasetProperty.GetValues( Proc: TGetStrProc);
+var biz : TDABusinessProcessor;
+    i : integer;
+    list : IROStrings;
+begin
+  biz := GetComponent(0) as TDABusinessProcessor;
+  if (biz.Schema=NIL) then Exit;
+
+  list := NewROStrings;
+  for i := 0 to (biz.Schema.Datasets.Count-1) do
+    list.Add(biz.Schema.Datasets[i].Name);
+
+  list.Sorted := TRUE;
+
+  for i := 0 to (list.Count-1) do
+    Proc(list[i]);
+end;
+
+{ TDADataTableLogicalNameEditor }
+
+function TDADataTableLogicalNameEditor.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList]
+end;
+
+function TDADataTableLogicalNameEditor.GetSchema: TDASchema;
+var
+  lda: TDALocalDataAdapter;
+begin
+  Result:=nil;
+  try
+    with TDADataTable(GetComponent(0)) do
+      if not RemoteFetchEnabled then
+         Result := LocalSchema
+      else if (RemoteDataAdapter <> nil) then begin
+        if (RemoteDataAdapter is TDARemoteDataAdapter) then
+          Result:= (RemoteDataAdapter as TDARemoteDataAdapter).Schema
+        else if (RemoteDataAdapter is TDALocalDataAdapter) then begin
+          lda := (RemoteDataAdapter as TDALocalDataAdapter);
+          lda.ServiceInstance := GetServiceInstance(lda.ServiceName);
+          try
+            Result:= (RemoteDataAdapter as TDALocalDataAdapter).Schema;
+          finally
+            lda.ServiceInstance := nil;
+          end;
+        end;
+      end;
+  except
+    // hide exception, when RDA can't receive SCHEMA
+  end;
+end;
+
+procedure TDADataTableLogicalNameEditor.GetValues(Proc: TGetStrProc);
+var i : integer;
+    _Schema: TDASchema;
+begin
+  _Schema:= GetSchema;
+  if _Schema <> nil then begin
+    for i := 0 to (_Schema.Datasets.Count-1) do
+      if _Schema.Datasets[i].IsPublic then Proc(_Schema.Datasets[i].Name);
+    for i := 0 to (_Schema.UnionDataTables.Count-1) do
+      if _Schema.UnionDataTables[i].IsPublic then Proc(_Schema.UnionDataTables[i].Name);
+    for i := 0 to (_Schema.JoinDataTables.Count-1) do
+      if _Schema.JoinDataTables[i].IsPublic then Proc(_Schema.JoinDataTables[i].Name);
+  end;
+end;
+
+{ TDADataTableLocalConnection }
+
+function TDADataTableLocalConnection.GetAttributes: TPropertyAttributes;
+begin
+  if (TDADataTable(GetComponent(0)).LocalSchema<>NIL) and (TDADataTable(GetComponent(0)).LocalSchema.ConnectionManager<>NIL)
+    then result := [paValueList]
+    else result := []
+end;
+
+procedure TDADataTableLocalConnection.GetValues(Proc: TGetStrProc);
+var i : integer;
+begin
+  with TDADataTable(GetComponent(0)) do begin
+    if (LocalSchema=NIL) or (LocalSchema.ConnectionManager=NIL) then Exit;
+
+    for i := 0 to (LocalSchema.ConnectionManager.Connections.Count-1) do
+      Proc(LocalSchema.ConnectionManager.Connections[i].Name);
+  end;
+end;
+
+{ TDADriverManagerDirectory }
+
+function TDADriverManagerDirectory.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList]
+end;
+
+const SelectDirOption = '<Select directory>';
+
+procedure TDADriverManagerDirectory.GetValues(Proc: TGetStrProc);
+begin
+  inherited;
+
+  Proc(alias_ModuleDir);
+  Proc(alias_System);
+  Proc(SelectDirOption);
+end;
+
+procedure TDADriverManagerDirectory.SetValue(const Value: string);
+var dir : string;
+begin
+  if (Value=SelectDirOption) then begin
+    if SelectDirectory(dir, [sdPrompt, sdAllowCreate], 0)
+      then inherited SetValue(dir);
+  end
+
+  else if (Value=alias_DABinDir) then begin
+    dir := IncludeTrailingPathDelimiter(Copy(GetDllPath,  1, Length(GetDLLPath)-7))+'Bin';
+    inherited SetValue(dir);
+  end
+
+  else inherited;
+end;
+
+{ TDADataDictionaryEditor }
+
+procedure TDADataDictionaryEditor.ExecuteVerb(Index: Integer);
+var
+  dict: TDADataDictionary;
+  sfname: string;
+begin
+  inherited;
+
+  dict := GetComponent as TDADataDictionary;
+  sfname := dict.Name+DAFileExtDataDictionaryFile;
+
+  case Index of
+    0: {$IFDEF FPC}
+       EditCollection(GetComponent(), dict.Fields, 'Fields');
+       {$ELSE}
+       ShowCollectionEditor(Designer, GetComponent(), dict.Fields, 'Fields');
+       {$ENDIF}
+    1:{separater};
+    2:if PromptForFileName(sfname, 'Data Abstract DataDictionaries (*'+DAFileExtDataDictionaryFile+')|*'+DAFileExtDataDictionaryFile+'|All Files (*.*)|*.*', DAFileExtDataDictionaryFile, 'Save DataDictionary '+dict.Name, '', TRUE) then
+        dict.SaveToFile(sfname, pfXML);
+    3:if PromptForFileName(sfname, 'Data Abstract DataDictionaries (*'+DAFileExtDataDictionaryFile+')|*'+DAFileExtDataDictionaryFile+'|All Files (*.*)|*.*', DAFileExtDataDictionaryFile, 'Load DataDictionary '+dict.Name, '') then begin
+        dict.LoadFromFile(sfname, pfXML);
+        Designer.Modified;
+      end;
+  end;
+end;
+
+function TDADataDictionaryEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    0:result := 'DataDictionary Editor';
+    1:result := '-';
+    2: result := 'Save '+GetComponent.Name+' to Disk...';
+    3: result := 'Load '+GetComponent.Name+' from Disk...';
+  end;
+end;
+
+function TDADataDictionaryEditor.GetVerbCount: Integer;
+begin
+  result := 4;
+end;
+
+{ TDAClientDataModuleEditor }
+
+{ TDADataTableMasterDetailProps }
+
+procedure TDADataTableMasterDetailProps.Edit;
+begin
+  {$IFDEF FPC}
+  if TDADataTableMasterLinkWizard.ExecuteWizard(TDADataTable(GetComponent(0)), PropertyHook) then
+    Modified;
+  {$ELSE}
+  if TDADataTableMasterLinkWizard.ExecuteWizard(TDADataTable(GetComponent(0)), Designer) then
+    Designer.Modified();
+  {$ENDIF}
+end;
+
+function TDADataTableMasterDetailProps.GetAttributes: TPropertyAttributes;
+begin
+  result := [paDialog]
+end;
+
+
+{ TDACollectionItemDatasetNameEditor }
+
+function TDACollectionItemDatasetNameEditor.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList]
+end;
+
+procedure TDACollectionItemDatasetNameEditor.GetValues(Proc: TGetStrProc);
+var schema : TDASchema;
+    i : integer;
+begin
+  schema :=  TSearcheableCollection(TCollectionItem(GetComponent(0)).Collection).Owner as TDASchema;
+  for i := 0 to schema.Datasets.Count-1 do begin
+    Proc(schema.Datasets[i].Name);
+  end;
+end;
+
+{ TDADesigntimeCallEditor }
+
+procedure TDADesigntimeCallEditor.ExecuteVerb(Index: Integer);
+begin
+  inherited;
+  (GetComponent as TDADesigntimeCall).MakeRequest;
+  ShowMessage('The call to the server was executed.');
+end;
+
+function TDADesigntimeCallEditor.GetVerb(Index: Integer): string;
+begin
+  result := 'Make Call';
+end;
+
+function TDADesigntimeCallEditor.GetVerbCount: Integer;
+begin
+  result := 1;
+end;
+
+{ TDADataTableReferenceDataTable }
+
+procedure TDADataTableReferenceDataTable.GetValues(Proc: TGetStrProc);
+begin
+  {$IFDEF FPC}
+  with PropertyHook do
+  {$ELSE}
+  With Designer do
+  {$ENDIF}
+  begin
+    GetComponentNames(GetTypeData(TypeInfo(TDADataTable)), Proc);
+    GetComponentNames(GetTypeData(TypeInfo(TDataset)), Proc);
+  end;
+end;
+
+{ TDALookupSourceProperty }
+
+function TDALookupSourceProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList, paMultiSelect];
+end;
+
+procedure TDALookupSourceProperty.GetValues(Proc: TGetStrProc);
+var
+  i: integer;
+begin
+  with GetComponent(0) as TDAField do
+    for i := 0 to (FieldCollection.Count - 1) do
+      Proc(FieldCollection[i].Name);
+end;
+
+{ TDALookupDestProperty }
+
+function TDALookupDestProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList, paMultiSelect];
+end;
+
+procedure TDALookupDestProperty.GetValues(Proc: TGetStrProc);
+var
+  lValues: TStringList;
+  i: Integer;
+begin
+  lValues := TStringList.Create;
+  with GetComponent(0) as TDAField do try
+    if Assigned(LookupSource) and Assigned(LookupSource.Dataset) then begin
+      LookupSource.DataSet.GetFieldNames(lValues);
+      for i := 0 to lValues.Count - 1 do
+        Proc(lValues[i]);
+    end;
+  finally
+    lValues.free;
+  end;
+end;
+
+{ TDALookupResultFieldProperty }
+
+function TDALookupResultFieldProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList];
+end;
+
+procedure TDALookupResultFieldProperty.SetValue(const Value: string);
+var
+  lResultField, lLookupField: TDAField;
+begin
+  lResultField := GetComponent(0) as TDAField;
+  if Assigned(lResultField.LookupSource) then begin
+    with TDADataSource(lResultField.LookupSource).DataTable do
+      lLookupField := FindField(Value);
+    if Assigned(lLookupField) then begin
+      lResultField.DataType := lLookupField.DataType;
+      lResultField.Size := lLookupField.Size;
+    end;
+  end;
+
+  inherited;
+end;
+
+{ TDABaseDataAdapterEditor }
+
+procedure TDABaseDataAdapterEditor.ExecuteVerb(Index: Integer);
+var
+  lAdapter: TDABaseDataAdapter;
+begin
+  lAdapter := TDABaseDataAdapter(GetComponent);
+  if lAdapter is TDALocalDataAdapter then TDALocalDataAdapter(lAdapter).ServiceInstance := GetServiceInstance(TDALocalDataAdapter(lAdapter).ServiceName);
+  try
+    case Index of
+      0: if not HookUpDataTables() then exit;
+      1: if not TDataTableWizards.CreateDataTables(Designer, lAdapter, GetAdapterSchema(lAdapter), Point(0,0)) then exit;
+    end;
+  finally
+    if lAdapter is TDALocalDataAdapter then TDALocalDataAdapter(lAdapter).ServiceInstance := nil;
+  end;
+  Designer.Modified();
+end;
+
+procedure TDABaseDataAdapterEditor.GetDataTables(
+  const aName: string);
+begin
+  fDataTables.Add(aName);
+end;
+
+function TDABaseDataAdapterEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    0 : result := '&Hook up Data Tables...';
+    1 : result := '&Create Data Tables...';
+  end;
+end;
+
+function TDABaseDataAdapterEditor.GetVerbCount: Integer;
+begin
+  result := 2;
+end;
+
+function TDABaseDataAdapterEditor.HookUpDataTables: boolean;
+var
+  lForm: TDASelectDataTablesForm;
+  i: integer;
+  {$IFDEF FPC}
+  ldesigner: TPropertyEditorHook;
+  {$ELSE}
+  ldesigner: IDesigner;
+  {$ENDIF}
+begin
+  {$IFDEF FPC}
+  ldesigner:= Designer.PropertyEditorHook;
+  {$ELSE}
+  ldesigner := Designer;
+  {$ENDIF}
+  fDataTables := TStringList.Create;
+  try
+    fDataTables.Sorted := true;
+    lDesigner.GetComponentNames(GetTypeData(TypeInfo(TDADataTable)), GetDataTables);
+    if fDataTables.Count > 0 then begin
+      lForm := TDASelectDataTablesForm.Create(nil);
+      try
+        for i := 0 to fDataTables.Count - 1 do begin
+          lForm.lb_DataTables.Items.AddObject(fDataTables[i], nil);
+          lForm.lb_DataTables.Checked[lForm.lb_DataTables.Items.Count-1] := not assigned((lDesigner.GetComponent(fDataTables[i]) as TDADataTable).RemoteDataAdapter);
+        end;
+        lForm.UpdateCheckBoxState();
+        lForm.OkButtonCaption := '&Hook Up';
+        result := (lForm.ShowModal() = mrOk);
+        if result then begin
+          for i := 0 to lForm.lb_DataTables.Items.Count - 1 do
+            if lForm.lb_DataTables.Checked[i] then
+              (lDesigner.GetComponent(lForm.lb_DataTables.Items[i]) as TDADataTable).RemoteDataAdapter := TDABaseDataAdapter(GetComponent);
+        end;
+      finally
+        FreeAndNil(lForm);
+      end;
+    end
+    else begin
+      result := false;
+      ShowMessage('No data tables were found on module.')
+    end;
+  finally
+    FreeAndNil(fDataTables);
+  end;
+end;
+
+{ TDALocalDataAdapterServiceEditor }
+
+function TDALocalDataAdapterServiceEditor.GetRODL: TRODLLibrary;
+var prj : {$IFDEF FPC}TLazProject{$ELSE}IOTAProject{$ENDIF};
+    fname,
+    src: string;
+    lReader: TXMLToRODL;
+begin
+  result := nil;
+  prj := CurrentProject;
+  if Assigned(prj) then begin
+    src := ReadModuleSource({$IFDEF FPC}prj.MainFile{$ELSE}prj{$ENDIF});
+    fname := ExtractRODLFileName(src);
+    if fname <> '' then
+    begin
+      fname := ModuleDir(prj)+fname;
+      lReader := TXMLToRODL.Create;
+      try
+        result := lReader.ReadFromFile(fname);
+      finally
+        lReader.Free;
+      end;
+    end;
+  end;
+end;
+
+function TDALocalDataAdapterServiceEditor.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList];
+end;
+
+procedure TDALocalDataAdapterServiceEditor.GetValues(Proc: TGetStrProc);
+var
+  lRODL: TRODLLibrary;
+  i: integer;
+begin
+  lRODL := GetRODL;
+  if lRODL <> nil then
+  for i := 0 to lRODL.ServiceCount - 1 do
+    Proc(lRODL.Services[i].Name);
+end;
+
+{$IFDEF FPC}
+function FindDataAbstractService(aServiceName: string): TDataAbstractService;
+{
+var
+  prj : TLazProject;
+  lModule: TLazProjectFile;
+  lDComp: TComponent;
+  i, j: integer;
+  lDAService: TDataAbstractService;
+  Des: TIDesigner;
+  ceDes: TComponentEditorDesigner;
+  peh: TPropertyEditorHook;
+  }
+begin
+  Result := nil;
+  {
+  prj := CurrentProject;
+  lModule := nil;
+  for i := 0 to prj.FileCount-1 do begin
+    if SameText(ExtractFileName(prj.Files[i].Filename), aServiceName+'_impl.pas') then begin
+      lModule := prj.Files[i];
+      break;
+    end;
+  end;
+
+  if lModule = nil then begin
+    Exit;
+  end;
+  Des := LazarusIDE.GetDesignerWithProjectFile(lModule,True);
+  if Des = nil then begin
+    showMessage('Des = nil');
+    Exit;
+  end;
+  }
+end;
+
+{$ELSE}
+function FindDataAbstractService(aServiceName: string): TDataAbstractService;
+var
+  prj : IOTAProject;
+  lModuleInf: IOTAModuleInfo;
+  lModule: IOTAModule;
+  lSrv: IOTAModuleServices;
+  lFormEditor: IOTAFormEditor;
+  lComp: IOTAComponent;
+  lNComp: INTAComponent;
+  lDComp: TComponent;
+  i, j: integer;
+  lDAService: TDataAbstractService;
+begin
+  Result := nil;
+  prj := CurrentProject;
+  if Supports(BorlandIDEServices, IOTAModuleServices, lSrv) then
+  for i := 0 to prj.GetModuleCount - 1 do begin
+    lModuleInf := prj.GetModule(i);
+    if lModuleInf.FileName <> '' then begin
+      try
+        lModule := FindModuleByUnitName(prj, lModuleInf.FileName);
+      except
+        Continue;
+      end;
+      for j := 0 to lModule.ModuleFileCount - 1 do
+        if Supports(lModule.ModuleFileEditors[j], IOTAFormEditor, lFormEditor) then begin
+          lComp := lFormEditor.GetRootComponent;
+          if Supports(lComp, INTAComponent, lNComp) then begin
+            lDComp := lNComp.GetComponent;
+            if lDComp.InheritsFrom(TDataAbstractService) then begin
+              lDAService := TDataAbstractService(lDComp);
+              if SameText(lDAService.Name, aServiceName) then begin
+                Result := lDAService;
+                Exit;
+              end;
+            end;
+          end;
+        end;
+    end;
+  end;
+end;
+{$ENDIF}
+
+function GetServiceInstance(aServiceName: string): IDataAbstractLocalServiceAccess;
+var
+  lDAService: TDataAbstractService;
+begin
+  Result := nil;
+  lDAService := FindDataAbstractService(aServiceName);
+  if (lDAService <> nil) then
+    if not Supports(lDAService, IDataAbstractLocalServiceAccess, Result) then Result := nil;
+end;
+
+procedure SetDefaultConnection(aServiceName: string);
+var
+  lDAService: TDataAbstractService;
+begin
+  lDAService := FindDataAbstractService(aServiceName);
+  if (lDAService <> nil) then begin
+    if not Assigned(lDAService.ServiceSchema) then
+      raise Exception.Create('For service "' + lDAService.Name + '" schema isn''t assigned');
+    if not Assigned(lDAService.ServiceSchema.ConnectionManager) then
+      raise Exception.Create('For service "' + lDAService.Name + '" schema doesn''t have connection manager');
+    lDAService.Connection :=
+      lDAService.ServiceSchema.ConnectionManager.NewConnection(lDAService.ServiceSchema.ConnectionManager.GetDefaultConnectionName);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableEditorForm.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableEditorForm.dfm
new file mode 100644
index 0000000..1da0d2e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableEditorForm.dfm	
@@ -0,0 +1,427 @@
+object DADataTableEditorForm: TDADataTableEditorForm
+  Left = 407
+  Top = 225
+  BorderStyle = bsDialog
+  BorderWidth = 5
+  Caption = '%s - DataTable Editor'
+  ClientHeight = 513
+  ClientWidth = 300
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnDestroy = FormDestroy
+  DesignSize = (
+    300
+    513)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 0
+    Top = 0
+    Width = 49
+    Height = 13
+    Caption = 'DataSet:'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 0
+    Top = 75
+    Width = 91
+    Height = 13
+    Caption = 'Get Schema Call'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label3: TLabel
+    Left = 16
+    Top = 13
+    Width = 239
+    Height = 26
+    Caption = 
+      'Select or enter the name of the dataset you want this DataTable ' +
+      'to represent.'
+    WordWrap = True
+  end
+  object Label6: TLabel
+    Left = 0
+    Top = 179
+    Width = 73
+    Height = 13
+    Caption = 'Get Data Call'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label9: TLabel
+    Left = 8
+    Top = 283
+    Width = 98
+    Height = 13
+    Caption = 'Apply Upates Call'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label12: TLabel
+    Left = 8
+    Top = 387
+    Width = 85
+    Height = 13
+    Caption = 'Get Scripts Call'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object btn_Ok: TBitBtn
+    Left = 145
+    Top = 487
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'Ok'
+    Default = True
+    ModalResult = 1
+    TabOrder = 0
+    OnClick = btn_OkClick
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+      6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+      9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+      9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+      4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+      65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+      00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+      00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object BitBtn2: TBitBtn
+    Left = 225
+    Top = 487
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 1
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+      FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+      00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+      00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+      F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+      00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+      6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+      A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+      A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+      ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+      ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+      6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+      F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+      00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+      00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+      FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+      00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object cb_DataSets: TComboBox
+    Left = 16
+    Top = 44
+    Width = 284
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 0
+    TabOrder = 2
+    OnChange = cb_DataSetsChange
+  end
+  object cb_GetSchemaMethods: TComboBox
+    Left = 16
+    Top = 91
+    Width = 284
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 0
+    TabOrder = 3
+    OnChange = cb_GetSchemaMethodsChange
+  end
+  object cb_GetDataMethods: TComboBox
+    Left = 16
+    Top = 195
+    Width = 284
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 0
+    TabOrder = 4
+    OnChange = cb_GetDataMethodsChange
+  end
+  object cb_ApplyUpdatesMethods: TComboBox
+    Left = 16
+    Top = 299
+    Width = 284
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 0
+    TabOrder = 5
+    OnChange = cb_ApplyUpdatesMethodsChange
+  end
+  object pnl_GetSchemaOptions: TPanel
+    Left = 16
+    Top = 112
+    Width = 284
+    Height = 52
+    BevelOuter = bvNone
+    TabOrder = 6
+    object Label4: TLabel
+      Left = 0
+      Top = 7
+      Width = 84
+      Height = 13
+      Caption = 'Parameter Name:'
+    end
+    object Label5: TLabel
+      Left = 0
+      Top = 31
+      Width = 83
+      Height = 13
+      Caption = 'Parameter Value:'
+    end
+    object ed_GetSchemaValue: TEdit
+      Left = 90
+      Top = 28
+      Width = 194
+      Height = 21
+      TabOrder = 0
+    end
+    object cb_GetSchemaParams: TComboBox
+      Left = 90
+      Top = 4
+      Width = 194
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 0
+      TabOrder = 1
+    end
+  end
+  object pnl_GetDataOptions: TPanel
+    Left = 16
+    Top = 216
+    Width = 284
+    Height = 52
+    BevelOuter = bvNone
+    TabOrder = 7
+    object Label7: TLabel
+      Left = 0
+      Top = 7
+      Width = 84
+      Height = 13
+      Caption = 'Parameter Name:'
+    end
+    object Label8: TLabel
+      Left = 0
+      Top = 31
+      Width = 83
+      Height = 13
+      Caption = 'Parameter Value:'
+    end
+    object ed_GetDataValue: TEdit
+      Left = 90
+      Top = 28
+      Width = 194
+      Height = 21
+      TabOrder = 0
+    end
+    object cb_GetDataParams: TComboBox
+      Left = 90
+      Top = 4
+      Width = 194
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 0
+      TabOrder = 1
+    end
+  end
+  object pnl_ApplyUpdatesOptions: TPanel
+    Left = 16
+    Top = 320
+    Width = 284
+    Height = 52
+    BevelOuter = bvNone
+    TabOrder = 8
+    object Label10: TLabel
+      Left = 0
+      Top = 7
+      Width = 84
+      Height = 13
+      Caption = 'Parameter Name:'
+    end
+    object Label11: TLabel
+      Left = 0
+      Top = 31
+      Width = 83
+      Height = 13
+      Caption = 'Parameter Value:'
+    end
+    object ed_ApplyUpdatesValue: TEdit
+      Left = 90
+      Top = 28
+      Width = 194
+      Height = 21
+      TabOrder = 0
+    end
+    object cb_ApplyUpdatesParams: TComboBox
+      Left = 90
+      Top = 4
+      Width = 194
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 0
+      TabOrder = 1
+    end
+  end
+  object cb_GetScriptsMethods: TComboBox
+    Left = 16
+    Top = 403
+    Width = 284
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 0
+    TabOrder = 9
+    OnChange = cb_GetScriptsMethodsChange
+  end
+  object pnl_GetScriptOptions: TPanel
+    Left = 16
+    Top = 424
+    Width = 284
+    Height = 52
+    BevelOuter = bvNone
+    TabOrder = 10
+    object Label13: TLabel
+      Left = 0
+      Top = 7
+      Width = 84
+      Height = 13
+      Caption = 'Parameter Name:'
+    end
+    object Label14: TLabel
+      Left = 0
+      Top = 31
+      Width = 83
+      Height = 13
+      Caption = 'Parameter Value:'
+    end
+    object ed_GetScriptsValue: TEdit
+      Left = 90
+      Top = 28
+      Width = 194
+      Height = 21
+      TabOrder = 0
+    end
+    object cb_GetScriptsParams: TComboBox
+      Left = 90
+      Top = 4
+      Width = 194
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 0
+      TabOrder = 1
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableEditorForm.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableEditorForm.pas
new file mode 100644
index 0000000..87324d1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableEditorForm.pas	
@@ -0,0 +1,435 @@
+unit uDADataTableEditorForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDADataTable, StdCtrls, Buttons, ExtCtrls, uRODL, uROClasses,
+  uRORemoteService, uROClientIntf;
+
+type
+  TDADataTableEditorForm = class(TForm)
+    btn_Ok: TBitBtn;
+    BitBtn2: TBitBtn;
+    cb_DataSets: TComboBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    cb_GetSchemaMethods: TComboBox;
+    Label3: TLabel;
+    cb_GetDataMethods: TComboBox;
+    cb_ApplyUpdatesMethods: TComboBox;
+    Label6: TLabel;
+    Label9: TLabel;
+    pnl_GetSchemaOptions: TPanel;
+    Label4: TLabel;
+    Label5: TLabel;
+    ed_GetSchemaValue: TEdit;
+    cb_GetSchemaParams: TComboBox;
+    pnl_GetDataOptions: TPanel;
+    Label7: TLabel;
+    Label8: TLabel;
+    ed_GetDataValue: TEdit;
+    cb_GetDataParams: TComboBox;
+    pnl_ApplyUpdatesOptions: TPanel;
+    Label10: TLabel;
+    Label11: TLabel;
+    ed_ApplyUpdatesValue: TEdit;
+    cb_ApplyUpdatesParams: TComboBox;
+    Label12: TLabel;
+    cb_GetScriptsMethods: TComboBox;
+    pnl_GetScriptOptions: TPanel;
+    Label13: TLabel;
+    Label14: TLabel;
+    ed_GetScriptsValue: TEdit;
+    cb_GetScriptsParams: TComboBox;
+    procedure OnMethodChanged(Sender: TObject);
+    procedure cb_DataSetsChange(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure cb_GetSchemaMethodsChange(Sender: TObject);
+    procedure cb_GetDataMethodsChange(Sender: TObject);
+    procedure cb_ApplyUpdatesMethodsChange(Sender: TObject);
+    procedure btn_OkClick(Sender: TObject);
+    procedure cb_GetScriptsMethodsChange(Sender: TObject);
+  private
+    fDataTable: TDADataTable;
+    fManuallySelectedMethods:boolean;
+    fMethods:TStringList;
+    fLibrary:TRODLLibrary;
+
+    fGetSchemaParams,fGetDataParams,fApplyUpdateParams,fGetScriptsParams:TDARemoteRequestParams;
+
+    procedure FillDataSetsCombo;
+    procedure EnablePanel(iPanel:TPanel; iEnable:boolean=true);
+    procedure FillParameters(iMethodCombo, iParamCombo: TComboBox; iParamEdit:TEdit);
+    procedure CreateParameters(iMethodCombo, iParamCombo: TComboBox; iParamEdit: TEdit; ioParams: TDARemoteRequestParams);
+    function GetSchemaAsXML(aRemoteService : TRORemoteService): String;
+  public
+    class function Execute(aOwner:TComponent; aDataTable:TDADataTable; var aDataSet:string):boolean;
+  end;
+
+implementation
+
+uses
+  uROTypes, uDAClientDataModule, uDAClasses, uDAIDERes, uDAPleaseWaitForm;
+
+{$R *.dfm}
+
+{ TForm1 }
+
+procedure TDADataTableEditorForm.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(fMethods);
+  FreeAndNil(fLibrary);
+  FreeAndNil(fGetSchemaParams);
+  FreeAndNil(fGetDataParams);
+  FreeAndNil(fApplyUpdateParams);
+  FreeAndNil(fGetScriptsParams);
+end;
+
+class function TDADataTableEditorForm.Execute(aOwner: TComponent; aDataTable: TDADataTable; var aDataSet:string): boolean;
+begin
+  with self.Create(aOwner) do try
+
+    Caption := Format(Caption,[aDataTable.Name]);
+    fDataTable := aDataTable;
+    FillDataSetsCombo();
+
+    cb_DataSets.ItemIndex := cb_DataSets.Items.IndexOf(aDataSet);
+    cb_DataSetsChange(nil);
+
+    result := ShowModal = idOk;
+    if result then begin
+
+      {aDataTable.SchemaCall.MethodName := cb_GetSchemaMethods.Text;
+      aDataTable.SchemaCall.Params.Assign(fGetSchemaParams);
+
+      aDataTable.DataRequestCall.MethodName := cb_GetDataMethods.Text;
+      aDataTable.DataRequestCall.Params.Assign(fGetDataParams);
+
+      aDataTable.DataUpdateCall.MethodName := cb_ApplyUpdatesMethods.Text;
+      aDataTable.DataUpdateCall.Params.Assign(fApplyUpdateParams);
+
+      aDataTable.ScriptCall.MethodName := cb_GetScriptsMethods.Text;
+      aDataTable.ScriptCall.Params.Assign(fGetScriptsParams);}
+
+      aDataSet := cb_DataSets.Text;
+
+    end;
+  finally
+    Free();
+  end; 
+end;
+
+function TDADataTableEditorForm.GetSchemaAsXML(aRemoteService : TRORemoteService): String;
+var __request, __response : TMemoryStream;
+    __TransportChannel : IROTransportChannel;
+    __Message : IROMessage;
+begin
+  __TransportChannel := aRemoteService.Channel;
+  __Message := aRemoteService.Message;
+
+  __request := TMemoryStream.Create;
+  __response := TMemoryStream.Create;
+
+  try
+     __Message.Initialize(__TransportChannel, 'DataAbstract', aRemoteService.ServiceName, 'GetSchemaAsXML');
+     __Message.Finalize;
+
+     __Message.WriteToStream(__request);
+     __TransportChannel.Dispatch(__request, __response);
+     __Message.ReadFromStream(__response);
+
+     __Message.Read('Result', TypeInfo(String), result, []);
+  finally
+    __request.Free;
+    __response.Free;
+  end
+end;
+procedure TDADataTableEditorForm.FillDataSetsCombo;
+var
+  p: Integer;
+  lDataSets: TStringList;
+  i: Integer;
+  lService: TRODLService;
+  lSchema:TDASchema;
+begin
+  (*fMethods := TStringList.Create();
+  fLibrary := fDataTable.RemoteService.GetRODLLibrary();
+
+  fGetSchemaParams := TDARemoteRequestParams.Create(nil);
+  fGetDataParams := TDARemoteRequestParams.Create(nil);
+  fApplyUpdateParams := TDARemoteRequestParams.Create(nil);
+  fGetScriptsParams := TDARemoteRequestParams.Create(nil);
+
+  lDataSets := TStringList.Create();
+  try
+
+    lService := fLibrary.FindService(fDataTable.RemoteService.ServiceName);
+    while Assigned(lService) do begin
+      for i := 0 to lService.Default.Count-1 do begin
+        fMethods.AddObject(lService.Default.Items[i].Info.Name,lService.Default.Items[i]);
+      end;
+
+      if (lService.Ancestor <> '')
+        then lService := fLibrary.FindService(lService.Ancestor)
+        else lService := nil;
+    end;
+
+    fMethods.Sort();
+    cb_GetSchemaMethods.Items.Assign(fMethods);
+    cb_GetDataMethods.Items.Assign(fMethods);
+    cb_ApplyUpdatesMethods.Items.Assign(fMethods);
+    cb_GetScriptsMethods.Items.Assign(fMethods);
+
+    lDataSets.Duplicates := dupIgnore;
+    lDataSets.Sorted := true;
+
+    if Assigned(fDataTable.RemoteService) then begin
+      if not Assigned(fDataTable.RemoteService.Channel) then RaiseError(err_AssignRemoteServiceChannel);
+      if not Assigned(fDataTable.RemoteService.Message) then RaiseError(err_AssignRemoteServiceMessage);
+      
+      lSchema := nil;
+      with CreatePleaseWaitForm(self,'Retrieving Schema...') do try
+        try
+          lSchema := TDASchema.Create(nil);
+          lSchema.LoadFromXml(GetSchemaAsXML(fDataTable.RemoteService));
+        except
+          lSchema.Free;
+          raise;
+        end;
+      finally
+        Hide;
+      end;
+
+      try
+        for i := 0 to lSchema.Datasets.Count-1 do begin
+          lDataSets.Add(lSchema.Datasets[i].Name);
+        end; { for }
+      finally
+        lSchema.Free();
+      end;
+
+    end
+    else begin
+
+      for i := 0 to fMethods.Count-1 do begin
+        p := Pos('_',fMethods[i]);
+        if p > 0 then lDataSets.Add(Copy(fMethods[i],p+1,Length(fMethods[i])-p));
+      end; { for }
+
+    end;
+    cb_DataSets.Items.Assign(lDataSets);
+
+  finally
+    FreeAndNil(lDataSets);
+  end;
+        *)
+end;
+
+procedure TDADataTableEditorForm.OnMethodChanged(Sender: TObject);
+begin
+  fManuallySelectedMethods := true;
+end;
+
+procedure TDADataTableEditorForm.EnablePanel(iPanel:TPanel; iEnable:boolean=true);
+var
+  i:integer;
+begin
+  for i := 0 to ComponentCount-1 do if (Components[i] as TControl).Parent = iPanel then begin
+    if Components[i] is TLabel then TLabel(Components[i]).Enabled := iEnable
+    else if Components[i] is TComboBox then TComboBox(Components[i]).Enabled := iEnable
+    else if Components[i] is TEdit then TEdit(Components[i]).Enabled := iEnable
+  end;
+end;
+
+procedure TDADataTableEditorForm.cb_DataSetsChange(Sender: TObject);
+var
+  lIndex:integer;
+  lDataSetName:string;
+begin
+  if not fManuallySelectedMethods then begin
+
+    lDataSetName := StringReplace(cb_DataSets.Text,' ','_',[rfReplaceAll]);
+
+    lIndex := cb_GetSchemaMethods.Items.IndexOf('GetDatasetSchema_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetSchemaMethods.Items.IndexOf('GetSchema_'+lDataSetName);
+    if lIndex > -1 then begin
+      cb_GetSchemaMethods.ItemIndex := lIndex;
+      cb_GetSchemaMethodsChange(nil);
+      EnablePanel(pnl_GetSchemaOptions,false);
+    end
+    else begin
+      lIndex := cb_GetSchemaMethods.Items.IndexOf('GetDatasetSchema');
+      if lIndex = -1 then cb_GetSchemaMethods.Text := '';
+      cb_GetSchemaMethods.ItemIndex := lIndex;
+      cb_GetSchemaMethodsChange(nil);
+    end;
+
+    lIndex := cb_GetScriptsMethods.Items.IndexOf('GetDatasetScript_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetScriptsMethods.Items.IndexOf('GetDatasetScripts_'+lDataSetName);
+    if lIndex > -1 then begin
+      cb_GetScriptsMethods.ItemIndex := lIndex;
+      cb_GetScriptsMethodsChange(nil);
+      EnablePanel(pnl_GetScriptOptions,false);
+    end
+    else begin
+      lIndex := cb_GetScriptsMethods.Items.IndexOf('GetDatasetScripts');
+      if lIndex = -1 then cb_GetScriptsMethods.Text := '';
+      cb_GetScriptsMethods.ItemIndex := lIndex;
+      cb_GetScriptsMethodsChange(nil);
+    end;
+
+    lIndex := cb_GetDataMethods.Items.IndexOf('GetDatasetData_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Get_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Get'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Load_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Load'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Read_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Read'+lDataSetName);
+    if lIndex > -1 then begin
+      cb_GetDataMethods.ItemIndex := lIndex;
+      cb_GetDataMethodsChange(nil);
+      EnablePanel(pnl_GetDataOptions,false);
+    end
+    else begin
+      EnablePanel(pnl_GetDataOptions);
+      lIndex := cb_GetDataMethods.Items.IndexOf('GetDatasetDataEx');
+      if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('GetDatasetData'); 
+      if lIndex = -1 then cb_GetDataMethods.Text := '';
+      cb_GetDataMethods.ItemIndex := lIndex;
+      cb_GetDataMethodsChange(nil);
+    end;
+
+    lIndex := cb_ApplyUpdatesMethods.Items.IndexOf('UpdateData_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Update_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Update'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Set_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Set'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Save_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Save'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Write_'+lDataSetName);
+    if lIndex = -1 then lIndex := cb_GetDataMethods.Items.IndexOf('Write'+lDataSetName);
+    if lIndex > -1 then begin
+      cb_ApplyUpdatesMethods.ItemIndex := lIndex;
+      cb_ApplyUpdatesMethodsChange(nil);
+      EnablePanel(pnl_ApplyUpdatesOptions,false);
+    end
+    else begin
+      EnablePanel(pnl_ApplyUpdatesOptions);
+      lIndex := cb_ApplyUpdatesMethods.Items.IndexOf('UpdateData');
+      if lIndex = -1 then cb_ApplyUpdatesMethods.Text := '';
+      cb_ApplyUpdatesMethods.ItemIndex := lIndex;
+      cb_ApplyUpdatesMethodsChange(nil);
+    end;
+
+    fManuallySelectedMethods := false;
+  end;
+end;
+
+procedure TDADataTableEditorForm.FillParameters(iMethodCombo, iParamCombo:TComboBox; iParamEdit:TEdit);
+var
+  lIndex:integer;
+  lMethod:TRODLOperation;
+  i:integer;
+begin
+  iParamCombo.Items.Clear();
+
+  lIndex := iMethodCombo.ItemIndex;
+  if lIndex > -1 then begin
+    lMethod := (fMethods.Objects[lIndex] as TRODLOperation);
+
+    iParamCombo.ItemIndex := -1;
+    iParamCombo.Text := '';
+    iParamEdit.Text := '';
+    for i := 0 to lMethod.Count-1 do begin
+      if (lMethod.Items[i].Flag in [fIn, fInOut]) and (lMethod.Items[i].DataType = DataTypeNames[rtString]) then begin
+        iParamCombo.Items.Add(lMethod.Items[i].Name);
+      end;
+    end;
+    //if iParamCombo.Enabled then begin
+      if (iParamCombo.Items.Count > 0) then begin
+        iParamCombo.ItemIndex := 0;
+        iParamEdit.Text := cb_DataSets.Text;
+        EnablePanel(iParamEdit.Parent as TPanel);
+      end
+      else begin
+        iParamEdit.Text := '';
+        EnablePanel(iParamEdit.Parent as TPanel,false);
+      end;
+    //end
+  end;
+end;
+
+
+procedure TDADataTableEditorForm.cb_GetSchemaMethodsChange(Sender: TObject);
+begin
+  FillParameters(cb_GetSchemaMethods, cb_GetSchemaParams, ed_GetSchemaValue);
+end;
+
+procedure TDADataTableEditorForm.cb_GetDataMethodsChange(Sender: TObject);
+begin
+  FillParameters(cb_GetDataMethods, cb_GetDataParams, ed_GetDataValue);
+end;
+
+procedure TDADataTableEditorForm.cb_ApplyUpdatesMethodsChange(Sender: TObject);
+begin
+  FillParameters(cb_ApplyUpdatesMethods, cb_ApplyUpdatesParams, ed_ApplyUpdatesValue);
+end;
+
+procedure TDADataTableEditorForm.cb_GetScriptsMethodsChange(Sender: TObject);
+begin
+  FillParameters(cb_GetScriptsMethods, cb_GetScriptsParams, ed_GetScriptsValue);
+end;
+
+
+procedure TDADataTableEditorForm.CreateParameters(iMethodCombo, iParamCombo:TComboBox; iParamEdit:TEdit; ioParams:TDARemoteRequestParams);
+var
+  lIndex:integer;
+  lMethod:TRODLOperation;
+  i:integer;
+  newparam : TDARemoteRequestParam;
+begin
+  ioParams.Clear();
+
+  lIndex := iMethodCombo.ItemIndex;
+  if lIndex > -1 then begin
+    lMethod := (fMethods.Objects[lIndex] as TRODLOperation);
+
+    // AleF: fixed this one too and moved up to be consistent with the RODL changes of ages ago
+    if Assigned(lMethod.Result) then begin
+      ioParams.Add.CopyRODLParam(lMethod.Result);
+    end;
+
+    for i := 0 to lMethod.Count-1 do begin
+      // AleF: fixed this up so that it uses a common copy function instead of duplicating it like it was before
+      newparam := ioParams.Add;
+      newparam.CopyRODLParam(lMethod.Items[i]);
+
+      // Sets defaults
+      with newparam do begin
+        if (Flag in [fIn, fInOut]) and (Name = iParamCombo.Text) then begin
+          AsString := ed_GetSchemaValue.Text;
+        end
+        else if SameText(Name, 'MaxRecords') then begin
+          AsInteger := -1;
+        end
+        else if SameText(Name, 'IncludeSchema') then begin
+          AsBoolean := false;
+        end
+        else if (newparam.DataType=rtString) and VarIsEmpty(newparam.AsVariant) then begin
+          newparam.AsVariant := '';
+        end;
+      end;
+    end;
+  end;
+end;
+
+procedure TDADataTableEditorForm.btn_OkClick(Sender: TObject);
+begin
+  CreateParameters(cb_GetSchemaMethods, cb_GetSchemaParams, ed_GetSchemaValue, fGetSchemaParams);
+  CreateParameters(cb_GetDataMethods, cb_GetDataParams, ed_GetDataValue, fGetDataParams);
+  CreateParameters(cb_ApplyUpdatesMethods, cb_ApplyUpdatesParams, ed_ApplyUpdatesValue, fApplyUpdateParams);
+  CreateParameters(cb_GetScriptsMethods, cb_GetScriptsParams, ed_GetScriptsValue, fGetScriptsParams);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm.dfm
new file mode 100644
index 0000000..a233e81
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm.dfm	
@@ -0,0 +1,1457 @@
+inherited DADataTableMasterLinkWizard: TDADataTableMasterLinkWizard
+  Left = 259
+  Top = 205
+  Caption = '%s Master/Detail Wizard'
+  ClientHeight = 480
+  ClientWidth = 459
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited Bevel1: TBevel
+    Width = 459
+  end
+  object Label16: TLabel [1]
+    Left = 8
+    Top = 366
+    Width = 73
+    Height = 13
+    Caption = 'Mapping Mode:'
+  end
+  inherited Panel1: TPanel
+    Width = 459
+    inherited Image1: TImage
+      Picture.Data = {
+        055449636F6E0000010006003030000001000800A80E00006600000020200000
+        01000800A80800000E0F0000101000000100080068050000B617000030300000
+        01002000A82500001E1D00002020000001002000A8100000C642000010100000
+        01002000680400006E5300002800000030000000600000000100080000000000
+        0009000000000000000000000001000000010000000000000505050009090900
+        0D0D0D000B120B000E150E000A1D0A000C190C00121212001515150011181100
+        101D1000191919001D1D1D000A230A000F2A0F00053F0500093709000C3C0C00
+        14391400163D1600193019001A391A0021212100252525002028200029292900
+        2D2D2D0024342400293229003131310035353500333D3300393939003D3D3D00
+        07420700044B04000B420B000C450C000E480E00025902000C590C0016461600
+        104C10001353130014551400155815001D511D00185F180000660000006A0000
+        006E0000076F07000B620B00096709000E600E000E6D0E000072000000750000
+        00780000007D00000E7F0E00136C1300196119001B651B00204C20002C5C2E00
+        3640360039563B002571270028742C002B7730002D7A3300307C3700327F3B00
+        3C6240004040400045454500494949004D4D4D0049534A005151510056565600
+        595959005D5D5D004167460047644C0043694800456B4B00417A4900447D4E00
+        4F6252005D7965006161610065656500616B6400686868006E6E6E00637F6C00
+        7171710074747400787878007D7D7D000081000000850000008A0000008D0000
+        0A810A000A850A00009100000095000000990000049D05001284130007A00B00
+        0BA411000FA8170013AC1C001F91260022942A002D83350035823E002D973A00
+        16AF22001AB328001EB72E002FA13E0022BB340026BE39002AC23F0038844200
+        3B8745003D8949003C9B4C003C9C4D0032A442003BAE50003AB650003EB95500
+        408C4D00438F51004197510045925400479C580045A459005C826700629B7500
+        58A46D005DA9740060AC78002DC6440031CA4A0035CD500039D156003DD55B00
+        40D9610044DD670052C470004CDB710058DD7F0048E06D004CE4730050E87800
+        53EC7E005FDA860057EF84005BEA87005FED8C005BF38A005FF78F0086868600
+        959595009F9F9F00A2A2A200AAAAAA00ACACAC00000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000066511F090909090D4E60000000000000000000000000000000
+        00000000000000000000000000000000000000004E0D0D0D0D0D090909090309
+        0303031864000000000000000000000000000000000000000000000000000000
+        00001F1818180D0D0D090D09090909030303030303004E000000000000000000
+        000000000000000000000000000000001F1A1818180D180D0D0D0D0909090909
+        09030303030300035D000000000000000000000000000000000000000000641A
+        1A1A1A181818180D151327272727110F05090303030303000309000000000000
+        000000000000000000000000004E1F1A1F1A1A1A182A353B3B3B3A3A3A333333
+        332811070303030300000064000000000000000000000000000000004E1A1F1F
+        1A1F1A1A1C2D2D353B3B3B3A3A3A3A333333313124070303030300005D000000
+        00000000000000000000004E1F1F1F1F1F1A1F1A1A1A181A182A3A3B3A3A3333
+        333333313331100404000303005D0000000000000000000000004E1F1F211F1F
+        1A1F1A1F1A1A1A1A1818163B3B3A3A3A33333333313131280703030003006400
+        0000000000000000005D212121211F1F1F1F1A1F1A1A1A1A1A18183B3B3B3A3A
+        3A3331120F0B080507030303000300000000000000000000AB4E214E2121211F
+        1F1F1F1A1F1F1A1A1A181A673B3B3B3A3A270C09090909030303030303000309
+        00000000000000004E214E21212121211F1F1F1F1A1F1A1E1A1A1867673B3B3B
+        3A0D0D0C0C090909090303030303000051000000000000644E4E214E214E2121
+        211F1F1F1F1A1F1A1A1A1A1A181A16132D0D0D0C0C0909090903030303030303
+        000000000000004E4E4E4E44462121212121211F1F1F1F1E1F1A1A1A1A181818
+        0D0D0D0D0D0C09090909090310030003034E00000000664E4E214E76474E214E
+        2121211F1F1F1F1A1E1E1A1A1A1A181818170D0D0D0D090B0C080908310E0303
+        0003000000004E4E4E4E4B7C474E21214E2121211F1F1F1F1A1F1A1E1A1A1A18
+        1817180D0D0D0D0C09090908312403030303640000004E514E4E7A7D474E4E21
+        21212121211F1F1F1F1E1E1A1A1A1A18181817180D0D0D0C0C09090933310703
+        030309000066514E5150807F4A4E214E4E214E2121211F1F1F1E1E1F1E1A1A1A
+        1A181817180D0D0D0D0C0909333123030303030000515151515981804A4E4E21
+        4E21214E2121211F1F1F1E1A1E1E1A1A1A1A181817180D0D0D0D0C0C33332809
+        030303000051515151859681824E4E4E4E4E2121212121211F1F1F1F1E1E1E1A
+        1A1A1A181817180D0D0D0C0C33333109050303530053535151889796834E4E4E
+        214E4E214E21212121211F1F1E1E1E1E1A1A1A1A181817180D0D0D0C3333330F
+        0909034E00535351519A9797844E4E4E4E4E214E214E212121211F1F1F1E1E1E
+        1E1A1A1A1A181817180D0D0D3A3A33120909030900535353519B99988B4E4E4E
+        4E4E4E4E214E214E2121211F1F1F1E1E1E1E1A1A1A1A181817180D0D3A3A3327
+        0909090300535353539B9A998C514E4E4E4E4E214E214E21212121211F1F1F1E
+        1E1E1E1A1A1A1A181817180D3A3A3A270909090900535353539B9B9A8C51514E
+        4E4E4E4E4E4E214E214E2121211F1F1F1E1E1E1E1A1A1A1A181817293B3A3A27
+        09090909005D535353A19B9B905151514E4E4E4E4E4E4E214E21212121211F1F
+        1F1E1E2D382E2E2D3533673B3B3B3A270C0D0909005D5D5D539EA19C9B8F5B51
+        514E4E4E4E4E214E214E214E2121211F1F1F1E306A6A676A676767673B3B3B13
+        0D0C0D1F005D5D535D9DA1A09B9B9A8A8D8C58574B4E4E4E4E214E2121212121
+        1F1F1F306A6A6A6767676767673B3B150D0D0951005D5D5D5394A1A1A19B9B9A
+        99989796964E4E4E4E4E214E214E2121211F1F306D6A6A6A6A67676767673B18
+        0D0D0D6600665D5D5D5CA3A3A1A09C9B9A999897964E4E4E4E214E214E21214C
+        21211F306D6A6A6A676A6A67676735180D180D0000AC5D5D5D5D9FA3A2A1A09B
+        9B9A9998974E4E4E4E4E4E4E214E214C212121406D6D6A6A6A6A676A67672A18
+        180D0D00000060605D5D94A5A3A3A1A09C9B9A99985A4E4E4E4E4E4E4E214E21
+        4E2121716D6D6D6D6A6A676A67671A1818184E000000645D605D5FA6A5A3A2A1
+        A09B9B9A999886564E4E4E4E214E214E2142716F6F6F6D6D6A6A6A6A672E1A18
+        18180000000000605D605D95A8A5A3A3A1A09C9B9A9A989796877A4A4A787776
+        7474706F6F6F6D6D6D6D6A6A671E1A1A181F000000000064605D605DA4A8A5A3
+        A2A1A09B9B9A9998979681807F7D7D75757474726F6F6F6D6D6D6A6A411E1A1A
+        1A0000000000000060605D6062A7A8A5A3A3A1A09C9B9A9998979681807F7D7D
+        75757474726F6F6F6F6D6D381F1A1E1A21000000000000006660605D6092A8A8
+        A5A3A2A1A09B9B9A9998979681807F7D7D7575747472706F6F6D6C1F1F1E1E1A
+        000000000000000000606060605D92A9A8A5A3A3A1A09C9B9A9998979681807F
+        7D7D75757474726F6F6C1F1F1F1E1E5D000000000000000000AF606060606092
+        A8A8A5A3A2A1A09B9B9A9998979681807F7D7D757574747271431F1F1F1F2100
+        00000000000000000000AE6060605D6062A4A8A5A3A3A1A09C9B9A9998979681
+        807F7D7D757574454C214C1F1F4E00000000000000000000000000AA60606060
+        5D5D95A7A5A3A1A1A09C9B9A9998979681807F7D7D77444C4C214C4C4E000000
+        000000000000000000000000AE60606060605D5F949FA3A3A1A09B9B9A999897
+        9681807A4B4E4C4E214E1F4D0000000000000000000000000000000000AF6060
+        605D605D5D5D91939D9EA19B9B9A99898559504E4E4E4E4C4C4C5D0000000000
+        000000000000000000000000000000666060605D5D5D5D535353535353515151
+        514E514E4E4E4E4C4EAB00000000000000000000000000000000000000000000
+        006060605D5D5D5D5D535353535351515151514E4E4E4E640000000000000000
+        000000000000000000000000000000000000AF6460605D5D5D5D5D5353535353
+        515151514E660000000000000000000000000000000000000000000000000000
+        0000000000AE605D5D5D535D5353535353516600000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000FFFFE007FFFF0000FFFF0000
+        7FFF0000FFFC00001FFF0000FFF0000007FF0000FFC0000003FF0000FF800000
+        00FF0000FF000000007F0000FE000000003F0000FC000000001F0000F8000000
+        001F0000F0000000000F0000F000000000070000E000000000070000E0000000
+        00030000C000000000030000C000000000010000C00000000001000080000000
+        0001000080000000000100008000000000000000800000000000000080000000
+        0000000080000000000000008000000000000000800000000000000080000000
+        0000000080000000000000008000000000000000800000000000000080000000
+        000100008000000000010000C000000000010000C000000000030000E0000000
+        00030000E000000000070000F000000000070000F0000000000F0000F8000000
+        000F0000F8000000001F0000FC000000003F0000FE000000007F0000FF000000
+        00FF0000FF80000001FF0000FFE0000003FF0000FFF800000FFF0000FFFC0000
+        3FFF0000FFFF8001FFFF0000FFFFFFFFFFFF0000280000002000000040000000
+        0100080000000000000400000000000000000000000100000001000000000000
+        06060600090909000C0C0C000A170A000D130D000F160F000C190C0011111100
+        1414140012181200181818001D1D1D000C260C000B2B0B000E280E0007340700
+        0A310A00102B1000122D12001B2A1B0014311400153A1500173D17001D351D00
+        1E3F1E002222220026262600292929002E2E2E003232320034343400353E3500
+        3A3A3A003D3D3D00064906000A490A00025502000F560F001043100016451600
+        13531300016101000067000000690000006D0000066A0600046F04000B610B00
+        08650800096909000A6F0A00007200000075000000780000007D000015661500
+        147D150021442100335034003653380026732A003F5240004141410045454500
+        494949004E4E4E004558470049534B005151510056565600595959005D5D5D00
+        4369490044744C00427C4B00437C4D006262620065656500636D660068686800
+        6F6F6F0072727200777777007C7C7C000081000000860000008A0000008E0000
+        0A820A000091000000950000029B03001083110008A10C000DA6140013AC1D00
+        1F92270024972E002D8D3700299B350019B226001EB72E002EA03C0024BD3700
+        2AC23F003B8746003D934C0033A5430037AA4A002EB441003CAF510041844C00
+        4A835600428F50004197500041B3570041B4580046B85E005C83670063927200
+        57A36B004ABC650050B96B005FAB760062AE7C0030C8480037C6510035CE5100
+        3DCC59003BD3590042D1610041D9620046DF6B004CE4730052EA7C0058E68200
+        5DEC8A0057F085005DF58D008282820085858500888888008D8D8D0090909000
+        99999900A0A0A000ACACAC000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000052400B0909091C4100000000000000000000000000000000
+        0000000000521B1B0B0B0B0B0909080808004100000000000000000000000000
+        0000008E1C1C1B1B1B1B0B0B0B09090808080008400000000000000000000000
+        0000471C1E1C1C1826313635352D2A230E080800000900000000000000000000
+        00401E1E1E1C1C192930363635352D2D312A1008080000000000000000000000
+        40211E1E1E1E1C1C1C1B18353535352D2D313125040800080000000000000051
+        212121211E1E1E1C1C1C1B3236363535230E0604040800000900000000000040
+        402121211E1E1E1E1C1C1C32363636270B0B0909080808080040000000004540
+        403C212121211E1E1E1C1C1C1B1817140B0B0B09090808010800000000004140
+        3E6140212121211E1E1E1C1C1C1B1B1B1A0B0B0B09040D1008004100004E4141
+        636240402121211E1E1E1E1C1C1C1B1B0B1B0B0B0B0B0D310808000000454144
+        6864404040212121211E1E1E1C1C1B1B1B1B1B0B0B0B0E31100808000045454A
+        696740402140212121211E1E1E1C1C1C1B1B0B1B0B0B152D2308014192454572
+        7E6C41404040402121211E1E1E1E1C1C1C1B1B1B1A0B152D2A09040B8C474775
+        806D414141404040212121211E1E1E1C1C1C1B1B0B1B15352D0909098C474776
+        826F41414140402140212121211E1E1E1C1C1C1B1B1A1735350B09098C47477A
+        847545454141404040402121211E1E1E1E3A1C1C18272D35350B0B098E4E477B
+        8583714541414141404040212121211E1E57575656365635360B0B0B004E4779
+        8685848174736A43404040402121211E1E5A575756563656321B0B40004E4E77
+        8786858482807E494140402140212121215A575757565636261B0B4E004E4E4E
+        88878685848280704141404040402121205A5A5A57575656181B1B00008E4E4E
+        7C8A87868584827F4C4441414040403B395C5A5A575757321B1B1B0000004E4E
+        4F898A8786858482807E6E676462605F5E5C5C5A5A5A573A1C1B520000005451
+        4E788B8A8786858482807E69686665605F5E5C5C5A5A381E1C1C000000000051
+        4E4E7D8B8A8786858482807E69686665605F5E5C5C591E1E1E8E000000000093
+        514E4E7D8B8A8786858482806969686665605F5E5D201E1E4700000000000000
+        8E514E4E78898A8786858482807E69686665603D212121400000000000000000
+        0091514E4E4F7C888786858482807E6968633E40402141000000000000000000
+        000093514E4E4E4E77797B7A7675727044414040405100000000000000000000
+        0000000054514E4E474E47474745454541414145000000000000000000000000
+        0000000000008E4E4E4E474747474645454F0000000000000000000000000000
+        000000000000000000008E8E8C8C9200000000000000000000000000FFF00FFF
+        FF8001FFFE00007FFC00003FF800001FF000000FE0000007E0000003C0000003
+        C000000180000001800000018000000000000000000000000000000000000000
+        0000000080000000800000008000000180000001C0000001C0000003E0000003
+        E0000007F000000FF800001FFC00003FFF0000FFFFC003FFFFFC1FFF28000000
+        1000000020000000010008000000000000010000000000000000000000010000
+        00010000000000000A0A0A00090F09000F0F0F000E140E000C190C0013131300
+        14141400111E1100181818001D1D1D00092F09000A390A00113311001B321B00
+        22222200262626002B2B2B0021322100263626003030300034343400313A3100
+        393939003E3E3E00044A04000B440B000E490E0005540500065A0600075F0700
+        124912001848180014531400155915001E521E00006A0000066A0600096A0900
+        0070000000750000007B0000146414001B631B00137B1300374A38002E713300
+        2B78300043434300474747004C4C4C004A534B00575757005A5A5A005E5E5E00
+        46634B004E6152004A7050004878510063636300656565006868680070707000
+        757575007D7D7D000081000000860000008C00000B860C000092000001980100
+        09A20E0014AD1F0022B1320020B830003A9048004B975B005D836800539F6600
+        63A679002BC442003AC0540037CF530039C8530042DA64004DE6750063C28300
+        59E8840059F187008A8A8A009191910098989800AAAAAA000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000003D110906033400000000000000003E11121F1B1A0C0503
+        1500000000003615151220252828241902060000004018181514112129250D05
+        0403150000312E1815151511120E0909060B03005A3349311818151111101009
+        091C04343E3950313118151515111010091E0C03364C52323131181815111110
+        101E1A06364E5438323131181515232226291B09594D5554534B311818182B43
+        42421F095C3D575554513731312D2C454342123D003D4F58555452504A484745
+        452A1100005C3D5658555452504A484744163D0000005B3D4F5755545250492F
+        183600000000005C3D3D4D4E4C3A33314000000000000000005C5936363E5A00
+        00000000F81F0000E0070000C003000080010000800100000000000000000000
+        000000000000000000000000000000008001000080010000C0030000E0070000
+        F81F000028000000300000006000000001002000000000008025000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000001E1E1E0F1C1C1C4F1B1B1B8F191919BF
+        171717DF161616FF141414FF131313FF111111FF0F0F0FEF0E0E0EBF0D0D0D9F
+        0B0B0B6F0A0A0A2F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000002424240F2323235F212121CF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF
+        191919FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF0E0E0EFF
+        0C0C0CFF0B0B0BFF090909DF0808088F0707071F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000000000000000000000000000002929290F
+        2727277F262626EF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF
+        1A1A1AFF191919FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF
+        0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606BF0505053F00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000002C2C2C5F2A2A2AEF
+        292929FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF
+        1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF131313FF111111FF
+        0F0F0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF0505059F
+        0505050F00000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000003131310F2F2F2FAF2E2E2EFF2C2C2CFF
+        2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF193019FF
+        143914FF0E480EFF0D460DFF0C450CFF0B430BFF0C3C0CFF0F2A0FFF111811FF
+        111111FF0F0F0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF
+        040404EF0404044F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000003434342F323232DF303030FF2F2F2FFF2E2E2EFF
+        2C2C2CFF2A2A2AFF292929FF272727FF174717FF0B620BFF027702FF007A00FF
+        007800FF007600FF007400FF007300FF007100FF006F00FF006D00FF006B00FF
+        035903FF093709FF0D1A0DFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF
+        060606FF040404FF0303038F0000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000003737372F353535EF343434FF323232FF303030FF2F2F2FFF
+        2E2E2EFF2C2C2CFF2A2A2AFF243424FF145414FF135313FF096709FF007C00FF
+        007A00FF007800FF007600FF007400FF007300FF007100FF006F00FF006D00FF
+        006B00FF006900FF006700FF044B04FF0B1E0BFF0C0C0CFF0B0B0BFF090909FF
+        080808FF060606FF040404FF0303039F00000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000003A3A3A2F383838EF373737FF353535FF343434FF323232FF303030FF
+        2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF
+        164416FF027502FF007800FF007600FF007400FF007300FF007100FF006F00FF
+        006D00FF006B00FF006900FF006700FF006600FF053F05FF0B120BFF0B0B0BFF
+        090909FF080808FF060606FF040404FF0303039F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        3D3D3D2F3C3C3CEF3A3A3AFF383838FF373737FF353535FF343434FF323232FF
+        303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF
+        242424FF1A391AFF007A00FF007800FF007600FF007400FF007300FF007100FF
+        006F00FF006D00FF006B00FF006900FF006700FF006600FF015A01FF0A1D0AFF
+        0B0B0BFF090909FF080808FF060606FF040404FF0303038F0000000000000000
+        000000000000000000000000000000000000000000000000000000004141410F
+        3F3F3FCF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF
+        323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF
+        262626FF242424FF007C00FF007A00FF007800FF007600FF007400FF007300FF
+        007100FF036403FF0B410BFF0F2A0FFF101D10FF111111FF0E150EFF0C190CFF
+        0C0C0CFF0B0B0BFF090909FF080808FF060606FF040404FF0404044F00000000
+        000000000000000000000000000000000000000000000000000000004242428F
+        404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF
+        343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF
+        272727FF262626FF007E00FF007C00FF007A00FF007800FF007600FF007400FF
+        0D460DFF191919FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF
+        0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF040404EF0505050F
+        0000000000000000000000000000000000000000000000004545453F444444FF
+        424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF
+        353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF
+        292929FF272727FF008000FF007E00FF007C00FF007A00FF007800FF007600FF
+        1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF131313FF111111FF
+        0F0F0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF050505AF
+        000000000000000000000000000000000000000000000000464646BF454545FF
+        444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF
+        373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF
+        2A2A2AFF292929FF272727FF262626FF242424FF1A391AFF163D16FF104C10FF
+        1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF131313FF
+        111111FF0F0F0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF
+        0505053F000000000000000000000000000000004A4A4A3F484848FF474747FF
+        454545FF444444FF39563BFF28742CFF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF
+        383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF
+        2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF
+        1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF
+        131313FF111111FF0F0F0FFF053F05FF0C0C0CFF0B0B0BFF090909FF080808FF
+        060606BF000000000000000000000000000000004B4B4BBF4A4A4AFF484848FF
+        474747FF454545FF22942AFF2B7730FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF
+        3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF
+        2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF
+        212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF
+        141414FF131313FF111111FF006600FF0A230AFF0C0C0CFF0B0B0BFF090909FF
+        080808FF0707072F00000000000000004F4F4F1F4D4D4DFF4B4B4BFF4A4A4AFF
+        484848FF3C6240FF1AB328FF2D7A33FF424242FF404040FF3F3F3FFF3D3D3DFF
+        3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF
+        2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF
+        222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF
+        161616FF141414FF131313FF006700FF044B04FF0E0E0EFF0C0C0CFF0B0B0BFF
+        090909FF0808088F00000000000000005050506F4F4F4FFF4D4D4DFF4B4B4BFF
+        4A4A4AFF2D973AFF1EB72EFF307C37FF444444FF424242FF404040FF3F3F3FFF
+        3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF
+        303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF
+        242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF
+        171717FF161616FF141414FF006900FF006700FF0D1A0DFF0E0E0EFF0C0C0CFF
+        0B0B0BFF090909EF0000000000000000525252BF505050FF4F4F4FFF4D4D4DFF
+        49534AFF26BE39FF22BB34FF327F3BFF454545FF444444FF424242FF404040FF
+        3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF
+        323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF
+        262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF
+        191919FF171717FF161616FF006B00FF006900FF074207FF0F0F0FFF0E0E0EFF
+        0C0C0CFF0B0B0BFF0A0A0A2F00000000535353FF525252FF505050FF4F4F4FFF
+        417A49FF2AC23FFF26BE39FF35823EFF474747FF454545FF444444FF424242FF
+        404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF
+        343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF
+        272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF
+        1A1A1AFF191919FF171717FF006D00FF006B00FF035903FF111111FF0F0F0FFF
+        0E0E0EFF0C0C0CFF0B0B0B6F5656563F555555FF535353FF525252FF505050FF
+        3C9B4CFF2DC644FF2AC23FFF388442FF484848FF474747FF454545FF444444FF
+        424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF
+        353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF
+        292929FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF
+        1C1C1CFF1A1A1AFF191919FF006F00FF006D00FF006B00FF111811FF111111FF
+        0F0F0FFF0E0E0EFF0C0C0CAF5858584F575757FF555555FF535353FF525252FF
+        3BAE50FF31CA4AFF2DC644FF3B8745FF4A4A4AFF484848FF474747FF454545FF
+        444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF
+        373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF
+        2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF
+        1E1E1EFF1C1C1CFF1A1A1AFF007100FF006F00FF006D00FF0F2A0FFF131313FF
+        111111FF0F0F0FFF0E0E0EBF5959597F585858FF575757FF555555FF535353FF
+        39D156FF35CD50FF31CA4AFF3D8949FF4B4B4BFF4A4A4AFF484848FF474747FF
+        454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF
+        383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF
+        2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF
+        1F1F1FFF1E1E1EFF1C1C1CFF007300FF007100FF006F00FF0C3C0CFF141414FF
+        131313FF111111FF0F0F0FFF5B5B5B7F595959FF585858FF575757FF555555FF
+        3DD55BFF39D156FF35CD50FF408C4DFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF
+        474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF
+        3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF
+        2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF
+        212121FF1F1F1FFF1E1E1EFF007400FF007300FF007100FF0B430BFF161616FF
+        141414FF131313FF111111FF5C5C5C7F5B5B5BFF595959FF585858FF575757FF
+        40D961FF3DD55BFF39D156FF438F51FF4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF
+        484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF
+        3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF
+        2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF
+        222222FF212121FF1F1F1FFF007600FF007400FF007300FF0C450CFF171717FF
+        161616FF141414FF131313FF5E5E5E7F5D5D5DFF5B5B5BFF595959FF585858FF
+        44DD67FF40D961FF3DD55BFF459254FF505050FF4F4F4FFF4D4D4DFF4B4B4BFF
+        4A4A4AFF484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF
+        3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF
+        303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF
+        242424FF202820FF0C590CFF007800FF007600FF007400FF0D460DFF191919FF
+        171717FF161616FF141414FF6060607F5E5E5EFF5D5D5DFF5B5B5BFF595959FF
+        48E06DFF44DD67FF40D961FF45A459FF525252FF505050FF4F4F4FFF4D4D4DFF
+        4B4B4BFF4A4A4AFF484848FF474747FF454545FF444444FF424242FF404040FF
+        3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF
+        323232FF303030FF1D511DFF0E6D0EFF155A15FF155815FF145614FF0E600EFF
+        076F07FF007E00FF007C00FF007A00FF007800FF007600FF0E480EFF1A1A1AFF
+        191919FF171717FF161616FF6161617F606060FF5E5E5EFF5D5D5DFF5B5B5BFF
+        4CDB71FF48E06DFF44DD67FF40D961FF479C58FF4F6252FF505050FF4F4F4FFF
+        4D4D4DFF4B4B4BFF4A4A4AFF484848FF474747FF454545FF444444FF424242FF
+        404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF
+        343434FF323232FF185F18FF008B00FF008900FF008700FF008500FF008400FF
+        008200FF008000FF007E00FF007C00FF007A00FF007800FF143914FF1C1C1CFF
+        1A1A1AFF191919FF171717DF6262623F616161FF606060FF5E5E5EFF5D5D5DFF
+        52C470FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF3EB955FF419751FF
+        408C4DFF456B4BFF436948FF416746FF484848FF474747FF454545FF444444FF
+        424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF
+        353535FF343434FF196019FF008D00FF008B00FF008900FF008700FF008500FF
+        008400FF008200FF008000FF007E00FF007C00FF007A00FF193019FF1E1E1EFF
+        1C1C1CFF1A1A1AFF191919BF6464641F636363FF616161FF606060FF5E5E5EFF
+        58A46DFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF
+        35CD50FF31CA4AFF2DC644FF2AC23FFF4A4A4AFF484848FF474747FF454545FF
+        444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF
+        373737FF353535FF1A621AFF008F00FF008D00FF008B00FF008900FF008700FF
+        008500FF008400FF008200FF008000FF007E00FF027702FF212121FF1F1F1FFF
+        1E1E1EFF1C1C1CFF1B1B1B8F00000000656565DF636363FF616161FF606060FF
+        5D7965FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF
+        39D156FF35CD50FF31CA4AFF2DC644FF4B4B4BFF4A4A4AFF484848FF474747FF
+        454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF
+        383838FF373737FF1B641BFF009100FF008F00FF008D00FF008B00FF008900FF
+        008700FF008500FF008400FF008200FF008000FF0B620BFF222222FF212121FF
+        1F1F1FFF1E1E1EFF1C1C1C5F000000006666669F656565FF636363FF616161FF
+        606060FF58DD7FFF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF
+        3DD55BFF39D156FF35CD50FF31CA4AFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF
+        474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF
+        3A3A3AFF383838FF1B661BFF009300FF009100FF008F00FF008D00FF008B00FF
+        008900FF008700FF008500FF008400FF008200FF174717FF242424FF222222FF
+        212121FF1F1F1FFF1E1E1E0F000000006767674F666666FF656565FF636363FF
+        616161FF5DA974FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF
+        40D961FF3DD55BFF39D156FF35CD50FF447D4EFF4D4D4DFF4B4B4BFF4A4A4AFF
+        484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF
+        3C3C3CFF3A3A3AFF0E7F0EFF009500FF009300FF009100FF008F00FF008D00FF
+        008B00FF008900FF008700FF008500FF027E02FF272727FF262626FF242424FF
+        222222FF212121CF000000000000000000000000686868EF666666FF656565FF
+        636363FF616B64FF5BEA87FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF
+        44DD67FF40D961FF3DD55BFF39D156FF35CD50FF3C9C4DFF47644CFF4B4B4BFF
+        4A4A4AFF484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF
+        2C5C2EFF128413FF009900FF009700FF009500FF009300FF009100FF008F00FF
+        008D00FF008B00FF008900FF008700FF155815FF292929FF272727FF262626FF
+        242424FF2323235F0000000000000000000000006969697F686868FF666666FF
+        656565FF636363FF60AC78FF5BF38AFF57EF84FF53EC7EFF50E878FF4CE473FF
+        48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF
+        32A442FF2FA13EFF35823EFF327F3BFF2D8335FF22942BFF1F9126FF0FA817FF
+        0BA411FF07A00BFF049D05FF009900FF009700FF009500FF009300FF009100FF
+        008F00FF008D00FF008B00FF028402FF293229FF2A2A2AFF292929FF272727FF
+        262626EF2424240F0000000000000000000000006A6A6A1F696969EF686868FF
+        666666FF656565FF636363FF5FDA86FF5BF38AFF57EF84FF53EC7EFF50E878FF
+        4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF
+        2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF16AF22FF13AC1CFF
+        0FA817FF0BA411FF07A00BFF049D05FF009900FF009700FF009500FF009300FF
+        009100FF008F00FF008D00FF204C20FF2E2E2EFF2C2C2CFF2A2A2AFF292929FF
+        2727277F00000000000000000000000000000000000000006A6A6A7F696969FF
+        686868FF666666FF656565FF637F6CFF5FED8CFF5BF38AFF57EF84FF53EC7EFF
+        50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF
+        31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF16AF22FF
+        13AC1CFF0FA817FF0BA411FF07A00BFF049D05FF009900FF009700FF009500FF
+        009300FF009100FF136C13FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AEF
+        2929290F00000000000000000000000000000000000000006B6B6B0F6A6A6ADF
+        696969FF686868FF666666FF656565FF629B75FF5FF78FFF5BF38AFF57EF84FF
+        53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF
+        35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF
+        16AF22FF13AC1CFF0FA817FF0BA411FF07A00BFF049D05FF009900FF009700FF
+        009500FF0A810AFF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2C6F
+        000000000000000000000000000000000000000000000000000000006B6B6B3F
+        6A6A6AFF696969FF686868FF666666FF656565FF629B75FF5FF78FFF5BF38AFF
+        57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF
+        39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF
+        1AB328FF16AF22FF13AC1CFF0FA817FF0BA411FF07A00BFF049D05FF009900FF
+        0A850AFF333D33FF353535FF343434FF323232FF303030FF2F2F2FBF00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        6B6B6B8F6A6A6AFF696969FF686868FF666666FF656565FF629B75FF5FF78FFF
+        5BF38AFF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF
+        3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF
+        1EB72EFF1AB328FF16AF22FF13AC1CFF0FA817FF0BA411FF07A00BFF128413FF
+        364036FF383838FF373737FF353535FF343434FF323232EF3131310F00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000006B6B6B9F6A6A6AFF696969FF686868FF666666FF656565FF637F6CFF
+        5FDA86FF5BF38AFF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF
+        40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF
+        22BB34FF1EB72EFF1AB328FF16AF22FF13AC1CFF0FA817FF257127FF3D3D3DFF
+        3C3C3CFF3A3A3AFF383838FF373737FF353535EF3434342F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000006B6B6B0F6B6B6BCF6A6A6AFF696969FF686868FF666666FF656565FF
+        636363FF60AC78FF5BEA87FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF
+        44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF
+        26BE39FF22BB34FF1EB72EFF1AB328FF22942AFF39563BFF404040FF3F3F3FFF
+        3D3D3DFF3C3C3CFF3A3A3AFF383838EF3737372F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000006B6B6B0F6B6B6B9F6A6A6AFF696969FF686868FF666666FF
+        656565FF636363FF616B64FF5DA974FF58DD7FFF53EC7EFF50E878FF4CE473FF
+        48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF
+        2AC23FFF26BE39FF2D973AFF3C6240FF454545FF444444FF424242FF404040FF
+        3F3F3FFF3D3D3DFF3C3C3CEF3A3A3A2F00000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000006B6B6B8F6A6A6AFF696969FF686868FF
+        666666FF656565FF636363FF616161FF606060FF5C8267FF58A46DFF52C470FF
+        4CDB71FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF3AB650FF3C9B4CFF
+        417A49FF49534AFF4A4A4AFF484848FF474747FF454545FF444444FF424242FF
+        404040FF3F3F3FCF3D3D3D2F0000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000000000000000000000000006B6B6B3F6A6A6ADF696969FF
+        686868FF666666FF656565FF636363FF616161FF606060FF5E5E5EFF5D5D5DFF
+        5B5B5BFF595959FF585858FF575757FF555555FF535353FF525252FF505050FF
+        4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF474747FF454545FF444444FF
+        4242428F4141410F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000006B6B6B0F6A6A6A7F
+        696969FF686868FF666666FF656565FF636363FF616161FF606060FF5E5E5EFF
+        5D5D5DFF5B5B5BFF595959FF585858FF575757FF555555FF535353FF525252FF
+        505050FF4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF464646BF4545453F
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        6A6A6A1F6969698F686868EF666666FF656565FF636363FF616161FF606060FF
+        5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF575757FF555555FF535353FF
+        525252FF505050FF4F4F4FFF4D4D4DFF4B4B4BBF4A4A4A3F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000006767674F6666669F656565EF636363FF616161FF
+        606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF575757FF555555FF
+        535353FF525252BF5050506F4F4F4F1F00000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000006464641F6262623F
+        6161617F6060607F5E5E5E7F5C5C5C7F5B5B5B7F5959597F5858585F5656563F
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000FFFF8001FFFF0000FFFC00003FFF0000FFF00000
+        0FFF0000FFE0000003FF0000FF80000001FF0000FF00000000FF0000FE000000
+        007F0000FC000000003F0000F8000000001F0000F0000000000F0000F0000000
+        00070000E000000000070000E000000000030000C000000000030000C0000000
+        0001000080000000000100008000000000010000800000000000000080000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000800000000000000080000000
+        000000008000000000010000C000000000010000C000000000010000C0000000
+        00030000E000000000030000E000000000070000F0000000000F0000F8000000
+        000F0000FC000000001F0000FC000000003F0000FE000000007F0000FF800000
+        00FF0000FFC0000001FF0000FFE0000007FF0000FFF800001FFF0000FFFF0000
+        7FFF0000FFFFE007FFFF00002800000020000000400000000100200000000000
+        8010000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000000000000000000000000000002121210F
+        1F1F1F5F1D1D1D9F1A1A1ACF181818FF151515FF131313FF101010FF0E0E0EDF
+        0C0C0CBF0A0A0A6F0808081F0000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000000000000000000000000002929291F2626269F232323FF
+        212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF101010FF
+        0E0E0EFF0C0C0CFF090909FF070707BF0606063F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000002D2D2D8F2A2A2AFF282828FF262626FF
+        232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF
+        101010FF0E0E0EFF0C0C0CFF090909FF070707FF050505BF0404041F00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000003434341F323232CF2F2F2FFF2D2D2DFF2A2A2AFF282828FF
+        1E371EFF0F560FFF086408FF007800FF007500FF007200FF006F00FF026102FF
+        064906FF0B2B0BFF0E0E0EFF0C0C0CFF090909FF070707FF050505EF0303034F
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000003939392F363636EF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF
+        1E3F1EFF135313FF0B610BFF007A00FF007800FF007500FF007200FF006F00FF
+        006C00FF006900FF006100FF073407FF0C0C0CFF090909FF070707FF050505FF
+        0303035F00000000000000000000000000000000000000000000000000000000
+        3E3E3E0F3B3B3BEF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF
+        2A2A2AFF282828FF262626FF1D341DFF027502FF007800FF007500FF007200FF
+        006F00FF006C00FF006900FF006700FF025502FF0A170AFF090909FF070707FF
+        050505FF0303034F000000000000000000000000000000000000000000000000
+        404040BF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF
+        2D2D2DFF2A2A2AFF282828FF262626FF096709FF007A00FF007800FF007500FF
+        007200FF0A490AFF102B10FF121812FF0F160FFF0C190CFF0C0C0CFF090909FF
+        070707FF050505EF0404041F000000000000000000000000000000004444446F
+        424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF
+        2F2F2FFF2D2D2DFF2A2A2AFF282828FF096909FF007D00FF007A00FF007800FF
+        104310FF1A1A1AFF181818FF151515FF131313FF101010FF0E0E0EFF0C0C0CFF
+        090909FF070707FF050505BF0000000000000000000000004A4A4A0F474747EF
+        444444FF424242FF365338FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF
+        323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF1D341DFF173D17FF
+        1B2A1BFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF101010FF0D130DFF
+        0C0C0CFF090909FF070707FF0606063F00000000000000004B4B4B7F494949FF
+        474747FF3F5240FF1F9227FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF
+        343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF232323FF
+        212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF0C260CFF
+        073407FF0C0C0CFF090909FF070707BF00000000000000004E4E4EDF4B4B4BFF
+        494949FF2D8D37FF24972EFF424242FF404040FF3D3D3DFF3B3B3BFF393939FF
+        363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF
+        232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF0E280EFF
+        006100FF0E0E0EFF0C0C0CFF090909FF0808081F5252522F505050FF4E4E4EFF
+        49534BFF24BD37FF299B35FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF
+        393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF
+        262626FF232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF102B10FF
+        006900FF0A310AFF0E0E0EFF0C0C0CFF0A0A0A6F5555556F535353FF505050FF
+        44744CFF2AC23FFF2EA03CFF474747FF444444FF424242FF404040FF3D3D3DFF
+        3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF
+        282828FF262626FF232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF122D12FF
+        006C00FF064906FF101010FF0E0E0EFF0C0C0CBF5757578F555555FF535353FF
+        428F50FF30C848FF33A543FF494949FF474747FF444444FF424242FF404040FF
+        3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF
+        2A2A2AFF282828FF262626FF232323FF212121FF1F1F1FFF1C1C1CFF143014FF
+        006F00FF026102FF131313FF101010FF0E0E0EEF595959BF575757FF555555FF
+        41B357FF35CE51FF37AA4AFF4B4B4BFF494949FF474747FF444444FF424242FF
+        404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF
+        2D2D2DFF2A2A2AFF282828FF262626FF232323FF212121FF1F1F1FFF153215FF
+        007200FF006F00FF151515FF131313FF101010FF5C5C5CBF5A5A5AFF575757FF
+        46B85EFF3BD359FF3CAF51FF4E4E4EFF4B4B4BFF494949FF474747FF444444FF
+        424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF
+        2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF232323FF212121FF153A15FF
+        007500FF007200FF181818FF151515FF131313FF5E5E5EBF5C5C5CFF5A5A5AFF
+        4ABC65FF41D962FF41B458FF505050FF4E4E4EFF4B4B4BFF494949FF474747FF
+        444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF
+        323232FF2F2F2FFF214421FF2A2A2AFF282828FF1E371EFF164516FF046F04FF
+        007800FF007500FF1A1A1AFF181818FF151515FF616161BF5F5F5FFF5C5C5CFF
+        50B96BFF46DF6BFF42D161FF4A8356FF505050FF4E4E4EFF4B4B4BFF494949FF
+        474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF
+        343434FF323232FF008B00FF008900FF008600FF008300FF008000FF007D00FF
+        007A00FF007800FF1C1C1CFF1A1A1AFF181818FF6363637F616161FF5F5F5FFF
+        57A36BFF4CE473FF46DF6BFF41D962FF3DCC59FF3CAF51FF3D934CFF3B8746FF
+        455847FF474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF
+        363636FF343434FF008E00FF008B00FF008900FF008600FF008300FF008000FF
+        007D00FF066A06FF1F1F1FFF1C1C1CFF1A1A1ACF6565655F636363FF616161FF
+        5C8367FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF
+        436949FF494949FF474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF
+        393939FF363636FF009100FF008E00FF008B00FF008900FF008600FF008300FF
+        008000FF0F560FFF212121FF1F1F1FFF1D1D1DAF6767671F666666FF636363FF
+        616161FF58E682FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF
+        41844CFF4B4B4BFF494949FF474747FF444444FF424242FF404040FF3D3D3DFF
+        3B3B3BFF353E35FF009400FF009100FF008E00FF008B00FF008900FF008600FF
+        008300FF1E371EFF232323FF212121FF1F1F1F5F00000000676767BF666666FF
+        636363FF5FAB76FF57F085FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF
+        37C651FF437C4DFF49534BFF494949FF474747FF444444FF424242FF404040FF
+        335034FF147D15FF009700FF009400FF009100FF008E00FF008B00FF008900FF
+        0A6F0AFF282828FF262626FF232323FF2121210F000000006A6A6A5F686868FF
+        666666FF636D66FF5DEC8AFF57F085FF52EA7CFF4CE473FF46DF6BFF41D962FF
+        3BD359FF35CE51FF30C848FF2EB441FF2EA03CFF299B35FF24972EFF13AC1DFF
+        0DA614FF08A10CFF029B03FF009700FF009400FF009100FF008E00FF008B00FF
+        214421FF2A2A2AFF282828FF2626269F0000000000000000000000006A6A6ADF
+        686868FF666666FF639272FF5DF58DFF57F085FF52EA7CFF4CE473FF46DF6BFF
+        41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF1EB72EFF19B226FF
+        13AC1DFF0DA614FF08A10CFF029B03FF009700FF009400FF009100FF156615FF
+        2F2F2FFF2D2D2DFF2A2A2AFF2929291F0000000000000000000000006B6B6B3F
+        6A6A6AFF686868FF666666FF62AE7CFF5DF58DFF57F085FF52EA7CFF4CE473FF
+        46DF6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF1EB72EFF
+        19B226FF13AC1DFF0DA614FF08A10CFF029B03FF009700FF0A820AFF343434FF
+        323232FF2F2F2FFF2D2D2D8F0000000000000000000000000000000000000000
+        6B6B6B8F6A6A6AFF686868FF666666FF62AE7CFF5DF58DFF57F085FF52EA7CFF
+        4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF
+        1EB72EFF19B226FF13AC1DFF0DA614FF08A10CFF108311FF353E35FF363636FF
+        343434FF323232CF3030300F0000000000000000000000000000000000000000
+        000000006B6B6BBF6A6A6AFF686868FF666666FF639272FF5DEC8AFF57F085FF
+        52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF
+        24BD37FF1EB72EFF19B226FF13AC1DFF26732AFF3D3D3DFF3B3B3BFF393939FF
+        363636EF3434341F000000000000000000000000000000000000000000000000
+        000000006B6B6B0F6B6B6BAF6A6A6AFF686868FF666666FF636D66FF5FAB76FF
+        58E682FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF
+        2AC23FFF24BD37FF2D8D37FF3F5240FF424242FF404040FF3D3D3DFF3B3B3BEF
+        3939392F00000000000000000000000000000000000000000000000000000000
+        0000000000000000000000006B6B6B8F6A6A6AFF686868FF666666FF636363FF
+        616161FF5C8367FF57A36BFF50B96BFF4ABC65FF46B85EFF41B357FF419750FF
+        427C4BFF49534BFF494949FF474747FF444444FF424242FF404040BF3E3E3E0F
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000006B6B6B3F6A6A6ADF686868FF666666FF
+        636363FF616161FF5F5F5FFF5C5C5CFF5A5A5AFF575757FF555555FF535353FF
+        505050FF4E4E4EFF4B4B4BFF494949FF474747EF4444446F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000006A6A6A5F676767BF
+        666666FF636363FF616161FF5F5F5FFF5C5C5CFF5A5A5AFF575757FF555555FF
+        535353FF505050FF4E4E4EDF4B4B4B7F4A4A4A0F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        6767671F6565655F6363637F616161BF5E5E5EBF5C5C5CBF595959BF5757578F
+        5555556F5252522F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000FFC003FFFF0000FFFE00003F
+        F800001FF000000FE0000007E0000003C0000003800000018000000180000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000008000000080000001C0000001C0000003E0000003F0000007
+        F000000FFC00001FFE00007FFF8000FFFFE007FF280000001000000020000000
+        0100200000000000400400000000000000000000000000000000000000000000
+        0000000000000000000000002727273F222222AF1D1D1DEF181818FF131313FF
+        0F0F0FFF0B0B0BAF0707075F0000000000000000000000000000000000000000
+        000000003535350F303030AF2B2B2BFF213221FF124912FF0E490EFF0B440BFF
+        0A390AFF0C190CFF0A0A0AFF060606CF0404041F000000000000000000000000
+        3E3E3E0F393939CF343434FF303030FF263626FF184818FF066A06FF007500FF
+        007000FF006A00FF044A04FF090F09FF050505EF0404041F0000000000000000
+        424242AF3E3E3EFF393939FF343434FF303030FF2B2B2BFF145314FF007B00FF
+        017001FF113311FF111E11FF0E140EFF0A0A0AFF060606CF000000004B4B4B3F
+        474747FF2E7133FF3E3E3EFF393939FF343434FF303030FF2B2B2BFF223222FF
+        1B321BFF1D1D1DFF181818FF131313FF092F09FF0A0A0AFF0707075F5050509F
+        4A534BFF22B132FF434343FF3E3E3EFF393939FF343434FF303030FF2B2B2BFF
+        262626FF222222FF1D1D1DFF181818FF055405FF0C190CFF0B0B0BAF555555CF
+        4A7050FF2BC442FF474747FF434343FF3E3E3EFF393939FF343434FF303030FF
+        2B2B2BFF262626FF222222FF1D1D1DFF065A06FF0A390AFF0F0F0FFF5A5A5AFF
+        4B975BFF37CF53FF4C4C4CFF474747FF434343FF3E3E3EFF393939FF343434FF
+        303030FF2B2B2BFF262626FF222222FF075F07FF0B440BFF131313FF5F5F5FFF
+        539F66FF42DA64FF4E6152FF4C4C4CFF474747FF434343FF3E3E3EFF393939FF
+        343434FF1E521EFF155915FF096A09FF007B00FF0E490EFF181818FF636363BF
+        5D8368FF4DE675FF42DA64FF39C853FF3A9048FF474747FF434343FF3E3E3EFF
+        393939FF1B631BFF008C00FF008600FF008100FF124912FF1D1D1DFF6868688F
+        646464FF59E884FF4DE675FF42DA64FF3AC054FF46634BFF474747FF434343FF
+        374A38FF137B13FF009200FF008C00FF008600FF213221FF222222AF6A6A6A1F
+        686868FF63A679FF59F187FF4DE675FF42DA64FF37CF53FF2BC442FF20B830FF
+        14AD1FFF09A20EFF019801FF009200FF146414FF2B2B2BFF2727273F00000000
+        6A6A6A8F686868FF63C283FF59F187FF4DE675FF42DA64FF37CF53FF2BC442FF
+        20B830FF14AD1FFF09A20EFF0B860CFF313A31FF303030BF0000000000000000
+        000000006A6A6AAF686868FF63A679FF59E884FF4DE675FF42DA64FF37CF53FF
+        2BC442FF22B132FF2B7830FF3E3E3EFF393939CF3535350F0000000000000000
+        00000000000000006A6A6A8F686868FF646464FF5D8368FF539F66FF4B975BFF
+        487851FF4A534BFF474747FF424242AF3E3E3E0F000000000000000000000000
+        0000000000000000000000006A6A6A1F6868688F636363BF5F5F5FFF5A5A5AFF
+        555555CF5050509F4B4B4B3F00000000000000000000000000000000F00F0000
+        C003000080010000800100000000000000000000000000000000000000000000
+        00000000000000000000000080010000C0010000E0030000F00F0000}
+    end
+    inherited Label1: TLabel
+      Width = 221
+      Caption = 'Data Table Master/Detail Setup Wizard'
+    end
+    inherited Label2: TLabel
+      Width = 295
+      Caption = 'This wizard will help you configure a master/detail relationship'
+    end
+  end
+  inherited pc_Pages: TPageControl
+    Width = 459
+    Height = 401
+    ActivePage = ts_MasterSource
+    inherited ts_Welcome: TTabSheet
+      inherited Label3: TLabel
+        Width = 313
+        Caption = 'Welcome to the Data Table Master/Detail Setup Wizard'
+      end
+      inherited Label4: TLabel
+        Width = 350
+        Height = 39
+        Caption = 
+          'This wizard will help you set up a Master/Detail relationship by' +
+          ' choosing a Master Source for the selected data table and defini' +
+          'ng how the relationshop between master and detail tables is mapp' +
+          'ed.'
+        WordWrap = True
+      end
+      object Label24: TLabel
+        Left = 24
+        Top = 72
+        Width = 218
+        Height = 13
+        Caption = 'This wizard will affect the following properties'
+      end
+      object Label25: TLabel
+        Left = 32
+        Top = 88
+        Width = 73
+        Height = 13
+        Caption = '- MasterSource'
+      end
+      object Label26: TLabel
+        Left = 32
+        Top = 104
+        Width = 145
+        Height = 13
+        Caption = '- MasterFields and DetailFields'
+      end
+      object Label27: TLabel
+        Left = 32
+        Top = 136
+        Width = 120
+        Height = 13
+        Caption = '- MasterParamsMappings'
+      end
+      object Label28: TLabel
+        Left = 32
+        Top = 152
+        Width = 120
+        Height = 13
+        Caption = '- MasterRequestMapping'
+      end
+      object Label29: TLabel
+        Left = 32
+        Top = 120
+        Width = 106
+        Height = 13
+        Caption = '- MasterMappingMode'
+      end
+    end
+    object ts_MasterSource: TTabSheet [1]
+      Caption = 'ts_MasterSource'
+      ImageIndex = 6
+      object Label8: TLabel
+        Left = 8
+        Top = 8
+        Width = 105
+        Height = 13
+        Caption = 'Pick MasterSource'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label9: TLabel
+        Left = 24
+        Top = 24
+        Width = 286
+        Height = 13
+        Caption = 'Select the data table to use as master source for this table:'
+      end
+      object Label10: TLabel
+        Left = 8
+        Top = 80
+        Width = 126
+        Height = 13
+        Caption = 'Choose Mapping Mode'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label17: TLabel
+        Left = 24
+        Top = 96
+        Width = 371
+        Height = 13
+        Caption = 
+          'Select what method you want to use fetch detail data for your ma' +
+          'ster source'
+      end
+      object lbl_Params1: TLabel
+        Left = 42
+        Top = 204
+        Width = 354
+        Height = 39
+        Caption = 
+          'Master key fields will be passed as parameters when fetching det' +
+          'ail data. Use this if you'#39're talking to a standard DA server, an' +
+          'd have defined Parameters in data table inside your schema.'
+        WordWrap = True
+      end
+      object lbl_Params2: TLabel
+        Left = 42
+        Top = 248
+        Width = 320
+        Height = 26
+        Caption = 
+          'Your detail data will be fetched via the standard DataRequestCal' +
+          'l, just like any data table.'
+        WordWrap = True
+      end
+      object lbl_Method1: TLabel
+        Left = 42
+        Top = 324
+        Width = 358
+        Height = 13
+        Caption = 
+          'Data will be retrieved using a custom method you provided in you' +
+          'r service.'
+      end
+      object lbl_Method2: TLabel
+        Left = 42
+        Top = 344
+        Width = 345
+        Height = 22
+        Caption = 
+          'This option is only available if the detail table uses a separat' +
+          'e RemoteDataAdapter component with a custom DataRequestCall.'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clGrayText
+        Font.Height = -9
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        WordWrap = True
+      end
+      object lbl_Params3: TLabel
+        Left = 42
+        Top = 282
+        Width = 298
+        Height = 11
+        Caption = 
+          'This option is only available if your detail data table defines ' +
+          'parameters.'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clGrayText
+        Font.Height = -9
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        WordWrap = True
+      end
+      object lbl_Where1: TLabel
+        Left = 42
+        Top = 140
+        Width = 291
+        Height = 13
+        Caption = 'A where clause will be passed to retrieve filtered detail data.'
+      end
+      object lbl_Where2: TLabel
+        Left = 42
+        Top = 160
+        Width = 175
+        Height = 11
+        Caption = 'Recommended for Version 5.0 and above.'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clGrayText
+        Font.Height = -9
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object cb_DataSources: TComboBox
+        Left = 24
+        Top = 40
+        Width = 289
+        Height = 21
+        Style = csDropDownList
+        ItemHeight = 13
+        TabOrder = 0
+        OnChange = cb_DataSourcesChange
+      end
+      object rb_Where: TRadioButton
+        Left = 24
+        Top = 120
+        Width = 177
+        Height = 13
+        Caption = 'Using automatic WHERE clauses'
+        TabOrder = 1
+        OnClick = cb_DataSourcesChange
+      end
+      object rb_Params: TRadioButton
+        Left = 24
+        Top = 184
+        Width = 129
+        Height = 13
+        Caption = 'Using data parameters'
+        TabOrder = 2
+        OnClick = cb_DataSourcesChange
+      end
+      object rb_Method: TRadioButton
+        Left = 24
+        Top = 304
+        Width = 153
+        Height = 13
+        Caption = 'Using a custom method call'
+        TabOrder = 3
+        OnClick = cb_DataSourcesChange
+      end
+    end
+    object ts_Fields: TTabSheet [2]
+      Caption = 'ts_Fields'
+      ImageIndex = 3
+      object labMasterFields: TLabel
+        Left = 24
+        Top = 80
+        Width = 67
+        Height = 13
+        Caption = '&Master Fields:'
+        FocusControl = lbMaster
+      end
+      object labDetailFields: TLabel
+        Left = 256
+        Top = 80
+        Width = 61
+        Height = 13
+        Caption = '&Detail Fields:'
+        FocusControl = lbDetail
+      end
+      object Label13: TLabel
+        Left = 24
+        Top = 311
+        Width = 64
+        Height = 13
+        Caption = 'MasterFields:'
+        FocusControl = eMasterFields
+      end
+      object Label14: TLabel
+        Left = 24
+        Top = 335
+        Width = 58
+        Height = 13
+        Caption = 'DetailFields:'
+        FocusControl = eDetailFields
+      end
+      object Label18: TLabel
+        Left = 8
+        Top = 8
+        Width = 114
+        Height = 13
+        Caption = 'Master/Detail Fields'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label19: TLabel
+        Left = 24
+        Top = 24
+        Width = 323
+        Height = 13
+        Caption = 
+          'Please select the fields that describe the Master/Detail relatio' +
+          'nship.'
+      end
+      object lbMaster: TListBox
+        Left = 22
+        Top = 96
+        Width = 164
+        Height = 209
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 0
+      end
+      object lbDetail: TListBox
+        Left = 254
+        Top = 96
+        Width = 164
+        Height = 209
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 1
+      end
+      object eMasterFields: TEdit
+        Left = 97
+        Top = 308
+        Width = 321
+        Height = 21
+        TabOrder = 2
+        Text = 'fdsfdsdsf'
+        OnChange = OnFieldMappingChange
+      end
+      object eDetailFields: TEdit
+        Left = 97
+        Top = 332
+        Width = 321
+        Height = 21
+        TabOrder = 3
+        Text = 'fdsfdsdsf'
+        OnChange = OnFieldMappingChange
+      end
+      object bbAddFieldMapping: TBitBtn
+        Left = 190
+        Top = 96
+        Width = 60
+        Height = 25
+        Caption = '&Add'
+        TabOrder = 4
+        OnClick = bbAddFieldMappingClick
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF03
+          5D05035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79105950E035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79106950F035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
+          05035D05FF00FFFF00FFFF00FF035D055BF7913BDA6930CF572AC64D21B83C17
+          A62B119F210D9E1C0A9A1506920E05930D058B0D035D05FF00FFFF00FF035D05
+          5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
+          915BF791035D05FF00FFFF00FFFF00FF035D05035D05035D05035D05035D055B
+          F79125BC42035D05035D05035D05035D05035D05FF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7913BD968035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7915BF791035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      end
+      object BitBtn4: TBitBtn
+        Left = 190
+        Top = 280
+        Width = 59
+        Height = 25
+        Caption = '&Clear'
+        TabOrder = 5
+        OnClick = BitBtn4Click
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF2BB81F3C48AF2BC81EF
+          B072EEAF6EEFB275FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFBEBBDFEF3C9FBDEACF3C990FBB67EFFB47DFCCA99FFD9ADFED9A7F0B5
+          77FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFEFAD3FEF7CCFBDCA9EBCA91A9
+          B86E84AB542B912057A743EAF3C7FCE9BDEEAD6FFF00FFFF00FFFF00FFFF00FF
+          EDA565F3C28AFCF0C4FCE5B5FBD09F2C9622007B00058206067F043DA335FEF2
+          D0F0B173FF00FFFF00FFFF00FFFF00FFEEAB6DEDA767EFB070F6C990FFD8AC2E
+          9823006E006ABF6BFFF0EA48A138A3AF5EFCAF74FF00FFFF00FFFF00FFFF00FF
+          F2B479F2B77EF0B277F0AC6FFBB57E7AB46041A6416FBC69FFFFFFF4FEFBBCBB
+          79F3AA6BFF00FFFF00FFFF00FFFF00FFF7C292FAC598F8C293F8C090F3BF8AC2
+          D5A5FFFFFFD9EED556B1534BAF4BB8BC79F8B075FF00FFFF00FFFF00FFF6C792
+          FCD4ADFCD4ACFCD0A9FCD0A9FFD4B55DA94680C780E0F2DE27982400700082B0
+          5BFFBD90EEAC6DFF00FFFF00FFF6C792FFEAC4FEE3BCFEE2BAFEE0B8FFE0BAD9
+          D9AC0A8209188A16037F0300790077B45DFFCEAAEEAC6DFF00FFFF00FFFADDAB
+          FFFBD5FFF4CCFFF3CAFFF0C9FFEFC5FFF2D1B5D5982A96242B99249ACB87B5D1
+          95FFE0BAF2B77AFF00FFFF00FFFCEFC4FFFFD8FFFBD3FFFCD4FFFBD3FFFBD4FF
+          FCD4FFFFE1FFFFEBFFFFE7FFFFE0FFF8D7FFF4CBF3C086FF00FFFF00FFFEF4CB
+          FFFFDDFFFFD9FFFFD9FFFFDAFFFED7FEF6CCF8DAA3F4C07DF4C17FF7D8A3FEF2
+          C5FFFFDDF3C991FF00FFFF00FFF4CC96F8DEAFF8DDACF7D8A6F6CF99F3BF80EF
+          AC66EB9D4FEB9C4CEB9F55F0AC6EFAC087FCD3A0FAC089FF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFEDA354EFAB68F7BC83FABF
+          88FABC83FABC83FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFAC088FAC088FAC088FF00FFFF00FF}
+      end
+    end
+    object ts_MethodCall: TTabSheet [3]
+      Caption = 'ts_MethodCall'
+      ImageIndex = 4
+      object labMasterFields2: TLabel
+        Left = 24
+        Top = 80
+        Width = 67
+        Height = 13
+        Caption = '&Master Fields:'
+      end
+      object labDataReqParams: TLabel
+        Left = 256
+        Top = 80
+        Width = 122
+        Height = 13
+        Caption = 'DataRequestCall &Params:'
+        FocusControl = lbDataReqParams
+      end
+      object Label7: TLabel
+        Left = 24
+        Top = 286
+        Width = 273
+        Height = 13
+        Caption = 'Mapp&ings (Detail'#39's DataRequestCall Param=MasterField):'
+        FocusControl = mMappings
+      end
+      object Label20: TLabel
+        Left = 8
+        Top = 8
+        Width = 190
+        Height = 13
+        Caption = 'Map Fields to Method Parameters'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label21: TLabel
+        Left = 24
+        Top = 24
+        Width = 396
+        Height = 39
+        Caption = 
+          'Select how the master fields map to the parameters passed to the' +
+          ' customs GetDataCall you are using to fetch Detail data. Ideally' +
+          ', all fields from the previous page (i.e. all fields involved in' +
+          ' the M/D relationship) should be mapped here.'
+        WordWrap = True
+      end
+      object lbMaster2: TListBox
+        Left = 22
+        Top = 96
+        Width = 164
+        Height = 185
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 0
+      end
+      object lbDataReqParams: TListBox
+        Left = 254
+        Top = 96
+        Width = 164
+        Height = 185
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 1
+      end
+      object mMappings: TMemo
+        Left = 22
+        Top = 302
+        Width = 395
+        Height = 60
+        ScrollBars = ssVertical
+        TabOrder = 2
+      end
+      object bbAddDataReqMapping: TBitBtn
+        Left = 190
+        Top = 96
+        Width = 60
+        Height = 25
+        Caption = '&Add'
+        TabOrder = 3
+        OnClick = bbAddDataReqMappingClick
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF03
+          5D05035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79105950E035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79106950F035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
+          05035D05FF00FFFF00FFFF00FF035D055BF7913BDA6930CF572AC64D21B83C17
+          A62B119F210D9E1C0A9A1506920E05930D058B0D035D05FF00FFFF00FF035D05
+          5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
+          915BF791035D05FF00FFFF00FFFF00FF035D05035D05035D05035D05035D055B
+          F79125BC42035D05035D05035D05035D05035D05FF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7913BD968035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7915BF791035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      end
+      object bbClearDataReqMapping: TBitBtn
+        Left = 190
+        Top = 256
+        Width = 59
+        Height = 25
+        Caption = '&Clear'
+        TabOrder = 4
+        OnClick = bbClearDataReqMappingClick
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF2BB81F3C48AF2BC81EF
+          B072EEAF6EEFB275FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFBEBBDFEF3C9FBDEACF3C990FBB67EFFB47DFCCA99FFD9ADFED9A7F0B5
+          77FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFEFAD3FEF7CCFBDCA9EBCA91A9
+          B86E84AB542B912057A743EAF3C7FCE9BDEEAD6FFF00FFFF00FFFF00FFFF00FF
+          EDA565F3C28AFCF0C4FCE5B5FBD09F2C9622007B00058206067F043DA335FEF2
+          D0F0B173FF00FFFF00FFFF00FFFF00FFEEAB6DEDA767EFB070F6C990FFD8AC2E
+          9823006E006ABF6BFFF0EA48A138A3AF5EFCAF74FF00FFFF00FFFF00FFFF00FF
+          F2B479F2B77EF0B277F0AC6FFBB57E7AB46041A6416FBC69FFFFFFF4FEFBBCBB
+          79F3AA6BFF00FFFF00FFFF00FFFF00FFF7C292FAC598F8C293F8C090F3BF8AC2
+          D5A5FFFFFFD9EED556B1534BAF4BB8BC79F8B075FF00FFFF00FFFF00FFF6C792
+          FCD4ADFCD4ACFCD0A9FCD0A9FFD4B55DA94680C780E0F2DE27982400700082B0
+          5BFFBD90EEAC6DFF00FFFF00FFF6C792FFEAC4FEE3BCFEE2BAFEE0B8FFE0BAD9
+          D9AC0A8209188A16037F0300790077B45DFFCEAAEEAC6DFF00FFFF00FFFADDAB
+          FFFBD5FFF4CCFFF3CAFFF0C9FFEFC5FFF2D1B5D5982A96242B99249ACB87B5D1
+          95FFE0BAF2B77AFF00FFFF00FFFCEFC4FFFFD8FFFBD3FFFCD4FFFBD3FFFBD4FF
+          FCD4FFFFE1FFFFEBFFFFE7FFFFE0FFF8D7FFF4CBF3C086FF00FFFF00FFFEF4CB
+          FFFFDDFFFFD9FFFFD9FFFFDAFFFED7FEF6CCF8DAA3F4C07DF4C17FF7D8A3FEF2
+          C5FFFFDDF3C991FF00FFFF00FFF4CC96F8DEAFF8DDACF7D8A6F6CF99F3BF80EF
+          AC66EB9D4FEB9C4CEB9F55F0AC6EFAC087FCD3A0FAC089FF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFEDA354EFAB68F7BC83FABF
+          88FABC83FABC83FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFAC088FAC088FAC088FF00FFFF00FF}
+      end
+    end
+    object ts_Params: TTabSheet [4]
+      Caption = 'ts_Params'
+      ImageIndex = 5
+      object Label11: TLabel
+        Left = 24
+        Top = 80
+        Width = 74
+        Height = 13
+        Caption = 'Master'#39's Fields:'
+      end
+      object Label12: TLabel
+        Left = 256
+        Top = 80
+        Width = 39
+        Height = 13
+        Caption = 'Params:'
+        FocusControl = lbParams
+      end
+      object Label15: TLabel
+        Left = 24
+        Top = 286
+        Width = 190
+        Height = 13
+        Caption = 'Mappings (Detail'#39's Param=MasterField):'
+        FocusControl = mParamsMappings
+      end
+      object Label22: TLabel
+        Left = 8
+        Top = 8
+        Width = 208
+        Height = 13
+        Caption = 'Map Fields to Data Table Parameters'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label23: TLabel
+        Left = 24
+        Top = 24
+        Width = 399
+        Height = 39
+        Caption = 
+          'Select how the master fields map to the parameters of your detai' +
+          'l data. Ideally, all fields from the previous page (i.e. all fie' +
+          'lds involved in the M/D relationship) should be mapped here.'
+        WordWrap = True
+      end
+      object lbMaster3: TListBox
+        Left = 22
+        Top = 96
+        Width = 164
+        Height = 185
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 0
+      end
+      object lbParams: TListBox
+        Left = 254
+        Top = 96
+        Width = 164
+        Height = 185
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 1
+      end
+      object mParamsMappings: TMemo
+        Left = 22
+        Top = 302
+        Width = 395
+        Height = 60
+        ScrollBars = ssVertical
+        TabOrder = 2
+      end
+      object bbAddParamMappingXXX: TBitBtn
+        Left = 190
+        Top = 96
+        Width = 60
+        Height = 25
+        Caption = '&Add'
+        TabOrder = 3
+        OnClick = bbAddParamMappingXXXClick
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF03
+          5D05035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79105950E035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79106950F035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
+          05035D05FF00FFFF00FFFF00FF035D055BF7913BDA6930CF572AC64D21B83C17
+          A62B119F210D9E1C0A9A1506920E05930D058B0D035D05FF00FFFF00FF035D05
+          5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
+          915BF791035D05FF00FFFF00FFFF00FF035D05035D05035D05035D05035D055B
+          F79125BC42035D05035D05035D05035D05035D05FF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7913BD968035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7915BF791035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      end
+      object bbClearParamMappingsXXX: TBitBtn
+        Left = 190
+        Top = 256
+        Width = 59
+        Height = 25
+        Caption = '&Clear'
+        TabOrder = 4
+        OnClick = bbClearParamMappingsXXXClick
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF2BB81F3C48AF2BC81EF
+          B072EEAF6EEFB275FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFBEBBDFEF3C9FBDEACF3C990FBB67EFFB47DFCCA99FFD9ADFED9A7F0B5
+          77FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFEFAD3FEF7CCFBDCA9EBCA91A9
+          B86E84AB542B912057A743EAF3C7FCE9BDEEAD6FFF00FFFF00FFFF00FFFF00FF
+          EDA565F3C28AFCF0C4FCE5B5FBD09F2C9622007B00058206067F043DA335FEF2
+          D0F0B173FF00FFFF00FFFF00FFFF00FFEEAB6DEDA767EFB070F6C990FFD8AC2E
+          9823006E006ABF6BFFF0EA48A138A3AF5EFCAF74FF00FFFF00FFFF00FFFF00FF
+          F2B479F2B77EF0B277F0AC6FFBB57E7AB46041A6416FBC69FFFFFFF4FEFBBCBB
+          79F3AA6BFF00FFFF00FFFF00FFFF00FFF7C292FAC598F8C293F8C090F3BF8AC2
+          D5A5FFFFFFD9EED556B1534BAF4BB8BC79F8B075FF00FFFF00FFFF00FFF6C792
+          FCD4ADFCD4ACFCD0A9FCD0A9FFD4B55DA94680C780E0F2DE27982400700082B0
+          5BFFBD90EEAC6DFF00FFFF00FFF6C792FFEAC4FEE3BCFEE2BAFEE0B8FFE0BAD9
+          D9AC0A8209188A16037F0300790077B45DFFCEAAEEAC6DFF00FFFF00FFFADDAB
+          FFFBD5FFF4CCFFF3CAFFF0C9FFEFC5FFF2D1B5D5982A96242B99249ACB87B5D1
+          95FFE0BAF2B77AFF00FFFF00FFFCEFC4FFFFD8FFFBD3FFFCD4FFFBD3FFFBD4FF
+          FCD4FFFFE1FFFFEBFFFFE7FFFFE0FFF8D7FFF4CBF3C086FF00FFFF00FFFEF4CB
+          FFFFDDFFFFD9FFFFD9FFFFDAFFFED7FEF6CCF8DAA3F4C07DF4C17FF7D8A3FEF2
+          C5FFFFDDF3C991FF00FFFF00FFF4CC96F8DEAFF8DDACF7D8A6F6CF99F3BF80EF
+          AC66EB9D4FEB9C4CEB9F55F0AC6EFAC087FCD3A0FAC089FF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFEDA354EFAB68F7BC83FABF
+          88FABC83FABC83FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFAC088FAC088FAC088FF00FFFF00FF}
+      end
+    end
+    inherited ts_Finish: TTabSheet
+      inherited Label5: TLabel
+        Width = 51
+        Caption = 'That'#39's It!'
+      end
+      inherited Label6: TLabel
+        Width = 217
+        Caption = 'Your Master/Detail relationship is now set up.'
+      end
+      inherited lv_Options: TListView
+        Top = 184
+        Visible = False
+      end
+    end
+  end
+  inherited Panel2: TPanel
+    Top = 445
+    Width = 459
+    inherited btn_Finish: TBitBtn
+      Left = 379
+      OnClick = btn_FinishClick
+    end
+    inherited btn_Next: TBitBtn
+      Left = 379
+    end
+    inherited btn_Back: TBitBtn
+      Left = 299
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm.pas
new file mode 100644
index 0000000..0c0d22f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm.pas	
@@ -0,0 +1,393 @@
+unit uDADataTableMasterLinkWizardForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ComCtrls, Buttons, uDADataTable, uEWWizard, ExtCtrls,
+  DesignIntf;
+
+type
+  TDADataTableMasterLinkWizard = class(TEWWizardForm)
+    ts_Fields: TTabSheet;
+    ts_MethodCall: TTabSheet;
+    ts_Params: TTabSheet;
+    labMasterFields: TLabel;
+    labDetailFields: TLabel;
+    Label13: TLabel;
+    Label14: TLabel;
+    lbMaster: TListBox;
+    lbDetail: TListBox;
+    eMasterFields: TEdit;
+    eDetailFields: TEdit;
+    bbAddFieldMapping: TBitBtn;
+    BitBtn4: TBitBtn;
+    labMasterFields2: TLabel;
+    labDataReqParams: TLabel;
+    Label7: TLabel;
+    lbMaster2: TListBox;
+    lbDataReqParams: TListBox;
+    mMappings: TMemo;
+    bbAddDataReqMapping: TBitBtn;
+    bbClearDataReqMapping: TBitBtn;
+    Label11: TLabel;
+    Label12: TLabel;
+    Label15: TLabel;
+    lbMaster3: TListBox;
+    lbParams: TListBox;
+    mParamsMappings: TMemo;
+    bbAddParamMappingXXX: TBitBtn;
+    bbClearParamMappingsXXX: TBitBtn;
+    ts_MasterSource: TTabSheet;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label18: TLabel;
+    Label19: TLabel;
+    Label20: TLabel;
+    Label21: TLabel;
+    cb_DataSources: TComboBox;
+    Label10: TLabel;
+    Label17: TLabel;
+    rb_Params: TRadioButton;
+    rb_Method: TRadioButton;
+    lbl_Params1: TLabel;
+    lbl_Params2: TLabel;
+    lbl_Method1: TLabel;
+    lbl_Method2: TLabel;
+    Label22: TLabel;
+    Label23: TLabel;
+    lbl_Params3: TLabel;
+    Label24: TLabel;
+    Label25: TLabel;
+    Label26: TLabel;
+    Label27: TLabel;
+    Label28: TLabel;
+    Label29: TLabel;
+    rb_Where: TRadioButton;
+    lbl_Where1: TLabel;
+    lbl_Where2: TLabel;
+    procedure bbAddFieldMappingClick(Sender: TObject);
+    procedure bbAddDataReqMappingClick(Sender: TObject);
+    procedure bbClearDataReqMappingClick(Sender: TObject);
+    procedure BitBtn4Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure bbAddParamMappingXXXClick(Sender: TObject);
+    procedure bbClearParamMappingsXXXClick(Sender: TObject);
+    procedure cb_DataSourcesChange(Sender: TObject);
+    procedure btn_FinishClick(Sender: TObject);
+    procedure OnFieldMappingChange(Sender: TObject);
+  private
+    fDataTable: TDADataTable;
+    fMasterSource: TDADataSource;
+    fDesigner: IDesigner;
+    procedure GetDataTables(const aName: string);
+    procedure Initialize;
+
+  protected
+    constructor Create(aOwner : TComponent); reintroduce;
+    procedure AfterEnterPage(aPage:TTabSheet; aMovingForward:boolean); override;
+    procedure OnLeavePage(aPage:TTabSheet; aMovingForward:boolean); override;
+  public
+    class function ExecuteWizard(aDataTable: TDADataTable; aDesigner: IDesigner): boolean;
+  end;
+
+var
+  DADataTableMasterLinkWizard: TDADataTableMasterLinkWizard;
+
+
+implementation
+
+uses uROClasses, TypInfo, uDARemoteDataAdapter, uRODynamicRequest, uRODL;
+
+{$R *.dfm}
+
+procedure TrimNamesAndValues(aSL: TStrings);
+var
+  i: Integer;
+begin
+  for i := 0 to aSL.Count - 1 do begin
+    aSL[i] := Trim(aSL.Names[i]) + {$IFDEF DELPHI7UP}aSL.NameValueSeparator{$ELSE}'='{$ENDIF} + Trim(aSL.Values[aSL.Names[i]]);
+
+  end;
+end;
+
+{ TDataTableMasterLink }
+
+class function TDADataTableMasterLinkWizard.ExecuteWizard(aDataTable: TDADataTable; aDesigner: IDesigner): boolean;
+begin
+  with TDADataTableMasterLinkWizard.Create(NIL) do try
+    fDataTable := aDataTable;
+    fDesigner := aDesigner;
+    Initialize();
+    result := Execute();
+  finally
+    Free;
+  end;
+end;
+
+constructor TDADataTableMasterLinkWizard.Create(aOwner: TComponent);
+begin
+  inherited;
+
+end;
+
+procedure TDADataTableMasterLinkWizard.Initialize;
+var
+  i : integer;
+begin
+  cb_DataSources.Items.Clear();
+  fDesigner.GetComponentNames(GetTypeData(TypeInfo(TDADataSource)), GetDataTables);
+
+  if assigned(fDataTable.MasterSource) then begin
+    cb_DataSources.ItemIndex := cb_DataSources.Items.IndexOf(fDataTable.MasterSource.Name);
+    //lMasterTable := fDataTable.MasterSource.DataTable;
+    //Check(mast=NIL, 'MasterSource doesn''t point to a datatable');
+  end;
+  cb_DataSourcesChange(nil);
+
+  Caption := Format(Caption, [fDataTable.Name]);
+
+  eMasterFields.Text := fDataTable.MasterFields;
+  eDetailFields.Text := fDataTable.DetailFields;
+  mMappings.Lines.Text := fDataTable.MasterRequestMappings.Text;
+  mParamsMappings.Lines.Text := fDataTable.MasterParamsMappings.Text;
+
+  for i := 0 to (fDataTable.FieldCount-1) do
+    lbDetail.Items.Add(fDataTable.Fields[i].Name);
+
+  for i := 0 to (fDataTable.Params.Count-1) do
+    lbParams.Items.Add(fDataTable.Params[i].Name);
+
+  case fDataTable.MasterMappingMode of
+    mmParams: rb_Params.Checked := true;
+    mmDataRequest: rb_Method.Checked := true;
+    mmWhere: rb_Where.Checked := true;
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.cb_DataSourcesChange(Sender: TObject);
+var
+  lMasterTable: TDADataTable;
+  lCall: TRODynamicRequest;
+  i: integer;
+begin
+  inherited;
+  fMasterSource := fDesigner.GetComponent(cb_DataSources.Text) as TDADataSource;
+
+  if assigned(fMasterSource) and assigned(fMasterSource.DataTable) then begin
+    lMasterTable := fMasterSource.DataTable;
+
+    rb_Params.Enabled := fDataTable.Params.Count > 0;
+    lbl_Params1.Enabled := rb_Params.Enabled;
+    lbl_Params2.Enabled := rb_Params.Enabled;
+
+    rb_Method.Enabled := assigned(lMasterTable.RemoteDataAdapter) and
+                         assigned(fDataTable.RemoteDataAdapter) and
+                         (lMasterTable.RemoteDataAdapter <> fDataTable.RemoteDataAdapter) and
+                         lMasterTable.RemoteFetchEnabled and fDataTable.RemoteFetchEnabled;
+    lbl_Method1.Enabled := rb_Method.Enabled;
+
+    if (not rb_Params.Enabled and rb_Params.Checked) or (not rb_Method.Enabled and rb_Method.Checked) then
+      rb_Where.Checked := true;
+
+    lbMaster.Items.Clear();
+    lbMaster2.Items.Clear();
+    lbMaster3.Items.Clear();
+    for i := 0 to (lMasterTable.FieldCount-1) do begin
+      lbMaster.Items.Add(lMasterTable.Fields[i].Name);
+      lbMaster2.Items.Add(lMasterTable.Fields[i].Name);
+      lbMaster3.Items.Add(lMasterTable.Fields[i].Name);
+    end;
+
+    if fDataTable.RemoteFetchEnabled and
+       assigned(fDataTable.RemoteDataAdapter) and (fDataTable.RemoteDataAdapter is TDARemoteDataAdapter) then begin
+      lCall := (fDataTable.RemoteDataAdapter as TDARemoteDataAdapter).GetDataCall;
+      lbDataReqParams.Items.Clear();
+      for i := 0 to lCall.Params.Count-1 do
+        if lCall.Params[i].Flag in [fIn, fInOut] then
+          lbDataReqParams.Items.Add(lCall.Params[i].Name);
+    end
+    else begin
+      lbDataReqParams.Enabled := false;
+    end;
+
+    if pc_Pages.ActivePage = ts_MasterSource then
+      btn_Next.Enabled := (rb_Where.Enabled and rb_Where.Checked) or (rb_Params.Enabled and rb_Params.Checked) or (rb_Method.Enabled and rb_Method.Checked);
+  end
+  else begin
+    if pc_Pages.ActivePage = ts_MasterSource then
+      btn_Next.Enabled := false;
+  end;
+end;
+
+
+procedure TDADataTableMasterLinkWizard.GetDataTables(const aName: string);
+var
+  lDataSource: TDADataSource;
+begin
+  lDataSource := fDesigner.GetComponent(aName) as TDADataSource;
+  if assigned(lDataSource.DataTable) and assigned(lDataSource.DataTable) and (lDataSource.DataTable <> fDataTable) then
+    cb_DataSources.Items.Add(aName);
+end;
+
+procedure TDADataTableMasterLinkWizard.bbAddFieldMappingClick(Sender: TObject);
+var x : integer;
+begin
+  if (lbMaster.SelCount=0) or (lbMaster.SelCount<>lbDetail.SelCount) then begin
+    Beep;
+    Exit;
+  end;
+
+  for x := 0 to (lbMaster.Items.Count-1) do
+    if lbMaster.Selected[x] then begin
+      if (eMasterFields.Text<>'')
+        then eMasterFields.Text := eMasterFields.Text+';';
+      eMasterFields.Text := eMasterFields.Text+lbMaster.Items[x];
+    end;
+
+  for x := 0 to (lbDetail.Items.Count-1) do
+    if lbDetail.Selected[x] then begin
+      if (eDetailFields.Text<>'')
+        then eDetailFields.Text := eDetailFields.Text+';';
+      eDetailFields.Text := eDetailFields.Text+lbDetail.Items[x];
+    end;
+  OnFieldMappingChange(nil);
+end;
+
+procedure TDADataTableMasterLinkWizard.bbAddDataReqMappingClick(Sender: TObject);
+var x, i : integer;
+    s : TStringList;
+begin
+  if (lbMaster2.SelCount=0) or (lbDataReqParams.SelCount<>lbMaster2.SelCount) then begin
+    Beep;
+    Exit;
+  end;
+
+  s := TStringList.Create;
+  try
+      for x := 0 to (lbDataReqParams.Items.Count-1) do
+      if lbDataReqParams.Selected[x] then s.Add(lbDataReqParams.Items[x]+'=');
+
+    i := 0;
+    for x := 0 to (lbMaster2.Items.Count-1) do
+      if lbMaster2.Selected[x] then begin
+        s[i] := s[i]+lbMaster2.Items[x];
+        Inc(i);
+      end;
+
+    mMappings.Lines.AddStrings(s);
+  finally
+    s.Free;
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.bbClearDataReqMappingClick(Sender: TObject);
+begin
+  mMappings.Lines.Clear
+end;
+
+procedure TDADataTableMasterLinkWizard.BitBtn4Click(Sender: TObject);
+begin
+  eMasterFields.Text := '';
+  eDetailFields.Text := '';
+  OnFieldMappingChange(nil);
+end;
+
+procedure TDADataTableMasterLinkWizard.OnFieldMappingChange(
+  Sender: TObject);
+begin
+  inherited;
+  if pc_Pages.ActivePage = ts_Fields then
+    btn_Next.Enabled := (eMasterFields.Text <> '') and (eDetailFields.Text <> '');
+end;
+
+procedure TDADataTableMasterLinkWizard.FormCreate(Sender: TObject);
+begin
+  inherited;
+  //PageControl1.ActivePageIndex := 0
+
+end;
+
+procedure TDADataTableMasterLinkWizard.bbAddParamMappingXXXClick(Sender: TObject);
+var x, i : integer;
+    s : TStringList;
+begin
+  if (lbMaster3.SelCount=0) or (lbParams.SelCount<>lbMaster3.SelCount) then begin
+    Beep;
+    Exit;
+  end;
+
+  s := TStringList.Create;
+  try
+      for x := 0 to (lbParams.Items.Count-1) do
+      if lbParams.Selected[x] then s.Add(lbParams.Items[x]+'=');
+
+    i := 0;
+    for x := 0 to (lbMaster3.Items.Count-1) do
+      if lbMaster3.Selected[x] then begin
+        s[i] := s[i]+lbMaster3.Items[x];
+        Inc(i);
+      end;
+
+    mParamsMappings.Lines.AddStrings(s);
+  finally
+    s.Free;
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.bbClearParamMappingsXXXClick(Sender: TObject);
+begin
+  mParamsMappings.Lines.Clear
+end;
+
+procedure TDADataTableMasterLinkWizard.btn_FinishClick(Sender: TObject);
+begin
+  inherited;
+
+  fDataTable.MasterSource := fMasterSource;
+  fDataTable.MasterFields := eMasterFields.Text;
+  fDataTable.DetailFields := eDetailFields.Text;
+
+  TrimNamesAndValues(mMappings.Lines);
+  TrimNamesAndValues(mParamsMappings.Lines);
+
+  fDataTable.MasterRequestMappings.Text := mMappings.Lines.Text;
+  fDataTable.MasterParamsMappings.Text := mParamsMappings.Lines.Text;
+
+  if rb_Where.Checked then
+    fDataTable.MasterMappingMode := mmWhere
+  else if rb_Params.Checked then
+    fDataTable.MasterMappingMode := mmParams
+  else if rb_Method.Checked then
+    fDataTable.MasterMappingMode := mmDataRequest;
+
+end;
+
+procedure TDADataTableMasterLinkWizard.AfterEnterPage(aPage: TTabSheet;
+  aMovingForward: boolean);
+begin
+  inherited;
+  if (aPage = ts_MasterSource) and aMovingForward then begin
+    cb_DataSourcesChange(nil);
+  end
+  else if (aPage = ts_Fields) and aMovingForward then begin
+    OnFieldMappingChange(nil);
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.OnLeavePage(aPage: TTabSheet;
+  aMovingForward: boolean);
+begin
+  inherited;
+  if (aPage = ts_Fields) and aMovingForward then begin
+    if rb_Where.Checked then NextPage := ts_Finish.PageIndex
+    else if rb_Params.Checked then NextPage := ts_Params.PageIndex
+    else if rb_Method.Checked then NextPage := ts_MethodCall.PageIndex;
+  end
+  else if (aPage = ts_Params) or (aPage = ts_MethodCall) then begin
+    NextPage := ts_Finish.PageIndex;
+    PreviousPage := ts_Fields.PageIndex;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.lfm
new file mode 100644
index 0000000..0219847
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.lfm	
@@ -0,0 +1,1354 @@
+object DADataTableMasterLinkWizard: TDADataTableMasterLinkWizard
+  Left = 488
+  Height = 515
+  Top = 173
+  Width = 448
+  HorzScrollBar.Page = 447
+  VertScrollBar.Page = 514
+  ActiveControl = pc_Pages
+  Caption = 'Form1'
+  ClientHeight = 515
+  ClientWidth = 448
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  LCLVersion = '0.9.25'
+  object Bevel1: TBevel
+    Height = 2
+    Top = 42
+    Width = 448
+    Align = alTop
+    Shape = bsBottomLine
+  end
+  object Label16: TLabel
+    Left = 8
+    Height = 16
+    Top = 366
+    Width = 86
+    Caption = 'Mapping Mode:'
+    ParentColor = False
+  end
+  object Panel1: TPanel
+    Height = 42
+    Width = 448
+    Align = alTop
+    BevelOuter = bvNone
+    ClientHeight = 42
+    ClientWidth = 448
+    Color = clWhite
+    ParentColor = False
+    TabOrder = 0
+    object Image1: TImage
+      Left = 5
+      Height = 32
+      Top = 5
+      Width = 32
+      Picture.Data = {
+        055449636F6E012200002F2A2058504D202A2F0A737461746963206368617220
+        2A677261706869635B5D203D207B0A223438203438203234312032222C0A222E
+        2E2063204E6F6E65222C0A222E2C20632023363636363636222C0A222E2D2063
+        2023363536353635222C0A222E2A20632023363336333633222C0A222E612063
+        2023363136313631222C0A222E6220632023363036303630222C0A222E632063
+        2023354535453545222C0A222E6420632023354435443544222C0A222E652063
+        2023354235423542222C0A222E6620632023353935393539222C0A222E672063
+        2023353835383538222C0A222E6820632023353735373537222C0A222E692063
+        2023353535353535222C0A222E6A20632023353335333533222C0A222E6B2063
+        2023353235323532222C0A222E6C20632023363936393639222C0A222E6D2063
+        2023363836383638222C0A222E6E20632023353035303530222C0A222E6F2063
+        2023344634463446222C0A222E7020632023344434443444222C0A222E712063
+        2023344234423442222C0A222E7220632023344134413441222C0A222E732063
+        2023343834383438222C0A222E7420632023343634363436222C0A222E752063
+        2023364136413641222C0A222E7620632023343734373437222C0A222E772063
+        2023343534353435222C0A222E7820632023343434343434222C0A222E792063
+        2023343234323432222C0A222E7A20632023364236423642222C0A222E412063
+        2023363738323543222C0A222E4220632023364441343538222C0A222E432063
+        2023373043343532222C0A222E4420632023373144423443222C0A222E452063
+        2023364445303438222C0A222E4620632023363744443434222C0A222E472063
+        2023363144393430222C0A222E4820632023354244353344222C0A222E492063
+        2023353644313339222C0A222E4A20632023353042363341222C0A222E4B2063
+        2023344339423343222C0A222E4C20632023343937413431222C0A222E4D2063
+        2023344135333439222C0A222E4E20632023343034303430222C0A222E4F2063
+        2023334633463346222C0A222E5020632023363436423631222C0A222E512063
+        2023373441393544222C0A222E5220632023374644443538222C0A222E532063
+        2023374545433533222C0A222E5420632023373845383530222C0A222E552063
+        2023373345343443222C0A222E5620632023353043443335222C0A222E572063
+        2023344143413331222C0A222E5820632023343443363244222C0A222E592063
+        2023334643323241222C0A222E5A20632023333942453236222C0A222E302063
+        2023334139373244222C0A222E3120632023343036323343222C0A222E322063
+        2023334433443344222C0A222E3320632023334333433343222C0A222E342063
+        2023373841433630222C0A222E3520632023383745413542222C0A222E362063
+        2023383445463537222C0A222E3720632023333442423232222C0A222E382063
+        2023324542373145222C0A222E3920632023323842333141222C0A222E402063
+        2023324139343232222C0A222E2320632023334235363339222C0A222E3B2063
+        2023334133413341222C0A222E3A20632023333833383338222C0A222E3D2063
+        2023364337463633222C0A222E2B20632023383644413546222C0A222E252063
+        2023384146333542222C0A222E2420632023323241463136222C0A222E282063
+        2023314341433133222C0A222E2920632023313741383046222C0A222E5B2063
+        2023323737313235222C0A222E5D20632023333733373337222C0A222C2E2063
+        2023333533353335222C0A222C2C20632023373539423632222C0A222C2D2063
+        2023384646373546222C0A222C2A20632023313141343042222C0A222C612063
+        2023304241303037222C0A222C6220632023313338343132222C0A222C632063
+        2023333634303336222C0A222C6420632023333433343334222C0A222C652063
+        2023333233323332222C0A222C6620632023303539443034222C0A222C672063
+        2023303039393030222C0A222C6820632023304138353041222C0A222C692063
+        2023333333443333222C0A222C6A20632023333033303330222C0A222C6B2063
+        2023324632463246222C0A222C6C20632023303039373030222C0A222C6D2063
+        2023303039353030222C0A222C6E20632023304138313041222C0A222C6F2063
+        2023324532453245222C0A222C7020632023384345443546222C0A222C712063
+        2023303039333030222C0A222C7220632023303039313030222C0A222C732063
+        2023313336433133222C0A222C7420632023324332433243222C0A222C752063
+        2023324132413241222C0A222C7620632023303038463030222C0A222C772063
+        2023303038443030222C0A222C7820632023323034433230222C0A222C792063
+        2023323932393239222C0A222C7A20632023343241343332222C0A222C412063
+        2023334541313246222C0A222C4220632023334538323335222C0A222C432063
+        2023334237463332222C0A222C4420632023333538333244222C0A222C452063
+        2023324239343232222C0A222C4620632023323639313146222C0A222C472063
+        2023303038423030222C0A222C4820632023303238343032222C0A222C492063
+        2023323933323239222C0A222C4A20632023323732373237222C0A222C4B2063
+        2023323632363236222C0A222C4C20632023344439433343222C0A222C4D2063
+        2023344336343437222C0A222C4E20632023324535433243222C0A222C4F2063
+        2023303038393030222C0A222C5020632023303038373030222C0A222C512063
+        2023313535383135222C0A222C5220632023323432343234222C0A222C532063
+        2023344537443434222C0A222C5420632023304537463045222C0A222C552063
+        2023303038353030222C0A222C5620632023303237453032222C0A222C572063
+        2023323232323232222C0A222C5820632023323132313231222C0A222C592063
+        2023314236363142222C0A222C5A20632023303038343030222C0A222C302063
+        2023303038323030222C0A222C3120632023313734373137222C0A222C322063
+        2023314631463146222C0A222C3320632023363537393544222C0A222C342063
+        2023314236343142222C0A222C3520632023303038303030222C0A222C362063
+        2023304236323042222C0A222C3720632023314531453145222C0A222C382063
+        2023314136323141222C0A222C3920632023303037453030222C0A222C402063
+        2023303237373032222C0A222C2320632023314331433143222C0A222C3B2063
+        2023314231423142222C0A222C3A20632023353542393345222C0A222C3D2063
+        2023353139373431222C0A222C2B20632023344438433430222C0A222C252063
+        2023344236423435222C0A222C2420632023343836393433222C0A222C282063
+        2023343636373431222C0A222C2920632023313936303139222C0A222C5B2063
+        2023303037433030222C0A222C5D20632023303037413030222C0A222D2E2063
+        2023313933303139222C0A222D2C20632023314131413141222C0A222D2D2063
+        2023313931393139222C0A222D2A20632023353839433437222C0A222D612063
+        2023353236323446222C0A222D6220632023313835463138222C0A222D632063
+        2023303037383030222C0A222D6420632023313433393134222C0A222D652063
+        2023313731373137222C0A222D6620632023353941343435222C0A222D672063
+        2023314435313144222C0A222D6820632023304536443045222C0A222D692063
+        2023313535413135222C0A222D6A20632023313435363134222C0A222D6B2063
+        2023304536303045222C0A222D6C20632023303736463037222C0A222D6D2063
+        2023303037363030222C0A222D6E20632023304534383045222C0A222D6F2063
+        2023313631363136222C0A222D7020632023353439323435222C0A222D712063
+        2023323032383230222C0A222D7220632023304335393043222C0A222D732063
+        2023303037343030222C0A222D7420632023304434363044222C0A222D752063
+        2023313431343134222C0A222D7620632023353138463433222C0A222D772063
+        2023303037333030222C0A222D7820632023304334353043222C0A222D792063
+        2023313331333133222C0A222D7A20632023303037313030222C0A222D412063
+        2023304234333042222C0A222D4220632023313131313131222C0A222D432063
+        2023343938393344222C0A222D4420632023303036463030222C0A222D452063
+        2023304333433043222C0A222D4620632023304630463046222C0A222D472063
+        2023353041453342222C0A222D4820632023343538373342222C0A222D492063
+        2023303036443030222C0A222D4A20632023304632413046222C0A222D4B2063
+        2023304530453045222C0A222D4C20632023343238343338222C0A222D4D2063
+        2023303036423030222C0A222D4E20632023313131383131222C0A222D4F2063
+        2023304330433043222C0A222D5020632023303335393033222C0A222D512063
+        2023303036393030222C0A222D5220632023303734323037222C0A222D532063
+        2023304230423042222C0A222D5420632023333737433330222C0A222D552063
+        2023303036373030222C0A222D5620632023304431413044222C0A222D572063
+        2023303930393039222C0A222D5820632023333337413244222C0A222D592063
+        2023303434423034222C0A222D5A20632023303830383038222C0A222D302063
+        2023333037373242222C0A222D3120632023303036363030222C0A222D322063
+        2023304132333041222C0A222D3320632023324337343238222C0A222D342063
+        2023303533463035222C0A222D3520632023303630363036222C0A222D362063
+        2023314133393141222C0A222D3720632023313633443136222C0A222D382063
+        2023313034433130222C0A222D3920632023303530353035222C0A222D402063
+        2023303430343034222C0A222D2320632023303336343033222C0A222D3B2063
+        2023304234313042222C0A222D3A20632023313031443130222C0A222D3D2063
+        2023304531353045222C0A222D2B20632023304331393043222C0A222D252063
+        2023303135413031222C0A222D2420632023304131443041222C0A222D282063
+        2023303330333033222C0A222D2920632023313634343136222C0A222D5B2063
+        2023303237353032222C0A222D5D20632023304231323042222C0A222A2E2063
+        2023323433343234222C0A222A2C20632023313435343134222C0A222A2D2063
+        2023313335333133222C0A222A2A20632023303936373039222C0A222A612063
+        2023304231453042222C0A222A6220632023303933373039222C0A222A632063
+        2023304430443044222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C2E2D2E2A2E612E622E632E64
+        2E652E662E672E682E692E6A2E6B2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E6C2E6D2E2C2E2D2E2A2E612E622E63
+        2E642E652E662E672E682E692E6A2E6B2E6E2E6F2E702E712E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E6C2E6D2E2C2E2D2E2A2E612E62
+        2E632E642E652E662E672E682E692E6A2E6B2E6E2E6F2E702E712E722E732E74
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E752E6C2E6D2E2C2E2D2E2A2E61
+        2E622E632E642E652E662E672E682E692E6A2E6B2E6E2E6F2E702E712E722E73
+        2E762E772E782E792E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A22
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E7A2E752E6C2E6D2E2C2E2D2E2A
+        2E612E622E412E422E432E442E452E462E472E482E492E4A2E4B2E4C2E4D2E72
+        2E732E762E772E782E792E4E2E4F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E7A2E752E6C2E6D2E2C2E2D
+        2E2A2E502E512E522E532E542E552E452E462E472E482E492E562E572E582E59
+        2E5A2E302E312E772E782E792E4E2E4F2E322E332E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E7A2E752E6C2E6D2E2C
+        2E2D2E2A2E342E352E362E532E542E552E452E462E472E482E492E562E572E58
+        2E592E5A2E372E382E392E402E232E4E2E4F2E322E332E3B2E3A2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E7A2E752E6C2E6D
+        2E2C2E2D2E3D2E2B2E252E362E532E542E552E452E462E472E482E492E562E57
+        2E582E592E5A2E372E382E392E242E282E292E5B2E322E332E3B2E3A2E5D2C2E
+        2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E7A2E752E6C
+        2E6D2E2C2E2D2C2C2C2D2E252E362E532E542E552E452E462E472E482E492E56
+        2E572E582E592E5A2E372E382E392E242E282E292C2A2C612C622C632E3A2E5D
+        2C2E2C642C652E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E75
+        2E6C2E6D2E2C2E2D2C2C2C2D2E252E362E532E542E552E452E462E472E482E49
+        2E562E572E582E592E5A2E372E382E392E242E282E292C2A2C612C662C672C68
+        2C692C2E2C642C652C6A2C6B2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E
+        2E752E6C2E6D2E2C2E2D2C2C2C2D2E252E362E532E542E552E452E462E472E48
+        2E492E562E572E582E592E5A2E372E382E392E242E282E292C2A2C612C662C67
+        2C6C2C6D2C6E2C642C652C6A2C6B2C6F2E2E2E2E2E2E2E2E222C0A222E2E2E2E
+        2E2E2E2E2E6C2E6D2E2C2E2D2E3D2C702E252E362E532E542E552E452E462E47
+        2E482E492E562E572E582E592E5A2E372E382E392E242E282E292C2A2C612C66
+        2C672C6C2C6D2C712C722C732C6A2C6B2C6F2C742C752E2E2E2E2E2E222C0A22
+        2E2E2E2E2E2E2E6C2E6D2E2C2E2D2E2A2E2B2E252E362E532E542E552E452E46
+        2E472E482E492E562E572E582E592E5A2E372E382E392E242E282E292C2A2C61
+        2C662C672C6C2C6D2C712C722C762C772C782C6F2C742C752C792E2E2E2E2E2E
+        222C0A222E2E2E2E2E2E2E6D2E2C2E2D2E2A2E342E252E362E532E542E552E45
+        2E462E472E482E492E562E572E582C7A2C412C422C432C442C452C462E292C2A
+        2C612C662C672C6C2C6D2C712C722C762C772C472C482C492C752C792C4A2C4B
+        2E2E2E2E222C0A222E2E2E2E2E6D2E2C2E2D2E2A2E502E352E362E532E542E55
+        2E452E462E472E482E492E562C4C2C4D2E712E722E732E762E772E782E792E4E
+        2E4F2C4E2C622C672C6C2C6D2C712C722C762C772C472C4F2C502C512C792C4A
+        2C4B2C522E2E2E2E222C0A222E2E2E2E2E2C2E2D2E2A2E612E512E362E532E54
+        2E552E452E462E472E482E492E562C532E702E712E722E732E762E772E782E79
+        2E4E2E4F2E322E332E3B2C542C6D2C712C722C762C772C472C4F2C502C552C56
+        2C4A2C4B2C522C572C582E2E222C0A222E2E2E2C2E2D2E2A2E612E622E522E53
+        2E542E552E452E462E472E482E492E562E572E702E712E722E732E762E772E78
+        2E792E4E2E4F2E322E332E3B2E3A2C592C712C722C762C772C472C4F2C502C55
+        2C5A2C302C312C522C572C582C322E2E222C0A222E2E2E2D2E2A2E612E622C33
+        2E532E542E552E452E462E472E482E492E562E572E582E712E722E732E762E77
+        2E782E792E4E2E4F2E322E332E3B2E3A2E5D2C342C722C762C772C472C4F2C50
+        2C552C5A2C302C352C362C572C582C322C372E2E222C0A222E2E2E2A2E612E62
+        2E632E422E542E552E452E462E472E482E492E562E572E582E592E722E732E76
+        2E772E782E792E4E2E4F2E322E332E3B2E3A2E5D2C2E2C382C762C772C472C4F
+        2C502C552C5A2C302C352C392C402C582C322C372C232C3B222C0A222E2E2E61
+        2E622E632E642E432E552E452E462E472E482C3A2C3D2C2B2C252C242C282E73
+        2E762E772E782E792E4E2E4F2E322E332E3B2E3A2E5D2C2E2C642C292C772C47
+        2C4F2C502C552C5A2C302C352C392C5B2C5D2D2E2C372C232D2C2D2D222C0A22
+        2E2E2E622E632E642E652E442E452E462E472D2A2D612E6E2E6F2E702E712E72
+        2E732E762E772E782E792E4E2E4F2E322E332E3B2E3A2E5D2C2E2C642C652D62
+        2C472C4F2C502C552C5A2C302C352C392C5B2C5D2D632D642C232D2C2D2D2D65
+        222C0A222E2E2E632E642E652E662E452E462E472D662E6B2E6E2E6F2E702E71
+        2E722E732E762E772E782E792E4E2E4F2E322E332E3B2E3A2E5D2C2E2C642C65
+        2C6A2D672D682D692C512D6A2D6B2D6C2C392C5B2C5D2D632D6D2D6E2D2C2D2D
+        2D652D6F222C0A222E2E2E642E652E662E672E462E472E482D702E6E2E6F2E70
+        2E712E722E732E762E772E782E792E4E2E4F2E322E332E3B2E3A2E5D2C2E2C64
+        2C652C6A2C6B2C6F2C742C752C792C4A2C4B2C522D712D722D632D6D2D732D74
+        2D2D2D652D6F2D75222C0A222E2E2E652E662E672E682E472E482E492D762E6F
+        2E702E712E722E732E762E772E782E792E4E2E4F2E322E332E3B2E3A2E5D2C2E
+        2C642C652C6A2C6B2C6F2C742C752C792C4A2C4B2C522C572C582C322D6D2D73
+        2D772D782D652D6F2D752D79222C0A222E2E2E662E672E682E692E482E492E56
+        2C2B2E702E712E722E732E762E772E782E792E4E2E4F2E322E332E3B2E3A2E5D
+        2C2E2C642C652C6A2C6B2C6F2C742C752C792C4A2C4B2C522C572C582C322C37
+        2D732D772D7A2D412D6F2D752D792D42222C0A222E2E2E672E682E692E6A2E49
+        2E562E572D432E712E722E732E762E772E782E792E4E2E4F2E322E332E3B2E3A
+        2E5D2C2E2C642C652C6A2C6B2C6F2C742C752C792C4A2C4B2C522C572C582C32
+        2C372C232D772D7A2D442D452D752D792D422D46222C0A222E2E2E682E692E6A
+        2E6B2D472E572E582D482E722E732E762E772E782E792E4E2E4F2E322E332E3B
+        2E3A2E5D2C2E2C642C652C6A2C6B2C6F2C742C752C792C4A2C4B2C522C572C58
+        2C322C372C232D2C2D7A2D442D492D4A2D792D422D462D4B222C0A222E2E2E69
+        2E6A2E6B2E6E2E4B2E582E592D4C2E732E762E772E782E792E4E2E4F2E322E33
+        2E3B2E3A2E5D2C2E2C642C652C6A2C6B2C6F2C742C752C792C4A2C4B2C522C57
+        2C582C322C372C232D2C2D2D2D442D492D4D2D4E2D422D462D4B2D4F222C0A22
+        2E2E2E6A2E6B2E6E2E6F2E4C2E592E5A2C422E762E772E782E792E4E2E4F2E32
+        2E332E3B2E3A2E5D2C2E2C642C652C6A2C6B2C6F2C742C752C792C4A2C4B2C52
+        2C572C582C322C372C232D2C2D2D2D652D492D4D2D502D422D462D4B2D4F2E2E
+        222C0A222E2E2E6B2E6E2E6F2E702E4D2E5A2E372C432E772E782E792E4E2E4F
+        2E322E332E3B2E3A2E5D2C2E2C642C652C6A2C6B2C6F2C742C752C792C4A2C4B
+        2C522C572C582C322C372C232D2C2D2D2D652D6F2D4D2D512D522D462D4B2D4F
+        2D532E2E222C0A222E2E2E2E2E6F2E702E712E722E302E382D542E782E792E4E
+        2E4F2E322E332E3B2E3A2E5D2C2E2C642C652C6A2C6B2C6F2C742C752C792C4A
+        2C4B2C522C572C582C322C372C232D2C2D2D2D652D6F2D752D512D552D562D4B
+        2D4F2D532D572E2E222C0A222E2E2E2E2E702E712E722E732E312E392D582E79
+        2E4E2E4F2E322E332E3B2E3A2E5D2C2E2C642C652C6A2C6B2C6F2C742C752C79
+        2C4A2C4B2C522C572C582C322C372C232D2C2D2D2D652D6F2D752D792D552D59
+        2D4B2D4F2D532D572D5A2E2E222C0A222E2E2E2E2E712E722E732E762E772E40
+        2D302E4E2E4F2E322E332E3B2E3A2E5D2C2E2C642C652C6A2C6B2C6F2C742C75
+        2C792C4A2C4B2C522C572C582C322C372C232D2C2D2D2D652D6F2D752D792D42
+        2D312D322D4F2D532D572D5A2E2E2E2E222C0A222E2E2E2E2E2E2E732E762E77
+        2E782E232D332E4F2E322E332E3B2E3A2E5D2C2E2C642C652C6A2C6B2C6F2C74
+        2C752C792C4A2C4B2C522C572C582C322C372C232D2C2D2D2D652D6F2D752D79
+        2D422D462D342D4F2D532D572D5A2D352E2E2E2E222C0A222E2E2E2E2E2E2E74
+        2E772E782E792E4E2E4F2E322E332E3B2E3A2E5D2C2E2C642C652C6A2C6B2C6F
+        2C742C752C792C4A2C4B2C522D362D372D382C372C232D2C2D2D2D652D6F2D75
+        2D792D422D462D4B2D4F2D532D572D5A2D352E2E2E2E2E2E222C0A222E2E2E2E
+        2E2E2E2E2E782E792E4E2E4F2E322E332E3B2E3A2E5D2C2E2C642C652C6A2C6B
+        2C6F2C742C752C792C4A2C352C392C5B2C5D2D632D6D2C232D2C2D2D2D652D6F
+        2D752D792D422D462D4B2D4F2D532D572D5A2D352D392E2E2E2E2E2E222C0A22
+        2E2E2E2E2E2E2E2E2E792E4E2E4F2E322E332E3B2E3A2E5D2C2E2C642C652C6A
+        2C6B2C6F2C742C752C792C4A2C4B2C392C5B2C5D2D632D6D2D732D742D2D2D65
+        2D6F2D752D792D422D462D4B2D4F2D532D572D5A2D352D402E2E2E2E2E2E2E2E
+        222C0A222E2E2E2E2E2E2E2E2E2E2E4F2E322E332E3B2E3A2E5D2C2E2C642C65
+        2C6A2C6B2C6F2C742C752C792C4A2C4B2C522C5B2C5D2D632D6D2D732D772D7A
+        2D232D3B2D4A2D3A2D422D3D2D2B2D4F2D532D572D5A2D352D402E2E2E2E2E2E
+        2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E332E3B2E3A2E5D2C2E2C64
+        2C652C6A2C6B2C6F2C742C752C792C4A2C4B2C522D362C5D2D632D6D2D732D77
+        2D7A2D442D492D4D2D512D552D312D252D242D532D572D5A2D352D402D282E2E
+        2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E3A2E5D2C2E
+        2C642C652C6A2C6B2C6F2C742C752C792C4A2C4B2C522D292D5B2D632D6D2D73
+        2D772D7A2D442D492D4D2D512D552D312D342D5D2D532D572D5A2D352D402D28
+        2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2C2E2C642C652C6A2C6B2C6F2C742C752A2E2A2C2A2D2A2A2C5B2C5D2D632D6D
+        2D732D772D7A2D442D492D4D2D512D552D592A612D4F2D532D572D5A2D352D40
+        2D282E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2C652C6A2C6B2C6F2C742C752C792C4A2C312C362C402C5D2D63
+        2D6D2D732D772D7A2D442D492D4D2D502A622D562D4B2D4F2D532D572D5A2D35
+        2D402D282E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2C6B2C6F2C742C752C792C4A2C4B2C522C572C58
+        2D2E2D642D6E2D742D782D412D452D4A2D4E2D422D462D4B2D4F2D532D572D5A
+        2D352D402E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C752C792C4A2C4B2C522C57
+        2C582C322C372C232D2C2D2D2D652D6F2D752D792D422D462D4B2D4F2D532D57
+        2D5A2D352D392E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A22
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C4B2C52
+        2C572C582C322C372C232D2C2D2D2D652D6F2D752D792D422D462D4B2D4F2D53
+        2D572D5A2D352E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2C582C322C372C232D2C2D2D2D652D6F2D752D792D422D462D4B2D4F
+        2D532D572D5A2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C3B2D2D2D652D6F2D752D792D422D462D4B
+        2A632E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+        2E2E2E2E2E2E2E2E227D0A
+      }
+      Proportional = True
+      Stretch = True
+      Transparent = False
+    end
+    object Label1: TLabel
+      Left = 43
+      Height = 14
+      Top = 5
+      Width = 222
+      Caption = 'Data Table Master/Detail Setup Wizard'
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentColor = False
+    end
+    object Label2: TLabel
+      Left = 45
+      Height = 16
+      Top = 21
+      Width = 331
+      Caption = 'This wizard will help you configure a master/detail relationship'
+      ParentColor = False
+    end
+  end
+  object pc_Pages: TPageControl
+    Height = 436
+    Top = 44
+    Width = 448
+    ActivePage = ts_Params
+    Align = alClient
+    TabIndex = 4
+    TabOrder = 1
+    object ts_Welcome: TTabSheet
+      Caption = 'Welcome'
+      ClientHeight = 410
+      ClientWidth = 440
+      object Label3: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 314
+        Caption = 'Welcome to the Data Table Master/Detail Setup Wizard'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label4: TLabel
+        Left = 24
+        Height = 46
+        Top = 24
+        Width = 350
+        Caption = 'This wizard will help you set up a Master/Detail relationship by choosing a Master Source for the selected data table and defining how the relationshop between master and detail tables is mapped.'
+        ParentColor = False
+        WordWrap = True
+      end
+      object Label24: TLabel
+        Left = 24
+        Height = 16
+        Top = 72
+        Width = 243
+        Caption = 'This wizard will affect the following properties'
+        ParentColor = False
+      end
+      object Label25: TLabel
+        Left = 32
+        Height = 16
+        Top = 88
+        Width = 81
+        Caption = '- MasterSource'
+        ParentColor = False
+      end
+      object Label26: TLabel
+        Left = 32
+        Height = 16
+        Top = 104
+        Width = 161
+        Caption = '- MasterFields and DetailFields'
+        ParentColor = False
+      end
+      object Label27: TLabel
+        Left = 32
+        Height = 16
+        Top = 136
+        Width = 137
+        Caption = '- MasterParamsMappings'
+        ParentColor = False
+      end
+      object Label28: TLabel
+        Left = 32
+        Height = 16
+        Top = 152
+        Width = 135
+        Caption = '- MasterRequestMapping'
+        ParentColor = False
+      end
+      object Label29: TLabel
+        Left = 32
+        Height = 16
+        Top = 120
+        Width = 124
+        Caption = '- MasterMappingMode'
+        ParentColor = False
+      end
+    end
+    object ts_MasterSource: TTabSheet
+      Caption = 'ts_MasterSource'
+      ClientHeight = 410
+      ClientWidth = 440
+      ImageIndex = 6
+      object Label8: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 106
+        Caption = 'Pick MasterSource'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label9: TLabel
+        Left = 24
+        Height = 16
+        Top = 24
+        Width = 305
+        Caption = 'Select the data table to use as master source for this table:'
+        ParentColor = False
+      end
+      object Label10: TLabel
+        Left = 8
+        Height = 14
+        Top = 80
+        Width = 127
+        Caption = 'Choose Mapping Mode'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label17: TLabel
+        Left = 24
+        Height = 16
+        Top = 96
+        Width = 403
+        Caption = 'Select what method you want to use fetch detail data for your master source'
+        ParentColor = False
+      end
+      object lbl_Params1: TLabel
+        Left = 42
+        Height = 46
+        Top = 204
+        Width = 342
+        Caption = 'Master key fields will be passed as parameters when fetching detail data. Use this if you''re talking to a standard DA server, and have defined Parameters in data table inside your schema.'
+        ParentColor = False
+        WordWrap = True
+      end
+      object lbl_Params2: TLabel
+        Left = 42
+        Height = 31
+        Top = 248
+        Width = 254
+        Caption = 'Your detail data will be fetched via the standard DataRequestCall, just like any data table.'
+        ParentColor = False
+        WordWrap = True
+      end
+      object lbl_Method1: TLabel
+        Left = 42
+        Height = 16
+        Top = 324
+        Width = 395
+        Caption = 'Data will be retrieved using a custom method you provided in your service.'
+        ParentColor = False
+      end
+      object lbl_Method2: TLabel
+        Left = 42
+        Height = 23
+        Top = 344
+        Width = 346
+        Caption = 'This option is only available if the detail table uses a separate RemoteDataAdapter component with a custom DataRequestCall.'
+        Font.Color = clGrayText
+        Font.Height = -9
+        Font.Name = 'Tahoma'
+        ParentColor = False
+        WordWrap = True
+      end
+      object lbl_Params3: TLabel
+        Left = 42
+        Height = 12
+        Top = 282
+        Width = 299
+        Caption = 'This option is only available if your detail data table defines parameters.'
+        Font.Color = clGrayText
+        Font.Height = -9
+        Font.Name = 'Tahoma'
+        ParentColor = False
+        WordWrap = True
+      end
+      object lbl_Where1: TLabel
+        Left = 42
+        Height = 16
+        Top = 140
+        Width = 313
+        Caption = 'A where clause will be passed to retrieve filtered detail data.'
+        ParentColor = False
+      end
+      object lbl_Where2: TLabel
+        Left = 42
+        Height = 12
+        Top = 160
+        Width = 176
+        Caption = 'Recommended for Version 5.0 and above.'
+        Font.Color = clGrayText
+        Font.Height = -9
+        Font.Name = 'Tahoma'
+        ParentColor = False
+      end
+      object cb_DataSources: TComboBox
+        Left = 24
+        Height = 21
+        Top = 40
+        Width = 289
+        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+        ItemHeight = 13
+        OnChange = cb_DataSourcesChange
+        Style = csDropDownList
+        TabOrder = 0
+      end
+      object rb_Where: TRadioButton
+        Left = 24
+        Height = 21
+        Top = 120
+        Width = 187
+        Caption = 'Using automatic WHERE clauses'
+        OnChange = cb_DataSourcesChange
+        TabOrder = 1
+      end
+      object rb_Params: TRadioButton
+        Left = 24
+        Height = 21
+        Top = 184
+        Width = 134
+        Caption = 'Using data parameters'
+        OnChange = cb_DataSourcesChange
+        TabOrder = 2
+      end
+      object rb_Method: TRadioButton
+        Left = 24
+        Height = 21
+        Top = 304
+        Width = 158
+        Caption = 'Using a custom method call'
+        OnChange = cb_DataSourcesChange
+        TabOrder = 3
+      end
+    end
+    object ts_Fields: TTabSheet
+      Caption = 'ts_Fields'
+      ClientHeight = 410
+      ClientWidth = 440
+      ImageIndex = 3
+      object labMasterFields: TLabel
+        Left = 24
+        Height = 16
+        Top = 92
+        Width = 73
+        Caption = '&Master Fields:'
+        FocusControl = lbMaster
+        ParentColor = False
+      end
+      object labDetailFields: TLabel
+        Left = 256
+        Height = 16
+        Top = 92
+        Width = 67
+        Caption = '&Detail Fields:'
+        FocusControl = lbDetail
+        ParentColor = False
+      end
+      object Label13: TLabel
+        Left = 24
+        Height = 16
+        Top = 323
+        Width = 70
+        Caption = 'MasterFields:'
+        FocusControl = eMasterFields
+        ParentColor = False
+      end
+      object Label14: TLabel
+        Left = 24
+        Height = 16
+        Top = 347
+        Width = 64
+        Caption = 'DetailFields:'
+        FocusControl = eDetailFields
+        ParentColor = False
+      end
+      object Label18: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 115
+        Caption = 'Master/Detail Fields'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label19: TLabel
+        Left = 24
+        Height = 16
+        Top = 24
+        Width = 351
+        Caption = 'Please select the fields that describe the Master/Detail relationship.'
+        ParentColor = False
+      end
+      object lbMaster: TListBox
+        Left = 22
+        Height = 209
+        Top = 108
+        Width = 164
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 0
+      end
+      object lbDetail: TListBox
+        Left = 254
+        Height = 209
+        Top = 108
+        Width = 164
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 1
+      end
+      object eMasterFields: TEdit
+        Left = 97
+        Height = 21
+        Top = 320
+        Width = 321
+        OnChange = OnFieldMappingChange
+        TabOrder = 2
+        Text = 'fdsfdsdsf'
+      end
+      object eDetailFields: TEdit
+        Left = 97
+        Height = 21
+        Top = 344
+        Width = 321
+        OnChange = OnFieldMappingChange
+        TabOrder = 3
+        Text = 'fdsfdsdsf'
+      end
+      object bbAddFieldMapping: TBitBtn
+        Left = 190
+        Height = 25
+        Top = 108
+        Width = 60
+        Caption = '&Add'
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF03
+          5D05035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79105950E035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79106950F035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
+          05035D05FF00FFFF00FFFF00FF035D055BF7913BDA6930CF572AC64D21B83C17
+          A62B119F210D9E1C0A9A1506920E05930D058B0D035D05FF00FFFF00FF035D05
+          5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
+          915BF791035D05FF00FFFF00FFFF00FF035D05035D05035D05035D05035D055B
+          F79125BC42035D05035D05035D05035D05035D05FF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7913BD968035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7915BF791035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        }
+        NumGlyphs = 0
+        OnClick = bbAddFieldMappingClick
+        TabOrder = 4
+      end
+      object BitBtn4: TBitBtn
+        Left = 190
+        Height = 25
+        Top = 292
+        Width = 60
+        Caption = '&Clear'
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF2BB81F3C48AF2BC81EF
+          B072EEAF6EEFB275FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFBEBBDFEF3C9FBDEACF3C990FBB67EFFB47DFCCA99FFD9ADFED9A7F0B5
+          77FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFEFAD3FEF7CCFBDCA9EBCA91A9
+          B86E84AB542B912057A743EAF3C7FCE9BDEEAD6FFF00FFFF00FFFF00FFFF00FF
+          EDA565F3C28AFCF0C4FCE5B5FBD09F2C9622007B00058206067F043DA335FEF2
+          D0F0B173FF00FFFF00FFFF00FFFF00FFEEAB6DEDA767EFB070F6C990FFD8AC2E
+          9823006E006ABF6BFFF0EA48A138A3AF5EFCAF74FF00FFFF00FFFF00FFFF00FF
+          F2B479F2B77EF0B277F0AC6FFBB57E7AB46041A6416FBC69FFFFFFF4FEFBBCBB
+          79F3AA6BFF00FFFF00FFFF00FFFF00FFF7C292FAC598F8C293F8C090F3BF8AC2
+          D5A5FFFFFFD9EED556B1534BAF4BB8BC79F8B075FF00FFFF00FFFF00FFF6C792
+          FCD4ADFCD4ACFCD0A9FCD0A9FFD4B55DA94680C780E0F2DE27982400700082B0
+          5BFFBD90EEAC6DFF00FFFF00FFF6C792FFEAC4FEE3BCFEE2BAFEE0B8FFE0BAD9
+          D9AC0A8209188A16037F0300790077B45DFFCEAAEEAC6DFF00FFFF00FFFADDAB
+          FFFBD5FFF4CCFFF3CAFFF0C9FFEFC5FFF2D1B5D5982A96242B99249ACB87B5D1
+          95FFE0BAF2B77AFF00FFFF00FFFCEFC4FFFFD8FFFBD3FFFCD4FFFBD3FFFBD4FF
+          FCD4FFFFE1FFFFEBFFFFE7FFFFE0FFF8D7FFF4CBF3C086FF00FFFF00FFFEF4CB
+          FFFFDDFFFFD9FFFFD9FFFFDAFFFED7FEF6CCF8DAA3F4C07DF4C17FF7D8A3FEF2
+          C5FFFFDDF3C991FF00FFFF00FFF4CC96F8DEAFF8DDACF7D8A6F6CF99F3BF80EF
+          AC66EB9D4FEB9C4CEB9F55F0AC6EFAC087FCD3A0FAC089FF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFEDA354EFAB68F7BC83FABF
+          88FABC83FABC83FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFAC088FAC088FAC088FF00FFFF00FF
+        }
+        NumGlyphs = 0
+        OnClick = BitBtn4Click
+        TabOrder = 5
+      end
+    end
+    object ts_MethodCall: TTabSheet
+      Caption = 'ts_MethodCall'
+      ClientHeight = 410
+      ClientWidth = 440
+      ImageIndex = 4
+      object labMasterFields2: TLabel
+        Left = 24
+        Height = 16
+        Top = 92
+        Width = 73
+        Caption = '&Master Fields:'
+        ParentColor = False
+      end
+      object labDataReqParams: TLabel
+        Left = 256
+        Height = 16
+        Top = 92
+        Width = 132
+        Caption = 'DataRequestCall &Params:'
+        FocusControl = lbDataReqParams
+        ParentColor = False
+      end
+      object Label7: TLabel
+        Left = 24
+        Height = 16
+        Top = 298
+        Width = 301
+        Caption = 'Mapp&ings (Detail''s DataRequestCall Param=MasterField):'
+        FocusControl = mMappings
+        ParentColor = False
+      end
+      object Label20: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 191
+        Caption = 'Map Fields to Method Parameters'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label21: TLabel
+        Left = 24
+        Height = 61
+        Top = 24
+        Width = 390
+        AutoSize = False
+        Caption = 'Select how the master fields map to the parameters passed to the customs GetDataCall you are using to fetch Detail data. Ideally, all fields from the previous page (i.e. all fields involved in the M/D relationship) should be mapped here.'
+        ParentColor = False
+        WordWrap = True
+      end
+      object lbMaster2: TListBox
+        Left = 22
+        Height = 185
+        Top = 108
+        Width = 164
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 0
+      end
+      object lbDataReqParams: TListBox
+        Left = 254
+        Height = 185
+        Top = 106
+        Width = 164
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 1
+      end
+      object mMappings: TMemo
+        Left = 22
+        Height = 60
+        Top = 314
+        Width = 395
+        ScrollBars = ssVertical
+        TabOrder = 2
+      end
+      object bbAddDataReqMapping: TBitBtn
+        Left = 190
+        Height = 25
+        Top = 108
+        Width = 60
+        Caption = '&Add'
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF03
+          5D05035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79105950E035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79106950F035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
+          05035D05FF00FFFF00FFFF00FF035D055BF7913BDA6930CF572AC64D21B83C17
+          A62B119F210D9E1C0A9A1506920E05930D058B0D035D05FF00FFFF00FF035D05
+          5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
+          915BF791035D05FF00FFFF00FFFF00FF035D05035D05035D05035D05035D055B
+          F79125BC42035D05035D05035D05035D05035D05FF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7913BD968035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7915BF791035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        }
+        NumGlyphs = 0
+        OnClick = bbAddDataReqMappingClick
+        TabOrder = 3
+      end
+      object bbClearDataReqMapping: TBitBtn
+        Left = 190
+        Height = 25
+        Top = 266
+        Width = 60
+        Caption = '&Clear'
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF2BB81F3C48AF2BC81EF
+          B072EEAF6EEFB275FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFBEBBDFEF3C9FBDEACF3C990FBB67EFFB47DFCCA99FFD9ADFED9A7F0B5
+          77FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFEFAD3FEF7CCFBDCA9EBCA91A9
+          B86E84AB542B912057A743EAF3C7FCE9BDEEAD6FFF00FFFF00FFFF00FFFF00FF
+          EDA565F3C28AFCF0C4FCE5B5FBD09F2C9622007B00058206067F043DA335FEF2
+          D0F0B173FF00FFFF00FFFF00FFFF00FFEEAB6DEDA767EFB070F6C990FFD8AC2E
+          9823006E006ABF6BFFF0EA48A138A3AF5EFCAF74FF00FFFF00FFFF00FFFF00FF
+          F2B479F2B77EF0B277F0AC6FFBB57E7AB46041A6416FBC69FFFFFFF4FEFBBCBB
+          79F3AA6BFF00FFFF00FFFF00FFFF00FFF7C292FAC598F8C293F8C090F3BF8AC2
+          D5A5FFFFFFD9EED556B1534BAF4BB8BC79F8B075FF00FFFF00FFFF00FFF6C792
+          FCD4ADFCD4ACFCD0A9FCD0A9FFD4B55DA94680C780E0F2DE27982400700082B0
+          5BFFBD90EEAC6DFF00FFFF00FFF6C792FFEAC4FEE3BCFEE2BAFEE0B8FFE0BAD9
+          D9AC0A8209188A16037F0300790077B45DFFCEAAEEAC6DFF00FFFF00FFFADDAB
+          FFFBD5FFF4CCFFF3CAFFF0C9FFEFC5FFF2D1B5D5982A96242B99249ACB87B5D1
+          95FFE0BAF2B77AFF00FFFF00FFFCEFC4FFFFD8FFFBD3FFFCD4FFFBD3FFFBD4FF
+          FCD4FFFFE1FFFFEBFFFFE7FFFFE0FFF8D7FFF4CBF3C086FF00FFFF00FFFEF4CB
+          FFFFDDFFFFD9FFFFD9FFFFDAFFFED7FEF6CCF8DAA3F4C07DF4C17FF7D8A3FEF2
+          C5FFFFDDF3C991FF00FFFF00FFF4CC96F8DEAFF8DDACF7D8A6F6CF99F3BF80EF
+          AC66EB9D4FEB9C4CEB9F55F0AC6EFAC087FCD3A0FAC089FF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFEDA354EFAB68F7BC83FABF
+          88FABC83FABC83FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFAC088FAC088FAC088FF00FFFF00FF
+        }
+        NumGlyphs = 0
+        OnClick = bbClearDataReqMappingClick
+        TabOrder = 4
+      end
+    end
+    object ts_Params: TTabSheet
+      Caption = 'ts_Params'
+      ClientHeight = 410
+      ClientWidth = 440
+      ImageIndex = 5
+      object Label11: TLabel
+        Left = 24
+        Height = 16
+        Top = 92
+        Width = 81
+        Caption = 'Master''s Fields:'
+        ParentColor = False
+      end
+      object Label12: TLabel
+        Left = 256
+        Height = 16
+        Top = 92
+        Width = 43
+        Caption = 'Params:'
+        FocusControl = lbParams
+        ParentColor = False
+      end
+      object Label15: TLabel
+        Left = 24
+        Height = 16
+        Top = 298
+        Width = 212
+        Caption = 'Mappings (Detail''s Param=MasterField):'
+        FocusControl = mParamsMappings
+        ParentColor = False
+      end
+      object Label22: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 209
+        Caption = 'Map Fields to Data Table Parameters'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label23: TLabel
+        Left = 24
+        Height = 46
+        Top = 24
+        Width = 389
+        Caption = 'Select how the master fields map to the parameters of your detail data. Ideally, all fields from the previous page (i.e. all fields involved in the M/D relationship) should be mapped here.'
+        ParentColor = False
+        WordWrap = True
+      end
+      object lbMaster3: TListBox
+        Left = 22
+        Height = 185
+        Top = 108
+        Width = 164
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 0
+      end
+      object lbParams: TListBox
+        Left = 254
+        Height = 185
+        Top = 108
+        Width = 164
+        ItemHeight = 13
+        MultiSelect = True
+        TabOrder = 1
+      end
+      object mParamsMappings: TMemo
+        Left = 22
+        Height = 60
+        Top = 314
+        Width = 395
+        ScrollBars = ssVertical
+        TabOrder = 2
+      end
+      object bbAddParamMappingXXX: TBitBtn
+        Left = 190
+        Height = 25
+        Top = 108
+        Width = 60
+        Caption = '&Add'
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF03
+          5D05035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79105950E035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F79106950F035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
+          05035D05FF00FFFF00FFFF00FF035D055BF7913BDA6930CF572AC64D21B83C17
+          A62B119F210D9E1C0A9A1506920E05930D058B0D035D05FF00FFFF00FF035D05
+          5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
+          915BF791035D05FF00FFFF00FFFF00FF035D05035D05035D05035D05035D055B
+          F79125BC42035D05035D05035D05035D05035D05FF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7913BD968035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035D055B
+          F7915BF791035D05FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        }
+        NumGlyphs = 0
+        OnClick = bbAddParamMappingXXXClick
+        TabOrder = 3
+      end
+      object bbClearParamMappingsXXX: TBitBtn
+        Left = 190
+        Height = 25
+        Top = 268
+        Width = 60
+        Caption = '&Clear'
+        Glyph.Data = {
+          36030000424D3603000000000000360000002800000010000000100000000100
+          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF2BB81F3C48AF2BC81EF
+          B072EEAF6EEFB275FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+          FF00FFFBEBBDFEF3C9FBDEACF3C990FBB67EFFB47DFCCA99FFD9ADFED9A7F0B5
+          77FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFEFAD3FEF7CCFBDCA9EBCA91A9
+          B86E84AB542B912057A743EAF3C7FCE9BDEEAD6FFF00FFFF00FFFF00FFFF00FF
+          EDA565F3C28AFCF0C4FCE5B5FBD09F2C9622007B00058206067F043DA335FEF2
+          D0F0B173FF00FFFF00FFFF00FFFF00FFEEAB6DEDA767EFB070F6C990FFD8AC2E
+          9823006E006ABF6BFFF0EA48A138A3AF5EFCAF74FF00FFFF00FFFF00FFFF00FF
+          F2B479F2B77EF0B277F0AC6FFBB57E7AB46041A6416FBC69FFFFFFF4FEFBBCBB
+          79F3AA6BFF00FFFF00FFFF00FFFF00FFF7C292FAC598F8C293F8C090F3BF8AC2
+          D5A5FFFFFFD9EED556B1534BAF4BB8BC79F8B075FF00FFFF00FFFF00FFF6C792
+          FCD4ADFCD4ACFCD0A9FCD0A9FFD4B55DA94680C780E0F2DE27982400700082B0
+          5BFFBD90EEAC6DFF00FFFF00FFF6C792FFEAC4FEE3BCFEE2BAFEE0B8FFE0BAD9
+          D9AC0A8209188A16037F0300790077B45DFFCEAAEEAC6DFF00FFFF00FFFADDAB
+          FFFBD5FFF4CCFFF3CAFFF0C9FFEFC5FFF2D1B5D5982A96242B99249ACB87B5D1
+          95FFE0BAF2B77AFF00FFFF00FFFCEFC4FFFFD8FFFBD3FFFCD4FFFBD3FFFBD4FF
+          FCD4FFFFE1FFFFEBFFFFE7FFFFE0FFF8D7FFF4CBF3C086FF00FFFF00FFFEF4CB
+          FFFFDDFFFFD9FFFFD9FFFFDAFFFED7FEF6CCF8DAA3F4C07DF4C17FF7D8A3FEF2
+          C5FFFFDDF3C991FF00FFFF00FFF4CC96F8DEAFF8DDACF7D8A6F6CF99F3BF80EF
+          AC66EB9D4FEB9C4CEB9F55F0AC6EFAC087FCD3A0FAC089FF00FFFF00FFFF00FF
+          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFEDA354EFAB68F7BC83FABF
+          88FABC83FABC83FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+          00FFFF00FFFF00FFFF00FFFAC088FAC088FAC088FF00FFFF00FF
+        }
+        NumGlyphs = 0
+        OnClick = bbClearParamMappingsXXXClick
+        TabOrder = 4
+      end
+    end
+    object ts_Finish: TTabSheet
+      Caption = 'Finish'
+      ClientHeight = 410
+      ClientWidth = 440
+      ImageIndex = 2
+      object Label5: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 52
+        Caption = 'That''s It!'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label6: TLabel
+        Left = 24
+        Height = 16
+        Top = 24
+        Width = 240
+        Caption = 'Your Master/Detail relationship is now set up.'
+        ParentColor = False
+      end
+    end
+  end
+  object Panel2: TPanel
+    Height = 35
+    Top = 480
+    Width = 448
+    Align = alBottom
+    BevelOuter = bvNone
+    ClientHeight = 35
+    ClientWidth = 448
+    TabOrder = 2
+    object btn_Finish: TBitBtn
+      Left = 368
+      Height = 25
+      Hint = 'This is Finish, but not the End'
+      Top = 5
+      Width = 75
+      Anchors = [akTop, akRight]
+      Caption = 'Finish'
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00FF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+        811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF787878787878FF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        811E00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF787878787878787878FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878898989787878FF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF811E00A7632F811E00811E00FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7878789F9F9F78787878
+        7878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878B8B8B8C6
+        C6C6787878787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00D8B69CE6D1BFE7D3C4811E00FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878D1
+        D1D1E0E0E0E2E2E2787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878EBEBEBF5F5F5F1F1F1787878787878FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00D8AF96F4E2CFF0D7BDD8A784811E
+        00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878D0D0D0E9E9E9E3E3E3CACACA787878787878FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878E7
+        E7E7E1E1E1DBDBDBC9C9C9787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00E7BB92E3B081E0A672D5925A811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878D3D3D3CDCDCDC6C6C6BCBCBC787878FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+        35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FF787878BFBFBFB8B8B8B2B2B2ACACAC787878FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00811E
+        00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF787878787878787878787878787878787878FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 1
+      NumGlyphs = 2
+      OnClick = btn_FinishClick
+      TabOrder = 0
+      Visible = False
+    end
+    object btn_Cancel: TBitBtn
+      Left = 5
+      Height = 25
+      Top = 5
+      Width = 75
+      Cancel = True
+      Caption = 'Cancel'
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 2
+      NumGlyphs = 2
+      TabOrder = 1
+    end
+    object btn_Next: TBitBtn
+      Left = 368
+      Height = 25
+      Top = 5
+      Width = 75
+      Anchors = [akTop, akRight]
+      Caption = '&Next'
+      Default = True
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000130B0000130B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        0B7C15097A14087110056A0C04670B04670C04670C04670C04670C04670C0467
+        0C045709FF00FFFF00FFFF00FFFF00FF9C9C9C9C9C9C98989896969695959595
+        9595959595959595959595959595959595909090FF00FFFF00FFFF00FF129A28
+        1AB03A15AF3211AB270DA81F08A61808A51608A51608A61708A61708A51708AB
+        18078D12045708FF00FFFF00FFA8A8A8B0B0B0AEAEAEACACACAAAAAAA8A8A8A8
+        A8A8A8A8A8A8A8A8A8A8A8A8A8A8A9A9A9A0A0A0909090FF00FFFF00FF1BAD3C
+        25C5541EC0451ABE3A15BD3110BA270BB81D09B81909B81A09B81A09B71A09BE
+        1C08AB1704670CFF00FFFF00FFB0B0B0B9B9B9B5B5B5B4B4B4B2B2B2B0B0B0AD
+        ADADADADADADADADADADADADADADAFAFAFA9A9A9959595FF00FFFF00FF20B445
+        31C46429BF5322BB481BBA3D17B73312B4290DB3200AB21909B11809B01809B7
+        1A08A61704680CFF00FFFF00FFB3B3B3BCBCBCB8B8B8B5B5B5B3B3B3B1B1B1AF
+        AFAFADADADACACACACACACABABABADADADA8A8A8959595FF00FFFF00FF22B548
+        3FC87635C367FEFEFE23BC4E1DBA4218B838FEFEFE0EB4240AB31C09B11809B8
+        1A08A61704670CFF00FFFF00FFB3B3B3C0C0C0BCBCBCFEFEFEB5B5B5B3B3B3B1
+        B1B1FEFEFEADADADACACACACACACADADADA8A8A8959595FF00FFFF00FF21B548
+        58D08A46C97AFEFEFEFEFEFE24BD501FBB46FEFEFEFEFEFE10B4290CB21F09B7
+        1A08A61604670CFF00FFFF00FFB3B3B3CACACAC3C3C3FEFEFEFEFEFEB6B6B6B4
+        B4B4FEFEFEFEFEFEAEAEAEACACACADADADA8A8A8959595FF00FFFF00FF21B548
+        77D89F52CC813BC772FEFEFEFEFEFE26BE5421BD4AFEFEFEFEFEFE13B52D0DBA
+        230AA71804680BFF00FFFF00FFB3B3B3D5D5D5C8C8C8C0C0C0FEFEFEFEFEFEB7
+        B7B7B5B5B5FEFEFEFEFEFEB0B0B0AFAFAFA8A8A8959595FF00FFFF00FF21B548
+        8ADEAC5DD08A42C87637C56EFEFEFEFEFEFE27BF5822BD4FFEFEFEFEFEFE14BB
+        310EA922066F0EFF00FFFF00FFB3B3B3DCDCDCCCCCCCC2C2C2BEBEBEFEFEFEFE
+        FEFEB8B8B8B5B5B5FEFEFEFEFEFEB1B1B1AAAAAA989898FF00FFFF00FF21B548
+        95E0B365D28F48CA7AFEFEFEFEFEFE30C3692EC265FEFEFEFEFEFE1FBB461BBE
+        3E14AE2F0A7A14FF00FFFF00FFB3B3B3E0E0E0CECECEC4C4C4FEFEFEFEFEFEBB
+        BBBBBBBBBBFEFEFEFEFEFEB4B4B4B4B4B4ADADAD9C9C9CFF00FFFF00FF21B548
+        9DE3B96FD597FEFEFEFEFEFE40C87439C570FEFEFEFEFEFE2BC16027BF5523C0
+        4E1BB23C0D851AFF00FFFF00FFB3B3B3E3E3E3D2D2D2FEFEFEFEFEFEC1C1C1BF
+        BFBFFEFEFEFEFEFEB9B9B9B8B8B8B7B7B7B0B0B0A0A0A0FF00FFFF00FF21B548
+        A9E6C280DAA3FEFEFE59CF874DCC7E44C978FEFEFE39C57032C36B2DC1632AC2
+        5D20B548108F1FFF00FFFF00FFB3B3B3E7E7E7D8D8D8FEFEFECACACAC6C6C6C2
+        C2C2FEFEFEBFBFBFBCBCBCBABABAB9B9B9B3B3B3A4A4A4FF00FFFF00FF21B549
+        AEE8C5A6E5BF91DFAF86DBA778D79D67D39159CF8744C97836C56E32C36C30C5
+        6A27BB57139C26FF00FFFF00FFB3B3B3E9E9E9E6E6E6DFDFDFDADADAD5D5D5D0
+        D0D0CACACAC2C2C2BDBDBDBCBCBCBCBCBCB7B7B7A8A8A8FF00FFFF00FF22B548
+        92E0B3AEE8C6B1E9C8A9E6C29BE3B887DDAA6AD5964FCD823BC77436C57034C8
+        732BBF5E14A428FF00FFFF00FFB3B3B3DFDFDFE9E9E9EAEAEAE7E7E7E2E2E2DB
+        DBDBD0D0D0C7C7C7C0C0C0BDBDBDBEBEBEB9B9B9ABABABFF00FFFF00FFFF00FF
+        38BB5A51C57053C57151C56F4CC36B42C06437BC5A2EB95325B74A23B54B23B7
+        4A1AAF39FF00FFFF00FFFF00FFFF00FFBBBBBBC5C5C5C6C6C6C5C5C5C3C3C3C0
+        C0C0BBBBBBB8B8B8B5B5B5B4B4B4B4B4B4B0B0B0FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      Layout = blGlyphRight
+      NumGlyphs = 2
+      OnClick = btn_NextClick
+      TabOrder = 2
+    end
+    object btn_Back: TBitBtn
+      Left = 288
+      Height = 25
+      Top = 5
+      Width = 75
+      Anchors = [akTop, akRight]
+      Caption = 'Back'
+      Enabled = False
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000130B0000130B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        0B7C15097A14087110056A0C04670B04670C04670C04670C04670C04670C0467
+        0C045709FF00FFFF00FFFF00FFFF00FF9D9D9D9C9C9C99999996969695959595
+        9595959595959595959595959595959595919191FF00FFFF00FFFF00FF129A28
+        1AB03A15AF3211AB270DA81F08A61808A51608A51608A61708A61708A51708AB
+        18078D12045708FF00FFFF00FFA8A8A8B1B1B1AEAEAEADADADAAAAAAA9A9A9A8
+        A8A8A8A8A8A9A9A9A9A9A9A8A8A8A9A9A9A1A1A1919191FF00FFFF00FF1BAD3C
+        25C5541EC0451ABE3A15BD3110BA270BB81D09B81909B81A09B81A09B71A09BE
+        1C08AB1704670CFF00FFFF00FFB0B0B0B9B9B9B6B6B6B4B4B4B2B2B2B1B1B1AE
+        AEAEADADADADADADADADADADADADAFAFAFA9A9A9959595FF00FFFF00FF20B445
+        31C46429BF5322BB481BBA3D17B73312B4290DB3200AB21909B11809B01809B7
+        1A08A61704680CFF00FFFF00FFB3B3B3BCBCBCB9B9B9B5B5B5B3B3B3B1B1B1AF
+        AFAFADADADADADADACACACABABABADADADA9A9A9969696FF00FFFF00FF22B548
+        3FC87635C3672BBF5723BC4E1DBA42FEFEFE13B72E0EB4240AB31CFEFEFE09B8
+        1A08A61704670CFF00FFFF00FFB4B4B4C1C1C1BDBDBDB9B9B9B6B6B6B4B4B4FE
+        FEFEB1B1B1AEAEAEADADADFEFEFEADADADA9A9A9959595FF00FFFF00FF21B548
+        58D08A46C97A34C5692CBF5DFEFEFEFEFEFE1ABA3D16B733FEFEFEFEFEFE09B7
+        1A08A61604670CFF00FFFF00FFB4B4B4CBCBCBC3C3C3BDBDBDB9B9B9FEFEFEFE
+        FEFEB3B3B3B1B1B1FEFEFEFEFEFEADADADA9A9A9959595FF00FFFF00FF21B548
+        77D89F52CC813BC772FEFEFEFEFEFE26BE5421BD4AFEFEFEFEFEFE13B52D0DBA
+        230AA71804680BFF00FFFF00FFB4B4B4D5D5D5C8C8C8C0C0C0FEFEFEFEFEFEB8
+        B8B8B6B6B6FEFEFEFEFEFEB0B0B0AFAFAFA9A9A9969696FF00FFFF00FF21B548
+        8ADEAC5DD08AFEFEFEFEFEFE2FC3682CC162FEFEFEFEFEFE1EBB4418B93A14BB
+        310EA922066F0EFF00FFFF00FFB4B4B4DDDDDDCCCCCCFEFEFEFEFEFEBCBCBCBA
+        BABAFEFEFEFEFEFEB4B4B4B2B2B2B1B1B1ABABAB989898FF00FFFF00FF21B548
+        95E0B365D28F48CA7AFEFEFEFEFEFE30C3692EC265FEFEFEFEFEFE1FBB461BBE
+        3E14AE2F0A7A14FF00FFFF00FFB4B4B4E0E0E0CECECEC5C5C5FEFEFEFEFEFEBC
+        BCBCBBBBBBFEFEFEFEFEFEB5B5B5B4B4B4AEAEAE9D9D9DFF00FFFF00FF21B548
+        9DE3B96FD59757CE854ECC7FFEFEFEFEFEFE35C56D30C368FEFEFEFEFEFE23C0
+        4E1BB23C0D851AFF00FFFF00FFB4B4B4E3E3E3D2D2D2C9C9C9C7C7C7FEFEFEFE
+        FEFEBDBDBDBCBCBCFEFEFEFEFEFEB7B7B7B1B1B1A1A1A1FF00FFFF00FF21B548
+        A9E6C280DAA35ED08A59CF874DCC7EFEFEFE43C87739C57032C36BFEFEFE2AC2
+        5D20B548108F1FFF00FFFF00FFB4B4B4E7E7E7D9D9D9CDCDCDCBCBCBC6C6C6FE
+        FEFEC2C2C2BFBFBFBCBCBCFEFEFEBABABAB3B3B3A4A4A4FF00FFFF00FF21B549
+        AEE8C5A6E5BF91DFAF86DBA778D79D67D39159CF8744C97836C56E32C36C30C5
+        6A27BB57139C26FF00FFFF00FFB4B4B4E9E9E9E6E6E6DFDFDFDADADAD5D5D5D0
+        D0D0CBCBCBC3C3C3BDBDBDBCBCBCBCBCBCB7B7B7A9A9A9FF00FFFF00FF22B548
+        92E0B3AEE8C6B1E9C8A9E6C29BE3B887DDAA6AD5964FCD823BC77436C57034C8
+        732BBF5E14A428FF00FFFF00FFB4B4B4E0E0E0E9E9E9EBEBEBE7E7E7E3E3E3DC
+        DCDCD1D1D1C7C7C7C0C0C0BDBDBDBEBEBEB9B9B9ABABABFF00FFFF00FFFF00FF
+        38BB5A51C57053C57151C56F4CC36B42C06437BC5A2EB95325B74A23B54B23B7
+        4A1AAF39FF00FFFF00FFFF00FFFF00FFBCBCBCC5C5C5C6C6C6C5C5C5C3C3C3C0
+        C0C0BCBCBCB8B8B8B5B5B5B4B4B4B5B5B5B0B0B0FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      NumGlyphs = 2
+      OnClick = btn_BackClick
+      TabOrder = 3
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.lrs
new file mode 100644
index 0000000..7f2e250
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.lrs	
@@ -0,0 +1,831 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TDADataTableMasterLinkWizard','FORMDATA',[
+  'TPF0'#28'TDADataTableMasterLinkWizard'#27'DADataTableMasterLinkWizard'#4'Lef'
+  +'t'#3#232#1#6'Height'#3#3#2#3'Top'#3#173#0#5'Width'#3#192#1#18'HorzScrollBar'
+  +'.Page'#3#191#1#18'VertScrollBar.Page'#3#2#2#13'ActiveControl'#7#8'pc_Pages'
+  +#7'Caption'#6#5'Form1'#12'ClientHeight'#3#3#2#11'ClientWidth'#3#192#1#11'Fon'
+  +'t.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreat'
+  +'e'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVersion'#6#6'0.9.25'#0#6'TBevel'#6
+  +'Bevel1'#6'Height'#2#2#3'Top'#2'*'#5'Width'#3#192#1#5'Align'#7#5'alTop'#5'Sh'
+  +'ape'#7#12'bsBottomLine'#0#0#6'TLabel'#7'Label16'#4'Left'#2#8#6'Height'#2#16
+  +#3'Top'#3'n'#1#5'Width'#2'V'#7'Caption'#6#13'Mapping Mode:'#11'ParentColor'#8
+  +#0#0#6'TPanel'#6'Panel1'#6'Height'#2'*'#5'Width'#3#192#1#5'Align'#7#5'alTop'
+  +#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'*'#11'ClientWidth'#3#192#1#5
+  +'Color'#7#7'clWhite'#11'ParentColor'#8#8'TabOrder'#2#0#0#6'TImage'#6'Image1'
+  +#4'Left'#2#5#6'Height'#2' '#3'Top'#2#5#5'Width'#2' '#12'Picture.Data'#10#11
+  +'"'#0#0#5'TIcon'#1'"'#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"48 4'
+  +'8 241 2",'#10'".. c None",'#10'"., c #666666",'#10'".- c #656565",'#10'".* '
+  +'c #636363",'#10'".a c #616161",'#10'".b c #606060",'#10'".c c #5E5E5E",'#10
+  +'".d c #5D5D5D",'#10'".e c #5B5B5B",'#10'".f c #595959",'#10'".g c #585858",'
+  +#10'".h c #575757",'#10'".i c #555555",'#10'".j c #535353",'#10'".k c #52525'
+  +'2",'#10'".l c #696969",'#10'".m c #686868",'#10'".n c #505050",'#10'".o c #'
+  +'4F4F4F",'#10'".p c #4D4D4D",'#10'".q c #4B4B4B",'#10'".r c #4A4A4A",'#10'".'
+  +'s c #484848",'#10'".t c #464646",'#10'".u c #6A6A6A",'#10'".v c #474747",'
+  +#10'".w c #454545",'#10'".x c #444444",'#10'".y c #424242",'#10'".z c #6B6B6'
+  +'B",'#10'".A c #67825C",'#10'".B c #6DA458",'#10'".C c #70C452",'#10'".D c #'
+  +'71DB4C",'#10'".E c #6DE048",'#10'".F c #67DD44",'#10'".G c #61D940",'#10'".'
+  +'H c #5BD53D",'#10'".I c #56D139",'#10'".J c #50B63A",'#10'".K c #4C9B3C",'
+  +#10'".L c #497A41",'#10'".M c #4A5349",'#10'".N c #404040",'#10'".O c #3F3F3'
+  +'F",'#10'".P c #646B61",'#10'".Q c #74A95D",'#10'".R c #7FDD58",'#10'".S c #'
+  +'7EEC53",'#10'".T c #78E850",'#10'".U c #73E44C",'#10'".V c #50CD35",'#10'".'
+  +'W c #4ACA31",'#10'".X c #44C62D",'#10'".Y c #3FC22A",'#10'".Z c #39BE26",'
+  +#10'".0 c #3A972D",'#10'".1 c #40623C",'#10'".2 c #3D3D3D",'#10'".3 c #3C3C3'
+  +'C",'#10'".4 c #78AC60",'#10'".5 c #87EA5B",'#10'".6 c #84EF57",'#10'".7 c #'
+  +'34BB22",'#10'".8 c #2EB71E",'#10'".9 c #28B31A",'#10'".@ c #2A9422",'#10'".'
+  +'# c #3B5639",'#10'".; c #3A3A3A",'#10'".: c #383838",'#10'".= c #6C7F63",'
+  +#10'".+ c #86DA5F",'#10'".% c #8AF35B",'#10'".$ c #22AF16",'#10'".( c #1CAC1'
+  +'3",'#10'".) c #17A80F",'#10'".[ c #277125",'#10'".] c #373737",'#10'",. c #'
+  +'353535",'#10'",, c #759B62",'#10'",- c #8FF75F",'#10'",* c #11A40B",'#10'",'
+  +'a c #0BA007",'#10'",b c #138412",'#10'",c c #364036",'#10'",d c #343434",'
+  +#10'",e c #323232",'#10'",f c #059D04",'#10'",g c #009900",'#10'",h c #0A850'
+  +'A",'#10'",i c #333D33",'#10'",j c #303030",'#10'",k c #2F2F2F",'#10'",l c #'
+  +'009700",'#10'",m c #009500",'#10'",n c #0A810A",'#10'",o c #2E2E2E",'#10'",'
+  +'p c #8CED5F",'#10'",q c #009300",'#10'",r c #009100",'#10'",s c #136C13",'
+  +#10'",t c #2C2C2C",'#10'",u c #2A2A2A",'#10'",v c #008F00",'#10'",w c #008D0'
+  +'0",'#10'",x c #204C20",'#10'",y c #292929",'#10'",z c #42A432",'#10'",A c #'
+  +'3EA12F",'#10'",B c #3E8235",'#10'",C c #3B7F32",'#10'",D c #35832D",'#10'",'
+  +'E c #2B9422",'#10'",F c #26911F",'#10'",G c #008B00",'#10'",H c #028402",'
+  +#10'",I c #293229",'#10'",J c #272727",'#10'",K c #262626",'#10'",L c #4D9C3'
+  +'C",'#10'",M c #4C6447",'#10'",N c #2E5C2C",'#10'",O c #008900",'#10'",P c #'
+  +'008700",'#10'",Q c #155815",'#10'",R c #242424",'#10'",S c #4E7D44",'#10'",'
+  +'T c #0E7F0E",'#10'",U c #008500",'#10'",V c #027E02",'#10'",W c #222222",'
+  +#10'",X c #212121",'#10'",Y c #1B661B",'#10'",Z c #008400",'#10'",0 c #00820'
+  +'0",'#10'",1 c #174717",'#10'",2 c #1F1F1F",'#10'",3 c #65795D",'#10'",4 c #'
+  +'1B641B",'#10'",5 c #008000",'#10'",6 c #0B620B",'#10'",7 c #1E1E1E",'#10'",'
+  +'8 c #1A621A",'#10'",9 c #007E00",'#10'",@ c #027702",'#10'",# c #1C1C1C",'
+  +#10'",; c #1B1B1B",'#10'",: c #55B93E",'#10'",= c #519741",'#10'",+ c #4D8C4'
+  +'0",'#10'",% c #4B6B45",'#10'",$ c #486943",'#10'",( c #466741",'#10'",) c #'
+  +'196019",'#10'",[ c #007C00",'#10'",] c #007A00",'#10'"-. c #193019",'#10'"-'
+  +', c #1A1A1A",'#10'"-- c #191919",'#10'"-* c #589C47",'#10'"-a c #52624F",'
+  +#10'"-b c #185F18",'#10'"-c c #007800",'#10'"-d c #143914",'#10'"-e c #17171'
+  +'7",'#10'"-f c #59A445",'#10'"-g c #1D511D",'#10'"-h c #0E6D0E",'#10'"-i c #'
+  +'155A15",'#10'"-j c #145614",'#10'"-k c #0E600E",'#10'"-l c #076F07",'#10'"-'
+  +'m c #007600",'#10'"-n c #0E480E",'#10'"-o c #161616",'#10'"-p c #549245",'
+  +#10'"-q c #202820",'#10'"-r c #0C590C",'#10'"-s c #007400",'#10'"-t c #0D460'
+  +'D",'#10'"-u c #141414",'#10'"-v c #518F43",'#10'"-w c #007300",'#10'"-x c #'
+  +'0C450C",'#10'"-y c #131313",'#10'"-z c #007100",'#10'"-A c #0B430B",'#10'"-'
+  ,'B c #111111",'#10'"-C c #49893D",'#10'"-D c #006F00",'#10'"-E c #0C3C0C",'
+  +#10'"-F c #0F0F0F",'#10'"-G c #50AE3B",'#10'"-H c #45873B",'#10'"-I c #006D0'
+  +'0",'#10'"-J c #0F2A0F",'#10'"-K c #0E0E0E",'#10'"-L c #428438",'#10'"-M c #'
+  +'006B00",'#10'"-N c #111811",'#10'"-O c #0C0C0C",'#10'"-P c #035903",'#10'"-'
+  +'Q c #006900",'#10'"-R c #074207",'#10'"-S c #0B0B0B",'#10'"-T c #377C30",'
+  +#10'"-U c #006700",'#10'"-V c #0D1A0D",'#10'"-W c #090909",'#10'"-X c #337A2'
+  +'D",'#10'"-Y c #044B04",'#10'"-Z c #080808",'#10'"-0 c #30772B",'#10'"-1 c #'
+  +'006600",'#10'"-2 c #0A230A",'#10'"-3 c #2C7428",'#10'"-4 c #053F05",'#10'"-'
+  +'5 c #060606",'#10'"-6 c #1A391A",'#10'"-7 c #163D16",'#10'"-8 c #104C10",'
+  +#10'"-9 c #050505",'#10'"-@ c #040404",'#10'"-# c #036403",'#10'"-; c #0B410'
+  +'B",'#10'"-: c #101D10",'#10'"-= c #0E150E",'#10'"-+ c #0C190C",'#10'"-% c #'
+  +'015A01",'#10'"-$ c #0A1D0A",'#10'"-( c #030303",'#10'"-) c #164416",'#10'"-'
+  +'[ c #027502",'#10'"-] c #0B120B",'#10'"*. c #243424",'#10'"*, c #145414",'
+  +#10'"*- c #135313",'#10'"** c #096709",'#10'"*a c #0B1E0B",'#10'"*b c #09370'
+  +'9",'#10'"*c c #0D0D0D",'#10'"..............................................'
+  +'..................................................",'#10'".................'
+  +'..................,.-.*.a.b.c.d.e.f.g.h.i.j.k..............................'
+  +'....",'#10'".............................l.m.,.-.*.a.b.c.d.e.f.g.h.i.j.k.n.'
+  +'o.p.q............................",'#10'"...........................l.m.,.-'
+  +'.*.a.b.c.d.e.f.g.h.i.j.k.n.o.p.q.r.s.t........................",'#10'".....'
+  +'..................u.l.m.,.-.*.a.b.c.d.e.f.g.h.i.j.k.n.o.p.q.r.s.v.w.x.y....'
+  +'................",'#10'"...................z.u.l.m.,.-.*.a.b.A.B.C.D.E.F.G.'
+  +'H.I.J.K.L.M.r.s.v.w.x.y.N.O..................",'#10'".................z.u.l'
+  +'.m.,.-.*.P.Q.R.S.T.U.E.F.G.H.I.V.W.X.Y.Z.0.1.w.x.y.N.O.2.3................"'
+  +','#10'"...............z.u.l.m.,.-.*.4.5.6.S.T.U.E.F.G.H.I.V.W.X.Y.Z.7.8.9.@'
+  +'.#.N.O.2.3.;.:..............",'#10'".............z.u.l.m.,.-.=.+.%.6.S.T.U.'
+  +'E.F.G.H.I.V.W.X.Y.Z.7.8.9.$.(.).[.2.3.;.:.],.............",'#10'"..........'
+  +'.z.u.l.m.,.-,,,-.%.6.S.T.U.E.F.G.H.I.V.W.X.Y.Z.7.8.9.$.(.),*,a,b,c.:.],.,d,'
+  +'e..........",'#10'"...........u.l.m.,.-,,,-.%.6.S.T.U.E.F.G.H.I.V.W.X.Y.Z.7'
+  +'.8.9.$.(.),*,a,f,g,h,i,.,d,e,j,k........",'#10'".........u.l.m.,.-,,,-.%.6.'
+  +'S.T.U.E.F.G.H.I.V.W.X.Y.Z.7.8.9.$.(.),*,a,f,g,l,m,n,d,e,j,k,o........",'#10
+  +'".........l.m.,.-.=,p.%.6.S.T.U.E.F.G.H.I.V.W.X.Y.Z.7.8.9.$.(.),*,a,f,g,l,m'
+  +',q,r,s,j,k,o,t,u......",'#10'".......l.m.,.-.*.+.%.6.S.T.U.E.F.G.H.I.V.W.X.'
+  +'Y.Z.7.8.9.$.(.),*,a,f,g,l,m,q,r,v,w,x,o,t,u,y......",'#10'".......m.,.-.*.4'
+  +'.%.6.S.T.U.E.F.G.H.I.V.W.X,z,A,B,C,D,E,F.),*,a,f,g,l,m,q,r,v,w,G,H,I,u,y,J,'
+  +'K....",'#10'".....m.,.-.*.P.5.6.S.T.U.E.F.G.H.I.V,L,M.q.r.s.v.w.x.y.N.O,N,b'
+  +',g,l,m,q,r,v,w,G,O,P,Q,y,J,K,R....",'#10'".....,.-.*.a.Q.6.S.T.U.E.F.G.H.I.'
+  +'V,S.p.q.r.s.v.w.x.y.N.O.2.3.;,T,m,q,r,v,w,G,O,P,U,V,J,K,R,W,X..",'#10'"...,'
+  +'.-.*.a.b.R.S.T.U.E.F.G.H.I.V.W.p.q.r.s.v.w.x.y.N.O.2.3.;.:,Y,q,r,v,w,G,O,P,'
+  +'U,Z,0,1,R,W,X,2..",'#10'"...-.*.a.b,3.S.T.U.E.F.G.H.I.V.W.X.q.r.s.v.w.x.y.N'
+  +'.O.2.3.;.:.],4,r,v,w,G,O,P,U,Z,0,5,6,W,X,2,7..",'#10'"...*.a.b.c.B.T.U.E.F.'
+  +'G.H.I.V.W.X.Y.r.s.v.w.x.y.N.O.2.3.;.:.],.,8,v,w,G,O,P,U,Z,0,5,9,@,X,2,7,#,;'
+  +'",'#10'"...a.b.c.d.C.U.E.F.G.H,:,=,+,%,$,(.s.v.w.x.y.N.O.2.3.;.:.],.,d,),w,'
+  +'G,O,P,U,Z,0,5,9,[,]-.,7,#-,--",'#10'"...b.c.d.e.D.E.F.G-*-a.n.o.p.q.r.s.v.w'
+  +'.x.y.N.O.2.3.;.:.],.,d,e-b,G,O,P,U,Z,0,5,9,[,]-c-d,#-,---e",'#10'"...c.d.e.'
+  +'f.E.F.G-f.k.n.o.p.q.r.s.v.w.x.y.N.O.2.3.;.:.],.,d,e,j-g-h-i,Q-j-k-l,9,[,]-c'
+  +'-m-n-,---e-o",'#10'"...d.e.f.g.F.G.H-p.n.o.p.q.r.s.v.w.x.y.N.O.2.3.;.:.],.,'
+  +'d,e,j,k,o,t,u,y,J,K,R-q-r-c-m-s-t---e-o-u",'#10'"...e.f.g.h.G.H.I-v.o.p.q.r'
+  +'.s.v.w.x.y.N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R,W,X,2-m-s-w-x-e-o-u-y",'#10
+  +'"...f.g.h.i.H.I.V,+.p.q.r.s.v.w.x.y.N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R,W'
+  +',X,2,7-s-w-z-A-o-u-y-B",'#10'"...g.h.i.j.I.V.W-C.q.r.s.v.w.x.y.N.O.2.3.;.:.'
+  +'],.,d,e,j,k,o,t,u,y,J,K,R,W,X,2,7,#-w-z-D-E-u-y-B-F",'#10'"...h.i.j.k-G.W.X'
+  +'-H.r.s.v.w.x.y.N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R,W,X,2,7,#-,-z-D-I-J-y-'
+  +'B-F-K",'#10'"...i.j.k.n.K.X.Y-L.s.v.w.x.y.N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J'
+  +',K,R,W,X,2,7,#-,---D-I-M-N-B-F-K-O",'#10'"...j.k.n.o.L.Y.Z,B.v.w.x.y.N.O.2.'
+  +'3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R,W,X,2,7,#-,---e-I-M-P-B-F-K-O..",'#10'"...k'
+  +'.n.o.p.M.Z.7,C.w.x.y.N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R,W,X,2,7,#-,---e-'
+  +'o-M-Q-R-F-K-O-S..",'#10'".....o.p.q.r.0.8-T.x.y.N.O.2.3.;.:.],.,d,e,j,k,o,t'
+  +',u,y,J,K,R,W,X,2,7,#-,---e-o-u-Q-U-V-K-O-S-W..",'#10'".....p.q.r.s.1.9-X.y.'
+  +'N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R,W,X,2,7,#-,---e-o-u-y-U-Y-K-O-S-W-Z..'
+  +'",'#10'".....q.r.s.v.w.@-0.N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R,W,X,2,7,#-'
+  +',---e-o-u-y-B-1-2-O-S-W-Z....",'#10'".......s.v.w.x.#-3.O.2.3.;.:.],.,d,e,j'
+  +',k,o,t,u,y,J,K,R,W,X,2,7,#-,---e-o-u-y-B-F-4-O-S-W-Z-5....",'#10'".......t.'
+  +'w.x.y.N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R-6-7-8,7,#-,---e-o-u-y-B-F-K-O-S'
+  ,'-W-Z-5......",'#10'".........x.y.N.O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,5,9,[,]-'
+  +'c-m,#-,---e-o-u-y-B-F-K-O-S-W-Z-5-9......",'#10'".........y.N.O.2.3.;.:.],.'
+  +',d,e,j,k,o,t,u,y,J,K,9,[,]-c-m-s-t---e-o-u-y-B-F-K-O-S-W-Z-5-@........",'#10
+  +'"...........O.2.3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R,[,]-c-m-s-w-z-#-;-J-:-B-=-+'
+  +'-O-S-W-Z-5-@..........",'#10'".............3.;.:.],.,d,e,j,k,o,t,u,y,J,K,R-'
+  +'6,]-c-m-s-w-z-D-I-M-Q-U-1-%-$-S-W-Z-5-@-(..........",'#10'"...............:'
+  +'.],.,d,e,j,k,o,t,u,y,J,K,R-)-[-c-m-s-w-z-D-I-M-Q-U-1-4-]-S-W-Z-5-@-(.......'
+  +'.....",'#10'"................,.,d,e,j,k,o,t,u*.*,*-**,[,]-c-m-s-w-z-D-I-M-Q'
+  +'-U-Y*a-O-S-W-Z-5-@-(..............",'#10'"..................,e,j,k,o,t,u,y,'
+  +'J,1,6,@,]-c-m-s-w-z-D-I-M-P*b-V-K-O-S-W-Z-5-@-(................",'#10'"....'
+  +'................,k,o,t,u,y,J,K,R,W,X-.-d-n-t-x-A-E-J-N-B-F-K-O-S-W-Z-5-@...'
+  +'.................",'#10'"........................,u,y,J,K,R,W,X,2,7,#-,---e'
+  +'-o-u-y-B-F-K-O-S-W-Z-5-9......................",'#10'".....................'
+  +'.......,K,R,W,X,2,7,#-,---e-o-u-y-B-F-K-O-S-W-Z-5..........................'
+  +'",'#10'"................................,X,2,7,#-,---e-o-u-y-B-F-K-O-S-W-Z.'
+  +'.............................",'#10'"......................................'
+  +',;---e-o-u-y-B-F-K*c......................................"}'#10#12'Proport'
+  +'ional'#9#7'Stretch'#9#11'Transparent'#8#0#0#6'TLabel'#6'Label1'#4'Left'#2'+'
+  +#6'Height'#2#14#3'Top'#2#5#5'Width'#3#222#0#7'Caption'#6'%Data Table Master/'
+  +'Detail Setup Wizard'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font'
+  +'.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2
+  +'-'#6'Height'#2#16#3'Top'#2#21#5'Width'#3'K'#1#7'Caption'#6'@This wizard wil'
+  +'l help you configure a master/detail relationship'#11'ParentColor'#8#0#0#0
+  +#12'TPageControl'#8'pc_Pages'#6'Height'#3#180#1#3'Top'#2','#5'Width'#3#192#1
+  +#10'ActivePage'#7#9'ts_Params'#5'Align'#7#8'alClient'#8'TabIndex'#2#4#8'TabO'
+  +'rder'#2#1#0#9'TTabSheet'#10'ts_Welcome'#7'Caption'#6#7'Welcome'#12'ClientHe'
+  +'ight'#3#154#1#11'ClientWidth'#3#184#1#0#6'TLabel'#6'Label3'#4'Left'#2#8#6'H'
+  +'eight'#2#14#3'Top'#2#8#5'Width'#3':'#1#7'Caption'#6'4Welcome to the Data Ta'
+  +'ble Master/Detail Setup Wizard'#11'Font.Height'#2#245#9'Font.Name'#6#6'Taho'
+  +'ma'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'
+  +#4'Left'#2#24#6'Height'#2'.'#3'Top'#2#24#5'Width'#3'^'#1#7'Caption'#6#195'Th'
+  +'is wizard will help you set up a Master/Detail relationship by choosing a M'
+  +'aster Source for the selected data table and defining how the relationshop '
+  +'between master and detail tables is mapped.'#11'ParentColor'#8#8'WordWrap'#9
+  +#0#0#6'TLabel'#7'Label24'#4'Left'#2#24#6'Height'#2#16#3'Top'#2'H'#5'Width'#3
+  +#243#0#7'Caption'#6'0This wizard will affect the following properties'#11'Pa'
+  +'rentColor'#8#0#0#6'TLabel'#7'Label25'#4'Left'#2' '#6'Height'#2#16#3'Top'#2
+  +'X'#5'Width'#2'Q'#7'Caption'#6#14'- MasterSource'#11'ParentColor'#8#0#0#6'TL'
+  +'abel'#7'Label26'#4'Left'#2' '#6'Height'#2#16#3'Top'#2'h'#5'Width'#3#161#0#7
+  +'Caption'#6#31'- MasterFields and DetailFields'#11'ParentColor'#8#0#0#6'TLab'
+  +'el'#7'Label27'#4'Left'#2' '#6'Height'#2#16#3'Top'#3#136#0#5'Width'#3#137#0#7
+  +'Caption'#6#22'- MasterParamsMappings'#11'ParentColor'#8#0#0#6'TLabel'#7'Lab'
+  +'el28'#4'Left'#2' '#6'Height'#2#16#3'Top'#3#152#0#5'Width'#3#135#0#7'Caption'
+  +#6#22'- MasterRequestMapping'#11'ParentColor'#8#0#0#6'TLabel'#7'Label29'#4'L'
+  +'eft'#2' '#6'Height'#2#16#3'Top'#2'x'#5'Width'#2'|'#7'Caption'#6#19'- Master'
+  +'MappingMode'#11'ParentColor'#8#0#0#0#9'TTabSheet'#15'ts_MasterSource'#7'Cap'
+  +'tion'#6#15'ts_MasterSource'#12'ClientHeight'#3#154#1#11'ClientWidth'#3#184#1
+  +#10'ImageIndex'#2#6#0#6'TLabel'#6'Label8'#4'Left'#2#8#6'Height'#2#14#3'Top'#2
+  +#8#5'Width'#2'j'#7'Caption'#6#17'Pick MasterSource'#11'Font.Height'#2#245#9
+  +'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6
+  +'TLabel'#6'Label9'#4'Left'#2#24#6'Height'#2#16#3'Top'#2#24#5'Width'#3'1'#1#7
+  +'Caption'#6'=Select the data table to use as master source for this table:'
+  +#11'ParentColor'#8#0#0#6'TLabel'#7'Label10'#4'Left'#2#8#6'Height'#2#14#3'Top'
+  +#2'P'#5'Width'#2''#7'Caption'#6#19'Choose Mapping Mode'#11'Font.Height'#2
+  +#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8
+  +#0#0#6'TLabel'#7'Label17'#4'Left'#2#24#6'Height'#2#16#3'Top'#2'`'#5'Width'#3
+  +#147#1#7'Caption'#6'KSelect what method you want to use fetch detail data fo'
+  +'r your master source'#11'ParentColor'#8#0#0#6'TLabel'#11'lbl_Params1'#4'Lef'
+  +'t'#2'*'#6'Height'#2'.'#3'Top'#3#204#0#5'Width'#3'V'#1#7'Caption'#6#187'Mast'
+  +'er key fields will be passed as parameters when fetching detail data. Use t'
+  +'his if you''re talking to a standard DA server, and have defined Parameters'
+  +' in data table inside your schema.'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'T'
+  +'Label'#11'lbl_Params2'#4'Left'#2'*'#6'Height'#2#31#3'Top'#3#248#0#5'Width'#3
+  +#254#0#7'Caption'#6'\Your detail data will be fetched via the standard DataR'
+  ,'equestCall, just like any data table.'#11'ParentColor'#8#8'WordWrap'#9#0#0#6
+  +'TLabel'#11'lbl_Method1'#4'Left'#2'*'#6'Height'#2#16#3'Top'#3'D'#1#5'Width'#3
+  +#139#1#7'Caption'#6'JData will be retrieved using a custom method you provid'
+  +'ed in your service.'#11'ParentColor'#8#0#0#6'TLabel'#11'lbl_Method2'#4'Left'
+  +#2'*'#6'Height'#2#23#3'Top'#3'X'#1#5'Width'#3'Z'#1#7'Caption'#6'|This option'
+  +' is only available if the detail table uses a separate RemoteDataAdapter co'
+  +'mponent with a custom DataRequestCall.'#10'Font.Color'#7#10'clGrayText'#11
+  +'Font.Height'#2#247#9'Font.Name'#6#6'Tahoma'#11'ParentColor'#8#8'WordWrap'#9
+  +#0#0#6'TLabel'#11'lbl_Params3'#4'Left'#2'*'#6'Height'#2#12#3'Top'#3#26#1#5'W'
+  +'idth'#3'+'#1#7'Caption'#6'KThis option is only available if your detail dat'
+  +'a table defines parameters.'#10'Font.Color'#7#10'clGrayText'#11'Font.Height'
+  +#2#247#9'Font.Name'#6#6'Tahoma'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'
+  +#10'lbl_Where1'#4'Left'#2'*'#6'Height'#2#16#3'Top'#3#140#0#5'Width'#3'9'#1#7
+  +'Caption'#6'?A where clause will be passed to retrieve filtered detail data.'
+  +#11'ParentColor'#8#0#0#6'TLabel'#10'lbl_Where2'#4'Left'#2'*'#6'Height'#2#12#3
+  +'Top'#3#160#0#5'Width'#3#176#0#7'Caption'#6'&Recommended for Version 5.0 and'
+  +' above.'#10'Font.Color'#7#10'clGrayText'#11'Font.Height'#2#247#9'Font.Name'
+  +#6#6'Tahoma'#11'ParentColor'#8#0#0#9'TComboBox'#14'cb_DataSources'#4'Left'#2
+  +#24#6'Height'#2#21#3'Top'#2'('#5'Width'#3'!'#1#16'AutoCompleteText'#11#22'cb'
+  +'actEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#8'OnCh'
+  +'ange'#7#20'cb_DataSourcesChange'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2
+  +#0#0#0#12'TRadioButton'#8'rb_Where'#4'Left'#2#24#6'Height'#2#21#3'Top'#2'x'#5
+  +'Width'#3#187#0#7'Caption'#6#29'Using automatic WHERE clauses'#8'OnChange'#7
+  +#20'cb_DataSourcesChange'#8'TabOrder'#2#1#0#0#12'TRadioButton'#9'rb_Params'#4
+  +'Left'#2#24#6'Height'#2#21#3'Top'#3#184#0#5'Width'#3#134#0#7'Caption'#6#21'U'
+  +'sing data parameters'#8'OnChange'#7#20'cb_DataSourcesChange'#8'TabOrder'#2#2
+  +#0#0#12'TRadioButton'#9'rb_Method'#4'Left'#2#24#6'Height'#2#21#3'Top'#3'0'#1
+  +#5'Width'#3#158#0#7'Caption'#6#26'Using a custom method call'#8'OnChange'#7
+  +#20'cb_DataSourcesChange'#8'TabOrder'#2#3#0#0#0#9'TTabSheet'#9'ts_Fields'#7
+  +'Caption'#6#9'ts_Fields'#12'ClientHeight'#3#154#1#11'ClientWidth'#3#184#1#10
+  +'ImageIndex'#2#3#0#6'TLabel'#15'labMasterFields'#4'Left'#2#24#6'Height'#2#16
+  +#3'Top'#2'\'#5'Width'#2'I'#7'Caption'#6#15'&Master Fields:'#12'FocusControl'
+  +#7#8'lbMaster'#11'ParentColor'#8#0#0#6'TLabel'#15'labDetailFields'#4'Left'#3
+  +#0#1#6'Height'#2#16#3'Top'#2'\'#5'Width'#2'C'#7'Caption'#6#15'&Detail Fields'
+  +':'#12'FocusControl'#7#8'lbDetail'#11'ParentColor'#8#0#0#6'TLabel'#7'Label13'
+  +#4'Left'#2#24#6'Height'#2#16#3'Top'#3'C'#1#5'Width'#2'F'#7'Caption'#6#13'Mas'
+  +'terFields:'#12'FocusControl'#7#13'eMasterFields'#11'ParentColor'#8#0#0#6'TL'
+  +'abel'#7'Label14'#4'Left'#2#24#6'Height'#2#16#3'Top'#3'['#1#5'Width'#2'@'#7
+  +'Caption'#6#13'DetailFields:'#12'FocusControl'#7#13'eDetailFields'#11'Parent'
+  +'Color'#8#0#0#6'TLabel'#7'Label18'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5'W'
+  +'idth'#2's'#7'Caption'#6#20'Master/Detail Fields'#11'Font.Height'#2#245#9'Fo'
+  +'nt.Name'#6#6'Tahoma'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6
+  +'TLabel'#7'Label19'#4'Left'#2#24#6'Height'#2#16#3'Top'#2#24#5'Width'#3'_'#1#7
+  +'Caption'#6'FPlease select the fields that describe the Master/Detail relati'
+  +'onship.'#11'ParentColor'#8#0#0#8'TListBox'#8'lbMaster'#4'Left'#2#22#6'Heigh'
+  +'t'#3#209#0#3'Top'#2'l'#5'Width'#3#164#0#10'ItemHeight'#2#13#11'MultiSelect'
+  +#9#8'TabOrder'#2#0#0#0#8'TListBox'#8'lbDetail'#4'Left'#3#254#0#6'Height'#3
+  +#209#0#3'Top'#2'l'#5'Width'#3#164#0#10'ItemHeight'#2#13#11'MultiSelect'#9#8
+  +'TabOrder'#2#1#0#0#5'TEdit'#13'eMasterFields'#4'Left'#2'a'#6'Height'#2#21#3
+  +'Top'#3'@'#1#5'Width'#3'A'#1#8'OnChange'#7#20'OnFieldMappingChange'#8'TabOrd'
+  +'er'#2#2#4'Text'#6#9'fdsfdsdsf'#0#0#5'TEdit'#13'eDetailFields'#4'Left'#2'a'#6
+  +'Height'#2#21#3'Top'#3'X'#1#5'Width'#3'A'#1#8'OnChange'#7#20'OnFieldMappingC'
+  +'hange'#8'TabOrder'#2#3#4'Text'#6#9'fdsfdsdsf'#0#0#7'TBitBtn'#17'bbAddFieldM'
+  +'apping'#4'Left'#3#190#0#6'Height'#2#25#3'Top'#2'l'#5'Width'#2'<'#7'Caption'
+  +#6#4'&Add'#10'Glyph.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('
+  +#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0#18#11#0#0#18#11#0#0#0#0#0#0
+  +#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#3']'#5#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#3']'#5'['#247#145#5#140#13#3']'#5#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#3']'#5'['#247#145#5#149#14#3']'#5#255#0#255#255#0#255#255#0
+  ,#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#3']'#5'['#247#145#5#146#13#3']'#5#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3']'#5'['#247#145#6#149#15#3']'#5#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5#3']'
+  +#5#3']'#5#3']'#5#3']'#5'['#247#145#12#156#24#3']'#5#3']'#5#3']'#5#3']'#5#3']'
+  +#5#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145';'#218'i0'#207'W*'#198'M!'
+  +#184'<'#23#166'+'#17#159'!'#13#158#28#10#154#21#6#146#14#5#147#13#5#139#13#3
+  +']'#5#255#0#255#255#0#255#3']'#5'['#247#145'['#247#145'['#247#145'['#247#145
+  +'['#247#145'['#247#145#24#169'/['#247#145'['#247#145'['#247#145'['#247#145'['
+  +#247#145#3']'#5#255#0#255#255#0#255#255#0#255#3']'#5#3']'#5#3']'#5#3']'#5#3
+  +']'#5'['#247#145'%'#188'B'#3']'#5#3']'#5#3']'#5#3']'#5#3']'#5#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['
+  +#247#145'0'#206'W'#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5
+  +'['#247#145';'#217'h'#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3
+  +']'#5'['#247#145'H'#235''#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#3']'#5'['#247#145'['#247#145#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#3']'#5#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#0#7'OnClick'#7#22'bbAddFie'
+  +'ldMappingClick'#8'TabOrder'#2#4#0#0#7'TBitBtn'#7'BitBtn4'#4'Left'#3#190#0#6
+  +'Height'#2#25#3'Top'#3'$'#1#5'Width'#2'<'#7'Caption'#6#6'&Clear'#10'Glyph.Da'
+  +'ta'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0
+  +#0#0#1#0#24#0#0#0#0#0#0#3#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#242#187#129#243#196#138#242#188#129
+  +#239#176'r'#238#175'n'#239#178'u'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#251#235#189#254#243#201#251
+  +#222#172#243#201#144#251#182'~'#255#180'}'#252#202#153#255#217#173#254#217
+  +#167#240#181'w'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#254#250#211#254#247#204#251#220#169#235#202#145#169#184'n'#132#171'T+'#145
+  +' W'#167'C'#234#243#199#252#233#189#238#173'o'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#237#165'e'#243#194#138#252#240#196#252#229#181#251#208#159','#150
+  +'"'#0'{'#0#5#130#6#6''#4'='#163'5'#254#242#208#240#177's'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#238#171'm'#237#167'g'#239#176'p'#246#201#144#255#216
+  +#172'.'#152'#'#0'n'#0'j'#191'k'#255#240#234'H'#161'8'#163#175'^'#252#175't'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#242#180'y'#242#183'~'#240#178'w'#240
+  +#172'o'#251#181'~z'#180'`A'#166'Ao'#188'i'#255#255#255#244#254#251#188#187'y'
+  +#243#170'k'#255#0#255#255#0#255#255#0#255#255#0#255#247#194#146#250#197#152
+  +#248#194#147#248#192#144#243#191#138#194#213#165#255#255#255#217#238#213'V'
+  +#177'SK'#175'K'#184#188'y'#248#176'u'#255#0#255#255#0#255#255#0#255#246#199
+  +#146#252#212#173#252#212#172#252#208#169#252#208#169#255#212#181']'#169'F'
+  +#128#199#128#224#242#222''''#152'$'#0'p'#0#130#176'['#255#189#144#238#172'm'
+  +#255#0#255#255#0#255#246#199#146#255#234#196#254#227#188#254#226#186#254#224
+  +#184#255#224#186#217#217#172#10#130#9#24#138#22#3''#3#0'y'#0'w'#180']'#255
+  +#206#170#238#172'm'#255#0#255#255#0#255#250#221#171#255#251#213#255#244#204
+  +#255#243#202#255#240#201#255#239#197#255#242#209#181#213#152'*'#150'$+'#153
+  +'$'#154#203#135#181#209#149#255#224#186#242#183'z'#255#0#255#255#0#255#252
+  +#239#196#255#255#216#255#251#211#255#252#212#255#251#211#255#251#212#255#252
+  +#212#255#255#225#255#255#235#255#255#231#255#255#224#255#248#215#255#244#203
+  +#243#192#134#255#0#255#255#0#255#254#244#203#255#255#221#255#255#217#255#255
+  +#217#255#255#218#255#254#215#254#246#204#248#218#163#244#192'}'#244#193''
+  +#247#216#163#254#242#197#255#255#221#243#201#145#255#0#255#255#0#255#244#204
+  +#150#248#222#175#248#221#172#247#216#166#246#207#153#243#191#128#239#172'f'
+  +#235#157'O'#235#156'L'#235#159'U'#240#172'n'#250#192#135#252#211#160#250#192
+  +#137#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#237#163'T'#239#171'h'#247#188#131#250#191#136
+  +#250#188#131#250#188#131#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#250
+  +#192#136#250#192#136#250#192#136#255#0#255#255#0#255#9'NumGlyphs'#2#0#7'OnCl'
+  +'ick'#7#12'BitBtn4Click'#8'TabOrder'#2#5#0#0#0#9'TTabSheet'#13'ts_MethodCall'
+  +#7'Caption'#6#13'ts_MethodCall'#12'ClientHeight'#3#154#1#11'ClientWidth'#3
+  +#184#1#10'ImageIndex'#2#4#0#6'TLabel'#16'labMasterFields2'#4'Left'#2#24#6'He'
+  +'ight'#2#16#3'Top'#2'\'#5'Width'#2'I'#7'Caption'#6#15'&Master Fields:'#11'Pa'
+  +'rentColor'#8#0#0#6'TLabel'#16'labDataReqParams'#4'Left'#3#0#1#6'Height'#2#16
+  +#3'Top'#2'\'#5'Width'#3#132#0#7'Caption'#6#24'DataRequestCall &Params:'#12'F'
+  +'ocusControl'#7#15'lbDataReqParams'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'
+  +#4'Left'#2#24#6'Height'#2#16#3'Top'#3'*'#1#5'Width'#3'-'#1#7'Caption'#6'7Map'
+  +'p&ings (Detail''s DataRequestCall Param=MasterField):'#12'FocusControl'#7#9
+  +'mMappings'#11'ParentColor'#8#0#0#6'TLabel'#7'Label20'#4'Left'#2#8#6'Height'
+  +#2#14#3'Top'#2#8#5'Width'#3#191#0#7'Caption'#6#31'Map Fields to Method Param'
+  +'eters'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#6'f'
+  +'sBold'#0#11'ParentColor'#8#0#0#6'TLabel'#7'Label21'#4'Left'#2#24#6'Height'#2
+  +'='#3'Top'#2#24#5'Width'#3#134#1#8'AutoSize'#8#7'Caption'#6#237'Select how t'
+  +'he master fields map to the parameters passed to the customs GetDataCall yo'
+  +'u are using to fetch Detail data. Ideally, all fields from the previous pag'
+  +'e (i.e. all fields involved in the M/D relationship) should be mapped here.'
+  +#11'ParentColor'#8#8'WordWrap'#9#0#0#8'TListBox'#9'lbMaster2'#4'Left'#2#22#6
+  +'Height'#3#185#0#3'Top'#2'l'#5'Width'#3#164#0#10'ItemHeight'#2#13#11'MultiSe'
+  +'lect'#9#8'TabOrder'#2#0#0#0#8'TListBox'#15'lbDataReqParams'#4'Left'#3#254#0
+  +#6'Height'#3#185#0#3'Top'#2'j'#5'Width'#3#164#0#10'ItemHeight'#2#13#11'Multi'
+  +'Select'#9#8'TabOrder'#2#1#0#0#5'TMemo'#9'mMappings'#4'Left'#2#22#6'Height'#2
+  +'<'#3'Top'#3':'#1#5'Width'#3#139#1#10'ScrollBars'#7#10'ssVertical'#8'TabOrde'
+  +'r'#2#2#0#0#7'TBitBtn'#19'bbAddDataReqMapping'#4'Left'#3#190#0#6'Height'#2#25
+  +#3'Top'#2'l'#5'Width'#2'<'#7'Caption'#6#4'&Add'#10'Glyph.Data'#10':'#3#0#0'6'
+  +#3#0#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0
+  +#0#0#3#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5#3']'#5#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#5#140#13#3']'
+  +#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#5#149#14#3
+  +']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#5#146#13
+  +#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#6#149#15
+  +#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#3']'#5#3']'#5#3']'#5#3']'#5#3']'#5'['#247#145#12#156#24#3']'#5#3
+  +']'#5#3']'#5#3']'#5#3']'#5#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145';'
+  +#218'i0'#207'W*'#198'M!'#184'<'#23#166'+'#17#159'!'#13#158#28#10#154#21#6#146
+  +#14#5#147#13#5#139#13#3']'#5#255#0#255#255#0#255#3']'#5'['#247#145'['#247#145
+  +'['#247#145'['#247#145'['#247#145'['#247#145#24#169'/['#247#145'['#247#145'['
+  +#247#145'['#247#145'['#247#145#3']'#5#255#0#255#255#0#255#255#0#255#3']'#5#3
+  +']'#5#3']'#5#3']'#5#3']'#5'['#247#145'%'#188'B'#3']'#5#3']'#5#3']'#5#3']'#5#3
+  +']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#3']'#5'['#247#145'0'#206'W'#3']'#5#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#3']'#5'['#247#145';'#217'h'#3']'#5#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#3']'#5'['#247#145'H'#235''#3']'#5#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3']'#5'['#247#145'['#247#145#3']'#5#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5#3']'#5#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#0
+  +#7'OnClick'#7#24'bbAddDataReqMappingClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#21
+  +'bbClearDataReqMapping'#4'Left'#3#190#0#6'Height'#2#25#3'Top'#3#10#1#5'Width'
+  +#2'<'#7'Caption'#6#6'&Clear'#10'Glyph.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0#0
+  ,#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0#18#11#0#0
+  +#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#242#187#129#243#196#138#242#188#129#239#176'r'#238#175'n'#239#178'u'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#251#235#189#254#243#201#251#222#172#243#201#144#251#182'~'#255#180
+  +'}'#252#202#153#255#217#173#254#217#167#240#181'w'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#254#250#211#254#247#204#251#220#169#235
+  +#202#145#169#184'n'#132#171'T+'#145' W'#167'C'#234#243#199#252#233#189#238
+  +#173'o'#255#0#255#255#0#255#255#0#255#255#0#255#237#165'e'#243#194#138#252
+  +#240#196#252#229#181#251#208#159','#150'"'#0'{'#0#5#130#6#6''#4'='#163'5'
+  +#254#242#208#240#177's'#255#0#255#255#0#255#255#0#255#255#0#255#238#171'm'
+  +#237#167'g'#239#176'p'#246#201#144#255#216#172'.'#152'#'#0'n'#0'j'#191'k'#255
+  +#240#234'H'#161'8'#163#175'^'#252#175't'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#242#180'y'#242#183'~'#240#178'w'#240#172'o'#251#181'~z'#180'`A'#166'Ao'
+  +#188'i'#255#255#255#244#254#251#188#187'y'#243#170'k'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#247#194#146#250#197#152#248#194#147#248#192#144#243#191#138
+  +#194#213#165#255#255#255#217#238#213'V'#177'SK'#175'K'#184#188'y'#248#176'u'
+  +#255#0#255#255#0#255#255#0#255#246#199#146#252#212#173#252#212#172#252#208
+  +#169#252#208#169#255#212#181']'#169'F'#128#199#128#224#242#222''''#152'$'#0
+  +'p'#0#130#176'['#255#189#144#238#172'm'#255#0#255#255#0#255#246#199#146#255
+  +#234#196#254#227#188#254#226#186#254#224#184#255#224#186#217#217#172#10#130#9
+  +#24#138#22#3''#3#0'y'#0'w'#180']'#255#206#170#238#172'm'#255#0#255#255#0#255
+  +#250#221#171#255#251#213#255#244#204#255#243#202#255#240#201#255#239#197#255
+  +#242#209#181#213#152'*'#150'$+'#153'$'#154#203#135#181#209#149#255#224#186
+  +#242#183'z'#255#0#255#255#0#255#252#239#196#255#255#216#255#251#211#255#252
+  +#212#255#251#211#255#251#212#255#252#212#255#255#225#255#255#235#255#255#231
+  +#255#255#224#255#248#215#255#244#203#243#192#134#255#0#255#255#0#255#254#244
+  +#203#255#255#221#255#255#217#255#255#217#255#255#218#255#254#215#254#246#204
+  +#248#218#163#244#192'}'#244#193''#247#216#163#254#242#197#255#255#221#243
+  +#201#145#255#0#255#255#0#255#244#204#150#248#222#175#248#221#172#247#216#166
+  +#246#207#153#243#191#128#239#172'f'#235#157'O'#235#156'L'#235#159'U'#240#172
+  +'n'#250#192#135#252#211#160#250#192#137#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#237#163'T'
+  +#239#171'h'#247#188#131#250#191#136#250#188#131#250#188#131#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#250#192#136#250#192#136#250#192#136#255#0#255
+  +#255#0#255#9'NumGlyphs'#2#0#7'OnClick'#7#26'bbClearDataReqMappingClick'#8'Ta'
+  +'bOrder'#2#4#0#0#0#9'TTabSheet'#9'ts_Params'#7'Caption'#6#9'ts_Params'#12'Cl'
+  +'ientHeight'#3#154#1#11'ClientWidth'#3#184#1#10'ImageIndex'#2#5#0#6'TLabel'#7
+  +'Label11'#4'Left'#2#24#6'Height'#2#16#3'Top'#2'\'#5'Width'#2'Q'#7'Caption'#6
+  +#16'Master''s Fields:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3#0
+  +#1#6'Height'#2#16#3'Top'#2'\'#5'Width'#2'+'#7'Caption'#6#7'Params:'#12'Focus'
+  +'Control'#7#8'lbParams'#11'ParentColor'#8#0#0#6'TLabel'#7'Label15'#4'Left'#2
+  +#24#6'Height'#2#16#3'Top'#3'*'#1#5'Width'#3#212#0#7'Caption'#6'&Mappings (De'
+  +'tail''s Param=MasterField):'#12'FocusControl'#7#15'mParamsMappings'#11'Pare'
+  +'ntColor'#8#0#0#6'TLabel'#7'Label22'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5
+  +'Width'#3#209#0#7'Caption'#6'#Map Fields to Data Table Parameters'#11'Font.H'
+  +'eight'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#6'fsBold'#0#11'Pare'
+  +'ntColor'#8#0#0#6'TLabel'#7'Label23'#4'Left'#2#24#6'Height'#2'.'#3'Top'#2#24
+  +#5'Width'#3#133#1#7'Caption'#6#188'Select how the master fields map to the p'
+  +'arameters of your detail data. Ideally, all fields from the previous page ('
+  +'i.e. all fields involved in the M/D relationship) should be mapped here.'#11
+  +'ParentColor'#8#8'WordWrap'#9#0#0#8'TListBox'#9'lbMaster3'#4'Left'#2#22#6'He'
+  +'ight'#3#185#0#3'Top'#2'l'#5'Width'#3#164#0#10'ItemHeight'#2#13#11'MultiSele'
+  +'ct'#9#8'TabOrder'#2#0#0#0#8'TListBox'#8'lbParams'#4'Left'#3#254#0#6'Height'
+  +#3#185#0#3'Top'#2'l'#5'Width'#3#164#0#10'ItemHeight'#2#13#11'MultiSelect'#9#8
+  +'TabOrder'#2#1#0#0#5'TMemo'#15'mParamsMappings'#4'Left'#2#22#6'Height'#2'<'#3
+  +'Top'#3':'#1#5'Width'#3#139#1#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#2
+  +#0#0#7'TBitBtn'#20'bbAddParamMappingXXX'#4'Left'#3#190#0#6'Height'#2#25#3'To'
+  +'p'#2'l'#5'Width'#2'<'#7'Caption'#6#4'&Add'#10'Glyph.Data'#10':'#3#0#0'6'#3#0
+  +#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0
+  +#3#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
+  ,#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5#3']'#5#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#5#140#13#3']'#5
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#5#149#14#3']'
+  +#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#5#146#13#3
+  +']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#6#149#15
+  +#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#3']'#5#3']'#5#3']'#5#3']'#5#3']'#5'['#247#145#12#156#24#3']'#5#3
+  +']'#5#3']'#5#3']'#5#3']'#5#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145';'
+  +#218'i0'#207'W*'#198'M!'#184'<'#23#166'+'#17#159'!'#13#158#28#10#154#21#6#146
+  +#14#5#147#13#5#139#13#3']'#5#255#0#255#255#0#255#3']'#5'['#247#145'['#247#145
+  +'['#247#145'['#247#145'['#247#145'['#247#145#24#169'/['#247#145'['#247#145'['
+  +#247#145'['#247#145'['#247#145#3']'#5#255#0#255#255#0#255#255#0#255#3']'#5#3
+  +']'#5#3']'#5#3']'#5#3']'#5'['#247#145'%'#188'B'#3']'#5#3']'#5#3']'#5#3']'#5#3
+  +']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#3']'#5'['#247#145'0'#206'W'#3']'#5#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#3']'#5'['#247#145';'#217'h'#3']'#5#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#3']'#5'['#247#145'H'#235''#3']'#5#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3']'#5'['#247#145'['#247#145#3']'#5#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5#3']'#5#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#0
+  +#7'OnClick'#7#25'bbAddParamMappingXXXClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#23
+  +'bbClearParamMappingsXXX'#4'Left'#3#190#0#6'Height'#2#25#3'Top'#3#12#1#5'Wid'
+  +'th'#2'<'#7'Caption'#6#6'&Clear'#10'Glyph.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0
+  +#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0#18#11
+  +#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#242#187#129#243#196#138#242#188#129#239#176'r'#238#175'n'#239#178'u'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#251#235#189#254#243#201#251#222#172#243#201#144#251#182'~'#255#180
+  +'}'#252#202#153#255#217#173#254#217#167#240#181'w'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#254#250#211#254#247#204#251#220#169#235
+  +#202#145#169#184'n'#132#171'T+'#145' W'#167'C'#234#243#199#252#233#189#238
+  +#173'o'#255#0#255#255#0#255#255#0#255#255#0#255#237#165'e'#243#194#138#252
+  +#240#196#252#229#181#251#208#159','#150'"'#0'{'#0#5#130#6#6''#4'='#163'5'
+  +#254#242#208#240#177's'#255#0#255#255#0#255#255#0#255#255#0#255#238#171'm'
+  +#237#167'g'#239#176'p'#246#201#144#255#216#172'.'#152'#'#0'n'#0'j'#191'k'#255
+  +#240#234'H'#161'8'#163#175'^'#252#175't'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#242#180'y'#242#183'~'#240#178'w'#240#172'o'#251#181'~z'#180'`A'#166'Ao'
+  +#188'i'#255#255#255#244#254#251#188#187'y'#243#170'k'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#247#194#146#250#197#152#248#194#147#248#192#144#243#191#138
+  +#194#213#165#255#255#255#217#238#213'V'#177'SK'#175'K'#184#188'y'#248#176'u'
+  +#255#0#255#255#0#255#255#0#255#246#199#146#252#212#173#252#212#172#252#208
+  +#169#252#208#169#255#212#181']'#169'F'#128#199#128#224#242#222''''#152'$'#0
+  +'p'#0#130#176'['#255#189#144#238#172'm'#255#0#255#255#0#255#246#199#146#255
+  +#234#196#254#227#188#254#226#186#254#224#184#255#224#186#217#217#172#10#130#9
+  +#24#138#22#3''#3#0'y'#0'w'#180']'#255#206#170#238#172'm'#255#0#255#255#0#255
+  +#250#221#171#255#251#213#255#244#204#255#243#202#255#240#201#255#239#197#255
+  +#242#209#181#213#152'*'#150'$+'#153'$'#154#203#135#181#209#149#255#224#186
+  +#242#183'z'#255#0#255#255#0#255#252#239#196#255#255#216#255#251#211#255#252
+  +#212#255#251#211#255#251#212#255#252#212#255#255#225#255#255#235#255#255#231
+  +#255#255#224#255#248#215#255#244#203#243#192#134#255#0#255#255#0#255#254#244
+  ,#203#255#255#221#255#255#217#255#255#217#255#255#218#255#254#215#254#246#204
+  +#248#218#163#244#192'}'#244#193''#247#216#163#254#242#197#255#255#221#243
+  +#201#145#255#0#255#255#0#255#244#204#150#248#222#175#248#221#172#247#216#166
+  +#246#207#153#243#191#128#239#172'f'#235#157'O'#235#156'L'#235#159'U'#240#172
+  +'n'#250#192#135#252#211#160#250#192#137#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#237#163'T'
+  +#239#171'h'#247#188#131#250#191#136#250#188#131#250#188#131#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#250#192#136#250#192#136#250#192#136#255#0#255
+  +#255#0#255#9'NumGlyphs'#2#0#7'OnClick'#7#28'bbClearParamMappingsXXXClick'#8
+  +'TabOrder'#2#4#0#0#0#9'TTabSheet'#9'ts_Finish'#7'Caption'#6#6'Finish'#12'Cli'
+  +'entHeight'#3#154#1#11'ClientWidth'#3#184#1#10'ImageIndex'#2#2#0#6'TLabel'#6
+  +'Label5'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5'Width'#2'4'#7'Caption'#6#10
+  +'That''s It!'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'
+  +#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#2#24#6'Hei'
+  +'ght'#2#16#3'Top'#2#24#5'Width'#3#240#0#7'Caption'#6'.Your Master/Detail rel'
+  +'ationship is now set up.'#11'ParentColor'#8#0#0#0#0#6'TPanel'#6'Panel2'#6'H'
+  +'eight'#2'#'#3'Top'#3#224#1#5'Width'#3#192#1#5'Align'#7#8'alBottom'#10'Bevel'
+  +'Outer'#7#6'bvNone'#12'ClientHeight'#2'#'#11'ClientWidth'#3#192#1#8'TabOrder'
+  +#2#2#0#7'TBitBtn'#10'btn_Finish'#4'Left'#3'p'#1#6'Height'#2#25#4'Hint'#6#31
+  +'This is Finish, but not the End'#3'Top'#2#5#5'Width'#2'K'#7'Anchors'#11#5'a'
+  +'kTop'#7'akRight'#0#7'Caption'#6#6'Finish'#10'Glyph.Data'#10':'#6#0#0'6'#6#0
+  +#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0
+  +#6#0#0'"'#11#0#0'"'#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#129#30#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'xxxxxx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#129#30#0#129#30#0#129#30#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'xxxxxxxxx'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#129#30#0#149'D'#15#129#30#0#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'xxx'#137#137#137'xxx'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#167'c/'#129#30#0
+  +#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'#159#159#159'xxxx'
+  +'xx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#191#139
+  +'b'#204#161'~'#129#30#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'#184
+  +#184#184#198#198#198'xxxxxx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#129#30#0#216#182#156#230#209#191#231#211#196#129#30#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'xxx'#209#209#209#224#224#224#226#226#226'xxx'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#129#30#0#240#226#217#252#247#242#250#240#230
+  +#129#30#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'#235#235#235#245#245#245#241
+  +#241#241'xxxxxx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#216#175#150#244#226#207#240
+  +#215#189#216#167#132#129#30#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'#208#208#208#233
+  ,#233#233#227#227#227#202#202#202'xxxxxx'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#243#222#202#239#212#184
+  +#235#201#167#218#166'}'#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'#231#231#231#225
+  +#225#225#219#219#219#201#201#201'xxx'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30
+  +#0#231#187#146#227#176#129#224#166'r'#213#146'Z'#129#30#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'xxx'#211#211#211#205#205#205#198#198#198#188#188#188'xxx'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#129#30#0#218#153'^'#215#143'P'#211#132'A'#207'{5'#129#30
+  +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'xxx'#191#191#191#184#184#184#178#178#178#172#172
+  +#172'xxx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#129#30#0#129#30#0#129
+  +#30#0#129#30#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxxxxxxxxxxxxxxxxx'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#11'ModalResult'#2#1#9'NumGlyphs'#2#2
+  +#7'OnClick'#7#15'btn_FinishClick'#8'TabOrder'#2#0#7'Visible'#8#0#0#7'TBitBtn'
+  +#10'btn_Cancel'#4'Left'#2#5#6'Height'#2#25#3'Top'#2#5#5'Width'#2'K'#6'Cancel'
+  +#9#7'Caption'#6#6'Cancel'#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0#0#0
+  +#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#196#14#0#0
+  +#196#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'kkkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'kkkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+  +#154#23'J'#253#16';'#244#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+  +#154#0','#248#0'0'#252#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'
+  +#168#168#168#160#160#160'kkk'#255#0#255#255#0#255#255#0#255#255#0#255'kkk'
+  +#154#154#154#156#156#156'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154
+  +#26'G'#248#26'L'#255#18';'#241#0#0#154#255#0#255#255#0#255#0#0#154#1'-'#246#1
+  +'2'#255#0'*'#243#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167#167
+  +#167#170#170#170#159#159#159'kkk'#255#0#255#255#0#255'kkk'#153#153#153#158
+  +#158#158#151#151#151'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#28'G'#246#27'M'#255#20'>'#244#0#0#154#0#0#154#0'-'#248#1'4'#255#3'+'
+  +#242#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'
+  +#167#167#167#171#171#171#162#162#162'kkkkkk'#154#154#154#158#158#158#152#152
+  +#152'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#154#29'H'#246#29'P'#255#16'='#251#4'1'#254#1'2'#255#0','#246#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'kkk'#167#167#167#172#172#172#163#163#163#159#159#159#158#158#158#153#153
+  +#153'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#154#26'H'#249#19'B'#255#12'<'#255#7'3'#246#0#0
+  +#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'kkk'#167#167#167#167#167#167#163#163#163#156
+  +#156#156'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0#0#154'!N'#252#29'K'#255#24'G'#255#23
+  ,'C'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#172#172#172#172#172#172#169#169
+  +#169#164#164#164'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0#154'.['#249',_'#255'"M'#248' K'#248'#'
+  +'U'#255#27'F'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'kkk'#177#177#177#179#179#179#171#171#171#170
+  +#170#170#175#175#175#166#166#166'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0#154'6d'#250'8k'#255'-Y'#244#0#0#154#0#0
+  +#154'"L'#244'%X'#255#29'I'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'kkk'#182#182#182#185#185#185#174#174#174'kkkkkk'#169
+  +#169#169#176#176#176#167#167#167'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#154'@q'#250'Bt'#255'2]'#241#0#0#154#255#0#255#255#0#255#0#0
+  +#154'"M'#241'''Z'#255' L'#248#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255
+  +'kkk'#187#187#187#190#190#190#175#175#175'kkk'#255#0#255#255#0#255'kkk'#167
+  +#167#167#177#177#177#170#170#170'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#0#0#154'Iz'#252';f'#243#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+  +#154'%P'#244'&U'#250#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#192
+  +#192#192#181#181#181'kkk'#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#170
+  +#170#170#174#174#174'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'k'
+  +'kkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#11'Mo'
+  +'dalResult'#2#2#9'NumGlyphs'#2#2#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'btn_Next'#4
+  +'Left'#3'p'#1#6'Height'#2#25#3'Top'#2#5#5'Width'#2'K'#7'Anchors'#11#5'akTop'
+  +#7'akRight'#0#7'Caption'#6#5'&Next'#7'Default'#9#10'Glyph.Data'#10':'#6#0#0
+  +'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0
+  +#0#0#0#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#11'|'#21#9'z'#20#8'q'#16#5'j'#12#4'g'#11#4'g'#12#4'g'#12#4'g'
+  +#12#4'g'#12#4'g'#12#4'g'#12#4'W'#9#255#0#255#255#0#255#255#0#255#255#0#255
+  +#156#156#156#156#156#156#152#152#152#150#150#150#149#149#149#149#149#149#149
+  +#149#149#149#149#149#149#149#149#149#149#149#149#149#149#144#144#144#255#0
+  +#255#255#0#255#255#0#255#18#154'('#26#176':'#21#175'2'#17#171''''#13#168#31#8
+  +#166#24#8#165#22#8#165#22#8#166#23#8#166#23#8#165#23#8#171#24#7#141#18#4'W'#8
+  +#255#0#255#255#0#255#168#168#168#176#176#176#174#174#174#172#172#172#170#170
+  +#170#168#168#168#168#168#168#168#168#168#168#168#168#168#168#168#168#168#168
+  +#169#169#169#160#160#160#144#144#144#255#0#255#255#0#255#27#173'<%'#197'T'#30
+  +#192'E'#26#190':'#21#189'1'#16#186''''#11#184#29#9#184#25#9#184#26#9#184#26#9
+  +#183#26#9#190#28#8#171#23#4'g'#12#255#0#255#255#0#255#176#176#176#185#185#185
+  +#181#181#181#180#180#180#178#178#178#176#176#176#173#173#173#173#173#173#173
+  +#173#173#173#173#173#173#173#173#175#175#175#169#169#169#149#149#149#255#0
+  +#255#255#0#255' '#180'E1'#196'd)'#191'S"'#187'H'#27#186'='#23#183'3'#18#180
+  +')'#13#179' '#10#178#25#9#177#24#9#176#24#9#183#26#8#166#23#4'h'#12#255#0#255
+  +#255#0#255#179#179#179#188#188#188#184#184#184#181#181#181#179#179#179#177
+  +#177#177#175#175#175#173#173#173#172#172#172#172#172#172#171#171#171#173#173
+  +#173#168#168#168#149#149#149#255#0#255#255#0#255'"'#181'H?'#200'v5'#195'g'
+  +#254#254#254'#'#188'N'#29#186'B'#24#184'8'#254#254#254#14#180'$'#10#179#28#9
+  +#177#24#9#184#26#8#166#23#4'g'#12#255#0#255#255#0#255#179#179#179#192#192#192
+  +#188#188#188#254#254#254#181#181#181#179#179#179#177#177#177#254#254#254#173
+  +#173#173#172#172#172#172#172#172#173#173#173#168#168#168#149#149#149#255#0
+  +#255#255#0#255'!'#181'HX'#208#138'F'#201'z'#254#254#254#254#254#254'$'#189'P'
+  +#31#187'F'#254#254#254#254#254#254#16#180')'#12#178#31#9#183#26#8#166#22#4'g'
+  ,#12#255#0#255#255#0#255#179#179#179#202#202#202#195#195#195#254#254#254#254
+  +#254#254#182#182#182#180#180#180#254#254#254#254#254#254#174#174#174#172#172
+  +#172#173#173#173#168#168#168#149#149#149#255#0#255#255#0#255'!'#181'Hw'#216
+  +#159'R'#204#129';'#199'r'#254#254#254#254#254#254'&'#190'T!'#189'J'#254#254
+  +#254#254#254#254#19#181'-'#13#186'#'#10#167#24#4'h'#11#255#0#255#255#0#255
+  +#179#179#179#213#213#213#200#200#200#192#192#192#254#254#254#254#254#254#183
+  +#183#183#181#181#181#254#254#254#254#254#254#176#176#176#175#175#175#168#168
+  +#168#149#149#149#255#0#255#255#0#255'!'#181'H'#138#222#172']'#208#138'B'#200
+  +'v7'#197'n'#254#254#254#254#254#254''''#191'X"'#189'O'#254#254#254#254#254
+  +#254#20#187'1'#14#169'"'#6'o'#14#255#0#255#255#0#255#179#179#179#220#220#220
+  +#204#204#204#194#194#194#190#190#190#254#254#254#254#254#254#184#184#184#181
+  +#181#181#254#254#254#254#254#254#177#177#177#170#170#170#152#152#152#255#0
+  +#255#255#0#255'!'#181'H'#149#224#179'e'#210#143'H'#202'z'#254#254#254#254#254
+  +#254'0'#195'i.'#194'e'#254#254#254#254#254#254#31#187'F'#27#190'>'#20#174'/'
+  +#10'z'#20#255#0#255#255#0#255#179#179#179#224#224#224#206#206#206#196#196#196
+  +#254#254#254#254#254#254#187#187#187#187#187#187#254#254#254#254#254#254#180
+  +#180#180#180#180#180#173#173#173#156#156#156#255#0#255#255#0#255'!'#181'H'
+  +#157#227#185'o'#213#151#254#254#254#254#254#254'@'#200't9'#197'p'#254#254#254
+  +#254#254#254'+'#193'`'''#191'U#'#192'N'#27#178'<'#13#133#26#255#0#255#255#0
+  +#255#179#179#179#227#227#227#210#210#210#254#254#254#254#254#254#193#193#193
+  +#191#191#191#254#254#254#254#254#254#185#185#185#184#184#184#183#183#183#176
+  +#176#176#160#160#160#255#0#255#255#0#255'!'#181'H'#169#230#194#128#218#163
+  +#254#254#254'Y'#207#135'M'#204'~D'#201'x'#254#254#254'9'#197'p2'#195'k-'#193
+  +'c*'#194'] '#181'H'#16#143#31#255#0#255#255#0#255#179#179#179#231#231#231#216
+  +#216#216#254#254#254#202#202#202#198#198#198#194#194#194#254#254#254#191#191
+  +#191#188#188#188#186#186#186#185#185#185#179#179#179#164#164#164#255#0#255
+  +#255#0#255'!'#181'I'#174#232#197#166#229#191#145#223#175#134#219#167'x'#215
+  +#157'g'#211#145'Y'#207#135'D'#201'x6'#197'n2'#195'l0'#197'j'''#187'W'#19#156
+  +'&'#255#0#255#255#0#255#179#179#179#233#233#233#230#230#230#223#223#223#218
+  +#218#218#213#213#213#208#208#208#202#202#202#194#194#194#189#189#189#188#188
+  +#188#188#188#188#183#183#183#168#168#168#255#0#255#255#0#255'"'#181'H'#146
+  +#224#179#174#232#198#177#233#200#169#230#194#155#227#184#135#221#170'j'#213
+  +#150'O'#205#130';'#199't6'#197'p4'#200's+'#191'^'#20#164'('#255#0#255#255#0
+  +#255#179#179#179#223#223#223#233#233#233#234#234#234#231#231#231#226#226#226
+  +#219#219#219#208#208#208#199#199#199#192#192#192#189#189#189#190#190#190#185
+  +#185#185#171#171#171#255#0#255#255#0#255#255#0#255'8'#187'ZQ'#197'pS'#197'qQ'
+  +#197'oL'#195'kB'#192'd7'#188'Z.'#185'S%'#183'J#'#181'K#'#183'J'#26#175'9'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#187#187#187#197#197#197#198#198#198#197
+  +#197#197#195#195#195#192#192#192#187#187#187#184#184#184#181#181#181#180#180
+  +#180#180#180#180#176#176#176#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#6'Lay'
+  +'out'#7#12'blGlyphRight'#9'NumGlyphs'#2#2#7'OnClick'#7#13'btn_NextClick'#8'T'
+  +'abOrder'#2#2#0#0#7'TBitBtn'#8'btn_Back'#4'Left'#3' '#1#6'Height'#2#25#3'Top'
+  +#2#5#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#4'Back'#7
+  +'Enabled'#8#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0
+  +'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#19#11#0#0#19#11#0#0#0#0
+  +#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#11'|'#21#9'z'#20#8'q'#16#5
+  +'j'#12#4'g'#11#4'g'#12#4'g'#12#4'g'#12#4'g'#12#4'g'#12#4'g'#12#4'W'#9#255#0
+  +#255#255#0#255#255#0#255#255#0#255#157#157#157#156#156#156#153#153#153#150
+  +#150#150#149#149#149#149#149#149#149#149#149#149#149#149#149#149#149#149#149
+  +#149#149#149#149#145#145#145#255#0#255#255#0#255#255#0#255#18#154'('#26#176
+  +':'#21#175'2'#17#171''''#13#168#31#8#166#24#8#165#22#8#165#22#8#166#23#8#166
+  +#23#8#165#23#8#171#24#7#141#18#4'W'#8#255#0#255#255#0#255#168#168#168#177#177
+  +#177#174#174#174#173#173#173#170#170#170#169#169#169#168#168#168#168#168#168
+  +#169#169#169#169#169#169#168#168#168#169#169#169#161#161#161#145#145#145#255
+  +#0#255#255#0#255#27#173'<%'#197'T'#30#192'E'#26#190':'#21#189'1'#16#186''''
+  +#11#184#29#9#184#25#9#184#26#9#184#26#9#183#26#9#190#28#8#171#23#4'g'#12#255
+  ,#0#255#255#0#255#176#176#176#185#185#185#182#182#182#180#180#180#178#178#178
+  +#177#177#177#174#174#174#173#173#173#173#173#173#173#173#173#173#173#173#175
+  +#175#175#169#169#169#149#149#149#255#0#255#255#0#255' '#180'E1'#196'd)'#191
+  +'S"'#187'H'#27#186'='#23#183'3'#18#180')'#13#179' '#10#178#25#9#177#24#9#176
+  +#24#9#183#26#8#166#23#4'h'#12#255#0#255#255#0#255#179#179#179#188#188#188#185
+  +#185#185#181#181#181#179#179#179#177#177#177#175#175#175#173#173#173#173#173
+  +#173#172#172#172#171#171#171#173#173#173#169#169#169#150#150#150#255#0#255
+  +#255#0#255'"'#181'H?'#200'v5'#195'g+'#191'W#'#188'N'#29#186'B'#254#254#254#19
+  +#183'.'#14#180'$'#10#179#28#254#254#254#9#184#26#8#166#23#4'g'#12#255#0#255
+  +#255#0#255#180#180#180#193#193#193#189#189#189#185#185#185#182#182#182#180
+  +#180#180#254#254#254#177#177#177#174#174#174#173#173#173#254#254#254#173#173
+  +#173#169#169#169#149#149#149#255#0#255#255#0#255'!'#181'HX'#208#138'F'#201'z'
+  +'4'#197'i,'#191']'#254#254#254#254#254#254#26#186'='#22#183'3'#254#254#254
+  +#254#254#254#9#183#26#8#166#22#4'g'#12#255#0#255#255#0#255#180#180#180#203
+  +#203#203#195#195#195#189#189#189#185#185#185#254#254#254#254#254#254#179#179
+  +#179#177#177#177#254#254#254#254#254#254#173#173#173#169#169#169#149#149#149
+  +#255#0#255#255#0#255'!'#181'Hw'#216#159'R'#204#129';'#199'r'#254#254#254#254
+  +#254#254'&'#190'T!'#189'J'#254#254#254#254#254#254#19#181'-'#13#186'#'#10#167
+  +#24#4'h'#11#255#0#255#255#0#255#180#180#180#213#213#213#200#200#200#192#192
+  +#192#254#254#254#254#254#254#184#184#184#182#182#182#254#254#254#254#254#254
+  +#176#176#176#175#175#175#169#169#169#150#150#150#255#0#255#255#0#255'!'#181
+  +'H'#138#222#172']'#208#138#254#254#254#254#254#254'/'#195'h,'#193'b'#254#254
+  +#254#254#254#254#30#187'D'#24#185':'#20#187'1'#14#169'"'#6'o'#14#255#0#255
+  +#255#0#255#180#180#180#221#221#221#204#204#204#254#254#254#254#254#254#188
+  +#188#188#186#186#186#254#254#254#254#254#254#180#180#180#178#178#178#177#177
+  +#177#171#171#171#152#152#152#255#0#255#255#0#255'!'#181'H'#149#224#179'e'#210
+  +#143'H'#202'z'#254#254#254#254#254#254'0'#195'i.'#194'e'#254#254#254#254#254
+  +#254#31#187'F'#27#190'>'#20#174'/'#10'z'#20#255#0#255#255#0#255#180#180#180
+  +#224#224#224#206#206#206#197#197#197#254#254#254#254#254#254#188#188#188#187
+  +#187#187#254#254#254#254#254#254#181#181#181#180#180#180#174#174#174#157#157
+  +#157#255#0#255#255#0#255'!'#181'H'#157#227#185'o'#213#151'W'#206#133'N'#204
+  +''#254#254#254#254#254#254'5'#197'm0'#195'h'#254#254#254#254#254#254'#'#192
+  +'N'#27#178'<'#13#133#26#255#0#255#255#0#255#180#180#180#227#227#227#210#210
+  +#210#201#201#201#199#199#199#254#254#254#254#254#254#189#189#189#188#188#188
+  +#254#254#254#254#254#254#183#183#183#177#177#177#161#161#161#255#0#255#255#0
+  +#255'!'#181'H'#169#230#194#128#218#163'^'#208#138'Y'#207#135'M'#204'~'#254
+  +#254#254'C'#200'w9'#197'p2'#195'k'#254#254#254'*'#194'] '#181'H'#16#143#31
+  +#255#0#255#255#0#255#180#180#180#231#231#231#217#217#217#205#205#205#203#203
+  +#203#198#198#198#254#254#254#194#194#194#191#191#191#188#188#188#254#254#254
+  +#186#186#186#179#179#179#164#164#164#255#0#255#255#0#255'!'#181'I'#174#232
+  +#197#166#229#191#145#223#175#134#219#167'x'#215#157'g'#211#145'Y'#207#135'D'
+  +#201'x6'#197'n2'#195'l0'#197'j'''#187'W'#19#156'&'#255#0#255#255#0#255#180
+  +#180#180#233#233#233#230#230#230#223#223#223#218#218#218#213#213#213#208#208
+  +#208#203#203#203#195#195#195#189#189#189#188#188#188#188#188#188#183#183#183
+  +#169#169#169#255#0#255#255#0#255'"'#181'H'#146#224#179#174#232#198#177#233
+  +#200#169#230#194#155#227#184#135#221#170'j'#213#150'O'#205#130';'#199't6'#197
+  +'p4'#200's+'#191'^'#20#164'('#255#0#255#255#0#255#180#180#180#224#224#224#233
+  +#233#233#235#235#235#231#231#231#227#227#227#220#220#220#209#209#209#199#199
+  +#199#192#192#192#189#189#189#190#190#190#185#185#185#171#171#171#255#0#255
+  +#255#0#255#255#0#255'8'#187'ZQ'#197'pS'#197'qQ'#197'oL'#195'kB'#192'd7'#188
+  +'Z.'#185'S%'#183'J#'#181'K#'#183'J'#26#175'9'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#188#188#188#197#197#197#198#198#198#197#197#197#195#195#195#192
+  +#192#192#188#188#188#184#184#184#181#181#181#180#180#180#181#181#181#176#176
+  +#176#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#2#7'OnClick'#7#13
+  +'btn_BackClick'#8'TabOrder'#2#3#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.pas
new file mode 100644
index 0000000..6b792f1
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableMasterLinkWizardForm_laz.pas	
@@ -0,0 +1,572 @@
+unit uDADataTableMasterLinkWizardForm_laz;
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses
+  LCLIntf,LResources,PropEdits,
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ComCtrls, Buttons, uDADataTable, ExtCtrls;
+
+type
+
+  { TDADataTableMasterLinkWizard }
+
+  TDADataTableMasterLinkWizard = class(TForm)
+    Bevel1: TBevel;
+    Panel1: TPanel;
+    Image1: TImage;
+    Label1: TLabel;
+    Label2: TLabel;
+    pc_Pages: TPageControl;
+    ts_Welcome: TTabSheet;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label24: TLabel;
+    Label25: TLabel;
+    Label26: TLabel;
+    Label27: TLabel;
+    Label28: TLabel;
+    Label29: TLabel;
+    ts_MasterSource: TTabSheet;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    Label17: TLabel;
+    lbl_Params1: TLabel;
+    lbl_Params2: TLabel;
+    lbl_Method1: TLabel;
+    lbl_Method2: TLabel;
+    lbl_Params3: TLabel;
+    lbl_Where1: TLabel;
+    lbl_Where2: TLabel;
+    cb_DataSources: TComboBox;
+    rb_Where: TRadioButton;
+    rb_Params: TRadioButton;
+    rb_Method: TRadioButton;
+    ts_Fields: TTabSheet;
+    labMasterFields: TLabel;
+    labDetailFields: TLabel;
+    Label13: TLabel;
+    Label14: TLabel;
+    Label18: TLabel;
+    Label19: TLabel;
+    lbMaster: TListBox;
+    lbDetail: TListBox;
+    eMasterFields: TEdit;
+    eDetailFields: TEdit;
+    bbAddFieldMapping: TBitBtn;
+    BitBtn4: TBitBtn;
+    ts_MethodCall: TTabSheet;
+    labMasterFields2: TLabel;
+    labDataReqParams: TLabel;
+    Label7: TLabel;
+    Label20: TLabel;
+    Label21: TLabel;
+    lbMaster2: TListBox;
+    lbDataReqParams: TListBox;
+    mMappings: TMemo;
+    bbAddDataReqMapping: TBitBtn;
+    bbClearDataReqMapping: TBitBtn;
+    ts_Params: TTabSheet;
+    Label11: TLabel;
+    Label12: TLabel;
+    Label15: TLabel;
+    Label22: TLabel;
+    Label23: TLabel;
+    lbMaster3: TListBox;
+    lbParams: TListBox;
+    mParamsMappings: TMemo;
+    bbAddParamMappingXXX: TBitBtn;
+    bbClearParamMappingsXXX: TBitBtn;
+    ts_Finish: TTabSheet;
+    Label5: TLabel;
+    Label6: TLabel;
+    Panel2: TPanel;
+    btn_Finish: TBitBtn;
+    btn_Cancel: TBitBtn;
+    btn_Next: TBitBtn;
+    btn_Back: TBitBtn;
+    Label16: TLabel;
+    procedure bbAddFieldMappingClick(Sender: TObject);
+    procedure bbAddDataReqMappingClick(Sender: TObject);
+    procedure bbClearDataReqMappingClick(Sender: TObject);
+    procedure BitBtn4Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure bbAddParamMappingXXXClick(Sender: TObject);
+    procedure bbClearParamMappingsXXXClick(Sender: TObject);
+    procedure cb_DataSourcesChange(Sender: TObject);
+    procedure btn_FinishClick(Sender: TObject);
+    procedure OnFieldMappingChange(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure btn_BackClick(Sender: TObject);
+    procedure btn_NextClick(Sender: TObject);
+  private
+    fDataTable: TDADataTable;
+    fMasterSource: TDADataSource;
+    fDesigner: TPropertyEditorHook;
+    fInEnterPage: boolean;
+    fActiveControl: TWinControl;
+    fValues: TStrings;
+    fNextPage: integer;
+    fPreviousPage: integer;
+    procedure GetDataTables(const aName: ansistring);
+    function GetActiveControl: TWinControl;
+    procedure SetActiveControl(const Value: TWinControl);
+    function GetNextPage: integer;
+    function GetPreviousPage: integer;
+    procedure Initialize;
+  protected
+    function CleanPascalString(const aString: string): string;
+    procedure AfterEnterPage(aPage:TTabSheet; aMovingForward:boolean);
+    procedure OnLeavePage(aPage:TTabSheet; aMovingForward:boolean);
+    procedure OnEnterPage(aPage:TTabSheet; aMovingForward:boolean);
+  public
+    constructor Create(aOwner : TComponent); reintroduce;
+    property Values:TStrings read fValues;
+    function Execute:boolean; overload;
+    class function Execute(aOwner: TComponent): boolean; overload;
+    property ActiveControl: TWinControl read GetActiveControl write SetActiveControl;
+    property NextPage: integer read GetNextPage write fNextPage;
+    property PreviousPage: integer read GetPreviousPage write fPreviousPage;
+    class function ExecuteWizard(aDataTable: TDADataTable; aDesigner: TPropertyEditorHook): boolean;
+  end;
+
+var
+  DADataTableMasterLinkWizard: TDADataTableMasterLinkWizard;
+
+
+implementation
+
+uses uROClasses, TypInfo, uDARemoteDataAdapter, uRODynamicRequest, uRODL;
+
+procedure TrimNamesAndValues(aSL: TStrings);
+var
+  i: Integer;
+begin
+  for i := 0 to aSL.Count - 1 do begin
+    aSL[i] := Trim(aSL.Names[i]) + aSL.NameValueSeparator + Trim(aSL.Values[aSL.Names[i]]);
+
+  end;
+end;
+
+{ TDataTableMasterLink }
+
+class function TDADataTableMasterLinkWizard.ExecuteWizard(aDataTable: TDADataTable; aDesigner: TPropertyEditorHook): boolean;
+begin
+  with TDADataTableMasterLinkWizard.Create(NIL) do try
+    fDataTable := aDataTable;
+    fDesigner := aDesigner;
+    Initialize();
+    result := Execute();
+  finally
+    Free;
+  end;
+end;
+
+constructor TDADataTableMasterLinkWizard.Create(aOwner: TComponent);
+begin
+  inherited;
+
+end;
+
+procedure TDADataTableMasterLinkWizard.Initialize;
+var
+  i : integer;
+begin
+  cb_DataSources.Items.Clear();
+  fDesigner.GetComponentNames(GetTypeData(TypeInfo(TDADataSource)), Self.GetDataTables);
+  if assigned(fDataTable.MasterSource) then begin
+    cb_DataSources.ItemIndex := cb_DataSources.Items.IndexOf(fDataTable.MasterSource.Name);
+    //lMasterTable := fDataTable.MasterSource.DataTable;
+    //Check(mast=NIL, 'MasterSource doesn''t point to a datatable');
+  end;
+  cb_DataSourcesChange(nil);
+
+  Caption := Format(Caption, [fDataTable.Name]);
+
+  eMasterFields.Text := fDataTable.MasterFields;
+  eDetailFields.Text := fDataTable.DetailFields;
+  mMappings.Lines.Text := fDataTable.MasterRequestMappings.Text;
+  mParamsMappings.Lines.Text := fDataTable.MasterParamsMappings.Text;
+
+  for i := 0 to (fDataTable.FieldCount-1) do
+    lbDetail.Items.Add(fDataTable.Fields[i].Name);
+
+  for i := 0 to (fDataTable.Params.Count-1) do
+    lbParams.Items.Add(fDataTable.Params[i].Name);
+
+  case fDataTable.MasterMappingMode of
+    mmParams: rb_Params.Checked := true;
+    mmDataRequest: rb_Method.Checked := true;
+    mmWhere: rb_Where.Checked := true;
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.GetDataTables(const aName: ansistring);
+var
+  lDataSource: TDADataSource;
+begin
+  lDataSource := fDesigner.GetComponent(aName) as TDADataSource;
+  if assigned(lDataSource.DataTable) and (lDataSource.DataTable <> fDataTable) then
+    cb_DataSources.Items.Add(aName);
+end;
+
+function TDADataTableMasterLinkWizard.CleanPascalString(const aString: string
+  ): string;
+begin
+  result := aString;
+  result := StringReplace(result,'''','''''',[rfReplaceAll]); { replace quotes with double quotes }
+  result := StringReplace(result,#13#10,'''#13#10''',[rfReplaceAll]);
+  result := ''''+result+'''';
+end;
+
+procedure TDADataTableMasterLinkWizard.cb_DataSourcesChange(Sender: TObject);
+var
+  lMasterTable: TDADataTable;
+  lCall: TRODynamicRequest;
+  i: integer;
+begin
+  fMasterSource := fDesigner.GetComponent(cb_DataSources.Text) as TDADataSource;
+  if assigned(fMasterSource) and assigned(fMasterSource.DataTable) then begin
+    lMasterTable := fMasterSource.DataTable;
+
+    rb_Params.Enabled := fDataTable.Params.Count > 0;
+    lbl_Params1.Enabled := rb_Params.Enabled;
+    lbl_Params2.Enabled := rb_Params.Enabled;
+
+    rb_Method.Enabled := assigned(lMasterTable.RemoteDataAdapter) and
+                         assigned(fDataTable.RemoteDataAdapter) and
+                         (lMasterTable.RemoteDataAdapter <> fDataTable.RemoteDataAdapter);
+    lbl_Method1.Enabled := rb_Method.Enabled;
+
+    if (not rb_Params.Enabled and rb_Params.Checked) or (not rb_Method.Enabled and rb_Method.Checked) then
+      rb_Where.Checked := true;
+
+    lbMaster.Items.Clear();
+    lbMaster2.Items.Clear();
+    lbMaster3.Items.Clear();
+    for i := 0 to (lMasterTable.FieldCount-1) do begin
+      lbMaster.Items.Add(lMasterTable.Fields[i].Name);
+      lbMaster2.Items.Add(lMasterTable.Fields[i].Name);
+      lbMaster3.Items.Add(lMasterTable.Fields[i].Name);
+    end;
+
+    if assigned(fDataTable.RemoteDataAdapter) then begin
+      lCall := (fDataTable.RemoteDataAdapter as TDARemoteDataAdapter).GetDataCall;
+      lbDataReqParams.Items.Clear();
+      for i := 0 to lCall.Params.Count-1 do
+        if lCall.Params[i].Flag in [fIn, fInOut] then
+          lbDataReqParams.Items.Add(lCall.Params[i].Name);
+    end
+    else begin
+      lbDataReqParams.Enabled := false;
+    end;
+
+    if pc_Pages.ActivePage = ts_MasterSource then
+      btn_Next.Enabled := (rb_Where.Enabled and rb_Where.Checked) or (rb_Params.Enabled and rb_Params.Checked) or (rb_Method.Enabled and rb_Method.Checked);
+  end
+  else begin
+    if pc_Pages.ActivePage = ts_MasterSource then
+      btn_Next.Enabled := false;
+  end;
+end;
+
+
+procedure TDADataTableMasterLinkWizard.bbAddFieldMappingClick(Sender: TObject);
+var x : integer;
+begin
+  if (lbMaster.SelCount=0) or (lbMaster.SelCount<>lbDetail.SelCount) then begin
+    Beep;
+    Exit;
+  end;
+
+  for x := 0 to (lbMaster.Items.Count-1) do
+    if lbMaster.Selected[x] then begin
+      if (eMasterFields.Text<>'')
+        then eMasterFields.Text := eMasterFields.Text+';';
+      eMasterFields.Text := eMasterFields.Text+lbMaster.Items[x];
+    end;
+
+  for x := 0 to (lbDetail.Items.Count-1) do
+    if lbDetail.Selected[x] then begin
+      if (eDetailFields.Text<>'')
+        then eDetailFields.Text := eDetailFields.Text+';';
+      eDetailFields.Text := eDetailFields.Text+lbDetail.Items[x];
+    end;
+  OnFieldMappingChange(nil);
+end;
+
+procedure TDADataTableMasterLinkWizard.bbAddDataReqMappingClick(Sender: TObject);
+var x, i : integer;
+    s : TStringList;
+begin
+  if (lbMaster2.SelCount=0) or (lbDataReqParams.SelCount<>lbMaster2.SelCount) then begin
+    Beep;
+    Exit;
+  end;
+
+  s := TStringList.Create;
+  try
+      for x := 0 to (lbDataReqParams.Items.Count-1) do
+      if lbDataReqParams.Selected[x] then s.Add(lbDataReqParams.Items[x]+'=');
+
+    i := 0;
+    for x := 0 to (lbMaster2.Items.Count-1) do
+      if lbMaster2.Selected[x] then begin
+        s[i] := s[i]+lbMaster2.Items[x];
+        Inc(i);
+      end;
+
+    mMappings.Lines.AddStrings(s);
+  finally
+    s.Free;
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.bbClearDataReqMappingClick(Sender: TObject);
+begin
+  mMappings.Lines.Clear
+end;
+
+procedure TDADataTableMasterLinkWizard.BitBtn4Click(Sender: TObject);
+begin
+  eMasterFields.Text := '';
+  eDetailFields.Text := '';
+  OnFieldMappingChange(nil);
+end;
+
+
+procedure TDADataTableMasterLinkWizard.OnFieldMappingChange(
+  Sender: TObject);
+begin
+  if pc_Pages.ActivePage = ts_Fields then
+    btn_Next.Enabled := (eMasterFields.Text <> '') and (eDetailFields.Text <> '');
+end;
+
+procedure TDADataTableMasterLinkWizard.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(fValues);
+end;
+
+procedure TDADataTableMasterLinkWizard.btn_BackClick(Sender: TObject);
+begin
+  if pc_Pages.ActivePageIndex > 0 then begin
+    fInEnterPage := true;
+    try
+      OnLeavePage(pc_Pages.Pages[pc_Pages.ActivePageIndex],false);
+      OnEnterPage(pc_Pages.Pages[PreviousPage],false);
+    finally
+      fInEnterPage := false;
+    end;
+    pc_Pages.ActivePageIndex := PreviousPage;
+    if Assigned(fActiveControl) then begin
+      inherited ActiveControl := fActiveControl;
+      fActiveControl := nil;
+    end;
+  end;
+  fNextPage := -1;
+  fPreviousPage := -1;
+  AfterEnterPage(pc_Pages.ActivePage, false);
+end;
+
+procedure TDADataTableMasterLinkWizard.btn_NextClick(Sender: TObject);
+begin
+  if pc_Pages.ActivePageIndex+1 < pc_Pages.PageCount then begin
+    fInEnterPage := true;
+    try
+      OnLeavePage(pc_Pages.Pages[pc_Pages.ActivePageIndex],true);
+      OnEnterPage(pc_Pages.Pages[NextPage],true);
+    finally
+      fInEnterPage := false;
+    end;
+    fPreviousPage := pc_Pages.ActivePageIndex;
+    pc_Pages.ActivePageIndex := NextPage;
+    if Assigned(fActiveControl) then begin
+      inherited ActiveControl := fActiveControl;
+      fActiveControl := nil;
+    end;
+  end;
+  fNextPage := -1;
+  AfterEnterPage(pc_Pages.ActivePage, true);
+end;
+
+function TDADataTableMasterLinkWizard.GetActiveControl: TWinControl;
+begin
+  if Assigned(fActiveControl) then
+    result := fActiveControl
+  else
+    result := inherited ActiveControl;
+end;
+
+procedure TDADataTableMasterLinkWizard.SetActiveControl(const Value: TWinControl
+  );
+begin
+  if fInEnterPage then begin
+    fActiveControl := Value;
+  end
+  else begin
+    inherited ActiveControl := Value;
+    fActiveControl := nil;
+  end;
+end;
+
+function TDADataTableMasterLinkWizard.GetNextPage: integer;
+begin
+  Result := fNextPage;
+  if result = -1 then result := pc_Pages.ActivePageIndex+1;
+end;
+
+function TDADataTableMasterLinkWizard.GetPreviousPage: integer;
+begin
+  Result := fPreviousPage;
+  if result = -1 then result := pc_Pages.ActivePageIndex-1;
+end;
+
+procedure TDADataTableMasterLinkWizard.FormCreate(Sender: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to ComponentCount-1 do begin
+    if Components[i] is TTabSheet then TTabSheet(Components[i]).TabVisible := false;
+  end;
+
+  fValues := TStringList.Create();
+
+  Height := Height-16;
+  pc_Pages.ActivePageIndex := 0;
+  OnEnterPage(pc_Pages.Pages[0],true);
+
+  fNextPage := -1;
+  fPreviousPage := -1;
+end;
+
+procedure TDADataTableMasterLinkWizard.bbAddParamMappingXXXClick(Sender: TObject);
+var x, i : integer;
+    s : TStringList;
+begin
+  if (lbMaster3.SelCount=0) or (lbParams.SelCount<>lbMaster3.SelCount) then begin
+    Beep;
+    Exit;
+  end;
+
+  s := TStringList.Create;
+  try
+      for x := 0 to (lbParams.Items.Count-1) do
+      if lbParams.Selected[x] then s.Add(lbParams.Items[x]+'=');
+
+    i := 0;
+    for x := 0 to (lbMaster3.Items.Count-1) do
+      if lbMaster3.Selected[x] then begin
+        s[i] := s[i]+lbMaster3.Items[x];
+        Inc(i);
+      end;
+
+    mParamsMappings.Lines.AddStrings(s);
+  finally
+    s.Free;
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.bbClearParamMappingsXXXClick(Sender: TObject);
+begin
+  mParamsMappings.Lines.Clear
+end;
+
+procedure TDADataTableMasterLinkWizard.btn_FinishClick(Sender: TObject);
+begin
+  fDataTable.MasterSource := fMasterSource;
+  fDataTable.MasterFields := eMasterFields.Text;
+  fDataTable.DetailFields := eDetailFields.Text;
+
+  TrimNamesAndValues(mMappings.Lines);
+  TrimNamesAndValues(mParamsMappings.Lines);
+
+  fDataTable.MasterRequestMappings.Text := mMappings.Lines.Text;
+  fDataTable.MasterParamsMappings.Text := mParamsMappings.Lines.Text;
+
+  if rb_Where.Checked then
+    fDataTable.MasterMappingMode := mmWhere
+  else if rb_Params.Checked then
+    fDataTable.MasterMappingMode := mmParams
+  else if rb_Method.Checked then
+    fDataTable.MasterMappingMode := mmDataRequest;
+
+end;
+
+procedure TDADataTableMasterLinkWizard.AfterEnterPage(aPage: TTabSheet;
+  aMovingForward: boolean);
+begin
+  if (aPage = ts_MasterSource) and aMovingForward then begin
+    cb_DataSourcesChange(nil);
+  end
+  else if (aPage = ts_Fields) and aMovingForward then begin
+    OnFieldMappingChange(nil);
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.OnLeavePage(aPage: TTabSheet;
+  aMovingForward: boolean);
+begin
+  if (aPage = ts_Fields) and aMovingForward then begin
+    if rb_Where.Checked then NextPage := ts_Finish.PageIndex
+    else if rb_Params.Checked then NextPage := ts_Params.PageIndex
+    else if rb_Method.Checked then NextPage := ts_MethodCall.PageIndex;
+  end
+  else if (aPage = ts_Params) or (aPage = ts_MethodCall) then begin
+    NextPage := ts_Finish.PageIndex;
+    PreviousPage := ts_Fields.PageIndex;
+  end;
+end;
+
+procedure TDADataTableMasterLinkWizard.OnEnterPage(aPage: TTabSheet;
+  aMovingForward: boolean);
+begin
+  {$IFDEF FPC}
+  if aMovingForward then btn_Finish.Visible := false else // for prevent warnings
+  {$ENDIF}
+  btn_Finish.Visible := false;
+  btn_Next.Visible := true;
+  if aPage = ts_Welcome then begin
+    btn_Back.Enabled := false;
+    btn_Next.Enabled := true;
+    ActiveControl := btn_Next;
+  end
+  else if aPage = ts_Finish then begin
+    try
+      btn_Finish.Visible := true;
+      btn_Finish.Enabled := true;
+      btn_Next.Visible := false;
+      ActiveControl := btn_Finish;
+    finally
+    end;
+  end
+  else { default for custom added pages } begin
+    btn_Back.Enabled := true;
+    btn_Next.Enabled := true;
+  end;
+end;
+
+function TDADataTableMasterLinkWizard.Execute: boolean;
+begin
+  result := (ShowModal() = 1); // idOk=1
+end;
+
+class function TDADataTableMasterLinkWizard.Execute(aOwner: TComponent
+  ): boolean;
+begin
+  with self.Create(aOwner) do try
+    result := Execute();
+  finally
+    Free();
+  end;
+end;
+
+initialization
+  {$I uDADataTableMasterLinkWizardForm_laz.lrs}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableWizards.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableWizards.pas
new file mode 100644
index 0000000..a8b9b43
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDADataTableWizards.pas	
@@ -0,0 +1,239 @@
+unit uDADataTableWizards;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - IDE Library                                        }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  Classes, Types, Controls,{$IFDEF FPC}ComponentEditors,PropEdits,{$ELSE}ToolsAPI, DesignIntf,{$ENDIF}
+  uDAClasses, uDADataTable;
+
+type
+  {$IFDEF FPC}
+  IDesigner = TComponentEditorDesigner;
+  {$ENDIF}
+
+  TDataTableWizards = class
+  private
+    class procedure GetDataTables(const aName: string);
+  public
+    class function CreateDataTables(aDesigner: IDesigner; aAdapter: TDACustomDataAdapter; aSchema: TDASchema; aCoordinates: TPoint): boolean; overload;
+    {$IFNDEF FPC}
+    class function CreateDataTables(aForm: IOTAFormEditor; aAdapter: TDACustomDataAdapter; aSchema: TDASchema; aCoordinates: TPoint): boolean; overload;
+    {$ENDIF}
+  end;
+  
+implementation
+
+uses
+  Forms, SysUtils, Dialogs, Registry, TypInfo,
+  uROClasses,
+  uDAInterfaces, uDAPleaseWaitForm, uDASelectDataTablesForm, uDAMemDataTable {, uDARemoteDataAdapter};
+
+
+function ComponentExists(aDesigner: IDesigner; aName: string): boolean;
+var
+  i: integer;
+begin
+  for i := 0 to aDesigner.{$IFDEF FPC}Form{$ELSE}Root{$ENDIF}.ComponentCount-1 do
+    if aDesigner.{$IFDEF FPC}Form{$ELSE}Root{$ENDIF}.Components[i].Name = aName then begin
+      result := true;
+      exit;
+    end;
+  result := false;
+end;
+
+procedure CreateDataTable(aDesigner: IDesigner; aClass:TDADataTableClass; aAdapter: TDACustomDataAdapter; aSchema: TDASchema;
+                          const aDataTableName: String; X,Y: integer; aCreateDataSource: boolean=true); overload;
+var
+  lDataTable:TDADataTable;
+  lDataSource:TDADataSource;
+  lBaseName:string;
+  lDataTablePrefix,lDataSourcePrefix:string;
+  lDataset: TDADataSet;
+  lField: TDAField;
+  {$IFDEF FPC}
+  lRec: LongRec;
+  {$ENDIF}
+begin
+  with TRegistry.Create do try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey('Software\RemObjects\Data Abstract\IDE\ComponentPrefixes',false);
+    lDataTablePrefix := ReadString('TDADataTable');
+    lDataSourcePrefix := ReadString('TDADataSource');
+  finally
+    Free();
+  end;
+  if lDataTablePrefix = '' then lDataTablePrefix := 'tbl_';
+  if lDataSourcePrefix = '' then lDataSourcePrefix := 'ds_';
+
+  {$IFDEF FPC}
+  lDataTable := aClass.Create(aDesigner.Form);
+  lRec := LongRec(lDataTable.DesignInfo);
+  lRec.Lo := X;
+  lRec.Hi := Y;
+  {$ELSE}
+  lDataTable := aDesigner.CreateComponent(aClass, nil, X, Y, 24, 24) as TDADataTable;
+  {$ENDIF}
+  lDataset := aSchema.FindDataset(aDataTableName);
+  if Assigned(lDataset) then begin
+    lDataTable.LogicalName := lDataset.Name;
+    lDataTable.CustomAttributes.Assign(lDataset.CustomAttributes);
+    lDataTable.Fields.AssignFieldCollection(lDataset.Fields);
+    lDataTable.Params.AssignParamCollection(lDataset.Params);
+    lBaseName := lDataset.Name;
+    // ToDo: the code below is shared with RDA.FillSchema. Refactor.
+    if lDataset is TDAUnionDataTable then begin
+      if not Assigned(lDataset.Fields.FindField(def_SourceTableFieldName) as TDAField) then begin
+        lField := lDataTable.Fields.Add();
+        lField.Name := def_SourceTableFieldName;
+        lField.DataType := datInteger;
+        lField.InPrimaryKey := True;
+        lField.ServerAutoRefresh := True;
+      end;
+    end;
+  end;
+
+  lDataTable.RemoteDataAdapter := aAdapter;
+
+  RemoveExcept(lBaseName,['a'..'z','A'..'Z','0'..'9','_']);
+  if ComponentExists(aDesigner, lDataTablePrefix+lBaseName) then
+    lDataTable.Name := aDesigner.UniqueName(lDataTablePrefix+lBaseName)
+  else
+    lDataTable.Name := lDataTablePrefix+lBaseName;
+
+
+  if aCreateDataSource then begin
+    {$IFDEF FPC}
+    lDataSource := TDADataSource.Create(aDesigner.Form);
+    lRec := LongRec(lDataSource.DesignInfo);
+    lRec.Lo := X;
+    lRec.Hi := Y + 44;
+    {$ELSE}
+    lDataSource := aDesigner.CreateComponent(TDADataSource, nil , X, Y+44, 24, 24) as TDADataSource;
+    {$ENDIF}
+    lDataSource.DataTable := lDataTable;
+    if ComponentExists(aDesigner, lDataSourcePrefix+lBaseName) then
+      lDataSource.Name := aDesigner.UniqueName(lDataSourcePrefix+lBaseName)
+    else
+      lDataSource.Name := lDataSourcePrefix+lBaseName;
+  end;
+
+end;
+
+{$IFNDEF FPC}
+class function TDataTableWizards.CreateDataTables(aForm: IOTAFormEditor; aAdapter: TDACustomDataAdapter; aSchema: TDASchema; aCoordinates: TPoint): boolean;
+begin
+  result := CreateDataTables((aForm as INTAFormEditor).FormDesigner, aAdapter, aSchema, aCoordinates);
+end;
+{$ENDIF}
+
+var
+  gDataTables: TStringList;
+  gDesigner: IDesigner;
+
+class procedure TDataTableWizards.GetDataTables(const aName: string);
+var
+  lComponent: TComponent;
+begin
+  {$IFDEF FPC}
+  lComponent := gDesigner.PropertyEditorHook.GetComponent(aName);
+  {$ELSE}
+  lComponent := gDesigner.GetComponent(aName);
+  {$ENDIF}
+  if assigned(lComponent) then
+    gDataTables.Add((lComponent as TDADataTable).LogicalName);
+end;
+
+class function TDataTableWizards.CreateDataTables(aDesigner: IDesigner; aAdapter: TDACustomDataAdapter; aSchema: TDASchema; aCoordinates: TPoint): boolean;
+var
+  lForm: TDASelectDataTablesForm;
+  lDataTables: TStringList;
+  i: integer;
+  Y: integer;
+  {$IFDEF FPC}
+  ldesigner: TPropertyEditorHook;
+  {$ELSE}
+  ldesigner: IDesigner;
+  {$ENDIF}
+begin
+  {$IFDEF FPC}
+  ldesigner:= aDesigner.PropertyEditorHook;
+  {$ELSE}
+  ldesigner := aDesigner;
+  {$ENDIF}
+  lDataTables := TStringList.Create;
+  try
+    lDataTables.Sorted := true;
+    for i := 0 to aSchema.Datasets.Count-1 do
+      if aSchema.Datasets[i].IsPublic then
+        lDataTables.AddObject(aSchema.Datasets[i].Name, aSchema.Datasets[i]);
+
+    for i := 0 to aSchema.UnionDataTables.Count-1 do
+      if aSchema.UnionDataTables[i].IsPublic then
+        lDataTables.AddObject(aSchema.UnionDataTables[i].Name, aSchema.UnionDataTables[i]);
+
+    for i := 0 to aSchema.JoinDataTables.Count-1 do
+      if aSchema.JoinDataTables[i].IsPublic then
+        lDataTables.AddObject(aSchema.JoinDataTables[i].Name, aSchema.JoinDataTables[i]);
+
+    if lDataTables.Count > 0 then begin
+
+      gDesigner := aDesigner;
+      gDataTables := TStringList.Create();
+      try
+        lDesigner.GetComponentNames(GetTypeData(TypeInfo(TDADataTable)), GetDataTables);
+        lForm := TDASelectDataTablesForm.Create(nil);
+        try
+          for i := 0 to lDataTables.Count-1 do begin
+            lForm.lb_DataTables.Items.AddObject(lDataTables[i], lDataTables.Objects[i]);
+            lForm.lb_DataTables.Checked[lForm.lb_DataTables.Items.Count-1] := gDataTables.IndexOf(lDataTables[i]) = -1;
+          end;
+          lForm.UpdateCheckBoxState();
+          lForm.OkButtonCaption := '&Create';
+          result := (lForm.ShowModal() = mrOk);
+          if result then begin
+            Y := aCoordinates.Y;
+            for i := 0 to lForm.lb_DataTables.Items.Count - 1 do
+              if lForm.lb_DataTables.Checked[i] then begin
+                CreateDataTable(aDesigner, TDAMemDataTable, aAdapter, aSchema, lForm.lb_DataTables.Items[i], aCoordinates.X, Y, true);
+                inc(y, 88); // doesn't seem to work :(
+              end;
+          end;
+        finally
+          FreeAndNil(lForm);
+        end;
+
+      finally
+        FreeAndNil(gDataTables);
+        gDesigner := nil;
+      end;
+
+    end
+    else begin
+      ShowMessage('No data tables were found in schema.');
+      result := false;
+    end;
+  finally
+    FreeAndNil(lDataTables);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAGuideWizardForm.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAGuideWizardForm.dfm
new file mode 100644
index 0000000..e50c37a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAGuideWizardForm.dfm	
@@ -0,0 +1,1799 @@
+inherited DAGuideWizardForm: TDAGuideWizardForm
+  Left = 309
+  Top = 307
+  Caption = 'New Data Abstract Server Project Wizard'
+  ClientHeight = 293
+  ClientWidth = 569
+  Icon.Data = {
+    0000010006003030000001000800A80E0000660000002020000001000800A808
+    00000E0F0000101000000100080068050000B61700003030000001002000A825
+    00001E1D00002020000001002000A8100000C642000010100000010020006804
+    00006E5300002800000030000000600000000100080000000000000900000000
+    00000000000000010000000100000000000005050500090909000D0D0D000B12
+    0B000E150E000A1D0A000C190C00121212001515150011181100101D10001919
+    19001D1D1D000A230A000F2A0F00053F0500093709000C3C0C0014391400163D
+    1600193019001A391A00212121002525250020282000292929002D2D2D002434
+    2400293229003131310035353500333D3300393939003D3D3D0007420700044B
+    04000B420B000C450C000E480E00025902000C590C0016461600104C10001353
+    130014551400155815001D511D00185F180000660000006A0000006E0000076F
+    07000B620B00096709000E600E000E6D0E00007200000075000000780000007D
+    00000E7F0E00136C1300196119001B651B00204C20002C5C2E00364036003956
+    3B002571270028742C002B7730002D7A3300307C3700327F3B003C6240004040
+    400045454500494949004D4D4D0049534A005151510056565600595959005D5D
+    5D004167460047644C0043694800456B4B00417A4900447D4E004F6252005D79
+    65006161610065656500616B6400686868006E6E6E00637F6C00717171007474
+    7400787878007D7D7D000081000000850000008A0000008D00000A810A000A85
+    0A00009100000095000000990000049D05001284130007A00B000BA411000FA8
+    170013AC1C001F91260022942A002D83350035823E002D973A0016AF22001AB3
+    28001EB72E002FA13E0022BB340026BE39002AC23F00388442003B8745003D89
+    49003C9B4C003C9C4D0032A442003BAE50003AB650003EB95500408C4D00438F
+    51004197510045925400479C580045A459005C826700629B750058A46D005DA9
+    740060AC78002DC6440031CA4A0035CD500039D156003DD55B0040D9610044DD
+    670052C470004CDB710058DD7F0048E06D004CE4730050E8780053EC7E005FDA
+    860057EF84005BEA87005FED8C005BF38A005FF78F0086868600959595009F9F
+    9F00A2A2A200AAAAAA00ACACAC00000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0066511F090909090D4E60000000000000000000000000000000000000000000
+    00000000000000000000000000004E0D0D0D0D0D090909090309030303186400
+    000000000000000000000000000000000000000000000000000000001F181818
+    0D0D0D090D09090909030303030303004E000000000000000000000000000000
+    000000000000000000001F1A1818180D180D0D0D0D0909090909090303030303
+    00035D000000000000000000000000000000000000000000641A1A1A1A181818
+    180D151327272727110F05090303030303000309000000000000000000000000
+    000000000000004E1F1A1F1A1A1A182A353B3B3B3A3A3A333333332811070303
+    030300000064000000000000000000000000000000004E1A1F1F1A1F1A1A1C2D
+    2D353B3B3B3A3A3A3A333333313124070303030300005D000000000000000000
+    00000000004E1F1F1F1F1F1A1F1A1A1A181A182A3A3B3A3A3333333333313331
+    100404000303005D0000000000000000000000004E1F1F211F1F1A1F1A1F1A1A
+    1A1A1818163B3B3A3A3A33333333313131280703030003006400000000000000
+    0000005D212121211F1F1F1F1A1F1A1A1A1A1A18183B3B3B3A3A3A3331120F0B
+    080507030303000300000000000000000000AB4E214E2121211F1F1F1F1A1F1F
+    1A1A1A181A673B3B3B3A3A270C09090909030303030303000309000000000000
+    00004E214E21212121211F1F1F1F1A1F1A1E1A1A1867673B3B3B3A0D0D0C0C09
+    0909090303030303000051000000000000644E4E214E214E2121211F1F1F1F1A
+    1F1A1A1A1A1A181A16132D0D0D0C0C0909090903030303030303000000000000
+    004E4E4E4E44462121212121211F1F1F1F1E1F1A1A1A1A1818180D0D0D0D0D0C
+    09090909090310030003034E00000000664E4E214E76474E214E2121211F1F1F
+    1F1A1E1E1A1A1A1A181818170D0D0D0D090B0C080908310E0303000300000000
+    4E4E4E4E4B7C474E21214E2121211F1F1F1F1A1F1A1E1A1A1A181817180D0D0D
+    0D0C09090908312403030303640000004E514E4E7A7D474E4E2121212121211F
+    1F1F1F1E1E1A1A1A1A18181817180D0D0D0C0C09090933310703030309000066
+    514E5150807F4A4E214E4E214E2121211F1F1F1E1E1F1E1A1A1A1A181817180D
+    0D0D0D0C0909333123030303030000515151515981804A4E4E214E21214E2121
+    211F1F1F1E1A1E1E1A1A1A1A181817180D0D0D0D0C0C33332809030303000051
+    515151859681824E4E4E4E4E2121212121211F1F1F1F1E1E1E1A1A1A1A181817
+    180D0D0D0C0C33333109050303530053535151889796834E4E4E214E4E214E21
+    212121211F1F1E1E1E1E1A1A1A1A181817180D0D0D0C3333330F0909034E0053
+    5351519A9797844E4E4E4E4E214E214E212121211F1F1F1E1E1E1E1A1A1A1A18
+    1817180D0D0D3A3A33120909030900535353519B99988B4E4E4E4E4E4E4E214E
+    214E2121211F1F1F1E1E1E1E1A1A1A1A181817180D0D3A3A3327090909030053
+    5353539B9A998C514E4E4E4E4E214E214E21212121211F1F1F1E1E1E1E1A1A1A
+    1A181817180D3A3A3A270909090900535353539B9B9A8C51514E4E4E4E4E4E4E
+    214E214E2121211F1F1F1E1E1E1E1A1A1A1A181817293B3A3A2709090909005D
+    535353A19B9B905151514E4E4E4E4E4E4E214E21212121211F1F1F1E1E2D382E
+    2E2D3533673B3B3B3A270C0D0909005D5D5D539EA19C9B8F5B51514E4E4E4E4E
+    214E214E214E2121211F1F1F1E306A6A676A676767673B3B3B130D0C0D1F005D
+    5D535D9DA1A09B9B9A8A8D8C58574B4E4E4E4E214E21212121211F1F1F306A6A
+    6A6767676767673B3B150D0D0951005D5D5D5394A1A1A19B9B9A99989796964E
+    4E4E4E4E214E214E2121211F1F306D6A6A6A6A67676767673B180D0D0D660066
+    5D5D5D5CA3A3A1A09C9B9A999897964E4E4E4E214E214E21214C21211F306D6A
+    6A6A676A6A67676735180D180D0000AC5D5D5D5D9FA3A2A1A09B9B9A9998974E
+    4E4E4E4E4E4E214E214C212121406D6D6A6A6A6A676A67672A18180D0D000000
+    60605D5D94A5A3A3A1A09C9B9A99985A4E4E4E4E4E4E4E214E214E2121716D6D
+    6D6D6A6A676A67671A1818184E000000645D605D5FA6A5A3A2A1A09B9B9A9998
+    86564E4E4E4E214E214E2142716F6F6F6D6D6A6A6A6A672E1A18181800000000
+    00605D605D95A8A5A3A3A1A09C9B9A9A989796877A4A4A7877767474706F6F6F
+    6D6D6D6D6A6A671E1A1A181F000000000064605D605DA4A8A5A3A2A1A09B9B9A
+    9998979681807F7D7D75757474726F6F6F6D6D6D6A6A411E1A1A1A0000000000
+    000060605D6062A7A8A5A3A3A1A09C9B9A9998979681807F7D7D75757474726F
+    6F6F6F6D6D381F1A1E1A21000000000000006660605D6092A8A8A5A3A2A1A09B
+    9B9A9998979681807F7D7D7575747472706F6F6D6C1F1F1E1E1A000000000000
+    000000606060605D92A9A8A5A3A3A1A09C9B9A9998979681807F7D7D75757474
+    726F6F6C1F1F1F1E1E5D000000000000000000AF606060606092A8A8A5A3A2A1
+    A09B9B9A9998979681807F7D7D757574747271431F1F1F1F2100000000000000
+    00000000AE6060605D6062A4A8A5A3A3A1A09C9B9A9998979681807F7D7D7575
+    74454C214C1F1F4E00000000000000000000000000AA606060605D5D95A7A5A3
+    A1A1A09C9B9A9998979681807F7D7D77444C4C214C4C4E000000000000000000
+    000000000000AE60606060605D5F949FA3A3A1A09B9B9A9998979681807A4B4E
+    4C4E214E1F4D0000000000000000000000000000000000AF6060605D605D5D5D
+    91939D9EA19B9B9A99898559504E4E4E4E4C4C4C5D0000000000000000000000
+    000000000000000000666060605D5D5D5D535353535353515151514E514E4E4E
+    4E4C4EAB00000000000000000000000000000000000000000000006060605D5D
+    5D5D5D535353535351515151514E4E4E4E640000000000000000000000000000
+    000000000000000000000000AF6460605D5D5D5D5D5353535353515151514E66
+    00000000000000000000000000000000000000000000000000000000000000AE
+    605D5D5D535D5353535353516600000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000FFFFE007FFFF0000FFFF00007FFF0000FFFC
+    00001FFF0000FFF0000007FF0000FFC0000003FF0000FF80000000FF0000FF00
+    0000007F0000FE000000003F0000FC000000001F0000F8000000001F0000F000
+    0000000F0000F000000000070000E000000000070000E000000000030000C000
+    000000030000C000000000010000C00000000001000080000000000100008000
+    0000000100008000000000000000800000000000000080000000000000008000
+    0000000000008000000000000000800000000000000080000000000000008000
+    0000000000008000000000000000800000000000000080000000000100008000
+    000000010000C000000000010000C000000000030000E000000000030000E000
+    000000070000F000000000070000F0000000000F0000F8000000000F0000F800
+    0000001F0000FC000000003F0000FE000000007F0000FF00000000FF0000FF80
+    000001FF0000FFE0000003FF0000FFF800000FFF0000FFFC00003FFF0000FFFF
+    8001FFFF0000FFFFFFFFFFFF0000280000002000000040000000010008000000
+    0000000400000000000000000000000100000001000000000000060606000909
+    09000C0C0C000A170A000D130D000F160F000C190C0011111100141414001218
+    1200181818001D1D1D000C260C000B2B0B000E280E00073407000A310A00102B
+    1000122D12001B2A1B0014311400153A1500173D17001D351D001E3F1E002222
+    220026262600292929002E2E2E003232320034343400353E35003A3A3A003D3D
+    3D00064906000A490A00025502000F560F001043100016451600135313000161
+    01000067000000690000006D0000066A0600046F04000B610B00086508000969
+    09000A6F0A00007200000075000000780000007D000015661500147D15002144
+    2100335034003653380026732A003F5240004141410045454500494949004E4E
+    4E004558470049534B005151510056565600595959005D5D5D00436949004474
+    4C00427C4B00437C4D006262620065656500636D6600686868006F6F6F007272
+    7200777777007C7C7C000081000000860000008A0000008E00000A820A000091
+    000000950000029B03001083110008A10C000DA6140013AC1D001F9227002497
+    2E002D8D3700299B350019B226001EB72E002EA03C0024BD37002AC23F003B87
+    46003D934C0033A5430037AA4A002EB441003CAF510041844C004A835600428F
+    50004197500041B3570041B4580046B85E005C8367006392720057A36B004ABC
+    650050B96B005FAB760062AE7C0030C8480037C6510035CE51003DCC59003BD3
+    590042D1610041D9620046DF6B004CE4730052EA7C0058E682005DEC8A0057F0
+    85005DF58D008282820085858500888888008D8D8D009090900099999900A0A0
+    A000ACACAC000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000052400B0909091C4100000000000000000000000000000000000000000052
+    1B1B0B0B0B0B09090808080041000000000000000000000000000000008E1C1C
+    1B1B1B1B0B0B0B090908080800084000000000000000000000000000471C1E1C
+    1C1826313635352D2A230E08080000090000000000000000000000401E1E1E1C
+    1C192930363635352D2D312A100808000000000000000000000040211E1E1E1E
+    1C1C1C1B18353535352D2D313125040800080000000000000051212121211E1E
+    1E1C1C1C1B3236363535230E0604040800000900000000000040402121211E1E
+    1E1E1C1C1C32363636270B0B0909080808080040000000004540403C21212121
+    1E1E1E1C1C1C1B1817140B0B0B090908080108000000000041403E6140212121
+    211E1E1E1C1C1C1B1B1B1A0B0B0B09040D1008004100004E4141636240402121
+    211E1E1E1E1C1C1C1B1B0B1B0B0B0B0B0D310808000000454144686440404021
+    2121211E1E1E1C1C1B1B1B1B1B0B0B0B0E31100808000045454A696740402140
+    212121211E1E1E1C1C1C1B1B0B1B0B0B152D23080141924545727E6C41404040
+    402121211E1E1E1E1C1C1C1B1B1B1A0B152D2A09040B8C474775806D41414140
+    4040212121211E1E1E1C1C1C1B1B0B1B15352D0909098C474776826F41414140
+    402140212121211E1E1E1C1C1C1B1B1A1735350B09098C47477A847545454141
+    404040402121211E1E1E1E3A1C1C18272D35350B0B098E4E477B858371454141
+    4141404040212121211E1E57575656365635360B0B0B004E4779868584817473
+    6A43404040402121211E1E5A575756563656321B0B40004E4E77878685848280
+    7E494140402140212121215A575757565636261B0B4E004E4E4E888786858482
+    80704141404040402121205A5A5A57575656181B1B00008E4E4E7C8A87868584
+    827F4C4441414040403B395C5A5A575757321B1B1B0000004E4E4F898A878685
+    8482807E6E676462605F5E5C5C5A5A5A573A1C1B5200000054514E788B8A8786
+    858482807E69686665605F5E5C5C5A5A381E1C1C0000000000514E4E7D8B8A87
+    86858482807E69686665605F5E5C5C591E1E1E8E000000000093514E4E7D8B8A
+    8786858482806969686665605F5E5D201E1E47000000000000008E514E4E7889
+    8A8786858482807E69686665603D2121214000000000000000000091514E4E4F
+    7C888786858482807E6968633E40402141000000000000000000000093514E4E
+    4E4E77797B7A7675727044414040405100000000000000000000000000005451
+    4E4E474E47474745454541414145000000000000000000000000000000000000
+    8E4E4E4E474747474645454F0000000000000000000000000000000000000000
+    000000008E8E8C8C9200000000000000000000000000FFF00FFFFF8001FFFE00
+    007FFC00003FF800001FF000000FE0000007E0000003C0000003C00000018000
+    0001800000018000000000000000000000000000000000000000000000008000
+    0000800000008000000180000001C0000001C0000003E0000003E0000007F000
+    000FF800001FFC00003FFF0000FFFFC003FFFFFC1FFF28000000100000002000
+    0000010008000000000000010000000000000000000000010000000100000000
+    00000A0A0A00090F09000F0F0F000E140E000C190C001313130014141400111E
+    1100181818001D1D1D00092F09000A390A00113311001B321B00222222002626
+    26002B2B2B0021322100263626003030300034343400313A3100393939003E3E
+    3E00044A04000B440B000E490E0005540500065A0600075F0700124912001848
+    180014531400155915001E521E00006A0000066A0600096A0900007000000075
+    0000007B0000146414001B631B00137B1300374A38002E7133002B7830004343
+    4300474747004C4C4C004A534B00575757005A5A5A005E5E5E0046634B004E61
+    52004A7050004878510063636300656565006868680070707000757575007D7D
+    7D000081000000860000008C00000B860C00009200000198010009A20E0014AD
+    1F0022B1320020B830003A9048004B975B005D836800539F660063A679002BC4
+    42003AC0540037CF530039C8530042DA64004DE6750063C2830059E8840059F1
+    87008A8A8A009191910098989800AAAAAA000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000003D110906033400000000000000003E11121F1B1A0C0503150000000000
+    3615151220252828241902060000004018181514112129250D05040315000031
+    2E1815151511120E0909060B03005A3349311818151111101009091C04343E39
+    50313118151515111010091E0C03364C52323131181815111110101E1A06364E
+    5438323131181515232226291B09594D5554534B311818182B4342421F095C3D
+    575554513731312D2C454342123D003D4F58555452504A484745452A1100005C
+    3D5658555452504A484744163D0000005B3D4F5755545250492F183600000000
+    005C3D3D4D4E4C3A33314000000000000000005C5936363E5A0000000000F81F
+    0000E0070000C003000080010000800100000000000000000000000000000000
+    000000000000000000008001000080010000C0030000E0070000F81F00002800
+    0000300000006000000001002000000000008025000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000001E1E1E0F1C1C1C4F1B1B1B8F191919BF171717DF1616
+    16FF141414FF131313FF111111FF0F0F0FEF0E0E0EBF0D0D0D9F0B0B0B6F0A0A
+    0A2F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000002424
+    240F2323235F212121CF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF1717
+    17FF161616FF141414FF131313FF111111FF0F0F0FFF0E0E0EFF0C0C0CFF0B0B
+    0BFF090909DF0808088F0707071F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000002929290F2727277F2626
+    26EF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF1919
+    19FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF0E0E0EFF0C0C
+    0CFF0B0B0BFF090909FF080808FF060606BF0505053F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000002C2C2C5F2A2A2AEF292929FF2727
+    27FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A
+    1AFF191919FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF0E0E
+    0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF0505059F0505050F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000003131310F2F2F2FAF2E2E2EFF2C2C2CFF2A2A2AFF2929
+    29FF272727FF262626FF242424FF222222FF212121FF193019FF143914FF0E48
+    0EFF0D460DFF0C450CFF0B430BFF0C3C0CFF0F2A0FFF111811FF111111FF0F0F
+    0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF040404EF0404
+    044F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000003434342F323232DF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A
+    2AFF292929FF272727FF174717FF0B620BFF027702FF007A00FF007800FF0076
+    00FF007400FF007300FF007100FF006F00FF006D00FF006B00FF035903FF0937
+    09FF0D1A0DFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF0404
+    04FF0303038F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00003737372F353535EF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C
+    2CFF2A2A2AFF243424FF145414FF135313FF096709FF007C00FF007A00FF0078
+    00FF007600FF007400FF007300FF007100FF006F00FF006D00FF006B00FF0069
+    00FF006700FF044B04FF0B1E0BFF0C0C0CFF0B0B0BFF090909FF080808FF0606
+    06FF040404FF0303039F00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000003A3A
+    3A2F383838EF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E
+    2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF164416FF0275
+    02FF007800FF007600FF007400FF007300FF007100FF006F00FF006D00FF006B
+    00FF006900FF006700FF006600FF053F05FF0B120BFF0B0B0BFF090909FF0808
+    08FF060606FF040404FF0303039F000000000000000000000000000000000000
+    00000000000000000000000000000000000000000000000000003D3D3D2F3C3C
+    3CEF3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F
+    2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF1A39
+    1AFF007A00FF007800FF007600FF007400FF007300FF007100FF006F00FF006D
+    00FF006B00FF006900FF006700FF006600FF015A01FF0A1D0AFF0B0B0BFF0909
+    09FF080808FF060606FF040404FF0303038F0000000000000000000000000000
+    000000000000000000000000000000000000000000004141410F3F3F3FCF3D3D
+    3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF3030
+    30FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF2424
+    24FF007C00FF007A00FF007800FF007600FF007400FF007300FF007100FF0364
+    03FF0B410BFF0F2A0FFF101D10FF111111FF0E150EFF0C190CFF0C0C0CFF0B0B
+    0BFF090909FF080808FF060606FF040404FF0404044F00000000000000000000
+    000000000000000000000000000000000000000000004242428F404040FF3F3F
+    3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF3232
+    32FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF2626
+    26FF007E00FF007C00FF007A00FF007800FF007600FF007400FF0D460DFF1919
+    19FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF0E0E0EFF0C0C
+    0CFF0B0B0BFF090909FF080808FF060606FF040404EF0505050F000000000000
+    0000000000000000000000000000000000004545453F444444FF424242FF4040
+    40FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF3434
+    34FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF2727
+    27FF008000FF007E00FF007C00FF007A00FF007800FF007600FF1C1C1CFF1A1A
+    1AFF191919FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF0E0E
+    0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF050505AF000000000000
+    000000000000000000000000000000000000464646BF454545FF444444FF4242
+    42FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF3535
+    35FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF2929
+    29FF272727FF262626FF242424FF1A391AFF163D16FF104C10FF1E1E1EFF1C1C
+    1CFF1A1A1AFF191919FF171717FF161616FF141414FF131313FF111111FF0F0F
+    0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF0505053F0000
+    00000000000000000000000000004A4A4A3F484848FF474747FF454545FF4444
+    44FF39563BFF28742CFF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF3737
+    37FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A
+    2AFF292929FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E
+    1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF131313FF1111
+    11FF0F0F0FFF053F05FF0C0C0CFF0B0B0BFF090909FF080808FF060606BF0000
+    00000000000000000000000000004B4B4BBF4A4A4AFF484848FF474747FF4545
+    45FF22942AFF2B7730FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF3838
+    38FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C
+    2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF1F1F
+    1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF1313
+    13FF111111FF006600FF0A230AFF0C0C0CFF0B0B0BFF090909FF080808FF0707
+    072F00000000000000004F4F4F1F4D4D4DFF4B4B4BFF4A4A4AFF484848FF3C62
+    40FF1AB328FF2D7A33FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A
+    3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E
+    2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF2121
+    21FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF1414
+    14FF131313FF006700FF044B04FF0E0E0EFF0C0C0CFF0B0B0BFF090909FF0808
+    088F00000000000000005050506F4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF2D97
+    3AFF1EB72EFF307C37FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C
+    3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F
+    2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF2222
+    22FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF1616
+    16FF141414FF006900FF006700FF0D1A0DFF0E0E0EFF0C0C0CFF0B0B0BFF0909
+    09EF0000000000000000525252BF505050FF4F4F4FFF4D4D4DFF49534AFF26BE
+    39FF22BB34FF327F3BFF454545FF444444FF424242FF404040FF3F3F3FFF3D3D
+    3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF3030
+    30FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF2424
+    24FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF1717
+    17FF161616FF006B00FF006900FF074207FF0F0F0FFF0E0E0EFF0C0C0CFF0B0B
+    0BFF0A0A0A2F00000000535353FF525252FF505050FF4F4F4FFF417A49FF2AC2
+    3FFF26BE39FF35823EFF474747FF454545FF444444FF424242FF404040FF3F3F
+    3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF3232
+    32FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF2626
+    26FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF1919
+    19FF171717FF006D00FF006B00FF035903FF111111FF0F0F0FFF0E0E0EFF0C0C
+    0CFF0B0B0B6F5656563F555555FF535353FF525252FF505050FF3C9B4CFF2DC6
+    44FF2AC23FFF388442FF484848FF474747FF454545FF444444FF424242FF4040
+    40FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF3434
+    34FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF2727
+    27FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A
+    1AFF191919FF006F00FF006D00FF006B00FF111811FF111111FF0F0F0FFF0E0E
+    0EFF0C0C0CAF5858584F575757FF555555FF535353FF525252FF3BAE50FF31CA
+    4AFF2DC644FF3B8745FF4A4A4AFF484848FF474747FF454545FF444444FF4242
+    42FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF3535
+    35FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF2929
+    29FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C
+    1CFF1A1A1AFF007100FF006F00FF006D00FF0F2A0FFF131313FF111111FF0F0F
+    0FFF0E0E0EBF5959597F585858FF575757FF555555FF535353FF39D156FF35CD
+    50FF31CA4AFF3D8949FF4B4B4BFF4A4A4AFF484848FF474747FF454545FF4444
+    44FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF3737
+    37FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A
+    2AFF292929FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E
+    1EFF1C1C1CFF007300FF007100FF006F00FF0C3C0CFF141414FF131313FF1111
+    11FF0F0F0FFF5B5B5B7F595959FF585858FF575757FF555555FF3DD55BFF39D1
+    56FF35CD50FF408C4DFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF474747FF4545
+    45FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF3838
+    38FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C
+    2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF1F1F
+    1FFF1E1E1EFF007400FF007300FF007100FF0B430BFF161616FF141414FF1313
+    13FF111111FF5C5C5C7F5B5B5BFF595959FF585858FF575757FF40D961FF3DD5
+    5BFF39D156FF438F51FF4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF4747
+    47FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A
+    3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E
+    2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF2121
+    21FF1F1F1FFF007600FF007400FF007300FF0C450CFF171717FF161616FF1414
+    14FF131313FF5E5E5E7F5D5D5DFF5B5B5BFF595959FF585858FF44DD67FF40D9
+    61FF3DD55BFF459254FF505050FF4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF4848
+    48FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C
+    3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F
+    2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF2028
+    20FF0C590CFF007800FF007600FF007400FF0D460DFF191919FF171717FF1616
+    16FF141414FF6060607F5E5E5EFF5D5D5DFF5B5B5BFF595959FF48E06DFF44DD
+    67FF40D961FF45A459FF525252FF505050FF4F4F4FFF4D4D4DFF4B4B4BFF4A4A
+    4AFF484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D
+    3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF3030
+    30FF1D511DFF0E6D0EFF155A15FF155815FF145614FF0E600EFF076F07FF007E
+    00FF007C00FF007A00FF007800FF007600FF0E480EFF1A1A1AFF191919FF1717
+    17FF161616FF6161617F606060FF5E5E5EFF5D5D5DFF5B5B5BFF4CDB71FF48E0
+    6DFF44DD67FF40D961FF479C58FF4F6252FF505050FF4F4F4FFF4D4D4DFF4B4B
+    4BFF4A4A4AFF484848FF474747FF454545FF444444FF424242FF404040FF3F3F
+    3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF3232
+    32FF185F18FF008B00FF008900FF008700FF008500FF008400FF008200FF0080
+    00FF007E00FF007C00FF007A00FF007800FF143914FF1C1C1CFF1A1A1AFF1919
+    19FF171717DF6262623F616161FF606060FF5E5E5EFF5D5D5DFF52C470FF4CE4
+    73FF48E06DFF44DD67FF40D961FF3DD55BFF3EB955FF419751FF408C4DFF456B
+    4BFF436948FF416746FF484848FF474747FF454545FF444444FF424242FF4040
+    40FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF3434
+    34FF196019FF008D00FF008B00FF008900FF008700FF008500FF008400FF0082
+    00FF008000FF007E00FF007C00FF007A00FF193019FF1E1E1EFF1C1C1CFF1A1A
+    1AFF191919BF6464641F636363FF616161FF606060FF5E5E5EFF58A46DFF50E8
+    78FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA
+    4AFF2DC644FF2AC23FFF4A4A4AFF484848FF474747FF454545FF444444FF4242
+    42FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF3535
+    35FF1A621AFF008F00FF008D00FF008B00FF008900FF008700FF008500FF0084
+    00FF008200FF008000FF007E00FF027702FF212121FF1F1F1FFF1E1E1EFF1C1C
+    1CFF1B1B1B8F00000000656565DF636363FF616161FF606060FF5D7965FF53EC
+    7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD
+    50FF31CA4AFF2DC644FF4B4B4BFF4A4A4AFF484848FF474747FF454545FF4444
+    44FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF3737
+    37FF1B641BFF009100FF008F00FF008D00FF008B00FF008900FF008700FF0085
+    00FF008400FF008200FF008000FF0B620BFF222222FF212121FF1F1F1FFF1E1E
+    1EFF1C1C1C5F000000006666669F656565FF636363FF616161FF606060FF58DD
+    7FFF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D1
+    56FF35CD50FF31CA4AFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF474747FF4545
+    45FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF3838
+    38FF1B661BFF009300FF009100FF008F00FF008D00FF008B00FF008900FF0087
+    00FF008500FF008400FF008200FF174717FF242424FF222222FF212121FF1F1F
+    1FFF1E1E1E0F000000006767674F666666FF656565FF636363FF616161FF5DA9
+    74FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD5
+    5BFF39D156FF35CD50FF447D4EFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF4747
+    47FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A
+    3AFF0E7F0EFF009500FF009300FF009100FF008F00FF008D00FF008B00FF0089
+    00FF008700FF008500FF027E02FF272727FF262626FF242424FF222222FF2121
+    21CF000000000000000000000000686868EF666666FF656565FF636363FF616B
+    64FF5BEA87FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D9
+    61FF3DD55BFF39D156FF35CD50FF3C9C4DFF47644CFF4B4B4BFF4A4A4AFF4848
+    48FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF2C5C2EFF1284
+    13FF009900FF009700FF009500FF009300FF009100FF008F00FF008D00FF008B
+    00FF008900FF008700FF155815FF292929FF272727FF262626FF242424FF2323
+    235F0000000000000000000000006969697F686868FF666666FF656565FF6363
+    63FF60AC78FF5BF38AFF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD
+    67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF32A442FF2FA1
+    3EFF35823EFF327F3BFF2D8335FF22942BFF1F9126FF0FA817FF0BA411FF07A0
+    0BFF049D05FF009900FF009700FF009500FF009300FF009100FF008F00FF008D
+    00FF008B00FF028402FF293229FF2A2A2AFF292929FF272727FF262626EF2424
+    240F0000000000000000000000006A6A6A1F696969EF686868FF666666FF6565
+    65FF636363FF5FDA86FF5BF38AFF57EF84FF53EC7EFF50E878FF4CE473FF48E0
+    6DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC2
+    3FFF26BE39FF22BB34FF1EB72EFF1AB328FF16AF22FF13AC1CFF0FA817FF0BA4
+    11FF07A00BFF049D05FF009900FF009700FF009500FF009300FF009100FF008F
+    00FF008D00FF204C20FF2E2E2EFF2C2C2CFF2A2A2AFF292929FF2727277F0000
+    0000000000000000000000000000000000006A6A6A7F696969FF686868FF6666
+    66FF656565FF637F6CFF5FED8CFF5BF38AFF57EF84FF53EC7EFF50E878FF4CE4
+    73FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC6
+    44FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF16AF22FF13AC1CFF0FA8
+    17FF0BA411FF07A00BFF049D05FF009900FF009700FF009500FF009300FF0091
+    00FF136C13FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AEF2929290F0000
+    0000000000000000000000000000000000006B6B6B0F6A6A6ADF696969FF6868
+    68FF666666FF656565FF629B75FF5FF78FFF5BF38AFF57EF84FF53EC7EFF50E8
+    78FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA
+    4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF16AF22FF13AC
+    1CFF0FA817FF0BA411FF07A00BFF049D05FF009900FF009700FF009500FF0A81
+    0AFF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2C6F000000000000
+    000000000000000000000000000000000000000000006B6B6B3F6A6A6AFF6969
+    69FF686868FF666666FF656565FF629B75FF5FF78FFF5BF38AFF57EF84FF53EC
+    7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD
+    50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF16AF
+    22FF13AC1CFF0FA817FF0BA411FF07A00BFF049D05FF009900FF0A850AFF333D
+    33FF353535FF343434FF323232FF303030FF2F2F2FBF00000000000000000000
+    00000000000000000000000000000000000000000000000000006B6B6B8F6A6A
+    6AFF696969FF686868FF666666FF656565FF629B75FF5FF78FFF5BF38AFF57EF
+    84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D1
+    56FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB3
+    28FF16AF22FF13AC1CFF0FA817FF0BA411FF07A00BFF128413FF364036FF3838
+    38FF373737FF353535FF343434FF323232EF3131310F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000006B6B
+    6B9F6A6A6AFF696969FF686868FF666666FF656565FF637F6CFF5FDA86FF5BF3
+    8AFF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD5
+    5BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB7
+    2EFF1AB328FF16AF22FF13AC1CFF0FA817FF257127FF3D3D3DFF3C3C3CFF3A3A
+    3AFF383838FF373737FF353535EF3434342F0000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000006B6B
+    6B0F6B6B6BCF6A6A6AFF696969FF686868FF666666FF656565FF636363FF60AC
+    78FF5BEA87FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D9
+    61FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB
+    34FF1EB72EFF1AB328FF22942AFF39563BFF404040FF3F3F3FFF3D3D3DFF3C3C
+    3CFF3A3A3AFF383838EF3737372F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00006B6B6B0F6B6B6B9F6A6A6AFF696969FF686868FF666666FF656565FF6363
+    63FF616B64FF5DA974FF58DD7FFF53EC7EFF50E878FF4CE473FF48E06DFF44DD
+    67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE
+    39FF2D973AFF3C6240FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D
+    3DFF3C3C3CEF3A3A3A2F00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000006B6B6B8F6A6A6AFF696969FF686868FF666666FF6565
+    65FF636363FF616161FF606060FF5C8267FF58A46DFF52C470FF4CDB71FF48E0
+    6DFF44DD67FF40D961FF3DD55BFF39D156FF3AB650FF3C9B4CFF417A49FF4953
+    4AFF4A4A4AFF484848FF474747FF454545FF444444FF424242FF404040FF3F3F
+    3FCF3D3D3D2F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000006B6B6B3F6A6A6ADF696969FF686868FF6666
+    66FF656565FF636363FF616161FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF5959
+    59FF585858FF575757FF555555FF535353FF525252FF505050FF4F4F4FFF4D4D
+    4DFF4B4B4BFF4A4A4AFF484848FF474747FF454545FF444444FF4242428F4141
+    410F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000006B6B6B0F6A6A6A7F696969FF6868
+    68FF666666FF656565FF636363FF616161FF606060FF5E5E5EFF5D5D5DFF5B5B
+    5BFF595959FF585858FF575757FF555555FF535353FF525252FF505050FF4F4F
+    4FFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF464646BF4545453F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000000000000000000000000000006A6A6A1F6969
+    698F686868EF666666FF656565FF636363FF616161FF606060FF5E5E5EFF5D5D
+    5DFF5B5B5BFF595959FF585858FF575757FF555555FF535353FF525252FF5050
+    50FF4F4F4FFF4D4D4DFF4B4B4BBF4A4A4A3F0000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000006767674F6666669F656565EF636363FF616161FF606060FF5E5E
+    5EFF5D5D5DFF5B5B5BFF595959FF585858FF575757FF555555FF535353FF5252
+    52BF5050506F4F4F4F1F00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000006464641F6262623F6161617F6060
+    607F5E5E5E7F5C5C5C7F5B5B5B7F5959597F5858585F5656563F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000FFFF8001FFFF0000FFFC00003FFF0000FFF000000FFF0000FFE0
+    000003FF0000FF80000001FF0000FF00000000FF0000FE000000007F0000FC00
+    0000003F0000F8000000001F0000F0000000000F0000F000000000070000E000
+    000000070000E000000000030000C000000000030000C0000000000100008000
+    0000000100008000000000010000800000000000000080000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000800000000000000080000000000000008000
+    000000010000C000000000010000C000000000010000C000000000030000E000
+    000000030000E000000000070000F0000000000F0000F8000000000F0000FC00
+    0000001F0000FC000000003F0000FE000000007F0000FF80000000FF0000FFC0
+    000001FF0000FFE0000007FF0000FFF800001FFF0000FFFF00007FFF0000FFFF
+    E007FFFF00002800000020000000400000000100200000000000801000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000002121210F1F1F1F5F1D1D
+    1D9F1A1A1ACF181818FF151515FF131313FF101010FF0E0E0EDF0C0C0CBF0A0A
+    0A6F0808081F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000002929291F2626269F232323FF212121FF1F1F
+    1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF101010FF0E0E0EFF0C0C
+    0CFF090909FF070707BF0606063F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000002D2D2D8F2A2A2AFF282828FF262626FF232323FF2121
+    21FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF101010FF0E0E
+    0EFF0C0C0CFF090909FF070707FF050505BF0404041F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00003434341F323232CF2F2F2FFF2D2D2DFF2A2A2AFF282828FF1E371EFF0F56
+    0FFF086408FF007800FF007500FF007200FF006F00FF026102FF064906FF0B2B
+    0BFF0E0E0EFF0C0C0CFF090909FF070707FF050505EF0303034F000000000000
+    0000000000000000000000000000000000000000000000000000000000003939
+    392F363636EF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF1E3F1EFF1353
+    13FF0B610BFF007A00FF007800FF007500FF007200FF006F00FF006C00FF0069
+    00FF006100FF073407FF0C0C0CFF090909FF070707FF050505FF0303035F0000
+    00000000000000000000000000000000000000000000000000003E3E3E0F3B3B
+    3BEF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF2828
+    28FF262626FF1D341DFF027502FF007800FF007500FF007200FF006F00FF006C
+    00FF006900FF006700FF025502FF0A170AFF090909FF070707FF050505FF0303
+    034F000000000000000000000000000000000000000000000000404040BF3D3D
+    3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A
+    2AFF282828FF262626FF096709FF007A00FF007800FF007500FF007200FF0A49
+    0AFF102B10FF121812FF0F160FFF0C190CFF0C0C0CFF090909FF070707FF0505
+    05EF0404041F000000000000000000000000000000004444446F424242FF4040
+    40FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D
+    2DFF2A2A2AFF282828FF096909FF007D00FF007A00FF007800FF104310FF1A1A
+    1AFF181818FF151515FF131313FF101010FF0E0E0EFF0C0C0CFF090909FF0707
+    07FF050505BF0000000000000000000000004A4A4A0F474747EF444444FF4242
+    42FF365338FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F
+    2FFF2D2D2DFF2A2A2AFF282828FF262626FF1D341DFF173D17FF1B2A1BFF1C1C
+    1CFF1A1A1AFF181818FF151515FF131313FF101010FF0D130DFF0C0C0CFF0909
+    09FF070707FF0606063F00000000000000004B4B4B7F494949FF474747FF3F52
+    40FF1F9227FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF3232
+    32FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF232323FF212121FF1F1F
+    1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF0C260CFF073407FF0C0C
+    0CFF090909FF070707BF00000000000000004E4E4EDF4B4B4BFF494949FF2D8D
+    37FF24972EFF424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF3434
+    34FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF232323FF2121
+    21FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF0E280EFF006100FF0E0E
+    0EFF0C0C0CFF090909FF0808081F5252522F505050FF4E4E4EFF49534BFF24BD
+    37FF299B35FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF3636
+    36FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF2323
+    23FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF102B10FF006900FF0A31
+    0AFF0E0E0EFF0C0C0CFF0A0A0A6F5555556F535353FF505050FF44744CFF2AC2
+    3FFF2EA03CFF474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF3939
+    39FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF2626
+    26FF232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF122D12FF006C00FF0649
+    06FF101010FF0E0E0EFF0C0C0CBF5757578F555555FF535353FF428F50FF30C8
+    48FF33A543FF494949FF474747FF444444FF424242FF404040FF3D3D3DFF3B3B
+    3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF2828
+    28FF262626FF232323FF212121FF1F1F1FFF1C1C1CFF143014FF006F00FF0261
+    02FF131313FF101010FF0E0E0EEF595959BF575757FF555555FF41B357FF35CE
+    51FF37AA4AFF4B4B4BFF494949FF474747FF444444FF424242FF404040FF3D3D
+    3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A
+    2AFF282828FF262626FF232323FF212121FF1F1F1FFF153215FF007200FF006F
+    00FF151515FF131313FF101010FF5C5C5CBF5A5A5AFF575757FF46B85EFF3BD3
+    59FF3CAF51FF4E4E4EFF4B4B4BFF494949FF474747FF444444FF424242FF4040
+    40FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D
+    2DFF2A2A2AFF282828FF262626FF232323FF212121FF153A15FF007500FF0072
+    00FF181818FF151515FF131313FF5E5E5EBF5C5C5CFF5A5A5AFF4ABC65FF41D9
+    62FF41B458FF505050FF4E4E4EFF4B4B4BFF494949FF474747FF444444FF4242
+    42FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F
+    2FFF214421FF2A2A2AFF282828FF1E371EFF164516FF046F04FF007800FF0075
+    00FF1A1A1AFF181818FF151515FF616161BF5F5F5FFF5C5C5CFF50B96BFF46DF
+    6BFF42D161FF4A8356FF505050FF4E4E4EFF4B4B4BFF494949FF474747FF4444
+    44FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF3232
+    32FF008B00FF008900FF008600FF008300FF008000FF007D00FF007A00FF0078
+    00FF1C1C1CFF1A1A1AFF181818FF6363637F616161FF5F5F5FFF57A36BFF4CE4
+    73FF46DF6BFF41D962FF3DCC59FF3CAF51FF3D934CFF3B8746FF455847FF4747
+    47FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF3434
+    34FF008E00FF008B00FF008900FF008600FF008300FF008000FF007D00FF066A
+    06FF1F1F1FFF1C1C1CFF1A1A1ACF6565655F636363FF616161FF5C8367FF52EA
+    7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF436949FF4949
+    49FF474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF3636
+    36FF009100FF008E00FF008B00FF008900FF008600FF008300FF008000FF0F56
+    0FFF212121FF1F1F1FFF1D1D1DAF6767671F666666FF636363FF616161FF58E6
+    82FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF41844CFF4B4B
+    4BFF494949FF474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF353E
+    35FF009400FF009100FF008E00FF008B00FF008900FF008600FF008300FF1E37
+    1EFF232323FF212121FF1F1F1F5F00000000676767BF666666FF636363FF5FAB
+    76FF57F085FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF37C651FF437C
+    4DFF49534BFF494949FF474747FF444444FF424242FF404040FF335034FF147D
+    15FF009700FF009400FF009100FF008E00FF008B00FF008900FF0A6F0AFF2828
+    28FF262626FF232323FF2121210F000000006A6A6A5F686868FF666666FF636D
+    66FF5DEC8AFF57F085FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE
+    51FF30C848FF2EB441FF2EA03CFF299B35FF24972EFF13AC1DFF0DA614FF08A1
+    0CFF029B03FF009700FF009400FF009100FF008E00FF008B00FF214421FF2A2A
+    2AFF282828FF2626269F0000000000000000000000006A6A6ADF686868FF6666
+    66FF639272FF5DF58DFF57F085FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD3
+    59FF35CE51FF30C848FF2AC23FFF24BD37FF1EB72EFF19B226FF13AC1DFF0DA6
+    14FF08A10CFF029B03FF009700FF009400FF009100FF156615FF2F2F2FFF2D2D
+    2DFF2A2A2AFF2929291F0000000000000000000000006B6B6B3F6A6A6AFF6868
+    68FF666666FF62AE7CFF5DF58DFF57F085FF52EA7CFF4CE473FF46DF6BFF41D9
+    62FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF1EB72EFF19B226FF13AC
+    1DFF0DA614FF08A10CFF029B03FF009700FF0A820AFF343434FF323232FF2F2F
+    2FFF2D2D2D8F00000000000000000000000000000000000000006B6B6B8F6A6A
+    6AFF686868FF666666FF62AE7CFF5DF58DFF57F085FF52EA7CFF4CE473FF46DF
+    6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF1EB72EFF19B2
+    26FF13AC1DFF0DA614FF08A10CFF108311FF353E35FF363636FF343434FF3232
+    32CF3030300F0000000000000000000000000000000000000000000000006B6B
+    6BBF6A6A6AFF686868FF666666FF639272FF5DEC8AFF57F085FF52EA7CFF4CE4
+    73FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF1EB7
+    2EFF19B226FF13AC1DFF26732AFF3D3D3DFF3B3B3BFF393939FF363636EF3434
+    341F000000000000000000000000000000000000000000000000000000006B6B
+    6B0F6B6B6BAF6A6A6AFF686868FF666666FF636D66FF5FAB76FF58E682FF52EA
+    7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD
+    37FF2D8D37FF3F5240FF424242FF404040FF3D3D3DFF3B3B3BEF3939392F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000006B6B6B8F6A6A6AFF686868FF666666FF636363FF616161FF5C83
+    67FF57A36BFF50B96BFF4ABC65FF46B85EFF41B357FF419750FF427C4BFF4953
+    4BFF494949FF474747FF444444FF424242FF404040BF3E3E3E0F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000006B6B6B3F6A6A6ADF686868FF666666FF636363FF6161
+    61FF5F5F5FFF5C5C5CFF5A5A5AFF575757FF555555FF535353FF505050FF4E4E
+    4EFF4B4B4BFF494949FF474747EF4444446F0000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000006A6A6A5F676767BF666666FF6363
+    63FF616161FF5F5F5FFF5C5C5CFF5A5A5AFF575757FF555555FF535353FF5050
+    50FF4E4E4EDF4B4B4B7F4A4A4A0F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000000000000000000000000000006767671F6565
+    655F6363637F616161BF5E5E5EBF5C5C5CBF595959BF5757578F5555556F5252
+    522F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000FFC003FFFF0000FFFE00003FF800001FF000
+    000FE0000007E0000003C0000003800000018000000180000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00008000000080000001C0000001C0000003E0000003F0000007F000000FFC00
+    001FFE00007FFF8000FFFFE007FF280000001000000020000000010020000000
+    0000400400000000000000000000000000000000000000000000000000000000
+    0000000000002727273F222222AF1D1D1DEF181818FF131313FF0F0F0FFF0B0B
+    0BAF0707075F0000000000000000000000000000000000000000000000003535
+    350F303030AF2B2B2BFF213221FF124912FF0E490EFF0B440BFF0A390AFF0C19
+    0CFF0A0A0AFF060606CF0404041F0000000000000000000000003E3E3E0F3939
+    39CF343434FF303030FF263626FF184818FF066A06FF007500FF007000FF006A
+    00FF044A04FF090F09FF050505EF0404041F0000000000000000424242AF3E3E
+    3EFF393939FF343434FF303030FF2B2B2BFF145314FF007B00FF017001FF1133
+    11FF111E11FF0E140EFF0A0A0AFF060606CF000000004B4B4B3F474747FF2E71
+    33FF3E3E3EFF393939FF343434FF303030FF2B2B2BFF223222FF1B321BFF1D1D
+    1DFF181818FF131313FF092F09FF0A0A0AFF0707075F5050509F4A534BFF22B1
+    32FF434343FF3E3E3EFF393939FF343434FF303030FF2B2B2BFF262626FF2222
+    22FF1D1D1DFF181818FF055405FF0C190CFF0B0B0BAF555555CF4A7050FF2BC4
+    42FF474747FF434343FF3E3E3EFF393939FF343434FF303030FF2B2B2BFF2626
+    26FF222222FF1D1D1DFF065A06FF0A390AFF0F0F0FFF5A5A5AFF4B975BFF37CF
+    53FF4C4C4CFF474747FF434343FF3E3E3EFF393939FF343434FF303030FF2B2B
+    2BFF262626FF222222FF075F07FF0B440BFF131313FF5F5F5FFF539F66FF42DA
+    64FF4E6152FF4C4C4CFF474747FF434343FF3E3E3EFF393939FF343434FF1E52
+    1EFF155915FF096A09FF007B00FF0E490EFF181818FF636363BF5D8368FF4DE6
+    75FF42DA64FF39C853FF3A9048FF474747FF434343FF3E3E3EFF393939FF1B63
+    1BFF008C00FF008600FF008100FF124912FF1D1D1DFF6868688F646464FF59E8
+    84FF4DE675FF42DA64FF3AC054FF46634BFF474747FF434343FF374A38FF137B
+    13FF009200FF008C00FF008600FF213221FF222222AF6A6A6A1F686868FF63A6
+    79FF59F187FF4DE675FF42DA64FF37CF53FF2BC442FF20B830FF14AD1FFF09A2
+    0EFF019801FF009200FF146414FF2B2B2BFF2727273F000000006A6A6A8F6868
+    68FF63C283FF59F187FF4DE675FF42DA64FF37CF53FF2BC442FF20B830FF14AD
+    1FFF09A20EFF0B860CFF313A31FF303030BF0000000000000000000000006A6A
+    6AAF686868FF63A679FF59E884FF4DE675FF42DA64FF37CF53FF2BC442FF22B1
+    32FF2B7830FF3E3E3EFF393939CF3535350F0000000000000000000000000000
+    00006A6A6A8F686868FF646464FF5D8368FF539F66FF4B975BFF487851FF4A53
+    4BFF474747FF424242AF3E3E3E0F000000000000000000000000000000000000
+    0000000000006A6A6A1F6868688F636363BF5F5F5FFF5A5A5AFF555555CF5050
+    509F4B4B4B3F00000000000000000000000000000000F00F0000C00300008001
+    0000800100000000000000000000000000000000000000000000000000000000
+    00000000000080010000C0010000E0030000F00F0000}
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited Bevel1: TBevel
+    Width = 569
+  end
+  inherited Panel1: TPanel
+    Width = 569
+    inherited Image1: TImage
+      Picture.Data = {
+        055449636F6E0000010006003030000001000800A80E00006600000020200000
+        01000800A80800000E0F0000101000000100080068050000B617000030300000
+        01002000A82500001E1D00002020000001002000A8100000C642000010100000
+        01002000680400006E5300002800000030000000600000000100080000000000
+        0009000000000000000000000001000000010000000000000505050009090900
+        0D0D0D000B120B000E150E000A1D0A000C190C00121212001515150011181100
+        101D1000191919001D1D1D000A230A000F2A0F00053F0500093709000C3C0C00
+        14391400163D1600193019001A391A0021212100252525002028200029292900
+        2D2D2D0024342400293229003131310035353500333D3300393939003D3D3D00
+        07420700044B04000B420B000C450C000E480E00025902000C590C0016461600
+        104C10001353130014551400155815001D511D00185F180000660000006A0000
+        006E0000076F07000B620B00096709000E600E000E6D0E000072000000750000
+        00780000007D00000E7F0E00136C1300196119001B651B00204C20002C5C2E00
+        3640360039563B002571270028742C002B7730002D7A3300307C3700327F3B00
+        3C6240004040400045454500494949004D4D4D0049534A005151510056565600
+        595959005D5D5D004167460047644C0043694800456B4B00417A4900447D4E00
+        4F6252005D7965006161610065656500616B6400686868006E6E6E00637F6C00
+        7171710074747400787878007D7D7D000081000000850000008A0000008D0000
+        0A810A000A850A00009100000095000000990000049D05001284130007A00B00
+        0BA411000FA8170013AC1C001F91260022942A002D83350035823E002D973A00
+        16AF22001AB328001EB72E002FA13E0022BB340026BE39002AC23F0038844200
+        3B8745003D8949003C9B4C003C9C4D0032A442003BAE50003AB650003EB95500
+        408C4D00438F51004197510045925400479C580045A459005C826700629B7500
+        58A46D005DA9740060AC78002DC6440031CA4A0035CD500039D156003DD55B00
+        40D9610044DD670052C470004CDB710058DD7F0048E06D004CE4730050E87800
+        53EC7E005FDA860057EF84005BEA87005FED8C005BF38A005FF78F0086868600
+        959595009F9F9F00A2A2A200AAAAAA00ACACAC00000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000066511F090909090D4E60000000000000000000000000000000
+        00000000000000000000000000000000000000004E0D0D0D0D0D090909090309
+        0303031864000000000000000000000000000000000000000000000000000000
+        00001F1818180D0D0D090D09090909030303030303004E000000000000000000
+        000000000000000000000000000000001F1A1818180D180D0D0D0D0909090909
+        09030303030300035D000000000000000000000000000000000000000000641A
+        1A1A1A181818180D151327272727110F05090303030303000309000000000000
+        000000000000000000000000004E1F1A1F1A1A1A182A353B3B3B3A3A3A333333
+        332811070303030300000064000000000000000000000000000000004E1A1F1F
+        1A1F1A1A1C2D2D353B3B3B3A3A3A3A333333313124070303030300005D000000
+        00000000000000000000004E1F1F1F1F1F1A1F1A1A1A181A182A3A3B3A3A3333
+        333333313331100404000303005D0000000000000000000000004E1F1F211F1F
+        1A1F1A1F1A1A1A1A1818163B3B3A3A3A33333333313131280703030003006400
+        0000000000000000005D212121211F1F1F1F1A1F1A1A1A1A1A18183B3B3B3A3A
+        3A3331120F0B080507030303000300000000000000000000AB4E214E2121211F
+        1F1F1F1A1F1F1A1A1A181A673B3B3B3A3A270C09090909030303030303000309
+        00000000000000004E214E21212121211F1F1F1F1A1F1A1E1A1A1867673B3B3B
+        3A0D0D0C0C090909090303030303000051000000000000644E4E214E214E2121
+        211F1F1F1F1A1F1A1A1A1A1A181A16132D0D0D0C0C0909090903030303030303
+        000000000000004E4E4E4E44462121212121211F1F1F1F1E1F1A1A1A1A181818
+        0D0D0D0D0D0C09090909090310030003034E00000000664E4E214E76474E214E
+        2121211F1F1F1F1A1E1E1A1A1A1A181818170D0D0D0D090B0C080908310E0303
+        0003000000004E4E4E4E4B7C474E21214E2121211F1F1F1F1A1F1A1E1A1A1A18
+        1817180D0D0D0D0C09090908312403030303640000004E514E4E7A7D474E4E21
+        21212121211F1F1F1F1E1E1A1A1A1A18181817180D0D0D0C0C09090933310703
+        030309000066514E5150807F4A4E214E4E214E2121211F1F1F1E1E1F1E1A1A1A
+        1A181817180D0D0D0D0C0909333123030303030000515151515981804A4E4E21
+        4E21214E2121211F1F1F1E1A1E1E1A1A1A1A181817180D0D0D0D0C0C33332809
+        030303000051515151859681824E4E4E4E4E2121212121211F1F1F1F1E1E1E1A
+        1A1A1A181817180D0D0D0C0C33333109050303530053535151889796834E4E4E
+        214E4E214E21212121211F1F1E1E1E1E1A1A1A1A181817180D0D0D0C3333330F
+        0909034E00535351519A9797844E4E4E4E4E214E214E212121211F1F1F1E1E1E
+        1E1A1A1A1A181817180D0D0D3A3A33120909030900535353519B99988B4E4E4E
+        4E4E4E4E214E214E2121211F1F1F1E1E1E1E1A1A1A1A181817180D0D3A3A3327
+        0909090300535353539B9A998C514E4E4E4E4E214E214E21212121211F1F1F1E
+        1E1E1E1A1A1A1A181817180D3A3A3A270909090900535353539B9B9A8C51514E
+        4E4E4E4E4E4E214E214E2121211F1F1F1E1E1E1E1A1A1A1A181817293B3A3A27
+        09090909005D535353A19B9B905151514E4E4E4E4E4E4E214E21212121211F1F
+        1F1E1E2D382E2E2D3533673B3B3B3A270C0D0909005D5D5D539EA19C9B8F5B51
+        514E4E4E4E4E214E214E214E2121211F1F1F1E306A6A676A676767673B3B3B13
+        0D0C0D1F005D5D535D9DA1A09B9B9A8A8D8C58574B4E4E4E4E214E2121212121
+        1F1F1F306A6A6A6767676767673B3B150D0D0951005D5D5D5394A1A1A19B9B9A
+        99989796964E4E4E4E4E214E214E2121211F1F306D6A6A6A6A67676767673B18
+        0D0D0D6600665D5D5D5CA3A3A1A09C9B9A999897964E4E4E4E214E214E21214C
+        21211F306D6A6A6A676A6A67676735180D180D0000AC5D5D5D5D9FA3A2A1A09B
+        9B9A9998974E4E4E4E4E4E4E214E214C212121406D6D6A6A6A6A676A67672A18
+        180D0D00000060605D5D94A5A3A3A1A09C9B9A99985A4E4E4E4E4E4E4E214E21
+        4E2121716D6D6D6D6A6A676A67671A1818184E000000645D605D5FA6A5A3A2A1
+        A09B9B9A999886564E4E4E4E214E214E2142716F6F6F6D6D6A6A6A6A672E1A18
+        18180000000000605D605D95A8A5A3A3A1A09C9B9A9A989796877A4A4A787776
+        7474706F6F6F6D6D6D6D6A6A671E1A1A181F000000000064605D605DA4A8A5A3
+        A2A1A09B9B9A9998979681807F7D7D75757474726F6F6F6D6D6D6A6A411E1A1A
+        1A0000000000000060605D6062A7A8A5A3A3A1A09C9B9A9998979681807F7D7D
+        75757474726F6F6F6F6D6D381F1A1E1A21000000000000006660605D6092A8A8
+        A5A3A2A1A09B9B9A9998979681807F7D7D7575747472706F6F6D6C1F1F1E1E1A
+        000000000000000000606060605D92A9A8A5A3A3A1A09C9B9A9998979681807F
+        7D7D75757474726F6F6C1F1F1F1E1E5D000000000000000000AF606060606092
+        A8A8A5A3A2A1A09B9B9A9998979681807F7D7D757574747271431F1F1F1F2100
+        00000000000000000000AE6060605D6062A4A8A5A3A3A1A09C9B9A9998979681
+        807F7D7D757574454C214C1F1F4E00000000000000000000000000AA60606060
+        5D5D95A7A5A3A1A1A09C9B9A9998979681807F7D7D77444C4C214C4C4E000000
+        000000000000000000000000AE60606060605D5F949FA3A3A1A09B9B9A999897
+        9681807A4B4E4C4E214E1F4D0000000000000000000000000000000000AF6060
+        605D605D5D5D91939D9EA19B9B9A99898559504E4E4E4E4C4C4C5D0000000000
+        000000000000000000000000000000666060605D5D5D5D535353535353515151
+        514E514E4E4E4E4C4EAB00000000000000000000000000000000000000000000
+        006060605D5D5D5D5D535353535351515151514E4E4E4E640000000000000000
+        000000000000000000000000000000000000AF6460605D5D5D5D5D5353535353
+        515151514E660000000000000000000000000000000000000000000000000000
+        0000000000AE605D5D5D535D5353535353516600000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000FFFFE007FFFF0000FFFF0000
+        7FFF0000FFFC00001FFF0000FFF0000007FF0000FFC0000003FF0000FF800000
+        00FF0000FF000000007F0000FE000000003F0000FC000000001F0000F8000000
+        001F0000F0000000000F0000F000000000070000E000000000070000E0000000
+        00030000C000000000030000C000000000010000C00000000001000080000000
+        0001000080000000000100008000000000000000800000000000000080000000
+        0000000080000000000000008000000000000000800000000000000080000000
+        0000000080000000000000008000000000000000800000000000000080000000
+        000100008000000000010000C000000000010000C000000000030000E0000000
+        00030000E000000000070000F000000000070000F0000000000F0000F8000000
+        000F0000F8000000001F0000FC000000003F0000FE000000007F0000FF000000
+        00FF0000FF80000001FF0000FFE0000003FF0000FFF800000FFF0000FFFC0000
+        3FFF0000FFFF8001FFFF0000FFFFFFFFFFFF0000280000002000000040000000
+        0100080000000000000400000000000000000000000100000001000000000000
+        06060600090909000C0C0C000A170A000D130D000F160F000C190C0011111100
+        1414140012181200181818001D1D1D000C260C000B2B0B000E280E0007340700
+        0A310A00102B1000122D12001B2A1B0014311400153A1500173D17001D351D00
+        1E3F1E002222220026262600292929002E2E2E003232320034343400353E3500
+        3A3A3A003D3D3D00064906000A490A00025502000F560F001043100016451600
+        13531300016101000067000000690000006D0000066A0600046F04000B610B00
+        08650800096909000A6F0A00007200000075000000780000007D000015661500
+        147D150021442100335034003653380026732A003F5240004141410045454500
+        494949004E4E4E004558470049534B005151510056565600595959005D5D5D00
+        4369490044744C00427C4B00437C4D006262620065656500636D660068686800
+        6F6F6F0072727200777777007C7C7C000081000000860000008A0000008E0000
+        0A820A000091000000950000029B03001083110008A10C000DA6140013AC1D00
+        1F92270024972E002D8D3700299B350019B226001EB72E002EA03C0024BD3700
+        2AC23F003B8746003D934C0033A5430037AA4A002EB441003CAF510041844C00
+        4A835600428F50004197500041B3570041B4580046B85E005C83670063927200
+        57A36B004ABC650050B96B005FAB760062AE7C0030C8480037C6510035CE5100
+        3DCC59003BD3590042D1610041D9620046DF6B004CE4730052EA7C0058E68200
+        5DEC8A0057F085005DF58D008282820085858500888888008D8D8D0090909000
+        99999900A0A0A000ACACAC000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000052400B0909091C4100000000000000000000000000000000
+        0000000000521B1B0B0B0B0B0909080808004100000000000000000000000000
+        0000008E1C1C1B1B1B1B0B0B0B09090808080008400000000000000000000000
+        0000471C1E1C1C1826313635352D2A230E080800000900000000000000000000
+        00401E1E1E1C1C192930363635352D2D312A1008080000000000000000000000
+        40211E1E1E1E1C1C1C1B18353535352D2D313125040800080000000000000051
+        212121211E1E1E1C1C1C1B3236363535230E0604040800000900000000000040
+        402121211E1E1E1E1C1C1C32363636270B0B0909080808080040000000004540
+        403C212121211E1E1E1C1C1C1B1817140B0B0B09090808010800000000004140
+        3E6140212121211E1E1E1C1C1C1B1B1B1A0B0B0B09040D1008004100004E4141
+        636240402121211E1E1E1E1C1C1C1B1B0B1B0B0B0B0B0D310808000000454144
+        6864404040212121211E1E1E1C1C1B1B1B1B1B0B0B0B0E31100808000045454A
+        696740402140212121211E1E1E1C1C1C1B1B0B1B0B0B152D2308014192454572
+        7E6C41404040402121211E1E1E1E1C1C1C1B1B1B1A0B152D2A09040B8C474775
+        806D414141404040212121211E1E1E1C1C1C1B1B0B1B15352D0909098C474776
+        826F41414140402140212121211E1E1E1C1C1C1B1B1A1735350B09098C47477A
+        847545454141404040402121211E1E1E1E3A1C1C18272D35350B0B098E4E477B
+        8583714541414141404040212121211E1E57575656365635360B0B0B004E4779
+        8685848174736A43404040402121211E1E5A575756563656321B0B40004E4E77
+        8786858482807E494140402140212121215A575757565636261B0B4E004E4E4E
+        88878685848280704141404040402121205A5A5A57575656181B1B00008E4E4E
+        7C8A87868584827F4C4441414040403B395C5A5A575757321B1B1B0000004E4E
+        4F898A8786858482807E6E676462605F5E5C5C5A5A5A573A1C1B520000005451
+        4E788B8A8786858482807E69686665605F5E5C5C5A5A381E1C1C000000000051
+        4E4E7D8B8A8786858482807E69686665605F5E5C5C591E1E1E8E000000000093
+        514E4E7D8B8A8786858482806969686665605F5E5D201E1E4700000000000000
+        8E514E4E78898A8786858482807E69686665603D212121400000000000000000
+        0091514E4E4F7C888786858482807E6968633E40402141000000000000000000
+        000093514E4E4E4E77797B7A7675727044414040405100000000000000000000
+        0000000054514E4E474E47474745454541414145000000000000000000000000
+        0000000000008E4E4E4E474747474645454F0000000000000000000000000000
+        000000000000000000008E8E8C8C9200000000000000000000000000FFF00FFF
+        FF8001FFFE00007FFC00003FF800001FF000000FE0000007E0000003C0000003
+        C000000180000001800000018000000000000000000000000000000000000000
+        0000000080000000800000008000000180000001C0000001C0000003E0000003
+        E0000007F000000FF800001FFC00003FFF0000FFFFC003FFFFFC1FFF28000000
+        1000000020000000010008000000000000010000000000000000000000010000
+        00010000000000000A0A0A00090F09000F0F0F000E140E000C190C0013131300
+        14141400111E1100181818001D1D1D00092F09000A390A00113311001B321B00
+        22222200262626002B2B2B0021322100263626003030300034343400313A3100
+        393939003E3E3E00044A04000B440B000E490E0005540500065A0600075F0700
+        124912001848180014531400155915001E521E00006A0000066A0600096A0900
+        0070000000750000007B0000146414001B631B00137B1300374A38002E713300
+        2B78300043434300474747004C4C4C004A534B00575757005A5A5A005E5E5E00
+        46634B004E6152004A7050004878510063636300656565006868680070707000
+        757575007D7D7D000081000000860000008C00000B860C000092000001980100
+        09A20E0014AD1F0022B1320020B830003A9048004B975B005D836800539F6600
+        63A679002BC442003AC0540037CF530039C8530042DA64004DE6750063C28300
+        59E8840059F187008A8A8A009191910098989800AAAAAA000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000003D110906033400000000000000003E11121F1B1A0C0503
+        1500000000003615151220252828241902060000004018181514112129250D05
+        0403150000312E1815151511120E0909060B03005A3349311818151111101009
+        091C04343E3950313118151515111010091E0C03364C52323131181815111110
+        101E1A06364E5438323131181515232226291B09594D5554534B311818182B43
+        42421F095C3D575554513731312D2C454342123D003D4F58555452504A484745
+        452A1100005C3D5658555452504A484744163D0000005B3D4F5755545250492F
+        183600000000005C3D3D4D4E4C3A33314000000000000000005C5936363E5A00
+        00000000F81F0000E0070000C003000080010000800100000000000000000000
+        000000000000000000000000000000008001000080010000C0030000E0070000
+        F81F000028000000300000006000000001002000000000008025000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000001E1E1E0F1C1C1C4F1B1B1B8F191919BF
+        171717DF161616FF141414FF131313FF111111FF0F0F0FEF0E0E0EBF0D0D0D9F
+        0B0B0B6F0A0A0A2F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000002424240F2323235F212121CF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF
+        191919FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF0E0E0EFF
+        0C0C0CFF0B0B0BFF090909DF0808088F0707071F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000000000000000000000000000002929290F
+        2727277F262626EF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF
+        1A1A1AFF191919FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF
+        0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606BF0505053F00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000002C2C2C5F2A2A2AEF
+        292929FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF
+        1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF131313FF111111FF
+        0F0F0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF0505059F
+        0505050F00000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000003131310F2F2F2FAF2E2E2EFF2C2C2CFF
+        2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF193019FF
+        143914FF0E480EFF0D460DFF0C450CFF0B430BFF0C3C0CFF0F2A0FFF111811FF
+        111111FF0F0F0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF
+        040404EF0404044F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000003434342F323232DF303030FF2F2F2FFF2E2E2EFF
+        2C2C2CFF2A2A2AFF292929FF272727FF174717FF0B620BFF027702FF007A00FF
+        007800FF007600FF007400FF007300FF007100FF006F00FF006D00FF006B00FF
+        035903FF093709FF0D1A0DFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF
+        060606FF040404FF0303038F0000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000003737372F353535EF343434FF323232FF303030FF2F2F2FFF
+        2E2E2EFF2C2C2CFF2A2A2AFF243424FF145414FF135313FF096709FF007C00FF
+        007A00FF007800FF007600FF007400FF007300FF007100FF006F00FF006D00FF
+        006B00FF006900FF006700FF044B04FF0B1E0BFF0C0C0CFF0B0B0BFF090909FF
+        080808FF060606FF040404FF0303039F00000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000003A3A3A2F383838EF373737FF353535FF343434FF323232FF303030FF
+        2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF
+        164416FF027502FF007800FF007600FF007400FF007300FF007100FF006F00FF
+        006D00FF006B00FF006900FF006700FF006600FF053F05FF0B120BFF0B0B0BFF
+        090909FF080808FF060606FF040404FF0303039F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        3D3D3D2F3C3C3CEF3A3A3AFF383838FF373737FF353535FF343434FF323232FF
+        303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF
+        242424FF1A391AFF007A00FF007800FF007600FF007400FF007300FF007100FF
+        006F00FF006D00FF006B00FF006900FF006700FF006600FF015A01FF0A1D0AFF
+        0B0B0BFF090909FF080808FF060606FF040404FF0303038F0000000000000000
+        000000000000000000000000000000000000000000000000000000004141410F
+        3F3F3FCF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF
+        323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF
+        262626FF242424FF007C00FF007A00FF007800FF007600FF007400FF007300FF
+        007100FF036403FF0B410BFF0F2A0FFF101D10FF111111FF0E150EFF0C190CFF
+        0C0C0CFF0B0B0BFF090909FF080808FF060606FF040404FF0404044F00000000
+        000000000000000000000000000000000000000000000000000000004242428F
+        404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF
+        343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF
+        272727FF262626FF007E00FF007C00FF007A00FF007800FF007600FF007400FF
+        0D460DFF191919FF171717FF161616FF141414FF131313FF111111FF0F0F0FFF
+        0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF040404EF0505050F
+        0000000000000000000000000000000000000000000000004545453F444444FF
+        424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF
+        353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF
+        292929FF272727FF008000FF007E00FF007C00FF007A00FF007800FF007600FF
+        1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF131313FF111111FF
+        0F0F0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF050505AF
+        000000000000000000000000000000000000000000000000464646BF454545FF
+        444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF
+        373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF
+        2A2A2AFF292929FF272727FF262626FF242424FF1A391AFF163D16FF104C10FF
+        1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF131313FF
+        111111FF0F0F0FFF0E0E0EFF0C0C0CFF0B0B0BFF090909FF080808FF060606FF
+        0505053F000000000000000000000000000000004A4A4A3F484848FF474747FF
+        454545FF444444FF39563BFF28742CFF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF
+        383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF
+        2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF
+        1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF141414FF
+        131313FF111111FF0F0F0FFF053F05FF0C0C0CFF0B0B0BFF090909FF080808FF
+        060606BF000000000000000000000000000000004B4B4BBF4A4A4AFF484848FF
+        474747FF454545FF22942AFF2B7730FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF
+        3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF
+        2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF
+        212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF161616FF
+        141414FF131313FF111111FF006600FF0A230AFF0C0C0CFF0B0B0BFF090909FF
+        080808FF0707072F00000000000000004F4F4F1F4D4D4DFF4B4B4BFF4A4A4AFF
+        484848FF3C6240FF1AB328FF2D7A33FF424242FF404040FF3F3F3FFF3D3D3DFF
+        3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF
+        2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF
+        222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF
+        161616FF141414FF131313FF006700FF044B04FF0E0E0EFF0C0C0CFF0B0B0BFF
+        090909FF0808088F00000000000000005050506F4F4F4FFF4D4D4DFF4B4B4BFF
+        4A4A4AFF2D973AFF1EB72EFF307C37FF444444FF424242FF404040FF3F3F3FFF
+        3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF
+        303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF
+        242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF
+        171717FF161616FF141414FF006900FF006700FF0D1A0DFF0E0E0EFF0C0C0CFF
+        0B0B0BFF090909EF0000000000000000525252BF505050FF4F4F4FFF4D4D4DFF
+        49534AFF26BE39FF22BB34FF327F3BFF454545FF444444FF424242FF404040FF
+        3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF
+        323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF
+        262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF
+        191919FF171717FF161616FF006B00FF006900FF074207FF0F0F0FFF0E0E0EFF
+        0C0C0CFF0B0B0BFF0A0A0A2F00000000535353FF525252FF505050FF4F4F4FFF
+        417A49FF2AC23FFF26BE39FF35823EFF474747FF454545FF444444FF424242FF
+        404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF
+        343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF
+        272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF
+        1A1A1AFF191919FF171717FF006D00FF006B00FF035903FF111111FF0F0F0FFF
+        0E0E0EFF0C0C0CFF0B0B0B6F5656563F555555FF535353FF525252FF505050FF
+        3C9B4CFF2DC644FF2AC23FFF388442FF484848FF474747FF454545FF444444FF
+        424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF
+        353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF
+        292929FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF1E1E1EFF
+        1C1C1CFF1A1A1AFF191919FF006F00FF006D00FF006B00FF111811FF111111FF
+        0F0F0FFF0E0E0EFF0C0C0CAF5858584F575757FF555555FF535353FF525252FF
+        3BAE50FF31CA4AFF2DC644FF3B8745FF4A4A4AFF484848FF474747FF454545FF
+        444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF
+        373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF
+        2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF1F1F1FFF
+        1E1E1EFF1C1C1CFF1A1A1AFF007100FF006F00FF006D00FF0F2A0FFF131313FF
+        111111FF0F0F0FFF0E0E0EBF5959597F585858FF575757FF555555FF535353FF
+        39D156FF35CD50FF31CA4AFF3D8949FF4B4B4BFF4A4A4AFF484848FF474747FF
+        454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF
+        383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF2E2E2EFF
+        2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF212121FF
+        1F1F1FFF1E1E1EFF1C1C1CFF007300FF007100FF006F00FF0C3C0CFF141414FF
+        131313FF111111FF0F0F0FFF5B5B5B7F595959FF585858FF575757FF555555FF
+        3DD55BFF39D156FF35CD50FF408C4DFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF
+        474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF
+        3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF2F2F2FFF
+        2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF222222FF
+        212121FF1F1F1FFF1E1E1EFF007400FF007300FF007100FF0B430BFF161616FF
+        141414FF131313FF111111FF5C5C5C7F5B5B5BFF595959FF585858FF575757FF
+        40D961FF3DD55BFF39D156FF438F51FF4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF
+        484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF
+        3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF303030FF
+        2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF242424FF
+        222222FF212121FF1F1F1FFF007600FF007400FF007300FF0C450CFF171717FF
+        161616FF141414FF131313FF5E5E5E7F5D5D5DFF5B5B5BFF595959FF585858FF
+        44DD67FF40D961FF3DD55BFF459254FF505050FF4F4F4FFF4D4D4DFF4B4B4BFF
+        4A4A4AFF484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF
+        3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF323232FF
+        303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF262626FF
+        242424FF202820FF0C590CFF007800FF007600FF007400FF0D460DFF191919FF
+        171717FF161616FF141414FF6060607F5E5E5EFF5D5D5DFF5B5B5BFF595959FF
+        48E06DFF44DD67FF40D961FF45A459FF525252FF505050FF4F4F4FFF4D4D4DFF
+        4B4B4BFF4A4A4AFF484848FF474747FF454545FF444444FF424242FF404040FF
+        3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF343434FF
+        323232FF303030FF1D511DFF0E6D0EFF155A15FF155815FF145614FF0E600EFF
+        076F07FF007E00FF007C00FF007A00FF007800FF007600FF0E480EFF1A1A1AFF
+        191919FF171717FF161616FF6161617F606060FF5E5E5EFF5D5D5DFF5B5B5BFF
+        4CDB71FF48E06DFF44DD67FF40D961FF479C58FF4F6252FF505050FF4F4F4FFF
+        4D4D4DFF4B4B4BFF4A4A4AFF484848FF474747FF454545FF444444FF424242FF
+        404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF353535FF
+        343434FF323232FF185F18FF008B00FF008900FF008700FF008500FF008400FF
+        008200FF008000FF007E00FF007C00FF007A00FF007800FF143914FF1C1C1CFF
+        1A1A1AFF191919FF171717DF6262623F616161FF606060FF5E5E5EFF5D5D5DFF
+        52C470FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF3EB955FF419751FF
+        408C4DFF456B4BFF436948FF416746FF484848FF474747FF454545FF444444FF
+        424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF373737FF
+        353535FF343434FF196019FF008D00FF008B00FF008900FF008700FF008500FF
+        008400FF008200FF008000FF007E00FF007C00FF007A00FF193019FF1E1E1EFF
+        1C1C1CFF1A1A1AFF191919BF6464641F636363FF616161FF606060FF5E5E5EFF
+        58A46DFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF
+        35CD50FF31CA4AFF2DC644FF2AC23FFF4A4A4AFF484848FF474747FF454545FF
+        444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF383838FF
+        373737FF353535FF1A621AFF008F00FF008D00FF008B00FF008900FF008700FF
+        008500FF008400FF008200FF008000FF007E00FF027702FF212121FF1F1F1FFF
+        1E1E1EFF1C1C1CFF1B1B1B8F00000000656565DF636363FF616161FF606060FF
+        5D7965FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF
+        39D156FF35CD50FF31CA4AFF2DC644FF4B4B4BFF4A4A4AFF484848FF474747FF
+        454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF3A3A3AFF
+        383838FF373737FF1B641BFF009100FF008F00FF008D00FF008B00FF008900FF
+        008700FF008500FF008400FF008200FF008000FF0B620BFF222222FF212121FF
+        1F1F1FFF1E1E1EFF1C1C1C5F000000006666669F656565FF636363FF616161FF
+        606060FF58DD7FFF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF
+        3DD55BFF39D156FF35CD50FF31CA4AFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF
+        474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3C3C3CFF
+        3A3A3AFF383838FF1B661BFF009300FF009100FF008F00FF008D00FF008B00FF
+        008900FF008700FF008500FF008400FF008200FF174717FF242424FF222222FF
+        212121FF1F1F1FFF1E1E1E0F000000006767674F666666FF656565FF636363FF
+        616161FF5DA974FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF
+        40D961FF3DD55BFF39D156FF35CD50FF447D4EFF4D4D4DFF4B4B4BFF4A4A4AFF
+        484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF
+        3C3C3CFF3A3A3AFF0E7F0EFF009500FF009300FF009100FF008F00FF008D00FF
+        008B00FF008900FF008700FF008500FF027E02FF272727FF262626FF242424FF
+        222222FF212121CF000000000000000000000000686868EF666666FF656565FF
+        636363FF616B64FF5BEA87FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF
+        44DD67FF40D961FF3DD55BFF39D156FF35CD50FF3C9C4DFF47644CFF4B4B4BFF
+        4A4A4AFF484848FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF
+        2C5C2EFF128413FF009900FF009700FF009500FF009300FF009100FF008F00FF
+        008D00FF008B00FF008900FF008700FF155815FF292929FF272727FF262626FF
+        242424FF2323235F0000000000000000000000006969697F686868FF666666FF
+        656565FF636363FF60AC78FF5BF38AFF57EF84FF53EC7EFF50E878FF4CE473FF
+        48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF
+        32A442FF2FA13EFF35823EFF327F3BFF2D8335FF22942BFF1F9126FF0FA817FF
+        0BA411FF07A00BFF049D05FF009900FF009700FF009500FF009300FF009100FF
+        008F00FF008D00FF008B00FF028402FF293229FF2A2A2AFF292929FF272727FF
+        262626EF2424240F0000000000000000000000006A6A6A1F696969EF686868FF
+        666666FF656565FF636363FF5FDA86FF5BF38AFF57EF84FF53EC7EFF50E878FF
+        4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF
+        2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF16AF22FF13AC1CFF
+        0FA817FF0BA411FF07A00BFF049D05FF009900FF009700FF009500FF009300FF
+        009100FF008F00FF008D00FF204C20FF2E2E2EFF2C2C2CFF2A2A2AFF292929FF
+        2727277F00000000000000000000000000000000000000006A6A6A7F696969FF
+        686868FF666666FF656565FF637F6CFF5FED8CFF5BF38AFF57EF84FF53EC7EFF
+        50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF
+        31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF16AF22FF
+        13AC1CFF0FA817FF0BA411FF07A00BFF049D05FF009900FF009700FF009500FF
+        009300FF009100FF136C13FF303030FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AEF
+        2929290F00000000000000000000000000000000000000006B6B6B0F6A6A6ADF
+        696969FF686868FF666666FF656565FF629B75FF5FF78FFF5BF38AFF57EF84FF
+        53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF
+        35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF1AB328FF
+        16AF22FF13AC1CFF0FA817FF0BA411FF07A00BFF049D05FF009900FF009700FF
+        009500FF0A810AFF343434FF323232FF303030FF2F2F2FFF2E2E2EFF2C2C2C6F
+        000000000000000000000000000000000000000000000000000000006B6B6B3F
+        6A6A6AFF696969FF686868FF666666FF656565FF629B75FF5FF78FFF5BF38AFF
+        57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF3DD55BFF
+        39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF1EB72EFF
+        1AB328FF16AF22FF13AC1CFF0FA817FF0BA411FF07A00BFF049D05FF009900FF
+        0A850AFF333D33FF353535FF343434FF323232FF303030FF2F2F2FBF00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        6B6B6B8F6A6A6AFF696969FF686868FF666666FF656565FF629B75FF5FF78FFF
+        5BF38AFF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF40D961FF
+        3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF22BB34FF
+        1EB72EFF1AB328FF16AF22FF13AC1CFF0FA817FF0BA411FF07A00BFF128413FF
+        364036FF383838FF373737FF353535FF343434FF323232EF3131310F00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000006B6B6B9F6A6A6AFF696969FF686868FF666666FF656565FF637F6CFF
+        5FDA86FF5BF38AFF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF44DD67FF
+        40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF26BE39FF
+        22BB34FF1EB72EFF1AB328FF16AF22FF13AC1CFF0FA817FF257127FF3D3D3DFF
+        3C3C3CFF3A3A3AFF383838FF373737FF353535EF3434342F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000006B6B6B0F6B6B6BCF6A6A6AFF696969FF686868FF666666FF656565FF
+        636363FF60AC78FF5BEA87FF57EF84FF53EC7EFF50E878FF4CE473FF48E06DFF
+        44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF2AC23FFF
+        26BE39FF22BB34FF1EB72EFF1AB328FF22942AFF39563BFF404040FF3F3F3FFF
+        3D3D3DFF3C3C3CFF3A3A3AFF383838EF3737372F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000006B6B6B0F6B6B6B9F6A6A6AFF696969FF686868FF666666FF
+        656565FF636363FF616B64FF5DA974FF58DD7FFF53EC7EFF50E878FF4CE473FF
+        48E06DFF44DD67FF40D961FF3DD55BFF39D156FF35CD50FF31CA4AFF2DC644FF
+        2AC23FFF26BE39FF2D973AFF3C6240FF454545FF444444FF424242FF404040FF
+        3F3F3FFF3D3D3DFF3C3C3CEF3A3A3A2F00000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000006B6B6B8F6A6A6AFF696969FF686868FF
+        666666FF656565FF636363FF616161FF606060FF5C8267FF58A46DFF52C470FF
+        4CDB71FF48E06DFF44DD67FF40D961FF3DD55BFF39D156FF3AB650FF3C9B4CFF
+        417A49FF49534AFF4A4A4AFF484848FF474747FF454545FF444444FF424242FF
+        404040FF3F3F3FCF3D3D3D2F0000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000000000000000000000000006B6B6B3F6A6A6ADF696969FF
+        686868FF666666FF656565FF636363FF616161FF606060FF5E5E5EFF5D5D5DFF
+        5B5B5BFF595959FF585858FF575757FF555555FF535353FF525252FF505050FF
+        4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF474747FF454545FF444444FF
+        4242428F4141410F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000006B6B6B0F6A6A6A7F
+        696969FF686868FF666666FF656565FF636363FF616161FF606060FF5E5E5EFF
+        5D5D5DFF5B5B5BFF595959FF585858FF575757FF555555FF535353FF525252FF
+        505050FF4F4F4FFF4D4D4DFF4B4B4BFF4A4A4AFF484848FF464646BF4545453F
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        6A6A6A1F6969698F686868EF666666FF656565FF636363FF616161FF606060FF
+        5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF575757FF555555FF535353FF
+        525252FF505050FF4F4F4FFF4D4D4DFF4B4B4BBF4A4A4A3F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000006767674F6666669F656565EF636363FF616161FF
+        606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF575757FF555555FF
+        535353FF525252BF5050506F4F4F4F1F00000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000006464641F6262623F
+        6161617F6060607F5E5E5E7F5C5C5C7F5B5B5B7F5959597F5858585F5656563F
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000FFFF8001FFFF0000FFFC00003FFF0000FFF00000
+        0FFF0000FFE0000003FF0000FF80000001FF0000FF00000000FF0000FE000000
+        007F0000FC000000003F0000F8000000001F0000F0000000000F0000F0000000
+        00070000E000000000070000E000000000030000C000000000030000C0000000
+        0001000080000000000100008000000000010000800000000000000080000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000800000000000000080000000
+        000000008000000000010000C000000000010000C000000000010000C0000000
+        00030000E000000000030000E000000000070000F0000000000F0000F8000000
+        000F0000FC000000001F0000FC000000003F0000FE000000007F0000FF800000
+        00FF0000FFC0000001FF0000FFE0000007FF0000FFF800001FFF0000FFFF0000
+        7FFF0000FFFFE007FFFF00002800000020000000400000000100200000000000
+        8010000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000000000000000000000000000002121210F
+        1F1F1F5F1D1D1D9F1A1A1ACF181818FF151515FF131313FF101010FF0E0E0EDF
+        0C0C0CBF0A0A0A6F0808081F0000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000000000000000000000000002929291F2626269F232323FF
+        212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF101010FF
+        0E0E0EFF0C0C0CFF090909FF070707BF0606063F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000002D2D2D8F2A2A2AFF282828FF262626FF
+        232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF
+        101010FF0E0E0EFF0C0C0CFF090909FF070707FF050505BF0404041F00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000003434341F323232CF2F2F2FFF2D2D2DFF2A2A2AFF282828FF
+        1E371EFF0F560FFF086408FF007800FF007500FF007200FF006F00FF026102FF
+        064906FF0B2B0BFF0E0E0EFF0C0C0CFF090909FF070707FF050505EF0303034F
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000003939392F363636EF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF
+        1E3F1EFF135313FF0B610BFF007A00FF007800FF007500FF007200FF006F00FF
+        006C00FF006900FF006100FF073407FF0C0C0CFF090909FF070707FF050505FF
+        0303035F00000000000000000000000000000000000000000000000000000000
+        3E3E3E0F3B3B3BEF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF
+        2A2A2AFF282828FF262626FF1D341DFF027502FF007800FF007500FF007200FF
+        006F00FF006C00FF006900FF006700FF025502FF0A170AFF090909FF070707FF
+        050505FF0303034F000000000000000000000000000000000000000000000000
+        404040BF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF
+        2D2D2DFF2A2A2AFF282828FF262626FF096709FF007A00FF007800FF007500FF
+        007200FF0A490AFF102B10FF121812FF0F160FFF0C190CFF0C0C0CFF090909FF
+        070707FF050505EF0404041F000000000000000000000000000000004444446F
+        424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF
+        2F2F2FFF2D2D2DFF2A2A2AFF282828FF096909FF007D00FF007A00FF007800FF
+        104310FF1A1A1AFF181818FF151515FF131313FF101010FF0E0E0EFF0C0C0CFF
+        090909FF070707FF050505BF0000000000000000000000004A4A4A0F474747EF
+        444444FF424242FF365338FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF
+        323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF1D341DFF173D17FF
+        1B2A1BFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF101010FF0D130DFF
+        0C0C0CFF090909FF070707FF0606063F00000000000000004B4B4B7F494949FF
+        474747FF3F5240FF1F9227FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF
+        343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF232323FF
+        212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF131313FF0C260CFF
+        073407FF0C0C0CFF090909FF070707BF00000000000000004E4E4EDF4B4B4BFF
+        494949FF2D8D37FF24972EFF424242FF404040FF3D3D3DFF3B3B3BFF393939FF
+        363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF
+        232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF151515FF0E280EFF
+        006100FF0E0E0EFF0C0C0CFF090909FF0808081F5252522F505050FF4E4E4EFF
+        49534BFF24BD37FF299B35FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF
+        393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF
+        262626FF232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF181818FF102B10FF
+        006900FF0A310AFF0E0E0EFF0C0C0CFF0A0A0A6F5555556F535353FF505050FF
+        44744CFF2AC23FFF2EA03CFF474747FF444444FF424242FF404040FF3D3D3DFF
+        3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF
+        282828FF262626FF232323FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF122D12FF
+        006C00FF064906FF101010FF0E0E0EFF0C0C0CBF5757578F555555FF535353FF
+        428F50FF30C848FF33A543FF494949FF474747FF444444FF424242FF404040FF
+        3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF2D2D2DFF
+        2A2A2AFF282828FF262626FF232323FF212121FF1F1F1FFF1C1C1CFF143014FF
+        006F00FF026102FF131313FF101010FF0E0E0EEF595959BF575757FF555555FF
+        41B357FF35CE51FF37AA4AFF4B4B4BFF494949FF474747FF444444FF424242FF
+        404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF2F2F2FFF
+        2D2D2DFF2A2A2AFF282828FF262626FF232323FF212121FF1F1F1FFF153215FF
+        007200FF006F00FF151515FF131313FF101010FF5C5C5CBF5A5A5AFF575757FF
+        46B85EFF3BD359FF3CAF51FF4E4E4EFF4B4B4BFF494949FF474747FF444444FF
+        424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF323232FF
+        2F2F2FFF2D2D2DFF2A2A2AFF282828FF262626FF232323FF212121FF153A15FF
+        007500FF007200FF181818FF151515FF131313FF5E5E5EBF5C5C5CFF5A5A5AFF
+        4ABC65FF41D962FF41B458FF505050FF4E4E4EFF4B4B4BFF494949FF474747FF
+        444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF343434FF
+        323232FF2F2F2FFF214421FF2A2A2AFF282828FF1E371EFF164516FF046F04FF
+        007800FF007500FF1A1A1AFF181818FF151515FF616161BF5F5F5FFF5C5C5CFF
+        50B96BFF46DF6BFF42D161FF4A8356FF505050FF4E4E4EFF4B4B4BFF494949FF
+        474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF363636FF
+        343434FF323232FF008B00FF008900FF008600FF008300FF008000FF007D00FF
+        007A00FF007800FF1C1C1CFF1A1A1AFF181818FF6363637F616161FF5F5F5FFF
+        57A36BFF4CE473FF46DF6BFF41D962FF3DCC59FF3CAF51FF3D934CFF3B8746FF
+        455847FF474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF393939FF
+        363636FF343434FF008E00FF008B00FF008900FF008600FF008300FF008000FF
+        007D00FF066A06FF1F1F1FFF1C1C1CFF1A1A1ACF6565655F636363FF616161FF
+        5C8367FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF
+        436949FF494949FF474747FF444444FF424242FF404040FF3D3D3DFF3B3B3BFF
+        393939FF363636FF009100FF008E00FF008B00FF008900FF008600FF008300FF
+        008000FF0F560FFF212121FF1F1F1FFF1D1D1DAF6767671F666666FF636363FF
+        616161FF58E682FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF
+        41844CFF4B4B4BFF494949FF474747FF444444FF424242FF404040FF3D3D3DFF
+        3B3B3BFF353E35FF009400FF009100FF008E00FF008B00FF008900FF008600FF
+        008300FF1E371EFF232323FF212121FF1F1F1F5F00000000676767BF666666FF
+        636363FF5FAB76FF57F085FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF
+        37C651FF437C4DFF49534BFF494949FF474747FF444444FF424242FF404040FF
+        335034FF147D15FF009700FF009400FF009100FF008E00FF008B00FF008900FF
+        0A6F0AFF282828FF262626FF232323FF2121210F000000006A6A6A5F686868FF
+        666666FF636D66FF5DEC8AFF57F085FF52EA7CFF4CE473FF46DF6BFF41D962FF
+        3BD359FF35CE51FF30C848FF2EB441FF2EA03CFF299B35FF24972EFF13AC1DFF
+        0DA614FF08A10CFF029B03FF009700FF009400FF009100FF008E00FF008B00FF
+        214421FF2A2A2AFF282828FF2626269F0000000000000000000000006A6A6ADF
+        686868FF666666FF639272FF5DF58DFF57F085FF52EA7CFF4CE473FF46DF6BFF
+        41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF1EB72EFF19B226FF
+        13AC1DFF0DA614FF08A10CFF029B03FF009700FF009400FF009100FF156615FF
+        2F2F2FFF2D2D2DFF2A2A2AFF2929291F0000000000000000000000006B6B6B3F
+        6A6A6AFF686868FF666666FF62AE7CFF5DF58DFF57F085FF52EA7CFF4CE473FF
+        46DF6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF1EB72EFF
+        19B226FF13AC1DFF0DA614FF08A10CFF029B03FF009700FF0A820AFF343434FF
+        323232FF2F2F2FFF2D2D2D8F0000000000000000000000000000000000000000
+        6B6B6B8F6A6A6AFF686868FF666666FF62AE7CFF5DF58DFF57F085FF52EA7CFF
+        4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF24BD37FF
+        1EB72EFF19B226FF13AC1DFF0DA614FF08A10CFF108311FF353E35FF363636FF
+        343434FF323232CF3030300F0000000000000000000000000000000000000000
+        000000006B6B6BBF6A6A6AFF686868FF666666FF639272FF5DEC8AFF57F085FF
+        52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF2AC23FFF
+        24BD37FF1EB72EFF19B226FF13AC1DFF26732AFF3D3D3DFF3B3B3BFF393939FF
+        363636EF3434341F000000000000000000000000000000000000000000000000
+        000000006B6B6B0F6B6B6BAF6A6A6AFF686868FF666666FF636D66FF5FAB76FF
+        58E682FF52EA7CFF4CE473FF46DF6BFF41D962FF3BD359FF35CE51FF30C848FF
+        2AC23FFF24BD37FF2D8D37FF3F5240FF424242FF404040FF3D3D3DFF3B3B3BEF
+        3939392F00000000000000000000000000000000000000000000000000000000
+        0000000000000000000000006B6B6B8F6A6A6AFF686868FF666666FF636363FF
+        616161FF5C8367FF57A36BFF50B96BFF4ABC65FF46B85EFF41B357FF419750FF
+        427C4BFF49534BFF494949FF474747FF444444FF424242FF404040BF3E3E3E0F
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000006B6B6B3F6A6A6ADF686868FF666666FF
+        636363FF616161FF5F5F5FFF5C5C5CFF5A5A5AFF575757FF555555FF535353FF
+        505050FF4E4E4EFF4B4B4BFF494949FF474747EF4444446F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000006A6A6A5F676767BF
+        666666FF636363FF616161FF5F5F5FFF5C5C5CFF5A5A5AFF575757FF555555FF
+        535353FF505050FF4E4E4EDF4B4B4B7F4A4A4A0F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        6767671F6565655F6363637F616161BF5E5E5EBF5C5C5CBF595959BF5757578F
+        5555556F5252522F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000FFC003FFFF0000FFFE00003F
+        F800001FF000000FE0000007E0000003C0000003800000018000000180000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000008000000080000001C0000001C0000003E0000003F0000007
+        F000000FFC00001FFE00007FFF8000FFFFE007FF280000001000000020000000
+        0100200000000000400400000000000000000000000000000000000000000000
+        0000000000000000000000002727273F222222AF1D1D1DEF181818FF131313FF
+        0F0F0FFF0B0B0BAF0707075F0000000000000000000000000000000000000000
+        000000003535350F303030AF2B2B2BFF213221FF124912FF0E490EFF0B440BFF
+        0A390AFF0C190CFF0A0A0AFF060606CF0404041F000000000000000000000000
+        3E3E3E0F393939CF343434FF303030FF263626FF184818FF066A06FF007500FF
+        007000FF006A00FF044A04FF090F09FF050505EF0404041F0000000000000000
+        424242AF3E3E3EFF393939FF343434FF303030FF2B2B2BFF145314FF007B00FF
+        017001FF113311FF111E11FF0E140EFF0A0A0AFF060606CF000000004B4B4B3F
+        474747FF2E7133FF3E3E3EFF393939FF343434FF303030FF2B2B2BFF223222FF
+        1B321BFF1D1D1DFF181818FF131313FF092F09FF0A0A0AFF0707075F5050509F
+        4A534BFF22B132FF434343FF3E3E3EFF393939FF343434FF303030FF2B2B2BFF
+        262626FF222222FF1D1D1DFF181818FF055405FF0C190CFF0B0B0BAF555555CF
+        4A7050FF2BC442FF474747FF434343FF3E3E3EFF393939FF343434FF303030FF
+        2B2B2BFF262626FF222222FF1D1D1DFF065A06FF0A390AFF0F0F0FFF5A5A5AFF
+        4B975BFF37CF53FF4C4C4CFF474747FF434343FF3E3E3EFF393939FF343434FF
+        303030FF2B2B2BFF262626FF222222FF075F07FF0B440BFF131313FF5F5F5FFF
+        539F66FF42DA64FF4E6152FF4C4C4CFF474747FF434343FF3E3E3EFF393939FF
+        343434FF1E521EFF155915FF096A09FF007B00FF0E490EFF181818FF636363BF
+        5D8368FF4DE675FF42DA64FF39C853FF3A9048FF474747FF434343FF3E3E3EFF
+        393939FF1B631BFF008C00FF008600FF008100FF124912FF1D1D1DFF6868688F
+        646464FF59E884FF4DE675FF42DA64FF3AC054FF46634BFF474747FF434343FF
+        374A38FF137B13FF009200FF008C00FF008600FF213221FF222222AF6A6A6A1F
+        686868FF63A679FF59F187FF4DE675FF42DA64FF37CF53FF2BC442FF20B830FF
+        14AD1FFF09A20EFF019801FF009200FF146414FF2B2B2BFF2727273F00000000
+        6A6A6A8F686868FF63C283FF59F187FF4DE675FF42DA64FF37CF53FF2BC442FF
+        20B830FF14AD1FFF09A20EFF0B860CFF313A31FF303030BF0000000000000000
+        000000006A6A6AAF686868FF63A679FF59E884FF4DE675FF42DA64FF37CF53FF
+        2BC442FF22B132FF2B7830FF3E3E3EFF393939CF3535350F0000000000000000
+        00000000000000006A6A6A8F686868FF646464FF5D8368FF539F66FF4B975BFF
+        487851FF4A534BFF474747FF424242AF3E3E3E0F000000000000000000000000
+        0000000000000000000000006A6A6A1F6868688F636363BF5F5F5FFF5A5A5AFF
+        555555CF5050509F4B4B4B3F00000000000000000000000000000000F00F0000
+        C003000080010000800100000000000000000000000000000000000000000000
+        00000000000000000000000080010000C0010000E0030000F00F0000}
+    end
+    inherited Label1: TLabel
+      Width = 232
+      Caption = 'New Data Abstract Server Project Wizard'
+    end
+    inherited Label2: TLabel
+      Width = 483
+      Caption = 
+        'This wizard will guide you through the configuration of your Dat' +
+        'a Abstract client and server projects.'
+    end
+  end
+  inherited pc_Pages: TPageControl
+    Width = 569
+    Height = 214
+    ActivePage = ts_SM
+    inherited ts_Welcome: TTabSheet
+      inherited Label3: TLabel
+        Width = 324
+        Caption = 'Welcome to the New Data Abstract Server Project Wizard'
+      end
+      inherited Label4: TLabel
+        Width = 483
+        Caption = 
+          'This wizard will guide you through the configuration of your Dat' +
+          'a Abstract client and server projects.'
+      end
+      object Label7: TLabel
+        Left = 24
+        Top = 56
+        Width = 332
+        Height = 13
+        Caption = 
+          'To complete this task, the wizard will run through the following' +
+          ' steps:'
+      end
+      object Label8: TLabel
+        Left = 32
+        Top = 72
+        Width = 256
+        Height = 13
+        Caption = '- Launch Schema Modeler and configure your Schema'
+      end
+      object Label9: TLabel
+        Left = 32
+        Top = 88
+        Width = 198
+        Height = 13
+        Caption = '- Build and launch your Server application'
+      end
+      object Label10: TLabel
+        Left = 32
+        Top = 104
+        Width = 161
+        Height = 13
+        Caption = '- Add Data Tables to your project'
+      end
+    end
+    object ts_SM: TTabSheet [1]
+      Caption = 'ts_SM'
+      ImageIndex = 2
+      object Label11: TLabel
+        Left = 8
+        Top = 8
+        Width = 371
+        Height = 13
+        Caption = 'Step 1: Run Schema Modeler to define and configure your Schema'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label12: TLabel
+        Left = 24
+        Top = 24
+        Width = 381
+        Height = 13
+        Caption = 
+          'As the first step, the wizard will launch Schema Modeler to defi' +
+          'ne your Schema.'
+      end
+      object Label13: TLabel
+        Left = 24
+        Top = 56
+        Width = 448
+        Height = 26
+        Caption = 
+          'The Schema Modeler provides a very easy visual interface for man' +
+          'aging the connections and datasets available on the server and w' +
+          'hich of those are accessible by clients.'
+        WordWrap = True
+      end
+      object lbl_SMLaunching: TLabel
+        Left = 24
+        Top = 104
+        Width = 506
+        Height = 13
+        Caption = 
+          'Please follow steps in Schema Modeler and close the modeler to c' +
+          'ontinue with this wizard.'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+        Transparent = True
+        Visible = False
+      end
+      object Label15: TLabel
+        Left = 8
+        Top = 175
+        Width = 497
+        Height = 13
+        Caption = 
+          'Tip: You can always launch Schema Modeler again by simply double' +
+          '-clicking the TDASchema component.'
+      end
+      object lbl_SMClickNext: TLabel
+        Left = 24
+        Top = 104
+        Width = 229
+        Height = 13
+        Caption = 'Click "Next >>" now to launch Schema Modeler.'
+        Transparent = True
+      end
+    end
+    object ts_Compile: TTabSheet [2]
+      Caption = 'ts_Compile'
+      ImageIndex = 3
+      object Label16: TLabel
+        Left = 8
+        Top = 8
+        Width = 290
+        Height = 13
+        Caption = 'Step 2: Compile and Launch Your Server Application'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label17: TLabel
+        Left = 24
+        Top = 24
+        Width = 408
+        Height = 13
+        Caption = 
+          'As the second step, the wizard will now compile your server appl' +
+          'ication and launch it.'
+      end
+      object lbl_CompileBuilding: TLabel
+        Left = 24
+        Top = 104
+        Width = 124
+        Height = 13
+        Caption = 'Compiling Project(s)...'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+        Transparent = True
+        Visible = False
+      end
+      object Label19: TLabel
+        Left = 24
+        Top = 56
+        Width = 441
+        Height = 26
+        Caption = 
+          'This will allow your client code to connect to the live server a' +
+          's you proceed to configure the client application.'
+        WordWrap = True
+      end
+      object lbl_CompileClickNext: TLabel
+        Left = 24
+        Top = 104
+        Width = 253
+        Height = 13
+        Caption = 'Click "Next >>" now to build and launch your server.'
+        Transparent = True
+      end
+      object lbl_CompileLaunching: TLabel
+        Left = 24
+        Top = 104
+        Width = 173
+        Height = 13
+        Caption = 'Launching Server Application...'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+        Transparent = True
+        Visible = False
+      end
+    end
+    object ts_DataTables: TTabSheet [3]
+      Caption = 'ts_DataTables'
+      ImageIndex = 4
+      object Label18: TLabel
+        Left = 8
+        Top = 8
+        Width = 300
+        Height = 13
+        Caption = 'Step 3: Create Data Tables components for your data'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label20: TLabel
+        Left = 24
+        Top = 24
+        Width = 485
+        Height = 26
+        Caption = 
+          'Finally, the wizard will launch the Create Data Tables dialog, w' +
+          'hich wll allow you to add one ore more TDADataTable components t' +
+          'o your client project to access your data.'
+        WordWrap = True
+      end
+      object Label21: TLabel
+        Left = 8
+        Top = 175
+        Width = 533
+        Height = 13
+        Caption = 
+          'Tip: You can invoke this dialog again by right-clicking the Remo' +
+          'teDataAdapter component on your data module.'
+      end
+      object lbl_DataTableClickNext: TLabel
+        Left = 24
+        Top = 104
+        Width = 171
+        Height = 13
+        Caption = 'Click "Next >>" to launch the dialog'
+      end
+    end
+    object ts_FinishMulti: TTabSheet [4]
+      Caption = 'ts_FinishMulti'
+      ImageIndex = 5
+      object Label30: TLabel
+        Left = 24
+        Top = 175
+        Width = 342
+        Height = 13
+        Caption = 
+          'Also make sure to check our articles and FAQ on the web for more' +
+          ' info:'
+      end
+      object Label31: TLabel
+        Left = 370
+        Top = 175
+        Width = 153
+        Height = 13
+        Cursor = crHandPoint
+        Caption = 'http://www.remobjects.com?da'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clBlue
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsUnderline]
+        ParentFont = False
+        OnClick = lb_LinkClick
+      end
+      object Label22: TLabel
+        Left = 8
+        Top = 8
+        Width = 49
+        Height = 13
+        Caption = 'That'#39's it!'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label23: TLabel
+        Left = 24
+        Top = 24
+        Width = 503
+        Height = 26
+        Caption = 
+          'You'#39're now ready to build your client application according to t' +
+          'he standard Delphi TDataSet practices you are used to.'
+        WordWrap = True
+      end
+      object Label24: TLabel
+        Left = 24
+        Top = 56
+        Width = 490
+        Height = 26
+        Caption = 
+          'For example, you could drop a DataGrid or other data-aware compon' +
+          'ents on your Main form and hook them up to the Data Tables that ' +
+          'you created in the previous step.'
+        WordWrap = True
+      end
+    end
+    object ts_FinishServer: TTabSheet [5]
+      Caption = 'ts_FinishServer'
+      ImageIndex = 6
+      object Label25: TLabel
+        Left = 8
+        Top = 8
+        Width = 49
+        Height = 13
+        Caption = 'That'#39's it!'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label26: TLabel
+        Left = 24
+        Top = 24
+        Width = 248
+        Height = 13
+        Caption = 'Your Data Abstract server application is now ready.'
+        WordWrap = True
+      end
+      object Label28: TLabel
+        Left = 24
+        Top = 175
+        Width = 342
+        Height = 13
+        Caption = 
+          'Also make sure to check our articles and FAQ on the web for more' +
+          ' info:'
+      end
+      object lb_Link: TLabel
+        Left = 370
+        Top = 175
+        Width = 153
+        Height = 13
+        Cursor = crHandPoint
+        Caption = 'http://www.remobjects.com?da'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clBlue
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsUnderline]
+        ParentFont = False
+        OnClick = lb_LinkClick
+      end
+    end
+  end
+  inherited Panel2: TPanel
+    Top = 258
+    Width = 569
+    inherited btn_Finish: TBitBtn
+      Left = 489
+    end
+    inherited btn_Cancel: TBitBtn
+      Caption = 'Close'
+    end
+    inherited btn_Next: TBitBtn
+      Left = 489
+    end
+    inherited btn_Back: TBitBtn
+      Left = 409
+      Visible = False
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAGuideWizardForm.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAGuideWizardForm.pas
new file mode 100644
index 0000000..812138a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAGuideWizardForm.pas	
@@ -0,0 +1,257 @@
+unit uDAGuideWizardForm;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - IDE Library                                        }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uROIDEPrjWizard, uEWWizard, StdCtrls, Buttons, ComCtrls,
+  ExtCtrls;
+
+type
+  TDAGuideWizardForm = class(TEWWizardForm)
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    ts_SM: TTabSheet;
+    ts_Compile: TTabSheet;
+    ts_DataTables: TTabSheet;
+    Label11: TLabel;
+    Label12: TLabel;
+    Label13: TLabel;
+    lbl_SMLaunching: TLabel;
+    Label15: TLabel;
+    Label16: TLabel;
+    Label17: TLabel;
+    lbl_CompileBuilding: TLabel;
+    Label19: TLabel;
+    lbl_CompileClickNext: TLabel;
+    lbl_CompileLaunching: TLabel;
+    Label18: TLabel;
+    Label20: TLabel;
+    Label21: TLabel;
+    lbl_DataTableClickNext: TLabel;
+    ts_FinishMulti: TTabSheet;
+    ts_FinishServer: TTabSheet;
+    Label25: TLabel;
+    Label26: TLabel;
+    Label28: TLabel;
+    lb_Link: TLabel;
+    Label30: TLabel;
+    Label31: TLabel;
+    Label22: TLabel;
+    Label23: TLabel;
+    Label24: TLabel;
+    lbl_SMClickNext: TLabel;
+    procedure lb_LinkClick(Sender: TObject);
+  private
+    fNewProjectInfo: TROIDENewProjectInfo;
+    fTempSchema, fTempConnections: string;
+  protected
+    procedure OnEnterPage(aPage:TTabSheet; aMovingForward:boolean); override;
+    procedure OnLeavePage(aPage:TTabSheet; aMovingForward:boolean); override;
+  public
+    constructor Create(aNewProjectInfo: TROIDENewProjectInfo); reintroduce;
+    destructor Destroy; override;
+  end;
+
+var
+  DAGuideWizardForm: TDAGuideWizardForm;
+
+implementation
+
+uses
+  ShellAPI,
+  uROIDETools, ToolsAPI, uROClasses, uDAIDEMenu, uDAClasses, uDAInterfaces,
+  uDAEngine, uDADataTableWizards, uDADataTable, uDADataAdapter;
+
+procedure OnNewProject(aNewProjectInfo: TROIDENewProjectInfo);
+begin
+  if Pos('DAGuideWizard', aNewProjectInfo.Wizard) <> 1 then exit;
+
+  //ShowMessage(Uppercase(aNewProjectInfo.TemplateName));
+  if not assigned(aNewProjectInfo.ClientProject) and (Uppercase(aNewProjectInfo.TemplateName) = 'LOCAL') then
+    aNewProjectInfo.ClientProject := aNewProjectInfo.ServerProject;
+
+  with TDAGuideWizardForm.Create(aNewProjectInfo) do try
+    ShowModal();
+  finally
+    Free;
+  end;
+end;
+
+{$R *.dfm}
+
+{ TTDAGuideWizardForm }
+
+constructor TDAGuideWizardForm.Create(aNewProjectInfo: TROIDENewProjectInfo);
+begin
+  inherited Create(Application);
+  fNewProjectInfo := aNewProjectInfo;
+  fTempSchema := IncludeTrailingPathDelimiter(fNewProjectInfo.ProjectOptions.ProjectDir)+NewGuidAsString()+'.daSchema';
+  fTempConnections := ChangeFileExt(fTempSchema, '.daConnections');
+end;
+
+destructor TDAGuideWizardForm.Destroy;
+begin
+  if FileExists(fTempSchema) then DeleteFile(fTempSchema);
+  if FileExists(fTempConnections) then DeleteFile(fTempConnections);
+  inherited;
+end;
+
+procedure TDAGuideWizardForm.lb_LinkClick(Sender: TObject);
+begin
+  inherited;
+  ShellExecute(0, 'open', 'http://www.remobjects.com?da',nil, nil,SW_SHOWNORMAL);
+end;
+
+procedure TDAGuideWizardForm.OnEnterPage(aPage: TTabSheet; aMovingForward: boolean);
+begin
+  inherited;
+  btn_Back.Enabled := false;
+  btn_Cancel.Visible := (aPage <> ts_FinishMulti) and (aPage <> ts_FinishServer);
+  btn_Next.Visible := btn_Cancel.Visible;
+  btn_Finish.Visible := not btn_Next.Visible;
+  SetForegroundWindow(Self.Handle);
+end;
+
+function FindFormEditor(aModule: IOTAModule): IOTAFormEditor;
+var
+  i: integer;
+  lEditor: IOTAEditor;
+begin
+  for i := 0 to aModule.ModuleFileCount-1 do begin
+    lEditor := aModule.ModuleFileEditors[i];
+    if Supports(lEditor, IOTAFormEditor, result) then exit;
+  end;
+end;
+
+function FindFormInProject(aProject: IOTAProject; aName: string): IOTAFormEditor;
+var
+  i: integer;
+  lModule: IOTAModule;
+begin
+  for i := 0 to aProject.GetModuleCount-1 do begin
+    if aProject.GetModule(i).Name = aName then begin
+      lModule := aProject.GetModule(i).OpenModule();
+      result := FindFormEditor(lModule);
+      exit;
+    end
+  end;
+  raise Exception.Create('Could not locate '+aName+' module in project.');
+end;
+
+function FindComponentOnForm(aForm: IOTAFormEditor; aName: string): TComponent;
+var
+  lOTAComponent: IOTAComponent;
+begin
+  lOTAComponent := aForm.FindComponent(aName);
+  if not assigned(lOTAComponent) then
+    raise Exception.Create('Could not locate '+aName+' component.');
+
+  result := (lOTAComponent as INTAComponent).GetComponent();
+end;
+
+
+procedure TDAGuideWizardForm.OnLeavePage(aPage: TTabSheet; aMovingForward: boolean);
+var
+  lSMParams: string;
+  lServerDM, lService, lClientDM: IOTAFormEditor;
+
+  lConnectionManager: TDAConnectionManager;
+  lSchema: TDASchema;
+  lRemoteDataAdapter: TDABaseDataAdapter;
+begin
+  inherited;
+  try
+
+    if (aPage = ts_SM) and aMovingForward then begin
+
+      lbl_SMClickNext.Visible := false;
+      lbl_SMLaunching.Visible := true;
+      btn_Next.Enabled := false;
+      Application.ProcessMessages();
+
+      // locate forms & components
+      lServerDM := FindFormInProject(fNewProjectInfo.ServerProject, 'fServerDataModule');
+      lService := FindFormInProject(fNewProjectInfo.ServerProject, fNewProjectInfo.ProjectOptions.ServiceName+'_Impl');
+      lConnectionManager := FindComponentOnForm(lServerDM, 'ConnectionManager') as TDAConnectionManager;
+      lSchema := FindComponentOnForm(lService, 'Schema') as TDASchema;
+
+      // edit in SM
+      lConnectionManager.SaveToFile(fTempConnections);
+      lSchema.SaveToFile(fTempSchema);
+      lSMParams := Format('/ns /autosave /projectname:"%s" /schemafile:"%s" /connectionsfile:"%s" /platform:Delphi /schemawizard', [fNewProjectInfo.ProjectOptions.ProjectName, fTempSchema, fTempConnections]);
+
+      LaunchSchemaModeler(fNewProjectInfo.ProjectOptions.ProjectName, lSMParams, true);
+      lConnectionManager.LoadFromFile(fTempConnections);
+      lSchema.LoadFromFile(fTempSchema);
+      lServerDM.MarkModified();
+      lService.MarkModified();
+
+      if not assigned(fNewProjectInfo.ClientProject) then
+        NextPage := ts_FinishServer.PageIndex;
+      //else if DAPackage.Package.DTE.Solution.Projects.Count > 2 then
+        //fNextPage := pc_Pages.Pages.IndexOf(ts_FinishMultiProject);
+
+      btn_Next.Enabled := true;
+    end
+    else if (aPage = ts_Compile) and aMovingForward then begin
+
+      lbl_CompileClickNext.Visible := false;
+      lbl_CompileBuilding.Visible := true;
+      btn_Next.Enabled := false;
+      Application.ProcessMessages();
+
+      if not fNewProjectInfo.ServerProject.ProjectBuilder.BuildProject(cmOTAMake, true, true) then
+        raise Exception.Create('Failed to compile server project; please check error messages.');
+
+      lbl_CompileLaunching.Visible := true;
+      Application.ProcessMessages();
+      ShellExecute(0, 'open', pchar(GetProjectExe(fNewProjectInfo.ServerProject)), nil, nil, SW_SHOWNORMAL);
+
+      btn_Next.Enabled := false;
+    end
+    else if (aPage = ts_DataTables) and aMovingForward then begin
+
+      lbl_DataTableClickNext.Visible := false;
+      Application.ProcessMessages();
+
+      // locate forms & components
+      lClientDM := FindFormInProject(fNewProjectInfo.ClientProject, 'fClientDataModule');
+      lRemoteDataAdapter := FindComponentOnForm(lClientDM, 'RemoteDataAdapter') as TDABaseDataAdapter;
+      lService := FindFormInProject(fNewProjectInfo.ServerProject, fNewProjectInfo.ProjectOptions.ServiceName+'_Impl');
+      lSchema := FindComponentOnForm(lService, 'Schema') as TDASchema;
+
+      // create DTs
+      lClientDM.Show();
+      TDataTableWizards.CreateDataTables(lClientDM, lRemoteDataAdapter, lSchema, Point(80,8));
+      lClientDM.MarkModified();
+
+    end;
+
+  except
+    Visible := false;
+    ModalResult := mrCancel;
+    raise;
+  end;
+
+end;
+
+initialization
+  RegisterGuideWizard(@OnNewProject);
+finalization
+  UnregisterGuideWizard(@OnNewProject);
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.dfm
new file mode 100644
index 0000000..ad06737
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.dfm	
@@ -0,0 +1,170 @@
+object DAIdeData: TDAIdeData
+  OldCreateOrder = False
+  Left = 586
+  Top = 308
+  Height = 150
+  Width = 215
+  object iml_Actions: TImageList
+    Left = 32
+    Top = 8
+    Bitmap = {
+      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000001000000001002000000000000010
+      000000000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00686868002B2B2B0018181800131313000F0F0F0057575700FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF00FF00FF00FF00FF007070
+      70002B2B2B0021322100124912000E490E000B440B000A390A000C190C000F0F
+      0F0034343400FF00FF00FF00FF00FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF00FF00FF005E5E5E003434
+      3400343434002132210018481800066A06000075000000750000066A0600044A
+      04000F0F0F0013131300FF00FF00FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF007D7D7D003E3E3E003E3E
+      3E0034343400303030002B2B2B0014531400007B0000066A0600113311000C19
+      0C000E140E000F0F0F0034343400FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF00474747002E7133003E3E
+      3E003434340034343400343434002B2B2B00213221001B321B00181818001818
+      180013131300092F09000F0F0F00FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000919191004A534B0022B132004747
+      47003E3E3E003E3E3E00343434002B2B2B002B2B2B0026262600262626001818
+      180018181800055405000E140E00575757000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000707070004A7050002BC442004747
+      4700474747003E3E3E003434340034343400343434002B2B2B00262626002626
+      260018181800075F07000A390A000F0F0F000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000005E5E5E004B975B0037CF53004C4C
+      4C0047474700474747003E3E3E003E3E3E00343434002B2B2B002B2B2B002626
+      260026262600075F07000B440B00131313000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000005E5E5E00539F660042DA64004E61
+      52004C4C4C0047474700474747003E3E3E0034343400343434001E521E001559
+      1500096A0900007B00000E490E00181818000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000008A8A8A005D8368004DE6750042DA
+      640039C853003A904800474747003E3E3E003E3E3E003E3E3E001B631B00008C
+      0000008600000086000012491200181818000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF006868680059E884004DE6
+      750042DA64003AC0540046634B004747470047474700374A3800137B13000092
+      0000008C00000086000021322100686868000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF006868680063A6790059F1
+      87004DE6750042DA640037CF53002BC4420020B8300014AD1F0009A20E000092
+      000000920000146414002B2B2B00FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF00FF00FF006868680063C2
+      830059F187004DE6750042DA640037CF53002BC4420020B8300014AD1F0009A2
+      0E000B860C00313A310068686800FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF00FF00FF00989898006868
+      680063A6790059E884004DE6750042DA640037CF53002BC4420022B132002B78
+      30003E3E3E005E5E5E00FF00FF00FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
+      FF0068686800686868005D836800539F66004B975B00487851004A534B004747
+      47007D7D7D00FF00FF00FF00FF00FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF008A8A8A00636363005A5A5A005A5A5A00575757008A8A8A00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000100000000100010000000000800000000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000}
+  end
+  object dlg_OpenBriefcase: TOpenDialog
+    DefaultExt = '.daBriefcase'
+    Filter = 
+      'Briefcase files (*.daBriefcase)|*.daBriefcase|All files (*.*)|*.' +
+      '*'
+    FilterIndex = 0
+    Title = 'Load Data from Briefcase File'
+    Left = 112
+    Top = 8
+  end
+  object dlg_SaveBriefcase: TSaveDialog
+    DefaultExt = '.daBriefcase'
+    Filter = 
+      'Briefcase files (*.daBriefcase)|*.daBriefcase|All files (*.*)|*.' +
+      '*'
+    FilterIndex = 0
+    Title = 'Save Data as Briefcase File'
+    Left = 112
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.lfm
new file mode 100644
index 0000000..7c1bd08
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.lfm	
@@ -0,0 +1,64 @@
+object DAIdeData: TDAIdeData
+  left = 586
+  top = 308
+  Height = 150
+  HorizontalOffset = 218
+  VerticalOffset = 192
+  Width = 215
+  object iml_Actions: TImageList
+    BkColor = clForeground
+    left = 32
+    top = 8
+    Bitmap = {
+      4C69010000001000000010000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF8A8A8AFF636363FF5A5A5AFF5A5A5AFF575757FF8A8A8AFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF6868
+      68FF686868FF5D8368FF539F66FF4B975BFF487851FF4A534BFF474747FF7D7D
+      7DFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF989898FF686868FF63A6
+      79FF59E884FF4DE675FF42DA64FF37CF53FF2BC442FF22B132FF2B7830FF3E3E
+      3EFF5E5E5EFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF686868FF63C283FF59F1
+      87FF4DE675FF42DA64FF37CF53FF2BC442FF20B830FF14AD1FFF09A20EFF0B86
+      0CFF313A31FF686868FFFF00FFFFFF00FFFF686868FF63A679FF59F187FF4DE6
+      75FF42DA64FF37CF53FF2BC442FF20B830FF14AD1FFF09A20EFF009200FF0092
+      00FF146414FF2B2B2BFFFF00FFFFFF00FFFF686868FF59E884FF4DE675FF42DA
+      64FF3AC054FF46634BFF474747FF474747FF374A38FF137B13FF009200FF008C
+      00FF008600FF213221FF686868FF8A8A8AFF5D8368FF4DE675FF42DA64FF39C8
+      53FF3A9048FF474747FF3E3E3EFF3E3E3EFF3E3E3EFF1B631BFF008C00FF0086
+      00FF008600FF124912FF181818FF5E5E5EFF539F66FF42DA64FF4E6152FF4C4C
+      4CFF474747FF474747FF3E3E3EFF343434FF343434FF1E521EFF155915FF096A
+      09FF007B00FF0E490EFF181818FF5E5E5EFF4B975BFF37CF53FF4C4C4CFF4747
+      47FF474747FF3E3E3EFF3E3E3EFF343434FF2B2B2BFF2B2B2BFF262626FF2626
+      26FF075F07FF0B440BFF131313FF707070FF4A7050FF2BC442FF474747FF4747
+      47FF3E3E3EFF343434FF343434FF343434FF2B2B2BFF262626FF262626FF1818
+      18FF075F07FF0A390AFF0F0F0FFF919191FF4A534BFF22B132FF474747FF3E3E
+      3EFF3E3E3EFF343434FF2B2B2BFF2B2B2BFF262626FF262626FF181818FF1818
+      18FF055405FF0E140EFF575757FFFF00FFFF474747FF2E7133FF3E3E3EFF3434
+      34FF343434FF343434FF2B2B2BFF213221FF1B321BFF181818FF181818FF1313
+      13FF092F09FF0F0F0FFFFF00FFFFFF00FFFF7D7D7DFF3E3E3EFF3E3E3EFF3434
+      34FF303030FF2B2B2BFF145314FF007B00FF066A06FF113311FF0C190CFF0E14
+      0EFF0F0F0FFF343434FFFF00FFFFFF00FFFFFF00FFFF5E5E5EFF343434FF3434
+      34FF213221FF184818FF066A06FF007500FF007500FF066A06FF044A04FF0F0F
+      0FFF131313FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF707070FF2B2B
+      2BFF213221FF124912FF0E490EFF0B440BFF0A390AFF0C190CFF0F0F0FFF3434
+      34FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF686868FF2B2B2BFF181818FF131313FF0F0F0FFF575757FFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFF
+    }
+  end
+  object dlg_OpenBriefcase: TOpenDialog
+    Title = 'Load Data from Briefcase File'
+    DefaultExt = '.daBriefcase'
+    Filter = 'Briefcase files (*.daBriefcase)|*.daBriefcase|All files (*.*)|*.*'
+    FilterIndex = 0
+    left = 112
+    top = 8
+  end
+  object dlg_SaveBriefcase: TSaveDialog
+    Title = 'Save Data as Briefcase File'
+    DefaultExt = '.daBriefcase'
+    Filter = 'Briefcase files (*.daBriefcase)|*.daBriefcase|All files (*.*)|*.*'
+    FilterIndex = 0
+    left = 112
+    top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.lrs
new file mode 100644
index 0000000..0791927
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.lrs	
@@ -0,0 +1,55 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TDAIdeData','FORMDATA',[
+  'TPF0'#10'TDAIdeData'#9'DAIdeData'#4'left'#3'J'#2#3'top'#3'4'#1#6'Height'#3
+  +#150#0#16'HorizontalOffset'#3#218#0#14'VerticalOffset'#3#192#0#5'Width'#3#215
+  +#0#0#10'TImageList'#11'iml_Actions'#7'BkColor'#7#12'clForeground'#4'left'#2
+  +' '#3'top'#2#8#6'Bitmap'#10#14#4#0#0'Li'#1#0#0#0#16#0#0#0#16#0#0#0#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#138#138#138#255
+  +'ccc'#255'ZZZ'#255'ZZZ'#255'WWW'#255#138#138#138#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'hhh'#255'hhh'#255']'#131'h'#255'S'#159'f'#255'K'
+  +#151'['#255'HxQ'#255'JSK'#255'GGG'#255'}}}'#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#152#152#152#255'hhh'#255'c'#166'y'
+  +#255'Y'#232#132#255'M'#230'u'#255'B'#218'd'#255'7'#207'S'#255'+'#196'B'#255
+  +'"'#177'2'#255'+x0'#255'>>>'#255'^^^'#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255'hhh'#255'c'#194#131#255'Y'#241#135#255'M'#230'u'#255
+  +'B'#218'd'#255'7'#207'S'#255'+'#196'B'#255' '#184'0'#255#20#173#31#255#9#162
+  +#14#255#11#134#12#255'1:1'#255'hhh'#255#255#0#255#255#255#0#255#255'hhh'#255
+  +'c'#166'y'#255'Y'#241#135#255'M'#230'u'#255'B'#218'd'#255'7'#207'S'#255'+'
+  +#196'B'#255' '#184'0'#255#20#173#31#255#9#162#14#255#0#146#0#255#0#146#0#255
+  +#20'd'#20#255'+++'#255#255#0#255#255#255#0#255#255'hhh'#255'Y'#232#132#255'M'
+  +#230'u'#255'B'#218'd'#255':'#192'T'#255'FcK'#255'GGG'#255'GGG'#255'7J8'#255
+  +#19'{'#19#255#0#146#0#255#0#140#0#255#0#134#0#255'!2!'#255'hhh'#255#138#138
+  +#138#255']'#131'h'#255'M'#230'u'#255'B'#218'd'#255'9'#200'S'#255':'#144'H'
+  +#255'GGG'#255'>>>'#255'>>>'#255'>>>'#255#27'c'#27#255#0#140#0#255#0#134#0#255
+  +#0#134#0#255#18'I'#18#255#24#24#24#255'^^^'#255'S'#159'f'#255'B'#218'd'#255
+  +'NaR'#255'LLL'#255'GGG'#255'GGG'#255'>>>'#255'444'#255'444'#255#30'R'#30#255
+  +#21'Y'#21#255#9'j'#9#255#0'{'#0#255#14'I'#14#255#24#24#24#255'^^^'#255'K'#151
+  +'['#255'7'#207'S'#255'LLL'#255'GGG'#255'GGG'#255'>>>'#255'>>>'#255'444'#255
+  +'+++'#255'+++'#255'&&&'#255'&&&'#255#7'_'#7#255#11'D'#11#255#19#19#19#255'pp'
+  +'p'#255'JpP'#255'+'#196'B'#255'GGG'#255'GGG'#255'>>>'#255'444'#255'444'#255
+  +'444'#255'+++'#255'&&&'#255'&&&'#255#24#24#24#255#7'_'#7#255#10'9'#10#255#15
+  +#15#15#255#145#145#145#255'JSK'#255'"'#177'2'#255'GGG'#255'>>>'#255'>>>'#255
+  +'444'#255'+++'#255'+++'#255'&&&'#255'&&&'#255#24#24#24#255#24#24#24#255#5'T'
+  +#5#255#14#20#14#255'WWW'#255#255#0#255#255'GGG'#255'.q3'#255'>>>'#255'444'
+  +#255'444'#255'444'#255'+++'#255'!2!'#255#27'2'#27#255#24#24#24#255#24#24#24
+  +#255#19#19#19#255#9'/'#9#255#15#15#15#255#255#0#255#255#255#0#255#255'}}}'
+  +#255'>>>'#255'>>>'#255'444'#255'000'#255'+++'#255#20'S'#20#255#0'{'#0#255#6
+  +'j'#6#255#17'3'#17#255#12#25#12#255#14#20#14#255#15#15#15#255'444'#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255'^^^'#255'444'#255'444'#255'!2!'#255#24
+  +'H'#24#255#6'j'#6#255#0'u'#0#255#0'u'#0#255#6'j'#6#255#4'J'#4#255#15#15#15
+  +#255#19#19#19#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
+  +#0#255#255'ppp'#255'+++'#255'!2!'#255#18'I'#18#255#14'I'#14#255#11'D'#11#255
+  +#10'9'#10#255#12#25#12#255#15#15#15#255'444'#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'hhh'#255'+++'#255#24#24#24#255#19#19#19#255#15#15#15#255'WWW'#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#0#0#11
+  +'TOpenDialog'#17'dlg_OpenBriefcase'#5'Title'#6#29'Load Data from Briefcase F'
+  +'ile'#10'DefaultExt'#6#12'.daBriefcase'#6'Filter'#6'ABriefcase files (*.daBr'
+  +'iefcase)|*.daBriefcase|All files (*.*)|*.*'#11'FilterIndex'#2#0#4'left'#2'p'
+  +#3'top'#2#8#0#0#11'TSaveDialog'#17'dlg_SaveBriefcase'#5'Title'#6#27'Save Dat'
+  +'a as Briefcase File'#10'DefaultExt'#6#12'.daBriefcase'#6'Filter'#6'ABriefca'
+  +'se files (*.daBriefcase)|*.daBriefcase|All files (*.*)|*.*'#11'FilterIndex'
+  +#2#0#4'left'#2'p'#3'top'#2'8'#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.pas
new file mode 100644
index 0000000..e0e5d05
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEData.pas	
@@ -0,0 +1,54 @@
+unit uDAIDEData;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - IDE Library                                        }
+{                                                                            }
+{ compiler: Delphi 6 and up,                                                 }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF DELPHI5}Forms,{$ENDIF}
+  {$IFDEF FPC}LResources,{$ENDIF}
+  SysUtils, Classes, ImgList, Controls, Dialogs;
+
+
+type
+  TDAIdeData = class(TDataModule)
+    iml_Actions: TImageList;
+    dlg_OpenBriefcase: TOpenDialog;
+    dlg_SaveBriefcase: TSaveDialog;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+const
+  ICON_REGENERATE = 1;
+  ICON_IMPORT     = 2;
+  ICON_MAKESERVER = 3;
+
+implementation
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF FPC}
+
+{$IFDEF FPC}
+initialization
+  {$I uDAIDEData.lrs}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEMenu.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEMenu.pas
new file mode 100644
index 0000000..6b5e669
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEMenu.pas	
@@ -0,0 +1,292 @@
+unit uDAIDEMenu;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - IDE Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses Forms,
+     Classes, Windows, SysUtils,{$IFDEF DELPHI6UP}DesignEditors, DesignIntf, {$ELSE}
+     {$IFDEF LINUX}
+     DesignEditors, DesignIntf,
+     {$ELSE}
+     DsgnIntf,{$ENDIF}{$ENDIF}
+     ToolsApi, Menus, Contnrs, ComObj, Graphics;
+
+type
+  { TMenuItemInfo }
+  TMenuItemInfo = record
+    Caption,
+    ShortCut : string;
+    Menu:TMenuItem;
+    ImageIndex:integer;
+  end;
+
+const MAX_MENU_ITEM = 0;
+
+var
+  MenuItems : array[0..MAX_MENU_ITEM] of TMenuItemInfo = (
+    //(Caption: '-';               ShortCut: ''; Menu:nil; ImageIndex: -1),
+    (Caption: 'Schema &Modeler'; ShortCut: ''; Menu:nil; ImageIndex: 0)
+  );
+
+const
+  mi_SchemaModeler   = 0;
+
+type
+  { TDAMenuWizard }
+  TDAMenuWizard = class(TInterfacedObject, IOTAWizard, IOTANotifier)
+  private
+    fDAMenuItems : TList;
+
+  protected
+    { Misc }
+    procedure CreateMenuItems;
+    procedure LaunchSchemaModeler(Sender : TObject);
+    function FindROMenu : TMenuItem;
+
+    { IOTANotifier}
+    procedure AfterSave;
+    procedure BeforeSave;
+    procedure Destroyed;
+    procedure Execute;
+    procedure Modified;
+
+    { IOTAWizard }
+    function GetState: TWizardState;
+    function GetIDString: string;
+    function GetName: string;
+
+  public
+
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+function GetSchemaModelerPath: string;
+function GetDllPath: String;
+function GetBinDir: string;
+procedure LaunchSchemaModeler(const aProjectName, someParams : string; aWait: boolean=false);
+
+procedure Register;
+
+implementation
+
+uses ShellAPI, Controls, Registry, Dialogs,
+     uRODL, uROIDETools, uRODLToXML, uRODLToPascalIntf, uRODLGenTools,
+     uRORODLNotifier, uROPleaseWaitForm, uDAIDEData, fROAbout,
+     fCustomIDEMessagesForm, uROProductVersionInfo, uROClasses, uROIDEMenu;
+
+{$R Resources.BDS.res}
+
+procedure RegisterAboutInfo;
+const
+  lProductName = 'RemObjects Data Abstract for Delphi';
+begin
+  {$IFDEF BDS}
+    {$IFDEF BDS7UP}
+    SplashScreenServices.AddPluginBitmap(lProductName, LoadBitmap(HInstance, 'SPLASH2006')); // the old on-black 2006 image also works for 2010
+    {$ELSE}
+    SplashScreenServices.AddPluginBitmap(lProductName, LoadBitmap(HInstance, 'SPLASH2007'));
+    {$ENDIF}
+    (BorlandIDEServices as IOTAAboutBoxServices).AddPluginInfo(lProductName, lProductName+#13#10'Copyright RemObjects Software 2002-2009.'#13#10'All rights reserved.'#13#10'http://www.remobjects.com/da.', LoadBitmap(HInstance, 'ABOUT'));
+  {$ENDIF BDS}
+end;
+
+procedure Register;
+begin
+  RegisterAboutInfo();
+  RegisterPackageWizard(TDAMenuWizard.Create);
+end;
+
+{ TDAMenuWizard }
+
+constructor TDAMenuWizard.Create;
+begin
+  inherited Create;
+
+  fDAMenuItems := TList.Create;
+  CreateMenuItems;
+end;
+
+destructor TDAMenuWizard.Destroy;
+var romenu : TMenuItem;
+    i, x : integer;
+begin
+  romenu := FindROMenu;
+  if (romenu<>NIL) then begin
+    for i := (romenu.Count-1) downto 0 do begin
+      for x := (fDAMenuItems.Count-1) downto 0 do
+        if (romenu.Items[i]=fDAMenuItems[x]) then begin
+          TObject(fDAMenuItems[x]).Free;
+          Break;
+        end;
+    end;
+  end;
+  
+  fDAMenuItems.Free;
+end;
+
+function TDAMenuWizard.GetIDString: string;
+begin
+  Result := '{FE46996E-0AFA-4C8D-AF59-192F1D581FD1}'
+end;
+
+function TDAMenuWizard.GetName: string;
+begin
+  Result := 'DAMenuWizard';
+end;
+
+// The following are stubs that Delphi never calls.
+procedure TDAMenuWizard.AfterSave;
+begin
+end;
+
+procedure TDAMenuWizard.BeforeSave;
+begin
+end;
+
+procedure TDAMenuWizard.Destroyed;
+begin
+end;
+
+procedure TDAMenuWizard.Execute;
+begin
+end;
+
+function TDAMenuWizard.GetState: TWizardState;
+begin
+  Result := [];
+end;
+
+procedure TDAMenuWizard.Modified;
+begin
+end;
+
+function TDAMenuWizard.FindROMenu: TMenuItem;
+{var mainmenu : TMainMenu;
+    i : integer;}
+begin
+  result := gRemObjectsMenu;
+  {result := NIL;
+  mainmenu := (BorlandIDEServices as INTAServices).MainMenu;
+  for i := 0 to (mainmenu.Items.Count-1) do
+    if SameText('Rem&Objects', mainmenu.Items[i].Caption) then begin
+      result := mainmenu.Items[i];
+      Break;
+    end;}
+end;
+
+procedure TDAMenuWizard.CreateMenuItems;
+var romenu,
+    item     : TMenuItem;
+    i        : Integer;
+    lBitmap  : TBitmap;
+begin
+  romenu := FindROMenu;
+
+  if (romenu=NIL) then Exit;
+
+  with TDAIdeData.Create(nil) do try
+
+    lBitmap := TBitmap.Create();
+    try
+      for i := 0 to High(MenuItems) do begin
+        item := TMenuItem.Create(romenu);
+        item.Caption := MenuItems[i].Caption;
+        item.ShortCut := TextToShortCut(MenuItems[i].ShortCut);
+        item.Tag := i;
+
+        fDAMenuItems.Add(item);
+
+        if MenuItems[i].ImageIndex > -1 then begin
+          iml_Actions.GetBitmap(MenuItems[i].ImageIndex,lBitmap);
+          item.ImageIndex := (BorlandIDEServices as INTAServices).AddMasked(lBitmap, clFuchsia);
+        end;
+
+        MenuItems[i].Menu := item;
+
+        case i of
+          mi_SchemaModeler  : item.OnClick := LaunchSchemaModeler;
+          else item.OnClick := NIL;
+        end;
+
+        romenu.Insert(6+i, item);// Add(item);
+      end;
+    finally
+      lBitmap.Free();
+    end;
+
+  finally
+    Free();
+  end;
+end;
+
+function GetDllPath: String;
+var TheFileName : array[0..MAX_PATH] of char;
+begin
+  FillChar(TheFileName, SizeOf(TheFileName), #0);
+  {$IFDEF KYLIX}System.{$ENDIF}GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
+  Result := ExtractFilePath(TheFileName);
+end;
+
+function GetBinDir: string;
+begin
+  // This function strips the "DCU\Dx" part of the path where the BPL is
+  result := ExtractFilePath(GetDllPath);
+{$IFDEF DELPHI10UP}
+ result := IncludeTrailingPathDelimiter(Copy(result,1,Length(result)-8))+'Bin\';
+{$ELSE}
+ result := IncludeTrailingBackslash(Copy(result,1,Length(result)-7))+'Bin\';
+{$ENDIF}
+end;
+
+function GetSchemaModelerPath: string;
+var reg: TRegIniFile;
+begin
+  reg := TRegIniFile.Create('Software\RemObjects\Data Abstract');
+  try
+    result := reg.ReadString('Schema Modeler', 'FullPath', GetBinDir+'DASchemaModeler.exe');
+  finally
+    reg.Free;
+  end;
+end;
+
+procedure LaunchSchemaModeler(const aProjectName, someParams : string; aWait: boolean=false);
+var exename : string;
+begin
+  exename := GetSchemaModelerPath;
+
+  if not FileExists(exename) then
+    MessageDlg(Format('Cannot find "%s"', [exename]), mtError, [mbOK], 0)
+  else begin
+    if aWait then begin
+      ExecuteAndWait(exename, someParams);
+    end
+    else begin
+      ShellExecute(0, 'open', PChar(exename), PChar(someParams), PChar(ExtractFilePath(aProjectName)), SW_NORMAL);
+    end;
+  end;
+end;
+
+procedure TDAMenuWizard.LaunchSchemaModeler(Sender: TObject);
+begin
+  uDAIDEMenu.LaunchSchemaModeler('', '/ns /platform:Delphi');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEMenu_laz.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEMenu_laz.pas
new file mode 100644
index 0000000..780c606
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDEMenu_laz.pas	
@@ -0,0 +1,209 @@
+unit uDAIDEMenu_laz;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - IDE Library                                        }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses {$IFDEF MSWINDOWS}Windows,ComObj,{$ENDIF}
+     SysUtils,Classes,Forms,uEWMenuManager_laz,
+     Menus, Graphics;
+
+type
+  { TMenuItemInfo }
+  TMenuItemInfo = record
+    Caption,
+    ShortCut : string;
+    ImageIndex:integer;
+  end;
+
+const MAX_MENU_ITEM = 0;
+
+var
+  MenuItems : array[0..MAX_MENU_ITEM] of TMenuItemInfo = (
+    //(Caption: '-';               ShortCut: ''; Menu:nil; ImageIndex: -1),
+    (Caption: 'Schema &Modeler'; ShortCut: ''; ImageIndex: 0)
+  );
+
+const
+  mi_SchemaModeler   = 0;
+
+type
+  { TDAMenuWizard }
+  TDAMenuWizard = class
+  private
+  protected
+    { Misc }
+    procedure CreateMenuItems;
+    procedure LaunchSchemaModeler(Sender : TObject);
+    function FindROMenu : TEWMenu;
+    { IOTAWizard }
+    function GetIDString: string;
+    function GetName: string;
+  public
+    constructor Create;
+  end;
+
+function GetSchemaModelerPath: string;
+function GetDllPath: String;
+function GetBinDir: string;
+procedure LaunchSchemaModeler(const aProjectName, someParams : string; aWait: boolean=false);
+
+procedure Register;
+
+implementation
+
+uses Controls, Registry, Dialogs,uEWTools, IDECommands,
+     uRODL, uROIDETools_laz, uRODLGenTools,
+     uROPleaseWaitForm, uDAIDEData, fROAbout,
+     fCustomIDEMessagesForm, uROClasses, uROIDEMenu_laz;
+
+var
+  wiz: TDAMenuWizard = nil;
+
+procedure Register;
+begin
+{$IFDEF MSWINDOWS}
+  // DASM exists only for Windows
+  wiz:= TDAMenuWizard.Create;
+{$ENDIF}
+{$IFNDEF FPC}
+  RegisterPackageWizard(TDAMenuWizard.Create);
+{$ENDIF FPC}
+end;
+
+{ TDAMenuWizard }
+
+constructor TDAMenuWizard.Create;
+begin
+  inherited Create;
+  CreateMenuItems;
+end;
+
+
+function TDAMenuWizard.GetIDString: string;
+begin
+  Result := '{FE46996E-0AFA-4C8D-AF59-192F1D581FD1}'
+end;
+
+function TDAMenuWizard.GetName: string;
+begin
+  Result := 'DAMenuWizard';
+end;
+
+function TDAMenuWizard.FindROMenu: TEWMenu;
+begin
+  result := gRemObjectsMenu;
+end;
+
+procedure TDAMenuWizard.CreateMenuItems;
+var
+    romenu   : TEWMenu;
+    item     : TEWMenuItem;
+    i        : Integer;
+    lBitmap  : TBitmap;
+begin
+  romenu := FindROMenu;
+
+  if (romenu=NIL) then Exit;
+  with TDAIdeData.Create(nil) do try
+
+    lBitmap := TBitmap.Create();
+    try
+      for i := 0 to High(MenuItems) do begin
+        item := romenu.CreateMenuItem(MenuItems[i].Caption,-1,[pAny],False);
+         if MenuItems[i].ShortCut <> '' then
+            Item.Command := RegisterIDECommand(RoMenu.CommandCategory, Item.Caption,Item.Caption,TextToIDEShortCut(MenuItems[i].ShortCut));
+        item.Tag := i;
+        if MenuItems[i].ImageIndex > -1 then begin
+          iml_Actions.GetBitmap(MenuItems[i].ImageIndex,lBitmap);
+          if romenu.SubMenuImages <> nil then
+            item.ImageIndex := romenu.SubMenuImages.AddMasked(lBitmap, clFuchsia);
+        end;
+        case i of
+          mi_SchemaModeler  : item.OnClick := LaunchSchemaModeler;
+          else item.OnClick := NIL;
+        end;
+        romenu.Insert(6+i, item);
+      end;
+    finally
+      lBitmap.Free();
+    end;
+
+  finally
+    Free();
+  end;
+end;
+
+function GetDllPath: String;
+{$IFDEF MSWINDOWS}
+var TheFileName : array[0..MAX_PATH] of char;
+{$ENDIF}
+begin
+{$IFDEF MSWINDOWS}
+  TheFileName[0]:=#0;
+  FillChar(TheFileName, SizeOf(TheFileName), #0);
+  GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
+  Result := ExtractFilePath(TheFileName);
+{$ELSE}
+  Result := '';
+{$ENDIF}
+end;
+
+function GetBinDir: string;
+begin
+  // This function strips the "DCU\Dx" part of the path where the BPL is
+  result := ExtractFilePath(GetDllPath);
+ result := IncludeTrailingBackslash(Copy(result,1,Length(result)-7))+'Bin\';
+end;
+
+function GetSchemaModelerPath: string;
+var reg: TRegIniFile;
+begin
+  reg := TRegIniFile.Create('Software\RemObjects\Data Abstract');
+  try
+    result := reg.ReadString('Schema Modeler', 'FullPath', GetBinDir+'DASchemaModeler.exe');
+  finally
+    reg.Free;
+  end;
+end;
+
+procedure LaunchSchemaModeler(const aProjectName, someParams : string; aWait: boolean=false);
+var exename : string;
+begin
+  exename := GetSchemaModelerPath;
+  if not FileExists(exename) then
+    MessageDlg(Format('Cannot find "%s"', [exename]), mtError, [mbOK], 0)
+  else begin
+    if aWait then begin
+      ExecuteAndWait(exename, someParams);
+    end
+    else begin
+      RO_ShellExecute(0, 'open', PChar(exename), PChar(someParams), PChar(ExtractFilePath(aProjectName)), SW_NORMAL);
+    end;
+  end;
+end;
+
+procedure TDAMenuWizard.LaunchSchemaModeler(Sender: TObject);
+begin
+  uDAIDEMenu_laz.LaunchSchemaModeler('', '/ns /platform:Delphi');
+end;
+
+finalization
+  if wiz <> nil then wiz.free;
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDERes.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDERes.pas
new file mode 100644
index 0000000..850aee9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDAIDERes.pas	
@@ -0,0 +1,12 @@
+unit uDAIDERes;
+
+interface
+
+resourcestring
+  err_AssignRemoteService = 'Please assign a RemoteService, first.';
+  err_AssignRemoteServiceChannel = 'Please assign a Channel to the RemoteService, first.';
+  err_AssignRemoteServiceMessage = 'Please assign a Message to the RemoteService, first.';
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASchemaUnitsGenerator.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASchemaUnitsGenerator.pas
new file mode 100644
index 0000000..8b75ae5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASchemaUnitsGenerator.pas	
@@ -0,0 +1,938 @@
+unit uDASchemaUnitsGenerator;
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+// usage TBCD instead of Double for datDecimal 
+{.$DEFINE TREAT_DECIMAL_AS_TBCD}
+uses
+  Classes, uDAInterfaces, uDAClasses;
+
+
+     
+type
+  { TDASchemaCodeGenerator }
+  TDASchemaCodeGenerator = class(TStringList)
+  private
+    fSchema : TDASchema;
+    fFileName : string;
+
+  protected
+    procedure DoWriteCode; virtual; abstract;
+
+    property FileName : string read fFileName;
+    property Schema : TDASchema read fSchema;
+
+  public
+    constructor Create(aSchema : TDASchema);
+
+    procedure Write(const someText: string; Indentation: integer = 0); overload;
+    procedure WriteLines(const someText: string);
+    procedure WriteEmptyLine;
+
+    procedure WriteCode(const aFileName : string);
+  end;
+
+  { TClientUnitSchemaGenerator }
+  TClientUnitSchemaGenerator = class(TDASchemaCodeGenerator)
+  protected
+    procedure DoWriteCode; override;
+  end;
+
+  { TServerUnitSchemaGenerator }
+  TServerUnitSchemaGenerator = class(TDASchemaCodeGenerator)
+  private
+    fClientUnitName: string;
+
+  protected
+    procedure DoWriteCode; override;
+
+  public
+    property ClientUnitName : string read fClientUnitName write fClientUnitName;
+  end;
+
+procedure GenerateSchemaUnits(aSchema : TDASchema);
+function GetDAType(ad: TDADataType): string;
+{$IFDEF FPC}
+function PromptForFileName(var AFileName: string; const AFilter: string = '';
+  const ADefaultExt: string = ''; const ATitle: string = '';
+  const AInitialDir: string = ''; SaveDialog: Boolean = False): Boolean;
+{$ENDIF}
+implementation
+
+{$IFDEF FPC}
+  {$UNDEF TREAT_DECIMAL_AS_TBCD}
+{$ENDIF}
+
+uses
+  {$IFDEF FPC}ProjectIntf, uROIDETools_laz,uEWOTAHelpers_laz,{$ELSE}uROIDETools,{$ENDIF}
+   uRODLToPascal, SysUtils, Dialogs, uROTypes, uROClasses;
+
+{$IFDEF FPC}
+function PromptForFileName(var AFileName: string; const AFilter: string = '';
+  const ADefaultExt: string = ''; const ATitle: string = '';
+  const AInitialDir: string = ''; SaveDialog: Boolean = False): Boolean;
+var
+  Dialog: TOpenDialog;
+begin
+  if SaveDialog then
+  begin
+    Dialog := TSaveDialog.Create(nil);
+    Dialog.Options := Dialog.Options + [ofOverwritePrompt];
+  end
+  else
+    Dialog := TOpenDialog.Create(nil);
+  with Dialog do
+  try
+    Title := ATitle;
+    DefaultExt := ADefaultExt;
+    if AFilter = '' then
+      Filter := 'All files (*.*)|*.*' else
+      Filter := AFilter;
+    InitialDir := AInitialDir;
+    FileName := AFileName;
+    Result := Execute;
+    if Result then
+      AFileName := FileName;
+  finally
+    Free;
+  end;
+end;
+{$ENDIF}
+
+
+function GetDATypeMethod(ad: TDADataType): string;
+begin
+  case ad of
+    datAutoInc: Result := 'Integer';
+    datLargeAutoInc: Result := 'LargeInt';
+    datWideMemo: Result := 'WideString';
+    datSingleFloat: Result := 'Single';
+    {$IFNDEF TREAT_DECIMAL_AS_TBCD}
+    datDecimal: Result := 'Float';
+    {$ENDIF}
+  else
+    Result := DADataTypeNames[ad];
+  end;
+end;
+
+{ TDASchemaCodeGenerator }
+
+procedure TDASchemaCodeGenerator.Write(const someText: string; Indentation: integer = 0);
+var
+  i: integer;
+  s: string;
+begin
+  s := '';
+  for i := 1 to Indentation do s := s + ' ';
+  s := s + someText;
+  Add(s)
+end;
+
+procedure TDASchemaCodeGenerator.WriteLines(const someText: string);
+begin
+  Text := Text+someText;
+end;
+
+procedure TDASchemaCodeGenerator.WriteEmptyLine;
+begin
+  Add('');
+end;
+
+constructor TDASchemaCodeGenerator.Create(aSchema: TDASchema);
+begin
+  inherited Create;
+  fSchema := aSchema;
+end;
+
+procedure TDASchemaCodeGenerator.WriteCode(const aFileName: string);
+begin
+  fFileName := aFileName;
+
+  Clear;
+  DoWriteCode;
+  SaveToFile(aFileName);
+end;
+
+{ Misc }
+procedure GenerateSchemaUnits(aSchema : TDASchema);
+var clienttargetfilename,
+    servertargetfilename : string;
+{$IFDEF FPC}
+    lfile: TLazProjectFile;
+{$ENDIF}
+begin
+  clienttargetfilename := IncludeTrailingPathDelimiter(ModuleDir(CurrentProject))+aSchema.Name+'Client_Intf.pas';
+  if PromptForFileName(clienttargetfilename, 'Delphi unit (*.pas)|*.pas', '*.pas', 'Save '+aSchema.Name+' client access unit', '', TRUE) then begin
+
+    with TClientUnitSchemaGenerator.Create(aSchema) do try
+      WriteCode(clienttargetfilename);
+      {$IFDEF FPC}
+      lFile := CurrentProject.CreateProjectFile(clienttargetfilename);
+      CurrentProject.AddFile(lFile, False);
+      lFile.IsPartOfProject := True;
+      {$ELSE}
+      CurrentProject.AddFile(clienttargetfilename, TRUE);
+      {$ENDIF}
+    finally
+      Free;
+    end;
+
+  end;
+
+  servertargetfilename := IncludeTrailingPathDelimiter(ModuleDir(CurrentProject))+aSchema.Name+'Server_Intf.pas';
+  if PromptForFileName(servertargetfilename, 'Delphi unit (*.pas)|*.pas', '*.pas', 'Save '+aSchema.Name+' server access unit', '', TRUE) then begin
+    with TServerUnitSchemaGenerator.Create(aSchema) do try
+      ClientUnitName := ChangeFileExt(ExtractFileName(clienttargetfilename), '');
+
+      WriteCode(servertargetfilename);
+      {$IFDEF FPC}
+      lFile :=CurrentProject.CreateProjectFile(servertargetfilename);
+      CurrentProject.AddFile(lFile, False);
+      lFile.IsPartOfProject := True;
+      {$ELSE}
+      CurrentProject.AddFile(servertargetfilename, TRUE);
+      {$ENDIF}
+    finally
+      Free;
+    end;
+  end;
+end;
+
+function GenFindParams(aDataset : TDADataset; AddType, UsePrefix, UseComma : boolean) : string;
+var x : integer;
+begin
+  result := '';
+  with aDataset do begin
+    for x := 0 to (Fields.Count-1) do
+      if Fields[x].InPrimaryKey then begin
+        if UsePrefix then result := result+'a'+Fields[x].Name
+                     else result := result+Fields[x].Name;
+
+        if AddType
+          then result := result+': '+GetDAType(Fields[x].DataType);
+
+        if UseComma
+          then result := result+','
+          else result := result+'; ';
+      end;
+
+    if UseComma
+      then result := Copy(result, 1, Length(result)-1)
+      else result := Copy(result, 1, Length(result)-2);
+  end;
+end;
+
+function GetDAType(ad: TDADataType): string;
+begin
+  case ad of
+    datMemo: Result := 'IROStrings';
+    datBlob: Result := 'IROStream';
+    datAutoInc: Result := 'Integer';
+    datWideMemo: Result := 'WideString';
+    datLargeAutoInc: Result := 'Int64';
+    datGuid: result := 'TGuid';
+    datXml: result := 'IXmlNode';
+    datLargeUint: Result := 'UInt64';
+    datLargeInt: Result := 'Int64';
+    {$IFDEF TREAT_DECIMAL_AS_TBCD}
+    datDecimal: Result := 'TBcd';
+    {$ELSE}
+    datDecimal: Result := 'Double';
+    {$ENDIF}
+    datSingleFloat: Result := 'Single';
+  else
+    Result := DADataTypeNames[ad];
+  end;
+end;
+
+{ TClientUnitSchemaGenerator }
+
+procedure TClientUnitSchemaGenerator.DoWriteCode;
+var i, x : integer;
+    guid : TGUID;
+    guids : TStringList;
+    //s, s2 : string;
+    bVar: boolean;
+begin
+  guids := TStringList.Create;
+
+  with Schema do try
+    for i := 0 to (Datasets.Count-1) do begin
+      CreateGUID(guid);
+      guids.Add(GUIDToString(guid));
+    end;
+
+    Write(Format('unit %s;', [ChangeFileExt(ExtractFileName(FileName), '')]));
+    WriteEmptyLine;
+    write('{$D-}');
+    Write('interface');
+    WriteEmptyLine;
+    Write('uses');
+    Write('  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;');
+
+    // Data table GUIDs
+    WriteEmptyLine;
+    Write('const');
+    Write('{ Data table rules ids', PASCAL_INDENTATION_LEVEL_1);
+    Write('     Feel free to change them to something more human readable', PASCAL_INDENTATION_LEVEL_1);
+    Write('     but make sure they are unique in the context of your application }', PASCAL_INDENTATION_LEVEL_1);
+    for i := 0 to (Datasets.Count-1) do begin
+      Write(Format('RID_%s = ''%s'';', [MakeValidIdentifier(Datasets[i].Name), guids[i]]), PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+    // Data table names
+    WriteEmptyLine;
+    Write('{ Data table names }', PASCAL_INDENTATION_LEVEL_1);
+    for i := 0 to (Datasets.Count-1) do begin
+      Write(Format('nme_%s = ''%s'';', [MakeValidIdentifier(Datasets[i].Name), Datasets[i].Name]), PASCAL_INDENTATION_LEVEL_1);
+    end;
+    WriteEmptyLine;
+
+    // Data table fields
+    for i := 0 to (Datasets.Count-1) do begin
+      Write(Format('{ %s fields }', [Datasets[i].Name]), PASCAL_INDENTATION_LEVEL_1);
+      for x := 0 to (Datasets[i].Fields.Count-1) do
+        Write(Format('fld_%s%s = ''%s'';', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), Datasets[i].Fields[x].Name]), PASCAL_INDENTATION_LEVEL_1);
+      WriteEmptyLine;
+
+      Write(Format('{ %s field indexes }', [Datasets[i].Name]), PASCAL_INDENTATION_LEVEL_1);
+      for x := 0 to (Datasets[i].Fields.Count-1) do
+        Write(Format('idx_%s%s = %d;', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), x]), PASCAL_INDENTATION_LEVEL_1);
+      WriteEmptyLine;
+    end;
+
+    Write('type');
+    for i := 0 to (Datasets.Count-1) do begin
+      if (Trim(Datasets[i].Description)<>'') then begin
+        Write('{', PASCAL_INDENTATION_LEVEL_1);
+        Write(Datasets[i].Description, PASCAL_INDENTATION_LEVEL_1);
+        Write('}', PASCAL_INDENTATION_LEVEL_1);
+      end;
+
+      // Base interface
+      CreateGUID(guid); // This interface is just for reference. People will use the others
+      Write(Format('{ I%s }', [MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+      Write(Format('I%s = interface(IDAStronglyTypedDataTable)', [MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+      Write(Format('[''%s'']', [GuidToString(guid)]), PASCAL_INDENTATION_LEVEL_1);
+
+      with Datasets[i] do begin
+        Write('{ Property getters and setters }', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to (Fields.Count-1) do begin
+          Write(Format('function Get%sValue: %s;', [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+          if not (Fields[x].DataType in [datMemo, datblob]) then
+            Write(Format('procedure Set%sValue(const aValue: %s);', [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('function Get%sIsNull: Boolean;', [MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('procedure Set%sIsNull(const aValue: Boolean);', [MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+
+        WriteEmptyLine;
+        {Write('// Methods', PASCAL_INDENTATION_LEVEL_2);
+
+        // Generates the Find method
+        s := GenFindParams(Datasets[i], TRUE, TRUE, FALSE);
+        if (s<>'') then Write(Format('function Find(%s; LocateOptions : TLocateOptions) : boolean;', [s]), PASCAL_INDENTATION_LEVEL_2);}
+
+        // Properties
+        WriteEmptyLine;
+        Write('{ Properties }', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to (Fields.Count-1) do
+        begin
+          if Fields[x].DataType in [datMemo, datBlob] then
+            Write(Format('property %s: %s read Get%sValue;',
+              [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType),
+              MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2)
+          else
+            Write(Format('property %s: %s read Get%sValue write Set%sValue;',
+              [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType),
+              MakeValidIdentifier(Fields[x].Name),
+              MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('property %sIsNull: Boolean read Get%sIsNull write Set%sIsNull;',
+            [MakeValidIdentifier(Fields[x].Name),
+            MakeValidIdentifier(Fields[x].Name),
+            MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+      end;
+      Write(Format('end;', []), PASCAL_INDENTATION_LEVEL_1);
+      WriteEmptyLine;
+
+      // Implementor class
+      Write(Format('{ T%sDataTableRules }', [MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+      Write(Format('T%sDataTableRules = class(TDADataTableRules, I%s)', [MakeValidIdentifier(Datasets[i].Name),
+                                                                         MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+
+      with Datasets[i] do begin
+        Write('private', PASCAL_INDENTATION_LEVEL_1);
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType in [datMemo, datBlob] then
+            Write(Format('f_%s: %s;',[MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]),PASCAL_INDENTATION_LEVEL_2);
+        end;
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datMemo then
+            Write(Format('procedure %s_OnChange(Sender: TObject);',[MakeValidIdentifier(Fields[x].Name)]),PASCAL_INDENTATION_LEVEL_2)
+          else
+          if Fields[x].DataType = datBlob then
+            Write(Format('procedure %s_OnChange(Sender: TObject);',[MakeValidIdentifier(Fields[x].Name)]),PASCAL_INDENTATION_LEVEL_2);
+        end;
+        Write('protected', PASCAL_INDENTATION_LEVEL_1);
+        Write('{ Property getters and setters }', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to (Fields.Count-1) do begin
+          Write(Format('function Get%sValue: %s; virtual;', [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+          if not (Fields[x].DataType in [datMemo, datBlob]) then
+            Write(Format('procedure Set%sValue(const aValue: %s); virtual;', [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('function Get%sIsNull: Boolean; virtual;', [MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('procedure Set%sIsNull(const aValue: Boolean); virtual;', [MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+
+        WriteEmptyLine;
+        Write('{ Properties }', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to (Fields.Count-1) do
+        begin
+          if Fields[x].DataType in [datMemo, datBlob] then
+            Write(Format('property %s: %s read Get%sValue;',
+              [MakeValidIdentifier(Fields[x].Name),
+               GetDAType(Fields[x].DataType),
+               MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2)
+          else
+            Write(Format('property %s: %s read Get%sValue write Set%sValue;',
+              [MakeValidIdentifier(Fields[x].Name),
+               GetDAType(Fields[x].DataType),
+               MakeValidIdentifier(Fields[x].Name),
+               MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('property %sIsNull: Boolean read Get%sIsNull write Set%sIsNull;',
+            [MakeValidIdentifier(Fields[x].Name),
+              MakeValidIdentifier(Fields[x].Name),
+             MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+
+        WriteEmptyLine;
+        {Write('procedure Validate; override;', PASCAL_INDENTATION_LEVEL_3);
+        WriteEmptyLine;}
+
+        Write('public', PASCAL_INDENTATION_LEVEL_1);
+        Write('constructor Create(aDataTable: TDADataTable); override;', PASCAL_INDENTATION_LEVEL_2);
+        Write('destructor Destroy; override;', PASCAL_INDENTATION_LEVEL_2);
+        WriteEmptyLine;
+
+        // Generates the Find method
+        {s := GenFindParams(Datasets[i], TRUE, TRUE, FALSE);
+        if (s<>'') then Write(Format('function Find(%s; LocateOptions : TLocateOptions) : boolean;', [s]), PASCAL_INDENTATION_LEVEL_2);}
+      end;
+
+      Write(Format('end;', []), PASCAL_INDENTATION_LEVEL_1);
+      WriteEmptyLine;
+    end;
+
+    Write('implementation');
+    WriteEmptyLine;
+    Write('uses Variants, uROBinaryHelpers;');
+    WriteEmptyLine;
+
+    for i := 0 to (Datasets.Count-1) do begin
+      // Implementor class
+      Write(Format('{ T%sDataTableRules }', [MakeValidIdentifier(Datasets[i].Name)]));
+
+      with Datasets[i] do begin
+        Write(Format('constructor T%sDataTableRules.Create(aDataTable: TDADataTable);', [MakeValidIdentifier(Name)]));
+        bVar:=False;
+
+        // create StrList
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datMemo then begin
+            if not bVar then begin
+               Write('var');
+               bVar:=True;
+            end;
+            Write('  StrList: TStringList;');
+            Break;
+          end;
+        end;
+
+        // create ROStream
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datBlob then begin
+            if not bVar then begin
+               Write('var');
+            end;
+            Write('  ROStream: TROStream;');
+            Break;
+          end;
+        end;
+
+        Write('begin');
+        Write('  inherited;');
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datMemo then begin
+            WriteEmptyLine;
+            Write('  StrList := TStringList.Create;');
+            Write(Format('  StrList.OnChange := %s_OnChange;', [MakeValidIdentifier(Fields[x].Name)]));
+            Write(Format('  f_%s := NewROStrings(StrList,True);', [MakeValidIdentifier(Fields[x].Name)]));
+          end else
+          if Fields[x].DataType = datBlob then begin
+            WriteEmptyLine;
+            Write('  ROStream := TROStream.Create;');
+            Write(Format('  ROStream.OnChange := %s_OnChange;', [MakeValidIdentifier(Fields[x].Name)]));
+            Write(Format('  f_%s := ROStream;', [MakeValidIdentifier(Fields[x].Name)]));
+          end;
+        end;
+        Write('end;');
+        WriteEmptyLine;
+
+        Write(Format('destructor T%sDataTableRules.Destroy;', [MakeValidIdentifier(Name)]));
+        Write('begin');
+        Write('  inherited;');
+        Write('end;');
+        WriteEmptyLine;
+
+        // Generates the Find method body
+        {s := GenFindParams(Datasets[i], TRUE, TRUE, FALSE);
+        if (s<>'') then begin
+          Write(Format('function T%s.Find(%s; LocateOptions : TLocateOptions) : boolean;', [Name, s]));
+          Write('begin');
+          s := GenFindParams(Datasets[i], FALSE, FALSE, TRUE);
+          s2 := GenFindParams(Datasets[i], FALSE, TRUE, TRUE);
+          if (Pos(',', s2)=0)
+            then Write(Format('result := DataTable.Locate(''%s'', %s, LocateOptions);', [s, s2]), PASCAL_INDENTATION_LEVEL_1)
+            else Write(Format('result := DataTable.Locate(''%s'', VarArrayOf([%s]), LocateOptions);', [s, s2]), PASCAL_INDENTATION_LEVEL_1);
+
+          Write('end;');
+          WriteEmptyLine;
+        end;}
+
+        {Write(Format('procedure T%s.Validate;', [Name]));
+        Write('begin');
+        Write('end;');
+        WriteEmptyLine;}
+
+
+        {ToDo: -cDA3 improve handling of Memos (and possibly Blobs, too), so that assignments to the returned
+                     IROStream (ie MyField.Text := 'Hello') get carried back to the field data properly.
+                     currently, the onmly way to chage the field is to actually assign a new IROStream to
+                     the property via "MyField := ...", which is NOT GOOD.}
+
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datMemo then begin
+            Write(Format('procedure T%sDataTableRules.%s_OnChange(Sender: TObject);', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+            Write('begin');
+            Write(Format('  if DataTable.Editing then DataTable.Fields[idx_%s%s].AsVariant := TStringList(Sender).Text;', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+            Write('end;');
+            WriteEmptyLine;
+          end else
+          if Fields[x].DataType = datBlob then begin
+            Write(Format('procedure T%sDataTableRules.%s_OnChange(Sender: TObject);', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+            Write('begin');
+            Write(Format('  if DataTable.Editing then DataTable.Fields[idx_%s%s].LoadFromStream(TROStream(Sender));', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+            Write('end;');
+            WriteEmptyLine;
+          end;
+        end;
+
+        for x := 0 to (Fields.Count-1) do begin
+          Write(Format('function T%sDataTableRules.Get%sValue: %s;', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]));
+          Write('begin');
+          case Fields[x].DataType of    { }
+            datMemo:begin
+                Write(Format('  result := f_%s;',[MakeValidIdentifier(Fields[x].Name)]));
+                Write(Format('  result.Text := DataTable.Fields[idx_%s%s].AsString;',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+              end;
+            datBlob:begin
+                Write(Format('  result := f_%s;',[MakeValidIdentifier(Fields[x].Name)]));
+                Write('  result.Position := 0;');
+                Write('  if not Result.InUpdateMode then begin');
+                Write(Format('    DataTable.Fields[idx_%s%s].SaveToStream(result);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+                Write('    result.Position := 0;');
+                Write('  end;');
+              end;
+            else
+                Write(Format('  result := DataTable.Fields[idx_%s%s].As%s;',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDATypeMethod(Fields[x].DataType)]));
+          end;    { case }
+          Write('end;');
+          WriteEmptyLine;
+
+          if not (Fields[x].DataType in [datMemo, datBlob]) then begin
+            Write(Format('procedure T%sDataTableRules.Set%sValue(const aValue: %s);', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]));
+            Write('begin');
+            Write(Format('  DataTable.Fields[idx_%s%s].As%s := aValue;', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDATypeMethod(Fields[x].DataType)]));
+            Write('end;');
+            WriteEmptyLine;
+          end;
+
+          Write(Format('function T%sDataTableRules.Get%sIsNull: boolean;', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+          Write('begin');
+          Write(Format('  result := DataTable.Fields[idx_%s%s].IsNull;',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+          Write('end;');
+          WriteEmptyLine;
+
+
+          Write(Format('procedure T%sDataTableRules.Set%sIsNull(const aValue: Boolean);', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+          Write('begin');
+          Write('  if aValue then');
+          Write(Format('    DataTable.Fields[idx_%s%s].AsVariant := Null;', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+          Write('end;');
+          WriteEmptyLine;
+        end;
+      end;
+
+      WriteEmptyLine;
+    end;
+
+    Write('initialization');
+    for i := 0 to (Datasets.Count-1) do
+      Write(Format('RegisterDataTableRules(RID_%s, T%sDataTableRules);', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+
+    WriteEmptyLine;
+    Write('end.');
+  finally
+    guids.Free;
+  end;
+end;
+
+{ TServerUnitSchemaGenerator }
+
+procedure TServerUnitSchemaGenerator.DoWriteCode;
+var i, x : integer;
+    guid : TGUID;
+    guids : TStringList;
+    //s, s2 : string;
+    bVar: Boolean;
+begin
+  guids := TStringList.Create;
+
+  with Schema do try
+    for i := 0 to (Datasets.Count-1) do begin
+      CreateGUID(guid);
+      guids.Add(GUIDToString(guid));
+    end;
+
+    Write(Format('unit %s;', [ChangeFileExt(ExtractFileName(FileName), '')]));
+    WriteEmptyLine;
+    write('{$D-}');
+    Write('interface');
+    WriteEmptyLine;
+    Write('uses');
+    Write(Format('  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, %s;', [ClientUnitName]));
+
+    // Data table GUIDs
+    WriteEmptyLine;
+    Write('const');
+    Write('{ Delta rules ids ', PASCAL_INDENTATION_LEVEL_1);
+    Write('     Feel free to change them to something more human readable', PASCAL_INDENTATION_LEVEL_1);
+    Write('     but make sure they are unique in the context of your application }', PASCAL_INDENTATION_LEVEL_1);
+    for i := 0 to (Datasets.Count-1) do begin
+      Write(Format('RID_%sDelta = ''%s'';', [MakeValidIdentifier(Datasets[i].Name), guids[i]]), PASCAL_INDENTATION_LEVEL_1);
+    end;
+    WriteEmptyLine;
+
+    Write('type');
+    for i := 0 to (Datasets.Count-1) do begin
+      // Business delta change
+      Write(Format('{ I%sDelta }', [MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+      Write(Format('I%sDelta = interface(I%s)', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+      Write(Format('[''%s'']', [guids[i]]), PASCAL_INDENTATION_LEVEL_1);
+
+      with Datasets[i] do begin
+        Write('{ Property getters and setters }', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to (Fields.Count-1) do begin
+          Write(Format('function GetOld%sValue : %s;', [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+        WriteEmptyLine;
+
+        // Properties
+        Write('{ Properties }', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to (Fields.Count-1) do
+          Write(Format('property Old%s : %s read GetOld%sValue;',
+            [MakeValidIdentifier(Fields[x].Name),
+             GetDAType(Fields[x].DataType),
+             MakeValidIdentifier(Fields[x].Name),
+             MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+
+        Write(Format('end;', []), PASCAL_INDENTATION_LEVEL_1);
+      end;
+      WriteEmptyLine;
+
+      // Implementor class
+      Write(Format('{ T%sBusinessProcessorRules }', [MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+      Write(Format('T%sBusinessProcessorRules = class(TDABusinessProcessorRules, I%s, I%sDelta)', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+
+      with Datasets[i] do begin
+        Write('private', PASCAL_INDENTATION_LEVEL_1);
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType in [datMemo, datBlob] then
+            Write(Format('f_%s: %s;',[MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]),PASCAL_INDENTATION_LEVEL_2);
+        end;
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datMemo then
+            Write(Format('procedure %s_OnChange(Sender: TObject);',[MakeValidIdentifier(Fields[x].Name)]),PASCAL_INDENTATION_LEVEL_2)
+          else
+          if Fields[x].DataType = datBlob then
+            Write(Format('procedure %s_OnChange(Sender: Tobject);',[MakeValidIdentifier(Fields[x].Name)]),PASCAL_INDENTATION_LEVEL_2);
+        end;
+        Write('protected', PASCAL_INDENTATION_LEVEL_1);
+        Write('{ Property getters and setters }', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to (Fields.Count-1) do begin
+          Write(Format('function Get%sValue: %s; virtual;', [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('function Get%sIsNull: Boolean; virtual;', [MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('function GetOld%sValue: %s; virtual;', [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('function GetOld%sIsNull: Boolean; virtual;', [MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          if not(Fields[x].DataType in [datMemo, datBlob]) then
+             Write(Format('procedure Set%sValue(const aValue: %s); virtual;', [MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('procedure Set%sIsNull(const aValue: Boolean); virtual;', [MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+
+        WriteEmptyLine;
+        Write('{ Properties }', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to (Fields.Count-1) do begin
+           if (Fields[x].DataType in [datMemo, datBlob]) then
+              Write(Format('property %s : %s read Get%sValue;',
+                [MakeValidIdentifier(Fields[x].Name),
+                 GetDAType(Fields[x].DataType),
+                 MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2)
+           else
+            Write(Format('property %s : %s read Get%sValue write Set%sValue;',
+              [MakeValidIdentifier(Fields[x].Name),
+               GetDAType(Fields[x].DataType),
+               MakeValidIdentifier(Fields[x].Name),
+               MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('property %sIsNull : Boolean read Get%sIsNull write Set%sIsNull;',
+            [MakeValidIdentifier(Fields[x].Name),
+             MakeValidIdentifier(Fields[x].Name),
+             MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('property Old%s : %s read GetOld%sValue;',
+            [MakeValidIdentifier(Fields[x].Name),
+             GetDAType(Fields[x].DataType),
+             MakeValidIdentifier(Fields[x].Name),
+             MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('property Old%sIsNull : Boolean read GetOld%sIsNull;',
+            [MakeValidIdentifier(Fields[x].Name),
+             MakeValidIdentifier(Fields[x].Name),
+             MakeValidIdentifier(Fields[x].Name)]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+
+        WriteEmptyLine;
+
+        Write('public', PASCAL_INDENTATION_LEVEL_1);
+        Write('constructor Create(aBusinessProcessor: TDABusinessProcessor); override;', PASCAL_INDENTATION_LEVEL_2);
+        Write('destructor Destroy; override;', PASCAL_INDENTATION_LEVEL_2);
+        WriteEmptyLine;
+
+        // Generates the Find method
+        {s := GenFindParams(Datasets[i], TRUE, TRUE, FALSE);
+        if (s<>'') then Write(Format('function Find(%s; LocateOptions : TLocateOptions) : boolean;', [s]), PASCAL_INDENTATION_LEVEL_2);}
+      end;
+
+      Write(Format('end;', []), PASCAL_INDENTATION_LEVEL_1);
+      WriteEmptyLine;
+    end;
+
+    Write('implementation');
+    WriteEmptyLine;
+    Write('uses');
+    Write('  Variants, uROBinaryHelpers, uDAInterfaces;');
+    WriteEmptyLine;
+
+    for i := 0 to (Datasets.Count-1) do begin
+      // Implementor class
+      Write(Format('{ T%sBusinessProcessorRules }', [MakeValidIdentifier(Datasets[i].Name)]));
+
+      with Datasets[i] do begin
+        Write(Format('constructor T%sBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);', [MakeValidIdentifier(Name)]));
+        bVar:=False;
+
+        // create StrList
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datMemo then begin
+            if not bVar then begin
+               Write('var');
+               bVar:=True;
+            end;
+            Write('  StrList: TStringList;');
+            Break;
+          end;
+        end;
+
+        // create ROStream
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datBlob then begin
+            if not bVar then begin
+               Write('var');
+            end;
+            Write('  ROStream: TROStream;');
+            Break;
+          end;
+        end;
+
+        Write('begin');
+        Write('  inherited;');
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datMemo then begin
+            WriteEmptyLine;
+            Write('  StrList := TStringList.Create;');
+            Write(Format('  StrList.OnChange := %s_OnChange;', [MakeValidIdentifier(Fields[x].Name)]));
+            Write(Format('  f_%s := NewROStrings(StrList,True);', [MakeValidIdentifier(Fields[x].Name)]));
+          end else
+          if Fields[x].DataType = datBlob then begin
+            WriteEmptyLine;
+            Write('  ROStream := TROStream.Create;');
+            Write(Format('  ROStream.OnChange := %s_OnChange;', [MakeValidIdentifier(Fields[x].Name)]));
+            Write(Format('  f_%s := ROStream;', [MakeValidIdentifier(Fields[x].Name)]));
+          end;
+        end;
+        Write('end;');
+        WriteEmptyLine;
+
+        Write(Format('destructor T%sBusinessProcessorRules.Destroy;', [MakeValidIdentifier(Name)]));
+        Write('begin');
+        Write('  inherited;');
+        Write('end;');
+        WriteEmptyLine;
+
+        for x := 0 to (Fields.Count-1) do begin
+          if Fields[x].DataType = datMemo then begin
+            Write(Format('procedure T%sBusinessProcessorRules.%s_OnChange(Sender: TObject);', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+            Write('begin');
+            Write(Format('  BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s] := TStringList(Sender).Text;',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+            Write('end;');
+            WriteEmptyLine;
+          end else
+          if Fields[x].DataType = datBlob then begin
+            Write(Format('procedure T%sBusinessProcessorRules.%s_OnChange(Sender: TObject);', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+            Write('begin');
+            Write(Format('  BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+            Write('end;');
+            WriteEmptyLine;
+          end;
+        end;
+
+        for x := 0 to (Fields.Count-1) do begin
+          Write(Format('function T%sBusinessProcessorRules.Get%sValue: %s;', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]));
+          Write('begin');
+          case Fields[x].DataType of
+            datMemo:begin
+                Write(Format('  result := f_%s;',[MakeValidIdentifier(Fields[x].Name)]));
+                Write(Format('  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s];',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+              end;
+            datBlob:begin
+                Write(Format('  result := f_%s;',[MakeValidIdentifier(Fields[x].Name)]));
+                Write('  result.Position := 0;');
+                Write('  if not Result.InUpdateMode then begin');
+                Write(Format('    BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s], result.Stream);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+                Write('    result.Position := 0;');
+                Write('  end;');
+              end;
+            {$IFDEF TREAT_DECIMAL_AS_TBCD}
+            datDecimal: begin
+                Write(Format('  result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s]);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+            {$ENDIF}  
+            datXml: begin
+                Write(Format('  result := GetVarXml(BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s]);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+            datGuid: begin
+                Write(Format('  result := GetVarGuid(BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s]);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+            else begin
+                Write(Format('  result := BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s];',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+          end;
+          Write('end;');
+          WriteEmptyLine;
+
+          Write(Format('function T%sBusinessProcessorRules.Get%sIsNull: Boolean;', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+          Write('var v: variant;');
+          Write('begin');
+          Write(Format('  v := BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s];',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+          Write('  result := VarIsNull(v) or VarIsClear(v);');
+          Write('end;');
+          WriteEmptyLine;
+
+          Write(Format('function T%sBusinessProcessorRules.GetOld%sValue: %s;', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]));
+          Write('begin');
+          case Fields[x].DataType of
+            datMemo:begin
+                Write('  result := NewROStrings();');
+                Write(Format('  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_%s%s];',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+              end;
+            datBlob:begin
+                Write('  result := NewROStream();');
+                Write(Format('  BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_%s%s], result.Stream);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+              end;
+            {$IFDEF TREAT_DECIMAL_AS_TBCD}
+            datDecimal: begin
+                Write(Format('  result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_%s%s]);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+            {$ENDIF}
+            datXml: begin
+                Write(Format('  result := GetVarXml(BusinessProcessor.CurrentChange.OldValueByName[fld_%s%s]);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+            datGuid: begin
+                Write(Format('  result := GetVarGuid(BusinessProcessor.CurrentChange.OldValueByName[fld_%s%s]);',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+            else begin
+                Write(Format('  result := BusinessProcessor.CurrentChange.OldValueByName[fld_%s%s];',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+          end;
+          Write('end;');
+          WriteEmptyLine;
+
+          Write(Format('function T%sBusinessProcessorRules.GetOld%sIsNull: Boolean;', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+          Write('var v: variant;');
+          Write('begin');
+          Write(Format('  v := BusinessProcessor.CurrentChange.OldValueByName[fld_%s%s];',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+          Write('  result := VarIsNull(v) or VarIsClear(v);');
+          Write('end;');
+          WriteEmptyLine;
+
+          if not(Fields[x].DataType in [datMemo, datBlob]) then begin
+            Write(Format('procedure T%sBusinessProcessorRules.Set%sValue(const aValue: %s);', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name), GetDAType(Fields[x].DataType)]));
+            Write('begin');
+            case Fields[x].DataType of
+            {$IFDEF TREAT_DECIMAL_AS_TBCD}
+              datDecimal: begin
+                  Write(Format('  BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s] := BCDToVariant(aValue);', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+            {$ENDIF}
+              datXml:     begin
+                  Write(       '  if aValue = nil then');
+                  Write(Format('  BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s] := ''''', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+                  Write(       '  else');
+                  Write(Format('  BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s] := aValue.XML;', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+              datGuid: begin
+                  Write(Format('  BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s] := GUIDToString(aValue);', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+              end;
+            else
+              Write(Format('  BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s] := aValue;', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name), GetDAType(Fields[x].DataType)]));
+            end;
+            Write('end;');
+            WriteEmptyLine;
+          end;
+
+          Write(Format('procedure T%sBusinessProcessorRules.Set%sIsNull(const aValue: Boolean);', [MakeValidIdentifier(Name), MakeValidIdentifier(Fields[x].Name)]));
+          Write('begin');
+          write('  if aValue then');
+          Write(Format('    BusinessProcessor.CurrentChange.NewValueByName[fld_%s%s] := Null;',  [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Fields[x].Name)]));
+          Write('end;');
+          WriteEmptyLine;
+        end;
+      end;
+
+      WriteEmptyLine;
+    end;
+
+    Write('initialization');
+    for i := 0 to (Datasets.Count-1) do
+      Write(Format('RegisterBusinessProcessorRules(RID_%sDelta, T%sBusinessProcessorRules);', [MakeValidIdentifier(Datasets[i].Name), MakeValidIdentifier(Datasets[i].Name)]), PASCAL_INDENTATION_LEVEL_1);
+
+    WriteEmptyLine;
+    Write('end.');
+  finally
+    guids.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.dfm
new file mode 100644
index 0000000..cbe8103
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.dfm	
@@ -0,0 +1,204 @@
+object DASelectDataTablesForm: TDASelectDataTablesForm
+  Left = 312
+  Top = 219
+  Width = 275
+  Height = 426
+  HorzScrollBar.Range = 59
+  ActiveControl = btn_Ok
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'Select Data Tables...'
+  Color = clBtnFace
+  Constraints.MinHeight = 300
+  Constraints.MinWidth = 275
+  ParentFont = True
+  Icon.Data = {
+    0000010002001010000001000800680500002600000010100000010020006804
+    00008E0500002800000010000000200000000100080000000000000100000000
+    000000000000000100000001000000000000A84A0300AE500600D2761800C777
+    2900CA792C0089815D00B28B5D00CC895100DEA25A00D59E6F00DEAA6A002778
+    9100FF00FF001182AB001E93BE003F9EBC00609592006D9B9A0044B3BE0063BB
+    BC0067B9BD0026A3D10056ADC60043B2CC0048BCCF005BB7D20055BBD70066BB
+    CF006DBCCF003ECAE60023D5FC005ACADD007BD1DE0055D0E90055D8F00050DC
+    F20054DAF40052DDF9006BCEE7004DE2FA009EBBA10093C1BA009AD5CA008ED8
+    DE0099F1ED008CEAF70086F3F80090F2F40099F9F700A2F3EE00A2FAF800AAFA
+    F800B8F8FB00C3FBFA00CCFBFC00E8FEFD000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000FFFFFF000000000000000000000E0E0E0E0E00000000
+    0000000000000E241F262E270E00000000000000010101011F262E27160E0000
+    0E0E0E0E010A0B011F262E27160E000E281F0601050908011F262E27160E0E2F
+    281F0103040101011710171D1A0E0E2F281F0102010C11191F262E1B0F0E0E2F
+    281F152A270E2F281F262E27160E0E211C1710171D0E2F1513262E27160E0E18
+    1E1F262C120C010201242E27160E0E2F281F26010101040301293130220E0E2F
+    281F240108090501073231310E000E2F281F20010B0A010E0E0E0E0E00000E37
+    35342B0101010100000000000000000E3836332D2D0E00000000000000000000
+    0E0E0E0E0E000000000000000000FF830000FF010000FC000000C00000008000
+    0000000000000000000000000000000000000000000000000000000100000003
+    0000007F000080FF0000C1FF0000280000001000000020000000010020000000
+    0000400400000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000001182AB401182ABFF1182
+    ABFF1182ABFF1182ABFF1182ABFF1182AB400000000000000000000000000000
+    00000000000000000000000000009932003D1182AB401182ABFF50DCF2FF23D5
+    FCFF52DEFAFF8CEAF7FF6BCEE7FF1182ABFF1182AB4000000000000000000000
+    0000000000000000000000000000A84A03FFA84A03FFA84A03FFA84A03FF23D5
+    FCFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF000000001182AB401182
+    ABFF1182ABFF1182ABFF498A96FFA84A03FFD59E6FFFDEAA6AFFA84A03FF23D5
+    FCFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182AB401182ABFF4DE2
+    FAFF23D5FCFF89815DFFA84A03FFCA792CFFDEA25AFFCC8951FFA84A03FF23D5
+    FCFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182ABFF86F3F8FF4DE2
+    FAFF23D5FCFFA84A03FFD27618FFC77729FFA84A03FFA84A03FFA84A03FF56AD
+    C6FF3F9EBCFF56ADC6FF6DBCCFFF5BB7D2FF1182ABFF1182ABFF86F3F8FF4DE2
+    FAFF23D5FCFFA84A03FFAE5006FFA84A03FF277890FF609592FF48BCCFFF23D5
+    FCFF52DEFAFF8CEAF7FF55BBD7FF1E93BEFF1182ABFF1182ABFF86F3F8FF4DE2
+    FAFF23D5FCFF67B9BDFF93C1BAFF6BCEE7FF1182ABFF86F3F8FF4DE2FAFF23D5
+    FCFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182ABFF7BD1DEFF66BB
+    CFFF56ADC6FF3F9EBCFF56ADC6FF6DBCCFFF1182ABFF86F3F8FF63BBBCFF44B3
+    BEFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182ABFF43B2CCFF3ECA
+    E6FF23D5FCFF52DEFAFF8ED8DEFF6D9B9AFF277992FFA84A03FFAE5006FFA84A
+    03FF55D8F0FF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182ABFF86F3F8FF4DE2
+    FAFF23D5FCFF52DDF9FFA84A03FFA84A03FFA84A03FFC77729FFD27618FFA84A
+    03FF9EBBA1FF99F9F7FF90F2F4FF55D0E9FF1182ABFF1182ABFF86F3F8FF4DE2
+    FAFF23D5FCFF54DAF4FFA84A03FFCC8951FFDEA25AFFCA792CFFA84A03FFB28B
+    5DFFA2F3EEFF99F9F7FF99F9F7FF1182ABFF1182AB401182ABFF86F3F8FF4DE2
+    FAFF23D5FCFF5ACADDFFA84A03FFDEAA6AFFD59E6FFFA84A03FF47818FFF1182
+    ABFF1182ABFF1182ABFF1182ABFF1182AB40000000001182ABFFCCFBFCFFB8F8
+    FBFFAAFAF8FF9AD5CAFFA84A03FFA84A03FFA84A03FFA84A03FF000000000000
+    000000000000000000000000000000000000000000001182AB401182ABFFE8FE
+    FDFFC3FBFAFFA2FAF8FF99F3EFFF9AF0ECFF1182ABFF1182AB40000000000000
+    00000000000000000000000000000000000000000000000000001182AB401182
+    ABFF1182ABFF1182ABFF1182ABFF1182ABFF1182AB4000000000000000000000
+    00000000000000000000000000000000000000000000FF010000FC000000FC00
+    0000800000000000000000000000000000000000000000000000000000000000
+    00000000000000010000007F0000007F000080FF0000}
+  OldCreateOrder = True
+  Position = poScreenCenter
+  DesignSize = (
+    249
+    380)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object btn_Ok: TBitBtn
+    Left = 94
+    Top = 354
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 0
+    Glyph.Data = {
+      D6020000424DD602000000000000D60000002800000020000000100000000100
+      08000000000000020000C30E0000C30E0000280000002800000000000000FFFF
+      FF00FF00FF0000660000149D210019AA2B00179D27001AB02D001BA92E001DB1
+      32001EB231001FB133001EAE310022B7380021B4370025A83B0031C24F0031B5
+      4D003BCB5E0041C5630047D36D004FD6790053DE7F00CACACA00C4C4C400BFBF
+      BF00B5B5B500ABABAB00A5A5A5009E9E9E009C9C9C009A9A9A00999999009898
+      98009797970094949400939393008C8C8C008A8A8A0065656500020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020203
+      030202020202020202020202020202272702020202020202020202020202030A
+      0B03020202020202020202020202271F1F27020202020202020202020203100D
+      070E0302020202020202020202271B1D221E270202020202020202020314120F
+      03080903020202020202020227191A2127232027020202020202020315161103
+      0203060C030202020202022718171C2702272521270202020202020203130302
+      020202030503020202020202271A270202020227242702020202020202030202
+      0202020203040302020202020227020202020202272627020202020202020202
+      0202020202020303020202020202020202020202020227270202020202020202
+      0202020202020203030202020202020202020202020202272702020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202}
+    NumGlyphs = 2
+  end
+  object btn_Cancel: TBitBtn
+    Left = 174
+    Top = 354
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 1
+    Glyph.Data = {
+      8A030000424D8A030000000000008A0100002800000020000000100000000100
+      08000000000000020000C30E0000C30E0000550000005500000000000000FFFF
+      FF00FF00FF004071FA004274FF00497AFC00275AFF002C5FFF003664FA00386B
+      FF00174AFD001A4CFF001B4DFF001D50FF002355FF002558FF002655FA002E5B
+      F9002D59F400325DF1003B66F3000030FC000132FF000134FF000C3CFF00103D
+      FB00103BF4001342FF001743F6001847FF001A48F9001A47F8001B46F6001D4B
+      FF001C47F6001D48F6001D49F600214EFC00204BF800204CF800224DF800224C
+      F400224DF1002550F400002CF800002DF800002CF600002AF300012DF600032B
+      F2000431FE000733F600123BF100143EF40000009A00C0C0C000BEBEBE00BBBB
+      BB00B9B9B900B6B6B600B5B5B500B3B3B300B1B1B100B0B0B000AFAFAF00AEAE
+      AE00ACACAC00ABABAB00AAAAAA00A9A9A900A8A8A800A7A7A700A6A6A600A4A4
+      A400A3A3A300A2A2A200A0A0A0009F9F9F009E9E9E009C9C9C009A9A9A009999
+      990098989800979797006B6B6B00020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202363602020202020236360202020202
+      02545402020202020254540202020202360A1A3602020202362C153602020202
+      54464C540202020254504F5402020202361F0B343602023630162F3602020202
+      5447444D54020254514E5354020202020236220C3536362D1731360202020202
+      025447434B5454504E52540202020202020236230D1932162E36020202020202
+      02025447424A4D4E5154020202020202020202361E1B18333602020202020202
+      0202025447474A4F54020202020202020202023625211D1C3602020202020202
+      02020254424245495402020202020202020236110728260E2036020202020202
+      0202543E3D434440485402020202020202360809123636290F24360202020202
+      02543B3A415454453F4754020202020236030413360202362A06273602020202
+      5439384054020254473E4454020202023605143602020202362B103602020202
+      54373C5402020202544441540202020202363602020202020236360202020202
+      0254540202020202025454020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202}
+    NumGlyphs = 2
+  end
+  object lb_DataTables: TCheckListBox
+    Left = 0
+    Top = 0
+    Width = 249
+    Height = 349
+    OnClickCheck = lb_DataTablesClick
+    Align = alTop
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ItemHeight = 13
+    TabOrder = 2
+    OnClick = lb_DataTablesClick
+    OnDblClick = lb_DataTablesClick
+  end
+  object cb_SelectAll: TCheckBox
+    Left = 0
+    Top = 355
+    Width = 65
+    Height = 12
+    Anchors = [akLeft, akBottom]
+    Caption = 'Select &All'
+    TabOrder = 3
+    OnClick = cb_SelectAllClick
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.lfm
new file mode 100644
index 0000000..f4f2117
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.lfm	
@@ -0,0 +1,206 @@
+object DASelectDataTablesForm: TDASelectDataTablesForm
+  Left = 348
+  Height = 300
+  Top = 169
+  Width = 275
+  HorzScrollBar.Page = 274
+  HorzScrollBar.Range = 59
+  VertScrollBar.Page = 299
+  ActiveControl = btn_Ok
+  Caption = 'Select Data Tables...'
+  ClientHeight = 300
+  ClientWidth = 275
+  Constraints.MinHeight = 300
+  Constraints.MinWidth = 275
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Pitch = fpVariable
+  Icon.Data = {
+    B609000000000100020010100000010008006805000026000000101000000100
+    2000680400008E05000028000000100000002000000001000800000000000001
+    00000000000000000000000100000001000000000000A84A0300AE500600D276
+    1800C7772900CA792C0089815D00B28B5D00CC895100DEA25A00D59E6F00DEAA
+    6A0027789100FF00FF001182AB001E93BE003F9EBC00609592006D9B9A0044B3
+    BE0063BBBC0067B9BD0026A3D10056ADC60043B2CC0048BCCF005BB7D20055BB
+    D70066BBCF006DBCCF003ECAE60023D5FC005ACADD007BD1DE0055D0E90055D8
+    F00050DCF20054DAF40052DDF9006BCEE7004DE2FA009EBBA10093C1BA009AD5
+    CA008ED8DE0099F1ED008CEAF70086F3F80090F2F40099F9F700A2F3EE00A2FA
+    F800AAFAF800B8F8FB00C3FBFA00CCFBFC00E8FEFD0000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000FFFFFF000000000000000000000E0E0E0E0E
+    000000000000000000000E241F262E270E00000000000000010101011F262E27
+    160E00000E0E0E0E010A0B011F262E27160E000E281F0601050908011F262E27
+    160E0E2F281F0103040101011710171D1A0E0E2F281F0102010C11191F262E1B
+    0F0E0E2F281F152A270E2F281F262E27160E0E211C1710171D0E2F1513262E27
+    160E0E181E1F262C120C010201242E27160E0E2F281F26010101040301293130
+    220E0E2F281F240108090501073231310E000E2F281F20010B0A010E0E0E0E0E
+    00000E3735342B0101010100000000000000000E3836332D2D0E000000000000
+    000000000E0E0E0E0E000000000000000000FF830000FF010000FC000000C000
+    0000800000000000000000000000000000000000000000000000000000000001
+    000000030000007F000080FF0000C1FF00002800000010000000200000000100
+    2000000000004004000000000000000000000000000000000000000000000000
+    00000000000000000000000000000000000000000000000000001182AB401182
+    ABFF1182ABFF1182ABFF1182ABFF1182ABFF1182AB4000000000000000000000
+    0000000000000000000000000000000000009932003D1182AB401182ABFF50DC
+    F2FF23D5FCFF52DEFAFF8CEAF7FF6BCEE7FF1182ABFF1182AB40000000000000
+    000000000000000000000000000000000000A84A03FFA84A03FFA84A03FFA84A
+    03FF23D5FCFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF000000001182
+    AB401182ABFF1182ABFF1182ABFF498A96FFA84A03FFD59E6FFFDEAA6AFFA84A
+    03FF23D5FCFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182AB401182
+    ABFF4DE2FAFF23D5FCFF89815DFFA84A03FFCA792CFFDEA25AFFCC8951FFA84A
+    03FF23D5FCFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182ABFF86F3
+    F8FF4DE2FAFF23D5FCFFA84A03FFD27618FFC77729FFA84A03FFA84A03FFA84A
+    03FF56ADC6FF3F9EBCFF56ADC6FF6DBCCFFF5BB7D2FF1182ABFF1182ABFF86F3
+    F8FF4DE2FAFF23D5FCFFA84A03FFAE5006FFA84A03FF277890FF609592FF48BC
+    CFFF23D5FCFF52DEFAFF8CEAF7FF55BBD7FF1E93BEFF1182ABFF1182ABFF86F3
+    F8FF4DE2FAFF23D5FCFF67B9BDFF93C1BAFF6BCEE7FF1182ABFF86F3F8FF4DE2
+    FAFF23D5FCFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182ABFF7BD1
+    DEFF66BBCFFF56ADC6FF3F9EBCFF56ADC6FF6DBCCFFF1182ABFF86F3F8FF63BB
+    BCFF44B3BEFF52DEFAFF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182ABFF43B2
+    CCFF3ECAE6FF23D5FCFF52DEFAFF8ED8DEFF6D9B9AFF277992FFA84A03FFAE50
+    06FFA84A03FF55D8F0FF8CEAF7FF6BCEE7FF26A3D1FF1182ABFF1182ABFF86F3
+    F8FF4DE2FAFF23D5FCFF52DDF9FFA84A03FFA84A03FFA84A03FFC77729FFD276
+    18FFA84A03FF9EBBA1FF99F9F7FF90F2F4FF55D0E9FF1182ABFF1182ABFF86F3
+    F8FF4DE2FAFF23D5FCFF54DAF4FFA84A03FFCC8951FFDEA25AFFCA792CFFA84A
+    03FFB28B5DFFA2F3EEFF99F9F7FF99F9F7FF1182ABFF1182AB401182ABFF86F3
+    F8FF4DE2FAFF23D5FCFF5ACADDFFA84A03FFDEAA6AFFD59E6FFFA84A03FF4781
+    8FFF1182ABFF1182ABFF1182ABFF1182ABFF1182AB40000000001182ABFFCCFB
+    FCFFB8F8FBFFAAFAF8FF9AD5CAFFA84A03FFA84A03FFA84A03FFA84A03FF0000
+    00000000000000000000000000000000000000000000000000001182AB401182
+    ABFFE8FEFDFFC3FBFAFFA2FAF8FF99F3EFFF9AF0ECFF1182ABFF1182AB400000
+    0000000000000000000000000000000000000000000000000000000000001182
+    AB401182ABFF1182ABFF1182ABFF1182ABFF1182ABFF1182AB40000000000000
+    0000000000000000000000000000000000000000000000000000
+  }
+  Position = poScreenCenter
+  object btn_Ok: TBitBtn
+    AnchorSideTop.Side = asrBottom
+    Left = 89
+    Height = 25
+    Top = 271
+    Width = 90
+    Align = alCustom
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    Default = True
+    Glyph.Data = {
+      D6020000424DD602000000000000D60000002800000020000000100000000100
+      08000000000000020000C30E0000C30E0000280000002800000000000000FFFF
+      FF00FF00FF0000660000149D210019AA2B00179D27001AB02D001BA92E001DB1
+      32001EB231001FB133001EAE310022B7380021B4370025A83B0031C24F0031B5
+      4D003BCB5E0041C5630047D36D004FD6790053DE7F00CACACA00C4C4C400BFBF
+      BF00B5B5B500ABABAB00A5A5A5009E9E9E009C9C9C009A9A9A00999999009898
+      98009797970094949400939393008C8C8C008A8A8A0065656500020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020203
+      030202020202020202020202020202272702020202020202020202020202030A
+      0B03020202020202020202020202271F1F27020202020202020202020203100D
+      070E0302020202020202020202271B1D221E270202020202020202020314120F
+      03080903020202020202020227191A2127232027020202020202020315161103
+      0203060C030202020202022718171C2702272521270202020202020203130302
+      020202030503020202020202271A270202020227242702020202020202030202
+      0202020203040302020202020227020202020202272627020202020202020202
+      0202020202020303020202020202020202020202020227270202020202020202
+      0202020202020203030202020202020202020202020202272702020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202
+    }
+    ModalResult = 1
+    NumGlyphs = 2
+    TabOrder = 2
+  end
+  object btn_Cancel: TBitBtn
+    AnchorSideTop.Side = asrBottom
+    Left = 180
+    Height = 25
+    Top = 271
+    Width = 90
+    Align = alCustom
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    Glyph.Data = {
+      8A030000424D8A030000000000008A0100002800000020000000100000000100
+      08000000000000020000C30E0000C30E0000550000005500000000000000FFFF
+      FF00FF00FF004071FA004274FF00497AFC00275AFF002C5FFF003664FA00386B
+      FF00174AFD001A4CFF001B4DFF001D50FF002355FF002558FF002655FA002E5B
+      F9002D59F400325DF1003B66F3000030FC000132FF000134FF000C3CFF00103D
+      FB00103BF4001342FF001743F6001847FF001A48F9001A47F8001B46F6001D4B
+      FF001C47F6001D48F6001D49F600214EFC00204BF800204CF800224DF800224C
+      F400224DF1002550F400002CF800002DF800002CF600002AF300012DF600032B
+      F2000431FE000733F600123BF100143EF40000009A00C0C0C000BEBEBE00BBBB
+      BB00B9B9B900B6B6B600B5B5B500B3B3B300B1B1B100B0B0B000AFAFAF00AEAE
+      AE00ACACAC00ABABAB00AAAAAA00A9A9A900A8A8A800A7A7A700A6A6A600A4A4
+      A400A3A3A300A2A2A200A0A0A0009F9F9F009E9E9E009C9C9C009A9A9A009999
+      990098989800979797006B6B6B00020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202363602020202020236360202020202
+      02545402020202020254540202020202360A1A3602020202362C153602020202
+      54464C540202020254504F5402020202361F0B343602023630162F3602020202
+      5447444D54020254514E5354020202020236220C3536362D1731360202020202
+      025447434B5454504E52540202020202020236230D1932162E36020202020202
+      02025447424A4D4E5154020202020202020202361E1B18333602020202020202
+      0202025447474A4F54020202020202020202023625211D1C3602020202020202
+      02020254424245495402020202020202020236110728260E2036020202020202
+      0202543E3D434440485402020202020202360809123636290F24360202020202
+      02543B3A415454453F4754020202020236030413360202362A06273602020202
+      5439384054020254473E4454020202023605143602020202362B103602020202
+      54373C5402020202544441540202020202363602020202020236360202020202
+      0254540202020202025454020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202
+    }
+    ModalResult = 2
+    NumGlyphs = 2
+    TabOrder = 3
+  end
+  object lb_DataTables: TCheckListBox
+    Height = 266
+    Width = 275
+    Align = alTop
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    ItemHeight = 13
+    OnClick = lb_DataTablesClick
+    OnClickCheck = lb_DataTablesClick
+    OnDblClick = lb_DataTablesClick
+    TabOrder = 0
+  end
+  object cb_SelectAll: TCheckBox
+    AnchorSideTop.Side = asrBottom
+    Left = 8
+    Height = 21
+    Top = 273
+    Width = 72
+    Align = alCustom
+    Anchors = [akLeft, akBottom]
+    Caption = 'Select &All'
+    OnClick = cb_SelectAllClick
+    TabOrder = 1
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.lrs
new file mode 100644
index 0000000..88a24b6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.lrs	
@@ -0,0 +1,168 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TDASelectDataTablesForm','FORMDATA',[
+  'TPF0'#23'TDASelectDataTablesForm'#22'DASelectDataTablesForm'#4'Left'#3'\'#1#6
+  +'Height'#3','#1#3'Top'#3#169#0#5'Width'#3#19#1#18'HorzScrollBar.Page'#3#18#1
+  +#19'HorzScrollBar.Range'#2';'#18'VertScrollBar.Page'#3'+'#1#13'ActiveControl'
+  +#7#6'btn_Ok'#7'Caption'#6#21'Select Data Tables...'#12'ClientHeight'#3','#1
+  +#11'ClientWidth'#3#19#1#21'Constraints.MinHeight'#3','#1#20'Constraints.MinW'
+  +'idth'#3#19#1#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Pitch'#7
+  +#10'fpVariable'#9'Icon.Data'#10#186#9#0#0#182#9#0#0#0#0#1#0#2#0#16#16#0#0#1#0
+  +#8#0'h'#5#0#0'&'#0#0#0#16#16#0#0#1#0' '#0'h'#4#0#0#142#5#0#0'('#0#0#0#16#0#0
+  +#0' '#0#0#0#1#0#8#0#0#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1#0#0#0#0#0#0
+  +#168'J'#3#0#174'P'#6#0#210'v'#24#0#199'w)'#0#202'y,'#0#137#129']'#0#178#139
+  +']'#0#204#137'Q'#0#222#162'Z'#0#213#158'o'#0#222#170'j'#0'''x'#145#0#255#0
+  +#255#0#17#130#171#0#30#147#190#0'?'#158#188#0'`'#149#146#0'm'#155#154#0'D'
+  +#179#190#0'c'#187#188#0'g'#185#189#0'&'#163#209#0'V'#173#198#0'C'#178#204#0
+  +'H'#188#207#0'['#183#210#0'U'#187#215#0'f'#187#207#0'm'#188#207#0'>'#202#230
+  +#0'#'#213#252#0'Z'#202#221#0'{'#209#222#0'U'#208#233#0'U'#216#240#0'P'#220
+  +#242#0'T'#218#244#0'R'#221#249#0'k'#206#231#0'M'#226#250#0#158#187#161#0#147
+  +#193#186#0#154#213#202#0#142#216#222#0#153#241#237#0#140#234#247#0#134#243
+  +#248#0#144#242#244#0#153#249#247#0#162#243#238#0#162#250#248#0#170#250#248#0
+  +#184#248#251#0#195#251#250#0#204#251#252#0#232#254#253#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#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#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#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#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#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#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#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#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#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#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#255#255#255#0#0#0#0#0#0#0#0#0#0
+  +#14#14#14#14#14#0#0#0#0#0#0#0#0#0#0#14'$'#31'&.'''#14#0#0#0#0#0#0#0#1#1#1#1
+  +#31'&.'''#22#14#0#0#14#14#14#14#1#10#11#1#31'&.'''#22#14#0#14'('#31#6#1#5#9#8
+  +#1#31'&.'''#22#14#14'/('#31#1#3#4#1#1#1#23#16#23#29#26#14#14'/('#31#1#2#1#12
+  +#17#25#31'&.'#27#15#14#14'/('#31#21'*'''#14'/('#31'&.'''#22#14#14'!'#28#23#16
+  +#23#29#14'/'#21#19'&.'''#22#14#14#24#30#31'&,'#18#12#1#2#1'$.'''#22#14#14'/('
+  +#31'&'#1#1#1#4#3#1')10"'#14#14'/('#31'$'#1#8#9#5#1#7'211'#14#0#14'/('#31' '#1
+  +#11#10#1#14#14#14#14#14#0#0#14'754+'#1#1#1#1#0#0#0#0#0#0#0#0#14'863--'#14#0#0
+  +#0#0#0#0#0#0#0#0#14#14#14#14#14#0#0#0#0#0#0#0#0#0#255#131#0#0#255#1#0#0#252#0
+  +#0#0#192#0#0#0#128#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#1
+  +#0#0#0#3#0#0#0''#0#0#128#255#0#0#193#255#0#0'('#0#0#0#16#0#0#0' '#0#0#0#1#0
+  +' '#0#0#0#0#0'@'#4#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#17#130#171'@'#17#130#171#255#17
+  +#130#171#255#17#130#171#255#17#130#171#255#17#130#171#255#17#130#171'@'#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#153'2'#0'='#17#130#171'@'
+  +#17#130#171#255'P'#220#242#255'#'#213#252#255'R'#222#250#255#140#234#247#255
+  +'k'#206#231#255#17#130#171#255#17#130#171'@'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#168'J'#3#255#168'J'#3#255#168'J'#3#255#168'J'#3#255'#'#213
+  +#252#255'R'#222#250#255#140#234#247#255'k'#206#231#255'&'#163#209#255#17#130
+  +#171#255#0#0#0#0#17#130#171'@'#17#130#171#255#17#130#171#255#17#130#171#255
+  +'I'#138#150#255#168'J'#3#255#213#158'o'#255#222#170'j'#255#168'J'#3#255'#'
+  +#213#252#255'R'#222#250#255#140#234#247#255'k'#206#231#255'&'#163#209#255#17
+  +#130#171#255#17#130#171'@'#17#130#171#255'M'#226#250#255'#'#213#252#255#137
+  +#129']'#255#168'J'#3#255#202'y,'#255#222#162'Z'#255#204#137'Q'#255#168'J'#3
+  +#255'#'#213#252#255'R'#222#250#255#140#234#247#255'k'#206#231#255'&'#163#209
+  ,#255#17#130#171#255#17#130#171#255#134#243#248#255'M'#226#250#255'#'#213#252
+  +#255#168'J'#3#255#210'v'#24#255#199'w)'#255#168'J'#3#255#168'J'#3#255#168'J'
+  +#3#255'V'#173#198#255'?'#158#188#255'V'#173#198#255'm'#188#207#255'['#183#210
+  +#255#17#130#171#255#17#130#171#255#134#243#248#255'M'#226#250#255'#'#213#252
+  +#255#168'J'#3#255#174'P'#6#255#168'J'#3#255'''x'#144#255'`'#149#146#255'H'
+  +#188#207#255'#'#213#252#255'R'#222#250#255#140#234#247#255'U'#187#215#255#30
+  +#147#190#255#17#130#171#255#17#130#171#255#134#243#248#255'M'#226#250#255'#'
+  +#213#252#255'g'#185#189#255#147#193#186#255'k'#206#231#255#17#130#171#255#134
+  +#243#248#255'M'#226#250#255'#'#213#252#255'R'#222#250#255#140#234#247#255'k'
+  +#206#231#255'&'#163#209#255#17#130#171#255#17#130#171#255'{'#209#222#255'f'
+  +#187#207#255'V'#173#198#255'?'#158#188#255'V'#173#198#255'm'#188#207#255#17
+  +#130#171#255#134#243#248#255'c'#187#188#255'D'#179#190#255'R'#222#250#255#140
+  +#234#247#255'k'#206#231#255'&'#163#209#255#17#130#171#255#17#130#171#255'C'
+  +#178#204#255'>'#202#230#255'#'#213#252#255'R'#222#250#255#142#216#222#255'm'
+  +#155#154#255'''y'#146#255#168'J'#3#255#174'P'#6#255#168'J'#3#255'U'#216#240
+  +#255#140#234#247#255'k'#206#231#255'&'#163#209#255#17#130#171#255#17#130#171
+  +#255#134#243#248#255'M'#226#250#255'#'#213#252#255'R'#221#249#255#168'J'#3
+  +#255#168'J'#3#255#168'J'#3#255#199'w)'#255#210'v'#24#255#168'J'#3#255#158#187
+  +#161#255#153#249#247#255#144#242#244#255'U'#208#233#255#17#130#171#255#17#130
+  +#171#255#134#243#248#255'M'#226#250#255'#'#213#252#255'T'#218#244#255#168'J'
+  +#3#255#204#137'Q'#255#222#162'Z'#255#202'y,'#255#168'J'#3#255#178#139']'#255
+  +#162#243#238#255#153#249#247#255#153#249#247#255#17#130#171#255#17#130#171'@'
+  +#17#130#171#255#134#243#248#255'M'#226#250#255'#'#213#252#255'Z'#202#221#255
+  +#168'J'#3#255#222#170'j'#255#213#158'o'#255#168'J'#3#255'G'#129#143#255#17
+  +#130#171#255#17#130#171#255#17#130#171#255#17#130#171#255#17#130#171'@'#0#0#0
+  +#0#17#130#171#255#204#251#252#255#184#248#251#255#170#250#248#255#154#213#202
+  +#255#168'J'#3#255#168'J'#3#255#168'J'#3#255#168'J'#3#255#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#17#130#171'@'#17#130#171#255#232#254#253
+  +#255#195#251#250#255#162#250#248#255#153#243#239#255#154#240#236#255#17#130
+  +#171#255#17#130#171'@'#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#17#130#171'@'#17#130#171#255#17#130#171#255#17#130#171#255#17#130
+  +#171#255#17#130#171#255#17#130#171'@'#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#8'Position'#7#14'poScreenCenter'#0#7'TBitBtn'#6'btn'
+  +'_Ok'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'Y'#6'Height'#2#25#3'To'
+  +'p'#3#15#1#5'Width'#2'Z'#5'Align'#7#8'alCustom'#7'Anchors'#11#7'akRight'#8'a'
+  +'kBottom'#0#7'Caption'#6#2'OK'#7'Default'#9#10'Glyph.Data'#10#218#2#0#0#214#2
+  +#0#0'BM'#214#2#0#0#0#0#0#0#214#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#8#0#0#0#0
+  +#0#0#2#0#0#195#14#0#0#195#14#0#0'('#0#0#0'('#0#0#0#0#0#0#0#255#255#255#0#255
+  +#0#255#0#0'f'#0#0#20#157'!'#0#25#170'+'#0#23#157''''#0#26#176'-'#0#27#169'.'
+  +#0#29#177'2'#0#30#178'1'#0#31#177'3'#0#30#174'1'#0'"'#183'8'#0'!'#180'7'#0'%'
+  +#168';'#0'1'#194'O'#0'1'#181'M'#0';'#203'^'#0'A'#197'c'#0'G'#211'm'#0'O'#214
+  +'y'#0'S'#222''#0#202#202#202#0#196#196#196#0#191#191#191#0#181#181#181#0#171
+  +#171#171#0#165#165#165#0#158#158#158#0#156#156#156#0#154#154#154#0#153#153
+  +#153#0#152#152#152#0#151#151#151#0#148#148#148#0#147#147#147#0#140#140#140#0
+  +#138#138#138#0'eee'#0#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2''''''#2#2#2#2#2#2#2#2#2#2#2#2#2#3#10
+  +#11#3#2#2#2#2#2#2#2#2#2#2#2#2''''#31#31''''#2#2#2#2#2#2#2#2#2#2#2#3#16#13#7
+  +#14#3#2#2#2#2#2#2#2#2#2#2''''#27#29'"'#30''''#2#2#2#2#2#2#2#2#2#3#20#18#15#3
+  +#8#9#3#2#2#2#2#2#2#2#2''''#25#26'!''# '''#2#2#2#2#2#2#2#3#21#22#17#3#2#3#6#12
+  +#3#2#2#2#2#2#2''''#24#23#28''''#2'''%!'''#2#2#2#2#2#2#2#3#19#3#2#2#2#2#3#5#3
+  +#2#2#2#2#2#2''''#26''''#2#2#2#2'''$'''#2#2#2#2#2#2#2#3#2#2#2#2#2#2#3#4#3#2#2
+  +#2#2#2#2''''#2#2#2#2#2#2'''&'''#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#3#3#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2''''''#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2''''''#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#11'ModalResult'#2#1#9'NumGlyphs'#2#2#8'TabO'
+  +'rder'#2#2#0#0#7'TBitBtn'#10'btn_Cancel'#18'AnchorSideTop.Side'#7#9'asrBotto'
+  +'m'#4'Left'#3#180#0#6'Height'#2#25#3'Top'#3#15#1#5'Width'#2'Z'#5'Align'#7#8
+  +'alCustom'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Caption'#6#6
+  +'Cancel'#10'Glyph.Data'#10#142#3#0#0#138#3#0#0'BM'#138#3#0#0#0#0#0#0#138#1#0
+  +#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#8#0#0#0#0#0#0#2#0#0#195#14#0#0#195#14#0#0
+  ,'U'#0#0#0'U'#0#0#0#0#0#0#0#255#255#255#0#255#0#255#0'@q'#250#0'Bt'#255#0'Iz'
+  +#252#0'''Z'#255#0',_'#255#0'6d'#250#0'8k'#255#0#23'J'#253#0#26'L'#255#0#27'M'
+  +#255#0#29'P'#255#0'#U'#255#0'%X'#255#0'&U'#250#0'.['#249#0'-Y'#244#0'2]'#241
+  +#0';f'#243#0#0'0'#252#0#1'2'#255#0#1'4'#255#0#12'<'#255#0#16'='#251#0#16';'
+  +#244#0#19'B'#255#0#23'C'#246#0#24'G'#255#0#26'H'#249#0#26'G'#248#0#27'F'#246
+  +#0#29'K'#255#0#28'G'#246#0#29'H'#246#0#29'I'#246#0'!N'#252#0' K'#248#0' L'
+  +#248#0'"M'#248#0'"L'#244#0'"M'#241#0'%P'#244#0#0','#248#0#0'-'#248#0#0','#246
+  +#0#0'*'#243#0#1'-'#246#0#3'+'#242#0#4'1'#254#0#7'3'#246#0#18';'#241#0#20'>'
+  +#244#0#0#0#154#0#192#192#192#0#190#190#190#0#187#187#187#0#185#185#185#0#182
+  +#182#182#0#181#181#181#0#179#179#179#0#177#177#177#0#176#176#176#0#175#175
+  +#175#0#174#174#174#0#172#172#172#0#171#171#171#0#170#170#170#0#169#169#169#0
+  +#168#168#168#0#167#167#167#0#166#166#166#0#164#164#164#0#163#163#163#0#162
+  +#162#162#0#160#160#160#0#159#159#159#0#158#158#158#0#156#156#156#0#154#154
+  +#154#0#153#153#153#0#152#152#152#0#151#151#151#0'kkk'#0#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2'66'#2#2#2#2#2#2'66'#2#2#2#2#2#2'TT'#2#2
+  +#2#2#2#2'TT'#2#2#2#2#2'6'#10#26'6'#2#2#2#2'6,'#21'6'#2#2#2#2'TFLT'#2#2#2#2'T'
+  +'POT'#2#2#2#2'6'#31#11'46'#2#2'60'#22'/6'#2#2#2#2'TGDMT'#2#2'TQNST'#2#2#2#2#2
+  +'6"'#12'566-'#23'16'#2#2#2#2#2#2'TGCKTTPNRT'#2#2#2#2#2#2#2'6#'#13#25'2'#22'.'
+  +'6'#2#2#2#2#2#2#2#2'TGBJMNQT'#2#2#2#2#2#2#2#2#2'6'#30#27#24'36'#2#2#2#2#2#2#2
+  +#2#2#2'TGGJOT'#2#2#2#2#2#2#2#2#2#2'6%!'#29#28'6'#2#2#2#2#2#2#2#2#2#2'TBBEIT'
+  +#2#2#2#2#2#2#2#2#2'6'#17#7'(&'#14' 6'#2#2#2#2#2#2#2#2'T>=CD@HT'#2#2#2#2#2#2#2
+  +'6'#8#9#18'66)'#15'$6'#2#2#2#2#2#2'T;:ATTE?GT'#2#2#2#2#2'6'#3#4#19'6'#2#2'6*'
+  +#6'''6'#2#2#2#2'T98@T'#2#2'TG>DT'#2#2#2#2'6'#5#20'6'#2#2#2#2'6+'#16'6'#2#2#2
+  +#2'T7<T'#2#2#2#2'TDAT'#2#2#2#2#2'66'#2#2#2#2#2#2'66'#2#2#2#2#2#2'TT'#2#2#2#2
+  +#2#2'TT'#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#11'ModalR'
+  +'esult'#2#2#9'NumGlyphs'#2#2#8'TabOrder'#2#3#0#0#13'TCheckListBox'#13'lb_Dat'
+  +'aTables'#6'Height'#3#10#1#5'Width'#3#19#1#5'Align'#7#5'alTop'#7'Anchors'#11
+  +#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ItemHeight'#2#13#7'OnClick'#7
+  +#18'lb_DataTablesClick'#12'OnClickCheck'#7#18'lb_DataTablesClick'#10'OnDblCl'
+  +'ick'#7#18'lb_DataTablesClick'#8'TabOrder'#2#0#0#0#9'TCheckBox'#12'cb_Select'
+  +'All'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#21#3'Top'
+  +#3#17#1#5'Width'#2'H'#5'Align'#7#8'alCustom'#7'Anchors'#11#6'akLeft'#8'akBot'
+  +'tom'#0#7'Caption'#6#11'Select &All'#7'OnClick'#7#17'cb_SelectAllClick'#8'Ta'
+  +'bOrder'#2#1#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.pas
new file mode 100644
index 0000000..d793599
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/IDE/uDASelectDataTablesForm.pas	
@@ -0,0 +1,92 @@
+unit uDASelectDataTablesForm;
+
+{$IFDEF MSWINDOWS}
+{$I ..\DataAbstract.inc}
+{$ELSE}
+{$I ../DataAbstract.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC} LResources, {$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Messages, SysUtils, Variants, Classes
+  ,Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, Buttons;
+
+type
+  TDASelectDataTablesForm = class(TForm)
+    btn_Ok: TBitBtn;
+    btn_Cancel: TBitBtn;
+    lb_DataTables: TCheckListBox;
+    cb_SelectAll: TCheckBox;
+    procedure cb_SelectAllClick(Sender: TObject);
+    procedure lb_DataTablesClick(Sender: TObject);
+  private
+    fChanging: boolean;
+    procedure SetOkButtonCaption(const Value: string);
+  public
+    procedure UpdateCheckBoxState;
+    property OkButtonCaption: string write SetOkButtonCaption;
+  end;
+
+var
+  DASelectDataTablesForm: TDASelectDataTablesForm;
+
+implementation
+{$IFNDEF FPC}
+  {$R *.dfm}
+{$ENDIF FPC}
+
+procedure TDASelectDataTablesForm.cb_SelectAllClick(Sender: TObject);
+var
+  i: integer;
+begin
+  if fChanging then exit;
+  fChanging := true;
+  try
+    for i := 0 to lb_DataTables.Items.Count-1 do
+      lb_DataTables.Checked[i] := cb_SelectAll.Checked;
+  finally
+    fChanging := false;
+  end;
+end;
+
+procedure TDASelectDataTablesForm.lb_DataTablesClick(Sender: TObject);
+var
+  lNone, lAll: boolean;
+  i: integer;
+begin
+  if fChanging then exit;
+  fChanging := true;
+  try
+    lNone := true;
+    lAll := true;
+    for i := 0 to lb_DataTables.Items.Count-1 do
+      if lb_DataTables.Checked[i] then
+        lNone := false
+      else
+        lAll := false;
+    if lNone then cb_SelectAll.State := cbUnchecked
+    else if lAll then cb_SelectAll.State := cbChecked
+    else cb_SelectAll.State := cbGrayed;
+  finally
+    fChanging := false;
+  end;
+end;
+
+procedure TDASelectDataTablesForm.SetOkButtonCaption(const Value: string);
+begin
+  btn_Ok.Caption := Value;
+end;
+
+procedure TDASelectDataTablesForm.UpdateCheckBoxState;
+begin
+  lb_DataTablesClick(nil);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I uDASelectDataTablesForm.lrs}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.dfm
new file mode 100644
index 0000000..27ec41e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.dfm	
@@ -0,0 +1,2 @@
+inherited MultiDbLoginServicev5: TMultiDbLoginServicev5
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.lfm
new file mode 100644
index 0000000..27ec41e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.lfm	
@@ -0,0 +1,2 @@
+inherited MultiDbLoginServicev5: TMultiDbLoginServicev5
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.pas
new file mode 100644
index 0000000..78377cf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginServiceV5_Impl.pas	
@@ -0,0 +1,44 @@
+unit MultiDbLoginServiceV5_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROSessions,
+  {Ancestor Implementation:} MultiDbLoginService_Impl,
+  {Generated:} DataAbstract4_Intf;
+
+type
+  { TMultiDbLoginServiceV5 }
+  TMultiDbLoginServiceV5 = class(TMultiDbLoginService,IMultiDbLoginServiceV5)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+uses
+  {Generated:} DataAbstract4_Invk;
+  
+procedure Create_MultiDbLoginServiceV5(out anInstance : IUnknown);
+begin
+  anInstance := TMultiDbLoginServiceV5.Create(nil);
+end;
+
+initialization
+  TROClassFactory.Create('MultiDbLoginServiceV5', Create_MultiDbLoginServiceV5, TMultiDbLoginServiceV5_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.dfm
new file mode 100644
index 0000000..5892128
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.dfm	
@@ -0,0 +1,2 @@
+inherited MultiDbLoginService: TMultiDbLoginService
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.lfm
new file mode 100644
index 0000000..5892128
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.lfm	
@@ -0,0 +1,2 @@
+inherited MultiDbLoginService: TMultiDbLoginService
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.pas
new file mode 100644
index 0000000..48d735a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/MultiDbLoginService_Impl.pas	
@@ -0,0 +1,129 @@
+unit MultiDbLoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROSessions, uDAClasses,
+  {Ancestor Implementation:} BaseLoginService_Impl,
+  {Generated:} DataAbstract4_Intf;
+
+type
+  TMultiDbLoginEvent = procedure(Sender: TObject; const aUserID, aPassword, aConnectionName: Utf8String; out aUserInfo: UserInfo; var aLoginSuccessful: boolean) of object;
+
+  { TMultiDbLoginService }
+  TMultiDbLoginService = class(TBaseLoginService, IMultiDbLoginService,IMultiDbLoginServiceV5)
+  private
+    fOnLogin: TMultiDbLoginEvent;
+    FConnectionManager: TDAConnectionManager;
+    procedure SetConnectionManager(const Value: TDAConnectionManager);
+  protected
+    { IMultiDbLoginService methods }
+    function Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String; out aUserInfo: UserInfo): Boolean;
+    function LoginEx(const aLoginString: Utf8String): Boolean; override;    
+    { IMultiDbLoginServiceV5 methods }
+    function GetConnectionNames: StringArray;
+    function GetDefaultConnectionName: Utf8String;
+  public
+    procedure CheckProperties;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property OnLogin: TMultiDbLoginEvent read fOnLogin write fOnLogin;
+    property ConnectionManager: TDAConnectionManager read FConnectionManager write SetConnectionManager;
+  end;
+
+implementation
+uses
+  uROClasses;
+{ MultiDbLoginService }
+
+procedure TMultiDbLoginService.Assign(Source: TPersistent);
+var
+  lSource: TMultiDbLoginService;
+begin
+  inherited;
+  if Source is TMultiDbLoginService then begin
+    lSource := TMultiDbLoginService(Source);
+
+    ConnectionManager := lSource.ConnectionManager;
+    OnLogin := lSource.OnLogin;
+  end;
+end;
+
+procedure TMultiDbLoginService.CheckProperties;
+begin
+ Check(not assigned(ConnectionManager), Name+'.ConnectionManager must be assigned.');
+ ConnectionManager.CheckProperties;
+end;
+
+destructor TMultiDbLoginService.Destroy;
+begin
+  ConnectionManager := nil;
+  inherited;
+end;
+
+function TMultiDbLoginService.GetConnectionNames: StringArray;
+var
+  i: integer;
+begin
+  CheckProperties;
+  Result:= StringArray.Create;
+  For i:=0 to ConnectionManager.Connections.Count-1 do
+    Result.Add(AnsiToUtf8(ConnectionManager.Connections[i].Name));
+end;
+
+function TMultiDbLoginService.GetDefaultConnectionName: Utf8String;
+begin
+  CheckProperties;
+  Result := AnsiToUtf8(FConnectionManager.GetDefaultConnectionName);
+end;
+
+function TMultiDbLoginService.Login(const aUserID: Utf8String; const aPassword: Utf8String; const aConnectionName: Utf8String; out aUserInfo: UserInfo): Boolean;
+var
+  lLoginSuccessful: boolean;
+begin
+  lLoginSuccessful := false;
+  if assigned(OnLogin) then
+    OnLogin(self, aUserID, aPassword, aConnectionName, aUserInfo, lLoginSuccessful);
+  result := lLoginSuccessful;
+end;
+
+function TMultiDbLoginService.LoginEx(
+  const aLoginString: Utf8String): Boolean;
+var
+  lIgnore: UserInfo;
+  lLoginString : TLoginString;
+begin
+  lLoginString := TLoginString.Create(aLoginString);
+  try
+    result := Login(lLoginString.UserName,  lLoginString.Password,  lLoginString.Connection,  lIgnore);
+  finally
+    lLoginString.Free;
+  end;
+end;
+
+procedure TMultiDbLoginService.SetConnectionManager(const Value: TDAConnectionManager);
+begin
+  if FConnectionManager <> Value then begin
+    if assigned(FConnectionManager) then FConnectionManager.RORemoveFreeNotification(self);
+    FConnectionManager := Value;
+    if assigned(FConnectionManager) then FConnectionManager.ROFreeNotification(self);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.dfm
new file mode 100644
index 0000000..775b9ce
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.dfm	
@@ -0,0 +1,2 @@
+inherited SimpleLoginService: TSimpleLoginService
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.lfm
new file mode 100644
index 0000000..775b9ce
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.lfm	
@@ -0,0 +1,2 @@
+inherited SimpleLoginService: TSimpleLoginService
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.pas
new file mode 100644
index 0000000..e13ce16
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/SimpleLoginService_Impl.pas	
@@ -0,0 +1,81 @@
+unit SimpleLoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROSessions,
+  {Ancestor Implementation:} BaseLoginService_Impl,
+  {Generated:} DataAbstract4_Intf;
+
+type
+  TSimpleLoginEvent = procedure(Sender: TObject; aUserID, aPassword: Utf8String; out aUserInfo: UserInfo; var aLoginSuccessful: boolean) of object;
+
+  { TSimpleLoginService }
+  TSimpleLoginService = class(TBaseLoginService, ISimpleLoginService)
+  private
+    fOnLogin: TSimpleLoginEvent;
+  protected
+    { ISimpleLoginService methods }
+    function Login(const aUserID: Utf8String; const aPassword: Utf8String; out aUserInfo: UserInfo): Boolean;
+    function LoginEx(const aLoginString: Utf8String): Boolean; override;
+  public
+    procedure Assign(Source: TPersistent); override;
+  published
+    property OnLogin: TSimpleLoginEvent read fOnLogin write fOnLogin;
+  end;
+
+implementation
+
+{ SimpleLoginService }
+
+procedure TSimpleLoginService.Assign(Source: TPersistent);
+var
+  lSource: TSimpleLoginService;
+begin
+  inherited;
+  if Source is TSimpleLoginService then begin
+    lSource := TSimpleLoginService(Source);
+    OnLogin := lSource.OnLogin;
+  end;
+end;
+
+function TSimpleLoginService.Login(const aUserID: Utf8String; const aPassword: Utf8String; out aUserInfo: UserInfo): Boolean;
+var
+  lLoginSuccessful: boolean;
+begin
+  lLoginSuccessful := false;
+  if assigned(OnLogin) then
+    OnLogin(self, aUserID, aPassword, aUserInfo, lLoginSuccessful);
+  result := lLoginSuccessful;
+end;
+
+function TSimpleLoginService.LoginEx(
+  const aLoginString: Utf8String): Boolean;
+var
+  lIgnore: UserInfo;
+  lLoginString: TLoginString;
+begin
+  lLoginString := TLoginString.Create(aLoginString);
+  try
+    result := self.Login(lLoginString.UserName, lLoginString.Password,  lIgnore);
+  finally
+    lLoginString.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDAJvMTable.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDAJvMTable.pas
new file mode 100644
index 0000000..a7cffe6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDAJvMTable.pas	
@@ -0,0 +1,189 @@
+unit uDAJvMTable;
+
+interface
+
+uses Classes, DB, uDAInterfaces, uDADataTable, JvMemDS;
+
+type
+
+  TDAJvMDataset = class(TJvMemoryData, IDADataTableDataset)
+  private
+    function GetActive: boolean;
+
+  protected
+    function GetDataTable: TDADataTable; safecall;
+    procedure InternalRefresh; override;
+
+  published
+    property Active: boolean read GetActive;
+  end;
+
+  TDAJvMemDataTable = class(TDADataTable)
+  private
+
+    fClientDataset: TDAJvMDataset;
+
+  protected
+    function GetDatasetClass: TDatasetClass; override;
+    procedure CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection); override;
+    procedure DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection); override;
+
+    procedure DoBeforeOpenDataset; override;
+    procedure DoAfterCloseDataset; override;
+
+    procedure SetMasterSource(const Value: TDADataSource); override;
+    function GetMasterSource: TDADataSource; override;
+    procedure SetDetailsFields(const Value: string); override;
+    procedure SetMasterFields(const Value: string); override;
+    function GetDetailFields: string; override;
+    function GetMasterFields: string; override;
+
+    function GetIndexDefs: TIndexDefs;
+    procedure SetIndexDefs(const Value: TIndexDefs);
+    function GetIndexName: string;
+    procedure SetIndexName(const Value: string);
+
+    function GetFilter: string; override;
+    function GetFiltered: boolean; override;
+    procedure SetFilter(const Value: string); override;
+    procedure SetFiltered(const Value: boolean); override;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+
+  published
+    property IndexDefs: TIndexDefs read GetIndexDefs write SetIndexDefs;
+    property IndexName: string read GetIndexName write SetIndexName;
+
+  end;
+
+implementation
+
+uses Variants;
+
+constructor TDAJvMemDataTable.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fClientDataset := TDAJvMDataset(Dataset);
+  fClientDataset.FilterOptions :=  [foCaseInsensitive];
+end;
+
+procedure TDAJvMemDataTable.CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection);
+begin
+  inherited;
+
+  fClientDataset.FieldDefs.Clear;
+  fClientDataset.CreateFields;
+
+end;
+
+procedure TDAJvMemDataTable.DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection);
+begin
+  with fclientDataset do begin
+      Sort(Fieldnames,Directions);
+  end;
+end;
+
+function TDAJvMemDataTable.GetDatasetClass: TDatasetClass;
+begin
+  result := TDAJvMDataset;
+end;
+
+function TDAJvMemDataTable.GetMasterSource: TDADataSource;
+begin
+  result := nil;
+end;
+
+procedure TDAJvMemDataTable.DoAfterCloseDataset;
+begin
+  inherited;
+end;
+
+function TDAJvMemDataTable.GetFilter: string;
+begin
+  result := fClientDataset.Filter
+end;
+
+
+procedure TDAJvMemDataTable.DoBeforeOpenDataset;
+begin
+  inherited;
+end;
+
+procedure TDAJvMemDataTable.SetMasterSource(const Value: TDADataSource);
+begin
+  inherited SetMasterSource(Value);
+end;
+
+procedure TDAJvMemDataTable.SetMasterFields(const Value: string);
+begin
+  inherited;
+end;
+
+procedure TDAJvMemDataTable.SetDetailsFields(const Value: string);
+begin
+end;
+
+function TDAJvMemDataTable.GetDetailFields: string;
+begin
+end;
+
+function TDAJvMemDataTable.GetMasterFields: string;
+begin
+
+end;
+
+
+function TDAJvMemDataTable.GetFiltered: boolean;
+begin
+  result := fClientDataset.Filtered
+end;
+
+procedure TDAJvMemDataTable.SetFilter(const Value: string);
+begin
+  fClientDataset.Filter := Value
+end;
+
+procedure TDAJvMemDataTable.SetFiltered(const Value: boolean);
+begin
+  fClientDataset.Filtered := Value
+end;
+
+function TDAJvMemDataTable.GetIndexDefs: TIndexDefs;
+begin
+  result := nil;
+end;
+
+procedure TDAJvMemDataTable.SetIndexDefs(const Value: TIndexDefs);
+begin
+
+end;
+
+function TDAJvMemDataTable.GetIndexName: string;
+begin
+  result := '';
+end;
+
+procedure TDAJvMemDataTable.SetIndexName(const Value: string);
+begin
+
+end;
+
+function TDAJvMDataset.GetActive: boolean;
+begin
+  result := inherited Active;
+end;
+
+function TDAJvMDataset.GetDataTable: TDADataTable;
+begin
+  result := TDADataTable(Owner);
+end;
+
+procedure TDAJvMDataset.InternalRefresh;
+begin
+
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDAMemTablesReg.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDAMemTablesReg.pas
new file mode 100644
index 0000000..15e7226
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDAMemTablesReg.pas	
@@ -0,0 +1,17 @@
+unit uDAMemTablesReg;
+
+interface
+
+uses uDAJvMTable, uDASQLMemoryTable, Classes;
+
+procedure Register;
+
+implementation
+
+procedure Register;
+begin
+  RegisterComponents('Data Abstract', [TDAJvMemDataTable]);
+  RegisterComponents('Data Abstract',[TDASQLMemTable]);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDASQLMemoryTable.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDASQLMemoryTable.pas
new file mode 100644
index 0000000..1d6b365
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/Unsupported/uDASQLMemoryTable.pas	
@@ -0,0 +1,233 @@
+unit uDASQLMemoryTable;
+
+interface
+
+uses SysUtils,Classes, DB, uDAInterfaces, uDADataTable, SQLMemMain;
+
+type
+  TDASQLMemDataset = class(TSQLMemTable, IDADataTableDataset)
+  private
+    function GetActive: boolean;
+
+  protected
+    function  GetDataTable: TDADataTable; safecall;
+    procedure InternalRefresh; override;
+
+  published
+    property Active: boolean read GetActive;
+  end;
+
+  TDASQLMemTable = class(TDADataTable)
+  private
+    fMasterSource : TDADataSource;
+    fSQLMemDataset: TDASQLMemdataset;
+
+  protected
+    function  GetDatasetClass: TDatasetClass; override;
+    procedure CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection); override;
+    procedure DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection); override;
+
+    procedure DoBeforeOpenDataset; override;
+    procedure DoAfterCloseDataset; override;
+
+    procedure SetMasterSource(const Value: TDADataSource); override;
+    function  GetMasterSource: TDADataSource; override;
+    procedure SetDetailsFields(const Value: string); override;
+    procedure SetMasterFields(const Value: string); override;
+    function  GetDetailFields: string; override;
+    function  GetMasterFields: string; override;
+
+    function  GetIndexDefs: TIndexDefs;
+    procedure SetIndexDefs(const Value: TIndexDefs);
+    function  GetIndexName: string;
+    procedure SetIndexName(const Value: string);
+
+    function  GetFilter: string; override;
+    function  GetFiltered: boolean; override;
+    procedure SetFilter(const Value: string); override;
+    procedure SetFiltered(const Value: boolean); override;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+
+  published
+    property IndexDefs: TIndexDefs read GetIndexDefs write SetIndexDefs;
+    property IndexName: string read GetIndexName write SetIndexName;
+  end;
+
+implementation
+
+uses Variants;
+
+constructor TDASQLMemTable.Create(aOwner: TComponent);
+begin
+  inherited;
+  fSQLMemDataset := TDASqlMemDataset(Dataset);
+  fSQLMemDataset.FilterOptions :=  [foCaseInsensitive];
+end;
+
+procedure TDASQLMemTable.CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection);
+  var tblName : String;
+begin
+  inherited;
+  if fSQLMemDataset.TableName = '' then begin
+    tblname := formatdatetime('ddddmmmmdyyyyhhmmsz',now);
+    fSQLMemDataset.TableName := 'tbl'+tblname;
+    fSQLMemDataset.CreateTable;
+  end else begin
+     fSQLMemDataset.close;
+     fSQLMemDataset.EmptyTable;
+     fSQLMemDataset.FieldDefs.clear;
+     fSQLMemDataset.IndexDefs.Clear;
+     fSQLMemDataset.RestructureFieldDefs.Clear;
+     fSQLMemDataset.RestructureIndexDefs.Clear;
+     fSQLMemDataset.ImportTable(dataset);
+  end;
+end;
+
+procedure TDASQLMemTable.DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection);
+const
+  DirectionStr: array[TDASortDirection] of string = ('ASC', 'DESC');
+var
+  ascfields, descfields,
+  idxname: string;
+  i: integer;
+  idx: TIndexDef;
+begin
+  with fSQLMemDataset do begin
+    if (Length(FieldNames) = 0) then begin
+      IndexName := '';
+      Exit;
+    end;
+
+    idxname := '';
+    for i := 0 to Length(FieldNames) - 1 do
+      idxname := idxname + FieldNames[i] + '_' + DirectionStr[Directions[i]];
+
+    idx := TDefCollection(IndexDefs).Find(idxname) as TIndexDef;
+    if (idx = nil) then begin
+      ascfields := '';
+      descfields := '';
+
+      for i := 0 to Length(Directions) - 1 do
+        case Directions[i] of
+          sdAscending: ascfields := ascfields + FieldNames[i] + ';';
+          sdDescending: descfields := descfields + FieldNames[i] + ';';
+        end;
+
+      if (descfields='')
+        then fSQLMemDataset.AddIndex(idxname, ascfields, [])
+        else fSQLMemDataset.AddIndex(idxname, descfields, [ixDescending]);
+    end;
+
+    IndexName := idxname;
+  end;
+end;
+
+function TDASQLMemTable.GetDatasetClass: TDatasetClass;
+begin
+  result := TDASQLMemDataset;
+end;
+
+function TDASQLMemTable.GetMasterSource: TDADataSource;
+begin
+  result := fMasterSource;
+end;
+
+procedure TDASQLMemTable.DoAfterCloseDataset;
+begin
+  inherited;
+  fSQLMemDataset.close;
+end;
+
+function TDASQLMemTable.GetFilter: string;
+begin
+  result := fSQLMemDataset.Filter
+end;
+
+procedure TDASQLMemTable.DoBeforeOpenDataset;
+begin
+  inherited;
+end;
+
+procedure TDASQLMemTable.SetMasterSource(const Value: TDADataSource);
+begin
+  fSQLMemDataset.MasterSource := Value;
+  fMasterSource := Value;
+
+  inherited SetMasterSource(Value);
+end;
+
+procedure TDASQLMemTable.SetMasterFields(const Value: string);
+begin
+  fSQLMemDataset.MasterFields := Value;
+  inherited;
+end;
+
+procedure TDASQLMemTable.SetDetailsFields(const Value: string);
+begin
+  fSQLMemDataset.IndexFieldNames := Value
+end;
+
+function TDASQLMemTable.GetDetailFields: string;
+begin
+  result := fSQLMemDataset.IndexFieldNames
+end;
+
+function TDASQLMemTable.GetMasterFields: string;
+begin
+  result := fSQLMemDataset.MasterFields
+end;
+
+function TDASQLMemTable.GetFiltered: boolean;
+begin
+  result := fSQLMemDataset.Filtered
+end;
+
+procedure TDASQLMemTable.SetFilter(const Value: string);
+begin
+  fSQLMemDataset.Filter := Value
+end;
+
+procedure TDASQLMemTable.SetFiltered(const Value: boolean);
+begin
+  fSQLMemDataset.Filtered := Value
+end;
+
+function TDASQLMemTable.GetIndexDefs: TIndexDefs;
+begin
+  result := fSQLMemDataset.IndexDefs
+end;
+
+procedure TDASQLMemTable.SetIndexDefs(const Value: TIndexDefs);
+begin
+  fSQLMemDataset.IndexDefs.Assign(Value);
+end;
+
+function TDASQLMemTable.GetIndexName: string;
+begin
+  result := fSQLMemDataset.IndexName
+end;
+
+procedure TDASQLMemTable.SetIndexName(const Value: string);
+begin
+  fSQLMemDataset.IndexName := Value
+end;
+
+function TDASQLMemdataset.GetActive: boolean;
+begin
+  result := inherited Active;
+end;
+
+function TDASQLMemdataset.GetDataTable: TDADataTable;
+begin
+  result := TDADataTable(Owner);
+end;
+
+procedure TDASQLMemdataset.InternalRefresh;
+begin
+
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/eDefines.inc b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/eDefines.inc
new file mode 100644
index 0000000..ef01d58
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/eDefines.inc	
@@ -0,0 +1,495 @@
+{----------------------------------------------------------------------------}
+{file:      eDefines.inc                                                     }
+{type:      Delphi include file                                              }
+{                                                                            }
+{compiler:  Borland Pascal 7,                                                }
+{           Delphi 1-7, 2005-2007 for Win32                                  }
+{           Kylix 1-3,                                                       }
+{           C++Builder 1-6, 2006-2007                                        }
+{           Free Pascal Compiler 2.x                                         }
+{                                                                            }
+{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X                  }
+{                                                                            }
+{author:    mh@elitedev.com                                                  }
+{                                                                            }
+{contents:  Defines that can be flexibily used to determine the exact        }
+{           compiler version used.                                           }
+{                                                                            }
+{(c)opyright elitedevelopments software. all rights reserved.                }
+{            http://www.elitedev.com                                         }
+{                                                                            }
+{ Third Party component developers are encouraged to use the set of defines  }
+{ established in this file, rather then their own system, for checking their }
+{ component libraries agains different versions of Delphi and C++Builder.    }
+{                                                                            }
+{ This file may be distributed freely with both free and commercial source   }
+{ libraries, but you are asked to please leave this comment in place, and    }
+{ to return any improvements you make to this file to the maintainer that    }
+{ is noted above.                                                            }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ Compiler and OS version defines:                                           }
+{                                                                            }
+{ exact compiler versions:                                                   }
+{                                                                            }
+{ BP7             Borland Pascal 7.0                                         }
+{ DELPHI1         Delphi 1.0 (any Delphi)                                    }
+{ DELPHI2         Delphi 2.0                                                 }
+{ DELPHI3         Delphi 3.0                                                 }
+{ DELPHI4         Delphi 4.0                                                 }
+{ DELPHI5         Delphi 5.0                                                 }
+{ DELPHI6         Delphi 6.0                                                 }
+{ DELPHI7         Delphi 7.0                                                 }
+{ DELPHI9         Delphi 2005                                                }
+{ DELPHI2005      Delphi 2005                                                }
+{ DELPHI2006      Delphi 2006                                                }
+{ DELPHI2007      Delphi 2007                                                }
+{ KYLIX1          Kylix 1.0                                                  }
+{ KYLIX2          Kylix 2.0                                                  }
+{ KYLIX3          Kylix 3.0                                                  }
+{ CBUILDER1       C++Builder 1.0                                             }
+{ CBUILDER3       C++Builder 3.0                                             }
+{ CBUILDER4       C++Builder 4.0                                             }
+{ CBUILDER5       C++Builder 5.0                                             }
+{                                                                            }
+{                                                                            }
+{ minimum compiler versions:                                                 }
+{                                                                            }
+{ DELPHI1UP       Delphi 1.0 and above (any Delphi)                          }
+{ DELPHI2UP       Delphi 2.0 and above                                       }
+{ DELPHI3UP       Delphi 3.0 and above                                       }
+{ DELPHI4UP       Delphi 4.0 and above                                       }
+{ DELPHI5UP       Delphi 5.0 and above                                       }
+{ DELPHI6UP       Delphi 6.0 and above                                       }
+{ DELPHI7UP       Delphi 7.0 and above                                       }
+{ DELPHI9UP       Delphi 9.0 (2005) and above                                }
+{ DELPHI10UP      Delphi 10.0 (2006) and above                               }
+{ DELPHI11UP      Delphi 11.0 (2007) and above                               }
+{ DELPHI2005UP    Delphi 2005 and above                                      }
+{ DELPHI2006UP    Delphi 2006 and above                                      }
+{ DELPHI2007UP    Delphi 2007 and above                                      }
+{ KYLIX1UP        Kylix 1.0 and above (any Kylix)                            }
+{ KYLIX2UP        Kylix 2.0 and above (any Kylix)                            }
+{ KYLIX3UP        Kylix 3.0 and above (any Kylix)                            }
+{ CBUILDER1UP     C++Builder 1.0 and above or Delphi 2 and above             }
+{ CBUILDER3UP     C++Builder 3.0 and above or Delphi 3.0 and above           }
+{ CBUILDER4UP     C++Builder 4.0 and above or Delphi 4.0 and above           }
+{ CBUILDER5UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{ CBUILDER6UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{                                                                            }
+{                                                                            }
+{ compiler types:                                                            }
+{                                                                            }
+{ BP              Borland Pascal (not Delphi or C++Builder)                  }
+{ DELPHI          any Delphi version (but not C++Builder or Kylix)           }
+{ KYLIX           any Kylix version (not Delphi or C++Builder for Windows)   }
+{ CBUILDER        any C++Builder for Windows (Pascal)                        }
+{                                                                            }
+{                                                                            }
+{ target platforms compiler types:                                           }
+{                                                                            }
+{ DELPHI_16BIT    16bit Delphi (but not C++Builder!)                         }
+{ DELPHI_32BIT    32bit Delphi (but not C++Builder)                          }
+{ KYLIX_32BIT     32bit Kylix (but not C++Builder)                           }
+{ CBUILDER_32BIT  32bit C++Builer's Pascal (but not Delphi)                  }
+{                                                                            }
+{                                                                            }
+{ target cpu types                                                           }
+{                                                                            }
+{ CPU16           16bit Delphi or Borland Pascal                             }
+{ CPU32           32bit Delphi or Free Pascal                                }
+{ CPU64           64bit Free Pascal                                          }
+{                                                                            }
+{ target platforms                                                           }
+{                                                                            }
+{ DOS             any DOS (plain and DPMI)                                   }
+{ REALMODE        16bit realmode DOS                                         }
+{ PROTECTEDMODE   16bit DPMI DOS                                             }
+{                                                                            }
+{ MSWINDOWS       any Windows platform                                       }
+{ WIN16           16bit Windows                                              }
+{ WIN32           32bit Windows                                              }
+{ WIN64           64bit Windows                                              }
+{ DOTNET          .NET                                                       }
+{                                                                            }
+{ LINUX           any Linux platform                                         }
+{ LINUX32         32bit Linux                                                }
+{ LINUX64         64bit Linux                                                }
+{                                                                            }
+{ DARWIN          Any Mac OS X                                               }
+{ DARWIN32        32bit Mac OS X                                             }
+{ DARWIN64        64bit Mac OS X                                             }
+{----------------------------------------------------------------------------}
+
+{ defines for Borland Pascal 7.0 }
+{$IFDEF VER70}
+  {$DEFINE BP}
+  {$DEFINE BP7}
+  {$DEFINE 16BIT}
+  {$DEFINE CPU16}
+
+  { defines for BP7 DOS real mode }
+  {$IFDEF MSDOS}
+    {$DEFINE DOS}
+    {$DEFINE REALMODE}
+  {$ENDIF}
+
+  { defines for BP7 DOS protected mode }
+  {$IFDEF DPMI}
+    {$DEFINE DOS}
+    {$DEFINE PROTECTEDMODE}
+  {$ENDIF}
+
+  { defines for BP7 Windows }
+  {$IFDEF WINDOWS}
+    {$DEFINE MSWINDOWS}
+    {$DEFINE WIN16}
+  {$ENDIF}
+{$ENDIF}
+
+{ defines for Delphi 1.0 thru 7.0 }
+{$IFDEF MSWINDOWS}
+
+  { defines for Delphi 1.0 }
+  {$IFDEF VER80}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI1}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI_16BIT}
+    {$DEFINE WIN16}
+    {$DEFINE 16BIT}
+    {$DEFINE CPU16}
+  {$ENDIF}
+
+  { defines for Delphi 2.0 }
+  {$IFDEF VER90}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI2}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+  {$ENDIF}
+
+  { defines for C++Builder 1.0 }
+  {$IFDEF VER93}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER1}
+    {$DEFINE CBUILDER1UP}
+  {$ENDIF}
+
+  { defines for Delphi 3.0 }
+  {$IFDEF VER100}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI3}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+  {$ENDIF}
+
+  { defines for C++Builder 3.0 }
+  {$IFDEF VER110}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER3}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+  {$ENDIF}
+
+  { defines for Delphi 4.0 }
+  {$IFDEF VER120}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI4}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+  {$ENDIF}
+
+  { defines for C++Builder 4.0 }
+  {$IFDEF VER125}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER4}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+  {$ENDIF}
+  { defines for Delphi 5.0 }
+  {$IFDEF VER130}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI5}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+  {$ENDIF}
+
+  { defines for C++Builder 5.0 }
+  {$IFDEF VER135}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER5}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+    {$DEFINE CBUILDER5UP}
+  {$ENDIF}
+
+  { defines for Delphi 6.0 }
+  {$IFDEF VER140}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI6}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+  {$ENDIF}
+
+  { defines for Delphi 7.0 }
+  {$IFDEF VER150}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI7}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+  {$ENDIF}
+
+  { defines for Delphi 2005 }
+  {$IFDEF VER170}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI9}
+    {$DEFINE DELPHI2005}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS3}
+    {$DEFINE BDS3UP}
+  {$ENDIF}
+
+  { defines for Delphi 2006 }
+  {$IFDEF VER180}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI10}
+    {$DEFINE DELPHI10A}  
+    {$DEFINE DELPHI2006}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS4}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+  {$ENDIF}
+
+  { defines for Delphi 2007 }
+  {$IFDEF VER185}
+    {$UNDEF DELPHI10A}  // declared in VER180
+    {$UNDEF DELPHI2006} // declared in VER180
+    {$UNDEF BDS4}       // declared in VER180
+
+    {$DEFINE DELPHI10B}    
+    {$DEFINE DELPHI10BUP}    
+    {$DEFINE DELPHI11}    
+    {$DEFINE DELPHI11UP}    
+    {$DEFINE DELPHI2007}
+    {$DEFINE DELPHI2007UP}    
+    {$DEFINE BDS5}
+    {$DEFINE BDS5UP}
+  {$ENDIF}
+
+  { defines for Delphi 2009 }
+  {$IFDEF VER200}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI12}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+
+    {$DEFINE DELPHI2009}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+
+    {$DEFINE BDS}
+    {$DEFINE BDS6}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+  {$ENDIF}
+
+  { defines for Delphi 2010 }
+  {$IFDEF VER210}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI14}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+    {$DEFINE DELPHI14UP}    
+
+    {$DEFINE DELPHI2010}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+    {$DEFINE DELPHI2010UP}    
+
+    {$DEFINE BDS}
+    {$DEFINE BDS7}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+    {$DEFINE BDS7UP}
+  {$ENDIF}
+  
+
+  {$IFDEF WIN32}
+    {$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
+    {$DEFINE 32BIT}
+    {$DEFINE CPU32}
+  {$ENDIF}
+
+{$ENDIF MSWINDOWS}
+
+{ defines for "Delphi for .NET" }
+{$IFDEF CLR}
+  {$DEFINE DOTNET}
+{$ENDIF}
+
+{$IFDEF DELPHI}
+  {$IFDEF DELPHI2UP}
+    {$DEFINE DELPHI_32BIT}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF CBUILDER}
+  {$DEFINE CBUILDER_32BIT}
+{$ENDIF}
+
+{$IFNDEF FPC}
+
+  { Kylix 1.0 thru 3.0 }
+  {$IFDEF LINUX}
+
+    {$DEFINE VER140UP}
+
+    { Any Kylix }
+    {$DEFINE 32BIT}
+    {$DEFINE LINUX32}
+    {$DEFINE KYLIX_32BIT}
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+
+    {$IFDEF CONDITIONALEXPRESSIONS}
+      {$IF Declared(CompilerVersion)}
+
+         { Kylix 2.0 }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.1)}
+           {$DEFINE KYLIX2}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+         {$IFEND}
+
+         { Kylix 3.0 - Delphi portion }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.5)}
+           {$DEFINE KYLIX3}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+           {$DEFINE KYLIX3UP}
+         {$IFEND}
+
+      { Kylix 1.0 }
+      {$ELSE}
+        {$DEFINE KYLIX1}
+      {$IFEND}
+    {$ENDIF CONDITIONALEXPRESSIONS}
+
+  {$ENDIF LINUX}
+{$ENDIF}
+
+{ CPU }
+
+{$IFDEF FPC}
+  {$IFDEF MSWINDOWS}
+    {$IFDEF CPU64}
+      {$DEFINE WIN64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF LINUX}
+    {$IFDEF CPU32}
+      {$DEFINE LINUX32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE LINUX64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF DARWIN}
+    {$IFDEF CPU32}
+      {$DEFINE DARWIN32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE DARWIN64}
+    {$ENDIF}
+  {$ENDIF}
+{$ELSE}
+  {$DEFINE ENDIAN_LITTLE} // To have endianness symbol defined in Delphi too
+{$ENDIF}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAADODataTable.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAADODataTable.pas
new file mode 100644
index 0000000..d5a4c51
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAADODataTable.pas	
@@ -0,0 +1,317 @@
+unit uDAADODataTable;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses Classes, DB, uDAInterfaces, uDADataTable, ADODB;
+
+type
+  { TDAADODataset }
+  TDAADODataset = class(TADODataset, IDADataTableDataset)
+  private
+    FLocateRecordMode: Boolean;
+  protected
+    function GetDataTable: TDADataTable; safecall;
+    procedure InternalRefresh; override;
+    procedure InternalInitFieldDefs; override;
+    procedure DataEvent(Event: TDataEvent; Info: Longint); override;
+  public
+    function Locate(const KeyFields: string; const KeyValues: Variant;
+      Options: TLocateOptions): Boolean; override;
+    function Lookup(const KeyFields: string; const KeyValues: Variant;
+      const ResultFields: string): Variant; override;
+  end;
+
+  { TDAADODataTable }
+  TDAADODataTable = class(TDADataTable)
+  private
+    fADODataset: TDAADODataset;
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override;  
+    function GetDatasetClass: TDatasetClass; override;
+    procedure CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection); override;
+    procedure DoAfterCloseDataset; override;
+    procedure DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection); override;
+
+    procedure SetMasterSource(const Value: TDADataSource); override;
+    function GetMasterSource: TDADataSource; override;
+    procedure SetDetailsFields(const Value: string); override;
+    procedure SetMasterFields(const Value: string); override;
+    function GetDetailFields: string; override;
+    function GetMasterFields: string; override;
+
+    function GetFilter: string; override;
+    function GetFiltered: boolean; override;
+    procedure SetFilter(const Value: string); override;
+    procedure SetFiltered(const Value: boolean); override;
+    function intDATypeToVCLType(aDAType: TDADataType): TFieldType;override;
+    function GetMasterDataLink: TMasterDataLink; override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    procedure EnableConstraints; override; safecall;
+    procedure DisableConstraints; override; safecall; 
+  end;
+
+implementation
+
+uses
+  ADOInt, Variants, SysUtils;
+
+{ TDAADODataTable }
+
+constructor TDAADODataTable.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fADODataset := TDAADODataset(Dataset);
+end;
+
+procedure TDAADODataTable.CreateInternalFields(aDataset: TDataset;
+  someFieldDefinitions: TDAFieldCollection);
+var
+  i, n: Integer;
+  lDataType: DataTypeEnum;
+  TmpRecordset: _Recordset;
+
+begin
+  inherited;
+
+  { this loop should be obsolete now with fix to #1674. Keeping for backward compatibilty. mh. }
+  with fADODataset do begin
+    for i := 0 to Fields.Count - 1 do begin
+      if (Fields[i].FieldKind = fkInternalCalc) then begin
+        Fields[i].FieldKind := fkCalculated;
+        with Fields[i] do begin
+          FieldDefs.Add(FieldName, DataType, Size, Required);
+        end;
+      end;
+    end;
+  end;
+
+  fADODataset.CursorLocation := clUseClient;
+  fADODataset.CursorType := ctDynamic;
+  fADODataset.CreateDataSet;
+
+  if (fADODataset.FieldCount > 0) then begin
+    TmpRecordset := CoRecordset.Create;
+    for n := 0 to fADODataset.RecordSet.Fields.Count - 1 do begin
+      with fADODataset.RecordSet.Fields.Item[n] do begin
+        lDataType := Type_;
+        if (lDataType = adVarChar)
+          then lDataType := adVarWChar;
+        {$IFDEF DELPHI2010UP}
+        TmpRecordSet.Fields._Append(Name, lDataType, DefinedSize, Attributes);
+        {$ELSE}
+        TmpRecordSet.Fields.Append(Name, lDataType, DefinedSize, Attributes);
+        {$ENDIF}
+      end;
+    end;
+    TmpRecordset.Open(EmptyParam, EmptyParam, adOpenUnspecified, adLockUnspecified, 0);
+    fADODataset.Recordset := TmpRecordset;
+    fADODataset.Open;
+  end;
+end;
+
+function TDAADODataTable.GetDatasetClass: TDatasetClass;
+begin
+  result := TDAADODataset;
+end;
+
+procedure TDAADODataTable.DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection);
+const
+  DirectionStr: array[TDASortDirection] of string = ('ASC', 'DESC');
+var
+  i: integer;
+  sortexp: string;
+begin
+  with fADODataSet do begin
+
+    if (Length(FieldNames) = 0) then
+      Sort := ''
+
+    else begin
+      sortexp := '';
+      for i := 0 to Length(FieldNames) - 1 do
+        sortexp := sortexp + FieldNames[i] + ' ' + DirectionStr[Directions[i]] + ', ';
+
+      Sort := Copy(sortexp, 1, Length(sortexp) - 2);
+    end;
+  end;
+end;
+
+function TDAADODataTable.GetDetailFields: string;
+begin
+  result := fADODataset.IndexFieldNames
+end;
+
+function TDAADODataTable.GetMasterDataLink: TMasterDataLink;
+begin
+  Result := fADODataset.MasterDataLink;
+end;
+
+function TDAADODataTable.GetMasterFields: string;
+begin
+  result := fADODataset.MasterFields
+end;
+
+function TDAADODataTable.GetMasterSource: TDADataSource;
+begin
+  result := TDADataSource(fADODataset.DataSource)
+end;
+
+procedure TDAADODataTable.SetDetailsFields(const Value: string);
+begin
+  fADODataset.IndexFieldNames := Value
+end;
+
+procedure TDAADODataTable.SetMasterFields(const Value: string);
+begin
+  inherited;
+  fADODataset.MasterFields := Value
+end;
+
+procedure TDAADODataTable.SetMasterSource(const Value: TDADataSource);
+begin
+  inherited;
+  fADODataset.DataSource := Value
+end;
+
+function TDAADODataTable.GetFilter: string;
+begin
+  result := fADODataset.Filter
+end;
+
+function TDAADODataTable.GetFiltered: boolean;
+begin
+  result := fADODataset.Filtered
+end;
+
+procedure TDAADODataTable.SetFilter(const Value: string);
+begin
+  fADODataset.Filter := Value
+end;
+
+procedure TDAADODataTable.SetFiltered(const Value: boolean);
+begin
+  fADODataset.Filtered := Value
+end;
+
+procedure TDAADODataTable.DoAfterCloseDataset;
+begin
+  inherited;
+
+  // These checks prevent the error "the provider does not support the necessary interface for index functionality"
+  // that occourrs when the data table is being closed
+
+  with fADODataset do begin
+    if (IndexName<>'')
+      then fADODataset.IndexName := '';
+
+    if (IndexDefs.Count>0)
+      then IndexDefs.Clear;
+  end;
+end;
+
+procedure TDAADODataTable.DisableConstraints;
+var
+  i: Integer;
+begin
+  for i := fADODataset.Fields.Count -1 downto 0 do
+  begin
+    fADODataset.Fields[i].Required := False;
+  end;
+end;
+
+procedure TDAADODataTable.EnableConstraints;
+var
+  i: Integer;
+begin
+  for i := fADODataset.Fields.Count -1 downto 0 do
+  begin
+    if i <> 0 then
+      fADODataset.Fields[i].Required := Fields[i -1].Required;
+  end;
+end;
+
+function TDAADODataTable.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  //  IDAClonedCursorsSupport isn't supported!
+  if IsEqualGUID(IID, IDAClonedCursorsSupport) then
+     Result := E_NOINTERFACE
+  else
+    Result := inherited QueryInterface(IID, Obj);
+end;
+
+function TDAADODataTable.intDATypeToVCLType(
+  aDAType: TDADataType): TFieldType;
+begin
+  Result := inherited intDATypeToVCLType(aDAType);
+  {$IFNDEF DELPHI2009UP}
+  // ADODB.pas doesn't support ftFMTBCD up to D2009
+  if Result = ftFMTBcd then Result := ftBCD;
+  {$ENDIF}
+end;
+
+{ TDAADODataset }
+
+procedure TDAADODataset.DataEvent(Event: TDataEvent; Info: Integer);
+begin
+  if FLocateRecordMode and (Event = deCheckBrowseMode) and (Info = 0) and (Self.State = dsBrowse) then
+    // nothing
+  else
+    inherited;
+end;
+
+function TDAADODataset.GetDataTable: TDADataTable;
+begin
+  result := TDADataTable(Owner);
+end;
+
+procedure TDAADODataset.InternalInitFieldDefs;
+begin
+  inherited;
+end;
+
+procedure TDAADODataset.InternalRefresh;
+begin
+  // Does nothing
+end;
+
+function TDAADODataset.Locate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  FLocateRecordMode:=True;
+  try
+    Result := inherited Locate(KeyFields,KeyValues,Options);
+  finally
+    FLocateRecordMode:= False;
+  end;
+end;
+
+function TDAADODataset.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  FLocateRecordMode:=True;
+  try
+    Result := inherited Lookup(KeyFields, KeyValues, ResultFields);
+  finally
+    FLocateRecordMode:= False;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAADOInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAADOInterfaces.pas
new file mode 100644
index 0000000..d0a32e0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAADOInterfaces.pas	
@@ -0,0 +1,1289 @@
+unit uDAADOInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  uDAInterfaces, uDAEngine, uROClasses;
+
+const
+  stdMSSQL_ConnectionString = 'User ID=%s;Password=%s;Initial Catalog=%s;Data Source=%s';
+
+  // OLE DB Services = -2 means we don't want ADO Connection pooling done for us!
+  stdADO_ConnectionString = 'Provider=%s;' + stdMSSQL_ConnectionString + ';OLE DB SERVICES=-2';
+
+  MSSQL_DriverType = 'MSSQL';
+  Access_DriverType = 'Access';
+  FoxPro_DriverType  ='FoxPro';
+  ODBC_DriverType = '';//'ODBC';
+  ASA_DriverType = 'ASA';
+  Sybase_DriverType = 'Sybase';
+  Informix_DriverType = 'Informix';
+  DB2_DriverType = 'DB2';
+  Paradox_DriverType = 'Paradox';
+
+const
+  // Standard OLEDB providers identifiers
+  oledb_UnknownId = '???';
+  oledb_MSSQLId = 'SQLOLEDB.1';
+  oledb_JetId = 'Microsoft.Jet.OLEDB.4.0';
+  oledb_OracleId = 'MSDAORA.1';
+  oledb_ODBCId = 'MSDASQL.1';
+  oledb_MSSQL2005Id ='SQLNCLI.1';
+  oledb_PostgresqlId = 'PostgreSQL.1';
+  oleDb_VisualFoxProId = 'VFPOLEDB.1';
+  oledb_MSSQL2008Id = 'SQLNCLI10.1';
+
+type
+  // Standard OLEDB providers enumerated
+  TDAOleDBProviderType = (oledb_Unknown,
+    oledb_MSSQL,
+    oledb_Jet,
+    oledb_Oracle,
+    oledb_ODBC,
+    oledb_MSSQL2005,
+    oledb_Postgresql,
+    oleDb_VisualFoxPro,
+    oledb_MSSQL2008
+    );
+
+const
+  // Standard OLEDB providers identifier array (useful for lookups)
+  OleDBProviders: array[TDAOleDBProviderType] of string = (
+    oledb_UnknownId,
+    oledb_MSSQLId,
+    oledb_JetId,
+    oledb_OracleId,
+    oledb_ODBCId,
+    oledb_MSSQL2005Id,
+    oledb_PostgresqlId,
+    oleDb_VisualFoxProId,
+    oledb_MSSQL2008Id
+    );
+
+type
+  { IADOConnection
+      For identification purposes. Implemented by all ADO connections and also those that target MSSQL-only such as SDAC }
+  IDAADOConnection = interface(IDAConnection)
+    ['{979D10CF-FD56-4C16-8074-338CADA9F1CD}']
+    function GetProviderName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetProviderType: TDAOleDBProviderType; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property ProviderName: string read GetProviderName;
+    property ProviderType: TDAOleDBProviderType read GetProviderType;
+
+    function GetCommandTimeout: Integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetCommandTimeout(const Value: Integer); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    property CommandTimeout: Integer read GetCommandTimeout write SetCommandTimeout;
+  end;
+
+  TDAMSConnection = class(TDAEConnection,IDACanQueryDatabaseNames)
+  protected
+    fMSSQLSchemaEnabled: Boolean;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    function GetSPSelectSyntax(HasArguments: Boolean): String; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDACanQueryDatabaseNames
+    function GetDatabaseNames: IROStrings;
+  public
+    property MSSQLSchemaEnabled: Boolean read fMSSQLSchemaEnabled write fMSSQLSchemaEnabled;
+  end;
+
+  TDAMSSQLDriver = class(TDAEDriver)
+  protected
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+function OleDBDriverIdToOleDBProviderType(const anID: string): TDAOleDBProviderType;
+procedure MSSQL_GetAuxParams(const List: IROStrings);
+procedure MSSQL_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype; SchemaEnabled: Boolean);
+function MSSQL_DoGetLastAutoInc(const GeneratorName: string;Query: IDADataset): variant;
+function MSSQL_CreateMacroProcessor: TDASQLMacroProcessor;
+procedure MSSQL_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+procedure MSSQL_DoGetForeignKeys(Query: IDADataset; ForeignKeys: TDADriverForeignKeyCollection; SchemaEnabled: Boolean);
+function MSSQL_GetSPSelectSyntax(HasArguments: Boolean): String;
+function MSSQL_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+function MSSQL_GetQuoteChars: TDAQuoteCharArray;
+function MSSQL_GetDatabaseNames(aConnection:TDAEConnection): IROStrings;
+function MSACCESS_GetFileExtensions: IROStrings;
+procedure MSSQL_DoGetStoredProcedureParams(const aStoredProcedureName: string; Query: IDADataset; out Params: TDAParamCollection);
+
+implementation
+
+uses
+  SysUtils, {$IFDEF MSWINDOWS} Windows,{$ENDIF}
+  uDAMacroProcessors;
+
+const
+  MSSQL_MasterDatabase = 'master';
+  MSSQL_GetDatabaseNames_SQL = 'select Name from sysdatabases order by Name';
+
+var
+  ado_reservedwords: array of string;
+
+function OleDBDriverIdToOleDBProviderType(const anID: string): TDAOleDBProviderType;
+var
+  x: TDAOleDBProviderType;
+begin
+  result := oledb_Unknown;
+
+  for x := Low(TDAOleDBProviderType) to High(TDAOleDBProviderType) do
+    if SameText(OleDBProviders[x], anID) then begin
+      result := x;
+      Exit;
+    end;
+end;
+
+procedure MSSQL_GetAuxParams(const List: IROStrings);
+begin
+  List.Add('Integrated Security=SSPI');
+  List.Add('Schemas=0,1');
+end;
+
+procedure MSSQL_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype; SchemaEnabled: Boolean);
+var
+  fWhere: string;
+begin
+  try
+    case AObjectType of
+      dotTable: begin
+        if not SchemaEnabled then fWhere:='AND (TABLE_SCHEMA = ''dbo'') ';
+        Query.SQL := 'SELECT TABLE_SCHEMA, TABLE_NAME FROM INFORMATION_SCHEMA.TABLES ' +
+                    'WHERE (OBJECTPROPERTY(OBJECT_ID(TABLE_SCHEMA + ''.'' + TABLE_NAME), ''IsMsShipped'') = 0) ' +
+                    'AND (TABLE_TYPE = ''BASE TABLE'') ' +fWhere+
+                    'ORDER BY 1, 2';
+        end;
+      dotProcedure: begin
+        if not SchemaEnabled then fWhere:='AND (ROUTINE_SCHEMA = ''dbo'') ';
+        Query.SQL := 'SELECT ROUTINE_SCHEMA, ROUTINE_NAME ' +
+                    'FROM INFORMATION_SCHEMA.ROUTINES ' +
+                    'WHERE (OBJECTPROPERTY(OBJECT_ID(ROUTINE_SCHEMA + ''.'' + ROUTINE_NAME), ''IsMsShipped'') = 0) AND (ROUTINE_TYPE = ''PROCEDURE'') ' +fWhere+
+                    'ORDER BY 1, 2';
+        end;
+      dotView: begin
+        if not SchemaEnabled then fWhere:='AND (TABLE_SCHEMA = ''dbo'') ';
+        Query.SQL := 'SELECT TABLE_SCHEMA, TABLE_NAME FROM INFORMATION_SCHEMA.TABLES ' +
+                    'WHERE (OBJECTPROPERTY(OBJECT_ID(TABLE_SCHEMA + ''.'' + TABLE_NAME), ''IsMsShipped'') = 0) ' +
+                    'AND (TABLE_TYPE = ''VIEW'') ' +
+                    'ORDER BY 1, 2';
+        end;
+    else
+    end;
+    Query.Open;
+    while not Query.EOF do begin
+      if SchemaEnabled then
+        AList.Add(Format('%s.%s', [Trim(Query.Fields[0].AsString), Trim(Query.Fields[1].AsString)]))
+      else
+        AList.Add(Trim(Query.Fields[1].AsString));
+      Query.Next;
+    end;
+    Query.Close;
+  finally
+    Query := nil;
+  end;
+end;
+
+function MSSQL_DoGetLastAutoInc(const GeneratorName: string;Query: IDADataset): variant;
+begin
+  try
+     // Using Ident_Current is not fully safe
+     //if Trim(GeneratorName) <> '' then
+     //  Query.SQL := 'SELECT IsNull(Ident_Current(' + QuotedStr(GeneratorName) + '), 0) as LastInc'
+     //else
+    Query.SQL := 'SELECT IsNull(@@Identity, 0) as LastInc';
+    Query.Open;
+    result := Query.Fields[0].Value;
+  finally
+    Query := nil;
+  end;
+end;
+
+function MSSQL_CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  Result := TDAMSSQLMacroProcessor.Create;
+end;
+
+procedure MSSQL_DoGetStoredProcedureParams(const aStoredProcedureName: string; Query: IDADataset; out Params: TDAParamCollection);
+var
+  lProcName, lSchema: string;
+  lparam: TDAParam;
+begin
+  Params := TDAParamCollection.Create(nil);
+  try
+    lProcName := aStoredProcedureName;
+    if pos('.', lProcName) = 0 then begin
+      lSchema := ''
+    end else begin
+      lSchema := copy(lProcName, 1, pos('.', lProcName) - 1);
+      Delete(lProcName, 1, pos('.', lProcName));
+    end;
+    Query.SQL := 'exec sp_sproc_columns '+QuotedStr(lProcName);
+    if lSchema <> '' then Query.SQL := Query.SQL+', '+QuotedStr(lSchema);
+    Query.Open;
+    while not Query.EOF do begin
+      lparam := Params.Add;
+      lParam.Name:= Trim(Copy(Query.FieldByName('COLUMN_NAME').AsString,2,MaxInt));
+      case Query.FieldByName('COLUMN_TYPE').AsSmallInt of
+        1: lparam.ParamType := daptInput;
+        2: lparam.ParamType := daptInputOutput;
+        5: lparam.ParamType := daptResult;
+      else
+        lparam.ParamType := daptUnknown;
+      end;
+      lParam.Size := Query.FieldByName('Length').AsInteger;
+      case Query.FieldByName('DATA_TYPE').AsInteger of
+        -150	{sql_variant  }   : lparam.DataType := datUnknown; // unsupported now!
+         -11	{uniqueidentifier}: lparam.DataType := datGuid;
+         -10	{ntext}           : lparam.DataType := datWideMemo;
+          -9	{nvarchar}        : lparam.DataType := datWideString;
+          -8	{nchar}           : lparam.DataType := datWideString;
+          -7	{bit}             : lparam.DataType := datBoolean;
+          -6 	{tinyint}         : lparam.DataType := datByte;
+          -5	{bigint}          : lparam.DataType := datLargeInt;
+          -4	{image}           : lparam.DataType := datBlob;
+          -3	{varbinary}       : lparam.DataType := datBlob;
+          -2	{binary}          : lparam.DataType := datBlob;
+          -1 	{text}            : lparam.DataType := datMemo;
+           1	{char}            : lparam.DataType := datString;
+           2	{numeric}         : begin
+                                    lparam.DecimalPrecision:= Query.FieldByName('PRECISION').AsInteger;
+                                    lparam.DecimalScale:= Query.FieldByName('SCALE').AsInteger;
+                                    if (lparam.DecimalPrecision <= 19) and (lparam.DecimalScale <= 4) then
+                                      lparam.DataType := datCurrency
+                                    else
+                                      lparam.DataType := datDecimal
+                                    end;
+           3  {money}           : begin
+                                    lparam.DataType := datCurrency;
+                                    lparam.DecimalPrecision:= Query.FieldByName('PRECISION').AsInteger;
+                                    lparam.DecimalScale:= Query.FieldByName('SCALE').AsInteger;
+                                  end;
+           4	{int}             : lparam.DataType := datInteger;
+           5	{smallint}        : lparam.DataType := datSmallInt;
+           6	{float}           : lparam.DataType := datFloat;
+           7	{real}            : lparam.DataType := datSingleFloat;
+          11 	{datetime}        : lparam.DataType := datDateTime;
+          12	{varchar}         : lparam.DataType := datString;
+      else
+        lparam.DataType := datUnknown;
+      end;
+      if lparam.DataType in [datWideString, datWideMemo] then
+        lparam.Size := lparam.Size div SizeOf(WideChar);
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure MSSQL_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+var
+  dra: TDAField;
+begin
+  Fields := TDAFieldCollection.Create(nil);
+  try
+    Query.SQL := 'SELECT * FROM ' + aTableName + ' WHERE 1=0';
+    Query.Open;
+    Fields.Assign(Query.Fields);
+    Query.Close;
+
+    Query.SQL := 'exec sp_MShelpcolumns '+QuotedStr(aTableName)+', null, ''id'', 1;';
+    Query.Open;
+    try
+      while not Query.Eof do begin
+        dra := Fields.FindField(Trim(Query.FieldByName('COL_NAME').AsString));
+        if Assigned(dra) then
+        begin
+          dra.InPrimaryKey := (Query.FieldByName('COL_FLAGS').AsInteger and $04) = $04;
+          dra.Required := not Query.FieldByName('COL_NULL').AsBoolean;
+          if Query.FieldByName('COL_IDENTITY').AsBoolean then begin
+            if (dra.DataType = datLargeInt) or (dra.DataType = datLargeUInt) then
+              dra.DataType := datLargeAutoInc
+            else
+              dra.DataType := datAutoInc;
+            dra.GeneratorName := aTableName;
+          end;
+          if (AnsiCompareText(Query.FieldByName('COL_BASETYPENAME').asString,'decimal') =0) or
+             (AnsiCompareText(Query.FieldByName('COL_BASETYPENAME').asString,'numeric') =0) then begin
+            dra.DataType := datDecimal;
+            Dra.DecimalScale := Query.FieldByName('COL_SCALE').AsInteger;
+            Dra.DecimalPrecision := Query.FieldByName('COL_PREC').AsInteger;
+          end
+          else
+          if (AnsiCompareText(Query.FieldByName('COL_BASETYPENAME').asString,'uniqueidentifier') =0) then
+            dra.DataType := datGuid
+          else
+          if (AnsiCompareText(Query.FieldByName('COL_BASETYPENAME').asString,'money') =0) or
+             (AnsiCompareText(Query.FieldByName('COL_BASETYPENAME').asString,'smallmoney') =0) then
+             dra.DataType := datCurrency
+          else
+          if (AnsiCompareText(Query.FieldByName('COL_BASETYPENAME').asString,'timestamp') =0) then begin
+             dra.DataType := datBlob;
+             dra.BlobType := dabtTimestamp;
+             dra.LogChanges := false;
+          end;
+          if (AnsiCompareText(Query.FieldByName('COL_BASETYPENAME').asString,'ntext') =0) then begin
+            dra.DataType := datWideMemo;
+          end;
+          if (AnsiCompareText(Query.FieldByName('COL_BASETYPENAME').asString,'text') =0) then begin
+            dra.DataType := datMemo;
+          end;
+        end;
+        Query.Next;
+      end;
+    finally
+      Query.Close;
+    end;
+  finally
+    Query:=nil;
+  end;
+end;
+
+procedure MSSQL_DoGetForeignKeys(Query: IDADataset; ForeignKeys: TDADriverForeignKeyCollection; SchemaEnabled: Boolean);
+const
+  s_fk = 'SELECT o3.name AS CONSTRAINT_NAME, ' +
+         's1.name as FK_SCHEMA_NAME,o1.name as FK_TABLE_NAME,c1.name as FK_COLUMN_NAME, '+
+         's2.name as PK_SCHEMA_NAME,o2.name as PK_TABLE_NAME,c2.name as PK_COLUMN_NAME '+
+         'FROM '+
+         'sys.foreign_key_columns fkc '+
+         'join sys.all_objects o3 on (o3.object_id =  fkc.constraint_object_id) '+
+         'join sys.all_objects o1 on (o1.object_id =  fkc.parent_object_id) '+
+         'join sys.schemas s1 on (o1.schema_id = s1.schema_id) '+
+         'join sys.all_objects o2 on (o2.object_id =  fkc.referenced_object_id) '+
+         'join sys.schemas s2 on (o2.schema_id = s2.schema_id) '+
+         'join sys.columns c1 on (c1.object_id = fkc.parent_object_id and c1.column_ID = fkc.parent_column_id) '+
+         'join sys.columns c2 on (c2.object_id = fkc.referenced_object_id and c2.column_ID = fkc.referenced_column_id) ';
+  s_fk_where = ' AND (s1.name = ''dbo'') AND (s2.name = ''dbo'') ';
+  s_fk_Order = 'ORDER BY s1.name, o1.name, o3.name, fkc.constraint_column_id';
+var
+  fWhere: String;
+  lCurrConstraint: string;
+  lCurrFK: TDADriverForeignKey;
+  l_name: string;
+begin
+  lCurrConstraint := '';
+  lCurrFK := nil;
+  try
+    if not SchemaEnabled then fWhere:= s_fk_where;
+    Query.SQL :=  s_fk + fWhere + s_fk_Order;
+    Query.Open;
+    while not Query.Eof do begin
+      l_Name := Trim(Query.Fields[0].AsString);
+      if lCurrConstraint <> l_name then begin
+        lCurrConstraint := l_name;
+        lCurrFK := ForeignKeys.Add();
+        with lCurrFK do begin
+          Name := l_name;
+          FKField := Trim(Query.Fields[3].AsString);
+          PKField := Trim(Query.Fields[6].AsString);
+          if SchemaEnabled then begin
+            FKTable := Format('%s.%s', [Trim(Query.Fields[1].AsString), Trim(Query.Fields[2].AsString)]);
+            PKTable := Format('%s.%s', [Trim(Query.Fields[4].AsString), Trim(Query.Fields[5].AsString)]);
+          end else
+          begin
+            FKTable := Trim(Query.Fields[2].AsString);
+            PKTable := Trim(Query.Fields[5].AsString);
+          end;
+        end;
+      end else begin
+        with lCurrFK do begin
+          FKField := FKField + ';' + Trim(Query.Fields[3].AsString);
+          PKField := PKField + ';' + Trim(Query.Fields[6].AsString);
+        end;
+      end;
+      Query.Next;
+    end;
+    Query.Close;
+  finally
+    Query := nil;
+  end;
+end;
+
+function MSSQL_GetSPSelectSyntax(HasArguments: Boolean): String;
+begin
+  Result := 'EXEC {0} {1}';
+end;
+
+function MSSQL_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  result := TestIdentifier(iIdentifier,ado_reservedwords);
+end;
+
+function MSSQL_GetQuoteChars: TDAQuoteCharArray;
+begin
+  result[0] := '[';
+  result[1] := ']';
+end;
+
+function MSSQL_GetDatabaseNames(aConnection:TDAEConnection): IROStrings;
+begin
+  Result := Engine_GetDatabaseNames(aConnection, MSSQL_MasterDatabase, MSSQL_GetDatabaseNames_SQL);
+end;
+
+{ TDAMSConnection }
+
+function TDAMSConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  Result := MSSQL_CreateMacroProcessor;
+end;
+
+procedure TDAMSConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited;
+  MSSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, MSSQLSchemaEnabled);
+end;
+
+function TDAMSConnection.DoGetLastAutoInc(const GeneratorName: string): integer;
+begin
+  Result := DoGetLastAutoIncValue(GeneratorName);
+end;
+
+function TDAMSConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  Result := MSSQL_DoGetLastAutoInc(GeneratorName,GetDatasetClass.Create(Self));
+end;
+
+procedure TDAMSConnection.DoGetStoredProcedureNames(out List: IROStrings);
+begin
+  inherited DoGetStoredProcedureNames(List);
+  MSSQL_DoGetNames(GetDatasetClass.Create(Self),List,dotProcedure,MSSQLSchemaEnabled);
+end;
+
+procedure TDAMSConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),GetDatasetClass.Create(Self),Fields);
+end;
+
+procedure TDAMSConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited DoGetTableNames(List);
+  MSSQL_DoGetNames(GetDatasetClass.Create(Self),List,dotTable,MSSQLSchemaEnabled);
+end;
+
+procedure TDAMSConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited DoGetViewNames(List);
+  MSSQL_DoGetNames(GetDatasetClass.Create(Self),List,dotView,MSSQLSchemaEnabled);
+end;
+
+function TDAMSConnection.GetDatabaseNames: IROStrings;
+begin
+  Result := MSSQL_GetDatabaseNames(Self);
+end;
+
+function TDAMSConnection.GetSPSelectSyntax(HasArguments: Boolean): String;
+begin
+  Result := MSSQL_GetSPSelectSyntax(HasArguments);
+end;
+
+procedure ADO_InitializeReservedWords;
+begin
+  // http://publib.boulder.ibm.com/infocenter/wasinfo/v6r1/index.jsp?topic=/com.ibm.etools.ejbbatchdeploy.doc/topics/rsqlMSSQLSERVER_2005.html
+  SetLength(ado_reservedwords, 747);
+  // sorted with TStringList.Sort (bds2007)
+  ado_reservedwords[0] := 'A';
+  ado_reservedwords[1] := 'ABORT';
+  ado_reservedwords[2] := 'ABS';
+  ado_reservedwords[3] := 'ABSOLUTE';
+  ado_reservedwords[4] := 'ACCESS';
+  ado_reservedwords[5] := 'ACOS';
+  ado_reservedwords[6] := 'ACQUIRE';
+  ado_reservedwords[7] := 'ACTION';
+  ado_reservedwords[8] := 'ACTIVATE';
+  ado_reservedwords[9] := 'ADA';
+  ado_reservedwords[10] := 'ADD';
+  ado_reservedwords[11] := 'ADDFORM';
+  ado_reservedwords[12] := 'ADMIN';
+  ado_reservedwords[13] := 'AFTER';
+  ado_reservedwords[14] := 'AGGREGATE';
+  ado_reservedwords[15] := 'ALIAS';
+  ado_reservedwords[16] := 'ALL';
+  ado_reservedwords[17] := 'ALLOCATE';
+  ado_reservedwords[18] := 'ALTER';
+  ado_reservedwords[19] := 'AN';
+  ado_reservedwords[20] := 'ANALYZE';
+  ado_reservedwords[21] := 'AND';
+  ado_reservedwords[22] := 'ANY';
+  ado_reservedwords[23] := 'APPEND';
+  ado_reservedwords[24] := 'ARCHIVE';
+  ado_reservedwords[25] := 'ARCHIVELOG';
+  ado_reservedwords[26] := 'ARE';
+  ado_reservedwords[27] := 'ARRAY';
+  ado_reservedwords[28] := 'ARRAYLEN';
+  ado_reservedwords[29] := 'AS';
+  ado_reservedwords[30] := 'ASC';
+  ado_reservedwords[31] := 'ASCII';
+  ado_reservedwords[32] := 'ASIN';
+  ado_reservedwords[33] := 'ASSERTION';
+  ado_reservedwords[34] := 'AT';
+  ado_reservedwords[35] := 'ATAN';
+  ado_reservedwords[36] := 'AUDIT';
+  ado_reservedwords[37] := 'AUTHORIZATION';
+  ado_reservedwords[38] := 'AVG';
+  ado_reservedwords[39] := 'AVGU';
+  ado_reservedwords[40] := 'BACKUP';
+  ado_reservedwords[41] := 'BECOME';
+  ado_reservedwords[42] := 'BEFORE';
+  ado_reservedwords[43] := 'BEGIN';
+  ado_reservedwords[44] := 'BETWEEN';
+  ado_reservedwords[45] := 'BIGINT';
+  ado_reservedwords[46] := 'BINARY';
+  ado_reservedwords[47] := 'BIND';
+  ado_reservedwords[48] := 'BINDING';
+  ado_reservedwords[49] := 'BIT';
+  ado_reservedwords[50] := 'BLOB';
+  ado_reservedwords[51] := 'BLOCK';
+  ado_reservedwords[52] := 'BODY';
+  ado_reservedwords[53] := 'BOOLEAN';
+  ado_reservedwords[54] := 'BOTH';
+  ado_reservedwords[55] := 'BREADTH';
+  ado_reservedwords[56] := 'BREAK';
+  ado_reservedwords[57] := 'BREAKDISPLAY';
+  ado_reservedwords[58] := 'BROWSE';
+  ado_reservedwords[59] := 'BUFFERPOOL';
+  ado_reservedwords[60] := 'BULK';
+  ado_reservedwords[61] := 'BY';
+  ado_reservedwords[62] := 'BYREF';
+  ado_reservedwords[63] := 'CACHE';
+  ado_reservedwords[64] := 'CALL';
+  ado_reservedwords[65] := 'CALLPROC';
+  ado_reservedwords[66] := 'CANCEL';
+  ado_reservedwords[67] := 'CAPTURE';
+  ado_reservedwords[68] := 'CASCADE';
+  ado_reservedwords[69] := 'CASCADED';
+  ado_reservedwords[70] := 'CASE';
+  ado_reservedwords[71] := 'CAST';
+  ado_reservedwords[72] := 'CATALOG';
+  ado_reservedwords[73] := 'CCSID';
+  ado_reservedwords[74] := 'CEILING';
+  ado_reservedwords[75] := 'CHANGE';
+  ado_reservedwords[76] := 'CHAR';
+  ado_reservedwords[77] := 'CHARACTER';
+  ado_reservedwords[78] := 'CHARTOROWID';
+  ado_reservedwords[79] := 'CHECK';
+  ado_reservedwords[80] := 'CHECKPOINT';
+  ado_reservedwords[81] := 'CHR';
+  ado_reservedwords[82] := 'CLASS';
+  ado_reservedwords[83] := 'CLEANUP';
+  ado_reservedwords[84] := 'CLEAR';
+  ado_reservedwords[85] := 'CLEARROW';
+  ado_reservedwords[86] := 'CLOB';
+  ado_reservedwords[87] := 'CLOSE';
+  ado_reservedwords[88] := 'CLUSTER';
+  ado_reservedwords[89] := 'CLUSTERED';
+  ado_reservedwords[90] := 'COALESCE';
+  ado_reservedwords[91] := 'COBOL';
+  ado_reservedwords[92] := 'COLGROUP';
+  ado_reservedwords[93] := 'COLLATE';
+  ado_reservedwords[94] := 'COLLATION';
+  ado_reservedwords[95] := 'COLLECTION';
+  ado_reservedwords[96] := 'COLUMN';
+  ado_reservedwords[97] := 'COMMAND';
+  ado_reservedwords[98] := 'COMMENT';
+  ado_reservedwords[99] := 'COMMIT';
+  ado_reservedwords[100] := 'COMMITTED';
+  ado_reservedwords[101] := 'COMPILE';
+  ado_reservedwords[102] := 'COMPLETION';
+  ado_reservedwords[103] := 'COMPLEX';
+  ado_reservedwords[104] := 'COMPRESS';
+  ado_reservedwords[105] := 'COMPUTE';
+  ado_reservedwords[106] := 'CONCAT';
+  ado_reservedwords[107] := 'CONFIRM';
+  ado_reservedwords[108] := 'CONNECT';
+  ado_reservedwords[109] := 'CONNECTION';
+  ado_reservedwords[110] := 'CONSTRAINT';
+  ado_reservedwords[111] := 'CONSTRAINTS';
+  ado_reservedwords[112] := 'CONSTRUCTOR';
+  ado_reservedwords[113] := 'CONTAINS';
+  ado_reservedwords[114] := 'CONTAINSTABLE';
+  ado_reservedwords[115] := 'CONTENTS';
+  ado_reservedwords[116] := 'CONTINUE';
+  ado_reservedwords[117] := 'CONTROLFILE';
+  ado_reservedwords[118] := 'CONTROLROW';
+  ado_reservedwords[119] := 'CONVERT';
+  ado_reservedwords[120] := 'COPY';
+  ado_reservedwords[121] := 'CORRESPONDING';
+  ado_reservedwords[122] := 'COS';
+  ado_reservedwords[123] := 'COUNT';
+  ado_reservedwords[124] := 'COUNTU';
+  ado_reservedwords[125] := 'CREATE';
+  ado_reservedwords[126] := 'CROSS';
+  ado_reservedwords[127] := 'CUBE';
+  ado_reservedwords[128] := 'CURRENT';
+  ado_reservedwords[129] := 'CURRENT_DATE';
+  ado_reservedwords[130] := 'CURRENT_PATH';
+  ado_reservedwords[131] := 'CURRENT_ROLE';
+  ado_reservedwords[132] := 'CURRENT_TIME';
+  ado_reservedwords[133] := 'CURRENT_TIMESTAMP';
+  ado_reservedwords[134] := 'CURRENT_USER';
+  ado_reservedwords[135] := 'CURSOR';
+  ado_reservedwords[136] := 'CVAR';
+  ado_reservedwords[137] := 'CYCLE';
+  ado_reservedwords[138] := 'DATA';
+  ado_reservedwords[139] := 'DATABASE';
+  ado_reservedwords[140] := 'DATAFILE';
+  ado_reservedwords[141] := 'DATAHANDLER';
+  ado_reservedwords[142] := 'DATAPAGES';
+  ado_reservedwords[143] := 'DATE';
+  ado_reservedwords[144] := 'DAY';
+  ado_reservedwords[145] := 'DAYOFMONTH';
+  ado_reservedwords[146] := 'DAYOFWEEK';
+  ado_reservedwords[147] := 'DAYOFYEAR';
+  ado_reservedwords[148] := 'DAYS';
+  ado_reservedwords[149] := 'DBA';
+  ado_reservedwords[150] := 'DBCC';
+  ado_reservedwords[151] := 'DBSPACE';
+  ado_reservedwords[152] := 'DEALLOCATE';
+  ado_reservedwords[153] := 'DEC';
+  ado_reservedwords[154] := 'DECIMAL';
+  ado_reservedwords[155] := 'DECLARATION';
+  ado_reservedwords[156] := 'DECLARE';
+  ado_reservedwords[157] := 'DECODE';
+  ado_reservedwords[158] := 'DEFAULT';
+  ado_reservedwords[159] := 'DEFERRABLE';
+  ado_reservedwords[160] := 'DEFERRED';
+  ado_reservedwords[161] := 'DEFINE';
+  ado_reservedwords[162] := 'DEFINITION';
+  ado_reservedwords[163] := 'DEGREES';
+  ado_reservedwords[164] := 'DELETE';
+  ado_reservedwords[165] := 'DELETEROW';
+  ado_reservedwords[166] := 'DENY';
+  ado_reservedwords[167] := 'DEPTH';
+  ado_reservedwords[168] := 'DEREF';
+  ado_reservedwords[169] := 'DESC';
+  ado_reservedwords[170] := 'DESCRIBE';
+  ado_reservedwords[171] := 'DESCRIPTOR';
+  ado_reservedwords[172] := 'DESTROY';
+  ado_reservedwords[173] := 'DESTRUCTOR';
+  ado_reservedwords[174] := 'DETERMINISTIC';
+  ado_reservedwords[175] := 'DHTYPE';
+  ado_reservedwords[176] := 'DIAGNOSTICS';
+  ado_reservedwords[177] := 'DICTIONARY';
+  ado_reservedwords[178] := 'DIRECT';
+  ado_reservedwords[179] := 'DISABLE';
+  ado_reservedwords[180] := 'DISCONNECT';
+  ado_reservedwords[181] := 'DISK';
+  ado_reservedwords[182] := 'DISMOUNT';
+  ado_reservedwords[183] := 'DISPLAY';
+  ado_reservedwords[184] := 'DISTINCT';
+  ado_reservedwords[185] := 'DISTRIBUTE';
+  ado_reservedwords[186] := 'DISTRIBUTED';
+  ado_reservedwords[187] := 'DO';
+  ado_reservedwords[188] := 'DOMAIN';
+  ado_reservedwords[189] := 'DOUBLE';
+  ado_reservedwords[190] := 'DOWN';
+  ado_reservedwords[191] := 'DROP';
+  ado_reservedwords[192] := 'DUMMY';
+  ado_reservedwords[193] := 'DUMP';
+  ado_reservedwords[194] := 'DYNAMIC';
+  ado_reservedwords[195] := 'EACH';
+  ado_reservedwords[196] := 'EDITPROC';
+  ado_reservedwords[197] := 'ELSE';
+  ado_reservedwords[198] := 'ELSEIF';
+  ado_reservedwords[199] := 'ENABLE';
+  ado_reservedwords[200] := 'END';
+  ado_reservedwords[201] := 'ENDDATA';
+  ado_reservedwords[202] := 'ENDDISPLAY';
+  ado_reservedwords[203] := 'ENDEXEC';
+  ado_reservedwords[204] := 'END-EXEC';
+  ado_reservedwords[205] := 'ENDFORMS';
+  ado_reservedwords[206] := 'ENDIF';
+  ado_reservedwords[207] := 'ENDLOOP';
+  ado_reservedwords[208] := 'ENDSELECT';
+  ado_reservedwords[209] := 'ENDWHILE';
+  ado_reservedwords[210] := 'EQUALS';
+  ado_reservedwords[211] := 'ERASE';
+  ado_reservedwords[212] := 'ERRLVL';
+  ado_reservedwords[213] := 'ERROREXIT';
+  ado_reservedwords[214] := 'ESCAPE';
+  ado_reservedwords[215] := 'EVENTS';
+  ado_reservedwords[216] := 'EVERY';
+  ado_reservedwords[217] := 'EXCEPT';
+  ado_reservedwords[218] := 'EXCEPTION';
+  ado_reservedwords[219] := 'EXCEPTIONS';
+  ado_reservedwords[220] := 'EXCLUDE';
+  ado_reservedwords[221] := 'EXCLUDING';
+  ado_reservedwords[222] := 'EXCLUSIVE';
+  ado_reservedwords[223] := 'EXEC';
+  ado_reservedwords[224] := 'EXECUTE';
+  ado_reservedwords[225] := 'EXISTS';
+  ado_reservedwords[226] := 'EXIT';
+  ado_reservedwords[227] := 'EXP';
+  ado_reservedwords[228] := 'EXPLAIN';
+  ado_reservedwords[229] := 'EXPLICIT';
+  ado_reservedwords[230] := 'EXTENT';
+  ado_reservedwords[231] := 'EXTERNAL';
+  ado_reservedwords[232] := 'EXTERNALLY';
+  ado_reservedwords[233] := 'EXTRACT';
+  ado_reservedwords[234] := 'FALSE';
+  ado_reservedwords[235] := 'FETCH';
+  ado_reservedwords[236] := 'FIELD';
+  ado_reservedwords[237] := 'FIELDPROC';
+  ado_reservedwords[238] := 'FILE';
+  ado_reservedwords[239] := 'FILLFACTOR';
+  ado_reservedwords[240] := 'FINALIZE';
+  ado_reservedwords[241] := 'FINALIZE';
+  ado_reservedwords[242] := 'FIRST';
+  ado_reservedwords[243] := 'FLOAT';
+  ado_reservedwords[244] := 'FLOOR';
+  ado_reservedwords[245] := 'FLOPPY';
+  ado_reservedwords[246] := 'FLUSH';
+  ado_reservedwords[247] := 'FOR';
+  ado_reservedwords[248] := 'FORCE';
+  ado_reservedwords[249] := 'FOREIGN';
+  ado_reservedwords[250] := 'FORMDATA';
+  ado_reservedwords[251] := 'FORMINIT';
+  ado_reservedwords[252] := 'FORMS';
+  ado_reservedwords[253] := 'FORTRAN';
+  ado_reservedwords[254] := 'FOUND';
+  ado_reservedwords[255] := 'FREE';
+  ado_reservedwords[256] := 'FREELIST';
+  ado_reservedwords[257] := 'FREELISTS';
+  ado_reservedwords[258] := 'FREETEXT';
+  ado_reservedwords[259] := 'FREETEXTTABLE';
+  ado_reservedwords[260] := 'FROM';
+  ado_reservedwords[261] := 'FULL';
+  ado_reservedwords[262] := 'FUNCTION';
+  ado_reservedwords[263] := 'GENERAL';
+  ado_reservedwords[264] := 'GET';
+  ado_reservedwords[265] := 'GETCURRENTCONNECTION';
+  ado_reservedwords[266] := 'GETFORM';
+  ado_reservedwords[267] := 'GETOPER';
+  ado_reservedwords[268] := 'GETROW';
+  ado_reservedwords[269] := 'GLOBAL';
+  ado_reservedwords[270] := 'GO';
+  ado_reservedwords[271] := 'GOTO';
+  ado_reservedwords[272] := 'GRANT';
+  ado_reservedwords[273] := 'GRANTED';
+  ado_reservedwords[274] := 'GRAPHIC';
+  ado_reservedwords[275] := 'GREATEST';
+  ado_reservedwords[276] := 'GROUP';
+  ado_reservedwords[277] := 'GROUPING';
+  ado_reservedwords[278] := 'GROUPS';
+  ado_reservedwords[279] := 'HASH';
+  ado_reservedwords[280] := 'HAVING';
+  ado_reservedwords[281] := 'HELP';
+  ado_reservedwords[282] := 'HELPFILE';
+  ado_reservedwords[283] := 'HOLDLOCK';
+  ado_reservedwords[284] := 'HOST';
+  ado_reservedwords[285] := 'HOUR';
+  ado_reservedwords[286] := 'HOURS';
+  ado_reservedwords[287] := 'IDENTIFIED';
+  ado_reservedwords[288] := 'IDENTITY';
+  ado_reservedwords[289] := 'IDENTITYCOL';
+  ado_reservedwords[290] := 'IF';
+  ado_reservedwords[291] := 'IFNULL';
+  ado_reservedwords[292] := 'IGNORE';
+  ado_reservedwords[293] := 'IIMESSAGE';
+  ado_reservedwords[294] := 'IIPRINTF';
+  ado_reservedwords[295] := 'IMMEDIATE';
+  ado_reservedwords[296] := 'IMPORT';
+  ado_reservedwords[297] := 'IN';
+  ado_reservedwords[298] := 'INCLUDE';
+  ado_reservedwords[299] := 'INCLUDING';
+  ado_reservedwords[300] := 'INCREMENT';
+  ado_reservedwords[301] := 'INDEX';
+  ado_reservedwords[302] := 'INDEXPAGES';
+  ado_reservedwords[303] := 'INDICATOR';
+  ado_reservedwords[304] := 'INITCAP';
+  ado_reservedwords[305] := 'INITIAL';
+  ado_reservedwords[306] := 'INITIALIZE';
+  ado_reservedwords[307] := 'INITIALLY';
+  ado_reservedwords[308] := 'INITRANS';
+  ado_reservedwords[309] := 'INITTABLE';
+  ado_reservedwords[310] := 'INNER';
+  ado_reservedwords[311] := 'INOUT';
+  ado_reservedwords[312] := 'INPUT';
+  ado_reservedwords[313] := 'INSENSITIVE';
+  ado_reservedwords[314] := 'INSERT';
+  ado_reservedwords[315] := 'INSERTROW';
+  ado_reservedwords[316] := 'INSTANCE';
+  ado_reservedwords[317] := 'INSTR';
+  ado_reservedwords[318] := 'INT';
+  ado_reservedwords[319] := 'INTEGER';
+  ado_reservedwords[320] := 'INTEGRITY';
+  ado_reservedwords[321] := 'INTERFACE';
+  ado_reservedwords[322] := 'INTERSECT';
+  ado_reservedwords[323] := 'INTERVAL';
+  ado_reservedwords[324] := 'INTO';
+  ado_reservedwords[325] := 'IS';
+  ado_reservedwords[326] := 'ISOLATION';
+  ado_reservedwords[327] := 'ITERATE';
+  ado_reservedwords[328] := 'JOIN';
+  ado_reservedwords[329] := 'KEY';
+  ado_reservedwords[330] := 'KILL';
+  ado_reservedwords[331] := 'LABEL';
+  ado_reservedwords[332] := 'LANGUAGE';
+  ado_reservedwords[333] := 'LARGE';
+  ado_reservedwords[334] := 'LAST';
+  ado_reservedwords[335] := 'LATERAL';
+  ado_reservedwords[336] := 'LAYER';
+  ado_reservedwords[337] := 'LEADING';
+  ado_reservedwords[338] := 'LEAST';
+  ado_reservedwords[339] := 'LEFT';
+  ado_reservedwords[340] := 'LENGTH';
+  ado_reservedwords[341] := 'LESS';
+  ado_reservedwords[342] := 'LEVEL';
+  ado_reservedwords[343] := 'LIKE';
+  ado_reservedwords[344] := 'LIMIT';
+  ado_reservedwords[345] := 'LINENO';
+  ado_reservedwords[346] := 'LINK';
+  ado_reservedwords[347] := 'LIST';
+  ado_reservedwords[348] := 'LISTS';
+  ado_reservedwords[349] := 'LOAD';
+  ado_reservedwords[350] := 'LOADTABLE';
+  ado_reservedwords[351] := 'LOCAL';
+  ado_reservedwords[352] := 'LOCALTIME';
+  ado_reservedwords[353] := 'LOCALTIMESTAMP';
+  ado_reservedwords[354] := 'LOCATE';
+  ado_reservedwords[355] := 'LOCATOR';
+  ado_reservedwords[356] := 'LOCK';
+  ado_reservedwords[357] := 'LOCKSIZE';
+  ado_reservedwords[358] := 'LOG';
+  ado_reservedwords[359] := 'LOGFILE';
+  ado_reservedwords[360] := 'LONG';
+  ado_reservedwords[361] := 'LONGINT';
+  ado_reservedwords[362] := 'LOWER';
+  ado_reservedwords[363] := 'LPAD';
+  ado_reservedwords[364] := 'LTRIM';
+  ado_reservedwords[365] := 'LVARBINARY';
+  ado_reservedwords[366] := 'LVARCHAR';
+  ado_reservedwords[367] := 'MAIN';
+  ado_reservedwords[368] := 'MANAGE';
+  ado_reservedwords[369] := 'MANUAL';
+  ado_reservedwords[370] := 'MAP';
+  ado_reservedwords[371] := 'MATCH';
+  ado_reservedwords[372] := 'MAX';
+  ado_reservedwords[373] := 'MAXDATAFILES';
+  ado_reservedwords[374] := 'MAXEXTENTS';
+  ado_reservedwords[375] := 'MAXINSTANCES';
+  ado_reservedwords[376] := 'MAXLOGFILES';
+  ado_reservedwords[377] := 'MAXLOGHISTORY';
+  ado_reservedwords[378] := 'MAXLOGMEMBERS';
+  ado_reservedwords[379] := 'MAXTRANS';
+  ado_reservedwords[380] := 'MAXVALUE';
+  ado_reservedwords[381] := 'MENUITEM';
+  ado_reservedwords[382] := 'MESSAGE';
+  ado_reservedwords[383] := 'MICROSECOND';
+  ado_reservedwords[384] := 'MICROSECONDS';
+  ado_reservedwords[385] := 'MIN';
+  ado_reservedwords[386] := 'MINEXTENTS';
+  ado_reservedwords[387] := 'MINUS';
+  ado_reservedwords[388] := 'MINUTE';
+  ado_reservedwords[389] := 'MINUTES';
+  ado_reservedwords[390] := 'MINVALUE';
+  ado_reservedwords[391] := 'MIRROREXIT';
+  ado_reservedwords[392] := 'MOD';
+  ado_reservedwords[393] := 'MODE';
+  ado_reservedwords[394] := 'MODIFIES';
+  ado_reservedwords[395] := 'MODIFY';
+  ado_reservedwords[396] := 'MODULE';
+  ado_reservedwords[397] := 'MONEY';
+  ado_reservedwords[398] := 'MONTH';
+  ado_reservedwords[399] := 'MONTHS';
+  ado_reservedwords[400] := 'MOUNT';
+  ado_reservedwords[401] := 'MOVE';
+  ado_reservedwords[402] := 'NAMED';
+  ado_reservedwords[403] := 'NAMES';
+  ado_reservedwords[404] := 'NATIONAL';
+  ado_reservedwords[405] := 'NATURAL';
+  ado_reservedwords[406] := 'NCHAR';
+  ado_reservedwords[407] := 'NCLOB';
+  ado_reservedwords[408] := 'NEW';
+  ado_reservedwords[409] := 'NEXT';
+  ado_reservedwords[410] := 'NHEADER';
+  ado_reservedwords[411] := 'NO';
+  ado_reservedwords[412] := 'NOARCHIVELOG';
+  ado_reservedwords[413] := 'NOAUDIT';
+  ado_reservedwords[414] := 'NOCACHE';
+  ado_reservedwords[415] := 'NOCHECK';
+  ado_reservedwords[416] := 'NOCOMPRESS';
+  ado_reservedwords[417] := 'NOCYCLE';
+  ado_reservedwords[418] := 'NOECHO';
+  ado_reservedwords[419] := 'NOMAXVALUE';
+  ado_reservedwords[420] := 'NOMINVALUE';
+  ado_reservedwords[421] := 'NONCLUSTERED';
+  ado_reservedwords[422] := 'NONE';
+  ado_reservedwords[423] := 'NOORDER';
+  ado_reservedwords[424] := 'NORESETLOGS';
+  ado_reservedwords[425] := 'NORMAL';
+  ado_reservedwords[426] := 'NOSORT';
+  ado_reservedwords[427] := 'NOT';
+  ado_reservedwords[428] := 'NOTFOUND';
+  ado_reservedwords[429] := 'NOTRIM';
+  ado_reservedwords[430] := 'NOWAIT';
+  ado_reservedwords[431] := 'NULL';
+  ado_reservedwords[432] := 'NULLIF';
+  ado_reservedwords[433] := 'NULLVALUE';
+  ado_reservedwords[434] := 'NUMBER';
+  ado_reservedwords[435] := 'NUMERIC';
+  ado_reservedwords[436] := 'NUMPARTS';
+  ado_reservedwords[437] := 'NVL';
+  ado_reservedwords[438] := 'OBID';
+  ado_reservedwords[439] := 'OBJECT';
+  ado_reservedwords[440] := 'ODBCINFO';
+  ado_reservedwords[441] := 'OF';
+  ado_reservedwords[442] := 'OFF';
+  ado_reservedwords[443] := 'OFFLINE';
+  ado_reservedwords[444] := 'OFFSETS';
+  ado_reservedwords[445] := 'OLD';
+  ado_reservedwords[446] := 'ON';
+  ado_reservedwords[447] := 'ONCE';
+  ado_reservedwords[448] := 'ONLINE';
+  ado_reservedwords[449] := 'ONLY';
+  ado_reservedwords[450] := 'OPEN';
+  ado_reservedwords[451] := 'OPENDATASOURCE';
+  ado_reservedwords[452] := 'OPENQUERY';
+  ado_reservedwords[453] := 'OPENROWSET';
+  ado_reservedwords[454] := 'OPERATION';
+  ado_reservedwords[455] := 'OPTIMAL';
+  ado_reservedwords[456] := 'OPTIMIZE';
+  ado_reservedwords[457] := 'OPTION';
+  ado_reservedwords[458] := 'OR';
+  ado_reservedwords[459] := 'ORDER';
+  ado_reservedwords[460] := 'ORDINALITY';
+  ado_reservedwords[461] := 'OUT';
+  ado_reservedwords[462] := 'OUTER';
+  ado_reservedwords[463] := 'OUTPUT';
+  ado_reservedwords[464] := 'OVER';
+  ado_reservedwords[465] := 'OVERLAPS';
+  ado_reservedwords[466] := 'OWN';
+  ado_reservedwords[467] := 'PACKAGE';
+  ado_reservedwords[468] := 'PAD';
+  ado_reservedwords[469] := 'PAGE';
+  ado_reservedwords[470] := 'PAGES';
+  ado_reservedwords[471] := 'PARALLEL';
+  ado_reservedwords[472] := 'PARAMETER';
+  ado_reservedwords[473] := 'PARAMETERS';
+  ado_reservedwords[474] := 'PART';
+  ado_reservedwords[475] := 'PARTIAL';
+  ado_reservedwords[476] := 'PASCAL';
+  ado_reservedwords[477] := 'PATH';
+  ado_reservedwords[478] := 'PCTFREE';
+  ado_reservedwords[479] := 'PCTINCREASE';
+  ado_reservedwords[480] := 'PCTINDEX';
+  ado_reservedwords[481] := 'PCTUSED';
+  ado_reservedwords[482] := 'PERCENT';
+  ado_reservedwords[483] := 'PERM';
+  ado_reservedwords[484] := 'PERMANENT';
+  ado_reservedwords[485] := 'PERMIT';
+  ado_reservedwords[486] := 'PI';
+  ado_reservedwords[487] := 'PIPE';
+  ado_reservedwords[488] := 'PLAN';
+  ado_reservedwords[489] := 'PLI';
+  ado_reservedwords[490] := 'POSITION';
+  ado_reservedwords[491] := 'POSTFIX';
+  ado_reservedwords[492] := 'POWER';
+  ado_reservedwords[493] := 'PRECISION';
+  ado_reservedwords[494] := 'PREFIX';
+  ado_reservedwords[495] := 'PREORDER';
+  ado_reservedwords[496] := 'PREPARE';
+  ado_reservedwords[497] := 'PRESERVE';
+  ado_reservedwords[498] := 'PRIMARY';
+  ado_reservedwords[499] := 'PRINT';
+  ado_reservedwords[500] := 'PRINTSCREEN';
+  ado_reservedwords[501] := 'PRIOR';
+  ado_reservedwords[502] := 'PRIQTY';
+  ado_reservedwords[503] := 'PRIVATE';
+  ado_reservedwords[504] := 'PRIVILEGES';
+  ado_reservedwords[505] := 'PROC';
+  ado_reservedwords[506] := 'PROCEDURE';
+  ado_reservedwords[507] := 'PROCESSEXIT';
+  ado_reservedwords[508] := 'PROFILE';
+  ado_reservedwords[509] := 'PROGRAM';
+  ado_reservedwords[510] := 'PROMPT';
+  ado_reservedwords[511] := 'PUBLIC';
+  ado_reservedwords[512] := 'PUTFORM';
+  ado_reservedwords[513] := 'PUTOPER';
+  ado_reservedwords[514] := 'PUTROW';
+  ado_reservedwords[515] := 'QUALIFICATION';
+  ado_reservedwords[516] := 'QUARTER';
+  ado_reservedwords[517] := 'QUOTA';
+  ado_reservedwords[518] := 'RADIANS';
+  ado_reservedwords[519] := 'RAISE';
+  ado_reservedwords[520] := 'RAISERROR';
+  ado_reservedwords[521] := 'RAND';
+  ado_reservedwords[522] := 'RANGE';
+  ado_reservedwords[523] := 'RAW';
+  ado_reservedwords[524] := 'READ';
+  ado_reservedwords[525] := 'READS';
+  ado_reservedwords[526] := 'READTEXT';
+  ado_reservedwords[527] := 'REAL';
+  ado_reservedwords[528] := 'RECONFIGURE';
+  ado_reservedwords[529] := 'RECORD';
+  ado_reservedwords[530] := 'RECOVER';
+  ado_reservedwords[531] := 'RECURSIVE';
+  ado_reservedwords[532] := 'REDISPLAY';
+  ado_reservedwords[533] := 'REF';
+  ado_reservedwords[534] := 'REFERENCES';
+  ado_reservedwords[535] := 'REFERENCING';
+  ado_reservedwords[536] := 'REGISTER';
+  ado_reservedwords[537] := 'RELATIVE';
+  ado_reservedwords[538] := 'RELEASE';
+  ado_reservedwords[539] := 'RELOCATE';
+  ado_reservedwords[540] := 'REMOVE';
+  ado_reservedwords[541] := 'RENAME';
+  ado_reservedwords[542] := 'REPEAT';
+  ado_reservedwords[543] := 'REPEATABLE';
+  ado_reservedwords[544] := 'REPEATED';
+  ado_reservedwords[545] := 'REPLACE';
+  ado_reservedwords[546] := 'REPLICATE';
+  ado_reservedwords[547] := 'REPLICATION';
+  ado_reservedwords[548] := 'RESET';
+  ado_reservedwords[549] := 'RESETLOGS';
+  ado_reservedwords[550] := 'RESOURCE';
+  ado_reservedwords[551] := 'RESTORE';
+  ado_reservedwords[552] := 'RESTRICT';
+  ado_reservedwords[553] := 'RESTRICTED';
+  ado_reservedwords[554] := 'RESULT';
+  ado_reservedwords[555] := 'RESUME';
+  ado_reservedwords[556] := 'RETRIEVE';
+  ado_reservedwords[557] := 'RETURN';
+  ado_reservedwords[558] := 'RETURNS';
+  ado_reservedwords[559] := 'REUSE';
+  ado_reservedwords[560] := 'REVOKE';
+  ado_reservedwords[561] := 'RIGHT';
+  ado_reservedwords[562] := 'ROLE';
+  ado_reservedwords[563] := 'ROLES';
+  ado_reservedwords[564] := 'ROLLBACK';
+  ado_reservedwords[565] := 'ROLLUP';
+  ado_reservedwords[566] := 'ROUTINE';
+  ado_reservedwords[567] := 'ROW';
+  ado_reservedwords[568] := 'ROWCOUNT';
+  ado_reservedwords[569] := 'ROWGUIDCOL';
+  ado_reservedwords[570] := 'ROWID';
+  ado_reservedwords[571] := 'ROWIDTOCHAR';
+  ado_reservedwords[572] := 'ROWLABEL';
+  ado_reservedwords[573] := 'ROWNUM';
+  ado_reservedwords[574] := 'ROWS';
+  ado_reservedwords[575] := 'ROWS';
+  ado_reservedwords[576] := 'RPAD';
+  ado_reservedwords[577] := 'RRN';
+  ado_reservedwords[578] := 'RTRIM';
+  ado_reservedwords[579] := 'RULE';
+  ado_reservedwords[580] := 'RUN';
+  ado_reservedwords[581] := 'RUNTIMESTATISTICS';
+  ado_reservedwords[582] := 'SAVE';
+  ado_reservedwords[583] := 'SAVEPOINT';
+  ado_reservedwords[584] := 'SCHEDULE';
+  ado_reservedwords[585] := 'SCHEMA';
+  ado_reservedwords[586] := 'SCN';
+  ado_reservedwords[587] := 'SCOPE';
+  ado_reservedwords[588] := 'SCREEN';
+  ado_reservedwords[589] := 'SCROLL';
+  ado_reservedwords[590] := 'SCROLLDOWN';
+  ado_reservedwords[591] := 'SCROLLUP';
+  ado_reservedwords[592] := 'SEARCH';
+  ado_reservedwords[593] := 'SECOND';
+  ado_reservedwords[594] := 'SECONDS';
+  ado_reservedwords[595] := 'SECQTY';
+  ado_reservedwords[596] := 'SECTION';
+  ado_reservedwords[597] := 'SEGMENT';
+  ado_reservedwords[598] := 'SELECT';
+  ado_reservedwords[599] := 'SEQUENCE';
+  ado_reservedwords[600] := 'SERIALIZABLE';
+  ado_reservedwords[601] := 'SERVICE';
+  ado_reservedwords[602] := 'SESSION';
+  ado_reservedwords[603] := 'SESSION_USER';
+  ado_reservedwords[604] := 'SET';
+  ado_reservedwords[605] := 'SETS';
+  ado_reservedwords[606] := 'SETUSER';
+  ado_reservedwords[607] := 'SETUSER';
+  ado_reservedwords[608] := 'SHARE';
+  ado_reservedwords[609] := 'SHARED';
+  ado_reservedwords[610] := 'SHORT';
+  ado_reservedwords[611] := 'SHUTDOWN';
+  ado_reservedwords[612] := 'SIGN';
+  ado_reservedwords[613] := 'SIMPLE';
+  ado_reservedwords[614] := 'SIN';
+  ado_reservedwords[615] := 'SIZE';
+  ado_reservedwords[616] := 'SLEEP';
+  ado_reservedwords[617] := 'SMALLINT';
+  ado_reservedwords[618] := 'SNAPSHOT';
+  ado_reservedwords[619] := 'SOME';
+  ado_reservedwords[620] := 'SORT';
+  ado_reservedwords[621] := 'SOUNDEX';
+  ado_reservedwords[622] := 'SPACE';
+  ado_reservedwords[623] := 'SPECIFIC';
+  ado_reservedwords[624] := 'SPECIFICTYPE';
+  ado_reservedwords[625] := 'SQL';
+  ado_reservedwords[626] := 'SQLBUF';
+  ado_reservedwords[627] := 'SQLCA';
+  ado_reservedwords[628] := 'SQLCODE';
+  ado_reservedwords[629] := 'SQLERROR';
+  ado_reservedwords[630] := 'SQLEXCEPTION';
+  ado_reservedwords[631] := 'SQLSTATE';
+  ado_reservedwords[632] := 'SQLWARNING';
+  ado_reservedwords[633] := 'SQRT';
+  ado_reservedwords[634] := 'START';
+  ado_reservedwords[635] := 'STATE';
+  ado_reservedwords[636] := 'STATEMENT';
+  ado_reservedwords[637] := 'STATIC';
+  ado_reservedwords[638] := 'STATISTICS';
+  ado_reservedwords[639] := 'STOGROUP';
+  ado_reservedwords[640] := 'STOP';
+  ado_reservedwords[641] := 'STORAGE';
+  ado_reservedwords[642] := 'STORPOOL';
+  ado_reservedwords[643] := 'STRUCTURE';
+  ado_reservedwords[644] := 'SUBMENU';
+  ado_reservedwords[645] := 'SUBPAGES';
+  ado_reservedwords[646] := 'SUBSTR';
+  ado_reservedwords[647] := 'SUBSTRING';
+  ado_reservedwords[648] := 'SUCCESSFUL';
+  ado_reservedwords[649] := 'SUFFIX';
+  ado_reservedwords[650] := 'SUM';
+  ado_reservedwords[651] := 'SUMU';
+  ado_reservedwords[652] := 'SWITCH';
+  ado_reservedwords[653] := 'SYNONYM';
+  ado_reservedwords[654] := 'SYSCAT';
+  ado_reservedwords[655] := 'SYSDATE';
+  ado_reservedwords[656] := 'SYSFUN';
+  ado_reservedwords[657] := 'SYSIBM';
+  ado_reservedwords[658] := 'SYSSTAT';
+  ado_reservedwords[659] := 'SYSTEM';
+  ado_reservedwords[660] := 'SYSTEM_USER';
+  ado_reservedwords[661] := 'SYSTIME';
+  ado_reservedwords[662] := 'SYSTIMESTAMP';
+  ado_reservedwords[663] := 'TABLE';
+  ado_reservedwords[664] := 'TABLEDATA';
+  ado_reservedwords[665] := 'TABLES';
+  ado_reservedwords[666] := 'TABLESPACE';
+  ado_reservedwords[667] := 'TAN';
+  ado_reservedwords[668] := 'TAPE';
+  ado_reservedwords[669] := 'TEMP';
+  ado_reservedwords[670] := 'TEMPORARY';
+  ado_reservedwords[671] := 'TERMINATE';
+  ado_reservedwords[672] := 'TEXTSIZE';
+  ado_reservedwords[673] := 'THAN';
+  ado_reservedwords[674] := 'THEN';
+  ado_reservedwords[675] := 'THREAD';
+  ado_reservedwords[676] := 'TIME';
+  ado_reservedwords[677] := 'TIMEOUT';
+  ado_reservedwords[678] := 'TIMESTAMP';
+  ado_reservedwords[679] := 'TIMEZONE_HOUR';
+  ado_reservedwords[680] := 'TIMEZONE_MINUTE';
+  ado_reservedwords[681] := 'TINYINT';
+  ado_reservedwords[682] := 'TO';
+  ado_reservedwords[683] := 'TOP';
+  ado_reservedwords[684] := 'TPE';
+  ado_reservedwords[685] := 'TRACING';
+  ado_reservedwords[686] := 'TRAILING';
+  ado_reservedwords[687] := 'TRAN';
+  ado_reservedwords[688] := 'TRANSACTION';
+  ado_reservedwords[689] := 'TRANSLATE';
+  ado_reservedwords[690] := 'TRANSLATION';
+  ado_reservedwords[691] := 'TREAT';
+  ado_reservedwords[692] := 'TRIGGER';
+  ado_reservedwords[693] := 'TRIGGERS';
+  ado_reservedwords[694] := 'TRIM';
+  ado_reservedwords[695] := 'TRUE';
+  ado_reservedwords[696] := 'TRUNCATE';
+  ado_reservedwords[697] := 'TSEQUAL';
+  ado_reservedwords[698] := 'TYPE';
+  ado_reservedwords[699] := 'UID';
+  ado_reservedwords[700] := 'UNCOMMITTED';
+  ado_reservedwords[701] := 'UNDER';
+  ado_reservedwords[702] := 'UNION';
+  ado_reservedwords[703] := 'UNIQUE';
+  ado_reservedwords[704] := 'UNKNOWN';
+  ado_reservedwords[705] := 'UNLIMITED';
+  ado_reservedwords[706] := 'UNLOADTABLE';
+  ado_reservedwords[707] := 'UNNEST';
+  ado_reservedwords[708] := 'UNSIGNED';
+  ado_reservedwords[709] := 'UNTIL';
+  ado_reservedwords[710] := 'UP';
+  ado_reservedwords[711] := 'UPDATE';
+  ado_reservedwords[712] := 'UPDATETEXT';
+  ado_reservedwords[713] := 'UPPER';
+  ado_reservedwords[714] := 'USAGE';
+  ado_reservedwords[715] := 'USE';
+  ado_reservedwords[716] := 'USER';
+  ado_reservedwords[717] := 'USING';
+  ado_reservedwords[718] := 'UUID';
+  ado_reservedwords[719] := 'VALIDATE';
+  ado_reservedwords[720] := 'VALIDPROC';
+  ado_reservedwords[721] := 'VALIDROW';
+  ado_reservedwords[722] := 'VALUE';
+  ado_reservedwords[723] := 'VALUES';
+  ado_reservedwords[724] := 'VARBINARY';
+  ado_reservedwords[725] := 'VARCHAR';
+  ado_reservedwords[726] := 'VARIABLE';
+  ado_reservedwords[727] := 'VARIABLES';
+  ado_reservedwords[728] := 'VARYING';
+  ado_reservedwords[729] := 'VCAT';
+  ado_reservedwords[730] := 'VERSION';
+  ado_reservedwords[731] := 'VIEW';
+  ado_reservedwords[732] := 'VOLUMES';
+  ado_reservedwords[733] := 'WAITFOR';
+  ado_reservedwords[734] := 'WEEK';
+  ado_reservedwords[735] := 'WHEN';
+  ado_reservedwords[736] := 'WHENEVER';
+  ado_reservedwords[737] := 'WHERE';
+  ado_reservedwords[738] := 'WHILE';
+  ado_reservedwords[739] := 'WITH';
+  ado_reservedwords[740] := 'WITHOUT';
+  ado_reservedwords[741] := 'WORK';
+  ado_reservedwords[742] := 'WRITE';
+  ado_reservedwords[743] := 'WRITETEXT';
+  ado_reservedwords[744] := 'YEAR';
+  ado_reservedwords[745] := 'YEARS';
+  ado_reservedwords[746] := 'ZONE';
+end;
+
+
+function TDAMSConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier) or MSSQL_IdentifierNeedsQuoting(iIdentifier);
+end;
+
+procedure TDAMSConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  MSSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+end;
+
+{ TDAMSSQLDriver }
+
+function TDAMSSQLDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  Result := MSSQL_DriverType;
+end;
+
+function MSACCESS_GetFileExtensions: IROStrings;
+begin
+  Result := NewROStrings;
+  Result.Add('*.mdb;MSAccess files (*.mdb)');
+  Result.Add('*.*;All files (*.*)');
+end;
+
+initialization
+  ado_InitializeReservedWords;
+finalization
+  ado_reservedwords := nil;
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABin2DataStreamer.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABin2DataStreamer.pas
new file mode 100644
index 0000000..15cb2a0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABin2DataStreamer.pas	
@@ -0,0 +1,1999 @@
+unit uDABin2DataStreamer;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+{.$DEFINE BIN2DEBUG_time}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Classes,
+  uDAInterfaces, uDADelta, uROClasses,
+  uDADataStreamer;
+
+type
+  TBIN2AdapterSignature = array[0..7] of ansichar;
+
+const
+  BIN2AdapterSignature: TBIN2AdapterSignature = 'DABIN200';
+type
+
+  TDASmallFieldInfo = record
+    Name: String;
+    Datatype: TDADataType;
+    Size: integer;
+  end;
+
+  TDADataForAppendBin2 = class(TDADataForAppend)
+  public
+    FieldsInfo: array of TDASmallFieldInfo;
+  end;
+
+  TDAElementType = (etDataset, etDelta);
+  { TElementInfo }
+  TDAElementInfo = class
+    ElementType: TDAElementType;
+    Name: string;
+    Offset: integer;
+  end;
+
+
+
+type
+  TDABin2DataStreamer = class(TDADataStreamer)
+  private
+	fInfoIntOffset: integer;
+    fHasReducedDelta: Boolean;
+    procedure ReadElementInfo;
+    procedure WriteElementInfo(ElementInfo: TDAElementInfo);
+    procedure AddElementInfo(ElementType: TDAElementType; ElementName: string; Offset: integer);
+    function GetElementInfo(ElementType: TDAElementType; const Name: string): TDAElementInfo;
+    procedure ReadAndApplySchema(const Destination: IDADataset; ApplySchema: boolean);
+    procedure WriteSchema(const Fields: TDAFieldCollection; const Params: TDAParamCollection; aFieldsIndex: array of integer); overload;
+    procedure WriteField(const AField: TDAField);
+    procedure WriteParam(const AParam: TDAParam);
+    procedure ReadParam(const AParam: TDAParam; const aParamPropertiesCount: integer);
+    procedure ReadField(const AField: TDAField; const aFieldPropertiesCount: integer);
+  protected
+    procedure InternalDoReadDataset(const Destination: IDAEditableDataset; ARecordCount: integer;  ARealFields: array of integer;AppendMode: Boolean);virtual;
+    procedure InternalDoWriteDataset(const Source: IDADataset; var k: integer; const Maxrecords: integer; ARealFields: array of integer;aDataIndex: Integer; info: array of TDASmallFieldInfo);virtual;
+    procedure InternalDoWriteDataset_NonDataset(const Source: IDADataset; var k: integer; const Maxrecords: integer; ARealFields: array of integer;aDataIndex: Integer; info: array of TDASmallFieldInfo);virtual;
+    procedure CheckSignature(aSignature: TBIN2AdapterSignature);
+    // To override
+    function DoCreateStream: TStream; override;
+    procedure DoInitialize(Mode: TDAAdapterInitialization); override;
+    procedure DoFinalize; override;
+    function DoWriteDataset(const Source: IDADataset; Options: TDAWriteOptions; MaxRows: integer; ADynFieldNames: array of string): integer; override;
+
+    function DoBeginWriteDataset( const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend; override;
+    function DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer; override;
+    function DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer; override;
+
+
+    procedure DoWriteDelta(const Source: IDADelta); override;
+    procedure DoReadDataset(const DatasetName: string; const Destination: IDADataset; ApplySchema: boolean;AppendMode: Boolean); override;
+    procedure DoReadDelta(const DeltaName: string; const Destination: IDADelta); override;
+  public
+    function HasReducedDelta: Boolean; override;
+    function GetTargetDataType: TRODataType; override;
+  published
+    property BufferSize;
+    property SendReducedDelta;
+  end;
+
+
+implementation
+{$IFNDEF MSWINDOWS}
+ {$UNDEF BIN2DEBUG_time}
+{$ENDIF}
+uses
+  SysUtils, Variants, FMTBcd, uROBinaryHelpers, DB,
+  uDAEngine, uDAClasses;
+
+type
+{$IFDEF FPC}
+  PBoolean = ^Boolean;
+{$ENDIF}
+  PUInt64 = ^UInt64;
+
+const
+  field_count = 34;
+  param_count = 11;
+  TAlignmentStrings:  array[Low(TAlignment)..High(TAlignment)] of AnsiString =
+                      ('taLeftJustify', 'taRightJustify', 'taCenter');
+  TDABlobTypeStrings: array[Low(TDABlobType)..High(TDABlobType)] of AnsiString =
+                      ('dabtUnknown', 'dabtBlob', 'dabtMemo', 'dabtOraBlob',
+                       'dabtOraClob', 'dabtGraphic', 'dabtTypedBinary', 'dabtTimestamp');
+  TDADataTypeStrings: array[Low(TDADataType)..High(TDADataType)] of AnsiString =
+                      ('datUnknown', 'datString', 'datDateTime', 'datFloat',
+                       'datCurrency', 'datAutoInc', 'datInteger', 'datLargeInt',
+                       'datBoolean', 'datMemo', 'datBlob', 'datWideString',
+                       'datWideMemo', 'datLargeAutoInc', 'datByte', 'datShortInt',
+                       'datWord', 'datSmallInt', 'datCardinal', 'datLargeUInt',
+                       'datGuid', 'datXml', 'datDecimal', 'datSingleFloat');
+  TDAParamTypeStrings:array[Low(TDAParamType)..High(TDAParamType)] of AnsiString =
+                      ('daptUnknown', 'daptInput', 'daptOutput', 'daptInputOutput',
+                       'daptResult');
+
+
+function TAlignmentStringsToTAlignment(aValue: AnsiString): TAlignment;
+begin
+  for Result := Low(TAlignment) to High(TAlignment) do
+    if TAlignmentStrings[Result] = aValue then Exit;
+  raise Exception.CreateFmt('Unknown TAlignment value: ''%s''',[aValue]);
+end;
+
+function TDABlobTypeStringsToTDABlobType(aValue: AnsiString): TDABlobType;
+begin
+  for Result := Low(TDABlobType) to High(TDABlobType) do
+    if TDABlobTypeStrings[Result] = aValue then Exit;
+  raise Exception.CreateFmt('Unknown TDABlobType value: ''%s''',[aValue]);
+end;
+
+function TDADataTypeStringsToTDADataType(aValue: AnsiString): TDADataType;
+begin
+  for Result := Low(TDADataType) to High(TDADataType) do
+    if TDADataTypeStrings[Result] = aValue then Exit;
+  raise Exception.CreateFmt('Unknown TDADataType value: ''%s''',[aValue]);
+end;
+
+function TDAParamTypeStringsToTDAParamType(aValue: AnsiString): TDAParamType;
+begin
+  for Result := Low(TDAParamType) to High(TDAParamType) do
+    if TDAParamTypeStrings[Result] = aValue then Exit;
+  raise Exception.CreateFmt('Unknown TDAParamType value: ''%s''',[aValue]);
+end;
+
+procedure SetBitMask(Buffer: PAnsiChar; const Index: Integer; const Value: boolean);
+var
+  i: byte;
+begin
+  i := Index shr 3;
+  if Value then
+    Buffer[I] := AnsiChar(ord(Buffer[I]) or (1 shl (Index and 7)))
+  else
+    Buffer[I] := AnsiChar(ord(Buffer[I]) and not (1 shl (Index and 7)))
+end;
+
+function GetBitMask(Buffer: PAnsiChar; const Index: Integer): boolean;
+begin
+  Result := (ord(Buffer[Index shr 3]) shr (Index and 7)) and 1 = 1;
+end;
+
+procedure ClearBitMask(Buffer: PAnsiChar; BitMaskSize:integer; Value: byte = 0 );
+begin
+  FillChar(Buffer^, BitMaskSize, Value);
+end;
+
+function ReadBooleanFromStream(Stream: TStream): ByteBool;
+begin
+  Stream.Read(Result, SizeOf(ByteBool));
+end;
+
+procedure WriteBooleanToStream(Stream: TStream; const Value: ByteBool);
+begin
+  Stream.Write(Value, SizeOf(ByteBool));
+end;
+
+function ReadWordBoolFromStream(Stream: TStream): WordBool;
+begin
+  Stream.Read(Result, SizeOf(WordBool));
+end;
+
+procedure WriteWordBoolToStream(Stream: TStream; const Value: WordBool);
+begin
+  Stream.Write(Value, SizeOf(WordBool));
+end;
+
+
+function ReadByteFromStream(Stream: TStream): Byte;
+begin
+  Stream.Read(Result, SizeOf(Byte));
+end;
+
+procedure WriteByteToStream(Stream: TStream; const Value: Byte);
+begin
+  Stream.Write(Value, SizeOf(Byte));
+end;
+
+function ReadShortIntFromStream(Stream: TStream): ShortInt;
+begin
+  Stream.Read(Result, SizeOf(ShortInt));
+end;
+
+procedure WriteShortIntToStream(Stream: TStream; const Value: ShortInt);
+begin
+  Stream.Write(Value, SizeOf(ShortInt));
+end;
+
+function ReadWordFromStream(Stream: TStream): Word;
+begin
+  Stream.Read(Result, SizeOf(Word));
+end;
+
+procedure WriteWordToStream(Stream: TStream; const Value: Word);
+begin
+  Stream.Write(Value, SizeOf(Word));
+end;
+
+function ReadGUIDFromStream(Stream: TStream): Ansistring;
+begin
+  SetLength(Result,38);
+  Result[1]:='{';
+  Stream.Read(Result[2], 36 {Length(GuidString)-2});
+  Result[38]:='}'
+end;
+
+procedure WriteGUIDToStream(Stream: TStream; const Value: Ansistring);
+begin
+  if Length(Value) <> 38 then
+    raise Exception.CreateFmt('Invalid GUID: %s',[Value])
+  else
+    Stream.Write(Value[2], 36 {Length(GuidString)-2});
+end;
+
+
+function ReadDecimalFromStream(Stream: TStream): TDecimal;
+begin
+  Stream.Read(Result, Sizeof(Result));
+end;
+
+function ReadBCDFromStream(Stream: TStream): TBCD;
+begin
+  Result := DecimalToBCD(ReadDecimalFromStream(Stream));
+end;
+
+procedure WriteDecimalToStream(Stream: TStream; const Value: TDecimal);
+begin
+  Stream.Write(Value, Sizeof(Value));
+end;
+
+procedure WriteBCDToStream(Stream: TStream; const Value: TBCD);
+begin
+  WriteDecimalToStream(Stream,BCDToDecimal(Value));
+end;
+
+function ReadSingleFromStream(Stream: TStream): Single;
+begin
+  Stream.Read(Result, SizeOf(Single));
+end;
+
+procedure WriteSingleToStream(Stream: TStream; const Value: Single);
+begin
+  Stream.Write(Value, SizeOf(Single));
+end;
+
+function ReadSmallIntFromStream(Stream: TStream): SmallInt;
+begin
+  Stream.Read(Result, SizeOf(SmallInt));
+end;
+
+procedure WriteSmallIntToStream(Stream: TStream; const Value: SmallInt);
+begin
+  Stream.Write(Value, SizeOf(SmallInt));
+end;
+
+function ReadCardinalFromStream(Stream: TStream): Cardinal;
+begin
+  Stream.Read(Result, SizeOf(Cardinal));
+end;
+
+procedure WriteCardinalToStream(Stream: TStream; const Value: Cardinal);
+begin
+  Stream.Write(Value, SizeOf(Cardinal));
+end;
+
+function ReadCurrencyFromStream(Stream: TStream): Currency;
+begin
+  Stream.Read(Result, SizeOf(Currency));
+end;
+
+procedure WriteCurrencyToStream(Stream: TStream; const Value: Currency);
+begin
+  Stream.Write(Value, SizeOf(Currency));
+end;
+
+function ReadDoubleFromStream(Stream: TStream): Double;
+begin
+  Stream.Read(Result, SizeOf(Double));
+end;
+
+procedure WriteDoubleToStream(Stream: TStream; const Value: Double);
+begin
+  Stream.Write(Value, SizeOf(Double));
+end;
+
+function ReadDateTimeFromStream(Stream: TStream): TDateTime;
+begin
+  Stream.Read(Result, SizeOf(TDateTime));
+end;
+
+procedure WriteDateTimeToStream(Stream: TStream; const Value: TDateTime);
+begin
+  Stream.Write(Value, SizeOf(TDateTime));
+end;
+
+
+procedure Writeint64ToStream(Stream: TStream; const Value: int64);
+begin
+  Stream.Write(Value, SizeOf(int64));
+end;
+
+function Readint64FromStream(Stream: TStream): int64;
+begin
+  Stream.Read(Result, SizeOf(int64));
+end;
+
+procedure WriteUint64ToStream(Stream: TStream; const Value: UInt64); overload;
+begin
+  Stream.Write(Value, SizeOf(Uint64));
+end;
+
+procedure WriteUint64ToStream(Stream: TStream; const Value: Variant); overload;
+var
+  i: int64;
+begin
+  i := Value;
+  WriteUint64ToStream(Stream, UInt64(i));
+end;
+
+function ReadUint64FromStream(Stream: TStream): UInt64;
+begin
+  Stream.Read(Result, SizeOf(Uint64));
+end;
+
+procedure WriteIntegerToStream(Stream: TStream; const Value: Integer);
+begin
+  Stream.Write(Value, SizeOf(integer));
+end;
+
+function ReadIntegerFromStream(Stream: TStream): Integer;
+begin
+  Stream.Read(Result, SizeOf(integer));
+end;
+
+function ReadAnsistringFromStream(Stream: TStream): AnsiString;
+var
+  Len: Cardinal;
+begin
+  Len := ReadIntegerFromStream(Stream);
+  SetLength(Result, Len div SizeOf(AnsiChar));
+  Stream.Read(Pointer(Result)^, len);
+end;
+
+procedure WriteAnsistringToStream(Stream: TStream; const AString: AnsiString);
+var
+  Len: Cardinal;
+begin
+  Len := Length(AString);
+  WriteIntegerToStream(Stream, Len);
+  Stream.Write(Pointer(AString)^, len*SizeOf(AnsiChar));
+end;
+
+function ReadVariantasUTF8stringFromStream(Stream: TStream): Variant;
+var
+  Len: Integer;
+  s: AnsiString;
+begin
+  Len := ReadIntegerFromStream(Stream);
+  if Len = -1 then begin
+    Result := Null
+  end else begin
+    SetLength(s, Len div SizeOf(AnsiChar));
+    Stream.Read(Pointer(s)^, len);
+    Result := UTF8ToString(s);
+  end;
+end;
+
+procedure WriteVariantAsUTF8stringToStream(Stream: TStream; const AValue: Variant);
+begin
+  if VarIsNull(aValue) then
+    WriteIntegerToStream(Stream, -1)
+  else
+    WriteAnsistringToStream(Stream,UTF8Encode(VarToStr(aValue)));
+end;
+
+{$IFDEF UNICODE}
+procedure WriteWidestringToStream(Stream: TStream; const AString: Unicodestring); overload;
+var
+  Len: Cardinal;
+begin
+  Len := Length(AString) * sizeOf(WideChar);
+  WriteIntegerToStream(Stream, Len);
+  Stream.Write(Pointer(AString)^, len);
+end;
+{$ENDIF}
+
+procedure WriteWidestringToStream(Stream: TStream; const AString: Widestring); overload;
+var
+  Len: Cardinal;
+begin
+  Len := Length(AString) * sizeOf(WideChar);
+  WriteIntegerToStream(Stream, Len);
+  Stream.Write(Pointer(AString)^, len);
+end;
+
+function ReadWidestringFromStream(Stream: TStream): UnicodeString;
+var
+  Len: Cardinal;
+begin
+  Len := ReadIntegerFromStream(Stream);
+  SetLength(Result, Len div sizeOf(WideChar));
+  Stream.Read(Pointer(Result)^, len);
+end;
+
+procedure BlobToStreamAsStr(Stream: TStream; Value: Variant);
+var
+  p: pointer;
+  lSize: cardinal;
+begin
+  case VarType(Value) of
+    varEmpty: WriteIntegerToStream(Stream, 0);
+    {$IFDEF UNICODE}
+    varUString: WriteWidestringToStream(Stream, VarToStr(Value));
+    {$ELSE}
+    varUString,
+    {$ENDIF}
+    varOleStr: WriteWidestringToStream(Stream, VarToWideStr(Value));
+    varString: WriteAnsistringToStream(Stream, GetVarAnsiString(Value));
+    8209: begin { 8209 is binary array }
+        lSize := VarArrayHighBound(Value, 1) - VarArrayLowBound(Value, 1) + 1;
+        p := VarArrayLock(Value);
+        try
+          WriteIntegerToStream(Stream, lSize);
+          Stream.Write(p^, lSize);
+        finally
+          VarArrayUnlock(Value);
+        end;
+      end;
+  else
+    raise Exception.CreateFmt('Invalid variant type (%d) for Blob.', [VarType(Value)]);
+  end;
+end;
+
+function WriteVariantToStream(Stream: TStream; Value: Variant; DataType: TDADataType): Boolean;
+begin
+  Result := True;
+
+  case Datatype of
+    datWideString, datWideMemo, datXml: WriteWidestringToStream(Stream, VarToWideStr(Value));
+    datString, datMemo: WriteAnsistringToStream(Stream, GetVarAnsiString(Value));
+    datDateTime: WriteDateTimeToStream(Stream, VarToDateTime(Value));
+    datFloat: WriteDoubleToStream(Stream, Value);
+    datBoolean: WriteBooleanToStream(Stream, Value = True);
+    datCurrency: WriteCurrencyToStream(Stream, Value);
+    datAutoInc, datInteger: WriteIntegerToStream(Stream, Value);
+    datLargeInt, datLargeAutoInc: Writeint64ToStream(Stream, Value);
+    datLargeUInt: WriteUint64ToStream(Stream, Value);
+    datBlob: BlobToStreamAsStr(Stream, Value);
+    datByte: WriteByteToStream(Stream, Value);
+    datShortInt: WriteShortIntToStream(Stream, Value);
+    datWord: WriteWordToStream(Stream, Value);
+    datSmallInt: WriteSmallIntToStream(Stream, Value);
+    datCardinal: WriteCardinalToStream(Stream, Value);
+    datGuid: WriteGuidToStream(Stream, GetVarAnsiString(Value));
+    datSingleFloat: WriteSingleToStream(Stream, Value);
+    datDecimal: WriteDecimalToStream(Stream, VariantToDecimal(Value));
+  else
+    Result := False;
+  end;
+end;
+
+function ReadVariantFromStream(Stream: TStream; DataType: TDADataType): Variant;
+begin
+  case Datatype of
+    datWideString, datWideMemo, datXml: Result := ReadWidestringFromStream(Stream);
+    datString, datMemo, DatBlob: Result := ReadAnsistringFromStream(Stream);
+    datDateTime: Result := ReadDateTimeFromStream(Stream);
+    datFloat: Result := ReadDoubleFromStream(Stream);
+    datCurrency: Result := ReadCurrencyFromStream(Stream);
+    datBoolean: Result := ReadBooleanFromStream(Stream);
+    datAutoInc, datInteger: Result := ReadIntegerFromStream(Stream);
+    datLargeInt, datLargeAutoInc: Result := Readint64FromStream(Stream);
+    datLargeUInt: Result := ReadUint64FromStream(Stream);
+    datByte: Result := ReadByteFromStream(Stream);
+    datShortInt: Result := ReadShortIntFromStream(Stream);
+    datWord: Result := ReadWordFromStream(Stream);
+    datSmallInt: Result := ReadSmallIntFromStream(Stream);
+    datCardinal: Result := ReadCardinalFromStream(Stream);
+    datGuid: Result := ReadGUIDFromStream(Stream);
+    datSingleFloat: Result := ReadSingleFromStream(Stream);
+    datDecimal: Result := DecimalToVariant(ReadDecimalFromStream(Stream));
+  else
+    Result := varNull;
+  end;
+end;
+
+{ TDABin2DataStreamer }
+
+procedure TDABin2DataStreamer.AddElementInfo(ElementType: TDAElementType;
+  ElementName: string; Offset: integer);
+var
+  element: TDAElementInfo;
+begin
+  element := TDAElementInfo.Create;
+  element.ElementType := ElementType;
+  element.Name := ElementName;
+  element.Offset := Offset;
+
+  if ElementType = etDataset then
+    AddingDataset(ElementName, element)
+  else
+    AddingDelta(ElementName, element);
+end;
+
+function TDABin2DataStreamer.DoCreateStream: TStream;
+begin
+  // outdated, for backward capability
+  result := nil;
+end;
+
+procedure TDABin2DataStreamer.DoFinalize;
+var
+  finalpos, i: integer;
+begin
+  if (AdapterInitialization in AdapterWriteModes) then try
+    finalpos := Data.Position;
+
+    // Element count. WIll be read by the DoInitialize method
+    WriteIntegerToStream(Data, DatasetCount + DeltaCount);
+
+    for i := 0 to (DatasetCount - 1) do
+      WriteElementInfo(TDAElementInfo(DatasetInfoObjects[i]));
+
+    for i := 0 to (DeltaCount - 1) do
+      WriteElementInfo(TDAElementInfo(DeltaInfoObjects[i]));
+
+    Data.Position := fInfoIntOffset;
+    WriteIntegerToStream(Data, finalpos);
+  except
+    beep;
+    raise;
+  end;
+end;
+
+procedure TDABin2DataStreamer.DoInitialize(Mode: TDAAdapterInitialization);
+var
+  signature: TBIN2AdapterSignature;
+  currpos, i: integer;
+begin
+  if (Mode in AdapterReadModes) then begin
+    // Checks the signature
+    Data.Read(signature, SizeOf(signature));
+    CheckSignature(signature);
+
+    fInfoIntOffset := ReadIntegerFromStream(Data);
+    currpos := Data.Position;
+    // Reads the information attached at the end of the stream
+    if (Data.Position = fInfoIntOffset) then Exit; // Nothing to read!
+    Data.Position := fInfoIntOffset;
+
+    // Number of elements
+    i := ReadIntegerFromStream(Data);
+    for i := i downto 1 do
+      ReadElementInfo;
+    // Restores its position and continues
+    Data.Position := currpos;
+  end
+  else if (Mode in AdapterWriteModes) then begin
+    // Writes the signature
+    signature := BIN2AdapterSignature;
+    Data.Write(signature, SizeOf(signature));
+
+    // This integer will contain the offset of the stream information (datasetcount, names, etc)
+    // which will be attached at the end of the stream since this is a sequential write
+    fInfoIntOffset := Data.Position;
+    WriteIntegerToStream(Data, 0);
+  end;
+end;
+
+
+procedure TDABin2DataStreamer.DoReadDataset(const DatasetName: string;
+  const Destination: IDADataset; ApplySchema: boolean;AppendMode: Boolean);
+
+var
+  elementinfo: TDAElementInfo;
+  editable: IDAEditableDataset;
+  schemaend, cnt, i, k: integer;
+  fld: TDAField;
+  schemapresent: boolean;
+  readonlyfields: array of boolean;
+  //
+  Realfldcount: integer;
+  info: array of TDASmallFieldInfo;
+  RealFields: array of integer;
+  lErrorMessage: String;
+  lErrorMesCnt: integer;
+  lFldList: TStringList;
+{$IFDEF BIN2DEBUG_time}
+  t1,t2,t3: TDateTime;
+{$ENDIF BIN2DEBUG_time}
+begin
+  if Destination.Active and ApplySchema then raise Exception.Create('Cannot apply a schema if the destination is active');
+
+  elementinfo := GetElementInfo(etDataset, DatasetName);
+  Data.Position := elementinfo.Offset;
+  lErrorMessage := '';
+  lErrorMesCnt := 0;
+
+  editable := Destination as IDAEditableDataset;
+
+  Destination.DisableControls;
+  try
+    editable.DisableEventHandlers;
+    try
+      if ApplySchema then begin
+        // Checks to see if the schema is present
+        schemapresent := ReadBooleanFromStream(Data);
+        schemaend := ReadIntegerFromStream(Data);
+
+        if schemapresent and ApplySchema then begin
+          ReadAndApplySchema(Destination, ApplySchema);
+        end
+        else if (schemaend > 0) then
+          Data.Position := schemaend;
+        Exit;
+      end
+      else begin
+        {$IFDEF BIN2DEBUG_time}
+         t1 := now;
+        {$ENDIF BIN2DEBUG_time}
+        {schemapresent :=} ReadBooleanFromStream(Data);
+        schemaend := ReadIntegerFromStream(Data);
+        if (schemaend > 0) then
+          Data.Position := schemaend;
+
+        // Reads the row count
+        cnt := ReadIntegerFromStream(Data);
+        if (cnt = -1) then Exit; // Only schema is present!
+
+        if not Destination.Active then Destination.Open;
+        with editable do try
+          // Temporarily sets all fields as writable
+          Destination.DisableConstraints;
+          Realfldcount := ReadIntegerFromStream(Data);
+          SetLength(info, Realfldcount);
+          SetLength(RealFields, Realfldcount);
+          //Data.Read(pointer(info)^, Sizeof(TDASmallFieldInfo) * Realfldcount);
+          lFldList:=TStringList.Create;
+          try
+            lFldList.Sorted:=False;
+            lFldList.Duplicates:=dupIgnore;
+            For i:= 0 to Fields.Count-1 do
+              lFldList.AddObject(Fields[i].Name,Pointer(Fields[i].Index));
+            lFldList.Sorted:=True;
+
+            for i := 0 to Realfldcount - 1 do begin
+              info[i].Name := UTF8ToString(ReadAnsistringFromStream(Data));
+              info[i].Datatype := TDADataType(ReadByteFromStream(Data));
+              info[i].Size := ReadIntegerFromStream(Data);
+              k:=lFldList.IndexOf(info[i].Name);
+              if k = -1 then begin
+                inc(lErrorMesCnt);
+                if lErrorMesCnt > 5 then begin
+                  lErrorMessage := lErrorMessage + '<skip>' + sLineBreak;
+                  break;
+                end
+                else begin
+                  lErrorMessage := lErrorMessage + Format('The %s field isn''t found.' + sLineBreak,[info[i].Name])
+                end;
+              end
+              else begin
+                RealFields[i]:= Integer(lFldList.Objects[k]);
+              end;
+            end;
+          finally
+            lFldList.Free;
+          end;
+          if (Length(lErrorMessage) > 0) then begin
+            lErrorMessage := 'Format of the data in the stream doesn''t match the destination table format.'+ #13#10 + #13#10 + lErrorMessage;
+            RaiseError(lErrorMessage);
+          end;
+
+          k := 0;
+          SetLength(readonlyfields, Fields.Count);
+          for i := 0 to (Fields.Count - 1) do begin
+            readonlyfields[i] := Fields[i].ReadOnly;
+            Fields[i].ReadOnly := FALSE;
+            if Fields[i].Calculated or Fields[i].Lookup then Continue;
+            //RealFields[k] := i;
+            if (k >= Realfldcount) then begin
+              lErrorMessage := lErrorMessage + 'Fields count mismatch' + sLineBreak
+            end
+            else begin
+              fld:=Fields[RealFields[k]];
+             // if (fld.Name <> Info[k].Name) then lErrorMessage := lErrorMessage + Format('Name mismatch: %s expected but %s found in stream.', [fld.Name, Info[k].Name])+ sLineBreak
+              if (fld.DataType <> Info[k].Datatype) then lErrorMessage := lErrorMessage + Format('Data type mismatch for column ''%s.%s'': %s expected but %s found in stream.', [DatasetName, fld.Name, TDADataTypeStrings[fld.DataType], TDADataTypeStrings[Info[k].Datatype]])  + sLineBreak
+              else if (fld.Size <> Info[k].Size) then lErrorMessage := lErrorMessage + Format('Size mismatch for column ''%s.%s'': %d expected but %d found in stream.', [DatasetName, fld.Name, fld.Size, Info[k].Size])  + sLineBreak;
+            end;
+            inc(k);
+          end;
+          {$IFDEF BIN2DEBUG_time}
+           t2 := now;
+          {$ENDIF BIN2DEBUG_time}
+          try
+            if (k <> Realfldcount) then lErrorMessage := lErrorMessage + Format('Fields count mismatch: %d expected but %d found in the stream', [k, Realfldcount]) + sLineBreak;
+            if (Length(lErrorMessage) > 0) then begin
+              lErrorMessage := 'Format of the data in the stream doesn''t match the destination table format.'+ sLineBreak + sLineBreak + lErrorMessage;
+              RaiseError(lErrorMessage);
+            end;
+            // Inserts the records
+            try
+              // if table is empty then process in standard mode
+              AppendMode := AppendMode and not (editable.EOF and editable.GetBOF);
+              InternalDoReadDataset(editable, cnt, RealFields, AppendMode);
+            except
+              raise;
+            end;
+          finally
+            // Restores the read-only property
+            for i := 0 to (Fields.Count - 1) do
+              Fields[i].ReadOnly := readonlyfields[i];
+          end;
+          {$IFDEF BIN2DEBUG_time}
+           t3 := now;
+           OutputDebugString(PAnsiChar('TDABIN2DataStreamer.DoReadDataset:'+
+              TimeToStr(t2-t1)+' | ' +FloatToStr(t2-t1)+' || '+
+              TimeToStr(t3-t2)+' | ' +FloatToStr(t3-t2)
+              ));
+          {$ENDIF BIN2DEBUG_time}
+        finally
+          Destination.EnableConstraints;
+        end;
+      end;
+    finally
+      editable.EnableEventHandlers;
+    end;
+  finally
+    Destination.EnableControls;
+  end;
+end;
+
+procedure TDABin2DataStreamer.DoReadDelta(const DeltaName: string;
+  const Destination: IDADelta);
+var
+  elementinfo: TDAElementInfo;
+  msg, str: string;
+  recid, i, cnt, x: integer;
+  change: TDADeltaChange;
+  changetype: TDAChangeType;
+  status: TDAChangeStatus;
+  BitMask: AnsiString;
+  BitMaskSize: integer;
+  lProgress: Boolean;
+begin
+  elementinfo := GetElementInfo(etDelta, DeltaName);
+  Data.Position := elementinfo.Offset;
+
+  // Number of changes
+  cnt := ReadIntegerFromStream(Data);
+
+  // Field number, names and types
+  Destination.ClearFieldNames;
+  i := ReadIntegerFromStream(Data);
+  for i := i downto 1 do begin
+    str := UTF8ToString(ReadAnsistringFromStream(Data));
+    Destination.AddFieldName(str, TDADataType(ReadByteFromStream(Data)));
+//    Destination.AddFieldName(str);
+//    Destination.LoggedFieldTypes[Destination.LoggedFieldCount - 1] := TDADataType(ReadByteFromStream(Data));
+  end;
+
+  // Key fields
+  Destination.ClearKeyFieldNames;
+  i := ReadIntegerFromStream(Data);
+  for i := i downto 1 do begin
+    str := UTF8ToString(ReadAnsistringFromStream(Data));
+    Destination.AddKeyFieldName(str);
+  end;
+
+  if (cnt = 0) then Exit;
+
+  BitMaskSize := (Destination.LoggedFieldCount + 7) div 8;
+  SetLength(BitMask, BitMaskSize);
+
+  // mode of Delta
+  fHasReducedDelta := ReadBooleanFromStream(Data);
+  lProgress := Assigned(OnReadDeltaProgress);
+  // Actual changes
+  cnt := ReadIntegerFromStream(Data);
+  for i := 1 to cnt do begin
+    changetype := TDAChangeType(ReadIntegerFromStream(Data));
+    recid := ReadIntegerFromStream(Data);
+    status := TDAChangeStatus(ReadIntegerFromStream(Data));
+    msg := UTF8ToString(ReadAnsistringFromStream(Data));
+    change := Destination.Add(recid, changetype, status, msg);
+
+    // bitmask has different value that in ReadDeataset/WriteDataset !!!
+    // 1 = field is not null
+    // 0 = field is null
+    Data.Read(pointer(BitMask)^, BitMaskSize);
+    // Old values
+    for x := 0 to (Destination.LoggedFieldCount - 1) do
+      if GetBitMask(PAnsiChar(BitMask),x) then
+        change.OldValues[x] := ReadVariantFromStream(Data, Destination.LoggedFieldTypes[x]);
+
+    Data.Read(pointer(BitMask)^, BitMaskSize);
+    // new values
+    for x := 0 to (Destination.LoggedFieldCount - 1) do
+      if GetBitMask(PAnsiChar(BitMask),x) then
+        change.NewValues[x] := ReadVariantFromStream(Data, Destination.LoggedFieldTypes[x]);
+    if lProgress then OnReadDeltaProgress(Self, Destination, i, cnt);
+  end;
+end;
+
+function TDABin2DataStreamer.DoWriteDataset(const Source: IDADataset;
+  Options: TDAWriteOptions; MaxRows: integer; ADynFieldNames: array of string): integer;
+var
+  lDataForAppend: TDADataForAppend;
+begin
+  lDataForAppend := DoBeginWriteDataset(Source, {schema}nil, Options, MaxRows, ADynFieldNames);
+  if woRows in Options then begin
+    DoWriteDatasetData(Source, lDataForAppend);
+    result := DoEndWriteDataset(lDataForAppend);
+  end
+  else begin
+    lDataForAppend.Free;
+    result := -1;
+  end;
+end;
+
+procedure TDABin2DataStreamer.DoWriteDelta(const Source: IDADelta);
+var
+  i, x: integer;
+  pk_array: array of boolean;
+  BitMask_Old,BitMask_new: AnsiString;
+  BitMaskSize: integer;
+  old_val,new_val: variant;
+  l_bitmaskflag: boolean;
+  fLocalSendReducedDelta: Boolean;
+  lProgress: Boolean;
+  lTotal: integer;
+begin
+  // This information will be used later to complete the stream (see DoInitialize)
+  AddElementInfo(etDelta, Source.LogicalName, Data.Position);
+  Source.RemoveUnchangedChanges;
+
+  // Number of changes
+  WriteIntegertoStream(Data, Source.Count);
+
+  // Numnber of fields, field names and their types
+  WriteIntegertoStream(Data, Source.LoggedFieldCount);
+  for i := 0 to (Source.LoggedFieldCount - 1) do begin
+    WriteAnsistringToStream(Data,UTF8Encode(Source.LoggedFieldNames[i]));
+    WriteByteToStream(Data, Ord(Source.LoggedFieldTypes[i]));
+  end;
+
+  // Key fields
+  WriteIntegertoStream(Data, Source.KeyFieldCount);
+  for i := 0 to (Source.KeyFieldCount - 1) do begin
+    WriteAnsistringToStream(Data, UTF8Encode(Source.KeyFieldNames[i]));
+  end;
+
+  if (Source.Count = 0) then Exit;
+
+  // mode of Delta
+  WriteBooleanToStream(Data, SendReducedDelta);
+
+  // Actual changes
+  WriteIntegertoStream(Data, Source.Count);
+
+  BitMaskSize := (Source.LoggedFieldCount + 7) div 8;
+  SetLength(BitMask_old, BitMaskSize);
+  SetLength(BitMask_new, BitMaskSize);
+  fLocalSendReducedDelta := SendReducedDelta and (Source.KeyFieldCount >0);
+  if fLocalSendReducedDelta then begin
+    SetLength(pk_array, Source.LoggedFieldCount);
+    for i := 0 to Source.LoggedFieldCount - 1 do
+      pk_array[i]:=False;
+
+    for i := 0 to Source.KeyFieldCount - 1 do begin
+      x := Source.IndexOfLoggedField(Source.KeyFieldNames[i]);
+      if x <> -1 then pk_array[x]:=True;
+    end;
+  end;
+
+  lProgress := Assigned(OnWriteDeltaProgress);
+  lTotal := Source.Count;
+  for i := 0 to (Source.Count - 1) do begin
+    // Change type, RecID, status and message
+    WriteIntegertoStream(Data, integer(Source.Changes[i].ChangeType));
+    WriteIntegertoStream(Data, Source.Changes[i].RecID);
+    WriteIntegertoStream(Data, integer(Source.Changes[i].Status));
+    WriteAnsistringToStream(Data, UTF8Encode(Source.Changes[i].Message));
+
+    // bitmask has different value that in ReadDeataset/WriteDataset !!!
+    // 1 = field is not null
+    // 0 = field is null
+    ClearBitMask(PAnsiChar(BitMask_old),BitMaskSize,0);
+    ClearBitMask(PAnsiChar(BitMask_New),BitMaskSize,0);
+    if fLocalSendReducedDelta then begin
+      for x := 0 to (Source.LoggedFieldCount - 1) do begin
+        old_val := Null; // fix for "Invalid Variant Type" exception in Win2000
+        new_val := Null; // fix for "Invalid Variant Type" exception in Win2000
+        old_val:=Source.Changes[i].OldValues[x];
+        new_val:=Source.Changes[i].NewValues[x];
+        l_bitmaskflag:=pk_array[x] or not ROVariantsEqual(old_val,new_val);
+        SetBitMask(PAnsiChar(BitMask_Old), x, l_bitmaskflag and not (VarIsNull(old_val) or (VarIsEmpty(old_val))));
+        SetBitMask(PAnsiChar(BitMask_new), x, l_bitmaskflag and not (VarIsNull(new_val) or (VarIsEmpty(new_val))));
+      end;
+    end else begin
+      for x := 0 to (Source.LoggedFieldCount - 1) do begin
+        old_val := Null; // fix for "Invalid Variant Type" exception in Win2000
+        new_val := Null; // fix for "Invalid Variant Type" exception in Win2000
+        old_val:=Source.Changes[i].OldValues[x];
+        new_val:=Source.Changes[i].NewValues[x];
+        SetBitMask(PAnsiChar(BitMask_Old), x, not (VarIsNull(old_val) or (VarIsEmpty(old_val))));
+        SetBitMask(PAnsiChar(BitMask_new), x, not (VarIsNull(new_val) or (VarIsEmpty(new_val))));
+      end;
+    end;
+
+    // old
+    Data.Write(pointer(BitMask_Old)^, BitMaskSize);
+    for x := 0 to (Source.LoggedFieldCount - 1) do
+      if GetBitMask(PAnsiChar(BitMask_Old),x) then
+        WriteVariantToStream(Data,Source.Changes[i].OldValues[x],Source.LoggedFieldTypes[x]);
+
+    // new
+    Data.Write(pointer(BitMask_new)^, BitMaskSize);
+    for x := 0 to (Source.LoggedFieldCount - 1) do
+      if GetBitMask(PAnsiChar(BitMask_new),x) then
+        WriteVariantToStream(Data,Source.Changes[i].NewValues[x],Source.LoggedFieldTypes[x]);
+    if lProgress then OnWriteDeltaProgress(Self, Source, i+1, lTotal);
+  end;
+end;
+
+function TDABin2DataStreamer.GetElementInfo(ElementType: TDAElementType;
+  const Name: string): TDAElementInfo;
+begin
+  result := nil;
+  case ElementType of
+    etDataset: result := TDAElementInfo(DatasetInfoObjects[GetDatasetIndex(Name)]);
+    etDelta: result := TDAElementInfo(DeltaInfoObjects[GetDeltaIndex(Name)]);
+  end;
+end;
+
+function TDABin2DataStreamer.HasReducedDelta: Boolean;
+begin
+  Result:= fHasReducedDelta;
+end;
+
+procedure TDABin2DataStreamer.ReadAndApplySchema(
+  const Destination: IDADataset; ApplySchema: boolean);
+var
+ lField_cnt: integer;
+ lparam_cnt: integer;
+ i: integer;
+ cnt: integer;
+begin
+  Destination.Fields.Clear;
+  cnt := ReadIntegerFromStream(Data);
+  lField_cnt:= ReadIntegerFromStream(Data);
+  for i := 0 to (cnt - 1) do
+   ReadField(Destination.Fields.Add, lField_cnt);
+
+  Destination.Params.Clear;
+  cnt := ReadIntegerFromStream(Data);
+  lparam_cnt:= ReadIntegerFromStream(Data);
+  for i := 0 to (cnt - 1) do
+   ReadParam(Destination.Params.Add, lparam_cnt);
+end;
+
+procedure TDABin2DataStreamer.ReadElementInfo;
+var
+  et: TDAElementType;
+  nme: string;
+  ofs: integer;
+begin
+  et := TDAElementType(ReadIntegerFromStream(Data));
+  nme := UTF8ToString(ReadAnsistringFromStream(Data));
+  ofs := ReadIntegerFromStream(Data);
+  AddElementInfo(et, nme, ofs);
+end;
+
+procedure TDABin2DataStreamer.WriteElementInfo(
+  ElementInfo: TDAElementInfo);
+begin
+  WriteIntegerToStream(Data, integer(ElementInfo.ElementType));
+  WriteAnsistringToStream(Data, UTF8Encode(ElementInfo.Name));
+  WriteIntegerToStream(Data, ElementInfo.Offset);
+end;
+
+procedure TDABin2DataStreamer.WriteSchema(const Fields: TDAFieldCollection; const Params: TDAParamCollection; aFieldsIndex: array of integer);
+var
+  i: integer;
+begin
+  WriteIntegerToStream(Data, Length(aFieldsIndex));
+  WriteIntegerToStream(Data, field_count);
+  for i := 0 to High(aFieldsIndex) do
+    WriteField(Fields[aFieldsIndex[i]]);
+
+  WriteIntegerToStream(Data, Params.Count);
+  WriteIntegerToStream(Data, param_count);
+  for i := 0 to Params.Count - 1 do
+    WriteParam(Params[i]);
+end;
+
+function TDABin2DataStreamer.DoBeginWriteDataset(
+                                  const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend;
+var
+  max, cntpos, currpos, k, i, Realfldcnt: integer;
+  fld: TDAField;
+  wrtschema: boolean;
+  info: array of TDASmallFieldInfo;
+  RealFields: array of integer;
+  lfields: array of integer;
+  lDataForAppend : TDADataForAppendBin2;
+  lSchemaFields: TDAFieldCollection;
+  lSchemaParams: TDAParamCollection;
+  lLogicalName: String;
+begin
+  lDataForAppend := TDADataForAppendBin2.Create();
+  result := lDataForAppend;
+
+  if Assigned(Schema) then begin
+    lDataForAppend.TableSchema := Schema;
+    if Schema is TDAUnionDataTable then begin
+      fld := Schema.FindField(def_SourceTableFieldName);
+      if not Assigned(fld) then begin
+        fld := Schema.Fields.Add();
+        fld.Name := def_SourceTableFieldName;
+        fld.DataType := datInteger;
+        fld.InPrimaryKey := true;
+        fld.ServerAutoRefresh := true;
+      end;
+    end;
+    lSchemaFields := Schema.Fields;
+    lSchemaParams := Schema.Params;
+    lLogicalName := Schema.Name;
+  end else begin
+    if Assigned(Source) then begin
+      lSchemaFields := Source.Fields;
+      lSchemaParams := Source.Params;
+      lLogicalName := Source.LogicalName;
+    end else begin
+      raise EDAException.Create('Schema or source should be assigned.');
+    end;
+  end;
+
+  if Length(ADynFieldNames) > 0 then begin
+    SetLength(lfields, Length(ADynFieldNames));
+    For i:=0 to High(ADynFieldNames) do begin
+      fld := lSchemaFields.FindField(ADynFieldNames[i]);
+      if fld <> nil then
+        lfields[i]:= fld.Index
+      else
+        lfields[i]:= -1;  // TODO: shoudln't this raise an exception "field not found", or the like?
+    end;
+  end else begin
+    SetLength(lfields, lSchemaFields.Count);
+    For i:=0 to lSchemaFields.Count-1 do
+      lfields[i]:=i;
+  end;
+
+  // This information will be used later to complete the stream (see DoInitialize)
+  AddElementInfo(etDataset, lLogicalName, Data.Position);
+
+    // Writes a boolean flag that indicates if the schema is being written
+    wrtschema := (woSchema in Options) or (Length(ADynFieldNames)>0);
+    WriteBooleanToStream(Data, wrtschema);
+    // Write the offset to jump to if the reader wants to skip the schema
+    currpos := Data.Position;
+    WriteIntegerToStream(Data, 0);
+
+    if wrtschema then begin
+      WriteSchema(lSchemaFields, lSchemaParams, lfields);
+
+      // Writes the offset of the schema's end
+      k := Data.Position;
+      Data.Position := currpos;
+      WriteIntegerToStream(Data, k);
+      Data.Position := k;
+    end;
+
+    // Writes the row count
+    if not (woRows in Options) then begin
+      WriteIntegerToStream(Data, -1);
+      Exit;
+    end
+    else begin
+      cntpos := Data.Position;
+      WriteIntegerToStream(Data, 0);
+      max := MaxRows;
+    end;
+
+    // write datatypes+offsets
+    SetLength(info, lSchemaFields.Count);
+    SetLength(RealFields, lSchemaFields.Count);
+    Realfldcnt := 0;
+    for i := 0 to High(lfields) do begin
+      if lSchemaFields[lfields[i]].Calculated or lSchemaFields[lfields[i]].Lookup then Continue;
+      RealFields[Realfldcnt] := lfields[i];
+      info[Realfldcnt].Name := lSchemaFields[lfields[i]].Name;
+      info[Realfldcnt].Datatype := lSchemaFields[lfields[i]].DataType;
+      info[Realfldcnt].Size := lSchemaFields[lfields[i]].Size;
+      inc(Realfldcnt);
+    end;
+    SetLength(info, Realfldcnt);
+    SetLength(RealFields, Realfldcnt);
+
+    WriteIntegerToStream(Data, Realfldcnt);
+    //Data.Write(pointer(info)^, Sizeof(TDASmallFieldInfo) * Realfldcnt);
+    for i := 0 to Realfldcnt - 1 do begin
+      WriteAnsistringToStream(Data, UTF8Encode(info[i].Name));
+      WriteByteToStream(Data, Byte(info[i].DataType));
+      WriteIntegerToStream(Data, info[i].Size);
+    end;
+
+
+    // prepare DataForAppend structure...
+    SetLength(lDataForAppend.RealFields, Realfldcnt);
+    SetLength(lDataForAppend.FieldsInfo, Realfldcnt);
+    for i := Low(RealFields) to High(RealFields) do begin
+      lDataForAppend.RealFields[i] := RealFields[i];
+      lDataForAppend.FieldsInfo[i].Name := info[i].Name;
+      lDataForAppend.FieldsInfo[i].Datatype := info[i].Datatype;
+      lDataForAppend.FieldsInfo[i].Size := info[i].Size;
+    end;
+
+    lDataForAppend.MaxRowCount := max;
+    lDataForAppend.CountOfRecordsPosition := cntpos;
+
+    k := 0;
+
+    lDataForAppend.EndDataPosition := Data.Position;
+    lDataForAppend.RecordCount := k;
+
+    result := lDataForAppend;
+end;
+
+
+function TDABin2DataStreamer.DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer;
+var
+  max, k, i, Realfldcnt: integer;
+  info: array of TDASmallFieldInfo;
+  RealFields: array of integer;
+  lDataForAppend: TDADataForAppendBin2;
+  lMapToFieldName: String;
+  lColumnMappings: TDAColumnMappingCollection;
+  lColumnMapping: TDAColumnMapping;
+begin
+
+  lDataForAppend := aDataForAppend as TDADataForAppendBin2;
+  Realfldcnt := Length(lDataForAppend.RealFields);
+  Data.Position := lDataForAppend.EndDataPosition;
+  SetLength(info, Realfldcnt);
+  SetLength(RealFields, Realfldcnt);
+  for i := 0 to Realfldcnt - 1 do begin
+    info[i].Name := lDataForAppend.FieldsInfo[i].Name;
+    info[i].Datatype := lDataForAppend.FieldsInfo[i].Datatype;
+    info[i].Size := lDataForAppend.FieldsInfo[i].Size;
+    // these arrays always have the same size
+    RealFields[i] := lDataForAppend.RealFields[i];
+  end;
+  max := lDataForAppend.MaxRowCount;
+  k := lDataForAppend.RecordCount;
+
+  // Mapping fields of Source table to the streamed dataset
+  if Assigned(lDataForAppend.TableSchema) and (lDataForAppend.TableSchema is TDAUnionDataTable) then begin
+    lColumnMappings := TDAUnionSourceTable(TDAUnionDataTable(lDataForAppend.TableSchema).SourceTables.ItemByName(Source.Name)).ColumnMappings;
+    for i := 0 to Realfldcnt - 1 do begin
+      if info[i].Name = def_SourceTableFieldName then begin
+        RealFields[i] := -10;
+        continue;
+      end;
+      lMapToFieldName := info[i].Name;
+      if Assigned(lColumnMappings) then begin
+        lColumnMapping := lColumnMappings.MappingByDatasetField(info[i].Name);
+        if Assigned(lColumnMapping) and (lColumnMapping.TableField <> '') then
+          lMapToFieldName := lColumnMapping.TableField;
+      end;
+      RealFields[i] := Source.FieldByName(lMapToFieldName).Index;
+    end;
+  end;
+
+  with Source do try
+    DisableControls;
+
+    if not Source.Active then Source.Open;
+    try
+      InternalDoWriteDataset_NonDataset(Source,k, max, RealFields, aDataIndex, info)
+    except
+      raise;
+    end;
+
+    lDataForAppend.EndDataPosition := Data.Position;
+    lDataForAppend.RecordCount := k;
+
+  finally
+    EnableControls;
+    result := k;
+  end;
+end;
+
+function TDABin2DataStreamer.DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer;
+begin
+  result := aDataForAppend.RecordCount;
+  Data.Position := aDataForAppend.CountOfRecordsPosition;
+  WriteIntegerToStream(Data, aDataForAppend.RecordCount);
+  Data.Position := aDataForAppend.EndDataPosition;
+  aDataForAppend.Free();
+end;
+
+function BoolToAnsiStr(B: Boolean): AnsiString;
+begin
+  if b then
+    Result:= 'True'
+  else
+    Result := 'False';
+end;
+
+
+procedure TDABin2DataStreamer.WriteField(const AField: TDAField);
+begin
+  WriteAnsistringToStream(Data, 'Alignment');
+  WriteAnsistringToStream(Data, TAlignmentStrings[AField.Alignment]);
+  WriteAnsistringToStream(Data, 'BlobType');
+  WriteAnsistringToStream(Data, TDABlobTypeStrings[AField.BlobType]);
+  WriteAnsistringToStream(Data, 'BusinessClassID');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.BusinessClassID));
+  WriteAnsistringToStream(Data, 'Calculated');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.Calculated));
+  WriteAnsistringToStream(Data, 'CustomAttributes');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.CustomAttributes.Text));
+  WriteAnsistringToStream(Data, 'DataType');
+  WriteAnsistringToStream(Data, TDADataTypeStrings[AField.DataType]);
+  WriteAnsistringToStream(Data, 'DecimalPrecision');
+  WriteAnsistringToStream(Data, UTF8Encode(IntToStr(AField.DecimalPrecision)));
+  WriteAnsistringToStream(Data, 'DecimalScale');
+  WriteAnsistringToStream(Data, UTF8Encode(IntToStr(AField.DecimalScale)));
+  WriteAnsistringToStream(Data, 'DefaultValue');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.DefaultValue));
+  WriteAnsistringToStream(Data, 'Description');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.Description));
+  WriteAnsistringToStream(Data, 'DictionaryEntry');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.DictionaryEntry));
+  WriteAnsistringToStream(Data, 'DisplayFormat');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.DisplayFormat));
+  WriteAnsistringToStream(Data, 'DisplayLabel');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.DisplayLabel));
+  WriteAnsistringToStream(Data, 'DisplayWidth');
+  WriteAnsistringToStream(Data, UTF8Encode(IntToStr(AField.DisplayWidth)));
+  WriteAnsistringToStream(Data, 'EditFormat');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.EditFormat));
+  WriteAnsistringToStream(Data, 'EditMask');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.EditMask));
+  WriteAnsistringToStream(Data, 'Expression');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.Expression));
+  WriteAnsistringToStream(Data, 'GeneratorName');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.GeneratorName));
+  WriteAnsistringToStream(Data, 'InPrimaryKey');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.InPrimaryKey));
+  WriteAnsistringToStream(Data, 'KeyFields');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.KeyFields));
+  WriteAnsistringToStream(Data, 'LogChanges');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.LogChanges));
+  WriteAnsistringToStream(Data, 'Lookup');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.Lookup));
+  WriteAnsistringToStream(Data, 'LookupCache');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.LookupCache));
+  WriteAnsistringToStream(Data, 'LookupKeyFields');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.LookupKeyFields));
+  WriteAnsistringToStream(Data, 'LookupResultField');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.LookupResultField));
+  WriteAnsistringToStream(Data, 'LookupSource');
+  WriteAnsistringToStream(Data, '');
+  WriteAnsistringToStream(Data, 'Name');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.Name));
+  WriteAnsistringToStream(Data, 'ReadOnly');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.ReadOnly));
+  WriteAnsistringToStream(Data, 'RegExpression');
+  WriteAnsistringToStream(Data, UTF8Encode(AField.RegExpression));
+  WriteAnsistringToStream(Data, 'Required');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.Required));
+  WriteAnsistringToStream(Data, 'ServerAutoRefresh');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.ServerAutoRefresh));
+  WriteAnsistringToStream(Data, 'ServerCalculated');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.ServerCalculated));
+  WriteAnsistringToStream(Data, 'Size');
+  WriteAnsistringToStream(Data, UTF8Encode(IntToStr(AField.Size)));
+  WriteAnsistringToStream(Data, 'Visible');
+  WriteAnsistringToStream(Data, BoolToAnsiStr(AField.Visible));
+end;
+
+procedure TDABin2DataStreamer.WriteParam(const AParam: TDAParam);
+begin
+  WriteAnsistringToStream(Data, 'AsString');
+  WriteAnsistringToStream(Data, UTF8Encode(AParam.AsString));
+  WriteAnsistringToStream(Data, 'BlobType');
+  WriteAnsistringToStream(Data, TDABlobTypeStrings[AParam.BlobType]);
+  WriteAnsistringToStream(Data, 'DataType');
+  WriteAnsistringToStream(Data, TDADataTypeStrings[AParam.DataType]);
+  WriteAnsistringToStream(Data, 'DecimalPrecision');
+  WriteAnsistringToStream(Data, UTF8Encode(IntToStr(AParam.DecimalPrecision)));
+  WriteAnsistringToStream(Data, 'DecimalScale');
+  WriteAnsistringToStream(Data, UTF8Encode(IntToStr(AParam.DecimalScale)));
+  WriteAnsistringToStream(Data, 'Description');
+  WriteAnsistringToStream(Data, UTF8Encode(AParam.Description));
+  WriteAnsistringToStream(Data, 'GeneratorName');
+  WriteAnsistringToStream(Data, UTF8Encode(AParam.GeneratorName));
+  WriteAnsistringToStream(Data, 'Name');
+  WriteAnsistringToStream(Data, UTF8Encode(AParam.Name));
+  WriteAnsistringToStream(Data, 'ParamType');
+  WriteAnsistringToStream(Data, TDAParamTypeStrings[AParam.ParamType]);
+  WriteAnsistringToStream(Data, 'Size');
+  WriteAnsistringToStream(Data, UTF8Encode(IntToStr(AParam.Size)));
+  WriteAnsistringToStream(Data, 'Value');
+  WriteVariantAsUTF8stringToStream(Data, AParam.Value);
+end;
+
+procedure TDABin2DataStreamer.ReadParam(const AParam: TDAParam; const aParamPropertiesCount: integer);
+var
+  i: integer;
+  sName: AnsiString;
+  sAnsiValue: AnsiString;
+  sValue: String;
+begin
+  For i := 0 to aParamPropertiesCount-1 do begin
+    sName := ReadAnsistringFromStream(Data);
+    if sName <> 'Value' then begin
+      sAnsiValue :=ReadAnsistringFromStream(Data);
+      sValue :=UTF8ToString(sAnsiValue);
+    end;
+    if sName = 'AsString' then
+    else if sName = 'BlobType' then  AParam.BlobType := TDABlobTypeStringsToTDABlobType(sAnsiValue)
+    else if sName = 'DataType' then AParam.DataType := TDADataTypeStringsToTDADataType(sAnsiValue)
+    else if sName = 'DecimalPrecision' then AParam.DecimalPrecision := StrToInt(sValue)
+    else if sName = 'DecimalScale' then AParam.DecimalScale := StrToInt(sValue)
+    else if sName = 'Description' then AParam.Description := sValue
+    else if sName = 'GeneratorName' then AParam.GeneratorName := sValue
+    else if sName = 'Name' then AParam.Name := sValue
+    else if sName = 'ParamType' then AParam.ParamType := TDAParamTypeStringsToTDAParamType(sAnsiValue)
+    else if sName = 'Size' then AParam.Size := StrToInt(sValue)
+    else if sName = 'Value' then AParam.Value := ReadVariantasUTF8stringFromStream(Data)
+    else ;
+  end;
+end;
+
+procedure TDABin2DataStreamer.ReadField(const AField: TDAField;
+  const aFieldPropertiesCount: integer);
+var
+  i: integer;
+  sName, sAnsiValue: AnsiString;
+  sValue: string;
+begin
+  For i := 0 to aFieldPropertiesCount-1 do begin
+    sName := ReadAnsistringFromStream(Data);
+    sAnsiValue :=ReadAnsistringFromStream(Data);
+    sValue :=UTF8ToString(sAnsiValue);
+    if sName = 'Alignment' then AField.Alignment := TAlignmentStringsToTAlignment(sAnsiValue)
+    else if sName = 'BlobType' then AField.BlobType := TDABlobTypeStringsToTDABlobType(sAnsiValue)
+    else if sName = 'BusinessClassID' then AField.BusinessClassID := sValue
+    else if sName = 'Calculated' then AField.Calculated := StrToBool(sValue)
+    else if sName = 'CustomAttributes' then AField.CustomAttributes.Text := sValue
+    else if sName = 'DataType' then AField.DataType := TDADataTypeStringsToTDADataType(sAnsiValue)
+    else if sName = 'DecimalPrecision' then AField.DecimalPrecision := StrToInt(sValue)
+    else if sName = 'DecimalScale' then AField.DecimalScale := StrToInt(sValue)
+    else if sName = 'DefaultValue' then AField.DefaultValue := sValue
+    else if sName = 'Description' then AField.Description := sValue
+    else if sName = 'DictionaryEntry' then AField.DictionaryEntry := sValue
+    else if sName = 'DisplayFormat' then AField.DisplayFormat := sValue
+    else if sName = 'DisplayLabel' then AField.DisplayLabel := sValue
+    else if sName = 'DisplayWidth' then AField.DisplayWidth := StrToInt(sValue)
+    else if sName = 'EditFormat' then AField.EditFormat := sValue
+    else if sName = 'EditMask' then AField.EditMask := sValue
+    else if sName = 'Expression' then AField.Expression := sValue
+    else if sName = 'GeneratorName' then AField.GeneratorName := sValue
+    else if sName = 'InPrimaryKey' then AField.InPrimaryKey := StrToBool(sValue)
+    else if sName = 'KeyFields' then AField.KeyFields := sValue
+    else if sName = 'LogChanges' then AField.LogChanges := StrToBool(sValue)
+    else if sName = 'Lookup' then AField.Lookup := StrToBool(sValue)
+    else if sName = 'LookupCache' then AField.LookupCache := StrToBool(sValue)
+    else if sName = 'LookupKeyFields' then AField.LookupKeyFields := sValue
+    else if sName = 'LookupResultField' then AField.LookupResultField := sValue
+    else if sName = 'LookupSource' then // AField.LookupSource:=nil;
+    else if sName = 'Name' then AField.Name := sValue
+    else if sName = 'ReadOnly' then AField.ReadOnly := StrToBool(sValue)
+    else if sName = 'RegExpression' then AField.RegExpression := sValue
+    else if sName = 'Required' then AField.Required := StrToBool(sValue)
+    else if sName = 'ServerAutoRefresh' then AField.ServerAutoRefresh := StrToBool(sValue)
+    else if sName = 'ServerCalculated' then AField.ServerCalculated := StrToBool(sValue)
+    else if sName = 'Size' then AField.Size := StrToInt(sValue)
+    else if sName = 'Visible' then AField.Visible := StrToBool(sValue)
+    else ;
+  end;
+end;
+
+procedure TDABin2DataStreamer.InternalDoReadDataset(const Destination: IDAEditableDataset; ARecordCount: integer;ARealFields: array of integer;AppendMode: Boolean);
+var
+  memdataset: IDAMemDatasetBatchAdding;
+type
+  PMemDatasetrecord_Native = ^TMemDatasetrecord_Native;
+  TMemDatasetrecord_Native = packed record
+    Ident: byte;
+    Data: PAnsichar;
+  end;
+
+  procedure BitmaskToNativeBuf(Bitmask, buf: PAnsiChar; aFields: array of integer);
+  var
+    i: integer;
+  begin
+    for i:=Low(aFields) to High(aFields) do
+      SetBitMask(buf, aFields[i], GetBitMask(Bitmask,i));
+  end;
+
+var
+  lPK: string;                     //for append mode
+  lPKValues: array of variant;     //for append mode
+  lOnePK:Boolean;                  //for append mode
+
+  function Dataset_Locate(): boolean;
+  begin
+    if lOnePK then
+      Result:= Destination.Locate(lPK,lPKValues[0],[])
+    else
+      Result:= Destination.Locate(lPK,lPKValues,[]);
+  end;
+
+var
+  FRecordsList: TList;
+  buf1: pointer;
+  s: Ansistring;
+  Buf: PAnsiChar;
+  val: Variant;
+  memdataset_BitMaskSize: integer;
+  BindedFields: array of integer;
+  flds: TDAFieldArray;           // flds in stream
+  BitMask: Ansistring;
+  streamer_BitMaskSize: integer;
+  i: integer;
+  Realfldcount: integer;
+{$IFDEF BIN2DEBUG_time}
+  t1,t2,t3: TDateTime;
+{$ENDIF BIN2DEBUG_time}
+  lProgress: Boolean;
+  lTotal: integer;
+  lCurrent: integer;
+  lFldValues: array of Variant;  // flds values for append mode
+  lPKFlds: TDAFieldArray;        // PK flds (Append mode)
+begin
+  if Destination.QueryInterface(IDAMemDatasetBatchAdding, memdataset) <> s_ok then memdataset := nil;
+  Realfldcount := Length(ARealFields);
+  setLength(flds, Realfldcount);
+  For i:= 0 to Realfldcount-1 do
+    flds[i] := Destination.Fields[ARealFields[i]];
+
+  streamer_BitMaskSize := (Realfldcount + 7) div 8;
+  SetLength(BitMask, streamer_BitMaskSize);
+  // bitmask has different value that in ReadDelta/WriteDelta !!!
+  // 0 = field is not null
+  // 1 = field is null
+
+  lProgress := Assigned(OnReadDatasetProgress);
+  lTotal := ARecordCount;
+  lCurrent := 0;
+
+  if (memdataset = nil) or Assigned(OnReadFieldValue) then begin
+    // standard mode
+    lPK := Dataset_GetPK(flds, lPKFlds);
+    lOnePK := Length(lPKFlds) = 1;
+    AppendMode := AppendMode and (Length(lPKFlds)>0);
+    if AppendMode then begin
+      SetLength(lFldValues, Length(flds));
+      SetLength(lPKValues, Length(lPKFlds));
+    end;
+    while (ARecordCount > 0) do try
+      // read bitmask
+      Data.Read(pointer(BitMask)^, streamer_BitMaskSize);
+      Destination.Append;
+
+      // initial filing dataset
+      for i := 0 to Realfldcount - 1 do begin
+        if GetBitMask(PAnsiChar(BitMask), i) then
+          //
+        else begin
+          case flds[i].Datatype of
+            datWideString, datWideMemo, datXml: flds[i].AsWideString := ReadWidestringFromStream(Data);
+            datString, datMemo, DatBlob: flds[i].AsAnsiString := ReadAnsistringFromStream(Data);
+            datDateTime: flds[i].AsDateTime := ReadDateTimeFromStream(Data);
+            datFloat: flds[i].AsFloat := ReadDoubleFromStream(Data);
+            datCurrency: flds[i].AsCurrency := ReadCurrencyFromStream(Data);
+            datBoolean: flds[i].AsBoolean := ReadBooleanFromStream(Data);
+            datAutoInc, datInteger: flds[i].AsInteger := ReadIntegerFromStream(Data);
+            datLargeInt, datLargeAutoInc: flds[i].AsLargeInt := Readint64FromStream(Data);
+            datLargeUInt: flds[i].AsLargeUInt := ReadUint64FromStream(Data);
+            datByte: flds[i].AsByte := ReadByteFromStream(Data);
+            datShortInt: flds[i].AsShortInt := ReadShortIntFromStream(Data);
+            datWord: flds[i].AsWord := ReadWordFromStream(Data);
+            datSmallInt: flds[i].AsSmallInt := ReadSmallIntFromStream(Data);
+            datCardinal: flds[i].AsCardinal := ReadCardinalFromStream(Data);
+            datGuid: flds[i].AsAnsiString := ReadGuidFromStream(Data);
+            datSingleFloat: flds[i].AsSingle := ReadSingleFromStream(Data);
+            datDecimal: flds[i].AsDecimal := ReadBCDFromStream(Data);
+          end;
+        end;
+        if Assigned(OnReadFieldValue) then begin
+          val := flds[i].Value;
+          OnReadFieldValue(flds[i], val);
+          flds[i].Value := val;
+        end;
+      end;
+
+      if AppendMode  then begin
+        // store values and avoid firing OnReadFieldValue event
+        for I := 0 to Length(Flds) - 1 do
+          lFldValues[i]:= Flds[i].Value;
+        // store PK values for locate
+        for I := 0 to Length(lPKFlds) - 1 do
+          lPKValues[i]:= lPKFlds[i].Value;
+
+        Destination.Cancel;
+        if Dataset_Locate then
+          Destination.Edit
+        else
+          Destination.Append;
+        // assign new values
+        for I := 0 to Length(Flds) - 1 do
+          Flds[i].Value := lFldValues[i];
+      end;
+      try
+        Destination.Post;
+      except
+        // Introduced to restore the dsBrowse state of the datatable
+        // in case of errors
+        Destination.Cancel;
+        raise;
+      end;
+      if lProgress then begin
+        inc(lCurrent);
+        OnReadDatasetProgress(Self, Destination, lCurrent, lTotal);
+      end;
+    finally
+      Dec(ARecordCount);
+    end;
+  end
+  else begin
+    // superfast mode
+    {$IFDEF BIN2DEBUG_time}
+    t1:=now;
+    {$ENDIF BIN2DEBUG_time}
+    SetLength(BindedFields, Realfldcount);
+    For i:= 0 to Realfldcount - 1 do
+      BindedFields[i]:= memdataset.GetFieldNo(Destination.Fields[ARealFields[i]].BindedField);
+
+    FRecordsList := TList.Create;
+    try
+      memdataset_BitMaskSize := (Realfldcount + 1 {RECID} + 7) div 8;
+      SetLength(BitMask, memdataset_BitMaskSize);
+
+      while (ARecordCount > 0) do try
+        Buf := memdataset.AllocRecordBuffer;
+        try
+          Data.Read(pointer(BitMask)^, streamer_BitMaskSize);
+          BitmaskToNativeBuf(pointer(BitMask), Pointer(PMemDatasetrecord_Native(buf)^.Data), BindedFields);
+          //Data.Read(buf^, BitMaskSize);
+          for i := 0 to Realfldcount - 1 do begin
+            if GetBitMask(PAnsiChar(BitMask), i) then
+              //
+            else begin
+              buf1 := memdataset.GetFieldNativeBuffer(Buf, flds[i].BindedField);
+              case flds[i].DataType of
+                datWideString: memdataset.SetWideString(buf1,flds[i].BindedField,ReadWidestringFromStream(Data));//PWideString(buf1)^ := ReadWidestringFromStream(Data);
+                datString: memdataset.SetAnsiString(buf1,flds[i].BindedField,ReadAnsistringFromStream(Data));//PAnsiString(buf1)^ := ReadAnsistringFromStream(Data);
+                datDateTime: PDateTime(buf1)^ := TimeStampToMSecs(DateTimeToTimeStamp(ReadDateTimeFromStream(Data)));
+                datFloat: PDouble(buf1)^ := ReadDoubleFromStream(Data);
+                datCurrency: PCurrency(buf1)^ := ReadCurrencyFromStream(Data);
+                datBoolean: PBoolean(buf1)^ := ReadBooleanFromStream(Data);
+                datLargeInt, datLargeAutoInc: PInt64(buf1)^ := Readint64FromStream(Data);
+                datLargeUInt: PUInt64(buf1)^ := ReadUint64FromStream(Data);
+                datAutoInc, datInteger: PInteger(buf1)^ := ReadIntegerFromStream(Data);
+                datCardinal: PCardinal(buf1)^ := ReadCardinalFromStream(Data);
+                datWord: PWord(buf1)^ := ReadWordFromStream(Data);
+                datShortInt: PSmallInt(buf1)^ := ReadShortIntFromStream(Data);
+                datSmallInt: PSmallInt(buf1)^ := ReadSmallIntFromStream(Data);
+                datByte: PSmallInt(buf1)^ := ReadByteFromStream(Data);
+                datSingleFloat: PDouble(buf1)^ := ReadSingleFromStream(Data);
+                datDecimal: PBCD(buf1)^ := ReadBCDFromStream(Data);
+                datGuid: begin
+                    s := ReadGUIDFromStream(Data);
+                    Move(pointer(s)^, pointer(buf1)^, 38 {Length(GuidString)});
+                  end;
+                datWideMemo, datMemo, DatBlob, datXml: begin
+                    s := ReadAnsistringFromStream(Data);
+                    PPointer(buf1)^ := memdataset.MakeBlobFromString(s);
+                  end;
+              end;
+            end;
+          end;
+          FRecordsList.Add(Buf);
+        except
+          memdataset.FreeRecordBuffer(buf);
+          For i:=0 to FRecordsList.Count-1 do begin
+            buf:=FRecordsList[i];
+            memdataset.FreeRecordBuffer(Buf);
+          end;
+          raise;
+        end;
+        if lProgress then begin
+          inc(lCurrent);
+          OnReadDatasetProgress(Self, Destination, lCurrent, lTotal);
+        end;
+      finally
+        Dec(ARecordCount);
+      end;
+      {$IFDEF BIN2DEBUG_time}
+      t2:=now;
+      {$ENDIF BIN2DEBUG_time}
+      memdataset.AddRecordsfromList(FRecordsList,AppendMode);
+      {$IFDEF BIN2DEBUG_time}
+      t3:=now;
+      OutputDebugString(PAnsiChar('TDABIN2DataStreamer.InternalDoReadDataset: SF Mode '+TimeToStr(t2-t1)+' | ' +FloatToStr(t2-t1) + ' ||| Adding  '+TimeToStr(t3-t2)+' | ' +FloatToStr(t3-t2)));
+      {$ENDIF BIN2DEBUG_time}
+    finally
+      FRecordsList.Free;
+    end;
+  end;
+end;
+
+procedure TDABin2DataStreamer.InternalDoWriteDataset(
+  const Source: IDADataset; var k: integer;const Maxrecords: integer;
+  ARealFields: array of integer;aDataIndex: Integer;info: array of TDASmallFieldInfo);
+var
+  currpos: integer;
+  ev1, ev2,ev3: boolean;
+  BitMask: Ansistring;
+  BitMaskSize: integer;
+  bitmaskpos : integer;
+  NeedWriteBitMask: Boolean;
+  i : integer;
+  Realfldcnt: integer;
+  flds: array of TDAField;
+  val: Variant;
+{$IFDEF BIN2DEBUG_time}
+  t1,t2: TDateTime;
+{$ENDIF BIN2DEBUG_time}
+  lProgress: Boolean;
+begin
+  Realfldcnt:= Length(ARealFields);
+  BitMaskSize := (Realfldcnt + 7) div 8;
+  SetLength(BitMask, BitMaskSize);
+  SetLength(flds,Realfldcnt);
+  for i := 0 to Realfldcnt-1 do begin
+    if ARealFields[i] = -10 then
+      flds[i]:=nil
+    else
+      flds[i]:=Source.Fields[ARealFields[i]];
+  end;
+
+
+  lProgress := Assigned(onWriteDatasetProgress);
+
+  // bitmask has different value that in ReadDelta/WriteDelta !!!
+  // 0 = field is not null
+  // 1 = field is null
+  ev1 := Assigned(OnBeforeFieldValueSerialization);
+  ev2 := Assigned(OnWriteFieldValue);
+  ev3 := Assigned(OnWriteFieldValueEx);
+  if ev1 or ev2 or ev3 then begin
+    // with events
+    while (k <> Maxrecords) and not Source.EOF do begin
+      ClearBitMask(PAnsiChar(BitMask),BitMaskSize); // all is not Null
+      bitmaskpos := Data.Position;
+      Data.Write(pointer(BitMask)^, BitMaskSize);
+      NeedWriteBitMask := False;
+      for i := 0 to (Realfldcnt - 1) do begin
+        //ARealFields[i] = -10 then this is @SourceTable field
+        if ARealFields[i] = -10 then begin
+          //We shouldn't fire events since this is special internal field
+          val := aDataIndex;
+        end else begin
+          val := Source.FieldValues[ARealFields[i]];
+          if ev1 then OnBeforeFieldValueSerialization(flds[i], val);
+          if ev2 then OnWriteFieldValue(flds[i], val);
+          if ev3 then OnWriteFieldValueEx(Source, flds[i], val);
+        end;
+
+        if VarIsNull(Val) or VarIsEmpty(Val) then begin
+          NeedWriteBitMask := True;
+          SetBitMask(PAnsiChar(BitMask), i, True);
+        end else begin
+          if not WriteVariantToStream(Data, val, Info[i].Datatype) then begin
+            NeedWriteBitMask := True;
+            SetBitMask(PAnsiChar(BitMask), i, True);
+          end;
+        end;
+        if NeedWriteBitMask then begin
+          currpos := Data.Position;
+          Data.Position := bitmaskpos;
+          Data.Write(pointer(BitMask)^, BitMaskSize);
+          Data.Position := currpos;
+        end;
+      end;
+      //    Inc(result);
+      Inc(k);
+      if lProgress then OnWriteDatasetProgress(Self, Source, k, Maxrecords);
+      Source.Next;
+      if Source.EOF then Break;
+    end;
+  end
+  else begin
+    // Writes the actual records
+    // without events
+    {$IFDEF BIN2DEBUG_time}
+    t1:=now;
+    {$ENDIF BIN2DEBUG_time}
+    while (k <> Maxrecords) and not Source.EOF do begin
+      ClearBitMask(PAnsiChar(BitMask),BitMaskSize); // all is not Null
+
+      for i := 0 to (Realfldcnt - 1) do
+        //ARealFields[i] = -10 then this is @SourceTable field
+        if ((ARealFields[i] <> -10) and (flds[i].IsNull)) then
+          SetBitMask(PAnsiChar(BitMask), i, True);
+      Data.Write(pointer(BitMask)^, BitMaskSize);
+
+      for i := 0 to (Realfldcnt - 1) do begin
+
+        //ARealFields[i] = -10 then this is @SourceTable field
+        if ARealFields[i] = -10 then begin
+          WriteIntegerToStream(Data, aDataIndex);
+        end else begin
+          if GetBitMask(PAnsiChar(BitMask), i) then begin
+          end else begin
+            case Info[i].Datatype of
+              datWideString, datWideMemo, datXml: WriteWidestringToStream(Data, flds[i].AsWideString);
+              datString, datMemo, datBlob: WriteAnsistringToStream(Data, flds[i].AsAnsiString);
+              datDateTime: WriteDateTimeToStream(Data, flds[i].AsDateTime);
+              datFloat: WriteDoubleToStream(Data, flds[i].AsFloat);
+              datBoolean: WriteBooleanToStream(Data, flds[i].AsBoolean);
+              datCurrency: WriteCurrencyToStream(Data, flds[i].AsCurrency);
+              datAutoInc, datInteger: WriteIntegerToStream(Data, flds[i].AsInteger);
+              datLargeInt, datLargeAutoInc: Writeint64ToStream(Data, flds[i].AsLargeInt);
+              datLargeUInt: WriteUint64ToStream(Data, flds[i].AsLargeUInt);
+              datByte: WriteByteToStream(Data, flds[i].AsByte);
+              datShortInt: WriteShortIntToStream(Data, flds[i].AsShortInt);
+              datWord: WriteWordToStream(Data, flds[i].AsWord);
+              datSmallInt: WriteSmallIntToStream(Data, flds[i].AsSmallInt);
+              datCardinal: WriteCardinalToStream(Data, flds[i].AsCardinal);
+              datGuid: WriteGUIDToStream(Data, flds[i].AsAnsiString);
+              datSingleFloat: WriteSingleToStream(Data, flds[i].AsSingle);
+              datDecimal: WriteBCDToStream(Data, flds[i].AsDecimal);
+            end;
+          end;
+        end;
+      end;
+
+      //  Inc(result);
+      Inc(k);
+      if lProgress then OnWriteDatasetProgress(Self, Source, k, Maxrecords);
+      Source.Next;
+      if Source.EOF then Break;
+    end;
+    {$IFDEF BIN2DEBUG_time}
+    t2:=now;
+    OutputDebugString(PAnsiChar('TDABIN2DataStreamer.InternalDoWriteDataset:'+TimeToStr(t2-t1)+' | ' +FloatToStr(t2-t1)));
+    {$ENDIF BIN2DEBUG_time}
+  end;
+end;
+
+function TDABin2DataStreamer.GetTargetDataType: TRODataType;
+begin
+  Result := rtBinary;
+end;
+
+procedure TDABin2DataStreamer.CheckSignature(aSignature: TBIN2AdapterSignature);
+begin
+  if (asignature <> BIN2AdapterSignature) then raise Exception.Create('Incompatible binary2 adapter stream');
+end;
+
+procedure TDABin2DataStreamer.InternalDoWriteDataset_NonDataset(
+  const Source: IDADataset; var k: integer; const Maxrecords: integer;
+  ARealFields: array of integer; aDataIndex: Integer;
+  info: array of TDASmallFieldInfo);
+  
+type
+  TfldInfo = packed record
+    isNull: Boolean;
+    Data: pointer;
+    DataSize: Cardinal;
+    DataType: TFieldType;
+  end;
+
+var
+  currpos: integer;
+  ev1, ev2, ev3: boolean;
+  BitMask: Ansistring;
+  BitMaskSize: integer;
+  bitmaskpos : integer;
+  NeedWriteBitMask: Boolean;
+  i : integer;
+  Realfldcnt: integer;
+  flds: array of TDAField;
+  val: Variant;
+{$IFDEF BIN2DEBUG_time}
+  t1,t2: TDateTime;
+{$ENDIF BIN2DEBUG_time}
+  NativeDataset: IDASQLCommandNativeObject;
+  fldInfo: array of TfldInfo;
+  s: Ansistring;
+  lbcd: TBCD;
+  lCanFreeNativeData: Boolean;
+  lProgress: boolean;
+begin
+  if (Source.QueryInterface(IDASQLCommandNativeObject, NativeDataset) <> 0)
+    {$IFDEF Drivers_CompatibilityMode}or NativeDataset.IsTDatasetCompatible{$ENDIF} then begin
+    // dataset-compatible mode
+    InternalDoWriteDataset(Source, k, Maxrecords, ARealFields, aDataIndex, info);
+    exit;
+  end;
+  Realfldcnt:= Length(ARealFields);
+  BitMaskSize := (Realfldcnt + 7) div 8;
+  SetLength(BitMask, BitMaskSize);
+
+  lProgress := Assigned(onWriteDatasetProgress);
+  // bitmask has different value that in ReadDelta/WriteDelta !!!
+  // 0 = field is not null
+  // 1 = field is null
+  ev1 := Assigned(OnBeforeFieldValueSerialization);
+  ev2 := Assigned(OnWriteFieldValue);
+  ev3 := Assigned(OnWriteFieldValueEx);
+  if ev1 or ev2 or ev3 then begin
+    // with events
+    SetLength(flds,Realfldcnt);
+    for i := 0 to Realfldcnt-1 do begin
+      if ARealFields[i] = -10 then
+        flds[i]:=nil
+      else
+        flds[i]:=Source.Fields[ARealFields[i]];
+    end;
+    while (k <> Maxrecords) and not Source.EOF do begin
+      ClearBitMask(PAnsiChar(BitMask),BitMaskSize); // all is not Null
+      bitmaskpos := Data.Position;
+      Data.Write(pointer(BitMask)^, BitMaskSize);
+      NeedWriteBitMask := False;
+      for i := 0 to (Realfldcnt - 1) do begin
+        //ARealFields[i] = -10 then this is @SourceTable field
+        if ARealFields[i] = -10 then begin
+          //We shouldn't fire events since this is special internal field
+          val := aDataIndex;
+        end else begin
+          val := Source.FieldValues[ARealFields[i]];
+          if ev1 then OnBeforeFieldValueSerialization(flds[i], val);
+          if ev2 then OnWriteFieldValue(flds[i], val);
+          if ev3 then OnWriteFieldValueEx(Source,flds[i], val);
+        end;
+
+        if VarIsNull(Val) or VarIsEmpty(Val) then begin
+          NeedWriteBitMask := True;
+          SetBitMask(PAnsiChar(BitMask), i, True);
+        end else begin
+          if not WriteVariantToStream(Data, val, Info[i].Datatype) then begin
+            NeedWriteBitMask := True;
+            SetBitMask(PAnsiChar(BitMask), i, True);
+          end;
+        end;
+        if NeedWriteBitMask then begin
+          currpos := Data.Position;
+          Data.Position := bitmaskpos;
+          Data.Write(pointer(BitMask)^, BitMaskSize);
+          Data.Position := currpos;
+        end;
+      end;
+      //    Inc(result);
+      Inc(k);
+      if lProgress then OnWriteDatasetProgress(Self, Source, k, Maxrecords);
+      Source.Next;
+      if Source.EOF then Break;
+    end;
+  end
+  else begin
+    // Writes the actual records
+    // without events
+     SetLength(fldInfo,Realfldcnt);
+     for i := 0 to (Realfldcnt - 1) do begin
+       if (ARealFields[i] = -10) then
+         fldInfo[i].DataType:= ftInteger
+       else
+         fldInfo[i].DataType:= NativeDataset.NativeFields[i].DataType;
+     end;
+    lCanFreeNativeData := NativeDataset.CanFreeNativeFieldData;
+    {$IFDEF BIN2DEBUG_time}
+    t1:=now;
+    {$ENDIF BIN2DEBUG_time}
+    while (k <> Maxrecords) and not Source.EOF do begin
+      ClearBitMask(PAnsiChar(BitMask),BitMaskSize); // all is not Null
+
+
+      for i := 0 to (Realfldcnt - 1) do begin
+        if (ARealFields[i] = -10) then begin
+          //ARealFields[i] = -10 then this is @SourceTable field
+          fldInfo[i].isNull := False;
+          GetMem(fldInfo[i].Data, SizeOf(Integer));
+          PInteger(fldInfo[i].Data)^ := aDataIndex;
+          fldInfo[i].DataSize:=4;
+        end
+        else begin
+          fldInfo[i].isNull:= not NativeDataset.GetNativeFieldData(ARealFields[i],fldInfo[i].Data, fldInfo[i].DataSize);
+        end;
+        if fldInfo[i].isNull then
+          SetBitMask(PAnsiChar(BitMask), i, True);
+      end;
+      Data.Write(pointer(BitMask)^, BitMaskSize);
+      for i := 0 to (Realfldcnt - 1) do begin
+        if not fldInfo[i].isNull then begin
+          try
+            case Info[i].Datatype of
+              datWideString, datWideMemo, datXml: begin
+                WriteIntegerToStream(Data, fldInfo[i].DataSize);
+                Data.Write(fldInfo[i].Data^, fldInfo[i].DataSize);
+              end;
+              datString, datMemo, datBlob: begin
+                if fldInfo[i].DataType in [
+                  {$IFDEF DA_WideMemoSupport}ftWideMemo,{$ENDIF}
+                  {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF}
+                  ftWideString] then begin
+                  s:= WideStringToAnsiString(PWideChar(fldInfo[i].Data));
+                  WriteIntegerToStream(Data, Length(s));
+                  Data.Write(Pointer(s)^, Length(s));
+                end
+                else begin
+                  WriteIntegerToStream(Data, fldInfo[i].DataSize);
+                  Data.Write(fldInfo[i].Data^, fldInfo[i].DataSize);
+                end;
+              end;
+              datDecimal: begin
+                case fldInfo[i].DataType of
+                  ftFMTBCD: WriteBCDToStream(Data, PBCD(fldinfo[i].Data)^);
+                  ftBCD: begin
+                    CurrToBcd(PCurrency(fldinfo[i].Data)^, lbcd);
+                    WriteBCDToStream(Data, lbcd);
+                  end;
+                end;
+              end;
+              datGuid: begin
+                if fldinfo[i].DataSize <> 39 then begin
+                  SetString(s, PAnsiChar(fldinfo[i].Data),38);
+                  raise Exception.CreateFmt('Invalid GUID: %s',[s])
+                end
+                else
+                Data.Write((PAnsiChar(fldinfo[i].Data)+1)^,36);
+              end;
+              datBoolean: WriteBooleanToStream(Data, PWordBool(fldinfo[i].Data)^);
+            else
+              Data.Write((fldinfo[i].Data)^, fldinfo[i].DataSize);
+            end;
+          finally
+            if lCanFreeNativeData then FreeMem(fldinfo[i].Data);
+          end;
+        end;
+      end;
+      //  Inc(result);
+      Inc(k);
+      if lProgress then OnWriteDatasetProgress(Self, Source, k, Maxrecords);
+      Source.Next;
+      if Source.EOF then Break;
+    end;
+    {$IFDEF BIN2DEBUG_time}
+    t2:=now;
+    OutputDebugString(PAnsiChar('TDABIN2DataStreamer.InternalDoWriteDataset:'+TimeToStr(t2-t1)+' | ' +FloatToStr(t2-t1)));
+    {$ENDIF BIN2DEBUG_time}
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABinAdapter.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABinAdapter.pas
new file mode 100644
index 0000000..68de6c9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABinAdapter.pas	
@@ -0,0 +1,1352 @@
+unit uDABinAdapter;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Classes,
+  uROClasses,
+  uDADataTable, uDAInterfaces, uDADataStreamer, uDADelta, FMTBcd;
+
+type
+  TBINAdapterSignature = array[0..7] of ansichar;
+
+const
+  BINAdapterSignature: TBINAdapterSignature = 'DABIN100';
+
+type
+  TDAElementType = (etDataset, etDelta);
+
+  { TElementInfo }
+  TDAElementInfo = class
+    ElementType: TDAElementType;
+      Name: string;
+    Offset: integer;
+  end;
+
+  { TDABinDataStreamer }
+  TDABinDataStreamer = class(TDADataStreamer)
+  private
+    fReader: TReader;
+    fWriter: TWriter;
+
+    fInfoIntOffset: integer;
+    fIsCompatibleV4: boolean;
+
+    procedure AddElementInfo(ElementType: TDAElementType; ElementName: string; Offset: integer);
+    procedure WriteElementInfo(ElementInfo: TDAElementInfo);
+    procedure ReadElementInfo;
+    function GetElementInfo(ElementType: TDAElementType; const Name: string): TDAElementInfo;
+
+    procedure ReadAndApplySchema(const Destination: IDADataset; ApplySchema: boolean);
+    procedure WriteSchema(const Fields: TDAFieldCollection; const Params: TDAParamCollection; aFieldsIndex: array of integer); overload;
+    function ReadOffset: integer;
+    procedure WriteOffset(Offset: integer);
+
+  protected
+    // Overriden
+    function DoCreateStream: TStream; override;
+    procedure DoInitialize(Mode: TDAAdapterInitialization); override;
+    procedure DoFinalize; override;
+    function DoWriteDataset(const Source: IDADataset; Options: TDAWriteOptions; MaxRows: integer;ADynFieldNames: array of string): integer; override;
+    procedure DoWriteDelta(const Source: IDADelta); override;
+    procedure DoReadDataset(const DatasetName: string; const Destination: IDADataset; ApplySchema: boolean;AppendMode: Boolean); override;
+    procedure DoReadDelta(const DeltaName: string; const Destination: IDADelta); override;
+    procedure SetBufferSize(const Value: cardinal); override;
+
+    function DoBeginWriteDataset( const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend; override;
+
+    function DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer; override;
+    function DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer; override;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    function GetTargetDataType: TRODataType; override;
+  published
+    property BufferSize;
+    property IsCompatibleV4: boolean read fIsCompatibleV4 write fIsCompatibleV4 default True;
+  end;
+
+  TDABINAdapter = class(TDABinDataStreamer) end deprecated;
+
+implementation
+
+uses Math, SysUtils, Variants, uROBinaryHelpers, uDaClasses, uDAEngine {$IFDEF DELPHI6}, RTLConsts{$ENDIF};
+
+
+{$IFDEF FPC}
+type
+  THackBinaryObjectWriter = class(TBinaryObjectWriter)
+  end;
+
+  THackBinaryObjectReader = class(TBinaryObjectReader)
+  end;
+{$ENDIF}
+
+procedure Writer_FlushBuffer(AWriter: TWriter);
+begin
+  {$IFNDEF FPC}
+  AWriter.FlushBuffer;
+  {$ELSE}
+  THackBinaryObjectWriter(AWriter.Driver).FlushBuffer;
+  {$ENDIF}
+end;
+
+function GetWriterPosition(AWriter: TWriter):Longint;
+begin
+  {$IFNDEF FPC}
+  Result := AWriter.Position
+  {$ELSE}
+  Result := THackBinaryObjectWriter(AWriter.Driver).FStream.Position;
+  {$ENDIF}
+end;
+
+Procedure SetWriterPosition(AWriter: TWriter; APosition:Longint);
+begin
+  {$IFNDEF FPC}
+  AWriter.Position:=APosition;
+  {$ELSE}
+  Writer_FlushBuffer(AWriter);
+  THackBinaryObjectWriter(AWriter.Driver).FStream.Position:=APosition;
+  {$ENDIF}
+end;
+
+{$IFDEF FPC}
+procedure Writer_WriteValue(AWriter: TWriter; aValue: TValueType);
+begin
+  THackBinaryObjectWriter(AWriter.Driver).WriteValue(aValue);
+end;
+{$ENDIF}
+
+procedure Writer_WriteVariant(AWriter: TWriter; AValue: Variant);
+begin
+  {$IFNDEF FPC}
+   AWriter.WriteVariant(AValue);
+  {$ELSE}
+  if VarIsArray(aValue) then raise EWriteError.Create('Stream write error');
+  case VarType(aValue) and varTypeMask of
+    varEmpty: Writer_WriteValue(AWriter,vaNil);
+    varNull: Writer_WriteValue(AWriter,vaNull);
+    varUString,
+    varOleStr: aWriter.WriteWideString(aValue);
+    varString: aWriter.WriteString(aValue);
+    varByte, varShortInt, varWord, varSmallInt,
+      varInteger,varLongWord, varInt64: aWriter.WriteInteger(aValue);
+    varSingle: aWriter.WriteSingle(aValue);
+    varDouble: aWriter.WriteFloat(aValue);
+    varCurrency: aWriter.WriteCurrency(aValue);
+    varDate: aWriter.WriteDate(aValue);
+    varBoolean:  aWriter.WriteBoolean(aValue);
+  else
+    aWriter.WriteString(aValue)
+  end;
+  {$ENDIF}
+end;
+
+function GetReaderPosition(AReader: TReader):Longint;
+begin
+  {$IFNDEF FPC}
+  Result := AReader.Position
+  {$ELSE}
+  Result := THackBinaryObjectReader(AReader.Driver).FStream.Position;
+  {$ENDIF}
+end;
+
+Procedure SetReaderPosition(AReader: TReader; APosition:Longint);
+begin
+  {$IFNDEF FPC}
+  AReader.Position:=APosition;
+  {$ELSE}
+  THackBinaryObjectReader(AReader.Driver).FStream.Position:=APosition;
+  {$ENDIF}
+end;
+
+
+{$IFDEF DELPHI6}
+
+function D6_Reader_ReadVariant(AReader: TReader): Variant;
+
+  function ReadCustomVariant: Variant;
+  var
+    OuterStream, InnerStream: TMemoryStream;
+    OuterReader: TReader;
+    StreamSize: Integer;
+    CustomType: TCustomVariantType;
+    CustomTypeClassName: string;
+    VarStreamer: IVarStreamable;
+  begin
+    with AReader do begin
+      CheckValue(vaBinary);
+      OuterStream := TMemoryStream.Create;
+      InnerStream := TMemoryStream.Create;
+      try
+        Read(StreamSize, SizeOf(StreamSize));
+        OuterStream.Size := StreamSize;
+        Read(OuterStream.Memory^, StreamSize);
+
+        OuterReader := TReader.Create(OuterStream, 1024);
+        try
+          CustomTypeClassName := OuterReader.ReadString;
+          OuterReader.Read(StreamSize, SizeOf(StreamSize));
+          InnerStream.Size := StreamSize;
+          OuterReader.Read(InnerStream.Memory^, StreamSize);
+
+          if not FindCustomVariantType(CustomTypeClassName, CustomType) or
+             not Supports(TObject(CustomType), IVarStreamable, VarStreamer) then
+            raise EReadError.CreateRes(@SReadError);
+          TVarData(Result).VType := CustomType.VarType;
+          VarStreamer.StreamIn(TVarData(Result), InnerStream);
+        finally
+          OuterReader.Free;
+        end;
+      finally
+        InnerStream.Free;
+        OuterStream.Free;
+      end;
+    end;
+  end;
+
+begin
+  with AReader do begin
+    VarClear(Result);
+    case NextValue of
+      vaNil, vaNull:       if ReadValue <> vaNil then
+                             Result := NULL;
+                           // Delphi 6 has a bug vaInt8: Result := Byte(ReadInteger);
+      vaInt8:              Result := Shortint(ReadInteger);
+      vaInt16:             Result := Smallint(ReadInteger);
+      vaInt32:             Result := ReadInteger;
+      vaExtended:          Result := ReadFloat;
+      vaSingle:            Result := ReadSingle;
+      vaCurrency:          Result := ReadCurrency;
+      vaDate:              Result := ReadDate;
+      vaString, vaLString: Result := ReadString;
+      vaWString,
+      vaUTF8String:        Result := ReadWideString;
+      vaFalse, vaTrue:     Result := ReadValue = vaTrue;
+      vaBinary:            Result := ReadCustomVariant;
+      vaInt64:             Result := ReadInt64;
+    else
+      raise EReadError.CreateRes(@SReadError);
+    end;
+  end;
+end;
+{$ENDIF}
+
+function Reader_ReadVariant(AReader: TReader): Variant;
+begin
+  {$IFDEF FPC}
+    Result := Null;
+    Raise Exception.Create('Not supported');
+  {$ELSE}
+    {$IFDEF DELPHI6}
+      Result:= D6_Reader_ReadVariant(AReader);
+    {$ELSE}
+      Result:= AReader.ReadVariant;
+    {$ENDIF}
+  {$ENDIF}
+end;
+
+{ TDABinDataStreamer }
+
+procedure TDABinDataStreamer.Assign(Source: TPersistent);
+var
+  lSource: TDABinDataStreamer;
+begin
+  inherited;
+  if Source is TDABinDataStreamer then begin
+    lSource := TDABinDataStreamer(Source);
+    IsCompatibleV4 := lSource.IsCompatibleV4;
+  end;
+end;
+
+constructor TDABinDataStreamer.Create(aOwner: TComponent);
+begin
+  inherited;
+  fIsCompatibleV4:=True;
+end;
+
+destructor TDABinDataStreamer.Destroy;
+begin
+  // Just in case the user did not call Finalize
+
+  {if Assigned(fReader) then fReader.Free;
+  if Assigned(fWriter) then fWriter.Free;}
+
+  inherited;
+end;
+
+procedure TDABinDataStreamer.SetBufferSize(const Value: cardinal);
+begin
+  if (Value > 0) then inherited SetBufferSize(Value);
+end;
+
+procedure TDABinDataStreamer.DoFinalize;
+var
+  finalpos, i: integer;
+begin
+  try
+    if (AdapterInitialization in AdapterWriteModes) then try
+      finalpos := GetWriterPosition(FWriter);
+
+      // Element count. WIll be read by the DoInitialize method
+      fWriter.WriteInteger(DatasetCount + DeltaCount);
+
+      for i := 0 to (DatasetCount - 1) do
+        WriteElementInfo(TDAElementInfo(DatasetInfoObjects[i]));
+
+      for i := 0 to (DeltaCount - 1) do
+        WriteElementInfo(TDAElementInfo(DeltaInfoObjects[i]));
+
+      Writer_FlushBuffer(FWriter);
+
+      SetWriterPosition(FWriter, fInfoIntOffset);
+      WriteOffset(finalpos);
+    except
+      beep;
+      raise;
+    end;
+  finally
+    // Somehow I need to check because the FreeAndNIL fails on these objects even if the are set to NIL...
+    if AdapterInitialization in AdapterReadModes then
+      FreeAndNIL(fReader)
+
+    else if AdapterInitialization in AdapterWriteModes then
+      FreeAndNIL(fWriter);
+  end;
+end;
+
+procedure TDABinDataStreamer.WriteElementInfo(ElementInfo: TDAElementInfo);
+begin
+  fWriter.WriteInteger(integer(ElementInfo.ElementType));
+  fWriter.WriteString(ElementInfo.Name);
+  fWriter.WriteInteger(ElementInfo.Offset);
+end;
+
+procedure TDABinDataStreamer.ReadElementInfo;
+var
+  et: TDAElementType;
+  nme: string;
+  ofs: integer;
+begin
+  et := TDAElementType(fReader.ReadInteger);
+  nme := fReader.ReadString;
+  ofs := fReader.ReadInteger;
+  AddElementInfo(et, nme, ofs);
+end;
+
+procedure TDABinDataStreamer.DoInitialize(Mode: TDAAdapterInitialization);
+var
+  signature: TBINAdapterSignature;
+  currpos, i: integer;
+begin
+  if (Mode in AdapterReadModes) then begin
+    fReader := TReader.Create(Data, BufferSize);
+    freader.Root := Owner;
+
+    // Checks the signature
+    signature := BINAdapterSignature;
+    fReader.Read(signature, SizeOf(signature));
+    if (signature <> BINAdapterSignature) then raise Exception.Create('Incompatible binary adapter stream');
+
+    fInfoIntOffset := ReadOffset;
+    currpos := GetReaderPosition(FReader);
+
+    // Reads the information attached at the end of the stream
+    if (GetReaderPosition(FReader) = fInfoIntOffset) then Exit; // Nothing to read!
+    SetReaderPosition(FReader, fInfoIntOffset);
+
+    // Number of elements
+    i := fReader.ReadInteger;
+
+    for i := i downto 1 do
+      ReadElementInfo;
+
+    // Restores its position and continues
+    SetReaderPosition(FReader, currpos);
+  end
+  else if (Mode in AdapterWriteModes) then begin
+    fWriter := TWriter.Create(Data, BufferSize);
+
+    // Writes the signature
+    signature := BINAdapterSignature;
+    fWriter.Write(signature, SizeOf(signature));
+
+    // This integer will contain the offset of the stream information (datasetcount, names, etc)
+    // which will be attached at the end of the stream since this is a sequential write
+    fInfoIntOffset := GetWriterPosition(FWriter);
+    WriteOffset(0);
+  end;
+end;
+
+function TDABinDataStreamer.GetElementInfo(ElementType: TDAElementType; const Name: string): TDAElementInfo;
+begin
+  result := nil;
+  case ElementType of
+    etDataset: result := TDAElementInfo(DatasetInfoObjects[GetDatasetIndex(Name)]);
+    etDelta: result := TDAElementInfo(DeltaInfoObjects[GetDeltaIndex(Name)]);
+  end;
+end;
+
+procedure TDABinDataStreamer.AddElementInfo(ElementType: TDAElementType; ElementName: string; Offset: integer);
+var
+  element: TDAElementInfo;
+begin
+  element := TDAElementInfo.Create;
+  element.ElementType := ElementType;
+  element.Name := ElementName;
+  element.Offset := Offset;
+
+  if ElementType = etDataset then
+    AddingDataset(ElementName, element)
+  else
+    AddingDelta(ElementName, element);
+end;
+
+function TDABinDataStreamer.DoCreateStream: TStream;
+begin
+  result := TMemoryStream.Create;
+end;
+
+procedure TDABinDataStreamer.ReadAndApplySchema(const Destination: IDADataset; ApplySchema: boolean);
+var
+  cnt: integer;
+  fields: TDAFieldCollection;
+  params: TDAParamCollection;
+begin
+  fields := Destination.Fields;
+  params := Destination.Params;
+
+  cnt := fReader.ReadInteger;
+
+  if (cnt > 0) then begin
+    fReader.ReadValue; // Must do for ReadCollection. Do not remove.
+    fReader.ReadCollection(fields);
+  end
+  else fields.Clear;
+
+  cnt := fReader.ReadInteger;
+  if (cnt > 0) then begin
+    fReader.ReadValue; // Must do for ReadCollection. Do not remove.
+    fReader.ReadCollection(params);
+  end
+  else params.Clear;
+end;
+
+procedure TDABinDataStreamer.WriteSchema(const Fields: TDAFieldCollection; const Params: TDAParamCollection; aFieldsIndex: array of integer);
+var
+  lcoll: TDAFieldCollection;
+  i: integer;
+begin
+  fWriter.WriteInteger(Length(aFieldsIndex));
+  if Length(aFieldsIndex) > 0 then begin
+    lcoll:=TDAFieldCollection.Create(nil);
+    lcoll.IsCompatibleV4:= self.IsCompatibleV4;
+    try
+      For i:=0 to High(aFieldsIndex) do
+        lcoll.Add.AssignField(Fields[aFieldsIndex[i]]);
+      fWriter.WriteCollection(lColl);
+    finally
+      lcoll.Free;
+    end;
+  end;
+
+  fWriter.WriteInteger(Params.Count);
+  if Params.Count > 0 then fWriter.WriteCollection(Params);
+end;
+
+procedure TDABinDataStreamer.WriteOffset(Offset: integer);
+begin
+  fWriter.Write(Offset, SizeOf(integer));
+end;
+
+function TDABinDataStreamer.ReadOffset: integer;
+begin
+  fReader.Read(result, SizeOf(integer));
+end;
+
+procedure VariantToWriterAsStr(aDataType : TDADataType; const aSourceVariant : Variant; aWriter : TWriter);
+var
+  p: pointer;
+  s: Ansistring;
+  lVt: TValueType;
+  lSize: cardinal;
+begin
+  case aDataType of
+    datBlob: begin
+        case VarType(aSourceVariant) of
+          varEmpty: begin
+              lSize := 0;
+              aWriter.Write(lSize, SizeOf(lSize));
+            end;
+          varUString,
+          varOleStr:
+            awriter.WriteWideString(aSourceVariant);
+          varString, VarNull:
+            begin
+              s := GetVarAnsiString(aSourceVariant);
+              lSize := Length(s);
+              if lSize < 256 then begin
+                lVt := vaString;
+                aWriter.Write(lVt, sizeof(lVt));
+                aWriter.Write(lSize, 1);
+                awriter.Write(pointer(s)^, lSize);
+              end
+              else begin
+                lVt := vaLString;
+                aWriter.Write(lVt, sizeof(lVt));
+                aWriter.Write(lSize, sizeof(lSize));
+                awriter.Write(pointer(s)^, lSize);
+              end;
+            end;
+          8209:begin { 8209 is binary array }
+              lSize := VarArrayHighBound(aSourceVariant, 1)-VarArrayLowBound(aSourceVariant, 1)+1;
+              p := VarArrayLock(aSourceVariant);
+              try
+                if lSize < 256 then begin
+                  lVt := vaString;
+                  aWriter.Write(lVt, sizeof(lVt));
+                  aWriter.Write(lSize, 1);
+                  awriter.Write(p^, lSize);
+                end
+                else begin
+                  lVt := vaLString;
+                  aWriter.Write(lVt, sizeof(lVt));
+                  aWriter.Write(lSize, sizeof(lSize));
+                  awriter.Write(p^, lSize);
+                end;
+              finally
+                VarArrayUnlock(aSourceVariant);
+              end;
+            end;
+          else begin
+            RaiseError('Invalid variant type (%d) for Blob.',[VarType(aSourceVariant)]);
+          end;
+        end;
+      end;
+    else begin
+      Writer_WriteVariant(aWriter, aSourceVariant);
+    end;
+  end;
+end;
+
+procedure WriteGuid(aWriter: TWriter; const aVal: String);
+var
+  g: TGuid;
+begin
+  g := StringToGUID(aVal);
+  aWriter.Write(g, Sizeof(g));
+end;
+
+procedure WriteDecimal(aWriter: TWriter; const aVal: Variant);
+var
+  dec: TDecimal;
+begin
+  dec:= VariantToDecimal(aVal);
+  aWriter.Write(dec, Sizeof(Dec));
+end;
+
+
+function TDABinDataStreamer.DoWriteDataset(const Source: IDADataset;
+  Options: TDAWriteOptions;
+  MaxRows: integer;
+  ADynFieldNames: array of string): integer;
+var
+  lDataForAppend: TDADataForAppend;
+begin
+  lDataForAppend := DoBeginWriteDataset(Source, {schema}nil, Options, MaxRows, ADynFieldNames);
+  if woRows in Options then begin
+    DoWriteDatasetData(Source, lDataForAppend);
+    result := DoEndWriteDataset(lDataForAppend);
+  end
+  else begin
+    lDataForAppend.Free;
+    result := -1;
+  end;
+end;
+
+function CreateByteArray(const s: string): Variant;
+begin
+  result := VarArrayCreate([0, Length(s)-1], varByte);
+  if Length(s) > 0 then
+    Move(s[1], VarArrayLock(Result)^, Length(S));
+  VarArrayUnlock(Result);
+end;
+
+function ReadGuid(aReader: TReader): TGuid;
+begin
+  aReader.Read(Result, Sizeof(Result));
+end;
+
+function ReadDecimal(aReader: TReader): Variant;
+var
+  dec: TDecimal;
+begin
+  aReader.Read(dec, Sizeof(Dec));
+  Result := DecimalToVariant(dec);
+end;
+
+procedure TDABinDataStreamer.DoReadDataset(const DatasetName: string; const Destination: IDADataset; ApplySchema: boolean;AppendMode: Boolean);
+type
+  PMemDatasetrecord_Native = ^TMemDatasetrecord_Native;
+  TMemDatasetrecord_Native = packed record
+    Ident: byte;
+    Data: PAnsichar;
+  end;
+var
+  lPK: string;                     //for append mode
+  lPKValues: array of variant;     //for append mode
+  lOnePK:Boolean;                  //for append mode
+
+  function Dataset_Locate(): boolean;
+  begin
+    if lOnePK then
+      Result:= Destination.Locate(lPK,lPKValues[0],[])
+    else
+      Result:= Destination.Locate(lPK,lPKValues,[]);
+  end;
+
+var
+  elementinfo: TDAElementInfo;
+  editable: IDAEditableDataset;
+  schemaend, cnt, i: integer;
+  flds: TDAFieldArray;           // flds in stream
+  dt: TDADataType;
+  schemapresent: boolean;
+  val: Variant;
+  readonlyfields: array of boolean;
+  //bigVal: Int64;
+  memdataset: IDAMemDatasetBatchAdding;
+  buf, buf1: PAnsiChar;
+  ws: widestring;
+  s: Ansistring;
+  bcd: TDecimal;
+  FRecordsList: TList;
+  lProgress: Boolean;
+  lTotal: integer;
+  lCurrent: integer;
+  // appendmode
+  lFldValues: array of Variant;  // flds values for append mode
+  lPKFlds: TDAFieldArray;        // PK flds (Append mode)
+begin
+  if Destination.Active and ApplySchema then raise Exception.Create('Cannot apply a schema if the destination is active');
+
+  elementinfo := GetElementInfo(etDataset, DatasetName);
+  SetReaderPosition(FReader, elementinfo.Offset);
+
+  editable := Destination as IDAEditableDataset;
+
+  Destination.DisableControls;
+  try
+    editable.DisableEventHandlers;
+    try
+      fReader.BeginReferences;
+      try
+        // Checks to see if the schema is present
+        schemapresent := fReader.ReadBoolean;
+        schemaend := ReadOffset;
+
+        if schemapresent and ApplySchema then begin
+          ReadAndApplySchema(Destination, ApplySchema);
+        end
+        else if (schemaend > 0) then
+          SetReaderPosition(FReader, schemaend);
+        fReader.FixupReferences;
+
+        // Reads the row count
+        //cnt := fReader.ReadInteger;
+        {$IFDEF FPC}
+        cnt := 0;
+        {$ENDIF FPC}
+        fReader.Read(cnt, SizeOf(cnt));
+        if (cnt = -1) then Exit; // Only schema is present!
+
+        lProgress := Assigned(OnReadDatasetProgress);
+        lTotal := cnt;
+        lCurrent := 0;
+        // TODO: this is a nasty bug. If we read the schema AND the stream, also contains data
+        // it goes in recursion here... Temporary fix is you just do one of the two for now
+        if ApplySchema then Exit;
+
+        if not Destination.Active then Destination.Open;
+
+        with editable do try
+          // if table is empty then process in standard mode
+          AppendMode := AppendMode and not (EOF and GetBOF);
+          // Temporarily sets all fields as writable
+          Destination.DisableConstraints;
+          SetLength(readonlyfields, Fields.Count);
+          SetLength(flds, Fields.Count);
+          for i := 0 to (Fields.Count - 1) do begin
+            flds[i] := Fields[i];
+            readonlyfields[i] := flds[i].ReadOnly;
+            flds[i].ReadOnly := FALSE;
+          end;
+
+          {$IFDEF STORERECID}
+          Destination.CurrentRecIdValue := max(1,Destination.CurrentRecIdValue);
+          {$ENDIF}
+
+          if Destination.QueryInterface(IDAMemDatasetBatchAdding, memdataset) <> s_ok then memdataset := nil;
+
+          if (memdataset = nil) or Assigned(OnReadFieldValue) then begin
+            // standard mode
+            lPK := Dataset_GetPK(flds, lPKFlds);
+            lOnePK := Length(lPKFlds) = 1;
+            AppendMode := AppendMode and (Length(lPKFlds)>0);
+            if AppendMode then begin
+              SetLength(lFldValues, Length(flds));
+              SetLength(lPKValues, Length(lPKFlds));
+            end;
+
+            // Inserts the records
+            while (cnt > 0) do try
+              Append;
+
+              {$IFDEF STORERECID}
+              Destination.CurrentRecIdValue := max(Destination.CurrentRecIdValue,fReader.ReadInteger);//#2
+              {$ENDIF}
+
+              for i := 0 to (Fields.Count - 1) do begin
+
+                if flds[i].Calculated or flds[i].Lookup then Continue;
+
+                val := Null; // Default (see datUnknown below)
+                dt := TDADataType(fReader.ReadInteger);
+
+                case dt of
+                  datUnknown: ; // Field was null
+                  datWideString,
+                  datWideMemo,
+                  datXml: val := fReader.ReadWideString;
+                  datString: val := fReader.ReadString;
+                  datDateTime: val := fReader.ReadDate;
+                  datFloat: val := fReader.ReadFloat;
+                  datCurrency: val := fReader.ReadCurrency;
+                  datBoolean: val := fReader.ReadBoolean;
+                  datAutoInc,
+                  datInteger: val := fReader.ReadInteger;
+                  datSingleFloat: val := fReader.ReadSingle;
+                  datLargeUInt,
+                  datLargeAutoInc,
+                  datLargeInt: val := fReader.ReadInt64;
+
+                  datByte: val := Byte(fReader.ReadInteger);
+                  datShortInt: val := ShortInt(fReader.ReadInteger);
+                  datWord: val := Word(fReader.ReadInteger);
+                  datSmallInt: val := SmallInt(fReader.ReadInteger);
+                  datCardinal: val := Cardinal(fReader.ReadInteger);
+                  datGuid: val := GuidToString(ReadGuid(fReader));
+                  datDecimal: val := ReadDecimal(fReader);
+                  datMemo: val := fReader.ReadString;
+                  datBlob: val := fReader.ReadString;
+                end;
+
+                if Assigned(OnReadFieldValue) then OnReadFieldValue(flds[i], val);
+                if VarIsNull(val) then continue;
+                flds[i].Value := val;
+              end;
+
+              if AppendMode  then begin
+                // store values and avoid firing OnReadFieldValue event
+                for I := 0 to Length(Flds) - 1 do
+                  lFldValues[i]:= Flds[i].Value;
+                // store PK values for locate
+                for I := 0 to Length(lPKFlds) - 1 do
+                  lPKValues[i]:= lPKFlds[i].Value;
+
+                Cancel;
+                if Dataset_Locate then
+                  Edit
+                else
+                  Append;
+                // assign new values
+                for I := 0 to Length(Flds) - 1 do
+                  Flds[i].Value := lFldValues[i];
+              end;
+
+              try
+                Post;
+              except
+                // Introduced to restore the dsBrowse state of the datatable
+                // in case of errors
+                Cancel;
+                raise;
+              end;
+              if lProgress then begin
+                inc(lCurrent);
+                OnReadDatasetProgress(Self,Destination,lCurrent,lTotal);
+              end;
+            finally
+              Dec(cnt);
+            end;
+          end else begin
+            // batch loading
+            // Inserts the records
+            FRecordsList := TList.Create;
+            try
+              while (cnt > 0) do try
+                //Append;
+                buf:= memdataset.AllocRecordBuffer;
+                try
+                  for i := 0 to (Fields.Count - 1) do begin
+                    if flds[i].Calculated or flds[i].Lookup then Continue;
+                    buf1:= memdataset.GetFieldNativeBuffer(buf,flds[i].BindedField);
+                    dt := TDADataType(fReader.ReadInteger);
+                    memdataset.SetNullMask(PMemDatasetrecord_Native(buf)^.Data,flds[i].BindedField, dt = datUnknown);
+                    case dt of
+                      datUnknown: ;
+                      datWideString: memdataset.SetWideString(buf1,flds[i].BindedField,fReader.ReadWideString);
+                      datString: begin
+                         {$IFDEF UNICODE}
+                           s:= WideStringToAnsiString(fReader.ReadString);
+                         {$ELSE}
+                           s:= fReader.ReadString;
+                         {$ENDIF}
+                         memdataset.SetAnsiString(buf1,flds[i].BindedField,s);
+                      end;
+                      datCurrency: PCurrency(buf1)^ := fReader.ReadCurrency;
+                      datDateTime: PDateTime(buf1)^ := TimeStampToMSecs(DateTimeToTimeStamp(fReader.ReadDate));
+                      datFloat: PDouble(buf1)^ := fReader.ReadFloat;
+                      datLargeInt, datLargeAutoInc, datLargeUInt: PInt64(buf1)^ := fReader.ReadInt64;
+                      datBoolean: System.PBoolean(buf1)^ := fReader.ReadBoolean;
+                      datAutoInc, datInteger: PInteger(buf1)^ := fReader.ReadInteger;
+                      datSingleFloat: PDouble(buf1)^ := fReader.ReadSingle;
+                      datDecimal: begin
+                        fReader.Read(bcd, Sizeof(bcd));
+                        PBCD(buf1)^ := DecimalToBCD(bcd);
+                      end;
+                      datCardinal: PCardinal(buf1)^ := Cardinal(fReader.ReadInteger);
+                      datByte: PSmallInt(buf1)^ := Byte(fReader.ReadInteger);
+                      datWord: PWord(buf1)^ := Word(fReader.ReadInteger);
+                      datShortInt: PSmallInt(buf1)^ := ShortInt(fReader.ReadInteger);
+                      datSmallInt: PSmallInt(buf1)^ := SmallInt(fReader.ReadInteger);
+                      datGuid: begin
+                        s:= {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(GuidToString(ReadGuid(fReader)));
+                        Move(pointer(s)^, pointer(buf1)^, 38 {Length(GuidString)});
+                      end;
+                      datBlob,datMemo: begin
+                        s:= {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fReader.ReadString);
+                        PPointer(buf1)^ := memdataset.MakeBlobFromString(s);
+                      end;
+                      datWideMemo, datXml: begin
+                        ws:= fReader.ReadWideString;
+                        SetString(S,PAnsiChar(PWideChar(ws)),Length(ws)*SizeOf(WideChar));
+                        PPointer(buf1)^ := memdataset.MakeBlobFromString(s);
+                        ws:='';
+                      end;
+                    end;
+                   // val =
+                   // if Assigned(OnReadFieldValue) then OnReadFieldValue(flds[i], val);
+                   // flds[i].Value := val;
+                  end;
+                 FRecordsList.Add(Buf);
+                except
+                  memdataset.FreeRecordBuffer(buf);
+                  For i:=0 to FRecordsList.Count-1 do begin
+                    buf:=FRecordsList[i];
+                    memdataset.FreeRecordBuffer(Buf);
+                  end;
+                  raise;
+                end;
+                if lProgress then begin
+                  inc(lCurrent);
+                  OnReadDatasetProgress(Self,Destination, lCurrent,lTotal);
+                end;
+              finally
+                Dec(cnt);
+              end;
+              // if table is empty then standard mode
+              AppendMode := AppendMode and not (editable.EOF and editable.GetBOF);
+              memdataset.AddRecordsfromList(FRecordsList,AppendMode);
+            finally
+              FRecordsList.Free;
+            end;
+          end;
+        finally
+          // Restores the read-only property
+          for i := 0 to (Fields.Count - 1) do
+            flds[i].ReadOnly := readonlyfields[i];
+          Destination.EnableConstraints;
+        end;
+
+        // TODO: temporary hack for the TClientDataset. Somehow if we don't do this the
+        //       cursor is locked to the last record and there's no way to move!
+        {editable.Next;
+        editable.First;}
+      finally
+        fReader.EndReferences;
+      end;
+    finally
+      editable.EnableEventHandlers;
+    end;
+  finally
+    Destination.EnableControls;
+  end;
+end;
+
+procedure VariantToWriter(aDataType : TDADataType; const aSourceVariant : Variant; aWriter : TWriter);
+var
+  p: pointer;
+  lSize: cardinal;
+begin
+  case aDataType of
+    datBlob: begin
+        case VarType(aSourceVariant) of
+          varEmpty:begin
+              lSize := 0;
+              aWriter.Write(lSize, SizeOf(lSize));
+            end;
+          8209:begin { 8209 is binary array }
+              lSize := VarArrayHighBound(aSourceVariant, 1)-VarArrayLowBound(aSourceVariant, 1)+1;
+              p := VarArrayLock(aSourceVariant);
+              try
+                aWriter.Write(lSize, SizeOf(lSize));
+                aWriter.Write(p^, lSize);
+              finally
+                VarArrayUnlock(aSourceVariant);
+              end;
+            end;
+          else begin
+            RaiseError('Invalid variant type (%d) for Blob.',[VarType(aSourceVariant)]);
+          end;
+        end;
+      end;
+    else begin
+      Writer_WriteVariant(aWriter, aSourceVariant);
+    end;
+  end;
+end;
+
+function ReaderToVariant(aDataType : TDADataType; aReader : TReader): Variant;
+var
+  p: pointer;
+  sze : cardinal;
+begin
+  case aDataType of
+    datBlob : begin
+      {$IFDEF FPC}
+      sze := 0;
+      {$ENDIF}
+      aReader.Read(sze, SizeOf(sze));
+
+        if (sze = 0) then
+          result := Unassigned
+      else try
+        result := VarArrayCreate([0, sze-1], varByte);
+        p := VarArrayLock(result);
+        aReader.Read(p^, sze);
+      finally
+        VarArrayUnlock(result);
+      end;
+    end;
+  else
+    result := Reader_ReadVariant(aReader);
+  end;
+end;
+
+procedure TDABinDataStreamer.DoWriteDelta(const Source: IDADelta);
+var
+  i, x: integer;
+  lProgress: Boolean;
+  lTotal: integer;
+begin
+  // This information will be used later to complete the stream (see DoInitialize)
+  AddElementInfo(etDelta, Source.LogicalName, GetWriterPosition(FWriter));
+  Source.RemoveUnchangedChanges;
+  // Number of changes
+  fWriter.WriteInteger(Source.Count);
+
+  // Numnber of fields, field names and their types
+  fWriter.WriteInteger(Source.LoggedFieldCount);
+  for i := 0 to (Source.LoggedFieldCount - 1) do begin
+    fWriter.WriteString(Source.LoggedFieldNames[i]);
+    fWriter.WriteInteger(integer(Source.LoggedFieldTypes[i]));
+  end;
+
+  // Key fields
+  fWriter.WriteInteger(Source.KeyFieldCount);
+  for i := 0 to (Source.KeyFieldCount - 1) do begin
+    fWriter.WriteString(Source.KeyFieldNames[i]);
+  end;
+
+  if (Source.Count = 0) then Exit;
+  lProgress := Assigned(OnWriteDeltaProgress);
+  lTotal := Source.Count;
+  // Actual changes
+  fWriter.WriteInteger(Source.Count);
+  for i := 0 to (Source.Count - 1) do begin
+    // Change type, RecID, status and message
+    x := integer(Source.Changes[i].ChangeType);
+    fWriter.WriteInteger(x);
+
+    fWriter.WriteInteger(Source.Changes[i].RecID);
+
+    x := integer(Source.Changes[i].Status);
+    fWriter.WriteInteger(x);
+
+    fWriter.WriteString(Source.Changes[i].Message);
+
+    // Old values
+    for x := 0 to (Source.LoggedFieldCount - 1) do begin
+      //fWriter.WriteVariant(Source.Changes[i].OldValues[x]);
+      VariantToWriter(Source.LoggedFieldTypes[x], Source.Changes[i].OldValues[x], fWriter);
+    end;
+
+    // New values
+    for x := 0 to (Source.LoggedFieldCount - 1) do begin
+      //fWriter.WriteVariant(Source.Changes[i].NewValues[x]);                                           }
+      VariantToWriter(Source.LoggedFieldTypes[x], Source.Changes[i].NewValues[x], fWriter);
+    end;
+    if lProgress then OnWriteDeltaProgress(Self, Source, i+1, lTotal);    
+  end;
+end;
+
+procedure TDABinDataStreamer.DoReadDelta(const DeltaName: string; const Destination: IDADelta);
+var
+  elementinfo: TDAElementInfo;
+  msg, str: string;
+  recid, i, cnt, x: integer;
+  change: TDADeltaChange;
+  changetype: TDAChangeType;
+  status: TDAChangeStatus;
+  val: Variant;
+  lProgress: boolean;
+begin
+  elementinfo := GetElementInfo(etDelta, DeltaName);
+  SetReaderPosition(FReader, elementinfo.Offset);
+
+  // Number of changes
+  cnt := fReader.ReadInteger;
+
+  // Field number, names and types
+  Destination.ClearFieldNames;
+  i := fReader.ReadInteger;
+  for i := i downto 1 do begin
+    str := fReader.ReadString;
+    Destination.AddFieldName(str, TDADataType(fReader.ReadInteger));
+//    Destination.AddFieldName(str);
+//    Destination.LoggedFieldTypes[Destination.LoggedFieldCount-1] := TDADataType(fReader.ReadInteger);
+  end;
+
+  // Key fields
+  Destination.ClearKeyFieldNames;
+  i := fReader.ReadInteger;
+  for i := i downto 1 do begin
+    str := fReader.ReadString;
+    Destination.AddKeyFieldName(str);
+  end;
+
+  if (cnt = 0) then Exit;
+
+  lProgress := Assigned(OnReadDeltaProgress);
+  // Actual changes
+  cnt := fReader.ReadInteger;
+  for i := 1 to cnt do begin
+    x := fReader.ReadInteger;
+    changetype := TDAChangeType(x);
+    recid := fReader.ReadInteger;
+
+    x := fReader.ReadInteger;
+    status := TDAChangeStatus(x);
+
+    msg := fReader.ReadString;
+
+    change := Destination.Add(recid, changetype, status, msg);
+    //Destination.Add(change);
+
+    // Old values
+    for x := 0 to (Destination.LoggedFieldCount - 1) do begin
+      {val := fReader.ReadVariant;
+      change.OldValues[x] := val;}
+      val := ReaderToVariant(Destination.LoggedFieldTypes[x], fReader);
+      change.OldValues[x] := val;
+    end;
+
+    // New values
+    for x := 0 to (Destination.LoggedFieldCount - 1) do begin
+      {val := fReader.ReadVariant;
+      change.NewValues[x] := val;}
+        val := ReaderToVariant(Destination.LoggedFieldTypes[x], fReader);
+        change.NewValues[x] := val;
+    end;
+    if lProgress then OnReadDeltaProgress(Self, Destination, i, cnt);
+  end;
+end;
+
+function TDABinDataStreamer.GetTargetDataType: TRODataType;
+begin
+  result := rtBinary
+end;
+
+function TDABinDataStreamer.DoBeginWriteDataset( const Source: IDADataset; const Schema: TDADataset;
+                              Options: TDAWriteOptions; MaxRows: integer;
+                              ADynFieldNames: array of string): TDADataForAppend;
+var
+  cntpos, currpos, k, i: integer;
+  fld: TDAField;
+  wrtschema: boolean;
+  lfields: array of integer;
+  lDataForAppend : TDADataForAppend;
+  lSchemaFields: TDAFieldCollection;
+  lSchemaParams: TDAParamCollection;
+  lLogicalName: String;
+begin
+  lDataForAppend := TDADataForAppend.Create();
+  result := lDataForAppend;
+
+  if Assigned(Schema) then begin
+    lDataForAppend.TableSchema := Schema;
+    if Schema is TDAUnionDataTable then begin
+      fld := Schema.FindField(def_SourceTableFieldName);
+      if not Assigned(fld) then begin
+        fld := Schema.Fields.Add();
+        fld.Name := def_SourceTableFieldName;
+        fld.DataType := datInteger;
+        fld.InPrimaryKey := true;
+        fld.ServerAutoRefresh := true;
+      end;
+    end;
+    lSchemaFields := Schema.Fields;
+    lSchemaParams := Schema.Params;
+    lLogicalName := Schema.Name;
+  end else begin
+    if Assigned(Source) then begin
+      lSchemaFields := Source.Fields;
+      lSchemaParams := Source.Params;
+      lLogicalName := Source.LogicalName;
+    end else begin
+      raise EDAException.Create('Schema or source should be assigned.');
+    end;
+  end;
+
+
+  if Length(ADynFieldNames) > 0 then begin
+    SetLength(lfields, Length(ADynFieldNames));
+    For i:=0 to High(ADynFieldNames) do begin
+      fld:=lSchemaFields.FindField(ADynFieldNames[i]);
+      if fld <> nil then
+        lfields[i]:= fld.Index
+      else
+        lfields[i]:= -1;
+    end;
+  end else begin
+    SetLength(lfields, lSchemaFields.Count);
+    For i:=0 to lSchemaFields.Count-1 do
+      lfields[i]:=i;
+  end;
+
+  // This information will be used later to complete the stream (see DoInitialize)
+  AddElementInfo(etDataset, lLogicalName, GetWriterPosition(FWriter));
+
+  // Writes a boolean flag that indicates if the schema is being written
+  wrtschema := (woSchema in Options) or (Length(ADynFieldNames)>0);
+  fWriter.WriteBoolean(wrtschema);
+
+  // Write the offset to jump to if the reader wants to skip the schema
+  currpos := GetWriterPosition(FWriter);
+  WriteOffset(0);
+
+  if wrtschema then begin
+    WriteSchema(lSchemaFields, lSchemaParams, lfields);
+    Writer_FlushBuffer(FWriter);
+
+    // Writes the offset of the schema's end
+    k := GetWriterPosition(FWriter);
+    SetWriterPosition(FWriter, currpos);
+    WriteOffset(k);
+    SetWriterPosition(FWriter, k);
+  end;
+
+  // Writes the row count
+  cntpos := GetWriterPosition(FWriter);
+
+  if not (woRows in Options) then begin
+    fWriter.WriteInteger(-1);
+  end else begin
+    k := 0;
+    fWriter.Write(k, SizeOf(k));
+  end;
+
+  SetLength(lDataForAppend.RealFields, Length(lFields));
+  for i:= 0 to Length(lFields) -1 do
+  lDataForAppend.RealFields[i] := lFields[i];
+
+  lDataForAppend.MaxRowCount := MaxRows;
+  lDataForAppend.CountOfRecordsPosition := cntpos;
+  lDataForAppend.EndDataPosition := GetWriterPosition(FWriter);
+  lDataForAppend.RecordCount := k;
+end;
+
+function TDABinDataStreamer.DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer;
+var
+  max, k, i: integer;
+  flds: array of TDAField;
+  val: Variant;
+  lDataForAppend: TDADataForAppend;
+  lFields: array of integer;
+  bigVal: Int64;
+  lFieldName: String;
+  lMapToFieldName: String;
+  lColumnMappings: TDAColumnMappingCollection;
+  lColumnMapping: TDAColumnMapping;
+  NativeDataset: IDASQLCommandNativeObject;
+  f: boolean;
+  ev, ev1: boolean;
+  lProgress: Boolean;
+  u32: Cardinal;
+begin
+  f:=(Source.QueryInterface(IDASQLCommandNativeObject, NativeDataset) = 0) and not NativeDataset.IsTDatasetCompatible;
+
+  lDataForAppend := aDataForAppend;
+  SetWriterPosition(FWriter, lDataForAppend.EndDataPosition);
+  SetLength(lfields, Length(lDataForAppend.RealFields));
+  SetLength(flds, Length(lDataForAppend.RealFields));
+  for i:= 0 to Length(lDataForAppend.RealFields) -1 do
+    lFields[i] := lDataForAppend.RealFields[i];
+
+  k := lDataForAppend.RecordCount;
+  max := lDataForAppend.MaxRowCount;
+  {$IFDEF FPC}
+  Result := 0; // else it's warn
+  {$ENDIF}
+
+  // Mapping fields of Source table to the streamed dataset
+  if Assigned(lDataForAppend.TableSchema) and (lDataForAppend.TableSchema is TDAUnionDataTable) then begin
+    lColumnMappings := TDAUnionSourceTable(TDAUnionDataTable(lDataForAppend.TableSchema).SourceTables.ItemByName(Source.Name)).ColumnMappings;
+    for i := 0 to lDataForAppend.TableSchema.Fields.Count - 1 do begin
+      lFieldName := lDataForAppend.TableSchema.Fields[lFields[i]].Name;
+      if lFieldName = def_SourceTableFieldName then begin
+        lFields[i] := -10;
+        continue;
+      end;
+      lMapToFieldName := lFieldName;
+      if Assigned(lColumnMappings) then begin
+        lColumnMapping := lColumnMappings.MappingByDatasetField(lFieldName);
+        if Assigned(lColumnMapping) and (lColumnMapping.TableField <> '') then
+          lMapToFieldName := lColumnMapping.TableField;
+      end;
+      lFields[i] := Source.FieldByName(lMapToFieldName).Index;
+    end;
+  end;
+
+
+  Source.DisableControls();
+  if not Source.active then Source.Open();
+  try
+    for i:= 0 to Length(lfields) -1 do begin
+      if lfields[i] = -10 then
+        flds[i] := lDataForAppend.TableSchema.FieldByName(def_SourceTableFieldName)
+      else
+        flds[i] := Source.Fields[lfields[i]];
+    end;
+    ev := Assigned(OnWriteFieldValue);
+    ev1 := Assigned(OnWriteFieldValueEx);
+    f := f or ev or ev1;
+    lProgress := Assigned(onWriteDatasetProgress);
+    // Writes the actual records
+    while (k<>max) and not Source.EOF do begin
+      {$IFDEF STORERECID}
+      fWriter.WriteInteger(Source.GetRowRecIdValue);
+      {$ENDIF}
+      for i := 0 to Length(lfields) - 1 do begin
+        //RealFields[i] = -10 then this is @SourceTable field
+        if lfields[i] = -10 then begin
+          val := aDataIndex;
+        end else begin
+          val := Source.FieldValues[lfields[i]];
+        end;
+
+        if Assigned(OnBeforeFieldValueSerialization) then OnBeforeFieldValueSerialization(flds[i], val);
+
+        if flds[i].Calculated or flds[i].Lookup then Continue;
+        if ev then OnWriteFieldValue(flds[i], val);
+        if ev1 then OnWriteFieldValueEx(Source, flds[i], val);
+
+        if (lfields[i] = -10) or ((f or not flds[i].IsNull) and (not VarIsNull(Val))) then begin
+          fWriter.WriteInteger(integer(flds[i].DataType));
+          case flds[i].DataType of
+            datWideString,
+            datWideMemo,
+            datXml: fWriter.WriteWideString(VarToWideStr(val));
+            datString: fWriter.WriteString(VarToStr(val));
+            datDateTime: fWriter.WriteDate(val);
+            datFloat: fWriter.WriteFloat(val);
+            datBoolean: fWriter.WriteBoolean(val);
+            datCurrency: fWriter.WriteCurrency(val);
+            datByte,
+            datShortInt,
+            datWord,
+            datSmallInt,
+            datAutoInc,
+            datInteger: fWriter.WriteInteger(val);
+            datCardinal: begin
+              u32 := val;
+              fWriter.WriteInteger(integer(u32));
+            end;
+            datSingleFloat: fwriter.WRiteSingle(val);
+
+            //datLargeInt: fWriter. WriteInteger(val);
+            datLargeAutoInc,
+            datLargeUInt,
+            datLargeInt: begin
+              bigVal := val;
+              fWriter.WriteInteger(bigVal);
+            end;
+            datGuid: WriteGuid(fWriter, Val);
+            datDecimal: WriteDecimal(fWriter, Val);
+            datMemo: fWriter.WriteString(VarToStr(val));
+            datBlob: begin
+                VariantToWriterAsStr(datBlob, val, fWriter);
+            end;
+          end;
+        end else
+          fWriter.WriteInteger(Ord(datUnknown));
+      end;
+
+      Inc(k);
+      if lProgress then OnWriteDatasetProgress(Self, Source, k, max);
+      Source.Next;
+
+      if Source.EOF then Break;
+    end;
+
+    lDataForAppend.EndDataPosition := GetWriterPosition(FWriter);
+    lDataForAppend.RecordCount := k;
+    result := k;
+  finally
+    Source.EnableControls;
+  end;
+end;
+
+function TDABinDataStreamer.DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer;
+begin
+  Writer_FlushBuffer(FWriter);
+  result := aDataForAppend.RecordCount;
+  SetWriterPosition(FWriter, aDataForAppend.CountOfRecordsPosition);
+  fWriter.Write(aDataForAppend.RecordCount, SizeOf(aDataForAppend.RecordCount));
+  SetWriterPosition(FWriter, aDataForAppend.EndDataPosition);
+  aDataForAppend.Free();
+end;
+
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABusinessProcessor.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABusinessProcessor.pas
new file mode 100644
index 0000000..0bd69f7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDABusinessProcessor.pas	
@@ -0,0 +1,2599 @@
+unit uDABusinessProcessor;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+{ ToDo: for DA3, refactor the Oracle specific stuff OUT of here again }
+
+uses
+  Classes, DB, Contnrs, SysUtils,
+  uDAInterfaces, uDADataTable, uDAClasses, uDAOracleInterfaces,
+  uDAScriptingProvider, uDADelta
+  , uDASupportClasses
+  ;
+
+type
+  // These structs are to speed up mapping between command parameters and delta fields.
+  // See TDABusinessProcessor.ProcessDelta
+  TDAMappingType = (mtNewValue, mtOldValue{, mtNullCheck});
+  TDAParamMapping = record
+    CommandIndex,
+    DeltaIndex: integer;
+    MappingType: TDAMappingType;
+
+    GeneratorName : string;
+    GeneratorValue : integer;
+  end;
+
+  TDAParamMappingArray = array of TDAParamMapping;
+
+  TDADeltaChange = uDADelta.TDADeltaChange;
+  IDADelta = uDADelta.IDADelta;
+const
+  MappingPrefix: array[TDAMappingType] of string = ('', old_FieldPrefix{, 'NULL_'});
+
+type
+  TDABusinessProcessor = class;
+  TDABusinessProcessorRules = class;
+
+  TDADeltaProcessorItemCollection = class;
+
+
+  { Events }
+  TDAProcessDeltaEvent = procedure(Sender: TDABusinessProcessor; const aDelta: IDADelta) of object;
+
+  TDABeforeProcessChangeEvent = procedure(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; var ProcessChange: boolean) of object;
+
+  TDAAfterProcessChangeEvent = procedure(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: boolean; var CanRemoveFromDelta: boolean) of object;
+
+  TDAProcessChangeEvent = procedure(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; const aCommand: IDASQLCommand) of object;
+
+  TDARefreshDeltaChangeEvent = procedure(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; const aRefreshDataSet: IDADataSet) of object;
+
+  TDAProcessErrorEvent = procedure(Sender: TDABusinessProcessor;
+    aChangeType: TDAChangeType;
+    aChange: TDADeltaChange;
+    const aCommand: IDASQLCommand;
+    var CanRemoveFromDelta: boolean;
+    Error: Exception) of object;
+
+  TDAGenerateSQLEvent = procedure(Sender: TDABusinessProcessor;
+    ChangeType: TDAChangeType;
+    const ReferencedStatement: TDAStatement;
+    const aDelta: IDADelta;
+    var SQL: string) of object;
+
+  { Misc }
+  TDAProcessorOption = (poAutoGenerateInsert,
+    poAutoGenerateUpdate,
+    poAutoGenerateDelete,
+    poAutoGenerateRefreshDataset,
+    poPrepareCommands,
+    poIgnoreRowsAffected);
+  TDAProcessorOptions = set of TDAProcessorOption;
+
+  TDAUpdateMode = (updWhereKeyOnly, updWhereAll, updWhereKeyAndUserDefined, updWhereUserDefined);
+
+  { TDADeltaStruct }
+  TDADeltaStruct = class
+  private
+    fDelta : IDADelta;
+    fBusinessProcessor : TDABusinessProcessor;
+    fDetailDeltas : TDADeltaList;
+    fRelationShips: TDADatasetRelationshipList;
+
+  public
+    constructor Create(const aDelta : IDADelta; aBusinessProcessor : TDABusinessProcessor);
+    destructor Destroy; override;
+
+    property Delta : IDADelta read fDelta;
+    property BusinessProcessor : TDABusinessProcessor read fBusinessProcessor;
+    property DetailDeltas : TDADeltaList read fDetailDeltas;
+    property RelationShips : TDADatasetRelationshipList read fRelationShips;
+  end;
+
+  { TDADeltaStructList }
+  TDADeltaStructList = class(TObjectList)
+  private
+    function GetDADeltaStructs(Index: integer): TDADeltaStruct;
+  protected
+  public
+    function Add(const aDelta : IDADelta; aBusinessProcessor : TDABusinessProcessor): TDADeltaStruct;
+
+    function FindStruct(const aLogicalName : string) : TDADeltaStruct;
+    function StructByLogicalName(const aLogicalName : string) : TDADeltaStruct;
+
+    property DeltaStructs[Index : integer] : TDADeltaStruct read GetDADeltaStructs; default;
+  end;
+
+  IDABusinessProcessorScriptingProvider = interface(IDAScriptingProvider)
+  ['{7BF0D886-51D7-4E91-8073-0FBA78CC11F3}']
+    procedure RunBusinessProcessorScript(aBusinessProcessor: TDABusinessProcessor; const aScript: string; const aMethod: string; aLanguage:TROSEScriptLanguage);
+  end;
+
+  { IDASQLGenerator }
+  IDASQLGenerator = interface
+  ['{EDE4E068-C300-4991-89CF-F9A81D207930}']
+    function GenerateSQL(aChangeType: TDAChangeType;
+      aChange: TDADeltaChange;
+      aDataset: TDADataset;
+      const aDelta: IDADelta;
+      aDatasetStatement: TDAStatement;
+      aConnection: IDAConnection): string;
+
+    procedure UpdateSQLForOracle(aChangeType: TDAChangeType;
+      aDataset: TDADataset; const aDelta: IDADelta;
+      aDatasetStatement: TDAStatement; aConnection: IOracleConnection;
+      var OriginalSQL: string);
+
+    function GenerateRefreshDataset(aDataset: TDADataset; const aDelta: IDADelta;
+      aDatasetStatement: TDAStatement; aConnection: IDAConnection): IDADataset;
+
+  end;
+
+  { TDABusinessProcessor }
+  TDABusinessProcessor = class(TScriptableComponent, IDASQLGenerator)
+  private
+    fOnBeforeProcessChange: TDABeforeProcessChangeEvent;
+    fOnAfterProcessChange: TDAAfterProcessChangeEvent;
+
+    fInsertCommandName: string;
+    fDeleteCommandName: string;
+    fUpdateCommandName: string;
+
+    fSchema: TDASchema;
+
+    fOnAfterProcessDelta: TDAProcessDeltaEvent;
+    fOnBeforeProcessDelta: TDAProcessDeltaEvent;
+    fOnProcessChange: TDAProcessChangeEvent;
+    fOnProcessError: TDAProcessErrorEvent;
+    fOnRefreshDeltaChange: TDARefreshDeltaChangeEvent;
+
+    fReferencedDataset: string;
+    fProcessorOptions: TDAProcessorOptions;
+    fUserUpdateFields: TStringList;
+    fUpdateMode: TDAUpdateMode;
+    fOnGenerateSQL: TDAGenerateSQLEvent;
+
+    fBusinessRules: TDABusinessProcessorRules;
+    fCurrentChange: integer;
+    fCurrentDelta: TDADelta;
+    fBusinessRulesID: string;
+    fRefreshDataset: string;
+    FRaiseExceptionAtError: boolean;
+    fHasReducedDelta: Boolean;
+    FDynamicWhereInRefreshDataset: Boolean;
+
+    procedure SetSchema(const Value: TDASchema);
+    procedure SetDeleteCommandName(const Value: string);
+    procedure SetInsertCommandName(const Value: string);
+    procedure SetUpdateCommandName(const Value: string);
+    procedure SetReferencedDataset(const Value: string);
+    function GetUserUpdateFields: TStrings;
+    procedure SetUserUpdateFields(Value: TStrings);
+    function NeedsReferencedDataset: boolean;
+    function GetCurrentChange: TDADeltaChange;
+    procedure SetBusinessRulesID(const Value: string);
+    procedure SetupParameters(const aCommand: IDASQLCommand; aReferencedDataset : TDADataset; const aConnection: IDAConnection; AUnionMapping: TDAColumnMappingCollection = nil);
+    procedure SetRefreshDataset(const Value: string);
+
+    procedure RefreshDeltaChange(const aConnection : IDAConnection; const aRefreshDataset: IDADataset;
+      const aDelta: IDADelta; aDeltaChange: TDADeltaChange; GenAutoIncValue : variant);
+    function SetupRefreshDatasetForReducedDelta(const aConnection: IDAConnection; const aDelta: IDADelta):IDADataset;
+    procedure SetProcessorOptions(const Value: TDAProcessorOptions);
+  protected
+    procedure SetupCommands(const aConnection: IDAConnection; const aDelta: IDADelta;
+                            out anInsertCmd, anUpdateCmd, anUpdateCMD_AutoInc, aDeleteCmd: IDASQLCommand;
+                            out aRefreshDs : IDADataset; out aTargetTable : string); overload;dynamic;
+    procedure SetupCommands(const aConnection: IDAConnection; const aChange: TDADeltaChange;
+                            out anCmd: IDASQLCommand; out aTargetTable : string; aUseAutoIncUpdate: Boolean=False); overload;dynamic;
+    // For unions
+    procedure SetupCommands(const aConnection: IDAConnection; const aDelta: IDADelta;
+                            out aCommandsList : TDADeltaProcessorItemCollection); overload;dynamic;
+    procedure SetupCommandsWithMapping(const aConnection: IDAConnection; const aChange: TDADeltaChange;
+              out anCmd: IDASQLCommand; out aParamMapping: TDAParamMappingArray; out aRefreshDs: IDADataset; out aTargetTable : string; aUseAutoIncUpdate: Boolean=False);
+
+
+    procedure CreateMappings(const aDelta: IDADelta; var MappingArray: TDAParamMappingArray; const aCommand: IDASQLCommand; lAdditionalMapping: TDAColumnMappingCollection = nil; AValidateCommand: Boolean = False);
+
+    function GenerateSQL2(aChangeType: TDAChangeType;
+      aChange: TDADeltaChange;
+      aDataset: TDADataset;
+      const aDelta: IDADelta;
+      aDatasetStatement: TDAStatement;
+      aConnection: IDAConnection;aUseAutoIncUpdate: Boolean=False): string;
+    { IDASQLGenerator }
+    function GenerateSQL(aChangeType: TDAChangeType;
+      aChange: TDADeltaChange;
+      aDataset: TDADataset;
+      const aDelta: IDADelta;
+      aDatasetStatement: TDAStatement;
+      aConnection: IDAConnection): string; dynamic;
+
+    procedure UpdateSQLForOracle(aChangeType: TDAChangeType;
+      aDataset: TDADataset; const aDelta: IDADelta;
+      aDatasetStatement: TDAStatement; aConnection: IOracleConnection;
+      var OriginalSQL: string);
+
+    function GenerateRefreshDataset(aDataset: TDADataset; const aDelta: IDADelta;
+      aDatasetStatement: TDAStatement; aConnection: IDAConnection): IDADataset; overload;
+
+    function GenerateRefreshDataset(aDataset: TDADataset; aConnection: IDAConnection;
+      const aTargetTable : String; aColumnMappings, AUnionMapping: TDAColumnMappingCollection): IDADataset; overload;
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    // IInterface
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override;
+
+    function GetConnectionForObject(const aConnection: IDAConnection; const aName: string): IDAConnection;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure SynchronizeAutoIncs(const aMasterDelta, aDetailDelta : IDADelta;
+                                  const aRelationship : TDADatasetRelationship);
+
+    procedure ProcessDelta(const aConnection: IDAConnection;
+      const aDelta: IDADelta;
+      ChangeTypes: TDAChangeTypes = AllChanges; ADeltaStruct : TDADeltaStruct = nil); overload;
+
+    procedure ProcessDelta(aDataTable: TDADataTable;
+      ChangeTypes: TDAChangeTypes; const aConnection : IDAConnection = NIL; ADeltaStruct : TDADeltaStruct = nil); overload;
+
+    procedure ProcessDeltaForUnion(const aConnection: IDAConnection;
+      const aDelta: IDADelta; ChangeTypes: TDAChangeTypes = AllChanges; ADeltaStruct : TDADeltaStruct = nil);
+
+
+    property CurrentDelta: TDADelta read fCurrentDelta;
+    property CurrentChange: TDADeltaChange read GetCurrentChange;
+    property HasReducedDelta: Boolean read fHasReducedDelta write fHasReducedDelta;
+    procedure CheckProperties;
+  published
+    property OnBeforeProcessDelta: TDAProcessDeltaEvent read fOnBeforeProcessDelta write fOnBeforeProcessDelta;
+    property OnAfterProcessDelta: TDAProcessDeltaEvent read fOnAfterProcessDelta write fOnAfterProcessDelta;
+    property OnBeforeProcessChange: TDABeforeProcessChangeEvent read fOnBeforeProcessChange write fOnBeforeProcessChange;
+    property OnAfterProcessChange: TDAAfterProcessChangeEvent read fOnAfterProcessChange write fOnAfterProcessChange;
+    property OnProcessChange: TDAProcessChangeEvent read fOnProcessChange write fOnProcessChange;
+    property OnProcessError: TDAProcessErrorEvent read fOnProcessError write fOnProcessError;
+    property OnGenerateSQL: TDAGenerateSQLEvent read fOnGenerateSQL write fOnGenerateSQL;
+    property OnRefreshDeltaChange: TDARefreshDeltaChangeEvent read fOnRefreshDeltaChange write fOnRefreshDeltaChange;
+
+    property Schema: TDASchema read fSchema write SetSchema;
+
+    property InsertCommandName: string read fInsertCommandName write SetInsertCommandName;
+    property DeleteCommandName: string read fDeleteCommandName write SetDeleteCommandName;
+    property UpdateCommandName: string read fUpdateCommandName write SetUpdateCommandName;
+    property RefreshDatasetName: string read fRefreshDataset write SetRefreshDataset;
+
+    property ReferencedDataset: string read fReferencedDataset write SetReferencedDataset;
+    property ProcessorOptions: TDAProcessorOptions read fProcessorOptions write SetProcessorOptions;
+
+    property UpdateMode: TDAUpdateMode read fUpdateMode write fUpdateMode;
+    property UserUpdateFields: TStrings read GetUserUpdateFields write SetUserUpdateFields;
+
+    property BusinessRulesID: string read fBusinessRulesID write SetBusinessRulesID;
+    property RaiseExceptionAtError: boolean read FRaiseExceptionAtError write FRaiseExceptionAtError default False;
+  end;
+
+  { TDABusinessProcessorRules }
+  TDABusinessProcessorRules = class(TDABusinessRules, IDAStronglyTypedDataTable)
+  private
+    fBusinessProcessor: TDABusinessProcessor;
+  protected
+    property BusinessProcessor: TDABusinessProcessor read fBusinessProcessor;
+
+    // Misc
+    procedure Attach(aBusinessProcessor: TDABusinessProcessor); virtual;
+    procedure Detach(aBusinessProcessor: TDABusinessProcessor); virtual;
+
+    // Business events
+    procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); virtual;
+    procedure AfterProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); virtual;
+    procedure BeforeProcessChange(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; var ProcessChange: boolean); virtual;
+    procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: boolean; var CanRemoveFromDelta: boolean); virtual;
+    procedure ProcessChange(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; const aCommand: IDASQLCommand); virtual;
+    procedure ProcessError(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange;
+      const aCommand: IDASQLCommand; var CanRemoveFromDelta: boolean; Error: Exception); virtual;
+    procedure GenerateSQL(Sender: TDABusinessProcessor; ChangeType: TDAChangeType; const ReferencedStatement: TDAStatement;
+      const aDelta: IDADelta; var SQL: string); virtual;
+
+    procedure NotSupportedByBusinessProcessor;
+    procedure Open;
+    procedure Close;
+
+    function GetActive: boolean;
+    procedure SetActive(const Value: boolean);
+
+    procedure Append;
+    procedure Cancel;
+    procedure Delete;
+    procedure Edit;
+    procedure First;
+    procedure Insert;
+    procedure Last;
+    procedure Next;
+    procedure Post;
+    procedure Prior;
+    function GetBOF: Boolean;
+    function GetEOF: Boolean;
+    function GetRecordCount: Integer;
+    function Locate(const aKeyFields: String; const aKeyValues: Variant; aOptions: TLocateOptions = []): Boolean;
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant;
+
+    function GetMasterOptions : TDAMasterOptions;
+    procedure SetMasterOptions(Value : TDAMasterOptions);
+    function GetDetailOptions : TDADetailOptions;
+    procedure SetDetailOptions(Value : TDADetailOptions);
+    function GetState : TDatasetState;
+    function GetIsEmpty : boolean;
+
+    function IsFieldNull(const FieldIndexOrName : Variant) : boolean;
+    procedure ClearField(const FieldIndexOrName : Variant);
+
+    function GetDataTable : TDADataTable;
+
+    function GetRecNo: integer;
+    procedure SetRecNo(Value: integer);
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); reintroduce; virtual;
+  end;
+
+  TDABusinessProcessorRulesClass = class of TDABusinessProcessorRules;
+
+  TDADeltaProcessorItem = class(TCollectionItem)
+  private
+    fName: String;
+    fRefreshDataset: IDADataset;
+
+    fInsertCommand: IDASQLCommand;
+    fUpdateCommand: IDASQLCommand;
+    fUpdateCommand_AutoInc: IDASQLCommand;
+    fDeleteCommand: IDASQLCommand;
+
+    fInsertCommandMapping: TDAParamMappingArray;
+    fUpdateCommandMapping: TDAParamMappingArray;
+    fUpdateCommandMapping_AutoInc: TDAParamMappingArray;
+    fDeleteCommandMapping: TDAParamMappingArray;
+    fTargetTable: string;
+
+  public
+    property TargetTable: string read fTargetTable write fTargetTable;
+    property RefreshDataset: IDADataset read fRefreshDataset write fRefreshDataset;
+
+    property InsertCommand: IDASQLCommand read fInsertCommand write fInsertCommand;
+    property UpdateCommand: IDASQLCommand read fUpdateCommand write fUpdateCommand;
+    property UpdateCommand_AutoInc: IDASQLCommand read fUpdateCommand_AutoInc write fUpdateCommand_AutoInc;
+    property DeleteCommand: IDASQLCommand read fDeleteCommand write fDeleteCommand;
+
+    property InsertCommandMapping: TDAParamMappingArray read fInsertCommandMapping write fInsertCommandMapping;
+    property UpdateCommandMapping: TDAParamMappingArray read fUpdateCommandMapping write fUpdateCommandMapping;
+    property UpdateCommandMapping_AutoInc: TDAParamMappingArray read fUpdateCommandMapping_AutoInc write fUpdateCommandMapping_AutoInc;
+    property DeleteCommandMapping: TDAParamMappingArray read fDeleteCommandMapping write fDeleteCommandMapping;
+  published
+    property Name: String read fName write fName;
+  end;
+
+  TDADeltaProcessorItemCollection = class(TSearcheableCollection)
+  private
+    function GetItem(Index: integer): TDADeltaProcessorItem;
+    procedure SetItem(Index: integer; const Value: TDADeltaProcessorItem);
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner: TComponent);
+    function Add: TDADeltaProcessorItem; reintroduce;
+    function ItemByName(const aName: String): TDADeltaProcessorItem;
+    property Items[Index: integer]: TDADeltaProcessorItem read GetItem write SetItem; default;
+  end;
+
+
+// Registration routines
+procedure RegisterBusinessProcessorRules(const anID: string; const aDeltaChangeClass: TDABusinessProcessorRulesClass);
+function FindBusinessProcessorRules(const anID: string; out aDeltaChangeClass: TDABusinessProcessorRulesClass): boolean;
+
+implementation
+
+uses
+  {$IFDEF DEBUG_DATAABSTRACT_SQL}
+  eDebugServer,
+  {$ENDIF}
+  uROClasses, Variants, TypInfo, Types, uDAEngine;
+
+{$IFDEF DEBUG_DATAABSTRACT_SQL}
+const
+  cat_SQL = 'SQL Generation';
+{$ENDIF}
+
+var
+  _bizdeltachanges: TStringList;
+
+procedure RegisterBusinessProcessorRules(const anID: string; const aDeltaChangeClass: TDABusinessProcessorRulesClass);
+var
+  idx: integer;
+begin
+  idx := _bizdeltachanges.IndexOf(anID);
+
+  if (idx >= 0) then
+    _bizdeltachanges.Objects[idx] := TObject(aDeltaChangeClass)
+  else
+    _bizdeltachanges.AddObject(anID, TObject(aDeltaChangeClass));
+end;
+
+function FindBusinessProcessorRules(const anID: string; out aDeltaChangeClass: TDABusinessProcessorRulesClass): boolean;
+var
+  idx: integer;
+begin
+  result := FALSE;
+  idx := _bizdeltachanges.IndexOf(anID);
+  if (idx >= 0) then begin
+    aDeltaChangeClass := TDABusinessProcessorRulesClass(_bizdeltachanges.Objects[idx]);
+    result := TRUE;
+  end
+  else
+    aDeltaChangeClass := nil;
+end;
+
+function QuoteIdentifier(const aConnection : IDAConnection; const aFieldName: string): string;
+begin
+  {if (Pos(' ', aFieldName) > 0) then
+    result := QuoteChars[0] + aFieldName + QuoteChars[1]
+  else
+    result := aFieldName;}
+  result := aConnection.QuoteIdentifierIfNeeded(aFieldName);
+end;
+
+function QuoteFieldName(const aConnection : IDAConnection; const aTableName,aFieldName: string): string;
+begin
+  result := aConnection.QuoteFieldNameIfNeeded(aTableName, aFieldName);
+end;
+
+function QuoteParamName(const aConnection : IDAConnection; const aParamName: string): string;
+begin
+  if (pos('.',aParamName) >0) or (pos(' ',aParamName) >0) then
+    result := AnsiQuotedStr(aParamName,'"')
+  else
+    Result:= aParamName;
+end;
+
+
+{ TDADeltaStruct }
+
+constructor TDADeltaStruct.Create(const aDelta : IDADelta; aBusinessProcessor : TDABusinessProcessor);
+begin
+  inherited Create;
+
+  fDelta := aDelta;
+  fBusinessProcessor := aBusinessProcessor;
+  fDetailDeltas := TDADeltaList.Create;
+  fRelationShips := TDADatasetRelationshipList.Create;
+end;
+
+destructor TDADeltaStruct.Destroy;
+begin
+  inherited;
+
+  FreeAndNIL(fDetailDeltas);
+  FreeAndNIL(fRelationShips);
+end;
+
+{ TDADeltaStructList }
+
+function TDADeltaStructList.Add(const aDelta : IDADelta; aBusinessProcessor : TDABusinessProcessor): TDADeltaStruct;
+begin
+  result := TDADeltaStruct.Create(aDelta, aBusinessProcessor);
+  inherited Add(result);
+end;
+
+function TDADeltaStructList.FindStruct(
+  const aLogicalName: string): TDADeltaStruct;
+var i : integer;
+begin
+  result := NIL;
+  for i := 0 to (Count-1) do
+    if SameText(DeltaStructs[i].Delta.LogicalName, aLogicalName) then begin
+      result := DeltaStructs[i];
+      Exit;
+    end;
+end;
+
+function TDADeltaStructList.GetDADeltaStructs(
+  Index: integer): TDADeltaStruct;
+begin
+  result := TDADeltaStruct(inherited Items[Index])
+end;
+
+function TDADeltaStructList.StructByLogicalName(
+  const aLogicalName: string): TDADeltaStruct;
+begin
+  result := FindStruct(aLogicalName);
+  if result=NIL then raise Exception.Create('Cannot find struct '+aLogicalName);
+end;
+
+{ TDABusinessProcessor }
+
+constructor TDABusinessProcessor.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fUserUpdateFields := TStringList.Create;
+  fProcessorOptions := [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands, poAutoGenerateRefreshDataset];
+  fUpdateMode := updWhereKeyOnly;
+end;
+
+destructor TDABusinessProcessor.Destroy;
+begin
+  Schema := nil;
+  FreeAndNIL(fUserUpdateFields);
+
+  if (fBusinessRules <> nil) then begin
+    fBusinessRules.Detach(Self);
+    fBusinessRules.Free;
+  end;
+
+  inherited;
+end;
+
+function TDABusinessProcessor.GetUserUpdateFields: TStrings;
+begin
+  result := fUserUpdateFields
+end;
+
+procedure TDABusinessProcessor.SetUserUpdateFields(Value: TStrings);
+begin
+  fUserUpdateFields.Assign((Value));
+end;
+
+procedure TDABusinessProcessor.CreateMappings(const aDelta: IDADelta; var MappingArray: TDAParamMappingArray; const aCommand: IDASQLCommand; lAdditionalMapping: TDAColumnMappingCollection = nil; AValidateCommand: Boolean = False);
+var
+  lDeltaFieldList: TStringList;
+  lAdditionalMappingList: TStringList;
+
+  function isPresentInDelta(str: string): boolean;
+  var
+    i: integer;
+  begin
+    if lAdditionalMapping <> nil then begin
+      i := lAdditionalMappingList.IndexOf(str);
+      if i <> -1 then
+        str := TDAColumnMapping(lAdditionalMappingList.Objects[i]).DatasetField;
+//      else        str := lAdditionalMapping.MappingByTableField(str).DatasetField; // raise 'native' exception
+    end;
+    Result := lDeltaFieldList.IndexOf(str) <> -1;
+  end;
+
+var
+  i,j: integer;
+  lParamName : string;
+  lDeltaIndex : integer;
+  lFieldName: String;
+begin
+  if aCommand = nil then Exit;
+
+  // The command is what determines how many mappings will be done
+  SetLength(MappingArray, aCommand.Params.Count);
+  lDeltaFieldList := TStringList.Create;
+  lAdditionalMappingList := TStringList.Create;
+  try
+    for i := 0 to aDelta.LoggedFieldCount-1 do
+      lDeltaFieldList.Add(aDelta.LoggedFieldNames[i]);
+    lDeltaFieldList.Sorted:=True;
+
+    if lAdditionalMapping <> nil then
+      for i:= 0 to lAdditionalMapping.Count -1 do
+        lAdditionalMappingList.AddObject(lAdditionalMapping[i].TableField, lAdditionalMapping[i]);
+
+    for i := 0 to (aCommand.Params.Count - 1) do begin
+      MappingArray[i].CommandIndex := 0;
+
+      lParamName := UpperCase(aCommand.Params[i].Name);
+
+      // Determines the mapping type
+      if (Pos(MappingPrefix[mtOldValue], lParamName) = 1) and not isPresentInDelta(lParamName) then
+        MappingArray[i].MappingType := mtOldValue
+
+      {else if (Pos(MappingPrefix[mtNullCheck], lParamName) = 1)
+        then MappingArray[i].MappingType := mtNullCheck}
+
+      else MappingArray[i].MappingType := mtNewValue;
+
+      if (MappingArray[i].MappingType = mtOldValue) then
+        lFieldName := Copy(aCommand.Params[i].Name, Length(MappingPrefix[mtOldValue])+1, MaxInt)
+      else
+        lFieldName := aCommand.Params[i].Name;
+
+      // if lAdditionalMapping is assigned (usually incase delta for union table)
+      // then translate it
+      if Assigned(lAdditionalMapping) then begin
+        j := lAdditionalMappingList.IndexOf(lFieldName);
+        if j <> -1 then
+          lFieldName := TDAColumnMapping(lAdditionalMappingList.Objects[j]).DatasetField
+        else
+          lFieldName := lAdditionalMapping.MappingByTableField(lFieldName).DatasetField; // raise "native" exception
+      end;
+
+      if AValidateCommand and
+         (lDeltaFieldList.IndexOf(lFieldName) = -1) then raise Exception.CreateFmt('%s command can''t be used as delta command for %s datatable: parameters mismatch',[aCommand.Name,aDelta.LogicalName]);
+
+      // Finds the index for this value in the delta
+      lDeltaIndex := aDelta.IndexOfLoggedField(lFieldName);
+
+      MappingArray[i].DeltaIndex := lDeltaIndex;
+
+      MappingArray[i].GeneratorName := aCommand.ParamByName(lParamName).GeneratorName;
+      MappingArray[i].GeneratorValue := -1;
+    end;
+  finally
+    lDeltaFieldList.Free;
+    lAdditionalMappingList.Free;
+  end;
+end;
+
+function TDABusinessProcessor.GenerateRefreshDataset(aDataset: TDADataset;
+  aConnection: IDAConnection;
+  const aTargetTable: String;
+  aColumnMappings, AUnionMapping: TDAColumnMappingCollection): IDADataset;
+var
+  i: integer;
+ // namesstr,
+  fullsql,
+  fieldsstr,
+  keystr,
+  //remotename,
+  lFieldName,
+  lParamName,
+  localname: string;
+  fld: TDAField;
+begin
+  result := aConnection.NewDataset('');
+  fieldsstr := '';
+//  namesstr := '';
+  keystr := '';
+
+  with aDataset do try
+    // Generates the SELECT
+    for i := 0 to Fields.Count-1 do begin
+      if not (Fields[i].DataType in [datAutoInc,datLargeAutoInc]) and
+         (not Fields[i].ServerAutoRefresh or Fields[i].Lookup or Fields[i].ServerCalculated) then Continue;
+
+      localname := QuoteFieldName(aConnection, aTargetTable, aColumnMappings.MappingByDatasetField(Fields[i].Name).TableField);
+
+      if AUnionMapping <> nil then
+        lFieldName := AUnionMapping.MappingByTableField(Fields[i].Name).DatasetField
+      else
+        lFieldName := Fields[i].Name;
+
+      if (AUnionMapping <> nil) and (localname <> lFieldName) then
+        fieldsstr := fieldsstr+localname+' as '+QuoteFieldName(aConnection, aTargetTable, lFieldName)+','+#13#10
+      else
+        fieldsstr := fieldsstr+localname+','+#13#10;
+
+      with result.Fields.Add do begin
+        AssignField(Fields[i]);
+        Name := lFieldName;
+      end;
+    end;
+    if (fieldsstr='') then Exit;
+    fieldsstr := Copy(fieldsstr,1, Length(fieldsstr)-3{ = Lenght(','+#13#10) })+#13#10;
+
+    // Generates the WHERE using the primary key fields
+    for i := 0 to Fields.Count-1 do begin
+      if not Fields[i].InPrimaryKey then Continue;
+
+      localname := QuoteFieldName(aConnection,aTargetTable, aColumnMappings.MappingByDatasetField(Fields[i].Name).TableField);
+      if AUnionMapping <> nil then
+        lParamName := AUnionMapping.MappingByTableField(Fields[i].Name).DatasetField
+      else
+        lParamName := Fields[i].Name;
+      keystr := keystr+Format('%s = :%s', [localname, lParamName])+' AND '+#13#10;
+    end;
+    if (keystr='') then begin
+      // try to create WHERE with AutoInc fields
+      for i := 0 to Fields.Count-1 do begin
+        if not (Fields[i].DataType in [datAutoInc,datLargeAutoInc]) then Continue;
+
+        localname := QuoteFieldName(aConnection,aTargetTable, aColumnMappings.MappingByDatasetField(Fields[i].Name).TableField);
+        if AUnionMapping <> nil then
+          lParamName := AUnionMapping.MappingByTableField(Fields[i].Name).DatasetField
+        else
+          lParamName := Fields[i].Name;
+        keystr := keystr+Format('%s = :%s', [localname, lParamName])+' AND '+#13#10;
+      end;
+    end;
+    if (keystr='') then Exit;
+    keystr := Copy(keystr,1, Length(keystr)-6 {Length( 'AND '+#13#10)})+#13#10;
+
+    // Combines the two
+    fullsql := 'SELECT '#13#10+fieldsstr+' FROM '+ QuoteIdentifier(aConnection, aTargetTable) +#13#10+' WHERE '+#13#10+keystr;
+    result.SQL := fullsql;
+
+    {$IFDEF DEBUG_DATAABSTRACT_SQL}DebugServer.Write([cat_SQL], result.SQL);{$ENDIF}
+
+    for i := 0 to (aColumnMappings.Count - 1) do begin
+      fld := result.FindField(aColumnMappings[i].DatasetField);
+      if Assigned(fld) then begin
+        fld.TableField := aColumnMappings[i].TableField;
+        fld.SQLOrigin := aColumnMappings[i].SQLOrigin;
+      end;
+    end;
+
+  finally
+    if (result.SQL='') then result := NIL;
+  end;
+end;
+
+function TDABusinessProcessor.GenerateSQL(aChangeType: TDAChangeType;
+  aChange: TDADeltaChange;
+  aDataset: TDADataset;
+  const aDelta: IDADelta;
+  aDatasetStatement: TDAStatement;
+  aConnection: IDAConnection): string;
+begin
+  Result := GenerateSQL2(aChangeType,aChange,aDataset,aDelta,aDatasetStatement,aConnection);
+end;
+
+function TDABusinessProcessor.GenerateSQL2(aChangeType: TDAChangeType;
+  aChange: TDADeltaChange;
+  aDataset: TDADataset;
+  const aDelta: IDADelta;
+  aDatasetStatement: TDAStatement;
+  aConnection: IDAConnection;
+  aUseAutoIncUpdate: Boolean = False): string;
+
+  function _GetTableField(aMapping: TDAColumnMappingCollection; aDatasetField: string): string;
+  begin
+    if aMapping.Count = 0 then
+      Result:= aDatasetField
+    else
+      Result:= aMapping.MappingByDatasetField(aDatasetField).TableField;
+  end;
+
+var
+  i: integer;
+  namesstr,
+  valuesstr,
+  keystr,
+  remotename,
+  localname: string;
+  oraconn : IOracleConnection;
+  fld : TDAField;
+  usegenerators : boolean;
+  //lIsUnionTable : Boolean;
+  lUnionTable: TDAUnionDataTable;
+  lSrcTable: TDAUnionSourceTable;
+  lUpdateMode: TDAUpdateMode;
+  lPKList: TStringList;
+begin
+  result := '';
+  valuesstr := '';
+  namesstr := '';
+  keystr := '';
+  lSrcTable := nil;
+  if aDatasetStatement.TargetTable = '' then raise Exception.Create(aDelta.LogicalName+'. Can''t generate a delta''s SQL. TargetTable isn''t assigned.');
+  // If passed dataset is a source table for uniontable then lSrcTable will be assigned (used for distinguish unionsourcetables)
+  lUnionTable := fSchema.UnionDataTables.FindItem(fReferencedDataset) as TDAUnionDataTable;
+  if assigned(lUnionTable) then begin
+    lSrcTable := lUnionTable.SourceTables.UnionSourceTableByName(aDataset.Name);
+  end;
+
+  usegenerators := Supports(aConnection, IDAUseGenerators) or Supports(aConnection, IDAUseGenerators2);
+  lUpdateMode:=fUpdateMode;
+  if (aDelta.KeyFieldCount=0) and (lUpdateMode = updWhereKeyOnly) then
+    lUpdateMode:=updWhereAll;
+  lPKList:= TStringList.Create;
+  try
+    with aDatasetStatement, aDelta do begin
+      for i := 0 to (KeyFieldCount - 1) do
+        lPKList.Add(KeyFieldNames[i]);
+      lPKList.Sorted:=True;
+      // Generates the WHERE conditions. Done here because used by both deletes and updates
+      if (aChangeType <> ctInsert) then begin
+        case lUpdateMode of
+          updWhereKeyOnly, updWhereKeyAndUserDefined: begin
+              for i := 0 to (KeyFieldCount - 1) do begin
+                remotename := KeyFieldNames[i];
+
+                // If this is UnionSourceDataTable then we should do fields remapping
+                if Assigned(lSrcTable) then begin
+                  if SameText(remotename, def_SourceTableFieldName) then Continue;
+                  remotename := _GetTableField(lSrcTable.ColumnMappings, remotename);
+                end;
+
+                localname := QuoteFieldName(aConnection,aDatasetStatement.TargetTable, _GetTableField(ColumnMappings,remotename));
+                keystr := keystr + #13#10'(' + localname + '=:'+QuoteParamName(aConnection, MappingPrefix[mtOldValue] + remotename)+ ') AND ';
+              end;
+            end;
+
+          updWhereAll: begin
+              for i := 0 to (LoggedFieldCount - 1) do begin
+                remotename := LoggedFieldNames[i];
+
+                // If this is UnionSourceDataTable then we should do fields remapping
+                if Assigned(lSrcTable) then begin
+                  if SameText(remotename, def_SourceTableFieldName) then Continue;
+                  remotename := _GetTableField(lSrcTable.ColumnMappings,remotename);
+                end;
+
+                localname := QuoteFieldName(aConnection,aDatasetStatement.TargetTable, _GetTableField(ColumnMappings,remotename));
+                if (aDataset.FieldByName(remotename).DataType in [datBlob, datMemo]) then Continue;
+                if assigned(aChange) and ROVariantsEqual(aChange.OldValueByName[remotename],aChange.NewValueByName[remotename]) and (lPKList.IndexOf(remotename) = -1) then Continue;
+                keystr := keystr + #13#10'((' + localname + '=:'+QuoteParamName(aConnection, MappingPrefix[mtOldValue] + remotename) + ') OR (:'+QuoteParamName(aConnection, MappingPrefix[mtOldValue] + remotename) +
+                          ' IS NULL AND ' + localname + ' IS NULL)) AND ';
+              end;
+            end;
+        end;
+
+        if (lUpdateMode in [updWhereKeyAndUserDefined, updWhereUserDefined]) then begin
+          for i := 0 to (fUserUpdateFields.Count - 1) do begin
+            remotename := fUserUpdateFields[i];
+
+            // If this is UnionSourceDataTable then we should do fields remapping
+            if Assigned(lSrcTable) then begin
+              if SameText(remotename, def_SourceTableFieldName) then Continue;
+              remotename := _GetTableField(lSrcTable.ColumnMappings,remotename);
+            end;
+
+            localname := QuoteFieldName(aConnection, aDatasetStatement.TargetTable, _GetTableField(ColumnMappings,remotename));
+            if assigned(aChange) and ROVariantsEqual(aChange.OldValueByName[remotename],aChange.NewValueByName[remotename]) then Continue;
+            keystr := keystr + #13#10'((' + localname + '=:'+QuoteParamName(aConnection, MappingPrefix[mtOldValue] + remotename) + ') OR (:'+QuoteParamName(aConnection,MappingPrefix[mtOldValue] + remotename) +
+                      ' IS NULL AND ' + localname + ' IS NULL)) AND ';
+          end;
+        end;
+
+        keystr := Copy(keystr, 1, Length(keystr) - 5 {=Length(' AND ')});
+      end;
+
+      // Remaining part of the SQL command
+      case aChangeType of
+        // Insert
+        ctInsert: begin
+            result := 'INSERT INTO ' + QuoteIdentifier(aConnection, aDatasetStatement.TargetTable) + ' ('#13#10;
+
+            for i := 0 to (LoggedFieldCount - 1) do begin
+              remotename := LoggedFieldNames[i];
+
+              // If this is UnionSourceDataTable then we should do fields remapping
+              if Assigned(lSrcTable) then begin
+                if SameText(remotename, def_SourceTableFieldName) then Continue;
+                remotename := _GetTableField(lSrcTable.ColumnMappings,remotename);
+              end;
+
+
+              fld := aDataset.Fields.FieldByName(remotename);
+              if ((fld.DataType in [datAutoInc,datLargeAutoInc]) and not usegenerators) // Skips autoincs on DBs like MSSQL
+                or (fld.Calculated) or (fld.ReadOnly) or (fld.ServerCalculated)
+                 then Continue;
+              if (Assigned(aChange) and (VarIsNull(aChange.NewValues[i]) or VarIsEmpty(aChange.NewValues[i]))) then Continue;
+
+              localname := _GetTableField(ColumnMappings,remotename);
+              if localname = mapping_Unknown then Continue;
+              localname := QuoteFieldName(aConnection, aDatasetStatement.TargetTable, localname);
+
+              namesstr := namesstr + localname + ', ';
+              valuesstr := valuesstr + ':' +QuoteParamName(aConnection, remotename) + ', ';
+            end;
+            if Assigned(aChange) and (namesstr = '') then begin
+              Result := '';
+            end
+            else begin
+              namesstr := Copy(namesstr, 1, Length(namesstr) - 2 {=Length(', ')}) + ')';
+              valuesstr := Copy(valuesstr, 1, Length(valuesstr) - 2{=Length(', ')}) + ')';
+
+              result := result + namesstr + #13#10' VALUES (' + valuesstr;
+            end;
+          end;
+
+        // Delete
+        ctDelete: result := 'DELETE FROM ' + QuoteIdentifier(aConnection, aDatasetStatement.TargetTable) + #13#10' WHERE ' + keystr;
+
+        // Update
+        ctUpdate: begin
+            result := '';
+
+            for i := 0 to (LoggedFieldCount - 1) do begin
+              remotename := LoggedFieldNames[i];
+
+              // If this is UnionSourceDataTable then we should do fields remapping
+              if Assigned(lSrcTable) then begin
+                if SameText(remotename, def_SourceTableFieldName) then Continue;
+                remotename := _GetTableField(lSrcTable.ColumnMappings,remotename);
+              end;
+
+
+              fld := aDataset.Fields.FieldByName(remotename);
+              if (fld.DataType in [datAutoInc,datLargeAutoInc]) and not aUseAutoIncUpdate then Continue; // Skips autoincs
+              if (fld.InPrimaryKey and not fld.LogChanges) then Continue;
+              if (fld.Calculated) or (fld.ReadOnly) or (fld.ServerCalculated) then Continue;
+              if assigned(aChange) and ROVariantsEqual(aChange.OldValues[i],aChange.NewValues[i]) then Continue;
+              localname := _GetTableField(ColumnMappings,remotename);
+              if localname = mapping_Unknown then Continue;             
+              localname := QuoteFieldName(aConnection, aDatasetStatement.TargetTable, localname);
+
+              if (result<>'') then result := result + ', ';
+              result := result + #13#10 + localname + '= :' + QuoteParamName(aConnection,remotename);
+              //if (i < LoggedFieldCount - 1) then result := result + ', ';
+            end;
+            if assigned(aChange) and (Result = '') then begin
+              //
+            end
+            else begin
+              result := 'UPDATE '+QuoteIdentifier(aConnection, aDatasetStatement.TargetTable)+' SET '+result+#13#10' WHERE '+keystr;
+            end;
+          end;
+      end;
+    end;
+  finally
+    lPKList.Free;
+  end;
+
+  // Exception for Oracle's SQL
+  if Supports(aConnection, IOracleConnection, oraconn)
+    then UpdateSQLForOracle(aChangeType, aDataset, aDelta, aDatasetStatement, oraconn, result);
+
+  // Events
+  if Assigned(fOnGenerateSQL) then
+    fOnGenerateSQL(Self, aChangeType, aDatasetStatement, aDelta, result)
+  else if Assigned(fBusinessRules) then
+    fBusinessRules.GenerateSQL(Self, aChangeType, aDatasetStatement, aDelta, result);
+
+  {$IFDEF DEBUG_DATAABSTRACT_SQL}DebugServer.Write([cat_SQL], Result);{$ENDIF}
+end;
+
+procedure TDABusinessProcessor.UpdateSQLForOracle(aChangeType: TDAChangeType;
+  aDataset: TDADataset;
+  const aDelta: IDADelta;
+  aDatasetStatement: TDAStatement;
+  aConnection: IOracleConnection;
+  var OriginalSQL: string);
+var i : integer;
+    returningstr, intostr : string;
+begin
+  returningstr := '';
+  intostr := '';
+
+  with aDataset do begin
+    for i := 0 to (Fields.Count-1) do begin
+
+      if not aDataset.Fields[i].LogChanges then Continue;
+
+      case Fields[i].BlobType  of
+        dabtOraBlob : begin
+          OriginalSQL := StringReplace(OriginalSQL, ':'+Fields[i].Name, 'empty_blob()', [rfIgnoreCase])
+        end;
+
+        dabtOraClob : begin
+          OriginalSQL := StringReplace(OriginalSQL, ':'+Fields[i].Name, 'empty_clob()', [rfIgnoreCase])
+        end;
+
+        else Continue;
+      end;
+
+      returningstr := returningstr+Fields[i].Name+',';
+      intostr := intostr+':'+Fields[i].Name+',';
+    end;
+  end;
+
+  if (returningstr<>'') then begin
+    Delete(returningstr, Length(returningstr), 1);
+    returningstr := 'RETURNING '+#13#10+returningstr+#13#10;
+
+    Delete(intostr, Length(intostr), 1);
+    intostr := 'INTO '+#13#10+intostr;
+
+    OriginalSQL := OriginalSQL+#13#10+returningstr+intostr;
+  end;
+
+  {$IFDEF DEBUG_DATAABSTRACT_SQL}DebugServer.Write([cat_SQL], OriginalSQL);{$ENDIF}
+end;
+
+function TDABusinessProcessor.NeedsReferencedDataset: boolean;
+begin
+  result :=
+    (
+    ((poAutoGenerateInsert in fProcessorOptions) and (InsertCommandName = '')) or
+    ((poAutoGenerateUpdate in fProcessorOptions) and (UpdateCommandName = '')) or
+    ((poAutoGenerateDelete in fProcessorOptions) and (DeleteCommandName = '')) or
+    ((poAutoGenerateRefreshDataset in fProcessorOptions) and (RefreshDatasetName = ''))
+    );
+end;
+
+procedure TDABusinessProcessor.SetupParameters(const aCommand : IDASQLCommand;
+  aReferencedDataset : TDADataset; const aConnection: IDAConnection;AUnionMapping: TDAColumnMappingCollection);
+var lParams: TParams;
+    fldname: string;
+    i: integer;
+    par: TDAParam;
+    fld : TDAField;
+begin
+  lParams := TParams.Create;
+  try
+    Params_ParseSQL(lParams,aCommand.SQL, True, aConnection.GetQuoteChars);
+
+    with aCommand do begin
+      Params.Clear; // Just in case
+
+      for i := 0 to (lParams.Count - 1) do begin
+        fldname := lParams[i].Name;
+        if AUnionMapping <> nil then fldname := AUnionMapping.FindMappingByDatasetField(fldname).TableField;
+
+        // Checks if it's one of the autogenerated params
+        fld := aReferencedDataset.Fields.FindField(fldname);
+        if fld = nil then begin
+          if (Pos(MappingPrefix[mtOldValue], fldname)=1) then Delete(fldname, 1, Length(MappingPrefix[mtOldValue]));
+          fld := aReferencedDataset.Fields.FieldByName(fldname);
+        end;
+
+        {else if (Pos(MappingPrefix[mtNullCheck], fldname)=1)
+          then Delete(fldname, 1, Length(MappingPrefix[mtNullCheck]));}
+
+        // Looks up the field and completes the param definition
+
+        par := aCommand.Params.Add;
+        par.Name := lParams[i].Name;
+        par.DataType := fld.DataType;
+        par.BlobType := fld.BlobType;
+        par.ParamType := daptInput; // ODAC Blobs require it and this is not covered by AssignField below
+        {par.Size := fld.Size;
+        par.GeneratorName := fld.GeneratorName;}
+        par.AssignField(fld);
+        par.Name := lParams[i].Name; // Leave this here! Must override the Assign
+      end;
+    end;
+  finally
+    lParams.Free;
+  end;
+end;
+
+procedure TDABusinessProcessor.SetupCommands(const aConnection: IDAConnection; const aDelta: IDADelta;
+  out anInsertCmd, anUpdateCmd, anUpdateCMD_AutoInc, aDeleteCmd: IDASQLCommand; out aRefreshDs : IDADataset; out aTargetTable : string);
+var
+  sql: string;
+  refstmt: TDAStatement;
+  ds: TDADataset;
+  needsref: boolean;
+  i: integer;
+begin
+  anInsertCmd := nil;
+  aDeleteCmd := nil;
+  anUpdateCmd := nil;
+  ds := nil;
+  refstmt := nil;
+  CheckProperties;
+  // Looks for the referenced statement which contains field mappings and TargetTableName
+  // in case the user specifies any AutoGenerateXXX option
+  needsref := NeedsReferencedDataset;
+  if needsref then begin
+    ds := TDADataset(fSchema.Datasets.FindItem(fReferencedDataset));
+    if (ds <> nil) then begin
+      refstmt := fSchema.FindCommandStatement(aConnection,ds);
+//      refstmt := TDAStatement(ds.Statements.FindItem(aConnection.Name));
+//      if (refstmt = nil) then refstmt := ds.Statements.StatementByName(Schema.ConnectionManager.GetDefaultConnectionName);
+    end
+    else
+      RaiseError(Name + '''s referenced dataset is not speficied or does not exist. Cannot generate SQL');
+  end;
+
+
+  if refstmt <> nil then
+    aTargetTable := refstmt.TargetTable
+  else
+    aTargetTable := '';
+      
+  for i:= 0 to aDelta.Count-1 do
+    if aDelta.Changes[i].ChangeType = ctInsert then begin
+      // Tries to locate the specified commands
+      if (fInsertCommandName <> '') then anInsertCmd := fSchema.NewCommand(aConnection, fInsertCommandName);
+      // Auto generates the SQL for the undefined commands
+      if (anInsertCmd = nil) and (poAutoGenerateInsert in fProcessorOptions) then begin
+        sql := GenerateSQL(ctInsert, nil, ds, aDelta, refstmt, aConnection);
+        anInsertCmd := aConnection.NewCommand(sql, stSQL);
+        SetupParameters(anInsertCmd, ds, aConnection);
+      end;
+      Break;
+    end;
+
+  for i:= 0 to aDelta.Count-1 do
+    if aDelta.Changes[i].ChangeType = ctUpdate then begin
+      // Tries to locate the specified commands
+      if (fUpdateCommandName <> '') then begin
+        anUpdateCmd := fSchema.NewCommand(aConnection, fUpdateCommandName);
+        anUpdateCMD_AutoInc := fSchema.NewCommand(aConnection, fUpdateCommandName);
+      end;
+      // Auto generates the SQL for the undefined commands
+      if (anUpdateCmd = nil) and (poAutoGenerateUpdate in fProcessorOptions) then begin
+        sql := GenerateSQL(ctUpdate, nil, ds, aDelta, refstmt, aConnection);
+        anUpdateCmd := aConnection.NewCommand(sql, stSQL);
+        SetupParameters(anUpdateCmd, ds, aConnection);
+
+        // update for autoInc
+        sql := GenerateSQL2(ctUpdate, nil, ds, aDelta, refstmt, aConnection,True);
+        anUpdateCMD_AutoInc := aConnection.NewCommand(sql, stSQL);
+        SetupParameters(anUpdateCMD_AutoInc, ds, aConnection);
+      end;
+      Break;
+    end;
+
+  for i:= 0 to aDelta.Count-1 do
+    if aDelta.Changes[i].ChangeType = ctDelete then begin
+      // Tries to locate the specified commands
+      if (fDeleteCommandName <> '') then aDeleteCmd := fSchema.NewCommand(aConnection, fDeleteCommandName);
+      // Auto generates the SQL for the undefined commands
+      if (aDeleteCmd = nil) and (poAutoGenerateDelete in fProcessorOptions) then begin
+        sql := GenerateSQL(ctDelete, nil, ds, aDelta, refstmt, aConnection);
+        aDeleteCmd := aConnection.NewCommand(sql, stSQL);
+        SetupParameters(aDeleteCmd, ds, aConnection);
+      end;
+      Break;
+    end;
+
+  if (fRefreshDataset <> '')
+    then aRefreshDs := fSchema.NewDataset(aConnection, fRefreshDataset,[],'','',False,True);
+
+  if (aRefreshDs = nil) and (poAutoGenerateRefreshDataset in fProcessorOptions) then begin
+    aRefreshDs := GenerateRefreshDataset(ds, aDelta, refstmt, aConnection);
+    if (aRefreshDs<>NIL) then SetupParameters(aRefreshDs, ds, aConnection);
+  end;
+
+  // Finally prepares them
+  if (poPrepareCommands in fProcessorOptions) then begin
+    if (anInsertCmd <> nil) then anInsertCmd.Prepared := TRUE;
+    if (anUpdateCmd <> nil) then anUpdateCmd.Prepared := TRUE;
+    if (anUpdateCmd_AutoInc <> nil) then anUpdateCMD_AutoInc.Prepared := TRUE;
+    if (aDeleteCmd <> nil) then aDeleteCmd.Prepared := TRUE;
+    if (aRefreshDs <> NIL) then aRefreshDs.Prepared := TRUE;
+  end;
+end;
+
+function TDABusinessProcessor.GetCurrentChange: TDADeltaChange;
+begin
+  result := fCurrentDelta.Changes[fCurrentChange]
+end;
+
+const
+  lDynWhereParamPrefix = 'dynwhere';
+
+procedure TDABusinessProcessor.RefreshDeltaChange(const aConnection : IDAConnection;
+  const aRefreshDataset : IDADataset; const aDelta : IDADelta; aDeltaChange : TDADeltaChange; GenAutoIncValue : variant);
+var i : integer;
+    par : TDAParam;
+    nam: string;
+    val : Variant;
+    fld: TDAField;
+//    genname : string;
+begin
+  if VarIsNull(GenAutoIncValue) or VarIsEmpty(GenAutoIncValue) then GenAutoIncValue := -1;
+
+  // Sets the parameters of the dataset
+  for i := 0 to aRefreshDataset.Params.Count-1 do begin
+    par := aRefreshDataset.Params[i];
+
+    if (aDelta.IndexOfLoggedField(par.Name) < 0) then Continue;
+    val := aDeltaChange.NewValueByName[par.Name];
+
+    if (aDeltaChange.ChangeType=ctInsert) then
+      if par.DataType in [datAutoInc, datLargeAutoInc] then begin
+        if (GenAutoIncValue<>-1) then
+          val := GenAutoIncValue
+        else
+          val := aConnection.GetLastAutoIncValue(par.GeneratorName);
+      end;    
+
+    par.Value := val;
+  end;
+
+  if FDynamicWhereInRefreshDataset then
+    for i := 0 to aDelta.KeyFieldCount - 1 do begin
+      par := aRefreshDataset.ParamByName(lDynWhereParamPrefix+intToStr(i));
+      par.Value := aDeltaChange.NewValueByName[aDelta.KeyFieldNames[i]];
+
+      if (aDeltaChange.ChangeType=ctInsert) then
+        if par.DataType in [datAutoInc, datLargeAutoInc] then
+          if (GenAutoIncValue<>-1) then
+            par.Value := GenAutoIncValue
+          else
+            par.Value := aConnection.GetLastAutoIncValue(par.GeneratorName);
+    end;
+  if Assigned(fOnRefreshDeltaChange) then
+    fOnRefreshDeltaChange(Self, aDeltaChange.ChangeType, aDeltaChange, aRefreshDataset);
+
+  // Opens the dataset
+  aRefreshDataset.Open;
+  try
+{    if (aRefreshDataset.EOF) and (GenAutoIncValue <> -1) then begin
+      // user can rewrite value in trigger new new value
+      aRefreshDataset.Close;
+      For i:= 0 to aRefreshDataset.Params.Count -1 do
+        with aRefreshDataset.Params[i] do begin
+          if (DataType in [datAutoInc, datLargeAutoInc]) and (Value = GenAutoIncValue) then begin
+            Value := aConnection.GetLastAutoIncValue(GeneratorName);
+          end;
+        end;
+      aRefreshDataset.Open;
+    end;}
+    if (aRefreshDataset.EOF) then raise Exception.Create('Can''t refresh delta, record isn''t found');
+    case aDeltaChange.ChangeType of
+      ctUpdate : begin
+        // ctUpdate:
+        // Leaves the old values alone because they are needed on the client
+        // for merge purposes. This could probabily be optimized
+        for I := 0 to aDelta.LoggedFieldCount - 1 do begin
+          nam := aDelta.LoggedFieldNames[i];
+          fld := aRefreshDataset.FindField(nam);
+          if fld = nil then Continue;
+          aDeltaChange.OldValueByName[nam] := aDeltaChange.NewValueByName[nam];
+          aDeltaChange.NewValueByName[nam] := fld.Value;
+        end;
+      end;
+      ctInsert : begin
+        for I := 0 to aDelta.LoggedFieldCount - 1 do begin
+          nam := aDelta.LoggedFieldNames[i];
+          fld := aRefreshDataset.FindField(nam);
+          if fld = nil then Continue;
+//		  aDeltaChange.OldValueByName[nam] := aDeltaChange.NewValueByName[nam];// for compartibility with .net
+          aDeltaChange.NewValueByName[nam] := fld.Value;
+        end;
+      end;
+    end;
+  finally
+    aRefreshDataset.Close;
+  end;
+end;
+
+procedure TDABusinessProcessor.SynchronizeAutoIncs(const aMasterDelta, aDetailDelta : IDADelta;
+                                  const aRelationship : TDADatasetRelationship);
+var x, k, z: integer;
+    masterds : TDADataset;
+    masterfields, detailfields : TStringList;
+    oldmasterval, masterval, detailval : Variant;
+begin
+  CheckProperties;
+  masterfields := TStringList.Create;
+  masterfields.Delimiter := ';';
+
+  detailfields := TStringList.Create;
+  detailfields.Delimiter := ';';
+
+  try
+    masterds := Schema.Datasets.DatasetByName(aMasterDelta.LogicalName);
+
+    masterfields.DelimitedText := aRelationship.MasterFields;
+    detailfields.DelimitedText := aRelationship.DetailFields;
+
+    for x := 0 to (aMasterDelta.Count-1) do begin
+      if not (aMasterDelta[x].Status=csResolved) then Continue;
+
+      for k := 0 to (masterfields.Count-1) do begin
+        if not (masterds.FieldByName(masterfields[k]).DataType in [datAutoInc, datLargeAutoInc, datInteger, datLargeInt]) then Continue;
+
+        masterval := aMasterDelta[x].NewValueByName[masterfields[k]];
+        oldmasterval := aMasterDelta[x].OldValueByName[masterfields[k]];
+
+        for z := 0 to (aDetailDelta.Count-1) do begin
+          if not (aDetailDelta[z].ChangeType in [ctInsert,ctUpdate]) then Continue;
+
+          detailval := aDetailDelta[z].NewValueByName[detailfields[k]];
+          if (detailval<>oldmasterval) then Continue;
+
+          aDetailDelta[z].NewValueByName[detailfields[k]] := masterval;
+          aDetailDelta[z].RefreshedByServer := TRUE;
+        end;
+      end;
+    end;
+  finally
+    masterfields.Free;
+    detailfields.Free;
+  end;
+end;
+
+procedure TDABusinessProcessor.ProcessDelta(const aConnection: IDAConnection;
+  const aDelta: IDADelta;
+  ChangeTypes: TDAChangeTypes = AllChanges;
+  ADeltaStruct : TDADeltaStruct = nil);
+var
+  i, x, rowsaffected, z: integer;
+  canremove, ok: boolean;
+  currcmd, inscmd, delcmd, updcmd, updcmd_AutoInc: IDASQLCommand;
+  refds : IDADataset;
+  insmap, delmap, updmap, refmap, updmap_AutoInc: TDAParamMappingArray;
+  mapptr: ^TDAParamMappingArray;
+  change: TDADeltaChange;
+  todelete: TList;
+  val : variant;
+  parname : string;
+  autoincvalue: variant;
+  usegenerators,usegenerators2 : boolean;
+  lexpr: TDAWhereExpression;
+  lTargetTable: string;
+  lAutoIncFld: integer;
+  lbool: boolean;
+begin
+  Check(not Assigned(aDelta), 'Cannot process a NIL delta');
+  if (aDelta.Count=0) then Exit;
+
+  if Assigned(fSchema.UnionDataTables.FindItem(fReferencedDataset)) then begin
+    ProcessDeltaForUnion(aConnection, aDelta, ChangeTypes, ADeltaStruct);
+    exit;
+  end;
+
+  fCurrentDelta := aDelta.GetDelta;
+  fCurrentChange := 0;
+
+  usegenerators := Supports(aConnection, IDAUseGenerators);
+  usegenerators2 := Supports(aConnection, IDAUseGenerators2);
+
+  // detect AutoInc fld
+  lAutoIncFld := -1;
+  for i := 0 to aDelta.LoggedFieldCount - 1 do begin
+    if aDelta.LoggedFieldTypes[i] in [datAutoInc, datLargeAutoInc] then begin
+      lAutoIncFld := i;
+      break;
+    end;
+  end;
+
+
+  // Fires the "before" events
+  if Assigned(fOnBeforeProcessDelta)
+    then fOnBeforeProcessDelta(Self, aDelta)
+
+  else if Assigned(fBusinessRules)
+    then fBusinessRules.BeforeProcessDelta(Self, aDelta);
+
+  // Prepares the commands
+  if not fHasReducedDelta then begin
+    SetupCommands(aConnection, aDelta, inscmd, updcmd, updcmd_AutoInc, delcmd, refds, lTargetTable);
+
+    CreateMappings(aDelta, insmap, inscmd, nil, True);
+    CreateMappings(aDelta, updmap, updcmd, nil, True);
+    CreateMappings(aDelta, updmap_AutoInc, updcmd_AutoInc, nil, True);
+    CreateMappings(aDelta, delmap, delcmd, nil, True);
+    CreateMappings(aDelta, refmap, refds);
+
+    FDynamicWhereInRefreshDataset:=False;
+    // dynwhere
+    if (refds <> nil) and refds.SQLContainsDynamicWhere then begin
+      FDynamicWhereInRefreshDataset := True;
+      refds.DynamicWhere.Expression:=nil;
+      for i := 0 to aDelta.KeyFieldCount - 1 do begin
+        with refds.Params.Add do begin
+          ParamType:=daptInput;
+          DataType := refds.FieldByName(aDelta.KeyFieldNames[i]).DataType;
+          Name:=lDynWhereParamPrefix+IntToStr(i);
+        end;
+        with refds.DynamicWhere do begin
+          lexpr:= NewBinaryExpression(NewField('',aDelta.KeyFieldNames[i]),NewParameter(lDynWhereParamPrefix+IntToStr(i)),dboEqual);
+          if Expression = nil then
+            Expression := lexpr
+          else
+            Expression:= NewBinaryExpression(Expression,lexpr,dboEqual);
+        end;
+      end;
+    end;
+  end;
+  // Processes the delta
+  todelete := TList.Create;
+  try
+    for i := 0 to (aDelta.Count - 1) do begin
+      change := aDelta[i];
+      fCurrentChange := i; // Do NOT remove!!!
+      canremove := false;
+      autoincvalue := -1;
+
+      try
+        ok := change.ChangeType in ChangeTypes; // Filters
+
+
+        // Even if there might not be a command associated, the user might want to do something with this
+        // We just give an override chance here
+        if Assigned(fOnBeforeProcessChange) then
+          fOnBeforeProcessChange(Self, change.ChangeType, aDelta[i], ok)
+
+        else if Assigned(fBusinessRules) then
+          fBusinessRules.BeforeProcessChange(Self, change.ChangeType, aDelta[i], ok);
+
+        if ok then begin
+          // Selects the right command
+          mapptr := nil;
+          if not fHasReducedDelta then begin
+            case change.ChangeType of
+              ctInsert: begin
+                  currcmd := inscmd;
+                  mapptr := @insmap;
+                end;
+              ctUpdate: begin
+                  // lBool = Allow updating datAutoInc
+                  if (lAutoIncFld <> -1) then lBool := (change.OldValues[lAutoIncFld] <> change.NewValues[lAutoIncFld]) else lBool := False;
+                  if lBool then begin
+                    currcmd := updcmd_AutoInc;
+                    mapptr := @updmap_AutoInc;
+                  end
+                  else begin
+                    currcmd := updcmd;
+                    mapptr := @updmap;
+                  end;
+                end;
+              ctDelete: begin
+                  currcmd := delcmd;
+                  mapptr := @delmap;
+                end;
+            end;
+
+          end else begin
+            // lBool = generate update datAutoinc  in update statement
+            if (lAutoIncFld <> -1) then lBool := (change.OldValues[lAutoIncFld] <> change.NewValues[lAutoIncFld]) else lBool := False;
+            SetupCommands(aConnection, Change, currCmd, lTargetTable, lBool);
+            if currCmd <> nil then begin
+              CreateMappings(aDelta, insmap, currCmd, nil, True);
+              mapptr := @insmap;
+              refds := SetupRefreshDatasetForReducedDelta(aConnection, aDelta);
+              CreateMappings(aDelta, refmap, refds);
+            end;
+          end;
+          // Assigns the values of the current change
+          if (currcmd <> nil) then
+            for x := 0 to (currcmd.Params.Count - 1) do
+              if (mapptr^[x].DeltaIndex >= 0) then begin
+                val := null;// fix for "Invalid Variant Type" exception in Win2000
+                case mapptr^[x].MappingType of
+                  mtOldValue: val := change.OldValues[mapptr^[x].DeltaIndex];
+                  else val := change.NewValues[mapptr^[x].DeltaIndex];
+                end;
+
+                if (currcmd.Params[x].DataType in [datAutoinc, datLargeAutoInc]) and (usegenerators or usegenerators2) and (change.ChangeType=ctInsert) and (mapptr^[x].MappingType=mtNewValue) then begin
+                  // Gets the next generator values from the DB. This is for DBs such as IB or Oracle which lack autoinc fields
+                  if (autoincvalue<>-1) then raise Exception.Create('Multiple auto incremental fields not supported');
+                  parname := currcmd.Params[x].Name;
+                  change.OldValueByName[parname] := val;
+                  if usegenerators2 then
+                    autoincvalue := (aConnection as IDAUseGenerators2).GetNextAutoinc2(currcmd.Params[x].GeneratorName)
+                  else
+                    autoincvalue := (aConnection as IDAUseGenerators).GetNextAutoinc(currcmd.Params[x].GeneratorName);
+                  currcmd.Params[x].Value := autoincvalue;
+                  change.RefreshedByServer := TRUE;
+                  if not Assigned(refds) then begin
+                    change.NewValueByName[parname] := autoincvalue;
+                  end;
+                end
+                else currcmd.Params[x].Value := val;
+              end;
+
+          // Gives the user a chance to modify it before execution
+          if Assigned(fOnProcessChange) then
+            fOnProcessChange(Self, change.ChangeType, change, currcmd)
+          else if Assigned(fBusinessRules) then
+            fBusinessRules.ProcessChange(Self, change.ChangeType, change, currcmd);
+
+          // Executes it
+          if (currcmd <> nil)
+            then rowsaffected := currcmd.Execute
+            else rowsaffected := 0;
+
+          canremove := FALSE;
+
+          // IBX returns -1 even if updates are successful! This started to happen after I plugged the GetNextAutoinc call above.
+          // If records fail, an exception is usually generated so this check for <>0 should be sufficient for all cases...
+          // DO NOT CHANGE this to >0 !!!!
+          if (rowsaffected<>0) or (poIgnoreRowsAffected in fProcessorOptions) then begin
+            if (change.ChangeType<>ctDelete) and (refds<>NIL) then begin
+              RefreshDeltaChange(aConnection, refds, aDelta, change, autoincvalue);
+              change.RefreshedByServer := TRUE;
+            end;
+
+            canremove := not change.RefreshedByServer;
+            change.Status := csResolved;
+            if (ADeltaStruct <> nil) and (change.ChangeType in [ctInsert, ctUpdate]) and (lTargetTable <> '') then begin
+              for z:=0 to ADeltaStruct.RelationShips.Count - 1 do
+                if aDelta.LogicalName = ADeltaStruct.RelationShips[z].DetailDatasetName then
+                  SynchronizeAutoIncs(aDelta,ADeltaStruct.fDetailDeltas[z], ADeltaStruct.RelationShips[z]);
+            end;
+          end
+          else begin
+            if fHasReducedDelta and (currcmd = nil) then begin
+              // no data for operations, i.e. oldvalues[] = newvalues[]
+              canremove := True;
+              change.Status := csResolved;
+            end
+            else begin
+              canremove := FALSE;
+              change.Status := csFailed;
+              change.Message := 'No rows were affected by this update';
+            end;
+          end;
+
+          // After processing gives the user a last chance to update the change and
+          // optionally set it so that it goes back to the client (i.e. updated values)
+          if Assigned(fOnAfterProcessChange)
+            then fOnAfterProcessChange(Self, change, ok, canremove)
+
+          else if Assigned(fBusinessRules)
+            then fBusinessRules.AfterProcessChange(Self, change, ok, canremove)
+        end;
+
+      except
+        on E: Exception do begin
+          change.Status := csFailed;
+          change.Message := E.Message;
+          canremove := FALSE;
+
+          if Assigned(fOnProcessError) then
+            fOnProcessError(Self, change.ChangeType, change, currcmd, canremove, E)
+          else if Assigned(fBusinessRules) then begin
+            fBusinessRules.ProcessError(Self, change.ChangeType, change, currcmd, canremove, E);
+            if FRaiseExceptionAtError then raise;
+          end
+          else if FRaiseExceptionAtError then begin
+            raise EDAApplyUpdateFailed.Create(change, E);
+          end;
+        end;
+      end;
+
+      if canremove then todelete.Add(change);
+    end;
+
+    for i := 0 to todelete.Count - 1 do
+      aDelta.RemoveChange(TDADeltaChange(todelete[i]));
+
+    if Assigned(fOnAfterProcessDelta) then
+      fOnAfterProcessDelta(Self, aDelta)
+    else if Assigned(fBusinessRules) then
+      fBusinessRules.AfterProcessDelta(Self, aDelta)
+
+  finally
+    todelete.Free;
+  end;
+end;
+
+procedure TDABusinessProcessor.SetDeleteCommandName(const Value: string);
+begin
+  if fDeleteCommandName <> Trim(Value) then begin
+    fDeleteCommandName := Trim(Value);
+    if fDeleteCommandName <> '' then
+      fProcessorOptions := fProcessorOptions - [poAutoGenerateDelete]
+    else
+      fProcessorOptions := fProcessorOptions + [poAutoGenerateDelete];
+  end;
+end;
+
+procedure TDABusinessProcessor.SetInsertCommandName(const Value: string);
+begin
+  if fInsertCommandName <> Trim(Value) then begin
+    fInsertCommandName := Trim(Value);
+    if fInsertCommandName <> '' then
+      fProcessorOptions := fProcessorOptions - [poAutoGenerateInsert]
+    else
+      fProcessorOptions := fProcessorOptions + [poAutoGenerateInsert];
+  end;
+end;
+
+procedure TDABusinessProcessor.SetUpdateCommandName(const Value: string);
+begin
+  if fUpdateCommandName <> Trim(Value) then begin
+    fUpdateCommandName := Trim(Value);
+    if fUpdateCommandName <> '' then
+      fProcessorOptions := fProcessorOptions - [poAutoGenerateUpdate]
+    else
+      fProcessorOptions := fProcessorOptions + [poAutoGenerateUpdate];
+  end;
+end;
+
+procedure TDABusinessProcessor.SetSchema(const Value: TDASchema);
+begin
+  if fSchema <> Value then begin
+    if (fSchema <> nil) then fSchema.RORemoveFreeNotification(Self);
+    fSchema := Value;
+    if (fSchema <> nil) then fSchema.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TDABusinessProcessor.SetReferencedDataset(const Value: string);
+begin
+  fReferencedDataset := Value;
+end;
+
+procedure TDABusinessProcessor.ProcessDelta(aDataTable: TDADataTable;
+  ChangeTypes: TDAChangeTypes; const aConnection : IDAConnection = NIL; ADeltaStruct : TDADeltaStruct = nil);
+var
+  conn: IDAConnection;
+begin
+  with aDataTable do begin
+    Check(LocalSchema = nil, 'Datatable doesn''t reference any schema');
+    Check(LocalSchema.ConnectionManager = nil, 'Datatable''s schema doesn''t reference a connection manager');
+
+    if aConnection<>NIL
+      then conn := aConnection
+      else conn := LocalSchema.ConnectionManager.NewConnection(LocalConnection);
+
+    ProcessDelta(conn, aDataTable.Delta, ChangeTypes, ADeltaStruct);
+  end;
+end;
+
+function TDABusinessProcessor.QueryInterface(const IID: TGUID; out Obj): HResult;
+begin
+  result := inherited QueryInterface(IID, Obj);
+
+  if (result <> S_OK) and Assigned(fBusinessRules) then begin
+    // Users might introduce specific interfaces at the business rule level
+    // This allows to type cast the data table to any additional business oriented interface
+    // they decide to create.
+    result := fBusinessRules.QueryInterface(IID, Obj);
+  end;
+end;
+
+procedure TDABusinessProcessor.SetBusinessRulesID(const Value: string);
+var
+  bizclass: TDABusinessProcessorRulesClass;
+begin
+  if (Value = fBusinessRulesID) then Exit;
+
+  if Assigned(fBusinessRules) then begin
+    fBusinessRules.Detach(Self);
+    FreeAndNIL(fBusinessRules);
+  end;
+
+  fBusinessRulesID := Trim(Value);
+
+  if (fBusinessRulesID <> '') and not (csDesigning in ComponentState) then begin
+    Check(not FindBusinessProcessorRules(Value, bizclass), Name+'. Invalid BusinessRulesID "%s"', [Value]);
+
+    fBusinessRules := bizclass.Create(Self);
+    fBusinessRules.Attach(Self);
+  end;
+end;
+
+procedure TDABusinessProcessor.SetRefreshDataset(const Value: string);
+begin
+  if fRefreshDataset <> Trim(Value) then begin
+    fRefreshDataset := Trim(Value);
+    if fRefreshDataset <> '' then
+      fProcessorOptions := fProcessorOptions - [poAutoGenerateRefreshDataset]
+    else
+      fProcessorOptions := fProcessorOptions + [poAutoGenerateRefreshDataset];
+  end;
+end;
+
+procedure TDABusinessProcessor.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (Operation = opRemove) then begin
+    if (AComponent = fSchema) then fSchema := nil;
+  end;
+end;
+
+procedure TDABusinessProcessor.Assign(Source: TPersistent);
+var
+  lSource: TDABusinessProcessor;
+begin
+  inherited;
+  if Source is TDABusinessProcessor then begin
+    lSource := TDABusinessProcessor(Source);
+
+    BusinessRulesID := lSource.BusinessRulesID;
+    DeleteCommandName := lSource.DeleteCommandName;
+    InsertCommandName := lSource.InsertCommandName;
+    OnAfterProcessChange := lSource.OnAfterProcessChange;
+    OnAfterProcessDelta := lSource.OnAfterProcessDelta;
+    OnBeforeProcessChange := lSource.OnBeforeProcessChange;
+    OnBeforeProcessDelta := lSource.OnBeforeProcessDelta;
+    OnGenerateSQL := lSource.OnGenerateSQL;
+    OnProcessChange := lSource.OnProcessChange;
+    OnProcessError := lSource.OnProcessError;
+    OnRefreshDeltaChange := lSource.OnRefreshDeltaChange;
+    ProcessorOptions := lSource.ProcessorOptions;
+    RaiseExceptionAtError := lSource.RaiseExceptionAtError;
+    ReferencedDataset := lSource.ReferencedDataset;
+    RefreshDatasetName := lSource.RefreshDatasetName;
+    Schema := lSource.Schema;
+    UpdateCommandName := lSource.UpdateCommandName;
+    UpdateMode := lSource.UpdateMode;
+    UserUpdateFields := lSource.UserUpdateFields;
+  end;
+end;
+
+procedure TDABusinessProcessor.CheckProperties;
+begin
+  Check(Schema = nil, Name + '.Schema must be assinged.');
+end;
+
+procedure TDABusinessProcessor.SetupCommandsWithMapping(
+  const aConnection: IDAConnection;
+  const aChange: TDADeltaChange;
+  out anCmd: IDASQLCommand;
+  out aParamMapping: TDAParamMappingArray;
+  out aRefreshDs: IDADataset;
+  out aTargetTable : string;
+  aUseAutoIncUpdate: Boolean=False);
+var
+  lSql: string;
+  lDataset: TDADataset;
+  lRefStatement: TDAStatement;
+  lUnionTable: TDAUnionDataTable;
+  lVar: Variant;
+
+  lSourceTableIdx: Integer;
+  lUnionSourceTable : TDAUnionSourceTable;
+  lSourceTable : TDADataset;
+  lSourceTableName: String;
+  lSourceTableMapping: TDAColumnMappingCollection;
+  lConnection: IDAConnection;
+begin
+  anCmd := nil;
+  lRefStatement := nil;
+  lSourceTableMapping := nil;
+  aRefreshDs := nil;
+  CheckProperties;
+  lDataset := TDADataset(fSchema.FindDataset(fReferencedDataset));
+
+  // If Union table ...
+  if lDataset is TDAUnionDataTable then begin
+    lUnionTable := TDAUnionDataTable(lDataset);
+    if aChange.ChangeType = ctDelete then
+      lVar := aChange.oldValueByName[def_SourceTableFieldName]
+    else
+      lVar := aChange.NewValueByName[def_SourceTableFieldName];
+    if (VarIsNull(lVar)) then begin
+      lSourceTableName := lUnionTable.DefaultSourceTable;
+      lUnionSourceTable := TDAUnionSourceTable(lUnionTable.SourceTables.ItemByName(lSourceTableName));
+    end
+    else begin
+      lSourceTableIdx := lVar;
+      lUnionSourceTable := lUnionTable.SourceTables[lSourceTableIdx];
+      lSourceTableName := lUnionSourceTable.Name;
+    end;
+
+    // check do we have rights to change this table
+    if lUnionSourceTable.IsReadOnly then
+      raise EDAException.Create(Format('Union source table "%s" is read-only', [lSourceTableName]));
+    //------------------------------------------------------------------
+    lConnection := GetConnectionForObject(aConnection, lSourceTableName);
+
+    lSourceTableMapping := lUnionSourceTable.ColumnMappings;
+
+    lSourceTable := TDADataset(fSchema.Datasets.FindItem(lSourceTableName));
+    if Assigned(lSourceTable) then begin
+
+      lDataset := lSourceTable;
+
+      lRefStatement := lSourceTable.Statements.FindItem(lConnection.Name, '', lConnection.ConnectionType, True);
+      if (lRefStatement = nil) then lRefStatement := lSourceTable.Statements.StatementByName(Schema.ConnectionManager.GetDefaultConnectionName);
+      if lRefStatement <> nil then begin
+        // Assemble Refresh dataset  ...
+        if (fRefreshDataset <> '') then aRefreshDs := fSchema.NewDataset(lConnection, fRefreshDataset, [], [], FALSE);
+
+        if (aRefreshDs = nil) and (poAutoGenerateRefreshDataset in fProcessorOptions) then begin
+          aRefreshDs := GenerateRefreshDataset(lSourceTable, lConnection, lRefStatement.TargetTable, lRefStatement.ColumnMappings, lSourceTableMapping);
+          if (aRefreshDs <> NIL) then begin
+            aRefreshDs.LogicalName := lSourceTableName;
+            SetupParameters(aRefreshDs, lSourceTable, lConnection, lSourceTableMapping);
+          end;
+        end;
+        if Assigned(aRefreshDs) then aRefreshDs.Prepared := True;
+      end;
+    end;
+  end
+  else begin
+    lConnection := aConnection;
+    if lDataset is TDADataset then begin // If plain table ...
+      lRefStatement := TDAStatement(lDataset.Statements.FindItem(aConnection.Name));
+      if (lRefStatement = nil) then lRefStatement := lDataset.Statements.StatementByName(Schema.ConnectionManager.GetDefaultConnectionName);
+      aRefreshDs := SetupRefreshDatasetForReducedDelta(lConnection,aChange.Delta);
+    end
+    else begin // If no dataset found
+      RaiseError(Name + '''s referenced dataset is not speficied or does not exist. Cannot generate SQL');
+    end;
+  end;
+
+  if lRefStatement <> nil then
+    aTargetTable := lRefStatement.TargetTable
+  else
+    aTargetTable := '';
+  lSql := GenerateSQL2(aChange.ChangeType, aChange, lDataset, aChange.Delta, lRefStatement, lConnection,aUseAutoIncUpdate);
+  if lSql <> '' then begin
+    anCmd := lConnection.NewCommand(lSql, stSQL);
+    SetupParameters(anCmd, lDataset, aConnection);
+    if anCmd <> nil then anCmd.Prepared:=True;
+    CreateMappings(aChange.Delta, aParamMapping, anCmd, lSourceTableMapping, True);
+  end;
+end;
+
+procedure TDABusinessProcessor.SetupCommands(
+  const aConnection: IDAConnection; const aChange: TDADeltaChange;
+  out anCmd: IDASQLCommand; out aTargetTable : string;aUseAutoIncUpdate: Boolean=False);
+var
+  sql: string;
+  ds: TDADataset;
+  refstmt: TDAStatement;
+begin
+  anCmd:=nil;
+  refstmt := nil;
+  CheckProperties;
+  ds := TDADataset(fSchema.Datasets.FindItem(fReferencedDataset));
+  if (ds <> nil) then begin
+    refstmt := fSchema.FindCommandStatement(aConnection,ds,aConnection.Name);
+//    refstmt := TDAStatement(ds.Statements.FindItem(aConnection.Name));
+//    if (refstmt = nil) then refstmt := ds.Statements.StatementByName(Schema.ConnectionManager.GetDefaultConnectionName);
+  end
+  else
+    RaiseError(Name + '''s referenced dataset is not speficied or does not exist. Cannot generate SQL');
+  if refstmt <> nil then
+    aTargetTable := refstmt.TargetTable
+  else
+    aTargetTable := '';
+  sql := GenerateSQL2(aChange.ChangeType, aChange, ds,aChange.Delta ,refstmt, aConnection,aUseAutoIncUpdate);
+  if sql <> '' then begin
+    anCmd := aConnection.NewCommand(sql, stSQL);
+    SetupParameters(anCmd, ds, aConnection);
+    if anCmd <> nil then anCmd.Prepared:=True;
+  end;
+end;
+
+
+
+function TDABusinessProcessor.SetupRefreshDatasetForReducedDelta(
+  const aConnection: IDAConnection; const aDelta: IDADelta): IDADataset;
+var
+  ds: TDADataset;
+begin
+  Result := nil;
+  if (fRefreshDataset <> '') then Result := fSchema.NewDataset(aConnection, fRefreshDataset,[],'','',False,True);
+  if (Result = nil) and (poAutoGenerateRefreshDataset in fProcessorOptions) then begin
+    ds := TDADataset(fSchema.Datasets.FindItem(fReferencedDataset));
+    if (ds <> nil) then begin
+      Result := GenerateRefreshDataset(ds, aDelta, fSchema.FindCommandStatement(aConnection,ds), aConnection);
+      if (Result<>NIL) then SetupParameters(Result, ds, aConnection);
+    end
+    else begin
+      RaiseError(Name + '''s referenced dataset is not speficied or does not exist. Cannot generate SQL');
+    end;
+  end;
+  // Finally prepares them
+  if (poPrepareCommands in fProcessorOptions) and (Result <> NIL) then Result.Prepared := TRUE;
+end;
+
+procedure TDABusinessProcessor.SetProcessorOptions(
+  const Value: TDAProcessorOptions);
+begin
+  fProcessorOptions := Value;
+  if csLoading in ComponentState then begin
+    if fInsertCommandName <> '' then fProcessorOptions:= fProcessorOptions - [poAutoGenerateInsert];
+    if fUpdateCommandName <> '' then fProcessorOptions:= fProcessorOptions - [poAutoGenerateUpdate];
+    if fDeleteCommandName <> '' then fProcessorOptions:= fProcessorOptions - [poAutoGenerateDelete];
+    if fRefreshDataset <> '' then fProcessorOptions:= fProcessorOptions - [poAutoGenerateRefreshDataset];
+  end
+  else begin
+    if poAutoGenerateInsert in fProcessorOptions then fInsertCommandName :='';
+    if poAutoGenerateUpdate in fProcessorOptions then fUpdateCommandName :='';
+    if poAutoGenerateDelete in fProcessorOptions then fDeleteCommandName :='';
+    if poAutoGenerateRefreshDataset in fProcessorOptions then fRefreshDataset :='';
+  end;
+end;
+
+function TDABusinessProcessor.GenerateRefreshDataset(aDataset: TDADataset;
+  const aDelta: IDADelta; aDatasetStatement: TDAStatement;
+  aConnection: IDAConnection): IDADataset;
+begin
+  Result := GenerateRefreshDataset(aDataset,aConnection,aDatasetStatement.TargetTable,aDatasetStatement.ColumnMappings, nil);
+end;
+
+{ TDABusinessProcessorRules }
+
+procedure TDABusinessProcessorRules.Attach(
+  aBusinessProcessor: TDABusinessProcessor);
+begin
+
+end;
+
+constructor TDABusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited Create;
+  fBusinessProcessor := aBusinessProcessor;
+end;
+
+procedure TDABusinessProcessorRules.Detach(
+  aBusinessProcessor: TDABusinessProcessor);
+begin
+
+end;
+
+procedure TDABusinessProcessorRules.AfterProcessChange(
+  Sender: TDABusinessProcessor; aChange: TDADeltaChange;
+  Processed: boolean; var CanRemoveFromDelta: boolean);
+begin
+
+end;
+
+procedure TDABusinessProcessorRules.AfterProcessDelta(
+  Sender: TDABusinessProcessor; const aDelta: IDADelta);
+begin
+
+end;
+
+procedure TDABusinessProcessorRules.BeforeProcessChange(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; var ProcessChange: boolean);
+begin
+
+end;
+
+procedure TDABusinessProcessorRules.BeforeProcessDelta(
+  Sender: TDABusinessProcessor; const aDelta: IDADelta);
+begin
+
+end;
+
+procedure TDABusinessProcessorRules.GenerateSQL(
+  Sender: TDABusinessProcessor; ChangeType: TDAChangeType;
+  const ReferencedStatement: TDAStatement; const aDelta: IDADelta;
+  var SQL: string);
+begin
+
+end;
+
+procedure TDABusinessProcessorRules.ProcessChange(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; const aCommand: IDASQLCommand);
+begin
+
+end;
+
+procedure TDABusinessProcessorRules.ProcessError(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; const aCommand: IDASQLCommand;
+  var CanRemoveFromDelta: boolean; Error: Exception);
+begin
+  if Assigned(Error) then
+    raise Exception(Error.NewInstance).Create(Error.Message)
+  else
+    raise Exception.Create('Unknown error');
+end;
+
+//----------
+
+procedure TDABusinessProcessorRules.NotSupportedByBusinessProcessor;
+begin
+  RaiseError('This method is not supported on the Business Processor Rule, but only on the client.');
+end;
+
+procedure TDABusinessProcessorRules.Append;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Cancel;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Delete;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Edit;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.First;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetBOF: Boolean;
+begin
+  result := false; { to avoid warning; }
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetEOF: Boolean;
+begin
+  result := false; { to avoid warning; }
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetRecordCount: Integer;
+begin
+  result := -1; { to avoid warning; }
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Insert;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Last;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.Locate(const aKeyFields: String; const aKeyValues: Variant; aOptions: TLocateOptions): Boolean;
+begin
+  result := false; { to avoid warning; }
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Next;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Post;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Prior;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetDetailOptions: TDADetailOptions;
+begin
+  result := []
+end;
+
+function TDABusinessProcessorRules.GetMasterOptions: TDAMasterOptions;
+begin
+  result := []
+end;
+
+procedure TDABusinessProcessorRules.SetDetailOptions(
+  Value: TDADetailOptions);
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.SetMasterOptions(
+  Value: TDAMasterOptions);
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetRecNo: integer;
+begin
+  result := -1; { to avoid warning; }
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.SetRecNo(Value: integer);
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetIsEmpty: boolean;
+begin
+  result := FALSE;
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetState: TDatasetState;
+begin
+  result := dsBrowse
+end;
+
+function TDABusinessProcessorRules.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  Result:=Null;
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.ClearField(
+  const FieldIndexOrName: Variant);
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.IsFieldNull(
+  const FieldIndexOrName: Variant): boolean;
+begin
+  result := FALSE;
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetDataTable: TDADataTable;
+begin
+  result := NIL;
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Close;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessorRules.Open;
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+function TDABusinessProcessorRules.GetActive: boolean;
+begin
+  NotSupportedByBusinessProcessor();
+  result:=FALSE
+end;
+
+procedure TDABusinessProcessorRules.SetActive(const Value: boolean);
+begin
+  NotSupportedByBusinessProcessor();
+end;
+
+procedure TDABusinessProcessor.ProcessDeltaForUnion(const aConnection: IDAConnection;
+  const aDelta: IDADelta;
+  ChangeTypes: TDAChangeTypes = AllChanges;
+  ADeltaStruct : TDADeltaStruct = nil);
+var
+  i, x, rowsaffected, z: integer;
+  canremove, ok: boolean;
+  refds : IDADataset;
+  insmap: TDAParamMappingArray;
+  mapptr: ^TDAParamMappingArray;
+  change: TDADeltaChange;
+  todelete: TList;
+  val : variant;
+  parname : string;
+  autoincvalue: variant;
+  usegenerators : boolean;
+  usegenerators2 : boolean;
+  currcmd: IDASQLCommand;
+  lCommands: TDADeltaProcessorItemCollection;
+  lUnionTable: TDAUnionDataTable;
+  lUnionSourceTable: TDAUnionSourceTable;
+  lSourceTableName: String;
+  lProcessorItem: TDADeltaProcessorItem;
+  lVar: Variant;
+  lConnection: IDAConnection;
+  lTargetTable: string;
+  lAutoIncFld: integer;
+  lBool: boolean;
+begin
+  Check(not Assigned(aDelta), 'Cannot process a NIL delta');
+  if (aDelta.Count=0) then Exit;
+  refds := nil;
+  fCurrentDelta := aDelta.GetDelta;
+  fCurrentChange := 0;
+
+  // detect AutoInc fld
+  lAutoIncFld := -1;
+  for i := 0 to aDelta.LoggedFieldCount - 1 do begin
+    if aDelta.LoggedFieldTypes[i] in [datAutoInc, datLargeAutoInc] then begin
+      lAutoIncFld := i;
+      break;
+    end;
+  end;
+
+  // Fires the "before" events
+  if Assigned(fOnBeforeProcessDelta)
+    then fOnBeforeProcessDelta(Self, aDelta)
+
+  else if Assigned(fBusinessRules)
+    then fBusinessRules.BeforeProcessDelta(Self, aDelta);
+
+  lUnionTable := fSchema.UnionDataTables.ItemByName(fReferencedDataset) as TDAUnionDataTable;
+  //lSourceTableFieldIdx := lUnionTable.Fields.FieldByName(def_SourceTableFieldName).Index;
+
+  try
+  // Prepares the commands
+  if not fHasReducedDelta then begin
+    SetupCommands(aConnection, aDelta, lCommands);
+  end;
+  // Processes the delta
+  todelete := TList.Create;
+  try
+    for i := 0 to (aDelta.Count - 1) do begin
+      change := aDelta[i];
+      fCurrentChange := i; // Do NOT remove!!!
+      canremove := false;
+      autoincvalue := -1;
+
+      ok := change.ChangeType in ChangeTypes; // Filters
+      try
+
+        // Even if there might not be a command associated, the user might want to do something with this
+        // We just give an override chance here
+        if Assigned(fOnBeforeProcessChange) then
+          fOnBeforeProcessChange(Self, change.ChangeType, aDelta[i], ok)
+
+        else if Assigned(fBusinessRules) then
+          fBusinessRules.BeforeProcessChange(Self, change.ChangeType, aDelta[i], ok);
+
+        // Define appripriate source table and get its commands
+
+        //lVar := aDelta.Changes[i].NewValues[lSourceTableFieldIdx];
+        if (aDelta.Changes[i].ChangeType = ctInsert) then
+          lVar := aDelta.Changes[i].NewValueByName[def_SourceTableFieldName]
+        else
+          lVar := aDelta.Changes[i].OldValueByName[def_SourceTableFieldName];
+
+        if (VarIsNull(lVar) or VarIsClear(lVar)) then begin
+          if lUnionTable.DefaultSourceTable <> '' then
+            lSourceTableName := lUnionTable.DefaultSourceTable
+          else
+            lSourceTableName := lUnionTable.SourceTables[0].Name;
+        end else
+          lSourceTableName := lUnionTable.SourceTables[lVar].Name;
+
+        lConnection := GetConnectionForObject(aConnection,lSourceTableName);
+        usegenerators := Supports(lConnection, IDAUseGenerators);
+        usegenerators2 := Supports(lConnection, IDAUseGenerators2);
+
+        if ok then begin
+          // Selects the right command
+          mapptr := nil;
+          if not fHasReducedDelta then begin
+
+            // Since we specified table for this particular change then let's
+            // check do we have rights to change this table
+            lUnionSourceTable :=
+              lUnionTable.SourceTables.UnionSourceTableByName(lSourceTableName);
+
+            if lUnionSourceTable.IsReadOnly then
+                raise EDAException.Create(Format('Union source table "%s" is read-only', [lSourceTableName]));
+            //------------------------------------------------------------------
+            lProcessorItem := TDADeltaProcessorItem(lCommands.FindItem(lSourceTableName));
+            lTargetTable := lProcessorItem.TargetTable;
+            case change.ChangeType of
+              ctInsert: begin
+                  currcmd := lProcessorItem.fInsertCommand;
+                  mapptr := @lProcessorItem.fInsertCommandMapping;
+                end;
+              ctUpdate: begin
+                  // lBool = Allow updating datAutoInc
+                  if (lAutoIncFld <> -1) then lBool := (change.OldValues[lAutoIncFld] <> change.NewValues[lAutoIncFld]) else lBool := False;
+                  if lBool then begin
+                    currcmd := lProcessorItem.fUpdateCommand_AutoInc;
+                    mapptr := @lProcessorItem.fUpdateCommandMapping_AutoInc;
+                  end
+                  else begin
+                    currcmd := lProcessorItem.fUpdateCommand;
+                    mapptr := @lProcessorItem.fUpdateCommandMapping;
+                  end;
+                end;
+              ctDelete: begin
+                  currcmd := lProcessorItem.fDeleteCommand;
+                  mapptr := @lProcessorItem.fDeleteCommandMapping;
+
+                end;
+            end;
+            refds := lProcessorItem.RefreshDataset;
+          end else begin
+            // lBool = Allow updating datAutoInc
+            if (lAutoIncFld <> -1) then lBool := (change.OldValues[lAutoIncFld] <> change.NewValues[lAutoIncFld]) else lBool := False;
+            SetupCommandsWithMapping(aConnection, Change, currCmd, insmap, refds, lTargetTable, lBool);
+            mapptr := @insmap;
+          end;
+
+         //GenerateRefreshDataset(Schema.FindDataset(lSourceTableName),aConnection,lSourceTableName,lUnionSourceTable.ColumnMappings);
+
+          // Assigns the values of the current change
+          if (currcmd <> nil) then
+            for x := 0 to (currcmd.Params.Count - 1) do
+              if (mapptr^[x].DeltaIndex >= 0) then begin
+                val := null;// fix for "Invalid Variant Type" exception in Win2000
+                case mapptr^[x].MappingType of
+                  mtOldValue: val := change.OldValues[mapptr^[x].DeltaIndex];
+                  else val := change.NewValues[mapptr^[x].DeltaIndex];
+                end;
+
+                if (currcmd.Params[x].DataType in [datAutoinc, datLargeAutoInc]) and (usegenerators or usegenerators2) and (change.ChangeType=ctInsert) and (mapptr^[x].MappingType=mtNewValue) then begin
+                  // Gets the next generator values from the DB. This is for DBs such as IB or Oracle which lack autoinc fields
+                  if (autoincvalue<>-1) then raise Exception.Create('Multiple auto incremental fields not supported');
+                  parname := currcmd.Params[x].Name;
+                  change.OldValues[mapptr^[x].DeltaIndex] := val;
+                  if usegenerators2 then
+                    autoincvalue := (aConnection as IDAUseGenerators2).GetNextAutoinc2(currcmd.Params[x].GeneratorName)
+                  else
+                    autoincvalue := (aConnection as IDAUseGenerators).GetNextAutoinc(currcmd.Params[x].GeneratorName);
+                  currcmd.Params[x].Value := autoincvalue;
+                  change.RefreshedByServer := TRUE;
+                  if not Assigned(refds) then begin
+                    change.NewValues[mapptr^[x].DeltaIndex] := autoincvalue;
+                  end;
+                end
+                else currcmd.Params[x].Value := val;
+              end;
+
+          // Gives the user a chance to modify it before execution
+          if Assigned(fOnProcessChange) then
+            fOnProcessChange(Self, change.ChangeType, change, currcmd)
+          else if Assigned(fBusinessRules) then
+            fBusinessRules.ProcessChange(Self, change.ChangeType, change, currcmd);
+
+          // Executes it
+          if (currcmd <> nil)
+            then rowsaffected := currcmd.Execute
+            else rowsaffected := 0;
+
+          canremove := FALSE;
+
+          // IBX returns -1 even if updates are successful! This started to happen after I plugged the GetNextAutoinc call above.
+          // If records fail, an exception is usually generated so this check for <>0 should be sufficient for all cases...
+          // DO NOT CHANGE this to >0 !!!!
+          if (rowsaffected<>0) or (poIgnoreRowsAffected in fProcessorOptions) then begin
+            if (change.ChangeType<>ctDelete) and (refds<>NIL) then begin
+              lConnection := GetConnectionForObject(aConnection, refds.LogicalName);
+              RefreshDeltaChange(lConnection, refds, aDelta, change, autoincvalue);
+              change.RefreshedByServer := TRUE;
+            end;
+
+            canremove := not change.RefreshedByServer;
+            change.Status := csResolved;
+
+            if (ADeltaStruct <> nil) and (change.ChangeType in [ctInsert, ctUpdate]) and (lTargetTable <> '') then begin
+              for z:=0 to ADeltaStruct.RelationShips.Count - 1 do
+                if lTargetTable = ADeltaStruct.RelationShips[z].DetailDatasetName then
+                  SynchronizeAutoIncs(aDelta,ADeltaStruct.fDetailDeltas[z], ADeltaStruct.RelationShips[z]);
+            end;
+          end
+          else begin
+            if fHasReducedDelta and (currcmd = nil) then begin
+              // no data for operations, i.e. oldvalues[] = newvalues[]
+              canremove := True;
+              change.Status := csResolved;
+            end
+            else begin
+              canremove := FALSE;
+              change.Status := csFailed;
+              change.Message := 'No rows were affected by this update';
+            end;
+          end;
+
+          // After processing gives the user a last chance to update the change and
+          // optionally set it so that it goes back to the client (i.e. updated values)
+          if Assigned(fOnAfterProcessChange)
+            then fOnAfterProcessChange(Self, change, ok, canremove)
+
+          else if Assigned(fBusinessRules)
+            then fBusinessRules.AfterProcessChange(Self, change, ok, canremove)
+        end;
+
+      except
+        on E: Exception do begin
+          change.Status := csFailed;
+          change.Message := E.Message;
+          canremove := FALSE;
+
+          if Assigned(fOnProcessError) then
+            fOnProcessError(Self, change.ChangeType, change, currcmd, canremove, E)
+          else if Assigned(fBusinessRules) then begin
+            fBusinessRules.ProcessError(Self, change.ChangeType, change, currcmd, canremove, E);
+            if FRaiseExceptionAtError then raise;
+          end
+          else if FRaiseExceptionAtError then begin
+            raise EDAApplyUpdateFailed.Create(change, E);
+          end;  
+        end;
+      end;
+
+      if canremove then todelete.Add(change);
+    end;
+
+    for i := 0 to todelete.Count - 1 do
+      aDelta.RemoveChange(TDADeltaChange(todelete[i]));
+
+    if Assigned(fOnAfterProcessDelta) then
+      fOnAfterProcessDelta(Self, aDelta)
+    else if Assigned(fBusinessRules) then
+      fBusinessRules.AfterProcessDelta(Self, aDelta)
+
+  finally
+    todelete.Free;
+  end;
+  finally
+    lCommands.Free();
+  end;
+
+end;
+
+procedure TDABusinessProcessor.SetupCommands(const aConnection: IDAConnection;
+const aDelta: IDADelta; out aCommandsList : TDADeltaProcessorItemCollection);
+var i: Integer;
+  refstmt: TDAStatement;
+  lUnionTable: TDAUnionDataTable;
+  lSourceTable: TDADataset;
+  lSourceTableName: String;
+  lSourceTableIdx: integer;
+  lSourceTableMapping: TDAColumnMappingCollection;
+  lProcessorItem: TDADeltaProcessorItem;
+
+  lSql: String;
+  lVar: Variant;
+  lConnection: IDAConnection;
+begin
+  //lUnionTable := nil;
+  refstmt := nil;
+  CheckProperties;
+
+  aCommandsList := TDADeltaProcessorItemCollection.Create(Self);
+
+  lUnionTable := fSchema.UnionDataTables.ItemByName(fReferencedDataset) as TDAUnionDataTable;
+
+  if not Assigned(lUnionTable) then
+    RaiseError(Name + '''s referenced dataset is not speficied or does not exist. Cannot generate SQL');
+
+  // for each change in delta
+  for i:= 0 to aDelta.Count-1 do begin
+    case aDelta.Changes[i].ChangeType of
+      ctInsert: lVar := aDelta.Changes[i].NewValueByName[def_SourceTableFieldName];
+      ctUpdate, ctDelete: lVar := aDelta.Changes[i].OldValueByName[def_SourceTableFieldName];
+    end;
+
+    if (VarIsNull(lVar) or VarIsClear(lVar)) then begin
+      if lUnionTable.DefaultSourceTable <> '' then
+        lSourceTableName := lUnionTable.DefaultSourceTable
+      else
+        lSourceTableName := lUnionTable.SourceTables[0].Name;
+      lSourceTableIdx := lUnionTable.SourceTables.ItemByName(lSourceTableName).Index;
+    end else begin
+      lSourceTableIdx := lVar;
+      lSourceTableName := lUnionTable.SourceTables[lSourceTableIdx].Name;
+    end;
+    lSourceTableMapping := lUnionTable.SourceTables[lSourceTableIdx].ColumnMappings;
+    lConnection := GetConnectionForObject(aConnection, lSourceTableName);
+    lSourceTable := TDADataset(fSchema.Datasets.FindItem(lSourceTableName));
+    if Assigned(lSourceTable) then begin
+      refstmt := lSourceTable.Statements.FindItem(lConnection.Name, '', lConnection.ConnectionType, True);
+    end;
+
+    lProcessorItem := TDADeltaProcessorItem(aCommandsList.FindItem(lSourceTableName));
+
+    if not Assigned(lProcessorItem) then begin
+      lProcessorItem := aCommandsList.Add();
+      lProcessorItem.fName := lSourceTableName;
+      if refstmt <> nil then  lProcessorItem.TargetTable := refstmt.TargetTable;
+    end;
+
+
+    // Assemble Refresh dataset  ...
+    if (fRefreshDataset <> '') and (not Assigned(lProcessorItem.fRefreshDataset)) then
+      lProcessorItem.fRefreshDataset := fSchema.NewDataset(lConnection, fRefreshDataset, [], [], FALSE);
+
+    if (lProcessorItem.fRefreshDataset = nil) and (poAutoGenerateRefreshDataset in fProcessorOptions) then begin
+      lProcessorItem.fRefreshDataset := GenerateRefreshDataset(lSourceTable, lConnection, refstmt.TargetTable, refstmt.ColumnMappings, lSourceTableMapping);
+      if (lProcessorItem.fRefreshDataset <> NIL) then begin
+        lProcessorItem.fRefreshDataset.LogicalName := lSourceTableName;
+        SetupParameters(lProcessorItem.fRefreshDataset, lSourceTable, lConnection, lSourceTableMapping);
+      end;
+    end;
+
+    if Assigned(lProcessorItem.fRefreshDataset) and (not lProcessorItem.fRefreshDataset.Prepared) then
+      lProcessorItem.fRefreshDataset.Prepared := True;
+
+
+    // Assemble Insert command ...
+    if ((aDelta.Changes[i].ChangeType = ctInsert) and (not Assigned(lProcessorItem.fInsertCommand))) then begin
+      // Tries to locate the specified commands
+      if (fInsertCommandName <> '') then
+        lProcessorItem.fInsertCommand := fSchema.NewCommand(lConnection, fInsertCommandName);
+      // Auto generates the SQL for the undefined commands
+      if (lProcessorItem.fInsertCommand = nil) and (poAutoGenerateInsert in fProcessorOptions) then begin
+        lSql := GenerateSQL(ctInsert, nil, lSourceTable, aDelta, refstmt, lConnection);
+        lProcessorItem.fInsertCommand := lConnection.NewCommand(lSql, stSQL);
+        SetupParameters(lProcessorItem.fInsertCommand, lSourceTable, lConnection);
+      end;
+
+      if Assigned(lProcessorItem.fInsertCommand) then begin
+        CreateMappings(aDelta, lProcessorItem.fInsertCommandMapping , lProcessorItem.fInsertCommand, lSourceTableMapping, True);
+        lProcessorItem.fInsertCommand.Prepared := True;
+      end;
+    end;
+
+    // Assemble Update command ...
+    if ((aDelta.Changes[i].ChangeType = ctUpdate) and (not Assigned(lProcessorItem.fUpdateCommand))) then begin
+      // Tries to locate the specified commands
+      if (fUpdateCommandName <> '') then
+        lProcessorItem.fUpdateCommand := fSchema.NewCommand(lConnection, fUpdateCommandName);
+      // Auto generates the SQL for the undefined commands
+      if (lProcessorItem.fUpdateCommand = nil) and (poAutoGenerateUpdate in fProcessorOptions) then begin
+        lSql := GenerateSQL(ctUpdate, nil, lSourceTable, aDelta, refstmt, lConnection);
+        lProcessorItem.fUpdateCommand := lConnection.NewCommand(lSql, stSQL);
+        SetupParameters(lProcessorItem.fUpdateCommand, lSourceTable, lConnection);
+
+        // autoInc
+        lSql := GenerateSQL2(ctUpdate, nil, lSourceTable, aDelta, refstmt, lConnection,True);
+        lProcessorItem.fUpdateCommand_AutoInc := lConnection.NewCommand(lSql, stSQL);
+        SetupParameters(lProcessorItem.fUpdateCommand_AutoInc, lSourceTable, lConnection);
+      end;
+      if Assigned(lProcessorItem.fUpdateCommand) then begin
+        CreateMappings(aDelta, lProcessorItem.fUpdateCommandMapping , lProcessorItem.fUpdateCommand, lSourceTableMapping, True);
+        lProcessorItem.fUpdateCommand.Prepared := True;
+      end;
+
+      if Assigned(lProcessorItem.fUpdateCommand_AutoInc) then begin
+        CreateMappings(aDelta, lProcessorItem.fUpdateCommandMapping_AutoInc , lProcessorItem.fUpdateCommand_AutoInc, lSourceTableMapping, True);
+        lProcessorItem.fUpdateCommand_AutoInc.Prepared := True;
+      end;
+    end;
+
+    // Assemble Delete command ...
+    if ((aDelta.Changes[i].ChangeType = ctDelete) and (not Assigned(lProcessorItem.fDeleteCommand))) then begin
+      // Tries to locate the specified commands
+      if (fDeleteCommandName <> '') then
+        lProcessorItem.fDeleteCommand := fSchema.NewCommand(lConnection, fDeleteCommandName);
+      // Auto generates the SQL for the undefined commands
+      if (lProcessorItem.fDeleteCommand = nil) and (poAutoGenerateDelete in fProcessorOptions) then begin
+        lSql := GenerateSQL(ctDelete, nil, lSourceTable, aDelta, refstmt, lConnection);
+        lProcessorItem.fDeleteCommand := lConnection.NewCommand(lSql, stSQL);
+        SetupParameters(lProcessorItem.fDeleteCommand, lSourceTable, lConnection);
+      end;
+      if Assigned(lProcessorItem.fDeleteCommand) then begin
+        CreateMappings(aDelta, lProcessorItem.fDeleteCommandMapping , lProcessorItem.fDeleteCommand, lSourceTableMapping, True);
+        lProcessorItem.fDeleteCommand.Prepared := True;
+      end;
+    end;
+
+  end;
+end;
+
+function TDABusinessProcessor.GetConnectionForObject(const aConnection: IDAConnection; const aName: string): IDAConnection;
+var lHETConnection: IDAHETConnection;
+begin
+  result := aConnection;
+  if Supports(aConnection, IDAHETConnection, lHETConnection) then
+    result := lHETConnection.GetConnectionForObject(aName)
+end;
+
+
+{ TDADeltaProcessorItemCollection }
+constructor TDADeltaProcessorItemCollection.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner, TDADeltaProcessorItem);
+end;
+
+function TDADeltaProcessorItemCollection.GetItem(Index: integer): TDADeltaProcessorItem;
+begin
+  result := TDADeltaProcessorItem(inherited Items[Index])
+end;
+
+procedure TDADeltaProcessorItemCollection.SetItem(Index: integer; const Value: TDADeltaProcessorItem);
+begin
+  Items[Index].Assign(Value);
+end;
+
+function TDADeltaProcessorItemCollection.Add: TDADeltaProcessorItem;
+begin
+  result := TDADeltaProcessorItem(inherited Add);
+end;
+
+function TDADeltaProcessorItemCollection.ItemByName(const aName: String): TDADeltaProcessorItem;
+begin
+  result := TDADeltaProcessorItem(inherited ItemByName(aName));
+end;
+
+
+function TDADeltaProcessorItemCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDADeltaProcessorItem(anItem).Name;
+end;
+
+function TDADeltaProcessorItemCollection.SetItemName(
+  anItem: TCollectionItem; const aName: string): string;
+begin
+  TDADeltaProcessorItem(anItem).Name := aName;
+end;
+
+initialization
+  _bizdeltachanges := TStringList.Create;
+  _bizdeltachanges.Sorted := TRUE;
+
+finalization
+  _bizdeltachanges.Free;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDACDSDataTable.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDACDSDataTable.pas
new file mode 100644
index 0000000..2445406
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDACDSDataTable.pas	
@@ -0,0 +1,738 @@
+unit uDACDSDataTable;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses Classes, DB, uDAInterfaces, uDADataTable, DBClient;
+
+
+const
+  DAFormatToCDSFormat : array[TDANativeDataFormat] of TDataPacketFormat = (dfBinary, dfXML);
+
+type
+  TDACDSDataTable = class;
+
+  { TDAClientdataset }
+  TDAClientdataset = class(TClientDataset, IDADataTableDataset)
+  private
+    FLocateRecordMode: Boolean;
+    function GetActive: boolean;
+
+  protected
+    function GetDataTable: TDADataTable; safecall;
+    procedure InternalRefresh; override;
+    function GetStateFieldValue(State: TDataSetState;
+      Field: TField): Variant; override;
+    procedure DataEvent(Event: TDataEvent; Info: Longint); override;
+  public
+    function Locate(const KeyFields: string; const KeyValues: Variant;
+      Options: TLocateOptions): Boolean; override;
+    function Lookup(const KeyFields: string; const KeyValues: Variant;
+      const ResultFields: string): Variant; override;
+{$IFDEF DELPHI7UP}
+    procedure GetFieldNames(List: TStrings); override;
+{$ENDIF}
+  published
+    property Active: boolean read GetActive;
+  end;
+
+  { TDACDSDataTable }
+  TDACDSDataTable = class(TDADataTable, IDARangeController, IDANativeDatasetStreaming)
+  private
+    fMasterSource : TDADataSource;
+    fClientDataset: TClientDataSet;
+    fWasReadonly : Boolean;
+  protected
+    function intDATypeToVCLType(aDAType: TDADataType): TFieldType; override;
+    function GetDatasetClass: TDatasetClass; override;
+    procedure CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection); override;
+    procedure DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection); override;
+
+    procedure DoBeforeOpenDataset; override;
+    procedure DoAfterCloseDataset; override;
+
+    procedure SetMasterSource(const Value: TDADataSource); override;
+    function GetMasterSource: TDADataSource; override;
+    procedure SetDetailsFields(const Value: string); override;
+    procedure SetMasterFields(const Value: string); override;
+    function GetDetailFields: string; override;
+    function GetMasterFields: string; override;
+
+    function GetIndexDefs: TIndexDefs;
+    procedure SetIndexDefs(const Value: TIndexDefs);
+    function GetIndexName: string;
+    procedure SetIndexName(const Value: string);
+
+    function GetFilter: string; override;
+    function GetFiltered: boolean; override;
+    procedure SetFilter(const Value: string); override;
+    procedure SetFiltered(const Value: boolean); override;
+
+    function GetReadOnly: boolean; override;
+    procedure SetReadOnly(const Value: boolean); override;
+    function GetMasterDataLink: TMasterDataLink; override;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+    procedure FindNearest(const KeyValues: array of const);
+
+    { IDAClonedCursorsSupport }
+    procedure CloneCursor(Source : TDADataTable); override; safecall;
+
+    { IDANativeDatasetStreaming }
+    procedure NativeSaveToFile(const aFileName : string; DataFormat : TDANativeDataFormat = ndfBinary);
+    procedure NativeLoadFromFile(const aFileName : string);
+    procedure NativeSaveToStream(aStream : TStream; DataFormat : TDANativeDataFormat = ndfBinary);
+    procedure NativeLoadFromStream(aStream : TStream);
+
+    { IDARangeController }
+    procedure ApplyRange; safecall;
+    procedure CancelRange; safecall;
+    procedure SetRange(const StartValues, EndValues: array of const); safecall;
+    procedure EditRangeEnd; safecall;
+    procedure EditRangeStart; safecall;
+    procedure SetRangeEnd; safecall;
+    procedure SetRangeStart; safecall;
+
+    procedure DisableConstraints; override; safecall;
+    procedure EnableConstraints; override; safecall;
+  published
+    property IndexDefs: TIndexDefs read GetIndexDefs write SetIndexDefs;
+    property IndexName: string read GetIndexName write SetIndexName;
+
+  end;
+
+// Table for quick CRC Calculations. Used to generate unique index names when sorting
+const crctable : array [0..255] of cardinal =
+(
+ $00000000, $77073096, $EE0E612C, $990951BA,
+ $076DC419, $706AF48F, $E963A535, $9E6495A3,
+ $0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988,
+ $09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91,
+ $1DB71064, $6AB020F2, $F3B97148, $84BE41DE,
+ $1ADAD47D, $6DDDE4EB, $F4D4B551, $83D385C7,
+ $136C9856, $646BA8C0, $FD62F97A, $8A65C9EC,
+ $14015C4F, $63066CD9, $FA0F3D63, $8D080DF5,
+ $3B6E20C8, $4C69105E, $D56041E4, $A2677172,
+ $3C03E4D1, $4B04D447, $D20D85FD, $A50AB56B,
+ $35B5A8FA, $42B2986C, $DBBBC9D6, $ACBCF940,
+ $32D86CE3, $45DF5C75, $DCD60DCF, $ABD13D59,
+ $26D930AC, $51DE003A, $C8D75180, $BFD06116,
+ $21B4F4B5, $56B3C423, $CFBA9599, $B8BDA50F,
+ $2802B89E, $5F058808, $C60CD9B2, $B10BE924,
+ $2F6F7C87, $58684C11, $C1611DAB, $B6662D3D,
+ $76DC4190, $01DB7106, $98D220BC, $EFD5102A,
+ $71B18589, $06B6B51F, $9FBFE4A5, $E8B8D433,
+ $7807C9A2, $0F00F934, $9609A88E, $E10E9818,
+ $7F6A0DBB, $086D3D2D, $91646C97, $E6635C01,
+ $6B6B51F4, $1C6C6162, $856530D8, $F262004E,
+ $6C0695ED, $1B01A57B, $8208F4C1, $F50FC457,
+ $65B0D9C6, $12B7E950, $8BBEB8EA, $FCB9887C,
+ $62DD1DDF, $15DA2D49, $8CD37CF3, $FBD44C65,
+ $4DB26158, $3AB551CE, $A3BC0074, $D4BB30E2,
+ $4ADFA541, $3DD895D7, $A4D1C46D, $D3D6F4FB,
+ $4369E96A, $346ED9FC, $AD678846, $DA60B8D0,
+ $44042D73, $33031DE5, $AA0A4C5F, $DD0D7CC9,
+ $5005713C, $270241AA, $BE0B1010, $C90C2086,
+ $5768B525, $206F85B3, $B966D409, $CE61E49F,
+ $5EDEF90E, $29D9C998, $B0D09822, $C7D7A8B4,
+ $59B33D17, $2EB40D81, $B7BD5C3B, $C0BA6CAD,
+ $EDB88320, $9ABFB3B6, $03B6E20C, $74B1D29A,
+ $EAD54739, $9DD277AF, $04DB2615, $73DC1683,
+ $E3630B12, $94643B84, $0D6D6A3E, $7A6A5AA8,
+ $E40ECF0B, $9309FF9D, $0A00AE27, $7D079EB1,
+ $F00F9344, $8708A3D2, $1E01F268, $6906C2FE,
+ $F762575D, $806567CB, $196C3671, $6E6B06E7,
+ $FED41B76, $89D32BE0, $10DA7A5A, $67DD4ACC,
+ $F9B9DF6F, $8EBEEFF9, $17B7BE43, $60B08ED5,
+ $D6D6A3E8, $A1D1937E, $38D8C2C4, $4FDFF252,
+ $D1BB67F1, $A6BC5767, $3FB506DD, $48B2364B,
+ $D80D2BDA, $AF0A1B4C, $36034AF6, $41047A60,
+ $DF60EFC3, $A867DF55, $316E8EEF, $4669BE79,
+ $CB61B38C, $BC66831A, $256FD2A0, $5268E236,
+ $CC0C7795, $BB0B4703, $220216B9, $5505262F,
+ $C5BA3BBE, $B2BD0B28, $2BB45A92, $5CB36A04,
+ $C2D7FFA7, $B5D0CF31, $2CD99E8B, $5BDEAE1D,
+ $9B64C2B0, $EC63F226, $756AA39C, $026D930A,
+ $9C0906A9, $EB0E363F, $72076785, $05005713,
+ $95BF4A82, $E2B87A14, $7BB12BAE, $0CB61B38,
+ $92D28E9B, $E5D5BE0D, $7CDCEFB7, $0BDBDF21,
+ $86D3D2D4, $F1D4E242, $68DDB3F8, $1FDA836E,
+ $81BE16CD, $F6B9265B, $6FB077E1, $18B74777,
+ $88085AE6, $FF0F6A70, $66063BCA, $11010B5C,
+ $8F659EFF, $F862AE69, $616BFFD3, $166CCF45,
+ $A00AE278, $D70DD2EE, $4E048354, $3903B3C2,
+ $A7672661, $D06016F7, $4969474D, $3E6E77DB,
+ $AED16A4A, $D9D65ADC, $40DF0B66, $37D83BF0,
+ $A9BCAE53, $DEBB9EC5, $47B2CF7F, $30B5FFE9,
+ $BDBDF21C, $CABAC28A, $53B39330, $24B4A3A6,
+ $BAD03605, $CDD70693, $54DE5729, $23D967BF,
+ $B3667A2E, $C4614AB8, $5D681B02, $2A6F2B94,
+ $B40BBE37, $C30C8EA1, $5A05DF1B, $2D02EF8D
+);
+
+function CRC(S : String):LongInt;
+
+implementation
+
+uses Variants, SysUtils, uDAClasses;
+
+{ TDACDSDataTable }
+
+constructor TDACDSDataTable.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fClientDataset := TClientDataSet(Dataset);
+  fClientDataset.FetchOnDemand := FALSE;
+  fClientDataset.FilterOptions :=  [foCaseInsensitive];
+end;
+
+procedure TDACDSDataTable.CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection);
+begin
+  inherited;
+
+  // Creates the dataset
+  if not MasterLink.Active then begin
+    // This should actually never happen since its mutually exclusive with IndexFieldNames...
+    if (fClientDataset.IndexName<>'') then 
+      fClientDataset.IndexName := '';
+  end;
+
+  fClientDataset.CreateDataSet;
+  //fClientDataset.LogChanges := FALSE;
+  { Unfortunately a bug in the CDS provents us to disable the log.
+    Tables with multiple blob fields behave weird and lose data otherwise.
+    The Issue has been reported to Borland. }
+end;
+
+// CRC routine in ASM.
+// NOTE: This routine strips the signed bit from the CRC.
+// Written and posted on Google by Clifford Hammerschmidt
+// http://www.engr.uvic.ca/~chammers/
+// http://www.ultranet.ca/chcc/
+function CRC(S : String):LongInt;
+var
+ Len,crc : LongInt;
+ K : PChar;
+begin
+ Len := Length(S);
+ K := PChar(S);
+ asm
+  mov       dword ptr [crc],$ffffffff
+@@2:
+  dec   dword ptr [len]
+  cmp   dword ptr [len],$FFFFFFFF
+  je        @@1
+  mov       eax,dword ptr [K]
+  movsx     eax,byte ptr [eax]
+  mov       ecx,dword ptr [crc]
+  sar       ecx,$18
+  xor       eax,ecx
+  and       eax,$000000ff
+  mov       eax,dword ptr [crctable+eax*$4]
+  mov       ecx,dword ptr [crc]
+  shl       ecx,$08
+  xor       eax,ecx
+  mov       dword ptr [crc],eax
+  inc       dword ptr [K]
+  jmp       @@2
+@@1:
+// NOTE: From here on the asm is optional...
+  mov       eax,dword ptr [crc]
+  not       eax
+// Next line strips signed bit...
+  and       eax,$7fffffff
+  mov       dword ptr [crc],eax
+ end;
+
+ Result := crc;
+end;
+
+procedure TDACDSDataTable.DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection);
+const
+  DirectionStr: array[TDASortDirection] of string = ('ASC', 'DESC');
+var
+  ascfields, descfields,
+  idxname: string;
+  i: integer;
+  idx: TIndexDef;
+begin
+  with fClientDataset do begin
+    if (Length(FieldNames) = 0) then begin
+      IndexName := '';
+      Exit;
+    end;
+
+    idxname := '';
+    for i := 0 to Length(FieldNames) - 1 do
+      idxname := idxname + FieldNames[i] + '_' + DirectionStr[Directions[i]];
+
+    idxname := 'IDX'+IntToStr(CRC(idxname));
+
+    idx := TDefCollection(IndexDefs).Find(idxname) as TIndexDef;
+    if (idx = nil) then begin
+      ascfields := '';
+      descfields := '';
+
+      for i := 0 to Length(Directions) - 1 do begin
+        ascfields := ascfields + FieldNames[i] + ';'; //<-- IDX.Fields must include ALL Fieldnames
+        if Directions[i] = sdDescending then
+          descfields := descfields + FieldNames[i] + ';';
+      end;
+
+      idx := fClientDataset.IndexDefs.AddIndexDef;
+      idx.Name := idxname;
+      idx.DescFields := descfields;
+      idx.Fields := ascfields;
+    end;
+
+    IndexName := idxname;
+  end;
+end;
+
+function TDACDSDataTable.GetDatasetClass: TDatasetClass;
+begin
+  result := TDAClientDataset;
+end;
+
+function TDACDSDataTable.GetMasterSource: TDADataSource;
+begin
+  result := fMasterSource;
+end;
+
+procedure TDACDSDataTable.DoAfterCloseDataset;
+begin
+  inherited;
+  fClientDataset.Data := Null;
+end;
+
+function TDACDSDataTable.GetFilter: string;
+begin
+  result := fClientDataset.Filter
+end;
+
+//////////////
+procedure TDACDSDataTable.DoBeforeOpenDataset;
+begin
+  inherited;
+
+  // This helps prevending a design time problem which results in DetailFields being reset
+  // whenever something is wrong or the dataset cannot be open properly
+  // Keep in this orders!!!
+  
+{  fClientDataset.IndexFieldNames := fDetailFields;
+  fClientDataset.MasterFields := fMasterFields;
+  fClientDataset.MasterSource := fMasterSource;}
+end;
+
+procedure TDACDSDataTable.SetMasterSource(const Value: TDADataSource);
+begin
+  fClientDataset.MasterSource := Value;
+  fMasterSource := Value;
+
+  inherited SetMasterSource(Value);
+end;
+
+procedure TDACDSDataTable.SetMasterFields(const Value: string);
+begin
+  fClientDataset.MasterFields := Value;
+
+  inherited;
+  //fMasterFields := Value;
+end;
+
+procedure TDACDSDataTable.SetDetailsFields(const Value: string);
+begin
+  fClientDataset.IndexFieldNames := Value
+  //fDetailFields := Value;
+end;
+
+function TDACDSDataTable.GetDetailFields: string;
+begin
+  result := fClientDataset.IndexFieldNames
+  //result := fDetailFields
+end;
+
+{$HINTS OFF}
+type
+{$IFDEF DELPHI2007}
+  THackCustomClientDataSet = class(TWideDataSet)
+  private
+    FActiveAggLists: TList;
+    FAggFieldsUpdated: TBits;
+    FAggFieldsInit: Boolean;
+    FAggFieldsSize: Integer;
+    FAggGrpIndOfs: Integer;
+    FAggFieldsOfs: Integer;
+    FAggGrpIndSize: Integer;
+    FAggregates: TAggregates;
+    FAggregatesActive: Boolean;
+    FCommandText: WideString;
+    FDisableStringTrim: Boolean;
+    FDSBase: IUnknown;
+    FDSCursor: IUnknown;
+    FDSOptions: TDataSetOptions;
+    FFindCursor: IUnknown;
+    FCloneSource: TCustomClientDataSet;
+    FReconcileDataSet: TCustomClientDataSet;
+    FSavedPacket: Pointer;
+    FDeltaPacket: Pointer;
+    FParams: TParams;
+    FIndexDefs: TIndexDefs;
+    FIndexName: WideString;
+    FExprFilter: pointer;
+    FFuncFilter: pointer;
+    FFileName: string;
+    FFilterBuffer: PChar;
+    FGroupingLevel: Integer;
+    FLastParentBM: array of byte;
+    FMasterLink: TMasterDataLink;
+  end;
+{$ELSE}
+  THackCustomClientDataSet = class(TDataSet)
+  private
+    FActiveAggLists: TList;
+    FAggFieldsUpdated: TBits;
+    FAggFieldsInit: Boolean;
+    FAggFieldsSize: Integer;
+    FAggGrpIndOfs: Integer;
+    FAggFieldsOfs: Integer;
+    FAggGrpIndSize: Integer;
+    FAggregates: TAggregates;
+    FAggregatesActive: Boolean;
+    FCommandText: string;
+    FDisableStringTrim: Boolean;
+    FDSBase: IUnknown;
+    FDSCursor: IUnknown;
+    FDSOptions: TDataSetOptions;
+    FFindCursor: IUnknown;
+    FCloneSource: TCustomClientDataSet;
+    FReconcileDataSet: TCustomClientDataSet;
+    FSavedPacket: Pointer;
+    FDeltaPacket: Pointer;
+    FParams: TParams;
+    FIndexDefs: TIndexDefs;
+    FIndexName: string;
+    FExprFilter: Pointer;
+    FFuncFilter: Pointer;
+    FFileName: string;
+    FFilterBuffer: PChar;
+    FGroupingLevel: Integer;
+    FLastParentBM: array of byte;
+    FMasterLink: TMasterDataLink;
+  end;
+{$ENDIF}
+{$HINTS ON}
+
+function TDACDSDataTable.GetMasterDataLink: TMasterDataLink;
+begin
+  Result := THackCustomClientDataSet(fClientDataset).FMasterLink;
+end;
+
+function TDACDSDataTable.GetMasterFields: string;
+begin
+  result := fClientDataset.MasterFields
+  //result := fMasterFields
+end;
+///////////
+
+function TDACDSDataTable.GetFiltered: boolean;
+begin
+  result := fClientDataset.Filtered
+end;
+
+procedure TDACDSDataTable.SetFilter(const Value: string);
+begin
+  fClientDataset.Filter := Value
+end;
+
+procedure TDACDSDataTable.SetFiltered(const Value: boolean);
+begin
+  fClientDataset.Filtered := Value
+end;
+
+function TDACDSDataTable.GetIndexDefs: TIndexDefs;
+begin
+  result := fClientDataset.IndexDefs
+end;
+
+procedure TDACDSDataTable.SetIndexDefs(const Value: TIndexDefs);
+begin
+  fClientDataset.IndexDefs.Assign(Value);
+end;
+
+function TDACDSDataTable.GetIndexName: string;
+begin
+  result := fClientDataset.IndexName
+end;
+
+procedure TDACDSDataTable.SetIndexName(const Value: string);
+begin
+  fClientDataset.IndexName := Value
+end;
+
+function TDACDSDataTable.GetReadOnly: boolean;
+begin
+  result := fClientDataset.ReadOnly
+end;
+
+procedure TDACDSDataTable.SetReadOnly(const Value: boolean);
+begin
+  fClientDataset.ReadOnly := Value
+end;
+
+procedure TDACDSDataTable.CloneCursor(Source: TDADataTable);
+var i: integer;
+begin
+  if Source = nil then Exception.Create('CloneCursor. Source should be specified.');
+  if not (Source is TDACDSDataTable) then Exception.Create('Can''t clone cursor from ' + Source.ClassName);
+  if Active then raise Exception.Create('Datatable is already open');
+
+  try
+    fCloneSource := Source;
+
+    Fields.Clear;
+    Fields.Assign(Source.Fields);
+
+    // Lookup fields are not cloned by the CDS. We must remove them
+    for i := (Fields.Count-1) downto 0 do
+      if Fields[i].Lookup then Fields.Delete(i);
+
+    // Proceeds
+    fClientDataset.CloneCursor(Source.Dataset as TClientDataset, False);
+
+    RecIDField := fClientDataset.FieldByName(RecIDFieldName) as TIntegerField;
+    RecIDField.Visible := FALSE;
+
+    Fields.Bind(fClientDataset);
+
+    // Prepares the delta
+    Delta := Source.Delta;
+
+    // Finishes to prepare the internal dataset (descendant might need additional customization and might not be open)
+    DoBeforeOpenDataset;
+    if not Dataset.Active then Dataset.Open;
+    DoAfterOpenDataset;
+  except
+    // Restores the previous state
+    fCloneSource := NIL;
+    Delta := NIL;
+
+    raise;
+  end;
+end;
+
+procedure TDACDSDataTable.ApplyRange;
+begin
+  fClientDataset.ApplyRange
+end;
+
+procedure TDACDSDataTable.Assign(Source: TPersistent);
+var
+  lSource: TDACDSDataTable;
+begin
+  inherited;
+  if Source is TDACDSDataTable then begin
+    lSource := TDACDSDataTable(Source);
+
+    IndexDefs := lSource.IndexDefs;
+    IndexName := lSource.IndexName;
+  end;
+end;
+
+procedure TDACDSDataTable.CancelRange;
+begin
+  fClientDataset.CancelRange
+end;
+
+procedure TDACDSDataTable.EditRangeEnd;
+begin
+  fClientDataset.EditRangeEnd
+end;
+
+procedure TDACDSDataTable.EditRangeStart;
+begin
+  fClientDataset.EditRangeStart
+end;
+
+procedure TDACDSDataTable.SetRange(const StartValues,
+  EndValues: array of const);
+begin
+  fClientDataset.SetRange(StartValues, EndValues);
+end;
+
+procedure TDACDSDataTable.SetRangeEnd;
+begin
+  fClientDataset.SetRangeEnd
+end;
+
+procedure TDACDSDataTable.SetRangeStart;
+begin
+  fClientDataset.SetRangeStart
+end;
+
+procedure TDACDSDataTable.NativeLoadFromFile(const aFileName: string);
+var fs : TFileStream;
+begin
+  fs := TFileStream.Create(aFileName, fmOpenRead+fmShareDenyWrite);
+  try
+    NativeLoadFromStream(fs);
+  finally
+    fs.Free;
+  end;
+end;
+
+procedure TDACDSDataTable.NativeSaveToFile(const aFileName: string;
+  DataFormat: TDANativeDataFormat);
+var fs : TFileStream;
+begin
+  fs := TFileStream.Create(aFileName, fmCreate);
+  try
+    NativeSaveToStream(fs, DataFormat);
+  finally
+    fs.Free;
+  end;
+end;
+
+procedure TDACDSDataTable.NativeLoadFromStream(aStream : TStream);
+var oldrf : boolean;
+    ls : TDASchema;
+begin
+  oldrf := RemoteFetchEnabled;
+  ls := LocalSchema;
+  try
+    RemoteFetchEnabled := FALSE;
+    ls := NIL;
+
+    if not Active then Active := TRUE
+    else if DeltaInitialized  then Delta.Clear;
+
+    fClientDataset.LoadFromStream(aStream);
+  finally
+    RemoteFetchEnabled := oldrf;
+    LocalSchema := ls;
+  end;
+end;
+
+procedure TDACDSDataTable.NativeSaveToStream(aStream : TStream;
+  DataFormat: TDANativeDataFormat);
+begin
+  fClientDataset.SaveToStream(aStream, DAFormatToCDSFormat[DataFormat]);
+end;
+
+procedure TDACDSDataTable.DisableConstraints;
+begin
+  fWasReadonly := ReadOnly;
+  ReadOnly := False;
+  fClientDataset.DisableConstraints;
+end;
+
+procedure TDACDSDataTable.EnableConstraints;
+begin
+  fClientDataset.EnableConstraints;
+  ReadOnly := fWasReadonly;
+end;
+
+procedure TDACDSDataTable.FindNearest(const KeyValues: array of const);
+begin
+  fClientDataset.FindNearest(KeyValues);
+end;
+
+
+function TDACDSDataTable.intDATypeToVCLType(
+  aDAType: TDADataType): TFieldType;
+begin
+  if aDAType = datCurrency then
+   Result:= ftCurrency
+  else 
+    Result := inherited intDATypeToVCLType(aDAType);
+end;
+
+{ TDAClientdataset }
+
+procedure TDAClientdataset.DataEvent(Event: TDataEvent; Info: Integer);
+begin
+  if FLocateRecordMode and (Event = deCheckBrowseMode) and (Info = 0) and (Self.State = dsBrowse) then
+    // nothing
+  else
+    inherited;
+end;
+
+function TDAClientdataset.GetActive: boolean;
+begin
+  result := inherited Active;
+end;
+
+function TDAClientdataset.GetDataTable: TDADataTable;
+begin
+  result := TDADataTable(Owner);
+end;
+{$IFDEF DELPHI7UP}
+procedure TDAClientdataset.GetFieldNames(List: TStrings);
+var
+  i: Integer;
+begin
+  if (not inherited Active) then
+  begin
+    for i := 0 to TDADataTable(Owner).FieldCount -1 do
+      List.Add(TDADataTable(Owner).Fields[i].Name);
+    exit;
+  end;
+{$IFDEF DELPHI10UP}{$WARN SYMBOL_DEPRECATED OFF}{$ENDIF}
+  inherited GetFieldNames(List);
+{$IFDEF DELPHI10UP}{$WARN SYMBOL_DEPRECATED ON}{$ENDIF}
+end;
+{$ENDIF}
+
+function TDAClientdataset.GetStateFieldValue(State: TDataSetState;
+  Field: TField): Variant;
+begin
+  if (State = dsOldValue) and (Self.State in [dsEdit, dsInsert]) then
+    Result := TDACDSDataTable(Owner).fOldValues[Field.Index]
+  else
+    result := Inherited GetStateFieldValue(State, Field);
+end;
+
+procedure TDAClientdataset.InternalRefresh;
+begin
+  // Does nothing
+end;
+
+function TDAClientdataset.Locate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  FLocateRecordMode:=True;
+  try
+    Result := inherited Locate(KeyFields,KeyValues,Options);
+  finally
+    FLocateRecordMode:= False;
+  end;
+end;
+
+function TDAClientdataset.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  FLocateRecordMode:=True;
+  try
+    Result := inherited Lookup(KeyFields, KeyValues, ResultFields);
+  finally
+    FLocateRecordMode:= False;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDACache.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDACache.pas
new file mode 100644
index 0000000..6501789
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDACache.pas	
@@ -0,0 +1,425 @@
+unit uDACache;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, SysUtils, SyncObjs,
+  uROClasses, uROTypes, uDAInterfaces;
+
+type
+  { TDACacheElement }
+  TDACacheElementOption = (ceoFlushOnUpdate);
+  TDACacheElementOptions = set of TDACacheElementOption;
+
+  TDACacheElement = class(TCollectionItem)
+  private
+    fEnabled: boolean;
+    fMaxReads: integer;
+    fReferencedDataset: string;
+    fOptions: TDACacheElementOptions;
+    fDuration: integer;
+    procedure SetDuration(const Value: integer);
+    procedure SetMaxReads(const Value: integer);
+
+  protected
+    function GetDisplayName: string; override;
+
+  public
+    constructor Create(aCollection : TCollection); override;
+
+  published
+    property ReferencedDataset : string read fReferencedDataset write fReferencedDataset;
+    property Enabled : boolean read fEnabled write fEnabled;
+    property Options : TDACacheElementOptions read fOptions write fOptions;
+    property MaxReads : integer read fMaxReads write SetMaxReads;
+    property Duration : integer read fDuration write SetDuration;
+  end;
+
+  { TDACacheElementCollection  }
+  TDACacheElementCollection = class(TCollection)
+  private
+    function GetItems(Index: integer): TDACacheElement;
+  protected
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    function Add : TDACacheElement;
+    function FindByDatasetName(aDatasetName : string) : TDACacheElement;
+
+    property Items[Index : integer] : TDACacheElement read GetItems; default;
+  end;
+
+  { IDACacheEntry }
+  IDACacheEntry = interface
+  ['{87F5AFF3-590C-4749-A3D7-BD4F8B2D5166}']
+    function GetInvalid: boolean;
+    function GetData: TStream;
+    function GetExpirationTime: TDateTime;
+    function GetMaxReads: integer;
+    function GetName: string;
+    function GetOwnsStream: boolean;
+    function GetReadCount: integer;
+    function GetRecordCount: integer;
+    procedure SetReadCount(const Value: integer);
+
+    property Name : string read GetName;
+    property Data : TStream read GetData;
+    property ReadCount : integer read GetReadCount write SetReadCount;
+
+    property RecordCount : integer read GetRecordCount;
+
+    property ExpirationTime : TDateTime read GetExpirationTime;
+
+    property MaxReads : integer read GetMaxReads;
+    property OwnsStream : boolean read GetOwnsStream;
+    property Invalid : boolean read GetInvalid;
+ end;
+
+  { TDACacheEntry }
+  TDACacheEntry = class(TInterfacedObject, IDACacheEntry)
+  private
+    fOwnsStream : boolean;
+    fData: TStream;
+    fMaxReads: integer;
+    fReadCount: integer;
+    fName: string;
+    fExpirationTime: TDateTime;
+    fRecordCount: integer;
+
+  protected
+    { IDACacheEntry }
+    function GetInvalid: boolean;
+    function GetData: TStream;
+    function GetExpirationTime: TDateTime;
+    function GetMaxReads: integer;
+    function GetName: string;
+    function GetOwnsStream: boolean;
+    function GetReadCount: integer;
+    function GetRecordCount: integer;
+    procedure SetReadCount(const Value: integer);
+
+  public
+    constructor Create(const aName : string; aData : TStream; aRecordCount : integer;
+                       aOwnsStream : boolean; aMaxReads : integer = -1; aDuration : integer = -1);
+    destructor Destroy; override;
+  end;
+
+  { TDACache }
+  TDACache = class(TComponent)
+  private
+    fTimer : TROThreadTimer;
+    fEntries : TInterfaceList;
+    fCritical : TCriticalSection;
+
+    function GetEntries(Index: integer): IDACacheEntry;
+    function GetEntryCount: integer;
+
+  protected
+    procedure OnTimerTick(CurrentTickCount : cardinal);
+
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+
+    procedure Store(const anEntryName : string; Data : TStream;
+                    CopyStream : boolean; RecordCount : integer = -1;
+                    MaxReads : integer = -1; Duration : integer = -1);
+    function Get(const anEntryName : string) : IDACacheEntry;
+    procedure Flush(const anEntryName : string);
+
+    function Find(const anEntryName : string) : integer;
+
+    property Entries[Index : integer] : IDACacheEntry read GetEntries;
+    property EntryCount : integer read GetEntryCount;
+
+  end;
+
+implementation
+
+uses
+  DateUtils;
+
+{ TDACacheElementCollection }
+
+function TDACacheElementCollection.Add: TDACacheElement;
+begin
+  result := TDACacheElement(inherited Add);
+end;
+
+constructor TDACacheElementCollection.Create;
+begin
+  inherited Create(TDACacheElement);
+end;
+
+destructor TDACacheElementCollection.Destroy;
+begin
+
+  inherited;
+end;
+
+function TDACacheElementCollection.FindByDatasetName(
+  aDatasetName: string): TDACacheElement;
+var i : integer;
+begin
+  result := NIL;
+
+  for i := 0 to (Count-1) do
+    if SameText(Items[i].ReferencedDataset, aDatasetName) then begin
+      result := Items[i];
+      Exit;
+    end;
+end;
+
+function TDACacheElementCollection.GetItems(
+  Index: integer): TDACacheElement;
+begin
+  result := TDACacheElement(inherited Items[Index]);
+end;
+
+{ TDACacheElement }
+
+constructor TDACacheElement.Create(aCollection: TCollection);
+begin
+  inherited;
+
+  fEnabled := TRUE;
+  fMaxReads := -1;
+  fDuration := -1;
+  fOptions := [ceoFlushOnUpdate];
+end;
+
+function TDACacheElement.GetDisplayName: string;
+begin
+  if fReferencedDataset<>''
+    then result := fReferencedDataset
+    else result := '<Unassigned>'
+end;
+
+procedure TDACacheElement.SetDuration(const Value: integer);
+begin
+  if (Value=-1) or (Value>0)
+    then fDuration := Value;
+end;
+
+procedure TDACacheElement.SetMaxReads(const Value: integer);
+begin
+  if (Value=-1) or (Value>0)
+    then fMaxReads := Value;
+end;
+
+{ TDACache }
+
+constructor TDACache.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fTimer := TROThreadTimer.Create(OnTimerTick, 60); // Checks every minute
+
+  fCritical := TCriticalSection.Create;
+  fEntries := TInterfaceList.Create;
+end;
+
+destructor TDACache.Destroy;
+begin
+  fTimer.Terminate;
+  fTimer.Free;
+
+  fEntries.Free;
+  fCritical.Free;
+
+  inherited;
+end;
+
+function TDACache.Find(const anEntryName: string): integer;
+var i : integer;
+begin
+  result := -1;
+  for i := 0 to (fEntries.Count-1) do
+    if SameText(Entries[i].Name, anEntryName) then begin
+      result := i;
+      Exit;
+    end;
+end;
+
+procedure TDACache.Flush(const anEntryName: string);
+var idx : integer;
+begin
+  fCritical.Enter;
+  try
+    idx := Find(anEntryName);
+    if (idx>=0)
+      then fEntries.Delete(idx);
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+function TDACache.Get(const anEntryName: string): IDACacheEntry;
+var idx : integer;
+begin
+  result := NIL;
+  fCritical.Enter;
+  try
+    idx := Find(anEntryName);
+    if (idx>=0) then begin
+      result := Entries[idx];
+
+      if result.Invalid then begin
+        result := NIL;
+        fEntries.Delete(idx);
+        Exit;
+      end
+      else begin
+        result.ReadCount := result.ReadCount+1;
+      end;
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+function TDACache.GetEntries(Index: integer): IDACacheEntry;
+begin
+  result := fEntries[Index] as IDACacheEntry;
+end;
+
+function TDACache.GetEntryCount: integer;
+begin
+  result := fEntries.Count;
+end;
+
+procedure TDACache.OnTimerTick(CurrentTickCount: cardinal);
+var i : integer;
+begin
+  fCritical.Enter;
+  try
+    for i := fEntries.Count-1 downto 0 do begin
+      if Entries[i].Invalid
+        then fEntries.Delete(i);
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TDACache.Store(const anEntryName: string; Data: TStream; CopyStream : boolean;
+  RecordCount, MaxReads, Duration: integer);
+var entry : TDACacheEntry;
+    nme : string;
+    idx : integer;
+    newstream : Binary;
+begin
+  nme := UpperCase(anEntryName);
+
+  fCritical.Enter;
+  try
+    idx := Find(nme);
+
+    if (idx<0) then begin
+      if CopyStream then begin
+        newstream := Binary.Create;
+        newstream.CopyFrom(Data, 0);
+        entry := TDACacheEntry.Create(nme, newstream, RecordCount, TRUE, MaxReads, Duration);
+      end
+      else entry := TDACacheEntry.Create(nme, Data, RecordCount, FALSE, MaxReads, Duration);
+
+      fEntries.Add(entry);
+    end
+    else raise Exception.Create('Duplicated name '+anEntryName);
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+{ TDACacheEntry }
+
+constructor TDACacheEntry.Create(const aName : string; aData : TStream; aRecordCount : integer;
+                       aOwnsStream : boolean; aMaxReads : integer = -1; aDuration : integer = -1);
+begin
+  inherited Create;
+
+  fName := aName;
+  fData := aData;
+  fRecordCount := aRecordCount;
+
+  if (aDuration>0)
+    then fExpirationTime := IncMinute(Now, aDuration)
+    else fExpirationTime := -1;
+
+  fReadCount := 0;
+  fMaxReads := aMaxReads;
+end;
+
+destructor TDACacheEntry.Destroy;
+begin
+  if fOwnsStream
+    then fData.Free;
+
+  inherited;
+end;
+
+function TDACacheEntry.GetData: TStream;
+begin
+  result := fData;
+  //Inc(fReadCount);
+end;
+
+function TDACacheEntry.GetExpirationTime: TDateTime;
+begin
+  result := fExpirationTime
+end;
+
+function TDACacheEntry.GetInvalid: boolean;
+begin
+  result := ((fMaxReads<>-1) and (fReadCount>=fMaxReads))
+            or
+            ((fExpirationTime<>-1) and (fExpirationTime<=Now));
+end;
+
+function TDACacheEntry.GetMaxReads: integer;
+begin
+  result := fMaxReads
+end;
+
+function TDACacheEntry.GetName: string;
+begin
+  result := fName
+end;
+
+function TDACacheEntry.GetOwnsStream: boolean;
+begin
+  result := fOwnsStream
+end;
+
+function TDACacheEntry.GetReadCount: integer;
+begin
+  result := fReadCount
+end;
+
+function TDACacheEntry.GetRecordCount: integer;
+begin
+  result := fRecordCount
+end;
+
+procedure TDACacheEntry.SetReadCount(const Value: integer);
+begin
+  if (Value>=0)
+    then fReadCount := Value
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAClasses.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAClasses.pas
new file mode 100644
index 0000000..ff233ea
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAClasses.pas	
@@ -0,0 +1,1788 @@
+unit uDAClasses;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS} Windows,{$ENDIF}
+  Classes, SysUtils, uROClasses, uDAInterfaces, uDARes, uROTypes, uROClient,
+  uDADriverManager, uDAXMLUtils, SyncObjs, uROXMLIntf;
+
+type
+  TDAPoolBehaviour = (pbWait, pbRaiseError, pbIgnoreAndReturn);
+  TDAPoolTransactionBehaviour = (ptNone, ptRollback, ptCommit, ptCustom);
+
+const
+  def_PoolingEnabled = TRUE;
+  def_PoolBehaviour = pbWait;
+  def_MaxPoolSize = 10;
+  def_WaitIntervalSeconds = 1;
+  def_PoolTimeoutSeconds = 60;
+
+  def_SourceTableFieldName = '@SourceTable';
+
+type
+  { Forwards }
+  TDAConnectionManager = class;
+  TDADataDictionary = class;
+
+  { TStreamableComponent }
+  TPointerArray = array of pointer;
+
+  TDAStreamableComponent = class(TROComponent)
+  private
+    fTempPropertiesSaved: boolean;
+    fTempStorage: TPointerArray;
+
+  protected
+    procedure SaveNonStreamableProperties(var TempStorage: TPointerArray); virtual;
+    procedure RestoreNonStreamableProperties(const TempStorage: TPointerArray); virtual;
+
+  public
+    procedure Clear; virtual;
+
+    procedure LoadFromStream(aStream: TStream; aFormat: TDAPersistFormat=pfXML); virtual;
+    {$IFDEF UNICODE}
+    procedure LoadFromXml(aXML: Ansistring); overload;
+    {$ENDIF}
+    procedure LoadFromXml(aXML: string); overload;
+    procedure SaveToStream(aStream: TStream; aFormat: TDAPersistFormat=pfXML); virtual;
+    procedure LoadFromFile(const aFileName: string; aFormat: TDAPersistFormat=pfXML);
+    procedure SaveToFile(const aFileName: string; aFormat: TDAPersistFormat=pfXML);
+  end;
+
+  { TDAConnectionManager }
+  TDAConnectionNotifyEvent = procedure(Sender: TDAConnectionManager; const Connection: IDAConnection) of object;
+  TDAConnectionFailureEvent = procedure(Sender: TDAConnectionManager; Ex: Exception) of object;
+  TDAConnectionTimeoutEvent = procedure(Sender: TDAConnectionManager) of object;
+  TDAUnknownMacroVariableEvent = procedure (Sender: TObject; const Name: string; var Value: string) of object;
+
+  TDAConnectionManager = class(TDAStreamableComponent, IDAConnectionManager, IDAConnectionPool)
+  private
+    fConnections: TDAConnectionCollection;
+    fDriverManager: TDADriverManager;
+    fConnectionWait: TROEvent;
+
+    fMaxPoolSize: Cardinal;
+    fTotalConnections: Integer;
+    fConnectionCache: TThreadList;
+    fPoolTimeoutSeconds: cardinal;
+    fTimer: TROThreadTimer;
+    fOnConnectionReleased: TDAConnectionNotifyEvent;
+    fOnConnectionTimedOut: TDAConnectionTimeoutEvent;
+    fPoolBehaviour: TDAPoolBehaviour;
+    fOnConnectionAcquired: TDAConnectionNotifyEvent;
+    fWaitIntervalSeconds: cardinal;
+    fPoolingEnabled: boolean;
+    fOnConnectionCreated: TDAConnectionNotifyEvent;
+    FOnConnectionFailure: TDAConnectionFailureEvent;
+    fPoolTransactionBehaviour: TDAPoolTransactionBehaviour;
+    fOnUnknownMacroVariable: TDAUnknownMacroVariableEvent;
+    fOnCustomPoolTransactionBehavior: TDAConnectionNotifyEvent;
+
+    procedure SetMaxPoolSize(const Value: cardinal);
+    procedure SetPoolTimeoutSeconds(const Value: cardinal);
+
+    procedure SetConnections(const Value: TDAConnectionCollection);
+    procedure SetDriverManager(const Value: TDADriverManager);
+    procedure SetPoolingEnabled(const Value: boolean);
+    function UnknownMacroIdentifier(Sender: TObject; const Name, OrgName: string; var Value: string): Boolean;
+  protected
+    procedure Loaded; override;
+    procedure OnTimerTick(CurrentTickCount: cardinal); dynamic;
+
+    function CreateNewConnection(const ConnectionName: string;
+      OpenConnection: boolean = TRUE;
+      const UserID: string = '';
+      const Password: string = ''): IDAConnection;
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure SaveNonStreamableProperties(var TempStorage: TPointerArray); override;
+    procedure RestoreNonStreamableProperties(const TempStorage: TPointerArray); override;
+
+    procedure ReleaseConnection(const Conn: IDAConnection);
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure LoadFromStream(aStream: TStream; aFormat: TDAPersistFormat=pfXML); override;
+    procedure SaveToStream(aStream: TStream; aFormat: TDAPersistFormat=pfXML); override;
+
+    // IDAConnectionManager
+    function GetDefaultConnectionName: string;
+    function NewConnection(const aConnectionName: string;
+      OpenConnection: boolean = TRUE;
+      const UserID: string = '';
+      const Password: string = ''): IDAConnection;
+
+    procedure Clear; override;
+
+    property PoolSize: Integer read fTotalConnections;
+    procedure ClearPool;
+    procedure CheckProperties;
+  published
+    property MaxPoolSize: cardinal read fMaxPoolSize write SetMaxPoolSize default def_MaxPoolSize;
+    property PoolTimeoutSeconds: cardinal read fPoolTimeoutSeconds write SetPoolTimeoutSeconds default def_PoolTimeoutSeconds;
+    property PoolBehaviour: TDAPoolBehaviour read fPoolBehaviour write fPoolBehaviour default def_PoolBehaviour;
+
+    property OnConnectionAcquired: TDAConnectionNotifyEvent read fOnConnectionAcquired write fOnConnectionAcquired;
+    property OnConnectionTimedOut: TDAConnectionTimeoutEvent read fOnConnectionTimedOut write fOnConnectionTimedOut;
+    property OnConnectionCreated: TDAConnectionNotifyEvent read fOnConnectionCreated write fOnConnectionCreated;
+    property OnConnectionFailure: TDAConnectionFailureEvent read FOnConnectionFailure write FOnConnectionFailure;
+    property OnConnectionReleased: TDAConnectionNotifyEvent read fOnConnectionReleased write fOnConnectionReleased;
+    property OnCustomPoolTransactionBehavior: TDAConnectionNotifyEvent read fOnCustomPoolTransactionBehavior write fOnCustomPoolTransactionBehavior;
+    property OnUnknownMacroVariable: TDAUnknownMacroVariableEvent read fOnUnknownMacroVariable write fOnUnknownMacroVariable;
+
+    property WaitIntervalSeconds: cardinal read fWaitIntervalSeconds write fWaitIntervalSeconds default def_WaitIntervalSeconds;
+
+    property Connections: TDAConnectionCollection read fConnections write SetConnections;
+    property DriverManager: TDADriverManager read fDriverManager write SetDriverManager;
+
+    property PoolingEnabled: boolean read fPoolingEnabled write SetPoolingEnabled;
+    property PoolTransactionBehaviour: TDAPoolTransactionBehaviour read fPoolTransactionBehaviour write fPoolTransactionBehaviour default ptNone;
+  end;
+
+  { TDADataDictionary }
+  TDADataDictionary = class(TDAStreamableComponent, IDADataDictionary)
+  private
+    fFields: TDADataDictionaryFieldCollection;
+    procedure SetFields(const Value: TDADataDictionaryFieldCollection);
+    function GetFields: TDADataDictionaryFieldCollection;
+  protected
+    procedure SaveNonStreamableProperties(var TempStorage: TPointerArray); override;
+    procedure RestoreNonStreamableProperties(const TempStorage: TPointerArray); override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+    destructor Destroy; override;
+  published
+    property Fields: TDADataDictionaryFieldCollection read GetFields write SetFields;
+  end;
+
+  TDADiagrams = class(TROComponent)
+  private
+    fDiagramData: string;
+    procedure ReadDiagramData(Reader: TReader);
+    procedure WriteDiagramData(Writer: TWriter);
+  protected
+    procedure DefineProperties(Filer: TFiler); override;
+  public
+    procedure LoadFromFile(const aFilename: string);
+    procedure SaveToFile(const aFilename: string);
+  end;
+
+  { TDASchema }
+  TDASchema = class;
+
+  TDASchemaElementType = (setDataset, setCommand);
+  TDAOnGetSQLEvent = procedure(Sender : TDASchema; const ElementName : string; ElementType : TDASchemaElementType; var SQL : string) of object;
+
+  TDASchema = class(TDAStreamableComponent, IDASchema, IDAHasDataDictionary)
+  private
+    fDatasets: TDADatasetCollection;
+    fJoinDataTables: TDAJoinDataTableCollection;
+    fUnionDataTables: TDAUnionDataTableCollection;
+    fCommands: TDASQLCommandCollection;
+    fConnectionManager: TDAConnectionManager;
+    fDataDictionary: TDADataDictionary;
+    fOnGetSQL: TDAOnGetSQLEvent;
+    fUpdateRules: TDAUpdateRuleCollection;
+    fRelationShips: TDADatasetRelationshipCollection;
+    fDiagrams: TDADiagrams;
+    fCustomAttributes: TStrings;
+    fVersion: Integer;
+    fMergeDataDictionaries: Boolean;
+
+    procedure SetConnectionManager(const Value: TDAConnectionManager);
+    procedure SetDataDictionary(const Value: TDADataDictionary);
+    procedure SetUpdateRules(const Value: TDAUpdateRuleCollection);
+    procedure SetRelationShips(const Value: TDADatasetRelationshipCollection);
+    procedure SetDiagrams(const Value: TDADiagrams);
+
+    function DoNewDataset(
+      const aConnection: IDAConnection;
+      const aName: string;
+      aDynSelectFields: array of string;
+      aWhereClause: UnicodeString;
+      aStatementName: string='';
+      OpenIt: boolean = false;
+      AlwaysGenerateDynamicWhereStatement: Boolean=False;
+      anUnionMapping: TDAColumnMappingCollection = nil
+    ): IDADataset;
+
+
+  protected
+    function GetDataDictionary: IDADataDictionary;
+    function MergeDataDictionaries: Boolean;
+    function GetCommands: TDASQLCommandCollection; virtual;
+    function GetDatasets: TDADatasetCollection; virtual;
+    function GetJoinDataTables: TDAJoinDataTableCollection; virtual;
+    function GetUnionDataTables: TDAUnionDataTableCollection; virtual;
+    procedure SetCommands(const Value: TDASQLCommandCollection); virtual;
+    procedure SetDatasets(const Value: TDADatasetCollection); virtual;
+    procedure SetJoinDataTables(const Value: TDAJoinDataTableCollection); virtual;
+    procedure SetUnionDataTables(const Value: TDAUnionDataTableCollection); virtual;
+
+    procedure Notification(aComponent: TComponent; Operation: TOperation); override;
+    procedure Loaded; override;
+
+    procedure SaveNonStreamableProperties(var TempStorage: TPointerArray); override;
+    procedure RestoreNonStreamableProperties(const TempStorage: TPointerArray); override;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    function FindCommandStatement(const aConnection: IDAConnection; aSQLCommand: TDASQLCommand; aStatementName: string=''): TDAStatement;
+    // IDASchema
+    function GetDatasetText(const aConnection: IDAConnection; const aName: string): string; virtual;
+    function GetCommandText(const aConnection: IDAConnection; const aName: string): string; virtual;
+
+    function NewDataset(const aConnection: IDAConnection; const aName: string;
+      aStatementName: string='';OpenIt: boolean = false): IDADataset; overload; virtual;
+    function NewDataset(const aConnection: IDAConnection; const aName: string;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      OpenIt: boolean = TRUE;
+      aStatementName: string=''): IDADataset; overload;
+    function NewDataset(const aConnection: IDAConnection; const aName: string;
+      aDynSelectFields: array of string;
+      aWhereClause: WideString;
+      aStatementName: string='';
+      OpenIt: boolean = false;
+      AlwaysGenerateDynamicWhereStatement: Boolean=False): IDADataset; overload;
+    function NewDataset(
+      const aConnection: IDAConnection;
+      const aName: string;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      aDynSelectFields: array of string;
+      aWhereClause: WideString;
+      OpenIt: boolean = TRUE;
+      aStatementName: string=''): IDADataset; overload;
+
+    function NewUnionItemDataset(
+      const aConnection: IDAConnection;
+      const aName: string;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      aDynSelectFields: array of string;
+      aWhereClause: UnicodeString;
+      anUnionMapping: TDAColumnMappingCollection): IDADataset;
+
+    function NewCommand(const aConnection: IDAConnection; const aName: string;
+      aStatementName: string=''): IDASQLCommand; overload; virtual;
+    function NewCommand(const aConnection: IDAConnection; const aName: string;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      ExecuteIt: boolean = TRUE; aStatementName: string=''): IDASQLCommand; overload;
+
+    procedure Clear; override;
+
+    procedure Copy(aSourceSchema : TDASchema;
+                   DatasetNames : array of string;
+                   CommandNames : array of string;
+                   UpdateRuleNames : array of string;
+                   RelationShipNames : array of string); overload; deprecated;
+    procedure Copy(aSourceSchema : TDASchema;
+                   DatasetNames : array of string;
+                   CommandNames : array of string;
+                   UpdateRuleNames : array of string;
+                   RelationShipNames : array of string;
+                   UnionDataTablesNames: array of string;
+                   JoinDataTablesNames: array of string); overload;
+    procedure Copy(aSourceSchema : TDASchema;
+                   IncludeDatasets : boolean = TRUE;
+                   IncludeCommands : boolean = TRUE;
+                   IncludeUpdateRules : boolean = TRUE;
+                   IncludeRelationShips : boolean = TRUE;
+                   IncludeUnionDataTables: boolean = True;
+                   IncludeJoinDataTables: boolean = True); overload;
+    procedure CheckProperties;
+    function FindDataset(aDatasetName: String): TDADataset;
+    procedure SaveToStream(aStream: TStream;
+      aFormat: TDAPersistFormat = pfXML); override;
+  published
+    property ConnectionManager: TDAConnectionManager read fConnectionManager write SetConnectionManager;
+    property DataDictionary: TDADataDictionary read fDataDictionary write SetDataDictionary;
+    property Diagrams: TDADiagrams read fDiagrams write SetDiagrams;
+    property Datasets: TDADatasetCollection read GetDatasets write SetDatasets;
+    property JoinDataTables: TDAJoinDataTableCollection read GetJoinDataTables write SetJoinDataTables;
+    property UnionDataTables: TDAUnionDataTableCollection read GetUnionDataTables write SetUnionDataTables;
+    property Commands: TDASQLCommandCollection read GetCommands write SetCommands;
+    property RelationShips: TDADatasetRelationshipCollection read fRelationShips write SetRelationShips;
+    property UpdateRules : TDAUpdateRuleCollection read fUpdateRules write SetUpdateRules;
+
+    property OnGetSQL : TDAOnGetSQLEvent read fOnGetSQL write fOnGetSQL;
+    property Version : Integer read fVersion write fVersion;
+    property CustomAttributes : TStrings read fCustomAttributes;
+  end;
+
+procedure FillROStruct(const aDataset: IDADataset; const aStruct: TROComplexType);
+
+implementation
+
+uses TypInfo, uDAEngine, uDAUtils, DB, uDAMemDataTable, uDAWhere;
+
+procedure FillROStruct(const aDataset: IDADataset; const aStruct: TROComplexType);
+var
+  proplist: TStringList;
+  i: integer;
+  fld: TDACustomField;
+begin
+  proplist := TStringList.Create;
+  try
+    aStruct.GetFieldNames(proplist);
+    for i := 0 to (proplist.Count - 1) do begin
+      fld := aDataset.Fields.FindField(proplist[i]);
+      if (fld <> nil) then aStruct.SetFieldValue(proplist[i], fld.Value);
+    end;
+  finally
+    proplist.Free;
+  end;
+end;
+
+{ TDAStreamableComponent }
+
+procedure TDAStreamableComponent.LoadFromStream(aStream: TStream; aFormat: TDAPersistFormat);
+var
+  oldname: string;
+begin
+  Clear;
+
+  oldname := Name;
+  try Name := ''; except end;
+  try
+    case aFormat of
+      pfBinary: aStream.ReadComponent(Self);
+      pfXML: LoadObjectFromStream(aStream, Self, ['Name']);
+    end;
+
+    if fTempPropertiesSaved then begin
+      RestoreNonStreamableProperties(fTempStorage);
+      SetLength(fTempStorage, 0);
+    end;
+  finally
+    fTempPropertiesSaved := FALSE;
+    try Name := oldname; except end;
+  end;
+end;
+
+procedure TDAStreamableComponent.LoadFromXml(aXML: string);
+var lStream:TStringStream;
+begin
+  lStream := TStringStream.Create(aXML);
+  try
+    lStream.Seek(0,soFromBeginning);
+    LoadFromStream(lStream,pfXML);
+  finally
+    lStream.Free();
+  end;
+end;
+
+{$IFDEF UNICODE}
+procedure TDAStreamableComponent.LoadFromXml(aXML: Ansistring);
+var
+  lStream: TROBinaryMemoryStream;
+begin
+  lStream := TROBinaryMemoryStream.Create(aXML);
+  try
+    lStream.Seek(0,soFromBeginning);
+    LoadFromStream(lStream,pfXML);
+  finally
+    lStream.Free();
+  end;
+end;
+{$ENDIF}
+
+procedure TDAStreamableComponent.SaveToStream(aStream: TStream; aFormat: TDAPersistFormat);
+var
+  oldname: string;
+begin
+  fTempPropertiesSaved := TRUE;
+
+  oldname := Name;
+  //Name := '';
+  try
+    try
+      SaveNonStreamableProperties(fTempStorage);
+
+      case aFormat of
+        pfBinary: aStream.WriteComponent(Self);
+        pfXML: SaveObjectToStream(Self, aStream, ['Name']);
+      end;
+    finally
+      Name := oldname;
+    end;
+  except
+    fTempPropertiesSaved := FALSE;
+    raise;
+  end;
+end;
+
+procedure TDAStreamableComponent.SaveToFile(const aFileName: string;
+  aFormat: TDAPersistFormat);
+var
+  fs: TFileStream;
+begin
+  fs := TFileStream.Create(aFileName, fmCreate);
+  try
+    SaveToStream(fs, aFormat);
+  finally
+    fs.Free;
+  end;
+end;
+
+procedure TDAStreamableComponent.LoadFromFile(const aFileName: string;
+  aFormat: TDAPersistFormat);
+var
+  fs: TFileStream;
+begin
+  fs := TFileStream.Create(aFileName, fmOpenRead OR fmShareDenyWrite);
+  try
+    LoadFromStream(fs, aFormat);
+  finally
+    fs.Free;
+  end;
+end;
+
+procedure TDAStreamableComponent.RestoreNonStreamableProperties(
+  const TempStorage: TPointerArray);
+begin
+end;
+
+procedure TDAStreamableComponent.SaveNonStreamableProperties(
+  var TempStorage: TPointerArray);
+begin
+
+end;
+
+procedure TDAStreamableComponent.Clear;
+begin
+end;
+
+type
+  TCachedConnection = class
+  private
+    fConnection: IDAConnection;
+    fLastUse: TDateTime;
+  public
+    constructor Create(const aConnection: IDAConnection);
+    property Connection: IDAConnection read fConnection write fConnection;
+    property LastUse: TDateTime read fLastUse write fLastUse;
+  end;
+
+constructor TCachedConnection.Create(const aConnection: IDAConnection);
+begin
+  inherited Create;
+  fConnection := aConnection;
+  fLastUse := Now;
+end;
+
+{ TDAConnectionManager }
+
+constructor TDAConnectionManager.Create(aOwner: TComponent);
+begin
+  inherited;
+  fConnectionWait := TROEvent.Create(nil, false, false, '');
+
+  fConnections := TDAConnectionCollection.Create(Self);
+
+  fPoolingEnabled := def_PoolingEnabled;
+  fPoolBehaviour := def_PoolBehaviour;
+  fMaxPoolSize := def_MaxPoolSize;
+  fWaitIntervalSeconds := def_WaitIntervalSeconds;
+  fPoolTimeoutSeconds := def_PoolTimeoutSeconds;
+
+  fConnectionCache := TThreadList.Create;
+end;
+
+destructor TDAConnectionManager.Destroy;
+begin
+  DriverManager := nil;
+
+  fConnections.Free;
+  ClearPool;
+  fConnectionCache.Free;
+
+  fTimer.Free;
+  fConnectionWait.Free;
+  inherited;
+end;
+
+procedure TDAConnectionManager.SetConnections(const Value: TDAConnectionCollection);
+begin
+  fConnections.Assign(Value);
+end;
+
+function TDAConnectionManager.CreateNewConnection(const ConnectionName: string;
+  OpenConnection: boolean = TRUE;
+  const UserID: string = '';
+  const Password: string = ''): IDAConnection;
+var
+  conndef: TDAConnection;
+  drv: IDADriver;
+  mac: IDAHasMacroProcessor;
+  drvid: string;
+begin
+  CheckProperties;
+
+  conndef := Connections.ItemByName(ConnectionName) as TDAConnection; // Raises exception if not found
+  drvid := TDAConnectionStringParser.ExtractDriverID(conndef.ConnectionString);
+
+  drv := fDriverManager.DriverByDriverID(drvid); // Raises exception if not found
+  result := drv.NewConnection(self, conndef);
+
+  // If not empty strings, these will override any specific UserID, Password specified below
+  result.ConnectionString := conndef.ConnectionString;
+
+  if (UserID <> '') then result.UserID := UserID;
+  if (Password <> '') then result.Password := Password;
+
+  if OpenConnection then result.Open;
+
+  if Assigned(fOnConnectionCreated) then fOnConnectionCreated(Self, result);
+  if Supports(Result, IDAHasMacroProcessor, mac) and (mac.GetMacroProcessor <> nil) then begin
+    mac.GetMacroProcessor.OnUnknownIdentifier := UnknownMacroIdentifier;
+  end;
+end;
+
+procedure TDAConnectionManager.SetDriverManager(const Value: TDADriverManager);
+begin
+  if fDriverManager <> Value then begin
+    if (fDriverManager <> nil) then fDriverManager.RORemoveFreeNotification(Self);
+    fDriverManager := Value;
+    ClearPool();
+    if (fDriverManager <> nil) then fDriverManager.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TDAConnectionManager.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation <> opRemove) then Exit;
+  if (AComponent = fDriverManager) then DriverManager := nil;
+end;
+
+procedure TDAConnectionManager.RestoreNonStreamableProperties(
+  const TempStorage: TPointerArray);
+begin
+  DriverManager := TempStorage[0];
+end;
+
+procedure TDAConnectionManager.SaveNonStreamableProperties(
+  var TempStorage: TPointerArray);
+begin
+  SetLength(TempStorage, 1);
+  TempStorage[0] := DriverManager;
+end;
+
+function TDAConnectionManager.GetDefaultConnectionName: string;
+var
+  i: integer;
+begin
+  result := '';
+  for i := 0 to (fConnections.Count - 1) do
+    if Connections[i].Default then begin
+      result := Connections[i].Name;
+      Exit;
+    end;
+end;
+
+procedure TDAConnectionManager.Clear;
+begin
+  fConnections.Clear;
+end;
+
+procedure TDAConnectionManager.SetMaxPoolSize(const Value: cardinal);
+begin
+  fMaxPoolSize := Value;
+end;
+
+procedure TDAConnectionManager.SetPoolTimeoutSeconds(const Value: cardinal);
+begin
+  if (fPoolTimeoutSeconds = Value) and (fTimer <> nil) then Exit;
+  fPoolTimeoutSeconds := Value;
+
+  if not (csDesigning in ComponentState) then begin
+    if (PoolSize > 0) then RaiseError(err_PoolIsNotEmpty);
+
+    if Assigned(fTimer) then begin
+      fTimer.Free;
+      fTimer := nil;
+    end;
+
+    if (fPoolTimeoutSeconds > 0) then fTimer := TROThreadTimer.Create(OnTimerTick, fPoolTimeoutSeconds * 500);
+  end;
+end;
+
+procedure TDAConnectionManager.OnTimerTick(CurrentTickCount: cardinal);
+var
+  i: integer;
+  tempconn: TCachedConnection;
+  list: TList;
+begin
+  list := fConnectionCache.LockList;
+  try
+    for i := list.Count - 1 downto 0 do
+    begin
+      tempconn := TCachedConnection(list[i]);
+      if tempconn.LastUse + (fPoolTimeoutSeconds / 86400.0) < Now then begin
+        if Assigned(fOnConnectionTimedOut) then fOnConnectionTimedOut(Self);
+        list.Delete(i);
+        tempconn.Connection.ConnectionPool := nil;
+        tempconn.Free;
+        dec(fTotalConnections);
+      end;
+    end;
+  finally
+    fConnectionCache.UnlockList;
+  end;
+end;
+
+function TDAConnectionManager.NewConnection(const aConnectionName: string;
+  OpenConnection: boolean = TRUE; const UserID: string = ''; const Password: string = ''): IDAConnection;
+var
+  i: integer;
+  conn: TDAConnection;
+  list: TList;
+  tempconn: TCachedConnection;
+begin
+  try
+    // If pooling is not enable immediately creates a connection.
+    // This is the quickest way to Acquire one
+    if not fPoolingEnabled then begin
+      result := CreateNewConnection(aConnectionName, OpenConnection, UserID, Password);
+      if Assigned(fOnConnectionAcquired) then fOnConnectionAcquired(Self, result);
+      Exit;
+    end;
+
+    // Pooling is enabled and has to be thread safe
+    result := nil;
+    conn := fConnections.ConnectionByName(aConnectionName);
+    while true do begin
+      list := fConnectionCache.LockList;
+      try
+        for i := list.Count -1 downto 0 do begin
+          tempconn := TCachedConnection(list[i]);
+          if not tempconn.Connection.IsAlive then begin
+             tempconn.Connection:=nil;
+             list.Delete(i);
+          end;
+        end;
+        for i := 0 to list.Count -1 do begin
+          tempconn := TCachedConnection(list[i]);
+
+          if SameText(tempconn.Connection.ConnectionString, conn.ConnectionString) and
+             SameText(tempconn.Connection.ConnectionType, conn.ConnectionType) then begin
+            list.Delete(i);
+            Result := tempconn.Connection;
+            tempconn.Free;
+            if Assigned(fOnConnectionAcquired) then fOnConnectionAcquired(Self, result);
+            Exit;
+          end;
+        end;
+
+        // If it doesn't find one and the max poolsize is not reached then creates it...
+        if Cardinal(fTotalConnections) < fMaxPoolSize then begin
+          result := CreateNewConnection(aConnectionName, OpenConnection, UserID, Password);
+          result.ConnectionPool := self;
+          inc(fTotalConnections);
+          if Assigned(fOnConnectionAcquired) then fOnConnectionAcquired(Self, result);
+          Exit;
+        end;
+
+      finally
+        fConnectionCache.UnlockList;
+      end;
+      // Otherwise either waits and tries again or raises an error
+      case PoolBehaviour of
+        pbRaiseError: RaiseError(err_MaxPoolSizeReached);
+        pbWait: begin
+            if fConnectionWait.WaitFor(1000 * fWaitIntervalSeconds) <> wrSignaled then
+              RaiseError(err_MaxPoolSizeReached);
+          end;
+        pbIgnoreAndReturn: Exit;
+      end;
+    end;
+  except
+    on e: Exception do begin
+      if assigned(FOnConnectionFailure) then FOnConnectionFailure(self, E);
+      raise;
+    end;
+  end;
+end;
+
+procedure TDAConnectionManager.ReleaseConnection(const Conn: IDAConnection);
+var
+  list: TList;
+begin
+  case fPoolTransactionBehaviour of
+    ptRollback: if Conn.InTransaction then Conn.RollbackTransaction;
+    ptCommit: if Conn.InTransaction then Conn.CommitTransaction;
+    ptCustom: if Conn.InTransaction and assigned(fOnCustomPoolTransactionBehavior) then
+      fOnCustomPoolTransactionBehavior(Self, Conn);
+  end;
+  if assigned(fOnConnectionReleased) then
+    fOnConnectionReleased(Self, Conn);
+  if fPoolingEnabled then begin
+    list := fConnectionCache.LockList;
+    try
+      if (Cardinal(list.Count) < fMaxPoolSize) and Conn.isAlive then begin
+        fConnectionCache.Add(TCachedConnection.Create(Conn))
+      end else
+        Dec(fTotalConnections);
+    finally
+      fConnectionCache.UnlockList;
+    end;
+    fConnectionWait.SetEvent;
+  end
+  else begin
+    if Conn.ConnectionPool <> nil then begin
+      Dec(fTotalConnections);
+      Conn.ConnectionPool := nil;
+    end;
+  end;
+end;
+
+procedure TDAConnectionManager.SetPoolingEnabled(const Value: boolean);
+begin
+  fPoolingEnabled := Value;
+end;
+
+procedure TDAConnectionManager.ClearPool;
+var
+  i: Integer;
+  list: TList;
+begin
+  list := fConnectionCache.LockList;
+  try
+    for i := list.Count -1 downto 0 do begin
+      TCachedConnection(List[i]).Connection.ConnectionPool := nil;
+      TCachedConnection(List[i]).Free;
+    end;
+    Dec(fTotalConnections, list.Count);
+    list.Clear;
+  finally
+    fConnectionCache.UnlockList;
+  end;
+end;
+
+const
+  nn_Connections      = 'Connections';
+  nn_Definitions      = 'Definitions';
+  nn_Definition       = 'Definition';
+
+  nn_PoolingEnabled   = 'PoolingEnabled';
+  nn_PoolingBehavior  = 'PoolingBehavior';
+  nn_MaxPoolSize      = 'MaxPoolSize';
+  nn_WaitIntervalSeconds = 'WaitIntervalSeconds';
+  nn_PoolTimeoutSeconds = 'PoolTimeoutSeconds';
+
+  nn_ConnectionString = 'ConnectionString';
+  nn_Default          = 'Default';
+  nn_Name             = 'Name';
+  nn_Description      = 'Description';
+  nn_ConnectionType   = 'ConnectionType';
+
+procedure TDAConnectionManager.LoadFromStream(aStream: TStream;
+  aFormat: TDAPersistFormat);
+var buff: array[0..21] of char;
+    xmlDoc: IXMLDocument;
+    s: string;
+    i : integer;
+    connsNode, thisNode: IXMLNode;
+    conn: TDAConnection;
+begin
+  aStream.Position := 0;
+  aStream.ReadBuffer(buff, SizeOf(buff));
+  if (buff<>'<TDAConnectionManager>') then begin
+    aStream.Position := 0;
+    xmlDoc := NewROXmlDocument;
+    xmlDoc.New();
+    xmlDoc.LoadFromStream(aStream);
+
+    Clear;
+
+    PoolingEnabled := xmlDoc.DocumentNode.GetNodeValue(nn_PoolingEnabled, def_PoolingEnabled);
+    // TDAPoolBehaviour = (pbWait, pbRaiseError, pbIgnoreAndReturn);
+    s := xmlDoc.DocumentNode.GetNodeValue(nn_PoolingBehavior, GetEnumName(TypeInfo(TDAPoolBehaviour), Ord(def_PoolBehaviour)));
+    if (Pos('pb', s)<>1) then s := 'pb'+s;
+    PoolBehaviour := TDAPoolBehaviour(GetEnumValue(TypeInfo(TDAPoolBehaviour), s));
+    MaxPoolSize := xmlDoc.DocumentNode.GetNodeValue(nn_MaxPoolSize, def_MaxPoolSize);
+    WaitIntervalSeconds := xmlDoc.DocumentNode.GetNodeValue(nn_WaitIntervalSeconds, def_WaitIntervalSeconds);
+    PoolTimeoutSeconds := xmlDoc.DocumentNode.GetNodeValue(nn_PoolTimeoutSeconds, def_PoolTimeoutSeconds);
+
+    connsNode := xmlDoc.DocumentNode.GetNodeByName(nn_Definitions);
+    if (connsNode=NIL) then Exit;
+    for i := 0 to (connsNode.ChildrenCount-1) do begin
+      thisNode := connsNode.Children[i];
+      if thisNode.Name <> nn_Definition then continue;
+
+      conn := Connections.Add;
+      conn.Name := thisNode.GetNodeValue(nn_Name, 'Connection'+IntToStr(i+1));
+      conn.Description:= thisNode.GetNodeValue(nn_Description, '');
+      conn.Default := thisNode.GetNodeValue(nn_Default, FALSE);
+      conn.ConnectionString := thisNode.GetNodeValue(nn_ConnectionString, '');
+      conn.ConnectiontYPE := thisNode.GetNodeValue(nn_ConnectionType, '');
+    end;
+  end
+  else inherited;
+end;
+
+procedure TDAConnectionManager.SaveToStream(aStream: TStream;
+  aFormat: TDAPersistFormat);
+var xmlDoc : IXMLDocument;
+    connNode, thisNode: IXMLNode;
+    s: string;
+    i: integer;
+begin
+  if (aFormat=pfBinary) then begin
+    inherited;
+    Exit;
+  end;
+
+  xmlDoc := NewROXmlDocument;
+  xmlDoc.New(nn_Connections);
+  thisNode := xmlDoc.DocumentNode;
+
+  thisnode.Add(nn_PoolingEnabled).Value := PoolingEnabled;
+  s := GetEnumName(TypeInfo(TDAPoolBehaviour), Ord(PoolBehaviour));
+  thisnode.Add(nn_PoolingBehavior).Value := Copy(s, 3, MaxInt);
+  thisnode.Add(nn_MaxPoolSize).Value := MaxPoolSize;
+  thisnode.Add(nn_WaitIntervalSeconds).Value := WaitIntervalSeconds;
+  thisnode.Add(nn_PoolTimeoutSeconds).Value := PoolTimeoutSeconds;
+
+  connNode := thisNode.Add(nn_Definitions);
+  for i := 0 to (Connections.Count-1) do begin
+    thisNode := connNode.Add(nn_Definition);
+    thisNode.Add(nn_Name).Value := Connections[i].Name;
+    thisNode.Add(nn_ConnectionString).Value := Connections[i].ConnectionString;
+    thisNode.Add(nn_Default).Value :=  Connections[i].Default;
+    thisNode.Add(nn_Description).Value :=  Connections[i].Description;
+    thisNode.Add(nn_ConnectionType).Value :=  Connections[i].ConnectionType;
+  end;
+
+  xmlDoc.SaveToStream(aStream);
+end;
+
+procedure TDAConnectionManager.Loaded;
+begin
+  inherited;
+  if not (csDesigning in ComponentState) then
+  begin
+    SetPoolTimeoutSeconds(fPoolTimeoutSeconds);
+  end;
+end;
+
+function TDAConnectionManager.UnknownMacroIdentifier(Sender: TObject;
+  const Name, OrgName: string; var Value: string): Boolean;
+begin
+  Value := Name;
+  result := TRUE;
+  if assigned(fOnUnknownMacroVariable) then begin
+    fOnUnknownMacroVariable(Self, OrgName, Value);
+  end;
+end;
+
+procedure TDAConnectionManager.Assign(Source: TPersistent);
+var
+  lSource: TDAConnectionManager;
+begin
+  inherited;
+  if Source is TDAConnectionManager then begin
+    lSource := TDAConnectionManager(Source);
+
+    Connections := lSource.Connections;
+    DriverManager := lSource.DriverManager;
+    MaxPoolSize := lSource.MaxPoolSize;
+    OnConnectionAcquired := lSource.OnConnectionAcquired;
+    OnConnectionCreated := lSource.OnConnectionCreated;
+    OnConnectionFailure := lSource.OnConnectionFailure;
+    OnConnectionReleased := lSource.OnConnectionReleased;
+    OnConnectionTimedOut := lSource.OnConnectionTimedOut;
+    OnCustomPoolTransactionBehavior := lSource.OnCustomPoolTransactionBehavior;
+    OnUnknownMacroVariable := lSource.OnUnknownMacroVariable;
+    PoolBehaviour := lSource.PoolBehaviour;
+    PoolingEnabled := lSource.PoolingEnabled;
+    PoolTimeoutSeconds := lSource.PoolTimeoutSeconds;
+    PoolTransactionBehaviour := lSource.PoolTransactionBehaviour;
+    WaitIntervalSeconds := lSource.WaitIntervalSeconds;
+  end;
+end;
+
+procedure TDAConnectionManager.CheckProperties;
+begin
+  Check(not Assigned(DriverManager), Name + '. '+err_DriverManagerNotAssigned);
+end;
+
+{ TDADataDictionary }
+
+procedure TDADataDictionary.Assign(Source: TPersistent);
+var
+  lSource: TDADataDictionary;
+begin
+  inherited;
+  if Source is TDADataDictionary then begin
+    lSource := TDADataDictionary(Source);
+    Fields := lSource.Fields;
+  end;
+end;
+
+constructor TDADataDictionary.Create(aOwner: TComponent);
+begin
+  inherited;
+  fFields := TDADataDictionaryFieldCollection.Create(self, TDADataDictionaryField);
+end;
+
+destructor TDADataDictionary.Destroy;
+begin
+  fFields.Free;
+  inherited;
+end;
+
+function TDADataDictionary.GetFields: TDADataDictionaryFieldCollection;
+begin
+  result := fFields;
+end;
+
+procedure TDADataDictionary.RestoreNonStreamableProperties(const TempStorage: TPointerArray);
+begin
+
+end;
+
+procedure TDADataDictionary.SaveNonStreamableProperties(var TempStorage: TPointerArray);
+begin
+
+end;
+
+procedure TDADataDictionary.SetFields(const Value: TDADataDictionaryFieldCollection);
+begin
+  fFields.Assign(Value);
+end;
+
+{ TDASchema }
+
+constructor TDASchema.Create(aOwner: TComponent);
+begin
+  inherited;
+  fCustomAttributes := TStringList.Create;
+  fDatasets := TDADatasetCollection.Create(Self);
+  fJoinDataTables := TDAJoinDataTableCollection.Create(Self);
+  fUnionDataTables := TDAUnionDataTableCollection.Create(Self);
+  fCommands := TDASQLCommandCollection.Create(Self);
+  fRelationShips := TDADatasetRelationshipCollection.Create(Self);
+  fUpdateRules := TDAUpdateRuleCollection.Create(Self);
+end;
+
+destructor TDASchema.Destroy;
+begin
+  ConnectionManager := nil;
+  DataDictionary := nil;
+  Diagrams := nil;
+  FreeAndNil(fDatasets);
+  FreeAndNil(fJoinDataTables);
+  FreeAndNil(fUnionDataTables);
+  FreeAndNil(fCommands);
+  FreeAndNil(fRelationShips);
+  FreeAndNil(fUpdateRules);
+  fCustomAttributes.Free;
+
+  inherited;
+end;
+
+procedure TDASchema.Notification(aComponent: TComponent; Operation: TOperation);
+begin
+  inherited;
+  if (Operation <> opRemove) then Exit;
+  if aComponent = ConnectionManager then
+    ConnectionManager := nil
+  else if aComponent = DataDictionary then
+    DataDictionary := nil
+  else if aComponent = Diagrams then
+    Diagrams := nil;
+end;
+
+function TDASchema.GetCommands: TDASQLCommandCollection;
+begin
+  Result := fCommands;
+end;
+
+function TDASchema.GetDatasets: TDADatasetCollection;
+begin
+  Result := fDatasets;
+end;
+
+function TDASchema.GetJoinDataTables: TDAJoinDataTableCollection;
+begin
+  Result := fJoinDataTables;
+end;
+
+function TDASchema.GetUnionDataTables: TDAUnionDataTableCollection;
+begin
+  Result := fUnionDataTables;
+end;
+
+procedure TDASchema.SetCommands(const Value: TDASQLCommandCollection);
+begin
+  fCommands.Assign(Value);
+end;
+
+procedure TDASchema.SetDatasets(const Value: TDADatasetCollection);
+begin
+  fDatasets.Assign(Value);
+end;
+
+procedure TDASchema.SetJoinDataTables(const Value: TDAJoinDataTableCollection);
+begin
+  fJoinDataTables.Assign(Value);
+end;
+
+procedure TDASchema.SetUnionDataTables(const Value: TDAUnionDataTableCollection);
+begin
+  fUnionDataTables.Assign(Value);
+end;
+
+procedure TDASchema.Loaded;
+begin
+  inherited;
+end;
+
+procedure TDASchema.SetConnectionManager(const Value: TDAConnectionManager);
+begin
+  if fConnectionManager <> Value then begin
+    if (fConnectionManager <> nil) then fConnectionManager.RORemoveFreeNotification(Self);
+    fConnectionManager := Value;
+    if (fConnectionManager <> nil) then fConnectionManager.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TDASchema.SetDataDictionary(const Value: TDADataDictionary);
+begin
+  if fDataDictionary <> Value then begin
+    if (fDataDictionary <> nil) then fDataDictionary.RORemoveFreeNotification(Self);
+    fDataDictionary := Value;
+    if (fDataDictionary <> nil) then fDataDictionary.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TDASchema.RestoreNonStreamableProperties(
+  const TempStorage: TPointerArray);
+begin
+  fConnectionManager := TempStorage[0];
+  fDataDictionary := TempStorage[1];
+end;
+
+procedure TDASchema.SaveNonStreamableProperties(
+  var TempStorage: TPointerArray);
+begin
+  SetLength(TempStorage, 2);
+  TempStorage[0] := fConnectionManager;
+  TempStorage[1] := fDataDictionary;
+end;
+
+function TDASchema.GetCommandText(const aConnection: IDAConnection; const aName: string): string;
+var
+  cmd: TDASQLCommand;
+begin
+  cmd := TDASQLCommand(Commands.ItemByName(aName));
+  result := FindCommandStatement(aConnection, cmd).SQL;
+end;
+
+function TDASchema.GetDatasetText(const aConnection: IDAConnection; const aName: string): string;
+var
+  ds: TDADataset;
+begin
+  ds := TDADataset(Datasets.ItemByName(aName));
+  result := FindCommandStatement(aConnection, ds).SQL;
+end;
+
+function TDASchema.FindCommandStatement(const aConnection: IDAConnection; aSQLCommand: TDASQLCommand; aStatementName: string=''): TDAStatement;
+var
+  connname: string;
+  i: integer;
+begin
+  // Tries to find the statement associated with the given connection
+
+  result := nil;
+  if (aConnection <> nil) then begin
+    connname := aConnection.Name;
+    result := TDAStatement(aSQLCommand.Statements.FindItem(connname, aStatementName));
+  end;
+
+  //check for statement matching the connection TYPE of the active connection [matching means same *non-empty* value for both]
+  if (Result = nil) and assigned(aConnection) and (aConnection.ConnectionType<>'') then begin
+    For i:=0 to aSQLCommand.Statements.Count-1 do
+      if AnsiSameText(aConnection.ConnectionType,aSQLCommand.Statements[i].ConnectionType) then begin
+        Result:=aSQLCommand.Statements[i];
+        Break;
+      end;
+  end;
+
+  //check for a default statement ["Default" is new property on statement]
+  if (Result = nil) then
+    For i:=0 to aSQLCommand.Statements.Count-1 do
+      if aSQLCommand.Statements[i].Default then begin
+        Result:=aSQLCommand.Statements[i];
+        Break;
+      end;
+
+  // If none is found then reverts to the default connection
+  if (result = nil) then begin
+    connname := ConnectionManager.GetDefaultConnectionName;
+    result := TDAStatement(aSQLCommand.Statements.FindItem(connname, aStatementName));
+  end;
+
+  Check(result = nil, err_CannotFindStatement, [aSQLCommand.Name, connname]);
+end;
+
+{function TDASchema.NewDataset(aConnectionName: string; const aName: string): IDADataset;
+begin
+  Check(not Assigned(ConnectionManager), err_ConnectionManagerNotAssigned);
+  result := NewDataset(ConnectionManager.NewConnection(aConnectionName), aName);
+end;}
+
+function TDASchema.NewUnionItemDataset(
+  const aConnection: IDAConnection;
+  const aName: string;
+  const ParamNames: array of string;
+  const ParamValues: array of Variant;
+  aDynSelectFields: array of string;
+  aWhereClause: UnicodeString;
+  anUnionMapping: TDAColumnMappingCollection): IDADataset;
+var
+  i: integer;
+begin
+  if (High(ParamNames) <> High(ParamValues)) then RaiseError('Names and values counts are different');
+
+  result := Self.DoNewDataset(aConnection, aName, aDynSelectFields, aWhereClause,
+    '', false, false, //default values
+    anUnionMapping);
+
+  for i := 0 to High(ParamValues) do
+    result.ParamByName(ParamNames[i]).Value := ParamValues[i];
+
+end;
+
+function TDASchema.NewDataset(
+  const aConnection: IDAConnection;
+  const aName: string;
+  aDynSelectFields: array of string;
+  aWhereClause: WideString;
+  aStatementName: string;
+  OpenIt: boolean;
+  AlwaysGenerateDynamicWhereStatement:Boolean): IDADataset;
+begin
+  result := Self.DoNewDataset(aConnection, aName, aDynSelectFields,
+    aWhereClause, aStatementName, OpenIt, AlwaysGenerateDynamicWhereStatement,
+    nil);
+end;
+
+function TDASchema.DoNewDataset(
+  const aConnection: IDAConnection;
+  const aName: string;
+  aDynSelectFields: array of string;
+  aWhereClause: UnicodeString;
+  aStatementName: string;
+  OpenIt: boolean;
+  AlwaysGenerateDynamicWhereStatement:Boolean;
+  anUnionMapping: TDAColumnMappingCollection): IDADataset;
+
+var
+  ds: TDADataset;
+  fld : TDAField;
+
+  function IsRealField(aFieldName: string; ACheckForCalulated: boolean): boolean;
+  begin
+    Result:=not SameText(aFieldName, def_SourceTableFieldName);
+    if Result and ACheckForCalulated then begin
+      fld:=ds.Fields.FindField(aFieldName);
+      if fld <> nil then
+        Result:= not fld.Calculated;
+    end;
+  end;
+
+var
+  sql: string;
+  statement: TDAStatement;
+  i,j: integer;
+  lConnection: IDAConnection;
+  lFields: TDAFieldCollection;
+  lFields2:TDAFieldCollection;
+  lColumnMapping: TDAColumnMapping;
+  lWhereFields: TWhereFieldsArray;
+  lWhereFlag: Boolean;
+  lstatname: string;
+  lWhereClause: UnicodeString;
+  lserversideDynWhere: Unicodestring;
+  lwb: TDAQueryBuilder;
+begin
+  lConnection := aConnection;
+  if not assigned(lConnection) then begin
+    CheckProperties;
+    lConnection := ConnectionManager.NewConnection(ConnectionManager.GetDefaultConnectionName);
+  end;
+  result := nil;
+  lColumnMapping := nil;
+  SetLength(lWhereFields,0);   // remove warning
+  ds := (Datasets.DatasetByName(aName) as TDADataset);
+  if Assigned(ds) then begin
+    lserversideDynWhere := Trim(ds.DynamicWhereXML);
+    statement := FindCommandStatement(lConnection, ds, aStatementName);
+    sql := statement.SQL;
+    // generate AutoSQL
+    if statement.StatementType = stAutoSQL then begin
+      if statement.TargetTable = '' then begin
+        if statement.Name = '' then
+          lstatname:= '['+statement.ConnectionType+']'
+        else
+          lstatname:= statement.Name;
+        raise Exception.Create(aName+'. Statement: '+lstatname+ '. TargetTable must be specified.');
+      end;
+      lwb := aConnection.GetQueryBuilder;
+      With lwb do try
+        if Length(aDynSelectFields) > 0 then begin
+          For i:=0 to ds.Fields.Count-1 do begin
+            fld:=ds.Fields[i];
+            if not (not Assigned(fld) or fld.Calculated or fld.Lookup or fld.ServerCalculated) then
+              for j:=Low(aDynSelectFields) to High(aDynSelectFields) do
+                if SameText(aDynSelectFields[j],Fld.Name) then begin
+                  AddSelect('',fld.Name);
+                  Break;
+                end;
+          end;
+        end
+        else begin
+          For i:=0 to ds.Fields.Count-1 do begin
+            fld:=ds.Fields[i];
+            if not (fld.Calculated or fld.Lookup or fld.ServerCalculated) then
+              AddSelect('',fld.Name);
+          end;
+        end;
+        MainTable.MasterTable:=statement.TargetTable;
+        if (aWhereClause <> '') or AlwaysGenerateDynamicWhereStatement or (lserversideDynWhere <> '') then
+          Options := Options + [qboGenerateDynamicWhereStatement];
+        ColumnMapping:=statement.ColumnMappings;
+        sql := GenerateSelectSQL;
+      finally
+        Free;
+      end;
+    end;
+
+    if Assigned(fOnGetSQL) then fOnGetSQL(Self, aName, setDataset, sql);
+
+    result := lConnection.NewDataset(sql, aName);
+
+    if (aWhereClause <> '') or (lserversideDynWhere <> '') then begin
+
+      //Do remapping for unions
+      if (aWhereClause <> '') then begin
+        if (Assigned(anUnionMapping)) then
+          lWhereClause := Where_RemapFieldNames(aWhereClause, anUnionMapping, statement.TargetTable)
+        else
+          lWhereClause := aWhereClause;
+        Result.DynamicWhere.Xml := lWhereClause;
+      end;
+
+      if lserversideDynWhere <> '' then begin
+        with Result.DynamicWhere do
+        try
+          if Expression <> nil then
+            Expression := NewBinaryExpression(Expression,XMLToExpression(lserversideDynWhere), dboAnd)
+          else
+            Expression := XMLToExpression(lserversideDynWhere);
+        except
+          raise EDAException.Create('Can''t apply Dynamic Expression:'#13#10+lserversideDynWhere);
+        end;
+      end;
+
+      if Result.DynamicWhere.Expression <> nil then Where_RemapTableNames(Result.DynamicWhere.Expression, aName, statement.TargetTable);
+
+      // Checking conformity dynamic where fields to table fields
+      lWhereFields := Where_ExtractFieldNames(Result.DynamicWhere.Expression);
+      if Length(lWhereFields) <> 0 then begin
+      {// remapping
+        for i:=0 to High(lWhereFields) do begin
+          lColumnMapping := statement.ColumnMappings.FindMappingByDatasetField(lWhereFields[i]);
+          if Assigned(lColumnMapping) then lWhereFields[i] := lColumnMapping.TableField;
+        end;
+      }
+        if Length(aDynSelectFields) > 0 then begin
+          For i:= 0 to High(lWhereFields) do begin
+            lWhereFlag:=False;
+            for j:=0 to High(aDynSelectFields) do
+              if IsRealField(aDynSelectFields[j],True) then
+                if SameText(lWhereFields[i],aDynSelectFields[j]) then begin
+                  lWhereFlag:=True;
+                  break;
+                end;
+            if not lWhereFlag then
+              raise EDAException.CreateFmt('''%s'' field can''t be used inside the where clause',[lWhereFields[i]]);
+          end;
+        end
+        else begin
+          For i:= 0 to High(lWhereFields) do begin
+            lWhereFlag:= ds.Fields.Count = 0;
+            for j:=0 to ds.Fields.Count-1 do
+              if not ds.Fields[j].Calculated and IsRealField(ds.Fields[j].Name, False) then
+                 if SameText(lWhereFields[i],ds.Fields[j].Name) then begin
+                   lWhereFlag:=True;
+                   break;
+                 end;
+            if not lWhereFlag then
+              raise EDAException.CreateFmt('''%s'' field can''t be used inside the where clause',[lWhereFields[i]]);
+            end;
+        end;
+      end;
+      // end Checking conformity dynamic where fields to table fields
+      Result.DynamicWhere.ColumnMapping := statement.ColumnMappings;
+    end;
+    // Copies the definitions of the schema
+
+    { not sure if this is unproblematic, but we need to copy access to the data
+    dictionary. though some more explicit access (say a Fields.DataDictionary
+    property would be better. }
+
+    result.Fields.DataDictionary := self.DataDictionary;
+    if statement.StatementType <> stAutoSQL then begin
+      result.Fields.AssignFieldCollection(ds.Fields);
+
+      with statement do
+        for i := 0 to (ColumnMappings.Count - 1) do begin
+          fld := result.Fields.FieldByName(ColumnMappings[i].DatasetField);
+
+          fld.TableField := ColumnMappings[i].TableField;
+          fld.SQLOrigin := ColumnMappings[i].SQLOrigin;
+        end;
+    end else begin
+      // stAutoSQL
+      lFields:=nil;
+      if ds.Fields.Count = 0 then begin
+        lConnection.GetTableFields(statement.TargetTable,lFields);
+        lFields2:=lFields;
+      end
+      else begin
+        lFields2:=ds.Fields;
+      end;
+      try
+        if Length(aDynSelectFields) > 0 then begin
+          if statement.ColumnMappings.Count = 0 then begin
+            For i:=0 to High(aDynSelectFields) do begin
+              if aDynSelectFields[i] = def_SourceTableFieldName then Continue;
+              fld:=Result.Fields.Add;
+              fld.AssignField(lfields2.FieldByName(aDynSelectFields[i]));
+              if lColumnMapping <> nil then begin
+                fld.Name := lColumnMapping.DatasetField;
+                fld.TableField := lColumnMapping.TableField;
+                fld.SQLOrigin := lColumnMapping.SQLOrigin;
+              end;
+            end;
+          end
+          else begin
+            For i:=0 to statement.ColumnMappings.Count-1 do begin
+              lColumnMapping := statement.ColumnMappings[i];
+              for j:=Low(aDynSelectFields) to High(aDynSelectFields) do
+                if SameText(aDynSelectFields[j],lColumnMapping.DatasetField) then begin
+                  fld:=Result.Fields.Add;
+                  fld.AssignField(lfields2.FieldByName(lColumnMapping.DatasetField));
+                  fld.Name := lColumnMapping.DatasetField;
+                  fld.TableField := lColumnMapping.TableField;
+                  fld.SQLOrigin := lColumnMapping.SQLOrigin;
+                  Break;
+                end;
+            end;
+          end;
+        end
+        else begin
+          result.Fields.AssignFieldCollection(lfields2);
+          with statement do
+            for i := 0 to (ColumnMappings.Count - 1) do begin
+              fld := Result.Fields.FindField(ColumnMappings[i].DatasetField);
+              if fld = nil then Continue;
+              fld.Name := ColumnMappings[i].DatasetField;
+              fld.TableField := ColumnMappings[i].TableField;
+              fld.SQLOrigin := ColumnMappings[i].SQLOrigin;
+            end;
+        end;
+      finally
+        if lFields <> nil then lFields.Free;
+      end;
+    end;
+    // checking for DynamicFields
+    if Length(aDynSelectFields) > 0 then begin
+      For i:=0 to High(aDynSelectFields) do
+        if IsRealField(aDynSelectFields[i],True) then
+          Result.FieldByName(aDynSelectFields[i]);
+    end;
+    result.Params.AssignParamCollection(ds.Params);
+    if Result.DynamicWhere.Expression <> nil then
+      Where_CreateParameters(Result.DynamicWhere.Expression, Result.Params);
+    if OpenIt then result.Open;
+
+  end;
+end;
+
+function TDASchema.NewCommand(const aConnection: IDAConnection; const aName: string; aStatementName: string=''): IDASQLCommand;
+var
+  statement: TDAStatement;
+  sql: string;
+  cmd: TDASQLCommand;
+  lConnection: IDAConnection;
+begin
+  lConnection := aConnection;
+  if not assigned(lConnection) then begin
+    CheckProperties;
+    lConnection := ConnectionManager.NewConnection(ConnectionManager.GetDefaultConnectionName);
+  end;
+  result := nil;
+  cmd := TDASQLCommand(Commands.ItemByName(aName));
+
+  statement := FindCommandStatement(lConnection, cmd, aStatementName);
+  sql := statement.SQL;
+
+  if Assigned(fOnGetSQL) then fOnGetSQL(Self, aName, setCommand, sql);
+
+  result := lConnection.NewCommand(sql, statement.StatementType, aName);
+
+  // Copies the definitions of the schema
+  result.Params.AssignParamCollection(cmd.Params);
+end;
+
+procedure TDASchema.Clear;
+begin
+  Datasets.Clear();
+  Commands.Clear();
+  JoinDataTables.Clear();
+  UnionDataTables.Clear();
+  UpdateRules.Clear;
+  RelationShips.Clear;
+end;
+
+function TDASchema.NewDataset(
+  const aConnection: IDAConnection;
+  const aName: string;
+  const ParamNames: array of string;
+  const ParamValues: array of Variant;
+  aDynSelectFields: array of string;
+  aWhereClause: WideString;
+  OpenIt: boolean;
+  aStatementName: string): IDADataset;
+var
+  i: integer;
+begin
+  if (High(ParamNames) <> High(ParamValues)) then RaiseError('Names and values counts are different');
+
+  result := NewDataset(aConnection, aName, aDynSelectFields, aWhereClause, aStatementName, False, False);
+
+  for i := 0 to High(ParamValues) do
+    result.ParamByName(ParamNames[i]).Value := ParamValues[i];
+
+  if OpenIt then result.Open;
+end;
+
+function TDASchema.NewCommand(const aConnection: IDAConnection; const aName: string;
+  const ParamNames: array of string;
+  const ParamValues: array of Variant;
+  ExecuteIt: boolean = TRUE;
+  aStatementName: string=''): IDASQLCommand;
+var
+  i: integer;
+begin
+  if (High(ParamNames) <> High(ParamValues)) then RaiseError('Names and values counts are different');
+
+  result := NewCommand(aConnection, aName);
+
+  for i := 0 to High(ParamValues) do
+    result.ParamByName(ParamNames[i]).Value := ParamValues[i];
+
+  if ExecuteIt then result.Execute;
+end;
+
+procedure TDASchema.SetUpdateRules(const Value: TDAUpdateRuleCollection);
+begin
+  fUpdateRules.Assign(Value);
+end;
+
+procedure TDASchema.SetRelationShips(
+  const Value: TDADatasetRelationshipCollection);
+begin
+  fRelationShips.Assign(Value);
+end;
+
+procedure TDASchema.SetDiagrams(const Value: TDADiagrams);
+begin
+  if fDiagrams <> Value then begin
+    if (fDiagrams <> nil) then fDiagrams.RORemoveFreeNotification(Self);
+    fDiagrams := Value;
+    if (fDiagrams <> nil) then fDiagrams.ROFreeNotification(Self);
+  end;
+
+end;
+
+procedure TDASchema.Copy(aSourceSchema: TDASchema; DatasetNames, CommandNames,
+  UpdateRuleNames, RelationShipNames, UnionDataTablesNames,
+  JoinDataTablesNames: array of string);
+var i : integer;
+    sourcedataset,
+    destdataset : TDADataset;
+    sourcecommand,
+    destcommand : TDASQLCommand;
+    sourceupdaterule,
+    destupdaterule : TDAUpdateRule;
+    sourcerelationship,
+    destrelationship : TDADatasetRelationship;
+    lSourceJoinDataTable,
+    lDestJoinDataTable: TDAJoinDataTable;
+    lSourceUnionDataTable,
+    lDestUnionDataTable: TDAUnionDataTable;
+begin
+  for i := 0 to High(DatasetNames) do begin
+    sourcedataset := aSourceSchema.Datasets.DatasetByName(DatasetNames[i]);
+    destdataset := Datasets.Add;
+    destdataset.Assign(sourcedataset);
+  end;
+
+  for i := 0 to High(CommandNames) do begin
+    sourcecommand := aSourceSchema.Commands.SQLCommandByName(CommandNames[i]);
+    destcommand := Commands.Add;
+    destcommand.Assign(sourcecommand);
+  end;
+
+  for i := 0 to High(UpdateRuleNames) do begin
+    sourceupdaterule := aSourceSchema.UpdateRules.UpdateRuleByName(UpdateRuleNames[i]);
+    destupdaterule := UpdateRules.Add;
+    destupdaterule.Assign(sourceupdaterule);
+  end;
+
+  for i := 0 to High(RelationShipNames) do begin
+    sourcerelationship := aSourceSchema.RelationShips.RelationShipByName(RelationShipNames[i]);
+    destrelationship := RelationShips.Add;
+    destrelationship.Assign(sourcerelationship);
+  end;
+
+  for i := 0 to High(UnionDataTablesNames) do begin
+    lSourceUnionDataTable := aSourceSchema.UnionDataTables.UnionDataTableByName(UnionDataTablesNames[i]);
+    lDestUnionDataTable := UnionDataTables.Add;
+    lDestUnionDataTable.Assign(lSourceUnionDataTable);
+  end;
+
+  for i := 0 to High(JoinDataTablesNames) do begin
+    lSourceJoinDataTable := aSourceSchema.JoinDataTables.JoinTableByName(JoinDataTablesNames[i]);
+    lDestJoinDataTable := JoinDataTables.Add;
+    lDestJoinDataTable.Assign(lSourceJoinDataTable);
+  end;
+
+end;
+
+procedure TDASchema.Copy(aSourceSchema : TDASchema;
+                   IncludeDatasets : boolean = TRUE;
+                   IncludeCommands : boolean = TRUE;
+                   IncludeUpdateRules : boolean = TRUE;
+                   IncludeRelationShips : boolean = TRUE;
+                   IncludeUnionDataTables: boolean = True;
+                   IncludeJoinDataTables: boolean = True);
+var
+  lDatasetNames,
+  lCommandNames,
+  lUpdateRuleNames,
+  lRelationShipNames,
+  lJoinDataTablesNames,
+  lUnionDataTablesNames: array of string;
+  i : integer;
+begin
+  if not IncludeDatasets then SetLength(lDatasetNames, 0)
+  else begin
+    SetLength(lDatasetNames, aSourceSchema.Datasets.Count);
+    for i := 0 to (aSourceSchema.Datasets.Count-1) do
+      lDatasetNames[i] := aSourceSchema.Datasets[i].Name;
+  end;
+
+  if not IncludeCommands then SetLength(lCommandNames, 0)
+  else begin
+    SetLength(lCommandNames, aSourceSchema.Commands.Count);
+    for i := 0 to (aSourceSchema.Commands.Count-1) do
+      lCommandNames[i] := aSourceSchema.Commands[i].Name;
+  end;
+
+  if not IncludeUpdateRules then SetLength(lUpdateRuleNames, 0)
+  else begin
+    SetLength(lUpdateRuleNames, aSourceSchema.UpdateRules.Count);
+    for i := 0 to (aSourceSchema.UpdateRules.Count-1) do
+      lUpdateRuleNames[i] := aSourceSchema.UpdateRules[i].Name;
+  end;
+
+  if not IncludeRelationShips then SetLength(lRelationShipNames, 0)
+  else begin
+    SetLength(lRelationShipNames, aSourceSchema.RelationShips.Count);
+    for i := 0 to (aSourceSchema.RelationShips.Count-1) do
+      lRelationShipNames[i] := aSourceSchema.RelationShips[i].Name;
+  end;
+
+  if not IncludeUnionDataTables then SetLength(lUnionDataTablesNames, 0)
+  else begin
+    SetLength(lUnionDataTablesNames, aSourceSchema.UnionDataTables.Count);
+    for i := 0 to (aSourceSchema.UnionDataTables.Count-1) do
+      lUnionDataTablesNames[i] := aSourceSchema.UnionDataTables[i].Name;
+  end;
+
+  if not IncludeJoinDataTables then SetLength(lJoinDataTablesNames, 0)
+  else begin
+    SetLength(lJoinDataTablesNames, aSourceSchema.JoinDataTables.Count);
+    for i := 0 to (aSourceSchema.JoinDataTables.Count-1) do
+      lJoinDataTablesNames[i] := aSourceSchema.JoinDataTables[i].Name;
+  end;
+{$WARN SYMBOL_DEPRECATED OFF}
+  Copy(aSourceSchema, lDatasetNames, lCommandNames, lUpdateRuleNames, lRelationShipNames,lUnionDataTablesNames, lJoinDataTablesNames);
+{$WARN SYMBOL_DEPRECATED ON}
+end;
+
+procedure TDASchema.Copy(aSourceSchema: TDASchema; DatasetNames, CommandNames,
+  UpdateRuleNames, RelationShipNames: array of string);
+begin
+{$WARN SYMBOL_DEPRECATED OFF}
+  Copy(aSourceSchema,DatasetNames,CommandNames,UpdateRuleNames,RelationShipNames,[],[]);
+{$WARN SYMBOL_DEPRECATED ON}
+end;
+
+procedure TDASchema.Assign(Source: TPersistent);
+var
+  lSource: TDASchema;
+begin
+  inherited;
+  if Source is TDASchema then begin
+    lSource := TDASchema(Source);
+
+    Commands := lSource.Commands;
+    ConnectionManager := lSource.ConnectionManager;
+    CustomAttributes.Assign(lSource.CustomAttributes);
+    DataDictionary := lSource.DataDictionary;
+    Datasets := lSource.Datasets;
+    Diagrams := lSource.Diagrams;
+    JoinDataTables := lSource.JoinDataTables;
+    OnGetSQL := lSource.OnGetSQL;
+    RelationShips := lSource.RelationShips;
+    UnionDataTables := lSource.UnionDataTables;
+    UpdateRules := lSource.UpdateRules;
+    Version := lSource.Version;
+  end;
+end;
+
+procedure TDASchema.CheckProperties;
+begin
+ Check(not assigned(ConnectionManager), Name+'.ConnectionManager must be assigned.');
+ Check(ConnectionManager.GetDefaultConnectionName = '', Name+'.ConnectionManager does not have a default connection.');
+ ConnectionManager.CheckProperties;
+end;
+
+function TDASchema.FindDataset(aDatasetName: String): TDADataset;
+begin
+  result := Self.fDatasets.FindItem(aDatasetName) as TDADataset;
+  if not Assigned(result) then
+    result := Self.fUnionDataTables.FindItem(aDatasetName) as TDADataset;
+  if not Assigned(result) then
+    result := Self.fJoinDataTables.FindItem(aDatasetName) as TDADataset;
+end;
+
+function TDASchema.NewDataset(const aConnection: IDAConnection;
+  const aName: string;
+  aStatementName: string='';
+  OpenIt: boolean = false): IDADataset;
+begin
+  result := NewDataset(aConnection, aName, [], '', aStatementName, OpenIt);
+end;
+
+function TDASchema.NewDataset(const aConnection: IDAConnection; const aName: string;
+  const ParamNames: array of string;
+  const ParamValues: array of Variant;
+  OpenIt: boolean = TRUE;
+  aStatementName: string=''): IDADataset;
+begin
+  result := NewDataset(aConnection, aName, ParamNames, ParamValues,[],'', OpenIt,aStatementName);
+end;
+
+function TDASchema.GetDataDictionary: IDADataDictionary;
+begin
+  Result := fDataDictionary;
+end;
+
+procedure TDASchema.SaveToStream(aStream: TStream;
+  aFormat: TDAPersistFormat);
+begin
+  fMergeDataDictionaries := true;
+  try
+    inherited SaveToStream(aStream, aFormat);
+  finally
+    fMergeDataDictionaries := false;
+  end;
+end;
+
+function TDASchema.MergeDataDictionaries: Boolean;
+begin
+  result := fMergeDataDictionaries;
+end;
+
+{ TDADiagrams }
+
+procedure TDADiagrams.DefineProperties(Filer: TFiler);
+begin
+  inherited;
+  Filer.DefineProperty('DiagramData', ReadDiagramData, WriteDiagramData, fDiagramData <> '');
+end;
+
+procedure TDADiagrams.LoadFromFile(const aFilename: string);
+var
+  t: TextFile;
+  S: string;
+begin
+  AssignFile(t, aFilename);
+  Reset(t);
+  try
+    fDiagramData := '';
+    while not Eof(t) do begin
+      Readln(t, s);
+      fDiagramData := fDiagramData+s+#13#10;
+    end;
+  finally
+    CloseFile(t);
+  end;
+end;
+
+procedure TDADiagrams.SaveToFile(const aFilename: string);
+var
+  t:TextFile;
+begin
+  AssignFile(t, aFilename);
+  Rewrite(t);
+  try
+    Write(t, fDiagramData);
+  finally
+    CloseFile(t);
+  end;
+end;
+
+procedure TDADiagrams.ReadDiagramData(Reader: TReader);
+begin
+  fDiagramData := Reader.ReadString;
+end;
+
+procedure TDADiagrams.WriteDiagramData(Writer: TWriter);
+begin
+  Writer.WriteString(fDiagramData);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAClientDataModule.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAClientDataModule.pas
new file mode 100644
index 0000000..d72017a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAClientDataModule.pas	
@@ -0,0 +1,30 @@
+unit uDAClientDataModule {$IFNDEF FPC}deprecated{$ENDIF};
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes;
+
+type
+  TDAClientDataModule = class(TDataModule)
+  private
+
+  end deprecated;
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADB2Interfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADB2Interfaces.pas
new file mode 100644
index 0000000..ec21663
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADB2Interfaces.pas	
@@ -0,0 +1,567 @@
+unit uDADB2Interfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses uDAInterfaces, uDAEngine;
+
+type
+  { IDADB2Connection
+      For identification purposes. Implemented by all DB2 connections }
+  IDADB2Connection = interface(IDAConnection)
+    ['{E1449C52-8AEF-432C-BABC-823E592A8116}']
+  end;
+
+
+function DB2_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+
+implementation
+uses
+  SysUtils;
+  
+var
+  db2_reservedwords: array of string;
+
+function DB2_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  Result := TestIdentifier(iIdentifier, db2_reservedwords);
+end;
+
+procedure db2_InitializeReservedWords;
+begin
+// from http://publib.boulder.ibm.com/infocenter/db2luw/v9r5/topic/com.ibm.db2.luw.sql.ref.doc/doc/r0001095.html
+  SetLength(db2_reservedwords, 513);
+  // sorted with TStringList.Sort (bds2007)
+  db2_reservedwords[0] := 'ABS';
+  db2_reservedwords[1] := 'ACTIVATE';
+  db2_reservedwords[2] := 'ADD';
+  db2_reservedwords[3] := 'AFTER';
+  db2_reservedwords[4] := 'ALIAS';
+  db2_reservedwords[5] := 'ALL';
+  db2_reservedwords[6] := 'ALLOCATE';
+  db2_reservedwords[7] := 'ALLOW';
+  db2_reservedwords[8] := 'ALTER';
+  db2_reservedwords[9] := 'AND';
+  db2_reservedwords[10] := 'ANY';
+  db2_reservedwords[11] := 'ARE';
+  db2_reservedwords[12] := 'ARRAY';
+  db2_reservedwords[13] := 'AS';
+  db2_reservedwords[14] := 'ASENSITIVE';
+  db2_reservedwords[15] := 'ASSOCIATE';
+  db2_reservedwords[16] := 'ASUTIME';
+  db2_reservedwords[17] := 'ASYMMETRIC';
+  db2_reservedwords[18] := 'AT';
+  db2_reservedwords[19] := 'ATOMIC';
+  db2_reservedwords[20] := 'ATTRIBUTES';
+  db2_reservedwords[21] := 'AUDIT';
+  db2_reservedwords[22] := 'AUTHORIZATION';
+  db2_reservedwords[23] := 'AUX';
+  db2_reservedwords[24] := 'AUXILIARY';
+  db2_reservedwords[25] := 'AVG';
+  db2_reservedwords[26] := 'BEFORE';
+  db2_reservedwords[27] := 'BEGIN';
+  db2_reservedwords[28] := 'BETWEEN';
+  db2_reservedwords[29] := 'BIGINT';
+  db2_reservedwords[30] := 'BINARY';
+  db2_reservedwords[31] := 'BLOB';
+  db2_reservedwords[32] := 'BOOLEAN';
+  db2_reservedwords[33] := 'BOTH';
+  db2_reservedwords[34] := 'BUFFERPOOL';
+  db2_reservedwords[35] := 'BY';
+  db2_reservedwords[36] := 'CACHE';
+  db2_reservedwords[37] := 'CALL';
+  db2_reservedwords[38] := 'CALLED';
+  db2_reservedwords[39] := 'CAPTURE';
+  db2_reservedwords[40] := 'CARDINALITY';
+  db2_reservedwords[41] := 'CASCADED';
+  db2_reservedwords[42] := 'CASE';
+  db2_reservedwords[43] := 'CAST';
+  db2_reservedwords[44] := 'CCSID';
+  db2_reservedwords[45] := 'CEIL';
+  db2_reservedwords[46] := 'CEILING';
+  db2_reservedwords[47] := 'CHAR';
+  db2_reservedwords[48] := 'CHAR_LENGTH';
+  db2_reservedwords[49] := 'CHARACTER';
+  db2_reservedwords[50] := 'CHARACTER_LENGTH';
+  db2_reservedwords[51] := 'CHECK';
+  db2_reservedwords[52] := 'CLOB';
+  db2_reservedwords[53] := 'CLONE';
+  db2_reservedwords[54] := 'CLOSE';
+  db2_reservedwords[55] := 'CLUSTER';
+  db2_reservedwords[56] := 'COALESCE';
+  db2_reservedwords[57] := 'COLLATE';
+  db2_reservedwords[58] := 'COLLECT';
+  db2_reservedwords[59] := 'COLLECTION';
+  db2_reservedwords[60] := 'COLLID';
+  db2_reservedwords[61] := 'COLUMN';
+  db2_reservedwords[62] := 'COMMENT';
+  db2_reservedwords[63] := 'COMMIT';
+  db2_reservedwords[64] := 'CONCAT';
+  db2_reservedwords[65] := 'CONDITION';
+  db2_reservedwords[66] := 'CONNECT';
+  db2_reservedwords[67] := 'CONNECTION';
+  db2_reservedwords[68] := 'CONSTRAINT';
+  db2_reservedwords[69] := 'CONTAINS';
+  db2_reservedwords[70] := 'CONTINUE';
+  db2_reservedwords[71] := 'CONVERT';
+  db2_reservedwords[72] := 'CORR';
+  db2_reservedwords[73] := 'CORRESPONDING';
+  db2_reservedwords[74] := 'COUNT';
+  db2_reservedwords[75] := 'COUNT_BIG';
+  db2_reservedwords[76] := 'COVAR_POP';
+  db2_reservedwords[77] := 'COVAR_SAMP';
+  db2_reservedwords[78] := 'CREATE';
+  db2_reservedwords[79] := 'CROSS';
+  db2_reservedwords[80] := 'CUBE';
+  db2_reservedwords[81] := 'CUME_DIST';
+  db2_reservedwords[82] := 'CURRENT';
+  db2_reservedwords[83] := 'CURRENT_DATE';
+  db2_reservedwords[84] := 'CURRENT_DEFAULT_TRANSFORM_GROUP';
+  db2_reservedwords[85] := 'CURRENT_LC_CTYPE';
+  db2_reservedwords[86] := 'CURRENT_PATH';
+  db2_reservedwords[87] := 'CURRENT_ROLE';
+  db2_reservedwords[88] := 'CURRENT_SCHEMA';
+  db2_reservedwords[89] := 'CURRENT_SERVER';
+  db2_reservedwords[90] := 'CURRENT_TIME';
+  db2_reservedwords[91] := 'CURRENT_TIMESTAMP';
+  db2_reservedwords[92] := 'CURRENT_TIMEZONE';
+  db2_reservedwords[93] := 'CURRENT_TRANSFORM_GROUP_FOR_TYPE';
+  db2_reservedwords[94] := 'CURRENT_USER';
+  db2_reservedwords[95] := 'CURSOR';
+  db2_reservedwords[96] := 'CYCLE';
+  db2_reservedwords[97] := 'DATA';
+  db2_reservedwords[98] := 'DATABASE';
+  db2_reservedwords[99] := 'DATAPARTITIONNAME';
+  db2_reservedwords[100] := 'DATAPARTITIONNUM';
+  db2_reservedwords[101] := 'DATE';
+  db2_reservedwords[102] := 'DAY';
+  db2_reservedwords[103] := 'DAYS';
+  db2_reservedwords[104] := 'DB2GENERAL';
+  db2_reservedwords[105] := 'DB2GENRL';
+  db2_reservedwords[106] := 'DB2SQL';
+  db2_reservedwords[107] := 'DBINFO';
+  db2_reservedwords[108] := 'DBPARTITIONNAME';
+  db2_reservedwords[109] := 'DBPARTITIONNUM';
+  db2_reservedwords[110] := 'DEALLOCATE';
+  db2_reservedwords[111] := 'DEC';
+  db2_reservedwords[112] := 'DECIMAL';
+  db2_reservedwords[113] := 'DECLARE';
+  db2_reservedwords[114] := 'DEFAULT';
+  db2_reservedwords[115] := 'DEFAULTS';
+  db2_reservedwords[116] := 'DEFINITION';
+  db2_reservedwords[117] := 'DELETE';
+  db2_reservedwords[118] := 'DENSE_RANK';
+  db2_reservedwords[119] := 'DENSERANK';
+  db2_reservedwords[120] := 'DEREF';
+  db2_reservedwords[121] := 'DESCRIBE';
+  db2_reservedwords[122] := 'DESCRIPTOR';
+  db2_reservedwords[123] := 'DETERMINISTIC';
+  db2_reservedwords[124] := 'DIAGNOSTICS';
+  db2_reservedwords[125] := 'DISABLE';
+  db2_reservedwords[126] := 'DISALLOW';
+  db2_reservedwords[127] := 'DISCONNECT';
+  db2_reservedwords[128] := 'DISTINCT';
+  db2_reservedwords[129] := 'DO';
+  db2_reservedwords[130] := 'DOCUMENT';
+  db2_reservedwords[131] := 'DOUBLE';
+  db2_reservedwords[132] := 'DROP';
+  db2_reservedwords[133] := 'DSSIZE';
+  db2_reservedwords[134] := 'DYNAMIC';
+  db2_reservedwords[135] := 'EACH';
+  db2_reservedwords[136] := 'EDITPROC';
+  db2_reservedwords[137] := 'ELEMENT';
+  db2_reservedwords[138] := 'ELSE';
+  db2_reservedwords[139] := 'ELSEIF';
+  db2_reservedwords[140] := 'ENABLE';
+  db2_reservedwords[141] := 'ENCODING';
+  db2_reservedwords[142] := 'ENCRYPTION';
+  db2_reservedwords[143] := 'END';
+  db2_reservedwords[144] := 'END-EXEC';
+  db2_reservedwords[145] := 'ENDING';
+  db2_reservedwords[146] := 'ERASE';
+  db2_reservedwords[147] := 'ESCAPE';
+  db2_reservedwords[148] := 'EVERY';
+  db2_reservedwords[149] := 'EXCEPT';
+  db2_reservedwords[150] := 'EXCEPTION';
+  db2_reservedwords[151] := 'EXCLUDING';
+  db2_reservedwords[152] := 'EXCLUSIVE';
+  db2_reservedwords[153] := 'EXEC';
+  db2_reservedwords[154] := 'EXECUTE';
+  db2_reservedwords[155] := 'EXISTS';
+  db2_reservedwords[156] := 'EXIT';
+  db2_reservedwords[157] := 'EXP';
+  db2_reservedwords[158] := 'EXPLAIN';
+  db2_reservedwords[159] := 'EXTERNAL';
+  db2_reservedwords[160] := 'EXTRACT';
+  db2_reservedwords[161] := 'FALSE';
+  db2_reservedwords[162] := 'FENCED';
+  db2_reservedwords[163] := 'FETCH';
+  db2_reservedwords[164] := 'FIELDPROC';
+  db2_reservedwords[165] := 'FILE';
+  db2_reservedwords[166] := 'FILTER';
+  db2_reservedwords[167] := 'FINAL';
+  db2_reservedwords[168] := 'FLOAT';
+  db2_reservedwords[169] := 'FLOOR';
+  db2_reservedwords[170] := 'FOR';
+  db2_reservedwords[171] := 'FOREIGN';
+  db2_reservedwords[172] := 'FREE';
+  db2_reservedwords[173] := 'FROM';
+  db2_reservedwords[174] := 'FULL';
+  db2_reservedwords[175] := 'FUNCTION';
+  db2_reservedwords[176] := 'FUSION';
+  db2_reservedwords[177] := 'GENERAL';
+  db2_reservedwords[178] := 'GENERATED';
+  db2_reservedwords[179] := 'GET';
+  db2_reservedwords[180] := 'GLOBAL';
+  db2_reservedwords[181] := 'GO';
+  db2_reservedwords[182] := 'GOTO';
+  db2_reservedwords[183] := 'GRANT';
+  db2_reservedwords[184] := 'GRAPHIC';
+  db2_reservedwords[185] := 'GROUP';
+  db2_reservedwords[186] := 'GROUPING';
+  db2_reservedwords[187] := 'HANDLER';
+  db2_reservedwords[188] := 'HASH';
+  db2_reservedwords[189] := 'HASHED_VALUE';
+  db2_reservedwords[190] := 'HAVING';
+  db2_reservedwords[191] := 'HINT';
+  db2_reservedwords[192] := 'HOLD';
+  db2_reservedwords[193] := 'HOUR';
+  db2_reservedwords[194] := 'HOURS';
+  db2_reservedwords[195] := 'IDENTITY';
+  db2_reservedwords[196] := 'IF';
+  db2_reservedwords[197] := 'IMMEDIATE';
+  db2_reservedwords[198] := 'IN';
+  db2_reservedwords[199] := 'INCLUDING';
+  db2_reservedwords[200] := 'INCLUSIVE';
+  db2_reservedwords[201] := 'INCREMENT';
+  db2_reservedwords[202] := 'INDEX';
+  db2_reservedwords[203] := 'INDICATOR';
+  db2_reservedwords[204] := 'INF';
+  db2_reservedwords[205] := 'INFINITY';
+  db2_reservedwords[206] := 'INHERIT';
+  db2_reservedwords[207] := 'INNER';
+  db2_reservedwords[208] := 'INOUT';
+  db2_reservedwords[209] := 'INSENSITIVE';
+  db2_reservedwords[210] := 'INSERT';
+  db2_reservedwords[211] := 'INT';
+  db2_reservedwords[212] := 'INTEGER';
+  db2_reservedwords[213] := 'INTEGRITY';
+  db2_reservedwords[214] := 'INTERSECT';
+  db2_reservedwords[215] := 'INTERSECTION';
+  db2_reservedwords[216] := 'INTERVAL';
+  db2_reservedwords[217] := 'INTO';
+  db2_reservedwords[218] := 'IS';
+  db2_reservedwords[219] := 'ISOBID';
+  db2_reservedwords[220] := 'ISOLATION';
+  db2_reservedwords[221] := 'ITERATE';
+  db2_reservedwords[222] := 'JAR';
+  db2_reservedwords[223] := 'JAVA';
+  db2_reservedwords[224] := 'JOIN';
+  db2_reservedwords[225] := 'KEEP';
+  db2_reservedwords[226] := 'KEY';
+  db2_reservedwords[227] := 'LABEL';
+  db2_reservedwords[228] := 'LANGUAGE';
+  db2_reservedwords[229] := 'LARGE';
+  db2_reservedwords[230] := 'LATERAL';
+  db2_reservedwords[231] := 'LC_CTYPE';
+  db2_reservedwords[232] := 'LEADING';
+  db2_reservedwords[233] := 'LEAVE';
+  db2_reservedwords[234] := 'LEFT';
+  db2_reservedwords[235] := 'LIKE';
+  db2_reservedwords[236] := 'LINKTYPE';
+  db2_reservedwords[237] := 'LN';
+  db2_reservedwords[238] := 'LOCAL';
+  db2_reservedwords[239] := 'LOCALDATE';
+  db2_reservedwords[240] := 'LOCALE';
+  db2_reservedwords[241] := 'LOCALTIME';
+  db2_reservedwords[242] := 'LOCALTIMESTAMP';
+  db2_reservedwords[243] := 'LOCATOR';
+  db2_reservedwords[244] := 'LOCATORS';
+  db2_reservedwords[245] := 'LOCK';
+  db2_reservedwords[246] := 'LOCKMAX';
+  db2_reservedwords[247] := 'LOCKSIZE';
+  db2_reservedwords[248] := 'LONG';
+  db2_reservedwords[249] := 'LOOP';
+  db2_reservedwords[250] := 'LOWER';
+  db2_reservedwords[251] := 'MAINTAINED';
+  db2_reservedwords[252] := 'MATCH';
+  db2_reservedwords[253] := 'MATERIALIZED';
+  db2_reservedwords[254] := 'MAX';
+  db2_reservedwords[255] := 'MAXVALUE';
+  db2_reservedwords[256] := 'MEMBER';
+  db2_reservedwords[257] := 'MERGE';
+  db2_reservedwords[258] := 'METHOD';
+  db2_reservedwords[259] := 'MICROSECOND';
+  db2_reservedwords[260] := 'MICROSECONDS';
+  db2_reservedwords[261] := 'MIN';
+  db2_reservedwords[262] := 'MINUTE';
+  db2_reservedwords[263] := 'MINUTES';
+  db2_reservedwords[264] := 'MINVALUE';
+  db2_reservedwords[265] := 'MOD';
+  db2_reservedwords[266] := 'MODE';
+  db2_reservedwords[267] := 'MODIFIES';
+  db2_reservedwords[268] := 'MODULE';
+  db2_reservedwords[269] := 'MONTH';
+  db2_reservedwords[270] := 'MONTHS';
+  db2_reservedwords[271] := 'MULTISET';
+  db2_reservedwords[272] := 'NAN';
+  db2_reservedwords[273] := 'NATIONAL';
+  db2_reservedwords[274] := 'NATURAL';
+  db2_reservedwords[275] := 'NCHAR';
+  db2_reservedwords[276] := 'NCLOB';
+  db2_reservedwords[277] := 'NEW';
+  db2_reservedwords[278] := 'NEW_TABLE';
+  db2_reservedwords[279] := 'NEXTVAL';
+  db2_reservedwords[280] := 'NO';
+  db2_reservedwords[281] := 'NOCACHE';
+  db2_reservedwords[282] := 'NOCYCLE';
+  db2_reservedwords[283] := 'NODENAME';
+  db2_reservedwords[284] := 'NODENUMBER';
+  db2_reservedwords[285] := 'NOMAXVALUE';
+  db2_reservedwords[286] := 'NOMINVALUE';
+  db2_reservedwords[287] := 'NONE';
+  db2_reservedwords[288] := 'NOORDER';
+  db2_reservedwords[289] := 'NORMALIZE';
+  db2_reservedwords[290] := 'NORMALIZED';
+  db2_reservedwords[291] := 'NOT';
+  db2_reservedwords[292] := 'NULL';
+  db2_reservedwords[293] := 'NULLIF';
+  db2_reservedwords[294] := 'NULLS';
+  db2_reservedwords[295] := 'NUMERIC';
+  db2_reservedwords[296] := 'NUMPARTS';
+  db2_reservedwords[297] := 'OBID';
+  db2_reservedwords[298] := 'OCTET_LENGTH';
+  db2_reservedwords[299] := 'OF';
+  db2_reservedwords[300] := 'OLD';
+  db2_reservedwords[301] := 'OLD_TABLE';
+  db2_reservedwords[302] := 'ON';
+  db2_reservedwords[303] := 'ONLY';
+  db2_reservedwords[304] := 'OPEN';
+  db2_reservedwords[305] := 'OPTIMIZATION';
+  db2_reservedwords[306] := 'OPTIMIZE';
+  db2_reservedwords[307] := 'OPTION';
+  db2_reservedwords[308] := 'OR';
+  db2_reservedwords[309] := 'ORDER';
+  db2_reservedwords[310] := 'OUT';
+  db2_reservedwords[311] := 'OUTER';
+  db2_reservedwords[312] := 'OVER';
+  db2_reservedwords[313] := 'OVERLAPS';
+  db2_reservedwords[314] := 'OVERLAY';
+  db2_reservedwords[315] := 'OVERRIDING';
+  db2_reservedwords[316] := 'PACKAGE';
+  db2_reservedwords[317] := 'PADDED';
+  db2_reservedwords[318] := 'PAGESIZE';
+  db2_reservedwords[319] := 'PARAMETER';
+  db2_reservedwords[320] := 'PART';
+  db2_reservedwords[321] := 'PARTITION';
+  db2_reservedwords[322] := 'PARTITIONED';
+  db2_reservedwords[323] := 'PARTITIONING';
+  db2_reservedwords[324] := 'PARTITIONS';
+  db2_reservedwords[325] := 'PASSWORD';
+  db2_reservedwords[326] := 'PATH';
+  db2_reservedwords[327] := 'PERCENT_RANK';
+  db2_reservedwords[328] := 'PERCENTILE_CONT';
+  db2_reservedwords[329] := 'PERCENTILE_DISC';
+  db2_reservedwords[330] := 'PIECESIZE';
+  db2_reservedwords[331] := 'PLAN';
+  db2_reservedwords[332] := 'POSITION';
+  db2_reservedwords[333] := 'POWER';
+  db2_reservedwords[334] := 'PRECISION';
+  db2_reservedwords[335] := 'PREPARE';
+  db2_reservedwords[336] := 'PREVVAL';
+  db2_reservedwords[337] := 'PRIMARY';
+  db2_reservedwords[338] := 'PRIQTY';
+  db2_reservedwords[339] := 'PRIVILEGES';
+  db2_reservedwords[340] := 'PROCEDURE';
+  db2_reservedwords[341] := 'PROGRAM';
+  db2_reservedwords[342] := 'PSID';
+  db2_reservedwords[343] := 'PUBLIC';
+  db2_reservedwords[344] := 'QUERY';
+  db2_reservedwords[345] := 'QUERYNO';
+  db2_reservedwords[346] := 'RANGE';
+  db2_reservedwords[347] := 'RANK';
+  db2_reservedwords[348] := 'READ';
+  db2_reservedwords[349] := 'READS';
+  db2_reservedwords[350] := 'REAL';
+  db2_reservedwords[351] := 'RECOVERY';
+  db2_reservedwords[352] := 'RECURSIVE';
+  db2_reservedwords[353] := 'REF';
+  db2_reservedwords[354] := 'REFERENCES';
+  db2_reservedwords[355] := 'REFERENCING';
+  db2_reservedwords[356] := 'REFRESH';
+  db2_reservedwords[357] := 'REGR_AVGX';
+  db2_reservedwords[358] := 'REGR_AVGY';
+  db2_reservedwords[359] := 'REGR_COUNT';
+  db2_reservedwords[360] := 'REGR_INTERCEPT';
+  db2_reservedwords[361] := 'REGR_R2';
+  db2_reservedwords[362] := 'REGR_SLOPE';
+  db2_reservedwords[363] := 'REGR_SXX';
+  db2_reservedwords[364] := 'REGR_SXY';
+  db2_reservedwords[365] := 'REGR_SYY';
+  db2_reservedwords[366] := 'RELEASE';
+  db2_reservedwords[367] := 'RENAME';
+  db2_reservedwords[368] := 'REPEAT';
+  db2_reservedwords[369] := 'RESET';
+  db2_reservedwords[370] := 'RESIGNAL';
+  db2_reservedwords[371] := 'RESTART';
+  db2_reservedwords[372] := 'RESTRICT';
+  db2_reservedwords[373] := 'RESULT';
+  db2_reservedwords[374] := 'RESULT_SET_LOCATOR';
+  db2_reservedwords[375] := 'RETURN';
+  db2_reservedwords[376] := 'RETURNS';
+  db2_reservedwords[377] := 'REVOKE';
+  db2_reservedwords[378] := 'RIGHT';
+  db2_reservedwords[379] := 'ROLE';
+  db2_reservedwords[380] := 'ROLLBACK';
+  db2_reservedwords[381] := 'ROLLUP';
+  db2_reservedwords[382] := 'ROUND_CEILING';
+  db2_reservedwords[383] := 'ROUND_DOWN';
+  db2_reservedwords[384] := 'ROUND_FLOOR';
+  db2_reservedwords[385] := 'ROUND_HALF_DOWN';
+  db2_reservedwords[386] := 'ROUND_HALF_EVEN';
+  db2_reservedwords[387] := 'ROUND_HALF_UP';
+  db2_reservedwords[388] := 'ROUND_UP';
+  db2_reservedwords[389] := 'ROUTINE';
+  db2_reservedwords[390] := 'ROW';
+  db2_reservedwords[391] := 'ROW_NUMBER';
+  db2_reservedwords[392] := 'ROWNUMBER';
+  db2_reservedwords[393] := 'ROWS';
+  db2_reservedwords[394] := 'ROWSET';
+  db2_reservedwords[395] := 'RRN';
+  db2_reservedwords[396] := 'RUN';
+  db2_reservedwords[397] := 'SAVEPOINT';
+  db2_reservedwords[398] := 'SCHEMA';
+  db2_reservedwords[399] := 'SCOPE';
+  db2_reservedwords[400] := 'SCRATCHPAD';
+  db2_reservedwords[401] := 'SCROLL';
+  db2_reservedwords[402] := 'SEARCH';
+  db2_reservedwords[403] := 'SECOND';
+  db2_reservedwords[404] := 'SECONDS';
+  db2_reservedwords[405] := 'SECQTY';
+  db2_reservedwords[406] := 'SECURITY';
+  db2_reservedwords[407] := 'SELECT';
+  db2_reservedwords[408] := 'SENSITIVE';
+  db2_reservedwords[409] := 'SEQUENCE';
+  db2_reservedwords[410] := 'SESSION';
+  db2_reservedwords[411] := 'SESSION_USER';
+  db2_reservedwords[412] := 'SET';
+  db2_reservedwords[413] := 'SIGNAL';
+  db2_reservedwords[414] := 'SIMILAR';
+  db2_reservedwords[415] := 'SIMPLE';
+  db2_reservedwords[416] := 'SMALLINT';
+  db2_reservedwords[417] := 'SNAN';
+  db2_reservedwords[418] := 'SOME';
+  db2_reservedwords[419] := 'SOURCE';
+  db2_reservedwords[420] := 'SPECIFIC';
+  db2_reservedwords[421] := 'SPECIFICTYPE';
+  db2_reservedwords[422] := 'SQL';
+  db2_reservedwords[423] := 'SQLEXCEPTION';
+  db2_reservedwords[424] := 'SQLID';
+  db2_reservedwords[425] := 'SQLSTATE';
+  db2_reservedwords[426] := 'SQLWARNING';
+  db2_reservedwords[427] := 'SQRT';
+  db2_reservedwords[428] := 'STACKED';
+  db2_reservedwords[429] := 'STANDARD';
+  db2_reservedwords[430] := 'START';
+  db2_reservedwords[431] := 'STARTING';
+  db2_reservedwords[432] := 'STATEMENT';
+  db2_reservedwords[433] := 'STATIC';
+  db2_reservedwords[434] := 'STATMENT';
+  db2_reservedwords[435] := 'STAY';
+  db2_reservedwords[436] := 'STDDEV_POP';
+  db2_reservedwords[437] := 'STDDEV_SAMP';
+  db2_reservedwords[438] := 'STOGROUP';
+  db2_reservedwords[439] := 'STORES';
+  db2_reservedwords[440] := 'STYLE';
+  db2_reservedwords[441] := 'SUBMULTISET';
+  db2_reservedwords[442] := 'SUBSTRING';
+  db2_reservedwords[443] := 'SUM';
+  db2_reservedwords[444] := 'SUMMARY';
+  db2_reservedwords[445] := 'SYMMETRIC';
+  db2_reservedwords[446] := 'SYNONYM';
+  db2_reservedwords[447] := 'SYSFUN';
+  db2_reservedwords[448] := 'SYSIBM';
+  db2_reservedwords[449] := 'SYSPROC';
+  db2_reservedwords[450] := 'SYSTEM';
+  db2_reservedwords[451] := 'SYSTEM_USER';
+  db2_reservedwords[452] := 'TABLE';
+  db2_reservedwords[453] := 'TABLESAMPLE';
+  db2_reservedwords[454] := 'TABLESPACE';
+  db2_reservedwords[455] := 'THEN';
+  db2_reservedwords[456] := 'TIME';
+  db2_reservedwords[457] := 'TIMESTAMP';
+  db2_reservedwords[458] := 'TIMEZONE_HOUR';
+  db2_reservedwords[459] := 'TIMEZONE_MINUTE';
+  db2_reservedwords[460] := 'TO';
+  db2_reservedwords[461] := 'TRAILING';
+  db2_reservedwords[462] := 'TRANSACTION';
+  db2_reservedwords[463] := 'TRANSLATE';
+  db2_reservedwords[464] := 'TRANSLATION';
+  db2_reservedwords[465] := 'TREAT';
+  db2_reservedwords[466] := 'TRIGGER';
+  db2_reservedwords[467] := 'TRIM';
+  db2_reservedwords[468] := 'TRUE';
+  db2_reservedwords[469] := 'TRUNCATE';
+  db2_reservedwords[470] := 'TYPE';
+  db2_reservedwords[471] := 'UESCAPE';
+  db2_reservedwords[472] := 'UNDO';
+  db2_reservedwords[473] := 'UNION';
+  db2_reservedwords[474] := 'UNIQUE';
+  db2_reservedwords[475] := 'UNKNOWN';
+  db2_reservedwords[476] := 'UNNEST';
+  db2_reservedwords[477] := 'UNTIL';
+  db2_reservedwords[478] := 'UPDATE';
+  db2_reservedwords[479] := 'UPPER';
+  db2_reservedwords[480] := 'USAGE';
+  db2_reservedwords[481] := 'USER';
+  db2_reservedwords[482] := 'USING';
+  db2_reservedwords[483] := 'VALIDPROC';
+  db2_reservedwords[484] := 'VALUE';
+  db2_reservedwords[485] := 'VALUES';
+  db2_reservedwords[486] := 'VAR_POP';
+  db2_reservedwords[487] := 'VAR_SAMP';
+  db2_reservedwords[488] := 'VARCHAR';
+  db2_reservedwords[489] := 'VARIABLE';
+  db2_reservedwords[490] := 'VARIANT';
+  db2_reservedwords[491] := 'VARYING';
+  db2_reservedwords[492] := 'VCAT';
+  db2_reservedwords[493] := 'VERSION';
+  db2_reservedwords[494] := 'VIEW';
+  db2_reservedwords[495] := 'VOLATILE';
+  db2_reservedwords[496] := 'VOLUMES';
+  db2_reservedwords[497] := 'WHEN';
+  db2_reservedwords[498] := 'WHENEVER';
+  db2_reservedwords[499] := 'WHERE';
+  db2_reservedwords[500] := 'WHILE';
+  db2_reservedwords[501] := 'WIDTH_BUCKET';
+  db2_reservedwords[502] := 'WINDOW';
+  db2_reservedwords[503] := 'WITH';
+  db2_reservedwords[504] := 'WITHIN';
+  db2_reservedwords[505] := 'WITHOUT';
+  db2_reservedwords[506] := 'WLM';
+  db2_reservedwords[507] := 'WRITE';
+  db2_reservedwords[508] := 'XMLELEMENT';
+  db2_reservedwords[509] := 'XMLEXISTS';
+  db2_reservedwords[510] := 'XMLNAMESPACES';
+  db2_reservedwords[511] := 'YEAR';
+  db2_reservedwords[512] := 'YEARS';
+end;
+
+initialization
+  db2_InitializeReservedWords;
+finalization
+  db2_reservedwords := nil;
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADBSessionManager.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADBSessionManager.pas
new file mode 100644
index 0000000..d708ffb
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADBSessionManager.pas	
@@ -0,0 +1,424 @@
+unit uDADBSessionManager;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {vcl:}SysUtils, Classes,
+  {RemObjects: SDK}uROSessions,
+  {Data Abstract:}uDAInterfaces, uDAClasses;
+
+type
+  TDAConvertGUIDEvent = function(Sender: TROCustomSessionManager; const aGUID: TGUID): string of object;
+  TDADBSessionManager = class(TROCustomSessionManager)
+  private
+    fSchema: TDASchema;
+    fDeleteSession: string;
+    fUpdateSession: string;
+    fInsertSession: string;
+    fGetSession: string;
+    fClearSessions: string;
+    fGetSessionCount: string;
+    fConnection: string;
+    fFieldNameSessionID: string;
+    fFieldNameCreated: string;
+    fFieldNameLastAccessed: string;
+    fFieldNameData: string;
+    fClearSessionsOnCreate: boolean;
+    fClearSessionsOnDestroy: boolean;
+    fGetAllSessionIDs: string;
+    fOnConvertGUID: TDAConvertGUIDEvent;
+    FForceTransaction: Boolean;
+    FNeedTransactionAction: Boolean;
+    procedure SetSchema(const Value: TDASchema);
+    { Private declarations }
+    procedure BeginTransaction(AConnection: IDAConnection);
+    procedure CommitTransaction(AConnection: IDAConnection);
+    procedure RollbackTransaction(AConnection: IDAConnection);
+    function GetConnection: IDAConnection;
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    function DoFindSession(const aSessionID: TGUID; aUpdateTime: Boolean): TROSession; override;
+    procedure DoDeleteSession(const aSessionID: TGUID; IsExpired: boolean); override;
+    procedure DoClearSessions(OnlyExpired: boolean); override;
+    function DoGetSessionCount: integer; override;
+    procedure DoReleaseSession(aSession: TROSession; NewSession: boolean); override;
+    procedure DoGetAllSessions(Dest: TStringList); override;
+
+    function DoConvertGUID(const aGUID: TGUID): string; virtual;
+  public
+    { Public declarations }
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure CheckProperties; override;
+  published
+    property Schema: TDASchema read fSchema write SetSchema;
+
+    property FieldNameSessionID: string read fFieldNameSessionID write fFieldNameSessionID;
+    property FieldNameCreated: string read fFieldNameCreated write fFieldNameCreated;
+    property FieldNameLastAccessed: string read fFieldNameLastAccessed write fFieldNameLastAccessed;
+    property FieldNameData: string read fFieldNameData write fFieldNameData;
+
+    property InsertSessionCommand: string read fInsertSession write fInsertSession;
+    property UpdateSessionCommand: string read fUpdateSession write fUpdateSession;
+    property DeleteSessionCommand: string read fDeleteSession write fDeleteSession;
+    property ClearSessionsCommand: string read fClearSessions write fClearSessions;
+    property GetSessionCountDataSet: string read fGetSessionCount write fGetSessionCount;
+    property GetSessionDataSet: string read fGetSession write fGetSession;
+    property GetAllSessionIDsDataset: string read fGetAllSessionIDs write fGetAllSessionIDs;
+
+    property ClearSessionsOnCreate: boolean read fClearSessionsOnCreate write fClearSessionsOnCreate default true;
+    property ClearSessionsOnDestroy: boolean read fClearSessionsOnDestroy write fClearSessionsOnDestroy default true;
+
+    property Connection: string read fConnection write fConnection;
+    property OnConvertGUID: TDAConvertGUIDEvent read fOnConvertGUID write fOnConvertGUID;
+    property AutoTransaction: Boolean read FForceTransaction write FForceTransaction default false;
+    property SessionDuration;
+    property SessionCheckInterval;
+  end;
+
+implementation
+
+uses
+  uROClasses, uROTypes;
+
+constructor TDADBSessionManager.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  fClearSessionsOnDestroy := TRUE;
+  ClearSessionsOnCreate := TRUE;
+
+  fFieldNameSessionID := 'SessionID';
+  fFieldNameCreated := 'Created';
+  fFieldNameLastAccessed := 'LastAccessed';
+  fFieldNameData := 'Data';
+end;
+
+destructor TDADBSessionManager.Destroy;
+begin
+  Schema := nil;
+  inherited;
+end;
+
+procedure TDADBSessionManager.DoClearSessions(OnlyExpired: boolean);
+var
+  lCommand: IDASQLCommand;
+  lDataSet: IDADataset;
+  lConnection: IDAConnection;
+  lDate: TDateTime;
+  lFieldNameSessionID: integer;
+  lLastAccessIndex: integer;
+begin
+  if OnlyExpired then
+    lDate := ((Now * MinsPerDay) - SessionDuration) / MinsPerDay
+  else
+    lDate := Now + 30; // 30 days from now. Enough to say all! <G>
+  if Assigned(OnBeforeDeleteSession) then begin
+    lConnection := GetConnection;
+    lDataSet := Schema.NewDataset(lConnection, GetAllSessionIDsDataset);
+    BeginTransaction(lConnection);
+    try
+      lDataSet.Open;
+    except
+      RollbackTransaction(lConnection);
+      raise;
+    end;
+    CommitTransaction(lConnection);
+    lFieldNameSessionID:= lDataSet.FieldByName(FieldNameSessionID).Index;
+    lLastAccessIndex:= lDataSet.FieldByName(FieldNameLastAccessed).Index;
+    try
+      while not lDataSet.EOF do
+      try
+        if lDataSet.Fields[lLastAccessIndex].AsDateTime <= lDate then
+          DeleteSession(lDataSet.Fields[lFieldNameSessionID].AsGuid,OnlyExpired);
+      finally
+        lDataSet.Next;
+      end;
+    finally
+      lDataSet.Close();
+    end;
+  end
+  else begin
+    lConnection:=GetConnection;
+    lCommand := Schema.NewCommand(lConnection, ClearSessionsCommand);
+    lCommand.ParamByName(FieldNameLastAccessed).Value := lDate;
+    BeginTransaction(lConnection);
+    try
+      lCommand.Execute();
+    except
+      RollbackTransaction(lConnection);
+      Raise;
+    end;
+    CommitTransaction(lConnection);
+  end;
+end;
+
+procedure TDADBSessionManager.DoDeleteSession(const aSessionID: TGUID; IsExpired: boolean);
+var
+  lCommand: IDASQLCommand;
+  lConnection: IDAConnection;
+begin
+  {$IFDEF FPC}
+  if IsExpired then lConnection := GetConnection else // remove warning
+  {$ENDIF}
+  lConnection := GetConnection;
+  lCommand := Schema.NewCommand(lConnection, DeleteSessionCommand);
+  lCommand.ParamByName(FieldNameSessionID).Value := DoConvertGUID(aSessionID);
+  BeginTransaction(lConnection);
+  try
+    lCommand.Execute();
+  except
+    RollbackTransaction(lConnection);
+    raise;
+  end;
+  CommitTransaction(lConnection);
+end;
+
+function TDADBSessionManager.DoFindSession(const aSessionID: TGUID; aUpdateTime: Boolean): TROSession;
+var
+  lDataSet: IDADataSet;
+  lData: Binary;
+  lDataField: TDAField;
+  lConnection: IDAConnection;
+begin
+  {$IFDEF FPC}
+  if aUpdateTime then result := nil else //remove warning
+  {$ENDIF}
+  result := nil;
+
+  lConnection := GetConnection;
+  lDataSet := Schema.NewDataset(lConnection, GetSessionDataSet);
+  lDataSet.ParamByName(FieldNameSessionID).AsString := DoConvertGUID(aSessionID);
+
+  BeginTransaction(lConnection);
+  try
+    lDataSet.Open;
+  except
+    RollbackTransaction(lConnection);
+    raise;
+  end;
+  CommitTransaction(lConnection);
+
+  try
+    if lDataSet.EOF then Exit;
+
+    result := DoCreateSession(aSessionID);
+    result.Created := lDataSet.FieldByName(FieldNameCreated).AsDateTime;
+    result.LastAccessed := lDataSet.FieldByName(FieldNameLastAccessed).AsDateTime;
+
+    lData := Binary.Create;
+    try
+      lDataField := lDataSet.FieldByName(fFieldNameData);
+      lDataField.SaveToStream(NewROStream(lData, false));
+      //lData := BinaryFromVariant(lDataSet.FieldByName(FieldNameData).Value);
+      //try
+      lData.Seek(0, soFromBeginning);
+      result.LoadFromStream(lData, true);
+    finally
+      lData.Free;
+    end;
+  finally
+    lDataSet.Close();
+  end;
+end;
+
+procedure TDADBSessionManager.DoGetAllSessions(Dest: TStringList);
+var
+  lDataSet: IDADataSet;
+  lConnection: IDAConnection;
+begin
+  lConnection := GetConnection;
+
+  lDataSet := Schema.NewDataset(lConnection, GetAllSessionIDsDataset);
+  BeginTransaction(lConnection);
+  try
+    lDataSet.Open;
+  except
+    RollbackTransaction(lConnection);
+    raise;
+  end;
+  CommitTransaction(lConnection);
+
+  try
+    while not lDataSet.EOF do try
+      Dest.Add(lDataSet.Fields[0].AsString);
+    finally
+      lDataSet.Next;
+    end;
+  finally
+    lDataSet.Close();
+  end;
+end;
+
+function TDADBSessionManager.DoGetSessionCount: integer;
+var
+  lDataSet: IDADataSet;
+  lConnection: IDAConnection;
+begin
+  lConnection := GetConnection;
+  lDataSet := Schema.NewDataset(lConnection, GetSessionCountDataSet);
+  BeginTransaction(lConnection);
+  try
+    lDataSet.Open;
+  except
+    RollbackTransaction(lConnection);
+    raise;
+  end;
+  CommitTransaction(lConnection);
+  try
+    result := lDataSet.Fields[0].AsInteger;
+  finally
+    lDataSet.Close();
+  end;
+end;
+
+procedure TDADBSessionManager.DoReleaseSession(aSession: TROSession; NewSession: boolean);
+var
+  lCommand: IDASQLCommand;
+  lData: Binary;
+  lConnection: IDAConnection;
+begin
+  inherited;
+  lConnection := GetConnection;
+  if NewSession then begin
+    lCommand := Schema.NewCommand(lConnection, InsertSessionCommand);
+    lCommand.ParamByName(FieldNameCreated).AsDateTime := aSession.Created;
+  end
+  else begin
+    lCommand := Schema.NewCommand(lConnection, UpdateSessionCommand);
+  end;
+  lCommand.ParamByName(FieldNameSessionID).AsString := DoConvertGUID(aSession.SessionID);
+  lCommand.ParamByName(FieldNameLastAccessed).AsDateTime := aSession.LastAccessed;
+  lData := Binary.Create;
+  try
+    aSession.SaveToStream(lData, TRUE);
+    lData.Seek(0, soFromBeginning);
+    lCommand.ParamByName(FieldNameData).LoadFromStream(NewROStream(lData, false));
+  finally
+    lData.Free;
+  end;
+  BeginTransaction(lConnection);
+  try
+    lCommand.Execute();
+  except
+    RollbackTransaction(lConnection);
+    raise;
+  end;
+  CommitTransaction(lConnection);
+//  if ((NewSession) and (Assigned(OnSessionCreated))) then OnSessionCreated(aSession);
+  aSession.Free();
+end;
+
+procedure TDADBSessionManager.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  inherited;
+  if Operation <> opRemove then exit;
+  if AComponent = Schema then Schema := nil;
+end;
+
+procedure TDADBSessionManager.SetSchema(const Value: TDASchema);
+begin
+  if fSchema <> Value then begin
+    if Assigned(Schema) then Schema.RORemoveFreeNotification(self);
+    fSchema := Value;
+    if Assigned(Schema) then Schema.ROFreeNotification(self);
+  end;
+end;
+
+function TDADBSessionManager.DoConvertGUID(const aGUID: TGUID): string;
+begin
+  if Assigned(fOnConvertGUID) then
+    try
+      Result:= fOnConvertGUID(Self, aGUID);
+    except
+      Result:= GUIDToString(aGUID);
+    end
+  else
+    Result:= GUIDToString(aGUID);
+end;
+
+procedure TDADBSessionManager.Assign(Source: TPersistent);
+var
+  lSource: TDADBSessionManager;
+begin
+  inherited;
+  if Source is TDADBSessionManager then begin
+    lSource := TDADBSessionManager(Source);
+
+    AutoTransaction := lSource.AutoTransaction;
+    ClearSessionsCommand := lSource.ClearSessionsCommand;
+    ClearSessionsOnCreate := lSource.ClearSessionsOnCreate;
+    ClearSessionsOnDestroy := lSource.ClearSessionsOnDestroy;
+    Connection := lSource.Connection;
+    DeleteSessionCommand := lSource.DeleteSessionCommand;
+    FieldNameCreated := lSource.FieldNameCreated;
+    FieldNameData := lSource.FieldNameData;
+    FieldNameLastAccessed := lSource.FieldNameLastAccessed;
+    FieldNameSessionID := lSource.FieldNameSessionID;
+    GetAllSessionIDsDataset := lSource.GetAllSessionIDsDataset;
+    GetSessionCountDataSet := lSource.GetSessionCountDataSet;
+    GetSessionDataSet := lSource.GetSessionDataSet;
+    InsertSessionCommand := lSource.InsertSessionCommand;
+    OnConvertGUID := lSource.OnConvertGUID;
+    Schema := lSource.Schema;
+    UpdateSessionCommand := lSource.UpdateSessionCommand;
+  end;
+end;
+
+procedure TDADBSessionManager.BeginTransaction(AConnection: IDAConnection);
+begin
+  with AConnection do begin
+    FNeedTransactionAction := FForceTransaction and not InTransaction;
+    if FNeedTransactionAction then BeginTransaction;
+  end;
+end;
+
+procedure TDADBSessionManager.CommitTransaction(AConnection: IDAConnection);
+begin
+  if FNeedTransactionAction then AConnection.CommitTransaction;
+end;
+
+procedure TDADBSessionManager.RollbackTransaction(AConnection: IDAConnection);
+begin
+ if FNeedTransactionAction then AConnection.RollbackTransaction;
+end;
+
+function TDADBSessionManager.GetConnection: IDAConnection;
+begin
+  CheckProperties;
+  Result := Schema.ConnectionManager.NewConnection(Connection);
+end;
+
+procedure TDADBSessionManager.CheckProperties;
+begin
+  Check(Schema = nil, Name+'.Schema must be assigned.');
+  Schema.CheckProperties;
+  Check(FieldNameSessionID = '', Name + '.FieldNameSessionID must be set.');
+  Check(FieldNameCreated = '', Name + '.FieldNameCreated must be set.');
+  Check(FieldNameLastAccessed = '', Name + '.FieldNameLastAccessed must be assigned.');
+  Check(FieldNameData = '', Name + '.FieldNameData must be set.');
+  Check(InsertSessionCommand = '', Name + '.InsertSessionCommand must be set.');
+  Check(DeleteSessionCommand = '', Name + '.DeleteSessionCommand must be set.');
+  Check(UpdateSessionCommand = '', Name + '.UpdateSessionCommand must be set.');
+  Check(ClearSessionsCommand = '', Name + '.ClearSessionsCommand must be set.');
+  Check(GetSessionCountDataSet = '', Name + '.GetSessionCountDataSet must be set.');
+  Check(GetSessionDataSet = '', Name + '.GetSessionDataSet must be set.');
+  Check(GetAllSessionIDsDataset = '', Name + '.GetAllSessionIDsDataset must be set.');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataAdapter.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataAdapter.pas
new file mode 100644
index 0000000..0dadd4f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataAdapter.pas	
@@ -0,0 +1,748 @@
+unit uDADataAdapter;
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+{$I DataAbstract.inc}
+
+interface
+uses
+  SysUtils, Variants, Classes, DB,
+  uROClasses, uROClient,
+  uDAInterfaces, uDAClasses, DataAbstract4_Intf, uDADataTable, uDADataStreamer, uDADelta;
+
+type
+  TDATableOptions = record
+    // Fill
+    Bookmark: TBookMark;
+    GoFirst, OldLogChanges: boolean;
+    OldPos: cardinal;
+    // FillSchema
+    FieldHandlers : TStringList;
+    AppendMode: Boolean;
+  end;
+
+  TDAFailureBehavior = (fbNone, fbRaiseException, fbShowReconcile, fbBoth);
+  TDAApplyUpdatesEvent = procedure(Sender: TObject; aTable: TDADataTable; const Delta: IDADelta) of object;
+  TDABeforeProcessFailuresEvent = procedure(Sender: TObject; aTablesList: TList; aFailedDeltas: TList; var aFailureBehavior: TDAFailureBehavior) of object;
+  TDAShowReconcleDialogEvent = procedure(Sender: TObject; var AFailedDeltaList: TList; aTableList: TList; var aHandled: boolean) of object;
+  TDAOnGenerateRecordMessage = procedure(Sender: TObject; aChange: TDADeltaChange; ADatatable: TDADataTable; var aMessage: string) of object;
+  TDAReconcileDialogAction = (rdlgNone,rdlgSkip,rdlgCancel, rdlgRepost, rdlgRevert);
+  TDAShowReconcileRecordInAppUIEvent = procedure(Sender: TObject; aChange: TDADeltaChange; aDatatable: TDADataTable; var aHandled: Boolean; var aAction: TDAReconcileDialogAction) of object;
+
+  TDATableOptionsArray = array of TDATableOptions;
+
+  TDABaseDataAdapter = class(TDACustomDataAdapter)
+  private
+    FDataStreamer: TDADataStreamer;
+    fBeforeApplyUpdates, fAfterApplyUpdates: TDAApplyUpdatesEvent;
+    FFailureBehavior: TDAFailureBehavior;
+    fBeforeProcessFailures: TDABeforeProcessFailuresEvent;
+    fOnShowReconcleDialog: TDAShowReconcleDialogEvent;
+    FOnGenerateRecordMessage: TDAOnGenerateRecordMessage;
+    fOnShowReconcleRecordInAppUI: TDAShowReconcileRecordinAppUIEvent;
+    FDynamicSelect: Boolean;
+    fAutoFillScripts: Boolean;
+    fCacheSchema: boolean;
+    fSchema: TDASchema;
+    procedure ThrowFailures(ATableList,AFailedDeltas:TList);
+    procedure SetCacheSchema(const Value: boolean);
+    function GetSchema: TDASchema;
+  protected
+    { abstract }
+    procedure InternalApplyUpdates(aTables,aTablesWithDetails: array of TDADataTable); virtual; abstract;
+    procedure InternalFill(aTableArray: array of TDADataTable; aArray: TableRequestInfoArray; const aIncludeSchema, aAppendMode: boolean; aSavedOptions: TDATableOptionsArray);virtual; abstract;
+    function InternalFillSchema(var aStream: TROBinaryMemoryStream): TRODataType; virtual; abstract;
+    function InternalFillScripts(aTables: array of TDADataTable):UTF8String; virtual; abstract;
+    function InternalReadSchema: UTF8String; virtual; abstract;
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    function GetDataStreamer: TDADataStreamer; override;
+    procedure SetDataStreamer(const Value: TDADataStreamer); override;
+    function CreateTableRequestInfo(aTable: TDADataTable; aIncludeSchema: boolean; aDynamicWhereExpression: TDAWhereExpression = nil): TableRequestInfo;
+    function GetTableNamesAsCommaText(aTableArray: array of TDADataTable): UTF8String;
+    property CacheSchema: boolean read fCacheSchema write SetCacheSchema default false;
+    property DataStreamer: TDADataStreamer read GetDataStreamer write SetDataStreamer;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    function ApplyUpdates(aTables: array of TDADataTable; aRefetchAll: boolean = false): boolean; override;
+    procedure FillSchema(aTables: array of TDADataTable; aPreserveLookupFields: boolean = false; aPreserveClientCalcFields : boolean = false);override;
+    procedure CheckProperties; virtual;
+    function ReadSchema(aForceReRead: boolean = false): TDASchema;
+    procedure FillScripts(aTables: array of TDADataTable); override;
+    procedure Fill(aTables: array of TDADataTable; aTableRequestInfoArray: array of TableRequestInfo; aSaveCursor: boolean=false;aIncludeSchema: boolean=false; aAppendMode:Boolean = False); overload;
+    procedure Fill(aTables: array of TDADataTable; aWhereClauses : array of TDAWhereExpression; aSaveCursor: boolean=false; aIncludeSchema: boolean=false; aAppendMode:Boolean = False); overload;
+    procedure Fill(aTables: array of TDADataTable; aSaveCursor: boolean = False; aIncludeSchema: boolean = False; aAppendMode:Boolean = False); overload; override;
+    procedure FlushSchema;
+    property Schema: TDASchema read GetSchema;
+  published
+    property BeforeApplyUpdates: TDAApplyUpdatesEvent read fBeforeApplyUpdates write fBeforeApplyUpdates;
+    property AfterApplyUpdates: TDAApplyUpdatesEvent  read fAfterApplyUpdates  write fAfterApplyUpdates;
+    property FailureBehavior: TDAFailureBehavior read FFailureBehavior write FFailureBehavior default fbBoth;
+    property BeforeProcessFailures: TDABeforeProcessFailuresEvent read fBeforeProcessFailures write fBeforeProcessFailures;
+    property OnShowReconcleDialog:TDAShowReconcleDialogEvent read fOnShowReconcleDialog write fOnShowReconcleDialog;
+    property OnGenerateRecordMessage: TDAOnGenerateRecordMessage read FOnGenerateRecordMessage write FOnGenerateRecordMessage;
+    property OnShowReconcileRecordInAppUI: TDAShowReconcileRecordInAppUIEvent read fOnShowReconcleRecordInAppUI write fOnShowReconcleRecordInAppUI;
+    property AutoFillScripts: Boolean read fAutoFillScripts write fAutoFillScripts default false;
+    property DynamicSelect: Boolean read FDynamicSelect write FDynamicSelect default False;
+  end;
+
+implementation
+
+uses
+  TypInfo,
+  uROBinaryHelpers, uROXMLIntf,
+  uDAEngine, uDAReconcileDialog;
+
+{ TDABaseDataAdapter }
+
+function TDABaseDataAdapter.ApplyUpdates(aTables: array of TDADataTable;
+  aRefetchAll: boolean): boolean;
+
+  procedure CheckTable(ATable: TDADataTable);
+  begin
+    if ATable.RemoteDataAdapter <> Self then EDAException.CreateFmt('Can not do ApplyUpdate:%s.RemoteDataAdapter must use %s',[ATable.Name, Self.Name]);
+  end;
+
+  procedure List_RemoveDuplicates(AList: TList);
+  var
+    i,j: integer;
+    p: pointer;
+  begin
+    i := 0;
+    while i < AList.Count do begin
+      p:=AList[i];
+      for j := AList.Count - 1 downto i+1 do
+        if p = AList[j] then
+          AList.Delete(j);
+      inc(i);
+    end;
+  end;
+
+var
+  i,k,j : Integer;
+  details: TList;
+  lTables: TList;
+  dt: TDADataTable;
+  aTables2,aTables3: array of TDADataTable;
+  lFailedDeltas: TList;
+begin
+  CheckProperties;
+  Result := False;
+
+  // we need to process correctly case when MasterTables and DetailTable use different RDAs
+  // currently we don't support it
+  // probably we should do apply updates for each RDA separately
+  SetLength(aTables2, Length(aTables));
+  j:=0;
+  lTables := TList.Create;
+  try
+    for i := Low(aTables) to High(aTables) do begin
+      if Assigned(aTables[i]) and aTables[i].Active and aTables[i].DeltaInitialized then begin
+        CheckTable(aTables[i]);
+        aTables2[j] := aTables[i];
+        inc(j);
+        lTables.Add(aTables[i]);
+        details:= aTables[i].GetDetailTablesforApplyUpdate;
+        try
+          for k := 0 to details.Count-1 do begin
+            CheckTable(TDADataTable(details[k]));
+            lTables.Add(TDADataTable(details[k]));
+          end;
+        finally
+          details.free;
+        end;
+      end;
+    end;
+    SetLength(aTables2,j);
+    List_RemoveDuplicates(lTables);
+    if lTables.Count = 0 then Exit;
+    SetLength(aTables3,lTables.Count);
+    for I := 0 to lTables.Count - 1 do
+       aTables3[i] := TDADataTable(lTables[i]);
+
+    // post all unposted records
+    for i := 0 to lTables.Count-1 do
+      with TDADataTable(lTables[i]) do
+        if not (ruoOnPost in RemoteUpdatesOptions) then Delta.EndChangesInAllTables;
+
+    // BeforeApplyUpdates
+    for i := 0 to lTables.Count-1 do begin
+      dt := TDADataTable(lTables[i]);
+      if Assigned(dt.RemoteDataAdapter) and (dt.RemoteDataAdapter is TDABaseDataAdapter) and Assigned(TDABaseDataAdapter(dt.RemoteDataAdapter).BeforeApplyUpdates) then
+        TDABaseDataAdapter(dt.RemoteDataAdapter).BeforeApplyUpdates(dt.RemoteDataAdapter, dt, dt.Delta);
+    end;
+
+    InternalApplyUpdates(aTables2, aTables3);
+    lFailedDeltas := TList.Create;
+    try
+      for i := 0 to lTables.Count-1 do
+        with TDADataTable(lTables[i]).Delta do
+          for j := 0 to Count - 1 do
+            if Changes[j].Status = csFailed then lFailedDeltas.Add(Changes[j]);
+
+      for i := 0 to lTables.Count-1 do
+        TDADataTable(lTables[i]).MergeDelta;
+      ThrowFailures(lTables,lFailedDeltas);
+    finally
+      lFailedDeltas.Free;
+    end;
+
+    // AfterApplyUpdates
+    for i := 0 to lTables.Count-1 do begin
+      dt := TDADataTable(lTables[i]);
+      if Assigned(dt.RemoteDataAdapter) and (dt.RemoteDataAdapter is TDABaseDataAdapter) and Assigned(TDABaseDataAdapter(dt.RemoteDataAdapter).AfterApplyUpdates) then
+        TDABaseDataAdapter(dt.RemoteDataAdapter).AfterApplyUpdates(dt.RemoteDataAdapter, dt, nil);
+    end;
+
+    Result := True;
+    if aRefetchAll then begin
+      for i := 0 to lTables.Count-1 do
+        with TDADataTable(lTables[i]) do
+          if Active then Close();
+      for i := 0 to lTables.Count-1 do
+        TDADataTable(lTables[i]).Open;
+    end;
+  finally
+    lTables.Free;
+  end;
+end;
+
+procedure TDABaseDataAdapter.Assign(Source: TPersistent);
+var
+  lSource: TDABaseDataAdapter;
+begin
+  inherited;
+  if Source is TDABaseDataAdapter then begin
+    lSource := TDABaseDataAdapter(Source);
+
+    AfterApplyUpdates := lSource.AfterApplyUpdates;
+    AutoFillScripts := lSource.AutoFillScripts;
+    BeforeApplyUpdates := lSource.BeforeApplyUpdates;
+    BeforeProcessFailures := lSource.BeforeProcessFailures;
+    CacheSchema := lSource.CacheSchema;
+    DataStreamer := lSource.DataStreamer;
+    DynamicSelect := lSource.DynamicSelect;
+    FailureBehavior := lSource.FailureBehavior;
+    OnGenerateRecordMessage := lSource.OnGenerateRecordMessage;
+    OnShowReconcileRecordInAppUI := lSource.OnShowReconcileRecordInAppUI;
+    OnShowReconcleDialog := lSource.OnShowReconcleDialog;
+  end;
+end;
+
+procedure TDABaseDataAdapter.CheckProperties;
+begin
+  // nothing
+end;
+
+constructor TDABaseDataAdapter.Create(aOwner: TComponent);
+begin
+  inherited;
+  FFailureBehavior := fbBoth;
+  FDynamicSelect := False;
+  fCacheSchema := False;
+end;
+
+function TDABaseDataAdapter.CreateTableRequestInfo(aTable: TDADataTable;
+  aIncludeSchema: boolean;
+  aDynamicWhereExpression: TDAWhereExpression): TableRequestInfo;
+var
+  lParam: DataParameter;
+  j: integer;
+  lExpression: TDAWhereExpression;
+begin
+  if aDynamicWhereExpression <> nil then
+    lExpression := aDynamicWhereExpression
+  else
+    lExpression := aTable.DynamicWhere.Expression;
+  if lExpression <> nil then lExpression.Validate;
+
+  if DynamicSelect or (lExpression <> nil) then begin
+    Result := TableRequestInfoV5.Create();
+    if DynamicSelect then begin
+      TableRequestInfoV5(Result).DynamicSelectFieldNames := StringArray.Create;
+      For j:=0 to aTable.FieldCount-1 do
+        if not (aTable.Fields[j].Lookup or (aTable.Fields[j].Calculated and not aTable.Fields[j].ServerCalculated)) then
+          TableRequestInfoV5(Result).DynamicSelectFieldNames.Add(AnsiToUtf8(aTable.Fields[j].Name));
+    end;
+    if lExpression <> nil then
+      TableRequestInfoV5(Result).WhereClause:=aTable.DynamicWhere.ExpressionToXmlNode(lExpression);
+  end
+  else
+    Result := TableRequestInfo.Create();
+
+  Result.MaxRecords := aTable.MaxRecords;
+  Result.IncludeSchema := aIncludeSchema and not (soIgnoreStreamSchema in aTable.StreamingOptions);
+  Result.UserFilter := AnsiToUtf8(aTable.Where.Clause);
+  for j := 0 to aTable.Params.Count-1 do begin
+    lParam := Result.Parameters.Add();
+    lParam.Name := AnsiToUtf8(aTable.Params[j].Name);
+    lParam.Value := aTable.Params[j].Value;
+  end;
+end;
+
+destructor TDABaseDataAdapter.Destroy;
+begin
+  DataStreamer := nil;
+  FlushSchema;
+  inherited;
+end;
+
+procedure TDABaseDataAdapter.Fill(aTables: array of TDADataTable;
+  aWhereClauses: array of TDAWhereExpression; aSaveCursor, aIncludeSchema,
+  aAppendMode: Boolean);
+var
+  lTableRequestInfoArray: array of TableRequestInfo;
+  lTables: array of TDADataTable;
+  i,j: integer;
+begin
+  if Length(aTables) <> Length(aWhereClauses) then raise Exception.Create('aTables and aWhereClauses should contain equal members count.');
+  SetLength(lTableRequestInfoArray, Length(aTables));
+  SetLength(lTables, Length(aTables));
+  j:=0;
+  for i := 0 to High(aTables) do begin
+    if aTables[i] <> nil then begin
+      lTables[j]:=aTables[i];
+      lTableRequestInfoArray[j]:= CreateTableRequestInfo(aTables[j],aIncludeSchema, aWhereClauses[i]);
+      inc(j);
+    end;
+  end;
+  SetLength(lTables, j);
+  SetLength(lTableRequestInfoArray, j);
+  Fill(lTables, lTableRequestInfoArray, aSaveCursor,aIncludeSchema,aAppendMode);
+end;
+
+procedure TDABaseDataAdapter.Fill(aTables: array of TDADataTable; aSaveCursor,
+  aIncludeSchema, aAppendMode: Boolean);
+var
+  lTableRequestInfoArray: array of TableRequestInfo;
+  lTables: array of TDADataTable;
+  i,j: integer;
+begin
+  SetLength(lTableRequestInfoArray, Length(aTables));
+  SetLength(lTables, Length(aTables));
+  j:=0;
+  for i := 0 to High(aTables) do begin
+    if aTables[i] <> nil then begin
+      lTables[j]:=aTables[i];
+      lTableRequestInfoArray[j]:= CreateTableRequestInfo(aTables[j],aIncludeSchema);
+      inc(j);
+    end;
+  end;
+  SetLength(lTables, j);
+  SetLength(lTableRequestInfoArray, j);
+  Fill(lTables, lTableRequestInfoArray, aSaveCursor, aIncludeSchema, aAppendMode);
+end;
+
+procedure TDABaseDataAdapter.Fill(aTables: array of TDADataTable;
+  aTableRequestInfoArray: array of TableRequestInfo; aSaveCursor,
+  aIncludeSchema, aAppendMode: Boolean);
+var
+  lSavedOptions: TDATableOptionsArray;
+  i: integer;
+  ltablearray: array of TDADataTable;
+  ltableList: TList;
+  llocalList: TList;
+  ltbl: TDADataTable;
+  lArray: TableRequestInfoArray;
+begin
+  if Length(aTables) <> Length(aTableRequestInfoArray) then raise Exception.Create('aTables and aTableRequestInfoArray should contain equal members count.');
+
+  CheckProperties;
+
+  lArray:= TableRequestInfoArray.Create;
+  try
+    ltableList := TList.Create;
+    llocalList := TList.Create;
+    try
+      for i := Low(aTables) to High(aTables) do begin
+        ltbl:=aTables[i];
+        if ltbl = nil then continue;
+        if ltableList.IndexOf(ltbl) = -1 then ltableList.Add(ltbl);
+        if not aAppendMode then ltbl.GetDetailTablesforAllinOneFetch(ltableList,llocalList,True);
+      end;
+      SetLength(ltablearray,ltableList.Count);
+      for i := 0 to ltableList.Count - 1 do
+        ltablearray[i]:=TDADataTable(ltableList[i]);
+      for i := 0 to High(ltablearray) do
+        lArray.Add(nil);
+      for i := 0 to High(aTableRequestInfoArray) do
+        lArray.Items[ltableList.IndexOf(aTables[i])]:=aTableRequestInfoArray[i];
+      if aAppendMode then begin
+        for i := 0 to High(ltablearray) do
+          Check(ltablearray[i].HasDelta and (ltablearray[i].Delta.Count > 0),
+            '%s.Fill: %s contains uncommited changes. AppendMode is incompatible with this.',
+            [Self.Name,ltablearray[i].Name]);
+      end;
+      for i := 0 to lArray.Count-1 do
+        if lArray.Items[i] = nil then lArray.Items[i]:= CreateTableRequestInfo(ltablearray[i],aIncludeSchema);
+    finally
+      ltableList.Free;
+      llocalList.Free;
+    end;
+    if length(ltablearray) = 0 then Exit;
+    SetLength(lSavedOptions, length(ltablearray));
+    try
+      for i := 0 to High(ltablearray) do begin
+        ltbl:= ltablearray[i];
+        lSavedOptions[i].OldLogChanges := ltbl.LogChanges;
+        lSavedOptions[i].AppendMode := ltbl.Active and aAppendMode;
+        ltbl.LogChanges := false;
+        ltbl.InternalSetFetching(true);
+
+        if ltbl.Active then begin
+          lSavedOptions[i].GoFirst := false;
+          if aSaveCursor then
+            lSavedOptions[i].Bookmark := ltbl.GetBookMark;
+        end
+        else begin
+          lSavedOptions[i].GoFirst := true;
+        end;
+      end;
+      try
+        InternalFill(lTableArray,lArray,aIncludeSchema,aIncludeSchema, lSavedOptions);
+      finally
+        for i := 0 to High(ltablearray) do begin
+          ltbl:= ltablearray[i];
+          if ltbl.Active then begin
+            if lSavedOptions[i].GoFirst then begin
+              ltbl.First;
+            end
+            else begin
+              if aSaveCursor then begin
+                if ltbl.BookmarkValid(lSavedOptions[i].Bookmark) then ltbl.GotoBookmark(lSavedOptions[i].Bookmark);
+                ltbl.FreeBookmark(lSavedOptions[i].Bookmark);
+              end;
+            end;
+          end;
+          ltbl.LogChanges := lSavedOptions[i].OldLogChanges;
+          ltbl.InternalSetFetching(false);
+        end;
+      end;
+    finally
+      SetLength(lSavedOptions,0);
+      SetLength(ltablearray,0);
+    end;
+  finally
+    lArray.Free;
+  end;
+end;
+
+procedure TDABaseDataAdapter.FillSchema(
+  aTables: array of TDADataTable; aPreserveLookupFields,
+  aPreserveClientCalcFields: boolean);
+type
+  THandlerArray = array[0..1] of TMethod;
+  PHandlerArray = ^THandlerArray;
+
+const
+  HandlersToSave : array[0..1] of string = ('OnChange', 'OnValidate');
+
+var
+  lSavedOptions: array of TDATableOptions;
+  i, j, k, lIndex: integer;
+  lHandlers : PHandlerArray;
+  lSchema: TDASchema;
+  lDataTableSchema: TDADataset;
+  lookupfields : TDAFieldCollection;
+  clientcalcfields : TDAFieldCollection;
+  lField: TDAField;
+  lBinary: TROBinaryMemoryStream;
+begin
+  CheckProperties;
+
+  SetLength(lSavedOptions, Length(aTables));
+
+  for i := Low(aTables) to High(aTables) do
+    if aTables[i].Active then aTables[i].Close();
+
+  lookupfields := nil;
+  clientcalcfields := nil;
+
+  for i := Low(aTables) to High(aTables) do
+    aTables[i].Fields.FieldEventsDisabled := true;
+  try
+
+    for i := Low(aTables) to High(aTables) do begin
+      lSavedOptions[i-Low(aTables)].FieldHandlers := TStringList.Create;
+
+      { Saves the current event handler pointers }
+      for j := 0 to aTables[i].Fields.Count-1 do begin
+        New(lHandlers);
+        for k := Low(HandlersToSave) to High(HandlersToSave) do
+          lHandlers[k] := GetMethodProp(aTables[i].Fields[j], HandlersToSave[k]);
+        lSavedOptions[i-Low(aTables)].FieldHandlers.AddObject(aTables[i].Fields[j].Name, TObject(lHandlers));
+      end;
+
+      { Save lookup and calced fields}
+      if aPreserveLookupFields then begin
+        lookupfields := TDAFieldCollection.Create(nil);
+        lookupfields.Assign(aTables[i].Fields);
+        for j := (lookupfields.Count-1) downto 0 do
+          if not (lookupfields[j] as TDACustomField).Lookup then
+            lookupfields.Delete(j);
+      end;
+
+      if aPreserveClientCalcFields then begin
+        clientcalcfields := TDAFieldCollection.Create(nil);
+        clientcalcfields.Assign(aTables[i].Fields);
+        for j :=(clientcalcfields.Count-1) downto 0 do
+          if not (clientcalcfields[j] as TDACustomField).Calculated then
+            clientcalcfields.Delete(j);
+      end;
+
+      aTables[i].Fields.Clear;
+    end;
+
+    try
+      lBinary := nil;
+      case InternalFillSchema(lBinary) of
+        rtBinary:begin
+          // only RDA
+          DataStreamer.Initialize(lBinary, aiRead);
+          try
+            if (DataStreamer.DatasetCount = 0) then raise Exception.Create('Stream does not contain any dataset');
+            for i := Low(aTables) to High(aTables) do
+              DataStreamer.ReadDataset(aTables[i].LogicalName, aTables[i], true, false);
+          finally
+            DataStreamer.Finalize;
+          end;
+        end;
+        rtString, rtUTF8String:begin
+          //LDA+RDA
+          lSchema := GetSchema;
+          for i := Low(aTables) to High(aTables) do begin
+            lDataTableSchema := lSchema.Datasets.FindDatasetByName(aTables[i].LogicalName);
+            if not assigned(lDataTableSchema) then
+              lDataTableSchema := lSchema.UnionDataTables.FindUnionDataTableByName(aTables[i].LogicalName);
+            if not assigned(lDataTableSchema) then
+              lDataTableSchema := lSchema.JoinDataTables.FindJoinTableByName(aTables[i].LogicalName);
+            if not assigned(lDataTableSchema) then raise Exception.CreateFmt('Data table "%s" was not found in schema.',[aTables[i].LogicalName]);
+
+            aTables[i].Fields.AssignFieldCollection(lDataTableSchema.Fields);
+            // ToDo: the code below is shared with TableWizard. Refactor.
+            if lDataTableSchema is TDAUnionDataTable then begin
+              if not Assigned(aTables[i].Fields.FindField(def_SourceTableFieldName) as TDAField) then begin
+                lField := aTables[i].Fields.Add();
+                lField.Name := def_SourceTableFieldName;
+                lField.DataType := datInteger;
+                lField.InPrimaryKey := True;
+                lField.ServerAutoRefresh := True;
+              end;
+            end;
+            aTables[i].Params.AssignParamCollection(lDataTableSchema.Params);
+            aTables[i].CustomAttributes.Assign(lDataTableSchema.CustomAttributes);
+          end;
+        end;
+      end;
+    finally
+      FreeAndNil(lBinary);
+      { Save lookup and calced fields}
+      if aPreserveLookupFields then
+        for i := Low(aTables) to High(aTables) do
+          for j := 0 to (lookupfields.Count-1) do
+            aTables[i].Fields.Add.Assign(lookupfields[j]);
+      if aPreserveClientCalcFields then
+        for i := Low(aTables) to High(aTables) do
+          for j := 0 to (clientcalcfields.Count-1) do
+            if not Assigned(aTables[i].Fields.FindField(clientcalcfields[j].Name)) then
+              aTables[i].Fields.Add.Assign(clientcalcfields[j]);
+
+      { restores the old event handler pointers }
+      for i := Low(aTables) to High(aTables) do begin
+        for j := 0 to aTables[i].Fields.Count-1 do begin
+          lIndex := lSavedOptions[i-Low(aTables)].FieldHandlers.IndexOf(aTables[i].Fields[j].Name);
+          if lIndex >= 0 then begin
+            lHandlers := PHandlerArray(lSavedOptions[i-Low(aTables)].FieldHandlers.Objects[lIndex]);
+            for k := Low(HandlersToSave) to High(HandlersToSave) do
+              SetMethodProp(aTables[i].Fields[j], HandlersToSave[k], lHandlers[k]);
+          end;
+        end;
+        { deallocating memory used to store the old event handler pointers }
+        for j := 0 to lSavedOptions[i-Low(aTables)].FieldHandlers.Count - 1 do
+          Dispose(PHandlerArray(lSavedOptions[i-Low(aTables)].FieldHandlers.Objects[j]));
+        lSavedOptions[i-Low(aTables)].FieldHandlers.Free();
+      end;
+    end;
+  finally
+    clientcalcfields.Free;
+    lookupfields.Free;
+    for i := Low(aTables) to High(aTables) do
+      aTables[i].Fields.FieldEventsDisabled := false;
+  end;
+end;
+
+procedure TDABaseDataAdapter.FillScripts(aTables: array of TDADataTable);
+var
+  lXmlStr: UTF8String;
+  lXml: IXMLDocument;
+  lScriptNode: IXMLNode;
+  i: integer;
+begin
+  CheckProperties;
+  lXmlStr := InternalFillScripts(aTables);
+  lXml := NewROXmlDocument;
+  lXml.New;
+  lXml.XML := UTF8ToString(lXmlStr);
+  for i := Low(aTables) to High(aTables) do begin
+    lScriptNode := lXml.DocumentNode.GetNodeByName(aTables[i].Logicalname);
+    if assigned(lScriptNode) then
+      aTables[i].ScriptCode.Text := VarToWideStr(lScriptNode.Value)
+    else
+      aTables[i].ScriptCode.Text := '';
+  end;
+end;
+
+
+procedure TDABaseDataAdapter.FlushSchema;
+begin
+  FreeAndNil(fSchema);
+end;
+
+function TDABaseDataAdapter.GetDataStreamer: TDADataStreamer;
+begin
+  Result := FDataStreamer;
+end;
+
+function TDABaseDataAdapter.GetSchema: TDASchema;
+begin
+  Result := ReadSchema(not fCacheSchema);
+end;
+
+function TDABaseDataAdapter.GetTableNamesAsCommaText(
+  aTableArray: array of TDADataTable): UTF8String;
+var
+  names: TStringList;
+  i: integer;
+begin
+  names := TStringList.Create;
+  names.Duplicates := dupIgnore;
+  try
+    for i := 0 to Length(aTableArray) - 1 do
+      names.Add(aTableArray[i].LogicalName);
+    Result := UTF8Encode(names.CommaText);
+  finally
+    names.Free;
+  end;
+end;
+
+procedure TDABaseDataAdapter.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (Operation = opRemove) and (AComponent = FDataStreamer) then FDataStreamer := nil
+end;
+
+function TDABaseDataAdapter.ReadSchema(aForceReRead: boolean): TDASchema;
+var
+  lSchemaAsXmlString: UTF8String;
+begin
+  CheckProperties;
+  if aForceReRead then FlushSchema;
+  if not assigned(fSchema) then begin
+    lSchemaAsXmlString := InternalReadSchema;
+    fSchema := TDASchema.Create(nil);
+    fSchema.LoadFromXml(AnsiString(lSchemaAsXmlString));
+  end;
+  result := fSchema;
+end;
+
+procedure TDABaseDataAdapter.SetCacheSchema(const Value: boolean);
+begin
+  fCacheSchema := Value;
+  if not fCacheSchema then FlushSchema();
+end;
+
+procedure TDABaseDataAdapter.SetDataStreamer(
+  const Value: TDADataStreamer);
+begin
+  if Value <> fDataStreamer then begin
+    if assigned(fDataStreamer) then fDataStreamer.RORemoveFreeNotification(self);
+    fDataStreamer := Value;
+    if assigned(fDataStreamer) then fDataStreamer.ROFreeNotification(self);
+  end;
+end;
+
+procedure TDABaseDataAdapter.ThrowFailures(ATableList,
+  AFailedDeltas: TList);
+
+  function FindDatatable(ADelta: IDADelta): TDADatatable;
+  var
+    i: integer;
+  begin
+    Result := nil;
+    for i := 0 to ATableList.Count - 1 do
+      if SameText(ADelta.LogicalName, TDADatatable(ATableList[i]).LogicalName) then begin
+        Result := TDADatatable(ATableList[i]);
+        Break;
+      end;
+  end;
+
+  function _VarToStr(AValue: variant; ADataType: TDADataType): string;
+  begin
+    if ADataType = datDecimal then
+      Result := DecimalVariantToString(AValue)
+    else
+      Result := VarToStr(AValue)
+  end;
+
+var
+  lFailureBehavior: TDAFailureBehavior;
+  lExceptionMessage: string;
+  i,j: integer;
+  lHandled: boolean;
+  lMes: string;
+begin
+  // we need to process correctly case when MasterTables and DetailTable use different RDA
+  // currently we don't support it
+  // probably we should ThrowFailures for each RDA separately
+
+  if AFailedDeltas.Count >0 then begin
+    lFailureBehavior:= FFailureBehavior;
+    if Assigned(fBeforeProcessFailures) then fBeforeProcessFailures(Self, ATableList, AFailedDeltas, lFailureBehavior);
+    //(fbNone, fbRaiseException, fbShowReconcile, fbBoth);
+    if lFailureBehavior in [fbShowReconcile, fbBoth] then begin
+      lHandled := false;
+      if assigned(OnShowReconcleDialog) then OnShowReconcleDialog(self, AFailedDeltas, ATableList, lHandled);
+      if not lHandled then ReconcileDialog(Self, AFailedDeltas, ATableList);
+    end;
+    if (AFailedDeltas.Count >0) and (lFailureBehavior in [fbRaiseException, fbBoth]) then begin
+      lExceptionMessage := 'One or more updates failed to apply on the server.'+sLineBreak;
+      for i := 0 to AFailedDeltas.Count-1 do begin
+       lExceptionMessage := lExceptionMessage + sLineBreak ;
+       With TDADeltaChange(AFailedDeltas[i]), Delta do
+        for j := 0 to KeyFieldCount-1 do
+          begin
+
+            if ChangeType = uDAInterfaces.ctDelete then
+             lExceptionMessage := lExceptionMessage + _VarToStr(OldValueByName[KeyFieldNames[j]], LoggedFieldTypes[j])
+            else
+             lExceptionMessage := lExceptionMessage + _VarToStr(NewValueByName[KeyFieldNames[j]], LoggedFieldTypes[j]);
+
+            if j = KeyFieldCount-1 then
+              lExceptionMessage := lExceptionMessage + ': '
+            else
+              lExceptionMessage := lExceptionMessage + ', ';
+         end;
+
+        lMes := TDADeltaChange(AFailedDeltas[i]).Message;
+        if Assigned(FOnGenerateRecordMessage) then
+           FOnGenerateRecordMessage(Self, TDADeltaChange(AFailedDeltas[i]),FindDatatable(TDADeltaChange(AFailedDeltas[i]).Delta),lMes);
+        lExceptionMessage := lExceptionMessage + lMes;
+        if i = 10 then break;
+      end;
+      RaiseError(lExceptionMessage);
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataStreamer.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataStreamer.pas
new file mode 100644
index 0000000..3d25302
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataStreamer.pas	
@@ -0,0 +1,757 @@
+unit uDADataStreamer;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, SysUtils,
+  uRODL, uROClasses, uROClientIntf, uROClient,
+  uDAInterfaces, uDAEngine, uDADelta,
+  DataAbstract3_Intf, DataAbstract4_Intf;
+
+const
+  AllRows = -1;
+  DEFAULT_BUFFER_SIZE = 262144; //256kb
+
+type
+  TDADataForAppend = class
+  public
+    TableSchema: TDADataset;
+    EndDataPosition: Integer;
+    CountOfRecordsPosition: Integer;
+    RecordCount: Integer;
+    MaxRowCount: Integer;
+    RealFields: array of integer;
+  end;
+
+type
+  TDAAdapterInitialization = (aiUnknown, aiRead, aiReadFromBeginning, aiWrite);
+
+  TDAWriteOption = (woRows, woSchema);
+  TDAWriteOptions = set of TDAWriteOption;
+
+const
+  AdapterReadModes = [aiRead, aiReadFromBeginning];
+  AdapterWriteModes = [aiWrite];
+
+type
+  TDADataStreamer = class;
+
+  TDADatasetOperation = procedure(DataStreamer: TDADataStreamer; const Datasetname: string; const Dataset: IDADataset) of object;
+  TDADeltaOperation = procedure(DataStreamer: TDADataStreamer; const DeltaName: string; const Delta: IDADelta) of object;
+
+  TDAReadWriteFieldValue = procedure(const aField: TDAField; var Value: Variant) of object;
+  TDAReadWriteFieldValueEx = procedure(const aDataset: IDADataset; const aField: TDAField; var Value: Variant) of object;
+  TDADataStreamerDeltaProgress = procedure(Sender: TDADataStreamer; const aDelta: IDADelta; const aCurrent, aTotal: Integer) of object;
+  TDADataStreamerReadDatasetProgress = procedure(Sender: TDADataStreamer; const aDataset: IDADataset; const aCurrent, aTotal: Integer) of object;
+  TDADataStreamerWriteDatasetProgress = procedure(Sender: TDADataStreamer; const aDataset: IDADataset; const aCurrent, aMaxRecords: Integer) of object;
+
+  TDAFieldArray =  array of TDAField;
+  { TDADataStreamer }
+  TDADataStreamer = class(TROComponent)
+  private
+    fDeltaNames,
+    fDatasetNames: TStringList;
+
+    fOnInitialized,
+    fOnFinalized: TNotifyEvent;
+
+    fOnWriteDataset,
+    fOnReadDataset: TDADatasetOperation;
+
+    fOnWriteDelta,
+    fOnReadDelta: TDADeltaOperation;
+
+    fOnWriteFieldValue,
+    fOnReadFieldValue,
+    fOnBeforeFieldValueSerialization: TDAReadWriteFieldValue;
+
+    fBusy: boolean;
+    fAdapterInitialization: TDAAdapterInitialization;
+    fData: TStream;
+    FBufferSize: cardinal;
+    FSendReducedDelta: boolean;
+    fOnReadDeltaProgress: TDADataStreamerDeltaProgress;
+    fOnReadDatasetProgress: TDADataStreamerReadDatasetProgress;
+    fOnWriteDeltaProgress: TDADataStreamerDeltaProgress;
+    fOnWriteDatasetProgress: TDADataStreamerWriteDatasetProgress;
+    fOnWriteFieldValueEx: TDAReadWriteFieldValueEx;
+
+    function GetDatasetCount: integer;
+    function GetDatasetNames(Index: integer): string;
+    function GetDeltaCount: integer;
+    function GetDeltaNames(Index: integer): string;
+    procedure ClearReferences;
+    procedure CheckCanRead;
+    procedure CheckCanWrite;
+    function GetDatasetInfoObjects(Index: integer): TObject;
+    function GetDeltaInfoObjects(Index: integer): TObject;
+    procedure SetAdapterInitialization(const Value: TDAAdapterInitialization);
+
+  protected
+    // To override
+    function DoCreateStream: TStream; virtual; abstract;
+    procedure DoInitialize(Mode: TDAAdapterInitialization); virtual; abstract;
+    procedure DoFinalize; virtual; abstract;
+
+    function DoWriteDataset(const Source: IDADataset;
+                            Options: TDAWriteOptions;
+                            MaxRows: integer): integer;overload;
+
+    function DoWriteDataset(const Source: IDADataset;
+                            Options: TDAWriteOptions;
+                            MaxRows: integer;
+                            ADynFieldNames: array of string): integer; overload; virtual; abstract;
+
+    procedure DoWriteDelta(const Source: IDADelta); virtual; abstract;
+
+    procedure DoReadDataset(const DatasetName: string;
+                            const Destination: IDADataset;
+                            ApplySchema: boolean;
+                            AppendMode: Boolean); virtual;
+
+    procedure DoReadDelta(const DeltaName: string;
+                          const Destination: IDADelta); virtual; abstract;
+
+    function DoBeginWriteDataset( const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend; virtual; abstract;
+
+    function DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aUnionSourceIndex: Integer = -1): Integer; virtual; abstract;
+    function DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer;virtual; abstract;
+
+
+    // Internal
+    procedure AddingDataset(const aDatasetName: string; InfoObject: TObject = nil);
+    procedure AddingDelta(const aDeltaName: string; InfoObject: TObject = nil);
+
+    property AdapterInitialization: TDAAdapterInitialization read fAdapterInitialization write SetAdapterInitialization;
+
+    property Data: TStream read fData;
+    property DatasetInfoObjects[Index: integer]: TObject read GetDatasetInfoObjects;
+    property DeltaInfoObjects[Index: integer]: TObject read GetDeltaInfoObjects;
+    procedure SetBufferSize(const Value: cardinal); virtual;
+    function Dataset_GetPK(const ASource: TDAFieldArray; var ADest: TDAFieldArray):string;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+
+    // Initialization methods
+    procedure Initialize({var }Stream: TStream; Mode: TDAAdapterInitialization);
+    procedure Finalize;
+
+    // Writing methods
+    function WriteDataset(const Source: IDADataset;
+      Options: TDAWriteOptions;
+      MaxRows: integer;
+      ADynFieldNames: array of string): integer; overload;
+
+    function WriteDataset(const Source: IDADataset;
+      Options: TDAWriteOptions;
+      MaxRows: integer = AllRows): integer; overload;
+
+    function WriteDataset(Stream: TStream;
+      const Source: IDADataset;
+      Options: TDAWriteOptions;
+      MaxRows: integer = AllRows): integer; overload;
+
+    function WriteDataset(Stream: TStream;
+      const Schema: IDASchema;
+      const Connection: IDAConnection;
+      const DatasetName: string;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      InitializeStream: boolean = TRUE;
+      FinalizeStream: boolean = TRUE;
+      MaxRows: integer = AllRows): integer; overload;
+
+    function WriteDataset(Stream: TStream;
+      const Schema: IDASchema;
+      const Connection: IDAConnection;
+      const DatasetName: string;
+      InitializeStream: boolean = TRUE;
+      FinalizeStream: boolean = TRUE;
+      MaxRows: integer = AllRows): integer; overload;
+
+    procedure WriteDelta(const Source: IDADataset); overload;
+    procedure WriteDelta(const Source: IDADelta); overload;
+    procedure WriteDelta(Stream: TStream; const Source: IDADataset); overload;
+
+    // Reading methods
+    procedure ReadDelta(const DeltaName: string; const Destination: IDADelta); overload;
+    function ReadDelta(const DeltaName: string): IDADelta; overload;
+    procedure ReadDelta(const Destination: IDADataset); overload;
+    procedure ReadDelta(Stream: TStream;
+      const Destination: IDADelta;
+      DeltaName: string = '';
+      ReadFromBeginning: boolean = TRUE); overload;
+
+    procedure ReadDataset(const DatasetName: string;
+      const Destination: IDADataset;
+      ApplySchema: boolean = FALSE;
+      LoadRecords: boolean = TRUE;
+      AppendMode: Boolean = False); overload;
+    procedure ReadDataset(Stream: TStream;
+      const Destination: IDADataset;
+      ApplySchema: boolean = FALSE;
+      DatasetName: string = '';
+      LoadRecords: boolean = TRUE;
+      ReadFromBeginning: boolean = TRUE;
+      AppendMode: Boolean = False); overload;
+
+    function BeginWriteDataset(const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend;
+    function WriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aUnionSourceIndex: Integer = -1): Integer;
+    function EndWriteDataset(aDataForAppend: TDADataForAppend): Integer;
+
+
+    // Misc
+    function FindDatasetIndex(const aName: string): integer;
+    function FindDeltaIndex(const aName: string): integer;
+
+    function GetDatasetIndex(const aName: string): integer;
+    function GetDeltaIndex(const aName: string): integer;
+
+    function GetTargetDataType: TRODataType; virtual; abstract;
+    function HasReducedDelta: Boolean; virtual;
+    property DatasetCount: integer read GetDatasetCount;
+    property DatasetNames[Index: integer]: string read GetDatasetNames;
+
+    property DeltaCount: integer read GetDeltaCount;
+    property DeltaNames[Index: integer]: string read GetDeltaNames;
+
+    property TargetDataType: TRODataType read GetTargetDataType;
+    property BufferSize: Cardinal read FBufferSize write SetBufferSize default DEFAULT_BUFFER_SIZE;
+    property SendReducedDelta: boolean read FSendReducedDelta write FSendReducedDelta default False;
+  published
+    property OnInitialized: TNotifyEvent read fOnInitialized write fOnInitialized;
+    property OnFinalized: TNotifyEvent read fOnFinalized write fOnFinalized;
+
+    property OnReadDataset: TDADatasetOperation read fOnReadDataset write fOnReadDataset;
+    property OnWriteDataset: TDADatasetOperation read fOnWriteDataset write fOnWriteDataset;
+
+    property OnReadDelta: TDADeltaOperation read fOnReadDelta write fOnReadDelta;
+    property OnWriteDelta: TDADeltaOperation read fOnWriteDelta write fOnWriteDelta;
+
+    property OnReadFieldValue: TDAReadWriteFieldValue read fOnReadFieldValue write fOnReadFieldValue;
+    property OnWriteFieldValue: TDAReadWriteFieldValue read fOnWriteFieldValue write fOnWriteFieldValue;
+    property OnWriteFieldValueEx: TDAReadWriteFieldValueEx read fOnWriteFieldValueEx write fOnWriteFieldValueEx;
+    property OnBeforeFieldValueSerialization: TDAReadWriteFieldValue read fOnBeforeFieldValueSerialization write fOnBeforeFieldValueSerialization;
+    property OnReadDeltaProgress: TDADataStreamerDeltaProgress read fOnReadDeltaProgress write fOnReadDeltaProgress;
+    property OnWriteDeltaProgress: TDADataStreamerDeltaProgress read fOnWriteDeltaProgress write fOnWriteDeltaProgress;
+    property OnReadDatasetProgress: TDADataStreamerReadDatasetProgress read fOnReadDatasetProgress write fOnReadDatasetProgress;
+    property OnWriteDatasetProgress: TDADataStreamerWriteDatasetProgress read fOnWriteDatasetProgress write fOnWriteDatasetProgress;
+  end;
+
+  TDADataAdapter = TDADataStreamer;
+
+implementation
+
+{ TDADataStreamer }
+
+constructor TDADataStreamer.Create(aOwner: TComponent);
+begin
+  inherited;
+  FBufferSize := DEFAULT_BUFFER_SIZE;
+  fDeltaNames := TStringList.Create;
+  { Doesn't work correctly because it messes up the order in which the server processes the deltas!!!!
+  Fixed the methods that add elements to this down.
+
+  fDeltaNames.Sorted := TRUE;
+  fDeltaNames.Duplicates := dupError;}
+
+  fDatasetNames := TStringList.Create;
+  { Fixed for consistency with the above
+
+  fDatasetNames.Sorted := TRUE;
+  fDatasetNames.Duplicates := dupError;}
+end;
+
+function TDADataStreamer.Dataset_GetPK(const ASource: TDAFieldArray; var ADest: TDAFieldArray): string;
+var
+  i: integer;
+  lcnt: integer;
+begin
+  Result := '';
+  lcnt := 0;
+  SetLength(ADest,Length(ASource));
+  for i := 0 to Length(ASource)-1 do
+    if ASource[i].InPrimaryKey then begin
+      Result := Result + ASource[i].Name+';';
+      ADest[lcnt]:=ASource[i];
+      inc(lcnt);
+    end;
+  if Length(Result) > 0 then begin
+    Result := Copy(Result, 1, Length(Result)-1);
+  end
+  else begin
+    // use AutoInc as PK
+    for i := 0 to Length(ASource)-1 do
+      if ASource[i].DataType in [datAutoInc, datLargeAutoInc] then begin
+        Result := ASource[i].Name;
+        ADest[lcnt]:=ASource[i];
+        inc(lcnt);
+        break;
+      end;
+  end;
+  SetLength(ADest, lcnt);
+end;
+
+destructor TDADataStreamer.Destroy;
+begin
+  ClearReferences;
+
+  FreeAndNIL(fDeltaNames);
+  FreeAndNIL(fDatasetNames);
+
+  inherited;
+end;
+
+function TDADataStreamer.GetDatasetCount: integer;
+begin
+  result := fDatasetNames.Count;
+end;
+
+function TDADataStreamer.GetDatasetNames(Index: integer): string;
+begin
+  result := fDatasetNames[Index];
+end;
+
+function TDADataStreamer.GetDeltaCount: integer;
+begin
+  result := fDeltaNames.Count;
+end;
+
+function TDADataStreamer.GetDeltaNames(Index: integer): string;
+begin
+  result := fDeltaNames[Index];
+end;
+
+procedure TDADataStreamer.ClearReferences;
+var
+  i: integer;
+begin
+  for i := 0 to (fDatasetNames.Count - 1) do
+    if (fDatasetNames.Objects[i] <> nil) then fDatasetNames.Objects[i].Free;
+
+  fDatasetNames.Clear;
+
+  for i := 0 to (fDeltaNames.Count - 1) do
+    if (fDeltaNames.Objects[i] <> nil) then fDeltaNames.Objects[i].Free;
+
+  fDeltaNames.Clear;
+end;
+
+procedure TDADataStreamer.Initialize({var }Stream: TStream; Mode: TDAAdapterInitialization);
+begin
+  if fBusy then
+    raise EDAException.Create('Cannot Initialize Streamer that is already in use.');
+
+  ClearReferences;
+  fAdapterInitialization := aiUnknown;
+  fData := nil;
+
+  if Mode = aiUnknown then raise Exception.Create('Invalid DataStreamer initialization parameter.');
+  if (Stream = nil) then raise Exception.Create('Stream parameter must assigned.');
+  if (Mode in AdapterReadModes) and (Stream.Size = 0) then raise Exception.Create('Stream may not me empty for Read mode.');
+
+  try
+    if (Mode = aiReadFromBeginning) then Stream.Position := 0;
+
+    // Sets internal references
+    fData := Stream;
+    AdapterInitialization := Mode;
+
+    fDatasetNames.Clear;
+
+    DoInitialize(Mode); // Calls descendant's implementation
+
+    if Assigned(fOnInitialized) then fOnInitialized(Self);
+
+    fBusy := true;
+  except
+    ClearReferences;
+    raise;
+  end;
+end;
+
+procedure TDADataStreamer.Finalize;
+begin
+  DoFinalize; // Calls descendant's implementation
+
+  if Assigned(fOnFinalized) then fOnFinalized(Self);
+  fBusy := false;
+end;
+
+procedure TDADataStreamer.CheckCanRead;
+begin
+  if not (AdapterInitialization in AdapterReadModes) then raise Exception.Create('Adapter was not initialized for this operation');
+end;
+
+procedure TDADataStreamer.CheckCanWrite;
+begin
+  if not (AdapterInitialization in AdapterWriteModes) then raise Exception.Create('Adapter was not initialized for this operation');
+end;
+
+procedure TDADataStreamer.ReadDelta(const DeltaName: string;
+  const Destination: IDADelta);
+begin
+  CheckCanRead;
+  Destination.EndChangesInAllTables;
+
+  if Assigned(fOnReadDelta) then fOnReadDelta(Self, DeltaName, Destination);
+
+  DoReadDelta(DeltaName, Destination); // Calls descendant's implementation
+end;
+
+function TDADataStreamer.WriteDataset(const Source: IDADataset; Options: TDAWriteOptions;
+  MaxRows: integer = AllRows): integer;
+begin
+  Result := WriteDataset(Source, Options,  MaxRows, []);
+end;
+
+procedure TDADataStreamer.WriteDelta(const Source: IDADataset);
+var
+  deltaowner: IDADeltaOwner;
+  delta: IDADelta;
+begin
+  if not Supports(Source, IDADeltaOwner, deltaowner)
+    then raise Exception.Create('Source does not have a delta')
+    else delta := deltaowner.GetDelta;
+
+  CheckCanWrite;
+  delta.EndChangesInAllTables;
+  if Assigned(fOnWriteDelta) then fOnWriteDelta(Self, delta.LogicalName, delta);
+
+  DoWriteDelta(delta); // Calls descendant's implementation
+end;
+
+procedure TDADataStreamer.AddingDataset(const aDatasetName: string; InfoObject: TObject = nil);
+var i : integer;
+begin
+  i := fDatasetNames.IndexOf(aDatasetName);
+  if (i>=0)
+    then raise Exception.Create('A dataset called "'+aDatasetName+'" is already present')
+    else fDatasetNames.AddObject(aDatasetName, InfoObject)
+end;
+
+procedure TDADataStreamer.AddingDelta(const aDeltaName: string; InfoObject: TObject = nil);
+var i : integer;
+begin
+  i := fDeltaNames.IndexOf(aDeltaName);
+  if (i>=0)
+    then raise Exception.Create('A delta called "'+aDeltaName+'" is already present')
+    else fDeltaNames.AddObject(aDeltaName, InfoObject)
+end;
+
+procedure TDADataStreamer.Assign(Source: TPersistent);
+var
+  lSource: TDADataStreamer;
+begin
+  inherited;
+  if Source is TDADataStreamer then begin
+    lSource := TDADataStreamer(Source);
+
+    BufferSize := lSource.BufferSize;
+    SendReducedDelta := lSource.SendReducedDelta;
+
+    OnBeforeFieldValueSerialization := lSource.OnBeforeFieldValueSerialization;
+    OnFinalized := lSource.OnFinalized;
+    OnInitialized := lSource.OnInitialized;
+    OnReadDataset := lSource.OnReadDataset;
+    OnReadDatasetProgress := lSource.OnReadDatasetProgress;
+    OnReadDelta := lSource.OnReadDelta;
+    OnReadDeltaProgress := lSource.OnReadDeltaProgress;
+    OnReadFieldValue := lSource.OnReadFieldValue;
+    OnWriteDataset := lSource.OnWriteDataset;
+    OnWriteDatasetProgress := lSource.OnWriteDatasetProgress;
+    OnWriteDelta := lSource.OnWriteDelta;
+    OnWriteDeltaProgress := lSource.OnWriteDeltaProgress;
+    OnWriteFieldValue := lSource.OnWriteFieldValue;
+    OnWriteFieldValueEx := lSource.OnWriteFieldValueEx;
+  end;
+end;
+
+function TDADataStreamer.GetDatasetInfoObjects(Index: integer): TObject;
+begin
+  result := fDatasetNames.Objects[Index]
+end;
+
+function TDADataStreamer.GetDeltaInfoObjects(Index: integer): TObject;
+begin
+  result := fDeltaNames.Objects[Index]
+end;
+
+function TDADataStreamer.GetDatasetIndex(const aName: string): integer;
+begin
+  result := FindDatasetIndex(aName);
+  if (result = -1) then raise Exception.Create('Unknown dataset ' + aName);
+end;
+
+function TDADataStreamer.GetDeltaIndex(const aName: string): integer;
+begin
+  result := FindDeltaIndex(aName);
+  if (result = -1) then raise Exception.Create('Unknown delta ' + aName);
+end;
+
+procedure TDADataStreamer.ReadDataset(const DatasetName: string;
+  const Destination: IDADataset; ApplySchema: boolean = FALSE; LoadRecords: boolean = TRUE; AppendMode: Boolean = False);
+var
+  editable: IDAEditableDataset;
+  i:integer;
+  lAppendMode: Boolean;
+begin
+  CheckCanRead;
+
+  if Assigned(fOnReadDataset) then fOnReadDataset(Self, DatasetName, Destination);
+
+  editable := Destination as IDAEditableDataset;
+
+  Destination.DisableControls;
+  try
+    editable.DisableEventHandlers;
+    try
+      if ApplySchema then begin
+        if Destination.Active then Destination.Close;
+        DoReadDataset(DatasetName, Destination, TRUE,False);
+      end;
+
+      if LoadRecords then begin
+        lAppendMode:=False;
+        if AppendMode then begin
+          // at least 1 field with PK should be present.
+          for I := 0 to Destination.Fields.Count - 1 do
+            if (Destination.Fields[i].InPrimaryKey) or (Destination.Fields[i].DataType in [datAutoInc, datLargeAutoInc]) then begin
+              lAppendMode := True;
+              Break;
+            end;
+        end;
+        DoReadDataset(DatasetName, Destination, FALSE, lAppendMode);
+      end;
+    finally
+      editable.EnableEventHandlers;
+    end;
+    if LoadRecords then editable.Dataset.Resync([]);
+  finally
+    Destination.EnableControls;
+  end;
+end;
+
+procedure TDADataStreamer.ReadDataset(Stream: TStream;
+  const Destination: IDADataset;
+  ApplySchema: boolean = FALSE;
+  DatasetName: string = '';
+  LoadRecords: boolean = TRUE;
+  ReadFromBeginning: boolean = TRUE;
+  AppendMode: Boolean = False);
+var
+  nme: string;
+begin
+  if ReadFromBeginning then
+    Initialize(Stream, aiReadFromBeginning)
+  else
+    Initialize(Stream, aiRead);
+
+  try
+    if (DatasetName = '') then
+      nme := DatasetNames[0]
+    else
+      nme := DatasetName;
+
+    ReadDataset(nme, Destination, ApplySchema, LoadRecords,AppendMode);
+  finally
+    Finalize;
+  end;
+end;
+
+procedure TDADataStreamer.ReadDelta(Stream: TStream;
+  const Destination: IDADelta;
+  DeltaName: string = '';
+  ReadFromBeginning: boolean = TRUE);
+var
+  nme: string;
+begin
+  if ReadFromBeginning then
+    Initialize(Stream, aiReadFromBeginning)
+  else
+    Initialize(Stream, aiRead);
+
+  try
+    if (DeltaName <> '') then
+      nme := DeltaName
+    else
+      nme := DeltaNames[0];
+    ReadDelta(nme, Destination);
+  finally
+    Finalize;
+  end;
+end;
+
+function TDADataStreamer.WriteDataset(Stream: TStream;
+  const Source: IDADataset; Options: TDAWriteOptions;
+  MaxRows: integer): integer;
+begin
+  Initialize(Stream, aiWrite);
+  try
+    result := WriteDataset(Source, Options, MaxRows);
+  finally
+    Finalize;
+  end;
+end;
+
+procedure TDADataStreamer.WriteDelta(Stream: TStream;
+  const Source: IDADataset);
+begin
+  Initialize(Stream, aiWrite);
+  try
+    WriteDelta(Source);
+  finally
+    Finalize;
+  end;
+end;
+
+procedure TDADataStreamer.WriteDelta(const Source: IDADelta);
+begin
+  DoWriteDelta(Source);
+end;
+
+procedure TDADataStreamer.ReadDelta(const Destination: IDADataset);
+var
+  deltaowner: IDADeltaOwner;
+  delta: IDADelta;
+begin
+  if not Supports(Destination, IDADeltaOwner, deltaowner)
+    then raise Exception.Create('Destination does not have a delta')
+    else delta := deltaowner.GetDelta;
+
+  ReadDelta(delta.LogicalName, delta);
+end;
+
+function TDADataStreamer.WriteDataset(Stream: TStream;
+  const Schema: IDASchema; const Connection: IDAConnection;
+  const DatasetName: string; const ParamNames: array of string;
+  const ParamValues: array of Variant; InitializeStream: boolean = TRUE;
+  FinalizeStream: boolean = TRUE; MaxRows: integer = AllRows): integer;
+var
+  ds: IDADataset;
+begin
+  if InitializeStream then Initialize(Stream, aiWrite);
+  try
+    ds := Schema.NewDataset(Connection, DatasetName, ParamNames, ParamValues, TRUE);
+    result := WriteDataset(ds, [woRows], MaxRows);
+  finally
+    if FinalizeStream then Finalize;
+  end;
+end;
+
+function TDADataStreamer.WriteDataset(Stream: TStream;
+  const Schema: IDASchema; const Connection: IDAConnection;
+  const DatasetName: string; InitializeStream, FinalizeStream: boolean;
+  MaxRows: integer): integer;
+begin
+  result := WriteDataset(Stream, Schema, Connection, DatasetName, [], [],
+    InitializeStream, FinalizeStream, MaxRows);
+end;
+
+procedure TDADataStreamer.SetAdapterInitialization(
+  const Value: TDAAdapterInitialization);
+begin
+  fAdapterInitialization := Value;
+end;
+
+function TDADataStreamer.ReadDelta(const DeltaName: string): IDADelta;
+begin
+  result := NewDelta(DeltaName);
+  ReadDelta(DeltaName, Result);
+end;
+
+function TDADataStreamer.FindDatasetIndex(const aName: string): integer;
+begin
+  result := fDatasetNames.IndexOf(aName);
+end;
+
+function TDADataStreamer.FindDeltaIndex(const aName: string): integer;
+begin
+  result := fDeltaNames.IndexOf(aName);
+end;
+
+procedure TDADataStreamer.DoReadDataset(const DatasetName: string;
+  const Destination: IDADataset; ApplySchema: boolean; AppendMode: Boolean);
+begin
+  if Destination.Active and ApplySchema then raise Exception.Create('Cannot apply a schema if the destination is active');
+end;
+
+procedure TDADataStreamer.SetBufferSize(const Value: cardinal);
+begin
+  FBufferSize := Value;
+end;
+
+function TDADataStreamer.HasReducedDelta: Boolean;
+begin
+  Result:=False;
+end;
+
+function TDADataStreamer.DoWriteDataset(const Source: IDADataset;
+  Options: TDAWriteOptions; MaxRows: integer): integer;
+begin
+  Result:= DoWriteDataset(Source, Options, MaxRows, []);
+end;
+
+function TDADataStreamer.WriteDataset(const Source: IDADataset;
+  Options: TDAWriteOptions; MaxRows: integer;
+  ADynFieldNames: array of string): integer;
+var
+  ldeltaOwner: IDADeltaOwner;
+begin
+  CheckCanWrite;
+  if Supports(Source, IDADeltaOwner, ldeltaOwner) then begin
+    try
+      ldeltaOwner.GetDelta.EndChangesInAllTables;
+    except
+    end;
+    ldeltaOwner := nil;
+  end;
+
+  if Assigned(fOnWriteDataset) then fOnWriteDataset(Self, Source.LogicalName, Source);
+
+  result := DoWriteDataset(Source, Options, MaxRows, ADynFieldNames); // Calls descendant's implementation
+end;
+
+function TDADataStreamer.BeginWriteDataset(const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend;
+begin
+  result := DoBeginWriteDataset(Source, Schema, Options, MaxRows, ADynFieldNames); // Calls descendant's implementation
+end;
+
+function TDADataStreamer.WriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aUnionSourceIndex: Integer = -1): Integer;
+begin
+  CheckCanWrite;
+  if Assigned(fOnWriteDataset) then fOnWriteDataset(Self, Source.LogicalName, Source);
+
+  result := DoWriteDatasetData(Source, aDataForAppend, aUnionSourceIndex); // Calls descendant's implementation
+end;
+
+function TDADataStreamer.EndWriteDataset(aDataForAppend: TDADataForAppend): Integer;
+begin
+  result := DoEndWriteDataset(aDataForAppend); // Calls descendant's implementation
+end;
+
+
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataTable.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataTable.pas
new file mode 100644
index 0000000..cd00d3a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataTable.pas	
@@ -0,0 +1,5524 @@
+unit uDADataTable;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}ActiveX,{$ENDIF}
+  SysUtils, Classes, Contnrs, DB,
+  uROClientIntf, uROClient, uROClasses, uRODynamicRequest,
+  uDAInterfaces, uDAClasses, uDADelta, uDAExpressionEvaluator,
+  uDAEngine, uDADataStreamer, uDAScriptingProvider, DataAbstract3_Intf;
+
+const
+  RecIDFieldName = 'RecID'; // Do not change!
+  AllChanges = [ctInsert, ctUpdate, ctDelete];
+
+type
+  TDADetailOption = (dtCascadeOpenClose,
+    dtCascadeApplyUpdates,
+    dtAutoFetch,
+    dtCascadeDelete,
+    dtCascadeUpdate,
+    dtDisableLogOfCascadeDeletes,
+    dtDisableLogOfCascadeUpdates,
+    dtIncludeInAllInOneFetch);
+  TDADetailOptions = set of TDADetailOption;
+
+  TDAMasterOption = (moCascadeOpenClose,
+    moCascadeApplyUpdates,
+    moCascadeDelete,
+    moCascadeUpdate,
+    moDisableLogOfCascadeDeletes,
+    moDisableLogOfCascadeUpdates,
+    moAllInOneFetch);
+
+  TDAMasterOptions = set of TDAMasterOption;
+
+const
+  DetailOptions_Default = [dtCascadeOpenClose,
+    dtCascadeApplyUpdates,
+    dtAutoFetch,
+    dtDisableLogOfCascadeDeletes,
+    dtIncludeInAllInOneFetch // Done to avoid breaking existing apps
+    ];
+
+  MasterOptions_Default = [moCascadeOpenClose,
+    moCascadeApplyUpdates,
+    moCascadeDelete];
+
+  DetailOptions_unused = [dtCascadeDelete,
+    dtCascadeUpdate,
+    dtDisableLogOfCascadeUpdates];
+
+  MasterOptions_unused = [moCascadeUpdate,
+    moDisableLogOfCascadeDeletes,
+    moDisableLogOfCascadeUpdates];
+type
+  //ToDo: remove and replace these three with TRO(Dynamic)Request*
+  TDARemoteRequest = TRODynamicRequest;
+  TDARemoteRequestParam = TRORequestParam;
+  TDARemoteRequestParams = TRORequestParamCollection;
+
+  { Other types }
+  float = double;
+  datetime = TDateTime;
+
+  TDADataTable = class;
+  TDatasetClass = class of TDataset;
+  TDADataTableRules = class;
+
+  TDADataTableNotifyEvent = procedure(DataTable: TDADataTable) of object;
+  TDADataTableFilterEvent = procedure(DataTable: TDADataTable; var Accept: Boolean) of object;
+  TDADataTableErrorEvent = procedure(DataTable: TDADataTable; Error: EDatabaseError; var Action: TDataAction) of object;
+  TDADataTableDynamicMethodEvent = procedure(DataTable: TDADataTable; const aMessage: IROMessage) of object;
+  TDADataTableRemoteRequestEvent = procedure(DataTable: TDADataTable; Request: TDARemoteRequest) of object;
+  TDADataTableDataChangeEvent = procedure(DataTable: TDADataTable; Field: TDAField) of object;
+  TDADataRequestStreamEvent = procedure(DataTable: TDADataTable; Stream: TStream) of object;
+
+  //TDADelta = class;
+
+  TDAApplyUpdatesError = procedure(DataTable: TDADataTable; const Delta: IDADelta; var Ignore: boolean) of object;
+  TDAAfterApplyUpdatesEvent =  procedure(DataTable: TDADataTable; const Delta: IDADelta) of object;
+  TDABeforeApplyUpdatesEvent =  procedure(DataTable: TDADataTable; const Delta: IDADelta) of object;
+
+  TDAStreamingOption = (soIgnoreStreamSchema, soDisableEventsWhileStreaming, soDisableFiltering);
+  TDAStreamingOptions = set of TDAStreamingOption;
+
+  TDARemoteUpdatesOption = (ruoOnPost);
+  TDARemoteUpdatesOptions = set of TDARemoteUpdatesOption;
+
+  TDACustomDataAdapter = class(TROComponent)
+  private
+  protected
+    { backward compatibility: to provide access to these in the legacy events }
+    function Get_GetSchemaCall: TDARemoteRequest; virtual;
+    function Get_GetDataCall: TDARemoteRequest; virtual;
+    function Get_UpdateDataCall: TDARemoteRequest; virtual;
+    function Get_GetScriptsCall: TDARemoteRequest; virtual;
+    function GetDataStreamer: TDADataStreamer; virtual;abstract;
+    procedure SetDataStreamer(const Value: TDADataStreamer);virtual;abstract;
+  public
+    function ApplyUpdates(aTables: array of TDADataTable; aRefetchAll: boolean = false): boolean; virtual; abstract;
+    procedure Fill(aTables: array of TDADataTable; aSaveCursor: boolean; aIncludeSchema: boolean; aAppendMode:Boolean = False); overload; virtual; abstract;
+    procedure FillSchema(aTables: array of TDADataTable; aPreserveLookupFields: boolean = false; areserveClientCalcFields : boolean = false); virtual; abstract;
+    procedure FillScripts(aTables: array of TDADataTable); virtual; abstract;
+    property DataStreamer: TDADataStreamer read GetDataStreamer write SetDataStreamer;
+  end;
+
+
+  { IDADataTableDataset }
+  IDADataTableDataset = interface
+    ['{3BADA4F8-BA32-411C-A7CD-DEBD10A4AF06}']
+    function GetDataTable: TDADataTable;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { IDARangeController }
+  IDARangeController = interface
+  ['{5A182854-B824-496F-80C2-6F8064003E13}']
+    procedure ApplyRange; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CancelRange; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRange(const StartValues, EndValues: array of const); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure EditRangeEnd; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure EditRangeStart; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRangeEnd; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRangeStart; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { IDANativeDatasetStreaming }
+  TDANativeDataFormat = (ndfBinary, ndfXML);
+  IDANativeDatasetStreaming = interface
+  ['{00B37B20-23DA-49A5-BB5D-B96E50C210F4}']
+    procedure NativeSaveToFile(const aFileName : string; DataFormat : TDANativeDataFormat = ndfBinary);
+    procedure NativeLoadFromFile(const aFileName : string);
+    procedure NativeSaveToStream(aStream : TStream; DataFormat : TDANativeDataFormat = ndfBinary);
+    procedure NativeLoadFromStream(aStream : TStream);
+  end;
+
+
+  { TDADataSource }
+  TDADataSource = class(TDABaseDataSource)
+  private
+    fDataTable: TDADataTable;
+
+    function GetDataset: TDataset;
+    procedure SetDataTable(const Value: TDADataTable);
+    procedure SetDataset(const Value: TDataset);
+    function GetOpening: boolean;
+    function GetActive: boolean;
+
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    property Dataset: TDataset read GetDataset write SetDataset; // hide base class property
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+
+    property Opening: boolean read GetOpening;
+    property Active: boolean read GetActive;
+  published
+    property DataTable: TDADataTable read fDataTable write SetDataTable;
+  end;
+
+  { TDADataTable }
+  TDASortDirection = (sdAscending, sdDescending);
+  TDAMasterMappingMode = (mmDataRequest, mmParams, mmWhere);
+
+  TDASortDirectionArray = array of TDASortDirection;
+
+  IDADataTableScriptingProvider = interface(IDAScriptingProvider)
+  ['{E16B7359-C733-4F09-96A8-10527CFABB6D}']
+    procedure RunDataTableScript(aDataTable: TDADataTable; const aScript: string; const aMethod: string; aLanguage:TROSEScriptLanguage);
+  end;
+
+  { IDAClonedCursorsSupport }
+  IDAClonedCursorsSupport = interface(IDASimpleClonedCursorsSupport)
+  ['{A43A70A2-7438-4C21-B2E2-A5212082EFD0}']
+    function GetCloneSource : TDADataTable; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CloneCursor(Source : TDADataTable); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetUsingClonedCursor : boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property CloneSource : TDADataTable read GetCloneSource;
+    property UsingClonedCursor : boolean read GetUsingClonedCursor;
+  end;
+
+  TAutoIncArray = array of Int64;
+  TDALocalUpdateDataTransactionEvent = procedure(Sender: TObject; var aUseDefaultTransactionLogic: Boolean) of object;
+
+  TDAMasterKeyID = PByteArray;
+
+  TDAMasterKeyList = class(TList)
+  private
+    fNeedSort: Boolean;
+    procedure SortList;
+  public
+    procedure Clear; override;
+    procedure Add(aKey: TDAMasterKeyID);
+    function IndexOf(aKey: TDAMasterKeyID): integer;
+  end;
+
+  {$WARN SYMBOL_DEPRECATED OFF}
+  TDADataTable = class(TScriptableComponent, {$IFDEF MSWINDOWS}ISupportErrorInfo,{$ENDIF} IDADataTable, IDASQLCommand, IDADataset, IDAEditableDataset, IDADeltaOwner, IDADataReader, IDADatasetEx,IDAClonedCursorsSupport)
+  private
+    fCurrRecId: integer;
+
+    fMasterLink: TMasterDataLink;
+
+    fDelta: IDADelta;
+    fWhere: TDAWhere;
+
+    fRecIDField: TIntegerField;
+
+    fStreamedActive,
+    fRefreshing,
+    fOpening: boolean;
+
+    fDataset: TDataset;
+
+    fFields: TDAFieldCollection;
+
+    fAfterEdit: TDADataTableNotifyEvent;
+    fAfterInsert: TDADataTableNotifyEvent;
+    fAfterDelete: TDADataTableNotifyEvent;
+    fBeforeScroll: TDADataTableNotifyEvent;
+    fAfterClose: TDADataTableNotifyEvent;
+    fBeforePost: TDADataTableNotifyEvent;
+    fAfterScroll: TDADataTableNotifyEvent;
+    fBeforeCancel: TDADataTableNotifyEvent;
+    fBeforeRefresh: TDADataTableNotifyEvent;
+    fBeforeOpen: TDADataTableNotifyEvent;
+    fAfterRefresh: TDADataTableNotifyEvent;
+    fAfterOpen: TDADataTableNotifyEvent;
+    fBeforeEdit: TDADataTableNotifyEvent;
+    fBeforeClose: TDADataTableNotifyEvent;
+    fBeforeDelete: TDADataTableNotifyEvent;
+    fAfterPost: TDADataTableNotifyEvent;
+    fOnCalcFields: TDADataTableNotifyEvent;
+    fOnNewRecord: TDADataTableNotifyEvent;
+    fAfterCancel: TDADataTableNotifyEvent;
+    fBeforeInsert: TDADataTableNotifyEvent;
+    fOnFilterRecord: TDADataTableFilterEvent;
+    fOnEditError: TDADataTableErrorEvent;
+    fOnDeleteError: TDADataTableErrorEvent;
+    fOnPostError: TDADataTableErrorEvent;
+    fBeforeFieldChange: TDADataTableDataChangeEvent;
+    fAfterFieldChange: TDADataTableDataChangeEvent;
+    fLogChanges: boolean;
+
+    fRemoteFetchEnabled: boolean;
+    fSortDirections: TDASortDirectionArray;
+    fSortFieldNames: TStringArray;
+    fParams: TDAParamCollection;
+
+    fFetchedMasters: TDAMasterKeyList;
+
+    fMasterParamsMappings,
+    fMasterRequestMappings: TStringList;
+    fDynamicWhere: TDAWhereBuilder;
+
+    fDetailOptions: TDADetailOptions;
+    fMasterOptions: TDAMasterOptions;
+    fLogicalName: string;
+    fClosing: boolean;
+    fFetching: boolean;
+    fStreaming: boolean;
+    fOnAfterSchemaCall: TDADataTableRemoteRequestEvent;
+    fOnAfterDataRequestCall: TDADataTableRemoteRequestEvent;
+    fOnBeforeSchemaCall: TDADataTableRemoteRequestEvent;
+    fOnBeforeDataRequestCall: TDADataTableRemoteRequestEvent;
+    fOnBeforeDataUpdateCall: TDADataTableRemoteRequestEvent;
+    fOnAfterDataUpdateCall: TDADataTableRemoteRequestEvent;
+    //fOnApplyUpdatesError: TDAApplyUpdatesError;
+    fOnReceiveDataStream: TDADataRequestStreamEvent;
+    fStreamingOptions: TDAStreamingOptions;
+    fRemoteUpdateOptions: TDARemoteUpdatesOptions;
+    fLocalSchema: TDASchema;
+    fLocalConnection: string;
+
+    fBusinessRulesID: string;
+    fBusinessRules: TDADataTableRules;
+    fFieldRules: TObjectList;
+
+    fAutoIncs : TAutoIncArray;
+    fOnAfterApplyUpdates: TDADataTableNotifyEvent;
+    fOnBeforeApplyUpdates: TDABeforeApplyUpdatesEvent;
+    fMasterMappingMode: TDAMasterMappingMode;
+    fMaxRecords: integer;
+    fOnBeforeMergeDelta: TDADataTableNotifyEvent;
+    fOnAfterMergeDelta: TDADataTableNotifyEvent;
+    fStoreActive: boolean;
+    fScriptCode: TStrings;
+    fOnBeforeScriptCall: TDADataTableRemoteRequestEvent;
+    fOnAfterScriptCall: TDADataTableRemoteRequestEvent;
+
+    fOpenTick: cardinal;
+    fAfterOpenIDataset: TDAAfterOpenDatasetEvent;
+    fBeforeOpenIDataset: TDABeforeOpenDatasetEvent;
+
+    fRemoteDataAdapter: TDACustomDataAdapter;
+    fLocalDataStreamer: TDADataStreamer;
+    fCustomAttributes: TStrings;
+    fExpressionEvaluator: TDAStdExpressionEvaluator;
+    fHasReducedDelta: Boolean;
+    fOnLocalUpdateDataBeginTransaction: TDALocalUpdateDataTransactionEvent;
+    fOnLocalUpdateDataRollBackTransaction: TDALocalUpdateDataTransactionEvent;
+    fOnLocalUpdateDataCommitTransaction: TDALocalUpdateDataTransactionEvent;
+    FLocConnection: IDAConnection;
+    fOldMasterKey: TDAMasterKeyID;
+    procedure SetLocalDataStreamer(const Value: TDADataStreamer);
+    procedure SetRemoteDataAdapter(const Value: TDACustomDataAdapter);
+
+    procedure SetLogChanges(const Value: boolean);
+    function GetDataset: TDataset; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFields: TDAFieldCollection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetFields(const Value: TDAFieldCollection);
+    function GetActive: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetActive(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLogChanges: boolean;
+    procedure SetParams(const Value: TDAParamCollection);
+    function GetEditing: boolean;
+    function GetMasterRequestMappings: TStrings;
+    procedure SetMasterRequestMappings(const Value: TStrings);
+
+    procedure TempSetRowRecIDValue(Sender: TDataset);
+
+    procedure SetLocalSchema(const Value: TDASchema);
+    procedure LoadFromLocalSchema(AppendMode: Boolean = False);
+    procedure LoadLocalSchema(aPreserveLookupFields: Boolean; aPreserveClientCalcFields: Boolean);
+
+    procedure SetBusinessRulesID(const Value: string);
+    function GetHasDelta: boolean;
+    function GetHasDeltaRecursive: boolean;
+    function GetRecNo: integer;
+    procedure SetRecNo(const Value: integer);
+
+    { published property accessors cannot be safecall, so we need wrappers: }
+    function GetFieldsProperty: TDAFieldCollection;
+    function GetActiveProperty: boolean;
+    procedure SetActiveProperty(const Value: boolean);
+    function GetParamsProperty: TDAParamCollection;
+    function GetMasterParamsMappings: TStrings;
+    procedure SetMasterParamsMappings(const Value: TStrings);
+
+    procedure PackAllInOneFetchInfoArray(aDataTable : TDADataTable; OutArray: TDADatasetRequestInfoArray);
+    procedure OnWhereChange(Sender: TObject);
+    procedure SetScriptCode(const Value: TStrings);
+    function GetDeltaInitialized: boolean;
+    procedure SetCustomAttributes(const Value: TStrings);
+    function Local_ApplyUpdates(RefetchAll: boolean = FALSE): boolean;
+    procedure InternalCancelUpdateChange(Change: TDADeltaChange);
+    procedure ExpessionEvaluatorGetValue(Sender: TDAExpressionEvaluator; const aIdentifier: string; out aValue: Variant);
+    procedure DoCascadeRemoteAllInOneFetch(aStreamer: TDADataStreamer);
+    function TriggerTransactionEvent(aEvent: TDALocalUpdateDataTransactionEvent): boolean;
+    procedure SetDetailOptions(const Value: TDADetailOptions);
+    procedure SetMasterOptions(const Value: TDAMasterOptions);
+    function IsNeedToFetch(AKey: TDAMasterKeyID):Boolean;
+    function GenerateKeyfromMasterRecID: TDAMasterKeyID;
+    procedure AddMasterKey(aKey: TDAMasterKeyID);
+    procedure ReplaceMasterKey(aOldKey, aNewKey: TDAMasterKeyID);
+    procedure SetOldMasterKey(aKey: TDAMasterKeyID);
+  protected
+    function intDATypeToVCLType(aDAType: TDADataType): TFieldType;virtual;
+    function GetRangeState: Boolean; virtual;
+    function CreateAutoIncArray: TAutoIncArray;
+    function GetAutoIncs: TAutoIncArray;
+    procedure SetAutoIncs(const Value: TAutoIncArray);
+
+    property AutoIncs: TAutoIncArray read GetAutoIncs write SetAutoIncs;
+
+    function GetCurrRecId: integer;
+    procedure SetCurrRecId(const Value: integer);
+
+    procedure Loaded; override;
+
+    // To override
+    function GetMasterDataLink: TMasterDataLink;virtual; abstract;
+    function GetDatasetClass: TDatasetClass; virtual; abstract;
+    procedure CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection); virtual;
+    procedure DoRefresh(aDataset: TDataset);
+    procedure DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection); virtual; abstract;
+
+    procedure SetMasterSource(const Value: TDADataSource); virtual;
+    function GetMasterSource: TDADataSource; virtual; abstract;
+    procedure SetDetailsFields(const Value: string); virtual; abstract;
+    procedure SetMasterFields(const Value: string); virtual;
+    function GetDetailFields: string; virtual; abstract;
+    function GetMasterFields: string; virtual; abstract;
+
+    function GetFilter: string; virtual; abstract;
+    function GetFiltered: boolean; virtual; abstract;
+    procedure SetFilter(const Value: string); virtual; abstract;
+    procedure SetFiltered(const Value: boolean); virtual; abstract;
+
+    function GetReadOnly: boolean; virtual;
+    procedure SetReadOnly(const Value: boolean); virtual;
+
+    procedure AttachEventHooks(aDataset: TDataset); virtual;
+    procedure DetachEventHooks(aDataset: TDataset); virtual;
+
+    // Internal
+    procedure DoBeforeOpenDataset; virtual;
+    procedure DoBeforeCloseDataset; virtual;
+    procedure DoAfterOpenDataset; virtual;
+    procedure DoAfterCloseDataset; virtual;
+    procedure DoOpen(IgnoreAutoFetchSettings: Boolean = False); virtual;
+
+    // Internal TDataset event handler hooks
+    procedure InternalAfterInsert(Sender: TDataset); dynamic;
+    procedure InternalAfterEdit(Sender: TDataset); dynamic;
+    procedure InternalBeforePost(Sender: TDataset); dynamic;
+    procedure InternalBeforeCancel(Sender: TDataset); dynamic;
+    procedure InternalAfterDelete(Sender: TDataset); dynamic;
+    procedure InternalBeforeScroll(Sender: TDataset); dynamic;
+    procedure InternalAfterScroll(Sender: TDataset); dynamic;
+    procedure InternalBeforeRefresh(Sender: TDataset); dynamic;
+    procedure InternalAfterRefresh(Sender: TDataset); dynamic;
+    procedure InternalOnCalcFields(Sender: TDataset); dynamic;
+    procedure InternalOnNewRecord(Sender: TDataset); dynamic;
+    procedure InternalAfterCancel(Sender: TDataset); dynamic;
+    procedure InternalBeforeInsert(Sender: TDataset); dynamic;
+    procedure InternalBeforeDelete(Sender: TDataset); dynamic;
+    procedure InternalBeforeEdit(Sender: TDataset); dynamic;
+    procedure InternalAfterPost(Sender: TDataset); dynamic;
+    procedure InternalBeforeFieldUpdate(Sender: TDACustomField);
+    procedure InternalAfterFieldUpdate(Sender: TDACustomField);
+
+    procedure InternalOnFilterRecord(Dataset: TDataset; var Accept: Boolean); dynamic;
+
+    procedure InternalOnDeleteError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); dynamic;
+    procedure InternalOnEditError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); dynamic;
+    procedure InternalOnPostError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); dynamic;
+
+    // IDASQLCommand
+    function GetParams: TDAParamCollection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RefreshParams; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetText: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetText(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // IDADeltaOwner
+    function GetDelta: IDADelta; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // IDADataReader
+    function IDADataReader.First = DataReaderFirst;
+    function IDADataReader.Next = DataReaderNext;
+    function DataReaderFirst: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DataReaderNext: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetFieldNames(Index: integer): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldIndexes(const aName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsBoolean(Index: integer): boolean; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsCurrency(Index: integer): currency; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsDateTime(Index: integer): TDateTime; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsFloat(Index: integer): double; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsInteger(Index: integer): integer; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsString(Index: integer): string; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsVariant(Index: integer): variant; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsBoolean(const FieldName: string): boolean; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsCurrency(const FieldName: string): currency; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsDateTime(const FieldName: string): TDateTime; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsFloat(const FieldName: string): double; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsInteger(const FieldName: string): integer; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsString(const FieldName: string): string; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsVariant(const FieldName: string): variant; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // IDADataset
+    function GetIsEmpty: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetRecordCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetBOF: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetEOF: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSQL: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQL(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function SQLContainsDynamicWhere: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldValues(Index: integer): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetNames(Index: integer): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetWhere: TDAWhere; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDynamicWhere: TDAWhereBuilder; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetDynamicWhere(const Value: TDAWhereBuilder); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetPrepared: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetPrepared(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetState: TDataSetState; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLogicalName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetLogicalName(aName : string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    procedure OnMasterChange(Sender: TObject); virtual;
+    procedure OnMasterDisable(Sender: TObject); virtual;
+
+    function GetOnAfterOpen: TDAAfterOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeOpen: TDABeforeOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterOpen(const Value: TDAAfterOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeOpen(const Value: TDABeforeOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetOnAfterExecute: TDAAfterExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeExecute: TDABeforeExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterExecute(const Value: TDAAfterExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeExecute(const Value: TDABeforeExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnExecuteError: TDAExecuteCommandErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnExecuteError(const Value: TDAExecuteCommandErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnOpenError: TDAOpenDatasetErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnOpenError(const Value: TDAOpenDatasetErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure NotifyFieldsClear;
+
+    // IInterface
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override;
+
+    property MasterLink: TMasterDataLink read fMasterLink;
+    function InternalApplyUpdates(RefetchAll: boolean = FALSE): boolean;
+    {$IFDEF MSWINDOWS}
+  protected
+    function InterfaceSupportsErrorInfo(const iid: TGUID): HResult; stdcall;
+
+  public
+    function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; override;
+    {$ENDIF}
+
+  // begin IDAClonedCursorsSupport
+  protected
+    fOldValues : array of Variant;
+    fCloneSource : TDADataTable;
+    function GetSimpleCloneSource : TObject;
+    procedure CloneCursor(Source : TDADataTable); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+    function GetUsingClonedCursor : boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetCloneSource : TDADataTable; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    property CloneSource : TDADataTable read GetCloneSource;
+    property UsingClonedCursor : boolean read GetUsingClonedCursor;
+  // end IDAClonedCursorsSupport
+
+  public { for Delta }
+    property RecIDField : TIntegerField read fRecIDField write fRecIDField;
+    function GetRowRecIDValue: integer;
+
+
+    procedure CallScript(const aEvent: string);
+
+    procedure InitializeDataTable;
+    procedure DoCascadeOperation(aStreamer: TDADataStreamer; aOption: TDAMasterOption);
+    procedure WriteDeltaToStream(aStreamer: TDADataStreamer);
+    procedure ReadDeltaFromStream(aStreamer: TDADataStreamer; aFailedDeltas:TList);overload;
+    procedure ReadDeltaFromStream(aStreamer: TDADataStreamer); overload;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure EnableConstraints; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    procedure DisableConstraints; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+
+    procedure LoadFromRemoteSource(BookmarkPosition: boolean = FALSE); virtual;
+    procedure FetchMastersDetails(aMasterTable : TDADataTable = NIL; aRequestMappings : TStrings = NIL; IgnoreAutoFetchSettings : Boolean = False); dynamic;
+    procedure LoadSchema(PreserveLookupFields : boolean = FALSE; PreserveClientCalcFields : boolean = FALSE);
+    procedure LoadScript(aDatasetName : string = '');
+
+    function ApplyUpdates(RefetchAll: boolean = FALSE): boolean; dynamic;
+    procedure CancelUpdates(IncludeDetails : boolean = TRUE);
+    procedure CancelUpdateChange(Change: TDADeltaChange;IncludeDetails : boolean = TRUE);
+
+    procedure Sort(const FieldNames: array of string; const Directions: array of TDASortDirection);
+    procedure UnSort;
+
+    procedure ClearFields;
+    procedure ClearRows(const aClearDelta: Boolean = False);
+
+    procedure CloneSelectedRecord(Source: TDADataTable; DoPost: boolean = TRUE); overload;
+    procedure CloneSelectedRecord(const Source: IDADataset; DoPost: boolean = TRUE); overload;
+
+    procedure SaveToStream(aStream: TStream);
+    procedure LoadFromStream(aStream: TStream);
+    procedure SaveToFile(const aFileName: string);
+    procedure LoadFromFile(const aFileName: string);
+
+    procedure MergeDelta; virtual;
+
+    // Master detail
+    function GetDetailDataTables: TList;
+    function GetDetailTablesforApplyUpdate(aRecursive: boolean = True): TList;
+    procedure GetDetailTablesforAllinOneFetch(aRemote, aLocal:TList; aRecursive: boolean);
+    function GetMasterDataTable : TDADataTable;
+
+    // Methods
+    procedure Open; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Close; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure EnableControls; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableControls; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function  ControlsDisabled: Boolean;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Next; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Edit; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Insert; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Post; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Cancel; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Append; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Delete; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Prior; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure First; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Last; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Refresh; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function FieldByName(const aName: string): TDAField; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function FindField(const aName: string): TDAField; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function ParamByName(const aName: string): TDAParam; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetBookmark: TBookmark; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GotoBookmark(Bookmark: TBookmark); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure FreeBookmark(Bookmark: TBookmark); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function BookmarkValid(Bookmark: TBookmark): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure EnableEventHandlers; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableEventHandlers; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure InternalSetFetching(aFetching: boolean);
+
+    procedure AddRecord(const  FieldNames : array of string; const FieldValues : array of Variant); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetCurrentRecIdValue: integer;
+    procedure SetCurrentRecIdValue(Value: integer);
+
+    // Properties
+    property CurrRecId: integer read GetCurrRecId write SetCurrRecId;
+    property RecIDValue: integer read GetRowRecIDValue;
+    property Delta: IDADelta read GetDelta write fDelta;
+    property RecNo : integer read GetRecNo write SetRecNo;
+
+    property BOF: boolean read GetBOF;
+    property EOF: boolean read GetEOF;
+    property RecordCount: integer read GetRecordCount;
+    property FieldCount: integer read GetFieldCount;
+    property FieldValues[Index: integer]: Variant read GetFieldValues;
+    property Names[Index: integer]: string read GetNames;
+
+    property SortFieldNames: TStringArray read fSortFieldNames;
+    property SortDirections: TDASortDirectionArray read fSortDirections;
+
+    property Opening: boolean read fOpening;
+    property Closing: boolean read fClosing;
+    property Editing: boolean read GetEditing;
+    property Fetching: boolean read fFetching;
+
+    property State: TDataSetState read GetState;
+    property Dataset: TDataset read GetDataset;
+
+    property IsEmpty : boolean read GetIsEmpty;
+
+    property BusinessEventsObj: TDADataTableRules read fBusinessRules;
+
+    property HasDelta: boolean read GetHasDelta;
+    property HasDeltaRecursive: boolean read GetHasDeltaRecursive;
+    property DeltaInitialized: boolean read GetDeltaInitialized;
+
+    property Where : TDAWhere read GetWhere;
+    property DynamicWhere: TDAWhereBuilder read GetDynamicWhere write SetDynamicWhere;
+    procedure CheckProperties(ACheckRemoteFetching: Boolean=False; ACheckOnlyForLocalSchema: Boolean = False); virtual;
+    property HasReducedDelta: boolean read fHasReducedDelta;
+    property LocalDAConnection: IDAConnection read FLocConnection;
+    procedure RefreshFromServer;
+    // checks if the current record isn't locked by other table
+    function IsCanEditCurrentRow: Boolean;
+  published
+    property Active: boolean read GetActiveProperty write SetActiveProperty stored fStoreActive default false;
+    property StoreActive: boolean read fStoreActive write fStoreActive default false;
+
+    property RemoteUpdatesOptions: TDARemoteUpdatesOptions read fRemoteUpdateOptions write fRemoteUpdateOptions;
+
+    property MaxRecords : integer read fMaxRecords write fMaxRecords default -1;
+
+    property Fields: TDAFieldCollection read GetFieldsProperty write SetFields;
+    property Params: TDAParamCollection read GetParamsProperty write SetParams;
+
+    property MasterMappingMode : TDAMasterMappingMode read fMasterMappingMode write fMasterMappingMode default mmParams;
+    property MasterParamsMappings : TStrings read GetMasterParamsMappings write SetMasterParamsMappings;
+
+    property LogChanges: boolean read GetLogChanges write SetLogChanges default true;
+    property StreamingOptions: TDAStreamingOptions read fStreamingOptions write fStreamingOptions;
+    property RemoteFetchEnabled: boolean read fRemoteFetchEnabled write fRemoteFetchEnabled default true;
+
+    property ScriptCode : TStrings read fScriptCode write SetScriptCode;
+    property CustomAttributes : TStrings read fCustomAttributes write SetCustomAttributes;
+
+    property RemoteDataAdapter: TDACustomDataAdapter read fRemoteDataAdapter write SetRemoteDataAdapter;
+
+    property BeforeOpen: TDADataTableNotifyEvent read fBeforeOpen write fBeforeOpen;
+    property AfterOpen: TDADataTableNotifyEvent read fAfterOpen write fAfterOpen;
+    property BeforeClose: TDADataTableNotifyEvent read fBeforeClose write fBeforeClose;
+    property AfterClose: TDADataTableNotifyEvent read fAfterClose write fAfterClose;
+    property BeforeInsert: TDADataTableNotifyEvent read fBeforeInsert write fBeforeInsert;
+    property AfterInsert: TDADataTableNotifyEvent read fAfterInsert write fAfterInsert;
+    property BeforeEdit: TDADataTableNotifyEvent read fBeforeEdit write fBeforeEdit;
+    property AfterEdit: TDADataTableNotifyEvent read fAfterEdit write fAfterEdit;
+    property BeforePost: TDADataTableNotifyEvent read fBeforePost write fBeforePost;
+    property AfterPost: TDADataTableNotifyEvent read fAfterPost write fAfterPost;
+    property BeforeCancel: TDADataTableNotifyEvent read fBeforeCancel write fBeforeCancel;
+    property AfterCancel: TDADataTableNotifyEvent read fAfterCancel write fAfterCancel;
+    property BeforeDelete: TDADataTableNotifyEvent read fBeforeDelete write fBeforeDelete;
+    property AfterDelete: TDADataTableNotifyEvent read fAfterDelete write fAfterDelete;
+    property BeforeScroll: TDADataTableNotifyEvent read fBeforeScroll write fBeforeScroll;
+    property AfterScroll: TDADataTableNotifyEvent read fAfterScroll write fAfterScroll;
+    property BeforeRefresh: TDADataTableNotifyEvent read fBeforeRefresh write fBeforeRefresh;
+    property AfterRefresh: TDADataTableNotifyEvent read fAfterRefresh write fAfterRefresh;
+    property OnCalcFields: TDADataTableNotifyEvent read fOnCalcFields write fOnCalcFields;
+    property OnNewRecord: TDADataTableNotifyEvent read fOnNewRecord write fOnNewRecord;
+
+    property OnFilterRecord: TDADataTableFilterEvent read fOnFilterRecord write fOnFilterRecord;
+
+    property ReadOnly : boolean read GetReadOnly write SetReadOnly default False;
+
+    property OnDeleteError: TDADataTableErrorEvent read fOnDeleteError write fOnDeleteError;
+    property OnEditError: TDADataTableErrorEvent read fOnEditError write fOnEditError;
+    property OnPostError: TDADataTableErrorEvent read fOnPostError write fOnPostError;
+
+    property LocalSchema: TDASchema read fLocalSchema write SetLocalSchema;
+    property LocalDataStreamer: TDADataStreamer read fLocalDataStreamer write SetLocalDataStreamer;
+    property LocalConnection: string read fLocalConnection write fLocalConnection;
+
+    property MasterSource: TDADataSource read GetMasterSource write SetMasterSource;
+    property MasterFields: string read GetMasterFields write SetMasterFields;
+    property DetailFields: string read GetDetailFields write SetDetailsFields;
+    property MasterRequestMappings: TStrings read GetMasterRequestMappings write SetMasterRequestMappings;
+
+    property DetailOptions: TDADetailOptions read fDetailOptions write SetDetailOptions default DetailOptions_Default;
+    property MasterOptions: TDAMasterOptions read fMasterOptions write SetMasterOptions default MasterOptions_Default;
+
+    property Filtered: boolean read GetFiltered write SetFiltered default false;
+    property Filter: string read GetFilter write SetFilter;
+
+    property LogicalName: string read fLogicalName write fLogicalName;
+
+    //property OnApplyUpdatesError: TDAApplyUpdatesError read fOnApplyUpdatesError write fOnApplyUpdatesError;
+
+    property OnAfterApplyUpdates : TDADataTableNotifyEvent read fOnAfterApplyUpdates write fOnAfterApplyUpdates;
+    property OnBeforeApplyUpdates : TDABeforeApplyUpdatesEvent read fOnBeforeApplyUpdates write fOnBeforeApplyUpdates;
+    property OnBeforeMergeDelta : TDADataTableNotifyEvent read fOnBeforeMergeDelta write fOnBeforeMergeDelta;
+    property OnAfterMergeDelta : TDADataTableNotifyEvent read fOnAfterMergeDelta write fOnAfterMergeDelta;
+
+    property OnBeforeDataRequestCall: TDADataTableRemoteRequestEvent read fOnBeforeDataRequestCall write fOnBeforeDataRequestCall;
+    property OnAfterDataRequestCall: TDADataTableRemoteRequestEvent read fOnAfterDataRequestCall write fOnAfterDataRequestCall;
+    property OnBeforeDataUpdateCall: TDADataTableRemoteRequestEvent read fOnBeforeDataUpdateCall write fOnBeforeDataUpdateCall;
+    property OnAfterDataUpdateCall: TDADataTableRemoteRequestEvent read fOnAfterDataUpdateCall write fOnAfterDataUpdateCall;
+    property OnBeforeSchemaCall: TDADataTableRemoteRequestEvent read fOnBeforeSchemaCall write fOnBeforeSchemaCall;
+    property OnAfterSchemaCall: TDADataTableRemoteRequestEvent read fOnAfterSchemaCall write fOnAfterSchemaCall;
+    property OnBeforeScriptCall: TDADataTableRemoteRequestEvent read fOnBeforeScriptCall write fOnBeforeScriptCall;
+    property OnAfterScriptCall: TDADataTableRemoteRequestEvent read fOnAfterScriptCall write fOnAfterScriptCall;
+
+    property OnReceiveDataStream: TDADataRequestStreamEvent read fOnReceiveDataStream write fOnReceiveDataStream;
+
+    property OnBeforeFieldChange: TDADataTableDataChangeEvent read fBeforeFieldChange write fBeforeFieldChange;
+    property OnAfterFieldChange: TDADataTableDataChangeEvent read fAfterFieldChange write fAfterFieldChange;
+    property BusinessRulesID: string read fBusinessRulesID write SetBusinessRulesID;
+    property OnLocalUpdateDataBeginTransaction    : TDALocalUpdateDataTransactionEvent read fOnLocalUpdateDataBeginTransaction write fOnLocalUpdateDataBeginTransaction;
+    property OnLocalUpdateDataCommitTransaction   : TDALocalUpdateDataTransactionEvent read fOnLocalUpdateDataCommitTransaction write fOnLocalUpdateDataCommitTransaction;
+    property OnLocalUpdateDataRollBackTransaction : TDALocalUpdateDataTransactionEvent read fOnLocalUpdateDataRollBackTransaction write fOnLocalUpdateDataRollBackTransaction;
+  end;
+
+  TDADataTableClass = class of TDADataTable;
+    {$WARN SYMBOL_DEPRECATED ON}
+
+  { Exceptions }
+  EDABizValidationException = class(EROException);
+
+  { TDABusinessRules }
+  TDABusinessRules = class(TDAEngineBaseObject)
+  private
+  protected
+    function _AddRef: Integer; override;
+    function _Release: Integer; override;
+
+  public
+    constructor Create; virtual;
+    destructor Destroy; override;
+
+  end;
+
+  IDAStronglyTypedDataTable = interface
+  ['{4D4063AA-DFD0-4B4D-8CC2-FCE3BE1D2F87}']
+    procedure Open;
+    procedure Close;
+
+    function GetActive: boolean;
+    procedure SetActive(const Value: boolean);
+
+    property Active: boolean read GetActive write SetActive;
+
+    procedure Append;
+    procedure Cancel;
+    procedure Delete;
+    procedure Edit;
+    procedure First;
+    procedure Insert;
+    procedure Last;
+    procedure Next;
+    procedure Post;
+    procedure Prior;
+
+    function Locate(const aKeyFields: string; const aKeyValues: Variant; aOptions: TLocateOptions = []): Boolean;
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant;
+
+    function GetDataTable : TDADataTable;
+
+    function GetState : TDatasetState;
+    function GetIsEmpty : boolean;
+    function GetRecNo : integer;
+    procedure SetRecNo(Value : integer);
+    function GetMasterOptions : TDAMasterOptions;
+    procedure SetMasterOptions(Value : TDAMasterOptions);
+    function GetDetailOptions : TDADetailOptions;
+    procedure SetDetailOptions(Value : TDADetailOptions);
+
+    function IsFieldNull(const FieldIndexOrName : Variant) : boolean;
+    procedure ClearField(const FieldIndexOrName : Variant);
+
+    function GetBOF: boolean;
+    function GetEOF: boolean;
+    function GetRecordCount: integer;
+
+    property BOF: boolean read GetBOF;
+    property EOF: boolean read GetEOF;
+    property RecordCount: integer read GetRecordCount;
+    property RecNo : integer read GetRecNo write SetRecNo;
+
+    property MasterOptions : TDAMasterOptions read GetMasterOptions write SetMasterOptions;
+    property DetailOptions : TDADetailOptions read GetDetailOptions write SetDetailOptions;
+
+    property IsEmpty : boolean read GetIsEmpty;
+    property State : TDatasetState read GetState;
+    property DataTable : TDADataTable read GetDataTable;
+  end;
+
+  { TDAFieldRules }
+  TDAFieldRules = class(TDABusinessRules)
+  private
+    fField : TDAField;
+    fDataTable : TDADataTable;
+
+  protected
+    // Misc
+    procedure Attach(aDataTable: TDADataTable); virtual;
+    procedure Detach(aDataTable: TDADataTable); virtual;
+
+    // Event handler hooks
+    procedure OnValidate(Sender: TDACustomField); virtual;
+    procedure OnChange(Sender: TDACustomField); virtual;
+
+    property DataTable : TDADataTable read fDataTable;
+
+  public
+    constructor Create(aField : TDAField; aDataTable : TDADataTable); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  TDAFieldRulesClass = class of TDAFieldRules;
+
+  { TDADataTableRules }
+  TDADataTableRules = class(TDABusinessRules, IDAStronglyTypedDataTable, IDARangeController)
+  private
+    fDataTable: TDADataTable;
+    fDetails : TStringList;
+
+    function GetDetails(Index: integer): TDADataTable;
+    function GetDetailsCount: integer;
+
+  protected
+    // Misc
+    function GetDataTable: TDADataTable;
+    procedure Attach(aDataTable: TDADataTable); virtual;
+    procedure Detach(aDataTable: TDADataTable); virtual;
+
+    procedure RefreshDetails;
+
+    function FindDetail(const aLogicalName : string) : TDADataTable;
+    function DetailByName(const aLogicalName : string) : TDADataTable;
+
+    // Business events
+    procedure BeforeOpen(Sender: TDADataTable); virtual;
+    procedure AfterOpen(Sender: TDADataTable); virtual;
+    procedure BeforeClose(Sender: TDADataTable); virtual;
+    procedure AfterClose(Sender: TDADataTable); virtual;
+    procedure BeforeInsert(Sender: TDADataTable); virtual;
+    procedure AfterInsert(Sender: TDADataTable); virtual;
+    procedure BeforeEdit(Sender: TDADataTable); virtual;
+    procedure AfterEdit(Sender: TDADataTable); virtual;
+    procedure BeforePost(Sender: TDADataTable); virtual;
+    procedure AfterPost(Sender: TDADataTable); virtual;
+    procedure BeforeCancel(Sender: TDADataTable); virtual;
+    procedure AfterCancel(Sender: TDADataTable); virtual;
+    procedure BeforeDelete(Sender: TDADataTable); virtual;
+    procedure AfterDelete(Sender: TDADataTable); virtual;
+    procedure BeforeScroll(Sender: TDADataTable); virtual;
+    procedure AfterScroll(Sender: TDADataTable); virtual;
+    procedure BeforeRefresh(Sender: TDADataTable); virtual;
+    procedure AfterRefresh(Sender: TDADataTable); virtual;
+    procedure OnCalcFields(Sender: TDADataTable); virtual;
+    procedure OnNewRecord(Sender: TDADataTable); virtual;
+
+    procedure OnDeleteError(DataTable: TDADataTable; Error: EDatabaseError; var Action: TDataAction); virtual;
+    procedure OnEditError(DataTable: TDADataTable; Error: EDatabaseError; var Action: TDataAction); virtual;
+    procedure OnPostError(DataTable: TDADataTable; Error: EDatabaseError; var Action: TDataAction); virtual;
+    procedure OnFilterRecord(DataTable: TDADataTable; var Accept : boolean); virtual;
+
+    procedure OnAfterSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual;
+    procedure OnAfterDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual;
+    procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual;
+    procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual;
+    procedure OnBeforeDataUpdateCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual;
+    procedure OnAfterDataUpdateCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual;
+    procedure OnBeforeScriptCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual;
+    procedure OnAfterScriptCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual;
+
+    procedure OnAfterApplyUpdates(DataTable: TDADataTable); virtual;
+    procedure OnBeforeMergeDelta(DataTable: TDADataTable); virtual;
+    procedure OnAfterMergeDelta(DataTable: TDADataTable); virtual;
+
+    procedure OnReceiveDataStream(DataTable: TDADataTable; Stream: TStream); virtual;
+    procedure OnBeforeApplyUpdates(DataTable: TDADataTable; const Delta: IDADelta); virtual;
+
+    procedure Open; virtual;
+    procedure Close; virtual;
+
+    function GetActive: boolean;
+    procedure SetActive(const Value: boolean);
+
+    property Active: boolean read GetActive write SetActive;
+
+    procedure Append; virtual;
+    procedure Cancel; virtual;
+    procedure Delete; virtual;
+    procedure Edit; virtual;
+    procedure First; virtual;
+    procedure Insert; virtual;
+    procedure Last; virtual;
+    procedure Next; virtual;
+    procedure Post; virtual;
+    procedure Prior; virtual;
+
+    function GetBOF: Boolean; virtual;
+    function GetEOF: Boolean; virtual;
+    function GetRecordCount: Integer; virtual;
+    function Locate(const aKeyFields: String; const aKeyValues: Variant; aOptions: TLocateOptions = []): Boolean; virtual;
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant;
+
+    function GetMasterOptions : TDAMasterOptions;
+    procedure SetMasterOptions(Value : TDAMasterOptions);
+    function GetDetailOptions : TDADetailOptions;
+    procedure SetDetailOptions(Value : TDADetailOptions);
+    function GetRecNo : integer;
+    procedure SetRecNo(Value : integer);
+    function GetIsEmpty: boolean;
+    function GetState: TDatasetState;
+
+    function IsFieldNull(const FieldIndexOrName : Variant) : boolean;
+    procedure ClearField(const FieldIndexOrName : Variant);
+
+    property DataTable: TDADataTable read GetDataTable;
+    property Details[Index : integer] : TDADataTable read GetDetails;
+    property DetailCount : integer read GetDetailsCount;
+    property State : TDatasetState read GetState;
+    property IsEmpty : boolean read GetIsEmpty;
+
+    { IDARangeController }
+    procedure ApplyRange; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CancelRange; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRange(const StartValues, EndValues: array of const); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure EditRangeEnd; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure EditRangeStart; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRangeEnd; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRangeStart; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+    constructor Create(aDataTable: TDADataTable); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  TDADataTableRulesClass = class of TDADataTableRules;
+
+  { TDADataTableList }
+  TDADataTableList = class(TList)
+  private
+    function GetItems(Index: integer): TDADataTable;
+    function GetPendingChangeCount: integer;
+  protected
+  public
+    constructor Create(aOwnerComponent : TComponent);
+
+    function ScanAndAdd(aOwnerComponent : TComponent) : integer;
+
+    function Add(aDataTable : TDADataTable) : integer;
+    procedure Remove(aDataTable : TDADataTable);
+
+    property Items[Index : integer] : TDADataTable read GetItems; default;
+    property PendingChangeCount : integer read GetPendingChangeCount;
+  end deprecated;
+
+// Registration routines
+procedure RegisterDataTableRules(const anID: string; const aDataTableRulesClass: TDADataTableRulesClass);
+function FindDataTableRules(const anID: string; out aDataTableRulesClass: TDADataTableRulesClass): boolean;
+
+procedure RegisterFieldRules(const anID: string; const aFieldRulesClass: TDAFieldRulesClass);
+function FindFieldRules(const anID: string; out aFieldRulesClass: TDAFieldRulesClass): boolean;
+
+// Helper functions
+function NewDelta(aDataTable: TDADataTable): IDADelta; overload;
+
+function DatatableFromStream(aStream : TStream;
+                             aDataTableClass : TDADataTableClass;
+                             anAdapter : TDADataAdapter;
+                             const aDatasetName : string = '') : TDADataTable;
+
+implementation
+
+uses
+  {$IFDEF DESIGNTIME}
+  Dialogs,
+  {$ENDIF DESIGNTIME}
+  Variants,TypInfo,
+  uDABusinessProcessor, uDAWhere, uDARegExpr, uDARes;
+
+var
+  _bizfields,
+  _bizdatatables: TStringList;
+
+type
+  TDataSetHack = class(TDataSet);
+
+procedure FreeMasterKey(aKey: TDAMasterKeyID);
+begin
+  if aKey <> nil then FreeMem(aKey);
+end;
+
+function NewDelta(aDataTable: TDADataTable): IDADelta;
+begin
+  result := TDADelta.Create(aDataTable);
+end;
+
+procedure RegisterDataTableRules(const anID: string; const aDataTableRulesClass: TDADataTableRulesClass);
+var
+  idx: integer;
+begin
+  idx := _bizdatatables.IndexOf(anID);
+
+  if (idx >= 0) then
+    _bizdatatables.Objects[idx] := TObject(aDataTableRulesClass)
+  else
+    _bizdatatables.AddObject(anID, TObject(aDataTableRulesClass));
+end;
+
+function FindDataTableRules(const anID: string; out aDataTableRulesClass: TDADataTableRulesClass): boolean;
+var
+  idx: integer;
+begin
+  result := FALSE;
+  idx := _bizdatatables.IndexOf(anID);
+  if (idx >= 0) then begin
+    aDataTableRulesClass := TDADataTableRulesClass(_bizdatatables.Objects[idx]);
+    result := TRUE;
+  end
+  else
+    aDataTableRulesClass := nil;
+end;
+
+procedure RegisterFieldRules(const anID: string; const aFieldRulesClass: TDAFieldRulesClass);
+var
+  idx: integer;
+begin
+  idx := _bizfields.IndexOf(anID);
+
+  if (idx >= 0) then
+    _bizfields.Objects[idx] := TObject(aFieldRulesClass)
+  else
+    _bizfields.AddObject(anID, TObject(aFieldRulesClass));
+end;
+
+function FindFieldRules(const anID: string; out aFieldRulesClass: TDAFieldRulesClass): boolean;
+var
+  idx: integer;
+begin
+  result := FALSE;
+  idx := _bizfields.IndexOf(anID);
+  if (idx >= 0) then begin
+    aFieldRulesClass := TDAFieldRulesClass(_bizfields.Objects[idx]);
+    result := TRUE;
+  end
+  else
+    aFieldRulesClass := nil;
+end;
+
+function DatatableFromStream(aStream : TStream;
+                             aDataTableClass : TDADataTableClass;
+                             anAdapter : TDADataAdapter;
+                             const aDatasetName : string = '') : TDADataTable;
+begin
+  result := aDataTableClass.Create(NIL);
+  result.RemoteFetchEnabled := FALSE;
+  anAdapter.ReadDataset(aStream, result, TRUE, aDatasetName);
+  result.First;
+end;
+
+{ TDADataTable }
+
+type
+  TDAStringList = class(TStringList)
+  protected
+    {$IFDEF FPC}
+    Function DoCompareText(const s1,s2 : string) : PtrInt; override;
+    {$ELSE}
+    function CompareStrings(const S1: string; const S2: string): Integer; override;
+    {$ENDIF}
+  end;
+
+{$IFDEF FPC}
+Function TDAStringList.DoCompareText(const s1,s2 : string) : PtrInt;
+{$ELSE}
+function TDAStringList.CompareStrings(const S1: string; const S2: string): Integer;
+{$ENDIF}
+begin
+  Result := CompareStr(s1,s2)
+end;
+
+constructor TDADataTable.Create(aOwner: TComponent);
+begin
+  inherited;
+  fHasReducedDelta := False;
+  fScriptCode := TStringList.Create;
+  fCustomAttributes := TStringList.Create;
+  fMaxRecords := -1;
+
+  fMasterMappingMode := mmParams;
+  fMasterParamsMappings := TStringList.Create;
+
+  fFieldRules := TObjectList.Create;
+
+  fRemoteUpdateOptions := [];
+  fStreamingOptions := [soDisableEventsWhileStreaming, soDisableFiltering];
+
+  fDetailOptions := DetailOptions_Default;
+  fMasterOptions := MasterOptions_Default;
+
+  fFetchedMasters := TDAMasterKeyList.Create;
+
+  fMasterRequestMappings := TStringList.Create;
+
+  fRemoteFetchEnabled := TRUE;
+  fStreaming := False;
+
+  SetLength(fSortDirections, 0);
+  SetLength(fSortFieldNames, 0);
+
+  fFields := TDAFieldCollection.Create(Self);
+  fFields.OnFieldBeforeUpdate := InternalBeforeFieldUpdate;
+  fFields.OnFieldAfterUpdate := InternalAfterFieldUpdate;
+  fParams := TDAParamCollection.Create(Self);
+
+  fWhere := TDAWhere.Create(fFields, TRUE);
+  fWhere.OnChange := OnWhereChange;
+
+  fDataset := GetDatasetClass.Create(Self);
+  fDataset.Name := 'Dataset';
+
+  fMasterLink := TMasterDataLink.Create(fDataset);
+  fMasterLink.OnMasterChange := OnMasterChange;
+  fMasterLink.OnMasterDisable := OnMasterDisable;
+
+  fExpressionEvaluator := TDAStdExpressionEvaluator.Create;
+  fExpressionEvaluator.OnGetValue := ExpessionEvaluatorGetValue;
+
+  fDynamicWhere := TDAWhereBuilder.Create;
+  fLogChanges := TRUE;
+  EnableEventHandlers;
+end;
+
+destructor TDADataTable.Destroy;
+begin
+  SetOldMasterKey(nil);
+  RemoteDataAdapter := nil;
+  LocalDataStreamer := nil;
+  LocalSchema := nil;
+  DisableEventHandlers;
+  fDynamicWhere.Free;
+  fExpressionEvaluator.Free;
+  fWhere.Free;
+
+  fMasterLink.Free;
+  fMasterRequestMappings.Free;
+  fMasterParamsMappings.Free;
+
+  fFetchedMasters.Free;
+
+  if (fBusinessRules <> nil) then begin
+    fBusinessRules.Detach(Self);
+    fBusinessRules.Free;
+  end;
+
+  fFieldRules.Free;
+  fParams.Free;
+  fFields.Free;
+
+  fDelta := NIL;
+  fScriptCode.Free;
+  fCustomAttributes.Free;
+
+  inherited;
+end;
+
+procedure TDADataTable.OnWhereChange(Sender : TObject);
+//var par : TDARemoteRequestParam;
+begin
+  //TODO: par := DataRequestCall.FindParam(par_UserFilter);
+  //if (par<>NIL) then par.AsString := fWhere.Clause;
+end;
+
+procedure TDADataTable.AttachEventHooks(aDataset: TDataset);
+var i : integer;
+    lFieldRulesClass : TDAFieldRulesClass;
+    lFieldRules : TDAFieldRules;
+    lField : TDAField;
+begin
+  if (csDesigning in ComponentState) then Exit;
+
+  aDataset.BeforeInsert := InternalBeforeInsert;
+  aDataset.AfterInsert := InternalAfterInsert;
+  aDataset.BeforeEdit := InternalBeforeEdit;
+  aDataset.AfterEdit := InternalAfterEdit;
+  aDataset.BeforePost := InternalBeforePost;
+  aDataset.AfterPost := InternalAfterPost;
+  aDataset.BeforeCancel := InternalBeforeCancel;
+  aDataset.AfterCancel := InternalAfterCancel;
+  aDataset.BeforeDelete := InternalBeforeDelete;
+  aDataset.AfterDelete := InternalAfterDelete;
+  aDataset.BeforeScroll := InternalBeforeScroll;
+  aDataset.AfterScroll := InternalAfterScroll;
+  aDataset.BeforeRefresh := InternalBeforeRefresh;
+  aDataset.AfterRefresh := InternalAfterRefresh;
+
+  aDataset.OnCalcFields := InternalOnCalcFields;
+  aDataset.OnNewRecord := InternalOnNewRecord;
+
+  aDataset.OnFilterRecord := InternalOnFilterRecord;
+
+  aDataset.OnDeleteError := InternalOnDeleteError;
+  aDataset.OnEditError := InternalOnEditError;
+  aDataset.OnPostError := InternalOnPostError;
+
+  for i := 0 to (fFields.Count-1) do begin
+    lField := Fields[i];
+    if (lField.BusinessClassID='') then Continue;
+
+    Check(not FindFieldRules(lField.BusinessClassID, lFieldRulesClass), 'Invalid BusinessClassID "%s"', [lField.BusinessClassID]);
+
+    lFieldRules := lFieldRulesClass.Create(lField, Self);
+    fFieldRules.Add(lFieldRules);
+  end;
+
+  fFields.FieldEventsDisabled := FALSE;
+end;
+
+procedure TDADataTable.DetachEventHooks(aDataset: TDataset);
+begin
+  if (csDesigning in ComponentState) then Exit;
+
+  aDataset.BeforeInsert := nil;
+  aDataset.AfterInsert := nil;
+  aDataset.BeforeEdit := nil;
+  aDataset.AfterEdit := nil;
+  aDataset.BeforePost := TempSetRowRecIDValue; // We still need to autoinc the RecID!!!
+  aDataset.AfterPost := nil;
+  aDataset.BeforeCancel := nil;
+  aDataset.AfterCancel := nil;
+  aDataset.BeforeDelete := nil;
+  aDataset.AfterDelete := nil;
+  aDataset.BeforeScroll := nil;
+  aDataset.AfterScroll := nil;
+  aDataset.BeforeRefresh := nil;
+  aDataset.AfterRefresh := nil;
+  if not Filtered then
+    aDataset.OnCalcFields := nil;
+  aDataset.OnNewRecord := nil;
+
+  aDataset.OnFilterRecord := nil;
+
+  aDataset.OnDeleteError := nil;
+  aDataset.OnEditError := nil;
+  aDataset.OnPostError := nil;
+
+  fFields.FieldEventsDisabled := TRUE;
+  fFieldRules.Clear; // Destroyes them
+end;
+
+procedure TDADataTable.InternalAfterDelete(Sender: TDataset);
+begin
+  CallScript('AfterDelete');
+  if Assigned(AfterDelete) then AfterDelete(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.AfterDelete(Self);
+
+  if (ruoOnPost in RemoteUpdatesOptions) then InternalApplyUpdates();
+end;
+
+procedure TDADataTable.InternalAfterEdit(Sender: TDataset);
+begin
+  CallScript('AfterEdit');
+  if Assigned(AfterEdit) then AfterEdit(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.AfterEdit(Self);
+end;
+
+procedure TDADataTable.InternalAfterInsert(Sender: TDataset);
+begin
+  CallScript('AfterInsert');
+
+  if Assigned(AfterInsert) then AfterInsert(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.AfterInsert(Self);
+end;
+
+procedure TDADataTable.InternalAfterRefresh(Sender: TDataset);
+begin
+  CallScript('AfterRefresh');
+  if Assigned(AfterRefresh) then AfterRefresh(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.AfterRefresh(Self);
+end;
+
+procedure TDADataTable.InternalAfterScroll(Sender: TDataset);
+begin
+  if fStreaming and (soDisableEventsWhileStreaming in fStreamingOptions)
+    then Exit;
+  CallScript('AfterScroll');
+  if Assigned(AfterScroll) then AfterScroll(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.AfterScroll(Self);
+end;
+
+function TDADataTable.InternalApplyUpdates(RefetchAll: boolean): boolean;
+var
+  details: TList;
+  i: integer;
+  dt: TDADataTable;
+begin
+  if not (ruoOnPost in RemoteUpdatesOptions) and DeltaInitialized then Delta.EndChangesInAllTables;
+  details:= GetDetailTablesforApplyUpdate;
+  try
+    // check RDA
+    CheckProperties;
+    for i := 0 to details.Count-1 do begin
+      dt:= TDADataTable(details[i]);
+      {if dt.RemoteFetchEnabled then } dt.CheckProperties;
+    end;
+
+    //fOnBeforeApplyUpdates
+    if Assigned(fOnBeforeApplyUpdates) then fOnBeforeApplyUpdates(Self, GetDelta);
+    for i := 0 to details.Count-1 do begin
+       dt:= TDADataTable(details[i]);
+       if Assigned(dt.fOnBeforeApplyUpdates) then dt.fOnBeforeApplyUpdates(dt, GetDelta);
+    end;
+
+    //fBusinessRules.OnBeforeApplyUpdates
+    if Assigned(fBusinessRules) then fBusinessRules.OnBeforeApplyUpdates(Self, GetDelta);
+    for i := 0 to details.Count-1 do begin
+       dt:= TDADataTable(details[i]);
+       if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnBeforeApplyUpdates(dt, GetDelta);
+    end;
+
+    if RemoteFetchEnabled then begin
+
+      //fOnBeforeDataUpdateCall
+      if Assigned(fOnBeforeDataUpdateCall) then fOnBeforeDataUpdateCall(Self, RemoteDataAdapter.Get_UpdateDataCall);
+      for i := 0 to details.Count-1 do begin
+        dt:= TDADataTable(details[i]);
+        if Assigned(dt.fOnBeforeDataUpdateCall) then dt.fOnBeforeDataUpdateCall(dt, dt.RemoteDataAdapter.Get_UpdateDataCall);
+      end;
+
+      //fBusinessRules.OnBeforeDataUpdateCall
+      if Assigned(fBusinessRules) then fBusinessRules.OnBeforeDataUpdateCall(Self, RemoteDataAdapter.Get_UpdateDataCall);
+      for i := 0 to details.Count-1 do begin
+        dt:= TDADataTable(details[i]);
+        if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnBeforeDataUpdateCall(dt, dt.RemoteDataAdapter.Get_UpdateDataCall);
+      end;
+
+      result := RemoteDataAdapter.ApplyUpdates([self], RefetchAll);
+
+      //fOnAfterDataUpdateCall
+      if Assigned(fOnAfterDataUpdateCall) then fOnAfterDataUpdateCall(Self, RemoteDataAdapter.Get_UpdateDataCall);
+      for i := 0 to details.Count-1 do begin
+        dt:= TDADataTable(details[i]);
+        if Assigned(dt.fOnAfterDataUpdateCall) then dt.fOnAfterDataUpdateCall(dt, dt.RemoteDataAdapter.Get_UpdateDataCall);
+      end;
+
+      //fBusinessRules.OnAfterDataUpdateCall
+      if Assigned(fBusinessRules) then fBusinessRules.OnAfterDataUpdateCall(Self, RemoteDataAdapter.Get_UpdateDataCall);
+      for i := 0 to details.Count-1 do begin
+        dt:= TDADataTable(details[i]);
+        if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnAfterDataUpdateCall(dt, dt.RemoteDataAdapter.Get_UpdateDataCall);
+      end;
+
+    end
+    else begin
+      result := Local_ApplyUpdates(RefetchAll);
+    end;
+
+    //fOnAfterApplyUpdates
+    if Assigned(fOnAfterApplyUpdates) then fOnAfterApplyUpdates(Self);
+    for i := 0 to details.Count-1 do begin
+       dt:= TDADataTable(details[i]);
+       if Assigned(dt.fOnAfterApplyUpdates) then dt.fOnAfterApplyUpdates(dt);
+    end;
+
+    //fBusinessRules.OnAfterApplyUpdates
+    if Assigned(fBusinessRules) then fBusinessRules.OnAfterApplyUpdates(Self);
+    for i := 0 to details.Count-1 do begin
+       dt:= TDADataTable(details[i]);
+       if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnAfterApplyUpdates(dt);
+    end;
+  finally
+    details.Free;
+  end;
+end;
+
+procedure TDADataTable.InternalBeforeCancel(Sender: TDataset);
+begin
+  CallScript('BeforeCancel');
+  if Assigned(BeforeCancel) then BeforeCancel(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.BeforeCancel(Self);
+end;
+
+procedure TDADataTable.InternalBeforeRefresh(Sender: TDataset);
+begin
+  CallScript('BeforeRefresh');
+  if Assigned(BeforeRefresh) then BeforeRefresh(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.BeforeRefresh(Self);
+  DoRefresh(fDataset);
+end;
+
+procedure TDADataTable.InternalBeforeScroll(Sender: TDataset);
+begin
+  if fStreaming and (soDisableEventsWhileStreaming in fStreamingOptions)
+    then Exit;
+  CallScript('BeforeScroll');
+  if Assigned(BeforeScroll) then BeforeScroll(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.BeforeScroll(Self);
+end;
+
+procedure TDADataTable.InternalOnCalcFields(Sender: TDataset);
+var
+  i: integer;
+begin
+  CallScript('OnCalcFields');
+  if Assigned(OnCalcFields) then OnCalcFields(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.OnCalcFields(Self);
+  For i:= 0 to fFields.Count-1 do
+    With fFields[i] do
+      if Calculated and (Expression <> '') then Value:= fExpressionEvaluator.Evaluate(Expression);
+end;
+
+procedure TDADataTable.InternalOnDeleteError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction);
+begin
+  if Assigned(OnDeleteError) then OnDeleteError(Self, Error, Action);
+  if Assigned(fBusinessRules) then fBusinessRules.OnDeleteError(Self, Error, Action);
+end;
+
+procedure TDADataTable.InternalOnEditError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction);
+begin
+  if Assigned(OnEditError) then OnEditError(Self, Error, Action);
+  if Assigned(fBusinessRules) then fBusinessRules.OnEditError(Self, Error, Action);
+end;
+
+procedure TDADataTable.InternalOnFilterRecord(Dataset: TDataset; var Accept: Boolean);
+begin
+  if Assigned(OnFilterRecord) then OnFilterRecord(Self, Accept);
+  if Assigned(fBusinessRules) then fBusinessRules.OnFilterRecord(Self, Accept);
+end;
+
+procedure TDADataTable.InternalOnPostError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction);
+begin
+  GetDelta.RestoreLastChange(self); // ALEF: added as follow up to the Post errors (Jeff B.)
+
+  if Assigned(OnPostError) then OnPostError(Self, Error, Action);
+  if Assigned(fBusinessRules) then fBusinessRules.OnPostError(Self, Error, Action);
+end;
+
+procedure TDADataTable.SetLogChanges(const Value: boolean);
+begin
+  fLogChanges := Value;
+end;
+
+function TDADataTable.GetDataset: TDataset;
+begin
+  result := fDataset // inherited Dataset;
+end;
+
+function TDADataTable.GetFields: TDAFieldCollection;
+begin
+  result := fFields;
+end;
+
+procedure TDADataTable.SetFields(const Value: TDAFieldCollection);
+begin
+  if Active then Close;
+  fFields.Assign(Value);
+end;
+
+(*
+ key struct
+
+  fieldcount        = word
+  nativefieldtype   = byte*fieldcount
+  {
+    size            = word
+    fieldname       = Length(fieldname) * SizeOf(char)
+  }*fieldcount
+  {
+    nativedata
+  }*fieldcount
+*)
+function TDADataTable.GenerateKeyfromMasterRecID: TDAMasterKeyID;
+
+  procedure MakeKeyFromInteger(aValue: Integer);
+  begin
+    GetMem(Result,SizeOf(Integer)*2);
+    Move(PInteger(@aValue)^, Result[SizeOf(Integer)],SizeOf(Integer));
+    aValue := SizeOf(Integer);
+    Move(PInteger(@aValue)^, Result[0],SizeOf(Integer));
+  end;
+
+var
+  p: PAnsiChar;
+  i,l: integer;
+  lLink: TMasterDataLink;
+  buf: array [0..4096] of byte;
+  fld: TField;
+  lMasterDataset: TDataset;
+  s: string;
+begin
+  lLink := GetMasterDataLink;
+  if (lLink = nil) or (lLink.Fields.Count = 0) then begin
+    // if something is wrong so we will use old method
+    MakeKeyFromInteger(MasterSource.DataTable.GetRowRecIDValue);
+    exit;
+  end;
+  lMasterDataset := MasterSource.DataTable.Dataset;
+  p:= PAnsiChar(@buf[0]);
+  PWord(p)^ := lLink.Fields.Count;
+  inc(p, sizeOf(word));
+  for I := 0 to lLink.Fields.Count - 1 do begin
+    PByte(p)^ := ord(TField(lLink.Fields[i]).DataType);
+    inc(p);
+  end;
+  for I := 0 to lLink.Fields.Count - 1 do begin
+    s := TField(lLink.Fields[i]).FieldName;
+    Move( pointer(s)^, p^, Length(s)*SizeOf(Char) );
+    inc(p,Length(s)*SizeOf(Char));
+    p^ := #0; // fieldname delimiter
+    inc(p);
+  end;
+  for I := 0 to lLink.Fields.Count - 1 do begin
+    fld := TField(lLink.Fields[i]);
+    lMasterDataset.GetFieldData(fld,p,true);
+    inc(p, fld.DataSize);
+  end;
+  l := p -PAnsiChar(@buf[0]);
+  GetMem(Result, l+SizeOf(Integer));
+  Move(PInteger(@l)^,Result[0],SizeOf(integer));
+  Move(buf[0],Result[SizeOf(integer)],l);
+end;
+
+function TDADataTable.GetActive: boolean;
+begin
+  result := fDataset.Active;
+end;
+
+procedure TDADataTable.SetActive(Value: boolean);
+begin
+  if (csLoading in ComponentState) then
+    fStreamedActive := Value
+  else begin
+    if (Value <> Active) then begin
+      if Value then
+        Open
+      else
+        Close
+    end;
+  end;
+end;
+
+procedure TDADataTable.InternalOnNewRecord(Sender: TDataset);
+var
+  i: integer;
+begin
+  fFields.FieldEventsDisabled := TRUE;
+  try
+    try
+      for i := 0 to (fFields.Count - 1) do begin
+        if (fFields[i].DefaultValue <> '') then fFields[i].Value := fFields[i].DefaultValue;
+        // (autoinc)
+        if (fFields[i].DataType=datLargeAutoInc) then begin
+          fFields[i].AsLargeInt := AutoIncs[i];
+          AutoIncs[i] := AutoIncs[i]-1;
+        end
+        else if (fFields[i].DataType=datAutoInc) then begin
+          fFields[i].AsInteger := AutoIncs[i];
+          AutoIncs[i] := AutoIncs[i]-1;
+        end;
+      end;
+
+      fFields.FieldEventsDisabled := FALSE;
+
+      CallScript('OnNewRecord');
+      if Assigned(OnNewRecord) then OnNewRecord(Self);
+      if Assigned(fBusinessRules) then fBusinessRules.OnNewRecord(Self);
+    except
+      GetDelta.CancelChange(self); // OnNewRecord's exception put the dataset in read mode so we must cancel the change
+      raise;
+    end;
+  finally
+    fFields.FieldEventsDisabled := FALSE; // Just in case...
+  end;
+end;
+
+procedure TDADataTable.DoCascadeOperation(aStreamer: TDADataStreamer; aOption: TDAMasterOption);
+var
+  i: integer;
+  details: TList;
+  dt: TDADataTable;
+  flag: boolean;
+  lRemoteList,lLocalList: TList;
+begin
+  if aOption = moAllInOneFetch then begin
+    DoCascadeRemoteAllInOneFetch(aStreamer);
+    exit;
+  end;
+
+  lRemoteList:= TList.Create;
+  lLocalList:= TList.Create;
+
+  GetDetailTablesforAllinOneFetch(lRemoteList,lLocalList, False);
+  details := GetDetailDataTables;
+  try
+    for i := 0 to (details.Count - 1) do begin
+      dt := TDADataTable(details[i]);
+      flag := dt.LogChanges;
+
+      case aOption of
+        moCascadeDelete: begin
+            if (dtDisableLogOfCascadeDeletes in dt.DetailOptions) then dt.LogChanges := FALSE;
+
+            dt.ClearRows;
+          end;
+
+        moCascadeOpenClose: begin
+            if (dtCascadeOpenClose in dt.DetailOptions) then begin
+              if Opening then begin
+                if (lLocalList.IndexOf(dt)=-1)and (lRemoteList.IndexOf(dt)=-1) then begin
+                  dt.Close;
+                  dt.DoOpen;
+                end;
+              end
+              else if Closing then
+                dt.Close;
+            end;
+          end;
+
+        moCascadeUpdate: begin
+          end;
+
+        moAllInOneFetch: begin
+          {
+          if (dtIncludeInAllInOneFetch in dt.DetailOptions) then try
+            dt.LogChanges := FALSE;
+
+            if Opening and not (soIgnoreStreamSchema in fStreamingOptions) then
+              begin
+                aStreamer.ReadDataset(dt.LogicalName, dt, TRUE, FALSE);
+                dt.InitializeDataTable;
+              end;
+
+            aStreamer.ReadDataset(dt.LogicalName, dt);
+            dt.DoCascadeOperation(aStreamer, moAllInOneFetch);
+          finally
+            dt.LogChanges := flag;
+          end; }
+        end;
+      end;
+
+      dt.LogChanges := flag;
+    end;
+  finally
+    details.Free;
+    lRemoteList.Free;
+    lLocalList.Free;
+  end;
+end;
+
+procedure TDADataTable.DoCascadeRemoteAllInOneFetch(aStreamer: TDADataStreamer);
+
+  procedure ProcessDetailTable(aTable: TDADataTable);
+  begin
+    First;
+    while not eof do begin
+      aTable.AddMasterKey(aTable.GenerateKeyfromMasterRecID);
+      Next;
+    end;
+    aTable.DoCascadeRemoteAllInOneFetch(aStreamer);
+  end;
+
+var
+  lLocalList, lRemoteList: TList;
+  ltbl: TDADataTable;
+  i: integer;
+  lflag: boolean;
+  lold_Filtered: Boolean;
+  lold_mastersource: TDADataSource;
+begin
+  if moAllInOneFetch in fMasterOptions then begin
+    lRemoteList:= TList.Create;
+    lLocalList:= TList.Create;
+    try
+      GetDetailTablesforAllinOneFetch(lRemoteList,lLocalList, False);
+      if (lRemoteList.Count > 0) or (lLocalList.Count > 0) then begin
+        lold_Filtered:= Filtered;
+        lold_mastersource := MasterSource;
+        try
+          Filtered := False;
+          MasterSource:=nil;
+          First;
+          // these tables are read in RDA
+          for i := 0 to lRemoteList.Count - 1 do begin
+            ProcessDetailTable(TDADataTable(lRemoteList[i]));
+          end;
+
+          // these tables we should read manually from streamer
+          for i := 0 to lLocalList.Count - 1 do begin
+            ltbl:= TDADataTable(lLocalList[i]);
+            if aStreamer.FindDatasetIndex(ltbl.LogicalName) = -1 then Continue; // may be to better raise an exception!
+            lflag := ltbl.LogChanges;
+            try
+              ltbl.LogChanges := False;
+              if Opening and not (soIgnoreStreamSchema in fStreamingOptions) then begin
+                aStreamer.ReadDataset(ltbl.LogicalName, ltbl, TRUE, FALSE);
+                ltbl.InitializeDataTable;
+               end;
+              aStreamer.ReadDataset(ltbl.LogicalName, ltbl);
+            finally
+              ltbl.LogChanges := lflag;
+            end;
+            ProcessDetailTable(ltbl);
+          end;
+        finally
+          Filtered := lold_Filtered;
+          MasterSource := lold_mastersource;
+        end;
+      end;
+    finally
+      lRemoteList.Free;
+      lLocalList.Free;
+    end;
+  end;
+end;
+
+procedure TDADataTable.TempSetRowRecIDValue(Sender: TDataset);
+begin
+  if (State <> dsEdit) then begin // Somehow it's gets in dsBrowse here...
+    fRecIDField.AsInteger := CurrRecId;
+    CurrRecId := CurrRecId + 1;
+  end;
+end;
+
+procedure TDADataTable.CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection);
+var
+  i, cnt: integer;
+  fld: TFieldDef;
+  fldcls: TFieldClass;
+  realfld: TField;
+begin
+  // Creates the RecID field
+  fld := aDataset.FieldDefs.AddFieldDef;
+  fld.DataType := ftInteger;
+  fld.Name := RecIDFieldName;
+
+  // Creates the autoinc map (autoinc)
+  AutoIncs := CreateAutoIncArray;
+
+  // Adds the data fields (non calculated) to the FieldDefs
+  for i := 0 to (Fields.Count - 1) do begin
+    if Fields[i].Calculated or Fields[i].Lookup then Continue; // Added as fields later
+
+    fld := aDataset.FieldDefs.AddFieldDef;
+
+    // (autoinc)
+    if (Fields[i].DataType=datLargeAutoInc)then fld.DataType := ftLargeint
+    else if (Fields[i].DataType=datAutoInc)then fld.DataType := ftInteger
+    else fld.DataType := intDATypeToVCLType(Fields[i].DataType);
+
+    fld.Name := Fields[i].Name;
+
+    {if not (fld.DataType in [ftFloat, ftCurrency, ftBlob, ftInteger])
+      then fld.Size := Fields[i].Size;}
+
+    if (fld.DataType = ftString) or (fld.DataType = ftWideString) then fld.Size := Fields[i].Size;
+    if (fld.DataType = ftGuid) then fld.Size := 38;
+{
+    if (fld.DataType = ftBcd) then begin
+      fld.Size:=Fields[i].DecimalScale;
+      fld.Precision:=Fields[i].DecimalPrecision;
+    end;
+}
+    if (fld.DataType = ftFMTBcd) then begin
+      fld.Size:=Fields[i].DecimalScale;
+      fld.Precision:=Fields[i].DecimalPrecision;
+    end;
+
+    fld.Required := Fields[i].Required;
+  end;
+
+  // Creates the data fields
+  for i := 0 to (aDataset.FieldDefs.Count - 1) do begin
+    realfld := aDataset.FieldDefs[i].CreateField(aDataset);
+    realfld.DataSet := aDataset; // NEW
+  end;
+
+  // Creates the calculated fields
+  for i := 0 to (Fields.Count - 1) do begin
+    if not Fields[i].Calculated then Continue;
+
+    fldcls := DefaultFieldClasses[intDATypeToVCLType(Fields[i].DataType)];
+    if fldcls = nil then fldcls := TStringField;
+    realfld := fldcls.Create(Self);
+    realfld.Name := aDataset.Name + Fields[i].Name;
+    realfld.FieldName := Fields[i].Name;
+    realfld.DataSet := aDataset;
+
+    if (Fields[i].DataType = datString) or (Fields[i].DataType = datWideString) then realfld.Size := Fields[i].Size;
+
+    realfld.Required := Fields[i].Required;
+    if Fields[i].Calculated then realfld.FieldKind := fkCalculated;
+
+    realfld.DataSet := aDataset;
+  end;
+
+  // Creates the lookup fields
+  for i := 0 to (Fields.Count - 1) do begin
+    if not Fields[i].Lookup then Continue;
+
+    fldcls := DefaultFieldClasses[intDATypeToVCLType(Fields[i].DataType)];
+
+    if not Assigned(fldcls) then
+      RaiseError('No or invalid DataType specified for lookup field %s.%s',[self.Name, Fields[i].DisplayLabel]);
+
+    realfld := fldcls.Create(Self);
+    realfld.Name := aDataset.Name + Fields[i].Name;
+    realfld.FieldName := Fields[i].Name;
+    realfld.DataSet := aDataset; // NEW
+
+    // Sets lookup properties
+    with Fields[i] do begin
+      {$IFNDEF FPC}
+      realfld.Lookup := TRUE;
+      {$ENDIF}
+      realfld.FieldKind:=fkLookup;
+      if (LookupSource<>NIL) then
+        with TDADataSource(LookupSource) do
+          if Assigned(DataTable)
+            then realfld.LookupDataSet := DataTable.Dataset;
+
+      realfld.LookupKeyFields := LookupKeyFields;
+      realfld.LookupCache := LookupCache;
+      realfld.LookupResultField := LookupResultField;
+      realfld.KeyFields := KeyFields;
+    end;
+
+    if (Fields[i].DataType = datString) or (Fields[i].DataType = datWideString) then realfld.Size := Fields[i].Size;
+
+    //realfld.DataSet := aDataset;
+  end;
+
+  // Adjusts field positions (less intrusive than changing the code above)
+  cnt := Fields.Count-1;
+  for i := 0 to cnt do begin
+    realfld := aDataSet.FieldByName(Fields[i].Name);
+    realfld.Index := i+1;
+    if (Fields[i].DataType = datCurrency) and (realfld is TBCDField) then TBcdField(realfld).currency := True;
+  end;
+end;
+
+procedure TDADataTable.Loaded;
+begin
+  inherited;
+
+  if Assigned(fBusinessRules)
+    then fBusinessRules.Attach(Self);
+
+  //Active := fStreamedActive;
+  if fStreamedActive then Active:=True;
+
+//  AttachEventHooks(fDataset);
+end;
+
+procedure TDADataTable.DoRefresh(aDataset: TDataset);
+begin
+  if fRefreshing then Exit;
+
+  fRefreshing := TRUE;
+  try
+    Close;
+    Open;
+  finally
+    fRefreshing := FALSE;
+  end;
+end;
+
+procedure TDADataTable.InternalBeforeInsert(Sender: TDataset);
+var
+  i: Integer;
+begin
+  if UsingClonedCursor and DeltaInitialized then Delta.AssignDataTable(Self);
+  try
+    CallScript('BeforeInsert');
+    if Assigned(BeforeInsert) then BeforeInsert(Self);
+    if Assigned(fBusinessRules) then fBusinessRules.BeforeInsert(Self);
+
+    if not LogChanges or (csDesigning in ComponentState) then Exit;
+
+    GetDelta.StartChange(ctInsert,Self);
+
+    SetLength(fOldValues, FieldCount);
+    for i := 0 to Length(fOldValues) -1 do
+      fOldValues[i] := null;
+  except
+    // Somehow the insert failed, so we restore the original data table to the delta
+    if UsingClonedCursor and HasDelta then Delta.AssignDataTable(fCloneSource);
+    raise;
+  end;
+end;
+
+procedure TDADataTable.InternalBeforeDelete(Sender: TDataset);
+begin
+  if UsingClonedCursor and DeltaInitialized then Delta.AssignDataTable(Self);
+  try
+    CallScript('BeforeDelete');
+    if Assigned(BeforeDelete) then BeforeDelete(Self);
+    if Assigned(fBusinessRules) then fBusinessRules.BeforeDelete(Self);
+
+    if not LogChanges or (csDesigning in ComponentState) then Exit;
+
+    // Deletes the records from the detail tables
+    if (moCascadeDelete in MasterOptions) then DoCascadeOperation(nil, moCascadeDelete);
+
+    // Logs the delete
+    GetDelta.StartChange(ctDelete,Self);
+    GetDelta.EndChange(self);
+  finally
+    if UsingClonedCursor and HasDelta then Delta.AssignDataTable(fCloneSource);
+  end;    
+end;
+
+procedure TDADataTable.InternalBeforeEdit(Sender: TDataset);
+
+  procedure _GenerateMasterIDinDetailsTables;
+  var
+    List: TList;
+    i: integer;
+    dt: TDADataTable;
+  begin
+    List := GetDetailDataTables;
+    try
+      for i := 0 to List.Count - 1 do begin
+        dt := TDADataTable(List[i]);
+        if not dt.Active then Continue;
+        SetOldMasterKey(dt.GenerateKeyfromMasterRecID);
+      end;
+    finally
+      List.Free;
+    end;
+  end;
+
+var
+  i: integer;
+begin
+  if UsingClonedCursor and DeltaInitialized then Delta.AssignDataTable(Self);
+  try
+    _GenerateMasterIDinDetailsTables;
+    CallScript('BeforeEdit');
+    if Assigned(BeforeEdit) then BeforeEdit(Self);
+    if Assigned(fBusinessRules) then fBusinessRules.BeforeEdit(Self);
+
+    if not LogChanges or (csDesigning in ComponentState) then Exit;
+
+    GetDelta.StartChange(ctUpdate, Self);
+
+    SetLength(fOldValues, Dataset.Fields.Count);
+    for i := 0 to Length(fOldValues) -1 do
+      fOldValues[i] := Dataset.Fields[i].Value;
+  except
+    // Somehow the edit failed, so we restore the original data table to the delta
+    if UsingClonedCursor and HasDelta then Delta.AssignDataTable(fCloneSource);
+    raise;
+  end;
+end;
+
+procedure TDADataTable.InternalBeforePost(Sender: TDataset);
+var details : TList;
+    key : TDAMasterKeyID;
+    i : integer;
+    dt: TDADataTable;
+begin
+  CallScript('BeforePost');
+  if Assigned(BeforePost) then BeforePost(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.BeforePost(Self);
+
+  for i := 0 to (fFields.Count - 1) do
+    if (fFields[i].RegExpression <> '') and not fFields[i].IsNull then begin
+      if not ExecRegExpr(fFields[i].RegExpression, fFields[i].AsString) then RaiseError('Invalid input value for field ' + fFields[i].DisplayLabel);
+    end;
+
+  if (State <> dsEdit) then begin // Somehow it's gets in dsBrowse here...
+    fRecIDField.AsInteger := CurrRecId;
+    CurrRecId := CurrRecId + 1;
+  end;
+
+  // This was originally in AfterPost. Moved here because after a post filters might step in and the current
+  // record can change resulting in half change from record X and the remaining from record Y
+
+  if not LogChanges or (csDesigning in ComponentState) then Exit;
+  GetDelta.EndChange(Self);
+
+  case State of
+    dsInsert: begin
+      // Adds a reference to the RecID of this record to avoid double fetching records
+      // This is a new master record, so it means there are no details to fetch remotely
+      details := GetDetailDataTables;
+      try
+        for i := 0 to (details.Count-1) do begin
+          dt := TDADataTable(details[i]);
+          if dt.Active then begin
+            key := dt.GenerateKeyfromMasterRecID;
+            if dt.IsNeedToFetch(key) then
+              dt.AddMasterKey(key)
+            else
+              FreeMasterKey(key);
+          end;
+        end;
+      finally
+        details.Free;
+      end;
+    end;
+    dsEdit: begin
+      details := GetDetailDataTables;
+      try
+        for i := 0 to (details.Count-1) do begin
+          dt := TDADataTable(details[i]);
+          if dt.Active and (dt.fOldMasterKey <> nil) then begin
+            key := dt.GenerateKeyfromMasterRecID;
+            dt.ReplaceMasterKey(dt.fOldMasterKey, Key);
+            SetOldMasterKey(nil);
+          end;
+        end;
+      finally
+        details.Free;
+      end;
+    end;
+  end;
+  if (ruoOnPost in RemoteUpdatesOptions) then try
+    InternalApplyUpdates();
+  except
+    on E: Exception do
+      begin
+        if GetDelta.Count > 0 then
+          GetDelta.RestoreLastChange(Self)
+        else case Self.State of
+          dsEdit: GetDelta.StartChange(ctUpdate,Self);
+          dsInsert: GetDelta.StartChange(ctInsert,Self);
+        end;
+        raise;
+      end;
+  end;
+end;
+
+procedure TDADataTable.InternalAfterPost(Sender: TDataset);
+begin
+  try
+    CallScript('AfterPost');
+    if Assigned(AfterPost) then AfterPost(Self);
+    if Assigned(fBusinessRules) then fBusinessRules.AfterPost(Self);
+
+    if not LogChanges or (csDesigning in ComponentState) then Exit;
+  finally
+    // Finally restores the original datatable to the delta
+    if UsingClonedCursor and DeltaInitialized then Delta.AssignDataTable(fCloneSource);
+  end;
+end;
+
+procedure TDADataTable.InternalAfterCancel(Sender: TDataset);
+begin
+  CallScript('AfterCancel');
+  if Assigned(AfterCancel) then AfterCancel(Self);
+  if Assigned(fBusinessRules) then fBusinessRules.AfterCancel(Self);
+
+  GetDelta.CancelChange(Self);
+end;
+
+function TDADataTable.GetLogChanges: boolean;
+begin
+  result := fLogChanges;
+end;
+
+procedure TDADataTable.DisableControls;
+begin
+  fDataset.DisableControls;
+end;
+
+procedure TDADataTable.EnableControls;
+begin
+  fDataset.EnableControls;
+end;
+
+function TDADataTable.GetBOF: boolean;
+begin
+  result := fDataset.BOF
+end;
+
+function TDADataTable.GetEOF: boolean;
+begin
+  result := fDataset.EOF
+end;
+
+function TDADataTable.GetFieldCount: integer;
+begin
+  result := fFields.Count
+end;
+
+function TDADataTable.GetFieldValues(Index: integer): Variant;
+begin
+  result := Fields[Index].Value
+end;
+
+function TDADataTable.GetNames(Index: integer): string;
+begin
+  result := Fields[Index].Name
+end;
+
+function TDADataTable.GetRecordCount: integer;
+begin
+  result := fDataset.RecordCount;
+end;
+
+function TDADataTable.GetSQL: string;
+begin
+  // Not implemented in DataTables
+  result := '';
+end;
+
+function TDADataTable.Locate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  if VarIsArray(KeyValues) and (VarArrayHighBound(KeyValues, 1) = 0)
+    then result := fDataset.Locate(KeyFields, KeyValues[0], Options)
+    else result := fDataset.Locate(KeyFields, KeyValues, Options);
+end;
+
+procedure TDADataTable.Next;
+begin
+  fDataset.Next;
+end;
+
+procedure TDADataTable.SetSQL(const Value: string);
+begin
+  // Not implemented in DataTables
+end;
+
+function TDADataTable.Execute: integer;
+begin
+  // Not implemented in DataTables
+  result := -1;
+end;
+
+function TDADataTable.GetParams: TDAParamCollection;
+begin
+  // Not implemented in DataTables
+  result := fParams;
+end;
+
+procedure TDADataTable.RefreshParams;
+begin
+  // Not implemented in DataTables
+end;
+
+procedure TDADataTable.ReplaceMasterKey(aOldKey, aNewKey: TDAMasterKeyID);
+var
+  i: integer;
+begin
+  if aOldKey = aNewKey then Exit;
+  i := fFetchedMasters.IndexOf(aOldKey);
+  if i <> -1 then begin
+    FreeMasterKey(TDAMasterKeyID(fFetchedMasters.Items[i]));
+    fFetchedMasters.Delete(i);
+    fFetchedMasters.Add(aNewKey);
+  end;
+end;
+
+procedure TDADataTable.Append;
+begin
+  fDataset.Append;
+end;
+
+procedure TDADataTable.Delete;
+begin
+  fDataset.Delete;
+end;
+
+procedure TDADataTable.Cancel;
+begin
+  fDataset.Cancel;
+end;
+
+procedure TDADataTable.Edit;
+begin
+  fDataset.Edit;
+end;
+
+procedure TDADataTable.Insert;
+begin
+  fDataset.Insert;
+end;
+
+procedure TDADataTable.Post;
+begin
+  fDataset.Post;
+end;
+
+{$WARN SYMBOL_DEPRECATED OFF}
+function TDADataTable.GetWhere: TDAWhere;
+begin
+  result := fWhere
+end;
+{$WARN SYMBOL_DEPRECATED ON}
+
+procedure TDADataTable.SetRemoteDataAdapter(const Value: TDACustomDataAdapter);
+begin
+  if Value <> fRemoteDataAdapter then begin
+    if assigned(fRemoteDataAdapter) then fRemoteDataAdapter.RORemoveFreeNotification(self);
+    fRemoteDataAdapter := Value;
+    if assigned(fRemoteDataAdapter) then fRemoteDataAdapter.ROFreeNotification(self);
+  end;
+end;
+
+procedure TDADataTable.Close;
+begin
+  if not Active then Exit;
+
+  fClosing := TRUE;
+  try
+    DoBeforeCloseDataset;
+    if Assigned(BeforeClose) then BeforeClose(Self);
+    if Assigned(fBusinessRules) then fBusinessRules.BeforeClose(Self);
+
+    if (moCascadeOpenClose in MasterOptions) then DoCascadeOperation(nil, moCascadeOpenClose);
+
+    Dataset.Close;
+    fFields.Unbind;
+
+    //Dataset.Fields.Clear;
+    if DeltaInitialized then Delta.CancelChange(Self);
+
+    fDelta := nil;
+
+    fFetchedMasters.Clear;
+
+    DoAfterCloseDataset;
+    if Assigned(AfterClose) then AfterClose(Self);
+    if Assigned(fBusinessRules) then fBusinessRules.AfterClose(Self);
+  finally
+    fClosing := FALSE;
+  end;
+end;
+
+procedure TDADataTable.InitializeDataTable;
+begin
+  fCurrRecId := 1;
+
+  try
+    fDataset.Fields.Clear;
+    fDataset.FieldDefs.Clear;
+  finally
+    NotifyFieldsClear;
+  end;
+  try
+    // Creates the fields for the internal dataset
+    CreateInternalFields(fDataset, Fields);
+  finally
+    NotifyFieldsClear;
+  end;
+
+  fRecIDField := fDataset.FieldByName(RecIDFieldName) as TIntegerField;
+  fRecIDField.Visible := FALSE;
+
+  fFields.Bind(fDataset);
+
+  // Prepares the delta
+  fDelta := TDADelta.Create(Self);
+
+(*
+  // Finishes to prepare the internal dataset (descendant might need additional customization and might not be open)
+  if RemoteFetchEnabled and
+     (RemoteDataAdapter<>nil) and
+     (TDARemoteDataAdapter(RemoteDataAdapter).GetDataCall.Default) then
+     LoadScript();
+*)
+  DoBeforeOpenDataset;
+  if not Dataset.Active then Dataset.Open;
+  DoAfterOpenDataset;
+end;
+
+procedure TDADataTable.LoadFromLocalSchema(AppendMode: Boolean = False);
+var
+  lConnection: IDAConnection;
+  data: TStream;
+  gofirst, oldlog: boolean;
+  ds: IDADataset;
+  i: integer;
+  lDynFields: array of string;
+begin
+  if (LocalSchema = nil) or (LogicalName = '') or fStreaming then begin
+    InitializeDataTable;
+    Exit;
+  end;
+
+  // Local but from schema. Client/Server mode
+  CheckProperties;
+
+  lConnection := LocalSchema.ConnectionManager.NewConnection(fLocalConnection);
+  try
+    SetLength(lDynFields, 0);
+    ds := LocalSchema.NewDataset(lConnection, fLogicalName,lDynFields,fDynamicWhere.Xml);
+    ds.Where.AddText(Where.Clause);
+
+    oldlog := LogChanges;
+    fFetching := TRUE;
+    LogChanges := FALSE;
+  //  book := nil;
+
+    data := TROBinaryMemoryStream.Create;
+    TROBinaryMemoryStream(data).CapacityIncrement := LocalDataStreamer.BufferSize;
+    try
+      for i := 0 to (ds.Params.Count - 1) do
+        ds.Params[i].Value := ParamByName(ds.Params[i].Name).Value;
+
+      LocalDataStreamer.WriteDataset(data, ds, [woRows, woSchema], MaxRecords);
+
+      if Active then
+        gofirst := FALSE
+      else
+        gofirst := TRUE;
+
+      if Assigned(fOnReceiveDataStream) then fOnReceiveDataStream(Self, data);
+      if Assigned(fBusinessRules) then fBusinessRules.OnReceiveDataStream(Self, data);
+      data.Position := 0;
+
+      // Reads the data
+      LocalDataStreamer.Initialize(data, aiRead);
+      try
+        if (LocalDataStreamer.DatasetCount = 0) then RaiseError('Stream does not contain any dataset');
+
+        if Opening then begin
+          AppendMode := False;
+          if not (soIgnoreStreamSchema in fStreamingOptions) then LocalDataStreamer.ReadDataset(LogicalName, Self, FieldCount = 0, FALSE);
+
+          InitializeDataTable;
+        end;
+
+        LocalDataStreamer.ReadDataset(LogicalName, Self, FALSE,True, AppendMode);
+        {
+        if (moAllInOneFetch in MasterOptions) then begin
+          DoCascadeOperation(LocalDataStreamer, moAllInOneFetch);
+        end;}
+      finally
+        LocalDataStreamer.Finalize;
+      end;
+
+      if gofirst then First;
+    finally
+      fFetching := FALSE;
+      data.Free;
+      LogChanges := oldlog;
+    end;
+  finally
+    lConnection := nil;
+  end;
+end;
+
+procedure TDADataTable.LoadLocalSchema(aPreserveLookupFields,
+  aPreserveClientCalcFields: Boolean);
+type
+  THandlerArray = array[0..1] of TMethod;
+  PHandlerArray = ^THandlerArray;
+
+const
+  HandlersToSave : array[0..1] of string = ('OnChange', 'OnValidate');
+
+var
+  lFieldHandlers : TStringList;
+  lHandlers : PHandlerArray;
+  lookupfields : TDAFieldCollection;
+  clientcalcfields : TDAFieldCollection;
+  i, j, lIndex: integer;
+  lConnection: IDAConnection;
+  lDataset: IDADataset;
+  data: TStream;
+  ds: TDADataset;
+begin
+  if Active then Close();
+
+  lookupfields := nil;
+  clientcalcfields := nil;
+
+  Fields.FieldEventsDisabled := true;
+
+  try
+    lFieldHandlers := TStringList.Create;
+
+    { Saves the current event handler pointers }
+    for i := 0 to Fields.Count-1 do begin
+      New(lHandlers);
+      for j := Low(HandlersToSave) to High(HandlersToSave) do
+        lHandlers[j] := GetMethodProp(Fields[i], HandlersToSave[j]);
+      lFieldHandlers.AddObject(Fields[i].Name, TObject(lHandlers));
+    end;
+
+    { Save lookup and calced fields}
+    if aPreserveLookupFields then begin
+      lookupfields := TDAFieldCollection.Create(nil);
+      lookupfields.Assign(Fields);
+      for i := (lookupfields.Count-1) downto 0 do
+        if not (lookupfields[i] as TDACustomField).Lookup then
+          lookupfields.Delete(i);
+    end;
+
+    if aPreserveClientCalcFields then begin
+      clientcalcfields := TDAFieldCollection.Create(nil);
+      clientcalcfields.Assign(Fields);
+      for i :=(clientcalcfields.Count-1) downto 0 do
+        if not (clientcalcfields[i] as TDACustomField).Calculated then
+          clientcalcfields.Delete(i);
+    end;
+
+    try
+      if csDesigning in ComponentState then begin
+        ds := LocalSchema.Datasets.DatasetByName(LogicalName);
+        Fields.AssignFieldCollection(ds.Fields);
+        Params.AssignParamCollection(ds.Params);
+      end
+      else begin
+        Fields.Clear;
+        lConnection := LocalSchema.ConnectionManager.NewConnection(fLocalConnection);
+        lDataset := LocalSchema.NewDataset(lConnection, fLogicalName);
+
+        data := TROBinaryMemoryStream.Create;
+        TROBinaryMemoryStream(data).CapacityIncrement := LocalDataStreamer.BufferSize;
+        try
+          LocalDataStreamer.WriteDataset(data, lDataset, [woSchema], MaxRecords);
+          data.Position := 0;
+          LocalDataStreamer.Initialize(data, aiRead);
+          try
+            if (LocalDataStreamer.DatasetCount = 0) then RaiseError('Stream does not contain any dataset');
+            LocalDataStreamer.ReadDataset(LogicalName, Self, true, false);
+          finally
+            LocalDataStreamer.Finalize;
+          end;
+        finally
+          data.Free;
+        end;
+      end;
+
+
+    finally
+      if aPreserveLookupFields then
+        for i := 0 to (lookupfields.Count-1) do
+          Fields.Add.Assign(lookupfields[i]);
+      if aPreserveClientCalcFields then
+        for i := 0 to (clientcalcfields.Count-1) do
+          if not Assigned(Fields.FindField(clientcalcfields[i].Name)) then
+            Fields.Add.Assign(clientcalcfields[i]);
+
+      { restores the old event handler pointers }
+      for i := 0 to Fields.Count-1 do begin
+        lIndex := lFieldHandlers.IndexOf(Fields[i].Name);
+        if lIndex >= 0 then begin
+          lHandlers := PHandlerArray(lFieldHandlers.Objects[lIndex]);
+          for j := Low(HandlersToSave) to High(HandlersToSave) do
+            SetMethodProp(Fields[i], HandlersToSave[j], lHandlers[j]);
+          Dispose(lHandlers);
+        end;
+      end;
+      lFieldHandlers.Free;
+    end;
+  finally
+    clientcalcfields.Free;
+    lookupfields.Free;
+    Fields.FieldEventsDisabled := false;
+  end;
+end;
+
+procedure TDADataTable.DoOpen(IgnoreAutoFetchSettings: Boolean);
+
+  procedure CheckForMaster(aMasterTable, aLookupTable: TDADataTable);
+  begin
+    if aMasterTable = aLookupTable then raise Exception.Create('You can''t use master source as lookup source');
+    if aMasterTable.MasterSource <> nil then CheckForMaster(aMasterTable.MasterSource.DataTable,aLookupTable);
+  end;
+
+  procedure CheckForCloneSource(aSourceTable, aLookupTable: TDADataTable);
+  begin
+    if aSourceTable = aLookupTable then raise Exception.Create('You can''t use clone source as lookup source');
+    if aSourceTable.CloneSource <> nil then CheckForCloneSource(aSourceTable.CloneSource,aLookupTable);
+  end;
+
+var
+  i : integer;
+begin
+  if Active or fOpening then Exit;
+  SetOldMasterKey(nil);
+  fOpening := TRUE;
+  try
+    if (MasterSource <> nil) then
+      if (MasterSource.DataTable <> nil) then begin
+        for i := 0 to (FieldCount-1) do
+          if Fields[i].Lookup and (Fields[i].LookupSource<>NIL) and (Fields[i].LookupSource is TDADataSource) and
+             Assigned(TDADataSource(Fields[i].LookupSource).DataTable) then begin
+             CheckForMaster(MasterSource.DataTable, TDADataSource(Fields[i].LookupSource).DataTable)
+          end;
+      end;
+    if (CloneSource <> nil) then
+      for i := 0 to (FieldCount-1) do
+        if Fields[i].Lookup and (Fields[i].LookupSource<>NIL) and (Fields[i].LookupSource is TDADataSource) and
+           Assigned(TDADataSource(Fields[i].LookupSource).DataTable) then begin
+           CheckForCloneSource(CloneSource,TDADataSource(Fields[i].LookupSource).DataTable);
+        end;
+
+    { Checks that all the lookup datasets are open. If not, we would get the error "Missing Data Provider"}
+    for i := 0 to (FieldCount-1) do
+      if Fields[i].Lookup and (Fields[i].LookupSource<>NIL) then begin
+        if (Fields[i].LookupSource is TDADataSource) then begin
+          if Assigned(TDADataSource(Fields[i].LookupSource).DataTable)
+            then TDADataSource(Fields[i].LookupSource).DataTable.Open;
+        end
+        else begin
+          if Assigned(Fields[i].LookupSource.DataSet)
+            then Fields[i].LookupSource.DataSet.Open;
+        end;
+      end;
+
+
+    if Assigned(BeforeOpen) then BeforeOpen(Self);
+    if Assigned(fBusinessRules) then fBusinessRules.BeforeOpen(Self);
+
+    try
+      if not fFetching then begin
+        if fMasterLink.Active then
+          FetchMastersDetails(nil, nil, IgnoreAutoFetchSettings) // This calls InitializeDataTable possibily applying a new schema
+        else begin
+          if fCloneSource <> nil then begin
+            fCloneSource.Open;
+            if fCloneSource.Active then
+              CloneCursor(fCloneSource)
+            else
+              Exit;  
+          end  
+          else begin
+            if RemoteFetchEnabled then
+              LoadFromRemoteSource
+            else
+              LoadFromLocalSchema;
+          end;
+        end;
+      end;
+
+      if (moCascadeOpenClose in MasterOptions) then DoCascadeOperation(nil, moCascadeOpenClose);
+
+      if Assigned(AfterOpen) then AfterOpen(Self);
+      if Assigned(fBusinessRules) then fBusinessRules.AfterOpen(Self);
+    except
+      on E: Exception do begin
+        Close;
+        {$IFDEF DESIGNTIME}
+        if (csDesigning in ComponentState) then begin
+          SysUtils.Beep;
+          MessageDlg(E.Message, mtError, [mbOK], 0);
+        end
+        else
+        {$ENDIF DESIGNTIME}
+        raise;
+      end;
+    end;
+  finally
+    fOpening := FALSE;
+  end;
+end;
+
+procedure TDADataTable.Open;
+begin
+  DoOpen(True);
+end;
+
+
+procedure TDADataTable.OnMasterChange(Sender: TObject);
+begin
+  if (MasterSource <> nil) and (MasterSource.DataTable <> nil) then begin
+    if MasterSource.DataTable.fFetching then
+      exit;
+  end;
+
+  FetchMastersDetails;
+end;
+
+procedure TDADataTable.OnMasterDisable(Sender: TObject);
+begin
+
+end;
+
+procedure TDADataTable.LoadFromRemoteSource(BookmarkPosition: boolean = FALSE);
+begin
+  CheckProperties(True);
+  if Assigned(fOnBeforeDataRequestCall) then fOnBeforeDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall);
+  if Assigned(fBusinessRules) then fBusinessRules.OnBeforeDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall);
+  RemoteDataAdapter.Fill([self], BookmarkPosition, FieldCount = 0);
+  if Assigned(fOnAfterDataRequestCall) then fOnAfterDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall);
+  if Assigned(fBusinessRules) then fBusinessRules.OnAfterDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall);
+end;
+
+function TDADataTable.ApplyUpdates(RefetchAll: boolean = FALSE): boolean;
+begin
+  if (fCloneSource<>NIL) then begin
+    result := fCloneSource.ApplyUpdates(RefetchAll)
+  end
+  else if ruoOnPost in RemoteUpdatesOptions then begin
+    Post;
+    Result := True;
+  end
+  else begin
+    Result := InternalApplyUpdates(RefetchAll);
+  end;
+end;
+
+procedure TDADataTable.Assign(Source: TPersistent);
+var
+  lSource: TDADataTable;
+begin
+  inherited;
+  if Source is TDADataTable then begin
+    lSource := TDADataTable(Source);
+
+    Active := False;
+
+    AfterCancel := lSource.AfterCancel;
+    AfterClose := lSource.AfterClose;
+    AfterDelete := lSource.AfterDelete;
+    AfterEdit := lSource.AfterEdit;
+    AfterInsert := lSource.AfterInsert;
+    AfterOpen := lSource.AfterOpen;
+    AfterPost := lSource.AfterPost;
+    AfterRefresh := lSource.AfterRefresh;
+    AfterScroll := lSource.AfterScroll;
+    BeforeCancel := lSource.BeforeCancel;
+    BeforeClose := lSource.BeforeClose;
+    BeforeDelete := lSource.BeforeDelete;
+    BeforeEdit := lSource.BeforeEdit;
+    BeforeInsert := lSource.BeforeInsert;
+    BeforeOpen := lSource.BeforeOpen;
+    BeforePost := lSource.BeforePost;
+    BeforeRefresh := lSource.BeforeRefresh;
+    BeforeScroll := lSource.BeforeScroll;
+    BusinessRulesID := lSource.BusinessRulesID;
+    CustomAttributes := lSource.CustomAttributes;
+    DetailFields := lSource.DetailFields;
+    DetailOptions := lSource.DetailOptions;
+    Fields := lSource.Fields;
+    Filter := lSource.Filter;
+    Filtered := lSource.Filtered;
+    LocalConnection := lSource.LocalConnection;
+    LocalDataStreamer := lSource.LocalDataStreamer;
+    LocalSchema := lSource.LocalSchema;
+    LogChanges := lSource.LogChanges;
+    LogicalName := lSource.LogicalName;
+    MasterFields := lSource.MasterFields;
+    MasterMappingMode := lSource.MasterMappingMode;
+    MasterOptions := lSource.MasterOptions;
+    MasterParamsMappings := lSource.MasterParamsMappings;
+    MasterRequestMappings := lSource.MasterRequestMappings;
+    MasterSource := lSource.MasterSource;
+    MaxRecords := lSource.MaxRecords;
+    OnAfterApplyUpdates := lSource.OnAfterApplyUpdates;
+    OnAfterDataRequestCall := lSource.OnAfterDataRequestCall;
+    OnAfterDataUpdateCall := lSource.OnAfterDataUpdateCall;
+    OnAfterFieldChange := lSource.OnAfterFieldChange;
+    OnAfterMergeDelta := lSource.OnAfterMergeDelta;
+    OnAfterSchemaCall := lSource.OnAfterSchemaCall;
+    OnAfterScriptCall := lSource.OnAfterScriptCall;
+    OnBeforeApplyUpdates := lSource.OnBeforeApplyUpdates;
+    OnBeforeDataRequestCall := lSource.OnBeforeDataRequestCall;
+    OnBeforeDataUpdateCall := lSource.OnBeforeDataUpdateCall;
+    OnBeforeFieldChange := lSource.OnBeforeFieldChange;
+    OnBeforeMergeDelta := lSource.OnBeforeMergeDelta;
+    OnBeforeSchemaCall := lSource.OnBeforeSchemaCall;
+    OnBeforeScriptCall := lSource.OnBeforeScriptCall;
+    OnCalcFields := lSource.OnCalcFields;
+    OnDeleteError := lSource.OnDeleteError;
+    OnEditError := lSource.OnEditError;
+    OnFilterRecord := lSource.OnFilterRecord;
+    OnLocalUpdateDataBeginTransaction := lSource.OnLocalUpdateDataBeginTransaction;
+    OnLocalUpdateDataCommitTransaction := lSource.OnLocalUpdateDataCommitTransaction;
+    OnLocalUpdateDataRollBackTransaction := lSource.OnLocalUpdateDataRollBackTransaction;
+    OnNewRecord := lSource.OnNewRecord;
+    OnPostError := lSource.OnPostError;
+    OnReceiveDataStream := lSource.OnReceiveDataStream;
+    Params := lSource.Params;
+    ReadOnly := lSource.ReadOnly;
+    RemoteDataAdapter := lSource.RemoteDataAdapter;
+    RemoteUpdatesOptions := lSource.RemoteUpdatesOptions;
+    ScriptCode := lSource.ScriptCode;
+    StoreActive := lSource.StoreActive;
+    StreamingOptions := lSource.StreamingOptions;
+
+    RemoteFetchEnabled := lSource.RemoteFetchEnabled;
+    Active := lSource.Active;
+  end;
+end;
+
+procedure TDADataTable.LoadSchema(PreserveLookupFields : boolean = FALSE; PreserveClientCalcFields : boolean = FALSE);
+begin
+  if RemoteFetchEnabled then begin
+    CheckProperties(True);
+    if Assigned(fOnBeforeSchemaCall) then fOnBeforeSchemaCall(Self, RemoteDataAdapter.Get_GetSchemaCall);
+    if Assigned(fBusinessRules) then fBusinessRules.OnBeforeSchemaCall(self, RemoteDataAdapter.Get_GetSchemaCall);
+    RemoteDataAdapter.FillSchema([self], PreserveLookupFields, PreserveClientCalcFields);
+    if Assigned(fOnAfterSchemaCall) then fOnAfterSchemaCall(Self, RemoteDataAdapter.Get_GetSchemaCall);
+    if Assigned(fBusinessRules) then fBusinessRules.OnAfterSchemaCall(self, RemoteDataAdapter.Get_GetSchemaCall);
+  end
+  else begin
+    CheckProperties(False, True);
+    LoadLocalSchema(PreserveLookupFields, PreserveClientCalcFields);
+  end;
+end;
+
+procedure TDADataTable.LoadScript(aDatasetName : string = '');
+begin
+  CheckProperties(True);
+  if Assigned(fOnBeforeScriptCall) then fOnBeforeScriptCall(Self, RemoteDataAdapter.Get_GetScriptsCall);
+  if Assigned(fBusinessRules) then fBusinessRules.OnBeforeScriptCall(Self, RemoteDataAdapter.Get_GetScriptsCall);
+  RemoteDataAdapter.FillScripts([self]);
+  if Assigned(fOnAfterScriptCall) then fOnAfterScriptCall(Self, RemoteDataAdapter.Get_GetScriptsCall);
+  if Assigned(fBusinessRules) then fBusinessRules.OnAfterScriptCall(Self, RemoteDataAdapter.Get_GetScriptsCall);
+end;
+
+procedure TDADataTable.FetchMastersDetails(aMasterTable : TDADataTable = NIL; aRequestMappings : TStrings = NIL; IgnoreAutoFetchSettings: Boolean = False);
+
+   procedure CombineDynamicWhere(aWhereExpression:TDAWhereExpression);
+   begin
+     if fMasterMappingMode = mmWhere then begin
+       if fDynamicWhere.Expression = nil then
+         fDynamicWhere.Expression:= aWhereExpression
+       else
+         fDynamicWhere.Expression:= fDynamicWhere.NewBinaryExpression(fDynamicWhere.Expression,aWhereExpression,dboAnd);
+     end;
+   end;
+
+   procedure RevertDynamicWhere(aWhereExpression:TDAWhereExpression);
+   var
+     fUserWhereExpression: TDAWhereExpression;
+   begin
+     if fMasterMappingMode = mmWhere then begin
+       fUserWhereExpression:= nil;
+       if fDynamicWhere.Expression <> aWhereExpression then begin
+          fUserWhereExpression:= TDABinaryExpression(fDynamicWhere.Expression).Left;
+          TDABinaryExpression(fDynamicWhere.Expression).Left:=nil;
+       end;
+       fDynamicWhere.Clear;
+       fDynamicWhere.Expression:= fUserWhereExpression;
+     end;
+   end;
+
+
+   function GenerateWhereStatement: TDAWhereExpression;
+   var
+     lFieldName: string;
+     pos1, pos2: integer;
+     lfld1: TDAField;
+     lfld2: TDAField;
+     lExpression: TDAWhereExpression;
+   begin
+     //fDynamicWhere.Clear;
+     Pos1 := 1;
+     pos2 := 1;
+     Result:=nil;
+     while True do begin
+       if (Pos1 > Length(DetailFields)) and (Pos2 > Length(MasterFields)) then Break;
+
+       if ((Pos1 > Length(DetailFields)) and (Pos2 <= Length(MasterFields))) or
+          ((Pos1 <= Length(DetailFields)) and (Pos2 > Length(MasterFields))) then
+            RaiseError('DetailFields should have same number of items as MasterFields');
+
+       {$WARN SYMBOL_DEPRECATED OFF}
+       lFieldName:= ExtractFieldName(DetailFields, Pos1);
+       {$WARN SYMBOL_DEPRECATED ON}
+       lfld1 := FindField(lFieldName);
+       if lfld1 = nil then RaiseError('Invalid field name %s in DetailFields', [lFieldName]);
+       {$WARN SYMBOL_DEPRECATED OFF}
+       lFieldName:= ExtractFieldName(MasterFields, Pos2);
+       {$WARN SYMBOL_DEPRECATED ON}
+       lfld2 := MasterSource.DataTable.Fields.FindField(lFieldName);
+       if lfld2 = nil then RaiseError('Invalid field name %s in MasterFields', [lFieldName]);
+
+       lExpression := fDynamicWhere.NewBinaryExpression(
+         fDynamicWhere.NewField(LogicalName,lfld1.Name),
+         fDynamicWhere.NewConstant(lfld2.Value,lfld2.DataType),
+         dboEqual);
+
+       if Result <> nil then
+         Result:=fDynamicWhere.NewBinaryExpression(Result,lExpression,dboAnd)
+       else
+         Result:= lExpression;
+     end;
+   end;
+
+var
+  master: TDataset;
+  par: TDARemoteRequestParam;
+  fld: TDAField;
+  key: TDAMasterKeyID;
+  i: integer;
+  dofetch: boolean;
+  mappings : TStrings;
+  detailparam : TDAParam;
+  lmmWhereExpression: TDAWhereExpression;
+begin
+  if RemoteFetchEnabled then CheckProperties
+  else if not(Assigned(LocalSchema) and Assigned(LocalDataStreamer)) then begin
+    if fOpening then InitializeDataTable;
+    Exit;
+  end;
+
+  //
+  //
+  //  TODO: this doesnt properly use the new RDA's DMB yet. we need to discuss/rethink how to handle that!
+  //
+  //
+
+  mappings := NIL;
+
+  dofetch := (((dtAutoFetch in DetailOptions) or IgnoreAutoFetchSettings) {and RemoteFetchEnabled}) or (aMasterTable<>NIL);
+
+  if (aRequestMappings<>NIL) then mappings := aRequestMappings
+  else begin
+    case fMasterMappingMode of
+      mmDataRequest : mappings := MasterRequestMappings;
+      mmParams      : mappings := MasterParamsMappings;
+    end;
+  end;
+
+  if (aMasterTable<>NIL)
+    then master := aMasterTable.Dataset
+    else master := fMasterLink.DataSet;
+
+  if master = nil then exit;
+
+  if (master.RecordCount = 0) then begin
+    if not Active then InitializeDataTable; // Master opened with 0 records and detail wasn't open yet
+
+    Exit;
+  end
+  else if (MasterSource = nil) then Exit;
+  if (master.State=dsBrowse) and not((MasterSource.DataTable.State = dsInsert) or (Active and MasterSource.DataTable.Delta.IsNewRecord)) then begin
+    if dofetch then begin
+      // Determines if the details for this master have been fetched
+      key := GenerateKeyfromMasterRecID;
+      if not IsNeedToFetch(key) then begin
+        FreeMasterKey(Key);
+        Exit;
+      end;
+      try
+        if (fMasterMappingMode = mmWhere) or ((mappings<>NIL) and (mappings.Count > 0)) then begin
+          lmmWhereExpression:=nil;
+          if RemoteFetchEnabled then begin
+            // remotemode
+
+            // If not, then assigns the param values from the current master record,
+            // invokes the remote call and loads the data
+            case MasterMappingMode of
+              mmWhere: begin
+                lmmWhereExpression:=GenerateWhereStatement;
+              end;
+              mmDataRequest : begin
+                for i := 0 to (mappings.Count - 1) do begin
+                  par := nil;
+                  if RemoteDataAdapter.Get_GetDataCall <> nil then
+                    par := RemoteDataAdapter.Get_GetDataCall.Params.ParamByName(Trim(mappings.Names[i]));
+                  if (par=NIL) then RaiseError('Invalid parameter name %s in master mappings', [Trim(mappings.Names[i])]);
+
+                  fld := MasterSource.DataTable.Fields.FindField(Trim(mappings.Values[mappings.Names[i]]));
+                  if (fld=NIL) then RaiseError('Invalid field name %s in master mappings', [Trim(mappings.Values[mappings.Names[i]])]);
+
+                  if (par <> nil) and (fld <> nil) and not VarIsNull(fld.Value)
+                    then par.AsVariant := fld.Value
+                end;
+              end;
+              mmParams : begin
+                // Fills it in
+                for i := 0 to (mappings.Count - 1) do begin
+                  detailparam := Params.ParamByName(Trim(mappings.Names[i]));
+                  if (detailparam=NIL) then RaiseError('Invalid parameter name %s in param mappings', [Trim(mappings.Names[i])]);
+
+                  fld := MasterSource.DataTable.Fields.FindField(Trim(mappings.Values[mappings.Names[i]]));
+                  if (fld=NIL) then RaiseError('Invalid field name %s in param mappings', [Trim(mappings.Values[mappings.Names[i]])]);
+
+                  if (detailparam <> nil) and (fld <> nil) and not VarIsNull(fld.Value)
+                    then detailparam.Value := fld.Value
+                end;
+              end;
+            end;
+
+            CombineDynamicWhere(lmmWhereExpression);
+            try
+              LoadFromRemoteSource;
+            finally
+              RevertDynamicWhere(lmmWhereExpression);
+            end;
+
+            try
+              AddMasterKey(key);
+            except
+              raise Exception.CreateFmt('Master record %s has been fetched twice', [key]);
+            end;
+          end {  RemoteFetchEnabled  }else begin
+            // localmode
+
+            // If not, then assigns the param values from the current master record,
+            // invokes the remote call and loads the data
+            case MasterMappingMode of
+              mmWhere: begin
+                lmmWhereExpression := GenerateWhereStatement;
+              end;
+              mmParams: begin
+                // Fills it in
+                for i := 0 to (mappings.Count - 1) do begin
+                  detailparam := Params.ParamByName(Trim(mappings.Names[i]));
+                  if (detailparam=NIL) then RaiseError('Invalid parameter name %s in param mappings', [Trim(mappings.Names[i])]);
+
+                  fld := MasterSource.DataTable.Fields.FindField(Trim(mappings.Values[mappings.Names[i]]));
+                  if (fld=NIL) then RaiseError('Invalid field name %s in param mappings', [Trim(mappings.Values[mappings.Names[i]])]);
+
+                  if (detailparam <> nil) and (fld <> nil) and not VarIsNull(fld.Value) then detailparam.Value := fld.Value
+                end;
+              end;
+              mmDataRequest: raise Exception.Create('mmDataRequest mode only supported in RemoteFetchEnabled mode');
+            end;
+
+            CombineDynamicWhere(lmmWhereExpression);
+            try
+              LoadFromLocalSchema;
+            finally
+              RevertDynamicWhere(lmmWhereExpression);
+            end;
+
+            try
+              AddMasterKey(key);
+            except
+              raise Exception.CreateFmt('Master record %s has been fetched twice', [key]);
+            end;
+          end;
+        end else begin
+          { ALEF: I removed the code below because it was never meant to be here to begin with. Very error prone.
+                  Who added this???
+
+          // Automatics
+          for i := 0 to (DataRequestCall.Params.Count - 1) do begin
+            par := DataRequestCall.Params[i];
+            fld := MasterSource.DataTable.Fields.FindField(par.Name);
+
+            if (par <> nil) and (fld <> nil) and not VarIsNull(fld.Value) then par.Value := fld.Value;
+          end;}
+
+          RaiseError('There are no mappings defined. Cannot fetch records for detail table '+Name);
+        end;
+      except
+        FreeMasterKey(key);
+      end;
+    end; {dofetch}
+  end;
+end;
+
+procedure TDADataTable.WriteDeltaToStream(aStreamer: TDADataStreamer);
+var
+  i: integer;
+  details: TList;
+  lHasReducedDelta: Boolean;
+  oldMode: boolean;
+begin
+  // And the details' updates (if specified)
+  details := GetDetailTablesforApplyUpdate(False);
+  try
+    lHasReducedDelta:= fHasReducedDelta;
+    if not aStreamer.SendReducedDelta then begin
+      if not lHasReducedDelta then
+        for i := 0 to (details.Count - 1) do begin
+          lHasReducedDelta:= TDADataTable(details[i]).fHasReducedDelta;
+          if lHasReducedDelta then Break;
+        end;
+    end;
+    oldMode:=aStreamer.SendReducedDelta;
+    if lHasReducedDelta then aStreamer.SendReducedDelta:=True;
+    try
+      // Writes its own updates
+      if self.HasDelta then aStreamer.WriteDelta(Self);
+      for i := 0 to (details.Count - 1) do
+        TDADataTable(details[i]).WriteDeltaToStream(aStreamer);
+    finally
+      aStreamer.SendReducedDelta := oldMode;
+    end;
+  finally
+    details.Free;
+  end;
+end;
+
+procedure TDADataTable.ReadDeltaFromStream(aStreamer: TDADataStreamer;aFailedDeltas:TList);
+var
+  i: integer;
+  details: TList;
+begin
+  // Reads its own updates
+  if aStreamer.FindDeltaIndex(Self.LogicalName) <> -1 then begin
+    Delta.Clear;
+    aStreamer.ReadDelta(Self);
+    if Delta.Count>0 then fHasReducedDelta := aStreamer.HasReducedDelta;
+
+    For i := 0 to Delta.Count-1 do
+     if Delta.Changes[i].Status = csFailed then
+       aFailedDeltas.Add(Delta.Changes[i]);
+  end;
+
+  // And the details' updates (if specified)
+  details := GetDetailTablesforApplyUpdate(False);
+  try
+    for i := 0 to (details.Count - 1) do
+      TDADataTable(details[i]).ReadDeltaFromStream(aStreamer, aFailedDeltas);
+  finally
+    details.Free;
+  end;
+end;
+
+procedure TDADataTable.ReadDeltaFromStream(aStreamer: TDADataStreamer);
+var
+  i: integer;
+  details: TList;
+begin
+  Delta.Clear;// moved out of condition below. if there is no such delta in stream then all were fine on server side
+  // Reads its own updates
+  if aStreamer.FindDeltaIndex(Self.LogicalName) <> -1 then begin
+    //Delta.Clear;
+    aStreamer.ReadDelta(Self);
+    if Delta.Count>0 then fHasReducedDelta := aStreamer.HasReducedDelta;
+  end;
+
+  // And the details' updates (if specified)
+  details := GetDetailTablesforApplyUpdate(False);
+  try
+    for i := 0 to (details.Count - 1) do
+      TDADataTable(details[i]).ReadDeltaFromStream(aStreamer);
+  finally
+    details.Free;
+  end;
+end;
+
+procedure TDADataTable.MergeDelta;
+var
+  i, k, x: integer;
+  details: TList;
+//  dt: TDADataTable;
+//  ok : boolean;
+//  failed, pending, resolved : integer;
+  oldval, newval : Variant;
+  fld : TDAField;
+  pkfields : string;
+  oldopt : TDARemoteUpdatesOptions;
+  oldlog : boolean;
+  keynames: array of string;
+  keyvals : array of variant;
+  oldmastersource : TDADataSource;
+  lhasDelta: Boolean;
+  pk_array: array of boolean;
+  lReadOnly: boolean;
+  key_cnt: integer;
+begin
+  details:=GetDetailTablesforApplyUpdate(False);
+  try
+    //fOnBeforeMergeDelta
+    if Assigned(fOnBeforeMergeDelta) then fOnBeforeMergeDelta(Self);
+    {for i := 0 to details.Count-1 do begin
+       dt:= TDADataTable(details[i]);
+       if Assigned(dt.fOnBeforeMergeDelta) then dt.fOnBeforeMergeDelta(dt);
+    end;}
+
+    //fBusinessRules.OnBeforeMergeDelta
+    if Assigned(fBusinessRules) then fBusinessRules.OnBeforeMergeDelta(Self);
+    {for i := 0 to details.Count-1 do begin
+       dt:= TDADataTable(details[i]);
+       if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnBeforeMergeDelta(dt);
+    end;}
+
+    oldopt := RemoteUpdatesOptions;
+    oldlog := LogChanges;
+    oldmastersource := MasterSource;
+
+    lhasDelta := Delta.Count > 0;
+    if lhasDelta then begin
+      RemoteUpdatesOptions := RemoteUpdatesOptions-[ruoOnPost];
+      LogChanges := FALSE;
+      // Disables the M/D relationship so that Locates can work in all cases (master or detail tables, regardless
+      // of their positioning)
+      if not (ruoOnPost in oldopt) then MasterSource := NIL;
+    end;
+
+    try
+      pkfields := '';
+      key_cnt:=Delta.KeyFieldCount;
+      SetLength(keynames, key_cnt);
+      if key_cnt > 0 then begin
+        for i := 0 to (key_cnt-1) do
+          keynames[i]:=Delta.KeyFieldNames[i];
+      end
+      else begin
+        // use AutoInc as PK
+        SetLength(keynames, Delta.LoggedFieldCount);
+        for i := 0 to (Delta.LoggedFieldCount-1) do
+          if Delta.LoggedFieldTypes[i] in [datAutoInc, datLargeAutoInc] then begin
+            keynames[key_cnt]:=Delta.LoggedFieldNames[i];
+            inc(key_cnt);
+          end;
+        SetLength(keynames, key_cnt);          
+      end;
+
+      For i:=0 to key_cnt -1 do
+        pkfields := pkfields+keynames[i]+';';
+      if pkfields <> '' then pkfields := Copy(pkfields, 1, Length(pkfields)-1);
+      SetLength(keyvals, key_cnt);
+
+      // Merges the updates
+      if (Delta.Count>0) then begin
+        SetLength(pk_array, Delta.LoggedFieldCount);
+        for i := 0 to Delta.LoggedFieldCount - 1 do
+          pk_array[i]:=False;
+
+        for i := 0 to key_cnt - 1 do begin
+          x := Delta.IndexOfLoggedField(keynames[i]);
+          if x <> -1 then pk_array[x]:=True;
+        end;
+        for i := (Delta.Count-1) downto 0 do begin
+          if (Delta[i].Status = csPending) then continue;
+          if (Delta[i].ChangeType<>ctDelete) then begin
+            if (Self.State in [dsEdit, dsInsert]) and (ruoOnPost in oldopt) then begin
+              // Merge the details
+              for x := 0 to (details.Count - 1) do
+                TDADataTable(details[x]).MergeDelta;
+              for x := 0 to (Delta.LoggedFieldCount-1) do begin
+                fld := FindField(Delta.LoggedFieldNames[x]);
+                if fld <> nil then begin
+                  newval := Delta[i].NewValueByName[fld.Name];
+                  oldval := Delta[i].OldValueByName[fld.Name];
+                  if fHasReducedDelta then begin
+                    if not pk_array[x] and ROVariantsEqual(oldVal,newVal) then continue;
+                  end;
+                  if fld.ServerAutoRefresh or (not VarIsArray(newVal) and not ROVariantsEqual(newval,oldval)) then begin
+                    VariantToFieldValue(Delta[i].NewValueByName[fld.Name], fld);
+                  end;
+                end;
+              end;
+            end
+            else begin
+              for k := 0 to (key_cnt-1) do
+                keyvals[k] := Delta[i].OldValueByName[keynames[k]];
+
+              // Locates the original record
+              First;
+              if not Locate(pkfields, keyvals, []) then Continue;
+
+              // Merge the details
+              for x := 0 to (details.Count - 1) do
+                TDADataTable(details[x]).MergeDelta;
+
+              // Merges its own updates
+              Edit;
+              for x := 0 to (Delta.LoggedFieldCount-1) do begin
+                fld := FieldByName(Delta.LoggedFieldNames[x]);
+
+                newval := Delta[i].NewValueByName[fld.Name];
+                oldval := Delta[i].OldValueByName[fld.Name];
+                if fHasReducedDelta then begin
+                  if not pk_array[x] and ROVariantsEqual(oldVal,newVal) then continue;
+                end;
+                if fld.ServerAutoRefresh or (not VarIsArray(newVal) and (newval<>oldval)) then begin
+                  lReadOnly := fld.ServerAutoRefresh and fld.ReadOnly;
+                  if lReadOnly then fld.ReadOnly:=False;
+                  VariantToFieldValue(Delta[i].NewValueByName[fld.Name], fld);
+                  if lReadOnly then fld.ReadOnly:=True;
+                end;
+              end;
+              Post;
+            end;
+          end;
+          // Removes this merged change
+          if (Delta[i].Status = csResolved) then Delta.Delete(i);
+        end;
+      end
+
+      // If there are no updates for this master, the children still need to be processed
+      else begin
+        // Merge the details
+        for x := 0 to (details.Count - 1) do
+          TDADataTable(details[x]).MergeDelta;
+      end;
+    finally
+      if lhasDelta then begin
+        RemoteUpdatesOptions := oldopt;
+        LogChanges := oldlog;
+
+        // Restores the M/D relationship
+        if not (ruoOnPost in oldopt) then MasterSource := oldmastersource;
+      end;
+      //fOnAfterMergeDelta
+      if Assigned(fOnAfterMergeDelta) then fOnAfterMergeDelta(Self);
+      {for i := 0 to details.Count-1 do begin
+         dt:= TDADataTable(details[i]);
+         if Assigned(dt.fOnAfterMergeDelta) then dt.fOnAfterMergeDelta(dt);
+      end;}
+
+      //fBusinessRules.OnAfterMergeDelta
+      if Assigned(fBusinessRules) then fBusinessRules.OnAfterMergeDelta(Self);
+      {for i := 0 to details.Count-1 do begin
+         dt:= TDADataTable(details[i]);
+         if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnAfterMergeDelta(dt);
+      end;}
+    end;
+  finally
+    details.Free;
+    if Delta.Count = 0 then fHasReducedDelta:=False;
+  end;
+end;
+
+
+procedure TDADataTable.PackAllInOneFetchInfoArray(aDataTable : TDADataTable; OutArray: TDADatasetRequestInfoArray);
+var outinfo : TDADatasetRequestInfo;
+    details : TList;
+    dt : TDADataTable;
+    i : integer;
+begin
+  outinfo := outarray.Add;
+  outinfo.DatasetName := UTF8Encode(aDataTable.LogicalName);
+  outinfo.MaxRecords := aDataTable.MaxRecords;
+  outinfo.IncludeSchema := TRUE;
+  outinfo.Params := NIL;
+
+  details := aDataTable.GetDetailDataTables;
+  try
+    for i := 0 to (details.Count - 1) do begin
+      dt := TDADataTable(details[i]);
+
+      if (dtIncludeInAllInOneFetch in dt.DetailOptions)
+        then PackAllInOneFetchInfoArray(dt, OutArray);
+    end;
+  finally
+    details.Free;
+  end;
+end;
+
+function TDADataTable.FieldByName(const aName: string): TDAField;
+begin
+  result := fFields.FieldByName(aName)
+end;
+
+function TDADataTable.ParamByName(const aName: string): TDAParam;
+begin
+  result := fParams.ParamByName(aName)
+end;
+
+procedure TDADataTable.First;
+begin
+  fDataset.First
+end;
+
+procedure TDADataTable.Last;
+begin
+  fDataset.Last
+end;
+
+procedure TDADataTable.Prior;
+begin
+  fDataset.Prior
+end;
+
+procedure TDADataTable.Sort(const FieldNames: array of string; const Directions: array of TDASortDirection);
+var
+  i: integer;
+begin
+  DoSort(FieldNames, Directions);
+
+  // Stores the new settings for convenience
+  SetLength(fSortDirections, Length(Directions));
+  for i := 0 to Length(Directions) - 1 do
+    fSortDirections[i] := Directions[i];
+
+  SetLength(fSortFieldNames, Length(FieldNames));
+  for i := 0 to Length(FieldNames) - 1 do
+    fSortFieldNames[i] := FieldNames[i];
+end;
+
+procedure TDADataTable.UnSort;
+begin
+  Sort([], []);
+end;
+
+procedure TDADataTable.LoadFromStream(aStream: TStream);
+var
+  //remfetch,
+  oldlogchanges, oldcascadeopenclose: boolean;
+  lStreamer: TDADataStreamer;
+  i: integer;
+begin
+  Check(RemoteFetchEnabled, Name+'. Cannot do this operation when RemoteFetchEnabled is set to TRUE');
+  if RemoteDataAdapter <> nil then
+    lStreamer:=RemoteDataAdapter.DataStreamer
+  else
+    lStreamer:=LocalDataStreamer;
+
+  Check(lStreamer = nil, Name+'. RemoteDataAdapter or LocalDataStreamer must be assigned.');
+
+  Close;
+
+  oldlogchanges := LogChanges;
+//  remfetch := RemoteFetchEnabled;
+  oldcascadeopenclose := moCascadeOpenClose in fMasterOptions;
+
+//  RemoteFetchEnabled := FALSE;
+  LogChanges := FALSE;
+  if oldcascadeopenclose then fMasterOptions := fMasterOptions - [moCascadeOpenClose];
+  try
+    fStreaming := True;
+    lStreamer.Initialize(aStream, aiRead);
+    try
+      if not (soIgnoreStreamSchema in fStreamingOptions) then
+        lStreamer.ReadDataset(LogicalName, Self, TRUE)
+      else
+        lStreamer.ReadDataset(LogicalName, Self, FALSE);
+
+      lStreamer.ReadDelta(Self);
+      if Delta <> nil then
+        For i:= 0 to Delta.Count-1 do
+          if fCurrRecId <= Delta.Changes[i].RecID then
+            fCurrRecId := Delta.Changes[i].RecID+1;
+    finally
+      lStreamer.Finalize;
+      fStreaming := False;
+    end;
+  finally
+    LogChanges := oldlogchanges;
+//    RemoteFetchEnabled := remfetch;
+    if oldcascadeopenclose then begin
+      fMasterOptions := fMasterOptions + [moCascadeOpenClose];
+      fOpening := True;
+      try
+        DoCascadeOperation(nil, moCascadeOpenClose);
+      finally
+        fOpening := False;
+      end;
+    end;
+    if Active then First;
+  end;
+end;
+
+procedure TDADataTable.SaveToStream(aStream: TStream);
+var
+  lStreamer: TDADataStreamer;
+  OldMasterSource: TDADataSource;
+  oldFiltered: Boolean;
+begin
+  oldFiltered := False;
+  if (soDisableEventsWhileStreaming in fStreamingOptions) then DisableControls;
+  if (soDisableFiltering in fStreamingOptions) then begin
+    oldFiltered := Filtered;
+    Filtered := False;
+  end;
+
+  try
+    OldMasterSource := MasterSource;
+    MasterSource := nil;
+    fStreaming := True;
+    try
+      First; // Important!
+      if RemoteFetchEnabled then
+        lStreamer:= RemoteDataAdapter.DataStreamer
+      else
+        lStreamer:=LocalDataStreamer;
+      if lStreamer = nil then CheckProperties;
+      lStreamer.Initialize(aStream, aiWrite);
+      try
+        lStreamer.WriteDataset(Self, [woRows, woSchema]);
+        lStreamer.WriteDelta(Self);
+      finally
+        lStreamer.Finalize;
+      end;
+    finally
+      fStreaming := False;
+      MasterSource := OldMasterSource;
+    end;
+  finally
+    if (soDisableFiltering in fStreamingOptions) then begin
+      Filtered := oldFiltered;
+    end;
+    if (soDisableEventsWhileStreaming in fStreamingOptions) then EnableControls;
+  end;
+end;
+
+procedure TDADataTable.LoadFromFile(const aFileName: string);
+var
+  fs: TFileStream;
+  oldval : boolean;
+begin
+  oldval := RemoteFetchEnabled;
+  RemoteFetchEnabled := FALSE;
+  try
+    fs := TFileStream.Create(aFileName, fmOpenRead);
+    try
+      LoadFromStream(fs);
+    finally
+      fs.Free;
+    end;
+  finally
+    RemoteFetchEnabled := oldval;
+  end;
+end;
+
+procedure TDADataTable.SaveToFile(const aFileName: string);
+var
+  fs: TFileStream;
+begin
+  fs := TFileStream.Create(aFileName, fmCreate);
+  try
+    SaveToStream(fs);
+  finally
+    fs.Free;
+  end;
+end;
+
+procedure TDADataTable.SetParams(const Value: TDAParamCollection);
+begin
+  fParams.Assign(Value);
+end;
+
+procedure TDADataTable.ClearFields;
+var
+  i: integer;
+begin
+  for i := 0 to FieldCount - 1 do
+    Fields[i].Value := Null;
+end;
+
+procedure TDADataTable.ClearRows(const aClearDelta: Boolean = False);
+var
+  lold_Filtered: Boolean;
+  lold_logChanges: boolean;
+begin
+  lold_Filtered:= Filtered;
+  lold_logChanges := LogChanges;
+//  DisableControls;
+  try
+    Filtered := False;
+    if aClearDelta then LogChanges := False;
+    if DeltaInitialized then GetDelta.CancelChangesInAllTables;
+    while (RecordCount > 0) do Delete;
+    if aClearDelta and DeltaInitialized then GetDelta.Clear;
+  finally
+    Filtered := lold_Filtered;
+    LogChanges := lold_logChanges;
+//    EnableControls;
+  end;
+end;
+
+function TDADataTable.GetState: TDataSetState;
+begin
+  result := fDataset.State
+end;
+
+function TDADataTable.GetEditing: boolean;
+begin
+  result := State in [dsEdit, dsInsert]
+end;
+
+function TDADataTable.GetPrepared: boolean;
+begin
+  result := FALSE
+end;
+
+procedure TDADataTable.SetPrepared(Value: boolean);
+begin
+
+end;
+
+function TDADataTable.GetText: string;
+begin
+  result := ''
+end;
+
+procedure TDADataTable.SetText(const Value: string);
+begin
+
+end;
+
+procedure TDADataTable.Notification(AComponent: TComponent;
+  Operation: TOperation);
+var
+  i: Integer;
+begin
+  inherited;
+
+  if (Operation = opRemove) then begin
+    if (AComponent = fLocalSchema) then fLocalSchema := nil;
+    if (AComponent = fRemoteDataAdapter) then fRemoteDataAdapter := nil;
+    if (AComponent = fLocalDataStreamer) then fLocalDataStreamer := nil;
+    if AComponent is TDataSource then begin
+      for i := 0 to Fields.Count - 1 do begin
+        if Fields[i].LookupSource = AComponent then
+          Fields[i].LookupSource := nil;
+      end;
+    end;
+
+  end;
+
+end;
+
+procedure TDADataTable.SetMasterSource(const Value: TDADataSource);
+begin
+  fMasterLink.DataSource := Value;
+end;
+
+procedure TDADataTable.SetMasterFields(const Value: string);
+begin
+  fMasterLink.FieldNames := Value;
+end;
+
+function TDADataTable.GetMasterRequestMappings: TStrings;
+begin
+  result := fMasterRequestMappings;
+end;
+
+procedure TDADataTable.SetMasterRequestMappings(const Value: TStrings);
+begin
+  fMasterRequestMappings.Assign(Value);
+end;
+
+function TDADataTable.GetDetailDataTables: TList;
+var
+  i: integer;
+  ownerdt: TDADataTable;
+  dtdataset: IDADataTableDataset;
+  tmplist: TList;
+begin
+  // This function only returns the linked datatables and removes duplicates
+  // from the GetDetailDataSets call. I assume the duplicates are because of
+  // the masterlink TDADatatables create.
+
+  result := TList.Create;
+  tmplist := TList.Create;
+
+  try
+    {$IFNDEF FPC}
+    Dataset.GetDetailDataSets(tmplist);
+    {$ENDIF}
+    for i := 0 to (tmplist.Count - 1) do begin
+      if not Supports(TDataset(tmplist[i]), IDADataTableDataset, dtdataset) then Continue;
+      ownerdt := dtdataset.GetDataTable;
+
+      if (result.IndexOf(ownerdt) < 0) then result.Add(ownerdt);
+    end;
+  finally
+    tmplist.Free;
+  end;
+end;
+
+function TDADataTable.GetDelta: IDADelta;
+begin
+  if UsingClonedCursor then
+    Result := fCloneSource.GetDelta
+  else
+    Result := fDelta;
+  if (Result = nil) then raise Exception.Create('Delta has not yet been initialized by the datatable');
+end;
+
+function TDADataTable.GetName: string;
+begin
+  if (LogicalName = '') then
+    result := Name
+  else
+    result := LogicalName;
+end;
+
+procedure TDADataTable.DoAfterCloseDataset;
+begin
+  CallScript('AfterClose');
+  fCloneSource := NIL;
+end;
+
+procedure TDADataTable.DoAfterOpenDataset;
+begin
+  CallScript('AfterOpen');
+
+  if Assigned(fAfterOpenIDataset) then fAfterOpenIDataset(Self, '', ROGetTickCount-fOpenTick);
+end;
+
+procedure TDADataTable.DoBeforeCloseDataset;
+begin
+  if (fCloneSource<>NIL) then Fields.Clear;
+  CallScript('BeforeClose');
+end;
+
+procedure TDADataTable.CloneSelectedRecord(Source: TDADataTable; DoPost: boolean = TRUE);
+begin
+  CloneSelectedRecord(Source as IDADataset, DoPost);
+end;
+
+procedure TDADataTable.CloneSelectedRecord(const Source: IDADataset; DoPost: boolean = TRUE);
+var
+  i: integer;
+  destfld,
+    srcfld: TDAField;
+  lreadonly: boolean;
+begin
+  Insert;
+  for i := 0 to (Source.FieldCount - 1) do begin
+    srcfld := Source.Fields[i];
+    destfld := Fields.FindField(srcfld.Name);
+    lreadonly := destfld.ReadOnly;
+    destfld.ReadOnly := False;
+    try
+      if destfld <> nil then destfld.Value := srcfld.Value;
+    finally
+      destfld.ReadOnly := lreadonly;
+    end;
+  end;
+  if DoPost then Post;
+end;
+
+procedure TDADataTable.FreeBookmark(Bookmark: TBookmark);
+begin
+  Dataset.FreeBookmark(Bookmark);
+end;
+
+function TDADataTable.GetBookmark: TBookmark;
+begin
+  result := Dataset.GetBookmark;
+end;
+
+procedure TDADataTable.GotoBookmark(Bookmark: TBookmark);
+begin
+  Dataset.GotoBookmark(Bookmark);
+end;
+
+function TDADataTable.GetRowRecIDValue: integer;
+begin
+  result := fRecIDField.AsInteger
+end;
+
+procedure TDADataTable.DisableEventHandlers;
+begin
+  DetachEventHooks(Dataset);
+end;
+
+procedure TDADataTable.EnableEventHandlers;
+begin
+  AttachEventHooks(Dataset);
+end;
+
+procedure TDADataTable.Refresh;
+begin
+  fDataset.Refresh;
+end;
+
+procedure TDADataTable.RefreshFromServer;
+begin
+  if (not Active) or (FieldCount = 0) then begin
+    Open;
+  end
+  else begin
+    CheckProperties;
+    Check(Delta.Count > 0, Name+': Can''t perform RefreshFromServer - uncommited changes are present');
+    if RemoteFetchEnabled then begin
+      if Assigned(fOnBeforeDataRequestCall) then fOnBeforeDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall);
+      if Assigned(fBusinessRules) then fBusinessRules.OnBeforeDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall);
+      RemoteDataAdapter.Fill([self], True, False, True);
+      if Assigned(fOnAfterDataRequestCall) then fOnAfterDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall);
+      if Assigned(fBusinessRules) then fBusinessRules.OnAfterDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall);
+    end
+    else begin
+      LoadFromLocalSchema(True);
+    end;
+  end;
+end;
+
+procedure TDADataTable.SetLocalDataStreamer(const Value: TDADataStreamer);
+begin
+  if fLocalDataStreamer <> Value then begin
+    if (fLocalDataStreamer <> nil) then fLocalDataStreamer.RORemoveFreeNotification(Self);
+    fLocalDataStreamer := Value;
+    if (fLocalDataStreamer <> nil) then fLocalDataStreamer.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TDADataTable.SetLocalSchema(const Value: TDASchema);
+begin
+  if fLocalSchema <> Value then begin
+    if (fLocalSchema <> nil) then fLocalSchema.RORemoveFreeNotification(Self);
+    fLocalSchema := Value;
+    if (fLocalSchema <> nil) then begin
+      fLocalSchema.ROFreeNotification(Self);
+
+      if not (csLoading in ComponentState) then RemoteFetchEnabled := FALSE;
+    end;
+  end;
+end;
+
+function TDADataTable.DataReaderFirst: boolean;
+begin
+  result := RecordCount > 0;
+  if result then First;
+end;
+
+function TDADataTable.DataReaderNext: boolean;
+begin
+  result := not EOF;
+  if result then Next;
+end;
+
+function TDADataTable.GetAsBoolean(Index: integer): boolean;
+begin
+  result := fFields[Index].AsBoolean;
+end;
+
+function TDADataTable.GetAsBoolean(const FieldName: string): boolean;
+begin
+  result := FieldByName(FieldName).AsBoolean;
+end;
+
+function TDADataTable.GetAsCurrency(Index: integer): Currency;
+begin
+  Result:= fFields[Index].AsCurrency;
+end;
+
+function TDADataTable.GetAsCurrency(const FieldName: string): currency;
+begin
+  result := FieldByName(FieldName).AsCurrency;
+end;
+
+function TDADataTable.GetAsDateTime(const FieldName: string): TDateTime;
+begin
+  result := FieldByName(FieldName).AsDateTime;
+end;
+
+function TDADataTable.GetAsDateTime(Index: integer): TDateTime;
+begin
+  result := fFields[Index].AsDateTime;
+end;
+
+function TDADataTable.GetAsFloat(const FieldName: string): double;
+begin
+  result := FieldByName(FieldName).AsFloat;
+end;
+
+function TDADataTable.GetAsFloat(Index: integer): double;
+begin
+  result := fFields[Index].AsFloat;
+end;
+
+function TDADataTable.GetAsInteger(Index: integer): integer;
+begin
+  result := fFields[Index].AsInteger;
+end;
+
+function TDADataTable.GetAsInteger(const FieldName: string): integer;
+begin
+  result := FieldByName(FieldName).AsInteger;
+end;
+
+function TDADataTable.GetAsString(const FieldName: string): string;
+begin
+  result := FieldByName(FieldName).AsString;
+end;
+
+function TDADataTable.GetAsString(Index: integer): string;
+begin
+  result := fFields[Index].AsString;
+end;
+
+function TDADataTable.GetAsVariant(const FieldName: string): variant;
+begin
+  result := FieldByName(FieldName).Value;
+end;
+
+function TDADataTable.GetAsVariant(Index: integer): variant;
+begin
+  result := fFields[Index].Value
+end;
+
+function TDADataTable.GetFieldIndexes(const aName: string): integer;
+begin
+  result := fFields.FindItem(aName).Index
+end;
+
+function TDADataTable.GetFieldNames(Index: integer): string;
+begin
+  result := fFields[Index].Name
+end;
+
+procedure TDADataTable.SetBusinessRulesID(const Value: string);
+var
+  bizclass: TDADataTableRulesClass;
+begin
+  if (Value = fBusinessRulesID) then Exit;
+
+  if Assigned(fBusinessRules) then begin
+    fBusinessRules.Detach(Self);
+    FreeAndNIL(fBusinessRules);
+  end;
+
+  fBusinessRulesID := Trim(Value);
+
+  if (fBusinessRulesID <> '') and not (csDesigning in ComponentState) then begin
+    Check(not FindDataTableRules(Value, bizclass), 'Invalid BusinessRulesID "%s"', [Value]);
+
+    fBusinessRules := bizclass.Create(Self);
+    fBusinessRules.Attach(Self);
+  end;
+end;
+
+function TDADataTable.QueryInterface(const IID: TGUID; out Obj): HResult;
+begin
+  result := inherited QueryInterface(IID, Obj);
+
+  if (result <> S_OK) and Assigned(fBusinessRules) then begin
+    // Users might introduce specific interfaces at the business rule level
+    // This allows to type cast the data table to any additional business oriented interface
+    // they decide to create.
+    result := fBusinessRules.QueryInterface(IID, Obj);
+  end;
+end;
+
+function TDADataTable.GetHasDelta: boolean;
+begin
+  result := DeltaInitialized and (GetDelta.Count > 0);
+end;
+
+function TDADataTable.GetHasDeltaRecursive: boolean;
+var
+  lDetails: TList;
+  lTable: TDADataTable;
+  i: integer;
+begin
+  result := DeltaInitialized and (GetDelta.Count > 0);
+  if not result then begin
+    lDetails := nil;
+    if (moCascadeApplyUpdates in fMasterOptions) then try
+      lDetails := GetDetailDataTables;
+      for i := 0 to (lDetails.Count-1) do begin
+        lTable := TDADataTable(lDetails[i]);
+        if lTable.HasDeltaRecursive then begin
+          result := true;
+          exit;
+        end;
+      end;
+    finally
+      lDetails.Free;
+    end;
+  end;
+end;
+
+function TDADataTable.GetMasterDataTable: TDADataTable;
+var lDatatableDataset : IDADataTableDataset;
+begin
+  if Supports(fMasterLink.DataSet, IDADataTableDataset, lDatatableDataset)
+    then result := lDatatableDataset.GetDataTable
+    else result := NIL;
+end;
+
+function TDADataTable.GetRecNo: integer;
+begin
+  result := fDataset.RecNo
+end;
+
+procedure TDADataTable.SetRecNo(const Value: integer);
+begin
+  fDataset.RecNo := Value
+end;
+
+function TDADataTable.GetFieldsProperty: TDAFieldCollection;
+begin
+  result := GetFields;
+end;
+
+function TDADataTable.GetActiveProperty: boolean;
+begin
+  result := GetActive();
+end;
+
+procedure TDADataTable.SetActiveProperty(const Value: boolean);
+begin
+  SetActive(Value);
+end;
+
+function TDADataTable.GetParamsProperty: TDAParamCollection;
+begin
+  result := GetParams();
+end;
+
+{$IFDEF MSWINDOWS}
+function TDADataTable.InterfaceSupportsErrorInfo(const iid: TGUID): HResult;
+begin
+  if GetInterfaceEntry(iid) <> nil then
+    Result := S_OK
+  else
+    Result := S_FALSE;
+end;
+
+function TDADataTable.SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult;
+begin
+  Result := uDAEngine.DAHandleSafeCallException(self,ExceptObject, ExceptAddr);
+end;
+{$ENDIF}
+
+procedure TDADataTable.CancelUpdates(IncludeDetails: boolean);
+var list : TList;
+    i,  orignextinc : integer;
+    wasfiltered,
+    remotefetch : boolean;
+    lOldMasterFields: string;
+    IRC: IDARangeController;
+begin
+  if DeltaInitialized then GetDelta.CancelChangesInAllTables;
+  if not LogChanges then Exit;
+
+  DisableControls;
+  wasfiltered := Filtered;
+  Filtered := FALSE;
+  if GetRangeState and (QueryInterface(IDARangeController,IRC) = 0) then IRC.CancelRange else IRC := nil;
+  try
+    // Truns off the remote fetching for this datatable and its details
+    remotefetch := RemoteFetchEnabled;
+    RemoteFetchEnabled := FALSE;
+    if IncludeDetails then list := GetDetailDataTables else list := TList.Create;
+
+    // Disable the log of changes (we're about to make a bunch!)
+    LogChanges := FALSE;
+
+    // Saves the current recinc (we'll change this during the restore)
+    orignextinc := CurrRecId;
+    try
+      lOldMasterFields := MasterFields;
+      MasterFields := '';
+      try
+        // Reverts the records to the original state
+        for i := 0 to (Delta.Count-1) do
+          InternalCancelUpdateChange(Delta[i]);
+      finally
+        MasterFields := lOldMasterFields;
+      end;
+
+      // Cancels the updates for the details
+      for i := 0 to list.Count-1 do begin
+        TDADataTable(list[i]).CancelUpdates(TRUE);
+      end;
+
+      // Erases the delta
+      Delta.Clear;
+
+    finally
+      fHasReducedDelta:=False;
+      list.Free;
+      CurrRecId := orignextinc;
+      LogChanges := TRUE;
+      RemoteFetchEnabled := remotefetch;
+    end;
+  finally
+    if IRC <> nil then IRC.ApplyRange;
+    Filtered := wasfiltered;
+    EnableControls;
+  end;
+end;
+
+procedure TDADataTable.DoBeforeOpenDataset;
+begin
+  CallScript('BeforeOpen');
+
+  fOpenTick := ROGetTickCount;
+  if Assigned(fBeforeOpenIDataset) then fBeforeOpenIDataset(Self);
+end;
+
+function TDADataTable.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  result := fDataset.Lookup(KeyFields, KeyValues, ResultFields);
+end;
+
+function TDADataTable.GetIsEmpty: boolean;
+begin
+  result := fDataset.IsEmpty;
+end;
+
+function TDADataTable.GetMasterParamsMappings: TStrings;
+begin
+  result := fMasterParamsMappings
+end;
+
+procedure TDADataTable.SetMasterParamsMappings(const Value: TStrings);
+begin
+  fMasterParamsMappings.Assign(Value);
+end;
+
+function TDADataTable.GetLogicalName: string;
+begin
+  result := fLogicalName;
+end;
+
+function TDADataTable.GetReadOnly: boolean;
+begin
+  result := FALSE;
+end;
+
+procedure TDADataTable.SetReadOnly(const Value: boolean);
+begin
+  // By default this property cannot be set. Raising exceptions creates problems
+  // at design time and it's useless
+end;
+
+procedure TDADataTable.SetScriptCode(const Value: TStrings);
+begin
+  fScriptCode.Assign(Value);
+end;
+
+procedure TDADataTable.CallScript(const aEvent: string);
+begin
+  if Assigned(ScriptingProvider) and (ScriptCode.Count > 0) then begin
+    (ScriptingProvider as IDADataTableScriptingProvider).RunDataTableScript(self, ScriptCode.Text, aEvent, rslPascalScript);
+  end;
+end;
+
+function TDADataTable.FindField(const aName: string): TDAField;
+begin
+  result := fFields.FindField(aName);
+end;
+
+procedure TDADataTable.AddMasterKey(aKey: TDAMasterKeyID);
+begin
+  fFetchedMasters.Add(aKey);
+end;
+
+procedure TDADataTable.AddRecord(const FieldNames: array of string;
+  const FieldValues: array of Variant);
+var i : integer;
+begin
+  Insert;
+  for i := 0 to Length(FieldNames)-1 do
+    FieldByName(FieldNames[i]).Value := FieldValues[i];
+  Post;
+end;
+
+procedure TDADataTable.SetLogicalName(aName: string);
+begin
+  fLogicalName := aName;
+end;
+
+function TDADataTable.GetDeltaInitialized: boolean;
+begin
+  if UsingClonedCursor then Result := fCloneSource.GetDeltaInitialized
+  else Result := Assigned(fDelta);
+end;
+
+procedure TDADataTable.NotifyFieldsClear;
+var
+  i, lLockCount: integer;
+begin
+  // This method patches VCL issue with notification
+  // of datasources when clearing fields and controls is disabled
+  lLockCount := 0;
+  while DataSet.ControlsDisabled do begin
+    inc(lLockCount);
+    DataSet.EnableControls;
+  end;
+  TDataSetHack(DataSet).DataEvent(deFieldListChange, 0);
+  for i := 0 to lLockCount - 1 do begin
+    DataSet.DisableControls;
+  end;
+end;
+
+function TDADataTable.GetOnAfterOpen: TDAAfterOpenDatasetEvent;
+begin
+  result := fAfterOpenIDataset;
+end;
+
+function TDADataTable.GetOnBeforeOpen: TDABeforeOpenDatasetEvent;
+begin
+  result := fBeforeOpenIDataset;
+end;
+
+procedure TDADataTable.SetOnAfterOpen(
+  const Value: TDAAfterOpenDatasetEvent);
+begin
+  fAfterOpenIDataset := Value;
+end;
+
+procedure TDADataTable.SetOnBeforeOpen(
+  const Value: TDABeforeOpenDatasetEvent);
+begin
+  fBeforeOpenIDataset := Value;
+end;
+
+function TDADataTable.GetOnAfterExecute: TDAAfterExecuteCommandEvent;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+function TDADataTable.GetOnBeforeExecute: TDABeforeExecuteCommandEvent;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+procedure TDADataTable.SetOldMasterKey(aKey: TDAMasterKeyID);
+begin
+  FreeMasterKey(fOldMasterKey);
+  fOldMasterKey := aKey;
+end;
+
+procedure TDADataTable.SetOnAfterExecute(
+  const Value: TDAAfterExecuteCommandEvent);
+begin
+  NotSupported();
+end;
+
+procedure TDADataTable.SetOnBeforeExecute(
+  const Value: TDABeforeExecuteCommandEvent);
+begin
+  NotSupported();
+end;
+
+function TDADataTable.GetOnExecuteError: TDAExecuteCommandErrorEvent;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+function TDADataTable.GetOnOpenError: TDAOpenDatasetErrorEvent;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+procedure TDADataTable.SetOnExecuteError(
+  const Value: TDAExecuteCommandErrorEvent);
+begin
+  NotSupported();
+end;
+
+procedure TDADataTable.SetOnOpenError(
+  const Value: TDAOpenDatasetErrorEvent);
+begin
+  NotSupported();
+end;
+
+function TDADataTable.GetCurrRecId: integer;
+begin
+  if CloneSource = nil then
+    result := fCurrRecId
+  else
+    result := CloneSource.CurrRecId;
+end;
+
+procedure TDADataTable.SetCurrRecId(const Value: integer);
+begin
+  if CloneSource = nil then
+    fCurrRecId := Value
+  else
+    CloneSource.CurrRecId := Value
+end;
+
+function TDADataTable.GetAutoIncs: TAutoIncArray;
+begin
+  if CloneSource = nil then
+    result := fAutoIncs
+  else
+    result := CloneSource.AutoIncs;
+end;
+
+procedure TDADataTable.SetAutoIncs(const Value: TAutoIncArray);
+begin
+  if CloneSource = nil then
+    fAutoIncs := Value
+  else
+    CloneSource.AutoIncs := Value
+end;
+
+function TDADataTable.CreateAutoIncArray: TAutoIncArray;
+var i: integer;
+begin
+  SetLength(result, Fields.Count);
+  for i := 0 to Fields.Count-1 do result[i] := -1;
+end;
+
+function TDADataTable.GetCurrentRecIdValue: integer;
+begin
+  result := fCurrRecId;
+end;
+
+procedure TDADataTable.SetCurrentRecIdValue(Value: integer);
+begin
+  fCurrRecId := Value;
+end;
+
+procedure TDADataTable.InternalAfterFieldUpdate(Sender: TDACustomField);
+begin
+  if assigned(fAfterFieldChange) and (Sender is TDAField) then
+    fAfterFieldChange(self, TDAField(Sender));
+end;
+
+procedure TDADataTable.InternalBeforeFieldUpdate(Sender: TDACustomField);
+begin
+  if assigned(fBeforeFieldChange) and (Sender is TDAField) then
+    fBeforeFieldChange(self, TDAField(Sender));
+end;
+
+procedure TDADataTable.InternalSetFetching(aFetching: boolean);
+begin
+ fFetching := aFetching;
+end;
+
+function TDADataTable.IsCanEditCurrentRow: Boolean;
+begin
+  Result := GetDeltaInitialized and GetDelta.IsCanEditCurrentRow(Self);
+end;
+
+function TDADataTable.IsNeedToFetch(AKey: TDAMasterKeyID):Boolean;
+begin
+  Result := fFetchedMasters.IndexOf(aKey) = -1;
+end;
+
+procedure TDADataTable.SetCustomAttributes(const Value: TStrings);
+begin
+  fCustomAttributes.Assign(Value);
+end;
+
+function TDADataTable.Local_ApplyUpdates(RefetchAll: boolean): boolean;
+
+  function UnpackDeltas(var lStruct: TDADeltaStruct): TDABusinessProcessor;
+  var
+    j: integer;
+    lBizProc: TDABusinessProcessor;
+    lDetails: TDADatasetRelationshipList;
+    lFound: boolean;
+  begin
+    result := nil;
+    lStruct := nil;
+    // Reads the deltas.
+    lFound := false;
+    { Tries to locate a user-defined business processor }
+    if LocalSchema.Owner <> nil then
+      for j := 0 to (LocalSchema.Owner.ComponentCount - 1) do begin
+        if (LocalSchema.Owner.Components[j] is TDABusinessProcessor) then begin
+          lBizProc := TDABusinessProcessor(LocalSchema.Owner.Components[j]);
+          if SameText(lBizProc.ReferencedDataset, Self.LogicalName) then begin
+            lStruct := TDADeltaStruct.Create(Self.Delta, lBizProc);
+            lFound := true;
+            Break;
+          end;
+        end;
+      end;
+    { Either creates one}
+    if not lFound then begin
+      lBizProc := TDABusinessProcessor.Create(nil);
+      lBizProc.ReferencedDataset := Self.LogicalName;
+      lBizProc.Schema := LocalSchema;
+      Result := lBizProc;
+      lStruct := TDADeltaStruct.Create(Self.Delta, lBizProc);
+    end;
+
+    { Sets the master/detail relationships }
+    if (LocalSchema.RelationShips.Count > 0) then begin
+      lDetails := TDADatasetRelationshipList.Create;
+      try
+        LocalSchema.RelationShips.GetDetails(lStruct.BusinessProcessor.ReferencedDataset, lDetails);
+        if (lDetails.Count <> 0) then begin
+          { Prepares an array with the references to the detail deltas that will be used later on to adjust
+            autoincs, etc. }
+          for j := 0 to lDetails.Count - 1 do begin
+            if lDetails[j].DetailDatasetName = LogicalName then begin
+              lStruct.DetailDeltas.Add(lStruct.Delta);
+              lStruct.RelationShips.Add(lDetails[j]);
+            end;
+          end;
+        end;
+      finally
+        lDetails.Free;
+      end;
+    end;
+  end;
+
+var
+  lProcessedDeltas: TStringList;
+  lStruct: TDADeltaStruct;
+  lBizProc: TDABusinessProcessor;
+  i, j: integer;
+begin
+  Result:=False;
+  CheckProperties;
+  FLocConnection := LocalSchema.ConnectionManager.NewConnection(LocalConnection);
+  if (Delta = nil) or (Delta.Count = 0) then Exit;
+  lBizProc := UnpackDeltas(lStruct);
+  try
+    if TriggerTransactionEvent(fOnLocalUpdateDataBeginTransaction) then FLocConnection.BeginTransaction;
+    try
+      if (LocalSchema.UpdateRules.Count = 0) then begin
+         lStruct.BusinessProcessor.ProcessDelta(FLocConnection, lStruct.Delta, AllChanges);
+      end
+      else begin
+        lProcessedDeltas := TStringList.Create;
+        try
+
+          for i := 0 to (LocalSchema.UpdateRules.Count - 1) do begin
+            // Processes them in the order defined in the schema
+            if LocalSchema.UpdateRules[i].DatasetName = LogicalName then begin
+              // Adds the dataset name to the list of processed deltas. Those that don't have update rules will be processed later
+              lProcessedDeltas.Add(LogicalName);
+
+              // Processes the delta
+              lStruct.BusinessProcessor.ProcessDelta(FLocConnection, lStruct.Delta, LocalSchema.UpdateRules[i].ChangeTypes, lStruct);
+
+              if (ctInsert in LocalSchema.UpdateRules[i].ChangeTypes) then begin
+                for j := 0 to (lStruct.DetailDeltas.Count - 1) do
+                  lStruct.BusinessProcessor.SynchronizeAutoIncs(lStruct.Delta, lStruct.DetailDeltas[j], lStruct.RelationShips[j]);
+              end;
+            end;
+          end;
+          // Processes the deltas for which update rules were not defined
+          if lProcessedDeltas.IndexOf(LogicalName) = -1 then
+            lStruct.BusinessProcessor.ProcessDelta(FLocConnection, lStruct.Delta, AllChanges);
+        finally
+          lProcessedDeltas.Free;
+        end;
+      end;
+      if FLocConnection.InTransaction and TriggerTransactionEvent(fOnLocalUpdateDataCommitTransaction) then FLocConnection.CommitTransaction;
+      MergeDelta;
+      Result:=True;
+    except
+      on E: Exception do begin
+        if FLocConnection.InTransaction and TriggerTransactionEvent(fOnLocalUpdateDataRollBackTransaction) then FLocConnection.RollbackTransaction;
+        raise;
+      end;
+    end;
+  finally
+    if lStruct <> nil then lStruct.Free;
+    if lBizProc <> nil then lBizProc.Free;
+    FLocConnection := nil;
+  end;
+  if RefetchAll and result then begin
+    if Active then Close;
+    Open;
+  end;
+end;
+
+procedure TDADataTable.GetDetailTablesforAllinOneFetch(aRemote, aLocal:TList; aRecursive: boolean);
+var
+ i: integer;
+ dt: TDADataTable;
+ dtList: TList;
+ scc: IDAClonedCursorsSupport;
+begin
+  if (moAllInOneFetch in fMasterOptions) then begin
+    dtList:=GetDetailDataTables;
+    try
+      for i := 0 to dtList.Count-1 do begin
+        dt := TDADataTable(dtList[i]);
+        if (dtIncludeInAllInOneFetch in dt.DetailOptions) then begin
+          if (dt.QueryInterface(IDAClonedCursorsSupport, scc) = S_OK) and scc.UsingClonedCursor then begin
+            dt:= scc.CloneSource;
+          end;
+
+          if self.RemoteFetchEnabled and dt.RemoteFetchEnabled and (dt.RemoteDataAdapter = Self.RemoteDataAdapter) then begin
+            if aRemote.IndexOf(dt) = -1 then aRemote.Add(dt);
+          end
+          else begin
+            if aLocal.IndexOf(dt) = -1 then aLocal.Add(dt);
+          end;
+          if aRecursive then dt.GetDetailTablesforAllinOneFetch(aRemote,aLocal, aRecursive);
+        end;
+      end;
+    finally
+      dtList.Free;
+    end;
+  end
+end;
+
+{$IFDEF FPC}
+procedure List_Union(List1,List2: TList);
+var
+  i: integer;
+begin
+  if List1 = List2 then Exit;
+  for i := 0 to List2.Count-1 do
+    if List1.IndexOf(List2[i])=-1 then
+       List1.Add(List2[i]);
+end;
+{$ENDIF}
+
+function TDADataTable.GetDetailTablesforApplyUpdate(aRecursive: boolean): TList;
+
+  procedure _GetCloneSource(var dt: TDADataTable);
+  begin
+    if dt.UsingClonedCursor then begin
+      dt:= dt.CloneSource;
+      _GetCloneSource(dt);
+    end;
+  end;
+
+
+var
+ i: integer;
+ dt: TDADataTable;
+ dtList, dtlist1: TList;
+begin
+  Result:= TList.Create;
+  if (moCascadeApplyUpdates in fMasterOptions) then begin
+    dtList:=GetDetailDataTables;
+    try
+      for i := 0 to dtList.Count-1 do begin
+        dt := TDADataTable(dtList[i]);
+        if dt.Active and (dtCascadeApplyUpdates in dt.DetailOptions) then begin
+          _GetCloneSource(dt);
+          if Result.IndexOf(dt) = -1 then Result.Add(dt);
+          if aRecursive then begin
+            dtlist1:= dt.GetDetailTablesforApplyUpdate(aRecursive);
+            try
+              {$IFDEF FPC}
+              List_Union(Result, dtlist1);
+              {$ELSE}
+              Result.Assign(dtlist1,laOr);
+              {$ENDIF}
+            finally
+              dtlist1.Free;
+            end;
+          end;
+        end;
+      end;
+    finally
+      dtList.Free;
+    end;
+  end
+end;
+
+procedure TDADataTable.CancelUpdateChange(Change: TDADeltaChange;IncludeDetails : boolean = TRUE);
+var
+    orignextinc : integer;
+    wasfiltered,
+    remotefetch : boolean;
+    lOldMasterFields: string;
+    details: TList;
+    i,j,k: integer;
+    detailChange: TDADeltaChange;
+    ChangePKValueArray: array of Variant;
+    lNeedDeleteChange: boolean;
+    keyvalue: variant;
+    IRC: IDARangeController;
+begin
+  if Editing then begin
+    if (ruoOnPost in RemoteUpdatesOptions) and (GetDelta.Count=1) then begin
+      InternalCancelUpdateChange(GetDelta.Changes[0]);
+      GetDelta.Clear;
+      Exit;
+    end else begin
+      Cancel;
+    end;
+  end;
+  if not LogChanges then Exit;
+
+  DisableControls;
+  wasfiltered := Filtered;
+  Filtered := FALSE;
+  if GetRangeState and (QueryInterface(IDARangeController,IRC) = 0) then IRC.CancelRange else IRC := nil;
+  try
+    // Truns off the remote fetching for this datatable and its details
+    remotefetch := RemoteFetchEnabled;
+    RemoteFetchEnabled := FALSE;
+
+    // Disable the log of changes (we're about to make a bunch!)
+    LogChanges := FALSE;
+    // Saves the current recinc (we'll change this during the restore)
+    orignextinc := CurrRecId;
+    try
+      lOldMasterFields := MasterFields;
+      MasterFields := '';
+      try
+        // Reverts the records to the original state
+
+        if IncludeDetails then begin
+          SetLength(ChangePKValueArray,Change.Delta.KeyFieldCount);
+          For i:=1 to Change.Delta.KeyFieldCount do begin
+            if Change.ChangeType = ctInsert then
+              keyvalue:=Change.NewValueByName[Change.Delta.KeyFieldNames[i-1]]
+            else
+              keyvalue:=Change.OldValueByName[Change.Delta.KeyFieldNames[i-1]];
+            ChangePKValueArray[0]:=keyvalue;
+          end;
+          details:=GetDetailTablesforApplyUpdate(False);
+          try
+            for i:=0 to details.Count-1 do begin
+              for j:=0 to TDADataTable(details[i]).Delta.Count-1 do begin
+                detailChange :=TDADataTable(details[i]).Delta.Changes[j];
+                if detailChange.Status <> csResolved then begin
+                  lNeedDeleteChange:= True;
+                  for k:=0 to Change.Delta.KeyFieldCount-1 do begin
+                    if detailChange.ChangeType = ctInsert then
+                      keyvalue:=detailChange.NewValueByName[Change.Delta.KeyFieldNames[k]]
+                    else
+                      keyvalue:=detailChange.oldValueByName[Change.Delta.KeyFieldNames[k]];
+                    if not VarSameValue(keyValue, ChangePKValueArray[k]) then begin
+                      lNeedDeleteChange:= False;
+                      Break;
+                    end;
+                  end;
+                  if lNeedDeleteChange then TDADataTable(details[i]).CancelUpdateChange(detailChange,IncludeDetails);
+                end;
+              end;
+            end;
+          finally
+            details.Free;
+          end;
+        end;
+        InternalCancelUpdateChange(change);
+        Delta.RemoveChange(change);
+      finally
+        if Delta.Count = 0 then fHasReducedDelta:=False;
+        MasterFields := lOldMasterFields;
+      end;
+    finally
+      CurrRecId := orignextinc;
+      LogChanges := TRUE;
+      RemoteFetchEnabled := remotefetch;
+    end;
+  finally
+    if IRC <> nil then IRC.ApplyRange;
+    Filtered := wasfiltered;
+    EnableControls;
+  end;
+end;
+
+procedure TDADataTable.InternalCancelUpdateChange(Change: TDADeltaChange);
+var
+   i, x : integer;
+    fldname : string;
+    fldvalue : Variant;
+    details: TList;
+    RecID:string;
+    key: TDAMasterKeyID;
+    ldetailTable: TDADataTable;
+begin
+  case Change.ChangeType of
+    ctDelete : begin
+      CurrRecId := change.RecID; // We want the same autoinc regenerated
+      RecID:=IntToStr(Change.RecID);
+      Insert;
+      for x := 0 to (Delta.LoggedFieldCount-1) do begin
+        fldname := Delta.LoggedFieldNames[x];
+        fldvalue := null; // fix for "Invalid Variant Type" exception in Win2000
+        fldvalue := change.OldValues[x];
+        VariantToFieldValue(fldValue, FieldByName(fldname));
+      end;
+      Post;
+      details := GetDetailDataTables;
+      try
+        for x := 0 to (details.Count-1) do begin
+          ldetailTable := TDADataTable(details[x]);
+          key := ldetailTable.GenerateKeyfromMasterRecID;
+          try
+            i:=ldetailTable.fFetchedMasters.IndexOf(key);
+            if i<>-1 then ldetailTable.fFetchedMasters.Delete(i);
+          finally
+            FreeMasterKey(Key);
+          end;
+        end;
+      finally
+        details.Free;
+      end;
+    end;
+
+    else begin
+      if ruoOnPost in RemoteUpdatesOptions then begin
+        if Self.State = dsInsert then
+          Cancel
+        else begin
+          for x := 0 to (Delta.LoggedFieldCount-1) do begin
+            fldname := Delta.LoggedFieldNames[x];
+            fldvalue := null;// fix for "Invalid Variant Type" exception in Win2000
+            fldvalue := change.OldValues[x];
+            if fHasReducedDelta and ROVariantsEqual(fldvalue, change.NewValues[x]) then Continue;
+            VariantToFieldValue(fldValue, FieldByName(fldname));
+          end;
+        end;
+      end
+      else begin
+        First;
+        if not Locate(RecIDFieldName, change.RecID, []) then RaiseError('Couldn''t find record #'+FormatRecIDString(change.RecID));
+
+        if (change.ChangeType=ctInsert) then Delete
+        else begin
+          Edit;
+          for x := 0 to (Delta.LoggedFieldCount-1) do begin
+            fldname := Delta.LoggedFieldNames[x];
+            fldvalue := null;// fix for "Invalid Variant Type" exception in Win2000
+            fldvalue := change.OldValues[x];
+            if fHasReducedDelta and ROVariantsEqual(fldvalue, change.NewValues[x]) then Continue;
+            VariantToFieldValue(fldValue, FieldByName(fldname));
+          end;
+          Post;
+        end;
+      end;
+    end;
+  end;
+end;
+
+procedure TDADataTable.CheckProperties(ACheckRemoteFetching: Boolean=False; ACheckOnlyForLocalSchema: Boolean = False);
+begin
+  if (fCloneSource<>NIL) then
+    fCloneSource.CheckProperties(ACheckRemoteFetching)
+  else begin
+    if LogicalName = '' then raise Exception.Create(Name+'.LogicalName must be specified.');
+    if RemoteFetchEnabled or ACheckRemoteFetching then begin
+      Check(RemoteDataAdapter = nil, Name+'.RemoteDataAdapter must be assigned.');
+    end
+    else begin
+      Check(LocalSchema = nil, Name+'.LocalSchema must be assigned.');
+      if not ACheckOnlyForLocalSchema then begin
+        Check(LocalDataStreamer = nil , Name+'.LocalDataStreamer must be assigned.');
+        LocalSchema.CheckProperties;
+      end;
+    end;
+  end;
+end;
+
+
+procedure TDADataTable.ExpessionEvaluatorGetValue(
+  Sender: TDAExpressionEvaluator; const aIdentifier: string;
+  out aValue: Variant);
+begin
+  aValue := Fields.FieldByName(aIdentifier).Value;
+end;
+
+function TDADataTable.GetDynamicWhere: TDAWhereBuilder;
+begin
+  Result := fDynamicWhere;
+end;
+
+procedure TDADataTable.SetDynamicWhere(const Value: TDAWhereBuilder);
+begin
+  if Value <> nil then
+    FDynamicWhere.Xml := Value.Xml
+  else
+    FDynamicWhere.Clear;
+end;
+
+function TDADataTable.SQLContainsDynamicWhere: boolean;
+begin
+  Result:=False;
+  // Not implemented in DataTables
+end;
+
+function TDADataTable.GetCloneSource: TDADataTable;
+begin
+  Result:= FCloneSource;
+end;
+
+function TDADataTable.GetUsingClonedCursor: boolean;
+begin
+  Result:=FCloneSource<>nil;
+end;
+
+function TDADataTable.GetSimpleCloneSource: TObject;
+begin
+  Result:= GetCloneSource;
+end;
+
+procedure TDADataTable.CloneCursor(Source: TDADataTable);
+begin
+  Raise Exception.Create(err_NotSupported);
+end;
+
+function TDADataTable.BookmarkValid(Bookmark: TBookmark): Boolean;
+begin
+  Result := fDataset.BookmarkValid(Bookmark);
+end;
+
+function TDADataTable.ControlsDisabled: Boolean;
+begin
+  Result := fDataset.ControlsDisabled;
+end;
+
+function TDADataTable.TriggerTransactionEvent(
+  aEvent: TDALocalUpdateDataTransactionEvent): boolean;
+begin
+  result := true;
+  if assigned(aEvent) then aEvent(self, result);
+end;
+
+procedure TDADataTable.SetDetailOptions(const Value: TDADetailOptions);
+begin
+  fDetailOptions := Value - DetailOptions_unused;
+end;
+
+procedure TDADataTable.SetMasterOptions(const Value: TDAMasterOptions);
+begin
+  fMasterOptions := Value - MasterOptions_unused;
+end;
+
+function TDADataTable.GetRangeState: Boolean;
+begin
+  Result := False;
+end;
+
+function TDADataTable.intDATypeToVCLType(aDAType: TDADataType): TFieldType;
+begin
+  Result := DATypeToVCLType(aDAType);
+end;
+
+{ TDADataSource }
+
+procedure TDADataSource.Assign(Source: TPersistent);
+var
+  lSource: TDADataSource;
+begin
+  inherited;
+  if Source is TDADataSource then begin
+    lSource := TDADataSource(Source);
+    DataTable := lSource.DataTable;
+  end;
+end;
+
+constructor TDADataSource.Create(aOwner: TComponent);
+begin
+  inherited;
+end;
+
+destructor TDADataSource.Destroy;
+begin
+  DataTable := nil;
+  inherited;
+end;
+
+function TDADataSource.GetActive: boolean;
+begin
+  result := (fDataTable <> nil) and fDataTable.Active
+end;
+
+function TDADataSource.GetDataset: TDataset;
+begin
+  result := nil;
+end;
+
+function TDADataSource.GetOpening: boolean;
+begin
+  result := (fDataTable <> nil) and fDataTable.Opening
+end;
+
+procedure TDADataSource.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (AComponent = fDataTable) then begin
+    DataTable := nil;
+    inherited Dataset := nil;
+  end;
+end;
+
+procedure TDADataSource.SetDataset(const Value: TDataset);
+begin
+
+end;
+
+procedure TDADataSource.SetDataTable(const Value: TDADataTable);
+begin
+  if fDataTable <> Value then begin
+    if (fDataTable <> nil) then fDataTable.RORemoveFreeNotification(Self);
+    fDataTable := Value;
+    if (fDataTable <> nil) then begin
+      fDataTable.ROFreeNotification(Self);
+      inherited Dataset := fDataTable.Dataset;
+    end
+    else
+      inherited Dataset := nil;
+  end;
+end;
+
+{ TDABusinessRules }
+
+constructor TDABusinessRules.Create;
+begin
+  inherited;
+end;
+
+destructor TDABusinessRules.Destroy;
+begin
+  inherited;
+end;
+
+function TDABusinessRules._AddRef: Integer;
+begin
+  result := -1;
+end;
+
+function TDABusinessRules._Release: Integer;
+begin
+  result := -1;
+end;
+
+{ TDADataTableRules }
+
+constructor TDADataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited Create;
+
+  Check(not Assigned(aDatatable), 'DataTable cannot be NIL');
+
+  fDetails := TStringList.Create;
+  fDetails.Sorted := TRUE;
+  fDetails.Duplicates := dupError;
+
+  fDataTable := aDataTable;
+end;
+
+destructor TDADataTableRules.Destroy;
+begin
+  fDetails.Free;
+
+  inherited;
+end;
+
+procedure TDADataTableRules.AfterCancel(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.AfterClose(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.AfterDelete(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.AfterEdit(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.AfterInsert(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.AfterOpen(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.AfterPost(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.AfterRefresh(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.AfterScroll(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforeCancel(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforeClose(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforeDelete(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforeEdit(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforeInsert(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforeOpen(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforePost(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforeRefresh(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.BeforeScroll(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.OnCalcFields(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.OnNewRecord(Sender: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.OnDeleteError(DataTable: TDADataTable;
+  Error: EDatabaseError; var Action: TDataAction);
+begin
+
+end;
+
+procedure TDADataTableRules.OnEditError(DataTable: TDADataTable;
+  Error: EDatabaseError; var Action: TDataAction);
+begin
+
+end;
+
+procedure TDADataTableRules.Attach(aDataTable: TDADataTable);
+begin
+  RefreshDetails;
+end;
+
+procedure TDADataTableRules.Detach(aDataTable: TDADataTable);
+begin
+  fDetails.Clear;
+end;
+
+procedure TDADataTableRules.Append;
+begin
+  fDataTable.Append();
+end;
+
+procedure TDADataTableRules.Cancel;
+begin
+  fDataTable.Cancel();
+end;
+
+procedure TDADataTableRules.Delete;
+begin
+  fDataTable.Delete();
+end;
+
+procedure TDADataTableRules.Edit;
+begin
+  fDataTable.Edit();
+end;
+
+procedure TDADataTableRules.First;
+begin
+  fDataTable.First();
+end;
+
+procedure TDADataTableRules.Insert;
+begin
+  fDataTable.Insert();
+end;
+
+procedure TDADataTableRules.Last;
+begin
+  fDataTable.Last();
+end;
+
+procedure TDADataTableRules.Next;
+begin
+  fDataTable.Next();
+end;
+
+procedure TDADataTableRules.Post;
+begin
+  fDataTable.Post();
+end;
+
+procedure TDADataTableRules.Prior;
+begin
+  fDataTable.Prior();
+end;
+
+function TDADataTableRules.GetBOF: Boolean;
+begin
+  result := fDataTable.BOF;
+end;
+
+function TDADataTableRules.GetEOF: Boolean;
+begin
+  result := fDataTable.EOF;
+end;
+
+function TDADataTableRules.GetRecordCount: Integer;
+begin
+  result := fDataTable.RecordCount;
+end;
+
+function TDADataTableRules.Locate(const aKeyFields: String; const aKeyValues: Variant; aOptions: TLocateOptions = []): boolean;
+begin
+  result := fDataTable.Locate(aKeyFields, aKeyValues, aOptions);
+end;
+
+function TDADataTableRules.GetDetails(Index: integer): TDADataTable;
+begin
+  result := TDADataTable(fDetails[Index])
+end;
+
+function TDADataTableRules.GetDetailsCount: integer;
+begin
+  result := fDetails.Count
+end;
+
+function TDADataTableRules.FindDetail(
+  const aLogicalName: string): TDADataTable;
+var i : integer;
+begin
+  result := NIL;
+  i := fDetails.IndexOf(aLogicalName);
+
+  if (i>=0) then result := TDADataTable(fDetails.Objects[i]);
+end;
+
+function TDADataTableRules.DetailByName(
+  const aLogicalName: string): TDADataTable;
+begin
+  result := FindDetail(aLogicalName);
+  if (result=NIL)
+    then raise Exception.CreateFmt('Cannot find the detail DataTable %s ', [aLogicalName]);
+end;
+
+procedure TDADataTableRules.RefreshDetails;
+var lList : TList;
+    i : integer;
+    lLogicalName : string;
+begin
+  lList := DataTable.GetDetailDataTables;
+  fDetails.Clear;
+  try
+    for i := 0 to (lList.Count-1) do begin
+      lLogicalName := TDADataTable(lList[i]).LogicalName;
+
+      if (lLogicalName<>'')
+        then fDetails.AddObject(lLogicalName, lList[i]);
+    end;
+  finally
+    lList.Free;
+  end;
+end;
+
+function TDADataTableRules.GetDetailOptions: TDADetailOptions;
+begin
+  result := DataTable.DetailOptions
+end;
+
+function TDADataTableRules.GetMasterOptions: TDAMasterOptions;
+begin
+  result := DataTable.MasterOptions
+end;
+
+procedure TDADataTableRules.SetDetailOptions(Value: TDADetailOptions);
+begin
+  DataTable.DetailOptions := Value
+end;
+
+procedure TDADataTableRules.SetMasterOptions(Value: TDAMasterOptions);
+begin
+  DataTable.MasterOptions := Value
+end;
+
+function TDADataTableRules.GetRecNo: integer;
+begin
+  result := fDataTable.RecNo
+end;
+
+procedure TDADataTableRules.SetRecNo(Value: integer);
+begin
+  fDataTable.RecNo := Value
+end;
+
+procedure TDADataTableRules.OnFilterRecord(DataTable: TDADataTable;
+  var Accept: boolean);
+begin
+
+end;
+
+procedure TDADataTableRules.OnPostError(DataTable: TDADataTable;
+  Error: EDatabaseError; var Action: TDataAction);
+begin
+
+end;
+
+function TDADataTableRules.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  result := fDataTable.Lookup(KeyFields, KeyValues, ResultFields);
+end;
+
+function TDADataTableRules.GetIsEmpty: boolean;
+begin
+  result := fDataTable.IsEmpty
+end;
+
+function TDADataTableRules.GetState: TDatasetState;
+begin
+  result := fDataTable.State
+end;
+
+function TDADataTableRules.IsFieldNull(
+  const FieldIndexOrName: Variant): boolean;
+var fld : TDAField;
+begin
+  case VarType(FieldIndexOrName) of
+    varString, varUString, varOleStr, varStrArg : fld := DataTable.FieldByName(VarToStr(FieldIndexOrName));
+    else fld := DataTable.Fields[FieldIndexOrName];
+  end;
+
+  result := fld.IsNull;
+end;
+
+procedure TDADataTableRules.ClearField(const FieldIndexOrName: Variant);
+var fld : TDAField;
+begin
+  case VarType(FieldIndexOrName) of
+    varString, varUString, varOleStr, varStrArg : fld := DataTable.FieldByName(VarToStr(FieldIndexOrName));
+    else fld := DataTable.Fields[FieldIndexOrName];
+  end;
+
+  fld.Clear;
+end;
+
+function TDADataTableRules.GetDataTable: TDADataTable;
+begin
+  result := fDataTable;
+end;
+
+procedure TDADataTableRules.ApplyRange;
+begin
+  (fDataTable as IDARangeController).ApplyRange
+end;
+
+procedure TDADataTableRules.CancelRange;
+begin
+  (fDataTable as IDARangeController).CancelRange
+end;
+
+procedure TDADataTableRules.EditRangeEnd;
+begin
+  (fDataTable as IDARangeController).EditRangeEnd
+end;
+
+procedure TDADataTableRules.EditRangeStart;
+begin
+  (fDataTable as IDARangeController).EditRangeStart
+end;
+
+procedure TDADataTableRules.SetRange(const StartValues,
+  EndValues: array of const);
+begin
+  (fDataTable as IDARangeController).SetRange(StartValues, EndValues);
+end;
+
+procedure TDADataTableRules.SetRangeEnd;
+begin
+  (fDataTable as IDARangeController).SetRangeEnd
+end;
+
+procedure TDADataTableRules.SetRangeStart;
+begin
+  (fDataTable as IDARangeController).SetRangeStart
+end;
+
+procedure TDADataTableRules.Close;
+begin
+  fDataTable.Close;
+end;
+
+procedure TDADataTableRules.Open;
+begin
+  fDataTable.Open;
+end;
+
+function TDADataTableRules.GetActive: boolean;
+begin
+  result := fDataTable.Active;
+end;
+
+procedure TDADataTableRules.SetActive(const Value: boolean);
+begin
+  fDataTable.Active := Value;
+end;
+
+procedure TDADataTableRules.OnAfterApplyUpdates(DataTable: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.OnAfterDataRequestCall(DataTable: TDADataTable;
+  Request: TDARemoteRequest);
+begin
+
+end;
+
+procedure TDADataTableRules.OnAfterDataUpdateCall(DataTable: TDADataTable;
+  Request: TDARemoteRequest);
+begin
+
+end;
+
+procedure TDADataTableRules.OnAfterMergeDelta(DataTable: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.OnAfterSchemaCall(DataTable: TDADataTable;
+  Request: TDARemoteRequest);
+begin
+
+end;
+
+procedure TDADataTableRules.OnAfterScriptCall(DataTable: TDADataTable;
+  Request: TDARemoteRequest);
+begin
+
+end;
+
+procedure TDADataTableRules.OnBeforeApplyUpdates(DataTable: TDADataTable;
+  const Delta: IDADelta);
+begin
+
+end;
+
+procedure TDADataTableRules.OnBeforeDataRequestCall(
+  DataTable: TDADataTable; Request: TDARemoteRequest);
+begin
+
+end;
+
+procedure TDADataTableRules.OnBeforeDataUpdateCall(DataTable: TDADataTable;
+  Request: TDARemoteRequest);
+begin
+
+end;
+
+procedure TDADataTableRules.OnBeforeMergeDelta(DataTable: TDADataTable);
+begin
+
+end;
+
+procedure TDADataTableRules.OnBeforeSchemaCall(DataTable: TDADataTable;
+  Request: TDARemoteRequest);
+begin
+
+end;
+
+procedure TDADataTableRules.OnBeforeScriptCall(DataTable: TDADataTable;
+  Request: TDARemoteRequest);
+begin
+
+end;
+
+procedure TDADataTableRules.OnReceiveDataStream(DataTable: TDADataTable;
+  Stream: TStream);
+begin
+
+end;
+
+{ TDAFieldRules }
+constructor TDAFieldRules.Create(aField : TDAField; aDataTable : TDADataTable);
+begin
+  inherited Create;
+
+  fDataTable := aDataTable;
+
+  fField := aField;
+  fField.OnValidate := OnValidate;
+  fField.OnChange := OnChange;
+
+  Attach(fDataTable);
+end;
+
+destructor TDAFieldRules.Destroy;
+begin
+  Detach(fDataTable);
+  inherited;
+end;
+
+procedure TDAFieldRules.Attach(aDataTable: TDADataTable);
+begin
+
+end;
+
+procedure TDAFieldRules.Detach(aDataTable: TDADataTable);
+begin
+
+end;
+
+procedure TDAFieldRules.OnChange(Sender: TDACustomField);
+begin
+end;
+
+procedure TDAFieldRules.OnValidate(Sender: TDACustomField);
+begin
+end;
+
+{ TDADataTableList }
+constructor TDADataTableList.Create(aOwnerComponent: TComponent);
+begin
+  inherited Create;
+
+  ScanAndAdd(aOwnerComponent);
+end;
+
+function TDADataTableList.Add(aDataTable: TDADataTable): integer;
+begin
+  result := inherited Add(aDataTable);
+end;
+
+function TDADataTableList.GetItems(Index: integer): TDADataTable;
+begin
+  result := TDADataTable(inherited Items[Index]);
+end;
+
+procedure TDADataTableList.Remove(aDataTable: TDADataTable);
+begin
+  inherited Remove(aDataTable);
+end;
+
+
+function TDADataTableList.ScanAndAdd(aOwnerComponent: TComponent): integer;
+var i : integer;
+begin
+  result := 0;
+  with aOwnerComponent do begin
+    for i := 0 to (Count-1) do
+      if (Components[i] is TDADataTable) then begin
+        Add(TDADataTable(Components[i]));
+        Inc(result);
+      end;
+  end;
+end;
+
+function TDADataTableList.GetPendingChangeCount: integer;
+var i : integer;
+begin
+  result := 0;
+  for i := 0 to (Count-1) do
+    if Items[i].Active and Items[i].LogChanges
+      then Inc(result, Items[i].Delta.Count);
+end;
+
+
+{ TDACustomDataAdapter }
+
+function TDACustomDataAdapter.Get_GetDataCall: TDARemoteRequest;
+begin
+  Result := nil;
+end;
+
+function TDACustomDataAdapter.Get_GetSchemaCall: TDARemoteRequest;
+begin
+  Result := nil;
+end;
+
+function TDACustomDataAdapter.Get_GetScriptsCall: TDARemoteRequest;
+begin
+  Result := nil;
+end;
+
+function TDACustomDataAdapter.Get_UpdateDataCall: TDARemoteRequest;
+begin
+  Result := nil;
+end;
+
+
+{ TDAMasterKeyList }
+
+procedure TDAMasterKeyList.Add(aKey: TDAMasterKeyID);
+begin
+  fNeedSort := True;
+  inherited Add(aKey);
+end;
+
+procedure TDAMasterKeyList.Clear;
+var
+  i: integer;
+begin
+  for I := 0 to Count - 1 do
+    FreeMasterKey(TDAMasterKeyID(Items[i]));
+  inherited;
+  fNeedSort := False;
+end;
+
+
+function TDAMasterKeyList_Compare(aKey1, aKey2: pointer):integer;
+var
+  l1, l2: Integer;
+  l: integer;
+  i: integer;
+  lKey1, lKey2: TDAMasterKeyID;
+begin
+  Result := 0;
+  lKey1 := TDAMasterKeyID(aKey1);
+  lKey2 := TDAMasterKeyID(aKey2);
+  l1 := PInteger(@lKey1[0])^;
+  l2 := PInteger(@lKey2[0])^;
+  if (l1 = 0) then begin
+    if l2 > 0 then Result := l2;
+    //else Result := 0
+    exit;
+  end
+  else if (l2 = 0) then begin
+    Result := - l1;
+    exit;
+  end;
+  if l1 > l2 then l := l2 else l := l1;
+  for I := SizeOf(integer) to l-1+SizeOf(integer) do begin
+    Result := lKey2[i] - lKey1[i];
+    if Result <> 0 then break;
+  end;
+  if Result = 0 then Result := l2-l1;
+end;
+
+function TDAMasterKeyList.IndexOf(aKey: TDAMasterKeyID): integer;
+var
+  L, H, I, C: Integer;
+  R: Boolean;
+begin
+  if fNeedSort then SortList;
+// from TStringList.Find
+  Result := -1;
+  R := False;
+  L := 0;
+  H := Count - 1;
+  while L <= H do
+  begin
+    I := (L + H) shr 1;
+    C := TDAMasterKeyList_Compare(List^[i], aKey);
+    if C < 0 then begin
+      L := I + 1
+    end
+    else begin
+      H := I - 1;
+      if C = 0 then begin
+        R := True;
+        L := I;
+      end;
+    end;
+  end;
+  if R then Result := L;
+end;
+
+procedure TDAMasterKeyList.SortList;
+begin
+  Sort(TDAMasterKeyList_Compare);
+  fNeedSort := False;
+end;
+
+initialization
+  RegisterExceptionClass(EDABizValidationException);
+
+  _bizfields := TStringList.Create;
+  _bizfields.Sorted := TRUE;
+
+  _bizdatatables := TStringList.Create;
+  _bizdatatables.Sorted := TRUE;
+
+finalization
+  UnregisterExceptionClass(EDABizValidationException);
+  _bizdatatables.Free;
+  _bizfields.Free;
+
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataTableReferenceCollection.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataTableReferenceCollection.pas
new file mode 100644
index 0000000..427049e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADataTableReferenceCollection.pas	
@@ -0,0 +1,217 @@
+unit uDADataTableReferenceCollection;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes,
+  uDAInterfaces,uDADataTable;
+
+type
+  { TDADataTableReference }
+  TDADataTableReferenceCollection = class;
+  TDADataTableReference = class(TCollectionItem)
+  private
+    fDataTable: TComponent;
+    FDataset: IDADataset;
+    FLogicalName: string; // fro Tdataset
+    function GetIsValidReference: boolean;
+    procedure SetDataTable(const Value: TComponent);
+    function GetReferenceCollection: TDADataTableReferenceCollection;
+    function GetDataset: IDADataset;
+    function GetLogicalName: string;
+    procedure SetLogicalName(const Value: string);
+
+  protected
+    function GetDisplayName : string; override;
+  public
+    constructor Create(aCollection : TDADataTableReferenceCollection); reintroduce;
+    property IsValidReference : boolean read GetIsValidReference;
+    property ReferenceCollection : TDADataTableReferenceCollection read GetReferenceCollection;
+    property Dataset: IDADataset read GetDataset;
+    destructor Destroy; override;
+  published
+    property DataTable : TComponent read fDataTable write SetDataTable;
+    property LogicalName: string read GetLogicalName write SetLogicalName;
+  end;
+
+  { TDADataTableReferenceCollection }
+  TDADataTableReferenceCollection = class(TCollection)
+  private
+    fOwner: TComponent;
+
+    function GetItems(Index: integer): TDADataTableReference;
+  protected
+  public
+    constructor Create(aOwner: TComponent);
+    destructor Destroy; override;
+
+    function FindByDataTable(aDataTable : TComponent) : TDADataTableReference;
+    function FindByName(const aLogicalName : string) : TDADataTableReference;
+
+    property Items[Index : integer] : TDADataTableReference read GetItems; default;
+
+    property OwnerService: TComponent read fOwner;
+  end;
+
+implementation
+
+uses
+  SysUtils,DB,
+  uROClasses, uDADatasetWrapper;
+
+{ TDADataTableReferenceCollection }
+
+constructor TDADataTableReferenceCollection.Create(aOwner: TComponent);
+begin
+  inherited Create(TDADataTableReference);
+
+  fOwner := aOwner;
+end;
+
+destructor TDADataTableReferenceCollection.Destroy;
+begin
+
+  inherited;
+end;
+
+function TDADataTableReferenceCollection.FindByDataTable(aDataTable: TComponent): TDADataTableReference;
+var i : integer;
+begin
+  result := NIL;
+  if (aDataTable=NIL) then Exit;
+
+  for i := 0 to (Count-1) do
+    if (Items[i].DataTable=aDataTable) then begin
+      result := Items[i];
+      Exit;
+    end;
+end;
+
+function TDADataTableReferenceCollection.FindByName(const aLogicalName: string): TDADataTableReference;
+var i : integer;
+begin
+  result := NIL;
+
+  for i := 0 to (Count-1) do
+    if Items[i].IsValidReference and SameText(Items[i].Dataset.LogicalName, aLogicalName) then begin
+      result := Items[i];
+      Exit;
+    end;
+end;
+
+function TDADataTableReferenceCollection.GetItems(
+  Index: integer): TDADataTableReference;
+begin
+  result := TDADataTableReference(inherited Items[Index]);
+end;
+
+{ TDADataTableReference }
+
+constructor TDADataTableReference.Create(aCollection : TDADataTableReferenceCollection);
+begin
+  inherited Create(aCollection);
+end;
+
+function TDADataTableReference.GetDataset: IDADataset;
+begin
+  Result := FDataset;
+  if (Result = nil) and (fDataTable is TDADataTable) then
+    Result := fDataTable as IDADataset;
+end;
+
+procedure TDADataTableReference.SetDataTable(const Value: TComponent);
+begin
+  if (fDataTable<>Value) then begin
+
+    //RemoveFreeNotification
+    if (fDataTable <> nil) then begin
+      if fDataTable is TDADataTable then
+        TDADataTable(fDataTable).RORemoveFreeNotification(ReferenceCollection.OwnerService)
+      else if fDataTable is TDataSet then
+        TDataSet(fDataTable).RemoveFreeNotification(ReferenceCollection.OwnerService);
+    end;
+
+
+    if Value is TDataSet then begin
+      FDataset := TDatasetWrapper.Create(TDataSet(Value));
+      FDataset.LogicalName := FLogicalName;
+    end
+    else
+      FDataset := nil;
+
+    if (Value is TDataSet) or (Value is TDADataTable) then
+      fDataTable := Value
+    else
+      // don't supported other types
+      fDataTable := nil;
+
+    //FreeNotification
+    if (fDataTable <> nil) then begin
+      if fDataTable is TDADataTable then
+        TDADataTable(fDataTable).ROFreeNotification(ReferenceCollection.OwnerService)
+      else if fDataTable is TDataSet then
+        TDataSet(fDataTable).FreeNotification(ReferenceCollection.OwnerService);
+    end;
+  end;
+end;
+
+function TDADataTableReference.GetDisplayName: string;
+var F_logicalname : string;
+begin
+  if (fDataTable<>NIL) then begin
+    F_logicalname := LogicalName;
+    if (F_logicalname='') then F_logicalname := '???';
+    result := Format('%s (%s)', [F_logicalname, fDataTable.Name])
+  end
+  else result := '<No Reference>';
+end;
+
+function TDADataTableReference.GetIsValidReference: boolean;
+begin
+  result := fDataTable<>NIL
+end;
+
+function TDADataTableReference.GetReferenceCollection: TDADataTableReferenceCollection;
+begin
+  result := TDADataTableReferenceCollection(inherited Collection);
+end;
+
+function TDADataTableReference.GetLogicalName: string;
+begin
+  if (fDataTable<>NIL) then begin
+    Result := Dataset.LogicalName;
+    if fDataTable is TDataset then Result:= FLogicalName;
+  end
+  else
+    result := '';
+end;
+
+procedure TDADataTableReference.SetLogicalName(const Value: string);
+begin
+  FLogicalName := Value;
+  if (Dataset <> nil) then Dataset.LogicalName := Value;
+end;
+
+
+destructor TDADataTableReference.Destroy;
+begin
+  DataTable := nil;
+  FDataset:=nil;
+  inherited;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADatasetProvider.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADatasetProvider.pas
new file mode 100644
index 0000000..6ab4ce3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADatasetProvider.pas	
@@ -0,0 +1,101 @@
+unit uDADatasetProvider;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, DB, Provider, uDADataTable;
+
+type
+  { TDADatasetProvider }
+  TDADatasetProvider = class(TDataSetProvider)
+  private
+    fDataTable: TDADataTable;
+    procedure SetDataTable(const Value: TDADataTable);
+    function GetDataset: TDataset;
+
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    function InternalGetRecords(Count: Integer; out RecsOut: Integer;
+      Options: TGetRecordOptions; const CommandText: WideString;
+      var Params: OleVariant): OleVariant; override;
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Dataset: TDataset read GetDataset;
+    property DataTable: TDADataTable read fDataTable write SetDataTable;
+  end;
+
+
+implementation
+
+{ TDADatasetProvider }
+
+procedure TDADatasetProvider.Assign(Source: TPersistent);
+var
+  lSource: TDADatasetProvider;
+begin
+  inherited;
+  if Source is TDADatasetProvider then begin
+    lSource := TDADatasetProvider(Source);
+    DataTable := lSource.DataTable;
+  end;
+end;
+
+destructor TDADatasetProvider.Destroy;
+begin
+  DataTable := nil;
+  inherited;
+end;
+
+function TDADatasetProvider.GetDataset: TDataset;
+begin
+  result := NIL;
+end;
+
+function TDADatasetProvider.InternalGetRecords(Count: Integer;
+  out RecsOut: Integer; Options: TGetRecordOptions;
+  const CommandText: WideString; var Params: OleVariant): OleVariant;
+begin
+  if not DataTable.Active then DataTable.Open;
+  
+  result := inherited InternalGetRecords(Count, RecsOut, Options, CommandText, Params);
+end;
+
+procedure TDADatasetProvider.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation=opRemove) then begin
+    if (aComponent=fDatatable) then fDataTable := NIL;
+  end;
+end;
+
+procedure TDADatasetProvider.SetDataTable(const Value: TDADataTable);
+begin
+  if fDataTable <> Value then begin
+    if (fDataTable<>NIL) then fDataTable.RORemoveFreeNotification(Self);
+    fDataTable := Value;
+    if (fDataTable<>NIL) then begin
+      fDataTable.ROFreeNotification(Self);
+      inherited Dataset := fDataTable.Dataset;
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADatasetWrapper.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADatasetWrapper.pas
new file mode 100644
index 0000000..a77d78e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADatasetWrapper.pas	
@@ -0,0 +1,674 @@
+unit uDADatasetWrapper;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, DB,
+  {$IFDEF MSWINDOWS}ActiveX,{$ENDIF}
+  uDAInterfaces;
+
+type
+  TDatasetWrapper = class(TInterfacedObject, {$IFDEF MSWINDOWS}ISupportErrorInfo,{$ENDIF} IDADataset, IDAEditableDataset)
+  private
+    FDataset: TDataset;
+    FLogicalName: string;
+    fFields: TDAFieldCollection;
+    fParams: TDAParamCollection;
+    fAfterOpenIDataset: TDAAfterOpenDatasetEvent;
+    fBeforeOpenIDataset: TDABeforeOpenDatasetEvent;
+    FOld_BeforeClose: TDataSetNotifyEvent;
+    FOld_BeforeOpen: TDataSetNotifyEvent;
+    FOld_AfterOpen: TDataSetNotifyEvent;
+    procedure DatasetBeforeOpen(DataSet: TDataSet);
+    procedure DatasetBeforeClose(DataSet: TDataSet);
+    procedure DatasetAfterOpen(DataSet: TDataSet);
+    procedure AttachEventHooks(aDataset: TDataset);
+    procedure DetachEventHooks(aDataset: TDataset);
+    procedure BindFields;
+    procedure UnbindFields;
+  protected
+    function GetParams: TDAParamCollection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetPrepared: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetPrepared(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetWhere: TDAWhere; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} 
+    function GetDynamicWhere: TDAWhereBuilder; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetDynamicWhere(const Value: TDAWhereBuilder); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSQL: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQL(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function SQLContainsDynamicWhere: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDataset: TDataset; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnAfterExecute: TDAAfterExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeExecute: TDABeforeExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterExecute(const Value: TDAAfterExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeExecute(const Value: TDABeforeExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnExecuteError: TDAExecuteCommandErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnExecuteError(const Value: TDAExecuteCommandErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Methods
+    procedure RefreshParams; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function ParamByName(const aName: string): TDAParam; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Properties readers/writers
+    function GetRecordCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFields: TDAFieldCollection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetActive: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetActive(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetBOF: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetEOF: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldValues(Index: integer): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetNames(Index: integer): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetIsEmpty: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetState: TDatasetState; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLogicalName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetLogicalName(aName: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetOnAfterOpen: TDAAfterOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeOpen: TDABeforeOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterOpen(const Value: TDAAfterOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeOpen(const Value: TDABeforeOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnOpenError: TDAOpenDatasetErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnOpenError(const Value: TDAOpenDatasetErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Methods
+    procedure Open; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Close; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure EnableControls; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableControls; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Refresh; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Next; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function FieldByName(const aName: string): TDAField; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function FindField(const aName: string): TDAField; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetBookMark: TBookmark; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GotoBookmark(Bookmark: TBookmark); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure FreeBookmark(Bookmark: TBookmark); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function BookmarkValid(Bookmark: TBookmark): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetCurrentRecIdValue: integer;
+    procedure SetCurrentRecIdValue(Value: integer);
+
+    function GetRowRecIDValue: integer;
+
+    procedure EnableConstraints; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableConstraints; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Edit; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Insert; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Post; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Cancel; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Append; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Delete; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Prior; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure First; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Last; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure AddRecord(const FieldNames: array of string; const FieldValues: array of Variant); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure EnableEventHandlers; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableEventHandlers; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function  ControlsDisabled: Boolean;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    {$IFDEF MSWINDOWS}
+  protected
+    function InterfaceSupportsErrorInfo(const iid: TGUID): HResult; stdcall;
+  public
+    function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; override;
+    {$ENDIF}
+  public
+    constructor Create(ADataset: TDataset);
+    destructor Destroy; override;
+    property RowRecIdValue: integer read GetRowRecIdValue;
+    property CurrentRecIdValue: integer read GetCurrentRecIdValue write SetCurrentRecIdValue;
+    // Properties
+    property IsEmpty: boolean read GetIsEmpty;
+    property State: TDatasetState read GetState;
+    property BOF: boolean read GetBOF;
+    property EOF: boolean read GetEOF;
+    property RecordCount: integer read GetRecordCount;
+    property Fields: TDAFieldCollection read GetFields;
+    property Active: boolean read GetActive write SetActive;
+    property FieldCount: integer read GetFieldCount;
+    property FieldValues[Index: integer]: Variant read GetFieldValues;
+    property Names[Index: integer]: string read GetNames;
+    property LogicalName: string read GetLogicalName write SetLogicalName;
+
+    property OnBeforeOpen: TDABeforeOpenDatasetEvent read GetOnBeforeOpen write SetOnBeforeOpen;
+    property OnAfterOpen: TDAAfterOpenDatasetEvent read GetOnAfterOpen write SetOnAfterOpen;
+    property OnOpenError: TDAOpenDatasetErrorEvent read GetOnOpenError write SetOnOpenError;
+    property Name: string read GetName;
+    property Dataset: TDataSet read GetDataset;
+    property SQL: string read GetSQL write SetSQL;
+    property Params: TDAParamCollection read GetParams;
+    property Prepared: boolean read GetPrepared write SetPrepared;
+    property Where: TDAWhere read GetWhere;
+    property OnBeforeExecute: TDABeforeExecuteCommandEvent read GetOnBeforeExecute write SetOnBeforeExecute;
+    property OnAfterExecute: TDAAfterExecuteCommandEvent read GetOnAfterExecute write SetOnAfterExecute;
+    property OnExecuteError: TDAExecuteCommandErrorEvent read GetOnExecuteError write SetOnExecuteError;
+  end;
+
+implementation
+
+uses
+  SysUtils,
+  uROClasses, uDARes, uDAEngine;
+
+{ TDatasetWrapper }
+
+procedure TDatasetWrapper.AddRecord(const FieldNames: array of string;
+  const FieldValues: array of Variant);
+var
+  i: integer;
+begin
+  Insert;
+  for i := 0 to Length(FieldNames) - 1 do
+    FieldByName(FieldNames[i]).Value := FieldValues[i];
+  Post;
+end;
+
+procedure TDatasetWrapper.Append;
+begin
+  FDataset.Append;
+end;
+
+procedure TDatasetWrapper.AttachEventHooks(aDataset: TDataset);
+begin
+  fFields.FieldEventsDisabled := FALSE;
+end;
+
+procedure TDatasetWrapper.BindFields;
+var
+  i: integer;
+  fld: TField;
+  daFld: TDAField;
+  l: TDABlobType;
+begin
+  fFields.Clear;
+  for i := 0 to (Fdataset.FieldCount - 1) do begin
+    fld := Fdataset.Fields[i];
+    daFld := fFields.Add;
+    with daFld do begin
+      Name := fld.FieldName;
+      Size := fld.Size;
+      DataType := VCLTypeToDAType(fld.DataType);
+      for l := dabtBlob to High(TDABlobType) do begin
+        if fld.DataType = BlobTypeMappings[l] then begin
+          BlobType:=l;
+          Break;
+        end;
+      end;
+    end;
+    dafld.Bind(fld);
+  end;
+end;
+
+procedure TDatasetWrapper.Cancel;
+begin
+  FDataset.Cancel;
+end;
+
+procedure TDatasetWrapper.Close;
+begin
+  FDataset.Close;
+end;
+
+constructor TDatasetWrapper.Create(ADataset: TDataset);
+begin
+  Check(ADataset = nil, err_InvalidDataset);
+  inherited Create;
+  FDataset := ADataset;
+  fFields := TDAFieldCollection.Create(nil);
+  fParams := TDAParamCollection.Create(nil);
+  FOld_BeforeClose := FDataset.BeforeClose;
+  FOld_BeforeOpen := FDataset.BeforeOpen;
+  FOld_AfterOpen := FDataset.AfterOpen;
+  FDataset.BeforeClose := DatasetBeforeClose;
+  FDataset.BeforeOpen := DatasetBeforeOpen;
+  FDataset.AfterOpen := DatasetAfterOpen;
+  if FDataset.Active then BindFields;
+end;
+
+procedure TDatasetWrapper.DatasetAfterOpen(DataSet: TDataSet);
+begin
+  BindFields;
+  if Assigned(fAfterOpenIDataset) then fAfterOpenIDataset(Self, '', 0);
+  if Assigned(FOld_AfterOpen) then FOld_AfterOpen(Dataset);
+end;
+
+procedure TDatasetWrapper.DatasetBeforeClose(DataSet: TDataSet);
+begin
+  UnbindFields;
+  if Assigned(FOld_BeforeClose) then FOld_BeforeClose(DataSet);
+end;
+
+procedure TDatasetWrapper.DatasetBeforeOpen(DataSet: TDataSet);
+begin
+  if Assigned(fBeforeOpenIDataset) then fBeforeOpenIDataset(Self);
+  if Assigned(FOld_BeforeOpen) then FOld_BeforeOpen(DataSet);
+end;
+
+procedure TDatasetWrapper.Delete;
+begin
+  FDataset.Delete;
+end;
+
+destructor TDatasetWrapper.Destroy;
+begin
+  UnbindFields;
+  if FDataset <> nil then begin
+    FDataset.BeforeClose := FOld_BeforeClose;
+    FDataset.BeforeOpen := FOld_BeforeOpen;
+    FDataset.AfterOpen := FOld_AfterOpen;
+  end;
+  fFields.Free;
+  fParams.Free;
+  inherited;
+end;
+
+procedure TDatasetWrapper.DetachEventHooks(aDataset: TDataset);
+begin
+  fFields.FieldEventsDisabled := TRUE;
+end;
+
+procedure TDatasetWrapper.DisableConstraints;
+begin
+  // nothing
+end;
+
+procedure TDatasetWrapper.DisableControls;
+begin
+  FDataset.DisableControls;
+end;
+
+procedure TDatasetWrapper.DisableEventHandlers;
+begin
+  DetachEventHooks(Dataset);
+end;
+
+procedure TDatasetWrapper.Edit;
+begin
+  FDataset.Edit;
+end;
+
+procedure TDatasetWrapper.EnableConstraints;
+begin
+  // nothing
+end;
+
+procedure TDatasetWrapper.EnableControls;
+begin
+  FDataset.EnableControls;
+end;
+
+procedure TDatasetWrapper.EnableEventHandlers;
+begin
+  AttachEventHooks(Dataset);
+end;
+
+function TDatasetWrapper.Execute: integer;
+begin
+  // Not implemented
+  result := -1;
+end;
+
+function TDatasetWrapper.FieldByName(const aName: string): TDAField;
+begin
+  Result := fFields.FieldByName(aName);
+end;
+
+function TDatasetWrapper.FindField(const aName: string): TDAField;
+begin
+  result := fFields.FindField(aName);
+end;
+
+procedure TDatasetWrapper.First;
+begin
+  FDataset.First;
+end;
+
+procedure TDatasetWrapper.FreeBookmark(Bookmark: TBookmark);
+begin
+  FDataset.FreeBookmark(Bookmark);
+end;
+
+function TDatasetWrapper.GetActive: boolean;
+begin
+  Result := FDataset.Active;
+end;
+
+function TDatasetWrapper.GetBOF: boolean;
+begin
+  Result := FDataset.Bof;
+end;
+
+function TDatasetWrapper.GetBookMark: TBookmark;
+begin
+  Result := FDataset.GetBookmark;
+end;
+
+function TDatasetWrapper.GetCurrentRecIdValue: integer;
+begin
+  Result := FDataset.RecNo;
+end;
+
+function TDatasetWrapper.GetDataset: TDataset;
+begin
+  Result := FDataset;
+end;
+
+function TDatasetWrapper.GetEOF: boolean;
+begin
+  Result := FDataset.Eof;
+end;
+
+function TDatasetWrapper.GetFieldCount: integer;
+begin
+  Result := fFields.Count;
+end;
+
+function TDatasetWrapper.GetFields: TDAFieldCollection;
+begin
+  result := fFields;
+end;
+
+function TDatasetWrapper.GetFieldValues(Index: integer): Variant;
+begin
+  Result := fFields[Index].Value;
+end;
+
+function TDatasetWrapper.GetIsEmpty: boolean;
+begin
+  Result := FDataset.IsEmpty;
+end;
+
+function TDatasetWrapper.GetLogicalName: string;
+begin
+  Result := FLogicalName;
+end;
+
+function TDatasetWrapper.GetName: string;
+begin
+  if (LogicalName = '') then
+    result := Fdataset.Name
+  else
+    result := LogicalName;
+end;
+
+function TDatasetWrapper.GetNames(Index: integer): string;
+begin
+  Result := Fields[Index].Name;
+end;
+
+function TDatasetWrapper.GetOnAfterExecute: TDAAfterExecuteCommandEvent;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+function TDatasetWrapper.GetOnAfterOpen: TDAAfterOpenDatasetEvent;
+begin
+  result := fAfterOpenIDataset;
+end;
+
+function TDatasetWrapper.GetOnBeforeExecute: TDABeforeExecuteCommandEvent;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+function TDatasetWrapper.GetOnBeforeOpen: TDABeforeOpenDatasetEvent;
+begin
+  result := fBeforeOpenIDataset;
+end;
+
+function TDatasetWrapper.GetOnExecuteError: TDAExecuteCommandErrorEvent;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+function TDatasetWrapper.GetOnOpenError: TDAOpenDatasetErrorEvent;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+function TDatasetWrapper.GetParams: TDAParamCollection;
+begin
+  Result := fParams;
+end;
+
+function TDatasetWrapper.GetPrepared: boolean;
+begin
+  Result := False;
+  NotSupported();
+end;
+
+function TDatasetWrapper.GetRecordCount: integer;
+begin
+  Result := FDataset.RecordCount;
+end;
+
+function TDatasetWrapper.GetRowRecIDValue: integer;
+begin
+  result := -1;
+end;
+
+function TDatasetWrapper.GetSQL: string;
+begin
+  // Not implemented
+  result := '';
+end;
+
+function TDatasetWrapper.GetState: TDatasetState;
+begin
+  Result := FDataset.State;
+end;
+
+function TDatasetWrapper.GetWhere: TDAWhere;
+begin
+  Result := nil;
+end;
+
+procedure TDatasetWrapper.GotoBookmark(Bookmark: TBookmark);
+begin
+  FDataset.GotoBookmark(Bookmark);
+end;
+
+procedure TDatasetWrapper.Insert;
+begin
+  FDataset.Insert;
+end;
+
+procedure TDatasetWrapper.Last;
+begin
+  FDataset.Last;
+end;
+
+function TDatasetWrapper.Locate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  Result := FDataset.Locate(KeyFields, KeyValues, Options);
+end;
+
+function TDatasetWrapper.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  Result := FDataset.Lookup(KeyFields, KeyValues, ResultFields);
+end;
+
+procedure TDatasetWrapper.Next;
+begin
+  FDataset.Next;
+end;
+
+procedure TDatasetWrapper.Open;
+begin
+  Dataset.Open;
+end;
+
+function TDatasetWrapper.ParamByName(const aName: string): TDAParam;
+begin
+  Result := nil;
+  NotSupported();
+end;
+
+procedure TDatasetWrapper.Post;
+begin
+  FDataset.Post;
+end;
+
+procedure TDatasetWrapper.Prior;
+begin
+  FDataset.Prior;
+end;
+
+procedure TDatasetWrapper.Refresh;
+begin
+  FDataset.Refresh;
+end;
+
+procedure TDatasetWrapper.RefreshParams;
+begin
+  // Not implemented
+  NotSupported();
+end;
+
+procedure TDatasetWrapper.SetActive(Value: boolean);
+begin
+  FDataset.Active := Value;
+end;
+
+procedure TDatasetWrapper.SetCurrentRecIdValue(Value: integer);
+begin
+  FDataset.RecNo := Value;
+end;
+
+procedure TDatasetWrapper.SetLogicalName(aName: string);
+begin
+  FLogicalName := AName;
+end;
+
+procedure TDatasetWrapper.SetOnAfterExecute(
+  const Value: TDAAfterExecuteCommandEvent);
+begin
+  NotSupported();
+end;
+
+procedure TDatasetWrapper.SetOnAfterOpen(
+  const Value: TDAAfterOpenDatasetEvent);
+begin
+  fAfterOpenIDataset := Value;
+end;
+
+procedure TDatasetWrapper.SetOnBeforeExecute(
+  const Value: TDABeforeExecuteCommandEvent);
+begin
+  NotSupported();
+end;
+
+procedure TDatasetWrapper.SetOnBeforeOpen(
+  const Value: TDABeforeOpenDatasetEvent);
+begin
+  fBeforeOpenIDataset := Value;
+end;
+
+procedure TDatasetWrapper.SetOnExecuteError(
+  const Value: TDAExecuteCommandErrorEvent);
+begin
+  NotSupported();
+end;
+
+procedure TDatasetWrapper.SetOnOpenError(
+  const Value: TDAOpenDatasetErrorEvent);
+begin
+  NotSupported();
+end;
+
+procedure TDatasetWrapper.SetPrepared(Value: boolean);
+begin
+  NotSupported();
+end;
+
+procedure TDatasetWrapper.SetSQL(const Value: string);
+begin
+  // Not implemented
+end;
+
+procedure TDatasetWrapper.UnbindFields;
+var
+  i: integer;
+begin
+  for i := 0 to (FFields.Count - 1) do
+    fFields[i].Unbind;
+end;
+
+
+{$IFDEF MSWINDOWS}
+function TDatasetWrapper.InterfaceSupportsErrorInfo(const iid: TGUID): HResult;
+begin
+  if GetInterfaceEntry(iid) <> nil then
+    Result := S_OK
+  else
+    Result := S_FALSE;
+
+end;
+
+function TDatasetWrapper.SafeCallException(ExceptObject: TObject;
+  ExceptAddr: Pointer): HResult;
+begin
+  Result := uDAEngine.DAHandleSafeCallException(self,ExceptObject, ExceptAddr);
+end;
+{$ENDIF}
+
+function TDatasetWrapper.GetDynamicWhere: TDAWhereBuilder;
+begin
+  Result:=nil;
+end;
+
+procedure TDatasetWrapper.SetDynamicWhere(const Value: TDAWhereBuilder);
+begin
+  // nothing
+end;
+
+function TDatasetWrapper.SQLContainsDynamicWhere: boolean;
+begin
+  Result:=False;
+  // Not implemented
+end;
+
+function TDatasetWrapper.BookmarkValid(Bookmark: TBookmark): Boolean;
+begin
+  Result := FDataset.BookmarkValid(Bookmark);
+end;
+
+function TDatasetWrapper.ControlsDisabled: Boolean;
+begin
+  Result := FDataset.ControlsDisabled;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADelta.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADelta.pas
new file mode 100644
index 0000000..07ef2f3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADelta.pas	
@@ -0,0 +1,1455 @@
+unit uDADelta;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+{.$DEFINE uDADelta_DEBUG}
+interface
+
+uses
+  Classes, DB, SysUtils,
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  uRODL, uROTypes, uROClasses, uROClientIntf,
+  uDAInterfaces, uDAEngine,
+  DataAbstract3_Intf, DataAbstract4_Intf;
+
+const
+  UndefinedRecordID = -1;
+
+type
+  IDADelta = interface;
+  TDADelta = class;
+  TDADeltaChange = class;
+
+  TVariantArray = array of variant;
+
+  { Exceptions }
+  EDAApplyUpdateFailed = class(EROException)
+  private
+    fRecID: integer;
+    fDeltaName: string;
+
+  public
+    constructor Create(aChange: TDADeltaChange; anOriginalException: Exception);
+
+  published
+    property RecID: integer read fRecID write fRecID;
+    property DeltaName: string read fDeltaName write fDeltaName;
+  end;
+
+  IDADataTable = interface
+    ['{BC6CD610-6D6E-4CD7-B181-73B3A5F9DE4F}']
+  end;
+
+  { IDADeltaOwner }
+  IDADeltaOwner = interface
+    ['{A92ECD00-14B2-4147-AE49-9493C56763A0}']
+    function GetDelta: IDADelta; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { TDADeltaChange }
+  TDADeltaChange = class
+  private
+    fDelta: TDADelta;
+    fRecID: integer;
+    fNewValues: TVariantArray;
+    fOldValues: TVariantArray;
+    fChangeType: TDAChangeType;
+    fStatus: TDAChangeStatus;
+    fMessage: string;
+    fRefreshedByServer: boolean;
+
+    procedure SetNewValue(const aName: string; const Value: Variant);
+    procedure SetOldValue(const aName: string; const Value: Variant);
+    function GetNewValue(const aName: string): Variant;
+    function GetOldValue(const aName: string): Variant;
+    function GetDelta: IDADelta;
+  protected
+
+  public
+    constructor Create(aDelta: TDADelta;
+      aRecID: integer;
+      aChangeType: TDAChangeType;
+      aStatus: TDAChangeStatus = csPending;
+      aMessage: string = '');
+    destructor Destroy; override;
+
+    property RecID: integer read fRecID write fRecID;
+    property ChangeType: TDAChangeType read fChangeType write fChangeType;
+    property OldValues: TVariantArray read fOldValues write fOldValues;
+    property NewValues: TVariantArray read fNewValues write fNewValues;
+
+    property OldValueByName[const aName: string]: Variant read GetOldValue write SetOldValue;
+    property NewValueByName[const aName: string]: Variant read GetNewValue write SetNewValue;
+
+    property Status: TDAChangeStatus read fStatus write fStatus;
+    property Message: string read fMessage write fMessage;
+
+    property Delta : IDADelta read GetDelta;
+
+    property RefreshedByServer : boolean read fRefreshedByServer write fRefreshedByServer;
+  end;
+
+  { IDADelta }
+  IDADelta = interface
+    ['{0FD17DDB-3C34-4520-9106-4D3D540BA3D3}']
+    // Property readers/writers
+    function GetLoggedFieldCount: integer;
+    function GetInChange(aDataTable: TComponent = nil): boolean;
+    function GetCount: integer;
+    function GetBlockedRecordCount: integer;
+    function GetChange(Index: integer): TDADeltaChange;
+    function GetLoggedFieldNames(Index: integer): string;
+    function GetKeyFieldCount: integer;
+    function GetKeyFieldNames(Index: integer): string;
+    function GetLoggedFieldTypes(Index : integer): TDADataType;
+    procedure SetLoggedFieldTypes(anIndex : integer; aFieldType : TDADataType);
+    function GetLogicalName : string;
+    procedure SetLogicalName(const aName : string);
+
+    // Methods
+    procedure AssignDataTable(aDataTable : TComponent);
+
+    function FindChange(aRecID: integer): TDADeltaChange;
+    procedure RemoveChange(aChange: TDADeltaChange);
+
+    procedure Clear(DoClearFieldNames: boolean = FALSE; DoClearKeyFieldNames: boolean = FALSE);
+
+    procedure AddFieldName(const aFieldName: string; const aDataType: TDADataType = datUnknown);
+    procedure AddKeyFieldName(const aKeyFieldName: string);
+
+    procedure ClearFieldNames;
+    procedure ClearKeyFieldNames;
+
+    procedure StartChange(aChangeType: TDAChangeType; aDataTable : TComponent = nil);
+    procedure CancelChange(aDataTable : TComponent = nil);
+    procedure CancelChangesInAllTables;
+    procedure EndChange(aDataTable : TComponent = nil);
+    procedure EndChangesInAllTables;
+    procedure RestoreLastChange(aDataTable : TComponent = nil);
+    function IsCanEditCurrentRow(aDataTable : TComponent): Boolean;
+
+    function IsNewRecord(aRecordID: integer = -1): boolean;
+
+    procedure Add(aChange: TDADeltaChange); overload;
+    function Add(aRecordID: integer; aChangeType: TDAChangeType;
+      aStatus: TDAChangeStatus = csPending; const aMessage: string = ''): TDADeltaChange; overload;
+    procedure Delete(Index: integer);
+
+    function GetCountByStatus(aChangeStatus : TDAChangeStatus) : integer;
+
+    function IndexOfLoggedField(const aName: string): integer;
+    property LoggedFieldNames[Index: integer]: string read GetLoggedFieldNames;
+    property LoggedFieldCount: integer read GetLoggedFieldCount;
+
+    property KeyFieldNames[Index: integer]: string read GetKeyFieldNames;
+    property KeyFieldCount: integer read GetKeyFieldCount;
+
+    property LoggedFieldTypes[Index : integer]: TDADataType read GetLoggedFieldTypes write SetLoggedFieldTypes;
+
+    function GetDelta: TDADelta;
+    procedure RemoveUnchangedChanges;
+    procedure RemoveLoggedField(Index: integer); overload;
+    procedure RemoveLoggedField(AFieldName: string);overload;
+
+    property LogicalName : string read GetLogicalName write SetLogicalName;
+    property Changes[Index: integer]: TDADeltaChange read GetChange; default;
+    property Count: integer read GetCount;
+    property BlockedRecordCount: integer read GetBlockedRecordCount;
+  end;
+
+  { IDADataReader }
+  IDADataReader = interface
+    ['{7D2FC996-7A04-4ECE-91B0-4F17EFEC4985}']
+    function GetFieldNames(Index: integer): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldIndexes(const aName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetRecordCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetAsBoolean(Index: integer): boolean; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsCurrency(Index: integer): currency; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsDateTime(Index: integer): TDateTime; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsFloat(Index: integer): double; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsInteger(Index: integer): integer; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsString(Index: integer): string; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsVariant(Index: integer): variant; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetAsBoolean(const FieldName: string): boolean; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsCurrency(const FieldName: string): currency; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsDateTime(const FieldName: string): TDateTime; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsFloat(const FieldName: string): double; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsInteger(const FieldName: string): integer; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsString(const FieldName: string): string; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsVariant(const FieldName: string): variant; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function First: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Next: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property FieldNames[Index: integer]: string read GetFieldNames;
+    property FieldIndexes[const aFieldName: string]: integer read GetFieldIndexes;
+    property FieldCount: integer read GetFieldCount;
+
+    property RecordCount: integer read GetRecordCount;
+  end;
+
+  { TDADeltaList }
+  TDADeltaList = class(TInterfaceList)
+  private
+    function GetDeltas(Index: integer): IDADelta;
+
+  protected
+  public
+    function Add(const aDelta : IDADelta) : integer; reintroduce;
+    procedure Insert(Index: Integer; const aDelta: IDADelta); reintroduce;
+
+    function DeltaByName(const aDeltaName : string) : IDADelta;
+    function FindDelta(const aDeltaName : string) : IDADelta;
+
+    property Deltas[Index : integer] : IDADelta read GetDeltas; default;
+  end;
+
+  PDAChangeRecord = ^TDAChangeRecord;
+  TDAChangeRecord = record
+    DataTable: TComponent;
+    LastChange,
+    CurrentChange: TDADeltaChange;
+    NewChange: boolean;
+    CurrentChangeType: TDAChangeType;
+  end;
+
+  { TDADelta }
+  TDADelta = class(TDAEngineBaseObject, IDADelta, IDADataReader)
+  private
+    fDataTable: TComponent;
+    fChanges: TStringList;
+    fKeyFields,
+    fFieldNames: TStringList;
+    fCurrPosition: integer;
+    fLogicalName : string;
+    fChangeRecordList: TThreadList;
+    fBlockedRecordList: TThreadList;
+
+    function GetLoggedFieldCount: integer;
+    function GetInChange(aDataTable: TComponent = nil): boolean;
+    function GetCount: integer;
+    function GetChange(Index: integer): TDADeltaChange;
+    function GetLoggedFieldNames(Index: integer): string;
+    function GetKeyFieldCount: integer;
+    function GetKeyFieldNames(Index: integer): string;
+    function GetLoggedFieldTypes(Index : integer): TDADataType;
+    procedure SetLoggedFieldTypes(anIndex : integer; aFieldType : TDADataType);
+    procedure DeleteChange(anIndex : integer);
+    function GetChangeRecord(aDataTable: TComponent = nil; aCreateIfEmpty: Boolean = False): PDAChangeRecord;
+    function IsBlockedRecord(aChange: TDADeltaChange):Boolean;overload;
+    function IsBlockedRecord(aRecID: integer):Boolean;overload;
+    function BlockRecord(aChange: TDADeltaChange): Boolean;
+    procedure UnblockRecord(aChange: TDADeltaChange);
+    function GetBlockedRecordCount: integer;
+    procedure CanApplyDeltaChanges;
+    procedure intRemoveChange(aChange: TDADeltaChange);
+    function TryToLockDelta(aDataTable: TComponent; aRaiseException: Boolean): Boolean;
+  protected
+    function GetDelta: TDADelta;
+    function GetLogicalName : string;
+    procedure SetLogicalName(const aName : string);
+
+    // IDADataReader
+    function GetFieldNames(Index: integer): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldIndexes(const aName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsBoolean(Index: integer): boolean; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsCurrency(Index: integer): currency; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsDateTime(Index: integer): TDateTime; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsFloat(Index: integer): double; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsInteger(Index: integer): integer; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsString(Index: integer): string; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsVariant(Index: integer): variant; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsBoolean(const FieldName: string): boolean; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsCurrency(const FieldName: string): currency; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsDateTime(const FieldName: string): TDateTime; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsFloat(const FieldName: string): double; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsInteger(const FieldName: string): integer; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsString(const FieldName: string): string; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAsVariant(const FieldName: string): variant; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetRecordCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function First: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Next: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+  public
+    constructor Create(aDataTable: TComponent); overload;
+    constructor Create(const aLogicalName : string); overload;
+    constructor Create; overload;
+    destructor Destroy; override;
+
+    function FindChange(aRecID: integer): TDADeltaChange;
+    procedure RemoveChange(aChange: TDADeltaChange);
+
+    procedure Clear(DoClearFieldNames: boolean = FALSE; DoClearKeyFieldNames: boolean = FALSE);
+
+    procedure AssignDataTable(aDataTable : TComponent);
+
+    procedure AddFieldName(const aFieldName: string; const aDataType: TDADataType = datUnknown);
+    procedure AddKeyFieldName(const aKeyFieldName: string);
+    procedure ClearFieldNames;
+    procedure ClearKeyFieldNames;
+    procedure RemoveUnchangedChanges;
+
+    procedure Add(aChange: TDADeltaChange); overload;
+    function Add(aRecordID: integer; aChangeType: TDAChangeType;
+      aStatus: TDAChangeStatus = csPending; const aMessage: string = ''): TDADeltaChange; overload;
+    procedure Delete(Index: integer);
+
+    procedure StartChange(aChangeType: TDAChangeType; aDataTable : TComponent = nil);
+    procedure CancelChange(aDataTable : TComponent = nil);
+    procedure CancelChangesInAllTables;
+    procedure EndChange(aDataTable : TComponent = nil);
+    procedure EndChangesInAllTables;
+    procedure RestoreLastChange(aDataTable : TComponent = nil);
+    function IsCanEditCurrentRow(aDataTable : TComponent): Boolean;
+
+    function IsNewRecord(aRecordID: integer = -1): boolean;
+
+    function IndexOfLoggedField(const aName: string): integer;
+
+    function GetCountByStatus(aChangeStatus : TDAChangeStatus) : integer;
+    procedure RemoveLoggedField(Index: integer); overload;
+    procedure RemoveLoggedField(AFieldName: string);overload;
+
+    function CurrentChange(aDataTable : TComponent = nil): TDADeltaChange;
+
+    property KeyFieldNames[Index: integer]: string read GetKeyFieldNames;
+    property KeyFieldCount: integer read GetKeyFieldCount;
+
+    property LoggedFieldNames[Index: integer]: string read GetLoggedFieldNames;
+    property LoggedFieldCount: integer read GetLoggedFieldCount;
+    property LoggedFieldTypes[Index : integer]: TDADataType read GetLoggedFieldTypes write SetLoggedFieldTypes;
+    function InChange(aDataTable : TComponent = nil): boolean;
+
+    property Changes[Index: integer]: TDADeltaChange read GetChange; default;
+    property Count: integer read GetCount;
+    //property DataTable: TComponent read fDataTable;
+  end;
+
+function FormatRecIDString(aRecID: integer): string;
+function NewDelta(aDeltaName: string): IDADelta; overload;
+
+function FieldValueToVariant(aSourceField : TDAField) : Variant;
+procedure VariantToFieldValue(const aSourceVariant : Variant; aField : TDAField);
+
+
+implementation
+
+uses
+  Variants, TypInfo,
+  uROClient, uROSessions, uROXMLIntf,
+  uDARes, uDARegExpr, uDADataTable;
+
+function CreateChangeRecord(aDataTable: TComponent): PDAChangeRecord;
+begin
+  GetMem(Result, SizeOf(TDAChangeRecord));
+  FillChar(Result^, SizeOf(TDAChangeRecord), 0);
+  Result^.DataTable := aDataTable;
+end;
+
+procedure FreeChangeRecord(aRecord: pointer);
+begin
+  FreeMem(aRecord);
+end;
+
+function FormatRecIDString(aRecID: integer): string;
+begin
+  result := FormatFloat('0000000000', aRecID);
+end;
+
+function NewDelta(aDeltaName: string): IDADelta;
+begin
+  result := TDADelta.Create(aDeltaName);
+end;
+
+{ TDADeltaList }
+
+function TDADeltaList.Add(const aDelta: IDADelta): integer;
+begin
+  result := inherited Add(aDelta);
+end;
+
+function TDADeltaList.DeltaByName(const aDeltaName: string): IDADelta;
+begin
+  result := FindDelta(aDeltaName);
+  if (result=NIL) then raise Exception.Create('Cannot find delta '+aDeltaName);
+end;
+
+function TDADeltaList.FindDelta(const aDeltaName: string): IDADelta;
+var i : integer;
+begin
+  result := NIL;
+  for i := 0 to (Count-1) do
+    if SameText(Deltas[i].LogicalName, aDeltaName) then begin
+      result := Deltas[i];
+      Exit;
+    end;
+end;
+
+function TDADeltaList.GetDeltas(Index: integer): IDADelta;
+begin
+  result := inherited Items[Index] as IDADelta;
+end;
+
+procedure TDADeltaList.Insert(Index: Integer; const aDelta: IDADelta);
+begin
+  inherited Insert(Index, aDelta);
+end;
+
+{ TDADelta }
+
+constructor TDADelta.Create(const aLogicalName: string);
+begin
+  inherited Create;
+
+  // This error is often generated if the user forgets to set LogicalName in the data table
+  if (aLogicalName='') then raise Exception.Create('Cannot create a delta without a name');
+
+  fLogicalName := aLogicalName;
+
+  fKeyFields := TStringList.Create;
+  fFieldNames := TStringList.Create;
+
+  fChanges := TStringList.Create;
+  fChanges.Duplicates := dupError;
+//  fChanges.Sorted := TRUE;
+  fChangeRecordList:= TThreadList.Create;
+  fBlockedRecordList:= TThreadList.Create;
+end;
+
+constructor TDADelta.Create;
+begin
+  Create(NewGuidAsString);
+end;
+
+function TDADelta.CurrentChange(aDataTable: TComponent): TDADeltaChange;
+var
+  lRecord : PDAChangeRecord;
+begin
+  if aDataTable = nil then aDataTable := fDataTable;
+  lRecord := GetChangeRecord(aDataTable, False);
+  if Assigned(lRecord) then
+    Result := lRecord^.CurrentChange
+  else
+    Result := nil;
+end;
+
+constructor TDADelta.Create(aDataTable: TComponent);
+var i: integer;
+    dnme : string;
+    dt: TDADataTable;
+begin
+  { AleF: Changed the logic of how delta creation works. The name of the delta is required and, if using
+          this overloaded version of create, it will be taken from the datatable.LogicalName.
+          This was made to optimize the adapters which, right noiw, require a list of delta names and
+          one of deltas. Because of this change, adapters can find the name from the delta itself.
+  }
+  if (aDataTable=NIL) then raise Exception.Create('Datatable must be assigned');
+  dt:=aDataTable as TDADataTable;
+  if (dt.LogicalName<>'') then
+    dnme := dt.LogicalName
+  else
+    dnme := dt.Name;
+
+  Create(dnme); // Calls the constructor above;
+  fDataTable := aDataTable;
+
+  for i := 0 to (dt.Fields.Count - 1) do
+    with dt.Fields[i] do begin
+      if LogChanges or InPrimaryKey then fFieldNames.Add(Name);
+      if InPrimaryKey then fKeyFields.Add(Name);
+    end;
+
+  for i := 0 to (fFieldNames.Count-1) do
+    fFieldNames.Objects[i] := TObject(ord(dt.FieldByName(fFieldNames[i]).DataType));
+end;
+
+destructor TDADelta.Destroy;
+var
+  lList: TList;
+  lRecord: PDAChangeRecord;
+  i: integer;
+begin
+  // Removes the current change (if new and not yet in the changes list)
+  lList := fChangeRecordList.LockList;
+  try
+    for I := 0 to lList.Count - 1 do begin
+      lRecord := PDAChangeRecord(lList[i]);
+      if (lRecord <> nil) then
+        if (lRecord^.CurrentChange<>NIL) then
+          if (FindChange(lRecord^.CurrentChange.RecID)=NIL) then FreeAndNIL(lRecord^.CurrentChange);
+    end;
+  finally
+    fChangeRecordList.UnlockList;
+  end;
+
+
+  if (fChanges<>NIL) then begin
+    Clear;
+    fChanges.Free;
+  end;
+
+  fFieldNames.Free;
+  fKeyFields.Free;
+  fChangeRecordList.Free;
+  fBlockedRecordList.Free;
+  inherited;
+end;
+
+function TDADelta.GetLoggedFieldCount: integer;
+begin
+  result := fFieldNames.Count;
+end;
+
+function FieldValueToVariant(aSourceField : TDAField) : Variant;
+var stream : IROStream;
+    p : pointer;
+    sze : cardinal;
+begin
+  case aSourceField.DataType of
+    datBlob : begin
+      if aSourceField.IsNull {or (aSourceField.BlobSize = 0)} then result := Unassigned
+      else begin
+        stream := NewROStream;
+        aSourceField.SaveToStream(stream);
+        sze := stream.Size;
+        if stream.Size = 0 then
+          result := Unassigned
+        else begin
+          stream.Position := 0;
+          result := VarArrayCreate([0, sze-1], varByte);
+          p := VarArrayLock(result);
+          try
+          stream.Read(p^, sze);
+          finally
+            VarArrayUnlock(result);
+          end;
+          stream.Position := 0;
+        end;
+      end;
+    end;
+    {$IFDEF DA_WideMemoSupport}
+    datXml,
+    datWideMemo:
+      if aSourceField.IsNull then
+        Result := Unassigned
+      else
+        Result:= aSourceField.AsWideString;
+    {$ENDIF}
+    else result := aSourceField.Value;
+  end;
+end;
+
+procedure VariantToFieldValue(const aSourceVariant : Variant; aField : TDAField);
+var stream : IROStream;
+    p : pointer;
+    readcount, sze : cardinal;
+begin
+  case aField.DataType of
+    datBlob:
+      if VarIsEmpty(aSourceVariant) then begin
+        aField.Value := Unassigned;
+      end
+      else begin
+        if VarType(aSourceVariant) = varString then begin
+          aField.AsAnsiString:= VarToAnsiStr(aSourceVariant);
+        end
+        else begin
+          stream := NewROStream;
+
+          sze := VarArrayHighBound(aSourceVariant, 1) - VarArrayLowBound(aSourceVariant, 1) + 1;
+          p := VarArrayLock(aSourceVariant);
+          try
+          readcount := stream.Write(p^, sze);
+          finally
+            VarArrayUnlock(aSourceVariant);
+          end;
+
+          if (readcount<>sze)
+            then raise Exception.CreateFmt('Couldn''t read all data. Expected %d read %d', [sze, readcount]);
+
+          stream.Position := 0;
+          aField.LoadFromStream(stream);
+        end;
+      end;
+    {$IFDEF DA_WideMemoSupport}
+    datXml,
+    datWideMemo: aField.AsWideString:=aSourceVariant;
+    {$ENDIF DA_WideMemoSupport}
+    else aField.Value := aSourceVariant;
+  end;
+end;
+
+procedure TDADelta.StartChange(aChangeType: TDAChangeType; aDataTable : TComponent = nil);
+var
+  recid: integer;
+  x, i: integer;
+  lRecord: PDAChangeRecord;
+  lChange: TDADeltaChange;
+begin
+  {$IFDEF uDADelta_DEBUG}
+  OutputDebugString(Pchar('StartChange('+inttoStr(ord(aChangeType))+', $'+inttoHex(Cardinal(aDataTable),8)+')'));
+  {$ENDIF}
+  if aDataTable = nil then aDataTable := fDataTable;
+  if not Assigned(aDataTable) then RaiseError(err_NotAttachedToDataTable);
+  if not Assigned(fDataTable) then RaiseError(err_NotAttachedToDataTable);
+  TryToLockDelta(aDataTable, True);
+
+  lRecord := GetChangeRecord(aDataTable,True);
+  if lRecord^.CurrentChange <> nil then RaiseError(err_ChangeLogAlreadyStarted);
+
+
+  // Checks to see if this is the first time this record was changed
+  if (aChangeType <> ctInsert) then begin
+    recid := (aDataTable as TDADataTable).GetRowRecIDValue; // CurrRecId;
+    if IsBlockedRecord(recid) then RaiseError('Cannot edit the record because it is edited by other table');
+    lChange := FindChange(recid);
+    if (lChange <> nil) and (not BlockRecord(lChange)) then RaiseError('Cannot edit the record because it is edited by other table');
+    lRecord^.CurrentChange := lChange;
+    lRecord^.NewChange := (lChange = nil);
+  end
+  else begin
+    recid := UndefinedRecordID;
+    lRecord^.NewChange := TRUE;
+  end;
+
+  lRecord^.CurrentChangeType := aChangeType;
+
+  if lRecord^.NewChange then begin
+    lRecord^.CurrentChange := TDADeltaChange.Create(Self, recid, aChangeType);
+    BlockRecord(lRecord^.CurrentChange);
+
+    // For deletes and edit, we want to store the original values.
+    // This happens only once.
+    case aChangeType of
+      ctDelete, ctUpdate: begin
+          with (fDataTable as TDADataTable).Fields do begin
+            x := 0;
+            for i := 0 to ((fDataTable as TDADataTable).FieldCount - 1) do begin
+              if Fields[i].LogChanges or Fields[i].InPrimaryKey then begin
+                lRecord^.CurrentChange.OldValues[x] := FieldValueToVariant(Fields[i]);
+                Inc(x);
+              end;
+            end;
+          end;
+        end
+    end;
+  end;
+end;
+
+procedure TDADelta.UnblockRecord(aChange: TDADeltaChange);
+begin
+  if aChange <> nil then fBlockedRecordList.Remove(aChange);
+  {$IFDEF uDADelta_DEBUG}
+  OutputDebugString(Pchar('UnblockRecord($'+inttoHex(integer(aChange),8)+')'));
+  {$ENDIF}
+end;
+
+procedure TDADelta.CanApplyDeltaChanges;
+begin
+  if GetBlockedRecordCount <> 0 then RaiseError('Cannot update delta, some records are under editing!');
+end;
+
+procedure TDADelta.CancelChange(aDataTable : TComponent = nil);
+var
+  lRecord: PDAChangeRecord;
+begin
+  {$IFDEF uDADelta_DEBUG}
+  OutputDebugString(Pchar('CancelChange($'+inttoHex(Cardinal(aDataTable),8)+')'));
+  {$ENDIF}
+  if aDataTable = nil then aDataTable := fDataTable;
+  lRecord := GetChangeRecord(aDataTable,False);
+  if lRecord = nil then Exit; // no changes for this table
+  UnblockRecord(lRecord^.CurrentChange);
+  //if not Assigned(fDataTable) then RaiseError(err_NotAttachedToDataTable);
+  if lRecord^.NewChange then FreeAndNIL(lRecord^.CurrentChange); // if it is not a new change (i.e. cancelling an edit) should not free!
+  lRecord^.CurrentChange := nil; // nil it in either case!
+end;
+
+procedure TDADelta.CancelChangesInAllTables;
+var
+  i: integer;
+  lList: TList;
+  lrecord: PDAChangeRecord;
+  dt: TDADataTable;
+begin
+  lList:= fChangeRecordList.LockList;
+  try
+    for I := 0 to lList.Count - 1 do begin
+      lrecord := PDAChangeRecord(lList[i]);
+      if (lrecord^.CurrentChange <> nil) then begin
+        dt := TDADataTable(lrecord^.DataTable);
+        if dt.State in [dsInsert, dsEdit] then dt.Cancel;
+      end;
+      FreeChangeRecord(lrecord);
+    end;
+    lList.Clear;
+  finally
+    fChangeRecordList.UnlockList;
+  end;
+end;
+
+function TDADelta.IsCanEditCurrentRow(aDataTable: TComponent): Boolean;
+var
+  recid: integer;
+  lRecord: PDAChangeRecord;
+  lChange: TDADeltaChange;
+begin
+  Result := False;
+  if aDataTable = nil then aDataTable := fDataTable;
+  if not Assigned(aDataTable) or not Assigned(fDataTable) then exit;
+  if not TryToLockDelta(aDataTable,False) then Exit;
+
+  lRecord := GetChangeRecord(aDataTable, False);
+  if (lRecord <> nil) and (lRecord^.CurrentChange <> nil) then Exit;
+
+  recid := (aDataTable as TDADataTable).GetRowRecIDValue; // CurrRecId;
+  if IsBlockedRecord(recid) then Exit;
+  lChange := FindChange(recid);
+  Result := (lChange = nil) or not IsBlockedRecord(lChange);
+end;
+
+function TDADelta.TryToLockDelta(aDataTable: TComponent; aRaiseException: Boolean): Boolean;
+var
+  lList: TList;
+  i,l: integer;
+  ldatatable: TDADataTable;
+begin
+  Result := True;
+  l := 0;
+  ldatatable := nil;
+  lList := fChangeRecordList.LockList;
+  try
+    for I := 0 to lList.Count - 1 do begin
+      if PDAChangeRecord(lList[i])^.CurrentChange <> nil then begin
+        Inc(l);
+        ldatatable := TDADataTable(PDAChangeRecord(lList[i])^.DataTable);
+      end;
+    end;
+    if l = 0 then
+      Exit
+    else if (l = 1) and (ruoOnPost in ldatatable.RemoteUpdatesOptions) then begin
+      Result := False;
+      if aRaiseException then RaiseError('Cannot StartChange. Another table (%s) exclusively locks delta.',[lDataTable.Name])
+    end
+    else if (ruoOnPost in TDADataTable(adatatable).RemoteUpdatesOptions) then begin
+      Result := False;
+      if aRaiseException then RaiseError('%s:Cannot exclusively lock delta. %d change(s) are already started.',[aDataTable.Name,l]);
+    end;
+  finally
+    fChangeRecordList.UnlockList;
+  end;
+end;
+
+procedure TDADelta.EndChange(aDataTable : TComponent = nil);
+var
+  x, i: integer;
+  lWasChanged: Boolean;
+  lLoggedFieldName: string;
+  lNewValue, lOldValue: Variant;
+  lDataTable: TDAdataTable;
+  lRecord: PDAChangeRecord;
+begin
+  {$IFDEF uDADelta_DEBUG}
+  OutputDebugString(Pchar('EndChange($'+inttoHex(Cardinal(aDataTable),8)+')'));
+  {$ENDIF}
+  if aDataTable = nil then aDataTable := fDataTable;
+  if not Assigned(aDataTable) then RaiseError(err_NotAttachedToDataTable);
+  if not Assigned(fDataTable) then RaiseError(err_NotAttachedToDataTable);
+  lRecord := GetChangeRecord(aDataTable,False);
+  if not Assigned(lRecord) then begin
+    if (aDataTable <> fDataTable) then
+      RaiseError('Delta is not been started for %s',[aDataTable.Name])
+    else
+      RaiseError('Delta is not been started');
+  end;
+
+  lDataTable := (aDataTable as TDADataTable);
+  try
+    if (lRecord^.CurrentChange.RecID = UndefinedRecordID) then
+      lRecord^.CurrentChange.RecID := lDataTable.GetRowRecIDValue // Happens on inserts and first time changes (except deletes)
+    else if (lRecord^.CurrentChange.RecID <> lDataTable.GetRowRecIDValue)then
+      raise Exception.Create('Record pointer changed!');
+
+    // Doing a new operation on the same record
+    if (lRecord^.CurrentChange.ChangeType <> lRecord^.CurrentChangeType) then begin
+      case lRecord^.CurrentChangeType of
+        ctDelete: begin
+            if (lRecord^.CurrentChange.ChangeType = ctInsert) then begin // No need to track new records that have been deleted
+              UnblockRecord(lRecord^.CurrentChange);
+              intRemoveChange(lRecord^.CurrentChange);
+              lRecord^.CurrentChange := nil;
+              Exit; // Done!
+            end
+            else begin
+              lRecord^.CurrentChange.ChangeType := lRecord^.CurrentChangeType; // Deletes have precedence over anything else
+              for i := 0 to (LoggedFieldCount - 1) do
+                lRecord^.CurrentChange.NewValues[i] := UnAssigned;
+            end;
+          end;
+      end;
+    end;
+
+    case lRecord^.CurrentChange.ChangeType of
+      ctUpdate, ctInsert: begin
+          with lDataTable.Fields do begin
+            lWasChanged := False;
+            x := 0;
+            for i := 0 to (lDataTable.FieldCount - 1) do begin
+              if Fields[i].LogChanges or Fields[i].InPrimaryKey then begin
+                lRecord^.CurrentChange.NewValues[x] := FieldValueToVariant(Fields[i]);
+                lOldValue := null; // fix for "Invalid Variant Type" exception in Win2000
+                lNewValue := null; // fix for "Invalid Variant Type" exception in Win2000
+                lOldValue := lRecord^.CurrentChange.OldValues[x];                
+                lNewValue := lRecord^.CurrentChange.NewValues[x];
+                if lRecord^.CurrentChange.ChangeType = ctUpdate then begin
+                  lWasChanged := lWasChanged or not ROVariantsEqual(lOldValue, lNewValue);
+                end else begin
+                  lLoggedFieldName := lRecord^.CurrentChange.Delta.LoggedFieldNames[x];
+                  if FieldByName(lLoggedFieldName).InPrimaryKey {and VarIsEmpty(lOldValue)} then begin
+                    lRecord^.CurrentChange.OldValues[x] := lNewValue;
+                  end;
+                end;
+                Inc(x);
+              end;
+            end;
+            if (lRecord^.CurrentChange.ChangeType = ctUpdate) and (not lWasChanged) then begin //The change doesn't affect any fields with LogChanges
+              CancelChange(aDataTable);
+              Exit; // Done!
+            end;
+          end;
+        end;
+    end;
+
+    if lRecord^.NewChange then fChanges.AddObject(FormatRecIDString(lRecord^.CurrentChange.RecID), lRecord^.CurrentChange);
+
+  finally
+    // ALEF: added to keep a log of the last change in case a post fails. It will be restored in such case
+    //       via the InternalOnPostError through a call to RestoreLastChange
+    UnblockRecord(lRecord^.CurrentChange);
+    lRecord^.LastChange := lRecord^.CurrentChange;
+
+    lRecord^.CurrentChange := nil;
+  end;
+end;
+
+procedure TDADelta.EndChangesInAllTables;
+var
+  i: integer;
+  lList: TList;
+  lrecord: PDAChangeRecord;
+  dt: TDADataTable;
+begin
+  lList:= fChangeRecordList.LockList;
+  try
+    for I := 0 to lList.Count - 1 do begin
+      lrecord := PDAChangeRecord(lList[i]);
+      if (lrecord^.CurrentChange <> nil) then begin
+        dt := TDADataTable(lrecord^.DataTable);
+        if dt.State in [dsInsert, dsEdit] then dt.Post;
+      end;
+    end;
+  finally
+    fChangeRecordList.UnlockList;
+  end;
+end;
+
+function TDADelta.GetInChange(aDataTable: TComponent = nil): boolean;
+var
+  lRecord : PDAChangeRecord;
+begin
+  if aDataTable = nil then aDataTable := fDataTable;
+  lRecord := GetChangeRecord(aDataTable, False);
+  Result := Assigned(lRecord) and (lRecord^.CurrentChange <> nil);
+end;
+
+function TDADelta.FindChange(aRecID: integer): TDADeltaChange;
+var
+  idx: integer;
+begin
+  result := nil;
+  idx := fChanges.IndexOf(FormatRecIDString(aRecID));
+  if (idx >= 0) then result := TDADeltaChange(fChanges.Objects[idx]);
+end;
+
+function TDADelta.GetCount: integer;
+begin
+  result := fChanges.Count;
+end;
+
+procedure TDADelta.Clear(DoClearFieldNames: boolean = FALSE; DoClearKeyFieldNames: boolean = FALSE);
+var
+  i: integer;
+begin
+  CancelChangesInAllTables;
+
+  CanApplyDeltaChanges;
+
+  for i := 0 to (fChanges.Count - 1) do
+    if (fChanges.Objects[i]<>NIL) then fChanges.Objects[i].Free;
+
+  fChanges.Clear;
+
+  if DoClearFieldNames then fFieldNames.Clear;
+  if DoClearKeyFieldNames then ClearKeyFieldNames;
+
+  fCurrPosition := 0;
+end;
+
+function TDADelta.GetChange(Index: integer): TDADeltaChange;
+begin
+  result := TDADeltaChange(fChanges.Objects[Index]);
+end;
+
+function TDADelta.GetChangeRecord(aDataTable: TComponent = nil; aCreateIfEmpty: Boolean = False): PDAChangeRecord;
+var
+  i : integer;
+  lList: TList;
+begin
+  lList := fChangeRecordList.LockList;
+  try
+    for i := 0 to LList.Count - 1 do begin
+      Result := PDAChangeRecord(lList[i]);
+      if Result^.DataTable = aDataTable then Exit;
+    end;
+    Result := CreateChangeRecord(aDataTable);
+    llist.Add(Result);
+  finally
+    fChangeRecordList.UnlockList;
+  end;
+end;
+
+procedure TDADelta.RemoveChange(aChange: TDADeltaChange);
+begin
+  if IsBlockedRecord(aChange) then RaiseError('Cannot delete change, it is under editing!');
+  intRemoveChange(aChange);
+end;
+
+procedure TDADelta.RemoveLoggedField(Index: integer);
+var
+  i,j: integer;
+  lChange: TDADeltaChange;
+begin
+  CanApplyDeltaChanges;
+ // don't have to validate for Index because it is validated in "fFieldNames[Index]"
+  i := fKeyFields.IndexOf(fFieldNames[Index]);
+  if i <> -1 then fKeyFields.Delete(i);
+
+  for i := 0 to Count - 1 do begin
+    lChange := GetChange(i);
+    for j := Index to LoggedFieldCount - 2 do begin
+      lChange.OldValues[j] := lChange.OldValues[j+1];
+      lChange.NewValues[j] := lChange.NewValues[j+1];
+    end;
+    SetLength(lChange.fOldValues, LoggedFieldCount-1);
+    SetLength(lChange.fNewValues, LoggedFieldCount-1);
+  end;
+  fFieldNames.Delete(Index);
+end;
+
+procedure TDADelta.RemoveLoggedField(AFieldName: string);
+var
+  i: integer;
+begin
+  i := IndexOfLoggedField(AFieldName);
+  if i = -1 then
+    RaiseError(err_CannotFindField, [aFieldName])
+  else
+    RemoveLoggedField(i);
+end;
+
+function TDADelta.GetLoggedFieldNames(Index: integer): string;
+begin
+  result := fFieldNames[Index]
+end;
+
+procedure TDADelta.AddFieldName(const aFieldName: string; const aDataType: TDADataType = datUnknown);
+var
+  i: integer;
+  lChange: TDADeltaChange;
+begin
+  CanApplyDeltaChanges;
+  fFieldNames.AddObject(aFieldName, TObject(ord(aDataType)));
+  for i := 0 to Count - 1 do begin
+    lChange := GetChange(i);
+    SetLength(lChange.fOldValues, LoggedFieldCount);
+    SetLength(lChange.fNewValues, LoggedFieldCount);
+  end;
+end;
+
+procedure TDADelta.ClearFieldNames;
+begin
+  Clear(True,False);
+end;
+
+procedure TDADelta.Add(aChange: TDADeltaChange);
+begin
+  fChanges.AddObject(FormatRecIDString(aChange.RecId), aChange);
+end;
+
+procedure TDADelta.Delete(Index: integer);
+begin
+  if IsBlockedRecord(TDADeltaChange(fChanges.Objects[Index])) then RaiseError('Cannot delete change, it is under editing!');
+  DeleteChange(Index);
+end;
+
+function TDADelta.InChange(aDataTable: TComponent = nil): boolean;
+begin
+  if aDataTable = nil then aDataTable := fDataTable; 
+  Result := GetInChange(aDataTable);
+end;
+
+function TDADelta.IndexOfLoggedField(const aName: string): integer;
+begin
+  result := fFieldNames.IndexOf(aName)
+end;
+
+function TDADelta.GetDelta: TDADelta;
+begin
+  result := Self;
+end;
+
+function TDADelta.IsBlockedRecord(aChange: TDADeltaChange): Boolean;
+var
+  lList: TList;
+begin
+  lList := fBlockedRecordList.LockList;
+  try
+    Result := lList.IndexOf(aChange) <> -1;
+  finally
+    fBlockedRecordList.UnlockList;
+  end;
+  {$IFDEF uDADelta_DEBUG}
+  OutputDebugString(Pchar('IsBlockedRecord($'+inttoHex(integer(aChange),8)+')= ' + BoolToStr(Result,True)));
+  {$ENDIF}
+end;
+
+function TDADelta.IsNewRecord(aRecordID: integer = -1): boolean;
+var
+  recid, i: integer;
+begin
+  result := FALSE;
+  recid := aRecordID;
+
+  if (aRecordID = -1) then begin
+    if ((fDataTable as TDADataTable).RecordCount > 0) then
+      recid := (fDataTable as TDADataTable).GetRowRecIDValue
+    else
+      Exit;
+  end;
+
+  for i := 0 to Count - 1 do
+    if (Changes[i].RecID = recid) then begin
+      result := Changes[i].ChangeType = ctInsert;
+      Exit;
+    end;
+end;
+
+function TDADelta.GetKeyFieldCount: integer;
+begin
+  result := fKeyFields.Count
+end;
+
+function TDADelta.GetKeyFieldNames(Index: integer): string;
+begin
+  result := fKeyFields[Index]
+end;
+
+procedure TDADelta.ClearKeyFieldNames;
+begin
+  fKeyFields.Clear;
+end;
+
+procedure TDADelta.AddKeyFieldName(const aKeyFieldName: string);
+begin
+  if IndexOfLoggedField(aKeyFieldName) = -1 then raise EDAException.CreateFmt('%s should be in LoggedField', [aKeyFieldName]);
+  fKeyFields.Add(aKeyFieldName)
+end;
+
+function TDADelta.Add(aRecordID: integer; aChangeType: TDAChangeType;
+  aStatus: TDAChangeStatus; const aMessage: string): TDADeltaChange;
+begin
+  result := TDADeltaChange.Create(Self, aRecordID, aChangeType, aStatus, aMessage);
+  Add(result);
+end;
+
+function TDADelta.GetFieldCount: integer;
+begin
+  result := fFieldNames.Count;
+end;
+
+function TDADelta.GetFieldIndexes(const aName: string): integer;
+begin
+  result := fFieldNames.IndexOf(aName);
+end;
+
+function TDADelta.GetFieldNames(Index: integer): string;
+begin
+  result := fFieldNames[Index];
+end;
+
+function TDADelta.GetAsBoolean(const FieldName: string): boolean;
+begin
+  result := GetVarBoolean(Changes[fCurrPosition].NewValueByName[FieldName]);
+end;
+
+function TDADelta.GetAsBoolean(Index: integer): boolean;
+begin
+  result := GetVarBoolean(Changes[fCurrPosition].NewValues[Index]);
+end;
+
+function TDADelta.GetAsCurrency(Index: integer): currency;
+begin
+  result := GetVarCurrency(Changes[fCurrPosition].NewValues[Index]);
+end;
+
+function TDADelta.GetAsCurrency(const FieldName: string): currency;
+begin
+  result := GetVarCurrency(Changes[fCurrPosition].NewValueByName[FieldName]);
+end;
+
+function TDADelta.GetAsDateTime(Index: integer): TDateTime;
+begin
+  result := GetVarDateTime(Changes[fCurrPosition].NewValues[Index]);
+end;
+
+function TDADelta.GetAsDateTime(const FieldName: string): TDateTime;
+begin
+  result := GetVarDateTime(Changes[fCurrPosition].NewValueByName[FieldName]);
+end;
+
+function TDADelta.GetAsFloat(Index: integer): double;
+begin
+  result := GetVarFloat(Changes[fCurrPosition].NewValues[Index]);
+end;
+
+function TDADelta.GetAsFloat(const FieldName: string): double;
+begin
+  result := GetVarFloat(Changes[fCurrPosition].NewValueByName[FieldName]);
+end;
+
+function TDADelta.GetAsInteger(Index: integer): integer;
+begin
+  result := GetVarInteger(Changes[fCurrPosition].NewValues[Index]);
+end;
+
+function TDADelta.GetAsInteger(const FieldName: string): integer;
+begin
+  result := GetVarInteger(Changes[fCurrPosition].NewValueByName[FieldName]);
+end;
+
+function TDADelta.GetAsString(const FieldName: string): string;
+begin
+  result := GetVarString(Changes[fCurrPosition].NewValueByName[FieldName]);
+end;
+
+function TDADelta.GetAsString(Index: integer): string;
+begin
+  result := GetVarString(Changes[fCurrPosition].NewValues[Index]);
+end;
+
+function TDADelta.GetAsVariant(Index: integer): variant;
+begin
+  result := Changes[fCurrPosition].NewValues[Index];
+end;
+
+function TDADelta.GetAsVariant(const FieldName: string): variant;
+begin
+  result := Changes[fCurrPosition].NewValueByName[FieldName];
+end;
+
+function TDADelta.GetBlockedRecordCount: integer;
+var
+  lList: TList;
+begin
+  lList := fBlockedRecordList.LockList;
+  try
+    Result := lList.Count;
+  finally
+    fBlockedRecordList.UnlockList;
+  end;
+end;
+
+function TDADelta.First: boolean;
+begin
+  result := (fChanges.Count > 0);
+  if result then fCurrPosition := 0;
+end;
+
+function TDADelta.GetRecordCount: integer;
+begin
+  result := fChanges.Count;
+end;
+
+function TDADelta.Next: boolean;
+begin
+  result := (fCurrPosition < fChanges.Count - 1);
+
+  if result then Inc(fCurrPosition);
+end;
+
+function TDADelta.Locate(const KeyFields: string; const KeyValues: Variant;
+  Options: TLocateOptions): Boolean;
+begin
+  result := FALSE; // Deltas don't support searches for now
+end;
+
+function TDADelta.GetLoggedFieldTypes(Index: integer): TDADataType;
+begin
+  result := TDADataType(Cardinal(fFieldNames.Objects[Index]));
+end;
+
+procedure TDADelta.SetLoggedFieldTypes(anIndex: integer;
+  aFieldType: TDADataType);
+begin
+  fFieldNames.Objects[anIndex] := TObject(ord(aFieldType));
+end;
+
+procedure TDADelta.RestoreLastChange(aDataTable : TComponent = nil);
+var
+  i: integer;
+  lRecord: PDAChangeRecord;
+begin
+  {$IFDEF uDADelta_DEBUG}
+  OutputDebugString(Pchar('RestoreLastChange($'+inttoHex(Cardinal(aDataTable),8)+')'));
+  {$ENDIF}
+  if aDataTable = nil then aDataTable := fDataTable;
+  lRecord := GetChangeRecord(aDataTable,False);
+  if lRecord = nil then Exit; // we can't restore if no operations were here
+
+
+  if (lRecord^.LastChange = nil) and (fChanges.Count=1) and (aDataTable = fDataTable) and
+     (fDataTable <>nil) and (fDataTable is TDADataTable) and
+     (ruoOnPost in TDADataTable(fDataTable).RemoteUpdatesOptions) and
+     (TDADataTable(fDataTable).State in [dsEdit,dsInsert]) then
+       lRecord^.LastChange := Changes[0];
+  if (lRecord^.LastChange <> nil) and (FindChange(lRecord^.LastChange.fRecID) = nil) then lRecord^.LastChange := nil; 
+  lRecord^.CurrentChange := lRecord^.LastChange;
+  if lRecord^.NewChange and (lRecord^.CurrentChange <> nil) then begin
+    i:=fChanges.IndexOf(FormatRecIDString(lRecord^.CurrentChange.RecID));
+    if i <> -1 then fChanges.Delete(i);
+    lRecord^.CurrentChange.RecID := UndefinedRecordID;
+// basically nulls this --> fChanges.AddObject(FormatRecIDString(fCurrentChange.RecID), fCurrentChange);
+  end;
+end;
+
+function TDADelta.GetCountByStatus(
+  aChangeStatus: TDAChangeStatus): integer;
+var i : integer;
+begin
+  result := 0;
+  for i := 0 to fChanges.Count-1 do begin
+    if (Changes[i].Status=aChangeStatus) then Inc(result);
+  end;
+end;
+
+function TDADelta.GetLogicalName: string;
+begin
+  result := fLogicalName;
+end;
+
+procedure TDADelta.SetLogicalName(const aName: string);
+begin
+  fLogicalName := aName;
+end;
+
+procedure TDADelta.AssignDataTable(aDataTable: TComponent);
+begin
+  fDataTable := aDataTable as TDADataTable;
+end;
+
+function TDADelta.BlockRecord(aChange: TDADeltaChange): Boolean;
+begin
+  Result := not IsBlockedRecord(aChange);
+  if Result then fBlockedRecordList.Add(aChange);
+  {$IFDEF uDADelta_DEBUG}
+  OutputDebugString(Pchar('BlockRecord($'+inttoHex(integer(aChange),8)+')= ' + BoolToStr(Result,True)));
+  {$ENDIF}
+end;
+
+procedure TDADelta.RemoveUnchangedChanges;
+
+  function isUnchangedChange(aChange: TDADeltaChange): boolean;
+  var
+    i: integer;
+  begin
+    Result:= (aChange.Status = csPending) and (aChange.fChangeType = ctUpdate);
+    if result then
+      For i := 0 to LoggedFieldCount-1 do begin
+        if not ROVariantsEqual(aChange.OldValues[i],aChange.NewValues[i]) then begin
+          Result:=False;
+          Break;
+        end;
+      end;
+  end;
+
+var
+  i,j: integer;
+  lList: TList;
+  lRecord: PDAChangeRecord;
+begin
+  CanApplyDeltaChanges;
+  lList := fChangeRecordList.LockList;
+  try
+    For i:= Count-1 downto 0 do
+      if isUnchangedChange(Changes[i]) then begin
+        for j := 0 to lList.Count - 1 do begin
+          lRecord := PDAChangeRecord(lList[j]);
+          if Assigned(lRecord) then
+            if lRecord^.CurrentChange = Changes[i] then lRecord^.CurrentChange := nil;
+        end;
+        DeleteChange(i);
+      end;
+  finally
+    fChangeRecordList.UnlockList;
+  end;
+end;
+
+procedure TDADelta.DeleteChange(anIndex: integer);
+begin
+  fChanges.Objects[anIndex].Free;
+  fChanges.Delete(anIndex);
+end;
+
+procedure TDADelta.intRemoveChange(aChange: TDADeltaChange);
+var
+  idx: integer;
+begin
+  idx := fChanges.IndexOfObject(aChange);
+  if (idx >= 0) then DeleteChange(idx);
+end;
+
+function TDADelta.IsBlockedRecord(aRecID: integer): Boolean;
+var
+  lList: TList;
+  i: integer;
+begin
+  Result := False;
+  lList := fBlockedRecordList.LockList;
+  try
+    for i := 0 to lList.Count -1 do begin
+      if TDADeltaChange(lList[i]).fRecID = aRecID then begin
+        Result := True;
+        Break;
+      end;
+    end;
+  finally
+    fBlockedRecordList.UnlockList;
+  end;
+  {$IFDEF uDADelta_DEBUG}
+  OutputDebugString(Pchar('IsBlockedRecord('+inttoStr(aRecID)+')= ' + BoolToStr(Result,True)));
+  {$ENDIF}
+end;
+
+{ TDADeltaChange }
+
+constructor TDADeltaChange.Create(aDelta: TDADelta;
+  aRecID: integer;
+  aChangeType: TDAChangeType;
+  aStatus: TDAChangeStatus = csPending;
+  aMessage: string = '');
+begin
+  inherited Create;
+
+  fRefreshedByServer := FALSE;
+  fStatus := aStatus;
+  fDelta := aDelta;
+  fRecID := aRecID;
+  fChangeType := aChangeType;
+  fMessage := aMessage;
+
+  SetLength(fOldValues, aDelta.LoggedFieldCount);
+  SetLength(fNewValues, aDelta.LoggedFieldCount);
+end;
+
+destructor TDADeltaChange.Destroy;
+begin
+  inherited;
+end;
+
+function TDADeltaChange.GetDelta: IDADelta;
+begin
+  result := fDelta as IDADelta;
+end;
+
+function TDADeltaChange.GetNewValue(const aName: string): Variant;
+var
+  idx: integer;
+begin
+  idx := fDelta.IndexOfLoggedField(aName);
+  if (idx < 0) then RaiseError(err_CannotFindField, [aName]);
+  //exists problem with uninitialized variant in Win 2000
+  result := Null;
+  //
+  result := fNewValues[idx];
+end;
+
+function TDADeltaChange.GetOldValue(const aName: string): Variant;
+var
+  idx: integer;
+begin
+  idx := fDelta.IndexOfLoggedField(aName);
+  if (idx < 0) then RaiseError(err_CannotFindField, [aName]);
+  //exists problem with uninitialized variant in Win 2000
+  result := Null;
+  //
+  result := fOldValues[idx];
+end;
+
+procedure TDADeltaChange.SetNewValue(const aName: string; const Value: Variant);
+var
+  idx: integer;
+begin
+  idx := fDelta.IndexOfLoggedField(aName);
+  if (idx < 0) then RaiseError(err_CannotFindField, [aName]);
+  if idx >= Length(fNewValues) then
+    SetLength(fNewValues, idx + 1);
+  fNewValues[idx] := Value;
+end;
+
+procedure TDADeltaChange.SetOldValue(const aName: string; const Value: Variant);
+var
+  idx: integer;
+begin
+  idx := fDelta.IndexOfLoggedField(aName);
+  if (idx < 0) then RaiseError(err_CannotFindField, [aName]);
+  if idx >= Length(fOldValues) then
+    SetLength(fOldValues, idx + 1);
+  fOldValues[idx] := Value;
+end;
+
+{ EDAApplyUpdateFailed }
+
+constructor EDAApplyUpdateFailed.Create(aChange: TDADeltaChange; anOriginalException: Exception);
+begin
+  if (anOriginalException<>NIL) then begin
+    inherited Create(anOriginalException.Message);
+  end
+  else inherited Create('');
+
+  fRecID := aChange.RecID;
+  fDeltaName := aChange.Delta.LogicalName;
+end;
+
+initialization
+  RegisterExceptionClass(EDAApplyUpdateFailed);
+finalization
+  UnregisterExceptionClass(EDAApplyUpdateFailed);
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADesigntimeCall.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADesigntimeCall.pas
new file mode 100644
index 0000000..60b723f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADesigntimeCall.pas	
@@ -0,0 +1,40 @@
+unit uDADesigntimeCall;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes,
+  uDADataTable, uRODynamicRequest;
+
+type
+  TDADesigntimeCall = class(TRODynamicRequest)
+  private
+  public
+    procedure MakeRequest;
+  published
+  end;
+
+implementation
+
+{ TDADesigntimeCall }
+
+procedure TDADesigntimeCall.MakeRequest;
+begin
+  Execute();
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADriverInfo.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADriverInfo.pas
new file mode 100644
index 0000000..e97f7ef
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADriverInfo.pas	
@@ -0,0 +1,56 @@
+unit uDADriverInfo;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  uDADriverManager;
+
+procedure ShowDriverInfo(aDriverManager: TDADriverManager);
+
+implementation
+
+uses
+  SysUtils,
+  Dialogs; 
+  
+procedure ShowDriverInfo(aDriverManager: TDADriverManager);
+var
+  s: string;
+  i: integer;
+begin
+  if (aDriverManager.DriverCount = 0) then
+    MessageDlg('No drivers are currently loaded', mtWarning, [mbOK], 0)
+  else begin
+    s := 'The following ' + IntToStr(aDriverManager.DriverCount) + ' drivers are currently loaded:'#13;
+    for i := 0 to (aDriverManager.DriverCount - 1) do begin
+      with aDriverManager.DriverInfo[i] do begin
+        if (Handle = 0) then
+          s := s + #13 + Format('%s - %s %d.%d (Statically Linked)',
+            [Driver.DriverID, Driver.Description, Driver.MajVersion, Driver.MinVersion])
+
+        else
+          s := s + #13 + Format('%s - %s %d.%d (%s)',
+            [Driver.DriverID, Driver.Description, Driver.MajVersion, Driver.MinVersion, FileName]);
+      end;
+    end;
+
+    MessageDlg(s, mtInformation, [mbOK], 0);
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADriverManager.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADriverManager.pas
new file mode 100644
index 0000000..c3c987a
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDADriverManager.pas	
@@ -0,0 +1,513 @@
+unit uDADriverManager;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses Classes, uDAInterfaces, uROClasses, uROClient;
+
+type
+  { TDriverInfo }
+  PDADriverInfo = ^TDADriverInfo;
+  TDADriverInfo = record
+    FileName: string;
+    Handle: cardinal;
+    Driver: IDADriver;
+    GetDriverObjectFunc: TDAGetDriverObject;
+  end;
+
+  TDADriverNameType = (dntFileName, dntDriverID);
+
+  { TDADriverManager }
+  TDADriverLoadNotification = procedure(DriverInfo: TDADriverInfo) of object;
+
+  TDADriverManager = class(TROComponent, IDADriverManager)
+  private
+    fDriverDirectory: string;
+    fDrivers: TList;
+    fLoadingAutoLoad,
+      fAutoLoad: boolean;
+    fOnDriverUnloaded: TDADriverLoadNotification;
+    fOnDriverLoaded: TDADriverLoadNotification;
+    fStreamedTraceActive,
+      fTraceActive: boolean;
+    fTraceFlags: TDATraceOptions;
+    fOnTraceEvent: TDALogTraceEvent;
+
+    procedure SetDriverDirectory(const Value: string);
+
+    function GetDrivers(Index: integer): IDADriver;
+    function GetDriverCount: integer;
+    function GetDriverInfo(Index: integer): TDADriverInfo;
+    procedure SetAutoLoad(const Value: boolean);
+
+  protected
+    procedure Loaded; override;
+    procedure LoadStaticDrivers; virtual;
+    procedure UnloadDriver(anIndex: integer; aForceUnloadForStaticDriver: boolean); overload;
+    procedure UnloadAllDrivers(aForceUnloadForStaticDriver: boolean); overload;
+
+    //procedure HandleDriverError(anErrorCode : integer; const anErrorMessage : string); dynamic;
+
+    procedure SetTraceActive(const Value: boolean);
+    procedure SetTraceFlags(const Value: TDATraceOptions);
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    // IDADriverManager
+    procedure LoadDriver(const aFileName: string);
+    procedure UnloadDriver(anIndex: integer); overload;
+
+    procedure LoadDrivers;overload;
+    procedure LoadDrivers(const aDriverList: IROStrings; aIgnoreDuplicates: boolean = false; aIgnoreErrors: boolean = false);overload;
+    procedure UnloadAllDrivers; overload;
+
+    function ListDrivers(const aDirectory: string; out FileNames: IROStrings): integer;
+
+    function FindDriver(const aDriverID: string; out Driver: IDADriver): boolean;
+    function FindDriverIndex(const aDriverID: string): integer;
+
+    function DriverByDriverID(const aDriverID: string): IDADriver;
+
+    property Drivers[Index: integer]: IDADriver read GetDrivers; default;
+    property DriverInfo[Index: integer]: TDADriverInfo read GetDriverInfo;
+    property DriverCount: integer read GetDriverCount;
+
+  published
+    property DriverDirectory: string read fDriverDirectory write SetDriverDirectory;
+    property AutoLoad: boolean read fAutoLoad write SetAutoLoad default false;
+    property OnDriverLoaded: TDADriverLoadNotification read fOnDriverLoaded write fOnDriverLoaded;
+    property OnDriverUnloaded: TDADriverLoadNotification read fOnDriverUnloaded write fOnDriverUnloaded;
+
+    property TraceActive: boolean read fTraceActive write SetTraceActive;
+    property TraceFlags: TDATraceOptions read fTraceFlags write SetTraceFlags;
+    property OnTraceEvent: TDALogTraceEvent read fOnTraceEvent write fOnTraceEvent;
+  end;
+
+function DriverManager: TDADriverManager;
+
+procedure RegisterDriverProc(aDriverProc: TDAGetDriverObject);
+procedure UnregisterDriverProc(aDriverProc: TDAGetDriverObject);
+
+implementation
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}SysUtils,
+  {$IFDEF FPC}dynlibs,{$ENDIF}
+  uDAUtils, uDARes;
+
+var
+  _DriverManager: TDADriverManager;
+  _DriverProcs: TList;
+
+function DriverManager: TDADriverManager;
+begin
+  if (_DriverManager = nil) then RaiseError(err_DriverManagerNotAssigned);
+
+  result := _DriverManager;
+end;
+
+procedure RegisterDriverProc(aDriverProc: TDAGetDriverObject);
+var
+  p: pointer;
+begin
+  p := @aDriverProc;
+  if (_DriverProcs.IndexOf(p) >= 0) then RaiseError(err_DriverProcAlreadyRegistered, [{$IFDEF cpu64}UINT64{$ELSE}integer{$ENDIF}(p)]);
+
+  _DriverProcs.Add(p);
+end;
+
+procedure UnregisterDriverProc(aDriverProc: TDAGetDriverObject);
+var
+  idx: integer;
+begin
+  idx := _DriverProcs.IndexOf(@aDriverProc);
+  if (idx >= 0) then _DriverProcs.Delete(idx);
+end;
+
+{ TDADriverManager }
+
+procedure TDADriverManager.Assign(Source: TPersistent);
+var
+  lSource: TDADriverManager;
+begin
+  inherited;
+  if Source is TDADriverManager then begin
+    lSource := TDADriverManager(Source);
+
+    AutoLoad := lSource.AutoLoad;
+    DriverDirectory := lSource.DriverDirectory;
+    OnDriverLoaded := lSource.OnDriverLoaded;
+    OnDriverUnloaded := lSource.OnDriverUnloaded;
+    OnTraceEvent := lSource.OnTraceEvent;
+    TraceActive := lSource.TraceActive;
+    TraceFlags := lSource.TraceFlags;
+  end;
+end;
+
+constructor TDADriverManager.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  // Cannot create multiple Driver Managers
+  if not (csDesigning in ComponentState) then begin
+    Check(_DriverManager <> nil, err_DriverManagerAlreadyCreated);
+    _DriverManager := Self;
+  end;
+
+  fAutoLoad := FALSE;
+  fDriverDirectory := alias_System;
+  fDrivers := TList.Create;
+
+  if not (csDesigning in ComponentState) then begin
+    LoadStaticDrivers;
+  end;
+end;
+
+destructor TDADriverManager.Destroy;
+begin
+  if (_DriverManager = Self) then _DriverManager := nil;
+
+  if (fDrivers <> nil) then begin // In case of the multplie driver exception
+    UnloadAllDrivers(true);
+    fDrivers.Free;
+  end;
+
+  inherited;
+end;
+
+function TDADriverManager.ListDrivers(const aDirectory: string; out FileNames: IROStrings): integer;
+var
+  actualdir: string;
+  dir: TSearchRec;
+begin
+  result := 0;
+  FileNames := TROStrings.Create;
+
+  if (aDirectory = '') then
+    actualdir := DriverDirectory
+  else
+    actualdir := IncludeTrailingPathDelimiter(aDirectory);
+
+  actualdir := TranslateFileName(actualdir);
+
+  // If no path is specified looks in the Windows\System32 directory
+  {if (Length(actualdir)<=1)
+    then actualdir := IncludeTrailingPathDelimiter(GetSystemDir);}
+
+  if (FindFirst(actualdir + drv_AllDrivers, faAnyFile, dir) = 0) then begin
+    repeat
+      if (dir.Attr and faDirectory) <> faDirectory then begin
+        Inc(result);
+        FileNames.Add(ExpandFileName(actualdir + dir.Name));
+      end;
+    until (FindNext(dir) <> 0);
+    SysUtils.FindClose(dir);
+  end;
+end;
+
+function TDADriverManager.FindDriver(const aDriverID: string; out Driver: IDADriver): boolean;
+var
+  i: integer;
+begin
+  result := FALSE;
+  Driver := nil;
+
+  for i := 0 to (DriverCount - 1) do
+    if SameText(Drivers[i].DriverID, aDriverID) then begin
+      Driver := Drivers[i];
+      result := TRUE;
+      Exit;
+    end;
+end;
+
+function TDADriverManager.FindDriverIndex(const aDriverID:string):integer;
+var
+  i: integer;
+begin
+  result := -1;
+  for i := 0 to (DriverCount - 1) do
+    if SameText(Drivers[i].DriverID, aDriverID) then begin
+      result := i;
+      Exit;
+    end;
+end;
+
+procedure TDADriverManager.LoadStaticDrivers;
+var
+  i: integer;
+  driver: PDADriverInfo;
+  drv: IDADriver;
+begin
+  driver := nil;
+
+  for i := 0 to (_DriverProcs.Count - 1) do try
+    New(driver);
+
+    driver^.GetDriverObjectFunc := _DriverProcs[i];
+    driver^.FileName := '';
+    driver^.Handle := 0;
+    driver^.Driver := driver^.GetDriverObjectFunc;
+
+    Check(FindDriver(driver^.Driver.DriverID, drv), err_DriverAlreadyLoaded, [driver^.Driver.DriverID]); // Checks this driver's not already loaded
+
+    driver^.Driver.Initialize; //(HandleDriverError); // Calls the initialization routine for the DLL
+
+    fDrivers.Add(driver);
+
+    if Assigned(OnDriverLoaded) then OnDriverLoaded(driver^);
+
+    driver := nil;
+  except
+    if (driver <> nil) then begin
+      if (fDrivers.IndexOf(driver) > 0) then fDrivers.Delete(fDrivers.IndexOf(driver));
+
+      Dispose(driver);
+    end;
+
+    raise;
+  end;
+end;
+
+{$IFDEF DataAbstract_SchemaModeler}
+{$INCLUDE DataAbstract_SchemaModelerOnly.inc}
+{$ENDIF DataAbstract_SchemaModeler}
+
+const function_AuthorizeSchemaModeler = 'AuthorizeSchemaModeler';
+
+procedure TDADriverManager.LoadDriver(const aFileName: string);
+var
+  lHandle: cardinal;
+  driver: PDADriverInfo;
+  ptr: pointer;
+  drv: IDADriver;
+  fname: string;
+  alreadyloaded: boolean;
+begin
+  fname := aFileName;
+
+  if not IsMemoryManagerSet then
+    raise Exception.Create(err_NeedShareMem);
+
+  New(driver);
+  try
+    driver^.FileName := aFileName;
+    pointer(driver^.Driver) := nil;
+    driver^.Handle := 0;
+    driver^.Handle := LoadLibrary(PChar(fname));
+
+    Check(driver^.Handle = 0, err_LoadPackageFailed, [fname]); // Checks LoadLibrary's ok
+
+    {$IFDEF DataAbstract_SchemaModeler}
+    ptr := GetProcAddress(driver^.Handle, function_AuthorizeSchemaModeler);
+    if Assigned(ptr) then begin
+      TAuthorizeSchemaModeler(ptr)(AuthorizeSchemaModelerKey);
+    end;
+    {$ENDIF DataAbstract_SchemaModeler}
+
+    ptr := GetProcAddress(driver^.Handle, func_GetDriverObject);
+    Check(ptr = nil, err_InvalidDLL, [fname]); // Checks the DLL exports the required function
+
+    @driver^.GetDriverObjectFunc := ptr;
+    drv := driver.GetDriverObjectFunc();
+    driver^.Driver := drv;
+    drv := nil;
+    { We need a local variable, because else the driver pointer will remain on the
+      stack with a refcount, and Release'd on the "end;".not good, if the .dad is
+      unloaded by then. }
+
+    if not Assigned(driver^.Driver) then begin
+      if GetProcAddress(driver^.Handle, function_AuthorizeSchemaModeler) <> nil then begin
+        RaiseError('Driver %s may only be used inside the Schema Modeler',[fname],EDASchemaModelerOnly);
+      end
+      else begin
+        RaiseError(err_InvalidDriverReference, [fname]);
+      end;
+    end;
+
+    Check(driver^.Driver = nil, err_InvalidDriverReference, [fname]); // Checks the reference to the driver is ok
+
+    alreadyloaded := FindDriver(driver^.Driver.DriverID, drv);
+    Check(alreadyloaded, err_DriverAlreadyLoaded, [driver^.Driver.DriverID], EDADriverAlreadyLoaded); // Checks this driver's not already loaded
+    drv := nil;
+
+    driver^.Driver.Initialize; //(HandleDriverError); // Calls the initialization routine for the DLL
+
+    fDrivers.Add(driver);
+
+    if Assigned(fOnDriverLoaded) then fOnDriverLoaded(driver^);
+  except
+    lHandle := driver^.Handle;
+    driver^.Driver := nil;
+    Dispose(driver);
+    if (lHandle <> 0) then FreeLibrary(lHandle);
+    raise;
+  end;
+end;
+
+procedure TDADriverManager.UnloadDriver(anIndex: integer; aForceUnloadForStaticDriver: boolean);
+var
+  driver: PDADriverInfo;
+begin
+
+  driver := fDrivers[anIndex];
+  if (driver^.Handle = 0) and not aForceUnloadForStaticDriver then Exit;
+
+  try
+    fDrivers.Delete(anIndex);
+
+    driver^.Driver.Finalize; // Calls the finalization routine for the DLL
+    driver^.Driver := nil;
+
+    if (driver^.Handle <> 0) then FreeLibrary(driver^.Handle);
+
+    if Assigned(OnDriverUnloaded) then OnDriverUnloaded(driver^);
+  finally
+    Dispose(driver);
+  end;
+end;
+
+procedure TDADriverManager.UnloadDriver(anIndex: integer);
+begin
+  UnloadDriver(anIndex, false);
+end;
+
+function TDADriverManager.GetDriverCount: integer;
+begin
+  result := fDrivers.Count
+end;
+
+function TDADriverManager.GetDrivers(Index: integer): IDADriver;
+begin
+  result := PDADriverInfo(fDrivers[Index])^.Driver
+end;
+
+procedure TDADriverManager.LoadDrivers;
+var
+  DriverList:IROStrings;
+begin
+   ListDrivers(DriverDirectory,DriverList);
+   LoadDrivers(DriverList,True);
+end;
+
+procedure TDADriverManager.LoadDrivers(const aDriverList: IROStrings; aIgnoreDuplicates: boolean = false; aIgnoreErrors: boolean = false);
+var
+  i: integer;
+begin
+  for i := 0 to (aDriverList.Count - 1) do try
+    LoadDriver(aDriverList[i]);
+  except
+    on E: EDADriverAlreadyLoaded do begin
+      if not aIgnoreDuplicates then raise;
+    end
+  else begin
+      if not aIgnoreErrors then raise;
+    end;
+  end;
+end;
+
+procedure TDADriverManager.UnloadAllDrivers(aForceUnloadForStaticDriver: boolean);
+var
+  i: integer;
+begin
+  for i := DriverCount - 1 downto 0 do
+    UnloadDriver(i, aForceUnloadForStaticDriver);
+end;
+
+procedure TDADriverManager.UnloadAllDrivers;
+begin
+  UnloadAllDrivers(false);
+end;
+
+function TDADriverManager.DriverByDriverID(const aDriverID: string): IDADriver;
+begin
+  Check(not FindDriver(aDriverID, result), err_UnknownDriver, [aDriverID]);
+end;
+
+procedure TDADriverManager.SetDriverDirectory(const Value: string);
+begin
+  fDriverDirectory := Trim(Value);
+  if (fDriverDirectory <> '') then
+    fDriverDirectory := IncludeTrailingPathDelimiter(fDriverDirectory)
+end;
+
+function TDADriverManager.GetDriverInfo(Index: integer): TDADriverInfo;
+begin
+  result := PDADriverInfo(fDrivers[Index])^
+end;
+
+procedure TDADriverManager.SetAutoLoad(const Value: boolean);
+var
+  sl: IROStrings;
+begin
+  if (csLoading in ComponentState) then
+    fLoadingAutoLoad := Value
+  else begin
+    //if (Value=fAutoLoad) then Exit; // Prevents a strange double set done by the IDE....
+
+    //if not Value and (DriverCount>0) then UnloadAllDrivers;
+
+    fAutoLoad := Value;
+
+    if fAutoLoad and not (csDesigning in ComponentState) then begin
+      sl := TROStrings.Create;
+      ListDrivers('', sl);
+      if sl.Count > 0 then begin
+        LoadDrivers(sl);
+      end;
+    end;
+  end;
+end;
+
+procedure TDADriverManager.Loaded;
+begin
+  inherited;
+
+  AutoLoad := fLoadingAutoLoad;
+  TraceActive := fStreamedTraceActive;
+end;
+
+procedure TDADriverManager.SetTraceActive(const Value: boolean);
+var
+  i: integer;
+begin
+  if (Value = fTraceActive) then Exit;
+
+  if (csLoading in ComponentState) then
+    fStreamedTraceActive := Value
+  else begin
+    fTraceActive := Value;
+
+    for i := 0 to (DriverCount - 1) do
+      Drivers[i].SetTraceOptions(Value, TraceFlags, OnTraceEvent);
+  end;
+end;
+
+procedure TDADriverManager.SetTraceFlags(const Value: TDATraceOptions);
+begin
+  fTraceFlags := Value;
+end;
+
+
+initialization
+  _DriverManager := nil;
+  _DriverProcs := TList.Create;
+
+finalization
+  _DriverProcs.Free;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAElevateDBInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAElevateDBInterfaces.pas
new file mode 100644
index 0000000..06cc03d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAElevateDBInterfaces.pas	
@@ -0,0 +1,667 @@
+unit uDAElevateDBInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses uROClasses, uDAInterfaces, uDAEngine;
+
+type
+  IDAElevateConnection = interface(IDAConnection)
+    ['{30A997EA-0EBE-41D0-AD13-521DEFCDFE0D}']
+  end;
+
+  TDAElevateDBDriver = class(TDAEDriver)
+  protected
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  TDAElevateDBConnection = class(TDAEConnection, IDAConnection, IDAElevateConnection, IDADirectoryBasedDatabase)
+  protected
+    Procedure CheckConnected; virtual;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    function GetSPSelectSyntax(HasArguments: Boolean): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+  end;
+
+const
+  ElevateDB_DriverType = 'ElevateDB';
+  ElevateDB_ConfigDBName = 'Configuration';
+
+procedure ElevateDB_RegisterDatabase(Query: IDADataset; ADataBaseName: string;aPath: String);
+procedure ElevateDB_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype);
+procedure ElevateDB_DoGetForeignKeys(Query: IDADataset; ForeignKeys: TDADriverForeignKeyCollection);
+procedure ElevateDB_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+function ElevateDB_GetSPSelectSyntax(HasArguments: Boolean): String;
+function ElevateDB_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+function ElevateDB_GetLastAutoInc(const GeneratorName: string; Query: IDADataset): variant;
+
+implementation
+
+uses Classes,SysUtils;
+
+var
+  ElevateDB_reservedwords: array of string;
+
+
+procedure ElevateDB_RegisterDatabase(Query: IDADataset; ADataBaseName: string;aPath: String);
+const
+  s_SQL = 'Select Count(*) from Databases Where name = ''%s''';
+  s_DropDataBaseSQL = 'DROP DATABASE "%s" KEEP CONTENTS';
+  s_CreateDataBaseSQL = 'CREATE DATABASE "%s" PATH ''%s''';
+begin
+  try
+    Query.SQL := Format(s_SQL, [aDataBaseName]);
+    Query.Open;
+    if Query.Fields[0].AsInteger =0 then begin
+      Query.Close;
+      Query.SQL := Format(s_CreateDataBaseSQL, [aDataBaseName, aPath]);
+      Query.Execute;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure ElevateDB_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype);
+const
+  sDoGetTableNames            =   'SELECT Name FROM Information.Tables';
+  sDoGetViewNames             =   'SELECT Name FROM Information.Views';
+  sDoGetProcedures            =   'SELECT Name FROM Information.Procedures';
+begin
+  try
+    case AObjectType of
+      dotTable: Query.SQL := sDoGetTableNames;
+      dotView: Query.SQL := sDoGetViewNames;
+      dotProcedure: Query.SQL := sDoGetProcedures;
+    end;
+    Query.Open;
+    while not Query.Eof do begin
+      Alist.Add(Query.Fields[0].AsString);
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure ElevateDB_DoGetForeignKeys(Query: IDADataset; ForeignKeys: TDADriverForeignKeyCollection);
+const
+  sFK_SQL = 'Select c.tablename,c.name, c.targettable, cc.columnname '+
+            'from Information.Constraints as c '+
+            'join Information.ConstraintColumns as cc on ((c.tablename = cc.tablename) and (cc.constraintname = c.EnforcingIndex)) '+
+            'where c.type = ''foreign key''';
+  sPK_SQL = 'Select c.tablename,c.name, c.targettable, cc.columnname '+
+            'from Information.Constraints as c '+
+            'join Information.ConstraintColumns as cc on ((c.Targettable = cc.tablename) and (cc.constraintname = c.TargetTableConstraint)) '+
+            'where c.type = ''foreign key''';
+var
+  lCurrConstraint             : string;
+  lCurrFK                     : TDADriverForeignKey;
+  lList: TStringList;
+  i: integer;
+begin
+  lList:=TstringList.Create;
+  try
+    Query.SQL := sFK_SQL;
+    Query.Open;
+
+    lCurrConstraint := '';
+    lCurrFK := nil;
+    ForeignKeys.Clear;
+    while (not Query.EOF) do begin
+      if lCurrConstraint <> Query.Fields[0].AsString + '.' + Query.Fields[1].AsString then begin
+        lCurrConstraint := Query.Fields[0].AsString + '.' + Query.Fields[1].AsString;
+        lCurrFK := ForeignKeys.Add();
+        lList.AddObject(lCurrConstraint,lCurrFK);
+        with lCurrFK do begin
+          Name:=lCurrConstraint;
+          PKTable := TrimRight(Query.Fields[2].AsString);
+          FKTable := TrimRight(Query.Fields[0].AsString);
+         // PKField := TrimRight(Query.Fields[2].AsString);
+          FKField := TrimRight(Query.Fields[3].AsString);
+        end;
+      end else begin
+        with lCurrFK do begin
+         // PKField := PKField + ';' + TrimRight(Query.Fields[2].AsString);
+          FKField := FKField + ';' + TrimRight(Query.Fields[3].AsString);
+        end;
+      end;
+      Query.Next;
+    end;
+    Llist.Sorted:=True;
+    Query.close;
+    Query.SQL := sPK_SQL;
+    Query.Open;
+    while (not Query.EOF) do begin
+      lCurrConstraint := Query.Fields[0].AsString + '.' + Query.Fields[1].AsString;
+      i:= lList.IndexOf(lCurrConstraint);
+      if i <> -1 then begin
+        lCurrFK:= TDADriverForeignKey(lList.Objects[i]);
+        if lCurrFK.PKField = '' then
+          lCurrFK.PKField := TrimRight(Query.Fields[3].AsString)
+        else
+          lCurrFK.PKField := lCurrFK.PKField + ';' +TrimRight(Query.Fields[3].AsString);
+      end;
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+    LList.Free;
+  end;
+end;
+
+procedure ElevateDB_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+const
+  s_sql = 'SELECT tc.Name, tc.Nullable, tc.Identity, cc.ColumnName, tc.scale FROM Information.TableColumns as tc '+
+          'LEFT JOIN Information.Constraints AS c ON ((c.TableName = tc.TableName) and (c.Type = ''Primary Key'')) '+
+          'LEFT JOIN Information.ConstraintColumns as cc on ((c.tablename = cc.tablename) and (cc.constraintname = c.EnforcingIndex) and (cc.ColumnName = tc.Name)) '+
+          'WHERE tc.TableName = ';
+var
+  fld: TDAField;
+begin
+  Fields := TDAFieldCollection.Create(nil);
+  try
+    Query.SQL := 'SELECT * FROM ' + aTableName +' WHERE 1=0';
+    Query.Open;
+    Fields.Assign(Query.Fields);
+    Query.Close;
+    Query.SQL := s_SQL+ '''' + aTableName+'''';
+    Query.Open;
+    While not Query.Eof do begin
+      fld := Fields.FindField(Trim(Query.Fields[0].AsString));
+      if Fld <> nil then begin
+        Fld.Required:=not Query.Fields[1].AsBoolean;
+        if not Query.Fields[2].IsNull and Query.Fields[2].AsBoolean then begin
+          if fld.DataType = datInteger then fld.DataType := datAutoInc;
+          if fld.DataType = datLargeInt then fld.DataType := datLargeAutoInc;
+        end;
+        if not Query.Fields[3].IsNull then fld.InPrimaryKey:=True;
+        if fld.DataType = datDecimal then begin
+          fld.DecimalPrecision:=20;
+          fld.DecimalScale:=Query.Fields[4].AsInteger;
+        end;
+      end;
+      Query.Next;
+    end;
+  finally
+    Query:=nil;
+  end;
+end;
+
+function ElevateDB_GetSPSelectSyntax(HasArguments: Boolean): String;
+begin
+  if HasArguments then
+    Result:='CALL {0} ({1})'
+  else
+    Result:='CALL {0} ()';
+end;
+
+function ElevateDB_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  Result := TestIdentifier(iIdentifier, ElevateDB_reservedwords);
+end;
+
+function ElevateDB_GetLastAutoInc(const GeneratorName: string; Query: IDADataset): Variant;
+const
+  s_SQL = 'SELECT Name FROM Information.TableColumns WHERE Generated and TableName = ';
+var
+  fld: string;
+begin
+  Result := -1;
+  try
+    Query.SQL := s_SQL+ '''' + GeneratorName + '''';
+    Query.Open;
+    if not query.EOF then begin
+      fld := Query.Fields[0].AsString;
+      Query.Close;
+      Query.SQL := 'SELECT MAX("'+fld+'") FROM '+ '''' + GeneratorName +'''';
+      Query.Open;
+      Result := Query.Fields[0].Value;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+{ TDAElevateDBDriver }
+
+function TDAElevateDBDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  Result:= ElevateDB_DriverType;
+end;
+
+
+{ TDAElevateDBConnection }
+
+procedure TDAElevateDBConnection.CheckConnected;
+begin
+  if not GetConnected then SetConnected(True);
+end;
+
+procedure TDAElevateDBConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  CheckConnected;
+  inherited;
+  ElevateDB_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+end;
+
+function TDAElevateDBConnection.DoGetLastAutoInc(
+  const GeneratorName: string): integer;
+begin
+  Result := DoGetLastAutoIncValue(GeneratorName);
+end;
+
+function TDAElevateDBConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  Result := ElevateDB_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+end;
+
+procedure TDAElevateDBConnection.DoGetStoredProcedureNames(
+  out List: IROStrings);
+begin
+  CheckConnected;
+  inherited;
+  ElevateDB_DoGetNames(GetDatasetClass.Create(Self),List,dotProcedure);
+end;
+
+procedure TDAElevateDBConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  CheckConnected;
+  ElevateDB_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),GetDatasetClass.Create(Self),Fields);
+end;
+
+procedure TDAElevateDBConnection.DoGetTableNames(out List: IROStrings);
+begin
+  CheckConnected;
+  inherited;
+  ElevateDB_DoGetNames(GetDatasetClass.Create(Self),List,dotTable);
+end;
+
+procedure TDAElevateDBConnection.DoGetViewNames(out List: IROStrings);
+begin
+  CheckConnected;
+  inherited;
+  ElevateDB_DoGetNames(GetDatasetClass.Create(Self),List,dotView);
+end;
+
+function TDAElevateDBConnection.GetSPSelectSyntax(
+  HasArguments: Boolean): string;
+begin
+  Result := ElevateDB_GetSPSelectSyntax(HasArguments);
+end;
+
+procedure ElevateDB_InitializeReservedWords;
+begin
+  SetLength(ElevateDB_reservedwords, 335);
+  // sorted with TStringList.Sort (bds2007)
+  ElevateDB_reservedwords[0] := 'ABS';
+  ElevateDB_reservedwords[1] := 'ABSOLUTE';
+  ElevateDB_reservedwords[2] := 'ACOS';
+  ElevateDB_reservedwords[3] := 'ACTION';
+  ElevateDB_reservedwords[4] := 'ADD';
+  ElevateDB_reservedwords[5] := 'AFTER';
+  ElevateDB_reservedwords[6] := 'ALL';
+  ElevateDB_reservedwords[7] := 'ALLTRIM';
+  ElevateDB_reservedwords[8] := 'ALTER';
+  ElevateDB_reservedwords[9] := 'ALWAYS';
+  ElevateDB_reservedwords[10] := 'AM';
+  ElevateDB_reservedwords[11] := 'AND';
+  ElevateDB_reservedwords[12] := 'AS';
+  ElevateDB_reservedwords[13] := 'ASC';
+  ElevateDB_reservedwords[14] := 'ASCENDING';
+  ElevateDB_reservedwords[15] := 'ASENSITIVE';
+  ElevateDB_reservedwords[16] := 'ASIN';
+  ElevateDB_reservedwords[17] := 'AT';
+  ElevateDB_reservedwords[18] := 'ATAN';
+  ElevateDB_reservedwords[19] := 'ATAN2';
+  ElevateDB_reservedwords[20] := 'AVG';
+  ElevateDB_reservedwords[21] := 'BACKUP';
+  ElevateDB_reservedwords[22] := 'BACKUPS';
+  ElevateDB_reservedwords[23] := 'BEFORE';
+  ElevateDB_reservedwords[24] := 'BEGIN';
+  ElevateDB_reservedwords[25] := 'BETWEEN';
+  ElevateDB_reservedwords[26] := 'BIGINT';
+  ElevateDB_reservedwords[27] := 'BINARY';
+  ElevateDB_reservedwords[28] := 'BLOB';
+  ElevateDB_reservedwords[29] := 'BLOCK';
+  ElevateDB_reservedwords[30] := 'BOF';
+  ElevateDB_reservedwords[31] := 'BOOL';
+  ElevateDB_reservedwords[32] := 'BOOLEAN';
+  ElevateDB_reservedwords[33] := 'BOTH';
+  ElevateDB_reservedwords[34] := 'BUFFER';
+  ElevateDB_reservedwords[35] := 'BY';
+  ElevateDB_reservedwords[36] := 'BYTE';
+  ElevateDB_reservedwords[37] := 'CALL';
+  ElevateDB_reservedwords[38] := 'CASCADE';
+  ElevateDB_reservedwords[39] := 'CASE';
+  ElevateDB_reservedwords[40] := 'CAST';
+  ElevateDB_reservedwords[41] := 'CATALOG';
+  ElevateDB_reservedwords[42] := 'CATEGORY';
+  ElevateDB_reservedwords[43] := 'CEIL';
+  ElevateDB_reservedwords[44] := 'CEILING';
+  ElevateDB_reservedwords[45] := 'CHAR';
+  ElevateDB_reservedwords[46] := 'CHAR_LENGTH';
+  ElevateDB_reservedwords[47] := 'CHARACTER';
+  ElevateDB_reservedwords[48] := 'CHARACTER_LENGTH';
+  ElevateDB_reservedwords[49] := 'CHECK';
+  ElevateDB_reservedwords[50] := 'CLOB';
+  ElevateDB_reservedwords[51] := 'CLOSE';
+  ElevateDB_reservedwords[52] := 'COALESCE';
+  ElevateDB_reservedwords[53] := 'CODE';
+  ElevateDB_reservedwords[54] := 'COLLATE';
+  ElevateDB_reservedwords[55] := 'COLUMN';
+  ElevateDB_reservedwords[56] := 'COLUMNS';
+  ElevateDB_reservedwords[57] := 'COMMIT';
+  ElevateDB_reservedwords[58] := 'COMPRESSION';
+  ElevateDB_reservedwords[59] := 'COMPUTED';
+  ElevateDB_reservedwords[60] := 'CONCAT';
+  ElevateDB_reservedwords[61] := 'CONSTRAINT';
+  ElevateDB_reservedwords[62] := 'CONSTRAINTS';
+  ElevateDB_reservedwords[63] := 'CONTAIN';
+  ElevateDB_reservedwords[64] := 'CONTAINS';
+  ElevateDB_reservedwords[65] := 'CONTENTS';
+  ElevateDB_reservedwords[66] := 'COS';
+  ElevateDB_reservedwords[67] := 'COT';
+  ElevateDB_reservedwords[68] := 'COUNT';
+  ElevateDB_reservedwords[69] := 'CREATE';
+  ElevateDB_reservedwords[70] := 'CURRENT';
+  ElevateDB_reservedwords[71] := 'CURRENT_DATE';
+  ElevateDB_reservedwords[72] := 'CURRENT_GUID';
+  ElevateDB_reservedwords[73] := 'CURRENT_TIME';
+  ElevateDB_reservedwords[74] := 'CURRENT_TIMESTAMP';
+  ElevateDB_reservedwords[75] := 'CURRENT_USER';
+  ElevateDB_reservedwords[76] := 'CURSOR';
+  ElevateDB_reservedwords[77] := 'CURSOR_SENSITIVITY';
+  ElevateDB_reservedwords[78] := 'DAILY';
+  ElevateDB_reservedwords[79] := 'DATA';
+  ElevateDB_reservedwords[80] := 'DATABASE';
+  ElevateDB_reservedwords[81] := 'DATE';
+  ElevateDB_reservedwords[82] := 'DAY';
+  ElevateDB_reservedwords[83] := 'DAYOFWEEK';
+  ElevateDB_reservedwords[84] := 'DAYOFYEAR';
+  ElevateDB_reservedwords[85] := 'DAYS';
+  ElevateDB_reservedwords[86] := 'DECIMAL';
+  ElevateDB_reservedwords[87] := 'DECLARE';
+  ElevateDB_reservedwords[88] := 'DEFAULT';
+  ElevateDB_reservedwords[89] := 'DEFAULTS';
+  ElevateDB_reservedwords[90] := 'DEGREES';
+  ElevateDB_reservedwords[91] := 'DELETE';
+  ElevateDB_reservedwords[92] := 'DELIMITER';
+  ElevateDB_reservedwords[93] := 'DESC';
+  ElevateDB_reservedwords[94] := 'DESCENDING';
+  ElevateDB_reservedwords[95] := 'DESCRIPTION';
+  ElevateDB_reservedwords[96] := 'DISCONNECT';
+  ElevateDB_reservedwords[97] := 'DISTINCT';
+  ElevateDB_reservedwords[98] := 'DO';
+  ElevateDB_reservedwords[99] := 'DOES';
+  ElevateDB_reservedwords[100] := 'DOUBLE';
+  ElevateDB_reservedwords[101] := 'DROP';
+  ElevateDB_reservedwords[102] := 'ELSE';
+  ElevateDB_reservedwords[103] := 'ELSEIF';
+  ElevateDB_reservedwords[104] := 'EMPTY';
+  ElevateDB_reservedwords[105] := 'ENCRYPTED';
+  ElevateDB_reservedwords[106] := 'END';
+  ElevateDB_reservedwords[107] := 'EOF';
+  ElevateDB_reservedwords[108] := 'ERROR';
+  ElevateDB_reservedwords[109] := 'ERRORCODE';
+  ElevateDB_reservedwords[110] := 'ERRORMSG';
+  ElevateDB_reservedwords[111] := 'ESCAPE';
+  ElevateDB_reservedwords[112] := 'EVERY';
+  ElevateDB_reservedwords[113] := 'EXCEPT';
+  ElevateDB_reservedwords[114] := 'EXCEPTION';
+  ElevateDB_reservedwords[115] := 'EXCLUDING';
+  ElevateDB_reservedwords[116] := 'EXECUTE';
+  ElevateDB_reservedwords[117] := 'EXISTS';
+  ElevateDB_reservedwords[118] := 'EXP';
+  ElevateDB_reservedwords[119] := 'EXPORT';
+  ElevateDB_reservedwords[120] := 'EXTERNAL';
+  ElevateDB_reservedwords[121] := 'EXTRACT';
+  ElevateDB_reservedwords[122] := 'FALSE';
+  ElevateDB_reservedwords[123] := 'FETCH';
+  ElevateDB_reservedwords[124] := 'FILE';
+  ElevateDB_reservedwords[125] := 'FILTER';
+  ElevateDB_reservedwords[126] := 'FIRST';
+  ElevateDB_reservedwords[127] := 'FLOAT';
+  ElevateDB_reservedwords[128] := 'FLOOR';
+  ElevateDB_reservedwords[129] := 'FLUSH';
+  ElevateDB_reservedwords[130] := 'FOR';
+  ElevateDB_reservedwords[131] := 'FOREIGN';
+  ElevateDB_reservedwords[132] := 'FORMAT';
+  ElevateDB_reservedwords[133] := 'FOURTH';
+  ElevateDB_reservedwords[134] := 'FROM';
+  ElevateDB_reservedwords[135] := 'FULL';
+  ElevateDB_reservedwords[136] := 'FUNCTION';
+  ElevateDB_reservedwords[137] := 'GENERATED';
+  ElevateDB_reservedwords[138] := 'GENERATOR';
+  ElevateDB_reservedwords[139] := 'GRANT';
+  ElevateDB_reservedwords[140] := 'GROUP';
+  ElevateDB_reservedwords[141] := 'GUID';
+  ElevateDB_reservedwords[142] := 'HAVING';
+  ElevateDB_reservedwords[143] := 'HEADERS';
+  ElevateDB_reservedwords[144] := 'HOUR';
+  ElevateDB_reservedwords[145] := 'IDENTITY';
+  ElevateDB_reservedwords[146] := 'IF';
+  ElevateDB_reservedwords[147] := 'IFNULL';
+  ElevateDB_reservedwords[148] := 'IMMEDIATE';
+  ElevateDB_reservedwords[149] := 'IMPORT';
+  ElevateDB_reservedwords[150] := 'IN';
+  ElevateDB_reservedwords[151] := 'INCLUDE';
+  ElevateDB_reservedwords[152] := 'INCLUDING';
+  ElevateDB_reservedwords[153] := 'INCREMENT';
+  ElevateDB_reservedwords[154] := 'INDEX';
+  ElevateDB_reservedwords[155] := 'INDEXED';
+  ElevateDB_reservedwords[156] := 'INNER';
+  ElevateDB_reservedwords[157] := 'INOUT';
+  ElevateDB_reservedwords[158] := 'INSENSITIVE';
+  ElevateDB_reservedwords[159] := 'INSERT';
+  ElevateDB_reservedwords[160] := 'INT';
+  ElevateDB_reservedwords[161] := 'INTEGER';
+  ElevateDB_reservedwords[162] := 'INTERSECT';
+  ElevateDB_reservedwords[163] := 'INTERVAL';
+  ElevateDB_reservedwords[164] := 'INTO';
+  ElevateDB_reservedwords[165] := 'IS';
+  ElevateDB_reservedwords[166] := 'ITERATE';
+  ElevateDB_reservedwords[167] := 'JOB';
+  ElevateDB_reservedwords[168] := 'JOIN';
+  ElevateDB_reservedwords[169] := 'JOINOPTIMIZECOSTS';
+  ElevateDB_reservedwords[170] := 'KEEP';
+  ElevateDB_reservedwords[171] := 'KEY';
+  ElevateDB_reservedwords[172] := 'LARGE';
+  ElevateDB_reservedwords[173] := 'LAST';
+  ElevateDB_reservedwords[174] := 'LCASE';
+  ElevateDB_reservedwords[175] := 'LEADING';
+  ElevateDB_reservedwords[176] := 'LEAVE';
+  ElevateDB_reservedwords[177] := 'LEFT';
+  ElevateDB_reservedwords[178] := 'LENGTH';
+  ElevateDB_reservedwords[179] := 'LIKE';
+  ElevateDB_reservedwords[180] := 'LITERAL';
+  ElevateDB_reservedwords[181] := 'LOCK';
+  ElevateDB_reservedwords[182] := 'LOG';
+  ElevateDB_reservedwords[183] := 'LOG10';
+  ElevateDB_reservedwords[184] := 'LOOP';
+  ElevateDB_reservedwords[185] := 'LOWER';
+  ElevateDB_reservedwords[186] := 'LTRIM';
+  ElevateDB_reservedwords[187] := 'MAINTAIN';
+  ElevateDB_reservedwords[188] := 'MAX';
+  ElevateDB_reservedwords[189] := 'MEMORY';
+  ElevateDB_reservedwords[190] := 'MESSAGE';
+  ElevateDB_reservedwords[191] := 'MIGRATE';
+  ElevateDB_reservedwords[192] := 'MIGRATOR';
+  ElevateDB_reservedwords[193] := 'MIN';
+  ElevateDB_reservedwords[194] := 'MINUTE';
+  ElevateDB_reservedwords[195] := 'MOD';
+  ElevateDB_reservedwords[196] := 'MODULE';
+  ElevateDB_reservedwords[197] := 'MONTH';
+  ElevateDB_reservedwords[198] := 'MONTHLY';
+  ElevateDB_reservedwords[199] := 'MOVE';
+  ElevateDB_reservedwords[200] := 'MSECOND';
+  ElevateDB_reservedwords[201] := 'NAME';
+  ElevateDB_reservedwords[202] := 'NEXT';
+  ElevateDB_reservedwords[203] := 'NO';
+  ElevateDB_reservedwords[204] := 'NOJOINOPTIMIZE';
+  ElevateDB_reservedwords[205] := 'NONE';
+  ElevateDB_reservedwords[206] := 'NOT';
+  ElevateDB_reservedwords[207] := 'NULL';
+  ElevateDB_reservedwords[208] := 'NULLABLE';
+  ElevateDB_reservedwords[209] := 'NULLIF';
+  ElevateDB_reservedwords[210] := 'NUMERIC';
+  ElevateDB_reservedwords[211] := 'OBJECT';
+  ElevateDB_reservedwords[212] := 'OCCURS';
+  ElevateDB_reservedwords[213] := 'OF';
+  ElevateDB_reservedwords[214] := 'ON';
+  ElevateDB_reservedwords[215] := 'ONCE';
+  ElevateDB_reservedwords[216] := 'OPEN';
+  ElevateDB_reservedwords[217] := 'OPTIMIZE';
+  ElevateDB_reservedwords[218] := 'OPTION';
+  ElevateDB_reservedwords[219] := 'OR';
+  ElevateDB_reservedwords[220] := 'ORDER';
+  ElevateDB_reservedwords[221] := 'OUT';
+  ElevateDB_reservedwords[222] := 'OUTER';
+  ElevateDB_reservedwords[223] := 'PAGE';
+  ElevateDB_reservedwords[224] := 'PASSWORD';
+  ElevateDB_reservedwords[225] := 'PATH';
+  ElevateDB_reservedwords[226] := 'PI';
+  ElevateDB_reservedwords[227] := 'PM';
+  ElevateDB_reservedwords[228] := 'POS';
+  ElevateDB_reservedwords[229] := 'POSITION';
+  ElevateDB_reservedwords[230] := 'POWER';
+  ElevateDB_reservedwords[231] := 'PRECISION';
+  ElevateDB_reservedwords[232] := 'PREPARE';
+  ElevateDB_reservedwords[233] := 'PRIMARY';
+  ElevateDB_reservedwords[234] := 'PRIOR';
+  ElevateDB_reservedwords[235] := 'PRIVILEGES';
+  ElevateDB_reservedwords[236] := 'PROCEDURE';
+  ElevateDB_reservedwords[237] := 'QUOTE';
+  ElevateDB_reservedwords[238] := 'RADIANS';
+  ElevateDB_reservedwords[239] := 'RAISE';
+  ElevateDB_reservedwords[240] := 'RAND';
+  ElevateDB_reservedwords[241] := 'RANGE';
+  ElevateDB_reservedwords[242] := 'REDEFINE';
+  ElevateDB_reservedwords[243] := 'REFERENCES';
+  ElevateDB_reservedwords[244] := 'RELATIVE';
+  ElevateDB_reservedwords[245] := 'REMOVE';
+  ElevateDB_reservedwords[246] := 'REPAIR';
+  ElevateDB_reservedwords[247] := 'REPEAT';
+  ElevateDB_reservedwords[248] := 'REPLACE';
+  ElevateDB_reservedwords[249] := 'RESTORE';
+  ElevateDB_reservedwords[250] := 'RESTRICT';
+  ElevateDB_reservedwords[251] := 'RESULT';
+  ElevateDB_reservedwords[252] := 'RETURN';
+  ElevateDB_reservedwords[253] := 'RETURNS';
+  ElevateDB_reservedwords[254] := 'REVOKE';
+  ElevateDB_reservedwords[255] := 'RIGHT';
+  ElevateDB_reservedwords[256] := 'ROLE';
+  ElevateDB_reservedwords[257] := 'ROLLBACK';
+  ElevateDB_reservedwords[258] := 'ROUND';
+  ElevateDB_reservedwords[259] := 'ROW';
+  ElevateDB_reservedwords[260] := 'ROWCOUNT';
+  ElevateDB_reservedwords[261] := 'ROWS';
+  ElevateDB_reservedwords[262] := 'ROWSAFFECTED';
+  ElevateDB_reservedwords[263] := 'RTRIM';
+  ElevateDB_reservedwords[264] := 'RUN';
+  ElevateDB_reservedwords[265] := 'RUNSUM';
+  ElevateDB_reservedwords[266] := 'SECOND';
+  ElevateDB_reservedwords[267] := 'SELECT';
+  ElevateDB_reservedwords[268] := 'SENSITIVE';
+  ElevateDB_reservedwords[269] := 'SERVER';
+  ElevateDB_reservedwords[270] := 'SESSION';
+  ElevateDB_reservedwords[271] := 'SET';
+  ElevateDB_reservedwords[272] := 'SIGN';
+  ElevateDB_reservedwords[273] := 'SIN';
+  ElevateDB_reservedwords[274] := 'SIZE';
+  ElevateDB_reservedwords[275] := 'SMALLINT';
+  ElevateDB_reservedwords[276] := 'SQRT';
+  ElevateDB_reservedwords[277] := 'START';
+  ElevateDB_reservedwords[278] := 'STATEMENT';
+  ElevateDB_reservedwords[279] := 'STDDEV';
+  ElevateDB_reservedwords[280] := 'SUBSTR';
+  ElevateDB_reservedwords[281] := 'SUBSTRING';
+  ElevateDB_reservedwords[282] := 'SUM';
+  ElevateDB_reservedwords[283] := 'SUMSQUARE';
+  ElevateDB_reservedwords[284] := 'TABLE';
+  ElevateDB_reservedwords[285] := 'TABLES';
+  ElevateDB_reservedwords[286] := 'TAN';
+  ElevateDB_reservedwords[287] := 'TEMPORARY';
+  ElevateDB_reservedwords[288] := 'TEXT';
+  ElevateDB_reservedwords[289] := 'TEXTOCCURS';
+  ElevateDB_reservedwords[290] := 'TEXTSEARCH';
+  ElevateDB_reservedwords[291] := 'THEN';
+  ElevateDB_reservedwords[292] := 'THIRD';
+  ElevateDB_reservedwords[293] := 'TIME';
+  ElevateDB_reservedwords[294] := 'TIMESTAMP';
+  ElevateDB_reservedwords[295] := 'TO';
+  ElevateDB_reservedwords[296] := 'TOP';
+  ElevateDB_reservedwords[297] := 'TRAILING';
+  ElevateDB_reservedwords[298] := 'TRANSACTION';
+  ElevateDB_reservedwords[299] := 'TRIGGER';
+  ElevateDB_reservedwords[300] := 'TRIM';
+  ElevateDB_reservedwords[301] := 'TRUE';
+  ElevateDB_reservedwords[302] := 'TRUNC';
+  ElevateDB_reservedwords[303] := 'TRUNCATE';
+  ElevateDB_reservedwords[304] := 'TYPE';
+  ElevateDB_reservedwords[305] := 'UCASE';
+  ElevateDB_reservedwords[306] := 'UNENCRYPTED';
+  ElevateDB_reservedwords[307] := 'UNION';
+  ElevateDB_reservedwords[308] := 'UNIQUE';
+  ElevateDB_reservedwords[309] := 'UNPREPARE';
+  ElevateDB_reservedwords[310] := 'UNTIL';
+  ElevateDB_reservedwords[311] := 'UPDATE';
+  ElevateDB_reservedwords[312] := 'UPPER';
+  ElevateDB_reservedwords[313] := 'USE';
+  ElevateDB_reservedwords[314] := 'USER';
+  ElevateDB_reservedwords[315] := 'USING';
+  ElevateDB_reservedwords[316] := 'UTC';
+  ElevateDB_reservedwords[317] := 'VALUES';
+  ElevateDB_reservedwords[318] := 'VARBYTE';
+  ElevateDB_reservedwords[319] := 'VARCHAR';
+  ElevateDB_reservedwords[320] := 'VARYING';
+  ElevateDB_reservedwords[321] := 'VERSION';
+  ElevateDB_reservedwords[322] := 'VIEW';
+  ElevateDB_reservedwords[323] := 'WEEK';
+  ElevateDB_reservedwords[324] := 'WEEKLY';
+  ElevateDB_reservedwords[325] := 'WEEKS';
+  ElevateDB_reservedwords[326] := 'WHEN';
+  ElevateDB_reservedwords[327] := 'WHERE';
+  ElevateDB_reservedwords[328] := 'WHILE';
+  ElevateDB_reservedwords[329] := 'WINDOWS';
+  ElevateDB_reservedwords[330] := 'WITH';
+  ElevateDB_reservedwords[331] := 'WITHOUT';
+  ElevateDB_reservedwords[332] := 'WORD';
+  ElevateDB_reservedwords[333] := 'WORK';
+  ElevateDB_reservedwords[334] := 'YEAR';
+end;
+
+function TDAElevateDBConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result:=inherited IdentifierNeedsQuoting(iIdentifier) or ElevateDB_IdentifierNeedsQuoting(iIdentifier);
+end;
+
+initialization
+  ElevateDB_InitializeReservedWords;
+finalization
+  ElevateDB_reservedwords := nil;
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAEngine.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAEngine.pas
new file mode 100644
index 0000000..4427bf6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAEngine.pas	
@@ -0,0 +1,2938 @@
+unit uDAEngine;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+interface
+
+uses
+  Classes, DB, SysUtils,
+  {$IFDEF MSWINDOWS} ActiveX, ComObj,{$ENDIF} // for ISupportErrorInfo, EOleSysError
+  uDAInterfaces, uROClasses, uDARes, uROTypes, uDAMacros, uDAUtils;
+
+type
+  { Misc }
+  TCustomConnectionClass = class of TCustomConnection;
+  TDatasetClass = class of TDataset;
+  TDAEConnection = class;
+  TDAEDriver = class;
+
+  { Exceptions }
+  EDAException = class(EROException);
+  EDADriverException = class(EDAException);
+
+  { TDAConnectionWrapper
+      Internal wrapper class for frameworks whose connections don't inherit from TCustomConnection or require additional
+      supporting components. See IBO and DBISAM drivers for an example. This class provides an implementation for DoConnect
+      and DoDisconnect removing the need to further override them. }
+  TDAConnectionWrapper = class(TCustomConnection)
+  protected
+    procedure DoConnect; override;
+    procedure DoDisconnect; override;
+  end;
+
+  {$IFDEF MSWINDOWS}
+  TDAEngineBaseObject = class(TROInterfacedObject, ISupportErrorInfo)//, IServerExceptionHandler)
+  protected
+    function InterfaceSupportsErrorInfo(const iid: TGUID): HRESULT; stdcall;
+    procedure OnException(const ServerClass: WideString; const ExceptionClass: WideString;
+                          const ErrorMessage: WideString; ExceptAddr: Integer; const ErrorIID: WideString;
+                          const ProgID: WideString; var Handled: Integer; var Result: HRESULT);
+  public
+    function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; override;
+  end;
+  {$ELSE}
+  TDAEngineBaseObject = TROInterfacedObject;
+  {$ENDIF}
+
+
+  { TDASQLMacroProcessor }
+  TDASQLMacroProcessor = class(TROMacroParser)
+  private
+    fStoredProcedurePrefix,
+      fDateFormat,
+      fStoredProcParamPrefix,
+      fDateTimeFormat: string;
+    fDoubleQuoteStrings: boolean;
+    function MyUnknownIdentifier(Sender: TObject; const Name, OrgName: string; var Value: string): Boolean;
+  protected
+    // Internal
+    procedure RegisterMacros; virtual;
+
+    // SQL Functions
+    function DateTime(Sender: TObject; const Parameters: array of string): string; virtual; abstract;
+    function Date(Sender: TObject; const Parameters: array of string): string; virtual;
+
+    function AddTime(Sender: TObject; const Parameters: array of string): string; virtual; abstract;
+
+    function FormatDateTime(Sender: TObject; const Parameters: array of string): string; virtual;
+    function FormatDate(Sender: TObject; const Parameters: array of string): string; virtual;
+
+    function Length(Sender: TObject; const Parameters: array of string): string; virtual; abstract;
+    function LowerCase(Sender: TObject; const Parameters: array of string): string; virtual; abstract;
+    function UpperCase(Sender: TObject; const Parameters: array of string): string; virtual; abstract;
+    function TrimLeft(Sender: TObject; const Parameters: array of string): string; virtual; abstract;
+    function TrimRight(Sender: TObject; const Parameters: array of string): string; virtual; abstract;
+    function Copy(Sender: TObject; const Parameters: array of string): string; virtual; abstract;
+    function Nolock(Sender: TObject; const Parameters: array of string): string; virtual;abstract;
+  public
+    constructor Create(const aDateFormat, aDateTimeFormat: string;
+      aDoubleQuoteStrings: boolean;
+      const aStoredProcParamsPrefix: string = '');overload;
+    constructor Create;overload;
+
+    property StoredProcedurePrefix: string read fStoredProcedurePrefix;
+    property DateFormat: string read fDateFormat;
+    property StoredProcParamPrefix: string read fStoredProcParamPrefix;
+    property DateTimeFormat: string read fDateTimeFormat;
+    property DoubleQuoteStrings: boolean read fDoubleQuoteStrings;
+  end;
+
+  IDAHasMacroProcessor = interface(IDAConnection)
+    ['{C18B417F-C698-4BB1-8F57-C3952E1046D1}']
+    function GetMacroProcessor: TDASQLMacroProcessor;
+  end;
+
+  IDANativeDatabaseAccess = interface
+    ['{0AC0565B-9500-4A90-B55D-25CB04568F9B}']
+    procedure ClearFieldDefs;
+    function GetRecordCount: Integer;
+    function GetBOF:Boolean;
+    function GetEOF:Boolean;
+    function GetActive:Boolean;
+    procedure SetActive(const aValue: Boolean);
+    procedure Next;
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant;
+    function GetFieldName(Index: Integer): string;
+    procedure DisableControls;
+    procedure EnableControls;
+    function ControlsDisabled: Boolean;
+    function GetIsEmpty: boolean;
+    procedure FreeBookmark(Bookmark: TBookmark);
+    function GetBookMark: pointer;
+    procedure GotoBookmark(Bookmark: TBookmark);
+    function GetState: TDatasetState;
+    procedure Prepare(const AValue: Boolean);
+    function GetFields(Index: integer): IDANativeField;
+    function FieldCount: Integer;
+    function FindField(const FieldName: string): IDANativeField;
+    function IsTDatasetCompatible: Boolean;
+    property Active: Boolean read GetActive write SetActive;
+    function GetNativeFieldData(Index: Integer; var Data: pointer; var DataSize: cardinal):Boolean;
+    function GetNativeFieldValue(Index: Integer): Variant;
+    function CanFreeNativeFieldData: Boolean;
+  end;
+
+  TDANativeField_Dataset = class(TInterfacedObject, IDANativeField)
+  private
+    fField: TField;
+  protected
+    function GetNativeObject: TObject;
+    function isTFieldCompatible: Boolean;
+    function GetFieldName: string;
+    function GetDataType: TFieldType;
+    function GetSize: integer;
+    function GetDecimalPrecision: Integer;
+    procedure SetDecimalPrecision(Value: integer);
+    function GetDecimalScale: Integer;
+    procedure SetDecimalScale(Value: integer);
+    procedure SetDataType(Value: TFieldType);
+    function GetFieldIndex: integer;
+    function GetValue: Variant;
+    function IsNull: Boolean;
+  public
+    constructor Create(AField: TField);
+  end;
+
+  TDANativeDatabaseAccess_Dataset = class(TInterfacedObject,IDANativeDatabaseAccess)
+  private
+    FDataset: TDataSet;
+    fList: TInterfaceList;
+  protected
+    procedure ClearFieldDefs;
+    function GetRecordCount: Integer;
+    function GetBOF:Boolean;
+    function GetEOF:Boolean;
+    function GetActive:Boolean;
+    procedure SetActive(const aValue: Boolean);
+    procedure Next;
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant;
+    function GetFieldName(Index: Integer): string;
+    procedure DisableControls;
+    procedure EnableControls;
+    function GetIsEmpty: boolean;
+    procedure FreeBookmark(Bookmark: TBookmark);
+    function GetBookMark: pointer;
+    procedure GotoBookmark(Bookmark: TBookmark);
+    function GetState: TDatasetState;
+    function ControlsDisabled: Boolean;
+    procedure Prepare(const AValue: Boolean);
+    function GetFields(Index: integer): IDANativeField;
+    function FieldCount: Integer;
+    function FindField(const FieldName: string): IDANativeField;
+    function IsTDatasetCompatible: Boolean;
+    function GetNativeFieldData(Index: Integer; var Data: pointer; var DataSize: cardinal):Boolean;
+    function CanFreeNativeFieldData: Boolean;
+    function GetNativeFieldValue(Index: Integer): Variant;
+  public
+    Constructor Create(ADataset: TDataSet);
+    destructor Destroy;override;
+  end;
+
+  { 20080408:
+  Dataset-compatible drivers - default mode, i.e. no changes is required.
+
+
+  non-Dataset-compatible drivers:
+
+  you should create objects that supports
+  IDANativeField, IDANativeDatabaseAccess
+
+  xxxQuery:
+  ---------
+  you should override in addition:
+    function CreateNativeDatabaseAccess: IDANativeDatabaseAccess;                      // point to IDANativeDatabaseAccess
+    function CreateNativeObject(aConnection: TDAEConnection): TObject;               // Result - point to your native object
+    function CreateDataset(aConnection: TDAEConnection): TDataset;                   //  you can raise error or return nil
+  you can use
+    property NativeDatabaseAccess: IDANativeDatabaseAccess read fNativeDatabaseAccess; // your object which you return with CreateNativeDatabaseAccess
+    property NativeObject: TObject read GetNativeObject;                             // your object created with CreateNativeObject
+
+
+  XXXStoredProcedure
+  ------------------
+  you should override in addition:
+    function CreateNativeObject(aConnection: TDAEConnection): TObject;               // Result - point to your native object
+    function CreateDataset(aConnection: TDAEConnection): TDataset;                   //  you can raise error or return nil
+  you can use
+    property NativeObject: TObject read GetNativeObject;                             // your object created with CreateNativeObject
+  }
+
+  { TDAESQLCommand }
+  {$WARN SYMBOL_DEPRECATED OFF}
+  TDAESQLCommand = class(TDAEngineBaseObject, IDASQLCommand, IDAMustSetParams, IDASQLCommandNativeObject)
+  private
+    fConnection: TDAEConnection;
+    fconn: IDAConnection;
+    fDataset: TDataset;
+    FNativeObject: TObject;
+    fParams: TDAParamCollection;
+    fWhere: TDAWhere;
+    fDynamicWhere: TDASQLWhereBuilder;
+    fChanged: boolean;
+    fSQL: string;
+    fName: string;
+    fPrepared: boolean;
+    //fOrderBy : string;
+    fOnAfterExecute: TDAAfterExecuteCommandEvent;
+    fOnBeforeExecute: TDABeforeExecuteCommandEvent;
+    fOnExecuteError: TDAExecuteCommandErrorEvent;
+    FIsPresentDynWhereVariable: Boolean;
+    function UnknownIdentifier(Sender: TObject; const Name, OrgName: string; var Value: string): Boolean;
+    procedure SetDynamicWhereParams;
+    procedure RemoveDynamicWhereParams;
+
+  { non-dataset mode}
+  protected
+    fNativeDatabaseAccess: IDANativeDatabaseAccess;
+    function CreateNativeDatabaseAccess: IDANativeDatabaseAccess; virtual;
+  { non-dataset mode end}
+
+    // Internal
+    procedure OnWhereChange(Sender: TObject);
+    procedure PrepareSQLStatement; virtual;
+    function GenerateDynamicWhereStatement: string;
+    function SQLContainsDynamicWhere: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValuesStd(Params1: TDAParamCollection;Params2: TParams);
+    procedure SetParamValuesStd(Params1: TDAParamCollection;Params2: TParams);
+    procedure ClearParams; virtual;
+    function FindParameter(const AParams: TParams;const AParamName: string): TParam;
+
+    // To be overridden
+    function CreateNativeObject(aConnection: TDAEConnection): TObject; virtual;
+    function CreateDataset(aConnection: TDAEConnection): TDataset; virtual; abstract;
+
+    procedure DoPrepare(Value: boolean); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    function DoExecute: integer; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    procedure DoSetSQL(const Value: string); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    function DoGetSQL: string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}abstract;
+
+    //IDASQLCommandNativeObject
+    function GetNativeObject: TObject; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetNativeFields(Index: integer): IDANativeField;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function NativeFieldCount: Integer;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function NativeFindField(const FieldName: string): IDANativeField;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IsTDatasetCompatible: Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetNativeFieldData(Index: Integer; var Data: pointer; var DataSize: cardinal):Boolean; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function CanFreeNativeFieldData: Boolean;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}    
+    // IDASQLCommand
+    function GetDataset: TDataset; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetPrepared: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetPrepared(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetParams: TDAParamCollection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RefreshParams; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetWhere: TDAWhere; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDynamicWhere: TDAWhereBuilder; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetDynamicWhere(const Value: TDAWhereBuilder); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSQL: string; virtual;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQL(const Value: string); virtual;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function ParamByName(const aName: string): TDAParam; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property NativeObject: TObject read GetNativeObject;
+    property Dataset: TDataset read GetDataset;
+    property Changed: boolean read fChanged write fChanged;
+    property Connection: TDAEConnection read fConnection;
+
+    function GetOnAfterExecute: TDAAfterExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeExecute: TDABeforeExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterExecute(const Value: TDAAfterExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeExecute(const Value: TDABeforeExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnExecuteError: TDAExecuteCommandErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnExecuteError(const Value: TDAExecuteCommandErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function intVCLTypeToDAType(aFieldType: TFieldType; ASize: integer = 0; ADecimalPrecision: integer = 0; aDecimalScale: integer = 0): TDADataType;virtual;
+    procedure SetParamValues(AParams: TDAParamCollection); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    procedure GetParamValues(AParams: TDAParamCollection); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+  public
+    constructor Create(aConnection: TDAEConnection; const aName: string = ''); virtual;
+    destructor Destroy; override;
+  end;
+
+  { TDAEDataset }
+  TDAEDataset = class(TDAESQLCommand, IDASQLCommand, IDADataset)
+  private
+    fAutoFields: boolean;
+    fFields: TDAFieldCollection;
+    fLogicalName : string;
+    fOnAfterOpen: TDAAfterOpenDatasetEvent;
+    fOnBeforeOpen: TDABeforeOpenDatasetEvent;
+    fOnOpenError: TDAOpenDatasetErrorEvent;
+    FNativeIndex: array of integer;
+  protected
+    property NativeDatabaseAccess: IDANativeDatabaseAccess read fNativeDatabaseAccess;
+    function IsNeedToFixFMTBCDIssue: Boolean; virtual;
+    procedure FixKnownIssues;virtual;
+    procedure FixFMTBCDIssue;
+    // To be overridden
+    function DoGetRecordCount: integer; dynamic;
+    function DoGetActive: boolean; dynamic;
+    procedure DoSetActive(Value: boolean); dynamic;
+    function DoGetBOF: boolean; dynamic;
+    function DoGetEOF: boolean; dynamic;
+
+    procedure DoNext; dynamic;
+
+    function DoLocate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; dynamic;
+    procedure DoPrepare(Value: boolean); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    //IDASQLCommandNativeObject
+    function GetNativeFieldData(Index: Integer; var Data: pointer; var DataSize: cardinal):Boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDADataset
+    function GetRecordCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFields: TDAFieldCollection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetActive: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetActive(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetBOF: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetEOF: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldValues(Index: integer): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetNames(Index: integer): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetIsEmpty : boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetState : TDatasetState; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Open; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Close; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure EnableControls; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableControls; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function  ControlsDisabled: Boolean;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Next; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Refresh; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function FieldByName(const aName: string): TDAField; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function FindField(const aName: string): TDAField; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetBookMark: pointer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GotoBookmark(Bookmark: TBookmark); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure FreeBookmark(Bookmark: TBookmark); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLogicalName : string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetLogicalName(aName : string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetOnAfterOpen: TDAAfterOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeOpen: TDABeforeOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterOpen(const Value: TDAAfterOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeOpen(const Value: TDABeforeOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnOpenError: TDAOpenDatasetErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnOpenError(const Value: TDAOpenDatasetErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetRowRecIdValue: integer;
+    function GetCurrentRecIdValue: integer;
+    procedure SetCurrentRecIdValue(Value: integer);
+    procedure EnableConstraints; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableConstraints; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+    constructor Create(aConnection: TDAEConnection; const aName: string = ''); override;
+    destructor Destroy; override;
+  end;
+  {$WARN SYMBOL_DEPRECATED ON}
+
+  TDAEDatasetClass = class of TDAEDataset;
+
+  {$WARN SYMBOL_DEPRECATED OFF}
+  { TDAEStoredProcedure }
+  TDAEStoredProcedure = class(TDAESQLCommand, IDASQLCommand, IDAStoredProcedure)
+  protected
+    function CreateNativeDatabaseAccess: IDANativeDatabaseAccess; override;
+    procedure RefreshParamsStd(AParams: TParams);
+    // Internal
+    procedure DoPrepare(Value: boolean); override;
+    procedure RefreshParams; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQL(const Value: string); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // IDAStoredProcedure
+    function GetStoredProcedureName: string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    procedure SetStoredProcedureName(const Name: string); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    procedure PrepareSQLStatement; override;
+  public
+  end;
+  {$WARN SYMBOL_DEPRECATED ON}
+  TDAEStoredProcedureClass = class of TDAEStoredProcedure;
+
+  { TDAEConnection }
+  TDAEConnection = class(TDAEngineBaseObject, IDAConnection, IDAConnectionObjectAccess, IDATestableObject, IDAHasMacroProcessor)
+  private
+    fConnectionObject: TCustomConnection;
+    fConnectionString: string;
+    fConnectionManager: IDAConnectionManager;
+    fConnectionDefinition: TDAConnection;
+    fDriver: TDAEDriver;
+    fUserID,
+    fPassword,
+    fName: string;
+    fMacroProcessor: TDASQLMacroProcessor;
+    fOnAfterExecuteCommand: TDAAfterExecuteCommandEvent;
+    fOnAfterOpenDataset: TDAAfterOpenDatasetEvent;
+    fOnBeforeOpenDataset: TDABeforeOpenDatasetEvent;
+    fOnBeforeExecuteCommand: TDABeforeExecuteCommandEvent;
+    fOnExecuteCommandError: TDAExecuteCommandErrorEvent;
+    fOnOpenDatasetError: TDAOpenDatasetErrorEvent;
+    fConnectionPool: IDAConnectionPool;
+    fReleasing: Boolean;
+    fUseMacroProcessor:Boolean;
+
+    function CreateConnectionObject: TCustomConnection;
+
+  protected
+    fConnectionType: string;
+    property ConnectionName: string read fName;
+    property ConnectionManager: IDAConnectionManager read fConnectionManager;
+    property ConnectionDefinition: TDAConnection read fConnectionDefinition;
+
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+    function GetConnectionPool: IDAConnectionPool; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetConnectionPool(const Value: IDAConnectionPool); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // To be overridden
+    function CreateCustomConnection: TCustomConnection; virtual; abstract;
+    function CreateMacroProcessor: TDASQLMacroProcessor; virtual;
+
+    function GetDatasetClass: TDAEDatasetClass; virtual;
+    function GetStoredProcedureClass: TDAEStoredProcedureClass; virtual;
+
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); virtual;
+
+    function DoBeginTransaction: integer; virtual; abstract;
+    procedure DoCommitTransaction; virtual; abstract;
+    procedure DoRollbackTransaction; virtual; abstract;
+    function DoGetInTransaction: boolean; virtual; abstract;
+
+    procedure DoGetTableNames(out List: IROStrings); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetViewNames(out List: IROStrings); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetStoredProcedureNames(out List: IROStrings); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetQueryFields(const aSQL: string; aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection); virtual;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetViewFields(const aViewName: string; out Fields: TDAFieldCollection); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function DoGetLastAutoInc(const GeneratorName: string): integer; virtual;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; virtual;
+
+    // Misc
+    procedure ApplyConnectionString(const aConnectionString: string; aConnectionObject: TCustomConnection);
+
+    procedure AssignCommandEventHandlers(const aCommand: IDASQLCommand);
+    procedure AssignDatasetEventHandlers(const aDataset: IDADataset);
+
+    // IDAConnectionObjectAccess
+    function GetConnectionObject: TObject; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetConnectionProperties(const aPropertyName: string): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetConnectionProperties(const aPropertyName: string; const aValue: Variant); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // IDATestableObject
+    procedure Test; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // IDAConnection
+    function GetConnectionString: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetConnectionString(Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetConnected: boolean; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetConnected(Value: boolean); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetOnAfterExecuteCommand: TDAAfterExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnAfterOpenDataset: TDAAfterOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeExecuteCommand: TDABeforeExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeOpenDataset: TDABeforeOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnExecuteCommandError: TDAExecuteCommandErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnOpenDatasetError: TDAOpenDatasetErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterExecuteCommand(const Value: TDAAfterExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterOpenDataset(const Value: TDAAfterOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeExecuteCommand(const Value: TDABeforeExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeOpenDataset(const Value: TDABeforeOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnExecuteCommandError(const Value: TDAExecuteCommandErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnOpenDatasetError(const Value: TDAOpenDatasetErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Open(const aUserID: string = ''; const aPassword: string = ''); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Close; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // UserID/Password
+    function GetUserID: string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetUserID(const Value: string); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetPassword: string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetPassword(const Value: string); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function BeginTransaction: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CommitTransaction; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RollbackTransaction; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetInTransaction: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure GetTableNames(out List: IROStrings); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetViewNames(out List: IROStrings); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetStoredProcedureNames(out List: IROStrings); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetTableFields(const aTableName: string; out Fields: TDAFieldCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetQueryFields(const aSQL: string; aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetViewFields(const aViewName: string; out Fields: TDAFieldCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+
+    function GetSPSelectSyntax(HasArguments: Boolean): string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetQuoteChars: TDAQuoteCharArray; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IdentifierIsQuoted(const iIdentifier: string): boolean; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function QuoteIdentifierIfNeeded(const iIdentifier: string): string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function QuoteIdentifier(const iIdentifier: string): string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function QuoteFieldNameIfNeeded(const aTableName, aFieldName: string): string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function QuoteFieldName(const aTableName, aFieldName: string): string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function NewCommand(const Text: string; CommandType: TDASQLStatementType; const aCommandName: string = ''): IDASQLCommand; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function NewDataset(const SQL: string; const aDatasetName: string = ''): IDADataset; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLastAutoInc(const GeneratorName: string = ''): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLastAutoIncValue(const GeneratorName: string = ''): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property UserID: string read GetUserID write SetUserID;
+    property Password: string read GetPassword write SetPassword;
+    property ConnectionObject: TCustomConnection read fConnectionObject write fConnectionObject;
+    function GetMacroProcessor: TDASQLMacroProcessor;
+    function _Release: Integer; override; stdcall;
+    function isAlive: Boolean; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetConnectionType: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    property ConnectionType: string read GetConnectionType;
+    function GetQueryBuilder: TDAQueryBuilder; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetWhereBuilder: TDASQLWhereBuilder; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetUseMacroProcessor: Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetUseMacroProcessor(Value:Boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+    constructor Create(aDriver: TDAEDriver; aName: string = ''); virtual;
+    destructor Destroy; override;
+
+    property ConnectionPool: IDAConnectionPool read GetConnectionPool write SetConnectionPool;
+    property Driver: TDAEDriver read fDriver;
+    property MacroProcessor: TDASQLMacroProcessor read GetMacroProcessor;
+  end;
+
+  TDAEConnectionClass = class of TDAEConnection;
+
+  { TDAEDriver }
+  TDAEDriver = class(TComponent, IDADriver, IDADriver30)
+  private
+
+  protected
+    // To be overridden
+    function GetConnectionClass: TDAEConnectionClass; virtual; abstract;
+    procedure CustomizeConnectionObject(aConnection: TDAEConnection); dynamic;
+    procedure DoSetTraceOptions(TraceActive: boolean; TraceFlags: TDATraceOptions; Callback: TDALogTraceEvent); virtual;
+
+    { IDADriver }
+    function GetDriverID: string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    function GetDescription: string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} abstract;
+    function GetMajVersion: byte; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetMinVersion: byte; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure GetAuxDrivers(out List: IROStrings); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDefaultConnectionType(const AuxDriver: string): string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure SetTraceOptions(TraceActive: boolean; TraceFlags: TDATraceOptions; Callback: TDALogTraceEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function NewConnection(const aName: string = ''; const aConnectionType: string = ''): IDAConnection; overload; {deprecated;} {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function NewConnection(const aConnectionManager: IDAConnectionManager; aConnectionDefinition: TDAConnection): IDAConnection; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Initialize; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Finalize; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptionsEx(AuxDriver: string): TDAAvailableDriverOptions; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDefaultCustomParameters: string; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    { IDADriver30 }
+    function GetDriverHelp(aType: TDADriverHelpType): string;
+  public
+    destructor Destroy; override;
+  end;
+
+  TDAEDriverClass = class of TDAEDriver;
+
+  { TDADriverReference }
+  TDADriverReference = class(TComponent)
+  end;
+
+{$IFDEF MSWINDOWS}
+function DAHandleSafeCallException(aObject:TObject; ExceptObject: TObject; ExceptAddr: Pointer): HResult;
+{$ENDIF MSWINDOWS}
+function Engine_GetDatabaseNames(aConnection:TDAEConnection; aMasterDatabase, aGetDatabaseNamesSQL: String): IROStrings;
+function TestIdentifier(const iIdentifier: string; const ReservedWords: array of string): boolean;
+implementation
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF} Variants,{$IFDEF FPC}dbconst,{$ELSE}DBConsts,{$ENDIF}
+  FMTBcd,{$IFNDEF Drivers_CompatibilityMode}{$IFNDEF FPC}SqlTimSt,{$ENDIF}{$ENDIF}
+  TypInfo, uDAHelpers, uROClient, uDASQL92QueryBuilder, uROBinaryHelpers;
+
+function Engine_GetDatabaseNames(aConnection:TDAEConnection; aMasterDatabase, aGetDatabaseNamesSQL: String): IROStrings;
+var
+  connStrParser             : TDAConnectionStringParser;
+  conn                      : IDAConnection;
+  ds                        : IDAdataset;
+begin
+  Result := NewROStrings;
+  connStrParser := TDAConnectionStringParser.Create((aConnection as IDAConnection).ConnectionString);
+  try
+    connStrParser.Database := aMasterDatabase;
+
+    conn := TDAEConnectionClass(aConnection.ClassType).Create(aConnection.Driver);
+    conn.ConnectionString := connStrParser.BuildString;
+    conn.Open;
+
+    ds := conn.NewDataset(aGetDatabaseNamesSQL);
+    ds.Open;
+
+    while not ds.EOF do begin
+      result.Add(VarToStr(ds.FieldValues[0]));
+      ds.Next;
+    end;
+  finally
+    connStrParser.Free;
+    conn := nil;
+    ds := nil;
+  end;
+end;
+
+{ TDAEDriver }
+
+destructor TDAEDriver.Destroy;
+begin
+  SetTraceOptions(FALSE, [], nil);
+
+  inherited;
+end;
+
+procedure TDAEDriver.Initialize;
+begin
+end;
+
+procedure TDAEDriver.Finalize;
+begin
+
+end;
+
+function TDAEDriver.GetMajVersion: byte;
+begin
+  result := 1
+end;
+
+function TDAEDriver.GetMinVersion: byte;
+begin
+  result := 0
+end;
+
+function TDAEDriver.NewConnection(const aName: string = '';const aConnectionType: string = ''): IDAConnection;
+var
+  conn: TDAEConnection;
+begin
+  conn := GetConnectionClass.Create(Self, aName);
+  conn.FConnectionType := aConnectionType;
+  CustomizeConnectionObject(conn); // In some cases the driver might need to do additional customization
+
+  result := conn;
+end;
+
+function TDAEDriver.NewConnection(const aConnectionManager: IDAConnectionManager; aConnectionDefinition: TDAConnection): IDAConnection;
+var
+  conn: TDAEConnection;
+begin
+  conn := GetConnectionClass.Create(Self, aConnectionDefinition.Name);
+  conn.fConnectionType := aConnectionDefinition.ConnectionType;
+  conn.fConnectionManager := aConnectionManager;
+  conn.fConnectionDefinition := aConnectionDefinition;
+  CustomizeConnectionObject(conn); // In some cases the driver might need to do additional customization
+
+  result := conn;
+end;
+
+function TDAEDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  //result := [doAuxDriver,doServerName,doDatabaseName,doLogin,doCustom];
+  result := [doServerName, doDatabaseName, doLogin];
+end;
+
+function TDAEDriver.GetAvailableDriverOptionsEx(AuxDriver: string): TDAAvailableDriverOptions;
+begin
+  result := GetAvailableDriverOptions;
+end;
+
+function TDAEDriver.GetDefaultConnectionType(const AuxDriver: string): string;
+begin
+  result := '';
+end;
+
+function TDAEDriver.GetDefaultCustomParameters: string;
+begin
+  result := '';
+end;
+
+procedure TDAEDriver.SetTraceOptions(TraceActive: boolean; TraceFlags: TDATraceOptions; Callback: TDALogTraceEvent);
+begin
+  if (csDesigning in ComponentState) then Exit;
+
+  DoSetTraceOptions(TraceActive, TraceFlags, Callback);
+end;
+
+procedure TDAEDriver.CustomizeConnectionObject(aConnection: TDAEConnection);
+begin
+end;
+
+procedure TDAEDriver.DoSetTraceOptions(TraceActive: boolean;
+  TraceFlags: TDATraceOptions; Callback: TDALogTraceEvent);
+begin
+end;
+
+procedure TDAEDriver.GetAuxDrivers(out List: IROStrings);
+begin
+  List := NewROStrings();
+end;
+
+procedure TDAEDriver.GetAuxParams(const AuxDriver: string; out List: IROStrings);
+begin
+  List := NewROStrings();
+end;
+
+function TDAEDriver.GetDriverHelp(aType: TDADriverHelpType): string;
+begin
+  result := LoadHtmlFromResource(hInstance, 'DRIVER_HELP');
+end;
+
+{ TDAEConnection }
+
+constructor TDAEConnection.Create(aDriver: TDAEDriver; aName: string = '');
+begin
+  inherited Create;
+
+  fName := aName;
+  fDriver := aDriver;
+  fConnectionObject := CreateConnectionObject;
+  FUseMacroProcessor := True;
+end;
+
+destructor TDAEConnection.Destroy;
+begin
+  if Assigned(fConnectionObject) then begin
+    try
+      if fConnectionObject.Connected then fConnectionObject.Close;
+    except
+    end;  
+    FreeAndNIL(fConnectionObject);
+  end;
+
+  if Assigned(fMacroProcessor) then fMacroProcessor.Free;
+
+  inherited;
+end;
+
+function TDAEConnection.GetConnected: boolean;
+begin
+  result := assigned(fConnectionObject) and fConnectionObject.Connected;
+end;
+
+function TDAEConnection.GetConnectionString: string;
+begin
+  result := fConnectionString;
+end;
+
+procedure TDAEConnection.SetConnected(Value: boolean);
+begin
+  if fConnectionObject <> nil then
+    fConnectionObject.Connected := Value;
+end;
+
+procedure TDAEConnection.SetConnectionString(Value: string);
+begin
+  if (Value = fConnectionString) then Exit;
+
+  ApplyConnectionString(Value, fConnectionObject);
+end;
+
+function TDAEConnection.GetConnectionObject: TObject;
+begin
+  result := fConnectionObject;
+end;
+
+function TDAEConnection.GetConnectionProperties(
+  const aPropertyName: string): Variant;
+begin
+  if assigned(fConnectionObject) then
+    result := GetPropValue(fConnectionObject, aPropertyName, FALSE)
+  else
+    result := Unassigned;
+end;
+
+procedure TDAEConnection.SetConnectionProperties(
+  const aPropertyName: string; const aValue: Variant);
+begin
+  if assigned(fConnectionObject) then
+    SetPropValue(fConnectionObject, aPropertyName, aValue);
+end;
+
+procedure TDAEConnection.Close;
+begin
+  SetConnected(FALSE); // Exceptions are handled there
+end;
+
+procedure TDAEConnection.Open(const aUserID: string = ''; const aPassword: string = '');
+begin
+  if (aUserID <> '') then UserID := aUserID;
+  if (aPassword <> '') then Password := aPassword;
+
+  SetConnected(TRUE); // Exceptions are handled there
+end;
+
+function TDAEConnection.CreateConnectionObject: TCustomConnection;
+begin
+  result := CreateCustomConnection;
+end;
+
+function TDAEConnection.NewDataset(const SQL: string; const aDatasetName: string = ''): IDADataset;
+begin
+  result := GetDatasetClass.Create(Self, aDatasetName);
+  result.SQL := SQL;
+
+  AssignDatasetEventHandlers(result); // Propagates the event handlers to all datasets
+end;
+
+function TDAEConnection.NewCommand(const Text: string; CommandType: TDASQLStatementType; const aCommandName: string = ''): IDASQLCommand;
+var
+  sp: IDAStoredProcedure;
+  ds: IDADataset;
+begin
+  result := nil;
+
+  case CommandType of
+    stStoredProcedure: begin
+        sp := GetStoredProcedureClass.Create(Self, aCommandName);
+        sp.StoredProcedureName := Text;
+
+        result := sp;
+      end;
+    stSQL: begin
+        ds := GetDatasetClass.Create(Self, aCommandName);
+        ds.SQL := Text;
+        result := ds;
+      end;
+  end;
+
+  if Result <> nil then
+    Result.RefreshParams;
+
+  AssignCommandEventHandlers(result); // Propagates the event handlers to all commands
+end;
+
+function TDAEConnection.BeginTransaction: integer;
+begin
+  result := -1;
+
+  DoBeginTransaction;
+end;
+
+procedure TDAEConnection.CommitTransaction;
+begin
+  DoCommitTransaction;
+end;
+
+procedure TDAEConnection.RollbackTransaction;
+begin
+  DoRollbackTransaction;
+end;
+
+procedure TDAEConnection.GetStoredProcedureNames(out List: IROStrings);
+begin
+  DoGetStoredProcedureNames(List);
+end;
+
+procedure TDAEConnection.GetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  DoGetStoredProcedureParams(aStoredProcedureName, Params);
+end;
+
+procedure TDAEConnection.GetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  DoGetForeignKeys(ForeignKeys);
+end;
+
+procedure TDAEConnection.GetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  DoGetTableFields(aTableName, Fields);
+end;
+
+procedure TDAEConnection.GetQueryFields(const aSQL: string; aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection);
+begin
+  DoGetQueryFields(aSQL, aParamsIfNeeded, Fields);
+end;
+
+procedure TDAEConnection.GetTableNames(out List: IROStrings);
+begin
+  DoGetTableNames(List);
+end;
+
+procedure TDAEConnection.GetViewFields(const aViewName: string;
+  out Fields: TDAFieldCollection);
+begin
+  DoGetViewFields(aViewName, Fields);
+end;
+
+procedure TDAEConnection.GetViewNames(out List: IROStrings);
+begin
+  DoGetViewNames(List);
+end;
+
+function TDAEConnection.GetWhereBuilder: TDASQLWhereBuilder;
+begin
+  Result:= TDASQL92WhereBuilder.Create(Self);
+end;
+
+function TDAEConnection.GetDatasetClass: TDAEDatasetClass;
+begin
+  result := nil;
+end;
+
+function TDAEConnection.GetStoredProcedureClass: TDAEStoredProcedureClass;
+begin
+  result := nil;
+end;
+
+procedure TDAEConnection.DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection);
+var
+  qry: IDADataset;
+begin
+  Fields := TDAFieldCollection.Create(nil);
+  qry := GetDatasetClass.Create(Self);
+  try
+    qry.SQL := 'SELECT * FROM ' + QuoteIdentifierIfNeeded(aTableName) + ' WHERE 1=0';
+    qry.Open;
+    Fields.Assign(qry.Fields);
+  finally
+    qry := nil;
+  end;
+end;
+
+procedure TDAEConnection.DoGetQueryFields(const aSQL: string; aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection);
+var
+  qry: IDADataset;
+begin
+  Fields := TDAFieldCollection.Create(nil);
+  qry := GetDatasetClass.Create(Self);
+  try
+    qry.SQL := aSQL;
+    if assigned(aParamsIfNeeded) then
+      qry.Params.AssignParamCollection(aParamsIfNeeded);
+    qry.Open;
+    Fields.Assign(qry.Fields);
+  finally
+    qry := nil;
+  end;
+end;
+
+procedure TDAEConnection.DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection);
+var
+  cmd: IDASQLCommand;
+begin
+  //Params := nil;
+  cmd := NewCommand(aStoredProcedureName, stStoredProcedure);
+  cmd.RefreshParams;
+
+  {if (Params = nil) then} Params := TDAParamCollection.Create(nil);
+  Params.AssignParamCollection(cmd.Params);
+end;
+
+procedure TDAEConnection.DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  ForeignKeys := TDADriverForeignKeyCollection.Create(nil);
+end;
+
+function TDAEConnection.GetName: string;
+begin
+  result := fName;
+end;
+
+procedure TDAEConnection.DoGetViewFields(const aViewName: string;
+  out Fields: TDAFieldCollection);
+begin
+  DoGetTableFields(aViewName, Fields);
+end;
+
+function TDAEConnection.GetQuoteChars: TDAQuoteCharArray;
+begin
+  result[0] := '"';
+  result[1] := '"';
+end;
+
+procedure TDAEConnection.DoGetViewNames(out List: IROStrings);
+begin
+  List := NewROStrings; // Changed from NIL.
+end;
+
+procedure TDAEConnection.DoGetStoredProcedureNames(out List: IROStrings);
+begin
+  List := NewROStrings; // Changed from NIL.
+end;
+
+procedure TDAEConnection.DoGetTableNames(out List: IROStrings);
+begin
+  List := NewROStrings; // Changed from NIL.
+end;
+
+function TDAEConnection.GetInTransaction: boolean;
+begin
+  result := DoGetInTransaction;
+end;
+
+function TDAEConnection.GetPassword: string;
+begin
+  result := fPassword;
+end;
+
+function TDAEConnection.GetUserID: string;
+begin
+  result := fUserID;
+end;
+
+procedure TDAEConnection.SetPassword(const Value: string);
+begin
+  fPassword := Value;
+
+  ApplyConnectionString(GetConnectionString, ConnectionObject); // Refreshes it
+end;
+
+procedure TDAEConnection.SetUserID(const Value: string);
+begin
+  fUserID := Value;
+
+  ApplyConnectionString(GetConnectionString, ConnectionObject); // Refreshes it
+end;
+
+function TDAEConnection.GetLastAutoInc(
+  const GeneratorName: string): integer;
+begin
+  result := DoGetLastAutoIncValue(GeneratorName);
+end;
+
+function TDAEConnection.DoGetLastAutoInc(
+  const GeneratorName: string): integer;
+begin
+  result := -1;
+end;
+
+function TDAEConnection.IdentifierIsQuoted(const iIdentifier: string): boolean;
+var
+  lQuoteChars: TDAQuoteCharArray;
+  lLength:integer;
+begin
+  lQuoteChars := GetQuoteChars();
+  lLength := Length(iIdentifier);
+  result := (lLength > 2) and (
+    ((iIdentifier[1] = lQuoteChars[0]) and (iIdentifier[lLength] = lQuoteChars[1])) or
+    ((iIdentifier[1] = '(') and (iIdentifier[lLength] = ')')));
+end;
+
+function TDAEConnection.IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+var
+  i: integer;
+begin
+  result := false;
+  if IdentifierIsQuoted(iIdentifier) then Exit;
+
+  for i := 1 to Length(iIdentifier) do begin
+    if not CharInSet(iIdentifier[i], ['a'..'z', 'A'..'Z', '0'..'9', '_', '.']) then begin
+      result := true;
+      exit;
+    end;
+  end;
+  if (iIdentifier <> '') then begin
+    i := pos('.',iIdentifier);
+    if (i < Length(iIdentifier)) and CharInSet(iIdentifier[i+1], ['0'..'9']) then Result := True;
+  end;
+end;
+
+function TDAEConnection.QuoteIdentifierIfNeeded(const iIdentifier: string): string;
+begin
+  if IdentifierNeedsQuoting(iIdentifier) then
+    result := QuoteIdentifier(iIdentifier)
+  else
+    result := iIdentifier;
+end;
+
+function TDAEConnection.QuoteIdentifier(const iIdentifier: string): string;
+var
+  lQuoteChars: TDAQuoteCharArray;
+begin
+  lQuoteChars := GetQuoteChars();
+  if (Pos('.', iIdentifier)>0) then
+    result := lQuoteChars[0] + StringReplace(iIdentifier, '.', lQuoteChars[1]+'.'+ lQuoteChars[0], [rfReplaceAll]) + lQuoteChars[1]
+  else
+    result := lQuoteChars[0] + iIdentifier + lQuoteChars[1];
+end;
+
+function TDAEConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+{$WARNINGS OFF}
+  result := TDASQLMacroProcessor.Create;
+{$WARNINGS ON}
+end;
+
+procedure TDAEConnection.ApplyConnectionString(
+  const aConnectionString: string; aConnectionObject: TCustomConnection);
+var
+  i: Integer;
+  lParamName: String;
+  lConnStrParser: TDAConnectionStringParser;
+begin
+  FreeAndNIL(fMacroProcessor);
+
+  lConnStrParser := TDAConnectionStringParser.Create(aConnectionString);
+  try
+    fConnectionString := aConnectionString;
+    DoApplyConnectionString(lConnStrParser, aConnectionObject);
+    //with lConnStrParser do
+    if aConnectionObject <> nil then
+    begin
+      for i := 0 to lConnStrParser.AuxParamsCount - 1 do begin
+        lParamName := lConnStrParser.AuxParamNames[i];
+        if Assigned(GetPropInfo(aConnectionObject, lParamName)) then begin
+          SetConnectionProperties(lParamName, lConnStrParser.AuxParams[lParamName]);
+        end;
+      end;
+    end;
+  finally
+    lConnStrParser.Free;
+  end;
+
+  fMacroProcessor := CreateMacroProcessor;
+end;
+
+procedure TDAEConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
+begin
+  if (aConnectionObject <> nil) then aConnectionObject.Close;
+end;
+
+function TDAEConnection.GetOnAfterExecuteCommand: TDAAfterExecuteCommandEvent;
+begin
+  result := fOnAfterExecuteCommand
+end;
+
+function TDAEConnection.GetOnAfterOpenDataset: TDAAfterOpenDatasetEvent;
+begin
+  result := fOnAfterOpenDataset
+end;
+
+function TDAEConnection.GetOnBeforeExecuteCommand: TDABeforeExecuteCommandEvent;
+begin
+  result := fOnBeforeExecuteCommand
+end;
+
+function TDAEConnection.GetOnBeforeOpenDataset: TDABeforeOpenDatasetEvent;
+begin
+  result := fOnBeforeOpenDataset
+end;
+
+function TDAEConnection.GetOnExecuteCommandError: TDAExecuteCommandErrorEvent;
+begin
+  result := fOnExecuteCommandError
+end;
+
+function TDAEConnection.GetOnOpenDatasetError: TDAOpenDatasetErrorEvent;
+begin
+  result := fOnOpenDatasetError
+end;
+
+procedure TDAEConnection.SetOnAfterExecuteCommand(
+  const Value: TDAAfterExecuteCommandEvent);
+begin
+  fOnAfterExecuteCommand := Value;
+end;
+
+procedure TDAEConnection.SetOnAfterOpenDataset(
+  const Value: TDAAfterOpenDatasetEvent);
+begin
+  fOnAfterOpenDataset := Value;
+end;
+
+procedure TDAEConnection.SetOnBeforeExecuteCommand(
+  const Value: TDABeforeExecuteCommandEvent);
+begin
+  fOnBeforeExecuteCommand := Value;
+end;
+
+procedure TDAEConnection.SetOnBeforeOpenDataset(
+  const Value: TDABeforeOpenDatasetEvent);
+begin
+  fOnBeforeOpenDataset := Value;
+end;
+
+procedure TDAEConnection.SetOnExecuteCommandError(
+  const Value: TDAExecuteCommandErrorEvent);
+begin
+  fOnExecuteCommandError := Value;
+end;
+
+procedure TDAEConnection.SetOnOpenDatasetError(
+  const Value: TDAOpenDatasetErrorEvent);
+begin
+  fOnOpenDatasetError := Value;
+end;
+
+procedure TDAEConnection.AssignCommandEventHandlers(
+  const aCommand: IDASQLCommand);
+begin
+  if aCommand=NIL then Exit;
+  aCommand.OnBeforeExecute := fOnBeforeExecuteCommand;
+  aCommand.OnAfterExecute := fOnAfterExecuteCommand;
+  aCommand.OnExecuteError := fOnExecuteCommandError;
+end;
+
+procedure TDAEConnection.AssignDatasetEventHandlers(
+  const aDataset: IDADataset);
+begin
+  if aDataset=NIL then Exit;
+  aDataset.OnBeforeOpen := fOnBeforeOpenDataset;
+  aDataset.OnAfterOpen := fOnAfterOpenDataset;
+  aDataset.OnOpenError := fOnOpenDatasetError;
+end;
+
+procedure TDAEConnection.Test;
+begin
+  Open;
+  Close;
+end;
+
+function TDAEConnection.GetSPSelectSyntax(HasArguments: Boolean): string;
+begin
+  Result := 'EXEC {0} {1}';
+end;
+
+function TDAEConnection.GetMacroProcessor: TDASQLMacroProcessor;
+begin
+  if FUseMacroProcessor then
+    result := fMacroProcessor
+  else
+    Result := nil;
+end;
+
+function TDAEConnection._Release: Integer;
+begin
+  Result := InterlockedDecrement(FRefCount);
+  if (Result = 0) and not (fReleasing) then begin
+    fReleasing := True;
+    InterlockedIncrement(fRefCount);
+    if assigned(fConnectionPool) then
+      fConnectionPool.ReleaseConnection(self);
+    Result := InterlockedDecrement(fRefCount);
+    fReleasing := False;
+  end;
+  if Result = 0 then
+    Destroy;
+end;
+
+function TDAEConnection.GetConnectionPool: IDAConnectionPool;
+begin
+  result := fConnectionPool;
+end;
+
+procedure TDAEConnection.SetConnectionPool(const Value: IDAConnectionPool);
+begin
+  fConnectionPool := Value;
+end;
+
+function TDAEConnection.QuoteFieldName(const aTableName,
+  aFieldName: string): string;
+begin
+  Result:= QuoteIdentifier(aFieldName);
+end;
+
+function TDAEConnection.QuoteFieldNameIfNeeded(const aTableName,
+  aFieldName: string): string;
+begin
+  if IdentifierNeedsQuoting(aFieldName) then
+    result := QuoteFieldName(aTableName,aFieldName)
+  else
+    result := aFieldName;
+end;
+
+function TDAEConnection.isAlive: Boolean;
+begin
+  Result:= (ConnectionObject <> nil) and ConnectionObject.Connected;
+end;
+
+function TDAEConnection.GetConnectionType: string;
+begin
+  Result:= FConnectionType;
+end;
+
+function TDAEConnection.GetQueryBuilder: TDAQueryBuilder;
+begin
+  Result:= TDASQL92QueryBuilder.Create;
+  Result.Connection:=Self;
+end;
+
+function TDAEConnection.GetUseMacroProcessor: Boolean;
+begin
+  Result := FUseMacroProcessor;
+end;
+
+procedure TDAEConnection.SetUseMacroProcessor(Value: Boolean);
+begin
+  FUseMacroProcessor := Value;
+end;
+
+function TDAEConnection.QueryInterface(const IID: TGUID; out Obj): HResult;
+begin
+  Result:= E_NOINTERFACE;
+  if IsEqualGUID(IID, IDAHasMacroProcessor) then begin
+    if not FUseMacroProcessor then Exit;
+  end;
+  Result := inherited QueryInterface(IID, Obj)
+end;
+
+function TDAEConnection.DoGetLastAutoIncValue(
+  const GeneratorName: string): Variant;
+begin
+  // for backward compatibility
+  Result := DoGetLastAutoInc(GeneratorName);
+end;
+
+function TDAEConnection.GetLastAutoIncValue(
+  const GeneratorName: string): variant;
+begin
+  Result := DoGetLastAutoIncValue(GeneratorName); 
+end;
+
+{ TDAEDataset }
+
+constructor TDAEDataset.Create(aConnection: TDAEConnection; const aName: string = '');
+begin
+  inherited;
+
+  fLogicalName := aName;
+  if (fLogicalName='')
+    then fLogicalName := NewGuidAsString;
+
+  fChanged := true;
+  fFields := TDAFieldCollection.Create(nil);
+  {$WARN SYMBOL_DEPRECATED OFF}
+  GetWhere.Fields := fFields; // So it can find the mappings!
+  {$WARN SYMBOL_DEPRECATED ON}
+end;
+
+destructor TDAEDataset.Destroy;
+begin
+  FreeAndNil(fFields);
+  inherited;
+end;
+
+function TDAEDataset.GetActive: boolean;
+begin
+  result := DoGetActive
+end;
+
+function TDAEDataset.GetBOF: boolean;
+begin
+  result := DoGetBOF
+end;
+
+function TDAEDataset.GetEOF: boolean;
+begin
+  result := DoGetEOF;
+end;
+
+function TDAEDataset.GetFieldCount: integer;
+begin
+  result := fFields.Count;
+end;
+
+function TDAEDataset.GetRecordCount: integer;
+begin
+  result := DoGetRecordCount;
+end;
+
+function TDAEDataset.Locate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  result := DoLocate(KeyFields, KeyValues, Options);
+end;
+
+procedure TDAEDataset.Next;
+begin
+  DoNext;
+end;
+
+procedure TDAEDataset.Open;
+begin
+  SetActive(TRUE); // Handles the exception there
+end;
+
+procedure TDAEDataset.Close;
+begin
+  SetActive(FALSE); // Handles the exception there
+end;
+
+procedure TDAEDataset.SetActive(Value: boolean);
+begin
+  DoSetActive(Value);
+end;
+
+function TDAEDataset.GetFields: TDAFieldCollection;
+begin
+  result := fFields;
+end;
+
+function TDAEDataset.DoGetActive: boolean;
+begin
+  result := FNativeDatabaseAccess.Active;
+end;
+
+function TDAEDataset.DoGetBOF: boolean;
+begin
+  result := FNativeDatabaseAccess.GetBOF;
+end;
+
+function TDAEDataset.DoGetEOF: boolean;
+begin
+  result := FNativeDatabaseAccess.GetEOF;
+end;
+
+function TDAEDataset.DoGetRecordCount: integer;
+begin
+  result := FNativeDatabaseAccess.GetRecordCount;
+end;
+
+function TDAEDataset.DoLocate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  result := FNativeDatabaseAccess.Locate(KeyFields, KeyValues, Options);
+end;
+
+procedure TDAEDataset.DoNext;
+begin
+  FNativeDatabaseAccess.Next;
+end;
+
+procedure TDAEDataset.DoPrepare(Value: boolean);
+begin
+  FNativeDatabaseAccess.Prepare(Value);
+end;
+
+procedure TDAEDataset.DoSetActive(Value: boolean);
+var
+  i: integer;
+  fld: IDANativeField;
+  startTick: Cardinal;
+  s: string;
+begin
+  if (Value = GetActive) then Exit;
+
+  // Opens the dataset
+  if Value then begin
+    // Combines the custom WHERE statement and modifies the inner SQL
+    if fChanged or (fWhere.Changed) then PrepareSQLStatement;
+
+    if Assigned(fConnection.fMacroProcessor) then begin
+      i := fConnection.fMacroProcessor.IndexOfName('Where');
+      s := GenerateDynamicWhereStatement;
+      if i = -1 then
+        fConnection.fMacroProcessor.AddVariable('Where').Value:=s
+      else
+        fConnection.fMacroProcessor.Variable[i].Value:=s;
+
+      SetDynamicWhereParams;
+      SetSQL(fConnection.fMacroProcessor.Eval(GetSQL));
+    end;
+
+
+    // Writes the parameter values
+    if (fParams.Count > 0) then SetParamValues(fParams) else ClearParams;
+
+    startTick := ROGetTickCount;
+    if Assigned(fOnBeforeOpen) then fOnBeforeOpen(Self);
+    // Opens the dataset
+    fAutoFields := (fFields.Count = 0);
+    try
+      FNativeDatabaseAccess.Active := True;
+      FixKnownIssues;
+    except
+      on E:Exception do begin
+        if Assigned(fOnOpenError) then fOnOpenError(Self, DoGetSQL, E);
+        raise;
+      end;
+    end;
+
+    if Assigned(fOnAfterOpen) then fOnAfterOpen(Self, DoGetSQL, ROGetTickCount-startTick);
+
+    GetParamValues(fParams);
+
+    RemoveDynamicWhereParams;
+
+    if fAutoFields and (fFields.Count = 0)then begin
+      for i := 0 to (FNativeDatabaseAccess.FieldCount - 1) do begin
+        fld := FNativeDatabaseAccess.GetFields(i);
+        with fFields.Add(fld.FieldName, intVCLTypeToDAType(fld.DataType,fld.Size,fld.DecimalPrecision,fld.DecimalScale), fld.Size) do begin
+          if DataType = datDecimal then begin
+            case fld.DataType of
+              ftFMTBcd: begin
+                DecimalPrecision:= fld.DecimalPrecision;
+                DecimalScale:= fld.DecimalScale;
+              end;
+              ftBCD: begin
+                DecimalPrecision:= fld.DecimalPrecision;
+                DecimalScale:= fld.DecimalScale;
+              end;
+            else
+              DataType := datFloat;
+            end;
+          end;
+          // Fix ZEOS issue
+          {$IFDEF DA_WideMemoSupport}
+          if (DataType = datWideString) and (Size = MaxInt div 2) then begin
+            DataType:= datWideMemo;
+            Size := 0;
+          end;
+          {$ENDIF}
+          Bind(fld);
+        end;
+      end;
+    end
+    else
+      fFields.Bind(Self);
+    SetLength(FNativeIndex,fFields.Count);
+    for I := 0 to FFields.Count - 1 do begin
+      if fFields[i].BindedNativeField <> nil then
+        FNativeIndex[i] := fFields[i].BindedNativeField.Index
+      else if fFields[i].BindedField <> nil then
+        FNativeIndex[i] := fFields[i].BindedField.Index
+      else
+        FNativeIndex[i] := -1;
+    end;
+  end
+  else begin
+    if fAutoFields then
+      fFields.Clear
+    else
+      fFields.Unbind;
+
+    FNativeDatabaseAccess.Active := False;
+    SetLength(FNativeIndex,0);
+  end;
+end;
+
+{$IFNDEF FPC}
+type
+  PLargeint = ^Largeint;
+  Largeint = Int64;
+{$ENDIF}
+
+function TDAEDataset.GetFieldValues(Index: integer): Variant;
+{$IFNDEF Drivers_CompatibilityMode}
+var
+  data: pointer;
+  Datasize: Cardinal;
+  s: Ansistring;
+{$ENDIF}
+begin
+  if GetFields[Index].ServerCalculated then begin
+    Result := Null;
+  end
+  else begin
+    Index := FNativeIndex[Index];
+    if Index = -1 then
+      Result:= null
+    else begin
+      {$IFDEF Drivers_CompatibilityMode}
+      Result := fNativeDatabaseAccess.GetNativeFieldValue(Index);
+      {$ELSE}
+      {$IFDEF FPC}
+      Data := nil;
+      Datasize := 0;
+      {$ENDIF}
+      if not fNativeDatabaseAccess.GetNativeFieldData(Index, Data, Datasize) then begin
+        Result:= Null;
+      end
+      else begin
+        case fNativeDatabaseAccess.GetFields(Index).DataType of
+          ftString, {$IFDEF DELPHI10UP}ftOraInterval, {$ENDIF}
+          ftFixedChar,
+          ftGuid:        Result := AnsiString(PAnsiChar(Data));
+          ftSmallint:    Result := PSmallint(Data)^;
+          ftInteger:     Result := PInteger(Data)^;
+          ftWord:        Result := PWord(Data)^;
+          ftBoolean:     Result := PWordBool(data)^;
+          ftFloat,
+          ftCurrency:    Result := PDouble(data)^;
+          ftBcd:         Result := PCurrency(data)^;
+          ftDate:        Result := PInteger(Data)^;
+          ftTime:        Result := PInteger(Data)^;
+          ftDateTime:    Result := VarFromDateTime(PDateTime(Data)^);
+          ftBytes,
+          ftVarBytes:    Result := POleVariant(Data)^;
+          ftAutoInc:     Result := PInteger(Data)^;
+          ftBlob..ftTypedBinary, ftOraBlob, ftOraClob{$IFDEF DELPHI10UP}, ftWideMemo{$ENDIF}: begin
+            SetString(s, PAnsiChar(Data), DataSize);
+            Result := s;
+          end;
+          ftCursor:      Result := Null;
+          {$IFDEF DA_FixedWideCharSupport}
+          ftFixedWideChar,
+          {$ENDIF}
+          ftWideString:  Result := UnicodeString(PUnicodeChar(Data));
+          ftLargeint:    Result := PLargeint(Data)^;
+          // objects types
+          ftADT, ftArray, ftReference, ftDataSet:
+                         Result := varNull;
+          ftVariant:     Result := PVariant(Data)^;
+          ftInterface:   Result := IUnknown(Data^);
+          ftIDispatch:   Result := IDispatch(Data^);
+          {$IFNDEF FPC}
+          {$IFDEF DELPHI10UP}ftOraTimeStamp,{$ENDIF}
+          ftTimeStamp:   Result := VarFromDateTime(SQLTimeStampToDateTime(PSQLTimeStamp(data)^));
+          {$ENDIF FPC}
+          ftFMTBcd:      Result := BCDToVariant(PBcd(Data)^);
+        end;
+      end;
+      {$ENDIF}
+    end;
+  end;
+end;
+
+function TDAEDataset.GetNames(Index: integer): string;
+begin
+  result := FNativeDatabaseAccess.GetFieldName(Index);
+end;
+
+procedure TDAEDataset.DisableControls;
+begin
+  FNativeDatabaseAccess.DisableControls;
+end;
+
+procedure TDAEDataset.EnableControls;
+begin
+  FNativeDatabaseAccess.EnableControls;
+end;
+
+function TDAEDataset.FieldByName(const aName: string): TDAField;
+begin
+  result := fFields.FieldByName(aName) as TDAField;
+end;
+
+procedure TDAEDataset.FreeBookmark(Bookmark: TBookmark);
+begin
+  FNativeDatabaseAccess.FreeBookmark(Bookmark);
+end;
+
+function TDAEDataset.GetBookMark: pointer;
+begin
+  result := FNativeDatabaseAccess.GetBookmark;
+end;
+
+procedure TDAEDataset.GotoBookmark(Bookmark: TBookmark);
+begin
+  FNativeDatabaseAccess.GotoBookmark(Bookmark);
+end;
+
+procedure TDAEDataset.Refresh;
+begin
+
+end;
+
+function TDAEDataset.GetIsEmpty: boolean;
+begin
+  result := FNativeDatabaseAccess.GetIsEmpty;
+end;
+
+function TDAEDataset.GetState: TDatasetState;
+begin
+  result := FNativeDatabaseAccess.GetState;
+end;
+
+function TDAEDataset.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  result := FNativeDatabaseAccess.Lookup(KeyFields, KeyValues, ResultFields);
+end;
+
+function TDAEDataset.GetLogicalName: string;
+begin
+  result := fLogicalName;
+end;
+
+function TDAEDataset.FindField(const aName: string): TDAField;
+begin
+  result := fFields.FindField(aName) as TDAField;
+end;
+
+procedure TDAEDataset.SetLogicalName(aName: string);
+begin
+  fLogicalName := aName
+end;
+
+function TDAEDataset.GetOnAfterOpen: TDAAfterOpenDatasetEvent;
+begin
+  result := fOnAfterOpen
+end;
+
+function TDAEDataset.GetOnBeforeOpen: TDABeforeOpenDatasetEvent;
+begin
+  result := fOnBeforeOpen
+end;
+
+procedure TDAEDataset.SetOnAfterOpen(
+  const Value: TDAAfterOpenDatasetEvent);
+begin
+  fOnAfterOpen := Value
+end;
+
+procedure TDAEDataset.SetOnBeforeOpen(
+  const Value: TDABeforeOpenDatasetEvent);
+begin
+  fOnBeforeOpen := Value
+end;
+
+function TDAEDataset.GetOnOpenError: TDAOpenDatasetErrorEvent;
+begin
+  result := fOnOpenError;
+end;
+
+procedure TDAEDataset.SetOnOpenError(
+  const Value: TDAOpenDatasetErrorEvent);
+begin
+  fOnOpenError := Value;
+end;
+
+function TDAEDataset.GetCurrentRecIdValue: integer;
+begin
+  result := -1;
+end;
+
+procedure TDAEDataset.SetCurrentRecIdValue(Value: integer);
+begin
+
+end;
+
+function TDAEDataset.GetRowRecIdValue: integer;
+begin
+  result := -1
+end;
+
+procedure TDAEDataset.DisableConstraints;
+begin
+  // do nothing
+end;
+
+procedure TDAEDataset.EnableConstraints;
+begin
+  // do nothing
+end;
+
+{
+procedure TDAEDataset.CreateFieldDefs;
+var
+  i: integer;
+  fld: TFieldDef;
+  dafld: TDAField;
+  lNeedtoCreateFieldDefs: Boolean;
+  lFMTBCDPresent: Boolean;
+begin
+  lNeedtoCreateFieldDefs:=fDataset.FieldDefs.Count=0;
+  lFMTBCDPresent:=False;
+  // Adds the data fields (non calculated) to the FieldDefs
+  for i := 0 to (fFields.Count - 1) do begin
+    dafld:=fFields[i];
+    if dafld.Calculated or dafld.Lookup then Continue; // Added as fields later
+    if lNeedtoCreateFieldDefs then begin
+      fld := fDataset.FieldDefs.AddFieldDef;
+      fld.Name := dafld.Name;
+      fld.DataType := DATypeToVCLType(dafld.DataType);
+    end
+    else begin
+      fld := TFieldDef(fDataset.FieldDefs.Find(dafld.Name));
+    end;
+
+    // (autoinc)
+    if (dafld.DataType=datLargeAutoInc) then fld.DataType := ftLargeint
+    else if (dafld.DataType=datAutoInc) then fld.DataType := ftInteger;
+
+    if (fld.DataType = ftString) or (fld.DataType = ftWideString) then fld.Size := dafld.Size;
+    if (fld.DataType = ftGuid) then fld.Size := 38;
+    if (fld.DataType = ftFMTBcd) then begin
+      fld.Size:=dafld.DecimalScale;
+      fld.Precision:=dafld.DecimalPrecision;
+      lFMTBCDPresent:= True;
+    end;
+  end;
+  if not lFMTBCDPresent then fDataset.FieldDefs.Clear;
+  // Creates the data fields
+  for i := 0 to (fDataset.FieldDefs.Count - 1) do
+    fDataset.FieldDefs[i].CreateField(fDataset).DataSet := fDataset;
+end;
+}
+function TDAEDataset.IsNeedToFixFMTBCDIssue: Boolean;
+begin
+  Result:= False;
+end;
+
+procedure TDAEDataset.FixFMTBCDIssue;
+{$IFDEF ftFMTBCD_Support}
+var
+  i: integer;
+  lNeedToFix: Boolean;
+  fld: TFieldDef;
+  dafld: TDAField;
+{$ENDIF}
+begin
+{$IFDEF ftFMTBCD_Support}
+// this only for DBX driver => DatasetCompatible
+  if IsTDatasetCompatible then begin
+    lNeedToFix:= False;
+    for i:=0 to fDataset.FieldCount-1 do
+      if (fDataset.Fields[i].DataType = ftFMTBcd) and
+         (TFMTBCDField(fDataset.Fields[i]).Precision=15) and
+         (TFMTBCDField(fDataset.Fields[i]).Size=4) then begin
+        lNeedToFix:=True;
+        Break;
+      end;
+    if not lNeedToFix then Exit;
+    FNativeDatabaseAccess.Active := False;
+    for i := 0 to (fDataset.FieldDefs.Count - 1) do begin
+      fld := fDataset.FieldDefs[i];
+      if (fld.DataType = ftFMTBcd) then begin
+        dafld:= fFields.FindField(fld.Name);
+         if (fld.Precision = 15 ) and (fld.Size=4) then begin
+          if (dafld <> nil) and (dafld.DataType = datDecimal) then begin
+            fld.Precision := dafld.DecimalPrecision;
+            fld.Size := dafld.DecimalScale;
+          end else begin
+            fld.Precision := 24;
+            fld.Size := 8;
+          end;
+        end;
+      end;
+    end;
+    FNativeDatabaseAccess.Active := True;
+  end;
+{$ENDIF}
+end;
+
+procedure TDAEDataset.FixKnownIssues;
+begin
+  if IsNeedToFixFMTBCDIssue then FixFMTBCDIssue;
+end;
+
+function TDAEDataset.ControlsDisabled: Boolean;
+begin
+  Result := FNativeDatabaseAccess.ControlsDisabled;
+end;
+
+function TDAEDataset.GetNativeFieldData(Index: Integer; var Data: pointer;
+  var DataSize: cardinal): Boolean;
+begin
+  if GetFields[Index].ServerCalculated then begin
+    Result := False;
+    Data := nil;
+    DataSize := 0;
+  end
+  else begin
+    Result := inherited GetNativeFieldData(FNativeIndex[Index], Data, DataSize);
+  end;
+end;
+
+{ TDAESQLCommand }
+
+constructor TDAESQLCommand.Create(aConnection: TDAEConnection; const aName: string = '');
+var
+  id: TGUID;
+begin
+  inherited Create;
+
+  fName := aName;
+  if (fName = '') then begin
+    CreateGUID(id);
+    fName := GUIDToString(id);
+  end;
+
+  fWhere := TDAWhere.Create(nil, FALSE);
+  fDynamicWhere:= nil;// aConnection.GetWhereBuilder;
+  fConnection := aConnection;
+  fconn := aConnection; // increasing Refcount
+  fParams := TDAParamCollection.Create(nil);
+  fDataset := CreateDataset(fConnection);
+  FNativeObject := CreateNativeObject(fConnection);
+  FNativeDatabaseAccess := CreateNativeDatabaseAccess;
+end;
+
+destructor TDAESQLCommand.Destroy;
+begin
+  fconn := nil; // decreasing Refcount
+  FNativeDatabaseAccess:=nil;
+  if FNativeObject <> fDataset then FreeAndNil(FNativeObject) else FNativeObject := nil;
+  FreeAndNil(fDataset);
+  FreeAndNil(fParams);
+  FreeAndNil(fWhere);
+  FreeAndNil(fDynamicWhere);
+  inherited;
+end;
+
+{$WARN SYMBOL_DEPRECATED OFF}
+function TDAESQLCommand.GetWhere: TDAWhere;
+begin
+  result := fWhere;
+end;
+{$WARN SYMBOL_DEPRECATED ON}
+
+function TDAESQLCommand.GetParams: TDAParamCollection;
+begin
+  result := fParams;
+end;
+
+function TDAESQLCommand.ParamByName(const aName: string): TDAParam;
+begin
+  result := fParams.ParamByName(aName)
+end;
+
+procedure TDAESQLCommand.RefreshParams;
+var
+  lParams: TParams;
+  i: integer;
+  par: TDAParam;
+begin
+  //dsparams := GetProviderSupport.PSGetParams;
+
+  lParams := TParams.Create;
+  try
+    Params_ParseSQL(lParams, fSQL, True, fConnection.GetQuoteChars);
+
+    fParams.Clear;
+    for i := 0 to (lParams.Count - 1) do begin
+      if fParams.FindParam(lParams[i].Name) <> nil then Continue;
+      par := fParams.Add;
+      par.Name := lParams[i].Name;
+      par.DataType := intVCLTypeToDAType(lParams[i].DataType,lParams[i].Size);
+      par.ParamType := TDAParamType(lParams[i].ParamType);
+      par.Size := lParams[i].Size;
+    end;
+  finally
+    lParams.Free;
+  end;
+end;
+
+procedure TDAESQLCommand.SetPrepared(Value: boolean);
+begin
+  if (fPrepared <> Value) then begin
+    fPrepared := Value;
+    if fPrepared then PrepareSQLStatement();
+  end;
+end;
+
+function TDAESQLCommand.GetPrepared: boolean;
+begin
+  result := fPrepared;
+end;
+
+procedure TDAESQLCommand.OnWhereChange(Sender: TObject);
+begin
+  Changed := true;
+  PrepareSQLStatement();
+end;
+
+function TDAESQLCommand.Execute: integer;
+var
+  startTick: cardinal;
+begin
+  //result := -1;
+  // Combines the custom WHERE statement and modifies the inner SQL
+  if fChanged then PrepareSQLStatement;
+
+  // Writes the parameter values
+  if (fParams.Count > 0) then SetParamValues(fParams) else ClearParams;
+
+  startTick := ROGetTickCount;
+  if Assigned(fOnBeforeExecute) then fOnBeforeExecute(Self);
+
+  try
+    result := DoExecute;
+  except
+    on E:Exception do begin
+      if Assigned(fOnExecuteError) then fOnExecuteError(Self, DoGetSQL, E);
+      raise;
+    end;
+  end;
+  GetParamValues(fParams);
+
+  if Assigned(fOnAfterExecute)
+    then fOnAfterExecute(Self, DoGetSQL, ROGetTickCount-startTick);
+end;
+
+procedure TDAESQLCommand.PrepareSQLStatement;
+var
+  temp, sql, wheretext: string;
+  orderbypos, wherepos: integer;
+  i: integer;
+  s: string;
+begin
+  // Commented out because done above now
+  //if not fChanged then Exit; // Avoids resetting it or repreparing
+
+  sql := fSQL;
+  try
+    fWhere.Changed := False;
+    if (fWhere.Clause = '') then Exit;
+    temp := UpperCase(sql);
+
+    // TODO: Not exactly the best way to do it. Might conflict with a field name that contains WHERE and might
+    // not work if the user writes "ORDER    BY"... We'll fix later with a tokenizer or a real parser of some sort
+    orderbypos := Pos('GROUP BY', temp);
+    if (orderbypos = 0)
+      then orderbypos := Pos('ORDER BY', temp);
+    wherepos := Pos('WHERE', temp);
+
+    if (wherepos > 0) then
+      wheretext := ' AND (' + fWhere.Clause + ') '
+    else
+      wheretext := ' WHERE ' + fWhere.Clause + ' ';
+
+    if (orderbypos > 0) then
+      Insert(wheretext, sql, orderbypos) // Adds it before the Order By
+    else
+      Insert(wheretext, sql, Length(sql) + 1); // Adds it at the end since there's no Order By
+
+  finally
+    // Sets the SQL of the wrapped dataset
+    if Assigned(fConnection.fMacroProcessor) then begin
+
+      i := fConnection.fMacroProcessor.IndexOfName('Where');
+      s := GenerateDynamicWhereStatement;
+      if i = -1 then
+        fConnection.fMacroProcessor.AddVariable('Where').Value:=s
+      else
+        fConnection.fMacroProcessor.Variable[i].Value:=s;
+      SetDynamicWhereParams;
+
+
+      sql := fConnection.fMacroProcessor.Eval(sql);
+    end;
+
+    DoSetSQL(sql);
+    DoPrepare(fPrepared);
+
+    Changed := false;
+  end;
+end;
+
+function TDAESQLCommand.GetSQL: string;
+begin
+  result := fSQL
+end;
+
+procedure TDAESQLCommand.SetSQL(const Value: string);
+begin
+  if Value <> fSQL then begin
+    fSQL := Value;
+    fChanged := true;
+    FNativeDatabaseAccess.ClearFieldDefs;
+    PrepareSQLStatement();
+  end;
+end;
+
+function TDAESQLCommand.GetDataset: TDataset;
+begin
+  result := fDataset;
+end;
+
+function TDAESQLCommand.GetName: string;
+begin
+  result := fName;
+end;
+
+function TDAESQLCommand.GetOnAfterExecute: TDAAfterExecuteCommandEvent;
+begin
+  result := fOnAfterExecute
+end;
+
+function TDAESQLCommand.GetOnBeforeExecute: TDABeforeExecuteCommandEvent;
+begin
+  result := fOnBeforeExecute
+end;
+
+procedure TDAESQLCommand.SetOnAfterExecute(
+  const Value: TDAAfterExecuteCommandEvent);
+begin
+  fOnAfterExecute := Value
+end;
+
+procedure TDAESQLCommand.SetOnBeforeExecute(
+  const Value: TDABeforeExecuteCommandEvent);
+begin
+  fOnBeforeExecute := Value
+end;
+
+function TDAESQLCommand.GetOnExecuteError: TDAExecuteCommandErrorEvent;
+begin
+  result := fOnExecuteError;
+end;
+
+procedure TDAESQLCommand.SetOnExecuteError(
+  const Value: TDAExecuteCommandErrorEvent);
+begin
+  fOnExecuteError := Value;
+end;
+
+function TDAESQLCommand.intVCLTypeToDAType(aFieldType: TFieldType; ASize, ADecimalPrecision, aDecimalScale: integer): TDADataType;
+begin
+  Result := VCLTypeToDAType(aFieldType);
+end;
+
+function TDAESQLCommand.GetDynamicWhere: TDAWhereBuilder;
+begin
+  if fDynamicWhere = nil then fDynamicWhere := Connection.GetWhereBuilder;
+  Result:=fDynamicWhere;
+end;
+
+procedure TDAESQLCommand.SetDynamicWhere(const Value: TDAWhereBuilder);
+begin
+  if Value <> nil then
+    GetDynamicWhere.Xml := Value.Xml
+  else if fDynamicWhere <> nil then       
+    FDynamicWhere.Clear;
+end;
+
+function TDAESQLCommand.GenerateDynamicWhereStatement: string;
+begin
+  if (fDynamicWhere <> nil) and not fDynamicWhere.IsEmpty then Result := fDynamicWhere.CreateWhereClause;
+  if Result = '' then Result:= ' (1=1)';
+end;
+
+function TDAESQLCommand.SQLContainsDynamicWhere: boolean;
+var
+  mac: IDAHasMacroProcessor;
+  lmp: TDASQLMacroProcessor;
+begin
+  FIsPresentDynWhereVariable:=False;
+  if Supports(fConnection, IDAHasMacroProcessor, mac) and (mac.GetMacroProcessor <> nil) then begin
+    lmp:=TDASQLMacroProcessor(mac.GetMacroProcessor.NewInstance).Create;
+    With lmp do try
+      OnUnknownIdentifier := UnknownIdentifier;
+      Eval(GetSQL);
+    finally
+      Free;
+    end;
+  end;
+  Result:= FIsPresentDynWhereVariable;
+end;
+
+function TDAESQLCommand.UnknownIdentifier(Sender: TObject; const Name,
+  OrgName: string; var Value: string): Boolean;
+begin
+  if SameText(OrgName,'WHERE') then
+    FIsPresentDynWhereVariable:=True;
+  Value := OrgName;
+  Result := True;
+end;
+
+procedure TDAESQLCommand.SetDynamicWhereParams;
+var
+  i: integer;
+  k: TDAParam;
+begin
+  if fDynamicWhere <> nil then
+    For i:=0 to fDynamicWhere.Params.Count-1 do begin
+      k:=Self.GetParams.FindParam(fDynamicWhere.Params[i].Name);
+      if k = nil then k:= Self.GetParams.Add;
+      k.AssignField(fDynamicWhere.Params[i]);
+    end;
+end;
+
+procedure TDAESQLCommand.RemoveDynamicWhereParams;
+var
+  i: integer;
+  k: TDAParam;
+begin
+  if fDynamicWhere <> nil then
+    For i:=0 to fDynamicWhere.Params.Count-1 do begin
+      k := Self.GetParams.FindParam(fDynamicWhere.Params[i].Name);
+      if k <> nil then Self.GetParams.Delete(k.Index);
+    end;
+end;
+
+procedure TDAESQLCommand.SetParamValuesStd(Params1: TDAParamCollection;
+  Params2: TParams);
+var
+  i: integer;
+  par: TDAParam;
+  outpar: TParam;
+  ft:     TFieldType;
+  lParIsEmpty: Boolean;
+begin
+  for i := 0 to (Params1.Count - 1) do begin
+    par := Params1[i];
+    outpar := FindParameter(Params2,par.Name);
+    ft := DATypeToVCLType(par.DataType);
+
+    if ft = ftAutoInc then ft := ftInteger;
+
+    case par.ParamType of
+      daptInput: outpar.ParamType := ptInput;
+      daptOutput: outpar.ParamType := ptOutput;
+      daptInputOutput: outpar.ParamType := ptInputOutput;
+      daptResult: outpar.ParamType := ptResult;
+    end;
+
+    lParIsEmpty := VarIsEmpty(par.Value) or VarIsNull(par.Value);
+
+    if par.DataType = datBlob then begin
+      outpar.DataType := ftBlob;
+      if not (par.ParamType in [daptOutput, daptResult]) then begin
+        if lParIsEmpty then
+           outpar.Value := Null
+        else
+           outpar.Value := VariantToAnsiString(par.Value);
+      end;
+    end
+    else begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then outpar.DataType := ft;
+      if not (par.ParamType in [daptOutput, daptResult]) then outpar.Value := par.Value;
+    end;
+
+    if lParIsEmpty and (par.DataType <> datUnknown) then begin
+      if (outpar.DataType <> ft) and (ft <> ftUnknown) then outpar.DataType := ft;
+    end;
+  end;
+end;
+
+procedure TDAESQLCommand.GetParamValuesStd(Params1: TDAParamCollection;
+  Params2: TParams);
+var
+  i: integer;
+  par1: TDAParam;
+begin
+  for i := 0 to Params1.Count-1 do begin
+    par1 := Params1[i];
+    if Par1.ParamType in [daptOutput, daptInputOutput, daptResult] then
+      Par1.Value := FindParameter(Params2,Par1.Name).Value;
+  end;
+end;
+
+function TDAESQLCommand.FindParameter(const AParams: TParams;
+  const AParamName: string): TParam;
+begin
+  Result := AParams.FindParam(AParamName);
+  if Result = nil then
+     Result := AParams.FindParam('@'+AParamName);
+  if Result = nil then begin
+    if AParams.Owner is TDataSet then
+      DatabaseErrorFmt(SParameterNotFound, [AParamName], TComponent(AParams.Owner))
+    else
+      DatabaseErrorFmt(SParameterNotFound, [AParamName])
+  end;
+end;
+
+procedure TDAESQLCommand.ClearParams;
+begin
+// nothing
+end;
+
+
+function TDAESQLCommand.GetNativeObject: TObject;
+begin
+  Result:= FNativeObject;
+end;
+
+function TDAESQLCommand.CreateNativeObject(
+  aConnection: TDAEConnection): TObject;
+begin
+  Result:= fDataset;
+end;
+
+function TDAESQLCommand.CreateNativeDatabaseAccess: IDANativeDatabaseAccess;
+begin
+  Result := TDANativeDatabaseAccess_Dataset.Create(GetDataset);
+end;
+
+function TDAESQLCommand.NativeFieldCount: Integer;
+begin
+  Result := FNativeDatabaseAccess.FieldCount;
+end;
+
+function TDAESQLCommand.NativeFindField(const FieldName: string): IDANativeField;
+begin
+  Result := FNativeDatabaseAccess.FindField(FieldName);
+end;
+
+function TDAESQLCommand.GetNativeFields(Index: integer): IDANativeField;
+begin
+  Result := FNativeDatabaseAccess.GetFields(Index);
+end;
+
+function TDAESQLCommand.IsTDatasetCompatible: Boolean;
+begin
+  Result :=FNativeDatabaseAccess.IsTDatasetCompatible;
+end;
+
+function TDAESQLCommand.GetNativeFieldData(Index: Integer; var Data: pointer; var DataSize: cardinal):Boolean;
+begin
+  Result := FNativeDatabaseAccess.GetNativeFieldData(Index, Data, DataSize);
+end;
+
+function TDAESQLCommand.CanFreeNativeFieldData: Boolean;
+begin
+  Result := FNativeDatabaseAccess.CanFreeNativeFieldData;
+end;
+
+{ TDAEStoredProcedure }
+
+function TDAEStoredProcedure.CreateNativeDatabaseAccess: IDANativeDatabaseAccess;
+begin
+  Result := nil;
+end;
+
+procedure TDAEStoredProcedure.DoPrepare(Value: boolean);
+begin
+  // Stored procs don't need to be prepared
+end;
+
+procedure TDAEStoredProcedure.PrepareSQLStatement;
+begin
+  // Stored procs don't need to be prepared
+end;
+
+procedure TDAEStoredProcedure.RefreshParams;
+begin
+  raise Exception.Create('RefreshParams must be implemented in descendant.');
+end;
+
+procedure TDAEStoredProcedure.RefreshParamsStd(AParams: TParams);
+var
+  par: TDAParam;
+  i: integer;
+  lname:string;
+begin
+  fParams.Clear;
+  for i := 0 to (AParams.Count - 1) do begin
+    if (AParams[i].DataType = ftInterface) and (AParams[I].ParamType in [ptOutput, ptInputOutput, ptResult]) then Continue;
+    par := fParams.Add;
+    lName :=AParams[i].Name;
+    if Pos('@', lname) = 1 then lName:=copy(lName,2, Length(lName)-1);
+    par.Name := lName;
+    par.DataType := intVCLTypeToDAType(AParams[i].DataType,AParams[i].Size);
+    par.ParamType := TDAParamType(AParams[i].ParamType);
+    par.Size := AParams[i].Size;
+  end;
+end;
+
+procedure TDAEStoredProcedure.SetSQL(const Value: string);
+begin
+  // nothing:  it's removing usage of IDANativeDatabaseAccess
+end;
+
+{ TDASQLMacroProcessor }
+
+constructor TDASQLMacroProcessor.Create(const aDateFormat, aDateTimeFormat: string;
+  aDoubleQuoteStrings: boolean;
+  const aStoredProcParamsPrefix: string = '');
+begin
+  Create;
+  fDateFormat := aDateFormat;
+  fDateTimeFormat := aDateTimeFormat;
+  fDoubleQuoteStrings := aDoubleQuoteStrings;
+  fStoredProcParamPrefix := aStoredProcParamsPrefix;
+  RegisterMacros;
+end;
+
+function TDASQLMacroProcessor.FormatDate(Sender: TObject;
+  const Parameters: array of string): string;
+var
+  dte: TDateTime;
+begin
+  dte := StrToDate(StringReplace(Parameters[0], '''', '', [rfReplaceAll]));
+
+  if fDoubleQuoteStrings then
+    result := '"' + SysUtils.FormatDateTime(fDateFormat, dte) + '"'
+  else
+    result := '''' + SysUtils.FormatDateTime(fDateFormat, dte) + '''';
+end;
+
+function TDASQLMacroProcessor.FormatDateTime(Sender: TObject;
+  const Parameters: array of string): string;
+var
+  dte: TDateTime;
+begin
+  dte := StrToDateTime(StringReplace(Parameters[0], '''', '', [rfReplaceAll]));
+
+  if fDoubleQuoteStrings then
+    result := '"' + SysUtils.FormatDateTime(fDateTimeFormat, dte) + '"'
+  else
+    result := '''' + SysUtils.FormatDateTime(fDateTimeFormat, dte) + '''';
+end;
+
+procedure TDASQLMacroProcessor.RegisterMacros;
+begin
+  RegisterProc('Date', Date, 0);
+  RegisterProc('DateTime', DateTime, 0);
+  RegisterProc('AddTime', AddTime, 3);
+  RegisterProc('FormatDateTime', FormatDateTime, 1);
+  RegisterProc('FormatDate', FormatDate, 1);
+  RegisterProc('Length', Length, 1);
+  RegisterProc('LowerCase', LowerCase, 1);
+  RegisterProc('UpperCase', UpperCase, 1);
+  RegisterProc('TrimLeft', TrimLeft, 1);
+  RegisterProc('TrimRight', TrimRight, 1);
+  RegisterProc('Copy', Copy, 3);
+  RegisterProc('NoLockHint', NoLock, 0);
+end;
+
+constructor TDASQLMacroProcessor.Create;
+begin
+  inherited Create;
+  OnUnknownIdentifier := MyUnknownIdentifier;
+end;
+
+function TDASQLMacroProcessor.Date(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Self.DateTime(Sender, Parameters);
+end;
+
+function TDASQLMacroProcessor.MyUnknownIdentifier(Sender: TObject;
+  const Name, OrgName: string; var Value: string): Boolean;
+begin
+  Value := OrgName;
+  Result := True;
+end;
+
+{ TDAConnectionWrapper }
+
+procedure TDAConnectionWrapper.DoConnect;
+begin
+  SetConnected(TRUE);
+end;
+
+procedure TDAConnectionWrapper.DoDisconnect;
+begin
+  SetConnected(FALSE);
+end;
+
+{$IFDEF MSWINDOWS}
+{ TDAEngineBaseObject }
+
+function TDAEngineBaseObject.InterfaceSupportsErrorInfo(const iid: TGUID): HRESULT;
+begin
+  if GetInterfaceEntry(iid) <> nil then
+    Result := S_OK
+  else
+    Result := S_FALSE;
+end;
+
+procedure TDAEngineBaseObject.OnException(const ServerClass, ExceptionClass, ErrorMessage: WideString;
+                                          ExceptAddr: Integer; const ErrorIID, ProgID: WideString;
+                                          var Handled: Integer; var Result: HRESULT);
+begin
+
+end;
+
+const
+  DA_ERROR_ID : TGUID = '{E479A438-2640-41D2-9DC6-1560C1D08B79}';
+
+function StringToWidestring(const aString: string): WideString;
+var
+  I: Integer;
+begin
+  SetLength(Result, Length(aString));
+  for i := 1 to Length(aString)-1 do
+    Result[i] := WideChar(aString[I]);
+end;
+
+function DAHandleSafeCallException(aObject:TObject; ExceptObject: TObject; ExceptAddr: Pointer): HResult;
+var
+  lClassName: string;
+  E: TObject;
+  CreateError: ICreateErrorInfo;
+  ErrorInfo: IErrorInfo;
+begin
+  {$IFDEF FPC}
+  if ExceptObject <> nil then Result := E_UNEXPECTED else // remove warnings
+  {$ENDIF}
+  Result := E_UNEXPECTED;
+  E := ExceptObject;
+  if Succeeded(CreateErrorInfo(CreateError)) then begin
+    CreateError.SetGUID(DA_ERROR_ID);
+    lClassName := aObject.ClassName;
+    if MainInstance <> HInstance then
+      lClassname := Format('%s in %s',[lClassName,ExtractFileName({$IFDEF FPC}ParamStr(0){$ELSE}GetModuleName(hInstance){$ENDIF})]);
+    CreateError.SetSource(PWideChar(StringToWidestring(E.ClassName+': '+lClassName)));
+    if E is Exception then begin
+      CreateError.SetDescription(PWideChar(WideString(Exception(E).Message)));
+      CreateError.SetHelpContext(Exception(E).HelpContext);
+      if (E is EOleSysError) and (EOleSysError(E).ErrorCode < 0) then
+        Result := EOleSysError(E).ErrorCode;
+    end;
+    if CreateError.QueryInterface(IErrorInfo, ErrorInfo) = S_OK then
+      SetErrorInfo(0, ErrorInfo);
+  end;
+end;
+
+function TDAEngineBaseObject.SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult;
+begin
+  Result := DAHandleSafeCallException(self, ExceptObject, ExceptAddr);
+end;
+
+procedure DASafeCallError(ErrorCode: Integer; ErrorAddr: Pointer);
+var
+  lExceptionClass: ExceptClass;
+  p: Integer;
+  lSource: WideString;
+  ErrorInfo: IErrorInfo;
+  lDescription: WideString;
+  lGuid: TGUID;
+begin
+  if GetErrorInfo(0, ErrorInfo) = S_OK then begin
+    ErrorInfo.GetDescription(lDescription);
+    ErrorInfo.GetGUID(lGuid);
+    if IsEqualGUID(lGuid,DA_ERROR_ID) then begin
+      ErrorInfo.GetSource(lSource);
+      p := Pos(':', lSource);
+      if p > 0 then begin
+        lExceptionClass := GetExceptionClass(copy(lSource,1,p-1));
+        if Assigned(lExceptionClass) then
+          raise lExceptionClass.Create(lDescription);
+      end;
+    end;
+    raise Exception.Create(lDescription) at ErrorAddr;
+  end
+  else begin
+    raise Exception.Create('A "safecall" error occured, but the source object did not provide the proper error information. Sorry we cannot be more helpful at this time.') at ErrorAddr;
+  end;
+end;
+{$ENDIF MSWINDOWS}
+
+{ TDANativeDatabaseAccess_Dataset }
+
+function TDANativeDatabaseAccess_Dataset.CanFreeNativeFieldData: Boolean;
+begin
+  Result := True;
+end;
+
+procedure TDANativeDatabaseAccess_Dataset.ClearFieldDefs;
+begin
+  FDataset.FieldDefs.Clear;
+end;
+
+function TDANativeDatabaseAccess_Dataset.ControlsDisabled: Boolean;
+begin
+  Result := FDataset.ControlsDisabled;
+end;
+
+constructor TDANativeDatabaseAccess_Dataset.Create(ADataset: TDataSet);
+begin
+  inherited Create;
+  if ADataset = nil then DatabaseError('A dataset must be specified.');
+  FDataset := ADataset;
+  FList := TInterfaceList.Create;
+end;
+
+destructor TDANativeDatabaseAccess_Dataset.Destroy;
+begin
+  FList.Free;
+  inherited;
+end;
+
+procedure TDANativeDatabaseAccess_Dataset.DisableControls;
+begin
+  FDataset.DisableControls;
+end;
+
+procedure TDANativeDatabaseAccess_Dataset.EnableControls;
+begin
+  FDataset.EnableControls;
+end;
+
+function TDANativeDatabaseAccess_Dataset.FieldCount: Integer;
+begin
+  Result := FDataset.FieldCount;
+end;
+
+function TDANativeDatabaseAccess_Dataset.FindField(
+  const FieldName: string): IDANativeField;
+begin
+  Result := FList[FDataset.FindField(FieldName).Index] as IDANativeField;
+end;
+
+procedure TDANativeDatabaseAccess_Dataset.FreeBookmark(
+  Bookmark: TBookmark);
+begin
+  FDataset.FreeBookmark(Bookmark);
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetActive: Boolean;
+begin
+  Result := FDataset.Active;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetBOF: Boolean;
+begin
+  Result := FDataset.Bof;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetBookMark: pointer;
+begin
+  Result := FDataset.GetBookmark;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetEOF: Boolean;
+begin
+  Result := FDataset.Eof;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetFieldName(
+  Index: Integer): string;
+begin
+  result := fDataset.Fields[Index].FieldName;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetFields(
+  Index: integer): IDANativeField;
+begin
+  Result := FList[Index] as IDANativeField;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetIsEmpty: boolean;
+begin
+  result := fDataset.IsEmpty;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetNativeFieldData(Index: Integer;
+  var Data:Pointer; var DataSize: cardinal): Boolean;
+var
+  str: TStream;
+  fld: TField;
+  {$IFNDEF DELPHI10UP}
+  temp: pointer;
+  {$ENDIF DELPHI10UP}
+begin
+  Data := nil;
+  DataSize := 0;
+  fld:= FDataset.Fields[Index];
+  try
+    if fld.IsBlob then begin
+      Str:= FDataset.CreateBlobStream(fld, bmRead);
+      try
+        DataSize := str.Size;
+        GetMem(Data, DataSize);
+        str.Read(Data^,Datasize);
+      finally
+        Str.Free;
+      end;
+      Result := True;
+    end
+    else if fld.DataType in [ftADT, ftArray, ftReference, ftDataSet] then begin
+      // not supported yet
+      Result := False;
+    end
+    else begin
+      DataSize := fld.DataSize;
+      GetMem(Data, DataSize);
+      {$IFNDEF DELPHI10UP}
+      if fld.DataType = ftWideString then FillChar(Data^,DataSize,0);
+      {$ENDIF DELPHI10UP}
+      Result := FDataset.GetFieldData(fld, Data, False);
+      case fld.DataType of
+        ftString,ftFixedChar: DataSize := StrLen(PAnsiChar(Data));
+        {$IFNDEF DELPHI10UP}
+        ftWideString: begin
+          DataSize := Length(PWideString(Data)^);
+          GetMem(temp, (DataSize+1)*SizeOf(WideChar));
+          Move(PWideChar(Data^)^, PWideChar(temp)^, datasize * SizeOf(WideChar));
+          PWideChar(temp)[datasize] := #0;
+          FreeMem(Data);
+          data := temp;
+          datasize := DataSize*SizeOf(WideChar);
+        end;
+        {$ENDIF DELPHI10UP}
+      end;
+    end;
+  except
+    raise;
+  end;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetNativeFieldValue(
+  Index: Integer): Variant;
+var
+  fld: TField;
+begin
+  fld := FDataset.Fields[Index];
+  if fld.IsNull then
+    Result := Null
+  else
+    case fld.DataType of
+      ftBcd:         Result := fld.AsCurrency;
+      {$IFNDEF FPC}
+      ftFMTBcd:      Result := DecimalToString(BCDToDecimal(fld.AsBCD),DecimalSeparator);
+      ftWideString:  Result := TWideStringField(fld).Value;
+      {$IFDEF DELPHI10UP}ftOraTimeStamp,{$ENDIF}
+      ftTimeStamp:   Result := VarFromDateTime(fld.AsDateTime);
+      {$ENDIF FPC}
+      {$IFDEF DELPHI10UP}
+      ftWideMemo:    result := TWideMemoField(fld).Value;
+      {$ENDIF DELPHI10UP}
+    else
+      Result := fld.Value;
+    end;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetRecordCount: Integer;
+begin
+  Result := FDataset.RecordCount;
+end;
+
+function TDANativeDatabaseAccess_Dataset.GetState: TDatasetState;
+begin
+  Result := FDataset.State;
+end;
+
+procedure TDANativeDatabaseAccess_Dataset.GotoBookmark(
+  Bookmark: TBookmark);
+begin
+  FDataset.GotoBookmark(Bookmark);
+end;
+
+function TDANativeDatabaseAccess_Dataset.IsTDatasetCompatible: Boolean;
+begin
+  Result := True;
+end;
+
+function TDANativeDatabaseAccess_Dataset.Locate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  Result := FDataset.Locate(KeyFields, KeyValues, Options);
+end;
+
+function TDANativeDatabaseAccess_Dataset.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  Result := FDataset.Lookup(KeyFields, KeyValues, ResultFields);
+end;
+
+procedure TDANativeDatabaseAccess_Dataset.Next;
+begin
+  FDataset.Next;
+end;
+
+procedure TDANativeDatabaseAccess_Dataset.Prepare(const AValue: Boolean);
+begin
+  SetPropValue(fDataset, 'Prepared', aValue); // Works with ADO and IBX for now
+end;
+
+procedure TDANativeDatabaseAccess_Dataset.SetActive(const aValue: Boolean);
+var
+  i: integer;
+begin
+  fList.Clear;
+  FDataset.Active := aValue;
+  if FDataset.Active then
+    for i:=0 to FDataset.FieldCount-1 do
+      fList.Add(TDANativeField_Dataset.Create(FDataset.Fields[i]));
+end;
+
+{ TDANativeField_Dataset }
+
+constructor TDANativeField_Dataset.Create(AField: TField);
+begin
+  Inherited Create();
+  FField:= AField;
+end;
+
+function TDANativeField_Dataset.GetDataType: TFieldType;
+begin
+  Result := fField.DataType;
+end;
+
+function TDANativeField_Dataset.GetDecimalPrecision: Integer;
+begin
+{$IFDEF ftFMTBCD_Support}
+  if (fField is TFMTBCDField) then
+    Result := TFMTBCDField(fField).Precision
+  else
+{$ENDIF}
+  if (fField is TBCDField) then
+    Result := TBCDField(fField).Precision
+  else
+    Result := 0;
+end;
+
+function TDANativeField_Dataset.GetDecimalScale: Integer;
+begin
+{$IFDEF ftFMTBCD_Support}
+  if (fField is TFMTBCDField) then
+    Result := TFMTBCDField(fField).Size
+  else
+{$ENDIF FPC}
+  if (fField is TBCDField) then
+    Result := TBCDField(fField).Size
+  else
+    Result := 0;
+end;
+
+function TDANativeField_Dataset.GetFieldIndex: integer;
+begin
+  Result := fField.Index;
+end;
+
+function TDANativeField_Dataset.GetFieldName: string;
+begin
+  Result := fField.FieldName;
+end;
+
+function TDANativeField_Dataset.GetNativeObject: TObject;
+begin
+  Result := FField;
+end;
+
+function TDANativeField_Dataset.GetSize: integer;
+begin
+  Result := fField.Size;
+end;
+
+function TDANativeField_Dataset.GetValue: Variant;
+begin
+  Result:= fField.Value;
+end;
+
+function TDANativeField_Dataset.IsNull: Boolean;
+begin
+  Result := fField.IsNull; 
+end;
+
+function TDANativeField_Dataset.isTFieldCompatible: Boolean;
+begin
+  Result := True;
+end;
+
+procedure TDANativeField_Dataset.SetDataType(Value: TFieldType);
+begin
+  if fField is TBlobField then
+    TBlobField(fField).BlobType := Value;
+end;
+
+procedure TDANativeField_Dataset.SetDecimalPrecision(Value: integer);
+begin
+{$IFDEF ftFMTBCD_Support}
+  if (fField is TFMTBCDField) then begin
+    if TFMTBCDField(fField).Precision <> Value then
+      TFMTBCDField(fField).Precision := Value
+  end
+  else
+{$ENDIF FPC}
+  if (fField is TBCDField) then begin
+    if TBCDField(fField).Precision <> Value then
+       TBCDField(fField).Precision := Value;
+  end;
+end;
+
+procedure TDANativeField_Dataset.SetDecimalScale(Value: integer);
+begin
+{$IFDEF ftFMTBCD_Support}
+  if (fField is TFMTBCDField) then begin
+    if TFMTBCDField(fField).Size <> Value then
+       TFMTBCDField(fField).Size := Value
+  end
+  else
+{$ENDIF FPC}
+  if (fField is TBCDField) then begin
+    if TBCDField(fField).Size <> Value then
+       TBCDField(fField).Size := Value;
+  end;
+end;
+
+
+function TestIdentifier(const iIdentifier: string; const ReservedWords: array of string): boolean;
+var
+  L,H,I, r: Integer;
+  lIdent                      : string;
+begin
+  Result := False;
+  lIdent := UpperCase(iIdentifier);
+  l := 0;
+  h := Length(ReservedWords) -1;
+  while l <= h do begin
+    i := (L + H) shr 1;
+    r := CompareStr(lIdent, ReservedWords[i]);
+    if r < 0 then h := i - 1 else
+    if r > 0 then l := i + 1 else begin
+      Result := true;
+      Exit;
+    end;
+  end;
+end;
+
+{$IFDEF MSWINDOWS}
+initialization
+  SafeCallErrorProc := @DASafeCallError;
+  RegisterExceptionClass(EAbort);
+finalization
+  UnregisterExceptionClass(EAbort);
+  SafeCallErrorProc := nil;
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAExceptions.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAExceptions.pas
new file mode 100644
index 0000000..2484088
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAExceptions.pas	
@@ -0,0 +1,34 @@
+unit uDAExceptions;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  uROClasses;
+
+type
+  EDADatasetNotAccessible = class(EROException);
+
+implementation
+
+uses
+  uROCLient;
+
+initialization
+  RegisterExceptionClass(EDADatasetNotAccessible);
+finalization
+  UnregisterExceptionClass(EDADatasetNotAccessible);
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAExpressionEvaluator.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAExpressionEvaluator.pas
new file mode 100644
index 0000000..33fa8e2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAExpressionEvaluator.pas	
@@ -0,0 +1,705 @@
+unit uDAExpressionEvaluator;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+uses
+  {$IFDEF MSWINDOWS} Windows, {$ENDIF}
+  SysUtils, Classes, uDAMacros;
+
+type
+  EDAEvaluationException = class(Exception);
+  TDAExpressionEvaluator = class;
+  TDAEEGetValue = procedure (Sender: TDAExpressionEvaluator; const aIdentifier: string; out aValue: Variant) of object;
+  TDAEEFunctionCall = procedure (Sender: TDAExpressionEvaluator; const aIdentifier: string; const Args: array of Variant; out aValue: Variant) of object;
+  TDAEEFunction = class(TObject)
+  private
+    fName: string;
+    fOnCall: TDAEEFunctionCall;
+    fNameHash: Integer;
+    procedure SetName(const Value: string);
+  public
+    property Name: string read fName write SetName;
+    property NameHash: Integer read fNameHash;
+    property OnCall: TDAEEFunctionCall read fOnCall write fOnCall;
+  end;
+
+  TDAEEFunctionList = class(TObject)
+  private
+    fItems: TList;
+    function GetCount: Integer;
+    function GetItem(i: Integer): TDAEEFunction;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    property Count: Integer read GetCount;
+    property Items[I: Integer]: TDAEEFunction read GetItem; default;
+
+    function Add(const aName: string): TDAEEFunction;
+    procedure Delete(I: Integer);
+    procedure Clear;
+  end;
+
+  TDAExpressionEvaluator = class(TObject)
+  private
+    fOnUnknownFunctionCall: TDAEEFunctionCall;
+    fOnGetValue: TDAEEGetValue;
+    fFunctionList: TDAEEFunctionList;
+    fParser: TROPascalParser;
+    FUseTrueFalseinVariableName: boolean;
+    FUseWildcardsInEqual: boolean;
+    FStringCaseInsensitive: Boolean;
+    function EvaluateProcCall(const aIdentifier: string; const Args: Variant): Variant;
+    function EvaluateValue(const aIdentifier: string): Variant;
+
+    function Op_In(const V1, V2: Variant): Variant;
+    function Op_Like(const V1, V2: Variant): Variant;
+    function ParseBooleanExpression: Variant;
+    function ParseComparisonExpression: Variant;
+    function ParseFactor: Variant;
+    function ParseSimpleExpression: Variant;
+    function ParseTerm: Variant;
+    function CompareValues(const V1, V2: Variant): boolean;
+    function IsStringType(const V: Variant): Boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    property OnGetValue: TDAEEGetValue read fOnGetValue write fOnGetValue;
+    property OnUnknownFunctionCall: TDAEEFunctionCall read fOnUnknownFunctionCall write fOnUnknownFunctionCall;
+    property FunctionList: TDAEEFunctionList read fFunctionList;
+
+    function Evaluate(const aString: string): Variant;
+    property UseTrueFalseinVariableName: boolean read FUseTrueFalseinVariableName write FUseTrueFalseinVariableName;
+    property UseWildcardsInEqual: boolean read FUseWildcardsInEqual write FUseWildcardsInEqual;
+    property StringCaseInsensitive: Boolean read FStringCaseInsensitive write FStringCaseInsensitive;
+  end;
+
+  TDAStdExpressionEvaluator = class(TDAExpressionEvaluator)
+  private
+     procedure Convert(Sender: TDAExpressionEvaluator; const aIdentifier: string; const Args: array of Variant; out aValue: Variant);
+     procedure Len(Sender: TDAExpressionEvaluator; const aIdentifier: string; const Args: array of Variant; out aValue: Variant);
+     procedure IsNull(Sender: TDAExpressionEvaluator; const aIdentifier: string; const Args: array of Variant; out aValue: Variant);
+     procedure IIF(Sender: TDAExpressionEvaluator; const aIdentifier: string; const Args: array of Variant; out aValue: Variant);
+     procedure Trim(Sender: TDAExpressionEvaluator; const aIdentifier: string; const Args: array of Variant; out aValue: Variant);
+     procedure Substring(Sender: TDAExpressionEvaluator; const aIdentifier: string; const Args: array of Variant; out aValue: Variant);
+  public
+    constructor Create;
+  end;
+implementation
+
+uses Variants, uROClasses;
+
+{ TDAExpressionEvaluator }
+
+constructor TDAExpressionEvaluator.Create;
+begin
+  inherited Create;
+  fFunctionList := TDAEEFunctionList.Create;
+  FUseWildcardsInEqual := False;
+  FUseTrueFalseinVariableName := False;
+  FStringCaseInsensitive := False;
+end;
+
+destructor TDAExpressionEvaluator.Destroy;
+begin
+  fFunctionList.Free;
+  inherited Destroy;
+end;
+
+function TDAExpressionEvaluator.Evaluate(const aString: string): Variant;
+begin
+  fParser := TROPascalParser.Create;
+  fParser.OpenBlockEscape := true;
+  try
+    fParser.SetText(aString);
+    Result := ParseBooleanExpression;
+
+    if fParser.CurrtokenId <> CSTI_EOF then
+      raise EDAEvaluationException.Create('End of expression expected');
+  finally
+    fParser.Free;
+  end;
+end;
+
+function TDAExpressionEvaluator.EvaluateProcCall(const aIdentifier: string;
+  const Args: Variant): Variant;
+var
+  s: string;
+  h, i: Integer;
+  lFunction: TDAEEFunction;
+  lRealArgs: array of Variant;
+begin
+  if not VarIsArray(Args) then begin
+    SetLength(lRealArgs, 1);
+    lRealArgs[0] := args;
+  end else begin
+    SetLength(lRealArgs, VarArrayHighBound(Args, 1)+1);
+    for i := 0 to Length(lRealArgs) -1 do begin
+      lRealArgs[i] := Args[i];
+    end;
+  end;
+  s := FastUppercase(aIdentifier);
+  h := MakeHash(s);
+  for i := 0 to fFunctionList.Count -1 do begin
+    lFunction := fFunctionList[i];
+    if (lFunction.NameHash = h) and (lFunction.Name = s) and (assigned(lFunction.OnCall)) then begin
+      lFunction.OnCall(self, aIdentifier, lRealArgs, Result);
+      exit;
+    end;
+  end;
+  if assigned(fOnUnknownFunctionCall) then
+    fOnUnknownFunctionCall(Self, aIdentifier, Args, Result)
+  else
+    raise EDAEvaluationException('Unknown function: '+aIdentifier);
+end;
+
+function TDAExpressionEvaluator.EvaluateValue(const aIdentifier: string): Variant;
+begin
+  if FUseTrueFalseinVariableName then begin
+    if assigned(fOnGetValue) then
+      fOnGetValue(Self, aIdentifier, Result)
+    else
+      raise EDAEvaluationException('Unknown identifier: '+aIdentifier);
+  end
+  else begin
+    if SameText(aIdentifier,'TRUE') then
+      Result:= True
+    else if SameText(aIdentifier,'FALSE') then
+      Result:= False
+    else if assigned(fOnGetValue) then
+      fOnGetValue(Self, aIdentifier, Result)
+    else
+      raise EDAEvaluationException('Unknown identifier: '+aIdentifier);
+  end;
+end;
+
+function TDAExpressionEvaluator.ParseComparisonExpression: Variant;
+
+  function _IsEqual(v1, v2: variant): boolean;
+  var
+    p1, p2: boolean;
+    w1,w2: UnicodeString;
+  begin
+    if FUseWildcardsInEqual and IsStringType(V1) and IsStringType(V2) then begin
+      {$IFDEF UNICODE}
+      w1 := VarToStr(V1);
+      {$ELSE}
+      w1 := VarToWideStr(V1);
+      {$ENDIF}
+      p1 := (Length(w1) > 1) and (pos('*', w1) > 0);
+      {$IFDEF UNICODE}
+      w2 := VarToStr(V2);
+      {$ELSE}
+      w2 := VarToWideStr(V2);
+      {$ENDIF}
+      p2 := (Length(w2) > 1) and (pos('*', w2) > 0);
+      if (p1 and not p2) then
+        Result := Op_Like(v2, v1)
+      else if (p2 and not p1) then
+        Result := Op_Like(v1, v2)
+      else
+        Result := CompareValues(v1, v2);
+    end
+    else
+      Result := CompareValues(v1, v2);
+  end;
+
+var
+  V1, V2: Variant;
+  lTok: TROPasToken;
+begin
+  V1 := ParseSimpleExpression;
+  lTok := fParser.CurrTokenId;
+  while (lTok = CSTII_In) or
+    (lTok = CSTII_Like) or
+    (lTok = CSTI_Greater ) or
+    (lTok = CSTI_GreaterEqual) or
+    (lTok = CSTI_Smaller ) or
+    (lTok = CSTI_SmallerEqual) or
+    (lTok = CSTI_Equal) or
+    (lTok = CSTI_NotEqual) or
+    (lTok = CSTII_IsNull) or
+    (lTok = CSTII_IsNotNull) do
+  begin
+    FParser.Next;
+    if (lTok = CSTII_IsNull) or (lTok = CSTII_IsNotNull) then begin
+      case lTok of
+        CSTII_IsNull: v1 := VarIsNull(v1);
+        CSTII_IsNotNull: v1 := not VarIsNull(v1);
+      end;
+    end
+    else begin
+      V2 := ParseSimpleExpression;
+
+      case lTok of
+        CSTII_In: V1 := Op_In(v1, v2);
+        CSTII_Like: V1 := Op_Like(v1, v2);
+        CSTI_Greater: v1 := v1 > v2;
+        CSTI_GreaterEqual: v1 := (v1 > v2) or CompareValues(v1, v2);
+        CSTI_Smaller: v1 := v1 < v2;
+        CSTI_SmallerEqual: v1 := (v1 < v2) or CompareValues(v1, v2);
+        CSTI_Equal: v1:= _isEqual(v1, v2);
+        //CSTI_notEqual:
+      else
+        v1:= not _isEqual(v1, v2);
+      end;
+    end;
+    lTok := fParser.CurrTokenId;
+  end;
+  Result := V1;
+end;
+
+function TDAExpressionEvaluator.ParseSimpleExpression: Variant;
+var
+  V1, V2: Variant;
+  lTok: TROPasToken;
+begin
+  V1 := ParseTerm;
+  lTok := fParser.CurrTokenId;
+  while (lTok = CSTI_Plus) or
+    (lTok = CSTI_Minus) do
+  begin
+    FParser.Next;
+    V2 := ParseTerm;
+
+    case lTok of
+      CSTI_Minus: V1 := V1 - V2;
+      else v1 := v1 + v2; // CSTI_plus
+    end;
+    lTok := fParser.CurrTokenId;
+  end;
+  Result := V1;
+end;
+
+function ParseDate(s: string): TDateTime;
+begin
+  s := copy(S,2,Length(s)-2);
+  if length(s) = 10 then begin
+    if (s[3] <> '/') or (s[6] <> '/') then raise EDAEvaluationException.Create('Invalid date format');
+    Result := EncodeDate(StrToInt(copy(s, 7, 4)), StrToInt(copy(S, 1, 2)), StrToInt(copy(s, 4, 2)));
+  end else
+    raise EDAEvaluationException.Create('Invalid date format');
+end;
+
+function TDAExpressionEvaluator.ParseFactor: Variant;
+var
+  tmp: TList;
+  pv: PVariant;
+  i: Integer;
+  e: Extended;
+  s: string;
+begin
+  case fParser.CurrTokenId of
+    CSTII_Not: begin
+        FParser.Next;
+        Result := not ParseFactor;
+      end;
+    CSTI_Plus: begin
+        FParser.Next;
+        Result := + ParseFactor;
+      end;
+    CSTI_Minus: begin
+        FParser.Next;
+        Result := - ParseFactor;
+      end;
+    CSTI_OpenRound: begin
+       FParser.Next;
+       Result := ParseBooleanExpression;
+       if fParser.CurrTokenId = CSTI_Comma then begin
+         tmp := TList.Create;
+         New(pv);
+         pv^ := Result;
+         tmp.Add(pv);
+         while FPArser.CurrTokenId = CSTI_Comma do begin
+           FParser.Next;
+           try
+             result := ParseBooleanExpression;
+             New(pv);
+             pv^ := Result;
+             tmp.Add(pv);
+           except
+             for i := 0 to tmp.Count -1 do begin
+               pv := tmp[i];
+               dispose(pv);
+             end;
+             tmp.Free;
+             raise;
+           end;
+         end;
+         Result := VarArrayCreate([0, tmp.Count -1], varVariant);
+         for i := 0 to tmp.Count -1 do begin
+           pv := tmp[i];
+           Result[i] := pv^;
+           dispose(pv);
+         end;
+         tmp.Free;
+       end;
+       if fParser.CurrTokenId <> CSTI_CloseRound then
+         raise EDAEvaluationException.Create('Closing parenthesis expected');
+       FParser.Next;
+     end;
+    CSTI_HexInt, CSTI_Integer: begin
+      Result := StrToInt64(FParser.OriginalToken);
+      FParser.Next;
+    end;
+    CSTI_Real: begin
+      Val(FParser.OriginalToken, e, i); Result := e;
+      FParser.Next;
+    end;
+    CSTI_String: begin
+      Result := StringReplace(FParser.OriginalToken, #39#39, #39, [rfReplaceAll]);
+      Result := Copy(Result, 2, Length(Result) -2);
+      Fparser.Next;
+    end;
+    CSTI_Date: begin
+      Result := ParseDate(FParser.OriginalToken);
+      FParser.Next;
+    end;
+    CSTI_Identifier: begin
+      s :=  FPArser.OriginalToken;
+      FParser.Next;
+      if FParser.CurrTokenID = CSTI_OpenRound then
+        Result := EvaluateProcCall(s, ParseFactor)
+      else
+        Result := EvaluateValue(s)
+    end;
+  else
+    raise EDAEvaluationException.Create('Syntax error');
+  end;
+end;
+
+function TDAExpressionEvaluator.ParseBooleanExpression: Variant;
+var
+  V1, V2: Variant;
+  lTok: TROPasToken;
+begin
+  V1 := ParseComparisonExpression;
+  lTok := fParser.CurrTokenId;
+  while (lTok = CSTII_and) or
+    (lTok = CSTII_or) or
+    (lTok = CSTII_xor) do
+  begin
+    FParser.Next;
+    V2 := ParseComparisonExpression;
+
+    case lTok of
+      CSTII_or: V1 := V1 or V2;
+      CSTII_xor: V1 := V1 xor V2;
+      else v1 := v1 and v2; // CSTII_and
+    end;
+    lTok := fParser.CurrTokenId;
+  end;
+  Result := V1;
+end;
+
+function TDAExpressionEvaluator.ParseTerm: Variant;
+var
+  V1, V2: Variant;
+  lTok: TROPasToken;
+begin
+  V1 := ParseFactor;
+  lTok := fParser.CurrTokenId;
+  while (lTok = CSTI_multiply) or
+    (lTok = CSTI_divide) or
+    (lTok = CSTI_Modulus) do
+  begin
+    FParser.Next;
+    V2 := ParseFactor;
+
+    case lTok of
+      CSTI_Multiply: V1 := V1 * V2;
+      CSTI_Divide: V1 := V1 / V2;
+      else v1 := v1 mod v2; // CSTI_modulus
+    end;
+    lTok := fParser.CurrTokenId;
+  end;
+  Result := V1;
+end;
+
+function TDAExpressionEvaluator.Op_In(const V1, V2: Variant): Variant;
+var
+  i: Integer;
+begin
+  if VarIsArray(V2) then begin
+    for i := VarArrayLowBound(V2, 1) to VarArrayHighBound(V2, 1) do begin
+      if CompareValues(v2[i], v1) then begin
+        Result := true;
+        exit;
+      end;
+    end;
+    Result := False;
+  end
+  else
+    Result := CompareValues(v1, v2);
+//    raise EDAEvaluationException.Create('Array expected for IN expression');
+end;
+
+function WidePos(const iSubString, iString:UnicodeString): Integer; overload;
+var i,j:integer;
+    LenS,LenS1:integer;
+    b: Boolean;
+begin
+  LenS1 := Length(iSubString);
+  LenS := Length(iString);
+
+  i := 1;
+  while i <= LenS-LenS1+1 do begin
+
+    { IsCandidate }
+    b := true;
+    for j := 1 to LenS1 do begin
+      if iString[i+j-1] <> iSubString[j] then begin
+        b := false;
+        break;
+      end;
+    end;
+
+    if b then begin
+      result := i;
+      exit;
+    end;
+
+    inc(i);
+  end;
+  result := 0;
+end;
+
+function TDAExpressionEvaluator.Op_Like(const V1, V2: Variant): Variant;
+var
+  w1, w2: UnicodeString;
+begin
+  {$IFDEF Unicode}
+  w1 := AnsiUppercase(VarToStr(V1));
+  W2 := AnsiUppercase(VarToStr(V2));
+  {$ELSE}
+  w1 := WideUppercase(VarToWideStr(V1));
+  W2 := WideUppercase(VarToWideStr(V2));
+  {$ENDIF}
+  if Length(W2) = 0 then begin Result := False; exit; end;
+
+  if (Length(W2) > 0) and ((W2[1] = '%') or (W2[1] = '*')) then begin
+    if ((W2[Length(W2)] = '%') or (W2[Length(W2)] = '*')) then begin
+      W2 := Copy(W2, 2, Length(W2) -2);
+      Result := WidePos(W2, W1) > 0;
+    end else begin
+      W2 := Copy(W2, 2, Length(W2) -1);
+      Result := Copy(W1, LEngth(W1) - Length(W2)+1, Length(W2)) = W2;
+    end;
+  end else if (Length(W2)> 0) and ((W2[Length(W2)] = '%') or (W2[Length(W2)] = '*')) then begin
+    W2 := copy(W2, 1, Length(W2)-1);
+    result := Copy(W1, 1, Length(W2)) = W2;
+  end else
+    result := w1 = w2;
+end;
+
+function TDAExpressionEvaluator.CompareValues(const V1,
+  V2: Variant): boolean;
+begin
+  if IsStringType(V1) and IsStringType(V2) then begin
+    if (VarType(V1) = VarType(V2)) and (VarType(V2) <> varOleStr) then begin
+      if FStringCaseInsensitive then
+        Result := AnsiSameText(VarToStr(V1), VarToStr(V2))
+      else
+        Result := AnsiSameStr(VarToStr(V1), VarToStr(V2));
+    end
+    else begin
+      Result := ROWideCompare(VarToWideStr(V1), VarToWideStr(V2), FStringCaseInsensitive) = 0;
+    end;
+  end
+  else begin
+    Result := ROVariantsEqual(V1, V2);
+  end;
+end;
+
+function TDAExpressionEvaluator.IsStringType(const V: Variant): Boolean;
+begin
+  case VarType(V) of
+    varOleStr, varUString, varStrArg, varString: Result:=True;
+  else
+    Result := False;
+  end;
+end;
+
+{ TDAEEFunction }
+
+procedure TDAEEFunction.SetName(const Value: string);
+begin
+  fName := FastUppercase(Value);
+  fNameHash := MakeHash(fName);
+end;
+
+{ TDAEEFunctionList }
+
+function TDAEEFunctionList.Add(const aName: string): TDAEEFunction;
+begin
+  result := TDAEEFunction.Create;
+  Result.Name := aName;
+  fItems.Add(Result);
+end;
+
+procedure TDAEEFunctionList.Clear;
+var
+  i: Integer;
+begin
+  for i := fItems.Count -1 downto 0 do begin
+    TDAEEFunction(fItems[i]).Free;
+  end;
+  fItems.Clear;
+end;
+
+constructor TDAEEFunctionList.Create;
+begin
+  inherited Create;
+  fItems := TList.Create;
+end;
+
+procedure TDAEEFunctionList.Delete(I: Integer);
+begin
+  TDAEEFunction(fItems[i]).Free;
+  fItems.Delete(i);
+end;
+
+destructor TDAEEFunctionList.Destroy;
+begin
+  Clear;
+  fItems.Free;
+  inherited Destroy;
+end;
+
+function TDAEEFunctionList.GetCount: Integer;
+begin
+  result := fItems.Count;
+end;
+
+function TDAEEFunctionList.GetItem(i: Integer): TDAEEFunction;
+begin
+  result := TDAEEFunction(fItems[i]);
+end;
+
+{ TDAStdExpressionEvaluator }
+
+procedure TDAStdExpressionEvaluator.Convert(Sender: TDAExpressionEvaluator;
+  const aIdentifier: string; const Args: array of Variant;
+  out aValue: Variant);
+var
+  aType: TVarType;
+  s: string;
+begin
+  if Length(Args) <> 2 then raise EDAEvaluationException.Create('2 arguments expected for "Convert"');
+  s := FastUppercase(args[1]);
+  if (s = 'SYSTEM.BYTE') or (s = 'BYTE') then aType := varByte else
+  if (s = 'SYSTEM.SBYTE') or (s = 'SBYTE') then aType := varShortInt else
+  if (s = 'SYSTEM.INT16') or (s = 'INT16') then aType := varSmallint else
+  if (s = 'SYSTEM.UINT16') or (s = 'UINT16') then aType := varWord else
+  if (s = 'SYSTEM.INT32') or (s = 'INT32') then aType := varInteger else
+  if (s = 'SYSTEM.UINT32') or (s = 'UINT32') then aType := varLongWord else
+  if (s = 'SYSTEM.INT64') or (s = 'INT64') then aType := varInt64 else
+  if (s = 'SYSTEM.UINT64') or (s = 'UINT64') then aType := VarInt64 else
+  if (s = 'SYSTEM.STRING') or (s = 'STRING') then aType := varOleStr else
+  if (s = 'SYSTEM.SINGLE') or (s = 'SINGLE') then aType := varSIngle else
+  if (s = 'SYSTEM.DOUBLE') or (s = 'DOUBLE') then aType := varDouble else
+  if (s = 'SYSTEM.CHAR') or (s = 'CHAR') then aType := varOleStr else
+  if (s = 'SYSTEM.DATETIME') or (s = 'DATETIME') then aType := varDate else
+  raise EDAEvaluationException.Create('Unknown type used for conversion: "'+args[1]+'"');
+  VarCast(aValue, Args[0], aType);
+end;
+
+constructor TDAStdExpressionEvaluator.Create;
+begin
+  inherited Create;
+  FunctionList.Add('Convert').OnCall := Convert;
+  FunctionList.Add('Len').OnCall := Len;
+  FunctionList.Add('IsNull').OnCall := IsNull;
+  FunctionList.Add('IIF').OnCall := IIF;
+  FunctionList.Add('Trim').OnCall := Trim;
+  FunctionList.Add('SubString').OnCall := SubString;
+end;
+
+procedure TDAStdExpressionEvaluator.IIF(Sender: TDAExpressionEvaluator;
+  const aIdentifier: string; const Args: array of Variant;
+  out aValue: Variant);
+begin
+  if Length(Args) <> 3 then raise EDAEvaluationException.Create('3 arguments expected for "IIF"');
+  if Args[0] then
+    aValue := Args[1]
+  else
+    aValue := Args[2];
+end;
+
+procedure TDAStdExpressionEvaluator.IsNull(Sender: TDAExpressionEvaluator;
+  const aIdentifier: string; const Args: array of Variant;
+  out aValue: Variant);
+begin
+  if Length(Args) <> 2 then raise EDAEvaluationException.Create('2 arguments expected for "IsNull"');
+  if VarIsError(Args[0]) or VarIsNull(Args[0]) then
+    aValue := Args[1]
+  else
+    aValue := Args[0];
+end;
+
+procedure TDAStdExpressionEvaluator.Len(Sender: TDAExpressionEvaluator;
+  const aIdentifier: string; const Args: array of Variant;
+  out aValue: Variant);
+begin
+  if Length(Args) <> 1 then raise EDAEvaluationException.Create('1 argument expected for "Len"');
+  aValue := Length(UnicodeString(Args[0]));
+end;
+
+procedure TDAStdExpressionEvaluator.Substring(
+  Sender: TDAExpressionEvaluator; const aIdentifier: string;
+  const Args: array of Variant; out aValue: Variant);
+var
+  w: UnicodeString;
+  s: string;
+begin
+  if Length(Args) <> 3 then raise EDAEvaluationException.Create('3 arguments expected for "Substring"');
+  if VarType(Args[0]) = varOleStr then begin
+    w := Args[0];
+    aValue := Copy(w, Integer(args[1])-1, Integer(Args[2])); // zero based
+  end else begin
+    s := Args[0];
+    aValue := Copy(s, Integer(args[1])-1, Integer(Args[2])); // zero based
+  end;
+end;
+
+procedure TDAStdExpressionEvaluator.Trim(Sender: TDAExpressionEvaluator;
+  const aIdentifier: string; const Args: array of Variant;
+  out aValue: Variant);
+var
+  w: UnicodeString;
+  s: string;
+begin
+  if Length(Args) <> 1 then raise EDAEvaluationException.Create('1 argument expected for "Trim"');
+  if VarType(Args[0]) = varOleStr then begin
+    w := Args[0];
+    while (length(w) > 0) and ((w[1] = #13) or (w[1] = #10) or (w[1] = #9) or (w[1] = #32)) do
+      Delete(w, 1, 1);
+    while (length(w) > 0) and ((w[Length(w)] = #13) or (w[Length(w)] = #10) or (w[Length(w)] = #9) or (w[Length(w)] = #32)) do
+      Delete(w, Length(w), 1);
+    aValue := w;
+  end else begin
+    s := Args[0];
+    while (length(s) > 0) and ((s[1] = #13) or (s[1] = #10) or (s[1] = #9) or (s[1] = #32)) do
+      Delete(s, 1, 1);
+    while (length(s) > 0) and ((s[Length(s)] = #13) or (s[Length(s)] = #10) or (s[Length(s)] = #9) or (s[Length(s)] = #32)) do
+      Delete(s, Length(s), 1);
+    aValue := s;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHETConnections.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHETConnections.pas
new file mode 100644
index 0000000..3d16f32
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHETConnections.pas	
@@ -0,0 +1,69 @@
+unit uDAHETConnections;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - 'Rosetta' Library - HIGHLY CONFIDENTIAL
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, SysUtils,
+  uDAInterfaces;
+
+type
+  TDAHETConnection = class(TDAConnection)
+  private
+    fObjectMappings: TStrings;
+    procedure SetObjectMappings(const Value: TStrings);
+  protected
+    function GetConnectionString: string; override;
+    procedure SetConnectionString(const aValue: string); override;
+  public
+    constructor Create(aCollection: TCollection); override;
+    destructor Destroy; override;
+  published
+    property ObjectMappings: TStrings read fObjectMappings write SetObjectMappings;
+  end;
+
+implementation
+
+{ TDAHETConnection }
+
+constructor TDAHETConnection.Create(aCollection: TCollection);
+begin
+  inherited Create (aCollection);
+  fObjectMappings := TStringList.Create();
+end;
+
+destructor TDAHETConnection.Destroy;
+begin
+  FreeAndNil(fObjectMappings);
+  inherited;
+end;
+
+function TDAHETConnection.GetConnectionString: string;
+begin
+  result := 'HET?';
+end;
+
+procedure TDAHETConnection.SetConnectionString(const aValue: string);
+begin
+  { no-op }
+end;
+
+procedure TDAHETConnection.SetObjectMappings(const Value: TStrings);
+begin
+  fObjectMappings.Assign(Value);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHETDriver.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHETDriver.pas
new file mode 100644
index 0000000..666c68f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHETDriver.pas	
@@ -0,0 +1,232 @@
+unit uDAHETDriver;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - 'Rosetta' Library - HIGHLY CONFIDENTIAL
+{
+{ compiler: Delphi 6 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the Data Abstract
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+// {$R DataAbstract_Rosetta_Glyphs.res}
+
+uses
+  Classes, SysUtils,
+  uDAInterfaces, uDAClasses, uDAEngine, uDARes, uDADriverManager,
+  uDAHETConnections, DB;
+
+type
+  TDAHETDriver = class(TDADriverReference)
+  end;
+
+  TDAEHETDriver = class(TDAEDriver)
+  protected
+    function GetConnectionClass: TDAEConnectionClass; override;
+
+    function GetDriverID: string; override;
+    function GetDescription: string; override;
+  public
+  end;
+
+  TDAEHETConnection = class(TDAEConnection, IDAHETConnection)
+  private
+    fInTransaction: boolean;
+    fActiveConnections: TStringList;
+    function GetConnectionByName(const aConnectionName: string; aOpenConnection: boolean = false): IDAConnection;
+  protected
+    function DoBeginTransaction: Integer; override;
+    procedure DoCommitTransaction; override;
+    procedure DoRollbackTransaction; override;
+    function DoGetInTransaction: Boolean; override;
+
+    function CreateCustomConnection: TCustomConnection; override;
+    function GetConnected: Boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+    constructor Create(aDriver: TDAEDriver; aName: string = ''); override;
+    destructor Destroy; override;
+
+    { IDAHETConnection }
+    function GetConnectionForObject(const aObjectName: string; aOpenConnection: boolean = false): IDAConnection;
+
+  end;
+
+  TDAHETConnectionContainer = class
+  private
+    fConnection: IDAConnection;
+    constructor Create(aConnection: IDAConnection);
+  end;
+
+procedure Register;
+function GetDriverObject: IDADriver; stdcall;
+
+implementation
+
+{ TDAEHETDriver }
+
+function TDAEHETDriver.GetConnectionClass: TDAEConnectionClass;
+begin
+  result := TDAEHETConnection;
+end;
+
+function TDAEHETDriver.GetDescription: string;
+begin
+  result := 'Connection for Heterogenous Queries across multiple databases';
+end;
+
+function TDAEHETDriver.GetDriverID: string;
+begin
+  result := 'HET';
+end;
+
+{ TDAEHETConnection }
+
+constructor TDAEHETConnection.Create(aDriver: TDAEDriver; aName: string = '');
+begin
+  inherited;
+  fActiveConnections := TStringList.Create();
+  fActiveConnections.Sorted := true;
+  fActiveConnections.Duplicates := dupError;
+end;
+
+function TDAEHETConnection.CreateCustomConnection: TCustomConnection;
+begin
+  result := nil;
+end;
+
+destructor TDAEHETConnection.Destroy;
+var
+  i: Integer;
+begin
+  for i := 0 to fActiveConnections.Count-1 do
+    fActiveConnections.Objects[i].Free();
+  FreeAndNil(fActiveConnections);
+
+  //ToDo: auto-transacton handling?
+
+  inherited;
+end;
+
+function TDAEHETConnection.DoBeginTransaction: Integer;
+var
+  i: Integer;
+begin
+  if fInTransaction then
+    raise Exception.Create('Already in a transaction');
+
+  for i := 0 to fActiveConnections.Count-1 do
+    (fActiveConnections.Objects[i] as TDAHETConnectionContainer).fConnection.BeginTransaction();
+
+  fInTransaction := true;
+  result := 0;
+end;
+
+procedure TDAEHETConnection.DoCommitTransaction;
+var
+  i: Integer;
+begin
+  inherited;
+
+  try
+    for i := 0 to fActiveConnections.Count-1 do
+      (fActiveConnections.Objects[i] as TDAHETConnectionContainer).fConnection.CommitTransaction();
+  except
+    // ToDo: we need to use  a two-phase commit here, to properly handle any single commit failing
+    //       to roll back ALL transactons (inclusing those already (tentatively) comitted. 
+    DoRollbackTransaction();
+    raise;
+  end;
+
+  fInTransaction := false;
+end;
+
+procedure TDAEHETConnection.DoRollbackTransaction;
+var
+  i: Integer;
+begin
+  inherited;
+
+  for i := 0 to fActiveConnections.Count-1 do
+    (fActiveConnections.Objects[i] as TDAHETConnectionContainer).fConnection.RollbackTransaction();
+
+  fInTransaction := false;
+end;
+
+function TDAEHETConnection.DoGetInTransaction: Boolean;
+begin
+  result := fInTransaction;
+end;
+
+function TDAEHETConnection.GetConnected: Boolean;
+begin
+  result := true;
+end;
+
+function TDAEHETConnection.GetConnectionForObject(const aObjectName: string; aOpenConnection: boolean = false): IDAConnection;
+var
+  lConnectionName: string;
+begin
+  lConnectionName := (ConnectionDefinition as TDAHETConnection).ObjectMappings.Values[aObjectName];
+  if lConnectionName = '' then
+    raise Exception.CreateFmt('HET Connection "%s" does not contain an object mapping for "%s".', [ConnectionName, aObjectName]);
+  result := GetConnectionByName(lConnectionName);
+end;
+
+function TDAEHETConnection.GetConnectionByName(const aConnectionName: string; aOpenConnection: boolean = false): IDAConnection;
+var
+  i: Integer;
+begin
+  if aConnectionName = self.ConnectionName then
+    raise Exception.CreateFmt('Cannot use HET Connection "%s" nested within itself.', [ConnectionName]);
+
+  i := fActiveConnections.IndexOf(aConnectionName);
+  if i >= 0 then begin
+    result := (fActiveConnections.Objects[i] as TDAHETConnectionContainer).fConnection
+  end
+  else begin
+    result := ConnectionManager.NewConnection(aConnectionName, true);  //todo: aOpenConnection
+    if fInTransaction then result.BeginTransaction;
+    fActiveConnections.AddObject(aConnectionName, TDAHETConnectionContainer.Create(result));
+  end;
+end;
+
+{ TDAHETConnectionContainer }
+
+constructor TDAHETConnectionContainer.Create(aConnection: IDAConnection);
+begin
+  fConnection := aConnection;
+end;
+
+{ global driver registration }
+
+var
+  _driver: TDAEDriver = nil;
+
+procedure Register;
+begin
+  RegisterComponents(DAPalettePageName, [TDAHETDriver]);
+end;
+
+function GetDriverObject: IDADriver;
+begin
+  if (_driver = nil) then _driver := TDAEHETDriver.Create(nil);
+  result := _driver;
+end;
+
+exports
+  GetDriverObject name func_GetDriverObject;
+
+initialization
+  _driver := nil;
+  RegisterDriverProc(GetDriverObject);
+finalization
+  UnregisterDriverProc(GetDriverObject);
+  FreeAndNIL(_driver);
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHelpers.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHelpers.pas
new file mode 100644
index 0000000..fcee4c5
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAHelpers.pas	
@@ -0,0 +1,389 @@
+unit uDAHelpers;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  uDAInterfaces, uDAInterfacesEx, uDAClasses, Classes, uDASupportClasses;
+
+function BuildSelectStatementForTable(iTableName: string; iConnection: IDAConnection; iFields: TDAFieldCollection; lColumnMappings: TDAColumnMappingCollection = nil): string;
+function BuildJoinedSelectStatementForTables(iTableNames: array of string; iConnection: IDAConnection): string;
+function BuildCreateStatementForTable(aDataSet:TDADataSet; const aTableName:string; iConnection: IDAConnectionModelling): string;
+function BuildExecStatementForProcedure(const iProcedureName: string; iConnection: IDAConnection): string;
+
+function QuoteIfNeeded(iTableName: string; iConnection: IDAConnection = nil): string;
+function QuoteFieldNameIfNeeded(iTableName, iFieldName: string; iConnection: IDAConnection): string;
+
+function FindUniqueName(const iBaseName:string; iCollection: TSearcheableCollection):string;
+procedure CreateNewDatasets(aSchema: TDASchema; aConnection: IDAConnection; aTables: TStrings; aCreateComandsToo: boolean=false; aCreateRelationships: boolean=false; aListCreatedDatasets:TList=nil; aShowDataset:boolean=true);
+
+function LoadHtmlFromResource(aInstance: THandle; const aName: string): string;
+
+implementation
+
+uses
+  SysUtils, uROClasses, Contnrs;
+
+function LoadHtmlFromResource(aInstance: THandle; const aName: string): string;
+{$IFDEF MSWINDOWS}
+var
+  lResource,lData: THandle;
+  p:pChar;
+{$ENDIF}
+begin
+  result := '';
+  {$IFDEF MSWINDOWS}
+  lResource := FindResource(aInstance, pChar(aName), pChar(2110));
+  if (lResource > 0) then begin
+    lData := LoadResource(aInstance, lResource);
+    p := LockResource(lData);
+    try
+      if Assigned(p) then begin
+        result := p;
+        UniqueString(result);
+      end;
+    finally
+      UnlockResource(lData)
+    end;
+  end;
+  {$ENDIF}
+end;
+
+function BuildCreateStatementForTable(aDataSet:TDADataSet; const aTableName:string; iConnection: IDAConnectionModelling): string;
+var
+  i: integer;
+  lCurrentLine, lPrimary: string;
+begin
+
+  result := 'CREATE TABLE '+QuoteIfNeeded(aTableName, iConnection)+
+            #13#10'(';
+
+  for i := 0 to (aDataSet.Fields.Count - 1) do begin
+    lCurrentLine := '  '+
+                    QuoteIfNeeded(aDataSet.Fields[i].Name, iConnection)+
+                    ' '+
+                    iConnection.FieldToDeclaration(aDataSet.Fields[i]);
+    if (i < aDataSet.Fields.Count - 1) then lCurrentLine := lCurrentLine + ', ';
+    result := result+#13#10+lCurrentLine;
+  end;
+
+  lPrimary := '';
+  for i := 0 to (aDataSet.Fields.Count - 1) do if aDataSet.Fields[i].InPrimaryKey then begin
+    if lPrimary <> '' then lPrimary := lPrimary+','#13#10;
+    lPrimary := lPrimary+
+                 '    '+
+                 QuoteIfNeeded(aDataSet.Fields.Fields[i].Name, iConnection);
+  end;
+  if lPrimary <> '' then begin
+    result := result+','#13#10+
+                     'CONSTRAINT '+QuoteIfNeeded('PK_'+aTableName)+' PRIMARY KEY'#13#10+
+                     '  ('#13#10+
+                     lPrimary+#13#10+
+                     '  )'
+  end;
+  result := result+#13#10')';
+
+end;
+
+function BuildSelectStatementForTable(iTableName: string; iConnection: IDAConnection; iFields: TDAFieldCollection; lColumnMappings: TDAColumnMappingCollection = nil): string;
+var
+  lFields: TDAFieldCollection;
+  i: integer;
+  lCurrentLine, lQuery: string;
+
+  function DemapField(aFieldName: string): string;
+  var
+    lColumnMapping: TDAColumnMapping;
+  begin
+    if assigned(lColumnMappings) then begin
+      lColumnMapping := lColumnMappings.FindMappingByDatasetField(aFieldName);
+      if assigned(lColumnMapping) then
+        result := lColumnMapping.TableField;
+    end else begin
+      result := aFieldName;
+    end;
+  end;
+
+begin
+  if iFields = nil then iConnection.GetTableFields(iTableName, lFields) else lFields := iFields;
+
+  if Assigned(lFields) then try
+
+    lCurrentLine := '';
+    lQuery := '';
+    for i := 0 to (lFields.Count - 1) do begin
+      lCurrentLine := lCurrentLine + QuoteFieldNameIfNeeded(iTableName, DemapField(lFields.Fields[i].Name), iConnection);
+      if (i < lFields.Count - 1) then begin
+        lCurrentLine := lCurrentLine + ', ';
+        if Length(lCurrentLine) > 50 then begin
+          lQuery := lQuery + lCurrentLine + #13#10'    ';
+          lCurrentLine := '';
+        end;
+      end;
+    end;
+    result := 'SELECT ' +
+      #13#10'    ' +
+      lQuery + lCurrentLine +
+      #13#10'  FROM'#13#10'    ' + QuoteIfNeeded(iTableName, iConnection)+ #13#10'  WHERE {Where}';
+  finally
+    if lFields <> iFields then FreeAndNil(lFields);
+  end
+  else begin
+    result := 'SELECT * FROM ' + QuoteIfNeeded(iTableName, iConnection)+ #13#10'  WHERE {Where}';
+  end;
+end;
+
+function BuildJoinedSelectStatementForTables(iTableNames: array of string; iConnection: IDAConnection): string;
+var
+  lTableName: string;
+  lFields: TDAFieldCollection;
+  i,j: integer;
+  lCurrentLine, lQuery: string;
+begin
+  Result:='';
+  for i := Low(iTableNames) to High(iTableNames) do begin
+
+    lTableName := QuoteIfNeeded(iTableNames[i], iConnection);
+
+    if result = '' then
+      result := 'SELECT '#13#10
+    else
+      result := result+', '#13#10;
+
+    iConnection.GetTableFields(iTableNames[i], lFields);
+    if Assigned(lFields) then try
+
+      lCurrentLine := '    ';
+      lQuery := '';
+      for j := 0 to (lFields.Count - 1) do begin
+        lCurrentLine := lCurrentLine + lTableName+'.'+QuoteIfNeeded(lFields.Fields[j].Name, iConnection);
+        if (j < lFields.Count - 1) then begin
+          lCurrentLine := lCurrentLine + ', ';
+          if Length(lCurrentLine) > 50 then begin
+            lQuery := lQuery + lCurrentLine + #13#10'    ';
+            lCurrentLine := '';
+          end;
+        end;
+      end;
+      result := result + lQuery + lCurrentLine;
+    finally
+      FreeAndNil(lFields);
+    end
+    else begin
+      result := result + QuoteIfNeeded(iTableNames[i], iConnection)+'*';
+    end;
+  end;
+
+  for i := Low(iTableNames) to High(iTableNames) do begin
+    if i = 0 then begin
+      result := result+#13#10'  FROM '+QuoteIfNeeded(iTableNames[i], iConnection)
+    end
+    else begin
+      result := result+#13#10'    LEFT OUTER JOIN '+QuoteIfNeeded(iTableNames[i], iConnection)+' ON <join condition>'
+    end;
+  end;
+  result := Result + #13#10'  WHERE {Where}';
+
+end;
+
+
+function BuildExecStatementForProcedure(const iProcedureName: string; iConnection: IDAConnection): string;
+var
+  lParams: TDAParamCollection;
+  lName: string;
+  i: integer;
+  lQuery: string;
+begin
+  iConnection.GetStoredProcedureParams(iProcedureName, lParams);
+  try
+    lQuery := '';
+    if lParams <> nil then begin
+      for i := 0 to (lParams.Count - 1) do begin
+        lName := ':' + QuoteIfNeeded(lParams.Params[i].Name, iConnection);
+        if not (lParams.Params[i].ParamType in [daptInput, daptInputOutput]) then continue;
+        if lQuery <> '' then lQuery := lQuery + ', ';
+        lQuery := lQuery + lName;
+      end;
+    end;
+    Result := iConnection.GetSPSelectSyntax(lQuery <> '');
+    if Result = '' then
+      Result := 'EXEC {0} {1}';
+    Result := StringReplace(Result, '{0}', QuoteIfNeeded(iProcedureName, iConnection), []);
+    Result := StringReplace(Result, '{1}', lQuery, [rfReplaceAll]);
+    Result := StringReplace(Result, '{{', '{', [rfReplaceAll]);
+  finally
+    FreeAndNil(lParams);
+  end
+end;
+
+function QuoteFieldNameIfNeeded(iTableName, iFieldName: string; iConnection: IDAConnection): string;
+begin
+  if Assigned(iConnection) then begin
+    result := iConnection.QuoteFieldNameIfNeeded(iTableName,iFieldName);
+  end
+  else if Pos(' ', iFieldName) > 0 then begin
+    result := '"' + iFieldName + '"';
+    if Pos(' ', iTableName) > 0 then Result:= '"' + iTableName + '".'+ result;
+  end
+  else begin
+    result := iFieldName;
+  end;
+end;
+
+
+function QuoteIfNeeded(iTableName: string; iConnection: IDAConnection): string;
+begin
+  if Assigned(iConnection) then begin
+    result := iConnection.QuoteIdentifierIfNeeded(iTableName);
+  end
+  else if Pos(' ', iTableName) > 0 then begin
+    result := '"' + iTableName + '"';
+  end
+  else begin
+    result := iTableName;
+  end;
+end;
+
+function FindUniqueName(const iBaseName:string; iCollection: TSearcheableCollection):string;
+var
+  lIndex:integer;
+begin
+  result := iBaseName;
+  lIndex := 0;
+  while Assigned(iCollection.FindItem(result)) do begin
+    inc(lIndex);
+    result := iBaseName+IntToStr(lIndex);
+  end;
+end;
+
+procedure CreateNewDatasets(aSchema: TDASchema; aConnection: IDAConnection; aTables: TStrings; aCreateComandsToo: boolean=false; aCreateRelationships: boolean=false; aListCreatedDatasets:TList=nil; aShowDataset:boolean=true);
+var
+  i,j: Integer;
+  lKeys: TDADriverForeignKeyCollection;
+  lSourceTableName, lDataTableName : string;
+  lFields: TDAFieldCollection;
+  k, z : integer;
+  lNewDataset, lFKDataset, lPKDataset : TDADataset;
+  lNewDatasets: TObjectList;
+begin
+
+  // keep a listof the new datasets, so we can access them by the k index when
+  // looking for FK matches
+
+  lNewDatasets := TObjectList.Create(false);
+  try
+    for k := 0 to aTables.Count-1 do begin
+      lSourceTableName := aTables[k];
+      lDataTableName := FindUniqueName(TrimAndClean(lSourceTableName), aSchema.Datasets);
+
+      // Creates the Dataset and the fields
+      aConnection.GetTableFields(lSourceTableName, lFields);
+      lNewDataset := aSchema.Datasets.Add;
+      with lNewDataset do begin
+        Name := lDataTableName;
+        Fields.AssignFieldCollection(lFields);
+      end;
+      lNewDatasets.Add(lNewDataSet);
+
+      // Adds the SQL statement
+      with lNewDataset.Statements.Add do begin
+        if aConnection.ConnectionType <> '' then begin
+          Connection := '';
+          ConnectionType := aConnection.ConnectionType;
+        end else
+        Connection := aConnection.Name;
+        //Default := true;
+        TargetTable := lSourceTableName;
+        //SQL := 'SELECT '#13#10'    ';
+        for z := 0 to (lNewDataset.Fields.Count-1) do begin
+          //SQL := SQL+newDataset.Fields[z].Name;
+          if (z < lNewDataset.Fields.Count-1) then SQL := SQL+', ';
+
+          // Creates the default mappings
+          with ColumnMappings.Add do begin
+            DatasetField := lNewDataset.Fields[z].Name;
+            TableField := lNewDataset.Fields[z].Name;
+          end;
+        end;
+        //SQL := SQL+#13#10'  FROM '+QuoteIfNeeded(tblname);
+        //SQL := BuildSelectStatementForTable(lSourceTableName, aConnection);
+        StatementType := stAutoSQL;
+      end;
+
+      // activate the LAST one
+      {if aShowDataset and (k = aTables.Count-1) then begin
+        pc_MainPages.ActivePage := ts_DatasetAndCommand;
+        pc_DatasetAndCommandTop.ActivePage := ts_Dataset2;
+        pc_DatasetAndCommandBottom.ActivePage := ts_Dataset3;
+        pc_DatasetPages.ActivePage := ts_DatasetStatements;
+        ActiveControl := insp_Dataset;
+        insp_Dataset.FocusedField := SchemaModelerData.DatasetsName;
+      end;}
+
+      // Refreshes the listview
+      //SchemaModelerData.Datasets.Refresh;
+      //SchemaModelerData.Datasets.Index := lNewDataset.Index;
+
+      //if aCreateComandsToo then
+        //DropCommandNewCommandsForDataset();
+
+    end;
+
+    if aCreateRelationships then begin
+
+      aConnection.GetForeignKeys(lKeys);
+      if assigned(lKeys) then try
+        for i := 0 to lKeys.Count - 1 do begin
+          for j := 0 to lNewDatasets.Count-1 do begin
+            lFKDataset := (lNewDatasets[j] as TDADataSet);
+            if lKeys[i].FKTable = lFKDataset.Name then begin
+              for k := 0 to lNewDatasets.Count-1 do begin
+                lPKDataset := (lNewDatasets[k] as TDADataSet);
+                if lKeys[i].PKTable = lPKDataset.Name then begin
+                  with aSchema.RelationShips.Add() do begin
+                    Name := Format('FK_%s_%s',[lFKDataset.Name, lPKDataset.Name]);
+                    MasterDatasetName := lPKDataset.Name;
+                    DetailDatasetName := lFKDataset.Name;
+                    MasterFields := lKeys[i].PKField;
+                    DetailFields := lKeys[i].FKField;
+                  end;
+                  break; { break for k }
+                end;
+              end; { for k (PKDataset)}
+              break; { break for j }
+            end; { if FK matches }
+          end; { for j (FKDaatSet) }
+        end; { for i (key) }
+
+      finally
+        lKeys.Free();
+      end;
+    end;
+
+    if Assigned(aListCreatedDatasets) then begin
+      for i := 0 to lNewDataSets.Count-1 do begin
+        aListCreatedDatasets.Add(lNewDataSets[i]);
+      end; { for }
+    end;
+
+  finally
+    FreeAndNil(lNewDatasets);
+  end;
+
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAIBInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAIBInterfaces.pas
new file mode 100644
index 0000000..a134a1e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAIBInterfaces.pas	
@@ -0,0 +1,755 @@
+unit uDAIBInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses uROClasses, uDAInterfaces, uDAEngine;
+
+type
+  { IDAInterbaseConnection
+      For identification purposes. Implemented by all IB connections }
+  IDAInterbaseConnection = interface(IDAConnection)
+    ['{CE1B8144-4EA6-4815-ACD2-D5A4B62F2E69}']
+  end;
+
+  { IDAIBTransactionAccess
+      Interbase connections usually refer to a separate transaction object unlike all
+      the rest of data access components. If implemented, this interfaces provides access
+      to the inner transaction object. See implementation of IBX and IBO drivers. }
+  IDAIBTransactionAccess = interface
+    ['{C1BDDDD3-749A-4D25-BD1E-43715B697959}']
+    function GetTransaction: TObject; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Commit; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CommitRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Rollback; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RollbackRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property Transaction: TObject read GetTransaction;
+  end;
+
+  { IDAIBConnectionProperties
+      Provides access to common properties of Interbase connections }
+  IDAIBConnectionProperties = interface
+    ['{5F001B6F-4FB6-46B7-BC27-3326C4658F75}']
+    function GetRole: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRole(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSQLDialect: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQLDialect(Value: integer); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetCharset: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetCharset(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Commit; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CommitRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Rollback; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RollbackRetaining; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property Role: string read GetRole write SetRole;
+    property SQLDialect: integer read GetSQLDialect write SetSQLDialect;
+
+    property Charset: string read GetCharset write SetCharset;
+  end;
+
+  TDAIBAuxParams = (ibxp_Role, ibxp_Dialect, ibxp_Charset);
+
+  TDAIBDriver = class(TDAEDriver)
+  protected
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  TDAIBConnection = class(TDAEConnection, IDAConnection, IDAUseGenerators, IDAUseGenerators2,
+                          IDAFileBasedDatabase, IDAInterbaseConnection,IDACanQueryGeneratorsNames)
+  private
+  protected
+    function GetSQLDialect: integer; virtual; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}abstract;
+    // IDAConnection
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    function GetSPSelectSyntax(HasArguments: Boolean): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+    function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    // IDAUseGenerators
+    function GetNextAutoinc(const GeneratorName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAUseGenerators2
+    function GetNextAutoinc2(const GeneratorName: string): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAFileBasedDatabase
+    function GetFileExtensions: IROStrings;
+    // IDACanQueryGeneratorsNames
+    function GetGeneratorNames: IROStrings;
+  end;
+
+const
+  IBAuxParams: array[TDAIBAuxParams] of string = (
+    'Role=',
+    'Dialect=1,2,3',
+    'Charset=ASCII,BIG_5,CYRL,DOS437,DOS850,DOS852,DOS857,DOS860,DOS861,DOS863, ' +
+    'DOS865,EUCJ_0208,GB_2312,ISO8859_1,ISO8859_2,KSC_5601,NEXT,NONE, ' +
+    'OCTETS,SJIS_0208,UNICODE_FSS,WIN1250,WIN1251,WIN1252,WIN1253,WIN1254'
+    );
+const
+  IB_DriverType = 'Interbase';
+
+procedure AddIBAuxParams(const List: IROStrings);
+
+function IB_GetFileExtensions: IROStrings;
+procedure IB_GetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+function IB_GetSPSelectSyntax(HasArguments: Boolean): String;
+function IB_GetNextAutoinc(const GeneratorName: string; Query: IDADataset): Variant;
+function IB_GetLastAutoInc(const GeneratorName: string; Query: IDADataset): Variant;
+function IB_CreateMacroProcessor: TDASQLMacroProcessor;
+Procedure IB_DoGetForeignKeys(Query: IDADataset;ForeignKeys: TDADriverForeignKeyCollection);
+procedure IB_GetObjectNames(Query: IDADataset;AList: IROStrings; AObjectType: TDAObjecttype);
+function IB_IdentifierNeedsQuoting(const iIdentifier: string; ASQLDialect: integer): boolean;
+function IB_GetGeneratorNames(Query: IDADataset):IROStrings;
+
+implementation
+uses
+  SysUtils, uDAMacroProcessors;
+
+var
+  ib_reservedwords: array of string;
+
+procedure AddIBAuxParams(const List: IROStrings);
+var
+  x: TDAIBAuxParams;
+begin
+  for x := Low(TDAIBAuxParams) to High(TDAIBAuxParams) do
+    List.Add(IBAuxParams[x])
+end;
+
+function IB_GetFileExtensions: IROStrings;
+begin
+  result := TROStrings.Create;
+  result.Add('*.fdb;Firebird Database (*.fdb)');
+  result.Add('*.gdb;Interbase Database (*.gdb)');
+  result.Add('*.*;All files (*.*)');  
+end;
+
+procedure IB_GetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+const
+  IBSQL_TableInfo =
+    'select a.rdb$field_name,a.rdb$null_flag, '+   //0,1
+    'b.rdb$field_precision, b.rdb$field_scale, ' + //2,3
+    'b.rdb$null_flag, b.rdb$computed_source, c.rdb$type_name, '+ //4,5,6
+    'b.rdb$field_length, b.rdb$character_length, d.rdb$default_collate_name '+ //7,8,9
+    'from rdb$relation_fields a '+
+    'left join RDB$FIELDS b on (a.rdb$field_source = b.rdb$field_name) '+
+    'left join RDB$TYPES c on (b.rdb$field_type = c.rdb$type and c.rdb$field_name = ''RDB$FIELD_TYPE'') '+
+    'left join RDB$CHARACTER_SETS d on (d.rdb$character_set_id = b.rdb$character_set_id) '+
+    'where (a.rdb$relation_name = ''%s'')';
+  IBSQL_PRIMARYKEY =
+    'select d.rdb$field_name from rdb$relation_constraints c '+
+    'left join rdb$index_segments d on (c.rdb$index_name = d.rdb$index_name) '+
+    'where (c.rdb$relation_name = ''%s'') and (c.rdb$constraint_type = ''PRIMARY KEY'')';
+var
+  fld: TDAField;
+  fld6, fld9: string;
+begin
+  Fields := TDAFieldCollection.Create(nil);
+  try
+    // main info
+    Query.SQL := 'SELECT * FROM ' + aTableName;
+    Query.Open;
+    Fields.Assign(Query.Fields);
+
+    // required
+    Query.Close;
+    Query.SQL := Format(IBSQL_TableInfo,[aTableName]);
+    Query.Open;
+    While not Query.Eof do begin
+      fld := Fields.FindField(Trim(Query.Fields[0].AsString));
+      if Fld <> nil then begin
+        if Query.Fields[1].IsNull then
+          Fld.Required:=(Query.Fields[4].AsInteger = 1)
+        else
+          Fld.Required:=(Query.Fields[1].AsInteger = 1);
+        fld6 := TrimRight(Query.Fields[6].AsString);
+        fld9 := TrimRight(Query.Fields[9].AsString);
+        if (fld6 = 'INT64') and not Query.Fields[2].IsNull and not Query.Fields[3].IsNull then
+          fld.DataType := datDecimal;
+        if fld.DataType = datDecimal then begin
+          fld.DecimalPrecision:=Query.Fields[2].AsInteger;
+          fld.DecimalScale:=ABS(Query.Fields[3].AsInteger);
+        end;
+        if (fld6 = 'VARYING') and
+           (fld.DataType = datString) and
+           ((fld9 = 'UTF8') or (fld9 = 'UNICODE_FSS')) then begin
+           fld.DataType := datWideString;
+           fld.Size := Query.Fields[8].AsInteger;
+        end;
+        if (fld6 = 'BLOB') and
+           (fld.DataType = datMemo) and
+           ((fld9 = 'UTF8') or (fld9 = 'UNICODE_FSS')) then begin
+           fld.DataType := datWideMemo;
+        end;
+        if not Query.Fields[5].IsNull then begin
+          fld.ReadOnly:= True;
+          fld.LogChanges:= False;
+        end;
+      end;
+      Query.Next;
+    end;
+
+    // pk
+    Query.Close;
+    Query.SQL:= Format(IBSQL_PRIMARYKEY,[aTableName]);
+    Query.Open;
+    While not Query.Eof do begin
+      fld := Fields.FindField(Trim(Query.Fields[0].AsString));
+      if Fld <> nil then begin
+        fld.InPrimaryKey := True;
+        fld.Required := True;
+      end;
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+function IB_GetSPSelectSyntax(HasArguments: Boolean): String;
+begin
+  if HasArguments then
+    Result := 'SELECT * FROM {0}({1})'
+  else
+    Result := 'SELECT * FROM {0}';
+end;
+
+function IB_GetNextAutoinc(const GeneratorName: string; Query: IDADataset): Variant;
+begin
+  try
+    Query.SQL:=Format('SELECT Gen_id(%s,1) FROM RDB$Database', [GeneratorName]);
+    Query.Open;
+    Result := Query.Fields[0].AsInteger;
+  finally
+    Query:=nil;
+  end;
+end;
+
+function IB_GetLastAutoInc(const GeneratorName: string;Query: IDADataset): Variant;
+begin
+  try
+    Query.SQL:=Format('SELECT Gen_id(%s,0) FROM RDB$Database', [GeneratorName]);
+    Query.Open;
+    Result := Query.Fields[0].Value;
+  finally
+    Query:=nil;
+  end;
+end;
+
+
+function IB_CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  result := TDAIBMacroProcessor.Create;
+end;
+
+Procedure IB_DoGetForeignKeys(Query: IDADataset;ForeignKeys: TDADriverForeignKeyCollection);
+var
+  lCurrConstraint: string;
+  lCurrFK: TDADriverForeignKey;
+const
+  sFK_SQL =
+    'SELECT A.RDB$CONSTRAINT_NAME, A.RDB$RELATION_NAME AS TABLE_NAME, ' +
+    //A.RDB$CONSTRAINT_NAME AS FK_NAME, B.RDB$UPDATE_RULE AS UR, B.RDB$DELETE_RULE AS DR,'+
+  'C.RDB$RELATION_NAME AS FK_TABLE, D.RDB$FIELD_NAME AS FK_FIELD, ' +
+    'E.RDB$FIELD_NAME AS ONFIELD ' +
+    'FROM ' +
+    'RDB$RELATION_CONSTRAINTS A JOIN RDB$REF_CONSTRAINTS B ON (A.RDB$CONSTRAINT_NAME = B.RDB$CONSTRAINT_NAME) ' +
+    'JOIN RDB$RELATION_CONSTRAINTS C ON (B.RDB$CONST_NAME_UQ=C.RDB$CONSTRAINT_NAME)' +
+    'JOIN RDB$INDEX_SEGMENTS D ON (C.RDB$INDEX_NAME=D.RDB$INDEX_NAME) ' +
+    'JOIN RDB$INDEX_SEGMENTS E  ON (A.RDB$INDEX_NAME=E.RDB$INDEX_NAME) AND (D.RDB$FIELD_POSITION = E.RDB$FIELD_POSITION) ' +
+    'WHERE (A.RDB$CONSTRAINT_TYPE = ''FOREIGN KEY'') ' +
+    'ORDER BY A.RDB$CONSTRAINT_NAME, A.RDB$RELATION_NAME, D.RDB$FIELD_POSITION, E.RDB$FIELD_POSITION ';
+begin
+  lCurrConstraint := '';
+  lCurrFK := nil;
+  try
+    Query.SQL := sFK_SQL;
+    Query.Open;
+
+    ForeignKeys.Clear;
+    while (not Query.EOF) do begin
+
+      if lCurrConstraint <> Query.Fields[0].AsString then begin
+        lCurrConstraint := Query.Fields[0].AsString;
+
+        lCurrFK := ForeignKeys.Add();
+        with lCurrFK do begin
+          FKField := TrimRight(Query.Fields[4].AsString);
+          PKField := TrimRight(Query.Fields[3].AsString);
+          FKTable := TrimRight(Query.Fields[1].AsString);
+          PKTable := TrimRight(Query.Fields[2].AsString);
+        end;
+      end else begin
+        with lCurrFK do begin
+          FKField := FKField + ';' + TrimRight(Query.Fields[4].AsString);
+          PKField := PKField + ';' + TrimRight(Query.Fields[3].AsString);
+        end;
+      end;
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure IB_GetObjectNames(Query: IDADataset;AList: IROStrings; AObjectType: TDAObjecttype);
+begin
+  try
+    case AObjectType of
+      dotTable: Query.SQL := 'Select RDB$RELATION_NAME from RDB$RELATIONS WHERE (RDB$VIEW_BLR is NULL) AND (RDB$SYSTEM_FLAG = 0) ORDER BY 1';
+      dotProcedure: Query.SQL := 'Select RDB$PROCEDURE_NAME from RDB$PROCEDURES ORDER BY 1';
+      dotView: Query.SQL := 'Select RDB$RELATION_NAME from RDB$RELATIONS WHERE (RDB$VIEW_BLR is not NULL) ORDER BY 1';
+    else
+    end;
+    Query.Open;
+    while not Query.EOF do begin
+      AList.Add(Trim(Query.Fields[0].AsString));
+      Query.Next;
+    end;
+  finally
+    Query:=nil;
+  end;
+end;
+
+function IB_IdentifierNeedsQuoting(const iIdentifier: string; ASQLDialect: integer): boolean;
+var
+  i: integer;
+begin
+  Result := True;
+  if (ASQLDialect >= 3) then
+    for i := 1 to Length(iIdentifier) do
+      if not CharInSet(iIdentifier[i], ['A'..'Z', '0'..'9', '_']) then Exit;
+  Result := (pos('.', iIdentifier) > 0) or TestIdentifier(iIdentifier, ib_reservedwords);
+end;
+
+function IB_GetGeneratorNames(Query: IDADataset):IROStrings;
+const
+  sql = 'SELECT RDB$GENERATOR_NAME FROM RDB$GENERATORS WHERE RDB$SYSTEM_FLAG = 0 ORDER BY RDB$GENERATOR_NAME';
+begin
+  Result:= NewROStrings;
+  try
+    Query.SQL := sql;
+    Query.Open;
+    while not Query.EOF do begin
+      Result.Add(Trim(Query.Fields[0].AsString));
+      Query.Next;
+    end;
+  finally
+    Query:=nil;
+  end;
+end;
+
+{ TDAIBConnection }
+
+
+function TDAIBConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  result := IB_CreateMacroProcessor;
+end;
+
+procedure TDAIBConnection.DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited;
+  IB_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+end;
+
+function TDAIBConnection.DoGetLastAutoInc(const GeneratorName: string): integer;
+begin
+  Result := DoGetLastAutoIncValue(GeneratorName);
+end;
+
+function TDAIBConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  Result:= IB_GetLastAutoInc(GeneratorName,GetDatasetClass.Create(Self));
+end;
+
+procedure TDAIBConnection.DoGetStoredProcedureNames(out List: IROStrings);
+begin
+  inherited;
+  IB_GetObjectNames(GetDatasetClass.Create(Self),List,dotProcedure);
+end;
+
+procedure TDAIBConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  IB_GetTableFields(QuoteIdentifierIfNeeded(aTableName),GetDatasetClass.Create(Self),Fields);
+end;
+
+procedure TDAIBConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited;
+  IB_GetObjectNames(GetDatasetClass.Create(Self),List,dotTable);
+end;
+
+procedure TDAIBConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited;
+  IB_GetObjectNames(GetDatasetClass.Create(Self),List,dotView);
+end;
+
+function TDAIBConnection.GetFileExtensions: IROStrings;
+begin
+  Result:= IB_GetFileExtensions;
+end;
+
+function TDAIBConnection.GetGeneratorNames: IROStrings;
+begin
+  Result:= IB_GetGeneratorNames(GetDatasetClass.Create(Self));
+end;
+
+function TDAIBConnection.GetNextAutoinc(const GeneratorName: string): integer;
+begin
+  Result:= GetNextAutoinc2(GeneratorName);
+end;
+
+function TDAIBConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  Result:= IB_GetNextAutoinc(GeneratorName,GetDatasetClass.Create(Self));
+end;
+
+function TDAIBConnection.GetSPSelectSyntax(HasArguments: Boolean): string;
+begin
+  Result:= IB_GetSPSelectSyntax(HasArguments);
+end;
+
+function TDAIBConnection.IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  result := inherited IdentifierNeedsQuoting(iIdentifier);
+  if not result then result := IB_IdentifierNeedsQuoting(iIdentifier,GetSQLDialect);
+end;
+
+{ TDAIBDriver }
+
+procedure TDAIBDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  AddIBAuxParams(List);
+end;
+
+function TDAIBDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAIBDriver.GetDefaultConnectionType(const AuxDriver: string): string;
+begin
+  Result:= IB_DriverType;
+end;
+
+procedure ib_InitializeReservedWords;
+begin
+  SetLength(ib_reservedwords, 281);
+  // sorted with TStringList.Sort (bds2007)
+  ib_reservedwords[0] := 'ACTION';
+  ib_reservedwords[1] := 'ACTIVE';
+  ib_reservedwords[2] := 'ADD';
+  ib_reservedwords[3] := 'ADMIN';
+  ib_reservedwords[4] := 'AFTER';
+  ib_reservedwords[5] := 'ALL';
+  ib_reservedwords[6] := 'ALTER';
+  ib_reservedwords[7] := 'AND';
+  ib_reservedwords[8] := 'ANY';
+  ib_reservedwords[9] := 'AS';
+  ib_reservedwords[10] := 'ASC';
+  ib_reservedwords[11] := 'ASCENDING';
+  ib_reservedwords[12] := 'AT';
+  ib_reservedwords[13] := 'AUTO';
+  ib_reservedwords[14] := 'AUTODDL';
+  ib_reservedwords[15] := 'AVG';
+  ib_reservedwords[16] := 'BASE_NAME';
+  ib_reservedwords[17] := 'BASED';
+  ib_reservedwords[18] := 'BASENAME';
+  ib_reservedwords[19] := 'BEFORE';
+  ib_reservedwords[20] := 'BEGIN';
+  ib_reservedwords[21] := 'BETWEEN';
+  ib_reservedwords[22] := 'BLOB';
+  ib_reservedwords[23] := 'BLOBEDIT';
+  ib_reservedwords[24] := 'BUFFER';
+  ib_reservedwords[25] := 'BY';
+  ib_reservedwords[26] := 'CACHE';
+  ib_reservedwords[27] := 'CASCADE';
+  ib_reservedwords[28] := 'CAST';
+  ib_reservedwords[29] := 'CHAR';
+  ib_reservedwords[30] := 'CHAR_LENGTH';
+  ib_reservedwords[31] := 'CHARACTER';
+  ib_reservedwords[32] := 'CHARACTER_LENGTH';
+  ib_reservedwords[33] := 'CHECK';
+  ib_reservedwords[34] := 'CHECK_POINT_LEN';
+  ib_reservedwords[35] := 'CHECK_POINT_LENGTH';
+  ib_reservedwords[36] := 'CLOSE';
+  ib_reservedwords[37] := 'COLLATE';
+  ib_reservedwords[38] := 'COLLATION';
+  ib_reservedwords[39] := 'COLUMN';
+  ib_reservedwords[40] := 'COMMIT';
+  ib_reservedwords[41] := 'COMMITTED';
+  ib_reservedwords[42] := 'COMPILETIME';
+  ib_reservedwords[43] := 'COMPUTED';
+  ib_reservedwords[44] := 'CONDITIONAL';
+  ib_reservedwords[45] := 'CONNECT';
+  ib_reservedwords[46] := 'CONSTRAINT';
+  ib_reservedwords[47] := 'CONTAINING';
+  ib_reservedwords[48] := 'CONTINUE';
+  ib_reservedwords[49] := 'COUNT';
+  ib_reservedwords[50] := 'CREATE';
+  ib_reservedwords[51] := 'CSTRING';
+  ib_reservedwords[52] := 'CURRENT';
+  ib_reservedwords[53] := 'CURRENT_DATE';
+  ib_reservedwords[54] := 'CURRENT_TIME';
+  ib_reservedwords[55] := 'CURRENT_TIMESTAMP';
+  ib_reservedwords[56] := 'CURSOR';
+  ib_reservedwords[57] := 'DATABASE';
+  ib_reservedwords[58] := 'DATE';
+  ib_reservedwords[59] := 'DAY';
+  ib_reservedwords[60] := 'DB_KEY';
+  ib_reservedwords[61] := 'DEBUG';
+  ib_reservedwords[62] := 'DEC';
+  ib_reservedwords[63] := 'DECIMAL';
+  ib_reservedwords[64] := 'DECLARE';
+  ib_reservedwords[65] := 'DEFAULT';
+  ib_reservedwords[66] := 'DELETE';
+  ib_reservedwords[67] := 'DESC';
+  ib_reservedwords[68] := 'DESCENDING';
+  ib_reservedwords[69] := 'DESCRIBE';
+  ib_reservedwords[70] := 'DESCRIPTOR';
+  ib_reservedwords[71] := 'DISCONNECT';
+  ib_reservedwords[72] := 'DISPLAY';
+  ib_reservedwords[73] := 'DISTINCT';
+  ib_reservedwords[74] := 'DO';
+  ib_reservedwords[75] := 'DOMAIN';
+  ib_reservedwords[76] := 'DOUBLE';
+  ib_reservedwords[77] := 'DROP';
+  ib_reservedwords[78] := 'ECHO';
+  ib_reservedwords[79] := 'EDIT';
+  ib_reservedwords[80] := 'ELSE';
+  ib_reservedwords[81] := 'END';
+  ib_reservedwords[82] := 'ENTRY_POINT';
+  ib_reservedwords[83] := 'ESCAPE';
+  ib_reservedwords[84] := 'EVENT';
+  ib_reservedwords[85] := 'EXCEPTION';
+  ib_reservedwords[86] := 'EXECUTE';
+  ib_reservedwords[87] := 'EXISTS';
+  ib_reservedwords[88] := 'EXIT';
+  ib_reservedwords[89] := 'EXTERN';
+  ib_reservedwords[90] := 'EXTERNAL';
+  ib_reservedwords[91] := 'EXTRACT';
+  ib_reservedwords[92] := 'FETCH';
+  ib_reservedwords[93] := 'FILE';
+  ib_reservedwords[94] := 'FILTER';
+  ib_reservedwords[95] := 'FLOAT';
+  ib_reservedwords[96] := 'FOR';
+  ib_reservedwords[97] := 'FOREIGN';
+  ib_reservedwords[98] := 'FOUND';
+  ib_reservedwords[99] := 'FREE_IT';
+  ib_reservedwords[100] := 'FROM';
+  ib_reservedwords[101] := 'FULL';
+  ib_reservedwords[102] := 'FUNCTION';
+  ib_reservedwords[103] := 'GDSCODE';
+  ib_reservedwords[104] := 'GEN_ID';
+  ib_reservedwords[105] := 'GENERATOR';
+  ib_reservedwords[106] := 'GLOBAL';
+  ib_reservedwords[107] := 'GOTO';
+  ib_reservedwords[108] := 'GRANT';
+  ib_reservedwords[109] := 'GROUP';
+  ib_reservedwords[110] := 'GROUP_COMMIT_';
+  ib_reservedwords[111] := 'GROUP_COMMIT_WAIT';
+  ib_reservedwords[112] := 'HAVING';
+  ib_reservedwords[113] := 'HELP';
+  ib_reservedwords[114] := 'HOUR';
+  ib_reservedwords[115] := 'IF';
+  ib_reservedwords[116] := 'IMMEDIATE';
+  ib_reservedwords[117] := 'IN';
+  ib_reservedwords[118] := 'INACTIVE';
+  ib_reservedwords[119] := 'INDEX';
+  ib_reservedwords[120] := 'INDICATOR';
+  ib_reservedwords[121] := 'INIT';
+  ib_reservedwords[122] := 'INNER';
+  ib_reservedwords[123] := 'INPUT';
+  ib_reservedwords[124] := 'INPUT_TYPE';
+  ib_reservedwords[125] := 'INSERT';
+  ib_reservedwords[126] := 'INT';
+  ib_reservedwords[127] := 'INTEGER';
+  ib_reservedwords[128] := 'INTO';
+  ib_reservedwords[129] := 'IS';
+  ib_reservedwords[130] := 'ISOLATION';
+  ib_reservedwords[131] := 'ISQL';
+  ib_reservedwords[132] := 'JOIN';
+  ib_reservedwords[133] := 'KEY';
+  ib_reservedwords[134] := 'LC_MESSAGES';
+  ib_reservedwords[135] := 'LC_TYPE';
+  ib_reservedwords[136] := 'LEFT';
+  ib_reservedwords[137] := 'LENGTH';
+  ib_reservedwords[138] := 'LEV';
+  ib_reservedwords[139] := 'LEVEL';
+  ib_reservedwords[140] := 'LIKE';
+  ib_reservedwords[141] := 'LOG_BUF_SIZE';
+  ib_reservedwords[142] := 'LOG_BUFFER_SIZE';
+  ib_reservedwords[143] := 'LOGFILE';
+  ib_reservedwords[144] := 'LONG';
+  ib_reservedwords[145] := 'MANUAL';
+  ib_reservedwords[146] := 'MAX';
+  ib_reservedwords[147] := 'MAX_SEGMENT';
+  ib_reservedwords[148] := 'MAXIMUM';
+  ib_reservedwords[149] := 'MAXIMUM_SEGMENT';
+  ib_reservedwords[150] := 'MERGE';
+  ib_reservedwords[151] := 'MESSAGE';
+  ib_reservedwords[152] := 'MIN';
+  ib_reservedwords[153] := 'MINIMUM';
+  ib_reservedwords[154] := 'MINUTE';
+  ib_reservedwords[155] := 'MODULE_NAME';
+  ib_reservedwords[156] := 'MONTH';
+  ib_reservedwords[157] := 'NAMES';
+  ib_reservedwords[158] := 'NATIONAL';
+  ib_reservedwords[159] := 'NATURAL';
+  ib_reservedwords[160] := 'NCHAR';
+  ib_reservedwords[161] := 'NO';
+  ib_reservedwords[162] := 'NOAUTO';
+  ib_reservedwords[163] := 'NOT';
+  ib_reservedwords[164] := 'NULL';
+  ib_reservedwords[165] := 'NUM_LOG_BUFFERS';
+  ib_reservedwords[166] := 'NUM_LOG_BUFS';
+  ib_reservedwords[167] := 'NUMERIC';
+  ib_reservedwords[168] := 'OCTET_LENGTH';
+  ib_reservedwords[169] := 'OF';
+  ib_reservedwords[170] := 'ON';
+  ib_reservedwords[171] := 'ONLY';
+  ib_reservedwords[172] := 'OPEN';
+  ib_reservedwords[173] := 'OPTION';
+  ib_reservedwords[174] := 'OR';
+  ib_reservedwords[175] := 'ORDER';
+  ib_reservedwords[176] := 'OUTER';
+  ib_reservedwords[177] := 'OUTPUT';
+  ib_reservedwords[178] := 'OUTPUT_TYPE';
+  ib_reservedwords[179] := 'OVERFLOW';
+  ib_reservedwords[180] := 'PAGE';
+  ib_reservedwords[181] := 'PAGE_SIZE';
+  ib_reservedwords[182] := 'PAGELENGTH';
+  ib_reservedwords[183] := 'PAGES';
+  ib_reservedwords[184] := 'PARAMETER';
+  ib_reservedwords[185] := 'PASSWORD';
+  ib_reservedwords[186] := 'PLAN';
+  ib_reservedwords[187] := 'POSITION';
+  ib_reservedwords[188] := 'POST_EVENT';
+  ib_reservedwords[189] := 'PRECISION';
+  ib_reservedwords[190] := 'PREPARE';
+  ib_reservedwords[191] := 'PRIMARY';
+  ib_reservedwords[192] := 'PRIVILEGES';
+  ib_reservedwords[193] := 'PROCEDURE';
+  ib_reservedwords[194] := 'PROTECTED';
+  ib_reservedwords[195] := 'PUBLIC';
+  ib_reservedwords[196] := 'QUIT';
+  ib_reservedwords[197] := 'RAW_PARTITIONS';
+  ib_reservedwords[198] := 'RDB$DB_KEY';
+  ib_reservedwords[199] := 'READ';
+  ib_reservedwords[200] := 'REAL';
+  ib_reservedwords[201] := 'RECORD_VERSION';
+  ib_reservedwords[202] := 'REFERENCES';
+  ib_reservedwords[203] := 'RELEASE';
+  ib_reservedwords[204] := 'RESERV';
+  ib_reservedwords[205] := 'RESERVING';
+  ib_reservedwords[206] := 'RESTRICT';
+  ib_reservedwords[207] := 'RETAIN';
+  ib_reservedwords[208] := 'RETURN';
+  ib_reservedwords[209] := 'RETURNING_VALUES';
+  ib_reservedwords[210] := 'RETURNS';
+  ib_reservedwords[211] := 'REVOKE';
+  ib_reservedwords[212] := 'RIGHT';
+  ib_reservedwords[213] := 'ROLE';
+  ib_reservedwords[214] := 'ROLLBACK';
+  ib_reservedwords[215] := 'RUNTIME';
+  ib_reservedwords[216] := 'SCHEMA';
+  ib_reservedwords[217] := 'SECOND';
+  ib_reservedwords[218] := 'SEGMENT';
+  ib_reservedwords[219] := 'SELECT';
+  ib_reservedwords[220] := 'SET';
+  ib_reservedwords[221] := 'SHADOW';
+  ib_reservedwords[222] := 'SHARED';
+  ib_reservedwords[223] := 'SHELL';
+  ib_reservedwords[224] := 'SHOW';
+  ib_reservedwords[225] := 'SINGULAR';
+  ib_reservedwords[226] := 'SIZE';
+  ib_reservedwords[227] := 'SMALLINT';
+  ib_reservedwords[228] := 'SNAPSHOT';
+  ib_reservedwords[229] := 'SOME';
+  ib_reservedwords[230] := 'SORT';
+  ib_reservedwords[231] := 'SQLCODE';
+  ib_reservedwords[232] := 'SQLERROR';
+  ib_reservedwords[233] := 'SQLWARNING';
+  ib_reservedwords[234] := 'STABILITY';
+  ib_reservedwords[235] := 'STARTING';
+  ib_reservedwords[236] := 'STARTS';
+  ib_reservedwords[237] := 'STATEMENT';
+  ib_reservedwords[238] := 'STATIC';
+  ib_reservedwords[239] := 'STATISTICS';
+  ib_reservedwords[240] := 'SUB_TYPE';
+  ib_reservedwords[241] := 'SUM';
+  ib_reservedwords[242] := 'SUSPEND';
+  ib_reservedwords[243] := 'TABLE';
+  ib_reservedwords[244] := 'TERMINATOR';
+  ib_reservedwords[245] := 'THEN';
+  ib_reservedwords[246] := 'TIME';
+  ib_reservedwords[247] := 'TIMESTAMP';
+  ib_reservedwords[248] := 'TO';
+  ib_reservedwords[249] := 'TRANSACTION';
+  ib_reservedwords[250] := 'TRANSLATE';
+  ib_reservedwords[251] := 'TRANSLATION';
+  ib_reservedwords[252] := 'TRIGGER';
+  ib_reservedwords[253] := 'TRIM';
+  ib_reservedwords[254] := 'TYPE';
+  ib_reservedwords[255] := 'UNCOMMITTED';
+  ib_reservedwords[256] := 'UNION';
+  ib_reservedwords[257] := 'UNIQUE';
+  ib_reservedwords[258] := 'UPDATE';
+  ib_reservedwords[259] := 'UPPER';
+  ib_reservedwords[260] := 'USER';
+  ib_reservedwords[261] := 'USING';
+  ib_reservedwords[262] := 'VALUE';
+  ib_reservedwords[263] := 'VALUES';
+  ib_reservedwords[264] := 'VARCHAR';
+  ib_reservedwords[265] := 'VARIABLE';
+  ib_reservedwords[266] := 'VARYING';
+  ib_reservedwords[267] := 'VERSION';
+  ib_reservedwords[268] := 'VIEW';
+  ib_reservedwords[269] := 'WAIT';
+  ib_reservedwords[270] := 'WAIT_TIME';
+  ib_reservedwords[271] := 'WEEKDAY';
+  ib_reservedwords[272] := 'WHEN';
+  ib_reservedwords[273] := 'WHENEVER';
+  ib_reservedwords[274] := 'WHERE';
+  ib_reservedwords[275] := 'WHILE';
+  ib_reservedwords[276] := 'WITH';
+  ib_reservedwords[277] := 'WORK';
+  ib_reservedwords[278] := 'WRITE';
+  ib_reservedwords[279] := 'YEAR';
+  ib_reservedwords[280] := 'YEARDAY';
+end;
+
+initialization
+  ib_InitializeReservedWords;
+finalization
+  ib_reservedwords := nil;
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAInterfaces.pas
new file mode 100644
index 0000000..1d9685f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAInterfaces.pas	
@@ -0,0 +1,7005 @@
+unit uDAInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, TypInfo, DB, uROClasses, SysUtils, uDASupportClasses,
+  DataAbstract3_Intf, DataAbstract4_Intf, uROXmlIntf, FMTBcd;
+
+const
+  func_GetDriverObject = 'GetDriverObject';
+  ClientFieldPrefix = '##';
+  old_FieldPrefix = 'OLD_';
+  mapping_Unknown = '<unknown>';
+
+type
+  {$IFNDEF UNICODE}
+  UnicodeString = WideString;
+  {$ENDIF}
+{$IFDEF DELPHI6}
+  UInt64 = Int64;
+{$ENDIF}
+{$IFDEF DELPHI7}
+  UInt64 = Int64;  // otherwise C1118 error
+{$ENDIF}
+
+  TDAObjecttype = (dotTable,dotProcedure, dotView);
+  TDAChangeType = (ctInsert, ctUpdate, ctDelete);
+  TDAChangeTypes = set of TDAChangeType;
+  TDAChangeStatus = (csPending, csResolved, csFailed);
+
+  TDASQLCondition = (cEqual,
+    cDifferent,
+    cMajor,
+    cLess,
+    cMajorOrEqual,
+    cLessOrEqual,
+    cLike,
+    cIn,
+    cContaining,
+    cIsNull,
+    cIsNotNull);
+
+  TDASQLOperator = (opAND,
+    opOR,
+    opNOT);
+
+  TDADefaultOperator = (doNone, doAnd, doOr);
+
+  TDABlobType = (dabtUnknown, dabtBlob, dabtMemo, dabtOraBlob, dabtOraClob, dabtGraphic, dabtTypedBinary, dabtTimestamp);
+
+  TDAJoinType = (jtInner, jtLeftOuter, jtRightOuter, jtFullOuter, jtCross);
+
+  TDARelationshipType = (rtForeignKey, rtMasterDetail);
+
+const
+  StrSQLCondition: array[TDASQLCondition] of string = (
+    '=', '<>', '>', '<', '>=', '<=', 'LIKE', 'IN', 'CONTAINING', 'IS NULL', 'IS NOT NULL');
+
+  StrSQLOperator: array[TDASQLOperator] of string = (
+    'AND', 'OR', 'NOT');
+
+  BlobTypeMappings : array[TDABlobType] of TFieldType =
+    (ftBlob, ftBlob, ftMemo, ftOraBlob, ftOraClob, ftGraphic,ftTypedBinary, ftBlob);
+
+type
+  { Forwards }
+  IDADriver = interface;
+  IDAStoredProcedure = interface;
+  IDADataset = interface;
+  IDAConnection = interface;
+  IDASQLCommand = interface;
+  IDADataDictionary = interface;
+  IDATestableObject = interface;
+  IDAConnectionPool = interface;
+  IDAConnectionManager = interface;
+
+  TDACustomField = class;
+  TDADataset = class;
+
+  { Driver access }
+  TDAGetDriverObject = function: IDADriver; stdcall;
+
+  //TDriverErrorEvent = procedure(anErrorCode : integer; const anErrorMessage : string) of object;
+
+  EDADriverLoadException = class(Exception)
+  private
+    fErrorCode: integer;
+
+  public
+    constructor Create(anErrorCode: integer; const anErrorMessage: string);
+
+    property ErrorCode: integer read fErrorCode;
+  end;
+  EDADriverLoadExceptionClass = class of EDADriverLoadException;
+  TDADataAbstractException = EDADriverLoadException;
+  TDADataAbstractExceptionClass = class of TDADataAbstractException;
+
+  { Misc. types }
+  TDASQLStatementType = (stSQL, stStoredProcedure, stAutoSQL);
+
+  TDACommandType = (cmdInsert, cmdDelete, cmdUpdate);
+  TDACommandTypes = set of TDACommandType;
+
+  TDAPersistFormat = (pfBinary, pfXML);
+
+  TDAParamType = (daptUnknown, daptInput, daptOutput, daptInputOutput, daptResult);
+
+  TDADataType = (datUnknown,
+    datString,
+    datDateTime,
+    datFloat,
+    datCurrency,
+    datAutoInc,
+    datInteger,
+    datLargeInt,
+    datBoolean,
+    datMemo,
+    datBlob,
+    datWideString,
+    datWideMemo,
+    datLargeAutoInc,
+    datByte,
+    datShortInt,
+    datWord,
+    datSmallInt,
+    datCardinal,
+    datLargeUInt,
+    datGuid,
+    datXml,
+    datDecimal,
+    datSingleFloat);
+
+  { Forwards }
+  TDASQLCommand = class;
+  TDAStatementCollection = class;
+  TDASQLCommandCollection = class;
+  TDAParamCollection = class;
+  TDAJoinConditionCollection = class;
+  TDAUnionSourceTableCollection = class;
+
+  { TDAColumnMapping }
+  TDAColumnMapping = class(TInterfacedCollectionItem)
+  private
+    fDatasetField: string;
+    fTableField: string;
+    fSQLOrigin: string;
+    function GetSQLOrigin: string;
+    function StoreSQLOrigin: Boolean;
+    procedure SetDatasetField(const Value: string);
+    procedure SetSQLOrigin(const Value: string);
+    procedure SetTableField(const Value: string);
+
+  public
+    procedure Assign(aSource: TPersistent); override;
+    procedure AssignFieldMapping(aSource: TPersistent);
+
+  published
+    property DatasetField: string read fDatasetField write SetDatasetField;
+    property TableField: string read fTableField write SetTableField;
+    property SQLOrigin: string read GetSQLOrigin write SetSQLOrigin stored StoreSQLOrigin;
+  end;
+
+  { TDAColumnMappingCollection }
+  TDAColumnMappingCollection = class(TSearcheableCollection)
+  private
+    function GetColumnMappings(Index: integer): TDAColumnMapping;
+    procedure SetColumnMappings(Index: integer;
+      const Value: TDAColumnMapping);
+
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+
+  public
+    constructor Create(aOwner: TPersistent);
+
+    procedure AssignColumnMapping(aSource: TPersistent);
+
+    function Add: TDAColumnMapping; reintroduce;
+    function FindMappingByDatasetField(const aDatasetField: string): TDAColumnMapping;
+    function MappingByDatasetField(const aDatasetField: string): TDAColumnMapping;
+    function MappingByTableField(const aTableField: string): TDAColumnMapping;
+
+    property ColumnMappings[Index: integer]: TDAColumnMapping read GetColumnMappings write SetColumnMappings; default;
+  end;
+
+  { TDAStatement }
+  TDAStatement = class(TCollectionItem)
+  private
+    fSQL: string;
+    fStatementType: TDASQLStatementType;
+    fConnection: string;
+    fColumnMappings: TDAColumnMappingCollection;
+    fTargetTable: string;
+    fName: string;
+    fConnectionType: string;
+    fDefault: boolean;
+
+    procedure SetColumnMappings(const Value: TDAColumnMappingCollection);
+    function GetStatementCollection: TDAStatementCollection;
+    procedure SetSQL(const Value: string);
+    function GetNeedsParams: boolean;
+    function StoreSQL: Boolean;
+
+  protected
+    function GetDisplayName: string; override;
+
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+
+    procedure Assign(aSource: TPersistent); override;
+
+    property StatementCollection: TDAStatementCollection read GetStatementCollection;
+    property NeedsParams: boolean read GetNeedsParams;
+  published
+    property Connection: string read fConnection write fConnection;
+    property ConnectionType: string read fConnectionType write fConnectionType;
+    property Default: boolean read fDefault write fDefault default false;
+    property TargetTable: string read fTargetTable write fTargetTable;
+    property Name: string read fName write fName;
+    property SQL: string read fSQL write SetSQL stored StoreSQL;
+    property StatementType: TDASQLStatementType read fStatementType write fStatementType;
+    property ColumnMappings: TDAColumnMappingCollection read fColumnMappings write SetColumnMappings;
+  end;
+
+  { TDAStatementCollection }
+  TDAStatementCollection = class(TSearcheableCollection)
+  private
+    fSQLCommand: TDASQLCommand;
+
+    function GetStatements(Index: integer): TDAStatement;
+    procedure SetStatements(Index: integer; const Value: TDAStatement);
+
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+
+  public
+    constructor Create(aOwner: TPersistent; aSQLCommand: TDASQLCommand);
+
+    function Add: TDAStatement; reintroduce;
+    function FindItem(const aName: string; const aStatementName: string=''; const aConnectionType: string = ''; aReturnDefault: Boolean = false): TDAStatement; reintroduce;
+
+    function StatementByName(const aName: string): TDAStatement;
+
+    property SQLCommand: TDASQLCommand read fSQLCommand;
+    property Statements[Index: integer]: TDAStatement read GetStatements write SetStatements; default;
+  end;
+
+  { TDAUpdateRule }
+  TDAUpdateFailureBehavior = (fbRaiseException, fbLogAndContinue, fbIgnoreAndContinue);
+
+  TDAUpdateRule = class(TCollectionItem)
+  private
+    fDatasetName: string;
+    fName: string;
+    fFailureBehavior: TDAUpdateFailureBehavior;
+    fDoInsert: boolean;
+    fDoUpdate: boolean;
+    fDoDelete: boolean;
+    function GetChangeTypes: TDAChangeTypes;
+
+  protected
+    function GetDisplayName : string; override;
+
+  public
+    constructor Create(aCollection : TCollection); override;
+
+    procedure Assign(aSource: TPersistent); override;
+
+    property ChangeTypes: TDAChangeTypes read GetChangeTypes;
+
+  published
+    property Name : string read fName write fName;
+    property DoUpdate : boolean read fDoUpdate write fDoUpdate default True;
+    property DoInsert : boolean read fDoInsert write fDoInsert default True;
+    property DoDelete : boolean read fDoDelete write fDoDelete default True;
+    property DatasetName : string read fDatasetName write fDatasetName;
+
+    property FailureBehavior : TDAUpdateFailureBehavior read fFailureBehavior write fFailureBehavior;
+  end;
+
+  { TDAUpdateRuleCollection }
+  TDAUpdateRuleCollection = class(TSearcheableCollection)
+  private
+    function GetUpdateRules(Index: integer): TDAUpdateRule;
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner : TComponent);
+
+    function Add: TDAUpdateRule; reintroduce;
+    function UpdateRuleByName(const aName : string) : TDAUpdateRule;
+
+    property UpdateRules[Index : integer] : TDAUpdateRule read GetUpdateRules; default;
+  end;
+
+  { TDABaseField }
+  TDABaseField = class(TInterfacedCollectionItem)
+  private
+    fDictionaryEntry: string;
+    fSize: integer;
+    fDescription,
+    fName: string;
+    fDataType: TDADataType;
+    fValue: Variant;
+    fBlobType: TDABlobType;
+    fGeneratorName : string;
+    FDecimalPrecision: Integer;
+    FDecimalScale: Integer;
+    FTag: integer;
+    //procedure FixSize;
+    procedure UpdateValueType;
+
+  protected
+    function MergeDatadictionaries: Boolean;
+    function GetBlobSize: Integer; virtual;
+    function GetName: string; virtual;
+    procedure SetName(const Value: string); virtual;
+    function GetDataType: TDADataType;
+    procedure SetDataType(aValue: TDADataType);
+    function GetSize: integer;
+    procedure SetSize(Value: integer);
+    function GetValue: Variant; virtual;
+    procedure SetValue(const aValue: Variant); virtual;
+    function GetDescription: string;
+    procedure SetDescription(const Value: string);
+    function StoreBlobType : boolean;
+    function GetBlobType: TDABlobType;
+    procedure SetBlobType(const Value: TDABlobType); virtual;
+    function GetGeneratorName: string;
+    procedure SetGeneratorName(const aValue: string);
+
+    function GetAsBoolean: boolean; virtual;
+    function GetAsCurrency: currency; virtual;
+    function GetAsDateTime: TDateTime; virtual;
+    function GetAsFloat: double; virtual;
+    function GetAsInteger: integer; virtual;
+    function GetAsString: string; virtual;
+    function GetAsVariant: variant; virtual;
+    function GetAsLargeInt: int64; virtual;
+    function GetAsWideString: Unicodestring; virtual;
+    function GetAsByte: Byte; virtual;
+    function GetAsCardinal: Cardinal; virtual;
+    function GetAsDecimal: TBcd; virtual;
+    function GetAsGuid: TGUID; virtual;
+    function GetAsLargeUInt: UInt64; virtual;
+    function GetAsShortInt: ShortInt; virtual;
+    function GetAsSingle: Single; virtual;
+    function GetAsSmallInt: SmallInt; virtual;
+    function GetAsWord: Word; virtual;
+    function GetAsXml: IXMLNode; virtual;
+    function GetAsAnsiString: Ansistring; virtual;
+    procedure SetAsAnsiString(const aValue: Ansistring); virtual;
+    procedure SetAsByte(const Value: Byte); virtual;
+    procedure SetAsCardinal(const Value: Cardinal); virtual;
+    procedure SetAsDecimal(const Value: TBcd); virtual;
+    procedure SetAsGuid(const Value: TGUID); virtual;
+    procedure SetAsLargeUInt(const Value: UInt64); virtual;
+    procedure SetAsShortInt(const Value: ShortInt); virtual;
+    procedure SetAsSingle(const Value: Single); virtual;
+    procedure SetAsSmallInt(const Value: SmallInt); virtual;
+    procedure SetAsWord(const Value: Word); virtual;
+    procedure SetAsXml(const Value: IXMLNode); virtual;
+    procedure SetAsBoolean(const aValue: boolean); virtual;
+    procedure SetAsCurrency(const aValue: currency); virtual;
+    procedure SetAsDateTime(const aValue: TDateTime); virtual;
+    procedure SetAsString(const aValue: string); virtual;
+    procedure SetAsVariant(const aValue: variant); virtual;
+    procedure SetAsFloat(const aValue: double); virtual;
+    procedure SetAsInteger(const aValue: integer); virtual;
+    procedure SetAsLargeInt(const aValue: Int64); virtual;
+    procedure SetAsWideString(const aValue: Unicodestring); virtual;
+    function GetIsNull: boolean; virtual;
+
+    function StoreDataType: Boolean;
+    function StoreDescription: Boolean;
+    function StoreGeneratorName: Boolean;
+    function StoreSize: Boolean;
+    function StoreDecimalPrecision: Boolean;
+    function StoreDecimalScale: Boolean;
+
+    function GetDictionaryEntry: string;
+    procedure SetDictionaryEntry(const Value: string);
+    function FindDictionaryField: TDACustomField;
+    function GetDictionaryField: TDACustomField;
+
+    // Internal
+    function GetDisplayName: string; override;
+    procedure SetDisplayName(const Value: string); override;
+    function GetDecimalPrecision: Integer; virtual;
+    procedure SetDecimalPrecision(const Value: Integer);virtual;
+    function GetDecimalScale: Integer;virtual;
+    procedure SetDecimalScale(const Value: Integer);virtual;
+    function IsCompatibleV4: boolean; virtual;
+  public
+    property Value: Variant read GetValue write SetValue;
+
+    procedure Assign(Source: TPersistent); override;
+    procedure AssignField(Source: TDABaseField); virtual;
+
+    function HasValidDictionaryField: Boolean;
+
+    procedure Clear;
+
+    function GetNamePath: string; override;
+
+    property AsBoolean: boolean read GetAsBoolean write SetAsBoolean;
+    property AsCurrency: currency read GetAsCurrency write SetAsCurrency;
+    property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime; //null->0
+    property AsFloat: double read GetAsFloat write SetAsFloat; //null->0
+    property AsInteger: integer read GetAsInteger write SetAsInteger; //null->0
+    property AsString: string read GetAsString write SetAsString; //null->''
+    property AsAnsiString: Ansistring read GetAsAnsiString write SetAsAnsiString; //null->''
+    property AsVariant: variant read GetAsVariant write SetAsVariant;
+    property AsLargeInt: Int64 read GetAsLargeInt write SetAsLargeInt;
+    property AsWideString: UnicodeString read GetAsWideString write SetAsWideString;
+    property BlobSize: Integer read GetBlobSize;
+    property IsNull: boolean read GetIsNull;
+    property AsByte: Byte read GetAsByte write SetAsByte;
+    property AsShortInt: ShortInt read GetAsShortInt write SetAsShortInt;
+    property AsWord: Word read GetAsWord write SetAsWord;
+    property AsSmallInt: SmallInt read GetAsSmallInt write SetAsSmallInt;
+    property AsCardinal: Cardinal read GetAsCardinal write SetAsCardinal;
+    property AsLargeUInt: UInt64 read GetAsLargeUInt write SetAsLargeUInt;
+    property AsGuid: TGUID read GetAsGuid write SetAsGuid;
+    property AsDecimal: TBcd read GetAsDecimal write SetAsDecimal;
+    property AsXml: IXMLNode read GetAsXml write SetAsXml;
+    property AsSingle: Single read GetAsSingle write SetAsSingle;
+
+    property DictionaryEntry: string read GetDictionaryEntry write SetDictionaryEntry;
+    property Tag: integer read FTag write FTag;
+  published
+    property Name: string read GetName write SetName;
+    property DataType: TDADataType read GetDataType write SetDataType default datUnknown;
+    property Size: integer read GetSize write SetSize default 0;
+    property Description: string read GetDescription write SetDescription;
+    property BlobType: TDABlobType read GetBlobType write SetBlobType default dabtUnknown;
+    property GeneratorName : string read GetGeneratorName write SetGeneratorName;
+    property DecimalPrecision: Integer read GetDecimalPrecision write SetDecimalPrecision stored StoreDecimalPrecision;
+    property DecimalScale: Integer read GetDecimalScale write SetDecimalScale stored StoreDecimalScale;
+  end;
+
+  { TDACustomField }
+  TDAFieldNotifyEvent = procedure(Sender: TDACustomField) of object;
+  TDAFieldGetTextEvent = procedure(Sender: TDACustomField; var Text: string; DisplayText: boolean) of object;
+  TDAFieldSetTextEvent = procedure(Sender: TDACustomField; const Text: string) of object;
+
+  TDACustomFieldCollection = class;
+
+  IDANativeField = interface;
+  IDASQLCommandNativeObject = interface;
+
+  TDACustomField = class(TDABaseField)
+  private
+    fField: TField;
+    fTableField: string;
+    fCustomAttributes: TStringList;
+
+    fRequired: boolean;
+    fInPrimaryKey: boolean;
+    fRegExpression: string;
+    fDefaultValue: string;
+    fDisplayWidth: integer;
+    fDisplayLabel: string;
+    fReadOnly: boolean;
+    fVisible: boolean;
+    fEditMask: string;
+    fLogChanges: boolean;
+    fCalculated: boolean;
+    fOnChange: TDAFieldNotifyEvent;
+    fOnValidate: TDAFieldNotifyEvent;
+    fDisplayFormat: string;
+    fBusinessClassID: string;
+    fAlignment : TAlignment;
+    fEditFormat : string;
+    fLookupCache: boolean;
+    fLookupKeyFields: string;
+    fLookupResultField: string;
+    fKeyFields: string;
+    fLookupSource: TDataSource;
+    fLookup: boolean;
+    fServerAutoRefresh: boolean;
+    fSQLOrigin: string;
+    fServerCalculated: Boolean;
+    fExpression: string;
+    FNativeField: IDANativeField;
+
+    function GetDisplayLabel: string;
+
+    function StoreDisplayLabel: Boolean;
+    
+    function StoreProperties : boolean;
+
+    function GetDefaultValue: string;
+    function GetDisplayWidth: integer;
+    function GetEditMask: string;
+    function GetReadOnly: boolean;
+    function GetVisible: boolean;
+    //procedure SetBusinessRulesID(const Value: string);
+    //function GetBusinessRulesID: string;
+    function GetDisplayFormat: string;
+    function GetAlignment: TAlignment;
+    function GetEditFormat: string;
+    procedure SetAlignment(const Value: TAlignment);
+    procedure SetEditFormat(const Value: string);
+
+    procedure SetKeyFields(const Value: string);
+    procedure SetLookupCache(const Value: boolean);
+    procedure SetLookupKeyFields(const Value: string);
+    procedure SetLookupResultField(const Value: string);
+    procedure SetLookupSource(const Value: TDataSource);
+    procedure SetCalculated(const Value: boolean);
+    procedure SetLookup(const Value: boolean);
+    function GetFieldCollection: TDACustomFieldCollection;
+    {function GetNotNull: boolean;
+    procedure SetNotNull(const Value: boolean);}
+    function GetServerAutoRefresh: boolean;
+    procedure SetServerAutoRefresh(const Value: boolean);
+    function GetLogChanges: boolean;
+    function GetOldValue: Variant;
+    function GetSQLOrigin: string;
+    function GetBusinessClassID: string;
+    procedure SetBusinessClassID(const Value: string);
+    procedure SetServerCalculated(const Value: Boolean);
+    procedure SetExpression(const Value: string);
+    function StoredServerCalculated: Boolean;
+    function StoredExpression: Boolean;
+
+  protected
+    function GetOwner: TPersistent; override;
+
+    procedure SetName(const Value: string); override;
+
+    function GetInPrimaryKey: boolean;
+    function GetRegExpression: string;
+    function GetRequired: boolean;
+    procedure SetInPrimaryKey(const Value: boolean);
+    procedure SetRegExpression(const Value: string);
+    function GetBlobSize: Integer; override;
+    function GetValue: Variant; override;
+    procedure SetValue(const Value: Variant); override;
+    function GetTableField: string;
+    procedure SetTableField(const Value: string);
+    function GetCustomAttributes: TStrings;
+    procedure SetCustomAttributes(const Value: TStrings);
+    procedure SetDisplayFormat(const Value: string);
+    procedure SetBlobType(const Value: TDABlobType); override;
+
+    procedure SetRequired(const aValue: boolean);
+    procedure SetDisplayLabel(const aValue: string);
+    procedure SetVisible(const aValue: boolean);
+    procedure SetDisplayWidth(const aValue: integer);
+    procedure SetEditMask(const aValue: string);
+    procedure SetReadOnly(const aValue: boolean);
+
+    // Event hooks
+    procedure InternalOnChange(Sender: TField);
+    procedure InternalOnValidate(Sender: TField);
+
+    function GetAsBoolean: boolean; override;
+    function GetAsCurrency: currency; override;
+    function GetAsDateTime: TDateTime; override;
+    function GetAsFloat: double; override;
+    function GetAsInteger: integer; override;
+    function GetAsString: string; override;
+    function GetAsVariant: variant; override;
+    function GetAsLargeInt: int64; override;
+    function GetAsWideString: Unicodestring; override;
+    function GetAsByte: Byte; override;
+    function GetAsCardinal: Cardinal; override;
+    function GetAsDecimal: TBcd; override;
+    function GetAsGuid: TGUID; override;
+    function GetAsLargeUInt: UInt64; override;
+    function GetAsShortInt: ShortInt; override;
+    function GetAsSingle: Single; override;
+    function GetAsSmallInt: SmallInt; override;
+    function GetAsWord: Word; override;
+    function GetAsXml: IXMLNode; override;
+    procedure SetAsByte(const Value: Byte); override;
+    procedure SetAsCardinal(const Value: Cardinal); override;
+    procedure SetAsDecimal(const Value: TBcd); override;
+    procedure SetAsGuid(const Value: TGUID); override;
+    procedure SetAsLargeUInt(const Value: UInt64); override;
+    procedure SetAsShortInt(const Value: ShortInt); override;
+    procedure SetAsSingle(const Value: Single); override;
+    procedure SetAsSmallInt(const Value: SmallInt); override;
+    procedure SetAsWord(const Value: Word); override;
+    procedure SetAsXml(const Value: IXMLNode); override;
+    procedure SetAsBoolean(const aValue: boolean); override;
+    procedure SetAsCurrency(const aValue: currency); override;
+    procedure SetAsDateTime(const aValue: TDateTime); override;
+    procedure SetAsString(const aValue: string); override;
+    procedure SetAsVariant(const aValue: variant); override;
+    procedure SetAsFloat(const aValue: double); override;
+    procedure SetAsInteger(const aValue: integer); override;
+    procedure SetAsLargeInt(const aValue: Int64); override;
+    procedure SetAsWideString(const aValue: Unicodestring); override;
+    function GetAsAnsiString: Ansistring; override;
+    procedure SetAsAnsiString(const aValue: Ansistring); override;
+    function GetIsNull: boolean; override;
+    function GetDecimalPrecision: Integer; override;
+    procedure SetDecimalPrecision(const Value: Integer);override;
+    function GetDecimalScale: Integer;override;
+    procedure SetDecimalScale(const Value: Integer);override;
+    function IsCompatibleV4: boolean; override;
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+
+    function GetNamePath: string; override;
+
+    procedure Bind(aField: TField); overload;
+    procedure Bind(aField: IDANativeField); overload;
+    procedure Unbind;
+
+    procedure SaveToStream(const aStream: IROStream); overload;
+    procedure LoadFromStream(const aStream: IROStream); overload;
+    procedure SaveToStream(const aStream: TStream); overload;
+    procedure LoadFromStream(const aStream: TStream); overload;
+    procedure SaveToFile(const aFileName: string);
+    procedure LoadFromFile(const aFileName: string);
+
+    property FieldCollection : TDACustomFieldCollection read GetFieldCollection;
+
+    procedure FocusControl;
+
+    property TableField: string read GetTableField write SetTableField;
+    property SQLOrigin: string read GetSQLOrigin write fSQLOrigin;
+
+    procedure Assign(Source: TPersistent); override;
+    procedure AssignField(Source: TDABaseField); override;
+
+    property OldValue : Variant read GetOldValue;
+    property BindedField: TField read FField;
+    Property BindedNativeField: IDANativeField read FNativeField;
+  public
+    property OnChange: TDAFieldNotifyEvent read fOnChange write fOnChange;
+    property OnValidate: TDAFieldNotifyEvent read fOnValidate write fOnValidate;
+
+    property InPrimaryKey: boolean read GetInPrimaryKey write SetInPrimaryKey default False;
+
+    property Calculated: boolean read fCalculated write SetCalculated default False;
+    property Expression: string read fExpression write SetExpression stored StoredExpression;
+    property ServerCalculated: Boolean read fServerCalculated write SetServerCalculated stored StoredServerCalculated default False;
+    property Lookup : boolean read fLookup write SetLookup default False;
+
+    property LookupSource : TDataSource read fLookupSource write SetLookupSource;
+    property LookupKeyFields : string read fLookupKeyFields write SetLookupKeyFields;
+    property LookupResultField : string read fLookupResultField write SetLookupResultField;
+    property KeyFields : string read fKeyFields write SetKeyFields;
+    property LookupCache : boolean read fLookupCache write SetLookupCache default False;
+
+  published
+
+    property LogChanges: boolean read GetLogChanges write fLogChanges stored StoreProperties default true;
+
+    property RegExpression: string read GetRegExpression write SetRegExpression               stored StoreProperties;
+    property DefaultValue: string read GetDefaultValue write fDefaultValue                    stored StoreProperties;
+    property Required: boolean read GetRequired write SetRequired                             stored StoreProperties default FALSE;
+    property DisplayWidth: integer read GetDisplayWidth write SetDisplayWidth                 stored StoreProperties default 0;
+    property DisplayLabel: string read GetDisplayLabel write SetDisplayLabel                  stored StoreDisplayLabel;
+    property EditMask: string read GetEditMask write SetEditMask                              stored StoreProperties;
+    property Visible: boolean read GetVisible write SetVisible                                stored StoreProperties default TRUE;
+    property ReadOnly: boolean read GetReadOnly write SetReadOnly                             stored StoreProperties default FALSE;
+    property CustomAttributes: TStrings read GetCustomAttributes write SetCustomAttributes    stored StoreProperties;
+    property DisplayFormat: string read GetDisplayFormat write SetDisplayFormat               stored StoreProperties;
+    //property BusinessRulesID : string read GetBusinessRulesID write SetBusinessRulesID        stored StoreProperties;
+    property BusinessClassID : string read GetBusinessClassID write SetBusinessClassID        stored StoreProperties;
+    property EditFormat : string read GetEditFormat write SetEditFormat                       stored StoreProperties;
+    property Alignment :  TAlignment read GetAlignment write SetAlignment                     stored StoreProperties default taLeftJustify;
+    property ServerAutoRefresh : boolean read GetServerAutoRefresh write SetServerAutoRefresh default FALSE;
+  end;
+
+  TDAField = class(TDACustomField)
+  protected
+    function GetDisplayName: string; override;
+  published
+    property DictionaryEntry;
+
+    property InPrimaryKey;
+    property Calculated;
+    property Expression;
+    property ServerCalculated;
+
+    property OnChange;
+    property OnValidate;
+
+    property Lookup;
+
+    property LookupSource;
+    property LookupKeyFields;
+    property LookupResultField;
+    property KeyFields;
+    property LookupCache;
+  end;
+
+  TDADataDictionaryField = class(TDACustomField)
+  end;
+
+  TDAFieldClass = class of TDACustomField;
+
+  { TDACustomFieldCollection }
+  TDACustomFieldCollection = class(TSearcheableInterfacedCollection)
+  private
+    fDataDictionary: IDADataDictionary;
+    fFieldEventsDisabled: boolean;
+    fFieldBeforeUpdate,
+    fFieldAfterUpdate: TDAFieldNotifyEvent;
+    fIsCompatibleV4: boolean;
+    function GetFields(Index: integer): TDACustomField;
+    procedure SetFields(Index: integer; const Value: TDACustomField);
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner: TPersistent; aFieldClass: TDAFieldClass);
+
+    procedure Bind(aDataset: TDataset);overload;
+    procedure Bind(aNativeObject: IDASQLCommandNativeObject);overload;
+    procedure Unbind;
+
+    property FieldEventsDisabled:boolean read fFieldEventsDisabled write fFieldEventsDisabled default false;
+
+    function Add: TDAField; reintroduce; overload;
+    function Add(const aName: string; aType: TDADataType; aSize: integer = 0): TDACustomField; overload;
+
+    procedure Assign(Source: TPersistent); override;
+    procedure AssignFieldCollection(Source: TDACustomFieldCollection);
+
+    function FieldByName(const aName: string): TDACustomField;
+    function FindField(const aName: string): TDACustomField;
+
+    property DataDictionary: IDADataDictionary read fDataDictionary write fDataDictionary;
+
+    property Fields[Index: integer]: TDACustomField read GetFields write SetFields; default;
+
+    property OnFieldBeforeUpdate: TDAFieldNotifyEvent read fFieldBeforeUpdate write fFieldBeforeUpdate;
+    property OnFieldAfterUpdate: TDAFieldNotifyEvent read fFieldAfterUpdate write fFieldAfterUpdate;
+    property IsCompatibleV4: boolean read fIsCompatibleV4 write fIsCompatibleV4;
+  end;
+
+  TDAFieldCollection = class(TDACustomFieldCollection)
+  private
+    function GetFields(Index: integer): TDAField;
+    procedure SetFields(Index: integer; const Value: TDAField);
+  public
+    constructor Create(aOwner: TPersistent);
+
+    function FieldByName(const aName: string): TDAField; reintroduce;
+    function FindField(const aName: string): TDAField;
+    property Fields[Index: integer]: TDAField read GetFields write SetFields; default;
+  end;
+
+  TDADriverForeignKey = class(TInterfacedCollectionItem)
+  private
+    fValues:array[0..3] of string;
+    fName: string;
+    function GetValue(const Index: Integer): string;
+    procedure SetValue(const Index: Integer; const Value: string);
+  published
+    property Name: string read fName write fName;
+    property FKTable: string index 0 read GetValue write SetValue;
+    property PKTable: string index 1 read GetValue write SetValue;
+    property FKField: string index 2 read GetValue write SetValue;
+    property PKField: string index 3 read GetValue write SetValue;
+  end;
+
+  TDADriverForeignKeyCollection = class(TInterfacedCollection)
+  private
+    function GetForeignKeys(Index: integer): TDADriverForeignKey;
+    procedure SetForeignKeys(Index: integer; const Value: TDADriverForeignKey);
+  public
+    constructor Create(aOwner: TPersistent);
+    function Add: TDADriverForeignKey; reintroduce; overload;
+
+    //procedure Assign(Source: TPersistent); override;
+    //procedure AssignFieldCollection(Source: TDACustomFieldCollection);
+
+    property ForeignKeys[Index: integer]: TDADriverForeignKey read GetForeignKeys write SetForeignKeys; default;
+  end;
+
+  TDADataDictionaryFieldCollection = class(TDACustomFieldCollection)
+  end;
+
+  { TDAParam }
+  TDAParam = class(TDABaseField)
+  private
+    fParamType: TDAParamType;
+
+    function GetParamType: TDAParamType;
+    procedure SetParamType(Value: TDAParamType);
+  protected
+    procedure SetValue(const aValue: Variant); override;
+  public
+    procedure SaveToStream(const aStream: IROStream);
+    procedure LoadFromStream(const aStream: IROStream);
+    procedure SaveToFile(const aFileName: string);
+    procedure LoadFromFile(const aFileName: string);
+    procedure AssignField(Source: TDABaseField); override;
+    procedure AssignParam(Source: TDAParam); virtual;
+
+  published
+    property Value stored true;
+    property AsString stored false;
+    property ParamType: TDAParamType read GetParamType write SetParamType default daptUnknown;
+  end;
+
+  { TDAParamCollection }
+  TDAParamCollection = class(TSearcheableInterfacedCollection) // They are used also by the driver commands/datasets
+  private
+    function GetParams(Index: integer): TDAParam;
+    procedure SetParams(Index: integer; const Value: TDAParam);
+    function GetHasInputParams: boolean;
+
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner: TPersistent);
+
+    procedure WriteValues(OutputParams: TParams);
+    procedure ReadValues(InputParams: TParams);
+
+    function Add: TDAParam; reintroduce;
+
+    function ParamByName(const aName: string): TDAParam;
+    function FindParam(const aParamName: string): TDAParam;
+
+    procedure Assign(Source: TPersistent); override;
+    procedure AssignParamCollection(Source: TDAParamCollection);
+
+    property Params[Index: integer]: TDAParam read GetParams write SetParams; default;
+    property HasInputParams:boolean read GetHasInputParams;
+  end;
+
+  { TDASQLCommand }
+  TDASQLCommand = class(TCollectionItem)
+  private
+    fName: string;
+    fDescription: string;
+    fStatements: TDAStatementCollection;
+    fParams: TDAParamCollection;
+    fCustomAttributes: TStrings;
+    fIsPublic: Boolean;
+    FDynamicWhereXML: UnicodeString;
+
+    procedure SetName(const Value: string);
+    procedure SetCustomAttributes(const Value: TStrings);
+    procedure SetDynamicWhereXML(const Value: UnicodeString);
+
+  protected
+    function GetDisplayName: string; override;
+    procedure SetDisplayName(const Value: string); override;
+    function GetParams: TDAParamCollection; virtual;
+    procedure SetParams(const Value: TDAParamCollection); virtual;
+    function GetStatements(): TDAStatementCollection; virtual;
+    procedure SetStatements(const Value: TDAStatementCollection); virtual;
+    function GetSQLCommandCollection: TDASQLCommandCollection; virtual;
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+
+    function ParamByName(const aName: string): TDAParam;
+
+    procedure Assign(aSource: TPersistent); override;
+
+    property SQLCommandCollection: TDASQLCommandCollection read GetSQLCommandCollection;
+
+  published
+    property IsPublic: Boolean read fIsPublic write fIsPublic default True;
+    property Params: TDAParamCollection read GetParams write SetParams;
+    property Statements: TDAStatementCollection read GetStatements write SetStatements;
+    property Name: string read fName write SetName;
+    property Description: string read fDescription write fDescription;
+    property CustomAttributes: TStrings read fCustomAttributes write SetCustomAttributes;
+    property DynamicWhereXML : UnicodeString read FDynamicWhereXML write SetDynamicWhereXML;
+  end;
+
+  TDASQLCommandClass = class of TDASQLCommand;
+
+  { TDASQLCommandCollection }
+  TDASQLCommandCollection = class(TSearcheableCollection)
+  private
+    function GetSQLCommands(Index: integer): TDASQLCommand;
+    procedure SetSQLCommands(Index: integer; const Value: TDASQLCommand);
+
+  protected
+    function GetItemClass: TDASQLCommandClass; virtual;
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner: TComponent);
+
+    function Add: TDASQLCommand; reintroduce;
+
+    function SQLCommandByName(const aName: string): TDASQLCommand;
+
+    property SQLCommands[Index: integer]: TDASQLCommand read GetSQLCommands write SetSQLCommands; default;
+  end;
+
+  TROSEScriptLanguage = (rslPascalScript);
+
+  TDABusinessRuleScript = class(TPersistent)
+  private
+    fScriptLanguage: TROSEScriptLanguage;
+    fScript: string;
+    fDescription: string;
+  published
+    property Script: string read fScript write fScript;
+    property ScriptLanguage: TROSEScriptLanguage read fScriptLanguage write fScriptLanguage default rslPascalScript;
+    property Description: string read fDescription write fDescription;
+  end;
+
+  TDAClientBusinessRuleScript = class(TDABusinessRuleScript)
+  private
+    fRunOnClientAndServer: boolean;
+    fCompileOnServer: boolean;
+  published
+    constructor Create();
+    property CompileOnServer: boolean read fCompileOnServer write fCompileOnServer default true;
+    property RunOnClientAndServer: boolean read fRunOnClientAndServer write fRunOnClientAndServer default true;
+  end;
+
+  { TDADatasetRelationship }
+  TDADatasetRelationship = class(TCollectionItem)
+  private
+    fDetailFields: string;
+    fMasterFields: string;
+    fDetailDatasetName: string;
+    fMasterDatasetName: string;
+    fName: string;
+    fDescription: string;
+    fRelationshipType: TDARelationshipType;
+  protected
+    function GetDisplayName : string; override;
+  public
+    constructor Create(Collection: TCollection); override;
+  published
+    procedure Assign(Source : TPersistent); override;
+
+    property Name : string read fName write fName;
+    property MasterDatasetName : string read fMasterDatasetName write fMasterDatasetName;
+    property MasterFields : string read fMasterFields write fMasterFields;
+    property DetailDatasetName : string read fDetailDatasetName write fDetailDatasetName;
+    property DetailFields : string read fDetailFields write fDetailFields;
+    property Description: string read fDescription write fDescription;
+    property RelationshipType: TDARelationshipType read fRelationshipType write fRelationshipType;
+  end;
+
+  { TDADatasetRelationshipList }
+  TDADatasetRelationshipList = class(TList)
+  private
+    function GetItems(Index: integer): TDADatasetRelationship;
+  protected
+  public
+    function Add(aRelationship : TDADatasetRelationship) : integer; reintroduce;
+
+    property Items[Index : integer] : TDADatasetRelationship read GetItems; default;
+  end;
+
+  { TDADatasetRelationshipCollection }
+  TDADatasetRelationshipCollection = class(TSearcheableCollection)
+  private
+    function GetRelationShips(Index: integer): TDADatasetRelationship;
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner : TComponent);
+    procedure GetDetails(const aMasterDatasetName: string; aList: TDADatasetRelationshipList);
+
+    function Add: TDADatasetRelationship; overload;
+    function RelationshipExists(const aMasterDatasetName, aDetailDatasetName, aMasterFields, aDetailFields: string): Boolean;
+    function RelationShipByName(const aName : string) : TDADatasetRelationship;
+
+    property RelationShips[Index : integer] : TDADatasetRelationship read GetRelationShips; default;
+  end;
+
+  { TDADataset }
+  TDADataset = class(TDASQLCommand)
+  private
+    fFields: TDAFieldCollection;
+    fBusinessClassID: string;
+    fBusinessRulesServer: TDABusinessRuleScript;
+    fBusinessRulesClient: TDAClientBusinessRuleScript;
+    fReadOnly: Boolean;
+
+    procedure SetFields(const Value: TDAFieldCollection);
+    procedure SetBusinessRulesClient(const Value: TDAClientBusinessRuleScript);
+    procedure SetBusinessRulesServer(const Value: TDABusinessRuleScript);
+
+  protected
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+
+    procedure Assign(aSource: TPersistent); override;
+
+    function FieldByName(const aName: string): TDAField;
+    function FindField(const aName: string): TDAField;
+  published
+    property Fields: TDAFieldCollection read fFields write SetFields;
+    property BusinessClassID : string read fBusinessClassID write fBusinessClassID;
+    property ReadOnly: Boolean read fReadOnly write fReadOnly default False;
+
+    property BusinessRulesClient: TDAClientBusinessRuleScript read fBusinessRulesClient write SetBusinessRulesClient;
+    property BusinessRulesServer: TDABusinessRuleScript read fBusinessRulesServer write SetBusinessRulesServer;
+  end;
+
+  { TDADatasetCollection }
+  TDADatasetCollection = class(TDASQLCommandCollection)
+  private
+    function GetDatasets(Index: integer): TDADataset;
+    procedure SetDatasets(Index: integer; const Value: TDADataset);
+  protected
+    function GetItemClass: TDASQLCommandClass; override;
+
+  public
+    function Add: TDADataset; reintroduce;
+
+    function DatasetByName(const aName: string): TDADataset;
+    function FindDatasetByName(const aName: string): TDADataset;
+
+    property Datasets[Index: integer]: TDADataset read GetDatasets write SetDatasets; default;
+  end;
+
+  { TDAJoinSourceTable }
+  TDAJoinSourceTable = class(TCollectionItem)
+  private
+    fName: String;
+    fJoinType: TDAJoinType;
+    fJoinConditions: TDAJoinConditionCollection;    
+  protected
+    function GetDisplayName : string; override;
+    procedure SetName(const Value: string);
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+	  procedure Assign(aSource: TPersistent); override;
+  published
+    property Name: string read fName write SetName;
+    property JoinType: TDAJoinType read fJoinType write fJoinType;
+    property JoinConditions: TDAJoinConditionCollection read fJoinConditions;
+  end;
+
+  { TDAJoinSourceTableCollection }
+  TDAJoinSourceTableCollection = class(TSearcheableCollection)
+  private
+    function GetJoinSourceTables(Index: integer): TDAJoinSourceTable;
+    procedure SetJoinSourceTables(Index: integer; const Value: TDAJoinSourceTable);
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner: TPersistent);
+    function Add: TDAJoinSourceTable; reintroduce;
+    function JoinSourceTableByName(const aName: string): TDAJoinSourceTable;
+    property JoinSourceTables[Index:Integer]: TDAJoinSourceTable read GetJoinSourceTables write SetJoinSourceTables;
+  end;
+
+  { TDAJoinCondition }
+  TDAJoinCondition = class(TCollectionItem)
+  private
+    fFromTableName: String;
+    fFromFieldName: String;
+    fToTableName: String;
+    fToFieldName: String;
+  published
+    property FromTableName: String read fFromTableName write fFromTableName;
+    property FromFieldName: String read fFromFieldName write fFromFieldName;
+    property ToTableName: String read fToTableName write fToTableName;
+    property ToFieldName: String read fToFieldName write fToFieldName;
+  end;
+
+  { TDAJoinConditionCollection }
+  TDAJoinConditionCollection = class(TOwnedCollection)
+  private
+  public
+    constructor Create(aOwner: TPersistent);
+    function Add: TDAJoinCondition; reintroduce;
+  end;
+
+
+  { TDAJoinDataTable }
+  TDAJoinDataTable = class(TDADataset)
+  private
+    fMasterTable: String;
+    fJoinSourceTables: TDAJoinSourceTableCollection;
+    procedure SetJoinSourceTables(const Value: TDAJoinSourceTableCollection);
+  protected
+    function GetParams: TDAParamCollection; override;
+    procedure SetParams(const Value: TDAParamCollection); override;
+    function GetStatements(): TDAStatementCollection; override;
+    procedure SetStatements(const Value: TDAStatementCollection); override;
+    function GetSQLCommandCollection: TDASQLCommandCollection; override;
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+    procedure Assign(aSource: TPersistent); override;
+    property Params;
+    property Statements;
+  published
+    property JoinSourceTables: TDAJoinSourceTableCollection read fJoinSourceTables write SetJoinSourceTables;
+    property MasterTable: String read fMasterTable write fMasterTable;
+  end;
+
+  TDAJoinDataTableClass = class of TDAJoinDataTable;
+
+  { TDAJoinedTableCollection }
+  TDAJoinDataTableCollection = class(TSearcheableCollection)
+  private
+    function GetJoinDataTables(Index: integer): TDAJoinDataTable;
+    procedure SetJoinDataTables(Index: integer; const Value: TDAJoinDataTable);
+  protected
+    //function GetItemClass: TDAJoinedTableClass; override;
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner : TComponent);
+    function Add: TDAJoinDataTable; reintroduce;
+    function JoinTableByName(const aName: string): TDAJoinDataTable;
+    function FindJoinTableByName(const aName: string): TDAJoinDataTable;
+    property JoinTables[Index: integer]: TDAJoinDataTable read GetJoinDataTables write SetJoinDataTables; default;
+  end;
+
+  {TDAUnionSourceTable}
+  TDAUnionSourceTable = class(TCollectionItem)
+  private
+    fName: string;
+    fColumnMappings: TDAColumnMappingCollection;
+    fReadOnly: Boolean;
+    procedure SetColumnMappings(const Value: TDAColumnMappingCollection);
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Name: string read fName write fName;
+    property ColumnMappings: TDAColumnMappingCollection read fColumnMappings write SetColumnMappings;
+    property IsReadOnly: Boolean read fReadOnly write fReadOnly;
+  end;
+
+  {TDAUnionSourceTableCollection}
+  TDAUnionSourceTableCollection = class(TSearcheableCollection)
+  private
+    function GetUnionSourceTables(Index: integer): TDAUnionSourceTable;
+  protected
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner : TPersistent);
+
+    function Add: TDAUnionSourceTable; reintroduce;
+    function UnionSourceTableByName(const aName : string) : TDAUnionSourceTable;
+
+    property UnionSourceTables[Index : integer] : TDAUnionSourceTable read GetUnionSourceTables; default;
+  end;
+
+  {TDAUnionDataTable}
+  TDAUnionDataTable = class(TDADataset)
+  private
+    fDefaultSourceTable: string;
+    fSourceTables: TDAUnionSourceTableCollection;
+    procedure SetSourceTables(Value: TDAUnionSourceTableCollection);
+  protected
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+    property Params;
+    property Statements;
+  published
+    property SourceTables: TDAUnionSourceTableCollection read fSourceTables write SetSourceTables;
+    property DefaultSourceTable: String read fDefaultSourceTable write fDefaultSourceTable;
+  end;
+
+  { TDAUnionDataTableCollection }
+  TDAUnionDataTableCollection = class(TSearcheableCollection)
+  private
+    function GetUnionDataTables(Index: integer): TDAUnionDataTable;
+    procedure SetUnionDataTables(Index: integer; const Value: TDAUnionDataTable);
+  protected
+    //function GetItemClass: TDAJoinedTableClass; override;
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner : TComponent);
+    function Add: TDAUnionDataTable; reintroduce;
+    function UnionDataTableByName(const aName: string): TDAUnionDataTable;
+    function FindUnionDataTableByName(const aName: string): TDAUnionDataTable;
+    property UnionDataTables[Index: integer]: TDAUnionDataTable read GetUnionDataTables write SetUnionDataTables; default;
+  end;
+
+  { TDAConnection }
+  TDAConnection = class(TCollectionItem)
+  private
+    fDescription: string;
+    fConnectionString: string;
+    fConnectionType: string;
+    fName: string;
+    fDefault: boolean;
+    fTag: integer;
+    procedure SetDefault(const Value: boolean);
+    procedure SetName(const Value: string);
+
+  protected
+    function GetDisplayName: string; override;
+    procedure SetDisplayName(const Value: string); override;
+
+    function GetConnectionString: string; virtual;
+    procedure SetConnectionString(const aValue: string); virtual;
+
+  public
+    procedure Assign(aSource: TPersistent); override;
+
+  published
+    property Name: string read fName write SetName;
+    property ConnectionString: string read GetConnectionString write SetConnectionString;
+    property Description: string read fDescription write fDescription;
+    property ConnectionType: string read fConnectionType write fConnectionType;
+    property Default: boolean read fDefault write SetDefault default False;
+    property Tag: integer read fTag write fTag default 0;
+  end;
+
+  { TDAConnectionCollection }
+  TDAConnectionCollection = class(TSearcheableCollection)
+  private
+    function GetConnections(Index: integer): TDAConnection;
+    procedure SetConnections(Index: integer; const Value: TDAConnection);
+    procedure ClearDefaults(iExceptFor: TDAConnection);
+  protected
+    function ItemName: string; override;
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; override;
+    function GetItemName(anItem: TCollectionItem): string; override;
+  public
+    constructor Create(aOwner: TPersistent);
+
+    function Add: TDAConnection; reintroduce;
+    function ConnectionByName(const aName: string): TDAConnection;
+    function FindConnection(const aName: string; const aType: string): TDAConnection;
+
+    function GetDefaultConnection : TDAConnection;
+
+    property Connections[Index: integer]: TDAConnection read GetConnections write SetConnections; default;
+    property OnItemRenamed;
+    property OnItemRemoved;
+  end;
+
+  EDADriverAlreadyLoaded = class(EDADriverLoadException);
+  EDASchemaModelerOnly = class(EDADriverLoadException);
+
+  IDADataDictionary = interface
+  ['{34078D79-6310-494C-BA92-0FC187B275BE}']
+    procedure SetFields(const Value: TDADataDictionaryFieldCollection);
+    function GetFields: TDADataDictionaryFieldCollection;
+    property Fields: TDADataDictionaryFieldCollection read GetFields write SetFields;
+  end;
+
+  IDAHasDataDictionary = interface
+  ['{A25ADACE-BBD7-4A04-84A9-B9B699389E3D}']
+    function GetDataDictionary: IDADataDictionary;
+    property DataDictionary: IDADataDictionary read GetDataDictionary;
+  end;
+  { IDADriverManager
+      Provides access to all the functionality needed to load, unload and verify drivers.
+      Access to this interface is obtained using a TDADriverManager component.
+      There can only be one driver manager loaded at any give time in one application. }
+  IDADriverManager = interface
+    ['{5B6B8C91-F91A-4A25-8B6F-CF7959275682}']
+    // Properties readers/writers
+    function GetDrivers(Index: integer): IDADriver;
+    function GetDriverCount: integer;
+
+    // Methods
+    procedure LoadDriver(const aFileName: string);
+    procedure UnloadDriver(anIndex: integer);
+
+    procedure LoadDrivers;overload;
+    procedure LoadDrivers(const aDriverList: IROStrings; aIgnoreDuplicates: boolean = false; aIgnoreErrors: boolean = false);overload;
+    procedure UnloadAllDrivers;
+
+    function ListDrivers(const aDirectory: string; out FileNames: IROStrings): integer;
+
+    function FindDriver(const aDriverID: string; out Driver: IDADriver): boolean;
+    function DriverByDriverID(const aDriverID: string): IDADriver;
+
+    // Properties
+    property Drivers[Index: integer]: IDADriver read GetDrivers; default;
+    property DriverCount: integer read GetDriverCount;
+  end;
+
+  TDAAvailableDriverOption = (doAuxDriver, doServerName, doDatabaseName, doLogin, doCustom);
+  TDAAvailableDriverOptions = set of TDAAvailableDriverOption;
+
+  TDADriverHelpType = (dhConnectionWizard);
+
+  { IDADriver
+      An object implementing this interface is returned by the Data Abstract drivers. You get a reference to
+      it by calling the DLL's exported function GetDriverObject. If the DLL doesn't support this method, it is
+      not a Data Abstract driver. Once you retrieve a reference to this object you can query it for additional
+      interfaces such as IDAConnectionPool and obtain access to additional functionality. Not all drivers implement
+      the same number of interfaces. }
+
+  TDATraceSource = (tsUnknown, tsConnection, tsDataset, tsCommand);
+  TDATraceOption = (toPrepare,
+    toExecute,
+    toFetch,
+    toError,
+    toStmt,
+    toConnect,
+    toTransact,
+    toBlob,
+    toService,
+    toMisc,
+    toParams);
+  TDATraceOptions = set of TDATraceOption;
+
+  TDALogTraceEvent = procedure(Sender: TObject; const Text: string; Tag: integer) of object;
+
+  IDADriver = interface
+    ['{1829ABED-299B-4698-9803-DBABCF5443FA}']
+    // Properties readers/writers
+    function GetDriverID: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDescription: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetMajVersion: byte; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetMinVersion: byte; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Methods
+    procedure Initialize; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Finalize; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function NewConnection(const aName: string = '';const aConnectionType: string = ''): IDAConnection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} overload; {deprecated;}
+    function NewConnection(const aConnectionManager: IDAConnectionManager; aConnectionDefinition: TDAConnection): IDAConnection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} overload;
+
+    procedure SetTraceOptions(TraceActive: boolean; TraceOptions: TDATraceOptions; Callback: TDALogTraceEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptionsEx(AuxDriver: string): TDAAvailableDriverOptions; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDefaultCustomParameters: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Properties
+    property DriverID: string read GetDriverID;
+    property Description: string read GetDescription;
+    property MajVersion: byte read GetMajVersion;
+    property MinVersion: byte read GetMinVersion;
+
+    procedure GetAuxDrivers(out List: IROStrings); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDefaultConnectionType(const AuxDriver: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  IDADriver30 = interface(IDADriver)
+    ['{F14A6526-CE1F-4A6B-BC4D-3892BA712FE2}']
+    function GetDriverHelp(aType: TDADriverHelpType): string;
+  end;
+
+  IDADriver40 = interface(IDADriver30)
+    ['{82903957-974A-4E1F-B91C-C07F608A96A9}']
+    function GetProviderDefaultCustomParameters(Provider: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  IDACanQueryDatabaseNames = interface
+  ['{67870220-37E2-4510-BD6A-627EADED75ED}']
+    function GetDatabaseNames: IROStrings;
+  end;
+
+  IDAFileBasedDatabase = interface
+  ['{C37EA8EE-9AC7-44F3-863C-EFB1581D4D57}']
+    function GetFileExtensions: IROStrings;
+  end;
+
+  IDADirectoryBasedDatabase = interface
+  ['{40C102F0-B86E-4CD6-AB3D-4B0903723A5D}']
+  end;
+
+  { IDAConnectionObjectAccess
+      Provides access to the internal connection component and facilitates access to its
+      properties in form of a collection of properties. This interface is useful when you want
+      to complete control of the internal object. In order to use this interface you need
+      to use ShareMem or FastShareMem. }
+  IDAConnectionObjectAccess = interface
+    ['{FF8F2319-4EAE-4A2B-8713-A6E6B3F5E48A}']
+    // Properties readers/writers
+    function GetConnectionObject: TObject; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetConnectionProperties(const aPropertyName: string): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetConnectionProperties(const aPropertyName: string; const aValue: Variant); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Properties
+    property ConnectionObject: TObject read GetConnectionObject;
+    property ConnectionProperties[const aPropertyName: string]: Variant read GetConnectionProperties write SetConnectionProperties;
+  end;
+
+  TDAQuoteCharArray = array[0..1] of char;
+
+  TDABeforeOpenDatasetEvent = procedure(const Sender: IDADataset) of object;
+  TDAAfterOpenDatasetEvent = procedure(const Sender: IDADataset; ActualSQL: string; ElapsedMilliseconds: Cardinal) of object;
+  TDAOpenDatasetErrorEvent = procedure(const Sender: IDADataset; ActualSQL: string; Error: Exception) of object;
+
+  TDABeforeExecuteCommandEvent = procedure(const Sender: IDASQLCommand) of object;
+  TDAAfterExecuteCommandEvent = procedure(const Sender: IDASQLCommand; ActualSQL: string; ElapsedMilliseconds: Cardinal) of object;
+  TDAExecuteCommandErrorEvent = procedure(const Sender: IDASQLCommand; ActualSQL: string; Error: Exception) of object;
+
+  { TDAWhereBuilder }
+
+  TDAWhereBuilder = class;
+  TDAWhereExpression = class(TObject)
+  private
+  public
+    class function ParseExpression(xr: IXmlNode): TDAWhereExpression;
+
+    procedure ReadFromXml(xr: IXmlNode); virtual; abstract;
+    procedure WriteToXml(sw: IXmlNode); virtual; abstract;
+    procedure Validate; virtual;
+  end;
+
+  TDABinaryOperator = (dboAnd, dboOr, dboXor, dboLess, dboLessOrEqual, dboGreater,
+    dboGreaterOrEqual, dboNotEqual, dboEqual, dboLike, dboIn, dboAddition, dboSubtraction,
+    dboMultiply, dboDivide, dboNotIn);
+  TDAUnaryOperator = (duoNot, duoMinus);
+
+  TDAWhereBuilder = class
+  private
+    fExpression: TDAWhereExpression;
+    FColumnMapping: TDAColumnMappingCollection;// for TDAESQLCommand
+    fParams: TDAParamCollection;
+    function getXml: UnicodeString;
+    procedure setXml(const aValue: UnicodeString);
+    procedure SetColumnMapping(const Value: TDAColumnMappingCollection);
+    procedure SetParams(const Value: TDAParamCollection);
+    procedure RemoveEmptyNodes(const ANode:IXMLNode);
+  protected
+    function ReadFromXml(xr: IXmlNode): TDAWhereExpression; virtual;
+    procedure WriteToXml(sw: IXmlNode; const aExpression: TDAWhereExpression); virtual;
+  public
+    constructor Create;
+
+    destructor Destroy; override;
+
+    property Expression: TDAWhereExpression read fExpression write FExpression;
+
+    property Xml: UnicodeString read GetXml write SetXml;
+    function NewBinaryExpression(aLeft, aRight: TDAWhereExpression; anOp: TDABinaryOperator): TDAWhereExpression;overload;
+    function NewBinaryExpression(const aTableName,aFieldName: string; anOp: TDABinaryOperator; const aValue: variant; aType: TDADataType): TDAWhereExpression; overload;
+    function NewUnaryExpression(anExpression: TDAWhereExpression; anOp: TDAUnaryOperator): TDAWhereExpression;
+    function NewConstant(const aValue: Variant; aType: TDADataType): TDAWhereExpression;
+    function NewList(const aValues: array of TDAWhereExpression): TDAWhereExpression;
+    function NewParameter(const aParameterName: string): TDAWhereExpression;
+    function NewField(const aTableName,aFieldName: string): TDAWhereExpression;
+    function NewNull: TDAWhereExpression;
+    function NewIsNotNull: TDAWhereExpression; overload;
+    function NewIsNotNull(const aTableName,aFieldName: string): TDAWhereExpression; overload;
+    function NewMacro(const aName: string): TDAWhereExpression; overload;
+    function NewMacro(const aName: string; const aValues: array of TDAWhereExpression): TDAWhereExpression; overload;
+    procedure Clear;
+    function IsEmpty:Boolean;
+    property ColumnMapping: TDAColumnMappingCollection read FColumnMapping write SetColumnMapping;
+    property Params: TDAParamCollection read fParams write SetParams;
+    function ExpressionToXmlNode(const aExpression: TDAWhereExpression): IXMLNode;
+    function XMLToExpression(const aXML: UnicodeString):TDAWhereExpression;
+  end;
+
+  TDASimpleQueryBuilder = class;
+  TDASQLWhereBuilder = class(TDAWhereBuilder)
+  private
+    FId: Integer;
+    FConnection: IDAConnection;
+    FQueryBuilder: TDASimpleQueryBuilder;
+    function GenerateParamName: String;
+    function GenerateParameter(const aParameterName: string):string;
+    function GetMappingTableField(const aDataSetField: string): string;
+  protected
+    function GenerateFieldName(aTablename, aFieldName: string):string; virtual;
+    function ProcessExpression(AExpression: TDAWhereExpression): string;
+    function ProcessBinaryExpression(AExpression: TDAWhereExpression): string; virtual; abstract;
+    function ProcessUnaryExpression(AExpression: TDAWhereExpression): string; virtual; abstract;
+    function ProcessConstantExpression(AExpression: TDAWhereExpression): string; virtual;
+    function ProcessListExpression(AExpression: TDAWhereExpression): string; virtual;
+    function ProcessParameterExpression(AExpression: TDAWhereExpression): string; virtual;
+    function ProcessFieldExpression(AExpression: TDAWhereExpression): string; virtual;
+    function ProcessNullExpression(AExpression: TDAWhereExpression): string; virtual; abstract;
+    function ProcessMacroExpression(AExpression: TDAWhereExpression): string; virtual;
+  public
+    constructor Create(AConnection: IDAConnection); overload;
+    constructor Create(AQueryBuilder: TDASimpleQueryBuilder); overload;
+    function CreateWhereClause: string;
+    property Connection: IDAConnection read FConnection;
+    property QueryBuilder: TDASimpleQueryBuilder read FQueryBuilder;
+  end;
+
+  { TDASimpleQueryBuilder }
+
+  TDATableFieldCollectionItem = class(TCollectionItem)
+  private
+    FFieldName: string;
+    FTableName: string;
+  public
+    procedure Assign(Source: TPersistent); override;
+    property TableName: string read FTableName write FTableName;
+    property FieldName: string read FFieldName write FFieldName;
+  end;
+
+  TDASelectItem = TDATableFieldCollectionItem;
+  TDASelectCollection = TCollection;
+
+  TDAGroupByItem = TDATableFieldCollectionItem;
+  TDAGroupByCollection = TCollection;
+
+  TDAOrderByItem = TDATableFieldCollectionItem;
+  TDAOrderByCollection = TCollection;
+
+  TDAQueryBuilderOption = (qboSelectDistinct, qboGenerateSimpleSelect, qboGenerateDynamicWhereStatement);
+  TDAQueryBuilderOptions = set of TDAQueryBuilderOption;
+
+  TDASimpleQueryBuilder = class(TCollectionItem)
+  private
+    // IDAConnection
+    FMainTable: TDAJoinDataTable;
+    FSelectCollection: TDASelectCollection;
+    FGroupByCollection: TDAGroupByCollection;
+    FWhere: TDASQLWhereBuilder;
+    FOptions: TDAQueryBuilderOptions;
+    FConnection: IDAConnection;
+    FColumnMapping: TDAColumnMappingCollection;
+    procedure SetColumnMapping(const Value: TDAColumnMappingCollection);
+    function GetWhereBuilder: TDASQLWhereBuilder;
+  protected
+    function GetMappingTableField(const aDataSetField: string): string;
+    procedure Validate; virtual;
+    function CreateWhereBuilder: TDASQLWhereBuilder; virtual; abstract;
+    function CreateSelectClause: string; virtual;
+    function CreateTableClause: string; virtual;abstract;
+    function CreateGroupByClause: string; virtual;
+    function GenerateFieldName(aTablename, aFieldName: string; aProcessMapping: Boolean = True):string; virtual;
+    function QuoteFieldNameIfNeeded(const aTableName, aFieldName: string): string; virtual;
+    function QuoteIdentifierIfNeeded(const iIdentifier: string): string; virtual;
+    function QuoteIdentifier(const iIdentifier: string): string; virtual;
+    function IdentifierNeedsQuoting(const iIdentifier: string):boolean;virtual;
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+    function GenerateSelectSQL: string; virtual;
+    function CreateWhereClause: string; virtual;
+    procedure Assign(Source: TPersistent); override;
+    procedure Clear; virtual;
+    procedure AddSelect(ATable, AField: string);
+    procedure AddGroupBy(ATable, AField: string);
+    procedure AddJoin(AJoinTable, AJoinFieldName, AJoinToTableName, AJoinToFieldName: string; AJoinType: TDAJoinType = jtInner); overload;
+    procedure AddJoin(AJoinTable: string; AJoinFieldNames: array of string; AJoinToTableName: string; AJoinToFieldNames: array of string; AJoinType: TDAJoinType = jtInner); overload;
+    procedure AddCrossJoin(ATable: string);
+    property Select: TDASelectCollection read FSelectCollection;
+    property MainTable: TDAJoinDataTable read FMainTable;
+    property Where: TDASQLWhereBuilder read GetWhereBuilder;
+    property GroupBy: TDAGroupByCollection read FGroupByCollection;
+    property Options: TDAQueryBuilderOptions read FOptions write FOptions;
+    property Connection: IDAConnection read FConnection write FConnection;
+    property ColumnMapping: TDAColumnMappingCollection read FColumnMapping write SetColumnMapping;
+  end;
+
+  TDAUnionCollections = TCollection;
+
+  TDAQueryBuilder = class(TDASimpleQueryBuilder)
+  private
+    FOrderByCollection: TDAOrderByCollection;
+    FUnionCollections: TDAUnionCollections;
+  protected
+    function CreateOrderByClause: string; virtual;
+    function CreateUnionClause(const AUnion: TDASimpleQueryBuilder): string; virtual;
+  public
+    constructor Create(Collection: TCollection); overload;override;
+    constructor Create; reintroduce;overload;virtual;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure Clear; override;
+    procedure AddOrderBy(ATable, AField: string);
+    function AddUnion:TDASimpleQueryBuilder;
+    function GenerateSelectSQL: string; override;
+    property OrderBy: TDAOrderByCollection read FOrderByCollection;
+    property Unions: TDAUnionCollections read FUnionCollections;
+  end;
+
+
+  IDABaseConnection = interface
+    ['{B96CFC5B-CE8A-4B6F-994E-2A82509B0F18}']
+  end;
+
+  { IDAConnection
+      Provides access to a connection object in a database and vendor independent manner.
+      Objects implementing IDAConnection are returned by the driver.
+      Each connection object might also implement additional interfaces that are specific to the
+      underlying database or the data-access framework. These additional interfaces are defined in
+      separate units. To find out what interfaces a connection implements you can check the source code
+      of the relative uDAxxxDriver.pas unit. }
+  IDAConnection = interface(IDABaseConnection)
+    ['{6D9C806F-65A5-43B3-8F07-4ED782A13A0A}']
+    // Properties readers/writers
+    function GetConnectionPool: IDAConnectionPool; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetConnectionPool(const Value: IDAConnectionPool); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetConnectionString: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetConnectionString(Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetConnected: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetConnected(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnAfterExecuteCommand: TDAAfterExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnAfterOpenDataset: TDAAfterOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeExecuteCommand: TDABeforeExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeOpenDataset: TDABeforeOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnExecuteCommandError: TDAExecuteCommandErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnOpenDatasetError: TDAOpenDatasetErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterExecuteCommand(const Value: TDAAfterExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterOpenDataset(const Value: TDAAfterOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeExecuteCommand(const Value: TDABeforeExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeOpenDataset(const Value: TDABeforeOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnExecuteCommandError(const Value: TDAExecuteCommandErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnOpenDatasetError(const Value: TDAOpenDatasetErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetConnectionType: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Transaction support
+    function BeginTransaction: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CommitTransaction; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure RollbackTransaction; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetInTransaction: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // UserID/Password
+    function GetUserID: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetUserID(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetPassword: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetPassword(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Connection
+    procedure Open(const aUserID: string = ''; const aPassword: string = ''); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Close; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Metadata
+    procedure GetTableNames(out List: IROStrings); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetViewNames(out List: IROStrings); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetStoredProcedureNames(out List: IROStrings); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetTableFields(const aTableName: string; out Fields: TDAFieldCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetQueryFields(const aSQL: string; aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetViewFields(const aViewName: string; out Fields: TDAFieldCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetQuoteChars: TDAQuoteCharArray; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function QuoteIdentifierIfNeeded(const iIdentifier: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function QuoteIdentifier(const iIdentifier: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function QuoteFieldNameIfNeeded(const aTableName, aFieldName: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function QuoteFieldName(const aTableName, aFieldName: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSPSelectSyntax(HasArguments: Boolean): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Commands and datasets
+    function NewCommand(const Text: string; CommandType: TDASQLStatementType; const aCommandName: string = ''): IDASQLCommand; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function NewDataset(const SQL: string; const aDatasetName: string = ''): IDADataset; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLastAutoInc(const GeneratorName: string = ''): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLastAutoIncValue(const GeneratorName: string = ''): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function isAlive: Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // Properties
+    property ConnectionString: string read GetConnectionString write SetConnectionString;
+    property Connected: boolean read GetConnected write SetConnected;
+    property Name: string read GetName;
+    property InTransaction: boolean read GetInTransaction;
+    property UserID: string read GetUserID write SetUserID;
+    property Password: string read GetPassword write SetPassword;
+    property ConnectionPool: IDAConnectionPool read GetConnectionPool write SetConnectionPool;
+    property ConnectionType: string read GetConnectionType;
+
+    property OnBeforeOpenDataset: TDABeforeOpenDatasetEvent read GetOnBeforeOpenDataset write SetOnBeforeOpenDataset;
+    property OnAfterOpenDataset: TDAAfterOpenDatasetEvent read GetOnAfterOpenDataset write SetOnAfterOpenDataset;
+    property OnOpenDatasetError: TDAOpenDatasetErrorEvent read GetOnOpenDatasetError write SetOnOpenDatasetError;
+    property OnBeforeExecuteCommand: TDABeforeExecuteCommandEvent read GetOnBeforeExecuteCommand write SetOnBeforeExecuteCommand;
+    property OnAfterExecuteCommand: TDAAfterExecuteCommandEvent read GetOnAfterExecuteCommand write SetOnAfterExecuteCommand;
+    property OnExecuteCommandError: TDAExecuteCommandErrorEvent read GetOnExecuteCommandError write SetOnExecuteCommandError;
+    // QueryBuilder
+    function GetQueryBuilder: TDAQueryBuilder; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetWhereBuilder: TDASQLWhereBuilder; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetUseMacroProcessor: Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetUseMacroProcessor(Value:Boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    property UseMacroProcessor: Boolean read GetUseMacroProcessor write SetUseMacroProcessor;
+  end;
+
+  IDAHETConnection = interface(IDABaseConnection)
+  ['{9471FB7A-F5C6-4420-A2E6-F2DD7C6535A7}']
+    function GetConnectionForObject(const aObjectName: string; aOpenConnection: boolean = false): IDAConnection;
+  end;
+
+  { IDATestableObject }
+  IDATestableObject = interface
+  ['{DC2C3CD1-9031-4B0A-97B9-563580611C25}']
+    procedure Test; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { IDAUseGenerators }
+  IDAUseGenerators = interface
+  ['{7963D550-361E-486A-AAD6-EFD12896F719}']
+    function GetNextAutoinc(const GeneratorName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { IDAUseGenerators }
+  IDAUseGenerators2 = interface
+  ['{58CC6F21-9159-4C6A-91F7-1E331AABA940}']
+    function GetNextAutoinc2(const GeneratorName: string): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+
+  IDACanQueryGeneratorsNames = interface
+  ['{E7C4A441-16B2-42BA-92DD-BD0F3EC39250}']
+    function GetGeneratorNames: IROStrings;
+  end;
+
+  { IDAConnectionManager }
+  IDAConnectionManager = interface
+    ['{C2C2B1DB-7D0A-4772-8DDF-5E5150A84827}']
+    function GetDefaultConnectionName: string;
+    function NewConnection(const aConnectionName: string;
+      OpenConnection: boolean = TRUE;
+      const UserID: string = '';
+      const Password: string = ''): IDAConnection;
+
+    procedure Clear;
+  end;
+  IDAConnectionPool = interface
+    ['{6E132C7B-A6AD-4ECB-B901-80000AC4B912}']
+    procedure ReleaseConnection(const Conn: IDAConnection);
+  end;
+
+  { IDASchema }
+  IDASchema = interface
+    ['{19C63BF1-9CAA-43B7-B49C-E3FE82F5A02E}']
+    function GetDatasetText(const aConnection: IDAConnection; const aName: string): string;
+    function GetCommandText(const aConnection: IDAConnection; const aName: string): string;
+
+    function NewDataset(const aConnection: IDAConnection; const aName: string;
+      aStatementName: string='';
+      OpenIt: boolean = false): IDADataset; overload;
+    function NewDataset(const aConnection: IDAConnection; const aName: string;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      OpenIt: boolean = TRUE;
+      aStatementName: string=''): IDADataset; overload;
+    function NewDataset(const aConnection: IDAConnection; const aName: string;
+      aDynSelectFields: array of string;
+      aWhereClause: WideString;
+      aStatementName: string='';
+      OpenIt: boolean = false;
+      AlwaysGenerateDynamicWhereStatement: Boolean=False): IDADataset; overload;
+    function NewDataset(const aConnection: IDAConnection; const aName: string;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      aDynSelectFields: array of string;
+      aWhereClause: WideString;
+      OpenIt: boolean = TRUE;
+      aStatementName: string=''): IDADataset; overload;
+
+    function NewCommand(const aConnection: IDAConnection; const aName: string;
+      aStatementName: string=''): IDASQLCommand; overload;
+    function NewCommand(const aConnection: IDAConnection; const aName: string;
+      const ParamNames: array of string;
+      const ParamValues: array of Variant;
+      ExecuteIt: boolean = TRUE;
+      aStatementName: string=''): IDASQLCommand; overload;
+
+    procedure Clear;
+    function MergeDataDictionaries: Boolean;
+  end;
+
+  { TDAWhere
+      Represents an abstraction of the WHERE condition of a SQL statement in an IDADataset. }
+  TDAWhere = class
+  private
+    fFields: TDAFieldCollection;
+    fClause: string;
+    fOnChange: TNotifyEvent;
+    fChanged,
+    fClientFields: boolean;
+    fLastWasCondition: Boolean;
+    fDefaultOperator: TDADefaultOperator;
+
+    function GetEmpty: boolean;
+    function GetNotEmpty: boolean;
+    function GetProperName(aField: TDACustomField) : string;
+
+  protected
+  public
+    constructor Create(const aFields: TDAFieldCollection; aClientFields : boolean);
+
+    procedure Clear;
+
+    procedure AddOperator(aOperator: TDASQLOperator);
+    function AddCondition(const FieldName: string;
+      Condition: TDASQLCondition;
+      const Value: Variant;
+      SkipIfEmptyValue: boolean = TRUE): boolean;overload;
+    function AddCondition(const FieldName: string;
+      Condition: TDASQLCondition): boolean;overload;
+    procedure AddValueGroup(const FieldName: string;
+      const Values: array of Variant);
+    procedure AddSpaces(Count: integer = 1);
+    procedure AddText(const someText: string; MapClientFields : boolean = TRUE);
+
+    procedure OpenBraket; deprecated;
+    procedure CloseBraket; deprecated;
+    procedure OpenBracket;
+    procedure CloseBracket;
+
+    function AddConditions(const FieldNames : array of string;
+                           const Conditions : array of TDASQLCondition;
+                           const Values: array of Variant;
+                           const Operator: TDASQLOperator) : integer;
+
+    property OnChange: TNotifyEvent read fOnChange write fOnChange;
+
+    property Clause: string read fClause;
+    property Fields: TDAFieldCollection read fFields write fFields;
+    property Empty : boolean read GetEmpty;
+    property NotEmpty : boolean read GetNotEmpty;
+
+    property ClientFields : boolean read fClientFields;
+    property DefaultOperator: TDADefaultOperator read fDefaultOperator write fDefaultOperator;
+    property LastWasCondition: Boolean read fLastWasCondition write fLastWasCondition;
+    property Changed: Boolean read fChanged write fChanged;
+  end;
+
+  IDANativeField = interface
+  ['{2F8C9C7B-EBEA-4BD1-A486-3106DC26F67A}']
+    function GetNativeObject: TObject;
+    function isTFieldCompatible: Boolean;
+    function GetFieldName: string;
+    function GetDataType: TFieldType;
+    function GetSize: integer;
+    function GetDecimalPrecision: Integer;
+    procedure SetDecimalPrecision(Value: integer);
+    function GetDecimalScale: Integer;
+    procedure SetDecimalScale(Value: integer);
+    procedure SetDataType(Value: TFieldType);
+    function GetFieldIndex: integer;
+    function GetValue: Variant;
+    function IsNull: Boolean;
+
+    property DecimalPrecision: Integer read GetDecimalPrecision write SetDecimalPrecision;
+    property DecimalScale: Integer read GetDecimalScale write SetDecimalScale;
+    property Size: Integer read GetSize;
+    property DataType: TFieldType read GetDataType write SetDataType;
+    property FieldName: string read GetFieldName;
+    property Index: integer read GetFieldIndex;
+    property Value: Variant read GetValue;
+  end;
+
+
+  IDASQLCommandNativeObject = interface
+    ['{990F8327-C1F2-447C-A2D0-C712ACAA11CF}']
+    function GetNativeObject: TObject; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function IsTDatasetCompatible: Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetNativeFields(Index: integer): IDANativeField;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function NativeFieldCount: Integer;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function NativeFindField(const FieldName: string): IDANativeField;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetNativeFieldData(Index: Integer; var Data: pointer; var DataSize: cardinal):Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function CanFreeNativeFieldData: Boolean;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property NativeFields[Index: Integer]: IDANativeField read GetNativeFields;
+    property NativeObject: TObject read GetNativeObject;
+  end;
+
+  { IDASQLCommand
+      Base interface for SQL commands. It defines the common functionality shared by queries and stored procedures
+      that is providing access to a parameter list and being able to execute a statement which affects a certain
+      number of records. }
+  {$WARN SYMBOL_DEPRECATED OFF}
+  IDASQLCommand = interface
+    ['{F57D2647-2DDE-4F69-86C5-CFACD6AC601F}']
+    // Properties readers/writers
+    function GetParams: TDAParamCollection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetPrepared: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetPrepared(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetWhere: TDAWhere; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} deprecated;
+    function GetDynamicWhere: TDAWhereBuilder; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetDynamicWhere(const Value: TDAWhereBuilder); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function SQLContainsDynamicWhere:boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetSQL: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetSQL(const Value: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetDataset: TDataset; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnAfterExecute: TDAAfterExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeExecute: TDABeforeExecuteCommandEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterExecute(const Value: TDAAfterExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeExecute(const Value: TDABeforeExecuteCommandEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnExecuteError: TDAExecuteCommandErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnExecuteError(const Value: TDAExecuteCommandErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Methods
+    procedure RefreshParams; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Execute: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function ParamByName(const aName: string): TDAParam; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Properties
+    property Name: string read GetName;
+    property Dataset: TDataSet read GetDataset;
+    property SQL: string read GetSQL write SetSQL;
+    property Params: TDAParamCollection read GetParams;
+    property Prepared: boolean read GetPrepared write SetPrepared;
+    {$WARN SYMBOL_DEPRECATED OFF}
+    property Where: TDAWhere read GetWhere;
+    {$WARN SYMBOL_DEPRECATED ON}
+    property DynamicWhere: TDAWhereBuilder read GetDynamicWhere write SetDynamicWhere;
+
+    property OnBeforeExecute: TDABeforeExecuteCommandEvent read GetOnBeforeExecute write SetOnBeforeExecute;
+    property OnAfterExecute: TDAAfterExecuteCommandEvent read GetOnAfterExecute write SetOnAfterExecute;
+    property OnExecuteError: TDAExecuteCommandErrorEvent read GetOnExecuteError write SetOnExecuteError;
+  end;
+  {$WARN SYMBOL_DEPRECATED ON}
+  { IDAMustSetParams
+      Implemented only by few SQL commands when we need to call PSSetParams after the parameter values
+      are written. For internal use only. See TDAEDataset.DoSetActive }
+  IDAMustSetParams = interface
+    ['{575A8055-0200-44F1-AC5A-EF8604CBB489}']
+    procedure SetParamValues(Params: TDAParamCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetParamValues(Params: TDAParamCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { IDADataset
+      Provides access to a row set generated from a SQL select or a call to a stored procedure which
+      returns rows. IDADataset objects are created using the method IDAConnection.NewDataset.
+      Objects implementing this interface are equivalent to TDataset and in most cases simply wrap one. }
+  IDADataset = interface(IDASQLCommand)
+    ['{8A3E5056-A8B9-4455-B82C-67E48CC39EA5}']
+    // Properties readers/writers
+    function GetRecordCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldCount: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFields: TDAFieldCollection; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetActive: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetActive(Value: boolean); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetEOF: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetFieldValues(Index: integer): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetNames(Index: integer): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetIsEmpty : boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetLogicalName : string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetLogicalName(aName : string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetOnAfterOpen: TDAAfterOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnBeforeOpen: TDABeforeOpenDatasetEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnAfterOpen(const Value: TDAAfterOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnBeforeOpen(const Value: TDABeforeOpenDatasetEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetOnOpenError: TDAOpenDatasetErrorEvent; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetOnOpenError(const Value: TDAOpenDatasetErrorEvent); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Methods
+    procedure Open; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Close; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure EnableControls; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableControls; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function  ControlsDisabled: Boolean;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+
+    procedure Next; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function FieldByName(const aName: string): TDAField; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function FindField(const aName: string): TDAField; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function GetCurrentRecIdValue: integer;
+    procedure SetCurrentRecIdValue(Value: integer);
+
+    function GetRowRecIDValue: integer;
+
+    procedure EnableConstraints; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableConstraints; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    property RowRecIdValue: integer read GetRowRecIdValue;
+    property CurrentRecIdValue: integer read GetCurrentRecIdValue write SetCurrentRecIdValue;
+    // Properties
+    property IsEmpty : boolean read GetIsEmpty;
+(*    property BOF: boolean read GetBOF;*)
+    property EOF: boolean read GetEOF;
+    property RecordCount: integer read GetRecordCount;
+    property Fields: TDAFieldCollection read GetFields;
+    property Active: boolean read GetActive write SetActive;
+    property FieldCount: integer read GetFieldCount;
+    property FieldValues[Index: integer]: Variant read GetFieldValues;
+    property Names[Index: integer]: string read GetNames;
+    property LogicalName : string read GetLogicalName write SetLogicalName;
+
+    property OnBeforeOpen: TDABeforeOpenDatasetEvent read GetOnBeforeOpen write SetOnBeforeOpen;
+    property OnAfterOpen: TDAAfterOpenDatasetEvent read GetOnAfterOpen write SetOnAfterOpen;
+    property OnOpenError: TDAOpenDatasetErrorEvent read GetOnOpenError write SetOnOpenError;
+
+  end;
+
+  IDADatasetEx = interface(IDADataset)
+    ['{BB588B03-620E-43AD-B77E-EFD35F303112}']
+    function GetBOF: boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Refresh; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetBookMark: TBookmark; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GotoBookmark(Bookmark: TBookmark); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure FreeBookmark(Bookmark: TBookmark); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function BookmarkValid(Bookmark: TBookmark): Boolean; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetState : TDatasetState; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    property State : TDatasetState read GetState;
+  end;
+
+  { IDAEditableDataset }
+  IDAEditableDataset = interface(IDADatasetEx)
+    ['{D3E2147F-65B3-4D9D-8614-7270011FA7D5}']
+    procedure Edit; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Insert; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Post; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Cancel; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Append; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Delete; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure Prior; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure First; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure Last; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure AddRecord(const  FieldNames : array of string; const FieldValues : array of Variant); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    procedure EnableEventHandlers; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableEventHandlers; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  { IDAStoredProcedure
+      Provides access to stored database procedures.
+      IDAStoredProcedure objects are created using the method IDAConnection.NewStoredProcedure.}
+  IDAStoredProcedure = interface(IDASQLCommand)
+    ['{6D9C806F-65A5-43B3-8F07-4ED782A13A0A}']
+    // Properties readers/writers
+    function GetStoredProcedureName: string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetStoredProcedureName(const Name: string); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Methods
+    function Execute: integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+
+    // Properties
+    property StoredProcedureName: string read GetStoredProcedureName write SetStoredProcedureName;
+  end;
+
+  { IDADatasetPersist }
+  IDADatasetPersist = interface
+    ['{D6F850CD-9204-4953-A54F-1E622AA993B6}']
+    function Persist(const aQuery: IDADataset; MaxRecords: integer; out Data: IROStream): integer;
+  end;
+
+  { IDADatasetResolver }
+  IDADatasetResolver = interface
+    ['{D6F850CD-9204-4953-A54F-1E622AA993B6}']
+    procedure Resolve(const Data: IROStream; const aQuery: IDADataset; MaxErrors: integer);
+  end;
+
+  { IDALoginInfoAware }
+  IDALoginInfoAware = interface
+  ['{755615F0-4208-459A-B1C4-97EA5A3DB346}']
+    function GetLoginInfo : TDALoginInfo;
+    procedure SetLoginInfo(aValue : TDALoginInfo);
+
+    property LoginInfo : TDALoginInfo read GetLoginInfo write SetLoginInfo;
+  end;
+
+  { TDALoginInfoAware }
+  TDALoginInfoAware = class(TInterfacedObject, IDALoginInfoAware)
+  private
+    fLoginInfo : TDALoginInfo;
+
+  protected
+    { IDALoginInfoAware }
+    function GetLoginInfo : TDALoginInfo;
+    procedure SetLoginInfo(aValue : TDALoginInfo);
+
+    { IInterface }
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+
+  end;
+
+  // not used yet
+  { IDASimpleClonedCursorsSupport }
+  IDASimpleClonedCursorsSupport = interface
+  ['{39D05665-5B13-4EC3-B31E-D39CBEA52AC6}']
+    function GetSimpleCloneSource : TObject;
+  end;
+
+  IDAMemDatasetBatchAdding = interface
+  ['{73A4A297-2938-46EB-8D0C-2F8FB58046E2}']
+    function AllocRecordBuffer: PAnsiChar;
+    procedure FreeRecordBuffer(var Buffer: PAnsiChar);
+    function GetFieldNativeBuffer(Buffer: PAnsiChar; Field: TField): Pointer;
+    function MakeBlobFromString(Blob:AnsiString): pointer;
+    procedure SetNullMask(Buffer: PAnsiChar; Field: TField; const Value: boolean);
+    procedure SetAnsiString(NativeBuf: Pointer; Field: TField; const Value: Ansistring);
+    procedure SetWideString(NativeBuf: Pointer; Field: TField; const Value: Unicodestring);
+    procedure AddRecordsfromList(AList: TList; AppendMode: Boolean);
+    function GetFieldNo(AField: TField): integer;
+  end;
+
+  { TDADataSource }
+  TDABaseDataSource = class(TDataSource)
+  end;
+
+const
+  DADataTypeNames: array[Low(TDADataType)..High(TDADataType)] of string = ('Unknown',
+    'String',
+    'DateTime',
+    'Float',
+    'Currency',
+    'AutoInc',
+    'Integer',
+    'LargeInt',
+    'Boolean',
+    'Memo',
+    'Blob',
+    'WideString',
+    'WideMemo',
+    'LargeAutoInc',
+    'Byte',
+    'ShortInt',
+    'Word',
+    'SmallInt',
+    'Cardinal',
+    'LargeUInt',
+    'Guid',
+    'Xml',
+    'Decimal',
+    'SingleFloat');
+  DADataTypesMappings: array[TDADataType] of TFieldType = (
+    ftUnknown, ftString, ftDateTime, ftFloat, ftBCD, ftAutoInc, ftInteger,
+    ftLargeInt, ftBoolean, ftMemo, ftBlob, ftWideString,
+    {$IFNDEF DA_WideMemoSupport}ftBlob{$ELSE}ftWideMemo{$ENDIF DA_WideMemoSupport},
+    ftLargeInt, ftSmallint, ftSmallint, ftWord, ftSmallint, ftInteger, ftLargeint,
+    ftGuid, {$IFNDEF DA_WideMemoSupport}ftBlob{$ELSE}ftWideMemo{$ENDIF DA_WideMemoSupport}, ftFMTBcd, ftFloat);
+
+function VCLTypeToDAType(aFieldType: TFieldType): TDADataType;
+function DATypeToVCLType(aDAType: TDADataType): TFieldType;
+
+{ Cross-platform GetTickCount }
+function ROGetTickCount: Cardinal;
+
+{ Variant converters }
+function GetVarBoolean(const Value: Variant): boolean;
+function GetVarCurrency(const Value: Variant): currency;
+function GetVarDateTime(const Value: Variant): TDateTime;
+function GetVarFloat(const Value: Variant): double;
+function GetVarInteger(const Value: Variant): integer;
+function GetVarString(const Value: Variant): string;
+function GetVarAnsiString(const Value: Variant): Ansistring;
+function GetVarInt64(const Value: Variant): Int64;
+function GetVarWideString(const Value: Variant): UnicodeString;
+function GetVarByte(const Value: Variant): Byte;
+function GetVarShortInt(const Value: Variant): ShortInt;
+function GetVarWord(const Value: Variant): Word;
+function GetVarSmallInt(const Value: Variant): SmallInt;
+function GetVarCardinal(const Value: Variant): Cardinal;
+function GetVarLargeUInt(const Value: Variant): UInt64;
+function GetVarGuid(const Value: Variant): TGuid;
+function GetVarXml(const Value: Variant): IXMLNode;
+function GetVarDecimal(const Value: Variant): TBCD;
+function GetVarSingleFloat(const Value: Variant): Single;
+function TestDefaultValue(const DefaultValue: string; DataType: TDADataType): Boolean;
+
+{ Misc }
+function NewDatasetParam(anArray : TDADatasetParamArray; Name : string; Value : Variant) : TDADatasetParam;
+function NewDatasetRequestInfo(anArray : TDADatasetRequestInfoArray;
+                               DatasetName : string;
+                               ParamNames : array of string;
+                               ParamValues : array of variant;
+                               IncludeSchema : boolean = FALSE;
+                               MaxRecords : integer = -1) : TDADatasetRequestInfo;
+
+procedure Params_ParseSQL(aParams: TParams; aSQL: String; DoCreate: Boolean; aQuoteChar: TDAQuoteCharArray; aUseDefaultChars: Boolean = False);
+procedure BlobVariantToBinary(const iVariant:Variant; iBinary:TStream);
+function BinaryToBlobVariant(iBinary:TStream): Variant;
+
+implementation
+
+uses
+  {$IFDEF DataAbstract_Trial}
+  Forms, Dialogs, //Windows,
+  {$ENDIF DataAbstract_Trial}
+  Variants,
+  uDARes, uROBinaryHelpers, {uDAClasses, uDADataTable,} uDAWhere
+  {$IFDEF MSWINDOWS}
+  ,Windows
+  {$ENDIF};
+
+{ Cross-platform GetTickCount }
+{$IFNDEF MSWINDOWS}
+// This has been grabbed from IdGlobal.pas. Needs to be tested under Kylix just in case
+function ROGetTickCount: Cardinal;
+var
+  Stamp: TTimeStamp;
+begin
+  Stamp := DateTimeToTimeStamp(Now);
+  Result := Stamp.Time;
+end;
+{$ENDIF}
+
+{$IFDEF MSWINDOWS}
+function ROGetTickCount: Cardinal;
+begin
+  result := Windows.GetTickCount;
+end;
+{$ENDIF}
+
+procedure BlobVariantToBinary(const iVariant:Variant; iBinary:TStream);
+var
+  str: AnsiString;
+  p: pointer;
+begin
+  if VarIsEmpty(iVariant) or VarIsNull(iVariant) then begin
+    // nothing, we accept "empty" blobs
+  end
+  else if VarType(iVariant) = varString then begin
+    str := VarToAnsiStr(iVariant);
+    iBinary.Write(pointer(str)^,Length(str));
+  end
+  else if VarIsArray(iVariant) and (VarArrayDimCount(iVariant) = 1) then begin
+    p := VarArrayLock(iVariant);
+    try
+      iBinary.Write(p^,VarArrayHighBound(iVariant,1)-VarArrayLowBound(iVariant,1)+1);
+    finally
+      VarArrayUnlock(iVariant);
+    end;
+  end
+  else begin
+    raise EConvertError.CreateFmt('Can''t convert %d to blob',[VarTypeAsText(VarType(iVariant))]);
+  end;
+end;
+
+function BinaryToBlobVariant(iBinary:TStream): Variant;
+var
+  i: int64;
+  p:pointer;
+begin
+  i := iBinary.Position;
+  try
+    iBinary.Position := 0;
+    Result:= VarArrayCreate([0,iBinary.Size-1],varByte);
+    p := VarArrayLock(Result);
+    try
+      iBinary.Read(p^,iBinary.Size);
+    finally
+      VarArrayUnlock(Result);
+    end;
+  finally
+    iBinary.Position := i;
+  end;
+end;
+{ Variant converters }
+
+function TestForNull(const Value: Variant): boolean;
+begin
+  Result := VarIsEmpty(Value) or VarIsnull(Value);
+end;
+
+function GetVarBoolean(const Value: Variant): boolean;
+begin
+  if TestForNull(Value) then
+    result := FALSE
+  else
+    result := Value;
+end;
+
+function GetVarCurrency(const Value: Variant): currency;
+begin
+  if TestForNull(Value) then
+    result := 0
+  else
+    result := Value;
+end;
+
+function GetVarDateTime(const Value: Variant): TDateTime;
+begin
+  if TestForNull(Value) then
+    result := 0
+  else
+    result := Value;
+end;
+
+function GetVarFloat(const Value: Variant): double;
+begin
+  if TestForNull(Value) then
+    result := 0
+  else
+    result := Value;
+end;
+
+function GetVarInteger(const Value: Variant): integer;
+begin
+  if TestForNull(Value) then
+    result := 0
+  else
+    result := Value;
+end;
+
+function GetVarString(const Value: Variant): string;
+begin
+  if TestForNull(Value) then
+    Result := ''
+  else
+    Result := VarToStr(Value);
+end;
+
+function GetVarAnsiString(const Value: Variant): Ansistring;
+begin
+  if TestForNull(Value) then
+    Result := ''
+  else
+    Result := VarToAnsiStr(Value);
+end;
+
+function GetVarInt64(const Value: Variant): Int64;
+begin
+  if TestForNull(Value) then
+    result := 0
+  else
+    result := Value;
+end;
+
+function GetVarWideString(const Value: Variant): UnicodeString;
+begin
+  if TestForNull(Value) then
+    Result := ''
+  else
+    {$IFDEF UNICODE}
+    Result := VarToStr(Value);
+    {$ELSE}
+    Result := VarToWideStr(Value);
+    {$ENDIF}
+end;
+
+function GetVarByte(const Value: Variant): Byte;
+begin
+  if TestForNull(Value) then
+    Result := 0
+  else
+    Result := Value;
+end;
+
+function GetVarShortInt(const Value: Variant): ShortInt;
+begin
+  if TestForNull(Value) then
+    Result := 0
+  else
+    Result := Value;
+end;
+
+function GetVarWord(const Value: Variant): Word;
+begin
+  if TestForNull(Value) then
+    Result := 0
+  else
+    Result := Value;
+end;
+
+function GetVarSmallInt(const Value: Variant): SmallInt;
+begin
+  if TestForNull(Value) then
+    Result := 0
+  else
+    Result := Value;
+end;
+
+function GetVarCardinal(const Value: Variant): Cardinal;
+begin
+  if TestForNull(Value) then
+    Result := 0
+  else
+    Result := Value;
+end;
+
+function GetVarLargeUInt(const Value: Variant): UInt64;
+var
+  i: Int64;
+begin
+  if TestForNull(Value) then
+    Result := 0
+  else begin
+    i := Value;
+    Result := UInt64(i);
+  end;
+end;
+
+function GetVarGuid(const Value: Variant): TGuid;
+begin
+  if TestForNull(Value) then
+    FillChar(Result, sizeof(Result), 0)
+  else
+    Result := StringToGuid(Value);
+end;
+
+function GetVarXml(const Value: Variant): IXMLNode;
+var
+  lDoc: IXMLDocument;
+begin
+  if TestForNull(Value) then
+    Result := nil
+  else begin
+    lDoc := NewROXmlDocument;
+    lDoc.New;
+    lDoc.XML := Value;
+    Result := lDoc.DocumentNode;
+  end;
+end;
+
+function GetVarDecimal(const Value: Variant): TBCD;
+begin
+  if TestForNull(Value) then
+    Result := NullBcd
+  else
+    Result := VariantToBCD(Value);
+end;
+
+function GetVarSingleFloat(const Value: Variant): Single;
+begin
+  if TestForNull(Value) then
+    Result := 0
+  else
+    Result := Value;
+end;
+
+
+function TestDefaultValue(const DefaultValue: string; DataType: TDADataType): Boolean;
+var
+  aDecimal: TDecimal;
+begin
+  try
+    case DataType of
+      datString: ;
+      datDateTime: VarAsType(DefaultValue, varDate);
+      datFloat: VarAsType(DefaultValue, varDouble);
+      datDecimal: if not VarByteArrayToDecimal(DefaultValue,aDecimal) then VarAsType(DefaultValue, VarFMTBcd);
+      datCurrency: VarAsType(DefaultValue, varCurrency);
+      datAutoInc,
+      datInteger: VarAsType(DefaultValue, varInteger);
+      datLargeAutoInc,
+      datLargeInt: VarAsType(DefaultValue, varInt64);
+      datBoolean: VarAsType(DefaultValue, varBoolean);
+      datMemo: VarAsType(DefaultValue, varString);
+      datBlob: begin Result := False; exit; end;
+      datWideString: VarAsType(DefaultValue, varOleStr);
+     {$IFDEF DA_WideMemoSupport}
+      datXml,
+      datWideMemo: VarAsType(DefaultValue, varOleStr);
+     {$ENDIF}
+    else
+      begin
+        result := false;
+        exit;
+      end;
+    end;
+    result := true;
+  except
+    result := false;
+  end;
+end;
+
+{ EDADriverLoadException }
+
+constructor EDADriverLoadException.Create(anErrorCode: integer;
+  const anErrorMessage: string);
+begin
+  inherited Create(anErrorMessage);
+
+  fErrorCode := anErrorCode;
+end;
+
+function VCLTypeToDAType(aFieldType: TFieldType): TDADataType;
+begin
+  result := datUnknown;
+  case aFieldType of
+    ftUnknown: result := datUnknown;
+
+    ftAutoInc: result := datAutoInc;
+
+    ftGuid: Result:= datGuid;
+
+    ftFixedChar,
+    ftString: result := datString;
+
+    ftLargeint: result := datLargeInt;
+
+    ftSmallint: Result := datSmallInt;
+    {$IFDEF Delphi2009UP}
+    ftLongWord: Result := datCardinal;
+    ftShortint: Result := datShortInt;
+    ftByte: Result := datByte;
+    ftExtended: Result := datDecimal;
+    {$ENDIF}
+    ftWord: Result:= datWord;
+    ftInteger:  result := datInteger;
+
+    ftCurrency: result := datFloat;
+    ftFloat: result := datFloat;
+    ftBCD: Result := datCurrency;
+    ftFMTBcd: Result := datDecimal;
+
+
+    ftTimeStamp,
+      ftDate,
+      ftTime,
+      ftDateTime: result := datDateTime;
+
+    ftMemo,
+      ftFmtMemo: result := datMemo;
+
+    ftBytes, ftTypedBinary,
+      ftVarBytes,
+      ftBlob,
+      ftGraphic,
+      ftOraBlob,
+      ftOraClob: result := datBlob;
+
+    ftBoolean: result := datBoolean;
+    {$IFDEF DA_FixedWideCharSupport}
+    ftFixedWideChar,
+    {$ENDIF DA_FixedWideCharSupport}
+    ftWideString: Result := datWideString;
+    {$IFDEF DA_WideMemoSupport}
+    ftWideMemo: Result:= datWideMemo;
+    {$ENDIF DA_WideMemoSupport}
+  else
+    RaiseError(err_FieldTypeNotSupported, [GetEnumName(TypeInfo(TFieldType), Ord(aFieldType)), Ord(aFieldType)]);
+  end;
+end;
+
+function DATypeToVCLType(aDAType: TDADataType): TFieldType;
+begin
+  result := DADataTypesMappings[aDAType];
+end;
+
+{ Misc }
+function NewDatasetParam(anArray : TDADatasetParamArray; Name : string; Value : Variant) : TDADatasetParam;
+begin
+  result := anArray.Add;
+  result.Name := UTF8Encode(Name);
+  result.Value := Value;
+end;
+
+function NewDatasetRequestInfo(anArray : TDADatasetRequestInfoArray;
+                               DatasetName : string;
+                               ParamNames : array of string;
+                               ParamValues : array of variant;
+                               IncludeSchema : boolean = FALSE;
+                               MaxRecords : integer = -1) : TDADatasetRequestInfo;
+var i : integer;
+begin
+  if (Length(ParamNames)<>Length(ParamValues))
+    then raise EROUserError.Create('ParamNames and ParamValues arrays don''t contain the same number of items');
+
+  result := anArray.Add;
+
+  result.DatasetName := UTF8Encode(DatasetName);
+  result.MaxRecords := MaxRecords;
+  result.IncludeSchema := IncludeSchema;
+
+  if (Length(ParamNames)>0) then begin
+    result.Params := TDADatasetParamArray.Create;
+    for i := 0 to (Length(ParamNames)-1) do
+      NewDatasetParam(result.Params, ParamNames[i], ParamValues[i]);
+  end
+  else result.Params := NIL;
+end;
+
+{ TDAStatementCollection }
+
+function TDAStatementCollection.Add: TDAStatement;
+begin
+  result := TDAStatement(inherited Add);
+end;
+
+function TDAStatementCollection.FindItem(const aName: string; const aStatementName: string=''; const aConnectionType: string = ''; aReturnDefault: Boolean = false): TDAStatement;
+var
+  i: integer;
+  lDef, lStatement:TDAStatement;
+begin
+  result := nil;
+  lDef := nil;
+  for i := 0 to (Count - 1) do begin
+    lStatement := Items[i] as TDAStatement;
+    if lStatement.Default then lDef := lStatement;
+    if
+      ((aConnectionType <> '') and (SameText(lStatement.ConnectionType, aConnectionType))) or
+      SameText(lStatement.Connection, aName) and
+       ((aStatementName = '') or SameText(lStatement.Name, aStatementName)) then begin
+      result := lStatement;
+      exit;
+    end;
+  end;
+  if aReturnDefault then result := lDef;
+end;
+
+constructor TDAStatementCollection.Create(aOwner: TPersistent; aSQLCommand: TDASQLCommand);
+begin
+  inherited Create(aOwner, TDAStatement);
+  FAllowEmptyName := True;
+  fSQLCommand := aSQLCommand;
+end;
+
+function TDAStatementCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDAStatement(anItem).Connection;
+end;
+
+function TDAStatementCollection.GetStatements(
+  Index: integer): TDAStatement;
+begin
+  result := TDAStatement(inherited Items[Index])
+end;
+
+function TDAStatementCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAStatement(anItem).Connection := aName;
+end;
+
+procedure TDAStatementCollection.SetStatements(Index: integer;
+  const Value: TDAStatement);
+begin
+  Statements[Index].Assign(Value);
+end;
+
+function TDAStatementCollection.StatementByName(
+  const aName: string): TDAStatement;
+begin
+  result := TDAStatement(inherited ItemByName(aName));
+end;
+
+{ TDABaseField }
+
+procedure TDABaseField.Assign(Source: TPersistent);
+begin
+  if (Source is TDABaseField) then begin
+    AssignField(TDABaseField(Source));
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+procedure TDABaseField.AssignField(Source: TDABaseField);
+begin
+  fSize := Source.fSize;
+  fDescription := Source.fDescription;
+  fName := Source.fName;
+  fDataType := Source.fDataType;
+  fValue := Source.fValue;
+  fBlobType := Source.fBlobType;
+  fGeneratorName := Source.GeneratorName;
+  FDecimalPrecision := Source.FDecimalPrecision;
+  FDecimalScale := Source.FDecimalScale;
+  FTag := Source.FTag;
+end;
+
+{procedure TDABaseField.FixSize;
+begin
+  if (fDataType <> datString) then fSize := 0;
+end;}
+
+procedure TDABaseField.UpdateValueType;
+
+  function ConvertValueAccordingToDataType(aValue: Variant; aDataType: TDADataType): Variant;
+  begin
+    case aDataType of
+      datString: result := VarAsType(aValue, varString);
+      datDateTime: result := VarAsType(aValue, varDate);
+      datFloat: result := VarAsType(aValue, varDouble);
+      datCurrency: result := VarAsType(aValue, varCurrency);
+      datAutoInc: result := VarAsType(aValue, varInteger);
+      datInteger: result := VarAsType(aValue, varInteger);
+      datLargeInt: result := VarAsType(aValue, varInt64);
+      datBoolean: result := VarAsType(aValue, varBoolean);
+      datMemo: result := VarAsType(aValue, varString);
+//      datBlob: result := VarAsType(aValue, varByte);
+      datWideString: result := VarAsType(aValue, varOleStr);
+      {$IFDEF DA_WideMemoSupport}
+      datXml,
+      datWideMemo: result := VarAsType(aValue, varOleStr);
+      {$ENDIF}
+      datLargeAutoInc: result := VarAsType(aValue, varInt64);
+      datByte: result := VarAsType(aValue, varByte);
+      datShortInt: result := VarAsType(aValue, varShortInt);
+      datWord: result := VarAsType(aValue, varWord);
+      datSmallInt: result := VarAsType(aValue, varSmallint);
+      datCardinal: result := VarAsType(aValue, varLongWord);
+      datLargeUInt: result := VarAsType(aValue, varInt64);
+      datGuid: result := VarAsType(aValue, varString);
+      datDecimal: result := VarAsType(aValue, VarFMTBcd);
+      datSingleFloat: result := VarAsType(aValue, varSingle);
+    end;
+  end;
+
+var
+  lValue: Variant;
+begin
+  try
+    lValue := ConvertValueAccordingToDataType(fValue, fDataType);
+    if VarSameValue(fValue, lValue) then
+      fValue := lValue
+    else
+      fValue := ConvertValueAccordingToDataType(Unassigned, fDataType);
+  except
+    fValue := ConvertValueAccordingToDataType(Unassigned, fDataType);
+  end;
+end;
+
+function TDABaseField.GetDataType: TDADataType;
+begin
+  if not HasValidDictionaryField then begin
+    result := fDataType
+  end
+  else begin
+    result := GetDictionaryField().DataType;
+  end;
+end;
+
+function TDABaseField.GetDescription: string;
+begin
+  if not HasValidDictionaryField then begin
+    result := fDescription;
+  end
+  else begin
+    result := GetDictionaryField().Description;
+  end;
+end;
+
+function TDABaseField.GetName: string;
+begin
+  result := fName
+end;
+
+function TDABaseField.GetSize: integer;
+begin
+  if (DataType <> datString) and (DataType <> datWideString) then begin
+    result := 0;
+  end
+  else begin
+    if not HasValidDictionaryField then begin
+      result := fSize
+    end
+    else begin
+      result := GetDictionaryField().Size;
+    end;
+  end;
+end;
+
+function TDABaseField.GetValue: Variant;
+begin
+  //exists problem with uninitialized variant in Win 2000
+  result := Null;
+  //
+  result := fValue;
+end;
+
+procedure TDABaseField.SetDataType(aValue: TDADataType);
+begin
+  if fDataType <> aValue then begin
+    fDataType := aValue;
+    if not (VarIsNull(Value) or VarIsEmpty(Value)) then
+      UpdateValueType;
+
+  //FixSize();
+  end;
+end;
+
+procedure TDABaseField.SetDescription(const Value: string);
+begin
+  fDescription := Value;
+end;
+
+procedure TDABaseField.SetName(const Value: string);
+var
+  lOldName: string;
+begin
+  lOldName := fName;
+  fName := Value;
+  if lOldName <> '' then
+    (Collection as TSearcheableCollection).TriggerOnItemRenamed(lOldName, fName);
+end;
+
+procedure TDABaseField.SetSize(Value: integer);
+begin
+  fSize := Value;
+  //FixSize();
+end;
+
+procedure TDABaseField.SetValue(const aValue: Variant);
+begin
+  fValue := aValue
+end;
+
+function TDABaseField.GetAsBoolean: boolean;
+begin
+  result := GetVarBoolean(Value);
+  //if VarIsNull(Value) then result := FALSE else result := Value;
+end;
+
+function TDABaseField.GetAsCurrency: currency;
+begin
+  result := GetVarCurrency(Value);
+  //if VarIsNull(Value) then result := 0 else result := Value;
+end;
+
+function TDABaseField.GetAsDateTime: TDateTime;
+begin
+  result := GetVarDateTime(Value);
+  //if VarIsNull(Value) then result := 0 else result := Value;
+end;
+
+function TDABaseField.GetAsFloat: double;
+begin
+  result := GetVarFloat(Value);
+  //if VarIsNull(Value) then result := 0 else result := Value;
+end;
+
+function TDABaseField.GetAsInteger: integer;
+begin
+  result := GetVarInteger(Value);
+  //if VarIsNull(Value) then result := 0 else result := Value;
+end;
+
+function TDABaseField.GetAsString: string;
+begin
+  result := GetVarString(Value);
+  //if VarIsNull(Value) then result := '' else result := Value;
+end;
+
+function TDABaseField.GetAsAnsiString: Ansistring;
+begin
+  Result := GetVarAnsiString(Value);
+end;
+
+procedure TDABaseField.SetAsAnsiString(const aValue: Ansistring);
+begin
+ // according _VarFromLStr we can do this
+  Value := aValue;
+end;
+
+function TDABaseField.GetAsVariant: variant;
+begin
+  result := Value
+end;
+
+procedure TDABaseField.SetAsBoolean(const aValue: boolean);
+begin
+  Value := aValue;
+end;
+
+procedure TDABaseField.SetAsCurrency(const aValue: currency);
+begin
+  Value := aValue;
+end;
+
+procedure TDABaseField.SetAsDateTime(const aValue: TDateTime);
+begin
+  Value := aValue;
+end;
+
+procedure TDABaseField.SetAsFloat(const aValue: double);
+begin
+  Value := aValue;
+end;
+
+procedure TDABaseField.SetAsString(const aValue: string);
+begin
+  Value := aValue;
+end;
+
+procedure TDABaseField.SetAsVariant(const aValue: variant);
+begin
+  Value := aValue;
+end;
+
+procedure TDABaseField.SetAsInteger(const aValue: integer);
+begin
+  Value := aValue;
+end;
+
+function TDABaseField.GetDisplayName: string;
+begin
+  //result := Format('%s %-20s [%s, %d]', [GetName, '', GetEnumName(TypeInfo(TDADataType), Ord(DataType)), Size]);
+  result := GetName;
+end;
+
+function TDABaseField.GetNamePath: string;
+begin
+  if (Collection <> nil) then
+    result := Collection.GetNamePath + Name
+  else
+    result := inherited GetNamePath;
+
+  result := inherited GetNamePath;
+end;
+
+function TDABaseField.GetDictionaryEntry: string;
+begin
+  result := fDictionaryEntry
+end;
+
+procedure TDABaseField.SetDictionaryEntry(const Value: string);
+begin
+  fDictionaryEntry := Value
+end;
+
+function TDABaseField.FindDictionaryField: TDACustomField;
+var
+  lOwner: TObject;
+  lHasDict: IDAHasDataDictionary;
+  lDictionary: IDADataDictionary;
+begin
+  result := nil;
+  if DictionaryEntry = '' then exit;
+
+  lDictionary := TDACustomFieldCollection(Collection).DataDictionary;
+
+  { No Dictionary assigned? then try getting dictionary from owning Schema }
+  if not Assigned(lDictionary) then begin
+    lOwner := TDACustomFieldCollection(Collection).Owner;
+    if not (lOwner is TDADataSet) then exit;
+
+    lOwner := TDADatasetCollection(TDADataSet(lOwner).Collection).Owner;
+//    if not (lOwner is TDASchema) then exit;
+
+//    lDictionary := TDASchema(lOwner).DataDictionary;
+    if Supports(lOwner, IDAHasDataDictionary, lHasDict) then
+      lDictionary := lHasDict.DataDictionary;
+  end;
+
+  if Assigned(lDictionary) then
+    result := lDictionary.Fields.FindField(DictionaryEntry);
+end;
+
+function TDABaseField.GetDictionaryField: TDACustomField;
+begin
+  result := FindDictionaryField();
+  if not Assigned(result) then
+    RaiseError('Dictionary entry %s not found for field %s', [DictionaryEntry, Name])
+end;
+
+function TDABaseField.HasValidDictionaryField: Boolean;
+begin
+  result := (DictionaryEntry <> '') and
+    Assigned(FindDictionaryField());
+end;
+
+function TDABaseField.IsCompatibleV4: boolean;
+begin
+  Result:=False;
+end;
+
+function TDABaseField.StoreDataType: Boolean;
+begin
+  result := MergeDatadictionaries or not HasValidDictionaryField();
+end;
+
+
+function TDABaseField.StoreDecimalPrecision: Boolean;
+begin
+  Result:= (MergeDatadictionaries or (FDecimalPrecision <>0)) and not IsCompatibleV4;
+end;
+
+function TDABaseField.StoreDecimalScale: Boolean;
+begin
+  Result:= (MergeDatadictionaries or (FDecimalScale <>0)) and not IsCompatibleV4;
+end;
+
+function TDABaseField.StoreGeneratorName: Boolean;
+begin
+  result := MergeDatadictionaries or not HasValidDictionaryField();
+end;
+
+function TDABaseField.StoreDescription: Boolean;
+begin
+  result := MergeDatadictionaries or not HasValidDictionaryField();
+end;
+
+function TDABaseField.StoreSize: Boolean;
+begin
+  result := MergeDatadictionaries or  (((DataType = datString) or (DataType = datWideString)) and (not HasValidDictionaryField()));
+end;
+
+function TDABaseField.GetBlobType: TDABlobType;
+begin
+  if HasValidDictionaryField
+    then result := GetDictionaryField().BlobType
+    else result := fBlobType
+end;
+
+function TDABaseField.GetGeneratorName: string;
+begin
+  if not HasValidDictionaryField then begin
+    result := fGeneratorName
+  end
+  else begin
+    result := GetDictionaryField().GeneratorName;
+  end;
+
+end;
+
+
+procedure TDABaseField.SetBlobType(const Value: TDABlobType);
+begin
+  fBlobType := Value;
+end;
+
+function TDABaseField.StoreBlobType: boolean;
+begin
+  result := HasValidDictionaryField;
+end;
+
+procedure TDABaseField.Clear;
+begin
+  Value := Null;
+end;
+
+procedure TDABaseField.SetGeneratorName(const aValue: string);
+begin
+  fGeneratorName := aValue
+end;
+
+procedure TDABaseField.SetDisplayName(const Value: string);
+begin
+  inherited;
+  fName := Value;
+end;
+
+function TDABaseField.GetAsLargeInt: int64;
+begin
+  Result := GetVarInt64(Value);
+end;
+
+procedure TDABaseField.SetAsLargeInt(const aValue: Int64);
+begin
+  Value := aValue;
+end;
+
+function TDABaseField.GetAsWideString: Unicodestring;
+begin
+  Result := GetVarWideString(Value);
+end;
+
+procedure TDABaseField.SetAsWideString(const aValue: Unicodestring);
+begin
+  Value := aValue;
+end;
+
+function TDABaseField.GetIsNull: boolean;
+begin
+  result := VarIsNull(Value);
+end;
+
+
+function TDABaseField.GetBlobSize: Integer;
+var
+  v: Variant;
+begin
+  v := GetValue;
+  if VarIsArray(v) then result := VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1
+  else if VarIsStr(v) then result := Length(v) else
+  Result := 0;
+end;
+
+function TDABaseField.GetAsByte: Byte;
+begin
+  result := GetVarByte(Value);
+end;
+
+function TDABaseField.GetAsCardinal: Cardinal;
+begin
+  result := GetVarCardinal(Value);
+end;
+
+function TDABaseField.GetAsDecimal: TBcd;
+begin
+  result := GetVarDecimal(Value);
+end;
+
+function TDABaseField.GetAsGuid: TGUID;
+begin
+  result := GetVarGuid(Value);
+end;
+
+function TDABaseField.GetAsLargeUInt: UInt64;
+begin
+  Result := GetVarLargeUInt(Value);
+end;
+
+function TDABaseField.GetAsShortInt: ShortInt;
+begin
+  result := GetVarShortInt(Value);
+end;
+
+function TDABaseField.GetAsSingle: Single;
+begin
+  result := GetVarSingleFloat(Value);
+end;
+
+function TDABaseField.GetAsSmallInt: SmallInt;
+begin
+  result := GetVarSmallInt(Value);
+end;
+
+function TDABaseField.GetAsWord: Word;
+begin
+  result := GetVarWord(Value);
+end;
+
+function TDABaseField.GetAsXml: IXMLNode;
+begin
+  result := GetVarXml(Value);
+end;
+
+procedure TDABaseField.SetAsByte(const Value: Byte);
+begin
+  self.Value := Value;
+end;
+
+procedure TDABaseField.SetAsCardinal(const Value: Cardinal);
+begin
+  self.Value := Value;
+end;
+
+procedure TDABaseField.SetAsDecimal(const Value: TBcd);
+begin
+  self.Value := BCDToVariant(Value);
+end;
+
+procedure TDABaseField.SetAsGuid(const Value: TGUID);
+begin
+  self.Value := GuidToString(Value);
+end;
+
+procedure TDABaseField.SetAsLargeUInt(const Value: UInt64);
+begin
+  self.Value := Value;
+end;
+
+procedure TDABaseField.SetAsShortInt(const Value: ShortInt);
+begin
+  self.Value := Value;
+end;
+
+procedure TDABaseField.SetAsSingle(const Value: Single);
+begin
+  self.Value := Value;
+end;
+
+procedure TDABaseField.SetAsSmallInt(const Value: SmallInt);
+begin
+  self.Value := Value;
+end;
+
+procedure TDABaseField.SetAsWord(const Value: Word);
+begin
+  self.Value := Value;
+end;
+
+procedure TDABaseField.SetAsXml(const Value: IXMLNode);
+begin
+  if Value = nil then
+    Self.Value := null
+  else
+    self.Value := Value.XML;
+end;
+
+procedure TDABaseField.SetDecimalPrecision(const Value: Integer);
+begin
+  FDecimalPrecision := Value;
+end;
+
+function TDABaseField.GetDecimalPrecision: Integer;
+begin
+  if not HasValidDictionaryField then begin
+    result := FDecimalPrecision
+  end
+  else begin
+    result := GetDictionaryField().DecimalPrecision;
+  end;
+end;
+
+function TDABaseField.GetDecimalScale: Integer;
+begin
+  if not HasValidDictionaryField then begin
+    result := FDecimalScale
+  end
+  else begin
+    result := GetDictionaryField().DecimalScale;
+  end;
+end;
+
+procedure TDABaseField.SetDecimalScale(const Value: Integer);
+begin
+  FDecimalScale := Value;
+end;
+
+function TDABaseField.MergeDatadictionaries: Boolean;
+var
+  lOwner: TObject;
+  lSchema: IDASchema;
+begin
+  result := false;
+  if DictionaryEntry = '' then exit;
+
+  lOwner := TDACustomFieldCollection(Collection).Owner;
+  if not (lOwner is TDADataSet) then exit;
+
+  lOwner := TDADatasetCollection(TDADataSet(lOwner).Collection).Owner;
+
+  if Supports(lOwner, IDASchema, lSchema) then
+    result := lSchema.MergeDataDictionaries;
+end;
+
+{ TDACustomField }
+
+constructor TDACustomField.Create(Collection: TCollection);
+begin
+  inherited;
+
+  fServerAutoRefresh := FALSE;
+  fCustomAttributes := TStringList.Create;
+  fVisible := TRUE;
+  fLogChanges := TRUE;
+end;
+
+destructor TDACustomField.Destroy;
+begin
+  fCustomAttributes.Free;
+  inherited;
+end;
+
+function TDACustomField.GetInPrimaryKey: boolean;
+begin
+  result := fInPrimaryKey
+end;
+
+function TDACustomField.GetRegExpression: string;
+begin
+  if not HasValidDictionaryField
+    then result := fRegExpression
+    else result := GetDictionaryField().RegExpression;
+end;
+
+function TDACustomField.GetDefaultValue: string;
+begin
+  if not HasValidDictionaryField
+    then result := fDefaultValue
+    else result := GetDictionaryField().DefaultValue;
+end;
+
+function TDACustomField.GetRequired: boolean;
+begin
+  if not HasValidDictionaryField
+    then result := fRequired
+    else result := GetDictionaryField().Required;
+end;
+
+function TDACustomField.GetDisplayLabel: string;
+begin
+  if not HasValidDictionaryField
+    then result := fDisplayLabel
+    else result := GetDictionaryField().DisplayLabel;
+
+  if (result='') then result := Name;
+end;
+
+function TDACustomField.GetDisplayWidth: integer;
+begin
+  if not HasValidDictionaryField
+    then result := fDisplayWidth
+    else result := GetDictionaryField().DisplayWidth;
+end;
+
+function TDACustomField.GetEditMask: string;
+begin
+  if not HasValidDictionaryField
+    then result := fEditMask
+    else result := GetDictionaryField().EditMask;
+end;
+
+function TDACustomField.GetReadOnly: boolean;
+begin
+  if not HasValidDictionaryField
+    then result := fReadOnly
+    else result := GetDictionaryField().ReadOnly;
+end;
+
+function TDACustomField.GetVisible: boolean;
+begin
+  if not HasValidDictionaryField
+    then result := fVisible
+    else result := GetDictionaryField().Visible;
+end;
+
+function TDACustomField.GetDisplayFormat: string;
+begin
+  if not HasValidDictionaryField
+    then result := fDisplayFormat
+    else result := GetDictionaryField().DisplayFormat;
+end;
+
+function TDACustomField.GetAlignment: TAlignment;
+begin
+  if not HasValidDictionaryField
+    then result := fAlignment
+    else result := GetDictionaryField().Alignment;
+end;
+
+function TDACustomField.GetEditFormat: string;
+begin
+  if not HasValidDictionaryField
+    then result := fEditFormat
+    else result := GetDictionaryField().EditFormat;
+end;
+
+procedure TDACustomField.SetInPrimaryKey(const Value: boolean);
+begin
+  fInPrimaryKey := Value
+end;
+
+procedure TDACustomField.SetRegExpression(const Value: string);
+begin
+  fRegExpression := Value
+end;
+
+procedure TDACustomField.LoadFromFile(const aFileName: string);
+begin
+  if (fField<>nil) then begin
+    if (fField is TBlobField) then TBlobField(fField).LoadFromFile(aFileName)
+  end
+  else RaiseError(err_FieldIsNotBound);
+end;
+
+procedure TDACustomField.SaveToFile(const aFileName: string);
+begin
+  if (fField<>nil) then begin
+    if (fField is TBlobField) then TBlobField(fField).SaveToFile(aFileName)
+  end
+  else RaiseError(err_FieldIsNotBound);
+end;
+
+procedure TDACustomField.LoadFromStream(const aStream: IROStream);
+begin
+  LoadFromStream(aStream.Stream);
+end;
+
+procedure TDACustomField.SaveToStream(const aStream: IROStream);
+begin
+  SaveToStream(aStream.Stream);
+end;
+
+function TDACustomField.GetValue: Variant;
+{$IFNDEF DA_WideMemoSupport}{$IFNDEF DELPHI2006UP}
+var
+  s: Ansistring;
+  ws: UnicodeString;
+{$ENDIF}{$ENDIF}
+begin
+  //exists problem with uninitialized variant in Win 2000
+  result := Null;
+  //
+  if Assigned(fField) then begin
+    if fField.IsNull then Result := Null else
+    {$IFNDEF FPC}
+      if fField is TWideStringField then result := TWideStringField(fField).Value else
+      if fField is TSQLTimeStampField then result := VarFromDateTime(TSQLTimeStampField(fField).AsDateTime) else
+    {$ENDIF}
+    {$IFDEF ftFMTBCD_Support}
+      if fField is TFMTBCDField then result := DecimalToString(BCDToDecimal(TFMTBCDField(fField).AsBCD),DecimalSeparator) else
+    {$ENDIF}
+    {$IFDEF DA_WideMemoSupport}
+      if fField is TWideMemoField then result := TWideMemoField(fField).Value else
+    {$ELSE}
+      if DataType = datXml then begin
+        if (fField is TBlobField) then begin
+          {$IFDEF DELPHI2006UP}
+          Result := TBlobField(fField).AsWideString;
+          {$ELSE}
+          s := TBlobField(fField).Value;
+          SetLength(ws, Length(s) div SizeOf(WideChar));
+          Move(pointer(s)^, pointer(ws)^, Length(ws)*SizeOf(WideChar));
+          Result := ws;
+          {$ENDIF}
+        end
+      end else
+    {$ENDIF DA_WideMemoSupport}
+      if DataType = datCardinal then Result := GetAsCardinal else
+      result := fField.Value;
+  end
+  else result := Null;
+end;
+
+procedure TDACustomField.SetValue(const Value: Variant);
+var
+  aDecimal: TDecimal;
+  {$IFNDEF DA_WideMemoSupport}{$IFNDEF DELPHI2006UP}
+  s: Ansistring;
+  ws: UnicodeString;
+  {$ENDIF}{$ENDIF}
+begin
+  if Assigned(fField) then begin
+    {$IFNDEF FPC}
+    if (fField is TWideStringField) and not VarIsNull( Value ) then begin
+      TWideStringField(fField).Value := Value;
+    end
+    else
+    {$ENDIF}
+    {$IFDEF DA_WideMemoSupport}
+    if (fField is TWideMemoField) and not VarIsNull( Value ) then begin
+      fField.AsWideString := Value;
+    end
+    else
+    {$ELSE}
+    if DataType = datXml then begin
+      if (fField is TBlobField) and not VarIsNull(Value) then begin
+        {$IFDEF DELPHI2006UP}
+        TBlobField(fField).AsWideString := Value;
+        {$ELSE}
+        ws := Value;
+        SetLength(s, Length(ws)*SizeOf(WideChar));
+        Move(pointer(ws)^,pointer(s)^,Length(s));
+        TBlobField(fField).AsString := s;
+        {$ENDIF}
+      end
+      else
+        fField.Value := Value // old behavior
+    end
+    else
+    {$ENDIF DA_WideMemoSupport}
+    if (fField is TLargeintField) and not VarIsNull( Value ) then begin
+      TLargeintField(fField).Value := Value;
+    end
+    else if DataType = datDecimal then begin
+      if VarByteArrayToDecimal(Value,aDecimal) then
+        SetAsDecimal(DecimalToBCD(aDecimal))
+      else
+        SetAsDecimal(VariantToBCD(Value))
+    end
+    else if DataType = datCardinal then begin
+      SetAsCardinal(Value)
+    end
+    else
+      fField.Value := Value
+  end
+  else begin
+    RaiseError(err_FieldIsNotBound);
+  end;
+end;
+
+procedure TDACustomField.Bind(aField: TField);
+begin
+  FNativeField:= nil;
+  fField := aField;
+
+  if Assigned(fField) then begin
+    fField.DisplayLabel := DisplayLabel;
+    fField.DisplayWidth := DisplayWidth;
+    {$IFNDEF FPC}
+    fField.EditMask := EditMask;
+    {$ENDIF FPC}
+    fField.ReadOnly := ReadOnly;
+    fField.Required := Required;
+    fField.Visible := Visible;
+    fField.Alignment := Alignment;
+
+    if (fField is TNumericField) then begin
+      TNumericField(fField).DisplayFormat := DisplayFormat;
+      TNumericField(fField).EditFormat := EditFormat;
+    end
+
+    else if (fField is TDateTimeField) then begin
+      TDateTimeField(fField).DisplayFormat := DisplayFormat
+    end
+{$IFDEF ftFMTBCD_Support}
+    else if (fField is TFMTBCDField) then begin
+      TFMTBCDField(fField).Precision := DecimalPrecision;
+      TFMTBCDField(fField).Size := DecimalScale;
+    end
+{$ENDIF}
+    else if (fField is TBCDField) then begin
+      TBCDField(fField).Precision := DecimalPrecision;
+      TBCDField(fField).Size := DecimalScale;
+    end
+    else if (fField is TBlobField) then begin
+{$IFDEF DA_WideMemoSupport}
+      if TBlobField(fField).BlobType <> ftWideMemo then
+{$ENDIF DA_WideMemoSupport}
+        if Datatype = datMemo then
+          TBlobField(fField).BlobType := ftMemo
+        else
+          TBlobField(fField).BlobType := BlobTypeMappings[BlobType];
+    end;
+
+    fField.OnValidate := InternalOnValidate;
+    fField.OnChange := InternalOnChange;
+
+    {fField.Lookup := Lookup;
+    if (LookupSource<>NIL) then
+      with TDADataSource(LookupSource) do
+        if Assigned(DataTable)
+          then fField.LookupDataSet := DataTable.Dataset;
+
+    fField.LookupKeyFields := LookupKeyFields;
+    fField.LookupCache := LookupCache;
+    fField.LookupResultField := LookupResultField;
+    fField.KeyFields := KeyFields;}
+  end;
+end;
+
+procedure TDACustomField.Unbind;
+begin
+  if (fField=NIL) then Exit;
+
+  fField.OnChange := nil;
+  fField.OnSetText := nil;
+  fField.OnGetText := nil;
+  fField.OnValidate := nil;
+
+  fField := nil;
+end;
+
+function TDACustomField.GetTableField: string;
+begin
+  result := fTableField
+end;
+
+procedure TDACustomField.SetTableField(const Value: string);
+begin
+  fTableField := Value;
+end;
+
+procedure TDACustomField.SetName(const Value: string);
+var
+  updatesc: boolean;
+begin
+  updatesc := (fTableField = '') or (fTableField = Name);
+
+  inherited;
+
+  if updatesc then fTableField := Value;
+end;
+
+function TDACustomField.GetCustomAttributes: TStrings;
+begin
+  if not HasValidDictionaryField then
+    result := fCustomAttributes
+  else
+    result := GetDictionaryField().fCustomAttributes;
+end;
+
+procedure TDACustomField.SetCustomAttributes(const Value: TStrings);
+begin
+  fCustomAttributes.Assign(Value);
+end;
+
+procedure TDACustomField.Assign(Source: TPersistent);
+begin
+  if (Source is TDACustomField) then begin
+    AssignField(TDACustomField(Source));
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+procedure TDACustomField.AssignField(Source: TDABaseField);
+var
+  lSource: TDACustomField;
+begin
+  inherited;
+  lSource := TDACustomField(Source);
+
+  fField := nil; { Assigned DAField will always be unbound }
+  fTableField := lSource.fTableField;
+  fRequired := lSource.fRequired;
+  fInPrimaryKey := lSource.fInPrimaryKey;
+  fRegExpression := lSource.fRegExpression;
+  fDefaultValue := lSource.fDefaultValue;
+  fDictionaryEntry := lSource.fDictionaryEntry;
+  fDisplayWidth := lSource.fDisplayWidth;
+  fDisplayLabel := lSource.fDisplayLabel;
+  fDisplayFormat := lSource.DisplayFormat;
+
+  fReadOnly := lSource.fReadOnly;
+  fVisible := lSource.fVisible;
+  fEditMask := lSource.fEditMask;
+  fLogChanges := lSource.fLogChanges;
+  fCalculated := lSource.fCalculated;
+  fServerCalculated := lSource.fServerCalculated;
+
+  fEditFormat := lSource.EditFormat;
+  fAlignment := lSource.Alignment;
+
+  fOnChange := lSource.OnChange;
+  {fOnGetText  := lSource.OnGetText;
+  fOnSetText  := lSource.OnSetText;}
+  fOnValidate := lSource.OnValidate;
+
+  fLookupCache := lSource.LookupCache;
+  fLookupKeyFields := lSource.LookupKeyFields;
+  fLookupResultField := lSource.LookupResultField;
+  fKeyFields := lSource.KeyFields;
+  fLookupSource := lSource.LookupSource;
+  fLookup := lSource.Lookup;
+
+  //fCustomAttributes.Assign(lSource.fCustomAttributes);
+  fCustomAttributes.Text := lSource.fCustomAttributes.Text;
+
+  fServerAutoRefresh := lSource.ServerAutoRefresh;
+  fGeneratorName := lSource.GeneratorName;
+
+  fBusinessClassID := lSource.BusinessClassID;
+end;
+
+procedure TDACustomField.InternalOnChange(Sender: TField);
+begin
+  if not (Collection as TDACustomFieldCollection).FieldEventsDisabled then
+  begin
+    if assigned(TDACustomFieldCollection(Collection).OnFieldAfterUpdate) then
+      TDACustomFieldCollection(Collection).OnFieldAfterUpdate(Self);
+    if Assigned(fOnChange) then
+      fOnChange(Self);
+  end;
+end;
+
+procedure TDACustomField.InternalOnValidate(Sender: TField);
+begin
+  if not (Collection as TDACustomFieldCollection).FieldEventsDisabled then
+  begin
+    if assigned(TDACustomFieldCollection(Collection).OnFieldBeforeUpdate) then
+      TDACustomFieldCollection(Collection).OnFieldBeforeUpdate(Self);
+    if Assigned(fOnValidate) then
+      fOnValidate(Self);
+  end;
+end;
+
+function TDACustomField.IsCompatibleV4: boolean;
+begin
+  if Assigned(FieldCollection) then
+    Result := FieldCollection.IsCompatibleV4
+  else
+    Result := inherited IsCompatibleV4;
+end;
+
+procedure TDACustomField.SetDisplayLabel(const aValue: string);
+begin
+  fDisplayLabel := aValue;
+  if Assigned(fField) then fField.DisplayLabel := aValue;
+end;
+
+procedure TDACustomField.SetRequired(const aValue: boolean);
+begin
+  fRequired := aValue;
+  if Assigned(fField) then fField.Required := aValue;
+end;
+
+procedure TDACustomField.SetVisible(const aValue: boolean);
+begin
+  fVisible := aValue;
+  if Assigned(fField) then fField.Visible := aValue;
+end;
+
+procedure TDACustomField.SetDisplayWidth(const aValue: integer);
+begin
+  fDisplayWidth := aValue;
+  if Assigned(fField) then fField.DisplayWidth := aValue;
+end;
+
+procedure TDACustomField.SetEditMask(const aValue: string);
+begin
+  fEditMask := aValue;
+  {$IFNDEF FPC}
+  if Assigned(fField) then fField.EditMask := aValue;
+  {$ENDIF}
+end;
+
+procedure TDACustomField.SetReadOnly(const aValue: boolean);
+begin
+  fReadOnly := aValue;
+  if Assigned(fField) then fField.ReadOnly := aValue;
+end;
+
+procedure TDACustomField.SetDisplayFormat(const Value: string);
+begin
+  fDisplayFormat := Value;
+  if Assigned(fField) then begin
+    if (fField is TNumericField) then
+      TNumericField(fField).DisplayFormat := Value
+    else if (fField is TDateTimeField) then
+      TDateTimeField(fField).DisplayFormat := Value;
+  end;
+end;
+
+
+function TDACustomField.StoredExpression: Boolean;
+begin
+  Result:= not IsCompatibleV4;
+end;
+
+function TDACustomField.StoreDisplayLabel: Boolean;
+begin
+  result := MergeDatadictionaries or (not HasValidDictionaryField()) and (fDisplayLabel <> '') and (fDisplayLabel <> Name);
+end;
+
+
+function TDACustomField.StoredServerCalculated: Boolean;
+begin
+  Result:= not IsCompatibleV4;
+end;
+
+function TDAField.GetDisplayName: string;
+begin
+  result := Format('%s [%s, %d', [fName, GetEnumName(TypeInfo(TDADataType), Ord(DataType)), Size]);
+
+  if Required then
+    result := result+', REQUIRED';
+
+  result := result+']'
+end;
+
+function TDACustomField.GetOwner: TPersistent;
+begin
+  result := Collection;
+end;
+
+function TDACustomField.GetNamePath: string;
+begin
+  if (Collection <> nil) and (Collection.Owner <> nil) and (Collection.Owner is TComponent) then
+    result := TComponent(Collection.Owner).Name + '.' + FName
+  else
+    result := FName;
+end;
+
+procedure TDACustomField.SetAlignment(const Value: TAlignment);
+begin
+  fAlignment := Value;
+  if Assigned(fField) then fField.Alignment := Value;
+end;
+
+procedure TDACustomField.SetEditFormat(const Value: string);
+begin
+  fEditFormat := Value;
+
+  if Assigned(fField) then begin
+    if (fField is TNumericField) then TNumericField(fField).EditFormat := Value
+  end;
+end;
+
+procedure TDACustomField.SetKeyFields(const Value: string);
+begin
+  fKeyFields := Value;
+  if Assigned(fField)
+    then fField.KeyFields := Value;
+end;
+
+procedure TDACustomField.SetLookupCache(const Value: boolean);
+begin
+  fLookupCache := Value;
+  if Assigned(fField)
+    then fField.LookupCache := Value;
+end;
+
+procedure TDACustomField.SetLookupKeyFields(const Value: string);
+begin
+  fLookupKeyFields := Value;
+  if Assigned(fField)
+    then fField.LookupKeyFields := Value;
+end;
+
+procedure TDACustomField.SetLookupResultField(const Value: string);
+begin
+  fLookupResultField := Value;
+  if Assigned(fField)
+    then fField.LookupResultField := Value;
+end;
+
+type
+  THackField = class(TField)
+  end;
+
+procedure TDACustomField.SetLookupSource(const Value: TDataSource);
+begin
+  if Assigned(Value) and not (Value is TDABaseDataSource) then raise Exception.Create('LookupSource must be a TDADataSource');
+
+  fLookupSource := Value;
+  if Assigned(fField) then
+    if Assigned(Value)
+      then fField.LookupDataSet := Value.DataSet
+      else THackField(fField).Notification(fField.LookupDataSet,opRemove);
+end;
+
+procedure TDACustomField.SetCalculated(const Value: boolean);
+begin
+  fCalculated := Value;
+  if Value then begin
+    fLookup := FALSE;
+    fServerCalculated := false;
+  end;
+end;
+
+procedure TDACustomField.SetLookup(const Value: boolean);
+begin
+  fLookup := Value;
+  if Value then begin
+    fCalculated := FALSE;
+  end;
+end;
+
+function TDACustomField.GetFieldCollection: TDACustomFieldCollection;
+begin
+  result := TDACustomFieldCollection(Collection);
+end;
+
+procedure TDACustomField.SetBlobType(const Value: TDABlobType);
+begin
+  inherited;
+
+  if Assigned(fField) and (fField is TBlobField)
+    then TBlobField(fField).BlobType := BlobTypeMappings[Value];
+end;
+
+function TDACustomField.GetServerAutoRefresh: boolean;
+begin
+  result := fServerAutoRefresh
+end;
+
+procedure TDACustomField.SetServerAutoRefresh(const Value: boolean);
+begin
+  fServerAutoRefresh := Value;
+end;
+
+function TDACustomField.GetLogChanges: boolean;
+begin
+  if not HasValidDictionaryField
+    then result := fLogChanges
+    else result := GetDictionaryField().fLogChanges;
+  result := Result and not (fCalculated or fLookup)
+end;
+
+function TDACustomField.StoreProperties: boolean;
+begin
+  result := MergeDatadictionaries or not HasValidDictionaryField();
+end;
+
+function TDACustomField.GetOldValue: Variant;
+begin
+  if Assigned(fField)
+    then result := fField.OldValue
+    else result := Unassigned;
+end;
+
+function TDACustomField.GetSQLOrigin: string;
+begin
+  if fSQLOrigin=''
+    then result := TableField
+    else result := fSQLOrigin;
+end;
+
+procedure TDACustomField.FocusControl;
+begin
+  if Assigned(fField)
+    then fField.FocusControl;
+end;
+
+{procedure TDACustomField.SetBusinessRulesID(const Value: string);
+begin
+  BusinessClassID := Value;
+end;
+
+function TDACustomField.GetBusinessRulesID: string;
+begin
+  result := BusinessClassID;
+end;}
+
+function TDACustomField.GetBusinessClassID: string;
+begin
+  if not HasValidDictionaryField
+    then result := fBusinessClassID
+    else result := GetDictionaryField().BusinessClassID;
+end;
+
+procedure TDACustomField.SetBusinessClassID(const Value: string);
+begin
+  fBusinessClassID := Value;
+end;
+
+procedure TDACustomField.LoadFromStream(const aStream: TStream);
+begin
+  if (fField<>nil) then begin
+    if (fField is TBlobField) then TBlobField(fField).LoadFromStream(aStream)
+  end
+  else RaiseError(err_FieldIsNotBound);
+end;
+
+procedure TDACustomField.SaveToStream(const aStream: TStream);
+begin
+  if (fField<>nil) then begin
+    if (fField is TBlobField) then TBlobField(fField).SaveToStream(aStream)
+  end
+  else RaiseError(err_FieldIsNotBound);
+end;
+
+function TDACustomField.GetBlobSize: Integer;
+begin
+  if fField is TBlobField then
+    result := TBlobField(fField).BlobSize
+  else
+    Result := 0;
+end;
+
+procedure TDACustomField.SetServerCalculated(const Value: Boolean);
+begin
+  fServerCalculated := Value;
+  if Value then begin
+    Readonly := True;
+    LogChanges := False;
+    Calculated := False;
+    InPrimaryKey := False;
+  end;
+end;
+
+procedure TDACustomField.SetExpression(const Value: string);
+begin
+  fExpression := Value;
+  if value <> '' then
+    Calculated := true; // will unset lookup & server calculated
+end;
+
+
+function TDACustomField.GetAsAnsiString: Ansistring;
+begin
+  if Assigned(fField) then
+    {$IFDEF DELPHI12UP}
+      {$IFNDEF DELPHI2009_USE_AsAnsiString_for_TStringField}
+      if fField.DataType = ftString then
+        Result := VarToAnsiStr(fField.Value)
+      else
+      {$ENDIF}
+        Result := fField.AsAnsiString
+    {$ELSE}
+    Result := fField.AsString
+    {$ENDIF}
+  else
+    Result := inherited GetAsAnsiString;
+end;
+
+function TDACustomField.GetAsBoolean: boolean;
+begin
+  if Assigned(fField) then begin
+    if fField is TNumericField then
+      Result:= fField.AsInteger <> 0
+    else
+      Result:= fField.AsBoolean;
+  end
+  else if Assigned(FNativeField) then begin
+    Result := GetVarBoolean(FNativeField.Value);
+  end
+  else begin
+    Result:= inherited GetAsBoolean;
+  end;
+end;
+
+function TDACustomField.GetAsCurrency: currency;
+begin
+  if Assigned(fField) then
+    Result:= fField.AsCurrency
+  else if Assigned(FNativeField) then
+    Result := GetVarCurrency(FNativeField.Value)
+  else
+    Result:= inherited GetAsCurrency;
+end;
+
+function TDACustomField.GetAsDateTime: TDateTime;
+begin
+  if Assigned(fField) then
+    Result:= fField.AsDateTime
+  else if Assigned(FNativeField) then
+    Result := GetVarDateTime(FNativeField.Value)
+  else
+    Result:= inherited GetAsDateTime;
+end;
+
+function TDACustomField.GetAsFloat: double;
+begin
+  if Assigned(fField) then
+    Result:= fField.AsFloat
+  else if Assigned(FNativeField) then
+    Result := GetVarFloat(FNativeField.Value)
+  else
+    Result:= inherited GetAsFloat;
+end;
+
+function TDACustomField.GetAsInteger: integer;
+begin
+  if Assigned(fField) then
+    Result:= fField.AsInteger
+  else if Assigned(FNativeField) then
+    Result := GetVarInteger(FNativeField.Value)
+  else
+    Result:= inherited GetAsInteger;
+end;
+
+function TDACustomField.GetAsLargeInt: int64;
+begin
+  if Assigned(fField) and (fField.DataType = ftLargeInt) then
+    Result:= TLargeintField(fField).AsLargeint
+  else if Assigned(FNativeField) then
+    Result := GetVarInt64(FNativeField.Value)
+  else
+    result:= inherited GetAsLargeInt;
+end;
+
+function TDACustomField.GetAsString: string;
+begin
+  if Assigned(fField) then
+    Result:= fField.AsString
+  else if Assigned(FNativeField) then
+    Result := GetVarString(FNativeField.Value)
+  else
+    Result:= inherited GetAsString;
+end;
+
+function TDACustomField.GetAsVariant: variant;
+begin
+  if Assigned(fField) then
+    Result:= fField.AsVariant
+  else if Assigned(FNativeField) then
+    Result := FNativeField.Value
+  else
+    Result:= inherited GetAsVariant;
+end;
+
+function TDACustomField.GetAsWideString: Unicodestring;
+begin
+  if Assigned(fField) and (fField.DataType = ftWideString) then begin
+    if GetIsNull then
+      Result:=''
+    else
+     {$IFNDEF FPC}
+      Result := TWideStringField(fField).Value;
+     {$ELSE}
+      REsult:= inherited GetAsWideString;
+     {$ENDIF}
+  end
+  {$IFDEF DA_WideMemoSupport}
+  else if Assigned(fField) and (fField.DataType = ftWideMemo) then
+    Result := TWideMemoField(fField).Value
+  {$ENDIF DA_WideMemoSupport}
+  else if Assigned(FNativeField) then
+    Result := GetVarWideString(FNativeField.Value)
+  else
+    Result := inherited GetAsWideString;
+end;
+
+function TDACustomField.GetIsNull: boolean;
+begin
+  if Assigned(fField) then
+    Result:= fField.IsNull
+  else if Assigned(FNativeField) then
+    Result:= FNativeField.IsNull
+  else
+    Result:= inherited GetIsNull;
+end;
+
+procedure TDACustomField.SetAsAnsiString(const aValue: Ansistring);
+begin
+  if Assigned(fField) then
+    {$IFDEF DELPHI12UP}
+    fField.AsAnsiString := aValue
+    {$ELSE}
+    fField.AsString := aValue
+    {$ENDIF}
+  else
+    inherited SetAsAnsiString(aValue);
+end;
+
+procedure TDACustomField.SetAsBoolean(const aValue: boolean);
+begin
+  if Assigned(fField) then begin
+    if fField is TNumericField then
+      fField.AsInteger := Ord(aValue)
+    else
+      fField.AsBoolean := aValue;
+  end
+  else begin
+    inherited SetAsBoolean(aValue);
+  end;
+end;
+
+procedure TDACustomField.SetAsCurrency(const aValue: currency);
+begin
+  if Assigned(fField) then
+    fField.AsCurrency := aValue
+  else
+    inherited SetAsCurrency(aValue);
+end;
+
+procedure TDACustomField.SetAsDateTime(const aValue: TDateTime);
+begin
+  if Assigned(fField) then
+    fField.AsDateTime := aValue
+  else
+    inherited SetAsDateTime(aValue);
+end;
+
+procedure TDACustomField.SetAsFloat(const aValue: double);
+begin
+  if Assigned(fField) then
+    fField.AsFloat := aValue
+  else
+    inherited SetAsFloat(aValue);  
+end;
+
+procedure TDACustomField.SetAsInteger(const aValue: integer);
+begin
+  if Assigned(fField) then 
+    fField.AsInteger := aValue
+  else
+    inherited SetAsInteger(aValue);  
+end;
+
+procedure TDACustomField.SetAsLargeInt(const aValue: Int64);
+begin
+  if Assigned(fField) and (fField.DataType = ftLargeInt) then
+    TLargeintField(fField).AsLargeInt := aValue
+  else
+    inherited SetAsLargeInt(aValue);
+end;
+
+procedure TDACustomField.SetAsString(const aValue: string);
+begin
+  if Assigned(fField) then
+    fField.AsString := aValue
+  else
+    inherited SetAsString(aValue);
+end;
+
+procedure TDACustomField.SetAsVariant(const aValue: variant);
+begin
+  if Assigned(fField) then
+    fField.AsVariant := aValue
+  else
+    inherited SetAsVariant(aValue);
+end;
+
+procedure TDACustomField.SetAsWideString(const aValue: Unicodestring);
+begin
+{$IFNDEF FPC}
+  if (fField<>nil) and (fField.DataType = ftWideString) then TWideStringField(fField).Value := aValue else
+{$ENDIF}
+{$IFDEF DA_WideMemoSupport}
+  if (fField<>nil) and (fField.DataType = ftWideMemo) then TWideMemoField(fField).Value := aValue else
+{$ENDIF}
+  inherited SetAsWideString(aValue);
+end;
+
+function TDACustomField.GetAsByte: Byte;
+begin
+  Result := GetAsSmallInt;
+end;
+
+function TDACustomField.GetAsCardinal: Cardinal;
+begin
+  Result := GetAsInteger;
+end;
+
+function TDACustomField.GetAsDecimal: TBcd;
+begin
+{$IFDEF ftFMTBCD_Support}
+  if Assigned(fField) and (fField.DataType = ftFmtBcd) then
+    result := TFMTBCDField(fField).AsBCD
+  else
+{$ENDIF}
+  if Assigned(fField) and (fField.DataType = ftBcd) then
+    {$IFNDEF FPC}
+    result := TBCDField(fField).AsBCD
+    {$ELSE}
+    Result := CurrToBCD(TBCDField(fField).Value)
+    {$ENDIF}
+  else if Assigned(FNativeField) then
+    Result := GetVarDecimal(FNativeField.Value)
+  else
+    result := inherited GetAsDecimal;
+end;
+
+function TDACustomField.GetAsGuid: TGUID;
+begin
+{$IFNDEF FPC}
+  if Assigned(fField) and (fField.DataType = ftGuid) then
+    result := TGuidField(fField).AsGuid
+  else
+{$ENDIF}
+  if Assigned(FNativeField) then
+    Result := GetVarGuid(GetAsString)
+  else
+    result := inherited GetAsGuid;
+end;
+
+function TDACustomField.GetAsLargeUInt: UInt64;
+begin
+  if Assigned(FNativeField) then
+    Result := GetVarLargeUInt(FNativeField.Value)
+  else
+    result := inherited GetAsLargeUInt;
+end;
+
+function TDACustomField.GetAsShortInt: ShortInt;
+begin
+  if Assigned(FNativeField) then
+    Result := GetVarShortInt(FNativeField.Value)
+  else
+    Result := GetAsSmallInt;
+end;
+
+function TDACustomField.GetAsSingle: Single;
+begin
+  if Assigned(fField) then
+    result := fField.AsFloat
+  else if Assigned(FNativeField) then
+    Result := GetVarSingleFloat(FNativeField.Value)
+  else
+    Result := inherited GetAsSingle;
+end;
+
+function TDACustomField.GetAsSmallInt: SmallInt;
+begin
+  if Assigned(fField) and (fField.DataType = ftSmallint) then
+    result := TSmallintField(fField).Value
+  else if Assigned(FNativeField) then
+    Result := GetVarSmallInt(FNativeField.Value)
+  else
+    result := inherited GetAsSmallInt;
+end;
+
+function TDACustomField.GetAsWord: Word;
+begin
+  if Assigned(fField) and (fField.DataType = ftWord) then
+    result := TWordField(fField).AsInteger
+  else if Assigned(FNativeField) then
+    Result := GetVarWord(FNativeField.Value)
+  else
+    result := inherited GetAsWord;
+end;
+
+function TDACustomField.GetAsXml: IXMLNode;
+var
+  s: string;
+  lDoc: IXMLDocument;
+begin
+  s := GetAsWideString;
+  if s = '' then result := nil else begin
+    lDoc := NewROXmlDocument;
+    lDoc.New;
+    lDoc.XML := s;
+    Result := lDoc.DocumentNode;
+  end;
+end;
+
+procedure TDACustomField.SetAsByte(const Value: Byte);
+begin
+  SetAsSmallInt(Value);
+end;
+
+procedure TDACustomField.SetAsCardinal(const Value: Cardinal);
+begin
+  SetAsInteger(Value);
+end;
+
+procedure TDACustomField.SetAsDecimal(const Value: TBcd);
+{$IFDEF FPC}
+var
+  lCur: Currency;
+{$ENDIF}
+begin
+{$IFDEF ftFMTBCD_Support}
+  if (fField<>nil) and (fField.DataType = ftFMTBcd) then
+    TFMTBCDField(fField).AsBCD := Value
+  else
+{$ENDIF}
+  if (fField<>nil) and (fField.DataType = ftBcd) then begin
+    {$IFNDEF FPC}
+    TBCDField(fField).AsBCD := Value
+    {$ELSE}
+    lCur := 0;
+    if BCDToCurr(Value, lCur) then
+      TBCDField(fField).Value := lCur
+    else
+      TBCDField(fField).AsFloat := BCDToDouble(Value)
+    {$ENDIF}
+  end
+  else
+    inherited SetAsDecimal(Value);
+end;
+
+procedure TDACustomField.SetAsGuid(const Value: TGUID);
+begin
+{$IFNDEF FPC}
+  if (fField<>nil) and (fField.DataType = ftGuid) then
+    TGuidField(fField).AsGuid := Value
+  else
+{$ENDIF}
+    inherited SetAsGuid(Value);
+end;
+
+procedure TDACustomField.SetAsLargeUInt(const Value: UInt64);
+begin
+  if Assigned(fField) then
+    fField.Value := Value
+  else
+    inherited SetAsLargeUInt(Value);
+end;
+
+procedure TDACustomField.SetAsShortInt(const Value: ShortInt);
+begin
+  SetAsSmallInt(Value);
+end;
+
+procedure TDACustomField.SetAsSingle(const Value: Single);
+begin
+  if Assigned(fField) then 
+    SetAsFloat(Value)
+  else
+    inherited SetAsSingle(Value);  
+end;
+
+procedure TDACustomField.SetAsSmallInt(const Value: SmallInt);
+begin
+  if Assigned(fField) and (fField.DataType = ftSmallint) then
+    TSmallintField(fField).Value := Value
+  else
+    inherited SetAsSmallInt(Value);
+end;
+
+procedure TDACustomField.SetAsWord(const Value: Word);
+begin
+  if Assigned(fField) and (fField.DataType = ftWord) then
+    TWordField(fField).AsInteger := Value
+  else
+    inherited SetAsWord(Value);
+end;
+
+procedure TDACustomField.SetAsXml(const Value: IXMLNode);
+begin
+  if (Value = nil) then
+    AsVariant := Null
+  else begin
+    SetAsWideString(Value.Xml);
+  end;
+end;
+
+procedure TDACustomField.SetDecimalPrecision(const Value: Integer);
+begin
+  inherited;
+  if Assigned(fField) then begin
+{$IFDEF ftFMTBCD_Support}
+    if fField is TFMTBCDField then TFMTBCDField(fField).Precision:=Value
+    else
+{$ENDIF}
+      if fField is TBCDField then TBCDField(fField).Precision:=Value;
+  end;
+end;
+
+function TDACustomField.GetDecimalPrecision: Integer;
+begin
+  Result:=inherited GetDecimalPrecision;
+  if Assigned(fField) then begin
+{$IFDEF ftFMTBCD_Support}
+    if fField is TFMTBCDField then Result := TFMTBCDField(fField).Precision
+    else
+{$ENDIF}
+      if fField is TBCDField then Result := TBCDField(fField).Precision;
+  end;
+end;
+
+function TDACustomField.GetDecimalScale: Integer;
+begin
+  Result:=inherited GetDecimalScale;
+  if Assigned(fField) then begin
+{$IFDEF ftFMTBCD_Support}
+    if fField is TFMTBCDField then Result := TFMTBCDField(fField).Size
+    else
+{$ENDIF}
+     if fField is TBCDField then Result := TBCDField(fField).Size;
+  end;
+end;
+
+procedure TDACustomField.SetDecimalScale(const Value: Integer);
+begin
+  inherited;
+  if Assigned(fField) then begin
+{$IFDEF ftFMTBCD_Support}
+    if fField is TFMTBCDField then TFMTBCDField(fField).Size:=Value
+    else
+{$ENDIF}
+    if fField is TBCDField then TBCDField(fField).Size:=Value;
+  end;
+end;
+
+procedure TDACustomField.Bind(aField: IDANativeField);
+begin
+  {$IFDEF Drivers_CompatibilityMode}
+  if aField.isTFieldCompatible then
+    Self.Bind(TField(aField.GetNativeObject))
+  else
+  {$ENDIF}
+  begin
+    if Assigned(aField) then begin
+      {$IFNDEF Drivers_CompatibilityMode}
+      if aField.isTFieldCompatible then fField := TField(aField.GetNativeObject);
+      {$ENDIF}
+      if DataType in [datFloat, datCurrency, datAutoInc, datInteger, datLargeInt,
+                      datShortInt, datWord, datSmallInt, datCardinal, datLargeUInt,
+                      datDecimal, datSingleFloat, datLargeAutoInc] then begin
+        aField.DecimalPrecision := DecimalPrecision;
+        aField.DecimalScale     := DecimalScale;
+      end;
+      if DataType in [datBlob,datMemo,datWideMemo, datXml] then
+        {$IFDEF DA_WideMemoSupport}
+        if aField.DataType <> ftWideMemo then
+        {$ENDIF}
+          if BlobType <> dabtUnknown then
+            aField.DataType := BlobTypeMappings[BlobType];
+    end;
+  end;
+  fNativeField := aField;
+end;
+
+{ TDACustomFieldCollection }
+
+constructor TDACustomFieldCollection.Create(aOwner: TPersistent; aFieldClass: TDAFieldClass);
+begin
+  inherited Create(aOwner, aFieldClass);
+end;
+
+function TDACustomFieldCollection.Add: TDAField;
+begin
+  result := TDAField(inherited Add);
+end;
+
+function TDACustomFieldCollection.Add(const aName: string; aType: TDADataType; aSize: integer): TDACustomField;
+begin
+  result := Add;
+  result.Name := aName;
+  result.DataType := aType;
+  result.Size := aSize;
+end;
+
+procedure TDACustomFieldCollection.Bind(aDataset: TDataset);
+var
+  i: integer;
+  lDAField: TDACustomField;
+  lField: TField;
+begin
+  Check(aDataset = nil, err_InvalidDataset);
+  try
+    for i := 0 to (Count - 1) do begin
+      lDAField := Fields[i];
+      lField := aDataset.FindField(lDAField.SQLOrigin);
+      if (not Assigned(lField)) and (not lDAField.Calculated) and not (lDAField.ServerCalculated) and not (lDAField.Lookup) then
+        RaiseError(err_CannotFindField, [lDAField.SQLOrigin])
+      else
+        lDAField.Bind(lField);
+    end;
+  except
+    Unbind;
+    raise;
+  end;
+end;
+
+procedure TDACustomFieldCollection.Assign(Source: TPersistent);
+begin
+  if (Source is TDACustomFieldCollection) then begin
+    AssignFieldCollection(TDACustomFieldCollection(Source));
+  end
+  else
+    inherited;
+end;
+
+procedure TDACustomFieldCollection.AssignFieldCollection(Source: TDACustomFieldCollection);
+var
+  i: integer;
+  src: TDACustomFieldCollection;
+  fld: TDAField;
+begin
+  src := TDACustomFieldCollection(Source);
+
+  Clear;
+
+  if not Assigned(Source) then Exit;
+
+  for i := 0 to (src.Count - 1) do begin
+    fld := Add;
+    fld.AssignField(src[i]);
+  end;
+end;
+
+function TDACustomFieldCollection.FieldByName(const aName: string): TDACustomField;
+begin
+  result := TDACustomField(inherited ItemByName(aName))
+end;
+
+function TDACustomFieldCollection.FindField(const aName: string): TDACustomField;
+begin
+  result := TDACustomField(inherited FindItem(aName))
+end;
+
+function TDACustomFieldCollection.GetFields(Index: integer): TDACustomField;
+begin
+  result := TDACustomField(inherited Items[Index])
+end;
+
+procedure TDACustomFieldCollection.SetFields(Index: integer; const Value: TDACustomField);
+begin
+  Fields[Index].Assign(Value);
+end;
+
+procedure TDACustomFieldCollection.Unbind;
+var
+  i: integer;
+begin
+  for i := 0 to (Count - 1) do
+    Fields[i].Unbind;
+end;
+
+function TDACustomFieldCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result:= TDACustomField(anItem).Name;
+end;
+
+function TDACustomFieldCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDACustomField(anItem).Name := aName;
+end;
+
+procedure TDACustomFieldCollection.Bind(
+  aNativeObject: IDASQLCommandNativeObject);
+var
+  i: integer;
+  lDAField: TDACustomField;
+  lField: IDANativeField;
+begin
+{$IFDEF Drivers_CompatibilityMode}
+  if (aNativeObject <> nil) and aNativeObject.IsTDatasetCompatible then
+    Bind(TDataset(aNativeObject.NativeObject))
+  else
+{$ENDIF}
+    try
+      for i := 0 to (Count - 1) do begin
+        lDAField := Fields[i];
+        lField := aNativeObject.NativeFindField(lDAField.SQLOrigin);
+        if (not Assigned(lField)) and (not lDAField.Calculated) and not (lDAField.ServerCalculated) and not (lDAField.Lookup) then
+          RaiseError(err_CannotFindField, [lDAField.SQLOrigin])
+        else if Assigned(lField) then 
+          lDAField.Bind(lField);
+      end;
+    except
+      Unbind;
+      raise;
+    end;
+end;
+
+{ TDAFieldCollection }
+
+constructor TDAFieldCollection.Create(aOwner: TPersistent);
+begin
+  inherited Create(aOwner, TDAField);
+end;
+
+function TDAFieldCollection.FieldByName(const aName: string): TDAField;
+begin
+  result := TDAField(inherited ItemByName(aName))
+end;
+
+function TDAFieldCollection.FindField(const aName: string): TDAField;
+begin
+  result := TDAField(inherited FindItem(aName))
+end;
+
+function TDAFieldCollection.GetFields(Index: integer): TDAField;
+begin
+  result := TDAField(inherited Items[Index])
+end;
+
+procedure TDAFieldCollection.SetFields(Index: integer; const Value: TDAField);
+begin
+  Fields[Index].Assign(Value);
+end;
+
+{ TDAParam }
+
+function TDAParam.GetParamType: TDAParamType;
+begin
+  result := fParamType;
+end;
+
+procedure TDAParam.LoadFromFile(const aFileName: string);
+begin
+  LoadFromStream(NewROStream(TFileStream.Create(aFileName, fmOpenRead), TRUE));
+end;
+
+procedure TDAParam.SaveToFile(const aFileName: string);
+begin
+  SaveToStream(NewROStream(TFileStream.Create(aFileName, fmCreate), TRUE));
+end;
+
+procedure TDAParam.LoadFromStream(const aStream: IROStream);
+begin
+  Value := VariantBinaryFromRawBinary(aStream.Stream);
+end;
+
+procedure TDAParam.SaveToStream(const aStream: IROStream);
+begin
+  VariantBinaryToRawBinary(Value, aStream.Stream);
+end;
+
+procedure TDAParam.SetParamType(Value: TDAParamType);
+begin
+  fParamType := Value;
+end;
+
+procedure TDAParam.AssignField(Source: TDABaseField);
+begin
+  inherited;
+  if Source is TDAParam then
+    ParamType := TDAParam(Source).ParamType;
+end;
+
+procedure TDAParam.SetValue(const aValue: Variant);
+var
+  d: TDecimal;
+begin
+  if (DataType = datDecimal) and VarByteArrayToDecimal(aValue,d) then
+    asString := DecimalToString(d,DecimalSeparator)
+  else
+    inherited SetValue(aValue);
+end;
+
+procedure TDAParam.AssignParam(Source: TDAParam);
+begin
+  inherited AssignField(Source);
+  ParamType := Source.ParamType;
+end;
+
+{ TDAParamCollection }
+
+function TDAParamCollection.Add: TDAParam;
+begin
+  result := TDAParam(inherited Add)
+end;
+
+constructor TDAParamCollection.Create(aOwner: TPersistent);
+begin
+  inherited Create(aOwner, TDAParam);
+end;
+
+function TDAParamCollection.FindParam(
+  const aParamName: string): TDAParam;
+begin
+  result := TDAParam(inherited FindItem(aParamName));
+end;
+
+function TDAParamCollection.GetParams(Index: integer): TDAParam;
+begin
+  result := TDAParam(inherited Items[Index])
+end;
+
+function TDAParamCollection.ParamByName(const aName: string): TDAParam;
+begin
+  result := TDAParam(inherited ItembyName(aName))
+end;
+
+procedure TDAParamCollection.ReadValues(InputParams: TParams);
+var
+  i: integer;
+  par: TDAParam;
+begin
+  for i := 0 to (Count - 1) do begin
+    par := Params[i];
+    par.Value := InputParams.ParamByName(par.Name).Value;
+  end;
+end;
+
+procedure TDAParamCollection.SetParams(Index: integer; const Value: TDAParam);
+begin
+  Params[Index].Assign(Value);
+end;
+
+procedure TDAParamCollection.WriteValues(OutputParams: TParams);
+var
+  i: integer;
+  par: TDAParam;
+  outpar: TParam;
+begin
+  for i := 0 to (Count - 1) do begin
+    par := Params[i];
+    outpar := OutputParams.ParamByName(par.Name);
+    if par.DataType = datBlob then begin
+      outpar.DataType := ftBlob;
+      outpar.Value := VariantToAnsiString(par.Value);
+      { ToDo: make sure this is valid for ALL Data Drivers, only tested with IBX so far. mh. }
+    end
+    else begin
+      outpar.Value := par.Value;
+    end;
+    //outpar.Size := par.Size; // Seems to fix an ADO problem with size of parameters with SDAC
+  end;
+end;
+
+procedure TDAParamCollection.Assign(Source: TPersistent);
+begin
+  if (Source is TDAParamCollection) then begin
+    AssignParamCollection(TDAParamCollection(Source))
+  end
+  else
+    inherited;
+end;
+
+procedure TDAParamCollection.AssignParamCollection(Source: TDAParamCollection);
+var
+  i: integer;
+begin
+  Clear;
+  for i := 0 to (Source.Count - 1) do
+    Add.AssignParam(Source[i]);
+end;
+
+function TDAParamCollection.GetHasInputParams: boolean;
+var
+  i: Integer;
+begin
+  result := false;
+  for i := 0 to Count-1 do begin
+    if Params[i].ParamType in [daptUnknown, daptInput, daptInputOutput] then begin
+      result := true;
+      exit;
+    end;
+  end; { for }
+end;
+
+function TDAParamCollection.GetItemName(anItem: TCollectionItem): string;
+begin
+  Result := TDAParam(anItem).Name;
+end;
+
+function TDAParamCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAParam(anItem).Name := aName;
+end;
+
+{ TDASQLCommand }
+
+procedure TDASQLCommand.Assign(aSource: TPersistent);
+var
+  lSource: TDASQLCommand;
+begin
+  if (aSource is TDASQLCommand) then begin
+    lSource := TDASQLCommand(aSource);
+    fName := lSource.fName;
+    fDescription := lSource.fDescription;
+    fStatements.Assign(lSource.fStatements);
+    fParams.Assign(lSource.fParams);
+    fCustomAttributes.Assign(lSource.CustomAttributes);
+    FDynamicWhereXML := lSource.FDynamicWhereXML;
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+constructor TDASQLCommand.Create(Collection: TCollection);
+begin
+  inherited;
+  fIsPublic := true;
+  fStatements := TDAStatementCollection.Create(nil, Self);
+  fParams := TDAParamCollection.Create(nil);
+  fCustomAttributes := TStringList.Create;
+end;
+
+destructor TDASQLCommand.Destroy;
+begin
+  fCustomAttributes.Free;
+  fStatements.Free;
+  fParams.Free;
+
+  inherited;
+end;
+
+function TDASQLCommand.GetDisplayName: string;
+begin
+  result := Name;
+end;
+
+function TDASQLCommand.GetParams: TDAParamCollection;
+begin
+  result := fParams;
+end;
+
+function TDASQLCommand.GetSQLCommandCollection: TDASQLCommandCollection;
+begin
+  result := TDASQLCommandCollection(Collection);
+end;
+
+function TDASQLCommand.ParamByName(const aName: string): TDAParam;
+begin
+  result := fParams.ParamByName(aName)
+end;
+
+procedure TDASQLCommand.SetCustomAttributes(const Value: TStrings);
+begin
+  fCustomAttributes.Assign(Value);
+end;
+
+procedure TDASQLCommand.SetDisplayName(const Value: string);
+begin
+  inherited;
+  SetName(Value);
+end;
+
+procedure TDASQLCommand.SetName(const Value: string);
+var
+  lOldName: string;
+begin
+  lOldName := fName;
+  fName := Value;
+  if lOldName <> '' then
+    (Collection as TSearcheableCollection).TriggerOnItemRenamed(lOldName, fName);
+end;
+
+procedure TDASQLCommand.SetParams(const Value: TDAParamCollection);
+begin
+  fParams.Assign(Value);
+end;
+
+procedure TDASQLCommand.SetStatements(const Value: TDAStatementCollection);
+begin
+  fStatements.Assign(Value);
+end;
+
+function TDASQLCommand.GetStatements(): TDAStatementCollection;
+begin
+  result := fStatements;
+end;
+
+
+procedure TDASQLCommand.SetDynamicWhereXML(const Value: UnicodeString);
+begin
+  FDynamicWhereXML := Value;
+end;
+
+{ TDADataset }
+
+procedure TDADataset.Assign(aSource: TPersistent);
+var
+  lSource: TDADataset;
+begin
+  if (aSource is TDADataset) then begin
+    inherited; { Need to work the TDASQLCommand, too}
+    lSource := TDADataset(aSource);
+    fFields.Assign(lSource.Fields);
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+constructor TDADataset.Create(Collection: TCollection);
+begin
+  inherited;
+  fFields := TDAFieldCollection.Create(self);
+  fBusinessRulesServer := TDABusinessRuleScript.Create();
+  fBusinessRulesClient := TDAClientBusinessRuleScript.Create();
+end;
+
+destructor TDADataset.Destroy;
+begin
+  FreeAndNil(fFields);
+  FreeAndNil(fBusinessRulesServer);
+  FreeAndNil(fBusinessRulesClient);
+  inherited;
+end;
+
+function TDADataset.FieldByName(const aName: string): TDAField;
+begin
+  result := Fields.FieldByName(aName)
+end;
+
+function TDADataset.FindField(const aName: string): TDAField;
+begin
+  result := Fields.FindField(aName)
+end;
+
+procedure TDADataset.SetBusinessRulesClient(const Value: TDAClientBusinessRuleScript);
+begin
+  fBusinessRulesClient.Assign(Value);
+end;
+
+procedure TDADataset.SetBusinessRulesServer(const Value: TDABusinessRuleScript);
+begin
+  fBusinessRulesServer.Assign(Value);
+end;
+
+procedure TDADataset.SetFields(const Value: TDAFieldCollection);
+begin
+  fFields.Assign(Value);
+end;
+
+{ TDASQLCommandCollection }
+
+function TDASQLCommandCollection.Add: TDASQLCommand;
+begin
+  result := TDASQLCommand(inherited Add)
+end;
+
+constructor TDASQLCommandCollection.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner, GetItemClass);
+end;
+
+function TDASQLCommandCollection.GetItemClass: TDASQLCommandClass;
+begin
+  result := TDASQLCommand;
+end;
+
+function TDASQLCommandCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDASQLCommand(anItem).Name;
+end;
+
+function TDASQLCommandCollection.GetSQLCommands(
+  Index: integer): TDASQLCommand;
+begin
+  result := TDASQLCommand(inherited Items[Index]);
+end;
+
+function TDASQLCommandCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDASQLCommand(anItem).Name := aName;
+end;
+
+procedure TDASQLCommandCollection.SetSQLCommands(Index: integer;
+  const Value: TDASQLCommand);
+begin
+  SQLCommands[Index].Assign(Value);
+end;
+
+function TDASQLCommandCollection.SQLCommandByName(
+  const aName: string): TDASQLCommand;
+begin
+  result := TDASQLCommand(inherited ItemByName(aName));
+end;
+
+{ TDADatasetCollection }
+
+function TDADatasetCollection.Add: TDADataset;
+begin
+  result := TDADataset(inherited Add);
+end;
+
+function TDADatasetCollection.DatasetByName(const aName: string): TDADataset;
+begin
+  result := TDADataset(inherited ItemByName(aName));
+end;
+
+function TDADatasetCollection.FindDatasetByName(const aName: string): TDADataset;
+begin
+  result := TDADataset(inherited FindItem(aName));
+end;
+
+function TDADatasetCollection.GetDatasets(Index: integer): TDADataset;
+begin
+  result := TDADataset(inherited Items[Index]);
+end;
+
+function TDADatasetCollection.GetItemClass: TDASQLCommandClass;
+begin
+  result := TDADataset;
+end;
+
+procedure TDADatasetCollection.SetDatasets(Index: integer;
+  const Value: TDADataset);
+begin
+  Datasets[Index].Assign(Value);
+end;
+
+{ TDAConnectionCollection }
+
+function TDAConnectionCollection.Add: TDAConnection;
+begin
+  result := TDAConnection(inherited Add);
+end;
+
+procedure TDAConnectionCollection.ClearDefaults(iExceptFor: TDAConnection);
+var
+  i: integer;
+begin
+  for i := 0 to Count - 1 do begin
+    if (Connections[i] <> iExceptFor) then Connections[i].Default := false;
+  end;
+end;
+
+function TDAConnectionCollection.ConnectionByName(
+  const aName: string): TDAConnection;
+begin
+  result := TDAConnection(inherited ItemByName(aName));
+end;
+
+constructor TDAConnectionCollection.Create(aOwner: TPersistent);
+begin
+  inherited Create(aOwner, TDAConnection);
+end;
+
+function TDAConnectionCollection.FindConnection(const aName,
+  aType: string): TDAConnection;
+var
+  i: Integer;
+begin
+  if aName <> '' then begin
+    for i := 0 to Count -1 do begin
+      if GetConnections(i).Name = aName then begin
+        Result := GetConnections(i);
+        exit;
+      end;
+    end;
+  end;
+  if aType <> '' then begin
+    for i := 0 to Count -1 do begin
+      if GetConnections(i).ConnectionType = aType then begin
+        Result := GetConnections(i);
+        exit;
+      end;
+    end;
+  end;
+  result := nil;
+end;
+
+function TDAConnectionCollection.GetConnections(
+  Index: integer): TDAConnection;
+begin
+  result := TDAConnection(inherited Items[Index]);
+end;
+
+function TDAConnectionCollection.GetDefaultConnection: TDAConnection;
+begin
+  result := inherited GetDefaultItem as TDAConnection;
+end;
+
+function TDAConnectionCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDAConnection(anItem).Name;
+end;
+
+function TDAConnectionCollection.ItemName: string;
+begin
+  result := 'connection';
+end;
+
+procedure TDAConnectionCollection.SetConnections(Index: integer;
+  const Value: TDAConnection);
+begin
+  Connections[Index].Assign(Value);
+end;
+
+function TDAConnectionCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAConnection(anItem).Name := aName;
+end;
+
+{ TDAConnection }
+
+procedure TDAConnection.Assign(aSource: TPersistent);
+var
+  lSource: TDAConnection;
+begin
+  if (aSource is TDAConnection) then begin
+    lSource := TDAConnection(aSource);
+    fDescription := lSource.fDescription;
+    ConnectionString := lSource.ConnectionString;
+    ConnectionType := lSource.ConnectionType;
+    fName := '_____' + lSource.fName;
+    fDefault := false;
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+function TDAConnection.GetConnectionString: string;
+begin
+  result := fConnectionString;
+end;
+
+function TDAConnection.GetDisplayName: string;
+begin
+  if (Trim(Name) = '') then
+    result := '<Noname>'
+  else
+    result := Name;
+
+  //if Default then result := result+' - [Default]';
+end;
+
+procedure TDAConnection.SetConnectionString(const aValue: string);
+begin
+  if fConnectionString <> aValue then
+    fConnectionString := aValue;
+end;
+
+procedure TDAConnection.SetDefault(const Value: boolean);
+begin
+  if (fDefault <> Value) then begin
+    fDefault := Value;
+    if Default then begin
+      (Collection as TDAConnectionCollection).ClearDefaults(self);
+    end;
+  end;
+end;
+
+procedure TDAConnection.SetDisplayName(const Value: string);
+begin
+  inherited;
+  SetName(Value);
+end;
+
+procedure TDAConnection.SetName(const Value: string);
+var
+  lOldName: string;
+begin
+  if (Value <> fName) then begin
+    lOldName := fName;
+    fName := Value;
+    if lOldName <> '' then
+      (Collection as TDAConnectionCollection).TriggerOnItemRenamed(lOldName, fName);
+  end;
+end;
+
+{ TDAStatement }
+
+procedure TDAStatement.Assign(aSource: TPersistent);
+var
+  lSource: TDAStatement;
+begin
+  if (aSource is TDAStatement) then begin
+    lSource := TDAStatement(aSource);
+    fSQL := lSource.fSQL;
+    fStatementType := lSource.fStatementType;
+    fConnection := lSource.fConnection;
+    fConnectionType := lSource.fConnectionType;    
+    fColumnMappings.Assign(lSource.fColumnMappings);
+    fTargetTable := lSource.fTargetTable;
+    fDefault := lSource.fDefault;
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+constructor TDAStatement.Create(Collection: TCollection);
+begin
+  inherited;
+  fColumnMappings := TDAColumnMappingCollection.Create(Self);
+end;
+
+destructor TDAStatement.Destroy;
+begin
+  fColumnMappings.Free;
+
+  inherited;
+end;
+
+function TDAStatement.GetDisplayName: string;
+begin
+  if Connection <> '' then
+    result := Connection
+  else
+  if ConnectionType <> '' then
+    result := '[' + ConnectionType + ']'
+  else
+  if Name <> '' then
+    result := Name
+  else
+    result := '<unnamed>';
+end;
+
+function TDAStatement.GetNeedsParams: boolean;
+const
+  arr: TDAQuoteCharArray = ('"','"');
+var
+  lParams: TParams;
+begin
+  lParams := TParams.Create;
+  try
+    Params_ParseSQL(lParams,SQL, True, arr, True);
+    result := (lParams.Count > 0);
+  finally
+    lParams.Free;
+  end;
+end;
+
+function TDAStatement.GetStatementCollection: TDAStatementCollection;
+begin
+  result := TDAStatementCollection(Collection);
+end;
+
+procedure TDAStatement.SetColumnMappings(
+  const Value: TDAColumnMappingCollection);
+begin
+  fColumnMappings.Assign(Value);
+end;
+
+procedure TDAStatement.SetSQL(const Value: string);
+begin
+  fSQL := Value;
+end;
+
+function TDAStatement.StoreSQL: Boolean;
+begin
+  Result := fStatementType <> stAutoSQL; 
+end;
+
+{ TDAColumnMappingCollection }
+
+function TDAColumnMappingCollection.Add: TDAColumnMapping;
+begin
+  result := TDAColumnMapping(inherited Add);
+end;
+
+procedure TDAColumnMappingCollection.AssignColumnMapping(aSource: TPersistent);
+var
+  i: Integer;
+begin
+  Clear;
+  for i := 0 to TDAColumnMappingCollection(aSource).Count -1 do begin
+    Add.AssignFieldMapping(TDAColumnMappingCollection(aSource)[i]);
+  end;
+end;
+
+constructor TDAColumnMappingCollection.Create(aOwner: TPersistent);
+begin
+  inherited Create(aOwner, TDAColumnMapping);
+end;
+
+function TDAColumnMappingCollection.FindMappingByDatasetField(
+  const aDatasetField: string): TDAColumnMapping;
+var
+  i: integer;
+begin
+  result := nil;
+
+  for i := 0 to (Count - 1) do
+    if SameText(ColumnMappings[i].DatasetField, aDatasetField) then begin
+      result := ColumnMappings[i];
+      Exit;
+    end;
+end;
+
+function TDAColumnMappingCollection.GetColumnMappings(
+  Index: integer): TDAColumnMapping;
+begin
+  result := TDAColumnMapping(inherited Items[Index])
+end;
+
+function TDAColumnMappingCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  result := TDAColumnMapping(anItem).DatasetField;
+end;
+
+function TDAColumnMappingCollection.MappingByDatasetField(
+  const aDatasetField: string): TDAColumnMapping;
+begin
+  result := TDAColumnMapping(inherited ItemByName(aDatasetField))
+end;
+
+function TDAColumnMappingCollection.MappingByTableField(
+  const aTableField: string): TDAColumnMapping;
+var
+  i: integer;
+begin
+  result := nil;
+
+  for i := 0 to (Count - 1) do
+    if SameText(ColumnMappings[i].TableField, aTableField) then begin
+      result := ColumnMappings[i];
+      Exit;
+    end;
+
+  RaiseError('Cannot find mapping for table field %s', [aTableField]);
+end;
+
+procedure TDAColumnMappingCollection.SetColumnMappings(Index: integer;
+  const Value: TDAColumnMapping);
+begin
+  TDAColumnMapping(inherited Items[Index]).AssignTo(Value);
+end;
+
+function TDAColumnMappingCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAColumnMapping(anItem).DatasetField := aName;
+end;
+
+{ TDAWhere }
+
+function TDAWhere.GetProperName(aField: TDACustomField) : string;
+begin
+  if fClientFields
+    then result := ClientFieldPrefix+aField.Name
+    else result := aField.TableField
+end;
+
+function TDAWhere.AddCondition(const FieldName: string;
+  Condition: TDASQLCondition; const Value: Variant; SkipIfEmptyValue: boolean = TRUE): boolean;
+var
+  isstr, isnull, isfloat, isCurr: boolean;
+  fld: TDACustomField;
+  fieldnametouse : string;
+  str: string;
+  oldDecimalSeparator: Char;
+begin
+  result := FALSE;
+
+  fld := fFields.FindField(FieldName);
+
+  isnull := VarIsNull(Value) or (VarIsType(Value, [varString, varOleStr, varUString]) and (Value = ''))
+  or (VarIsType(Value, [varDate]) and (Value = 0));
+  if isnull and SkipIfEmptyValue and not (Condition in [cIsNull,cIsNotNull]) then Exit;
+  if fLastWasCondition then
+  begin
+    case fDefaultOperator of
+      doAnd: AddOperator(opAND);
+      doOr: AddOperator(opOR);
+    end;
+  end;
+  fLastWasCondition := True;
+
+  if fld <> nil then
+    fieldnametouse := GetProperName(fld) // Changed by AleF: WHERE clauses cannot work with field aliases like "FieldA as XYZ"
+      else
+    fieldnametouse := FieldName;
+
+  fClause := fClause + '(' + fieldnametouse + ' ' + StrSQLCondition[Condition] + ' ';
+
+  isstr := (fld <> nil) and (fld.DataType in [datWideString, datWideMemo, datString, datDateTime, datMemo]);
+  isfloat := (fld <> nil) and (fld.DataType in [datFloat, datSingleFloat]);
+  isCurr :=(fld <> nil) and (fld.DataType in [datCurrency, datDecimal]);
+
+  case Condition of
+    cIsNull, cIsNotNull:begin
+        fClause := TrimRight(fClause) + ')';
+      end;
+    else begin
+        if isstr then begin
+          str := VarToStr(Value);
+          if Condition = cIn then
+            fClause := fClause + '(' + str + '))'
+          else
+            fClause := fClause + '''' + str + ''')'
+        end
+        else begin
+          if isfloat or isCurr then begin
+            oldDecimalSeparator := DecimalSeparator;
+            DecimalSeparator := '.';
+            try
+              if isfloat then str:= FloatToStr(Value)
+              else str:=CurrToStrF(Value,ffGeneral,4);
+            finally
+              DecimalSeparator := oldDecimalSeparator;
+            end;
+          end
+          else
+            str := VarToStr(Value);
+          if Condition = cIn then
+            fClause := fClause + '(' + str + '))'
+          else
+            fClause := fClause + str + ')';
+        end;
+      end;
+  end;
+  result := TRUE;
+  Changed := True;
+
+  if Assigned(OnChange) then OnChange(Self);
+end;
+
+procedure TDAWhere.AddValueGroup(const FieldName: string;
+  const Values: array of Variant);
+var
+  fld: TDAField;
+  isstr: boolean;
+  cnt, i: integer;
+  fieldnametouse : string;
+begin
+  fld := fFields.FieldByName(FieldName);
+
+  if fLastWasCondition then
+  begin
+    case fDefaultOperator of
+      doAnd: AddOperator(opAND);
+      doOr: AddOperator(opOR);
+    end;
+  end;
+  fLastWasCondition := True;
+
+  fieldnametouse := GetProperName(fld); // Changed by AleF: WHERE clauses cannot work with field aliases like "FieldA as XYZ"
+
+  if (Length(Values) > 0) then begin
+    isstr := (fld.DataType in [datWideString, datWideMemo, datString, datDateTime, datMemo]);
+
+    fClause := fClause + '(' + fieldnametouse + ' ' + StrSQLCondition[cIn] + ' (';
+
+    cnt := High(Values);
+    for i := 0 to cnt do begin
+      if isstr then
+        fClause := fClause + '''' + VarToStr(Values[i]) + ''''
+      else
+        fClause := fClause + VarToStr(Values[i]) + '';
+
+      if (i < cnt) then fClause := fClause + ', ';
+    end;
+    fClause := fClause + '))';
+  end;
+  Changed := True;
+  if Assigned(OnChange) then OnChange(Self);
+end;
+
+constructor TDAWhere.Create(const aFields: TDAFieldCollection; aClientFields : boolean);
+begin
+  inherited Create;
+  fDefaultOperator := doAnd;
+  fFields := aFields;
+  fClientFields := aClientFields;
+end;
+
+{$WARN SYMBOL_DEPRECATED OFF} // Delphi warns you about implementing a method that's deprecated in the interface.
+
+procedure TDAWhere.OpenBraket;
+begin
+  OpenBracket();
+end;
+
+procedure TDAWhere.CloseBraket;
+begin
+  CloseBracket();
+end;
+
+{$WARN SYMBOL_DEPRECATED ON}
+
+procedure TDAWhere.OpenBracket;
+begin
+  fClause := fClause + '(';
+  Changed := True;
+  if Assigned(OnChange) then OnChange(Self);
+end;
+
+procedure TDAWhere.CloseBracket;
+begin
+  fClause := fClause + ')';
+  Changed := True;
+  if Assigned(OnChange) then OnChange(Self);
+end;
+
+procedure TDAWhere.AddOperator(aOperator: TDASQLOperator);
+begin
+  fClause := fClause + ' ' + StrSQLOperator[aOperator] + ' ';
+  Changed := True;
+  fLastWasCondition := False;
+  if Assigned(OnChange) then OnChange(Self);
+end;
+
+procedure TDAWhere.Clear;
+begin
+  fClause := '';
+  fLastWasCondition := false;
+  Changed := True;
+  if Assigned(OnChange) then OnChange(Self);
+end;
+
+procedure TDAWhere.AddText(const someText: string; MapClientFields : boolean = TRUE);
+var s : string;
+    i : integer;
+begin
+  s := someText;
+
+  if MapClientFields then begin
+    for i := 0 to (Fields.Count-1) do
+      s := StringReplace(s, ClientFieldPrefix+Fields[i].Name, Fields[i].TableField, [rfReplaceAll, rfIgnoreCase]);
+  end;
+
+  fClause := fClause + s;
+
+  Changed := True;
+  if Assigned(OnChange) then OnChange(Self);
+end;
+
+procedure TDAWhere.AddSpaces(Count: integer = 1);
+var
+  i: integer;
+begin
+  for i := 1 to Count do
+    fClause := fClause + ' ';
+
+  Changed := True;
+  if Assigned(OnChange) then OnChange(Self);
+end;
+
+function TDAWhere.GetEmpty: boolean;
+begin
+  result := Trim(fClause)=''
+end;
+
+function TDAWhere.GetNotEmpty: boolean;
+begin
+  result := not Empty
+end;
+
+function TDAWhere.AddConditions(const FieldNames: array of string;
+  const Conditions: array of TDASQLCondition;
+  const Values: array of Variant;
+  const Operator: TDASQLOperator): integer;
+var i : integer;
+    isnull : boolean;
+   // oldclause : string;
+    oldonchange : TNotifyEvent;
+begin
+  result := 0;
+//  oldclause := fClause;
+  oldonchange := OnChange;
+  OnChange := NIL;
+  try
+  for i := 0 to Length(FieldNames)-1 do begin
+    isnull := VarIsNull(Values[i]) or (VarIsType(Values[i], [varString, varOleStr, varUString]) and (Values[i] = ''));
+    if isnull and not (Conditions[i] in [cIsNull,cIsNotNull]) then Continue;
+
+    if NotEmpty then AddOperator(Operator);
+    AddCondition(FieldNames[i], Conditions[i], Values[i], TRUE);
+    Inc(result);
+  end;
+  finally
+    // This is to avoid OnChange fireing for each condition in the loop above
+    OnChange := oldonchange;
+    Changed := True;
+    if Assigned(OnChange) then OnChange(Self);
+  end;
+end;
+
+function TDAWhere.AddCondition(const FieldName: string;
+  Condition: TDASQLCondition): boolean;
+begin
+  Result:=AddCondition(FieldName,Condition,0);
+end;
+
+{ TDAColumnMapping }
+
+procedure TDAColumnMapping.Assign(aSource: TPersistent);
+var
+  lSource: TDAColumnMapping;
+begin
+  if (aSource is TDAColumnMapping) then begin
+    lSource := TDAColumnMapping(aSource);
+    fDatasetField := lSource.fDatasetField;
+    fTableField := lSource.fTableField;
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+procedure TDAColumnMapping.AssignFieldMapping(aSource: TPersistent);
+var
+  lSource: TDAColumnMapping;
+begin
+  lSource := TDAColumnMapping(aSource);
+  fDatasetField := lSource.fDatasetField;
+  fTableField := lSource.fTableField;
+  fSQLOrigin := lSource.fSQLOrigin;
+end;
+
+function TDAColumnMapping.GetSQLOrigin: string;
+begin
+  if (fSQLOrigin='')
+    then result := TableField
+    else result := fSQLOrigin
+end;
+
+procedure TDAColumnMapping.SetDatasetField(const Value: string);
+begin
+  fDatasetField := Trim(Value);
+end;
+
+procedure TDAColumnMapping.SetSQLOrigin(const Value: string);
+begin
+  fSQLOrigin:= Trim(Value)
+end;
+
+procedure TDAColumnMapping.SetTableField(const Value: string);
+begin
+  fTableField := Trim(Value);
+end;
+
+function TDAColumnMapping.StoreSQLOrigin: Boolean;
+begin
+  result := (fSQLOrigin <> fTableField) and (Trim(fSQLOrigin)<>'')
+end;
+
+{ TDAClientBusinessRuleScript }
+
+constructor TDAClientBusinessRuleScript.Create;
+begin
+  inherited;
+  fRunOnClientAndServer := true;
+  fCompileOnServer := true;
+end;
+
+{ TDADriverForeignKey }
+
+function TDADriverForeignKey.GetValue(const Index: Integer): string;
+begin
+  result := fValues[Index];
+end;
+
+procedure TDADriverForeignKey.SetValue(const Index: Integer; const Value: string);
+begin
+  fValues[Index] := Value;
+end;
+
+{ TDADriverForeignKeyCollection }
+
+constructor TDADriverForeignKeyCollection.Create(aOwner: TPersistent);
+begin
+  inherited Create(aOwner, TDADriverForeignKey);
+end;
+
+function TDADriverForeignKeyCollection.Add: TDADriverForeignKey;
+begin
+  result := TDADriverForeignKey(inherited Add());
+end;
+
+function TDADriverForeignKeyCollection.GetForeignKeys(Index: integer): TDADriverForeignKey;
+begin
+  result := TDADriverForeignKey(inherited Items[Index]);
+end;
+
+procedure TDADriverForeignKeyCollection.SetForeignKeys(Index: integer; const Value: TDADriverForeignKey);
+begin
+  inherited Items[Index].Assign(Value);
+end;
+
+{ TDAUpdateRuleCollection }
+
+function TDAUpdateRuleCollection.Add: TDAUpdateRule;
+begin
+  result := inherited Add() as TDAUpdateRule;
+end;
+
+constructor TDAUpdateRuleCollection.Create(aOwner : TComponent);
+begin
+  inherited Create(aOwner, TDAUpdateRule);
+end;
+
+function TDAUpdateRuleCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDAUpdateRule(anItem).Name;
+end;
+
+function TDAUpdateRuleCollection.GetUpdateRules(
+  Index: integer): TDAUpdateRule;
+begin
+  result := TDAUpdateRule(inherited Items[Index]);
+end;
+
+function TDAUpdateRuleCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAUpdateRule(anItem).Name := aName;
+end;
+
+function TDAUpdateRuleCollection.UpdateRuleByName(
+  const aName: string): TDAUpdateRule;
+begin
+  result := ItemByName(aName) as TDAUpdateRule;
+end;
+
+{ TDAUpdateRule }
+
+procedure TDAUpdateRule.Assign(aSource: TPersistent);
+var
+  lSource: TDAUpdateRule;
+begin
+  lSource := aSource as TDAUpdateRule;
+  fDatasetName := lSource.fDatasetName;
+  fName := lSource.fName;
+  fDoUpdate := lSource.fDoUpdate;
+  fDoInsert := lSource.fDoInsert;
+  fDoDelete := lSource.fDoDelete;
+  fFailureBehavior := lSource.fFailureBehavior;
+end;
+
+constructor TDAUpdateRule.Create(aCollection: TCollection);
+begin
+  inherited;
+
+  fDoUpdate := true;
+  fDoInsert := true;
+  fDoDelete := true;
+  fFailureBehavior := fbRaiseException;
+end;
+
+function TDAUpdateRule.GetChangeTypes: TDAChangeTypes;
+begin
+  result := [];
+  if DoUpdate then Include(result,ctUpdate);
+  if DoInsert then Include(result,ctInsert);
+  if DoDelete then Include(result,ctDelete);
+end;
+
+function TDAUpdateRule.GetDisplayName: string;
+begin
+  result := Name;
+  if (result='') then result := '<Unknown>';
+end;
+
+{ TDADatasetRelationshipCollection }
+
+function TDADatasetRelationshipCollection.Add: TDADatasetRelationship;
+begin
+  result := inherited Add() as TDADatasetRelationship;
+end;
+
+constructor TDADatasetRelationshipCollection.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner, TDADatasetRelationship);
+end;
+
+procedure TDADatasetRelationshipCollection.GetDetails(const aMasterDatasetName: string; aList: TDADatasetRelationshipList);
+var i : integer;
+begin
+  aList.Clear;
+  for i := 0 to (Count-1) do begin
+    if SameText(aMasterDatasetName, RelationShips[i].MasterDatasetName) then begin
+      aList.Add(RelationShips[i]);
+    end;
+  end;
+end;
+
+function TDADatasetRelationshipCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDADatasetRelationship(anItem).Name;
+end;
+
+function TDADatasetRelationshipCollection.GetRelationShips(
+  Index: integer): TDADatasetRelationship;
+begin
+  result := TDADatasetRelationship(inherited Items[Index]);
+end;
+
+function TDADatasetRelationshipCollection.RelationShipByName(
+  const aName: string): TDADatasetRelationship;
+begin
+  result := ItemByName(aName) as TDADatasetRelationship;
+end;
+
+function TDADatasetRelationshipCollection.RelationshipExists(
+  const aMasterDatasetName, aDetailDatasetName, aMasterFields,
+  aDetailFields: string): Boolean;
+var
+  i: integer;
+begin
+  result := false;
+  for i := 0 to Count - 1 do
+    with RelationShips[i] do
+      if (MasterDatasetName = aMasterDatasetName) and (DetailDatasetName = aDetailDatasetName)
+      and (MasterFields = aMasterFields) and (DetailFields = aDetailFields) then begin
+        result := true;
+        exit;
+      end;
+end;
+
+function TDADatasetRelationshipCollection.SetItemName(
+  anItem: TCollectionItem; const aName: string): string;
+begin
+  TDADatasetRelationship(anItem).Name := aName;
+end;
+
+{ TDADatasetRelationship }
+
+procedure TDADatasetRelationship.Assign(Source: TPersistent);
+var src : TDADatasetRelationship;
+begin
+  if (Source is TDADatasetRelationship) then begin
+    src := TDADatasetRelationship(Source);
+
+    Name := src.Name;
+    MasterDatasetName := src.MasterDatasetName;
+    MasterFields := src.MasterFields;
+    DetailDatasetName := src.DetailDatasetName;
+    DetailFields := src.DetailFields;
+  end
+  else inherited;
+end;
+
+function TDADatasetRelationship.GetDisplayName: string;
+begin
+  result := Format('%s: %s (%s) --> %s (%s)', [fName, fDetailDatasetName, fDetailFields, fMasterDatasetName, fMasterFields]);
+end;
+
+{ TDADatasetRelationshipList }
+
+function TDADatasetRelationshipList.Add(
+  aRelationship: TDADatasetRelationship): integer;
+begin
+  result := inherited Add(aRelationship)
+end;
+
+function TDADatasetRelationshipList.GetItems(
+  Index: integer): TDADatasetRelationship;
+begin
+  result := TDADatasetRelationship(inherited Items[Index]);
+end;
+
+{ TDALoginInfoAware }
+
+function TDALoginInfoAware._AddRef: Integer;
+begin
+  result := -1;
+end;
+
+function TDALoginInfoAware._Release: Integer;
+begin
+  result := -1;
+end;
+
+function TDALoginInfoAware.GetLoginInfo: TDALoginInfo;
+begin
+  result := fLoginInfo
+end;
+
+procedure TDALoginInfoAware.SetLoginInfo(aValue: TDALoginInfo);
+begin
+  fLoginInfo := aValue;
+end;
+
+{ TDAJoinDataTableCollection }
+
+constructor TDAJoinDataTableCollection.Create(aOwner : TComponent);
+begin
+  inherited Create(aOwner, TDAJoinDataTable);
+end;
+
+function TDAJoinDataTableCollection.GetJoinDataTables(Index: integer): TDAJoinDataTable;
+begin
+  result := TDAJoinDataTable(inherited Items[Index]);
+end;
+
+procedure TDAJoinDataTableCollection.SetJoinDataTables(Index: integer; const Value: TDAJoinDataTable);
+begin
+  JoinTables[Index].Assign(Value);
+end;
+
+{
+function TDAJoinedTableCollection.GetItemClass: TDASQLCommandClass;
+begin
+  result := TDAJoinedTable;
+end;
+}
+
+function TDAJoinDataTableCollection.Add: TDAJoinDataTable;
+begin
+  result := TDAJoinDataTable(inherited Add);
+end;
+
+function TDAJoinDataTableCollection.JoinTableByName(const aName: string): TDAJoinDataTable;
+begin
+  result := TDAJoinDataTable(inherited ItemByName(aName));
+end;
+
+function TDAJoinDataTableCollection.FindJoinTableByName(const aName: string): TDAJoinDataTable;
+begin
+  result := TDAJoinDataTable(inherited FindItem(aName));
+end;
+
+function TDAJoinDataTableCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDAJoinDataTable(anItem).Name;
+end;
+
+function TDAJoinDataTableCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAJoinDataTable(anItem).Name := aName;
+end;
+
+{ TDAJoinSourceTableCollection }
+
+function TDAJoinSourceTableCollection.GetJoinSourceTables(Index: integer): TDAJoinSourceTable;
+begin
+  result := TDAJoinSourceTable(inherited Items[Index])
+end;
+
+procedure TDAJoinSourceTableCollection.SetJoinSourceTables(Index: integer; const Value: TDAJoinSourceTable);
+begin
+  TDAJoinSourceTable(inherited Items[Index]).AssignTo(Value);
+end;
+
+constructor TDAJoinSourceTableCollection.Create(aOwner: TPersistent);
+begin
+  inherited Create(aOwner, TDAJoinSourceTable);
+end;
+
+function TDAJoinSourceTableCollection.Add: TDAJoinSourceTable;
+begin
+  result := TDAJoinSourceTable(inherited Add);
+end;
+
+function TDAJoinSourceTableCollection.JoinSourceTableByName(const aName: string): TDAJoinSourceTable;
+begin
+  result := TDAJoinSourceTable(inherited ItemByName(aName));
+end;
+{
+function TDAJoinedTableItemCollection.GetItemClass: TDAJoinedTableItem;
+begin
+  result := TDAJoinedTableItem;
+end;
+}
+
+function TDAJoinSourceTableCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDAJoinSourceTable(anItem).Name;
+end;
+
+function TDAJoinSourceTableCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAJoinSourceTable(anItem).Name := aName;
+end;
+
+{ TDAJoinDataTable }
+constructor TDAJoinDataTable.Create(Collection: TCollection);
+begin
+  inherited;
+  fJoinSourceTables := TDAJoinSourceTableCollection.Create(self);
+end;
+
+destructor TDAJoinDataTable.Destroy;
+begin
+  FreeAndNil(fJoinSourceTables);
+  inherited;
+end;
+
+procedure TDAJoinDataTable.Assign(aSource: TPersistent);
+var
+  lSource: TDAJoinDataTable;
+begin
+  if (aSource is TDAJoinDataTable) then begin
+    inherited; { Need to work the TDASQLCommand, too}
+    lSource := TDAJoinDataTable(aSource);
+    fJoinSourceTables.Assign(lSource.fJoinSourceTables);
+    fMasterTable:= lSource.fMasterTable;
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+procedure TDAJoinDataTable.SetJoinSourceTables(const Value: TDAJoinSourceTableCollection);
+begin
+  fJoinSourceTables.Assign(Value);
+end;
+
+function TDAJoinDataTable.GetParams: TDAParamCollection;
+begin
+  result := nil;
+end;
+
+procedure TDAJoinDataTable.SetParams(const Value: TDAParamCollection);
+begin
+  // Do Nothing
+end;
+
+function TDAJoinDataTable.GetStatements(): TDAStatementCollection;
+begin
+  result := nil;
+end;
+
+procedure TDAJoinDataTable.SetStatements(const Value: TDAStatementCollection);
+begin
+  // Do Nothing
+end;
+
+function TDAJoinDataTable.GetSQLCommandCollection: TDASQLCommandCollection;
+begin
+  result := nil;
+end;
+
+
+{ TDAJoinSourceTable }
+constructor TDAJoinSourceTable.Create(Collection: TCollection);
+begin
+  inherited;
+  fJoinConditions := TDAJoinConditionCollection.Create(Self);
+end;
+
+destructor TDAJoinSourceTable.Destroy;
+begin
+  FreeAndNil(fJoinConditions);
+  inherited;
+end;
+
+function TDAJoinSourceTable.GetDisplayName: string;
+begin
+  if (Trim(Name) = '') then
+    result := '<Noname>'
+  else
+    result := Name;
+end;
+
+procedure TDAJoinSourceTable.SetName(const Value: string);
+var
+  lOldName: string;
+begin
+  lOldName := fName;
+  fName := Value;
+  if lOldName <> '' then
+    (Collection as TSearcheableCollection).TriggerOnItemRenamed(lOldName, fName);
+end;
+
+procedure TDAJoinSourceTable.Assign(aSource: TPersistent);
+var
+  lSource: TDAJoinSourceTable;
+begin
+  if (aSource is TDAJoinSourceTable) then begin
+    lSource := TDAJoinSourceTable(aSource);
+    fName:= lSource.fName;
+    fJoinType:= lSource.fJoinType;
+    fJoinConditions.Assign(lSource.fJoinConditions);    
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+{ TDAJoinConditionCollection }
+constructor TDAJoinConditionCollection.Create(aOwner: TPersistent);
+begin
+  inherited Create(aOwner, TDAJoinCondition);
+end;
+
+function TDAJoinConditionCollection.Add: TDAJoinCondition;
+begin
+  result := TDAJoinCondition(inherited Add);
+end;
+
+constructor TDADatasetRelationship.Create(Collection: TCollection);
+begin
+  inherited Create(Collection);
+  fRelationshipType := rtForeignKey;
+end;
+
+{ TDATableFieldCollectionItem }
+
+procedure TDATableFieldCollectionItem.Assign(Source: TPersistent);
+begin
+  inherited;
+  if Source is TDATableFieldCollectionItem then begin
+    self.FFieldName := TDATableFieldCollectionItem(Source).FieldName;
+    self.FTableName := TDATableFieldCollectionItem(Source).TableName;
+  end;
+end;
+
+
+{ TDASimpleQueryBuilder }
+
+procedure TDASimpleQueryBuilder.AddCrossJoin(ATable: string);
+begin
+  with FMainTable.JoinSourceTables.Add do begin
+    JoinType := jtCross;
+    Name := ATable;
+  end;
+end;
+
+procedure TDASimpleQueryBuilder.AddGroupBy(ATable, AField: string);
+begin
+  with TDAGroupByItem(FGroupByCollection.Add) do begin
+    TableName := aTable;
+    FieldName := AField;
+  end;
+end;
+
+procedure TDASimpleQueryBuilder.AddJoin(AJoinTable, AJoinFieldName,
+  AJoinToTableName, AJoinToFieldName: string; AJoinType: TDAJoinType);
+begin
+  with FMainTable.JoinSourceTables.Add do begin
+    JoinType := AJoinType;
+    Name := AJoinTable;
+    with JoinConditions.Add do begin
+      FromTableName := AJoinTable;
+      FromFieldName := AJoinFieldName;
+      ToTableName := AJoinToTableName;
+      ToFieldName := AJoinToFieldName;
+    end;
+  end;
+end;
+
+procedure TDASimpleQueryBuilder.AddJoin(AJoinTable: string;
+  AJoinFieldNames: array of string; AJoinToTableName: string;
+  AJoinToFieldNames: array of string; AJoinType: TDAJoinType);
+var
+  i: integer;
+begin
+  if High(AJoinToFieldNames) <> High(AJoinFieldNames) then raise Exception.Create('Can''t create join: AJoinFieldNames and AJoinToFieldNames should contain equal members count');
+  with FMainTable.JoinSourceTables.Add do begin
+    JoinType := AJoinType;
+    Name := AJoinTable;
+    For i:=0 to High(AJoinToFieldNames) do
+      with JoinConditions.Add do begin
+        FromTableName := AJoinTable;
+        FromFieldName := AJoinFieldNames[i];
+        ToTableName := AJoinToTableName;
+        ToFieldName := AJoinToFieldNames[i];
+      end;
+  end;
+end;
+
+procedure TDASimpleQueryBuilder.AddSelect(ATable, AField: string);
+begin
+  with TDASelectItem(FSelectCollection.Add) do begin
+    TableName := aTable;
+    FieldName := AField;
+  end;
+end;
+
+procedure TDASimpleQueryBuilder.Assign(Source: TPersistent);
+begin
+  inherited;
+  if Source is TDASimpleQueryBuilder then begin
+    FMainTable.Assign(TDASimpleQueryBuilder(Source).MainTable);
+    FSelectCollection.Assign(TDASimpleQueryBuilder(Source).Select);
+    FGroupByCollection.Assign(TDASimpleQueryBuilder(Source).GroupBy);
+    FOptions:=TDASimpleQueryBuilder(Source).FOptions;
+    FConnection:=TDASimpleQueryBuilder(Source).Connection;
+    if (TDASimpleQueryBuilder(Source).FWhere <> nil) or (FWhere <> nil) then
+      Where.Xml:=TDASimpleQueryBuilder(Source).Where.Xml;
+  end;
+end;
+
+procedure TDASimpleQueryBuilder.Clear;
+begin
+  FMainTable.MasterTable := '';
+  FMainTable.JoinSourceTables.Clear;
+  FSelectCollection.Clear;
+  if FWhere <> nil then FWhere.Clear;
+  FGroupByCollection.Clear;
+end;
+
+constructor TDASimpleQueryBuilder.Create(Collection: TCollection);
+begin
+  inherited;
+  FSelectCollection := TDASelectCollection.Create(TDASelectItem);
+  FMainTable := TDAJoinDataTable.Create(nil);
+  FGroupByCollection := TDAGroupByCollection.Create(TDAGroupByItem);
+  FColumnMapping := TDAColumnMappingCollection.Create(Self);
+  FWhere := nil;
+  FOptions := [];
+  Clear;
+end;
+
+function TDASimpleQueryBuilder.CreateGroupByClause: string;
+var
+  i: integer;
+begin
+  Result := '';
+  for i := 0 to GroupBy.Count - 1 do begin
+    if i <> 0 then Result := Result + ', ';
+    with TDAGroupByItem(GroupBy.Items[i]) do
+      Result := Result + GenerateFieldName(TableName, FieldName);
+  end;
+end;
+
+function TDASimpleQueryBuilder.CreateSelectClause: string;
+var
+  i,j: integer;
+  lflds: TDAFieldCollection;
+  lquotedtablename: string;
+begin
+  Result := '';
+  if Select.Count = 0 then begin
+    if not (qboGenerateSimpleSelect in FOptions) and Assigned(FConnection) then begin
+      FConnection.GetTableFields(MainTable.MasterTable, lflds);
+      if Assigned(lflds) then try
+       if MainTable.JoinSourceTables.Count =0 then
+         lquotedtablename := ''
+       else
+         lquotedtablename:=QuoteIdentifierIfNeeded(MainTable.MasterTable)+'.';
+       For i:= 0 to lflds.Count -1 do
+         Result := Result + lquotedtablename+QuoteFieldNameIfNeeded(MainTable.MasterTable, lflds.Fields[i].Name)+', '
+      finally
+        lFlds.Free;
+      end;
+      For j:= 0 to MainTable.JoinSourceTables.Count - 1 do
+        with TDAJoinSourceTable(MainTable.JoinSourceTables.Items[j]) do begin
+          lquotedtablename:=QuoteIdentifierIfNeeded(Name)+'.';
+          FConnection.GetTableFields(name, lflds);
+          if Assigned(lflds) then try
+            For i:= 0 to lflds.Count -1 do
+              Result := Result + lquotedtablename+QuoteFieldNameIfNeeded(Name, lflds.Fields[i].Name)+', '
+          finally
+            lFlds.Free;
+          end;
+        end;
+    end;
+  end else begin
+    for i := 0 to Select.Count - 1 do begin
+      with TDASelectItem(Select.Items[i]) do
+        Result := Result + GenerateFieldName(TableName, FieldName)+', ';
+    end;
+  end;
+  if Length(Result) > 2 then SetLength(Result, Length(Result)-2);
+  if Result = '' then Result:='*';
+end;
+
+function TDASimpleQueryBuilder.CreateWhereClause: string;
+begin
+  if FWhere = nil then
+    Result := ''
+  else
+    Result := FWhere.CreateWhereClause;
+end;
+
+destructor TDASimpleQueryBuilder.Destroy;
+begin
+  FColumnMapping.Free;
+  FWhere.Free;
+  FGroupByCollection.Free;
+  FSelectCollection.Free;
+  FMainTable.Free;
+  inherited;
+end;
+
+function TDASimpleQueryBuilder.GenerateFieldName(aTablename,
+  aFieldName: string; aProcessMapping: Boolean): string;
+begin
+  if aProcessMapping then aFieldName:= GetMappingTableField(aFieldName);
+  if aTableName <> '' then
+    Result := QuoteIdentifierIfNeeded(aTableName) + '.' + QuoteFieldNameIfNeeded(aTableName, aFieldName)
+  else
+    Result := QuoteFieldNameIfNeeded(aTableName, aFieldName);
+end;
+
+function TDASimpleQueryBuilder.GenerateSelectSQL: string;
+const
+  c_Indent = '   ';
+  c_Lenght = 47;
+
+  function CompactString(AStr: String): string;
+  var
+    p,p1: Pchar;
+    s: string;
+  begin
+    Result:='';
+    p:=Pchar(AStr);
+    repeat
+      p1:=p;
+      repeat
+        p1:=StrPos(p1, ',');
+        if p1 <> nil then inc(p1);
+      until (p1 = nil) or (p1-p > c_lenght);
+      if p1 = nil then begin
+        s:=p;
+      end else begin
+        inc(p1);
+        SetString(s,p, p1-p);
+      end;
+      p:=p1;
+      Result:=Result+#13#10 +c_Indent+ s;
+    until p = nil;
+  end;
+
+var
+  lSelect, lTable, lWhere, lGroupBy: string;
+begin
+  Validate;
+  lSelect := CompactString(CreateSelectClause);
+  lTable := CreateTableClause;
+  lWhere := CreateWhereClause;
+  lGroupBy := CreateGroupByClause;
+  Result := 'SELECT';
+  if (qboSelectDistinct in Options) then Result := Result + ' DISTINCT';
+  Result := Result+lSelect + #13#10 +
+    'FROM' + #13#10 + c_Indent + lTable;
+  if (qboGenerateDynamicWhereStatement in Options) then begin
+    if (lWhere = '') then lWhere := '{WHERE}' else lWhere := lWhere + ' AND {WHERE}';
+  end;
+  if lWhere <> '' then Result := Result + #13#10 + 'WHERE' + #13#10 + c_Indent + lWhere;
+  if lGroupBy <> '' then Result := Result + #13#10 + 'GROUP BY' + #13#10 + c_Indent + lGroupBy;
+end;
+
+function TDASimpleQueryBuilder.GetMappingTableField(
+  const aDataSetField: string): string;
+var
+  lColumnMapping: TDAColumnMapping;
+begin
+  lColumnMapping := FColumnMapping.FindMappingByDatasetField(aDataSetField);
+  if Assigned(lColumnMapping) then
+    Result := lColumnMapping.TableField
+  else
+    Result := aDataSetField;
+end;
+
+function TDASimpleQueryBuilder.GetWhereBuilder: TDASQLWhereBuilder;
+begin
+  if FWhere = nil then FWhere := CreateWhereBuilder;
+  Result:= FWhere;
+end;
+
+function TDASimpleQueryBuilder.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+var
+  i: integer;
+begin
+  if Assigned(Connection) then
+    Result := Connection.IdentifierNeedsQuoting(iIdentifier)
+  else begin
+    Result := False;
+    for i := 1 to Length(iIdentifier) do begin
+      Result := not CharInSet(iIdentifier[i], ['a'..'z', 'A'..'Z', '0'..'9', '_', '.']);
+      if Result then Break;
+    end;
+  end;
+end;
+
+function TDASimpleQueryBuilder.QuoteFieldNameIfNeeded(const aTableName,
+  aFieldName: string): string;
+begin
+  if Assigned(Connection) then
+    Result := Connection.QuoteFieldNameIfNeeded(aTableName, aFieldName)
+  else
+    Result := {aTableName + '.' +} QuoteIdentifierIfNeeded(aFieldName);
+end;
+
+function TDASimpleQueryBuilder.QuoteIdentifier(
+  const iIdentifier: string): string;
+begin
+  if Assigned(Connection) then
+    Result := Connection.QuoteIdentifier(iIdentifier)
+  else
+    Result := '''' + iIdentifier + '''';
+end;
+
+function TDASimpleQueryBuilder.QuoteIdentifierIfNeeded(
+  const iIdentifier: string): string;
+begin
+  if Assigned(Connection) then
+    Result := Connection.QuoteIdentifierIfNeeded(iIdentifier)
+  else if IdentifierNeedsQuoting(iIdentifier) then
+    Result := QuoteIdentifier(iIdentifier)
+  else
+    Result := iIdentifier;
+end;
+
+procedure TDASimpleQueryBuilder.SetColumnMapping(
+  const Value: TDAColumnMappingCollection);
+begin
+  FColumnMapping.AssignColumnMapping(Value);
+end;
+
+procedure TDASimpleQueryBuilder.Validate;
+begin
+  if FMainTable.MasterTable = '' then raise Exception.Create('Please specify MainTable.MasterTable');
+end;
+
+{ TDAWhereBuilder }
+
+const
+  c_DAWhereBuilderLocalName = 'query';
+  c_DAWhereBuilderNamespaceURI = 'http://www.remobjects.com/schemas/dataabstract/queries/5.0';
+  c_DAWhereBuilderwhere = 'where';
+procedure TDAWhereBuilder.Clear;
+begin
+  FreeAndNil(FExpression);
+  FColumnMapping.Clear;
+  fParams.Clear;
+end;
+
+constructor TDAWhereBuilder.Create;
+begin
+  inherited Create;
+  FColumnMapping := TDAColumnMappingCollection.Create(nil);
+  fParams := TDAParamCollection.Create(nil);
+end;
+
+destructor TDAWhereBuilder.Destroy;
+begin
+  Clear;
+  fParams.Free;
+  FColumnMapping.Free;
+  inherited Destroy;
+end;
+
+function TDAWhereBuilder.ExpressionToXmlNode(
+  const aExpression: TDAWhereExpression): IXMLNode;
+var
+  doc: IXMLDocument;
+  el: IXMLNode;
+begin
+  doc := NewROXmlDocument;
+  doc.New(c_DAWhereBuilderLocalName);
+  el := doc.DocumentNode;
+  el.AddAttribute('xmlns', c_DAWhereBuilderNamespaceURI);
+  el.AddAttribute('version', '5.0');
+  WriteToXml(el,aExpression);
+  result := doc.DocumentNode;
+end;
+
+function TDAWhereBuilder.getXml: UnicodeString;
+begin
+  Result:= ExpressionToXmlNode(fExpression).Document.XML;
+end;
+
+function TDAWhereBuilder.IsEmpty: Boolean;
+begin
+  Result:= fExpression = nil;
+end;
+
+function TDAWhereBuilder.NewBinaryExpression(aLeft,
+  aRight: TDAWhereExpression; anOp: TDABinaryOperator): TDAWhereExpression;
+begin
+  Result := TDABinaryExpression.Create(aLeft, aRight, anOp);
+end;
+
+function TDAWhereBuilder.NewBinaryExpression(const aTableName,
+  aFieldName: string; anOp: TDABinaryOperator; const aValue: variant;
+  aType: TDADataType): TDAWhereExpression;
+begin
+  Result := NewBinaryExpression(
+    NewField(aTableName,aFieldName),
+    NewConstant(aValue,aType),
+    anOp
+    );
+end;
+
+function TDAWhereBuilder.NewConstant(const aValue: Variant;
+  aType: TDADataType): TDAWhereExpression;
+begin
+  Result := TDAConstantExpression.Create(aValue, aType);
+end;
+
+function TDAWhereBuilder.NewField(
+  const aTableName,aFieldName: string): TDAWhereExpression;
+begin
+  Result := TDAFieldExpression.Create(aTableName,aFieldName);
+end;
+
+function TDAWhereBuilder.NewIsNotNull: TDAWhereExpression;
+begin
+  Result := NewUnaryExpression(NewNull,duoNot);
+end;
+
+function TDAWhereBuilder.NewIsNotNull(const aTableName,
+  aFieldName: string): TDAWhereExpression;
+begin
+  Result := NewBinaryExpression(
+       NewField(aTableName,aFieldName),
+       NewIsNotNull,
+       dboEqual);
+end;
+
+function TDAWhereBuilder.NewList(
+  const aValues: array of TDAWhereExpression): TDAWhereExpression;
+begin
+  result := TDAListExpression.Create(aValues);
+end;
+
+function TDAWhereBuilder.NewMacro(const aName: string;
+  const aValues: array of TDAWhereExpression): TDAWhereExpression;
+begin
+  Result := TDAMacroExpression.Create(aName, aValues);
+end;
+
+function TDAWhereBuilder.NewMacro(const aName: string): TDAWhereExpression;
+begin
+  Result := TDAMacroExpression.Create(aName);
+end;
+
+function TDAWhereBuilder.NewNull: TDAWhereExpression;
+begin
+  Result := TDANullExpression.Create;
+end;
+
+function TDAWhereBuilder.NewParameter(
+  const aParameterName: string): TDAWhereExpression;
+begin
+  Result := TDAParameterExpression.Create(aParameterName);
+end;
+
+function TDAWhereBuilder.NewUnaryExpression(
+  anExpression: TDAWhereExpression;
+  anOp: TDAUnaryOperator): TDAWhereExpression;
+begin
+  Result := TDAUnaryExpression.Create(anExpression, anOp);
+end;
+
+function TDAWhereBuilder.ReadFromXml(xr: IXmlNode): TDAWhereExpression;
+begin
+  xr := SelectNodeLocal(xr, c_DAWhereBuilderwhere);
+  if (xr = nil) then raise Exception.Create('"'+c_DAWhereBuilderwhere+'" tag expected');
+  if xr.ChildrenCount > 0 then
+    Result := TDAWhereExpression.ParseExpression(xr.FirstChild)
+  else
+    Result := nil;  
+end;
+
+procedure TDAWhereBuilder.RemoveEmptyNodes(const ANode: IXMLNode);
+var
+  i: integer;
+  lNode: IXMLNode;
+begin
+  i:=0;
+  while i < ANode.ChildrenCount do begin
+    lNode := ANode.Children[i];
+    if (lNode.Name = '#text') and (lNode.LocalName = '') and (lNode.Value = ' ')  then
+      ANode.Delete(i)
+    else begin
+      RemoveEmptyNodes(lNode);
+      inc(i);
+    end;
+  end;
+end;
+
+procedure TDAWhereBuilder.SetColumnMapping(
+  const Value: TDAColumnMappingCollection);
+begin
+  FColumnMapping.AssignColumnMapping(Value);
+end;
+
+procedure TDAWhereBuilder.SetParams(const Value: TDAParamCollection);
+begin
+  fParams.AssignParamCollection(Value);
+end;
+
+procedure TDAWhereBuilder.setXml(const aValue: UnicodeString);
+begin
+  Clear;
+  fExpression:=XMLToExpression(aValue);
+end;
+
+procedure TDAWhereBuilder.WriteToXml(sw: IXmlNode; const aExpression: TDAWhereExpression);
+begin
+  sw := sw.Add(c_DAWhereBuilderwhere);
+  if aExpression <> nil then
+     aExpression.WriteToXml(sw);
+end;
+
+function TDAWhereBuilder.XMLToExpression(
+  const aXML: UnicodeString): TDAWhereExpression;
+var
+  doc: IXMLDocument;
+  el: IXMLNode;
+begin
+  doc := NewROXmlDocument;
+  doc.New();
+  doc.XML := aXML;
+  el := doc.DocumentNode;
+  if (el.LocalName <> c_DAWhereBuilderLocalName) or (el.NamespaceURI <> c_DAWhereBuilderNamespaceURI) then raise Exception.Create('Not a DataAbstract query xml');
+  RemoveEmptyNodes(el);
+  Result:= ReadFromXml(el);
+end;
+
+{ TDAWhereExpression }
+
+class function TDAWhereExpression.ParseExpression(xr: IXmlNode): TDAWhereExpression;
+begin
+  Result := CreateWhereExpression(xr.LocalName);
+  Result.ReadFromXml(xr);
+end;
+
+procedure TDAWhereExpression.Validate;
+begin
+// nothing
+end;
+
+{ TDAUnionDataTable }
+constructor TDAUnionDataTable.Create(Collection: TCollection);
+begin
+  inherited;
+  fSourceTables := TDAUnionSourceTableCollection.Create(Self);
+end;
+
+destructor TDAUnionDataTable.Destroy;
+begin
+  FreeAndNil(fSourceTables);
+  inherited;
+end;
+
+procedure TDAUnionDataTable.SetSourceTables(Value: TDAUnionSourceTableCollection);
+begin
+  fSourceTables.Assign(Value);
+end;
+
+{ TDAUnionSourceTableCollection }
+function TDAUnionSourceTableCollection.Add: TDAUnionSourceTable;
+begin
+  result := inherited Add() as TDAUnionSourceTable;
+end;
+
+constructor TDAUnionSourceTableCollection.Create(aOwner : TPersistent);
+begin
+  inherited Create(aOwner, TDAUnionSourceTable);
+end;
+
+function TDAUnionSourceTableCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDAUnionSourceTable(anItem).Name;
+end;
+
+function TDAUnionSourceTableCollection.GetUnionSourceTables(
+  Index: integer): TDAUnionSourceTable;
+begin
+  result := TDAUnionSourceTable(inherited Items[Index]);
+end;
+
+function TDAUnionSourceTableCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAUnionSourceTable(anItem).Name := aName;
+end;
+
+function TDAUnionSourceTableCollection.UnionSourceTableByName(
+  const aName: string): TDAUnionSourceTable;
+begin
+  result := ItemByName(aName) as TDAUnionSourceTable
+end;
+
+{ TDAUnionSourceTable }
+procedure TDAUnionSourceTable.Assign(Source: TPersistent);
+begin
+  if Source is TDAUnionSourceTable then begin
+    Name := TDAUnionSourceTable(Source).Name;
+    IsReadonly := TDAUnionSourceTable(Source).IsReadOnly;
+    ColumnMappings.Assign(TDAUnionSourceTable(Source).ColumnMappings);
+  end;
+end;
+
+constructor TDAUnionSourceTable.Create(Collection: TCollection);
+begin
+  inherited;
+  fColumnMappings := TDAColumnMappingCollection.Create(Self);
+end;
+
+destructor TDAUnionSourceTable.Destroy;
+begin
+  FreeAndNil(fColumnMappings);
+  inherited;
+end;
+
+procedure TDAUnionSourceTable.SetColumnMappings(const Value: TDAColumnMappingCollection);
+begin
+  fColumnMappings.Assign(Value);
+end;
+
+{ TDAUnionDataTableCollection }
+constructor TDAUnionDataTableCollection.Create(aOwner : TComponent);
+begin
+  inherited Create(aOwner, TDAUnionDataTable);
+end;
+
+function TDAUnionDataTableCollection.GetUnionDataTables(Index: integer): TDAUnionDataTable;
+begin
+  result := TDAUnionDataTable(inherited Items[Index]);
+end;
+
+procedure TDAUnionDataTableCollection.SetUnionDataTables(Index: integer; const Value: TDAUnionDataTable);
+begin
+  UnionDataTables[Index].Assign(Value);
+end;
+
+function TDAUnionDataTableCollection.Add: TDAUnionDataTable;
+begin
+  result := TDAUnionDataTable(inherited Add);
+end;
+
+function TDAUnionDataTableCollection.UnionDataTableByName(const aName: string): TDAUnionDataTable;
+begin
+  result := TDAUnionDataTable(inherited ItemByName(aName));
+end;
+
+function TDAUnionDataTableCollection.FindUnionDataTableByName(const aName: string): TDAUnionDataTable;
+begin
+  result := TDAUnionDataTable(inherited FindItem(aName));
+end;
+
+
+
+function TDAUnionDataTableCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  Result := TDAUnionDataTable(anItem).Name;
+end;
+
+function TDAUnionDataTableCollection.SetItemName(anItem: TCollectionItem;
+  const aName: string): string;
+begin
+  TDAUnionDataTable(anItem).Name := aName;
+end;
+
+{ TDASQLWhereBuilder }
+
+constructor TDASQLWhereBuilder.Create(AConnection: IDAConnection);
+begin
+  inherited Create;
+  FConnection:= AConnection;
+end;
+
+constructor TDASQLWhereBuilder.Create(AQueryBuilder: TDASimpleQueryBuilder);
+begin
+  inherited Create;
+  FQueryBuilder:= AQueryBuilder;
+end;
+
+function TDASQLWhereBuilder.CreateWhereClause: string;
+begin
+  FId:=0;
+  Params.Clear;
+  Result := '';
+  if Expression <> nil then begin
+    Expression.Validate;
+    Result:= ProcessExpression(Expression);
+  end;
+end;
+
+
+function TDASQLWhereBuilder.GenerateFieldName(aTablename,
+  aFieldName: string): string;
+begin
+  aFieldName:= GetMappingTableField(aFieldName);
+  if FQueryBuilder <> nil then
+    Result := FQueryBuilder.GenerateFieldName(aTablename,aFieldName,False)
+  else
+  if FConnection <> nil then begin
+     if aTableName <> '' then
+        Result := FConnection.QuoteIdentifierIfNeeded(aTableName) + '.' + FConnection.QuoteFieldNameIfNeeded(aTableName, aFieldName)
+      else
+        Result := FConnection.QuoteFieldNameIfNeeded(aTableName, aFieldName);
+  end
+  else
+    Result:= aFieldName;
+end;
+
+function TDASQLWhereBuilder.GenerateParameter(
+  const aParameterName: string): string;
+begin
+  Result:= ':'+aParameterName;
+end;
+
+function TDASQLWhereBuilder.GenerateParamName: String;
+begin
+  fId := fId + 1;
+  result := Format('P%d', [fId]);
+end;
+
+function TDASQLWhereBuilder.GetMappingTableField(
+  const aDataSetField: string): string;
+var
+  lColumnMapping: TDAColumnMapping;
+begin
+  lColumnMapping := FColumnMapping.FindMappingByDatasetField(aDataSetField);
+  if Assigned(lColumnMapping) then
+    Result := lColumnMapping.TableField
+  else
+    Result := aDataSetField;
+end;
+
+function TDASQLWhereBuilder.ProcessConstantExpression(
+  AExpression: TDAWhereExpression): string;
+const
+  const_prefix = 'DACONST_';
+begin
+  With Params.Add do begin
+    ParamType := daptInput;
+    Value := TDAConstantExpression(AExpression).Value;
+    DataType := TDAConstantExpression(AExpression).aType;
+    Name := GenerateParamName();
+    Result:= GenerateParameter(Name);
+  end;
+end;
+
+function TDASQLWhereBuilder.ProcessExpression(
+  AExpression: TDAWhereExpression): string;
+begin
+  Result := '';
+  if AExpression = nil then Exit;
+  if AExpression is TDABinaryExpression then Result := ProcessBinaryExpression(TDABinaryExpression(AExpression))
+  else if AExpression is TDAUnaryExpression then Result := ProcessUnaryExpression(TDAUnaryExpression(AExpression))
+  else if AExpression is TDAConstantExpression then Result := ProcessConstantExpression(TDAConstantExpression(AExpression))
+  else if AExpression is TDAListExpression then Result := ProcessListExpression(TDAListExpression(AExpression))
+  else if AExpression is TDAParameterExpression then Result := ProcessParameterExpression(TDAParameterExpression(AExpression))
+  else if AExpression is TDAFieldExpression then Result := ProcessFieldExpression(TDAFieldExpression(AExpression))
+  else if AExpression is TDANullExpression then Result := ProcessNullExpression(TDANullExpression(AExpression))
+  else if AExpression is TDAMacroExpression then Result := ProcessMacroExpression(TDAMacroExpression(AExpression))
+  else ;
+end;
+
+function TDASQLWhereBuilder.ProcessFieldExpression(
+  AExpression: TDAWhereExpression): string;
+begin
+  with TDAFieldExpression(AExpression) do
+    Result:= GenerateFieldName(TableName, FieldName);
+end;
+
+function TDASQLWhereBuilder.ProcessListExpression(
+  AExpression: TDAWhereExpression): string;
+var
+  i: integer;
+begin
+  Result := '';
+  with TDAListExpression(AExpression) do
+    for i := 0 to Count - 1 do begin
+      if i > 0 then Result := Result + ', ';
+      Result := Result + ProcessExpression(Item[i]);
+    end;
+end;
+
+function TDASQLWhereBuilder.ProcessMacroExpression(
+  AExpression: TDAWhereExpression): string;
+var
+  s1: string;
+  i: integer;
+begin
+  with TDAMacroExpression(AExpression) do begin
+    Result := '{' + Name;
+    s1 := '}';
+    if Count > 0 then begin
+      Result := Result + '(';
+      for i := 0 to Count - 1 do begin
+        if i > 0 then Result := Result + ', ';
+        Result := Result + ProcessExpression(Item[i]);
+      end;
+      Result := Result + ')';
+    end;
+  end;
+  Result := Result + s1;
+end;
+
+function TDASQLWhereBuilder.ProcessParameterExpression(
+  AExpression: TDAWhereExpression): string;
+begin
+  with TDAParameterExpression(AExpression) do
+    Result := GenerateParameter(ParameterName);
+end;
+
+procedure Params_ParseSQL(aParams: TParams; aSQL: String; DoCreate: Boolean; aQuoteChar: TDAQuoteCharArray; aUseDefaultChars: Boolean = False);
+const
+  c_defaultchars = ['[',']','"','`',''''];
+var
+  lSQL: string;
+  i: integer;
+  lName: string;
+  lLen: integer;
+begin
+  { Bug in ParseSQL modified passed in string; use UniqueString to prevent corrupting the original! }
+  lSQL := aSQL;
+  UniqueString(lSQL);
+  aParams.ParseSQL(lSQL, DoCreate);
+  for i:=0 to aParams.Count -1 do begin
+    lName := aParams[i].Name;
+    lLen := Length(lName);
+    // it fixes problem when used non-standard quotes like [ and ]
+    if (lLen > 2) and (
+      (not aUseDefaultChars and (lName[1] = aQuoteChar[0]) and (lName[lLen] = aQuoteChar[1])) or
+      (aUseDefaultChars and CharInSet(lName[1], c_defaultchars) and CharInSet(lName[lLen], c_defaultchars))) then begin
+      lName := Copy(lName,2, lLen -2 );
+      aParams[i].Name:= lName;
+    end
+    // bug in BDS2006, when TParams.ParseSQL parses "ORDERS" as ORDERS"
+   {$IFDEF BDS4}
+    else if (lLen > 1) and (
+     (aUseDefaultChars and (lName[lLen] in c_defaultchars)) or (not aUseDefaultChars and (lName[lLen] = aQuoteChar[1]))) then begin
+      SetLength(lName, lLen - 1);
+      aParams[i].Name:= lName;
+    end
+   {$ENDIF}
+   ;
+  end;
+end;
+
+{ TDAQueryBuilder }
+
+procedure TDAQueryBuilder.AddOrderBy(ATable, AField: string);
+begin
+  with TDAOrderByItem(FOrderByCollection.Add) do begin
+    TableName := aTable;
+    FieldName := AField;
+  end;
+end;
+
+function TDAQueryBuilder.AddUnion: TDASimpleQueryBuilder;
+begin
+  if Connection <> nil then
+    Result := Connection.GetQueryBuilder.Create(FUnionCollections)
+  else
+    Result := TDAQueryBuilder(NewInstance).Create(FUnionCollections);
+end;
+
+
+procedure TDAQueryBuilder.Assign(Source: TPersistent);
+begin
+  inherited;
+  if Source is TDASimpleQueryBuilder then begin
+    FOrderByCollection.Assign(TDAQueryBuilder(Source).OrderBy);
+  end;
+end;
+
+procedure TDAQueryBuilder.Clear;
+begin
+  inherited;
+  FOrderByCollection.Clear;
+  FUnionCollections.Clear;
+end;
+
+
+constructor TDAQueryBuilder.Create;
+begin
+  Create(nil);
+end;
+
+constructor TDAQueryBuilder.Create(Collection: TCollection);
+begin
+  FOrderByCollection := TDAOrderByCollection.Create(TDAOrderByItem);
+  FUnionCollections := TDAUnionCollections.Create(TDASimpleQueryBuilder);
+  inherited;
+end;
+
+function TDAQueryBuilder.CreateOrderByClause: string;
+var
+  i: integer;
+begin
+  Result := '';
+  for i := 0 to OrderBy.Count - 1 do begin
+    if i <> 0 then Result := Result + ', ';
+    with TDAOrderByItem(OrderBy.Items[i]) do
+      Result := Result + GenerateFieldName(TableName, FieldName);
+  end;
+end;
+
+function TDAQueryBuilder.CreateUnionClause(const AUnion: TDASimpleQueryBuilder): string;
+begin
+  AUnion.Connection := Self.Connection;
+  Result := AUnion.GenerateSelectSQL;
+end;
+
+destructor TDAQueryBuilder.Destroy;
+begin
+  FOrderByCollection.Free;
+  FUnionCollections.Free;
+  inherited;
+end;
+
+function TDAQueryBuilder.GenerateSelectSQL: string;
+const
+  c_Indent = '   ';
+var
+  i: integer;
+  lUnion, lOrderBy: string;
+begin
+  Result := inherited GenerateSelectSQL;
+  lOrderBy := CreateOrderByClause;
+  for I := 0 to FUnionCollections.Count - 1 do begin
+    lUnion := CreateUnionClause(TDASimpleQueryBuilder(FUnionCollections.Items[i]));
+    if lUnion <> '' then
+      Result := Result + #13#10 + 'UNION' + #13#10 + lUnion;
+  end;
+  if lOrderBy <> '' then Result := Result + #13#10 + 'ORDER BY' + #13#10 + c_Indent + lOrderBy;
+end;
+
+{$IFDEF DataAbstract_Trial}
+{$INCLUDE DataAbstract_Trial.inc}
+{$ENDIF DataAbstract_Trial}
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAInterfacesEx.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAInterfacesEx.pas
new file mode 100644
index 0000000..d9ba34b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAInterfacesEx.pas	
@@ -0,0 +1,37 @@
+unit uDAInterfacesEx;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  uDAInterfaces;
+
+type
+  IDAConnectionMetaData = interface(IDAConnection)
+    ['{ACDD5335-B7CB-4E0F-8241-4A323D4731F1}']
+  end;
+
+  IDAConnectionModelling = interface(IDAConnection)
+    ['{ACDD5335-B7CB-4E0F-8241-4A323D4731F1}']
+
+    function FieldToDeclaration(aField: TDAField): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function BuildCreateTableSQL(aDataSet: TDADataSet; const aOverrideName: string = ''): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CreateTable(aDataSet: TDADataSet; const aOverrideName: string = ''); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAJSONDataStreamer.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAJSONDataStreamer.pas
new file mode 100644
index 0000000..d181668
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAJSONDataStreamer.pas	
@@ -0,0 +1,1189 @@
+unit uDAJSONDataStreamer;
+
+{$I DataAbstract.inc}
+
+interface
+uses
+  SysUtils, Classes,
+  uROTypes, uROXMLIntf,
+  uDAInterfaces, uDADelta,
+  uDADataStreamer,uROJSONParser;
+
+const
+  // Data stream node names
+  pn_Datasets                    = 'datasets';
+  pn_Dataset_Name                = 'name';
+  pn_Dataset_Schema              = 'schema';
+  pn_Dataset_Schema_Fields       = 'fields';
+  pn_Dataset_Schema_Params       = 'params';
+  pn_Dataset_Data                = 'data';
+  pn_Dataset_Data_Rows           = 'rows';
+  pn_Dataset_Data_Fields         = 'fields';
+  pn_Dataset_Data_Fields_name    = 'name';
+
+  pn_Deltas                      = 'deltas';
+  pn_Delta_Name                  = 'name';
+  pn_Delta_LoggedFields          = 'loggedfields';
+  pn_Delta_LoggedFields_Name     = 'name';
+  pn_Delta_LoggedFields_Type     = 'type';   
+  pn_Delta_KeyFields             = 'keyfields';
+  pn_Delta_Data                  = 'data';
+  pn_Delta_Data_RecID            = 'recid';
+  pn_Delta_Data_Changetype       = 'changetype';
+  pn_Delta_Data_Status           = 'status';
+  pn_Delta_Data_Message          = 'message';
+  pn_Delta_Data_Old              = 'old';
+  pn_Delta_Data_New              = 'new';
+
+type
+  TDASmallFieldInfo = record
+    Name: String;
+  end;
+
+  TDADataForAppendBin2 = class(TDADataForAppend)
+  public
+    FieldsInfo: array of TDASmallFieldInfo;
+  end;
+
+  TDAJSONDataStreamer = class(TDADataStreamer)
+  private
+    FParser: TROJSONValue;
+    FDatasets, FDeltas : TROJSONArray;
+    function GetDatasetObject(const ADatasetName: JSON_String; const ACreate: Boolean):TROJSONObject;
+    function GetDeltaObject(const ADeltaName: JSON_String; const ACreate: Boolean):TROJSONObject;
+    function GetDatasetObjectByPropName(const ADatasetName, AObjectName: JSON_String; const ACreate: Boolean):TROJSONObject;
+    function GetDataArraysByPropName(const ADatasetName, AObjectName: JSON_String; const ACreate: Boolean):TROJSONArray;
+    procedure ClearParser;
+    procedure WriteSchema(Const ASchemaObject: TROJSONObject; const Fields: TDAFieldCollection; const Params: TDAParamCollection; aFieldsIndex: array of integer); overload;
+    procedure ReadSchema(Const ASchemaObject: TROJSONObject; const Destination: IDADataset);
+    procedure WriteField(const AFieldObject: TROJSONObject; const AField: TDAField);
+    procedure WriteParam(const AParamObject: TROJSONObject; const AParam: TDAParam);
+    procedure ReadParam(const AParamObject: TROJSONObject; const AParam: TDAParam);
+    procedure ReadField(const AFieldObject: TROJSONObject; const AField: TDAField);
+  protected
+    procedure InternalDoWriteDataset(const Source: IDADataset; var k: integer; const Maxrecords: integer; ARealFields: array of integer;aDataIndex: Integer; info: array of TDASmallFieldInfo);
+    procedure InternalDoReadDataset(const ARowsArray: TROJSONArray; const Destination: IDAEditableDataset; ARealFields: array of integer;AppendMode: Boolean);
+
+    function DoCreateStream: TStream; override;
+    procedure DoInitialize(Mode: TDAAdapterInitialization); override;
+    procedure DoFinalize; override;
+
+    function DoWriteDataset(const Source: IDADataset; Options: TDAWriteOptions; MaxRows: integer; ADynFieldNames: array of string): integer; override;
+
+    function DoBeginWriteDataset( const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend; override;
+    function DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer; override;
+    function DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer; override;
+
+
+    procedure DoReadDataset(const DatasetName: string; const Destination: IDADataset; ApplySchema: boolean; AppendMode: Boolean); override;
+    procedure DoReadDelta(const DeltaName: string; const Destination: IDADelta); override;
+    procedure DoWriteDelta(const Source: IDADelta); override;
+  public
+    function GetTargetDataType: TRODataType; override;
+  published
+  end;
+
+implementation
+
+uses
+  Variants,
+  uROClasses,
+  uDAClasses,uDAEngine,uROBinaryHelpers, uROJSONMessage, uROCompression;
+
+const
+  TAlignmentStrings:  array[Low(TAlignment)..High(TAlignment)] of Json_String =
+                      ('taLeftJustify', 'taRightJustify', 'taCenter');
+  TDABlobTypeStrings: array[Low(TDABlobType)..High(TDABlobType)] of Json_String =
+                      ('dabtUnknown', 'dabtBlob', 'dabtMemo', 'dabtOraBlob',
+                       'dabtOraClob', 'dabtGraphic', 'dabtTypedBinary', 'dabtTimestamp');
+  TDADataTypeStrings: array[Low(TDADataType)..High(TDADataType)] of Json_String =
+                      ('datUnknown', 'datString', 'datDateTime', 'datFloat',
+                       'datCurrency', 'datAutoInc', 'datInteger', 'datLargeInt',
+                       'datBoolean', 'datMemo', 'datBlob', 'datWideString',
+                       'datWideMemo', 'datLargeAutoInc', 'datByte', 'datShortInt',
+                       'datWord', 'datSmallInt', 'datCardinal', 'datLargeUInt',
+                       'datGuid', 'datXml', 'datDecimal', 'datSingleFloat');
+  TDAParamTypeStrings:array[Low(TDAParamType)..High(TDAParamType)] of Json_String =
+                      ('daptUnknown', 'daptInput', 'daptOutput', 'daptInputOutput',
+                       'daptResult');
+  TDAChangeTypeStrings: array[Low(TDAChangeType)..High(TDAChangeType)] of Json_String =
+                      ('insert', 'update', 'delete');
+  TDAChangeStatusStrings: array[Low(TDAChangeStatus)..High(TDAChangeStatus)] of Json_String =
+                      ('pending', 'resolved', 'failed');
+
+function TDAChangeStatusStringsToTDAChangeStatus(aValue: JSON_String): TDAChangeStatus;
+begin
+  for Result := Low(TDAChangeStatus) to High(TDAChangeStatus) do
+    if TDAChangeStatusStrings[Result] = aValue then Exit;
+  raise Exception.Create('Unknown TDAChangeStatus value: '''+aValue+'''');
+end;
+
+function TDAChangeTypeStringsToTDAChangeType(aValue: JSON_String): TDAChangeType;
+begin
+  for Result := Low(TDAChangeType) to High(TDAChangeType) do
+    if TDAChangeTypeStrings[Result] = aValue then Exit;
+  raise Exception.Create('Unknown TDAChangeType value: '''+aValue+'''');
+end;
+
+function TAlignmentStringsToTAlignment(aValue: Json_String): TAlignment;
+begin
+  for Result := Low(TAlignment) to High(TAlignment) do
+    if TAlignmentStrings[Result] = aValue then Exit;
+  raise Exception.Create('Unknown TAlignment value: '''+aValue+'''');
+end;
+
+function TDABlobTypeStringsToTDABlobType(aValue: Json_String): TDABlobType;
+begin
+  for Result := Low(TDABlobType) to High(TDABlobType) do
+    if TDABlobTypeStrings[Result] = aValue then Exit;
+  raise Exception.Create('Unknown TDABlobType value: '''+aValue+'''');
+end;
+
+function TDADataTypeStringsToTDADataType(aValue: Json_String): TDADataType;
+begin
+  for Result := Low(TDADataType) to High(TDADataType) do
+    if TDADataTypeStrings[Result] = aValue then Exit;
+  raise Exception.Create('Unknown TDADataType value: '''+aValue+'''');
+end;
+
+function TDAParamTypeStringsToTDAParamType(aValue: Json_String): TDAParamType;
+begin
+  for Result := Low(TDAParamType) to High(TDAParamType) do
+    if TDAParamTypeStrings[Result] = aValue then Exit;
+  raise Exception.Create('Unknown TDAParamType value: '''+aValue+'''');
+end;
+
+function EncodeBlob(val: Variant): variant;
+var
+    arrLen: integer;
+    arr: PByteArray;
+    msIn, msOut: TROBinaryMemoryStream;
+begin
+  if VarIsArray(val) then begin
+    arrLen := VarArrayHighBound(val, 1) - VarArrayLowBound(val, 1) + 1;
+    msIn := TROBinaryMemoryStream.Create;
+    msOut := TROBinaryMemoryStream.Create;
+    arr := VarArrayLock(val);
+    try
+      msIn.Write(arr^, arrLen);
+      msIn.Position := 0;
+      EncodeStream(msIn, msOut);
+      Result := msOut.ToString;
+    finally
+      msIn.Free;
+      msOut.Free;
+      VarArrayUnlock(val);
+    end;
+  end
+  else if VarIsNull(val) then begin
+    Result := 'null';
+  end
+  else begin
+    Result := val;
+  end;
+end;
+
+function DecodeBlob(val: AnsiString): Variant;
+var
+    msIn, msOut: TROBinaryMemoryStream;
+    arr: PByteArray;
+begin
+    Result := Null;
+    if ROAnsiCompare(val, 'null', false) <> 0 then begin
+        msIn := TROBinaryMemoryStream.Create(val);
+        msOut := TROBinaryMemoryStream.Create;
+        arr := nil;
+        try
+            msIn.Position := 0;
+            DecodeStream(msIn, msOut);
+            Result := VarArrayCreate([0, msOut.Size - 1], varByte);
+            arr := VarArrayLock(Result);
+            msOut.Position := 0;
+            msOut.Read(arr^, msOut.Size);
+        finally
+            if Assigned(arr) then VarArrayUnlock(Result);
+            msIn.Free;
+            msOut.Free;
+        end;
+    end;
+end;
+
+function EncodeDecimal(val: Variant): string;
+begin
+     Result := VarAsType(val, varString);
+     ReplaceChar(Result, [',', '.'], '.');
+end;
+
+{ TDAJSONDataStreamer }
+
+procedure TDAJSONDataStreamer.ClearParser;
+begin
+  FDatasets := nil;
+  FDeltas := nil;
+  if FParser <> nil then FreeAndNil(FParser);
+end;
+
+function TDAJSONDataStreamer.GetDatasetObjectByPropName(const ADatasetName, AObjectName: JSON_String; const ACreate: Boolean):TROJSONObject;
+var
+  lProp: TROJSONProperty;
+  lDataset: TROJSONObject;
+begin
+  Result := nil;
+  lDataset := GetDatasetObject(ADatasetName,ACreate);
+  lProp := lDataset.FindItem(AObjectName);
+  if (lProp = nil) then begin
+    if ACreate then
+      lProp := lDataset.AddObjectProperty(AObjectName)
+    else
+      Exit;
+  end;
+  Result := lProp.ASObject;
+end;
+
+function TDAJSONDataStreamer.DoBeginWriteDataset(const Source: IDADataset;
+  const Schema: TDADataset; Options: TDAWriteOptions; MaxRows: integer;
+  ADynFieldNames: array of string): TDADataForAppend;
+var
+  k, i, Realfldcnt: integer;
+  fld: TDAField;
+  wrtschema: boolean;
+  info: array of TDASmallFieldInfo;
+  RealFields: array of integer;
+  lfields: array of integer;
+  lDataForAppend : TDADataForAppendBin2;
+  lSchemaFields: TDAFieldCollection;
+  lSchemaParams: TDAParamCollection;
+  lLogicalName: String;
+  lRealSchemaArray: TROJSONArray;
+  lobj: TROJSONObject;
+begin
+  lDataForAppend := TDADataForAppendBin2.Create();
+  result := lDataForAppend;
+
+  if Assigned(Schema) then begin
+    lDataForAppend.TableSchema := Schema;
+    if Schema is TDAUnionDataTable then begin
+      fld := Schema.FindField(def_SourceTableFieldName);
+      if not Assigned(fld) then begin
+        fld := Schema.Fields.Add();
+        fld.Name := def_SourceTableFieldName;
+        fld.DataType := datInteger;
+        fld.InPrimaryKey := true;
+        fld.ServerAutoRefresh := true;
+      end;
+    end;
+    lSchemaFields := Schema.Fields;
+    lSchemaParams := Schema.Params;
+    lLogicalName := Schema.Name;
+  end else begin
+    if Assigned(Source) then begin
+      lSchemaFields := Source.Fields;
+      lSchemaParams := Source.Params;
+      lLogicalName := Source.LogicalName;
+    end else begin
+      raise EDAException.Create('Schema or source should be assigned.');
+    end;
+  end;
+
+  if Length(ADynFieldNames) > 0 then begin
+    SetLength(lfields, Length(ADynFieldNames));
+    For i:=0 to High(ADynFieldNames) do begin
+      fld := lSchemaFields.FindField(ADynFieldNames[i]);
+      if fld <> nil then
+        lfields[i]:= i
+      else
+        lfields[i]:= -1;  // TODO: shoudln't this raise an exception "field not found", or the like?
+    end;
+  end else begin
+    SetLength(lfields, lSchemaFields.Count);
+    For i:=0 to lSchemaFields.Count-1 do
+      lfields[i]:=i;
+  end;
+
+  // This information will be used later to complete the stream (see DoInitialize)
+  AddingDataset(lLogicalName);
+
+  // Writes a boolean flag that indicates if the schema is being written
+  wrtschema := (woSchema in Options) or (Length(ADynFieldNames)>0);
+  if wrtschema then
+    WriteSchema(GetDatasetObjectByPropName(lLogicalName,pn_Dataset_Schema,True), lSchemaFields, lSchemaParams, lfields);
+
+  // Writes the row count
+  if not (woRows in Options) then Exit;
+
+  // write datatypes+offsets
+  SetLength(info, lSchemaFields.Count);
+  SetLength(RealFields, lSchemaFields.Count);
+  Realfldcnt := 0;
+
+  lRealSchemaArray := GetDataArraysByPropName(Source.LogicalName,pn_Dataset_Data_Fields,True);
+  for i := 0 to High(lfields) do begin
+    if lSchemaFields[lfields[i]].Calculated or lSchemaFields[lfields[i]].Lookup then Continue;
+    RealFields[Realfldcnt] := lfields[i];
+    info[Realfldcnt].Name := lSchemaFields[lfields[i]].Name;
+    lobj:=lRealSchemaArray.AddObject.AsObject;
+    lObj.AddStringProperty(pn_Dataset_Data_Fields_name,info[Realfldcnt].Name);
+    inc(Realfldcnt);
+  end;
+  SetLength(info, Realfldcnt);
+  SetLength(RealFields, Realfldcnt);
+
+  // prepare DataForAppend structure...
+  SetLength(lDataForAppend.RealFields, Realfldcnt);
+  SetLength(lDataForAppend.FieldsInfo, Realfldcnt);
+  for i := Low(RealFields) to High(RealFields) do begin
+    lDataForAppend.RealFields[i] := RealFields[i];
+    lDataForAppend.FieldsInfo[i].Name := info[i].Name;
+  end;
+
+  lDataForAppend.MaxRowCount := MaxRows;
+  k := 0;
+  lDataForAppend.RecordCount := k;
+  result := lDataForAppend;
+end;
+
+function TDAJSONDataStreamer.DoCreateStream: TStream;
+begin
+  // outdated, for backward capability
+  result := nil;
+end;
+
+function TDAJSONDataStreamer.DoEndWriteDataset(
+  aDataForAppend: TDADataForAppend): Integer;
+begin
+  Result:= aDataForAppend.RecordCount;
+  aDataForAppend.Free;
+end;
+
+procedure TDAJSONDataStreamer.DoFinalize;
+begin
+  if (AdapterInitialization in AdapterWriteModes) then begin
+    if (FDatasets <> nil) and (FDatasets.Count = 0) then 
+      FParser.AsObject.FindItem(pn_Datasets).Free;
+    if (FDeltas <> nil) and (FDeltas.Count = 0) then
+      FParser.AsObject.FindItem(pn_Deltas).Free;
+    FParser.SaveToStream(Data);
+  end;
+  ClearParser;
+end;
+
+procedure TDAJSONDataStreamer.DoInitialize(Mode: TDAAdapterInitialization);
+var
+  i : integer;
+  lobj: TROJSONObject;
+  lprop: TROJSONProperty;
+begin
+  ClearParser;
+  if (Mode in AdapterReadModes) then begin
+
+    FParser := JSON_ParseStream(Data);
+
+    if (FParser.ValueType = jdtObject) and  (FParser.AsObject <> nil) then begin
+      lprop := FParser.AsObject.FindItem(pn_Datasets);
+      if lProp <> nil then begin
+        FDatasets := lProp.ASArray;
+        if (FDatasets <> nil) then
+          for i := 0 to (FDatasets.Count-1) do begin
+            lobj:=FDatasets.Items[i].AsObject;
+            if (lobj <> nil) then begin
+              lprop:=lobj.FindItem(pn_Dataset_Name);
+              AddingDataset(lprop.AsString);
+            end;
+          end;
+      end;
+      lProp := FParser.AsObject.FindItem(pn_Deltas);
+      if lProp <> nil then begin
+        FDeltas := lProp.ASArray;
+        if (FDeltas <> nil) then
+          for i := 0 to (FDeltas.Count-1) do begin
+            lobj:=FDeltas.Items[i].AsObject;
+            if (lobj <> nil) then begin
+              lprop:=lobj.FindItem(pn_Delta_Name);
+              AddingDelta(lprop.AsString);
+            end;
+          end;
+      end;
+    end;
+  end
+  else if (Mode in AdapterWriteModes) then begin
+    FParser := TROJSONValue.Create(nil);
+    FParser.AsObject:= TROJSONObject.Create;
+    FDatasets := FParser.AsObject.AddArrayProperty(pn_Datasets).ASArray;
+    FDeltas   := FParser.AsObject.AddArrayProperty(pn_Deltas).ASArray;
+  end;
+end;
+
+procedure TDAJSONDataStreamer.DoReadDataset(const DatasetName: string;
+  const Destination: IDADataset; ApplySchema: boolean; AppendMode: Boolean);
+
+var
+  editable: IDAEditableDataset;
+  i, k: integer;
+  readonlyfields: array of boolean;
+  //
+  Realfldcount: integer;
+  info: array of TDASmallFieldInfo;
+  RealFields: array of integer;
+  lErrorMessage: String;
+  lErrorMesCnt: integer;
+  lFldList: TStringList;
+  lObject: TROJSONObject;
+  lArray: TROJSONArray;
+begin
+  if Destination.Active and ApplySchema then raise Exception.Create('Cannot apply a schema if the destination is active');
+
+  lErrorMessage := '';
+  lErrorMesCnt := 0;
+
+  editable := Destination as IDAEditableDataset;
+
+  Destination.DisableControls;
+  try
+    editable.DisableEventHandlers;
+    try
+      if ApplySchema then begin
+        // Checks to see if the schema is present
+        lObject:= GetDatasetObjectByPropName(DatasetName,pn_Dataset_Schema, False);
+        if (lObject <> nil) and ApplySchema then ReadSchema(lObject, Destination);
+        Exit;
+      end
+      else begin
+        lObject:= GetDatasetObjectByPropName(DatasetName,pn_Dataset_Data,False);
+        if (lObject = nil) then Exit; // Only schema is present!
+
+        if not Destination.Active then Destination.Open;
+        with editable do try
+          // if table is empty then process in standard mode
+          AppendMode := AppendMode and not (EOF and GetBOF);
+
+          // Temporarily sets all fields as writable
+          Destination.DisableConstraints;
+          lArray := lObject.ItemByName(pn_Dataset_Data_Fields).ASArray;
+
+          Realfldcount := lArray.Count;
+          SetLength(info, Realfldcount);
+          SetLength(RealFields, Realfldcount);
+          //Data.Read(pointer(info)^, Sizeof(TDASmallFieldInfo) * Realfldcount);
+          lFldList:=TStringList.Create;
+          try
+            lFldList.Sorted:=False;
+            lFldList.Duplicates:=dupIgnore;
+            For i:= 0 to Fields.Count-1 do
+              lFldList.AddObject(Fields[i].Name,Pointer(Fields[i].Index));
+            lFldList.Sorted:=True;
+
+            for i := 0 to Realfldcount - 1 do begin
+              info[i].Name :=  lArray[i].AsObject.GetStringValueByName(pn_Dataset_Data_Fields_name);
+              k:=lFldList.IndexOf(info[i].Name);
+              if k = -1 then begin
+                inc(lErrorMesCnt);
+                if lErrorMesCnt > 5 then begin
+                  lErrorMessage := lErrorMessage + '<skip>' + sLineBreak;
+                  break;
+                end
+                else begin
+                  lErrorMessage := lErrorMessage + Format('The %s field isn''t found.' + sLineBreak,[info[i].Name])
+                end;
+              end
+              else begin
+                RealFields[i]:= Integer(lFldList.Objects[k]);
+              end;
+            end;
+          finally
+            lFldList.Free;
+          end;
+          if (Length(lErrorMessage) > 0) then begin
+            lErrorMessage := 'Format of the data in the stream doesn''t match the destination table format.'+ #13#10 + #13#10 + lErrorMessage;
+            raise EDAException.Create(lErrorMessage);
+          end;
+
+          k := 0;
+          SetLength(readonlyfields, Fields.Count);
+          for i := 0 to (Fields.Count - 1) do begin
+            readonlyfields[i] := Fields[i].ReadOnly;
+            Fields[i].ReadOnly := FALSE;
+            if Fields[i].Calculated or Fields[i].Lookup then Continue;
+            //RealFields[k] := i;
+            if (k >= Realfldcount) then lErrorMessage := lErrorMessage + 'Fields count mismatch' + sLineBreak;
+            inc(k);
+          end;
+          try
+            if (k <> Realfldcount) then lErrorMessage := lErrorMessage + Format('Fields count mismatch: %d expected but %d found in the stream', [k, Realfldcount]) + sLineBreak;
+            if (Length(lErrorMessage) > 0) then begin
+              lErrorMessage := 'Format of the data in the stream doesn''t match the destination table format.'+ sLineBreak + sLineBreak + lErrorMessage;
+              raise EDAException.Create(lErrorMessage);
+            end;
+            // Inserts the records
+            try
+              lArray := lObject.ItemByName(pn_Dataset_Data_Rows).ASArray;
+              if lArray.Count > 0 then
+                InternalDoReadDataset( lArray, editable,RealFields,AppendMode);
+            except
+              raise;
+            end;
+          finally
+            // Restores the read-only property
+            for i := 0 to (Fields.Count - 1) do
+              Fields[i].ReadOnly := readonlyfields[i];
+          end;
+        finally
+          Destination.EnableConstraints;
+        end;
+      end;
+    finally
+      editable.EnableEventHandlers;
+    end;
+  finally
+    Destination.EnableControls;
+  end;
+end;
+
+procedure TDAJSONDataStreamer.DoReadDelta(const DeltaName: string;
+  const Destination: IDADelta);
+var
+  msg: JSON_String;
+  recid, i,  x: integer;
+  change: TDADeltaChange;
+  changetype: TDAChangeType;
+  status: TDAChangeStatus;
+
+  lDeltaObject: TROJSONObject;
+  lArray: TROJSONArray;
+  lArray2: TROJSONArray;
+  lObject: TROJSONObject;
+  lProgress: Boolean;
+  lTotal: Integer;
+  lOffset: Integer;
+begin
+  lDeltaObject:=GetDeltaObject(DeltaName,False);
+
+  // names and types
+  Destination.ClearFieldNames;
+  lArray := lDeltaObject.ItemByName(pn_Delta_LoggedFields).ASArray;
+  for i := 0 to lArray.Count-1 do begin
+    lObject:=lArray[i].AsObject;
+    Destination.AddFieldName(lObject.GetStringValueByName(pn_Delta_LoggedFields_Name), TDADataTypeStringsToTDADataType(lObject.GetStringValueByName(pn_Delta_LoggedFields_Type)));
+//    Destination.AddFieldName(lObject.GetStringValueByName(pn_Delta_LoggedFields_Name));
+//    Destination.LoggedFieldTypes[Destination.LoggedFieldCount - 1] := TDADataTypeStringsToTDADataType(lObject.GetStringValueByName(pn_Delta_LoggedFields_Type));
+  end;
+
+  // Key fields
+  Destination.ClearKeyFieldNames;
+  lArray := lDeltaObject.ItemByName(pn_Delta_KeyFields).ASArray;
+  for i := 0 to lArray.Count-1 do
+    Destination.AddKeyFieldName(lArray[i].AsString);
+
+
+
+  lArray:=lDeltaObject.ItemByName(pn_Delta_Data).ASArray;
+  lProgress := Assigned(OnReadDeltaProgress);
+  lTotal := lArray.Count;
+  for i := 0 to lArray.Count-1 do begin
+    lObject:= lArray[i].AsObject;
+    recid := lObject.GetNumberValueByName(pn_Delta_Data_RecID);
+    changetype := TDAChangeTypeStringsToTDAChangeType(lObject.GetStringValueByName(pn_Delta_Data_Changetype));
+    status := TDAChangeStatusStringsToTDAChangeStatus(lObject.GetStringValueByName(pn_Delta_Data_Status));
+    msg := lObject.GetStringValueByName(pn_Delta_Data_Message);
+    change := Destination.Add(recid, changetype, status, msg);
+
+
+    lArray2:=lObject.ItemByName(pn_Delta_Data_Old).ASArray;
+    for x := 0 to (Destination.LoggedFieldCount - 1) do
+      if lArray2[x].ValueType <> jdtNull then
+        case Destination.LoggedFieldTypes[x] of
+            datDateTime: change.OldValues[x] := SOAPDateTimeToDateTime(lArray2[x].AsString, lOffset);
+            datBlob: change.OldValues[x] := DecodeBlob({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(lArray2[x].AsString));
+            else change.OldValues[x] := lArray2[x].VarValue;
+        end
+      else change.OldValues[x] := lArray2[x].VarValue;
+
+
+    lArray2:=lObject.ItemByName(pn_Delta_Data_New).ASArray;
+    for x := 0 to (Destination.LoggedFieldCount - 1) do
+        if lArray2[x].ValueType <> jdtNull then
+            case Destination.LoggedFieldTypes[x] of
+                datDateTime: change.NewValues[x] := SOAPDateTimeToDateTime(lArray2[x].AsString, lOffset);
+                datBlob: change.NewValues[x] := DecodeBlob({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(lArray2[x].AsString));
+            else change.NewValues[x] := lArray2[x].VarValue;
+        end
+        else change.NewValues[x] := lArray2[x].VarValue;
+
+    if lProgress then OnReadDeltaProgress(Self, Destination, i, lTotal);
+  end;
+end;
+
+function TDAJSONDataStreamer.DoWriteDataset(const Source: IDADataset;
+  Options: TDAWriteOptions; MaxRows: integer;
+  ADynFieldNames: array of string): integer;
+var
+  lDataForAppend: TDADataForAppend;
+begin
+  lDataForAppend := DoBeginWriteDataset(Source, {schema}nil, Options, MaxRows, ADynFieldNames);
+  if woRows in Options then begin
+    DoWriteDatasetData(Source, lDataForAppend);
+    result := DoEndWriteDataset(lDataForAppend);
+  end
+  else begin
+    lDataForAppend.Free;
+    result := -1;
+  end;
+end;
+
+function TDAJSONDataStreamer.DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer;
+var
+  max, k, i, Realfldcnt: integer;
+  info: array of TDASmallFieldInfo;
+  RealFields: array of integer;
+  lDataForAppend: TDADataForAppendBin2;
+  lMapToFieldName: String;
+  lColumnMappings: TDAColumnMappingCollection;
+  lColumnMapping: TDAColumnMapping;
+begin
+  lDataForAppend := aDataForAppend as TDADataForAppendBin2;
+  Realfldcnt := Length(lDataForAppend.RealFields);
+  SetLength(info, Realfldcnt);
+  SetLength(RealFields, Realfldcnt);
+  for i := 0 to Realfldcnt - 1 do begin
+    info[i].Name := lDataForAppend.FieldsInfo[i].Name;
+    RealFields[i] := lDataForAppend.RealFields[i];
+  end;
+  max := lDataForAppend.MaxRowCount;
+  k := lDataForAppend.RecordCount;
+
+  // Mapping fields of Source table to the streamed dataset
+  if Assigned(lDataForAppend.TableSchema) and (lDataForAppend.TableSchema is TDAUnionDataTable) then begin
+    lColumnMappings := TDAUnionSourceTable(TDAUnionDataTable(lDataForAppend.TableSchema).SourceTables.ItemByName(Source.Name)).ColumnMappings;
+    for i := 0 to Realfldcnt - 1 do begin
+      if info[i].Name = def_SourceTableFieldName then begin
+        RealFields[i] := -10;
+        continue;
+      end;
+      lMapToFieldName := info[i].Name;
+      if Assigned(lColumnMappings) then begin
+        lColumnMapping := lColumnMappings.MappingByDatasetField(info[i].Name);
+        if Assigned(lColumnMapping) and (lColumnMapping.TableField <> '') then
+          lMapToFieldName := lColumnMapping.TableField;
+      end;
+      RealFields[i] := Source.FieldByName(lMapToFieldName).Index;
+    end;
+  end;
+
+  with Source do try
+    DisableControls;
+
+    if not Source.Active then Source.Open;
+    try
+      InternalDoWriteDataset(Source,k, max, RealFields, aDataIndex, info)
+    except
+      raise;
+    end;
+
+    lDataForAppend.RecordCount := k;
+  finally
+    EnableControls;
+    result := k;
+  end;
+end;
+
+procedure TDAJSONDataStreamer.DoWriteDelta(const Source: IDADelta);
+var
+  i, x: integer;
+  lDeltaObject: TROJSONObject;
+  lArray: TROJSONArray;
+  lArray2: TROJSONArray;
+  lObject: TROJSONObject;
+  lchange: TDADeltaChange;
+  lProgress: Boolean;
+  lTotal: integer;
+begin
+
+  // This information will be used later to complete the stream (see DoInitialize)
+  AddingDelta(Source.LogicalName);
+  Source.RemoveUnchangedChanges;
+  lDeltaObject:=GetDeltaObject(Source.LogicalName,True);
+
+  lArray:=lDeltaObject.AddArrayProperty(pn_Delta_LoggedFields).ASArray;
+  // field names and their types
+  for i := 0 to (Source.LoggedFieldCount - 1) do begin
+    lObject:=lArray.AddObject.AsObject;
+    lObject.AddStringProperty(pn_Delta_LoggedFields_Name, Source.LoggedFieldNames[i]);
+    lObject.AddStringProperty(pn_Delta_LoggedFields_Type, TDADataTypeStrings[Source.LoggedFieldTypes[i]]);
+  end;
+
+  lArray:=lDeltaObject.AddArrayProperty(pn_Delta_KeyFields).ASArray;
+  // Key fields
+  for i := 0 to (Source.KeyFieldCount - 1) do
+    lArray.AddStringValue(Source.KeyFieldNames[i]);
+
+  lArray := lDeltaObject.AddArrayProperty(pn_Delta_Data).ASArray;   
+  if (Source.Count = 0) then Exit;
+  lProgress := Assigned(OnWriteDeltaProgress);
+  lTotal := Source.Count;
+
+  for i := 0 to (Source.Count - 1) do begin
+    lObject:=lArray.AddObject.AsObject;
+    lchange :=Source.Changes[i];
+    lObject.AddNumberProperty(pn_Delta_Data_RecID,lchange.RecID);
+    lObject.AddStringProperty(pn_Delta_Data_Changetype,TDAChangeTypeStrings[lchange.ChangeType]);
+    lObject.AddStringProperty(pn_Delta_Data_Status,TDAChangeStatusStrings[lchange.Status]);
+    lObject.AddStringProperty(pn_Delta_Data_Message,lchange.Message);
+
+    // old
+    lArray2:=lObject.AddArrayProperty(pn_Delta_Data_Old).ASArray;
+    for x := 0 to (Source.LoggedFieldCount - 1) do
+      if not VarIsNull(Source.Changes[i].OldValues[x]) then
+        case Source.LoggedFieldTypes[x] of
+            datDateTime: lArray2.AddStringValue(DateTimeToSOAPDateTime(Source.Changes[i].OldValues[x]));
+            datBlob: lArray2.AddStringValue(VarToWideStr(EncodeBlob(Source.Changes[i].OldValues[x])));
+            datDecimal: lArray2.AddStringValue(EncodeDecimal(Source.Changes[i].OldValues[x]));
+            else lArray2.AddVariantValue(Source.Changes[i].OldValues[x]);
+        end
+      else lArray2.AddVariantValue(Source.Changes[i].OldValues[x]);
+
+    // new
+    lArray2:=lObject.AddArrayProperty(pn_Delta_Data_New).ASArray;
+    for x := 0 to (Source.LoggedFieldCount - 1) do
+      if not VarIsNull(Source.Changes[i].NewValues[x]) then
+        case Source.LoggedFieldTypes[x] of
+            datDateTime: lArray2.AddStringValue(DateTimeToSOAPDateTime(Source.Changes[i].NewValues[x]));
+            datBlob: lArray2.AddStringValue(VarToWideStr(EncodeBlob(Source.Changes[i].NewValues[x])));
+            datDecimal: lArray2.AddStringValue(EncodeDecimal(Source.Changes[i].NewValues[x]));
+            else lArray2.AddVariantValue(Source.Changes[i].NewValues[x]);
+        end
+        else lArray2.AddVariantValue(Source.Changes[i].NewValues[x]);
+
+    if lProgress then OnWriteDeltaProgress(Self, Source, i+1, lTotal);
+  end;
+end;
+
+procedure TDAJSONDataStreamer.ReadField(const AFieldObject: TROJSONObject;
+  const AField: TDAField);
+var
+  lProp: TROJSONProperty;
+begin
+  lProp := AFieldObject.FindItem('Alignment');
+  if lProp <> nil then AField.Alignment := TAlignmentStringsToTAlignment(lProp.AsString);
+  lProp := AFieldObject.FindItem('BlobType');
+  if lProp <> nil then AField.BlobType := TDABlobTypeStringsToTDABlobType(lProp.AsString);
+  lProp := AFieldObject.FindItem('BusinessClassID');
+  if lProp <> nil then AField.BusinessClassID := lProp.AsString;
+  lProp := AFieldObject.FindItem('Calculated');
+  if lProp <> nil then AField.Calculated := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('CustomAttributes');
+  if lProp <> nil then AField.CustomAttributes.Text :=  lProp.AsString;
+  lProp := AFieldObject.FindItem('DataType');
+  if lProp <> nil then AField.DataType := TDADataTypeStringsToTDADataType(lProp.AsString);
+  lProp := AFieldObject.FindItem('DecimalPrecision');
+  if lProp <> nil then AField.DecimalPrecision := lProp.AsNumber;
+  lProp := AFieldObject.FindItem('DecimalScale');
+  if lProp <> nil then AField.DecimalScale := lProp.AsNumber;
+  lProp := AFieldObject.FindItem('DefaultValue');
+  if lProp <> nil then AField.DefaultValue := lProp.AsString;
+  lProp := AFieldObject.FindItem('Description');
+  if lProp <> nil then AField.Description := lProp.AsString;
+  lProp := AFieldObject.FindItem('DictionaryEntry');
+  if lProp <> nil then AField.DictionaryEntry := lProp.AsString;
+  lProp := AFieldObject.FindItem('DisplayFormat');
+  if lProp <> nil then AField.DisplayFormat := lProp.AsString;
+  lProp := AFieldObject.FindItem('DisplayLabel');
+  if lProp <> nil then AField.DisplayLabel := lProp.AsString;
+  lProp := AFieldObject.FindItem('DisplayWidth');
+  if lProp <> nil then AField.DisplayWidth := lProp.AsNumber;
+  lProp := AFieldObject.FindItem('EditFormat');
+  if lProp <> nil then AField.EditFormat := lProp.AsString;
+  lProp := AFieldObject.FindItem('EditMask');
+  if lProp <> nil then AField.EditMask := lProp.AsString;
+  lProp := AFieldObject.FindItem('Expression');
+  if lProp <> nil then AField.Expression := lProp.AsString;
+  lProp := AFieldObject.FindItem('GeneratorName');
+  if lProp <> nil then AField.GeneratorName := lProp.AsString;
+  lProp := AFieldObject.FindItem('InPrimaryKey');
+  if lProp <> nil then AField.InPrimaryKey := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('KeyFields');
+  if lProp <> nil then AField.KeyFields := lProp.AsString;
+  lProp := AFieldObject.FindItem('LogChanges');
+  if lProp <> nil then AField.LogChanges := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('Lookup');
+  if lProp <> nil then AField.Lookup := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('LookupCache');
+  if lProp <> nil then AField.LookupCache := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('LookupKeyFields');
+  if lProp <> nil then AField.LookupKeyFields := lProp.AsString;
+  lProp := AFieldObject.FindItem('LookupResultField');
+  if lProp <> nil then AField.LookupResultField := lProp.AsString;
+//  lProp := AFieldObject.FindItem('LookupSource');
+//  if lProp <> nil then AField.LookupSource := nil;
+  lProp := AFieldObject.FindItem('Name');
+  if lProp <> nil then AField.Name := lProp.AsString;
+  lProp := AFieldObject.FindItem('ReadOnly');
+  if lProp <> nil then AField.ReadOnly := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('RegExpression');
+  if lProp <> nil then AField.RegExpression := lProp.AsString;
+  lProp := AFieldObject.FindItem('Required');
+  if lProp <> nil then AField.Required := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('ServerAutoRefresh');
+  if lProp <> nil then AField.ServerAutoRefresh := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('ServerCalculated');
+  if lProp <> nil then AField.ServerCalculated := lProp.AsBoolean;
+  lProp := AFieldObject.FindItem('Size');
+  if lProp <> nil then AField.Size := lProp.AsNumber;
+  lProp := AFieldObject.FindItem('Visible');
+  if lProp <> nil then AField.Visible := lProp.AsBoolean;
+end;
+
+procedure TDAJSONDataStreamer.ReadParam(const AParamObject: TROJSONObject;
+  const AParam: TDAParam);
+var
+  lProp: TROJSONProperty;
+begin
+  lProp := AParamObject.FindItem('AsWideString');
+  if lProp <> nil then AParam.AsWideString := lProp.AsString;
+  lProp := AParamObject.FindItem('BlobType');
+  if lProp <> nil then AParam.BlobType := TDABlobTypeStringsToTDABlobType(lProp.AsString);
+  lProp := AParamObject.FindItem('DataType');
+  if lProp <> nil then AParam.DataType := TDADataTypeStringsToTDADataType(lProp.AsString);
+  lProp := AParamObject.FindItem('DecimalPrecision');
+  if lProp <> nil then AParam.DecimalPrecision := lProp.AsNumber;
+  lProp := AParamObject.FindItem('DecimalScale');
+  if lProp <> nil then AParam.DecimalScale := lProp.AsNumber;
+  lProp := AParamObject.FindItem('Description');
+  if lProp <> nil then AParam.Description := lProp.AsString;
+  lProp := AParamObject.FindItem('GeneratorName');
+  if lProp <> nil then AParam.GeneratorName := lProp.AsString;
+  lProp := AParamObject.FindItem('Name');
+  if lProp <> nil then AParam.Name := lProp.AsString;
+  lProp := AParamObject.FindItem('ParamType');
+  if lProp <> nil then AParam.ParamType :=  TDAParamTypeStringsToTDAParamType(lProp.AsString);
+  lProp := AParamObject.FindItem('Size');
+  if lProp <> nil then AParam.Size := lProp.AsNumber;
+  lProp := AParamObject.FindItem('Value');
+  if lProp <> nil then begin
+    case lProp.ValueType of
+      jdtString: AParam.Value := lProp.AsString;
+      jdtNumber: AParam.Value := lProp.AsNumber;
+      jdtBoolean: AParam.Value := lProp.AsBoolean;
+    else
+      AParam.Value := Null;
+    end;
+  end;
+end;
+
+procedure TDAJSONDataStreamer.ReadSchema(
+  const ASchemaObject: TROJSONObject; const Destination: IDADataset);
+var
+  i: integer;
+  lFields, lParams : TROJSONArray;
+begin
+  Destination.Fields.Clear;
+  lFields:= ASchemaObject.GetArrayItemByName(pn_Dataset_Schema_Fields,False);
+  if lFields <> nil then
+    for i := 0 to lFields.Count-1 do
+      ReadField(lFields.Items[i].AsObject,Destination.Fields.Add);
+
+  Destination.Params.Clear;
+  lParams:= ASchemaObject.GetArrayItemByName(pn_Dataset_Schema_Params,False);
+  if lParams <> nil then
+    for i := 0 to lParams.Count - 1 do
+      ReadParam(lParams.Items[i].AsObject, Destination.Params.Add);
+end;
+
+procedure TDAJSONDataStreamer.WriteField(const AFieldObject: TROJSONObject;
+  const AField: TDAField);
+begin
+  //same as in bin2
+  AFieldObject.AddStringProperty('Alignment', TAlignmentStrings[AField.Alignment]);
+  AFieldObject.AddStringProperty('BlobType', TDABlobTypeStrings[AField.BlobType]);
+  AFieldObject.AddStringProperty('BusinessClassID', AField.BusinessClassID);
+  AFieldObject.AddBooleanProperty('Calculated', AField.Calculated);
+  AFieldObject.AddStringProperty('CustomAttributes', AField.CustomAttributes.Text);
+  AFieldObject.AddStringProperty('DataType', TDADataTypeStrings[AField.DataType]);
+  AFieldObject.AddNumberProperty('DecimalPrecision', AField.DecimalPrecision);
+  AFieldObject.AddNumberProperty('DecimalScale', AField.DecimalScale);
+  AFieldObject.AddStringProperty('DefaultValue', AField.DefaultValue);
+  AFieldObject.AddStringProperty('Description', AField.Description);
+  AFieldObject.AddStringProperty('DictionaryEntry', AField.DictionaryEntry);
+  AFieldObject.AddStringProperty('DisplayFormat', AField.DisplayFormat);
+  AFieldObject.AddStringProperty('DisplayLabel', AField.DisplayLabel);
+  AFieldObject.AddNumberProperty('DisplayWidth', AField.DisplayWidth);
+  AFieldObject.AddStringProperty('EditFormat', AField.EditFormat);
+  AFieldObject.AddStringProperty('EditMask', AField.EditMask);
+  AFieldObject.AddStringProperty('Expression', AField.Expression);
+  AFieldObject.AddStringProperty('GeneratorName', AField.GeneratorName);
+  AFieldObject.AddBooleanProperty('InPrimaryKey', AField.InPrimaryKey);
+  AFieldObject.AddStringProperty('KeyFields', AField.KeyFields);
+  AFieldObject.AddBooleanProperty('LogChanges',AField.LogChanges);
+  AFieldObject.AddBooleanProperty('Lookup', AField.Lookup);
+  AFieldObject.AddBooleanProperty('LookupCache',AField.LookupCache);
+  AFieldObject.AddStringProperty('LookupKeyFields', AField.LookupKeyFields);
+  AFieldObject.AddStringProperty('LookupResultField', AField.LookupResultField);
+  AFieldObject.AddStringProperty('LookupSource','');
+  AFieldObject.AddStringProperty('Name',AField.Name);
+  AFieldObject.AddBooleanProperty('ReadOnly', AField.ReadOnly);
+  AFieldObject.AddStringProperty('RegExpression', AField.RegExpression);
+  AFieldObject.AddBooleanProperty('Required', AField.Required);
+  AFieldObject.AddBooleanProperty('ServerAutoRefresh', AField.ServerAutoRefresh);
+  AFieldObject.AddBooleanProperty('ServerCalculated', AField.ServerCalculated);
+  AFieldObject.AddNumberProperty('Size', AField.Size);
+  AFieldObject.AddBooleanProperty('Visible', AField.Visible);
+end;
+
+procedure TDAJSONDataStreamer.WriteParam(const AParamObject: TROJSONObject;
+  const AParam: TDAParam);
+begin
+  //same as in bin2
+  AParamObject.AddStringProperty('AsWideString', AParam.AsWideString);
+  AParamObject.AddStringProperty('BlobType', TDABlobTypeStrings[AParam.BlobType]);
+  AParamObject.AddStringProperty('DataType', TDADataTypeStrings[AParam.DataType]);
+  AParamObject.AddNumberProperty('DecimalPrecision', AParam.DecimalPrecision);
+  AParamObject.AddNumberProperty('DecimalScale', AParam.DecimalScale);
+  AParamObject.AddStringProperty('Description', AParam.Description);
+  AParamObject.AddStringProperty('GeneratorName', AParam.GeneratorName);
+  AParamObject.AddStringProperty('Name',AParam.Name);
+  AParamObject.AddStringProperty('ParamType', TDAParamTypeStrings[AParam.ParamType]);
+  AParamObject.AddNumberProperty('Size', AParam.Size);
+
+
+       if VarIsStr(AParam.Value) then AParamObject.AddStringProperty('Value', AParam.Value)
+  else if TVarData(AParam.Value).VType = varBoolean then AParamObject.AddBooleanProperty('Value', AParam.Value)
+  else if VarIsNumeric(AParam.Value) then AParamObject.AddNumberProperty('Value', AParam.Value)
+  else AParamObject.AddNullProperty('Value');
+end;
+
+procedure TDAJSONDataStreamer.WriteSchema(const ASchemaObject: TROJSONObject;
+  const Fields: TDAFieldCollection; const Params: TDAParamCollection;
+  aFieldsIndex: array of integer);
+var
+  i: integer;
+  lFields, lParams : TROJSONArray;
+begin
+  if Length(aFieldsIndex) >0 then begin
+    lFields := ASchemaObject.AddArrayProperty(pn_Dataset_Schema_Fields).ASArray;
+    for i := 0 to High(aFieldsIndex) do
+      WriteField(lFields.AddObject.AsObject, Fields[aFieldsIndex[i]]);
+  end;
+
+  if Params.Count >0 then begin
+    lParams := ASchemaObject.AddArrayProperty(pn_Dataset_Schema_Params).ASArray;
+    for i := 0 to Params.Count - 1 do
+      WriteParam(lParams.AddObject.AsObject,Params[i]);
+  end;
+end;
+
+function TDAJSONDataStreamer.GetDatasetObject(const ADatasetName: JSON_String;
+  const ACreate: Boolean): TROJSONObject;
+begin
+  Result := FDatasets.FindObjectByStringValue(pn_Dataset_Name, ADatasetName);
+  if (Result = nil) then begin
+    if ACreate then begin
+      Result := FDatasets.AddObject.AsObject;
+      Result.AddStringProperty(pn_Dataset_Name,ADatasetName);
+    end
+    else begin
+      raise EDAException.Create('Cannot find dataset '+ADatasetName);
+    end;
+  end;
+end;
+
+procedure TDAJSONDataStreamer.InternalDoReadDataset(
+  const ARowsArray: TROJSONArray; const Destination: IDAEditableDataset;
+  ARealFields: array of integer;AppendMode: Boolean);
+
+var
+  lPK: string;                     //for append mode
+  lPKValues: array of variant;     //for append mode
+  lOnePK:Boolean;                  //for append mode
+
+  function Dataset_Locate(): boolean;
+  begin
+    if lOnePK then
+      Result:= Destination.Locate(lPK,lPKValues[0],[])
+    else
+      Result:= Destination.Locate(lPK,lPKValues,[]);
+  end;
+
+var
+  j: integer;
+  ev: boolean;
+  val: Variant;
+  flds: TDAFieldArray;           // flds in stream
+  i: integer;
+  Realfldcount: integer;
+  lRow : TROJSONArray;
+  lProgress: Boolean;
+  lTotal: integer;
+  lFldValues: array of Variant;  // flds values for append mode
+  lPKFlds: TDAFieldArray;        // PK flds (Append mode)
+  lOffset: integer;
+begin
+  Realfldcount := Length(ARealFields);
+  setLength(flds, Realfldcount);
+  For i:= 0 to Realfldcount-1 do
+    flds[i] := Destination.Fields[ARealFields[i]];
+  ev := Assigned(OnReadFieldValue);
+  lProgress := Assigned(OnReadDatasetProgress);
+  lTotal := ARowsArray.Count;
+
+  lPK := Dataset_GetPK(flds, lPKFlds);
+  lOnePK := Length(lPKFlds) = 1;
+  AppendMode := AppendMode and (Length(lPKFlds)>0);
+  if AppendMode then begin
+    SetLength(lFldValues, Length(flds));
+    SetLength(lPKValues, Length(lPKFlds));
+  end;
+
+  for j:= 0 to ARowsArray.Count -1 do begin
+    lRow := ARowsArray[j].ASArray;
+    Destination.Append;
+    for i := 0 to Realfldcount - 1 do begin
+      val := lRow[i].VarValue;
+      if ev then OnReadFieldValue(flds[i], val);
+      if not VarIsNull(val) then
+        case flds[i].DataType of
+          datDecimal: flds[i].AsDecimal := VariantToBCD(val);
+          datDateTime: flds[i].AsDateTime := SOAPDateTimeToDateTime(val, lOffset);
+          datBlob:
+              case VarType(val) of
+                varString, varOleStr, varUString: flds[i].Value := DecodeBlob({$IFDEF UNICODE}VarToAnsiStr{$ENDIF}(val));
+              else
+                flds[i].Value := val;
+              end;
+          else flds[i].Value := val;
+        end;
+    end;
+    if AppendMode  then begin
+      // store values and avoid firing OnReadFieldValue event
+      for I := 0 to Length(Flds) - 1 do
+        lFldValues[i]:= Flds[i].Value;
+      // store PK values for locate
+      for I := 0 to Length(lPKFlds) - 1 do
+        lPKValues[i]:= lPKFlds[i].Value;
+
+      Destination.Cancel;
+      if Dataset_Locate then
+        Destination.Edit
+      else
+        Destination.Append;
+      // assign new values
+      for I := 0 to Length(Flds) - 1 do
+        Flds[i].Value := lFldValues[i];
+    end;
+
+    try
+      Destination.Post;
+    except
+      // Introduced to restore the dsBrowse state of the datatable
+      // in case of errors
+      Destination.Cancel;
+      raise;
+    end;
+    if lProgress then OnReadDatasetProgress(Self, Destination, j, lTotal);
+  end;
+end;
+
+procedure TDAJSONDataStreamer.InternalDoWriteDataset(
+  const Source: IDADataset; var k: integer; const Maxrecords: integer;
+  ARealFields: array of integer; aDataIndex: Integer;
+  info: array of TDASmallFieldInfo);
+var
+  ev1, ev2,ev3: boolean;
+  BitMask: Ansistring;
+  BitMaskSize: integer;
+  i : integer;
+  Realfldcnt: integer;
+  flds: array of TDAField;
+  val: Variant;
+  lRowsArray: TROJSONArray;
+  lCurrentRow: TROJSONArray;
+  lProgress: Boolean;
+begin
+  lRowsArray := GetDataArraysByPropName(Source.LogicalName,pn_Dataset_Data_Rows,True);
+
+  Realfldcnt:= Length(ARealFields);
+  BitMaskSize := (Realfldcnt + 7) div 8;
+  SetLength(BitMask, BitMaskSize);
+  SetLength(flds,Realfldcnt);
+  for i := 0 to Realfldcnt-1 do begin
+    if ARealFields[i] = -10 then
+      flds[i]:=nil
+    else
+      flds[i]:=Source.Fields[ARealFields[i]];
+  end;
+  ev1 := Assigned(OnBeforeFieldValueSerialization);
+  ev2 := Assigned(OnWriteFieldValue);
+  ev3 := Assigned(OnWriteFieldValueEx);
+  lProgress := Assigned(onWriteDatasetProgress);
+  // with events
+  while (k <> Maxrecords) and not Source.EOF do begin
+    lCurrentRow := lRowsArray.AddArrayValue.ASArray;
+    for i := 0 to (Realfldcnt - 1) do begin
+      //ARealFields[i] = -10 then this is @SourceTable field
+      if ARealFields[i] = -10 then begin
+        //We shouldn't fire events since this is special internal field
+        val := aDataIndex;
+      end else begin
+        val := Source.FieldValues[ARealFields[i]];
+        if ev1 then OnBeforeFieldValueSerialization(flds[i], val);
+        if ev2 then OnWriteFieldValue(flds[i], val);
+        if ev3 then OnWriteFieldValueEx(Source, flds[i], val);
+      end;
+
+      if VarIsNull(Val) then
+        lCurrentRow.AddNullValue
+      else
+        case flds[i].DataType of
+          datDateTime: lCurrentRow.Add.AsString := DateTimeToSOAPDateTime(val); // DateTime in SOAP format
+          datDecimal:  lCurrentRow.Add.AsString := EncodeDecimal(val);
+          datBlob:     lCurrentRow.Add.VarValue := EncodeBlob(val); // BLOB as Base64-encoded string
+        else
+          lCurrentRow.Add.VarValue := val;
+        end;
+
+    end;
+    Inc(k);
+    if lProgress then OnWriteDatasetProgress(Self, Source, k, Maxrecords);
+    Source.Next;
+    if Source.EOF then Break;
+  end;
+end;
+
+function TDAJSONDataStreamer.GetDataArraysByPropName(const ADatasetName,
+  AObjectName: JSON_String; const ACreate: Boolean): TROJSONArray;
+var
+  lProp: TROJSONProperty;
+  lobj: TROJSONObject;
+begin
+  Result := nil;
+  lobj := GetDatasetObjectByPropName(ADatasetName,pn_Dataset_Data,ACreate);
+  lProp := lobj.FindItem(AObjectName);
+  if (lProp = nil) then begin
+    if ACreate then
+      lProp := lobj.AddArrayProperty(AObjectName)
+    else
+      Exit;
+  end;
+  Result := lProp.ASArray;
+end;
+
+function TDAJSONDataStreamer.GetDeltaObject(
+  const ADeltaName: JSON_String; const ACreate: Boolean): TROJSONObject;
+begin
+  Result := FDeltas.FindObjectByStringValue(pn_Delta_Name, ADeltaName);
+  if (Result = nil) then begin
+    if ACreate then begin
+      Result := FDeltas.AddObject.AsObject;
+      Result.AddStringProperty(pn_Delta_Name,ADeltaName);
+    end
+    else begin
+      raise EDAException.Create('Cannot find delta '+ADeltaName);
+    end;
+  end;
+end;
+
+function TDAJSONDataStreamer.GetTargetDataType: TRODataType;
+begin
+  Result := rtXML;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAKDBInfo.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAKDBInfo.pas
new file mode 100644
index 0000000..c0f4ef0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAKDBInfo.pas	
@@ -0,0 +1,325 @@
+unit uDAKDBInfo;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes,
+  kdbInfo, kdbstruc,
+  uDAInterfaces, uDAClasses;
+
+type
+  TDAKDBConnectionInfo = class(TKDBInfo)
+  private
+    fConnection: IDAConnection;
+    fDatabaseName: string;
+    procedure AddGroupWithFields(aStructure: TKDBStructure; aTable: TDSTable);
+  protected
+    procedure TablesByDatabase(TablesList : TStrings); override;
+    procedure FieldsByTable(const TableName : string; FieldsList : TDBFieldList); override;
+    procedure AvailableDatabases(DBList : TStrings); override; //NEW: replacement for GetDatabaseNames
+  public
+    property Connection: IDAConnection read fConnection write fConnection;
+    property DatabaseName: string read fDatabaseName write fDatabaseName;
+
+    procedure GetSQLValues(SQL : String; AValues,AItems : TStrings); override;
+
+    procedure FillStructure(aStructure: TKDBStructure);
+  end;
+
+  TDAKDBSchemaInfo = class(TKDBInfo)
+  private
+    fSchema: TDASchema;
+    fDatabaseName: string;
+    procedure AddGroupWithFields(aStructure: TKDBStructure; aTable: TDSTable);
+    procedure SetSchema(const Value: TDASchema);
+  protected
+    procedure TablesByDatabase(TablesList : TStrings); override;
+    procedure FieldsByTable(const TableName : string; FieldsList : TDBFieldList); override;
+    procedure AvailableDatabases(DBList : TStrings); override; //NEW: replacement for GetDatabaseNames
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  public
+    property Schema: TDASchema read fSchema write SetSchema;
+    property DatabaseName: string read fDatabaseName write fDatabaseName;
+
+    procedure GetSQLValues(SQL : String; AValues,AItems : TStrings); override;
+
+    procedure FillStructure(aStructure: TKDBStructure);
+  end;
+
+implementation
+
+uses
+  uROClasses, sqglobal, SysUtils, Math;
+
+{ TDAKDBConnectionInfo }
+
+procedure TDAKDBConnectionInfo.FieldsByTable(const TableName: string; FieldsList: TDBFieldList);
+var
+  lNewField: TDBFieldInfo;
+  i: Integer;
+  lFields: TDAFieldCollection;
+begin
+  inherited;
+  fConnection.GetTableFields(TableName, lFields);
+  FieldsList.Clear();
+  for i := 0 to lFields.Count-1 do begin
+    lNewField := TDBFieldInfo.Create();
+    lNewField.FieldName := lFields[i].Name;
+    lNewField.FieldSize := lFields[i].Size;
+    lNewField.FieldType := DATypeToVCLType(lFields[i].DataType);
+    FieldsList.Add(lNewField);
+  end; { for }
+end;
+
+
+procedure TDAKDBConnectionInfo.AvailableDatabases(DBList : TStrings);
+  //NEW: previously realization of GetDatabaseNames, name Alist replaced with DBList
+begin
+  inherited;
+  DBList.Clear();
+  DBList.Add(DatabaseName);
+end;
+
+procedure TDAKDBConnectionInfo.GetSQLValues(SQL: String; AValues, AItems: TStrings);
+begin
+  inherited;
+
+end;
+
+procedure TDAKDBConnectionInfo.TablesByDatabase(TablesList: TStrings);
+var
+  lROStrings: IROStrings;
+begin
+  inherited;
+  fConnection.GetTableNames(lROStrings);
+  TablesList.Clear();
+  TablesList.Text := lROStrings.Text;
+end;
+
+
+
+
+
+
+procedure TDAKDBConnectionInfo.AddGroupWithFields(aStructure: TKDBStructure; aTable: TDSTable);
+var
+  G : TDSFieldGroup;
+  //LastRootNode, GroupNode : TTreeNode;
+  I,Idx : integer;
+  TblFields : TStrings;
+begin
+  TblFields := TStringList.Create;
+  try
+    G := TDSFieldGroup.Create(aStructure);
+    G.GroupName := ATable.TableName;
+    aStructure.FieldGroups.Add(G);
+    //FillGroupsCombo;
+
+    {LastRootNode := nil;
+    if not chbRootFirst.Checked then
+    begin
+      for I := tvFields.Items.Count - 1 downto 0 do
+        if tvFields.Items[I].Parent <> nil then
+        begin
+          if I <> tvFields.Items.Count - 1 then
+            LastRootNode := tvFields.Items[I + 1];
+          break;
+        end;
+    end;}
+
+    {if LastRootNode = nil then
+      GroupNode := tvFields.Items.AddObject(nil, G.GroupName, G)
+    else
+      GroupNode := tvFields.Items.InsertObject(LastRootNode, G.GroupName, G);}
+
+//    ShowField(tvFields);
+
+    aStructure.DatabaseInfo.GetFieldNamesByTable(aTable.TableName, TblFields);
+
+    for I := 0 to TblFields.Count - 1 do
+    begin
+      Idx := aStructure.AddField(kfkData, TblFields[I], aTable.TableName+'.'+TblFields[I], ATable);
+      aStructure.Fields[Idx].AddAppliedOperators;
+      aStructure.Fields[Idx].Group := G;
+      //AddFieldNodeTo(GroupNode, aStructure.Fields[Idx]);
+    end;
+
+  finally
+    TblFields.Free;
+  end;
+end;
+
+procedure TDAKDBConnectionInfo.FillStructure(aStructure: TKDBStructure);
+var
+  lLink: TDSLink;
+  lFKs: TDADriverForeignKeyCollection;
+  i: Integer;
+  sl: TStringList;
+  lTable: integer;
+begin
+  sl := TStringList.Create();
+  try
+
+    aStructure.ClearStructure();
+    aStructure.AddDefOperators(true);
+
+    GetTableNames(sl);
+    sl.Sort;
+    for i := 0 to (sl.Count-1) do begin
+      lTable := aStructure.AddTable(sl[i],sl[i]);
+      AddGroupWithFields(aStructure, aStructure.Tables[lTable]);
+    end;
+
+    Connection.GetForeignKeys(lFKs);
+    try
+      for i := 0 to lFKs.Count-1 do begin
+        lLink := TDSLink.Create();
+        lLink.Table1 := aStructure.TableByName(0, lFKs[i].FKTable);
+        lLink.Table2 := aStructure.TableByName(0, lFKs[i].PKTable);
+        lLink.Fields1.Text := lFKs[i].FKField;
+        lLink.Fields2.Text := lFKs[i].PKField;
+        aStructure.AddLinkByRef(lLink)
+      end;
+
+    finally
+      FreeAndNil(lFKs);
+    end;
+
+
+  finally
+    sl.Free();
+  end;
+
+end;
+
+{ TDAKDBSchemaInfo }
+
+procedure TDAKDBSchemaInfo.AddGroupWithFields(aStructure: TKDBStructure; aTable: TDSTable);
+begin
+
+end;
+
+procedure TDAKDBSchemaInfo.FieldsByTable(const TableName: string; FieldsList: TDBFieldList);
+var
+  lDataSet: TDADataSet;
+  lNewField: TDBFieldInfo;
+  i: Integer;
+begin
+  inherited;
+
+  lDataSet := Schema.Datasets.FindItem(TableName) as TDADataSet;
+  if not Assigned(lDataSet) then
+    RaiseError('DataSet %s not found in Schema',[TableName]);
+
+  FieldsList.Clear();
+  for i := 0 to lDataSet.Fields.Count-1 do begin
+    lNewField := TDBFieldInfo.Create();
+    lNewField.FieldName := lDataSet.Fields[i].Name;
+    lNewField.FieldSize := lDataSet.Fields[i].Size;
+    lNewField.FieldType := DATypeToVCLType(lDataSet.Fields[i].DataType);
+    FieldsList.Add(lNewField);
+  end; { for }
+end;
+
+procedure TDAKDBSchemaInfo.FillStructure(aStructure: TKDBStructure);
+var
+  lLink: TDSLink;
+  lFK: TDADatasetRelationship;
+  i: Integer;
+  sl: TStringList;
+  lTable: integer;
+begin
+
+  aStructure.ClearStructure();
+  aStructure.AddDefOperators(true);
+
+  sl := TStringList.Create();
+  try
+    GetTableNames(sl);
+    sl.Sort;
+    for i := 0 to (sl.Count-1) do begin
+      lTable := aStructure.AddTable(sl[i],sl[i]);
+      AddGroupWithFields(aStructure, aStructure.Tables[lTable]);
+    end;
+  finally
+    sl.Free();
+  end;
+
+  for i := 0 to Schema.Relationships.Count-1 do begin
+    lLink := TDSLink.Create();
+    lFK := Schema.Relationships[i];
+    lLink.Table1 := aStructure.TableByName(0, lFK.DetailDatasetName);
+    lLink.Table2 := aStructure.TableByName(0, lFK.MasterDatasetName);
+
+    //ToDo: add list
+    //lLink.Fields1.Text := lFK.DetailFields;
+    //lLink.Fields2.Text := lFK.MasterFields;
+    aStructure.AddLinkByRef(lLink)
+  end;
+
+end;
+
+procedure TDAKDBSchemaInfo.AvailableDatabases(DBList : TStrings);
+  //NEW: previously realization of GetDatabaseNames, name Alist replaced with DBList
+begin
+  inherited;
+  DBList.Clear();
+  DBList.Add(DatabaseName);
+end;
+
+procedure TDAKDBSchemaInfo.TablesByDatabase(TablesList: TStrings);
+var
+  i: Integer;
+begin
+  inherited;
+  TablesList.BeginUpdate();
+  try
+    TablesList.Clear();
+    for i := 0 to Schema.Datasets.Count-1 do begin
+      TablesList.Add(Schema.Datasets[i].Name);
+    end; { for }
+  finally
+    TablesList.EndUpdate();
+  end;
+end;
+
+procedure TDAKDBSchemaInfo.GetSQLValues(SQL: String; AValues,
+  AItems: TStrings);
+begin
+  inherited;
+
+end;
+
+procedure TDAKDBSchemaInfo.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if Operation <> opRemove then exit;
+  if AComponent = Schema then Schema := nil;
+end;
+
+procedure TDAKDBSchemaInfo.SetSchema(const Value: TDASchema);
+begin
+  if (fSchema <> Value) then begin
+    fSchema := Value;
+    if Assigned(fSchema) then fSchema.FreeNotification(self);
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalCommand.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalCommand.pas
new file mode 100644
index 0000000..1820dfc
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalCommand.pas	
@@ -0,0 +1,139 @@
+unit uDALocalCommand;
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Lazarus/FPC                                     }
+{ platform: Win32, Unux, Mac                                                 }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+uses
+  Classes,
+  uROClient,
+  DataAbstract4_Intf, uDALocalHelpers;
+type
+  { TDARemoteCommand }
+  TDALocalCommand = class(TROComponent)
+  private
+    fServiceInstance: IDataAbstractLocalServiceAccess;
+    fServiceName: string;
+    fServiceInstanceNeedsRelease: Boolean;
+    FSessionID: TGuid;
+    function GetServiceInstance: IDataAbstractLocalServiceAccess;
+    procedure SetServiceInstance(const Value: IDataAbstractLocalServiceAccess);
+    procedure SetServiceName(const Value: String);
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    function Execute(aCommandName: string): integer; overload;
+    function Execute(aCommandName: string; aInputParameters: DataParameterArray): integer; overload;
+    function Execute(aCommandName: string; aInputParameters: DataParameterArray; out aOutputParameters: DataParameterArray): integer; overload;
+    function Execute(aCommandName: string; aParamNames: array of string; aParamValues: array of variant): integer; overload;
+
+    property ServiceInstance: IDataAbstractLocalServiceAccess read GetServiceInstance write SetServiceInstance;
+    property SessionID: TGuid read FSessionID write fSessionID;
+  published
+    property ServiceName: String read fServiceName write SetServiceName;
+  end;
+
+implementation
+uses
+  uDAEngine;
+{ TDALocalCommand }
+
+procedure TDALocalCommand.Assign(Source: TPersistent);
+var
+  lSource: TDALocalCommand;
+begin
+  inherited;
+  if Source is TDALocalCommand then begin
+    lSource := TDALocalCommand(Source);
+
+    ServiceName := lSource.ServiceName;
+  end;
+end;
+
+destructor TDALocalCommand.Destroy;
+begin
+  ServiceInstance := nil;
+  inherited;
+end;
+
+function TDALocalCommand.Execute(aCommandName: string;
+  aInputParameters: DataParameterArray): integer;
+var
+  lOutputParameters: DataParameterArray;
+begin
+  Result := Self.Execute(aCommandName, aInputParameters, lOutputParameters);
+  lOutputParameters.Free;
+end;
+
+function TDALocalCommand.Execute(aCommandName: string;
+  aParamNames: array of string; aParamValues: array of variant): integer;
+var
+  i, idx: Integer;
+  lInputParameters: DataParameterArray;
+begin
+  lInputParameters := DataParameterArray.Create();
+  if (High(aParamNames) <> High(aParamValues)) then
+    raise EDAException.Create(Self.Name+': Error in parameters. Count of parameter values doesn''t correspond to count of parameters');
+
+  for i := Low(aParamNames) to High(aParamNames) do begin
+    idx := lInputParameters.Add(DataParameter.Create());
+    lInputParameters[idx].Name := UTF8Encode(aParamNames[i]);
+    lInputParameters[idx].Value := aParamValues[i];
+  end;
+  try
+    result := Self.Execute(aCommandName, lInputParameters);
+  finally
+    lInputParameters.Free;
+  end;
+end;
+
+function TDALocalCommand.Execute(aCommandName: string): integer;
+begin
+  Result := Execute(aCommandName,[],[]);
+end;
+
+function TDALocalCommand.Execute(aCommandName: string;
+  aInputParameters: DataParameterArray;
+  out aOutputParameters: DataParameterArray): integer;
+begin
+  Result := ServiceInstance.ExecuteCommandEx(aCommandName, aInputParameters, aOutputParameters);
+end;
+
+function TDALocalCommand.GetServiceInstance: IDataAbstractLocalServiceAccess;
+begin
+  if fServiceInstance <> nil then begin
+    Result := fServiceInstance;
+    Exit;
+  end;
+  result:= LocalServiceAccessHelper_Acquire(SessionID, ServiceName);
+  fServiceInstanceNeedsRelease := true;
+end;
+
+procedure TDALocalCommand.SetServiceInstance(
+  const Value: IDataAbstractLocalServiceAccess);
+begin
+  if Value <> fServiceInstance then begin
+    if (fServiceInstanceNeedsRelease) and (fServiceInstance <> nil) then begin
+      LocalServiceAccessHelper_Release(SessionID, ServiceName, fServiceInstance);
+    end;
+    fServiceInstance := value;
+    fServiceInstanceNeedsRelease := false;
+  end;
+end;
+
+procedure TDALocalCommand.SetServiceName(const Value: String);
+begin
+  fServiceName := Value;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalDataAdapter.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalDataAdapter.pas
new file mode 100644
index 0000000..9308331
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalDataAdapter.pas	
@@ -0,0 +1,794 @@
+unit uDALocalDataAdapter;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  SysUtils, Classes,
+  uROTypes, uROClasses,
+  uDAInterfaces, DataAbstract4_Intf, uDADelta, uDADataTable,
+  uDADataStreamer, uDADataAdapter, uDAClasses, uDALocalHelpers;
+
+type
+  TDALocalDataAdapter = class;
+
+  TDALDADatasetOperation = procedure(DataStreamer: TDALocalDataAdapter; const Datasetname: string; const Dataset: IDADataset) of object;
+  TDALDADataStreamerReadDatasetProgress = procedure(Sender: TDALocalDataAdapter; const aDataset: IDADataset; const aCurrent, aTotal: Integer) of object;
+  TDALDADataStreamerWriteDatasetProgress = procedure(Sender: TDALocalDataAdapter; const aDataset: IDADataset; const aCurrent, aMaxRecords: Integer) of object;
+
+
+  { TDALocalDataAdapter }
+  TDALocalDataAdapter = class(TDABaseDataAdapter)
+  private
+    fServiceInstance: IDataAbstractLocalServiceAccess;
+    fServiceName: string;
+    fServiceInstanceNeedsRelease: Boolean;
+    FSessionID: TGuid;
+    fOnBeforeFieldValueSerialization: TDAReadWriteFieldValue;
+    fOnReadFieldValue: TDAReadWriteFieldValue;
+    fOnWriteDataset: TDALDADatasetOperation;
+    fOnWriteFieldValueEx: TDAReadWriteFieldValueEx;
+    fOnWriteFieldValue: TDAReadWriteFieldValue;
+    fOnReadDatasetProgress: TDALDADataStreamerReadDatasetProgress;
+    fOnWriteDatasetProgress: TDALDADataStreamerWriteDatasetProgress;
+    function GetServiceInstance: IDataAbstractLocalServiceAccess;
+    procedure SetServiceInstance(value: IDataAbstractLocalServiceAccess);
+    procedure SetServiceName(value: string);
+    // stub for events
+    procedure DoWriteDataset(DataStreamer: TDADataStreamer; const Datasetname: string; const Dataset: IDADataset);
+    procedure DoReadDatasetProgress(Sender: TDADataStreamer; const aDataset: IDADataset; const aCurrent, aTotal: Integer);
+    procedure DoWriteDatasetProgress(Sender: TDADataStreamer; const aDataset: IDADataset; const aCurrent, aMaxRecords: Integer);
+    procedure AssignEvents(aDataStreamer: TDADataStreamer);
+  protected
+    function InternalFillSchema(var aStream: TROBinaryMemoryStream): TRODataType; override;
+    function InternalFillScripts(aTables: array of TDADataTable): UTF8String; override;
+    procedure InternalApplyUpdates(aTables, aTablesWithDetails: array of TDADataTable); override;
+    function InternalReadSchema: UTF8String;  override;
+    procedure InternalFill(aTableArray: array of TDADataTable; aArray: TableRequestInfoArray; const aIncludeSchema, aAppendMode: boolean; aSavedOptions: TDATableOptionsArray);override;
+  public
+    destructor Destroy; override;
+    property ServiceInstance: IDataAbstractLocalServiceAccess read GetServiceInstance write SetServiceInstance;
+    property SessionID: TGuid read FSessionID write fSessionID;
+  published
+    property ServiceName: String read fServiceName write SetServiceName;
+
+    property OnStreamerWriteDataset: TDALDADatasetOperation read fOnWriteDataset write fOnWriteDataset;
+    property OnStreamerReadFieldValue: TDAReadWriteFieldValue read fOnReadFieldValue write fOnReadFieldValue;
+    property OnStreamerWriteFieldValue: TDAReadWriteFieldValue read fOnWriteFieldValue write fOnWriteFieldValue;
+    property OnStreamerWriteFieldValueEx: TDAReadWriteFieldValueEx read fOnWriteFieldValueEx write fOnWriteFieldValueEx;
+    property OnStreamerBeforeFieldValueSerialization: TDAReadWriteFieldValue read fOnBeforeFieldValueSerialization write fOnBeforeFieldValueSerialization;
+    property OnStreamerReadDatasetProgress: TDALDADataStreamerReadDatasetProgress read fOnReadDatasetProgress write fOnReadDatasetProgress;
+    property OnStreamerWriteDatasetProgress: TDALDADataStreamerWriteDatasetProgress read fOnWriteDatasetProgress write fOnWriteDatasetProgress;
+  end;
+
+
+implementation
+uses
+  Variants, DB,FMTBcd,
+  uROBinaryHelpers,
+  uDAEngine;
+
+const
+    TDADataTypeStrings: array[Low(TDADataType)..High(TDADataType)] of AnsiString =
+                      ('datUnknown', 'datString', 'datDateTime', 'datFloat',
+                       'datCurrency', 'datAutoInc', 'datInteger', 'datLargeInt',
+                       'datBoolean', 'datMemo', 'datBlob', 'datWideString',
+                       'datWideMemo', 'datLargeAutoInc', 'datByte', 'datShortInt',
+                       'datWord', 'datSmallInt', 'datCardinal', 'datLargeUInt',
+                       'datGuid', 'datXml', 'datDecimal', 'datSingleFloat');
+type
+  TDASmallFieldInfo = record
+    Name: String;
+    Datatype: TDADataType;
+    Size: integer;
+  end;
+
+  TDADataForAppendBin2 = class(TDADataForAppend)
+  public
+    FieldsInfo: array of TDASmallFieldInfo;
+    CurrentDataTable : TDADataTable;
+    readonlyfields: array of boolean;
+
+    DestRealFields: array of integer;
+    Destflds: TDAFieldArray;
+
+    IncludeSchema: Boolean;
+    // for append mode
+    CurrentAppendMode: Boolean;
+    lPK: string;
+    lPKValues: array of variant;
+    lOnePK:Boolean;
+    lPKFlds: TDAFieldArray;        // PK flds (Append mode)
+    lFldValues: array of Variant;  // flds values for append mode
+
+    // MemDatasetBatchAdding
+    lBatchAdding: IDAMemDatasetBatchAdding;
+    lBatchAddingList: TList;
+  end;
+
+  TDALocalDataStreamer = class(TDADataStreamer)
+  private
+    fTables: array of TDADataTable;
+    fAppendMode: array of boolean;
+    fIncludeSchema: array of boolean;
+  protected
+    procedure DoReadDelta(const DeltaName: string; const Destination: IDADelta); override;
+    procedure DoWriteDelta(const Source: IDADelta); override;
+    procedure DoReadDataset(const DatasetName: string; const Destination: IDADataset; ApplySchema: boolean; AppendMode: Boolean); override;
+    function DoWriteDataset(const Source: IDADataset; Options: TDAWriteOptions; MaxRows: integer; ADynFieldNames: array of string): integer; override;
+    function DoBeginWriteDataset( const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend; override;
+    function DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer; override;
+    function DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer; override;
+    procedure InternalDoWriteDataset(const Source: IDADataset; aDataIndex: Integer; aDataForAppend: TDADataForAppendBin2);
+    procedure DoInitialize(Mode: TDAAdapterInitialization); override;
+    procedure DoFinalize; override;
+    function DoCreateStream: TStream; override;
+  public
+    constructor Create(aOwner: TComponent; aTables: array of TDADataTable; aSavedOptions: TDATableOptionsArray; aArray: TableRequestInfoArray); reintroduce;
+    destructor Destroy; override;
+    function GetTargetDataType: TRODataType; override;
+  end;
+
+{ TDALocalDataAdapter }
+
+
+procedure TDALocalDataAdapter.AssignEvents(aDataStreamer: TDADataStreamer);
+begin
+  aDataStreamer.OnBeforeFieldValueSerialization := fOnBeforeFieldValueSerialization;
+  aDataStreamer.OnReadFieldValue := fOnReadFieldValue;
+  aDataStreamer.OnWriteFieldValue := fOnWriteFieldValue;
+  aDataStreamer.OnWriteFieldValueEx := fOnWriteFieldValueEx;
+  if Assigned(fOnWriteDataset) then aDataStreamer.OnWriteDataset := DoWriteDataset;
+  if Assigned(fOnReadDatasetProgress) then aDataStreamer.OnReadDatasetProgress := DoReadDatasetProgress;
+  if Assigned(fOnWriteDatasetProgress) then aDataStreamer.OnWriteDatasetProgress := DoWriteDatasetProgress;
+end;
+
+destructor TDALocalDataAdapter.Destroy;
+begin
+  ServiceInstance := nil;
+  inherited;
+end;
+
+procedure TDALocalDataAdapter.DoReadDatasetProgress(Sender: TDADataStreamer;
+  const aDataset: IDADataset; const aCurrent, aTotal: Integer);
+begin
+  if Assigned(fOnReadDatasetProgress) then fOnReadDatasetProgress(Self,aDataset, aCurrent, aTotal);
+end;
+
+procedure TDALocalDataAdapter.DoWriteDataset(DataStreamer: TDADataStreamer;
+  const Datasetname: string; const Dataset: IDADataset);
+begin
+  if Assigned(fOnWriteDataset) then fOnWriteDataset(Self, Datasetname, Dataset);
+end;
+
+procedure TDALocalDataAdapter.DoWriteDatasetProgress(Sender: TDADataStreamer;
+  const aDataset: IDADataset; const aCurrent, aMaxRecords: Integer);
+begin
+  if Assigned(fOnWriteDatasetProgress) then fOnWriteDatasetProgress(Self,aDataset, aCurrent, aMaxRecords);
+end;
+
+function TDALocalDataAdapter.GetServiceInstance: IDataAbstractLocalServiceAccess;
+begin
+  if fServiceInstance <> nil then begin
+    Result := fServiceInstance;
+    Exit;
+  end;
+  if csDesigning in ComponentState then
+    if ServiceName = '' then raise Exception.Create('For data adapter ServiceName must be set.')
+    else raise Exception.Create('Service "' + ServiceName + '" for data adapter isn''t found.');
+  result:= LocalServiceAccessHelper_Acquire(SessionID, ServiceName);
+  fServiceInstanceNeedsRelease := true;
+end;
+
+procedure TDALocalDataAdapter.InternalApplyUpdates(aTables,aTablesWithDetails: array of TDADataTable);
+var
+  aList: IDeltaArray;
+  i: integer;
+begin
+  SetLength(aList, Length(aTablesWithDetails));
+  try
+    for I := 0 to Length(aTablesWithDetails) - 1 do
+      aList[i] := aTablesWithDetails[i].Delta;
+    ServiceInstance.UpdateData(aList);
+  finally
+    SetLength(aList, 0);
+  end;
+end;
+
+procedure TDALocalDataAdapter.InternalFill(aTableArray: array of TDADataTable;
+  aArray: TableRequestInfoArray; const aIncludeSchema, aAppendMode: boolean;
+  aSavedOptions: TDATableOptionsArray);
+var
+  lArray : StringArray;
+  i: integer;
+  lDataStreamer :TDALocalDataStreamer;
+begin
+  lDataStreamer := TDALocalDataStreamer.Create(Self, aTableArray, aSavedOptions,aArray);
+  lArray := StringArray.Create();
+  try
+    AssignEvents(lDataStreamer);
+    lArray.Resize(Length(aTableArray));
+    for i := Low(aTableArray) to High(aTableArray) do
+      lArray[i-Low(aTableArray)] := UTF8Encode(aTableArray[i].LogicalName);
+    ServiceInstance.GetData(lArray, aArray, lDataStreamer);
+  finally
+    lArray.Free;
+    lDataStreamer.Free;
+  end;
+end;
+
+function TDALocalDataAdapter.InternalFillSchema(var aStream: TROBinaryMemoryStream): TRODataType;
+begin
+  Result := rtString;
+  Schema;
+end;
+
+function TDALocalDataAdapter.InternalFillScripts(
+  aTables: array of TDADataTable): UTF8String;
+begin
+  Result := ServiceInstance.GetDatasetScripts(GetTableNamesAsCommaText(aTables));
+end;
+
+function TDALocalDataAdapter.InternalReadSchema: UTF8String;
+begin
+  Result := ServiceInstance.GetSchema('');
+end;
+
+procedure TDALocalDataAdapter.SetServiceInstance(
+  Value: IDataAbstractLocalServiceAccess);
+begin
+  if Value <> fServiceInstance then begin
+    if (fServiceInstanceNeedsRelease) and (fServiceInstance <> nil) then begin
+      LocalServiceAccessHelper_Release(SessionID, ServiceName, fServiceInstance);
+    end;
+    fServiceInstance := value;
+    fServiceInstanceNeedsRelease := false;
+  end;
+end;
+
+procedure TDALocalDataAdapter.SetServiceName(value: string);
+begin
+  ServiceInstance := nil;
+  fServiceName := value;
+end;
+
+constructor TDALocalDataStreamer.Create(aOwner: TComponent; aTables: array of TDADataTable; aSavedOptions: TDATableOptionsArray; aArray: TableRequestInfoArray);
+var
+  i: integer;
+begin
+  inherited Create(aOwner);
+  SetLength(fTables, Length(aTables));
+  SetLength(fAppendMode, Length(aTables));
+  SetLength(fIncludeSchema, Length(aTables));
+  for I := 0 to Length(aTables) - 1 do begin
+    fTables[i] := aTables[i];
+    fAppendMode[i] := aSavedOptions[i].AppendMode;
+    fIncludeSchema[i]:= aArray[i].IncludeSchema;
+  end;
+  AdapterInitialization := aiWrite;
+end;
+
+destructor TDALocalDataStreamer.Destroy;
+begin
+  SetLength(fTables, 0);
+  inherited;
+end;
+
+function TDALocalDataStreamer.DoBeginWriteDataset(const Source: IDADataset;
+  const Schema: TDADataset; Options: TDAWriteOptions; MaxRows: integer;
+  ADynFieldNames: array of string): TDADataForAppend;
+var
+  k, i, Realfldcnt: integer;
+  fld: TDAField;
+//  RealFields: array of integer;
+  lfields: array of integer;
+  lDataForAppend : TDADataForAppendBin2;
+  lSchemaFields: TDAFieldCollection;
+  lLogicalName: String;
+  lFldList:TStringList;
+  lErrorMessage: String;
+  lErrorMesCnt: integer;
+  lCurrTable: TDADataTable;
+  FTableInitializedFromSource: Boolean;
+begin
+  lDataForAppend := TDADataForAppendBin2.Create();
+
+  try
+    if Assigned(Schema) then begin
+      lDataForAppend.TableSchema := Schema;
+      if Schema is TDAUnionDataTable then begin
+        fld := Schema.FindField(def_SourceTableFieldName);
+        if not Assigned(fld) then begin
+          fld := Schema.Fields.Add();
+          fld.Name := def_SourceTableFieldName;
+          fld.DataType := datInteger;
+          fld.InPrimaryKey := true;
+          fld.ServerAutoRefresh := true;
+        end;
+      end;
+      lSchemaFields := Schema.Fields;
+      lLogicalName := Schema.Name;
+    end else begin
+      if Assigned(Source) then begin
+        lSchemaFields := Source.Fields;
+        lLogicalName := Source.LogicalName;
+      end else begin
+        raise EDAException.Create('Schema or source should be assigned.');
+      end;
+    end;
+
+    if Length(ADynFieldNames) > 0 then begin
+      SetLength(lfields, Length(ADynFieldNames));
+      For i:=0 to High(ADynFieldNames) do begin
+        fld := lSchemaFields.FindField(ADynFieldNames[i]);
+        if fld <> nil then
+          lfields[i]:= fld.Index
+        else
+          lfields[i]:= -1;  // TODO: shoudln't this raise an exception "field not found", or the like?
+      end;
+    end else begin
+      SetLength(lfields, lSchemaFields.Count);
+      For i:=0 to lSchemaFields.Count-1 do
+        lfields[i]:=i;
+    end;
+
+    SetLength(lDataForAppend.FieldsInfo, lSchemaFields.Count);
+    SetLength(lDataForAppend.RealFields, lSchemaFields.Count);
+    SetLength(lDataForAppend.DestRealFields, lSchemaFields.Count);
+    Realfldcnt := 0;
+    for i := 0 to High(lfields) do begin
+      if lSchemaFields[lfields[i]].Calculated or lSchemaFields[lfields[i]].Lookup then Continue;
+      lDataForAppend.RealFields[Realfldcnt] := lfields[i];
+      lDataForAppend.DestRealFields[Realfldcnt] := lfields[i]; // by default = RealFields
+      lDataForAppend.FieldsInfo[Realfldcnt].Name := lSchemaFields[lfields[i]].Name;
+      lDataForAppend.FieldsInfo[Realfldcnt].Datatype := lSchemaFields[lfields[i]].DataType;
+      lDataForAppend.FieldsInfo[Realfldcnt].Size := lSchemaFields[lfields[i]].Size;
+      inc(Realfldcnt);
+    end;
+    SetLength(lDataForAppend.FieldsInfo, Realfldcnt);
+    SetLength(lDataForAppend.RealFields, Realfldcnt);
+    SetLength(lDataForAppend.DestRealFields, Realfldcnt);
+    lDataForAppend.MaxRowCount := MaxRows;
+
+    k := 0;
+    lDataForAppend.RecordCount := k;
+    lCurrTable := nil;
+    // detect DataTable
+    for I := 0 to Length(fTables) - 1 do
+      if AnsiSameText(lLogicalName,fTables[i].LogicalName) then begin
+        lCurrTable :=fTables[i];
+        lDataForAppend.IncludeSchema := fIncludeSchema[i];
+        lDataForAppend.CurrentAppendMode:= fAppendMode[i] and lCurrTable.Active and not (lCurrTable.EOF and lCurrTable.BOF);;
+        Break;
+      end;
+
+    if lCurrTable = nil then raise EDAException.CreateFmt('LDA: Destination data table not found.: %s',[lLogicalName]);
+    FTableInitializedFromSource := lDataForAppend.IncludeSchema and not (soIgnoreStreamSchema in lCurrTable.StreamingOptions);
+    if FTableInitializedFromSource then begin
+      lDataForAppend.CurrentAppendMode := False;
+      lCurrTable.Close;
+      lCurrTable.Fields.AssignFieldCollection(lSchemaFields);
+    end;
+    if not lCurrTable.Active then lCurrTable.InitializeDataTable;
+
+    if TDALocalDataAdapter(Owner).AutoFillScripts then TDALocalDataAdapter(Owner).FillScripts([lCurrTable]);
+
+    if not FTableInitializedFromSource then begin
+      lErrorMessage := '';
+      lErrorMesCnt := 0;
+      // checking schema with table schema
+
+      // step 1
+      lFldList:=TStringList.Create;
+      try
+        lFldList.Sorted:=False;
+        lFldList.Duplicates:=dupIgnore;
+        For i:= 0 to lCurrTable.Fields.Count-1 do
+          lFldList.AddObject(lCurrTable.Fields[i].Name,Pointer(lCurrTable.Fields[i].Index));
+        lFldList.Sorted:=True;
+
+        for i := 0 to Realfldcnt - 1 do begin
+          k:=lFldList.IndexOf(lDataForAppend.FieldsInfo[i].Name);
+          if k = -1 then begin
+            inc(lErrorMesCnt);
+            if lErrorMesCnt > 5 then begin
+              lErrorMessage := lErrorMessage + '<skip>' + sLineBreak;
+              break;
+            end
+            else begin
+              lErrorMessage := lErrorMessage + Format('The %s field isn''t found.' + sLineBreak,[lDataForAppend.FieldsInfo[i].Name])
+            end;
+          end
+          else begin
+            lDataForAppend.DestRealFields[i]:= Integer(lFldList.Objects[k]);
+          end;
+        end;
+      finally
+        lFldList.Free;
+      end;
+      // step 2
+      if (Length(lErrorMessage) = 0) then begin
+        k := 0;
+        for i := 0 to (lCurrTable.Fields.Count - 1) do begin
+          if lCurrTable.Fields[i].Calculated or lCurrTable.Fields[i].Lookup then Continue;
+          if (k >= Realfldcnt) then begin
+            lErrorMessage := lErrorMessage + 'Fields count mismatch' + sLineBreak
+          end
+          else begin
+            fld:=lCurrTable.Fields[lDataForAppend.DestRealFields[k]];
+           // if (fld.Name <> Info[k].Name) then lErrorMessage := lErrorMessage + Format('Name mismatch: %s expected but %s found in stream.', [fld.Name, Info[k].Name])+ sLineBreak
+            if (fld.DataType <> lDataForAppend.FieldsInfo[k].Datatype) then
+              lErrorMessage := lErrorMessage + Format('Data type mismatch for column ''%s.%s'': %s expected but %s found in source.',
+                               [lLogicalName, fld.Name, TDADataTypeStrings[fld.DataType], TDADataTypeStrings[lDataForAppend.FieldsInfo[k].Datatype]])+ sLineBreak
+            else if (fld.Size <> lDataForAppend.FieldsInfo[k].Size) then
+              lErrorMessage := lErrorMessage + Format('Size mismatch for column ''%s.%s'': %d expected but %d found in source.',
+                               [lLogicalName, fld.Name, fld.Size, lDataForAppend.FieldsInfo[k].Size])  + sLineBreak;
+          end;
+          inc(k);
+        end;
+        if (k <> Realfldcnt) then lErrorMessage := lErrorMessage + Format('Fields count mismatch: %d expected but %d found in the stream', [k, Realfldcnt]) + sLineBreak;
+      end;
+      if (Length(lErrorMessage) > 0) then begin
+        lErrorMessage := 'Format of the data of source doesn''t match the destination table format.'+ sLineBreak + sLineBreak + lErrorMessage;
+        RaiseError(lErrorMessage);
+      end;
+    end;
+  except
+    lDataForAppend.Free;
+    raise;
+  end;
+
+    setLength(lDataForAppend.Destflds, Realfldcnt);
+    For i:= 0 to Realfldcnt-1 do
+      lDataForAppend.Destflds[i] := lCurrTable.Fields[lDataForAppend.DestRealFields[i]];
+
+    lDataForAppend.lPK := Dataset_GetPK(lDataForAppend.Destflds, lDataForAppend.lPKFlds);
+    lDataForAppend.lOnePK := Length(lDataForAppend.lPKFlds) = 1;
+    lDataForAppend.CurrentAppendMode := lDataForAppend.CurrentAppendMode and (Length(lDataForAppend.lPKFlds)>0);
+    if lDataForAppend.CurrentAppendMode then begin
+      SetLength(lDataForAppend.lFldValues, Length(lDataForAppend.Destflds));
+      SetLength(lDataForAppend.lPKValues, Length(lDataForAppend.lPKFlds));
+    end;
+
+
+  lDataForAppend.CurrentDataTable := lCurrTable;
+  lDataForAppend.CurrentDataTable.DisableControls;
+
+  if not Supports(lCurrTable,IDAMemDatasetBatchAdding, lDataForAppend.lBatchAdding) then begin
+    lDataForAppend.lBatchAdding := nil
+  end
+  else begin
+    lDataForAppend.lBatchAddingList := TList.Create;
+  end;
+
+  SetLength(lDataForAppend.readonlyfields, lCurrTable.Fields.Count);
+  // reset Fields[i].ReadOnly
+  for i := 0 to (lCurrTable.Fields.Count - 1) do begin
+    lDataForAppend.readonlyfields[i] := lCurrTable.Fields[i].ReadOnly;
+    lCurrTable.Fields[i].ReadOnly := FALSE;
+  end;
+  result := lDataForAppend;
+end;
+
+function TDALocalDataStreamer.DoCreateStream: TStream;
+begin
+  // outdated, for backward capability
+  Result := nil;
+end;
+
+function TDALocalDataStreamer.DoEndWriteDataset(
+  aDataForAppend: TDADataForAppend): Integer;
+var
+  i: integer;
+  lData : TDADataForAppendBin2;
+begin
+  lData := TDADataForAppendBin2(aDataForAppend);
+
+  if (lData.lBatchAdding <> nil) and (lData.lBatchAddingList.Count <> 0) then begin
+    lData.lBatchAdding.AddRecordsfromList(lData.lBatchAddingList,lData.CurrentAppendMode);
+  end;
+
+  // restore ReadOnly
+  for i := 0 to (lData.CurrentDataTable.Fields.Count - 1) do
+    lData.CurrentDataTable.Fields[i].ReadOnly := lData.readonlyfields[i];
+  // enable controls
+  lData.CurrentDataTable.EnableControls;
+  Result:= aDataForAppend.RecordCount;
+  lData.lBatchAddingList.Free;
+  aDataForAppend.Free();
+end;
+
+procedure TDALocalDataStreamer.DoFinalize;
+begin
+  // empty
+end;
+
+procedure TDALocalDataStreamer.DoInitialize(Mode: TDAAdapterInitialization);
+begin
+  // empty
+end;
+
+procedure TDALocalDataStreamer.DoReadDataset(const DatasetName: string;
+  const Destination: IDADataset; ApplySchema, AppendMode: Boolean);
+begin
+  NotSupported;
+end;
+
+procedure TDALocalDataStreamer.DoReadDelta(const DeltaName: string;
+  const Destination: IDADelta);
+begin
+  NotSupported;
+end;
+
+function TDALocalDataStreamer.DoWriteDataset(const Source: IDADataset;
+  Options: TDAWriteOptions; MaxRows: integer;
+  ADynFieldNames: array of string): integer;
+var
+  lData : TDADataForAppend;
+begin
+  lData := DoBeginWriteDataset(Source, nil,Options, MaxRows, ADynFieldNames);
+  try
+    DoWriteDatasetData(Source, lData, -1);
+  finally
+    Result := DoEndWriteDataset(lData);
+  end;
+end;
+
+function TDALocalDataStreamer.DoWriteDatasetData(const Source: IDADataset;
+  var aDataForAppend: TDADataForAppend; aDataIndex: Integer): Integer;
+var
+  i, Realfldcnt: integer;
+  lDataForAppend: TDADataForAppendBin2;
+  lMapToFieldName: String;
+  lColumnMappings: TDAColumnMappingCollection;
+  lColumnMapping: TDAColumnMapping;
+begin
+  lDataForAppend := TDADataForAppendBin2(aDataForAppend);
+  Realfldcnt := Length(lDataForAppend.RealFields);
+
+  // Mapping fields of Source table to the streamed dataset
+  if Assigned(lDataForAppend.TableSchema) and (lDataForAppend.TableSchema is TDAUnionDataTable) then begin
+    lColumnMappings := TDAUnionSourceTable(TDAUnionDataTable(lDataForAppend.TableSchema).SourceTables.ItemByName(Source.Name)).ColumnMappings;
+    for i := 0 to Realfldcnt - 1 do begin
+      if lDataForAppend.FieldsInfo[i].Name = def_SourceTableFieldName then begin
+        lDataForAppend.RealFields[i] := -10;
+        continue;
+      end;
+      lMapToFieldName := lDataForAppend.FieldsInfo[i].Name;
+      if Assigned(lColumnMappings) then begin
+        lColumnMapping := lColumnMappings.MappingByDatasetField(lDataForAppend.FieldsInfo[i].Name);
+        if Assigned(lColumnMapping) and (lColumnMapping.TableField <> '') then
+          lMapToFieldName := lColumnMapping.TableField;
+      end;
+      lDataForAppend.RealFields[i] := Source.FieldByName(lMapToFieldName).Index;
+    end;
+  end;
+
+  with Source do try
+    DisableControls;
+
+    if not Source.Active then Source.Open;
+    try
+      InternalDoWriteDataset(Source, aDataIndex, lDataForAppend);
+    except
+      raise;
+    end;
+
+  finally
+    EnableControls;
+    result := lDataForAppend.RecordCount ;
+  end;
+end;
+
+procedure TDALocalDataStreamer.DoWriteDelta(const Source: IDADelta);
+begin
+  NotSupported;
+end;
+
+function TDALocalDataStreamer.GetTargetDataType: TRODataType;
+begin
+  Result := rtBinary;
+end;
+
+procedure TDALocalDataStreamer.InternalDoWriteDataset(
+  const Source: IDADataset;
+  aDataIndex: Integer;
+  aDataForAppend: TDADataForAppendBin2);
+
+  function Dataset_Locate(): boolean;
+  begin
+    if aDataForAppend.lOnePK then
+      Result:= aDataForAppend.CurrentDataTable.Locate(aDataForAppend.lPK,aDataForAppend.lPKValues[0],[])
+    else
+      Result:= aDataForAppend.CurrentDataTable.Locate(aDataForAppend.lPK,aDataForAppend.lPKValues,[]);
+  end;
+
+var
+  ev1, ev2, ev3, ev4: boolean;
+  Realfldcnt: integer;
+  Sourceflds: array of TDAField;
+  val: array of Variant;
+
+  procedure GetSourceValues;
+  var
+    i: integer;
+  begin
+    for i := 0 to (Realfldcnt - 1) do begin
+      //ARealFields[i] = -10 then this is @SourceTable field
+      if aDataForAppend.RealFields[i] = -10 then begin
+        //We shouldn't fire events since this is special internal field
+        val[i] := aDataIndex;
+      end else begin
+        val[i] := Source.FieldValues[aDataForAppend.RealFields[i]];
+        if ev1 then OnBeforeFieldValueSerialization(Sourceflds[i], val[i]);
+        if ev2 then OnWriteFieldValue(Sourceflds[i], val[i]);
+        if ev3 then OnWriteFieldValueEx(Source,Sourceflds[i], val[i]);
+      end;
+    end;
+  end;
+
+  procedure SetDestValues_StdMode;
+  var
+    i: integer;
+  begin
+    aDataForAppend.CurrentDataTable.Append;
+    for i := 0 to Realfldcnt - 1 do begin
+      if ev4 then OnReadFieldValue(aDataForAppend.Destflds[i], val[i]);
+      aDataForAppend.Destflds[i].Value := val[i];
+    end;
+    if aDataForAppend.CurrentAppendMode  then begin
+      // store values and avoid firing OnReadFieldValue event
+      for i := 0 to Length(aDataForAppend.Destflds) - 1 do
+        aDataForAppend.lFldValues[i]:= aDataForAppend.Destflds[i].Value;
+      // store PK values for locate
+      for I := 0 to Length(aDataForAppend.lPKFlds) - 1 do
+        aDataForAppend.lPKValues[i]:= aDataForAppend.lPKFlds[i].Value;
+
+      aDataForAppend.CurrentDataTable.Cancel;
+      if Dataset_Locate then
+        aDataForAppend.CurrentDataTable.Edit
+      else
+        aDataForAppend.CurrentDataTable.Append;
+      // assign new values
+      for i := 0 to Length(aDataForAppend.Destflds) - 1 do
+        aDataForAppend.Destflds[i].Value := aDataForAppend.lFldValues[i];
+    end;
+
+    try
+      aDataForAppend.CurrentDataTable.Post;
+    except
+      // Introduced to restore the dsBrowse state of the datatable
+      // in case of errors
+      aDataForAppend.CurrentDataTable.Cancel;
+      raise;
+    end;
+  end;
+
+  procedure SetDestValues_BatchMode;
+  type
+    PMemDatasetrecord_Native = ^TMemDatasetrecord_Native;
+    TMemDatasetrecord_Native = packed record
+      Ident: byte;
+      Data: PAnsichar;
+    end;
+
+  var
+    i: integer;
+    buf, buf1: PAnsiChar;
+    s: AnsiString;
+  begin
+    buf:= aDataForAppend.lBatchAdding.AllocRecordBuffer;
+    try
+      for i := 0 to Length(aDataForAppend.Destflds) - 1 do begin
+        if aDataForAppend.Destflds[i].Calculated or aDataForAppend.Destflds[i].Lookup then Continue;
+        if ev4 then OnReadFieldValue(aDataForAppend.Destflds[i], val[i]);
+        if VarIsNull(Val[i]) then
+          aDataForAppend.lBatchAdding.SetNullMask(PMemDatasetrecord_Native(buf)^.Data,aDataForAppend.Destflds[i].BindedField, True)
+        else begin
+          aDataForAppend.lBatchAdding.SetNullMask(PMemDatasetrecord_Native(buf)^.Data,aDataForAppend.Destflds[i].BindedField, False);
+          buf1:= aDataForAppend.lBatchAdding.GetFieldNativeBuffer(buf,aDataForAppend.Destflds[i].BindedField);
+          case aDataForAppend.Destflds[i].DataType of
+            datUnknown: ;
+            datWideString:  aDataForAppend.lBatchAdding.SetWideString(buf1,aDataForAppend.Destflds[i].BindedField,{$IFDEF UNICODE}VarToStr{$ELSE}VarToWideStr{$ENDIF}(Val[i]));
+            datString:      aDataForAppend.lBatchAdding.SetAnsiString(buf1,aDataForAppend.Destflds[i].BindedField,VarToAnsiStr(val[i]));
+            datCurrency:    PCurrency(buf1)^ :=  Currency(Val[i]);
+            datDateTime:    PDateTime(buf1)^ := TimeStampToMSecs(DateTimeToTimeStamp(VarToDateTime(Val[i])));
+            datFloat:       PDouble(buf1)^ := Double(Val[i]);
+            datLargeInt,    datLargeAutoInc, datLargeUInt: PInt64(buf1)^ := Val[i];
+            datBoolean:     System.PBoolean(buf1)^ := Boolean(Val[i]);
+            datAutoInc,
+            datInteger:     PInteger(buf1)^ := integer(Val[i]);
+            datSingleFloat: PDouble(buf1)^ :=  Double(Val[i]);
+            datDecimal:     PBCD(buf1)^ := VariantToBCD(val[i]);
+            datCardinal:    PCardinal(buf1)^ := Cardinal(Val[i]);
+            datByte:        PSmallInt(buf1)^ := Byte(Val[i]);
+            datWord:        PWord(buf1)^ := Word(Val[i]);
+            datShortInt:    PSmallInt(buf1)^ := ShortInt(Val[i]);
+            datSmallInt:    PSmallInt(buf1)^ := SmallInt(Val[i]);
+            datGuid: begin
+              s:= VarToAnsiStr(val[i]);
+              Move(pointer(s)^, pointer(buf1)^, 38 {Length(GuidString)});
+            end;
+            datBlob,
+            datMemo,
+            datWideMemo,
+            datXml:         PPointer(buf1)^ := aDataForAppend.lBatchAdding.MakeBlobFromString(VariantToAnsiString(Val[i]));
+          end;
+        end;
+      end;
+     aDataForAppend.lBatchAddingList.Add(Buf);
+    except
+      aDataForAppend.lBatchAdding.FreeRecordBuffer(buf);
+      For i:=0 to aDataForAppend.lBatchAddingList.Count-1 do begin
+        buf:=aDataForAppend.lBatchAddingList[i];
+        aDataForAppend.lBatchAdding.FreeRecordBuffer(Buf);
+      end;
+      aDataForAppend.lBatchAddingList.Clear;
+      raise;
+    end;
+  end;
+
+
+var
+  i : integer;
+{$IFDEF LDADEBUG_time}
+  t1,t2: TDateTime;
+{$ENDIF LDADEBUG_time}
+  lWriteProgress: boolean;
+  lReadProgress: Boolean;
+begin
+  Realfldcnt:= Length(aDataForAppend.RealFields);
+
+  lWriteProgress := Assigned(onWriteDatasetProgress);
+  lReadProgress := Assigned(OnReadDatasetProgress);
+  ev1 := Assigned(OnBeforeFieldValueSerialization);
+  ev2 := Assigned(OnWriteFieldValue);
+  ev3 := Assigned(OnWriteFieldValueEx);
+  ev4 := Assigned(OnReadFieldValue);
+
+  SetLength(Sourceflds,Realfldcnt);
+  for i := 0 to Realfldcnt-1 do begin
+    if aDataForAppend.RealFields[i] = -10 then
+      Sourceflds[i]:=nil
+    else
+      Sourceflds[i]:=Source.Fields[aDataForAppend.RealFields[i]];
+  end;
+  SetLength(val,Realfldcnt);
+
+  while (aDataForAppend.RecordCount <> aDataForAppend.MaxRowCount) and not Source.EOF do begin
+    GetSourceValues;
+
+    Inc(aDataForAppend.RecordCount);
+    if lWriteProgress then OnWriteDatasetProgress(Self, Source, aDataForAppend.RecordCount, aDataForAppend.MaxRowCount);
+    Source.Next;
+
+    if aDataForAppend.lBatchAdding <> nil then
+      SetDestValues_BatchMode
+    else
+      SetDestValues_StdMode;
+
+    if lReadProgress then OnReadDatasetProgress(Self, Source, aDataForAppend.RecordCount, aDataForAppend.MaxRowCount);
+    if Source.EOF then Break;
+  end;
+  {$IFDEF LDADEBUG_time}
+  t2:=now;
+  OutputDebugString(PAnsiChar('TDABIN2DataStreamer.InternalDoWriteDataset:'+TimeToStr(t2-t1)+' | ' +FloatToStr(t2-t1)));
+  {$ENDIF LDADEBUG_time}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalHelpers.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalHelpers.pas
new file mode 100644
index 0000000..2e3b599
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDALocalHelpers.pas	
@@ -0,0 +1,59 @@
+unit uDALocalHelpers;
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Lazarus/FPC                                     }
+{ platform: Win32, Unux, Mac                                                 }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  DataAbstract4_Intf, uDADelta, uDADataStreamer;
+
+type
+  IDeltaArray = array of IDADelta;
+
+  IDataAbstractLocalServiceAccess = interface
+  ['{72319FE4-BCE3-4C89-96BD-36A450F75241}']
+    procedure UpdateData(aDeltaList: IDeltaArray);
+    function GetSchema(const aFilter: UTF8String): UTF8String;
+    procedure GetData(const aTableNameArray: StringArray; const aTableRequestInfoArray: TableRequestInfoArray; aStreamer: TDADataStreamer);
+    function GetDatasetScripts(const DatasetNames: Utf8String): Utf8String;
+    function ExecuteCommandEx(const aCommandName: String; const aInputParameters: DataParameterArray; out aOutputParameters: DataParameterArray):integer;
+  end;
+
+function LocalServiceAccessHelper_Acquire(aGuid: TGuid; aName: String): IDataAbstractLocalServiceAccess;
+procedure LocalServiceAccessHelper_Release(aGuid: TGuid; aName: String; aService: IDataAbstractLocalServiceAccess);
+
+implementation
+uses
+  uROServer, uROServerIntf, uRORes, uROClasses;
+
+function LocalServiceAccessHelper_Acquire(aGuid: TGuid; aName: String): IDataAbstractLocalServiceAccess;
+var
+  lLocal: IUnknown;
+begin
+  GetClassFactory(aName).CreateInstance(aGuid, lLocal);
+  if (lLocal = nil) then RaiseError(err_ClassFactoryDidNotReturnInstance, [aName]);
+  Result := lLocal as IDataAbstractLocalServiceAccess;
+  lLocal := nil;
+  if Result <> nil then (Result as IROObjectActivation).OnActivate(aGuid,nil);
+end;
+
+procedure LocalServiceAccessHelper_Release(aGuid: TGuid; aName: String; aService: IDataAbstractLocalServiceAccess);
+var
+  lLocal: IUnknown;
+begin
+  lLocal := aService;
+  if lLocal <> nil then (lLocal as IROObjectActivation).OnDeactivate(aGuid);
+  GetClassFactory(aName).ReleaseInstance(aGuid, lLocal);
+end;
+
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMacroProcessors.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMacroProcessors.pas
new file mode 100644
index 0000000..c83e81b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMacroProcessors.pas	
@@ -0,0 +1,509 @@
+unit uDAMacroProcessors;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses uDAEngine;
+
+(*
+  Macros:
+
+    -------------------- Date --------------------
+
+       Returns the current date from the server
+
+       Syntax: {Date()}
+       Example: SELECT * FROM Table WHERE OrderDate>{Date()}
+
+       Parameters: this macro has no parameters
+
+    -------------------- Time --------------------
+
+       Returns the current time from the server
+
+       Syntax: {Time()}
+       Example: SELECT * FROM Table WHERE OrderDate>{Time()}
+
+       Parameters: this macro has no parameters
+
+    -------------------- DateTime --------------------
+
+       Returns the current datetime from the server
+
+       Syntax: {DateTime()}
+       Example: SELECT * FROM Table WHERE OrderDate>{DateTime()}
+
+       Parameters: this macro has no parameters
+
+    -------------------- AddTime --------------------
+
+       Returns a new datetime value based on adding an interval to the specified date.
+       Not all databases support this macro.
+
+       Syntax: {AddTime(<date>, <interval>, <interval_type>)}
+       Example: SELECT * FROM Table WHERE OrderDate>{AddTime(Date(), 2, day)}
+
+       Parameters: <date>: a valid date
+                   <interval>: number of days, weeks, etc as per next parameter
+                   <interval_type>: day, week, year, hour, min, sec
+
+     -------------------- FormatDateTime --------------------
+
+       Formats the specified datetime to the datetime format used by the database
+
+       Syntax: {FormatDateTime(<date>)}
+       Example: SELECT * FROM Table WHERE OrderDate>{FormatDateTime('12/22/2003 15:22:34.123')}
+
+       Parameters: <date>: a string expression representing a data in format MM/DD/YYYY HH24:MM:SS.MS
+
+     -------------------- FormatDate --------------------
+
+       Formats the specified date to the date format used by the database
+
+       Syntax: {FormatDateTime(<date>)}
+       Example: SELECT * FROM Table WHERE OrderDate>{FormatDate('12/22/2003')}
+
+       Parameters: <date>: a string expression representing a data in format MM/DD/YYYY
+
+     -------------------- Length --------------------
+
+       Returns the length of the given string
+
+       Syntax: {Length(<string>)}
+       Example: SELECT * FROM Table WHERE {Length(CustomerID)}>3
+
+       Parameters: <string>: a text string
+
+     -------------------- LowerCase --------------------
+
+       Converts the given string to lower case
+
+       Syntax: {LowerCase(<string>)}
+       Example: SELECT * FROM Table WHERE {LowerCase(CustomerID)}='alfki'
+
+       Parameters: <string>: a text string
+
+     -------------------- UpperCase --------------------
+
+       Converts the given string to upper case
+
+       Syntax: {UpperCase(<string>)}
+       Example: SELECT * FROM Table WHERE {UpperCase(CustomerID)}='ALFKI'
+
+       Parameters: <string>: a text string
+
+     -------------------- TrimLeft --------------------
+
+       Removes the leading spaces from a string
+
+       Syntax: {TrimLeft(<string>)}
+       Example: SELECT * FROM Table WHERE {TrimLeft(CustomerID)}='ALFKI'
+
+       Parameters: <string>: a text string
+
+     -------------------- TrimRight --------------------
+
+       Removes the trailing spaces from a string
+
+       Syntax: {TrimRight(<string>)}
+       Example: SELECT * FROM Table WHERE {TrimRight(CustomerID)}='ALFKI'
+
+       Parameters: <string>: a text string
+
+     -------------------- Copy --------------------
+
+       Returns <count> characters starting from <index> from <string>
+
+       Syntax: {Copy(<string>, <index>, <count>)}
+       Example: SELECT * FROM Table WHERE OrderDate>{Date()}
+
+       Parameters:
+         <string>: a field name or a string
+         <index>: the position from where to start copying
+         <count>: the number of characters to copy
+
+     -------------------- NoLockHint --------------------
+
+       Returns (NOLOCK) for MSSQL server and empty string for other databases
+
+       Syntax: {NoLockHint}
+       Example: SELECT * FROM Table {NoLockHint}
+
+*)
+
+type { TDAMSSQLMacroProcessor }
+  TDAMSSQLMacroProcessor = class(TDASQLMacroProcessor)
+  protected
+    function DateTime(Sender: TObject; const Parameters: array of string): string; override;
+
+    function AddTime(Sender: TObject; const Parameters: array of string): string; override;
+
+    function Length(Sender: TObject; const Parameters: array of string): string; override;
+    function LowerCase(Sender: TObject; const Parameters: array of string): string; override;
+    function UpperCase(Sender: TObject; const Parameters: array of string): string; override;
+    function TrimLeft(Sender: TObject; const Parameters: array of string): string; override;
+    function TrimRight(Sender: TObject; const Parameters: array of string): string; override;
+    function Copy(Sender: TObject; const Parameters: array of string): string; override;
+    function Nolock(Sender: TObject; const Parameters: array of string): string; override;
+
+  public
+    constructor Create;
+  end;
+  TMSSQLMacroProcessor = TDAMSSQLMacroProcessor;
+
+     { TDAIBMacroProcessor }
+  TDAIBMacroProcessor = class(TDASQLMacroProcessor)
+  protected
+    function DateTime(Sender: TObject; const Parameters: array of string): string; override;
+
+    function AddTime(Sender: TObject; const Parameters: array of string): string; override;
+
+    function Length(Sender: TObject; const Parameters: array of string): string; override;
+    function LowerCase(Sender: TObject; const Parameters: array of string): string; override;
+    function UpperCase(Sender: TObject; const Parameters: array of string): string; override;
+    function TrimLeft(Sender: TObject; const Parameters: array of string): string; override;
+    function TrimRight(Sender: TObject; const Parameters: array of string): string; override;
+    function Copy(Sender: TObject; const Parameters: array of string): string; override;
+    function Nolock(Sender: TObject; const Parameters: array of string): string; override;
+
+  public
+    constructor Create;
+  end;
+  TIBMacroProcessor = TDAIBMacroProcessor;
+
+     { TDAOracleMacroProcessor }
+  TDAOracleMacroProcessor = class(TDASQLMacroProcessor)
+    function DateTime(Sender: TObject; const Parameters: array of string): string; override;
+
+    function AddTime(Sender: TObject; const Parameters: array of string): string; override;
+
+    function Length(Sender: TObject; const Parameters: array of string): string; override;
+    function LowerCase(Sender: TObject; const Parameters: array of string): string; override;
+    function UpperCase(Sender: TObject; const Parameters: array of string): string; override;
+    function TrimLeft(Sender: TObject; const Parameters: array of string): string; override;
+    function TrimRight(Sender: TObject; const Parameters: array of string): string; override;
+    function Copy(Sender: TObject; const Parameters: array of string): string; override;
+    function FormatDate(Sender: TObject; const Parameters: array of string): string; override;
+    function FormatDateTime(Sender: TObject; const Parameters: array of string): string; override;
+    function Nolock(Sender: TObject; const Parameters: array of string): string; override;
+
+  public
+    constructor Create;
+  end;
+  TOracleMacroProcessor = TDAOracleMacroProcessor;
+
+     { TDADBISAMMacroProcessor }
+  TDADBISAMMacroProcessor = class(TDASQLMacroProcessor)
+    function DateTime(Sender: TObject; const Parameters: array of string): string; override;
+
+    function AddTime(Sender: TObject; const Parameters: array of string): string; override;
+
+    function Length(Sender: TObject; const Parameters: array of string): string; override;
+    function LowerCase(Sender: TObject; const Parameters: array of string): string; override;
+    function UpperCase(Sender: TObject; const Parameters: array of string): string; override;
+    function TrimLeft(Sender: TObject; const Parameters: array of string): string; override;
+    function TrimRight(Sender: TObject; const Parameters: array of string): string; override;
+    function Copy(Sender: TObject; const Parameters: array of string): string; override;
+    function Nolock(Sender: TObject; const Parameters: array of string): string; override;
+
+  public
+    constructor Create;
+  end;
+  TDBISAMMacroProcessor = TDADBISAMMacroProcessor;
+
+implementation
+
+uses SysUtils;
+
+{ TDAMSSQLMacroProcessor }
+
+constructor TDAMSSQLMacroProcessor.Create;
+begin
+  inherited Create('yyyy-mm-dd', 'yyyy-mm-dd hh:nn:ss.zzz', FALSE, '@');
+end;
+
+function TDAMSSQLMacroProcessor.AddTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('dateadd(%s, %s, %s)', [Parameters[2], Parameters[1], Parameters[0]]);
+end;
+
+function TDAMSSQLMacroProcessor.Copy(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('substring(%s, %s, %s)', [Parameters[0], Parameters[1], Parameters[2]]);
+end;
+
+function TDAMSSQLMacroProcessor.DateTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'GetDate()';
+end;
+
+function TDAMSSQLMacroProcessor.Length(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'len(' + Parameters[0] + ')'
+end;
+
+function TDAMSSQLMacroProcessor.LowerCase(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'lower(' + Parameters[0] + ')'
+end;
+
+function TDAMSSQLMacroProcessor.TrimLeft(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'ltrim(' + Parameters[0] + ')'
+end;
+
+function TDAMSSQLMacroProcessor.TrimRight(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'rtrim(' + Parameters[0] + ')'
+end;
+
+function TDAMSSQLMacroProcessor.UpperCase(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'upper(' + Parameters[0] + ')'
+end;
+
+function TDAMSSQLMacroProcessor.Nolock(Sender: TObject; const Parameters: array of string): string;
+begin
+  result := ' (NOLOCK) ';
+end;
+
+{ TDAIBMacroProcessor }
+
+constructor TDAIBMacroProcessor.Create;
+begin
+  inherited Create('yyyy-mm-dd', 'yyyy-mm-dd hh:mm:ss.zzz', FALSE);
+end;
+
+function TDAIBMacroProcessor.AddTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := '???'
+end;
+
+function TDAIBMacroProcessor.Copy(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('substring(%s from %s for %s)', [Parameters[0], Parameters[1], Parameters[2]]);
+end;
+
+function TDAIBMacroProcessor.DateTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := '(select current_timestamp from rdb$database)';
+end;
+
+function TDAIBMacroProcessor.Length(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('char_length(%s)', [Parameters[0]]);
+end;
+
+function TDAIBMacroProcessor.LowerCase(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'lower(' + Parameters[0] + ')'
+end;
+
+function TDAIBMacroProcessor.TrimLeft(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'trim ( leading from ' + Parameters[0] + ')'
+end;
+
+function TDAIBMacroProcessor.TrimRight(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'trim ( trailing from ' + Parameters[0] + ')'
+end;
+
+function TDAIBMacroProcessor.UpperCase(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'upper(' + Parameters[0] + ')'
+end;
+
+function TDAIBMacroProcessor.Nolock(Sender: TObject; const Parameters: array of string): string;
+begin
+  result := '';
+end;
+
+{ TDAOracleMacroProcessor }
+
+constructor TDAOracleMacroProcessor.Create;
+begin
+  inherited Create('MM/DD/YYYY', 'MM/DD/YYYY HH:MM:SS.ZZZ', FALSE);
+end;
+
+function TDAOracleMacroProcessor.FormatDate(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := StringReplace('TO_DATE(''' + Parameters[0] + ''', ''MM/DD/YYYY'')', '''''', '''', [rfReplaceAll]);
+end;
+
+function TDAOracleMacroProcessor.FormatDateTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := StringReplace('TO_DATE(''' + Parameters[0] + ''', ''MM/DD/YYYY HH24:MI:SS.FF3'')', '''''', '''', [rfReplaceAll]);
+end;
+
+function TDAOracleMacroProcessor.AddTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Parameters[0] + '+';
+
+  if SameText(Parameters[2], 'DAY') then
+    result := result + Parameters[1]
+  else if SameText(Parameters[2], 'WEEK') then
+    result := result + Parameters[1] + '*7'
+  else if SameText(Parameters[2], 'YEAR') then
+    result := result + Parameters[1] + '*365'
+  else if SameText(Parameters[2], 'HOUR') then
+    result := result + Parameters[1] + '/24'
+  else if SameText(Parameters[2], 'MIN') then
+    result := result + Parameters[1] + '/1440'
+  else if SameText(Parameters[2], 'SEC') then
+    result := result + Parameters[1] + '/86400';
+end;
+
+function TDAOracleMacroProcessor.Copy(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('SUBSTR(%s, %s, %s)', [Parameters[0], Parameters[1], Parameters[2]]);
+end;
+
+function TDAOracleMacroProcessor.DateTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'SYSDATE'
+end;
+
+function TDAOracleMacroProcessor.Length(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('LENGTH(%s)', [Parameters[0]]);
+end;
+
+function TDAOracleMacroProcessor.LowerCase(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('LOWER(%s)', [Parameters[0]]);
+end;
+
+function TDAOracleMacroProcessor.TrimLeft(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('TRIM(%s)', [Parameters[0]]);
+end;
+
+function TDAOracleMacroProcessor.TrimRight(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('TRIM(%s)', [Parameters[0]]);
+end;
+
+function TDAOracleMacroProcessor.UpperCase(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('UPPER(%s)', [Parameters[0]]);
+end;
+
+function TDAOracleMacroProcessor.Nolock(Sender: TObject; const Parameters: array of string): string;
+begin
+  result := '';
+end;
+{ TDADBISAMMacroProcessor }
+
+constructor TDADBISAMMacroProcessor.Create;
+begin
+  inherited Create('MM/DD/YYYY', 'MM/DD/YYYY HH:MM:SS.ZZZ', FALSE);
+end;
+
+function TDADBISAMMacroProcessor.AddTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Parameters[0] + '+';
+
+  if SameText(Parameters[2], 'DAY') then
+    result := result + Parameters[1]
+  else if SameText(Parameters[2], 'WEEK') then
+    result := result + Parameters[1] + '*7'
+  else if SameText(Parameters[2], 'YEAR') then
+    result := result + Parameters[1] + '*365'
+  else if SameText(Parameters[2], 'HOUR') then
+    result := result + Parameters[1] + '/24'
+  else if SameText(Parameters[2], 'MIN') then
+    result := result + Parameters[1] + '/1440'
+  else if SameText(Parameters[2], 'SEC') then
+    result := result + Parameters[1] + '/86400';
+end;
+
+function TDADBISAMMacroProcessor.Copy(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('SUBSTRING(%s FROM %s FOR %s)', [Parameters[0], Parameters[1], Parameters[2]]);
+end;
+
+function TDADBISAMMacroProcessor.DateTime(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := 'CURRENT_TIMESTAMP'
+end;
+
+function TDADBISAMMacroProcessor.Length(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('LENGTH(%s)', [Parameters[0]]);
+end;
+
+function TDADBISAMMacroProcessor.LowerCase(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('LOWER(%s)', [Parameters[0]]);
+end;
+
+function TDADBISAMMacroProcessor.TrimLeft(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('TRIM(LEADING '' '' FROM %s)', [Parameters[0]]);
+end;
+
+function TDADBISAMMacroProcessor.TrimRight(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('TRIM(TRAILING '' '' FROM %s)', [Parameters[0]]);
+end;
+
+function TDADBISAMMacroProcessor.UpperCase(Sender: TObject;
+  const Parameters: array of string): string;
+begin
+  result := Format('UPPER(%s)', [Parameters[0]]);
+end;
+
+function TDADBISAMMacroProcessor.Nolock(Sender: TObject; const Parameters: array of string): string;
+begin
+  result := '';
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMacros.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMacros.pas
new file mode 100644
index 0000000..010fd51
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMacros.pas	
@@ -0,0 +1,894 @@
+unit uDAMacros;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  SysUtils, Classes;
+
+type
+  TROPasToken = (
+    CSTI_EOF,
+  {Items that are used internally}
+    CSTIINT_Comment,
+    CSTIINT_WhiteSpace,
+  {Tokens}
+    CSTI_Identifier,
+    CSTI_SemiColon,
+    CSTI_Comma,
+    CSTI_Period,
+    CSTI_Colon,
+    CSTI_OpenRound,
+    CSTI_CloseRound,
+    CSTI_OpenBlock,
+    CSTI_CloseBlock,
+    CSTI_Assignment,
+    CSTI_Equal,
+    CSTI_NotEqual,
+    CSTI_Smaller,
+    CSTI_SmallerEqual,
+    CSTI_Greater,
+    CSTI_GreaterEqual,
+    CSTI_Plus,
+    CSTI_Minus,
+    CSTI_Divide,
+    CSTI_Multiply,
+    CSTI_Integer,
+    CSTI_Real,
+    CSTI_String,
+    CSTI_Date,
+    CSTI_HexInt,
+    CSTI_Modulus,
+    CSTII_In,
+    CSTII_like,
+    CSTII_And,
+    CSTII_Or,
+    CSTII_Xor,
+    CSTII_Not,
+    CSTII_IsNull,
+    CSTII_IsNotNull
+    );
+  {TROParserErrorKind is used to store the parser error}
+  TROParserErrorKind = (iNoError, iCommentError, iStringError, iCharError, iSyntaxError);
+  TROParserErrorEvent = procedure(Parser: TObject; Kind: TROParserErrorKind) of object;
+
+  {TROPacalParser is the parser used to parse the current script}
+  TROPascalParser = class(TObject)
+  private
+    FData: string;
+    FRow,
+      FCol: Cardinal;
+    FLastEnterPos: Longint;
+    FText: PChar;
+    FRealPosition, FTokenLength: Cardinal;
+    FTokenId: TROPasToken;
+    FToken: string;
+    FOriginalToken: string;
+    FParserError: TROParserErrorEvent;
+    fOpenBlockEscape: Boolean;
+    // only applicable when Token in [CSTI_Identifier, CSTI_Integer, CSTI_Real, CSTI_String, CSTI_Char, CSTI_HexInt]
+    procedure SkipWhiteSpaces(var ci: cardinal);
+  public
+    { means you can use [something] to escape identifiers}
+    property OpenBlockEscape: Boolean read fOpenBlockEscape write fOpenBlockEscape;
+    {Go to the next token}
+    procedure Next;
+    {Return the token in case it is a string, char, integer, number or idenTROier}
+    property GetToken: string read FToken;
+    {Return the token but do not uppercase it}
+    property OriginalToken: string read FOriginalToken;
+    {The current token position}
+    property CurrTokenPos: Cardinal read FRealPosition;
+    {The current token ID}
+    property CurrTokenID: TROPasToken read FTokenId;
+    {Row}
+    property Row: Cardinal read FRow;
+    {Column}
+    property Col: Cardinal read FCol;
+    {Load a script}
+    procedure SetText(const Data: string);
+    {Parser error event will be called on (syntax) errors in the script}
+    property OnParserError: TROParserErrorEvent read FParserError write FParserError;
+  end;
+
+  TExternalProc = function(Sender: TObject; const Parameters: array of string): string of object;
+
+  TROMacroProc = class
+  private
+    FExternalProc: TExternalProc;
+    FExternalName: string;
+    FExternalNameHash: Longint;
+    fParamCount: integer;
+  public
+    property ExternalName: string read FExternalName write FExternalName;
+    property ExternalNameHash: Integer read FExternalNameHash write FExternalNameHash;
+    property ExternalProc: TExternalProc read FExternalProc write FExternalProc;
+    property ParamCount: integer read fParamCount write fParamCount;
+  end;
+
+  TROMacroVar = class
+  private
+    FName: string;
+    FNameHash: Longint;
+    FValue: string;
+  public
+    constructor Create(const aName: string);
+    property Name: string read FName;
+    property NameHash: Longint read FNameHash;
+    property Value: string read FValue write FValue;
+  end;
+
+  TOnUnknownIdentifier = function(Sender: TObject; const Name, OrgName: string; var Value: string): Boolean of object;
+  TROMacroParser = class(TInterfacedObject)
+  private
+    FProcs: TList;
+    FVars: TList;
+    FOnUnknownIdentifier: TOnUnknownIdentifier;
+    FParser: TROPascalParser;
+    procedure ParserError(Parser: TObject; Kind: TROParserErrorKind);
+    function GetVarCount: Longint;
+    function GetVarNo(I: Integer): TROMacroVar;
+  public
+    property OnUnknownIdentifier: TOnUnknownIdentifier read FOnUnknownIdentifier write FOnUnknownIdentifier;
+
+    procedure ClearProcs;
+    procedure RegisterProc(const Name: string; ExProc: TExternalProc; aParamCount: integer);
+
+    property VariableCount: Longint read GetVarCount;
+    property Variable[I: Longint]: TROMacroVar read GetVarNo;
+
+    procedure DeleteVariable(I: Longint);
+    procedure ClearVariables;
+    function AddVariable(const Name: string): TROMacroVar;
+    function IndexOfName(const aName: string): integer;
+    constructor Create;
+
+    function EvalToken(const Text: string): string;
+    function Eval(const Text: string; TextDelimiter: char = ''''): string;
+
+    destructor Destroy; override;
+  end;
+
+function MakeHash(const s: string): Longint;
+function FastUppercase(const s: string): string;
+
+implementation
+uses
+  uROClasses;
+
+function MakeHash(const s: string): Longint;
+{small hash maker}
+var
+  I: Integer;
+begin
+  Result := 0;
+  for I := 1 to Length(s) do
+    Result := ((Result shl 7) or (Result shr 25)) + Ord(s[I]);
+end;
+
+function FastUppercase(const s: string): string;
+begin
+  Result := Uppercase(s);
+end;
+
+procedure TROPascalParser.Next;
+var
+  Err: TROParserErrorKind;
+
+  function _GetToken(CurrTokenPos, CurrTokenLen: Cardinal): string;
+  var
+    s: string;
+  begin
+    SetLength(s, CurrTokenLen);
+    Move(FText[CurrTokenPos], S[1], CurrtokenLen*sizeOf(char));
+    Result := s;
+  end;
+
+  function ParseToken(var CurrTokenPos, CurrTokenLen: Cardinal; var CurrTokenId: TROPasToken): TROParserErrorKind;
+  {Parse the token}
+  var
+    ct, ci, cx: Cardinal;
+    s: string;
+    hs: Boolean;
+  begin
+    ParseToken := iNoError;
+    ct := CurrTokenPos;
+    case FText[ct] of
+      #0: begin
+          CurrTokenId := CSTI_EOF;
+          CurrTokenLen := 0;
+        end;
+      'A'..'Z', 'a'..'z', '_', '@': begin
+          ci := ct + 1;
+          while CharInSet(FText[ci], ['_', '0'..'9', 'a'..'z', 'A'..'Z']) do begin
+            Inc(ci);
+          end;
+          CurrTokenLen := ci - ct;
+          CurrTokenId := CSTI_Identifier;
+          s :=  FastUppercase(_GetToken(CurrTokenPos, CurrTokenLen));
+          case s[1] of
+            'I': if s = 'IN' then begin
+                   CurrTokenId := CSTII_In;
+                 end
+                 else if s = 'IS' then begin
+                   SkipWhiteSpaces(ci);
+                   cx:=ci;
+                   while CharInSet(FText[ci], ['a'..'z', 'A'..'Z']) do Inc(ci);
+                   s := FastUppercase(_GetToken(cx, ci-cx));
+                   if s = 'NULL' then begin //is null
+                     CurrTokenLen := ci - ct;
+                     CurrTokenId := CSTII_IsNull;
+                   end
+                   else if s = 'NOT' then begin
+                     SkipWhiteSpaces(ci);
+                     cx:=ci;
+                     while CharInSet(FText[ci], ['a'..'z', 'A'..'Z']) do Inc(ci);
+                     s := FastUppercase(_GetToken(cx, ci-cx));
+                     if s = 'NULL' then begin //is not null
+                       CurrTokenLen := ci - ct;
+                       CurrTokenId := CSTII_IsNotNull;
+                     end
+                   end;
+                 end;
+            'L': if s = 'LIKE' then CurrTokenId := CSTII_like;
+            'A': if s = 'AND' then CurrTokenId := CSTII_And;
+            'O': if s = 'OR' then CurrTokenId := CSTII_Or;
+            'X': if s = 'XOR' then CurrTokenId := CSTII_Xor;
+            'N': if s = 'NOT' then CurrTokenId := CSTII_Not;
+          end;
+
+        end;
+      '$': begin
+          ci := ct + 1;
+
+          while CharInSet(FText[ci], ['0'..'9', 'a'..'f', 'A'..'F']) do
+            Inc(ci);
+
+          CurrTokenId := CSTI_HexInt;
+          CurrTokenLen := ci - ct;
+        end;
+
+      '0'..'9': begin
+          hs := False;
+          ci := ct;
+          while CharInSet(FText[ci], ['0'..'9']) do begin
+            Inc(ci);
+            if (FText[ci] = '.') and (not hs) then begin
+              if FText[ci + 1] = '.' then break;
+              hs := True;
+              Inc(ci);
+            end;
+          end;
+
+          if hs then
+            CurrTokenId := CSTI_Real
+          else
+            CurrTokenId := CSTI_Integer;
+
+          CurrTokenLen := ci - ct;
+        end;
+
+      #39: begin
+          ci := ct + 1;
+          while (FText[ci] <> #0) and (FText[ci] <> #13) and
+            (FText[ci] <> #10) and (FText[ci] <> #39) do begin
+            Inc(ci);
+            while (FText[ci] = #39) and (FText[ci + 1] = #39) do
+              Inc(ci, 2);
+          end;
+          if FText[ci] = #39 then
+            CurrTokenId := CSTI_String
+          else begin
+            CurrTokenId := CSTI_String;
+            ParseToken := iStringError;
+          end;
+          CurrTokenLen := ci - ct + 1;
+        end;
+      '#': begin
+          ci := ct + 1;
+          while CharInSet(FText[ci], ['0'..'9', '/']) do begin
+            Inc(ci);
+          end;
+          if FText[ci] <> '#' then begin
+            ParseToken := iCharError;
+            CurrTokenId := CSTI_Date;
+          end
+          else begin
+            inc(ci);
+            CurrTokenId := CSTI_Date;
+          end;
+          CurrTokenLen := ci - ct;
+        end;
+      '=': begin
+          CurrTokenId := CSTI_Equal;
+          CurrTokenLen := 1;
+        end;
+      '>': begin
+          if FText[ct + 1] = '=' then begin
+            CurrTokenid := CSTI_GreaterEqual;
+            CurrTokenLen := 2;
+          end
+          else begin
+            CurrTokenid := CSTI_Greater;
+            CurrTokenLen := 1;
+          end;
+        end;
+      '<': begin
+          if FText[ct + 1] = '=' then begin
+            CurrTokenId := CSTI_SmallerEqual;
+            CurrTokenLen := 2;
+          end
+          else if FText[ct + 1] = '>' then begin
+            CurrTokenId := CSTI_NotEqual;
+            CurrTokenLen := 2;
+          end
+          else begin
+            CurrTokenId := CSTI_Smaller;
+            CurrTokenLen := 1;
+          end;
+        end;
+      ')': begin
+          CurrTokenId := CSTI_CloseRound;
+          CurrTokenLen := 1;
+        end;
+      '(': begin
+          if FText[ct + 1] = '*' then begin
+            ci := ct + 1;
+            while (FText[ci] <> #0) do begin
+              if (FText[ci] = #13) then begin
+                if FText[ci + 1] = #10 then
+                  Inc(ci);
+                FLastEnterPos := ci;
+                Inc(FRow);
+              end
+              else if FText[ci] = #10 then begin
+                FLastEnterPos := ci;
+                Inc(FRow);
+              end;
+              if (FText[ci] = '*') and (FText[ci + 1] = ')') then
+                Break;
+              Inc(ci);
+            end;
+            if (FText[ci] = #0) then begin
+              CurrTokenId := CSTIINT_Comment;
+              ParseToken := iCommentError;
+            end
+            else begin
+              CurrTokenId := CSTIINT_Comment;
+              Inc(ci, 2);
+            end;
+            CurrTokenLen := ci - ct;
+          end
+          else begin
+            CurrTokenId := CSTI_OpenRound;
+            CurrTokenLen := 1;
+          end;
+        end;
+      '[': begin
+          if fOpenBlockEscape then begin
+            ci := ct + 1;
+            while not CharInSet(FText[ci], [']', #0]) do begin
+              if FText[ci] = '\' then
+                inc(Ci);
+              Inc(ci);
+            end;
+            if FText[ci] = ']' then Inc(ci);
+            CurrTokenLen := ci - ct;
+            CurrTokenId := CSTI_Identifier;
+          end else begin
+            CurrTokenId := CSTI_OpenBlock;
+            CurrTokenLen := 1;
+          end;
+        end;
+      ']': begin
+          CurrTokenId := CSTI_CloseBlock;
+          CurrTokenLen := 1;
+        end;
+      ',': begin
+          CurrTokenId := CSTI_Comma;
+          CurrTokenLen := 1;
+        end;
+      '.': begin
+          CurrTokenId := CSTI_Period;
+          CurrTokenLen := 1;
+        end;
+      ';': begin
+          CurrTokenId := CSTI_Semicolon;
+          CurrTokenLen := 1;
+        end;
+      ':': begin
+          if FText[ct + 1] = '=' then begin
+            CurrTokenId := CSTI_Assignment;
+            CurrTokenLen := 2;
+          end
+          else begin
+            CurrTokenId := CSTI_Colon;
+            CurrTokenLen := 1;
+          end;
+        end;
+      '+': begin
+          CurrTokenId := CSTI_Plus;
+          CurrTokenLen := 1;
+        end;
+      '-': begin
+          CurrTokenId := CSTI_Minus;
+          CurrTokenLen := 1;
+        end;
+      '%': begin
+          CurrTokenId := CSTI_Modulus;
+          CurrTokenLen := 1;
+        end;
+      '*': begin
+          CurrTokenId := CSTI_Multiply;
+          CurrTokenLen := 1;
+        end;
+      '/': begin
+          if FText[ct + 1] = '/' then begin
+            ci := ct + 1;
+            while (FText[ci] <> #0) and (FText[ci] <> #13) and (FText[ci] <> #10) do begin
+              Inc(ci);
+            end;
+            if (FText[ci] = #0) then begin
+              CurrTokenId := CSTIINT_Comment;
+              ParseToken := iCommentError;
+            end
+            else begin
+              if (FText[ci] = #13) and (FText[ci + 1] = #10) then
+                Inc(ci);
+              Inc(FRow);
+              FLastEnterPos := ci;
+
+              CurrTokenId := CSTIINT_Comment;
+            end;
+            CurrTokenLen := ci - ct + 1;
+          end
+          else begin
+            CurrTokenId := CSTI_Divide;
+            CurrTokenLen := 1;
+          end;
+        end;
+      #32, #9, #13, #10: begin
+          ci := ct + 1;
+          SkipWhiteSpaces(ci);
+          CurrTokenId := CSTIINT_WhiteSpace;
+          CurrTokenLen := ci - ct;
+        end;
+      '{': begin
+          ci := ct + 1;
+          while (FText[ci] <> #0) and (FText[ci] <> '}') do begin
+            if (FText[ci] = #13) then begin
+              if FText[ci + 1] = #10 then
+                Inc(ci);
+              FLastEnterPos := ci;
+              Inc(FRow);
+            end
+            else if FText[ci] = #10 then begin
+              FLastEnterPos := ci;
+              Inc(FRow);
+            end;
+            Inc(ci);
+          end;
+          if (FText[ci] = #0) then begin
+            CurrTokenId := CSTIINT_Comment;
+            ParseToken := iCommentError;
+          end
+          else
+            CurrTokenId := CSTIINT_Comment;
+          CurrTokenLen := ci - ct + 1;
+        end;
+    else begin
+        ParseToken := iSyntaxError;
+        CurrTokenId := CSTIINT_Comment;
+        CurrTokenLen := 1;
+      end;
+    end;
+  end;
+  //-------------------------------------------------------------------
+begin
+  if FText = nil then begin
+    FTokenLength := 0;
+    FRealPosition := 0;
+    FRow := 1;
+    FLastEnterPos := 0;
+    FTokenId := CSTI_EOF;
+    Exit;
+  end;
+  repeat
+    FRealPosition := FRealPosition + FTokenLength;
+    Err := ParseToken(FRealPosition, FTokenLength, FTokenID);
+    if Err <> iNoError then begin
+      FTokenLength := 0;
+      FTokenId := CSTI_EOF;
+      FToken := '';
+      FOriginalToken := '';
+      FCol := Longint(FRealPosition) - FLastEnterPos;
+      if @FParserError <> nil then FParserError(Self, Err);
+      exit;
+    end;
+    case FTokenID of
+      CSTIINT_Comment, CSTIINT_WhiteSpace: Continue;
+      CSTI_Integer, CSTI_Real, CSTI_String, CSTI_Date, CSTI_HexInt: begin
+          FOriginalToken := _GetToken(FRealPosition, FTokenLength);
+          FToken := FOriginalToken;
+        end;
+      CSTI_Identifier: begin
+          FOriginalToken := _GetToken(FRealPosition, FTokenLength);
+          FToken := FastUppercase(FOriginalToken);
+        end;
+    else begin
+        FOriginalToken := '';
+        FToken := '';
+      end;
+    end;
+    Break;
+  until False;
+  FCol := Longint(FRealPosition) - FLastEnterPos;
+end;
+
+procedure TROPascalParser.SetText(const Data: string);
+begin
+  FData := Data;
+  FText := Pointer(FData);
+  FTokenLength := 0;
+  FRealPosition := 0;
+  FRow := 1;
+  FLastEnterPos := -1;
+  FTokenId := CSTI_EOF;
+  Next;
+end;
+
+{ TROMacroParser }
+
+function TROMacroParser.AddVariable(const Name: string): TROMacroVar;
+begin
+  Result := TROMacroVar.Create(Uppercase(Name));
+  FVars.Add(Result);
+end;
+
+procedure TROMacroParser.ClearProcs;
+var
+  i: Longint;
+begin
+  for i := FProcs.Count - 1 downto 0 do begin
+    TROMacroProc(FPRocs[i]).Free;
+  end;
+  FProcs.Clear;
+end;
+
+procedure TROMacroParser.ClearVariables;
+var
+  i: Longint;
+begin
+  for i := FVars.Count - 1 downto 0 do begin
+    TROMacroVar(FVars[i]).Free;
+  end;
+  FVars.Clear;
+end;
+
+constructor TROMacroParser.Create;
+begin
+  inherited Create;
+  FProcs := TList.Create;
+  FVars := TList.Create;
+  FParser := TROPascalParser.Create;
+  FParser.OnParserError := ParserError;
+end;
+
+procedure TROMacroParser.DeleteVariable(I: Integer);
+var
+  f: TROMacroVar;
+begin
+  f := FVars[i];
+  FVars.Delete(i);
+  f.Free;
+end;
+
+destructor TROMacroParser.Destroy;
+begin
+  FParser.Free;
+  ClearProcs;
+  ClearVariables;
+  FProcs.Free;
+  FVars.Free;
+  inherited Destroy;
+end;
+
+function MKString(const s: string): string;
+begin
+  Result := StringReplace(s, #39#39, #39, [rfReplaceAll]);
+  Delete(Result, 1, 1);
+  Delete(Result, Length(Result), 1);
+end;
+
+function SQLEscapeStr(const s: string): string;
+var
+  i, l: Longint;
+  c: char;
+begin
+  SetLength(Result, Length(s) + 10);
+  Result[1] := '''';
+  i := 1;
+  l := 1;
+  while i <= length(s) do begin
+    case s[i] of
+      #13: c := 'r';
+      #10: c := 'n';
+      #9: c := 't';
+      '\': c := '\';
+      #39: c := #39;
+      '"': c := '"';
+    else
+      c := #0;
+    end;
+    if c = #0 then begin
+      inc(l);
+      if L > Length(Result) then
+        SetLength(Result, l + 10);
+      Result[l] := s[i];
+    end
+    else begin
+      inc(l, 2);
+      if L > Length(Result) then
+        SetLength(Result, l + 10);
+      Result[l - 1] := '\';
+      Result[l] := c;
+    end;
+    Inc(i);
+  end;
+  SetLength(Result, l + 1);
+  Result[l + 1] := '''';
+end;
+
+type
+  TOperator = (opFirst, opAdd);
+
+function TROMacroParser.EvalToken(const Text: string): string;
+
+  function Evaluate: string;
+  var
+    h, i: Longint;
+    b: Boolean;
+    resval: string;
+
+    procedure CheckParamCount(P: TROMacroProc; Params: array of string);
+    begin
+      if (Length(Params) < P.ParamCount) then
+        raise Exception.CreateFmt('Invalid number of parameters. %d given, %d expected.',
+          [Length(Params), P.ParamCount])
+    end;
+
+    function CallProc(P: TROMacroProc): string;
+    var
+      Params: array of string;
+      s: string;
+    begin
+      Params:=nil;
+      FParser.Next;
+      if FParser.CurrTokenId <> CSTI_OpenRound then begin
+        CheckParamCount(P, Params);
+        Result := P.ExternalProc(Self, Params);
+        exit;
+      end;
+      FParser.Next;
+      while FParser.CurrTokenID <> CSTI_CloseRound do begin
+        s := Evaluate;
+        SetLength(Params, Length(Params) + 1);
+        Params[Length(Params) - 1] := s;
+        if FParser.CurrTokenId = CSTI_CloseRound then begin
+          Break;
+        end;
+        if FParser.CurrTokenId <> CSTI_Comma then
+          raise Exception.Create('[' + IntToStr(FParser.Row) + ':' + IntToStr(FParser.Col) + ']: Closing parenthesis expected');
+        FParser.Next;
+      end;
+      FParser.Next;
+
+      CheckParamCount(P, Params);
+      Result := P.ExternalProc(Self, Params);
+    end;
+  begin
+    Result := '';
+    while true do begin
+      case FParser.CurrTokenID of
+        CSTI_Identifier: begin
+            h := MakeHash(FParser.GetToken);
+            b := False;
+            for i := 0 to FProcs.Count - 1 do begin
+              with TROMacroProc(FProcs[i]) do begin
+                if (ExternalNameHash = h) and SameText(ExternalName, FParser.GetToken) then begin
+                  resval := CallProc(TROMacroProc(FProcs[i]));
+                  b := True;
+                end;
+              end;
+            end;
+            if (not b) then begin
+              for i := 0 to FVars.Count - 1 do begin
+                with TROMacroVar(FVars[i]) do begin
+                  if (NameHash = h) and (Name = FParser.GetToken) then begin
+                    FParser.Next;
+                    resval := Value;
+                    b := True;
+                    break;
+                  end;
+                end;
+              end;
+            end;
+            if (not b) and (@FOnUnknownIdentifier <> nil) then begin
+              b := FOnUnknownIdentifier(Self, FParser.GetToken, FParser.OriginalToken, resval);
+              if b then FParser.Next;
+            end;
+            if not b then
+              raise Exception.Create('[' + IntToStr(FParser.Row) + ':' + IntToStr(FParser.Col) + ']: Unknown identifier ' + FParser.GetToken);
+          end;
+        CSTI_Real, CSTI_Integer: begin
+            Resval := FParser.GetToken;
+            FParser.Next;
+          end;
+        CSTI_HexInt: begin
+            Resval := IntToStr(StrToInt(FParser.GetToken));
+            FParser.Next;
+          end;
+        CSTI_String, CSTI_Date: begin
+            Resval := '';
+            while (FParser.CurrTokenId = CSTI_String) or (FParser.CurrTokenId = CSTI_Date) do begin
+              if FParser.CurrTokenId = CSTI_String then
+                Resval := resval + MKString(FParser.GetToken)
+              else
+                Resval := resval + FParser.GetToken;
+              FParser.Next;
+            end;
+            ResVal := SQLEscapeStr(ResVal);
+          end;
+      end;
+      Result := Result + ResVal;
+      case FParser.CurrTokenId of
+        CSTI_Minus: Result := Result + ' - ';
+        CSTI_Plus: Result := Result + ' + ';
+      else
+        Break;
+      end;
+      FParser.Next;
+    end;
+  end;
+begin
+  FParser.SetText(Text);
+  Result := Evaluate();
+  if FParser.CurrTokenID <> CSTI_EOF then
+  //  Raise Exception.Create('['+IntToStr(FParser.Row)+':'+IntToStr(FParser.Col)+']: End of expression expected');
+end;
+
+const
+  LenInc = 32;
+
+function TROMacroParser.Eval(const Text: string; TextDelimiter: char = ''''): string;
+var
+  start, i, l: Longint;
+  InStr: Boolean;
+  s: string;
+begin
+  SetLength(Result, Length(Text) + LenInc);
+  i := 1;
+  l := 0;
+  InStr := False;
+  while i <= length(Text) do begin
+    if Text[i] = '''' then
+      InStr := not InStr;
+    if (Text[i] = '{') and not (InStr) then begin
+      start := i;
+      inc(i);
+      InStr := False;
+      while i <= Length(Text) do begin
+        case Text[i] of
+          #39: InStr := not InStr;
+          '}': if not InStr then Break;
+        end;
+        Inc(i);
+      end;
+      s := EvalToken(Copy(Text, Start + 1, I - Start - 1));
+      if L + Length(s) > Length(Result) then
+        SetLength(Result, l + Length(s) + LenInc);
+      Start := 1;
+      while Start <= Length(s) do begin
+        Inc(l);
+        Result[l] := s[Start];
+        Inc(Start);
+      end;
+      Inc(i);
+    end
+    else begin
+      inc(l);
+      if L > Length(Result) then
+        SetLength(Result, l + LenInc);
+      Result[l] := Text[i];
+      Inc(i);
+    end;
+  end;
+  SetLength(Result, l);
+end;
+
+function TROMacroParser.GetVarCount: Longint;
+begin
+  Result := FVars.Count;
+end;
+
+function TROMacroParser.GetVarNo(I: Integer): TROMacroVar;
+begin
+  Result := FVars[i];
+end;
+
+procedure TROMacroParser.ParserError(Parser: TObject;
+  Kind: TROParserErrorKind);
+var
+  err: string;
+begin
+  case Kind of
+    iCommentError: err := 'Comment Error';
+    iCharError, iStringError: err := 'String error';
+  else
+    err := 'Syntax Error';
+  end;
+
+  raise Exception.Create('[' + IntToStr(FParser.Row) + ':' + IntToStr(FParser.Col) + ']: ' + err);
+end;
+
+procedure TROMacroParser.RegisterProc(const Name: string; ExProc: TExternalProc; aParamCount: integer);
+var
+  R: TROMacroProc;
+begin
+  R := TROMacroProc.Create;
+  r.ExternalName := UpperCase(Name);
+  r.ExternalNameHash := MakeHash(r.ExternalName);
+  r.ExternalProc := ExProc;
+  r.ParamCount := aParamCount;
+
+  FProcs.Add(r);
+end;
+
+function TROMacroParser.IndexOfName(const aName: string): integer;
+begin
+  For Result:= 0 to FVars.Count -1 do
+    if SameText(aName, TROMacroVar(FVars[Result]).Name) then Exit;
+  Result:=-1;
+end;
+
+{ TROMacroVar }
+
+constructor TROMacroVar.Create(const aName: string);
+begin
+  inherited Create;
+  FName := aName;
+  FNameHash := MakeHash(aName);
+end;
+
+procedure TROPascalParser.SkipWhiteSpaces(var ci: cardinal);
+begin
+  while CharInSet(FText[ci], [#32, #9, #13, #10]) do begin
+    if (FText[ci] = #13) then begin
+      if FText[ci + 1] = #10 then
+        Inc(ci);
+      FLastEnterPos := ci;
+      Inc(FRow);
+    end
+    else if FText[ci] = #10 then begin
+      FLastEnterPos := ci;
+      Inc(FRow);
+    end;
+    Inc(ci);
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMemDataTable.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMemDataTable.pas
new file mode 100644
index 0000000..06f6e08
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMemDataTable.pas	
@@ -0,0 +1,733 @@
+unit uDAMemDataTable;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes,DB, uDAInterfaces,
+  uDADataTable, uDAMemDataset;
+
+type
+  TDAMemDataset = class(TDAMemoryDataset, IDADataTableDataset)
+  private
+    FDeletedRecordsList: TStringList;
+    FLogDeletedRecords: Boolean;
+    procedure ClearDeletedRecords;
+  protected
+    function GetDataTable: TDADataTable; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure InternalRefresh; override;
+    procedure InternalInitFieldDefs; override;
+    procedure InternalOpen; override;
+    function GetStateFieldValue(State: TDataSetState;Field: TField): Variant; {$IFNDEF FPC}override;{$ENDIF}
+    procedure InternalDelete; override;
+    procedure InternalInsert; override;
+    procedure InternalPost; override;
+    procedure InternalClose; override;
+    procedure AttachToSource(const Source: TDAMemoryDataset); override;
+    procedure DetachFromSource; override;
+    procedure OpenCursor(InfoQuery: Boolean); override;
+    function IsLoadingState: Boolean; override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy;override;
+  end;
+
+  TDAMemDataTable = class(TDADataTable,IDAMemDatasetBatchAdding,IDARangeController)
+  private
+    fMemDataset: TDAMemDataset;
+    fWasReadonly: Boolean;
+    fMemCloneSource:TDAMemDataTable;
+    function GetIndexDefs: TIndexDefs;
+    function GetIndexName: string;
+    procedure SetIndexDefs(const Value: TIndexDefs);
+    procedure SetIndexName(const Value: string);
+    function GetIndexFieldNames: string;
+    procedure SetIndexFieldNames(const Value: string);
+    function GetAutoCompactRecords: boolean;
+    procedure SetAutoPackRecords(const Value: boolean);
+    procedure SetCloneSource(const Value: TDAMemDataTable);
+    procedure CloneCursorInternalOpen;
+    function GetCloneSource: TDAMemDataTable;
+    function GetAutoSortRecords: Boolean;
+    procedure SetAutoSortRecords(const Value: Boolean);
+    function GetCurrIDCallback: Integer;
+  protected
+    // IDAMemDatasetBatchAdding
+    function AllocRecordBuffer: PAnsiChar;
+    procedure FreeRecordBuffer(var Buffer: PAnsiChar);
+    function GetFieldNativeBuffer(Buffer: PAnsiChar; Field: TField): Pointer;
+    function MakeBlobFromString(Blob:AnsiString):pointer;
+    procedure SetNullMask(Buffer: PAnsiChar; Field: TField; const Value: boolean);
+    procedure SetAnsiString(NativeBuf: Pointer; Field: TField; const Value: Ansistring);
+    procedure SetWideString(NativeBuf: Pointer; Field: TField; const Value: Unicodestring);
+    procedure AddRecordsfromList(AList: TList; AppendMode: Boolean);
+    function GetFieldNo(AField: TField): integer;
+  protected
+    function GetRangeState: Boolean; override;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    function GetDatasetClass: TDatasetClass; override;
+    procedure CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection); override;
+    procedure DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection); override;
+
+    procedure SetMasterSource(const Value: TDADataSource); override;
+    function GetMasterSource: TDADataSource; override;
+    procedure SetDetailsFields(const Value: string); override;
+    procedure SetMasterFields(const Value: string); override;
+    function GetDetailFields: string; override;
+    function GetMasterFields: string; override;
+
+    function GetFilter: string; override;
+    function GetFiltered: boolean; override;
+    procedure SetFilter(const Value: string); override;
+    procedure SetFiltered(const Value: boolean); override;
+    function GetReadOnly: boolean; override;
+    procedure SetReadOnly(const Value: boolean); override;
+    procedure DoOpen(IgnoreAutoFetchSettings: Boolean = False); override;
+    function GetMasterDataLink: TMasterDataLink; override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure EnableConstraints; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DisableConstraints; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CloneCursor(Source: TDADataTable); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  { IDARangeController }
+    procedure ApplyRange; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure CancelRange; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRange(const StartValues, EndValues: array of const); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure EditRangeEnd; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure EditRangeStart; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRangeEnd; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure SetRangeStart; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    //
+    procedure SetKey;
+    procedure EditKey;
+    function FindKey(const KeyValues: array of const): Boolean;
+    procedure FindNearest(const KeyValues: array of const);
+    function GotoKey: Boolean;
+    procedure GotoNearest;
+    function LocateByIndex(const aIndexName: string; const KeyValues: Variant): Boolean;
+    function LookupByIndex(const aIndexName: string; const KeyValues: Variant; const ResultFields: string): Variant;
+    procedure PrepareIndexForSorting(const aIndexName: string = '');
+  published
+    property IndexDefs: TIndexDefs read GetIndexDefs write SetIndexDefs;
+    property IndexName: string read GetIndexName write SetIndexName;
+    property IndexFieldNames: string read GetIndexFieldNames write SetIndexFieldNames;
+    property AutoCompactRecords: boolean read GetAutoCompactRecords write SetAutoPackRecords default False;
+    property CloneSource: TDAMemDataTable read GetCloneSource write SetCloneSource;
+    property AutoSortRecords: Boolean read GetAutoSortRecords write SetAutoSortRecords default False;
+  end;
+
+
+implementation
+
+uses
+  SysUtils, Variants,
+  uROClasses, uROClient;
+
+{ TDAMemDataset }
+
+
+procedure TDAMemDataset.AttachToSource(const Source: TDAMemoryDataset);
+var
+  lMemSource: TDAMemDataTable;
+begin
+  inherited;
+  if (Source <> Self) and Active and  (Source is TDAMemDataset) then begin
+    lMemSource := TDAMemDataTable(GetDataTable);
+    lMemSource.Fields.Clear;
+    lMemSource.Fields.Assign(TDAMemDataset(Source).GetDataTable.Fields);
+    lMemSource.Fields.Bind(Self);
+    if Fields.Count > 0 then begin
+      lMemSource.RecIDField := Self.FieldByName(RecIDFieldName) as TIntegerField;
+      lMemSource.RecIDField.Visible := FALSE;
+    end;
+  end;
+end;
+
+procedure TDAMemDataset.ClearDeletedRecords;
+var
+  buf: Dataset_PAnsiChar;
+begin
+  while FDeletedRecordsList.Count <> 0 do begin
+    buf := Pointer(FDeletedRecordsList.Objects[FDeletedRecordsList.Count-1]);
+    FreeRecordBuffer(Buf);
+    FDeletedRecordsList.Delete(FDeletedRecordsList.Count-1);
+  end;
+end;
+
+constructor TDAMemDataset.Create(AOwner: TComponent);
+begin
+  inherited;
+  FDeletedRecordsList := TStringList.Create;
+  FLogDeletedRecords := True;
+end;
+
+destructor TDAMemDataset.Destroy;
+begin
+  inherited;
+  ClearDeletedRecords;
+  FDeletedRecordsList.Free;
+end;
+
+procedure TDAMemDataset.DetachFromSource;
+begin
+  if GetDataTable <> nil then GetDataTable.Close;
+  inherited;
+end;
+
+function TDAMemDataset.GetDataTable: TDADataTable;
+begin
+  result := TDADataTable(Owner);
+end;
+
+function TDAMemDataset.GetStateFieldValue(State: TDataSetState;
+  Field: TField): Variant;
+begin
+  if (State = dsOldValue) and (Self.State in [dsEdit, dsInsert]) then
+    Result := TDAMemDataTable(GetDataTable).fOldValues[Field.Index]
+  else
+   {$IFNDEF FPC} result := Inherited GetStateFieldValue(State, Field){$ENDIF};
+end;
+
+procedure TDAMemDataset.InternalClose;
+begin
+  ClearDeletedRecords;
+  inherited;
+end;
+
+procedure TDAMemDataset.InternalDelete;
+var
+  buf: pointer;
+begin
+  if FLogDeletedRecords and (GetDataTable.LogChanges) then begin
+    buf := CreateMemDatasetRecord(mrEmpty,0,True);
+    RecordToBuffer(CurrentRecord, buf);
+    FDeletedRecordsList.AddObject(Self.Fields[0].AsString, buf);
+  end;
+  inherited;
+end;
+
+procedure TDAMemDataset.InternalInitFieldDefs;
+begin
+  inherited;
+end;
+
+procedure TDAMemDataset.InternalInsert;
+var
+  fCurRec: String;
+  i: integer;
+  buf1: Pointer;
+begin
+  if FLogDeletedRecords then begin
+     fCurRec := IntToStr(GetDataTable.CurrRecId);
+     i := FDeletedRecordsList.IndexOf(fCurRec);
+     if i <> -1  then begin
+       buf1:=ActiveBuffer;
+       DuplicateBuffer(Pointer(FDeletedRecordsList.Objects[i]), buf1, True);
+     end;
+  end;
+  inherited;
+end;
+
+procedure TDAMemDataset.InternalOpen;
+begin
+  inherited;
+end;
+
+procedure TDAMemDataset.InternalPost;
+var
+  i: integer;
+  buf: Dataset_PAnsiChar;
+begin
+  inherited;
+  if FLogDeletedRecords and (State = dsInsert) then begin
+     i := FDeletedRecordsList.IndexOf(Fields[0].AsString);
+     if i <> -1  then begin
+       buf := pointer(FDeletedRecordsList.Objects[i]);
+       FreeRecordBuffer(buf);
+       FDeletedRecordsList.Delete(i);
+     end;
+  end;
+end;
+
+procedure TDAMemDataset.InternalRefresh;
+begin
+  inherited;
+end;
+
+function TDAMemDataset.IsLoadingState: Boolean;
+begin
+  Result := inherited IsLoadingState or ((Owner <> nil) and ((csLoading in Owner.ComponentState)));
+end;
+
+procedure TDAMemDataset.OpenCursor(InfoQuery: Boolean);
+begin
+  inherited;
+  if (not InfoQuery) and Active then
+    FieldByName(RecIDFieldName).Visible := FALSE;
+end;
+
+{ TDAMemDataTable }
+
+
+procedure TDAMemDataTable.AddRecordsfromList(AList: TList;AppendMode: Boolean);
+
+  function GetPK: string;
+  var
+    i: integer;
+  begin
+    Result := '';
+    for i := 0 to Fields.Count-1 do
+      if Fields[i].InPrimaryKey then
+        Result := Result + Fields[i].Name+';';
+    if Result <> '' then begin
+      Result := Copy(Result, 1, Length(Result)-1);
+    end
+    else begin
+      // use AutoInc as PK
+      for i := 0 to Fields.Count-1 do
+        if Fields[i].DataType in [datAutoInc, datLargeAutoInc] then begin
+          Result := Result + Fields[i].Name;
+          break;
+        end;
+    end;
+  end;
+
+var
+  rec: TDACallbackRecord;
+begin
+  Rec.RecIDCallback := GetCurrIDCallback;
+  Rec.PK := GetPK;
+  Rec.AppendMode := AppendMode and (Rec.PK <> '');
+  fMemDataset.AddRecordsfromList(AList,@Rec);
+//  fMemDataset.ProcessFilter;
+end;
+
+function TDAMemDataTable.AllocRecordBuffer: PAnsiChar;
+begin
+  Result:= Pointer(fMemDataset.CreateMemDatasetRecord(mrBin2Style,0,False));
+end;
+
+procedure TDAMemDataTable.ApplyRange;
+begin
+  fMemDataset.ApplyRange;
+end;
+
+procedure TDAMemDataTable.Assign(Source: TPersistent);
+var
+  lSource: TDAMemDataTable;
+begin
+  inherited;
+  if Source is TDAMemDataTable then begin
+    lSource := TDAMemDataTable(Source);
+
+    AutoCompactRecords := lSource.AutoCompactRecords;
+    AutoSortRecords := lSource.AutoSortRecords;
+    IndexDefs := lSource.IndexDefs;
+    IndexFieldNames := lSource.IndexFieldNames;
+    IndexName := lSource.IndexName;
+    CloneSource := lSource.CloneSource;
+  end;
+end;
+
+procedure TDAMemDataTable.CancelRange;
+begin
+  fMemDataset.CancelRange;
+end;
+
+procedure TDAMemDataTable.CloneCursor(Source: TDADataTable);
+begin
+  if Source = nil then Exception.Create('CloneCursor. Source should be specified.');
+  if not (Source is TDAMemDataTable) then Exception.Create('Can''t clone cursor from ' + Source.ClassName);
+  if Source = Self then DatabaseError(Self.Name+ ': Can''t use itself as clonesource table');
+  if Active then raise Exception.Create('Datatable is already open');
+  FMemCloneSource := nil;
+  CloneSource := (Source as TDAMemDataTable);
+  CloneCursorInternalOpen;
+end;
+
+procedure TDAMemDataTable.CloneCursorInternalOpen;
+begin
+  try
+    FMemCloneSource.Open;
+    fMemDataset.Open;
+    RecIDField := fMemDataset.FieldByName(RecIDFieldName) as TIntegerField;
+    RecIDField.Visible := FALSE;
+
+    Fields.Bind(fMemDataset);
+
+    // Prepares the delta
+    Delta := FMemCloneSource.Delta;
+
+    // Finishes to prepare the internal dataset (descendant might need additional customization and might not be open)
+    DoBeforeOpenDataset;
+    if not FMemDataset.Active then FMemDataset.Open;
+    DoAfterOpenDataset;
+  except
+    // Restores the previous state
+    fMemCloneSource := NIL;
+    Delta := NIL;
+    raise;
+  end;
+end;
+
+constructor TDAMemDataTable.Create(aOwner: TComponent);
+begin
+  inherited;
+  fMemDataset := TDAMemDataset(Dataset);
+end;
+
+procedure TDAMemDataTable.CreateInternalFields(aDataset: TDataset;
+  someFieldDefinitions: TDAFieldCollection);
+begin
+  inherited;
+  fMemDataset.Open;
+end;
+
+destructor TDAMemDataTable.Destroy;
+begin
+  CloneSource := nil;
+  inherited;
+end;
+
+procedure TDAMemDataTable.DisableConstraints;
+begin
+  fWasReadonly := ReadOnly;
+  ReadOnly := False;
+//  fMemDataset.DisableConstraints;
+end;
+
+procedure TDAMemDataTable.DoOpen(IgnoreAutoFetchSettings: Boolean);
+begin
+  fCloneSource := fMemCloneSource;
+  inherited;
+end;
+
+procedure TDAMemDataTable.DoSort(const FieldNames: array of string;
+  const Directions: array of TDASortDirection);
+var
+  i: integer;
+  s,s1: string;
+begin
+  if Length(FieldNames) <> Length(Directions) then DatabaseError('Can''t perform sorting: FieldNames and Directions should have same dimension.');
+  s := '';
+  s1:='';
+  for i := Low(FieldNames) to High(FieldNames) do begin
+    s := s + FieldNames[i] + ';';
+    if Directions[i] = sdDescending then
+      s1 :=  s1 + FieldNames[i] + ';';
+  end;
+  fMemDataset.SortOnFields(s,'',s1);
+end;
+
+procedure TDAMemDataTable.EditKey;
+begin
+  fMemDataset.EditKey;
+end;
+
+procedure TDAMemDataTable.EditRangeEnd;
+begin
+  fMemDataset.EditRangeEnd;
+end;
+
+procedure TDAMemDataTable.EditRangeStart;
+begin
+  fMemDataset.EditRangeStart;
+end;
+
+procedure TDAMemDataTable.EnableConstraints;
+begin
+  //fMemDataset.EnableConstraints;
+  ReadOnly := fWasReadonly;
+end;
+
+function TDAMemDataTable.FindKey(const KeyValues: array of const): Boolean;
+begin
+  Result := fMemDataset.FindKey(KeyValues);
+end;
+
+procedure TDAMemDataTable.FindNearest(const KeyValues: array of const);
+begin
+  fMemDataset.FindNearest(KeyValues);
+end;
+
+procedure TDAMemDataTable.FreeRecordBuffer(var Buffer: PAnsiChar);
+begin
+  fMemDataset.FreeMemDatasetRecord(PMemDatasetrecord_Native(Buffer));
+  Buffer := nil;
+end;
+
+function TDAMemDataTable.GetAutoCompactRecords: boolean;
+begin
+  Result := fMemDataset.AutoCompactRecords;
+end;
+
+function TDAMemDataTable.GetAutoSortRecords: Boolean;
+begin
+  Result := fMemDataset.AutoSortRecords;
+end;
+
+function TDAMemDataTable.GetCloneSource: TDAMemDataTable;
+begin
+  Result := fMemCloneSource;
+  if Result = nil then Result := TDAMemDataTable(fCloneSource);
+end;
+
+function TDAMemDataTable.GetCurrIDCallback: Integer;
+begin
+  Result := CurrRecId;
+  CurrRecId:=CurrRecId+1;
+end;
+
+function TDAMemDataTable.GetDatasetClass: TDatasetClass;
+begin
+  Result := TDAMemDataset;
+end;
+
+function TDAMemDataTable.GetDetailFields: string;
+begin
+  result := fMemDataset.DetailFields;
+end;
+
+function TDAMemDataTable.GetFieldNativeBuffer(Buffer: PAnsiChar;
+  Field: TField): Pointer;
+begin
+  Result:= fMemDataset.IntFindFieldData(PMemDatasetrecord_Native(Buffer)^.Data, Field, True);
+end;
+
+function TDAMemDataTable.GetFieldNo(AField: TField): integer;
+begin
+  Result := fMemDataSet.GetFieldNo(AField);
+end;
+
+function TDAMemDataTable.GetFilter: string;
+begin
+  Result := fMemDataset.Filter;
+end;
+
+function TDAMemDataTable.GetFiltered: boolean;
+begin
+  Result := fMemDataset.Filtered;
+end;
+
+function TDAMemDataTable.GetIndexDefs: TIndexDefs;
+begin
+  result := fMemDataset.IndexDefs;
+end;
+
+function TDAMemDataTable.GetIndexFieldNames: string;
+begin
+  Result := fMemDataset.IndexFieldNames;
+end;
+
+function TDAMemDataTable.GetIndexName: string;
+begin
+  result := fMemDataset.IndexName;
+end;
+
+function TDAMemDataTable.GetMasterDataLink: TMasterDataLink;
+begin
+  Result := fMemDataset.MasterDataLink;
+end;
+
+function TDAMemDataTable.GetMasterFields: string;
+begin
+  result := fMemDataset.MasterFields
+end;
+
+function TDAMemDataTable.GetMasterSource: TDADataSource;
+begin
+  result := TDADataSource(fMemDataset.DataSource);
+end;
+
+function TDAMemDataTable.GetRangeState: Boolean;
+begin
+  Result:= fMemDataset.RangeActive;
+end;
+
+function TDAMemDataTable.GetReadOnly: boolean;
+begin
+  Result := fMemDataset.ReadOnly;
+end;
+
+function TDAMemDataTable.GotoKey: Boolean;
+begin
+  Result := fMemDataset.GotoKey;
+end;
+
+procedure TDAMemDataTable.GotoNearest;
+begin
+  fMemDataset.GotoNearest;
+end;
+
+function TDAMemDataTable.LocateByIndex(const aIndexName: string;
+  const KeyValues: Variant): Boolean;
+begin
+  Result:= fMemDataset.LocateByIndex(aIndexName,KeyValues);
+end;
+
+function TDAMemDataTable.LookupByIndex(const aIndexName: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  Result:= fMemDataset.LookupByIndex(aIndexName,KeyValues,ResultFields);
+end;
+
+function TDAMemDataTable.MakeBlobFromString(Blob: AnsiString): pointer;
+begin
+  Result:= fMemDataset.MakeBlobFromString(Blob);
+end;
+
+procedure TDAMemDataTable.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (Operation = opRemove) and (AComponent = FCloneSource) then
+    CloneSource := nil;
+  if (Operation = opRemove) and (AComponent = fMemCloneSource) then
+    CloneSource := nil;
+end;
+
+procedure TDAMemDataTable.PrepareIndexForSorting(const aIndexName: string);
+begin
+  fMemDataset.PrepareIndexForSorting(aIndexName);
+end;
+
+procedure TDAMemDataTable.SetAnsiString(NativeBuf: Pointer; Field: TField;
+  const Value: Ansistring);
+begin
+  fMemDataset.SetAnsiString(NativeBuf,Field, Value);
+end;
+
+procedure TDAMemDataTable.SetAutoPackRecords(const Value: boolean);
+begin
+  fMemDataset.AutoCompactRecords := Value;
+end;
+
+procedure TDAMemDataTable.SetAutoSortRecords(const Value: Boolean);
+begin
+  fMemDataset.AutoSortRecords := Value;
+end;
+
+procedure TDAMemDataTable.SetCloneSource(const Value: TDAMemDataTable);
+
+var
+  FOldActive: Boolean;
+begin
+  FOldActive := Active;
+  Close;
+  if fMemCloneSource <> nil then fMemCloneSource.RORemoveFreeNotification(Self);
+  if (fCloneSource <> nil) then fCloneSource.RORemoveFreeNotification(Self);
+  if FMemCloneSource <> Value then begin
+    if (Value <> nil) then begin
+      Fields.Clear;
+      Fields.Assign(Value.Fields);
+    end;
+    FCloneSource := Value;
+    FMemCloneSource := Value;
+    if Value <> nil then
+      fMemDataset.CloneSource := Value.fMemDataset
+    else
+      fMemDataset.CloneSource := nil;
+    if fMemCloneSource <> nil then fMemCloneSource.ROFreeNotification(Self);
+    if (fCloneSource <> nil) and (fMemCloneSource <>fCloneSource) then fCloneSource.ROFreeNotification(Self);
+  end;
+  if FOldActive and (FMemCloneSource <> nil) then
+    CloneCursorInternalOpen;
+end;
+
+procedure TDAMemDataTable.SetDetailsFields(const Value: string);
+begin
+  fMemDataset.DetailFields := Value
+end;
+
+procedure TDAMemDataTable.SetFilter(const Value: string);
+begin
+  fMemDataset.Filter := Value;
+end;
+
+procedure TDAMemDataTable.SetFiltered(const Value: boolean);
+begin
+  fMemDataset.Filtered := Value;
+end;
+
+procedure TDAMemDataTable.SetIndexDefs(const Value: TIndexDefs);
+begin
+  fMemDataset.IndexDefs.Assign(Value);
+end;
+
+procedure TDAMemDataTable.SetIndexFieldNames(const Value: string);
+begin
+  fMemDataset.IndexFieldNames := Value;
+end;
+
+procedure TDAMemDataTable.SetIndexName(const Value: string);
+begin
+  fMemDataset.IndexName:=Value;
+end;
+
+procedure TDAMemDataTable.SetKey;
+begin
+  fMemDataset.SetKey;
+end;
+
+procedure TDAMemDataTable.SetMasterFields(const Value: string);
+begin
+  inherited;
+  fMemDataset.MasterFields := Value
+end;
+
+procedure TDAMemDataTable.SetMasterSource(const Value: TDADataSource);
+begin
+  fMemDataset.MasterSource := Value;
+  inherited;
+end;
+
+procedure TDAMemDataTable.SetNullMask(Buffer: PAnsiChar; Field: TField;
+  const Value: boolean);
+begin
+  fMemDataset.SetNullMask(Dataset_PAnsiChar(Buffer),fMemDataset.GetFieldNo(Field),Value);
+end;
+
+procedure TDAMemDataTable.SetRange(const StartValues,
+  EndValues: array of const);
+begin
+  fMemDataset.SetRange(StartValues, EndValues);
+end;
+
+procedure TDAMemDataTable.SetRangeEnd;
+begin
+  fMemDataset.SetRangeEnd;
+end;
+
+procedure TDAMemDataTable.SetRangeStart;
+begin
+  fMemDataset.SetRangeStart;
+end;
+
+procedure TDAMemDataTable.SetReadOnly(const Value: boolean);
+begin
+  fMemDataset.ReadOnly := Value;
+end;
+
+procedure TDAMemDataTable.SetWideString(NativeBuf: Pointer; Field: TField;
+  const Value: Unicodestring);
+begin
+  fMemDataset.SetWideString(NativeBuf, Field, Value);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMemDataset.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMemDataset.pas
new file mode 100644
index 0000000..2cdc86f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMemDataset.pas	
@@ -0,0 +1,5309 @@
+unit uDAMemDataset;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+{.$DEFINE MEMDATASET_DEBUG}
+{$DEFINE CHECK_RANGE}
+{$DEFINE USE_REALLOC}
+// defer to .XX
+{.$DEFINE MEM_PACKETRECORDS}
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Classes, DB, uDAExpressionEvaluator;
+
+type
+{$IFDEF DELPHI2009UP}
+  Dataset_PAnsiChar = PByte;
+{$ELSE}
+  Dataset_PAnsiChar = PAnsiChar;
+{$ENDIF}
+
+{$IFDEF UNICODE}
+  UnicodeChar = Char;
+  PUnicodeChar = PChar;
+{$ELSE}
+  UnicodeString = WideString;
+  PUnicodeString = PWideString;
+  UnicodeChar = WideChar;
+  PUnicodeChar = PWideChar;
+{$ENDIF}
+
+{$IFDEF DELPHI2009UP}
+  TMemBookmarkData = TBookmark;
+{$ELSE}
+  TMemBookmarkData = TBookmarkStr;
+{$ENDIF}
+
+  TDAMemoryDataset = class;
+  PBookmarkData = ^TBookmarkData;
+  TBookmarkData = Pointer;
+
+  PRecInfo = ^TRecInfo;
+  TRecInfo = packed record
+    Bookmark: TBookmarkData;
+    BookmarkFlag: TBookmarkFlag;
+  end;
+
+  TOffsetArray = array of Cardinal;
+  PBLOBRecord = ^TBLOBRecord;
+  TBLOBRecord = packed record
+    size: Cardinal;
+    Data: UnicodeChar;
+  end;
+
+  TSortRecord = record
+    data: PAnsiChar;
+    position: integer;
+  end;
+
+  PSortRecordList = ^TSortRecordList;
+  TSortRecordList = array[0..MaxListSize - 1] of TSortRecord;
+
+  // these operators are used in Assign and go beyond simply copying
+  //   mlaCopy = dest becomes a copy of the source
+  //   mlaAnd  = intersection of the two lists
+  //   mlaOr   = union of the two lists
+  //   mlaXor  = only those not in both lists
+  // the last two operators can actually be thought of as binary operators but
+  // their implementation has been optimized over their binary equivalent.
+  //   mlaSrcUnique  = only those unique to source (same as mlaAnd followed by mlaXor)
+  //   mlaDestUnique = only those unique to dest   (same as mlaOr followed by mlaXor)
+  TMemListAssignOp = (mlaCopy, mlaAnd, mlaOr, mlaXor, mlaSrcUnique, mlaDestUnique);
+
+  TMemList = class(TObject)
+  private
+    FList: PPointerList;
+    FSortList:PSortRecordList;
+    FCount: Integer;
+    FCapacity: Integer;
+    FNeedRefresh: boolean;
+    procedure QuickSort(L, R: Integer);
+    procedure Sort;
+    function intIndexOf(Item: PAnsiChar): Integer;
+  protected
+    function Get(Index: Integer): Pointer;
+    procedure Grow; virtual;
+    procedure Put(Index: Integer; Item: Pointer);
+    procedure SetCapacity(NewCapacity: Integer);
+    procedure SetCount(NewCount: Integer);
+  public
+    constructor Create;
+    destructor Destroy; override;
+    function Add(Item: Pointer): Integer;
+    procedure Clear; virtual;
+    procedure Delete(Index: Integer);
+    class procedure Error(const Msg: string; Data: Integer); overload; virtual;
+    class procedure Error(Msg: PResStringRec; Data: Integer); overload;
+    procedure Exchange(Index1, Index2: Integer);
+    function Expand: TMemList;
+    function Extract(Item: Pointer): Pointer;
+    function First: Pointer;
+    function IndexOf(Item: Pointer): Integer;
+    procedure Insert(Index: Integer; Item: Pointer);
+    function Last: Pointer;
+    procedure Move(CurIndex, NewIndex: Integer);
+    function Remove(Item: Pointer): Integer;
+    procedure Pack;
+    procedure Assign(ListA: TMemList; AOperator: TMemListAssignOp = mlaCopy; ListB: TMemList = nil);
+    property Capacity: Integer read FCapacity write SetCapacity;
+    property Count: Integer read FCount write SetCount;
+    property Items[Index: Integer]: Pointer read Get write Put; default;
+    property List: PPointerList read FList;
+  end;
+
+  TThreadMemList = class
+  private
+    FList: TMemList;
+    FLock: TRTLCriticalSection;
+    FReadLock: Integer;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Add(Item: Pointer);
+    procedure Clear;
+    function  LockListForReading: TMemList;
+    function  LockListForWriting: TMemList;
+    procedure Remove(Item: Pointer);
+    procedure UnlockListForReading;
+    procedure UnlockListForWriting;
+  end;
+
+  TMemDataSetNotification = (mdnInsert, mdnModify, mdnDelete, mdnBatchAdding);
+
+  TDAValueStruct = record
+    Value: variant;
+    AsAnsiString: AnsiString;
+    AsWideString: UnicodeString;
+  end;
+
+  TMemKeyIndex = (kiLookup, kiRangeStart, kiRangeEnd, kiCurRangeStart, kiCurRangeEnd, kiSave);
+
+  PMemKeyBuffer = ^TMemKeyBuffer;
+  TMemKeyBuffer = record
+    Modified: Boolean;
+    Exclusive: Boolean;
+    FieldCount: Integer;
+    Data: record end;  // native bin2 format
+  end;
+
+{$IFDEF BDS4UP}{$REGION 'MEM_PACKETRECORDS'}{$ENDIF BDS4UP}
+  {$IFDEF MEM_PACKETRECORDS}
+
+    TMemPackedRecords = class;
+
+    TMemPackedRecord = class
+    private
+      fBuffer: PAnsiChar;
+      FOwner: TMemPackedRecords;
+      function GetValues(Index: Integer): Variant;
+      procedure SetValues(Index: Integer; const Value: Variant);
+      function GetIsNull(Index: Integer): Boolean;
+      procedure SetIsNull(Index: Integer; const Value: Boolean);
+      function GetValuesByFieldName(AName: string): Variant;
+      procedure SetValuesByFieldName(AName: string; const Value: Variant);
+    public
+      constructor Create(AOwner: TMemPackedRecords);
+      destructor Destroy; override;
+      property isNull[Index: Integer]: Boolean read GetIsNull write SetIsNull;
+      property Values[Index: Integer]: Variant read GetValues write SetValues;
+      property ValuesByFieldName[AName: string]: Variant read GetValuesByFieldName write SetValuesByFieldName;
+    end;
+
+    TMemPackedRecords = class
+    private
+      fOwner: TDAMemoryDataset;
+      fList: TList;
+      function GetCount: Integer;
+      function GetItems(Index: Integer): TMemPackedRecord;
+    public
+      constructor Create(AOwner: TDAMemoryDataset);
+      destructor Destroy; override;
+      procedure Clear;
+      function Add: TMemPackedRecord;
+      procedure Delete(aIndex: integer);
+      property Items[Index: Integer]: TMemPackedRecord read GetItems;
+      property Count: Integer read GetCount;
+    end;
+  {$ENDIF MEM_PACKETRECORDS}
+
+{$IFDEF BDS4UP}{$ENDREGION}{$ENDIF BDS4UP}
+  TDAMemIndex = class
+  private
+    FOwner: TDAMemoryDataset;
+    FSortDescMode: Boolean;
+    FIndexCaseInsList: TList;
+    FIndexDescFields: TList;
+    FIndexFieldNameList: TList;
+    FDataList: TMemList;
+    FInitFromIndexDef: Boolean;
+    FLastSorted: TDateTime;
+    FIndexDef_Options: TIndexOptions;
+    FIndexDef_Fields: string;
+    FIndexDef_DescFields: string;
+    FIndexDef_CaseInsFields: String;
+    FInit_FieldNames: String;
+    FInit_CaseInsFields: String;
+    FInit_DescFields: String;
+    FUseFullList: Boolean;
+    procedure Init(const AFieldNames: string; const CaseInsFields: string = ''; const DescFields: string='');overload;
+    procedure Init(const Fields: string; CaseInsensitive, Descending: Boolean);overload;
+    procedure Init(AIndexDef: TIndexDef); overload;
+    function GetDataList: TMemList;
+    procedure Clear;
+    function IsValid: boolean;
+    procedure UpdateIndex(AIndexDef: TIndexDef);
+    function isCanUsed(const Fields: string; CaseInsensitive: Boolean): boolean;
+    property IndexFieldNameList: TList read FIndexFieldNameList;
+    property IndexCaseInsList: TList read FIndexCaseInsList;
+    property IndexDescFields: TList read FIndexDescFields;
+    property SortDescMode : Boolean read FSortDescMode;
+    property DataList: TMemList read GetDataList;
+    property LastSorted: TDateTime read FLastSorted write FLastSorted;
+    property UseFullList: Boolean read FUseFullList write FUseFullList;
+  public
+    constructor Create(AOwner: TDAMemoryDataset);
+    destructor Destroy; override;
+  end;
+
+  PMemLocateStruct = ^TMemLocateStruct;
+  TMemLocateStruct = record
+    lWorkList: TMemList;
+    lFields: TList;
+    lFieldIndexes: array of integer;
+    lOffsets: array of cardinal;
+    lValues: array of TDAValueStruct;
+    lDatatypes: array of TFieldType;
+    lnull: array of boolean;
+    ldesc: array of boolean;
+    lcaseIns: array of boolean;
+  end;
+
+  TmrMode = (mrEmpty, mrBin2Style, mrBin3Style);
+
+    {BitMask: AnsiChar;
+    offsetDataSize: byte;
+    case integer of
+     1:( byteOffset: array [0..0] of byte);
+     2:( WordOffset: array [0..0] of word);
+     4:( CardinalOffset: array [0..0] of Cardinal);
+    }
+  PMemDatasetrecord_Native = ^TMemDatasetrecord_Native;
+  TMemDatasetrecord_Native = packed record
+    Ident: TmrMode;
+    Data: Dataset_PAnsiChar;
+  end;
+
+  PMemDatasetrecord = ^TMemDatasetrecord;
+  TMemDatasetrecord = packed record
+    Ident: TmrMode;
+    Data: Dataset_PAnsiChar;
+    BookmarkData: TRecInfo;
+    CalcData: byte;
+//  FBookMarkOffset := FNativeRecordSize;
+//  FCalculatedOffset := FBookMarkOffset + SizeOf(TRecInfo);
+//  FDatasetBufferSize := FCalculatedOffset + CalcFieldsSize;
+  end;
+
+  TMemLocateCompare = function (buf1: pointer; aValue:TDAValueStruct; aDataType: TFieldType;aSortCaseInsensitive:Boolean; abin2: boolean): boolean of Object;
+  TDAMemDatasetCompare = function(p1, p2: PMemDatasetrecord_Native; AIndex: TDAMemIndex): Integer of object;
+  TDAMemDatasetGetIDCallback = function: integer of object;
+
+  PDACallbackRecord = ^TDACallbackRecord;
+  TDACallbackRecord = record
+    AppendMode: Boolean;
+    RecIDCallback: TDAMemDatasetGetIDCallback;
+    PK: string;
+  end;
+
+  TPostEditAction = (peaResort);
+  TPostEditActions = set of TPostEditAction;
+  { TDAMemoryDataset }
+  TDAMemoryDataset = class(TDataset)
+  private
+    FRecordsList: TThreadMemList;
+    FDataList: TMemList;
+    FRecordPos: integer;
+    FActive: Boolean;
+    FOffsets: TOffsetArray;   // FOffset[0] = FNullMask
+    FDataSizeArray:TOffsetArray;
+    FNativeRecordSize: Cardinal;
+//    FBookMarkOffset: Integer; // = FNativeRecordSize
+//    FCalculatedOffset: Integer; // FBookMarkOffset + BookMark data size
+    FDatasetBufferSize: Cardinal; // FCalculatedOffset+ Calc fields size
+    FKeyBufferSize: cardinal; // SizeOf(TMemKeyBuffer) + FNativeRecordSize
+    FNullMaskSize: Cardinal;
+    FMasterDataLink: TMasterDataLink;
+    FFilterBuffer: Dataset_PAnsiChar;
+    FIndexName: string;
+    FDataTypeArray: array of TFieldType;
+    FStoreStringsAsReference: boolean;
+    FExpressionEvaluator: TDAExpressionEvaluator;
+    FExpressionBuffer: PMemDatasetrecord_Native;
+    {$IFDEF MSWINDOWS}
+    FSortLocale: LCID;
+    {$ENDIF MSWINDOWS}
+    FFieldsIndex: Boolean;
+    FIndexDefs: TIndexDefs;
+    FCloneSource: TDAMemoryDataset;
+    FCloneClientList:TThreadList;
+    FClonePermanentClientList:TThreadList;
+    FReadOnly: Boolean;
+    FDetailFields: string;
+    FDetailsFieldNameList: TList;
+    FRangeActive: boolean;
+    fUseIndexinLocate: Boolean;
+//    FNeedRefreshIndexConditional: Boolean;
+{$IFDEF MEM_PACKETRECORDS}
+    fPackedMode: Boolean;
+{$ENDIF MEM_PACKETRECORDS}
+    FHasReferencedFields: boolean;
+    FLastUpdate: TDateTime;
+    f_DefaultIndexRecord: TDAMemIndex;
+    FIndexList: TList;
+    FAutoCompactRecords: Boolean;
+    FMemCloneSource: TDAMemoryDataset;
+    FAutoSort: Boolean;
+    FPostEditActions: TPostEditActions;
+    FFieldNoList: TStringList;
+    procedure ConvertBin3ToBin2Record(Buffer: PMemDatasetrecord_Native);
+    procedure ConvertBin2ToBin3Record(ASource : PMemDatasetrecord_Native);
+    function Bin2ToBin3(ASource: Dataset_PAnsiChar): Dataset_PAnsiChar;
+    function CalcFieldLen(aDataType: TFieldType; aSize: Integer): integer;
+    procedure CalculateOffsets;
+    procedure ClearRecords;
+    procedure ClearFieldByFieldType(FieldBuffer: pointer; ADataType: TFieldType);
+    procedure ClearBin2Field(Buffer: Dataset_PAnsiChar; AField: TField);
+    function IsReferencedField(ADataType: TFieldType):Boolean;
+    function GetNullMask(Buffer: Dataset_PAnsiChar; const AIndex: Integer): boolean;
+    function IntFindRecordID(Buf: pointer): Integer;
+    function GetActiveRecBuf(var RecBuf: Dataset_PAnsiChar): Boolean;
+    procedure InternalSetFieldData(Field: TField; Buffer: Pointer);
+    procedure IntAssignRecord(Source, Dest: PMemDatasetrecord_Native);
+    procedure SetBlobData(Field: TField; Buffer: PMemDatasetrecord_Native; Value: PBLOBRecord);
+    function GetMasterFields: string;
+    procedure SetDataSource(const Value: TDataSource);
+    procedure SetMasterFields(const Value: string);
+    function GetIndexFieldNames: string;
+    procedure SetIndexFieldNames(const Value: string);
+    function InternalGetRecord(Buffer: PMemDatasetRecord; GetMode: TGetMode; DoCheck: Boolean): TGetResult;
+    procedure DoSort(AIndex: TDAMemIndex; AUseFullListForIndexes: boolean = False);
+    procedure QuickSort(L, R: Integer; SCompare: TDAMemDatasetCompare; AIndex: TDAMemIndex);
+    function Compare(i1, i2: PMemDatasetrecord_Native;AIndex: TDAMemIndex): Integer;
+    function CompareValues(buf1, buf2: pointer; aDataType: TFieldType;aSortCaseInsensitive:Boolean; aBin2_1, aBin2_2: Boolean): integer;
+    function CompareValues2(buf1: pointer; aValue: TDAValueStruct; aDataType: TFieldType;aSortCaseInsensitive:Boolean; aBin2: boolean): integer;
+    function CompareValues2_full(buf1: pointer; aValue: TDAValueStruct; aDataType: TFieldType;aSortCaseInsensitive:Boolean; abin2: boolean): boolean;
+    function CompareValues2_partial(buf1: pointer; aValue: TDAValueStruct; aDataType: TFieldType;aSortCaseInsensitive: Boolean; abin2: boolean): boolean;
+    function CompareValues_Range(buf: PMemDatasetrecord_Native; keybuffer: PMemKeyBuffer): integer;
+    procedure DoFilterRecords;
+    function ApplyMasterFilter: boolean;
+    procedure ApplyRangeFilter;
+    function FilterRecord(buf: PMemDatasetrecord_Native; AUseEvent: Boolean):Boolean;
+    procedure SetStoreStringAsReference(const Value: Boolean);
+    procedure EEGetValue(Sender: TDAExpressionEvaluator; const aIdentifier: string; out aValue: Variant);
+    function GetVarValueFromBuffer(Buffer: pointer; Field: TField;abin2: boolean):variant;
+    function IsActiveFilter: Boolean;
+    function GetIndexDefs: TIndexDefs;
+    procedure SetIndexDefs(const Value: TIndexDefs);
+    function GetIndexName: string;
+    procedure SetIndexName(const Value: string);
+    procedure SetIndex(const Value: string; FieldsIndex: Boolean);
+    procedure ValidateFieldForIndex(aField: TField);
+    function IntGetRecordList: TThreadMemList;
+    procedure RegisterClient(const AClient: TDAMemoryDataset);
+    procedure RegisterPermanentClient(const AClient: TDAMemoryDataset);
+    procedure UnregisterPermanentClient(const AClient: TDAMemoryDataset);
+    procedure RegisterPermanentClients;
+    procedure UnregisterClient(const AClient: TDAMemoryDataset);
+    procedure UnregisterAllClients;
+    procedure UnregisterPermanentClients;
+    procedure NotifyClients(Buf: PMemDatasetrecord_Native; Operation: TMemDataSetNotification; ASender: TDAMemoryDataset);
+    procedure RecordNotification(Buf: PMemDatasetrecord_Native; Operation: TMemDataSetNotification);
+    procedure IntInsertBuffer(Buffer: PMemDatasetrecord_Native; ASender: TDAMemoryDataset=nil);
+    procedure IntRemoveBuffer(Buffer: PMemDatasetrecord_Native; ASender: TDAMemoryDataset = nil);
+    procedure IntUpdateBuffer(Buffer: PMemDatasetrecord_Native; ASender: TDAMemoryDataset = nil);
+    procedure SetReadOnly(const Value: Boolean);
+    procedure SetDetailsFields(const Value: string);
+    procedure InitDetailFieldNamesList;
+    function GetIndexFields: string;
+    function internalGotoKey(const KeyBuffer: PMemKeyBuffer;isNearest: Boolean):Boolean;
+    procedure RefreshIndexConditional;
+    procedure MemList_ClearRecords(aMemList: TMemList);
+    procedure IndexList_Clear;
+    function LocateWithIndex(const LocateStruct: PMemLocateStruct; Buffer: PMemDatasetrecord): boolean;
+    procedure UpdateMemIndexes(AIndex: integer = -1);
+    procedure LocalBufferToDatasetBuffer(LocalBuf: PMemDatasetrecord_Native; DatasetBuffer: PMemDatasetrecord);
+    function LocateRecordByIndex(const aIndexName: string; const KeyValues: Variant; SyncCursor: Boolean): Boolean;overload;
+    function LocateRecordByIndex(const aIndex: Integer; const KeyValues: Variant; SyncCursor: Boolean): Boolean;overload;
+    function intLocateRecordByIndex(aIndex: TDAMemIndex; const KeyValues: Variant; SyncCursor: Boolean): Boolean;
+    procedure InitMemLocateStruct(AStruct: PMemLocateStruct; const KeyValues: Variant);
+    function CreateBin3Struct(const ASize:Cardinal): Dataset_PAnsiChar;
+    function GetBin3Offset(Buffer: Dataset_PAnsiChar;const aFieldNo:integer):cardinal;
+    Procedure FreeBin3Buffer(Buffer: Dataset_PAnsiChar);
+    procedure SetAutoPackRecords(const Value: boolean);
+    procedure SetCloneSource(const Value: TDAMemoryDataset);
+    Procedure AssignCloneSource(Source: TDAMemoryDataset);
+    procedure CheckforCircularLinks(ASource:TDataset; CheckForClone: Boolean);
+    procedure SetAutoSort(const Value: Boolean);
+    procedure IntAutoSort(ABuf : PMemDatasetrecord_Native; ANeedResync: Boolean);
+    function GetBin2FieldOffset(const aFieldNo:integer):cardinal;
+    function GetStoreStringsAsReference : Boolean;
+    function GetHasReferencedFields: Boolean;
+  private
+    { Set range }
+    FKeyBuffers: array[TMemKeyIndex] of PMemKeyBuffer;
+    FKeyBuffer: PMemKeyBuffer;
+    procedure AllocKeyBuffers;
+    procedure FreeKeyBuffers;
+    procedure SetKeyBuffer(KeyIndex: TMemKeyIndex; Clear: Boolean);
+    procedure SetKeyFields(KeyIndex: TMemKeyIndex; const Values: array of const);
+    function InitKeyBuffer(Buffer: PMemKeyBuffer): PMemKeyBuffer;
+  protected
+    function CreateMemDatasetRecord(const AType:TmrMode; ABin3Size: Cardinal = 0; ADatasetCompatible: Boolean =False):PMemDatasetrecord_Native;
+    procedure FreeMemDatasetRecord(Buffer: PMemDatasetrecord_Native);
+    procedure AttachToSource(const Source: TDAMemoryDataset);virtual;
+    procedure DetachFromSource; virtual;
+    function IsLoadingState: Boolean; virtual;
+
+  protected
+    // for IDAMemDatasetBatchAdding
+    procedure SetNullMask(Buffer: Dataset_PAnsiChar; const AIndex: Integer; const Value: boolean);
+    function IntFindFieldData(Buffer: PMemDatasetrecord_Native; Field: TField): Pointer; overload;
+    function IntFindFieldData(Buffer: Dataset_PAnsiChar; Field: TField; aBin2: Boolean): Pointer; overload;
+    function MakeBlobFromString(Blob: AnsiString):PBLOBRecord;
+    procedure SetAnsiString(NativeBuf: Pointer; Field: TField; const Value: Ansistring);
+    procedure SetWideString(NativeBuf: Pointer; Field: TField; const Value: Unicodestring);
+    procedure ProcessFilter;
+    procedure AddRecordsfromList(AList: TList; ACallbackRecord: PDACallbackRecord);
+    procedure ClearBin2Buffer(Buffer: Dataset_PAnsiChar);
+    Procedure FreeBin2Buffer(Buffer: Dataset_PAnsiChar);
+    function CreateBin2Struct: Dataset_PAnsiChar;
+    function GetFieldNo(aField: TField): integer;
+  protected
+    procedure DuplicateBuffer(Source, Dest: PMemDatasetrecord_Native; ACanPack:boolean);
+    procedure RecordToBuffer(RecNo: integer; Buffer: PMemDatasetRecord);
+    property MasterDataLink: TMasterDataLink read FMasterDataLink;
+    procedure MasterChanged(Sender: TObject); virtual;
+    procedure MasterDisabled(Sender: TObject); virtual;
+    function LocateRecord(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions; SyncCursor: Boolean): Boolean;
+  protected // tdataset
+    { IProviderSupport }
+    function PSGetIndexDefs(IndexTypes: TIndexOptions): TIndexDefs; {$IFNDEF FPC}override;{$ENDIF}
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  protected
+    procedure PostKeyBuffer(Commit: Boolean);
+    function GetIsIndexField(Field: TField): Boolean; override;
+    procedure DoOnNewRecord; override;
+    function GetRecord(Buffer: Dataset_PAnsiChar; GetMode: TGetMode; DoCheck: Boolean): TGetResult; override;
+    procedure InternalClose; override;
+    procedure InternalHandleException; override;
+    procedure InternalInitFieldDefs; override;
+    procedure InternalOpen; override;
+    function IsCursorOpen: Boolean; override;
+    function AllocRecordBuffer: Dataset_PAnsiChar; override;
+    procedure FreeRecordBuffer(var Buffer: Dataset_PAnsiChar); override;
+    procedure GetBookmarkData(Buffer: Dataset_PAnsiChar; Data: Pointer); override;
+    function GetBookmarkFlag(Buffer: Dataset_PAnsiChar): TBookmarkFlag; override;
+    function GetRecordSize: Word; override;
+    procedure InternalAddRecord(Buffer: Pointer; Append: Boolean); override;
+    procedure InternalDelete; override;
+    procedure InternalFirst; override;
+    procedure InternalGotoBookmark(Bookmark: Pointer); override;
+    procedure InternalInitRecord(Buffer: Dataset_PAnsiChar); override;
+    procedure InternalLast; override;
+    procedure InternalPost; override;
+    procedure InternalSetToRecord(Buffer: Dataset_PAnsiChar); override;
+    procedure SetBookmarkFlag(Buffer: Dataset_PAnsiChar; Value: TBookmarkFlag); override;
+    procedure SetBookmarkData(Buffer: Dataset_PAnsiChar; Data: Pointer); override;
+    procedure SetFieldData(Field: TField; Buffer: Pointer); overload; override;
+    function GetRecordCount: Integer; override;
+    function GetRecNo: Integer; override;
+    procedure SetRecNo(Value: Integer); override;
+    procedure OpenCursor(InfoQuery: Boolean); override;
+    procedure DataConvert(Field: TField; Source, Dest: Pointer; ToNative: Boolean); override;
+    function GetDataSource: TDataSource; override;
+    procedure SetFiltered(Value: Boolean); override;
+    procedure SetFilterOptions(Value: TFilterOptions); override;
+    procedure SetFilterText(const Value: string); override;
+    procedure SetOnFilterRecord(const Value: TFilterRecordEvent); override;
+    procedure DoAfterOpen; override;
+    procedure DoAfterCancel; override;
+    procedure UpdateIndexDefs; override;
+    procedure DefChanged(Sender: TObject); {$IFNDEF FPC}override;{$ENDIF}
+    procedure intInsertRecord(Buf: PMemDatasetrecord_Native);
+    function GetCanModify: Boolean; override;
+  protected
+    procedure SwitchToIndex(const IndexName: string);
+    property RangeActive:boolean read FRangeActive;
+  public //from TDataset         `
+    function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
+    function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
+//    procedure GetDetailLinkFields(MasterFields, DetailFields: TList); {$IFNDEF FPC}override;{$ENDIF}
+    function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; override;
+    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; override;
+    function LocateByIndex(const aIndexName: string; const KeyValues: Variant): Boolean;overload;
+    function LocateByIndex(const aIndex: integer; const KeyValues: Variant): Boolean;overload;
+    function LookupByIndex(const aIndexName: string; const KeyValues: Variant; const ResultFields: string): Variant;overload;
+    function LookupByIndex(const aIndex: integer; const KeyValues: Variant; const ResultFields: string): Variant;overload;
+    procedure PrepareIndexForSorting(const aIndexName: string = '');
+    function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer; override;
+    function BookmarkValid(Bookmark: TBookmark): Boolean; override;
+  {$IFNDEF MEMDATASET_DEBUG}
+  protected // postponed to .31
+  {$ENDIF MEMDATASET_DEBUG}
+    property UseIndexinLocate: Boolean read fUseIndexinLocate write fUseIndexinLocate;
+    procedure SortOnFields(AIndex: TDAMemIndex);overload;
+    Function CalculateRecordsSize: Cardinal;
+    procedure CompactRecords;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure SortOnFields(const Fields: string; CaseInsensitive: Boolean = False; Descending: Boolean = False);overload;
+    procedure SortOnFields(const Fields, CaseInsFields, DescFields: string);overload;
+    procedure SortOnFields;overload;
+    procedure GetIndexNames(List: TStrings);
+    procedure AddIndex(const Name, Fields: string; const DescFields: string = ''; const CaseInsFields: string = '');
+    procedure DeleteIndex(const Name: string);
+    procedure CloneCursor(Source: TDAMemoryDataset; Reset: Boolean; KeepSettings: Boolean = False); virtual;
+    property StoreStringAsReference: Boolean read FStoreStringsAsReference write SetStoreStringAsReference;
+    procedure Post; override;
+    procedure Cancel; override;
+    {$IFDEF MSWINDOWS}
+    property SortLocale: LCID read FSortLocale write FSortLocale;
+    {$ENDIF MSWINDOWS}
+    property AutoCompactRecords: boolean read FAutoCompactRecords write SetAutoPackRecords;
+{$IFDEF BDS4UP}{$REGION 'MEM_PACKETRECORDS'}{$ENDIF BDS4UP}
+{$IFDEF MEM_PACKETRECORDS}
+  // packed adding
+  protected
+    function GetPackedMode: Boolean;
+    procedure SetPackedMode(const Value: Boolean);
+    Property PackedMode: Boolean read GetPackedMode write SetPackedMode;
+    procedure PackedRecordListClear;
+  public
+    Procedure StartPackedMode;
+    Procedure CommitPackedMode;
+    Procedure CancelPackedMode;
+{$ENDIF MEM_PACKETRECORDS}
+{$IFDEF BDS4UP}{$ENDREGION}{$ENDIF BDS4UP}
+  public { Set range }
+    procedure ApplyRange;
+    procedure CancelRange;
+    procedure SetRange(const StartValues, EndValues: array of const);
+    procedure EditRangeEnd;
+    procedure EditRangeStart;
+    procedure SetRangeEnd;
+    procedure SetRangeStart;
+    //
+    procedure SetKey;
+    procedure EditKey;
+    function FindKey(const KeyValues: array of const): Boolean;
+    procedure FindNearest(const KeyValues: array of const);
+    function GotoKey: Boolean;
+    procedure GotoNearest;
+  published
+    property Active;
+    property FieldDefs;
+    property OnFilterRecord;
+    property IndexFieldNames: string read GetIndexFieldNames write SetIndexFieldNames;
+    property IndexName: string read GetIndexName write SetIndexName;
+    property IndexDefs: TIndexDefs read GetIndexDefs write SetIndexDefs;
+    property MasterFields: string read GetMasterFields write SetMasterFields;
+    property MasterSource: TDataSource read GetDataSource write SetDataSource;
+    property DetailFields: string read FDetailFields write SetDetailsFields;
+    property ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
+    property Filter;
+    property Filtered;
+    property BeforeOpen;
+    property AfterOpen;
+    property BeforeClose;
+    property AfterClose;
+    property BeforeInsert;
+    property AfterInsert;
+    property BeforeEdit;
+    property AfterEdit;
+    property BeforePost;
+    property AfterPost;
+    property BeforeCancel;
+    property AfterCancel;
+    property BeforeDelete;
+    property AfterDelete;
+    property BeforeScroll;
+    property AfterScroll;
+    property BeforeRefresh;
+    property AfterRefresh;
+    property OnCalcFields;
+    property OnDeleteError;
+    property OnEditError;
+    property OnNewRecord;
+    property OnPostError;
+    property CloneSource: TDAMemoryDataset read FMemCloneSource write SetCloneSource;
+    property AutoSortRecords: Boolean read FAutoSort write SetAutoSort default False;
+  end;
+
+  TDABlobStream = class(TMemoryStream)
+  private
+    FField: TBlobField;
+    FDataSet: TDAMemoryDataset;
+    FBuffer:  PMemDatasetrecord_Native;
+    FMode: TBlobStreamMode;
+    FOpened: Boolean;
+    FModified: Boolean;
+    FPosition: Longint;
+    FCached: Boolean;
+    function GetBlobSize: Longint;
+    procedure GetBLOBRecordFromRecord(Field: TField; out aLocked:Boolean; out blob_size: integer; out blob_data: pointer);
+    function GetBLOBRecordFromBuffer(Buffer: PMemDatasetrecord_Native; Field: TField; out blob_size: integer; out blob_data: pointer): PBLOBRecord;
+    procedure Truncate;
+  public
+    constructor Create(Field: TBlobField; Mode: TBlobStreamMode);
+    destructor Destroy; override;
+    function Read(var Buffer; Count: Longint): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+    function Seek(Offset: Longint; Origin: Word): Longint; override;
+  end;
+
+var
+  MaxStringSizeInline : integer = 4096;
+
+implementation
+uses
+  uROClasses, uROBinaryHelpers,
+  Variants, SysUtils,{$IFDEF FPC}dbconst,{$ELSE}DBConsts,{$ENDIF}
+  {$IFNDEF FPC}Forms, SqlTimSt,{$ENDIF} FMTBcd, RTLConsts, Math;
+
+const
+  guidsize = 38; { Length(GuidString) }
+
+resourcestring
+  SNoDetailFilter = 'Filter property cannot be used for detail tables';
+const
+  ft_Inline = [ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat,
+               ftCurrency, ftDate, ftTime, ftDateTime, ftAutoInc,
+               ftLargeint, {$IFNDEF FPC}ftTimeStamp,{$ENDIF} ftBCD, ftFMTBCD, ftGuid
+               {$IFDEF DELPHI2009UP},ftLongWord, ftShortint, ftByte, ftExtended{$ENDIF}
+               {$IFDEF DELPHI2010UP},ftSingle{$ENDIF}];
+  ft_BlobTypes = [ftBlob, ftMemo,{$IFDEF DA_WideMemoSupport}ftWideMemo,{$ENDIF DA_WideMemoSupport} ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftOraBlob, ftOraClob];
+  ft_Strings = [ftString, ftWideString,{$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport} ftFixedChar];
+  ft_AnsiStringValues = [ftString, ftFixedChar, {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}ftGuid];
+  ft_WideStringValues = [ftWideString];
+  ft_Supported = ft_Inline + ft_BlobTypes + ft_Strings;
+//  ft_UnSupported = [ftADT, ftArray, ftReference, ftDataSet, ftBytes, ftVarBytes, ftCursor, ftInterface,ftIDispatch,ftOraTimeStamp, ftOraInterval,ftConnection,ftParams,ftStream] + [ftVariant];
+type
+  PCardinalArray = ^TCardinalArray;
+  TCardinalArray = array [0..MaxListSize - 1] of Cardinal;
+
+function CreateBlobRecord(ASize: cardinal = 0; AInit: Boolean = False): PBlobRecord;
+begin
+  {$IFDEF FPC}
+  Result := nil;
+  {$ENDIF FPC}
+  GetMem(Result, ASize + SizeOf(TBLOBRecord));
+  FillChar(Result^, sizeof(TBLOBRecord), 0);
+  Result.size:=ASize;
+  if AInit then FillChar(Result.Data, Asize, 0);
+end;
+
+procedure FreeBlobRecord(buf: Pointer);
+begin
+//  if buf = nil then Exit;
+  FreeMem(buf);
+end;
+
+{ TMemList }
+
+destructor TMemList.Destroy;
+begin
+  Clear;
+end;
+
+function TMemList.Add(Item: Pointer): Integer;
+begin
+  Result := FCount;
+  if Result = FCapacity then Grow;
+  FList^[Result] := Item;
+  Inc(FCount);
+  FNeedRefresh:=True;
+end;
+
+procedure TMemList.Clear;
+begin
+  SetCount(0);
+  SetCapacity(0);
+  ReallocMem(FSortList,0);
+  FNeedRefresh:=True;
+end;
+
+procedure TMemList.Delete(Index: Integer);
+begin
+  if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
+  Dec(FCount);
+  if Index < FCount then
+    System.Move(FList^[Index + 1], FList^[Index],(FCount - Index) * SizeOf(Pointer));
+  fNeedRefresh:=True;
+end;
+
+class procedure TMemList.Error(const Msg: string; Data: Integer);
+  {$IFNDEF FPC}
+  function ReturnAddr: Pointer;
+  asm
+          MOV     EAX,[EBP+4]
+  end;
+  {$ENDIF}
+begin
+  raise EListError.CreateFmt(Msg, [Data]) at {$IFNDEF FPC}ReturnAddr{$ELSE}get_caller_addr(get_frame){$ENDIF};
+end;
+
+class procedure TMemList.Error(Msg: PResStringRec; Data: Integer);
+begin
+  TMemList.Error(LoadResString(Msg), Data);
+end;
+
+procedure TMemList.Exchange(Index1, Index2: Integer);
+var
+  Item: Pointer;
+begin
+  if (Index1 < 0) or (Index1 >= FCount) then Error(@SListIndexError, Index1);
+  if (Index2 < 0) or (Index2 >= FCount) then Error(@SListIndexError, Index2);
+  Item := FList^[Index1];
+  FList^[Index1] := FList^[Index2];
+  FList^[Index2] := Item;
+  FNeedRefresh:=True;
+end;
+
+function TMemList.Expand: TMemList;
+begin
+  if FCount = FCapacity then Grow;
+  Result := Self;
+end;
+
+function TMemList.First: Pointer;
+begin
+  Result := Get(0);
+end;
+
+function TMemList.Get(Index: Integer): Pointer;
+begin
+  if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
+  Result := FList^[Index];
+end;
+
+procedure TMemList.Grow;
+var
+  Delta: Integer;
+begin
+  if FCapacity > 64 then
+    Delta := FCapacity div 4
+  else
+    if FCapacity > 8 then
+      Delta := 16
+    else
+      Delta := 4;
+  SetCapacity(FCapacity + Delta);
+end;
+
+function TMemList.IndexOf(Item: Pointer): Integer;
+begin
+  Sort;
+  Result := intIndexOf(Item);
+  if Result > -1 then Result:= FSortList^[Result].position;
+end;
+
+procedure TMemList.Insert(Index: Integer; Item: Pointer);
+begin
+  if (Index < 0) or (Index > FCount) then Error(@SListIndexError, Index);
+  if FCount = FCapacity then Grow;
+  if Index < FCount then
+    System.Move(FList^[Index], FList^[Index + 1], (FCount - Index) * SizeOf(Pointer));
+  FList^[Index] := Item;
+  Inc(FCount);
+  fNeedRefresh:=True;
+end;
+
+function TMemList.Last: Pointer;
+begin
+  Result := Get(FCount - 1);
+end;
+
+procedure TMemList.Move(CurIndex, NewIndex: Integer);
+var
+  Item: Pointer;
+begin
+  if CurIndex <> NewIndex then
+  begin
+    if (NewIndex < 0) or (NewIndex >= FCount) then Error(@SListIndexError, NewIndex);
+    Item := Get(CurIndex);
+    FList^[CurIndex] := nil;
+    Delete(CurIndex);
+    Insert(NewIndex, nil);
+    FList^[NewIndex] := Item;
+    FNeedRefresh:=True;
+  end;
+end;
+
+procedure TMemList.Put(Index: Integer; Item: Pointer);
+begin
+  if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
+  if Item <> FList^[Index] then
+  begin
+    FList^[Index] := Item;
+    fNeedRefresh:=True;
+  end;
+end;
+
+function TMemList.Remove(Item: Pointer): Integer;
+begin
+  Result := IndexOf(Item);
+  if Result >= 0 then begin
+    Delete(Result);
+    FNeedRefresh:=True;
+  end
+end;
+
+procedure TMemList.Pack;
+var
+  I: Integer;
+begin
+  for I := FCount - 1 downto 0 do
+    if Items[I] = nil then
+      Delete(I);
+  FNeedRefresh:=True;    
+end;
+
+procedure TMemList.SetCapacity(NewCapacity: Integer);
+begin
+  if (NewCapacity < FCount) or (NewCapacity > MaxListSize) then Error(@SListCapacityError, NewCapacity);
+  if NewCapacity <> FCapacity then
+  begin
+    ReallocMem(FList, NewCapacity * SizeOf(Pointer));
+    FCapacity := NewCapacity;
+  end;
+end;
+
+procedure TMemList.SetCount(NewCount: Integer);
+begin
+  if (NewCount < 0) or (NewCount > MaxListSize) then Error(@SListCountError, NewCount);
+  if NewCount > FCapacity then SetCapacity(NewCount);
+  if NewCount > FCount then FillChar(FList^[FCount], (NewCount - FCount) * SizeOf(Pointer), 0);
+  FCount := NewCount;
+  FNeedRefresh:=True;
+end;
+
+procedure TMemList.QuickSort(L, R: Integer);
+var
+  I, J, P                     : integer;
+  k: TSortRecord;
+begin
+  repeat
+    I := L;
+    J := R;
+    P := (L + R) shr 1;
+    repeat
+      while FSortList^[i].Data < FSortList^[P].Data do Inc(I);
+      while FSortList^[J].Data > FSortList^[P].Data do Dec(J);
+      if I <= J then
+        begin
+          k:= FSortList^[i];
+          FSortList^[i]:=FSortList^[j];
+          FSortList^[j]:=k;
+          if P = I then P := J
+          else if P = J then P := I;
+          Inc(I);
+          Dec(J);
+        end;
+    until I > J;
+    if L < J then QuickSort(L, J);
+    L := I;
+  until I >= R;
+end;
+
+procedure TMemList.Sort;
+var
+  i: integer;
+begin
+  if FNeedRefresh and (FList <> nil) and (Count > 0) then begin
+    ReallocMem(FSortList, Capacity * SizeOf(TSortRecord));
+    For i:=0 to Count -1 do begin
+      FSortList^[i].data:= FList^[I];
+      FSortList^[i].position:= i;
+    end;
+    QuickSort(0, Count - 1);
+    FNeedRefresh:=False;
+  end;
+end;
+
+function TMemList.Extract(Item: Pointer): Pointer;
+var
+  I: Integer;
+begin
+  Result := nil;
+  I := IndexOf(Item);
+  if I >= 0 then
+  begin
+    Result := Item;
+    FList^[I] := nil;
+    Delete(I);
+  end;
+end;
+
+
+procedure TMemList.Assign(ListA: TMemList; AOperator: TMemListAssignOp; ListB: TMemList);
+var
+  I: Integer;
+  LTemp, LSource: TMemList;
+begin
+  FNeedRefresh:=True;
+  // ListB given?
+  if ListB <> nil then
+  begin
+    LSource := ListB;
+    Assign(ListA);
+  end
+  else
+    LSource := ListA;
+
+  // on with the show
+  case AOperator of
+
+    // 12345, 346 = 346 : only those in the new list
+    mlaCopy:
+      begin
+        Clear;
+        Capacity := LSource.Capacity;
+        for I := 0 to LSource.Count - 1 do
+          Add(LSource[I]);
+      end;
+
+    // 12345, 346 = 34 : intersection of the two lists
+    mlaAnd:
+      for I := Count - 1 downto 0 do
+        if LSource.IndexOf(Items[I]) = -1 then
+          Delete(I);
+
+    // 12345, 346 = 123456 : union of the two lists
+    mlaOr:
+      for I := 0 to LSource.Count - 1 do
+        if IndexOf(LSource[I]) = -1 then
+          Add(LSource[I]);
+
+    // 12345, 346 = 1256 : only those not in both lists
+    mlaXor:
+      begin
+        LTemp := TMemList.Create; // Temp holder of 4 byte values
+        try
+          LTemp.Capacity := LSource.Count;
+          for I := 0 to LSource.Count - 1 do
+            if IndexOf(LSource[I]) = -1 then
+              LTemp.Add(LSource[I]);
+          for I := Count - 1 downto 0 do
+            if LSource.IndexOf(Items[I]) <> -1 then
+              Delete(I);
+          I := Count + LTemp.Count;
+          if Capacity < I then
+            Capacity := I;
+          for I := 0 to LTemp.Count - 1 do
+            Add(LTemp[I]);
+        finally
+          LTemp.Free;
+        end;
+      end;
+
+    // 12345, 346 = 125 : only those unique to source
+    mlaSrcUnique:
+      for I := Count - 1 downto 0 do
+        if LSource.IndexOf(Items[I]) <> -1 then
+          Delete(I);
+
+    // 12345, 346 = 6 : only those unique to dest
+    mlaDestUnique:
+      begin
+        LTemp := TMemList.Create;
+        try
+          LTemp.Capacity := LSource.Count;
+          for I := LSource.Count - 1 downto 0 do
+            if IndexOf(LSource[I]) = -1 then
+              LTemp.Add(LSource[I]);
+          Assign(LTemp);
+        finally
+          LTemp.Free;
+        end;
+      end;
+  end;
+end;
+
+function TMemList.intIndexOf(Item: PAnsiChar): Integer;
+var
+  L, H, I, C                  : integer;
+  Res                         : boolean;
+begin
+  Res := False;
+  L := 0;
+  H := FCount - 1;
+  while L <= H do
+    begin
+      I := (L + H) shr 1;
+      C := FSortList^[i].Data - Item;
+      if C < 0 then
+        L := I + 1
+      else
+        begin
+          H := I - 1;
+          if C = 0 then Res := True;
+        end;
+    end;
+  if Res then
+    Result := L
+  else
+    Result := -1;
+end;
+
+constructor TMemList.Create;
+begin
+  inherited;
+end;
+
+{ TDAMemoryDataset }
+
+function TDAMemoryDataset.AllocRecordBuffer: Dataset_PAnsiChar;
+begin
+  Result:= Dataset_PAnsiChar(CreateMemDatasetRecord(mrEmpty, 0, True));
+end;
+
+procedure TDAMemoryDataset.CalculateOffsets;
+var
+  i: integer;
+  lField: TField;
+  llen: cardinal;
+  k: integer;
+begin
+  if not FStoreStringsAsReference then begin
+    for i := 0 to FieldCount - 1 do
+      with Fields[i] do
+        if (DataType in ft_Strings) and (Size >= MaxStringSizeInline) then begin
+          FStoreStringsAsReference := True;
+          Break;
+        end;
+  end;
+  SetLength(FOffsets, FieldCount + 1);
+  SetLength(FDataSizeArray,FieldCount);
+  SetLength(FDataTypeArray,FieldCount);
+  // FOffsets[FieldCount+1] = BookMarkOffset
+  FNullMaskSize := (FieldCount + 7) div 8;
+  FOffsets[0] := FNullMaskSize; // = offset of 1st record
+  FHasReferencedFields := FStoreStringsAsReference;
+  FFieldNoList.Clear;
+  FFieldNoList.Sorted := False;
+  k := -1;
+  for i := 0 to FieldCount - 1 do begin
+    lField := Fields[i];
+    if lField.FieldNo = -1  then Continue;
+    inc(k);
+    FDataTypeArray[k]:=lField.DataType;
+    llen:=CalcFieldLen(lField.DataType,lField.Size);
+    FDataSizeArray[k] := llen;
+    FOffsets[k + 1] := FOffsets[k] + llen; // = offset of k+1 record
+    FHasReferencedFields := FHasReferencedFields or IsReferencedField(lField.DataType);
+  end;
+
+  for i := 0 to FieldCount - 1 do begin
+    lField := Fields[i];
+    if lField.FieldNo <> -1  then Continue;
+    inc(k);
+    FDataTypeArray[k]:=lField.DataType;
+    llen:=CalcFieldLen(lField.DataType,lField.Size);
+    FDataSizeArray[k] := llen;
+    FOffsets[k + 1] := FOffsets[k] + llen; // = offset of k+1 record
+    FHasReferencedFields := FHasReferencedFields or IsReferencedField(lField.DataType);
+    FFieldNoList.AddObject(lField.FieldName,pointer(k));
+  end;
+
+  FFieldNoList.Sorted := True;
+  FNativeRecordSize := FOffsets[FieldCount];
+
+  //
+
+//  FBookMarkOffset := FNativeRecordSize;
+//  FCalculatedOffset := FBookMarkOffset + SizeOf(TRecInfo);
+//  FDatasetBufferSize := FCalculatedOffset + CalcFieldsSize;
+  FDatasetBufferSize := SizeOf(TMemDatasetrecord)+CalcFieldsSize;
+  FKeyBufferSize := SizeOf(TMemKeyBuffer) + FNativeRecordSize;
+end;
+
+procedure TDAMemoryDataset.ClearFieldByFieldType(FieldBuffer: pointer; ADataType: TFieldType);
+begin
+  case ADataType of
+    ftString, ftFixedChar: begin
+      PAnsiString(FieldBuffer)^ := '';
+      PPointer(FieldBuffer)^ := nil;
+    end;
+    {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+    ftWideString: begin
+      PUnicodeString(FieldBuffer)^ := '';
+      PPointer(FieldBuffer)^ := nil;
+    end;
+  else
+    if ADataType in ft_BlobTypes then  begin
+      FreeBlobRecord(PPointer(FieldBuffer)^);
+      PPointer(FieldBuffer)^ := nil;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.ClearBin2Field(Buffer: Dataset_PAnsiChar; AField: TField);
+begin
+  if GetNullMask(Buffer, GetFieldNo(AField)) then Exit;
+  if IsReferencedField(AField.DataType) then
+    ClearFieldByFieldType(IntFindFieldData(Buffer, AField, True), AField.DataType);
+  SetNullMask(Buffer, GetFieldNo(AField), True);
+end;
+
+procedure TDAMemoryDataset.ClearRecords;
+var
+  aList: TMemList;
+begin
+  FDataList.Clear;
+{$IFDEF MEM_PACKETRECORDS}
+  PackedRecordListClear;
+{$ENDIF MEM_PACKETRECORDS}
+  UnregisterAllClients;
+  AList := FRecordsList.LockListForWriting;
+  try
+    MemList_ClearRecords(aList);
+  finally
+    FRecordsList.UnlockListForWriting;
+  end;
+end;
+
+constructor TDAMemoryDataset.Create(AOwner: TComponent);
+begin
+  inherited;
+{$IFDEF MEM_PACKETRECORDS}
+  fPackedMode := False;
+{$ENDIF MEM_PACKETRECORDS}
+  FRecordsList := TThreadMemList.Create;
+  FDataList := TMemList.Create;
+  FMasterDataLink := TMasterDataLink.Create(Self);
+  FMasterDataLink.OnMasterChange := MasterChanged;
+  FMasterDataLink.OnMasterDisable := MasterDisabled;
+  f_DefaultIndexRecord := TDAMemIndex.Create(Self);
+//  FIndexFieldNameList := TList.Create;
+//  FIndexCaseInsList := TList.Create;
+//  FIndexDescFields := TList.Create;
+  FDetailsFieldNameList := TList.Create;
+
+  {$IFDEF MSWINDOWS}
+  FSortLocale := LOCALE_USER_DEFAULT;
+  {$ENDIF MSWINDOWS}
+  FStoreStringsAsReference:=False;
+  FExpressionEvaluator:= TDAStdExpressionEvaluator.Create;
+  FExpressionEvaluator.OnGetValue := EEGetValue;
+  FExpressionEvaluator.UseWildcardsInEqual:= True; // FilterOptions = []
+  FExpressionEvaluator.StringCaseInsensitive:= False; // FilterOptions = []
+  fUseIndexinLocate:=True;
+  FIndexList := TList.Create;
+  FAutoCompactRecords := False;
+  FAutoSort := False;
+  FPostEditActions := [];
+  FFieldNoList:= TStringList.Create;
+end;
+
+function TDAMemoryDataset.CreateBlobStream(Field: TField;
+  Mode: TBlobStreamMode): TStream;
+begin
+  Result := TDABlobStream.Create(TBlobField(Field), Mode);
+end;
+
+destructor TDAMemoryDataset.Destroy;
+begin
+  CloneSource := nil;
+  inherited;
+  UnregisterPermanentClients;
+  IndexList_Clear;
+  FDetailsFieldNameList.Free;
+  FExpressionEvaluator.Free;
+//  FIndexFieldNameList.Free;
+//  FIndexCaseInsList.Free;
+//  FIndexDescFields.Free;
+  f_DefaultIndexRecord.Free;
+  FMasterDataLink.Free;
+  FIndexList.Free;
+  FDataList.Free;
+  FRecordsList.Free;
+  FIndexDefs.Free;
+  FFieldNoList.Free;
+  if FCloneClientList <> nil then FCloneClientList.Free;
+  if FClonePermanentClientList <> nil then FClonePermanentClientList.Free;  
+end;
+
+procedure TDAMemoryDataset.DuplicateBuffer(Source, Dest: PMemDatasetrecord_Native;ACanPack:boolean);
+var
+  i: Cardinal;
+  p, p2: PBlobRecord;
+  lbin3: Dataset_PAnsiChar;
+begin
+{$IFDEF MEMDATASET_DEBUG}
+//  if not ((Source.Ident in [mrEmpty..mrBin3Style]) and(Dest.Ident in [mrEmpty..mrBin3Style])) then DatabaseError('TDAMemoryDataset.DuplicateBuffer: Data are damaged');
+{$ENDIF MEMDATASET_DEBUG}
+  case Source.Ident of
+    mrEmpty: begin
+      case Dest.Ident of
+        mrEmpty :;
+        mrBin2Style: FreeBin2Buffer(Dest.Data);
+        mrBin3Style: FreeBin3Buffer(Dest.Data);
+      end;
+      Dest.Data := nil;
+      Dest.Ident := mrEmpty;
+    end;
+    mrBin3Style: begin
+      I := GetBin3Offset(Source.Data, FieldCount);
+      {$IFDEF USE_REALLOC}
+      case Dest.Ident of
+        mrEmpty : Dest.Data := CreateBin3Struct(i);
+        mrBin2Style: begin
+          ClearBin2Buffer(Dest.Data);
+          if i < FNativeRecordSize then begin
+            ReallocMem(Dest.Data,i);
+          end
+          else begin
+            FreeMem(Dest.Data);
+            Dest.Data := CreateBin3Struct(i);
+          end;
+        end;
+        mrBin3Style: begin
+          if i <= GetBin3Offset(Dest.Data, FieldCount) then begin
+            ReallocMem(Dest.Data,i)
+          end
+          else begin
+            FreeMem(Dest.Data);
+            Dest.Data := CreateBin3Struct(i);
+          end;
+        end;
+      end;
+      {$ELSE}
+      case Dest.Ident of
+        mrBin2Style: FreeBin2Buffer(Dest.Data);
+        mrBin3Style: FreeBin3Buffer(Dest.Data);
+      end;
+      Dest.Data := CreateBin3Struct(i);
+      {$ENDIF}
+      Move(pointer(Source.Data)^, pointer(Dest.Data)^, i);
+      Dest.Ident := mrBin3Style;
+    end;
+    mrBin2Style: begin
+      if Dest.Ident = mrBin3Style then FreeBin3Buffer(Dest.Data);
+      if ACanPack and FAutoCompactRecords then
+        lbin3 := Bin2ToBin3(Source.Data)
+      else
+        lbin3 := nil;
+      if lbin3 <> nil then begin
+        if Dest.Ident = mrBin2Style then FreeBin2Buffer(Dest.Data);
+        Dest.Ident := mrBin3Style;
+        Dest.Data := lbin3;
+      end
+      else begin
+        if Dest.Ident = mrBin2Style then
+          ClearBin2Buffer(Dest.Data)
+        else
+          Dest.Data := CreateBin2Struct;
+        Dest.Ident := mrBin2Style;
+        if not GetHasReferencedFields then begin
+          Move(pointer(Source.Data)^, pointer(Dest.Data)^, FNativeRecordSize);
+        end
+        else begin
+          Move(pointer(Source.Data)^, pointer(Dest.Data)^, FNullMaskSize);
+
+          for I := 0 to FieldCount - 1 do begin
+            if (not GetNullMask(Source.Data, i)) then begin
+              if not IsReferencedField(FDataTypeArray[i])  then begin
+                Move(pointer(Source.Data + FOffsets[i])^, pointer(Dest.Data + FOffsets[i])^, FDataSizeArray[i])
+              end
+              else begin
+                case FDataTypeArray[i] of
+                  ftString,ftFixedChar: PAnsiString(Dest.Data + FOffsets[i])^ := PAnsiString(Source.Data + FOffsets[i])^;
+                  {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+                  ftWideString: PUnicodeString(Dest.Data + FOffsets[i])^ := PUnicodeString(Source.Data + FOffsets[i])^;
+                else
+                  if FDataTypeArray[i] in ft_BlobTypes then begin
+                    p := PPointer(Source.Data + FOffsets[i])^;
+                    if p <> nil then begin
+                      p2 := CreateBlobRecord(PBlobRecord(p)^.size);
+                      Move(pointer(p)^, pointer(p2)^, p^.size + SizeOf(TBlobRecord));
+                      PPointer(Dest.Data + FOffsets[i])^ := p2;
+                    end
+                    else begin
+                      SetNullMask(Dest.Data, i, True);
+                    end;
+                  end;
+                end;
+              end;
+            end;
+          end;
+        end;
+      end;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.EEGetValue(Sender: TDAExpressionEvaluator; const aIdentifier: string; out aValue: Variant);
+var
+  lIdentifier: string;
+  lLen: integer;
+begin
+  lLen := Length(aIdentifier);
+  if (lLen >0) and (aIdentifier[1] = '[') and (aIdentifier[lLen] = ']') then
+    lIdentifier := Copy(aIdentifier, 2, lLen-2)
+  else
+    lIdentifier := aIdentifier;
+  aValue:= GetVarValueFromBuffer(FExpressionBuffer^.Data, FieldByName(lIdentifier), FExpressionBuffer^.Ident = mrBin2Style);
+end;
+
+procedure TDAMemoryDataset.ProcessFilter;
+begin
+  CheckBrowseMode;
+  DoFilterRecords;
+end;
+
+function TDAMemoryDataset.FilterRecord(buf: PMemDatasetrecord_Native; AUseEvent: Boolean): Boolean;
+begin
+  Result:=True;
+  if FRangeActive then begin
+    IntGetRecordList.LockListForReading;
+    try
+      Result := (CompareValues_Range(buf,FKeyBuffers[kiCurRangeStart]) >=0) and
+                (CompareValues_Range(buf,FKeyBuffers[kiCurRangeEnd])   <=0);
+    finally
+      IntGetRecordList.UnlockListForReading;
+    end;
+  end;
+  if Result and Filtered and (Filter <> '') then begin
+    IntGetRecordList.LockListForReading;
+    try
+      FExpressionBuffer:=buf;
+      Result := FExpressionEvaluator.Evaluate(Filter);
+    finally
+      IntGetRecordList.UnlockListForReading;
+    end;
+  end;
+  if Result and AUseEvent and Assigned(OnFilterRecord) then OnFilterRecord(Self, Result);
+end;
+
+procedure TDAMemoryDataset.FreeRecordBuffer(var Buffer: Dataset_PAnsiChar);
+begin
+  FreeMemDatasetRecord(pointer(Buffer));
+  Buffer := nil;
+end;
+
+function TDAMemoryDataset.GetActiveRecBuf(var RecBuf: Dataset_PAnsiChar): Boolean;
+begin
+  case State of
+    dsBrowse:
+      if IsEmpty then
+        RecBuf := nil
+      else
+        RecBuf := ActiveBuffer;
+    dsEdit, dsInsert, dsNewValue: RecBuf := ActiveBuffer;
+    dsCalcFields: RecBuf := CalcBuffer;
+    dsFilter: RecBuf := FFilterBuffer;
+    dsSetKey: RecBuf := Dataset_PAnsiChar(FKeyBuffer) + SizeOf(TMemKeyBuffer);
+  else
+    RecBuf := nil;
+  end;
+  Result := RecBuf <> nil;
+end;
+
+procedure TDAMemoryDataset.GetBookmarkData(Buffer: Dataset_PAnsiChar; Data: Pointer);
+begin
+  Move(PMemDatasetrecord(Buffer)^.BookmarkData.Bookmark, PBookmarkData(Data)^, SizeOf(TBookmarkData));
+end;
+
+function TDAMemoryDataset.GetBookmarkFlag(Buffer: Dataset_PAnsiChar): TBookmarkFlag;
+begin
+  Result := PMemDatasetrecord(Buffer)^.BookmarkData.BookmarkFlag;
+end;
+
+function TDAMemoryDataset.GetFieldData(Field: TField; Buffer: Pointer): Boolean;
+var
+  RecBuf: Dataset_PAnsiChar;
+  Data: Dataset_PAnsiChar;
+  //  VarData           : Variant;
+  Len: integer;
+  k,k1: Cardinal;
+begin
+  Result := False;
+  {$IFDEF FPC}
+  RecBuf := nil;
+  {$ENDIF FPC}
+  if not GetActiveRecBuf(RecBuf) then Exit;
+  Result := (PMemDatasetrecord_Native(RecBuf)^.Ident in [mrBin2Style, mrBin3Style]) and
+            (Field.DataType in ft_Supported) and
+            not GetNullMask(PMemDatasetrecord_Native(RecBuf)^.Data, GetFieldNo(Field));
+  if Result and (Buffer <> nil) then begin
+    case PMemDatasetrecord_Native(RecBuf)^.Ident of
+      mrBin2Style: begin
+        Data := PMemDatasetrecord_Native(RecBuf)^.Data + FOffsets[GetFieldNo(Field)];
+        if Data = nil then begin
+          Result:=False;
+          Exit;
+        end;
+        {if Field.DataType = ftVariant then
+          begin
+            VarData := PVariant(Data)^;
+            PVariant(Buffer)^ := VarData;
+          end
+          else}
+        if not IsReferencedField(Field.DataType) then begin
+          Move(Data^, Buffer^, FDataSizeArray[GetFieldNo(Field)])
+        end else begin
+          case Field.DataType of
+            ftString,ftFixedChar: begin
+              len := Length(PAnsiString(Data)^);
+              if Len > Field.Size then Len := Field.Size;
+              Move(pointer(PAnsiString(Data)^)^, buffer^, len*SizeOf(AnsiChar));
+              PAnsiChar(buffer)[Len] := #0;
+            end;
+            ftWideString: begin
+              len := Length(PUnicodeString(Data)^);
+              if Len > Field.Size then Len := Field.Size;
+              Move(pointer(PUnicodeString(Data)^)^, buffer^, len * sizeOf(UnicodeChar));
+              PUnicodeChar(buffer)[Len] := #0;
+            end;
+          else
+            if Field.DataType in ft_BlobTypes then DatabaseError('GetFieldData: BlobType');
+          end;
+        end;
+      end;
+      mrBin3Style: begin
+        Data :=PMemDatasetrecord_Native(RecBuf)^.Data;
+        k  := GetBin3Offset(Data,GetFieldNo(Field));
+        k1 := GetBin3Offset(Data,GetFieldNo(Field)+1);
+        Move((Data+k)^, buffer^, k1-k);
+      end;
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.GetFieldNo(aField: TField): integer;
+begin
+  Result := aField.FieldNo-1;
+  if Result < 0 then begin
+    Result := FFieldNoList.IndexOf(aField.FieldName);
+    if Result <> -1 then Result := integer(FFieldNoList.Objects[Result]);
+  end;
+end;
+
+function TDAMemoryDataset.GetHasReferencedFields: Boolean;
+begin
+  if FCloneSource <> nil then
+    Result:= FCloneSource.FHasReferencedFields
+  else
+    Result:= FHasReferencedFields;
+end;
+
+function TDAMemoryDataset.GetRecNo: Integer;
+begin
+  UpdateCursorPos;
+  if (FRecordPos = -1) and (RecordCount > 0) then
+    Result := 1
+  else
+    Result := FRecordPos + 1;
+end;
+
+function TDAMemoryDataset.InternalGetRecord(Buffer: PMemDatasetRecord; GetMode: TGetMode;
+  DoCheck: Boolean): TGetResult;
+begin
+  if Buffer = nil then begin
+    Result := grError;
+    Exit;
+  end;
+
+  Result := grOk;
+  case GetMode of
+    gmCurrent: begin
+      if (FRecordPos = -1) and (RecordCount > 0) then FRecordPos := 0;
+      if (FRecordPos < 0) or (FRecordPos >= RecordCount) then Result := grError;
+    end;
+    gmPrior:
+      if FRecordPos <= 0 then begin
+        Result := grBOF;
+        FRecordPos := -1;
+      end
+      else
+        Dec(FRecordPos);
+    gmNext:
+      if FRecordPos >= RecordCount - 1 then
+        Result := grEOF
+      else
+        Inc(FRecordPos);
+  end;
+  if Result = grOk then begin
+    RecordToBuffer(FRecordPos, Buffer);
+    GetCalcFields(Dataset_PAnsiChar(Buffer));
+  end
+  else if (Result = grError) and DoCheck then
+    DatabaseError('No data found');
+end;
+
+function TDAMemoryDataset.GetRecordCount: Integer;
+begin
+  Result := FDataList.Count;
+end;
+
+function TDAMemoryDataset.GetRecordSize: Word;
+begin
+  Result := FDatasetBufferSize;
+end;
+
+function TDAMemoryDataset.GetStoreStringsAsReference: Boolean;
+begin
+  if FCloneSource <> nil then
+    Result:= FCloneSource.GetStoreStringsAsReference
+  else
+    Result := FStoreStringsAsReference;
+end;
+
+function TDAMemoryDataset.GetVarValueFromBuffer(Buffer: pointer; Field: TField; abin2: boolean): variant;
+var
+  buf: PAnsiChar;
+  p: pointer;
+  lLen: cardinal;
+begin
+  if GetNullMask(Buffer,GetFieldNo(Field)) then begin
+    Result := Null;
+  end
+  else begin
+    buf := IntFindFieldData(Buffer,Field,aBin2);
+    case Field.DataType of
+      ftString, ftFixedChar: begin
+        if abin2 and GetStoreStringsAsReference then
+          Result := PAnsistring(Buf)^
+        else
+          Result := Ansistring(PAnsiChar(Buf));
+      end;
+      {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+      ftWideString: begin
+        if abin2 and GetStoreStringsAsReference then
+          Result := PUnicodestring(Buf)^
+        else
+          Result := UnicodeString(PUnicodeChar(Buf))
+      end;
+      ftSmallint: Result := PSmallint(buf)^;
+      ftInteger, ftDate, ftTime, ftAutoInc: Result := PInteger(buf)^;
+      ftWord: Result := PWord(buf)^;
+      ftBoolean: Result := PWordBool(buf)^;
+      ftFloat, ftCurrency: Result := PDouble(Buf)^;
+      ftDateTime: Result := TimeStampToDateTime(MSecsToTimeStamp({$IFDEF FPC}Trunc{$ENDIF}( PDateTime(Buf)^)));
+      ftBcd: Result := PCurrency(buf)^;
+      ftFMTBCD: Result := BCDToVariant(PBcd(buf)^);
+      ftLargeint: Result := PInt64(Buf)^;
+      {$IFNDEF FPC}
+      ftTimeStamp: Result := VarSQLTimeStampCreate(PSQLTimeStamp(Buf)^);
+      {$ENDIF FPC}
+      ftGuid: Result:= AnsiString(PAnsiChar(Buf));
+      {$IFDEF DELPHI2009UP}
+      ftLongWord: Result := PLongWord(Buf)^;
+      ftShortint: Result := PShortInt(Buf)^;
+      ftByte:     Result := PByte(Buf)^;
+      ftExtended: Result := PExtended(Buf)^;
+      {$ENDIF}
+      {$IFDEF DELPHI2010UP}
+      ftSingle: Result := PSingle(Buf)^;
+      {$ENDIF}
+
+    else
+      if abin2 then
+        lLen:=PBLOBRecord(buf)^.size
+      else
+        lLen := GetBin3Offset(Buffer, GetFieldNo(Field)+1)-GetBin3Offset(Buffer, GetFieldNo(Field));
+      Result := VarArrayCreate([0,lLen-1],varByte);
+      p := VarArrayLock(Result);
+      try
+        if abin2 then
+          move(PBLOBRecord(buf)^.Data, p^,PBLOBRecord(buf)^.size)
+        else
+          Move(buf^, p^, lLen);
+      finally
+        VarArrayUnlock(Result);
+      end;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.IntAssignRecord(Source, Dest: PMemDatasetrecord_Native);
+begin
+  if State = dsFilter then DatabaseError(SNotEditing);
+  DuplicateBuffer(Source, Dest,True);
+end;
+
+
+procedure TDAMemoryDataset.InternalAddRecord(Buffer: Pointer; Append: Boolean);
+var
+  RecPos: Integer;
+  Rec: PMemDatasetrecord_Native;
+begin
+  Rec := CreateMemDatasetRecord(mrEmpty,0,False);
+  if Append then
+    RecPos := FDataList.Add(Rec)
+  else begin
+    if FRecordPos = -1 then
+      RecPos := 0
+    else
+      RecPos := FRecordPos;
+    FDataList.Insert(RecNo, Rec);
+  end;
+  FRecordPos := RecPos;
+  //  SetAutoIncFields(Buffer);
+  IntAssignRecord(Buffer, Rec);
+  IntInsertBuffer(Rec);
+end;
+
+procedure TDAMemoryDataset.InternalClose;
+var
+  i: integer;
+begin
+  f_DefaultIndexRecord.Clear;
+  For i:=0 to FIndexList.Count-1 do
+    TDAMemIndex(FIndexList[i]).Clear;
+
+//  FIndexFieldNameList.Clear;
+//  FIndexCaseInsList.Clear;
+//  FIndexDescFields.Clear;
+  UnregisterClient(Self);
+  UnregisterPermanentClients;
+  ClearRecords;
+  FreeKeyBuffers;
+  FCloneSource := nil;
+  BindFields(False);
+  if DefaultFields then DestroyFields;
+  SetLength(FDataTypeArray,0);
+  SetLength(FOffsets, 0);
+  SetLength(FDataSizeArray,0);
+  FActive := False;
+end;
+
+procedure TDAMemoryDataset.InternalDelete;
+var
+  f: boolean;
+begin
+  IntRemoveBuffer(FDataList.Items[FRecordPos]);
+  f := f_DefaultIndexRecord.LastSorted > FLastUpdate;
+  FLastUpdate := Now;
+  if f then f_DefaultIndexRecord.LastSorted :=Now;
+end;
+
+procedure TDAMemoryDataset.InternalFirst;
+begin
+  FRecordPos := -1;
+end;
+
+procedure TDAMemoryDataset.InternalGotoBookmark(Bookmark: Pointer);
+var
+  lRecNo: Integer;
+begin
+  lRecNo := IntFindRecordID(PBookMarkData(Bookmark)^);
+  if lRecNo <> -1 then
+    FRecordPos := lRecNo
+  else
+    DatabaseError('Bookmark not found');
+end;
+
+procedure TDAMemoryDataset.InternalHandleException;
+begin
+ {$IFDEF FPC}
+   inherited;
+ {$ELSE}
+   Application.HandleException(Self);
+ {$ENDIF}
+end;
+
+procedure TDAMemoryDataset.InternalInitFieldDefs;
+begin
+  //  inherited InternalInitFieldDefs;
+end;
+
+procedure TDAMemoryDataset.InternalInitRecord(Buffer: Dataset_PAnsiChar);
+begin
+  with PMemDatasetrecord_Native(Buffer)^ do begin
+    case Ident of
+      mrEmpty:;
+      mrBin2Style: FreeBin2Buffer(Data);
+      mrBin3Style: FreeBin3Buffer(Data);
+    end;
+    Ident := mrEmpty;
+    Data := nil;
+  end;
+end;
+
+procedure TDAMemoryDataset.InternalLast;
+begin
+  FRecordPos := RecordCount;
+end;
+
+procedure TDAMemoryDataset.InternalOpen;
+begin
+  BookmarkSize := SizeOf(TBookmarkData);
+  FieldDefs.Update;
+  IndexDefs.Updated := False;
+  if DefaultFields then CreateFields;
+  BindFields(True);
+  CalculateOffsets;
+  RegisterClient(Self);
+  RegisterPermanentClients;
+  AllocKeyBuffers;
+  FLastUpdate:=Now;
+  if FDetailFields <> '' then InitDetailFieldNamesList;
+  if FIndexName <> '' then f_DefaultIndexRecord.Init(GetIndexFields);
+  DoFilterRecords;
+  InternalFirst;
+end;
+
+procedure TDAMemoryDataset.InternalPost;
+var
+  Rec: Pointer;
+begin
+{$IFDEF DELPHI6UP}
+  inherited InternalPost;
+{$ENDIF}
+  if State = dsEdit then begin
+    Rec:=FDataList[FRecordPos];
+    IntGetRecordList.LockListForWriting;
+    try
+      IntAssignRecord(pointer(ActiveBuffer), Rec);
+    finally
+      IntGetRecordList.UnlockListForWriting;
+    end;
+    IntUpdateBuffer(Rec);
+  end
+  else begin
+    //    if State in [dsInsert] then SetAutoIncFields(ActiveBuffer);
+    Rec := CreateMemDatasetRecord(mrEmpty,0,False);
+    IntAssignRecord(Pointer(ActiveBuffer), Rec);
+    intInsertRecord(Rec);
+    IntInsertBuffer(Rec);
+  end;
+  FLastUpdate := now;
+end;
+
+procedure TDAMemoryDataset.InternalSetFieldData(Field: TField; Buffer: Pointer);
+var
+  RecBuf: Dataset_PAnsiChar;
+  Data: PAnsiChar;
+  nativeData: Dataset_PAnsiChar;
+begin
+  {$IFDEF FPC}
+  RecBuf := nil;
+  {$ENDIF FPC}
+  GetActiveRecBuf(RecBuf);
+  with Field do begin
+    if State = dsSetKey then
+      nativeData := RecBuf
+    else begin
+      ConvertBin3ToBin2Record(PMemDatasetrecord_Native(RecBuf));
+      nativeData := PMemDatasetrecord_Native(RecBuf)^.Data;
+    end;
+    Data := IntFindFieldData(nativeData, Field, True);
+    if Data <> nil then begin
+      {
+      if DataType = ftVariant then begin
+        if Buffer <> nil then
+          VarData := PVariant(Buffer)^
+        else
+          VarData := EmptyParam;
+        PVariant(Data)^ := VarData;
+      end else
+      }
+      if not IsReferencedField(Field.DataType) then begin
+        if Buffer <> nil then begin
+          Move(Buffer^, Data^, FDataSizeArray[GetFieldNo(Field)]);
+          SetNullMask(nativeData, GetFieldNo(Field), False);
+        end
+        else
+          SetNullMask(nativeData, GetFieldNo(Field), True);
+      end
+      else begin
+        if Buffer <> nil then begin
+          if Field.DataType in [ftString,ftFixedChar] then begin
+            PAnsiString(Data)^ := PAnsiChar(buffer);
+            SetNullMask(nativeData, GetFieldNo(Field), False);
+          end
+          else if Field.DataType in [{$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}ftWideString] then begin
+            PUnicodeString(Data)^ := PUnicodeChar(buffer);
+            SetNullMask(nativeData, GetFieldNo(Field), False);
+          end;
+        end
+        else
+          SetNullMask(nativeData, GetFieldNo(Field), True);
+      end;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.InternalSetToRecord(Buffer: Dataset_PAnsiChar);
+begin
+  InternalGotoBookmark(@PMemDatasetRecord(Buffer)^.BookmarkData.Bookmark);
+end;
+
+function TDAMemoryDataset.IntFindFieldData(Buffer: Dataset_PAnsiChar;
+  Field: TField; aBin2: Boolean): Pointer;
+begin
+  if (Buffer <> nil) and (Field.DataType in ft_Supported) then begin
+    if aBin2 then
+      Result := (Buffer + FOffsets[GetFieldNo(Field)])
+    else
+      Result := Buffer + GetBin3Offset(Buffer,GetFieldNo(Field));
+  end
+  else
+    Result := nil;
+end;
+
+function TDAMemoryDataset.IntFindFieldData(Buffer: PMemDatasetrecord_Native;Field: TField): Pointer;
+begin
+  if (Buffer <> nil) then
+    Result := IntFindFieldData(Buffer^.Data,Field, Buffer^.Ident = mrBin2Style)
+  else
+    Result := nil;
+end;
+
+function TDAMemoryDataset.IntFindRecordID(Buf: pointer): Integer;
+begin
+  Result := FDataList.IndexOf(Buf);
+end;
+
+function TDAMemoryDataset.IsActiveFilter: Boolean;
+begin
+  Result := (Filtered and ((Filter <> '') or Assigned(OnFilterRecord))) or FRangeActive;
+end;
+
+function TDAMemoryDataset.IsCursorOpen: Boolean;
+begin
+  Result := FActive;
+end;
+
+function TDAMemoryDataset.IsReferencedField(ADataType: TFieldType): Boolean;
+begin
+  Result:= (ADataType in ft_BlobTypes) or ((ADataType in ft_Strings) and GetStoreStringsAsReference);
+end;
+
+procedure TDAMemoryDataset.OpenCursor(InfoQuery: Boolean);
+var
+  i: integer;
+  lfld, lfld2: TField;
+begin
+  if not InfoQuery then begin
+    if (FMemCloneSource <> nil) and (FCloneSource = nil) then begin
+      if FMemCloneSource <> nil then FMemCloneSource.Open;
+      FMemCloneSource.RegisterClient(Self);
+    end;
+    if FCloneSource <> nil then begin
+      Fields.Clear;
+      // creating
+      FieldDefs.Assign(FCloneSource.FieldDefs);
+      for i:=0 to FieldDefs.Count-1 do
+        FieldDefs[i].CreateField(Self).DataSet := Self;
+      // creating lookups
+      For i:=0 to FCloneSource.Fields.Count-1 do begin
+        lfld2 := FCloneSource.Fields[i];
+        if lfld2.FieldKind in [fkCalculated,fkLookup] then begin
+          lfld := TField(lfld2.NewInstance).Create(Self);
+          lfld.Name := Self.Name + lfld2.FieldName;
+          lfld.FieldName := lfld2.FieldName;
+          lfld.DataSet := Self;
+          if (lfld2 is TStringField) or (lfld2 is TWideStringField) then lfld.Size := lfld2.Size;
+          lfld.FieldKind := lfld2.FieldKind;
+          lfld.Required := lfld2.Required;
+          {$IFNDEF FPC}
+          lfld.Lookup := lfld2.Lookup;
+          {$ENDIF}
+          lfld.LookupDataSet := lfld2.LookupDataSet;
+          lfld.LookupKeyFields := lfld2.LookupKeyFields;
+          lfld.LookupCache := lfld2.LookupCache;
+          lfld.LookupResultField := lfld2.LookupResultField;
+          lfld.KeyFields := lfld2.KeyFields;
+        end;
+      end;
+     for i := 0 to FCloneSource.Fields.Count-1 do
+       FieldByName(FCloneSource.Fields[i].FieldName).Index := i + 1;
+    end
+    else begin
+      if FieldCount > 0 then FieldDefs.Clear;
+      InitFieldDefsFromFields;
+    end;
+    FExpressionEvaluator.UseTrueFalseinVariableName:=False;
+    For i:=0 to Fields.Count-1 do begin
+      // eugene: 20080407 - SameText
+      if SameText(Fields[i].FieldName,'True') or SameText(Fields[i].FieldName,'False') then begin
+        FExpressionEvaluator.UseTrueFalseinVariableName:=True;
+        Break;
+      end;
+    end;
+  end;
+  FActive := True;
+  inherited OpenCursor(InfoQuery);
+end;
+
+function TDAMemoryDataset.GetNullMask(Buffer: Dataset_PAnsiChar; const AIndex: Integer): boolean;
+begin
+  Result := (ord(Buffer[AIndex shr 3]) shr (AIndex and 7)) and 1 = 1;
+end;
+
+procedure TDAMemoryDataset.RecordToBuffer(RecNo: integer; Buffer: PMemDatasetRecord);
+begin
+  IntGetRecordList.LockListForReading;
+  try
+    with Buffer^.BookmarkData do begin
+      Bookmark := TBookmarkData(FDataList[RecNo]);
+      BookmarkFlag := bfCurrent;
+    end;
+    DuplicateBuffer(FDataList[RecNo], Pointer(Buffer),False);
+  finally
+    IntGetRecordList.UnlockListForReading;
+  end;
+end;
+
+procedure TDAMemoryDataset.SetAnsiString(NativeBuf: Pointer; Field: TField;
+  const Value: Ansistring);
+var
+  len: integer;
+begin
+  if GetStoreStringsAsReference then
+    PAnsiString(NativeBuf)^:=Value
+  else begin
+    len := Length(Value);
+    if Len > Field.Size then len:= Field.Size;
+    move(Pointer(Value)^,NativeBuf^,len*SizeOf(AnsiChar));
+    PAnsiChar(NativeBuf)[len]:=#0;
+  end;
+end;
+
+procedure TDAMemoryDataset.SetBlobData(Field: TField; Buffer: PMemDatasetrecord_Native;
+  Value: PBLOBRecord);
+begin
+  ConvertBin3ToBin2Record(Buffer);
+  if PPointer(Buffer.Data + FOffsets[GetFieldNo(Field)])^ <> Value then begin
+    PPointer(Buffer.Data + FOffsets[GetFieldNo(Field)])^ := Value;
+    SetNullMask(Buffer.Data, GetFieldNo(Field), False);
+  end;
+end;
+
+procedure TDAMemoryDataset.SetBookmarkData(Buffer: Dataset_PAnsiChar; Data: Pointer);
+begin
+  Move(Data^, PMemDatasetRecord(Buffer)^.BookmarkData.Bookmark, SizeOf(TBookmarkData));
+end;
+
+procedure TDAMemoryDataset.SetBookmarkFlag(Buffer: Dataset_PAnsiChar; Value: TBookmarkFlag);
+begin
+  PMemDatasetRecord(Buffer)^.BookmarkData.BookmarkFlag := Value;
+end;
+
+procedure TDAMemoryDataset.SetFieldData(Field: TField; Buffer: Pointer);
+begin
+  if (State = dsSetKey) and ((Field.FieldNo < 0) or f_DefaultIndexRecord.IsValid and not Field.IsIndexField) then DatabaseErrorFmt(SNotIndexField, [Field.DisplayName]);
+  if not (State in dsWriteModes) then DatabaseError(SNotEditing);
+  with Field do begin
+    if FieldNo > 0 then begin
+      if State in [dsCalcFields, dsFilter] then DatabaseError(SNotEditing);
+      if ReadOnly and not (State in [dsSetKey, dsFilter]) then DatabaseErrorFmt({$IFDEF FPC}SReadOnlyField{$ELSE}SFieldReadOnly{$ENDIF}, [DisplayName]);
+      Validate(Buffer);
+    end;
+   if FieldKind <> fkInternalCalc then begin
+     InternalSetFieldData(Field, Buffer);
+   end;
+   if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then DataEvent(deFieldChange, Longint(Field));
+  end;
+end;
+
+procedure TDAMemoryDataset.SetNullMask(Buffer: Dataset_PAnsiChar; const AIndex: Integer; const Value: boolean);
+var
+  i: byte;
+begin
+  i := AIndex shr 3;
+  if Value then
+    Buffer[I] := {$IFNDEF DELPHI2009UP}AnsiChar{$ENDIF}(ord(Buffer[I]) or (1 shl (AIndex and 7)))
+  else
+    Buffer[I] := {$IFNDEF DELPHI2009UP}AnsiChar{$ENDIF}(ord(Buffer[I]) and not (1 shl (AIndex and 7)))
+end;
+
+procedure TDAMemoryDataset.SetOnFilterRecord(const Value: TFilterRecordEvent);
+begin
+  inherited;
+  if Active and Filtered then First;
+end;
+
+procedure TDAMemoryDataset.SetRecNo(Value: Integer);
+begin
+  if (Value > 0) and (Value <= RecordCount) then begin
+    DoBeforeScroll;
+    FRecordPos := Value - 1;
+    Resync([]);
+    DoAfterScroll;
+  end;
+end;
+
+procedure TDAMemoryDataset.DataConvert(Field: TField; Source,
+  Dest: Pointer; ToNative: Boolean);
+{$IFNDEF DELPHI10UP}
+var
+  len: integer;
+{$ENDIF DELPHI10UP}
+begin
+  Case Field.Datatype of
+    ftBCD: PCurrency(Dest)^ := PCurrency(Source)^;
+{$IFNDEF FPC}
+{$IFNDEF DELPHI10UP}
+    ftWideString: begin
+      if ToNative then begin
+        len := Length(PUnicodeString(Source)^);
+        Move(PUnicodeChar(Source^)^, PUnicodeChar(Dest)^, len * SizeOf(UnicodeChar));
+        PUnicodeChar(Dest)[Len] := #0;
+      end
+      else begin
+        len := Length(PUnicodeChar(Source));
+        SetString(UnicodeString(Dest^), PUnicodeChar(Source), Len);
+      end;
+    end
+{$ENDIF}
+{$ENDIF}
+  else
+    inherited DataConvert(Field, Source, Dest, ToNative);
+  end;
+end;
+
+function TDAMemoryDataset.GetDataSource: TDataSource;
+begin
+  Result := MasterDataLink.DataSource;
+end;
+
+function TDAMemoryDataset.GetMasterFields: string;
+begin
+  Result := MasterDataLink.FieldNames;
+end;
+
+{$IFDEF FPC}
+const
+  SCircularDataLink = 'Circular datalinks are not allowed';
+{$ENDIF}
+
+procedure TDAMemoryDataset.SetDataSource(const Value: TDataSource);
+begin
+  if Value <> MasterDataLink.DataSource then begin
+    if (Value <> nil) and (Value.DataSet <> nil) then CheckforCircularLinks(Value.DataSet, False);
+    if IsLinkedTo(Value) then DatabaseError(SCircularDataLink, Self);
+    DataEvent(dePropertyChange, 0);
+    MasterDataLink.DataSource := Value;
+  end;
+end;
+
+procedure TDAMemoryDataset.SetMasterFields(const Value: string);
+begin
+  if (Value <> '') and (Filter <> '') then DatabaseError(SNoDetailFilter, Self);
+  if MasterDataLink.FieldNames <> Value then DataEvent(dePropertyChange, 0);
+  MasterDataLink.FieldNames := Value;
+end;
+
+function TDAMemoryDataset.GetIndexFieldNames: string;
+begin
+  if FFieldsIndex then Result := FIndexName else Result := '';
+end;
+
+procedure TDAMemoryDataset.SetIndexFieldNames(const Value: string);
+begin
+  SetIndex(Value, True);
+end;
+
+function TDAMemoryDataset.GetRecord(Buffer: Dataset_PAnsiChar; GetMode: TGetMode;
+  DoCheck: Boolean): TGetResult;
+var
+  Accept: Boolean;
+  SaveState: TDataSetState;
+begin
+  if Filtered and Assigned(OnFilterRecord) then begin
+    FFilterBuffer := Buffer;
+    SaveState := SetTempState(dsFilter);
+    try
+      Accept := True;
+      repeat
+        Result := InternalGetRecord(Pointer(Buffer), GetMode, DoCheck);
+        if Result = grOK then begin
+          OnFilterRecord(Self, Accept);
+          if not Accept and (GetMode = gmCurrent) then
+            Result := grError;
+        end;
+      until Accept or (Result <> grOK);
+    except
+      ApplicationHandleException(Self);
+      Result := grError;
+    end;
+    RestoreState(SaveState);
+  end else
+    Result := InternalGetRecord(Pointer(Buffer), GetMode, DoCheck)
+end;
+
+procedure TDAMemoryDataset.SetFiltered(Value: Boolean);
+begin
+  if Active and (Value <> Filtered) then begin
+    inherited;
+    if (Filter <> '') then
+      ProcessFilter
+    else if Assigned(OnFilterRecord) then First;         
+  end
+  else
+    inherited;
+end;
+
+procedure TDAMemoryDataset.SetFilterOptions(Value: TFilterOptions);
+begin
+  if (Value <> FilterOptions) then begin
+    inherited;
+    FExpressionEvaluator.StringCaseInsensitive := foCaseInsensitive in FilterOptions;
+    FExpressionEvaluator.UseWildcardsInEqual := not (foNoPartialCompare in FilterOptions);
+    if Active and Filtered then ProcessFilter;
+  end;
+end;
+
+procedure TDAMemoryDataset.SetFilterText(const Value: string);
+begin
+  if Active and Filtered and (Value <> Filter) then begin
+    inherited;
+    ProcessFilter;
+  end
+  else
+    inherited;
+end;
+
+procedure TDAMemoryDataset.DoSort(AIndex: TDAMemIndex; AUseFullListForIndexes: boolean = False);
+var
+  pos: TBookmarkData;
+  lRecList:TThreadMemList;
+  LList:TMemList;
+  lflag: boolean;
+  loldRangeActive: Boolean;
+begin
+  if Active and (FieldCount > 0) and (FDataList.Count <> 0) then begin
+    if AIndex = f_DefaultIndexRecord then begin
+{$IFDEF MEMDATASET_DEBUG}
+OutputDebugString(Pchar('TDAMemoryDataset.DoSort'));
+{$ENDIF}
+      loldRangeActive := FRangeActive;
+      FRangeActive := False;
+      try
+        if (FRecordPos<>-1) and (FRecordPos < FDataList.Count) then
+          pos := FDataList[FRecordPos]
+        else
+          pos := nil;
+        try
+          lRecList:=IntGetRecordList;
+          LList:=lRecList.LockListForReading;
+          try
+            lflag:=(not AIndex.IsValid) and (FDataList.Count = LList.Count);
+            if lFlag then
+              FDataList.Assign(LList)
+            else begin
+              QuickSort(0, FDataList.Count - 1, Compare, AIndex);
+            end;
+          finally
+            lRecList.UnlockListForReading;
+          end;
+          AIndex.LastSorted := Now;
+          SetBufListSize(0);
+          try
+            SetBufListSize(BufferCount + 1);
+          except
+            SetState(dsInactive);
+            CloseCursor;
+            raise;
+          end;
+         {$IFDEF FPC}
+          RecalcBufListSize;
+         {$ENDIF}
+        finally
+          if pos = nil then
+            FRecordPos := -1
+          else
+            FRecordPos := IntFindRecordID(pos);
+          if (FRecordPos = -1) and (RecordCount > 0) then FRecordPos := 0;
+        end;
+      finally
+        FRangeActive := loldRangeActive;
+      end;
+      Resync([]);
+    end
+    else begin
+      if AIndex.IsValid then begin
+        if (FLastUpdate > AIndex.LastSorted) or (AUseFullListForIndexes <> AIndex.UseFullList) then begin
+          if AUseFullListForIndexes then begin
+            lRecList:=IntGetRecordList;
+            LList:=lRecList.LockListForReading;
+            try
+              AIndex.DataList.Assign(LList);
+              QuickSort(0, FDataList.Count - 1, Compare, AIndex);
+            finally
+              lRecList.UnlockListForReading;
+            end;
+          end
+          else begin
+            AIndex.DataList.Assign(FDataList);
+            QuickSort(0, AIndex.DataList.Count - 1, Compare, AIndex);
+          end;
+          AIndex.LastSorted := Now;
+          AIndex.UseFullList := AUseFullListForIndexes;
+        end;
+      end;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.QuickSort(L, R: Integer; SCompare: TDAMemDatasetCompare;AIndex: TDAMemIndex);
+var
+  I, J: Integer;
+  P: pointer;
+  llist: TMemList;
+begin
+  if AIndex.DataList.Count < 2 then Exit;
+  lList := AIndex.DataList;
+  repeat
+    I := L;
+    J := R;
+    P := lList[(L + R) shr 1];
+    repeat
+      while SCompare(lList[I], P, AIndex) < 0 do Inc(I);
+      while SCompare(lList[j], P, AIndex) > 0 do Dec(J);
+      if I <= J then begin
+        lList.Exchange(I, J);
+        Inc(I);
+        Dec(J);
+      end;
+    until I > J;
+    if L < J then QuickSort(L, J, SCompare, AIndex);
+    L := I;
+  until I >= R;
+end;
+
+function TDAMemoryDataset.Compare(i1, i2: PMemDatasetrecord_Native; AIndex: TDAMemIndex): Integer;
+var
+  buf1, buf2: Dataset_PAnsiChar;
+  i: integer;
+  Field: TField;
+  p1, p2: PAnsiChar;
+  lList: TMemList;
+  lbin2_1,lbin2_2: Boolean;
+begin
+  buf1 := i1^.Data;
+  buf2 := i2^.Data;
+  Result := 0;
+  if AIndex.IsValid then begin
+    lbin2_1 := i1^.Ident = mrBin2Style;
+    lbin2_2 := i2^.Ident = mrBin2Style;
+    for i := 0 to AIndex.IndexFieldNameList.Count - 1 do begin
+      Field := AIndex.IndexFieldNameList[i];
+      if not GetNullMask(buf1, GetFieldNo(Field)) then
+        p1 := intFindFieldData(buf1, Field, lbin2_1)
+      else
+        p1 := nil;
+      if not GetNullMask(buf2, GetFieldNo(Field)) then
+        p2 := intFindFieldData(buf2, Field, lbin2_2)
+      else
+        p2 := nil;
+      if (p1 <> nil) and (p2 <> nil) then begin
+        Result := CompareValues(p1, p2, Field.DataType, AIndex.IndexCaseInsList[i] <> nil, lBin2_1, lBin2_2)
+      end
+      else
+        if p1 <> nil then Result := 1
+        else if p2 <> nil then Result := -1
+        else continue;
+      if AIndex.IndexDescFields[i] <> nil then Result := -Result;
+      if Result <> 0 then Exit;
+    end;
+  end;  
+  if Result = 0 then begin
+    lList:=IntGetRecordList.LockListForReading;
+    try
+      Result := lList.IndexOf(buf1) - lList.IndexOf(buf2);
+    finally
+      IntGetRecordList.UnlockListForReading;
+    end;
+    if AIndex.SortDescMode then Result := -Result;
+  end;
+end;
+
+function WordBoolCompare(val1, val2: WordBool): integer;
+begin
+  if val2 and not val1 then Result := -1
+  else if val1 and not val2 then Result := 1
+  else Result := 0;
+end;
+
+function Int64Compare(val1, val2: Int64): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function IntegerCompare(val1, val2: integer): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function DoubleCompare(val1, val2: double): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function TDateTimeCompare(val1, val2: TDateTime): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function CurrencyCompare(val1, val2: Currency): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function ExtendedCompare(val1, val2: Extended): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function SingleCompare(val1, val2: Single): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function ByteCompare(val1, val2: Byte): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function LongWordCompare(val1, val2: LongWord): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+function ShortIntCompare(val1, val2: ShortInt): integer;
+begin
+  if val1 > val2 then Result := 1
+  else if val2 > val1 then Result := -1
+  else Result := 0;
+end;
+
+
+function TDAMemoryDataset.CompareValues(buf1, buf2: pointer;aDataType: TFieldType;aSortCaseInsensitive:Boolean; aBin2_1, aBin2_2: Boolean): integer;
+begin
+  Result := 0;
+  case aDataType of
+    ftString, ftFixedChar: begin
+      if GetStoreStringsAsReference then begin
+        case (ord(aBin2_1) shl 1) or ord(aBin2_2) of
+          0 { 00b }: Result:= ROAnsiCompare(PAnsiChar(Buf1),PAnsiChar(Buf2),aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+          1 { 01b }: Result:= ROAnsiCompare(PAnsiChar(Buf1),PAnsiString(Buf2)^,aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+          2 { 10b }: Result:= ROAnsiCompare(PAnsiString(Buf1)^,PAnsiChar(Buf2),aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+          3 { 11b }: Result:= ROAnsiCompare(PAnsiString(Buf1)^,PAnsiString(Buf2)^,aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+        end;
+      end
+      else begin
+        Result:= ROAnsiCompare(PAnsiChar(Buf1),PAnsiChar(Buf2),aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+      end;
+    end;
+    {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+    ftWideString: begin
+      if GetStoreStringsAsReference then begin
+        case (ord(aBin2_1) shl 1) OR ord(aBin2_2) of
+          0 { 00b }: Result:= ROWideCompare(PUnicodeChar(Buf1),PUnicodeChar(Buf2),aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+          1 { 01b }: Result:= ROWideCompare(PUnicodeChar(Buf1),PUnicodeString(Buf2)^,aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+          2 { 10b }: Result:= ROWideCompare(PUnicodeString(Buf1)^,PUnicodeChar(Buf2),aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+          3 { 11b }: Result:= ROWideCompare(PUnicodeString(Buf1)^,PUnicodeString(Buf2)^,aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+        end;
+      end
+      else begin
+        Result:= ROWideCompare(PUnicodeChar(Buf1),PUnicodeChar(Buf2),aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+      end;
+    end;
+    ftGuid: Result := StrLIComp(PAnsiChar(Buf1), PAnsiChar(Buf2),guidsize);
+    ftSmallint: Result := IntegerCompare(PSmallInt(buf1)^, PSmallInt(buf2)^);
+    ftInteger, ftDate, ftTime, ftAutoInc: Result := IntegerCompare(PInteger(buf1)^, PInteger(buf2)^);
+    ftWord: Result := IntegerCompare(PWord(buf1)^, PWord(buf2)^);
+    ftBoolean: Result := WordBoolCompare(PWordBool(buf1)^, PWordBool(buf2)^);
+    ftFloat, ftCurrency: Result := DoubleCompare(PDouble(Buf1)^, PDouble(Buf2)^);
+    ftDateTime: Result := TDateTimeCompare(PDateTime(Buf1)^, PDateTime(Buf2)^);
+    ftBcd: Result := CurrencyCompare(PCurrency(Buf1)^, PCurrency(Buf2)^);
+    ftFMTBCD: Result := BcdCompare(PBcd(buf1)^, PBcd(buf2)^);
+    ftLargeint: Result := Int64Compare(PInt64(Buf1)^, PInt64(Buf2)^);
+    {$IFNDEF FPC}
+    ftTimeStamp: Result := DoubleCompare(SQLTimeStampToDateTime(PSQLTimeStamp(Buf1)^), SQLTimeStampToDateTime(PSQLTimeStamp(Buf2)^));
+    {$ENDIF FPC}
+    {$IFDEF DELPHI2009UP}
+    ftLongWord: Result := LongWordCompare(PLongWord(Buf1)^, PLongWord(Buf2)^);
+    ftShortint: Result := ShortintCompare(PShortint(Buf1)^, PShortint(Buf2)^);
+    ftByte:     Result := ByteCompare(PByte(Buf1)^, PByte(Buf2)^);
+    ftExtended: Result := ExtendedCompare(PExtended(Buf1)^, PExtended(Buf2)^);
+    {$ENDIF}
+    {$IFDEF DELPHI2010UP}
+    ftSingle:   Result := SingleCompare(PSingle(Buf1)^, PSingle(Buf2)^);
+    {$ENDIF}
+  else
+  end;
+end;
+
+procedure TDAMemoryDataset.SortOnFields(const Fields: string;
+  CaseInsensitive, Descending: Boolean);
+begin
+  if FActive then begin
+    if (Fields = '') and (FIndexName <> '') then begin
+      // default sorting
+      if FFieldsIndex then
+         SortOnFields(IndexFieldNames)
+      else
+        SwitchToIndex(IndexName);
+      f_DefaultIndexRecord.LastSorted := Now;
+    end
+    else begin
+      if Fields = '' then
+        f_DefaultIndexRecord.Init(IndexFieldNames, CaseInsensitive, Descending)
+      else
+        f_DefaultIndexRecord.Init(Fields, CaseInsensitive, Descending);
+      SortOnFields(f_DefaultIndexRecord);
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.SetStoreStringAsReference(const Value: Boolean);
+begin
+  CheckInactive;
+  FStoreStringsAsReference := Value;
+end;
+
+procedure TDAMemoryDataset.SetWideString(NativeBuf: Pointer; Field: TField;
+  const Value: Unicodestring);
+var
+  len: integer;
+begin
+  if GetStoreStringsAsReference then
+    PUnicodeString(NativeBuf)^:=Value
+  else begin
+    len := Length(Value);
+    if Len > Field.Size then len:= Field.Size;
+    move(Pointer(Value)^,NativeBuf^,len*Sizeof(UnicodeChar));
+    PUnicodeChar(NativeBuf)[len]:=#0;
+  end;
+end;
+
+procedure TDAMemoryDataset.DoAfterOpen;
+begin
+  if not IsEmpty then SortOnFields();
+  inherited;
+end;
+
+procedure TDAMemoryDataset.MasterChanged(Sender: TObject);
+begin
+  ProcessFilter;
+end;
+
+procedure TDAMemoryDataset.MasterDisabled(Sender: TObject);
+begin
+  DataEvent(dePropertyChange, 0);
+  DoFilterRecords;
+end;
+(*
+procedure TDAMemoryDataset.GetDetailLinkFields(MasterFields,
+  DetailFields: TList);
+begin
+  { TODO : GetDetailLinkFields }
+  inherited GetDetailLinkFields(MasterFields, DetailFields);
+end;
+*)
+
+procedure TDAMemoryDataset.DoFilterRecords;
+var
+  i: integer;
+  pos: TBookmarkData;
+begin
+  if (FDataList.Count > 0) and (FRecordPos <> -1) and (FRecordPos < FDataList.Count) then
+    pos := FDataList[FRecordPos]
+  else
+    pos := nil;
+  //==============================
+  if ApplyMasterFilter then pos := nil;
+  if FIndexName <> '' then SortOnFields;
+  if FRangeActive then begin
+    ApplyRangeFilter; // currently it is empty
+    pos := nil;
+  end;
+  // apply filters
+  if IsActiveFilter then begin
+    for i := FDataList.Count-1 downto 0 do
+      if not FilterRecord(FDataList.List[i], False) then
+        FDataList.Delete(i);
+  end;
+  //==============================
+  if Active then begin
+    if pos = nil then
+      FRecordPos := -1
+    else
+      FRecordPos := IntFindRecordID(pos);
+    if (FRecordPos = -1) then First;
+    if (RecordCount > 0) then FRecordPos := 0;
+    Resync([]);
+  end;
+end;
+
+function TDAMemoryDataset.MakeBlobFromString(Blob: AnsiString): PBLOBRecord;
+var
+  s: integer;
+begin
+  s:= Length(blob);
+  Result:=CreateBlobRecord(s);
+  Move(Pointer(blob)^, PBlobRecord(Result)^.Data, s * SizeOf(AnsiChar));
+end;
+
+procedure TDAMemoryDataset.IntInsertBuffer(Buffer: PMemDatasetrecord_Native;ASender: TDAMemoryDataset);
+begin
+  if ASender = nil then ASender:=Self;
+  if FCloneSource <> nil then
+    FCloneSource.IntInsertBuffer(Buffer, aSender)
+  else begin
+    FRecordsList.Add(Buffer);
+    NotifyClients(Buffer, mdnInsert, ASender);
+  end;
+end;
+
+function TDAMemoryDataset.GetBin2FieldOffset(
+  const aFieldNo: integer): cardinal;
+begin
+  if aFieldNo < FieldCount then
+    Result:=FOffsets[aFieldNo]
+  else
+    Result:=0;
+end;
+
+procedure TDAMemoryDataset.DoOnNewRecord;
+var
+  I: Integer;
+begin
+  if FMasterDataLink.Active and (FMasterDataLink.Fields.Count > 0) then
+    for I := 0 to FMasterDataLink.Fields.Count - 1 do
+      if FDetailsFieldNameList.Count > i then
+        TField(FDetailsFieldNameList[I]).Assign(TField(FMasterDataLink.Fields[I]));
+  inherited;
+end;
+
+function TDAMemoryDataset.Locate(const KeyFields: string;
+  const KeyValues: Variant; Options: TLocateOptions): Boolean;
+begin
+  DoBeforeScroll;
+  Result := LocateRecord(KeyFields, KeyValues, Options, True);
+  if Result then
+  begin
+    Resync([rmExact, rmCenter]);
+    DoAfterScroll;
+  end;
+end;
+
+function TDAMemoryDataset.LocateByIndex(const aIndex: integer;
+  const KeyValues: Variant): Boolean;
+begin
+  DoBeforeScroll;
+  Result := LocateRecordByIndex(aIndex, KeyValues, True);
+  if Result then
+  begin
+    Resync([rmExact, rmCenter]);
+    DoAfterScroll;
+  end;
+end;
+
+function TDAMemoryDataset.LocateRecord(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions; SyncCursor: Boolean): Boolean;
+var
+  Buffer: PMemDatasetrecord;
+  lLocateStr: TMemLocateStruct;
+
+  function LocateWithOutIndex: boolean;
+  var
+    i,j: integer;
+    k: boolean;
+    lCaseInsensitive: boolean;
+    f: TMemLocateCompare;
+    buf: Dataset_PAnsiChar;
+    lBin2: Boolean;
+  begin
+    if loPartialKey in Options then
+      f := CompareValues2_partial
+    else
+      f := CompareValues2_full;
+    lCaseInsensitive:= loCaseInsensitive in Options;
+    with lLocateStr do begin
+      Result:=False;
+      For i:= 0 to lWorkList.Count - 1 do begin
+        k := False;
+        buf := PMemDatasetrecord_Native(lWorkList[i])^.Data;
+        lBin2 := PMemDatasetrecord_Native(lWorkList[i])^.Ident = mrBin2Style;
+        For j:=0 to lFields.Count-1 do begin
+          if ((buf = nil) or GetNullMask(buf,lFieldIndexes[j])) = lnull[j] then begin
+            if lnull[j] then
+              k := True // null | null
+            else
+              if lBin2 then
+                k := f(buf+lOffsets[j], lValues[j], lDatatypes[j], lCaseInsensitive, True)
+              else
+                k := f(buf+GetBin3Offset(buf,lFieldIndexes[j]), lValues[j], lDatatypes[j], lCaseInsensitive, False);
+          end
+          else
+            k:=False;
+          if not k then Break;
+        end;
+        if k then begin
+          RecordToBuffer(i, Buffer);
+          Result:=True;
+          Break;
+        end;
+      end;
+    end;
+  end;
+
+  function SearchIndex_Direct: TDAMemIndex;
+  var
+    i: integer;
+  begin
+    Result := f_DefaultIndexRecord;
+    if Result.isCanUsed(KeyFields,loCaseInsensitive in Options) then Exit;
+    for i:= 0 to FIndexList.Count - 1 do begin
+      Result := TDAMemIndex(FIndexList[i]);
+      if Result.isCanUsed(KeyFields,loCaseInsensitive in Options) then Exit;
+    end;
+    Result := nil;
+  end;
+
+var
+  lBookmark: TMemBookmarkData;
+  lLocalIndex: TDAMemIndex;
+begin
+  Result := False;
+
+  // try to use indexes
+  if not (loPartialKey in Options) then begin
+    UpdateMemIndexes(-1);
+    // try to use indexes
+    lLocalIndex := SearchIndex_Direct;
+    if lLocalIndex <> nil then begin
+      Result := intLocateRecordByIndex(lLocalIndex,KeyValues,SyncCursor);
+      exit;
+    end;
+  end;
+
+  if Self.State <> dsBrowse then CheckBrowseMode;
+  CursorPosChanged;
+  Buffer := Pointer(TempBuffer);
+  if IsEmpty then Exit;
+  FillChar(lLocateStr, SizeOf(TMemLocateStruct),0);
+  try
+    lLocateStr.lFields := TList.Create;
+    try
+      GetFieldList(lLocateStr.lFields,KeyFields);
+      if lLocateStr.lFields.Count = 0 then Exit;
+      InitMemLocateStruct(@lLocateStr, KeyValues);
+      lLocateStr.lWorkList:= FDataList;
+      IntGetRecordList.LockListForReading;
+      try
+        result:= LocateWithOutIndex;
+        if Result then begin
+          SetLength(lBookmark, BookmarkSize);
+          GetBookmarkData(Pointer(Buffer), Pointer(lBookmark));
+        end;
+      finally
+        IntGetRecordList.UnlockListForReading;
+      end;
+    finally
+      lLocateStr.lFields.Free;
+    end;
+  finally
+    if Result then begin
+      if SyncCursor then InternalGotoBookmark(pointer(lBookmark));
+      SetLength(lBookmark, 0);
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.LocateRecordByIndex(const aIndex: Integer;
+  const KeyValues: Variant; SyncCursor: Boolean): Boolean;
+var
+  lIndex: TDAMemIndex;
+begin
+  if (aIndex < 0) or (aIndex > FIndexDefs.Count) then DatabaseError(SFieldIndexError);
+  UpdateMemIndexes(aIndex);
+  lIndex := TDAMemIndex(FIndexList[aIndex]);
+  DoSort(lIndex);
+  Result:= intLocateRecordByIndex(lIndex, KeyValues, SyncCursor);
+end;
+
+function TDAMemoryDataset.Lookup(const KeyFields: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  Result := Null;
+  if LocateRecord(KeyFields, KeyValues, [], False) then
+  begin
+    SetTempState(dsCalcFields);
+    try
+      CalculateFields(TempBuffer);
+      Result := FieldValues[ResultFields];
+    finally
+      RestoreState(dsBrowse);
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.LookupByIndex(const aIndex: integer;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  Result := Null;
+  if LocateRecordByIndex(aIndex, KeyValues, False) then
+  begin
+    SetTempState(dsCalcFields);
+    try
+      CalculateFields(TempBuffer);
+      Result := FieldValues[ResultFields];
+    finally
+      RestoreState(dsBrowse);
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.CompareValues2(buf1: pointer; aValue: TDAValueStruct; aDataType: TFieldType; aSortCaseInsensitive: Boolean;aBin2: boolean): integer;
+var
+  str1: Ansistring;
+  wstr1: UnicodeString;
+begin
+  Result := 0;
+  case aDataType of
+    ftString, ftFixedChar: begin
+      if abin2 and GetStoreStringsAsReference then
+        str1:=PAnsiString(Buf1)^
+      else
+        str1:=PAnsiChar(Buf1);
+      Result:= ROAnsiCompare(str1, aValue.AsAnsiString, aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+    end;
+    {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+    ftWideString: begin
+      if abin2 and GetStoreStringsAsReference then
+        wstr1:=PUnicodeString(Buf1)^
+      else
+        wstr1:=PUnicodeChar(Buf1);
+      Result:= ROWideCompare(wstr1, aValue.AsWideString, aSortCaseInsensitive {$IFDEF MSWINDOWS},FSortLocale {$ENDIF MSWINDOWS});
+    end;
+    ftGuid: begin
+      SetString(str1, PAnsiChar(buf1), guidsize);
+      Result := ROAnsiCompare(str1, aValue.AsAnsiString, True);
+    end;
+    ftSmallint: Result := IntegerCompare(PSmallInt(buf1)^, aValue.value);
+    ftInteger, ftDate, ftTime, ftAutoInc: Result := IntegerCompare(PInteger(buf1)^, aValue.Value);
+    ftWord: Result := IntegerCompare(PWord(buf1)^, aValue.Value);
+    ftBoolean: Result := WordBoolCompare(PWordBool(buf1)^, aValue.Value);
+    ftFloat, ftCurrency: Result := DoubleCompare(PDouble(Buf1)^, aValue.Value);
+    ftDateTime: Result := TDateTimeCompare(PDateTime(Buf1)^, TimeStampToMSecs(DateTimeToTimeStamp(aValue.Value)));
+    ftBcd: Result := CurrencyCompare(PCurrency(buf1)^,aValue.Value);
+    ftFMTBCD: Result := BcdCompare(PBcd(buf1)^, VariantToBCD(aValue.Value));
+    ftLargeint: Result := Int64Compare(PInt64(Buf1)^, aValue.Value);
+    {$IFNDEF FPC}
+    ftTimeStamp: Result := DoubleCompare(SQLTimeStampToDateTime(PSQLTimeStamp(Buf1)^), SQLTimeStampToDateTime(VarToSQLTimeStamp(aValue.Value)));
+    {$ENDIF FPC}
+    {$IFDEF DELPHI2009UP}
+    ftLongWord: Result := LongWordCompare(PLongWord(Buf1)^, aValue.Value);
+    ftShortint: Result := ShortintCompare(PShortint(Buf1)^, aValue.Value);
+    ftByte:     Result := ByteCompare(PByte(Buf1)^, aValue.Value);
+    ftExtended: Result := ExtendedCompare(PExtended(Buf1)^, aValue.Value);
+    {$ENDIF}
+    {$IFDEF DELPHI2010UP}
+    ftSingle:   Result := SingleCompare(PSingle(Buf1)^, aValue.Value);
+    {$ENDIF}
+  else
+  end;
+end;
+
+
+function TDAMemoryDataset.CompareBookmarks(Bookmark1,
+  Bookmark2: TBookmark): Integer;
+var
+  idx1, idx2: integer;
+begin
+  if (Bookmark1 = nil) and (BookMark2 = nil) then
+    Result:=0
+  else if (Bookmark1 <> nil) and (BookMark2 = nil) then
+    Result := 1
+  else if (Bookmark1 = nil) and (BookMark2 <> nil) then
+    Result := -1
+  else begin
+    idx1 := IntFindRecordID(TBookMarkData(PPointer(Bookmark1)^));
+    idx2 := IntFindRecordID(TBookMarkData(PPointer(Bookmark2)^));
+    if idx1 > idx2 then
+      Result := 1
+    else if idx1 < idx2 then
+      Result := -1
+    else
+      Result:=0;
+  end;
+end;
+
+function TDAMemoryDataset.BookmarkValid(Bookmark: TBookmark): Boolean;
+begin
+  Result := IntFindRecordID(TBookMarkData(PPointer(Bookmark)^)) <> -1;
+end;
+
+function TDAMemoryDataset.GetIndexDefs: TIndexDefs;
+begin
+  if FIndexDefs = nil then
+    FIndexDefs := TIndexDefs.Create(Self);
+  Result := FIndexDefs;
+end;
+
+procedure TDAMemoryDataset.SetIndexDefs(const Value: TIndexDefs);
+begin
+  IndexDefs.Assign(Value);
+end;
+
+function TDAMemoryDataset.PSGetIndexDefs(
+  IndexTypes: TIndexOptions): TIndexDefs;
+begin
+  Result := inherited GetIndexDefs(IndexDefs, IndexTypes);
+end;
+
+procedure TDAMemoryDataset.UpdateIndexDefs;
+begin
+  inherited;
+end;
+
+function TDAMemoryDataset.GetIndexName: string;
+begin
+  if FFieldsIndex then Result := '' else Result := FIndexName;
+end;
+
+procedure TDAMemoryDataset.SetIndexName(const Value: string);
+begin
+  SetIndex(Value, Value = '');
+end;
+
+procedure TDAMemoryDataset.SetIndex(const Value: string;
+  FieldsIndex: Boolean);
+begin
+  if FActive then begin
+    CheckBrowseMode;
+    UpdateCursorPos;
+    if (FIndexName <> Value) or (FFieldsIndex <> FieldsIndex) then begin
+      FIndexName := Value;
+      FFieldsIndex := FieldsIndex;
+      if FieldsIndex or (Value = '') then begin
+        SortOnFields(Value, False, False);
+      end
+      else
+        SwitchToIndex(Value);
+   end;
+  end;
+  FIndexName := Value;
+  FFieldsIndex := FieldsIndex;
+  f_DefaultIndexRecord.LastSorted := Now;
+end;
+
+
+procedure TDAMemoryDataset.SwitchToIndex(const IndexName: string);
+var
+  i: integer;
+begin
+  if FActive then begin
+    i:= IndexDefs.IndexOf(IndexName);
+    if i = -1 then DatabaseErrorFmt(SIndexNotFound,[IndexName]);
+    f_DefaultIndexRecord.Init(IndexDefs[i]);
+    f_DefaultIndexRecord.FInitFromIndexDef:= False;
+    SortOnFields(f_DefaultIndexRecord);
+  end;
+end;
+
+procedure TDAMemoryDataset.GetIndexNames(List: TStrings);
+begin
+  IndexDefs.Update;
+  IndexDefs.GetItemNames(List);
+end;
+
+procedure TDAMemoryDataset.AddIndex(const Name, Fields, DescFields,
+  CaseInsFields: string);
+var
+  lIndexDef: TIndexDef;
+begin
+  lIndexDef := IndexDefs.AddIndexDef;
+  lIndexDef.Name := Name;
+  lIndexDef.Fields := Fields;
+  lIndexDef.DescFields := DescFields;
+  lIndexDef.CaseInsFields := CaseInsFields;
+end;
+
+procedure TDAMemoryDataset.DeleteIndex(const Name: string);
+var
+  i: integer;
+begin
+  i:=IndexDefs.IndexOf(Name);
+  if i <> -1 then IndexDefs.Delete(i);
+end;
+
+{$IFDEF FPC}
+const
+  SInvalidCalcType = 'Field ''%s'' cannot be a calculated or lookup field';
+{$ENDIF}
+
+procedure TDAMemoryDataset.ValidateFieldForIndex(aField: TField);
+begin
+  if not ((aField.FieldKind =fkData) and (aField.DataType in ft_Supported - ft_BlobTypes)) then
+    DatabaseErrorFmt(SInvalidCalcType, [aField.DisplayName]);
+end;
+
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED OFF}
+{$ENDIF DELPHI10UP}
+procedure TDAMemoryDataset.SortOnFields(const Fields, CaseInsFields, DescFields: string);
+begin
+  if FActive then begin
+    f_DefaultIndexRecord.Init(Fields,CaseInsFields,DescFields);
+    SortOnFields(f_DefaultIndexRecord);
+  end;
+end;
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED ON}
+{$ENDIF DELPHI10UP}
+
+procedure TDAMemoryDataset.SortOnFields;
+begin
+  SortOnFields('');
+end;
+
+procedure TDAMemoryDataset.DefChanged(Sender: TObject);
+begin
+  {$IFNDEF FPC}
+  inherited;
+  {$ENDIF}
+  if Sender = FIndexDefs then
+    UpdateMemIndexes;
+    if (not FFieldsIndex) and (FIndexName <> '') then begin
+      if FIndexDefs.Count = 0 then FIndexName:='';
+      SortOnFields;
+    end;
+end;
+
+function CompareAnsiStrPartial(const aStr1, aStr2: AnsiString; aSortCaseInsensitive:Boolean): boolean;
+var
+  l1: integer;
+  l2: Integer;
+  k: AnsiString;
+begin
+  l1 := Length(aStr1);
+  l2 := Length(aStr2);
+  if (l1 > l2) or (l1 = 0)  then
+    Result := False
+  else begin
+    if l1 = l2 then
+      k := aStr2
+    else
+      SetString(k,PAnsiChar(aStr2), l1);
+    Result := ROAnsiCompare(aStr1, k , aSortCaseInsensitive) = 0;
+  end;
+end;
+
+function CompareWideStrPartial(const aStr1, aStr2: UnicodeString; aSortCaseInsensitive:Boolean): boolean;
+var
+  l1: integer;
+  l2: Integer;
+  k: UnicodeString;
+begin
+  l1 := Length(aStr1);
+  l2 := Length(aStr2);
+  if (l1 > l2) or (l1 = 0) then
+    Result := False
+  else begin
+    if l1 = l2 then
+      k := aStr2
+    else
+      SetString(k, PUnicodeChar(aStr2), l1);
+    Result := ROWideCompare(aStr1, k , aSortCaseInsensitive) = 0;
+  end;
+end;
+
+function TDAMemoryDataset.CompareValues2_partial(buf1: pointer; aValue: TDAValueStruct; aDataType: TFieldType; aSortCaseInsensitive:Boolean;abin2: boolean): boolean;
+var
+  str1: AnsiString;
+  wstr1: Unicodestring;
+begin
+  Result := False;
+  case aDataType of
+    ftString, ftFixedChar: begin
+      if abin2 and GetStoreStringsAsReference then
+        str1 := PAnsiString(Buf1)^
+      else
+        str1 := PAnsiChar(Buf1);
+      Result := CompareAnsiStrPartial(aValue.AsAnsiString, str1, aSortCaseInsensitive);
+    end;
+    {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+    ftWideString: begin
+      if abin2 and GetStoreStringsAsReference then
+        wstr1 := PUnicodeString(Buf1)^
+      else
+        wstr1 := PUnicodeChar(Buf1);
+      Result := CompareWideStrPartial(aValue.AsWideString, wstr1, aSortCaseInsensitive);
+    end;
+    ftGuid: begin
+      SetString(str1, PAnsiChar(buf1), guidsize);
+      Result := CompareAnsiStrPartial(aValue.AsAnsiString, str1, aSortCaseInsensitive);
+    end;
+    ftSmallint:  Result := pos(VarToStr(aValue.Value), IntToStr(PSmallInt(buf1)^)) = 1;
+    ftInteger, ftDate, ftTime, ftAutoInc: Result := pos(VarToStr(aValue.Value), IntToStr(PInteger(buf1)^)) = 1;
+    ftWord: Result := pos(VarToStr(aValue.Value), IntToStr(PWord(buf1)^)) = 1;
+    ftBoolean: Result:= PWordBool(buf1)^ =  aValue.Value;
+    ftFloat, ftCurrency: Result := pos(VarToStr(aValue.Value), FloatToStr(PDouble(buf1)^)) = 1;
+    ftDateTime: Result := pos(VarToStr(aValue.Value), DateToStr(TimeStampToDateTime(MSecsToTimeStamp({$IFDEF FPC}Trunc{$ENDIF}(PDateTime(buf1)^))))) = 1;
+    ftBcd: Result := Pos(VarToStr(aValue.Value), CurrToStr(PCurrency(Buf1)^)) = 1;
+    ftFMTBCD: Result :=pos(VarToStr(aValue.Value), BcdToStr(PBcd(buf1)^)) = 1;
+    ftLargeint: Result := pos(VarToStr(aValue.Value), IntToStr(PInt64(buf1)^)) = 1;
+    {$IFNDEF FPC}
+    ftTimeStamp: Result := pos(VarToStr(aValue.Value), DateTimeToStr(SQLTimeStampToDateTime(PSQLTimeStamp(Buf1)^)))  = 1;
+    {$ENDIF FPC}
+    {$IFDEF DELPHI2009UP}
+    ftLongWord: Result := pos(VarToStr(aValue.Value), IntToStr(PLongWord(buf1)^)) = 1;
+    ftShortint: Result := pos(VarToStr(aValue.Value), IntToStr(PShortInt(buf1)^)) = 1;
+    ftByte:     Result := pos(VarToStr(aValue.Value), IntToStr(PByte(buf1)^)) = 1;
+    ftExtended: Result := pos(VarToStr(aValue.Value), FloatToStr(PExtended(buf1)^)) = 1;
+    {$ENDIF}
+    {$IFDEF DELPHI2010UP}
+    ftSingle:   Result := pos(VarToStr(aValue.Value), FloatToStr(PSingle(buf1)^)) = 1;
+    {$ENDIF}
+  else
+  end;
+end;
+
+procedure TDAMemoryDataset.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (Operation = opRemove) and (AComponent = FCloneSource) then
+    DetachFromSource;
+  if (Operation = opRemove) and (AComponent = fMemCloneSource) then
+    FMemCloneSource := nil;
+end;
+
+procedure TDAMemoryDataset.CloneCursor(Source: TDAMemoryDataset; Reset: Boolean; KeepSettings: Boolean = False);
+begin
+  if Source <> nil then CheckforCircularLinks(Source,True);
+  Source.CheckActive;
+  Close;
+  FMemCloneSource := Source;
+  FCloneSource := Source;
+  if Reset then
+    AssignCloneSource(nil)
+  else if not KeepSettings then
+    AssignCloneSource(Source);
+  Open;
+  if Reset then Resync([]);
+end;
+
+procedure TDAMemoryDataset.IntRemoveBuffer(Buffer: PMemDatasetrecord_Native; ASender: TDAMemoryDataset);
+begin
+  if FCloneSource <> nil then
+    FCloneSource.IntRemoveBuffer(Buffer,ASender)
+  else begin
+    NotifyClients(Buffer,mdnDelete,ASender);
+    with FRecordsList.LockListForWriting do try
+      Remove(Buffer);
+      FreeMemDatasetRecord(Buffer);
+    finally
+      FRecordsList.UnlockListForWriting;
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.IntGetRecordList: TThreadMemList;
+begin
+  if FCloneSource <> nil then
+    Result:= FCloneSource.IntGetRecordList
+  else
+    Result:=FRecordsList;
+end;
+
+
+procedure TDAMemoryDataset.RegisterClient(const AClient: TDAMemoryDataset);
+begin
+  if FCloneSource <> nil then begin
+    FCloneSource.RegisterClient(AClient);
+  end
+  else begin
+    if FCloneClientList = nil then FCloneClientList:=TThreadList.Create;
+    FCloneClientList.Add(AClient);
+    if AClient <> self then
+      AClient.AttachToSource(Self);
+  end;
+end;
+
+procedure TDAMemoryDataset.UnregisterClient(const AClient: TDAMemoryDataset);
+begin
+  if FCloneSource <> nil then begin
+    FCloneSource.UnregisterClient(AClient);
+  end
+  else begin
+    if FCloneClientList <> nil then
+      FCloneClientList.Remove(AClient);
+    if AClient.FCloneSource <> nil then AClient.DetachFromSource;
+  end;
+end;
+
+procedure TDAMemoryDataset.UnregisterAllClients;
+var
+  i: integer;
+  lList: TList;
+  lClient: TDAMemoryDataset;
+begin
+  if FCloneClientList <> nil then begin
+    lList:= FCloneClientList.LockList;
+    try
+      for i:= lList.Count-1 downto 0 do begin
+        lClient:= TDAMemoryDataset(lList[i]);
+        if Assigned(lClient) then lClient.DetachFromSource;
+      end;
+      lList.Clear;
+    finally
+      FCloneClientList.UnlockList;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.DetachFromSource;
+begin
+  FCloneSource := nil;
+  if Active then begin
+    FDataList.Clear;
+    InternalFirst;
+    Resync([]);
+  end;
+end;
+
+procedure TDAMemoryDataset.NotifyClients(Buf: PMemDatasetrecord_Native; Operation: TMemDataSetNotification;ASender: TDAMemoryDataset);
+var
+  i: integer;
+begin
+  if FCloneClientList <> nil then
+    with FCloneClientList.LockList do try
+      For i:=0 to Count -1 do
+        if ASender <> TDAMemoryDataset(Items[i]) then begin
+          TDAMemoryDataset(Items[i]).RecordNotification(Buf,Operation)
+        end
+        else begin
+          if Operation in [mdnInsert, mdnModify] then begin
+            TDAMemoryDataset(Items[i]).IntAutoSort(Buf, peaResort in FPostEditActions);
+            FPostEditActions := [];
+          end;
+        end;
+      finally
+        FCloneClientList.UnlockList;
+      end;
+end;
+
+
+procedure TDAMemoryDataset.RecordNotification(Buf: PMemDatasetrecord_Native; Operation: TMemDataSetNotification);
+var
+  i: integer;
+  FNeedResort: boolean;
+  f: boolean;
+begin
+  if Active then begin
+    f := f_DefaultIndexRecord.LastSorted > FLastUpdate;
+    FNeedResort := False;
+    FLastUpdate := now;
+    case Operation of
+      mdnInsert:
+         begin
+           intInsertRecord(Buf);
+           FNeedResort:= True;
+         end;
+      mdnModify:
+         if IsActiveFilter and not FilterRecord(Buf, True) then begin
+           i := FDataList.Remove(buf);
+           if (i <> -1) and (i = FRecordPos) and (FRecordPos >= RecordCount) then Dec(FRecordPos);
+         end
+         else begin
+           FNeedResort:= True;
+         end;
+      mdnDelete:
+         begin
+           if f then f_DefaultIndexRecord.LastSorted :=Now;
+           i := FDataList.Remove(buf);
+           if (i <> -1) and (i = FRecordPos) and (FRecordPos >= RecordCount) then Dec(FRecordPos);
+         end;
+      mdnBatchAdding:
+         begin
+           ProcessFilter;
+         end;
+    end;
+    DataEvent(deUpdateState, 0);
+  //  Refresh;
+    if State in dsEditModes then begin
+      if FNeedResort then FPostEditActions := FPostEditActions + [peaResort];
+    end
+    else begin
+      if FNeedResort then
+        IntAutoSort(Buf,True)
+      else
+        Resync([]);
+      FPostEditActions := [];  
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.IntUpdateBuffer(Buffer: PMemDatasetrecord_Native; ASender: TDAMemoryDataset);
+begin
+  if ASender = nil then ASender:=Self;
+  if FCloneSource <> nil then
+    FCloneSource.IntUpdateBuffer(Buffer, ASender)
+  else begin
+    NotifyClients(Buffer,mdnModify,ASender);
+  end;
+end;
+
+procedure TDAMemoryDataset.intInsertRecord(Buf: PMemDatasetrecord_Native);
+var
+  lCount: integer;
+  RecPos: integer;
+begin
+  if not IsActiveFilter or FilterRecord(Buf, True) then begin
+    if State = dsInsert then begin
+      lCount:= IntGetRecordList.lockListForReading.Count;
+      IntGetRecordList.UnlockListForReading;
+      if FRecordPos >= lCount then begin
+        FDataList.Add(Buf);
+        FRecordPos := RecordCount - 1;
+      end
+      else begin
+        if FRecordPos = -1 then
+          RecPos := 0
+        else
+          RecPos := FRecordPos;
+        FDataList.Insert(RecPos, Buf);
+        FRecordPos := RecPos;
+      end;
+    end
+    else begin
+      FDataList.Add(Buf);
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.AddRecordsfromList(AList: TList; ACallbackRecord: PDACallbackRecord);
+
+  function SearchIndex_Direct: TDAMemIndex;
+  var
+    i: integer;
+  begin
+    Result := f_DefaultIndexRecord;
+    if Result.isCanUsed(ACallbackRecord^.PK,False) then Exit;
+    for i:= 0 to FIndexList.Count - 1 do begin
+      Result := TDAMemIndex(FIndexList[i]);
+      if Result.isCanUsed(ACallbackRecord^.PK,False) then Exit;
+    end;
+    Result := nil;
+  end;
+
+var
+  old_count: integer;
+  i,j: integer;
+  lRecIDOffset: Cardinal;
+  lIndex: TDAMemIndex;
+  ltempIndex: Boolean;
+  or_buf,buf: PMemDatasetrecord_Native;
+  lKeyValues: array of Variant;
+  lUpdateList, lAppendList: TList;
+  lcnt: Integer;
+begin
+  lUpdateList :=  TList.Create;
+  lAppendList :=  TList.Create;
+  try
+    if ACallbackRecord <> nil then begin
+      // DataAbstract Mode. RecID = field[0]
+      lRecIDOffset := GetBin2FieldOffset(0);
+      if (ACallbackRecord^.AppendMode) and (ACallbackRecord^.PK <> '') then begin
+        lIndex := SearchIndex_Direct;
+        ltempIndex := lIndex = nil;
+        if ltempIndex then begin
+          lIndex := TDAMemIndex.Create(Self);
+          lIndex.Init(ACallbackRecord^.PK,False,False);
+          lIndex.FInitFromIndexDef:= False;
+        end;
+        try
+          DoSort(lIndex,True);
+          SetLength(lKeyValues, lIndex.IndexFieldNameList.Count);
+          lcnt:= lIndex.IndexFieldNameList.Count;
+          for I := 0 to AList.Count - 1 do begin
+            buf:=PMemDatasetrecord_Native(AList[i]);
+            for j := 0 to lcnt - 1 do
+              lKeyValues[j]:=GetVarValueFromBuffer(buf.data,lIndex.IndexFieldNameList[j],True);
+            if ((lcnt = 1) and (intLocateRecordByIndex(lIndex,lKeyValues[0],False))) or
+               ((lcnt > 1) and (intLocateRecordByIndex(lIndex,lKeyValues,False))) then begin
+              PCardinal(buf^.Data+lRecIDOffset)^:= PCardinal(IntFindFieldData(PMemDatasetrecord_Native(TempBuffer),Fields[0]))^;
+              SetNullMask(buf^.Data,0,False);  //RECID
+              lUpdateList.Add(PMemDatasetrecord(TempBuffer)^.BookmarkData.Bookmark);
+              lUpdateList.Add(AList[i]);
+            end
+            else begin
+              PCardinal(buf^.Data+lRecIDOffset)^:=ACallbackRecord^.RecIDCallback;
+              SetNullMask(buf^.Data,0,False);  //RECID
+              lAppendList.Add(AList[i]);
+            end;
+          end;
+        finally
+          if ltempIndex then lIndex.Free;
+        end;
+      end
+      else begin
+        for I := 0 to AList.Count - 1 do begin
+          buf:=PMemDatasetrecord_Native(AList[i]);
+          PCardinal(buf^.Data+lRecIDOffset)^:=ACallbackRecord^.RecIDCallback;
+          SetNullMask(buf^.Data,0,False);  //RECID
+        end;
+        lAppendList.Count := AList.Count;
+        System.Move(AList.List^, lAppendList.List^, AList.Count*SizeOf(Pointer));
+      end;
+    end;
+
+    with IntGetRecordList.LockListForWriting do try
+      for I := 0 to (lUpdateList.Count div 2)-1 do begin
+        or_buf := lUpdateList.List^[i*2];
+        buf := lUpdateList.List^[i*2+1];
+        InternalInitRecord(Dataset_PAnsiChar(or_buf));
+        or_buf^.Ident := buf^.Ident;
+        or_buf^.Data  := buf^.Data;
+        buf^.Ident:= mrEmpty;
+        buf^.Data := nil;
+        FreeMemDatasetRecord(buf);
+      end;
+      old_count:=Count;
+      Count:=old_count+lAppendList.Count;
+      System.Move(lAppendList.List^, PAnsiChar(List^[old_Count]), lAppendList.Count*SizeOf(Pointer));
+      if FAutoCompactRecords then begin
+        For i := old_count to Count -1 do
+          ConvertBin2ToBin3Record(List^[i]);
+        for I := 0 to (lUpdateList.Count div 2)-1 do begin
+          ConvertBin2ToBin3Record(lUpdateList.List^[i*2]);
+        end;
+      end;
+    finally
+      IntGetRecordList.UnlockListForWriting;
+    end;
+    if (AList.Count > 0) then FLastUpdate := Now;
+    AList.Clear;
+    NotifyClients(nil, mdnBatchAdding, nil);
+  finally
+    lUpdateList.Free;
+    lAppendList.Free;
+  end;
+end;
+
+function TDAMemoryDataset.CalcFieldLen(aDataType: TFieldType;
+  aSize: Integer): integer;
+begin
+  if not (aDataType in ft_Supported) then
+    Result := 0
+  else if IsReferencedField(aDataType) then
+    Result := sizeof(Pointer)
+  else case aDataType of
+      ftSmallint:           Result := SizeOf(Smallint);
+      ftInteger, ftAutoInc: Result := SizeOf(Integer);
+      ftWord:               Result := SizeOf(Word);
+      ftBoolean:            Result := SizeOf(WordBool);
+      ftFloat, ftCurrency:  Result := SizeOf(Double);
+      ftDate, ftTime:       Result := SizeOf(Integer);
+      ftDateTime:           Result := SizeOf(TDateTime);
+      ftLargeint:           Result := SizeOf(Largeint);
+      {$IFNDEF FPC}
+      ftTimeStamp:          Result := SizeOf(TSQLTimeStamp);
+      {$ENDIF}
+      ftFMTBCD:             Result := SizeOf(TBcd);
+      ftBCD:                Result := SizeOf(Currency);
+      ftGuid:               Result := GuidSize+1;
+      ftString,ftFixedChar: Result := (aSize + 1)* Sizeof(AnsiChar);
+      {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+      ftWideString:         Result := (aSize + 1) * Sizeof(UnicodeChar);
+      {$IFDEF DELPHI2009UP}
+      ftLongWord:           Result := SizeOf(LongWord);
+      ftShortint:           Result := SizeOf(ShortInt);
+      ftByte:               Result := SizeOf(Byte);
+      ftExtended:           Result := SizeOf(Extended);
+      {$ENDIF}
+      {$IFDEF DELPHI2010UP}
+      ftSingle:             Result := SizeOf(Single);
+      {$ENDIF}
+    else
+      Result:=0;
+    end;
+end;
+
+procedure TDAMemoryDataset.SetReadOnly(const Value: Boolean);
+begin
+  FReadOnly := Value;
+end;
+
+function TDAMemoryDataset.GetCanModify: Boolean;
+begin
+  Result := not FReadOnly;
+end;
+
+procedure TDAMemoryDataset.ApplyRange;
+begin
+  CheckBrowseMode;
+  if not (BuffersEqual(FKeyBuffers[kiRangeStart], FKeyBuffers[kiCurRangeStart], FKeyBufferSize) and
+          BuffersEqual(FKeyBuffers[kiRangeEnd], FKeyBuffers[kiCurRangeEnd], FKeyBufferSize)) then begin
+    Move(FKeyBuffers[kiRangeStart]^, FKeyBuffers[kiCurRangeStart]^, FKeyBufferSize);
+    Move(FKeyBuffers[kiRangeEnd]^, FKeyBuffers[kiCurRangeEnd]^, FKeyBufferSize);
+    FRangeActive:=(FKeyBuffers[kiCurRangeStart]<>nil) and (FKeyBuffers[kiCurRangeEnd]<>nil);
+    RefreshIndexConditional;
+    InternalFirst;
+    DoFilterRecords;
+    First;
+  end;
+end;
+
+procedure TDAMemoryDataset.CancelRange;
+begin
+  CheckBrowseMode;
+  UpdateCursorPos;
+  FRangeActive := False;
+  if FKeyBuffers[kiCurRangeStart].Modified or FKeyBuffers[kiCurRangeEnd].Modified then begin
+    InitKeyBuffer(FKeyBuffers[kiCurRangeStart]);
+    InitKeyBuffer(FKeyBuffers[kiCurRangeEnd]);
+  end;
+  DoFilterRecords;
+end;
+
+procedure TDAMemoryDataset.EditRangeEnd;
+begin
+  SetKeyBuffer(kiRangeEnd, False);
+end;
+
+procedure TDAMemoryDataset.EditRangeStart;
+begin
+  SetKeyBuffer(kiRangeStart, False);
+end;
+
+procedure TDAMemoryDataset.SetRange(const StartValues,
+  EndValues: array of const);
+begin
+  CheckBrowseMode;
+  SetKeyFields(kiRangeStart, StartValues);
+  SetKeyFields(kiRangeEnd, EndValues);
+  ApplyRange;
+end;
+
+procedure TDAMemoryDataset.SetRangeEnd;
+begin
+  SetKeyBuffer(kiRangeEnd, True);
+end;
+
+procedure TDAMemoryDataset.SetRangeStart;
+begin
+  SetKeyBuffer(kiRangeStart, True);
+end;
+
+procedure TDAMemoryDataset.SetKeyBuffer(KeyIndex: TMemKeyIndex; Clear: Boolean);
+begin
+  CheckBrowseMode;
+  RefreshIndexConditional;
+  FKeyBuffer := FKeyBuffers[KeyIndex];
+  Move(FKeyBuffer^, FKeyBuffers[kiSave]^, FKeyBufferSize);
+  if Clear then InitKeyBuffer(FKeyBuffer);
+  FKeyBuffer.FieldCount:= f_DefaultIndexRecord.IndexFieldNameList.Count;
+  SetState(dsSetKey);
+  SetModified(FKeyBuffer.Modified);
+  DataEvent(deDataSetChange, 0);
+end;
+
+procedure TDAMemoryDataset.SetKeyFields(KeyIndex: TMemKeyIndex; const Values: array of const);
+var
+  I: Integer;
+  k: integer;
+  SaveState: TDataSetState;
+begin
+  RefreshIndexConditional;
+  if f_DefaultIndexRecord.IndexFieldNameList.Count = 0 then DatabaseError(SNoFieldIndexes, Self);
+  SaveState := SetTempState(dsSetKey);
+  try
+    if f_DefaultIndexRecord.IndexFieldNameList.Count >= High(Values)-Low(Values)+1 then
+      k:= High(Values)-Low(Values)+1
+    else begin
+      k:= f_DefaultIndexRecord.IndexFieldNameList.Count;
+      {$IFDEF CHECK_RANGE}
+      DatabaseError('Can''t assign values: array size is larger than possible',Self);
+      {$ENDIF CHECK_RANGE}
+    end;
+    FKeyBuffer := InitKeyBuffer(FKeyBuffers[KeyIndex]);
+    for I := 0 to k-1 do
+      TField(f_DefaultIndexRecord.IndexFieldNameList[i]).AssignValue(Values[I]);
+    FKeyBuffer^.FieldCount := High(Values) + 1;
+    FKeyBuffer^.Modified := Modified;
+  finally
+    RestoreState(SaveState);
+  end;
+end;
+
+procedure TDAMemoryDataset.AllocKeyBuffers;
+var
+  KeyIndex: TMemKeyIndex;
+begin
+  try
+    for KeyIndex := Low(TMemKeyIndex) to High(TMemKeyIndex) do
+      FKeyBuffers[KeyIndex] := AllocMem(FKeyBufferSize);
+    if Assigned(FCloneSource) and FCloneSource.Active then
+      for KeyIndex := Low(TMemKeyIndex) to High(TMemKeyIndex) do
+        Move(FCloneSource.FKeyBuffers[KeyIndex]^, FKeyBuffers[KeyIndex]^, FKeyBufferSize);
+  except
+    FreeKeyBuffers;
+    raise;
+  end;
+end;
+
+procedure TDAMemoryDataset.FreeKeyBuffers;
+var
+  KeyIndex: TMemKeyIndex;
+begin
+  for KeyIndex := Low(TMemKeyIndex) to High(TMemKeyIndex) do
+    DisposeMem(FKeyBuffers[KeyIndex], FKeyBufferSize);
+end;
+
+function TDAMemoryDataset.InitKeyBuffer(Buffer: PMemKeyBuffer): PMemKeyBuffer;
+begin
+  FillChar(Buffer^, FKeyBufferSize, 0);
+  Result := Buffer;
+end;
+
+procedure TDAMemoryDataset.SetDetailsFields(const Value: string);
+begin
+  if FDetailFields <> Value then begin
+    FDetailFields := Value;
+    if Active then begin
+      InitDetailFieldNamesList;
+      DoFilterRecords;
+    end;
+    DataEvent(dePropertyChange, 0);
+  end;
+end;
+
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED OFF}
+{$ENDIF DELPHI10UP}
+procedure TDAMemoryDataset.InitDetailFieldNamesList;
+var
+  pos1: integer;
+  fld: TField;
+begin
+  FDetailsFieldNameList.Clear;
+  if FDetailFields = '' then Exit;;
+  Pos1 := 1;
+  while Pos1 <= Length(FDetailFields) do begin
+    Fld := FieldByName(ExtractFieldName(FDetailFields, Pos1));
+    ValidateFieldForIndex(Fld);
+    FDetailsFieldNameList.Add(Fld);
+  end;
+end;
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED ON}
+{$ENDIF DELPHI10UP}
+
+function TDAMemoryDataset.ApplyMasterFilter:boolean;
+var
+  i, j: integer;
+  MasterArray: array of TDAValueStruct;
+  buf: PAnsiChar;
+  flag: boolean;
+  fld_cnt: integer;
+  str: Ansistring;
+  lList: TMemList;
+  ldata: Dataset_PAnsiChar;
+  lBin2: Boolean;
+  lStoreStringsAsReference: Boolean;
+begin
+  FDataList.Clear;
+  if (MasterSource = nil) or (MasterSource.DataSet = nil) or
+    (not MasterSource.DataSet.Active) or (MasterDataLink.Fields.Count = 0) or
+    (FDetailsFieldNameList.Count = 0) then begin
+    // not filtered!
+    lList:=IntGetRecordList.LockListForReading;
+    try
+      FDataList.Assign(LList);
+    finally
+      IntGetRecordList.UnlockListForReading;
+    end;
+    Result := False;
+  end
+  else begin
+    fld_cnt := MasterDataLink.Fields.Count;
+    if FDetailsFieldNameList.Count < fld_cnt then fld_cnt := FDetailsFieldNameList.Count;
+    SetLength(MasterArray, fld_cnt);
+    for i := 0 to fld_cnt - 1 do begin
+      if TField(MasterDataLink.Fields[i]).DataType in ft_AnsiStringValues then
+        MasterArray[i].AsAnsiString := TField(MasterDataLink.Fields[i]).{$IFDEF DELPHI2009UP}asAnsiString{$ELSE}asString{$ENDIF}
+      else if TField(MasterDataLink.Fields[i]).DataType in ft_WideStringValues then
+        MasterArray[i].AsWideString := TWideStringField(MasterDataLink.Fields[i]).Value
+      else if TField(MasterDataLink.Fields[i]).DataType = ftDate then
+        MasterArray[i].Value := DateTimeToTimeStamp(TDateField(MasterDataLink.Fields[i]).AsDateTime).Date
+      else if TField(MasterDataLink.Fields[i]).DataType = ftTime then
+        MasterArray[i].Value := DateTimeToTimeStamp(TTimeField(MasterDataLink.Fields[i]).AsDateTime).Time
+      else
+        MasterArray[i].Value := TField(MasterDataLink.Fields[i]).Value;
+    end;
+    lList:= IntGetRecordList.LockListForReading;
+    try
+      FDataList.Capacity := lList.Count;
+      lStoreStringsAsReference := GetStoreStringsAsReference;
+      for i := 0 to LList.Count - 1 do begin
+        flag := true;
+        ldata := PMemDatasetrecord_Native(LList.FList^[i])^.Data;
+        lBin2 := PMemDatasetrecord_Native(LList.FList^[i])^.Ident = mrBin2Style;
+        for j := 0 to fld_cnt - 1 do begin
+          buf := IntFindFieldData(ldata, TField(FDetailsFieldNameList[j]), lBin2);
+          if (buf <> nil) then
+            case TField(FDetailsFieldNameList[j]).DataType of
+              ftString, ftFixedChar: begin
+                if lBin2 and lStoreStringsAsReference then
+                  flag := ROAnsiCompare(PAnsistring(Buf)^, MasterArray[j].AsAnsiString, True {$IFDEF MSWINDOWS}, FSortLocale {$ENDIF}) = 0
+                else
+                  flag := ROAnsiCompare(PAnsiChar(Buf), MasterArray[j].AsAnsiString, True {$IFDEF MSWINDOWS}, FSortLocale {$ENDIF}) = 0
+              end;
+              {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+              ftWideString: begin
+                if lBin2 and lStoreStringsAsReference then
+                  flag := ROWideCompare(PUnicodeString(Buf)^, MasterArray[j].AsWideString,True {$IFDEF MSWINDOWS}, FSortLocale {$ENDIF}) = 0
+                else
+                  flag := ROWideCompare(PUnicodeChar(Buf), MasterArray[j].AsWideString,True {$IFDEF MSWINDOWS}, FSortLocale {$ENDIF}) = 0
+              end;
+              ftSmallint: flag := PSmallint(buf)^ = MasterArray[j].value;
+              ftInteger, ftDate, ftTime, ftAutoInc: Flag := PInteger(buf)^ = MasterArray[j].value;
+              ftWord: flag := PWord(buf)^ = MasterArray[j].value;
+              ftBoolean: flag := PWordBool(buf)^ = wordbool(MasterArray[j].value);
+              ftFloat, ftCurrency: flag := PDouble(Buf)^ = MasterArray[j].value;
+              ftDateTime: flag := PDateTime(Buf)^ = MasterArray[j].value;
+              ftBcd: flag := PCurrency(Buf)^ = MasterArray[j].value;
+              ftFMTBCD: flag := BcdCompare(PBcd(buf)^, VariantToBCD(MasterArray[j].value)) = 0;
+              ftLargeint: flag := PInt64(Buf)^ = MasterArray[j].value;
+              {$IFNDEF FPC}
+              ftTimeStamp: flag := SQLTimeStampToDateTime(PSQLTimeStamp(Buf)^) = SQLTimeStampToDateTime(VarToSQLTimeStamp(MasterArray[j].value));
+              {$ENDIF FPC}
+              ftGuid: begin
+                SetString(str, PAnsiChar(Buf), guidsize);
+                flag := ROAnsiCompare(str, MasterArray[j].AsAnsiString, True) = 0;
+              end;
+              {$IFDEF DELPHI2009UP}
+              ftLongWord: flag := PLongWord(Buf)^ = MasterArray[j].value;
+              ftShortint: flag := PShortInt(Buf)^ = MasterArray[j].value;
+              ftByte:     flag := PByte(Buf)^ = MasterArray[j].value;
+              ftExtended: flag := PExtended(Buf)^ = MasterArray[j].value;
+              {$ENDIF}
+              {$IFDEF DELPHI2010UP}
+              ftSingle:   flag := PSingle(Buf)^ = MasterArray[j].value;
+              {$ENDIF}
+            end
+          else
+            Flag := not VarIsNull(MasterArray[j].value);
+          if not flag then Break;
+        end;
+        if flag then FDataList.Add(lList.FList^[i]);
+      end;
+    finally
+      IntGetRecordList.UnlockListForReading;
+    end;
+    Result := true;
+  end;
+end;
+
+function TDAMemoryDataset.CompareValues_Range(buf: PMemDatasetrecord_Native; keybuffer: PMemKeyBuffer): integer;
+var
+  i, lFieldCount: integer;
+  p1,p2: PAnsiChar;
+  lField: TField;
+  lBuf, lbuf2: Dataset_PAnsiChar;
+  lbin2_1,lbin2_2 :Boolean;
+begin
+  if f_DefaultIndexRecord.IndexFieldNameList.Count >= keybuffer^.FieldCount then begin
+    lFieldCount := keybuffer^.FieldCount
+  end
+  else begin
+    lFieldCount := f_DefaultIndexRecord.IndexFieldNameList.Count;
+    {$IFDEF CHECK_RANGE}
+    DatabaseError('Error during applying range');
+    {$ENDIF CHECK_RANGE}
+  end;
+  Result := 0;
+  lbuf  := buf^.Data;
+  lbuf2 := @keybuffer.Data;
+  lbin2_1 := buf^.Ident = mrBin2Style;
+  lbin2_2 := True;
+  For i:=0 to lFieldCount-1 do begin
+    lField := TField(f_DefaultIndexRecord.IndexFieldNameList[i]);
+
+    if (lBuf <> nil) and not GetNullMask(lbuf, GetFieldNo(lField)) then
+      p1 := intFindFieldData(lbuf, lField, lbin2_1)
+    else
+      p1 := nil;
+
+    if not GetNullMask(lbuf2, GetFieldNo(lField)) then
+      p2 := intFindFieldData(lbuf2, lField, lbin2_2)
+    else
+      p2 := nil;
+
+    if (p1 <> nil) and (p2 <> nil) then
+      Result := CompareValues(p1, p2, lField.DataType, f_DefaultIndexRecord.IndexCaseInsList[i] <> nil, lbin2_1, lbin2_2)
+    else if p1 <> nil then Result := 1
+    else if p2 <> nil then Result := -1
+    else Continue;
+
+    if Result <> 0 then break;
+  end;
+end;
+
+procedure TDAMemoryDataset.ApplyRangeFilter;
+begin
+  { TODO : Can be optimized here }
+end;
+
+function TDAMemoryDataset.CompareValues2_full(buf1: pointer;
+  aValue: TDAValueStruct; aDataType: TFieldType;
+  aSortCaseInsensitive: Boolean; abin2: boolean): boolean;
+begin
+  Result := CompareValues2(buf1,aValue,aDataType,aSortCaseInsensitive, abin2) = 0;
+end;
+
+
+function TDAMemoryDataset.FindKey(const KeyValues: array of const): Boolean;
+begin
+  CheckBrowseMode;
+  SetKeyFields(kiLookup, KeyValues);
+  Result := GotoKey;
+end;
+
+procedure TDAMemoryDataset.FindNearest(const KeyValues: array of const);
+begin
+  CheckBrowseMode;
+  SetKeyFields(kiLookup, KeyValues);
+  GotoNearest;
+end;
+
+function TDAMemoryDataset.GotoKey: Boolean;
+begin
+  Result := internalGotoKey(FKeyBuffers[kiLookup], False);
+end;
+
+procedure TDAMemoryDataset.GotoNearest;
+begin
+  internalGotoKey(FKeyBuffers[kiLookup], True);
+end;
+
+procedure TDAMemoryDataset.EditKey;
+begin
+  SetKeyBuffer(kiLookup, False);
+end;
+
+procedure TDAMemoryDataset.SetKey;
+begin
+  SetKeyBuffer(kiLookup, True);
+end;
+
+function TDAMemoryDataset.GetIndexFields: string;
+var
+ i: integer;
+begin
+  Result := '';
+  if FIndexName <> '' then begin
+    if FFieldsIndex then begin
+      Result:=FIndexName
+    end
+    else begin
+      i:= IndexDefs.IndexOf(FIndexName);
+      if i = -1 then DatabaseErrorFmt(SIndexNotFound,[FIndexName]);
+      Result:=IndexDefs[i].Fields;
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.internalGotoKey(const KeyBuffer: PMemKeyBuffer;
+  isNearest: Boolean): Boolean;
+var
+  L, H, I, C                  : integer;
+begin
+  CheckBrowseMode;
+  DoBeforeScroll;
+  RefreshIndexConditional;
+  if not isNearest then CursorPosChanged;
+  KeyBuffer.FieldCount:= f_DefaultIndexRecord.IndexFieldNameList.Count;
+  IntGetRecordList.LockListForReading;
+  try
+    Result := False;
+    if isNearest then l:= FRecordPos else L := 0;
+    H := FDataList.Count - 1;
+    while L <= H do
+      begin
+        I := (L + H) shr 1;
+        c := CompareValues_Range(FDataList.List[i],KeyBuffer);
+        if C < 0 then
+          L := I + 1
+        else
+          begin
+            H := I - 1;
+            if C = 0 then Result := True;
+          end;
+      end;
+      if Result then
+        FRecordPos := l
+      else if isNearest then begin
+        if L + 1 <= H then
+          FRecordPos := L+1
+        else
+          FRecordPos := L;
+      end;
+  finally
+    IntGetRecordList.UnlockListForReading;
+  end;
+  if not isNearest then begin
+    if Result then begin
+      Resync([rmExact, rmCenter]);
+      DoAfterScroll;
+    end;
+  end else begin
+    Resync([rmCenter]);
+    DoAfterScroll;
+  end;
+end;
+
+function TDAMemoryDataset.GetIsIndexField(Field: TField): Boolean;
+begin
+  with Field do
+    Result:= (FieldNo > 0) and (f_DefaultIndexRecord.IndexFieldNameList.IndexOf(Field) >= 0);
+end;
+
+procedure TDAMemoryDataset.PostKeyBuffer(Commit: Boolean);
+begin
+  DataEvent(deCheckBrowseMode, 0);
+  if Commit then
+    FKeyBuffer.Modified := Modified else
+    Move(FKeyBuffers[kiSave]^, FKeyBuffer^, FKeyBufferSize);
+  SetState(dsBrowse);
+  DataEvent(deDataSetChange, 0);
+end;
+
+procedure TDAMemoryDataset.Post;
+begin
+  inherited;
+  if State = dsSetKey then PostKeyBuffer(True);
+end;
+
+procedure TDAMemoryDataset.Cancel;
+begin
+  inherited;
+  if State = dsSetKey then PostKeyBuffer(False);
+end;
+
+procedure TDAMemoryDataset.RefreshIndexConditional;
+begin
+  if FLastUpdate > f_DefaultIndexRecord.LastSorted then SortOnFields;
+end;                                      
+
+{$IFDEF BDS4UP}{$REGION 'MEM_PACKETRECORDS'}{$ENDIF BDS4UP}
+{$IFDEF MEM_PACKETRECORDS}
+procedure TDAMemoryDataset.CancelPackedMode;
+begin
+{ TODO : }
+  PackedRecordListClear;
+  PackedMode := False;
+end;
+
+procedure TDAMemoryDataset.CommitPackedMode;
+begin
+{ TODO : ApplyChanges }
+  PackedMode := False;
+end;
+
+procedure TDAMemoryDataset.StartPackedMode;
+begin
+  PackedMode := True;
+{ TODO : }
+end;
+
+function TDAMemoryDataset.GetPackedMode: Boolean;
+begin
+{  if FCloneSource <> nil then
+    Result:= FCloneSource.PackedMode
+  else
+}
+    Result := fPackedMode;
+end;
+
+procedure TDAMemoryDataset.SetPackedMode(const Value: Boolean);
+begin
+  if Value and (Value = GetPackedMode) then DatabaseError('Dataset already in packed mode');
+{  if FCloneSource <> nil then
+    FCloneSource.PackedMode := Value
+  else }
+    fPackedMode := Value;
+end;
+
+procedure TDAMemoryDataset.PackedRecordListClear;
+begin
+//  MemList_ClearRecords(FPackedRecordsList);
+end;
+{$ENDIF MEM_PACKETRECORDS}
+{$IFDEF BDS4UP}{$ENDREGION}{$ENDIF BDS4UP}
+
+procedure TDAMemoryDataset.MemList_ClearRecords(aMemList: TMemList);
+var
+  i: integer;
+begin
+  for i := aMemList.Count - 1 downto 0 do
+    FreeMemDatasetRecord(aMemList.List[i]);
+  aMemList.Clear;
+end;
+
+function TDAMemoryDataset.LocateByIndex(const aIndexName: string;
+  const KeyValues: Variant): Boolean;
+begin
+  DoBeforeScroll;
+  Result := LocateRecordByIndex(aIndexName, KeyValues, True);
+  if Result then
+  begin
+    Resync([rmExact, rmCenter]);
+    DoAfterScroll;
+  end;
+end;
+
+function TDAMemoryDataset.LookupByIndex(const aIndexName: string;
+  const KeyValues: Variant; const ResultFields: string): Variant;
+begin
+  Result := Null;
+  if LocateRecordByIndex(aIndexName, KeyValues, False) then
+  begin
+    SetTempState(dsCalcFields);
+    try
+      CalculateFields(TempBuffer);
+      Result := FieldValues[ResultFields];
+    finally
+      RestoreState(dsBrowse);
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.LocateRecordByIndex(const aIndexName: string;
+  const KeyValues: Variant; SyncCursor: Boolean): Boolean;
+var
+  i: integer;
+begin
+  i:= IndexDefs.IndexOf(aIndexName);
+  if i = -1 then DatabaseErrorFmt(SIndexNotFound,[aIndexName]);
+  Result := LocateRecordByIndex(i,KeyValues,SyncCursor);
+end;
+
+procedure TDAMemoryDataset.SortOnFields(AIndex: TDAMemIndex);
+begin
+  if FActive then DoSort(AIndex);
+end;
+
+procedure TDAMemoryDataset.IndexList_Clear;
+begin
+  While FIndexList.Count >0 do begin
+    TDAMemIndex(FIndexList.Last).Free;
+    FIndexList.Delete(FIndexList.Count-1);
+  end;
+end;
+
+function TDAMemoryDataset.LocateWithIndex(const LocateStruct: PMemLocateStruct; Buffer: PMemDatasetrecord): boolean;
+var
+  L, H, I, C,j                  : integer;
+  lBin2: Boolean;
+  lBuf: Dataset_PAnsiChar;
+begin
+  with LocateStruct^ do begin
+    Result := False;
+    L := 0;
+    H := lWorkList.Count - 1;
+    while L <= H do
+      begin
+        I := (L + H) shr 1;
+        c:=0;
+        lBuf:=PMemDatasetrecord_Native(lWorkList[i])^.Data;
+        lBin2:=PMemDatasetrecord_Native(lWorkList[i])^.Ident = mrBin2Style;
+        For j:=0 to lFields.Count-1 do begin
+          if GetNullMask(lBuf ,lFieldIndexes[j]) = lnull[j] then begin
+            if lnull[j] then
+              c := 0 // null | null
+            else
+              if lBin2 then
+                c :=  CompareValues2(lBuf + lOffsets[j], lValues[j], lDatatypes[j], lcaseIns[j],True) // not null | not null
+              else
+                c :=  CompareValues2(lBuf + GetBin3Offset(lBuf,lFieldIndexes[j]), lValues[j], lDatatypes[j], lcaseIns[j],True) // not null | not null
+          end
+          else begin
+            if lNull[j] then
+              c :=  1    // not null | null
+            else
+              c := -1;   //     null | not null
+          end;
+          if c <> 0 then begin
+            if ldesc[j] then c:=-c;
+            Break;
+          end;
+        end;
+        if (C < 0) then
+          L := I + 1
+        else
+          begin
+            H := I - 1;
+            if C = 0 then Result := True;
+          end;
+      end;
+    if Result then LocalBufferToDatasetBuffer(lWorkList[l],Buffer);
+  end;
+end;
+
+procedure TDAMemoryDataset.UpdateMemIndexes(AIndex: integer = -1);
+var
+  i: integer;
+begin
+  if Active then begin
+    While FIndexDefs.Count > FIndexList.Count do
+      FIndexList.Add(TDAMemIndex.Create(self));
+
+    While FIndexDefs.Count < FIndexList.Count do begin
+      TDAMemIndex(FIndexList.Last).Free;
+      FIndexList.Delete(FIndexList.Count-1);
+    end;
+
+    if AIndex <> -1 then begin
+      TDAMemIndex(FIndexList[AIndex]).UpdateIndex(FIndexDefs[AIndex]);
+    end
+    else begin
+      For i:= 0 to FIndexDefs.Count -1 do
+        TDAMemIndex(FIndexList[i]).UpdateIndex(FIndexDefs[i]);
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.LocalBufferToDatasetBuffer(LocalBuf: PMemDatasetrecord_Native; DatasetBuffer: PMemDatasetrecord);
+begin
+  IntGetRecordList.LockListForReading;
+  try
+    with DatasetBuffer^.BookmarkData do begin
+      Bookmark := TBookmarkData(LocalBuf);
+      BookmarkFlag := bfCurrent;
+    end;
+    DuplicateBuffer(LocalBuf, Pointer(DatasetBuffer),False);
+  finally
+    IntGetRecordList.UnlockListForReading;
+  end;
+end;
+
+procedure TDAMemoryDataset.PrepareIndexForSorting(const aIndexName: string = '');
+var
+  i: integer;
+begin
+  if aIndexName = '' then begin
+    UpdateMemIndexes(-1);
+    For i := 0 to IndexDefs.Count-1 do
+      DoSort(TDAMemIndex(FIndexList[i]));
+  end
+  else begin
+    i:= IndexDefs.IndexOf(aIndexName);
+    if i = -1 then DatabaseErrorFmt(SIndexNotFound,[aIndexName]);
+    UpdateMemIndexes(i);
+    DoSort(TDAMemIndex(FIndexList[i]));
+  end;
+end;
+
+function TDAMemoryDataset.intLocateRecordByIndex(aIndex: TDAMemIndex;
+  const KeyValues: Variant; SyncCursor: Boolean): Boolean;
+var
+  i: integer;
+  Buffer: PMemDatasetrecord;
+  lBookmark: TMemBookmarkData;
+  lLocateStr: TMemLocateStruct;
+begin
+  Result := False;
+  if Self.State <> dsBrowse then CheckBrowseMode;
+  CursorPosChanged;
+  Buffer := pointer(TempBuffer);
+  if IsEmpty then Exit;
+  try
+    FillChar(lLocateStr, SizeOf(TMemLocateStruct),0);
+    lLocateStr.lFields := aIndex.IndexFieldNameList;
+    InitMemLocateStruct(@lLocateStr, KeyValues);
+    for i:=0 to lLocateStr.lFields.Count-1 do begin
+      lLocateStr.ldesc[i]:=aIndex.IndexDescFields[i]<>nil;
+      lLocateStr.lcaseIns[i] := aIndex.IndexCaseInsList[i]<>nil;
+    end;
+    lLocateStr.lWorkList:= aIndex.DataList;
+    Result := LocateWithIndex(@lLocateStr,Buffer);
+    if Result and SyncCursor then begin
+      SetLength(lBookmark, BookmarkSize);
+      GetBookmarkData(pointer(Buffer), Pointer(lBookmark));
+    end;
+  finally
+    if Result and SyncCursor then begin
+      InternalGotoBookmark(pointer(lBookmark));
+      SetLength(lBookmark, 0);
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.InitMemLocateStruct(AStruct: PMemLocateStruct;
+  const KeyValues: Variant);
+var
+  i: integer;  
+begin
+  with AStruct^ do begin
+    SetLength(lOffsets,lFields.Count);
+    SetLength(lDatatypes,lFields.Count);
+    SetLength(lValues,lFields.Count);
+    SetLength(lnull,lFields.Count);
+    SetLength(ldesc,lFields.Count);
+    SetLength(lcaseIns,lFields.Count);
+    SetLength(lFieldIndexes,lFields.Count);
+    for i:=0 to lFields.Count-1 do begin
+      lFieldIndexes[i]:=GetFieldNo(TField(lFields[i]));
+      lOffsets[i] := GetBin2FieldOffset(lFieldIndexes[i]);
+      lDatatypes[i] := TField(lFields[i]).DataType;
+      if lFields.Count = 1 then
+        lValues[i].Value := KeyValues
+      else
+        lValues[i].Value := KeyValues[i];
+      lnull[i]:=VarIsEmpty(lValues[i].Value) or VarIsNull(lValues[i].Value);
+      if not lnull[i] then begin
+        if lDatatypes[i] in ft_AnsiStringValues then
+          lValues[i].AsAnsiString := VarToAnsiStr(lValues[i].Value)
+        else if lDatatypes[i] in ft_WideStringValues then
+          lValues[i].AsWideString := VarToWideStr(lValues[i].Value)
+        else if lDatatypes[i] in [ftDate, ftTime, ftDateTime] then begin
+          case TVarData(lValues[i].Value).VType of
+            varString, varOleStr, varUString: lValues[i].Value := StrToDate(lValues[i].Value);
+          end;
+          case lDatatypes[i] of
+            ftDate: lValues[i].Value := DateTimeToTimeStamp(lValues[i].Value).Date;
+            ftTime: lValues[i].Value := DateTimeToTimeStamp(lValues[i].Value).Time;
+          end;
+        end;
+      end;
+    end;
+  end;
+end;
+
+
+function TDAMemoryDataset.CreateBin3Struct(const ASize: Cardinal): Dataset_PAnsiChar;
+begin
+  {$IFDEF FPC}
+  Result := nil;
+  {$ENDIF FPC}
+  GetMem(Result, ASize);
+end;
+
+function TDAMemoryDataset.GetBin3Offset(Buffer: Dataset_PAnsiChar;
+  const aFieldNo: integer): cardinal;
+begin
+  case pByte(buffer+FNullMaskSize)^ of
+    sizeOf(Byte):     Result := PByteArray(Buffer+FNullMaskSize+1)^[aFieldNo];
+    sizeOf(word):     Result := PWordArray(Buffer+FNullMaskSize+1)^[aFieldNo];
+    sizeOf(Cardinal): Result := PCardinalArray(Buffer+FNullMaskSize+1)^[aFieldNo];
+  else
+    raise Exception.Create('incompatible buffer format');
+    Result := 0;
+  end;
+end;
+
+function TDAMemoryDataset.CreateMemDatasetRecord(const AType: TmrMode;
+  ABin3Size: Cardinal;
+  ADatasetCompatible: Boolean): PMemDatasetrecord_Native;
+var
+  lRecordSize: Cardinal;
+begin
+  if ADatasetCompatible then
+    lRecordSize := SizeOf(TMemDatasetrecord)
+  else
+    lRecordSize := SizeOf(TMemDatasetrecord_Native);
+  {$IFDEF FPC}
+  Result := nil;
+  {$ENDIF}
+  GetMem(Result, lRecordSize);
+  FillChar(Result^,lRecordSize,0);
+  Result.Ident := AType;
+  case AType of
+    mrEmpty: ;
+    mrBin2Style: Result.Data := CreateBin2Struct;
+    mrBin3Style: Result.Data := CreateBin3Struct(ABin3Size);
+  end;
+end;
+
+function TDAMemoryDataset.CreateBin2Struct: Dataset_PAnsiChar;
+begin
+  {$IFDEF FPC}
+  Result := nil;
+  {$ENDIF FPC}
+  GetMem(Result, FNativeRecordSize);
+  FillChar(Result^, FNullMaskSize, $FF);
+  FillChar((Result+FNullMaskSize)^, FNativeRecordSize-FNullMaskSize, 0);
+end;
+
+procedure TDAMemoryDataset.FreeMemDatasetRecord(Buffer: PMemDatasetrecord_Native);
+begin
+  if Buffer <> nil then begin
+    with buffer^ do
+      case Ident of
+        mrBin2Style: FreeBin2Buffer(Data);
+        mrBin3Style: FreeBin3Buffer(Data);
+        mrEmpty:;
+      end;
+    FreeMem(Buffer);
+  end;
+end;
+
+procedure TDAMemoryDataset.FreeBin2Buffer(Buffer: Dataset_PAnsiChar);
+begin
+  if buffer <> nil then ClearBin2Buffer(Buffer);
+  FreeMem(buffer);
+end;
+
+procedure TDAMemoryDataset.FreeBin3Buffer(Buffer: Dataset_PAnsiChar);
+begin
+  FreeMem(buffer);
+end;
+
+procedure TDAMemoryDataset.ConvertBin3ToBin2Record(Buffer: PMemDatasetrecord_Native);
+var
+  i: integer;
+  source, dest: Dataset_PAnsiChar;
+  k,k1: cardinal;
+  p2: PBlobRecord;
+begin
+  case Buffer^.Ident of
+    mrEmpty: begin
+      Buffer^.Data  := CreateBin2Struct;
+      Buffer^.Ident := mrBin2Style;
+    end;
+    mrBin2Style: ; //nothing
+    mrBin3Style: begin
+      source := Buffer^.Data;
+      Dest := CreateBin2Struct;
+      Buffer.Data:= Pointer(dest);
+      Buffer.Ident := mrBin2Style;
+      try
+        Move(pointer(Source)^, pointer(Dest)^, FNullMaskSize);
+
+        for I := 0 to FieldCount - 1 do begin
+          if (not GetNullMask(Source, i)) then begin
+            k := GetBin3Offset(Source, i);
+            k1:= GetBin3Offset(Source, i+1);
+            if not IsReferencedField(FDataTypeArray[i]) then begin
+              Move(pointer(Source + k)^, pointer(Dest + FOffsets[i])^, k1-k)
+            end
+            else begin
+              case FDataTypeArray[i] of
+                ftString,ftFixedChar: PAnsiString(Dest + FOffsets[i])^ := PAnsiString(Source + k)^;
+                {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+                ftWideString: PUnicodeString(Dest + FOffsets[i])^ := PUnicodeString(Source + k)^;
+              else
+                if FDataTypeArray[i] in ft_BlobTypes then begin
+                  p2 := CreateBlobRecord(k1-k);
+                  Move(pointer(Source + k)^, pointer(@p2.Data)^, k1-k);
+                  PPointer(Dest + FOffsets[i])^ := p2;
+                end;
+              end;
+            end;
+          end;
+        end;
+      finally
+        FreeBin3Buffer(source);
+      end;
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.CalculateRecordsSize: Cardinal;
+var
+  i,j: integer;
+  List: TMemList;
+  buf: Dataset_PAnsiChar;
+  lStoreStringsAsReference: Boolean;
+begin
+  if FCloneSource <> nil then
+    Result := FCloneSource.CalculateRecordsSize
+  else begin
+    Result:=0;
+    List:=FRecordsList.LockListForReading;
+    try
+      inc(Result, SizeOf(TMemDatasetrecord_Native)*List.Count);
+      lStoreStringsAsReference := GetStoreStringsAsReference;
+      For i:= 0 To List.Count-1 do begin
+        buf:=PMemDatasetrecord_Native(List[i])^.Data;
+        case PMemDatasetrecord_Native(List[i])^.Ident of
+          mrBin2Style : begin
+            inc(Result,FNativeRecordSize);
+            For j := 0 to FieldCount-1 do begin
+              if not GetNullMask(buf,j) then begin
+                if FDataTypeArray[j] in ft_BlobTypes then
+                  inc(Result, PBlobRecord(PPointer(buf + FOffsets[j])^)^.size)
+                else if lStoreStringsAsReference then
+                  case FDataTypeArray[j] of
+                   ftString, ftFixedChar : inc(Result,Length(PAnsiString(buf + FOffsets[j])^)*SizeOf(AnsiChar));
+                   {$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}
+                   ftWideString:inc(Result,Length(PUnicodeString(buf + FOffsets[j])^)*SizeOf(UnicodeChar));
+                  end;
+              end;
+            end;
+          end;
+          mrBin3Style : inc(Result,GetBin3Offset(buf,FieldCount));
+        end;
+      end;
+    finally
+      FRecordsList.UnlockListForReading;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.ClearBin2Buffer(Buffer: Dataset_PAnsiChar);
+var
+  i: integer;
+begin
+  if GetHasReferencedFields then begin
+    for I := 0 to FieldCount - 1 do
+      if (not GetNullMask(Buffer, i)) and
+        IsReferencedField(FDataTypeArray[i]) and
+        (PPointer(Buffer + FOffsets[i])^ <> nil) then
+        ClearFieldByFieldType(Buffer + FOffsets[i], FDataTypeArray[i]);
+  end;
+end;
+
+function WStrLen(const Str: PUnicodeChar): Cardinal;
+var
+  P : PUnicodeChar;
+begin
+  P := Str;
+  while (P^ <> #0) do Inc(P);
+  Result := (P - Str);
+end;
+
+procedure TDAMemoryDataset.ConvertBin2ToBin3Record(ASource : PMemDatasetrecord_Native);
+var
+  lbin2, lbin3: Dataset_PAnsiChar;
+begin
+  if ASource^.Ident = mrBin2Style then begin
+    lbin2 := ASource^.Data;
+    lBin3 := Bin2ToBin3(lBin2);
+    if lbin3 <> nil then begin
+      FreeBin2Buffer(lBin2);
+      ASource^.Data := lBin3;
+      ASource^.Ident := mrBin3Style;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.CompactRecords;
+var
+  List: TMemList;
+  i: integer;
+begin
+  if FCloneSource <> nil then
+    FCloneSource.CompactRecords
+  else begin
+    List := FRecordsList.LockListForWriting;
+    try
+      for i:= 0 to List.Count -1 do
+        try
+          ConvertBin2ToBin3Record(List.FList^[i]);
+        except
+          FAutoCompactRecords := FAutoCompactRecords;
+        end;
+    finally
+      FRecordsList.UnlockListForWriting;
+    end;
+  end;
+end;
+
+function TDAMemoryDataset.Bin2ToBin3(ASource: Dataset_PAnsiChar): Dataset_PAnsiChar;
+var
+  i: integer;
+  p1: Dataset_PAnsiChar;
+  lBin2RecordSize, dx: cardinal;
+  lBlobPresent: boolean;
+  loffsets: array of cardinal;
+  lBin2DataSize: array of cardinal;
+  lDatatypeSize: Byte;
+  buf: Dataset_PAnsiChar;
+  lStoreStringsAsReference: Boolean;
+begin
+  Result := nil;
+  lBin2RecordSize := 0;
+  lBlobPresent := False;
+  SetLength(loffsets, FieldCount+1);
+  SetLength(lBin2DataSize, FieldCount);
+  loffsets[0] := 0;
+  lStoreStringsAsReference := GetStoreStringsAsReference;
+  For i := 0 to FieldCount-1 do begin
+    if GetNullMask(ASource, i) then begin
+      lBin2DataSize[i] := 0;
+    end
+    else begin
+      if FDataTypeArray[i] in ft_BlobTypes then begin
+        lBlobPresent := True;
+        lBin2DataSize[i] := PBlobRecord(PPointer(ASource + FOffsets[i])^)^.size;
+      end
+      else if FDataTypeArray[i] in [ftString, ftFixedChar] then begin
+        if lStoreStringsAsReference then
+          lBin2DataSize[i] := Length(PAnsiString(ASource + FOffsets[i])^)
+        else
+          lBin2DataSize[i] := StrLen(PAnsiChar(ASource + FOffsets[i]));
+        inc(lBin2DataSize[i],SizeOf(AnsiChar)); // #0
+      end
+      else if FDataTypeArray[i] in [{$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}ftWideString] then begin
+        if lStoreStringsAsReference then
+          lBin2DataSize[i] := Length(PUnicodeString(ASource + FOffsets[i])^)*SizeOf(UnicodeChar)
+        else
+          lBin2DataSize[i] := WStrLen(PUnicodeChar(ASource + FOffsets[i]))*SizeOf(UnicodeChar);
+        inc(lBin2DataSize[i], SizeOf(UnicodeChar)); // #0
+      end
+      else
+        lBin2DataSize[i]:= FDataSizeArray[i];
+    end;
+    loffsets[i+1] := loffsets[i]+ lBin2DataSize[i];
+    inc(lBin2RecordSize, lBin2DataSize[i]);
+  end;
+  inc(lBin2RecordSize, FNullMaskSize+SizeOf(Byte));
+  if lBin2RecordSize <= $FF - (Cardinal(FieldCount)+1)*SizeOf(Byte) then
+    lDatatypeSize := SizeOf(Byte)
+  else if lBin2RecordSize <= $FFFF - Cardinal(FieldCount+1)*SizeOf(Word) then
+    lDatatypeSize := SizeOf(Word)
+  else
+    lDatatypeSize := SizeOf(Cardinal);
+  inc(lBin2RecordSize,(FieldCount+1)*lDatatypeSize);
+  if (FNativeRecordSize > lBin2RecordSize) or lStoreStringsAsReference or lBlobPresent then begin
+    // convert it!
+    Result:=CreateBin3Struct(lBin2RecordSize);
+    p1 := Result;
+    move(ASource^, p1^, FNullMaskSize);
+    PByte(p1 + FNullMaskSize)^ := lDatatypeSize;
+    dx:=FNullMaskSize+SizeOf(Byte);
+    inc(p1, dx);
+    inc(dx,(FieldCount+1)*lDatatypeSize);
+    case lDatatypeSize of
+      SizeOf(Byte): for i:=0 to FieldCount do PBytearray(p1)^[i] := loffsets[i]+dx;
+      SizeOf(Word): for i:=0 to FieldCount do PWordArray(p1)^[i] := loffsets[i]+dx;
+      SizeOf(Cardinal): for i:=0 to FieldCount do PCardinalArray(p1)^[i] := loffsets[i]+dx;
+    end;
+    inc(p1, (FieldCount+1)*lDatatypeSize);
+    for i:=0 to FieldCount-1 do begin
+      if lBin2DataSize[i] > 0 then begin
+        buf := ASource + FOffsets[i];
+        if FDataTypeArray[i] in ft_BlobTypes then begin
+          move(PBlobRecord(PPointer(buf)^)^.Data, p1^,lBin2DataSize[i]);
+        end
+        else if FDataTypeArray[i] in [ftString, ftFixedChar] then begin
+          dx := lBin2DataSize[i]-SizeOf(AnsiChar);
+          if lStoreStringsAsReference then
+            Move(pointer(PAnsiString(buf)^)^, p1^, dx)
+          else
+            move(buf^, p1^, dx);
+          PAnsiChar(p1+dx)^ := #0;
+        end
+        else if FDataTypeArray[i] in [{$IFDEF DA_FixedWideCharSupport}ftFixedWideChar,{$ENDIF DA_FixedWideCharSupport}ftWideString] then begin
+          dx := lBin2DataSize[i] - SizeOf(UnicodeChar);
+          if lStoreStringsAsReference then
+            Move(pointer(PUnicodeString(buf)^)^, p1^, dx)
+          else
+            move(buf^, p1^, dx);
+          PUnicodeChar(p1+dx)^ := #0;
+        end
+        else
+          move(buf^, p1^, lBin2DataSize[i]);
+        inc(p1, lBin2DataSize[i]);
+      end;
+    end;
+  end;
+end;
+
+
+procedure TDAMemoryDataset.SetAutoPackRecords(const Value: boolean);
+begin
+  FAutoCompactRecords := Value;
+  if FAutoCompactRecords then CompactRecords;
+end;
+
+procedure TDAMemoryDataset.Assign(Source: TPersistent);
+var
+  lSource: TDAMemoryDataset;
+begin
+  inherited;
+  if Source is TDAMemoryDataset then begin
+    lSource := TDAMemoryDataset(Source);
+
+    Active := False;
+
+    AfterCancel := lSource.AfterCancel;
+    AfterClose := lSource.AfterClose;
+    AfterDelete := lSource.AfterDelete;
+    AfterEdit := lSource.AfterEdit;
+    AfterInsert := lSource.AfterInsert;
+    AfterOpen := lSource.AfterOpen;
+    AfterPost := lSource.AfterPost;
+    AfterRefresh := lSource.AfterRefresh;
+    AfterScroll := lSource.AfterScroll;
+    AutoSortRecords := lSource.AutoSortRecords;
+    BeforeCancel := lSource.BeforeCancel;
+    BeforeClose := lSource.BeforeClose;
+    BeforeDelete := lSource.BeforeDelete;
+    BeforeEdit := lSource.BeforeEdit;
+    BeforeInsert := lSource.BeforeInsert;
+    BeforeOpen := lSource.BeforeOpen;
+    BeforePost := lSource.BeforePost;
+    BeforeRefresh := lSource.BeforeRefresh;
+    BeforeScroll := lSource.BeforeScroll;
+    CloneSource := lSource.CloneSource;
+    DetailFields := lSource.DetailFields;
+    FieldDefs := lSource.FieldDefs;
+    Filter := lSource.Filter;
+    Filtered := lSource.Filtered;
+    IndexDefs := lSource.IndexDefs;
+    IndexFieldNames := lSource.IndexFieldNames;
+    IndexName := lSource.IndexName;
+    MasterFields := lSource.MasterFields;
+    MasterSource := lSource.MasterSource;
+    OnCalcFields := lSource.OnCalcFields;
+    OnDeleteError := lSource.OnDeleteError;
+    OnEditError := lSource.OnEditError;
+    OnFilterRecord := lSource.OnFilterRecord;
+    OnNewRecord := lSource.OnNewRecord;
+    OnPostError := lSource.OnPostError;
+    ReadOnly := lSource.ReadOnly;
+    Active := lSource.Active;
+  end;
+end;
+
+procedure TDAMemoryDataset.AssignCloneSource(Source: TDAMemoryDataset);
+begin
+  if Source = nil then begin
+    Filtered := False;
+    Filter := '';
+    OnFilterRecord := nil;
+    IndexDefs.Clear;
+    IndexName := '';
+    MasterSource := nil;
+    MasterFields := '';
+    DetailFields := '';
+    ReadOnly := False;
+  end
+  else begin
+    Filter := Source.Filter;
+    OnFilterRecord := Source.OnFilterRecord;
+    Filtered := Source.Filtered;
+    IndexDefs.Assign(Source.IndexDefs);
+    if Source.IndexName <> '' then
+      IndexName := Source.IndexName
+    else
+      IndexFieldNames := Source.IndexFieldNames;
+    MasterSource := Source.MasterSource;
+    MasterFields := Source.MasterFields;
+    DetailFields := Source.DetailFields;
+    ReadOnly := Source.ReadOnly;
+  end;
+end;
+
+procedure TDAMemoryDataset.SetCloneSource(const Value: TDAMemoryDataset);
+var
+  FOldActive : Boolean;
+begin
+  if (Value <> nil) and (Value <> FMemCloneSource) then CheckforCircularLinks(Value,True);
+
+  if Value = Self then DatabaseError(Self.Name+ ': Can''t use itself as clonesource dataset');
+  FOldActive := Active;
+  Close;
+  if FMemCloneSource <> Value then begin
+    if not IsLoadingState then begin
+      if FMemCloneSource <> nil then begin
+        FMemCloneSource.UnregisterPermanentClient(Self);
+        AssignCloneSource(nil);
+      end;
+    end;
+    FMemCloneSource := Value;
+
+    if (FMemCloneSource <> nil) then begin
+      FMemCloneSource.RegisterPermanentClient(Self);
+      if not IsLoadingState then AssignCloneSource(FMemCloneSource);
+    end;
+
+  end;
+  if FOldActive then Open;
+end;
+
+procedure TDAMemoryDataset.RegisterPermanentClient(
+  const AClient: TDAMemoryDataset);
+begin
+  if FClonePermanentClientList = nil then FClonePermanentClientList:=TThreadList.Create;
+  FClonePermanentClientList.Add(AClient);
+end;
+
+procedure TDAMemoryDataset.RegisterPermanentClients;
+var
+  lClient: TDAMemoryDataset;
+  i: integer;
+begin
+  if FClonePermanentClientList <> nil then begin
+    with FClonePermanentClientList.LockList do try
+      For I := 0 to Count - 1 do begin
+        lClient:= TDAMemoryDataset(Items[i]);
+        if Assigned(lClient) then begin
+          RegisterClient(lClient);
+          lClient.RegisterPermanentClients;
+        end;
+      end;
+    finally
+      FClonePermanentClientList.UnlockList;
+    end;
+  end;  
+end;
+
+procedure TDAMemoryDataset.UnregisterPermanentClients;
+var
+  i: integer;
+  lList: TList;
+  lClient: TDAMemoryDataset;
+begin
+  if FClonePermanentClientList <> nil then begin
+    lList:= FClonePermanentClientList.LockList;
+    try
+      for i:= lList.Count-1 downto 0 do begin
+        lClient:= TDAMemoryDataset(lList[i]);
+        if Assigned(lClient) then UnregisterClient(lClient);
+      end;
+      lList.Clear;
+    finally
+      FClonePermanentClientList.UnlockList;
+    end;
+  end;
+end;
+
+procedure TDAMemoryDataset.UnregisterPermanentClient(
+  const AClient: TDAMemoryDataset);
+begin
+  if FClonePermanentClientList <> nil then
+    FClonePermanentClientList.Remove(AClient);
+end;
+
+procedure TDAMemoryDataset.AttachToSource(const Source: TDAMemoryDataset);
+var
+  fOldActive: Boolean;
+begin
+  if Source <> FCloneSource then begin
+    DetachFromSource;
+    fOldActive:= Active;
+    Close;
+    FCloneSource := Source;
+    if fOldActive then Open;
+  end;
+end;
+
+procedure TDAMemoryDataset.CheckforCircularLinks(ASource: TDataset; CheckForClone: Boolean);
+
+  procedure _CheckInPermanentClients(APermSource: TDAMemoryDataset);
+  var
+    i: integer;
+    lList: TList;
+    lDataset: TDAMemoryDataset;
+  begin
+    if (APermSource.FClonePermanentClientList <> nil) then begin
+      lList := APermSource.FClonePermanentClientList.LockList;
+      try
+        for i:=0 to lList.Count-1 do begin
+          lDataset := TDAMemoryDataset(lList[i]);
+          if lDataset = ASource then DatabaseError(SCircularDataLink, Self);
+          _CheckInPermanentClients(lDataset);
+        end;
+      finally
+        APermSource.FClonePermanentClientList.UnlockList;
+      end;
+    end;
+    if (APermSource.MasterSource <> nil) and
+       (APermSource.MasterSource.DataSet <> nil) and
+       (APermSource.MasterSource.DataSet is TDAMemoryDataset) then
+     _CheckInPermanentClients(TDAMemoryDataset(APermSource.MasterSource.DataSet));
+  end;
+
+begin
+  if ASource = nil then Exit;
+  if ASource = Self then DatabaseError(SCircularDataLink, Self);
+
+  if CheckForClone then begin
+    if ((MasterSource <> nil) and (ASource = MasterSource.DataSet)) then DatabaseError(SCircularDataLink, Self);
+    if ASource.IsLinkedTo(MasterSource) then DatabaseError(SCircularDataLink, Self);
+  end
+  else begin
+    if (ASource = FMemCloneSource) then DatabaseError(SCircularDataLink, Self);
+  end;
+
+  if (ASource is TDAMemoryDataset) then begin
+    // check in parent MasterSources
+    if (TDAMemoryDataset(ASource).MasterSource <> nil) then CheckforCircularLinks(TDAMemoryDataset(ASource).MasterSource.DataSet, CheckForClone);
+    // check in parent clonesources
+    CheckforCircularLinks(TDAMemoryDataset(ASource).FMemCloneSource,CheckForClone);
+  end;
+
+  _CheckInPermanentClients(Self);
+end;
+
+function TDAMemoryDataset.IsLoadingState: Boolean;
+begin
+  Result := (csLoading in ComponentState);
+end;
+
+procedure TDAMemoryDataset.SetAutoSort(const Value: Boolean);
+begin
+  FAutoSort := Value;
+  if FAutoSort then IntAutoSort(nil,True);
+end;
+
+procedure TDAMemoryDataset.IntAutoSort(ABuf : PMemDatasetrecord_Native; ANeedResync: Boolean);
+var
+  lbookmark: pointer;
+  k: integer;
+  st: TDataSetState;
+begin
+  if Active then begin
+    if FAutoSort and (FIndexName <> '') then begin
+      if ABuf = nil then begin
+        lbookmark:=GetBookmark;
+        if lbookmark <> nil then ABuf := TBookMarkData(PPointer(lBookmark)^);
+      end;
+      SortOnFields;
+      if ABuf <> nil then
+        k := IntFindRecordID(ABuf)
+      else
+        k := -1;
+      if k <> -1 then begin
+        st := State;
+        if St = dsInsert then SetState(dsBrowse);
+        try
+          FRecordPos := k;
+          Resync([rmExact, rmCenter]);
+        finally
+          if st <> State then SetState(st);
+        end;
+      end;
+    end
+    else
+      if ANeedResync then Resync([]);
+  end;
+end;
+
+procedure TDAMemoryDataset.DoAfterCancel;
+begin
+  if peaResort in FPostEditActions then begin
+    IntAutoSort(nil, True);
+    FPostEditActions := [];
+  end;
+  inherited;
+end;
+
+{ TDABlobStream }
+
+constructor TDABlobStream.Create(Field: TBlobField; Mode: TBlobStreamMode);
+var
+  lbuf: Dataset_PAnsiChar;
+begin
+  inherited Create;
+  FMode := Mode;
+  FField := Field;
+  FDataSet := FField.DataSet as TDAMemoryDataset;
+  if not FDataSet.GetActiveRecBuf(lBuf) then Exit;
+  FBuffer := PMemDatasetrecord_Native(lBuf);
+  if not FField.Modified and (Mode <> bmRead) then begin
+    if FField.ReadOnly then DatabaseErrorFmt({$IFDEF FPC}SReadOnlyField{$ELSE}SFieldReadOnly{$ENDIF}, [FField.DisplayName]);
+    if not (FDataSet.State in [dsEdit, dsInsert]) then DatabaseError(SNotEditing);
+    FCached := True;
+  end
+  else
+    FCached := (lBuf = FDataSet.ActiveBuffer);
+  FOpened := True;
+  if Mode = bmWrite then Truncate;
+end;
+
+destructor TDABlobStream.Destroy;
+begin
+  if FOpened and FModified then FField.Modified := True;
+  if FModified then try
+    FDataSet.DataEvent(deFieldChange, Longint(FField));
+  except
+    {$IFDEF FPC}
+    if assigned(classes.ApplicationHandleException) then
+      classes.ApplicationHandleException(self)
+    else
+      ShowException(ExceptObject,ExceptAddr);
+    {$ELSE}
+    Application.HandleException(Self);
+    {$ENDIF}
+  end;
+  inherited Destroy;
+end;
+
+procedure TDABlobStream.GetBLOBRecordFromRecord(Field: TField; out aLocked:Boolean; out blob_size: integer; out blob_data: pointer);
+var
+  Pos: Integer;
+begin
+  Pos := FDataSet.FRecordPos;
+  if (Pos < 0) and (FDataSet.RecordCount > 0) then
+    Pos := 0
+  else if Pos >= FDataSet.RecordCount then
+    Pos := FDataSet.RecordCount - 1;
+  if (Pos >= 0) and (Pos < FDataSet.RecordCount) then begin
+    GetBLOBRecordFromBuffer(FDataSet.IntGetRecordList.LockListForReading[Pos], Field, blob_size, blob_data);
+    ALocked:=True;
+  end
+  else begin
+    blob_data:=nil;
+    blob_size:=0;
+  end;
+end;
+
+function TDABlobStream.GetBlobSize: Longint;
+var
+  llocked: Boolean;
+  ldata: pointer;
+begin
+  Result := 0;
+  if FOpened then begin
+    if FCached then begin
+      GetBLOBRecordFromBuffer(FBuffer, FField,Result,ldata);
+    end
+    else begin
+      GetBLOBRecordFromRecord(FField, llocked,Result, ldata);
+      if llocked then FDataSet.IntGetRecordList.UnlockListForReading;
+    end;
+  end;
+end;
+
+function TDABlobStream.GetBLOBRecordFromBuffer(Buffer: PMemDatasetrecord_Native; Field: TField;out blob_size: integer; out blob_data: pointer): PBLOBRecord;
+begin
+  case Buffer^.Ident of
+    mrBin2Style: begin
+      Result := PPointer(FDataSet.IntFindFieldData(Buffer^.Data, Field, True))^;
+      if Result <> nil then begin
+        with Result^ do begin
+          blob_data := @Data;
+          blob_size := size;
+        end;
+      end
+      else begin
+        blob_data := nil;
+        blob_size := 0;
+      end;
+    end;
+    mrBin3Style: begin
+      blob_size := FDataSet.GetBin3Offset(Buffer^.Data,FDataSet.GetFieldNo(Field)+1)-FDataSet.GetBin3Offset(Buffer^.Data,FDataSet.GetFieldNo(Field));
+      blob_data := FDataSet.IntFindFieldData(Buffer^.Data, Field, False);
+      Result := nil;
+    end;
+  else
+    blob_data := nil;
+    blob_size := 0;
+    Result := nil;
+  end;
+end;
+
+function TDABlobStream.Read(var Buffer; Count: Integer): Longint;
+var
+  llocked: boolean;
+  lData: pointer;
+  lSize: integer;
+begin
+  llocked:=False;
+  Result := 0;
+  if FOpened then begin
+    if Count > Size - FPosition then
+      Result := Size - FPosition
+    else
+      Result := Count;
+    if Result > 0 then begin
+      if FCached then
+        GetBLOBRecordFromBuffer(FBuffer, FField,lSize,lData)
+      else
+        GetBLOBRecordFromRecord(FField,llocked,lSize,lData);
+      try
+        if lSize <> 0 then begin
+          Move(Dataset_PAnsiChar(lData)[FPosition], Buffer, Result);
+          Inc(FPosition, Result);
+        end;
+      finally
+        if llocked then FDataSet.IntGetRecordList.UnlockListForReading;
+      end;
+    end;
+  end;
+end;
+
+function TDABlobStream.Seek(Offset: Integer; Origin: Word): Longint;
+begin
+  case Origin of
+    soFromBeginning: FPosition := Offset;
+    soFromCurrent: Inc(FPosition, Offset);
+    soFromEnd: FPosition := GetBlobSize + Offset;
+  end;
+  Result := FPosition;
+end;
+
+procedure TDABlobStream.Truncate;
+begin
+  if FOpened and FCached and (FMode <> bmRead) then begin
+    FDataset.ConvertBin3ToBin2Record(FBuffer);
+    FDataset.ClearBin2Field(FBuffer^.Data, FField);
+    FModified := True;
+  end;
+end;
+
+function TDABlobStream.Write(const Buffer; Count: Integer): Longint;
+var
+  Temp: PBLOBRecord;
+  lblobSize: integer;
+  lBlobData: pointer;
+begin
+  Result := 0;
+  if FOpened and FCached and (FMode <> bmRead) then begin
+    Temp := GetBLOBRecordFromBuffer(FBuffer, FField,lblobSize,lBlobData);
+    if temp = nil then begin
+      temp := CreateBlobRecord(FPosition + Count);
+    end
+    else if Temp.size + SizeOf(TBLOBRecord) < Cardinal(FPosition + Count) then begin
+      ReallocMem(temp, SizeOf(TBLOBRecord) + FPosition); // compact date before realloc
+      ReallocMem(temp, SizeOf(TBLOBRecord) + FPosition + Count);
+      inc(Temp.size, Count);
+    end;
+    Move(Buffer, PAnsiChar(@Temp.Data)[FPosition], Count);
+    FDataset.SetBlobData(FField, FBuffer, Temp);
+    Inc(FPosition, Count);
+    Result := Count;
+    FModified := True;
+  end;
+end;
+
+{ TThreadMemList }
+
+procedure TThreadMemList.Add(Item: Pointer);
+begin
+  LockListForWriting;
+  try
+    FList.Add(Item);
+  finally
+    UnlockListForWriting;
+  end;
+end;
+
+procedure TThreadMemList.Clear;
+begin
+  LockListForWriting;
+  try
+    FList.Clear;
+  finally
+    UnlockListForWriting;
+  end;
+end;
+
+constructor TThreadMemList.Create;
+begin
+  inherited Create;
+  {$IFDEF FPC}
+  InitCriticalSection(FLock);
+  {$ELSE}
+  InitializeCriticalSection(FLock);
+  {$ENDIF}
+  FList := TMemList.Create;
+  FReadLock:=0;
+end;
+
+destructor TThreadMemList.Destroy;
+begin
+  LockListForWriting;    // Make sure nobody else is inside the list.
+  try
+    FList.Free;
+    inherited Destroy;
+  finally
+    UnlockListForWriting;
+    {$IFDEF FPC}
+    DoneCriticalSection(FLock);
+    {$ELSE}
+    DeleteCriticalSection(FLock);
+    {$ENDIF}
+  end;
+end;
+
+function TThreadMemList.LockListForReading: TMemList;
+begin
+  if FReadLock = 0 then EnterCriticalSection(FLock);
+  inc(FReadLock);
+  Result := FList;
+end;
+
+function TThreadMemList.LockListForWriting: TMemList;
+begin
+  EnterCriticalSection(FLock);
+  Result := FList;
+end;
+
+procedure TThreadMemList.Remove(Item: Pointer);
+begin
+  LockListForWriting;
+  try
+    FList.Remove(Item);
+  finally
+    UnlockListForWriting;
+  end;
+end;
+
+
+procedure TThreadMemList.UnlockListForReading;
+begin
+  Dec(FReadLock);
+  if FReadLock = 0 then LeaveCriticalSection(FLock);
+end;
+
+procedure TThreadMemList.UnlockListForWriting;
+begin
+  LeaveCriticalSection(FLock);
+end;
+
+{$IFDEF BDS4UP}{$REGION 'MEM_PACKETRECORDS'}{$ENDIF BDS4UP}
+{$IFDEF MEM_PACKETRECORDS}
+{ TMemPackedRecord }
+
+constructor TMemPackedRecord.Create(AOwner: TMemPackedRecords);
+begin
+  fOwner := AOwner;
+  if AOwner = nil then DatabaseError('AOwner should be assigned');
+  fBuffer:= AOwner.fOwner.IntAllocRecordBuffer(True);
+end;
+
+destructor TMemPackedRecord.Destroy;
+begin
+  fOwner.fOwner.IntFreeRecordBuffer(fBuffer);
+  inherited;
+end;
+
+function TMemPackedRecord.GetIsNull(Index: Integer): Boolean;
+begin
+  Result := fOwner.fOwner.GetNullMask(fBuffer,Index);
+end;
+
+function TMemPackedRecord.GetValues(Index: Integer): Variant;
+begin
+  Result := FOwner.fOwner.GetVarValueFromBuffer(fBuffer,FOwner.fOwner.Fields[Index]);
+end;
+
+function TMemPackedRecord.GetValuesByFieldName(AName: string): Variant;
+begin
+  Result := FOwner.fOwner.GetVarValueFromBuffer(fBuffer,FOwner.fOwner.FieldByName(AName));
+end;
+
+procedure TMemPackedRecord.SetIsNull(Index: Integer; const Value: Boolean);
+begin
+  fOwner.fOwner.ClearBin2Field(fBuffer,fOwner.fOwner.Fields[Index]);
+  fOwner.fOwner.SetNullMask(fBuffer,Index,Value);
+end;
+
+procedure TMemPackedRecord.SetValues(Index: Integer; const Value: Variant);
+begin
+
+end;
+
+procedure TMemPackedRecord.SetValuesByFieldName(AName: string;
+  const Value: Variant);
+begin
+
+end;
+
+{ TMemPackedRecords }
+
+function TMemPackedRecords.Add: TMemPackedRecord;
+begin
+  Result:= TMemPackedRecord.Create(Self);
+  fList.Add(Result);
+end;
+
+procedure TMemPackedRecords.Clear;
+var
+  i: integer;
+begin
+  For i:= 0 to fList.Count - 1 do
+    TMemPackedRecord(fList[i]).Free;
+  fList.Clear;
+end;
+
+constructor TMemPackedRecords.Create(AOwner: TDAMemoryDataset);
+begin
+  fOwner := AOwner;
+  fList := TList.Create;
+end;
+
+procedure TMemPackedRecords.Delete(aIndex: integer);
+var
+  lRec: TMemPackedRecord;
+begin
+  lRec := TMemPackedRecord(fList.Items[aIndex]);
+  fList.Delete(aIndex);
+  lRec.Free;
+end;
+
+destructor TMemPackedRecords.Destroy;
+begin
+  Clear;
+  fList.Free;
+  inherited;
+end;
+
+function TMemPackedRecords.GetCount: Integer;
+begin
+  Result:= fList.Count;
+end;
+
+function TMemPackedRecords.GetItems(Index: Integer): TMemPackedRecord;
+begin
+  Result := TMemPackedRecord(fList[Index]);
+end;
+{$ENDIF MEM_PACKETRECORDS}
+{$IFDEF BDS4UP}{$ENDREGION}{$ENDIF BDS4UP}
+
+{ TDAMemIndex }
+
+procedure TDAMemIndex.Clear;
+begin
+  FInit_FieldNames:= '';
+  FInit_CaseInsFields:='';
+  FInit_DescFields:='';
+  FIndexDef_Options:= [];
+  FIndexDef_Fields:='';
+  FIndexDef_DescFields:='';
+  FIndexDef_CaseInsFields:='';
+  FIndexCaseInsList.Clear;
+  FIndexDescFields.Clear;
+  FIndexFieldNameList.Clear;
+  FSortDescMode := False;
+  FDataList.Clear;
+  FLastSorted := 0;
+end;
+
+constructor TDAMemIndex.Create(AOwner: TDAMemoryDataset);
+begin
+  inherited Create;
+  FOwner := AOwner;
+  FIndexCaseInsList:= TList.Create;
+  FIndexDescFields := TList.Create;
+  FIndexFieldNameList := TList.Create;
+  FSortDescMode := False;
+  FInitFromIndexDef := False;
+  FLastSorted := 0;
+  FDataList:=TMemList.Create;
+end;
+
+destructor TDAMemIndex.Destroy;
+begin
+  Clear;
+  FIndexCaseInsList.Free;
+  FIndexDescFields.Free;
+  FIndexFieldNameList.Free;
+  FDataList.Free;
+  inherited;
+end;
+
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED OFF}
+{$ENDIF DELPHI10UP}
+procedure TDAMemIndex.Init(const AFieldNames: string; const CaseInsFields: string = ''; const DescFields: string='');
+var
+  pos1: integer;
+  fld: TField;
+  j: integer;
+begin
+  Clear;
+  FInit_FieldNames:= AFieldNames;
+  FInit_CaseInsFields:=CaseInsFields;
+  FInit_DescFields:=DescFields;
+
+  Pos1 := 1;
+  while Pos1 <= Length(AFieldNames) do begin
+    Fld := FOwner.FieldByName(ExtractFieldName(AFieldNames, Pos1));
+    FOwner.ValidateFieldForIndex(Fld);
+    FIndexFieldNameList.Add(Fld);
+  end;
+
+  //CaseInsFields
+  FIndexCaseInsList.Count := FIndexFieldNameList.Count;
+  Pos1 := 1;
+  while Pos1 <= Length(CaseInsFields) do begin
+    Fld := FOwner.FieldByName(ExtractFieldName(CaseInsFields, Pos1));
+    j := FIndexFieldNameList.IndexOf(Fld);
+    if j <> -1 then FIndexCaseInsList[j]:=pointer(1) ;
+  end;
+
+  // DescFields
+  FIndexDescFields.Count := FIndexFieldNameList.Count;
+  Pos1 := 1;
+  while Pos1 <= Length(DescFields) do begin
+    Fld := FOwner.FieldByName(ExtractFieldName(DescFields, Pos1));
+    j:= IndexFieldNameList.IndexOf(Fld);
+    if j <> -1 then FIndexDescFields[j]:=pointer(1);
+  end;
+end;
+{$IFDEF DELPHI10UP}
+{$WARN SYMBOL_DEPRECATED ON}
+{$ENDIF DELPHI10UP}
+
+
+function TDAMemIndex.GetDataList: TMemList;
+begin
+  if FInitFromIndexDef then
+    Result := FDataList
+  else
+    Result := FOwner.FDataList;
+end;
+
+procedure TDAMemIndex.Init(AIndexDef: TIndexDef);
+var
+  lCaseInsField, lDescFields: string;
+begin
+  lCaseInsField := AIndexDef.CaseInsFields;
+  if (lCaseInsField = '') and (ixCaseInsensitive in AIndexDef.Options) then
+    lCaseInsField := AIndexDef.Fields;
+  lDescFields := AIndexDef.DescFields;
+  if (lDescFields = '') and (ixDescending in AIndexDef.Options) then
+    lDescFields := AIndexDef.Fields;
+  Init(AIndexDef.Fields, lCaseInsField,lDescFields);
+  FInitFromIndexDef := True;
+  FIndexDef_Options:=AIndexDef.Options;
+  FIndexDef_Fields:=AIndexDef.Fields;
+  FIndexDef_DescFields:=AIndexDef.DescFields;
+  FIndexDef_CaseInsFields:=AIndexDef.CaseInsFields;
+end;
+
+procedure TDAMemIndex.Init(const Fields: string; CaseInsensitive,
+  Descending: Boolean);
+var
+  i: integer;
+begin
+  Init(Fields);
+
+  if CaseInsensitive then FInit_CaseInsFields := FInit_FieldNames;
+  for i:= 0 to IndexCaseInsList.Count-1 do
+    IndexCaseInsList[i]:= Pointer({$IFDEF FPC}PtrUInt{$ELSE}cardinal{$ENDIF}(ord(CaseInsensitive)));
+
+  if Descending then FInit_DescFields := FInit_FieldNames;
+  FSortDescMode:= Descending;
+  for i:= 0 to IndexDescFields.Count-1 do
+    IndexDescFields[i]:= Pointer({$IFDEF FPC}PtrUInt{$ELSE}cardinal{$ENDIF}(ord(Descending)));
+end;
+
+function TDAMemIndex.IsValid: boolean;
+begin
+  Result := FIndexFieldNameList.Count > 0;
+end;
+
+procedure TDAMemIndex.UpdateIndex(AIndexDef: TIndexDef);
+begin
+  if not ((AIndexDef.Fields = FIndexDef_Fields) and
+          (AIndexDef.CaseInsFields = FIndexDef_CaseInsFields) and
+          (AIndexDef.DescFields = FIndexDef_DescFields) and
+          (AIndexDef.Options = FIndexDef_Options)) then Init(AIndexDef);
+end;
+
+function TDAMemIndex.isCanUsed(const Fields: string; CaseInsensitive: Boolean): boolean;
+var
+  lcase: string;
+begin
+  if CaseInsensitive then lcase:= Fields else lcase := '';
+  Result :=
+    IsValid and
+    (FLastSorted > FOwner.FLastUpdate) and
+    // eugene: 20080407: AnsiSameText
+    AnsiSameText(FInit_FieldNames,Fields) and
+    AnsiSameText(FInit_CaseInsFields,lcase) and
+    (AnsiSameText(FInit_DescFields,Fields) or (FInit_DescFields=''));
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMySQLInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMySQLInterfaces.pas
new file mode 100644
index 0000000..a106431
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAMySQLInterfaces.pas	
@@ -0,0 +1,810 @@
+unit uDAMySQLInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  SysUtils, DB,
+  uDAInterfaces, uDAEngine, uROClasses, uDAUtils;
+
+type
+  { IDAMySQLConnection
+      For identification purposes Implemented by all MySQL connections }
+  IDAMySQLConnection = interface(IDAConnection)
+    ['{EB62495C-E922-45B3-B8DC-5DFCD787D3C8}']
+  end;
+
+  TDAMySQLDriver = class(TDAEDriver)
+  protected
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
+    function GetDefaultCustomParameters: string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  TDAMySQLConnection = class(TDAEConnection, IDAMySQLConnection, IDACanQueryDatabaseNames)
+  private
+    FMySQLVersion: integer;
+    function GetMySQLVersion: integer;
+  protected
+    function GetTableSchema: string; virtual;
+    function useUnicode:Boolean; virtual;
+  protected
+    procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
+    function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    function GetDatabaseNames: IROStrings;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+    constructor Create(aDriver: TDAEDriver; aName: string = ''); override;
+    property MySQLVersion: integer read GetMySQLVersion;
+  end;
+
+function MySQL_GetLastAutoInc(const GeneratorName: string; Query: IDADataset): variant;
+function MYSQL_GetDefaultCustomParameters: string;
+procedure MYSQL_GetAuxParams(List: IROStrings);
+function MYSQL_GetDatabaseNames(AConnection: TDAEConnection): IROStrings;
+procedure MYSQL_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype; aSchema: string; AMySQLVersion: integer);
+procedure MYSQL_DoGetForeignKeys(Query: IDADataset; ForeignKeys: TDADriverForeignKeyCollection; aSchema: string; AMySQLVersion: integer);
+procedure MYSQL_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection; aSchema: string; AMySQLVersion: integer; useUnicode: Boolean=False);
+procedure MYSQL_DoGetStoredProcedureParams(const aStoredProcedureName: string; Query: IDADataset; out Params: TDAParamCollection; aSchema: string);
+function MYSQL_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+function MYSQL_GetVersion(Query: IDADataset): cardinal;
+
+const
+  MySQL_DriverType = 'MySQL';
+
+implementation
+uses
+  StrUtils;
+
+var
+  mysql_reservedwords         : array of string;
+
+function MySQL_GetLastAutoInc(const GeneratorName: string; Query: IDADataset): variant;
+begin
+  try
+    Query.SQL := 'SELECT LAST_INSERT_ID()';
+    Query.Open;
+    Result := Query.Fields[0].Value;
+  finally
+    Query := nil;
+  end;
+end;
+
+function MYSQL_GetDefaultCustomParameters: string;
+begin
+  Result := 'Port=3306;';
+end;
+
+procedure MYSQL_GetAuxParams(List: IROStrings);
+begin
+  List.Add('Port=<port>');
+end;
+{ TDAMySQLDriver }
+
+procedure TDAMySQLDriver.GetAuxParams(const AuxDriver: string;
+  out List: IROStrings);
+begin
+  inherited;
+  MYSQL_GetAuxParams(List);
+end;
+
+function TDAMySQLDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAMySQLDriver.GetDefaultCustomParameters: string;
+begin
+  Result := MYSQL_GetDefaultCustomParameters;
+end;
+
+function MYSQL_GetDatabaseNames(AConnection: TDAEConnection): IROStrings;
+begin
+  Result := Engine_GetDatabaseNames(AConnection,'MySQL','SHOW DATABASES');
+end;
+
+procedure MYSQL_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype; aSchema: string;AMySQLVersion: integer);
+const
+  sDoGetTableNames            =
+    'SELECT TABLE_NAME ' +
+    'FROM INFORMATION_SCHEMA.TABLES ' +
+    'WHERE TABLE_TYPE = ''%s'' AND TABLE_SCHEMA = ''%s''';
+  sDOGetProcedures            =
+    'SELECT ROUTINE_NAME ' +
+    'FROM INFORMATION_SCHEMA.ROUTINES ' +
+    'WHERE ROUTINE_TYPE = ''PROCEDURE'' AND ROUTINE_SCHEMA = ''%s''';
+begin
+  try
+    if AMySQLVersion < 50000 then begin
+      case AObjectType of
+        dotTable: Query.SQL := Format('SHOW TABLES FROM %s',[aSchema]);
+        dotView:  Query.SQL := '';    // not supported
+        dotProcedure: Query.SQL := '';// not supported
+      end;
+    end
+    else begin
+      case AObjectType of
+        dotTable: Query.SQL := Format(sDoGetTableNames, ['BASE TABLE', aSchema]);
+        dotView: Query.SQL := Format(sDoGetTableNames, ['VIEW', aSchema]);
+        dotProcedure: Query.SQL := Format(sDOGetProcedures, [aSchema]);
+      end;
+    end;  
+    if Query.SQL <> '' then begin
+      Query.Open;
+      while not Query.Eof do begin
+        Alist.Add(Query.Fields[0].AsString);
+        Query.Next;
+      end;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure MYSQL_DoGetForeignKeys(Query: IDADataset; ForeignKeys: TDADriverForeignKeyCollection; aSchema: string; AMySQLVersion: integer);
+var
+  lCurrConstraint             : string;
+  lCurrFK                     : TDADriverForeignKey;
+const
+  sFK_SQL                     =
+    'SELECT ' +
+    'TABLE_NAME, REFERENCED_TABLE_NAME, COLUMN_NAME, REFERENCED_COLUMN_NAME ' +
+    'FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE ' +
+    'WHERE CONSTRAINT_SCHEMA=''%s'' AND REFERENCED_TABLE_NAME IS NOT NULL';
+begin
+  ForeignKeys.Clear;
+  lCurrConstraint := '';
+  lCurrFK := nil;
+  try
+    if AMySQLVersion >=50000 then begin
+      Query.SQL := Format(sFK_SQL, [aSchema]);
+      Query.Open;
+
+      while (not Query.EOF) do begin
+        if lCurrConstraint <> Query.Fields[0].AsString + '|' + Query.Fields[1].AsString then begin
+          lCurrConstraint := Query.Fields[0].AsString + '|' + Query.Fields[1].AsString;
+
+          lCurrFK := ForeignKeys.Add();
+          with lCurrFK do begin
+            PKTable := TrimRight(Query.Fields[0].AsString);
+            FKTable := TrimRight(Query.Fields[1].AsString);
+            PKField := TrimRight(Query.Fields[2].AsString);
+            FKField := TrimRight(Query.Fields[3].AsString);
+          end;
+        end else begin
+          with lCurrFK do begin
+            PKField := PKField + ';' + TrimRight(Query.Fields[2].AsString);
+            FKField := FKField + ';' + TrimRight(Query.Fields[3].AsString);
+          end;
+        end;
+        Query.Next;
+      end;
+    end
+    else begin
+      // not implemented
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+function MySQLDataTypeToDA(aDataType: string; Unicode, AutoInc, Unsigned: boolean): TDADataType;
+begin
+  aDataType := LowerCase(aDataType);
+  if (aDAtaType = 'char') or (aDAtaType = 'varchar') or
+     (aDAtaType = 'binary') or (aDAtaType = 'varbinary') or
+     (aDataType = 'enum') or (aDataType = 'set') then begin
+    if Unicode then
+      Result := datWideString
+    else
+      Result := datString;
+  end
+  else if (aDataType = 'text') or (aDataType = 'longtext') or
+          (aDataType = 'tinytext') or (aDataType = 'mediumtext') then begin
+    if Unicode then
+      Result := datWideMemo
+    else
+      Result := datMemo;
+  end
+  else if (aDataType = 'blob') or  (aDataType = 'tinyblob') or
+          (aDataType = 'mediumblob') or  (aDataType = 'longblob') then
+    Result := datBlob
+  else if (aDataType = 'date') or (aDataType = 'time') or (aDataType = 'datetime') or (aDataType = 'timestamp') then
+    result := datDateTime
+  else if (aDataType = 'bit') then
+    Result := datLargeUInt
+  else if (aDataType = 'tinyint') then begin
+    if Unsigned then
+      result := datByte
+    else
+      result := datShortInt
+  end
+  else if (aDataType = 'smallint') then begin
+    if Unsigned then
+      Result := datWord
+    else
+      Result := datSmallInt
+  end
+  else if (aDataType = 'year') then
+    Result := datWord
+  else if (aDataType = 'mediumint') or (aDataType = 'int') or (aDataType = 'integer') then begin
+    if AutoInc then
+      Result := datAutoInc
+    else if Unsigned then
+        Result := datCardinal
+      else
+        result := datInteger
+  end
+  else if (aDataType = 'bigint') then begin
+    if AutoInc then
+      Result := datLargeAutoInc
+    else if Unsigned then
+      Result := datLargeUInt
+    else
+      result := datLargeInt
+  end
+  else if (aDataType = 'float') then begin
+    Result := datSingleFloat
+  end
+  else if (aDataType = 'double') then  begin
+    Result := datFloat
+  end
+  else if (aDataType = 'decimal') then
+    result := datDecimal
+  else
+    result := datUnknown;
+end;
+
+procedure MYSQL_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection; aSchema: string; AMySQLVersion: integer;useUnicode: Boolean);
+const
+  sGetTableFields             =
+    'SELECT ' +
+    //TABLE_CATALOG, TABLE_SCHEMA, TABLE_NAME, COLUMN_NAME, ORDINAL_POSITION, COLUMN_DEFAULT, IS_NULLABLE, DATA_TYPE, CHARACTER_MAXIMUM_LENGTH, CHARACTER_OCTET_LENGTH,  CHARACTER_SET_NAME, COLLATION_NAME, COLUMN_TYPE, COLUMN_KEY, EXTRA, PRIVILEGES, COLUMN_COMMENT
+    'COLUMN_NAME, DATA_TYPE, IS_NULLABLE, COLUMN_DEFAULT, CHARACTER_MAXIMUM_LENGTH, CHARACTER_SET_NAME, COLUMN_KEY, COLUMN_COMMENT, EXTRA, COLUMN_TYPE,NUMERIC_PRECISION, NUMERIC_SCALE ' +
+    'FROM INFORMATION_SCHEMA.COLUMNS ' +
+    'WHERE ' +
+    '(TABLE_SCHEMA = ''%s'') AND (TABLE_NAME = ''%s'') ' +
+    'ORDER BY ORDINAL_POSITION';
+var
+  fld                         : TDAField;
+  s,s1: string;
+  i: integer;
+begin
+  try
+    if AMySQLVersion >= 50000 then begin
+      Query.SQL := Format(sGetTableFields, [aSchema, aTableName]);
+      Query.Open;
+      Fields := TDAFieldCollection.Create(nil);
+      while not Query.Eof do begin
+        fld := Fields.Add;
+        fld.Name := Query.Fields[0].AsString;
+        fld.Required := Query.Fields[2].AsString <> 'YES';
+        if not Query.Fields[3].IsNull then
+          fld.DefaultValue := Query.Fields[3].AsString;
+        fld.InPrimaryKey := SameText(Query.Fields[6].AsString, 'PRI');
+        fld.Description := Query.Fields[7].AsString;
+        fld.DataType := MysqlDataTypeToDA(Query.Fields[1].asString, useUnicode and ( sametext(Query.Fields[5].AsString, 'utf8') or sametext(Query.Fields[5].AsString, 'ucs2')), SameText(Query.Fields[8].AsString, 'auto_increment'), pos(' unsigned',LowerCase(Query.Fields[9].AsString))>0);
+        if fld.DataType <> datBlob then fld.Size := GetVarInt64(Query.Fields[4].Value);
+        if fld.DataType = datDecimal then begin
+          fld.DecimalPrecision:=Query.Fields[10].AsInteger;
+          fld.DecimalScale:=Query.Fields[11].AsInteger;
+        end;
+        if fld.DefaultValue <> '' then begin
+          if not TestDefaultValue(fld.DefaultValue, fld.DataType) then
+            fld.DefaultValue := '';
+        end;
+        Query.Next;
+      end;
+    end
+    else begin
+      query.SQL := Format('SHOW FULL COLUMNS FROM %s FROM %s', [ATableName, aSchema]);
+      Query.Open;
+      Fields := TDAFieldCollection.Create(nil);
+      while not Query.Eof do begin
+        fld := Fields.Add;
+        fld.Name := Query.FieldByName('Field').AsString;
+        fld.InPrimaryKey := Query.FieldByName('Key').AsString = 'PRI';
+        fld.Required := Query.FieldByName('Null').AsString <> 'YES';
+        s:=Query.FieldByName('Type').AsString;
+        i := pos('(',s);
+        if i > 0 then begin
+          s1:= copy(s,1,i-1);
+          delete(s,1,i);
+          SetLength(s, Length(s)-1);
+        end
+        else begin
+          s1:=s;
+          s:='';
+        end;
+        if not Query.FieldByName('Default').IsNull then
+          fld.DefaultValue := Query.FieldByName('Default').AsString;
+        fld.DataType := MysqlDataTypeToDA(s1, useUnicode and ( sametext(Query.FieldByName('COLLATION').AsString, 'utf8') or sametext(Query.FieldByName('Extra').AsString, 'ucs2')), SameText(Query.Fields[8].AsString, 'auto_increment'), False);
+        fld.Description := Query.FieldByNAme('Comment').AsString;
+        if s <> '' then begin
+          i:= pos(',', s);
+          if i = 0 then begin
+            fld.Size:=StrToIntDef(s,0)
+          end
+          else begin
+            fld.DecimalPrecision:=StrToIntDef(copy(s,1,i-1),0);
+            fld.DecimalScale:=StrToIntDef(copy(s,i+1, length(s)),0);
+          end;
+        end;
+        Query.Next;
+      end;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure MYSQL_DoGetStoredProcedureParams(const aStoredProcedureName: string; Query: IDADataset; out Params: TDAParamCollection; aSchema: string);
+const
+  sSQL                        = 'SELECT PARAM_LIST FROM MYSQL.PROC WHERE DB = ''%s'' AND NAME = ''%s''';
+  sError                      = 'Can''t parse procedures params';
+  aValidChars                 = ['A'..'Z', 'a'..'z', '0'..'9','_'];
+var
+  par                         : TDAParam;
+  s, s1                       : string;
+  p, p1                       : pchar;
+begin
+  try
+    Query.SQL := Format(sSQL, [aSchema, aStoredProcedureName]);
+    Query.Open;
+    Params := TDAParamCollection.Create(nil);
+    if (not Query.Eof) and (not Query.Fields[0].IsNull) then begin
+      s := Query.Fields[0].AsString;
+      p := Pchar(s);
+      repeat
+        while p^ = ',' do inc(p);
+        while p^ = ' ' do inc(p);
+        if p^ = #0 then Exit;
+        par := Params.Add;
+        p1 := p;
+        while CharInSet(p1^ , aValidChars) do inc(p1);
+        if p1^ = #0 then exit;
+        SetString(s1, p, p1 - p);
+        s1 := Lowercase(s1);
+        if s1 = 'in' then par.ParamType := daptInput
+        else if s1 = 'out' then par.ParamType := daptOutput
+        else if s1 = 'inout' then par.ParamType := daptInputOutput;
+        if par.ParamType <> daptUnknown then begin
+          while p1^ = ' ' do inc(p1);
+          p := p1;
+          while CharInSet(p1^ , aValidChars) do inc(p1);
+          if p1^ = #0 then exit;
+          SetString(s1, p, p1 - p);
+        end
+        else begin
+          par.ParamType := daptInput;
+        end;
+        par.Name := s1;
+        while p1^ = ' ' do inc(p1);
+        p := p1;
+        while CharInSet(p1^, aValidChars) do inc(p1);
+        SetString(s1, p, p1 - p);
+        par.DataType := MysqlDataTypeToDA(s1, sametext(s1, 'utf8') or sametext(s1, 'ucs2'), False, pos(' unsigned',s1)>0);
+        if p1^ = #0 then exit;
+        while p1^ = ' ' do inc(p1);
+        p := p1;
+      until p^ <> ',';
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+function MYSQL_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  result := TestIdentifier(iIdentifier, mysql_reservedwords);
+end;
+
+function MYSQL_GetVersion(Query: IDADataset): cardinal;
+
+  function ExtractValue(var s:string): integer;
+  var
+    i: integer;
+  begin
+    Result := 0;
+    i := pos('.',s);
+    if i > 0 then begin
+      Result := StrToIntDef(Copy(s,1,i-1),0);
+      Delete(s,1,i);
+      exit;
+    end;
+    i := pos('-',s);
+    if i > 0 then begin
+      Result := StrToIntDef(Copy(s,1,i-1),0);
+      Delete(s,1,i);
+      exit;
+    end;
+    i:=0;
+    while CharInSet(s[i+1],['0'..'9']) do begin
+      inc(i);
+      if Length(s) >=i then break;
+    end;
+    if i > 0 then begin
+      Result := StrToIntDef(Copy(s,1,i-1),0);
+      Delete(s,1,i-1);
+    end;
+  end;
+
+var
+  s: string;
+begin
+  try
+    Query.SQL:= 'SHOW VARIABLES like "version"';
+    Query.Open;
+    if Query.EOF then
+      Result:=50000
+    else begin
+      s:= Query.Fields[1].AsString;
+      Result :=
+        ExtractValue(s)*10000 +
+        ExtractValue(s)*100 +
+        ExtractValue(s);
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+{ TDAMySQLConnection }
+
+constructor TDAMySQLConnection.Create(aDriver: TDAEDriver; aName: string);
+begin
+  inherited;
+  FMySQLVersion:=-1;
+end;
+
+procedure TDAMySQLConnection.DoApplyConnectionString(
+  aConnStrParser: TDAConnectionStringParser;
+  aConnectionObject: TCustomConnection);
+begin
+  inherited;
+  FMySQLVersion := -1;
+end;
+
+procedure TDAMySQLConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited;
+  MYSQL_DoGetForeignKeys(GetDatasetClass.Create(Self), ForeignKeys, GetTableSchema,MySQLVersion);
+end;
+
+function TDAMySQLConnection.DoGetLastAutoInc(
+  const GeneratorName: string): integer;
+begin
+  Result := DoGetLastAutoIncValue(GeneratorName);
+end;
+
+function TDAMySQLConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  Result := MySQL_GetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+end;
+
+procedure TDAMySQLConnection.DoGetStoredProcedureNames(
+  out List: IROStrings);
+begin
+  inherited;
+  MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotProcedure, GetTableSchema,MySQLVersion);
+end;
+
+procedure TDAMySQLConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  MYSQL_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params, GetTableSchema);
+end;
+
+procedure TDAMySQLConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  MYSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields, GetTableSchema,MySQLVersion, useUnicode);
+end;
+
+procedure TDAMySQLConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited;
+  MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotTable, GetTableSchema,MySQLVersion);
+end;
+
+procedure TDAMySQLConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited;
+  MYSQL_DoGetNames(GetDatasetClass.Create(Self), List, dotView, GetTableSchema,MySQLVersion);
+end;
+
+function TDAMySQLConnection.GetDatabaseNames: IROStrings;
+begin
+  Result := MYSQL_GetDatabaseNames(Self);
+end;
+
+
+function TDAMySQLConnection.GetMySQLVersion: integer;
+begin
+  if FMySQLVersion = -1 then FMySQLVersion := MYSQL_GetVersion(GetDatasetClass.Create(Self));
+  Result := FMySQLVersion;
+end;
+
+function TDAMySQLConnection.GetTableSchema: string;
+begin
+  with TDAConnectionStringParser.Create(GetConnectionString) do try
+    Result := Database;
+  finally
+    Free;
+  end;
+end;
+
+procedure MYSQL_InitializeReservedWords;
+begin
+  SetLength(mysql_reservedwords, 230);
+  // sorted with TStringList.Sort (bds2007)
+  mysql_reservedwords[0] := '_BINARY';
+  mysql_reservedwords[1] := 'ACTION';
+  mysql_reservedwords[2] := 'ADD';
+  mysql_reservedwords[3] := 'ALL';
+  mysql_reservedwords[4] := 'ALTER';
+  mysql_reservedwords[5] := 'ANALYZE';
+  mysql_reservedwords[6] := 'AND';
+  mysql_reservedwords[7] := 'AS';
+  mysql_reservedwords[8] := 'ASC';
+  mysql_reservedwords[9] := 'ASENSITIVE';
+  mysql_reservedwords[10] := 'BEFORE';
+  mysql_reservedwords[11] := 'BETWEEN';
+  mysql_reservedwords[12] := 'BIGINT';
+  mysql_reservedwords[13] := 'BINARY';
+  mysql_reservedwords[14] := 'BIT';
+  mysql_reservedwords[15] := 'BLOB';
+  mysql_reservedwords[16] := 'BOTH';
+  mysql_reservedwords[17] := 'BY';
+  mysql_reservedwords[18] := 'CALL';
+  mysql_reservedwords[19] := 'CASCADE';
+  mysql_reservedwords[20] := 'CASE';
+  mysql_reservedwords[21] := 'CHANGE';
+  mysql_reservedwords[22] := 'CHAR';
+  mysql_reservedwords[23] := 'CHARACTER';
+  mysql_reservedwords[24] := 'CHECK';
+  mysql_reservedwords[25] := 'COLLATE';
+  mysql_reservedwords[26] := 'COLUMN';
+  mysql_reservedwords[27] := 'CONDITION';
+  mysql_reservedwords[28] := 'CONSTRAINT';
+  mysql_reservedwords[29] := 'CONTINUE';
+  mysql_reservedwords[30] := 'CONVERT';
+  mysql_reservedwords[31] := 'CREATE';
+  mysql_reservedwords[32] := 'CROSS';
+  mysql_reservedwords[33] := 'CURRENT_DATE';
+  mysql_reservedwords[34] := 'CURRENT_TIME';
+  mysql_reservedwords[35] := 'CURRENT_TIMESTAMP';
+  mysql_reservedwords[36] := 'CURRENT_USER';
+  mysql_reservedwords[37] := 'CURSOR';
+  mysql_reservedwords[38] := 'DATABASE';
+  mysql_reservedwords[39] := 'DATABASES';
+  mysql_reservedwords[40] := 'DATE';
+  mysql_reservedwords[41] := 'DAY_HOUR';
+  mysql_reservedwords[42] := 'DAY_MICROSECOND';
+  mysql_reservedwords[43] := 'DAY_MINUTE';
+  mysql_reservedwords[44] := 'DAY_SECOND';
+  mysql_reservedwords[45] := 'DEC';
+  mysql_reservedwords[46] := 'DECIMAL';
+  mysql_reservedwords[47] := 'DECLARE';
+  mysql_reservedwords[48] := 'DEFAULT';
+  mysql_reservedwords[49] := 'DELAYED';
+  mysql_reservedwords[50] := 'DELETE';
+  mysql_reservedwords[51] := 'DESC';
+  mysql_reservedwords[52] := 'DESCRIBE';
+  mysql_reservedwords[53] := 'DETERMINISTIC';
+  mysql_reservedwords[54] := 'DISTINCT';
+  mysql_reservedwords[55] := 'DISTINCTROW';
+  mysql_reservedwords[56] := 'DIV';
+  mysql_reservedwords[57] := 'DOUBLE';
+  mysql_reservedwords[58] := 'DROP';
+  mysql_reservedwords[59] := 'DUAL';
+  mysql_reservedwords[60] := 'EACH';
+  mysql_reservedwords[61] := 'ELSE';
+  mysql_reservedwords[62] := 'ELSEIF';
+  mysql_reservedwords[63] := 'ENCLOSED';
+  mysql_reservedwords[64] := 'ENUM';
+  mysql_reservedwords[65] := 'ESCAPED';
+  mysql_reservedwords[66] := 'EXISTS';
+  mysql_reservedwords[67] := 'EXIT';
+  mysql_reservedwords[68] := 'EXPLAIN';
+  mysql_reservedwords[69] := 'FALSE';
+  mysql_reservedwords[70] := 'FETCH';
+  mysql_reservedwords[71] := 'FLOAT';
+  mysql_reservedwords[72] := 'FLOAT4';
+  mysql_reservedwords[73] := 'FLOAT8';
+  mysql_reservedwords[74] := 'FOR';
+  mysql_reservedwords[75] := 'FORCE';
+  mysql_reservedwords[76] := 'FOREIGN';
+  mysql_reservedwords[77] := 'FROM';
+  mysql_reservedwords[78] := 'FULLTEXT';
+  mysql_reservedwords[79] := 'GRANT';
+  mysql_reservedwords[80] := 'GROUP';
+  mysql_reservedwords[81] := 'HAVING';
+  mysql_reservedwords[82] := 'HIGH_PRIORITY';
+  mysql_reservedwords[83] := 'HOUR_MICROSECOND';
+  mysql_reservedwords[84] := 'HOUR_MINUTE';
+  mysql_reservedwords[85] := 'HOUR_SECOND';
+  mysql_reservedwords[86] := 'IF';
+  mysql_reservedwords[87] := 'IGNORE';
+  mysql_reservedwords[88] := 'IN';
+  mysql_reservedwords[89] := 'INDEX';
+  mysql_reservedwords[90] := 'INFILE';
+  mysql_reservedwords[91] := 'INNER';
+  mysql_reservedwords[92] := 'INOUT';
+  mysql_reservedwords[93] := 'INSENSITIVE';
+  mysql_reservedwords[94] := 'INSERT';
+  mysql_reservedwords[95] := 'INT';
+  mysql_reservedwords[96] := 'INT1';
+  mysql_reservedwords[97] := 'INT2';
+  mysql_reservedwords[98] := 'INT3';
+  mysql_reservedwords[99] := 'INT4';
+  mysql_reservedwords[100] := 'INT8';
+  mysql_reservedwords[101] := 'INTEGER';
+  mysql_reservedwords[102] := 'INTERVAL';
+  mysql_reservedwords[103] := 'INTO';
+  mysql_reservedwords[104] := 'IS';
+  mysql_reservedwords[105] := 'ITERATE';
+  mysql_reservedwords[106] := 'JOIN';
+  mysql_reservedwords[107] := 'KEY';
+  mysql_reservedwords[108] := 'KEYS';
+  mysql_reservedwords[109] := 'KILL';
+  mysql_reservedwords[110] := 'LEADING';
+  mysql_reservedwords[111] := 'LEAVE';
+  mysql_reservedwords[112] := 'LEFT';
+  mysql_reservedwords[113] := 'LIKE';
+  mysql_reservedwords[114] := 'LIMIT';
+  mysql_reservedwords[115] := 'LINES';
+  mysql_reservedwords[116] := 'LOAD';
+  mysql_reservedwords[117] := 'LOCALTIME';
+  mysql_reservedwords[118] := 'LOCALTIMESTAMP';
+  mysql_reservedwords[119] := 'LOCK';
+  mysql_reservedwords[120] := 'LONG';
+  mysql_reservedwords[121] := 'LONGBLOB';
+  mysql_reservedwords[122] := 'LONGTEXT';
+  mysql_reservedwords[123] := 'LOOP';
+  mysql_reservedwords[124] := 'LOW_PRIORITY';
+  mysql_reservedwords[125] := 'MATCH';
+  mysql_reservedwords[126] := 'MEDIUMBLOB';
+  mysql_reservedwords[127] := 'MEDIUMINT';
+  mysql_reservedwords[128] := 'MEDIUMTEXT';
+  mysql_reservedwords[129] := 'MIDDLEINT';
+  mysql_reservedwords[130] := 'MINUTE_MICROSECOND';
+  mysql_reservedwords[131] := 'MINUTE_SECOND';
+  mysql_reservedwords[132] := 'MOD';
+  mysql_reservedwords[133] := 'MODIFIES';
+  mysql_reservedwords[134] := 'NATURAL';
+  mysql_reservedwords[135] := 'NO';
+  mysql_reservedwords[136] := 'NO_WRITE_TO_BINLOG';
+  mysql_reservedwords[137] := 'NOT';
+  mysql_reservedwords[138] := 'NULL';
+  mysql_reservedwords[139] := 'NUMERIC';
+  mysql_reservedwords[140] := 'ON';
+  mysql_reservedwords[141] := 'OPTIMIZE';
+  mysql_reservedwords[142] := 'OPTION';
+  mysql_reservedwords[143] := 'OPTIONALLY';
+  mysql_reservedwords[144] := 'OR';
+  mysql_reservedwords[145] := 'ORDER';
+  mysql_reservedwords[146] := 'OUT';
+  mysql_reservedwords[147] := 'OUTER';
+  mysql_reservedwords[148] := 'OUTFILE';
+  mysql_reservedwords[149] := 'PRECISION';
+  mysql_reservedwords[150] := 'PRIMARY';
+  mysql_reservedwords[151] := 'PROCEDURE';
+  mysql_reservedwords[152] := 'PURGE';
+  mysql_reservedwords[153] := 'RAID0';
+  mysql_reservedwords[154] := 'READ';
+  mysql_reservedwords[155] := 'READS';
+  mysql_reservedwords[156] := 'REAL';
+  mysql_reservedwords[157] := 'REFERENCES';
+  mysql_reservedwords[158] := 'REGEXP';
+  mysql_reservedwords[159] := 'RELEASE';
+  mysql_reservedwords[160] := 'RENAME';
+  mysql_reservedwords[161] := 'REPEAT';
+  mysql_reservedwords[162] := 'REPLACE';
+  mysql_reservedwords[163] := 'REQUIRE';
+  mysql_reservedwords[164] := 'RESTRICT';
+  mysql_reservedwords[165] := 'RETURN';
+  mysql_reservedwords[166] := 'REVOKE';
+  mysql_reservedwords[167] := 'RIGHT';
+  mysql_reservedwords[168] := 'RLIKE';
+  mysql_reservedwords[169] := 'SCHEMA';
+  mysql_reservedwords[170] := 'SCHEMAS';
+  mysql_reservedwords[171] := 'SECOND_MICROSECOND';
+  mysql_reservedwords[172] := 'SELECT';
+  mysql_reservedwords[173] := 'SENSITIVE';
+  mysql_reservedwords[174] := 'SEPARATOR';
+  mysql_reservedwords[175] := 'SET';
+  mysql_reservedwords[176] := 'SHOW';
+  mysql_reservedwords[177] := 'SMALLINT';
+  mysql_reservedwords[178] := 'SONAME';
+  mysql_reservedwords[179] := 'SPATIAL';
+  mysql_reservedwords[180] := 'SPECIFIC';
+  mysql_reservedwords[181] := 'SQL';
+  mysql_reservedwords[182] := 'SQL_BIG_RESULT';
+  mysql_reservedwords[183] := 'SQL_CALC_FOUND_ROWS';
+  mysql_reservedwords[184] := 'SQL_SMALL_RESULT';
+  mysql_reservedwords[185] := 'SQLEXCEPTION';
+  mysql_reservedwords[186] := 'SQLSTATE';
+  mysql_reservedwords[187] := 'SQLWARNING';
+  mysql_reservedwords[188] := 'SSL';
+  mysql_reservedwords[189] := 'STARTING';
+  mysql_reservedwords[190] := 'STRAIGHT_JOIN';
+  mysql_reservedwords[191] := 'TABLE';
+  mysql_reservedwords[192] := 'TERMINATED';
+  mysql_reservedwords[193] := 'TEXT';
+  mysql_reservedwords[194] := 'THEN';
+  mysql_reservedwords[195] := 'TIME';
+  mysql_reservedwords[196] := 'TIMESTAMP';
+  mysql_reservedwords[197] := 'TINYBLOB';
+  mysql_reservedwords[198] := 'TINYINT';
+  mysql_reservedwords[199] := 'TINYTEXT';
+  mysql_reservedwords[200] := 'TO';
+  mysql_reservedwords[201] := 'TRAILING';
+  mysql_reservedwords[202] := 'TRIGGER';
+  mysql_reservedwords[203] := 'TRUE';
+  mysql_reservedwords[204] := 'UNDO';
+  mysql_reservedwords[205] := 'UNION';
+  mysql_reservedwords[206] := 'UNIQUE';
+  mysql_reservedwords[207] := 'UNLOCK';
+  mysql_reservedwords[208] := 'UNSIGNED';
+  mysql_reservedwords[209] := 'UPDATE';
+  mysql_reservedwords[210] := 'USAGE';
+  mysql_reservedwords[211] := 'USE';
+  mysql_reservedwords[212] := 'USING';
+  mysql_reservedwords[213] := 'UTC_DATE';
+  mysql_reservedwords[214] := 'UTC_TIME';
+  mysql_reservedwords[215] := 'UTC_TIMESTAMP';
+  mysql_reservedwords[216] := 'VALUES';
+  mysql_reservedwords[217] := 'VARBINARY';
+  mysql_reservedwords[218] := 'VARCHAR';
+  mysql_reservedwords[219] := 'VARCHARACTER';
+  mysql_reservedwords[220] := 'VARYING';
+  mysql_reservedwords[221] := 'WHEN';
+  mysql_reservedwords[222] := 'WHERE';
+  mysql_reservedwords[223] := 'WHILE';
+  mysql_reservedwords[224] := 'WITH';
+  mysql_reservedwords[225] := 'WRITE';
+  mysql_reservedwords[226] := 'X509';
+  mysql_reservedwords[227] := 'XOR';
+  mysql_reservedwords[228] := 'YEAR_MONTH';
+  mysql_reservedwords[229] := 'ZEROFILL';
+end;
+
+function TDAMySQLConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier) or MYSQL_IdentifierNeedsQuoting(iIdentifier);
+end;
+
+function TDAMySQLConnection.useUnicode: Boolean;
+begin
+  Result:=False;
+end;
+
+initialization
+  mysql_InitializeReservedWords;
+finalization
+  mysql_reservedwords := nil;
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAOracleInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAOracleInterfaces.pas
new file mode 100644
index 0000000..fc100ba
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAOracleInterfaces.pas	
@@ -0,0 +1,609 @@
+unit uDAOracleInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  uROClasses,
+  uDAInterfaces, uDAEngine;
+
+type
+  { IDAOracleConnection
+      For identification purposes Implemented by all Oracle connections }
+  IDAOracleConnection = interface(IDAConnection)
+    ['{C7C88680-12BF-402A-8843-80016429BAC1}']
+  end;
+  IOracleConnection = IDAOracleConnection;
+
+  TDAOracleLockMode = (olmNone, olmLockImmediate, olmLockDelayed);
+
+  TDAOracleOption = (opAutoClose,
+    opDefaultValues,
+    opLongStrings,
+    opQueryRecCount,
+    opCacheLobs,
+    opDeferredLobRead,
+    opKeepPrepared);
+  TDAOracleOptions = set of TDAOracleOption;
+
+  { IOracleDataset
+       Provides access to features of ODAC mostly which might or might not be mappable
+       to other drivers for Oracle. }
+  IDAOracleDataset = interface
+    ['{D555E209-0ED7-40D4-B97B-7C2044453E70}']
+    function GetLockMode: TDAOracleLockMode;
+    procedure SetLockMode(Value: TDAOracleLockMode);
+
+    function GetOptions: TDAOracleOptions;
+    procedure SetOptions(Value: TDAOracleOptions);
+
+    property LockMode: TDAOracleLockMode read GetLockMode write SetLockMode;
+    property Options: TDAOracleOptions read GetOptions write SetOptions;
+  end;
+  IOracleDataset = IDAOracleDataset;
+
+  TDAOracleDriver = class(TDAEDriver)
+  protected
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+  TDAOracleConnection = class(TDAEConnection, IDAOracleConnection, IDAUseGenerators, IDAUseGenerators2)
+  protected
+    function CreateCompatibleQuery: IDADataset; virtual;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetQuoteChars: TDAQuoteCharArray; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    function GetSPSelectSyntax(HasArguments: Boolean): String; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    function CreateMacroProcessor: TDASQLMacroProcessor; override;
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    // IDAUseGenerators
+    function GetNextAutoinc(const GeneratorName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAUseGenerators2
+    function GetNextAutoinc2(const GeneratorName: string): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+function Oracle_CreateMacroProcessor: TDASQLMacroProcessor;
+function Oracle_GetSPSelectSyntax(HasArguments: Boolean): String;
+function Oracle_DoGetLastAutoInc(const GeneratorName: string;Query: IDADataset): Variant;
+function Oracle_GetNextAutoinc(const GeneratorName: string;Query: IDADataset): Variant;
+procedure Oracle_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype);
+procedure Oracle_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+Procedure Oracle_DoGetForeignKeys(Query: IDADataset;ForeignKeys: TDADriverForeignKeyCollection);
+function Oracle_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+function Oracle_GetQuoteChars: TDAQuoteCharArray;
+procedure Oracle_DoGetStoredProcedureParams(const aStoredProcedureName: string; Query: IDADataset; out Params: TDAParamCollection);
+
+const
+  Oracle_DriverType = 'Oracle';
+
+implementation
+uses
+  uDAMacroProcessors, SysUtils;
+
+var
+  Oracle_reservedwords: array of string;
+
+function Oracle_CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  Result := TDAOracleMacroProcessor.Create;
+end;
+
+function Oracle_GetSPSelectSyntax(HasArguments: Boolean): String;
+begin
+  if HasArguments then
+    Result := 'CALL {0}({1})'
+  else
+    Result := 'CALL {0}';
+end;
+
+function Oracle_DoGetLastAutoInc(const GeneratorName: string;Query: IDADataset): Variant;
+begin
+  try
+    Query.SQL := 'SELECT ' + GeneratorName + '.Currval FROM dual';
+    Query.Open;
+    result := Query.Fields[0].Value;
+  finally
+    Query := nil;
+  end;
+end;
+
+function Oracle_GetNextAutoinc(const GeneratorName: string;Query: IDADataset): Variant;
+begin
+  try
+    Query.SQL := 'SELECT ' + GeneratorName + '.Nextval FROM dual';
+    Query.Open;
+    result := Query.Fields[0].Value;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure Oracle_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype);
+const
+  sql = 'SELECT OBJECT_NAME FROM USER_OBJECTS WHERE OBJECT_TYPE = ''%s''';
+
+  procedure _ExecSQL(aObject: string);
+  begin
+    Query.Close;
+    Query.SQL := Format(sql,[aObject]);
+    Query.Open;
+    while not Query.EOF do begin
+      AList.Add(Trim(Query.Fields[0].AsString));
+      Query.Next;
+    end;
+    Query.Close;
+  end;
+
+begin
+  AList.Clear;
+  try
+    case AObjectType of
+      dotTable: _ExecSQL('TABLE');
+      dotView:  _ExecSQL('VIEW');
+      dotProcedure: begin
+        _ExecSQL('PROCEDURE');
+        _ExecSQL('FUNCTION');
+      end;
+    else
+    end;
+  finally
+    Query := nil;
+  end;
+  AList.Sorted:=True;
+  AList.Sorted:=False;
+end;
+
+function OracleTypeToDADataType(const aTypeName: string; const aDataPrecision,aDataScale: integer):TDADataType;
+begin
+  if (aTypeName = 'VARCHAR2') or (aTypeName = 'VARCHAR') or (aTypeName = 'CHAR') then Result := datString
+  else if (aTypeName = 'NVARCHAR2') or (aTypeName = 'NCHAR') OR (aTypeName = 'NCHAR VARYING') then Result := datWideString
+  else if aTypeName = 'FLOAT' then Result := datFloat
+  else if aTypeName = 'NUMBER' then begin
+    if aDataScale <= 0 then begin
+      case aDataPrecision of
+        0: Result := datFloat;
+        1,2: Result := datShortInt;
+        3,4: Result := datSmallInt;
+        5..9: Result := datInteger;
+      else
+        Result := datLargeInt;
+      end;
+    end
+    else Result:= datDecimal;
+  end
+  else if (aTypeName = 'RAW') or (aTypeName = 'LONG RAW') OR
+          (aTypeName = 'BLOB') OR (aTypeName = 'LOB') OR
+          (aTypeName = 'BFILE') OR (aTypeName = 'CFILE') then Result:= datBlob
+  else if (aTypeName = 'DATE') OR
+          (aTypeName = 'TIME') OR (aTypeName = 'TIME WITH TIME ZONE') OR
+          (aTypeName = 'TIMESTAMP') OR (aTypeName = 'TIMESTAMP WITH TIME ZONE') OR (aTypeName = 'TIMESTAMP WITH LOCAL TIME ZONE') then Result:= datDateTime
+ { else if aTypeName = 'YEAR' then Result:= datSmallInt
+  else if (aTypeName = 'MONTH') or (aTypeName = 'DAY') or (aTypeName = 'HOUR') or (aTypeName = 'MINUTE') or (aTypeName = 'TIMEZONE_MINUTE') then Result:= datByte
+  else if (aTypeName = 'SECOND') then Result:= datFloat
+  else if (aTypeName = 'TIMEZONE_HOUR') then Result:= datShortInt }
+  else if (aTypeName = 'LONG') or (aTypeName = 'CLOB') then Result:= datMemo
+  else if (aTypeName = 'NCLOB') then Result:= datWideMemo
+  else if (aTypeName = 'ROWID') or (aTypeName = 'UROWID') then Result:= datString
+  else if (aTypeName = 'BINARY_INTEGER') OR (aTypeName = 'NATIVE INTEGER') then Result := datInteger
+//else if (aTypeName = 'REF CURSOR') then Result:= ???
+//else if (aTypeName = 'MLSLABEL') then Result:= ???
+//else if (aTypeName = 'REF') then Result:= ???
+//else if (aTypeName = 'OBJECT') then Result:= ???
+//else if (aTypeName = 'TABLE') then Result:= ???
+//else if (aTypeName = 'VARRAY') then Result:= ???
+//else if (aTypeName = 'INTERVAL YEAR TO MONTH') then Result:= ???
+//else if (aTypeName = 'INTERVAL DAY TO SECOND') then Result:= ???
+//else if (aTypeName = 'PL/SQL RECORD') then Result:= ???
+//else if (aTypeName = 'PL/SQL TABLE') then Result:= ???
+  else if aTypeName = 'PL/SQL BOOLEAN' then Result := datBoolean
+  else Result:= datUnknown;
+end;
+
+procedure Oracle_DoGetStoredProcedureParams(const aStoredProcedureName: string; Query: IDADataset; out Params: TDAParamCollection);
+const
+  sSPP_SQL = 'SELECT ARGUMENT_NAME, DATA_TYPE, IN_OUT, DATA_LENGTH, DATA_PRECISION, DATA_SCALE, PLS_TYPE '+
+          'FROM USER_ARGUMENTS '+
+          'WHERE ((IN_OUT = ''IN'' AND ARGUMENT_NAME IS NOT NULL) OR IN_OUT = ''OUT'' OR IN_OUT = ''IN/OUT'') AND OBJECT_NAME = ''%S'' '+
+          'ORDER BY POSITION';
+begin
+  Params := TDAParamCollection.Create(nil);
+  try
+    Query.SQL := Format(sSPP_SQL,[aStoredProcedureName]);
+    Query.Open;
+    while not Query.EOF do begin
+      With Params.Add do begin
+        Name := Query.Fields[0].AsString;
+        if Query.Fields[2].AsString = 'IN' then
+          ParamType := daptInput
+        else if Query.Fields[2].AsString = 'IN/OUT'
+          then ParamType := daptInputOutput
+        else if Query.Fields[2].AsString = 'OUT' then begin
+          if Name = '' then begin
+            Name:= 'RESULT';
+            ParamType := daptResult;
+          end
+          else begin
+            ParamType := daptInputOutput;
+          end;
+        end
+        else
+          ParamType := daptUnknown;
+        DataType := OracleTypeToDADataType(Query.Fields[1].AsString, Query.Fields[4].AsInteger, Query.Fields[5].AsInteger);
+        Size := Query.Fields[3].AsInteger;
+
+        if DataType = datDecimal then begin
+          DecimalPrecision := Query.Fields[4].AsInteger;
+          DecimalScale := Query.Fields[5].AsInteger;
+          if DecimalScale < 0 then DecimalScale := 0;
+        end;
+      end;
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+
+procedure Oracle_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+const                                                                                          // CHARACTER_SET_NAME, CHAR_LENGTH
+  SQL_TABLEINFO ='SELECT C.COLUMN_NAME, C.DATA_TYPE, C.DATA_LENGTH, C.DATA_PRECISION, C.DATA_SCALE, C.NULLABLE, C.DATA_LENGTH, CC.COMMENTS '+
+                 'FROM USER_TAB_COLUMNS C LEFT OUTER JOIN USER_COL_COMMENTS CC on (CC.TABLE_NAME = C.TABLE_NAME AND CC.COLUMN_NAME = C.COLUMN_NAME) '+
+                 'WHERE (C.TABLE_NAME=''%s'')';
+  SQL_PRIMARYKEY = 'SELECT ACC.COLUMN_NAME, ACC.POSITION FROM USER_CONSTRAINTS AC, USER_CONS_COLUMNS ACC '+
+                   'WHERE (AC.TABLE_NAME=''%s'') AND (ACC.TABLE_NAME = AC.TABLE_NAME) AND '+
+                   '(AC.CONSTRAINT_NAME = ACC.CONSTRAINT_NAME) AND AC.CONSTRAINT_TYPE = ''P''';
+var
+  fld: TDAField;
+  ltable: string;
+  ldt: TDADataType;
+begin
+  Fields := TDAFieldCollection.Create(nil);
+  try
+    ltable :=  aTableName;
+    ltable:= AnsiDequotedStr(ltable,'"');
+    Query.Close;
+    Query.SQL:= Format(SQL_TABLEINFO, [ltable]);
+    Query.Open;
+    While not Query.Eof do begin
+      fld := Fields.Add;
+      fld.Name:=Query.Fields[0].AsString;
+      ldt:=OracleTypeToDADataType(Query.Fields[1].AsString,Query.Fields[3].AsInteger,Query.Fields[4].AsInteger);
+      fld.DataType:=ldt;
+      If ldt = datDecimal then begin
+        fld.DecimalPrecision :=Query.Fields[3].AsInteger;
+        fld.DecimalScale :=Query.Fields[4].AsInteger;
+        if fld.DecimalScale < 0 then fld.DecimalScale := 0;
+      end;
+      fld.Required := Query.Fields[5].AsString = 'N';
+      if ldt in [datString, datWideString] then begin
+        if (Query.Fields[1].AsString = 'ROWID') or (Query.Fields[1].AsString = 'UROWID') then
+          fld.Size := 18
+        else
+          fld.Size := Query.Fields[6].AsInteger;
+      end;
+      fld.Description := Query.Fields[7].AsString;
+      Query.Next;
+    end;
+
+    // pk
+    Query.Close;
+    Query.SQL:= Format(SQL_PRIMARYKEY,[aTableName]);
+    Query.Open;
+    While not Query.Eof do begin
+      fld := Fields.FindField(Trim(Query.Fields[0].AsString));
+      if Fld <> nil then fld.InPrimaryKey := True;
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+Procedure Oracle_DoGetForeignKeys(Query: IDADataset;ForeignKeys: TDADriverForeignKeyCollection);
+var
+  lCurrConstraint: string;
+  lCurrFK: TDADriverForeignKey;
+const
+  sFK_SQL = 'SELECT AC.CONSTRAINT_NAME, AC_PK.TABLE_NAME, AC_FK.TABLE_NAME, AC_PK.COLUMN_NAME, AC_FK.COLUMN_NAME, '+
+            'AC_FK.POSITION FROM USER_CONSTRAINTS AC, USER_CONS_COLUMNS AC_PK, USER_CONS_COLUMNS AC_FK WHERE (AC.CONSTRAINT_TYPE = ''R'') AND '+
+            '((AC.CONSTRAINT_NAME = AC_PK.CONSTRAINT_NAME) ) AND ((AC.R_CONSTRAINT_NAME = AC_FK.CONSTRAINT_NAME) '+
+            ') AND (AC_FK.POSITION = AC_PK.POSITION) ORDER BY 1,2,3,6';
+begin
+  lCurrConstraint := '';
+  lCurrFK := nil;
+  try
+    Query.SQL := sFK_SQL;
+    Query.Open;
+
+    ForeignKeys.Clear;
+    while (not Query.EOF) do begin
+
+      if lCurrConstraint <> Query.Fields[0].AsString then begin
+        lCurrConstraint := Query.Fields[0].AsString;
+        lCurrFK := ForeignKeys.Add();
+        with lCurrFK do begin
+          PKTable := TrimRight(Query.Fields[1].AsString);
+          FKTable := TrimRight(Query.Fields[2].AsString);
+          PKField := TrimRight(Query.Fields[3].AsString);
+          FKField := TrimRight(Query.Fields[4].AsString);
+        end;
+      end else begin
+        with lCurrFK do begin
+          PKField := PKField + ';' + TrimRight(Query.Fields[3].AsString);
+          FKField := FKField + ';' + TrimRight(Query.Fields[4].AsString);
+        end;
+      end;
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+function Oracle_IdentifierIsQuoted(const iIdentifier: string): boolean;
+var
+  lQuoteChars: TDAQuoteCharArray;
+  lLength:integer;
+begin
+  lQuoteChars := Oracle_GetQuoteChars;
+  lLength := Length(iIdentifier);
+  result := (lLength > 2) and (iIdentifier[1] = lQuoteChars[0]) and (iIdentifier[lLength] = lQuoteChars[1]);
+end;
+
+function Oracle_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  result := false;
+  if Oracle_IdentifierIsQuoted(iIdentifier) then Exit;
+  Result:=
+     ((UpperCase(iIdentifier) <> iIdentifier) and
+      (LowerCase(iIdentifier) <> iIdentifier)) or
+     (pos('_', iIdentifier) = 1);
+
+  Result := Result or TestIdentifier(iIdentifier,Oracle_reservedwords);
+end;
+
+function Oracle_GetQuoteChars: TDAQuoteCharArray;
+begin
+  Result[0] := '"';
+  Result[1] := '"';
+end;
+
+procedure Oracle_InitializeReservedWords;
+begin
+  SetLength(Oracle_reservedwords, 109);
+  // sorted with TStringList.Sort (bds2007)
+  Oracle_reservedwords[0] := 'ACCESS';
+  Oracle_reservedwords[1] := 'ADD';
+  Oracle_reservedwords[2] := 'ALL';
+  Oracle_reservedwords[3] := 'ALTER';
+  Oracle_reservedwords[4] := 'AND';
+  Oracle_reservedwords[5] := 'ANY';
+  Oracle_reservedwords[6] := 'AS';
+  Oracle_reservedwords[7] := 'ASC';
+  Oracle_reservedwords[8] := 'AUDIT';
+  Oracle_reservedwords[9] := 'BETWEEN';
+  Oracle_reservedwords[10] := 'BY';
+  Oracle_reservedwords[11] := 'CHAR';
+  Oracle_reservedwords[12] := 'CHECK';
+  Oracle_reservedwords[13] := 'CLUSTER';
+  Oracle_reservedwords[14] := 'COLUMN';
+  Oracle_reservedwords[15] := 'COMMENT';
+  Oracle_reservedwords[16] := 'COMPRESS';
+  Oracle_reservedwords[17] := 'CONNECT';
+  Oracle_reservedwords[18] := 'CREATE';
+  Oracle_reservedwords[19] := 'CURRENT';
+  Oracle_reservedwords[20] := 'DATE';
+  Oracle_reservedwords[21] := 'DECIMAL';
+  Oracle_reservedwords[22] := 'DEFAULT';
+  Oracle_reservedwords[23] := 'DELETE';
+  Oracle_reservedwords[24] := 'DESC';
+  Oracle_reservedwords[25] := 'DISTINCT';
+  Oracle_reservedwords[26] := 'DROP';
+  Oracle_reservedwords[27] := 'ELSE';
+  Oracle_reservedwords[28] := 'EXCLUSIVE';
+  Oracle_reservedwords[29] := 'EXISTS';
+  Oracle_reservedwords[30] := 'FILE';
+  Oracle_reservedwords[31] := 'FLOAT';
+  Oracle_reservedwords[32] := 'FOR';
+  Oracle_reservedwords[33] := 'FROM';
+  Oracle_reservedwords[34] := 'GRANT';
+  Oracle_reservedwords[35] := 'GROUP';
+  Oracle_reservedwords[36] := 'HAVING';
+  Oracle_reservedwords[37] := 'IDENTIFIED';
+  Oracle_reservedwords[38] := 'IMMEDIATE';
+  Oracle_reservedwords[39] := 'IN';
+  Oracle_reservedwords[40] := 'INCREMENT';
+  Oracle_reservedwords[41] := 'INDEX';
+  Oracle_reservedwords[42] := 'INITIAL';
+  Oracle_reservedwords[43] := 'INSERT';
+  Oracle_reservedwords[44] := 'INTEGER';
+  Oracle_reservedwords[45] := 'INTERSECT';
+  Oracle_reservedwords[46] := 'INTO';
+  Oracle_reservedwords[47] := 'IS';
+  Oracle_reservedwords[48] := 'LEVEL';
+  Oracle_reservedwords[49] := 'LIKE';
+  Oracle_reservedwords[50] := 'LOCK';
+  Oracle_reservedwords[51] := 'LONG';
+  Oracle_reservedwords[52] := 'MAXEXTENTS';
+  Oracle_reservedwords[53] := 'MINUS';
+  Oracle_reservedwords[54] := 'MLSLABEL';
+  Oracle_reservedwords[55] := 'MODE';
+  Oracle_reservedwords[56] := 'MODIFY';
+  Oracle_reservedwords[57] := 'NOAUDIT';
+  Oracle_reservedwords[58] := 'NOCOMPRESS';
+  Oracle_reservedwords[59] := 'NOT';
+  Oracle_reservedwords[60] := 'NOWAIT';
+  Oracle_reservedwords[61] := 'NULL';
+  Oracle_reservedwords[62] := 'NUMBER';
+  Oracle_reservedwords[63] := 'OF';
+  Oracle_reservedwords[64] := 'OFFLINE';
+  Oracle_reservedwords[65] := 'ON';
+  Oracle_reservedwords[66] := 'ONLINE';
+  Oracle_reservedwords[67] := 'OPTION';
+  Oracle_reservedwords[68] := 'OR';
+  Oracle_reservedwords[69] := 'ORDER';
+  Oracle_reservedwords[70] := 'PCTFREE';
+  Oracle_reservedwords[71] := 'PRIOR';
+  Oracle_reservedwords[72] := 'PRIVILEGES';
+  Oracle_reservedwords[73] := 'PUBLIC';
+  Oracle_reservedwords[74] := 'RAW';
+  Oracle_reservedwords[75] := 'RENAME';
+  Oracle_reservedwords[76] := 'RESOURCE';
+  Oracle_reservedwords[77] := 'REVOKE';
+  Oracle_reservedwords[78] := 'ROW';
+  Oracle_reservedwords[79] := 'ROWID';
+  Oracle_reservedwords[80] := 'ROWNUM';
+  Oracle_reservedwords[81] := 'ROWS';
+  Oracle_reservedwords[82] := 'SELECT';
+  Oracle_reservedwords[83] := 'SESSION';
+  Oracle_reservedwords[84] := 'SET';
+  Oracle_reservedwords[85] := 'SHARE';
+  Oracle_reservedwords[86] := 'SIZE';
+  Oracle_reservedwords[87] := 'SMALLINT';
+  Oracle_reservedwords[88] := 'START';
+  Oracle_reservedwords[89] := 'SUCCESSFUL';
+  Oracle_reservedwords[90] := 'SYNONYM';
+  Oracle_reservedwords[91] := 'SYSDATE';
+  Oracle_reservedwords[92] := 'TABLE';
+  Oracle_reservedwords[93] := 'THEN';
+  Oracle_reservedwords[94] := 'TO';
+  Oracle_reservedwords[95] := 'TRIGGER';
+  Oracle_reservedwords[96] := 'UID';
+  Oracle_reservedwords[97] := 'UNION';
+  Oracle_reservedwords[98] := 'UNIQUE';
+  Oracle_reservedwords[99] := 'UPDATE';
+  Oracle_reservedwords[100] := 'USER';
+  Oracle_reservedwords[101] := 'VALIDATE';
+  Oracle_reservedwords[102] := 'VALUES';
+  Oracle_reservedwords[103] := 'VARCHAR';
+  Oracle_reservedwords[104] := 'VARCHAR2';
+  Oracle_reservedwords[105] := 'VIEW';
+  Oracle_reservedwords[106] := 'WHENEVER';
+  Oracle_reservedwords[107] := 'WHERE';
+  Oracle_reservedwords[108] := 'WITH';
+end;
+{ TDAOracleDriver }
+
+function TDAOracleDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  Result := Oracle_DriverType;
+end;
+
+{ TDAOracleConnection }
+
+function TDAOracleConnection.CreateCompatibleQuery: IDADataset;
+begin
+  Result := GetDatasetClass.Create(Self);
+end;
+
+function TDAOracleConnection.CreateMacroProcessor: TDASQLMacroProcessor;
+begin
+  result := Oracle_CreateMacroProcessor;
+end;
+
+procedure TDAOracleConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited DoGetForeignKeys(ForeignKeys);
+  Oracle_DoGetForeignKeys(CreateCompatibleQuery, ForeignKeys);
+end;
+
+function TDAOracleConnection.DoGetLastAutoInc(
+  const GeneratorName: string): integer;
+begin
+  Result := DoGetLastAutoIncValue(GeneratorName);
+end;
+
+function TDAOracleConnection.DoGetLastAutoIncValue(
+  const GeneratorName: string): Variant;
+begin
+  Result := Oracle_DoGetLastAutoInc(GeneratorName,CreateCompatibleQuery);
+end;
+
+procedure TDAOracleConnection.DoGetStoredProcedureNames(
+  out List: IROStrings);
+begin
+  inherited DoGetStoredProcedureNames(List);
+  Oracle_DoGetNames(CreateCompatibleQuery, List, dotProcedure);
+end;
+
+procedure TDAOracleConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  Oracle_DoGetStoredProcedureParams(aStoredProcedureName,CreateCompatibleQuery,Params);
+end;
+
+procedure TDAOracleConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  Oracle_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), CreateCompatibleQuery, Fields);
+end;
+
+procedure TDAOracleConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited DoGetTableNames(List);
+  Oracle_DoGetNames(CreateCompatibleQuery, List, dotTable);
+end;
+
+procedure TDAOracleConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited DoGetViewNames(List);
+  Oracle_DoGetNames(CreateCompatibleQuery, List, dotView);
+end;
+
+function TDAOracleConnection.GetNextAutoinc(
+  const GeneratorName: string): integer;
+begin
+  Result := GetNextAutoinc2(GeneratorName);
+end;
+
+function TDAOracleConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  Result := Oracle_GetNextAutoinc(GeneratorName, CreateCompatibleQuery);
+end;
+
+function TDAOracleConnection.GetQuoteChars: TDAQuoteCharArray;
+begin
+  Result := Oracle_GetQuoteChars;
+end;
+
+function TDAOracleConnection.GetSPSelectSyntax(
+  HasArguments: Boolean): String;
+begin
+  Result:= Oracle_GetSPSelectSyntax(HasArguments);
+end;
+
+function TDAOracleConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result:= inherited IdentifierNeedsQuoting(iIdentifier) or Oracle_IdentifierNeedsQuoting(iIdentifier);
+end;
+
+initialization
+  Oracle_InitializeReservedWords;
+finalization
+  Oracle_reservedwords:=nil;
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPSScriptingProvider.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPSScriptingProvider.pas
new file mode 100644
index 0000000..2e09995
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPSScriptingProvider.pas	
@@ -0,0 +1,225 @@
+unit uDAPSScriptingProvider;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes,
+  uDAScriptingProvider, uDAInterfaces, uDABusinessProcessor, uDADataTable,
+  uPSComponent, uDAPascalScript,
+  uPSComponent_DB, uPSComponent_Default,uPSUtils;
+
+type
+  TDAPSScriptingProvider = class;
+  TDAPSScript = class(TPSScript)
+  private
+    fProvider: TDAPSScriptingProvider;
+  protected
+    function  DoOnGetNotificationVariant (const Name: tbtstring): Variant; override;
+    procedure DoOnSetNotificationVariant (const Name: tbtstring; V: Variant); override;
+    procedure DoOnCompile; override;
+  end;
+  TDAPSScriptingProvider = class(TDAScriptingProvider, IDADataTableScriptingProvider, IDABusinessProcessorScriptingProvider)
+  private
+    fDataTablePlugin: TDAPSDataTableRulesPlugin;
+    fBusinessProcessor: TDABusinessProcessor;
+    fDataTable: TDADataTable;
+    fScript: TPSScript;
+    fPluginClasses: TPSImport_Classes;
+    fPluginDB: TPSImport_DB;
+    fPluginDateUtils: TPSImport_DateUtils;
+
+    procedure RunDataTableScript(aDataTable: TDADataTable; const aScript: string; const aMethod: string; aLanguage:TROSEScriptLanguage);
+    procedure RunBusinessProcessorScript(aBusinessProcessor: TDABusinessProcessor; const aScript: string; const aMethod: string; aLanguage:TROSEScriptLanguage);
+
+    procedure OnCompile(Sender: TPSScript);
+    function OnGetNotificationVariant(Sender: TPSScript; const Name: tbtstring): Variant;
+    procedure OnSetNotificationVariant(Sender: TPSScript; const Name: tbtstring; V: Variant);
+
+    //procedure OnVerifyProc(Sender: TPSScript; Proc: TPSInternalProcedure; const Decl: string; var Error: Boolean);
+
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure PrepareForDataTable(aDataTable: TDADataTable);
+    procedure PrepareForBusinessProcessor(aBusinessProcessor: TDABusinessProcessor);
+
+  published
+    property ScriptEngine: TPSScript read fScript;
+    property PluginClasses: TPSImport_Classes read fPluginClasses;
+    property PluginDB: TPSImport_DB read fPluginDB;
+    property PluginDateUtils: TPSImport_DateUtils read fPluginDateUtils;
+  end;
+
+implementation
+
+uses
+  SysUtils, uROClasses;
+
+{ TDADataTableScripter }
+
+procedure TDAPSScriptingProvider.Assign(Source: TPersistent);
+var
+  lSource: TDAPSScriptingProvider;
+begin
+  inherited;
+  if Source is TDAPSScriptingProvider then begin
+    lSource := TDAPSScriptingProvider(Source);
+
+    PluginClasses.Assign(lSource.PluginClasses);
+    PluginDateUtils.Assign(lSource.PluginDateUtils);
+    PluginDB.Assign(lSource.PluginDB);
+    ScriptEngine.Assign(lSource.ScriptEngine);
+  end;
+end;
+
+constructor TDAPSScriptingProvider.Create(AOwner: TComponent);
+begin
+  inherited;
+  fScript := TDAPSScript.Create(self);
+  TDAPSScript(fScript).fProvider := Self;
+  fScript.Name := 'ScriptEngine';
+  fScript.SetSubComponent(true);
+  //fScript.OnVerifyProc := OnVerifyProc;
+  fScript.CompilerOptions := [icAllowNoBegin, icAllowNoEnd, icBooleanShortCircuit];
+  fPluginClasses := TPSImport_Classes.Create(self);
+  fPluginClasses.Name := 'PluginClasses';
+  fPluginDB := TPSImport_DB.Create(self);
+  fPluginDB.Name := 'PluginDB';
+  fPluginDateUtils := TPSImport_DateUtils.Create(self);
+  fPluginDateUtils.Name := 'PluginDateUtils';
+  (fScript.Plugins.Add() as TPSPluginItem).Plugin := fPluginClasses;
+  (fScript.Plugins.Add() as TPSPluginItem).Plugin := fPluginDB;
+  (fScript.Plugins.Add() as TPSPluginItem).Plugin := fPluginDateUtils;
+end;
+
+destructor TDAPSScriptingProvider.Destroy;
+begin
+  FreeAndNil(fScript);
+  inherited;
+end;
+
+procedure TDAPSScriptingProvider.OnCompile(Sender: TPSScript);
+var
+  i: Integer;
+begin
+  if Assigned(fDataTable) then begin
+    for i := 0 to fDataTable.Fields.Count-1 do begin
+      fScript.AddRegisteredVariable({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fDataTable.Fields[i].Name), '!NOTIFICATIONVARIANT');
+    end; { for }
+  end;
+
+  if Assigned(fBusinessProcessor) then begin
+    //ToDo:
+  end;
+end;
+
+{procedure TDAPSScriptingProvider.OnVerifyProc(Sender: TPSScript; Proc: TPSInternalProcedure; const Decl: string; var Error: Boolean);
+begin
+  if Proc.Decl.ParamCount = 0 then
+    Proc.aExport := etExportDecl;
+end;}
+
+function TDAPSScriptingProvider.OnGetNotificationVariant(Sender: TPSScript; const Name: tbtstring): Variant;
+begin
+  result := fDataTable.Fields.FieldByName({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Name)).Value;
+end;
+
+procedure TDAPSScriptingProvider.OnSetNotificationVariant(Sender: TPSScript; const Name: tbtstring; V: Variant);
+begin
+  fDataTable.Fields.FieldByName({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Name)).Value := V;
+end;
+
+procedure TDAPSScriptingProvider.PrepareForBusinessProcessor(aBusinessProcessor: TDABusinessProcessor);
+begin
+
+end;
+
+procedure TDAPSScriptingProvider.PrepareForDataTable(aDataTable: TDADataTable);
+begin
+  fDataTable := aDataTable;
+  fBusinessProcessor := nil;
+  fScript.Defines.Text := 'DATA_ABSTRACT_SCRIPT'#13#10'DATA_ABSTRACT_SCRIPT_CLIENT';
+  if not assigned(fDataTablePlugin) then begin
+    fDataTablePlugin := TDAPSDataTableRulesPlugin.Create(self);
+    fDataTablePlugin.DataTable := aDataTable;
+    (fScript.Plugins.Add() as TPSPluginItem).Plugin := fDataTablePlugin;
+  end;
+end;
+
+
+procedure TDAPSScriptingProvider.RunBusinessProcessorScript(
+  aBusinessProcessor: TDABusinessProcessor; const aScript, aMethod: string;
+  aLanguage: TROSEScriptLanguage);
+begin
+  fDataTable := nil;
+  FreeAndNil(fDataTablePlugin);
+  fBusinessProcessor := aBusinessProcessor;
+  fScript.Defines.Text := 'DATA_ABSTRACT_SCRIPT'#13#10'DATA_ABSTRACT_SCRIPT_SERVER';
+  //(fScript.Plugins.Add() as TPSPluginItem).Plugin := TDAPSDataTableRulesPlugin.Create(self);
+end;
+
+type
+  TScriptMethod = procedure of object;
+
+procedure TDAPSScriptingProvider.RunDataTableScript(aDataTable: TDADataTable; const aScript: string; const aMethod: string; aLanguage: TROSEScriptLanguage);
+var
+  lMessages: tbtstring;
+  i: Integer;
+  lMethod: TScriptMethod;
+begin
+  if fDataTable <> aDataTable then begin
+    PrepareForDataTable(aDataTable);
+  end;
+  if aScript <> fScript.Script.Text then begin
+    fScript.Script.Text := aScript;
+    if not fScript.Compile then begin
+      lMessages := '';
+      for i := 0 to fScript.CompilerMessageCount-1 do begin
+        lMessages := lMessages+#13#10+fScript.CompilerMessages[i].MessageToString;
+      end; { for }
+      RaiseError('There were errors compiling the business rule script for %s.'#13'%s',[aDataTable.Name,lMessages], EDAScriptCompileError);
+    end;
+  end;
+
+  fDataTablePlugin.DataTable := aDataTable;
+  lMethod := TScriptMethod(fScript.GetProcMethod({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(aMethod)));
+  if assigned(@lMethod) then
+    lMethod();
+end;
+
+{ TDAPSScript }
+
+procedure TDAPSScript.DoOnCompile;
+begin
+  inherited;
+  fProvider.OnCompile(Self);
+end;
+
+function TDAPSScript.DoOnGetNotificationVariant(
+  const Name: tbtstring): Variant;
+begin
+  Result := fProvider.OnGetNotificationVariant(Self, Name);
+end;
+
+procedure TDAPSScript.DoOnSetNotificationVariant(const Name: tbtstring;
+  V: Variant);
+begin
+  fProvider.OnSetNotificationVariant(Self, Name, V);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPascalScript.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPascalScript.pas
new file mode 100644
index 0000000..4a2b905
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPascalScript.pas	
@@ -0,0 +1,1196 @@
+unit uDAPascalScript;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime, uDADataTable,
+  uDAInterfaces, db, uPSUtils;
+
+type
+  TDAPSDataTableRulesPlugin = class;
+  TDAPSDataTableRules = class(TDADataTableRules)
+  private
+    FSE: TPSScript;
+    procedure SetSE(const Value: TPSScript);
+  protected
+    procedure BeforeOpen(Sender: TDADataTable); override;
+    procedure AfterOpen(Sender: TDADataTable); override;
+    procedure BeforeClose(Sender: TDADataTable); override;
+    procedure AfterClose(Sender: TDADataTable); override;
+    procedure BeforeInsert(Sender: TDADataTable); override;
+    procedure AfterInsert(Sender: TDADataTable); override;
+    procedure BeforeEdit(Sender: TDADataTable); override;
+    procedure AfterEdit(Sender: TDADataTable); override;
+    procedure BeforePost(Sender: TDADataTable); override;
+    procedure AfterPost(Sender: TDADataTable); override;
+    procedure BeforeCancel(Sender: TDADataTable); override;
+    procedure AfterCancel(Sender: TDADataTable); override;
+    procedure BeforeDelete(Sender: TDADataTable); override;
+    procedure AfterDelete(Sender: TDADataTable); override;
+    procedure BeforeScroll(Sender: TDADataTable); override;
+    procedure AfterScroll(Sender: TDADataTable); override;
+    procedure BeforeRefresh(Sender: TDADataTable); override;
+    procedure AfterRefresh(Sender: TDADataTable); override;
+    procedure OnCalcFields(Sender: TDADataTable); override;
+    procedure OnNewRecord(Sender: TDADataTable); override;
+
+    procedure Setup(const Dataset: TDADataTable);
+    procedure ExecuteProc(Dataset: TDADataTable; const Name: tbtstring);
+  public
+    property SE: TPSScript read FSE write SetSE;
+  end;
+
+  TDAPSDataTableRulesPlugin = class(TPsPlugin)
+  private
+    fDataTable: TDADataTable;
+    fScriptEngine: TPSScript;
+    procedure SetDataTable(const Value: TDADataTable);
+  public
+    procedure CompOnUses(CompExec: TPSScript); override;
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+    property DataTable: TDADataTable read fDataTable write SetDataTable;
+  end;
+
+implementation
+
+uses
+  uDAScriptingProvider, Dialogs, uROClasses;
+//uses
+//  uDADataTable;
+
+procedure SIRegister_TDADataTable(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TComponent', 'TDADataTable') do
+  with CL.AddClassN(CL.FindClass('TComponent'), 'TDADataTable') do begin
+    RegisterProperty('Active', 'boolean', iptrw);
+    RegisterProperty('Fields', 'TDAFieldCollection', iptrw);
+    RegisterProperty('Params', 'TDAParamCollection', iptrw);
+    RegisterProperty('LogChanges', 'boolean', iptrw);
+    RegisterProperty('RemoteFetchEnabled', 'boolean', iptrw);
+    RegisterProperty('MasterFields', 'string', iptrw);
+    RegisterProperty('DetailFields', 'string', iptrw);
+    RegisterProperty('MasterRequestMappings', 'TStrings', iptrw);
+    RegisterProperty('DetailOptions', 'TDADetailOptions', iptrw);
+    RegisterProperty('MasterOptions', 'TDAMasterOptions', iptrw);
+    RegisterProperty('Filtered', 'boolean', iptrw);
+    RegisterProperty('Filter', 'string', iptrw);
+    RegisterProperty('LogicalName', 'string', iptrw);
+    RegisterProperty('BusinessRulesID', 'string', iptrw);
+    RegisterProperty('State','TDataSetState',iptR);
+  end;
+end;
+
+procedure SIRegister_TDAParamCollection(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TSearcheableInterfacedCollection', 'TDAParamCollection') do
+  with CL.AddClassN(CL.FindClass('TSearcheableInterfacedCollection'), 'TDAParamCollection') do begin
+    RegisterMethod('Constructor Create( aOwner : TPersistent)');
+    RegisterMethod('Procedure WriteValues( OutputParams : TParams)');
+    RegisterMethod('Procedure ReadValues( InputParams : TParams)');
+    RegisterMethod('Function Add : TDAParam');
+    RegisterMethod('Function ParamByName( const aName : string) : TDAParam');
+    RegisterMethod('Function FindParam( const aParamName : string) : TDAParam');
+    RegisterMethod('Procedure AssignParamCollection( Source : TDAParamCollection)');
+    RegisterProperty('Params', 'TDAParam integer', iptrw);
+    SetDefaultPropery('Params');
+    RegisterProperty('HasInputParams', 'boolean', iptr);
+  end;
+end;
+
+procedure SIRegister_TDAParam(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TDABaseField', 'TDAParam') do
+  with CL.AddClassN(CL.FindClass('TDABaseField'), 'TDAParam') do begin
+    RegisterMethod('Procedure SaveToStream( const aStream : IROStream)');
+    RegisterMethod('Procedure LoadFromStream( const aStream : IROStream)');
+    RegisterMethod('Procedure SaveToFile( const aFileName : string)');
+    RegisterMethod('Procedure LoadFromFile( const aFileName : string)');
+    RegisterProperty('ParamType', 'TDAParamType', iptrw);
+  end;
+end;
+
+procedure SIRegister_TDAFieldCollection(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TDACustomFieldCollection', 'TDAFieldCollection') do
+  with CL.AddClassN(CL.FindClass('TDACustomFieldCollection'), 'TDAFieldCollection') do begin
+    RegisterMethod('Constructor Create( aOwner : TPersistent)');
+    RegisterMethod('Function FieldByName( const aName : string) : TDAField');
+    RegisterMethod('Function FindField( const aName : string) : TDAField');
+    RegisterProperty('Fields', 'TDAField integer', iptrw);
+    SetDefaultPropery('Fields');
+  end;
+end;
+
+procedure SIRegister_TDACustomFieldCollection(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TSearcheableInterfacedCollection', 'TDACustomFieldCollection') do
+  with CL.AddClassN(CL.FindClass('TSearcheableInterfacedCollection'), 'TDACustomFieldCollection') do begin
+    RegisterMethod('Procedure Bind( aDataset : TDataset)');
+    RegisterMethod('Procedure Unbind');
+    RegisterProperty('FieldEventsDisabled', 'boolean', iptrw);
+    RegisterMethod('Procedure AssignFieldCollection( Source : TDACustomFieldCollection)');
+    RegisterMethod('Function FieldByName( const aName : string) : TDACustomField');
+    RegisterMethod('Function FindField( const aName : string) : TDACustomField');
+    RegisterMethod('Procedure MoveItem( iFromIndex, iToIndex : integer)');
+    RegisterProperty('DataDictionary', 'IDADataDictionary', iptrw);
+    RegisterProperty('Fields', 'TDACustomField integer', iptrw);
+    SetDefaultPropery('Fields');
+  end;
+end;
+
+procedure SIRegister_TDADataDictionaryField(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TDACustomField', 'TDADataDictionaryField') do
+  with CL.AddClassN(CL.FindClass('TDACustomField'), 'TDADataDictionaryField') do begin
+  end;
+end;
+
+procedure SIRegister_TDAField(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TDACustomField', 'TDAField') do
+  with CL.AddClassN(CL.FindClass('TDACustomField'), 'TDAField') do begin
+  end;
+end;
+
+procedure SIRegister_TDACustomField(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TDABaseField', 'TDACustomField') do
+  with CL.AddClassN(CL.FindClass('TDABaseField'), 'TDACustomField') do begin
+    RegisterMethod('Procedure Bind( aField : TField)');
+    RegisterMethod('Procedure Unbind');
+    RegisterMethod('Procedure SaveToStream( const aStream : IROStream)');
+    RegisterMethod('Procedure LoadFromStream( const aStream : IROStream)');
+    RegisterMethod('Procedure SaveToFile( const aFileName : string)');
+    RegisterMethod('Procedure LoadFromFile( const aFileName : string)');
+    RegisterProperty('FieldCollection', 'TDACustomFieldCollection', iptr);
+    RegisterProperty('TableField', 'string', iptrw);
+    RegisterProperty('IsNull', 'boolean', iptr);
+    RegisterProperty('InPrimaryKey', 'boolean', iptrw);
+    RegisterProperty('Calculated', 'boolean', iptrw);
+    RegisterProperty('Lookup', 'boolean', iptrw);
+    RegisterProperty('LookupSource', 'TDataSource', iptrw);
+    RegisterProperty('LookupKeyFields', 'string', iptrw);
+    RegisterProperty('LookupResultField', 'string', iptrw);
+    RegisterProperty('KeyFields', 'string', iptrw);
+    RegisterProperty('LookupCache', 'boolean', iptrw);
+    RegisterProperty('LogChanges', 'boolean', iptrw);
+    RegisterProperty('RegExpression', 'string', iptrw);
+    RegisterProperty('DefaultValue', 'string', iptrw);
+    RegisterProperty('Required', 'boolean', iptrw);
+    RegisterProperty('DisplayWidth', 'integer', iptrw);
+    RegisterProperty('DisplayLabel', 'string', iptrw);
+    RegisterProperty('EditMask', 'string', iptrw);
+    RegisterProperty('Visible', 'boolean', iptrw);
+    RegisterProperty('ReadOnly', 'boolean', iptrw);
+    RegisterProperty('CustomAttributes', 'TStrings', iptrw);
+    RegisterProperty('DisplayFormat', 'string', iptrw);
+    RegisterProperty('BusinessRulesID', 'string', iptrw);
+    RegisterProperty('EditFormat', 'string', iptrw);
+    RegisterProperty('Alignment', 'TAlignment', iptrw);
+  end;
+end;
+
+procedure SIRegister_TDABaseField(CL: TIFPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TCollectionItem', 'TDABaseField') do
+  with CL.AddClassN(CL.FindClass('TCollectionItem'), 'TDABaseField') do begin
+    RegisterProperty('Value', 'Variant', iptrw);
+    RegisterMethod('Procedure AssignField( Source : TDABaseField)');
+    RegisterMethod('Function HasValidDictionaryField : Boolean');
+    RegisterProperty('AsBoolean', 'boolean', iptrw);
+    RegisterProperty('AsCurrency', 'currency', iptrw);
+    RegisterProperty('AsDateTime', 'TDateTime', iptrw);
+    RegisterProperty('AsFloat', 'double', iptrw);
+    RegisterProperty('AsInteger', 'integer', iptrw);
+    RegisterProperty('AsString', 'string', iptrw);
+    RegisterProperty('AsVariant', 'variant', iptrw);
+    RegisterProperty('DictionaryEntry', 'string', iptrw);
+    RegisterProperty('Name', 'string', iptrw);
+    RegisterProperty('DataType', 'TDADataType', iptrw);
+    RegisterProperty('Size', 'integer', iptrw);
+    RegisterProperty('Description', 'string', iptrw);
+    RegisterProperty('BlobType', 'TDABlobType', iptrw);
+  end;
+end;
+
+procedure SIRegister_uDA(CL: TIFPSPascalCompiler);
+begin
+  CL.AddTypeS('TDAPersistFormat', '( pfBinary, pfXML )');
+  CL.AddTypeS('TDAParamType', '( daptUnknown, daptInput, daptOutput, daptInputO'
+    + 'utput, daptResult )');
+  CL.AddTypeS('TDADataType', '( datUnknown, datString, datDateTime, datFloat, d'
+    + 'atCurrency, datAutoInc, datInteger, datLargeInt, datBoolean, datMemo, datB'
+    + 'lob, datWideString, datWideMemo, datLargeAutoInc, datByte, datShortInt, '
+    +  'datWord, datSmallInt, datCardinal, datLargeUInt, datGuid, datXml, datDecimal, datSingleFloat )');
+  CL.AddTypeS('TDABlobType', '( dabtUnknown, dabtBlob, dabtMemo, dabtOraBlob, d'
+    + 'abtOraClob, dabtGraphic,dabtTypedBinary)');
+  SIRegister_TDABaseField(CL);
+  CL.AddClassN(CL.FindClass('TOBJECT'), 'TDACustomFieldCollection');
+  SIRegister_TDACustomField(CL);
+  SIRegister_TDAField(CL);
+  SIRegister_TDADataDictionaryField(CL);
+  SIRegister_TDACustomFieldCollection(CL);
+  SIRegister_TDAFieldCollection(CL);
+  SIRegister_TDAParam(CL);
+  SIRegister_TDAParamCollection(CL);
+  SIRegister_TDADataTable(CL);
+end;
+
+(* === run-time registration functions === *)
+
+procedure TDADataTableBusinessRulesID_W(Self: TDADataTable; const T: string);
+begin
+  Self.BusinessRulesID := T;
+end;
+
+procedure TDADataTableBusinessRulesID_R(Self: TDADataTable; var T: string);
+begin
+  T := Self.BusinessRulesID;
+end;
+
+procedure TDADataTableLogicalName_W(Self: TDADataTable; const T: string);
+begin
+  Self.LogicalName := T;
+end;
+
+procedure TDADataTableLogicalName_R(Self: TDADataTable; var T: string);
+begin
+  T := Self.LogicalName;
+end;
+
+procedure TDADataTableFilter_W(Self: TDADataTable; const T: string);
+begin
+  Self.Filter := T;
+end;
+
+procedure TDADataTableFilter_R(Self: TDADataTable; var T: string);
+begin
+  T := Self.Filter;
+end;
+
+procedure TDADataTableFiltered_W(Self: TDADataTable; const T: boolean);
+begin
+  Self.Filtered := T;
+end;
+
+procedure TDADataTableFiltered_R(Self: TDADataTable; var T: boolean);
+begin
+  T := Self.Filtered;
+end;
+
+procedure TDADataTableMasterOptions_W(Self: TDADataTable; const T: TDAMasterOptions);
+begin
+  Self.MasterOptions := T;
+end;
+
+procedure TDADataTableMasterOptions_R(Self: TDADataTable; var T: TDAMasterOptions);
+begin
+  T := Self.MasterOptions;
+end;
+
+procedure TDADataTableDetailOptions_W(Self: TDADataTable; const T: TDADetailOptions);
+begin
+  Self.DetailOptions := T;
+end;
+
+procedure TDADataTableDetailOptions_R(Self: TDADataTable; var T: TDADetailOptions);
+begin
+  T := Self.DetailOptions;
+end;
+
+procedure TDADataTableMasterRequestMappings_W(Self: TDADataTable; const T: TStrings);
+begin
+  Self.MasterRequestMappings := T;
+end;
+
+procedure TDADataTableMasterRequestMappings_R(Self: TDADataTable; var T: TStrings);
+begin
+  T := Self.MasterRequestMappings;
+end;
+
+procedure TDADataTableDetailFields_W(Self: TDADataTable; const T: string);
+begin
+  Self.DetailFields := T;
+end;
+
+procedure TDADataTableDetailFields_R(Self: TDADataTable; var T: string);
+begin
+  T := Self.DetailFields;
+end;
+
+procedure TDADataTableMasterFields_W(Self: TDADataTable; const T: string);
+begin
+  Self.MasterFields := T;
+end;
+
+procedure TDADataTableMasterFields_R(Self: TDADataTable; var T: string);
+begin
+  T := Self.MasterFields;
+end;
+
+procedure TDADataTableRemoteFetchEnabled_W(Self: TDADataTable; const T: boolean);
+begin
+  Self.RemoteFetchEnabled := T;
+end;
+
+procedure TDADataTableRemoteFetchEnabled_R(Self: TDADataTable; var T: boolean);
+begin
+  T := Self.RemoteFetchEnabled;
+end;
+
+procedure TDADataTableLogChanges_W(Self: TDADataTable; const T: boolean);
+begin
+  Self.LogChanges := T;
+end;
+
+procedure TDADataTableLogChanges_R(Self: TDADataTable; var T: boolean);
+begin
+  T := Self.LogChanges;
+end;
+
+procedure TDADataTableParams_W(Self: TDADataTable; const T: TDAParamCollection);
+begin
+  Self.Params := T;
+end;
+
+procedure TDADataTableParams_R(Self: TDADataTable; var T: TDAParamCollection);
+begin
+  T := Self.Params;
+end;
+
+procedure TDADataTableFields_W(Self: TDADataTable; const T: TDAFieldCollection);
+begin
+  Self.Fields := T;
+end;
+
+procedure TDADataTableFields_R(Self: TDADataTable; var T: TDAFieldCollection);
+begin
+  T := Self.Fields;
+end;
+
+procedure TDADataTableActive_W(Self: TDADataTable; const T: boolean);
+begin
+  Self.Active := T;
+end;
+
+procedure TDADataTableActive_R(Self: TDADataTable; var T: boolean);
+begin
+  T := Self.Active;
+end;
+
+procedure TDAParamCollectionHasInputParams_R(Self: TDAParamCollection; var T: boolean);
+begin
+  T := Self.HasInputParams;
+end;
+
+procedure TDAParamCollectionParams_W(Self: TDAParamCollection; const T: TDAParam; const t1: integer);
+begin
+  Self.Params[t1] := T;
+end;
+
+procedure TDAParamCollectionParams_R(Self: TDAParamCollection; var T: TDAParam; const t1: integer);
+begin
+  T := Self.Params[t1];
+end;
+
+procedure TDAParamParamType_W(Self: TDAParam; const T: TDAParamType);
+begin
+  Self.ParamType := T;
+end;
+
+procedure TDAParamParamType_R(Self: TDAParam; var T: TDAParamType);
+begin
+  T := Self.ParamType;
+end;
+
+procedure TDAFieldCollectionFields_W(Self: TDAFieldCollection; const T: TDAField; const t1: integer);
+begin
+  Self.Fields[t1] := T;
+end;
+
+procedure TDAFieldCollectionFields_R(Self: TDAFieldCollection; var T: TDAField; const t1: integer);
+begin
+  T := Self.Fields[t1];
+end;
+
+procedure TDACustomFieldCollectionFields_W(Self: TDACustomFieldCollection; const T: TDACustomField; const t1: integer);
+begin
+  Self.Fields[t1] := T;
+end;
+
+procedure TDACustomFieldCollectionFields_R(Self: TDACustomFieldCollection; var T: TDACustomField; const t1: integer);
+begin
+  T := Self.Fields[t1];
+end;
+
+procedure TDACustomFieldCollectionDataDictionary_W(Self: TDACustomFieldCollection; const T: IDADataDictionary);
+begin
+  Self.DataDictionary := T;
+end;
+
+procedure TDACustomFieldCollectionDataDictionary_R(Self: TDACustomFieldCollection; var T: IDADataDictionary);
+begin
+  T := Self.DataDictionary;
+end;
+
+procedure TDACustomFieldCollectionFieldEventsDisabled_W(Self: TDACustomFieldCollection; const T: boolean);
+begin
+  Self.FieldEventsDisabled := T;
+end;
+
+procedure TDACustomFieldCollectionFieldEventsDisabled_R(Self: TDACustomFieldCollection; var T: boolean);
+begin
+  T := Self.FieldEventsDisabled;
+end;
+
+procedure TDACustomFieldAlignment_W(Self: TDACustomField; const T: TAlignment);
+begin
+  Self.Alignment := T;
+end;
+
+procedure TDACustomFieldAlignment_R(Self: TDACustomField; var T: TAlignment);
+begin
+  T := Self.Alignment;
+end;
+
+procedure TDACustomFieldEditFormat_W(Self: TDACustomField; const T: string);
+begin
+  Self.EditFormat := T;
+end;
+
+procedure TDACustomFieldEditFormat_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.EditFormat;
+end;
+
+procedure TDACustomFieldBusinessRulesID_W(Self: TDACustomField; const T: string);
+begin
+  Self.BusinessClassID := T;
+end;
+
+procedure TDACustomFieldBusinessRulesID_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.BusinessClassID;
+end;
+
+procedure TDACustomFieldDisplayFormat_W(Self: TDACustomField; const T: string);
+begin
+  Self.DisplayFormat := T;
+end;
+
+procedure TDACustomFieldDisplayFormat_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.DisplayFormat;
+end;
+
+procedure TDACustomFieldCustomAttributes_W(Self: TDACustomField; const T: TStrings);
+begin
+  Self.CustomAttributes := T;
+end;
+
+procedure TDACustomFieldCustomAttributes_R(Self: TDACustomField; var T: TStrings);
+begin
+  T := Self.CustomAttributes;
+end;
+
+procedure TDACustomFieldReadOnly_W(Self: TDACustomField; const T: boolean);
+begin
+  Self.ReadOnly := T;
+end;
+
+procedure TDACustomFieldReadOnly_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.ReadOnly;
+end;
+
+procedure TDACustomFieldVisible_W(Self: TDACustomField; const T: boolean);
+begin
+  Self.Visible := T;
+end;
+
+procedure TDACustomFieldVisible_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.Visible;
+end;
+
+procedure TDACustomFieldEditMask_W(Self: TDACustomField; const T: string);
+begin
+  Self.EditMask := T;
+end;
+
+procedure TDACustomFieldEditMask_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.EditMask;
+end;
+
+procedure TDACustomFieldDisplayLabel_W(Self: TDACustomField; const T: string);
+begin
+  Self.DisplayLabel := T;
+end;
+
+procedure TDACustomFieldDisplayLabel_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.DisplayLabel;
+end;
+
+procedure TDACustomFieldDisplayWidth_W(Self: TDACustomField; const T: integer);
+begin
+  Self.DisplayWidth := T;
+end;
+
+procedure TDACustomFieldDisplayWidth_R(Self: TDACustomField; var T: integer);
+begin
+  T := Self.DisplayWidth;
+end;
+
+procedure TDACustomFieldRequired_W(Self: TDACustomField; const T: boolean);
+begin
+  Self.Required := T;
+end;
+
+procedure TDACustomFieldRequired_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.Required;
+end;
+
+procedure TDACustomFieldDefaultValue_W(Self: TDACustomField; const T: string);
+begin
+  Self.DefaultValue := T;
+end;
+
+procedure TDACustomFieldDefaultValue_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.DefaultValue;
+end;
+
+procedure TDACustomFieldRegExpression_W(Self: TDACustomField; const T: string);
+begin
+  Self.RegExpression := T;
+end;
+
+procedure TDACustomFieldRegExpression_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.RegExpression;
+end;
+
+procedure TDACustomFieldLogChanges_W(Self: TDACustomField; const T: boolean);
+begin
+  Self.LogChanges := T;
+end;
+
+procedure TDACustomFieldLogChanges_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.LogChanges;
+end;
+
+procedure TDACustomFieldLookupCache_W(Self: TDACustomField; const T: boolean);
+begin
+  Self.LookupCache := T;
+end;
+
+procedure TDACustomFieldLookupCache_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.LookupCache;
+end;
+
+procedure TDACustomFieldKeyFields_W(Self: TDACustomField; const T: string);
+begin
+  Self.KeyFields := T;
+end;
+
+procedure TDACustomFieldKeyFields_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.KeyFields;
+end;
+
+procedure TDACustomFieldLookupResultField_W(Self: TDACustomField; const T: string);
+begin
+  Self.LookupResultField := T;
+end;
+
+procedure TDACustomFieldLookupResultField_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.LookupResultField;
+end;
+
+procedure TDACustomFieldLookupKeyFields_W(Self: TDACustomField; const T: string);
+begin
+  Self.LookupKeyFields := T;
+end;
+
+procedure TDACustomFieldLookupKeyFields_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.LookupKeyFields;
+end;
+
+procedure TDACustomFieldLookupSource_W(Self: TDACustomField; const T: TDataSource);
+begin
+  Self.LookupSource := T;
+end;
+
+procedure TDACustomFieldLookupSource_R(Self: TDACustomField; var T: TDataSource);
+begin
+  T := Self.LookupSource;
+end;
+
+procedure TDACustomFieldLookup_W(Self: TDACustomField; const T: boolean);
+begin
+  Self.Lookup := T;
+end;
+
+procedure TDACustomFieldLookup_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.Lookup;
+end;
+
+procedure TDACustomFieldCalculated_W(Self: TDACustomField; const T: boolean);
+begin
+  Self.Calculated := T;
+end;
+
+procedure TDACustomFieldCalculated_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.Calculated;
+end;
+
+procedure TDACustomFieldInPrimaryKey_W(Self: TDACustomField; const T: boolean);
+begin
+  Self.InPrimaryKey := T;
+end;
+
+procedure TDACustomFieldInPrimaryKey_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.InPrimaryKey;
+end;
+
+procedure TDACustomFieldIsNull_R(Self: TDACustomField; var T: boolean);
+begin
+  T := Self.IsNull;
+end;
+
+procedure TDACustomFieldTableField_W(Self: TDACustomField; const T: string);
+begin
+  Self.TableField := T;
+end;
+
+procedure TDACustomFieldTableField_R(Self: TDACustomField; var T: string);
+begin
+  T := Self.TableField;
+end;
+
+procedure TDACustomFieldFieldCollection_R(Self: TDACustomField; var T: TDACustomFieldCollection);
+begin
+  T := Self.FieldCollection;
+end;
+
+procedure TDABaseFieldBlobType_W(Self: TDABaseField; const T: TDABlobType);
+begin
+  Self.BlobType := T;
+end;
+
+procedure TDABaseFieldBlobType_R(Self: TDABaseField; var T: TDABlobType);
+begin
+  T := Self.BlobType;
+end;
+
+procedure TDABaseFieldDescription_W(Self: TDABaseField; const T: string);
+begin
+  Self.Description := T;
+end;
+
+procedure TDABaseFieldDescription_R(Self: TDABaseField; var T: string);
+begin
+  T := Self.Description;
+end;
+
+procedure TDABaseFieldSize_W(Self: TDABaseField; const T: integer);
+begin
+  Self.Size := T;
+end;
+
+procedure TDABaseFieldSize_R(Self: TDABaseField; var T: integer);
+begin
+  T := Self.Size;
+end;
+
+procedure TDABaseFieldDataType_W(Self: TDABaseField; const T: TDADataType);
+begin
+  Self.DataType := T;
+end;
+
+procedure TDABaseFieldDataType_R(Self: TDABaseField; var T: TDADataType);
+begin
+  T := Self.DataType;
+end;
+
+procedure TDABaseFieldName_W(Self: TDABaseField; const T: string);
+begin
+  Self.Name := T;
+end;
+
+procedure TDABaseFieldName_R(Self: TDABaseField; var T: string);
+begin
+  T := Self.Name;
+end;
+
+procedure TDABaseFieldDictionaryEntry_W(Self: TDABaseField; const T: string);
+begin
+  Self.DictionaryEntry := T;
+end;
+
+procedure TDABaseFieldDictionaryEntry_R(Self: TDABaseField; var T: string);
+begin
+  T := Self.DictionaryEntry;
+end;
+
+procedure TDABaseFieldAsVariant_W(Self: TDABaseField; const T: variant);
+begin
+  Self.AsVariant := T;
+end;
+
+procedure TDABaseFieldAsVariant_R(Self: TDABaseField; var T: variant);
+begin
+  T := Self.AsVariant;
+end;
+
+procedure TDABaseFieldAsString_W(Self: TDABaseField; const T: string);
+begin
+  Self.AsString := T;
+end;
+
+procedure TDABaseFieldAsString_R(Self: TDABaseField; var T: string);
+begin
+  T := Self.AsString;
+end;
+
+procedure TDABaseFieldAsInteger_W(Self: TDABaseField; const T: integer);
+begin
+  Self.AsInteger := T;
+end;
+
+procedure TDABaseFieldAsInteger_R(Self: TDABaseField; var T: integer);
+begin
+  T := Self.AsInteger;
+end;
+
+procedure TDABaseFieldAsFloat_W(Self: TDABaseField; const T: double);
+begin
+  Self.AsFloat := T;
+end;
+
+procedure TDABaseFieldAsFloat_R(Self: TDABaseField; var T: double);
+begin
+  T := Self.AsFloat;
+end;
+
+procedure TDABaseFieldAsDateTime_W(Self: TDABaseField; const T: TDateTime);
+begin
+  Self.AsDateTime := T;
+end;
+
+procedure TDABaseFieldAsDateTime_R(Self: TDABaseField; var T: TDateTime);
+begin
+  T := Self.AsDateTime;
+end;
+
+procedure TDABaseFieldAsCurrency_W(Self: TDABaseField; const T: currency);
+begin
+  Self.AsCurrency := T;
+end;
+
+procedure TDABaseFieldAsCurrency_R(Self: TDABaseField; var T: currency);
+begin
+  T := Self.AsCurrency;
+end;
+
+procedure TDABaseFieldAsBoolean_W(Self: TDABaseField; const T: boolean);
+begin
+  Self.AsBoolean := T;
+end;
+
+procedure TDABaseFieldAsBoolean_R(Self: TDABaseField; var T: boolean);
+begin
+  T := Self.AsBoolean;
+end;
+
+procedure TDABaseFieldValue_W(Self: TDABaseField; const T: Variant);
+begin
+  Self.Value := T;
+end;
+
+procedure TDABaseFieldValue_R(Self: TDABaseField; var T: Variant);
+begin
+  T := Self.Value;
+end;
+
+procedure TDADataTableState_R(Self: TDADataTable; var T: TDataSetState);
+begin
+  T := Self.State;
+end;
+
+procedure RIRegister_TDADataTable(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDADataTable) do begin
+    RegisterPropertyHelper(@TDADataTableActive_R, @TDADataTableActive_W, 'Active');
+    RegisterPropertyHelper(@TDADataTableFields_R, @TDADataTableFields_W, 'Fields');
+    RegisterPropertyHelper(@TDADataTableParams_R, @TDADataTableParams_W, 'Params');
+    RegisterPropertyHelper(@TDADataTableLogChanges_R, @TDADataTableLogChanges_W, 'LogChanges');
+    RegisterPropertyHelper(@TDADataTableRemoteFetchEnabled_R, @TDADataTableRemoteFetchEnabled_W, 'RemoteFetchEnabled');
+    RegisterPropertyHelper(@TDADataTableMasterFields_R, @TDADataTableMasterFields_W, 'MasterFields');
+    RegisterPropertyHelper(@TDADataTableDetailFields_R, @TDADataTableDetailFields_W, 'DetailFields');
+    RegisterPropertyHelper(@TDADataTableMasterRequestMappings_R, @TDADataTableMasterRequestMappings_W, 'MasterRequestMappings');
+    RegisterPropertyHelper(@TDADataTableDetailOptions_R, @TDADataTableDetailOptions_W, 'DetailOptions');
+    RegisterPropertyHelper(@TDADataTableMasterOptions_R, @TDADataTableMasterOptions_W, 'MasterOptions');
+    RegisterPropertyHelper(@TDADataTableFiltered_R, @TDADataTableFiltered_W, 'Filtered');
+    RegisterPropertyHelper(@TDADataTableFilter_R, @TDADataTableFilter_W, 'Filter');
+    RegisterPropertyHelper(@TDADataTableLogicalName_R, @TDADataTableLogicalName_W, 'LogicalName');
+    RegisterPropertyHelper(@TDADataTableBusinessRulesID_R, @TDADataTableBusinessRulesID_W, 'BusinessRulesID');
+    RegisterPropertyHelper(@TDADataTableState_R, nil, 'State');
+  end;
+end;
+
+procedure RIRegister_TDAParamCollection(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDAParamCollection) do begin
+    RegisterConstructor(@TDAParamCollection.Create, 'Create');
+    RegisterMethod(@TDAParamCollection.WriteValues, 'WriteValues');
+    RegisterMethod(@TDAParamCollection.ReadValues, 'ReadValues');
+    RegisterMethod(@TDAParamCollection.Add, 'Add');
+    RegisterMethod(@TDAParamCollection.ParamByName, 'ParamByName');
+    RegisterMethod(@TDAParamCollection.FindParam, 'FindParam');
+    RegisterMethod(@TDAParamCollection.AssignParamCollection, 'AssignParamCollection');
+    RegisterPropertyHelper(@TDAParamCollectionParams_R, @TDAParamCollectionParams_W, 'Params');
+    RegisterPropertyHelper(@TDAParamCollectionHasInputParams_R, nil, 'HasInputParams');
+  end;
+end;
+
+procedure RIRegister_TDAParam(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDAParam) do begin
+    RegisterMethod(@TDAParam.SaveToStream, 'SaveToStream');
+    RegisterMethod(@TDAParam.LoadFromStream, 'LoadFromStream');
+    RegisterMethod(@TDAParam.SaveToFile, 'SaveToFile');
+    RegisterMethod(@TDAParam.LoadFromFile, 'LoadFromFile');
+    RegisterPropertyHelper(@TDAParamParamType_R, @TDAParamParamType_W, 'ParamType');
+  end;
+end;
+
+procedure RIRegister_TDAFieldCollection(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDAFieldCollection) do begin
+    RegisterConstructor(@TDAFieldCollection.Create, 'Create');
+    RegisterMethod(@TDAFieldCollection.FieldByName, 'FieldByName');
+    RegisterMethod(@TDAFieldCollection.FindField, 'FindField');
+    RegisterPropertyHelper(@TDAFieldCollectionFields_R, @TDAFieldCollectionFields_W, 'Fields');
+  end;
+end;
+
+procedure RIRegister_TDACustomFieldCollection(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDACustomFieldCollection) do begin
+    RegisterMethod(@TDACustomFieldCollection.Bind, 'Bind');
+    RegisterMethod(@TDACustomFieldCollection.Unbind, 'Unbind');
+    RegisterPropertyHelper(@TDACustomFieldCollectionFieldEventsDisabled_R, @TDACustomFieldCollectionFieldEventsDisabled_W, 'FieldEventsDisabled');
+    RegisterMethod(@TDACustomFieldCollection.AssignFieldCollection, 'AssignFieldCollection');
+    RegisterMethod(@TDACustomFieldCollection.FieldByName, 'FieldByName');
+    RegisterMethod(@TDACustomFieldCollection.FindField, 'FindField');
+    RegisterMethod(@TDACustomFieldCollection.MoveItem, 'MoveItem');
+    RegisterPropertyHelper(@TDACustomFieldCollectionDataDictionary_R, @TDACustomFieldCollectionDataDictionary_W, 'DataDictionary');
+    RegisterPropertyHelper(@TDACustomFieldCollectionFields_R, @TDACustomFieldCollectionFields_W, 'Fields');
+  end;
+end;
+
+procedure RIRegister_TDADataDictionaryField(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDADataDictionaryField) do begin
+  end;
+end;
+
+procedure RIRegister_TDAField(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDAField) do begin
+  end;
+end;
+
+procedure RIRegister_TDACustomField(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDACustomField) do begin
+    RegisterMethod(@TDACustomField.Bind, 'Bind');
+    RegisterMethod(@TDACustomField.Unbind, 'Unbind');
+    RegisterMethod(@TDACustomField.SaveToStream, 'SaveToStream');
+    RegisterMethod(@TDACustomField.LoadFromStream, 'LoadFromStream');
+    RegisterMethod(@TDACustomField.SaveToFile, 'SaveToFile');
+    RegisterMethod(@TDACustomField.LoadFromFile, 'LoadFromFile');
+    RegisterPropertyHelper(@TDACustomFieldFieldCollection_R, nil, 'FieldCollection');
+    RegisterPropertyHelper(@TDACustomFieldTableField_R, @TDACustomFieldTableField_W, 'TableField');
+    RegisterPropertyHelper(@TDACustomFieldIsNull_R, nil, 'IsNull');
+    RegisterPropertyHelper(@TDACustomFieldInPrimaryKey_R, @TDACustomFieldInPrimaryKey_W, 'InPrimaryKey');
+    RegisterPropertyHelper(@TDACustomFieldCalculated_R, @TDACustomFieldCalculated_W, 'Calculated');
+    RegisterPropertyHelper(@TDACustomFieldLookup_R, @TDACustomFieldLookup_W, 'Lookup');
+    RegisterPropertyHelper(@TDACustomFieldLookupSource_R, @TDACustomFieldLookupSource_W, 'LookupSource');
+    RegisterPropertyHelper(@TDACustomFieldLookupKeyFields_R, @TDACustomFieldLookupKeyFields_W, 'LookupKeyFields');
+    RegisterPropertyHelper(@TDACustomFieldLookupResultField_R, @TDACustomFieldLookupResultField_W, 'LookupResultField');
+    RegisterPropertyHelper(@TDACustomFieldKeyFields_R, @TDACustomFieldKeyFields_W, 'KeyFields');
+    RegisterPropertyHelper(@TDACustomFieldLookupCache_R, @TDACustomFieldLookupCache_W, 'LookupCache');
+    RegisterPropertyHelper(@TDACustomFieldLogChanges_R, @TDACustomFieldLogChanges_W, 'LogChanges');
+    RegisterPropertyHelper(@TDACustomFieldRegExpression_R, @TDACustomFieldRegExpression_W, 'RegExpression');
+    RegisterPropertyHelper(@TDACustomFieldDefaultValue_R, @TDACustomFieldDefaultValue_W, 'DefaultValue');
+    RegisterPropertyHelper(@TDACustomFieldRequired_R, @TDACustomFieldRequired_W, 'Required');
+    RegisterPropertyHelper(@TDACustomFieldDisplayWidth_R, @TDACustomFieldDisplayWidth_W, 'DisplayWidth');
+    RegisterPropertyHelper(@TDACustomFieldDisplayLabel_R, @TDACustomFieldDisplayLabel_W, 'DisplayLabel');
+    RegisterPropertyHelper(@TDACustomFieldEditMask_R, @TDACustomFieldEditMask_W, 'EditMask');
+    RegisterPropertyHelper(@TDACustomFieldVisible_R, @TDACustomFieldVisible_W, 'Visible');
+    RegisterPropertyHelper(@TDACustomFieldReadOnly_R, @TDACustomFieldReadOnly_W, 'ReadOnly');
+    RegisterPropertyHelper(@TDACustomFieldCustomAttributes_R, @TDACustomFieldCustomAttributes_W, 'CustomAttributes');
+    RegisterPropertyHelper(@TDACustomFieldDisplayFormat_R, @TDACustomFieldDisplayFormat_W, 'DisplayFormat');
+    RegisterPropertyHelper(@TDACustomFieldBusinessRulesID_R, @TDACustomFieldBusinessRulesID_W, 'BusinessRulesID');
+    RegisterPropertyHelper(@TDACustomFieldEditFormat_R, @TDACustomFieldEditFormat_W, 'EditFormat');
+    RegisterPropertyHelper(@TDACustomFieldAlignment_R, @TDACustomFieldAlignment_W, 'Alignment');
+  end;
+end;
+
+procedure RIRegister_TDABaseField(CL: TIFPSRuntimeClassImporter);
+begin
+  with CL.Add(TDABaseField) do begin
+    RegisterPropertyHelper(@TDABaseFieldValue_R, @TDABaseFieldValue_W, 'Value');
+    RegisterVirtualMethod(@TDABaseField.AssignField, 'AssignField');
+    RegisterMethod(@TDABaseField.HasValidDictionaryField, 'HasValidDictionaryField');
+    RegisterPropertyHelper(@TDABaseFieldAsBoolean_R, @TDABaseFieldAsBoolean_W, 'AsBoolean');
+    RegisterPropertyHelper(@TDABaseFieldAsCurrency_R, @TDABaseFieldAsCurrency_W, 'AsCurrency');
+    RegisterPropertyHelper(@TDABaseFieldAsDateTime_R, @TDABaseFieldAsDateTime_W, 'AsDateTime');
+    RegisterPropertyHelper(@TDABaseFieldAsFloat_R, @TDABaseFieldAsFloat_W, 'AsFloat');
+    RegisterPropertyHelper(@TDABaseFieldAsInteger_R, @TDABaseFieldAsInteger_W, 'AsInteger');
+    RegisterPropertyHelper(@TDABaseFieldAsString_R, @TDABaseFieldAsString_W, 'AsString');
+    RegisterPropertyHelper(@TDABaseFieldAsVariant_R, @TDABaseFieldAsVariant_W, 'AsVariant');
+    RegisterPropertyHelper(@TDABaseFieldDictionaryEntry_R, @TDABaseFieldDictionaryEntry_W, 'DictionaryEntry');
+    RegisterPropertyHelper(@TDABaseFieldName_R, @TDABaseFieldName_W, 'Name');
+    RegisterPropertyHelper(@TDABaseFieldDataType_R, @TDABaseFieldDataType_W, 'DataType');
+    RegisterPropertyHelper(@TDABaseFieldSize_R, @TDABaseFieldSize_W, 'Size');
+    RegisterPropertyHelper(@TDABaseFieldDescription_R, @TDABaseFieldDescription_W, 'Description');
+    RegisterPropertyHelper(@TDABaseFieldBlobType_R, @TDABaseFieldBlobType_W, 'BlobType');
+  end;
+end;
+
+procedure RIRegister_uDA(CL: TIFPSRuntimeClassImporter);
+begin
+  RIRegister_TDABaseField(CL);
+  RIRegister_TDACustomField(CL);
+  RIRegister_TDAField(CL);
+  RIRegister_TDADataDictionaryField(CL);
+  RIRegister_TDACustomFieldCollection(CL);
+  RIRegister_TDAFieldCollection(CL);
+  RIRegister_TDAParam(CL);
+  RIRegister_TDAParamCollection(CL);
+  RIRegister_TDADataTable(CL);
+end;
+
+{ TDAPSDataTableRulesPlugin }
+
+function PSNewGuid: string;
+begin
+  result := NewGuidAsString();
+end;
+
+procedure PSRaiseError(const aMsg: string);
+begin
+  raise EDAScriptError.Create(aMsg);
+end;
+
+procedure PSAbort;
+begin
+  Abort;
+end;
+
+procedure TDAPSDataTableRulesPlugin.CompileImport1(CompExec: TPSScript);
+begin
+  fScriptEngine := CompExec;
+  SIRegister_uDA(CompExec.Comp);
+  CompExec.AddRegisteredVariable('Table', 'TDADataTable');
+  CompExec.AddFunction(@ShowMessage,'procedure ShowMessage(const Msg: string);');
+  CompExec.AddFunction(@PSRaiseError,'procedure RaiseError(const aMsg: string);');
+  CompExec.AddFunction(@PSAbort,'procedure Abort;');
+  CompExec.AddFunction(@PSNewGuid,'function NewGuid: string;');
+end;
+
+procedure TDAPSDataTableRulesPlugin.CompOnUses(CompExec: TPSScript);
+begin
+  fScriptEngine := CompExec;
+end;
+
+procedure TDAPSDataTableRulesPlugin.ExecImport2(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+  fScriptEngine := CompExec;
+  RIRegister_uDA(ri);
+  CompExec.SetVarToInstance('Table', fDataTable);
+end;
+
+procedure TDAPSDataTableRulesPlugin.SetDataTable(
+  const Value: TDADataTable);
+begin
+  fDataTable := Value;
+  if (fScriptEngine <> nil) then
+    fScriptEngine.SetVarToInstance('Table', fDataTable);
+end;
+
+{ TDAPSDataTableRules }
+
+procedure TDAPSDataTableRules.AfterCancel(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterCancel');
+end;
+
+procedure TDAPSDataTableRules.AfterClose(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterClose');
+end;
+
+procedure TDAPSDataTableRules.AfterDelete(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterDelete');
+end;
+
+procedure TDAPSDataTableRules.AfterEdit(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterEdit');
+end;
+
+procedure TDAPSDataTableRules.AfterInsert(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterInsert');
+end;
+
+procedure TDAPSDataTableRules.AfterOpen(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterOpen');
+end;
+
+procedure TDAPSDataTableRules.AfterPost(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterPost');
+end;
+
+procedure TDAPSDataTableRules.AfterRefresh(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterRefresh');
+end;
+
+procedure TDAPSDataTableRules.AfterScroll(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'AfterScroll');
+end;
+
+procedure TDAPSDataTableRules.BeforeCancel(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforeCancel');
+end;
+
+procedure TDAPSDataTableRules.BeforeClose(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforeClose');
+end;
+
+procedure TDAPSDataTableRules.BeforeDelete(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforeDelete');
+end;
+
+procedure TDAPSDataTableRules.BeforeEdit(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforeEdit');
+end;
+
+procedure TDAPSDataTableRules.BeforeInsert(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforeInsert');
+end;
+
+procedure TDAPSDataTableRules.BeforeOpen(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforeOpen');
+end;
+
+procedure TDAPSDataTableRules.BeforePost(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforePost');
+end;
+
+procedure TDAPSDataTableRules.BeforeRefresh(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforeRefresh');
+end;
+
+procedure TDAPSDataTableRules.BeforeScroll(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'BeforeScroll');
+end;
+
+procedure TDAPSDataTableRules.ExecuteProc(Dataset: TDADataTable;
+  const Name: tbtstring);
+var
+  ProcNo: Cardinal;
+begin
+  if FSE = nil then raise Exception.Create('No script engine attached');
+  Setup(Dataset);
+  ProcNo := FSE.Exec.GetProc(Name);
+  if ProcNo <> InvalidVal then {// Nothing to do} begin
+    FSE.Exec.RunProc(nil, ProcNo);
+    FSE.Exec.RaiseCurrentException;
+  end;
+end;
+
+procedure TDAPSDataTableRules.OnCalcFields(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'OnCalcFields');
+end;
+
+procedure TDAPSDataTableRules.OnNewRecord(Sender: TDADataTable);
+begin
+  ExecuteProc(Sender, 'OnNewRecord');
+end;
+
+procedure TDAPSDataTableRules.SetSE(const Value: TPSScript);
+var
+  lPlugin: TPSPlugin;
+  i: Integer;
+begin
+  if Value = nil then begin
+    FSE := nil
+  end
+  else begin
+    // ToDo: use GetPlugin() lateron.
+    lPlugin := nil;
+    for i := 0 to Value.Plugins.Count-1 do begin
+      if Assigned(Value.Plugins.Items[i]) and ((Value.Plugins.Items[i] as TPSPluginItem).Plugin is TDAPSDataTableRulesPlugin) then
+        lPlugin := (Value.Plugins.Items[i] as TPSPluginItem).Plugin;
+    end; { for }
+    if lPlugin = nil then begin
+      FSE := nil;
+      raise Exception.Create('No TDAPSDataTableRulesPlugin plugin attached to the script engine.');
+    end;
+    FSE := Value;
+  end;
+end;
+
+procedure TDAPSDataTableRules.Setup(const Dataset: TDADataTable);
+begin
+  FSE.SetVarToInstance('Table', Dataset);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.lfm
new file mode 100644
index 0000000..c2110e2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.lfm	
@@ -0,0 +1,208 @@
+object PleaseWaitForm: TPleaseWaitForm
+  Left = 336
+  Top = 344
+  BorderIcons = []
+  BorderStyle = bsDialog
+  Caption = 'RemObjects SDK'
+  ClientHeight = 41
+  ClientWidth = 542
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  FormStyle = fsStayOnTop
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnHide = FormHide
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbl_Caption: TLabel
+    Left = 64
+    Top = 14
+    Width = 66
+    Height = 13
+    Caption = 'Please wait...'
+  end
+  object img_Logo: TImage
+    Left = 2
+    Top = 0
+    Width = 48
+    Height = 41
+    Center = True
+    Picture.Data = {
+      07544269746D617006150000424D061500000000000036000000280000003000
+      0000250000000100180000000000D0140000130B0000130B0000000000000000
+      0000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4D2D9DCCFD6D9C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4E7EAECC7D9DF95BAC686B1BEE1E9ECC8
+      D0D4C8D0D4C8D0D4CBD3D7E3E7E9CFD6D9C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D2D9DC
+      86B1BE0B4E940A3CA40B409E86B1BED6DCDFC8D0D4CBD3D7E5ECEF5893A695BA
+      C6DFE6E9CFD6D9C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4D6DCDF679DAE092CB8091FC2091EBE1B648DE1
+      E9ECD2D9DCDBE3E73A8096093B930A3F8F1B6888B3CED6D2D9DCC8D0D4C8D0D4
+      C8D0D4C8D0D4A3AAAD3234350000000D0D0D64686AC8D0D43234350000000000
+      00262728979DA0C8D0D4979DA0323435C8D0D4C8D0D464686A64686AC8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4D2D9DCD9E5E9EAEDEFCFD6D9C8D0D4D9DFE1
+      498A9E0920C6091FC2091EBD0A37A4498A9E86B1BE3A8096093798071DA5071C
+      A008329386B1BECBD3D7C8D0D4C8D0D4C8D0D4C8D0D47D8385717578C8D0D4BC
+      C4C8191A1BA3AAAD323435979DA0C8D0D4979DA0191A1BB0B7BA979DA0262728
+      C8D0D4BCC4C8191A1BBCC4C8C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D2D9DCCEDE
+      E41C688C2B7294A4C4CEEEF0F2BFD5DB2B768E0920C6091FC2091EBD091EB909
+      2FA7092EA4092EA1071DA8071DA5071CA00A3F8DBFD5DBC8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4A3AAAD191A1BA3AAAD323435979DA0C8D0
+      D4C8D0D44B4E50717578979DA00000007D838564686A585B5DC8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4CBD3D7CBDBE11C688C0B24DC0B24D80B41AB1B688B0C4D97
+      0A28C10920C6091FC2091EBD091EB9081EB5081CB1081DAD071DA8071DA5071C
+      A00B4C87D6E3E7C8D0D4C8D0D4C8D0D4D2D9DCC8D0D4BCC4C83F414300000026
+      2728717578C8D0D4323435979DA0C8D0D4C8D0D464686A64686A979DA0262728
+      0D0D0D0D0D0DB0B7BAC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D9DFE1679DAE0B3D
+      B80B20E20B20DD0A20D80A20D40A1FCF0A20CB0920C6091FC1091EBD091EB908
+      1EB5081CB0081DAC071DA8071DA4071CA00936913A8096E1E9ECD2E0E4A4C4CE
+      95BAC6DCE2E47175783F4143BCC4C8C8D0D4C8D0D4C8D0D4323435979DA0C8D0
+      D4C8D0D42627288A9092979DA0323435979DA0191A1BBCC4C8C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4E1E9EC1B64920B24DB0B20DD0A20D80A20D40A1FCF
+      0A20CB0920C6091FC1091EBD091EB9081EB5081CB0071DAC071DA8071DA4071C
+      9F071C9C09368E0C5A800A4C83093F850B5180BFD5DB8D9295191A1B64686A4B
+      4E503F4143C8D0D43234354B4E5064686A323435323435C8D0D4979DA0323435
+      C8D0D464686A323435C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D2D9DC86B1
+      BE0C41AF0B20DD0A20D80A20D30A1FCF0A20CA0920C5091FC1091EBD091EB908
+      1EB5081CB0071DAC071DA8071DA4071C9F071C9C061C97061B94061B90051B8C
+      062487498A9EE3E7E9979DA064686A717578BCC4C8C8D0D47D838564686A6468
+      6A7D8385C8D0D4C8D0D4B0B7BA7D8385C8D0D4C8D0D4717578A3AAADC8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4CBDBE10C4E9C0B20DD0A20D80A20D30A1FCF
+      0A20CA0920C5091EC1091EBD091EB9081EB5081CB0071DAC071DA8071CA4071C
+      9F071C9C061C97061B94061B90051B8C051F880C597FD6E3E7C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D6DCDFE3E7E9EEF0F2B8CFD65893
+      A60B30C80B20DD0A20D70A20D30A1FCE0A20CA0920C5091EC1091EBC091EB908
+      1EB5081CB0071DAC071DA8071CA4071C9F071C9C061C97061B94061B8F061F8B
+      0B5580A1C1CCD2D9DCC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4D2E0E42B72950C529A0C46AD0B3DB80B20E10B20DD0A20D70A20D30A1FCE
+      0A20CA0920C50A34AC0C5A85498A9E3A80960B4D8D0825A6071DA7071CA3071C
+      9F071C9B061C97061B93061B8F0B5580A1C1CCD2D9DCC8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4BFD5DB0C42B80B20F00B21EB0B21
+      E60B20E10B20DD0A20D70A20D30A1FCE0A20CA0A30B33A8096D6E3E7DCE2E4E0
+      E4E7BFD5DB1B68880721A5071CA3071C9F071C9B061C97061B93061B8F0B5181
+      E1E9ECC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D495BAC60C39C70B20F00B21EA0B20E50B20E10B20DC0A20D70A20D30A1FCE
+      0A20C90B4E94D9E5E9CBD3D7C8D0D4C8D0D4D2D9DCA4C4CE093B94071CA3071C
+      9F071C9B061C97061B93061B8F093F8582ADBCEAEDEFCFD6D9C8D0D4C8D0D4CB
+      D3D7CFD6D9C8D0D4C8D0D4E7EAEC86B1BE95BAC6BFD5DBDCE2E4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D495BAC60C529B0B31D30B21EA0B20
+      E50B20E10B20DC0A20D70A20D30A1FCE0A20C92B768EE3E7E9C8D0D4C8D0D4C8
+      D0D4C8D0D4D2E0E40B4D8A071CA3071C9E071C9B061C96061B93061B8F06248A
+      0A47812A718E95BAC6D8E0E4E0E4E7BFD5DBB0CBD4D2D9DCC8D0D4B0CBD40B4E
+      940A38A80C5A86DFE6E9C8D0D4C8D0D4D2D9DCC8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4DCE2E4CBDBE1679DAE0C5A8B0B31CB0B20E00B20DC0A20D70A20D20A1FCE
+      0A20C90C568BEAEDEFC8D0D4C8D0D4C8D0D4C8D0D4BBD2D90A448F071CA3071C
+      9E071C9B061C96061B93061B8F051B8B051A87061E830B507EB3CED6498A9E0C
+      4E9D0C5690A1C1CCF1F3F45893A6092CB8091EC00B4499BBD2D9CFD6D9EAEDEF
+      95BAC6E1E9ECCBD3D7C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D9DFE1BFD5DB0C41
+      B10B20E00B20DC0A20D60A20D20A1FCE0920C90B41A186B1BEDCE2E4C8D0D4C8
+      D0D4EAEDEF498A9E082E9C071CA3071C9E071C9B061C96061B93061B8E051B8B
+      051A87061A830B507EE0EBEE0C52970B20E10B24D50C568E0C5A880B459F091F
+      C4091EBF0A37A3498A9EA4C4CE2A72900A488C2A7290C7D9DFCBD3D7C8D0D4C8
+      D0D4C8D0D4C8D0D4CBD3D7CBDBE10C52970B20E00B20DB0A20D60A20D20A1FCD
+      0920C90924BF0C518E679DAEBFD5DBB3CED6498A9E0A4094071DA7071CA3071C
+      9E071C9B061C96061B92061B8E051B8B051A870727821B6386FFFFFF2B72940B
+      20DF0A20D90A20D40A1FCE0920C8091FC2091EBD081EB80826AC0A3F950725A2
+      071CA3093692679DAEDCE2E4C8D0D4C8D0D4C8D0D4CBD3D7E5ECEF3A7C9C0B2D
+      D10B20E00B21DB0A20D60A20D20A1FCD0920C9091FC4091EBF0A33A80B409A0A
+      40980829A5071DAA071DA6071CA3071C9E071C9A061C96061B9207288B1B6387
+      498A9E679DAEA4C4CEECF2F42B768E0B28D10A20D70A1FD20A1FCC0920C6091E
+      C0091EBB081EB6081CB0071DAB071DA6071CA10B5185BBD2D9C8D0D4C8D0D4C8
+      D0D4CBD3D7E5ECEF3A7C9D0B2DD50B20E50B20E00B21DB0A20D60A20D20A1FCD
+      0920C9091FC4091EBF091EBB091EB7081DB3081CAF071DAA071DA6071CA2071C
+      9E071C9A061C96061B920A4884C2D8DEC2D8DE4981AC1B64943A80960B3DB50B
+      20DC0A20D50A1FD0091FCA091FC4091EBF091EBA081DB4081CAF071DA9071CA5
+      07209D2B768EE7EAECC8D0D4C8D0D4C8D0D4C8D0D4BFD5DB0C4AA70B21E90B20
+      E40B20E00B21DB0A20D60A20D10A1FCD0920C8091FC3091EBF091EBB091EB708
+      1DB3081CAF071DAA071DA6071CA2071C9E071C9A061C96061B921C6C86FCFCFC
+      5893A60B29E30B20EC0B20E50B20DF0A20D90A20D40A1FCE0920C8091FC2091E
+      BD081EB8081DB2071CAD071DA8071CA3071C9D0B4C86A4C4CEC2D8DEC4D6DBD9
+      DFE1C8D0D4E3E7E9498A9E0B2DD50B20E40B28D30B35BE0A24D00A20D10A1FCD
+      0920C8091FC3091EBF091EBB081EB7081DB3081CAE071DAA071DA6071CA2071C
+      9D071C9A061C96061B92094385A4C4CE2B768E0B31D30B21EA0B20E30B20DE0A
+      20D70A1FD20A1FCC0920C60A38A80B409D0A33A5081CB1071DAB071DA6071CA1
+      071C9C072095093F88093F850C5A7FEEF0F2C8D0D4CBD3D7BBD2D90C5A8B2B72
+      945893A676A7B60C568E0A24CC0A1FCD0920C8091FC3091EBF091EBB081EB708
+      1DB3081CAE071DAA071DA6071CA2071C9D071C9A061C96061B92061F8D1B6886
+      E0EBEE3A80960B39BF0B20E10B20DC0A20D50A1FD00A1FCA0B4E94679DAEC2D8
+      DE679DAE0B4D8D071DA9071CA5071C9F071C9A061B95061B90051B8B094382BB
+      D2D9C8D0D4C8D0D4D9DFE1F1F3F4E3E7E9D9DFE1E0E4E786B1BE0B41A70A1FCD
+      0920C8091FC3091EBF091EBB081EB6081DB2081CAE071DAA071DA6071CA20832
+      93082D92061B96061B92061F8D0C5A7FCEDEE4E5ECEF0C52970B20E00A20D90A
+      20D40A1FCE0A34B2679DAEDCE2E4C8D0D4DCE2E4679DAE08329A071CA3071C9D
+      061C98061B94061B8F0731861B6387D1E1E6C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4CFD6D986B1BE0A30BB0A1FCD0920C8091FC3091EBF091EBB081EB608
+      1DB2081CAE071DAA0725A10B5187679DAE679DAE0B518308318B0B5581A4C4CE
+      DDE8EB5893A60C41B00B20DE0A20D70A1FD20A1FCC0B41A3C2D8DEC8D0D4C8D0
+      D4C8D0D4C2D8DE0A4091071CA1071C9C061C97061B92093A875893A6D2E0E4D6
+      DCDFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D6DCDF679DAE0A2CC00A1FCC
+      0920C7092CB60C5E820C518D0B4993081DB2081CAE071DAA082E9C86B1BEE0E4
+      E7DCE2E4D9E5E9679DAEA4C4CEC2D8DE1B64930B39BF0B20E10B20DC0A20D60A
+      1FD00A1FCA0A34AF679DAEE0E4E7C8D0D4E0E4E7679DAE083298071C9F071C9A
+      061B95061B900A4883BBD2D9C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4E0E4E7498A9E0B38B10A1FCC0A28BE1B688AC7D9DFEEF0F2679DAE09
+      2EA4081CAE071DA909379795BAC6C8D0D4C8D0D4C8D0D4DCE2E4D2D9DCBFD5DB
+      0C46AD0B20E50B20E00A20D90A20D40A1FCE0920C8091FC20B4996679DAEB3CE
+      D6679DAE0A488D071CA3071C9E071C99061B94061B8F093F84498A9EDFE6E9CB
+      D3D7C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D2D9DCD2E0E4679DAE0C5A87
+      0C568CCEDEE4D2D9DCC8D0D4D9E5E90B518A081CAE071DA90A488DC2D8DEC8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4DFE6E90C5A8B0C41B10B35C00A28CC0A1FD20A
+      1FCC0920C6091EC0091EBC0A33A40A3F9709329D071DA6071CA1071C9C061C97
+      061B92051B8D051A880835823A8096EAEDEFC8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4D6DCDFDFE6E9CEDEE4D2D9DCC8D0D4C8D0D4DCE2E467
+      9DAE0B51893A8096679DAED2E0E4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4D9DFE1
+      D1E1E6C2D8DE76A7B60C52930A1FD00A1FCB091FC4091EBF091EBA081DB5081C
+      AF071DAA071DA5071C9F071C9A061B96061B90051B8C051A87082C815893A6DC
+      E2E4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4EEF0F2E7EAECE3E7E9D6DCDFC8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4E7EAEC3A80960A27C409
+      20C9091FC2091EBD091EB8081DB3081CAD071DA8071CA3071C9E071C99061B94
+      0836890C5E7E0B50800C597EBBD2D9C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4BBD2D90B499C0A1FCC0920C6091EC1091EBC081EB7081CB1071D
+      AC071DA6071CA1071C9C061C9707288F2B768EDFE6E9EAEDEFD2E0E4D9DFE1C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4DCE2E4679DAE0B38B00A1FCB09
+      28BC0B49960A2FAB081DB5081CAF071DAA071DA5071C9F071C9B061B96061B90
+      3A8096E0E4E7C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4CBD3D7C7D9DF3A7C9B0B499A2B7292A4C4CE498A9E092EA5081CAE071D
+      A80B4D8A0C5A820A4887061B94061B8F0B5181DFE6E9C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4CBD3D7E1E9EC95BAC6DF
+      E6E9CBD3D7B3CED60A3F97071CAC082E9D679DAEF1F3F4A4C4CE0B55810B5182
+      5893A6D8E0E4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4D2D9DCC8D0D4C8D0D4D2E0E40C55870A40940B4D
+      8ABFD5DBC8D0D4DCE2E4B3CED6BBD2D9DCE2E4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+      D0D4C8D0D4E0E4E7BBD2D9B3CED686B1BEE7EAECC8D0D4C8D0D4D2D9DCC8D0D4
+      C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+    }
+    Transparent = True
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.lrs
new file mode 100644
index 0000000..85b8dd9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.lrs	
@@ -0,0 +1,266 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TPleaseWaitForm','FORMDATA',[
+  'TPF0'#15'TPleaseWaitForm'#14'PleaseWaitForm'#4'Left'#3'P'#1#6'Height'#2')'#3
+  +'Top'#3'X'#1#5'Width'#3#30#2#18'HorzScrollBar.Page'#3#29#2#18'VertScrollBar.'
+  +'Page'#2'('#11'BorderIcons'#11#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6
+  +#14'RemObjects SDK'#12'ClientHeight'#2')'#11'ClientWidth'#3#30#2#11'Font.Hei'
+  +'ght'#2#245#9'Font.Name'#6#6'Tahoma'#9'FormStyle'#7#11'fsStayOnTop'#6'OnHide'
+  +#7#8'FormHide'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#10'L'
+  +'CLVersion'#6#6'0.9.25'#0#6'TLabel'#11'lbl_Caption'#4'Left'#2'@'#6'Height'#2
+  +#20#3'Top'#2#14#5'Width'#2'T'#7'Caption'#6#14'Please wait...'#11'ParentColor'
+  +#8#0#0#6'TImage'#8'img_Logo'#4'Left'#2#2#6'Height'#2')'#5'Width'#2'0'#6'Cent'
+  +'er'#9#12'Picture.Data'#10#18#21#0#0#7'TBitmap'#6#21#0#0'BM'#6#21#0#0#0#0#0#0
+  +'6'#0#0#0'('#0#0#0'0'#0#0#0'%'#0#0#0#1#0#24#0#0#0#0#0#208#20#0#0#19#11#0#0#19
+  +#11#0#0#0#0#0#0#0#0#0#0#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#210#217#220#207#214#217#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#231#234#236#199#217#223#149#186#198#134
+  +#177#190#225#233#236#200#208#212#200#208#212#200#208#212#203#211#215#227#231
+  +#233#207#214#217#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#210#217
+  +#220#134#177#190#11'N'#148#10'<'#164#11'@'#158#134#177#190#214#220#223#200
+  +#208#212#203#211#215#229#236#239'X'#147#166#149#186#198#223#230#233#207#214
+  +#217#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#214#220#223'g'#157#174#9','#184#9#31#194#9
+  +#30#190#27'd'#141#225#233#236#210#217#220#219#227#231':'#128#150#9';'#147#10
+  +'?'#143#27'h'#136#179#206#214#210#217#220#200#208#212#200#208#212#200#208#212
+  +#200#208#212#163#170#173'245'#0#0#0#13#13#13'dhj'#200#208#212'245'#0#0#0#0#0
+  +#0'&''('#151#157#160#200#208#212#151#157#160'245'#200#208#212#200#208#212'dh'
+  +'jdhj'#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#210#217#220#217#229#233#234#237#239#207#214#217#200#208#212#217#223#225
+  +'I'#138#158#9' '#198#9#31#194#9#30#189#10'7'#164'I'#138#158#134#177#190':'
+  +#128#150#9'7'#152#7#29#165#7#28#160#8'2'#147#134#177#190#203#211#215#200#208
+  +#212#200#208#212#200#208#212#200#208#212'}'#131#133'qux'#200#208#212#188#196
+  +#200#25#26#27#163#170#173'245'#151#157#160#200#208#212#151#157#160#25#26#27
+  +#176#183#186#151#157#160'&''('#200#208#212#188#196#200#25#26#27#188#196#200
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#210#217#220#206
+  +#222#228#28'h'#140'+r'#148#164#196#206#238#240#242#191#213#219'+v'#142#9' '
+  +#198#9#31#194#9#30#189#9#30#185#9'/'#167#9'.'#164#9'.'#161#7#29#168#7#29#165
+  +#7#28#160#10'?'#141#191#213#219#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#163#170#173#25#26#27#163
+  +#170#173'245'#151#157#160#200#208#212#200#208#212'KNPqux'#151#157#160#0#0#0
+  +'}'#131#133'dhjX[]'#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#203#211#215#203#219#225#28'h'#140#11'$'#220#11'$'#216#11'A'#171#27'h'
+  +#139#12'M'#151#10'('#193#9' '#198#9#31#194#9#30#189#9#30#185#8#30#181#8#28
+  +#177#8#29#173#7#29#168#7#29#165#7#28#160#11'L'#135#214#227#231#200#208#212
+  +#200#208#212#200#208#212#210#217#220#200#208#212#188#196#200'?AC'#0#0#0'&''('
+  +'qux'#200#208#212'245'#151#157#160#200#208#212#200#208#212'dhjdhj'#151#157
+  +#160'&''('#13#13#13#13#13#13#176#183#186#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#217#223#225'g'#157#174#11'='#184#11' '#226#11' '#221
+  +#10' '#216#10' '#212#10#31#207#10' '#203#9' '#198#9#31#193#9#30#189#9#30#185
+  +#8#30#181#8#28#176#8#29#172#7#29#168#7#29#164#7#28#160#9'6'#145':'#128#150
+  +#225#233#236#210#224#228#164#196#206#149#186#198#220#226#228'qux?AC'#188#196
+  ,#200#200#208#212#200#208#212#200#208#212'245'#151#157#160#200#208#212#200#208
+  +#212'&''('#138#144#146#151#157#160'245'#151#157#160#25#26#27#188#196#200#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#225#233
+  +#236#27'd'#146#11'$'#219#11' '#221#10' '#216#10' '#212#10#31#207#10' '#203#9
+  +' '#198#9#31#193#9#30#189#9#30#185#8#30#181#8#28#176#7#29#172#7#29#168#7#29
+  +#164#7#28#159#7#28#156#9'6'#142#12'Z'#128#10'L'#131#9'?'#133#11'Q'#128#191
+  +#213#219#141#146#149#25#26#27'dhjKNP?AC'#200#208#212'245KNPdhj245245'#200#208
+  +#212#151#157#160'245'#200#208#212'dhj245'#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#210#217#220#134#177#190#12'A'#175#11' '
+  +#221#10' '#216#10' '#211#10#31#207#10' '#202#9' '#197#9#31#193#9#30#189#9#30
+  +#185#8#30#181#8#28#176#7#29#172#7#29#168#7#29#164#7#28#159#7#28#156#6#28#151
+  +#6#27#148#6#27#144#5#27#140#6'$'#135'I'#138#158#227#231#233#151#157#160'dhjq'
+  +'ux'#188#196#200#200#208#212'}'#131#133'dhjdhj}'#131#133#200#208#212#200#208
+  +#212#176#183#186'}'#131#133#200#208#212#200#208#212'qux'#163#170#173#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#203#219#225
+  +#12'N'#156#11' '#221#10' '#216#10' '#211#10#31#207#10' '#202#9' '#197#9#30
+  +#193#9#30#189#9#30#185#8#30#181#8#28#176#7#29#172#7#29#168#7#28#164#7#28#159
+  +#7#28#156#6#28#151#6#27#148#6#27#144#5#27#140#5#31#136#12'Y'#214#227#231#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#214
+  +#220#223#227#231#233#238#240#242#184#207#214'X'#147#166#11'0'#200#11' '#221
+  +#10' '#215#10' '#211#10#31#206#10' '#202#9' '#197#9#30#193#9#30#188#9#30#185
+  +#8#30#181#8#28#176#7#29#172#7#29#168#7#28#164#7#28#159#7#28#156#6#28#151#6#27
+  +#148#6#27#143#6#31#139#11'U'#128#161#193#204#210#217#220#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#210#224#228'+r'#149
+  +#12'R'#154#12'F'#173#11'='#184#11' '#225#11' '#221#10' '#215#10' '#211#10#31
+  +#206#10' '#202#9' '#197#10'4'#172#12'Z'#133'I'#138#158':'#128#150#11'M'#141#8
+  +'%'#166#7#29#167#7#28#163#7#28#159#7#28#155#6#28#151#6#27#147#6#27#143#11'U'
+  +#128#161#193#204#210#217#220#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#191#213#219#12'B'#184#11' '#240#11
+  +'!'#235#11'!'#230#11' '#225#11' '#221#10' '#215#10' '#211#10#31#206#10' '#202
+  +#10'0'#179':'#128#150#214#227#231#220#226#228#224#228#231#191#213#219#27'h'
+  +#136#7'!'#165#7#28#163#7#28#159#7#28#155#6#28#151#6#27#147#6#27#143#11'Q'#129
+  +#225#233#236#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#149#186#198#12'9'#199#11' '#240#11'!'
+  +#234#11' '#229#11' '#225#11' '#220#10' '#215#10' '#211#10#31#206#10' '#201#11
+  +'N'#148#217#229#233#203#211#215#200#208#212#200#208#212#210#217#220#164#196
+  +#206#9';'#148#7#28#163#7#28#159#7#28#155#6#28#151#6#27#147#6#27#143#9'?'#133
+  +#130#173#188#234#237#239#207#214#217#200#208#212#200#208#212#203#211#215#207
+  +#214#217#200#208#212#200#208#212#231#234#236#134#177#190#149#186#198#191#213
+  +#219#220#226#228#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#149#186#198#12'R'#155#11'1'#211#11'!'
+  +#234#11' '#229#11' '#225#11' '#220#10' '#215#10' '#211#10#31#206#10' '#201'+'
+  +'v'#142#227#231#233#200#208#212#200#208#212#200#208#212#200#208#212#210#224
+  +#228#11'M'#138#7#28#163#7#28#158#7#28#155#6#28#150#6#27#147#6#27#143#6'$'#138
+  +#10'G'#129'*q'#142#149#186#198#216#224#228#224#228#231#191#213#219#176#203
+  +#212#210#217#220#200#208#212#176#203#212#11'N'#148#10'8'#168#12'Z'#134#223
+  +#230#233#200#208#212#200#208#212#210#217#220#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#220#226#228#203#219#225'g'#157#174#12'Z'#139#11
+  +'1'#203#11' '#224#11' '#220#10' '#215#10' '#210#10#31#206#10' '#201#12'V'#139
+  +#234#237#239#200#208#212#200#208#212#200#208#212#200#208#212#187#210#217#10
+  +'D'#143#7#28#163#7#28#158#7#28#155#6#28#150#6#27#147#6#27#143#5#27#139#5#26
+  +#135#6#30#131#11'P~'#179#206#214'I'#138#158#12'N'#157#12'V'#144#161#193#204
+  +#241#243#244'X'#147#166#9','#184#9#30#192#11'D'#153#187#210#217#207#214#217
+  +#234#237#239#149#186#198#225#233#236#203#211#215#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#217#223#225#191#213#219#12'A'#177#11' '#224
+  +#11' '#220#10' '#214#10' '#210#10#31#206#9' '#201#11'A'#161#134#177#190#220
+  ,#226#228#200#208#212#200#208#212#234#237#239'I'#138#158#8'.'#156#7#28#163#7
+  +#28#158#7#28#155#6#28#150#6#27#147#6#27#142#5#27#139#5#26#135#6#26#131#11'P~'
+  +#224#235#238#12'R'#151#11' '#225#11'$'#213#12'V'#142#12'Z'#136#11'E'#159#9#31
+  +#196#9#30#191#10'7'#163'I'#138#158#164#196#206'*r'#144#10'H'#140'*r'#144#199
+  +#217#223#203#211#215#200#208#212#200#208#212#200#208#212#200#208#212#203#211
+  +#215#203#219#225#12'R'#151#11' '#224#11' '#219#10' '#214#10' '#210#10#31#205
+  +#9' '#201#9'$'#191#12'Q'#142'g'#157#174#191#213#219#179#206#214'I'#138#158#10
+  +'@'#148#7#29#167#7#28#163#7#28#158#7#28#155#6#28#150#6#27#146#6#27#142#5#27
+  +#139#5#26#135#7''''#130#27'c'#134#255#255#255'+r'#148#11' '#223#10' '#217#10
+  +' '#212#10#31#206#9' '#200#9#31#194#9#30#189#8#30#184#8'&'#172#10'?'#149#7'%'
+  +#162#7#28#163#9'6'#146'g'#157#174#220#226#228#200#208#212#200#208#212#200#208
+  +#212#203#211#215#229#236#239':|'#156#11'-'#209#11' '#224#11'!'#219#10' '#214
+  +#10' '#210#10#31#205#9' '#201#9#31#196#9#30#191#10'3'#168#11'@'#154#10'@'#152
+  +#8')'#165#7#29#170#7#29#166#7#28#163#7#28#158#7#28#154#6#28#150#6#27#146#7'('
+  +#139#27'c'#135'I'#138#158'g'#157#174#164#196#206#236#242#244'+v'#142#11'('
+  +#209#10' '#215#10#31#210#10#31#204#9' '#198#9#30#192#9#30#187#8#30#182#8#28
+  +#176#7#29#171#7#29#166#7#28#161#11'Q'#133#187#210#217#200#208#212#200#208#212
+  +#200#208#212#203#211#215#229#236#239':|'#157#11'-'#213#11' '#229#11' '#224#11
+  +'!'#219#10' '#214#10' '#210#10#31#205#9' '#201#9#31#196#9#30#191#9#30#187#9
+  +#30#183#8#29#179#8#28#175#7#29#170#7#29#166#7#28#162#7#28#158#7#28#154#6#28
+  +#150#6#27#146#10'H'#132#194#216#222#194#216#222'I'#129#172#27'd'#148':'#128
+  +#150#11'='#181#11' '#220#10' '#213#10#31#208#9#31#202#9#31#196#9#30#191#9#30
+  +#186#8#29#180#8#28#175#7#29#169#7#28#165#7' '#157'+v'#142#231#234#236#200#208
+  +#212#200#208#212#200#208#212#200#208#212#191#213#219#12'J'#167#11'!'#233#11
+  +' '#228#11' '#224#11'!'#219#10' '#214#10' '#209#10#31#205#9' '#200#9#31#195#9
+  +#30#191#9#30#187#9#30#183#8#29#179#8#28#175#7#29#170#7#29#166#7#28#162#7#28
+  +#158#7#28#154#6#28#150#6#27#146#28'l'#134#252#252#252'X'#147#166#11')'#227#11
+  +' '#236#11' '#229#11' '#223#10' '#217#10' '#212#10#31#206#9' '#200#9#31#194#9
+  +#30#189#8#30#184#8#29#178#7#28#173#7#29#168#7#28#163#7#28#157#11'L'#134#164
+  +#196#206#194#216#222#196#214#219#217#223#225#200#208#212#227#231#233'I'#138
+  +#158#11'-'#213#11' '#228#11'('#211#11'5'#190#10'$'#208#10' '#209#10#31#205#9
+  +' '#200#9#31#195#9#30#191#9#30#187#8#30#183#8#29#179#8#28#174#7#29#170#7#29
+  +#166#7#28#162#7#28#157#7#28#154#6#28#150#6#27#146#9'C'#133#164#196#206'+v'
+  +#142#11'1'#211#11'!'#234#11' '#227#11' '#222#10' '#215#10#31#210#10#31#204#9
+  +' '#198#10'8'#168#11'@'#157#10'3'#165#8#28#177#7#29#171#7#29#166#7#28#161#7
+  +#28#156#7' '#149#9'?'#136#9'?'#133#12'Z'#238#240#242#200#208#212#203#211#215
+  +#187#210#217#12'Z'#139'+r'#148'X'#147#166'v'#167#182#12'V'#142#10'$'#204#10
+  +#31#205#9' '#200#9#31#195#9#30#191#9#30#187#8#30#183#8#29#179#8#28#174#7#29
+  +#170#7#29#166#7#28#162#7#28#157#7#28#154#6#28#150#6#27#146#6#31#141#27'h'#134
+  +#224#235#238':'#128#150#11'9'#191#11' '#225#11' '#220#10' '#213#10#31#208#10
+  +#31#202#11'N'#148'g'#157#174#194#216#222'g'#157#174#11'M'#141#7#29#169#7#28
+  +#165#7#28#159#7#28#154#6#27#149#6#27#144#5#27#139#9'C'#130#187#210#217#200
+  +#208#212#200#208#212#217#223#225#241#243#244#227#231#233#217#223#225#224#228
+  +#231#134#177#190#11'A'#167#10#31#205#9' '#200#9#31#195#9#30#191#9#30#187#8#30
+  +#182#8#29#178#8#28#174#7#29#170#7#29#166#7#28#162#8'2'#147#8'-'#146#6#27#150
+  +#6#27#146#6#31#141#12'Z'#206#222#228#229#236#239#12'R'#151#11' '#224#10' '
+  +#217#10' '#212#10#31#206#10'4'#178'g'#157#174#220#226#228#200#208#212#220#226
+  +#228'g'#157#174#8'2'#154#7#28#163#7#28#157#6#28#152#6#27#148#6#27#143#7'1'
+  +#134#27'c'#135#209#225#230#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#207#214#217#134#177#190#10'0'#187#10#31#205#9' '#200
+  +#9#31#195#9#30#191#9#30#187#8#30#182#8#29#178#8#28#174#7#29#170#7'%'#161#11
+  +'Q'#135'g'#157#174'g'#157#174#11'Q'#131#8'1'#139#11'U'#129#164#196#206#221
+  +#232#235'X'#147#166#12'A'#176#11' '#222#10' '#215#10#31#210#10#31#204#11'A'
+  +#163#194#216#222#200#208#212#200#208#212#200#208#212#194#216#222#10'@'#145#7
+  +#28#161#7#28#156#6#28#151#6#27#146#9':'#135'X'#147#166#210#224#228#214#220
+  +#223#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#214#220#223'g'#157#174#10','#192#10#31#204#9' '#199#9','#182#12'^'#130#12'Q'
+  +#141#11'I'#147#8#29#178#8#28#174#7#29#170#8'.'#156#134#177#190#224#228#231
+  +#220#226#228#217#229#233'g'#157#174#164#196#206#194#216#222#27'd'#147#11'9'
+  +#191#11' '#225#11' '#220#10' '#214#10#31#208#10#31#202#10'4'#175'g'#157#174
+  +#224#228#231#200#208#212#224#228#231'g'#157#174#8'2'#152#7#28#159#7#28#154#6
+  +#27#149#6#27#144#10'H'#131#187#210#217#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#224#228#231'I'
+  +#138#158#11'8'#177#10#31#204#10'('#190#27'h'#138#199#217#223#238#240#242'g'
+  ,#157#174#9'.'#164#8#28#174#7#29#169#9'7'#151#149#186#198#200#208#212#200#208
+  +#212#200#208#212#220#226#228#210#217#220#191#213#219#12'F'#173#11' '#229#11
+  +' '#224#10' '#217#10' '#212#10#31#206#9' '#200#9#31#194#11'I'#150'g'#157#174
+  +#179#206#214'g'#157#174#10'H'#141#7#28#163#7#28#158#7#28#153#6#27#148#6#27
+  +#143#9'?'#132'I'#138#158#223#230#233#203#211#215#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#210#217#220#210#224#228'g'#157
+  +#174#12'Z'#135#12'V'#140#206#222#228#210#217#220#200#208#212#217#229#233#11
+  +'Q'#138#8#28#174#7#29#169#10'H'#141#194#216#222#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#223#230#233#12'Z'#139#12'A'#177#11'5'#192#10
+  +'('#204#10#31#210#10#31#204#9' '#198#9#30#192#9#30#188#10'3'#164#10'?'#151#9
+  +'2'#157#7#29#166#7#28#161#7#28#156#6#28#151#6#27#146#5#27#141#5#26#136#8'5'
+  +#130':'#128#150#234#237#239#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#214#220#223#223#230#233#206
+  +#222#228#210#217#220#200#208#212#200#208#212#220#226#228'g'#157#174#11'Q'#137
+  +':'#128#150'g'#157#174#210#224#228#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#217#223#225#209#225#230#194#216#222'v'#167#182#12'R'#147
+  +#10#31#208#10#31#203#9#31#196#9#30#191#9#30#186#8#29#181#8#28#175#7#29#170#7
+  +#29#165#7#28#159#7#28#154#6#27#150#6#27#144#5#27#140#5#26#135#8','#129'X'#147
+  +#166#220#226#228#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#238#240#242#231#234#236#227#231
+  +#233#214#220#223#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#231#234#236':'#128#150#10
+  +''''#196#9' '#201#9#31#194#9#30#189#9#30#184#8#29#179#8#28#173#7#29#168#7#28
+  +#163#7#28#158#7#28#153#6#27#148#8'6'#137#12'^~'#11'P'#128#12'Y~'#187#210#217
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#187#210#217#11'I'#156#10#31#204
+  +#9' '#198#9#30#193#9#30#188#8#30#183#8#28#177#7#29#172#7#29#166#7#28#161#7#28
+  +#156#6#28#151#7'('#143'+v'#142#223#230#233#234#237#239#210#224#228#217#223
+  +#225#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#220#226#228'g'#157#174#11'8'#176#10#31
+  +#203#9'('#188#11'I'#150#10'/'#171#8#29#181#8#28#175#7#29#170#7#29#165#7#28
+  +#159#7#28#155#6#27#150#6#27#144':'#128#150#224#228#231#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#203#211#215#199#217#223':|'
+  +#155#11'I'#154'+r'#146#164#196#206'I'#138#158#9'.'#165#8#28#174#7#29#168#11
+  +'M'#138#12'Z'#130#10'H'#135#6#27#148#6#27#143#11'Q'#129#223#230#233#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#203
+  +#211#215#225#233#236#149#186#198#223#230#233#203#211#215#179#206#214#10'?'
+  +#151#7#28#172#8'.'#157'g'#157#174#241#243#244#164#196#206#11'U'#129#11'Q'#130
+  +'X'#147#166#216#224#228#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#210#217#220#200#208#212
+  +#200#208#212#210#224#228#12'U'#135#10'@'#148#11'M'#138#191#213#219#200#208
+  +#212#220#226#228#179#206#214#187#210#217#220#226#228#200#208#212#200#208#212
+  +#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212
+  ,#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#200#208#212#200#208#212#200#208#212#200#208#212#224#228#231#187#210#217
+  +#179#206#214#134#177#190#231#234#236#200#208#212#200#208#212#210#217#220#200
+  +#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208#212#200#208
+  +#212#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.pas
new file mode 100644
index 0000000..4dc71d3
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPleaseWaitForm.pas	
@@ -0,0 +1,118 @@
+unit uDAPleaseWaitForm;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  uROPleaseWaitForm,
+  Classes;
+
+type
+  IROPleaseWaitForm = interface
+    ['{32003A95-B7F4-4ED6-B65E-78B4204DF2AF}']
+    procedure Show(const iCaption:string=''); overload;
+    procedure Hide;
+    procedure Free;
+  end;
+
+function CreatePleaseWaitForm(aOwner: TComponent; const aCaption: string; aShow: boolean; aLogo:string; aWindowCaption:string=''): IROPleaseWaitForm; overload;
+function CreatePleaseWaitForm(aOwner: TComponent; const aCaption: string; aShow: boolean = true): IROPleaseWaitForm; overload;
+function CreatePleaseWaitForm(const aCaption: string; aShow: boolean = true): IROPleaseWaitForm; overload;
+
+implementation
+
+uses
+  Graphics,
+  SysUtils;
+
+{$IFNDEF FPC}  
+  {$IFDEF MSWINDOWS}
+    {$R IDE\DataAbstract_IDE_AdditionalResources.res}
+  {$ENDIF}
+
+  {$IFNDEF MSWINDOWS}
+    {$R IDE/DataAbstract_IDE_AdditionalResources.res}
+  {$ENDIF}
+{$ENDIF FPC}
+
+type
+  TROPleaseWaitFormWrapper = class(TInterfacedObject, IROPleaseWaitForm)
+  private
+    fForm: TPleaseWaitForm;
+  public
+    constructor Create(aForm: TPleaseWaitForm);
+    destructor Destroy; override;
+    procedure Show(const iCaption:string=''); overload;
+    procedure Hide;
+    procedure Free;
+  end;
+
+function CreatePleaseWaitForm(aOwner: TComponent; const aCaption: string; aShow: boolean; aLogo:string; aWindowCaption:string): IROPleaseWaitForm; overload;
+var
+  lBitmap: TBitmap;
+begin
+  if aWindowCaption = '' then aWindowCaption := 'Data Abstract';
+  lBitmap := TBitmap.Create();
+  lBitmap.LoadFromResourceName(hInstance, aLogo);
+  result := TROPleaseWaitFormWrapper.Create(TPleaseWaitForm.Create(aOwner, aCaption, aWindowCaption, lBitmap, true));
+  if aShow then result.Show();
+end;
+
+function CreatePleaseWaitForm(aOwner: TComponent; const aCaption: string; aShow: boolean = true): IROPleaseWaitForm;
+begin
+  result := CreatePleaseWaitForm(aOWner, aCaption, aShow, 'dalogo');
+end;
+
+function CreatePleaseWaitForm(const aCaption: string; aShow: boolean = true): IROPleaseWaitForm;
+begin
+  result := CreatePleaseWaitForm(nil, aCaption, aShow);
+end;
+
+{ TROPleaseWaitFormWrapper }
+
+constructor TROPleaseWaitFormWrapper.Create(aForm: TPleaseWaitForm);
+begin
+  fForm := aForm;
+end;
+
+destructor TROPleaseWaitFormWrapper.Destroy;
+begin
+  fForm.Close;
+  FreeAndNil(fForm);
+  inherited;
+end;
+
+procedure TROPleaseWaitFormWrapper.Free;
+begin
+  { no-op }
+end;
+
+procedure TROPleaseWaitFormWrapper.Hide;
+begin
+  fForm.Hide();
+end;
+
+procedure TROPleaseWaitFormWrapper.Show(const iCaption: string='');
+begin
+  fForm.Show(iCaption);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I IDE/DataAbstract_IDE_AdditionalResources.lrs}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPostgresInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPostgresInterfaces.pas
new file mode 100644
index 0000000..8ebf7a6
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPostgresInterfaces.pas	
@@ -0,0 +1,593 @@
+unit uDAPostgresInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses 
+  SysUtils,
+  uDAInterfaces, uDAEngine, uROClasses;
+
+type
+  { IDAPostgresConnection
+      For identification purposes Implemented by all Postgres connections }
+  IDAPostgresConnection = interface(IDAConnection)
+    ['{D8EADB7E-7AA0-48FF-9E7D-34853F999BFC}']
+  end;
+
+  TDAPostgresDriver = class(TDAEDriver)
+  protected
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  public
+  end;
+
+  TDAEPostgresConnection = class(TDAEConnection, IDAPostgresConnection, IDACanQueryDatabaseNames, IDAUseGenerators, IDAUseGenerators2)
+  protected
+    function DoGetLastAutoInc(const GeneratorName: string): integer; override;
+    function DoGetLastAutoIncValue(const GeneratorName: string): Variant; override;
+    procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
+    function GetSPSelectSyntax(HasArguments: Boolean): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure DoGetStoredProcedureParams(const aStoredProcedureName: string; out Params: TDAParamCollection); override;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDACanQueryDatabaseNames
+    function GetDatabaseNames: IROStrings;
+    // IDAUseGenerators
+    function GetNextAutoinc(const GeneratorName: string): integer; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDAUseGenerators2
+    function GetNextAutoinc2(const GeneratorName: string): variant; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+  end;
+
+function Postgres_GetDatabaseNames(aConnection: TDAEConnection): IROStrings;
+function Postgres_DoGetLastAutoInc(const GeneratorName: string; Query: IDADataset): variant;
+function Postgres_GetNextAutoInc(const GeneratorName: string; Query: IDADataset): Variant;
+procedure Postgres_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+procedure Postgres_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype);
+function PostgresDataTypeToDA(aDataType: string; Unicode: Boolean=False): TDADataType;
+procedure Postgres_DoGetForeignKeys(Query: IDADataset;ForeignKeys: TDADriverForeignKeyCollection);
+function Postgres_GetSPSelectSyntax(HasArguments: Boolean): String;
+procedure Postgres_DoGetStoredProcedureParams(const aStoredProcedureName: string; Query: IDADataset; out Params: TDAParamCollection);
+function Postgres_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+
+const
+  PostgreSQL_DriverType = 'PostgreSQL';
+  
+implementation
+
+var
+  postgres_reservedwords: array of string;
+
+const
+  Postgres_MasterDatabase     = 'template1';
+  Postgres_GetDatabaseNames_SQL = 'SELECT datname FROM pg_database ORDER BY datname';
+
+function PostgresDataTypeToDA(aDataType: string; Unicode: Boolean): TDADataType;
+begin
+  aDataType := LowerCase(aDataType);
+  if pos(' ', aDataType) <> 0 then Delete(aDataType, Pos(' ', aDataType), MaxInt);
+  if (aDAtaType = 'varchar') or (aDataType = 'character varying') or
+    (aDataType = 'character') or (aDataType = 'char') or
+    (aDataType = '"char"') or (aDataType = 'name') then begin
+    if Unicode then
+      Result := datWideString
+    else
+      Result := datString;
+  end
+  else if aDataType = 'text' then begin
+    if Unicode then
+      Result := datWideMemo
+    else
+      Result := datMemo;
+  end
+  else if (aDataType = 'blob') or (aDataType = 'binary') or
+    (aDataType = 'varbinary') or (aDataType = 'bytea') or
+    (aDataType = 'binary large object') then
+    Result := datBlob
+  else if (aDataType = 'date') or (aDataType = 'absdate') or
+    (aDataType = 'time') or (aDataType = 'timetz') or
+    (aDataType = 'datetime') or
+    (aDataType = 'timestamp') or (aDataType = 'timestamptz') or
+    (aDataType = 'year') then
+    result := datDateTime
+  else if (aDataType = 'single') or
+    (aDataType = 'real') or (aDataType = 'float4') then
+    Result := datSingleFloat
+  else if (aDataType = 'double') or
+    (aDataType = 'float') or
+    (aDataType = 'doubleprecision') or (aDataType = 'float8') then
+    Result := datFloat
+  else if (aDataType = 'bit') or (aDataType = 'boolean') or (aDataType = 'bool') then
+    Result := datBoolean
+  else if (aDataType = 'bigint') or (aDataType = 'int8') then
+    result := datLargeInt
+  else if (aDataType = 'decimal') or (aDataType = 'numeric') then
+    result := datDecimal
+  else if (aDataType = 'money') then
+    result := datCurrency
+  else if (aDataType = 'serial') or (aDataType = 'serial4') then
+    result := datAutoInc
+  else if (aDataType = 'bigserial') or (aDataType = 'serial8') then
+    result := datLargeAutoInc
+  else if (aDataType = 'smallint') or (aDataType = 'int2') then
+    result := datSmallInt
+  else if (aDataType = 'shortint') or (aDataType = 'int1') then
+    result := datShortInt
+  else if (aDataType = 'enum') or
+    (aDataType = 'int4') or (adatatype = 'int') or (adatatype = 'integer') or
+    (aDataType = 'tinyint') then
+    result := datInteger
+  else
+    result := datUnknown;
+end;
+
+function Postgres_GetDatabaseNames(aConnection: TDAEConnection): IROStrings;
+begin
+  Result := Engine_GetDatabaseNames(aConnection, Postgres_MasterDatabase, Postgres_GetDatabaseNames_SQL);
+end;
+
+function Postgres_DoGetLastAutoInc(const GeneratorName: string; Query: IDADataset): variant;
+begin
+  try
+    Query.SQL := 'SELECT currval(''' + GeneratorName + ''')';
+    Query.Open;
+    result := Query.Fields[0].Value;
+  finally
+    Query := nil;
+  end;
+end;
+
+function Postgres_GetNextAutoInc(const GeneratorName: string; Query: IDADataset): Variant;
+begin
+  try
+    Query.SQL := 'SELECT nextval(''' + GeneratorName + ''')';
+    Query.Open;
+    result := Query.Fields[0].Value;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure Postgres_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection);
+const
+  main_sql                    = 'SELECT COLUMN_NAME, DATA_TYPE, IS_NULLABLE, COLUMN_DEFAULT, CHARACTER_MAXIMUM_LENGTH, CHARACTER_SET_NAME, NUMERIC_PRECISION, NUMERIC_SCALE ' +
+    'FROM INFORMATION_SCHEMA.COLUMNS ' +
+    'WHERE TABLE_NAME=''{tbl}'' and TABLE_SCHEMA=''{schem}'' ' +
+    'ORDER BY ORDINAL_POSITION';
+  pk_sql                      = 'SELECT COLUMN_NAME ' +
+    'FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE ' +
+    'WHERE TABLE_NAME=''{tbl}'' and TABLE_SCHEMA=''{schem}'' AND CONSTRAINT_NAME like ''%_pkey''';
+var
+  fld                         : TDAField;
+  lSchema, lTable             : string;
+  p1                          : integer;
+  s                           : string;
+begin
+  Fields := TDAFieldCollection.Create(nil);
+  try
+    {
+    Query.SQL := 'SELECT * FROM ' + aTableName + ' WHERE 1=0';
+    Query.Open;
+    Fields.Assign(Query.Fields);
+    Query.Close;
+    }
+    Query.SQL := main_sql;
+    lTable := aTableName;
+    if pos('.', lTable) = 0 then begin
+      lSchema := 'public'
+    end else begin
+      lSchema := copy(lTable, 1, pos('.', lTable) - 1);
+      Delete(lTable, 1, pos('.', lTable));
+    end;
+    Query.SQL := StringReplace(Query.SQL, '{tbl}', lTable, []);
+    Query.SQL := StringReplace(Query.SQL, '{schem}', lSchema, []);
+    Query.Open;
+    while not Query.Eof do begin
+      fld := Fields.Add;
+      fld.Name:=Query.Fields[0].AsString;
+      fld.Required := Query.Fields[2].AsString <> 'YES';
+      fld.DefaultValue := Query.Fields[3].AsString;
+      fld.DataType := PostgresDataTypeToDA(Query.Fields[1].asString, sametext(Query.Fields[5].AsString, 'utf8') or sametext(Query.Fields[5].AsString, 'utf16'));
+      if fld.DataType = datDecimal then begin
+        fld.DecimalPrecision := Query.Fields[6].asInteger;
+        fld.DecimalScale := Query.Fields[7].asInteger;
+      end;
+      if Query.Fields[1].asString = '"char"' then fld.size := 1
+      else if Query.Fields[1].asString = 'name' then fld.size := 63
+      else fld.Size := Query.Fields[4].AsInteger;
+
+      if fld.DefaultValue <> '' then begin
+        if pos('nextval(', fld.DefaultValue) = 1 then begin
+          case fld.DataType of
+            datInteger: fld.DataType := datAutoInc;
+            datLargeInt: fld.DataType := datLargeAutoInc;
+          else
+            fld.DefaultValue := '';
+          end;
+          if fld.DefaultValue <> '' then begin
+            s := fld.DefaultValue;
+            p1 := pos('''', s);
+            Delete(s, 1, p1);
+            p1 := pos('''', s);
+            fld.GeneratorName := Copy(s, 1, p1 - 1);
+            fld.DefaultValue := '';
+          end;
+        end else if not TestDefaultValue(fld.DefaultValue, fld.DataType) then begin
+          fld.DefaultValue := '';
+        end;
+      end;
+      Query.Next;
+    end;
+    Query.Close;
+    Query.SQL := pk_sql;
+    Query.SQL := StringReplace(Query.SQL, '{tbl}', lTable, []);
+    Query.SQL := StringReplace(Query.SQL, '{schem}', lSchema, []);
+    Query.Open;
+    while not Query.Eof do begin
+      fld := Fields.FindField(Query.Fields[0].AsString);
+      if fld <> nil then
+        fld.InPrimaryKey := true;
+      Query.Next;
+    end;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure Postgres_DoGetNames(Query: IDADataset; AList: IROStrings; AObjectType: TDAObjecttype);
+const
+  c_select = 'SELECT pg_namespace.nspname, pg_class.relname FROM pg_class, pg_namespace '+
+             'WHERE (pg_class.relkind = ''r'') AND (pg_namespace.oid = pg_class.relnamespace) AND '+
+             '(pg_namespace.nspname NOT LIKE ''pg_%'') AND (pg_namespace.nspname NOT LIKE ''information_schema'') ORDER BY 1,2';
+  c_stored = 'SELECT pg_namespace.nspname, pg_proc.proname '+
+             'FROM pg_namespace, pg_proc '+
+             'WHERE pg_namespace.oid = pg_proc.pronamespace and '+
+             '(pg_namespace.nspname NOT LIKE ''pg_%'') AND (pg_namespace.nspname NOT LIKE ''information_schema'') ORDER BY 1,2';
+  c_view =   'SELECT pg_namespace.nspname, pg_class.relname FROM pg_class, pg_namespace '+
+             'WHERE (pg_class.relkind = ''v'') AND (pg_namespace.oid = pg_class.relnamespace) AND '+
+             '(pg_namespace.nspname NOT LIKE ''pg_%'') AND (pg_namespace.nspname NOT LIKE ''information_schema'') ORDER BY 1,2';
+begin
+  try
+    case AObjectType of
+      dotTable: Query.SQL := c_select;
+      dotProcedure: Query.SQL := c_stored;
+      dotView: Query.SQL := c_view;
+    else
+    end;
+    Query.Open;
+    while not Query.EOF do begin
+      if SameText(Query.fields[0].AsString, 'public') then
+        AList.Add(Trim(Query.Fields[1].AsString))
+      else
+        AList.Add(Trim(Query.Fields[0].AsString)+'.'+Trim(Query.Fields[1].AsString));
+      Query.Next;
+    end;
+    Query.Close;
+  finally
+    Query := nil;
+  end;
+end;
+
+procedure Postgres_DoGetForeignKeys(Query: IDADataset;ForeignKeys: TDADriverForeignKeyCollection);
+const
+  s_sql = 'select c.conname,s.seq,fn.nspname,f.relname,fa.attname,pn.nspname,p.relname,pa.attname '+
+          'from pg_constraint c join pg_class p ON (c.conrelid = p.oid) join pg_namespace pn ON (p.relnamespace = pn.oid) '+
+          'join pg_class f ON (c.confrelid = f.oid) join pg_namespace fn ON (f.relnamespace = fn.oid) '+
+          'join (select s.seq from generate_series(0,100) as s(seq)) as s on ( s.seq BETWEEN array_lower(conkey,1) and array_upper(conkey,1)) '+
+          'join pg_attribute pa ON ((c.conrelid = pa.attrelid) and (pa.attnum = c.conkey[s.seq])) '+
+          'join pg_attribute fa ON ((c.confrelid = fa.attrelid) and (fa.attnum = c.confkey[s.seq])) '+
+          'WHERE c.contype=''f'' ORDER by 1,3,4,2';
+var
+  lCurrConstraint: string;
+  lCurrFK: TDADriverForeignKey;
+begin
+  lCurrConstraint:='';
+  lCurrFK := nil;
+  ForeignKeys.Clear;
+  try
+    Query.SQL := s_sql;
+    Query.Open;
+    while not Query.Eof do begin
+      if lCurrConstraint <> Query.Fields[0].AsString then begin
+        lCurrConstraint := Query.Fields[0].AsString;
+        lCurrFK := ForeignKeys.Add();
+        with lCurrFK do begin
+          Name := Trim(Query.Fields[0].AsString);
+          if not SameText(Query.fields[2].AsString, 'public') then
+            PKTable := Format('%s.%s', [Trim(Query.Fields[2].AsString), Trim(Query.Fields[3].AsString)])
+          else
+            PKTable := Trim(Query.Fields[3].AsString);
+          if not SameText(Query.fields[5].AsString, 'public') then
+            FKTable := Format('%s.%s', [Trim(Query.fields[5].AsString), Trim(Query.fields[6].AsString)])
+          else
+            FKTable := Trim(Query.fields[6].AsString);
+          PKField := Trim(Query.Fields[4].AsString);
+          FKField := Trim(Query.Fields[7].AsString);
+        end
+      end  
+      else
+        with lCurrFK do begin
+          PKField := PKField + ';' + TrimRight(Query.Fields[4].AsString);
+          FKField := FKField + ';' + TrimRight(Query.Fields[7].AsString);
+        end;
+      Query.Next;
+    end;
+    Query.Close;
+  finally
+    Query := nil;
+  end;
+end;
+
+function Postgres_GetSPSelectSyntax(HasArguments: Boolean): String;
+begin
+  if HasArguments then
+    Result := 'SELECT * FROM {0}({1})'
+  else
+    Result := 'SELECT * FROM {0}()';
+end;
+
+procedure Postgres_DoGetStoredProcedureParams(const aStoredProcedureName: string; Query: IDADataset; out Params: TDAParamCollection);
+const
+  s_sql= 'select ns.nspname as schema,p.proname as name, ' +
+      //   '/*  p.pronargs,p.proretset,p.prorettype,p.proargtypes,p.proallargtypes,p.proargmodes,p.proargnames,*/ ' +
+         'COALESCE(s.seq,1) as paramnumber,ipt.typname as paramtype, ' +
+         'COALESCE(p.proargmodes[s.seq], case when (p.pronargs < s.seq)  then ''r'' else ''i'' end) as parammode, ' +
+         'COALESCE(p.proargnames[s.seq], case when (p.proargmodes[s.seq] is null) and (p.pronargs < s.seq)  then ''result'' else ''$''||s.seq end) as paramname '+
+         'from pg_proc p '+
+         'join pg_namespace ns on ((p.pronamespace = ns.oid)) '+ // and (ns.nspname not like ''pg_%'') and (ns.nspname <> ''information_schema'')) ' +
+         'join (select s.seq from generate_series(0,100) as s(seq)) as s on (s.seq between COALESCE(array_lower(p.proallargtypes,1),1) and COALESCE(array_upper(p.proallargtypes,1),p.pronargs+1)) ' +
+         'join pg_type ipt on (COALESCE(p.proargtypes[s.seq-1],p.proallargtypes[s.seq-1],prorettype) =ipt.oid) ';
+ s_where='where (ns.nspname = ''%s'') and (p.proname = ''%s'') ';
+ s_order='order by schema,name,paramnumber';
+var
+  schema, proc:string;
+  s: string;
+begin
+  Params := TDAParamCollection.Create(nil);
+  if Pos('.', aStoredProcedureName) > 0 then
+  begin
+    schema := Trim(Copy(aStoredProcedureName, 1, Pos('.', aStoredProcedureName) - 1));
+    proc := Trim(Copy(aStoredProcedureName, Pos('.', aStoredProcedureName) + 1, Length(aStoredProcedureName)));
+  end else
+  begin
+    schema := 'public';
+    proc := aStoredProcedureName;
+  end;
+  Query.SQL:= s_sql+ Format(s_where,[schema,proc])+s_order;
+  Query.Open;
+  while not Query.EOF do begin
+    With Params.Add do begin
+      s:= Query.Fields[4].AsString;
+      if s = 'r' then ParamType:=daptResult
+      else if s = 'o' then ParamType:=daptOutput
+      else if s = 'b' then ParamType:=daptInputOutput
+      else ParamType:=daptInput;
+      Name := Query.Fields[5].AsString;
+      DataType := PostgresDataTypeToDA(Query.Fields[3].AsString);
+    end;
+    Query.Next;
+  end;
+end;
+
+function Postgres_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  Result:= (LowerCase(iIdentifier) <> iIdentifier) or TestIdentifier(iIdentifier, postgres_reservedwords);
+end;
+
+{ TDAEPostgresConnection }
+
+procedure TDAEPostgresConnection.DoGetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited;
+  Postgres_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+end;
+
+function TDAEPostgresConnection.DoGetLastAutoInc(
+  const GeneratorName: string): integer;
+begin
+  Result := DoGetLastAutoIncValue(GeneratorName);
+end;
+
+function TDAEPostgresConnection.DoGetLastAutoIncValue(const GeneratorName: string): Variant;
+begin
+  Result := Postgres_DoGetLastAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+end;
+
+procedure TDAEPostgresConnection.DoGetStoredProcedureNames(
+  out List: IROStrings);
+begin
+  inherited;
+  Postgres_DoGetNames(GetDatasetClass.Create(Self),List,dotProcedure);
+end;
+
+procedure TDAEPostgresConnection.DoGetStoredProcedureParams(
+  const aStoredProcedureName: string; out Params: TDAParamCollection);
+begin
+  inherited;
+  exit;
+//  Postgres_DoGetStoredProcedureParams(aStoredProcedureName, GetDatasetClass.Create(Self), Params);
+end;
+
+procedure TDAEPostgresConnection.DoGetTableFields(const aTableName: string;
+  out Fields: TDAFieldCollection);
+begin
+  Postgres_DoGetTableFields(aTableName, GetDatasetClass.Create(Self), Fields);
+end;
+
+procedure TDAEPostgresConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited;
+  Postgres_DoGetNames(GetDatasetClass.Create(Self),List,dotTable);
+end;
+
+procedure TDAEPostgresConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited;
+  Postgres_DoGetNames(GetDatasetClass.Create(Self), List, dotView);
+end;
+
+function TDAEPostgresConnection.GetDatabaseNames: IROStrings;
+begin
+  Result := Postgres_GetDatabaseNames(Self);
+end;
+
+function TDAEPostgresConnection.GetNextAutoinc(
+  const GeneratorName: string): integer;
+begin
+  Result := GetNextAutoinc2(GeneratorName);
+end;
+
+function TDAEPostgresConnection.GetNextAutoinc2(
+  const GeneratorName: string): variant;
+begin
+  Result := Postgres_GetNextAutoInc(GeneratorName, GetDatasetClass.Create(Self));
+end;
+
+function TDAEPostgresConnection.GetSPSelectSyntax(
+  HasArguments: Boolean): string;
+begin
+  Result:= Postgres_GetSPSelectSyntax(HasArguments);
+end;
+
+function TDAEPostgresConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result:= inherited IdentifierNeedsQuoting(iIdentifier) or Postgres_IdentifierNeedsQuoting(iIdentifier);
+end;
+
+{ TDAPostgresDriver }
+
+function TDAPostgresDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  Result := [doServerName, doDatabaseName, doLogin, doCustom];
+end;
+
+function TDAPostgresDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  Result:= PostgreSQL_DriverType;
+end;
+
+procedure postgres_InitializeReservedWords;
+begin
+  SetLength(postgres_reservedwords, 95);
+  // sorted with TStringList.Sort (bds2007)  
+  postgres_reservedwords[0] := 'ALL';
+  postgres_reservedwords[1] := 'ANALYSE';
+  postgres_reservedwords[2] := 'ANALYZE';
+  postgres_reservedwords[3] := 'AND';
+  postgres_reservedwords[4] := 'ANY';
+  postgres_reservedwords[5] := 'ARRAY';
+  postgres_reservedwords[6] := 'AS';
+  postgres_reservedwords[7] := 'ASC';
+  postgres_reservedwords[8] := 'ASYMMETRIC';
+  postgres_reservedwords[9] := 'AUTHORIZATION';
+  postgres_reservedwords[10] := 'BETWEEN';
+  postgres_reservedwords[11] := 'BINARY';
+  postgres_reservedwords[12] := 'BOTH';
+  postgres_reservedwords[13] := 'CASE';
+  postgres_reservedwords[14] := 'CAST';
+  postgres_reservedwords[15] := 'CHECK';
+  postgres_reservedwords[16] := 'COLLATE';
+  postgres_reservedwords[17] := 'COLUMN';
+  postgres_reservedwords[18] := 'CONSTRAINT';
+  postgres_reservedwords[19] := 'CREATE';
+  postgres_reservedwords[20] := 'CROSS';
+  postgres_reservedwords[21] := 'CURRENT_DATE';
+  postgres_reservedwords[22] := 'CURRENT_ROLE';
+  postgres_reservedwords[23] := 'CURRENT_TIME';
+  postgres_reservedwords[24] := 'CURRENT_TIMESTAMP';
+  postgres_reservedwords[25] := 'CURRENT_USER';
+  postgres_reservedwords[26] := 'DEFAULT';
+  postgres_reservedwords[27] := 'DEFERRABLE';
+  postgres_reservedwords[28] := 'DESC';
+  postgres_reservedwords[29] := 'DISTINCT';
+  postgres_reservedwords[30] := 'DO';
+  postgres_reservedwords[31] := 'ELSE';
+  postgres_reservedwords[32] := 'END';
+  postgres_reservedwords[33] := 'EXCEPT';
+  postgres_reservedwords[34] := 'FALSE';
+  postgres_reservedwords[35] := 'FOR';
+  postgres_reservedwords[36] := 'FOREIGN';
+  postgres_reservedwords[37] := 'FREEZE';
+  postgres_reservedwords[38] := 'FROM';
+  postgres_reservedwords[39] := 'FULL';
+  postgres_reservedwords[40] := 'GRANT';
+  postgres_reservedwords[41] := 'GROUP';
+  postgres_reservedwords[42] := 'HAVING';
+  postgres_reservedwords[43] := 'ILIKE';
+  postgres_reservedwords[44] := 'IN';
+  postgres_reservedwords[45] := 'INITIALLY';
+  postgres_reservedwords[46] := 'INNER';
+  postgres_reservedwords[47] := 'INTERSECT';
+  postgres_reservedwords[48] := 'INTO';
+  postgres_reservedwords[49] := 'IS';
+  postgres_reservedwords[50] := 'ISNULL';
+  postgres_reservedwords[51] := 'JOIN';
+  postgres_reservedwords[52] := 'LEADING';
+  postgres_reservedwords[53] := 'LEFT';
+  postgres_reservedwords[54] := 'LIKE';
+  postgres_reservedwords[55] := 'LIMIT';
+  postgres_reservedwords[56] := 'LOCALTIME';
+  postgres_reservedwords[57] := 'LOCALTIMESTAMP';
+  postgres_reservedwords[58] := 'NATURAL';
+  postgres_reservedwords[59] := 'NEW';
+  postgres_reservedwords[60] := 'NOT';
+  postgres_reservedwords[61] := 'NOTNULL';
+  postgres_reservedwords[62] := 'NULL';
+  postgres_reservedwords[63] := 'OFF';
+  postgres_reservedwords[64] := 'OFFSET';
+  postgres_reservedwords[65] := 'OLD';
+  postgres_reservedwords[66] := 'ON';
+  postgres_reservedwords[67] := 'ONLY';
+  postgres_reservedwords[68] := 'OR';
+  postgres_reservedwords[69] := 'ORDER';
+  postgres_reservedwords[70] := 'OUTER';
+  postgres_reservedwords[71] := 'OVERLAPS';
+  postgres_reservedwords[72] := 'PLACING';
+  postgres_reservedwords[73] := 'PRIMARY';
+  postgres_reservedwords[74] := 'REFERENCES';
+  postgres_reservedwords[75] := 'RETURNING';
+  postgres_reservedwords[76] := 'RIGHT';
+  postgres_reservedwords[77] := 'SELECT';
+  postgres_reservedwords[78] := 'SESSION_USER';
+  postgres_reservedwords[79] := 'SIMILAR';
+  postgres_reservedwords[80] := 'SOME';
+  postgres_reservedwords[81] := 'SYMMETRIC';
+  postgres_reservedwords[82] := 'TABLE';
+  postgres_reservedwords[83] := 'THEN';
+  postgres_reservedwords[84] := 'TO';
+  postgres_reservedwords[85] := 'TRAILING';
+  postgres_reservedwords[86] := 'TRUE';
+  postgres_reservedwords[87] := 'UNION';
+  postgres_reservedwords[88] := 'UNIQUE';
+  postgres_reservedwords[89] := 'USER';
+  postgres_reservedwords[90] := 'USING';
+  postgres_reservedwords[91] := 'VERBOSE';
+  postgres_reservedwords[92] := 'WHEN';
+  postgres_reservedwords[93] := 'WHERE';
+  postgres_reservedwords[94] := 'WITH';
+end;
+
+initialization
+  postgres_InitializeReservedWords;
+finalization
+  postgres_reservedwords := nil;
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.lrs
new file mode 100644
index 0000000..988fce2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.lrs	
@@ -0,0 +1,2187 @@
+LazarusResources.Add('POWERED_BY_DATAABSTRACT_CLIENT','BMP',[
+  'BMxw'#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#212#0#0#0'0'#0#0#0#1#0#24#0#0#0#0#0'Bw'#0
+  +#0#18#11#0#0#18#11#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#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#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#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#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#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#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#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#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'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'
+  +#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0'S'#18#0
+  +'S'#18#0'S'#18#0'S'#18#0'S'#18#0#0#0#0#0#0#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19'w'#159#129#255#255#255#238#243#239'U'#135'b'#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'
+  +#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0
+  +'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0'K'#19#0#0#0#0#0#0#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  ,#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16'U'#140'`U'#140
+  +'`'#170#197#175#255#255#255'"i0'#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0
+  +'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'#16#0'R'
+  +#16#0'R'#16#0#0#0#0#0#0#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#17'] '#255#255#255'f'#151'p'#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0
+  +'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'
+  +#16#0'Q'#16#0'Q'#16#0'Q'#16#0'Q'#16#0#0#0#0#0#0#0'P'#21'f'#150's'#255#255#255
+  +#0'P'#21#0'P'#21#0'P'#21#187#208#193#255#255#255'"g4'#0'P'#21#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#0'P'#21#187#208#193#204#220#208
+  +#0'P'#21#0'P'#21#0'P'#21#204#220#208'"g4'#0'P'#21#0'P'#21#170#197#177#255#255
+  +#255#0'P'#21#0'P'#21#0'P'#21#0'P'#21#136#173#146#221#232#224#255#255#255#255
+  +#255#255#204#220#208'D'#127'S'#0'P'#21#0'P'#21#0'P'#21#0'P'#21#255#255#255
+  +#255#255#255#255#255#255#204#220#208'3sD'#0'P'#21#0'P'#21#0'P'#21#255#255#255
+  +'w'#162#130#0'P'#21#0'P'#21#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#0'P'#21#0'P'#21#0'P'#21#0'P'#21#136#173#146#221#232#224#255#255
+  +#255#255#255#255#221#232#224'f'#150's'#0'P'#21#0'P'#21#0'P'#21#0'P'#21#255
+  +#255#255'f'#150's'#0'P'#21#0'P'#21#0'P'#21'3sD'#221#232#224#255#255#255#255
+  +#255#255#170#197#177#17'\%'#0'P'#21#0'P'#21#0'P'#21#0'P'#21#0'P'#21#0'P'#21
+  +#221#232#224#221#232#224#221#232#224#221#232#224#238#243#239#170#197#177'D'
+  +#127'S'#0'P'#21#0'P'#21#170#197#177#221#232#224#221#232#224#0'P'#21#0'P'#21#0
+  +'P'#21#0'P'#21#187#208#193#221#232#224#221#232#224'f'#150's'#0'P'#21#0'P'#21
+  +#221#232#224#221#232#224#221#232#224#0'P'#21#0'P'#21#170#197#177#221#232#224
+  +#221#232#224#0'P'#21#0'P'#21#0'P'#21#0'P'#21#187#208#193#221#232#224#221#232
+  +#224'f'#150's'#0'P'#21#0'P'#21#0'P'#21#170#197#177#221#232#224#221#232#224#0
+  +'P'#21#0'P'#21#0'P'#21#0'P'#21#187#208#193#221#232#224#221#232#224'f'#150's'
+  +#0'P'#21#221#232#224#221#232#224#221#232#224#221#232#224#238#243#239#187#208
+  +#193'D'#127'S'#0'P'#21#0'P'#21'f'#150's'#204#220#208#238#243#239#238#243#239
+  ,#187#208#193'D'#127'S'#0'P'#21#0'P'#21#0'P'#21#0'P'#21#0'P'#21#221#232#224
+  +#221#232#224#221#232#224#0'P'#21#0'P'#21#0'P'#21#0'P'#21#221#232#224#221#232
+  +#224#221#232#224#0'P'#21'"g4'#221#232#224#221#232#224#221#232#224#153#185#161
+  +#0'P'#21#170#197#177#221#232#224#221#232#224#0'P'#21#0'P'#21#0'P'#21#0'P'#21
+  +#187#208#193#221#232#224#221#232#224'f'#150's'#0'P'#21#0'P'#21'3sD'#170#197
+  +#177#221#232#224#221#232#224#221#232#224'w'#162#130#0'P'#21#0'P'#21#0'P'#21#0
+  +'P'#21#221#232#224#221#232#224#221#232#224#0'P'#21#0'P'#21#0'P'#21#0'P'#21#0
+  +'P'#21#0#0#0#0#0#0#0'O'#22'w'#161#131#255#255#255#0'O'#22#0'O'#22'f'#149's'
+  +#255#255#255'U'#138'd'#0'O'#22#0'O'#22#255#255#255#153#185#162'U'#138'dU'#138
+  +'dD~T'#0'O'#22#153#185#162#238#243#239#0'O'#22#0'O'#22'D~T'#255#255#255#153
+  +#185#162#0'O'#22#0'O'#22#187#208#193#204#220#208#0'O'#22#0'O'#22#17'[&'#204
+  +#220#208#238#243#239#136#173#146'U'#138'dU'#138'd'#187#208#193#255#255#255'w'
+  +#161#131#0'O'#22#0'O'#22#0'O'#22#255#255#255#136#173#146'D~T'#187#208#193#238
+  +#243#239#17'[&'#0'O'#22#0'O'#22#255#255#255'w'#161#131#0'O'#22#0'O'#22#255
+  +#255#255#153#185#162'U'#138'dU'#138'dD~T'#0'O'#22#0'O'#22#17'[&'#204#220#208
+  +#238#243#239#136#173#146'U'#138'dU'#138'd'#136#173#146#153#185#162#0'O'#22#0
+  +'O'#22#0'O'#22#0'O'#22#255#255#255'w'#161#131#0'O'#22#0'O'#22#0'O'#22'U'#138
+  +'d'#153#185#162'D~TD~T'#221#232#224#187#208#193#0'O'#22#0'O'#22#0'O'#22#0'O'
+  +#22#0'O'#22#0'O'#22#221#232#224#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255'f'#149's'#0'O'#22'D~T'#255#255#255#255#255#255
+  +#136#173#146'U'#138'dU'#138'df'#149's'#255#255#255#255#255#255#221#232#224#0
+  +'O'#22#0'O'#22#0'O'#22#221#232#224#255#255#255#221#232#224#0'O'#22#0'O'#22'D'
+  +'~T'#255#255#255#255#255#255#136#173#146'U'#138'dU'#138'df'#149's'#255#255
+  +#255#255#255#255#221#232#224#0'O'#22#0'O'#22#0'O'#22#0'O'#22'D~T'#255#255#255
+  +#255#255#255#136#173#146'U'#138'dU'#138'df'#149's'#255#255#255#255#255#255
+  +#221#232#224#0'O'#22#0'O'#22#221#232#224#255#255#255#255#255#255#221#232#224
+  +#255#255#255#255#255#255#255#255#255'f'#149's'#0'O'#22'w'#161#131#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255'U'#138'd'#0'O'#22#0'O'#22#0
+  +'O'#22#0'O'#22#221#232#224#255#255#255#221#232#224#0'O'#22#0'O'#22#0'O'#22#0
+  +'O'#22#221#232#224#255#255#255#221#232#224#0'O'#22#204#220#208#255#255#255
+  +#255#255#255#238#243#239#17'[&'#0'O'#22'D~T'#255#255#255#255#255#255#136#173
+  +#146'U'#138'dU'#138'df'#149's'#255#255#255#255#255#255#221#232#224#0'O'#22#0
+  +'O'#22'f'#149's'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#170#196#177#0'O'#22#0'O'#22#0'O'#22#0'O'#22#221#232#224#255#255#255#221#232
+  +#224#0'O'#22#0'O'#22#0'O'#22#0'O'#22#0'O'#22#0#0#0#0#0#0#0'M'#20'w'#160#130
+  +#255#255#255#0'M'#20'"e3'#238#243#239#153#184#161#0'M'#20#0'M'#20#0'M'#20#255
+  +#255#255'w'#160#130#0'M'#20#0'M'#20#0'M'#20#0'M'#20'f'#148'r'#255#255#255#0
+  +'M'#20#0'M'#20#187#208#192#204#219#208#255#255#255#17'Y$'#0'M'#20#204#219#208
+  +#170#196#177#0'M'#20#0'M'#20#187#208#192#221#231#224'"e3'#0'M'#20#0'M'#20#0
+  +'M'#20#0'M'#20'f'#148'r'#255#255#255'U'#136'b'#0'M'#20#0'M'#20#255#255#255'w'
+  +#160#130#0'M'#20'"e3'#255#255#255'f'#148'r'#0'M'#20#0'M'#20#255#255#255'w'
+  +#160#130#0'M'#20#0'M'#20#255#255#255'w'#160#130#0'M'#20#0'M'#20#0'M'#20#0'M'
+  +#20#0'M'#20#187#208#192#238#243#239'"e3'#0'M'#20#0'M'#20#0'M'#20#0'M'#20#0'M'
+  +#20#0'M'#20#0'M'#20#0'M'#20#0'M'#20#255#255#255'w'#160#130#0'M'#20#0'M'#20#0
+  +'M'#20#0'M'#20#0'M'#20#0'M'#20#0'M'#20#153#184#161#255#255#255#0'M'#20#0'M'
+  +#20#0'M'#20#0'M'#20#0'M'#20#0'M'#20#221#231#224#255#255#255#238#243#239'w'
+  +#160#130#153#184#161#255#255#255#255#255#255#255#255#255'D|S'#0'M'#20#187#208
+  +#192#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255'f'#148'r'#0'M'#20#0'M'#20#0'M'#20#221#231#224#255#255#255#221
+  +#231#224#0'M'#20#0'M'#20#0'M'#20#187#208#192#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255'f'#148'r'#0'M'#20#0'M'
+  +#20#0'M'#20#0'M'#20#0'M'#20#187#208#192#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255'f'#148'r'#0'M'#20#0'M'#20
+  +#221#231#224#255#255#255#221#231#224#0'M'#20'"e3'#255#255#255#255#255#255#221
+  +#231#224#0'M'#20'f'#148'r'#204#219#208'f'#148'rf'#148'r'#255#255#255#255#255
+  +#255#204#219#208#0'M'#20#0'M'#20#0'M'#20#0'M'#20#221#231#224#255#255#255#221
+  +#231#224#0'M'#20#0'M'#20#0'M'#20#0'M'#20#221#231#224#255#255#255#221#231#224
+  +'w'#160#130#255#255#255#255#255#255#255#255#255'U'#136'b'#0'M'#20#0'M'#20#0
+  +'M'#20#187#208#192#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255'f'#148'r'#0'M'#20'D|S'#255#255#255#255#255#255
+  +#255#255#255#187#208#192#136#172#145#187#208#192#170#196#177#0'M'#20#0'M'#20
+  +#0'M'#20#0'M'#20#221#231#224#255#255#255#221#231#224#0'M'#20#0'M'#20#0'M'#20
+  +#0'M'#20#0'M'#20#0#0#0#0#0#0#0'K'#26'w'#159#133#255#255#255#0'K'#26#187#207
+  +#194#221#231#224#0'K'#26#0'K'#26#0'K'#26#0'K'#26#255#255#255'w'#159#133#0'K'
+  ,#26#0'K'#26#0'K'#26#0'K'#26'D{W'#255#255#255'3oH"c9'#255#255#255'3oH'#187#207
+  +#194'w'#159#133#0'K'#26#238#243#240#153#183#163#0'K'#26'"c9'#255#255#255'f'
+  +#147'v'#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#187#207#194#204#219
+  +#209#0'K'#26#0'K'#26#255#255#255'w'#159#133#0'K'#26#17'W)'#255#255#255'f'#147
+  +'v'#0'K'#26#0'K'#26#255#255#255'w'#159#133#0'K'#26#0'K'#26#255#255#255'w'#159
+  +#133#0'K'#26#0'K'#26#0'K'#26#0'K'#26'"c9'#255#255#255'f'#147'v'#0'K'#26#0'K'
+  +#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#255#255
+  +#255'w'#159#133#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#204
+  +#219#209#238#243#240#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#221#231
+  +#224#255#255#255#221#231#224#0'K'#26#0'K'#26'f'#147'v'#255#255#255#255#255
+  +#255#170#195#179#0'K'#26'D{W'#255#255#255#255#255#255#238#243#240#238#243#240
+  +#255#255#255#255#255#255#221#231#224#0'K'#26#0'K'#26#0'K'#26#0'K'#26#221#231
+  +#224#255#255#255#221#231#224#0'K'#26#0'K'#26#0'K'#26'D{W'#255#255#255#255#255
+  +#255#238#243#240#238#243#240#255#255#255#255#255#255#221#231#224#0'K'#26#0'K'
+  +#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26'D{W'#255#255#255#255#255#255#238#243#240
+  +#238#243#240#255#255#255#255#255#255#221#231#224#0'K'#26#0'K'#26#0'K'#26#221
+  +#231#224#255#255#255#221#231#224#0'K'#26'3oH'#255#255#255#255#255#255#221#231
+  +#224#0'K'#26#17'W)'#0'K'#26#0'K'#26'w'#159#133#255#255#255#255#255#255#238
+  +#243#240#0'K'#26#0'K'#26#0'K'#26#0'K'#26#221#231#224#255#255#255#221#231#224
+  +#0'K'#26#0'K'#26#0'K'#26#0'K'#26#221#231#224#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#136#171#148#0'K'#26#0'K'#26#0'K'#26#0'K'#26'D{W'
+  +#255#255#255#255#255#255#238#243#240#238#243#240#255#255#255#255#255#255#221
+  +#231#224#0'K'#26#0'K'#26#170#195#179#255#255#255#255#255#255'w'#159#133#0'K'
+  +#26#0'K'#26#0'K'#26#17'W)'#0'K'#26#0'K'#26#0'K'#26#0'K'#26#221#231#224#255
+  +#255#255#221#231#224#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0'K'#26#0#0#0#0#0#0#0'L'
+  +#30'w'#160#135#255#255#255#255#255#255#255#255#255#187#207#195#17'X-'#0'L'#30
+  +#0'L'#30#0'L'#30#255#255#255#153#183#165'U'#136'iU'#136'i3pK'#0'L'#30'"d<'
+  +#255#255#255'D|Z'#153#183#165#187#207#195#0'L'#30'D|Z'#238#243#240#0'L'#30
+  +#255#255#255'w'#160#135#0'L'#30'f'#148'x'#255#255#255#17'X-'#0'L'#30#0'L'#30
+  +#0'L'#30#0'L'#30#0'L'#30#0'L'#30'w'#160#135#255#255#255#0'L'#30#0'L'#30#255
+  +#255#255'w'#160#135#17'X-'#153#183#165#238#243#240#17'X-'#0'L'#30#0'L'#30#255
+  +#255#255'w'#160#135#0'L'#30#0'L'#30#255#255#255#153#183#165'U'#136'iU'#136'i'
+  +'3pK'#0'L'#30'f'#148'x'#255#255#255#17'X-'#0'L'#30#0'L'#30#0'L'#30#0'L'#30#0
+  +'L'#30#0'L'#30#0'L'#30#0'L'#30#0'L'#30#0'L'#30#255#255#255'w'#160#135#0'L'#30
+  +#0'L'#30#0'L'#30#0'L'#30#0'L'#30'3pK'#221#231#225#255#255#255'U'#136'i'#0'L'
+  +#30#0'L'#30#0'L'#30#0'L'#30#0'L'#30#0'L'#30#221#231#225#255#255#255#221#231
+  +#225#0'L'#30#0'L'#30#17'X-'#238#243#240#255#255#255#221#231#225#0'L'#30#0'L'
+  +#30#204#219#210#255#255#255#153#183#165'f'#148'x'#255#255#255#255#255#255'f'
+  +#148'x'#0'L'#30#0'L'#30#0'L'#30#0'L'#30#221#231#225#255#255#255#221#231#225#0
+  +'L'#30#0'L'#30#0'L'#30#0'L'#30#204#219#210#255#255#255#153#183#165'f'#148'x'
+  +#255#255#255#255#255#255'f'#148'x'#0'L'#30#0'L'#30#0'L'#30#0'L'#30#0'L'#30#0
+  +'L'#30#0'L'#30#204#219#210#255#255#255#153#183#165'f'#148'x'#255#255#255#255
+  +#255#255'f'#148'x'#0'L'#30#0'L'#30#0'L'#30#221#231#225#255#255#255#255#255
+  +#255#221#231#225#255#255#255#255#255#255#255#255#255'U'#136'i'#0'L'#30#0'L'
+  +#30#0'L'#30#170#195#180#255#255#255#255#255#255#255#255#255#153#183#165#0'L'
+  +#30#0'L'#30#0'L'#30#0'L'#30#221#231#225#255#255#255#221#231#225#0'L'#30#0'L'
+  +#30#0'L'#30#0'L'#30#221#231#225#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#170#195#180#17'X-'#0'L'#30#0'L'#30#0'L'#30#0'L'#30#204#219
+  +#210#255#255#255#153#183#165'f'#148'x'#255#255#255#255#255#255'f'#148'x'#0'L'
+  +#30#0'L'#30#221#231#225#255#255#255#238#243#240#17'X-'#0'L'#30#0'L'#30#0'L'
+  +#30#0'L'#30#0'L'#30#0'L'#30#0'L'#30#0'L'#30#221#231#225#255#255#255#221#231
+  +#225#0'L'#30#0'L'#30#0'L'#30#0'L'#30#0'L'#30#0#0#0#0#0#0#0'W'#27'w'#165#133
+  +#255#255#255#0'W'#27'3yI'#221#233#225#170#199#179#0'W'#27#0'W'#27#0'W'#27#255
+  +#255#255#255#255#255#255#255#255#255#255#255#170#199#179#0'W'#27#0'W'#27#255
+  +#255#255'w'#165#133#255#255#255'D'#132'X'#0'W'#27#0'W'#27#204#221#209'f'#154
+  +'v'#255#255#255'U'#143'g'#0'W'#27'f'#154'v'#255#255#255#17'b*'#0'W'#27#0'W'
+  +#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27'w'#165#133#255#255#255#0'W'#27#0'W'#27
+  +#255#255#255#255#255#255#255#255#255#255#255#255'D'#132'X'#0'W'#27#0'W'#27#0
+  +'W'#27#255#255#255'w'#165#133#0'W'#27#0'W'#27#255#255#255#255#255#255#255#255
+  +#255#255#255#255#170#199#179#0'W'#27'f'#154'v'#255#255#255#17'b*'#0'W'#27#0
+  +'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#255
+  +#255#255'w'#165#133#0'W'#27#0'W'#27#0'W'#27#0'W'#27'D'#132'X'#255#255#255#238
+  +#244#240'D'#132'X'#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27
+  +#221#233#225#255#255#255#221#233#225#0'W'#27#0'W'#27#17'b*'#238#244#240#255
+  ,#255#255#238#244#240#0'W'#27#0'W'#27'U'#143'g'#255#255#255#238#244#240#221
+  +#233#225#255#255#255#221#233#225#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#221
+  +#233#225#255#255#255#221#233#225#0'W'#27#0'W'#27#0'W'#27#0'W'#27'U'#143'g'
+  +#255#255#255#238#244#240#221#233#225#255#255#255#221#233#225#0'W'#27#0'W'#27
+  +#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27'U'#143'g'#255#255#255#238
+  +#244#240#221#233#225#255#255#255#221#233#225#0'W'#27#0'W'#27#0'W'#27#0'W'#27
+  +#221#233#225#255#255#255#255#255#255#221#233#225#255#255#255#255#255#255#204
+  +#221#209#17'b*'#0'W'#27#0'W'#27#153#188#164#255#255#255#255#255#255#255#255
+  +#255#187#210#194#17'b*'#0'W'#27#0'W'#27#0'W'#27#0'W'#27#221#233#225#255#255
+  +#255#221#233#225#0'W'#27#0'W'#27#0'W'#27#0'W'#27#221#233#225#255#255#255#238
+  +#244#240'3yIf'#154'v'#255#255#255#255#255#255#170#199#179#0'W'#27#0'W'#27#0
+  +'W'#27#0'W'#27'U'#143'g'#255#255#255#238#244#240#221#233#225#255#255#255#221
+  +#233#225#0'W'#27#0'W'#27#0'W'#27#238#244#240#255#255#255#238#244#240#17'b*'#0
+  +'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#221#233#225
+  +#255#255#255#221#233#225#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0'W'#27#0#0#0#0#0#0
+  +#0'X'#25'w'#166#132#255#255#255#0'X'#25#0'X'#25'w'#166#132#255#255#255#0'X'
+  +#25#0'X'#25#0'X'#25#255#255#255'w'#166#132#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0
+  +'X'#25#221#233#224#255#255#255#204#222#209#0'X'#25#0'X'#25#0'X'#25'U'#144'f'
+  +#255#255#255#255#255#255'D'#133'V'#0'X'#25'"n8'#255#255#255'f'#155'u'#0'X'#25
+  +#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#187#210#194#204#222#209#0'X'#25#0'X'
+  +#25#255#255#255'w'#166#132#17'c('#187#210#194#187#210#194#0'X'#25#0'X'#25#0
+  +'X'#25#255#255#255'w'#166#132#0'X'#25#0'X'#25#255#255#255'w'#166#132#0'X'#25
+  +#0'X'#25#0'X'#25#0'X'#25'"n8'#255#255#255'f'#155'u'#0'X'#25#0'X'#25#0'X'#25#0
+  +'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#255#255#255'w'#166#132
+  +#0'X'#25#0'X'#25#0'X'#25#0'X'#25#221#233#224#204#222#209#17'c('#0'X'#25#0'X'
+  +#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#221#233#224#255#255#255
+  +#221#233#224#0'X'#25#0'X'#25'f'#155'u'#255#255#255#255#255#255#170#199#178#0
+  +'X'#25#0'X'#25#0'X'#25#204#222#209#255#255#255#255#255#255#255#255#255'f'#155
+  +'u'#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#221#233#224#255#255#255#221#233
+  +#224#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#204#222#209#255#255#255#255#255
+  +#255#255#255#255'f'#155'u'#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0
+  +'X'#25#0'X'#25#0'X'#25#204#222#209#255#255#255#255#255#255#255#255#255'f'#155
+  +'u'#0'X'#25#0'X'#25#0'X'#25#0'X'#25#221#233#224#255#255#255#221#233#224#0'X'
+  +#25'3yG'#255#255#255#255#255#255#170#199#178#0'X'#25#17'c('#255#255#255#255
+  +#255#255#255#255#255'w'#166#132#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'
+  +#25#221#233#224#255#255#255#221#233#224#0'X'#25#0'X'#25#0'X'#25#0'X'#25#221
+  +#233#224#255#255#255#221#233#224#0'X'#25#0'X'#25#238#244#240#255#255#255#238
+  +#244#240#0'X'#25#0'X'#25#0'X'#25#0'X'#25#0'X'#25#204#222#209#255#255#255#255
+  +#255#255#255#255#255'f'#155'u'#0'X'#25#0'X'#25#0'X'#25#187#210#194#255#255
+  +#255#255#255#255'w'#166#132#0'X'#25#0'X'#25#0'X'#25'"n8'#0'X'#25#0'X'#25#0'X'
+  +#25#0'X'#25#221#233#224#255#255#255#221#233#224#0'X'#25#0'X'#25#0'X'#25#0'X'
+  +#25#0'X'#25#0#0#0#0#0#0#0'U'#22'w'#164#131#255#255#255#0'U'#22#0'U'#22#136
+  +#176#146#255#255#255#0'U'#22#0'U'#22#0'U'#22#255#255#255'w'#164#131#0'U'#22#0
+  +'U'#22#0'U'#22#0'U'#22#0'U'#22#187#210#193#255#255#255'U'#142'd'#0'U'#22#0'U'
+  +#22#0'U'#22#0'U'#22#221#232#224#255#255#255'3wE'#0'U'#22#0'U'#22#187#210#193
+  +#221#232#224'"l5'#0'U'#22#0'U'#22#0'U'#22#0'U'#22'f'#153's'#255#255#255'U'
+  +#142'd'#0'U'#22#0'U'#22#255#255#255'w'#164#131#0'U'#22'w'#164#131#255#255#255
+  +#0'U'#22#0'U'#22#0'U'#22#255#255#255'w'#164#131#0'U'#22#0'U'#22#255#255#255
+  +'w'#164#131#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#187#210#193#238#244#239
+  +'"l5'#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22
+  +#255#255#255'w'#164#131#0'U'#22#0'U'#22#0'U'#22#0'U'#22#255#255#255'w'#164
+  +#131#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22
+  +#221#232#224#255#255#255#238#244#239'w'#164#131#153#187#162#255#255#255#255
+  +#255#255#255#255#255'D'#130'T'#0'U'#22#0'U'#22#0'U'#22'U'#142'd'#255#255#255
+  +#255#255#255#221#232#224#0'U'#22#0'U'#22#0'U'#22'f'#153'sw'#164#131'w'#164
+  +#131#238#244#239#255#255#255#238#244#239'w'#164#131'w'#164#131'f'#153's'#0'U'
+  +#22#0'U'#22'U'#142'd'#255#255#255#255#255#255#221#232#224#0'U'#22#0'U'#22#0
+  +'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22'U'#142'd'#255
+  +#255#255#255#255#255#221#232#224#0'U'#22#0'U'#22#0'U'#22#0'U'#22#0'U'#22#221
+  +#232#224#255#255#255#221#232#224#0'U'#22'3wE'#255#255#255#255#255#255#204#221
+  +#208#0'U'#22#0'U'#22#238#244#239#255#255#255#255#255#255'U'#142'dw'#164#131
+  +'w'#164#131#0'U'#22'f'#153'sw'#164#131'w'#164#131#238#244#239#255#255#255#238
+  +#244#239'w'#164#131'w'#164#131'f'#153's'#0'U'#22#221#232#224#255#255#255#238
+  +#244#239'U'#142'd'#153#187#162#255#255#255#255#255#255#204#221#208#0'U'#22#0
+  ,'U'#22#0'U'#22#0'U'#22#0'U'#22'U'#142'd'#255#255#255#255#255#255#221#232#224
+  +#0'U'#22#0'U'#22#0'U'#22#0'U'#22'D'#130'T'#255#255#255#255#255#255#255#255
+  +#255#187#210#193#136#176#146#187#210#193#136#176#146#0'U'#22'f'#153'sw'#164
+  +#131'w'#164#131#238#244#239#255#255#255#238#244#239'w'#164#131'w'#164#131'f'
+  +#153's'#0'U'#22#0'U'#22#0#0#0#0#0#0#0'X'#15'w'#166#127#255#255#255'D'#133'Of'
+  +#155'o'#238#244#239#170#199#175#0'X'#15#0'X'#15#0'X'#15#255#255#255#153#188
+  +#159'U'#144'_U'#144'_D'#133'O'#0'X'#15#0'X'#15#153#188#159#221#233#223#0'X'
+  +#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15'w'#166#127#255#255#255#0'X'#15#0'X'#15#0
+  +'X'#15#17'c'#31#204#222#207#238#244#239#136#177#143'U'#144'_U'#144'_'#187#210
+  +#191#255#255#255'w'#166#127#0'X'#15#0'X'#15#0'X'#15#255#255#255#136#177#143
+  +'D'#133'O'#221#233#223#204#222#207#0'X'#15#0'X'#15#0'X'#15#255#255#255'w'#166
+  +#127#0'X'#15#0'X'#15#255#255#255#153#188#159'U'#144'_U'#144'_D'#133'O'#0'X'
+  +#15#0'X'#15#17'c'#31#204#222#207#238#244#239#153#188#159'U'#144'_U'#144'_'
+  +#153#188#159#136#177#143#17'c'#31'U'#144'_U'#144'_U'#144'_'#255#255#255#153
+  +#188#159'U'#144'_U'#144'_3y?'#0'X'#15#204#222#207#204#222#207'D'#133'OD'#133
+  +'O'#153#188#159#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#221#233#223
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'f'
+  +#155'o'#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#221#233#223#255#255#255'f'
+  +#155'o'#0'X'#15#0'X'#15#0'X'#15#204#222#207#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#204#222#207#0'X'#15#0'X'
+  +#15#0'X'#15#221#233#223#255#255#255'f'#155'o'#0'X'#15#0'X'#15#0'X'#15#0'X'#15
+  +#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#221#233#223#255#255
+  +#255'f'#155'o'#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#221#233#223#255#255
+  +#255#255#255#255#221#233#223#255#255#255#255#255#255#255#255#255'w'#166#127#0
+  +'X'#15#0'X'#15#136#177#143#255#255#255#255#255#255#255#255#255#255#255#255
+  +#136#177#143#0'X'#15#204#222#207#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#204#222#207#0'X'#15#221#233#223#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'U'#144
+  +'_'#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15#221#233#223#255#255#255
+  +'f'#155'o'#0'X'#15#0'X'#15#0'X'#15#0'X'#15#0'X'#15'f'#155'o'#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#136#177#143#0'X'#15#204#222#207
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#204#222#207#0'X'#15#0'X'#15#0#0#0#0#0#0#0'['#15'f'#157'o'#255#255
+  +#255#255#255#255#238#244#239#153#189#159#0'['#15#0'['#15#0'['#15#0'['#15#255
+  +#255#255#255#255#255#255#255#255#255#255#255#238#244#239#0'['#15#0'['#15'w'
+  +#168#127'w'#168#127#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#221#233
+  +#223#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#136#178#143#221#233#223#255#255
+  +#255#255#255#255#204#222#207'D'#135'O'#0'['#15#0'['#15#0'['#15#0'['#15#255
+  +#255#255#255#255#255#255#255#255#204#222#207'"q/'#0'['#15#0'['#15#0'['#15#255
+  +#255#255'f'#157'o'#0'['#15#0'['#15#255#255#255#255#255#255#255#255#255#255
+  +#255#255#238#244#239#0'['#15#0'['#15#0'['#15#0'['#15'w'#168#127#221#233#223
+  +#255#255#255#255#255#255#221#233#223'U'#146'_f'#157'o'#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#204#222#207
+  +#0'['#15'"q/'#187#211#191#255#255#255#255#255#255#204#222#207#0'['#15#0'['#15
+  +#0'['#15#0'['#15#0'['#15#0'['#15#221#233#223#221#233#223#221#233#223#221#233
+  +#223#238#244#239#170#200#175'D'#135'O'#0'['#15#0'['#15#0'['#15#0'['#15#0'['
+  +#15#0'['#15'U'#146'_'#204#222#207#0'['#15#0'['#15#0'['#15#0'['#15#187#211#191
+  +#221#233#223#221#233#223#221#233#223#221#233#223#221#233#223#221#233#223#221
+  +#233#223#187#211#191#0'['#15#0'['#15#0'['#15'U'#146'_'#204#222#207#0'['#15#0
+  +'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['
+  +#15#0'['#15'U'#146'_'#204#222#207#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0
+  +'['#15#221#233#223#221#233#223#221#233#223#221#233#223#221#233#223#187#211
+  +#191'w'#168#127#0'['#15#0'['#15#0'['#15#0'['#15'w'#168#127#204#222#207#221
+  +#233#223#221#233#223'w'#168#127#0'['#15#187#211#191#221#233#223#221#233#223
+  +#221#233#223#221#233#223#221#233#223#221#233#223#221#233#223#187#211#191#0'['
+  +#15#221#233#223#221#233#223#221#233#223#221#233#223#221#233#223#170#200#175
+  +'D'#135'O'#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15'U'#146'_'
+  +#204#222#207#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15#0'['#15'3|?'#170
+  +#200#175#221#233#223#221#233#223#221#233#223'w'#168#127#0'['#15#187#211#191
+  +#221#233#223#221#233#223#221#233#223#221#233#223#221#233#223#221#233#223#221
+  +#233#223#187#211#191#0'['#15#0'['#15#0#0#0#0#0#0#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  ,'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'
+  +#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0
+  +'d'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0'd'#14#0#0#0#0#0#0#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'
+  +#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0'b'#12#0
+  +#0#0#0#0#0#0'^'#9'"s*'#255#255#255#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9
+  +#0'^'#9'D'#137'K'#221#234#222#255#255#255#255#255#255#221#234#222'D'#137'K'#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9'"s*'#221#234#222#0'^'#9#17'i'#25#221
+  +#234#222#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#255#255#255#255#255#255
+  +#255#255#255#187#212#189#0'^'#9#0'^'#9#0'^'#9'"s*'#255#255#255#0'^'#9#0'^'#9
+  +#187#212#189#221#234#222#0'^'#9#0'^'#9#0'^'#9#255#255#255#255#255#255#255#255
+  +#255#187#212#189#0'^'#9#0'^'#9#0'^'#9'"s*'#255#255#255#255#255#255#255#255
+  +#255'w'#169'|'#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9
+  +#0'^'#9'"s*'#255#255#255#255#255#255#255#255#255'D'#137'K'#0'^'#9#0'^'#9#0'^'
+  +#9#0'^'#9'"s*'#255#255#255#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0'^'#9#0
+  +#0#0#0#0#0#0'g'#4'"{%'#255#255#255#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4
+  +'D'#144'G'#255#255#255'w'#174'y'#0'g'#4#0'g'#4'w'#174'y'#255#255#255'D'#144
+  ,'G'#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#153#194#155#255#255#255'D'#144'G'#136
+  +#184#138#255#255#255'D'#144'G'#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#255#255#255
+  +'"{%'#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4'"{%'#255#255#255#0'g'#4'w'#174'y'
+  +#255#255#255#17'q'#21#0'g'#4#0'g'#4#0'g'#4#255#255#255'"{%'#0'g'#4#0'g'#4#0
+  +'g'#4#0'g'#4#0'g'#4'"{%'#255#255#255#0'g'#4'"{%'#221#235#222#136#184#138#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4'"{%'#255#255#255#0
+  +'g'#4'w'#174'y'#255#255#255#0'g'#4#0'g'#4#0'g'#4#0'g'#4'"{%'#255#255#255#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'
+  +#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0'g'#4#0#0#0#0#0#0#0#127#2'"'#144'$'
+  +#255#255#255#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#238#246#238'w'
+  +#187'x'#0#127#2#0#127#2#0#127#2#0#127#2'w'#187'x'#221#238#221#0#127#2#0#127#2
+  +#0#127#2#0#127#2#0#127#2#255#255#255#136#195#137#221#238#221#255#255#255#153
+  +#204#154#204#229#204#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#255#255#255'"'
+  +#144'$'#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2'"'#144'$'#255#255#255'"'#144
+  +'$'#255#255#255'D'#161'E'#0#127#2#0#127#2#0#127#2#0#127#2#255#255#255'"'#144
+  +'$'#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2'"'#144'$'#255#255#255#0#127#2#0
+  +#127#2'D'#161'E'#255#255#255#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2
+  +#0#127#2#0#127#2#0#127#2'"'#144'$'#255#255#255#0#127#2'U'#170'V'#255#255#255
+  +#0#127#2#0#127#2#0#127#2#0#127#2'"'#144'$'#255#255#255#0#127#2#0#127#2#0#127
+  +#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0
+  +#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127
+  +#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0
+  +#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127
+  +#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0
+  +#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127
+  +#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0
+  +#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127
+  +#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0
+  +#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127
+  +#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0
+  +#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127
+  +#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0#127#2#0
+  +#127#2#0#127#2#0#0#0#0#0#0#0#138#2'"'#154'$'#255#255#255#255#255#255#255#255
+  +#255'U'#177'V'#0#138#2#0#138#2#0#138#2#255#255#255'"'#154'$'#0#138#2#0#138#2
+  +#0#138#2#0#138#2'"'#154'$'#255#255#255#0#138#2#0#138#2#0#138#2#0#138#2#136
+  +#200#137#187#224#188#0#138#2#255#255#255#187#224#188#0#138#2#255#255#255'3'
+  +#161'5'#0#138#2#0#138#2#0#138#2#0#138#2#255#255#255#255#255#255#255#255#255
+  +#153#208#154#0#138#2#0#138#2#0#138#2'"'#154'$'#255#255#255#255#255#255#255
+  +#255#255'U'#177'V'#0#138#2#0#138#2#0#138#2#0#138#2#255#255#255#255#255#255
+  +#255#255#255#153#208#154#0#138#2#0#138#2#0#138#2'"'#154'$'#255#255#255#0#138
+  +#2#0#138#2#0#138#2#255#255#255#17#146#19#0#138#2#0#138#2#0#138#2#0#138#2#0
+  +#138#2#0#138#2#0#138#2#0#138#2'"'#154'$'#255#255#255#255#255#255#255#255#255
+  +'U'#177'V'#0#138#2#0#138#2#0#138#2#0#138#2'w'#193'x'#255#255#255'3'#161'5'#0
+  +#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138
+  +#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0
+  +#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138
+  +#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0
+  +#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138
+  +#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0
+  +#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138
+  +#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0
+  +#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138
+  +#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0
+  +#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138
+  ,#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0
+  +#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138#2#0#138
+  +#2#0#138#2#0#138#2#0#138#2#0#0#0#0#0#0#0'{'#3'"'#141'%'#255#255#255#0'{'#3'f'
+  +#176'h'#255#255#255#0'{'#3#0'{'#3#0'{'#3#238#246#238'w'#185'y'#0'{'#3#0'{'#3
+  +#0'{'#3#0'{'#3'w'#185'y'#238#246#238#0'{'#3#0'{'#3#0'{'#3#0'{'#3#255#255#255
+  +'D'#158'F'#0'{'#3#255#255#255#187#220#188#0'{'#3#136#193#137#187#220#188#0'{'
+  +#3#0'{'#3#0'{'#3#0'{'#3#255#255#255'"'#141'%'#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3'"'#141'%'#255#255#255#0'{'#3'U'#167'W'#255#255#255#0'{'#3#0'{'#3#0'{'#3
+  +#0'{'#3#255#255#255'"'#141'%'#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3'"'#141'%'
+  +#255#255#255#0'{'#3#0'{'#3'D'#158'F'#255#255#255#0'{'#3#0'{'#3#0'{'#3#0'{'#3
+  +#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3'"'#141'%'#255#255#255'"'#141'%'#255#255
+  +#255#0'{'#3#0'{'#3#0'{'#3#0'{'#3'"'#141'%'#255#255#255#187#220#188#204#229
+  +#205#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0
+  +'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0'{'#3#0#0#0#0#0#0#0'}'#4'"'#142'%'
+  +#255#255#255#0'}'#4'f'#177'h'#255#255#255#0'}'#4#0'}'#4#0'}'#4'D'#160'G'#255
+  +#255#255'w'#186'y'#0'}'#4#0'}'#4'w'#186'y'#255#255#255'D'#160'G'#0'}'#4#0'}'
+  +#4#0'}'#4'w'#186'y'#221#238#222#0'}'#4'w'#186'y'#221#238#222#255#255#255'"'
+  +#142'%'#0'}'#4#255#255#255'"'#142'%'#0'}'#4#0'}'#4#0'}'#4#255#255#255'"'#142
+  +'%'#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4'"'#142'%'#255#255#255#0'}'#4'w'#186'y'
+  +#255#255#255#0'}'#4#0'}'#4#0'}'#4#0'}'#4#255#255#255'"'#142'%'#0'}'#4#0'}'#4
+  +#0'}'#4#0'}'#4#0'}'#4'"'#142'%'#255#255#255#0'}'#4'"'#142'%'#221#238#222#136
+  +#194#138#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4'"'
+  +#142'%'#255#255#255#0'}'#4#255#255#255#17#134#21#0'}'#4#0'}'#4#0'}'#4#187#220
+  +#188#153#203#155#0'}'#4#204#229#205#136#194#138#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0'}'#4#0
+  +'}'#4#0#0#0#0#0#0#0'w'#4'"'#137'%'#255#255#255#255#255#255#238#246#238'U'#164
+  +'X'#0'w'#4#0'w'#4#0'w'#4#0'w'#4'D'#155'G'#221#237#222#255#255#255#255#255#255
+  +#221#237#222'D'#155'G'#0'w'#4#0'w'#4#0'w'#4#0'w'#4#255#255#255'f'#173'h'#0'w'
+  +#4#255#255#255'f'#173'h'#153#201#155#187#219#188#0'w'#4#170#210#171#187#219
+  +#188#0'w'#4#0'w'#4#0'w'#4#255#255#255#255#255#255#255#255#255#187#219#188#0
+  +'w'#4#0'w'#4#0'w'#4'"'#137'%'#255#255#255#255#255#255#238#246#238'D'#155'G'#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#255#255#255#255#255#255#255#255#255#187#219#188#0
+  +'w'#4#0'w'#4#0'w'#4'"'#137'%'#255#255#255#255#255#255#255#255#255#136#192#138
+  +#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4'"'#137
+  +'%'#255#255#255#255#255#255#170#210#171#0'w'#4#0'w'#4#0'w'#4'w'#182'y'#255
+  +#255#255#0'w'#4#0'w'#4'3'#146'6'#255#255#255'D'#155'G'#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  ,'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0'w'#4#0
+  +'w'#4#0#0#0#0#0#0#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0'n'#5#0
+  +'n'#5#0'n'#5#0'n'#5#0'n'#5#0#0#0#0#0#0#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0
+  +'t'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0't'#6#0#0#0#0#0#0#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0
+  +'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0'w'#5#0#0#0#0
+  +#0#0#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3
+  +#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  ,#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133
+  +#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0#133#3#0
+  +#133#3#0#133#3#0#0#0#0#0#0#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0
+  +#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138#8#0#138
+  +#8#0#138#8#0#138#8#0#138#8#0#138#8#0#0#0#0#0#0#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  ,#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153
+  +#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0#153#14#0
+  +#153#14#0#153#14#0#153#14#0#0#0#0#0#0#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183
+  +#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0#183#13#0
+  +#183#13#0#183#13#0#0#0#0#0#0#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168
+  +#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0#168#12#0
+  +#168#12#0#0#0#0#0#0#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  ,#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188
+  +#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0#188#14#0
+  +#0#0#0#0#0#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0
+  +#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203
+  +#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#203#16#0#0#0#0#0
+  +#0#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0
+  +#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221
+  +#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#221#24#0#0#0#0#0#0#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  ,#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0
+  +#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229
+  +#31#0#229#31#0#229#31#0#229#31#0#229#31#0#229#31#0#0#0#0#0#0#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0
+  +#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215' '#0#215
+  +' '#0#215' '#0#215' '#0#215' '#0#215' '#0#0#0#0#0#0#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  ,#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0
+  +#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201'#'#0#201
+  +'#'#0#201'#'#0#201'#'#0#201'#'#0#0#0#0#0#0#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0
+  +#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168'"'#0#168
+  +'"'#0#168'"'#0#168'"'#0#0#0#0#0#0#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0
+  +#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150'+'#0#150
+  +'+'#0#150'+'#0#0#0#0#0#0#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n'
+  +'$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0
+  +'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'
+  +#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n'
+  +'$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0
+  ,'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'
+  +#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n'
+  +'$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0
+  +'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'
+  +#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n'
+  +'$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0
+  +'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'
+  +#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n'
+  +'$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0
+  +'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'
+  +#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n'
+  +'$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0'n$'#0#0#0#0
+  +#0#0#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27
+  +#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0
+  +'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'#27#0'p'
+  +#27#0'p'#27#0#0#0#0#0#0#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30
+  +#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0
+  +#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158#30#0#158
+  +#30#0#0#0#0#0#0#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  ,#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136
+  +#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0
+  +#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#136#25#0#0#0
+  +#0#0#0#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g'
+  +'%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0
+  +'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'
+  +#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g'
+  +'%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0
+  +'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'
+  +#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g'
+  +'%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0
+  +'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'
+  +#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g'
+  +'%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0
+  +'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'
+  +#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g'
+  +'%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0
+  +'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'
+  +#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g'
+  +'%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0'g%'#0#0#0#0#0#0#0'N!'#0'N!'#0
+  +'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'
+  +#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N'
+  +'!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0
+  +'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'
+  +#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N'
+  +'!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0
+  +'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'
+  +#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N'
+  +'!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0
+  +'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'
+  +#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N'
+  +'!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0
+  +'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'
+  +#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N'
+  +'!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0
+  +'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'
+  +#0'N!'#0'N!'#0'N!'#0'N!'#0'N!'#0#0#0#0#0#0#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  ,'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0
+  +'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'
+  +#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#0'T'#29#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#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#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#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#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#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#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#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#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
+]);
+LazarusResources.Add('POWERED_BY_DATAABSTRACT_SERVER','BMP',[
+  'BMxw'#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#212#0#0#0'0'#0#0#0#1#0#24#0#0#0#0#0'Bw'#0
+  +#0#18#11#0#0#18#11#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#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#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#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#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#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#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#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#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#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#2
+  +'G'#0#2'G'#0#2'G'#0#2'G'#0#2'G'#0#0#0#0#0#0#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2
+  +'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2
+  +'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2
+  +'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2
+  +'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'Hwx'#157#255#255#255
+  +#238#238#243'UV'#133#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'
+  +#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#2'H'#0#0#0#0#0#0#0
+  +#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0
+  +#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0
+  +#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0
+  +#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0
+  +#4'M'#0#4'MUX'#136'UX'#136#170#171#196#255#255#255'"%e'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  ,#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'#0#4'M'
+  +#0#4'M'#0#4'M'#0#0#0#0#0#0#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0
+  +#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0
+  +#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0
+  +#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0
+  +#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#17#25'Z'#255#255#255
+  +'fk'#149#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9
+  +'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#9'N'#0#0#0#0#0#0#0#9'Bfk'#142#255
+  +#255#255#0#9'B'#0#9'B'#0#9'B'#187#189#205#255#255#255'"*['#0#9'B'#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#0#9'B'#187#189#205#204#206
+  +#217#0#9'B'#0#9'B'#0#9'B'#204#206#217'"*['#0#9'B'#0#9'B'#170#173#192#255#255
+  +#255#0#9'B'#0#9'B'#0#9'B'#0#9'B'#136#140#167#221#222#230#255#255#255#255#255
+  +#255#204#206#217'DKt'#0#9'B'#0#9'B'#0#9'B'#0#9'B'#255#255#255#255#255#255#255
+  +#255#255#204#206#217'3:h'#0#9'B'#0#9'B'#0#9'B'#255#255#255'w|'#154#0#9'B'#0#9
+  +'B'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#9'B'#0#9'B'
+  +#0#9'B'#0#9'B'#136#140#167#221#222#230#255#255#255#255#255#255#221#222#230'f'
+  +'k'#142#0#9'B'#0#9'B'#0#9'B'#0#9'B'#255#255#255'fk'#142#0#9'B'#0#9'B'#0#9'B3'
+  +':h'#221#222#230#255#255#255#255#255#255#170#173#192#17#25'O'#0#9'B'#0#9'B'#0
+  +#9'B'#0#9'B'#0#9'B'#0#9'B'#221#222#230#221#222#230#221#222#230#221#222#230
+  +#238#239#242#170#173#192'DKt'#0#9'B'#0#9'B'#170#173#192#221#222#230#221#222
+  +#230#0#9'B'#0#9'B'#0#9'B'#0#9'B'#187#189#205#221#222#230#221#222#230'fk'#142
+  +#0#9'B'#0#9'B'#221#222#230#221#222#230#221#222#230#0#9'B'#0#9'B'#170#173#192
+  +#221#222#230#221#222#230#0#9'B'#0#9'B'#0#9'B'#0#9'B'#187#189#205#221#222#230
+  +#221#222#230'fk'#142#0#9'B'#0#9'B'#0#9'B'#170#173#192#221#222#230#221#222#230
+  +#0#9'B'#0#9'B'#0#9'B'#0#9'B'#187#189#205#221#222#230#221#222#230'fk'#142#0#9
+  +'B'#221#222#230#221#222#230#221#222#230#221#222#230#238#239#242#187#189#205
+  +'DKt'#0#9'B'#0#9'Bfk'#142#204#206#217#238#239#242#238#239#242#187#189#205'DK'
+  +'t'#0#9'B'#0#9'B'#0#9'B'#0#9'B'#0#9'B'#221#222#230#221#222#230#221#222#230#0
+  +#9'B'#0#9'B'#0#9'B'#0#9'B'#221#222#230#221#222#230#221#222#230#0#9'B"*['#221
+  +#222#230#221#222#230#221#222#230#153#157#179#0#9'B'#170#173#192#221#222#230
+  +#221#222#230#0#9'B'#0#9'B'#0#9'B'#0#9'B'#187#189#205#221#222#230#221#222#230
+  +'fk'#142#0#9'B'#0#9'B3:h'#170#173#192#221#222#230#221#222#230#221#222#230'w|'
+  +#154#0#9'B'#0#9'B'#0#9'B'#0#9'B'#221#222#230#221#222#230#221#222#230#0#9'B'#0
+  +#9'B'#0#9'B'#0#9'B'#0#9'B'#0#0#0#0#0#0#0#12'Lw}'#160#255#255#255#0#12'L'#0#12
+  +'Lfm'#148#255#255#255'U]'#136#0#12'L'#0#12'L'#255#255#255#153#158#183'U]'#136
+  +'U]'#136'DM|'#0#12'L'#153#158#183#238#239#243#0#12'L'#0#12'LDM|'#255#255#255
+  +#153#158#183#0#12'L'#0#12'L'#187#190#207#204#206#219#0#12'L'#0#12'L'#17#28'X'
+  +#204#206#219#238#239#243#136#142#171'U]'#136'U]'#136#187#190#207#255#255#255
+  +'w}'#160#0#12'L'#0#12'L'#0#12'L'#255#255#255#136#142#171'DM|'#187#190#207#238
+  +#239#243#17#28'X'#0#12'L'#0#12'L'#255#255#255'w}'#160#0#12'L'#0#12'L'#255#255
+  ,#255#153#158#183'U]'#136'U]'#136'DM|'#0#12'L'#0#12'L'#17#28'X'#204#206#219
+  +#238#239#243#136#142#171'U]'#136'U]'#136#136#142#171#153#158#183#0#12'L'#0#12
+  +'L'#0#12'L'#0#12'L'#255#255#255'w}'#160#0#12'L'#0#12'L'#0#12'LU]'#136#153#158
+  +#183'DM|DM|'#221#223#231#187#190#207#0#12'L'#0#12'L'#0#12'L'#0#12'L'#0#12'L'
+  +#0#12'L'#221#223#231#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255'fm'#148#0#12'LDM|'#255#255#255#255#255#255#136#142#171'U]'
+  +#136'U]'#136'fm'#148#255#255#255#255#255#255#221#223#231#0#12'L'#0#12'L'#0#12
+  +'L'#221#223#231#255#255#255#221#223#231#0#12'L'#0#12'LDM|'#255#255#255#255
+  +#255#255#136#142#171'U]'#136'U]'#136'fm'#148#255#255#255#255#255#255#221#223
+  +#231#0#12'L'#0#12'L'#0#12'L'#0#12'LDM|'#255#255#255#255#255#255#136#142#171
+  +'U]'#136'U]'#136'fm'#148#255#255#255#255#255#255#221#223#231#0#12'L'#0#12'L'
+  +#221#223#231#255#255#255#255#255#255#221#223#231#255#255#255#255#255#255#255
+  +#255#255'fm'#148#0#12'Lw}'#160#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255'U]'#136#0#12'L'#0#12'L'#0#12'L'#0#12'L'#221#223#231#255#255
+  +#255#221#223#231#0#12'L'#0#12'L'#0#12'L'#0#12'L'#221#223#231#255#255#255#221
+  +#223#231#0#12'L'#204#206#219#255#255#255#255#255#255#238#239#243#17#28'X'#0
+  +#12'LDM|'#255#255#255#255#255#255#136#142#171'U]'#136'U]'#136'fm'#148#255#255
+  +#255#255#255#255#221#223#231#0#12'L'#0#12'Lfm'#148#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#170#174#195#0#12'L'#0#12'L'#0#12'L'#0#12
+  +'L'#221#223#231#255#255#255#221#223#231#0#12'L'#0#12'L'#0#12'L'#0#12'L'#0#12
+  +'L'#0#0#0#0#0#0#0#24'Nw'#132#161#255#255#255#0#24'N"7f'#238#240#243#153#163
+  +#184#0#24'N'#0#24'N'#0#24'N'#255#255#255'w'#132#161#0#24'N'#0#24'N'#0#24'N'#0
+  +#24'Nft'#149#255#255#255#0#24'N'#0#24'N'#187#193#208#204#209#220#255#255#255
+  +#17'''Z'#0#24'N'#204#209#220#170#178#196#0#24'N'#0#24'N'#187#193#208#221#224
+  +#231'"7f'#0#24'N'#0#24'N'#0#24'N'#0#24'Nft'#149#255#255#255'Ue'#137#0#24'N'#0
+  +#24'N'#255#255#255'w'#132#161#0#24'N"7f'#255#255#255'ft'#149#0#24'N'#0#24'N'
+  +#255#255#255'w'#132#161#0#24'N'#0#24'N'#255#255#255'w'#132#161#0#24'N'#0#24
+  +'N'#0#24'N'#0#24'N'#0#24'N'#187#193#208#238#240#243'"7f'#0#24'N'#0#24'N'#0#24
+  +'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#255#255#255'w'#132#161#0
+  +#24'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#153#163#184#255#255
+  +#255#0#24'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#221#224#231#255#255#255
+  +#238#240#243'w'#132#161#153#163#184#255#255#255#255#255#255#255#255#255'DV}'
+  +#0#24'N'#187#193#208#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255'ft'#149#0#24'N'#0#24'N'#0#24'N'#221#224#231#255
+  +#255#255#221#224#231#0#24'N'#0#24'N'#0#24'N'#187#193#208#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'ft'#149#0#24
+  +'N'#0#24'N'#0#24'N'#0#24'N'#0#24'N'#187#193#208#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255'ft'#149#0#24'N'#0#24
+  +'N'#221#224#231#255#255#255#221#224#231#0#24'N"7f'#255#255#255#255#255#255
+  +#221#224#231#0#24'Nft'#149#204#209#220'ft'#149'ft'#149#255#255#255#255#255
+  +#255#204#209#220#0#24'N'#0#24'N'#0#24'N'#0#24'N'#221#224#231#255#255#255#221
+  +#224#231#0#24'N'#0#24'N'#0#24'N'#0#24'N'#221#224#231#255#255#255#221#224#231
+  +'w'#132#161#255#255#255#255#255#255#255#255#255'Ue'#137#0#24'N'#0#24'N'#0#24
+  +'N'#187#193#208#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255'ft'#149#0#24'NDV}'#255#255#255#255#255#255#255#255
+  +#255#187#193#208#136#147#172#187#193#208#170#178#196#0#24'N'#0#24'N'#0#24'N'
+  +#0#24'N'#221#224#231#255#255#255#221#224#231#0#24'N'#0#24'N'#0#24'N'#0#24'N'
+  +#0#24'N'#0#0#0#0#0#0#0'+Qw'#142#162#255#255#255#0'+Q'#187#198#209#221#227#232
+  +#0'+Q'#0'+Q'#0'+Q'#0'+Q'#255#255#255'w'#142#162#0'+Q'#0'+Q'#0'+Q'#0'+QDd'#127
+  +#255#255#255'3Ut"Gh'#255#255#255'3Ut'#187#198#209'w'#142#162#0'+Q'#238#241
+  +#243#153#170#185#0'+Q"Gh'#255#255#255'f'#128#151#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+'
+  +'Q'#0'+Q'#187#198#209#204#213#220#0'+Q'#0'+Q'#255#255#255'w'#142#162#0'+Q'#17
+  +'9]'#255#255#255'f'#128#151#0'+Q'#0'+Q'#255#255#255'w'#142#162#0'+Q'#0'+Q'
+  +#255#255#255'w'#142#162#0'+Q'#0'+Q'#0'+Q'#0'+Q"Gh'#255#255#255'f'#128#151#0
+  +'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#255#255#255'w'#142
+  +#162#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#204#213#220#238#241#243#0'+Q'
+  +#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#221#227#232#255#255#255#221#227#232#0'+Q'#0'+'
+  +'Qf'#128#151#255#255#255#255#255#255#170#184#197#0'+QDd'#127#255#255#255#255
+  +#255#255#238#241#243#238#241#243#255#255#255#255#255#255#221#227#232#0'+Q'#0
+  +'+Q'#0'+Q'#0'+Q'#221#227#232#255#255#255#221#227#232#0'+Q'#0'+Q'#0'+QDd'#127
+  +#255#255#255#255#255#255#238#241#243#238#241#243#255#255#255#255#255#255#221
+  +#227#232#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+Q'#0'+QDd'#127#255#255#255#255#255#255
+  +#238#241#243#238#241#243#255#255#255#255#255#255#221#227#232#0'+Q'#0'+Q'#0'+'
+  +'Q'#221#227#232#255#255#255#221#227#232#0'+Q3Ut'#255#255#255#255#255#255#221
+  ,#227#232#0'+Q'#17'9]'#0'+Q'#0'+Qw'#142#162#255#255#255#255#255#255#238#241
+  +#243#0'+Q'#0'+Q'#0'+Q'#0'+Q'#221#227#232#255#255#255#221#227#232#0'+Q'#0'+Q'
+  +#0'+Q'#0'+Q'#221#227#232#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#136#156#174#0'+Q'#0'+Q'#0'+Q'#0'+QDd'#127#255#255#255#255#255#255
+  +#238#241#243#238#241#243#255#255#255#255#255#255#221#227#232#0'+Q'#0'+Q'#170
+  +#184#197#255#255#255#255#255#255'w'#142#162#0'+Q'#0'+Q'#0'+Q'#17'9]'#0'+Q'#0
+  +'+Q'#0'+Q'#0'+Q'#221#227#232#255#255#255#221#227#232#0'+Q'#0'+Q'#0'+Q'#0'+Q'
+  +#0'+Q'#0#0#0#0#0#0#0'4Vw'#147#165#255#255#255#255#255#255#255#255#255#187#201
+  +#210#17'Ba'#0'4V'#0'4V'#0'4V'#255#255#255#153#174#187'Ux'#142'Ux'#142'3]x'#0
+  +'4V"Om'#255#255#255'Dj'#131#153#174#187#187#201#210#0'4VDj'#131#238#241#244#0
+  +'4V'#255#255#255'w'#147#165#0'4Vf'#133#154#255#255#255#17'Ba'#0'4V'#0'4V'#0
+  +'4V'#0'4V'#0'4V'#0'4Vw'#147#165#255#255#255#0'4V'#0'4V'#255#255#255'w'#147
+  +#165#17'Ba'#153#174#187#238#241#244#17'Ba'#0'4V'#0'4V'#255#255#255'w'#147#165
+  +#0'4V'#0'4V'#255#255#255#153#174#187'Ux'#142'Ux'#142'3]x'#0'4Vf'#133#154#255
+  +#255#255#17'Ba'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'
+  +#255#255#255'w'#147#165#0'4V'#0'4V'#0'4V'#0'4V'#0'4V3]x'#221#228#232#255#255
+  +#255'Ux'#142#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#221#228#232#255#255#255#221
+  +#228#232#0'4V'#0'4V'#17'Ba'#238#241#244#255#255#255#221#228#232#0'4V'#0'4V'
+  +#204#214#221#255#255#255#153#174#187'f'#133#154#255#255#255#255#255#255'f'
+  +#133#154#0'4V'#0'4V'#0'4V'#0'4V'#221#228#232#255#255#255#221#228#232#0'4V'#0
+  +'4V'#0'4V'#0'4V'#204#214#221#255#255#255#153#174#187'f'#133#154#255#255#255
+  +#255#255#255'f'#133#154#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#204#214#221
+  +#255#255#255#153#174#187'f'#133#154#255#255#255#255#255#255'f'#133#154#0'4V'
+  +#0'4V'#0'4V'#221#228#232#255#255#255#255#255#255#221#228#232#255#255#255#255
+  +#255#255#255#255#255'Ux'#142#0'4V'#0'4V'#0'4V'#170#187#199#255#255#255#255
+  +#255#255#255#255#255#153#174#187#0'4V'#0'4V'#0'4V'#0'4V'#221#228#232#255#255
+  +#255#221#228#232#0'4V'#0'4V'#0'4V'#0'4V'#221#228#232#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#170#187#199#17'Ba'#0'4V'#0'4V'#0'4V'#0
+  +'4V'#204#214#221#255#255#255#153#174#187'f'#133#154#255#255#255#255#255#255
+  +'f'#133#154#0'4V'#0'4V'#221#228#232#255#255#255#238#241#244#17'Ba'#0'4V'#0'4'
+  +'V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0'4V'#221#228#232#255#255#255#221#228#232#0
+  +'4V'#0'4V'#0'4V'#0'4V'#0'4V'#0#0#0#0#0#0#0'8Pw'#149#162#255#255#255#0'8P3`s'
+  +#221#228#232#170#189#197#0'8P'#0'8P'#0'8P'#255#255#255#255#255#255#255#255
+  +#255#255#255#255#170#189#197#0'8P'#0'8P'#255#255#255'w'#149#162#255#255#255
+  +'Dm'#127#0'8P'#0'8P'#204#215#220'f'#136#150#255#255#255'Uz'#138#0'8Pf'#136
+  +#150#255#255#255#17'E\'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0'8Pw'#149#162#255#255
+  +#255#0'8P'#0'8P'#255#255#255#255#255#255#255#255#255#255#255#255'Dm'#127#0'8'
+  +'P'#0'8P'#0'8P'#255#255#255'w'#149#162#0'8P'#0'8P'#255#255#255#255#255#255
+  +#255#255#255#255#255#255#170#189#197#0'8Pf'#136#150#255#255#255#17'E\'#0'8P'
+  +#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#255#255#255'w'#149#162
+  +#0'8P'#0'8P'#0'8P'#0'8PDm'#127#255#255#255#238#242#243'Dm'#127#0'8P'#0'8P'#0
+  +'8P'#0'8P'#0'8P'#0'8P'#0'8P'#221#228#232#255#255#255#221#228#232#0'8P'#0'8P'
+  +#17'E\'#238#242#243#255#255#255#238#242#243#0'8P'#0'8PUz'#138#255#255#255#238
+  +#242#243#221#228#232#255#255#255#221#228#232#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'
+  +#221#228#232#255#255#255#221#228#232#0'8P'#0'8P'#0'8P'#0'8PUz'#138#255#255
+  +#255#238#242#243#221#228#232#255#255#255#221#228#232#0'8P'#0'8P'#0'8P'#0'8P'
+  +#0'8P'#0'8P'#0'8P'#0'8PUz'#138#255#255#255#238#242#243#221#228#232#255#255
+  +#255#221#228#232#0'8P'#0'8P'#0'8P'#0'8P'#221#228#232#255#255#255#255#255#255
+  +#221#228#232#255#255#255#255#255#255#204#215#220#17'E\'#0'8P'#0'8P'#153#175
+  +#185#255#255#255#255#255#255#255#255#255#187#202#208#17'E\'#0'8P'#0'8P'#0'8P'
+  +#0'8P'#221#228#232#255#255#255#221#228#232#0'8P'#0'8P'#0'8P'#0'8P'#221#228
+  +#232#255#255#255#238#242#243'3`sf'#136#150#255#255#255#255#255#255#170#189
+  +#197#0'8P'#0'8P'#0'8P'#0'8PUz'#138#255#255#255#238#242#243#221#228#232#255
+  +#255#255#221#228#232#0'8P'#0'8P'#0'8P'#238#242#243#255#255#255#238#242#243#17
+  +'E\'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#221#228#232#255#255#255
+  +#221#228#232#0'8P'#0'8P'#0'8P'#0'8P'#0'8P'#0#0#0#0#0#0#0'EZw'#156#167#255#255
+  +#255#0'EZ'#0'EZw'#156#167#255#255#255#0'EZ'#0'EZ'#0'EZ'#255#255#255'w'#156
+  +#167#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#221#230#233#255#255#255#204#218#222#0'EZ'
+  +#0'EZ'#0'EZU'#131#145#255#255#255#255#255#255'Dw'#134#0'EZ"^p'#255#255#255'f'
+  +#143#156#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#187#205#211#204#218#222#0'EZ'#0
+  +'EZ'#255#255#255'w'#156#167#17'Qe'#187#205#211#187#205#211#0'EZ'#0'EZ'#0'EZ'
+  +#255#255#255'w'#156#167#0'EZ'#0'EZ'#255#255#255'w'#156#167#0'EZ'#0'EZ'#0'EZ'
+  +#0'EZ"^p'#255#255#255'f'#143#156#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0
+  +'EZ'#0'EZ'#0'EZ'#255#255#255'w'#156#167#0'EZ'#0'EZ'#0'EZ'#0'EZ'#221#230#233
+  ,#204#218#222#17'Qe'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#221#230
+  +#233#255#255#255#221#230#233#0'EZ'#0'EZf'#143#156#255#255#255#255#255#255#170
+  +#193#200#0'EZ'#0'EZ'#0'EZ'#204#218#222#255#255#255#255#255#255#255#255#255'f'
+  +#143#156#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#221#230#233#255#255#255#221#230#233#0
+  +'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#204#218#222#255#255#255#255#255#255#255#255#255
+  +'f'#143#156#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#204#218#222
+  +#255#255#255#255#255#255#255#255#255'f'#143#156#0'EZ'#0'EZ'#0'EZ'#0'EZ'#221
+  +#230#233#255#255#255#221#230#233#0'EZ3j{'#255#255#255#255#255#255#170#193#200
+  +#0'EZ'#17'Qe'#255#255#255#255#255#255#255#255#255'w'#156#167#0'EZ'#0'EZ'#0'E'
+  +'Z'#0'EZ'#0'EZ'#0'EZ'#221#230#233#255#255#255#221#230#233#0'EZ'#0'EZ'#0'EZ'#0
+  +'EZ'#221#230#233#255#255#255#221#230#233#0'EZ'#0'EZ'#238#243#244#255#255#255
+  +#238#243#244#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#204#218#222#255#255#255#255#255
+  +#255#255#255#255'f'#143#156#0'EZ'#0'EZ'#0'EZ'#187#205#211#255#255#255#255#255
+  +#255'w'#156#167#0'EZ'#0'EZ'#0'EZ"^p'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#221#230#233#255
+  +#255#255#221#230#233#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0'EZ'#0#0#0#0#0#0#0'AXw'#154#166
+  +#255#255#255#0'AX'#0'AX'#136#166#177#255#255#255#0'AX'#0'AX'#0'AX'#255#255
+  +#255'w'#154#166#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#187#204#210#255#255#255'U'#128
+  +#144#0'AX'#0'AX'#0'AX'#0'AX'#221#230#233#255#255#255'3gy'#0'AX'#0'AX'#187#204
+  +#210#221#230#233'"Zn'#0'AX'#0'AX'#0'AX'#0'AXf'#141#155#255#255#255'U'#128#144
+  +#0'AX'#0'AX'#255#255#255'w'#154#166#0'AXw'#154#166#255#255#255#0'AX'#0'AX'#0
+  +'AX'#255#255#255'w'#154#166#0'AX'#0'AX'#255#255#255'w'#154#166#0'AX'#0'AX'#0
+  +'AX'#0'AX'#0'AX'#187#204#210#238#242#244'"Zn'#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#0
+  +'AX'#0'AX'#0'AX'#0'AX'#255#255#255'w'#154#166#0'AX'#0'AX'#0'AX'#0'AX'#255#255
+  +#255'w'#154#166#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#221#230
+  +#233#255#255#255#238#242#244'w'#154#166#153#179#188#255#255#255#255#255#255
+  +#255#255#255'Dt'#133#0'AX'#0'AX'#0'AXU'#128#144#255#255#255#255#255#255#221
+  +#230#233#0'AX'#0'AX'#0'AXf'#141#155'w'#154#166'w'#154#166#238#242#244#255#255
+  +#255#238#242#244'w'#154#166'w'#154#166'f'#141#155#0'AX'#0'AXU'#128#144#255
+  +#255#255#255#255#255#221#230#233#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#0'AX'#0
+  +'AX'#0'AX'#0'AXU'#128#144#255#255#255#255#255#255#221#230#233#0'AX'#0'AX'#0
+  +'AX'#0'AX'#0'AX'#221#230#233#255#255#255#221#230#233#0'AX3gy'#255#255#255#255
+  +#255#255#204#217#222#0'AX'#0'AX'#238#242#244#255#255#255#255#255#255'U'#128
+  +#144'w'#154#166'w'#154#166#0'AXf'#141#155'w'#154#166'w'#154#166#238#242#244
+  +#255#255#255#238#242#244'w'#154#166'w'#154#166'f'#141#155#0'AX'#221#230#233
+  +#255#255#255#238#242#244'U'#128#144#153#179#188#255#255#255#255#255#255#204
+  +#217#222#0'AX'#0'AX'#0'AX'#0'AX'#0'AXU'#128#144#255#255#255#255#255#255#221
+  +#230#233#0'AX'#0'AX'#0'AX'#0'AXDt'#133#255#255#255#255#255#255#255#255#255
+  +#187#204#210#136#166#177#187#204#210#136#166#177#0'AXf'#141#155'w'#154#166'w'
+  +#154#166#238#242#244#255#255#255#238#242#244'w'#154#166'w'#154#166'f'#141#155
+  +#0'AX'#0'AX'#0#0#0#0#0#0#0'JXw'#158#166#255#255#255'Dz'#133'f'#146#155#238
+  +#243#244#170#195#199#0'JX'#0'JX'#0'JX'#255#255#255#153#183#188'U'#134#144'U'
+  +#134#144'Dz'#133#0'JX'#0'JX'#153#183#188#221#231#233#0'JX'#0'JX'#0'JX'#0'JX'
+  +#0'JXw'#158#166#255#255#255#0'JX'#0'JX'#0'JX'#17'Vc'#204#219#222#238#243#244
+  +#136#171#177'U'#134#144'U'#134#144#187#207#210#255#255#255'w'#158#166#0'JX'#0
+  +'JX'#0'JX'#255#255#255#136#171#177'Dz'#133#221#231#233#204#219#222#0'JX'#0'J'
+  +'X'#0'JX'#255#255#255'w'#158#166#0'JX'#0'JX'#255#255#255#153#183#188'U'#134
+  +#144'U'#134#144'Dz'#133#0'JX'#0'JX'#17'Vc'#204#219#222#238#243#244#153#183
+  +#188'U'#134#144'U'#134#144#153#183#188#136#171#177#17'VcU'#134#144'U'#134#144
+  +'U'#134#144#255#255#255#153#183#188'U'#134#144'U'#134#144'3ny'#0'JX'#204#219
+  +#222#204#219#222'Dz'#133'Dz'#133#153#183#188#0'JX'#0'JX'#0'JX'#0'JX'#0'JX'#0
+  +'JX'#221#231#233#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255'f'#146#155#0'JX'#0'JX'#0'JX'#0'JX'#0'JX'#221#231#233#255#255#255
+  +'f'#146#155#0'JX'#0'JX'#0'JX'#204#219#222#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#204#219#222#0'JX'#0'JX'#0'J'
+  +'X'#221#231#233#255#255#255'f'#146#155#0'JX'#0'JX'#0'JX'#0'JX'#0'JX'#0'JX'#0
+  +'JX'#0'JX'#0'JX'#0'JX'#0'JX'#221#231#233#255#255#255'f'#146#155#0'JX'#0'JX'#0
+  +'JX'#0'JX'#0'JX'#221#231#233#255#255#255#255#255#255#221#231#233#255#255#255
+  +#255#255#255#255#255#255'w'#158#166#0'JX'#0'JX'#136#171#177#255#255#255#255
+  +#255#255#255#255#255#255#255#255#136#171#177#0'JX'#204#219#222#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#204
+  +#219#222#0'JX'#221#231#233#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255'U'#134#144#0'JX'#0'JX'#0'JX'#0'JX'#0'JX'#0'JX'#221
+  +#231#233#255#255#255'f'#146#155#0'JX'#0'JX'#0'JX'#0'JX'#0'JXf'#146#155#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#136#171#177#0'JX'
+  ,#204#219#222#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#204#219#222#0'JX'#0'JX'#0#0#0#0#0#0#0'<Rf'#138#151#255
+  +#255#255#255#255#255#238#242#243#153#177#186#0'<R'#0'<R'#0'<R'#0'<R'#255#255
+  +#255#255#255#255#255#255#255#255#255#255#238#242#243#0'<R'#0'<Rw'#151#163'w'
+  +#151#163#0'<R'#0'<R'#0'<R'#0'<R'#0'<R'#0'<R'#221#229#232#0'<R'#0'<R'#0'<R'#0
+  +'<R'#0'<R'#136#164#174#221#229#232#255#255#255#255#255#255#204#216#220'Dp'
+  +#128#0'<R'#0'<R'#0'<R'#0'<R'#255#255#255#255#255#255#255#255#255#204#216#220
+  +'"Vi'#0'<R'#0'<R'#0'<R'#255#255#255'f'#138#151#0'<R'#0'<R'#255#255#255#255
+  +#255#255#255#255#255#255#255#255#238#242#243#0'<R'#0'<R'#0'<R'#0'<Rw'#151#163
+  +#221#229#232#255#255#255#255#255#255#221#229#232'U}'#140'f'#138#151#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#204#216#220#0'<R"Vi'#187#203#209#255#255#255#255#255#255#204#216#220#0'<R'#0
+  +'<R'#0'<R'#0'<R'#0'<R'#0'<R'#221#229#232#221#229#232#221#229#232#221#229#232
+  +#238#242#243#170#190#197'Dp'#128#0'<R'#0'<R'#0'<R'#0'<R'#0'<R'#0'<RU}'#140
+  +#204#216#220#0'<R'#0'<R'#0'<R'#0'<R'#187#203#209#221#229#232#221#229#232#221
+  +#229#232#221#229#232#221#229#232#221#229#232#221#229#232#187#203#209#0'<R'#0
+  +'<R'#0'<RU}'#140#204#216#220#0'<R'#0'<R'#0'<R'#0'<R'#0'<R'#0'<R'#0'<R'#0'<R'
+  +#0'<R'#0'<R'#0'<R'#0'<RU}'#140#204#216#220#0'<R'#0'<R'#0'<R'#0'<R'#0'<R'#0'<'
+  +'R'#221#229#232#221#229#232#221#229#232#221#229#232#221#229#232#187#203#209
+  +'w'#151#163#0'<R'#0'<R'#0'<R'#0'<Rw'#151#163#204#216#220#221#229#232#221#229
+  +#232'w'#151#163#0'<R'#187#203#209#221#229#232#221#229#232#221#229#232#221#229
+  +#232#221#229#232#221#229#232#221#229#232#187#203#209#0'<R'#221#229#232#221
+  +#229#232#221#229#232#221#229#232#221#229#232#170#190#197'Dp'#128#0'<R'#0'<R'
+  +#0'<R'#0'<R'#0'<R'#0'<R'#0'<RU}'#140#204#216#220#0'<R'#0'<R'#0'<R'#0'<R'#0'<'
+  +'R'#0'<R'#0'<R3cu'#170#190#197#221#229#232#221#229#232#221#229#232'w'#151#163
+  +#0'<R'#187#203#209#221#229#232#221#229#232#221#229#232#221#229#232#221#229
+  +#232#221#229#232#221#229#232#187#203#209#0'<R'#0'<R'#0#0#0#0#0#0#0'+H'#0'+H'
+  +#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+'
+  +'H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0
+  +'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'
+  +#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+'
+  +'H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0
+  +'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'
+  +#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+'
+  +'H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0
+  +'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'
+  +#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+'
+  +'H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0
+  +'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'
+  +#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+'
+  +'H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0
+  +'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'
+  +#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+'
+  +'H'#0'+H'#0'+H'#0'+H'#0'+H'#0'+H'#0#0#0#0#0#0#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0
+  +'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'
+  +#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%'
+  +'L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0
+  +'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'
+  +#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%'
+  +'L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0
+  +'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'
+  +#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%'
+  +'L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0
+  +'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'
+  +#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%'
+  +'L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0
+  +'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'
+  +#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%'
+  +'L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0
+  +'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'#0'%L'
+  +#0'%L'#0'%L'#0#0#0#0#0#0#0'1N"Lf'#255#255#255#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0
+  +'1N'#0'1NDh}'#221#228#231#255#255#255#255#255#255#221#228#231'Dh}'#0'1N'#0'1'
+  +'N'#0'1N'#0'1N'#0'1N'#0'1N"Lf'#221#228#231#0'1N'#17'?Z'#221#228#231#0'1N'#0
+  +'1N'#0'1N'#0'1N'#0'1N'#0'1N'#255#255#255#255#255#255#255#255#255#187#200#208
+  ,#0'1N'#0'1N'#0'1N"Lf'#255#255#255#0'1N'#0'1N'#187#200#208#221#228#231#0'1N'#0
+  +'1N'#0'1N'#255#255#255#255#255#255#255#255#255#187#200#208#0'1N'#0'1N'#0'1N"'
+  +'Lf'#255#255#255#255#255#255#255#255#255'w'#145#161#0'1N'#0'1N'#0'1N'#0'1N'#0
+  +'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N"Lf'#255#255#255#255#255#255#255#255#255'Dh'
+  +'}'#0'1N'#0'1N'#0'1N'#0'1N"Lf'#255#255#255#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1'
+  +'N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0
+  +'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'
+  +#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1'
+  +'N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0
+  +'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'
+  +#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1'
+  +'N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0
+  +'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'
+  +#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1'
+  +'N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0'1N'#0#0#0#0#0#0#0'/P"Kg'#255
+  +#255#255#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/PDf'#127#255#255#255'w'#144#162#0
+  +'/P'#0'/Pw'#144#162#255#255#255'Df'#127#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#153#172
+  +#185#255#255#255'Df'#127#136#158#173#255#255#255'Df'#127#0'/P'#0'/P'#0'/P'#0
+  +'/P'#0'/P'#255#255#255'"Kg'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P"Kg'#255#255#255#0'/'
+  +'Pw'#144#162#255#255#255#17'=\'#0'/P'#0'/P'#0'/P'#255#255#255'"Kg'#0'/P'#0'/'
+  +'P'#0'/P'#0'/P'#0'/P"Kg'#255#255#255#0'/P"Kg'#221#227#232#136#158#173#0'/P'#0
+  +'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P"Kg'#255#255#255#0'/Pw'#144#162
+  +#255#255#255#0'/P'#0'/P'#0'/P'#0'/P"Kg'#255#255#255#0'/P'#0'/P'#0'/P'#0'/P'#0
+  +'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'
+  +#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/'
+  +'P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0
+  +'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'
+  +#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/'
+  +'P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0
+  +'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'
+  +#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/'
+  +'P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0
+  +'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0'/P'#0#0#0#0#0#0#0'-M"'
+  +'Ie'#255#255#255#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#238#241#243'w'#143#160#0
+  +'-M'#0'-M'#0'-M'#0'-Mw'#143#160#221#227#231#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#255
+  +#255#255#136#157#172#221#227#231#255#255#255#153#171#184#204#213#219#0'-M'#0
+  +'-M'#0'-M'#0'-M'#0'-M'#255#255#255'"Ie'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M"Ie'#255
+  +#255#255'"Ie'#255#255#255'De|'#0'-M'#0'-M'#0'-M'#0'-M'#255#255#255'"Ie'#0'-M'
+  +#0'-M'#0'-M'#0'-M'#0'-M"Ie'#255#255#255#0'-M'#0'-MDe|'#255#255#255#0'-M'#0'-'
+  +'M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M"Ie'#255#255#255#0'-MUs'#136#255
+  +#255#255#0'-M'#0'-M'#0'-M'#0'-M"Ie'#255#255#255#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'
+  +#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-'
+  +'M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0
+  +'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'
+  +#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-'
+  +'M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0
+  +'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'
+  +#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-'
+  +'M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0
+  +'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'
+  +#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0'-M'#0#0#0#0#0#0#0'9T"Sk'
+  +#255#255#255#255#255#255#255#255#255'U{'#141#0'9T'#0'9T'#0'9T'#255#255#255'"'
+  +'Sk'#0'9T'#0'9T'#0'9T'#0'9T"Sk'#255#255#255#0'9T'#0'9T'#0'9T'#0'9T'#136#163
+  +#175#187#202#209#0'9T'#255#255#255#187#202#209#0'9T'#255#255#255'3av'#0'9T'#0
+  +'9T'#0'9T'#0'9T'#255#255#255#255#255#255#255#255#255#153#176#187#0'9T'#0'9T'
+  +#0'9T"Sk'#255#255#255#255#255#255#255#255#255'U{'#141#0'9T'#0'9T'#0'9T'#0'9T'
+  +#255#255#255#255#255#255#255#255#255#153#176#187#0'9T'#0'9T'#0'9T"Sk'#255#255
+  +#255#0'9T'#0'9T'#0'9T'#255#255#255#17'F_'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'
+  +#0'9T'#0'9T"Sk'#255#255#255#255#255#255#255#255#255'U{'#141#0'9T'#0'9T'#0'9T'
+  +#0'9Tw'#149#164#255#255#255'3av'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0
+  +'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'
+  +#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9'
+  +'T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0
+  +'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'
+  ,#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9'
+  +'T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0
+  +'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'
+  +#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9'
+  +'T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0
+  +'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0'9T'#0#0#0#0#0#0#0'-N"If'#255#255#255#0'-Nf'
+  +#129#149#255#255#255#0'-N'#0'-N'#0'-N'#238#241#243'w'#143#161#0'-N'#0'-N'#0
+  +'-N'#0'-Nw'#143#161#238#241#243#0'-N'#0'-N'#0'-N'#0'-N'#255#255#255'De}'#0'-'
+  +'N'#255#255#255#187#199#208#0'-N'#136#157#172#187#199#208#0'-N'#0'-N'#0'-N'#0
+  +'-N'#255#255#255'"If'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N"If'#255#255#255#0'-NUs'
+  +#137#255#255#255#0'-N'#0'-N'#0'-N'#0'-N'#255#255#255'"If'#0'-N'#0'-N'#0'-N'#0
+  +'-N'#0'-N"If'#255#255#255#0'-N'#0'-NDe}'#255#255#255#0'-N'#0'-N'#0'-N'#0'-N'
+  +#0'-N'#0'-N'#0'-N'#0'-N'#0'-N"If'#255#255#255'"If'#255#255#255#0'-N'#0'-N'#0
+  +'-N'#0'-N"If'#255#255#255#187#199#208#204#213#220#0'-N'#0'-N'#0'-N'#0'-N'#0
+  +'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'
+  +#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-'
+  +'N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0
+  +'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'
+  +#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-'
+  +'N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0
+  +'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'
+  +#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-'
+  +'N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0
+  +'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0'-N'#0#0#0#0#0#0#0',E"H^'#255
+  +#255#255#0',Ef'#128#143#255#255#255#0',E'#0',E'#0',EDdw'#255#255#255'w'#142
+  +#156#0',E'#0',Ew'#142#156#255#255#255'Ddw'#0',E'#0',E'#0',Ew'#142#156#221#227
+  +#230#0',Ew'#142#156#221#227#230#255#255#255'"H^'#0',E'#255#255#255'"H^'#0',E'
+  +#0',E'#0',E'#255#255#255'"H^'#0',E'#0',E'#0',E'#0',E'#0',E"H^'#255#255#255#0
+  +',Ew'#142#156#255#255#255#0',E'#0',E'#0',E'#0',E'#255#255#255'"H^'#0',E'#0','
+  +'E'#0',E'#0',E'#0',E"H^'#255#255#255#0',E"H^'#221#227#230#136#157#168#0',E'#0
+  +',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E"H^'#255#255#255#0',E'#255#255
+  +#255#17':Q'#0',E'#0',E'#0',E'#187#199#205#153#171#181#0',E'#204#213#218#136
+  +#157#168#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0
+  +',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'
+  +#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0','
+  +'E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0
+  +',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'
+  +#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0','
+  +'E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0
+  +',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'
+  +#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0','
+  +'E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0',E'#0
+  +',E'#0#0#0#0#0#0#0'>C"X\'#255#255#255#255#255#255#238#242#242'U~'#130#0'>C'#0
+  +'>C'#0'>C'#0'>CDqu'#221#229#230#255#255#255#255#255#255#221#229#230'Dqu'#0'>'
+  +'C'#0'>C'#0'>C'#0'>C'#255#255#255'f'#139#142#0'>C'#255#255#255'f'#139#142#153
+  +#178#180#187#204#205#0'>C'#170#191#192#187#204#205#0'>C'#0'>C'#0'>C'#255#255
+  +#255#255#255#255#255#255#255#187#204#205#0'>C'#0'>C'#0'>C"X\'#255#255#255#255
+  +#255#255#238#242#242'Dqu'#0'>C'#0'>C'#0'>C'#0'>C'#255#255#255#255#255#255#255
+  +#255#255#187#204#205#0'>C'#0'>C'#0'>C"X\'#255#255#255#255#255#255#255#255#255
+  +#136#165#167#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C"X\'
+  +#255#255#255#255#255#255#170#191#192#0'>C'#0'>C'#0'>Cw'#152#155#255#255#255#0
+  +'>C'#0'>C3ei'#255#255#255'Dqu'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>'
+  +'C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0
+  +'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'
+  +#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>'
+  +'C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0
+  +'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'
+  +#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>'
+  +'C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0
+  +'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'
+  +#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>C'#0'>'
+  +'C'#0'>C'#0'>C'#0'>C'#0#0#0#0#0#0#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0
+  +'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'
+  +#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O'
+  ,'8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0
+  +'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'
+  +#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O'
+  +'8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0
+  +'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'
+  +#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O'
+  +'8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0
+  +'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'
+  +#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O'
+  +'8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0
+  +'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'
+  +#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O'
+  +'8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0
+  +'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'#0'O8'
+  +#0#0#0#0#0#0#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`'
+  +'8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0
+  +'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'
+  +#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`'
+  +'8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0
+  +'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'
+  +#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`'
+  +'8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0
+  +'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'
+  +#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`'
+  +'8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0
+  +'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'
+  +#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`'
+  +'8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0
+  +'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'
+  +#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`'
+  +'8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0'`8'#0#0#0#0#0#0#0'n0'#0
+  +'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'
+  +#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n'
+  +'0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0
+  +'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'
+  +#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n'
+  +'0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0
+  +'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'
+  +#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n'
+  +'0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0
+  +'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'
+  +#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n'
+  +'0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0
+  +'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'
+  +#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n'
+  +'0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0
+  +'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'
+  +#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0'n0'#0#0#0#0#0#0#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  ,#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137
+  +'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0#137'-'#0
+  +#137'-'#0#137'-'#0#137'-'#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'{-'#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'{-'#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#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127
+  +'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0#127'+'#0
+  +#0#0#0#0#0#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  ,'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0
+  +#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138
+  +'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#138'7'#0#0#0#0#0
+  +#0#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0
+  +#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138
+  +'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#138'6'#0#0#0#0#0#0#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0
+  +#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152
+  +':'#0#152':'#0#152':'#0#152':'#0#152':'#0#152':'#0#0#0#0#0#0#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  ,#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0
+  +#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#158
+  +'D'#0#158'D'#0#158'D'#0#158'D'#0#158'D'#0#0#0#0#0#0#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0
+  +#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176'F'#0#176
+  +'F'#0#176'F'#0#176'F'#0#176'F'#0#0#0#0#0#0#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  ,#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0
+  +#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151'M'#0#151
+  +'M'#0#151'M'#0#151'M'#0#0#0#0#0#0#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0
+  +#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153'H'#0#153
+  +'H'#0#153'H'#0#0#0#0#0#0#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0
+  +#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189'<'#0#189
+  +'<'#0#0#0#0#0#0#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  ,'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168
+  +'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0
+  +#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#168'-'#0#0#0
+  +#0#0#0#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192
+  +'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0
+  +#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#192'A'#0#0#0#0#0#0#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  ,'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178
+  +'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0
+  +#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#178'P'#0#0#0#0#0#0#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150
+  +'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0
+  +#150'T'#0#150'T'#0#150'T'#0#150'T'#0#150'T'#0#0#0#0#0#0#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132
+  +'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0#132'W'#0
+  +#132'W'#0#132'W'#0#132'W'#0#132'W'#0#0#0#0#0#0#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  ,#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142
+  +'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0#142'Z'#0
+  +#142'Z'#0#142'Z'#0#142'Z'#0#0#0#0#0#0#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158
+  +'d'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0#158'd'#0
+  +#158'd'#0#158'd'#0#0#0#0#0#0#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  +#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153
+  +'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0#153'^'#0
+  ,#153'^'#0#0#0#0#0#0#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0
+  +#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160
+  +'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#0#160'Z'#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#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#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#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#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#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#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#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#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
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.pas
new file mode 100644
index 0000000..d2d670e
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.pas	
@@ -0,0 +1,75 @@
+unit uDAPoweredByDataAbstractButton;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS} Windows, {$ENDIF}
+  uROPoweredByRemObjectsButton,SysUtils,Classes,
+  Graphics, Controls;   
+
+{$IFNDEF FPC}  
+  {$R uDAPoweredByDataAbstractButton.res}
+{$ENDIF FPC}
+
+type
+  TDAPoweredByDataAbstractButton = class(TROPoweredByRemObjectsButton)
+  protected
+    procedure GetBitmap; override;
+  public
+    procedure Click; override;
+  end;
+
+implementation
+
+{$IFDEF MSWINDOWS}
+uses ShellAPI;
+{$ENDIF MSWINDOWS}
+
+const
+  STR_POWERED_BY_DATAABSTRACT_CLIENT = 'POWERED_BY_DATAABSTRACT_CLIENT';
+  STR_POWERED_BY_DATAABSTRACT_SERVER = 'POWERED_BY_DATAABSTRACT_SERVER';
+
+{ TDAPoweredByDataAbstractButton }
+
+procedure TDAPoweredByDataAbstractButton.GetBitmap;
+begin
+{$IFDEF FPC}
+  case ApplicationType of
+    atServer: Bitmap.LoadFromLazarusResource(STR_POWERED_BY_DATAABSTRACT_SERVER);
+    atClient: Bitmap.LoadFromLazarusResource(STR_POWERED_BY_DATAABSTRACT_CLIENT);
+  end; { case }
+{$ELSE}
+  case ApplicationType of
+    atServer: Bitmap.LoadFromResourceName(hInstance,STR_POWERED_BY_DATAABSTRACT_SERVER);
+    atClient: Bitmap.LoadFromResourceName(hInstance,STR_POWERED_BY_DATAABSTRACT_CLIENT);
+  end; { case }
+{$ENDIF}
+end;
+
+procedure TDAPoweredByDataAbstractButton.Click;
+begin
+  {$IFDEF MSWINDOWS}
+  ShellExecute(0,'open','http://www.dataabstract.com',nil,nil,SW_SHOWNORMAL);
+  {$ENDIF MSWINDOWS}
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I uDAPoweredByDataAbstractButton.lrs}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.res b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.res
new file mode 100644
index 0000000..0dd5c2d
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAPoweredByDataAbstractButton.res differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.dfm
new file mode 100644
index 0000000..ae8fe93
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.dfm	
@@ -0,0 +1,551 @@
+object ReconcileDialogForm: TReconcileDialogForm
+  Left = 354
+  Top = 231
+  Width = 541
+  Height = 403
+  BorderStyle = bsSizeToolWin
+  BorderWidth = 5
+  Caption = 'One or more updates failed to apply on the server...'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  DesignSize = (
+    515
+    357)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 264
+    Top = 154
+    Width = 238
+    Height = 39
+    Anchors = [akLeft, akRight, akBottom]
+    Caption = 
+      'Skip over this change and ignore the error. You can try and corr' +
+      'ect the problem by modifying data, or reapply the change again a' +
+      't a later time.'
+    WordWrap = True
+  end
+  object Label2: TLabel
+    Left = 264
+    Top = 210
+    Width = 225
+    Height = 26
+    Anchors = [akLeft, akRight, akBottom]
+    Caption = 
+      'Cancel the changes you made and restore the record to its origin' +
+      'al values.'
+    WordWrap = True
+  end
+  object Label3: TLabel
+    Left = 264
+    Top = 266
+    Width = 230
+    Height = 39
+    Anchors = [akLeft, akRight, akBottom]
+    Caption = 
+      'Show a dialog with details of the changes made to the record sin' +
+      'ce it was last retrieved from or applied to the server.'
+    WordWrap = True
+  end
+  object SkipButton: TButton
+    Left = 161
+    Top = 154
+    Width = 96
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = '&Skip Change'
+    TabOrder = 3
+    OnClick = SkipButtonClick
+  end
+  object CancelButton: TButton
+    Left = 161
+    Top = 210
+    Width = 96
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = '&Cancel Change'
+    TabOrder = 4
+    OnClick = CancelButtonClick
+  end
+  object SkipAllButton: TButton
+    Left = 0
+    Top = 332
+    Width = 75
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Skip &All'
+    TabOrder = 1
+    OnClick = SkipAllButtonClick
+  end
+  object CancelAllButton: TButton
+    Left = 80
+    Top = 332
+    Width = 75
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Cancel A&ll'
+    TabOrder = 2
+    OnClick = CancelAllButtonClick
+  end
+  object ShowDetailButton: TButton
+    Left = 161
+    Top = 266
+    Width = 96
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Show &Details'
+    TabOrder = 5
+    OnClick = ShowDetailButtonClick
+  end
+  object TreeView: TTreeView
+    Left = 0
+    Top = 0
+    Width = 155
+    Height = 327
+    Anchors = [akLeft, akTop, akBottom]
+    HideSelection = False
+    Indent = 20
+    MultiSelectStyle = []
+    ReadOnly = True
+    RowSelect = True
+    ShowButtons = False
+    ShowLines = False
+    ShowRoot = False
+    StateImages = ImageList
+    TabOrder = 0
+    OnClick = ListBoxClick
+  end
+  object btn_Cancel: TButton
+    Left = 440
+    Top = 332
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Close'
+    ModalResult = 2
+    TabOrder = 6
+  end
+  object memMessageError: TMemo
+    Left = 160
+    Top = 0
+    Width = 353
+    Height = 145
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Color = clBtnFace
+    ReadOnly = True
+    ScrollBars = ssVertical
+    TabOrder = 7
+  end
+  object ImageList: TImageList
+    Left = 59
+    Top = 124
+    Bitmap = {
+      494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000003000000001002000000000000030
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000D6C00000D
+      6C00000C5D00000A5100000A4F00000A4F00000A4F00000A4F00000A4F00000A
+      4F00000A4F000008400000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000001397000017B9000016
+      B5000015AA000013A0000013A00000139700001397000013A000001397000013
+      97000013A000000F7A0000084000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000017B900001CE200001A
+      D5000018CA000018C6000016B5000016B5000015AA000015AA000016B5000015
+      AA000016B5000013A000000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018C600001EF000001C
+      E200001AD5000018C6000018C6000016B5000016B5000015AA000013A0000015
+      AA000015AA000013A000000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA000224FF00001E
+      F000001CE200001AD5000018CA000018C6000016B5000016B5000015AA000013
+      A0000017B90000139700000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA00163BFF000528
+      FF00001EF000001CE200001AD5000018CA000018CA000017B9000016B5000015
+      AA000015AA000013A000000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA003559FF000F35
+      FF000224FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000017
+      B9000016B5000013A000000A4F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA004E6EFF00193F
+      FF000224FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000018
+      C6000018C60000139D00000C5D00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA005A79FF002146
+      FF00092DFF000224FF00001EF000001DEE00001DEE00001CE200001AD5000018
+      CA000018CA000016B500000D6C00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA006682FF002D51
+      FF00163BFF000F35FF000224FF00001FFF00001EF000001EF000001DEE00001C
+      DE00001CDE000017B900000F7A00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA007690FF004163
+      FF00193FFF00163BFF00092DFF000528FF000224FF000224FF00001DEE00001D
+      EE00001CE2000018C60000118700000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA007F98FF00728C
+      FF005676FF004163FF003559FF00284CFF00163BFF000224FF00001FFF00001D
+      EE00001DEE00001CDE0000139700000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000018CA005877FF007F98
+      FF00839CFF007690FF006682FF004E6EFF00284CFF000F35FF000224FF00001F
+      FF00001DEE00001CE2000013A000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001DEE00092D
+      FF000F35FF00092DFF000528FF000224FF00001DEE00001CDE00001AD5000018
+      CA00001AD5000016B50000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015F05000269090002640700005E0400004D0300000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000002C2C6C0005056300000065000000600000004F00000000000000
+      0000000000000000000000000000000000000000000000000000000D6C00000D
+      6C00000C5D00000A5100000A4F00000A4F00000A4F00000A4F00000A4F00000A
+      4F00000A4F000008400000000000000000000000000000000000000D6C00000D
+      6C00000C5D00000A5100000A4F00000A4F00000A4F00000A4F00000A4F00000A
+      4F00000A4F000008400000000000000000000000000000000000000000000271
+      08000C98220011B62F000DB4250009B21C0006B0160001AE0B0000910700005B
+      0400000000000000000000000000000000000000000000000000000000002929
+      AC000000840000008E0000008E0000008F0000008C0000008800000081000101
+      54000000000000000000000000000000000000000000001397000017B9000016
+      B5000015AA000013A0000013A00000139700001397000013A000001397000013
+      97000013A000000F7A00000840000000000000000000001397000017B9000016
+      B5000015AA000013A0000013A00000139700001397000013A000001397000013
+      97000013A000000F7A0000084000000000000000000000000000078414001CB6
+      45001BBA440017B83A0012B630000EB426001AB72D0008B21B0004AF110000AD
+      09000067050000000000000000000000000000000000000000002929AC000000
+      96000000970000009B0000009F000000A00000009D000000970000008F000000
+      880000006200000000000000000000000000000000000017B900001CE200001A
+      D5000018CA000018C6000016B5000016B5000015AA000015AA000016B5000015
+      AA000016B5000013A000000A4F0000000000000000000017B900001CE200001A
+      D1000019CC000018C6000016B5000016B5000015AA000015AA000016B5000015
+      AA000016B5000013A000000A4F00000000000000000004860B0023B7530024BE
+      580021BD51001CBA45001ABA430012B630000EB426000EB426000AB21D0007B1
+      180002AE0D00005F04000000000000000000000000002929AC000101A3000808
+      9E009999D4006868D0000000AC000000AE000000A9004848B800B7B7E3002727
+      A50000008C00010152000000000000000000000000000018C600001EF000001C
+      E200001AD5000018C6000018C6000016B5000016B5000015AA000013A0000015
+      AA000015AA000013A000000A4F0000000000000000000018C600001EF000001C
+      E200001AD1000018C6003653D300EAEEFA008899E000061FAF000013A0000015
+      AA000015AA000013A000000A4F00000000000000000017A437002EC26B002CC1
+      660025BF5A0021BD5100FFFFFF001ABA430012B6300013B6310011B62E000BB3
+      210009B21C00059712000000000000000000000000002929AC000000AB002828
+      A300DEDED200FEFEFF006464D4000000B3004646C000E7E7EC00FFFFF7005E5E
+      B70000009A00020287000000000000000000000000000018CA000224FF00001E
+      F000001CE200001AD5000018C600FFFFFF00F4F7FF000016B5000015AA000013
+      A0000017B90000139700000A4F0000000000000000000019CC000224FF00001E
+      F0009AACF6000624D7000019CC009AAAEB00FFFFFF008899E0000015AA000015
+      AA000015AA000013A000000A4F00000000000091020028BB5E002EC26B002EC2
+      6B002EC26B00FFFFFF00FFFFFF00FFFFFF001ABA43001ABA430015B8380012B6
+      30000FB52A000AB21D0002670800000000004B4BD3000707B1000303B9000000
+      C2004C4CA700E6E6D900FCFCFF009E9EE600E8E9F400FFFFF1007575B9000606
+      B1000101AB000202A00013145D0000000000000000000018CA00163BFF000528
+      FF00001EF000001CE200001BD900FFFFFF00FFFFFF000017B9000016B5000015
+      AA000015AA000013A000000A4F0000000000000000000019CC00163BFF000528
+      FF00FFFFFF00768FF300001AD1003654DE00FFFFFF00ADBBEE000016B5000015
+      AA000016B50000139700000A4F0000000000009701002EC26B002EC26B002EC2
+      6B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001ABA43001ABA43000EB4
+      260014B7340011B62F0005771000000000004B4BD3000808BB000707C8000505
+      D1000000C8005353B600F2F2ED00FFFFFF00FFFFFC007575C9000000BE000101
+      C3000303B8000303AC0010106F0000000000000000000018CA003559FF000F35
+      FF000224FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000017
+      B9000016B5000013A000000A4F0000000000000000000019CC003559FF000F35
+      FF00FFFFFF00FFFFFF00768FF300EAEEFA00FFFFFF00889CEB000018C6000016
+      B5000016B5000013A000000A4F000000000000A001002EC26B002EC26B002EC2
+      6B00FFFFFF00FFFFFF002EC26B00FFFFFF00FFFFFF00FFFFFF001ABA43001ABA
+      43001BBA440017B83A000A8D1B00000000004B4BD3000C0CC9000D0DD8000B0B
+      DC000000D6003C3DCE00EEEFED00FFFFFF00FFFFFD005858DB000000CA000303
+      CB000606C5000606B8001212790000000000000000000018CA004E6EFF00193F
+      FF000224FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000018
+      C6000018C6000013A000000A510000000000000000000019CC004D6DFF00193F
+      FF004D6DFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAEEFA001C3BD5000018
+      C6000017B9000015AA00000A51000000000000A4010033C36E002EC26B002EC2
+      6B00FFFFFF002EC26B002EC26B002EC26B00FFFFFF00FFFFFF00FFFFFF002BBF
+      640021BD51001CBA4500077F1300000000004B4BD3001414D8001717EA000B0B
+      F1004343DB00E4E4EA00FDFDF500BABAD400EAEAE800FEFEFF006363E5000303
+      D7000A0ACF000A0AC30021217F0000000000000000000018CA005A79FF002146
+      FF00092DFF000224FF00001EF000FFFFFF00FFFFFF00001CE200001BD9000018
+      CA000018CA000016B500000D6C0000000000000000000019CC005A79FF002146
+      FF00092DFF00294DFF006681F8004565F400C1CCFB00FFFFFF00EAEEFA001C3B
+      D5000019CC000016B500000D6C000000000000AD000044C665003FC776002EC2
+      6B003AC573002EC26B002EC26B002EC26B002EC26B00FFFFFF00FFFFFF002BBF
+      640025BF5A0023BE5700047E0D00000000004B4BD3002626E5002222FB003F3F
+      E900DCDCE500FDFDEE007373C5000303D7005151B000E3E3D600FFFFFE006161
+      E5000808DB000F0FCA001212790000000000000000000018CA006682FF002D51
+      FF00163BFF000F35FF000224FF00FFFFFF00FFFFFF00001DEE00001CE200001C
+      E200001BD9000017B900000F7A0000000000000000000019CC006681F8002D51
+      FF00163BFF000F35FF000224FF00001FFF000528FF00EAEEFA00FFFFFF00EAEE
+      FA00001BD9000017B900000F7A00000000000000000031BE3C0072D5950052CC
+      820035C470003AC573002EC26B002EC26B002EC26B002EC26B00FFFFFF002BBF
+      64002DC26A001AA73E000000000000000000000000003131FB003232FF005252
+      ED00B3B3C2007777CA000000EA000000EC000000E8005252B400ADADB0004D4D
+      E1001818ED001818B1000000000000000000000000000018CA007690FF004163
+      FF00193FFF00163BFF00092DFF000528FF000224FF000224FF00001EF000001D
+      EE00001CE2000018CA000011870000000000000000000019CC007690FF004163
+      FF00193FFF00163BFF00092DFF000528FF000224FF001C41FF00EAEEFA00C1CC
+      FB00001CE2000019CC0000118700000000000000000000B7000075D6830082DA
+      A00066D28E0044C879003AC573002EC26B002EC26B002EC26B0028BD5E002BBF
+      64002BBF640003870A000000000000000000000000003131FB003E3EFB005353
+      FF006868EF005757F9003838FF002525FD002929FF003838FC004242EB003232
+      FF001F1FE9003131FB000000000000000000000000000018CA007F98FF00728C
+      FF005676FF004163FF003559FF00284CFF00163BFF000224FF00001FF900001D
+      EE00001EF000001BD9000013A00000000000000000000019CC007F98FF00728C
+      FF005676FF004163FF003559FF002449FF00193FFF000224FF000224FF00001E
+      F000001EF000001BD9000013A0000000000000000000000000000FBC100077D7
+      800098E0AD0076D798005ACE86003AC573002EC26B002EC26B002EC26B0028BD
+      5E000998170000000000000000000000000000000000000000003131FB004949
+      FD006E6EFF009191FF009393FF008484FF007676FF006767FF005151FF003131
+      FB003131FB00000000000000000000000000000000000018CA005877FF007F98
+      FF00839CFF007690FF006682FF004E6EFF00284CFF000F35FF000224FF00001F
+      F900001FF900001CE2000013A00000000000000000000019CC005877FF007F98
+      FF00839CFF007690FF006681F8004D6DFF00294DFF000F35FF00001FFF00001F
+      FF00001FFF00001BD9000013A0000000000000000000000000000000000000B8
+      000047CB490084DA91008CDCA6006AD391004ECB7F002DBF610017B13600049C
+      0A00000000000000000000000000000000000000000000000000000000003131
+      FB003131FB006969FE008787FF009292FF007676FF005353FF005151F3003131
+      FB00000000000000000000000000000000000000000000000000001DEE00092D
+      FF000F35FF00092DFF000528FF000224FF00001DEE00001BD900001AD5000018
+      CA00001AD5000016B50000000000000000000000000000000000001DEE00092D
+      FF000F35FF00092DFF000528FF000224FF00001DEE00001BD900001AD1000019
+      CC000019CC000017B90000000000000000000000000000000000000000000000
+      00000000000000B8000000B6000000AE000000AD000000A60100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003131FB003131FB003131FB003131FB003131FB00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000300000000100010000000000800100000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000FFFF000000000000C003000000000000
+      8001000000000000800100000000000080010000000000008001000000000000
+      8001000000000000800100000000000080010000000000008001000000000000
+      8001000000000000800100000000000080010000000000008001000000000000
+      C003000000000000FFFF000000000000FFFFFFFFFFFFFFFFF83FF83FC003C003
+      E00FE00F80018001C007C0078001800180038003800180018003800380018001
+      0001000180018001000100018001800100010001800180010001000180018001
+      000100018001800180038003800180018003800380018001C007C00780018001
+      E00FE00FC003C003F83FF83FFFFFFFFF00000000000000000000000000000000
+      000000000000}
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.lfm
new file mode 100644
index 0000000..41d65f9
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.lfm	
@@ -0,0 +1,304 @@
+object ReconcileDialogForm: TReconcileDialogForm
+  Left = 327
+  Height = 357
+  Top = 206
+  Width = 515
+  ActiveControl = TreeView
+  BorderStyle = bsDialog
+  Caption = 'One or more updates failed to apply on the server...'
+  ClientHeight = 357
+  ClientWidth = 515
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  Position = poOwnerFormCenter
+  LCLVersion = '0.9.29'
+  object Label1: TLabel
+    Left = 264
+    Height = 40
+    Top = 154
+    Width = 239
+    Caption = 'Skip over this change and ignore the error. You can try and correct the problem by modifying data, or reapply the change again at a later time.'
+    ParentColor = False
+    WordWrap = True
+  end
+  object Label2: TLabel
+    Left = 264
+    Height = 27
+    Top = 210
+    Width = 210
+    Caption = 'Cancel the changes you made  and restore the record to it''s original values.'
+    ParentColor = False
+    WordWrap = True
+  end
+  object Label3: TLabel
+    Left = 264
+    Height = 40
+    Top = 266
+    Width = 231
+    Caption = 'Show a dialog with details of the changes made to the record since it was last retrieved from or applied to the server.'
+    ParentColor = False
+    WordWrap = True
+  end
+  object SkipButton: TButton
+    Left = 161
+    Height = 25
+    Top = 154
+    Width = 96
+    BorderSpacing.InnerBorder = 4
+    Caption = '&Skip Change'
+    OnClick = SkipButtonClick
+    TabOrder = 3
+  end
+  object CancelButton: TButton
+    Left = 161
+    Height = 25
+    Top = 210
+    Width = 96
+    BorderSpacing.InnerBorder = 4
+    Caption = '&Cancel Change'
+    OnClick = CancelButtonClick
+    TabOrder = 4
+  end
+  object SkipAllButton: TButton
+    Left = 0
+    Height = 25
+    Top = 332
+    Width = 75
+    Anchors = [akLeft, akBottom]
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Skip &All'
+    OnClick = SkipAllButtonClick
+    TabOrder = 1
+  end
+  object CancelAllButton: TButton
+    Left = 80
+    Height = 25
+    Top = 332
+    Width = 75
+    Anchors = [akLeft, akBottom]
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Cancel A&ll'
+    OnClick = CancelAllButtonClick
+    TabOrder = 2
+  end
+  object ShowDetailButton: TButton
+    Left = 161
+    Height = 25
+    Top = 266
+    Width = 96
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Show &Details'
+    OnClick = ShowDetailButtonClick
+    TabOrder = 5
+  end
+  object TreeView: TTreeView
+    Left = 0
+    Height = 327
+    Top = 0
+    Width = 155
+    Anchors = [akTop, akLeft, akBottom]
+    DefaultItemHeight = 16
+    HideSelection = False
+    Indent = 20
+    RightClickSelect = True
+    RowSelect = True
+    ShowButtons = False
+    ShowLines = False
+    ShowRoot = False
+    StateImages = ImageList
+    TabOrder = 0
+    OnClick = ListBoxClick
+    Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoRowSelect, tvoToolTips]
+  end
+  object btn_Cancel: TButton
+    Left = 440
+    Height = 25
+    Top = 332
+    Width = 75
+    Anchors = [akRight, akBottom]
+    BorderSpacing.InnerBorder = 4
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 6
+  end
+  object memMessageError: TMemo
+    Left = 161
+    Height = 146
+    Top = 0
+    Width = 342
+    Color = clBtnFace
+    ScrollBars = ssAutoVertical
+    TabOrder = 7
+    TabStop = False
+  end
+  object ImageList: TImageList
+    left = 59
+    top = 124
+    Bitmap = {
+      4C69050000001000000010000000000000000000000000000000000000000000
+      000000B800FF00B600FF00AE00FF00AD00FF00A601FF00000000000000000000
+      000000000000000000000000000000000000000000000000000000B800FF47CB
+      49FF84DA91FF8CDCA6FF6AD391FF4ECB7FFF2DBF61FF17B136FF049C0AFF0000
+      000000000000000000000000000000000000000000000FBC10FF77D780FF98E0
+      ADFF76D798FF5ACE86FF3AC573FF2EC26BFF2EC26BFF2EC26BFF28BD5EFF0998
+      17FF0000000000000000000000000000000000B700FF75D683FF82DAA0FF66D2
+      8EFF44C879FF3AC573FF2EC26BFF2EC26BFF2EC26BFF28BD5EFF2BBF64FF2BBF
+      64FF03870AFF00000000000000000000000031BE3CFF72D595FF52CC82FF35C4
+      70FF3AC573FF2EC26BFF2EC26BFF2EC26BFF2EC26BFFFFFFFFFF2BBF64FF2DC2
+      6AFF1AA73EFF000000000000000000AD00FF44C665FF3FC776FF2EC26BFF3AC5
+      73FF2EC26BFF2EC26BFF2EC26BFF2EC26BFFFFFFFFFFFFFFFFFF2BBF64FF25BF
+      5AFF23BE57FF047E0DFF0000000000A401FF33C36EFF2EC26BFF2EC26BFFFFFF
+      FFFF2EC26BFF2EC26BFF2EC26BFFFFFFFFFFFFFFFFFFFFFFFFFF2BBF64FF21BD
+      51FF1CBA45FF077F13FF0000000000A001FF2EC26BFF2EC26BFF2EC26BFFFFFF
+      FFFFFFFFFFFF2EC26BFFFFFFFFFFFFFFFFFFFFFFFFFF1ABA43FF1ABA43FF1BBA
+      44FF17B83AFF0A8D1BFF00000000009701FF2EC26BFF2EC26BFF2EC26BFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1ABA43FF1ABA43FF0EB426FF14B7
+      34FF11B62FFF057710FF00000000009102FF28BB5EFF2EC26BFF2EC26BFF2EC2
+      6BFFFFFFFFFFFFFFFFFFFFFFFFFF1ABA43FF1ABA43FF15B838FF12B630FF0FB5
+      2AFF0AB21DFF026708FF000000000000000017A437FF2EC26BFF2CC166FF25BF
+      5AFF21BD51FFFFFFFFFF1ABA43FF12B630FF13B631FF11B62EFF0BB321FF09B2
+      1CFF059712FF00000000000000000000000004860BFF23B753FF24BE58FF21BD
+      51FF1CBA45FF1ABA43FF12B630FF0EB426FF0EB426FF0AB21DFF07B118FF02AE
+      0DFF005F04FF00000000000000000000000000000000078414FF1CB645FF1BBA
+      44FF17B83AFF12B630FF0EB426FF1AB72DFF08B21BFF04AF11FF00AD09FF0067
+      05FF000000000000000000000000000000000000000000000000027108FF0C98
+      22FF11B62FFF0DB425FF09B21CFF06B016FF01AE0BFF009107FF005B04FF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000015F05FF026909FF026407FF005E04FF004D03FF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00003131FBFF3131FBFF3131FBFF3131FBFF3131FBFF00000000000000000000
+      00000000000000000000000000000000000000000000000000003131FBFF3131
+      FBFF6969FEFF8787FFFF9292FFFF7676FFFF5353FFFF5151F3FF3131FBFF0000
+      000000000000000000000000000000000000000000003131FBFF4949FDFF6E6E
+      FFFF9191FFFF9393FFFF8484FFFF7676FFFF6767FFFF5151FFFF3131FBFF3131
+      FBFF000000000000000000000000000000003131FBFF3E3EFBFF5353FFFF6868
+      EFFF5757F9FF3838FFFF2525FDFF2929FFFF3838FCFF4242EBFF3232FFFF1F1F
+      E9FF3131FBFF0000000000000000000000003131FBFF3232FFFF5252EDFFB3B3
+      C2FF7777CAFF0000EAFF0000ECFF0000E8FF5252B4FFADADB0FF4D4DE1FF1818
+      EDFF1818B1FF00000000000000004B4BD3FF2626E5FF2222FBFF3F3FE9FFDCDC
+      E5FFFDFDEEFF7373C5FF0303D7FF5151B0FFE3E3D6FFFFFFFEFF6161E5FF0808
+      DBFF0F0FCAFF121279FF000000004B4BD3FF1414D8FF1717EAFF0B0BF1FF4343
+      DBFFE4E4EAFFFDFDF5FFBABAD4FFEAEAE8FFFEFEFFFF6363E5FF0303D7FF0A0A
+      CFFF0A0AC3FF21217FFF000000004B4BD3FF0C0CC9FF0D0DD8FF0B0BDCFF0000
+      D6FF3C3DCEFFEEEFEDFFFFFFFFFFFFFFFDFF5858DBFF0000CAFF0303CBFF0606
+      C5FF0606B8FF121279FF000000004B4BD3FF0808BBFF0707C8FF0505D1FF0000
+      C8FF5353B6FFF2F2EDFFFFFFFFFFFFFFFCFF7575C9FF0000BEFF0101C3FF0303
+      B8FF0303ACFF10106FFF000000004B4BD3FF0707B1FF0303B9FF0000C2FF4C4C
+      A7FFE6E6D9FFFCFCFFFF9E9EE6FFE8E9F4FFFFFFF1FF7575B9FF0606B1FF0101
+      ABFF0202A0FF13145DFF00000000000000002929ACFF0000ABFF2828A3FFDEDE
+      D2FFFEFEFFFF6464D4FF0000B3FF4646C0FFE7E7ECFFFFFFF7FF5E5EB7FF0000
+      9AFF020287FF0000000000000000000000002929ACFF0101A3FF08089EFF9999
+      D4FF6868D0FF0000ACFF0000AEFF0000A9FF4848B8FFB7B7E3FF2727A5FF0000
+      8CFF010152FF000000000000000000000000000000002929ACFF000096FF0000
+      97FF00009BFF00009FFF0000A0FF00009DFF000097FF00008FFF000088FF0000
+      62FF0000000000000000000000000000000000000000000000002929ACFF0000
+      84FF00008EFF00008EFF00008FFF00008CFF000088FF000081FF010154FF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00002C2C6CFF050563FF000065FF000060FF00004FFF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000001DEEFF092DFFFF0F35
+      FFFF092DFFFF0528FFFF0224FFFF001DEEFF001BD9FF001AD5FF0018CAFF001A
+      D5FF0016B5FF0000000000000000000000000018CAFF5877FFFF7F98FFFF839C
+      FFFF7690FFFF6682FFFF4E6EFFFF284CFFFF0F35FFFF0224FFFF001FF9FF001F
+      F9FF001CE2FF0013A0FF00000000000000000018CAFF7F98FFFF728CFFFF5676
+      FFFF4163FFFF3559FFFF284CFFFF163BFFFF0224FFFF001FF9FF001DEEFF001E
+      F0FF001BD9FF0013A0FF00000000000000000018CAFF7690FFFF4163FFFF193F
+      FFFF163BFFFF092DFFFF0528FFFF0224FFFF0224FFFF001EF0FF001DEEFF001C
+      E2FF0018CAFF001187FF00000000000000000018CAFF6682FFFF2D51FFFF163B
+      FFFF0F35FFFF0224FFFFFFFFFFFFFFFFFFFF001DEEFF001CE2FF001CE2FF001B
+      D9FF0017B9FF000F7AFF00000000000000000018CAFF5A79FFFF2146FFFF092D
+      FFFF0224FFFF001EF0FFFFFFFFFFFFFFFFFF001CE2FF001BD9FF0018CAFF0018
+      CAFF0016B5FF000D6CFF00000000000000000018CAFF4E6EFFFF193FFFFF0224
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0018C6FF0018
+      C6FF0013A0FF000A51FF00000000000000000018CAFF3559FFFF0F35FFFF0224
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0017B9FF0016
+      B5FF0013A0FF000A4FFF00000000000000000018CAFF163BFFFF0528FFFF001E
+      F0FF001CE2FF001BD9FFFFFFFFFFFFFFFFFF0017B9FF0016B5FF0015AAFF0015
+      AAFF0013A0FF000A4FFF00000000000000000018CAFF0224FFFF001EF0FF001C
+      E2FF001AD5FF0018C6FFFFFFFFFFF4F7FFFF0016B5FF0015AAFF0013A0FF0017
+      B9FF001397FF000A4FFF00000000000000000018C6FF001EF0FF001CE2FF001A
+      D5FF0018C6FF0018C6FF0016B5FF0016B5FF0015AAFF0013A0FF0015AAFF0015
+      AAFF0013A0FF000A4FFF00000000000000000017B9FF001CE2FF001AD5FF0018
+      CAFF0018C6FF0016B5FF0016B5FF0015AAFF0015AAFF0016B5FF0015AAFF0016
+      B5FF0013A0FF000A4FFF0000000000000000001397FF0017B9FF0016B5FF0015
+      AAFF0013A0FF0013A0FF001397FF001397FF0013A0FF001397FF001397FF0013
+      A0FF000F7AFF000840FF000000000000000000000000000D6CFF000D6CFF000C
+      5DFF000A51FF000A4FFF000A4FFF000A4FFF000A4FFF000A4FFF000A4FFF000A
+      4FFF000840FF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000001DEEFF092DFFFF0F35
+      FFFF092DFFFF0528FFFF0224FFFF001DEEFF001BD9FF001AD1FF0019CCFF0019
+      CCFF0017B9FF0000000000000000000000000019CCFF5877FFFF7F98FFFF839C
+      FFFF7690FFFF6681F8FF4D6DFFFF294DFFFF0F35FFFF001FFFFF001FFFFF001F
+      FFFF001BD9FF0013A0FF00000000000000000019CCFF7F98FFFF728CFFFF5676
+      FFFF4163FFFF3559FFFF2449FFFF193FFFFF0224FFFF0224FFFF001EF0FF001E
+      F0FF001BD9FF0013A0FF00000000000000000019CCFF7690FFFF4163FFFF193F
+      FFFF163BFFFF092DFFFF0528FFFF0224FFFF1C41FFFFEAEEFAFFC1CCFBFF001C
+      E2FF0019CCFF001187FF00000000000000000019CCFF6681F8FF2D51FFFF163B
+      FFFF0F35FFFF0224FFFF001FFFFF0528FFFFEAEEFAFFFFFFFFFFEAEEFAFF001B
+      D9FF0017B9FF000F7AFF00000000000000000019CCFF5A79FFFF2146FFFF092D
+      FFFF294DFFFF6681F8FF4565F4FFC1CCFBFFFFFFFFFFEAEEFAFF1C3BD5FF0019
+      CCFF0016B5FF000D6CFF00000000000000000019CCFF4D6DFFFF193FFFFF4D6D
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEAEEFAFF1C3BD5FF0018C6FF0017
+      B9FF0015AAFF000A51FF00000000000000000019CCFF3559FFFF0F35FFFFFFFF
+      FFFFFFFFFFFF768FF3FFEAEEFAFFFFFFFFFF889CEBFF0018C6FF0016B5FF0016
+      B5FF0013A0FF000A4FFF00000000000000000019CCFF163BFFFF0528FFFFFFFF
+      FFFF768FF3FF001AD1FF3654DEFFFFFFFFFFADBBEEFF0016B5FF0015AAFF0016
+      B5FF001397FF000A4FFF00000000000000000019CCFF0224FFFF001EF0FF9AAC
+      F6FF0624D7FF0019CCFF9AAAEBFFFFFFFFFF8899E0FF0015AAFF0015AAFF0015
+      AAFF0013A0FF000A4FFF00000000000000000018C6FF001EF0FF001CE2FF001A
+      D1FF0018C6FF3653D3FFEAEEFAFF8899E0FF061FAFFF0013A0FF0015AAFF0015
+      AAFF0013A0FF000A4FFF00000000000000000017B9FF001CE2FF001AD1FF0019
+      CCFF0018C6FF0016B5FF0016B5FF0015AAFF0015AAFF0016B5FF0015AAFF0016
+      B5FF0013A0FF000A4FFF0000000000000000001397FF0017B9FF0016B5FF0015
+      AAFF0013A0FF0013A0FF001397FF001397FF0013A0FF001397FF001397FF0013
+      A0FF000F7AFF000840FF000000000000000000000000000D6CFF000D6CFF000C
+      5DFF000A51FF000A4FFF000A4FFF000A4FFF000A4FFF000A4FFF000A4FFF000A
+      4FFF000840FF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000001DEEFF092DFFFF0F35
+      FFFF092DFFFF0528FFFF0224FFFF001DEEFF001CDEFF001AD5FF0018CAFF001A
+      D5FF0016B5FF0000000000000000000000000018CAFF5877FFFF7F98FFFF839C
+      FFFF7690FFFF6682FFFF4E6EFFFF284CFFFF0F35FFFF0224FFFF001FFFFF001D
+      EEFF001CE2FF0013A0FF00000000000000000018CAFF7F98FFFF728CFFFF5676
+      FFFF4163FFFF3559FFFF284CFFFF163BFFFF0224FFFF001FFFFF001DEEFF001D
+      EEFF001CDEFF001397FF00000000000000000018CAFF7690FFFF4163FFFF193F
+      FFFF163BFFFF092DFFFF0528FFFF0224FFFF0224FFFF001DEEFF001DEEFF001C
+      E2FF0018C6FF001187FF00000000000000000018CAFF6682FFFF2D51FFFF163B
+      FFFF0F35FFFF0224FFFF001FFFFF001EF0FF001EF0FF001DEEFF001CDEFF001C
+      DEFF0017B9FF000F7AFF00000000000000000018CAFF5A79FFFF2146FFFF092D
+      FFFF0224FFFF001EF0FF001DEEFF001DEEFF001CE2FF001AD5FF0018CAFF0018
+      CAFF0016B5FF000D6CFF00000000000000000018CAFF4E6EFFFF193FFFFF0224
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0018C6FF0018
+      C6FF00139DFF000C5DFF00000000000000000018CAFF3559FFFF0F35FFFF0224
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0017B9FF0016
+      B5FF0013A0FF000A4FFF00000000000000000018CAFF163BFFFF0528FFFF001E
+      F0FF001CE2FF001AD5FF0018CAFF0018CAFF0017B9FF0016B5FF0015AAFF0015
+      AAFF0013A0FF000A4FFF00000000000000000018CAFF0224FFFF001EF0FF001C
+      E2FF001AD5FF0018CAFF0018C6FF0016B5FF0016B5FF0015AAFF0013A0FF0017
+      B9FF001397FF000A4FFF00000000000000000018C6FF001EF0FF001CE2FF001A
+      D5FF0018C6FF0018C6FF0016B5FF0016B5FF0015AAFF0013A0FF0015AAFF0015
+      AAFF0013A0FF000A4FFF00000000000000000017B9FF001CE2FF001AD5FF0018
+      CAFF0018C6FF0016B5FF0016B5FF0015AAFF0015AAFF0016B5FF0015AAFF0016
+      B5FF0013A0FF000A4FFF0000000000000000001397FF0017B9FF0016B5FF0015
+      AAFF0013A0FF0013A0FF001397FF001397FF0013A0FF001397FF001397FF0013
+      A0FF000F7AFF000840FF000000000000000000000000000D6CFF000D6CFF000C
+      5DFF000A51FF000A4FFF000A4FFF000A4FFF000A4FFF000A4FFF000A4FFF000A
+      4FFF000840FF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000
+    }
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.lrs
new file mode 100644
index 0000000..bb7bcf8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.lrs	
@@ -0,0 +1,249 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TReconcileDialogForm','FORMDATA',[
+  'TPF0'#20'TReconcileDialogForm'#19'ReconcileDialogForm'#4'Left'#3'G'#1#6'Heig'
+  +'ht'#3'e'#1#3'Top'#3#206#0#5'Width'#3#3#2#13'ActiveControl'#7#8'TreeView'#11
+  +'BorderStyle'#7#8'bsDialog'#7'Caption'#6'4One or more updates failed to appl'
+  +'y on the server...'#12'ClientHeight'#3'e'#1#11'ClientWidth'#3#3#2#11'Font.H'
+  +'eight'#2#245#9'Font.Name'#6#6'Tahoma'#8'OnCreate'#7#10'FormCreate'#9'OnDest'
+  +'roy'#7#11'FormDestroy'#8'Position'#7#17'poOwnerFormCenter'#10'LCLVersion'#6
+  +#6'0.9.29'#0#6'TLabel'#6'Label1'#4'Left'#3#8#1#6'Height'#2'('#3'Top'#3#154#0
+  +#5'Width'#3#239#0#7'Caption'#6#143'Skip over this change and ignore the erro'
+  +'r. You can try and correct the problem by modifying data, or reapply the ch'
+  +'ange again at a later time.'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#6
+  +'Label2'#4'Left'#3#8#1#6'Height'#2#27#3'Top'#3#210#0#5'Width'#3#210#0#7'Capt'
+  +'ion'#6'LCancel the changes you made  and restore the record to it''s origin'
+  +'al values.'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#6'Label3'#4'Left'
+  +#3#8#1#6'Height'#2'('#3'Top'#3#10#1#5'Width'#3#231#0#7'Caption'#6'wShow a di'
+  +'alog with details of the changes made to the record since it was last retri'
+  +'eved from or applied to the server.'#11'ParentColor'#8#8'WordWrap'#9#0#0#7
+  +'TButton'#10'SkipButton'#4'Left'#3#161#0#6'Height'#2#25#3'Top'#3#154#0#5'Wid'
+  +'th'#2'`'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#12'&Skip Change'#7
+  +'OnClick'#7#15'SkipButtonClick'#8'TabOrder'#2#3#0#0#7'TButton'#12'CancelButt'
+  +'on'#4'Left'#3#161#0#6'Height'#2#25#3'Top'#3#210#0#5'Width'#2'`'#25'BorderSp'
+  +'acing.InnerBorder'#2#4#7'Caption'#6#14'&Cancel Change'#7'OnClick'#7#17'Canc'
+  +'elButtonClick'#8'TabOrder'#2#4#0#0#7'TButton'#13'SkipAllButton'#4'Left'#2#0
+  +#6'Height'#2#25#3'Top'#3'L'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBott'
+  +'om'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'Skip &All'#7'OnClick'
+  +#7#18'SkipAllButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#15'CancelAllButton'
+  +#4'Left'#2'P'#6'Height'#2#25#3'Top'#3'L'#1#5'Width'#2'K'#7'Anchors'#11#6'akL'
+  +'eft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Cancel'
+  +' A&ll'#7'OnClick'#7#20'CancelAllButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'
+  +#16'ShowDetailButton'#4'Left'#3#161#0#6'Height'#2#25#3'Top'#3#10#1#5'Width'#2
+  +'`'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'Show &Details'#7'OnCli'
+  +'ck'#7#21'ShowDetailButtonClick'#8'TabOrder'#2#5#0#0#9'TTreeView'#8'TreeView'
+  +#4'Left'#2#0#6'Height'#3'G'#1#3'Top'#2#0#5'Width'#3#155#0#7'Anchors'#11#5'ak'
+  +'Top'#6'akLeft'#8'akBottom'#0#17'DefaultItemHeight'#2#16#13'HideSelection'#8
+  +#6'Indent'#2#20#16'RightClickSelect'#9#9'RowSelect'#9#11'ShowButtons'#8#9'Sh'
+  +'owLines'#8#8'ShowRoot'#8#11'StateImages'#7#9'ImageList'#8'TabOrder'#2#0#7'O'
+  +'nClick'#7#12'ListBoxClick'#7'Options'#11#17'tvoAutoItemHeight'#21'tvoKeepCo'
+  +'llapsedNodes'#19'tvoRightClickSelect'#12'tvoRowSelect'#11'tvoToolTips'#0#0#0
+  +#7'TButton'#10'btn_Cancel'#4'Left'#3#184#1#6'Height'#2#25#3'Top'#3'L'#1#5'Wi'
+  +'dth'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBord'
+  +'er'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2
+  +#6#0#0#5'TMemo'#15'memMessageError'#4'Left'#3#161#0#6'Height'#3#146#0#3'Top'
+  +#2#0#5'Width'#3'V'#1#5'Color'#7#9'clBtnFace'#10'ScrollBars'#7#14'ssAutoVerti'
+  +'cal'#8'TabOrder'#2#7#7'TabStop'#8#0#0#10'TImageList'#9'ImageList'#4'left'#2
+  +';'#3'top'#2'|'#6'Bitmap'#10#14#20#0#0'Li'#5#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#184#0#255#0#182#0#255#0#174#0#255#0#173#0
+  +#255#0#166#1#255#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#184#0#255'G'#203'I'#255#132#218#145#255#140#220#166#255'j'#211
+  +#145#255'N'#203#127#255'-'#191'a'#255#23#177'6'#255#4#156#10#255#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#188#16#255'w'#215#128#255#152#224#173
+  +#255'v'#215#152#255'Z'#206#134#255':'#197's'#255'.'#194'k'#255'.'#194'k'#255
+  +'.'#194'k'#255'('#189'^'#255#9#152#23#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#183#0#255'u'#214#131#255#130#218#160#255'f'#210#142#255'D'#200'y'#255':'#197
+  +'s'#255'.'#194'k'#255'.'#194'k'#255'.'#194'k'#255'('#189'^'#255'+'#191'd'#255
+  +'+'#191'd'#255#3#135#10#255#0#0#0#0#0#0#0#0#0#0#0#0'1'#190'<'#255'r'#213#149
+  +#255'R'#204#130#255'5'#196'p'#255':'#197's'#255'.'#194'k'#255'.'#194'k'#255
+  +'.'#194'k'#255'.'#194'k'#255#255#255#255#255'+'#191'd'#255'-'#194'j'#255#26
+  +#167'>'#255#0#0#0#0#0#0#0#0#0#173#0#255'D'#198'e'#255'?'#199'v'#255'.'#194'k'
+  +#255':'#197's'#255'.'#194'k'#255'.'#194'k'#255'.'#194'k'#255'.'#194'k'#255
+  +#255#255#255#255#255#255#255#255'+'#191'd'#255'%'#191'Z'#255'#'#190'W'#255#4
+  +'~'#13#255#0#0#0#0#0#164#1#255'3'#195'n'#255'.'#194'k'#255'.'#194'k'#255#255
+  +#255#255#255'.'#194'k'#255'.'#194'k'#255'.'#194'k'#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255'+'#191'd'#255'!'#189'Q'#255#28#186'E'#255#7#127
+  +#19#255#0#0#0#0#0#160#1#255'.'#194'k'#255'.'#194'k'#255'.'#194'k'#255#255#255
+  +#255#255#255#255#255#255'.'#194'k'#255#255#255#255#255#255#255#255#255#255
+  ,#255#255#255#26#186'C'#255#26#186'C'#255#27#186'D'#255#23#184':'#255#10#141
+  +#27#255#0#0#0#0#0#151#1#255'.'#194'k'#255'.'#194'k'#255'.'#194'k'#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#26
+  +#186'C'#255#26#186'C'#255#14#180'&'#255#20#183'4'#255#17#182'/'#255#5'w'#16
+  +#255#0#0#0#0#0#145#2#255'('#187'^'#255'.'#194'k'#255'.'#194'k'#255'.'#194'k'
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#26#186'C'#255#26#186'C'
+  +#255#21#184'8'#255#18#182'0'#255#15#181'*'#255#10#178#29#255#2'g'#8#255#0#0#0
+  +#0#0#0#0#0#23#164'7'#255'.'#194'k'#255','#193'f'#255'%'#191'Z'#255'!'#189'Q'
+  +#255#255#255#255#255#26#186'C'#255#18#182'0'#255#19#182'1'#255#17#182'.'#255
+  +#11#179'!'#255#9#178#28#255#5#151#18#255#0#0#0#0#0#0#0#0#0#0#0#0#4#134#11#255
+  +'#'#183'S'#255'$'#190'X'#255'!'#189'Q'#255#28#186'E'#255#26#186'C'#255#18#182
+  +'0'#255#14#180'&'#255#14#180'&'#255#10#178#29#255#7#177#24#255#2#174#13#255#0
+  +'_'#4#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#132#20#255#28#182'E'#255#27#186
+  +'D'#255#23#184':'#255#18#182'0'#255#14#180'&'#255#26#183'-'#255#8#178#27#255
+  +#4#175#17#255#0#173#9#255#0'g'#5#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#2'q'#8#255#12#152'"'#255#17#182'/'#255#13#180'%'#255#9#178#28#255#6
+  +#176#22#255#1#174#11#255#0#145#7#255#0'['#4#255#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#1'_'#5#255#2'i'#9#255#2'd'#7#255#0
+  +'^'#4#255#0'M'#3#255#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#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'11'#251#255'11'#251#255'11'#251#255'11'#251#255'11'#251#255#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'11'#251#255
+  +'11'#251#255'ii'#254#255#135#135#255#255#146#146#255#255'vv'#255#255'SS'#255
+  +#255'QQ'#243#255'11'#251#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +'11'#251#255'II'#253#255'nn'#255#255#145#145#255#255#147#147#255#255#132#132
+  +#255#255'vv'#255#255'gg'#255#255'QQ'#255#255'11'#251#255'11'#251#255#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0'11'#251#255'>>'#251#255'SS'#255#255'hh'#239#255'WW'
+  +#249#255'88'#255#255'%%'#253#255'))'#255#255'88'#252#255'BB'#235#255'22'#255
+  +#255#31#31#233#255'11'#251#255#0#0#0#0#0#0#0#0#0#0#0#0'11'#251#255'22'#255
+  +#255'RR'#237#255#179#179#194#255'ww'#202#255#0#0#234#255#0#0#236#255#0#0#232
+  +#255'RR'#180#255#173#173#176#255'MM'#225#255#24#24#237#255#24#24#177#255#0#0
+  +#0#0#0#0#0#0'KK'#211#255'&&'#229#255'""'#251#255'??'#233#255#220#220#229#255
+  +#253#253#238#255'ss'#197#255#3#3#215#255'QQ'#176#255#227#227#214#255#255#255
+  +#254#255'aa'#229#255#8#8#219#255#15#15#202#255#18#18'y'#255#0#0#0#0'KK'#211
+  +#255#20#20#216#255#23#23#234#255#11#11#241#255'CC'#219#255#228#228#234#255
+  +#253#253#245#255#186#186#212#255#234#234#232#255#254#254#255#255'cc'#229#255
+  +#3#3#215#255#10#10#207#255#10#10#195#255'!!'#127#255#0#0#0#0'KK'#211#255#12
+  +#12#201#255#13#13#216#255#11#11#220#255#0#0#214#255'<='#206#255#238#239#237
+  +#255#255#255#255#255#255#255#253#255'XX'#219#255#0#0#202#255#3#3#203#255#6#6
+  +#197#255#6#6#184#255#18#18'y'#255#0#0#0#0'KK'#211#255#8#8#187#255#7#7#200#255
+  +#5#5#209#255#0#0#200#255'SS'#182#255#242#242#237#255#255#255#255#255#255#255
+  +#252#255'uu'#201#255#0#0#190#255#1#1#195#255#3#3#184#255#3#3#172#255#16#16'o'
+  +#255#0#0#0#0'KK'#211#255#7#7#177#255#3#3#185#255#0#0#194#255'LL'#167#255#230
+  +#230#217#255#252#252#255#255#158#158#230#255#232#233#244#255#255#255#241#255
+  +'uu'#185#255#6#6#177#255#1#1#171#255#2#2#160#255#19#20']'#255#0#0#0#0#0#0#0#0
+  +'))'#172#255#0#0#171#255'(('#163#255#222#222#210#255#254#254#255#255'dd'#212
+  +#255#0#0#179#255'FF'#192#255#231#231#236#255#255#255#247#255'^^'#183#255#0#0
+  +#154#255#2#2#135#255#0#0#0#0#0#0#0#0#0#0#0#0'))'#172#255#1#1#163#255#8#8#158
+  +#255#153#153#212#255'hh'#208#255#0#0#172#255#0#0#174#255#0#0#169#255'HH'#184
+  +#255#183#183#227#255''''''#165#255#0#0#140#255#1#1'R'#255#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0'))'#172#255#0#0#150#255#0#0#151#255#0#0#155#255#0#0#159#255#0#0
+  +#160#255#0#0#157#255#0#0#151#255#0#0#143#255#0#0#136#255#0#0'b'#255#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'))'#172#255#0#0#132#255#0#0#142#255#0
+  +#0#142#255#0#0#143#255#0#0#140#255#0#0#136#255#0#0#129#255#1#1'T'#255#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',,l'#255#5#5
+  +'c'#255#0#0'e'#255#0#0'`'#255#0#0'O'#255#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#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#0#0#0#0#0#0#0#0#0#0#0#29#238#255#9'-'
+  +#255#255#15'5'#255#255#9'-'#255#255#5'('#255#255#2'$'#255#255#0#29#238#255#0
+  +#27#217#255#0#26#213#255#0#24#202#255#0#26#213#255#0#22#181#255#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#24#202#255'Xw'#255#255#127#152#255#255#131#156#255#255'v'#144
+  ,#255#255'f'#130#255#255'Nn'#255#255'(L'#255#255#15'5'#255#255#2'$'#255#255#0
+  +#31#249#255#0#31#249#255#0#28#226#255#0#19#160#255#0#0#0#0#0#0#0#0#0#24#202
+  +#255#127#152#255#255'r'#140#255#255'Vv'#255#255'Ac'#255#255'5Y'#255#255'(L'
+  +#255#255#22';'#255#255#2'$'#255#255#0#31#249#255#0#29#238#255#0#30#240#255#0
+  +#27#217#255#0#19#160#255#0#0#0#0#0#0#0#0#0#24#202#255'v'#144#255#255'Ac'#255
+  +#255#25'?'#255#255#22';'#255#255#9'-'#255#255#5'('#255#255#2'$'#255#255#2'$'
+  +#255#255#0#30#240#255#0#29#238#255#0#28#226#255#0#24#202#255#0#17#135#255#0#0
+  +#0#0#0#0#0#0#0#24#202#255'f'#130#255#255'-Q'#255#255#22';'#255#255#15'5'#255
+  +#255#2'$'#255#255#255#255#255#255#255#255#255#255#0#29#238#255#0#28#226#255#0
+  +#28#226#255#0#27#217#255#0#23#185#255#0#15'z'#255#0#0#0#0#0#0#0#0#0#24#202
+  +#255'Zy'#255#255'!F'#255#255#9'-'#255#255#2'$'#255#255#0#30#240#255#255#255
+  +#255#255#255#255#255#255#0#28#226#255#0#27#217#255#0#24#202#255#0#24#202#255
+  +#0#22#181#255#0#13'l'#255#0#0#0#0#0#0#0#0#0#24#202#255'Nn'#255#255#25'?'#255
+  +#255#2'$'#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#0#24#198#255#0#24#198#255#0#19#160#255#0
+  +#10'Q'#255#0#0#0#0#0#0#0#0#0#24#202#255'5Y'#255#255#15'5'#255#255#2'$'#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#0#23#185#255#0#22#181#255#0#19#160#255#0#10'O'#255#0
+  +#0#0#0#0#0#0#0#0#24#202#255#22';'#255#255#5'('#255#255#0#30#240#255#0#28#226
+  +#255#0#27#217#255#255#255#255#255#255#255#255#255#0#23#185#255#0#22#181#255#0
+  +#21#170#255#0#21#170#255#0#19#160#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#24#202
+  +#255#2'$'#255#255#0#30#240#255#0#28#226#255#0#26#213#255#0#24#198#255#255#255
+  +#255#255#244#247#255#255#0#22#181#255#0#21#170#255#0#19#160#255#0#23#185#255
+  +#0#19#151#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#24#198#255#0#30#240#255#0#28#226
+  +#255#0#26#213#255#0#24#198#255#0#24#198#255#0#22#181#255#0#22#181#255#0#21
+  +#170#255#0#19#160#255#0#21#170#255#0#21#170#255#0#19#160#255#0#10'O'#255#0#0
+  +#0#0#0#0#0#0#0#23#185#255#0#28#226#255#0#26#213#255#0#24#202#255#0#24#198#255
+  +#0#22#181#255#0#22#181#255#0#21#170#255#0#21#170#255#0#22#181#255#0#21#170
+  +#255#0#22#181#255#0#19#160#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#19#151#255#0#23
+  +#185#255#0#22#181#255#0#21#170#255#0#19#160#255#0#19#160#255#0#19#151#255#0
+  +#19#151#255#0#19#160#255#0#19#151#255#0#19#151#255#0#19#160#255#0#15'z'#255#0
+  +#8'@'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#13'l'#255#0#13'l'#255#0#12']'#255#0#10'Q'
+  +#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255
+  +#0#10'O'#255#0#8'@'#255#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#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#29#238#255#9'-'#255#255#15'5'#255#255#9'-'#255#255#5'('#255#255#2'$'
+  +#255#255#0#29#238#255#0#27#217#255#0#26#209#255#0#25#204#255#0#25#204#255#0
+  +#23#185#255#0#0#0#0#0#0#0#0#0#0#0#0#0#25#204#255'Xw'#255#255#127#152#255#255
+  +#131#156#255#255'v'#144#255#255'f'#129#248#255'Mm'#255#255')M'#255#255#15'5'
+  +#255#255#0#31#255#255#0#31#255#255#0#31#255#255#0#27#217#255#0#19#160#255#0#0
+  +#0#0#0#0#0#0#0#25#204#255#127#152#255#255'r'#140#255#255'Vv'#255#255'Ac'#255
+  +#255'5Y'#255#255'$I'#255#255#25'?'#255#255#2'$'#255#255#2'$'#255#255#0#30#240
+  +#255#0#30#240#255#0#27#217#255#0#19#160#255#0#0#0#0#0#0#0#0#0#25#204#255'v'
+  +#144#255#255'Ac'#255#255#25'?'#255#255#22';'#255#255#9'-'#255#255#5'('#255
+  +#255#2'$'#255#255#28'A'#255#255#234#238#250#255#193#204#251#255#0#28#226#255
+  +#0#25#204#255#0#17#135#255#0#0#0#0#0#0#0#0#0#25#204#255'f'#129#248#255'-Q'
+  +#255#255#22';'#255#255#15'5'#255#255#2'$'#255#255#0#31#255#255#5'('#255#255
+  +#234#238#250#255#255#255#255#255#234#238#250#255#0#27#217#255#0#23#185#255#0
+  +#15'z'#255#0#0#0#0#0#0#0#0#0#25#204#255'Zy'#255#255'!F'#255#255#9'-'#255#255
+  +')M'#255#255'f'#129#248#255'Ee'#244#255#193#204#251#255#255#255#255#255#234
+  +#238#250#255#28';'#213#255#0#25#204#255#0#22#181#255#0#13'l'#255#0#0#0#0#0#0
+  +#0#0#0#25#204#255'Mm'#255#255#25'?'#255#255'Mm'#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#234#238#250#255#28';'#213#255#0
+  +#24#198#255#0#23#185#255#0#21#170#255#0#10'Q'#255#0#0#0#0#0#0#0#0#0#25#204
+  +#255'5Y'#255#255#15'5'#255#255#255#255#255#255#255#255#255#255'v'#143#243#255
+  +#234#238#250#255#255#255#255#255#136#156#235#255#0#24#198#255#0#22#181#255#0
+  +#22#181#255#0#19#160#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#25#204#255#22';'#255
+  +#255#5'('#255#255#255#255#255#255'v'#143#243#255#0#26#209#255'6T'#222#255#255
+  +#255#255#255#173#187#238#255#0#22#181#255#0#21#170#255#0#22#181#255#0#19#151
+  +#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#25#204#255#2'$'#255#255#0#30#240#255#154
+  +#172#246#255#6'$'#215#255#0#25#204#255#154#170#235#255#255#255#255#255#136
+  +#153#224#255#0#21#170#255#0#21#170#255#0#21#170#255#0#19#160#255#0#10'O'#255
+  ,#0#0#0#0#0#0#0#0#0#24#198#255#0#30#240#255#0#28#226#255#0#26#209#255#0#24#198
+  +#255'6S'#211#255#234#238#250#255#136#153#224#255#6#31#175#255#0#19#160#255#0
+  +#21#170#255#0#21#170#255#0#19#160#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#23#185
+  +#255#0#28#226#255#0#26#209#255#0#25#204#255#0#24#198#255#0#22#181#255#0#22
+  +#181#255#0#21#170#255#0#21#170#255#0#22#181#255#0#21#170#255#0#22#181#255#0
+  +#19#160#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#19#151#255#0#23#185#255#0#22#181
+  +#255#0#21#170#255#0#19#160#255#0#19#160#255#0#19#151#255#0#19#151#255#0#19
+  +#160#255#0#19#151#255#0#19#151#255#0#19#160#255#0#15'z'#255#0#8'@'#255#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#13'l'#255#0#13'l'#255#0#12']'#255#0#10'Q'#255#0#10'O'
+  +#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255
+  +#0#8'@'#255#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#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#29
+  +#238#255#9'-'#255#255#15'5'#255#255#9'-'#255#255#5'('#255#255#2'$'#255#255#0
+  +#29#238#255#0#28#222#255#0#26#213#255#0#24#202#255#0#26#213#255#0#22#181#255
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#24#202#255'Xw'#255#255#127#152#255#255#131#156#255
+  +#255'v'#144#255#255'f'#130#255#255'Nn'#255#255'(L'#255#255#15'5'#255#255#2'$'
+  +#255#255#0#31#255#255#0#29#238#255#0#28#226#255#0#19#160#255#0#0#0#0#0#0#0#0
+  +#0#24#202#255#127#152#255#255'r'#140#255#255'Vv'#255#255'Ac'#255#255'5Y'#255
+  +#255'(L'#255#255#22';'#255#255#2'$'#255#255#0#31#255#255#0#29#238#255#0#29
+  +#238#255#0#28#222#255#0#19#151#255#0#0#0#0#0#0#0#0#0#24#202#255'v'#144#255
+  +#255'Ac'#255#255#25'?'#255#255#22';'#255#255#9'-'#255#255#5'('#255#255#2'$'
+  +#255#255#2'$'#255#255#0#29#238#255#0#29#238#255#0#28#226#255#0#24#198#255#0
+  +#17#135#255#0#0#0#0#0#0#0#0#0#24#202#255'f'#130#255#255'-Q'#255#255#22';'#255
+  +#255#15'5'#255#255#2'$'#255#255#0#31#255#255#0#30#240#255#0#30#240#255#0#29
+  +#238#255#0#28#222#255#0#28#222#255#0#23#185#255#0#15'z'#255#0#0#0#0#0#0#0#0#0
+  +#24#202#255'Zy'#255#255'!F'#255#255#9'-'#255#255#2'$'#255#255#0#30#240#255#0
+  +#29#238#255#0#29#238#255#0#28#226#255#0#26#213#255#0#24#202#255#0#24#202#255
+  +#0#22#181#255#0#13'l'#255#0#0#0#0#0#0#0#0#0#24#202#255'Nn'#255#255#25'?'#255
+  +#255#2'$'#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#0#24#198#255#0#24#198#255#0#19#157#255#0
+  +#12']'#255#0#0#0#0#0#0#0#0#0#24#202#255'5Y'#255#255#15'5'#255#255#2'$'#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#0#23#185#255#0#22#181#255#0#19#160#255#0#10'O'#255#0
+  +#0#0#0#0#0#0#0#0#24#202#255#22';'#255#255#5'('#255#255#0#30#240#255#0#28#226
+  +#255#0#26#213#255#0#24#202#255#0#24#202#255#0#23#185#255#0#22#181#255#0#21
+  +#170#255#0#21#170#255#0#19#160#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#24#202#255#2
+  +'$'#255#255#0#30#240#255#0#28#226#255#0#26#213#255#0#24#202#255#0#24#198#255
+  +#0#22#181#255#0#22#181#255#0#21#170#255#0#19#160#255#0#23#185#255#0#19#151
+  +#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#24#198#255#0#30#240#255#0#28#226#255#0#26
+  +#213#255#0#24#198#255#0#24#198#255#0#22#181#255#0#22#181#255#0#21#170#255#0
+  +#19#160#255#0#21#170#255#0#21#170#255#0#19#160#255#0#10'O'#255#0#0#0#0#0#0#0
+  +#0#0#23#185#255#0#28#226#255#0#26#213#255#0#24#202#255#0#24#198#255#0#22#181
+  +#255#0#22#181#255#0#21#170#255#0#21#170#255#0#22#181#255#0#21#170#255#0#22
+  +#181#255#0#19#160#255#0#10'O'#255#0#0#0#0#0#0#0#0#0#19#151#255#0#23#185#255#0
+  +#22#181#255#0#21#170#255#0#19#160#255#0#19#160#255#0#19#151#255#0#19#151#255
+  +#0#19#160#255#0#19#151#255#0#19#151#255#0#19#160#255#0#15'z'#255#0#8'@'#255#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#13'l'#255#0#13'l'#255#0#12']'#255#0#10'Q'#255#0#10
+  +'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'#255#0#10'O'
+  +#255#0#8'@'#255#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
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.pas
new file mode 100644
index 0000000..3c99136
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialog.pas	
@@ -0,0 +1,391 @@
+unit uDAReconcileDialog;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS} Windows,{$ENDIF} SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  {$IFDEF FPC} buttons,LResources,LCLType,{$ENDIF}
+  Dialogs, StdCtrls, ComCtrls, ImgList,
+  uDAInterfaces,uDADelta, uDADatatable, uDADataAdapter;
+
+type
+  TReconcileDialogForm = class(TForm)
+    SkipButton: TButton;
+    CancelButton: TButton;
+    SkipAllButton: TButton;
+    CancelAllButton: TButton;
+    ShowDetailButton: TButton;
+    TreeView: TTreeView;
+    ImageList: TImageList;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    btn_Cancel: TButton;
+    memMessageError: TMemo;
+    procedure SkipButtonClick(Sender: TObject);
+    procedure CancelButtonClick(Sender: TObject);
+    procedure SkipAllButtonClick(Sender: TObject);
+    procedure CancelAllButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure ShowDetailButtonClick(Sender: TObject);
+    procedure ListBoxClick(Sender: TObject);
+  private
+    { Private declarations }
+    ChangeList: TList;
+    TableList: TList;
+    RDA: TDABaseDataAdapter;
+    procedure CancelChange(aNode: TTreeNode);
+    procedure SkipChange(aNode: TTreeNode);
+    procedure SkipAllChanges;
+    procedure CancelAllChanges;
+    procedure Setup;
+    function FindDatatable(ADelta: IDADelta): TDADatatable;
+    procedure DeleteNodeFromTreeView(aNode: TTreeNode);
+  end;
+
+var
+  ReconcileDialogForm: TReconcileDialogForm;
+
+procedure ReconcileDialog(RemoteDataAdapter: TDABaseDataAdapter; var AFailedDeltaList: TList; aTableList: TList);
+
+implementation
+
+uses
+  uDAReconcileDialogDetails, uROBinaryHelpers;
+
+{$IFNDEF FPC}
+  {$R *.dfm}
+{$ENDIF}
+
+
+function GenerateNodeCaption(aChange: TDADeltaChange): String;
+
+  function _VarToStr(AValue: variant; ADataType: TDADataType): string;
+  begin
+    if ADataType = datDecimal then
+      Result := DecimalVariantToString(AValue)
+    else
+      Result := VarToStr(AValue)
+  end;
+
+var
+  j: integer;
+begin
+  Result := aChange.Delta.LogicalName + ':';
+  for j := 0 to aChange.Delta.KeyFieldCount - 1 do begin
+    if j > 0 then Result := Result + ';';
+    if aChange.ChangeType = ctDelete then
+      Result := Result + _VarToStr(aChange.OldValueByName[aChange.Delta.KeyFieldNames[j]], aChange.Delta.LoggedFieldTypes[j])
+    else
+      Result := Result + _VarToStr(aChange.NewValueByName[aChange.Delta.KeyFieldNames[j]], aChange.Delta.LoggedFieldTypes[j]);
+  end;
+end;
+
+type
+  THackDataTable = class(TDADataTable)
+
+  end;
+
+procedure ReconcileDialog_ruoOnPost(RemoteDataAdapter: TDABaseDataAdapter; aChange: TDADeltaChange; aTable: TDADataTable);
+var
+  lAction: TDAReconcileDialogAction;
+  lHandled: Boolean;
+begin
+  lAction := rdlgRevert;
+  lHandled:=False;
+  if Assigned(RemoteDataAdapter) and Assigned(RemoteDataAdapter.OnShowReconcileRecordInAppUI) then
+     RemoteDataAdapter.OnShowReconcileRecordInAppUI(RemoteDataAdapter, aChange, aTable, lHandled,lAction);
+  if not lHandled then begin
+    if (aChange.ChangeType = ctInsert) and not (RemoteDataAdapter.FailureBehavior in [fbRaiseException,fbBoth]) then
+      // we can't call Table.Cancel inside Table.Post so just raise Exception
+      raise Exception.Create(aChange.Message)
+    else
+      ReconcileDialogShowDetails(aChange, aTable, GenerateNodeCaption(aChange), lAction);
+  end;
+  case lAction of
+    rdlgSkip:   Raise Exception.Create('rdlgSkip can''t be used for tables in the ruoOnPost mode.');
+    rdlgCancel: Raise Exception.Create('rdlgCancel can''t be used for tables in the ruoOnPost mode.');
+    rdlgNone:   Raise Exception.Create('rdlgNone can''t be used for tables in the ruoOnPost mode.');
+    rdlgRepost: begin
+                  aChange.Status := csPending;
+                  THackDataTable(aTable).InternalApplyUpdates();
+                end;
+    rdlgRevert: begin
+      aTable.CancelUpdateChange(aChange);
+    end;
+  end;
+end;
+
+procedure ReconcileDialog(RemoteDataAdapter: TDABaseDataAdapter; var AFailedDeltaList: TList; aTableList: TList);
+begin
+  if (AFailedDeltaList.Count = 1) and (aTableList.Count = 1) and
+     (AnsiSameText(TDADeltaChange(AFailedDeltaList[0]).Delta.LogicalName, TDADataTable(aTableList[0]).LogicalName)) and
+     (ruoOnPost in TDADataTable(aTableList[0]).RemoteUpdatesOptions) then begin
+    ReconcileDialog_ruoOnPost(RemoteDataAdapter,TDADeltaChange(AFailedDeltaList[0]), TDADataTable(aTableList[0]));
+    AFailedDeltaList.Clear;
+  end
+  else begin
+    with TReconcileDialogForm.Create(Application) do try
+      RDA:=RemoteDataAdapter;
+      ChangeList.Assign(AFailedDeltaList);
+      TableList.Assign(aTableList);
+      Setup;
+      ShowModal;
+      AFailedDeltaList.Assign(ChangeList);
+    finally
+      Release;
+    end;
+  end;
+end;
+
+procedure TReconcileDialogForm.SkipButtonClick(Sender: TObject);
+begin
+  SkipChange(TreeView.Selected);
+end;
+
+procedure TReconcileDialogForm.CancelButtonClick(Sender: TObject);
+begin
+  CancelChange(TreeView.Selected);
+end;
+
+procedure TReconcileDialogForm.SkipAllButtonClick(Sender: TObject);
+begin
+  SkipAllChanges;
+end;
+
+procedure TReconcileDialogForm.CancelAllButtonClick(Sender: TObject);
+begin
+  CancelAllChanges;
+end;
+
+procedure TReconcileDialogForm.CancelAllChanges;
+begin
+  if Application.MessageBox('Do you want cancel all changes?', 'Cancel All', MB_YESNO) = IDYES then begin
+    while TreeView.Items.Count > 0 do
+      CancelChange(TreeView.Items[0]);
+    ModalResult := mrOk;
+  end;
+end;
+
+procedure TReconcileDialogForm.SkipAllChanges;
+begin
+  if Application.MessageBox('Do you want skip all changes?', 'Skip All', MB_YESNO) = IDYES then
+    ModalResult := mrOk;
+end;
+
+procedure TReconcileDialogForm.FormCreate(Sender: TObject);
+begin
+  inherited;
+  ChangeList := TList.Create;
+  TableList := TList.Create;
+end;
+
+procedure TReconcileDialogForm.FormDestroy(Sender: TObject);
+begin
+  ChangeList.Free;
+  TableList.Free;
+  inherited;
+end;
+
+procedure TReconcileDialogForm.ShowDetailButtonClick(Sender: TObject);
+var
+  lChange: TDADeltaChange;
+  lHandled: Boolean;
+  lAction: TDAReconcileDialogAction;
+begin
+  lChange := TDADeltaChange(Treeview.Selected.Data);
+  Hide;
+  try
+    lAction:= rdlgNone;
+    lHandled:=False;
+    if Assigned(rda) and Assigned(rda.OnShowReconcileRecordInAppUI) then
+       rda.OnShowReconcileRecordInAppUI(RDA, lChange, FindDatatable(lChange.Delta),lHandled,lAction);
+    if not lHandled then
+       ReconcileDialogShowDetails(lChange, FindDatatable(lChange.Delta), Treeview.Selected.Text, lAction);
+  finally
+    Show;
+  end;
+  case lAction of
+    rdlgSkip: SkipButton.Click;
+    rdlgCancel: CancelButton.Click;
+    rdlgRepost: Raise Exception.Create('rdlgRepost can be used only for tables in the ruoOnPost mode.');
+    rdlgRevert: Raise Exception.Create('rdlgRevert can be used only for tables in the ruoOnPost mode.');
+  end;
+end;
+
+procedure TReconcileDialogForm.Setup;
+var
+  i: integer;
+  change: TDADeltaChange;
+  anode: TTreeNode;
+begin
+  TreeView.Items.Clear;
+  for i := 0 to ChangeList.Count - 1 do begin
+    change := TDADeltaChange(ChangeList[i]);
+    anode := TreeView.Items.AddChildObject(nil, GenerateNodeCaption(Change), Change);
+    case Change.ChangeType of
+      ctInsert: aNode.StateIndex := 2;
+      ctUpdate: aNode.StateIndex := 3;
+      ctDelete: aNode.StateIndex := 4;
+    end;
+  end;
+  if TreeView.Items.Count > 0 then begin
+    TreeView.Items[0].Selected := True;
+    ListBoxClick(TreeView);
+  end;
+end;
+
+procedure TReconcileDialogForm.CancelChange(aNode: TTreeNode);
+
+  procedure DeleteChangeFromTreeView(aChange: TDADeltaChange);
+  var
+    i: integer;
+  begin
+    for i := TreeView.Items.Count - 1 downto 0 do
+      if TreeView.Items[i].Data = aChange then begin
+        TreeView.Items[i].Delete;
+        Break;
+      end;
+  end;
+
+var
+  lTable: TDADatatable;
+  details: TList;
+  detailChange: TDADeltaChange;
+  i, j, k: integer;
+  ChangePKValueArray: array of Variant;
+  lNeedDeleteChange: boolean;
+  keyvalue: variant;
+  aChange: TDADeltaChange;
+begin
+  aChange := TDADeltaChange(ANode.Data);
+  if aChange <> nil then begin
+    ChangeList.Remove(aChange);
+    lTable := FindDatatable(aChange.Delta);
+    if lTable <> nil then begin
+      // remove changes for detail tables
+      details := lTable.GetDetailTablesforApplyUpdate;
+      try
+        if Details.Count > 0 then begin
+          SetLength(ChangePKValueArray, aChange.Delta.KeyFieldCount);
+          for i := 1 to aChange.Delta.KeyFieldCount do begin
+            if aChange.ChangeType = ctInsert then
+              keyvalue := aChange.NewValueByName[aChange.Delta.KeyFieldNames[i - 1]]
+            else
+              keyvalue := aChange.OldValueByName[aChange.Delta.KeyFieldNames[i - 1]];
+            ChangePKValueArray[0] := keyvalue;
+          end;
+
+          for i := 0 to details.Count - 1 do begin
+            for j := 0 to TDADataTable(details[i]).Delta.Count - 1 do begin
+              detailChange := TDADataTable(details[i]).Delta.Changes[j];
+              if detailChange.Status <> csResolved then begin
+                lNeedDeleteChange := True;
+                for k := 0 to aChange.Delta.KeyFieldCount - 1 do begin
+                  if detailChange.ChangeType = ctInsert then
+                    keyvalue := detailChange.NewValueByName[aChange.Delta.KeyFieldNames[k]]
+                  else
+                    keyvalue := detailChange.oldValueByName[aChange.Delta.KeyFieldNames[k]];
+                  if not VarSameValue(keyValue, ChangePKValueArray[k]) then begin
+                    lNeedDeleteChange := False;
+                    Break;
+                  end;
+                end;
+                if lNeedDeleteChange then DeleteChangeFromTreeView(detailChange);
+              end;
+            end;
+          end;
+        end;
+      finally
+        details.Free;
+      end;
+      DeleteNodeFromTreeView(aNode);
+      lTable.CancelUpdateChange(aChange);
+    end;
+  end;
+  if Treeview.Items.Count = 0 then ModalResult := MrOk;
+end;
+
+procedure TReconcileDialogForm.SkipChange(aNode: TTreeNode);
+begin
+  DeleteNodeFromTreeView(ANode);
+  if Treeview.Items.Count = 0 then ModalResult := MrOk;
+end;
+
+procedure TReconcileDialogForm.ListBoxClick(Sender: TObject);
+
+  function _VarToStr(AValue: variant; ADataType: TDADataType): string;
+  begin
+    if ADataType = datDecimal then
+      Result := DecimalVariantToString(AValue)
+    else
+      Result := VarToStr(AValue)
+  end;
+
+var
+  s: string;
+  change: TDADeltaChange;
+  i: integer;
+begin
+  if Treeview.Selected <> nil then begin
+    change := TDADeltaChange(Treeview.Selected.Data);
+    s := 'A problem occured while ';
+    case change.ChangeType of
+      ctInsert: s := s + 'inserting';
+      ctUpdate: s := s + 'updating';
+      ctDelete: s := s + 'deleting';
+    end;
+    s := s + ' a record in table "' + change.Delta.LogicalName + '", record "';
+    for i := 1 to Change.Delta.KeyFieldCount do begin
+      if i <> 1 then s := s + ';';
+      if Change.ChangeType = ctInsert then
+        s := s + _VarToStr(Change.NewValueByName[Change.Delta.KeyFieldNames[i - 1]],Change.Delta.LoggedFieldTypes[i-1])
+      else
+        s := s + _VarToStr(Change.OldValueByName[Change.Delta.KeyFieldNames[i - 1]],Change.Delta.LoggedFieldTypes[i-1]);
+    end;
+    s := s + '"'+ sLineBreak + sLineBreak + change.Message;
+    if Assigned(RDA) and Assigned(RDA.OnGenerateRecordMessage) then RDA.OnGenerateRecordMessage(RDA, change,FindDatatable(change.Delta),s);
+    //lMessageError.Caption:=s;
+    memMessageError.Lines.Text := s;
+  end;
+end;
+
+function TReconcileDialogForm.FindDatatable(ADelta: IDADelta): TDADatatable;
+var
+  i: integer;
+begin
+  Result := nil;
+  for i := 0 to TableList.Count - 1 do
+    if AnsiSameText(ADelta.LogicalName, TDADatatable(TableList[i]).LogicalName) then begin
+      Result := TDADatatable(TableList[i]);
+      Break;
+    end;
+end;
+
+procedure TReconcileDialogForm.DeleteNodeFromTreeView(aNode: TTreeNode);
+begin
+  aNode.Delete;
+  ListBoxClick(TreeView);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I uDAReconcileDialog.lrs}
+{$ENDIF}
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.dfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.dfm
new file mode 100644
index 0000000..4508539
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.dfm	
@@ -0,0 +1,95 @@
+object ReconcileDialogDetailsForm: TReconcileDialogDetailsForm
+  Left = 358
+  Top = 218
+  Width = 500
+  Height = 299
+  BorderIcons = [biSystemMenu]
+  Caption = 'Details for Change to '#39'%s'#39
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ScrollBox: TScrollBox
+    Left = 0
+    Top = 49
+    Width = 484
+    Height = 179
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    TabOrder = 0
+  end
+  object BottomPanel: TPanel
+    Left = 0
+    Top = 228
+    Width = 484
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    DesignSize = (
+      484
+      35)
+    object OkButton: TButton
+      Left = 185
+      Top = 5
+      Width = 95
+      Height = 25
+      Anchors = [akLeft, akBottom]
+      Caption = '&Skip Change'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object CloseButton: TButton
+      Left = 385
+      Top = 5
+      Width = 95
+      Height = 25
+      Anchors = [akLeft, akBottom]
+      Cancel = True
+      Caption = 'Close'
+      ModalResult = 7
+      TabOrder = 1
+    end
+    object CancelButton: TButton
+      Left = 285
+      Top = 5
+      Width = 95
+      Height = 25
+      Anchors = [akLeft, akBottom]
+      Caption = '&Cancel Change'
+      ModalResult = 2
+      TabOrder = 2
+    end
+  end
+  object TopPanel: TPanel
+    Left = 0
+    Top = 0
+    Width = 484
+    Height = 49
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+    DesignSize = (
+      484
+      49)
+    object memMessageError: TMemo
+      Left = 0
+      Top = 0
+      Width = 484
+      Height = 49
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      BevelInner = bvNone
+      BevelOuter = bvNone
+      BorderStyle = bsNone
+      Color = clBtnFace
+      ScrollBars = ssVertical
+      TabOrder = 0
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.lfm b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.lfm
new file mode 100644
index 0000000..fca88ab
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.lfm	
@@ -0,0 +1,92 @@
+object ReconcileDialogDetailsForm: TReconcileDialogDetailsForm
+  Left = 383
+  Height = 300
+  Top = 266
+  Width = 500
+  ActiveControl = OkButton
+  BorderIcons = [biSystemMenu]
+  Caption = 'Details for Change ''%s'''
+  ClientHeight = 300
+  ClientWidth = 500
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  OnCreate = FormCreate
+  Position = poOwnerFormCenter
+  LCLVersion = '0.9.29'
+  object ScrollBox: TScrollBox
+    Left = 0
+    Height = 216
+    Top = 49
+    Width = 500
+    Align = alClient
+    TabOrder = 0
+  end
+  object BottomPanel: TPanel
+    Left = 0
+    Height = 35
+    Top = 265
+    Width = 500
+    Align = alBottom
+    BevelOuter = bvNone
+    ClientHeight = 35
+    ClientWidth = 500
+    TabOrder = 1
+    object OkButton: TButton
+      Left = 240
+      Height = 25
+      Top = 5
+      Width = 75
+      Anchors = [akRight, akBottom]
+      BorderSpacing.InnerBorder = 4
+      Caption = '&Ok'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object CloseButton: TButton
+      Left = 420
+      Height = 25
+      Top = 5
+      Width = 75
+      Anchors = [akRight, akBottom]
+      BorderSpacing.InnerBorder = 4
+      Cancel = True
+      Caption = 'Close'
+      ModalResult = 7
+      TabOrder = 1
+    end
+    object CancelButton: TButton
+      Left = 320
+      Height = 25
+      Top = 5
+      Width = 95
+      Anchors = [akRight, akBottom]
+      BorderSpacing.InnerBorder = 4
+      Caption = '&Cancel Change'
+      ModalResult = 2
+      TabOrder = 2
+    end
+  end
+  object TopPanel: TPanel
+    Left = 0
+    Height = 49
+    Top = 0
+    Width = 500
+    Align = alTop
+    BevelOuter = bvNone
+    ClientHeight = 49
+    ClientWidth = 500
+    TabOrder = 2
+    object memMessageError: TMemo
+      Left = 0
+      Height = 42
+      Top = 1
+      Width = 498
+      Color = clBtnFace
+      ReadOnly = True
+      ScrollBars = ssAutoVertical
+      TabOrder = 0
+      TabStop = False
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.lrs b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.lrs
new file mode 100644
index 0000000..d1b20bf
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.lrs	
@@ -0,0 +1,29 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TReconcileDialogDetailsForm','FORMDATA',[
+  'TPF0'#27'TReconcileDialogDetailsForm'#26'ReconcileDialogDetailsForm'#4'Left'
+  +#3#127#1#6'Height'#3','#1#3'Top'#3#10#1#5'Width'#3#244#1#13'ActiveControl'#7
+  +#8'OkButton'#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#23'Details f'
+  +'or Change ''%s'''#12'ClientHeight'#3','#1#11'ClientWidth'#3#244#1#11'Font.H'
+  +'eight'#2#245#9'Font.Name'#6#6'Tahoma'#8'OnCreate'#7#10'FormCreate'#8'Positi'
+  +'on'#7#17'poOwnerFormCenter'#10'LCLVersion'#6#6'0.9.29'#0#10'TScrollBox'#9'S'
+  +'crollBox'#4'Left'#2#0#6'Height'#3#216#0#3'Top'#2'1'#5'Width'#3#244#1#5'Alig'
+  +'n'#7#8'alClient'#8'TabOrder'#2#0#0#0#6'TPanel'#11'BottomPanel'#4'Left'#2#0#6
+  +'Height'#2'#'#3'Top'#3#9#1#5'Width'#3#244#1#5'Align'#7#8'alBottom'#10'BevelO'
+  +'uter'#7#6'bvNone'#12'ClientHeight'#2'#'#11'ClientWidth'#3#244#1#8'TabOrder'
+  +#2#1#0#7'TButton'#8'OkButton'#4'Left'#3#240#0#6'Height'#2#25#3'Top'#2#5#5'Wi'
+  +'dth'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBord'
+  +'er'#2#4#7'Caption'#6#3'&Ok'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#0
+  +#0#0#7'TButton'#11'CloseButton'#4'Left'#3#164#1#6'Height'#2#25#3'Top'#2#5#5
+  +'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBo'
+  +'rder'#2#4#6'Cancel'#9#7'Caption'#6#5'Close'#11'ModalResult'#2#7#8'TabOrder'
+  +#2#1#0#0#7'TButton'#12'CancelButton'#4'Left'#3'@'#1#6'Height'#2#25#3'Top'#2#5
+  +#5'Width'#2'_'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.Inner'
+  +'Border'#2#4#7'Caption'#6#14'&Cancel Change'#11'ModalResult'#2#2#8'TabOrder'
+  +#2#2#0#0#0#6'TPanel'#8'TopPanel'#4'Left'#2#0#6'Height'#2'1'#3'Top'#2#0#5'Wid'
+  +'th'#3#244#1#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'
+  +#2'1'#11'ClientWidth'#3#244#1#8'TabOrder'#2#2#0#5'TMemo'#15'memMessageError'
+  +#4'Left'#2#0#6'Height'#2'*'#3'Top'#2#1#5'Width'#3#242#1#5'Color'#7#9'clBtnFa'
+  +'ce'#8'ReadOnly'#9#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2#0#7'Tab'
+  +'Stop'#8#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.pas
new file mode 100644
index 0000000..69740a2
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAReconcileDialogDetails.pas	
@@ -0,0 +1,288 @@
+unit uDAReconcileDialogDetails;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+uses
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, uDADelta, uDADataTable, DB,
+  {$IFDEF FPC} buttons,LResources,{$ENDIF}
+  uDADataAdapter, uDARemoteDataAdapter;
+
+type
+  TReconcileDialogDetailsForm = class(TForm)
+    ScrollBox: TScrollBox;
+    BottomPanel: TPanel;
+    OkButton: TButton;
+    CloseButton: TButton;
+    TopPanel: TPanel;
+    CancelButton: TButton;
+    memMessageError: TMemo;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+    dbeditHeight, labelheight: integer;
+    FChange: TDADeltaChange;
+    Datasource: TDADataSource;
+    procedure Setup;
+    procedure GenerateControls;
+    procedure OnFieldValueChanged(Sender: TObject);
+  public
+    { Public declarations }
+
+  end;
+
+var
+  ReconcileDialogDetailsForm: TReconcileDialogDetailsForm;
+
+procedure ReconcileDialogShowDetails(AChange: TDADeltaChange; aTable: TDADataTable; aCaption: string; var AAction: TDAReconcileDialogAction);
+implementation
+uses
+  uDAInterfaces, uROClasses, dbCtrls, uROBinaryHelpers;
+
+{$IFNDEF FPC}
+  {$R *.dfm}
+{$ENDIF}
+
+const
+  labelWidth = 100;
+  editWidth = 200;
+  c_Color: TColor = clMoneyGreen;
+
+procedure ReconcileDialogShowDetails(AChange: TDADeltaChange; aTable: TDADataTable; aCaption: string; var AAction: TDAReconcileDialogAction);
+var
+  FFiltered: Boolean;
+  FMasterDS: TDADataSource;
+  FRemoteFetchEnabled: Boolean;
+  FMasterFields: string;
+  r: integer;
+begin
+  with TReconcileDialogDetailsForm.Create(Application) do try
+    Caption := Format(Caption, [aCaption]);
+    FChange := AChange;
+    FFiltered := ATable.Filtered;
+    FMasterDS := aTable.MasterSource;
+    FMasterFields := aTable.MasterFields;
+    FRemoteFetchEnabled := aTable.RemoteFetchEnabled;
+    try
+      ATable.Filtered := False;
+      aTable.MasterSource := nil;
+      aTable.MasterFields := '';
+      aTable.RemoteFetchEnabled := False;
+      DataSource.DataTable := aTable;
+      Setup;
+      r := ShowModal;
+      if (ruoOnPost in aTable.RemoteUpdatesOptions) then begin
+        case r of
+          mrOk: AAction := rdlgRepost;
+          mrCancel: AAction := rdlgRevert;
+        end;
+        if FChange.ChangeType = ctUpdate then DataSource.DataTable.Delta.EndChange(DataSource.DataTable);
+      end
+      else begin
+        case r of
+          mrOk: AAction := rdlgSkip;
+          mrCancel: AAction := rdlgCancel;
+          else AAction := rdlgNone;
+        end;
+        if DataSource.DataTable.State in [dsEdit, dsInsert] then DataSource.DataTable.Post;
+      end;
+    finally
+      aTable.RemoteFetchEnabled := FRemoteFetchEnabled;
+      aTable.Filtered := FFiltered;
+      aTable.MasterSource := FMasterDS;
+      aTable.MasterFields := FMasterFields
+    end;
+  finally
+    Release;
+  end;
+end;
+
+{ TShowDetailsForm }
+
+procedure TReconcileDialogDetailsForm.Setup;
+begin
+  if FChange.ChangeType <> ctDelete then
+    with DataSource.DataTable do
+      if not (ruoOnPost in RemoteUpdatesOptions) and not Locate(RecIDFieldName, FChange.RecID, []) then RaiseError('Couldn''t find record #' + FormatRecIDString(FChange.RecID));
+  GenerateControls;
+  memMessageError.Lines.Text := FChange.Message;
+
+  if (ruoOnPost in DataSource.DataTable.RemoteUpdatesOptions) then begin
+    OkButton.Left := CancelButton.Left;
+    OkButton.Enabled := False;
+    OkButton.Visible := FChange.ChangeType <> ctDelete ;
+    OkButton.Caption := 'Update';
+    CancelButton.Left := CloseButton.Left;
+    CancelButton.Caption := 'Revert';
+    CloseButton.Visible := False;
+    CloseButton.Enabled := False;
+    ActiveControl := CancelButton;
+    if FChange.ChangeType = ctUpdate then DataSource.DataTable.Delta.StartChange(ctUpdate,DataSource.DataTable)
+  end;
+end;
+
+procedure TReconcileDialogDetailsForm.OnFieldValueChanged(Sender: TObject);
+begin
+  OkButton.Enabled := True;
+  OkButton.Caption := 'Update';
+end;
+
+procedure TReconcileDialogDetailsForm.GenerateControls;
+
+  function _VarToStr(AValue: variant; ADataType: TDADataType): string;
+  begin
+    if ADataType = datDecimal then
+      Result := DecimalVariantToString(AValue)
+    else
+      Result := VarToStr(AValue)
+  end;
+
+var
+  i: integer;
+  aField: string;
+  aField2: string;
+  aTop, aleft: integer;
+  FLabel: TLabel;
+  FdbEdit: TDBEdit;
+  FEdit: TEdit;
+begin
+  aleft := 7;
+  aTop := 7;
+  for i := 0 to FChange.Delta.LoggedFieldCount - 1 do begin
+    aField := FChange.Delta.LoggedFieldNames[i];
+    aField2 := StringReplace(aField,'@','___replaced___',[rfReplaceAll]); // it should be unique
+    aTop := 7 + (3 + dbeditHeight) * i;
+    aleft := 7;
+
+    FLabel := TLabel.Create(Self);
+    with FLabel do begin
+      Parent := ScrollBox;
+      Name := 'l_' + aField2;
+      Caption := aField;
+      Left := aleft;
+      Top := (dbeditHeight - Height) div 2 + aTop + 1;
+      Width := labelWidth;
+      aleft := aleft + 7 + labelWidth;
+      Font.Name := 'Tahoma';
+    end;
+
+    if FChange.ChangeType in [ctInsert, ctUpdate] then begin
+      if Self.DataSource.DataTable.FieldByName(aField).DataType = datBlob then begin
+        FEdit := TEdit.Create(Self);
+        with FEdit do begin
+          Name := 'dbe_' + aField2;
+          Parent := ScrollBox;
+          Left := aleft;
+          aleft := aleft + 7 + editWidth;
+          Top := aTop;
+          Width := editWidth;
+          ReadOnly := True;
+          Text := '[blob]';
+          Font.Name := 'Tahoma';
+        end;
+      end
+      else begin
+        FdbEdit := TDBEdit.Create(Self);
+        with FdbEdit do begin
+          Name := 'dbe_' + aField2;
+          DataSource := Self.DataSource;
+          Parent := ScrollBox;
+          DataField := aField;
+          Left := aleft;
+          Top := aTop;
+          Width := editWidth;
+          aleft := aleft + 7 + editWidth;
+          OnChange := OnFieldValueChanged;
+          if (FChange.ChangeType = ctUpdate) and
+            not ROVariantsEqual(FChange.OldValues[i], FChange.NewValues[i]) then
+            Color := c_Color;
+          Font.Name := 'Tahoma';
+        end;
+      end;
+    end;
+
+    if FChange.ChangeType in [ctUpdate, ctDelete] then begin
+      FEdit := TEdit.Create(Self);
+      with FEdit do begin
+        Name := 'e_' + aField2;
+        Parent := ScrollBox;
+        Left := aleft;
+        aleft := aleft + 7 + editWidth;
+        Top := aTop;
+        Width := editWidth;
+        ReadOnly := True;
+        Color := clBtnFace;
+        Font.Name := 'Tahoma';
+        if Self.DataSource.DataTable.FieldByName(aField).DataType = datBlob then begin
+          Text := '[blob]'
+        end
+        else begin
+          case FChange.ChangeType of
+            ctDelete: text := _VarToStr(FChange.OldValues[i],FChange.Delta.LoggedFieldTypes[i]);
+            ctUpdate: begin
+              if not Self.DataSource.DataTable.HasReducedDelta then
+                text := _VarToStr(FChange.OldValues[i],FChange.Delta.LoggedFieldTypes[i])
+              else
+                if not VarIsEmpty(FChange.OldValues[i]) then
+                  text := _VarToStr(FChange.OldValues[i],FChange.Delta.LoggedFieldTypes[i])
+                else text :=  Self.DataSource.DataTable.FieldByName(aField).AsString;
+            end;
+          end;
+        end;
+      end;
+    end;
+  end;
+  inc(aTop, 20);
+  inc(aLeft, 7);
+  //ScrollBox.HorzScrollBar.Range := aleft;
+  Self.ClientWidth := aleft + ScrollBox.VertScrollBar.Size + 2;
+  Self.Constraints.MinWidth := Self.Width;
+  Self.Constraints.MaxWidth := Self.Width;
+
+
+  CloseButton.left := Self.ClientWidth - 7 - CloseButton.Width;
+  CancelButton.Left := CloseButton.left - 5 - CancelButton.Width;
+  OkButton.Left := CancelButton.left - 5 - OkButton.Width;
+
+  ScrollBox.VertScrollBar.Range := aTop;
+  if Screen.Height > Self.Height + (aTop - ScrollBox.Height) then
+    Self.Height := Self.Height + (aTop - ScrollBox.Height)
+  else
+    Self.Height := Screen.Height;
+end;
+
+procedure TReconcileDialogDetailsForm.FormCreate(Sender: TObject);
+begin
+  inherited;
+  with TDBEdit.Create(Self) do try
+    dbeditHeight := Height;
+  finally
+    free;
+  end;
+  with TLabel.Create(Self) do try
+    labelheight := Height;
+  finally
+    free;
+  end;
+  Datasource := TDADataSource.Create(Self);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I uDAReconcileDialogDetails.lrs}
+{$ENDIF}
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARegExpr.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARegExpr.pas
new file mode 100644
index 0000000..697ae22
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARegExpr.pas	
@@ -0,0 +1,4287 @@
+unit uDARegExpr;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright 1999-2000 by Andrey V. Sorokin <anso@mail.ru>                  }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Please see the comments below for licensing issues of this source file.    }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+{$B-}
+
+(*
+     TRegExpr library
+     Regular Expressions for Delphi
+
+     Author:
+     Andrey V. Sorokin
+     St-Petersburg
+     Russia
+     anso@mail.ru, anso@usa.net
+     http://anso.da.ru
+     http://anso.virtualave.net
+
+This library is derived from Henry Spencer sources.
+I translated the C sources into Object Pascal,
+implemented object wrapper and some new features.
+Many features suggested or partially implemented
+by TRegExpr's users (see Gratitude below).
+
+---------------------------------------------------------------
+     Legal issues
+---------------------------------------------------------------
+ Copyright (c) 1999-00 by Andrey V. Sorokin <anso@mail.ru>
+
+ This software is provided as it is, without any kind of warranty
+ given. Use it at your own risk.
+
+ You may use this software in any kind of development, including
+ comercial, redistribute, and modify it freely, under the
+ following restrictions :
+ 1. The origin of this software may not be mispresented, you must
+    not claim that you wrote the original software. If you use
+    this software in any kind of product, it would be appreciated
+    that there in a information box, or in the documentation would
+    be an acknowledgmnent like this
+           Partial Copyright (c) 2000 by Andrey V. Sorokin
+ 2. You may not have any income from distributing this source
+    to other developers. When you use this product in a comercial
+    package, the source may not be charged seperatly.
+
+
+---------------------------------------------------------------
+     Legal issues for the original C sources:
+---------------------------------------------------------------
+ *  Copyright (c) 1986 by University of Toronto.
+ *  Written by Henry Spencer.  Not derived from licensed software.
+ *
+ *  Permission is granted to anyone to use this software for any
+ *  purpose on any computer system, and to redistribute it freely,
+ *  subject to the following restrictions:
+ *  1. The author is not responsible for the consequences of use of
+ *      this software, no matter how awful, even if they arise
+ *      from defects in it.
+ *  2. The origin of this software must not be misrepresented, either
+ *      by explicit claim or by omission.
+ *  3. Altered versions must be plainly marked as such, and must not
+ *      be misrepresented as being the original software.
+
+
+---------------------------------------------------------------
+     Gratitudes
+---------------------------------------------------------------
+  Guido Muehlwitz
+    found and fixed ugly bug in big string processing
+  Stephan Klimek
+    testing in CPPB and suggesting/implementing many features
+  Steve Mudford
+    implemented Offset parameter
+  Martin Baur
+    usefull suggetions, help translation into German
+  Yury Finkel
+    Implemented UniCode support, found and fixed some bugs
+  Ralf Junker
+    Implemented some features, many optimization suggestions
+  Filip Jirs�k and Matthew Winter (wintermi@yahoo.com)
+    Help in Implementation non-greedy mode
+  Kit Eason
+    many examples for introduction help section
+  Juergen Schroth
+    bug hunting and usefull suggestions
+  Simeon Lilov
+    help translation into Bulgarian
+  Martin Ledoux
+    help translation into French
+  Diego Calp (mail@diegocalp.com), Argentina
+    help translation into Spanish
+
+  And many others - for big work of bug hunting !
+
+I am still looking for person who can help me to translate
+this documentation into other languages (especially German)
+
+
+---------------------------------------------------------------
+     To do
+---------------------------------------------------------------
+
+-=- VCL-version of TRegExpr - for dummies ;) and TRegExprEdit
+(replacement for TMaskEdit).
+Actually, I am writing non-VCL aplications (with web-based
+interfaces), so I don't need VCL's TRegExpr for myself.
+Will it be really usefull ?
+
+-=- working with pascal-style string.
+Now pascal-strings converted into PChar, so
+you can't find r.e. in strings with #0 -chars.
+(suggested by Pavel O).
+
+-=- put precalculated lengths into EXACTLY[CI] !
+
+-=- fInputString as string (suggested by Ralf Junker)
+
+-=- Add regstart optimization for case-insensitive mode ?
+ Or complitely remove because FirstCharSet is faster ?
+
+-=- "Russian Ranges" --> National ranges (use property WordChars ?
+for ordering letters in ranges by its order in WirdsChars if modifier /r is On)
+
+-=- FirstCharSet as array [#0 .. #255] of REChar ?
+(2x faster then set of REChar)
+
+-=- p-code optimization (remove BRANCH-to-EEND, COMMENT, BACK(?)
+    merge EXACTLY etc).
+
+-=- !!!!!!!! bug found by Lars Karlslund
+    "If I do '(something|^$)' on '' I get false (which is wrong ...)."
+
+-=- There are no special command for files (Johan Smit).
+
+I need your suggestions !
+What are more importent in this list ?
+Did I forget anything ?
+
+
+---------------------------------------------------------------
+     History
+---------------------------------------------------------------
+Legend:
+ (+) added feature
+ (-) fixed bug
+ (^) upgraded implementation
+
+ v. 0.947 2001.10.03
+ -=- (+) Word boundary (\b & \B) metachar
+ -=- (-) Bug in processing predefined char.classes in non-UseSetOfChar mode
+ -=- (+) Spanish help - translated by Diego Calp (mail@diegocalp.com), Argentina
+ -=- (+) VersionMajor/Minor class method of TRegExpr ;)
+ -=- (-) Bug in CompileRegExpr, Thanks to Oleg Orlov <orlov@diasoft.ru>
+ -=- (^) Method RegExprSubExpressions wasn't compatible with D2-D3.
+  Thanks to Eugene Tarasov for bug report.
+ -=- (+) Method Replace can now do substitution as well (see documentation)
+  Thanks to Warren Bare, Ken Friesen and many others who suggested it.
+ -=- (+) Updated ReplaceRegExpr to use new Replace method functionality
+ -=- (^) Restored UniCode compatibility lost in some previous version
+  Thanks to Stephan Klimek for bug report
+ -=- (^) Updated TestRE project, new examples for Replace with substitution
+  included.
+
+ v. 0.942+ 2001.03.01
+ -=- (+) Published French help for TRegExpr,
+  translated by Martin Ledoux
+
+ v. 0.942 2001.02.12
+ -=- (-) Range-check error in DEMO-project (due to bug in
+  RegExprSubExpressions), Thanks to Juergen Schroth
+ -=- (^) RegExprSubExpressions - added error codes for "unclosed "[" error
+ -=- (^) Help file bug fixing
+
+ v. 0.941 2001.02.01
+ -=- (^) Attension! Behaviour of '\w', '\W' was changed! Now it really
+  match alphanum characters and '_' as described in documentation,
+  not only alpha as it was before. Thanks to Vadim Alexandrov.
+  If You want to restore previous behaviour, reassign
+  RegExprWordChars (exclude '0123456789' from it).
+ -=- (+) Full compatible with recommended at unicode.org implementation
+  of modifier /m, including DOS-styled line separators (\r\n) mixed
+  with Unix styled (\n) - see properties LineSeparators, LinePairedSeparator
+ -=- (^) Attension! Behaviour of '.' was changed! Now if modifier /s is off
+  it doesn't match all chars from LineSeparators and LinePairedSeparator (by
+  default \r and \n)
+ -=- (^) Attension! To prevent unneeded recompilation of r.e., now assignment
+  to Expression or changing modifiers doesn't cause immidiate [re]compilation.
+  So, now You don't get exception while assigning wrong expression, but can
+  get exception while calling Exec[Next], Substitute, Dump, etc if there
+  are errors in Expression or other properties.
+ -=- (+) Non-greedy style iterators (like '*?'), modifier /g.
+  Implemented with help from Matthew Winter and Filip Jirs�k
+ -=- (+) /x modifier (eXtended syntax - allow formating r.e., see description
+  in the help)
+ -=- (+) Procedure Compile to [re]compile r.e. Usefull for GUI r.e. editors
+  and so on (to check all properties validity).
+ -=- (+) FAQ in documentation. I am too lazy to answer to the same
+  questions again and again :( Please, read the FAQ before sending
+  question to me!
+ -=- (^) DEMO project have been significantly improved. Now this is the
+  real r.e. debugger! Thanks to Jon Smith for his ideas.
+ -=- (+) function RegExprSubExpressions, usefull for GUI editors of
+  r.e. (see example of using in TestRExp.dpr project)
+ -=- (+) HyperLinkDecorator unit - practical example of TRegExpr
+  using (see description in the help file)
+ -=- (-) Range checking error in some cases if ComplexBraces defined
+  Thanks to Juergen Schroth
+ -=- (^) 'ComplexBraces' now is defined by default
+ -=- (+) Kit Eason sent to me many examples for 'Syntax' help section
+  and I decided to complitely rewrite this section. I hope, You'll enjoy
+  the results ;)
+ -=- (+) The \A and \Z metacharacters are just like "^" and "$", except
+  that they won't match multiple times when the modifier /m is used
+
+ v. 0.939 2000.10.04
+ -=- (-) Bug in Substitute method ($10.. didn't work properly)
+ Thanks to Serge S Klochkovski
+
+ v. 0.938 2000.07.23
+ -=- (^) Exeptions now jump to appropriate source line, not
+     to Error procedure (I am not quite sure this is safe for
+     all compiler versions. You can turn it off - remove
+     reRealExceptionAddr definition below).
+ -=- (^) Forgotten BSUBEXP[CI] in FillFirstCharSet caused
+     exeption 'memory corruption' in case if back reference can
+     be first op, like this: (a)*\1 (first subexpression can be
+     skipped and we'll start matching with back reference..).
+
+ v. 0.937 2000.06.12
+ -=- (-) Bug in optimization engine (since v.0.934). In some cases
+     TRegExpr didn't catch right strings.
+     Thanks to Matthias Fichtner
+
+ v. 0.936 2000.04.22
+ -=- (+) Back references, like <font size=(['"]?)(\d+)\1>, see
+     manual for details
+ -=- (+) Wide hex char support, like '\x{263a}'
+
+ v. 0.935 2000.04.19 (by Yury Finkel)
+ -=- (-) fInvertCase now isn't readonly ;)
+ -=- (-) UniCode mode compiling errors
+
+ v. 0.934 2000.04.17
+ -=- (^) New ranges implementation (range matching now is very fast
+      - uses one(!) CPU instruction)
+ -=- (^) Internal p-code structure converted into 32-bits - works
+      faster and now there is no 64K limit for compiled r.e.
+ -=- (^) '{m,n}' now use 32-bits arguments (up to 2147483646) - specially
+      for Dmitry Veprintsev ;)
+ -=- (^) Ranges now support metachars: [\n-\x0D] -> #10,#11,#12,#13;
+     Changed '-' processing, now it's like in Perl:
+     [\d-t] -> '0'..'9','-','t'; []-a] -> ']'..'a'
+ -=- (-) Bug with \t and etc macro (they worked only in ranges)
+     Thanks to Yury Finkel
+ -=- (^) Added new preprocessing optimization (see FirstCharSet).
+      Incredible fast (!). But be carefull it isn's properly tested.
+      You can switch it Off - remove UseFirstCharSet definition.
+ -=- (^) Many other speed optimizations
+ -=- (-) Case-insensitive mode now support system-defined national
+      charset (due to bug in v.0.90 .. 0.926 supported only english one)
+ -=- (^) Case-insensitive mode implemented with InvertCase (param &
+      result of REChar type) - works 10 .. 100 times faster.
+ -=- (^) Match and ExecNext interfaces optimized, added IsProgrammOk
+      by Ralf Junker
+ -=- (^) Increased NSUBEXP (now 15) and fixed code for this, now you
+      can simply increase NSUBEXP constant by yourself.
+      Suggested by Alexander V. Akimov.
+ -=- (^+) Substitute adapted for NSUBEXP > 10 and significant (!)
+      optimized, improved error checking.
+      ATTENTION! Read new Substitute description - syntax was changed !
+ -=- (+) SpaceChars & WordChars property - now you may change chars
+      treated as \s & \w. By defauled assigned RegExprSpaceChars/WordChars
+ -=- (+) Now \s and \w supported in ranges
+ -=- (-) Infinite loop if end of range=#$FF
+      Thanks to Andrey Kolegov
+ -=- (+) Function QuoteRegExprMetaChars (see description)
+ -=- (+) UniCode support - sorry, works VERY slow (remove '.' from
+     {.$DEFINE UniCode} after this comment for unicode version).
+     Implemented by Yury Finkel
+
+ v. 0.926 2000.02.26
+ -=- (-) Old bug derived from H.Spencer sources - SPSTART was
+     set for '?' and '*' instead of '*', '{m,n}' and '+'.
+ -=- (-^) Now {m,n} works like Perl's one - error occures only
+     if m > n or n > BracesMax (BracesMax = 255 in this version).
+     In other cases (no m or nondigit symbols in m or n values,
+     or no '}') symbol '{' will be compiled as literal.
+     Note: so, you must include m value (use {0,n} instead of {,n}).
+     Note: {m,} will be compiled as {m,BracesMax}.
+ -=- (-^) CaseInsensitive mode now support ranges
+     '(?i)[a]' == '[aA]'
+ -=- (^) Roman-number template in TestRExp ;)
+ -=- (+^) Beta version of complex-braces - like ((abc){1,2}|d){3}
+     By default its turned off. If you want take part in beta-testing,
+     please, remove '.' from {.$DEFINE ComplexBraces} below this comments.
+ -=- (-^) Removed \b metachar (in Perl it isn't BS as in my implementation,
+     but word bound)
+ -=- (+) Add /s modifier. Bu I am not sure that it's ok for Windows.
+     I implemented it as [^\n] for '.' metachar in non-/s mode.
+     But lines separated by \n\r in windows. I need you suggestions !
+ -=- (^) Sorry, but I had to rename Modifiers to ModifierStr
+     (ModifierS uses for /s now)
+
+ v. 0.91 2000.02.02
+ -=- (^) some changes in documentation and demo-project.
+
+ v. 0.90 2000.01.31
+ -=- (+) implemented braces repetitions {min,max}.
+     Sorry - only simple cases now - like '\d{2,3}'
+     or '[a-z1-9]{,7}', but not (abc){2,3} ..
+     I still too short in time.
+     Wait for future versions of TRegExpr or
+     implement it by youself and share with me ;)
+ -=- (+) implemented case-insensitive modifier and way
+     to work with other modifiers - see properties
+     Modifiers, Modifier, ModifierI
+     and (?ismx-ismx) Perl extension.
+     You may use global variables RegExpr* for assigning
+     default modifier values.
+ -=- (+) property ExtSyntaxEnabled changed to 'r'-modifier
+     (russian extensions - see documentation)
+ -=- (+) implemented (?#comment) Perl extension - very hard
+     and usefull work ;)
+ -=- (^) property MatchCount renamed to SubExprMatchCount.
+     Sorry for any inconvenients, but it's because new
+     version works slightly different and if you used
+     MatchCount in your programms you have to rethink
+     it ! (see comments to this property)
+ -=- (+) add InputString property - stores input string
+     from last Exec call. You may directly assign values
+     to this property for using in ExecPos method.
+ -=- (+) add ExecPos method - for working with assigned
+     to InputString property. You may use it like this
+        InputString := AString;
+        ExecPos;
+     or this
+        InputString := AString;
+        ExecPos (AOffset);
+     Note: ExecPos without parameter works only in
+     Delphi 4 or higher.
+ -=- (+) add ExecNext method - simple and fast (!) way to finding
+     multiple occurences of r.e. in big input string.
+ -=- (^) Offset parameter removed from Exec method, if you
+     used it in your programs, please replace all
+        Exec (AString, AOffset)
+     with combination
+        InputString := AString; ExecPos (AOffset)
+     Sorry for any inconvenients, but old design
+     (see v.0.81) was too ugly :(
+     In addition, multiple Exec calls with same input
+     string produce fool overhead because each Exec
+     reallocate input string buffer.
+ -=- (^) optimized implementation of Substitution,
+     Replace and Split methods
+ -=- (-) fixed minor bug - if r.e. compilation raise error
+     during second pass (!!! I think it's impossible
+     in really practice), TRegExpr stayed in 'compiled'
+     state.
+ -=- (-) fixed bug - Dump method didn't check program existance
+     and raised 'access violation' if previouse Exec
+     was finished with error.
+ -=- (+) changed error handling (see functions Error, ErrorMsg,
+     LastError, property CompilerErrorPos, type ERegExpr).
+ -=- (-^) TRegExpr.Replace, Split and ExecNext made a infinite
+     loop in case of r.e. match empty-string.
+     Now ExecNext moves by MatchLen if MatchLen <> 0
+     and by +1 if MatchLen = 0
+     Thanks to Jon Smith and George Tasker for bugreports.
+ -=- (-) While playing with null-matchs I discovered, that
+     null-match at tail of input string is never found.
+     Well, I fixed this, but I am not sure this is safe
+     (MatchPos[0]=length(AInputString)+1, MatchLen = 0).
+     Any suggetions are very appreciated.
+ -=- (^) Demo project and documentation was upgraded
+ -=- (^) Documentation and this version was published on my home page
+     http://anso.da.ru
+
+
+ v. 0.81 1999.12.25 // Merry Christmas ! :)
+ -=- added \s (AnySpace) and \S (NotSpace) meta-symbols
+     - implemented by Stephan Klimek with minor fixes by AVS
+ -=- added \f, \a and \b chars (translates into FF, BEL, BS)
+ -=- removed meta-symbols '�' & '�' - sorry for any inconvenients
+ -=- added Match property (== copy (InputStr, MatchPos [Idx], MatchLen [Idx]))
+ -=- added extra parameter Offset to Exec method
+     (thanks to Steve Mudford)
+
+ v. 0.7 1999.08.22
+ -=- fixed bug - in some cases the r.e. [^...]
+     incorrectly processed (as any symbol)
+     (thanks to Jan Korycan)
+ -=- Some changes and improvements in TestRExp.dpr
+
+ v. 0.6 1999.08.13 (Friday 13 !)
+ -=- changed header of TRegExpr.Substitute
+ -=- added Split, Replace & appropriate
+     global wrappers (thanks to Stephan Klimek for suggetions)
+
+ v. 0.5 1999.08.12
+ -=- TRegExpr.Substitute routine added
+ -=- Some changes and improvements in TestRExp.dpr
+ -=- Fixed bug in english version of documentation
+     (Thanks to Jon Buckheit)
+
+ v. 0.4 1999.07.20
+ -=- Fixed bug with parsing of strings longer then 255 bytes
+     (thanks to Guido Muehlwitz)
+ -=- Fixed bug in RegMatch - mathes only first occurence of r.e.
+     (thanks to Stephan Klimek)
+
+ v. 0.3 1999.06.13
+ -=- ExecRegExpr function
+
+ v. 0.2 1999.06.10
+ -=- packed into object-pascal class
+ -=- code slightly rewriten for pascal
+ -=- now macro correct proceeded in ranges
+ -=- r.e.ranges syntax extended for russian letters ranges:
+     �-� - replaced with all small russian letters (Win1251)
+     �-� - replaced with all capital russian letters (Win1251)
+     �-� - replaced with all russian letters (Win1251)
+ -=- added macro '\d' (opcode ANYDIGIT) - match any digit
+ -=- added macro '\D' (opcode NOTDIGIT) - match not digit
+ -=- added macro '\w' (opcode ANYLETTER) - match any english letter or '_'
+ -=- added macro '\W' (opcode NOTLETTER) - match not english letter or '_'
+ (all r.e.syntax extensions may be turned off by flag ExtSyntax)
+
+ v. 0.1 1999.06.09
+ first version, with bugs, without help => must die :(
+
+*)
+
+interface
+
+{$DEFINE DebugRegExpr} // define for dump/trace enabling
+
+{$IFNDEF cpu64}
+{$DEFINE reRealExceptionAddr} // if defined then exceptions will
+// jump to appropriate source line, not to Error procedure
+{$ENDIF}
+
+{$DEFINE ComplexBraces} // define for beta-version of braces
+// (in stable version it works only for simple cases)
+
+{.$DEFINE UniCode} // define for Unicode support
+
+{$IFNDEF UniCode} // optionts applicable only for non-UniCode
+ {$DEFINE UseSetOfChar} // Significant optimization by using set of char
+{$ENDIF}
+
+{$IFDEF UseSetOfChar}
+ {$DEFINE UseFirstCharSet} // Significant optimization inm some cases
+{$ENDIF}
+
+// Determine version (for using 'params by default')
+{$IFNDEF FPC}
+  {$IFNDEF VER80}         { Delphi 1.0}
+   {$IFNDEF VER90}        { Delphi 2.0}
+    {$IFNDEF VER93}       { C++Builder 1.0}
+      {$IFNDEF VER100}    { Borland Delphi 3.0}
+        {$DEFINE D4_}   { Delphi 4.0 or higher}
+      {$ENDIF}
+    {$ENDIF}
+   {$ENDIF}
+  {$ENDIF}
+{$ENDIF}
+{.$IFNDEF VER110}  { Borland C++Builder 3.0}
+{.$IFNDEF VER120}  {Borland Delphi 4.0}
+
+
+uses
+ Classes, // TStrings in Split method
+ SysUtils; // Exception
+
+type
+ {$IFDEF UniCode}
+ PRegExprChar = PWideChar;
+ RegExprString = WideString;
+ REChar = WideChar;
+ {$ELSE}
+ PRegExprChar = PChar;
+ RegExprString = string;
+ REChar = Char;
+ {$ENDIF}
+ TREOp = REChar; // internal p-code type //###0.933
+ PREOp = ^TREOp;
+ TRENextOff = integer; // internal Next "pointer" (offset to current p-code) //###0.933
+ PRENextOff = ^TRENextOff; // used for extracting Next "pointers" from compiled r.e. //###0.933
+ TREBracesArg = integer; // type of {m,n} arguments
+ PREBracesArg = ^TREBracesArg;
+
+const
+ REOpSz = SizeOf (TREOp) div SizeOf (REChar); // size of p-code in RegExprString units
+ RENextOffSz = SizeOf (TRENextOff) div SizeOf (REChar); // size of Next 'pointer' -"-
+ REBracesArgSz = SizeOf (TREBracesArg) div SizeOf (REChar); // size of BRACES arguments -"-
+
+type
+ TRegExprInvertCaseFunction = function (const Ch : REChar) : REChar
+                               of object;
+
+const
+  RegExprModifierI : boolean = False;    // default value for ModifierI
+  RegExprModifierR : boolean = True;     // default value for ModifierR
+  RegExprModifierS : boolean = True;     // default value for ModifierS
+  RegExprModifierG : boolean = True;     // default value for ModifierG
+  RegExprModifierM : boolean = False;    // default value for ModifierM
+  RegExprModifierX : boolean = False;    // default value for ModifierX
+  RegExprSpaceChars : RegExprString =    // default value for SpaceChars
+  ' '#$9#$A#$D#$C;
+  RegExprWordChars : RegExprString =     // default value for WordChars
+    '0123456789' //###0.940
+  + 'abcdefghijklmnopqrstuvwxyz'
+  + 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_';
+  RegExprLineSeparators : RegExprString =// default value for LineSeparators
+   #$d#$a{$IFDEF UniCode}+#$b#$c#$2028#$2029#$85{$ENDIF}; //###0.947
+  RegExprLinePairedSeparator : RegExprString =// default value for LinePairedSeparator
+   #$d#$a;
+  { if You need Unix-styled line separators (only \n), then use:
+  RegExprLineSeparators = #$a;
+  RegExprLinePairedSeparator = '';
+  }
+
+
+const
+ NSUBEXP = 15; // max number of subexpression //###0.929
+ // Cannot be more than NSUBEXPMAX
+ // Be carefull - don't use values which overflow CLOSE opcode
+ // (in this case you'll get compiler erorr).
+ // Big NSUBEXP will cause more slow work and more stack required
+ NSUBEXPMAX = 255; // Max possible value for NSUBEXP. //###0.945
+ // Don't change it! It's defined by internal TRegExpr design.
+
+ MaxBracesArg = $7FFFFFFF - 1; // max value for {n,m} arguments //###0.933
+
+ {$IFDEF ComplexBraces}
+ LoopStackMax = 10; // max depth of loops stack //###0.925
+ {$ENDIF}
+
+ TinySetLen = 3;
+ // if range includes more then TinySetLen chars, //###0.934
+ // then use full (32 bytes) ANYOFFULL instead of ANYOF[BUT]TINYSET
+ // !!! Attension ! If you change TinySetLen, you must
+ // change code marked as "//!!!TinySet"
+
+
+type
+
+{$IFDEF UseSetOfChar}
+ PSetOfREChar = ^TSetOfREChar;
+ TSetOfREChar = set of REChar;
+{$ENDIF}
+
+ TRegExpr = class
+   private
+    startp : array [0 .. NSUBEXP - 1] of PRegExprChar; // founded expr starting points
+    endp : array [0 .. NSUBEXP - 1] of PRegExprChar; // founded expr end points
+
+    {$IFDEF ComplexBraces}
+    LoopStack : array [1 .. LoopStackMax] of integer; // state before entering loop
+    LoopStackIdx : integer; // 0 - out of all loops
+    {$ENDIF}
+
+    // The "internal use only" fields to pass info from compile
+    // to execute that permits the execute phase to run lots faster on
+    // simple cases.
+    regstart : REChar; // char that must begin a match; '\0' if none obvious
+    reganch : REChar; // is the match anchored (at beginning-of-line only)?
+    regmust : PRegExprChar; // string (pointer into program) that match must include, or nil
+    regmlen : integer; // length of regmust string
+    // Regstart and reganch permit very fast decisions on suitable starting points
+    // for a match, cutting down the work a lot.  Regmust permits fast rejection
+    // of lines that cannot possibly match.  The regmust tests are costly enough
+    // that regcomp() supplies a regmust only if the r.e. contains something
+    // potentially expensive (at present, the only such thing detected is * or +
+    // at the start of the r.e., which can involve a lot of backup).  Regmlen is
+    // supplied because the test in regexec() needs it and regcomp() is computing
+    // it anyway.
+    {$IFDEF UseFirstCharSet} //###0.929
+    FirstCharSet : TSetOfREChar;
+    {$ENDIF}
+
+    // work variables for Exec's routins - save stack in recursion}
+    reginput : PRegExprChar; // String-input pointer.
+    fInputStart : PRegExprChar; // Pointer to first char of input string.
+    fInputEnd : PRegExprChar; // Pointer to char AFTER last char of input string
+
+    // work variables for compiler's routines
+    regparse : PRegExprChar;  // Input-scan pointer.
+    regnpar : integer; // count.
+    regdummy : char;
+    regcode : PRegExprChar;   // Code-emit pointer; @regdummy = don't.
+    regsize : integer; // Code size.
+
+    regexpbeg : PRegExprChar; // only for error handling. Contains
+    // pointer to beginning of r.e. while compiling
+    fExprIsCompiled : boolean; // true if r.e. successfully compiled
+
+    // programm is essentially a linear encoding
+    // of a nondeterministic finite-state machine (aka syntax charts or
+    // "railroad normal form" in parsing technology).  Each node is an opcode
+    // plus a "next" pointer, possibly plus an operand.  "Next" pointers of
+    // all nodes except BRANCH implement concatenation; a "next" pointer with
+    // a BRANCH on both ends of it is connecting two alternatives.  (Here we
+    // have one of the subtle syntax dependencies:  an individual BRANCH (as
+    // opposed to a collection of them) is never concatenated with anything
+    // because of operator precedence.)  The operand of some types of node is
+    // a literal string; for others, it is a node leading into a sub-FSM.  In
+    // particular, the operand of a BRANCH node is the first node of the branch.
+    // (NB this is *not* a tree structure:  the tail of the branch connects
+    // to the thing following the set of BRANCHes.)  The opcodes are:
+    programm : PRegExprChar; // Unwarranted chumminess with compiler.
+
+    fExpression : PRegExprChar; // source of compiled r.e.
+    fInputString : PRegExprChar; // input string
+
+    fLastError : integer; // see Error, LastError
+
+    fModifiers : integer; // modifiers
+    fCompModifiers : integer; // compiler's copy of modifiers
+    fProgModifiers : integer; // modifiers values from last programm compilation
+
+    fSpaceChars : RegExprString; //###0.927
+    fWordChars : RegExprString; //###0.929
+    fInvertCase : TRegExprInvertCaseFunction; //###0.927
+
+    fLineSeparators : RegExprString; //###0.941
+    fLinePairedSeparatorAssigned : boolean;
+    fLinePairedSeparatorHead,
+    fLinePairedSeparatorTail : REChar;
+    {$IFNDEF UniCode}
+    fLineSeparatorsSet : set of REChar;
+    {$ENDIF}
+
+    procedure InvalidateProgramm;
+    // Mark programm as have to be [re]compiled
+
+    function IsProgrammOk : boolean; //###0.941
+    // Check if we can use precompiled r.e. or
+    // [re]compile it if something changed
+
+    function GetExpression : RegExprString;
+    procedure SetExpression (const s : RegExprString);
+
+    function GetModifierStr : RegExprString;
+    class function ParseModifiersStr (const AModifiers : RegExprString;
+      var AModifiersInt : integer) : boolean; //###0.941 class function now
+    // Parse AModifiers string and return true and set AModifiersInt
+    // if it's in format 'ismxrg-ismxrg'.
+    procedure SetModifierStr (const AModifiers : RegExprString);
+
+    function GetModifier (AIndex : integer) : boolean;
+    procedure SetModifier (AIndex : integer; ASet : boolean);
+
+    procedure Error (AErrorID : integer); virtual; // error handler.
+    // Default handler raise exception ERegExpr with
+    // Message = ErrorMsg (AErrorID), ErrorCode = AErrorID
+    // and CompilerErrorPos = value of property CompilerErrorPos.
+
+
+    {==================== Compiler section ===================}
+    function CompileRegExpr (exp : PRegExprChar) : boolean;
+    // compile a regular expression into internal code
+
+    procedure Tail (p : PRegExprChar; val : PRegExprChar);
+    // set the next-pointer at the end of a node chain
+
+    procedure OpTail (p : PRegExprChar; val : PRegExprChar);
+    // regoptail - regtail on operand of first argument; nop if operandless
+
+    function EmitNode (op : TREOp) : PRegExprChar;
+    // regnode - emit a node, return location
+
+    procedure EmitC (b : REChar);
+    // emit (if appropriate) a byte of code
+
+    procedure InsertOperator (op : TREOp; opnd : PRegExprChar; sz : integer); //###0.90
+    // insert an operator in front of already-emitted operand
+    // Means relocating the operand.
+
+    function ParseReg (paren : integer; var flagp : integer) : PRegExprChar;
+    // regular expression, i.e. main body or parenthesized thing
+
+    function ParseBranch (var flagp : integer) : PRegExprChar;
+    // one alternative of an | operator
+
+    function ParsePiece (var flagp : integer) : PRegExprChar;
+    // something followed by possible [*+?]
+
+    function ParseAtom (var flagp : integer) : PRegExprChar;
+    // the lowest level
+
+    function GetCompilerErrorPos : integer;
+    // current pos in r.e. - for error hanling
+
+    {$IFDEF UseFirstCharSet} //###0.929
+    procedure FillFirstCharSet (prog : PRegExprChar);
+    {$ENDIF}
+
+    {===================== Mathing section ===================}
+    function regrepeat (p : PRegExprChar; AMax : integer) : integer;
+    // repeatedly match something simple, report how many
+
+    function regnext (p : PRegExprChar) : PRegExprChar;
+    // dig the "next" pointer out of a node
+
+    function MatchPrim (prog : PRegExprChar) : boolean;
+    // recursively matching routine
+
+    function RegMatch (str : PRegExprChar) : boolean;
+    // try match at specific point, uses MatchPrim for real work
+
+    function ExecPrim (AOffset: integer) : boolean;
+    // Exec for stored InputString
+
+    {$IFDEF DebugRegExpr}
+    function DumpOp (op : REChar) : RegExprString;
+    {$ENDIF}
+
+    function GetSubExprMatchCount : integer;
+    function GetMatchPos (Idx : integer) : integer;
+    function GetMatchLen (Idx : integer) : integer;
+    function GetMatch (Idx : integer) : RegExprString;
+
+    function GetInputString : RegExprString;
+    procedure SetInputString (const AInputString : RegExprString);
+
+    {$IFNDEF UseSetOfChar}
+    function StrScanCI (s : PRegExprChar; ch : REChar) : PRegExprChar; //###0.928
+    {$ENDIF}
+
+    procedure SetLineSeparators (const AStr : RegExprString);
+    procedure SetLinePairedSeparator (const AStr : RegExprString);
+    function GetLinePairedSeparator : RegExprString;
+
+   public
+    constructor Create;
+    destructor Destroy; override;
+
+    class function VersionMajor : integer; //###0.944
+    class function VersionMinor : integer; //###0.944
+
+    property Expression : RegExprString read GetExpression write SetExpression;
+    // Regular expression.
+    // For optimization, TRegExpr will automatically compiles it into 'P-code'
+    // (You can see it with help of Dump method) and stores in internal
+    // structures. Real [re]compilation occures only when it really needed -
+    // while calling Exec[Next], Substitute, Dump, etc
+    // and only if Expression or other P-code affected properties was changed
+    // after last [re]compilation.
+    // If any errors while [re]compilation occures, Error method is called
+    // (by default Error raises exception - see below)
+
+    property ModifierStr : RegExprString read GetModifierStr write SetModifierStr;
+    // Set/get default values of r.e.syntax modifiers. Modifiers in
+    // r.e. (?ismx-ismx) will replace this default values.
+    // If you try to set unsupported modifier, Error will be called
+    // (by defaul Error raises exception ERegExpr).
+
+    property ModifierI : boolean index 1 read GetModifier write SetModifier;
+    // Modifier /i - caseinsensitive, initialized from RegExprModifierI
+
+    property ModifierR : boolean index 2 read GetModifier write SetModifier;
+    // Modifier /r - use r.e.syntax extended for russian,
+    // (was property ExtSyntaxEnabled in previous versions)
+    // If true, then �-�  additional include russian letter '�',
+    // �-�  additional include '�', and �-� include all russian symbols.
+    // You have to turn it off if it may interfere with you national alphabet.
+    // , initialized from RegExprModifierR
+
+    property ModifierS : boolean index 3 read GetModifier write SetModifier;
+    // Modifier /s - '.' works as any char (else as [^\n]),
+    // , initialized from RegExprModifierS
+
+    property ModifierG : boolean index 4 read GetModifier write SetModifier;
+    // Switching off modifier /g switchs all operators in
+    // non-greedy style, so if ModifierG = False, then
+    // all '*' works as '*?', all '+' as '+?' and so on.
+    // , initialized from RegExprModifierG
+
+    property ModifierM : boolean index 5 read GetModifier write SetModifier;
+    // Treat string as multiple lines. That is, change `^' and `$' from
+    // matching at only the very start or end of the string to the start
+    // or end of any line anywhere within the string.
+    // , initialized from RegExprModifierM
+
+    property ModifierX : boolean index 6 read GetModifier write SetModifier;
+    // Modifier /x - eXtended syntax, allow r.e. text formatting,
+    // see description in the help. Initialized from RegExprModifierX
+
+    function Exec (const AInputString : RegExprString) : boolean;
+    // match a programm against a string AInputString
+    // !!! Exec store AInputString into InputString property
+
+    function ExecNext : boolean;
+    // find next match:
+    //    Exec (AString); ExecNext;
+    // works same as
+    //    Exec (AString);
+    //    if MatchLen [0] = 0 then ExecPos (MatchPos [0] + 1)
+    //     else ExecPos (MatchPos [0] + MatchLen [0]);
+    // but it's more simpler !
+
+    function ExecPos (AOffset: integer {$IFDEF D4_}= 1{$ENDIF}) : boolean;
+    // find match for InputString starting from AOffset position
+    // (AOffset=1 - first char of InputString)
+
+    property InputString : RegExprString read GetInputString write SetInputString;
+    // returns current input string (from last Exec call or last assign
+    // to this property).
+    // Any assignment to this property clear Match* properties !
+
+    function Substitute (const ATemplate : RegExprString) : RegExprString;
+    // Returns ATemplate with '$&' or '$0' replaced by whole r.e.
+    // occurence and '$n' replaced by occurence of subexpression #n.
+    // Since v.0.929 '$' used instead of '\' (for future extensions
+    // and for more Perl-compatibility) and accept more then one digit.
+    // If you want place into template raw '$' or '\', use prefix '\'
+    // Example: '1\$ is $2\\rub\\' -> '1$ is <Match[2]>\rub\'
+    // If you want to place raw digit after '$n' you must delimit
+    // n with curly braces '{}'.
+    // Example: 'a$12bc' -> 'a<Match[12]>bc'
+    // 'a${1}2bc' -> 'a<Match[1]>2bc'.
+
+    procedure Split (AInputStr : RegExprString; APieces : TStrings);
+    // Split AInputStr into APieces by r.e. occurencies
+    // Internally calls Exec[Next]
+
+    function Replace (AInputStr : RegExprString;
+      const AReplaceStr : RegExprString;
+      AUseSubstitution : boolean{$IFDEF D4_}= False{$ENDIF}) //###0.946
+     : RegExprString;
+    // Returns AInputStr with r.e. occurencies replaced by AReplaceStr
+    // If AUseSubstitution is true, then AReplaceStr will be used
+    // as template for Substitution methods.
+    // For example:
+    //  Expression := '({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*';
+    //  Replace ('BLOCK( test1)', 'def "$1" value "$2"', True);
+    //   will return:  def 'BLOCK' value 'test1'
+    //  Replace ('BLOCK( test1)', 'def "$1" value "$2"')
+    //   will return:  def "$1" value "$2"
+    // Internally calls Exec[Next]
+
+    property SubExprMatchCount : integer read GetSubExprMatchCount;
+    // Number of subexpressions has been found in last Exec* call.
+    // If there are no subexpr. but whole expr was found (Exec* returned True),
+    // then SubExprMatchCount=0, if no subexpressions nor whole
+    // r.e. found (Exec* returned false) then SubExprMatchCount=-1.
+    // Note, that some subexpr. may be not found and for such
+    // subexpr. MathPos=MatchLen=-1 and Match=''.
+    // For example: Expression := '(1)?2(3)?';
+    //  Exec ('123'): SubExprMatchCount=2, Match[0]='123', [1]='1', [2]='3'
+    //  Exec ('12'): SubExprMatchCount=1, Match[0]='12', [1]='1'
+    //  Exec ('23'): SubExprMatchCount=2, Match[0]='23', [1]='', [2]='3'
+    //  Exec ('2'): SubExprMatchCount=0, Match[0]='2'
+    //  Exec ('7') - return False: SubExprMatchCount=-1
+
+    property MatchPos [Idx : integer] : integer read GetMatchPos;
+    // pos of entrance subexpr. #Idx into tested in last Exec*
+    // string. First subexpr. have Idx=1, last - MatchCount,
+    // whole r.e. have Idx=0.
+    // Returns -1 if in r.e. no such subexpr. or this subexpr.
+    // not found in input string.
+
+    property MatchLen [Idx : integer] : integer read GetMatchLen;
+    // len of entrance subexpr. #Idx r.e. into tested in last Exec*
+    // string. First subexpr. have Idx=1, last - MatchCount,
+    // whole r.e. have Idx=0.
+    // Returns -1 if in r.e. no such subexpr. or this subexpr.
+    // not found in input string.
+    // Remember - MatchLen may be 0 (if r.e. match empty string) !
+
+    property Match [Idx : integer] : RegExprString read GetMatch;
+    // == copy (InputString, MatchPos [Idx], MatchLen [Idx])
+    // Returns '' if in r.e. no such subexpr. or this subexpr.
+    // not found in input string.
+
+    function LastError : integer;
+    // Returns ID of last error, 0 if no errors (unusable if
+    // Error method raises exception) and clear internal status
+    // into 0 (no errors).
+
+    function ErrorMsg (AErrorID : integer) : RegExprString; virtual;
+    // Returns Error message for error with ID = AErrorID.
+
+    property CompilerErrorPos : integer read GetCompilerErrorPos;
+    // Returns pos in r.e. there compiler stopped.
+    // Usefull for error diagnostics
+
+    property SpaceChars : RegExprString read fSpaceChars write fSpaceChars; //###0.927
+    // Contains chars, treated as /s (initially filled with RegExprSpaceChars
+    // global constant)
+
+    property WordChars : RegExprString read fWordChars write fWordChars; //###0.929
+    // Contains chars, treated as /w (initially filled with RegExprWordChars
+    // global constant)
+
+    property LineSeparators : RegExprString read fLineSeparators write SetLineSeparators; //###0.941
+    // line separators (like \n in Unix)
+
+    property LinePairedSeparator : RegExprString read GetLinePairedSeparator write SetLinePairedSeparator; //###0.941
+    // paired line separator (like \r\n in DOS and Windows).
+    // must contain exactly two chars or no chars at all
+
+    class function InvertCaseFunction  (const Ch : REChar) : REChar;
+    // Converts Ch into upper case if it in lower case or in lower
+    // if it in upper (uses current system local setings)
+
+    property InvertCase : TRegExprInvertCaseFunction read fInvertCase write fInvertCase; //##0.935
+    // Set this property if you want to override case-insensitive functionality.
+    // Create set it to RegExprInvertCaseFunction (InvertCaseFunction by default)
+
+    procedure Compile; //###0.941
+    // [Re]compile r.e. Usefull for example for GUI r.e. editors (to check
+    // all properties validity).
+
+    {$IFDEF DebugRegExpr}
+    function Dump : RegExprString;
+    // dump a compiled regexp in vaguely comprehensible form
+    {$ENDIF}
+  end;
+
+ ERegExpr = class (Exception)
+   public
+    ErrorCode : integer;
+    CompilerErrorPos : integer;
+  end;
+
+const
+  RegExprInvertCaseFunction : TRegExprInvertCaseFunction = nil;//TRegExpr.InvertCaseFunction;
+  // defaul for InvertCase property
+
+function ExecRegExpr (const ARegExpr, AInputStr : RegExprString) : boolean;
+// true if string AInputString match regular expression ARegExpr
+// ! will raise exeption if syntax errors in ARegExpr
+
+procedure SplitRegExpr (const ARegExpr, AInputStr : RegExprString; APieces : TStrings);
+// Split AInputStr into APieces by r.e. ARegExpr occurencies
+
+function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : RegExprString;
+      AUseSubstitution : boolean{$IFDEF D4_}= False{$ENDIF}) : RegExprString; //###0.947
+// Returns AInputStr with r.e. occurencies replaced by AReplaceStr
+// If AUseSubstitution is true, then AReplaceStr will be used
+// as template for Substitution methods.
+// For example:
+//  ReplaceRegExpr ('({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*',
+//   'BLOCK( test1)', 'def "$1" value "$2"', True)
+//  will return:  def 'BLOCK' value 'test1'
+//  ReplaceRegExpr ('({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*',
+//   'BLOCK( test1)', 'def "$1" value "$2"')
+//   will return:  def "$1" value "$2"
+
+function QuoteRegExprMetaChars (const AStr : RegExprString) : RegExprString;
+// Replace all metachars with its safe representation,
+// for example 'abc$cd.(' converts into 'abc\$cd\.\('
+// This function usefull for r.e. autogeneration from
+// user input
+
+function RegExprSubExpressions (const ARegExpr : string;
+ ASubExprs : TStrings; AExtendedSyntax : boolean{$IFDEF D4_}= False{$ENDIF}) : integer;
+// Makes list of subexpressions found in ARegExpr r.e.
+// In ASubExps every item represent subexpression,
+// from first to last, in format:
+//  String - subexpression text (without '()')
+//  low word of Object - starting position in ARegExpr, including '('
+//   if exists! (first position is 1)
+//  high word of Object - length, including starting '(' and ending ')'
+//   if exist!
+// AExtendedSyntax - must be True if modifier /m will be On while
+// using the r.e.
+// Usefull for GUI editors of r.e. etc (You can find example of using
+// in TestRExp.dpr project)
+// Returns
+//  0      Success. No unbalanced brackets was found;
+//  -1     There are not enough closing brackets ')';
+//  -(n+1) At position n was found opening '[' without  //###0.942
+//         corresponding closing ']';
+//  n      At position n was found closing bracket ')' without
+//         corresponding opening '('.
+// If Result <> 0, then ASubExpr can contain empty items or illegal ones
+
+
+implementation
+
+uses
+  uROClasses;
+
+const
+ TRegExprVersionMajor : integer = 0;
+ TRegExprVersionMinor : integer = 947;
+ // don't use this const directly, use TRegExpr.VersionXXX instead
+
+ MaskModI = 1;  // modifier /i bit in fModifiers
+ MaskModR = 2;  // -"- /r
+ MaskModS = 4;  // -"- /s
+ MaskModG = 8;  // -"- /g
+ MaskModM = 16; // -"- /m
+ MaskModX = 32; // -"- /x
+
+ {$IFDEF UniCode}
+ XIgnoredChars = ' '#9#$d#$a;
+ {$ELSE}
+ XIgnoredChars = [' ', #9, #$d, #$a];
+ {$ENDIF}
+
+{=============================================================}
+{=================== WideString functions ====================}
+{=============================================================}
+
+{$IFDEF UniCode}
+
+function StrPCopy (Dest: PRegExprChar; const Source: RegExprString): PRegExprChar;
+ var
+  i, Len : Integer;
+ begin
+  Len := length (Source); //###0.932
+  for i := 1 to Len do
+   Dest [i - 1] := Source [i];
+  Dest [Len] := #0;
+  Result := Dest;
+ end; { of function StrPCopy
+--------------------------------------------------------------}
+
+function StrLCopy (Dest, Source: PRegExprChar; MaxLen: Cardinal): PRegExprChar;
+ var i: Integer;
+ begin
+  for i := 0 to MaxLen - 1 do
+   Dest [i] := Source [i];
+  Result := Dest;
+ end; { of function StrLCopy
+--------------------------------------------------------------}
+
+function StrLen (Str: PRegExprChar): Cardinal;
+ begin
+  Result:=0;
+  while Str [result] <> #0
+   do Inc (Result);
+ end; { of function StrLen
+--------------------------------------------------------------}
+
+function StrPos (Str1, Str2: PRegExprChar): PRegExprChar;
+ var n: Integer;
+ begin
+  Result := nil;
+  n := Pos (RegExprString (Str2), RegExprString (Str1));
+  if n = 0
+   then EXIT;
+  Result := Str1 + n - 1;
+ end; { of function StrPos
+--------------------------------------------------------------}
+
+function StrLComp (Str1, Str2: PRegExprChar; MaxLen: Cardinal): Integer;
+ var S1, S2: RegExprString;
+ begin
+  S1 := Str1;
+  S2 := Str2;
+  if Copy (S1, 1, MaxLen) > Copy (S2, 1, MaxLen)
+   then Result := 1
+   else
+    if Copy (S1, 1, MaxLen) < Copy (S2, 1, MaxLen)
+     then Result := -1
+     else Result := 0;
+ end; { function StrLComp
+--------------------------------------------------------------}
+
+function StrScan (Str: PRegExprChar; Chr: WideChar): PRegExprChar;
+ begin
+  Result := nil;
+  while (Str^ <> #0) and (Str^ <> Chr)
+   do Inc (Str);
+  if (Str^ <> #0)
+   then Result := Str;
+ end; { of function StrScan
+--------------------------------------------------------------}
+
+{$ENDIF}
+
+
+{=============================================================}
+{===================== Global functions ======================}
+{=============================================================}
+
+function ExecRegExpr (const ARegExpr, AInputStr : RegExprString) : boolean;
+ var r : TRegExpr;
+ begin
+  r := TRegExpr.Create;
+  try
+    r.Expression := ARegExpr;
+    Result := r.Exec (AInputStr);
+    finally r.Free;
+   end;
+ end; { of function ExecRegExpr
+--------------------------------------------------------------}
+
+procedure SplitRegExpr (const ARegExpr, AInputStr : RegExprString; APieces : TStrings);
+ var r : TRegExpr;
+ begin
+  APieces.Clear;
+  r := TRegExpr.Create;
+  try
+    r.Expression := ARegExpr;
+    r.Split (AInputStr, APieces);
+    finally r.Free;
+   end;
+ end; { of procedure SplitRegExpr
+--------------------------------------------------------------}
+
+function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : RegExprString;
+      AUseSubstitution : boolean{$IFDEF D4_}= False{$ENDIF}) : RegExprString;
+ var r : TRegExpr;
+ begin
+  r := TRegExpr.Create;
+  try
+    r.Expression := ARegExpr;
+    Result := r.Replace (AInputStr, AReplaceStr, AUseSubstitution); //###0.947
+    finally r.Free;
+   end;
+ end; { of function ReplaceRegExpr
+--------------------------------------------------------------}
+
+function QuoteRegExprMetaChars (const AStr : RegExprString) : RegExprString;
+ const
+  RegExprMetaSet : RegExprString = '^$.[()|?+*\{'
+  + ']}'; // - this last are additional to META.
+  // Very similar to META array, but slighly changed.
+  // !Any changes in META array must be synchronized with this set.
+ var
+  i, i0, Len : integer;
+ begin
+  Result := '';
+  Len := length (AStr);
+  i := 1;
+  i0 := i;
+  while i <= Len do begin
+    if Pos (AStr [i], RegExprMetaSet) > 0 then begin
+      Result := Result + System.Copy (AStr, i0, i - i0)
+                 + '\' + AStr [i];
+      i0 := i + 1;
+     end;
+    inc (i);
+   end;
+  Result := Result + System.Copy (AStr, i0, MaxInt); // Tail
+ end; { of function QuoteRegExprMetaChars
+--------------------------------------------------------------}
+
+function RegExprSubExpressions (const ARegExpr : string;
+ ASubExprs : TStrings; AExtendedSyntax : boolean{$IFDEF D4_}= False{$ENDIF}) : integer;
+ type
+  TStackItemRec =  record //###0.945
+    SubExprIdx : integer;
+    StartPos : integer;
+   end;
+  TStackArray = packed array [0 .. NSUBEXPMAX - 1] of TStackItemRec;
+ var
+  Len, SubExprLen : integer;
+  i, i0 : integer;
+  Modif : integer;
+  Stack : ^TStackArray; //###0.945
+  StackIdx, StackSz : integer;
+ begin
+  Result := 0; // no unbalanced brackets found at this very moment
+
+  ASubExprs.Clear; // I don't think that adding to non empty list
+  // can be usefull, so I simplified algorithm to work only with empty list
+
+  Len := length (ARegExpr); // some optimization tricks
+
+  // first we have to calculate number of subexpression to reserve
+  // space in Stack array (may be we'll reserve more then need, but
+  // it's faster then memory reallocation during parsing)
+  StackSz := 1; // add 1 for entire r.e.
+  for i := 1 to Len do
+   if ARegExpr [i] = '('
+    then inc (StackSz);
+//  SetLength (Stack, StackSz); //###0.945
+  GetMem (Stack, SizeOf (TStackItemRec) * StackSz);
+  try
+
+  StackIdx := 0;
+  i := 1;
+  while (i <= Len) do begin
+    case ARegExpr [i] of
+      '(': begin
+        if (i < Len) and (ARegExpr [i + 1] = '?') then begin
+           // this is not subexpression, but comment or other
+           // Perl extension. We must check is it (?ismxrg-ismxrg)
+           // and change AExtendedSyntax if /x is changed.
+           inc (i, 2); // skip '(?'
+           i0 := i;
+           while (i <= Len) and (ARegExpr [i] <> ')')
+            do inc (i);
+           if i > Len
+            then Result := -1 // unbalansed '('
+            else
+             if TRegExpr.ParseModifiersStr (System.Copy (ARegExpr, i, i - i0), Modif)
+              then AExtendedSyntax := (Modif and MaskModX) <> 0;
+          end
+         else begin // subexpression starts
+           ASubExprs.Add (''); // just reserve space
+           with Stack [StackIdx] do begin
+             SubExprIdx := ASubExprs.Count - 1;
+             StartPos := i;
+            end;
+           inc (StackIdx);
+          end;
+       end;
+      ')': begin
+        if StackIdx = 0
+         then Result := i // unbalanced ')'
+         else begin
+           dec (StackIdx);
+           with Stack [StackIdx] do begin
+             SubExprLen := i - StartPos + 1;
+             ASubExprs.Objects [SubExprIdx] :=
+              TObject (StartPos or (SubExprLen ShL 16));
+             ASubExprs [SubExprIdx] := System.Copy (
+              ARegExpr, StartPos + 1, SubExprLen - 2); // add without brackets
+            end;
+          end;
+       end;
+      '\': inc (i); // skip quoted symbol
+      '[': begin
+        // we have to skip character ranges at once, because they can
+        // contain '#', and '#' in it must NOT be recognized as eXtended
+        // comment beginning!
+        i0 := i;
+        inc (i);
+        if ARegExpr [i] = ']' // cannot be 'emty' ranges - this interpretes
+         then inc (i);        // as ']' by itself
+        while (i <= Len) and (ARegExpr [i] <> ']') do
+         if ARegExpr [i] = '\' //###0.942
+          then inc (i, 2) // skip 'escaped' char to prevent stopping at '\]'
+          else inc (i);
+        if (i > Len) or (ARegExpr [i] <> ']') //###0.942
+         then Result := - (i0 + 1); // unbalansed '[' //###0.942
+       end;
+      '#': if AExtendedSyntax then begin
+        // skip eXtended comments
+        while (i <= Len) and (ARegExpr [i] <> #$d) and (ARegExpr [i] <> #$a)
+         // do not use [#$d, #$a] due to UniCode compatibility
+         do inc (i);
+        while (i + 1 <= Len) and ((ARegExpr [i + 1] = #$d) or (ARegExpr [i + 1] = #$a))
+         do inc (i); // attempt to work with different kinds of line separators
+        // now we are at the line separator that must be skipped.
+       end;
+      // here is no 'else' clause - we simply skip ordinary chars
+     end; // of case
+    inc (i); // skip scanned char
+    // ! can move after Len due to skipping quoted symbol
+   end;
+
+  // check brackets balance
+  if StackIdx <> 0
+   then Result := -1; // unbalansed '('
+
+  // check if entire r.e. added
+  if (ASubExprs.Count = 0)
+   or ((integer (ASubExprs.Objects [0]) and $FFFF) <> 1)
+   or (((integer (ASubExprs.Objects [0]) ShR 16) and $FFFF) <> Len)
+    // whole r.e. wasn't added because it isn't bracketed
+    // well, we add it now:
+    then ASubExprs.InsertObject (0, ARegExpr, TObject ((Len ShL 16) or 1));
+
+  finally FreeMem (Stack);
+  end;
+ end; { of function RegExprSubExpressions
+--------------------------------------------------------------}
+
+
+
+const
+ MAGIC       = TREOp (216);// programm signature
+
+// name            opcode    opnd? meaning
+ EEND        = TREOp (0);  // -    End of program
+ BOL         = TREOp (1);  // -    Match "" at beginning of line
+ EOL         = TREOp (2);  // -    Match "" at end of line
+ ANY         = TREOp (3);  // -    Match any one character
+ ANYOF       = TREOp (4);  // Str  Match any character in string Str
+ ANYBUT      = TREOp (5);  // Str  Match any char. not in string Str
+ BRANCH      = TREOp (6);  // Node Match this alternative, or the next
+ BACK        = TREOp (7);  // -    Jump backward (Next < 0)
+ EXACTLY     = TREOp (8);  // Str  Match string Str
+ NOTHING     = TREOp (9);  // -    Match empty string
+ STAR        = TREOp (10); // Node Match this (simple) thing 0 or more times
+ PLUS        = TREOp (11); // Node Match this (simple) thing 1 or more times
+ ANYDIGIT    = TREOp (12); // -    Match any digit (equiv [0-9])
+ NOTDIGIT    = TREOp (13); // -    Match not digit (equiv [0-9])
+ ANYLETTER   = TREOp (14); // -    Match any letter from property WordChars
+ NOTLETTER   = TREOp (15); // -    Match not letter from property WordChars
+ ANYSPACE    = TREOp (16); // -    Match any space char (see property SpaceChars)
+ NOTSPACE    = TREOp (17); // -    Match not space char (see property SpaceChars)
+ BRACES      = TREOp (18); // Node,Min,Max Match this (simple) thing from Min to Max times.
+                           //      Min and Max are TREBracesArg
+ COMMENT     = TREOp (19); // -    Comment ;)
+ EXACTLYCI   = TREOp (20); // Str  Match string Str case insensitive
+ ANYOFCI     = TREOp (21); // Str  Match any character in string Str, case insensitive
+ ANYBUTCI    = TREOp (22); // Str  Match any char. not in string Str, case insensitive
+ LOOPENTRY   = TREOp (23); // Node Start of loop (Node - LOOP for this loop)
+ LOOP        = TREOp (24); // Node,Min,Max,LoopEntryJmp - back jump for LOOPENTRY.
+                           //      Min and Max are TREBracesArg
+                           //      Node - next node in sequence,
+                           //      LoopEntryJmp - associated LOOPENTRY node addr
+ ANYOFTINYSET= TREOp (25); // Chrs Match any one char from Chrs (exactly TinySetLen chars)
+ ANYBUTTINYSET=TREOp (26); // Chrs Match any one char not in Chrs (exactly TinySetLen chars)
+ ANYOFFULLSET= TREOp (27); // Set  Match any one char from set of char
+                           // - very fast (one CPU instruction !) but takes 32 bytes of p-code
+ BSUBEXP     = TREOp (28); // Idx  Match previously matched subexpression #Idx (stored as REChar) //###0.936
+ BSUBEXPCI   = TREOp (29); // Idx  -"- in case-insensitive mode
+
+ // Non-Greedy Style Ops //###0.940
+ STARNG      = TREOp (30); // Same as START but in non-greedy mode
+ PLUSNG      = TREOp (31); // Same as PLUS but in non-greedy mode
+ BRACESNG    = TREOp (32); // Same as BRACES but in non-greedy mode
+ LOOPNG      = TREOp (33); // Same as LOOP but in non-greedy mode
+
+ // Multiline mode \m
+ BOLML       = TREOp (34);  // -    Match "" at beginning of line
+ EOLML       = TREOp (35);  // -    Match "" at end of line
+ ANYML       = TREOp (36);  // -    Match any one character
+
+ // Word boundary
+ BOUND       = TREOp (37);  // Match "" between words //###0.943
+ NOTBOUND    = TREOp (38);  // Match "" not between words //###0.943
+
+ // !!! Change OPEN value if you add new opcodes !!!
+
+ OPEN        = TREOp (39); // -    Mark this point in input as start of \n
+                           //      OPEN + 1 is \1, etc.
+ CLOSE       = TREOp (ord (OPEN) + NSUBEXP);
+                           // -    Analogous to OPEN.
+
+ // !!! Don't add new OpCodes after CLOSE !!!
+
+// We work with p-code thru pointers, compatible with PRegExprChar.
+// Note: all code components (TRENextOff, TREOp, TREBracesArg, etc)
+// must have lengths that can be divided by SizeOf (REChar) !
+// A node is TREOp of opcode followed Next "pointer" of TRENextOff type.
+// The Next is a offset from the opcode of the node containing it.
+// An operand, if any, simply follows the node. (Note that much of
+// the code generation knows about this implicit relationship!)
+// Using TRENextOff=integer speed up p-code processing.
+
+// Opcodes description:
+//
+// BRANCH The set of branches constituting a single choice are hooked
+//      together with their "next" pointers, since precedence prevents
+//      anything being concatenated to any individual branch.  The
+//      "next" pointer of the last BRANCH in a choice points to the
+//      thing following the whole choice.  This is also where the
+//      final "next" pointer of each individual branch points; each
+//      branch starts with the operand node of a BRANCH node.
+// BACK Normal "next" pointers all implicitly point forward; BACK
+//      exists to make loop structures possible.
+// STAR,PLUS,BRACES '?', and complex '*' and '+', are implemented as
+//      circular BRANCH structures using BACK. Complex '{min,max}'
+//      - as pair LOOPENTRY-LOOP (see below). Simple cases (one
+//      character per match) are implemented with STAR, PLUS and
+//      BRACES for speed and to minimize recursive plunges.
+// LOOPENTRY,LOOP {min,max} are implemented as special pair
+//      LOOPENTRY-LOOP. Each LOOPENTRY initialize loopstack for
+//      current level.
+// OPEN,CLOSE are numbered at compile time.
+
+
+{=============================================================}
+{================== Error handling section ===================}
+{=============================================================}
+
+const
+ reeOk = 0;
+ reeCompNullArgument = 100;
+ reeCompRegexpTooBig = 101;
+ reeCompParseRegTooManyBrackets = 102;
+ reeCompParseRegUnmatchedBrackets = 103;
+ reeCompParseRegUnmatchedBrackets2 = 104;
+ reeCompParseRegJunkOnEnd = 105;
+ reePlusStarOperandCouldBeEmpty = 106;
+ reeNestedSQP = 107;
+ reeBadHexDigit = 108;
+ reeInvalidRange = 109;
+ reeParseAtomTrailingBackSlash = 110;
+ reeNoHexCodeAfterBSlashX = 111;
+ reeHexCodeAfterBSlashXTooBig = 112;
+ reeUnmatchedSqBrackets = 113;
+ reeInternalUrp = 114;
+ reeQPSBFollowsNothing = 115;
+ reeTrailingBackSlash = 116;
+ reeRarseAtomInternalDisaster = 119;
+ reeBRACESArgTooBig = 122;
+ reeBracesMinParamGreaterMax = 124;
+ reeUnclosedComment = 125;
+ reeComplexBracesNotImplemented = 126;
+ reeUrecognizedModifier = 127;
+ reeBadLinePairedSeparator = 128;
+ reeRegRepeatCalledInappropriately = 1000;
+ reeMatchPrimMemoryCorruption = 1001;
+ reeMatchPrimCorruptedPointers = 1002;
+ reeNoExpression = 1003;
+ reeCorruptedProgram = 1004;
+ reeNoInpitStringSpecified = 1005;
+ reeOffsetMustBeGreaterThen0 = 1006;
+ reeExecNextWithoutExec = 1007;
+ reeGetInputStringWithoutInputString = 1008;
+ reeDumpCorruptedOpcode = 1011;
+ reeModifierUnsupported = 1013;
+ reeLoopStackExceeded = 1014;
+ reeLoopWithoutEntry = 1015;
+
+function TRegExpr.ErrorMsg (AErrorID : integer) : RegExprString;
+ begin
+  case AErrorID of
+    reeOk: Result := 'No errors';
+    reeCompNullArgument: Result := 'TRegExpr(comp): Null Argument';
+    reeCompRegexpTooBig: Result := 'TRegExpr(comp): Regexp Too Big';
+    reeCompParseRegTooManyBrackets: Result := 'TRegExpr(comp): ParseReg Too Many ()';
+    reeCompParseRegUnmatchedBrackets: Result := 'TRegExpr(comp): ParseReg Unmatched ()';
+    reeCompParseRegUnmatchedBrackets2: Result := 'TRegExpr(comp): ParseReg Unmatched ()';
+    reeCompParseRegJunkOnEnd: Result := 'TRegExpr(comp): ParseReg Junk On End';
+    reePlusStarOperandCouldBeEmpty: Result := 'TRegExpr(comp): *+ Operand Could Be Empty';
+    reeNestedSQP: Result := 'TRegExpr(comp): Nested *?+';
+    reeBadHexDigit: Result := 'TRegExpr(comp): Bad Hex Digit';
+    reeInvalidRange: Result := 'TRegExpr(comp): Invalid [] Range';
+    reeParseAtomTrailingBackSlash: Result := 'TRegExpr(comp): Parse Atom Trailing \';
+    reeNoHexCodeAfterBSlashX: Result := 'TRegExpr(comp): No Hex Code After \x';
+    reeHexCodeAfterBSlashXTooBig: Result := 'TRegExpr(comp): Hex Code After \x Is Too Big';
+    reeUnmatchedSqBrackets: Result := 'TRegExpr(comp): Unmatched []';
+    reeInternalUrp: Result := 'TRegExpr(comp): Internal Urp';
+    reeQPSBFollowsNothing: Result := 'TRegExpr(comp): ?+*{ Follows Nothing';
+    reeTrailingBackSlash: Result := 'TRegExpr(comp): Trailing \';
+    reeRarseAtomInternalDisaster: Result := 'TRegExpr(comp): RarseAtom Internal Disaster';
+    reeBRACESArgTooBig: Result := 'TRegExpr(comp): BRACES Argument Too Big';
+    reeBracesMinParamGreaterMax: Result := 'TRegExpr(comp): BRACE Min Param Greater then Max';
+    reeUnclosedComment: Result := 'TRegExpr(comp): Unclosed (?#Comment)';
+    reeComplexBracesNotImplemented: Result := 'TRegExpr(comp): If you want take part in beta-testing BRACES ''{min,max}'' and non-greedy ops ''*?'', ''+?'', ''??'' for complex cases - remove ''.'' from {.$DEFINE ComplexBraces}';
+    reeUrecognizedModifier: Result := 'TRegExpr(comp): Urecognized Modifier';
+    reeBadLinePairedSeparator: Result := 'TRegExpr(comp): LinePairedSeparator must countain two different chars or no chars at all';
+
+    reeRegRepeatCalledInappropriately: Result := 'TRegExpr(exec): RegRepeat Called Inappropriately';
+    reeMatchPrimMemoryCorruption: Result := 'TRegExpr(exec): MatchPrim Memory Corruption';
+    reeMatchPrimCorruptedPointers: Result := 'TRegExpr(exec): MatchPrim Corrupted Pointers';
+    reeNoExpression: Result := 'TRegExpr(exec): Not Assigned Expression Property';
+    reeCorruptedProgram: Result := 'TRegExpr(exec): Corrupted Program';
+    reeNoInpitStringSpecified: Result := 'TRegExpr(exec): No Inpit String Specified';
+    reeOffsetMustBeGreaterThen0: Result := 'TRegExpr(exec): Offset Must Be Greater Then 0';
+    reeExecNextWithoutExec: Result := 'TRegExpr(exec): ExecNext Without Exec[Pos]';
+    reeGetInputStringWithoutInputString: Result := 'TRegExpr(exec): GetInputString Without InputString';
+    reeDumpCorruptedOpcode: Result := 'TRegExpr(dump): Corrupted Opcode';
+    reeLoopStackExceeded: Result := 'TRegExpr(exec): Loop Stack Exceeded';
+    reeLoopWithoutEntry: Result := 'TRegExpr(exec): Loop Without LoopEntry !';
+    else Result := 'Unknown error';
+   end;
+ end; { of procedure TRegExpr.Error
+--------------------------------------------------------------}
+
+function TRegExpr.LastError : integer;
+ begin
+  Result := fLastError;
+  fLastError := reeOk;
+ end; { of function TRegExpr.LastError
+--------------------------------------------------------------}
+
+
+{=============================================================}
+{===================== Common section ========================}
+{=============================================================}
+
+class function TRegExpr.VersionMajor : integer; //###0.944
+ begin
+  Result := TRegExprVersionMajor;
+ end; { of class function TRegExpr.VersionMajor
+--------------------------------------------------------------}
+
+class function TRegExpr.VersionMinor : integer; //###0.944
+ begin
+  Result := TRegExprVersionMinor;
+ end; { of class function TRegExpr.VersionMinor
+--------------------------------------------------------------}
+
+constructor TRegExpr.Create;
+ begin
+  inherited;
+  programm := nil;
+  fExpression := nil;
+  fInputString := nil;
+
+  regexpbeg := nil;
+  fExprIsCompiled := false;
+
+  ModifierI := RegExprModifierI;
+  ModifierR := RegExprModifierR;
+  ModifierS := RegExprModifierS;
+  ModifierG := RegExprModifierG;
+  ModifierM := RegExprModifierM; //###0.940
+
+  SpaceChars := RegExprSpaceChars; //###0.927
+  WordChars := RegExprWordChars; //###0.929
+  fInvertCase := RegExprInvertCaseFunction; //###0.927
+
+  fLineSeparators := RegExprLineSeparators; //###0.941
+  LinePairedSeparator := RegExprLinePairedSeparator; //###0.941
+ end; { of constructor TRegExpr.Create
+--------------------------------------------------------------}
+
+destructor TRegExpr.Destroy;
+ begin
+  if programm <> nil
+   then FreeMem (programm);
+  if fExpression <> nil
+   then FreeMem (fExpression);
+  if fInputString <> nil
+   then FreeMem (fInputString);
+ end; { of destructor TRegExpr.Destroy
+--------------------------------------------------------------}
+
+function LoCase (ch: Char): Char;
+begin
+   if CharInSet(ch, ['A'..'Z']) then
+      LoCase := chr(ord(ch) xor 32)
+   else
+      LoCase := ch
+end; { LoCase }
+
+class function TRegExpr.InvertCaseFunction (const Ch : REChar) : REChar;
+ begin
+  {$IFDEF UniCode}
+  if Ch >= #128
+   then Result := Ch
+  else
+  {$ENDIF}
+   begin
+    Result := REChar (UpCase(Ch));
+    if Result = Ch
+     then Result := REChar (LoCase(Ch));
+   end;
+ end; { of function TRegExpr.InvertCaseFunction
+--------------------------------------------------------------}
+
+function TRegExpr.GetExpression : RegExprString;
+ begin
+  if fExpression <> nil
+   then Result := fExpression
+   else Result := '';
+ end; { of function TRegExpr.GetExpression
+--------------------------------------------------------------}
+
+procedure TRegExpr.SetExpression (const s : RegExprString);
+ begin
+  if (s <> fExpression) or not fExprIsCompiled then begin
+    fExprIsCompiled := false;
+    if fExpression <> nil then begin
+      FreeMem (fExpression);
+      fExpression := nil;
+     end;
+    if s <> '' then begin
+      GetMem (fExpression, (length (s) + 1) * SizeOf (REChar));
+      StrPCopy (fExpression, s);
+      InvalidateProgramm; //###0.941
+     end;
+   end;
+ end; { of procedure TRegExpr.SetExpression
+--------------------------------------------------------------}
+
+function TRegExpr.GetSubExprMatchCount : integer;
+ begin
+  if Assigned (fInputString) then begin
+     Result := NSUBEXP - 1;
+     while (Result > 0) and ((startp [Result] = nil)
+                             or (endp [Result] = nil))
+      do dec (Result);
+    end
+   else Result := -1;
+ end; { of function TRegExpr.GetSubExprMatchCount
+--------------------------------------------------------------}
+
+function TRegExpr.GetMatchPos (Idx : integer) : integer;
+ begin
+  if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString)
+     and Assigned (startp [Idx]) and Assigned (endp [Idx]) then begin
+     Result := (startp [Idx] - fInputString) + 1;
+    end
+   else Result := -1;
+ end; { of function TRegExpr.GetMatchPos
+--------------------------------------------------------------}
+
+function TRegExpr.GetMatchLen (Idx : integer) : integer;
+ begin
+  if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString)
+     and Assigned (startp [Idx]) and Assigned (endp [Idx]) then begin
+     Result := endp [Idx] - startp [Idx];
+    end
+   else Result := -1;
+ end; { of function TRegExpr.GetMatchLen
+--------------------------------------------------------------}
+
+function TRegExpr.GetMatch (Idx : integer) : RegExprString;
+ begin
+  if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString)
+     and Assigned (startp [Idx]) and Assigned (endp [Idx])
+   //then Result := copy (fInputString, MatchPos [Idx], MatchLen [Idx]) //###0.929
+   then SetString (Result, startp [idx], endp [idx] - startp [idx])
+   else Result := '';
+ end; { of function TRegExpr.GetMatch
+--------------------------------------------------------------}
+
+function TRegExpr.GetModifierStr : RegExprString;
+ begin
+  Result := '-';
+
+  if ModifierI
+   then Result := 'i' + Result
+   else Result := Result + 'i';
+  if ModifierR
+   then Result := 'r' + Result
+   else Result := Result + 'r';
+  if ModifierS
+   then Result := 's' + Result
+   else Result := Result + 's';
+  if ModifierG
+   then Result := 'g' + Result
+   else Result := Result + 'g';
+  if ModifierM
+   then Result := 'm' + Result
+   else Result := Result + 'm';
+  if ModifierX
+   then Result := 'x' + Result
+   else Result := Result + 'x';
+
+  if Result [length (Result)] = '-' // remove '-' if all modifiers are 'On'
+   then System.Delete (Result, length (Result), 1);
+ end; { of function TRegExpr.GetModifierStr
+--------------------------------------------------------------}
+
+class function TRegExpr.ParseModifiersStr (const AModifiers : RegExprString;
+var AModifiersInt : integer) : boolean;
+// !!! Be carefull - this is class function and must not use object instance fields
+ var
+  i : integer;
+  IsOn : boolean;
+  Mask : integer;
+ begin
+  Result := true;
+  IsOn := true;
+  Mask := 0; // prevent compiler warning
+  for i := 1 to length (AModifiers) do
+   if AModifiers [i] = '-'
+    then IsOn := false
+    else begin
+      if Pos (AModifiers [i], 'iI') > 0
+       then Mask := MaskModI
+      else if Pos (AModifiers [i], 'rR') > 0
+       then Mask := MaskModR
+      else if Pos (AModifiers [i], 'sS') > 0
+       then Mask := MaskModS
+      else if Pos (AModifiers [i], 'gG') > 0
+       then Mask := MaskModG
+      else if Pos (AModifiers [i], 'mM') > 0
+       then Mask := MaskModM
+      else if Pos (AModifiers [i], 'xX') > 0
+       then Mask := MaskModX
+      else begin
+        Result := false;
+        EXIT;
+       end;
+      if IsOn
+       then AModifiersInt := AModifiersInt or Mask
+       else AModifiersInt := AModifiersInt and not Mask;
+     end;
+ end; { of function TRegExpr.ParseModifiersStr
+--------------------------------------------------------------}
+
+procedure TRegExpr.SetModifierStr (const AModifiers : RegExprString);
+ begin
+  if not ParseModifiersStr (AModifiers, fModifiers)
+   then Error (reeModifierUnsupported);
+ end; { of procedure TRegExpr.SetModifierStr
+--------------------------------------------------------------}
+
+function TRegExpr.GetModifier (AIndex : integer) : boolean;
+ var
+  Mask : integer;
+ begin
+  Result := false;
+  case AIndex of
+    1: Mask := MaskModI;
+    2: Mask := MaskModR;
+    3: Mask := MaskModS;
+    4: Mask := MaskModG;
+    5: Mask := MaskModM;
+    6: Mask := MaskModX;
+    else begin
+      Error (reeModifierUnsupported);
+      EXIT;
+     end;
+   end;
+  Result := (fModifiers and Mask) <> 0;
+ end; { of function TRegExpr.GetModifier
+--------------------------------------------------------------}
+
+procedure TRegExpr.SetModifier (AIndex : integer; ASet : boolean);
+ var
+  Mask : integer;
+ begin
+  case AIndex of
+    1: Mask := MaskModI;
+    2: Mask := MaskModR;
+    3: Mask := MaskModS;
+    4: Mask := MaskModG;
+    5: Mask := MaskModM;
+    6: Mask := MaskModX;
+    else begin
+      Error (reeModifierUnsupported);
+      EXIT;
+     end;
+   end;
+  if ASet
+   then fModifiers := fModifiers or Mask
+   else fModifiers := fModifiers and not Mask;
+ end; { of procedure TRegExpr.SetModifier
+--------------------------------------------------------------}
+
+
+{=============================================================}
+{==================== Compiler section =======================}
+{=============================================================}
+
+procedure TRegExpr.InvalidateProgramm;
+ begin
+  if programm <> nil then begin
+    FreeMem (programm);
+    programm := nil;
+   end;
+ end; { of procedure TRegExpr.InvalidateProgramm
+--------------------------------------------------------------}
+
+procedure TRegExpr.Compile; //###0.941
+ begin
+  if fExpression = nil then begin // No Expression assigned
+    Error (reeNoExpression);
+    EXIT;
+   end;
+  CompileRegExpr (fExpression);
+ end; { of procedure TRegExpr.Compile
+--------------------------------------------------------------}
+
+function TRegExpr.IsProgrammOk : boolean;
+ {$IFNDEF UniCode}
+ var
+  i : integer;
+ {$ENDIF}
+ begin
+  Result := false;
+
+  // check modifiers
+  if fModifiers <> fProgModifiers //###0.941
+   then InvalidateProgramm;
+
+  // can we optimize line separators by using sets?
+  {$IFNDEF UniCode}
+  fLineSeparatorsSet := [];
+  for i := 1 to length (fLineSeparators)
+   do System.Include (fLineSeparatorsSet, fLineSeparators [i]);
+  {$ENDIF}
+
+  // [Re]compile if needed
+  if programm = nil
+   then Compile; //###0.941
+
+  // check [re]compiled programm
+  if programm = nil
+   then EXIT // error was set/raised by Compile (was reeExecAfterCompErr)
+  else if programm [0] <> MAGIC // Program corrupted.
+   then Error (reeCorruptedProgram)
+  else Result := true;
+ end; { of function TRegExpr.IsProgrammOk
+--------------------------------------------------------------}
+
+procedure TRegExpr.Tail (p : PRegExprChar; val : PRegExprChar);
+// set the next-pointer at the end of a node chain
+ var
+  scan : PRegExprChar;
+  temp : PRegExprChar;
+ begin
+  if p = @regdummy
+   then EXIT;
+  // Find last node.
+  scan := p;
+  REPEAT
+   temp := regnext (scan);
+   if temp = nil
+    then BREAK;
+   scan := temp;
+  UNTIL false;
+  // Set Next 'pointer'
+  PRENextOff (scan + REOpSz)^ := val - scan; //###0.933
+ end; { of procedure TRegExpr.Tail
+--------------------------------------------------------------}
+
+procedure TRegExpr.OpTail (p : PRegExprChar; val : PRegExprChar);
+// regtail on operand of first argument; nop if operandless
+ begin
+  // "Operandless" and "op != BRANCH" are synonymous in practice.
+  if (p = nil) or (p = @regdummy) or (PREOp (p)^ <> BRANCH)
+   then EXIT;
+  Tail (p + REOpSz + RENextOffSz, val); //###0.933
+ end; { of procedure TRegExpr.OpTail
+--------------------------------------------------------------}
+
+function TRegExpr.EmitNode (op : TREOp) : PRegExprChar; //###0.933
+// emit a node, return location
+ begin
+  Result := regcode;
+  if Result <> @regdummy then begin
+     PREOp (regcode)^ := op;
+     inc (regcode, REOpSz);
+     PRENextOff (regcode)^ := 0; // Next "pointer" := nil
+     inc (regcode, RENextOffSz);
+    end
+   else inc (regsize, REOpSz + RENextOffSz); // compute code size without code generation
+ end; { of function TRegExpr.EmitNode
+--------------------------------------------------------------}
+
+procedure TRegExpr.EmitC (b : REChar);
+// emit a byte to code
+ begin
+  if regcode <> @regdummy then begin
+     regcode^ := b;
+     inc (regcode);
+    end
+   else inc (regsize); // Type of p-code pointer always is ^REChar
+ end; { of procedure TRegExpr.EmitC
+--------------------------------------------------------------}
+
+procedure TRegExpr.InsertOperator (op : TREOp; opnd : PRegExprChar; sz : integer);
+// insert an operator in front of already-emitted operand
+// Means relocating the operand.
+ var
+  src, dst, place : PRegExprChar;
+  i : integer;
+ begin
+  if regcode = @regdummy then begin
+    inc (regsize, sz);
+    EXIT;
+   end;
+  src := regcode;
+  inc (regcode, sz);
+  dst := regcode;
+  while src > opnd do begin
+    dec (dst);
+    dec (src);
+    dst^ := src^;
+   end;
+  place := opnd; // Op node, where operand used to be.
+  PREOp (place)^ := op;
+  inc (place, REOpSz);
+  for i := 1 + REOpSz to sz do begin
+    place^ := #0;
+    inc (place);
+   end;
+ end; { of procedure TRegExpr.InsertOperator
+--------------------------------------------------------------}
+
+function strcspn (s1 : PRegExprChar; s2 : PRegExprChar) : integer;
+// find length of initial segment of s1 consisting
+// entirely of characters not from s2
+ var scan1, scan2 : PRegExprChar;
+ begin
+  Result := 0;
+  scan1 := s1;
+  while scan1^ <> #0 do begin
+    scan2 := s2;
+    while scan2^ <> #0 do
+     if scan1^ = scan2^
+      then EXIT
+      else inc (scan2);
+    inc (Result);
+    inc (scan1)
+   end;
+ end; { of function strcspn
+--------------------------------------------------------------}
+
+const
+// Flags to be passed up and down.
+ HASWIDTH =   01; // Known never to match nil string.
+ SIMPLE   =   02; // Simple enough to be STAR/PLUS/BRACES operand.
+ SPSTART  =   04; // Starts with * or +.
+ WORST    =   0;  // Worst case.
+ META : array [0 .. 12] of REChar = (
+  '^', '$', '.', '[', '(', ')', '|', '?', '+', '*', '\', '{', #0);
+ // Any modification must be synchronized with QuoteRegExprMetaChars !!!
+
+{$IFDEF UniCode}
+ RusRangeLo : array [0 .. 33] of REChar =
+  (#$430,#$431,#$432,#$433,#$434,#$435,#$451,#$436,#$437,
+   #$438,#$439,#$43A,#$43B,#$43C,#$43D,#$43E,#$43F,
+   #$440,#$441,#$442,#$443,#$444,#$445,#$446,#$447,
+   #$448,#$449,#$44A,#$44B,#$44C,#$44D,#$44E,#$44F,#0);
+ RusRangeHi : array [0 .. 33] of REChar =
+  (#$410,#$411,#$412,#$413,#$414,#$415,#$401,#$416,#$417,
+   #$418,#$419,#$41A,#$41B,#$41C,#$41D,#$41E,#$41F,
+   #$420,#$421,#$422,#$423,#$424,#$425,#$426,#$427,
+   #$428,#$429,#$42A,#$42B,#$42C,#$42D,#$42E,#$42F,#0);
+ RusRangeLoLow = #$430{'�'};
+ RusRangeLoHigh = #$44F{'�'};
+ RusRangeHiLow = #$410{'�'};
+ RusRangeHiHigh = #$42F{'�'};
+{$ELSE}
+ RusRangeLo = '��������������������������������';
+ RusRangeHi = '�����Ũ��������������������������';
+ RusRangeLoLow = '�';
+ RusRangeLoHigh = '�';
+ RusRangeHiLow = '�';
+ RusRangeHiHigh = '�';
+{$ENDIF}
+
+function TRegExpr.CompileRegExpr (exp : PRegExprChar) : boolean;
+// compile a regular expression into internal code
+// We can't allocate space until we know how big the compiled form will be,
+// but we can't compile it (and thus know how big it is) until we've got a
+// place to put the code.  So we cheat:  we compile it twice, once with code
+// generation turned off and size counting turned on, and once "for real".
+// This also means that we don't allocate space until we are sure that the
+// thing really will compile successfully, and we never have to move the
+// code and thus invalidate pointers into it.  (Note that it has to be in
+// one piece because free() must be able to free it all.)
+// Beware that the optimization-preparation code in here knows about some
+// of the structure of the compiled regexp.
+ var
+  scan, longest : PRegExprChar;
+  len : cardinal;
+  flags : integer;
+ begin
+  Result := false; // life too dark
+
+  regparse := nil; // for correct error handling
+  regexpbeg := exp;
+  try
+
+  if programm <> nil then begin
+    FreeMem (programm);
+    programm := nil;
+   end;
+
+  if exp = nil then begin
+    Error (reeCompNullArgument);
+    EXIT;
+   end;
+
+  fProgModifiers := fModifiers;
+  // well, may it's paranoia. I'll check it later... !!!!!!!!
+
+  // First pass: determine size, legality.
+  fCompModifiers := fModifiers;
+  regparse := exp;
+  regnpar := 1;
+  regsize := 0;
+  regcode := @regdummy;
+  EmitC (MAGIC);
+  if ParseReg (0, flags) = nil
+   then EXIT;
+
+  // Small enough for 2-bytes programm pointers ?
+  // ###0.933 no real p-code length limits now :)))
+//  if regsize >= 64 * 1024 then begin
+//    Error (reeCompRegexpTooBig);
+//    EXIT;
+//   end;
+
+  // Allocate space.
+  GetMem (programm, regsize * SizeOf (REChar));
+
+  // Second pass: emit code.
+  fCompModifiers := fModifiers;
+  regparse := exp;
+  regnpar := 1;
+  regcode := programm;
+  EmitC (MAGIC);
+  if ParseReg (0, flags) = nil
+   then EXIT;
+
+  // Dig out information for optimizations.
+  {$IFDEF UseFirstCharSet} //###0.929
+  FirstCharSet := [];
+  FillFirstCharSet (programm + REOpSz);
+  {$ENDIF}
+  regstart := #0; // Worst-case defaults.
+  reganch := #0;
+  regmust := nil;
+  regmlen := 0;
+  scan := programm + REOpSz; // First BRANCH.
+  if PREOp (regnext (scan))^ = EEND then begin // Only one top-level choice.
+    scan := scan + REOpSz + RENextOffSz;
+
+    // Starting-point info.
+    if PREOp (scan)^ = EXACTLY
+     then regstart := (scan + REOpSz + RENextOffSz)^
+     else if PREOp (scan)^ = BOL
+           then inc (reganch);
+
+    // If there's something expensive in the r.e., find the longest
+    // literal string that must appear and make it the regmust.  Resolve
+    // ties in favor of later strings, since the regstart check works
+    // with the beginning of the r.e. and avoiding duplication
+    // strengthens checking.  Not a strong reason, but sufficient in the
+    // absence of others.
+    if (flags and SPSTART) <> 0 then begin
+        longest := nil;
+        len := 0;
+        while scan <> nil do begin
+          if (PREOp (scan)^ = EXACTLY)
+             and (strlen (scan + REOpSz + RENextOffSz) >= len) then begin
+              longest := scan + REOpSz + RENextOffSz;
+              len := strlen (longest);
+           end;
+          scan := regnext (scan);
+         end;
+        regmust := longest;
+        regmlen := len;
+     end;
+   end;
+
+  Result := true;
+
+  finally begin
+    if not Result
+     then InvalidateProgramm;
+    regexpbeg := nil;
+    fExprIsCompiled := Result; //###0.944
+   end;
+  end;
+
+ end; { of function TRegExpr.CompileRegExpr
+--------------------------------------------------------------}
+
+function TRegExpr.ParseReg (paren : integer; var flagp : integer) : PRegExprChar;
+// regular expression, i.e. main body or parenthesized thing
+// Caller must absorb opening parenthesis.
+// Combining parenthesis handling with the base level of regular expression
+// is a trifle forced, but the need to tie the tails of the branches to what
+// follows makes it hard to avoid.
+ var
+  ret, br, ender : PRegExprChar;
+  parno : integer;
+  flags : integer;
+  SavedModifiers : integer;
+ begin
+  Result := nil;
+  flagp := HASWIDTH; // Tentatively.
+  parno := 0; // eliminate compiler stupid warning
+  SavedModifiers := fCompModifiers;
+
+  // Make an OPEN node, if parenthesized.
+  if paren <> 0 then begin
+      if regnpar >= NSUBEXP then begin
+        Error (reeCompParseRegTooManyBrackets);
+        EXIT;
+       end;
+      parno := regnpar;
+      inc (regnpar);
+      ret := EmitNode (TREOp (ord (OPEN) + parno));
+    end
+   else ret := nil;
+
+  // Pick up the branches, linking them together.
+  br := ParseBranch (flags);
+  if br = nil then begin
+    Result := nil;
+    EXIT;
+   end;
+  if ret <> nil
+   then Tail (ret, br) // OPEN -> first.
+   else ret := br;
+  if (flags and HASWIDTH) = 0
+   then flagp := flagp and not HASWIDTH;
+  flagp := flagp or flags and SPSTART;
+  while (regparse^ = '|') do begin
+    inc (regparse);
+    br := ParseBranch (flags);
+    if br = nil then begin
+       Result := nil;
+       EXIT;
+      end;
+    Tail (ret, br); // BRANCH -> BRANCH.
+    if (flags and HASWIDTH) = 0
+     then flagp := flagp and not HASWIDTH;
+    flagp := flagp or flags and SPSTART;
+   end;
+
+  // Make a closing node, and hook it on the end.
+  if paren <> 0
+   then ender := EmitNode (TREOp (ord (CLOSE) + parno))
+   else ender := EmitNode (EEND);
+  Tail (ret, ender);
+
+  // Hook the tails of the branches to the closing node.
+  br := ret;
+  while br <> nil do begin
+    OpTail (br, ender);
+    br := regnext (br);
+   end;
+
+  // Check for proper termination.
+  if paren <> 0 then
+   if regparse^ <> ')' then begin
+      Error (reeCompParseRegUnmatchedBrackets);
+      EXIT;
+     end
+    else inc (regparse); // skip trailing ')'
+  if (paren = 0) and (regparse^ <> #0) then begin
+      if regparse^ = ')'
+       then Error (reeCompParseRegUnmatchedBrackets2)
+       else Error (reeCompParseRegJunkOnEnd);
+      EXIT;
+    end;
+  fCompModifiers := SavedModifiers; // restore modifiers of parent
+  Result := ret;
+ end; { of function TRegExpr.ParseReg
+--------------------------------------------------------------}
+
+function TRegExpr.ParseBranch (var flagp : integer) : PRegExprChar;
+// one alternative of an | operator
+// Implements the concatenation operator.
+ var
+  ret, chain, latest : PRegExprChar;
+  flags : integer;
+ begin
+  flagp := WORST; // Tentatively.
+
+  ret := EmitNode (BRANCH);
+  chain := nil;
+  while (regparse^ <> #0) and (regparse^ <> '|')
+        and (regparse^ <> ')') do begin
+    latest := ParsePiece (flags);
+    if latest = nil then begin
+      Result := nil;
+      EXIT;
+     end;
+    flagp := flagp or flags and HASWIDTH;
+    if chain = nil // First piece.
+     then flagp := flagp or flags and SPSTART
+     else Tail (chain, latest);
+    chain := latest;
+   end;
+  if chain = nil // Loop ran zero times.
+   then EmitNode (NOTHING);
+  Result := ret;
+ end; { of function TRegExpr.ParseBranch
+--------------------------------------------------------------}
+
+function TRegExpr.ParsePiece (var flagp : integer) : PRegExprChar;
+// something followed by possible [*+?{]
+// Note that the branching code sequences used for ? and the general cases
+// of * and + and { are somewhat optimized:  they use the same NOTHING node as
+// both the endmarker for their branch list and the body of the last branch.
+// It might seem that this node could be dispensed with entirely, but the
+// endmarker role is not redundant.
+ function parsenum (AStart, AEnd : PRegExprChar) : TREBracesArg;
+  begin
+   Result := 0;
+   if AEnd - AStart + 1 > 8 then begin // prevent stupid scanning
+     Error (reeBRACESArgTooBig);
+     EXIT;
+    end;
+   while AStart <= AEnd do begin
+       Result := Result * 10 + (ord (AStart^) - ord ('0'));
+       inc (AStart);
+      end;
+   if (Result > MaxBracesArg) or (Result < 0) then begin
+     Error (reeBRACESArgTooBig);
+     EXIT;
+    end;
+  end;
+
+ var
+  op : REChar;
+  NonGreedyOp, NonGreedyCh : boolean; //###0.940
+  TheOp : TREOp; //###0.940
+  NextNode : PRegExprChar;
+  flags : integer;
+  BracesMin, Bracesmax : TREBracesArg;
+  p, savedparse : PRegExprChar;
+
+ procedure EmitComplexBraces (ABracesMin, ABracesMax : TREBracesArg;
+   ANonGreedyOp : boolean); //###0.940
+  {$IFDEF ComplexBraces}
+  var
+   off : integer;
+  {$ENDIF}
+   begin
+   {$IFNDEF ComplexBraces}
+   Error (reeComplexBracesNotImplemented);
+   {$ELSE}
+   if ANonGreedyOp
+    then TheOp := LOOPNG
+    else TheOp := LOOP;
+   InsertOperator (LOOPENTRY, Result, REOpSz + RENextOffSz);
+   NextNode := EmitNode (TheOp);
+   if regcode <> @regdummy then begin
+      off := (Result + REOpSz + RENextOffSz)
+       - (regcode - REOpSz - RENextOffSz); // back to Atom after LOOPENTRY
+      PREBracesArg (regcode)^ := ABracesMin;
+      inc (regcode, REBracesArgSz);
+      PREBracesArg (regcode)^ := ABracesMax;
+      inc (regcode, REBracesArgSz);
+      PRENextOff (regcode)^ := off;
+      inc (regcode, RENextOffSz);
+     end
+    else inc (regsize, REBracesArgSz * 2 + RENextOffSz);
+   Tail (Result, NextNode); // LOOPENTRY -> LOOP
+   if regcode <> @regdummy then
+    Tail (Result + REOpSz + RENextOffSz, NextNode); // Atom -> LOOP
+   {$ENDIF}
+  end;
+
+ procedure EmitSimpleBraces (ABracesMin, ABracesMax : TREBracesArg;
+   ANonGreedyOp : boolean); //###0.940
+  begin
+   if ANonGreedyOp //###0.940
+    then TheOp := BRACESNG
+    else TheOp := BRACES;
+   InsertOperator (TheOp, Result, REOpSz + RENextOffSz + REBracesArgSz * 2);
+   if regcode <> @regdummy then begin
+     PREBracesArg (Result + REOpSz + RENextOffSz)^ := ABracesMin;
+     PREBracesArg (Result + REOpSz + RENextOffSz + REBracesArgSz)^ := ABracesMax;
+    end;
+  end;
+
+ begin
+  Result := ParseAtom (flags);
+  if Result = nil
+   then EXIT;
+
+  op := regparse^;
+  if not ((op = '*') or (op = '+') or (op = '?') or (op = '{')) then begin
+    flagp := flags;
+    EXIT;
+   end;
+  if ((flags and HASWIDTH) = 0) and (op <> '?') then begin
+    Error (reePlusStarOperandCouldBeEmpty);
+    EXIT;
+   end;
+
+  case op of
+    '*': begin
+      flagp := WORST or SPSTART;
+      NonGreedyCh := (regparse + 1)^ = '?'; //###0.940
+      NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940
+      if (flags and SIMPLE) = 0 then begin
+         if NonGreedyOp //###0.940
+          then EmitComplexBraces (0, MaxBracesArg, NonGreedyOp)
+          else begin // Emit x* as (x&|), where & means "self".
+            InsertOperator (BRANCH, Result, REOpSz + RENextOffSz); // Either x
+            OpTail (Result, EmitNode (BACK)); // and loop
+            OpTail (Result, Result); // back
+            Tail (Result, EmitNode (BRANCH)); // or
+            Tail (Result, EmitNode (NOTHING)); // nil.
+           end
+        end
+       else begin // Simple
+         if NonGreedyOp //###0.940
+          then TheOp := STARNG
+          else TheOp := STAR;
+         InsertOperator (TheOp, Result, REOpSz + RENextOffSz);
+        end;
+      if NonGreedyCh //###0.940
+       then inc (regparse); // Skip extra char ('?')
+     end; { of case '*'}
+    '+': begin
+      flagp := WORST or SPSTART or HASWIDTH;
+      NonGreedyCh := (regparse + 1)^ = '?'; //###0.940
+      NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940
+      if (flags and SIMPLE) = 0 then begin
+         if NonGreedyOp //###0.940
+          then EmitComplexBraces (1, MaxBracesArg, NonGreedyOp)
+          else begin // Emit x+ as x(&|), where & means "self".
+            NextNode := EmitNode (BRANCH); // Either
+            Tail (Result, NextNode);
+            Tail (EmitNode (BACK), Result);    // loop back
+            Tail (NextNode, EmitNode (BRANCH)); // or
+            Tail (Result, EmitNode (NOTHING)); // nil.
+           end
+        end
+       else begin // Simple
+         if NonGreedyOp //###0.940
+          then TheOp := PLUSNG
+          else TheOp := PLUS;
+         InsertOperator (TheOp, Result, REOpSz + RENextOffSz);
+        end;
+      if NonGreedyCh //###0.940
+       then inc (regparse); // Skip extra char ('?')
+     end; { of case '+'}
+    '?': begin
+      flagp := WORST;
+      NonGreedyCh := (regparse + 1)^ = '?'; //###0.940
+      NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940
+      if NonGreedyOp then begin //###0.940  // We emit x?? as x{0,1}?
+         if (flags and SIMPLE) = 0
+          then EmitComplexBraces (0, 1, NonGreedyOp)
+          else EmitSimpleBraces (0, 1, NonGreedyOp);
+        end
+       else begin // greedy '?'
+         InsertOperator (BRANCH, Result, REOpSz + RENextOffSz); // Either x
+         Tail (Result, EmitNode (BRANCH));  // or
+         NextNode := EmitNode (NOTHING); // nil.
+         Tail (Result, NextNode);
+         OpTail (Result, NextNode);
+        end;
+      if NonGreedyCh //###0.940
+       then inc (regparse); // Skip extra char ('?')
+     end; { of case '?'}
+   '{': begin
+      savedparse := regparse;
+      // !!!!!!!!!!!!
+      // Filip Jirsak's note - what will happen, when we are at the end of regparse?
+      inc (regparse);
+      p := regparse;
+      while Pos (regparse^, '0123456789') > 0  // <min> MUST appear
+       do inc (regparse);
+      if (regparse^ <> '}') and (regparse^ <> ',') or (p = regparse) then begin
+        regparse := savedparse;
+        flagp := flags;
+        EXIT;
+       end;
+      BracesMin := parsenum (p, regparse - 1);
+      if regparse^ = ',' then begin
+         inc (regparse);
+         p := regparse;
+         while Pos (regparse^, '0123456789') > 0
+          do inc (regparse);
+         if regparse^ <> '}' then begin
+           regparse := savedparse;
+           EXIT;
+          end;
+         if p = regparse
+          then BracesMax := MaxBracesArg
+          else BracesMax := parsenum (p, regparse - 1);
+        end
+       else BracesMax := BracesMin; // {n} == {n,n}
+      if BracesMin > BracesMax then begin
+        Error (reeBracesMinParamGreaterMax);
+        EXIT;
+       end;
+      if BracesMin > 0
+       then flagp := WORST;
+      if BracesMax > 0
+       then flagp := flagp or HASWIDTH or SPSTART;
+
+      NonGreedyCh := (regparse + 1)^ = '?'; //###0.940
+      NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940
+      if (flags and SIMPLE) <> 0
+       then EmitSimpleBraces (BracesMin, BracesMax, NonGreedyOp)
+       else EmitComplexBraces (BracesMin, BracesMax, NonGreedyOp);
+      if NonGreedyCh //###0.940
+       then inc (regparse); // Skip extra char '?'
+     end; // of case '{'
+//    else // here we can't be
+   end; { of case op}
+
+  inc (regparse);
+  if (regparse^ = '*') or (regparse^ = '+') or (regparse^ = '?') or (regparse^ = '{') then begin
+    Error (reeNestedSQP);
+    EXIT;
+   end;
+ end; { of function TRegExpr.ParsePiece
+--------------------------------------------------------------}
+
+function TRegExpr.ParseAtom (var flagp : integer) : PRegExprChar;
+// the lowest level
+// Optimization:  gobbles an entire sequence of ordinary characters so that
+// it can turn them into a single node, which is smaller to store and
+// faster to run.  Backslashed characters are exceptions, each becoming a
+// separate node; the code is simpler that way and it's not worth fixing.
+ var
+  ret : PRegExprChar;
+  flags : integer;
+  RangeBeg, RangeEnd : REChar;
+  CanBeRange : boolean;
+  len : integer;
+  ender : REChar;
+  begmodfs : PRegExprChar;
+
+  {$IFDEF UseSetOfChar} //###0.930
+  RangePCodeBeg : PRegExprChar;
+  RangePCodeIdx : integer;
+  RangeIsCI : boolean;
+  RangeSet : TSetOfREChar;
+  RangeLen : integer;
+  RangeChMin, RangeChMax : REChar;
+  {$ENDIF}
+
+ procedure EmitExactly (ch : REChar);
+  begin
+   if (fCompModifiers and MaskModI) <> 0
+    then ret := EmitNode (EXACTLYCI)
+    else ret := EmitNode (EXACTLY);
+   EmitC (ch);
+   EmitC (#0);
+   flagp := flagp or HASWIDTH or SIMPLE;
+  end;
+
+ procedure EmitStr (const s : RegExprString);
+  var i : integer;
+  begin
+   for i := 1 to length (s)
+    do EmitC (s [i]);
+  end;
+
+ function HexDig (ch : REChar) : integer;
+  begin
+   Result := 0;
+   if (ch >= 'a') and (ch <= 'f')
+    then ch := REChar (ord (ch) - (ord ('a') - ord ('A')));
+   if (ch < '0') or (ch > 'F') or ((ch > '9') and (ch < 'A')) then begin
+     Error (reeBadHexDigit);
+     EXIT;
+    end;
+   Result := ord (ch) - ord ('0');
+   if ch >= 'A'
+    then Result := Result - (ord ('A') - ord ('9') - 1);
+  end;
+
+ function EmitRange (AOpCode : REChar) : PRegExprChar;
+  begin
+   {$IFDEF UseSetOfChar}
+   case AOpCode of
+     ANYBUTCI, ANYBUT:
+       Result := EmitNode (ANYBUTTINYSET);
+     else // ANYOFCI, ANYOF
+       Result := EmitNode (ANYOFTINYSET);
+    end;
+   case AOpCode of
+     ANYBUTCI, ANYOFCI:
+       RangeIsCI := True;
+     else // ANYBUT, ANYOF
+       RangeIsCI := False;
+    end;
+   RangePCodeBeg := regcode;
+   RangePCodeIdx := regsize;
+   RangeLen := 0;
+   RangeSet := [];
+   RangeChMin := #255;
+   RangeChMax := #0;
+   {$ELSE}
+   Result := EmitNode (AOpCode);
+   // ToDo:
+   // !!!!!!!!!!!!! Implement ANYOF[BUT]TINYSET generation for UniCode !!!!!!!!!!
+   {$ENDIF}
+  end;
+
+{$IFDEF UseSetOfChar}
+ procedure EmitRangeCPrim (b : REChar); //###0.930
+  begin
+   if b in RangeSet
+    then EXIT;
+   inc (RangeLen);
+   if b < RangeChMin
+    then RangeChMin := b;
+   if b > RangeChMax
+    then RangeChMax := b;
+   Include (RangeSet, b);
+  end;
+ {$ENDIF}
+
+ procedure EmitRangeC (b : REChar);
+  {$IFDEF UseSetOfChar}
+  var
+   Ch : REChar;
+  {$ENDIF}
+  begin
+   CanBeRange := false;
+   {$IFDEF UseSetOfChar}
+    if b <> #0 then begin
+       EmitRangeCPrim (b); //###0.930
+       if RangeIsCI
+        then EmitRangeCPrim (InvertCase (b)); //###0.930
+      end
+     else begin
+       Assert (RangeLen > 0, 'TRegExpr.ParseAtom(subroutine EmitRangeC): empty range'); // impossible, but who knows..
+       Assert (RangeChMin <= RangeChMax, 'TRegExpr.ParseAtom(subroutine EmitRangeC): RangeChMin > RangeChMax'); // impossible, but who knows..
+       if RangeLen <= TinySetLen then begin // emit "tiny set"
+          if regcode = @regdummy then begin
+            regsize := RangePCodeIdx + TinySetLen; // RangeChMin/Max !!!
+            EXIT;
+           end;
+          regcode := RangePCodeBeg;
+          for Ch := RangeChMin to RangeChMax do //###0.930
+           if Ch in RangeSet then begin
+             regcode^ := Ch;
+             inc (regcode);
+            end;
+          // fill rest:
+          while regcode < RangePCodeBeg + TinySetLen do begin
+            regcode^ := RangeChMax;
+            inc (regcode);
+           end;
+         end
+        else begin
+          if regcode = @regdummy then begin
+            regsize := RangePCodeIdx + SizeOf (TSetOfREChar);
+            EXIT;
+           end;
+          if (RangePCodeBeg - REOpSz - RENextOffSz)^ = ANYBUTTINYSET
+           then RangeSet := [#0 .. #255] - RangeSet;
+          PREOp (RangePCodeBeg - REOpSz - RENextOffSz)^ := ANYOFFULLSET;
+          regcode := RangePCodeBeg;
+          Move (RangeSet, regcode^, SizeOf (TSetOfREChar));
+          inc (regcode, SizeOf (TSetOfREChar));
+         end;
+      end;
+   {$ELSE}
+   EmitC (b);
+   {$ENDIF}
+  end;
+
+ procedure EmitSimpleRangeC (b : REChar);
+  begin
+   RangeBeg := b;
+   EmitRangeC (b);
+   CanBeRange := true;
+  end;
+
+ procedure EmitRangeStr (const s : RegExprString);
+  var i : integer;
+  begin
+   for i := 1 to length (s)
+    do EmitRangeC (s [i]);
+  end;
+
+ function UnQuoteChar (var APtr : PRegExprChar) : REChar; //###0.934
+  begin
+   case APtr^ of
+     't': Result := #$9;  // tab (HT/TAB)
+     'n': Result := #$a;  // newline (NL)
+     'r': Result := #$d;  // car.return (CR)
+     'f': Result := #$c;  // form feed (FF)
+     'a': Result := #$7;  // alarm (bell) (BEL)
+     'e': Result := #$1b; // escape (ESC)
+     'x': begin // hex char
+       Result := #0;
+       inc (APtr);
+       if APtr^ = #0 then begin
+         Error (reeNoHexCodeAfterBSlashX);
+         EXIT;
+        end;
+       if APtr^ = '{' then begin // \x{nnnn} //###0.936
+          REPEAT
+           inc (APtr);
+           if APtr^ = #0 then begin
+             Error (reeNoHexCodeAfterBSlashX);
+             EXIT;
+            end;
+           if APtr^ <> '}' then begin
+              if (Ord (Result)
+                  ShR (SizeOf (REChar) * 8 - 4)) and $F <> 0 then begin
+                Error (reeHexCodeAfterBSlashXTooBig);
+                EXIT;
+               end;
+              Result := REChar ((Ord (Result) ShL 4) or HexDig (APtr^));
+              // HexDig will cause Error if bad hex digit found
+             end
+            else BREAK;
+          UNTIL False;
+         end
+        else begin
+          Result := REChar (HexDig (APtr^));
+          // HexDig will cause Error if bad hex digit found
+          inc (APtr);
+          if APtr^ = #0 then begin
+            Error (reeNoHexCodeAfterBSlashX);
+            EXIT;
+           end;
+          Result := REChar ((Ord (Result) ShL 4) or HexDig (APtr^));
+          // HexDig will cause Error if bad hex digit found
+         end;
+      end;
+     else Result := APtr^;
+    end;
+  end;
+
+ begin
+  Result := nil;
+  flagp := WORST; // Tentatively.
+
+  inc (regparse);
+  case (regparse - 1)^ of
+    '^': if ((fCompModifiers and MaskModM) = 0)
+           or ((fLineSeparators = '') and not fLinePairedSeparatorAssigned)
+          then ret := EmitNode (BOL)
+          else ret := EmitNode (BOLML);
+    '$': if ((fCompModifiers and MaskModM) = 0)
+           or ((fLineSeparators = '') and not fLinePairedSeparatorAssigned)
+          then ret := EmitNode (EOL)
+          else ret := EmitNode (EOLML);
+    '.':
+       if (fCompModifiers and MaskModS) <> 0 then begin
+          ret := EmitNode (ANY);
+          flagp := flagp or HASWIDTH or SIMPLE;
+         end
+        else begin // not /s, so emit [^:LineSeparators:]
+          ret := EmitNode (ANYML);
+          flagp := flagp or HASWIDTH; // not so simple ;)
+//          ret := EmitRange (ANYBUT);
+//          EmitRangeStr (LineSeparators); //###0.941
+//          EmitRangeStr (LinePairedSeparator); // !!! isn't correct if have to accept only paired
+//          EmitRangeC (#0);
+//          flagp := flagp or HASWIDTH or SIMPLE;
+         end;
+    '[': begin
+        if regparse^ = '^' then begin // Complement of range.
+           if (fCompModifiers and MaskModI) <> 0
+            then ret := EmitRange (ANYBUTCI)
+            else ret := EmitRange (ANYBUT);
+           inc (regparse);
+          end
+         else
+          if (fCompModifiers and MaskModI) <> 0
+           then ret := EmitRange (ANYOFCI)
+           else ret := EmitRange (ANYOF);
+
+        CanBeRange := false;
+
+        if (regparse^ = ']') then begin
+          EmitSimpleRangeC (regparse^); // []-a] -> ']' .. 'a'
+          inc (regparse);
+         end;
+
+        while (regparse^ <> #0) and (regparse^ <> ']') do begin
+          if (regparse^ = '-')
+              and ((regparse + 1)^ <> #0) and ((regparse + 1)^ <> ']')
+              and CanBeRange then begin
+             inc (regparse);
+             RangeEnd := regparse^;
+             if RangeEnd = '\' then begin
+// Eugene: 20080407
+//               {$IFDEF UniCode} //###0.935
+//               if (ord ((regparse + 1)^) < 256)
+//                  and (char ((regparse + 1)^) in ['d', 'D', 's', 'S', 'w', 'W']) then begin
+//               {$ELSE}
+               if CharInSet((regparse + 1)^ , ['d', 'D', 's', 'S', 'w', 'W']) then begin
+//               {$ENDIF}
+                 EmitRangeC ('-'); // or treat as error ?!!
+                 CONTINUE;
+                end;
+               inc (regparse);
+               RangeEnd := UnQuoteChar (regparse);
+              end;
+
+             // r.e.ranges extension for russian
+             if ((fCompModifiers and MaskModR) <> 0)
+                and (RangeBeg = RusRangeLoLow) and (RangeEnd = RusRangeLoHigh) then begin
+               EmitRangeStr (RusRangeLo);
+              end
+             else if ((fCompModifiers and MaskModR) <> 0)
+                 and (RangeBeg = RusRangeHiLow) and (RangeEnd = RusRangeHiHigh) then begin
+               EmitRangeStr (RusRangeHi);
+              end
+             else if ((fCompModifiers and MaskModR) <> 0)
+                  and (RangeBeg = RusRangeLoLow) and (RangeEnd = RusRangeHiHigh) then begin
+               EmitRangeStr (RusRangeLo);
+               EmitRangeStr (RusRangeHi);
+              end
+             else begin // standard r.e. handling
+               if RangeBeg > RangeEnd then begin
+                 Error (reeInvalidRange);
+                 EXIT;
+                end;
+               inc (RangeBeg);
+               EmitRangeC (RangeEnd); // prevent infinite loop if RangeEnd=$ff
+               while RangeBeg < RangeEnd do begin //###0.929
+                 EmitRangeC (RangeBeg);
+                 inc (RangeBeg);
+                end;
+              end;
+             inc (regparse);
+            end
+           else begin
+             if regparse^ = '\' then begin
+                inc (regparse);
+                if regparse^ = #0 then begin
+                  Error (reeParseAtomTrailingBackSlash);
+                  EXIT;
+                 end;
+                case regparse^ of // r.e.extensions
+                  'd': EmitRangeStr ('0123456789');
+                  'w': EmitRangeStr (WordChars);
+                  's': EmitRangeStr (SpaceChars);
+                  else EmitSimpleRangeC (UnQuoteChar (regparse));
+                 end; { of case}
+               end
+              else EmitSimpleRangeC (regparse^);
+             inc (regparse);
+            end;
+         end; { of while}
+        EmitRangeC (#0);
+        if regparse^ <> ']' then begin
+          Error (reeUnmatchedSqBrackets);
+          EXIT;
+         end;
+        inc (regparse);
+        flagp := flagp or HASWIDTH or SIMPLE;
+      end;
+    '(': begin
+        if regparse^ = '?' then begin
+           // check for extended Perl syntax : (?..)
+           if (regparse + 1)^ = '#' then begin // (?#comment)
+              inc (regparse, 2); // find closing ')'
+              while (regparse^ <> #0) and (regparse^ <> ')')
+               do inc (regparse);
+              if regparse^ <> ')' then begin
+                Error (reeUnclosedComment);
+                EXIT;
+               end;
+              inc (regparse); // skip ')'
+              ret := EmitNode (COMMENT); // comment
+             end
+           else begin // modifiers ?
+             inc (regparse); // skip '?'
+             begmodfs := regparse;
+             while (regparse^ <> #0) and (regparse^ <> ')')
+              do inc (regparse);
+             if (regparse^ <> ')')
+                or not ParseModifiersStr (copy (begmodfs, 1, (regparse - begmodfs)), fCompModifiers) then begin
+               Error (reeUrecognizedModifier);
+               EXIT;
+              end;
+             inc (regparse); // skip ')'
+             ret := EmitNode (COMMENT); // comment
+//             Error (reeQPSBFollowsNothing);
+//             EXIT;
+            end;
+          end
+         else begin
+           ret := ParseReg (1, flags);
+           if ret = nil then begin
+             Result := nil;
+             EXIT;
+            end;
+           flagp := flagp or flags and (HASWIDTH or SPSTART);
+          end;
+      end;
+    #0, '|', ')': begin // Supposed to be caught earlier.
+       Error (reeInternalUrp);
+       EXIT;
+      end;
+    '?', '+', '*': begin
+       Error (reeQPSBFollowsNothing);
+       EXIT;
+      end;
+    '\': begin
+        if regparse^ = #0 then begin
+          Error (reeTrailingBackSlash);
+          EXIT;
+         end;
+        case regparse^ of // r.e.extensions
+          'b': ret := EmitNode (BOUND); //###0.943
+          'B': ret := EmitNode (NOTBOUND); //###0.943
+          'A': ret := EmitNode (BOL); //###0.941
+          'Z': ret := EmitNode (EOL); //###0.941
+          'd': begin // r.e.extension - any digit ('0' .. '9')
+             ret := EmitNode (ANYDIGIT);
+             flagp := flagp or HASWIDTH or SIMPLE;
+            end;
+          'D': begin // r.e.extension - not digit ('0' .. '9')
+             ret := EmitNode (NOTDIGIT);
+             flagp := flagp or HASWIDTH or SIMPLE;
+            end;
+          's': begin // r.e.extension - any space char
+             {$IFDEF UseSetOfChar}
+             ret := EmitRange (ANYOF);
+             EmitRangeStr (SpaceChars);
+             EmitRangeC (#0);
+             {$ELSE}
+             ret := EmitNode (ANYSPACE);
+             {$ENDIF}
+             flagp := flagp or HASWIDTH or SIMPLE;
+            end;
+          'S': begin // r.e.extension - not space char
+             {$IFDEF UseSetOfChar}
+             ret := EmitRange (ANYBUT);
+             EmitRangeStr (SpaceChars);
+             EmitRangeC (#0);
+             {$ELSE}
+             ret := EmitNode (NOTSPACE);
+             {$ENDIF}
+             flagp := flagp or HASWIDTH or SIMPLE;
+            end;
+          'w': begin // r.e.extension - any english char / digit / '_'
+             {$IFDEF UseSetOfChar}
+             ret := EmitRange (ANYOF);
+             EmitRangeStr (WordChars);
+             EmitRangeC (#0);
+             {$ELSE}
+             ret := EmitNode (ANYLETTER);
+             {$ENDIF}
+             flagp := flagp or HASWIDTH or SIMPLE;
+            end;
+          'W': begin // r.e.extension - not english char / digit / '_'
+             {$IFDEF UseSetOfChar}
+             ret := EmitRange (ANYBUT);
+             EmitRangeStr (WordChars);
+             EmitRangeC (#0);
+             {$ELSE}
+             ret := EmitNode (NOTLETTER);
+             {$ENDIF}
+             flagp := flagp or HASWIDTH or SIMPLE;
+            end;
+           '1' .. '9': begin //###0.936
+             if (fCompModifiers and MaskModI) <> 0
+              then ret := EmitNode (BSUBEXPCI)
+              else ret := EmitNode (BSUBEXP);
+             EmitC (REChar (ord (regparse^) - ord ('0')));
+             flagp := flagp or HASWIDTH or SIMPLE;
+            end;
+          else EmitExactly (UnQuoteChar (regparse));
+         end; { of case}
+        inc (regparse);
+      end;
+    else begin
+      dec (regparse);
+      if ((fCompModifiers and MaskModX) <> 0) and // check for eXtended syntax
+          ((regparse^ = '#')
+           or ({$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947
+               {$ELSE}regparse^ in XIgnoredChars{$ENDIF})) then begin //###0.941 \x
+         if regparse^ = '#' then begin // Skip eXtended comment
+            // find comment terminator (group of \n and/or \r)
+            while (regparse^ <> #0) and (regparse^ <> #$d) and (regparse^ <> #$a)
+             do inc (regparse);
+            while (regparse^ = #$d) or (regparse^ = #$a) // skip comment terminator
+             do inc (regparse); // attempt to support different type of line separators
+           end
+          else begin // Skip the blanks!
+            while {$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947
+                  {$ELSE}regparse^ in XIgnoredChars{$ENDIF}
+             do inc (regparse);
+           end;
+         ret := EmitNode (COMMENT); // comment
+        end
+       else begin
+         len := strcspn (regparse, META);
+         if len <= 0 then
+          if regparse^ <> '{' then begin
+             Error (reeRarseAtomInternalDisaster);
+             EXIT;
+            end
+           else len := strcspn (regparse + 1, META) + 1; // bad {n,m} - compile as EXATLY
+         ender := (regparse + len)^;
+         if (len > 1)
+            and ((ender = '*') or (ender = '+') or (ender = '?') or (ender = '{'))
+          then dec (len); // Back off clear of ?+*{ operand.
+         flagp := flagp or HASWIDTH;
+         if len = 1
+         then flagp := flagp or SIMPLE;
+         if (fCompModifiers and MaskModI) <> 0
+          then ret := EmitNode (EXACTLYCI)
+          else ret := EmitNode (EXACTLY);
+         while (len > 0)
+          and (((fCompModifiers and MaskModX) = 0) or (regparse^ <> '#')) do begin
+           if ((fCompModifiers and MaskModX) = 0) or not ( //###0.941
+              {$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947
+              {$ELSE}regparse^ in XIgnoredChars{$ENDIF} )
+            then EmitC (regparse^);
+           inc (regparse);
+           dec (len);
+          end;
+         EmitC (#0);
+        end; { of if not comment}
+     end; { of case else}
+   end; { of case}
+
+  Result := ret;
+ end; { of function TRegExpr.ParseAtom
+--------------------------------------------------------------}
+
+function TRegExpr.GetCompilerErrorPos : integer;
+ begin
+  Result := 0;
+  if (regexpbeg = nil) or (regparse = nil)
+   then EXIT; // not in compiling mode ?
+  Result := regparse - regexpbeg;
+ end; { of function TRegExpr.GetCompilerErrorPos
+--------------------------------------------------------------}
+
+
+{=============================================================}
+{===================== Matching section ======================}
+{=============================================================}
+
+{$IFNDEF UseSetOfChar}
+function TRegExpr.StrScanCI (s : PRegExprChar; ch : REChar) : PRegExprChar; //###0.928 - now method of TRegExpr
+ begin
+  while (s^ <> #0) and (s^ <> ch) and (s^ <> InvertCase (ch))
+   do inc (s);
+  if s^ <> #0
+   then Result := s
+   else Result := nil;
+ end; { of function TRegExpr.StrScanCI
+--------------------------------------------------------------}
+{$ENDIF}
+
+function TRegExpr.regrepeat (p : PRegExprChar; AMax : integer) : integer;
+// repeatedly match something simple, report how many
+ var
+  scan : PRegExprChar;
+  opnd : PRegExprChar;
+  TheMax : integer;
+  {Ch,} InvCh : REChar; //###0.931
+  sestart, seend : PRegExprChar; //###0.936
+ begin
+  Result := 0;
+  scan := reginput;
+  opnd := p + REOpSz + RENextOffSz; //OPERAND
+  TheMax := fInputEnd - scan;
+  if TheMax > AMax
+   then TheMax := AMax;
+  case PREOp (p)^ of
+    ANY: begin
+    // note - ANYML cannot be proceeded in regrepeat because can skip
+    // more than one char at once
+      Result := TheMax;
+      inc (scan, Result);
+     end;
+    EXACTLY: begin // in opnd can be only ONE char !!!
+//      Ch := opnd^; // store in register //###0.931
+      while (Result < TheMax) and (opnd^ = scan^) do begin
+        inc (Result);
+        inc (scan);
+       end;
+     end;
+    EXACTLYCI: begin // in opnd can be only ONE char !!!
+//      Ch := opnd^; // store in register //###0.931
+      while (Result < TheMax) and (opnd^ = scan^) do begin // prevent unneeded InvertCase //###0.931
+        inc (Result);
+        inc (scan);
+       end;
+      if Result < TheMax then begin //###0.931
+        InvCh := InvertCase (opnd^); // store in register
+        while (Result < TheMax) and
+              ((opnd^ = scan^) or (InvCh = scan^)) do begin
+          inc (Result);
+          inc (scan);
+         end;
+       end;
+     end;
+    BSUBEXP: begin //###0.936
+      sestart := startp [ord (opnd^)];
+      if sestart = nil
+       then EXIT;
+      seend := endp [ord (opnd^)];
+      if seend = nil
+       then EXIT;
+      REPEAT
+        opnd := sestart;
+        while opnd < seend do begin
+          if (scan >= fInputEnd) or (scan^ <> opnd^)
+           then EXIT;
+          inc (scan);
+          inc (opnd);
+         end;
+        inc (Result);
+        reginput := scan;
+      UNTIL Result >= AMax;
+     end;
+    BSUBEXPCI: begin //###0.936
+      sestart := startp [ord (opnd^)];
+      if sestart = nil
+       then EXIT;
+      seend := endp [ord (opnd^)];
+      if seend = nil
+       then EXIT;
+      REPEAT
+        opnd := sestart;
+        while opnd < seend do begin
+          if (scan >= fInputEnd) or
+             ((scan^ <> opnd^) and (scan^ <> InvertCase (opnd^)))
+           then EXIT;
+          inc (scan);
+          inc (opnd);
+         end;
+        inc (Result);
+        reginput := scan;
+      UNTIL Result >= AMax;
+     end;
+    ANYDIGIT:
+      while (Result < TheMax) and
+         (scan^ >= '0') and (scan^ <= '9') do begin
+        inc (Result);
+        inc (scan);
+       end;
+    NOTDIGIT:
+      while (Result < TheMax) and
+         ((scan^ < '0') or (scan^ > '9')) do begin
+        inc (Result);
+        inc (scan);
+       end;
+    {$IFNDEF UseSetOfChar} //###0.929
+    ANYLETTER:
+      while (Result < TheMax) and
+       (Pos (scan^, fWordChars) > 0) //###0.940
+     {  ((scan^ >= 'a') and (scan^ <= 'z') !! I've forgotten (>='0') and (<='9')
+       or (scan^ >= 'A') and (scan^ <= 'Z') or (scan^ = '_'))} do begin
+        inc (Result);
+        inc (scan);
+       end;
+    NOTLETTER:
+      while (Result < TheMax) and
+       (Pos (scan^, fWordChars) <= 0)  //###0.940
+     {   not ((scan^ >= 'a') and (scan^ <= 'z') !! I've forgotten (>='0') and (<='9')
+         or (scan^ >= 'A') and (scan^ <= 'Z')
+         or (scan^ = '_'))} do begin
+        inc (Result);
+        inc (scan);
+       end;
+    ANYSPACE:
+      while (Result < TheMax) and
+         (Pos (scan^, fSpaceChars) > 0) do begin
+        inc (Result);
+        inc (scan);
+       end;
+    NOTSPACE:
+      while (Result < TheMax) and
+         (Pos (scan^, fSpaceChars) <= 0) do begin
+        inc (Result);
+        inc (scan);
+       end;
+    {$ENDIF}
+    ANYOFTINYSET: begin
+      while (Result < TheMax) and //!!!TinySet
+       ((scan^ = opnd^) or (scan^ = (opnd + 1)^)
+        or (scan^ = (opnd + 2)^)) do begin
+        inc (Result);
+        inc (scan);
+       end;
+     end;
+    ANYBUTTINYSET: begin
+      while (Result < TheMax) and //!!!TinySet
+       (scan^ <> opnd^) and (scan^ <> (opnd + 1)^)
+        and (scan^ <> (opnd + 2)^) do begin
+        inc (Result);
+        inc (scan);
+       end;
+     end;
+    {$IFDEF UseSetOfChar} //###0.929
+    ANYOFFULLSET: begin
+      while (Result < TheMax) and
+       (scan^ in PSetOfREChar (opnd)^) do begin
+        inc (Result);
+        inc (scan);
+       end;
+     end;
+    {$ELSE}
+    ANYOF:
+      while (Result < TheMax) and
+         (StrScan (opnd, scan^) <> nil) do begin
+        inc (Result);
+        inc (scan);
+       end;
+    ANYBUT:
+      while (Result < TheMax) and
+         (StrScan (opnd, scan^) = nil) do begin
+        inc (Result);
+        inc (scan);
+       end;
+    ANYOFCI:
+      while (Result < TheMax) and (StrScanCI (opnd, scan^) <> nil) do begin
+        inc (Result);
+        inc (scan);
+       end;
+    ANYBUTCI:
+      while (Result < TheMax) and (StrScanCI (opnd, scan^) = nil) do begin
+        inc (Result);
+        inc (scan);
+       end;
+    {$ENDIF}
+    else begin // Oh dear. Called inappropriately.
+      Result := 0; // Best compromise.
+      Error (reeRegRepeatCalledInappropriately);
+      EXIT;
+     end;
+   end; { of case}
+  reginput := scan;
+ end; { of function TRegExpr.regrepeat
+--------------------------------------------------------------}
+
+function TRegExpr.regnext (p : PRegExprChar) : PRegExprChar;
+// dig the "next" pointer out of a node
+ var offset : TRENextOff;
+ begin
+  if p = @regdummy then begin
+    Result := nil;
+    EXIT;
+   end;
+  offset := PRENextOff (p + REOpSz)^; //###0.933 inlined NEXT
+  if offset = 0
+   then Result := nil
+   else Result := p + offset;
+ end; { of function TRegExpr.regnext
+--------------------------------------------------------------}
+
+function TRegExpr.MatchPrim (prog : PRegExprChar) : boolean;
+// recursively matching routine
+// Conceptually the strategy is simple:  check to see whether the current
+// node matches, call self recursively to see whether the rest matches,
+// and then act accordingly.  In practice we make some effort to avoid
+// recursion, in particular by going through "ordinary" nodes (that don't
+// need to know whether the rest of the match failed) by a loop instead of
+// by recursion.
+ var
+  scan : PRegExprChar; // Current node.
+  next : PRegExprChar; // Next node.
+  len : integer;
+  opnd : PRegExprChar;
+  no : integer;
+  save : PRegExprChar;
+  nextch : REChar;
+  BracesMin, BracesMax : integer; // we use integer instead of TREBracesArg for better support */+
+  {$IFDEF ComplexBraces}
+  SavedLoopStack : array [1 .. LoopStackMax] of integer; // :(( very bad for recursion
+  SavedLoopStackIdx : integer; //###0.925
+  {$ENDIF}
+ begin
+  Result := false;
+  scan := prog;
+
+  while scan <> nil do begin
+     len := PRENextOff (scan + 1)^; //###0.932 inlined regnext
+     if len = 0
+      then next := nil
+      else next := scan + len;
+
+     case scan^ of
+         NOTBOUND, //###0.943 //!!! think about UseSetOfChar !!!
+         BOUND:
+         if (scan^ = BOUND)
+          xor (
+          ((reginput = fInputStart) or (Pos ((reginput - 1)^, fWordChars) <= 0))
+            and (reginput^ <> #0) and (Pos (reginput^, fWordChars) > 0)
+           or
+            (reginput <> fInputStart) and (Pos ((reginput - 1)^, fWordChars) > 0)
+            and ((reginput^ = #0) or (Pos (reginput^, fWordChars) <= 0)))
+          then EXIT;
+
+         BOL: if reginput <> fInputStart
+               then EXIT;
+         EOL: if reginput^ <> #0
+               then EXIT;
+         BOLML: if reginput > fInputStart then begin
+            nextch := (reginput - 1)^;
+            if (nextch <> fLinePairedSeparatorTail)
+               or ((reginput - 1) <= fInputStart)
+               or ((reginput - 2)^ <> fLinePairedSeparatorHead)
+              then begin
+               if (nextch = fLinePairedSeparatorHead)
+                 and (reginput^ = fLinePairedSeparatorTail)
+                then EXIT; // don't stop between paired separator
+               if
+                 {$IFNDEF UniCode}
+                 not (nextch in fLineSeparatorsSet)
+                 {$ELSE}
+                 (pos (nextch, fLineSeparators) <= 0)
+                 {$ENDIF}
+                then EXIT;
+              end;
+           end;
+         EOLML: if reginput^ <> #0 then begin
+            nextch := reginput^;
+            if (nextch <> fLinePairedSeparatorHead)
+               or ((reginput + 1)^ <> fLinePairedSeparatorTail)
+             then begin
+               if (nextch = fLinePairedSeparatorTail)
+                 and (reginput > fInputStart)
+                 and ((reginput - 1)^ = fLinePairedSeparatorHead)
+                then EXIT; // don't stop between paired separator
+               if
+                 {$IFNDEF UniCode}
+                 not (nextch in fLineSeparatorsSet)
+                 {$ELSE}
+                 (pos (nextch, fLineSeparators) <= 0)
+                 {$ENDIF}
+                then EXIT;
+              end;
+           end;
+         ANY: begin
+            if reginput^ = #0
+             then EXIT;
+            inc (reginput);
+           end;
+         ANYML: begin //###0.941
+            if (reginput^ = #0)
+             or ((reginput^ = fLinePairedSeparatorHead)
+                 and ((reginput + 1)^ = fLinePairedSeparatorTail))
+             or {$IFNDEF UniCode} (reginput^ in fLineSeparatorsSet)
+                {$ELSE} (pos (reginput^, fLineSeparators) > 0) {$ENDIF}
+             then EXIT;
+            inc (reginput);
+           end;
+         ANYDIGIT: begin
+            if (reginput^ = #0) or (reginput^ < '0') or (reginput^ > '9')
+             then EXIT;
+            inc (reginput);
+           end;
+         NOTDIGIT: begin
+            if (reginput^ = #0) or ((reginput^ >= '0') and (reginput^ <= '9'))
+             then EXIT;
+            inc (reginput);
+           end;
+         {$IFNDEF UseSetOfChar} //###0.929
+         ANYLETTER: begin
+            if (reginput^ = #0) or (Pos (reginput^, fWordChars) <= 0) //###0.943
+             then EXIT;
+            inc (reginput);
+           end;
+         NOTLETTER: begin
+            if (reginput^ = #0) or (Pos (reginput^, fWordChars) > 0) //###0.943
+             then EXIT;
+            inc (reginput);
+           end;
+         ANYSPACE: begin
+            if (reginput^ = #0) or not (Pos (reginput^, fSpaceChars) > 0) //###0.943
+             then EXIT;
+            inc (reginput);
+           end;
+         NOTSPACE: begin
+            if (reginput^ = #0) or (Pos (reginput^, fSpaceChars) > 0) //###0.943
+             then EXIT;
+            inc (reginput);
+           end;
+         {$ENDIF}
+         EXACTLYCI: begin
+            opnd := scan + REOpSz + RENextOffSz; // OPERAND
+            // Inline the first character, for speed.
+            if (opnd^ <> reginput^)
+               and (InvertCase (opnd^) <> reginput^)
+             then EXIT;
+            len := strlen (opnd);
+            //###0.929 begin
+            no := len;
+            save := reginput;
+            while no > 1 do begin
+              inc (save);
+              inc (opnd);
+              if (opnd^ <> save^)
+                 and (InvertCase (opnd^) <> save^)
+               then EXIT;
+              dec (no);
+             end;
+            //###0.929 end
+            inc (reginput, len);
+           end;
+         EXACTLY: begin
+            opnd := scan + REOpSz + RENextOffSz; // OPERAND
+            // Inline the first character, for speed.
+            if opnd^ <> reginput^
+             then EXIT;
+            len := strlen (opnd);
+            //###0.929 begin
+            no := len;
+            save := reginput;
+            while no > 1 do begin
+              inc (save);
+              inc (opnd);
+              if opnd^ <> save^
+               then EXIT;
+              dec (no);
+             end;
+            //###0.929 end
+            inc (reginput, len);
+           end;
+         BSUBEXP: begin //###0.936
+           no := ord ((scan + REOpSz + RENextOffSz)^);
+           if startp [no] = nil
+            then EXIT;
+           if endp [no] = nil
+            then EXIT;
+           save := reginput;
+           opnd := startp [no];
+           while opnd < endp [no] do begin
+             if (save >= fInputEnd) or (save^ <> opnd^)
+              then EXIT;
+             inc (save);
+             inc (opnd);
+            end;
+           reginput := save;
+          end;
+         BSUBEXPCI: begin //###0.936
+           no := ord ((scan + REOpSz + RENextOffSz)^);
+           if startp [no] = nil
+            then EXIT;
+           if endp [no] = nil
+            then EXIT;
+           save := reginput;
+           opnd := startp [no];
+           while opnd < endp [no] do begin
+             if (save >= fInputEnd) or
+                ((save^ <> opnd^) and (save^ <> InvertCase (opnd^)))
+              then EXIT;
+             inc (save);
+             inc (opnd);
+            end;
+           reginput := save;
+          end;
+         ANYOFTINYSET: begin
+           if (reginput^ = #0) or //!!!TinySet
+             ((reginput^ <> (scan + REOpSz + RENextOffSz)^)
+             and (reginput^ <> (scan + REOpSz + RENextOffSz + 1)^)
+             and (reginput^ <> (scan + REOpSz + RENextOffSz + 2)^))
+            then EXIT;
+           inc (reginput);
+          end;
+         ANYBUTTINYSET: begin
+           if (reginput^ = #0) or //!!!TinySet
+             (reginput^ = (scan + REOpSz + RENextOffSz)^)
+             or (reginput^ = (scan + REOpSz + RENextOffSz + 1)^)
+             or (reginput^ = (scan + REOpSz + RENextOffSz + 2)^)
+            then EXIT;
+           inc (reginput);
+          end;
+         {$IFDEF UseSetOfChar} //###0.929
+         ANYOFFULLSET: begin
+           if (reginput^ = #0)
+              or not (reginput^ in PSetOfREChar (scan + REOpSz + RENextOffSz)^)
+            then EXIT;
+           inc (reginput);
+          end;
+         {$ELSE}
+         ANYOF: begin
+            if (reginput^ = #0) or (StrScan (scan + REOpSz + RENextOffSz, reginput^) = nil)
+             then EXIT;
+            inc (reginput);
+           end;
+         ANYBUT: begin
+            if (reginput^ = #0) or (StrScan (scan + REOpSz + RENextOffSz, reginput^) <> nil)
+             then EXIT;
+            inc (reginput);
+           end;
+         ANYOFCI: begin
+            if (reginput^ = #0) or (StrScanCI (scan + REOpSz + RENextOffSz, reginput^) = nil)
+             then EXIT;
+            inc (reginput);
+           end;
+         ANYBUTCI: begin
+            if (reginput^ = #0) or (StrScanCI (scan + REOpSz + RENextOffSz, reginput^) <> nil)
+             then EXIT;
+            inc (reginput);
+           end;
+         {$ENDIF}
+         NOTHING: ;
+         COMMENT: ;
+         BACK: ;
+         Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1) : begin //###0.929
+            no := ord (scan^) - ord (OPEN);
+//            save := reginput;
+            save := startp [no]; //###0.936
+            startp [no] := reginput; //###0.936
+            Result := MatchPrim (next);
+            if not Result //###0.936
+             then startp [no] := save;
+//            if Result and (startp [no] = nil)
+//             then startp [no] := save;
+             // Don't set startp if some later invocation of the same
+             // parentheses already has.
+            EXIT;
+           end;
+         Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): begin //###0.929
+            no := ord (scan^) - ord (CLOSE);
+//            save := reginput;
+            save := endp [no]; //###0.936
+            endp [no] := reginput; //###0.936
+            Result := MatchPrim (next);
+            if not Result //###0.936
+             then endp [no] := save;
+//            if Result and (endp [no] = nil)
+//             then endp [no] := save;
+             // Don't set endp if some later invocation of the same
+             // parentheses already has.
+            EXIT;
+           end;
+         BRANCH: begin
+            if (next^ <> BRANCH) // No choice.
+             then next := scan + REOpSz + RENextOffSz // Avoid recursion
+             else begin
+               REPEAT
+                save := reginput;
+                Result := MatchPrim (scan + REOpSz + RENextOffSz);
+                if Result
+                 then EXIT;
+                reginput := save;
+                scan := regnext (scan);
+               UNTIL (scan = nil) or (scan^ <> BRANCH);
+               EXIT;
+              end;
+           end;
+         {$IFDEF ComplexBraces}
+         LOOPENTRY: begin //###0.925
+           no := LoopStackIdx;
+           inc (LoopStackIdx);
+           if LoopStackIdx > LoopStackMax then begin
+             Error (reeLoopStackExceeded);
+             EXIT;
+            end;
+           save := reginput;
+           LoopStack [LoopStackIdx] := 0; // init loop counter
+           Result := MatchPrim (next); // execute LOOP
+           LoopStackIdx := no; // cleanup
+           if Result
+            then EXIT;
+           reginput := save;
+           EXIT;
+          end;
+         LOOP, LOOPNG: begin //###0.940
+           if LoopStackIdx <= 0 then begin
+             Error (reeLoopWithoutEntry);
+             EXIT;
+            end;
+           opnd := scan + PRENextOff (scan + REOpSz + RENextOffSz + 2 * REBracesArgSz)^;
+           BracesMin := PREBracesArg (scan + REOpSz + RENextOffSz)^;
+           BracesMax := PREBracesArg (scan + REOpSz + RENextOffSz + REBracesArgSz)^;
+           save := reginput;
+           if LoopStack [LoopStackIdx] >= BracesMin then begin // Min alredy matched - we can work
+              if scan^ = LOOP then begin
+                 // greedy way - first try to max deep of greed ;)
+                 if LoopStack [LoopStackIdx] < BracesMax then begin
+                   inc (LoopStack [LoopStackIdx]);
+                   no := LoopStackIdx;
+                   Result := MatchPrim (opnd);
+                   LoopStackIdx := no;
+                   if Result
+                    then EXIT;
+                   reginput := save;
+                  end;
+                 dec (LoopStackIdx); // Fail. May be we are too greedy? ;)
+                 Result := MatchPrim (next);
+                 if not Result
+                  then reginput := save;
+                 EXIT;
+                end
+               else begin
+                 // non-greedy - try just now
+                 Result := MatchPrim (next);
+                 if Result
+                  then EXIT
+                  else reginput := save; // failed - move next and try again
+                 if LoopStack [LoopStackIdx] < BracesMax then begin
+                   inc (LoopStack [LoopStackIdx]);
+                   no := LoopStackIdx;
+                   Result := MatchPrim (opnd);
+                   LoopStackIdx := no;
+                   if Result
+                    then EXIT;
+                   reginput := save;
+                  end;
+                 dec (LoopStackIdx); // Failed - back up
+                 EXIT;
+                end
+             end
+            else begin // first match a min_cnt times
+              inc (LoopStack [LoopStackIdx]);
+              no := LoopStackIdx;
+              Result := MatchPrim (opnd);
+              LoopStackIdx := no;
+              if Result
+               then EXIT;
+              dec (LoopStack [LoopStackIdx]);
+              reginput := save;
+              EXIT;
+             end;
+          end;
+         {$ENDIF}
+         STAR, PLUS, BRACES, STARNG, PLUSNG, BRACESNG: begin
+           // Lookahead to avoid useless match attempts when we know
+           // what character comes next.
+           nextch := #0;
+           if next^ = EXACTLY
+            then nextch := (next + REOpSz + RENextOffSz)^;
+           BracesMax := MaxInt; // infinite loop for * and + //###0.92
+           if (scan^ = STAR) or (scan^ = STARNG)
+            then BracesMin := 0  // STAR
+            else if (scan^ = PLUS) or (scan^ = PLUSNG)
+             then BracesMin := 1 // PLUS
+             else begin // BRACES
+               BracesMin := PREBracesArg (scan + REOpSz + RENextOffSz)^;
+               BracesMax := PREBracesArg (scan + REOpSz + RENextOffSz + REBracesArgSz)^;
+              end;
+           save := reginput;
+           opnd := scan + REOpSz + RENextOffSz;
+           if (scan^ = BRACES) or (scan^ = BRACESNG)
+            then inc (opnd, 2 * REBracesArgSz);
+
+           if (scan^ = PLUSNG) or (scan^ = STARNG) or (scan^ = BRACESNG) then begin
+             // non-greedy mode
+              BracesMax := regrepeat (opnd, BracesMax); // don't repeat more than BracesMax
+              // Now we know real Max limit to move forward (for recursion 'back up')
+              // In some cases it can be faster to check only Min positions first,
+              // but after that we have to check every position separtely instead
+              // of fast scannig in loop.
+              no := BracesMin;
+              while no <= BracesMax do begin
+                reginput := save + no;
+                // If it could work, try it.
+                if (nextch = #0) or (reginput^ = nextch) then begin
+                  {$IFDEF ComplexBraces}
+                  System.Move (LoopStack, SavedLoopStack, SizeOf (LoopStack)); //###0.925
+                  SavedLoopStackIdx := LoopStackIdx;
+                  {$ENDIF}
+                  if MatchPrim (next) then begin
+                    Result := true;
+                    EXIT;
+                   end;
+                  {$IFDEF ComplexBraces}
+                  System.Move (SavedLoopStack, LoopStack, SizeOf (LoopStack));
+                  LoopStackIdx := SavedLoopStackIdx;
+                  {$ENDIF}
+                 end;
+                inc (no); // Couldn't or didn't - move forward.
+               end; { of while}
+              EXIT;
+             end
+            else begin // greedy mode
+              no := regrepeat (opnd, BracesMax); // don't repeat more than max_cnt
+              while no >= BracesMin do begin
+                // If it could work, try it.
+                if (nextch = #0) or (reginput^ = nextch) then begin
+                  {$IFDEF ComplexBraces}
+                  System.Move (LoopStack, SavedLoopStack, SizeOf (LoopStack)); //###0.925
+                  SavedLoopStackIdx := LoopStackIdx;
+                  {$ENDIF}
+                  if MatchPrim (next) then begin
+                    Result := true;
+                    EXIT;
+                   end;
+                  {$IFDEF ComplexBraces}
+                  System.Move (SavedLoopStack, LoopStack, SizeOf (LoopStack));
+                  LoopStackIdx := SavedLoopStackIdx;
+                  {$ENDIF}
+                 end;
+                dec (no); // Couldn't or didn't - back up.
+                reginput := save + no;
+               end; { of while}
+              EXIT;
+             end;
+          end;
+         EEND: begin
+           Result := true;  // Success!
+           EXIT;
+          end;
+        else begin
+            Error (reeMatchPrimMemoryCorruption);
+            EXIT;
+          end;
+        end; { of case scan^}
+        scan := next;
+    end; { of while scan <> nil}
+
+  // We get here only if there's trouble -- normally "case EEND" is the
+  // terminating point.
+  Error (reeMatchPrimCorruptedPointers);
+ end; { of function TRegExpr.MatchPrim
+--------------------------------------------------------------}
+
+{$IFDEF UseFirstCharSet} //###0.929
+procedure TRegExpr.FillFirstCharSet (prog : PRegExprChar);
+ var
+  scan : PRegExprChar; // Current node.
+  next : PRegExprChar; // Next node.
+  opnd : PRegExprChar;
+  min_cnt : integer;
+ begin
+  scan := prog;
+  while scan <> nil do begin
+     next := regnext (scan);
+     case PREOp (scan)^ of
+         BSUBEXP, BSUBEXPCI: begin //###0.938
+           FirstCharSet := [#0 .. #255]; // :((( we cannot
+           // optimize r.e. if it starts with back reference
+           EXIT;
+          end;
+         BOL, BOLML: ; // EXIT; //###0.937
+         EOL, EOLML: ; // EXIT; //###0.937
+         BOUND, NOTBOUND: ; //###0.943 ?!!
+         ANY, ANYML: begin // we can better define ANYML !!!
+           FirstCharSet := [#0 .. #255]; //###0.930
+           EXIT;
+          end;
+         ANYDIGIT: begin
+           FirstCharSet := FirstCharSet + ['0' .. '9'];
+           EXIT;
+          end;
+         NOTDIGIT: begin
+           FirstCharSet := [#0 .. #255] - ['0' .. '9'];
+           EXIT;
+          end;
+         EXACTLYCI: begin
+           Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^);
+           Include (FirstCharSet, InvertCase ((scan + REOpSz + RENextOffSz)^));
+           EXIT;
+          end;
+         EXACTLY: begin
+           Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^);
+           EXIT;
+          end;
+         ANYOFFULLSET: begin
+           FirstCharSet := FirstCharSet + PSetOfREChar (scan + REOpSz + RENextOffSz)^;
+           EXIT;
+          end;
+         ANYOFTINYSET: begin
+           //!!!TinySet
+           Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^);
+           Include (FirstCharSet, (scan + REOpSz + RENextOffSz + 1)^);
+           Include (FirstCharSet, (scan + REOpSz + RENextOffSz + 2)^);
+           // ...                                                      // up to TinySetLen
+           EXIT;
+          end;
+         ANYBUTTINYSET: begin
+           //!!!TinySet
+           FirstCharSet := [#0 .. #255];
+           Exclude (FirstCharSet, (scan + REOpSz + RENextOffSz)^);
+           Exclude (FirstCharSet, (scan + REOpSz + RENextOffSz + 1)^);
+           Exclude (FirstCharSet, (scan + REOpSz + RENextOffSz + 2)^);
+           // ...                                                      // up to TinySetLen
+           EXIT;
+          end;
+         NOTHING: ;
+         COMMENT: ;
+         BACK: ;
+         Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1) : begin //###0.929
+            FillFirstCharSet (next);
+            EXIT;
+           end;
+         Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): begin //###0.929
+            FillFirstCharSet (next);
+            EXIT;
+           end;
+         BRANCH: begin
+            if (PREOp (next)^ <> BRANCH) // No choice.
+             then next := scan + REOpSz + RENextOffSz // Avoid recursion.
+             else begin
+               REPEAT
+                FillFirstCharSet (scan + REOpSz + RENextOffSz);
+                scan := regnext (scan);
+               UNTIL (scan = nil) or (PREOp (scan)^ <> BRANCH);
+               EXIT;
+              end;
+           end;
+         {$IFDEF ComplexBraces}
+         LOOPENTRY: begin //###0.925
+//           LoopStack [LoopStackIdx] := 0; //###0.940 line removed
+           FillFirstCharSet (next); // execute LOOP
+           EXIT;
+          end;
+         LOOP, LOOPNG: begin //###0.940
+           opnd := scan + PRENextOff (scan + REOpSz + RENextOffSz + REBracesArgSz * 2)^;
+           min_cnt := PREBracesArg (scan + REOpSz + RENextOffSz)^;
+           FillFirstCharSet (opnd);
+           if min_cnt = 0
+            then FillFirstCharSet (next);
+           EXIT;
+          end;
+         {$ENDIF}
+         STAR, STARNG: //###0.940
+           FillFirstCharSet (scan + REOpSz + RENextOffSz);
+         PLUS, PLUSNG: begin //###0.940
+           FillFirstCharSet (scan + REOpSz + RENextOffSz);
+           EXIT;
+          end;
+         BRACES, BRACESNG: begin //###0.940
+           opnd := scan + REOpSz + RENextOffSz + REBracesArgSz * 2;
+           min_cnt := PREBracesArg (scan + REOpSz + RENextOffSz)^; // BRACES
+           FillFirstCharSet (opnd);
+           if min_cnt > 0
+            then EXIT;
+          end;
+         EEND: begin
+            EXIT;
+           end;
+        else begin
+            Error (reeMatchPrimMemoryCorruption);
+            EXIT;
+          end;
+        end; { of case scan^}
+        scan := next;
+    end; { of while scan <> nil}
+ end; { of procedure FillFirstCharSet;
+--------------------------------------------------------------}
+{$ENDIF}
+
+function TRegExpr.RegMatch (str : PRegExprChar) : boolean;
+// try match at specific point
+ var i : integer;
+ begin
+  for i := 0 to NSUBEXP - 1 do begin
+    startp [i] := nil;
+    endp [i] := nil;
+   end;
+  reginput := str;
+  Result := MatchPrim (programm + REOpSz);
+  if Result then begin
+    startp [0] := str;
+    endp [0] := reginput;
+   end;
+ end; { of function TRegExpr.RegMatch
+--------------------------------------------------------------}
+
+function TRegExpr.Exec (const AInputString : RegExprString) : boolean;
+ begin
+  InputString := AInputString;
+  Result := ExecPrim (1);
+ end; { of function TRegExpr.Exec
+--------------------------------------------------------------}
+
+function TRegExpr.ExecPrim (AOffset: integer) : boolean;
+ var
+  s : PRegExprChar;
+  StartPtr: PRegExprChar;
+  InputLen : integer;
+ begin
+  Result := false; // Be paranoid...
+
+  if not IsProgrammOk //###0.929
+   then EXIT;
+
+  // Check InputString presence
+  if not Assigned (fInputString) then begin
+    Error (reeNoInpitStringSpecified);
+    EXIT;
+   end;
+
+  InputLen := length (fInputString);
+
+  //Check that the start position is not negative
+  if AOffset < 1 then begin
+    Error (reeOffsetMustBeGreaterThen0);
+    EXIT;
+   end;
+  // Check that the start position is not longer than the line
+  // If so then exit with nothing found
+  if AOffset > (InputLen + 1) // for matching empty string after last char.
+   then EXIT;
+
+  StartPtr := fInputString + AOffset - 1;
+
+  // If there is a "must appear" string, look for it.
+  if regmust <> nil then begin
+    s := StartPtr;
+    REPEAT
+     s := StrScan (s, regmust [0]);
+     if s <> nil then begin
+       if StrLComp (s, regmust, regmlen) = 0
+        then BREAK; // Found it.
+       inc (s);
+      end;
+    UNTIL s = nil;
+    if s = nil // Not present.
+     then EXIT;
+   end;
+
+  // Mark beginning of line for ^ .
+  fInputStart := fInputString;
+
+  // Pointer to end of input stream - for
+  // pascal-style string processing (may include #0)
+  fInputEnd := fInputString + InputLen;
+
+  {$IFDEF ComplexBraces}
+  // no loops started
+  LoopStackIdx := 0; //###0.925
+  {$ENDIF}
+
+  // Simplest case:  anchored match need be tried only once.
+  if reganch <> #0 then begin
+    Result := RegMatch (StartPtr);
+    EXIT;
+   end;
+
+  // Messy cases:  unanchored match.
+  s := StartPtr;
+  if regstart <> #0 then // We know what char it must start with.
+    REPEAT
+     s := StrScan (s, regstart);
+     if s <> nil then begin
+       Result := RegMatch (s);
+       if Result
+        then EXIT;
+       inc (s);
+      end;
+    UNTIL s = nil
+   else begin // We don't - general case.
+     {$IFDEF UseFirstCharSet} //###0.929
+     while s^ <> #0 do begin
+       if s^ in FirstCharSet
+        then Result := RegMatch (s);
+       if Result
+        then EXIT;
+       inc (s);
+      end;
+     {$ELSE}
+     REPEAT
+      Result := RegMatch (s);
+      if Result
+       then EXIT;
+      inc (s);
+     UNTIL s^ = #0;
+     {$ENDIF}
+    end;
+  // Failure
+ end; { of function TRegExpr.ExecPrim
+--------------------------------------------------------------}
+
+function TRegExpr.ExecNext : boolean;
+ var offset : integer;
+ begin
+  Result := false;
+  if not Assigned (startp[0]) or not Assigned (endp[0]) then begin
+    Error (reeExecNextWithoutExec);
+    EXIT;
+   end;
+//  Offset := MatchPos [0] + MatchLen [0];
+//  if MatchLen [0] = 0
+  Offset := endp [0] - fInputString + 1; //###0.929
+  if endp [0] = startp [0] //###0.929
+   then inc (Offset); // prevent infinite looping if empty string match r.e.
+  Result := ExecPrim (Offset);
+ end; { of function TRegExpr.ExecNext
+--------------------------------------------------------------}
+
+function TRegExpr.ExecPos (AOffset: integer {$IFDEF D4_}= 1{$ENDIF}) : boolean;
+ begin
+  Result := ExecPrim (AOffset);
+ end; { of function TRegExpr.ExecPos
+--------------------------------------------------------------}
+
+function TRegExpr.GetInputString : RegExprString;
+ begin
+  if not Assigned (fInputString) then begin
+    Error (reeGetInputStringWithoutInputString);
+    EXIT;
+   end;
+  Result := fInputString;
+ end; { of function TRegExpr.GetInputString
+--------------------------------------------------------------}
+
+procedure TRegExpr.SetInputString (const AInputString : RegExprString);
+ var
+  Len : integer;
+  i : integer;
+ begin
+  // clear Match* - before next Exec* call it's undefined
+  for i := 0 to NSUBEXP - 1 do begin
+    startp [i] := nil;
+    endp [i] := nil;
+   end;
+
+  // need reallocation of input string buffer ?
+  Len := length (AInputString);
+  if Assigned (fInputString) and (Length (fInputString) <> Len) then begin
+    FreeMem (fInputString);
+    fInputString := nil;
+   end;
+  // buffer [re]allocation
+  if not Assigned (fInputString)
+   then GetMem (fInputString, (Len + 1) * SizeOf (REChar));
+
+  // copy input string into buffer
+  {$IFDEF UniCode}
+  StrPCopy (fInputString, Copy (AInputString, 1, Len)); //###0.927
+  {$ELSE}
+  StrLCopy (fInputString, PRegExprChar (AInputString), Len);
+  {$ENDIF}
+
+  {
+  fInputString : string;
+  fInputStart, fInputEnd : PRegExprChar;
+
+  SetInputString:
+  fInputString := AInputString;
+  UniqueString (fInputString);
+  fInputStart := PChar (fInputString);
+  Len := length (fInputString);
+  fInputEnd := PRegExprChar (integer (fInputStart) + Len); ??
+  !! startp/endp ��� ����� ����� ������ ������������ ?
+  }
+ end; { of procedure TRegExpr.SetInputString
+--------------------------------------------------------------}
+
+procedure TRegExpr.SetLineSeparators (const AStr : RegExprString);
+ begin
+  if AStr <> fLineSeparators then begin
+    fLineSeparators := AStr;
+    InvalidateProgramm;
+   end;
+ end; { of procedure TRegExpr.SetLineSeparators
+--------------------------------------------------------------}
+
+procedure TRegExpr.SetLinePairedSeparator (const AStr : RegExprString);
+ begin
+  if length (AStr) = 2 then begin
+     if AStr [1] = AStr [2] then begin
+      // it's impossible for our 'one-point' checking to support
+      // two chars separator for identical chars
+       Error (reeBadLinePairedSeparator);
+       EXIT;
+      end;
+     if not fLinePairedSeparatorAssigned
+      or (AStr [1] <> fLinePairedSeparatorHead)
+      or (AStr [2] <> fLinePairedSeparatorTail) then begin
+       fLinePairedSeparatorAssigned := true;
+       fLinePairedSeparatorHead := AStr [1];
+       fLinePairedSeparatorTail := AStr [2];
+       InvalidateProgramm;
+      end;
+    end
+   else if length (AStr) = 0 then begin
+     if fLinePairedSeparatorAssigned then begin
+       fLinePairedSeparatorAssigned := false;
+       InvalidateProgramm;
+      end;
+    end
+   else Error (reeBadLinePairedSeparator);
+ end; { of procedure TRegExpr.SetLinePairedSeparator
+--------------------------------------------------------------}
+
+function TRegExpr.GetLinePairedSeparator : RegExprString;
+ begin
+  if fLinePairedSeparatorAssigned then begin
+     {$IFDEF UniCode}
+     // Here is some UniCode 'magic'
+     // If You do know better decision to concatenate
+     // two WideChars, please, let me know!
+     Result := fLinePairedSeparatorHead; //###0.947
+     Result := Result + fLinePairedSeparatorTail;
+     {$ELSE}
+     Result := fLinePairedSeparatorHead + fLinePairedSeparatorTail;
+     {$ENDIF}
+    end
+   else Result := '';
+ end; { of function TRegExpr.GetLinePairedSeparator
+--------------------------------------------------------------}
+
+function TRegExpr.Substitute (const ATemplate : RegExprString) : RegExprString;
+// perform substitutions after a regexp match
+// completely rewritten in 0.929
+ var
+  TemplateLen : integer;
+  TemplateBeg, TemplateEnd : PRegExprChar;
+  p, p0, ResultPtr : PRegExprChar;
+  ResultLen : integer;
+  n : integer;
+  Ch : REChar;
+ function ParseVarName (var APtr : PRegExprChar) : integer;
+  // extract name of variable (digits, may be enclosed with
+  // curly braces) from APtr^, uses TemplateEnd !!!
+  const
+   Digits = ['0' .. '9'];
+  var
+   p : PRegExprChar;
+   Delimited : boolean;
+  begin
+   Result := 0;
+   p := APtr;
+   Delimited := (p < TemplateEnd) and (p^ = '{');
+   if Delimited
+    then inc (p); // skip left curly brace
+   if (p < TemplateEnd) and (p^ = '&')
+    then inc (p) // this is '$&' or '${&}'
+    else
+     while (p < TemplateEnd) and
+// Eugene: 20080407
+//      {$IFDEF UniCode} //###0.935
+//      (ord (p^) < 256) and (char (p^) in Digits)
+//      {$ELSE}
+      CharInSet(p^ , Digits)
+//      {$ENDIF}
+       do begin
+       Result := Result * 10 + (ord (p^) - ord ('0')); //###0.939
+       inc (p);
+      end;
+   if Delimited then
+    if (p < TemplateEnd) and (p^ = '}')
+     then inc (p) // skip right curly brace
+     else p := APtr; // isn't properly terminated
+   if p = APtr
+    then Result := -1; // no valid digits found or no right curly brace
+   APtr := p;
+  end;
+ begin
+  // Check programm and input string
+  if not IsProgrammOk
+   then EXIT;
+  if not Assigned (fInputString) then begin
+    Error (reeNoInpitStringSpecified);
+    EXIT;
+   end;
+  // Prepare for working
+  TemplateLen := length (ATemplate);
+  if TemplateLen = 0 then begin // prevent nil pointers
+    Result := '';
+    EXIT;
+   end;
+  TemplateBeg := pointer (ATemplate);
+  TemplateEnd := TemplateBeg + TemplateLen;
+  // Count result length for speed optimization.
+  ResultLen := 0;
+  p := TemplateBeg;
+  while p < TemplateEnd do begin
+    Ch := p^;
+    inc (p);
+    if Ch = '$'
+     then n := ParseVarName (p)
+     else n := -1;
+    if n >= 0 then begin
+       if (n < NSUBEXP) and Assigned (startp [n]) and Assigned (endp [n])
+        then inc (ResultLen, endp [n] - startp [n]);
+      end
+     else begin
+       if (Ch = '\') and (p < TemplateEnd)
+        then inc (p); // quoted or special char followed
+       inc (ResultLen);
+      end;
+   end;
+  // Get memory. We do it once and it significant speed up work !
+  if ResultLen = 0 then begin
+    Result := '';
+    EXIT;
+   end;
+  SetString (Result, nil, ResultLen);
+  // Fill Result
+  ResultPtr := pointer (Result);
+  p := TemplateBeg;
+  while p < TemplateEnd do begin
+    Ch := p^;
+    inc (p);
+    if Ch = '$'
+     then n := ParseVarName (p)
+     else n := -1;
+    if n >= 0 then begin
+       p0 := startp [n];
+       if (n < NSUBEXP) and Assigned (p0) and Assigned (endp [n]) then
+        while p0 < endp [n] do begin
+          ResultPtr^ := p0^;
+          inc (ResultPtr);
+          inc (p0);
+         end;
+      end
+     else begin
+       if (Ch = '\') and (p < TemplateEnd) then begin // quoted or special char followed
+         Ch := p^;
+         inc (p);
+        end;
+       ResultPtr^ := Ch;
+       inc (ResultPtr);
+      end;
+   end;
+ end; { of function TRegExpr.Substitute
+--------------------------------------------------------------}
+
+procedure TRegExpr.Split (AInputStr : RegExprString; APieces : TStrings);
+ var PrevPos : integer;
+ begin
+  PrevPos := 1;
+  if Exec (AInputStr) then
+   REPEAT
+    APieces.Add (System.Copy (AInputStr, PrevPos, MatchPos [0] - PrevPos));
+    PrevPos := MatchPos [0] + MatchLen [0];
+   UNTIL not ExecNext;
+  APieces.Add (System.Copy (AInputStr, PrevPos, MaxInt)); // Tail
+ end; { of procedure TRegExpr.Split
+--------------------------------------------------------------}
+
+function TRegExpr.Replace (AInputStr : RegExprString; const AReplaceStr : RegExprString;
+      AUseSubstitution : boolean{$IFDEF D4_}= False{$ENDIF}) : RegExprString;
+ var PrevPos : integer;
+ begin
+  Result := '';
+  PrevPos := 1;
+  if Exec (AInputStr) then
+   REPEAT
+    Result := Result + System.Copy (AInputStr, PrevPos,
+      MatchPos [0] - PrevPos);
+    if AUseSubstitution //###0.946
+    then Result := Result + Substitute (AReplaceStr)
+    else Result := Result + AReplaceStr;
+    PrevPos := MatchPos [0] + MatchLen [0];
+   UNTIL not ExecNext;
+  Result := Result + System.Copy (AInputStr, PrevPos, MaxInt); // Tail
+ end; { of function TRegExpr.Replace
+--------------------------------------------------------------}
+
+
+{=============================================================}
+{====================== Debug section ========================}
+{=============================================================}
+
+{$IFDEF DebugRegExpr}
+function TRegExpr.DumpOp (op : TREOp) : RegExprString;
+// printable representation of opcode
+ begin
+  case op of
+    BOL:          Result := 'BOL';
+    EOL:          Result := 'EOL';
+    BOLML:        Result := 'BOLML';
+    EOLML:        Result := 'EOLML';
+    BOUND:        Result := 'BOUND'; //###0.943
+    NOTBOUND:     Result := 'NOTBOUND'; //###0.943
+    ANY:          Result := 'ANY';
+    ANYML:        Result := 'ANYML'; //###0.941
+    ANYLETTER:    Result := 'ANYLETTER';
+    NOTLETTER:    Result := 'NOTLETTER';
+    ANYDIGIT:     Result := 'ANYDIGIT';
+    NOTDIGIT:     Result := 'NOTDIGIT';
+    ANYSPACE:     Result := 'ANYSPACE';
+    NOTSPACE:     Result := 'NOTSPACE';
+    ANYOF:        Result := 'ANYOF';
+    ANYBUT:       Result := 'ANYBUT';
+    ANYOFCI:      Result := 'ANYOF/CI';
+    ANYBUTCI:     Result := 'ANYBUT/CI';
+    BRANCH:       Result := 'BRANCH';
+    EXACTLY:      Result := 'EXACTLY';
+    EXACTLYCI:    Result := 'EXACTLY/CI';
+    NOTHING:      Result := 'NOTHING';
+    COMMENT:      Result := 'COMMENT';
+    BACK:         Result := 'BACK';
+    EEND:         Result := 'END';
+    BSUBEXP:      Result := 'BSUBEXP';
+    BSUBEXPCI:    Result := 'BSUBEXP/CI';
+    Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1): //###0.929
+                  Result := Format ('OPEN[%d]', [ord (op) - ord (OPEN)]);
+    Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): //###0.929
+                  Result := Format ('CLOSE[%d]', [ord (op) - ord (CLOSE)]);
+    STAR:         Result := 'STAR';
+    PLUS:         Result := 'PLUS';
+    BRACES:       Result := 'BRACES';
+    {$IFDEF ComplexBraces}
+    LOOPENTRY:    Result := 'LOOPENTRY'; //###0.925
+    LOOP:         Result := 'LOOP'; //###0.925
+    LOOPNG:       Result := 'LOOPNG'; //###0.940
+    {$ENDIF}
+    ANYOFTINYSET: Result:= 'ANYOFTINYSET';
+    ANYBUTTINYSET:Result:= 'ANYBUTTINYSET';
+    {$IFDEF UseSetOfChar} //###0.929
+    ANYOFFULLSET: Result:= 'ANYOFFULLSET';
+    {$ENDIF}
+    STARNG:       Result := 'STARNG'; //###0.940
+    PLUSNG:       Result := 'PLUSNG'; //###0.940
+    BRACESNG:     Result := 'BRACESNG'; //###0.940
+    else Error (reeDumpCorruptedOpcode);
+   end; {of case op}
+  Result := ':' + Result;
+ end; { of function TRegExpr.DumpOp
+--------------------------------------------------------------}
+
+function TRegExpr.Dump : RegExprString;
+// dump a regexp in vaguely comprehensible form
+ var
+  s : PRegExprChar;
+  op : TREOp; // Arbitrary non-END op.
+  next : PRegExprChar;
+  i : integer;
+{$IFDEF UseSetOfChar} //###0.929
+  Ch : REChar;
+{$ENDIF}
+ begin
+  if not IsProgrammOk //###0.929
+   then EXIT;
+
+  op := EXACTLY;
+  Result := '';
+  s := programm + REOpSz;
+  while op <> EEND do begin // While that wasn't END last time...
+     op := s^;
+     Result := Result + Format ('%2d%s', [s - programm, DumpOp (s^)]); // Where, what.
+     next := regnext (s);
+     if next = nil // Next ptr.
+      then Result := Result + ' (0)'
+      else Result := Result + Format (' (%d) ', [(s - programm) + (next - s)]);
+     inc (s, REOpSz + RENextOffSz);
+     if (op = ANYOF) or (op = ANYOFCI) or (op = ANYBUT) or (op = ANYBUTCI)
+        or (op = EXACTLY) or (op = EXACTLYCI) then begin
+         // Literal string, where present.
+         while s^ <> #0 do begin
+           Result := Result + s^;
+           inc (s);
+          end;
+         inc (s);
+      end;
+     if (op = ANYOFTINYSET) or (op = ANYBUTTINYSET) then begin
+       for i := 1 to TinySetLen do begin
+         Result := Result + s^;
+         inc (s);
+        end;
+      end;
+     if (op = BSUBEXP) or (op = BSUBEXPCI) then begin
+       Result := Result + ' \' + IntToStr (Ord (s^));
+       inc (s);
+      end;
+     {$IFDEF UseSetOfChar} //###0.929
+     if op = ANYOFFULLSET then begin
+       for Ch := #0 to #255 do
+        if Ch in PSetOfREChar (s)^ then
+         if Ch < ' '
+          then Result := Result + '#' + IntToStr (Ord (Ch)) //###0.936
+          else Result := Result + Ch;
+       inc (s, SizeOf (TSetOfREChar));
+      end;
+     {$ENDIF}
+     if (op = BRACES) or (op = BRACESNG) then begin //###0.941
+       // show min/max argument of BRACES operator
+       Result := Result + Format ('{%d,%d}', [PREBracesArg (s)^, PREBracesArg (s + REBracesArgSz)^]);
+       inc (s, REBracesArgSz * 2);
+      end;
+     {$IFDEF ComplexBraces}
+     if (op = LOOP) or (op = LOOPNG) then begin //###0.940
+       Result := Result + Format (' -> (%d) {%d,%d}', [
+        (s - programm - (REOpSz + RENextOffSz)) + PRENextOff (s + 2 * REBracesArgSz)^,
+        PREBracesArg (s)^, PREBracesArg (s + REBracesArgSz)^]);
+       inc (s, 2 * REBracesArgSz + RENextOffSz);
+      end;
+     {$ENDIF}
+     Result := Result + #$d#$a;
+   end; { of while}
+
+  // Header fields of interest.
+
+  if regstart <> #0
+   then Result := Result + 'start ' + regstart;
+  if reganch <> #0
+   then Result := Result + 'anchored ';
+  if regmust <> nil
+   then Result := Result + 'must have ' + regmust;
+  {$IFDEF UseFirstCharSet} //###0.929
+  Result := Result + #$d#$a'FirstCharSet:';
+  for Ch := #0 to #255 do
+   if Ch in FirstCharSet
+    then Result := Result + Ch;
+  {$ENDIF}
+  Result := Result + #$d#$a;
+ end; { of function TRegExpr.Dump
+--------------------------------------------------------------}
+{$ENDIF}
+
+{$IFDEF reRealExceptionAddr}
+{$OPTIMIZATION ON}
+// ReturnAddr works correctly only if compiler optimization is ON
+// I placed this method at very end of unit because there are no
+// way to restore compiler optimization flag ...
+{$ENDIF}
+procedure TRegExpr.Error (AErrorID : integer);
+{$IFDEF reRealExceptionAddr}
+ function ReturnAddr : pointer; //###0.938
+  asm
+   mov  eax,[ebp+4]
+  end;
+{$ENDIF}
+ var
+  e : ERegExpr;
+ begin
+  fLastError := AErrorID; // dummy stub - useless because will raise exception
+  if AErrorID < 1000 // compilation error ?
+   then e := ERegExpr.Create (ErrorMsg (AErrorID) // yes - show error pos
+             + ' (pos ' + IntToStr (CompilerErrorPos) + ')')
+   else e := ERegExpr.Create (ErrorMsg (AErrorID));
+  e.ErrorCode := AErrorID;
+  e.CompilerErrorPos := CompilerErrorPos;
+  raise e
+   {$IFDEF reRealExceptionAddr}
+   At ReturnAddr; //###0.938
+   {$ENDIF}
+ end; { of procedure TRegExpr.Error
+--------------------------------------------------------------}
+
+// be carefull - placed here code will be always compiled with
+// compiler optimization flag
+initialization
+  RegExprInvertCaseFunction := TRegExpr.InvertCaseFunction;
+end.
+
+
+
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteCommand.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteCommand.pas
new file mode 100644
index 0000000..f2b977f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteCommand.pas	
@@ -0,0 +1,195 @@
+unit uDARemoteCommand;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+    Classes, uRORemoteService, DataAbstract4_Intf, 
+    uDAInterfaces, uRODynamicRequest, uROClasses, uROClient;
+
+type
+  { TRORemoteCommandRequest }
+  TRORemoteCommandRequest = class(TRODynamicRequest)
+  private
+    fOutgoingCommandNameParameter: string;
+    fOutgoingParametersParameter: string;
+    fIncomingAffectedRowsParameter: string;
+    fIncomingParametersParameter: string;
+  public
+    constructor Create(aOwner : TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+    procedure SetupDefaultRequest; virtual;
+  published
+    property OutgoingCommandNameParameter: string read fOutgoingCommandNameParameter write fOutgoingCommandNameParameter;
+    property OutgoingParametersParameter: string read fOutgoingParametersParameter write fOutgoingParametersParameter;
+    property IncomingAffectedRowsParameter: string read fIncomingAffectedRowsParameter write fIncomingAffectedRowsParameter;
+    property IncomingParametersParameter: string read fIncomingParametersParameter write fIncomingParametersParameter;
+  end;
+
+  { TDARemoteCommand }
+  TDARemoteCommand = class(TROComponent)
+  private
+    fRemoteService: TRORemoteService;
+    fExecuteCall: TRORemoteCommandRequest;
+    procedure SetRemoteService(const Value: TRORemoteService);
+    procedure FillCommandParams(aDataParameterArray: DataParameterArray; aCommandParam: TRORequestParam);
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    function Execute(aCommandName: string; aInputParameters: DataParameterArray): integer; overload;
+    function Execute(aCommandName: string; aParamNames: array of string; aParamValues: array of variant): integer; overload;
+  published
+    property RemoteService: TRORemoteService read fRemoteService write SetRemoteService;
+    property ExecuteCall: TRORemoteCommandRequest read fExecuteCall write fExecuteCall;
+  end;
+
+implementation
+
+uses
+  SysUtils, Dialogs, uRODL;
+
+{ TRORemoteCommandRequest }
+procedure TRORemoteCommandRequest.Assign(Source: TPersistent);
+var
+  lSource: TRORemoteCommandRequest;
+begin
+  inherited;
+  if Source is TRORemoteCommandRequest then begin
+    lSource := TRORemoteCommandRequest(Source);
+
+    IncomingAffectedRowsParameter := lSource.IncomingAffectedRowsParameter;
+    IncomingParametersParameter := lSource.IncomingParametersParameter;
+    OutgoingCommandNameParameter := lSource.OutgoingCommandNameParameter;
+    OutgoingParametersParameter := lSource.OutgoingParametersParameter;
+  end;
+end;
+
+constructor TRORemoteCommandRequest.Create(aOwner : TComponent);
+begin
+  inherited;
+  Self.SetupDefaultRequest();
+end;
+
+procedure TRORemoteCommandRequest.SetupDefaultRequest;
+begin
+  Params.Clear();
+  OutgoingCommandNameParameter := Params.Add('aCommandName', rtString, fIn).Name;
+  OutgoingParametersParameter := Params.Add('aParameterArray', rtUserDefined, fIn, 'DataParameterArray').Name;
+  IncomingAffectedRowsParameter := Params.Add('Result', rtInteger, fResult).Name;
+  IncomingParametersParameter := '';
+
+  MethodName := 'ExecuteCommand';
+end;
+
+{ TDARemoteCommand }
+procedure TDARemoteCommand.Assign(Source: TPersistent);
+var
+  lSource: TDARemoteCommand;
+begin
+  inherited;
+  if Source is TDARemoteCommand then begin
+    lSource := TDARemoteCommand(Source);
+
+    ExecuteCall := lSource.ExecuteCall;
+    RemoteService := lSource.RemoteService;
+  end;
+end;
+
+constructor TDARemoteCommand.Create(aOwner: TComponent);
+begin
+  inherited;
+  fExecuteCall := TRORemoteCommandRequest.Create(Self);
+  fExecuteCall.Name := 'RemoteCommandRequest';
+end;
+
+destructor TDARemoteCommand.Destroy;
+begin
+  RemoteService := nil;
+  if Assigned(fExecuteCall) then fExecuteCall.Free();
+  inherited;
+end;
+
+procedure TDARemoteCommand.SetRemoteService(const Value: TRORemoteService);
+begin
+  if Value <> fRemoteService then begin
+    if assigned(fRemoteService) then fRemoteService.RORemoveFreeNotification(self);
+    fRemoteService := Value;
+    if assigned(fRemoteService) then fRemoteService.ROFreeNotification(self);
+    fExecuteCall.RemoteService := fRemoteService;
+  end;
+end;
+
+function TDARemoteCommand.Execute(aCommandName: string; aInputParameters: DataParameterArray): integer;
+var
+  lParam : TRORequestParam;
+begin
+  result := 0;
+  if not Assigned(fExecuteCall) then raise Exception.Create('ExecuteCall is unassigned');
+  if (Length(fExecuteCall.OutgoingCommandNameParameter)>0) then
+    fExecuteCall.ParamByName(fExecuteCall.OutgoingCommandNameParameter).Value := aCommandName;
+  if (Length(fExecuteCall.OutgoingParametersParameter)>0) then begin
+      lParam := fExecuteCall.Params.FindParam(fExecuteCall.OutgoingParametersParameter);
+      if Assigned(lParam) then FillCommandParams(aInputParameters, lparam);
+  end;
+
+  fExecuteCall.Execute();
+
+  if (Length(fExecuteCall.IncomingAffectedRowsParameter)>0) then
+    result := Integer(fExecuteCall.ParamByName(fExecuteCall.IncomingAffectedRowsParameter).Value);
+end;
+
+function TDARemoteCommand.Execute(aCommandName: string; aParamNames: array of string; aParamValues: array of variant): integer;
+var
+  i, idx: Integer;
+  lInputParameters: DataParameterArray;
+begin
+  lInputParameters := DataParameterArray.Create();
+  if (High(aParamNames) <> High(aParamValues)) then raise Exception.Create('Error in parameters. Count of parameter values doesn''t correspond to count of parameters');
+
+  for i := Low(aParamNames) to High(aParamNames) do begin
+    idx := lInputParameters.Add(DataParameter.Create());
+    lInputParameters[idx].Name := UTF8Encode(aParamNames[i]);
+    lInputParameters[idx].Value := aParamValues[i];
+  end;
+  try
+    result := Self.Execute(aCommandName, lInputParameters);
+  finally
+    lInputParameters.Free;
+  end;
+end;
+
+procedure TDARemoteCommand.FillCommandParams(aDataParameterArray: DataParameterArray; aCommandParam: TRORequestParam);
+var
+  lArray: DataParameterArray;
+  lParam: DataParameter;
+  i: integer;
+begin
+  if (aCommandParam.DataType <> rtUserDefined) or (aCommandParam.TypeName <> 'DataParameterArray') then exit;
+
+  lArray := DataParameterArray.Create();
+
+  for i := 0 to aDataParameterArray.Count - 1 do begin
+    lParam := lArray.Add();
+    lParam.Name := aDataParameterArray[i].Name;
+    lParam.Value := aDataParameterArray[i].Value;
+  end;
+
+  aCommandParam.AsComplexType := lArray;
+  aCommandParam.OwnsComplexType := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteDataAdapter.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteDataAdapter.pas
new file mode 100644
index 0000000..261fee8
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteDataAdapter.pas	
@@ -0,0 +1,544 @@
+unit uDARemoteDataAdapter;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes,
+  uRODynamicRequest, uROClasses, uRORemoteService,
+  DataAbstract4_Intf, uDADataAdapter, uDADataTable,
+  uDARemoteDataAdapterRequests,uDADataStreamer;
+
+const
+  // from uDADataAdapter
+  fbNone = uDADataAdapter.fbNone;
+  fbRaiseException = uDADataAdapter.fbRaiseException;
+  fbShowReconcile = uDADataAdapter.fbShowReconcile;
+  fbBoth = uDADataAdapter.fbBoth;
+type
+  TDAReconcileDialogAction = uDADataAdapter.TDAReconcileDialogAction;
+
+type
+  TDARequestEvent = procedure(Sender: TObject; Request: TRODynamicRequest) of object;
+
+  { TDARemoteDataAdapter }
+  TDARemoteDataAdapter = class(TDABaseDataAdapter)
+  private
+    fGetDataCall: TDAGetDataRequest;
+    fGetSchemaCall: TDAGetSchemaRequest;
+    fUpdateDataCall: TDAUpdateDataRequest;
+    fGetScriptsCall: TDAGetScriptsRequest;
+    fRemoteService: TRORemoteService;
+    fBeforeGetDataCall,    fAfterGetDataCall,
+    fBeforeGetSchemaCall,  fAfterGetSchemaCall,
+    fBeforeGetScriptsCall, fAfterGetScriptsCall,
+    fBeforeUpdateDataCall, fAfterUpdateDataCall: TDARequestEvent;
+    procedure DoGetSchemaCall;
+    procedure FillTableNamesParam(aTables: array of TDADataTable; aParam: TRORequestParam);
+    procedure SetRemoteService(const Value: TRORemoteService);
+    procedure FillTableParams(aTables: array of TDADataTable; aParam: TRORequestParam);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure Loaded; override;
+
+    function InternalFillSchema(var aStream: TROBinaryMemoryStream): TRODataType; override;
+    procedure InternalApplyUpdates(aTables,aTablesWithDetails: array of TDADataTable); override;
+    function InternalFillScripts(aTables: array of TDADataTable): UTF8String; override;
+    function InternalReadSchema: UTF8String;  override;
+    procedure InternalFill(aTableArray: array of TDADataTable; aArray: TableRequestInfoArray; const aIncludeSchema, aAppendMode: boolean; aSavedOptions: TDATableOptionsArray);override;
+
+    { backward compatibility: to provide access to these in the legacy events in TDADataTable}
+    function Get_GetSchemaCall: TDARemoteRequest; override;
+    function Get_GetDataCall: TDARemoteRequest; override;
+    function Get_UpdateDataCall: TDARemoteRequest; override;
+    function Get_GetScriptsCall: TDARemoteRequest; override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure SetupDefaultRequestV3;
+    procedure SetupDefaultRequest;
+    procedure CheckProperties; override;
+  published
+    property GetSchemaCall: TDAGetSchemaRequest read fGetSchemaCall;
+    property GetDataCall: TDAGetDataRequest read fGetDataCall;
+    property UpdateDataCall: TDAUpdateDataRequest read fUpdateDataCall;
+    property GetScriptsCall: TDAGetScriptsRequest read fGetScriptsCall;
+    property RemoteService: TRORemoteService read fRemoteService write SetRemoteService;
+    property CacheSchema;
+    property DataStreamer;
+
+    property BeforeGetDataCall: TDARequestEvent    read fBeforeGetDataCall    write fBeforeGetDataCall;
+    property AfterGetDataCall: TDARequestEvent     read fAfterGetDataCall     write fAfterGetDataCall;
+    property BeforeGetSchemaCall: TDARequestEvent  read fBeforeGetSchemaCall  write fBeforeGetSchemaCall;
+    property AfterGetSchemaCall: TDARequestEvent   read fAfterGetSchemaCall   write fAfterGetSchemaCall;
+    property BeforeGetScriptsCall: TDARequestEvent read fBeforeGetScriptsCall write fBeforeGetScriptsCall;
+    property AfterGetScriptsCall: TDARequestEvent  read fAfterGetScriptsCall  write fAfterGetScriptsCall;
+    property BeforeUpdateDataCall: TDARequestEvent read fBeforeUpdateDataCall write fBeforeUpdateDataCall;
+    property AfterUpdateDataCall: TDARequestEvent  read fAfterUpdateDataCall  write fAfterUpdateDataCall;
+  end;
+
+implementation
+
+uses
+  SysUtils;
+
+{ TDARemoteDataAdapter }
+
+procedure TDARemoteDataAdapter.FillTableNamesParam(aTables: array of TDADataTable; aParam: TRORequestParam);
+var
+  lArray: StringArray;
+  i: integer;
+begin
+  case aParam.DataType of
+    rtString: begin // v3 style string
+        if Length(aTables) <> 1 then
+          raise Exception.Create('The current GetDataCall configuration does not allow fetching multiple data tables at once.');
+        aParam.AsString := aTables[Low(aTables)].LogicalName;
+      end;
+    rtUserDefined: begin // v4 style string array
+        lArray := StringArray.Create();
+        lArray.Resize(Length(aTables));
+        for i := Low(aTables) to High(aTables) do
+          lArray[i-Low(aTables)] := UTF8Encode(aTables[i].LogicalName);
+        aParam.AsComplexType := lArray;
+        aParam.OwnsComplexType := true;
+      end;
+    rtUTF8String: aParam.AsUTF8String := GetTableNamesAsCommaText(aTables);
+  end;
+end;
+
+procedure TDARemoteDataAdapter.FillTableParams(
+  aTables: array of TDADataTable; aParam: TRORequestParam);
+var
+  lArray: DataParameterArray;
+  lParam: DataParameter;
+  lTable: TDADataTable;
+  j: integer;
+  lList: TStringList;
+begin
+  lArray:=nil; // prevert "W1036 Variable 'lArray' might not have been initialized"
+  case aParam.DataType of
+    rtString: begin // v3 style string
+      if Length(aTables) <> 1 then raise Exception.Create('The current GetDataCall configuration does not allow fetching multiple data tables');
+      with aTables[Low(aTables)].Params do begin
+        if Count<>0 then begin
+          lList:= TStringList.Create;
+          try
+            for j := 0 to Count - 1 do
+              lList.Values[Params[j].Name]:=Params[j].AsString;
+            aParam.AsString:= lList.Text;
+          finally
+            lList.Free;
+          end;
+        end;
+      end;
+    end;
+    rtUserDefined: begin
+      if aParam.TypeName = 'DataParameterArray' then
+        lArray := DataParameterArray.Create();
+
+        lTable := aTables[Low(aTables)];
+        for j := 0 to lTable.Params.Count-1 do begin
+          lParam := lArray.Add();
+          lParam.Name := AnsiToUtf8(lTable.Params[j].Name);
+          lParam.Value := lTable.Params[j].Value;
+        end;
+
+        aParam.AsComplexType := lArray;
+        aParam.OwnsComplexType := true;
+    end;
+  end;
+end;
+
+procedure TDARemoteDataAdapter.DoGetSchemaCall;
+begin
+  //ToDo: handle aFilter parameter?
+  if Assigned(fBeforeGetSchemaCall) then fBeforeGetSchemaCall(Self, GetSchemaCall);
+  GetSchemaCall.Execute();
+  if Assigned(fAfterGetSchemaCall) then fAfterGetSchemaCall(Self, GetSchemaCall);
+end;
+
+function TDARemoteDataAdapter.InternalFillScripts(aTables: array of TDADataTable): UTF8String;
+var
+  lParam: TDARemoteRequestParam;
+  lResultParam: TRORequestParam;
+begin
+  if GetScriptsCall.MethodName = '' then
+    raise Exception.Create('GetScriptsCall.MethodName must be configured to retrieve scripts.');
+  try
+    lParam := GetScriptsCall.Params.FindParam(GetScriptsCall.OutgoingTableNamesParameter);
+    if assigned(lParam) then FillTableNamesParam(aTables, lParam);
+
+    GetScriptsCall.Execute();
+
+    lResultParam := GetScriptsCall.Params.FindParam(GetScriptsCall.IncomingScriptParameter);
+
+    if not assigned(lResultParam) or not (lResultParam.DataType in [rtUTF8String, rtString]) then
+      raise Exception.Create('Result parameter of GetScriptsCall is not properly defined.');
+
+    if Assigned(fBeforeGetScriptsCall) then fBeforeGetScriptsCall(Self, GetScriptsCall);
+    GetScriptsCall.Execute();
+    if Assigned(fAfterGetScriptsCall) then fAfterGetScriptsCall(Self, GetScriptsCall);
+    Result := UTF8String(lResultParam.AsAnsiString); { TODO : .AsUtf8String ? }
+  finally
+    lParam := GetScriptsCall.Params.FindParam(GetScriptsCall.OutgoingTableNamesParameter);
+    if assigned(lParam) then lParam.ClearValue;
+    lParam := GetScriptsCall.Params.FindParam(GetScriptsCall.IncomingScriptParameter);
+    if assigned(lParam) then lParam.ClearValue;
+  end;
+end;
+
+
+function TDARemoteDataAdapter.InternalReadSchema: UTF8String;
+var
+  lResultParam: TRORequestParam;
+begin
+  CheckProperties;
+  lResultParam := GetSchemaCall.Params.FindParam(GetSchemaCall.IncomingSchemaParameter);
+  try
+    if not assigned(lResultParam) then
+      raise Exception.Create('Result parameter of GetSchemaCall is not defined.');
+    if not (lResultParam.DataType in [rtUTF8String,rtString]) then
+      raise Exception.Create('Result parameter of GetSchemaCall is not properly defined as String.');
+    DoGetSchemaCall();
+    Result := UTF8String(lResultParam.AsAnsiString); //{ TODO : .ASUtf8String ? }
+  finally
+    if Assigned(lResultParam) then lResultParam.ClearValue;
+  end;
+end;
+
+{$IFDEF FPC}
+procedure List_Union(List1,List2: TList);
+var
+  i: integer;
+begin
+  if List1 = List2 then Exit;
+  for i := 0 to List2.Count-1 do
+    if List1.IndexOf(List2[i])=-1 then
+       List1.Add(List2[i]);
+end;
+{$ENDIF}
+
+procedure TDARemoteDataAdapter.InternalApplyUpdates(aTables,aTablesWithDetails: array of TDADataTable);
+var
+  i: integer;
+  lParam, lResultparam: TRORequestParam;
+begin
+  try
+    { Fill Input Parameters }
+    lParam := UpdateDataCall.Params.FindParam(UpdateDataCall.OutgoingDeltaParameter);
+    if not assigned(lParam) or (lParam.DataType <> rtBinary) then
+      raise Exception.Create('OutgoingDeltaParameter parameter of UpdateDataCall is not properly defined.');
+    lParam.ClearValue();
+
+    DataStreamer.Initialize(lParam.AsBinary, aiWrite);
+    try
+      for i := Low(aTables) to High(aTables) do
+        aTables[i].WriteDeltaToStream(DataStreamer);
+    finally
+      DataStreamer.Finalize;
+    end;
+
+    { Make call }
+    if DataStreamer.DeltaCount > 0 then begin
+      if Assigned(fBeforeUpdateDataCall) then fBeforeUpdateDataCall(Self, UpdateDataCall);
+      UpdateDataCall.Execute();
+      if Assigned(fAfterUpdateDataCall) then fAfterUpdateDataCall(Self, UpdateDataCall);
+
+      { Get Output Parameters }
+      if UpdateDataCall.IncomingDeltaParameter <> '' then begin // If the result parameter isn't set, we shouldn't check for a result.
+
+        lResultParam := UpdateDataCall.Params.FindParam(UpdateDataCall.IncomingDeltaParameter);
+        if not assigned(lResultParam) or (lResultParam.DataType <> rtBinary) then
+          raise Exception.Create('IncomingDeltaParameter parameter of UpdateDataCall is not properly defined.');
+
+        // Reads the incoming delta, including the details
+        if assigned(lResultParam.AsBinary) and (lResultParam.AsBinary.Size > 0) then begin
+            DataStreamer.Initialize(lResultParam.AsBinary, aiReadFromBeginning);
+            try
+              for i := Low(aTables) to High(aTables) do
+                aTables[i].ReadDeltaFromStream(DataStreamer);
+            finally
+              DataStreamer.Finalize;
+            end;
+        end;
+      end;
+    end;
+  finally
+    lResultParam := UpdateDataCall.Params.FindParam(UpdateDataCall.IncomingDeltaParameter);
+    if assigned(lResultParam) then lResultParam.ClearValue;
+    lParam := UpdateDataCall.Params.FindParam(UpdateDataCall.OutgoingDeltaParameter);
+    if assigned(lParam) then lParam.ClearValue;
+  end;
+end;
+
+constructor TDARemoteDataAdapter.Create(aOwner: TComponent);
+begin
+  inherited;
+  fGetSchemaCall := TDAGetSchemaRequest.Create(self);
+  fGetDataCall := TDAGetDataRequest.Create(self);
+  fUpdateDataCall := TDAUpdateDataRequest.Create(self);
+  fGetScriptsCall := TDAGetScriptsRequest.Create(self);
+
+  fGetSchemaCall.Name := 'GetSchemaCall';
+  fGetDataCall.Name := 'GetDataCall';
+  fUpdateDataCall.Name := 'UpdateDataCall';
+  fGetScriptsCall.Name := 'GetScriptsCall';
+  SetupDefaultRequest;
+end;
+
+destructor TDARemoteDataAdapter.Destroy;
+begin
+  RemoteService := nil;
+  FreeAndNil(fGetSchemaCall);
+  FreeAndNil(fGetDataCall);
+  FreeAndNil(fUpdateDataCall);
+  FreeAndNil(fGetScriptsCall);
+  inherited;
+end;
+
+procedure TDARemoteDataAdapter.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  inherited;
+  if (Operation = opRemove) and (AComponent = RemoteService) then fRemoteService := nil;
+end;
+
+
+procedure TDARemoteDataAdapter.SetRemoteService(const Value: TRORemoteService);
+begin
+  if Value <> fRemoteService then begin
+    if assigned(fRemoteService) then fRemoteService.RORemoveFreeNotification(self);
+    fRemoteService := Value;
+    GetSchemaCall.RemoteService := fRemoteService;
+    GetDataCall.RemoteService := fRemoteService;
+    UpdateDataCall.RemoteService := fRemoteService;
+    GetScriptsCall.RemoteService := fRemoteService;
+    if assigned(fRemoteService) then fRemoteService.ROFreeNotification(self);
+  end;
+end;
+
+{ Schema }
+function TDARemoteDataAdapter.Get_GetDataCall: TDARemoteRequest;
+begin
+  result := GetDataCall;
+end;
+
+function TDARemoteDataAdapter.Get_GetSchemaCall: TDARemoteRequest;
+begin
+  result := GetSchemaCall;
+end;
+
+function TDARemoteDataAdapter.Get_GetScriptsCall: TDARemoteRequest;
+begin
+  result := GetScriptsCall;
+end;
+
+function TDARemoteDataAdapter.Get_UpdateDataCall: TDARemoteRequest;
+begin
+  result := UpdateDataCall; 
+end;
+
+procedure TDARemoteDataAdapter.SetupDefaultRequest;
+begin
+  GetSchemaCall.SetupDefaultRequest();
+  GetDataCall.SetupDefaultRequest();
+  UpdateDataCall.SetupDefaultRequest();
+  GetScriptsCall.SetupDefaultRequest();
+end;
+
+procedure TDARemoteDataAdapter.SetupDefaultRequestV3;
+begin
+  GetSchemaCall.SetupDefaultRequestV3();
+  GetDataCall.SetupDefaultRequestV3();
+  UpdateDataCall.SetupDefaultRequestV3();
+  GetScriptsCall.SetupDefaultRequestV3();
+end;
+
+procedure TDARemoteDataAdapter.Assign(Source: TPersistent);
+var
+  lSource: TDARemoteDataAdapter;
+begin
+  inherited;
+  if Source is TDARemoteDataAdapter then begin
+    lSource := TDARemoteDataAdapter(Source);
+
+    AfterGetDataCall := lSource.AfterGetDataCall;
+    AfterGetSchemaCall := lSource.AfterGetSchemaCall;
+    AfterGetScriptsCall := lSource.AfterGetScriptsCall;
+    AfterUpdateDataCall := lSource.AfterUpdateDataCall;
+    BeforeGetDataCall := lSource.BeforeGetDataCall;
+    BeforeGetSchemaCall := lSource.BeforeGetSchemaCall;
+    BeforeGetScriptsCall := lSource.BeforeGetScriptsCall;
+    BeforeUpdateDataCall := lSource.BeforeUpdateDataCall;
+    GetDataCall.Assign(lSource.GetDataCall);
+    GetSchemaCall.Assign(lSource.GetSchemaCall);
+    GetScriptsCall.Assign(lSource.GetScriptsCall);
+    RemoteService := lSource.RemoteService;
+    UpdateDataCall.Assign(lSource.UpdateDataCall);
+  end;
+end;
+
+procedure TDARemoteDataAdapter.CheckProperties;
+begin
+  inherited;
+  Check(not assigned(DataStreamer), Name + '.DataStreamer must be assigned.');
+  Check(not assigned(RemoteService), Name + '.RemoteService must be assigned.');
+  RemoteService.CheckProperties();
+end;
+
+procedure TDARemoteDataAdapter.Loaded;
+begin
+  inherited;
+  {$IFDEF DELPHI6}
+  // Delphi 6 doesn't call Loaded of any of the sub components.
+  fGetDataCall.Loaded;
+  fGetSchemaCall.Loaded;
+  fUpdateDataCall.Loaded;
+  fGetScriptsCall.Loaded;
+  {$ENDIF}
+end;
+
+
+procedure TDARemoteDataAdapter.InternalFill(aTableArray: array of TDADataTable;
+  aArray: TableRequestInfoArray; const aIncludeSchema, aAppendMode: boolean; aSavedOptions: TDATableOptionsArray);
+var
+  lParam, lResultParam: TRORequestParam;
+  lHasTableNamesParameter: Boolean;
+  i: integer;
+  ltbl: TDADataTable;
+  lLogicalName: string;
+begin
+  try
+    lParam := GetDataCall.Params.FindParam(GetDataCall.OutgoingTableNamesParameter);
+    lHasTableNamesParameter := assigned(lParam);
+    if lHasTableNamesParameter then
+      FillTableNamesParam(aTableArray, lParam)
+    else if Length(aTableArray) <> 1 then
+      raise Exception.Create('The current GetDataCall configuration does not allow fetching multiple data tables');
+
+    if Length(GetDataCall.OutgoingTableRequestInfosParameter) > 0 then begin
+      lParam := GetDataCall.Params.FindParam(GetDataCall.OutgoingTableRequestInfosParameter);
+      if Assigned(lParam) then begin
+        if (lParam.DataType = rtUserDefined) and (lParam.TypeName = 'TableRequestInfoArray') then begin
+          lParam.AsComplexType := aArray;
+        end;
+      end;
+    end;
+
+    if (GetDataCall.OutgoingParamsParameter <> '') then begin // v3 style call
+      lParam := GetDataCall.Params.FindParam(GetDataCall.OutgoingParamsParameter);
+      if Assigned(lParam) then
+        FillTableParams(aTableArray, lParam);
+    end;
+
+    if (GetDataCall.OutgoingMaxRecordsParameter <> '') then begin // v3 style call
+      if Length(aTableArray) <> 1 then
+        for i := 0 to High(aTableArray) do
+          if aTableArray[i].MaxRecords <> -1 then
+            raise Exception.Create('The current GetDataCall configuration does not allow fetching multiple data tables with a limited record count.');
+      lParam := GetDataCall.Params.FindParam(GetDataCall.OutgoingMaxRecordsParameter);
+      if Assigned(lParam) and (Length(aTableArray) > 0) then lParam.AsInteger := aTableArray[0].MaxRecords;
+    end;
+
+    if (GetDataCall.OutgoingIncludeSchemaParameter <> '') then begin // v3 style call
+      lParam := GetDataCall.Params.FindParam(GetDataCall.OutgoingIncludeSchemaParameter);
+      if Assigned(lParam) then lParam.AsBoolean := aIncludeSchema;
+    end;
+
+    if Assigned(fBeforeGetDataCall) then fBeforeGetDataCall(Self, GetDataCall);
+
+    GetDataCall.Execute();
+    lResultParam := GetDataCall.Params.FindParam(GetDataCall.IncomingDataParameter);
+
+    if Assigned(fAfterGetDataCall) then fAfterGetDataCall(Self, GetDataCall);
+
+    if not assigned(lResultParam) or (lResultParam.DataType <> rtBinary) then
+      raise Exception.Create('Result parameter of GetDataCall is not properly defined.');
+
+    if not assigned(lResultParam.AsBinary) then raise Exception.Create('The server returned a nil buffer.');
+
+    // Reads the data
+    DataStreamer.Initialize(lResultParam.AsBinary, aiRead);
+    try
+      // part 1 - reading schema
+      for i := Low(aTableArray) to High(aTableArray) do
+      begin
+        ltbl:= aTableArray[i];
+        if aArray[i].IncludeSchema  and not (soIgnoreStreamSchema in ltbl.StreamingOptions) then begin
+          aSavedOptions[i].AppendMode := False;
+          if not lHasTableNamesParameter and (DataStreamer.DatasetCount = 1) then
+            DataStreamer.ReadDataset(DataStreamer.DatasetNames[0],  ltbl, true, false)
+          else
+            DataStreamer.ReadDataset(ltbl.LogicalName,  ltbl, true, false);
+        end;
+        if not ltbl.Active then  ltbl.InitializeDataTable;
+        //end;
+      end;
+      if AutoFillScripts then FillScripts(aTableArray);
+      // part 2 - reading data
+      for i := Low(aTableArray) to High(aTableArray) do begin
+        ltbl:= aTableArray[i];
+
+        if not lHasTableNamesParameter and (DataStreamer.DatasetCount = 1) then
+          lLogicalName:=DataStreamer.DatasetNames[0]
+        else
+          lLogicalName:=ltbl.LogicalName;
+
+        DataStreamer.ReadDataset(lLogicalName,  ltbl, false, true, aSavedOptions[i].AppendMode);
+        if not aAppendMode and (moAllInOneFetch in ltbl.MasterOptions) then ltbl.DoCascadeOperation(DataStreamer, moAllInOneFetch);
+      end;
+    finally
+      DataStreamer.Finalize;
+    end;
+
+
+  finally
+    lParam := GetDataCall.Params.FindParam(GetDataCall.OutgoingTableRequestInfosParameter);
+    if Assigned(lParam) then lParam.ClearValue;
+    lParam := GetDataCall.Params.FindParam(GetDataCall.OutgoingParamsParameter);
+    if Assigned(lParam) then lParam.ClearValue;
+    lParam := GetDataCall.Params.FindParam(GetDataCall.IncomingDataParameter);
+    if Assigned(lParam) then lParam.ClearValue;
+  end;
+end;
+
+function TDARemoteDataAdapter.InternalFillSchema(var aStream: TROBinaryMemoryStream): TRODataType;
+var
+  lResultParam: TRORequestParam;
+begin
+  lResultParam := GetSchemaCall.Params.FindParam(GetSchemaCall.IncomingSchemaParameter);
+  if not assigned(lResultParam) then raise Exception.Create('Result parameter of GetSchemaCall is not defined.');
+  Result := lResultParam.DataType;
+  try
+    case Result of
+      rtBinary:begin
+          DoGetSchemaCall();
+          if not assigned(lResultParam.AsBinary) or (lResultParam.AsBinary.Size = 0 ) then
+            raise Exception.Create('Server returned an empty buffer for schema.');
+          aStream := TROBinaryMemoryStream.Create;
+          aStream.CopyFrom(lResultParam.AsBinary,0);
+        end;
+      rtString, rtUTF8String: begin
+          Schema;
+        end;
+    end;
+  finally
+    if Assigned(lResultParam) then lResultParam.ClearValue;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteDataAdapterRequests.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteDataAdapterRequests.pas
new file mode 100644
index 0000000..5e2b236
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARemoteDataAdapterRequests.pas	
@@ -0,0 +1,390 @@
+unit uDARemoteDataAdapterRequests;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes,
+  uRODynamicRequest;
+
+type
+  { TDARemoteDataAdapterRequest }
+  TDARemoteDataAdapterRequest = class(TRODynamicRequest)
+  private
+    fDefault: boolean;
+    procedure SetDefault(const Value: boolean);
+  protected
+    function IsNotDefault: boolean;
+    procedure MethodNameChanged; override;
+  public
+    procedure Loaded; override;
+    constructor Create(aOwner: TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+    procedure SetupDefaultRequestV3; virtual; abstract;
+    procedure SetupDefaultRequest; virtual;
+  published
+    property Default: boolean read fDefault write SetDefault default true;
+    property Params stored IsNotDefault;
+    property MethodName stored IsNotDefault;
+  end;
+
+  TDAGetSchemaRequest = class(TDARemoteDataAdapterRequest)
+  private
+    fIncomingSchemaParameter: string;
+    fOutgoingFilterParameter: string;
+    procedure SetIncomingSchemaParameter(const Value: string);
+    procedure SetOutgoingFilterParameter(const Value: string);
+  public
+    procedure Assign(Source: TPersistent); override;
+    procedure SetupDefaultRequestV3; override;
+    procedure SetupDefaultRequest; override;
+  published
+    property IncomingSchemaParameter: string read fIncomingSchemaParameter write SetIncomingSchemaParameter stored IsNotDefault;
+    property OutgoingFilterParameter: string read fOutgoingFilterParameter write SetOutgoingFilterParameter stored IsNotDefault;
+  end;
+
+  TDAGetDataRequest = class(TDARemoteDataAdapterRequest)
+  private
+    fIncomingDataParameter: string;
+    fOutgoingTableNamesParameter: string;
+    fOutgoingIncludeSchemaParameter: string;
+    fOutgoingMaxRecordsParameter: string;
+    fOutgoingParamsParameter: string;
+    fOutgoingTableRequestInfosParameter: string;
+    procedure SetIncomingDataParameter(const Value: string);
+    procedure SetOutgoingIncludeSchemaParameter(const Value: string);
+    procedure SetOutgoingMaxRecordsParameter(const Value: string);
+    procedure SetOutgoingParamsParameter(const Value: string);
+    procedure SetOutgoingTableNamesParameter(const Value: string);
+    procedure SetOutgoingTableRequestInfosParameter(const Value: string);
+  public
+    procedure Assign(Source: TPersistent); override;
+    procedure SetupDefaultRequestV3; override;
+    procedure SetupDefaultRequest; override;
+  published
+    property OutgoingTableNamesParameter: string read fOutgoingTableNamesParameter write SetOutgoingTableNamesParameter stored IsNotDefault;
+    property OutgoingTableRequestInfosParameter: string read fOutgoingTableRequestInfosParameter write SetOutgoingTableRequestInfosParameter stored IsNotDefault;
+    property IncomingDataParameter: string read fIncomingDataParameter write SetIncomingDataParameter stored IsNotDefault;
+
+    property OutgoingParamsParameter: string read fOutgoingParamsParameter write SetOutgoingParamsParameter stored IsNotDefault;
+    property OutgoingIncludeSchemaParameter: string read fOutgoingIncludeSchemaParameter write SetOutgoingIncludeSchemaParameter stored IsNotDefault;
+    property OutgoingMaxRecordsParameter: string read fOutgoingMaxRecordsParameter write SetOutgoingMaxRecordsParameter stored IsNotDefault;
+
+  end;
+
+  TDAUpdateDataRequest = class(TDARemoteDataAdapterRequest)
+  private
+    fOutgoingDeltaParameter: string;
+    fIncomingDeltaParameter: string;
+    procedure SetIncomingDeltaParameter(const Value: string);
+    procedure SetOutgoingDeltaParameter(const Value: string);
+  public
+    procedure Assign(Source: TPersistent); override;
+    procedure SetupDefaultRequestV3; override;
+    procedure SetupDefaultRequest; override;
+  published
+    property OutgoingDeltaParameter: string read fOutgoingDeltaParameter write SetOutgoingDeltaParameter stored IsNotDefault;
+    property IncomingDeltaParameter: string read fIncomingDeltaParameter write SetIncomingDeltaParameter stored IsNotDefault;
+  end;
+
+  TDAGetScriptsRequest = class(TDARemoteDataAdapterRequest)
+  private
+    fIncomingScriptParameter: string;
+    fOutgoingTableNamesParameter: string;
+    procedure SetIncomingScriptParameter(const Value: string);
+    procedure SetOutgoingTableNamesParameter(const Value: string);
+  public
+    procedure Assign(Source: TPersistent); override;
+    procedure SetupDefaultRequestV3; override;
+    procedure SetupDefaultRequest; override;
+  published
+    property OutgoingTableNamesParameter: string read fOutgoingTableNamesParameter write SetOutgoingTableNamesParameter stored IsNotDefault;
+    property IncomingScriptParameter: string read fIncomingScriptParameter write SetIncomingScriptParameter stored IsNotDefault;
+  end;
+
+implementation
+
+uses
+  uRODL, uROClasses;
+
+{ TDARemoteDataAdapterRequest }
+
+procedure TDARemoteDataAdapterRequest.Assign(Source: TPersistent);
+var
+  lSource: TDARemoteDataAdapterRequest;
+begin
+  inherited;
+  if Source is TDARemoteDataAdapterRequest then begin
+    lSource := TDARemoteDataAdapterRequest(Source);
+
+    Default := lSource.Default;
+  end;
+end;
+
+constructor TDARemoteDataAdapterRequest.Create(aOwner: TComponent);
+begin
+  inherited;
+  SetSubComponent(true);
+  fDefault := true;
+end;
+
+function TDARemoteDataAdapterRequest.IsNotDefault: boolean;
+begin
+  result := not fDefault;
+end;
+
+procedure TDARemoteDataAdapterRequest.Loaded;
+begin
+  inherited;
+  if Default then
+    SetupDefaultRequest();
+end;
+
+procedure TDARemoteDataAdapterRequest.MethodNameChanged;
+begin
+  inherited;
+  Default := false;
+end;
+
+procedure TDARemoteDataAdapterRequest.SetDefault(const Value: boolean);
+begin
+  if fDefault <> Value then begin
+    fDefault := Value;
+    if fDefault then SetupDefaultRequest;
+  end;
+end;
+
+procedure TDARemoteDataAdapterRequest.SetupDefaultRequest;
+begin
+  fDefault := true;
+end;
+
+{ TDAGetSchemaRequest }
+
+procedure TDAGetSchemaRequest.Assign(Source: TPersistent);
+var
+  lSource: TDAGetSchemaRequest;
+begin
+  inherited;
+  if Source is TDAGetSchemaRequest then begin
+    lSource := TDAGetSchemaRequest(Source);
+
+    IncomingSchemaParameter := lSource.IncomingSchemaParameter;
+    OutgoingFilterParameter := lSource.OutgoingFilterParameter;
+  end;
+end;
+
+procedure TDAGetSchemaRequest.SetIncomingSchemaParameter(const Value: string);
+begin
+  fIncomingSchemaParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetSchemaRequest.SetOutgoingFilterParameter(const Value: string);
+begin
+  fOutgoingFilterParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetSchemaRequest.SetupDefaultRequest;
+begin
+  Params.Clear();
+  OutgoingFilterParameter := Params.Add('aFilter', rtUTF8String, fIn).Name;
+  IncomingSchemaParameter := Params.Add('Result', rtUTF8String, fResult).Name;
+  MethodName := 'GetSchema';
+  inherited;
+end;
+
+procedure TDAGetSchemaRequest.SetupDefaultRequestV3;
+begin
+  Params.Clear();
+  OutgoingFilterParameter := '';
+  IncomingSchemaParameter := Params.Add('Result', rtString, fResult).Name;
+  MethodName := 'GetSchemaAsXML';
+  Default := false;
+end;
+
+{ TDAGetDataRequest }
+
+procedure TDAGetDataRequest.Assign(Source: TPersistent);
+var
+  lSource: TDAGetDataRequest;
+begin
+  inherited;
+  if Source is TDAGetDataRequest then begin
+    lSource := TDAGetDataRequest(Source);
+
+    IncomingDataParameter := lSource.IncomingDataParameter;
+    OutgoingIncludeSchemaParameter := lSource.OutgoingIncludeSchemaParameter;
+    OutgoingMaxRecordsParameter := lSource.OutgoingMaxRecordsParameter;
+    OutgoingParamsParameter := lSource.OutgoingParamsParameter;
+    OutgoingTableNamesParameter := lSource.OutgoingTableNamesParameter;
+    OutgoingTableRequestInfosParameter := lSource.OutgoingTableRequestInfosParameter;
+  end;
+end;
+
+procedure TDAGetDataRequest.SetIncomingDataParameter(const Value: string);
+begin
+  fIncomingDataParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetDataRequest.SetOutgoingIncludeSchemaParameter(const Value: string);
+begin
+  fOutgoingIncludeSchemaParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetDataRequest.SetOutgoingMaxRecordsParameter(const Value: string);
+begin
+  fOutgoingMaxRecordsParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetDataRequest.SetOutgoingParamsParameter(const Value: string);
+begin
+  fOutgoingParamsParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetDataRequest.SetOutgoingTableNamesParameter(const Value: string);
+begin
+  fOutgoingTableNamesParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetDataRequest.SetOutgoingTableRequestInfosParameter(const Value: string);
+begin
+  fOutgoingTableRequestInfosParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetDataRequest.SetupDefaultRequest;
+begin
+  Params.Clear();
+  OutgoingTableNamesParameter        := Params.Add('aTableNameArray', rtUserDefined, fIn, 'StringArray').Name;
+  OutgoingTableRequestInfosParameter := Params.Add('aTableRequestInfoArray', rtUserDefined, fIn, 'TableRequestInfoArray').Name;
+  OutgoingParamsParameter            := '';
+  OutgoingIncludeSchemaParameter     := '';
+  OutgoingMaxRecordsParameter        := '';
+  IncomingDataParameter              := Params.Add('Result', rtBinary, fResult).Name;
+  MethodName := 'GetData';
+  inherited;
+end;
+
+procedure TDAGetDataRequest.SetupDefaultRequestV3;
+begin
+  Params.Clear();
+  OutgoingTableNamesParameter    := Params.Add('DatasetName', rtString, fIn).Name;
+  OutgoingParamsParameter        := Params.Add('Params', rtString, fIn).Name;
+  OutgoingIncludeSchemaParameter := Params.Add('IncludeSchema', rtBoolean, fIn).Name;
+  OutgoingMaxRecordsParameter    := Params.Add('MaxRecords', rtInteger, fIn).Name;
+  IncomingDataParameter          := Params.Add('Result', rtBinary, fResult).Name;
+  MethodName := 'GetDatasetData';
+  Default := false;
+end;
+
+{ TDAUpdateDataRequest }
+
+procedure TDAUpdateDataRequest.Assign(Source: TPersistent);
+var
+  lSource: TDAUpdateDataRequest;
+begin
+  inherited;
+  if Source is TDAUpdateDataRequest then begin
+    lSource := TDAUpdateDataRequest(Source);
+
+    IncomingDeltaParameter := lSource.IncomingDeltaParameter;
+    OutgoingDeltaParameter := lSource.OutgoingDeltaParameter;
+  end;
+end;
+
+procedure TDAUpdateDataRequest.SetIncomingDeltaParameter(const Value: string);
+begin
+  fIncomingDeltaParameter := Value;
+  Default := false;
+end;
+
+procedure TDAUpdateDataRequest.SetOutgoingDeltaParameter(const Value: string);
+begin
+  fOutgoingDeltaParameter := Value;
+  Default := false;
+end;
+
+procedure TDAUpdateDataRequest.SetupDefaultRequest;
+begin
+  Params.Clear();
+  OutgoingDeltaParameter := Params.Add('aDelta', rtBinary, fIn).Name;
+  IncomingDeltaParameter := Params.Add('Result', rtBinary, fResult).Name;
+  MethodName := 'UpdateData';
+  inherited;
+end;
+
+procedure TDAUpdateDataRequest.SetupDefaultRequestV3;
+begin
+  Params.Clear();
+  OutgoingDeltaParameter := Params.Add('Delta', rtBinary, fIn).Name;
+  IncomingDeltaParameter := Params.Add('Result', rtBinary, fResult).Name;
+  MethodName := 'UpdateData';
+  Default := false;
+end;
+
+{ TDAGetScriptsRequest }
+
+procedure TDAGetScriptsRequest.Assign(Source: TPersistent);
+var
+  lSource: TDAGetScriptsRequest;
+begin
+  inherited;
+  if Source is TDAGetScriptsRequest then begin
+    lSource := TDAGetScriptsRequest(Source);
+
+    IncomingScriptParameter := lSource.IncomingScriptParameter;
+    OutgoingTableNamesParameter := lSource.OutgoingTableNamesParameter;
+  end;
+end;
+
+procedure TDAGetScriptsRequest.SetIncomingScriptParameter(const Value: string);
+begin
+  fIncomingScriptParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetScriptsRequest.SetOutgoingTableNamesParameter(const Value: string);
+begin
+  fOutgoingTableNamesParameter := Value;
+  Default := false;
+end;
+
+procedure TDAGetScriptsRequest.SetupDefaultRequest;
+begin
+  Params.Clear();
+  OutgoingTableNamesParameter := Params.Add('DatasetNames', rtUTF8String, fIn).Name;
+  IncomingScriptParameter     := Params.Add('Result', rtUTF8String, fResult).Name;
+  MethodName := 'GetDatasetScripts';
+  inherited;
+end;
+
+procedure TDAGetScriptsRequest.SetupDefaultRequestV3;
+begin
+  Params.Clear();
+  OutgoingTableNamesParameter := Params.Add('DatasetNames', rtString, fIn).Name;
+  IncomingScriptParameter     := Params.Add('Result', rtString, fResult).Name;
+  MethodName := 'GetDatasetScripts';
+  Default := false;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARes.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARes.pas
new file mode 100644
index 0000000..18a745f
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDARes.pas	
@@ -0,0 +1,99 @@
+unit uDARes;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+//uses uDAInterfaces;
+
+resourcestring
+  err_ChangeLogAlreadyStarted = 'StartChange has already been called; cannot log more than one change at a time.';
+  err_NotAttachedToDataTable = 'Delta is not attached to a DataTable';
+  err_DeltaAttachedToDataTable = 'Cannot perform this operation on a delta that is attached to a DataTable';
+  err_DriverProcAlreadyRegistered = 'DriverProc 0x%0.8x is already registered';
+  err_DriverManagerNotCreated = 'A Data Abstract DriverManager is not currently instantiated';
+  err_DriverManagerAlreadyCreated = 'An instance of a TDADriverManager was already initialized. Only one driver manager per module is allowed';
+  err_DatasetNotAssigned = 'Dataset is not assigned';
+  err_VariantNotSupported = 'Variant type %d is not supported';
+  err_InvalidDestination = 'Invalid destination';
+  err_DriverManagerNotAssigned = 'Driver Manager is not assigned';
+  err_ConnectionManagerNotAssigned = 'Connection Manager is not assigned';
+  err_FieldTypeNotSupported = 'FieldType %s (%d) is not supported';
+  err_NotSupported = 'Not supported';
+  err_DataTypeNotSupportedByRemoteRequest = 'DataType is not supported by RemoteRequest';
+  err_InvalidDataset = 'Invalid or NIL dataset';
+  err_CannotMakeNILDefault = 'Cannot set NIL';
+  err_DifferentOwnerCollection = 'The connection definition is not owned by this collection';
+  err_CannotFindItem = 'Cannot find %s "%s" in collection of type %s';
+  err_InvalidCollectionType = 'Invalid collection type';
+  err_InvalidOwner = 'Invalid owner';
+  err_DriverAlreadyLoaded = 'Driver %s is already loaded';
+  err_DriverIsNotLoaded = 'Driver %s was not loaded';
+  err_InvalidDLL = '%s is not a valid Data Abstract driver';
+  err_UnknownDriver = 'Unknown driver %s';
+  err_UnknownParameter = 'Unknown parameter %s';
+  err_FieldIsNotBound = 'Field is not bound';
+  err_CannotFindField = 'Cannot find field %s';
+  err_LoadPackageFailed = 'LoadPackage failed for file %s';
+  err_InvalidDriverReference = 'The driver in %s could not be loaded';
+  err_CannotFindStatement = 'Cannot find statement %s for connection %s';
+  err_CannotFindDefaultItem = 'Cannot find default %s';
+  err_PoolIsNotEmpty = 'Cannot perform this operation when connections are pooled';
+  err_MaxPoolSizeReached = 'Maximum pool size reached. Cannot create a new connection';
+  err_CannotAccessThisProperty = 'Cannot access this property with the current DataType value';
+  err_LAMEDataset = '%s does not implement IProviderSupport or implements it incorrectly';
+  err_HETConnectionNotSupportedInV3 = 'HET Connections are not supported by te legacy v3 DARemoteService';
+  err_DARDMInvalidSchema = 'Schema must be assigned and must point to a ConnectionManager';
+  err_DARDMMissingConnectionName = 'Cannot acquire a connection without a ConnectionName or a OnBeforeAcquireConnection event handler';
+  err_DARDMUnassignedAdapter = 'DataAdapter is not assigned';
+  err_DARDMConnectionIsNotAssigned = 'Connection is not assigned';
+  err_DARDMCannotFindProxessorForDelta = 'Cannot find a business processor for delta "%s"';
+
+  err_NeedShareMem = 'To use dynamically loaded drivers, you must build your application with ShareMem.';
+
+  err_ExecuteSQLCommandNotAllowed = 'ExecuteSQLCommand is not enabled for this server.';
+
+  err_DatasetNotAccessible = 'Access to dataset %s has not been permitted.';
+  err_CommandNotAccessible = 'executon of command %s has not been permitted.';
+  err_SQLNotPermitted = 'Execution of the specified SQL statement has not been permitted.';
+  err_UTF8DecodeError = 'Can''t decode UTF8 string: "%s"';
+
+const
+  // Connection strings
+  ds_Separator = '?';
+  ds_Database = 'Database';
+  ds_UserID = 'UserID';
+  ds_Password = 'Password';
+  ds_Server = 'Server';
+  ds_AuxDriver = 'AuxDriver';
+
+  // IDE
+  DAPalettePageName = 'RemObjects Data Abstract';
+
+  // Driver access
+  DAFileExtDriver = '.dad';
+  drv_AllDrivers = 'DA*Drv' + DAFileExtDriver; // Driver names are in the format DAxxxxDrv.dad
+
+  // Schema Modeler related
+  DAFileExtSchemaFile = '.daSchema';
+  DAFileExtConnectionMgrFile = '.daConnections';
+  DAFileExtDataDictionaryFile = '.daDictionary';
+  DAFileExtDiagramsFile = '.daDiagrams';
+  DAFileExtConfigFile = '.daConfig';
+
+implementation
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQL92Interfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQL92Interfaces.pas
new file mode 100644
index 0000000..80ca567
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQL92Interfaces.pas	
@@ -0,0 +1,269 @@
+unit uDASQL92Interfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Driver Library                                     }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+function SQL92_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+
+implementation
+uses
+  SysUtils, uDAEngine;
+
+var
+  sql92_reservedwords         : array of string;
+
+function SQL92_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  Result := (pos('.', iIdentifier) > 0) or TestIdentifier(iIdentifier,sql92_reservedwords);
+end;
+
+procedure SQL92_InitializeReservedWords;
+begin
+  SetLength(sql92_reservedwords, 225);
+  // sorted with TStringList.Sort (bds2007)
+  sql92_reservedwords[0] := 'ABSOLUTE';
+  sql92_reservedwords[1] := 'ACTION';
+  sql92_reservedwords[2] := 'ADD';
+  sql92_reservedwords[3] := 'ALL';
+  sql92_reservedwords[4] := 'ALLOCATE';
+  sql92_reservedwords[5] := 'ALTER';
+  sql92_reservedwords[6] := 'AND';
+  sql92_reservedwords[7] := 'ANY';
+  sql92_reservedwords[8] := 'ARE';
+  sql92_reservedwords[9] := 'AS';
+  sql92_reservedwords[10] := 'ASC';
+  sql92_reservedwords[11] := 'ASSERTION';
+  sql92_reservedwords[12] := 'AT';
+  sql92_reservedwords[13] := 'AUTHORIZATION';
+  sql92_reservedwords[14] := 'AVG';
+  sql92_reservedwords[15] := 'BEGIN';
+  sql92_reservedwords[16] := 'BETWEEN';
+  sql92_reservedwords[17] := 'BIT';
+  sql92_reservedwords[18] := 'BIT_LENGTH';
+  sql92_reservedwords[19] := 'BOTH';
+  sql92_reservedwords[20] := 'BY';
+  sql92_reservedwords[21] := 'CASCADE';
+  sql92_reservedwords[22] := 'CASCADED';
+  sql92_reservedwords[23] := 'CASE';
+  sql92_reservedwords[24] := 'CAST';
+  sql92_reservedwords[25] := 'CATALOG';
+  sql92_reservedwords[26] := 'CHAR';
+  sql92_reservedwords[27] := 'CHAR_LENGTH';
+  sql92_reservedwords[28] := 'CHARACTER';
+  sql92_reservedwords[29] := 'CHARACTER_LENGTH';
+  sql92_reservedwords[30] := 'CHECK';
+  sql92_reservedwords[31] := 'CLOSE';
+  sql92_reservedwords[32] := 'COALESCE';
+  sql92_reservedwords[33] := 'COLLATE';
+  sql92_reservedwords[34] := 'COLLATION';
+  sql92_reservedwords[35] := 'COLUMN';
+  sql92_reservedwords[36] := 'COMMIT';
+  sql92_reservedwords[37] := 'CONNECT';
+  sql92_reservedwords[38] := 'CONNECTION';
+  sql92_reservedwords[39] := 'CONSTRAINT';
+  sql92_reservedwords[40] := 'CONSTRAINTS';
+  sql92_reservedwords[41] := 'CONTINUE';
+  sql92_reservedwords[42] := 'CONVERT';
+  sql92_reservedwords[43] := 'CORRESPONDING';
+  sql92_reservedwords[44] := 'COUNT';
+  sql92_reservedwords[45] := 'CREATE';
+  sql92_reservedwords[46] := 'CROSS';
+  sql92_reservedwords[47] := 'CURRENT';
+  sql92_reservedwords[48] := 'CURRENT_DATE';
+  sql92_reservedwords[49] := 'CURRENT_TIME';
+  sql92_reservedwords[50] := 'CURRENT_TIMESTAMP';
+  sql92_reservedwords[51] := 'CURRENT_USER';
+  sql92_reservedwords[52] := 'DATE';
+  sql92_reservedwords[53] := 'DAY';
+  sql92_reservedwords[54] := 'DEALLOCATE';
+  sql92_reservedwords[55] := 'DEC';
+  sql92_reservedwords[56] := 'DECIMAL';
+  sql92_reservedwords[57] := 'DECLARE';
+  sql92_reservedwords[58] := 'DEFAULT';
+  sql92_reservedwords[59] := 'DEFERRABLE';
+  sql92_reservedwords[60] := 'DEFERRED';
+  sql92_reservedwords[61] := 'DELETE';
+  sql92_reservedwords[62] := 'DESC';
+  sql92_reservedwords[63] := 'DESCRIBE';
+  sql92_reservedwords[64] := 'DESCRIPTOR';
+  sql92_reservedwords[65] := 'DIAGNOSTICS';
+  sql92_reservedwords[66] := 'DISCONNECT';
+  sql92_reservedwords[67] := 'DISTINCT';
+  sql92_reservedwords[68] := 'DOMAIN';
+  sql92_reservedwords[69] := 'DOUBLE';
+  sql92_reservedwords[70] := 'DROP';
+  sql92_reservedwords[71] := 'ELSE';
+  sql92_reservedwords[72] := 'END';
+  sql92_reservedwords[73] := 'END-EXEC';
+  sql92_reservedwords[74] := 'ESCAPE';
+  sql92_reservedwords[75] := 'EXCEPT';
+  sql92_reservedwords[76] := 'EXCEPTION';
+  sql92_reservedwords[77] := 'EXEC';
+  sql92_reservedwords[78] := 'EXECUTE';
+  sql92_reservedwords[79] := 'EXISTS';
+  sql92_reservedwords[80] := 'EXTERNAL';
+  sql92_reservedwords[81] := 'EXTRACT';
+  sql92_reservedwords[82] := 'FALSE';
+  sql92_reservedwords[83] := 'FETCH';
+  sql92_reservedwords[84] := 'FLOAT';
+  sql92_reservedwords[85] := 'FOR';
+  sql92_reservedwords[86] := 'FOREIGN';
+  sql92_reservedwords[87] := 'FOUND';
+  sql92_reservedwords[88] := 'FROM';
+  sql92_reservedwords[89] := 'FULL';
+  sql92_reservedwords[90] := 'GET';
+  sql92_reservedwords[91] := 'GLOBAL';
+  sql92_reservedwords[92] := 'GO';
+  sql92_reservedwords[93] := 'GOTO';
+  sql92_reservedwords[94] := 'GRANT';
+  sql92_reservedwords[95] := 'GROUP';
+  sql92_reservedwords[96] := 'HAVING';
+  sql92_reservedwords[97] := 'HOUR';
+  sql92_reservedwords[98] := 'IDENTITY';
+  sql92_reservedwords[99] := 'IMMEDIATE';
+  sql92_reservedwords[100] := 'IN';
+  sql92_reservedwords[101] := 'INDICATOR';
+  sql92_reservedwords[102] := 'INITIALLY';
+  sql92_reservedwords[103] := 'INNER';
+  sql92_reservedwords[104] := 'INPUT';
+  sql92_reservedwords[105] := 'INSENSITIVE';
+  sql92_reservedwords[106] := 'INSERT';
+  sql92_reservedwords[107] := 'INT';
+  sql92_reservedwords[108] := 'INTEGER';
+  sql92_reservedwords[109] := 'INTERSECT';
+  sql92_reservedwords[110] := 'INTERVAL';
+  sql92_reservedwords[111] := 'INTO';
+  sql92_reservedwords[112] := 'IS';
+  sql92_reservedwords[113] := 'ISOLATION';
+  sql92_reservedwords[114] := 'JOIN';
+  sql92_reservedwords[115] := 'KEY';
+  sql92_reservedwords[116] := 'LANGUAGE';
+  sql92_reservedwords[117] := 'LAST';
+  sql92_reservedwords[118] := 'LEADING';
+  sql92_reservedwords[119] := 'LEFT';
+  sql92_reservedwords[120] := 'LEVEL';
+  sql92_reservedwords[121] := 'LIKE';
+  sql92_reservedwords[122] := 'LOCAL';
+  sql92_reservedwords[123] := 'LOWER';
+  sql92_reservedwords[124] := 'MATCH';
+  sql92_reservedwords[125] := 'MAX';
+  sql92_reservedwords[126] := 'MIN';
+  sql92_reservedwords[127] := 'MINUTE';
+  sql92_reservedwords[128] := 'MODULE';
+  sql92_reservedwords[129] := 'MONTH';
+  sql92_reservedwords[130] := 'NAMES';
+  sql92_reservedwords[131] := 'NATIONAL';
+  sql92_reservedwords[132] := 'NATURAL';
+  sql92_reservedwords[133] := 'NCHAR';
+  sql92_reservedwords[134] := 'NEXT';
+  sql92_reservedwords[135] := 'NO';
+  sql92_reservedwords[136] := 'NOT';
+  sql92_reservedwords[137] := 'NULL';
+  sql92_reservedwords[138] := 'NULLIF';
+  sql92_reservedwords[139] := 'NUMERIC';
+  sql92_reservedwords[140] := 'OCTET_LENGTH';
+  sql92_reservedwords[141] := 'OF';
+  sql92_reservedwords[142] := 'ON';
+  sql92_reservedwords[143] := 'ONLY';
+  sql92_reservedwords[144] := 'OPEN';
+  sql92_reservedwords[145] := 'OPTION';
+  sql92_reservedwords[146] := 'OR';
+  sql92_reservedwords[147] := 'ORDER';
+  sql92_reservedwords[148] := 'OUTER';
+  sql92_reservedwords[149] := 'OUTPUT';
+  sql92_reservedwords[150] := 'OVERLAPS';
+  sql92_reservedwords[151] := 'PAD';
+  sql92_reservedwords[152] := 'PARTIAL';
+  sql92_reservedwords[153] := 'POSITION';
+  sql92_reservedwords[154] := 'PRECISION';
+  sql92_reservedwords[155] := 'PREPARE';
+  sql92_reservedwords[156] := 'PRESERVE';
+  sql92_reservedwords[157] := 'PRIMARY';
+  sql92_reservedwords[158] := 'PRIOR';
+  sql92_reservedwords[159] := 'PRIVILEGES';
+  sql92_reservedwords[160] := 'PROCEDURE';
+  sql92_reservedwords[161] := 'PUBLIC';
+  sql92_reservedwords[162] := 'READ';
+  sql92_reservedwords[163] := 'REAL';
+  sql92_reservedwords[164] := 'REFERENCES';
+  sql92_reservedwords[165] := 'RELATIVE';
+  sql92_reservedwords[166] := 'RESTRICT';
+  sql92_reservedwords[167] := 'REVOKE';
+  sql92_reservedwords[168] := 'RIGHT';
+  sql92_reservedwords[169] := 'ROLLBACK';
+  sql92_reservedwords[170] := 'ROWS';
+  sql92_reservedwords[171] := 'SCHEMA';
+  sql92_reservedwords[172] := 'SCROLL';
+  sql92_reservedwords[173] := 'SECTION';
+  sql92_reservedwords[174] := 'SELECT';
+  sql92_reservedwords[175] := 'SESSION';
+  sql92_reservedwords[176] := 'SESSION_USER';
+  sql92_reservedwords[177] := 'SET';
+  sql92_reservedwords[178] := 'SIZE';
+  sql92_reservedwords[179] := 'SMALLINT';
+  sql92_reservedwords[180] := 'SOME';
+  sql92_reservedwords[181] := 'SPACE';
+  sql92_reservedwords[182] := 'SQL';
+  sql92_reservedwords[183] := 'SQLCODE';
+  sql92_reservedwords[184] := 'SQLERROR';
+  sql92_reservedwords[185] := 'SQLSTATE';
+  sql92_reservedwords[186] := 'SQLWARNING';
+  sql92_reservedwords[187] := 'SUBSTRING';
+  sql92_reservedwords[188] := 'SUM';
+  sql92_reservedwords[189] := 'SYSTEM_USER';
+  sql92_reservedwords[190] := 'TABLE';
+  sql92_reservedwords[191] := 'TEMPORARY';
+  sql92_reservedwords[192] := 'THEN';
+  sql92_reservedwords[193] := 'TIME';
+  sql92_reservedwords[194] := 'TIMESTAMP';
+  sql92_reservedwords[195] := 'TIMEZONE_HOUR';
+  sql92_reservedwords[196] := 'TIMEZONE_MINUTE';
+  sql92_reservedwords[197] := 'TO';
+  sql92_reservedwords[198] := 'TRAILING';
+  sql92_reservedwords[199] := 'TRANSACTION';
+  sql92_reservedwords[200] := 'TRANSLATE';
+  sql92_reservedwords[201] := 'TRANSLATION';
+  sql92_reservedwords[202] := 'TRIM';
+  sql92_reservedwords[203] := 'TRUE';
+  sql92_reservedwords[204] := 'UNION';
+  sql92_reservedwords[205] := 'UNIQUE';
+  sql92_reservedwords[206] := 'UNKNOWN';
+  sql92_reservedwords[207] := 'UPDATE';
+  sql92_reservedwords[208] := 'UPPER';
+  sql92_reservedwords[209] := 'USAGE';
+  sql92_reservedwords[210] := 'USER';
+  sql92_reservedwords[211] := 'USING';
+  sql92_reservedwords[212] := 'VALUE';
+  sql92_reservedwords[213] := 'VALUES';
+  sql92_reservedwords[214] := 'VARCHAR';
+  sql92_reservedwords[215] := 'VARYING';
+  sql92_reservedwords[216] := 'VIEW';
+  sql92_reservedwords[217] := 'WHEN';
+  sql92_reservedwords[218] := 'WHENEVER';
+  sql92_reservedwords[219] := 'WHERE';
+  sql92_reservedwords[220] := 'WITH';
+  sql92_reservedwords[221] := 'WORK';
+  sql92_reservedwords[222] := 'WRITE';
+  sql92_reservedwords[223] := 'YEAR';
+  sql92_reservedwords[224] := 'ZONE';
+end;
+
+initialization
+  sql92_InitializeReservedWords;
+finalization
+  sql92_reservedwords := nil;
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQL92QueryBuilder.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQL92QueryBuilder.pas
new file mode 100644
index 0000000..8f290e7
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQL92QueryBuilder.pas	
@@ -0,0 +1,181 @@
+unit uDASQL92QueryBuilder;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes,
+  uDAInterfaces,
+  uDAWhere;
+
+type
+  TDASQL92WhereBuilder = class(TDASQLWhereBuilder)
+  protected
+    function ProcessBinaryExpression(AExpression: TDAWhereExpression): string; override;
+    function ProcessUnaryExpression(AExpression: TDAWhereExpression): string; override;
+    function ProcessNullExpression(AExpression: TDAWhereExpression): string; override;
+  end;
+
+  TDASQL92QueryBuilder = class(TDAQueryBuilder)
+  protected
+    function CreateWhereBuilder: TDASQLWhereBuilder; override;
+    function CreateTableClause: string; override;
+    function IdentifierNeedsQuoting(const iIdentifier: string):boolean;override;
+    function QuoteStringId(aValue: string): string;
+  end;
+
+implementation
+uses
+  SysUtils, uROXMLIntf, uDASQL92Interfaces;
+
+const
+  c_Indent = '   ';
+
+  { TDASQL92QueryBuilder }
+
+function TDASQL92QueryBuilder.CreateTableClause: string;
+var
+  i, j: integer;
+  s: string;
+begin
+  Result := QuoteIdentifierIfNeeded(MainTable.MasterTable);
+  for i := 0 to MainTable.JoinSourceTables.Count - 1 do
+    with TDAJoinSourceTable(MainTable.JoinSourceTables.Items[i]) do begin
+      if (JoinConditions.Count = 0) or (JoinType = jtCross) then
+        Result := Result + ',' + QuoteIdentifierIfNeeded(Name)
+      else begin
+        case JoinType of
+          jtInner: s := 'INNER';
+          jtLeftOuter: s := 'LEFT OUTER';
+          jtRightOuter: s := 'RIGHT OUTER';
+          jtFullOuter: s := 'FULL OUTER';
+        end;
+        Result := Result + #13#10 + c_Indent + Format('%s JOIN %s ON (', [s, QuoteIdentifierIfNeeded(Name)]);
+        for j := 0 to JoinConditions.Count - 1 do begin
+          if J > 0 then Result := Result + ' and ';
+          with TDAJoinCondition(JoinConditions.Items[j]) do begin
+            Result := Result + Format('(%s = %s)', [
+              GenerateFieldName(FromTableName, FromFieldName),
+              GenerateFieldName(ToTableName, ToFieldName)]);
+          end;
+          Result := Result + ')';
+        end;
+      end;
+    end;
+end;
+
+function TDASQL92QueryBuilder.CreateWhereBuilder: TDASQLWhereBuilder;
+begin
+  Result := TDASQL92WhereBuilder.Create(Self);
+end;
+
+function TDASQL92QueryBuilder.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result:= inherited IdentifierNeedsQuoting(iIdentifier) or SQL92_IdentifierNeedsQuoting(iIdentifier);
+end;
+
+function TDASQL92QueryBuilder.QuoteStringId(aValue: string): string;
+begin
+  Result:= AnsiQuotedStr(aValue,'''');
+end;
+
+{ TDASQL92WhereBuilder }
+
+function TDASQL92WhereBuilder.ProcessBinaryExpression(
+  AExpression: TDAWhereExpression): string;
+const
+  TDABinaryOperatorStr: array[TDABinaryOperator] of string =
+  ('AND', 'OR', '' {dboXor}, '<', '<=', '>', '>=', '<>', '=', 'LIKE', '' {dboIn}, '+', '-', '*', '/', '' {dboNotIn});
+
+  function ExpressionisNull(aExpr: TDAWhereExpression): boolean;
+  begin
+    result := (AExpr is TDANullExpression);
+  end;
+
+  function ExpressionisNotNull(aExpr: TDAWhereExpression): boolean;
+  begin
+    result :=
+      ((AExpr is TDAUnaryExpression) and
+      (TDAUnaryExpression(AExpr).Operator = duoNot) and
+      (TDAUnaryExpression(AExpr).Expression is TDANullExpression));
+  end;
+
+var
+  lLeft, lRight: string;
+  lLeftisNull, lRightisNull: boolean;
+  s,s1,s2: string;
+  s_Null: string;
+begin
+  Result := '';
+  With TDABinaryExpression(AExpression) do begin
+    lLeft := ProcessExpression(Left);
+    lRight := ProcessExpression(Right);
+    lRightisNull := ExpressionisNull(Right) or ExpressionisNotNull(Right);
+    lLeftisNull := ExpressionisNull(Left) or ExpressionisNotNull(Left);
+
+    if Operator = dboXor then
+      // A xor B = (A and not B) or (not A and B)
+      result := Format('((%s AND NOT %s) OR' + #13#10 + '(NOT %0:s AND %1:s))', [lLeft, lRight])
+    else if lRightisNull or lLeftisNull then begin
+      s_Null:= ProcessNullExpression(nil);
+      if lRightisNull then s2:= '%0:s' else s2:='%1:s';
+      if (lRightisNull and ExpressionisNotNull(Right)) or (lLeftisNull and ExpressionisNotNull(Left)) then begin
+        s :=  '('+s2+' IS NOT '+s_Null+')';
+        s1 := '('+s2+' IS '+s_Null+')';
+      end
+      else begin
+        s :=  '('+s2+' IS '+s_Null+')';
+        s1 := '('+s2+' IS NOT '+s_Null+')';
+      end;
+      if Operator in [dboNotEqual,dboLess,dboGreater] then
+        Result := Format(s1, [lLeft, lRight])
+      else
+        Result := Format(s, [lLeft, lRight]);
+    end
+    else case Operator of
+      dboIn:  result := Format('(%s IN (%s))', [lLeft, lRight]);
+      dboNotIn:  result := Format('(%s NOT IN (%s))', [lLeft, lRight]);
+    else
+      result := Format('(%s %s %s)', [lLeft, TDABinaryOperatorStr[Operator], lRight]);
+    end;
+  end;
+end;
+
+function TDASQL92WhereBuilder.ProcessNullExpression(
+  AExpression: TDAWhereExpression): string;
+begin
+  Result := 'NULL';
+end;
+
+function TDASQL92WhereBuilder.ProcessUnaryExpression(
+  AExpression: TDAWhereExpression): string;
+var
+  lExpr: string;
+begin
+  with TDAUnaryExpression(AExpression) do begin
+    lExpr := ProcessExpression(Expression);
+    case Operator of
+      duoNot: Result := 'NOT ' + lExpr;
+      duoMinus: Result := '-' + lExpr;
+    else
+      Result := '';
+    end;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQLiteInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQLiteInterfaces.pas
new file mode 100644
index 0000000..1e62831
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASQLiteInterfaces.pas	
@@ -0,0 +1,283 @@
+unit uDASQLiteInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  uDAInterfaces, uDAEngine, uROClasses;
+
+type
+  { IDASQLiteConnection
+      For identification purposes Implemented by all SQLite connections }
+  IDASQLiteConnection = interface(IDAConnection)
+    ['{C6249278-7BBB-4E4F-849B-A9AA7C9ACD66}']
+  end;
+
+  TDASQLiteDriver = class(TDAEDriver)
+  protected
+    function GetDefaultConnectionType(const AuxDriver: string): string; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    // IDADriver40
+    function GetProviderDefaultCustomParameters(Provider: string): string; safecall;
+  end;
+
+  TDASQLiteConnection = class(TDAEConnection, IDAFileBasedDatabase, IDASQLiteConnection)
+  protected
+    procedure DoGetTableNames(out List: IROStrings); override;
+    procedure DoGetStoredProcedureNames(out List: IROStrings); override;
+    procedure DoGetViewNames(out List: IROStrings); override;
+    function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    procedure GetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
+    //IDAFileBasedDatabase
+    function GetFileExtensions: IROStrings;
+  public
+  end;
+
+
+function SQLite_GetFileExtensions: IROStrings;
+procedure SQLite_GetObjectNames(Query: IDADataset;AList: IROStrings; AObjectType: TDAObjecttype);
+function SQLite_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+Procedure SQLite_DoGetForeignKeys(Query: IDADataset;ForeignKeys: TDADriverForeignKeyCollection);
+
+const
+  SQLite_DriverType = 'SQLite';
+
+implementation
+uses
+  SysUtils;
+
+var
+  sqlite_reservedwords         : array of string;
+
+function SQLite_GetFileExtensions: IROStrings;
+begin
+  Result := TROStrings.Create;
+  result.Add('*.SQB;*.DB3;*.DB;*.DBB;SQLite Database (*.sqb,*.db3,*.db,*.dbb)');
+  result.Add('*.*;All files (*.*)');
+end;
+
+procedure SQLite_GetObjectNames(Query: IDADataset;AList: IROStrings; AObjectType: TDAObjecttype);
+begin
+  try
+    case AObjectType of
+      dotTable: Query.SQL := 'SELECT name FROM sqlite_master WHERE type="table" ORDER BY name';
+      dotView: Query.SQL := 'SELECT name FROM sqlite_master WHERE type="view" ORDER BY name';
+      dotProcedure: Exit;
+    else
+    end;
+    Query.Open;
+    while not Query.EOF do begin
+      AList.Add(Trim(Query.Fields[0].AsString));
+      Query.Next;
+    end;
+  finally
+    Query:=nil;
+  end;
+end;
+
+function SQLite_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  result := TestIdentifier(iIdentifier, sqlite_reservedwords);
+end;
+
+procedure SQLite_DoGetForeignKeys(Query: IDADataset;ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  ForeignKeys.Clear;
+  // SQLite isn't support FK yet
+end;
+{ TDASQLiteDriver }
+
+function TDASQLiteDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
+begin
+  result := [doDatabaseName, doCustom];
+end;
+
+function TDASQLiteDriver.GetDefaultConnectionType(
+  const AuxDriver: string): string;
+begin
+  Result:= SQLite_DriverType;
+end;
+
+function TDASQLiteDriver.GetProviderDefaultCustomParameters(
+  Provider: string): string;
+begin
+  Result := '';
+end;
+
+{ TDASQLiteConnection }
+
+procedure TDASQLiteConnection.DoGetStoredProcedureNames(out List: IROStrings);
+begin
+  inherited;
+  SQLite_GetObjectNames(GetDatasetClass.Create(Self),List,dotProcedure);
+end;
+
+procedure TDASQLiteConnection.DoGetTableNames(out List: IROStrings);
+begin
+  inherited;
+  SQLite_GetObjectNames(GetDatasetClass.Create(Self),List,dotTable);
+end;
+
+procedure TDASQLiteConnection.DoGetViewNames(out List: IROStrings);
+begin
+  inherited;
+  SQLite_GetObjectNames(GetDatasetClass.Create(Self),List,dotView);
+end;
+
+function TDASQLiteConnection.GetFileExtensions: IROStrings;
+begin
+  Result:=SQLite_GetFileExtensions;
+end;
+
+procedure TDASQLiteConnection.GetForeignKeys(
+  out ForeignKeys: TDADriverForeignKeyCollection);
+begin
+  inherited;
+  SQLite_DoGetForeignKeys(GetDatasetClass.Create(Self),ForeignKeys);
+end;
+
+function TDASQLiteConnection.IdentifierNeedsQuoting(
+  const iIdentifier: string): boolean;
+begin
+  Result := inherited IdentifierNeedsQuoting(iIdentifier) or SQLite_IdentifierNeedsQuoting(iIdentifier);
+end;
+
+
+procedure sqlite_InitializeReservedWords;
+begin
+  SetLength(sqlite_reservedwords,113);
+  // sorted with TStringList.Sort (bds2007)  
+  sqlite_reservedwords[0] := 'ABORT';
+  sqlite_reservedwords[1] := 'ADD';
+  sqlite_reservedwords[2] := 'AFTER';
+  sqlite_reservedwords[3] := 'ALL';
+  sqlite_reservedwords[4] := 'ALTER';
+  sqlite_reservedwords[5] := 'ANALYZE';
+  sqlite_reservedwords[6] := 'AND';
+  sqlite_reservedwords[7] := 'AS';
+  sqlite_reservedwords[8] := 'ASC';
+  sqlite_reservedwords[9] := 'ATTACH';
+  sqlite_reservedwords[10] := 'AUTOINCREMENT';
+  sqlite_reservedwords[11] := 'BEFORE';
+  sqlite_reservedwords[12] := 'BEGIN';
+  sqlite_reservedwords[13] := 'BETWEEN';
+  sqlite_reservedwords[14] := 'BY';
+  sqlite_reservedwords[15] := 'CASCADE';
+  sqlite_reservedwords[16] := 'CASE';
+  sqlite_reservedwords[17] := 'CAST';
+  sqlite_reservedwords[18] := 'CHECK';
+  sqlite_reservedwords[19] := 'COLLATE';
+  sqlite_reservedwords[20] := 'COMMIT';
+  sqlite_reservedwords[21] := 'CONFLICT';
+  sqlite_reservedwords[22] := 'CONSTRAINT';
+  sqlite_reservedwords[23] := 'CREATE';
+  sqlite_reservedwords[24] := 'CROSS';
+  sqlite_reservedwords[25] := 'CURRENT_DATE';
+  sqlite_reservedwords[26] := 'CURRENT_TIME';
+  sqlite_reservedwords[27] := 'CURRENT_TIMESTAMP';
+  sqlite_reservedwords[28] := 'DATABASE';
+  sqlite_reservedwords[29] := 'DEFAULT';
+  sqlite_reservedwords[30] := 'DEFERRABLE';
+  sqlite_reservedwords[31] := 'DEFERRED';
+  sqlite_reservedwords[32] := 'DELETE';
+  sqlite_reservedwords[33] := 'DESC';
+  sqlite_reservedwords[34] := 'DETACH';
+  sqlite_reservedwords[35] := 'DISTINCT';
+  sqlite_reservedwords[36] := 'DROP';
+  sqlite_reservedwords[37] := 'EACH';
+  sqlite_reservedwords[38] := 'ELSE';
+  sqlite_reservedwords[39] := 'END';
+  sqlite_reservedwords[40] := 'ESCAPE';
+  sqlite_reservedwords[41] := 'EXCEPT';
+  sqlite_reservedwords[42] := 'EXCLUSIVE';
+  sqlite_reservedwords[43] := 'EXPLAIN';
+  sqlite_reservedwords[44] := 'FAIL';
+  sqlite_reservedwords[45] := 'FOR';
+  sqlite_reservedwords[46] := 'FOREIGN';
+  sqlite_reservedwords[47] := 'FROM';
+  sqlite_reservedwords[48] := 'FULL';
+  sqlite_reservedwords[49] := 'GLOB';
+  sqlite_reservedwords[50] := 'GROUP';
+  sqlite_reservedwords[51] := 'HAVING';
+  sqlite_reservedwords[52] := 'IF';
+  sqlite_reservedwords[53] := 'IGNORE';
+  sqlite_reservedwords[54] := 'IMMEDIATE';
+  sqlite_reservedwords[55] := 'IN';
+  sqlite_reservedwords[56] := 'INDEX';
+  sqlite_reservedwords[57] := 'INITIALLY';
+  sqlite_reservedwords[58] := 'INNER';
+  sqlite_reservedwords[59] := 'INSERT';
+  sqlite_reservedwords[60] := 'INSTEAD';
+  sqlite_reservedwords[61] := 'INTERSECT';
+  sqlite_reservedwords[62] := 'INTO';
+  sqlite_reservedwords[63] := 'IS';
+  sqlite_reservedwords[64] := 'ISNULL';
+  sqlite_reservedwords[65] := 'JOIN';
+  sqlite_reservedwords[66] := 'KEY';
+  sqlite_reservedwords[67] := 'LEFT';
+  sqlite_reservedwords[68] := 'LIKE';
+  sqlite_reservedwords[69] := 'LIMIT';
+  sqlite_reservedwords[70] := 'MATCH';
+  sqlite_reservedwords[71] := 'NATURAL';
+  sqlite_reservedwords[72] := 'NOT';
+  sqlite_reservedwords[73] := 'NOTNULL';
+  sqlite_reservedwords[74] := 'NULL';
+  sqlite_reservedwords[75] := 'OF';
+  sqlite_reservedwords[76] := 'OFFSET';
+  sqlite_reservedwords[77] := 'ON';
+  sqlite_reservedwords[78] := 'OR';
+  sqlite_reservedwords[79] := 'ORDER';
+  sqlite_reservedwords[80] := 'OUTER';
+  sqlite_reservedwords[81] := 'PLAN';
+  sqlite_reservedwords[82] := 'PRAGMA';
+  sqlite_reservedwords[83] := 'PRIMARY';
+  sqlite_reservedwords[84] := 'QUERY';
+  sqlite_reservedwords[85] := 'RAISE';
+  sqlite_reservedwords[86] := 'REFERENCES';
+  sqlite_reservedwords[87] := 'REINDEX';
+  sqlite_reservedwords[88] := 'RENAME';
+  sqlite_reservedwords[89] := 'REPLACE';
+  sqlite_reservedwords[90] := 'RESTRICT';
+  sqlite_reservedwords[91] := 'RIGHT';
+  sqlite_reservedwords[92] := 'ROLLBACK';
+  sqlite_reservedwords[93] := 'ROW';
+  sqlite_reservedwords[94] := 'SELECT';
+  sqlite_reservedwords[95] := 'SET';
+  sqlite_reservedwords[96] := 'TABLE';
+  sqlite_reservedwords[97] := 'TEMP';
+  sqlite_reservedwords[98] := 'TEMPORARY';
+  sqlite_reservedwords[99] := 'THEN';
+  sqlite_reservedwords[100] := 'TO';
+  sqlite_reservedwords[101] := 'TRANSACTION';
+  sqlite_reservedwords[102] := 'TRIGGER';
+  sqlite_reservedwords[103] := 'UNION';
+  sqlite_reservedwords[104] := 'UNIQUE';
+  sqlite_reservedwords[105] := 'UPDATE';
+  sqlite_reservedwords[106] := 'USING';
+  sqlite_reservedwords[107] := 'VACUUM';
+  sqlite_reservedwords[108] := 'VALUES';
+  sqlite_reservedwords[109] := 'VIEW';
+  sqlite_reservedwords[110] := 'VIRTUAL';
+  sqlite_reservedwords[111] := 'WHEN';
+  sqlite_reservedwords[112] := 'WHERE';
+end;
+
+initialization
+  sqlite_InitializeReservedWords;
+finalization
+  sqlite_reservedwords := nil;
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAScriptingProvider.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAScriptingProvider.pas
new file mode 100644
index 0000000..c0671ac
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAScriptingProvider.pas	
@@ -0,0 +1,150 @@
+unit uDAScriptingProvider;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, SysUtils, uROClient;
+
+type
+  TScriptableComponent = class;
+  TDAScriptingProvider = class(TROComponent)
+  private
+    FScriptableComponent: TScriptableComponent;
+    procedure SetScriptableComponent(const Value: TScriptableComponent);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property ScriptableComponent: TScriptableComponent read FScriptableComponent write SetScriptableComponent;
+  end;
+
+  IDAScriptingProvider = interface
+  ['{6D19A2F9-233A-4EE6-95EC-CDFCD7410C15}']
+  end;
+
+  EDAScriptError = class(Exception);
+  EDAScriptCompileError = class(EDAScriptError);
+
+  TScriptableComponent = class(TROComponent)
+  private
+    fScriptingProvider: TDAScriptingProvider;
+    procedure SetScriptingProvider(const Value: TDAScriptingProvider);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property ScriptingProvider: TDAScriptingProvider read fScriptingProvider write SetScriptingProvider;
+  end;
+
+
+
+implementation
+
+{ TScriptableComponent }
+
+procedure TScriptableComponent.Assign(Source: TPersistent);
+var
+  lSource: TScriptableComponent;
+begin
+  inherited;
+  if Source is TScriptableComponent then begin
+    lSource := TScriptableComponent(Source);
+
+    ScriptingProvider := lSource.ScriptingProvider;
+  end;
+end;
+
+destructor TScriptableComponent.Destroy;
+begin
+  ScriptingProvider := nil;
+  inherited;
+end;
+
+procedure TScriptableComponent.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  if (Operation = opRemove) then begin
+    if (AComponent = fScriptingProvider) then fScriptingProvider := nil;
+  end;
+  inherited;
+end;
+
+procedure TScriptableComponent.SetScriptingProvider(const Value: TDAScriptingProvider);
+begin
+  if fScriptingProvider <> Value then begin
+    if fScriptingProvider <> nil then begin
+      fScriptingProvider.RORemoveFreeNotification(self);
+      fScriptingProvider.ScriptableComponent:=nil;
+    end;
+    if Value <> nil then Value.ScriptableComponent := Self;
+    if Assigned(fScriptingProvider) then fScriptingProvider.ROFreeNotification(self);
+  end;
+end;
+
+{ TDAScriptingProvider }
+
+procedure TDAScriptingProvider.Assign(Source: TPersistent);
+var
+  lSource: TDAScriptingProvider;
+begin
+  inherited;
+  if Source is TDAScriptingProvider then begin
+    lSource := TDAScriptingProvider(Source);
+
+    ScriptableComponent := lSource.ScriptableComponent;
+  end;
+end;
+
+destructor TDAScriptingProvider.Destroy;
+begin
+  ScriptableComponent := nil;
+  inherited;
+end;
+
+procedure TDAScriptingProvider.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  if (Operation = opRemove) then begin
+    if (AComponent = FScriptableComponent) then begin
+      FScriptableComponent.fScriptingProvider:=nil;
+      FScriptableComponent := nil;
+    end;
+  end;
+  inherited;
+end;
+
+procedure TDAScriptingProvider.SetScriptableComponent(
+  const Value: TScriptableComponent);
+begin
+  if FScriptableComponent <> Value then begin
+    if FScriptableComponent <> nil then begin
+      FScriptableComponent.RORemoveFreeNotification(Self);
+      FScriptableComponent.fScriptingProvider:=nil;
+    end;
+    FScriptableComponent := Value;
+    if Assigned(FScriptableComponent) then begin
+      FScriptableComponent.fScriptingProvider := Self;
+      FScriptableComponent.ROFreeNotification(Self);
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAServerLog.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAServerLog.pas
new file mode 100644
index 0000000..8f58c14
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAServerLog.pas	
@@ -0,0 +1,632 @@
+unit uDAServerLog;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, Contnrs, SysUtils, uROSessions, SyncObjs, uROTypes, uDAInterfaces,
+  uROXMLIntf, uROXMLSerializer;
+
+const
+  EmptyGUID: TGUID = '{00000000-0000-0000-0000-000000000000}';
+
+type
+  TDAServerLog = class;
+
+  { TDALogItem }
+  TDALogItem = class(TROComplexType)
+  private
+    fServerLog: TDAServerLog;
+    fCreationTime: TDateTime;
+    fSessionID: TGUID;
+    function GetSessionIDAsString: string;
+
+  protected
+    procedure AssignSession(aSession: TROSession); virtual;
+
+  public
+    constructor Create(aServerLog: TDAServerLog; aSession: TROSession); reintroduce;
+    destructor Destroy; override;
+
+    property ServerLog: TDAServerLog read fServerLog;
+    {$IFDEF FPC}
+    property SessionID: TGUID read fSessionID;
+    {$ENDIF}
+
+  published
+    {$IFNDEF FPC}
+    property SessionID: TGUID read fSessionID;
+    {$ENDIF}
+    property SessionIDAsString: string read GetSessionIDAsString;
+    property CreationTime: TDateTime read fCreationTime;
+  end;
+
+  { TDASessionLog }
+  TDASessionLog = class(TDALogItem)
+  private
+    fLoginInfo: TROComplexType;
+
+  protected
+    procedure AssignLoginInfo(aLoginInfo: TROComplexType); virtual;
+
+  public
+    constructor Create(aServerLog: TDAServerLog; aSession: TROSession; aLoginInfo: TROComplexType);
+    destructor Destroy; override;
+
+  published
+    property LoginInfo: TROComplexType read fLoginInfo;
+  end;
+
+  TDASessionLogClass = class of TDASessionLog;
+
+  { TDASQLCommandLog }
+  TDASQLCommandLog = class(TDALogItem)
+  private
+    fActualSQLText: string;
+    fElapsedMilliseconds: Cardinal;
+    fOriginalSQLText: string;
+    fParams: TDAParamCollection;
+  protected
+  public
+    constructor Create(aServerLog: TDAServerLog; aSession: TROSession;
+                       const aCommand: IDASQLCommand;
+                       aActualSQLText: string; aElapsedMilliseconds: Cardinal);
+    destructor Destroy; override;
+
+    property Params: TDAParamCollection read fParams;
+
+  published
+
+    property OriginalSQLText: string read fOriginalSQLText;
+    property ActualSQLText: string read fActualSQLText;
+    property ElapsedMilliseconds: cardinal read fElapsedMilliseconds;
+  end;
+
+  TDASQLCommandLogClass = class of TDASQLCommandLog;
+
+  { TDASQLErrorLog }
+  TDASQLErrorLog = class(TDASQLCommandLog)
+  private
+    fErrorMessage: string;
+  protected
+  public
+    constructor Create(aServerLog: TDAServerLog; aSession: TROSession;
+                       aError: Exception; const aCommand: IDASQLCommand;
+                       aActualSQLText: string);
+
+    property ErrorMessage: string read fErrorMessage;
+  end;
+
+  TDASQLErrorLogClass = class of TDASQLErrorLog;
+
+  { Events }
+  TDASessionLogEvent = procedure(Sender: TDAServerLog; SessionLog: TDASessionLog) of object;
+  TDASessionLogRemoveEvent = procedure(Sender: TDAServerLog; SessionLog: TDASessionLog; var RemoveRelatedLogs: boolean) of object;
+  TDASQLCommandLogEvent = procedure(Sender: TDAServerLog; SQLCommandLog: TDASQLCommandLog) of object;
+  TDASQLErrorLogEvent = procedure(Sender: TDAServerLog; SQLErrorLog: TDASQLErrorLog) of object;
+  TDALogClassesDefinitionEvent = procedure(Sender: TDAServerLog;
+                                         var aSessionLogClass: TDASessionLogClass;
+                                         var aSQLCommandLogClass: TDASQLCommandLogClass;
+                                         var aSQLErrorLogClass: TDASQLErrorLogClass) of object;
+
+  { TDAServerLog }
+  TDAServerLog = class(TComponent)
+  private
+    fSessionsLogs: TStringList;
+    fSQLCommandLogs,
+    fSQLErrorsLogs: TObjectList;
+    fOnAddSQLCommandLog: TDASQLCommandLogEvent;
+    fOnAddSQLErrorLog: TDASQLErrorLogEvent;
+    fOnAddSessionLog: TDASessionLogEvent;
+    fActive: boolean;
+    fOnRemoveSessionLog: TDASessionLogRemoveEvent;
+
+    fCriticalSessions,
+    fCriticalSQLCommands,
+    fCriticalSQLErrors: TCriticalSection;
+    fOnLogClassesDefinition: TDALogClassesDefinitionEvent;
+
+    fSessionLogClass: TDASessionLogClass;
+    fSQLCommandLogClass: TDASQLCommandLogClass;
+    fSQLErrorLogClass: TDASQLErrorLogClass;
+
+    function GetSQLCommandLogsCount: integer;
+    function GetSQLCommandLogs(Index: integer): TDASQLCommandLog;
+    function GetSQLErrorLogs(Index: integer): TDASQLErrorLog;
+    function GetSessionLogsCount: integer;
+    function GetSessionLogs(Index: integer): TDASessionLog;
+    function GetSQLErrorLogsCount: integer;
+
+  protected
+    procedure RegisterLogServer;
+    procedure UnRegisterLogServer;
+
+    procedure Loaded; override;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure SaveToXML(aFileName: string); overload;
+    procedure SaveToXML(const aXMLDocument: IXMLDocument); overload; virtual;
+
+    { Session logs }
+    function FindSessionLog(aSession: TROSession): TDASessionLog; overload;
+    function FindSessionLog(aSessionID: TGUID): TDASessionLog; overload;
+
+    function AddSessionLog(aSession: TROSession; aLoginInfo: TROComplexType): TDASessionLog;
+    procedure RemoveSessionLog(aSessionID: TGUID; aRemoveRelatedLogs: boolean); overload;
+    procedure RemoveSessionLog(aSession: TROSession; aRemoveRelatedLogs: boolean); overload;
+    procedure ClearSessionLogs(aRemoveRelatedLogs: boolean);
+
+    { SQL command logs }
+    function AddSQLCommandLog(aSession: TROSession; const aCommand: IDASQLCommand;
+                              anActualSQLText: string; aElapsedMilliseconds: Cardinal): TDASQLCommandLog;
+    procedure ClearSQLCommandLogs; overload;
+    procedure ClearSQLCommandLogs(aSessionID: TGUID); overload;
+
+    { SQL error logs }
+    function AddSQLErrorLog(aSession: TROSession; aError: Exception; const aCommand: IDASQLCommand;
+                            aActualSQLText: string): TDASQLErrorLog;
+    procedure ClearSQLErrorLogs; overload;
+    procedure ClearSQLErrorLogs(aSessionID: TGUID); overload;
+
+    { Properties }
+    property SessionLogs[Index: integer]: TDASessionLog read GetSessionLogs;
+    property SessionLogsCount: integer read GetSessionLogsCount;
+
+    property SQLCommandLogs[Index: integer]: TDASQLCommandLog read GetSQLCommandLogs;
+    property SQLCommandLogsCount: integer read GetSQLCommandLogsCount;
+
+    property SQLErrorLogs[Index: integer]: TDASQLErrorLog read GetSQLErrorLogs;
+    property SQLErrorLogsCount: integer read GetSQLErrorLogsCount;
+
+  published
+    property Active: boolean read fActive write fActive;
+
+    property OnAddSessionLog: TDASessionLogEvent read fOnAddSessionLog write fOnAddSessionLog;
+    property OnRemoveSessionLog: TDASessionLogRemoveEvent read fOnRemoveSessionLog write fOnRemoveSessionLog;
+    property OnAddSQLCommandLog: TDASQLCommandLogEvent read fOnAddSQLCommandLog write fOnAddSQLCommandLog;
+    property OnAddSQLErrorLog: TDASQLErrorLogEvent read fOnAddSQLErrorLog write fOnAddSQLErrorLog;
+    property OnLogClassesDefinition: TDALogClassesDefinitionEvent read fOnLogClassesDefinition write fOnLogClassesDefinition;
+  end;
+
+function ServerLog: TDAServerLog;
+
+implementation
+
+var _ServerLog: TDAServerLog;
+
+function ServerLog: TDAServerLog;
+begin
+  if not Assigned(_ServerLog)
+    then raise Exception.Create('No TDAServerLog have been registered');
+
+  result := _ServerLog;
+end;
+
+{ TDALogItem }
+
+procedure TDALogItem.AssignSession(aSession: TROSession);
+begin
+  if Assigned(aSession)
+    then fSessionID := aSession.SessionID
+    else fSessionID := EmptyGUID;
+end;
+
+constructor TDALogItem.Create(aServerLog: TDAServerLog; aSession: TROSession);
+begin
+  fCreationTime := Now;
+  fServerLog := aServerLog;
+  AssignSession(aSession);
+end;
+
+destructor TDALogItem.Destroy;
+begin
+  inherited;
+end;
+
+function TDALogItem.GetSessionIDAsString: string;
+begin
+  result := GUIDToString(fSessionID)
+end;
+
+{ TDASessionLog }
+
+procedure TDASessionLog.AssignLoginInfo(aLoginInfo: TROComplexType);
+begin
+  fLoginInfo := TROComplexTypeClass(aLoginInfo.ClassType).Create;
+  fLoginInfo.Assign(aLoginInfo);
+end;
+
+constructor TDASessionLog.Create(aServerLog: TDAServerLog; aSession: TROSession; aLoginInfo: TROComplexType);
+begin
+  inherited Create(aServerLog, aSession);
+
+  AssignLoginInfo(aLoginInfo);
+end;
+
+destructor TDASessionLog.Destroy;
+begin
+  FreeAndNIL(fLoginInfo);
+  inherited;
+end;
+
+{ TDASQLCommandLog }
+
+constructor TDASQLCommandLog.Create(aServerLog: TDAServerLog; aSession: TROSession;
+  const aCommand: IDASQLCommand; aActualSQLText: string; aElapsedMilliseconds: Cardinal);
+begin
+  inherited Create(aServerLog, aSession);
+
+  fElapsedMilliseconds := aElapsedMilliseconds;
+  fOriginalSQLText := aCommand.SQL;
+  fActualSQLText := aActualSQLText;
+  fParams := TDAParamCollection.Create(NIL);
+  if (aCommand.Params.Count>0)
+    then fParams.Assign(aCommand.Params);
+end;
+
+destructor TDASQLCommandLog.Destroy;
+begin
+  FreeAndNIL(fParams);
+  inherited;
+end;
+
+{ TDASQLErrorLog }
+
+constructor TDASQLErrorLog.Create(aServerLog: TDAServerLog; aSession: TROSession;
+  aError: Exception; const aCommand: IDASQLCommand; aActualSQLText: string);
+begin
+  inherited Create(aServerLog, aSession, aCommand, aActualSQLText, 0);
+
+  fErrorMessage := aError.Message;
+end;
+
+{ TDAServerLog }
+constructor TDAServerLog.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fCriticalSessions := TCriticalSection.Create;
+  fCriticalSQLCommands := TCriticalSection.Create;
+  fCriticalSQLErrors := TCriticalSection.Create;
+
+  fSessionsLogs := TStringList.Create;
+  fSessionsLogs.Sorted := TRUE;
+
+  fSQLCommandLogs := TObjectList.Create;
+  fSQLErrorsLogs := TObjectList.Create;
+end;
+
+destructor TDAServerLog.Destroy;
+begin
+  if not (csDesigning in ComponentState) then UnRegisterLogServer;
+
+  ClearSessionLogs(FALSE);
+  FreeAndNIL(fSessionsLogs);
+
+  ClearSQLCommandLogs;
+  FreeAndNIL(fSQLCommandLogs);
+
+  ClearSQLErrorLogs;
+  FreeAndNIL(fSQLErrorsLogs);
+
+  FreeAndNIL(fCriticalSessions);
+  FreeAndNIL(fCriticalSQLCommands);
+  FreeAndNIL(fCriticalSQLErrors);
+
+  inherited;
+end;
+
+procedure TDAServerLog.Loaded;
+begin
+  if (csDesigning in ComponentState) then Exit;
+
+  RegisterLogServer;
+
+  fSessionLogClass := TDASessionLog;
+  fSQLCommandLogClass := TDASQLCommandLog;
+  fSQLErrorLogClass := TDASQLErrorLog;
+
+  if Assigned(fOnLogClassesDefinition)
+    then fOnLogClassesDefinition(Self, fSessionLogClass, fSQLCommandLogClass, fSQLErrorLogClass);
+end;
+
+function TDAServerLog.AddSQLCommandLog(aSession: TROSession; const aCommand: IDASQLCommand;
+                           anActualSQLText: string; aElapsedMilliseconds: Cardinal): TDASQLCommandLog;
+begin
+  result := NIL;
+  if not Active then Exit;
+
+  result := fSQLCommandLogClass.Create(Self, aSession, aCommand, anActualSQLText, aElapsedMilliseconds);
+
+  fCriticalSQLCommands.Enter;
+  try
+    fSQLCommandLogs.Add(result);
+
+    if Assigned(fOnAddSQLCommandLog)
+      then fOnAddSQLCommandLog(Self, result);
+  finally
+    fCriticalSQLCommands.Leave;
+  end;
+end;
+
+function TDAServerLog.AddSQLErrorLog(aSession: TROSession; aError: Exception; const aCommand: IDASQLCommand;
+  aActualSQLText: string): TDASQLErrorLog;
+begin
+  result := NIL;
+  if not Active then Exit;
+
+  result := fSQLErrorLogClass.Create(Self, aSession, aError, aCommand, aActualSQLText);
+  fCriticalSQLErrors.Enter;
+  try
+    fSQLErrorsLogs.Add(result);
+
+    if Assigned(OnAddSQLErrorLog)
+      then OnAddSQLErrorLog(Self, result);
+  finally
+    fCriticalSQLErrors.Leave;
+  end;
+end;
+
+procedure TDAServerLog.Assign(Source: TPersistent);
+var
+  lSource: TDAServerLog;
+begin
+  inherited;
+  if Source is TDAServerLog then begin
+    lSource := TDAServerLog(Source);
+
+    Active := lSource.Active;
+    OnAddSessionLog := lSource.OnAddSessionLog;
+    OnAddSQLCommandLog := lSource.OnAddSQLCommandLog;
+    OnAddSQLErrorLog := lSource.OnAddSQLErrorLog;
+    OnLogClassesDefinition := lSource.OnLogClassesDefinition;
+    OnRemoveSessionLog := lSource.OnRemoveSessionLog;
+  end;
+end;
+
+function TDAServerLog.AddSessionLog(aSession: TROSession; aLoginInfo: TROComplexType): TDASessionLog;
+begin
+  result := NIL;
+  if not Active then Exit;
+
+  result := fSessionLogClass.Create(Self, aSession, aLoginInfo);
+
+  fCriticalSessions.Enter;
+  try
+    fSessionsLogs.AddObject(GUIDToString(aSession.SessionID), result);
+
+    if Assigned(fOnAddSessionLog)
+      then fOnAddSessionLog(Self, result);
+  finally
+    fCriticalSessions.Leave;
+  end;
+end;
+
+procedure TDAServerLog.RemoveSessionLog(aSessionID: TGUID; aRemoveRelatedLogs: boolean);
+var idx: integer;
+    removeRelated: boolean;
+begin
+  fCriticalSessions.Enter;
+  try
+    idx := fSessionsLogs.IndexOf(GUIDToString(aSessionID));
+    if (idx>=0) then begin
+      removeRelated := aRemoveRelatedLogs;
+
+      if Assigned(fOnRemoveSessionLog)
+        then fOnRemoveSessionLog(Self, TDASessionLog(fSessionsLogs.Objects[idx]), removeRelated);
+
+      fSessionsLogs.Objects[idx].Free;
+      fSessionsLogs.Delete(idx);
+
+      { Removes the entries associated to this session in the sql and errors lists }
+      if removeRelated then begin
+        ClearSQLCommandLogs(aSessionID);
+        ClearSQLErrorLogs(aSessionID);
+      end;
+    end;
+  finally
+    fCriticalSessions.Leave;
+  end;
+end;
+
+procedure TDAServerLog.RemoveSessionLog(aSession: TROSession; aRemoveRelatedLogs: boolean);
+begin
+  RemoveSessionLog(aSession.SessionID, aRemoveRelatedLogs);
+end;
+
+function TDAServerLog.GetSQLCommandLogsCount: integer;
+begin
+  result := fSQLCommandLogs.Count
+end;
+
+function TDAServerLog.GetSQLCommandLogs(Index: integer): TDASQLCommandLog;
+begin
+  result := TDASQLCommandLog(fSQLCommandLogs[Index])
+end;
+
+function TDAServerLog.GetSQLErrorLogsCount: integer;
+begin
+  result := fSQLErrorsLogs.Count
+end;
+
+function TDAServerLog.GetSQLErrorLogs(Index: integer): TDASQLErrorLog;
+begin
+  result := TDASQLErrorLog(fSQLErrorsLogs[Index])
+end;
+
+function TDAServerLog.GetSessionLogsCount: integer;
+begin
+  result := fSessionsLogs.Count
+end;
+
+function TDAServerLog.GetSessionLogs(Index: integer): TDASessionLog;
+begin
+  result := TDASessionLog(fSessionsLogs.Objects[Index])
+end;
+
+procedure TDAServerLog.RegisterLogServer;
+begin
+  if (_ServerLog<>NIL)
+    then raise Exception.Create('Only one instance of TDAServerLog is allowed');
+
+  _ServerLog := Self;
+end;
+
+procedure TDAServerLog.UnRegisterLogServer;
+begin
+  _ServerLog := NIL;
+end;
+
+procedure TDAServerLog.ClearSQLCommandLogs;
+begin
+  fCriticalSQLCommands.Enter;
+  try
+    fSQLCommandLogs.Clear;
+  finally
+    fCriticalSQLCommands.Leave;
+  end;
+end;
+
+procedure TDAServerLog.ClearSQLErrorLogs;
+begin
+  fCriticalSQLErrors.Enter;
+  try
+    fSQLErrorsLogs.Clear;
+  finally
+    fCriticalSQLErrors.Leave;
+  end;
+end;
+
+
+procedure TDAServerLog.ClearSQLCommandLogs(aSessionID: TGUID);
+var i: integer;
+begin
+  fCriticalSQLCommands.Enter;
+  try
+    for i := fSQLCommandLogs.Count-1 downto 0 do
+      if IsEqualGUID(TDASQLCommandLog(fSQLCommandLogs[i]).SessionID, aSessionID)
+        then fSQLCommandLogs.Delete(i);
+  finally
+    fCriticalSQLCommands.Leave;
+  end;
+end;
+
+procedure TDAServerLog.ClearSQLErrorLogs(aSessionID: TGUID);
+var i: integer;
+begin
+  fCriticalSQLErrors.Enter;
+  try
+    for i := fSQLErrorsLogs.Count-1 downto 0 do
+      if IsEqualGUID(TDASQLErrorLog(fSQLErrorsLogs[i]).SessionID, aSessionID)
+        then fSQLErrorsLogs.Delete(i);
+  finally
+    fCriticalSQLErrors.Leave;
+  end;
+end;
+
+procedure TDAServerLog.ClearSessionLogs(aRemoveRelatedLogs: boolean);
+var i: integer;
+    thisLog: TDASessionLog;
+begin
+  fCriticalSessions.Enter;
+  try
+    for i := 0 to (fSessionsLogs.Count-1) do begin
+      thisLog := TDASessionLog(fSessionsLogs.Objects[i]);
+
+      if aRemoveRelatedLogs then begin
+        ClearSQLCommandLogs(thisLog.SessionID);
+        ClearSQLErrorLogs(thisLog.SessionID);
+      end;
+
+      thisLog.Free;
+    end;
+
+    fSessionsLogs.Clear;
+  finally
+    fCriticalSessions.Leave;
+  end;
+end;
+
+
+function TDAServerLog.FindSessionLog(aSession: TROSession): TDASessionLog;
+begin
+  if (aSession<>NIL)
+    then result := FindSessionLog(aSession.SessionID)
+    else result := NIL;
+end;
+
+function TDAServerLog.FindSessionLog(aSessionID: TGUID): TDASessionLog;
+var idx: integer;
+begin
+  result := NIL;
+  idx := fSessionsLogs.IndexOf(GUIDToString(aSessionID));
+  if (idx>=0) then result := TDASessionLog(fSessionsLogs.Objects[idx]);
+end;
+
+procedure TDAServerLog.SaveToXML(aFileName: string);
+var doc: IXMLDocument;
+begin
+  doc := NewROXmlDocument;
+  doc.New('Log');
+  SaveToXML(doc);
+  doc.SaveToFile(aFileName);
+end;
+
+procedure TDAServerLog.SaveToXML(const aXMLDocument: IXMLDocument);
+var i: integer;
+    sessionLog: TDASessionLog;
+    sqlLog: TDASQLCommandLog;
+    errorLog: TDASQLErrorLog;
+begin
+  with TROXMLSerializer.Create(pointer(aXMLDocument.DocumentNode)) do try
+    SerializationOptions := [xsoSendUntyped];
+
+    for i := 0 to SessionLogsCount-1 do begin
+      sessionLog := SessionLogs[i];
+      Write(sessionLog.ClassName, sessionLog.ClassInfo, sessionLog);
+    end;
+
+    for i := 0 to SQLCommandLogsCount-1 do begin
+      sqlLog := SQLCommandLogs[i];
+      Write(sqlLog.ClassName, sqlLog.ClassInfo, sqlLog);
+    end;
+
+    for i := 0 to SQLErrorLogsCount-1 do begin
+      errorLog := SQLErrorLogs[i];
+      Write(errorLog.ClassName, errorLog.ClassInfo, errorLog);
+    end;
+
+  finally
+    Free;
+  end;
+end;
+
+initialization
+  RegisterROClass(TDASessionLog);
+  RegisterROClass(TDASQLCommandLog);
+  RegisterROClass(TDASQLErrorLog);
+
+finalization
+  FreeAndNIL(_ServerLog);
+
+  UnRegisterROClass(TDASessionLog);
+  UnRegisterROClass(TDASQLCommandLog);
+  UnRegisterROClass(TDASQLErrorLog);
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASupportClasses.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASupportClasses.pas
new file mode 100644
index 0000000..d848454
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASupportClasses.pas	
@@ -0,0 +1,412 @@
+unit uDASupportClasses;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses Classes;
+
+type
+  { TCollectionEvents }
+  TCollectionNotificationEvent = procedure(Item: TCollectionItem; Action: TCollectionNotification) of object;
+
+  { TInterfacedCollectionItem }
+  TInterfacedCollectionItem = class(TCollectionItem, IUnknown)
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+  end;
+
+  TDAItemRenamedEvent = procedure(aSender: TObject; const aOldName, aNewName: string) of object;
+  TDAItemRemovedEvent = procedure(aSender: TObject; const aName: string) of object;
+
+  { TSearcheableCollection }
+  TSearcheableCollection = class(TOwnedCollection)
+  private
+    fOnNotification: TCollectionNotificationEvent;
+    fOnItemRemoved: TDAItemRemovedEvent;
+    fOnItemRenamed: TDAItemRenamedEvent;
+
+  protected
+    FAllowEmptyName: Boolean;
+    function SetItemName(anItem: TCollectionItem; const aName: string): string; reintroduce; dynamic;
+    function GetItemName(anItem: TCollectionItem): string; reintroduce; dynamic;
+    function GetItemDefault(anItem: TCollectionItem): boolean; dynamic;
+
+    procedure Notify(Item: TCollectionItem; Action: TCollectionNotification); override;
+
+    function ItemName: string; virtual;
+
+  public
+    constructor Create(AOwner: TPersistent; ItemClass: TCollectionItemClass);
+    function ItemByName(const aName: string): TCollectionItem;
+    function FindItem(const aName: string): TCollectionItem; virtual;
+    function GetDefaultItem: TCollectionItem;
+
+    procedure TriggerOnItemRenamed(const iOldName, iNewName: string); virtual;
+    procedure TriggerOnItemRemoved(const iName: string); virtual;
+
+    function FindUniqueName(const iBaseName: string): string;
+    function FindUniqueNameEx(const iBaseName, iNumberedName: string): string;
+    function CloneItem(iIndex: integer): integer;
+
+    procedure MoveItem(iFromIndex, iToIndex: integer);
+
+    property OnNotification: TCollectionNotificationEvent read fOnNotification write fOnNotification;
+
+    property OnItemRenamed: TDAItemRenamedEvent read fOnItemRenamed write fOnItemRenamed;
+    property OnItemRemoved: TDAItemRemovedEvent read fOnItemRemoved write fOnItemRemoved;
+  end;
+
+  TSearcheableCollectionCached = class(TSearcheableCollection)
+  private
+    FNameList: TStringList;
+    fNeedRebuild: Boolean;
+    procedure RebuildList;
+  protected
+    procedure Notify(Item: TCollectionItem; Action: TCollectionNotification); override;
+  public
+    constructor Create(AOwner: TPersistent; ItemClass: TCollectionItemClass);
+    destructor Destroy; override;
+    procedure TriggerOnItemRenamed(const iOldName, iNewName: string); override;
+    procedure TriggerOnItemRemoved(const iName: string); override;
+    function FindItem(const aName: string): TCollectionItem; override;
+  end;
+
+  { TSearcheableInterfacedCollection }
+  TSearcheableInterfacedCollection = class(TSearcheableCollectionCached, IUnknown)
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+
+    // Required by most interfaces
+    function GetCount: integer;
+
+  end;
+
+  { TSearcheableInterfacedCollection }
+  TInterfacedCollection = class(TOwnedCollection, IUnknown)
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+
+    // Required by most interfaces
+    function GetCount: integer;
+
+  end;
+
+
+implementation
+
+uses uROClasses, uDARes, TypInfo, SysUtils;
+
+{ TInterfacedCollectionItem }
+
+function TInterfacedCollectionItem._AddRef: Integer;
+begin
+  result := -1;
+end;
+
+function TInterfacedCollectionItem._Release: Integer;
+begin
+  result := -1;
+end;
+
+function TInterfacedCollectionItem.QueryInterface(const IID: TGUID; out Obj): HResult;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+{ TSearcheableInterfacedCollection }
+
+function TSearcheableInterfacedCollection._AddRef: Integer;
+begin
+  result := -1;
+end;
+
+function TSearcheableInterfacedCollection._Release: Integer;
+begin
+  result := -1;
+end;
+
+function TSearcheableInterfacedCollection.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+function TSearcheableInterfacedCollection.GetCount: integer;
+begin
+  result := Count;
+end;
+
+{ TSearcheableCollection }
+
+function TSearcheableCollection.GetDefaultItem: TCollectionItem;
+var
+  i: integer;
+begin
+  result := nil;
+  for i := 0 to (Count - 1) do
+    if GetItemDefault(Items[i]) then begin
+      result := Items[i];
+      Exit;
+    end;
+
+  RaiseError(err_CannotFindDefaultItem,[ItemName]);
+end;
+
+function TSearcheableCollection.FindItem(
+  const aName: string): TCollectionItem;
+var
+  i: integer;
+  nme: string;
+begin
+  result := nil;
+  for i := 0 to (Count - 1) do begin
+    nme := GetItemName(Items[i]);
+    if SameText(nme, aName) then begin
+      result := Items[i];
+      Exit;
+    end;
+  end;
+end;
+
+function TSearcheableCollection.GetItemDefault(
+  anItem: TCollectionItem): boolean;
+begin
+  try
+    result := GetPropValue(anItem, 'Default', TRUE); // Defaul implementation. Not super-fast but for now's ok
+  except
+    on e: EPropertyError do
+      raise EPropertyError.CreateFmt('The %s collection doesn''t support Default items',[ClassName]);
+    else
+      raise;
+  end;
+end;
+
+function TSearcheableCollection.GetItemName(
+  anItem: TCollectionItem): string;
+begin
+  result := GetPropValue(anItem, 'Name', TRUE); // Defaul implementation. Not super-fast but for now's ok
+end;
+
+function TSearcheableCollection.ItemByName(
+  const aName: string): TCollectionItem;
+begin
+  { ToDo: This is not perfect, since not all collections will properly support GetDefaultItem. }
+  if (aName = '') then
+    result := GetDefaultItem
+  else
+    result := FindItem(aName);
+
+  Check(result = nil, err_CannotFindItem, [ItemName, aName, ClassName]);
+end;
+
+procedure TSearcheableCollection.Notify(Item: TCollectionItem;
+  Action: TCollectionNotification);
+begin
+  inherited;
+
+  if (not FAllowEmptyName) and (Action = cnAdded) then begin
+    if (GetItemName(Item) = '') then SetItemName(Item, 'Item' + IntToStr(Count));
+  end;
+
+  if Action = cnDeleting then
+    TriggerOnItemRemoved(GetItemName(Item));
+
+  if Assigned(fOnNotification) then fOnNotification(Item, Action);
+end;
+
+function TSearcheableCollection.SetItemName(anItem: TCollectionItem; const aName: string): string;
+begin
+  SetPropValue(anItem, 'Name', aName); // Defaul implementation. Not super-fast but for now's ok
+end;
+
+function TSearcheableCollection.CloneItem(iIndex: integer): integer;
+var
+  lOldItem, lNewItem: TCollectionItem;
+begin
+  lOldItem := Items[iIndex];
+  lNewItem := Add();
+  lNewItem.Assign(lOldItem);
+  lNewItem.DisplayName := FindUniqueNameEx('Copy of ' + lOldItem.DisplayName, 'Copy (%d) of ' + lOldItem.DisplayName);
+  result := lNewItem.Index;
+end;
+
+procedure TSearcheableCollection.MoveItem(iFromIndex, iToIndex: integer);
+var
+  lSave: TCollectionItem;
+  lOld: TCollectionItem;
+begin
+  if (iFromIndex < 0) or (iFromIndex >= Count) then raise ERangeError.CreateFmt('iFromIndex out of range (%d).', [iFromIndex]);
+  if (iToIndex < 0) or (iToIndex >= Count) then raise ERangeError.CreateFmt('iToIndex out of range (%d).', [iToIndex]);
+
+  lOld := Items[iFromIndex];
+
+  if iToIndex > iFromIndex then inc(iToIndex); //account for the old item that will be removed later
+
+  lSave := Insert(iToIndex);
+  lSave.Assign(lOld);
+  Delete(lOld.Index);
+end;
+
+function TSearcheableCollection.FindUniqueName(const iBaseName: string): string;
+var
+  lIndex: integer;
+begin
+  result := iBaseName;
+  lIndex := 0;
+  while Assigned(FindItem(result)) do begin
+    inc(lIndex);
+    result := iBaseName + IntToStr(lIndex);
+  end;
+end;
+
+function TSearcheableCollection.FindUniqueNameEx(const iBaseName, iNumberedName: string): string;
+var
+  lIndex: integer;
+begin
+  result := iBaseName;
+  lIndex := 0;
+  while Assigned(FindItem(result)) do begin
+    inc(lIndex);
+    result := Format(iNumberedName, [lIndex]);
+  end;
+end;
+
+function TSearcheableCollection.ItemName: string;
+begin
+  result := 'item';
+end;
+
+procedure TSearcheableCollection.TriggerOnItemRemoved(const iName: string);
+begin
+  if Assigned(OnItemRemoved) then OnItemRemoved(self, iName);
+end;
+
+procedure TSearcheableCollection.TriggerOnItemRenamed(const iOldName, iNewName: string);
+begin
+  if Assigned(OnItemRenamed) then OnItemRenamed(self, iOldName, iNewName);
+end;
+
+constructor TSearcheableCollection.Create(AOwner: TPersistent;
+  ItemClass: TCollectionItemClass);
+begin
+  inherited Create(AOwner,ItemClass);
+  FAllowEmptyName:=False; 
+end;
+
+{ TInterfacedCollection }
+
+function TInterfacedCollection._AddRef: Integer;
+begin
+  result := -1;
+end;
+
+function TInterfacedCollection._Release: Integer;
+begin
+  result := -1;
+end;
+
+function TInterfacedCollection.GetCount: integer;
+begin
+  result := -1;
+end;
+
+function TInterfacedCollection.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+{ TSearcheableCollectionCached }
+
+constructor TSearcheableCollectionCached.Create(AOwner: TPersistent;
+  ItemClass: TCollectionItemClass);
+begin
+  inherited Create(AOwner,ItemClass);
+  FNameList := TStringList.Create;
+  FNameList.CaseSensitive:=False;
+  fNeedRebuild := True;
+end;
+
+destructor TSearcheableCollectionCached.Destroy;
+begin
+  FNameList.Free;
+  inherited;
+end;
+
+function TSearcheableCollectionCached.FindItem(
+  const aName: string): TCollectionItem;
+var
+  i: integer;
+begin
+  if fNeedRebuild then RebuildList;
+  i := FNameList.IndexOf(aName);
+  if i = -1 then
+    Result := nil
+  else
+    Result := TCollectionItem(FNameList.Objects[i]);
+end;
+
+procedure TSearcheableCollectionCached.Notify(Item: TCollectionItem;
+  Action: TCollectionNotification);
+begin
+  fNeedRebuild := True;
+  inherited;
+end;
+
+procedure TSearcheableCollectionCached.RebuildList;
+var
+  i: integer;
+begin
+  FNameList.Sorted:=False;
+  FNameList.Clear;
+  FNameList.Capacity:= Self.Count;
+  for i := 0 to Count -1 do
+    FNameList.AddObject(GetItemName(Items[i]),Items[i]);
+  FNameList.Sorted:=True;
+  fNeedRebuild := False;
+end;
+
+procedure TSearcheableCollectionCached.TriggerOnItemRenamed(const iOldName,
+  iNewName: string);
+begin
+  fNeedRebuild := True;
+  inherited TriggerOnItemRenamed(iOldName, iNewName);
+end;
+
+procedure TSearcheableCollectionCached.TriggerOnItemRemoved(
+  const iName: string);
+begin
+  fNeedRebuild := True;
+  inherited TriggerOnItemRemoved(iName);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASybaseInterfaces.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASybaseInterfaces.pas
new file mode 100644
index 0000000..247807b
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDASybaseInterfaces.pas	
@@ -0,0 +1,801 @@
+unit uDASybaseInterfaces;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses uDAInterfaces, uDAEngine;
+
+type
+  { IDASybaseConnection
+      For identification purposes. Implemented by all Sybase connections }
+  IDASybaseConnection = interface(IDAConnection)
+    ['{901F16BC-4A56-4ADB-BFF9-87D23590C326}']
+  end;
+
+
+function Sybase_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+
+implementation
+uses
+  SysUtils;
+  
+var
+  Sybase_reservedwords: array of string;
+
+function Sybase_IdentifierNeedsQuoting(const iIdentifier: string): boolean;
+begin
+  Result := TestIdentifier(iIdentifier, Sybase_reservedwords);
+end;
+
+procedure Sybase_InitializeReservedWords;
+begin
+// from http://publib.boulder.ibm.com/infocenter/Sybaseluw/v9r5/topic/com.ibm.Sybase.luw.sql.ref.doc/doc/r0001095.html
+  SetLength(Sybase_reservedwords, 747);
+  // sorted with TStringList.Sort (bds2007)    
+  Sybase_reservedwords[0] := 'A';
+  Sybase_reservedwords[1] := 'ABORT';
+  Sybase_reservedwords[2] := 'ABS';
+  Sybase_reservedwords[3] := 'ABSOLUTE';
+  Sybase_reservedwords[4] := 'ACCESS';
+  Sybase_reservedwords[5] := 'ACOS';
+  Sybase_reservedwords[6] := 'ACQUIRE';
+  Sybase_reservedwords[7] := 'ACTION';
+  Sybase_reservedwords[8] := 'ACTIVATE';
+  Sybase_reservedwords[9] := 'ADA';
+  Sybase_reservedwords[10] := 'ADD';
+  Sybase_reservedwords[11] := 'ADDFORM';
+  Sybase_reservedwords[12] := 'ADMIN';
+  Sybase_reservedwords[13] := 'AFTER';
+  Sybase_reservedwords[14] := 'AGGREGATE';
+  Sybase_reservedwords[15] := 'ALIAS';
+  Sybase_reservedwords[16] := 'ALL';
+  Sybase_reservedwords[17] := 'ALLOCATE';
+  Sybase_reservedwords[18] := 'ALTER';
+  Sybase_reservedwords[19] := 'AN';
+  Sybase_reservedwords[20] := 'ANALYZE';
+  Sybase_reservedwords[21] := 'AND';
+  Sybase_reservedwords[22] := 'ANY';
+  Sybase_reservedwords[23] := 'APPEND';
+  Sybase_reservedwords[24] := 'ARCHIVE';
+  Sybase_reservedwords[25] := 'ARCHIVELOG';
+  Sybase_reservedwords[26] := 'ARE';
+  Sybase_reservedwords[27] := 'ARRAY';
+  Sybase_reservedwords[28] := 'ARRAYLEN';
+  Sybase_reservedwords[29] := 'AS';
+  Sybase_reservedwords[30] := 'ASC';
+  Sybase_reservedwords[31] := 'ASCII';
+  Sybase_reservedwords[32] := 'ASIN';
+  Sybase_reservedwords[33] := 'ASSERTION';
+  Sybase_reservedwords[34] := 'AT';
+  Sybase_reservedwords[35] := 'ATAN';
+  Sybase_reservedwords[36] := 'AUDIT';
+  Sybase_reservedwords[37] := 'AUTHORIZATION';
+  Sybase_reservedwords[38] := 'AVG';
+  Sybase_reservedwords[39] := 'AVGU';
+  Sybase_reservedwords[40] := 'BACKUP';
+  Sybase_reservedwords[41] := 'BECOME';
+  Sybase_reservedwords[42] := 'BEFORE';
+  Sybase_reservedwords[43] := 'BEGIN';
+  Sybase_reservedwords[44] := 'BETWEEN';
+  Sybase_reservedwords[45] := 'BIGINT';
+  Sybase_reservedwords[46] := 'BINARY';
+  Sybase_reservedwords[47] := 'BIND';
+  Sybase_reservedwords[48] := 'BINDING';
+  Sybase_reservedwords[49] := 'BIT';
+  Sybase_reservedwords[50] := 'BLOB';
+  Sybase_reservedwords[51] := 'BLOCK';
+  Sybase_reservedwords[52] := 'BODY';
+  Sybase_reservedwords[53] := 'BOOLEAN';
+  Sybase_reservedwords[54] := 'BOTH';
+  Sybase_reservedwords[55] := 'BREADTH';
+  Sybase_reservedwords[56] := 'BREAK';
+  Sybase_reservedwords[57] := 'BREAKDISPLAY';
+  Sybase_reservedwords[58] := 'BROWSE';
+  Sybase_reservedwords[59] := 'BUFFERPOOL';
+  Sybase_reservedwords[60] := 'BULK';
+  Sybase_reservedwords[61] := 'BY';
+  Sybase_reservedwords[62] := 'BYREF';
+  Sybase_reservedwords[63] := 'CACHE';
+  Sybase_reservedwords[64] := 'CALL';
+  Sybase_reservedwords[65] := 'CALLPROC';
+  Sybase_reservedwords[66] := 'CANCEL';
+  Sybase_reservedwords[67] := 'CAPTURE';
+  Sybase_reservedwords[68] := 'CASCADE';
+  Sybase_reservedwords[69] := 'CASCADED';
+  Sybase_reservedwords[70] := 'CASE';
+  Sybase_reservedwords[71] := 'CAST';
+  Sybase_reservedwords[72] := 'CATALOG';
+  Sybase_reservedwords[73] := 'CCSID';
+  Sybase_reservedwords[74] := 'CEILING';
+  Sybase_reservedwords[75] := 'CHANGE';
+  Sybase_reservedwords[76] := 'CHAR';
+  Sybase_reservedwords[77] := 'CHARACTER';
+  Sybase_reservedwords[78] := 'CHARTOROWID';
+  Sybase_reservedwords[79] := 'CHECK';
+  Sybase_reservedwords[80] := 'CHECKPOINT';
+  Sybase_reservedwords[81] := 'CHR';
+  Sybase_reservedwords[82] := 'CLASS';
+  Sybase_reservedwords[83] := 'CLEANUP';
+  Sybase_reservedwords[84] := 'CLEAR';
+  Sybase_reservedwords[85] := 'CLEARROW';
+  Sybase_reservedwords[86] := 'CLOB';
+  Sybase_reservedwords[87] := 'CLOSE';
+  Sybase_reservedwords[88] := 'CLUSTER';
+  Sybase_reservedwords[89] := 'CLUSTERED';
+  Sybase_reservedwords[90] := 'COALESCE';
+  Sybase_reservedwords[91] := 'COBOL';
+  Sybase_reservedwords[92] := 'COLGROUP';
+  Sybase_reservedwords[93] := 'COLLATE';
+  Sybase_reservedwords[94] := 'COLLATION';
+  Sybase_reservedwords[95] := 'COLLECTION';
+  Sybase_reservedwords[96] := 'COLUMN';
+  Sybase_reservedwords[97] := 'COMMAND';
+  Sybase_reservedwords[98] := 'COMMENT';
+  Sybase_reservedwords[99] := 'COMMIT';
+  Sybase_reservedwords[100] := 'COMMITTED';
+  Sybase_reservedwords[101] := 'COMPILE';
+  Sybase_reservedwords[102] := 'COMPLETION';
+  Sybase_reservedwords[103] := 'COMPLEX';
+  Sybase_reservedwords[104] := 'COMPRESS';
+  Sybase_reservedwords[105] := 'COMPUTE';
+  Sybase_reservedwords[106] := 'CONCAT';
+  Sybase_reservedwords[107] := 'CONFIRM';
+  Sybase_reservedwords[108] := 'CONNECT';
+  Sybase_reservedwords[109] := 'CONNECTION';
+  Sybase_reservedwords[110] := 'CONSTRAINT';
+  Sybase_reservedwords[111] := 'CONSTRAINTS';
+  Sybase_reservedwords[112] := 'CONSTRUCTOR';
+  Sybase_reservedwords[113] := 'CONTAINS';
+  Sybase_reservedwords[114] := 'CONTAINSTABLE';
+  Sybase_reservedwords[115] := 'CONTENTS';
+  Sybase_reservedwords[116] := 'CONTINUE';
+  Sybase_reservedwords[117] := 'CONTROLFILE';
+  Sybase_reservedwords[118] := 'CONTROLROW';
+  Sybase_reservedwords[119] := 'CONVERT';
+  Sybase_reservedwords[120] := 'COPY';
+  Sybase_reservedwords[121] := 'CORRESPONDING';
+  Sybase_reservedwords[122] := 'COS';
+  Sybase_reservedwords[123] := 'COUNT';
+  Sybase_reservedwords[124] := 'COUNTU';
+  Sybase_reservedwords[125] := 'CREATE';
+  Sybase_reservedwords[126] := 'CROSS';
+  Sybase_reservedwords[127] := 'CUBE';
+  Sybase_reservedwords[128] := 'CURRENT';
+  Sybase_reservedwords[129] := 'CURRENT_DATE';
+  Sybase_reservedwords[130] := 'CURRENT_PATH';
+  Sybase_reservedwords[131] := 'CURRENT_ROLE';
+  Sybase_reservedwords[132] := 'CURRENT_TIME';
+  Sybase_reservedwords[133] := 'CURRENT_TIMESTAMP';
+  Sybase_reservedwords[134] := 'CURRENT_USER';
+  Sybase_reservedwords[135] := 'CURSOR';
+  Sybase_reservedwords[136] := 'CVAR';
+  Sybase_reservedwords[137] := 'CYCLE';
+  Sybase_reservedwords[138] := 'DATA';
+  Sybase_reservedwords[139] := 'DATABASE';
+  Sybase_reservedwords[140] := 'DATAFILE';
+  Sybase_reservedwords[141] := 'DATAHANDLER';
+  Sybase_reservedwords[142] := 'DATAPAGES';
+  Sybase_reservedwords[143] := 'DATE';
+  Sybase_reservedwords[144] := 'DAY';
+  Sybase_reservedwords[145] := 'DAYOFMONTH';
+  Sybase_reservedwords[146] := 'DAYOFWEEK';
+  Sybase_reservedwords[147] := 'DAYOFYEAR';
+  Sybase_reservedwords[148] := 'DAYS';
+  Sybase_reservedwords[149] := 'DBA';
+  Sybase_reservedwords[150] := 'DBCC';
+  Sybase_reservedwords[151] := 'DBSPACE';
+  Sybase_reservedwords[152] := 'DEALLOCATE';
+  Sybase_reservedwords[153] := 'DEC';
+  Sybase_reservedwords[154] := 'DECIMAL';
+  Sybase_reservedwords[155] := 'DECLARATION';
+  Sybase_reservedwords[156] := 'DECLARE';
+  Sybase_reservedwords[157] := 'DECODE';
+  Sybase_reservedwords[158] := 'DEFAULT';
+  Sybase_reservedwords[159] := 'DEFERRABLE';
+  Sybase_reservedwords[160] := 'DEFERRED';
+  Sybase_reservedwords[161] := 'DEFINE';
+  Sybase_reservedwords[162] := 'DEFINITION';
+  Sybase_reservedwords[163] := 'DEGREES';
+  Sybase_reservedwords[164] := 'DELETE';
+  Sybase_reservedwords[165] := 'DELETEROW';
+  Sybase_reservedwords[166] := 'DENY';
+  Sybase_reservedwords[167] := 'DEPTH';
+  Sybase_reservedwords[168] := 'DEREF';
+  Sybase_reservedwords[169] := 'DESC';
+  Sybase_reservedwords[170] := 'DESCRIBE';
+  Sybase_reservedwords[171] := 'DESCRIPTOR';
+  Sybase_reservedwords[172] := 'DESTROY';
+  Sybase_reservedwords[173] := 'DESTRUCTOR';
+  Sybase_reservedwords[174] := 'DETERMINISTIC';
+  Sybase_reservedwords[175] := 'DHTYPE';
+  Sybase_reservedwords[176] := 'DIAGNOSTICS';
+  Sybase_reservedwords[177] := 'DICTIONARY';
+  Sybase_reservedwords[178] := 'DIRECT';
+  Sybase_reservedwords[179] := 'DISABLE';
+  Sybase_reservedwords[180] := 'DISCONNECT';
+  Sybase_reservedwords[181] := 'DISK';
+  Sybase_reservedwords[182] := 'DISMOUNT';
+  Sybase_reservedwords[183] := 'DISPLAY';
+  Sybase_reservedwords[184] := 'DISTINCT';
+  Sybase_reservedwords[185] := 'DISTRIBUTE';
+  Sybase_reservedwords[186] := 'DISTRIBUTED';
+  Sybase_reservedwords[187] := 'DO';
+  Sybase_reservedwords[188] := 'DOMAIN';
+  Sybase_reservedwords[189] := 'DOUBLE';
+  Sybase_reservedwords[190] := 'DOWN';
+  Sybase_reservedwords[191] := 'DROP';
+  Sybase_reservedwords[192] := 'DUMMY';
+  Sybase_reservedwords[193] := 'DUMP';
+  Sybase_reservedwords[194] := 'DYNAMIC';
+  Sybase_reservedwords[195] := 'EACH';
+  Sybase_reservedwords[196] := 'EDITPROC';
+  Sybase_reservedwords[197] := 'ELSE';
+  Sybase_reservedwords[198] := 'ELSEIF';
+  Sybase_reservedwords[199] := 'ENABLE';
+  Sybase_reservedwords[200] := 'END';
+  Sybase_reservedwords[201] := 'ENDDATA';
+  Sybase_reservedwords[202] := 'ENDDISPLAY';
+  Sybase_reservedwords[203] := 'ENDEXEC';
+  Sybase_reservedwords[204] := 'END-EXEC';
+  Sybase_reservedwords[205] := 'ENDFORMS';
+  Sybase_reservedwords[206] := 'ENDIF';
+  Sybase_reservedwords[207] := 'ENDLOOP';
+  Sybase_reservedwords[208] := 'ENDSELECT';
+  Sybase_reservedwords[209] := 'ENDWHILE';
+  Sybase_reservedwords[210] := 'EQUALS';
+  Sybase_reservedwords[211] := 'ERASE';
+  Sybase_reservedwords[212] := 'ERRLVL';
+  Sybase_reservedwords[213] := 'ERROREXIT';
+  Sybase_reservedwords[214] := 'ESCAPE';
+  Sybase_reservedwords[215] := 'EVENTS';
+  Sybase_reservedwords[216] := 'EVERY';
+  Sybase_reservedwords[217] := 'EXCEPT';
+  Sybase_reservedwords[218] := 'EXCEPTION';
+  Sybase_reservedwords[219] := 'EXCEPTIONS';
+  Sybase_reservedwords[220] := 'EXCLUDE';
+  Sybase_reservedwords[221] := 'EXCLUDING';
+  Sybase_reservedwords[222] := 'EXCLUSIVE';
+  Sybase_reservedwords[223] := 'EXEC';
+  Sybase_reservedwords[224] := 'EXECUTE';
+  Sybase_reservedwords[225] := 'EXISTS';
+  Sybase_reservedwords[226] := 'EXIT';
+  Sybase_reservedwords[227] := 'EXP';
+  Sybase_reservedwords[228] := 'EXPLAIN';
+  Sybase_reservedwords[229] := 'EXPLICIT';
+  Sybase_reservedwords[230] := 'EXTENT';
+  Sybase_reservedwords[231] := 'EXTERNAL';
+  Sybase_reservedwords[232] := 'EXTERNALLY';
+  Sybase_reservedwords[233] := 'EXTRACT';
+  Sybase_reservedwords[234] := 'FALSE';
+  Sybase_reservedwords[235] := 'FETCH';
+  Sybase_reservedwords[236] := 'FIELD';
+  Sybase_reservedwords[237] := 'FIELDPROC';
+  Sybase_reservedwords[238] := 'FILE';
+  Sybase_reservedwords[239] := 'FILLFACTOR';
+  Sybase_reservedwords[240] := 'FINALIZE';
+  Sybase_reservedwords[241] := 'FINALIZE';
+  Sybase_reservedwords[242] := 'FIRST';
+  Sybase_reservedwords[243] := 'FLOAT';
+  Sybase_reservedwords[244] := 'FLOOR';
+  Sybase_reservedwords[245] := 'FLOPPY';
+  Sybase_reservedwords[246] := 'FLUSH';
+  Sybase_reservedwords[247] := 'FOR';
+  Sybase_reservedwords[248] := 'FORCE';
+  Sybase_reservedwords[249] := 'FOREIGN';
+  Sybase_reservedwords[250] := 'FORMDATA';
+  Sybase_reservedwords[251] := 'FORMINIT';
+  Sybase_reservedwords[252] := 'FORMS';
+  Sybase_reservedwords[253] := 'FORTRAN';
+  Sybase_reservedwords[254] := 'FOUND';
+  Sybase_reservedwords[255] := 'FREE';
+  Sybase_reservedwords[256] := 'FREELIST';
+  Sybase_reservedwords[257] := 'FREELISTS';
+  Sybase_reservedwords[258] := 'FREETEXT';
+  Sybase_reservedwords[259] := 'FREETEXTTABLE';
+  Sybase_reservedwords[260] := 'FROM';
+  Sybase_reservedwords[261] := 'FULL';
+  Sybase_reservedwords[262] := 'FUNCTION';
+  Sybase_reservedwords[263] := 'GENERAL';
+  Sybase_reservedwords[264] := 'GET';
+  Sybase_reservedwords[265] := 'GETCURRENTCONNECTION';
+  Sybase_reservedwords[266] := 'GETFORM';
+  Sybase_reservedwords[267] := 'GETOPER';
+  Sybase_reservedwords[268] := 'GETROW';
+  Sybase_reservedwords[269] := 'GLOBAL';
+  Sybase_reservedwords[270] := 'GO';
+  Sybase_reservedwords[271] := 'GOTO';
+  Sybase_reservedwords[272] := 'GRANT';
+  Sybase_reservedwords[273] := 'GRANTED';
+  Sybase_reservedwords[274] := 'GRAPHIC';
+  Sybase_reservedwords[275] := 'GREATEST';
+  Sybase_reservedwords[276] := 'GROUP';
+  Sybase_reservedwords[277] := 'GROUPING';
+  Sybase_reservedwords[278] := 'GROUPS';
+  Sybase_reservedwords[279] := 'HASH';
+  Sybase_reservedwords[280] := 'HAVING';
+  Sybase_reservedwords[281] := 'HELP';
+  Sybase_reservedwords[282] := 'HELPFILE';
+  Sybase_reservedwords[283] := 'HOLDLOCK';
+  Sybase_reservedwords[284] := 'HOST';
+  Sybase_reservedwords[285] := 'HOUR';
+  Sybase_reservedwords[286] := 'HOURS';
+  Sybase_reservedwords[287] := 'IDENTIFIED';
+  Sybase_reservedwords[288] := 'IDENTITY';
+  Sybase_reservedwords[289] := 'IDENTITYCOL';
+  Sybase_reservedwords[290] := 'IF';
+  Sybase_reservedwords[291] := 'IFNULL';
+  Sybase_reservedwords[292] := 'IGNORE';
+  Sybase_reservedwords[293] := 'IIMESSAGE';
+  Sybase_reservedwords[294] := 'IIPRINTF';
+  Sybase_reservedwords[295] := 'IMMEDIATE';
+  Sybase_reservedwords[296] := 'IMPORT';
+  Sybase_reservedwords[297] := 'IN';
+  Sybase_reservedwords[298] := 'INCLUDE';
+  Sybase_reservedwords[299] := 'INCLUDING';
+  Sybase_reservedwords[300] := 'INCREMENT';
+  Sybase_reservedwords[301] := 'INDEX';
+  Sybase_reservedwords[302] := 'INDEXPAGES';
+  Sybase_reservedwords[303] := 'INDICATOR';
+  Sybase_reservedwords[304] := 'INITCAP';
+  Sybase_reservedwords[305] := 'INITIAL';
+  Sybase_reservedwords[306] := 'INITIALIZE';
+  Sybase_reservedwords[307] := 'INITIALLY';
+  Sybase_reservedwords[308] := 'INITRANS';
+  Sybase_reservedwords[309] := 'INITTABLE';
+  Sybase_reservedwords[310] := 'INNER';
+  Sybase_reservedwords[311] := 'INOUT';
+  Sybase_reservedwords[312] := 'INPUT';
+  Sybase_reservedwords[313] := 'INSENSITIVE';
+  Sybase_reservedwords[314] := 'INSERT';
+  Sybase_reservedwords[315] := 'INSERTROW';
+  Sybase_reservedwords[316] := 'INSTANCE';
+  Sybase_reservedwords[317] := 'INSTR';
+  Sybase_reservedwords[318] := 'INT';
+  Sybase_reservedwords[319] := 'INTEGER';
+  Sybase_reservedwords[320] := 'INTEGRITY';
+  Sybase_reservedwords[321] := 'INTERFACE';
+  Sybase_reservedwords[322] := 'INTERSECT';
+  Sybase_reservedwords[323] := 'INTERVAL';
+  Sybase_reservedwords[324] := 'INTO';
+  Sybase_reservedwords[325] := 'IS';
+  Sybase_reservedwords[326] := 'ISOLATION';
+  Sybase_reservedwords[327] := 'ITERATE';
+  Sybase_reservedwords[328] := 'JOIN';
+  Sybase_reservedwords[329] := 'KEY';
+  Sybase_reservedwords[330] := 'KILL';
+  Sybase_reservedwords[331] := 'LABEL';
+  Sybase_reservedwords[332] := 'LANGUAGE';
+  Sybase_reservedwords[333] := 'LARGE';
+  Sybase_reservedwords[334] := 'LAST';
+  Sybase_reservedwords[335] := 'LATERAL';
+  Sybase_reservedwords[336] := 'LAYER';
+  Sybase_reservedwords[337] := 'LEADING';
+  Sybase_reservedwords[338] := 'LEAST';
+  Sybase_reservedwords[339] := 'LEFT';
+  Sybase_reservedwords[340] := 'LENGTH';
+  Sybase_reservedwords[341] := 'LESS';
+  Sybase_reservedwords[342] := 'LEVEL';
+  Sybase_reservedwords[343] := 'LIKE';
+  Sybase_reservedwords[344] := 'LIMIT';
+  Sybase_reservedwords[345] := 'LINENO';
+  Sybase_reservedwords[346] := 'LINK';
+  Sybase_reservedwords[347] := 'LIST';
+  Sybase_reservedwords[348] := 'LISTS';
+  Sybase_reservedwords[349] := 'LOAD';
+  Sybase_reservedwords[350] := 'LOADTABLE';
+  Sybase_reservedwords[351] := 'LOCAL';
+  Sybase_reservedwords[352] := 'LOCALTIME';
+  Sybase_reservedwords[353] := 'LOCALTIMESTAMP';
+  Sybase_reservedwords[354] := 'LOCATE';
+  Sybase_reservedwords[355] := 'LOCATOR';
+  Sybase_reservedwords[356] := 'LOCK';
+  Sybase_reservedwords[357] := 'LOCKSIZE';
+  Sybase_reservedwords[358] := 'LOG';
+  Sybase_reservedwords[359] := 'LOGFILE';
+  Sybase_reservedwords[360] := 'LONG';
+  Sybase_reservedwords[361] := 'LONGINT';
+  Sybase_reservedwords[362] := 'LOWER';
+  Sybase_reservedwords[363] := 'LPAD';
+  Sybase_reservedwords[364] := 'LTRIM';
+  Sybase_reservedwords[365] := 'LVARBINARY';
+  Sybase_reservedwords[366] := 'LVARCHAR';
+  Sybase_reservedwords[367] := 'MAIN';
+  Sybase_reservedwords[368] := 'MANAGE';
+  Sybase_reservedwords[369] := 'MANUAL';
+  Sybase_reservedwords[370] := 'MAP';
+  Sybase_reservedwords[371] := 'MATCH';
+  Sybase_reservedwords[372] := 'MAX';
+  Sybase_reservedwords[373] := 'MAXDATAFILES';
+  Sybase_reservedwords[374] := 'MAXEXTENTS';
+  Sybase_reservedwords[375] := 'MAXINSTANCES';
+  Sybase_reservedwords[376] := 'MAXLOGFILES';
+  Sybase_reservedwords[377] := 'MAXLOGHISTORY';
+  Sybase_reservedwords[378] := 'MAXLOGMEMBERS';
+  Sybase_reservedwords[379] := 'MAXTRANS';
+  Sybase_reservedwords[380] := 'MAXVALUE';
+  Sybase_reservedwords[381] := 'MENUITEM';
+  Sybase_reservedwords[382] := 'MESSAGE';
+  Sybase_reservedwords[383] := 'MICROSECOND';
+  Sybase_reservedwords[384] := 'MICROSECONDS';
+  Sybase_reservedwords[385] := 'MIN';
+  Sybase_reservedwords[386] := 'MINEXTENTS';
+  Sybase_reservedwords[387] := 'MINUS';
+  Sybase_reservedwords[388] := 'MINUTE';
+  Sybase_reservedwords[389] := 'MINUTES';
+  Sybase_reservedwords[390] := 'MINVALUE';
+  Sybase_reservedwords[391] := 'MIRROREXIT';
+  Sybase_reservedwords[392] := 'MOD';
+  Sybase_reservedwords[393] := 'MODE';
+  Sybase_reservedwords[394] := 'MODIFIES';
+  Sybase_reservedwords[395] := 'MODIFY';
+  Sybase_reservedwords[396] := 'MODULE';
+  Sybase_reservedwords[397] := 'MONEY';
+  Sybase_reservedwords[398] := 'MONTH';
+  Sybase_reservedwords[399] := 'MONTHS';
+  Sybase_reservedwords[400] := 'MOUNT';
+  Sybase_reservedwords[401] := 'MOVE';
+  Sybase_reservedwords[402] := 'NAMED';
+  Sybase_reservedwords[403] := 'NAMES';
+  Sybase_reservedwords[404] := 'NATIONAL';
+  Sybase_reservedwords[405] := 'NATURAL';
+  Sybase_reservedwords[406] := 'NCHAR';
+  Sybase_reservedwords[407] := 'NCLOB';
+  Sybase_reservedwords[408] := 'NEW';
+  Sybase_reservedwords[409] := 'NEXT';
+  Sybase_reservedwords[410] := 'NHEADER';
+  Sybase_reservedwords[411] := 'NO';
+  Sybase_reservedwords[412] := 'NOARCHIVELOG';
+  Sybase_reservedwords[413] := 'NOAUDIT';
+  Sybase_reservedwords[414] := 'NOCACHE';
+  Sybase_reservedwords[415] := 'NOCHECK';
+  Sybase_reservedwords[416] := 'NOCOMPRESS';
+  Sybase_reservedwords[417] := 'NOCYCLE';
+  Sybase_reservedwords[418] := 'NOECHO';
+  Sybase_reservedwords[419] := 'NOMAXVALUE';
+  Sybase_reservedwords[420] := 'NOMINVALUE';
+  Sybase_reservedwords[421] := 'NONCLUSTERED';
+  Sybase_reservedwords[422] := 'NONE';
+  Sybase_reservedwords[423] := 'NOORDER';
+  Sybase_reservedwords[424] := 'NORESETLOGS';
+  Sybase_reservedwords[425] := 'NORMAL';
+  Sybase_reservedwords[426] := 'NOSORT';
+  Sybase_reservedwords[427] := 'NOT';
+  Sybase_reservedwords[428] := 'NOTFOUND';
+  Sybase_reservedwords[429] := 'NOTRIM';
+  Sybase_reservedwords[430] := 'NOWAIT';
+  Sybase_reservedwords[431] := 'NULL';
+  Sybase_reservedwords[432] := 'NULLIF';
+  Sybase_reservedwords[433] := 'NULLVALUE';
+  Sybase_reservedwords[434] := 'NUMBER';
+  Sybase_reservedwords[435] := 'NUMERIC';
+  Sybase_reservedwords[436] := 'NUMPARTS';
+  Sybase_reservedwords[437] := 'NVL';
+  Sybase_reservedwords[438] := 'OBID';
+  Sybase_reservedwords[439] := 'OBJECT';
+  Sybase_reservedwords[440] := 'ODBCINFO';
+  Sybase_reservedwords[441] := 'OF';
+  Sybase_reservedwords[442] := 'OFF';
+  Sybase_reservedwords[443] := 'OFFLINE';
+  Sybase_reservedwords[444] := 'OFFSETS';
+  Sybase_reservedwords[445] := 'OLD';
+  Sybase_reservedwords[446] := 'ON';
+  Sybase_reservedwords[447] := 'ONCE';
+  Sybase_reservedwords[448] := 'ONLINE';
+  Sybase_reservedwords[449] := 'ONLY';
+  Sybase_reservedwords[450] := 'OPEN';
+  Sybase_reservedwords[451] := 'OPENDATASOURCE';
+  Sybase_reservedwords[452] := 'OPENQUERY';
+  Sybase_reservedwords[453] := 'OPENROWSET';
+  Sybase_reservedwords[454] := 'OPERATION';
+  Sybase_reservedwords[455] := 'OPTIMAL';
+  Sybase_reservedwords[456] := 'OPTIMIZE';
+  Sybase_reservedwords[457] := 'OPTION';
+  Sybase_reservedwords[458] := 'OR';
+  Sybase_reservedwords[459] := 'ORDER';
+  Sybase_reservedwords[460] := 'ORDINALITY';
+  Sybase_reservedwords[461] := 'OUT';
+  Sybase_reservedwords[462] := 'OUTER';
+  Sybase_reservedwords[463] := 'OUTPUT';
+  Sybase_reservedwords[464] := 'OVER';
+  Sybase_reservedwords[465] := 'OVERLAPS';
+  Sybase_reservedwords[466] := 'OWN';
+  Sybase_reservedwords[467] := 'PACKAGE';
+  Sybase_reservedwords[468] := 'PAD';
+  Sybase_reservedwords[469] := 'PAGE';
+  Sybase_reservedwords[470] := 'PAGES';
+  Sybase_reservedwords[471] := 'PARALLEL';
+  Sybase_reservedwords[472] := 'PARAMETER';
+  Sybase_reservedwords[473] := 'PARAMETERS';
+  Sybase_reservedwords[474] := 'PART';
+  Sybase_reservedwords[475] := 'PARTIAL';
+  Sybase_reservedwords[476] := 'PASCAL';
+  Sybase_reservedwords[477] := 'PATH';
+  Sybase_reservedwords[478] := 'PCTFREE';
+  Sybase_reservedwords[479] := 'PCTINCREASE';
+  Sybase_reservedwords[480] := 'PCTINDEX';
+  Sybase_reservedwords[481] := 'PCTUSED';
+  Sybase_reservedwords[482] := 'PERCENT';
+  Sybase_reservedwords[483] := 'PERM';
+  Sybase_reservedwords[484] := 'PERMANENT';
+  Sybase_reservedwords[485] := 'PERMIT';
+  Sybase_reservedwords[486] := 'PI';
+  Sybase_reservedwords[487] := 'PIPE';
+  Sybase_reservedwords[488] := 'PLAN';
+  Sybase_reservedwords[489] := 'PLI';
+  Sybase_reservedwords[490] := 'POSITION';
+  Sybase_reservedwords[491] := 'POSTFIX';
+  Sybase_reservedwords[492] := 'POWER';
+  Sybase_reservedwords[493] := 'PRECISION';
+  Sybase_reservedwords[494] := 'PREFIX';
+  Sybase_reservedwords[495] := 'PREORDER';
+  Sybase_reservedwords[496] := 'PREPARE';
+  Sybase_reservedwords[497] := 'PRESERVE';
+  Sybase_reservedwords[498] := 'PRIMARY';
+  Sybase_reservedwords[499] := 'PRINT';
+  Sybase_reservedwords[500] := 'PRINTSCREEN';
+  Sybase_reservedwords[501] := 'PRIOR';
+  Sybase_reservedwords[502] := 'PRIQTY';
+  Sybase_reservedwords[503] := 'PRIVATE';
+  Sybase_reservedwords[504] := 'PRIVILEGES';
+  Sybase_reservedwords[505] := 'PROC';
+  Sybase_reservedwords[506] := 'PROCEDURE';
+  Sybase_reservedwords[507] := 'PROCESSEXIT';
+  Sybase_reservedwords[508] := 'PROFILE';
+  Sybase_reservedwords[509] := 'PROGRAM';
+  Sybase_reservedwords[510] := 'PROMPT';
+  Sybase_reservedwords[511] := 'PUBLIC';
+  Sybase_reservedwords[512] := 'PUTFORM';
+  Sybase_reservedwords[513] := 'PUTOPER';
+  Sybase_reservedwords[514] := 'PUTROW';
+  Sybase_reservedwords[515] := 'QUALIFICATION';
+  Sybase_reservedwords[516] := 'QUARTER';
+  Sybase_reservedwords[517] := 'QUOTA';
+  Sybase_reservedwords[518] := 'RADIANS';
+  Sybase_reservedwords[519] := 'RAISE';
+  Sybase_reservedwords[520] := 'RAISERROR';
+  Sybase_reservedwords[521] := 'RAND';
+  Sybase_reservedwords[522] := 'RANGE';
+  Sybase_reservedwords[523] := 'RAW';
+  Sybase_reservedwords[524] := 'READ';
+  Sybase_reservedwords[525] := 'READS';
+  Sybase_reservedwords[526] := 'READTEXT';
+  Sybase_reservedwords[527] := 'REAL';
+  Sybase_reservedwords[528] := 'RECONFIGURE';
+  Sybase_reservedwords[529] := 'RECORD';
+  Sybase_reservedwords[530] := 'RECOVER';
+  Sybase_reservedwords[531] := 'RECURSIVE';
+  Sybase_reservedwords[532] := 'REDISPLAY';
+  Sybase_reservedwords[533] := 'REF';
+  Sybase_reservedwords[534] := 'REFERENCES';
+  Sybase_reservedwords[535] := 'REFERENCING';
+  Sybase_reservedwords[536] := 'REGISTER';
+  Sybase_reservedwords[537] := 'RELATIVE';
+  Sybase_reservedwords[538] := 'RELEASE';
+  Sybase_reservedwords[539] := 'RELOCATE';
+  Sybase_reservedwords[540] := 'REMOVE';
+  Sybase_reservedwords[541] := 'RENAME';
+  Sybase_reservedwords[542] := 'REPEAT';
+  Sybase_reservedwords[543] := 'REPEATABLE';
+  Sybase_reservedwords[544] := 'REPEATED';
+  Sybase_reservedwords[545] := 'REPLACE';
+  Sybase_reservedwords[546] := 'REPLICATE';
+  Sybase_reservedwords[547] := 'REPLICATION';
+  Sybase_reservedwords[548] := 'RESET';
+  Sybase_reservedwords[549] := 'RESETLOGS';
+  Sybase_reservedwords[550] := 'RESOURCE';
+  Sybase_reservedwords[551] := 'RESTORE';
+  Sybase_reservedwords[552] := 'RESTRICT';
+  Sybase_reservedwords[553] := 'RESTRICTED';
+  Sybase_reservedwords[554] := 'RESULT';
+  Sybase_reservedwords[555] := 'RESUME';
+  Sybase_reservedwords[556] := 'RETRIEVE';
+  Sybase_reservedwords[557] := 'RETURN';
+  Sybase_reservedwords[558] := 'RETURNS';
+  Sybase_reservedwords[559] := 'REUSE';
+  Sybase_reservedwords[560] := 'REVOKE';
+  Sybase_reservedwords[561] := 'RIGHT';
+  Sybase_reservedwords[562] := 'ROLE';
+  Sybase_reservedwords[563] := 'ROLES';
+  Sybase_reservedwords[564] := 'ROLLBACK';
+  Sybase_reservedwords[565] := 'ROLLUP';
+  Sybase_reservedwords[566] := 'ROUTINE';
+  Sybase_reservedwords[567] := 'ROW';
+  Sybase_reservedwords[568] := 'ROWCOUNT';
+  Sybase_reservedwords[569] := 'ROWGUIDCOL';
+  Sybase_reservedwords[570] := 'ROWID';
+  Sybase_reservedwords[571] := 'ROWIDTOCHAR';
+  Sybase_reservedwords[572] := 'ROWLABEL';
+  Sybase_reservedwords[573] := 'ROWNUM';
+  Sybase_reservedwords[574] := 'ROWS';
+  Sybase_reservedwords[575] := 'ROWS';
+  Sybase_reservedwords[576] := 'RPAD';
+  Sybase_reservedwords[577] := 'RRN';
+  Sybase_reservedwords[578] := 'RTRIM';
+  Sybase_reservedwords[579] := 'RULE';
+  Sybase_reservedwords[580] := 'RUN';
+  Sybase_reservedwords[581] := 'RUNTIMESTATISTICS';
+  Sybase_reservedwords[582] := 'SAVE';
+  Sybase_reservedwords[583] := 'SAVEPOINT';
+  Sybase_reservedwords[584] := 'SCHEDULE';
+  Sybase_reservedwords[585] := 'SCHEMA';
+  Sybase_reservedwords[586] := 'SCN';
+  Sybase_reservedwords[587] := 'SCOPE';
+  Sybase_reservedwords[588] := 'SCREEN';
+  Sybase_reservedwords[589] := 'SCROLL';
+  Sybase_reservedwords[590] := 'SCROLLDOWN';
+  Sybase_reservedwords[591] := 'SCROLLUP';
+  Sybase_reservedwords[592] := 'SEARCH';
+  Sybase_reservedwords[593] := 'SECOND';
+  Sybase_reservedwords[594] := 'SECONDS';
+  Sybase_reservedwords[595] := 'SECQTY';
+  Sybase_reservedwords[596] := 'SECTION';
+  Sybase_reservedwords[597] := 'SEGMENT';
+  Sybase_reservedwords[598] := 'SELECT';
+  Sybase_reservedwords[599] := 'SEQUENCE';
+  Sybase_reservedwords[600] := 'SERIALIZABLE';
+  Sybase_reservedwords[601] := 'SERVICE';
+  Sybase_reservedwords[602] := 'SESSION';
+  Sybase_reservedwords[603] := 'SESSION_USER';
+  Sybase_reservedwords[604] := 'SET';
+  Sybase_reservedwords[605] := 'SETS';
+  Sybase_reservedwords[606] := 'SETUSER';
+  Sybase_reservedwords[607] := 'SETUSER';
+  Sybase_reservedwords[608] := 'SHARE';
+  Sybase_reservedwords[609] := 'SHARED';
+  Sybase_reservedwords[610] := 'SHORT';
+  Sybase_reservedwords[611] := 'SHUTDOWN';
+  Sybase_reservedwords[612] := 'SIGN';
+  Sybase_reservedwords[613] := 'SIMPLE';
+  Sybase_reservedwords[614] := 'SIN';
+  Sybase_reservedwords[615] := 'SIZE';
+  Sybase_reservedwords[616] := 'SLEEP';
+  Sybase_reservedwords[617] := 'SMALLINT';
+  Sybase_reservedwords[618] := 'SNAPSHOT';
+  Sybase_reservedwords[619] := 'SOME';
+  Sybase_reservedwords[620] := 'SORT';
+  Sybase_reservedwords[621] := 'SOUNDEX';
+  Sybase_reservedwords[622] := 'SPACE';
+  Sybase_reservedwords[623] := 'SPECIFIC';
+  Sybase_reservedwords[624] := 'SPECIFICTYPE';
+  Sybase_reservedwords[625] := 'SQL';
+  Sybase_reservedwords[626] := 'SQLBUF';
+  Sybase_reservedwords[627] := 'SQLCA';
+  Sybase_reservedwords[628] := 'SQLCODE';
+  Sybase_reservedwords[629] := 'SQLERROR';
+  Sybase_reservedwords[630] := 'SQLEXCEPTION';
+  Sybase_reservedwords[631] := 'SQLSTATE';
+  Sybase_reservedwords[632] := 'SQLWARNING';
+  Sybase_reservedwords[633] := 'SQRT';
+  Sybase_reservedwords[634] := 'START';
+  Sybase_reservedwords[635] := 'STATE';
+  Sybase_reservedwords[636] := 'STATEMENT';
+  Sybase_reservedwords[637] := 'STATIC';
+  Sybase_reservedwords[638] := 'STATISTICS';
+  Sybase_reservedwords[639] := 'STOGROUP';
+  Sybase_reservedwords[640] := 'STOP';
+  Sybase_reservedwords[641] := 'STORAGE';
+  Sybase_reservedwords[642] := 'STORPOOL';
+  Sybase_reservedwords[643] := 'STRUCTURE';
+  Sybase_reservedwords[644] := 'SUBMENU';
+  Sybase_reservedwords[645] := 'SUBPAGES';
+  Sybase_reservedwords[646] := 'SUBSTR';
+  Sybase_reservedwords[647] := 'SUBSTRING';
+  Sybase_reservedwords[648] := 'SUCCESSFUL';
+  Sybase_reservedwords[649] := 'SUFFIX';
+  Sybase_reservedwords[650] := 'SUM';
+  Sybase_reservedwords[651] := 'SUMU';
+  Sybase_reservedwords[652] := 'SWITCH';
+  Sybase_reservedwords[653] := 'SYNONYM';
+  Sybase_reservedwords[654] := 'SYSCAT';
+  Sybase_reservedwords[655] := 'SYSDATE';
+  Sybase_reservedwords[656] := 'SYSFUN';
+  Sybase_reservedwords[657] := 'SYSIBM';
+  Sybase_reservedwords[658] := 'SYSSTAT';
+  Sybase_reservedwords[659] := 'SYSTEM';
+  Sybase_reservedwords[660] := 'SYSTEM_USER';
+  Sybase_reservedwords[661] := 'SYSTIME';
+  Sybase_reservedwords[662] := 'SYSTIMESTAMP';
+  Sybase_reservedwords[663] := 'TABLE';
+  Sybase_reservedwords[664] := 'TABLEDATA';
+  Sybase_reservedwords[665] := 'TABLES';
+  Sybase_reservedwords[666] := 'TABLESPACE';
+  Sybase_reservedwords[667] := 'TAN';
+  Sybase_reservedwords[668] := 'TAPE';
+  Sybase_reservedwords[669] := 'TEMP';
+  Sybase_reservedwords[670] := 'TEMPORARY';
+  Sybase_reservedwords[671] := 'TERMINATE';
+  Sybase_reservedwords[672] := 'TEXTSIZE';
+  Sybase_reservedwords[673] := 'THAN';
+  Sybase_reservedwords[674] := 'THEN';
+  Sybase_reservedwords[675] := 'THREAD';
+  Sybase_reservedwords[676] := 'TIME';
+  Sybase_reservedwords[677] := 'TIMEOUT';
+  Sybase_reservedwords[678] := 'TIMESTAMP';
+  Sybase_reservedwords[679] := 'TIMEZONE_HOUR';
+  Sybase_reservedwords[680] := 'TIMEZONE_MINUTE';
+  Sybase_reservedwords[681] := 'TINYINT';
+  Sybase_reservedwords[682] := 'TO';
+  Sybase_reservedwords[683] := 'TOP';
+  Sybase_reservedwords[684] := 'TPE';
+  Sybase_reservedwords[685] := 'TRACING';
+  Sybase_reservedwords[686] := 'TRAILING';
+  Sybase_reservedwords[687] := 'TRAN';
+  Sybase_reservedwords[688] := 'TRANSACTION';
+  Sybase_reservedwords[689] := 'TRANSLATE';
+  Sybase_reservedwords[690] := 'TRANSLATION';
+  Sybase_reservedwords[691] := 'TREAT';
+  Sybase_reservedwords[692] := 'TRIGGER';
+  Sybase_reservedwords[693] := 'TRIGGERS';
+  Sybase_reservedwords[694] := 'TRIM';
+  Sybase_reservedwords[695] := 'TRUE';
+  Sybase_reservedwords[696] := 'TRUNCATE';
+  Sybase_reservedwords[697] := 'TSEQUAL';
+  Sybase_reservedwords[698] := 'TYPE';
+  Sybase_reservedwords[699] := 'UID';
+  Sybase_reservedwords[700] := 'UNCOMMITTED';
+  Sybase_reservedwords[701] := 'UNDER';
+  Sybase_reservedwords[702] := 'UNION';
+  Sybase_reservedwords[703] := 'UNIQUE';
+  Sybase_reservedwords[704] := 'UNKNOWN';
+  Sybase_reservedwords[705] := 'UNLIMITED';
+  Sybase_reservedwords[706] := 'UNLOADTABLE';
+  Sybase_reservedwords[707] := 'UNNEST';
+  Sybase_reservedwords[708] := 'UNSIGNED';
+  Sybase_reservedwords[709] := 'UNTIL';
+  Sybase_reservedwords[710] := 'UP';
+  Sybase_reservedwords[711] := 'UPDATE';
+  Sybase_reservedwords[712] := 'UPDATETEXT';
+  Sybase_reservedwords[713] := 'UPPER';
+  Sybase_reservedwords[714] := 'USAGE';
+  Sybase_reservedwords[715] := 'USE';
+  Sybase_reservedwords[716] := 'USER';
+  Sybase_reservedwords[717] := 'USING';
+  Sybase_reservedwords[718] := 'UUID';
+  Sybase_reservedwords[719] := 'VALIDATE';
+  Sybase_reservedwords[720] := 'VALIDPROC';
+  Sybase_reservedwords[721] := 'VALIDROW';
+  Sybase_reservedwords[722] := 'VALUE';
+  Sybase_reservedwords[723] := 'VALUES';
+  Sybase_reservedwords[724] := 'VARBINARY';
+  Sybase_reservedwords[725] := 'VARCHAR';
+  Sybase_reservedwords[726] := 'VARIABLE';
+  Sybase_reservedwords[727] := 'VARIABLES';
+  Sybase_reservedwords[728] := 'VARYING';
+  Sybase_reservedwords[729] := 'VCAT';
+  Sybase_reservedwords[730] := 'VERSION';
+  Sybase_reservedwords[731] := 'VIEW';
+  Sybase_reservedwords[732] := 'VOLUMES';
+  Sybase_reservedwords[733] := 'WAITFOR';
+  Sybase_reservedwords[734] := 'WEEK';
+  Sybase_reservedwords[735] := 'WHEN';
+  Sybase_reservedwords[736] := 'WHENEVER';
+  Sybase_reservedwords[737] := 'WHERE';
+  Sybase_reservedwords[738] := 'WHILE';
+  Sybase_reservedwords[739] := 'WITH';
+  Sybase_reservedwords[740] := 'WITHOUT';
+  Sybase_reservedwords[741] := 'WORK';
+  Sybase_reservedwords[742] := 'WRITE';
+  Sybase_reservedwords[743] := 'WRITETEXT';
+  Sybase_reservedwords[744] := 'YEAR';
+  Sybase_reservedwords[745] := 'YEARS';
+  Sybase_reservedwords[746] := 'ZONE';
+end;
+
+initialization
+  Sybase_InitializeReservedWords;
+finalization
+  Sybase_reservedwords := nil;
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAUtils.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAUtils.pas
new file mode 100644
index 0000000..93de6f0
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAUtils.pas	
@@ -0,0 +1,259 @@
+unit uDAUtils;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses Classes, DB, SysUtils, uDARes;
+
+const
+  // Directory aliases. DEFINE THEM IN UPPERCASE and do not translate
+  alias_System = '%SYSTEM%';
+  alias_ModuleDir = '%MODULE%';
+  alias_DABinDir = '%DABINDIR%';
+
+type
+  { TDAConnectionStringParser
+      Simple class that provides all the methods to work with Data Abstract connection strings.
+      Connection objects make use of this class in the method ApplyConnectionString. }
+  TDAConnectionStringParser = class
+  private
+    fServer: string;
+    fAuxDriver: string;
+    fPassword: string;
+    fUserID: string;
+    fDriverID: string;
+    fAuxParams: TStringList;
+    fDatabase: string;
+
+    function GetAuxParamNames(Index: integer): string;
+    function GetAuxParamsCount: integer;
+    function GetAuxParams(const Name: string): string;
+    procedure SetAuxParams(const Name, Value: string);
+    function GetAuxParamsString: string;
+
+  protected
+  public
+    constructor Create(const aConnectionString: string = '');
+    destructor Destroy; override;
+
+    procedure Clear;
+
+    class function ExtractDriverID(const aConnectionString: string): string;
+
+    procedure Parse(const aConnectionString: string);
+    function BuildString: string;
+
+    property DriverID: string read fDriverID write fDriverID;
+    property Server: string read fServer write fServer;
+    property Database: string read fDatabase write fDatabase;
+    property UserID: string read fUserID write fUserID;
+    property Password: string read fPassword write fPassword;
+    property AuxDriver: string read fAuxDriver write fAuxDriver;
+
+    property AuxParams[const Name: string]: string read GetAuxParams write SetAuxParams;
+    property AuxParamNames[Index: integer]: string read GetAuxParamNames;
+    property AuxParamsCount: integer read GetAuxParamsCount;
+    property AuxParamsString: string read GetAuxParamsString;
+  end;
+
+// Misc
+function TranslateFileName(const aFileName: string): string;
+function GetSystemDir: string;
+function GetModulePath: string;
+
+{$IFDEF FPC}
+type
+  IProviderSupport = interface
+    procedure PSExecute;
+    function PSGetParams: TParams;
+  end;
+{$ENDIF}
+function GetProviderSupport(aDataset: TDataset): IProviderSupport;
+
+implementation
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  TypInfo, uROClasses;
+
+// Misc
+
+function TranslateFileName(const aFileName: string): string;
+var
+  i: integer;
+begin
+  result := aFileName;
+  i := Pos(alias_System, UpperCase(aFileName));
+  if (i > 0) then begin
+    Delete(result, i, Length(alias_System));
+    Insert(GetSystemDir, result, i);
+  end;
+
+  i := Pos(alias_ModuleDir, UpperCase(aFileName));
+  if (i > 0) then begin
+    Delete(result, i, Length(alias_ModuleDir));
+    Insert(GetModulePath, result, i);
+  end;
+end;
+
+function GetSystemDir: string;
+{$IFDEF MSWINDOWS}
+var
+  osdir: array[0..MAX_PATH] of char;
+  {$ENDIF}
+begin
+  {$IFDEF MSWINDOWS}
+  GetSystemDirectory(osdir, SizeOf(osdir));
+  result := ExcludeTrailingPathDelimiter(osdir);
+  {$ELSE}
+  Result := '';
+  RaiseError(err_NotSupported);
+  {$ENDIF}
+end;
+
+function GetModulePath: string;
+begin
+  result := ExcludeTrailingPathDelimiter(ExtractFilePath({$IFDEF FPC}ParamStr(0){$ELSE}GetModuleName(hInstance){$ENDIF}));
+end;
+
+function GetProviderSupport(aDataset: TDataset): IProviderSupport;
+begin
+  {$IFDEF DELPHI7UP}
+  result := aDataset as IProviderSupport;
+  {$ELSE}{$IFNDEF FPC}
+   result := IProviderSupport(aDataset);
+  {$ELSE}
+   result:=nil;
+  {$ENDIF}{$ENDIF}
+end;
+
+{ TDAConnectionStringParser }
+
+constructor TDAConnectionStringParser.Create(const aConnectionString: string = '');
+begin
+  inherited Create;
+
+  fAuxParams := TStringList.Create;
+  {fAuxParams.Duplicates := dupError;
+  fAuxParams.Sorted := TRUE;}
+
+  if (aConnectionString <> '') then Parse(aConnectionString);
+end;
+
+destructor TDAConnectionStringParser.Destroy;
+begin
+  fAuxParams.Free;
+
+  inherited;
+end;
+
+procedure TDAConnectionStringParser.Clear;
+begin
+  fServer := '';
+  fDatabase := '';
+  fAuxDriver := '';
+  fPassword := '';
+  fUserID := '';
+  fDriverID := '';
+  fAuxParams.Clear;
+end;
+
+procedure TDAConnectionStringParser.Parse(const aConnectionString: string);
+var
+  pars: IROStrings;
+  i: integer;
+  str: string;
+begin
+  Clear;
+
+  // ADO?Server=127.0.0.1;UserID=sa;Password=lemmein;AuxDriver=SQLOLEDB.1;Params1=abc;Param2=CDE
+  str := Trim(aConnectionString);
+
+  // Extracts the driver name
+  fDriverID := ExtractDriverID(str);
+  Delete(str, 1, Pos(ds_Separator, str));
+
+  // Extracts the rest of the parameters
+  pars := ListStringElements(str);
+
+  fAuxDriver := pars.ExtractValue(ds_AuxDriver);
+  fDatabase := pars.ExtractValue(ds_Database);
+  fUserID := pars.ExtractValue(ds_UserID);
+  fPassword := pars.ExtractValue(ds_Password);
+  fServer := pars.ExtractValue(ds_Server);
+
+  for i := 0 to (pars.Count - 1) do
+    AuxParams[pars.Names[i]] := pars.Values[pars.Names[i]];
+end;
+
+function TDAConnectionStringParser.GetAuxParamNames(
+  Index: integer): string;
+begin
+  result := fAuxParams.Names[Index]
+end;
+
+function TDAConnectionStringParser.GetAuxParamsCount: integer;
+begin
+  result := fAuxParams.Count
+end;
+
+function TDAConnectionStringParser.GetAuxParams(
+  const Name: string): string;
+begin
+  result := fAuxParams.Values[Name]
+end;
+
+procedure TDAConnectionStringParser.SetAuxParams(const Name,
+  Value: string);
+begin
+  fAuxParams.Values[Name] := Value
+end;
+
+function TDAConnectionStringParser.BuildString: string;
+var
+  i: integer;
+begin
+  result := fDriverID + ds_Separator;
+
+  if (fAuxDriver <> '') then result := result + ds_AuxDriver + '=' + fAuxDriver+';';
+  if (fDatabase <> '') then result := result + ds_Database + '=' + fDatabase+';';
+  if (fUserID <> '') then result := result + ds_UserID + '=' + fUserID+';';
+  if (fPassword <> '') then result := result + ds_Password + '=' + fPassword+';';
+  if (fServer <> '') then result := result + ds_Server + '=' + fServer+';';
+
+  for i := 0 to (fAuxParams.Count - 1) do
+    result := result + fAuxParams.Names[i] + '=' + fAuxParams.Values[fAuxParams.Names[i]]+';';
+end;
+
+class function TDAConnectionStringParser.ExtractDriverID(
+  const aConnectionString: string): string;
+var
+  str: string;
+begin
+  str := Trim(aConnectionString);
+  result := Trim(Copy(str, 1, Pos(ds_Separator, str) - 1));
+end;
+
+function TDAConnectionStringParser.GetAuxParamsString: string;
+var
+  i: integer;
+begin
+  result := '';
+  for i := 0 to (AuxParamsCount - 1) do
+    result := result + AuxParamNames[i] + '=' + AuxParams[AuxParamNames[i]] +';';
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAWhere.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAWhere.pas
new file mode 100644
index 0000000..20b5fc4
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAWhere.pas	
@@ -0,0 +1,1296 @@
+unit uDAWhere;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  SysUtils, Classes, uDAInterfaces, DateUtils, uROBinaryHelpers,
+  uROCompression, uROXMLIntf, uROClientIntf, FMTBcd;
+
+type
+  TDABinaryExpression = class(TDAWhereExpression)
+  private
+    fLeft,
+    fRight: TDAWhereExpression;
+    fOperator: TDABinaryOperator;
+  public
+    constructor Create(aLeft, aRight: TDAWhereExpression; anOp: TDABinaryOperator); overload;
+    destructor Destroy; override;
+
+    property Left: TDAWhereExpression read fLeft write fLeft;
+    property Right: TDAWhereExpression read fRight write fRight;
+    property Operator: TDABinaryOperator read fOperator write fOperator;
+
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+    procedure Validate; override;
+  end;
+
+  TDAUnaryExpression = class(TDAWhereExpression)
+  private
+    fExpression: TDAWhereExpression;
+    fOperator: TDAUnaryOperator;
+  public
+    constructor Create(anExpression: TDAWhereExpression; anOp: TDAUnaryOperator); overload;
+
+    destructor Destroy; override;
+
+    property Expression: TDAWhereExpression read fExpression write fExpression;
+    property Operator: TDAUnaryOperator read fOperator write fOperator;
+
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+    procedure Validate; override;
+  end;
+
+  TDAConstantExpression = class(TDAWhereExpression)
+  private
+    fType: TDADataType;
+    fValue: Variant;
+    procedure SetValue(const Value: Variant);
+  public
+    class function SerializeObject(const v: Variant; dt: TDADataType): Unicodestring;
+    class function DeserializeObject(const s: Unicodestring; dt: TDADataType): Variant;
+
+    constructor Create(const aValue: Variant); overload;
+    constructor Create(const aValue: Variant; aType: TDADataType); overload;
+
+    property aType: TDADataType read fType write fType;
+    property Value: Variant read fValue write SetValue;
+
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+  end;
+
+  TDAListExpression = class(TDAWhereExpression)
+  private
+    FItems: TList;
+    function GetItem(idx: Integer): TDAWhereExpression;
+    procedure SetItem(idx: Integer; aValue: TDAWhereExpression);
+    function GetCount: Integer;
+  public
+    constructor Create(const aValues: array of TDAWhereExpression); overload;
+    constructor Create; overload;
+
+    destructor Destroy; override;
+
+    property Count: Integer read GetCount;
+    property Item[idx: Integer]: TDAWhereExpression read getItem write setItem; default;
+
+    procedure Add(aValue: TDAWhereExpression);
+    procedure Delete(index: Integer);
+    procedure Remove(aValue: TDAWhereExpression);
+    procedure Insert(Position: Integer; aValue: TDAWhereExpression);
+
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+    procedure Validate; override;
+  end;
+
+  TDAParameterExpression = class(TDAWhereExpression)
+  private
+    fParameterName: string;
+  public
+    constructor Create(const aParameterName: string); overload;
+
+    property ParameterName: string read fParameterName write fParameterName;
+
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+    procedure Validate; override;
+  end;
+
+  TDAFieldExpression = class(TDAWhereExpression)
+  private
+    fFieldName: string;
+    fTableName: string;
+  public
+    constructor Create(const aTableName, aFieldName: string); overload;
+
+    property TableName: string read fTableName write fTableName;
+    property FieldName: string read fFieldName write fFieldName;
+
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+    procedure Validate; override;
+  end;
+
+  TDANullExpression = class(TDAWhereExpression)
+  public
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+  end;
+
+  TDAMacroExpression = class(TDAWhereExpression)
+  private
+    FItems: TList;
+    fName: string;
+    function GetItem(idx: Integer): TDAWhereExpression;
+    procedure SetItem(idx: Integer; aValue: TDAWhereExpression);
+    function GetCount: Integer;
+  public
+    constructor Create; overload;
+    constructor Create(const aName: string); overload;
+    constructor Create(const aName: string; const aValues: array of TDAWhereExpression); overload;
+
+    destructor Destroy; override;
+
+    property Name: string read fName write fName;
+
+    property Count: Integer read GetCount;
+    property Item[idx: Integer]: TDAWhereExpression read GetItem write SetItem; default;
+
+    procedure Add(aValue: TDAWhereExpression);
+    procedure Delete(index: Integer);
+    procedure Remove(aValue: TDAWhereExpression);
+    procedure Insert(Position: Integer; aValue: TDAWhereExpression);
+
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+    procedure Validate; override;
+  end;
+
+  TDASelectWhereBuilder = class;
+  TDASelectWhereItem = class(TObject) // abstract
+  private
+    fOwner: TDASelectWhereBuilder;
+  public
+    constructor Create(anOwner: TDASelectWhereBuilder);
+
+    property Owner: TDASelectWhereBuilder read fOwner;
+
+    procedure ReadFromXml(xr: IXmlNode); virtual; abstract;
+    procedure WriteToXml(sw: IXmlNode); virtual; abstract;
+  end;
+
+  TDASelectWhereField = class(TDASelectWhereItem)
+  private
+    fAlias, fFieldName: string;
+  public
+    constructor Create(anOwner: TDASelectWhereBuilder); overload;
+    constructor Create(anOwner: TDASelectWhereBuilder; const aFieldName: String); overload;
+    constructor Create(anOwner: TDASelectWhereBuilder; const aFieldName, anAlias: string); overload;
+
+    property FieldName: string read fFieldName write fFieldName;
+    property Alias: string read fAlias write fAlias;
+
+    procedure ReadFromXml(xr: IXmlNode); override;
+    procedure WriteToXml(sw: IXmlNode); override;
+  end;
+
+  TDASelectWhereBuilder = class(TDAWhereBuilder)
+  private
+    fFields: TList;
+    fTableName: string;
+    function GetCount: Integer;
+    function GetItem(i: Integer): TDASelectWhereItem;
+  protected
+    function ReadFromXml(xr: IXmlNode):TDAWhereExpression; override;
+    procedure WriteToXml(sw: IXmlNode; const aExpression: TDAWhereExpression); override;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+
+    property TableName: string read fTableName write fTableName;
+    property Fields[i: Integer]: TDASelectWhereItem read GetItem;
+    property FieldCount: Integer read GetCount;
+
+    function AddField(aField: TDASelectWhereItem): Integer;
+    procedure DeleteField(index: Integer);
+  end;
+
+
+function CreateWhereExpression(AName: string): TDAWhereExpression;
+
+type
+  TWhereFieldsArray = array of string;
+
+function Where_ExtractFieldNames(const AWhereExpression: TDAWhereExpression): TWhereFieldsArray;
+function Where_RemapFieldNames(const aXML: UnicodeString; aMappings: TDAColumnMappingCollection; aTargetTableName: String): UnicodeString;
+function ProcessDAWhereForUnions(aSourceTableID: Integer; var aDAWhereString: UnicodeString): Boolean;
+procedure Where_RemapTableNames(aExpression: TDAWhereExpression; const AOldTableName, aNewTableName: string);
+function Where_RemapTableNamesForUnions(const aXML: UnicodeString; const AOldTableName, aNewTableName: string): UnicodeString;
+procedure Where_CreateParameters(aExpression: TDAWhereExpression; AParams: TDAParamCollection);
+implementation
+
+uses Variants, TypInfo, uROClasses, uDAClasses;
+
+procedure Where_RemapTableNames(aExpression: TDAWhereExpression; const AOldTableName, aNewTableName: string);
+var
+  i: integer;
+begin
+  if aExpression = nil then Exit;
+  if aExpression is TDABinaryExpression then begin
+    Where_RemapTableNames(TDABinaryExpression(aExpression).Left,AOldTableName, aNewTableName);
+    Where_RemapTableNames(TDABinaryExpression(aExpression).Right,AOldTableName, aNewTableName);
+  end
+  else if aExpression is TDAUnaryExpression then begin
+    Where_RemapTableNames(TDAUnaryExpression(aExpression).Expression,AOldTableName, aNewTableName);
+  end
+  else if aExpression is TDAListExpression then begin
+    with TDAListExpression(aExpression) do
+      for i := 0 to Count - 1 do
+        Where_RemapTableNames(Item[i], AOldTableName, aNewTableName);
+  end
+  else if aExpression is TDAFieldExpression then begin
+    with TDAFieldExpression(AExpression) do begin
+      if TableName = AOldTableName then TableName := aNewTableName;
+    end;
+  end;
+end;
+
+function Where_RemapTableNamesForUnions(const aXML: UnicodeString; const AOldTableName, aNewTableName: string): UnicodeString;
+begin
+  Result := '';
+  if aXML <> '' then
+    with TDAWhereBuilder.Create do try
+      Xml := aXML;
+      Where_RemapTableNames(Expression,AOldTableName,aNewTableName);
+      Result := Xml;
+    finally
+      free;
+    end;
+end;
+
+function Where_ExtractFieldNames(const AWhereExpression: TDAWhereExpression): TWhereFieldsArray;
+
+  procedure ProcessExpression(aExpression: TDAWhereExpression);
+  var
+    i: integer;
+  begin
+    if aExpression = nil then Exit;   
+    if aExpression is TDABinaryExpression then begin
+      ProcessExpression(TDABinaryExpression(aExpression).fLeft);
+      ProcessExpression(TDABinaryExpression(aExpression).fRight);
+    end
+    else if aExpression is TDAUnaryExpression then begin
+      ProcessExpression(TDAUnaryExpression(aExpression).Expression);
+    end
+    else if aExpression is TDAListExpression then begin
+      with TDAListExpression(aExpression) do
+        for i := 0 to Count - 1 do
+          ProcessExpression(Item[i]);
+    end
+    else if aExpression is TDAFieldExpression then begin
+      SetLength(Result,Length(Result)+1);
+      with TDAFieldExpression(AExpression) do begin
+        //Result[High(Result)]:=TableName +'.'+ FieldName;
+        Result[High(Result)]:=FieldName;
+      end;
+    end;
+  end;
+
+begin
+  SetLength(Result,0);
+  ProcessExpression(AWhereExpression);
+end;
+
+function Where_RemapFieldNames(const aXML: UnicodeString; aMappings: TDAColumnMappingCollection; aTargetTableName: String): UnicodeString;
+
+  procedure ProcessExpression(aExpression: TDAWhereExpression);
+  var
+    i: integer;
+    lMapping : TDAColumnMapping;
+  begin
+    if aExpression = nil then Exit;                              
+    if aExpression is TDABinaryExpression then begin
+      ProcessExpression(TDABinaryExpression(aExpression).fLeft);
+      ProcessExpression(TDABinaryExpression(aExpression).fRight);
+    end
+    else if aExpression is TDAUnaryExpression then begin
+      ProcessExpression(TDAUnaryExpression(aExpression).Expression);
+    end
+    else if aExpression is TDAListExpression then begin
+      with TDAListExpression(aExpression) do
+        for i := 0 to Count - 1 do
+          ProcessExpression(Item[i]);
+    end
+    else if aExpression is TDAFieldExpression then begin
+      SetLength(Result,Length(Result)+1);
+      with TDAFieldExpression(AExpression) do begin
+        TableName := aTargetTableName;
+        lMapping := aMappings.FindMappingByDatasetField(FieldName);
+        if (assigned(lMapping)) then FieldName := lMapping.TableField;
+      end;
+    end;
+  end;
+
+begin
+  SetLength(Result,0);
+  if aXML <> '' then
+    with TDAWhereBuilder.Create do try
+      Xml:=aXML;
+      ProcessExpression(Expression);
+      result := Xml;
+    finally
+      free;
+    end;
+end;
+
+function CreateWhereExpression(AName: string): TDAWhereExpression;
+begin
+  if AName = 'binaryoperation' then
+    Result :=  TDABinaryExpression.Create
+  else if AName = 'unaryoperation' then
+    Result :=  TDAUnaryExpression.Create
+  else if AName = 'constant' then
+    Result :=  TDAConstantExpression.Create
+  else if AName = 'list' then
+    Result :=  TDAListExpression.Create
+  else if AName = 'parameter' then
+    Result :=  TDAParameterExpression.Create
+  else if AName = 'field' then
+    Result :=  TDAFieldExpression.Create
+  else if AName = 'null' then
+    Result :=  TDANullExpression.Create
+  else if AName = 'macro' then
+    Result :=  TDAMacroExpression.Create
+  else
+    raise Exception.Create('Unknown element type: '+AName);
+end;
+
+{ TDABinaryExpression }
+
+constructor TDABinaryExpression.Create(aLeft,aRight: TDAWhereExpression; anOp: TDABinaryOperator);
+begin
+  inherited Create;
+  fLeft := aLeft;
+  fRight := aRight;
+  fOperator := anOp;
+end;
+
+destructor TDABinaryExpression.Destroy;
+begin
+  fLeft.Free;
+  fRight.Free;
+  inherited Destroy;
+end;
+
+procedure TDABinaryExpression.ReadFromXml(xr: IXmlNode);
+begin
+  fOperator := TDABinaryOperator(GetEnumValue(typeinfo(TDABinaryOperator), 'dbo'+xr.GetAttributeValue('operator', 'Addition')));
+  FreeAndNil(fLeft);
+  FreeAndNil(fRight);
+  Left := TDAWhereExpression.ParseExpression(xr.FirstChild);
+  Right := TDAWhereExpression.ParseExpression(xr.FirstChild.NextSibling);
+end;
+
+procedure TDABinaryExpression.Validate;
+begin
+  inherited;
+  if Left = nil then raise Exception.Create('TDABinaryExpression.Left must be assigned.');
+  Left.Validate;
+  if Right = nil then raise Exception.Create('TDABinaryExpression.Right must be assigned.');
+  Right.Validate;
+end;
+
+procedure TDABinaryExpression.WriteToXml(sw: IXmlNode);
+var
+  lNode: IXMLNode;
+begin
+  lNode := sw.Add('binaryoperation');
+  lNode.AddAttribute('operator', Copy(GetEnumName(typeinfo(TDABinaryOperator), ord(fOperator)), 4, MaxInt));
+  if Left <> nil then Left.WriteToXml(lNode);
+  if Right <> nil then Right.WriteToXml(lNode);
+end;
+
+{ TDAUnaryExpression }
+
+constructor TDAUnaryExpression.Create(anExpression: TDAWhereExpression; anOp: TDAUnaryOperator);
+begin
+  inherited Create;
+  fExpression := anExpression;
+  fOperator := anOp;
+end;
+
+destructor TDAUnaryExpression.Destroy;
+begin
+  fExpression.Free;
+  inherited;
+end;
+
+procedure TDAUnaryExpression.ReadFromXml(xr: IXmlNode);
+begin
+  FreeAndNil(fExpression);
+  fOperator := TDAUnaryOperator(GetEnumValue(typeinfo(TDAUnaryOperator), 'duo'+xr.GetAttributeValue('operator', 'Not')));
+  fExpression := TDAWhereExpression.ParseExpression(xr.FirstChild);
+end;
+
+procedure TDAUnaryExpression.Validate;
+begin
+  inherited;
+  if Expression = nil then raise Exception.Create('TDAUnaryExpression.Expression must be assigned.');
+  Expression.Validate;
+end;
+
+procedure TDAUnaryExpression.WriteToXml(sw: IXmlNode);
+var
+  lNode: IXMLNode;
+begin
+  lNode := sw.Add('unaryoperation');
+  lNode.AddAttribute('operator', Copy(GetEnumName(typeinfo(TDAUnaryOperator), ord(fOperator)), 4, MaxInt));
+  if fExpression <> nil then fExpression.WriteToXml(lNode);
+end;
+
+{ TDAConstantExpression }
+
+constructor TDAConstantExpression.Create(const aValue: Variant);
+begin
+  inherited Create;
+  Value := aValue;
+end;
+
+constructor TDAConstantExpression.Create(const aValue: Variant; aType: TDADataType);
+begin
+  Create(aValue);
+  fType := aType;
+end;
+
+function GetVariantBase64(s: string): Variant;
+var ss: TStringStream;
+    binstream : TMemoryStream;
+begin
+  binstream := TMemoryStream.Create;
+  ss := TStringStream.Create(s);
+
+  try
+
+    DecodeStream(ss, binstream);
+    binstream.Position := 0;
+
+    Result := ReadVariantFromBinary(binstream);
+  finally
+    FreeAndNIL(ss);
+    FreeAndNIL(binstream);
+  end;
+end;
+
+class function TDAConstantExpression.DeserializeObject(const s: Unicodestring;
+  dt: TDADataType): Variant;
+var
+  lTemp: Currency;
+  c: Integer;
+  lTemp2: Double;
+  lTemp3: Single;
+begin
+  case dt of
+    datGuid: if copy(s,1,1) <> '{' then result := '{'+s+'}' else result := s;
+    datXml: result := s;
+    datDecimal: result := BCDToVariant(StrToBcd(StringReplace(s, '.', DecimalSeparator, [])));
+    datSingleFloat:
+      begin
+        Val(s, lTemp3, c);
+        Result := lTemp3;
+      end;
+    datLargeAutoInc,
+    datCardinal,
+    datLargeUInt,
+    datLargeInt: Result := StrToInt64(s);
+    datBoolean: result := Lowercase(S) = 'true';
+    datAutoInc,
+    datByte,
+    datShortInt,
+    datWord,
+    datSmallInt,
+    datInteger: Result := STrToInt(S);
+    datBlob: Result := GetVariantBase64(s);
+    datCurrency:
+    begin
+      Int64((@lTemp)^) := StrToInt64(s);
+      Result := lTemp;
+    end;
+    datDateTime: Result := UnixToDateTime(StrToInt64(s));
+    datFloat:
+    begin
+      Val(s, lTemp2, c);
+      Result := lTemp2;
+    end;
+{
+    DataType.Memo: ;
+    DataType.String: ;
+    DataType.Unknown: ;
+    DataType.WideMemo: ;
+    DataType.WideString: ;
+  }
+    else
+      Result := s;
+  end;
+end;
+
+function GetBase64Variant(v: Variant): string;
+var ss: TStringStream;
+    binstream : TMemoryStream;
+begin
+  binstream := TMemoryStream.Create;
+  ss := TStringStream.Create('');
+
+  try
+    WriteVariantToBinary(v, binstream);
+    binstream.Position := 0;
+
+    EncodeStream(binstream, ss);
+    result := ss.DataString;
+  finally
+    FreeAndNIL(ss);
+    FreeAndNIL(binstream);
+  end;
+end;
+
+class function TDAConstantExpression.SerializeObject(const v: Variant;
+  dt: TDADataType): Unicodestring;
+var
+  lTemp: Int64;
+begin
+  case dt of
+    datBoolean: if v then Result := 'True' else Result := 'False';
+    datGuid: begin Result := v; if Copy(Result, 1,1) = '{' then Result := Copy(Result, 2, Length(Result) -2); end;
+    datXml: result := v;
+    datDecimal: Result := StringReplace(BcdToStr(VariantToBCD(v)), DecimalSeparator, '.', []);
+    datSingleFloat: Result:= FloatToStr(Single(V));  //Str(Single(v), Result);
+
+    datLargeAutoInc,
+    datByte,
+    datShortInt,
+    datWord,
+    datSmallInt,
+    datCardinal,
+    datLargeUInt,
+    datLargeInt,
+    datAutoInc,
+    datInteger: begin
+        lTemp := v;
+        Result := IntTostr(lTemp);
+      end;
+    datBlob:
+      begin
+        Result :=  GetBase64Variant(v);
+      end;
+    datCurrency:
+      begin
+        Currency((@lTemp)^) := Currency(v);
+        Result := IntToStr(lTemp)
+      end;
+    datDateTime: Result := IntToStr(DateTimeToUnix(v));
+    datFloat: Result:= FloatToStr(Double(V)); //Str(Double(v), Result); // System.Str always emits .
+{
+    DataType.Memo: ;
+    DataType.String: ;
+    DataType.Unknown: ;
+    DataType.WideMemo: ;
+    DataType.WideString: ;
+}
+    else
+      Result := v;
+  end;
+end;
+
+procedure TDAConstantExpression.ReadFromXml(xr: IXmlNode);
+var
+  s: string;
+begin
+  s := xr.GetAttributeValue('type', '');
+  if s <> '' then begin
+    s := 'dat' + s;
+    fType := TDADataType(GetEnumValue(typeinfo(TDADataType), s));
+  end;
+  if xr.GetAttributeValue('null', '0') = '1' then begin
+    fValue := null;
+  end else begin
+    fValue := DeserializeObject(xr.Value, fType);
+  end;
+end;
+
+procedure TDAConstantExpression.WriteToXml(sw: IXmlNode);
+var
+  lNode: IXMLNode;
+begin
+  lNode := sw.Add('constant');
+  lNode.AddAttribute('type', Copy(GetEnumName(typeinfo(TDADataType), ord(fType)), 4, MaxInt));
+  if VarIsNull(fValue) or VarIsError(fValue) then
+    lNode.AddAttribute('null', '1')
+  else begin
+    lNode.AddAttribute('null', '0');
+    LNode.Value := SerializeObject(fValue, fType);
+  end;
+end;
+
+procedure TDAConstantExpression.SetValue(const Value: Variant);
+var
+  d: TDecimal;
+begin
+  if not ROVariantsEqual(fValue,Value) then begin
+    fValue := Value;
+    case VarType(fValue) of
+      varSmallint: fType := datSmallInt;
+      varInteger:  fType := datInteger;
+      varSingle:   fType := datSingleFloat;
+      varDouble:   fType := datFloat;
+      varCurrency: fType := datCurrency;
+      varDate:     fType := datDateTime;
+      varUString,
+      varOleStr:   fType := datWideString;
+      //varDispatch:
+      //varError:
+      varBoolean:  fType := datBoolean;
+      //varVariant:
+      //varUnknown:
+      varShortInt: fType := datShortInt;
+      varByte:     fType := datByte;
+      varWord:     fType := datWord;
+      varLongWord: fType := datCardinal;
+      varInt64:    fType := datLargeInt;
+      //varStrArg:
+      varString:   fType := datString;
+      //varAny:
+      //varTypeMask:
+      //varByRef:
+      //:   fType := datGuid;
+      //:   fType := datXml;
+      //:   fType := datDecimal;
+      //:   fType := datLargeAutoInc;
+      //:   fType := datLargeUInt;
+      //:   fType := datAutoInc;
+      //:   fType := datMemo;
+      //:   fType := datWideMemo;
+    else
+      if fValue = varArray or varByte then begin
+        if VarByteArrayToDecimal(fValue,d) then
+          fType:= datDecimal
+        else
+          fType := datBlob;
+      end
+      else begin
+        fType:= datUnknown;
+      end;
+    end;
+  end;
+end;
+
+{ TDAListExpression }
+
+procedure TDAListExpression.Add(aValue: TDAWhereExpression);
+begin
+  FItems.Add(aValue);
+end;
+
+constructor TDAListExpression.Create(const aValues: array of TDAWhereExpression);
+var
+  i: Integer;
+begin
+  Create;
+  for i := 0 to Length(aValues) -1 do
+    Add(aValues[i]);
+end;
+
+constructor TDAListExpression.Create;
+begin
+  inherited Create;
+  FItems := TList.Create;
+end;
+
+function TDAListExpression.GetCount: Integer;
+begin
+  Result := FItems.Count;
+end;
+
+function TDAListExpression.GetItem(idx: Integer): TDAWhereExpression;
+begin
+  Result := TDAWhereExpression(fItems[idx]);
+end;
+
+procedure TDAListExpression.Insert(Position: Integer;
+  aValue: TDAWhereExpression);
+begin
+  fItems.Insert(Position, aValue);
+end;
+
+procedure TDAListExpression.ReadFromXml(xr: IXmlNode);
+var
+  i: Integer;
+  el: IXMLNode;
+begin
+  for i := 0 to xr.ChildrenCount -1 do begin
+    el := xr.Children[i];
+    Add(TDAWhereExpression.ParseExpression(el));
+  end;
+end;
+
+procedure TDAListExpression.WriteToXml(sw: IXmlNode);
+var
+  i: Integer;
+  el: IXMLNode;
+begin
+  el := sw.Add('list');
+  for i := 0 to Count -1 do begin
+    Item[i].WriteToXml(el);
+  end;
+end;
+
+procedure TDAListExpression.Remove(aValue: TDAWhereExpression);
+var
+  lIndex: Integer;
+begin
+  lIndex := FItems.IndexOf(aValue);
+  if lIndex <> -1 then
+    Delete(lIndex);
+end;
+
+procedure TDAListExpression.Delete(index: Integer);
+begin
+  TObject(FItems[index]).Free;
+  fItems.Delete(index);
+end;
+
+procedure TDAListExpression.SetItem(idx: Integer;
+  aValue: TDAWhereExpression);
+begin
+  fItems[idx] := aValue;
+end;
+
+destructor TDAListExpression.Destroy;
+var
+  i: Integer;
+begin
+  for i := fItems.Count -1 downto 0 do
+    TDAWhereExpression(fItems[i]).Free;
+  fItems.Free;
+  inherited Destroy;
+end;
+
+procedure TDAListExpression.Validate;
+var
+  i: Integer;
+begin
+  inherited;
+  for i:=0 to Count-1 do begin
+    if Item[i] = nil then raise Exception.CreateFmt('TDAListExpression.Item[%d] must be assigned.',[i]);
+    Item[i].Validate;
+  end;
+end;
+
+{ TDAParameterExpression }
+
+constructor TDAParameterExpression.Create(const aParameterName: string);
+begin
+  inherited Create;
+  fParameterName := aParameterName;
+end;
+
+procedure TDAParameterExpression.ReadFromXml(xr: IXmlNode);
+begin
+  fParameterName := xr.Value;
+end;
+
+procedure TDAParameterExpression.Validate;
+begin
+  inherited;
+  if ParameterName = '' then raise Exception.Create('TDAParameterExpression.ParameterName must be assigned.');
+end;
+
+procedure TDAParameterExpression.WriteToXml(sw: IXmlNode);
+var
+  el: IXmlNode;
+begin
+  el := sw.Add('parameter');
+  el.Value := fParameterName;
+end;
+
+{ TDAFieldExpression }
+
+constructor TDAFieldExpression.Create(const aTableName, aFieldName: string);
+begin
+  inherited Create;
+  fTableName := aTableName;
+  fFieldName := aFieldName;
+end;
+
+procedure TDAFieldExpression.ReadFromXml(xr: IXmlNode);
+begin
+  if xr.LocalName <> 'field' then raise Exception.Create('field tag expected');
+  fFieldName := VarToStr(xr.Value);
+  fTableName := xr.GetAttributeValue('tablename', '');
+end;
+
+procedure TDAFieldExpression.Validate;
+begin
+  inherited;
+  if FieldName = '' then raise Exception.Create('TDAFieldExpression.FieldName must be assigned.');
+end;
+
+procedure TDAFieldExpression.WriteToXml(sw: IXmlNode);
+var
+  el: IXMLNode;
+begin
+  el := sw.Add('field');
+  el.Value := fFieldName;
+  if fTableName <> '' then
+    el.AddAttribute('tablename', fTableName);
+end;
+
+{ TDANullExpression }
+
+procedure TDANullExpression.ReadFromXml(xr: IXmlNode);
+begin
+  // nothing to do.
+end;
+
+procedure TDANullExpression.WriteToXml(sw: IXmlNode);
+begin
+  sw.Add('null');
+end;
+
+{ TDAMacroExpression }
+
+procedure TDAMacroExpression.Add(aValue: TDAWhereExpression);
+begin
+  FItems.Add(aValue);
+end;
+
+constructor TDAMacroExpression.Create;
+begin
+  inherited Create;
+  FItems := TList.Create;
+end;
+
+constructor TDAMacroExpression.Create(const aName: string);
+begin
+  Create;
+  fName := aName;
+end;
+
+constructor TDAMacroExpression.Create(const aName: string; const aValues: array of TDAWhereExpression);
+var
+  i: Integer;
+begin
+  Create(aName);
+  for i := 0 to Length(aValues) -1 do
+    Add(aValues[i]);
+end;
+
+destructor TDAMacroExpression.Destroy;
+var
+  i: Integer;
+begin
+  for i := fItems.Count -1 downto 0 do
+    TObject(FItems[i]).Free;
+  fItems.Free;
+  inherited Destroy;
+end;
+
+function TDAMacroExpression.GetCount: Integer;
+begin
+  Result := FItems.Count;
+end;
+
+function TDAMacroExpression.GetItem(idx: Integer): TDAWhereExpression;
+begin
+  result := TDAWhereExpression(FItems[idx]);
+end;
+
+procedure TDAMacroExpression.Insert(Position: Integer;
+  aValue: TDAWhereExpression);
+begin
+  FItems.Insert(Position, aValue);
+end;
+
+procedure TDAMacroExpression.Remove(aValue: TDAWhereExpression);
+var
+  lIndex: Integer;
+begin
+  lIndex := FItems.IndexOf(aValue);
+  if lIndex <> -1 then
+    Delete(lIndex);
+end;
+
+procedure TDAMacroExpression.Delete(index: Integer);
+begin
+  TDAWhereExpression(FItems[index]).Free;
+  FItems.Delete(index);
+end;
+
+procedure TDAMacroExpression.SetItem(idx: Integer;
+  aValue: TDAWhereExpression);
+begin
+  FItems[idx] := aValue;
+end;
+
+procedure TDAMacroExpression.ReadFromXml(xr: IXmlNode);
+var
+  i: Integer;
+begin
+  fName := xr.GetAttributeValue('name', '');
+  for i := 0 to xr.ChildrenCount -1 do
+   Add(TDAWhereExpression.ParseExpression(xr.Children[i]));
+end;
+
+procedure TDAMacroExpression.WriteToXml(sw: IXmlNode);
+var
+  el: IXMLNode;
+  i: Integer;
+begin
+  el := sw.Add('macro');
+  el.AddAttribute('name', fName);
+  for i := 0 to Count -1 do
+    Item[i].WriteToXml(el);
+end;
+
+procedure TDAMacroExpression.Validate;
+var
+  i: integer;
+begin
+  inherited;
+  if Name = '' then raise Exception.Create('TDAMacroExpression.Name must be assigned.');
+  for i := 0 to Count -1 do begin
+    if Item[i] = nil then raise Exception.CreateFmt('TDAMacroExpression.Item[%d] must be assigned.',[i]);
+    Item[i].Validate;
+  end;
+end;
+
+{ TDASelectWhereItem }
+
+constructor TDASelectWhereItem.Create(anOwner: TDASelectWhereBuilder);
+begin
+  inherited Create;
+  fOwner := anOwner;
+end;
+
+{ TDASelectWhereField }
+
+constructor TDASelectWhereField.Create(anOwner: TDASelectWhereBuilder);
+begin
+  inherited Create(anOwner);
+end;
+
+constructor TDASelectWhereField.Create(anOwner: TDASelectWhereBuilder;
+  const aFieldName: String);
+begin
+  inherited Create(anOwner);
+  fFieldName := aFieldName;
+end;
+
+constructor TDASelectWhereField.Create(anOwner: TDASelectWhereBuilder;
+  const aFieldName, anAlias: string);
+begin
+  inherited Create(anOwner);
+  fFieldName := aFieldName;
+  fAlias := anAlias;
+end;
+
+procedure TDASelectWhereField.ReadFromXml(xr: IXmlNode);
+begin
+  if xr.LocalName <> 'field' then raise Exception.Create('field tag expected');
+  Alias := xr.GetAttributeValue('alias', '');
+  fFieldName := VarToStr(xr.Value);
+end;
+
+procedure TDASelectWhereField.WriteToXml(sw: IXmlNode);
+var
+  el: IXMLNode;
+begin
+  el := sw.Add('field');
+  el.Value := fFieldName;
+  if fAlias <> '' then
+    el.AddAttribute('alias', fAlias);
+end;
+
+{ TDASelectWhereBuilder }
+
+function TDASelectWhereBuilder.AddField(
+  aField: TDASelectWhereItem): Integer;
+begin
+  Result := fFields.Add(aField);
+end;
+
+constructor TDASelectWhereBuilder.Create;
+begin
+  inherited Create;
+  fFields := TList.Create;
+end;
+
+procedure TDASelectWhereBuilder.DeleteField(index: Integer);
+begin
+  TDASelectWhereItem(fFields[index]).Free;
+  fFields.Delete(index);
+end;
+
+destructor TDASelectWhereBuilder.Destroy;
+var
+  i: Integer;
+begin
+  for i := fFields.Count -1 downto 0 do
+    TDASelectWhereItem(fFields[i]).Free;
+  fFields.Free;
+  inherited Destroy;
+end;
+
+function TDASelectWhereBuilder.GetCount: Integer;
+begin
+  result := fFields.Count;
+end;
+
+function TDASelectWhereBuilder.GetItem(i: Integer): TDASelectWhereItem;
+begin
+  result := TDASelectWhereItem(fFields[i]);
+end;
+
+function TDASelectWhereBuilder.ReadFromXml(xr: IXmlNode):TDAWhereExpression;
+var
+  el: IXMLNode;
+  i: Integer;
+  sw: TDASelectWhereField;
+begin
+  el := SelectNodeLocal(xr, 'select');
+  if el = nil then raise Exception.Create('"select" node expected');
+  fTableName := el.GetNodeValue('table', '');
+  el := SelectNodeLocal(el, 'fields');
+  if el <> nil then begin
+    for i := 0 to el.ChildrenCount -1 do begin
+      sw := TDASelectWhereField.Create(self);
+      fFields.Add(sw);
+      sw.ReadFromXml(el.Children[i]);
+    end;
+  end;
+  Result:= inherited ReadFromXml(xr);
+end;
+
+procedure TDASelectWhereBuilder.WriteToXml(sw: IXmlNode; const aExpression: TDAWhereExpression);
+var
+  el: IXMLNode;
+  i: Integer;
+begin
+  el := sw.Add('where');
+  el.Add('table').Value := fTableName;
+  el := el.Add('fields');
+  for i := 0 to fFields.Count -1 do
+    Fields[i].WriteToXml(el);
+
+  inherited WriteToXml(sw,aExpression);
+end;
+
+function ProcessDAWhereForUnions(aSourceTableID: Integer; var aDAWhereString: UnicodeString): Boolean;
+var
+  // 0 initial state
+  // 1 all OR
+  // 2 all AND
+  // 3 mixed
+  gFlag: Integer;
+
+  gFalseFound: Boolean;
+  gTrueFound: Boolean;
+
+  // Just replace TDAFieldExpression of the SourceTableName field to its real value
+  procedure ResolveSourceTableFieldExpression(var anExpression: TDAWhereExpression);
+  begin
+    if (SameText(TDAFieldExpression(anExpression).FieldName, def_SourceTableFieldName)) then
+      anExpression := TDAConstantExpression.Create(aSourceTableID, datInteger);
+  end;
+
+  procedure ProcessExpression(var aExpression: TDAWhereExpression);
+  var
+    lTempExpr: TDAWhereExpression;
+  begin
+    if aExpression = nil then Exit;
+
+    if aExpression is TDAFieldExpression then begin
+      ResolveSourceTableFieldExpression(aExpression);
+    end else
+
+    if aExpression is TDABinaryExpression then begin
+
+      lTempExpr := TDABinaryExpression(aExpression).Left;
+      ProcessExpression(lTempExpr);
+      TDABinaryExpression(aExpression).Left := lTempExpr;
+
+      lTempExpr := TDABinaryExpression(aExpression).Right;
+      ProcessExpression(lTempExpr);
+      TDABinaryExpression(aExpression).Right := lTempExpr;
+
+    end;
+  end;
+
+  // Returns:
+  // -1 unknown
+  //  0 false
+  //  1 true
+  function ScanExpressionIsTrueOrFalse(anExpression: TDAWhereExpression): integer;
+  var lBinExpr: TDABinaryExpression;
+  var lLeftValue, lRightValue: Variant;
+  var lResult : TVariantRelationship;
+  begin
+    result := -1;
+    lBinExpr := anExpression as TDABinaryExpression;
+    if not assigned(lBinExpr) then exit;
+    if not ((lBinExpr.Left is TDAConstantExpression) and (lBinExpr.Right is TDAConstantExpression)) then exit;
+
+    lLeftValue := (lBinExpr.Left as TDAConstantExpression).Value;
+    lRightValue  := (lBinExpr.Right as TDAConstantExpression).Value;
+
+    lResult := VarCompareValue(lLeftValue, lRightValue);
+
+    if ((lBinExpr.Operator in [dboEqual, dboGreaterOrEqual, dboLessOrEqual]) and (lResult = vrEqual)) then
+      result := 1
+    else
+    if ((lBinExpr.Operator in [dboGreater, dboGreaterOrEqual]) and (lResult = vrGreaterThan)) then
+      result := 1
+    else
+    if ((lBinExpr.Operator in [dboLess, dboLessOrEqual]) and (lResult = vrLessThan)) then
+      result := 1
+    else
+      result := 0;
+  end;
+
+  // this sub proc goes throw all bin exp and operates with global variables
+  // declared in parent proc
+  procedure TestExpressionRecursive(anExpression: TDAWhereExpression);
+  var
+    lFound: Integer;
+    lInnerOp: TDABinaryOperator;
+  begin
+    if anExpression is TDABinaryExpression then begin
+
+      lInnerOp := TDABinaryExpression(anExpression).Operator;
+      case gFlag of
+        0: begin
+          if lInnerOp = dboOr then gFlag := 1;
+          if lInnerOp = dboAnd then gFlag := 2;
+        end;
+        1: begin
+          if lInnerOp = dboAnd then gFlag := 3;
+        end;
+        2: begin
+          if lInnerOp = dboOr then gFlag := 3;
+        end;
+      end;
+      if gFlag = 3 then exit;
+
+      lFound := ScanExpressionIsTrueOrFalse(anExpression);
+      case lFound of
+        -1:{Unknown} begin
+             TestExpressionRecursive(TDABinaryExpression(anExpression).Left);
+             TestExpressionRecursive(TDABinaryExpression(anExpression).Right);
+         end;
+         0: {found FALSE} begin
+          gFalseFound := true;
+         end;
+         1: {found TRUE} begin
+          gTrueFound := true;
+         end;
+      end;
+    end;
+  end;
+
+  // gFlag
+  // 0 initial state
+  // 1 all OR
+  // 2 all AND
+  // 3 mixed
+
+  // Rules I found
+  // If *ALL* binexp joined by "OR" and TRUE was found then get ALL records     : -1
+  // If *ALL* binexp joined by "AND" and FALSE was found then get NONE records  :  0
+  // All other cases need to apply where query                                  :  1
+  function TestExpression(anExpression: TDAWhereExpression): Integer;
+  begin
+    // initialize
+    gFlag := 0;
+    gFalseFound := false;
+    gTrueFound := false;
+    result := 1; // apply query
+
+    TestExpressionRecursive(anExpression);
+
+    case gFlag of
+
+        0: begin
+            if gTrueFound then begin
+              result := -1;
+              exit;
+            end;
+            if gFalseFound then begin
+              result := 0;
+              exit;
+            end;
+        end;
+
+        1: begin
+          if gTrueFound then begin
+              result := -1;
+              exit;
+            end;
+        end;
+
+        2: begin
+          if gFalseFound then begin
+              result := 0;
+              exit;
+            end;
+        end;
+    end;
+  end;
+
+
+var lTempExpr: TDAWhereExpression;
+lResult : Integer;
+begin
+  Result := True;
+  if aDAWhereString <> '' then
+    with TDAWhereBuilder.Create do try
+      Xml := aDAWhereString;
+      lTempExpr := Expression;
+      ProcessExpression(lTempExpr);
+      Expression := lTempExpr;
+
+      aDAWhereString := Xml;
+      lResult := TestExpression(Expression);
+      if lResult = -1 then aDAWhereString := '';
+      result := (0 <> lResult);
+    finally
+      free;
+    end;
+end;
+
+procedure Where_CreateParameters(aExpression: TDAWhereExpression; AParams: TDAParamCollection);
+
+  procedure ProcessExpression(lExpression: TDAWhereExpression);
+  var
+    i: integer;
+  begin
+    if lExpression = nil then Exit;
+    if lExpression is TDABinaryExpression then begin
+      ProcessExpression(TDABinaryExpression(lExpression).Left);
+      ProcessExpression(TDABinaryExpression(lExpression).Right);
+    end
+    else if lExpression is TDAUnaryExpression then begin
+      ProcessExpression(TDAUnaryExpression(lExpression).Expression);
+    end
+    else if lExpression is TDAListExpression then begin
+      with TDAListExpression(lExpression) do
+        for i := 0 to Count - 1 do
+          ProcessExpression(Item[i]);
+    end
+    else if lExpression is TDAParameterExpression then begin
+      with TDAParameterExpression(lExpression) do
+        if AParams.FindParam(ParameterName) = nil then
+          AParams.Add.Name := ParameterName;
+    end;
+  end;
+
+begin
+  ProcessExpression(aExpression);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAXMLAdapter.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAXMLAdapter.pas
new file mode 100644
index 0000000..7a4bd5d
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAXMLAdapter.pas	
@@ -0,0 +1,1061 @@
+unit uDAXMLAdapter;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  Classes, TypInfo, SysUtils,
+  uROClasses, uROXMLIntf,
+  uDAInterfaces, uDADataStreamer, uDADelta;
+
+const
+  // Data stream node names
+  nn_DocumentName = 'XMLData';
+  nn_Schema       = 'Schema';
+  nn_Datasets     = 'Datasets';
+  nn_Fields       = 'Fields';
+  nn_Field        = 'Field';
+  nn_Params       = 'Params';
+  nn_Param        = 'Param';
+  nn_Row          = 'Row';
+
+  // Delta stream node names
+  nn_Deltas = 'Deltas';
+
+  attr_RecId = 'RecId';
+  nn_SourceTableFieldName = '___SourceTableFieldName';
+
+type
+
+  TDADataForAppendXML = class(TDADataForAppend)
+  public
+    Node: iXMLNode;
+  end;
+
+  TDAXMLSchemaOption = (soIncludeEmptyAttributes);
+  TDAXMLSchemaOptions = set of TDAXMLSchemaOption;
+
+  TDAXMLRowOption = (roCompressBlobs);
+  TDAXMLRowOptions = set of TDAXMLRowOption;
+
+  TDAXmlDataStreamerOption = (xaoUseDatasetXSLTs, xaoUseDeltaXSLTs);
+  TDAXmlDataStreamerOptions = set of TDAXmlDataStreamerOption;
+
+  { TDAXmlDataStreamer }
+  TDAXmlDataStreamer = class(TDADataStreamer)
+  private
+    fWriteXSLT,
+    fReadXSLT{,
+    fWriteDeltaXSLT,
+    fReadDeltaXSLT} : IXMLDocument;
+
+    fXMLDocument : IXMLDocument;
+    fSchemaRoot,
+    fRootNode,
+    fDatasetSchemaNode,
+    fDeltaSchemaNode,
+    fDatasetNode,
+    fDeltaNode : IXMLNode;
+
+    fDAFieldPropInfoList : PPropList;
+    fDAMemPropCount,
+    fDAFieldPropCount : integer;
+    fSchemaOptions: TDAXMLSchemaOptions;
+    fRowOptions: TDAXMLRowOptions;
+    fOptions: TDAXmlDataStreamerOptions;
+    fDocumentName: string;
+    fSkipNull: boolean;
+    param_proplistcount: integer;
+    param_PropList: PPropList;
+
+    procedure WriteBlobValue(const aDestination : IXMLNode; const anAttributeName : string; const aBlobValue : Variant);
+    function ReadBlobValue(const aSource: IXMLNode; const anAttributeName : string) : Variant;
+    function GetReadXSLT: IXMLDocument;
+    function GetWriteXSLT: IXMLDocument;
+    {function GetReadDeltaXSLT: IXMLDocument;
+    function GetWriteDeltaXSLT: IXMLDocument;}
+
+    function GetXMLDocument(var XMLDocument: IXMLDocument): IXMLDocument;
+    function SaveDocumentName: Boolean;
+    procedure SetDocumentName(const Value: string);
+    procedure ClearXMLNodes;
+
+  protected
+    function DoCreateStream: TStream; override;
+    procedure DoInitialize(Mode: TDAAdapterInitialization); override;
+    procedure DoFinalize; override;
+    function DoWriteDataset(const Source: IDADataset; Options: TDAWriteOptions; MaxRows: integer;ADynFieldNames: array of string): integer; override;
+    procedure DoWriteDelta(const Source: IDADelta); override;
+    procedure DoReadDataset(const DatasetName: string; const Destination: IDADataset; ApplySchema: boolean;AppendMode: Boolean); override;
+    procedure DoReadDelta(const DeltaName: string; const Destination: IDADelta); override;
+    function DoBeginWriteDataset( const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend; override;
+    function DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer; override;
+    function DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer; override;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    function GetTargetDataType: TRODataType; override;
+
+    property ReadXSLT : IXMLDocument read GetReadXSLT write fReadXSLT;
+    property WriteXSLT : IXMLDocument read GetWriteXSLT write fWriteXSLT;
+    {property ReadDeltaXSLT : IXMLDocument read GetReadDeltaXSLT write fReadDeltaXSLT;
+    property WriteDeltaXSLT : IXMLDocument read GetWriteDeltaXSLT write fWriteDeltaXSLT;}
+
+  published
+    property SkipNull : boolean read fSkipNull write fSkipNull default true;
+    property SchemaOptions : TDAXMLSchemaOptions read fSchemaOptions write fSchemaOptions;
+    property RowOptions : TDAXMLRowOptions read fRowOptions write fRowOptions;
+    property Options : TDAXmlDataStreamerOptions read fOptions write fOptions;
+    property DocumentName : string read fDocumentName write SetDocumentName stored SaveDocumentName;
+  end;
+
+  TDAXMLAdapter = class(TDAXmlDataStreamer) end deprecated;
+
+implementation
+
+uses
+  Variants, uROXMLSerializer, uROCompression, uROBinaryHelpers
+  ,uDAClasses, uDAEngine
+  {$IFDEF MSWINDOWS}
+  ,uROZLib
+  {$ENDIF};
+
+const
+  XML_DateTimeFormat       = 'yyyy-mm-dd"T"hh":"nn":"ss"."zzz';
+
+function XMLDateTimeToDateTime(const aXMLDateTime : string) : TDateTime;
+var year, month, day, hour, min, sec, msec : word;
+begin {yyyy-mm-ddThh:nn:ss.zzz}
+  year  := StrToInt(Copy(aXMLDateTime,1,4));
+  month := StrToInt(Copy(aXMLDateTime,6,2));
+  day   := StrToInt(Copy(aXMLDateTime,9,2));
+  hour  := StrToInt(Copy(aXMLDateTime,12,2));
+  min   := StrToInt(Copy(aXMLDateTime,15,2));
+  sec   := StrToInt(Copy(aXMLDateTime,18,2));
+  msec   := StrToInt(Copy(aXMLDateTime,21,3));
+
+  result := EncodeDate(year, month, day);
+  // The code below is required! Do not adjust
+  if (result<0)
+    then result := result-EncodeTime(hour, min, sec, msec)
+    else result := result+EncodeTime(hour, min, sec, msec)
+end;
+
+function DateTimeToXMLDateTime(aDateTime : TDateTime) : string;
+begin
+  Result := FormatDateTime(XML_DateTimeFormat, aDateTime);
+end;
+
+function WriteFloat(Val: Variant): String;
+begin
+  Result := FloatToStr(Val{$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+
+  {$IFNDEF DELPHI7UP}
+    if DecimalSeparator <> '.' then
+      ReplaceChar(Result, [DecimalSeparator], '.');
+  {$ENDIF}
+end;
+
+
+function ReadFloat(text: String): Variant;
+begin
+  {$IFNDEF DELPHI7UP}
+    if DecimalSeparator <> '.' then
+      ReplaceChar(text, ['.'], DecimalSeparator);
+  {$ENDIF}
+
+  Result := SOAPStrToFloat(text);
+end;
+
+{ TDAXmlDataStreamer }
+
+constructor TDAXmlDataStreamer.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fDocumentName := nn_DocumentName;
+
+  fSchemaOptions := [soIncludeEmptyAttributes];
+
+  fXMLDocument := NewROXmlDocument;
+
+  fWriteXSLT := NIL;
+  fReadXSLT := NIL;
+  {fWriteDeltaXSLT := NIL;
+  fReadDeltaXSLT := NIL;}
+
+  fOptions := [xaoUseDatasetXSLTs, xaoUseDeltaXSLTs];
+
+  fDAMemPropCount := GetTypeData(TDAField.ClassInfo).PropCount;
+  GetMem(fDAFieldPropInfoList, fDAMemPropCount*SizeOf(PPropInfo));
+  fDAFieldPropCount := GetPropList(TDAField.ClassInfo, tkProperties, fDAFieldPropInfoList);
+
+  GetMem(param_PropList, GetTypeData(TDAParam.ClassInfo).PropCount * SizeOf(PPropInfo));
+  param_proplistcount := GetPropList(TDAParam.ClassInfo, tkProperties, param_PropList);
+  fSkipNull := true;
+end;
+
+destructor TDAXmlDataStreamer.Destroy;
+begin
+  fWriteXSLT := NIL;
+  fReadXSLT := NIL;
+  {fWriteDeltaXSLT := NIL;
+  fReadDeltaXSLT := NIL;}
+
+  FreeMem(fDAFieldPropInfoList, fDAMemPropCount*SizeOf(PPropInfo));
+  FreeMem(param_PropList);
+
+  ClearXMLNodes;
+
+  inherited;
+end;
+
+function TDAXmlDataStreamer.GetTargetDataType: TRODataType;
+begin
+  result := rtString;
+end;
+
+function TDAXmlDataStreamer.DoCreateStream: TStream;
+begin
+  result := NIL;
+end;
+
+procedure TDAXmlDataStreamer.DoInitialize(Mode: TDAAdapterInitialization);
+var
+  i : integer;
+begin
+  ClearXMLNodes;
+  fXMLDocument.New(fDocumentName);
+
+  if (Mode in AdapterReadModes) then begin
+
+    fXMLDocument.LoadFromStream(Data);
+
+    // Applies the XSLT (if any). The resulting document MUST be a valid XML document
+    // that conforms to the Data Abstract XML format
+    if (fReadXSLT<>NIL)
+      then fXMLDocument.XML := fXMLDocument.Transform(fReadXSLT.XML);
+
+    // Parses the document
+    fRootNode := fXMLDocument.DocumentNode;
+
+    // Schema sections
+    fSchemaRoot := fRootNode.GetNodeByName(nn_Schema);
+    if (fSchemaRoot<>NIL) then begin
+      fDatasetSchemaNode := fSchemaRoot.GetNodeByName(nn_Datasets);
+      fDeltaSchemaNode := fSchemaRoot.GetNodeByName(nn_Deltas);
+    end;
+
+    // Data sections
+    fDatasetNode := fRootNode.GetNodeByName(nn_Datasets);
+    fDeltaNode := fRootNode.GetNodeByName(nn_Deltas);
+
+    if (fDatasetSchemaNode<>NIL) and (fDatasetSchemaNode.ChildrenCount>0) then begin
+      for i := 0 to (fDatasetSchemaNode.ChildrenCount-1) do
+        AddingDataset(fDatasetSchemaNode.Children[i].Name);
+    end
+    else if (fDatasetNode<>NIL) then begin
+      for i := 0 to (fDatasetNode.ChildrenCount-1) do
+        AddingDataset(fDatasetNode.Children[i].Name);
+    end;
+
+    if (fDeltaSchemaNode<>NIL) and (fDeltaSchemaNode.ChildrenCount>0) then begin
+      for i := 0 to (fDeltaSchemaNode.ChildrenCount-1) do
+        AddingDelta(fDeltaSchemaNode.Children[i].Name);
+    end
+    else if (fDeltaNode<>NIL) then begin
+      for i := 0 to (fDeltaNode.ChildrenCount-1) do
+        AddingDataset(fDeltaNode.Children[i].Name);
+    end;
+
+  end
+  else if (Mode in AdapterWriteModes) then begin
+    fRootNode := fXMLDocument.DocumentNode;
+    // Schema sections
+    fSchemaRoot := fRootNode.Add(nn_Schema);
+    fDatasetSchemaNode := fSchemaRoot.Add(nn_Datasets);
+    fDeltaSchemaNode := fSchemaRoot.Add(nn_Deltas);
+
+    // Data sections
+    fDatasetNode := fRootNode.Add(nn_Datasets);
+    fDeltaNode := fRootNode.Add(nn_Deltas);
+  end;
+end;
+
+procedure TDAXmlDataStreamer.DoFinalize;
+var finaldocument : string;
+begin
+  if (AdapterInitialization in AdapterWriteModes) then begin
+    // Removes the delta sections if they don't contain data
+    if (fDeltaSchemaNode.ChildrenCount=0) then begin
+      fSchemaRoot.Remove(fDeltaSchemaNode);
+      fDeltaSchemaNode := NIL;
+    end;
+
+    if (fDeltaNode.ChildrenCount=0) then begin
+      fRootNode.Remove(fDeltaNode);
+      fDeltaNode := NIL;
+    end;
+
+    // Removes the datasets sections if they don't contain data
+    if (fDatasetSchemaNode.ChildrenCount=0) then begin
+      fSchemaRoot.Remove(fDatasetSchemaNode);
+      fDatasetSchemaNode := NIL;
+    end;
+
+    if (fDatasetNode.ChildrenCount=0) then begin
+      fRootNode.Remove(fDatasetNode);
+      fDeltaNode := NIL;
+    end;
+
+    // Applies the XSLT (if any)
+    if (fWriteXSLT<>NIL)
+      then begin
+        // The resulting document might not be a valid XML document!!
+        finaldocument := fXMLDocument.Transform(fWriteXSLT.XML);
+        if (finaldocument<>'')
+          then Data.Write(finaldocument[1], Length(finaldocument)*SizeOf(char));
+      end
+      else fXMLDocument.SaveToStream(Data);
+  end;
+  ClearXMLNodes;
+end;
+
+procedure TDAXmlDataStreamer.WriteBlobValue(const aDestination : IXMLNode; const anAttributeName : string; const aBlobValue : Variant);
+var ss, compressedstream : TStringStream;
+    binstream : TROBinaryMemoryStream;
+begin
+  compressedstream := NIL;
+  binstream := TROBinaryMemoryStream.Create;
+  ss := TStringStream.Create('');
+
+  try
+    //binstream := BinaryFromVariant(aBlobValue);//, ms.Stream);
+    WriteVariantToBinary(aBlobValue, binstream);
+    binstream.Position := 0;
+
+    if (roCompressBlobs in fRowOptions) then begin
+      compressedstream := TStringStream.Create('');
+      ZCompressStream(binstream, compressedstream);
+      compressedstream.Position := 0;
+
+      EncodeStream(compressedstream, ss);
+    end
+    else begin
+      EncodeStream(binstream, ss);
+    end;
+
+    aDestination.AddAttribute(anAttributeName, ss.DataString);
+
+  finally
+    FreeAndNIL(ss);
+    FreeAndNIL(compressedstream);
+    FreeAndNIL(binstream);
+  end;
+end;
+
+function TDAXmlDataStreamer.ReadBlobValue(const aSource: IXMLNode; const anAttributeName : string) : Variant;
+var data, compressedstream : TStringStream;
+    finaldata : IROStream;
+begin
+  compressedstream := NIL;
+
+  data := TStringStream.Create(aSource.GetAttributeValue(anAttributeName, NULL));
+  finaldata := NewROStream;
+
+  try
+    data.Position := 0;
+
+    if (roCompressBlobs in fRowOptions) then begin
+      compressedstream := TStringStream.Create('');
+      DecodeStream(data, compressedstream);
+      compressedstream.Position := 0;
+
+      ZDecompressStream(compressedstream, finaldata.Stream);
+      finaldata.Position := 0;
+    end
+    else begin
+      DecodeStream(data, finaldata.Stream);
+    end;
+
+    finaldata.Position := 0;
+    result := ReadVariantFromBinary(finaldata.Stream);
+
+  finally
+    FreeAndNIL(data);
+    FreeAndNIL(compressedstream);
+  end;
+end;
+
+procedure TDAXmlDataStreamer.DoReadDataset(const DatasetName: string;
+  const Destination: IDADataset; ApplySchema: boolean;AppendMode: Boolean);
+
+var
+  lPK: string;                     //for append mode
+  lPKValues: array of variant;     //for append mode
+  lOnePK:Boolean;                  //for append mode
+
+  function Dataset_Locate(): boolean;
+  begin
+    if lOnePK then
+      Result:= Destination.Locate(lPK,lPKValues[0],[])
+    else
+      Result:= Destination.Locate(lPK,lPKValues,[]);
+  end;
+
+var sourcenode : IXMLNode;
+    i,j, x : integer;
+    attr, node, scNode : IXMLNode;
+    fld : TDAField;
+    par: TDAParam;
+    val: Variant;
+    editable : IDAEditableDataset;
+    lName: string;
+    lProgress: Boolean;
+    lTotal: integer;
+// append mode
+  flds: TDAFieldArray;
+  lFldValues: array of Variant;  // flds values for append mode
+  lPKFlds: TDAFieldArray;        // PK flds (Append mode)
+begin
+  // Reads and applies the schema
+  if ApplySchema then begin
+    scNode := fDatasetSchemaNode.GetNodeByName(DatasetName);
+    if (scNode=NIL) then exit;//raise EROException.Create('Cannot find schema for dataset '+DatasetName)
+    sourcenode := scNode.GetNodeByName(nn_Fields); // For now we only have fields, so this is ok
+    if sourcenode <> nil then begin
+      Destination.Fields.Clear;
+
+      for i := 0 to (sourcenode.ChildrenCount-1) do begin
+        fld := Destination.Fields.Add;
+        node := sourcenode.Children[i];
+
+        for x := 0 to (fDAFieldPropCount-1) do begin
+          lName:= {$IFDEF UNICODE}UTF8ToString{$ENDIF}(fDAFieldPropInfoList^[x].Name);
+          attr := node.GetAttributeByName(lName);
+          if (attr=NIL) then Continue;
+
+          if (fDAFieldPropInfoList^[x].PropType^.Kind<>tkClass) then SetPropValue(fld, lName, VarToStr(attr.Value));
+        end;
+      end;
+    end;
+
+    sourcenode := scNode.GetNodeByName(nn_Params); // For now we only have fields, so this is ok
+    if sourcenode <> nil then begin
+      Destination.Params.Clear;
+
+      for i := 0 to (sourcenode.ChildrenCount-1) do begin
+        par := Destination.Params.Add;
+        node := sourcenode.Children[i];
+
+        for x := 0 to (param_proplistcount-1) do begin
+          lName :=  {$IFDEF UNICODE}UTF8ToString{$ENDIF}(param_PropList^[x].Name);
+          attr := node.GetAttributeByName(lName);
+          if (attr=NIL) then Continue;
+
+          if (param_PropList^[x].PropType^.Kind<>tkClass) then SetPropValue(par, lName, VarToStr(attr.Value));
+        end;
+      end;
+    end;
+
+  end
+  else begin
+    editable := Destination as IDAEditableDataset;
+    // if table is empty then process in standard mode
+    AppendMode := AppendMode and not (editable.EOF and editable.GetBOF);
+
+    sourcenode := fDatasetNode.GetNodeByName(DatasetName);
+    if (sourcenode=NIL)
+      then raise EROException.Create('Cannot find schema for dataset '+DatasetName);
+
+    if not Destination.Active then Destination.Open;
+
+    {$IFDEF STORERECID}
+    Destination.CurrentRecIdValue := 0;
+    {$ENDIF}
+
+    lProgress := Assigned(OnReadDatasetProgress);
+    lTotal := sourcenode.ChildrenCount;
+
+    Destination.DisableConstraints;
+    try
+      if AppendMode then begin
+        SetLength(flds, Destination.Fields.Count);
+        for i := 0 to Destination.Fields.Count - 1 do
+          flds[i]:=Destination.Fields[i];
+        lPK := Dataset_GetPK(flds, lPKFlds);
+        lOnePK := Length(lPKFlds) = 1;
+        AppendMode := AppendMode and (Length(lPKFlds)>0);
+        if AppendMode then begin
+          SetLength(lFldValues, Length(flds));
+          SetLength(lPKValues, Length(lPKFlds));
+        end;
+      end;
+      for i := 0 to sourcenode.ChildrenCount-1 do begin
+        editable.Append;
+
+        node := sourcenode.Children[i];
+
+        {$IFDEF STORERECID}
+        Destination.CurrentRecIdValue := node.GetAttributeValue(attr_RecId, -1);
+        for x := 1 to node.AttributeCount-1 do begin
+        {$ELSE}
+        for x := 0 to node.AttributeCount-1 do begin
+        {$ENDIF}
+          attr := node.Attributes[x];
+          if attr.Name = nn_SourceTableFieldName then
+            fld := Destination.Fields.FieldByName(def_SourceTableFieldName)
+          else
+            fld := Destination.Fields.FieldByName(attr.Name);
+
+          if fld.Calculated or fld.Lookup then Continue;
+          if (attr.Value = '') and (fld.DataType <> datBlob) then begin
+            val := NULL;
+          end else begin
+            case fld.DataType of
+              datBlob : val := ReadBlobValue(node, attr.Name); // <--- MARC!!!
+              datDateTime : val := XMLDateTimeToDateTime(attr.Value);
+              datFloat,
+              datCurrency: val := ReadFloat(attr.Value);
+              // TODO -cAleF: remember to use the proper XML conversion routines here!
+              else val := attr.Value;
+            end;
+          end;
+
+          if Assigned(OnReadFieldValue) then OnReadFieldValue(fld, val);
+          fld.Value := val;
+
+        end;
+        if AppendMode  then begin
+          // store values and avoid firing OnReadFieldValue event
+          for j := 0 to Length(Flds) - 1 do
+            lFldValues[j]:= Flds[j].Value;
+          // store PK values for locate
+          for j := 0 to Length(lPKFlds) - 1 do
+            lPKValues[j]:= lPKFlds[j].Value;
+
+          editable.Cancel;
+          if Dataset_Locate then
+            editable.Edit
+          else
+            editable.Append;
+          // assign new values
+          for j := 0 to Length(Flds) - 1 do
+            Flds[j].Value := lFldValues[j];
+        end;
+        try
+          editable.Post;
+        except
+          // Introduced to restore the dsBrowse state of the datatable
+          // in case of errors
+          editable.Cancel;
+          raise;
+        end;
+        if lProgress then OnReadDatasetProgress(Self, Destination, i, lTotal);
+      end;
+    finally
+      Destination.EnableConstraints;
+    end;
+  end;
+end;
+
+function TDAXmlDataStreamer.DoWriteDataset(const Source: IDADataset;
+  Options: TDAWriteOptions; MaxRows: integer; ADynFieldNames: array of string): integer;
+var
+  lDataForAppend: TDADataForAppend;
+begin
+  lDataForAppend := DoBeginWriteDataset(Source, {schema}nil, Options, MaxRows, ADynFieldNames);
+  if woRows in Options then begin
+    DoWriteDatasetData(Source, lDataForAppend);
+    result := DoEndWriteDataset(lDataForAppend);
+  end
+  else begin
+    lDataForAppend.Free;
+    result := -1;
+  end;
+end;
+
+function TDAXmlDataStreamer.DoBeginWriteDataset( const Source: IDADataset; const Schema: TDADataset;
+                                  Options: TDAWriteOptions; MaxRows: integer;
+                                  ADynFieldNames: array of string): TDADataForAppend;
+var
+  i: integer;
+  fld: TDAField;
+  lfields: array of integer;
+  lDataForAppend : TDADataForAppendXML;
+  lSchemaFields: TDAFieldCollection;
+  lSchemaParams: TDAParamCollection;
+  lLogicalName: String;
+  x : integer;
+  subnode, node, scNode : IXMLNode;
+  s : string;
+  lName: string;
+
+begin
+  lDataForAppend := TDADataForAppendXML.Create();
+  result := lDataForAppend;
+
+  if Assigned(Schema) then begin
+    lDataForAppend.TableSchema := Schema;
+    if Schema is TDAUnionDataTable then begin
+      fld := Schema.FindField(def_SourceTableFieldName);
+      if not Assigned(fld) then begin
+        fld := Schema.Fields.Add();
+        fld.Name := def_SourceTableFieldName;
+        fld.DataType := datInteger;
+        fld.InPrimaryKey := true;
+        fld.ServerAutoRefresh := true;
+      end;
+    end;
+    lSchemaFields := Schema.Fields;
+    lSchemaParams := Schema.Params;
+    lLogicalName := Schema.Name;
+  end else begin
+    if Assigned(Source) then begin
+      lSchemaFields := Source.Fields;
+      lSchemaParams := Source.Params;
+      lLogicalName := Source.LogicalName;
+    end else begin
+      raise EDAException.Create('Schema or source should be assigned.');
+    end;
+  end;
+
+
+  if Length(ADynFieldNames) > 0 then begin
+    SetLength(lfields, Length(ADynFieldNames));
+    For i:=0 to High(ADynFieldNames) do begin
+      fld:=lSchemaFields.FindField(ADynFieldNames[i]);
+      if fld <> nil then
+        lfields[i]:= fld.Index
+      else
+        lfields[i]:= -1;
+    end;
+  end else begin
+    SetLength(lfields, lSchemaFields.Count);
+    For i:=0 to lSchemaFields.Count-1 do
+      lfields[i]:=i;
+  end;
+
+  // Writes the schema
+  if (woSchema in Options) or (Length(ADynFieldNames)>0) then begin
+    scNode := fDatasetSchemaNode.Add(lLogicalName);
+    node := scNode.Add(nn_Fields);
+
+    for i := 0 to high(lfields) do begin
+      subnode := node.Add(nn_Field);
+
+      for x := 0 to (fDAFieldPropCount-1) do begin
+        lName :=  {$IFDEF UNICODE}UTF8ToString{$ENDIF}(fDAFieldPropInfoList^[x].Name);
+        s := VarToStr(GetPropValue(lSchemaFields[lfields[i]], lName, TRUE));
+
+        if (s<>'') or (soIncludeEmptyAttributes in SchemaOptions) then subnode.AddAttribute(lName, s);
+      end;
+    end;
+    node := scNode.Add(nn_Params);
+
+    for i := 0 to (lSchemaParams.Count-1) do begin
+      subnode := node.Add(nn_Param);
+
+      for x := 0 to (param_proplistcount-1) do begin
+        lName :=  {$IFDEF UNICODE}UTF8ToString{$ENDIF}(param_PropList^[x].Name);
+        s := VarToStr(GetPropValue(lSchemaParams.Params[i], lName, TRUE));
+
+        if (s<>'') or (soIncludeEmptyAttributes in SchemaOptions) then subnode.AddAttribute(lName, s);
+      end;
+    end;
+  end;
+
+  SetLength(lDataForAppend.RealFields, Length(lFields));
+  for i:= 0 to Length(lFields) -1 do
+    lDataForAppend.RealFields[i] := lFields[i];
+
+  AddingDataset(lLogicalName);
+  lDataForAppend.node := fDatasetNode.Add(lLogicalName);
+  lDataForAppend.MaxRowCount := MaxRows;
+  lDataForAppend.RecordCount := 0;
+end;
+
+function TDAXmlDataStreamer.DoWriteDatasetData(const Source: IDADataset; var aDataForAppend: TDADataForAppend; aDataIndex: Integer = -1): Integer;
+var
+  i, max, k : integer;
+  subnode, node : IXMLNode;
+  val: Variant;
+  lfields: array of integer;
+  flds: array of TDAField;
+  flds_names: array of string;
+  lProgress: Boolean;
+  f,ev, ev1, ev2: boolean;
+  NativeDataset: IDASQLCommandNativeObject;
+  lColumnMappings: TDAColumnMappingCollection;
+  lColumnMapping: TDAColumnMapping;
+  lFieldName: string;
+  lDataForAppend: TDADataForAppendXML;
+  lMapToFieldName: String;
+begin
+  f:=(Source.QueryInterface(IDASQLCommandNativeObject, NativeDataset) = 0) and not NativeDataset.IsTDatasetCompatible;
+  lDataForAppend := TDADataForAppendXML(aDataForAppend);
+
+  SetLength(lfields, Length(lDataForAppend.RealFields));
+  SetLength(flds, Length(lDataForAppend.RealFields));
+  SetLength(flds_names, Length(lDataForAppend.RealFields));
+  for i:= 0 to Length(lDataForAppend.RealFields) -1 do
+    lFields[i] := lDataForAppend.RealFields[i];
+
+
+  k := lDataForAppend.RecordCount;
+  max := lDataForAppend.MaxRowCount;
+
+  // Mapping fields of Source table to the streamed dataset
+  if Assigned(lDataForAppend.TableSchema) and (lDataForAppend.TableSchema is TDAUnionDataTable) then begin
+    lColumnMappings := TDAUnionSourceTable(TDAUnionDataTable(lDataForAppend.TableSchema).SourceTables.ItemByName(Source.Name)).ColumnMappings;
+    for i := 0 to lDataForAppend.TableSchema.Fields.Count - 1 do begin
+      lFieldName := lDataForAppend.TableSchema.Fields[lFields[i]].Name;
+      if lFieldName = def_SourceTableFieldName then begin
+        lFields[i] := -10;
+        flds_names[i] := nn_SourceTableFieldName;
+        continue;
+      end;
+      flds_names[i] := lFieldName;
+      lMapToFieldName := lFieldName;
+      if Assigned(lColumnMappings) then begin
+        lColumnMapping := lColumnMappings.MappingByDatasetField(lFieldName);
+        if Assigned(lColumnMapping) and (lColumnMapping.TableField <> '') then
+          lMapToFieldName := lColumnMapping.TableField;
+      end;
+      lFields[i] := Source.FieldByName(lMapToFieldName).Index;
+    end;
+  end
+  else begin
+    for i := 0 to Length(lfields) -1 do
+      flds_names[i] := Source.Fields[lfields[i]].Name;
+  end;
+
+  Source.DisableControls;
+  try
+    if not Source.Active then Source.Open;
+    for i:= 0 to Length(lfields) -1 do begin
+      if lfields[i] = -10 then
+        flds[i] := lDataForAppend.TableSchema.FieldByName(def_SourceTableFieldName)
+      else
+        flds[i] := Source.Fields[lfields[i]];
+    end;
+
+
+    ev1 := Assigned(OnBeforeFieldValueSerialization);
+    ev := Assigned(OnWriteFieldValue);
+    ev2 := Assigned(OnWriteFieldValueEx);
+    f := f or ev or ev1 or ev2;
+    lProgress := Assigned(onWriteDatasetProgress);
+    node := lDataForAppend.Node;
+    // Writes the actual records
+    while (k<>max) and not source.EOF do begin
+
+      subnode := node.Add(nn_Row);
+
+      {$IFDEF STORERECID}
+      subnode.AddAttribute(attr_RecId, Source.GetRowRecIdValue);
+      {$ENDIF}
+
+      for i := 0 to Length(lfields) - 1 do begin
+        //RealFields[i] = -10 then this is @SourceTable field
+        if lfields[i] = -10 then
+          val := aDataIndex
+        else
+          val := Source.FieldValues[lfields[i]];
+        if ev1 then OnBeforeFieldValueSerialization(flds[i], val);
+        if flds[i].Calculated or flds[i].Lookup then Continue;
+        if fSkipNull and
+           (lfields[i] <> -10) and
+           ((f and VarIsNull(Val)) or (flds[i].IsNull)) then continue;
+        if ev then OnWriteFieldValue(flds[i], val);
+        if ev2 then OnWriteFieldValueEx(Source, flds[i], val);
+        if (VarIsEmpty(val) or VarIsNull(val)) and (flds[i].DataType <> datBlob) then begin
+          subnode.AddAttribute(flds_names[i], VarToStr(Null))
+        end else begin
+          case flds[i].DataType of
+            datBlob : WriteBlobValue(subnode, flds_names[i], val);// <--- MARC!!!
+            datDateTime : subnode.AddAttribute(flds_names[i], DateTimeToXMLDateTime(val));
+            datFloat,
+            datCurrency: subnode.AddAttribute(flds_names[i], WriteFloat(val));
+          else
+            // TODO -cAleF: remember to use the proper XML conversion reoutines here!
+            subnode.AddAttribute(flds_names[i], VarToStr(val));
+          end;
+        end;
+      end;
+      Inc(k);
+      if lProgress then OnWriteDatasetProgress(Self, Source, k, max);
+      Source.Next;
+      if Source.EOF then Break;
+    end;
+    aDataForAppend.RecordCount := k;
+    Result := k;
+  finally
+    Source.EnableControls;
+  end;
+end;
+
+function TDAXmlDataStreamer.DoEndWriteDataset(aDataForAppend: TDADataForAppend): Integer;
+begin
+  result := aDataForAppend.RecordCount;
+  TDADataForAppendXML(aDataForAppend).Node := nil;
+  aDataForAppend.Free();
+end;
+
+procedure TDAXmlDataStreamer.DoReadDelta(const DeltaName: string;
+   const Destination: IDADelta);
+var schema, rootnode, node, subnode : IXMLNode;
+     x, i : integer;
+     fieldname : string;
+     datatype : TDADataType;
+     changetype : TDAChangeType;
+     changestatus : TDAChangeStatus;
+     changemessage : string;
+     recid : integer;
+     change : TDADeltaChange;
+     val : Variant;
+     lProgress: Boolean;
+     lTotal : integer;
+begin
+   Destination.Clear(TRUE, TRUE);
+   schema := fDeltaSchemaNode.GetNodeByName(DeltaName);
+
+   // Logged fields and their types
+   rootnode := schema.GetNodeByName('LoggedFields');
+   for i := 0 to (rootnode.ChildrenCount-1) do begin
+     fieldname := rootnode.Children[i].GetAttributeByName('Name').Value;
+     datatype := TDADataType(GetEnumValue(TypeInfo(TDADataType), rootnode.Children[i].GetAttributeByName('DataType').Value));
+     Destination.AddFieldName(fieldname, datatype);
+//     Destination.AddFieldName(fieldname);
+//     Destination.LoggedFieldTypes[i] := datatype;
+   end;
+
+   // Key fields
+   rootnode := schema.GetNodeByName('KeyFields');
+   for i := 0 to (rootnode.ChildrenCount-1) do begin
+     fieldname := rootnode.Children[i].GetAttributeByName('Name').Value;
+     Destination.AddKeyFieldName(fieldname);
+   end;
+
+   // Actual changes
+   rootnode := fDeltaNode.GetNodeByName(DeltaName);
+   lProgress := Assigned(OnReadDeltaProgress);
+   lTotal := rootnode.ChildrenCount;
+   for i := 0 to (rootnode.ChildrenCount-1) do begin
+     node := rootnode.Children[i];
+
+     recid := node.GetNodeByName('RecID').Value;
+     changetype := TDAChangeType(GetEnumValue(TypeInfo(TDAChangeType), node.GetNodeByName('ChangeType').Value));
+     changestatus := TDAChangeStatus(GetEnumValue(TypeInfo(TDAChangeStatus), node.GetNodeByName('Status').Value));
+     changemessage := node.GetNodeByName('Message').Value;
+
+     change := Destination.Add(recid, changetype, changestatus, changemessage);
+
+     subnode := node.GetNodeByName('OldValues');
+     for x := 0 to Destination.LoggedFieldCount-1 do begin
+       val := subnode.GetAttributeValue(Destination.LoggedFieldNames[x], Null);
+       if (val = '') and (Destination.LoggedFieldTypes[x] <> datblob) then begin
+         change.OldValues[x] := NULL;
+       end else begin
+         case Destination.LoggedFieldTypes[x] of
+           datBlob : change.OldValues[x] := ReadBlobValue(subnode, Destination.LoggedFieldNames[x]);
+           datDateTime : change.OldValues[x] := XMLDateTimeToDateTime(val);
+           datFloat,
+           datCurrency: change.OldValues[x] := ReadFloat(val);
+         else
+           change.OldValues[x] := val;
+         end;
+       end;
+     end;
+
+     subnode := node.GetNodeByName('NewValues');
+     for x := 0 to Destination.LoggedFieldCount-1 do begin
+       val := subnode.GetAttributeValue(Destination.LoggedFieldNames[x], Null);
+       if (val = '') and (Destination.LoggedFieldTypes[x] <> datblob) then begin
+         change.NewValues[x] := NULL;
+       end else begin
+         case Destination.LoggedFieldTypes[x] of
+           datBlob : change.NewValues[x] := ReadBlobValue(subnode, Destination.LoggedFieldNames[x]);
+           datDateTime : change.NewValues[x] := XMLDateTimeToDateTime(val);
+           datFloat,
+           datCurrency: change.NewValues[x] := ReadFloat(val);
+         else
+           change.NewValues[x] := val;
+         end;
+       end;
+     end;
+     if lProgress then OnReadDeltaProgress(Self, Destination, i, lTotal);
+   end;
+end;
+
+
+procedure TDAXmlDataStreamer.DoWriteDelta(const Source: IDADelta);
+var
+  rootnode, node, subnode : IXMLNode;
+  x, i : integer;
+  lProgress: Boolean;
+  lTotal : integer;
+begin
+   {
+     <XMLData>
+       <Schema>
+         <Datasets/>
+         <Deltas/>
+       </Schema>
+       <Datasets/>
+       <Deltas/>
+     </XMLData>
+   }
+
+   AddingDelta(Source.LogicalName);
+   // Writes the schema of the delta
+   rootnode := fDeltaSchemaNode.Add(Source.LogicalName);
+   node := rootnode.Add('LoggedFields');
+   for i := 0 to (Source.LoggedFieldCount-1) do begin
+     subnode := node.Add('Field');
+     subnode.AddAttribute('Name', Source.LoggedFieldNames[i]);
+     subnode.AddAttribute('DataType', GetEnumName(TypeInfo(TDADataType), Ord(Source.LoggedFieldTypes[i])));
+   end;
+   node := rootnode.Add('KeyFields');
+   for i := 0 to (Source.KeyFieldCount-1) do begin
+     subnode := node.Add('Field');
+     subnode.AddAttribute('Name', Source.KeyFieldNames[i]);
+   end;
+
+   lProgress := Assigned(OnWriteDeltaProgress);
+   lTotal := Source.Count;
+   // Writes the actual changes
+   rootnode := fDeltaNode.Add(Source.LogicalName);
+   Source.RemoveUnchangedChanges;
+   for i := 0 to (Source.Count-1) do begin
+     node := rootnode.Add(nn_Row);
+
+     node.Add('RecID').Value := Source[i].RecID;
+     node.Add('ChangeType').Value := GetEnumName(TypeInfo(TDAChangeType), Ord(Source[i].ChangeType));
+     node.Add('Status').Value := GetEnumName(TypeInfo(TDAChangeStatus), Ord(Source[i].Status));
+     node.Add('Message').Value := Source[i].Message;
+
+     subnode := node.Add('OldValues');
+     for x := 0 to Source.LoggedFieldCount-1 do begin
+       if VarIsNull(Source.Changes[i].OldValues[x]) and (Source.LoggedFieldTypes[x] <> datblob) then begin
+          subnode.AddAttribute(Source.LoggedFieldNames[x], VarToStr(Null))
+       end else begin
+         case Source.LoggedFieldTypes[x] of
+            datblob: WriteBlobValue(subnode, Source.LoggedFieldNames[x], Source.Changes[i].OldValues[x]);
+            datDateTime : subnode.AddAttribute(Source.LoggedFieldNames[x], DateTimeToXMLDateTime(Source.Changes[i].OldValues[x]));
+            datFloat,
+            datCurrency: subnode.AddAttribute(Source.LoggedFieldNames[x], WriteFloat(Source.Changes[i].OldValues[x]));
+           // TODO -cAleF: remember to use the proper XML conversion reoutines here!
+           else subnode.AddAttribute(Source.LoggedFieldNames[x], VarToStr(Source.Changes[i].OldValues[x]));
+         end;
+       end;
+     end;
+
+     subnode := node.Add('NewValues');
+     for x := 0 to Source.LoggedFieldCount-1 do begin
+       if VarIsNull(Source.Changes[i].NewValues[x]) and (Source.LoggedFieldTypes[x] <> datblob) then begin
+         subnode.AddAttribute(Source.LoggedFieldNames[x], VarToStr(Null))
+       end else begin
+         case Source.LoggedFieldTypes[x] of
+           datblob: WriteBlobValue(subnode, Source.LoggedFieldNames[x], Source.Changes[i].NewValues[x]);
+           datDateTime : subnode.AddAttribute(Source.LoggedFieldNames[x], DateTimeToXMLDateTime(Source.Changes[i].NewValues[x]));
+           datFloat,
+           datCurrency: subnode.AddAttribute(Source.LoggedFieldNames[x], WriteFloat(Source.Changes[i].NewValues[x]));
+           // TODO -cAleF: remember to use the proper XML conversion reoutines here!
+           else subnode.AddAttribute(Source.LoggedFieldNames[x], VarToStr(Source.Changes[i].NewValues[x]));
+         end;
+       end;
+     end;
+     if lProgress then OnWriteDeltaProgress(Self, Source, i+1, lTotal);
+   end;
+end;
+
+function TDAXmlDataStreamer.GetXMLDocument(var XMLDocument : IXMLDocument) : IXMLDocument;
+begin
+  if (XMLDocument=NIL) then begin
+    XMLDocument := NewROXmlDocument;
+    XMLDocument.New();
+  end;
+
+  result := XMLDocument;
+end;
+
+function TDAXmlDataStreamer.GetReadXSLT: IXMLDocument;
+begin
+  result := GetXMLDocument(fReadXSLT)
+end;
+
+{function TDAXmlDataStreamer.GetReadDeltaXSLT: IXMLDocument;
+begin
+  result := GetXMLDocument(fReadDeltaXSLT);
+end;}
+
+function TDAXmlDataStreamer.GetWriteXSLT: IXMLDocument;
+begin
+  result := GetXMLDocument(fWriteXSLT);
+end;
+
+{function TDAXmlDataStreamer.GetWriteDeltaXSLT: IXMLDocument;
+begin
+  result := GetXMLDocument(fWriteDeltaXSLT);
+end;}
+
+function TDAXmlDataStreamer.SaveDocumentName: Boolean;
+begin
+  result := fDocumentName<>nn_DocumentName
+end;
+
+procedure TDAXmlDataStreamer.SetDocumentName(const Value: string);
+var n : string;
+begin
+  n := Trim(Value);
+  if (n<>'')
+    then fDocumentName := n;
+end;
+
+procedure TDAXmlDataStreamer.Assign(Source: TPersistent);
+var
+  lSource: TDAXmlDataStreamer;
+begin
+  inherited;
+  if Source is TDAXmlDataStreamer then begin
+    lSource := TDAXmlDataStreamer(Source);
+
+    SkipNull := lSource.SkipNull;
+    SchemaOptions := lSource.SchemaOptions;
+    RowOptions := lSource.RowOptions;
+    Options := lSource.Options;
+    DocumentName := lSource.DocumentName;
+  end;
+end;
+
+procedure TDAXmlDataStreamer.ClearXMLNodes;
+begin
+  fXMLDocument := NIL;
+  fXMLDocument := NewROXmlDocument;
+
+  fSchemaRoot := NIL;
+  fRootNode := NIL;
+  fDatasetSchemaNode := NIL;
+  fDeltaSchemaNode := NIL;
+  fDatasetNode := NIL;
+  fDeltaNode := NIL;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAXMLUtils.pas b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAXMLUtils.pas
new file mode 100644
index 0000000..c12bc44
--- /dev/null
+++ b/internal/6.0.43.801/1/Data Abstract for Delphi/Source/uDAXMLUtils.pas	
@@ -0,0 +1,658 @@
+unit uDAXMLUtils;
+
+{----------------------------------------------------------------------------}
+{ Data Abstract Library - Core Library                                       }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the Data Abstract              }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I DataAbstract.inc}
+
+interface
+
+uses Classes, TypInfo, uROXMLIntf, uDAInterfaces;
+
+const
+  // Misc
+  ValueNIL = 'NIL';
+
+  // Attribute names
+  attr_Type = 'Type';
+  attr_IsObject = 'IsObject';
+  attr_ByRef = 'ByRef';
+  attr_RefName = 'RefName';
+  attr_Owner = 'Owner';
+  attr_IsCollection = 'IsCollection';
+  attr_IsArray = 'IsArray';
+  attr_Count = 'Count';
+  attr_ItemClass = 'ItemClass';
+  attr_Item = 'Item';
+  attr_ClassName = 'ClassName';
+  attr_IsNull = 'IsNull';
+
+type
+  { Misc }
+  TROXMLStreamerOption = (soIncludeType);
+  TROXMLStreamerOptions = set of TROXMLStreamerOption;
+
+  { TROXMLStreamer }
+  TROXMLStreamer = class(TComponent)
+  private
+    fXMLStreamerOptions: TROXMLStreamerOptions;
+    fPropertiesToIgnore: TStringList;
+
+    procedure SetPropertiesToIgnore(const Value: TStrings);
+    function GetPropertiesToIgnore: TStrings;
+
+  protected
+    procedure SerializeSimpleType(const aTargetNode: IXMLNode; anObject: TObject; aPropertyInfo: PPropInfo);
+    procedure SerializeObject(const anObjectNode: IXMLNode; anObject: TObject; IsRoot: boolean = FALSE);
+
+    procedure DeserializeObject(const anObjectNode: IXMLNode; anObject: TObject; IsRoot: boolean = FALSE);
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+
+    procedure Serialize(const aSource: TObject; const anObjectNode: IXMLNode; IsRoot: boolean = True); overload;
+    procedure Serialize(const aSource: TObject; aStream: TStream); overload;
+    procedure Deserialize(aStream: TStream; aDestination: TObject);
+
+  published
+    property StreamerOptions: TROXMLStreamerOptions read fXMLStreamerOptions write fXMLStreamerOptions;
+    property PropertiesToIgnore: TStrings read GetPropertiesToIgnore write SetPropertiesToIgnore;
+  end;
+
+// Quick access functions
+procedure SaveObjectToXMLNode(aSource: TObject; anObjectNode: IXMLNode; somePropertiesToIgnore: array of string; someStreamerOptions: TROXMLStreamerOptions = []; IsRoot: boolean = True);
+procedure SaveObjectToStream(aSource: TObject; aStream: TStream; somePropertiesToIgnore: array of string; someStreamerOptions: TROXMLStreamerOptions = []);
+procedure LoadObjectFromStream(aStream: TStream; aDestination: TObject; somePropertiesToIgnore: array of string);
+
+procedure SaveObjectToFile(aSource: TObject; const aFileName: string; somePropertiesToIgnore: array of string; someStreamerOptions: TROXMLStreamerOptions = []);
+procedure LoadObjectFromFile(const aFileName: string; aDestination: TObject; somePropertiesToIgnore: array of string);
+
+// Dataset oriented functions
+function DatasetToXML(
+  const aDataset : IDADataset;
+  const RootNodeName : string = '';
+  const RecordNodeName : string = 'Record';
+  IncludeSchema : boolean = TRUE) : IXMLDocument;
+
+procedure XMLToCommandParams(const aCommand : IDASQLCommand; const XML : string);
+function XMLToUpdateCommand(const aConnection : IDAConnection;
+                            const aReferencedDataset : TDADataset;
+                            const aTargetTableName : string;
+                            const aXML : string) : IDASQLCommand;
+
+
+implementation
+
+uses SysUtils, uROTypes, Variants;
+
+procedure SaveObjectToXMLNode(aSource: TObject; anObjectNode: IXMLNode; somePropertiesToIgnore: array of string; someStreamerOptions: TROXMLStreamerOptions = []; IsRoot: boolean = True);
+var
+  i: integer;
+begin
+  with TROXMLStreamer.Create(nil) do try
+    for i := 0 to High(somePropertiesToIgnore) do
+      PropertiesToIgnore.Add(somePropertiesToIgnore[i]);
+
+    StreamerOptions := someStreamerOptions;
+    Serialize(aSource, anObjectNode,IsRoot);
+  finally
+    Free;
+  end;
+end;
+
+procedure SaveObjectToStream(aSource: TObject; aStream: TStream; somePropertiesToIgnore: array of string; someStreamerOptions: TROXMLStreamerOptions = []);
+var
+  i: integer;
+begin
+  with TROXMLStreamer.Create(nil) do try
+    for i := 0 to High(somePropertiesToIgnore) do
+      PropertiesToIgnore.Add(somePropertiesToIgnore[i]);
+
+    StreamerOptions := someStreamerOptions;
+    Serialize(aSource, aStream);
+  finally
+    Free;
+  end;
+end;
+
+procedure LoadObjectFromStream(aStream: TStream; aDestination: TObject; somePropertiesToIgnore: array of string);
+var
+  i: integer;
+begin
+  with TROXMLStreamer.Create(nil) do try
+    for i := 0 to High(somePropertiesToIgnore) do
+      PropertiesToIgnore.Add(somePropertiesToIgnore[i]);
+
+    Deserialize(aStream, aDestination);
+  finally
+    Free;
+  end;
+end;
+
+procedure SaveObjectToFile(aSource: TObject; const aFileName: string; somePropertiesToIgnore: array of string; someStreamerOptions: TROXMLStreamerOptions = []);
+var
+  fs: TFileStream;
+begin
+  fs := TFileStream.Create(aFileName, fmCreate);
+  try
+    SaveObjectToStream(aSource, fs, somePropertiesToIgnore, someStreamerOptions);
+  finally
+    fs.Free;
+  end;
+end;
+
+procedure LoadObjectFromFile(const aFileName: string; aDestination: TObject; somePropertiesToIgnore: array of string);
+var
+  fs: TFileStream;
+begin
+  fs := TFileStream.Create(aFileName, fmOpenRead + fmShareDenyWrite);
+  try
+    LoadObjectFromStream(fs, aDestination, somePropertiesToIgnore);
+  finally
+    fs.Free;
+  end;
+end;
+
+{ TROXMLStreamer }
+
+constructor TROXMLStreamer.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fPropertiesToIgnore := TStringList.Create;
+  fPropertiesToIgnore.Sorted := TRUE;
+  fPropertiesToIgnore.Duplicates := dupError;
+
+  fXMLStreamerOptions := [soIncludeType];
+end;
+
+destructor TROXMLStreamer.Destroy;
+begin
+  fPropertiesToIgnore.Free;
+
+  inherited;
+end;
+
+procedure TROXMLStreamer.Deserialize(aStream: TStream; aDestination: TObject);
+var
+  xml: IXMLDocument;
+begin
+  if (aStream = nil) then raise Exception.Create('Invalid stream');
+
+  xml := NewROXmlDocument;
+  xml.New('');
+  xml.LoadFromStream(aStream);
+
+  if (xml.DocumentNode.Value = ValueNIL) then
+    FreeAndNIL(aDestination)
+  else
+    DeserializeObject(xml.DocumentNode, aDestination, TRUE);
+end;
+
+procedure TROXMLStreamer.Serialize(const aSource: TObject; aStream: TStream);
+{$IFNDEF RemObjects_OpenXML}
+const
+  _xls = '<?xml version="1.0" encoding="UTF-8"?>'+sLineBreak+
+         '<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">'+sLineBreak+
+         '<xsl:output method="xml" indent="yes" encoding="UTF-8" />'+sLineBreak+
+         '<xsl:template match="@* | node()">'+sLineBreak+
+         '<xsl:copy>'+sLineBreak+
+         '<xsl:apply-templates select="@* | node()" />'+sLineBreak+
+         '</xsl:copy>'+sLineBreak+
+         '</xsl:template>'+sLineBreak+
+         '</xsl:stylesheet>';
+{$ENDIF RemObjects_OpenXML}
+var
+  xml: IXMLDocument;
+begin
+  if (aStream = nil) then raise Exception.Create('Invalid stream');
+
+  xml := NewROXmlDocument;
+  try
+    if (aSource = nil) then begin
+      xml.New(ValueNIL);
+      Exit;
+    end
+    else
+      xml.New(aSource.ClassName);
+
+    // Serializes the object
+    SerializeObject(xml.DocumentNode, aSource, TRUE);
+  finally
+    {$IFDEF RemObjects_OpenXML}
+    xml.SaveToStream(aStream);
+    {$ELSE}
+    xml.Transform2(_xls, aStream);
+    {$ENDIF}
+  end;
+end;
+
+procedure TROXMLStreamer.SerializeSimpleType(const aTargetNode: IXMLNode; anObject: TObject; aPropertyInfo: PPropInfo);
+var
+  int64val: int64;
+  intval: integer;
+  dblval: double;
+  strval: string;
+  {$IFNDEF DELPHI5}wstrval: widestring;
+  {$ENDIF}
+  lName: string;
+begin
+  lName := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(aPropertyInfo^.Name);
+  case aPropertyInfo^.PropType^.Kind of
+    {$IFDEF FPC}tkBool,{$ENDIF}
+    tkEnumeration: begin
+      //enuval := GetOrdProp(anObject, lName);
+        aTargetNode.Value := GetPropValue(anObject, lName, TRUE);
+      end;
+
+    tkInteger: begin
+        intval := GetOrdProp(anObject, lName);
+        aTargetNode.Value := intval;
+      end;
+
+    tkFloat: begin
+        dblval := GetFloatProp(anObject, lName);
+        aTargetNode.Value := dblval;
+      end;
+
+    tkLString,
+     {$IFDEF FPC}tkAString,{$ENDIF}
+    tkString: begin
+        strval := GetStrProp(anObject, lName);
+        aTargetNode.Value := strval;
+      end;
+
+    tkInt64: begin
+        int64val := GetInt64Prop(anObject, lName);
+        aTargetNode.Value := int64val;
+      end;
+    {$IFDEF UNICODE}tkUString,{$ENDIF}
+    tkWString: begin
+        {$IFDEF DELPHI5}
+        strval := GetStrProp(anObject, lName);
+        aTargetNode.Value := strval;
+        {$ELSE}
+        wstrval := GetWideStrProp(anObject, lName);
+        aTargetNode.Value := wstrval;
+        {$ENDIF}
+      end;
+
+    tkVariant, tkSet: begin
+        aTargetNode.Value := GetVariantProp(anObject, lName);
+      end;
+
+  else
+    raise Exception.Create(Format('Type not supported %s', [GetEnumName(TypeInfo(TTypeKind), Ord(aPropertyInfo^.PropType^.Kind))]))
+  end;
+end;
+
+procedure TROXMLStreamer.SerializeObject(const anObjectNode: IXMLNode; anObject: TObject; IsRoot: boolean = FALSE);
+var
+  props: PPropList;
+  x, cnt, i: integer;
+  subnode, node: IXMLNode;
+  coll: TCollection;
+    // Temporary variables
+  objval: TObject;
+  pdata: PTypeData;
+  lname: string;
+begin
+  if (anObject <> nil) and (anObject.ClassInfo <> nil) then begin
+    pdata := GetTypeData(anObject.ClassInfo);
+
+    if (pdata <> nil) then begin
+
+      cnt := pdata.PropCount;
+
+      if (cnt > 0) then begin
+        GetMem(props, cnt * SizeOf(PPropInfo));
+
+        try
+          cnt := GetPropList(PTypeInfo(anObject.ClassInfo), tkProperties, props);
+
+          for i := 0 to (cnt - 1) do begin
+            lName := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(props^[i]^.Name);
+            if IsRoot and (fPropertiesToIgnore.IndexOf(lName) >= 0)
+              or not IsStoredProp(anObject, props^[i]) then Continue;
+
+            node := anObjectNode.Add(lName);
+
+            with props^[i]^ do
+              // Class types
+              if (PropType^.Kind = tkClass) then begin
+                node.AddAttribute(attr_Type, props^[i]^.PropType^.Name); // Always set fo object types
+                objval := GetObjectProp(anObject, lName);
+                node.AddAttribute(attr_IsObject, XMLBooleans[TRUE]);
+
+                if Assigned(objval) then begin
+                  // TComponent
+
+                  if (objval is TStrings) then begin
+                    node.Value := TStrings(objval).Text;
+                  end else
+                  if (objval is TComponent) then begin
+                    if (TComponent(objval).Owner = anObject) then
+                      SerializeObject(node, objval) // Owned sub-component
+                    else begin
+                      // Reference to another component
+                      node.AddAttribute(attr_ByRef, XMLBooleans[TRUE]);
+                      node.AddAttribute(attr_RefName, TComponent(objval).Name);
+                      if (TComponent(objval).Owner <> nil) then node.AddAttribute(attr_Owner, TComponent(objval).Owner.Name);
+                    end;
+                  end
+
+                  // TCollection
+                  else if (objval is TCollection) then begin
+                    coll := TCollection(objval);
+                    node.AddAttribute(attr_IsCollection, XMLBooleans[TRUE]);
+                    node.AddAttribute(attr_Count, coll.Count);
+                    node.AddAttribute(attr_ItemClass, coll.ItemClass.ClassName);
+
+                    for x := 0 to (coll.Count - 1) do begin
+                      subnode := node.Add(attr_Item + IntToStr(x));
+                      SerializeObject(subnode, coll.Items[x]);
+                    end;
+                  end
+
+                  // Standard persistent class
+                  else
+                    SerializeObject(node, objval);
+                end
+
+                // NIL object
+                else
+                  node.AddAttribute(attr_IsNull, XMLBooleans[TRUE]);
+              end
+
+            // Simple types
+              else begin
+                if (soIncludeType in fXMLStreamerOptions) then node.AddAttribute(attr_Type, props^[i]^.PropType^.Name);
+                SerializeSimpleType(node, anObject, props^[i]);
+              end;
+          end;
+        finally
+          FreeMem(props, cnt * SizeOf(PPropInfo));
+        end;
+      end
+
+(*      // TROArray (they don't have properties so they will not fall in the previous block)
+      else if (anObject is TROArray) then begin
+        arr := TROArray(anObject);
+        anObjectNode.AddAttribute(attr_IsArray, XMLBooleans[TRUE]);
+        anObjectNode.AddAttribute(attr_Count, arr.Count);
+
+        if (arr.GetItemType<>NIL) then begin
+          anObjectNode.AddAttribute(attr_ItemClass, arr.GetItemType^.Name);
+          for x := 0 to (arr.Count-1) do begin
+            subnode := anObjectNode.Add(attr_Item+IntToStr(x));
+            SerializeObject(subnode, TObject(arr.GetItemRef(x)));
+          end;
+        end;
+      end*)
+    end;
+  end
+
+  else
+    anObjectNode.AddAttribute(attr_IsNull, XMLBooleans[TRUE]);
+end;
+
+procedure TROXMLStreamer.DeserializeObject(const anObjectNode: IXMLNode;
+  anObject: TObject; IsRoot: boolean = FALSE);
+var
+  props: PPropList;
+  x, cnt, i: integer;
+  node: IXMLNode;
+  coll: TCollection;
+
+  // Temporary variables
+  objval: TObject;
+  pdata: PTypeData;
+  collitem: TCollectionItem;
+  strVal: string;
+  lName: string;
+begin
+  if (anObjectNode.GetAttributeValue(attr_IsNull, XMLBooleans[FALSE]) = XMLBooleans[TRUE]) then begin
+    //anObject := NIL;
+    Exit;
+  end;
+
+  pdata := GetTypeData(anObject.ClassInfo);
+
+  if (pdata <> nil) then begin
+
+    cnt := pdata.PropCount;
+
+    if (cnt > 0) then begin
+      GetMem(props, cnt * SizeOf(PPropInfo));
+
+      try
+        cnt := GetPropList(PTypeInfo(anObject.ClassInfo), tkProperties, props);
+
+        for i := 0 to (cnt - 1) do begin
+          lname:= {$IFDEF UNICODE}UTF8ToString {$ENDIF}(props^[i]^.Name);
+          if IsRoot and (fPropertiesToIgnore.IndexOf(lName) >= 0) then Continue;
+
+          node := anObjectNode.GetNodeByName(lName);
+          if (node = nil) then Continue; // Property was not streamed
+
+          with props^[i]^ do
+            // Class types
+            if (PropType^.Kind = tkClass) then begin
+              objval := GetObjectProp(anObject, lName);
+
+              if (objval = nil) then
+                Continue
+
+              else begin
+                // TComponent
+                  if (objval is TStrings) then begin
+                    TStrings(objval).Text := node.Value;
+                  end else
+                if (objval is TComponent) then begin
+                  if (TComponent(objval).Owner = anObject) then
+                    DeserializeObject(node, objval) // Owned sub-component
+                  else begin
+                    // Reference to another component
+                    {node.AddAttribute(attr_ByRef, XMLBooleans[TRUE]);
+                    node.AddAttribute(attr_RefName, TComponent(objval).Name);
+                    if (TComponent(objval).Owner<>NIL)
+                      then node.AddAttribute(attr_Owner, TComponent(objval).Owner.Name);}
+                  end;
+                end
+
+                // TCollection
+                else if (objval is TCollection) then begin
+                  coll := TCollection(objval);
+                  coll.Clear;
+
+                  for x := 0 to (node.ChildrenCount - 1) do try
+                    if SameText(Copy(node.Children[x].Name, 1, 4), attr_Item) then begin
+                      collitem := coll.Add;
+                      DeserializeObject(node.Children[x], collitem);
+                    end;
+                  except
+                    raise
+                  end;
+                end
+
+                // Standard persistent class
+                else
+                  DeserializeObject(node, objval);
+              end
+            end
+
+          // Simple types
+            else begin
+              case PropType^.Kind of
+                tkEnumeration: begin
+                  // If enumerated values are empty, it should just skip and leave the defaults.
+                  // Not doing so generates a range check error.
+                  strVal := VarToStr(node.Value);
+                  if (strVal<>'')
+                    then SetPropValue(anObject, lName, GetEnumValue(props^[i]^.PropType{$IFNDEF FPC}^{$ENDIF}, strVal));
+                end;
+              else
+                SetPropValue(anObject, lName, node.Value);
+              end;
+            end;
+        end;
+      finally
+        FreeMem(props, cnt * SizeOf(PPropInfo));
+      end;
+    end
+
+    // TROArray (they don't have properties so they will not fall in the previous block)
+(*    else if (anObject is TROArray) then begin
+      arr := TROArray(anObject);
+      arr.Resize(anObjectNode.ChildrenCount-1);
+
+      if (arr.GetItemType<>NIL) then begin
+        arr.GetItemClass.Create
+        anObjectNode.AddAttribute(attr_ItemClass, arr.GetItemType^.Name);
+        for x := 0 to (arr.Count-1) do begin
+          subnode := anObjectNode.Add(attr_Item+IntToStr(x));
+          SerializeObject(subnode, TObject(arr.GetItemRef(x)));
+        end;
+      end;
+    end*)
+  end;
+end;
+
+procedure TROXMLStreamer.SetPropertiesToIgnore(const Value: TStrings);
+begin
+  fPropertiesToIgnore.Assign(Value);
+end;
+
+function TROXMLStreamer.GetPropertiesToIgnore: TStrings;
+begin
+  result := fPropertiesToIgnore;
+end;
+
+// Dataset oriented functions
+function DatasetToXML(
+  const aDataset : IDADataset;
+  const RootNodeName : string = '';
+  const RecordNodeName : string = 'Record';
+  IncludeSchema : boolean = TRUE) : IXMLDocument;
+var root, node : IXMLNode;
+    i : integer;
+begin
+  result := NewROXmlDocument;
+
+  if (RootNodeName<>'') then result.New(RootNodeName)
+  else begin
+    if (Trim(aDataset.Name)<>'') then result.New(aDataset.Name)
+                                 else result.New('Dataset');
+  end;
+
+  if not aDataset.Active then Exit;
+
+  root := result.DocumentNode;
+
+  if IncludeSchema then begin
+  end;
+
+  while not aDataset.EOF do try
+    node := root.Add(RecordNodeName);
+    for i := 0 to aDataset.FieldCount-1 do begin
+      node.Add(aDataset.Fields[i].Name).Value := aDataset.Fields[i].AsString;
+    end;
+  finally
+    aDataset.Next;
+  end;
+end;
+
+procedure XMLToCommandParams(const aCommand : IDASQLCommand; const XML : string);
+var xmldoc : IXMLDocument;
+    i : integer;
+    node : IXMLNode;
+    param : TDAParam;
+begin
+  xmldoc := NewROXmlDocument;
+  xmldoc.New('CommandParams');
+  xmldoc.XML := XML;
+
+  for i := 0 to (aCommand.Params.Count-1) do
+    aCommand.Params[i].Value := Null;
+
+  for i := 0 to (xmldoc.DocumentNode.ChildrenCount-1) do begin
+    node := xmldoc.DocumentNode.Children[i];
+    param := aCommand.Params.FindParam(node.Name);
+    if (param=NIL) then Continue;
+
+    param.Value := node.Value;
+  end;
+end;
+
+function XMLToUpdateCommand(const aConnection : IDAConnection;
+                            const aReferencedDataset : TDADataset;
+                            const aTargetTableName : string;
+                            const aXML : string) : IDASQLCommand;
+const CRLF = #13#10;
+var fld : TDAField;
+    i : integer;
+    xmldoc : IXMLDocument;
+    nme, where, sql : string;
+begin
+  xmldoc := NewROXmlDocument;
+  xmldoc.New;
+  xmldoc.XML := aXML;
+
+  result := NIL;
+  if (xmldoc.DocumentNode.ChildrenCount=0)
+    then raise Exception.Create('Invalid XML document. Cannot generate an update statement');
+
+  sql := 'UPDATE '+aTargetTableName+' SET'+CRLF;
+  where := '';
+
+  with xmldoc do begin
+    for i := 0 to (DocumentNode.ChildrenCount-1) do begin
+      nme := DocumentNode.Children[i].Name;
+      fld := aReferencedDataset.Fields.FindField(nme);
+
+      if (fld=NIL) then begin
+        if (Pos(old_FieldPrefix, UpperCase(nme))=1) then begin
+          if (where<>'') then where := where+' AND ';
+          nme := Copy(nme, Length(old_FieldPrefix)+1, MaxInt);
+          fld := aReferencedDataset.Fields.FindField(nme);
+          if (fld=NIL) then Continue;
+          if (fld.DataType in [datWideString, datString, datDateTime])
+            then where := where+nme+'='+''''+VarToStr(DocumentNode.Children[i].Value)+''''
+            else where := where+nme+'='+VarToStr(DocumentNode.Children[i].Value);
+
+        end;
+        Continue;
+      end
+      else begin
+        sql := sql+fld.Name+'=';
+        if (fld.DataType in [datWideString, datString, datDateTime])
+          then sql := sql+''''+VarToStr(DocumentNode.Children[i].Value)+''''
+          else sql := sql+VarToStr(DocumentNode.Children[i].Value);
+        sql := sql+','+CRLF;
+      end;
+    end;
+  end;
+  sql := Copy(sql, 1, Length(sql)-3)+CRLF;
+
+  if (where<>'') then sql := sql+' WHERE '+where;
+
+  result := aConnection.NewCommand(sql, stSQL, 'UPDATE_'+aTargetTableName);
+end;
+
+procedure TROXMLStreamer.Serialize(const aSource: TObject; const anObjectNode: IXMLNode; IsRoot: boolean = True);
+begin
+  if (anObjectNode = nil) then raise Exception.Create('Invalid XMLNode.');
+  if (aSource <> nil) then SerializeObject(anObjectNode, aSource, IsRoot);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/unins000.dat b/internal/6.0.43.801/1/Data Abstract for Delphi/unins000.dat
new file mode 100644
index 0000000..be2621f
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/unins000.dat differ
diff --git a/internal/6.0.43.801/1/Data Abstract for Delphi/unins000.exe b/internal/6.0.43.801/1/Data Abstract for Delphi/unins000.exe
new file mode 100644
index 0000000..00508f0
Binary files /dev/null and b/internal/6.0.43.801/1/Data Abstract for Delphi/unins000.exe differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/1033/RemObjects.Everwood.Resources.dll b/internal/6.0.43.801/1/Everwood/Bin/1033/RemObjects.Everwood.Resources.dll
new file mode 100644
index 0000000..4247833
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/1033/RemObjects.Everwood.Resources.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/EWSetRegistryPath.exe b/internal/6.0.43.801/1/Everwood/Bin/EWSetRegistryPath.exe
new file mode 100644
index 0000000..49b5a72
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/EWSetRegistryPath.exe differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/EWSetRegistryPath.log b/internal/6.0.43.801/1/Everwood/Bin/EWSetRegistryPath.log
new file mode 100644
index 0000000..473d936
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Bin/EWSetRegistryPath.log
@@ -0,0 +1,8 @@
+29/01/2010 16:38:41 - Adding C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Dcu\D14
+29/01/2010 16:38:41 - Adding C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source;C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\CodeGen
+29/01/2010 16:38:41 - Adding C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\DataSnap;C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\ZLib
+29/01/2010 16:38:41 - Adding C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\RODX;C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\RODEC
+29/01/2010 16:38:41 - Adding C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\Synapse;$(Everwood)\Bin
+29/01/2010 16:38:41 - Adding C:\Archivos de programa\RemObjects Software\Pascal Script for Delphi\Dcu\D14;C:\Archivos de programa\RemObjects Software\Pascal Script for Delphi\Source
+29/01/2010 16:38:42 - Adding C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source;C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D14
+29/01/2010 16:38:42 - Adding C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers
diff --git a/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.OLE.Interop.dll b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.OLE.Interop.dll
new file mode 100644
index 0000000..bcdd96d
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.OLE.Interop.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.Shell.Interop.8.0.dll b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.Shell.Interop.8.0.dll
new file mode 100644
index 0000000..778b6ad
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.Shell.Interop.8.0.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.Shell.Interop.dll b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.Shell.Interop.dll
new file mode 100644
index 0000000..a4b7afe
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.Shell.Interop.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.TextManager.Interop.dll b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.TextManager.Interop.dll
new file mode 100644
index 0000000..553e141
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.TextManager.Interop.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.VSIP.Helper.dll b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.VSIP.Helper.dll
new file mode 100644
index 0000000..9ffccfb
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/Microsoft.VisualStudio.VSIP.Helper.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS5.dll b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS5.dll
new file mode 100644
index 0000000..b4c88c0
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS5.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS6.dll b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS6.dll
new file mode 100644
index 0000000..05e0411
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS6.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS7.dll b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS7.dll
new file mode 100644
index 0000000..05330c1
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.BDS7.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.ShDocWv.dll b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.ShDocWv.dll
new file mode 100644
index 0000000..d5528f0
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.ShDocWv.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.VarReplacer.exe b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.VarReplacer.exe
new file mode 100644
index 0000000..8d01880
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.VarReplacer.exe differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.VisualStudio.dll b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.VisualStudio.dll
new file mode 100644
index 0000000..87b8c16
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.VisualStudio.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.dll b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.dll
new file mode 100644
index 0000000..8bda1ab
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects.Everwood.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D11.bpl b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D11.bpl
new file mode 100644
index 0000000..7d6deb6
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D11.dcp b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D11.dcp
new file mode 100644
index 0000000..9ba21e8
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D12.bpl b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D12.bpl
new file mode 100644
index 0000000..0654f25
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D12.dcp b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D12.dcp
new file mode 100644
index 0000000..4938c05
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D14.bpl b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D14.bpl
new file mode 100644
index 0000000..ddb60b7
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D14.dcp b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D14.dcp
new file mode 100644
index 0000000..0e0f486
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D7.bpl b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D7.bpl
new file mode 100644
index 0000000..912a1d7
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D7.dcp b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D7.dcp
new file mode 100644
index 0000000..ebd2951
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/RemObjects_Everwood_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Everwood/Bin/SHDocVw.dll b/internal/6.0.43.801/1/Everwood/Bin/SHDocVw.dll
new file mode 100644
index 0000000..77b0ae8
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Bin/SHDocVw.dll differ
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxC b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxC
new file mode 100644
index 0000000..fe86782
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxC
@@ -0,0 +1,33 @@
+<?xml version="1.0"?>
+<!DOCTYPE HelpCollection>
+<HelpCollection DTDVersion = "1.0" LangId = "1033" FileVersion = "1.0.0.0" Title = "RemObjects Wiki">
+
+  <TOCDef File = "RemobjectsDelphiWiki.HxT"/>
+  <KeywordIndexDef File = "RemobjectsDelphiWiki_K.HxK"/>
+  <KeywordIndexDef File = "RemobjectsDelphiWiki_F.HxK"/>
+  <KeywordIndexDef File = "RemobjectsDelphiWiki_N.HxK"/>
+  <KeywordIndexDef File = "RemobjectsDelphiWiki_A.HxK"/>
+  <KeywordIndexDef File = "RemobjectsDelphiWiki_D.HxK"/>
+  <ItemMoniker Name="!DefaultFullTextSearch" ProgId="HxDs.HxFullTextSearch" InitData="FTS"/>
+  <ItemMoniker Name = "!DefaultTOC"
+               ProgId = "HxDs.HxHierarchy"
+               InitData = "RemObjects Wiki"/>
+  <ItemMoniker Name = "!DefaultFullTextSearch"
+               ProgId = "HxDs.HxFullTextSearch"
+               InitData = "AnyString"/>
+  <ItemMoniker Name = "!DefaultKeywordIndex"
+               ProgId = "HxDs.HxIndex"
+               InitData = "K"/>
+  <ItemMoniker Name = "!DefaultAssociativeIndex"
+               ProgId = "HxDs.HxIndex"
+               InitData = "A"/>
+  <ItemMoniker Name = "!DefaultContextWindowIndex"
+               ProgId = "HxDs.HxIndex"
+               InitData = "F"/>
+  <ItemMoniker Name = "!DefaultDynamicLinkIndex"
+               ProgId = "HxDs.HxIndex"
+               InitData = "D"/>
+  <ItemMoniker Name = "!DefaultNamedUrlIndex"
+               ProgId = "HxDs.HxIndex"
+               InitData = "NamedUrlIndex"/>
+</HelpCollection>
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxS b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxS
new file mode 100644
index 0000000..d6c8d63
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxS differ
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxT b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxT
new file mode 100644
index 0000000..3cbd108
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki.HxT
@@ -0,0 +1,7 @@
+<?xml version="1.0"?>
+<!DOCTYPE HelpTOC>
+<HelpTOC DTDVersion = "1.0" LangId = "1033" ParentNodeIcon = "Book" PluginStyle = "Flat" PluginTitle="RemObjects Wiki">
+  <HelpTOCNode Title = "RemObjects Wiki">
+    <HelpTOCNode NodeType="TOC" Url="RemObjectsDelphiWiki"/>
+  </HelpTOCNode>
+</HelpTOC>
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_A.HxK b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_A.HxK
new file mode 100644
index 0000000..4f0e99b
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_A.HxK
@@ -0,0 +1,4 @@
+<?xml version="1.0"?>
+<!DOCTYPE HelpIndex>
+<HelpIndex Name = "A" DTDVersion = "1.0" Visible = "Yes" LangId = "1033">
+</HelpIndex>
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_D.HxK b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_D.HxK
new file mode 100644
index 0000000..a44afbb
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_D.HxK
@@ -0,0 +1,4 @@
+<?xml version="1.0"?>
+<!DOCTYPE HelpIndex>
+<HelpIndex Name = "D" DTDVersion = "1.0" Visible = "Yes" LangId = "1033">
+</HelpIndex>
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_F.HxK b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_F.HxK
new file mode 100644
index 0000000..6cb9b25
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_F.HxK
@@ -0,0 +1,4 @@
+<?xml version="1.0"?>
+<!DOCTYPE HelpIndex>
+<HelpIndex Name = "F" DTDVersion = "1.0" Visible = "Yes" LangId = "1033">
+</HelpIndex>
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_K.HxK b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_K.HxK
new file mode 100644
index 0000000..5ad4b08
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_K.HxK
@@ -0,0 +1,4 @@
+<?xml version="1.0"?>
+<!DOCTYPE HelpIndex>
+<HelpIndex Name = "K" DTDVersion = "1.0" Visible = "Yes" LangId = "1033">
+</HelpIndex>
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_N.HxK b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_N.HxK
new file mode 100644
index 0000000..d03796a
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/RemObjectsDelphiWiki_N.HxK
@@ -0,0 +1,4 @@
+<?xml version="1.0"?>
+<!DOCTYPE HelpIndex>
+<HelpIndex Name = "N" DTDVersion = "1.0" Visible = "Yes" LangId = "1033">
+</HelpIndex>
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg.exe b/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg.exe
new file mode 100644
index 0000000..270ad45
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg.exe differ
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg.ini b/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg.ini
new file mode 100644
index 0000000..5287ad5
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg.ini
@@ -0,0 +1,101 @@
+[MAIN]
+DebugMode=0                   ;set to 1 to log everything - Check your resources (ship with =0)
+DumpNSToLog_before=0          ;Very verbose but good for debugging - dumps all NS info to log file before Registration
+DumpNSToLog_after=0           ;Very verbose but good for debugging - dumps all NS info to log file after Registration
+OKtoReport_FinalRegError=0    ;Report general error at end if a registration error was logged
+OKtoReport_FinalUnRegError=0  ;Report general error at end if a unregistration error was logged
+
+;Advanced feature - These can be set then used as <userdir1> etc specifiers. They can
+;also be set via the H2Reg.exe command line. Command line has preference over INI file.
+UserDir1=''
+UserDir2=''
+UserDir3=''
+UserDir4=''
+
+; Resource Strings
+
+[en] ; English
+ErrSt_SysFileNotFound = 'Installation Error. Error reading system file or file not found.|%s'
+ErrSt_MSHelp2RTNotFound = 'MS Help 2.x runtime files are not installed on this PC.'
+ErrSt_NotAdminMode = 'You must be logged on as an Administrator.'
+ErrSt_Extra = 'Installation/registration of Help files cannot proceed.'
+
+Msg_Registering = 'Registering Online Documentation Files:'
+Msg_UnRegistering = 'Unregistering Online Documentation Files:'
+Msg_LoggingNSInfo = 'Logging Namespace Info'
+Msg_Registering_Namespaces =  'Registering Namespaces'
+Msg_Registering_Titles =  'Registering Titles'
+Msg_Registering_Plugins =  'Registering Plug-ins'
+Msg_Registering_Filters =  'Registering Filters'
+Msg_UnRegistering_Namespaces =  'Unregistering Namespaces'
+Msg_UnRegistering_Titles =  'Unregistering Titles'
+Msg_UnRegistering_Plugins =  'Unregistering Plug-ins'
+Msg_UnRegistering_Filters =  'Unregistering Filters'
+
+Msg_Merging_Namespaces = 'Merging Help Indexes. This may take several minutes'
+
+PopupSt_FinalRegError='There were errors reported while Registering help files.||View Log file?'
+PopupSt_FinalUnRegError='There were errors reported while Unregistering help files.||View Log file?'
+
+; International Strings - Defaults to [en]
+[de] ; German
+[ja] ; Japanese
+[fr] ; French
+[es] ; Spanish
+[it] ; Italian
+[ko] ; Korean
+[cn] ; Chinese (Simplified)
+[tw] ; Chinese (Traditional)
+[sv] ; Swedish
+[nl] ; Dutch
+[ru] ; Russian
+[ar] ; Arabic
+[he] ; Hebrew
+[da] ; Danish
+[no] ; Norwegian
+[fi] ; Finnish
+[pt] ; Portuguese
+[br] ; Brazilian
+[cs] ; Czech
+[pl] ; Polish
+[hu] ; Hungarian
+[el] ; Greek
+[tr] ; Turkish
+[sl] ; Slovenian
+[sk] ; Slovakian
+[eu] ; Basque
+[ca] ; Catalan
+
+;--- Optionally you can place your Registration Commands in this file
+
+;------- Register -r switch
+
+[Reg_Namespace]
+RemObjectsDelphiWiki|RemObjectsDelphiWiki.HxC|RemObjects Wiki
+
+[Reg_Title]
+RemObjectsDelphiWiki|RemObjectsDelphiWiki|1033|RemObjectsDelphiWiki.HxS
+
+[Reg_Plugin]
+embarcadero.*|_DEFAULT|RemObjectsDelphiWiki|_DEFAULT
+borland.*|_DEFAULT|RemObjectsDelphiWiki|_DEFAULT
+
+[Reg_Filter]
+;<nsName>|<FilterName>|<FilterQueryStr>
+RemObjectsDelphiWiki|RemObjects Wiki|("DocSet"="RemObjects Wiki")
+
+;------- UnRegister -u switch
+
+[UnReg_Namespace]
+RemObjectsDelphiWiki|RemObjects Wiki
+
+[UnReg_Title]
+RemObjectsDelphiWiki|RemObjectsDelphiWiki|1033
+
+[UnReg_Plugin]
+embarcadero.*|_DEFAULT|RemObjectsDelphiWiki|_DEFAULT
+borland.*|_DEFAULT|RemObjectsDelphiWiki|_DEFAULT
+
+[UnReg_Filter]
+RemObjectsDelphiWiki|RemObjects Wiki
+
diff --git a/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg_Log.txt b/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg_Log.txt
new file mode 100644
index 0000000..0b46b0b
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/DelphiHelp/h2reg_Log.txt
@@ -0,0 +1,62 @@
+===============================================================================
+Log File:             	C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp\h2reg_Log.txt
+Date:                 	29/01/2010 16:38:36
+Operating System:      	Windows XP 5.1 (Build 2600) Service Pack 2
+SysLocale.DefaultLCID: 	0x0C0A (3082)
+SysLocale.PriLangID:   	0x000A (10)
+SysLocale.SubLangID:   	0x0003 (3)
+DecimalSeparator:      	,
+-------------------------------------------------------------------------------
+EXE Path =          	C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp\h2reg.exe
+Cmdline Param(s) =  	-r | -m | -q | CmdFile=C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp\h2reg.ini
+Actual CmdLine =  	"C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp\h2reg.exe" -r -m -q CmdFile="C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp\h2reg.ini"
+_RunDir =           	C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp
+_ModuleName =       	h2reg.exe
+_ModuleDir =        	C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp
+-------------------------------------------------------------------------------
+_hhInstalled =      	YES
+_hhVerStr =         	5.2.3790.2847
+_hhFriendlyVerStr = 	> 1.4a
+-------------------------------------------------------------------------------
+_ieInstalled =      	YES
+_ieVerStr =         	6.0.2900.3086
+_ieFriendlyVerStr = 	> Internet Explorer 6 SP1
+===============================================================================
+MS Help 2.x Runtime Found: NO
+NT Admin Log On: YES
+PC Language ID = es
+-------------------------------------------------------------------------------
+Quiet Mode (-Q): Yes
+Registration Mode (-R): Yes
+UnRegistration Mode (-U): No
+Append Log Mode (-A): No
+No NT Admin Check (-N): No
+Merge Indexes Mode (-M): Yes
+Cmd Script File (CmdFile=): C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp\h2reg.ini
+User Dir 1 (UserDir1=): 
+User Dir 2 (UserDir2=): 
+User Dir 3 (UserDir3=): 
+User Dir 4 (UserDir4=): 
+===============================================================================
+CmdFile = C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp\h2reg.ini
+<windir> = C:\WINDOWS
+<winsysdir> = C:\WINDOWS\system32
+<programfilesdir> = C:\Archivos de programa
+<exedir> = C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp
+<exedirparent> = C:\Archivos de programa\RemObjects Software\Everwood
+<cmdfiledir> = C:\Archivos de programa\RemObjects Software\Everwood\DelphiHelp
+<cmdfiledirparent> = C:\Archivos de programa\RemObjects Software\Everwood
+<userdir1> = 
+<userdir1parent> = 
+<userdir2> = 
+<userdir2parent> = 
+<userdir3> = 
+<userdir3parent> = 
+<userdir4> = 
+<userdir4parent> = 
+-------------------------------------------------------------------------------
+16:38:36   ** Error **MS Help 2.x runtime files are not installed on this PC.
+16:38:36   Program Aborted!!
+
+--END OF FILE--
+
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/Everwood.inc b/internal/6.0.43.801/1/Everwood/Source/Delphi/Everwood.inc
new file mode 100644
index 0000000..7f6a92f
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/Everwood.inc
@@ -0,0 +1,6 @@
+{$INCLUDE eDefines.inc}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/EverwoodIDEResources.lrs b/internal/6.0.43.801/1/Everwood/Source/Delphi/EverwoodIDEResources.lrs
new file mode 100644
index 0000000..b0fbd11
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/EverwoodIDEResources.lrs
@@ -0,0 +1,524 @@
+LazarusResources.Add('EverwoodWizardStandardIcon','ICO',[
+  #0#0#1#0#3#0'00'#0#0#1#0' '#0#168'%'#0#0'6'#0#0#0'  '#0#0#1#0' '#0#168#16#0#0
+  +#222'%'#0#0#16#16#0#0#1#0' '#0'h'#4#0#0#134'6'#0#0'('#0#0#0'0'#0#0#0'`'#0#0#0
+  +#1#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#31#0#255#0'{'#0
+  +#255#0'}'#0#255#1'|'#0#255#1'|'#0#255#1'|'#0#255#1'{'#0#255#2'{'#0#255#2'z'#0
+  +#255#2'z'#0#255#3'z'#0#255#3'y'#0#255#4'y'#0#255#4'x'#0#255#4'x'#0#255#5'w'#0
+  +#255#5'v'#0#255#6'v'#0#255#6'u'#0#255#7'u'#0#255#7'u'#0#255#8's'#0#255#8's'#0
+  +#255#9's'#0#255#9'r'#0#255#9'r'#0#255#10'q'#0#255#10'o'#0#255#11'o'#0#255#11
+  +'o'#0#255#12'n'#0#255#12'm'#0#255#13'm'#0#255#14'l'#0#255#14'k'#0#255#15'j'#0
+  +#255#16'i'#0#255#16'i'#0#255#17'h'#0#255#18'g'#0#255#18'f'#0#255#19'e'#0#255
+  +#20'e'#0#255#20'd'#0#255#21'c'#0#255#22'b'#0#255#22'a'#0#255#23'`'#0#255#0#31
+  +#0#255#1'z'#0#255#1'|'#0#255#1'|'#0#255#1'|'#0#255#2'{'#0#255#2'{'#0#255#2'z'
+  +#0#255#3'z'#0#255#3'y'#0#255#3'y'#0#255#4'x'#0#255#4'x'#0#255#5'w'#0#255#5'w'
+  +#0#255#5'v'#0#255#6'u'#0#255#6'u'#0#255#7't'#0#255#7't'#0#255#8't'#0#255#8'r'
+  +#0#255#8'r'#0#255#10'r'#0#255#10'p'#0#255#10'p'#0#255#11'p'#0#255#11'n'#0#255
+  +#12'n'#0#255#12'n'#0#255#13'm'#0#255#13'l'#0#255#14'k'#0#255#15'j'#0#255#15
+  +'j'#0#255#16'i'#0#255#17'h'#0#255#17'g'#0#255#18'f'#0#255#19'f'#0#255#19'e'#0
+  +#255#20'd'#0#255#21'c'#0#255#21'b'#0#255#22'a'#0#255#23'a'#0#255#24'`'#0#255
+  +#24'_'#0#255#0#31#0#255#1'z'#0#255#1'|'#0#255#2'{'#0#255#2'{'#0#255#2'z'#0
+  +#255#3'z'#0#255#3'y'#0#255#3'y'#0#255#4'x'#0#255#4'x'#0#255#5'w'#0#255#5'w'#0
+  +#255#5'v'#0#255#6'v'#0#255#6'u'#0#255#7't'#0#255#7't'#0#255#8's'#0#255#8's'#0
+  +#255#9's'#0#255#9'q'#0#255#10'q'#0#255#10'q'#0#255#10'p'#0#255#12'n'#0#255#12
+  +'n'#0#255#12'n'#0#255#13'm'#0#255#13'l'#0#255#14'k'#0#255#15'k'#0#255#15'j'#0
+  +#255#16'i'#0#255#17'h'#0#255#17'g'#0#255#18'g'#0#255#19'f'#0#255#19'e'#0#255
+  +#20'd'#0#255#21'c'#0#255#21'b'#0#255#22'b'#0#255#23'a'#0#255#24'`'#0#255#24
+  +'_'#0#255#25'^'#0#255#25']'#0#255#0#31#0#255#1'y'#0#255#2'{'#0#255#2'z'#0#255
+  +#2'z'#0#255#3'z'#0#255#3'y'#0#255#4'y'#0#255#4'x'#0#255#4'w'#0#255#5'w'#0#255
+  +#5'v'#0#255#6'v'#0#255#6'u'#0#255#7't'#0#255#7't'#0#255#8's'#0#255#8's'#0#255
+  +#9'r'#0#255#9'r'#0#255#10'r'#0#255#10'p'#0#255#11'o'#0#255#11'o'#0#255#11'o'
+  +#0#255#13'n'#0#255#13'l'#0#255#13'l'#0#255#14'l'#0#255#14'k'#0#255#15'j'#0
+  +#255#16'i'#0#255#16'h'#0#255#17'h'#0#255#18'g'#0#255#18'f'#0#255#19'e'#0#255
+  +#20'd'#0#255#20'c'#0#255#21'c'#0#255#22'b'#0#255#23'a'#0#255#23'`'#0#255#24
+  +'_'#0#255#25'^'#0#255#25']'#0#255#26'\'#0#255#27'['#0#255#0#30#0#255#2'x'#0
+  +#255#2'z'#0#255#3'z'#0#255#3'y'#0#255#4'y'#0#255#4'x'#0#255#4'x'#0#255#5'w'#0
+  +#255#5'v'#0#255#6'v'#0#255#6'u'#0#255#7'u'#0#255#7't'#0#255#8't'#0#255#8's'#0
+  +#255#8'r'#0#255#9'r'#0#255#10'q'#0#255#10'p'#0#255#11'o'#0#255#11'o'#0#255#12
+  +'o'#0#255#12'm'#0#255#12'm'#0#255#14'm'#0#255#14'l'#0#255#14'k'#0#255#16'j'#0
+  +#255#16'i'#0#255#16'i'#0#255#17'h'#0#255#18'g'#0#255#18'f'#0#255#19'e'#0#255
+  +#20'e'#0#255#20'd'#0#255#21'c'#0#255#22'b'#0#255#22'a'#0#255#23'`'#0#255#24
+  +'_'#0#255#24'^'#0#255#25']'#0#255#26'\'#0#255#27'\'#0#255#27'['#0#255#28'Z'#0
+  +#255#0#30#0#255#3'x'#0#255#3'y'#0#255#3'y'#0#255#4'x'#0#255#4'x'#0#255#5'w'#0
+  +#255#5'w'#0#255#5'v'#0#255#6'v'#0#255#6'u'#0#255#7't'#0#255#7't'#0#255#8's'#0
+  +#255#8's'#0#255#9'r'#0#255#9'q'#0#255#10'p'#0#255#11'p'#0#255#11'p'#0#255#12
+  +'n'#0#255#12'n'#0#255#13'n'#0#255#13'm'#0#255#13'l'#0#255#15'j'#0#255#15'j'#0
+  +#255#15'j'#0#255#17'i'#0#255#17'h'#0#255#17'g'#0#255#18'f'#0#255#19'f'#0#255
+  +#19'e'#0#255#20'd'#0#255#21'c'#0#255#21'b'#0#255#22'a'#0#255#23'a'#0#255#24
+  +'`'#0#255#24'_'#0#255#25'^'#0#255#26']'#0#255#26'\'#0#255#27'['#0#255#28'Z'#0
+  +#255#29'Y'#0#255#30'X'#0#255#0#30#0#255#3'w'#0#255#4'x'#0#255#4'x'#0#255#5'w'
+  +#0#255#5'w'#0#255#5'v'#0#255#6'v'#0#255#6'u'#0#255#7't'#0#255#7't'#0#255#8's'
+  +#0#255#8's'#0#255#9'r'#0#255#9'q'#0#255#10'q'#0#255#10'p'#0#255#11'o'#0#255
+  +#12'n'#0#255#12'n'#0#255#13'n'#0#255#13'l'#0#255#13'k'#0#255#15'k'#0#255#15
+  +'k'#0#255#15'j'#0#255#17'i'#0#255#17'g'#0#255#17'g'#0#255#18'g'#0#255#19'f'#0
+  +#255#19'e'#0#255#20'd'#0#255#20'c'#0#255#21'b'#0#255#22'b'#0#255#23'a'#0#255
+  +#23'`'#0#255#24'_'#0#255#25'^'#0#255#25']'#0#255#26'\'#0#255#27'['#0#255#28
+  +'Z'#0#255#29'Y'#0#255#29'X'#0#255#30'W'#0#255#31'V'#0#255#1#30#0#255#4'v'#0
+  +#255#4'w'#0#255#5'w'#0#255#5'v'#0#255#6'v'#0#255#6'u'#0#255#7'u'#0#255#7't'#0
+  +#255#8's'#0#255#8's'#0#255#9'r'#0#255#9'r'#0#255#10'q'#0#255#10'p'#0#255#11
+  +'o'#0#255#11'o'#0#255#12'n'#0#255#13'm'#0#255#13'l'#0#255#14'l'#0#255#14'l'#0
+  +#255#14'j'#0#255#16'j'#0#255#16'h'#0#255#16'h'#0#255#18'h'#0#255#18'g'#0#255
+  +#18'f'#0#255#19'e'#0#255#20'e'#0#255#20'd'#0#255#21'c'#0#255#22'b'#0#255#22
+  +'a'#0#255#23'`'#0#255#24'_'#0#255#25'^'#0#255#25']'#0#255#26'\'#0#255#27'['#0
+  +#255#28'['#0#255#28'Z'#0#255#29'Y'#0#255#30'X'#0#255#31'W'#0#255' V'#0#255' '
+  +'U'#0#255#1#29#0#255#5'u'#0#255#5'w'#0#255#5'v'#0#255#6'u'#0#255#6'u'#0#255#7
+  +'t'#0#255#7't'#0#255#8's'#0#255#8'r'#0#255#9'r'#0#255#10'q'#0#255#10'p'#0#255
+  +#11'o'#0#255#11'o'#0#255#12'n'#0#255#12'm'#0#255#13'm'#0#255#14'l'#0#255#14
+  ,'k'#0#255#14'j'#0#255#16'k'#0#255#16'j'#0#255#17'i'#0#255#17'h'#0#255#17'f'#0
+  +#255#19'f'#0#255#19'f'#0#255#19'e'#0#255#20'd'#0#255#21'c'#0#255#21'b'#0#255
+  +#22'a'#0#255#23'`'#0#255#24'_'#0#255#24'^'#0#255#25']'#0#255#26'\'#0#255#27
+  +'\'#0#255#27'['#0#255#28'Z'#0#255#29'Y'#0#255#30'X'#0#255#31'W'#0#255#31'V'#0
+  +#255' U'#0#255'!T'#0#255'"S'#0#255#1#29#0#255#5't'#0#255#6'v'#0#255#6'u'#0
+  +#255#7't'#0#255#7't'#0#255#8's'#0#255#8's'#0#255#9'r'#0#255#9'q'#0#255#10'p'
+  +#0#255#11'p'#0#255#11'o'#0#255#12'n'#0#255#12'n'#0#255#13'm'#0#255#13'l'#0
+  +#255#14'k'#0#255#15'k'#0#255#15'k'#0#255#15'i'#0#255#17'h'#0#255#17'h'#0#255
+  +#17'g'#0#255#19'g'#0#255#19'f'#0#255#19'e'#0#255#21'e'#0#255#20'c'#0#255#21
+  +'b'#0#255#22'a'#0#255#23'a'#0#255#24'`'#0#255#24'_'#0#255#25'^'#0#255#26']'#0
+  +#255#26'\'#0#255#27'['#0#255#28'Z'#0#255#29'Y'#0#255#30'X'#0#255#30'W'#0#255
+  +#31'V'#0#255' U'#0#255'!T'#0#255'!S'#0#255'"R'#0#255'#Q'#0#255#1#29#0#255#6
+  +'s'#0#255#7't'#0#255#7't'#0#255#8's'#0#255#8's'#0#255#9'r'#0#255#9'q'#0#255
+  +#10'q'#0#255#10'p'#0#255#11'o'#0#255#12'n'#0#255#12'n'#0#255#13'm'#0#255#13
+  +'l'#0#255#14'l'#0#255#15'k'#0#255#15'j'#0#255#16'i'#0#255#16'i'#0#255#16'h'#0
+  +#255#18'h'#0#255#18'f'#0#255#18'f'#0#255#20'e'#0#255#20'e'#0#255#20'c'#0#255
+  +#21'b'#0#255#23'b'#0#255#23'a'#0#255#23'`'#0#255#24'`'#0#255#25'_'#0#255#25
+  +'^'#0#255#26'\'#0#255#27'['#0#255#28'Z'#0#255#29'Y'#0#255#29'Y'#0#255#30'X'#0
+  +#255#31'W'#0#255' V'#0#255' U'#0#255'!T'#0#255'"S'#0#255'#R'#0#255'$Q'#0#255
+  +'$P'#0#255#1#29#0#255#7'r'#0#255#8's'#0#255#8's'#0#255#9'r'#0#255#9'r'#0#255
+  +#10'q'#0#255#10'p'#0#255#11'p'#0#255#11'o'#0#255#12'n'#0#255#13'm'#0#255#13
+  +'m'#0#255#14'l'#0#255#14'k'#0#255#15'k'#0#255#16'j'#0#255#16'i'#0#255#17'h'#0
+  +#255#17'g'#0#255#17'f'#0#255#18'f'#0#255#19'e'#0#255#19'e'#0#255#20'd'#0#255
+  +#22'c'#0#255#21'b'#0#255#22'a'#0#255#23'a'#0#255#24'`'#0#255#24'_'#0#255#25
+  +']'#0#255#26'\'#0#255#26'['#0#255#27'['#0#255#28'Z'#0#255#29'Y'#0#255#30'X'#0
+  +#255#30'X'#0#255#31'W'#0#255' V'#0#255'!U'#0#255'!T'#0#255'"S'#0#255'#R'#0
+  +#255'$P'#0#255'%N'#0#255'%M'#0#255#2#29#0#255#8'q'#0#255#8'r'#0#255#9'r'#0
+  +#255#10'q'#0#255#10'q'#0#255#11'p'#0#255#11'o'#0#255#12'n'#0#255#12'n'#0#255
+  +#13'm'#0#255#13'l'#0#255#14'l'#0#255#15'k'#0#255#15'j'#0#255#16'i'#0#255#17
+  +'h'#0#255#17'h'#0#255#18'g'#0#255#19'f'#0#255#19'f'#0#255#19'd'#0#255#21'd'#0
+  +#255#21'd'#0#255#20'c'#0#255#22'b'#0#255#24'a'#0#255#23'`'#0#255#24'_'#0#255
+  +#25'^'#0#255#26']'#0#255#26'\'#0#255#27'['#0#255#28'Z'#0#255#29'Z'#0#255#29
+  +'Y'#0#255#30'X'#0#255#31'W'#0#255' V'#0#255' U'#0#255'!T'#0#255'"S'#0#255'#R'
+  +#0#255'$Q'#0#255'$P'#0#255'%N'#0#255'&M'#0#255'''L'#0#255#2#28#0#255#9'p'#0
+  +#255#9'q'#0#255#10'q'#0#255#11'p'#0#255#11'o'#0#255#12'n'#0#255#12'n'#0#255
+  +#13'm'#0#255#13'm'#0#255#14'l'#0#255#14'k'#0#255#15'j'#0#255#16'i'#0#255#16
+  +'i'#0#255#17'h'#0#255#18'g'#0#255#18'f'#0#255#19'e'#0#255#20'e'#0#255#20'd'#0
+  +#255#20'b'#0#255#21'b'#0#255#23'b'#0#255#23'a'#0#255#23'`'#0#255#24'_'#0#255
+  +#26'_'#0#255#25']'#0#255#26'\'#0#255#27'['#0#255#28'['#0#255#28'Z'#0#255#29
+  +'Y'#0#255#30'X'#0#255#31'W'#0#255#31'V'#0#255' U'#0#255'!T'#0#255'"S'#0#255
+  +'#R'#0#255'#Q'#0#255'$P'#0#255'%O'#0#255'&N'#0#255'''M'#0#255'(L'#0#255'(K'#0
+  +#255#2#28#0#255#10'o'#0#255#10'p'#0#255#11'o'#0#255#11'o'#0#255#12'n'#0#255
+  +#13'm'#0#255#13'm'#0#255#14'l'#0#255#14'k'#0#255#15'j'#0#255#16'j'#0#255#16
+  +'i'#0#255#17'h'#0#255#18'g'#0#255#18'f'#0#255#19'f'#0#255#20'e'#0#255#20'd'#0
+  +#255#21'c'#0#255#22'b'#0#255#22'b'#0#255#22'`'#0#255#23'`'#0#255#25'`'#0#255
+  +#25'_'#0#255#24'^'#0#255#26'\'#0#255#28'\'#0#255#27'['#0#255#28'Z'#0#255#29
+  +'Y'#0#255#30'X'#0#255#30'W'#0#255#31'V'#0#255' U'#0#255'!T'#0#255'"S'#0#255
+  +'"S'#0#255'#Q'#0#255'$P'#0#255'%O'#0#255'&N'#0#255'''M'#0#255'''L'#0#255'(K'
+  +#0#255')J'#0#255'*I'#0#255#2#28#0#255#11'n'#0#255#11'o'#0#255#12'n'#0#255#12
+  +'n'#0#255#13'm'#0#255#14'l'#0#255#14'k'#0#255#15'k'#0#255#15'j'#0#255#16'i'#0
+  +#255#17'h'#0#255#17'g'#0#255#18'g'#0#255#19'f'#0#255#19'e'#0#255#20'd'#0#255
+  +#21'c'#0#255#21'b'#0#255#22'a'#0#255#22'a'#0#255#24'`'#0#255#24'_'#0#255#24
+  +'_'#0#255#25']'#0#255#26']'#0#255#26'\'#0#255#26'['#0#255#28'Z'#0#255#29'Z'#0
+  +#255#29'Y'#0#255#30'X'#0#255#31'W'#0#255' V'#0#255'!U'#0#255'!T'#0#255'"S'#0
+  +#255'#R'#0#255'$P'#0#255'%O'#0#255'%N'#0#255'&M'#0#255'''L'#0#255'(K'#0#255
+  +')J'#0#255'*I'#0#255'+H'#0#255',G'#0#255#2#27#0#255#12'l'#0#255#12'o'#0#255
+  +#13'n'#0#255#13'l'#0#255#14'l'#0#255#15'k'#0#255#15'k'#0#255#16'i'#0#255#17
+  +'h'#0#255#17'h'#0#255#18'g'#0#255#19'g'#0#255#19'e'#0#255#20'd'#0#255#21'd'#0
+  +#255#21'c'#0#255#22'b'#0#255#23'b'#0#255#23'a'#0#255#23'_'#0#255#24'^'#0#255
+  +#26']'#0#255#26']'#0#255#25'\'#0#255#27'['#0#255#28'['#0#255#29'Z'#0#255#29
+  +'Y'#0#255#30'X'#0#255#31'W'#0#255' V'#0#255' U'#0#255'!T'#0#255'"S'#0#255'#R'
+  +#0#255'$Q'#0#255'$P'#0#255'%N'#0#255'&M'#0#255'''L'#0#255'(K'#0#255')J'#0#255
+  +'*I'#0#255'+H'#0#255'+G'#0#255',F'#0#255'-E'#0#255#3#27#0#255#13'k'#0#255#13
+  +'m'#0#255#14'l'#0#255#14'l'#0#255#15'j'#0#255#16'i'#0#255#16'i'#0#255#17'h'#0
+  ,#255#18'h'#0#255#18'f'#0#255#19'e'#0#255#20'e'#0#255#20'd'#0#255#21'c'#0#255
+  +#22'b'#0#255#22'a'#0#255#22'`'#0#255#24'`'#0#255#25'_'#0#255#25'^'#0#255#24
+  +']'#0#255#27'\'#0#255#27'\'#0#255#28'['#0#255#28'Z'#0#255#28'Y'#0#255#30'X'#0
+  +#255#31'W'#0#255#31'V'#0#255' U'#0#255' T'#0#255'"S'#0#255'#R'#0#255'#Q'#0
+  +#255'$P'#0#255'%O'#0#255'&N'#0#255'''M'#0#255'(L'#0#255'(K'#0#255')J'#0#255
+  +'*I'#0#255'*G'#0#255'+G'#0#255'-E'#0#255'.D'#0#255'/C'#0#255#3#27#0#255#14'k'
+  +#0#255#13'k'#0#255#15'j'#0#255#16'j'#0#255#15'i'#0#255#17'i'#0#255#18'g'#0
+  +#255#17'f'#0#255#19'f'#0#255#20'f'#0#255#20'e'#0#255#21'c'#0#255#22'b'#0#255
+  +#21'a'#0#255#23'a'#0#255#24'`'#0#255#24'_'#0#255#24'^'#0#255#26']'#0#255#26
+  +'\'#0#255#27'['#0#255#27'['#0#255#28'Z'#0#255#29'Y'#0#255#30'X'#0#255#31'W'#0
+  +#255#31'V'#0#255#31'U'#0#255'!T'#0#255'"S'#0#255'"R'#0#255'#Q'#0#255'#P'#0
+  +#255'%O'#0#255'&N'#0#255'''M'#0#255'''L'#0#255'(K'#0#255')J'#0#255'*I'#0#255
+  +'+H'#0#255',G'#0#255',F'#0#255'-D'#0#255'.C'#0#255'/B'#0#255'0A'#0#255#3#26#0
+  +#255#15'i'#0#255#15'j'#0#255#16'j'#0#255#17'h'#0#255#17'g'#0#255#18'g'#0#255
+  +#19'g'#0#255#19'f'#0#255#20'd'#0#255#21'd'#0#255#20'c'#0#255#21'b'#0#255#23
+  +'a'#0#255#23'`'#0#255#23'_'#0#255#25'^'#0#255#26']'#0#255#26'\'#0#255#26'\'#0
+  +#255#27'Z'#0#255#29'Z'#0#255#29'Y'#0#255#30'Y'#0#255#30'X'#0#255#30'W'#0#255
+  +' V'#0#255'!U'#0#255'"T'#0#255'"S'#0#255'"R'#0#255'$P'#0#255'%O'#0#255'%N'#0
+  +#255'&M'#0#255'&M'#0#255'''L'#0#255')J'#0#255'*I'#0#255'+H'#0#255'+G'#0#255
+  +',F'#0#255'-E'#0#255'/D'#0#255'/C'#0#255'0A'#0#255'1@'#0#255'2?'#0#255#4#26#0
+  +#255#16'g'#0#255#17'h'#0#255#17'h'#0#255#18'h'#0#255#19'g'#0#255#19'e'#0#255
+  +#20'e'#0#255#21'd'#0#255#20'c'#0#255#22'b'#0#255#22'a'#0#255#23'`'#0#255#24
+  +'_'#0#255#25'^'#0#255#25']'#0#255#25'\'#0#255#26'['#0#255#28'['#0#255#28'Z'#0
+  +#255#29'Y'#0#255#29'X'#0#255#30'W'#0#255' W'#0#255' V'#0#255'!U'#0#255'!T'#0
+  +#255'!S'#0#255'#R'#0#255'$Q'#0#255'$P'#0#255'%O'#0#255'%N'#0#255'''M'#0#255
+  +'(L'#0#255'(J'#0#255')I'#0#255'*H'#0#255'+G'#0#255',F'#0#255'-E'#0#255'.D'#0
+  +#255'0E'#0#255'2E'#0#255'-<'#0#255'1?'#0#255'2>'#0#255'3='#0#255#4#26#0#255
+  +#17'g'#0#255#18'h'#0#255#17'f'#0#255#19'h'#0#255#21'n'#0#255#20'g'#0#255#21
+  +'c'#0#255#22'b'#0#255#22'a'#0#255#22'`'#0#255#24'`'#0#255#25'_'#0#255#24'^'#0
+  +#255#25']'#0#255#27'\'#0#255#27'['#0#255#28'Z'#0#255#28'Y'#0#255#30'X'#0#255
+  +#31'W'#0#255#31'V'#0#255' U'#0#255' U'#0#255' T'#0#255'"T'#0#255'#R'#0#255'#'
+  +'P'#0#255'#P'#0#255'$O'#0#255'&N'#0#255'''M'#0#255'''L'#0#255'(K'#0#255')J'#0
+  +#255'*H'#0#255'+G'#0#255',G'#0#255'-E'#0#255'-D'#0#255'/C'#0#255'1D'#0#255','
+  +';'#0#255#22#28#0#255')3'#0#255'4='#0#255'4<'#0#255'5;'#0#255#4#25#0#255#18
+  +'e'#0#255#19'f'#0#255#19'f'#0#255#17'Z'#0#255#10'7'#0#255#18'V'#0#255#22'f'#0
+  +#255#23'c'#0#255#24'`'#0#255#24'_'#0#255#24'^'#0#255#26']'#0#255#26'\'#0#255
+  +#27'['#0#255#27'Z'#0#255#29'Y'#0#255#30'X'#0#255#30'W'#0#255#31'V'#0#255#31
+  +'U'#0#255' T'#0#255'"T'#0#255'"T'#0#255'"S'#0#255'"Q'#0#255'$O'#0#255'%N'#0
+  +#255'%N'#0#255'&M'#0#255'''L'#0#255'(K'#0#255')J'#0#255'*I'#0#255'+H'#0#255
+  +',G'#0#255',F'#0#255'-D'#0#255'.C'#0#255'0B'#0#255'1B'#0#255'''2'#0#255#15#20
+  +#0#244#0#0#0#218')0'#0#255'6<'#0#255'6:'#0#255'79'#0#255#4#25#0#255#18'd'#0
+  +#255#20'e'#0#255#21'e'#0#255#16'N'#0#255#0#3#0#211#6#28#0#235#15'B'#0#255#24
+  +'`'#0#255#25'a'#0#255#26']'#0#255#26'\'#0#255#26'\'#0#255#28'['#0#255#29'Z'#0
+  +#255#29'Y'#0#255#30'X'#0#255#30'W'#0#255' V'#0#255'!U'#0#255'!T'#0#255'!S'#0
+  +#255'"R'#0#255'$R'#0#255'$Q'#0#255'$O'#0#255'&N'#0#255'&N'#0#255'''M'#0#255
+  +'(K'#0#255')J'#0#255'*I'#0#255'+H'#0#255'+G'#0#255',F'#0#255'-E'#0#255'.D'#0
+  +#255'.B'#0#255'0A'#0#255'2A'#0#255'&1'#0#255#11#13#0#232#0#0#0'c'#3#3#0#154
+  +'+/'#0#255'89'#0#255'78'#0#255'87'#0#255#4#25#0#255#20'b'#0#255#20'c'#0#255
+  +#21'c'#0#255#17'N'#0#255#2#6#0#149#0#0#0'W'#3#11#0#174#11'+'#0#255#22'P'#0
+  +#255#28'_'#0#255#28']'#0#255#28'Z'#0#255#29'Y'#0#255#29'X'#0#255#31'W'#0#255
+  +' V'#0#255' U'#0#255' T'#0#255'!S'#0#255'#R'#0#255'#Q'#0#255'#P'#0#255'%P'#0
+  +#255'%O'#0#255'&N'#0#255'''M'#0#255'''L'#0#255'(K'#0#255')H'#0#255'*H'#0#255
+  +'+G'#0#255',F'#0#255'-E'#0#255'.D'#0#255'/C'#0#255'/B'#0#255'1A'#0#255'3A'#0
+  +#255'&0'#0#255#11#14#0#232#0#0#0'V'#0#0#0#0#3#3#0#140'--'#0#255'87'#0#255'96'
+  +#0#255':5'#0#255#5#25#0#255#22'a'#0#255#22'b'#0#255#22'b'#0#255#18'N'#0#255#2
+  +#7#0#146#0#0#0#0#0#0#0#29#0#0#0'y'#8#27#0#224#18'>'#0#255#28'Y'#0#255#31']'#0
+  +#255#31'Y'#0#255#31'V'#0#255#31'V'#0#255' U'#0#255'"S'#0#255'"S'#0#255'#R'#0
+  +#255'#P'#0#255'$O'#0#255'&N'#0#255'&N'#0#255'&M'#0#255'''L'#0#255'(K'#0#255
+  +')J'#0#255'*H'#0#255'*G'#0#255'+F'#0#255',E'#0#255'.D'#0#255'/C'#0#255'/B'#0
+  +#255'0A'#0#255'2@'#0#255'3?'#0#255'''0'#0#255#11#14#0#229#0#0#0'X'#0#0#0#0#0
+  +#0#0#10#3#3#0#144'-,'#0#255':5'#0#255':4'#0#255';3'#0#255#5#24#0#255#22'_'#0
+  +#255#24'`'#0#255#24'`'#0#255#20'M'#0#255#2#7#0#148#0#0#0#14#0#0#0#0#0#0#0#0#0
+  +#0#0'O'#3#9#0#178#14'*'#0#253#25'I'#0#255'!Z'#0#255'!X'#0#255'!T'#0#255'"S'#0
+  +#255'"S'#0#255'#R'#0#255'$P'#0#255'%N'#0#255'%M'#0#255'''L'#0#255'(L'#0#255
+  ,'(K'#0#255')J'#0#255')I'#0#255'+H'#0#255'+G'#0#255',F'#0#255'-E'#0#255'.D'#0
+  +#255'.B'#0#255'/A'#0#255'0@'#0#255'2?'#0#255'4?'#0#255',4'#0#255#12#13#0#235
+  +#0#0#0'Y'#0#0#0#0#0#0#0#0#0#0#0#11#3#3#0#144'.*'#0#255'<3'#0#255'<2'#0#255'='
+  +'1'#0#255#5#24#0#255#23']'#0#255#24'_'#0#255#26'_'#0#255#22'L'#0#255#2#7#0
+  +#148#0#0#0#13#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#27#0#0#0'{'#8#21#0#215#20'4'#0
+  +#255' Q'#0#255'$W'#0#255'$R'#0#255'$Q'#0#255'%O'#0#255'&M'#0#255'&L'#0#255
+  +'''L'#0#255'*M'#0#255',O'#0#255'.O'#0#255'-L'#0#255',I'#0#255',F'#0#255'-E'#0
+  +#255'-D'#0#255'.C'#0#255'/B'#0#255'0@'#0#255'1?'#0#255'2>'#0#255'5>'#0#255'1'
+  +'8'#0#255#19#21#0#243#0#0#0'o'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#3#3#0#144'/'
+  +''''#0#255'>1'#0#255'>0'#0#255'?/'#0#255#6#23#0#255#25'\'#0#255#25']'#0#255
+  +#26']'#0#255#22'K'#0#255#2#7#0#148#0#0#0#13#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0'D'#0#1#0#163#15'$'#0#246#27'@'#0#255'%Q'#0#255'''R'#0#255'''M'#0
+  +#255'''L'#0#255')M'#0#255'*O'#0#255'&B'#0#255#28'/'#0#255#25'+'#0#251#30'1'#0
+  +#255'*@'#0#255'0G'#0#255'/C'#0#255'/B'#0#255'0A'#0#255'1@'#0#255'2>'#0#255'3'
+  +'='#0#255'5='#0#255'4:'#0#255#28#30#0#249#0#0#0#144#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#11#3#3#0#144'1&'#0#255'?/'#0#255'?.'#0#255'@,'#0#255#6#23#0#255
+  +#26'Z'#0#255#27'\'#0#255#27'\'#0#255#23'I'#0#255#2#6#0#148#0#0#0#13#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#4#0#0#0'u'#6#12#0#202#22'.'#0
+  +#255'"E'#0#255')N'#0#255',O'#0#255'(F'#0#255#30'3'#0#255#16#26#0#219#0#0#0
+  +#150#0#0#0'}'#2#3#0#166#19#28#0#239')9'#0#255'4E'#0#255'1@'#0#255'2?'#0#255
+  +'3>'#0#255'4<'#0#255'5<'#0#255'7;'#0#255'''('#0#255#2#3#0#193#0#0#0#22#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#4#3#0#144'3$'#0#255'A-'#0#255'A,'#0#255
+  +'B*'#0#255#6#23#0#255#26'Y'#0#255#29'Z'#0#255#29'Z'#0#255#24'H'#0#255#2#6#0
+  +#148#0#0#0#13#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#150#12#23#0#222#28'2'#0#255#31'5'#0#255#19' '#0#239#2#2#0#176
+  +#0#0#0'H'#0#0#0#0#0#0#0#0#0#0#0#3#0#0#0#132#18#23#0#241'2>'#0#255'4@'#0#255
+  +'3='#0#255'4;'#0#255'6:'#0#255'8:'#0#255'-/'#0#255#13#13#0#226#0#0#0'I'#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#4#2#0#144'3#'#0#255'C+'#0#255'C*'
+  +#0#255'D('#0#255#7#22#0#255#28'W'#0#255#29'X'#0#255#30'X'#0#255#25'F'#0#255#2
+  +#6#0#148#0#0#0#13#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'N'#3#7#0#164#3#5#0#169#0#0#0'o'#0#0#0#11#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#2#3#0#153#28'!'#0#255'7@'#0#255'5;'#0#255'69'
+  +#0#255'9:'#0#255'54'#0#255#21#21#0#247#0#0#0'v'#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#11#4#2#0#144'5!'#0#255'D)'#0#255'E'''#0#255'F&'#0
+  +#255#7#22#0#255#29'U'#0#255#31'V'#0#255' V'#0#255#26'E'#0#255#2#6#0#148#0#0#0
+  +#13#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
+  +#0#0#0#0#0#0#0#0'('#9#10#0#209'.1'#0#255';<'#0#255'98'#0#255':7'#0#255'" '#0
+  +#252#0#0#0#168#0#0#0#4#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
+  +#11#4#2#0#144'6 '#0#255'F&'#0#255'G%'#0#255'H$'#0#255#7#21#0#255#30'T'#0#255
+  +' U'#0#255'!U'#0#255#27'C'#0#255#2#6#0#148#0#0#0#13#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#0#0#0#0#0#0#0#0#0#0#0#0'b'
+  +#19#19#0#243'87'#0#255';7'#0#255'$!'#0#255#4#4#0#192#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#11#4#2#0#144'7'#30#0#255'I$'#0
+  +#255'H#'#0#255'I!'#0#255#8#21#0#255' S'#0#255'"S'#0#255'"S'#0#255#28'B'#0#255
+  +#2#6#0#148#0#0#0#13#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#0#0#0#0#0#0#0#0#0#0#0#0#20#2#1#0#145#25#22#0#240'#'#31#0#245
+  +#5#4#0#196#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#11#4#2#0#144'9'#28#0#255'J"'#0#255'J '#0#255'K'#31#0#255#8#21#0
+  +#255'!R'#0#255'#Q'#0#255'$Q'#0#255#29'@'#0#255#3#6#0#148#0#0#0#13#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#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#17#0#0#0'w'#0#0#0#134#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#11#4#2#0#144'<'#26#0#255
+  +'L'#31#0#255'L'#30#0#255'M'#29#0#255#8#20#0#255'"O'#0#255'$O'#0#255'%O'#0#255
+  +#30'?'#0#255#3#5#0#148#0#0#0#13#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#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#11#4#2#0#144'<'#24#0#255'M'#29#0#255'N'#28#0#255'O'#27#0#255#9
+  +#20#0#255'#M'#0#255'%M'#0#255'&M'#0#255#31'>'#0#255#3#5#0#148#0#0#0#13#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#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#11#4#2#0#144'='#23#0#255
+  +'O'#27#0#255'P'#26#0#255'Q'#24#0#255#9#19#0#255'%L'#0#255'''L'#0#255'(L'#0
+  +#255'!='#0#255#3#5#0#148#0#0#0#13#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#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#11#4#1#0#144'?'#20#0#255'Q'#25#0#255'Q'#23#0#255'R'#23#0#255#9
+  +#19#0#255'&K'#0#255'(J'#0#255')J'#0#255'";'#0#255#3#5#0#148#0#0#0#13#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#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#11#4#1#0#144'@'#19#0#255
+  +'R'#22#0#255'R'#22#0#255'T'#20#0#255#10#18#0#255'(I'#0#255'*H'#0#255'+H'#0
+  +#255'#9'#0#255#3#5#0#147#0#0#0#11#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#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#9#5#1#0#143'B'#18#0#255'T'#21#0#255'T'#19#0#255'V'#18#0#255#10
+  +#18#0#255'*G'#0#255'+G'#0#255',G'#0#255'%7'#0#255#3#5#0#153#0#0#0#25#0#0#0#13
+  +#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0
+  +#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13
+  +#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0
+  +#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13#0#0#0#13
+  +#0#0#0#23#4#1#0#150'C'#16#0#255'V'#19#0#255'V'#17#0#255'W'#16#0#255#11#17#0
+  +#255'+E'#0#255'-E'#0#255'.E'#0#255'''7'#0#255#6#9#0#211#4#4#0#153#4#4#0#147#4
+  +#4#0#148#4#4#0#148#4#4#0#148#4#4#0#148#4#4#0#148#4#4#0#148#4#4#0#148#4#4#0
+  +#148#4#4#0#148#4#4#0#148#4#3#0#148#4#3#0#148#5#3#0#148#5#3#0#148#5#3#0#148#5
+  +#3#0#148#5#3#0#148#5#3#0#148#5#3#0#148#5#3#0#148#5#3#0#148#5#2#0#148#5#2#0
+  +#148#5#2#0#148#5#2#0#148#5#2#0#148#5#2#0#148#6#2#0#148#6#2#0#148#6#2#0#148#6
+  +#2#0#148#6#2#0#148#6#1#0#148#6#1#0#147#6#1#0#153#11#2#0#209'F'#14#0#255'X'#16
+  +#0#255'X'#15#0#255'Y'#14#0#255#11#17#0#255'-C'#0#255'.C'#0#255'/B'#0#255'/>'
+  +#0#255')4'#0#255')3'#0#255')2'#0#255'*1'#0#255'+0'#0#255',.'#0#255'--'#0#255
+  +'.,'#0#255'.+'#0#255'/*'#0#255'0*'#0#255'1)'#0#255'1('#0#255'2'''#0#255'3&'#0
+  +#255'4%'#0#255'4$'#0#255'4#'#0#255'6"'#0#255'7!'#0#255'7 '#0#255'8'#31#0#255
+  +'9'#30#0#255':'#29#0#255';'#28#0#255'<'#27#0#255'<'#26#0#255'='#25#0#255'>'
+  +#24#0#255'?'#23#0#255'@'#22#0#255'A'#20#0#255'A'#19#0#255'B'#18#0#255'C'#17#0
+  +#255'D'#16#0#255'E'#15#0#255'E'#14#0#255'G'#13#0#255'T'#14#0#255'Y'#14#0#255
+  +'Z'#13#0#255'['#11#0#255#11#16#0#255'.A'#0#255'0A'#0#255'1@'#0#255'2?'#0#255
+  +'4>'#0#255'5<'#0#255'6;'#0#255'7:'#0#255'89'#0#255'88'#0#255'97'#0#255':5'#0
+  +#255';4'#0#255'<3'#0#255'=2'#0#255'>0'#0#255'?/'#0#255'@.'#0#255'A.'#0#255'B'
+  +','#0#255'C*'#0#255'D)'#0#255'E)'#0#255'E'''#0#255'G%'#0#255'I%'#0#255'I#'#0
+  +#255'J!'#0#255'K!'#0#255'L'#31#0#255'M'#30#0#255'N'#29#0#255'O'#27#0#255'P'
+  +#26#0#255'Q'#25#0#255'R'#23#0#255'S'#22#0#255'T'#21#0#255'U'#20#0#255'V'#19#0
+  +#255'X'#17#0#255'X'#16#0#255'Z'#14#0#255'Z'#13#0#255'['#12#0#255'\'#10#0#255
+  +']'#9#0#255#12#16#0#255'0?'#0#255'2?'#0#255'3>'#0#255'4='#0#255'5;'#0#255'6:'
+  +#0#255'69'#0#255'78'#0#255'87'#0#255'95'#0#255':4'#0#255';3'#0#255'<2'#0#255
+  +'=1'#0#255'>0'#0#255'?/'#0#255'@-'#0#255'A,'#0#255'B,'#0#255'C*'#0#255'D('#0
+  +#255'E('#0#255'F&'#0#255'G$'#0#255'G$'#0#255'H"'#0#255'I '#0#255'J '#0#255'K'
+  +#30#0#255'L'#28#0#255'N'#28#0#255'O'#26#0#255'P'#25#0#255'Q'#24#0#255'R'#23#0
+  +#255'S'#21#0#255'T'#20#0#255'U'#19#0#255'V'#18#0#255'W'#16#0#255'X'#15#0#255
+  +'Z'#13#0#255'['#12#0#255'\'#11#0#255']'#9#0#255'^'#8#0#255'_'#6#0#255#12#15#0
+  +#255'0<'#0#255'2<'#0#255'3;'#0#255'4:'#0#255'58'#0#255'67'#0#255'76'#0#255'8'
+  +'5'#0#255'94'#0#255':3'#0#255';2'#0#255'<0'#0#255'=/'#0#255'>.'#0#255'?-'#0
+  +#255'@+'#0#255'A*'#0#255'B*'#0#255'C('#0#255'D&'#0#255'E&'#0#255'F$'#0#255'G'
+  +'"'#0#255'H"'#0#255'H '#0#255'I'#30#0#255'J'#30#0#255'K'#28#0#255'L'#26#0#255
+  +'N'#26#0#255'O'#24#0#255'P'#23#0#255'Q'#23#0#255'R'#22#0#255'S'#20#0#255'T'
+  +#19#0#255'T'#18#0#255'U'#16#0#255'V'#15#0#255'W'#14#0#255'X'#12#0#255'Y'#11#0
+  +#255'Z'#9#0#255'\'#8#0#255']'#7#0#255'^'#5#0#255'_'#4#0#255#3#3#0#255#13#15#0
+  +#255#13#15#0#255#13#14#0#255#13#14#0#255#13#14#0#255#14#13#0#255#14#13#0#255
+  +#14#13#0#255#14#13#0#255#15#12#0#255#15#12#0#255#15#12#0#255#15#11#0#255#16
+  +#11#0#255#16#11#0#255#16#10#0#255#16#10#0#255#17#10#0#255#17#9#0#255#17#9#0
+  +#255#17#9#0#255#18#8#0#255#18#8#0#255#18#8#0#255#18#8#0#255#18#7#0#255#19#7#0
+  ,#255#19#7#0#255#19#6#0#255#20#6#0#255#20#6#0#255#20#5#0#255#20#5#0#255#21#5#0
+  +#255#21#4#0#255#21#4#0#255#21#4#0#255#22#3#0#255#22#3#0#255#22#3#0#255#23#2#0
+  +#255#23#2#0#255#23#2#0#255#23#1#0#255#24#1#0#255#24#1#0#255#24#0#0#255#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#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#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#2#0#0#0#0'@'#0#0#1#128#0#0#0#192#0#0#1#192#0#0#1#192#0#0#1
+  +#240#0#0#3#192#0#0#1#248#0#0#3#192#0#0#1#254#1#128#7#192#0#0#1#255#131#192#15
+  +#192#0#0#1#255#255#224#15#192#0#0#1#255#255#240#31#192#0#0#1#255#255#240'?'
+  +#192#0#0#1#255#255#248''#192#0#0#1#255#255#255#255#192#0#0#1#255#255#255#255
+  +#192#0#0#1#255#255#255#255#192#0#0#1#255#255#255#255#192#0#0#1#255#255#255
+  +#255#192#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#1
+  +#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'F'#0#255#0']'#0#255
+  +#0']'#0#255#0']'#0#255#1'\'#0#255#1'\'#0#255#2'['#0#255#2'['#0#255#2'['#0#255
+  +#3'Z'#0#255#3'Y'#0#255#4'Y'#0#255#4'X'#0#255#5'W'#0#255#5'W'#0#255#6'V'#0#255
+  +#7'U'#0#255#7'U'#0#255#8'T'#0#255#8'S'#0#255#9'R'#0#255#10'Q'#0#255#10'P'#0
+  +#255#11'O'#0#255#12'O'#0#255#13'N'#0#255#13'M'#0#255#14'L'#0#255#15'K'#0#255
+  +#16'J'#0#255#16'I'#0#255#13'6'#0#255#0']'#0#255#1'|'#0#255#1'|'#0#255#1'{'#0
+  +#255#2'z'#0#255#2'z'#0#255#3'y'#0#255#4'y'#0#255#4'x'#0#255#5'w'#0#255#6'v'#0
+  +#255#6'u'#0#255#7't'#0#255#8's'#0#255#9'r'#0#255#9'q'#0#255#10'p'#0#255#11'o'
+  +#0#255#12'n'#0#255#13'm'#0#255#14'l'#0#255#14'k'#0#255#15'j'#0#255#16'h'#0
+  +#255#17'g'#0#255#18'f'#0#255#19'e'#0#255#20'c'#0#255#21'b'#0#255#23'a'#0#255
+  +#24'`'#0#255#18'G'#0#255#1']'#0#255#1'{'#0#255#2'{'#0#255#2'z'#0#255#3'y'#0
+  +#255#4'y'#0#255#4'x'#0#255#5'w'#0#255#5'v'#0#255#6'u'#0#255#7't'#0#255#8't'#0
+  +#255#8's'#0#255#9'r'#0#255#10'q'#0#255#11'o'#0#255#12'n'#0#255#12'm'#0#255#13
+  +'l'#0#255#14'k'#0#255#15'j'#0#255#16'i'#0#255#17'h'#0#255#18'f'#0#255#19'e'#0
+  +#255#20'd'#0#255#21'b'#0#255#22'a'#0#255#23'`'#0#255#24'^'#0#255#25']'#0#255
+  +#20'E'#0#255#1'\'#0#255#2'z'#0#255#3'z'#0#255#3'y'#0#255#4'x'#0#255#5'w'#0
+  +#255#5'v'#0#255#6'v'#0#255#7'u'#0#255#7't'#0#255#8's'#0#255#9'r'#0#255#10'q'
+  +#0#255#11'p'#0#255#11'o'#0#255#12'n'#0#255#13'm'#0#255#14'k'#0#255#15'j'#0
+  +#255#16'i'#0#255#17'h'#0#255#18'g'#0#255#19'e'#0#255#20'd'#0#255#21'c'#0#255
+  +#22'b'#0#255#23'`'#0#255#24'_'#0#255#25']'#0#255#26'\'#0#255#27'['#0#255#21
+  +'C'#0#255#2'['#0#255#3'y'#0#255#4'x'#0#255#4'w'#0#255#5'w'#0#255#6'v'#0#255#6
+  +'u'#0#255#7't'#0#255#8's'#0#255#9'r'#0#255#9'q'#0#255#10'p'#0#255#11'o'#0#255
+  +#12'n'#0#255#13'm'#0#255#14'l'#0#255#15'k'#0#255#16'i'#0#255#17'h'#0#255#18
+  +'g'#0#255#19'f'#0#255#20'e'#0#255#21'c'#0#255#22'b'#0#255#23'a'#0#255#24'_'#0
+  +#255#25'^'#0#255#26'\'#0#255#27'['#0#255#28'Z'#0#255#29'X'#0#255#23'A'#0#255
+  +#3'Z'#0#255#4'x'#0#255#5'w'#0#255#6'v'#0#255#6'u'#0#255#7't'#0#255#8's'#0#255
+  +#8'r'#0#255#9'r'#0#255#10'p'#0#255#11'o'#0#255#12'n'#0#255#13'm'#0#255#13'l'
+  +#0#255#14'k'#0#255#15'j'#0#255#16'h'#0#255#17'g'#0#255#18'f'#0#255#19'e'#0
+  +#255#20'd'#0#255#21'b'#0#255#22'a'#0#255#24'`'#0#255#25'^'#0#255#26']'#0#255
+  +#27'['#0#255#28'Z'#0#255#29'Y'#0#255#30'W'#0#255#31'V'#0#255#24'?'#0#255#3'Y'
+  +#0#255#5'v'#0#255#6'u'#0#255#7't'#0#255#8't'#0#255#8's'#0#255#9'r'#0#255#10
+  +'q'#0#255#11'o'#0#255#12'n'#0#255#12'n'#0#255#13'l'#0#255#14'k'#0#255#15'j'#0
+  +#255#16'i'#0#255#17'h'#0#255#18'f'#0#255#19'e'#0#255#20'd'#0#255#21'b'#0#255
+  +#22'a'#0#255#23'`'#0#255#24'_'#0#255#25']'#0#255#26'\'#0#255#28'['#0#255#29
+  +'Y'#0#255#30'X'#0#255#31'V'#0#255' U'#0#255'"S'#0#255#26'='#0#255#4'X'#0#255
+  +#7'u'#0#255#7't'#0#255#8's'#0#255#9'r'#0#255#10'q'#0#255#11'p'#0#255#11'o'#0
+  +#255#12'n'#0#255#13'm'#0#255#14'k'#0#255#15'j'#0#255#16'i'#0#255#17'h'#0#255
+  +#18'g'#0#255#19'f'#0#255#20'd'#0#255#21'c'#0#255#22'b'#0#255#23'`'#0#255#24
+  +'_'#0#255#25']'#0#255#26'\'#0#255#27'['#0#255#28'Z'#0#255#30'X'#0#255#31'W'#0
+  +#255' U'#0#255'!T'#0#255'"R'#0#255'$P'#0#255#27';'#0#255#5'W'#0#255#8's'#0
+  +#255#9'r'#0#255#9'q'#0#255#10'p'#0#255#11'o'#0#255#12'n'#0#255#13'm'#0#255#14
+  +'l'#0#255#15'k'#0#255#16'i'#0#255#17'h'#0#255#18'g'#0#255#19'f'#0#255#20'e'#0
+  +#255#21'c'#0#255#21'b'#0#255#23'a'#0#255#24'_'#0#255#25'^'#0#255#26'\'#0#255
+  +#27'['#0#255#28'Z'#0#255#29'X'#0#255#30'W'#0#255' V'#0#255'!T'#0#255'"S'#0
+  +#255'#Q'#0#255'$O'#0#255'&N'#0#255#29'9'#0#255#6'V'#0#255#9'r'#0#255#10'p'#0
+  +#255#11'o'#0#255#12'n'#0#255#13'm'#0#255#13'l'#0#255#14'k'#0#255#15'j'#0#255
+  +#16'i'#0#255#17'g'#0#255#18'f'#0#255#19'e'#0#255#20'd'#0#255#21'b'#0#255#22
+  +'a'#0#255#24'`'#0#255#25'^'#0#255#25']'#0#255#27'\'#0#255#28'Z'#0#255#29'Y'#0
+  +#255#30'W'#0#255#31'V'#0#255'!T'#0#255'"S'#0#255'#R'#0#255'$P'#0#255'%N'#0
+  ,#255'''M'#0#255'(K'#0#255#31'7'#0#255#7'T'#0#255#11'p'#0#255#11'o'#0#255#12
+  +'n'#0#255#13'l'#0#255#14'k'#0#255#15'j'#0#255#16'i'#0#255#17'h'#0#255#18'g'#0
+  +#255#19'e'#0#255#20'd'#0#255#21'c'#0#255#22'a'#0#255#23'`'#0#255#24'_'#0#255
+  +#25']'#0#255#26'\'#0#255#28'['#0#255#29'Y'#0#255#30'X'#0#255#31'V'#0#255' U'
+  +#0#255'!S'#0#255'#R'#0#255'$P'#0#255'%N'#0#255'&M'#0#255'(L'#0#255')J'#0#255
+  +'*H'#0#255' 5'#0#255#8'S'#0#255#12'n'#0#255#13'm'#0#255#14'l'#0#255#15'j'#0
+  +#255#16'i'#0#255#17'h'#0#255#18'g'#0#255#19'f'#0#255#20'd'#0#255#21'c'#0#255
+  +#22'b'#0#255#23'a'#0#255#24'_'#0#255#25'^'#0#255#26'\'#0#255#27'['#0#255#28
+  +'Z'#0#255#30'X'#0#255#31'W'#0#255' U'#0#255'!T'#0#255'"R'#0#255'#Q'#0#255'%O'
+  +#0#255'&M'#0#255'''L'#0#255')J'#0#255'*I'#0#255'+G'#0#255',F'#0#255'"3'#0#255
+  +#10'R'#0#255#14'l'#0#255#15'k'#0#255#16'j'#0#255#17'h'#0#255#17'g'#0#255#18
+  +'f'#0#255#19'e'#0#255#20'c'#0#255#21'b'#0#255#23'a'#0#255#24'_'#0#255#25'^'#0
+  +#255#26']'#0#255#27'['#0#255#28'Z'#0#255#29'Y'#0#255#30'W'#0#255' V'#0#255'!'
+  +'T'#0#255'"S'#0#255'#Q'#0#255'$O'#0#255'&N'#0#255'''L'#0#255'(K'#0#255'*I'#0
+  +#255'+G'#0#255',F'#0#255'.D'#0#255'/B'#0#255'$1'#0#255#11'P'#0#255#15'j'#0
+  +#255#16'i'#0#255#17'g'#0#255#18'f'#0#255#19'e'#0#255#20'd'#0#255#21'b'#0#255
+  +#22'a'#0#255#23'`'#0#255#24'^'#0#255#25']'#0#255#27'\'#0#255#28'Z'#0#255#29
+  +'Y'#0#255#30'X'#0#255#31'V'#0#255' U'#0#255'"S'#0#255'#R'#0#255'$P'#0#255'%N'
+  +#0#255'''M'#0#255'(K'#0#255')J'#0#255'+H'#0#255',F'#0#255'-E'#0#255'.C'#0#255
+  +'0A'#0#255'1?'#0#255'&/'#0#255#12'N'#0#255#17'h'#0#255#18'g'#0#255#19'e'#0
+  +#255#20'd'#0#255#21'c'#0#255#22'a'#0#255#23'`'#0#255#24'_'#0#255#25']'#0#255
+  +#26'\'#0#255#27'['#0#255#29'Y'#0#255#30'X'#0#255#31'V'#0#255' U'#0#255'!S'#0
+  +#255'"R'#0#255'$P'#0#255'%O'#0#255'&M'#0#255'''L'#0#255')J'#0#255'*H'#0#255
+  +'+G'#0#255'-E'#0#255'.C'#0#255'/B'#0#255'*8'#0#255'2>'#0#255'4='#0#255'(,'#0
+  +#255#13'M'#0#255#19'f'#0#255#20'e'#0#255#14'D'#0#255#20'\'#0#255#23'a'#0#255
+  +#24'_'#0#255#25'^'#0#255#26'\'#0#255#27'['#0#255#28'Z'#0#255#29'X'#0#255#31
+  +'W'#0#255' U'#0#255'!T'#0#255'"R'#0#255'#Q'#0#255'%O'#0#255'&M'#0#255'''L'#0
+  +#255'(K'#0#255'*I'#0#255'+G'#0#255',F'#0#255'.D'#0#255'/B'#0#255'0@'#0#255'!'
+  +'*'#0#239#19#22#0#175'5;'#0#255'6:'#0#255')*'#0#255#15'K'#0#255#20'c'#0#255
+  +#21'b'#0#255#11'1'#0''#6#24#0''#18'G'#0#255#26']'#0#255#27'['#0#255#28'Z'#0
+  +#255#29'Y'#0#255#30'W'#0#255' V'#0#255'!T'#0#255'"S'#0#255'#Q'#0#255'$O'#0
+  +#255'&N'#0#255'''L'#0#255'(K'#0#255'*I'#0#255'+G'#0#255',F'#0#255'-D'#0#255
+  +'/C'#0#255'0A'#0#255'1?'#0#255#23#29#0#207#0#0#0#31#27#28#0'78'#0#255'87'#0
+  +#255'+('#0#255#16'J'#0#255#22'a'#0#255#23'`'#0#255#12'/'#0''#0#0#0#0#0#0#0
+  +'/'#15'1'#0#207#27'S'#0#255#30'X'#0#255#31'V'#0#255' U'#0#255'"S'#0#255'#R'#0
+  +#255'$P'#0#255'%N'#0#255'&M'#0#255'(K'#0#255')J'#0#255'*H'#0#255',F'#0#255'-'
+  +'E'#0#255'.C'#0#255'0A'#0#255'1@'#0#255'2>'#0#255#27'!'#0#207#0#0#0#15#0#0#0
+  +#0#28#27#0'95'#0#255';3'#0#255'-%'#0#255#17'H'#0#255#24'_'#0#255#25']'#0#255
+  +#13'.'#0''#0#0#0#0#0#0#0#0#0#0#0#0#7#21#0''#24'@'#0#255'!T'#0#255'"R'#0#255
+  +'$P'#0#255'%O'#0#255'&M'#0#255'''L'#0#255')J'#0#255'*H'#0#255'+G'#0#255'-E'#0
+  +#255'.C'#0#255'/B'#0#255'1@'#0#255'2>'#0#255'4='#0#255'#('#0#239#0#0#0'/'#0#0
+  +#0#0#0#0#0#0#29#25#0'<2'#0#255'=0'#0#255'/#'#0#255#19'F'#0#255#26'\'#0#255
+  +#27'['#0#255#14'-'#0''#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'/'#19','#0#207
+  +'"J'#0#255'&N'#0#255'''L'#0#255'(K'#0#255'$@'#0#255#24')'#0#223#28'-'#0#223
+  +'+@'#0#255'/B'#0#255'0A'#0#255'2?'#0#255'3='#0#255'5;'#0#255',/'#0#255#11#11
+  +#0'O'#0#0#0#0#0#0#0#0#0#0#0#0#31#24#0'>/'#0#255'@-'#0#255'1 '#0#255#20'D'#0
+  +#255#28'Z'#0#255#29'Y'#0#255#15','#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#5#11#0'o'#26'2'#0#239')I'#0#255#25'+'#0#239#7#12#0'_'#0#0#0#0#0#0
+  +#0#0#14#19#0#159'.;'#0#255'3>'#0#255'4<'#0#255'6:'#0#255'78'#0#255#18#18#0
+  +#143#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0' '#22#0'A,'#0#255'B*'#0#255'3'#30#0#255
+  +#22'C'#0#255#30'X'#0#255#31'V'#0#255#16'+'#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#15#0#0#0'?'#0#0#0#15#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#26#30#0#223'5;'#0#255'79'#0#255'87'#0#255#30#29#0#207#0#0#0#15#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0'!'#21#0'D('#0#255'E&'#0#255'5'#28#0#255#23'A'#0
+  +#255' U'#0#255'!T'#0#255#17')'#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#255'96'#0#255'&#'#0#239#0#0#0'/'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0'"'#19#0'G%'#0#255'H#'#0#255'7'#25#0#255#25'?'#0#255'"S'#0#255'#Q'#0#255
+  +#18'('#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#9#8#0'_"'#30#0#191#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'$'#17#0'I"'#0#255'K '
+  +#0#255'9'#22#0#255#26'='#0#255'$P'#0#255'%N'#0#255#19'&'#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#0#0#0#0#0#0#0#0#0#0
+  ,#0#0#0#0#0#0#0#0#0#0#0#0'%'#16#0'L'#30#0#255'M'#28#0#255';'#20#0#255#28';'#0
+  +#255'&M'#0#255'''L'#0#255#20'%'#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +''''#14#0'O'#27#0#255'P'#25#0#255'='#17#0#255#29'9'#0#255')J'#0#255'*I'#0
+  +#255#21'$'#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'('#12#0'Q'#23#0#255
+  +'S'#21#0#255'?'#15#0#255#31'7'#0#255'+G'#0#255',F'#0#255#22'"'#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#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0')'#10#0'T'#20#0#255'V'#18#0#255'A'#12#0#255
+  +'!5'#0#255'-E'#0#255'.C'#0#255#28'&'#0#191#25#31#0''#26#30#0''#26#29#0''
+  +#27#28#0''#27#28#0''#28#27#0''#29#26#0''#30#25#0''#30#24#0''#31#23#0''
+  +' '#22#0'!'#21#0'!'#20#0'"'#19#0'#'#18#0'$'#17#0'%'#16#0'%'#15#0'&'
+  +#14#0''''#13#0'('#12#0')'#11#0')'#10#0'*'#9#0'2'#10#0#191'W'#16#0#255
+  +'Y'#14#0#255'D'#9#0#255'#2'#0#255'/B'#0#255'1@'#0#255'2>'#0#255'4='#0#255'5;'
+  +#0#255'69'#0#255'87'#0#255'96'#0#255':4'#0#255'<2'#0#255'=0'#0#255'?.'#0#255
+  +'@,'#0#255'B+'#0#255'C)'#0#255'E'''#0#255'G%'#0#255'H#'#0#255'J!'#0#255'K'#31
+  +#0#255'M'#29#0#255'N'#27#0#255'P'#25#0#255'R'#23#0#255'S'#21#0#255'U'#19#0
+  +#255'W'#17#0#255'X'#15#0#255'Z'#13#0#255'['#11#0#255'F'#7#0#255'$0'#0#255'2?'
+  +#0#255'3='#0#255'5;'#0#255'6:'#0#255'78'#0#255'96'#0#255':4'#0#255'<2'#0#255
+  +'=1'#0#255'?/'#0#255'@-'#0#255'A+'#0#255'C)'#0#255'E'''#0#255'F%'#0#255'H#'#0
+  +#255'I!'#0#255'K'#31#0#255'L'#29#0#255'N'#28#0#255'P'#26#0#255'Q'#24#0#255'S'
+  +#22#0#255'T'#20#0#255'V'#18#0#255'X'#15#0#255'Z'#13#0#255'['#11#0#255']'#9#0
+  +#255'^'#7#0#255'H'#4#0#255#28'#'#0#255'''-'#0#255'(,'#0#255')*'#0#255'*)'#0
+  +#255'+('#0#255',&'#0#255'-%'#0#255'.$'#0#255'/"'#0#255'0!'#0#255'2 '#0#255'3'
+  +#30#0#255'4'#29#0#255'5'#27#0#255'6'#26#0#255'7'#24#0#255'9'#23#0#255':'#21#0
+  +#255';'#20#0#255'<'#18#0#255'='#17#0#255'>'#15#0#255'@'#14#0#255'A'#12#0#255
+  +'B'#11#0#255'D'#9#0#255'E'#8#0#255'F'#6#0#255'G'#5#0#255'I'#3#0#255'7'#1#0
+  +#255#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#8#0#0#16#14
+  +#0#0'0'#15#0#0'p'#15#193#128#240#15#227#192#240#15#255#193#240#15#255#227#240
+  +#15#255#255#240#15#255#255#240#15#255#255#240#15#255#255#240#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0'('#0#0#0#16#0#0#0' '#0#0#0#1#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#255#1'|'#0#255#2'z'#0#255#3'y'#0#255#4'x'#0
+  +#255#6'v'#0#255#7't'#0#255#8'r'#0#255#10'p'#0#255#12'n'#0#255#13'l'#0#255#15
+  +'j'#0#255#17'g'#0#255#19'e'#0#255#21'b'#0#255#23'`'#0#255#2'{'#0#255#3'z'#0
+  +#255#4'x'#0#255#5'v'#0#255#7'u'#0#255#8's'#0#255#10'q'#0#255#11'o'#0#255#13
+  +'m'#0#255#15'j'#0#255#17'h'#0#255#19'f'#0#255#21'c'#0#255#23'a'#0#255#25'^'#0
+  +#255#27'['#0#255#4'x'#0#255#5'w'#0#255#6'u'#0#255#8's'#0#255#9'r'#0#255#11'o'
+  +#0#255#13'm'#0#255#14'k'#0#255#16'i'#0#255#18'f'#0#255#20'd'#0#255#22'a'#0
+  +#255#24'^'#0#255#27'\'#0#255#29'Y'#0#255#31'V'#0#255#6'v'#0#255#7't'#0#255#9
+  +'r'#0#255#10'p'#0#255#12'n'#0#255#14'l'#0#255#16'i'#0#255#18'g'#0#255#20'e'#0
+  +#255#22'b'#0#255#24'_'#0#255#26']'#0#255#28'Z'#0#255#31'W'#0#255'!T'#0#255'#'
+  +'Q'#0#255#8's'#0#255#10'p'#0#255#12'n'#0#255#13'l'#0#255#15'j'#0#255#17'h'#0
+  +#255#19'e'#0#255#21'c'#0#255#23'`'#0#255#25']'#0#255#28'['#0#255#30'X'#0#255
+  +' U'#0#255'#R'#0#255'%O'#0#255'(L'#0#255#11'o'#0#255#13'm'#0#255#15'j'#0#255
+  +#17'h'#0#255#19'f'#0#255#21'c'#0#255#23'a'#0#255#25'^'#0#255#27'['#0#255#29
+  +'Y'#0#255' V'#0#255'"S'#0#255'$O'#0#255'''L'#0#255'*I'#0#255',F'#0#255#14'k'
+  +#0#255#16'i'#0#255#18'f'#0#255#20'd'#0#255#22'a'#0#255#24'_'#0#255#26'\'#0
+  +#255#29'Y'#0#255#31'V'#0#255'!S'#0#255'$P'#0#255'&M'#0#255')J'#0#255'+G'#0
+  +#255'.C'#0#255'1@'#0#255#18'g'#0#255#20'e'#0#255#21'b'#0#255#24'_'#0#255#26
+  +']'#0#255#28'Z'#0#255#30'W'#0#255'!T'#0#255'#Q'#0#255'&N'#0#255'(K'#0#255'+H'
+  +#0#255'-D'#0#255'0A'#0#255'3>'#0#239'6:'#0#255#21'c'#0#255#23'`'#0#207#25'^'
+  +#0#143#27'['#0#255#30'X'#0#255' U'#0#255'"R'#0#255'%O'#0#255'''L'#0#255'*I'#0
+  +#255'-E'#0#255'/B'#0#255'2?'#0#255'3='#0'_87'#0#191':4'#0#255#25'^'#0#255#27
+  +'\'#0#191#0#0#0#0#31'W'#0'?"S'#0#223'$P'#0#255'''M'#0#255')I'#0#255',F'#0#255
+  +'.C'#0#255'1?'#0#255'4<'#0#255'6:'#0''#0#0#0#0'=1'#0#191'?.'#0#255#29'Y'#0
+  +#255#31'W'#0#191#0#0#0#0#0#0#0#0#0#0#0#0'(K'#0'*H'#0#175'+G'#0#31'0A'#0'?3='
+  +#0#255'6:'#0#255'87'#0#191#0#0#0#0#0#0#0#0'B+'#0#191'E'''#0#255'!T'#0#255'#R'
+  +#0#191#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'87'#0#143';4'
+  +#0#239';3'#0#31#0#0#0#0#0#0#0#0'G$'#0#191'J!'#0#255'%O'#0#255'''L'#0#191#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'L'#30#0#191'O'#26#0#255')J'#0#255'+G'#0#191#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'R'#23#0#191'U'#19#0#255'.D'#0#255'0A'#0#239'4='#0#191'69'#0#191'96'#0
+  +#191'<2'#0#191'?.'#0#191'B+'#0#191'E'''#0#191'H#'#0#191'K'#31#0#191'N'#27#0
+  +#191'R'#23#0#191'U'#19#0#191'W'#16#0#239'Z'#12#0#255'2>'#0#255'5;'#0#255'87'
+  +#0#255';4'#0#255'=0'#0#255'@,'#0#255'C)'#0#255'G%'#0#255'J!'#0#255'M'#29#0
+  +#255'P'#25#0#255'S'#21#0#255'V'#17#0#255'Z'#13#0#255']'#9#0#255'`'#5#0#255#0
+  +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
+  +#255#0#0#0#255' '#4#0#255'8'#12#0#255'?'#140#0#255'?'#252#0#255'?'#252#0#255
+  +#0#0#0#255#0#0#0#255
+]);
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/EverwoodIDEResources.res b/internal/6.0.43.801/1/Everwood/Source/Delphi/EverwoodIDEResources.res
new file mode 100644
index 0000000..12dee92
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Source/Delphi/EverwoodIDEResources.res differ
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.bdsproj b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.bdsproj
new file mode 100644
index 0000000..786d0f4
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.bdsproj
@@ -0,0 +1,180 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{C239782A-EA39-4CF9-91C2-955D92AF0504}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_Everwood_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">1</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects Everwood for Delphi</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\;..\..\Dcu\D10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String">xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE</Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">1</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">1</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">56</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion" Type="String">1.0.1.56</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion" Type="String">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName" Type="String"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+	<ModelSupport>True</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.cfg b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.cfg
new file mode 100644
index 0000000..9692106
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.cfg
@@ -0,0 +1,45 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Bin"
+-LN"..\..\Bin"
+-U"..\;..\..\Dcu\D10"
+-O"..\;..\..\Dcu\D10"
+-I"..\;..\..\Dcu\D10"
+-R"..\;..\..\Dcu\D10"
+-DxDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+-Z
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.dpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.dpk
new file mode 100644
index 0000000..9465b2d
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.dpk
@@ -0,0 +1,53 @@
+package RemObjects_Everwood_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Everwood for Delphi'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+
+requires
+  rtl,
+  vcl,
+  vclie,
+  designide,
+  vclx;
+
+contains
+  uEWOTAWizards in 'uEWOTAWizards.pas',
+  uEWOTAHelpers in 'uEWOTAHelpers.pas',
+  uEWSampleInfo in 'uEWSampleInfo.pas' {SampleInfoForm},
+  uEWOTANewModuleExpert in 'uEWOTANewModuleExpert.pas',
+  RemObjects_Everwood_Reg in 'RemObjects_Everwood_Reg.pas',
+  uEWOTANewProjectExpert in 'uEWOTANewProjectExpert.pas',
+  uEWOTARepositoryExpert in 'uEWOTARepositoryExpert.pas',
+  uEWMenuManager in 'uEWMenuManager.pas',
+  uEWAbout in 'uEWAbout.pas',
+  uEWWizard in 'uEWWizard.pas' {EWWizardForm},
+  uEWTools in 'uEWTools.pas',
+  uEWOTAMessages in 'uEWOTAMessages.pas',
+  uEWStringTools in 'uEWStringTools.pas',
+  uEWHelpers in 'uEWHelpers.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.res b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.res
new file mode 100644
index 0000000..b76fd15
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D10.res differ
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.dpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.dpk
new file mode 100644
index 0000000..0ac7aae
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.dpk
@@ -0,0 +1,53 @@
+package RemObjects_Everwood_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Everwood for Delphi'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+
+requires
+  rtl,
+  vcl,
+  vclie,
+  designide,
+  vclx;
+
+contains
+  uEWOTAWizards in 'uEWOTAWizards.pas',
+  uEWOTAHelpers in 'uEWOTAHelpers.pas',
+  uEWSampleInfo in 'uEWSampleInfo.pas' {SampleInfoForm},
+  uEWOTANewModuleExpert in 'uEWOTANewModuleExpert.pas',
+  RemObjects_Everwood_Reg in 'RemObjects_Everwood_Reg.pas',
+  uEWOTANewProjectExpert in 'uEWOTANewProjectExpert.pas',
+  uEWOTARepositoryExpert in 'uEWOTARepositoryExpert.pas',
+  uEWMenuManager in 'uEWMenuManager.pas',
+  uEWAbout in 'uEWAbout.pas',
+  uEWWizard in 'uEWWizard.pas' {EWWizardForm},
+  uEWTools in 'uEWTools.pas',
+  uEWOTAMessages in 'uEWOTAMessages.pas',
+  uEWStringTools in 'uEWStringTools.pas',
+  uEWHelpers in 'uEWHelpers.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.dproj b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.dproj
new file mode 100644
index 0000000..29a0ca5
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.dproj
@@ -0,0 +1,93 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{b7956419-311f-4137-a85b-371bb0f78d5d}</ProjectGuid>
+    <MainSource>RemObjects_Everwood_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_Everwood_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Bin</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Bin</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE;RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Bin</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Bin</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Compiler><Compiler Name="UsePackages">False</Compiler><Compiler Name="Packages"></Compiler></Compiler><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Everwood for Delphi</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">53</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.1.53</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemObjects_Everwood_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_Everwood_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\designide.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\rtl.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\vcl.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\vclie.dcp" />
+    <DCCReference Include="..\..\..\..\Stardock\Object Desktop\DeskScapes\vclx.dcp" />
+    <DCCReference Include="RemObjects_Everwood_Reg.pas" />
+    <DCCReference Include="uEWAbout.pas" />
+    <DCCReference Include="uEWHelpers.pas" />
+    <DCCReference Include="uEWMenuManager.pas" />
+    <DCCReference Include="uEWOTAHelpers.pas" />
+    <DCCReference Include="uEWOTAMessages.pas" />
+    <DCCReference Include="uEWOTANewModuleExpert.pas" />
+    <DCCReference Include="uEWOTANewProjectExpert.pas" />
+    <DCCReference Include="uEWOTARepositoryExpert.pas" />
+    <DCCReference Include="uEWOTAWizards.pas" />
+    <DCCReference Include="uEWSampleInfo.pas">
+      <Form>SampleInfoForm</Form>
+    </DCCReference>
+    <DCCReference Include="uEWStringTools.pas" />
+    <DCCReference Include="uEWTools.pas" />
+    <DCCReference Include="uEWWizard.pas">
+      <Form>EWWizardForm</Form>
+    </DCCReference>
+    <None Include="ModelSupport_RemObjects_Everwood_D10\default.txaPackage" />
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.res b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.res
new file mode 100644
index 0000000..0fc3bba
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D11.res differ
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.dpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.dpk
new file mode 100644
index 0000000..d2e1eb9
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.dpk
@@ -0,0 +1,53 @@
+package RemObjects_Everwood_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Everwood for Delphi'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+
+requires
+  rtl,
+  vcl,
+  vclie,
+  designide,
+  vclx;
+
+contains
+  uEWOTAWizards in 'uEWOTAWizards.pas',
+  uEWOTAHelpers in 'uEWOTAHelpers.pas',
+  uEWSampleInfo in 'uEWSampleInfo.pas' {SampleInfoForm},
+  uEWOTANewModuleExpert in 'uEWOTANewModuleExpert.pas',
+  RemObjects_Everwood_Reg in 'RemObjects_Everwood_Reg.pas',
+  uEWOTANewProjectExpert in 'uEWOTANewProjectExpert.pas',
+  uEWOTARepositoryExpert in 'uEWOTARepositoryExpert.pas',
+  uEWMenuManager in 'uEWMenuManager.pas',
+  uEWAbout in 'uEWAbout.pas',
+  uEWWizard in 'uEWWizard.pas' {EWWizardForm},
+  uEWTools in 'uEWTools.pas',
+  uEWOTAMessages in 'uEWOTAMessages.pas',
+  uEWStringTools in 'uEWStringTools.pas',
+  uEWHelpers in 'uEWHelpers.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.dproj b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.dproj
new file mode 100644
index 0000000..452c01f
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.dproj
@@ -0,0 +1,183 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{b7956419-311f-4137-a85b-371bb0f78d5d}</ProjectGuid>
+			<MainSource>RemObjects_Everwood_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_Everwood_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_Release)'!=''">
+			<Cfg_Release>true</Cfg_Release>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_Debug)'!=''">
+			<Cfg_Debug>true</Cfg_Debug>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Bin</DCC_BplOutput>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Bin</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Bin\RemObjects_Everwood_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Everwood for Delphi</DCC_Description>
+			<DCC_Define>xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_Release)'!=''">
+			<DCC_EXPLICIT_STRING_CAST_LOSS>false</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>true</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>true</DCC_IMPLICIT_STRING_CAST>
+			<DCC_CVT_WCHAR_TO_ACHAR>true</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_EXPLICIT_STRING_CAST>false</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_WIDENING_STRING_LOST>true</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_ACHAR_TO_WCHAR>true</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_NARROWING_STRING_LOST>true</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+			<DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+			<Version>7.0</Version>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+			<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+			<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+			<DCC_DebugInformation>False</DCC_DebugInformation>
+			<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+			<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+			<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+			<DCC_ObjPath>..\;..\..\Dcu\D11;$(DCC_ObjPath)</DCC_ObjPath>
+			<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+			<DCC_ResourcePath>..\;..\..\Dcu\D11;$(DCC_ResourcePath)</DCC_ResourcePath>
+			<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+			<DCC_IncludePath>..\;..\..\Dcu\D11;$(DCC_IncludePath)</DCC_IncludePath>
+			<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_Debug)'!=''">
+			<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+			<DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+			<Version>7.0</Version>
+			<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+			<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+			<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+			<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+			<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+			<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+			<DCC_ObjPath>..\;..\..\Dcu\D11;$(DCC_ObjPath)</DCC_ObjPath>
+			<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+			<DCC_ResourcePath>..\;..\..\Dcu\D11;$(DCC_ResourcePath)</DCC_ResourcePath>
+			<DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+			<DCC_IncludePath>..\;..\..\Dcu\D11;$(DCC_IncludePath)</DCC_IncludePath>
+			<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_Everwood_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="vclie.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="vclx.dcp"/>
+			<DCCReference Include="uEWOTAWizards.pas"/>
+			<DCCReference Include="uEWOTAHelpers.pas"/>
+			<DCCReference Include="uEWSampleInfo.pas">
+				<Form>SampleInfoForm</Form>
+			</DCCReference>
+			<DCCReference Include="uEWOTANewModuleExpert.pas"/>
+			<DCCReference Include="RemObjects_Everwood_Reg.pas"/>
+			<DCCReference Include="uEWOTANewProjectExpert.pas"/>
+			<DCCReference Include="uEWOTARepositoryExpert.pas"/>
+			<DCCReference Include="uEWMenuManager.pas"/>
+			<DCCReference Include="uEWAbout.pas"/>
+			<DCCReference Include="uEWWizard.pas">
+				<Form>EWWizardForm</Form>
+			</DCCReference>
+			<DCCReference Include="uEWTools.pas"/>
+			<DCCReference Include="uEWOTAMessages.pas"/>
+			<DCCReference Include="uEWStringTools.pas"/>
+			<DCCReference Include="uEWHelpers.pas"/>
+			<None Include="ModelSupport_RemObjects_Everwood_D10\default.txaPackage"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_Release</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_Debug</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Compiler>
+						<Compiler Name="UsePackages">False</Compiler>
+						<Compiler Name="Packages"/>
+					</Compiler>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">2</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">109</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">2.0.1.109</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">2.0.1.109</VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_Everwood_D12.dpk</Source>
+					</Source>
+					<Excluded_Packages />
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.res b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.res
new file mode 100644
index 0000000..0fc3bba
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D12.res differ
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.dpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.dpk
new file mode 100644
index 0000000..1f0ac47
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.dpk
@@ -0,0 +1,53 @@
+package RemObjects_Everwood_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Everwood for Delphi'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+
+requires
+  rtl,
+  vcl,
+  vclie,
+  designide,
+  vclx;
+
+contains
+  uEWOTAWizards in 'uEWOTAWizards.pas',
+  uEWOTAHelpers in 'uEWOTAHelpers.pas',
+  uEWSampleInfo in 'uEWSampleInfo.pas' {SampleInfoForm},
+  uEWOTANewModuleExpert in 'uEWOTANewModuleExpert.pas',
+  RemObjects_Everwood_Reg in 'RemObjects_Everwood_Reg.pas',
+  uEWOTANewProjectExpert in 'uEWOTANewProjectExpert.pas',
+  uEWOTARepositoryExpert in 'uEWOTARepositoryExpert.pas',
+  uEWMenuManager in 'uEWMenuManager.pas',
+  uEWAbout in 'uEWAbout.pas',
+  uEWWizard in 'uEWWizard.pas' {EWWizardForm},
+  uEWTools in 'uEWTools.pas',
+  uEWOTAMessages in 'uEWOTAMessages.pas',
+  uEWStringTools in 'uEWStringTools.pas',
+  uEWHelpers in 'uEWHelpers.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.dproj b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.dproj
new file mode 100644
index 0000000..c290c21
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.dproj
@@ -0,0 +1,186 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{b7956419-311f-4137-a85b-371bb0f78d5d}</ProjectGuid>
+			<MainSource>RemObjects_Everwood_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_Everwood_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_Release)'!=''">
+			<Cfg_Release>true</Cfg_Release>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_Debug)'!=''">
+			<Cfg_Debug>true</Cfg_Debug>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_BplOutput>..\..\Bin</DCC_BplOutput>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_DcpOutput>..\..\Bin</DCC_DcpOutput>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Bin\RemObjects_Everwood_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects Everwood for Delphi</DCC_Description>
+			<DCC_Define>xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_Release)'!=''">
+			<DCC_EXPLICIT_STRING_CAST_LOSS>false</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>true</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_IMPLICIT_STRING_CAST>true</DCC_IMPLICIT_STRING_CAST>
+			<DCC_CVT_WCHAR_TO_ACHAR>true</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_EXPLICIT_STRING_CAST>false</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_WIDENING_STRING_LOST>true</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_ACHAR_TO_WCHAR>true</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_NARROWING_STRING_LOST>true</DCC_CVT_NARROWING_STRING_LOST>
+			<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+			<DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+			<Version>7.0</Version>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+			<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+			<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+			<DCC_DebugInformation>False</DCC_DebugInformation>
+			<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+			<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+			<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+			<DCC_ObjPath>..\;..\..\Dcu\D11;$(DCC_ObjPath)</DCC_ObjPath>
+			<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+			<DCC_ResourcePath>..\;..\..\Dcu\D11;$(DCC_ResourcePath)</DCC_ResourcePath>
+			<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+			<DCC_IncludePath>..\;..\..\Dcu\D11;$(DCC_IncludePath)</DCC_IncludePath>
+			<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_Debug)'!=''">
+			<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+			<DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+			<Version>7.0</Version>
+			<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+			<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+			<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+			<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+			<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+			<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+			<DCC_ObjPath>..\;..\..\Dcu\D11;$(DCC_ObjPath)</DCC_ObjPath>
+			<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+			<DCC_ResourcePath>..\;..\..\Dcu\D11;$(DCC_ResourcePath)</DCC_ResourcePath>
+			<DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+			<DCC_IncludePath>..\;..\..\Dcu\D11;$(DCC_IncludePath)</DCC_IncludePath>
+			<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_Everwood_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="vclie.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="vclx.dcp"/>
+			<DCCReference Include="uEWOTAWizards.pas"/>
+			<DCCReference Include="uEWOTAHelpers.pas"/>
+			<DCCReference Include="uEWSampleInfo.pas">
+				<Form>SampleInfoForm</Form>
+			</DCCReference>
+			<DCCReference Include="uEWOTANewModuleExpert.pas"/>
+			<DCCReference Include="RemObjects_Everwood_Reg.pas"/>
+			<DCCReference Include="uEWOTANewProjectExpert.pas"/>
+			<DCCReference Include="uEWOTARepositoryExpert.pas"/>
+			<DCCReference Include="uEWMenuManager.pas"/>
+			<DCCReference Include="uEWAbout.pas"/>
+			<DCCReference Include="uEWWizard.pas">
+				<Form>EWWizardForm</Form>
+			</DCCReference>
+			<DCCReference Include="uEWTools.pas"/>
+			<DCCReference Include="uEWOTAMessages.pas"/>
+			<DCCReference Include="uEWStringTools.pas"/>
+			<DCCReference Include="uEWHelpers.pas"/>
+			<None Include="ModelSupport_RemObjects_Everwood_D10\default.txaPackage"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_Release</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_Debug</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Compiler>
+						<Compiler Name="UsePackages">False</Compiler>
+						<Compiler Name="Packages"/>
+					</Compiler>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">2</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">1</VersionInfo>
+						<VersionInfo Name="Build">109</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">2.0.1.109</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">2.0.1.109</VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_Everwood_D14.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+					<isVersionControl>
+						<isVersionControl Name="isVersionControlID"/>
+					</isVersionControl>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.res b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.res
new file mode 100644
index 0000000..26bd1d0
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D14.res differ
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.cfg b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.cfg
new file mode 100644
index 0000000..8758c38
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.cfg
@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D6"
+-LE"..\..\Bin"
+-LN"..\..\Bin"
+-DxDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+-Z
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.dof b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.dof
new file mode 100644
index 0000000..32497d8
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.dof
@@ -0,0 +1,165 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=1
+UnsafeCode=1
+UnsafeCast=1
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Everwood for Delphi
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Bin
+PackageDCPOutputDir=..\..\Bin
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;vcldb;dsnapcon;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;CDKSmp;CDKDesignTimeSupport;ES_CodeSite20;CDK;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;RzBz4070;cxCommonEditingVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridUtilsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxTreeListVCLD7;addict3_d6;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxGrEdD7;dxDBEdD7;dxInsD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;dxsbD7;SynEdit_D7;tb2kComplete_70;EzSpecials_D7;PurposesoftD7;Rz252D70;Rz252N70;RemObjects_DataSnap_D7;DataAbstract_IDE_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;DataAbstract_DiskDriver_D7;Nexus100ts70;Nexus100ll70;Nexus100tn70;Nexus100pt70;Nexus100tw70;ECQDBCD7;EQTLD7;sq7;cxExportVCLD7;SchemaModelerUtils_d7;CrTb2k;ESCore;CR_Standard;madBasic_;madDisAsm_;CSP20I70.bpl;
+Conditionals=xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=0
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=0.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+[Excluded Packages]
+R:\RemObjects SDK\Dcu\D6\RemObjects_Core_D6.bpl=RemObjects SDK - Core Library
+R:\Hydra\Trial\D6\Hydra_RO_D6.bpl=RemObjects' Hydra - RemObjects SDK Integration Library TRIAL
+R:\RemObjects SDK\Dcu\D6\RemObjects_RODX_D6.bpl=RemObjects SDK - RODXSock Library
+R:\RemObjects SDK\Dcu\D6\RemObjects_BPDX_D6.bpl=RemObjects SDK - BPDX Library
+R:\RemObjects SDK\Dcu\D6\RemObjects_DataSnap_D6.bpl=RemObjects SDK - DataSnap Integration Pack
+r:\RemObjects SDK\Dcu\d6\RemObjects_Indy_D6.bpl=RemObjects SDK - Indy Library
+R:\RemObjects SDK for Delphi\Dcu\D6\RemObjects_IDE_D6.bpl=RemObjects SDK - IDE Integration
+R:\Data Abstract\Dcu\D6\DataAbstract_Core_D6.bpl=RemObjects Data Abstract - Core Library
+R:\Data Abstract\Dcu\D6\DataAbstract_DBXDriver_D6.bpl=RemObjects Data Abstract - dbExpress Driver
+R:\Data Abstract\Dcu\D6\DataAbstract_DiskDriver_D6.bpl=RemObjects Data Abstract - Disk Driver
+R:\Data Abstract\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver
+R:\Data Abstract\Dcu\D6\DataAbstract_IDE_D6.bpl=RemObjects Data Abstract - IDE Package
+R:\RemObjects SDK\Dcu\D6\RemObjects_Enterprise_D6.bpl=RemObjects SDK - Enterprise Edition
+R:\Data Abstract\Dcu\D6\DataAbstract_ADODriver_D6.bpl=RemObjects Data Abstract - ADOExpress/dbGo Driver
+[HistoryLists\hlConditionals]
+Count=1
+Item0=xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=..\..\Dcu\D6
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=..\..\Dcu\D6
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=..\..\Dcu\D6
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.dpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.dpk
new file mode 100644
index 0000000..cef08c6
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.dpk
@@ -0,0 +1,53 @@
+package RemObjects_Everwood_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Everwood for Delphi'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+
+requires
+  rtl,
+  vcl,
+  vclie,
+  designide,
+  vclx;
+
+contains
+  uEWOTAWizards in 'uEWOTAWizards.pas',
+  uEWOTAHelpers in 'uEWOTAHelpers.pas',
+  uEWSampleInfo in 'uEWSampleInfo.pas' {SampleInfoForm},
+  uEWOTANewModuleExpert in 'uEWOTANewModuleExpert.pas',
+  RemObjects_Everwood_Reg in 'RemObjects_Everwood_Reg.pas',
+  uEWOTANewProjectExpert in 'uEWOTANewProjectExpert.pas',
+  uEWOTARepositoryExpert in 'uEWOTARepositoryExpert.pas',
+  uEWMenuManager in 'uEWMenuManager.pas',
+  uEWAbout in 'uEWAbout.pas',
+  uEWWizard in 'uEWWizard.pas' {EWWizardForm},
+  uEWTools in 'uEWTools.pas',
+  uEWOTAMessages in 'uEWOTAMessages.pas',
+  uEWStringTools in 'uEWStringTools.pas',
+  uEWHelpers in 'uEWHelpers.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.res b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.res
new file mode 100644
index 0000000..2ef0d19
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D6.res differ
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.cfg b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.cfg
new file mode 100644
index 0000000..2132da9
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.cfg
@@ -0,0 +1,47 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D7"
+-LE"..\..\Bin"
+-LN"..\..\Bin"
+-DxDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.dof b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.dof
new file mode 100644
index 0000000..5a17516
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.dof
@@ -0,0 +1,135 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Everwood for Delphi
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Bin
+PackageDCPOutputDir=..\..\Bin
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;vcldb;dsnapcon;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;CDKSmp;CDKDesignTimeSupport;ES_CodeSite20;CDK;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;ESVsCp;ESSampleComposites70;ESSampleCompositeEditors7;RzBz4070;cxCommonEditingVCLD7;cxEditorsVCLD7;dxThemeD7;cxLibraryVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridUtilsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxTreeListVCLD7;addict3_d6;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxEdtrD7;dxELibD7;dxExELD7;EQGridD7;dxExRwD7;dxGrEdD7;dxDBEdD7;dxInsD7;dxLayoutControlD7;dxMasterViewD7;dxmdsd7;dxNavBarD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;dxsbD7;SynEdit_D7;tb2kComplete_70;EzSpecials_D7;PurposesoftD7;Rz252D70;Rz252N70;RemObjects_DataSnap_D7;DataAbstract_IDE_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;DataAbstract_DiskDriver_D7;Nexus100ts70;Nexus100ll70;Nexus100tn70;Nexus100pt70;Nexus100tw70;ECQDBCD7;EQTLD7;sq7;cxExportVCLD7;SchemaModelerUtils_d7;CrTb2k;ESCore;CR_Standard;madBasic_;madDisAsm_;CSP20I70.bpl;
+Conditionals=xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.1.50
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.dpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.dpk
new file mode 100644
index 0000000..ab11329
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.dpk
@@ -0,0 +1,53 @@
+package RemObjects_Everwood_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Everwood for Delphi'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+
+requires
+  rtl,
+  vcl,
+  vclie,
+  designide,
+  vclx;
+
+contains
+  uEWOTAWizards in 'uEWOTAWizards.pas',
+  uEWOTAHelpers in 'uEWOTAHelpers.pas',
+  uEWSampleInfo in 'uEWSampleInfo.pas' {SampleInfoForm},
+  uEWOTANewModuleExpert in 'uEWOTANewModuleExpert.pas',
+  RemObjects_Everwood_Reg in 'RemObjects_Everwood_Reg.pas',
+  uEWOTANewProjectExpert in 'uEWOTANewProjectExpert.pas',
+  uEWOTARepositoryExpert in 'uEWOTARepositoryExpert.pas',
+  uEWMenuManager in 'uEWMenuManager.pas',
+  uEWAbout in 'uEWAbout.pas',
+  uEWWizard in 'uEWWizard.pas' {EWWizardForm},
+  uEWTools in 'uEWTools.pas',
+  uEWOTAMessages in 'uEWOTAMessages.pas',
+  uEWStringTools in 'uEWStringTools.pas',
+  uEWHelpers in 'uEWHelpers.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.res b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.res
new file mode 100644
index 0000000..0fc3bba
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D7.res differ
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.bdsproj b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.bdsproj
new file mode 100644
index 0000000..1f3a8c7
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.bdsproj
@@ -0,0 +1,176 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{C239782A-EA39-4CF9-91C2-955D92AF0504}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_Everwood_D9.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">1</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects Everwood for Delphi</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\..\Dcu\D9</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\..\Dcu\D9</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\..\Dcu\D9</Directories>
+			<Directories Name="SearchPath" Type="String">..\;..\..\Dcu\D9</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String">xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE</Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">3</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">1</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">282</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion" Type="String">3.0.1.282</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion" Type="String">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName" Type="String"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>  <ModelSupport>True</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.cfg b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.cfg
new file mode 100644
index 0000000..cbc338d
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.cfg
@@ -0,0 +1,45 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\..\Dcu\D9"
+-LE"..\..\Bin"
+-LN"..\..\Bin"
+-U"..\;..\..\Dcu\D9"
+-O"..\;..\..\Dcu\D9"
+-I"..\;..\..\Dcu\D9"
+-R"..\;..\..\Dcu\D9"
+-DxDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+-Z
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.dof b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.dof
new file mode 100644
index 0000000..6e0a739
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.dof
@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Everwood for Delphi
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;PascalScript_RO_D7;IBO40FTS_D7;IBO40TRT_D7;IBO40CRT_D7;IBO40RPL_D7;IBO40VRT_D7;IBO40FRT_D7;IBO40XRT_D7;IBO40WRT_D7;IBO40WXDT_D7;IBO40WXRT_D7;CRControls70;dac70;dacvcl70;sdacvcl70;sdac70;DataAbstract_IDE_D7;cxLibraryVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxsbD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxPageControlVCLD7;cxGridVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;cxVerticalGridVCLD7;cxSpreadSheetVCLD7;dxNavBarD7;cxWebD7;cxWebPascalScriptD7;cxWebSnapD7;cxWebTeeChartD7;dxMasterViewD7;dxmdsD7;dxdbtrD7;dxtrmdD7;dxorgcD7;dxdborD7;dxFlowChartD7;dxLayoutControlD7;dxLayoutControlcxEditAdaptersD7;dxPSCoreD7;dxPSTeeChartD7;dxPsPrVwAdvD7;dxPSLnksD7;dxPSdxOCLnkD7;dxPSdxMVLnkD7;dxPSdxLCLnkD7;dxPSdxFCLnkD7;dxPSdxDBTVLnkD7;dxPSdxDBOCLnkD7;dxPSDBTeeChartD7;dxPScxCommonD7;dxPScxTLLnkD7;dxPScxSSLnkD7;dxPScxScheduler2LnkD7;dxPScxPCProdD7;dxPScxGridLnkD7;dxPScxExtCommonD7;dxPScxVGridLnkD7;DataAbstract_Core_D7;Hydra_Core_D7;Hydra_RO_D7
+Conditionals=xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=C:\Program Files\Borland\Delphi7\Bin\
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1058
+CodePage=1251
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.dpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.dpk
new file mode 100644
index 0000000..71083c0
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.dpk
@@ -0,0 +1,53 @@
+package RemObjects_Everwood_D9;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Everwood for Delphi'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+
+requires
+  rtl,
+  vcl,
+  vclie,
+  designide,
+  vclx;
+
+contains
+  uEWOTAWizards in 'uEWOTAWizards.pas',
+  uEWOTAHelpers in 'uEWOTAHelpers.pas',
+  uEWSampleInfo in 'uEWSampleInfo.pas' {SampleInfoForm},
+  uEWOTANewModuleExpert in 'uEWOTANewModuleExpert.pas',
+  RemObjects_Everwood_Reg in 'RemObjects_Everwood_Reg.pas',
+  uEWOTANewProjectExpert in 'uEWOTANewProjectExpert.pas',
+  uEWOTARepositoryExpert in 'uEWOTARepositoryExpert.pas',
+  uEWMenuManager in 'uEWMenuManager.pas',
+  uEWAbout in 'uEWAbout.pas',
+  uEWWizard in 'uEWWizard.pas' {EWWizardForm},
+  uEWTools in 'uEWTools.pas',
+  uEWOTAMessages in 'uEWOTAMessages.pas',
+  uEWStringTools in 'uEWStringTools.pas',
+  uEWHelpers in 'uEWHelpers.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.res b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.res
new file mode 100644
index 0000000..ddf10d2
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_D9.res differ
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Mac.lpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Mac.lpk
new file mode 100644
index 0000000..d6c7a0f
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Mac.lpk
@@ -0,0 +1,84 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="RemObjects_Everwood_Lazarus_Mac"/>
+    <Author Value="RemObjects Software"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <CStyleOperator Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Everwood for Lazarus
+"/>
+    <Files Count="12">
+      <Item1>
+        <Filename Value="RemObjects_Everwood_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Everwood_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uEWAbout.pas"/>
+        <UnitName Value="uEWAbout"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uEWAbout.lfm"/>
+        <Type Value="LFM"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uEWAbout.lrs"/>
+        <Type Value="LRS"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uEWHelpers.pas"/>
+        <UnitName Value="uEWHelpers"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uEWMenuManager_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uEWMenuManager_laz"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uEWOTAHelpers_laz.pas"/>
+        <UnitName Value="uEWOTAHelpers_laz"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uEWStringTools.pas"/>
+        <UnitName Value="uEWStringTools"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uEWTools.pas"/>
+        <UnitName Value="uEWTools"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uEWWizard.pas"/>
+        <UnitName Value="uEWWizard"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uEWWizard.lfm"/>
+        <Type Value="LFM"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uEWWizard.lrs"/>
+        <Type Value="LRS"/>
+      </Item12>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="1">
+      <Item1>
+        <PackageName Value="IDEIntf"/>
+      </Item1>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Unix.lpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Unix.lpk
new file mode 100644
index 0000000..2cebc1e
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Unix.lpk
@@ -0,0 +1,85 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Everwood_Lazarus_Unix"/>
+    <Author Value="RemObjects Software"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="units\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Everwood for Lazarus
+"/>
+    <Files Count="12">
+      <Item1>
+        <Filename Value="RemObjects_Everwood_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Everwood_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uEWAbout.pas"/>
+        <UnitName Value="uEWAbout"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uEWAbout.lfm"/>
+        <Type Value="LFM"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uEWAbout.lrs"/>
+        <Type Value="LRS"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uEWHelpers.pas"/>
+        <UnitName Value="uEWHelpers"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uEWMenuManager_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uEWMenuManager_laz"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uEWOTAHelpers_laz.pas"/>
+        <UnitName Value="uEWOTAHelpers_laz"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uEWStringTools.pas"/>
+        <UnitName Value="uEWStringTools"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uEWTools.pas"/>
+        <UnitName Value="uEWTools"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uEWWizard.pas"/>
+        <UnitName Value="uEWWizard"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uEWWizard.lfm"/>
+        <Type Value="LFM"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uEWWizard.lrs"/>
+        <Type Value="LRS"/>
+      </Item12>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="1">
+      <Item1>
+        <PackageName Value="IDEIntf"/>
+      </Item1>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Windows.lpk b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Windows.lpk
new file mode 100644
index 0000000..3d3d02b
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Lazarus_Windows.lpk
@@ -0,0 +1,87 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Everwood_Lazarus_Windows"/>
+    <Author Value="RemObjects Software"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <CStyleOperator Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Everwood for Lazarus
+"/>
+    <Files Count="12">
+      <Item1>
+        <Filename Value="RemObjects_Everwood_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Everwood_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uEWAbout.pas"/>
+        <UnitName Value="uEWAbout"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uEWAbout.lfm"/>
+        <Type Value="LFM"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uEWAbout.lrs"/>
+        <Type Value="LRS"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uEWHelpers.pas"/>
+        <UnitName Value="uEWHelpers"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uEWMenuManager_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uEWMenuManager_laz"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uEWOTAHelpers_laz.pas"/>
+        <UnitName Value="uEWOTAHelpers_laz"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uEWStringTools.pas"/>
+        <UnitName Value="uEWStringTools"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uEWTools.pas"/>
+        <UnitName Value="uEWTools"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uEWWizard.pas"/>
+        <UnitName Value="uEWWizard"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uEWWizard.lfm"/>
+        <Type Value="LFM"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uEWWizard.lrs"/>
+        <Type Value="LRS"/>
+      </Item12>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="1">
+      <Item1>
+        <PackageName Value="IDEIntf"/>
+      </Item1>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Reg.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Reg.pas
new file mode 100644
index 0000000..454629b
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/RemObjects_Everwood_Reg.pas
@@ -0,0 +1,29 @@
+unit RemObjects_Everwood_Reg;
+
+interface
+
+{$IFNDEF FPC}
+  {$R 'EverwoodIDEResources.res' 'EverwoodIDEResources.rc'}
+{$ENDIF}
+
+{$IFDEF FPC}
+procedure Register;
+{$ENDIF}
+implementation
+
+{$IFDEF FPC}
+uses
+    LResources,FormEditingIntf,
+    uEWWizard;
+    
+    
+procedure Register;
+begin
+  FormEditingHook.RegisterDesignerBaseClass(TEWWizardForm);
+end;
+
+initialization
+  {$I EverwoodIDEResources.lrs}
+{$ENDIF}
+end.
+ 
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/eDefines.inc b/internal/6.0.43.801/1/Everwood/Source/Delphi/eDefines.inc
new file mode 100644
index 0000000..ef01d58
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/eDefines.inc
@@ -0,0 +1,495 @@
+{----------------------------------------------------------------------------}
+{file:      eDefines.inc                                                     }
+{type:      Delphi include file                                              }
+{                                                                            }
+{compiler:  Borland Pascal 7,                                                }
+{           Delphi 1-7, 2005-2007 for Win32                                  }
+{           Kylix 1-3,                                                       }
+{           C++Builder 1-6, 2006-2007                                        }
+{           Free Pascal Compiler 2.x                                         }
+{                                                                            }
+{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X                  }
+{                                                                            }
+{author:    mh@elitedev.com                                                  }
+{                                                                            }
+{contents:  Defines that can be flexibily used to determine the exact        }
+{           compiler version used.                                           }
+{                                                                            }
+{(c)opyright elitedevelopments software. all rights reserved.                }
+{            http://www.elitedev.com                                         }
+{                                                                            }
+{ Third Party component developers are encouraged to use the set of defines  }
+{ established in this file, rather then their own system, for checking their }
+{ component libraries agains different versions of Delphi and C++Builder.    }
+{                                                                            }
+{ This file may be distributed freely with both free and commercial source   }
+{ libraries, but you are asked to please leave this comment in place, and    }
+{ to return any improvements you make to this file to the maintainer that    }
+{ is noted above.                                                            }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ Compiler and OS version defines:                                           }
+{                                                                            }
+{ exact compiler versions:                                                   }
+{                                                                            }
+{ BP7             Borland Pascal 7.0                                         }
+{ DELPHI1         Delphi 1.0 (any Delphi)                                    }
+{ DELPHI2         Delphi 2.0                                                 }
+{ DELPHI3         Delphi 3.0                                                 }
+{ DELPHI4         Delphi 4.0                                                 }
+{ DELPHI5         Delphi 5.0                                                 }
+{ DELPHI6         Delphi 6.0                                                 }
+{ DELPHI7         Delphi 7.0                                                 }
+{ DELPHI9         Delphi 2005                                                }
+{ DELPHI2005      Delphi 2005                                                }
+{ DELPHI2006      Delphi 2006                                                }
+{ DELPHI2007      Delphi 2007                                                }
+{ KYLIX1          Kylix 1.0                                                  }
+{ KYLIX2          Kylix 2.0                                                  }
+{ KYLIX3          Kylix 3.0                                                  }
+{ CBUILDER1       C++Builder 1.0                                             }
+{ CBUILDER3       C++Builder 3.0                                             }
+{ CBUILDER4       C++Builder 4.0                                             }
+{ CBUILDER5       C++Builder 5.0                                             }
+{                                                                            }
+{                                                                            }
+{ minimum compiler versions:                                                 }
+{                                                                            }
+{ DELPHI1UP       Delphi 1.0 and above (any Delphi)                          }
+{ DELPHI2UP       Delphi 2.0 and above                                       }
+{ DELPHI3UP       Delphi 3.0 and above                                       }
+{ DELPHI4UP       Delphi 4.0 and above                                       }
+{ DELPHI5UP       Delphi 5.0 and above                                       }
+{ DELPHI6UP       Delphi 6.0 and above                                       }
+{ DELPHI7UP       Delphi 7.0 and above                                       }
+{ DELPHI9UP       Delphi 9.0 (2005) and above                                }
+{ DELPHI10UP      Delphi 10.0 (2006) and above                               }
+{ DELPHI11UP      Delphi 11.0 (2007) and above                               }
+{ DELPHI2005UP    Delphi 2005 and above                                      }
+{ DELPHI2006UP    Delphi 2006 and above                                      }
+{ DELPHI2007UP    Delphi 2007 and above                                      }
+{ KYLIX1UP        Kylix 1.0 and above (any Kylix)                            }
+{ KYLIX2UP        Kylix 2.0 and above (any Kylix)                            }
+{ KYLIX3UP        Kylix 3.0 and above (any Kylix)                            }
+{ CBUILDER1UP     C++Builder 1.0 and above or Delphi 2 and above             }
+{ CBUILDER3UP     C++Builder 3.0 and above or Delphi 3.0 and above           }
+{ CBUILDER4UP     C++Builder 4.0 and above or Delphi 4.0 and above           }
+{ CBUILDER5UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{ CBUILDER6UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{                                                                            }
+{                                                                            }
+{ compiler types:                                                            }
+{                                                                            }
+{ BP              Borland Pascal (not Delphi or C++Builder)                  }
+{ DELPHI          any Delphi version (but not C++Builder or Kylix)           }
+{ KYLIX           any Kylix version (not Delphi or C++Builder for Windows)   }
+{ CBUILDER        any C++Builder for Windows (Pascal)                        }
+{                                                                            }
+{                                                                            }
+{ target platforms compiler types:                                           }
+{                                                                            }
+{ DELPHI_16BIT    16bit Delphi (but not C++Builder!)                         }
+{ DELPHI_32BIT    32bit Delphi (but not C++Builder)                          }
+{ KYLIX_32BIT     32bit Kylix (but not C++Builder)                           }
+{ CBUILDER_32BIT  32bit C++Builer's Pascal (but not Delphi)                  }
+{                                                                            }
+{                                                                            }
+{ target cpu types                                                           }
+{                                                                            }
+{ CPU16           16bit Delphi or Borland Pascal                             }
+{ CPU32           32bit Delphi or Free Pascal                                }
+{ CPU64           64bit Free Pascal                                          }
+{                                                                            }
+{ target platforms                                                           }
+{                                                                            }
+{ DOS             any DOS (plain and DPMI)                                   }
+{ REALMODE        16bit realmode DOS                                         }
+{ PROTECTEDMODE   16bit DPMI DOS                                             }
+{                                                                            }
+{ MSWINDOWS       any Windows platform                                       }
+{ WIN16           16bit Windows                                              }
+{ WIN32           32bit Windows                                              }
+{ WIN64           64bit Windows                                              }
+{ DOTNET          .NET                                                       }
+{                                                                            }
+{ LINUX           any Linux platform                                         }
+{ LINUX32         32bit Linux                                                }
+{ LINUX64         64bit Linux                                                }
+{                                                                            }
+{ DARWIN          Any Mac OS X                                               }
+{ DARWIN32        32bit Mac OS X                                             }
+{ DARWIN64        64bit Mac OS X                                             }
+{----------------------------------------------------------------------------}
+
+{ defines for Borland Pascal 7.0 }
+{$IFDEF VER70}
+  {$DEFINE BP}
+  {$DEFINE BP7}
+  {$DEFINE 16BIT}
+  {$DEFINE CPU16}
+
+  { defines for BP7 DOS real mode }
+  {$IFDEF MSDOS}
+    {$DEFINE DOS}
+    {$DEFINE REALMODE}
+  {$ENDIF}
+
+  { defines for BP7 DOS protected mode }
+  {$IFDEF DPMI}
+    {$DEFINE DOS}
+    {$DEFINE PROTECTEDMODE}
+  {$ENDIF}
+
+  { defines for BP7 Windows }
+  {$IFDEF WINDOWS}
+    {$DEFINE MSWINDOWS}
+    {$DEFINE WIN16}
+  {$ENDIF}
+{$ENDIF}
+
+{ defines for Delphi 1.0 thru 7.0 }
+{$IFDEF MSWINDOWS}
+
+  { defines for Delphi 1.0 }
+  {$IFDEF VER80}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI1}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI_16BIT}
+    {$DEFINE WIN16}
+    {$DEFINE 16BIT}
+    {$DEFINE CPU16}
+  {$ENDIF}
+
+  { defines for Delphi 2.0 }
+  {$IFDEF VER90}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI2}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+  {$ENDIF}
+
+  { defines for C++Builder 1.0 }
+  {$IFDEF VER93}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER1}
+    {$DEFINE CBUILDER1UP}
+  {$ENDIF}
+
+  { defines for Delphi 3.0 }
+  {$IFDEF VER100}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI3}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+  {$ENDIF}
+
+  { defines for C++Builder 3.0 }
+  {$IFDEF VER110}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER3}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+  {$ENDIF}
+
+  { defines for Delphi 4.0 }
+  {$IFDEF VER120}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI4}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+  {$ENDIF}
+
+  { defines for C++Builder 4.0 }
+  {$IFDEF VER125}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER4}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+  {$ENDIF}
+  { defines for Delphi 5.0 }
+  {$IFDEF VER130}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI5}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+  {$ENDIF}
+
+  { defines for C++Builder 5.0 }
+  {$IFDEF VER135}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER5}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+    {$DEFINE CBUILDER5UP}
+  {$ENDIF}
+
+  { defines for Delphi 6.0 }
+  {$IFDEF VER140}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI6}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+  {$ENDIF}
+
+  { defines for Delphi 7.0 }
+  {$IFDEF VER150}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI7}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+  {$ENDIF}
+
+  { defines for Delphi 2005 }
+  {$IFDEF VER170}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI9}
+    {$DEFINE DELPHI2005}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS3}
+    {$DEFINE BDS3UP}
+  {$ENDIF}
+
+  { defines for Delphi 2006 }
+  {$IFDEF VER180}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI10}
+    {$DEFINE DELPHI10A}  
+    {$DEFINE DELPHI2006}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS4}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+  {$ENDIF}
+
+  { defines for Delphi 2007 }
+  {$IFDEF VER185}
+    {$UNDEF DELPHI10A}  // declared in VER180
+    {$UNDEF DELPHI2006} // declared in VER180
+    {$UNDEF BDS4}       // declared in VER180
+
+    {$DEFINE DELPHI10B}    
+    {$DEFINE DELPHI10BUP}    
+    {$DEFINE DELPHI11}    
+    {$DEFINE DELPHI11UP}    
+    {$DEFINE DELPHI2007}
+    {$DEFINE DELPHI2007UP}    
+    {$DEFINE BDS5}
+    {$DEFINE BDS5UP}
+  {$ENDIF}
+
+  { defines for Delphi 2009 }
+  {$IFDEF VER200}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI12}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+
+    {$DEFINE DELPHI2009}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+
+    {$DEFINE BDS}
+    {$DEFINE BDS6}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+  {$ENDIF}
+
+  { defines for Delphi 2010 }
+  {$IFDEF VER210}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI14}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+    {$DEFINE DELPHI14UP}    
+
+    {$DEFINE DELPHI2010}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+    {$DEFINE DELPHI2010UP}    
+
+    {$DEFINE BDS}
+    {$DEFINE BDS7}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+    {$DEFINE BDS7UP}
+  {$ENDIF}
+  
+
+  {$IFDEF WIN32}
+    {$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
+    {$DEFINE 32BIT}
+    {$DEFINE CPU32}
+  {$ENDIF}
+
+{$ENDIF MSWINDOWS}
+
+{ defines for "Delphi for .NET" }
+{$IFDEF CLR}
+  {$DEFINE DOTNET}
+{$ENDIF}
+
+{$IFDEF DELPHI}
+  {$IFDEF DELPHI2UP}
+    {$DEFINE DELPHI_32BIT}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF CBUILDER}
+  {$DEFINE CBUILDER_32BIT}
+{$ENDIF}
+
+{$IFNDEF FPC}
+
+  { Kylix 1.0 thru 3.0 }
+  {$IFDEF LINUX}
+
+    {$DEFINE VER140UP}
+
+    { Any Kylix }
+    {$DEFINE 32BIT}
+    {$DEFINE LINUX32}
+    {$DEFINE KYLIX_32BIT}
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+
+    {$IFDEF CONDITIONALEXPRESSIONS}
+      {$IF Declared(CompilerVersion)}
+
+         { Kylix 2.0 }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.1)}
+           {$DEFINE KYLIX2}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+         {$IFEND}
+
+         { Kylix 3.0 - Delphi portion }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.5)}
+           {$DEFINE KYLIX3}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+           {$DEFINE KYLIX3UP}
+         {$IFEND}
+
+      { Kylix 1.0 }
+      {$ELSE}
+        {$DEFINE KYLIX1}
+      {$IFEND}
+    {$ENDIF CONDITIONALEXPRESSIONS}
+
+  {$ENDIF LINUX}
+{$ENDIF}
+
+{ CPU }
+
+{$IFDEF FPC}
+  {$IFDEF MSWINDOWS}
+    {$IFDEF CPU64}
+      {$DEFINE WIN64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF LINUX}
+    {$IFDEF CPU32}
+      {$DEFINE LINUX32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE LINUX64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF DARWIN}
+    {$IFDEF CPU32}
+      {$DEFINE DARWIN32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE DARWIN64}
+    {$ENDIF}
+  {$ENDIF}
+{$ELSE}
+  {$DEFINE ENDIAN_LITTLE} // To have endianness symbol defined in Delphi too
+{$ENDIF}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.dfm b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.dfm
new file mode 100644
index 0000000..27f554a
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.dfm
@@ -0,0 +1,4830 @@
+object AboutForm: TAboutForm
+  Left = 366
+  Top = 242
+  BorderIcons = []
+  BorderStyle = bsNone
+  Caption = 'About RemObjects SDK'
+  ClientHeight = 300
+  ClientWidth = 500
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWhite
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnClick = OnCloseClick
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Image1: TImage
+    Left = 0
+    Top = 0
+    Width = 500
+    Height = 300
+    AutoSize = True
+    Picture.Data = {
+      07544269746D6170264E0200424D264E0200000000003604000028000000F401
+      00002C0100000100080000000000F0490200C21E0000C21E0000000100000000
+      000000000000000080000080000000808000800000008000800080800000C0C0
+      C000C0DCC000F0CAA600000000000B0B0B00151515001B1B1B00222222002B2B
+      2B00333333003B3B3B00037F0100434343004B4B4B00535353005B5B5B006060
+      60006A6A6A00727272007E7E7E000A81030017850800248A0D002C8D1000328E
+      1200359014003B91160033921D003E9318003C96250037983200439419004996
+      1B004D981C0053991E0044972300579B20005C9C2200539C2900449D3700629F
+      24004FA03B0065A0250068A126006CA2280073A42A007AA72D007DA82E0067A3
+      30006BA4310077A8360074AA3F007BAA3800429F40004DA244005BA5430062A7
+      42006AAA450076AC44006FB15B0078B1540062AF600067B0620074B567007FB6
+      61007DBA740080A92F0084AA31008BAC330087AE3C008BAF3D0091AE350094B0
+      370095B038009BB23900A3B53C00A9B63E0083B24E008EB349009EB6450094B5
+      4B009BB84E008CB5520085B5590090B95D00A2B74600AEB84000A3B94B00A8B9
+      4800B3BA4200BABC4500A4BB5400B1BF560082BA6C009ABC610082BC760091BE
+      7100C0BE4700C1BF4800ACC05E00B4C05700BEC15100B1C25F009AC27600AFC3
+      6900BBC56500A3C57800BBCA7700BECB7800C4C04800CBC24B00D2C44D00D6C6
+      5000D8C75000DCC85200E2CA5400E8CC5600ECCD5800F0CF5900F4D05B00F8D1
+      5C00CDCB6A00D6CB6400D3CD6C00CBCD7300C4CD7B00DAD27800E8CF6000E4D0
+      6900EDD36C00F4D36500F8D46600E3D27200EBD57500E3D57C00FAD87100FAD9
+      7A00828282008D8D8D00929292009D9D9D0081BF8000A3A3A300ABABAB00B4B4
+      B400BEBEBE0088C1830096C6890098C99200A6C98400BDCD8200BFD18D00A1CE
+      9C00ACD09A00BBD29500B8D49E00A9D1A200B3D5A600B8D7A800BED8AA00BFDF
+      BF00C1D28D00D3D58B00C0D49700CDD59200C4D59800CCD89C00D4DB9F00F4DA
+      8200F8DC8400F0DC8B00E3DA9000ECDD9400F0DF9500ECE09E00F5E09700FAE2
+      9800C2D7A200C1D9AB00C8DCAE00D6DCA000DADCA100D3DDA800D8DFAA00C0DE
+      BC00D0DFB100DEE0AC00CEE1BA00D3E0B200D9E1B400D6E3BD00E9E2A600F5E6
+      AB00F9E7AC00FBE8AD00ECE5B200F5E8B500FBEBB700F3EABE00FCEBB800C4C4
+      C400CDCDCD00C1DFC000D4D4D400DCDCDC00C7E1C200D7E6C800D1E7D000D3E8
+      D000DBEAD300E2E7C200E4EBCC00E9ECCE00F7ECC000FBEDC100F2EDC800FDF0
+      CC00E1ECD500ECEDD000F0EFD100EEF0DA00F4F0D300FAF2D500F5F3DD00F8F4
+      DE00E3E3E300EDEDED00E4F0E000EBF2E300F2F5E600FDF6E000F0F7EF00FCF8
+      E900F1F2F100F4F8F000FBFAF300FFFFFF000000000000000000F0FBFF00A4A0
+      A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000010161717150E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0E11
+      1717171717171717141311100E0C0B000000000B1617171717150E0E0E0E0E0E
+      0E0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0D0E0E0E0E10171717170C00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000013
+      171717150E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0F0E0E0E161717171717171717171717
+      1717171713110F1417171717150F0E0F0E0F0E0E0C0D0D0D0D0D0D0D0C0D0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0D0E0F0E0E1317171717
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000D0B0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000013171717140E0E0F0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0E0E0F0E0E111717171717171717171717171717171717171717171716
+      0F0E0F0E0E0E0E0D0D0C0D0D0C0D0D0D0D0C0D0C0D0D0C0D0D0C0D0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0C0D0E0E0F0E1317171714000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000F17160F0B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000015171717130E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0F0E0E161617
+      17171717171717171717171717171717171716100E0E0E0E0F0D0D0D0D0D0C0D
+      0D0D0C0D0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0E0E
+      0E0E0E1517171713000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000001117171717160F0B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000001717171713
+      0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0F0E0E10101010131314151617171717
+      171717171717100E0F0E0F0E0E0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D
+      0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0E0E0F0E0E161717171000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000000B
+      1117171717171717160F0B000000000000000000000000000000000000000000
+      00000000000000000000000000000017171717100E0E0F0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0E0E0F10131415171717110E0E0E0E0E0E
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C
+      0D0C0D0C0C0D0E0E0E0F0E171717170E00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000B1417171717171717171717160F
+      0B00000000000000000000000000000000000000000000000000000000000000
+      00000C17171717100E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0F0E0E0E0F0E0E0E
+      0F0E0F0E0F0E0E0E0F0E0E10100E0F0E0F0E0E0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0C0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0E0F0E0E1017
+      1717170C00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000C1516171717171617171717171717160F0B000000000000000000
+      000000000000000000000000000000000000000000000C171717170F0E0E0E0F
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0E0E0E0E0F0E0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0F0E
+      0E0E0E0E0E0E0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0D0E0E0E0F1116171717000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000C15171717171711
+      0E111517171717171717160F0B00000000000000000000000000000000000000
+      000000000000000000000E171717170E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0D0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E
+      0E0E0E0F0E0E0F0E0E0E0E0F0E0E0F0E0F0E0E0E0F0E0F0E0E0E0C0D0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C0D
+      0C0D0F0E0E0E1317171715000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000C151717171717110E0E0F0E111517171717171717
+      150E000000000000000000000000000000000000000000000000000000001016
+      1717170E0E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0E0E0E
+      0E0E0E0E0E0E0F0E0E0E0E0F0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0D0E0F0E0E151717171300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000E16
+      17171717160F0F0E0E0E0E0E0F101617171717171717150E0000000000000000
+      00000000000000000000000000000000000010171717150E0E0E0E0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0E0F0E0E0D
+      0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0C0C0C0E0E0E0F0E161617171000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000E171717171716100E0E0F0E0F0E0E
+      0E0F0E111517171717171717150E000000000000000000000000000000000000
+      000000000B1016171717140F0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0D0C0D0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0C0C0D0C0D0C0D0C0D0C0E0F0E
+      0E0E171717170F00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000E1717171717150F0E0E0F0E0E0E0F0E0E0E0E0E0F13161717171717
+      1717150E0000000000000000000000000000000000000B10171717171717130E
+      0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D
+      0C0D0C0D0D0C0D0D0C0C0C0C0C0D0C0D0C0E0E0E0F10171717170C0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000E1717171717150F0E
+      0F0E0E0E0F0E0E0F0E0F0E0E0E0E0F111617171717171717150E000000000000
+      00000000000000000B0F1617171717171717130E0F0E0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0C0D0C0D0C
+      0D0C0D0C0D0F0E0E0E10171717170B0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0F0E
+      0F0E0E0F0E131617171717171717150E00000000000000000000000F15171717
+      1717171716100F0E0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0C0D0C0D0C0D0D0C0D0D0D0C0D0C0D0C0C0C0C0C0D0E0F0E0F131617
+      1716000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000C1717
+      171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0F0E0E0E0F1116171717
+      17171717130C000000000000000C151717171717171716100F0E0E0E0F0E0E0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0D0E0E0E0E141717171300000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000C1517171717150F0E0E0E0E0F0E0E0E
+      0E0E0E0D0E0E0E0E0F0E0E0E0F0E0E0E0F131617171717171717130C0000000B
+      131717171717171716100F0E0E0E0F0E0E0E0F0D0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0C0C0D0C0D0C0D
+      0E0E0F0E0E151717171100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000C1517171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0F0E
+      0E0E0F0E0E0E0F111617171717171717130C0F1517171717171716100F0E0E0E
+      0F0E0E0E0F0E0E0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C
+      0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0E0E0E0F0E17171717100000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B1617171717150F0E0E
+      0E0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0F0E0E0E0F0E0E0E0F131717
+      17171717171717171717171716130E0E0E0E0F0E0E0E0F0E0E0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0C0C0E0F0E0E0F171717170C0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000B1417171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0F0E0E0E0F0E0E0F0F13171717171717171717171714
+      0E0E0F0E0F0E0E0E0F0E0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0D0C0C0D0C0D0C0D0C0D0D0E0E0E0F
+      10161717170B0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000141717
+      171716100E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0E0E
+      0E0F0E0E0E0E0E0F0F131717171717171715100E0F0E0E0E0E0E0F0E0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0E0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C
+      0D0C0D0D0C0D0D0C0C0D0C0C0D0C0C0D0F0E0E0E131717171700000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001117171717160F0E0F0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0E0E0F0E0F0E0E0E0F0F13
+      17171716130E0E0F0E0E0F0E0F0E0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D
+      0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C
+      0C0D0C0D0E0F0E0E141717171300000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000101617171717100E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0D0E0E0E0E0E0E0D0E0E0E0E0E0E0E0F0E0E0E0F0F13150F0E0F0E0E0E0F0E0E
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D
+      0D0C0D0C0D0C0D0C0D0D0C0D0D0C0C0D0C0D0C0D0C0D0C0E0E0E0F0E15171717
+      1300000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000E1717171717110E0E0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0E0E0E0E0F0E0E0E0E0F0E0E0E0E0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C
+      0D0D0C0D0C0C0C0D0C0D0C0E0E0F0E0E17171717100000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000C1517171717130E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0E0E0E0F0E0F0E0E0E0F
+      0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0E
+      0E0E0E0F171717170D0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000B151717
+      1717140E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0E0D0E0E0D0E0E0D0E0E0E0E0E0E0E0F0E0E0E0E0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0C0C0C0F0E0F0E10171717170C000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001317171717150F0E0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0E0E0E0E0F0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C
+      0D0C0D0C0D0C0D0E0E0E0E11171717170B000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000001017171717160F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0E0D0E0E0E0E0E0E0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0D0C0D0C0D0F0E0F0E13
+      17171717140B0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000C1717171717100E0F0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0E0D0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0C
+      0D0C0D0D0C0D0C0D0C0D0C0D0C0D0E0E0E0E0F131717171717160B0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000B1517171717130E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0E0D0E0E
+      0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0C0C
+      0C0C0E0E0F0E0E0E131717171717160D00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000131717
+      1717140E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E
+      0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0C0D0C0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0E0E0E0E0F0E0E101617
+      171717170E000000000000000000000000000000000000000000000000000000
+      00000000000000000C0E110E0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000F17171717160E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D
+      0C0D0C0C0C0D0C0D0C0C0C0E0E0F0E0E0F0E0F1617171717170E000000000000
+      00000000000000000000000000000000000000000000000B0D0F141617171716
+      0B00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000C17171717150E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0E0D0E0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0E0E0E0E0E0E0F0F1517171717170E0000000000000000000000000000000000
+      000000000000000C0F1315161717171717171717130000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001317171717110E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C
+      0D0C0D0D0C0D0C0D0D0C0D0C0C0C0C0C0D0C0C0D0C0D0E0F0E0E0E0E0F151717
+      171717110000000000000000000000000000000000000C0E1014171717171717
+      1717171717171717171000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000B17171717160F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0D0C0D
+      0C0D0C0D0C0D0C0C0C0D0D0E0E0F0E0E0E0F1417171717171100000000000000
+      00000000000B0D0F141517171717171717171717171717171717171717170C00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00001016171717130E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0D0C0D0C0C0C0D
+      0E0E0F0E0E0E0F1317171717170E000000000000000C0F131516171717171717
+      1717171717171717171615131013171717171400000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B15161717170F0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0D0C
+      0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0E0E0F0E0E0E0F13171717
+      17170E000C0E101417171717171717171717171717171717171513110F0E0E0E
+      0E0E151717171710000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000E17171717150E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0C0C0D0C
+      0C0D0C0D0C0D0C0D0C0C0E0E0E0F0E0E0E141717171717161717171717171717
+      1717171717171717151411100E0E0E0F0E0F0E0F0E0E0F16171717170B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1317171717100E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0C0C0D0C0C0E
+      0E0E0E0F0E0E1417171717171717171717171717171717171413100F0E0F0E0E
+      0F0E0E0E0E0E0E0E0F0E0E111717171713000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000C16171717160E0E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0D0C
+      0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0E0E0E0E0F0E0E1517171717
+      17171717171717151410100E0E0F0E0E0E0E0E0F0E0E0F0E0F0E0F0E0E0E0F0E
+      15171717170E0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000001117171717130E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C
+      0C0D0C0C0D0C0D0C0D0E0E0E0E0E0F0E151717171717161413100E0E0E0F0E0E
+      0E0E0E0F0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E101617171716000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000B1517
+      1717160F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0C0D0C0D0D0C0D0D0C0D0C0C0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0D0E0E
+      0F0E0E0E0F151413100F0E0E0E0E0E0F0E0E0E0F0E0F0E0E0E0E0E0F0E0E0D0D
+      0C0C0C0D0E0F0E0E0E1317171717110000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000001016171717140E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0C0C0C0D0C0C0C0D0C0D0C0D0C0D0C0D0D0E0E0F0E0E0E0F0E0E0F0E0F
+      0E0F0E0E0E0F0E0E0E0E0E0F0E0D0D0C0C0C0C0C0C0C0C0C0E0E0E0F0E0F1517
+      1717170C00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000015171717170F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D
+      0C0C0D0C0C0C0D0C0E0E0E0E0F0E0E0E0F0E0E0E0E0E0E0F0E0E0E0E0E0D0D0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E1017171717130000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000C17171717
+      150E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D
+      0C0D0D0C0D0C0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0E0E0F
+      0E0E0F0E0E0E0F0E0F0E0E0E0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0D0F0E0F0E0E14171717170E00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001317171717110E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0D0C0C0D0C0C0D
+      0C0D0C0D0C0C0C0C0C0D0C0D0C0C0D0C0C0C0E0E0E0F0E0E0F0E0E0D0D0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F0F17171717
+      1500000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B17171717160E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0C0D0C0C0C0D0C0D0C0D0C0D0C
+      0D0C0C0D0C0C0C0E0E0E0E0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0F0E0E0E0E13171717170F00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001016171717130E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C
+      0D0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0D0C0D0C0C0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D
+      0F0E0F0E0F161717171600000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000B15171717160F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C
+      0D0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E11171717171000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000E17171717140F0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D
+      0C0D0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0D0F0E0F0E0E16171717150B000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000001417171717100E0F0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C
+      0D0C0D0C0C0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E
+      0F0E111717171711000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000C17171717150E0E0F0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0C0D0C0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0E16161717170B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1117171717110F0E0E0F0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D
+      0C0D0D0C0D0C0D0C0C0D0C0D0C0C0D0C0D0C0C0C0C0D0C0D0C0C0D0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0E0F0E0F0E111717171710000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000B16171717160F0E0E0E0E0E
+      0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0C
+      0D0C0C0C0C0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0D0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0E
+      1616171716000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000001016171717130E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0C0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C
+      0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E111717171710000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001517
+      1717170F0E0F0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0C0D0D
+      0C0D0C0D0C0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0E0E0F0E0E1616171716000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000D17171717150E0E0F0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0D0C0C0C0D0C0C0D0C0D0C0D
+      0C0C0C0C0D0C0D0C0C0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F101717
+      17170E0000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000001317171717100F0E0E0F0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C
+      0D0D0C0D0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C
+      0C0C0D0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E0E1617171715000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000C16171717
+      160E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0E0E0E0F0E13171717170D0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001017171717130E0F0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0C0D0C0C0C0D0C0C0C0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0F1617171713
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B15171717160F0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0E0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D
+      0C0D0C0D0C0C0D0C0C0C0D0C0D0C0C0C0C0C0C0D0C0D0C0D0C0D0C0C0C0C0D0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E14171717170B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001117171717110E
+      0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0D0C0C0D0C0D0C0C
+      0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E
+      0F0E0E0F17171717100000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000B15171717160F0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E1517171716000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1017171717110E0F0E0F0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0C0D0C0D0C0D0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0E0E0E0F10171717170E0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000B15171717160E0E0E0F0E0E0E
+      0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0D0E0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0D0C0C0D0C0C0C0C
+      0C0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0F0E0E
+      0F16171717140000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000001017171717110E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0C0D0C0D0C0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C
+      0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E0E0F151717171716000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000B1517171716
+      0E0E0E0E0F0E0E0D0E0E0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0D0C0C0D0C0D0C0C0C0D0C0D0C0D0E15
+      1415141514151415110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0E0E0F0E0F0E0F1517171717150C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000001017171717110E0F0E0E0E0E0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0C0C0E151A9197CFE8F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3
+      CFCF939114130C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E0E0F151717171716
+      0B00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000015171717160E0E0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0E0D0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D
+      0C0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0D0C0C0C0D0C0C0E1791CFF0F3F3F3
+      F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3D29518130C
+      0C0C0C0C0C0C0E0E0F0E0E0F0E1517171717160C000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000E17171717110E0F0E0E0E
+      0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0D0C0F1693D2F3F3F3F3F3F3F3F3F3F0CFCF9091901614141414
+      141414131990909507D2F3F3F3F3F3F3F3F3F3F0971A130C0C0E0E0F0E0E0E0F
+      1517171717160B00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000014171717160F0E0E0E0F0E0E0E0E0D0E0E0E0E0D0E0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E
+      0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C101ACFF3F3F3F3
+      F3F3F3E8CF9116140C0C0C0C0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0F
+      131995D0F3F3F3F3F3F3F3E893180E0E0E0F0E1517171717160C000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000C171717
+      17130E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D
+      0D0C0D0C0D0C0D0C0D0C0F1AD2F3F3F3F3F3F3D29316100C0C0C0C0C0C0C0C0C
+      0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B139097E9F3F3F3
+      F3F3F096140F1517171717160B00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000011171717170F0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C1797F3F3
+      F3F3F3F096180F0C0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0C0B0C0B0B0C
+      0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B1392D0F3F3F3F3F3E995181717150C
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000B0C0E17171717140E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C
+      0D0C0D0C0D0D0C0D0C0D0C0D0C0F91E8F3F3F3F3E996170D0D0D0D0D0D0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0B0C0B0C0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B
+      0B000B0B000B00000E19D0F3F3F3F3F3CF900C00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000B0C1010131616171717171717100E0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C10
+      96E9F3F3F3F397190E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B
+      0C0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B000B0010
+      92E9F3F3F3F30714000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000C0D0F
+      131317171717171717171717171717160E0F0E0E0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D1096F3F3F3F3F091110E0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0C
+      0B0B0B0B0B0B0B0B0B0B0B000B0B000B00000B0000001707F3F3F3F3D3170000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000B0C0E10131517171717171717171717171717171717
+      171717130E0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C
+      0D0D0C0F95F3F3F3F3E8190E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B
+      000B0B000B0B000B000B00001093F3F3F3F3D311000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000B0C101013161617
+      17171717171717171717171717171717171717171614130F0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0F91E9F3F3F3E8190E0E0E
+      0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C
+      0C0B0C0B0C0B0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B000B0B000B00000B000B00
+      00000EF7F3F3F3F3070F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C0D0F1313171717171717171717171717171717171717171717
+      171715141311100E0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C
+      0D0C0D0C0D0C0D0D17E8F3F3F3E8190E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0B0C0B0B0B
+      0B0B0B0B0B0B0B0B0B0B000B0B000B0B000B00000B0000000EF7F3F3F3F3910B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000B161717171717
+      17171717171717171717171717171717151313100F0E0E0F0E0E0E0E0F0E0E0E
+      0E0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D10CFF3F3F3F0
+      190E0F0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C
+      0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B00
+      0B0B000B00000B00000B000000000E98F3F3F3E9170000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000D171717171717171717171717171717161413
+      11100F0E0E0E0E0F0E0F0E0E0E0F0E0E0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0E0E0E0D0E0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0D0C0D0C0D0D0C1AF0F3F3F392100F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B
+      0C0C0B0C0B0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B000B00000B00
+      0000000013D3F3F3F3070D000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      001016171717171717171715141311100E0E0F0E0E0E0E0E0F0E0E0E0E0E0E0F
+      0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0E0E0E0F0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C10
+      CFF3F3F3D0130E0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B
+      0B0B0B0B0B0B0B0B0B000B0B000B000B000B00000B0000000000F8F3F3F3E917
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000013171717161413100F0E0E
+      0E0E0E0E0F0E0E0F0E0F0E0E0E0F0E0F0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0E0E0E0E0F0E0E0E
+      0F0E0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C19F0F3F3F0900F0F0E0F0E0F0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B
+      0B000B000B000B00000B00000000000E98F3F3F3960B00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000017171717130E0E0E0E0E0F0E0F0E0E0E0E0F0E0E0E0F0E
+      0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D
+      0D0D0D0E0D0D0E0D0E0E0E0E0E0F0E0E0E0E0F0E0E0E0F0E0E0F0E0E0E0F0E0F
+      0E0F0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0C0F95F3F3F3D0130F0F0F0F0E0F0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B
+      0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B
+      000000000019F3F3F3E80F000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000C171717
+      17100E0F0E0F0E0E0E0E0F0E0F0E0E0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0E0E0E0F
+      0E0E0F0E0F0E0E0E0F0E0E0E0F0E0E0F0E0E0E0E0E0E0F0E0F0E0F0E0E0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0D10D2F3F3F3910F0F0F
+      0F0E0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B
+      0B0B0B0B0B0B0B0B000B0B000B0000000B000B000000000000000FD0F3F3F319
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000010161717170E0E0E0F0E0E0F0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0D0E0D0D0E0E0E0E0F0E0E0E0F0E0E0E0E0F111313151515
+      151515141313100F0E0E0E0E0E0E0E0E0E0F0E0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0D0D0D0C0D15F0F3F3E8150F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C
+      0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B
+      000B0B000B00000B000000000000000C93F3F3F3930000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000013171717150F0E0E0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E
+      0E0E0E0F0E0E0F0E0E0E1114151717171717171717171717171717171513100E
+      0F0E0F0E0E0E0E0E0E0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D18F3F3
+      F398110F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C
+      0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B00000B00000B000B00
+      000000000017E9F3F3D00B000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000015171717130E0F0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0E0E0F0E0E0E0F0E0F13161717
+      1717171717171717171717171717171717171715110F0E0E0F0E0F0E0E0E0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C96F3F3F392100F0F0F0F0F0F0F0F0F0F
+      0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B
+      0B0B0B0B0B0B0B000B0B000B0B000B00000B00000000000000000FE8F3F3D30F
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000B16171717110E0E0E0E0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0E0F0E0E0E0F0E0F141717171717171717171717171717171717
+      17171717171717171716130F0E0E0E0E0F0E0E0E0C0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D96F3F3F01A100F100F0F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E
+      0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B00
+      0B000B000B00000B000000000000000BD0F3F3E90F0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000000C
+      171717170F0F0E0F0E0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0F0E0E0E0F0E0F
+      1317171717171717171717171313100F100F1013141717171717171717171716
+      110F0E0E0E0E0F0E0E0C0D0D0D0D0C0D0D0D0C0D0D0ED2F3F3F015100F100F10
+      0F100F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B
+      0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B0000
+      000000000BF7F3F3E90F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000010161717170E0E0E0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0E0E0E0E0F0E0E11161717171717171716110E0B00
+      000000000000000000000C0F14171717171717171715100E0F0E0E0E0E0E0D0D
+      0C0D0D0D0C0D0D0D0ED2F3F3F016100F100F100F100F0F0F0F0F0F0F0F0F0F0F
+      0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B
+      0B0B0B0B0B0B000B0B000B000B000B000B00000000000000000093F3F3F31700
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000011171717150E0F0E0F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0F
+      0E0F0E0E0F1417171717171717130E0000000000000000000000000000000000
+      000B101516171717171716110E0E0F0E0E0E0E0D0D0D0C0D0D0D0C0FD2F3F3D2
+      11101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C
+      0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B
+      0000000B00000B000000000000000091F3F3F317000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001417171714
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0F0E0E0E0E101517171717171713
+      0C00000000000000000000000000000000000000000000000E15171717171717
+      140E0E0F0E0E0E0E0D0D0D0C0D0D0FD2F3F3D2131010101010100F100F100F0F
+      100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C
+      0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000B000000
+      0000000017F3F3F3110000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000017171717130E0F0E0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0E0E0E0E0F0E10161717171717150C00000000000000000000000000
+      000000000000000000000000000010151717171717150F0E0E0F0E0E0E0C0D0D
+      0D0CCFF3F3D31110101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F
+      0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B
+      0B0B0B0B0B000B0B000B000B000B000B00000000000000000017F3F3E90F0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000B17171717100E0E0F0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0E0F0E0E0E101617
+      1717171710000000000000000000000000000000000000000000000000000000
+      0000000B141717171717150F0E0E0E0F0E0D0D0D0D96F3F3D213101010101010
+      101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B00
+      0B000B00000B00000000000000001AF3F3E90F00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000C171717170F0E0F0E0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0E0E0E0F0E101617171717150D0000000000000000
+      0000000000000000000000000000000000000000000000000011171717171715
+      0F0E0E0E0E0E0D0D93F3F3F0131011101010101010101010100F100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E
+      0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B
+      0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B00000000
+      00000093F3F3E90B000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000010161717170E0E0E0E0F0E0E0E0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0F
+      0E0E0E0F1617171717160C000000000000000000000000000000000000000000
+      00000000000000000000000000000E1717171717140F0E0F0E0E0E19F3F3E916
+      11101010101010101010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F
+      0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0B000B0B000B000B000B000B00000000000000000093F3F3D00B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001017
+      1717150E0F0E0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0E0E0F0E0F1517171717140B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000E1717171717130E0E0F0E16F3F3F31611101110111010101010101010
+      1010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E
+      0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C
+      0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0000
+      000B00000B0000000000000000D0F3F393000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000013171717150E0E0F0E0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0F0E0E0E0E1317171717160B000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000E1717171717100E
+      0E13E9F3F3901111101110101110101010101010101010100F100F100F100F0F
+      0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D
+      0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C
+      0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000B0000000000
+      000BD0F3F31A0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000013171717130F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0E0E0E0F0E0F101717
+      1717160B00000000000000000000000000000000000000000000000000000000
+      000000000000000000000000001016171717160E0FD2F3F39610111110111110
+      101110101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E
+      0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B
+      0B0B0B000B0B000B000B000B000B000000000000000010E9F3F3110000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000017171717130E
+      0E0F0E0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0D0D0D0E0D0D0E0D0D0D0E0E0E0E0E0F15171717170E000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000013171717171393F3F3D01111111111101110111011101010101010101010
+      10100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B00
+      0B00000B0000000000000014F3F3E90B00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000017171717100E0F0E0E0E0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0E
+      0F0E0F0E13171717171300000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B1517171792F3F3F014
+      11111110111110111011101011101010101010101010100F100F100F0F0F0F0F
+      0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E
+      0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B
+      0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B000000000000
+      91F3F30700000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000C16171717100E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0E0E0E0E0F16171717150B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000D171718F0F3F31811111111111111111011101110
+      1010101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E
+      0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B
+      0B0B000B0B000B000B000B000B0000000000000000D0F3F31900000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000111314131314131314131314100F100F0C0C0B0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000C171717170F0F0E0E0E0E
+      0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D
+      0D0E0D0D0E0D0E0F0E0F0E13171717170E000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1317D0F3F3931111111111111111111110111011101110101010101010101010
+      100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C
+      0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0000000B
+      00000B0000000000000EE9F3F30F000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000B17171717
+      17171717171717171717171717171717151310100C0B00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000C171717170E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0E0E0E0E0F16
+      1717171500000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000C93F3F3D213111111111111
+      111111111110111011101110101010101010101010100F100F100F0F100F0F0F
+      0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D
+      0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C
+      0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000B000000000014F3
+      F3D0000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000001017171717171717171717171717171717
+      171717171717171717171713100E0C0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000101617
+      17170E0F0E0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0E0E0F0E0E11171717170E0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000BF0F3F31711111111111111111111111111101110111010
+      11101010101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E
+      0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B
+      0B000B0B000B000B000B000B0000000000000096F3F31A000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000001617171717171717171717171717171717171717171717171717171717
+      1717171713000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000010171717160E0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0E0E0E0F0E1517171715000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000096F3F393
+      1311131111111111111111111111111011101110101010101010101010101010
+      0F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B00
+      000B00000000000CE9F3E90E0000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000E171717171413111313
+      131514151514171717171717171717171717171717171717170B000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000010161717150E0F0E0E0E0E0E0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0E0E0F0E0E0F171717171000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000011F3F3D313111311131111111111111111
+      1111111110111011101110101010101010101010100F100F100F100F0F0F0F0F
+      0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D
+      0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B
+      0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B0000000019F3F398
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000013171717160E0E0F0E0E0E0E0F0E0E0E0E0E0E101011
+      131415171717171717171717170D000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000010171717150E0E
+      0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0D0D0D0E0D0D0E0D0E0E0E0F11171717170B00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000D3F3F31913111313111311111111111111111111111110111011101110
+      101010101010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F
+      0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B
+      000B0B000B000B000B000B00000000000007F3F3110000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000B1717
+      1717130F0E0E0E0F0E0E0E0E0F0E0F0E0E0E0F0E0E0E0E0E0F10131515171717
+      1710000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000013171717150E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0E0F0E0E
+      0E14171717150000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000019F3F397131313111311
+      131113111111111111111111111110111011101011101010101010101010100F
+      100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C
+      0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0000000B0000
+      0B0000000010F3F3D30000000000000000000000000000000000000000000000
+      000000000000000000000000000000000010171717170F0E0E0F0E0E0F0E0F0E
+      0E0E0E0F0E0E0E0E0F0E0F0E0E0F0E0E0E151717171300000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0013171717150E0E0E0F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0E0F0E0E1717171710000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000BF0F3F014131313111313111311111111111111111111
+      11111110111011101010101010101010101010100F100F100F100F0F0F0F0F0F
+      0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D
+      0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B
+      0B0B0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000B00000093F3F3170000
+      00000C0000000000000000000000000000000000000000000000000000000000
+      000000000016171717140E0F0E0E0E0F0E0E0E0E0F0E0E0E0F0E0F0E0E0E0E0E
+      0F0E0E0F0E131717171600000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000013171717140E0F0E0E0E0E
+      0F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E
+      0D0D0E0D0E0F0E0E0F171717170E000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000001AF3F3
+      F713131313131113131113111311111111111111111111111011101110111010
+      1010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C
+      0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B00
+      0B0B000B000B000B000B000000000CE9F3E90B000C1317150C00000000000000
+      0000000000000000000000000000000000000000000000000E17171717110E0E
+      0E0F0E0D0E0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0F0E0E10171717170B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000013171717130E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E0E0E0E0F10171717
+      170C000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000BF0F3E8151313131313111311131311
+      1113111111111111111111111110111011101110101010101010101010100F10
+      0F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B
+      0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B00000B
+      000000F8F3F3921417171717160B000000000000000000000000000000000000
+      00000000000000000000000013171717160E0F0E0E0E0E0D0D0D0D0D0D0D0E0D
+      0E0D0E0D0E0E0E0E0E0E0E0E0F0F171717170D00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000131717
+      17130E0F0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0E0D0D0E0D0E0E0F0E0E11171717170000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000001AF3F391131313131313131313111311131111111111111111111111
+      111110111011101011101010101010101010100F100F100F0F0F0F0F0F0F0F0F
+      0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D
+      0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B
+      0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B000CE9F3F01817171717
+      17160C000000000000000000000000000000000000000000000000000000000B
+      17171717130E0E0F0E0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D0D0E0E0E0F
+      0E0E171717171000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000013171717130E0E0E0F0E0F0E0E0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0E0D0D0D0E
+      0E0E0E0F13161717160000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000BF0F3E81313131313
+      1313131311131311131113111111111111111111111111101110111010101010
+      10101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B
+      0B000B000B000B000B000000F8F3F396171717171717160B0000000000000000
+      0000000000000000000000000000000000000011171717170F0F0E0E0E0E0E0D
+      0D0E0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0E0E0E0F14171717130000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000013171717130E0F0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0E0D0D0E0D0E0D0D0E0D0E0D0E0F0E0E1317171713000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000001AF3F3911313131313131313131313111313111311
+      13111111111111111111111110111011101110101010101010101010100F100F
+      100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B
+      0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0000000B00000B00
+      0CE9F3E917171617171717170E00000000000000000000000000000000000000
+      0000000000000B15171717150E0E0E0F0E0D0D0E0D0D0D0D0E0D0D0E0D0D0D0E
+      0D0D0D0D0D0E0E0F0E0E13171717150000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001417171716130F
+      0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0E0E0E0E0F1117171713000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000000D3
+      F3F0141314131313131313131313131113131113111111111111111111111111
+      1110111011101110101010101010101010100F100F100F0F100F0F0F0F0F0F0F
+      0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D
+      0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B
+      0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000090F3F3910F0F1617171717
+      170E0000000000000000000000000000000000000000000000000E1717171711
+      0E0F0E0E0E0E0D0D0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0E0D0E0E0E0E0F1116
+      1717170B00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000001717171717171714100E0E0E0F0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0D0E0E0F0E0E
+      1317171713000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000017F3F39513141313131313131313
+      1313131311131311131113111111111111111111111110111011101011101010
+      101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C
+      0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B
+      000B000B000B000B000CF3F3D20E0E0F1517171717170E000000000000000000
+      000000000000000000000000000014171717160E0F0E0E0E0E0D0D0E0D0D0D0E
+      0D0D0E0D0E0D0D0E0D0E0D0D0D0D0E0F0E0E0F171717170C0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0016171717171717171715110E0E0E0F0E0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0E0E0F111717171300000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000D0F3F31514131413141313131313131313131311131113111311
+      111111111111111111111110111011101010101010101010101010100F100F10
+      0F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D
+      0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C
+      0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B000000F7F3
+      F3160E0E0F1517171717170F0000000000000000000000000000000000000000
+      000C17171717130E0E0E0F0E0D0E0D0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0E0E0E0E0F0E17171717100000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000B0E151717171717171717
+      16130F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0E0D0D0E0E0F0E0E131717171600000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000FF3F398131413
+      1413131413131313131313131313131113111311131111111111111111111111
+      10111011101110101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F
+      0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B
+      0B0B0B0B0B0B0B000B0B000B000B000B000010F3F3960F0E0E0F151717171717
+      11000000000000000000000000000000000000000011171717170F0E0F0E0E0E
+      0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0E0F0E0E0E1517171713
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000E13171717171717171716140F0E0F0E0E0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0E0E0E0E0F11171717
+      1700000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000093F3F318141413141314131313131313131313
+      1313131113131111131111111111111111111111111011101110111010101010
+      1010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E
+      0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B00
+      0B000B000B0000D0F3F3100E0E0E0F1417171717171100000000000000000000
+      00000000000000000B15171717150E0E0E0F0E0D0E0D0D0E0D0D0E0D0E0D0D0E
+      0D0D0E0D0E0D0D0D0D0D0E0E0E0F0E1417171714000000000000000000000000
+      000000000000000000000000000000000000000B0B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000C1117171717171717171714100E0E0E0E0E0E0F0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0D0E0D0E0D0D0D0D0F0E0E0E10171717170C00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00E9F3E814141414131413141314131313131313131313131113131111131111
+      1111111111111111111110111011101011101010101010101010100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E
+      0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B
+      0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B00000B000B17F3F3190F
+      0E0E0E0F1317171717171100000000000000000000000000000000000E171717
+      17100F0E0E0E0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0E0D0D0E
+      0F0E0E1117171717000000000000000000000000000000000000000000000000
+      0000000000000E16150F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000B10161717171717
+      17171715110F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0D0E0D0E0D
+      0E0F0E0E0F171717170D00000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000014F3F3931414131414131413
+      1413131313131313131313131311131311111311111111111111111111111110
+      111011101010101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F
+      0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D
+      0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B
+      0B0B0B0B0B0B000B0B000B0B000B000CE9F3D20E0F0E0E0E0F13171717171713
+      0B00000000000000000000000000000014171717160E0E0F0E0E0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0E0E0E0E0F10171717170C000000
+      0000000000000000000000000000000000000000000000000B13171717171300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000B0E15171717171717171715130F0E0E0E0E
+      0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0E0D0E0E0E0F0E0E16171717100000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000093F3F3171414141414131414131413141313131313131313
+      1313111313111311131111111111111111111111101110111011101010101010
+      10101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C
+      0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B
+      00000B00F7F3F3110E0F0E0E0E0F131717171717140B00000000000000000000
+      0000000C17171717130E0E0E0F0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D
+      0E0D0D0D0D0D0D0E0F0E0E0E171717170F000000000000000000000000000000
+      00000000000000000000001017171717171717160C0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000E13171717171717171716140F0E0F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D
+      0E0D0D0D0D0D0D0D0E0E0E0E0F14171717140000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000E9F3CF14
+      1414141414141314131413131413131313131313131313111313111311111111
+      11111111111111111110111011101110101010101010101010100F100F100F0F
+      100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D
+      0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C
+      0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B000B15F3F3900E0E0F0E
+      0E0E0F111717171717140B00000000000000000000000011171717170F0E0F0E
+      0E0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0E0E0E0F0E
+      15171717110000000000000000000000000000000000000000000000000C1417
+      1717171717171717171000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000C11161717
+      17171717171714100E0E0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0E0D0E0D0F0E0E
+      0E11171717170B00000000000000000000000000000000000000000000000000
+      00000000000000000000000000000014F3F39114141414141414141413141314
+      1313131313131313131313131113131113111311111111111111111111111011
+      1011101011101010101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F
+      0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D
+      0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B
+      0B0B0B0B0B000B0B000B00000BE9F3CF0E0E0E0F0E0E0E0F101717171717140B
+      000000000000000000000B15171717140E0F0E0E0E0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0E0E0E0E0E141717171400000000000000
+      0000000000000000000000000000000B1017171717171717171717171717130B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000B1015171717171717171716110E0E
+      0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0E0D0D0E0D0E0D0E0D0E0F0E0F0F171717170F0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000093F3F31714141414141414141413141413141314131313131313131313
+      1311131113111311111111111111111111111110111011101010101010101010
+      101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B
+      00F7F3F30F0E0E0E0F0E0E0E0F101717171717160B0000000000000C0E101417
+      171717100F0E0E0F0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0E0D0D0D
+      0D0D0D0E0E0F0E0E131717171700000000000000000000000000000000000000
+      00000D16171717171717150F10161617171717160B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000B0E15171717171717171716130F0E0E0E0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D
+      0D0D0D0D0E0E0E0E0E0E15171717150000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000E9F3D3151414141414
+      1414141414131413141313131313131313131313131313111311131113111111
+      111111111111111110111011101110101010101010101010100F100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E
+      0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B
+      0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0017F3F3190E0E0E0E0F0E0E
+      0E0F101717171717160B000C0F131617171717171717160E0E0E0F0E0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0E0E0F0E10171717
+      170C0000000000000000000000000000000000000B1317171717171716110E0F
+      0E0F141717171717170E00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000D13
+      171717171717171717140F0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E0E0F0E0E1117
+      1717170D00000000000000000000000000000000000000000000000000000000
+      000000000000000000000FF3F395151414141414141414141414141314131413
+      1413131313131313131313111313111113111111111111111111111111101110
+      11101110101010101010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F
+      0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D
+      0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0B000B0B000B0CF3F3960E0E0E0E0E0E0F0E0E0E101617171717161517
+      17171717171717171717130E0F0E0E0E0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E
+      0D0D0D0D0E0D0D0D0D0D0D0D0F0E0E0E0F161717170E00000000000000000000
+      000000000000001015171717171717140F0F0E0E0E0E0E111717171717171100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000C1116171717171717171715
+      100E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0E0D0E0D0E0E0E0F0E0F16171717130000000000000000
+      00000000000000000000000000000000000000000000000000000000000019F3
+      F319141415141414141414141414141314141314131413131313131313131313
+      1113131111131111111111111111111111111011101110101110101010101010
+      1010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E
+      0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C
+      0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000BD0F3
+      E80E0E0E0D0E0E0E0E0F0E0E0F16171717171717171717171717171717170F0E
+      0E0E0F0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0E0E0F0E0E16171717100000000000000000000000000000000C141717171717
+      1716100E0E0E0E0F0E0F0E0E10161717171717130B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000B101517171717171717160E0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0E0F0E0E0E14171717170D00000000000000000000000000000000000000
+      00000000000000000000000000000000000096F3F01514151414141414141414
+      1414141413141314131313131313131313131313131113131111131111111111
+      1111111111111110111011101010101010101010101010100F100F100F100F0F
+      0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E
+      0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C
+      0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B0090F3F3110E0E0E0D0E0E0E0E0F0E
+      0E101617171717171717171717151413100F0F0E0F0E0E0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0E0E0E0E0F14171717150E0B
+      00000000000000000000000B1017171717171717130F0E0F0E0F0E0E0E0E0F0E
+      0E0F151717171717140B00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0B0E151717171717170E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0D0E0E0E0E0D0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0E0D0E0E0E0F0E0F17171717
+      150B000000000000000000000000000000000000000000000000000000000000
+      000000000000E9F3CF1514151415141414141414141414141414131413141314
+      1313131313131313131311131311131113111111111111111111111110111011
+      101110101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E
+      0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D
+      0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B
+      0B0B0B000B0B13F3F3190E0E0E0D0E0E0E0E0E0F0E0E0F161717171717151310
+      0F0E0E0E0F0E0E0E0E0E0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0E
+      0D0D0D0D0D0D0D0D0E0E0F0E0E13171717171715110C00000000000000000D16
+      171717171717150F0E0E0E0E0E0E0E0E0F0E0E0E0F0E0E141717171717150B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000D13171717170F0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0D0D0E0D0E0D0E0D0E0D0E0E0E0E0E13171717171000000000000000000000
+      000000000000000000000000000000000000000000000000000FF3F396141514
+      1514151414141414141414141414131413141313141313131313131313131311
+      1313111311111111111111111111111111101110111011101010101010101010
+      10100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0B0C0C0B0C0B0C0B0C0B0F0B0B0B0B0B0B0B0B0B0B000B0BF3F3960E0D
+      0E0E0D0E0E0E0E0E0E0F0E0F151514100F0E0E0E0E0F0E0E0E0F0E0F0E0E0E0D
+      0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E
+      0F101617171717171717140E000000000B1317171717171716110E0F0E0F0E0F
+      0E0F0D0D0D0E0F0E0E0E0F0E111717171717160B000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C17171717100E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0E0E
+      0E0F0E0F0E16171717170C000000000000000000000000000000000000000000
+      0000000000000000000000000017F3F31A151514151414151414141414141414
+      1414141413141314131313131313131313131313111313111311131111111111
+      11111111111110111011101011101010101010101010100F100F100F0F0F0F0F
+      0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D
+      0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0D
+      95970B0B0B0B0B0B0B0B0B0B0B000BD0F3D20E0E0D0E0E0D0E0E0E0F0E0E0E0E
+      0E0F0E0E0E0E0F0E0E0E0F0E0E0E0E0E0F0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0F0E0E0E0F15171717171717171717
+      150E0B0E16171717171717140F0F0E0E0E0E0E0E0E0D0D0C0D0C0E0E0F0E0E0E
+      0F101617171717160C0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0017171717110F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0E0D0D0E0E0E0E0E0F1017171717160B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0091F3F315151514151514151414141414171414141414141314141314131413
+      1313131313131313131113111311131111111111111111111111111011101110
+      1010101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E
+      0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0DD2F3F00B0B0B0B0B0B0B0B0B0B
+      0B0B0092F3F30E0E0E0D0E0E0D0E0E0E0E0F0E0F0E0E0E0F0E0E0E0F0E0E0E0F
+      0E0F0E0E0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D
+      0D0D0D0D0D0E0E0F0E0E0E0F131616171717171717171717171717171716100E
+      0E0E0E0F0E0F0E0E0C0D0C0D0D0C0D0E0E0E0F0E0E0E101617171717150C0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000014171717130E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0E
+      0D0E0D0E0D0E0D0D0E0E0F0E0E0E1417171717140B0000000000000000000000
+      00000000000000000000000000000000000000000007F3D31515151514151415
+      1415141414D29815141414141413141314131314131313131313131313131311
+      1311131113111111111111111111111110111011101110101010101010101010
+      100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C
+      0B0C0C0B0C11E8F3F3F3110B0B0B0B0B0B0B0B0B0B0B0B19F3F3160D0E0E0D0E
+      0E0D0E0E0E0E0E0E0E0F0E0E0F0E0E0E0F0E0E0E0E0D0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0F0E0E
+      0E0E1114171717171717171717171717130F0E0F0E0F0E0E0E0E0D0C0D0D0C0D
+      0C0D0C0D0D0E0E0E0F0E0E0F1617171717160B00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000013171717150E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E
+      0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0D0D0D0D0D0E0D0E0E0E0E
+      0F0E0F1517171717140B00000000000000000000000000000000000000000000
+      000000000000000000E9F3D015151415151514151415141514F3F3F090141414
+      1414141314131413131313131313131313131311131311111311111111111111
+      111111111110111011101110101010101010101010100F100F100F0F100F0F0F
+      0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D
+      0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B11F0F3F3F3F31A0B
+      0C0B0B0B0B0B0B0B0B0B0B13F3F3190E0E0D0E0E0D0E0E0D0E0E0F0E0E0E0F0E
+      0E0E0E0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0E0E0F0E0E0E0F0E0E0E0E0F13161717171717
+      1717150F0E0E0E0E0E0E0E0E0D0D0D0D0D0C0D0D0C0D0D0C0D0D0E0F0E0E0F0E
+      101617171717160B000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000101617
+      17160E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0E0D0D0E0D0E0D0E0D0E0D0D0D0E0E0E0E0E0E101617171717140B00
+      000000000000000000000000000000000000000000000000000000000BF3F396
+      15151515151514151514151419F3F3F3F3CF1514141414131414131413141313
+      1313131313131313111313111113111111111111111111111111101110111010
+      11101010101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E
+      0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0B17F0F3F39FF3F3950B0B0B0B0B0B0B0B0B0B0B0B0B
+      F3F3910E0D0E0E0D0E0E0D0E0E0D0E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0E0E0E0F0E0E0F0E0F0E0E0E0F111617171716130E0F0E0F0E0F0E0F0D0D
+      0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0E0E0F0E0E0E0F1517171717160B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000D171717170F0E0E0E0F0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0D
+      0E0D0D0E0D0D0E0E0F0E0E0E101717171717160B000000000000000000000000
+      0000000000000000000000000000000011F3F391151515151515151415141415
+      91F3F3F3F3F3F090141414141314131413131413131313131313131313111313
+      1111131111111111111111111111111011101110101010101010101010101010
+      0F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C18F3
+      F3F39A02A7F3CF0B0C0B0C0B0B0B0B0B0B0B0B0BD3F3CF0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0E0E0E
+      0F0E0E0F0E1316150F0E0E0E0E0E0E0E0E0D0D0D0D0C0D0D0C0D0C0D0C0D0D0C
+      0D0D0C0D0E0E0E0F0E0E0F1517171717160B0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000B17171717100F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0E0D0E0E0E0F0E0E
+      0E111717171717170F0000000000000000000000000000000000000000000000
+      0000000017F3F31A15151515151515151514151495F3F370E3F3F3F3CF151414
+      1414131413141313131313131313131313131113131113111311111111111111
+      1111111110111011101110101010101010101010100F100F100F100F0F0F0F0F
+      0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D
+      0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C18F3F3F34402129FF3F30C0B0B0B0B
+      0B0B0B0B0B0B0B0B07F3CF0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0F0E0E0E0F0E0E0E0E0E0E0F0E0F
+      0E0F0E0E0C0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0C0C0D0E0E0E0E0F0E0F
+      1617171717160000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000016171717130E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0E0F0E0E0E11161717171717130C00
+      0000000000000000000000000000000000000000000000001AF3F31515151515
+      1515151515141515D2F3EC605DAEF3F3F3F09014141413141413141314131313
+      1313131313131311131311131111111111111111111111111110111011101110
+      101010101010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F
+      0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D
+      0C0C0C0C18F3F3F34412121294F3F30F0C0B0C0B0C0B0B0B0B0B0B0B95F3F30E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0E0E0F0E0E0E0F0E0F0E0E0E0E0E0E0E0D0C0D0D0D0D0D0C0D0D
+      0C0D0C0D0D0C0D0C0D0C0D0C0C0D0E0E0F0E0E0E0F1617171717140B00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000013171717150E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0E0E0E0F0E0E0E1016171717171717110B0000000000000000000000
+      00000000000000000000000096F3F315151515151515151515151415D2F3DB60
+      5D5D70E3F3F3F3CF151414131413141313131313131313131313131311131311
+      131113111111111111111111111110111011101011101010101010101010100F
+      100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C19F3F3F34412121212
+      3CF3F3140C0B0B0C0B0B0B0B0B0B0B0B90F3F30E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0F0E
+      0E0E0E0F0E0F0E0E0D0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C
+      0D0C0D0E0E0E0F0E0E101617171717140B000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000010161717170E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0E0D0D0E0D0E0E0E0F0E0E0E
+      0F1417171717171717110C0000000000000000000000000000000000000B0E14
+      D2F3D216151515151515151515151514F3F3C16060605D5DAEF3F3F3F0901414
+      1413141314131413131313131313131313111311131113111111111111111111
+      11111110111011101010101010101010101010100F100F100F100F0F0F0F0F0F
+      0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D
+      0D0D0D0D0D0D0D0C0C0D18F3F3F3441B1212121225F3F3180B0C0B0B0C0B0B0B
+      0B0B0B0B18F3F3150E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0F0E0E0E0E0E0E0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0C0E0E0E0F0E0E0F16
+      171717170F000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000C17171717100E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0E0E0F0E0E0F0E13171717171717171715
+      100D0000000000000000000000000B0E13151717D2F3D2151615151515151515
+      15151515F3F3BC606060605D5D70E3F3F3F3CF15141413141314131413131313
+      1313131313131311131113111311111111111111111111111011101110111010
+      1010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C19F3F3
+      F3441B1B121B121212F3F3910B0C0B0C0B0C0B0C0B0B0B0B14F3F3150E0E0D0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E
+      0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0E0F0E0E0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0E0E0E0E0F0E15171717170B00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000B16171717110E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0E0D0E0D0E0E0F0E0E0E0E0F151717171717171717171714130F100F100F1010
+      1316171717171717F1F3D015151615151515151515151519F3F3A96160606060
+      5D5D53AEF3F3F3F0901414131413141313131313131313131313131113131111
+      1311111111111111111111111110111011101110101010101010101010100F10
+      0F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D15F3F3F3441B1B1B121B121212F3F391
+      0B0C0C0B0B0B0C0B0B0B0B0B14F3F3150E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0E0D0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E
+      0C0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C
+      0C0E0E0F0E0E1017171717110000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000E17
+      171717140F0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0E0E0E0F0E0E0E
+      0E101517171717171717171717171717171717171717171717171717F3F39616
+      15161515151515151515151AF3F3836161606060605D5D536BDBF3F3F3CF1514
+      1314131413141313131313131313131311131311111311111111111111111111
+      111110111011101011101010101010101010100F100F100F0F0F0F0F0F0F0F0F
+      0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D
+      0D0D0D13F0F3F3451B1B1B1B1B121B1212D6F3CF0C0B0C0B0C0B0B0C0B0B0B0B
+      11F3F3900E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0E0D0D0E0D0D0E0D0E0D0D0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0D0C0D0D0C0D0D0C0C0D0C0C0D0C0D0C0E0E0E0E0F14171717170B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000E1717171717150E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0D0D0D0D0D0E0E0E0E0F0E0F0E0E0E101417171717171717
+      17171717171717171717171717171715F3F3961615161516151515151515151A
+      F3F383616161606060605D5D5353ABF2F3F3F091141413141313131313131313
+      1313131313111313111113111111111111111111111111101110111010101010
+      10101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D11E9F3F3451B1B1B1B1B
+      1B1B121B12A7F3CF0C0C0B0C0C0B0C0B0C0B0C0B0BF3F3910E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0D
+      0C0D0C0D0C0C0C0D0D0F0E0F0E0F171717171100000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000E1717171717150F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D
+      0D0D0D0E0E0E0E0E0E0F0E0E0E0F101417171717171717171717171717171717
+      1613100FF3F3961615161516151515151515151AF3F38368616161606060605D
+      5D53536BDBF3F3F3D21614131413141313131313131313131313111313111311
+      13111111111111111111111110111011101110101010101010101010100F100F
+      100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0D0E0D0E0D0D0D0D0D0FD2F3F39F1C1B1B1B1B1B1B1B1B121BA7F3CF0C0C0B0C
+      0B0C0B0C0B0B0B0B0BF3F3910E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D0D0E0D0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D
+      0D0C0D0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C0C0C0D0C0D0C0D0E0E0E0E
+      0E14171717170B00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000E1717171717150F0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0D0D0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0E0E0F0E0E0E0F
+      0E0E0F0E0E10111315151717171716151413100F0E0F0E0EF3F3961616151615
+      1615161515151593F3F3806868616161606060605D5D535353ABF2F3F3F09313
+      1413141314131313131313131313131113131113111111111111111111111111
+      1110111011101110101010101010101010100F100F100F0F100F0F0F0F0F0F0F
+      0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D97F3F3
+      A31B1B1C1B1B1B1B1B1B1B1B12D1F3CF0C0C0C0B0C0C0B0B0C0B0C0B0BF3F391
+      0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C
+      0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0D0E0F0E0F0F1717171713000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0E0D0D0D0D0D0E0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0E0E
+      0E0E0E0F0E0E0F0E0E0E0E0FF3F39615161615161516151515151596F3F36869
+      6868616161606060605D5D53535363DBF3F3F3D0171413141313131313131313
+      1313131311131311131113111111111111111111111110111011101011101010
+      101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E93F3F3D61D1C1B1C1B1B1B1B1B1B1B1B
+      1BA7F3CF0C0C0C0C0B0C0C0B0C0B0B0C0BF3F3910E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0C0D
+      0C0D0C0E0E0E0E0E14171717170C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000E1717
+      171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D
+      0D0D0D0D0E0E0E0F0E0E0E0F0E0E0E0F0E0F0E0F0E0F0E0E0E0F0E0E0F0E0E0E
+      F3F39616161615161615161516151596F3F37474686868616161606060605D5D
+      53535352ABF2F3F3F09514131413141313131313131313131311131113111311
+      111111111111111111111110111011101010101010101010101010100F100F10
+      0F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D
+      0E0D0E19F3F3EE1D1C1C1B1C1B1C1B1B1B1B1B1B1BD1F3CF0C0C0C0C0C0B0C0C
+      0B0C0B0B0CF3F3910E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0C0D0C0C0C0C0D0F0E0F0E0F16171717
+      1300000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000E1717171717150F0E0E0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0E0E0E0E0E
+      0F0E0E0E0F0E0E0E0E0E0E0F0E0E0E0F0E0E0F0EF3F396161616161516151615
+      15151596F3F3747474696868616161606060605D5D535353525FD9F3F3F3D318
+      1314131313131313131313131313131113111311131111111111111111111111
+      10111011101110101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F
+      0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E14E9F3F32E1C1C1C1C1B
+      1C1B1C1B1B1B1B1B1BD1F3CF0C0C0C0C0B0C0C0B0C0B0C0B0BF3F3910E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E
+      0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C
+      0D0C0C0D0C0D0C0D0C0D0E0E0E0E0E13171717170E0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0E0D0E0E0F0E0E0E0E0F0E0F0E0E0E
+      0F0E0E0E0E0E0D0DF3F39616161616161516151615161593F3F3827474746968
+      68616161606060605D5D535353535273F2F3F3F3951314131413131313131313
+      1313131113131111131111111111111111111111111011101110111010101010
+      1010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E
+      0E0E0E0E0E0E0E0E0E0FD2F3F3461C1C1C1C1C1C1B1C1B1C1B1B1B1B1BD1F3CF
+      0C0C0C0C0C0C0C0B0C0C0B0C0BF3F3910E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0C0D0D0D0C0D0C0D0C0D0C0D0E0E
+      0F0E0F1617171715000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000E1717171717150F0E0E
+      0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0E0E0E0E0E0E0E0E0E0E0E0D0E0D0D0D0D0DF3F39616
+      161616161615161615161590F3F38575747474686868616161606060605D5D53
+      535352525FD9F3F3F3E819141314131313131313131313131113131111131111
+      1111111111111111111110111011101011101010101010101010100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E96F3F3
+      A31C1C1C1C1C1C1C1C1B1C1B1C1B1B1B1BD1F3CF0C0C0C0C0C0C0B0C0C0B0C0B
+      0CF3F3910E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0E0E0E0E0F11171717170E00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF3F3961616161616161615161515161A
+      F3F3857575747474696868616161606060605D5D53535352525270ECF3F3F396
+      1513131313131313131313131311131311111311111111111111111111111110
+      111011101010101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F
+      0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E19F3F3D71E1C1C1C1C1C1C1C1C1C1B1C
+      1B1C1B1B1BD1F3CF0C0C0C0C0C0C0C0C0C0B0C0C0BF3F3910E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0C
+      0C0C0C0C0D0E0F0E0E0E16161717150000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000E171717
+      1717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0E0D0D0D0D
+      0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0DF3F39616161616161616161516161590F3F385757575747474696868
+      616161606060605D5D5353535252525FBDF3F3F3F09014131313131313131313
+      1313111313111311131111111111111111111111101791939393181010101010
+      10101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E
+      0E0E0E14F0F3EE2E1D1C1D1C1C1C1C1C1C1C1C1B1C1B1C1B1BD7F3CF0C0C0C0C
+      0C0C0C0C0B0C0C0B13F3F31A0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0E0E0E0F0E111717
+      1717100000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000E1717171717150F0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D
+      0E0D0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF0F3D01616161616
+      1616161615161590F3F3B275757575747474696868616161606060605D5D5353
+      53535252516DE3F3F3F3D2161413131313131313131313111313111311111111
+      1111111111111596F0F3F3F3F3F3F3F0971410101010101010100F100F100F0F
+      100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E10D2F3F3461D1C1D1C1C
+      1C1C1C1C1C1C1B1C1B1C1B1C1BF3F3930C0C0C0C0C0C0C0C0C0C0C0B14F3F315
+      0E0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D
+      0D0D0E0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0D0C0D
+      0D0C0D0C0D0C0D0C0D0C0D0C0E0F0E0E0E16171717150B000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0E0D0D0E0D0E0D0D0E0D0D
+      0E0D0D0D0E0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0DCFF3D216161616161616161616151615F3F3C676
+      76757575747474696868616161606060605D5D5353535252525251ADF2F3F3F0
+      9513131313131313131313131113131113111311111111111597F3F3F3F3F3F3
+      F3F3F3F3F3F395131010101010100F10100F100F0F0F0F0F0F0F0F0F0F0F0F0F
+      0F0E0F0E0F0E0E0F0E0E93F3F3A31D1D1C1D1C1D1C1C1C1C1C1C1C1C1C1B1C1B
+      1BF3F3910C0C0C0C0C0C0C0C0C0C0B0C14F3F3150E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0E
+      0E0E0E0F10171717171000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000E1717171717150F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      CFF3D217161616161616161616161516F3F3CA76767575757574747469686861
+      6161606060605D5D535353535252515262DAF3F3F3D319131313131313131313
+      131113111311131111111493F0F3F3F3D5713A2F2F3A6ED5F3F3F3D315101010
+      1010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F18F3F3
+      EA221D1D1D1C1D1C1D1C1C1C1C1C1C1C1C1C1B1C25F3F31A0C0D0C0C0C0C0C0C
+      0C0C0C0C18F3F3150E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E
+      0D0D0E0D0D0E0D0D0D0E0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0D0E0F0E0E0E1517171716000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D
+      0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D96F3F3161716161616161616
+      16161615D3F3E477767676757575747474696868616161606060605D5D535353
+      52525252515172F2F3F3F398151313131313131313131311131113111318E8F3
+      F3F3D55B323231312F2F2C2C5AE0F3F3F016101010101010100F100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E10F0F3F3301D1D1D1D1D1C1D1C1D1C1C
+      1C1C1C1C1C1C1C1B3DF3F3150D0C0D0C0C0C0C0C0C0C0C0C90F3F30E0D0E0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D
+      0E0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C
+      0D0C0D0C0D0C0E0E0E0F0E101717171711000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000E17171717
+      17150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D
+      0E0D0D0E0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D91F3F317161716161616161616161616D2F3EF7776767676
+      757575747474696868616161606060605D5D5353535352525251515CBDF3F3F3
+      F0921313131313131313131113131114CFF3F3F3F171333333323231312F2F2F
+      2C37B9F3F3F016101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F
+      0F0E0F0ED0F3F3661D1D1D1D1D1D1D1C1D1C1D1C1C1C1C1C1C1C1C1C99F3F310
+      0D0C0C0D0C0C0C0C0C0C0C0C93F3F30D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0E0F0E0E0E15
+      171717170B000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000E1717171717150F0E0E0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D1AF3F31A
+      17161716161616161616161696F3F37777777676757575757474746968686161
+      61606060605D5D535353525252525151516ADAF3F3F3E8191313131313131313
+      111392F0F3F3F3B83B3434333333323231312F2F2C2C2CB9F3F3E81310101010
+      10100F10100F100F0F100F0F0F0F0F0F0F0F0F0F0F0E0F92F3F3D41E1E1D1D1D
+      1D1D1D1D1C1D1C1D1C1C1C1C1C1C1C1B9BF3F30D0C0D0D0C0D0C0C0C0C0C0C0C
+      07F3D20E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D
+      0C0D0D0C0D0C0D0C0C0D0C0D0C0E0E0E0E0F0F17171717110000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D15F3F390171716171616161616161616
+      92F3F38D787777767676757575747474696868616161606060605D5D53535352
+      525252515151519DF2F3F3F3D01913131313131319D3F3F3F3E0653434343433
+      333333323231312F2F2F2C2CB9F3F3D0101010101010100F10100F100F0F0F0F
+      0F0F0F0F0F0F0F0F0E0F15F3F3EE231E1D1E1D1D1D1D1D1D1D1C1D1C1D1C1C1C
+      1C1C1C1CD1F3D20D0D0C0D0C0C0D0C0C0C0C0C0CE8F3CF0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0C0D0C0D0D0C0D0C0C0C0C
+      0C0E0F0E0E0E14171717170B0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000E1717171717150F0E0E0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0E
+      0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D10F3F39716171716171616161616161690F3F3B57878777776767575
+      7575747474696868616161606060605D5D535353525252525151515156ADF3F3
+      F3F3CF19131692D3F3F3F3F1AA3535353434343433333333323231312F2F2C2C
+      2CD5F3F393101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F10E8F3
+      F3421E1E1E1E1D1E1D1D1D1D1D1D1C1D1C1D1C1C1C1C1C1CF3F3960D0D0D0C0D
+      0D0C0D0C0C0C0C0CF3F3910E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0D0E0E0F0E0F171717171300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF3F30717171717
+      161716161616161616F3F3CD7978787777767676757575747474696868616161
+      606060605D5D53535352525252515151515062C5F3F3F3F3F3F3F3F3F3F3C04C
+      36363535343434343434333333323231312F2F2F2C37F1F3F318101010101010
+      10100F100F100F100F0F0F0F0F0F0F0F0F96F3F39F1F1E1E1E1E1E1D1D1D1D1D
+      1D1D1D1C1D1C1D1C1C1C1C2EF3F31A0D0D0D0D0C0D0C0C0D0C0C0C15F3F3190E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C
+      0D0D0C0D0C0D0C0D0E0F0E0E0E14171717170C00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E1717171717
+      150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D
+      0E0D0E0D0E0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0DCFF3E817171717171617161616161616D2F3EF
+      797978787777767675757575747474696868616161606060605D5D5353535252
+      52525151515150516FDAF3F3F3F3F3EBAC574A49493636353535343434343333
+      3333323231312F2F2C2C5AF3F3E81310101010101010100F100F100F100F0F0F
+      0F0F0F0F1AF3F3D81F1F1E1E1E1E1E1E1D1E1D1D1D1D1D1D1C1D1C1D1C1C1C48
+      F3F3150D0D0D0D0D0C0D0D0C0D0C0C18F3F3150E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0D0E0E0E0F
+      0E17171717170C00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D93F3F31717171717171617161616161697F3F3877979787877777676767575
+      75747474696868616161606060605D5D535353525252525151515150504F5E9E
+      AC9E624B4A4A4A4A494936363535343434343433333333323231312F2F2F2CA2
+      F3F3931010101010101010100F100F100F0F100F0F0F0F13F0F3EE3E1F1F1F1F
+      1E1E1E1E1E1D1E1D1D1D1D1D1D1C1D1C1D1C1CA3F3F30D0D0D0D0D0D0D0C0D0C
+      0C0D0C93F3F30E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0D0C
+      0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0D0F0E0E0E0E1317171717130000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D19F3F39017171717171716
+      171616161691F3F3B37A79797878777776767575757574747469686861616160
+      6060605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A494936
+      363535353434343434333333323231312F2F2C37EBF3F3161010101010101010
+      100F100F100F0F0F0F0F0FD2F3F3642020201F1F1F1E1E1E1E1E1D1D1D1D1D1D
+      1D1D1C1D1C1D1CEEF3CF0D0D0D0D0D0D0D0D0C0D0D0C0DCFF3D20E0E0D0E0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D
+      0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D
+      0C0D0C0C0E0E0F0E0E0E15171717170F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000E1717171717150F0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D
+      0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D13F3F39517171717171717161716161618F3F3CD7A7979
+      7978787777767676757575747474696868616161606060605D5D535353525252
+      525151515150504F4E4E4E4B4B4B4A4A4A4A4949363635353434343434333333
+      33323231312F2F2F5AF3F3D0101010101010101010100F100F100F100F0F95F3
+      F3BF20211F201F1F1F1F1E1E1E1E1E1D1E1D1D1D1D1D1D1C1D1C2EF3F3920D0D
+      0D0D0D0D0D0D0D0C0D0C0CF3F3960E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0E0E0F0E0E1017
+      171717150B000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000B1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF3F3
+      D017171717171717171617161716D2F3F27A7A7A797978787777767675757575
+      747474696868616161606060605D5D535353525252525151515150504F4E4E4E
+      4B4B4B4B4A4A4A494936363535353434343433333333323231312F2F2CA2F3F3
+      91101010101010101010100F100F100F1018F3F3EA2A2121202020201F1F1F1E
+      1E1E1E1E1D1E1D1D1D1D1D1D1C1D48F3F3140E0D0D0D0D0D0D0D0D0D0C0D15F3
+      F3F80E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0E0E0F0E0E13171717171100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001517171717
+      0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DCFF3F11717171717171717171617
+      161695F3F38C7A7A7A7979787877777676767575757474746968686161616060
+      60605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A49493636
+      3535343434343434333333323231312F2F38F1F3F01310101010101010101010
+      0F100F1013F0F3F33F232121212020201F1F1F1F1E1E1E1E1E1D1D1D1D1D1D1D
+      1D1CD7F3E80E0D0E0D0D0D0D0D0D0D0D0D0C91F3F3140D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0C0D0C0D0C0D0D0C0D0C0C0C0C0C0D0C
+      0C0D0E0E0E0E0F0E16161717170C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000F17171717100E0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0E0D0D
+      0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D91F3F39017171717171717171716171619F3F3CB7B7A7A7A7979
+      78787777767675757575747474696868616161606060605D5D53535352525252
+      5151515150504F4E4E4E4B4B4B4B4A4A4A494936363535353434343433333333
+      323231312F2F6EF3F30710101010101010101010100F1011D2F3F36E23232121
+      2121202020201F1F1F1E1E1E1E1E1D1E1D1D1D1D1D24F3F3960E0D0E0D0E0D0D
+      0D0D0D0D0D0DCFF3F00E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0D0C0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0E0F0E0E0E10171717
+      1713000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000B15171717140F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D13F3F3951817
+      1717171717171717161716E8F3EF7A7B7A7A7A79797878777776767575757574
+      7474696868616161606060605D5D535353525252525151515150504F4E4E4E4B
+      4B4B4A4A4A4A494936363535343434343433333333323231312F2FD5F3F39010
+      101010101010101010100F97F3F3A52326232321212121202020201F1F1F1E1E
+      1E1E1E1D1E1D1D1D1D48F3F3180D0E0E0D0E0D0D0D0D0D0D0D0FF3F3960D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C
+      0C0D0C0D0C0C0C0C0D0C0D0D0E0E0F0E0E15171717170C000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000011171717170F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF0F3D21717171717171717171717161795
+      F3F3B17B7B7A7A7A797978787777767676757575747474696868616161606060
+      605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A4949363635
+      35353434343434333333323231312F3AF1F3F0151010101010101010101091F3
+      F3D82D2623262323212121212020201F1F1F1F1E1E1E1E1E1D1D1D1D1DEAF3F0
+      0E0E0D0E0D0E0D0E0D0D0D0D0D17F3F3190E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0C0D
+      0E0E0E0E0F0F1617171715000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C16171717130E0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0E
+      0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D96F3F31818171717171717171717171619F3F3DC7C7B7A7A7A7A797978
+      787777767675757575747474696868616161606060605D5D5353535252525251
+      51515150504F4E4E4E4B4B4B4A4A4A4A49493636353534343434343333333332
+      3231312F9CF3F3D31310101010101010101AF3F3F14026262626232323212121
+      21202020201F1F1F1E1E1E1E1E1D1E1D3EF3F3930E0E0E0E0D0E0D0E0D0D0D0D
+      0D96F3F3110E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D
+      0D0C0D0D0C0D0C0C0D0C0C0C0D0C0D0C0C0D0C0C0D0E0F0E0E0E141717171717
+      1717171717151313140F100F0F0C0C0C0B000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0013171717160F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D19F3F3931718171717
+      1717171717171716D2F3F3887C7B7B7A7A7A7979787877777676767575757474
+      74696868616161606060605D5D535353525252525151515150504F4E4E4E4B4B
+      4B4B4A4A4A494936363535353434343433333333323231312FC2F3F307101110
+      101010101AF3F3F343272727262626262323212121212020201F1F1F1F1E1E1E
+      1E1E1D1EA3F3F3110E0E0E0E0E0D0E0D0E0D0D0D0DF0F3D20E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0E0E0E0F0E0F1617171717171717171717171717171717
+      1717171717171717131413130000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000E17171717130E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D
+      0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0FF3F3D01717181717171717171717171793F3F3C7
+      7B7B7B7B7A7A7A79797878777776767575757574747469686861616160606060
+      5D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A494936363535
+      3434343434343333333232313138E0F3F3D0131010101397F3F3F36727272727
+      2626262623232321212121202020201F1F1F1E1E1E1E1E22F3F3CF0E0E0E0E0E
+      0E0D0E0D0E0D0E0D17F3F3900E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0D0C0E0E
+      0E0E0E1317171717171717171717171717171717171717171717171717171717
+      0D00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000015171717160E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      97F3F31917171817171717171717171716E9F3F27C7C7B7B7B7A7A7A79797878
+      7777767676757575747474696868616161606060605D5D535353525252525151
+      515150504F4E4E4E4B4B4B4B4A4A4A4949363635353534343434333333333232
+      313138E0F3F3F0969395F0F3F3F1672828282827272726262626232321212121
+      2020201F1F1F1F1E1E1E1E9AF3F3190E0E0E0E0E0E0E0E0D0E0D0E0D96F3F311
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C
+      0D0D0C0C0C0D0C0D0C0D0C0C0D0C0D0C0C0D0D0F0E0F0E0F1617171717171717
+      1717171717171717171717171717171717171717110000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000F17
+      171717110E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0E0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D19F3F3931817171817171717
+      171717171796F3F3B67C7C7C7B7A7A7A7A797978787777767675757575747474
+      696868616161606060605D5D535353525252525151515150504F4E4E4E4B4B4B
+      4A4A4A4A4949363635353434343434333333333232313138D5F3F3F3F3F3F3F3
+      E041292828282827272727262626232323212121212020201F1F1F1F1E1E24EE
+      F3E80E0E0E0E0E0E0E0E0E0E0D0E0D0EE9F3D20E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0D0D0D0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C0C0D0C0D0C0D
+      0C0C0D0C0D0C0D0E0E0E0E0E0E0E0E0F10101010131313141514151717171717
+      1717171717171717160000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000B15171717160E0E0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0E0D0D0D
+      0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0FE9F3E81718171718171717171717171718F0F3EF7D7C7C
+      7C7B7B7A7A7A797978787777767676757575747474696868616161606060605D
+      5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A49493636353535
+      3434343434333333323231312F6EE0F3F3F3E06E292B29292928282827272727
+      262626232323212121212020201F1F1F1F1E9AF3F3920E0F0E0E0E0E0E0E0E0E
+      0D0E0D19F3F3900E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0C0D0D0C0D0C0D0D0C0D0C0C0D0C0C0D0C0D0C0D0C0D0C0C0D0C0D0F0E0F0E
+      0F0E0E0E0E0E0E0F0E0E0E0E0E0F0E0E0E0E0F101010131313171717170D0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000001016171717110E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D96F3F3
+      901718171718171717171717171796F3F3B67D7C7C7C7B7A7A7A7A7979787877
+      77767675757575747474696868616161606060605D5D53535352525252515151
+      5150504F4E4E4E4B4B4B4A4A4A4A494936363535343434343433333333323231
+      31312F2C2C2C2C2B2B2B29292929282828272727272626262323232121212120
+      20201F1F1F24EEF3F0100E0E0E0E0E0E0E0E0E0E0E0E0ECFF3F30F0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0C0D
+      0C0C0D0C0C0D0C0C0C0D0C0D0C0C0C0C0E0E0E0E0E0F0E0F0E0F0E0E0E0F0E0F
+      0E0E0E0F0E0E0E0E0E0E0E0F0E16171717110000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000B15171717
+      160E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D15F3F3CF1817181717181717171717
+      171718F1F3EF897D7C7C7B7B7B7A7A7A79797878777776767675757574747469
+      6868616161606060605D5D535353525252525151515150504F4E4E4E4B4B4B4B
+      4A4A4A494936363535353434343433333333323231312F2F2F2C2C2C2B2B2B29
+      29292928282827272727262626232323212121212020201F1F9AF3F3920F0E0E
+      0F0E0E0E0E0E0E0E0E0E11F3F3960E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D
+      0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0D
+      0C0D0C0C0E0E0F0E0E0E0E0E0E0E0E0F0E0E0E0E0E0F0E0E0F0E0F0E0F0E0E0E
+      0E14171717150000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001016171717110E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0DE8F3F0191718171817171817171717171797F3F3C77D7D7C7C7B
+      7B7B7A7A7A797978787777767675757575747474696868616161606060605D5D
+      535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A4949363635353434
+      34343434333333323231312F2F2C2C2C2C2B2B2B292929292828282727272726
+      2626232323212121212020202AEEF3F0100F0E0F0E0E0E0E0E0E0E0E0E0E93F3
+      F3150E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0D0D0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0D0C0C0C0C0E0D0E0E0E0E0E
+      0F0E0E0E0F0E0F0E0E0E0F0E0E0E0E0E0E0F0E0F0E10171717170C0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B15171717160E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D19F3F3961817
+      181717181717171717171718F1F3F2897D7D7C7C7C7B7A7A7A7A797978787777
+      767676757575747474696868616161606060605D5D5353535252525251515151
+      50504F4E4E4E4B4B4B4B4A4A4A49493636353535343434343333333332323131
+      2F2F2F2C2C2C2B2B2B2929292928282827272727262626232323212121212020
+      A4F3F31A0E0F0E0E0F0E0F0E0E0E0E0E0E0FF0F3E80E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0D0C0C0D0C0D0C0C0C0D
+      0C0D0C0D0C0C0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0E0D0D0E0E
+      0E0E0E0F0E0E0E0E0E0F17171717100000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001016171717110E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0FE9F3E91817181718171718171717171717
+      95F3F3DD7E7D7D7C7C7C7B7B7A7A7A7979787877777676757575757474746968
+      68616161606060605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A
+      4A4A494936363535343434343433333333323231312F2F2C2C2C2C2B2B2B2929
+      292928282827272727262626232323212121213EF3F3E80F0E0F0F0E0E0F0E0E
+      0E0E0E0E0E92F3F3190E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D
+      0D0C0D0D0C0D0C0D0D0C0D0C0D0C0C0C0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E1417
+      1717140000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000B15171717160F0E0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D91F3F3931817181718171718171717171717E8F3F3AF7E7D7D7C7C7C7B
+      7A7A7A7A797978787777767676757575747474696868616161606060605D5D53
+      5353525252525151515150504F4E4E4E4B4B4B4B4A4A4A494936363535353434
+      343434333333323231312F2F2F2C2C2C2B2B2B29292929282828272727272626
+      26232323212121D8F3F3170F0F0E0F0E0F0E0F0E0F0E0E0E0EE8F3F00F0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C
+      0C0D0C0D0C0D0C0C0C0D0C0D0C0C0D0C0D0C0C0C0C0D0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0F11171717170B0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00001016171717130E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0EF3F3E91818171817
+      18171718171717171791F3F3EF8A7E7D7D7C7C7B7B7B7A7A7A79797878777776
+      7675757575747474696868616161606060605D5D535353525252525151515150
+      504F4E4E4E4B4B4B4A4A4A4A494936363535343434343433333333323231312F
+      2F2C2C2C2C2B2B2B2929292928282827272727262626232323219AF3F3980F0E
+      0F0F0F0E0F0E0E0F0E0E0E0E19F3F3910E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0E0E0E0E0F171717170E0000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B15161717160F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D96F3F393181718171817181717181717171797F3
+      F3CC7E7E7D7D7C7C7C7B7A7A7A7A797978787777767676757575747474696868
+      616161606060605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A
+      4A494936363535353434343433333333323231312F2F2F2C2C2C2B2B2B292929
+      292828282727272726262623233FF3F3F0110F0F0F0E0F0F0E0F0F0E0F0E0F0E
+      E8F3F00F0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0D0E0E0E0E0E0E0F0E0E0E0E0E0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C
+      0D0C0D0C0D0D0C0D0C0D0C0C0C0C0D0C0C0C0C0C0D0C0D0C0D0C0C0C0C0D0C0D
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E1617171711
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000E17171717140E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      10F3F3E9181817181817171817171718171718E9F3F3B07E7E7D7D7C7C7B7B7B
+      7A7A7A797978787777767675757575747474696868616161606060605D5D5353
+      53525252525151515150504F4E4E4E4B4B4B4A4A4A4A49493636353534343434
+      3434333333323231312F2F2C2C2C2C2B2B2B2929292928282827272727262626
+      23D8F3F3180F0F0F0F0F0F0F0E0F0E0F0E0F0E92F3F3910E0E0E0D0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0E0F0E
+      0E0E0F0E0E0E0F0E0F0E0E0E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0C0D0C
+      0D0C0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E1417171715000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1417171717100F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0E0D0E0E0D0E0E0D0E0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C91F3F39618181718171817
+      1817171717171791F3F3F28A7E7E7D7D7C7C7B7B7B7A7A7A7979787877777676
+      76757575747474696868616161606060605D5D53535352525252515151515050
+      4F4E4E4E4B4B4B4B4A4A4A494936363535353434343433333333323231312F2F
+      2F2C2C2C2B2B2B29292929282828272727272626A0F3F3980F0F0F0F0F0F0F0E
+      0F0F0E0F0E0E10F0F3F00F0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0E0E0E0E0F0E0E0F0E0E0F0E0E0E0E0E0E0F0E
+      0E0E0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C
+      0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E
+      0E0E0E11171717170B0000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000C17171717150E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E
+      0E0E0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0EF0F3F119181718181718171817181717171797F3F3E5
+      7F7E7E7D7D7C7C7B7B7B7A7A7A79797878777776767575757574747469686861
+      6161606060605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A
+      494936363535343434343433333333323231312F2F2C2C2C2C2B2B2B29292929
+      2828282727272747F3F3F0110F0F0F0F0F0F0F0F0F0F0E0F0E0F92F3F3910E0E
+      0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0E0E0F0E0E0E0F0E0E0E0E0F0E0F0E0F0E0E0E0F0E0F0E0E0E0E0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D0C
+      0D0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0D0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F0E0F0E0F171717170D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000001317171717110F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0E0E0E0F0E0F0E0F0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D91F3
+      F398181817181817181717171817171717E8F3F3CC7F7E7E7D7D7C7C7C7B7A7A
+      7A7A797978787777767676757575747474696868616161606060605D5D535353
+      525252525151515150504F4E4E4E4B4B4B4B4A4A4A4949363635353534343434
+      34333333323231312F2F2F2C2C2C2B2B2B29292929282828272740F1F3F3170F
+      0F0F0F0F0F0F0F0F0F0E0F0F0E13F3F3E80F0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0E0F0E0E0E0E0F0E0E0E0F0E10
+      10111110100F0E0F0E0E0E0F0E0F0E0E0F0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0C0D0C0D0C0C0C0C0D0C0C
+      0C0C0D0C0D0C0C0C0C0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0E0E0E0E1617171710000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000B1617
+      1717160F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E
+      0E0E0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0DE8F3F390181817181718171817
+      171817171718F1F3F3B77F7E7E7D7D7C7C7C7B7B7A7A7A797978787777767675
+      757575747474696868616161606060605D5D535353525252525151515150504F
+      4E4E4E4B4B4B4A4A4A4A494936363535343434343433333333323231312F2F2C
+      2C2C2C2B2B2B292929292828282DD8F3F3910F0F100F0F0F0F0F0F0F0F0F0F0F
+      0ED0F3F3190E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0E0D
+      0D0E0D0D0E0E0E0E0E0F0E0F0E0E0F13141617171717171717171715110F0E0E
+      0E0E0E0F0E0E0E0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D
+      0C0D0C0D0C0D0C0D0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E
+      1517171713000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000001016171717140E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0F0E0E0F0E0E0E0E0E10111415150F0E
+      0F0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0E0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C17F3F3D317181818181718171817171817171791F3F3F38F7F
+      7E7E7D7D7C7C7C7B7A7A7A7A7979787877777676767575757474746968686161
+      61606060605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A49
+      4936363535353434343433333333323231312F2F2F2C2C2C2B2B2B2929292928
+      28D8F3F3970F100F0F0F0F0F0F0F0F0F0F0F0F0E18F3F3CF0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0E0E0F0E0E0E0E0E
+      10151717171717171717171717171717171715110F0E0E0E0E0F0E0E0E0C0D0D
+      0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0D0C0D0C0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E131717171700000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000001517171717100E0E0F0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0F
+      0E0E0F0E0E0E0F0E0F111315171717171717150F0E0E0F0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0DCFF3F396
+      18181718181718171817171817171793F3F3F28F7F7E7E7D7D7C7C7C7B7B7A7A
+      7A797978787777767675757575747474696868616161606060605D5D53535352
+      5252525151515150504F4E4E4E4B4B4B4A4A4A4A494936363535343434343434
+      333333323231312F2F2C2C2C2C2B2B2B29292929A5F3F3D21110100F100F0F0F
+      0F0F0F0F0F0F0F10F0F3F3140E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0E0E0F0E0E0F0E1016171717171717171717171717
+      171717171717171715110F0E0E0E0E0F0E0E0D0D0D0D0C0D0D0D0D0C0D0D0D0D
+      0C0D0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D
+      0C0D0C0C0C0C0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0E0E0E0E10171717170C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000C17171717
+      160F0E0E0E0E0E0E0F0E0F0E0E0E0E0E0F0E0E0E0E0F0E0E1013141616171717
+      17171717171717150F0E0E0E0F0E0E0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D
+      0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D10F0F3F01A1818171818171817181717
+      1817171798F3F3F28F7F7E7E7D7D7C7C7C7B7A7A7A7A79797878777776767675
+      7575747474696868616161606060605D5D535353525252525151515150504F4E
+      4E4E4B4B4B4B4A4A4A494936363535353434343433333333323231312F2F2F2C
+      2C2C2B2B2B2929A6F3F3E8130F100F100F100F100F0F0F0F0F0F0F95F3F3910E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0F
+      0E0E0E0F0E141717171717171717171717171717171717171717171717171510
+      0E0F0E0E0E0E0E0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0D
+      0C0D0D0C0C0D0C0C0C0C0C0C0C0D0C0C0C0D0C0C0D0C0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F0E0F0E0F171717
+      170D000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001017171717140F0E0F0E0F0E0E0E0E0F
+      0E0F0E0E0E0F0E101113151717171717171717171717171717171717150F0E0E
+      0E0E0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0D1AF3F3D318181817181817181718171718171717CFF3F3ED8A7F7E
+      7E7D7D7C7C7C7B7B7A7A7A797978787777767675757575747474696868616161
+      606060605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A4949
+      36363535343434343433333333323231312F2F2C2C2C2C2B2B2BA6F3F3F01610
+      10100F100F100F0F0F0F0F0F0F0F18F3F3E80F0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0E0E0E0E0E0F0E101617171717171717
+      15100D0C000000000C0D0F141717171717171717110E0E0F0E0E0E0E0C0D0D0D
+      0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0D0C0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E161717171000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B1516171717100E0E0E0E0E0F0E0E0E0E0E0F111314171717171717
+      1717171717171717171717151717171717150F0E0F0E0E0F0E0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0CCFF3F3961818
+      1817181817181718171718171717CFF3F3ED8E7F7E7E7D7D7C7C7C7B7A7A7A7A
+      797978787777767676757575747474696868616161606060605D5D5353535252
+      52525151515150504F4E4E4E4B4B4B4B4A4A4A49493636353535343434343433
+      3333323231312F2F2F2C2C2C2BB9F3F3F0161010100F10100F100F100F0F0F0F
+      0F11F0F3F3150E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0E0E0E0F0E0E0E1117171717171717110C000000000000000000000000
+      0B1015171717171717140E0E0F0E0E0E0E0C0D0D0D0D0C0D0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0D0C0C0D0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0E0E0F0E0E151717171300000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000D17171717160F
+      0E0F0E0E0E0F10131416171717171717171717171717171717171613100C0000
+      0E1717171717150F0E0E0F0E0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0D10F0F3F39018181818171818171817181717
+      181717CFF3F3F28F7F7E7E7D7D7C7C7C7B7B7A7A7A7979787877777676757575
+      75747474696868616161606060605D5D535353525252525151515150504F4E4E
+      4E4B4B4B4A4A4A4A494936363535343434343433333333323231312F2F2C2C2C
+      B9F3F3F0161010101010100F10100F100F100F0F0FD0F3F3910E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0D0E0E0F0E0E0F111617
+      17171717110B000000000000000000000000000000000B0F161717171717140E
+      0E0F0E0E0E0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0C
+      0D0C0C0D0C0D0C0D0C0C0D0C0D0C0C0D0C0C0C0D0C0C0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E14171717130000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000001117171717140E0F11141517171717171717
+      1717171717171717171713100E0B000000000000000E1717171717150F0E0E0E
+      0F0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0C0D19F3F3E81918181718181718171817171817171717CFF3F3F28F7F7E7E
+      7D7D7C7C7C7B7A7A7A7A79797878777776767675757574747469686861616160
+      6060605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A494936
+      363535353434343433333333323231312F2F2FB9F3F3F0161010101010101010
+      0F10100F100F100F91F3F3D20D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0E0E0E0E0E0F101717171717150C0000000000000000
+      0000000000000000000000000B141717171717140E0E0F0E0E0E0D0D0D0D0C0D
+      0D0D0C0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0D0C0C
+      0C0D0C0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0D0E0F0E0E13171717170000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000B1516171717171717171717171717171717171717171715110F0C000000
+      000000000000000000000E171717171715100E0E0E0E0E0E0E0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0D0C0D96F3F3D018181818
+      18171818171817171817171717CFF3F3F2B77F7E7E7D7D7C7C7C7B7B7A7A7A79
+      7978787777767675757575747474696868616161606060605D5D535353525252
+      525151515150504F4E4E4E4B4B4B4A4A4A4A4949363635353434343434343333
+      333232313138E0F3F3F016101010101010101010100F10100F0F1017F3F3F011
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0E0F
+      0E0F0E101717171717130B000000000000000000000000000000000000000000
+      0000111717171717110F0E0E0F0E0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0C
+      0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E
+      0F10161717170B00000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000C1717171717171717
+      17171717171717171613100C000000000000000000000000000000000000000E
+      171717171716100E0F0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0D0C0FD2F3F396181817181817181718171817181718
+      1717CFF3F3F3C97F7E7E7D7D7C7C7C7B7A7A7A7A797978787777767676757575
+      747474696868616161606060605D5D535353525252525151515150504F4E4E4E
+      4B4B4B4B4A4A4A494936363535353434343433333333323254EBF3F3E8161110
+      101010101010101010100F10100F14F0F3F3170E0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0E0E0E0E0F161717171711000000
+      0000000000000000000000000000000000000000000000111717171717100E0E
+      0E0E0E0D0D0D0D0D0C0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0C0D0C0D0C0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F0E0E0E10171717170C0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000010171717171717171717171714100E0B00000000
+      00000000000000000000000000000000000000000E171717171716110E0E0E0E
+      0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C13F0F3F392181818181817181817181717181717171793F3F3F3DF8A7E7E7D
+      7D7C7C7C7B7B7A7A7A7979787877777676757575757474746968686161616060
+      60605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A49493636
+      353534343434343333333371F1F3F3D31311101110111010101010101010100F
+      1011D2F3F3930E0D0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0E0F0E0F0E15171717171300000000000000000000000000000000
+      0000000000000000000000001117171717160E0F0E0F0E0E0C0D0D0D0D0C0D0D
+      0D0D0D0C0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0D0E0F0E0E0E171717170D0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0014171717171715130F0C000000000000000000000000000000000000000000
+      0000000000000000000C151717171717110F0E0E0E0E0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D17F3F3F1901818181818
+      17181817181717181717171792F1F3F3EF8F7E7E7D7D7C7C7C7B7A7A7A7A7979
+      78787777767676757575747474696868616161606060605D5D53535352525252
+      5151515150504F4E4E4E4B4B4B4B4A4A4A49493636353535343434343439BAF3
+      F3F39713111011101110101010101010101010100F97F3F3CF0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0E0E0E0E101717
+      1717150B00000000000000000000000000000000000000000000000000000000
+      001317171717130E0E0E0E0E0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D
+      0D0C0D0C0C0C0C0C0C0C0D0C0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0F0E0E1717
+      1717100000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000C1513100D0B0000000000
+      0000000000000000000000000000000000000000000000000000000000000C15
+      1717171717110F0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D91F3F3F01918181718181718171817181718171817
+      17F8E8F3F3F3C87E7E7D7D7C7C7C7B7B7A7A7A79797878777776767575757574
+      7474696868616161606060605D5D535353525252525151515150504F4E4E4E4B
+      4B4B4A4A4A4A4949363635353434343459E0F3F3F39211101111101110111010
+      101010101010101097F3F3D20F0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0E0D0D0E0D0E0E0F0E0F0E16171717170B000000000000000000
+      0000000000000000000000000000000000000000000B15171717160F0F0E0E0F
+      0D0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0C0D
+      0C0D0C0D0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0E0E0E0F0E0E0E0F0E1517171710000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000B1417171717110E0E0E0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D
+      96F3F3E819181818181817181817181717181717171718CFF3F3F3ED8F7E7D7D
+      7C7C7C7B7A7A7A7A797978787777767676757575747474696868616161606060
+      605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A4949363635
+      353534A1F3F3F3E81711111111101110111011101110101010101091F3F3F014
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E
+      0E0E0E0E11171717171000000000000000000000000000000000000000000000
+      000000000000000000000E17171717130E0F0E0E0E0D0D0C0D0D0D0C0D0D0C0D
+      0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F
+      0E0E0F0E0F111717171713000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000C17171717100F0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E
+      0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0CCFF3F3E819181818181817
+      18181718171718171717171792F1F3F3F3C8897D7D7C7C7B7B7B7A7A7A797978
+      787777767675757575747474696868616161606060605D5D5353535252525251
+      51515150504F4E4E4E4B4B4B4A4A4A4A494936363565EBF3F3F3971411111111
+      11111110111011101010101010101AF3F3F0140D0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0F0E0F0E1517171716000000
+      0000000000000000000000000000000000000000000000000000000000000015
+      171717160E0E0E0F0E0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0D0C0C0D0C0C0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F0E0E0E0F0E111617171717171300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000D171717
+      170F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0FD2F3F3E8191818171818171817181718171817181717
+      1718D0F3F3F3EFB77D7D7C7C7C7B7A7A7A7A7979787877777676767575757474
+      74696868616161606060605D5D535353525252525151515150504F4E4E4E4B4B
+      4B4B4A4A4A494955C5F3F3F3F01A111111111111111111111011101110111010
+      10F8F3F3F3190E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0E0E0E0E0F1717171710000000000000000000000000000000
+      000000000000000000000000000000000000000E17171717110E0F0E0E0D0D0D
+      0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0D0C0C0C0C0C0C0C0C0D0C0C0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D
+      0E0F0E0F0E0E0E0F0E1116171717171717171000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000010161717170E0E0F0E0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0ED2
+      F3F3E8191818181818171818171817171817171717171792E9F3F3F3E5AF7D7C
+      7C7B7B7B7A7A7A79797878777776767575757574747469686861616160606060
+      5D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4DAAF3F3F3F396
+      141111111111111111111111111011101110111090F3F3F3190E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0E0F0E0F13
+      161717170B000000000000000000000000000000000000000000000000000000
+      000000000000000016171717140E0E0E0F0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0E0E0E0F0E1015171717
+      17171717130C0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000013171717150E0E0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0ED2F3F3E81918181718181817
+      1817181717181717181717171897F3F3F3F3E4AF7C7C7B7B7B7A7A7A79797878
+      7777767676757575747474696868616161606060605D5D535353525252525151
+      515150504F4E4E4E4B4B4B4DACF1F3F3F3D01713111311111111111111111111
+      1111101110111090F3F3F3190E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0D0E0E0E0E0E15171717140000000000000000
+      0000000000000000000000000000000000000000000000000000000011171717
+      160F0E0E0F0E0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C
+      0C0D0C0C0D0C0D0C0C0C0C0C0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0E0E0E0F0E0F0E0F0E0F1417171717171717150E0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000013171717140E0F0E
+      0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0ED2F3F3E819181818181718181718171817181717171717
+      171719CFF3F3F3F3E5B67C7B7B7B7A7A7A797978787777767675757575747474
+      696868616161606060605D5D535353525252525151515150504F4E4E4E58C3F3
+      F3F3F3E89113111311111311111111111111111111111110111091F3F3F3190E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E
+      0D0E0E0E0F0E0E17171717100000000000000000000000000000000000000000
+      000000000000000000000000000000000D171717170F0F0E0E0E0D0D0D0D0C0D
+      0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E0E0E0E0E0F
+      1317171717171717160F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000017171717130E0E0E0F0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0ED2F3
+      F3E99018181818171818171817181718171717171717171719CFF3F3F3F3EFC7
+      887B7A7A7A7A797978787777767676757575747474696868616161606060605D
+      5D535353525252525151515150504F9DDAF3F3F3F3E891131113131113131113
+      1111111111111111111111111097F3F3F3190E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0E0E0F0F171717170C
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B16171717110E0E0F0E0D0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C
+      0C0C0C0C0C0C0C0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0D0E0E0F0E0E0E0F0E0F1316171717171717170F0B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000000B
+      17171717100E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0D0ED2F3F3F1911818181817181817
+      181717171817181717171717171719CFF3F3F3F3F3E5B4867A7A7A7979787877
+      77767675757575747474696868616161606060605D5D53535352525252515151
+      6AC4F1F3F3F3F3D3911313131313131113111311131111111111111111111113
+      07F3F3F0180E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0E0F0E0E10171717170B000000000000000000000000
+      0000000000000000000000000000000000000000000000000016171717130E0E
+      0E0E0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E0E
+      0E0F0E0E111616171717171717110B0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000C171717170F0E0E0E0F0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0C0D95F3F3F3F718181818171818171817181717171717171717
+      171717171896E9F3F3F3F3F3E4B5877A79797878777776767675757574747469
+      6868616161606060605D5D53535352525F73C4F2F3F3F3F3F397191313131313
+      13131313131113111311131111111111111115D3F3F3F0140D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0E0E
+      0E0F111717171700000000000000000000000000000000000000000000000000
+      0000000000000000000000000013171717130E0F0E0E0E0C0D0D0D0C0D0C0D0C
+      0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0F0E0F0E0E10151717171717171713
+      0C00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000010161717170E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D93F3F3
+      F3CF191818181817181817181718171718171717171717171717169207F3F3F3
+      F3F3F3EFCDB58B78787777767675757575747474696868616161606060605D5D
+      6B84BEE3F3F3F3F3F3F3D3921514131313131313131313131311131311131111
+      111111111118F0F3F3D2140E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0E0F0E0E13171717170000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0013171717150E0E0F0E0E0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0C0C0D0C0D0C
+      0D0C0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D
+      0E0E0F0E0E0E0E0E0F1517171717171717150D00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001017171715
+      0E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D18F0F3F3E81A1817181817181817
+      18171817171717171717171717171716171892CFF0F3F3F3F3F3F3F3E7DEC6B2
+      858176757575747474696868616C8383BBC1DBF2F3F3F3F3F3F3F3D393161414
+      13141314131313131313131313131113131113111311111193F3F3F3970F0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0E0D0D0E0D0E0E0E0E0F11171717170000000000000000000000000000000000
+      00000000000000000000000000000000000000000013171717150E0E0E0E0E0C
+      0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C0D0C0D0C0D0C0D0C0C0D
+      0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F0E0F0E1417171717
+      171717160F000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000013171717140F0E0E0E0E0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0C0D0D0D14E8F3F3F1F718181818171817181717181717181717171717
+      1717171716171616169096D2F3F3F3F3F3F3F3F3F3F3F3F3F3E6E2E2E2E2F3F3
+      F3F3F3F3F3F3F3F3F3F3F3E89891151414131413141314131313131313131313
+      1313131113111311131115D0F3F3F3920E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0E0F0E0E1317
+      1717170000000000000000000000000000000000000000000000000000000000
+      00000000000000000013171717140E0F0E0E0E0D0D0C0D0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0D0E0F0E0E0F11171717171717171510000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000016171717130E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0E0E1098F3F3
+      F3D0191818181718181718171817171717171717171717171716171617161616
+      16909507D2F0F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3D3CF95901614
+      14141414141414141314131413141313131313131313131313111311131AF0F3
+      F3F0180D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0E0E0E0E0F1017171717000000000000000000
+      0000000000000000000000000000000000000000000000000000000000141717
+      17130E0E0F0E0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0C0C0C0C0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F
+      1317171717171717110B00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B16171717100E0F0E0E
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0E0E0E0E0E90F3F3F3F1921818181718181718
+      1718171718171717171717171717161716161616161616161616159090F79696
+      96D2D2D2D2D298969596901A1715141514151414141414141414141314141314
+      13131313131313131313131313111314CFF3F3F3CF110E0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D
+      0D0D0E0F0E0E10171717170C0000000000000000000000000000000000000000
+      000000000000000000000000000000000017171717110F0E0E0E0D0D0D0D0C0D
+      0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E131717171717130C00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000C17171717100E0E0E0F0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0C0E0E0F0E0E0F14D3F3F3F3D019181817181718171817181717171717171717
+      1717171617161616161616161616161516151516151515151515151515151515
+      1514151415141414141414141414141414131413141314131313131313131313
+      131390F0F3F3F3920E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0E0D0E0D0D0E0D0D0E0D0E0D0E0E0E0F0E171717170E
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000C17171717100E0E0F0E0D0D0D0D0C0D0D0C0D0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0E0E0E0F11171717160C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000F17
+      1717170E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0E0E0E0F0E15171796F3F3
+      F3F1961818181817181718171718171717171717171717171617161716161616
+      1616161615161615161515151515151515151515151415151415141414141414
+      141414141414141314131413141313131313131317D2F3F3F3D2140E0E0E0E0D
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0D0E0D0D0E0D0D0E0D0E0E0F0E0E0E1617171711000000000000000000000000
+      0000000000000000000000000000000000000000000000000F171717170E0F0E
+      0E0E0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E13171717
+      1300000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000010161717160E0E0F0E0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0C0E0F0E0E0E171717171AE8F3F3F3E99118171818171718
+      1717181717171717171717171716171616161616161616161615161515161516
+      1515151515151515151514151414151415141414141414141414141314141314
+      1313131313131697F3F3F3F0920E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0E0E
+      0E0F0E1417171715000000000000000000000000000000000000000000000000
+      00000000000000000000000014171717150E0E0E0F0E0C0D0D0C0D0C0D0C0D0C
+      0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F13171717130000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000013171717150E0E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0E0E0E0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0E0E0E
+      0F0E17171717171390E9F3F3F3D3911718181718171817171817171717171717
+      1717161716161616161616161616151616151615151515151515151515151515
+      14151415141414141414141414141414131413141314131315F7F0F3F3F39811
+      0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0D0E0E0E0E0E10171717170E000000
+      000000000000000000000000000000000000000000000000000000000000000C
+      17171717110F0E0E0E0E0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E
+      0E0F0E0E15171717130000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000015171717130E
+      0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0D0D0D0E0F0E0E0E0F0E0E0E0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0E0F0E0E10171717170E00000BF7F3
+      F3F3F3D391171818171718171717171717171717171717161716161616161616
+      1616161516151516151615151515151515151515141515141514151414141414
+      1414141414141314131415F7F0F3F3F3E8160E0D0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D
+      0D0E0D0D0D0E0D0E0F0E0F0E1617171715000000000000000000000000000000
+      0000000000000000000000000000000000000011171717170F0E0F0E0E0D0D0D
+      0C0D0D0C0D0D0C0D0C0D0D0C0C0C0C0C0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C
+      0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F1417171710000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000017171717110E0E0F0E0E0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D
+      0E0E0E0E0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0E0E0E0F101717171700000000000E96F3F3F3F3D3921817181718
+      1717181717171717171717171617161616161616161616161516161516151515
+      151515151515151515141514151414141414141414141414141413141696F0F3
+      F3F3E8190E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0D0D0E0E0E0E0E
+      13171717170E0000000000000000000000000000000000000000000000000000
+      0000000000000B17171717150E0E0E0F0E0D0D0D0C0D0C0D0C0D0C0D0D0C0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0F0E0E0E1617171710000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000C17171717100F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0E0E0F0E0E0E0F0E0E0E0E0F
+      0E0E0F0E0E0E0E0E0F0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0F0E0E0E131717
+      1717000000000000001107F3F3F3F3E996181817181717171717171717171717
+      1716171616161616161616161615161515161516151515151515151515151514
+      15141514151414141414141414141998F3F3F3F3E8190E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0F0E0F0E0F17171717150B0000000000
+      0000000000000000000000000000000000000000000000000000131717171710
+      0E0F0E0E0E0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E
+      171717170F000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000D171717170F0E0E0F0E0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0E0D0E0E0E0E0F0E0E0E0F0E0F0E0E0F0E0E0E0F0E0F0E0E0E0F0E
+      0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0E0F0E0E131717171500000000000000000011
+      F7F3F3F3F3F0CF91171817171817171717171717171716171616161616161616
+      1616151616151615151515151515151515151514151514151414141414141415
+      93E8F3F3F3F3E8190E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0E0D0E0E0E0E0E1317171717110000000000000000000000000000000000
+      000000000000000000000000000F17171717150E0E0E0E0F0D0D0C0D0C0D0C0D
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0C0D0C0C0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0F171717170C00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000010161717160E0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0E0F0E0E
+      0F1111100E0E0E0F0E0E0F0E0E0E0E0E0F0E0E0F0E0E0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0E0E0E0F0E141717171300000000000000000000000E91E9F3F3F3F3E998F817
+      1717171717171717171717161716161616161616161616151615151615161515
+      151515151515151514151415141514141691CFF3F3F3F3F3CF190E0E0E0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0F0E0F0E0F1617
+      1717170E00000000000000000000000000000000000000000000000000000000
+      0C17171717170F0F0E0F0E0E0C0D0D0C0D0D0C0D0C0D0D0C0D0C0C0C0C0C0C0C
+      0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0F0E0E0E10171717170C00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000131717
+      17150E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0E0E0F0E0E0E0F131717171715141311100E0F
+      0E0F0E0E0E0F0E0E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0E0F0E0E15171717130000
+      00000000000000000000000B17D0F3F3F3F3F3E9989217171717171717171717
+      1617161616161616161616161516161516151515151515151515151515151415
+      141793CFF3F3F3F3F3F093110E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0E0D0E0E0E0E0E1017171717170E00000000000000
+      000000000000000000000000000000000000000C1517171717130E0E0E0E0E0D
+      0D0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C
+      0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E1117171717
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000014171717130F0E0F0E0E0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E
+      0D0E0E0E0E0F0E131717171717171717171717171515141313130F0E0E0E0E0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0E0E0E0E0F14171717100000000000000000000000000000
+      00000E91D3F3F3F3F3F3F3D39790171717171717171617161616161616161616
+      1615161515161516151515151515151515189298E8F3F3F3F3F3F398170E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D
+      0D0E0E0F0E0F0E1317171717170E000000000000000000000000000000000000
+      0000000000000C1517171717150E0F0E0F0E0E0D0C0D0C0D0C0D0C0D0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0C0D0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E13171717170E0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000017171717130E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0F0E0F0E0E111717171717
+      1717171717171717171717171717140E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0E0E0F0E
+      0E1717171710000000000000000000000000000000000000000F92D3F3F3F3F3
+      F3F3F3E807959118161716171616161616161616161615161615161515151515
+      199195D2F0F3F3F3F3F3F3F098190F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0E0E0E0E0E15171717
+      171710000000000000000000000000000000000000000000000F171717171716
+      0E0E0E0E0E0E0D0D0D0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E
+      0E0E0F1417171717171100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000C16171717100E0F
+      0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0E0E0E0E0E11171717171717171717171717171717171717
+      1717170F0E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0E0E0E0F0E171717170E000000000000
+      000000000000000000000000000000000E1896F0F3F3F3F3F3F3F3F3F3D2D296
+      9695909090909090909090909091969607D2E9F3F3F3F3F3F3F3F3F3D293160E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0E0E0F0E0F0E0F151717171717140C00000000000000
+      00000000000000000000000B131717171717160F0F0E0F0E0F0D0D0D0C0D0D0C
+      0D0D0C0D0C0D0C0D0C0C0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0D0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E10151717171717130B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C171717170F0E0E0F0E0E0D0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0E0E0F0E0F0E
+      101617171717110C0F1013161717171717171717171717140E0E0F0E0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0E0F0E0E0F171717170C000000000000000000000000000000000000
+      00000000000000000F1793D0F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3
+      F3F3F3F3F3F3F3F3F3F3F3F0CF9216100E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0E0D0E0D0D0D0D0D0E
+      0E0E0E0E0E0F15171717171717110C00000000000000000000000000000B1117
+      1717171717160F0E0E0F0E0E0E0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0E0E0F0E0E0F0E151717171717140C0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      10161717170E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0E0E0E0E0E0E10161717171714000000000000
+      000C0C100F131315171717170F0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0E0E0E0F10161717
+      170C000000000000000000000000000000000000000000000000000000000000
+      000F151A9307D3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F307CF979590180E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0D0D
+      0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0E0D0D0D0D0E0F0E0F0E0E0F1317171717
+      171717140F0B00000000000000000B0E1317171717171717150F0E0F0E0E0E0E
+      0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0C0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E0E
+      0E0E141717171717160B00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000011171717150E0E0E0F0E0D0E
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0E0F0E0F0E0F1617171717140B000000000000000000000000000C17171717
+      140E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0C0D0E0F0E0E10171717170000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000F1311
+      111311111311111311110B0000000C17171717100E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0D0E0D0E
+      0D0E0D0D0D0E0D0D0D0E0E0E0E0F0E0E11161717171717171717171314100F14
+      1316171717171717171717130E0E0E0E0E0F0E0D0C0D0D0D0D0C0D0D0C0D0D0C
+      0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0D0C0C0D0C0C0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F0E0E0E111717171717170E00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000013171717140F0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0F0E0E0E0F151717171715
+      0B00000000000000000000000000000013171717170F0E0F0E0E0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0E0E0E0F13161717170000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000B16171717110E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D0E0F
+      0E0E0E0F0E0F1417171717171717171717171717171717171717171717150F0E
+      0F0E0F0E0E0E0D0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0E0E0E0F0E0F0E1016171717171710000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000017171717
+      130E0F0E0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D
+      0D0E0D0D0E0D0E0E0E0E0E0F0E1517171717160C000000000000000000000000
+      000000000C17171717140E0E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0F0E0E0E1317171714000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000016171717130F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E
+      0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0E0D0D0E0E0F0E0E0E0E0E1014171717
+      17171717171717171717171717171715100E0F0E0E0E0E0F0E0C0D0D0C0D0D0D
+      0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C
+      0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E0E
+      0F0F161617171717130000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000B16171717100E0E0F0E0E0E0E0E0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0D0D0E0D0D0E0D0D0E0E0E0F0E0E0E
+      1417171717160B00000000000000000000000000000000000013171717170F0E
+      0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0D0E0F0E0E1417171713000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000013171717150E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0D0D0D0D0D0E0E0E0F0E0F0E0E0E0F1115171717171717171717171717
+      16130F0E0E0E0E0E0F0E0E0E0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0F0E0F0E0E0E0F151717171717140B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000C1717171716110E0E0E0F0E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0E0D0D0E0D0D0E0E0E0E0E0F0E1417171717170E000000000000
+      000000000000000000000000000C17171717140E0F0E0E0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0E0E0E0F0E
+      1517171713000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000010
+      161717170E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0D0E0E0E
+      0E0E0E0F0E0E0F0E0F101114151415141413100F0E0E0F0E0F0E0F0E0E0E0E0C
+      0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0D0E0E0E0F0E0E0E141717171717160B000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000F171717171717150F
+      0E0E0F0E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D
+      0E0E0F0E0E0E1316171717170E00000000000000000000000000000000000000
+      000013171717170F0E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0E0E0E0E0E151717171000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000C17171717100E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0E0D0E0D0D0D0D0D0D0D0E0E0F0E0E0E0F0E0E0E0E0F0E
+      0E0E0F0E0E0E0F0E0F0E0E0E0E0E0E0E0E0D0D0D0D0C0D0D0D0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F0E0E
+      0E111717171717170E0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000B1317171717171717130F0E0E0F0E0F0E0E0E0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0F0E0E0F0E11171717171710
+      000000000000000000000000000000000000000000000C17171717140E0E0F0E
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D
+      0D0C0D0E0E0F0E0E171717171000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000B16171717110E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0E0D0D0D0D
+      0D0E0D0D0D0D0D0D0D0E0E0F0E0E0E0F0E0E0E0E0F0E0E0F0E0E0E0E0E0E0F0E
+      0F0E0E0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E0F0E11161717171717100000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000D1517171717171716110F0E0E0E0E0F0E0E0E0E0E0D0E0D0E0D0E0D0D0E0D
+      0E0D0D0E0D0D0E0E0E0E0F0E1017171717171100000000000000000000000000
+      000000000000000000000013171717170F0E0E0E0F0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0E0E0E0F0E17171717
+      0D00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000014171717
+      140F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E
+      0E0E0F0E0E0F0E0E0E0F0E0E0F0E0F0E0F0E0E0E0E0D0D0D0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0E0E0E0E0E0E0E0F1617171717171300000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B101717171717171715
+      110E0F0E0E0E0F0E0E0E0E0E0D0E0D0E0D0E0D0D0D0E0D0D0E0E0E0F0E0E0E10
+      161717171713000000000000000000000000000000000000000000000000000C
+      17171717140E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C
+      0D0D0D0D0C0D0D0D0D0C0D0E0F0E0E0F171717170C0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000010171717160E0E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0F0E0E0E0E0F
+      0E0E0E0E0E0E0D0D0D0D0C0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0C0D0D0C
+      0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0F0E0F0E0F0E
+      0F151717171717140B0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C131717171717171715100E0F0E0E0E0F0E0E0F
+      0E0E0D0E0D0D0E0D0E0D0D0E0E0E0E0E0F0E101617171717140B000000000000
+      000000000000000000000000000000000000000013171717170F0E0E0F0E0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0E
+      0E0E0F10171717170B0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000D17171717100E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0D0E0D0E0D0D0C0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E0E0F131717171717160B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000D151717171717171715100E0F0E0E0E0F0E0E0E0E0E0E0D0D0E0D0D0E0D
+      0E0E0F0E0E0F1517171717140B00000000000000000000000000000000000000
+      00000000000000000C17171717150E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0F0E0E0E111717171700000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000B16171717110E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0E0F0E0F0E0E0E131717171717160E00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000B0F16171717171717
+      1714100E0F0E0E0E0F0E0E0E0E0E0E0D0E0D0E0E0F0E0E0E0F1517171717160B
+      0000000000000000000000000000000000000000000000000000000000131717
+      1717100F0E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0E0F0E0E131717171700000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000014171717150E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F0E0E
+      1116171717171600000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000B10171717171717171715100E0F0E0E0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0F0E1517171717150C00000000000000000000000000
+      00000000000000000000000000000000000C17171717150E0E0E0E0E0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0E0E0F0E13
+      1717171300000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0010161717170F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C
+      0D0D0D0D0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0D0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F0E0E0F17171717130000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000B11171717171717171716100F0E0E0E0E0F0E0F0E0E0E0F0E0F0E0E14
+      17171717170C0000000000000000000000000000000000000000000000000000
+      0000000000001317171717100E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0D0C0E0E0E0E0E15171717130000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000C17171717110E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D
+      0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0E0D0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0D
+      0C0D0D0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0F0E0E0E0F0F171717170E0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000B111717171717
+      17171716130F0F0E0E0E0E0E0F0E0E0E0E0E1317171717170E00000000000000
+      00000000000000000000000000000000000000000000000000000B1717171715
+      0E0E0F0E0E0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0C0E0E0F0E0E15171717110000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000016171717140E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0E0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0D0C0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E131717
+      17170B0000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000B1117171717171717171714100F0E0F0E
+      0E0E0F0E0F1117171717170E0000000000000000000000000000000000000000
+      0000000000000000000000000000001117171717100E0E0E0F0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0D0E0E0E0F0E1616171710
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001117
+      1717160F0E0E0E0E0F0E0F0E0F0E0F0E0F0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0D0E0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0C0D0D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E161717171300000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000B1116171717171717171716130F0E0F0E0E0E1117171717171100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000B17171717150E0F0E0E0E0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0D0E0E0E0E0F0E0E0E1717171710000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000D17171717110E0F0E0E0E0F0E0E
+      0E0E0E0E0E0F0E0E0E0E0E0F0E0F0E0F0E0F0E0F0E0E0E0E0D0E0E0D0E0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D
+      0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D
+      0E0F0E0E10161717170E00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000B0F151717
+      1717171717171715110F0E101617171717110000000000000000000000000000
+      0000000000000000000000000000000000000000000000001117171717100E0E
+      0F0E0E0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0E0D0E0E0E0E0E0F0E0E
+      0E0F0E171717170C000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000016171717150F0E0E0F0E0E0E0F0E0F0E0F0E0E0E0F0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C
+      0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F13171717170B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000E14171717171717171717171516
+      1717171713000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000B17171717150E0E0E0E0E0D0D0D0D0D0D0D0C0D
+      0D0D0C0D0D0D0E0E0E0E0E0E0F0E0F0E0E0E0E0F0E0E10171717170C00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001117171717
+      1717171715151514131313101010100E0E0E0E0F0E0F0E0F0E0F0E0F0E0E0E0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0D0C0D
+      0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0D0C0C0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0E0F0E0E1617171713000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000C1115171717171717171717171717140B00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      001117171717100F0E0F0E0E0D0D0D0D0D0D0D0D0E0E0E0E0E0E0E0E0F0E0F0E
+      0E0E0E0F0E0F0E0E0E1113171717170B00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000D17171717171717171717171717171717
+      17171717171716151514131313100E0E0E0F0E0E0D0E0E0D0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E10
+      171717170E000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000B0E
+      14171717171717171717140B0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000B17171717150E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0E0E0E0F0E0E0E0E0F111417171717
+      1717170000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000016171717171717171717171717171717171717171717171717171717
+      17160F0E0E0E0E0E0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D
+      0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C
+      0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F14171717160000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000B10151617171717160C00
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000001117171717100E0F0E0E0E0E0E0E0F0E0F0E0F0E0E0E
+      0E0E0F0E0F0E0F0E0E0F11141617171717171717171716000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001017171717171717
+      17171717171717171717171717171717171717171717130E0F0E0E0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0C
+      0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0D0C0C0D0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0E0F0E0E0F16171717110000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C101517160B0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000B17
+      171717150E0E0F0E0F0E0F0E0E0E0E0E0E0F0E0F0E0E0E0E0E10131416171717
+      1717171717171717171711000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000B0C0C0C100F101013131415171717171717
+      17171717171717171717160F0E0F0E0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C
+      0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0D0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E11171717170C
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000C0C000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000001117171717100E0E0E0E0E0E0E
+      0F0E0F0E0E0E0E0F10131415171717171717171717171717171716130E0B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000C0C0C0D100F101114141717171714
+      0E0E0F0E0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D
+      0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0E0F0E0E0E161717171500000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000B17171717150F0E0F0E0F0E0E101011131415171717171717
+      171717171717171717171714100D000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000001417171717100E0E0F0E0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E
+      0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0C0D0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E
+      0F10171717170F00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000011171717
+      17141314151517171717171717171717171717171717171717171715110E0B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000C17171717150E0E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F0E0F0E0E15171717150B0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000B171717171717171717171717171717
+      171717171717171717171714100E0B0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001317171717110F0E
+      0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D
+      0C0D0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0D0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0E0E0E0E101717171711000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000011171717171717171717171717171717171717171713110F0C0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000B17171717160F0E0E0E0F0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0C0C0C0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0F0E14171717
+      170B000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000B151717171717
+      17171717171717151311100C0B00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      001016171717140E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D
+      0D0C0D0C0D0C0D0C0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0F17171717130000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000010161715131411100F0D0C0B000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000001517171717100E0E0F0E
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D
+      0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0C0E0E0F0E0E0E0E0D0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F
+      0E0F0E14171717170C0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000F17171717110F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D
+      0D0C0D0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E0F0E0E0E
+      0F0E0E0E0E0E0E0D0D0D0C0C0C0C0C0C0C0D0E0E0E0E0F171717171300000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000110B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001517
+      1717160F0E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D
+      0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0C0D0C0D
+      0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0F0E0E0E0E
+      0E0E0E0D0D0F0E0F0E0E14171717170C00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000BF3F3070F000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000E17171717130E0E0F0E0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E
+      0F0E0E0E0F0E0E0E0F0E0E0F0E0F0E0E0E0F0E0F0E0E0E0E0E0E0E0E0F0F1717
+      1717130000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000E93D3F3F3140000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000013171717160F0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C
+      0D0D0C0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C
+      0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E0E0F100F0F0E0E0E0F0E0E
+      0E0E0E0F0E0E0E0E0E0F0E0F0E0F0E0E0E15171717170C000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000096F3E90B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000C17171717130E0F
+      0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0D0C0D0C0D0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0D0C0C0C0C0C0C
+      0C0C0C0D0E0E0E0E0F0E15171717161514131110100E0E0E0F0E0F0E0E0E0F0E
+      0E0E0F0E10171717171300000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000EF3F3170000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000013171717170F0E0E0E0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0C0C0C0D0C0C0C0D0C0C0D0C0C0C0C0C0C0C0C0E0E0F0E0E0E141717
+      17171717171717171717171514131110100E0E0E0F0E0E0E16171717170B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000D3F3910000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000000C
+      17171717140E0F0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0D
+      0C0D0C0D0C0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E0F11171717171717171717171717171717
+      1717171717171715141313131717171711000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00001A1A1100000000000011F81A00000000000E1A9607961A140B000000171A
+      17000000000011F81A00000000000E1A1A0D0000000000000B1791079891170B
+      0000000000000011F811000E1A96071A0E00000000000007F307000000000000
+      11F80798931A1100000000000000171A079891170B000000000B1998981A0000
+      0F19960793190B00000000000000000000171A1A1A1A1A1A1A1A1A1700000000
+      0011F8190000000000000000000B199307981A90191717171792920E0E0E0E0D
+      0E0D0E0D1491910E0D0E0D0D0E1991170E0D0E0D0D0E0D0D11F896CF93170D0D
+      0D0E0D0D0D0D0D139197CF91130D0D0D0D0D0D0D0D0D1995CF93150D0D91910D
+      0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0C0D0C0C0C0C0C0C0C0C0E0E0E
+      0E0E0F1017171717171717171717171717171717171717171717171717171717
+      1717171600000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000F3F31A00000000000007
+      F3960000000B92F3F3F3F3F3F3F39200000007F39800000000001AF3F3000000
+      000011F3F311000000000017E9F3F3F3F3F3F3E91A0000000000001AF31A17F3
+      F3F3F3F3F391000000000007F398000000000E98F3F3F3F3F3F3F31400000000
+      14F0F3F3F3F3F3F31A0000000BF0F3F3F3F3000FF3F3F3F3F3F3E91700000000
+      000000000007F3F3F3F3F3F3F3F3F3980000000000D3F3F30F00000000000000
+      19E9F3F3F3F3F3F3E817171492F3F30E0E0E0D0E0D0E0D0E96F3F3130E0D0E0D
+      0DF0F3E80D0D0D0E0D0D0E1AF0F3F3F3F3F3E8140D0D0D0E0D0F93F3F3F3F3F3
+      F3CF0F0D0D0D0D0D13D2F3F3F3F3F39717F3F30D0D0D0C0D0D0D0C0D0D0D0D0C
+      0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C
+      0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0E0E0F0E0F0E0F1717171717110E1011
+      1315171717171717171717171717171717171717171717100000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000F3F31A00000000000BF3F31900000007F3F31A0E0000
+      11191100000007F39800000000001AF3F3000000000011F3F3110000000093F3
+      F3071400000F92F3F3D00B000000001AF3E9F39610000E1AF3F3910000000007
+      F3980000000BF0F3E9170B000B13910B00000014F3F3D3170B000E160F000000
+      19F3F316000E000007170D000E93F3E90E000000000000000007F3D011131111
+      131111100000000011F3F3F3930000000000001AF3F396100000179393161710
+      92F3F30E0E0E0E0D0E0D0E0DE8F0F3930E0D0D0E17F3F3F3110D0E0D0E0D91F3
+      F393100D15D2F3F0130E0D0D0DCFF3F01A0F0D19E9F3D20F0D0D0D0FE8F3F019
+      0D0E19F0E8F3F30D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0D0C0D0C0C0C
+      0C0C0C0E0E0E0E0F0E0F171717171713000000000000000B0C0E101113151717
+      1717171717171717171715000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000F3F3
+      1A000000000011F3F30F000017F3F3110000000000000000000007F398000000
+      00001AF3F3000000000011F3F3110000001AF3F31A00000000000011F0F39600
+      0000001AF3F396000000000019F3F30D00000007F39800000093F3E90B000000
+      0000000000000BF0F3D00B00000000000000000096F3D0000000000000000000
+      000BF3F319000000000000000007F30700000000000000000000000093F393F3
+      E90B000000000EF3F31A0000000B17171717150E92F3F30E0E0D0E0D0E0D0E13
+      F3CFD2E80E0D0E0D96F393F31A0E0D0D0D11F3F3910D0E0D0D0FD2F3E80D0D0D
+      19F3F3150D0D0D0D13F0F3960D0D0D91F3F3130D0D0D0D15F3F3F30D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0D0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E0E10161717
+      1717140B0000000000000000000000000000000B0C0E10111315171717170D00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000F3F31A00000000001AF3E9000000
+      D0F393000000000000000000000007F39800000000001AF3F3000000000011F3
+      F31100000EF3F396000000000000000019F3F3110000001AF3F30E0000000000
+      00D3F39100000007F39800000BF3F3170000000000000000000017F3F3110000
+      000000000000000007F307000000000000000000000BF3F31A00000000000000
+      0007F39800000000000000000000000BF0F31197F3170000000091F3D3000000
+      001016171717100E92F3F30E0E0E0D0E0D0E0D92F39193F3130E0D0DF0F311F3
+      D20D0E0D0E93F3E90D0D0D0D0D0D15F3F3170E0DD2F3970D0D0D0D0D0D91F3F3
+      0F0D0DE8F3960D0D0D0D0D0D97F3F30D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C
+      0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0C0D0C0C0C0D0E0E0E0E0F0E0F1517171717150B000000000000000000
+      0000000000000000000000000000000B0C0C0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000F3F31A000000000007F396000000F3F317000000000000000000
+      000007F39800000000001AF3F3000000000011F3F311000091F3F30E00000000
+      0000000000D0F3960000001AF3F30000000000000093F30700000007F3980000
+      11F3F30E0000000000000000000091F3D3000000000000000000000007F39800
+      00000000000000000E96F3F30F000000000000000007F3980000000000000000
+      00000017F3E90017F3D00000000007F3930000000B15171717160E0E92F3F30E
+      0D0E0D0E0D0E0DD2F31717F3930D0E13F3970EE8F3100E0D0DCFF3960D0D0D0E
+      0D0D0DF0F3930D0DF3F3190D0D0D0D0D0D13F3F3170D0FF3F3180D0D0D0D0D0D
+      91F3F30D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0C0C0C0D0E0F0E
+      0E0E0F1517171717160B00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000F3F31A000000
+      000EF3F317000011F3F31911111311111311110E000007F39800000000001AF3
+      F3000000000011F3F3110000D0F3960000000000000000000019F3F30B00001A
+      F3F3000000000000001AF3E900000007F39800001AF3F3111311111311111311
+      0B0007F307000000000000000000000007F3980000000000000011F7F3F3F31A
+      00000000000000000007F3980000000000000000000000D0F3910000E9F30F00
+      0000F3F3931113111791909091160E0E92F3F30E0D0E0D0E0D0E11F3F30F0EF0
+      E80D0D93F3F80D96F3F80D0E0DF3F3910E0D0D0D0D0E0DCFF3CF0D15F3F3150D
+      0D0D0D0D0D0DF3F3910D15F3F3150D0D0D0D0D0D91F3F30D0D0D0D0C0D0D0D0C
+      0D0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0C0C0D0C0C0C0C0D0C0C0C0C0C0C0E0E0F0E0F1617171717150C000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000F3F31A0000000B97F3D30B000013F3F3F3F3
+      F3F3F3F3F3F3F31A000007F39800000000001AF3F3000000000011F3F311000B
+      F3F319000000000000000000000FF3F31100001AF3F3000000000000001AF3F3
+      00000007F39800001AF3F3F3F3F3F3F3F3F3F3F3110096F30700000000000000
+      0000000007F39800000000000093F3F3F398110000000000000000000007F398
+      000000000000000000000EF3F30F000093F393000000F3F3F3F3F3F3F3F3F3F3
+      F3CF0F0E92F3F30E0D0E0D0E0D0E1AF3D20E0D97F3140DE8F3110D17F3D20E0D
+      0DF3F3910D0D0D0D0D0D0DCFF3CF0D15F3F3150D0D0D0D0D0D0DF3F3910D15F3
+      F3150D0D0D0D0D0D91F3F30D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C
+      0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0D0C0C0C0C
+      0C0C0C0C0C0E0E0E0E0E16171717160C00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000F3F3071A1A92D3F3E91000000000F3F3931A1A1A1A1A1AF3F31A000007F3
+      9800000000001AF3F3000000000011F3F3110013F3F311000000000000000000
+      0000F3F31900001AF3F30000000000000093F3D000000007F398000011F3F31A
+      1A1A1A1A1A93F3F31100F8F3E9000000000000000000000007F3980000000000
+      91F3F3961000000000000000000000000007F3980000000000000000000091F3
+      D300000014F3E90B000007F3981A1A92969697E8F3CF0E0E92F3F30F0E0D0E0D
+      0E0D97F3910E0D19F39313F3D20D0E0FF3F3110D0ECFF3960D0E0D0E0D0D0EE9
+      F3960D0DF3F3190D0D0D0D0D0D13F3F3190D0DF3F3190D0D0D0D0D0D91F3F30C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0C0C0D0C0C0C0C0C0C0E0E0F0E0E1417
+      1717140000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000F3F3F3F3F3F3F3F31A00
+      00000000D0F31A00000000000BF3F311000007F3D3000000000091F3F30B0000
+      000017F3F30E0011F3F3110000000000000000000000F3F31A00001AF3F31100
+      0000000000D3F39300000007F39800000BF3F311000000000014F3F300000FF3
+      F3110000000000000000000007F3980000000000E9F396000000000000000000
+      000000000007F3E907980798079891000000E9F31A00000000E9F317000091F3
+      07000015171717E8F3920E0F91F3F3190E0D0E0D0E0FF3F3150E0D0FF3D290F3
+      910E0D0DCFF3F80D0D93F3F00D0D0D0D0D0D15F3F3190D0DD2F3970D0D0D0D0D
+      0D91F3F3110D0DD2F3970D0D0D0D0D0D96F3F30D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D
+      0C0D0C0D0C0C0C0C0C0C0C0C0C0D0E0E0F0E11171717170B0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000F3F39311131119D3F3D00B00000017F3E90B00000000
+      19F3E900000007F3F31900000000D3F3F31A0000000007F3D3000011F3F31100
+      00000000000000000000F3F31A00001AF3F3D0000000000019F3F31100000007
+      F39800000093F307000000000096F39600000007F3D30B000000000000000000
+      07F3980000000000E9F31A000000000000000000000000000007F3F3F3F3F3F3
+      F3F307000014F3F30E0000000093F3D000000EF3F3110E1717171AF3F3140E0E
+      92F3F3F0110E0D0E0D17F3F30E0D0E0D97F397F3130E0D0E1AF3D20E0D11F3F3
+      910D0D0D0E0DCFF3F00D0D0D19F3F3150D0D0D0D0FF0F3970D0D0D19F3F3150D
+      0D0D0D13F3F3F30D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C
+      0C0C0F0E0E0F0F171717170D0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000F3F3
+      F8000000000BD0F3070000000096F3D011000019F3F31800000007F3E9E9190B
+      0E93F3F393F31A0B0BF8F3F31A000000F3F319000000000000000000000EF3F3
+      1100001AF3F3D3D011000E1AF3F3960000000007F3980000000BE8F3960E000B
+      F7F3F30F0000000EE9F3D3170B000E160F000F13D0F3D01113110B0092F3E914
+      000E161700000000000000000007F39800000000000000000096F3D000000000
+      000FF3F30E000019F3E991171790F1F3980E0F0E92F3D2F0F093910E0D96F397
+      0E0D0D0E19F3F3E80D0D0D0D13F3F3110D0D19F3F393110D13CFF3F3170D0D0D
+      0D96F3F01A0F0D17E8F3F0110D0D0D0DCFF3F0190E0F18F0F3F3F30D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E1617171710
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000F3F31A000000000010F3F30F0000
+      000093F3F3F3F3F3F3910000000007F31A93F3F3F3F3F393001AF3F3F3F3F307
+      00000000D3F3930000000000000000000017F3F30D00001AF3F30FE8F3F3F3F3
+      F3070B0000000007F398000000000BD0F3F3F3F3F3E91700000000000E98F3F3
+      F3F3F3F3190007F3F3F3F3F3F3F311000B07F3F3F3F3F3D00000000000000000
+      0007F39800000000000000000EF3F318000000000000D3F39100000017F3F3F3
+      F3F3F3CF100E0E0E91F39317F3F3F30E0DF0F3900E0D0E0D0FF3F3930D0E0D0E
+      0DE8F3F80E0D0D19F0F3F3F3F3F3F0170D0D0D0D0D0D93F3F3F3F3F3F3D2130D
+      0D0D0D0D0FCFF3F3F3F3F3D293F3F30C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F1417171714000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000F3F31A000000000000F3F31A00000000000F929898910F000000
+      0000171A0E0011929893110000000F92989317000000000091F3E90B00000000
+      000000000096F3D30000001AF3F3000B1793079111000000000000171A170000
+      0000000014F79898190D00000000000000000FF8930793190F00171AD3F3D31A
+      1AF80E00000011929896190D00000000000000000007F3980000000000000000
+      0FF81A0E00000000000014F819000000001695D2D2CF180E0F0E0E0E1691150E
+      1196CF0E119191110E0D0D0D0D1991110D0E0D0D0E1991170D0D0D0D0F1993CF
+      93190F0D0D0D0D0D0D0D0D111A96CF91170D0D0D0D0D0D0D0D0D1593CF96180D
+      91F3F30D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0D0E
+      0F0E0E11171717170B0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000F3F31A000000
+      00000BF3F31A0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000EF3F31A000000000000000011F3F31A0000001A
+      F3F3000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000007F30700000000000000000000000000
+      00000000000000000007F3980000000000000000000000000000000000000000
+      000000000C17171717140E0E0E0F0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D91F3F30C0D0D0DCF150D9118
+      0DD2190CCF150D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0E0E0F0E10161717170D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000F3F31A000000000017F3F30F000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      001AF3F3110000000000000BE8F3D30B0000001AF3F300000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000007F3980000000000000000000000000000000000000000000007F398
+      00000000000000000000000000000000000000000000000013171717170F0E0F
+      0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D
+      0E0D0D0D0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D91F3F30D0D0C0DCF150D919110CF970DCF150D0C0D0C0D0D
+      0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0D0C0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0E0E0E0E1717171710000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000F3F31A0000000017E9F3D000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000093F3F31A0B00000014F0
+      F3E910000000001AF3F30000000000000000000000000091F391000000000000
+      000000000000000000000000000000000000000000000000000F170000000000
+      000000000000000000000000000000000007F398000000000000000000000000
+      00000000000000000000000B17171717160F0E0E0E0F0E0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0E0E0F0E0E0F0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D91F3F30C
+      0D0D0DCF150D1A911A1A9710CF100D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E
+      1417171714000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000F3F3F3079807F3F3F3D0
+      1000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000001AF3F3F30798E9F3F3D01000000000001AF3F30000
+      0000000000000000000000F3F3F3000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000007F3F3F3F3F3F3F3F3F3110000000000000000000000000000000B
+      1517171717150F0E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0E0D0E0D0E0E0E0E0E0E0F0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D91F3F30D0C0D0DCF150D1591D210191A
+      F30D0C0D0D0C0D0C0D0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C
+      0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E11171717170B000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000009307D0F3F3F3D0961700000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0E9198E9F3D39617000000000000001AF3F3000000000000000000000000001A
+      F31A000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000091079807980798
+      0798070F000000000000000000000000000000000C1517171717150F0E0F0E0E
+      0F0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0E0E0F
+      0E0F0E0E0E0F0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D91F3F30C0D0D0DCF150D1596D20C0F07F30D0C0D0C0D0D0C0D0C0D0C
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0F0E0E0F0F171717170D000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000001798070000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000C1517171717150F0E0E0F0E0E0E0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0E0F0E0E0E0F0E0E0F0E0E0E0F0E0E0E0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D18CFCF0D0D1891E8
+      969117E8180D0C96E90D0D0C0D0C0D0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E161717
+      1710000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000D17
+      17171717150F0E0E0E0F0E0E0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D
+      0E0E0E0E0E0F0E0E0E10130F0E0F0E0E0E0F0E0E0F0E0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D13151515150E150F0C0D10130D0C0D
+      0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F141717171400000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000E1717171717150F0E0E0E0E0E
+      0E0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0E0E0E0F0E0E0E0F0E13171717
+      140F0E0F0E0E0E0F0E0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0C0D0D0C0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0D
+      0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0D0E0F0E0E11171717170B000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000E1717171717150F0E0F0E0E0E0E0E0D0E0D0D0D0E0D0D0E
+      0D0D0E0D0D0E0E0E0E0F0E0E0F0E1016171717171717130F0F0E0E0E0E0F0E0E
+      0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0D0C0D0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0D0E0E0E0E0E0D0C0D0C0D0C0D0C0C0D0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E10161717170D00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000E1717
+      171717150F0E0E0F0E0E0E0E0D0E0D0E0D0E0D0D0E0D0D0E0E0E0E0F0E0E0E0F
+      0E141717171717171717171715110E0F0E0E0F0E0F0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0D0D
+      0E0E0E0E0E0E0E0F0E0E0D0C0C0C0D0C0D0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0E0E0E0E0E171717171000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000E1717171717150F0E0E0E0F0E0E
+      0E0E0D0D0D0D0E0D0D0E0E0E0E0F0E0E0E0F0E11161717171717171717171717
+      171716130F0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0D0C0D0D0D0D0D0C0D0D0C0D0E0D0E0E0E0E0E0E0F0E0F0E0E0E0F0E0E0D
+      0D0C0C0D0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F
+      0E0E141717171400000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000E171717171716100E0E0E0F0E0E0E0E0D0E0D0D0E0D0E0E0E
+      0E0E0E0F0E0F15171717171717160F13171717171717171717130F0E0F0E0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0D0E
+      0E0F0E0E0E0F0E0F0E0E0E0E0E0F0E0E0E0E0F0E0D0D0C0C0C0C0C0C0C0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E11171717170B00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000E171717
+      171716100F0E0E0E0F0E0E0E0D0E0D0E0E0E0F0E0F0E0E0E1317171717171717
+      110B00000C1317171717171717150E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0E0E0E0E0E0F0E0E0E0E0F0E0F0E
+      0E0E0F0E0F0E0E0E0E0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0F0E0E0F0F171717170D00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000E161717171717110E0F0E0E0E0E0E
+      0E0D0E0E0F0E0E0E0E0F1016161717171717150C0000000000000B1016171717
+      17170E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0D0D0D0D0C0D0E0F0E0F0E0E0E0F0E0E0E0E0F10131517110E0E0F0E0F0E0D0C
+      0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E16
+      1717171000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C151717171717140E0E0F0E0E0F0E0E0F0E0E0E0F0E0F131717
+      171717171710000000000000000000000B0F171717170F0E0F0E0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0E0E0E0E0E0E0F
+      0E0E10131415171717171717110E0E0E0E0E0E0E0C0D0C0C0D0C0C0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F14171717140000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000}
+    OnClick = OnCloseClick
+  end
+  object Label1: TLabel
+    Left = 8
+    Top = 264
+    Width = 312
+    Height = 13
+    Caption = 'Copyright RemObjects Software, 2002-2008. All rights reserved.'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Transparent = True
+    OnClick = OnCloseClick
+  end
+  object lbl_Version: TLabel
+    Left = 0
+    Top = 31
+    Width = 500
+    Height = 16
+    Alignment = taCenter
+    AutoSize = False
+    Caption = '[]'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Transparent = True
+  end
+  object Label7: TLabel
+    Left = 8
+    Top = 280
+    Width = 91
+    Height = 13
+    Caption = 'Visit our website at'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Transparent = True
+  end
+  object Label3: TLabel
+    Left = 102
+    Top = 280
+    Width = 136
+    Height = 13
+    Cursor = crHandPoint
+    Caption = 'http://www.remobjects.com'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsUnderline]
+    ParentFont = False
+    Transparent = True
+    OnClick = Label3Click
+  end
+  object btn_Cancel: TButton
+    Left = 418
+    Top = 272
+    Width = 77
+    Height = 25
+    Cancel = True
+    Caption = 'btn_Cancel'
+    Default = True
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    OnClick = OnCloseClick
+  end
+end
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.lfm b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.lfm
new file mode 100644
index 0000000..48e442b
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.lfm
@@ -0,0 +1,4815 @@
+object AboutForm: TAboutForm
+  Left = 281
+  Height = 300
+  Top = 181
+  Width = 500
+  HorzScrollBar.Page = 499
+  VertScrollBar.Page = 299
+  ActiveControl = btn_Cancel
+  BorderIcons = []
+  BorderStyle = bsNone
+  Caption = 'About RemObjects SDK'
+  ClientHeight = 300
+  ClientWidth = 500
+  Font.Color = clWhite
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  OnClick = OnCloseClick
+  OnCreate = FormCreate
+  Position = poMainFormCenter
+  LCLVersion = '0.9.25'
+  object Image1: TImage
+    Height = 300
+    Width = 500
+    AutoSize = True
+    OnClick = OnCloseClick
+    Picture.Data = {
+      07544269746D6170264E0200424D264E0200000000003604000028000000F401
+      00002C0100000100080000000000F0490200C21E0000C21E0000000100000000
+      000000000000000080000080000000808000800000008000800080800000C0C0
+      C000C0DCC000F0CAA600000000000B0B0B00151515001B1B1B00222222002B2B
+      2B00333333003B3B3B00037F0100434343004B4B4B00535353005B5B5B006060
+      60006A6A6A00727272007E7E7E000A81030017850800248A0D002C8D1000328E
+      1200359014003B91160033921D003E9318003C96250037983200439419004996
+      1B004D981C0053991E0044972300579B20005C9C2200539C2900449D3700629F
+      24004FA03B0065A0250068A126006CA2280073A42A007AA72D007DA82E0067A3
+      30006BA4310077A8360074AA3F007BAA3800429F40004DA244005BA5430062A7
+      42006AAA450076AC44006FB15B0078B1540062AF600067B0620074B567007FB6
+      61007DBA740080A92F0084AA31008BAC330087AE3C008BAF3D0091AE350094B0
+      370095B038009BB23900A3B53C00A9B63E0083B24E008EB349009EB6450094B5
+      4B009BB84E008CB5520085B5590090B95D00A2B74600AEB84000A3B94B00A8B9
+      4800B3BA4200BABC4500A4BB5400B1BF560082BA6C009ABC610082BC760091BE
+      7100C0BE4700C1BF4800ACC05E00B4C05700BEC15100B1C25F009AC27600AFC3
+      6900BBC56500A3C57800BBCA7700BECB7800C4C04800CBC24B00D2C44D00D6C6
+      5000D8C75000DCC85200E2CA5400E8CC5600ECCD5800F0CF5900F4D05B00F8D1
+      5C00CDCB6A00D6CB6400D3CD6C00CBCD7300C4CD7B00DAD27800E8CF6000E4D0
+      6900EDD36C00F4D36500F8D46600E3D27200EBD57500E3D57C00FAD87100FAD9
+      7A00828282008D8D8D00929292009D9D9D0081BF8000A3A3A300ABABAB00B4B4
+      B400BEBEBE0088C1830096C6890098C99200A6C98400BDCD8200BFD18D00A1CE
+      9C00ACD09A00BBD29500B8D49E00A9D1A200B3D5A600B8D7A800BED8AA00BFDF
+      BF00C1D28D00D3D58B00C0D49700CDD59200C4D59800CCD89C00D4DB9F00F4DA
+      8200F8DC8400F0DC8B00E3DA9000ECDD9400F0DF9500ECE09E00F5E09700FAE2
+      9800C2D7A200C1D9AB00C8DCAE00D6DCA000DADCA100D3DDA800D8DFAA00C0DE
+      BC00D0DFB100DEE0AC00CEE1BA00D3E0B200D9E1B400D6E3BD00E9E2A600F5E6
+      AB00F9E7AC00FBE8AD00ECE5B200F5E8B500FBEBB700F3EABE00FCEBB800C4C4
+      C400CDCDCD00C1DFC000D4D4D400DCDCDC00C7E1C200D7E6C800D1E7D000D3E8
+      D000DBEAD300E2E7C200E4EBCC00E9ECCE00F7ECC000FBEDC100F2EDC800FDF0
+      CC00E1ECD500ECEDD000F0EFD100EEF0DA00F4F0D300FAF2D500F5F3DD00F8F4
+      DE00E3E3E300EDEDED00E4F0E000EBF2E300F2F5E600FDF6E000F0F7EF00FCF8
+      E900F1F2F100F4F8F000FBFAF300FFFFFF000000000000000000F0FBFF00A4A0
+      A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000010161717150E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0E11
+      1717171717171717141311100E0C0B000000000B1617171717150E0E0E0E0E0E
+      0E0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0D0E0E0E0E10171717170C00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000013
+      171717150E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0F0E0E0E161717171717171717171717
+      1717171713110F1417171717150F0E0F0E0F0E0E0C0D0D0D0D0D0D0D0C0D0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0D0E0F0E0E1317171717
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000D0B0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000013171717140E0E0F0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0E0E0F0E0E111717171717171717171717171717171717171717171716
+      0F0E0F0E0E0E0E0D0D0C0D0D0C0D0D0D0D0C0D0C0D0D0C0D0D0C0D0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0C0D0E0E0F0E1317171714000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000F17160F0B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000015171717130E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0F0E0E161617
+      17171717171717171717171717171717171716100E0E0E0E0F0D0D0D0D0D0C0D
+      0D0D0C0D0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0E0E
+      0E0E0E1517171713000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000001117171717160F0B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000001717171713
+      0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0F0E0E10101010131314151617171717
+      171717171717100E0F0E0F0E0E0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D
+      0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0E0E0F0E0E161717171000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000000B
+      1117171717171717160F0B000000000000000000000000000000000000000000
+      00000000000000000000000000000017171717100E0E0F0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0E0E0F10131415171717110E0E0E0E0E0E
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C
+      0D0C0D0C0C0D0E0E0E0F0E171717170E00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000B1417171717171717171717160F
+      0B00000000000000000000000000000000000000000000000000000000000000
+      00000C17171717100E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0F0E0E0E0F0E0E0E
+      0F0E0F0E0F0E0E0E0F0E0E10100E0F0E0F0E0E0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0C0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0E0F0E0E1017
+      1717170C00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000C1516171717171617171717171717160F0B000000000000000000
+      000000000000000000000000000000000000000000000C171717170F0E0E0E0F
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0E0E0E0E0F0E0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0F0E
+      0E0E0E0E0E0E0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0D0E0E0E0F1116171717000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000C15171717171711
+      0E111517171717171717160F0B00000000000000000000000000000000000000
+      000000000000000000000E171717170E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0D0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E
+      0E0E0E0F0E0E0F0E0E0E0E0F0E0E0F0E0F0E0E0E0F0E0F0E0E0E0C0D0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C0D
+      0C0D0F0E0E0E1317171715000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000C151717171717110E0E0F0E111517171717171717
+      150E000000000000000000000000000000000000000000000000000000001016
+      1717170E0E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0E0E0E
+      0E0E0E0E0E0E0F0E0E0E0E0F0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0D0E0F0E0E151717171300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000E16
+      17171717160F0F0E0E0E0E0E0F101617171717171717150E0000000000000000
+      00000000000000000000000000000000000010171717150E0E0E0E0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0E0F0E0E0D
+      0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0C0C0C0E0E0E0F0E161617171000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000E171717171716100E0E0F0E0F0E0E
+      0E0F0E111517171717171717150E000000000000000000000000000000000000
+      000000000B1016171717140F0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0D0C0D0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0C0C0D0C0D0C0D0C0D0C0E0F0E
+      0E0E171717170F00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000E1717171717150F0E0E0F0E0E0E0F0E0E0E0E0E0F13161717171717
+      1717150E0000000000000000000000000000000000000B10171717171717130E
+      0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D
+      0C0D0C0D0D0C0D0D0C0C0C0C0C0D0C0D0C0E0E0E0F10171717170C0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000E1717171717150F0E
+      0F0E0E0E0F0E0E0F0E0F0E0E0E0E0F111617171717171717150E000000000000
+      00000000000000000B0F1617171717171717130E0F0E0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0C0D0C0D0C
+      0D0C0D0C0D0F0E0E0E10171717170B0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0F0E
+      0F0E0E0F0E131617171717171717150E00000000000000000000000F15171717
+      1717171716100F0E0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0C0D0C0D0C0D0D0C0D0D0D0C0D0C0D0C0C0C0C0C0D0E0F0E0F131617
+      1716000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000C1717
+      171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0F0E0E0E0F1116171717
+      17171717130C000000000000000C151717171717171716100F0E0E0E0F0E0E0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0D0E0E0E0E141717171300000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000C1517171717150F0E0E0E0E0F0E0E0E
+      0E0E0E0D0E0E0E0E0F0E0E0E0F0E0E0E0F131617171717171717130C0000000B
+      131717171717171716100F0E0E0E0F0E0E0E0F0D0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0C0C0D0C0D0C0D
+      0E0E0F0E0E151717171100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000C1517171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0F0E
+      0E0E0F0E0E0E0F111617171717171717130C0F1517171717171716100F0E0E0E
+      0F0E0E0E0F0E0E0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C
+      0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0E0E0E0F0E17171717100000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B1617171717150F0E0E
+      0E0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0F0E0E0E0F0E0E0E0F131717
+      17171717171717171717171716130E0E0E0E0F0E0E0E0F0E0E0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0C0C0E0F0E0E0F171717170C0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000B1417171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0F0E0E0E0F0E0E0F0F13171717171717171717171714
+      0E0E0F0E0F0E0E0E0F0E0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0D0C0C0D0C0D0C0D0C0D0D0E0E0E0F
+      10161717170B0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000141717
+      171716100E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0E0E
+      0E0F0E0E0E0E0E0F0F131717171717171715100E0F0E0E0E0E0E0F0E0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0E0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C
+      0D0C0D0D0C0D0D0C0C0D0C0C0D0C0C0D0F0E0E0E131717171700000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001117171717160F0E0F0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0E0E0F0E0F0E0E0E0F0F13
+      17171716130E0E0F0E0E0F0E0F0E0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D
+      0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C
+      0C0D0C0D0E0F0E0E141717171300000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000101617171717100E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0D0E0E0E0E0E0E0D0E0E0E0E0E0E0E0F0E0E0E0F0F13150F0E0F0E0E0E0F0E0E
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D
+      0D0C0D0C0D0C0D0C0D0D0C0D0D0C0C0D0C0D0C0D0C0D0C0E0E0E0F0E15171717
+      1300000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000E1717171717110E0E0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0E0E0E0E0F0E0E0E0E0F0E0E0E0E0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C
+      0D0D0C0D0C0C0C0D0C0D0C0E0E0F0E0E17171717100000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000C1517171717130E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0E0E0E0F0E0F0E0E0E0F
+      0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0E
+      0E0E0E0F171717170D0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000B151717
+      1717140E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0E0D0E0E0D0E0E0D0E0E0E0E0E0E0E0F0E0E0E0E0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0C0C0C0F0E0F0E10171717170C000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001317171717150F0E0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0E0E0E0E0F0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C
+      0D0C0D0C0D0C0D0E0E0E0E11171717170B000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000001017171717160F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0E0D0E0E0E0E0E0E0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0D0C0D0C0D0F0E0F0E13
+      17171717140B0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000C1717171717100E0F0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0E0D0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0C
+      0D0C0D0D0C0D0C0D0C0D0C0D0C0D0E0E0E0E0F131717171717160B0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000B1517171717130E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0E0D0E0E
+      0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0C0C
+      0C0C0E0E0F0E0E0E131717171717160D00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000131717
+      1717140E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E
+      0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0C0D0C0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0E0E0E0E0F0E0E101617
+      171717170E000000000000000000000000000000000000000000000000000000
+      00000000000000000C0E110E0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000F17171717160E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D
+      0C0D0C0C0C0D0C0D0C0C0C0E0E0F0E0E0F0E0F1617171717170E000000000000
+      00000000000000000000000000000000000000000000000B0D0F141617171716
+      0B00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000C17171717150E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0E0D0E0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0E0E0E0E0E0E0F0F1517171717170E0000000000000000000000000000000000
+      000000000000000C0F1315161717171717171717130000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001317171717110E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C
+      0D0C0D0D0C0D0C0D0D0C0D0C0C0C0C0C0D0C0C0D0C0D0E0F0E0E0E0E0F151717
+      171717110000000000000000000000000000000000000C0E1014171717171717
+      1717171717171717171000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000B17171717160F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0D0C0D
+      0C0D0C0D0C0D0C0C0C0D0D0E0E0F0E0E0E0F1417171717171100000000000000
+      00000000000B0D0F141517171717171717171717171717171717171717170C00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00001016171717130E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0D0C0D0C0C0C0D
+      0E0E0F0E0E0E0F1317171717170E000000000000000C0F131516171717171717
+      1717171717171717171615131013171717171400000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B15161717170F0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0D0C
+      0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0E0E0F0E0E0E0F13171717
+      17170E000C0E101417171717171717171717171717171717171513110F0E0E0E
+      0E0E151717171710000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000E17171717150E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0C0C0D0C
+      0C0D0C0D0C0D0C0D0C0C0E0E0E0F0E0E0E141717171717161717171717171717
+      1717171717171717151411100E0E0E0F0E0F0E0F0E0E0F16171717170B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1317171717100E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0C0C0D0C0C0E
+      0E0E0E0F0E0E1417171717171717171717171717171717171413100F0E0F0E0E
+      0F0E0E0E0E0E0E0E0F0E0E111717171713000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000C16171717160E0E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0D0C
+      0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0E0E0E0E0F0E0E1517171717
+      17171717171717151410100E0E0F0E0E0E0E0E0F0E0E0F0E0F0E0F0E0E0E0F0E
+      15171717170E0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000001117171717130E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C
+      0C0D0C0C0D0C0D0C0D0E0E0E0E0E0F0E151717171717161413100E0E0E0F0E0E
+      0E0E0E0F0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E101617171716000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000B1517
+      1717160F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0C0D0C0D0D0C0D0D0C0D0C0C0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0D0E0E
+      0F0E0E0E0F151413100F0E0E0E0E0E0F0E0E0E0F0E0F0E0E0E0E0E0F0E0E0D0D
+      0C0C0C0D0E0F0E0E0E1317171717110000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000001016171717140E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0C0C0C0D0C0C0C0D0C0D0C0D0C0D0C0D0D0E0E0F0E0E0E0F0E0E0F0E0F
+      0E0F0E0E0E0F0E0E0E0E0E0F0E0D0D0C0C0C0C0C0C0C0C0C0E0E0E0F0E0F1517
+      1717170C00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000015171717170F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D
+      0C0C0D0C0C0C0D0C0E0E0E0E0F0E0E0E0F0E0E0E0E0E0E0F0E0E0E0E0E0D0D0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E1017171717130000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000C17171717
+      150E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D
+      0C0D0D0C0D0C0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0E0E0F
+      0E0E0F0E0E0E0F0E0F0E0E0E0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0D0F0E0F0E0E14171717170E00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001317171717110E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0D0C0C0D0C0C0D
+      0C0D0C0D0C0C0C0C0C0D0C0D0C0C0D0C0C0C0E0E0E0F0E0E0F0E0E0D0D0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F0F17171717
+      1500000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B17171717160E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0C0D0C0C0C0D0C0D0C0D0C0D0C
+      0D0C0C0D0C0C0C0E0E0E0E0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0F0E0E0E0E13171717170F00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001016171717130E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C
+      0D0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0D0C0D0C0C0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D
+      0F0E0F0E0F161717171600000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000B15171717160F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C
+      0D0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E11171717171000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000E17171717140F0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D
+      0C0D0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0D0F0E0F0E0E16171717150B000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000001417171717100E0F0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C
+      0D0C0D0C0C0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E
+      0F0E111717171711000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000C17171717150E0E0F0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0C0D0C0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0E16161717170B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1117171717110F0E0E0F0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D
+      0C0D0D0C0D0C0D0C0C0D0C0D0C0C0D0C0D0C0C0C0C0D0C0D0C0C0D0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0E0F0E0F0E111717171710000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000B16171717160F0E0E0E0E0E
+      0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0C
+      0D0C0C0C0C0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0D0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0E
+      1616171716000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000001016171717130E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0C0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C
+      0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E111717171710000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001517
+      1717170F0E0F0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0C0D0D
+      0C0D0C0D0C0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0E0E0F0E0E1616171716000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000D17171717150E0E0F0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0D0C0C0C0D0C0C0D0C0D0C0D
+      0C0C0C0C0D0C0D0C0C0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F101717
+      17170E0000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000001317171717100F0E0E0F0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C
+      0D0D0C0D0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C
+      0C0C0D0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E0E1617171715000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000C16171717
+      160E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0E0E0E0F0E13171717170D0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001017171717130E0F0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0C0D0C0C0C0D0C0C0C0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0F1617171713
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B15171717160F0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0E0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D
+      0C0D0C0D0C0C0D0C0C0C0D0C0D0C0C0C0C0C0C0D0C0D0C0D0C0D0C0C0C0C0D0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E14171717170B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001117171717110E
+      0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0D0C0C0D0C0D0C0C
+      0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E
+      0F0E0E0F17171717100000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000B15171717160F0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E1517171716000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1017171717110E0F0E0F0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0C0D0C0D0C0D0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0E0E0E0F10171717170E0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000B15171717160E0E0E0F0E0E0E
+      0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0D0E0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0D0C0C0D0C0C0C0C
+      0C0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0F0E0E
+      0F16171717140000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000001017171717110E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0C0D0C0D0C0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C
+      0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E0E0F151717171716000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000B1517171716
+      0E0E0E0E0F0E0E0D0E0E0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0D0C0C0D0C0D0C0C0C0D0C0D0C0D0E15
+      1415141514151415110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0E0E0F0E0F0E0F1517171717150C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000001017171717110E0F0E0E0E0E0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0C0C0E151A9197CFE8F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3
+      CFCF939114130C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E0E0F151717171716
+      0B00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000015171717160E0E0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0E0D0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D
+      0C0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0D0C0C0C0D0C0C0E1791CFF0F3F3F3
+      F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3D29518130C
+      0C0C0C0C0C0C0E0E0F0E0E0F0E1517171717160C000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000E17171717110E0F0E0E0E
+      0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0D0C0F1693D2F3F3F3F3F3F3F3F3F3F0CFCF9091901614141414
+      141414131990909507D2F3F3F3F3F3F3F3F3F3F0971A130C0C0E0E0F0E0E0E0F
+      1517171717160B00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000014171717160F0E0E0E0F0E0E0E0E0D0E0E0E0E0D0E0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E
+      0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C101ACFF3F3F3F3
+      F3F3F3E8CF9116140C0C0C0C0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0F
+      131995D0F3F3F3F3F3F3F3E893180E0E0E0F0E1517171717160C000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000C171717
+      17130E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D
+      0D0C0D0C0D0C0D0C0D0C0F1AD2F3F3F3F3F3F3D29316100C0C0C0C0C0C0C0C0C
+      0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B139097E9F3F3F3
+      F3F3F096140F1517171717160B00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000011171717170F0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C1797F3F3
+      F3F3F3F096180F0C0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0C0B0C0B0B0C
+      0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B1392D0F3F3F3F3F3E995181717150C
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000B0C0E17171717140E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C
+      0D0C0D0C0D0D0C0D0C0D0C0D0C0F91E8F3F3F3F3E996170D0D0D0D0D0D0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0B0C0B0C0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B
+      0B000B0B000B00000E19D0F3F3F3F3F3CF900C00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000B0C1010131616171717171717100E0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C10
+      96E9F3F3F3F397190E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B
+      0C0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B000B0010
+      92E9F3F3F3F30714000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000C0D0F
+      131317171717171717171717171717160E0F0E0E0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D1096F3F3F3F3F091110E0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0C
+      0B0B0B0B0B0B0B0B0B0B0B000B0B000B00000B0000001707F3F3F3F3D3170000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000B0C0E10131517171717171717171717171717171717
+      171717130E0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C
+      0D0D0C0F95F3F3F3F3E8190E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B
+      000B0B000B0B000B000B00001093F3F3F3F3D311000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000B0C101013161617
+      17171717171717171717171717171717171717171614130F0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0F91E9F3F3F3E8190E0E0E
+      0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C
+      0C0B0C0B0C0B0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B000B0B000B00000B000B00
+      00000EF7F3F3F3F3070F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C0D0F1313171717171717171717171717171717171717171717
+      171715141311100E0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C
+      0D0C0D0C0D0C0D0D17E8F3F3F3E8190E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0B0C0B0B0B
+      0B0B0B0B0B0B0B0B0B0B000B0B000B0B000B00000B0000000EF7F3F3F3F3910B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000B161717171717
+      17171717171717171717171717171717151313100F0E0E0F0E0E0E0E0F0E0E0E
+      0E0E0F0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D10CFF3F3F3F0
+      190E0F0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C
+      0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B00
+      0B0B000B00000B00000B000000000E98F3F3F3E9170000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000D171717171717171717171717171717161413
+      11100F0E0E0E0E0F0E0F0E0E0E0F0E0E0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0E0E0E0D0E0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0D0C0D0C0D0D0C1AF0F3F3F392100F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B
+      0C0C0B0C0B0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B000B00000B00
+      0000000013D3F3F3F3070D000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      001016171717171717171715141311100E0E0F0E0E0E0E0E0F0E0E0E0E0E0E0F
+      0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0E0E0E0F0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C10
+      CFF3F3F3D0130E0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B
+      0B0B0B0B0B0B0B0B0B000B0B000B000B000B00000B0000000000F8F3F3F3E917
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000013171717161413100F0E0E
+      0E0E0E0E0F0E0E0F0E0F0E0E0E0F0E0F0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0E0E0E0E0F0E0E0E
+      0F0E0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C19F0F3F3F0900F0F0E0F0E0F0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B
+      0B000B000B000B00000B00000000000E98F3F3F3960B00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000017171717130E0E0E0E0E0F0E0F0E0E0E0E0F0E0E0E0F0E
+      0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D
+      0D0D0D0E0D0D0E0D0E0E0E0E0E0F0E0E0E0E0F0E0E0E0F0E0E0F0E0E0E0F0E0F
+      0E0F0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0C0F95F3F3F3D0130F0F0F0F0E0F0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B
+      0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B
+      000000000019F3F3F3E80F000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000C171717
+      17100E0F0E0F0E0E0E0E0F0E0F0E0E0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0E0E0E0F
+      0E0E0F0E0F0E0E0E0F0E0E0E0F0E0E0F0E0E0E0E0E0E0F0E0F0E0F0E0E0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0D10D2F3F3F3910F0F0F
+      0F0E0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B
+      0B0B0B0B0B0B0B0B000B0B000B0000000B000B000000000000000FD0F3F3F319
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000010161717170E0E0E0F0E0E0F0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0D0E0D0D0E0E0E0E0F0E0E0E0F0E0E0E0E0F111313151515
+      151515141313100F0E0E0E0E0E0E0E0E0E0F0E0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0D0D0D0C0D15F0F3F3E8150F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C
+      0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B
+      000B0B000B00000B000000000000000C93F3F3F3930000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000013171717150F0E0E0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E
+      0E0E0E0F0E0E0F0E0E0E1114151717171717171717171717171717171513100E
+      0F0E0F0E0E0E0E0E0E0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D18F3F3
+      F398110F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C
+      0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B00000B00000B000B00
+      000000000017E9F3F3D00B000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000015171717130E0F0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0E0E0F0E0E0E0F0E0F13161717
+      1717171717171717171717171717171717171715110F0E0E0F0E0F0E0E0E0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C96F3F3F392100F0F0F0F0F0F0F0F0F0F
+      0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B
+      0B0B0B0B0B0B0B000B0B000B0B000B00000B00000000000000000FE8F3F3D30F
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000B16171717110E0E0E0E0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0E0F0E0E0E0F0E0F141717171717171717171717171717171717
+      17171717171717171716130F0E0E0E0E0F0E0E0E0C0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D96F3F3F01A100F100F0F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E
+      0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B00
+      0B000B000B00000B000000000000000BD0F3F3E90F0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000000C
+      171717170F0F0E0F0E0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0F0E0E0E0F0E0F
+      1317171717171717171717171313100F100F1013141717171717171717171716
+      110F0E0E0E0E0F0E0E0C0D0D0D0D0C0D0D0D0C0D0D0ED2F3F3F015100F100F10
+      0F100F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B
+      0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B0000
+      000000000BF7F3F3E90F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000010161717170E0E0E0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0E0E0E0E0F0E0E11161717171717171716110E0B00
+      000000000000000000000C0F14171717171717171715100E0F0E0E0E0E0E0D0D
+      0C0D0D0D0C0D0D0D0ED2F3F3F016100F100F100F100F0F0F0F0F0F0F0F0F0F0F
+      0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B
+      0B0B0B0B0B0B000B0B000B000B000B000B00000000000000000093F3F3F31700
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000011171717150E0F0E0F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0F
+      0E0F0E0E0F1417171717171717130E0000000000000000000000000000000000
+      000B101516171717171716110E0E0F0E0E0E0E0D0D0D0C0D0D0D0C0FD2F3F3D2
+      11101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C
+      0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B
+      0000000B00000B000000000000000091F3F3F317000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001417171714
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0F0E0E0E0E101517171717171713
+      0C00000000000000000000000000000000000000000000000E15171717171717
+      140E0E0F0E0E0E0E0D0D0D0C0D0D0FD2F3F3D2131010101010100F100F100F0F
+      100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C
+      0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000B000000
+      0000000017F3F3F3110000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000017171717130E0F0E0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0E0E0E0E0F0E10161717171717150C00000000000000000000000000
+      000000000000000000000000000010151717171717150F0E0E0F0E0E0E0C0D0D
+      0D0CCFF3F3D31110101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F
+      0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B
+      0B0B0B0B0B000B0B000B000B000B000B00000000000000000017F3F3E90F0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000B17171717100E0E0F0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0E0F0E0E0E101617
+      1717171710000000000000000000000000000000000000000000000000000000
+      0000000B141717171717150F0E0E0E0F0E0D0D0D0D96F3F3D213101010101010
+      101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B00
+      0B000B00000B00000000000000001AF3F3E90F00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000C171717170F0E0F0E0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0E0E0E0F0E101617171717150D0000000000000000
+      0000000000000000000000000000000000000000000000000011171717171715
+      0F0E0E0E0E0E0D0D93F3F3F0131011101010101010101010100F100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E
+      0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B
+      0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B00000000
+      00000093F3F3E90B000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000010161717170E0E0E0E0F0E0E0E0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0F
+      0E0E0E0F1617171717160C000000000000000000000000000000000000000000
+      00000000000000000000000000000E1717171717140F0E0F0E0E0E19F3F3E916
+      11101010101010101010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F
+      0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0B000B0B000B000B000B000B00000000000000000093F3F3D00B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001017
+      1717150E0F0E0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0E0E0F0E0F1517171717140B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000E1717171717130E0E0F0E16F3F3F31611101110111010101010101010
+      1010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E
+      0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C
+      0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0000
+      000B00000B0000000000000000D0F3F393000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000013171717150E0E0F0E0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0F0E0E0E0E1317171717160B000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000E1717171717100E
+      0E13E9F3F3901111101110101110101010101010101010100F100F100F100F0F
+      0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D
+      0E0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C
+      0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000B0000000000
+      000BD0F3F31A0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000013171717130F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0E0E0E0F0E0F101717
+      1717160B00000000000000000000000000000000000000000000000000000000
+      000000000000000000000000001016171717160E0FD2F3F39610111110111110
+      101110101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E
+      0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B
+      0B0B0B000B0B000B000B000B000B000000000000000010E9F3F3110000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000017171717130E
+      0E0F0E0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0D0D0D0E0D0D0E0D0D0D0E0E0E0E0E0F15171717170E000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000013171717171393F3F3D01111111111101110111011101010101010101010
+      10100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B00
+      0B00000B0000000000000014F3F3E90B00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000017171717100E0F0E0E0E0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0E
+      0F0E0F0E13171717171300000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B1517171792F3F3F014
+      11111110111110111011101011101010101010101010100F100F100F0F0F0F0F
+      0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E
+      0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B
+      0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B000000000000
+      91F3F30700000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000C16171717100E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0E0E0E0E0F16171717150B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000D171718F0F3F31811111111111111111011101110
+      1010101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E
+      0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B
+      0B0B000B0B000B000B000B000B0000000000000000D0F3F31900000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000111314131314131314131314100F100F0C0C0B0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000C171717170F0F0E0E0E0E
+      0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D
+      0D0E0D0D0E0D0E0F0E0F0E13171717170E000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1317D0F3F3931111111111111111111110111011101110101010101010101010
+      100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C
+      0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0000000B
+      00000B0000000000000EE9F3F30F000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000B17171717
+      17171717171717171717171717171717151310100C0B00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000C171717170E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0E0E0E0E0F16
+      1717171500000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000C93F3F3D213111111111111
+      111111111110111011101110101010101010101010100F100F100F0F100F0F0F
+      0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D
+      0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C
+      0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000B000000000014F3
+      F3D0000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000001017171717171717171717171717171717
+      171717171717171717171713100E0C0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000101617
+      17170E0F0E0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0E0E0F0E0E11171717170E0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000BF0F3F31711111111111111111111111111101110111010
+      11101010101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E
+      0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B
+      0B000B0B000B000B000B000B0000000000000096F3F31A000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000001617171717171717171717171717171717171717171717171717171717
+      1717171713000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000010171717160E0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0E0E0E0F0E1517171715000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000096F3F393
+      1311131111111111111111111111111011101110101010101010101010101010
+      0F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B00
+      000B00000000000CE9F3E90E0000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000E171717171413111313
+      131514151514171717171717171717171717171717171717170B000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000010161717150E0F0E0E0E0E0E0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0E0E0F0E0E0F171717171000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000011F3F3D313111311131111111111111111
+      1111111110111011101110101010101010101010100F100F100F100F0F0F0F0F
+      0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D
+      0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B
+      0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B0000000019F3F398
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000013171717160E0E0F0E0E0E0E0F0E0E0E0E0E0E101011
+      131415171717171717171717170D000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000010171717150E0E
+      0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0D0D0D0E0D0D0E0D0E0E0E0F11171717170B00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000D3F3F31913111313111311111111111111111111111110111011101110
+      101010101010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F
+      0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B
+      000B0B000B000B000B000B00000000000007F3F3110000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000B1717
+      1717130F0E0E0E0F0E0E0E0E0F0E0F0E0E0E0F0E0E0E0E0E0F10131515171717
+      1710000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000013171717150E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0E0F0E0E
+      0E14171717150000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000019F3F397131313111311
+      131113111111111111111111111110111011101011101010101010101010100F
+      100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C
+      0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0000000B0000
+      0B0000000010F3F3D30000000000000000000000000000000000000000000000
+      000000000000000000000000000000000010171717170F0E0E0F0E0E0F0E0F0E
+      0E0E0E0F0E0E0E0E0F0E0F0E0E0F0E0E0E151717171300000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0013171717150E0E0E0F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0E0F0E0E1717171710000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000BF0F3F014131313111313111311111111111111111111
+      11111110111011101010101010101010101010100F100F100F100F0F0F0F0F0F
+      0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D
+      0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B
+      0B0B0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000B00000093F3F3170000
+      00000C0000000000000000000000000000000000000000000000000000000000
+      000000000016171717140E0F0E0E0E0F0E0E0E0E0F0E0E0E0F0E0F0E0E0E0E0E
+      0F0E0E0F0E131717171600000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000013171717140E0F0E0E0E0E
+      0F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E
+      0D0D0E0D0E0F0E0E0F171717170E000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000001AF3F3
+      F713131313131113131113111311111111111111111111111011101110111010
+      1010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C
+      0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B00
+      0B0B000B000B000B000B000000000CE9F3E90B000C1317150C00000000000000
+      0000000000000000000000000000000000000000000000000E17171717110E0E
+      0E0F0E0D0E0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0F0E0E10171717170B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000013171717130E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E0E0E0E0F10171717
+      170C000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000BF0F3E8151313131313111311131311
+      1113111111111111111111111110111011101110101010101010101010100F10
+      0F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B
+      0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B00000B
+      000000F8F3F3921417171717160B000000000000000000000000000000000000
+      00000000000000000000000013171717160E0F0E0E0E0E0D0D0D0D0D0D0D0E0D
+      0E0D0E0D0E0E0E0E0E0E0E0E0F0F171717170D00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000131717
+      17130E0F0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0E0D0D0E0D0E0E0F0E0E11171717170000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000001AF3F391131313131313131313111311131111111111111111111111
+      111110111011101011101010101010101010100F100F100F0F0F0F0F0F0F0F0F
+      0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D
+      0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B
+      0B0B0B0B0B0B0B0B0B000B0B000B000B000B0000000B000CE9F3F01817171717
+      17160C000000000000000000000000000000000000000000000000000000000B
+      17171717130E0E0F0E0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D0D0E0E0E0F
+      0E0E171717171000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000013171717130E0E0E0F0E0F0E0E0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0E0D0D0D0E
+      0E0E0E0F13161717160000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000BF0F3E81313131313
+      1313131311131311131113111111111111111111111111101110111010101010
+      10101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B
+      0B000B000B000B000B000000F8F3F396171717171717160B0000000000000000
+      0000000000000000000000000000000000000011171717170F0F0E0E0E0E0E0D
+      0D0E0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0E0E0E0F14171717130000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000013171717130E0F0E0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0E0D0D0E0D0E0D0D0E0D0E0D0E0F0E0E1317171713000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000001AF3F3911313131313131313131313111313111311
+      13111111111111111111111110111011101110101010101010101010100F100F
+      100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B
+      0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0000000B00000B00
+      0CE9F3E917171617171717170E00000000000000000000000000000000000000
+      0000000000000B15171717150E0E0E0F0E0D0D0E0D0D0D0D0E0D0D0E0D0D0D0E
+      0D0D0D0D0D0E0E0F0E0E13171717150000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001417171716130F
+      0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0E0E0E0E0F1117171713000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000000D3
+      F3F0141314131313131313131313131113131113111111111111111111111111
+      1110111011101110101010101010101010100F100F100F0F100F0F0F0F0F0F0F
+      0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D
+      0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B
+      0B0B0B0B0B0B0B0B000B0B000B0B00000B0000000090F3F3910F0F1617171717
+      170E0000000000000000000000000000000000000000000000000E1717171711
+      0E0F0E0E0E0E0D0D0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0E0D0E0E0E0E0F1116
+      1717170B00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000001717171717171714100E0E0E0F0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0D0E0E0F0E0E
+      1317171713000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000017F3F39513141313131313131313
+      1313131311131311131113111111111111111111111110111011101011101010
+      101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C
+      0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B
+      000B000B000B000B000CF3F3D20E0E0F1517171717170E000000000000000000
+      000000000000000000000000000014171717160E0F0E0E0E0E0D0D0E0D0D0D0E
+      0D0D0E0D0E0D0D0E0D0E0D0D0D0D0E0F0E0E0F171717170C0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0016171717171717171715110E0E0E0F0E0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0E0E0F111717171300000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000D0F3F31514131413141313131313131313131311131113111311
+      111111111111111111111110111011101010101010101010101010100F100F10
+      0F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D
+      0E0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C
+      0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B000B000B000000F7F3
+      F3160E0E0F1517171717170F0000000000000000000000000000000000000000
+      000C17171717130E0E0E0F0E0D0E0D0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0E0E0E0E0F0E17171717100000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000B0E151717171717171717
+      16130F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0E0D0D0E0E0F0E0E131717171600000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000FF3F398131413
+      1413131413131313131313131313131113111311131111111111111111111111
+      10111011101110101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F
+      0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B
+      0B0B0B0B0B0B0B000B0B000B000B000B000010F3F3960F0E0E0F151717171717
+      11000000000000000000000000000000000000000011171717170F0E0F0E0E0E
+      0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0E0F0E0E0E1517171713
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000E13171717171717171716140F0E0F0E0E0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0E0E0E0E0F11171717
+      1700000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000093F3F318141413141314131313131313131313
+      1313131113131111131111111111111111111111111011101110111010101010
+      1010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E
+      0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B00
+      0B000B000B0000D0F3F3100E0E0E0F1417171717171100000000000000000000
+      00000000000000000B15171717150E0E0E0F0E0D0E0D0D0E0D0D0E0D0E0D0D0E
+      0D0D0E0D0E0D0D0D0D0D0E0E0E0F0E1417171714000000000000000000000000
+      000000000000000000000000000000000000000B0B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000C1117171717171717171714100E0E0E0E0E0E0F0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0D0E0D0E0D0D0D0D0F0E0E0E10171717170C00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00E9F3E814141414131413141314131313131313131313131113131111131111
+      1111111111111111111110111011101011101010101010101010100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E
+      0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B
+      0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B00000B000B17F3F3190F
+      0E0E0E0F1317171717171100000000000000000000000000000000000E171717
+      17100F0E0E0E0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0E0D0D0E
+      0F0E0E1117171717000000000000000000000000000000000000000000000000
+      0000000000000E16150F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000B10161717171717
+      17171715110F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0D0E0D0E0D
+      0E0F0E0E0F171717170D00000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000014F3F3931414131414131413
+      1413131313131313131313131311131311111311111111111111111111111110
+      111011101010101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F
+      0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D
+      0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B
+      0B0B0B0B0B0B000B0B000B0B000B000CE9F3D20E0F0E0E0E0F13171717171713
+      0B00000000000000000000000000000014171717160E0E0F0E0E0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0E0E0E0E0F10171717170C000000
+      0000000000000000000000000000000000000000000000000B13171717171300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000B0E15171717171717171715130F0E0E0E0E
+      0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0E0D0E0E0E0F0E0E16171717100000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000093F3F3171414141414131414131413141313131313131313
+      1313111313111311131111111111111111111111101110111011101010101010
+      10101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C
+      0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B
+      00000B00F7F3F3110E0F0E0E0E0F131717171717140B00000000000000000000
+      0000000C17171717130E0E0E0F0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D
+      0E0D0D0D0D0D0D0E0F0E0E0E171717170F000000000000000000000000000000
+      00000000000000000000001017171717171717160C0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000E13171717171717171716140F0E0F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D
+      0E0D0D0D0D0D0D0D0E0E0E0E0F14171717140000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000E9F3CF14
+      1414141414141314131413131413131313131313131313111313111311111111
+      11111111111111111110111011101110101010101010101010100F100F100F0F
+      100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D
+      0E0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C
+      0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B000B15F3F3900E0E0F0E
+      0E0E0F111717171717140B00000000000000000000000011171717170F0E0F0E
+      0E0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0E0E0E0F0E
+      15171717110000000000000000000000000000000000000000000000000C1417
+      1717171717171717171000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000C11161717
+      17171717171714100E0E0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0E0D0E0D0F0E0E
+      0E11171717170B00000000000000000000000000000000000000000000000000
+      00000000000000000000000000000014F3F39114141414141414141413141314
+      1313131313131313131313131113131113111311111111111111111111111011
+      1011101011101010101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F
+      0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D
+      0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B
+      0B0B0B0B0B000B0B000B00000BE9F3CF0E0E0E0F0E0E0E0F101717171717140B
+      000000000000000000000B15171717140E0F0E0E0E0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0E0E0E0E0E141717171400000000000000
+      0000000000000000000000000000000B1017171717171717171717171717130B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000B1015171717171717171716110E0E
+      0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0E0D0D0E0D0E0D0E0D0E0F0E0F0F171717170F0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000093F3F31714141414141414141413141413141314131313131313131313
+      1311131113111311111111111111111111111110111011101010101010101010
+      101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0B
+      00F7F3F30F0E0E0E0F0E0E0E0F101717171717160B0000000000000C0E101417
+      171717100F0E0E0F0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0E0D0D0D
+      0D0D0D0E0E0F0E0E131717171700000000000000000000000000000000000000
+      00000D16171717171717150F10161617171717160B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000B0E15171717171717171716130F0E0E0E0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D
+      0D0D0D0D0E0E0E0E0E0E15171717150000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000E9F3D3151414141414
+      1414141414131413141313131313131313131313131313111311131113111111
+      111111111111111110111011101110101010101010101010100F100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E
+      0E0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B
+      0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000B0017F3F3190E0E0E0E0F0E0E
+      0E0F101717171717160B000C0F131617171717171717160E0E0E0F0E0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0E0E0F0E10171717
+      170C0000000000000000000000000000000000000B1317171717171716110E0F
+      0E0F141717171717170E00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000D13
+      171717171717171717140F0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E0E0F0E0E1117
+      1717170D00000000000000000000000000000000000000000000000000000000
+      000000000000000000000FF3F395151414141414141414141414141314131413
+      1413131313131313131313111313111113111111111111111111111111101110
+      11101110101010101010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F
+      0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D
+      0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0B000B0B000B0CF3F3960E0E0E0E0E0E0F0E0E0E101617171717161517
+      17171717171717171717130E0F0E0E0E0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E
+      0D0D0D0D0E0D0D0D0D0D0D0D0F0E0E0E0F161717170E00000000000000000000
+      000000000000001015171717171717140F0F0E0E0E0E0E111717171717171100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000C1116171717171717171715
+      100E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0E0D0E0D0E0E0E0F0E0F16171717130000000000000000
+      00000000000000000000000000000000000000000000000000000000000019F3
+      F319141415141414141414141414141314141314131413131313131313131313
+      1113131111131111111111111111111111111011101110101110101010101010
+      1010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E
+      0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C
+      0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B000BD0F3
+      E80E0E0E0D0E0E0E0E0F0E0E0F16171717171717171717171717171717170F0E
+      0E0E0F0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0E0E0F0E0E16171717100000000000000000000000000000000C141717171717
+      1716100E0E0E0E0F0E0F0E0E10161717171717130B0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000B101517171717171717160E0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0E0F0E0E0E14171717170D00000000000000000000000000000000000000
+      00000000000000000000000000000000000096F3F01514151414141414141414
+      1414141413141314131313131313131313131313131113131111131111111111
+      1111111111111110111011101010101010101010101010100F100F100F100F0F
+      0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E
+      0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C
+      0B0C0B0B0B0B0B0B0B0B0B0B0B0B000B0B0090F3F3110E0E0E0D0E0E0E0E0F0E
+      0E101617171717171717171717151413100F0F0E0F0E0E0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0E0E0E0E0F14171717150E0B
+      00000000000000000000000B1017171717171717130F0E0F0E0F0E0E0E0E0F0E
+      0E0F151717171717140B00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0B0E151717171717170E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0D0E0E0E0E0D0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0E0D0E0E0E0F0E0F17171717
+      150B000000000000000000000000000000000000000000000000000000000000
+      000000000000E9F3CF1514151415141414141414141414141414131413141314
+      1313131313131313131311131311131113111111111111111111111110111011
+      101110101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E
+      0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D
+      0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B
+      0B0B0B000B0B13F3F3190E0E0E0D0E0E0E0E0E0F0E0E0F161717171717151310
+      0F0E0E0E0F0E0E0E0E0E0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0E
+      0D0D0D0D0D0D0D0D0E0E0F0E0E13171717171715110C00000000000000000D16
+      171717171717150F0E0E0E0E0E0E0E0E0F0E0E0E0F0E0E141717171717150B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000D13171717170F0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0D0D0E0D0E0D0E0D0E0D0E0E0E0E0E13171717171000000000000000000000
+      000000000000000000000000000000000000000000000000000FF3F396141514
+      1514151414141414141414141414131413141313141313131313131313131311
+      1313111311111111111111111111111111101110111011101010101010101010
+      10100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0B0C0C0B0C0B0C0B0C0B0F0B0B0B0B0B0B0B0B0B0B000B0BF3F3960E0D
+      0E0E0D0E0E0E0E0E0E0F0E0F151514100F0E0E0E0E0F0E0E0E0F0E0F0E0E0E0D
+      0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E
+      0F101617171717171717140E000000000B1317171717171716110E0F0E0F0E0F
+      0E0F0D0D0D0E0F0E0E0E0F0E111717171717160B000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C17171717100E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0E0E
+      0E0F0E0F0E16171717170C000000000000000000000000000000000000000000
+      0000000000000000000000000017F3F31A151514151414151414141414141414
+      1414141413141314131313131313131313131313111313111311131111111111
+      11111111111110111011101011101010101010101010100F100F100F0F0F0F0F
+      0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D
+      0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0C0B0B0D
+      95970B0B0B0B0B0B0B0B0B0B0B000BD0F3D20E0E0D0E0E0D0E0E0E0F0E0E0E0E
+      0E0F0E0E0E0E0F0E0E0E0F0E0E0E0E0E0F0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0F0E0E0E0F15171717171717171717
+      150E0B0E16171717171717140F0F0E0E0E0E0E0E0E0D0D0C0D0C0E0E0F0E0E0E
+      0F101617171717160C0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0017171717110F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0E0D0D0E0E0E0E0E0F1017171717160B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0091F3F315151514151514151414141414171414141414141314141314131413
+      1313131313131313131113111311131111111111111111111111111011101110
+      1010101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E
+      0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0DD2F3F00B0B0B0B0B0B0B0B0B0B
+      0B0B0092F3F30E0E0E0D0E0E0D0E0E0E0E0F0E0F0E0E0E0F0E0E0E0F0E0E0E0F
+      0E0F0E0E0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D
+      0D0D0D0D0D0E0E0F0E0E0E0F131616171717171717171717171717171716100E
+      0E0E0E0F0E0F0E0E0C0D0C0D0D0C0D0E0E0E0F0E0E0E101617171717150C0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000014171717130E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0E
+      0D0E0D0E0D0E0D0D0E0E0F0E0E0E1417171717140B0000000000000000000000
+      00000000000000000000000000000000000000000007F3D31515151514151415
+      1415141414D29815141414141413141314131314131313131313131313131311
+      1311131113111111111111111111111110111011101110101010101010101010
+      100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C
+      0B0C0C0B0C11E8F3F3F3110B0B0B0B0B0B0B0B0B0B0B0B19F3F3160D0E0E0D0E
+      0E0D0E0E0E0E0E0E0E0F0E0E0F0E0E0E0F0E0E0E0E0D0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0F0E0E
+      0E0E1114171717171717171717171717130F0E0F0E0F0E0E0E0E0D0C0D0D0C0D
+      0C0D0C0D0D0E0E0E0F0E0E0F1617171717160B00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000013171717150E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E
+      0E0E0E0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0D0D0D0D0D0E0D0E0E0E0E
+      0F0E0F1517171717140B00000000000000000000000000000000000000000000
+      000000000000000000E9F3D015151415151514151415141514F3F3F090141414
+      1414141314131413131313131313131313131311131311111311111111111111
+      111111111110111011101110101010101010101010100F100F100F0F100F0F0F
+      0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D
+      0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B11F0F3F3F3F31A0B
+      0C0B0B0B0B0B0B0B0B0B0B13F3F3190E0E0D0E0E0D0E0E0D0E0E0F0E0E0E0F0E
+      0E0E0E0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0E0E0F0E0E0E0F0E0E0E0E0F13161717171717
+      1717150F0E0E0E0E0E0E0E0E0D0D0D0D0D0C0D0D0C0D0D0C0D0D0E0F0E0E0F0E
+      101617171717160B000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000101617
+      17160E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0E0D0D0E0D0E0D0E0D0E0D0D0D0E0E0E0E0E0E101617171717140B00
+      000000000000000000000000000000000000000000000000000000000BF3F396
+      15151515151514151514151419F3F3F3F3CF1514141414131414131413141313
+      1313131313131313111313111113111111111111111111111111101110111010
+      11101010101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E
+      0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0B17F0F3F39FF3F3950B0B0B0B0B0B0B0B0B0B0B0B0B
+      F3F3910E0D0E0E0D0E0E0D0E0E0D0E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0E0E0E0F0E0E0F0E0F0E0E0E0F111617171716130E0F0E0F0E0F0E0F0D0D
+      0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0E0E0F0E0E0E0F1517171717160B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000D171717170F0E0E0E0F0E0E0E0E0E
+      0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0D
+      0E0D0D0E0D0D0E0E0F0E0E0E101717171717160B000000000000000000000000
+      0000000000000000000000000000000011F3F391151515151515151415141415
+      91F3F3F3F3F3F090141414141314131413131413131313131313131313111313
+      1111131111111111111111111111111011101110101010101010101010101010
+      0F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0C18F3
+      F3F39A02A7F3CF0B0C0B0C0B0B0B0B0B0B0B0B0BD3F3CF0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0E0E0E
+      0F0E0E0F0E1316150F0E0E0E0E0E0E0E0E0D0D0D0D0C0D0D0C0D0C0D0C0D0D0C
+      0D0D0C0D0E0E0E0F0E0E0F1517171717160B0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000B17171717100F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0E0D0E0E0E0F0E0E
+      0E111717171717170F0000000000000000000000000000000000000000000000
+      0000000017F3F31A15151515151515151514151495F3F370E3F3F3F3CF151414
+      1414131413141313131313131313131313131113131113111311111111111111
+      1111111110111011101110101010101010101010100F100F100F100F0F0F0F0F
+      0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D
+      0D0D0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C18F3F3F34402129FF3F30C0B0B0B0B
+      0B0B0B0B0B0B0B0B07F3CF0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0F0E0E0E0F0E0E0E0E0E0E0F0E0F
+      0E0F0E0E0C0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0C0C0D0E0E0E0E0F0E0F
+      1617171717160000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000016171717130E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0E0F0E0E0E11161717171717130C00
+      0000000000000000000000000000000000000000000000001AF3F31515151515
+      1515151515141515D2F3EC605DAEF3F3F3F09014141413141413141314131313
+      1313131313131311131311131111111111111111111111111110111011101110
+      101010101010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F
+      0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C0C0D
+      0C0C0C0C18F3F3F34412121294F3F30F0C0B0C0B0C0B0B0B0B0B0B0B95F3F30E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0E0E0F0E0E0E0F0E0F0E0E0E0E0E0E0E0D0C0D0D0D0D0D0C0D0D
+      0C0D0C0D0D0C0D0C0D0C0D0C0C0D0E0E0F0E0E0E0F1617171717140B00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000013171717150E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0E0E0E0F0E0E0E1016171717171717110B0000000000000000000000
+      00000000000000000000000096F3F315151515151515151515151415D2F3DB60
+      5D5D70E3F3F3F3CF151414131413141313131313131313131313131311131311
+      131113111111111111111111111110111011101011101010101010101010100F
+      100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0C0C19F3F3F34412121212
+      3CF3F3140C0B0B0C0B0B0B0B0B0B0B0B90F3F30E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0F0E
+      0E0E0E0F0E0F0E0E0D0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C
+      0D0C0D0E0E0E0F0E0E101617171717140B000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000010161717170E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0E0D0D0E0D0E0E0E0F0E0E0E
+      0F1417171717171717110C0000000000000000000000000000000000000B0E14
+      D2F3D216151515151515151515151514F3F3C16060605D5DAEF3F3F3F0901414
+      1413141314131413131313131313131313111311131113111111111111111111
+      11111110111011101010101010101010101010100F100F100F100F0F0F0F0F0F
+      0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D
+      0D0D0D0D0D0D0D0C0C0D18F3F3F3441B1212121225F3F3180B0C0B0B0C0B0B0B
+      0B0B0B0B18F3F3150E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0F0E0E0E0E0E0E0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0C0E0E0E0F0E0E0F16
+      171717170F000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000C17171717100E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0E0E0F0E0E0F0E13171717171717171715
+      100D0000000000000000000000000B0E13151717D2F3D2151615151515151515
+      15151515F3F3BC606060605D5D70E3F3F3F3CF15141413141314131413131313
+      1313131313131311131113111311111111111111111111111011101110111010
+      1010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0C19F3F3
+      F3441B1B121B121212F3F3910B0C0B0C0B0C0B0C0B0B0B0B14F3F3150E0E0D0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E
+      0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0E0F0E0E0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0E0E0E0E0F0E15171717170B00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000B16171717110E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0E0D0E0D0E0E0F0E0E0E0E0F151717171717171717171714130F100F100F1010
+      1316171717171717F1F3D015151615151515151515151519F3F3A96160606060
+      5D5D53AEF3F3F3F0901414131413141313131313131313131313131113131111
+      1311111111111111111111111110111011101110101010101010101010100F10
+      0F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D15F3F3F3441B1B1B121B121212F3F391
+      0B0C0C0B0B0B0C0B0B0B0B0B14F3F3150E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0E0D0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E
+      0C0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C
+      0C0E0E0F0E0E1017171717110000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000E17
+      171717140F0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0E0E0E0F0E0E0E
+      0E101517171717171717171717171717171717171717171717171717F3F39616
+      15161515151515151515151AF3F3836161606060605D5D536BDBF3F3F3CF1514
+      1314131413141313131313131313131311131311111311111111111111111111
+      111110111011101011101010101010101010100F100F100F0F0F0F0F0F0F0F0F
+      0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D0D0D
+      0D0D0D13F0F3F3451B1B1B1B1B121B1212D6F3CF0C0B0C0B0C0B0B0C0B0B0B0B
+      11F3F3900E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0E0D0D0E0D0D0E0D0E0D0D0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0D0C0D0D0C0D0D0C0C0D0C0C0D0C0D0C0E0E0E0E0F14171717170B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000E1717171717150E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0D0D0D0D0D0E0E0E0E0F0E0F0E0E0E101417171717171717
+      17171717171717171717171717171715F3F3961615161516151515151515151A
+      F3F383616161606060605D5D5353ABF2F3F3F091141413141313131313131313
+      1313131313111313111113111111111111111111111111101110111010101010
+      10101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0D0D11E9F3F3451B1B1B1B1B
+      1B1B121B12A7F3CF0C0C0B0C0C0B0C0B0C0B0C0B0BF3F3910E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0D
+      0C0D0C0D0C0C0C0D0D0F0E0F0E0F171717171100000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000E1717171717150F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D
+      0D0D0D0E0E0E0E0E0E0F0E0E0E0F101417171717171717171717171717171717
+      1613100FF3F3961615161516151515151515151AF3F38368616161606060605D
+      5D53536BDBF3F3F3D21614131413141313131313131313131313111313111311
+      13111111111111111111111110111011101110101010101010101010100F100F
+      100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0D0E0D0E0D0D0D0D0D0FD2F3F39F1C1B1B1B1B1B1B1B1B121BA7F3CF0C0C0B0C
+      0B0C0B0C0B0B0B0B0BF3F3910E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D0D0E0D0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D
+      0D0C0D0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C0C0C0D0C0D0C0D0E0E0E0E
+      0E14171717170B00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000E1717171717150F0E
+      0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0D0D0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0E0E0F0E0E0E0F
+      0E0E0F0E0E10111315151717171716151413100F0E0F0E0EF3F3961616151615
+      1615161515151593F3F3806868616161606060605D5D535353ABF2F3F3F09313
+      1413141314131313131313131313131113131113111111111111111111111111
+      1110111011101110101010101010101010100F100F100F0F100F0F0F0F0F0F0F
+      0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0D0D97F3F3
+      A31B1B1C1B1B1B1B1B1B1B1B12D1F3CF0C0C0C0B0C0C0B0B0C0B0C0B0BF3F391
+      0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C
+      0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0D0E0F0E0F0F1717171713000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0E0D0D0D0D0D0E0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0E0E
+      0E0E0E0F0E0E0F0E0E0E0E0FF3F39615161615161516151515151596F3F36869
+      6868616161606060605D5D53535363DBF3F3F3D0171413141313131313131313
+      1313131311131311131113111111111111111111111110111011101011101010
+      101010101010100F100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E93F3F3D61D1C1B1C1B1B1B1B1B1B1B1B
+      1BA7F3CF0C0C0C0C0B0C0C0B0C0B0B0C0BF3F3910E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0C0D
+      0C0D0C0E0E0E0E0E14171717170C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000E1717
+      171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D
+      0D0D0D0D0E0E0E0F0E0E0E0F0E0E0E0F0E0F0E0F0E0F0E0E0E0F0E0E0F0E0E0E
+      F3F39616161615161615161516151596F3F37474686868616161606060605D5D
+      53535352ABF2F3F3F09514131413141313131313131313131311131113111311
+      111111111111111111111110111011101010101010101010101010100F100F10
+      0F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D
+      0E0D0E19F3F3EE1D1C1C1B1C1B1C1B1B1B1B1B1B1BD1F3CF0C0C0C0C0C0B0C0C
+      0B0C0B0B0CF3F3910E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0C0D0C0C0C0C0D0F0E0F0E0F16171717
+      1300000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000E1717171717150F0E0E0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0E0E0E0E0E
+      0F0E0E0E0F0E0E0E0E0E0E0F0E0E0E0F0E0E0F0EF3F396161616161516151615
+      15151596F3F3747474696868616161606060605D5D535353525FD9F3F3F3D318
+      1314131313131313131313131313131113111311131111111111111111111111
+      10111011101110101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F
+      0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E14E9F3F32E1C1C1C1C1B
+      1C1B1C1B1B1B1B1B1BD1F3CF0C0C0C0C0B0C0C0B0C0B0C0B0BF3F3910E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E
+      0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C
+      0D0C0C0D0C0D0C0D0C0D0E0E0E0E0E13171717170E0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0E0D0E0E0F0E0E0E0E0F0E0F0E0E0E
+      0F0E0E0E0E0E0D0DF3F39616161616161516151615161593F3F3827474746968
+      68616161606060605D5D535353535273F2F3F3F3951314131413131313131313
+      1313131113131111131111111111111111111111111011101110111010101010
+      1010101010100F100F100F0F100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E
+      0E0E0E0E0E0E0E0E0E0FD2F3F3461C1C1C1C1C1C1B1C1B1C1B1B1B1B1BD1F3CF
+      0C0C0C0C0C0C0C0B0C0C0B0C0BF3F3910E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0C0D0D0D0C0D0C0D0C0D0C0D0E0E
+      0F0E0F1617171715000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000E1717171717150F0E0E
+      0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0E0E0E0E0E0E0E0E0E0E0E0D0E0D0D0D0D0DF3F39616
+      161616161615161615161590F3F38575747474686868616161606060605D5D53
+      535352525FD9F3F3F3E819141314131313131313131313131113131111131111
+      1111111111111111111110111011101011101010101010101010100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E96F3F3
+      A31C1C1C1C1C1C1C1C1B1C1B1C1B1B1B1BD1F3CF0C0C0C0C0C0C0B0C0C0B0C0B
+      0CF3F3910E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0E0E0E0E0F11171717170E00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF3F3961616161616161615161515161A
+      F3F3857575747474696868616161606060605D5D53535352525270ECF3F3F396
+      1513131313131313131313131311131311111311111111111111111111111110
+      111011101010101010101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F
+      0E0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E19F3F3D71E1C1C1C1C1C1C1C1C1C1B1C
+      1B1C1B1B1BD1F3CF0C0C0C0C0C0C0C0C0C0B0C0C0BF3F3910E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0C
+      0C0C0C0C0D0E0F0E0E0E16161717150000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000E171717
+      1717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0E0D0D0D0D
+      0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0DF3F39616161616161616161516161590F3F385757575747474696868
+      616161606060605D5D5353535252525FBDF3F3F3F09014131313131313131313
+      1313111313111311131111111111111111111111101791939393181010101010
+      10101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E
+      0E0E0E14F0F3EE2E1D1C1D1C1C1C1C1C1C1C1C1B1C1B1C1B1BD7F3CF0C0C0C0C
+      0C0C0C0C0B0C0C0B13F3F31A0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0E0E0E0F0E111717
+      1717100000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000E1717171717150F0E0E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D
+      0E0D0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF0F3D01616161616
+      1616161615161590F3F3B275757575747474696868616161606060605D5D5353
+      53535252516DE3F3F3F3D2161413131313131313131313111313111311111111
+      1111111111111596F0F3F3F3F3F3F3F0971410101010101010100F100F100F0F
+      100F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F0E0E0E10D2F3F3461D1C1D1C1C
+      1C1C1C1C1C1C1B1C1B1C1B1C1BF3F3930C0C0C0C0C0C0C0C0C0C0C0B14F3F315
+      0E0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D
+      0D0D0E0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0D0C0D
+      0D0C0D0C0D0C0D0C0D0C0D0C0E0F0E0E0E16171717150B000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0D0E0D0D0E0D0E0D0D0E0D0D
+      0E0D0D0D0E0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0DCFF3D216161616161616161616151615F3F3C676
+      76757575747474696868616161606060605D5D5353535252525251ADF2F3F3F0
+      9513131313131313131313131113131113111311111111111597F3F3F3F3F3F3
+      F3F3F3F3F3F395131010101010100F10100F100F0F0F0F0F0F0F0F0F0F0F0F0F
+      0F0E0F0E0F0E0E0F0E0E93F3F3A31D1D1C1D1C1D1C1C1C1C1C1C1C1C1C1B1C1B
+      1BF3F3910C0C0C0C0C0C0C0C0C0C0B0C14F3F3150E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0E
+      0E0E0E0F10171717171000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000E1717171717150F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      CFF3D217161616161616161616161516F3F3CA76767575757574747469686861
+      6161606060605D5D535353535252515262DAF3F3F3D319131313131313131313
+      131113111311131111111493F0F3F3F3D5713A2F2F3A6ED5F3F3F3D315101010
+      1010100F100F100F100F0F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0F18F3F3
+      EA221D1D1D1C1D1C1D1C1C1C1C1C1C1C1C1C1B1C25F3F31A0C0D0C0C0C0C0C0C
+      0C0C0C0C18F3F3150E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E
+      0D0D0E0D0D0E0D0D0D0E0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0D0E0F0E0E0E1517171716000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D
+      0E0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D96F3F3161716161616161616
+      16161615D3F3E477767676757575747474696868616161606060605D5D535353
+      52525252515172F2F3F3F398151313131313131313131311131113111318E8F3
+      F3F3D55B323231312F2F2C2C5AE0F3F3F016101010101010100F100F100F100F
+      0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E10F0F3F3301D1D1D1D1D1C1D1C1D1C1C
+      1C1C1C1C1C1C1C1B3DF3F3150D0C0D0C0C0C0C0C0C0C0C0C90F3F30E0D0E0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D
+      0E0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C
+      0D0C0D0C0D0C0E0E0E0F0E101717171711000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000E17171717
+      17150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D
+      0E0D0D0E0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D91F3F317161716161616161616161616D2F3EF7776767676
+      757575747474696868616161606060605D5D5353535352525251515CBDF3F3F3
+      F0921313131313131313131113131114CFF3F3F3F171333333323231312F2F2F
+      2C37B9F3F3F016101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0E0F
+      0F0E0F0ED0F3F3661D1D1D1D1D1D1D1C1D1C1D1C1C1C1C1C1C1C1C1C99F3F310
+      0D0C0C0D0C0C0C0C0C0C0C0C93F3F30D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0E0F0E0E0E15
+      171717170B000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000E1717171717150F0E0E0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D1AF3F31A
+      17161716161616161616161696F3F37777777676757575757474746968686161
+      61606060605D5D535353525252525151516ADAF3F3F3E8191313131313131313
+      111392F0F3F3F3B83B3434333333323231312F2F2C2C2CB9F3F3E81310101010
+      10100F10100F100F0F100F0F0F0F0F0F0F0F0F0F0F0E0F92F3F3D41E1E1D1D1D
+      1D1D1D1D1C1D1C1D1C1C1C1C1C1C1C1B9BF3F30D0C0D0D0C0D0C0C0C0C0C0C0C
+      07F3D20E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D
+      0C0D0D0C0D0C0D0C0C0D0C0D0C0E0E0E0E0F0F17171717110000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D15F3F390171716171616161616161616
+      92F3F38D787777767676757575747474696868616161606060605D5D53535352
+      525252515151519DF2F3F3F3D01913131313131319D3F3F3F3E0653434343433
+      333333323231312F2F2F2C2CB9F3F3D0101010101010100F10100F100F0F0F0F
+      0F0F0F0F0F0F0F0F0E0F15F3F3EE231E1D1E1D1D1D1D1D1D1D1C1D1C1D1C1C1C
+      1C1C1C1CD1F3D20D0D0C0D0C0C0D0C0C0C0C0C0CE8F3CF0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0C0D0C0D0D0C0D0C0C0C0C
+      0C0E0F0E0E0E14171717170B0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000E1717171717150F0E0E0E0E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0E
+      0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D10F3F39716171716171616161616161690F3F3B57878777776767575
+      7575747474696868616161606060605D5D535353525252525151515156ADF3F3
+      F3F3CF19131692D3F3F3F3F1AA3535353434343433333333323231312F2F2C2C
+      2CD5F3F393101010101010100F100F100F100F0F0F0F0F0F0F0F0F0F0F10E8F3
+      F3421E1E1E1E1D1E1D1D1D1D1D1D1C1D1C1D1C1C1C1C1C1CF3F3960D0D0D0C0D
+      0D0C0D0C0C0C0C0CF3F3910E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0D0E0E0F0E0F171717171300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF3F30717171717
+      161716161616161616F3F3CD7978787777767676757575747474696868616161
+      606060605D5D53535352525252515151515062C5F3F3F3F3F3F3F3F3F3F3C04C
+      36363535343434343434333333323231312F2F2F2C37F1F3F318101010101010
+      10100F100F100F100F0F0F0F0F0F0F0F0F96F3F39F1F1E1E1E1E1E1D1D1D1D1D
+      1D1D1D1C1D1C1D1C1C1C1C2EF3F31A0D0D0D0D0C0D0C0C0D0C0C0C15F3F3190E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C
+      0D0D0C0D0C0D0C0D0E0F0E0E0E14171717170C00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E1717171717
+      150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D
+      0E0D0E0D0E0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0DCFF3E817171717171617161616161616D2F3EF
+      797978787777767675757575747474696868616161606060605D5D5353535252
+      52525151515150516FDAF3F3F3F3F3EBAC574A49493636353535343434343333
+      3333323231312F2F2C2C5AF3F3E81310101010101010100F100F100F100F0F0F
+      0F0F0F0F1AF3F3D81F1F1E1E1E1E1E1E1D1E1D1D1D1D1D1D1C1D1C1D1C1C1C48
+      F3F3150D0D0D0D0D0C0D0D0C0D0C0C18F3F3150E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0D0E0E0E0F
+      0E17171717170C00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000E1717171717150F0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D93F3F31717171717171617161616161697F3F3877979787877777676767575
+      75747474696868616161606060605D5D535353525252525151515150504F5E9E
+      AC9E624B4A4A4A4A494936363535343434343433333333323231312F2F2F2CA2
+      F3F3931010101010101010100F100F100F0F100F0F0F0F13F0F3EE3E1F1F1F1F
+      1E1E1E1E1E1D1E1D1D1D1D1D1D1C1D1C1D1C1CA3F3F30D0D0D0D0D0D0D0C0D0C
+      0C0D0C93F3F30E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0D0C
+      0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0D0F0E0E0E0E1317171717130000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0E1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D19F3F39017171717171716
+      171616161691F3F3B37A79797878777776767575757574747469686861616160
+      6060605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A494936
+      363535353434343434333333323231312F2F2C37EBF3F3161010101010101010
+      100F100F100F0F0F0F0F0FD2F3F3642020201F1F1F1E1E1E1E1E1D1D1D1D1D1D
+      1D1D1C1D1C1D1CEEF3CF0D0D0D0D0D0D0D0D0C0D0D0C0DCFF3D20E0E0D0E0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D
+      0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D
+      0C0D0C0C0E0E0F0E0E0E15171717170F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000E1717171717150F0E0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D
+      0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D13F3F39517171717171717161716161618F3F3CD7A7979
+      7978787777767676757575747474696868616161606060605D5D535353525252
+      525151515150504F4E4E4E4B4B4B4A4A4A4A4949363635353434343434333333
+      33323231312F2F2F5AF3F3D0101010101010101010100F100F100F100F0F95F3
+      F3BF20211F201F1F1F1F1E1E1E1E1E1D1E1D1D1D1D1D1D1C1D1C2EF3F3920D0D
+      0D0D0D0D0D0D0D0C0D0C0CF3F3960E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0E0E0F0E0E1017
+      171717150B000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000B1717171717150F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF3F3
+      D017171717171717171617161716D2F3F27A7A7A797978787777767675757575
+      747474696868616161606060605D5D535353525252525151515150504F4E4E4E
+      4B4B4B4B4A4A4A494936363535353434343433333333323231312F2F2CA2F3F3
+      91101010101010101010100F100F100F1018F3F3EA2A2121202020201F1F1F1E
+      1E1E1E1E1D1E1D1D1D1D1D1D1C1D48F3F3140E0D0D0D0D0D0D0D0D0D0C0D15F3
+      F3F80E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0E0E0F0E0E13171717171100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001517171717
+      0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DCFF3F11717171717171717171617
+      161695F3F38C7A7A7A7979787877777676767575757474746968686161616060
+      60605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A49493636
+      3535343434343434333333323231312F2F38F1F3F01310101010101010101010
+      0F100F1013F0F3F33F232121212020201F1F1F1F1E1E1E1E1E1D1D1D1D1D1D1D
+      1D1CD7F3E80E0D0E0D0D0D0D0D0D0D0D0D0C91F3F3140D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0C0D0C0D0C0D0D0C0D0C0C0C0C0C0D0C
+      0C0D0E0E0E0E0F0E16161717170C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000F17171717100E0E0E0F0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0E0D0D
+      0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D91F3F39017171717171717171716171619F3F3CB7B7A7A7A7979
+      78787777767675757575747474696868616161606060605D5D53535352525252
+      5151515150504F4E4E4E4B4B4B4B4A4A4A494936363535353434343433333333
+      323231312F2F6EF3F30710101010101010101010100F1011D2F3F36E23232121
+      2121202020201F1F1F1E1E1E1E1E1D1E1D1D1D1D1D24F3F3960E0D0E0D0E0D0D
+      0D0D0D0D0D0DCFF3F00E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0D0C0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0E0F0E0E0E10171717
+      1713000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000B15171717140F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D13F3F3951817
+      1717171717171717161716E8F3EF7A7B7A7A7A79797878777776767575757574
+      7474696868616161606060605D5D535353525252525151515150504F4E4E4E4B
+      4B4B4A4A4A4A494936363535343434343433333333323231312F2FD5F3F39010
+      101010101010101010100F97F3F3A52326232321212121202020201F1F1F1E1E
+      1E1E1E1D1E1D1D1D1D48F3F3180D0E0E0D0E0D0D0D0D0D0D0D0FF3F3960D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C
+      0C0D0C0D0C0C0C0C0D0C0D0D0E0E0F0E0E15171717170C000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000011171717170F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0DF0F3D21717171717171717171717161795
+      F3F3B17B7B7A7A7A797978787777767676757575747474696868616161606060
+      605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A4949363635
+      35353434343434333333323231312F3AF1F3F0151010101010101010101091F3
+      F3D82D2623262323212121212020201F1F1F1F1E1E1E1E1E1D1D1D1D1DEAF3F0
+      0E0E0D0E0D0E0D0E0D0D0D0D0D17F3F3190E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0C0D
+      0E0E0E0E0F0F1617171715000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C16171717130E0E0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0E
+      0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D96F3F31818171717171717171717171619F3F3DC7C7B7A7A7A7A797978
+      787777767675757575747474696868616161606060605D5D5353535252525251
+      51515150504F4E4E4E4B4B4B4A4A4A4A49493636353534343434343333333332
+      3231312F9CF3F3D31310101010101010101AF3F3F14026262626232323212121
+      21202020201F1F1F1E1E1E1E1E1D1E1D3EF3F3930E0E0E0E0D0E0D0E0D0D0D0D
+      0D96F3F3110E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D
+      0D0C0D0D0C0D0C0C0D0C0C0C0D0C0D0C0C0D0C0C0D0E0F0E0E0E141717171717
+      1717171717151313140F100F0F0C0C0C0B000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0013171717160F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D19F3F3931718171717
+      1717171717171716D2F3F3887C7B7B7A7A7A7979787877777676767575757474
+      74696868616161606060605D5D535353525252525151515150504F4E4E4E4B4B
+      4B4B4A4A4A494936363535353434343433333333323231312FC2F3F307101110
+      101010101AF3F3F343272727262626262323212121212020201F1F1F1F1E1E1E
+      1E1E1D1EA3F3F3110E0E0E0E0E0D0E0D0E0D0D0D0DF0F3D20E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0E0E0E0F0E0F1617171717171717171717171717171717
+      1717171717171717131413130000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000E17171717130E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D
+      0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0FF3F3D01717181717171717171717171793F3F3C7
+      7B7B7B7B7A7A7A79797878777776767575757574747469686861616160606060
+      5D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A494936363535
+      3434343434343333333232313138E0F3F3D0131010101397F3F3F36727272727
+      2626262623232321212121202020201F1F1F1E1E1E1E1E22F3F3CF0E0E0E0E0E
+      0E0D0E0D0E0D0E0D17F3F3900E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0D0C0E0E
+      0E0E0E1317171717171717171717171717171717171717171717171717171717
+      0D00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000015171717160E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      97F3F31917171817171717171717171716E9F3F27C7C7B7B7B7A7A7A79797878
+      7777767676757575747474696868616161606060605D5D535353525252525151
+      515150504F4E4E4E4B4B4B4B4A4A4A4949363635353534343434333333333232
+      313138E0F3F3F0969395F0F3F3F1672828282827272726262626232321212121
+      2020201F1F1F1F1E1E1E1E9AF3F3190E0E0E0E0E0E0E0E0D0E0D0E0D96F3F311
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C
+      0D0D0C0C0C0D0C0D0C0D0C0C0D0C0D0C0C0D0D0F0E0F0E0F1617171717171717
+      1717171717171717171717171717171717171717110000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000F17
+      171717110E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0E0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D19F3F3931817171817171717
+      171717171796F3F3B67C7C7C7B7A7A7A7A797978787777767675757575747474
+      696868616161606060605D5D535353525252525151515150504F4E4E4E4B4B4B
+      4A4A4A4A4949363635353434343434333333333232313138D5F3F3F3F3F3F3F3
+      E041292828282827272727262626232323212121212020201F1F1F1F1E1E24EE
+      F3E80E0E0E0E0E0E0E0E0E0E0D0E0D0EE9F3D20E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0D0D0D0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C0C0D0C0D0C0D
+      0C0C0D0C0D0C0D0E0E0E0E0E0E0E0E0F10101010131313141514151717171717
+      1717171717171717160000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000B15171717160E0E0E0E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0E0D0D0D
+      0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0FE9F3E81718171718171717171717171718F0F3EF7D7C7C
+      7C7B7B7A7A7A797978787777767676757575747474696868616161606060605D
+      5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A49493636353535
+      3434343434333333323231312F6EE0F3F3F3E06E292B29292928282827272727
+      262626232323212121212020201F1F1F1F1E9AF3F3920E0F0E0E0E0E0E0E0E0E
+      0D0E0D19F3F3900E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0C0D0D0C0D0C0D0D0C0D0C0C0D0C0C0D0C0D0C0D0C0D0C0C0D0C0D0F0E0F0E
+      0F0E0E0E0E0E0E0F0E0E0E0E0E0F0E0E0E0E0F101010131313171717170D0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000001016171717110E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D96F3F3
+      901718171718171717171717171796F3F3B67D7C7C7C7B7A7A7A7A7979787877
+      77767675757575747474696868616161606060605D5D53535352525252515151
+      5150504F4E4E4E4B4B4B4A4A4A4A494936363535343434343433333333323231
+      31312F2C2C2C2C2B2B2B29292929282828272727272626262323232121212120
+      20201F1F1F24EEF3F0100E0E0E0E0E0E0E0E0E0E0E0E0ECFF3F30F0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0C0D
+      0C0C0D0C0C0D0C0C0C0D0C0D0C0C0C0C0E0E0E0E0E0F0E0F0E0F0E0E0E0F0E0F
+      0E0E0E0F0E0E0E0E0E0E0E0F0E16171717110000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000B15171717
+      160E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D15F3F3CF1817181717181717171717
+      171718F1F3EF897D7C7C7B7B7B7A7A7A79797878777776767675757574747469
+      6868616161606060605D5D535353525252525151515150504F4E4E4E4B4B4B4B
+      4A4A4A494936363535353434343433333333323231312F2F2F2C2C2C2B2B2B29
+      29292928282827272727262626232323212121212020201F1F9AF3F3920F0E0E
+      0F0E0E0E0E0E0E0E0E0E11F3F3960E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D
+      0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0D
+      0C0D0C0C0E0E0F0E0E0E0E0E0E0E0E0F0E0E0E0E0E0F0E0E0F0E0F0E0F0E0E0E
+      0E14171717150000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001016171717110E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0DE8F3F0191718171817171817171717171797F3F3C77D7D7C7C7B
+      7B7B7A7A7A797978787777767675757575747474696868616161606060605D5D
+      535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A4949363635353434
+      34343434333333323231312F2F2C2C2C2C2B2B2B292929292828282727272726
+      2626232323212121212020202AEEF3F0100F0E0F0E0E0E0E0E0E0E0E0E0E93F3
+      F3150E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0D0D0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0D0C0C0C0C0E0D0E0E0E0E0E
+      0F0E0E0E0F0E0F0E0E0E0F0E0E0E0E0E0E0F0E0F0E10171717170C0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B15171717160E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D19F3F3961817
+      181717181717171717171718F1F3F2897D7D7C7C7C7B7A7A7A7A797978787777
+      767676757575747474696868616161606060605D5D5353535252525251515151
+      50504F4E4E4E4B4B4B4B4A4A4A49493636353535343434343333333332323131
+      2F2F2F2C2C2C2B2B2B2929292928282827272727262626232323212121212020
+      A4F3F31A0E0F0E0E0F0E0F0E0E0E0E0E0E0FF0F3E80E0D0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0D0C0C0D0C0D0C0C0C0D
+      0C0D0C0D0C0C0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0E0D0D0E0E
+      0E0E0E0F0E0E0E0E0E0F17171717100000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000001016171717110E
+      0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0FE9F3E91817181718171718171717171717
+      95F3F3DD7E7D7D7C7C7C7B7B7A7A7A7979787877777676757575757474746968
+      68616161606060605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A
+      4A4A494936363535343434343433333333323231312F2F2C2C2C2C2B2B2B2929
+      292928282827272727262626232323212121213EF3F3E80F0E0F0F0E0E0F0E0E
+      0E0E0E0E0E92F3F3190E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D
+      0D0C0D0D0C0D0C0D0D0C0D0C0D0C0C0C0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E1417
+      1717140000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000B15171717160F0E0E0E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D91F3F3931817181718171718171717171717E8F3F3AF7E7D7D7C7C7C7B
+      7A7A7A7A797978787777767676757575747474696868616161606060605D5D53
+      5353525252525151515150504F4E4E4E4B4B4B4B4A4A4A494936363535353434
+      343434333333323231312F2F2F2C2C2C2B2B2B29292929282828272727272626
+      26232323212121D8F3F3170F0F0E0F0E0F0E0F0E0F0E0E0E0EE8F3F00F0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C
+      0C0D0C0D0C0D0C0C0C0D0C0D0C0C0D0C0D0C0C0C0C0D0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0F11171717170B0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00001016171717130E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0EF3F3E91818171817
+      18171718171717171791F3F3EF8A7E7D7D7C7C7B7B7B7A7A7A79797878777776
+      7675757575747474696868616161606060605D5D535353525252525151515150
+      504F4E4E4E4B4B4B4A4A4A4A494936363535343434343433333333323231312F
+      2F2C2C2C2C2B2B2B2929292928282827272727262626232323219AF3F3980F0E
+      0F0F0F0E0F0E0E0F0E0E0E0E19F3F3910E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0E0E0E0E0F171717170E0000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B15161717160F0E0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D96F3F393181718171817181717181717171797F3
+      F3CC7E7E7D7D7C7C7C7B7A7A7A7A797978787777767676757575747474696868
+      616161606060605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A
+      4A494936363535353434343433333333323231312F2F2F2C2C2C2B2B2B292929
+      292828282727272726262623233FF3F3F0110F0F0F0E0F0F0E0F0F0E0F0E0F0E
+      E8F3F00F0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0D0E0E0E0E0E0E0F0E0E0E0E0E0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C
+      0D0C0D0C0D0D0C0D0C0D0C0C0C0C0D0C0C0C0C0C0D0C0D0C0D0C0C0C0C0D0C0D
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E1617171711
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000E17171717140E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0E0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      10F3F3E9181817181817171817171718171718E9F3F3B07E7E7D7D7C7C7B7B7B
+      7A7A7A797978787777767675757575747474696868616161606060605D5D5353
+      53525252525151515150504F4E4E4E4B4B4B4A4A4A4A49493636353534343434
+      3434333333323231312F2F2C2C2C2C2B2B2B2929292928282827272727262626
+      23D8F3F3180F0F0F0F0F0F0F0E0F0E0F0E0F0E92F3F3910E0E0E0D0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0E0F0E
+      0E0E0F0E0E0E0F0E0F0E0E0E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0C0D0C
+      0D0C0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E1417171715000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      1417171717100F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0E0D0E0E0D0E0E0D0E0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C91F3F39618181718171817
+      1817171717171791F3F3F28A7E7E7D7D7C7C7B7B7B7A7A7A7979787877777676
+      76757575747474696868616161606060605D5D53535352525252515151515050
+      4F4E4E4E4B4B4B4B4A4A4A494936363535353434343433333333323231312F2F
+      2F2C2C2C2B2B2B29292929282828272727272626A0F3F3980F0F0F0F0F0F0F0E
+      0F0F0E0F0E0E10F0F3F00F0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0E0E0E0E0F0E0E0F0E0E0F0E0E0E0E0E0E0F0E
+      0E0E0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C
+      0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E
+      0E0E0E11171717170B0000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000C17171717150E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E
+      0E0E0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0EF0F3F119181718181718171817181717171797F3F3E5
+      7F7E7E7D7D7C7C7B7B7B7A7A7A79797878777776767575757574747469686861
+      6161606060605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A
+      494936363535343434343433333333323231312F2F2C2C2C2C2B2B2B29292929
+      2828282727272747F3F3F0110F0F0F0F0F0F0F0F0F0F0E0F0E0F92F3F3910E0E
+      0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0E0E0F0E0E0E0F0E0E0E0E0F0E0F0E0F0E0E0E0F0E0F0E0E0E0E0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D0C
+      0D0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0D0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F0E0F0E0F171717170D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000001317171717110F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0E0E0E0F0E0F0E0F0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D91F3
+      F398181817181817181717171817171717E8F3F3CC7F7E7E7D7D7C7C7C7B7A7A
+      7A7A797978787777767676757575747474696868616161606060605D5D535353
+      525252525151515150504F4E4E4E4B4B4B4B4A4A4A4949363635353534343434
+      34333333323231312F2F2F2C2C2C2B2B2B29292929282828272740F1F3F3170F
+      0F0F0F0F0F0F0F0F0F0E0F0F0E13F3F3E80F0E0E0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0E0F0E0E0E0E0F0E0E0E0F0E10
+      10111110100F0E0F0E0E0E0F0E0F0E0E0F0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0C0D0C0D0C0C0C0C0D0C0C
+      0C0C0D0C0D0C0C0C0C0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0E0E0E0E1617171710000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000B1617
+      1717160F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E
+      0E0E0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0DE8F3F390181817181718171817
+      171817171718F1F3F3B77F7E7E7D7D7C7C7C7B7B7A7A7A797978787777767675
+      757575747474696868616161606060605D5D535353525252525151515150504F
+      4E4E4E4B4B4B4A4A4A4A494936363535343434343433333333323231312F2F2C
+      2C2C2C2B2B2B292929292828282DD8F3F3910F0F100F0F0F0F0F0F0F0F0F0F0F
+      0ED0F3F3190E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0E0D
+      0D0E0D0D0E0E0E0E0E0F0E0F0E0E0F13141617171717171717171715110F0E0E
+      0E0E0E0F0E0E0E0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D
+      0C0D0C0D0C0D0C0D0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E
+      1517171713000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000001016171717140E0F0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0F0E0E0F0E0E0E0E0E10111415150F0E
+      0F0E0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0E0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C17F3F3D317181818181718171817171817171791F3F3F38F7F
+      7E7E7D7D7C7C7C7B7A7A7A7A7979787877777676767575757474746968686161
+      61606060605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A49
+      4936363535353434343433333333323231312F2F2F2C2C2C2B2B2B2929292928
+      28D8F3F3970F100F0F0F0F0F0F0F0F0F0F0F0F0E18F3F3CF0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0E0E0F0E0E0E0E0E
+      10151717171717171717171717171717171715110F0E0E0E0E0F0E0E0E0C0D0D
+      0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0D0C0D0C0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E131717171700000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000001517171717100E0E0F0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0F
+      0E0E0F0E0E0E0F0E0F111315171717171717150F0E0E0F0E0E0E0E0E0D0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0DCFF3F396
+      18181718181718171817171817171793F3F3F28F7F7E7E7D7D7C7C7C7B7B7A7A
+      7A797978787777767675757575747474696868616161606060605D5D53535352
+      5252525151515150504F4E4E4E4B4B4B4A4A4A4A494936363535343434343434
+      333333323231312F2F2C2C2C2C2B2B2B29292929A5F3F3D21110100F100F0F0F
+      0F0F0F0F0F0F0F10F0F3F3140E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0E0E0F0E0E0F0E1016171717171717171717171717
+      171717171717171715110F0E0E0E0E0F0E0E0D0D0D0D0C0D0D0D0D0C0D0D0D0D
+      0C0D0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D
+      0C0D0C0C0C0C0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0E0E0E0E10171717170C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000C17171717
+      160F0E0E0E0E0E0E0F0E0F0E0E0E0E0E0F0E0E0E0E0F0E0E1013141616171717
+      17171717171717150F0E0E0E0F0E0E0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D
+      0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D10F0F3F01A1818171818171817181717
+      1817171798F3F3F28F7F7E7E7D7D7C7C7C7B7A7A7A7A79797878777776767675
+      7575747474696868616161606060605D5D535353525252525151515150504F4E
+      4E4E4B4B4B4B4A4A4A494936363535353434343433333333323231312F2F2F2C
+      2C2C2B2B2B2929A6F3F3E8130F100F100F100F100F0F0F0F0F0F0F95F3F3910E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0F
+      0E0E0E0F0E141717171717171717171717171717171717171717171717171510
+      0E0F0E0E0E0E0E0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0D
+      0C0D0D0C0C0D0C0C0C0C0C0C0C0D0C0C0C0D0C0C0D0C0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F0E0F0E0F171717
+      170D000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000001017171717140F0E0F0E0F0E0E0E0E0F
+      0E0F0E0E0E0F0E101113151717171717171717171717171717171717150F0E0E
+      0E0E0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0D1AF3F3D318181817181817181718171718171717CFF3F3ED8A7F7E
+      7E7D7D7C7C7C7B7B7A7A7A797978787777767675757575747474696868616161
+      606060605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A4949
+      36363535343434343433333333323231312F2F2C2C2C2C2B2B2BA6F3F3F01610
+      10100F100F100F0F0F0F0F0F0F0F18F3F3E80F0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0E0E0E0E0E0F0E101617171717171717
+      15100D0C000000000C0D0F141717171717171717110E0E0F0E0E0E0E0C0D0D0D
+      0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0D0C0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E161717171000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B1516171717100E0E0E0E0E0F0E0E0E0E0E0F111314171717171717
+      1717171717171717171717151717171717150F0E0F0E0E0F0E0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0CCFF3F3961818
+      1817181817181718171718171717CFF3F3ED8E7F7E7E7D7D7C7C7C7B7A7A7A7A
+      797978787777767676757575747474696868616161606060605D5D5353535252
+      52525151515150504F4E4E4E4B4B4B4B4A4A4A49493636353535343434343433
+      3333323231312F2F2F2C2C2C2BB9F3F3F0161010100F10100F100F100F0F0F0F
+      0F11F0F3F3150E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0E0E0E0F0E0E0E1117171717171717110C000000000000000000000000
+      0B1015171717171717140E0E0F0E0E0E0E0C0D0D0D0D0C0D0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0D0C0C0D0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0E0E0F0E0E151717171300000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000D17171717160F
+      0E0F0E0E0E0F10131416171717171717171717171717171717171613100C0000
+      0E1717171717150F0E0E0F0E0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0D10F0F3F39018181818171818171817181717
+      181717CFF3F3F28F7F7E7E7D7D7C7C7C7B7B7A7A7A7979787877777676757575
+      75747474696868616161606060605D5D535353525252525151515150504F4E4E
+      4E4B4B4B4A4A4A4A494936363535343434343433333333323231312F2F2C2C2C
+      B9F3F3F0161010101010100F10100F100F100F0F0FD0F3F3910E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0D0E0E0F0E0E0F111617
+      17171717110B000000000000000000000000000000000B0F161717171717140E
+      0E0F0E0E0E0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0C0D0C0D0D0C0C
+      0D0C0C0D0C0D0C0D0C0C0D0C0D0C0C0D0C0C0C0D0C0C0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E14171717130000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000001117171717140E0F11141517171717171717
+      1717171717171717171713100E0B000000000000000E1717171717150F0E0E0E
+      0F0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0C0D19F3F3E81918181718181718171817171817171717CFF3F3F28F7F7E7E
+      7D7D7C7C7C7B7A7A7A7A79797878777776767675757574747469686861616160
+      6060605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A494936
+      363535353434343433333333323231312F2F2FB9F3F3F0161010101010101010
+      0F10100F100F100F91F3F3D20D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0E0E0E0E0E0F101717171717150C0000000000000000
+      0000000000000000000000000B141717171717140E0E0F0E0E0E0D0D0D0D0C0D
+      0D0D0C0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0D0C0C
+      0C0D0C0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0D0E0F0E0E13171717170000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000B1516171717171717171717171717171717171717171715110F0C000000
+      000000000000000000000E171717171715100E0E0E0E0E0E0E0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0D0C0D96F3F3D018181818
+      18171818171817171817171717CFF3F3F2B77F7E7E7D7D7C7C7C7B7B7A7A7A79
+      7978787777767675757575747474696868616161606060605D5D535353525252
+      525151515150504F4E4E4E4B4B4B4A4A4A4A4949363635353434343434343333
+      333232313138E0F3F3F016101010101010101010100F10100F0F1017F3F3F011
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0E0F
+      0E0F0E101717171717130B000000000000000000000000000000000000000000
+      0000111717171717110F0E0E0F0E0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0C
+      0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E
+      0F10161717170B00000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000C1717171717171717
+      17171717171717171613100C000000000000000000000000000000000000000E
+      171717171716100E0F0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0D0C0FD2F3F396181817181817181718171817181718
+      1717CFF3F3F3C97F7E7E7D7D7C7C7C7B7A7A7A7A797978787777767676757575
+      747474696868616161606060605D5D535353525252525151515150504F4E4E4E
+      4B4B4B4B4A4A4A494936363535353434343433333333323254EBF3F3E8161110
+      101010101010101010100F10100F14F0F3F3170E0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0E0E0E0E0F161717171711000000
+      0000000000000000000000000000000000000000000000111717171717100E0E
+      0E0E0E0D0D0D0D0D0C0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0C0D0C0D0C0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F0E0E0E10171717170C0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000010171717171717171717171714100E0B00000000
+      00000000000000000000000000000000000000000E171717171716110E0E0E0E
+      0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C13F0F3F392181818181817181817181717181717171793F3F3F3DF8A7E7E7D
+      7D7C7C7C7B7B7A7A7A7979787877777676757575757474746968686161616060
+      60605D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4A49493636
+      353534343434343333333371F1F3F3D31311101110111010101010101010100F
+      1011D2F3F3930E0D0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0E0F0E0F0E15171717171300000000000000000000000000000000
+      0000000000000000000000001117171717160E0F0E0F0E0E0C0D0D0D0D0C0D0D
+      0D0D0D0C0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0D0E0F0E0E0E171717170D0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0014171717171715130F0C000000000000000000000000000000000000000000
+      0000000000000000000C151717171717110F0E0E0E0E0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D
+      0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D17F3F3F1901818181818
+      17181817181717181717171792F1F3F3EF8F7E7E7D7D7C7C7C7B7A7A7A7A7979
+      78787777767676757575747474696868616161606060605D5D53535352525252
+      5151515150504F4E4E4E4B4B4B4B4A4A4A49493636353535343434343439BAF3
+      F3F39713111011101110101010101010101010100F97F3F3CF0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0E0E0E0E101717
+      1717150B00000000000000000000000000000000000000000000000000000000
+      001317171717130E0E0E0E0E0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D
+      0D0C0D0C0C0C0C0C0C0C0D0C0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0F0E0E1717
+      1717100000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000C1513100D0B0000000000
+      0000000000000000000000000000000000000000000000000000000000000C15
+      1717171717110F0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D91F3F3F01918181718181718171817181718171817
+      17F8E8F3F3F3C87E7E7D7D7C7C7C7B7B7A7A7A79797878777776767575757574
+      7474696868616161606060605D5D535353525252525151515150504F4E4E4E4B
+      4B4B4A4A4A4A4949363635353434343459E0F3F3F39211101111101110111010
+      101010101010101097F3F3D20F0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0E0D0D0E0D0E0E0F0E0F0E16171717170B000000000000000000
+      0000000000000000000000000000000000000000000B15171717160F0F0E0E0F
+      0D0D0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C0C0D
+      0C0D0C0D0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0E0E0E0F0E0E0E0F0E1517171710000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000B1417171717110E0E0E0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D
+      96F3F3E819181818181817181817181717181717171718CFF3F3F3ED8F7E7D7D
+      7C7C7C7B7A7A7A7A797978787777767676757575747474696868616161606060
+      605D5D535353525252525151515150504F4E4E4E4B4B4B4B4A4A4A4949363635
+      353534A1F3F3F3E81711111111101110111011101110101010101091F3F3F014
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E
+      0E0E0E0E11171717171000000000000000000000000000000000000000000000
+      000000000000000000000E17171717130E0F0E0E0E0D0D0C0D0D0D0C0D0D0C0D
+      0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F
+      0E0E0F0E0F111717171713000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000C17171717100F0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E
+      0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0CCFF3F3E819181818181817
+      18181718171718171717171792F1F3F3F3C8897D7D7C7C7B7B7B7A7A7A797978
+      787777767675757575747474696868616161606060605D5D5353535252525251
+      51515150504F4E4E4E4B4B4B4A4A4A4A494936363565EBF3F3F3971411111111
+      11111110111011101010101010101AF3F3F0140D0E0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0F0E0F0E1517171716000000
+      0000000000000000000000000000000000000000000000000000000000000015
+      171717160E0E0E0F0E0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0D0C0C0D0C0C0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F0E0E0E0F0E111617171717171300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000D171717
+      170F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0FD2F3F3E8191818171818171817181718171817181717
+      1718D0F3F3F3EFB77D7D7C7C7C7B7A7A7A7A7979787877777676767575757474
+      74696868616161606060605D5D535353525252525151515150504F4E4E4E4B4B
+      4B4B4A4A4A494955C5F3F3F3F01A111111111111111111111011101110111010
+      10F8F3F3F3190E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0E0E0E0E0F1717171710000000000000000000000000000000
+      000000000000000000000000000000000000000E17171717110E0F0E0E0D0D0D
+      0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0D0C0C0C0C0C0C0C0C0D0C0C0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D
+      0E0F0E0F0E0E0E0F0E1116171717171717171000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000010161717170E0E0F0E0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0ED2
+      F3F3E8191818181818171818171817171817171717171792E9F3F3F3E5AF7D7C
+      7C7B7B7B7A7A7A79797878777776767575757574747469686861616160606060
+      5D5D535353525252525151515150504F4E4E4E4B4B4B4A4A4A4DAAF3F3F3F396
+      141111111111111111111111111011101110111090F3F3F3190E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0E0F0E0F13
+      161717170B000000000000000000000000000000000000000000000000000000
+      000000000000000016171717140E0E0E0F0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0E0E0E0F0E1015171717
+      17171717130C0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000013171717150E0E0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0ED2F3F3E81918181718181817
+      1817181717181717181717171897F3F3F3F3E4AF7C7C7B7B7B7A7A7A79797878
+      7777767676757575747474696868616161606060605D5D535353525252525151
+      515150504F4E4E4E4B4B4B4DACF1F3F3F3D01713111311111111111111111111
+      1111101110111090F3F3F3190E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0D0E0E0E0E0E15171717140000000000000000
+      0000000000000000000000000000000000000000000000000000000011171717
+      160F0E0E0F0E0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C
+      0C0D0C0C0D0C0D0C0C0C0C0C0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0E0E0E0F0E0F0E0F0E0F1417171717171717150E0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000013171717140E0F0E
+      0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0ED2F3F3E819181818181718181718171817181717171717
+      171719CFF3F3F3F3E5B67C7B7B7B7A7A7A797978787777767675757575747474
+      696868616161606060605D5D535353525252525151515150504F4E4E4E58C3F3
+      F3F3F3E89113111311111311111111111111111111111110111091F3F3F3190E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E
+      0D0E0E0E0F0E0E17171717100000000000000000000000000000000000000000
+      000000000000000000000000000000000D171717170F0F0E0E0E0D0D0D0D0C0D
+      0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0C0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E0E0E0E0E0F
+      1317171717171717160F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000017171717130E0E0E0F0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0ED2F3
+      F3E99018181818171818171817181718171717171717171719CFF3F3F3F3EFC7
+      887B7A7A7A7A797978787777767676757575747474696868616161606060605D
+      5D535353525252525151515150504F9DDAF3F3F3F3E891131113131113131113
+      1111111111111111111111111097F3F3F3190E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0E0E0F0F171717170C
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000B16171717110E0E0F0E0D0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C
+      0C0C0C0C0C0C0C0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0D0E0E0F0E0E0E0F0E0F1316171717171717170F0B000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000000B
+      17171717100E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0D0ED2F3F3F1911818181817181817
+      181717171817181717171717171719CFF3F3F3F3F3E5B4867A7A7A7979787877
+      77767675757575747474696868616161606060605D5D53535352525252515151
+      6AC4F1F3F3F3F3D3911313131313131113111311131111111111111111111113
+      07F3F3F0180E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0E0F0E0E10171717170B000000000000000000000000
+      0000000000000000000000000000000000000000000000000016171717130E0E
+      0E0E0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E0E
+      0E0F0E0E111616171717171717110B0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000C171717170F0E0E0E0F0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0C0D95F3F3F3F718181818171818171817181717171717171717
+      171717171896E9F3F3F3F3F3E4B5877A79797878777776767675757574747469
+      6868616161606060605D5D53535352525F73C4F2F3F3F3F3F397191313131313
+      13131313131113111311131111111111111115D3F3F3F0140D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0E0E
+      0E0F111717171700000000000000000000000000000000000000000000000000
+      0000000000000000000000000013171717130E0F0E0E0E0C0D0D0D0C0D0C0D0C
+      0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0F0E0F0E0E10151717171717171713
+      0C00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000010161717170E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D93F3F3
+      F3CF191818181817181817181718171718171717171717171717169207F3F3F3
+      F3F3F3EFCDB58B78787777767675757575747474696868616161606060605D5D
+      6B84BEE3F3F3F3F3F3F3D3921514131313131313131313131311131311131111
+      111111111118F0F3F3D2140E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0E0F0E0E13171717170000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0013171717150E0E0F0E0E0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0C0C0D0C0D0C
+      0D0C0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D
+      0E0E0F0E0E0E0E0E0F1517171717171717150D00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001017171715
+      0E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D18F0F3F3E81A1817181817181817
+      18171817171717171717171717171716171892CFF0F3F3F3F3F3F3F3E7DEC6B2
+      858176757575747474696868616C8383BBC1DBF2F3F3F3F3F3F3F3D393161414
+      13141314131313131313131313131113131113111311111193F3F3F3970F0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0E0D0D0E0D0E0E0E0E0F11171717170000000000000000000000000000000000
+      00000000000000000000000000000000000000000013171717150E0E0E0E0E0C
+      0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C0D0C0D0C0D0C0D0C0C0D
+      0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F0E0F0E1417171717
+      171717160F000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000013171717140F0E0E0E0E0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D
+      0C0D0D0C0D0D0D14E8F3F3F1F718181818171817181717181717181717171717
+      1717171716171616169096D2F3F3F3F3F3F3F3F3F3F3F3F3F3E6E2E2E2E2F3F3
+      F3F3F3F3F3F3F3F3F3F3F3E89891151414131413141314131313131313131313
+      1313131113111311131115D0F3F3F3920E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0E0F0E0E1317
+      1717170000000000000000000000000000000000000000000000000000000000
+      00000000000000000013171717140E0F0E0E0E0D0D0C0D0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0D0E0F0E0E0F11171717171717171510000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000016171717130E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0E0E1098F3F3
+      F3D0191818181718181718171817171717171717171717171716171617161616
+      16909507D2F0F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3D3CF95901614
+      14141414141414141314131413141313131313131313131313111311131AF0F3
+      F3F0180D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0E0E0E0E0F1017171717000000000000000000
+      0000000000000000000000000000000000000000000000000000000000141717
+      17130E0E0F0E0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0C0C0C0C0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F
+      1317171717171717110B00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B16171717100E0F0E0E
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0D0C0D0D0C0D0E0E0E0E0E90F3F3F3F1921818181718181718
+      1718171718171717171717171717161716161616161616161616159090F79696
+      96D2D2D2D2D298969596901A1715141514151414141414141414141314141314
+      13131313131313131313131313111314CFF3F3F3CF110E0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D
+      0D0D0E0F0E0E10171717170C0000000000000000000000000000000000000000
+      000000000000000000000000000000000017171717110F0E0E0E0D0D0D0D0C0D
+      0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E131717171717130C00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000C17171717100E0E0E0F0D0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0C0E0E0F0E0E0F14D3F3F3F3D019181817181718171817181717171717171717
+      1717171617161616161616161616161516151516151515151515151515151515
+      1514151415141414141414141414141414131413141314131313131313131313
+      131390F0F3F3F3920E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0E0D0E0D0D0E0D0D0E0D0E0D0E0E0E0F0E171717170E
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000C17171717100E0E0F0E0D0D0D0D0C0D0D0C0D0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0E0E0E0F11171717160C000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000F17
+      1717170E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0E0E0E0F0E15171796F3F3
+      F3F1961818181817181718171718171717171717171717171617161716161616
+      1616161615161615161515151515151515151515151415151415141414141414
+      141414141414141314131413141313131313131317D2F3F3F3D2140E0E0E0E0D
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D
+      0D0E0D0D0E0D0D0E0D0E0E0F0E0E0E1617171711000000000000000000000000
+      0000000000000000000000000000000000000000000000000F171717170E0F0E
+      0E0E0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E13171717
+      1300000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000010161717160E0E0F0E0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0C0E0F0E0E0E171717171AE8F3F3F3E99118171818171718
+      1717181717171717171717171716171616161616161616161615161515161516
+      1515151515151515151514151414151415141414141414141414141314141314
+      1313131313131697F3F3F3F0920E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0D0D0E0E
+      0E0F0E1417171715000000000000000000000000000000000000000000000000
+      00000000000000000000000014171717150E0E0E0F0E0C0D0D0C0D0C0D0C0D0C
+      0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0D0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F13171717130000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000013171717150E0E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0E0E0E0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0E0E0E
+      0F0E17171717171390E9F3F3F3D3911718181718171817171817171717171717
+      1717161716161616161616161616151616151615151515151515151515151515
+      14151415141414141414141414141414131413141314131315F7F0F3F3F39811
+      0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0D0E0E0E0E0E10171717170E000000
+      000000000000000000000000000000000000000000000000000000000000000C
+      17171717110F0E0E0E0E0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E
+      0E0F0E0E15171717130000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000015171717130E
+      0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0D0D0D0E0F0E0E0E0F0E0E0E0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0E0F0E0E10171717170E00000BF7F3
+      F3F3F3D391171818171718171717171717171717171717161716161616161616
+      1616161516151516151615151515151515151515141515141514151414141414
+      1414141414141314131415F7F0F3F3F3E8160E0D0E0E0E0E0E0D0E0E0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0E0D
+      0D0E0D0D0D0E0D0E0F0E0F0E1617171715000000000000000000000000000000
+      0000000000000000000000000000000000000011171717170F0E0F0E0E0D0D0D
+      0C0D0D0C0D0D0C0D0C0D0D0C0C0C0C0C0C0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C
+      0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F1417171710000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000017171717110E0E0F0E0E0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D
+      0E0E0E0E0E0F0E0E0E0F0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0E0E0E0F101717171700000000000E96F3F3F3F3D3921817181718
+      1717181717171717171717171617161616161616161616161516161516151515
+      151515151515151515141514151414141414141414141414141413141696F0F3
+      F3F3E8190E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0E0D0D0E0E0E0E0E
+      13171717170E0000000000000000000000000000000000000000000000000000
+      0000000000000B17171717150E0E0E0F0E0D0D0D0C0D0C0D0C0D0C0D0D0C0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0F0E0E0E1617171710000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000C17171717100F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0E0E0F0E0E0E0F0E0E0E0E0F
+      0E0E0F0E0E0E0E0E0F0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0F0E0E0E131717
+      1717000000000000001107F3F3F3F3E996181817181717171717171717171717
+      1716171616161616161616161615161515161516151515151515151515151514
+      15141514151414141414141414141998F3F3F3F3E8190E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0F0E0F0E0F17171717150B0000000000
+      0000000000000000000000000000000000000000000000000000131717171710
+      0E0F0E0E0E0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E
+      171717170F000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000D171717170F0E0E0F0E0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D
+      0D0E0D0E0D0E0D0E0E0E0E0F0E0E0E0F0E0F0E0E0F0E0E0E0F0E0F0E0E0E0F0E
+      0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0E0F0E0E131717171500000000000000000011
+      F7F3F3F3F3F0CF91171817171817171717171717171716171616161616161616
+      1616151616151615151515151515151515151514151514151414141414141415
+      93E8F3F3F3F3E8190E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0E0D0E0E0E0E0E1317171717110000000000000000000000000000000000
+      000000000000000000000000000F17171717150E0E0E0E0F0D0D0C0D0C0D0C0D
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0C0D0C0C0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0F171717170C00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000010161717160E0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0E0F0E0E
+      0F1111100E0E0E0F0E0E0F0E0E0E0E0E0F0E0E0F0E0E0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0E0E0E0F0E141717171300000000000000000000000E91E9F3F3F3F3E998F817
+      1717171717171717171717161716161616161616161616151615151615161515
+      151515151515151514151415141514141691CFF3F3F3F3F3CF190E0E0E0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0F0E0F0E0F1617
+      1717170E00000000000000000000000000000000000000000000000000000000
+      0C17171717170F0F0E0F0E0E0C0D0D0C0D0D0C0D0C0D0D0C0D0C0C0C0C0C0C0C
+      0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0F0E0E0E10171717170C00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000131717
+      17150E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0E0E0F0E0E0E0F131717171715141311100E0F
+      0E0F0E0E0E0F0E0E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0E0F0E0E15171717130000
+      00000000000000000000000B17D0F3F3F3F3F3E9989217171717171717171717
+      1617161616161616161616161516161516151515151515151515151515151415
+      141793CFF3F3F3F3F3F093110E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0E0D0E0E0E0E0E1017171717170E00000000000000
+      000000000000000000000000000000000000000C1517171717130E0E0E0E0E0D
+      0D0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C
+      0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E1117171717
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000014171717130F0E0F0E0E0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E
+      0D0E0E0E0E0F0E131717171717171717171717171515141313130F0E0E0E0E0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0E0E0E0E0F14171717100000000000000000000000000000
+      00000E91D3F3F3F3F3F3F3D39790171717171717171617161616161616161616
+      1615161515161516151515151515151515189298E8F3F3F3F3F3F398170E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D
+      0D0E0E0F0E0F0E1317171717170E000000000000000000000000000000000000
+      0000000000000C1517171717150E0F0E0F0E0E0D0C0D0C0D0C0D0C0D0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0C0D0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E13171717170E0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000017171717130E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0F0E0F0E0E111717171717
+      1717171717171717171717171717140E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0E0E0F0E
+      0E1717171710000000000000000000000000000000000000000F92D3F3F3F3F3
+      F3F3F3E807959118161716171616161616161616161615161615161515151515
+      199195D2F0F3F3F3F3F3F3F098190F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0E0E0E0E0E0E15171717
+      171710000000000000000000000000000000000000000000000F171717171716
+      0E0E0E0E0E0E0D0D0D0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E
+      0E0E0F1417171717171100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000C16171717100E0F
+      0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0E0E0E0E0E11171717171717171717171717171717171717
+      1717170F0E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0C0E0E0E0F0E171717170E000000000000
+      000000000000000000000000000000000E1896F0F3F3F3F3F3F3F3F3F3D2D296
+      9695909090909090909090909091969607D2E9F3F3F3F3F3F3F3F3F3D293160E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0E0D0E0D0D0E0E0F0E0F0E0F151717171717140C00000000000000
+      00000000000000000000000B131717171717160F0F0E0F0E0F0D0D0D0C0D0D0C
+      0D0D0C0D0C0D0C0D0C0C0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0D0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E10151717171717130B
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C171717170F0E0E0F0E0E0D0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0E0E0F0E0F0E
+      101617171717110C0F1013161717171717171717171717140E0E0F0E0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0E0F0E0E0F171717170C000000000000000000000000000000000000
+      00000000000000000F1793D0F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3
+      F3F3F3F3F3F3F3F3F3F3F3F0CF9216100E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0E0D0E0D0D0D0D0D0E
+      0E0E0E0E0E0F15171717171717110C00000000000000000000000000000B1117
+      1717171717160F0E0E0F0E0E0E0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0E0E0F0E0E0F0E151717171717140C0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      10161717170E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0E0E0E0E0E0E10161717171714000000000000
+      000C0C100F131315171717170F0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0E0E0E0F10161717
+      170C000000000000000000000000000000000000000000000000000000000000
+      000F151A9307D3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F307CF979590180E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E
+      0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0D0D
+      0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0E0D0D0D0D0E0F0E0F0E0E0F1317171717
+      171717140F0B00000000000000000B0E1317171717171717150F0E0F0E0E0E0E
+      0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0C0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E0E
+      0E0E141717171717160B00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000011171717150E0E0E0F0E0D0E
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0E0F0E0F0E0F1617171717140B000000000000000000000000000C17171717
+      140E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0C0D0E0F0E0E10171717170000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000F1311
+      111311111311111311110B0000000C17171717100E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0E0D0D0E0D0E
+      0D0E0D0D0D0E0D0D0D0E0E0E0E0F0E0E11161717171717171717171314100F14
+      1316171717171717171717130E0E0E0E0E0F0E0D0C0D0D0D0D0C0D0D0C0D0D0C
+      0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0D0C0C0D0C0C0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F0E0E0E111717171717170E00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000013171717140F0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0F0E0E0E0F151717171715
+      0B00000000000000000000000000000013171717170F0E0F0E0E0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0E0E0E0F13161717170000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000B16171717110E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0E0D0D0D0D0D0D0E0F
+      0E0E0E0F0E0F1417171717171717171717171717171717171717171717150F0E
+      0F0E0F0E0E0E0D0D0D0D0C0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0E0E0E0F0E0F0E1016171717171710000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000017171717
+      130E0F0E0E0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D
+      0D0E0D0D0E0D0E0E0E0E0E0F0E1517171717160C000000000000000000000000
+      000000000C17171717140E0E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0F0E0E0E1317171714000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000016171717130F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E
+      0D0D0E0D0D0D0D0D0D0D0D0D0D0D0E0D0E0D0D0E0E0F0E0E0E0E0E1014171717
+      17171717171717171717171717171715100E0F0E0E0E0E0F0E0C0D0D0C0D0D0D
+      0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C
+      0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E0E
+      0F0F161617171717130000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000B16171717100E0E0F0E0E0E0E0E0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0D0D0E0D0D0E0D0D0E0E0E0F0E0E0E
+      1417171717160B00000000000000000000000000000000000013171717170F0E
+      0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0D0E0F0E0E1417171713000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000013171717150E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0D
+      0E0D0D0D0D0D0D0D0E0E0E0F0E0F0E0E0E0F1115171717171717171717171717
+      16130F0E0E0E0E0E0F0E0E0E0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0F0E0F0E0E0E0F151717171717140B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000C1717171716110E0E0E0F0E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0E0D0D0E0D0D0E0E0E0E0E0F0E1417171717170E000000000000
+      000000000000000000000000000C17171717140E0F0E0E0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0E0E0E0F0E
+      1517171713000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000010
+      161717170E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0D0E0E0E
+      0E0E0E0F0E0E0F0E0F101114151415141413100F0E0E0F0E0F0E0F0E0E0E0E0C
+      0D0D0D0D0C0D0D0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0D0E0E0E0F0E0E0E141717171717160B000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000F171717171717150F
+      0E0E0F0E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D
+      0E0E0F0E0E0E1316171717170E00000000000000000000000000000000000000
+      000013171717170F0E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0E0E0E0E0E151717171000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000C17171717100E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E
+      0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D
+      0D0D0D0D0D0D0D0D0D0E0D0E0D0D0D0D0D0D0D0E0E0F0E0E0E0F0E0E0E0E0F0E
+      0E0E0F0E0E0E0F0E0F0E0E0E0E0E0E0E0E0D0D0D0D0C0D0D0D0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E0F0E0E
+      0E111717171717170E0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000B1317171717171717130F0E0E0F0E0F0E0E0E0E0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0F0E0E0F0E11171717171710
+      000000000000000000000000000000000000000000000C17171717140E0E0F0E
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D
+      0D0C0D0E0E0F0E0E171717171000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000B16171717110E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0D0E0D0D0D0D
+      0D0E0D0D0D0D0D0D0D0E0E0F0E0E0E0F0E0E0E0E0F0E0E0F0E0E0E0E0E0E0F0E
+      0F0E0E0D0D0D0C0D0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0D0C0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E0F0E11161717171717100000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000D1517171717171716110F0E0E0E0E0F0E0E0E0E0E0D0E0D0E0D0E0D0D0E0D
+      0E0D0D0E0D0D0E0E0E0E0F0E1017171717171100000000000000000000000000
+      000000000000000000000013171717170F0E0E0E0F0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0E0E0E0F0E17171717
+      0D00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000014171717
+      140F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0D0E0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E
+      0E0E0F0E0E0F0E0E0E0F0E0E0F0E0F0E0F0E0E0E0E0D0D0D0D0D0D0C0D0D0D0D
+      0C0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0E0E0E0E0E0E0E0F1617171717171300000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000B101717171717171715
+      110E0F0E0E0E0F0E0E0E0E0E0D0E0D0E0D0E0D0D0D0E0D0D0E0E0E0F0E0E0E10
+      161717171713000000000000000000000000000000000000000000000000000C
+      17171717140E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C
+      0D0D0D0D0C0D0D0D0D0C0D0E0F0E0E0F171717170C0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000010171717160E0E0F0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D
+      0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0F0E0E0E0E0F
+      0E0E0E0E0E0E0D0D0D0D0C0D0D0C0D0D0D0C0D0D0D0D0C0D0C0D0C0D0C0D0D0C
+      0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0F0E0F0E0F0E
+      0F151717171717140B0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C131717171717171715100E0F0E0E0E0F0E0E0F
+      0E0E0D0E0D0D0E0D0E0D0D0E0E0E0E0E0F0E101617171717140B000000000000
+      000000000000000000000000000000000000000013171717170F0E0E0F0E0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0E
+      0E0E0F10171717170B0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000D17171717100E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0D0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0E0E0E0E0D0E0D0E0D0D0C0D0D0D0D0D0C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0E0E0F131717171717160B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000D151717171717171715100E0F0E0E0E0F0E0E0E0E0E0E0D0D0E0D0D0E0D
+      0E0E0F0E0E0F1517171717140B00000000000000000000000000000000000000
+      00000000000000000C17171717150E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0F0E0E0E111717171700000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000B16171717110E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E
+      0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0E0F0E0F0E0E0E131717171717160E00000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000B0F16171717171717
+      1714100E0F0E0E0E0F0E0E0E0E0E0E0D0E0D0E0E0F0E0E0E0F1517171717160B
+      0000000000000000000000000000000000000000000000000000000000131717
+      1717100F0E0F0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D
+      0D0C0D0D0D0C0D0E0F0E0E131717171700000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000014171717150E0E0F0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F0E0E
+      1116171717171600000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000B10171717171717171715100E0F0E0E0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0F0E1517171717150C00000000000000000000000000
+      00000000000000000000000000000000000C17171717150E0E0E0E0E0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0E0E0F0E13
+      1717171300000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0010161717170F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E
+      0E0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0D0E0D0D0E0D0D0E0D0E0D0E0D0E0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C
+      0D0D0D0D0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0D0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F0E0E0F17171717130000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000B11171717171717171716100F0E0E0E0E0F0E0F0E0E0E0F0E0F0E0E14
+      17171717170C0000000000000000000000000000000000000000000000000000
+      0000000000001317171717100E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D
+      0C0D0D0D0C0D0D0D0C0D0D0D0D0C0E0E0E0E0E15171717130000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000C17171717110E0F0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0D0E0E0D0E0D
+      0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0E0D0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0D
+      0C0D0D0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0F0E0E0E0F0F171717170E0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000B111717171717
+      17171716130F0F0E0E0E0E0E0F0E0E0E0E0E1317171717170E00000000000000
+      00000000000000000000000000000000000000000000000000000B1717171715
+      0E0E0F0E0E0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0C0E0E0F0E0E15171717110000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000016171717140E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0E0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0C0D0C0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E131717
+      17170B0000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000B1117171717171717171714100F0E0F0E
+      0E0E0F0E0F1117171717170E0000000000000000000000000000000000000000
+      0000000000000000000000000000001117171717100E0E0E0F0D0D0D0D0D0D0D
+      0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0D0E0E0E0F0E1616171710
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001117
+      1717160F0E0E0E0E0F0E0F0E0F0E0F0E0F0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0D0E0D0E0E0E0D0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D
+      0C0D0D0C0D0D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E161717171300000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000B1116171717171717171716130F0E0F0E0E0E1117171717171100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000B17171717150E0F0E0E0E0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0D0C0D0D0D0D0E0E0E0E0F0E0E0E1717171710000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000D17171717110E0F0E0E0E0F0E0E
+      0E0E0E0E0E0F0E0E0E0E0E0F0E0F0E0F0E0F0E0F0E0E0E0E0D0E0E0D0E0E0E0D
+      0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D
+      0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C0D
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D
+      0E0F0E0E10161717170E00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000B0F151717
+      1717171717171715110F0E101617171717110000000000000000000000000000
+      0000000000000000000000000000000000000000000000001117171717100E0E
+      0F0E0E0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0C0D0E0D0E0E0E0E0E0F0E0E
+      0E0F0E171717170C000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000016171717150F0E0E0F0E0E0E0F0E0F0E0F0E0E0E0F0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C
+      0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F13171717170B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000E14171717171717171717171516
+      1717171713000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000B17171717150E0E0E0E0E0D0D0D0D0D0D0D0C0D
+      0D0D0C0D0D0D0E0E0E0E0E0E0F0E0F0E0E0E0E0F0E0E10171717170C00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000001117171717
+      1717171715151514131313101010100E0E0E0E0F0E0F0E0F0E0F0E0F0E0E0E0E
+      0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0E0D0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0D0C0D
+      0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0D0C0C0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0E0F0E0E1617171713000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000C1115171717171717171717171717140B00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      001117171717100F0E0F0E0E0D0D0D0D0D0D0D0D0E0E0E0E0E0E0E0E0F0E0F0E
+      0E0E0E0F0E0F0E0E0E1113171717170B00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000D17171717171717171717171717171717
+      17171717171716151514131313100E0E0E0F0E0E0D0E0E0D0E0E0D0E0D0E0D0E
+      0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E10
+      171717170E000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000B0E
+      14171717171717171717140B0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000B17171717150E0E0E0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0F0E0F0E0E0E0E0E0E0F0E0E0E0E0F111417171717
+      1717170000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000016171717171717171717171717171717171717171717171717171717
+      17160F0E0E0E0E0E0E0E0D0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D
+      0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C
+      0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F14171717160000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000B10151617171717160C00
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000001117171717100E0F0E0E0E0E0E0E0F0E0F0E0F0E0E0E
+      0E0E0F0E0F0E0F0E0E0F11141617171717171717171716000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001017171717171717
+      17171717171717171717171717171717171717171717130E0F0E0E0E0E0D0E0E
+      0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0E0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0C0D0C
+      0C0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0D0C0C0D0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0E0F0E0E0F16171717110000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000C101517160B0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000B17
+      171717150E0E0F0E0F0E0F0E0E0E0E0E0E0F0E0F0E0E0E0E0E10131416171717
+      1717171717171717171711000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000B0C0C0C100F101013131415171717171717
+      17171717171717171717160F0E0F0E0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C
+      0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0C0D0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0F0E11171717170C
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000C0C000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000001117171717100E0E0E0E0E0E0E
+      0F0E0F0E0E0E0E0F10131415171717171717171717171717171716130E0B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000C0C0C0D100F101114141717171714
+      0E0E0F0E0E0E0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D
+      0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0E0F0E0E0E161717171500000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000B17171717150F0E0F0E0F0E0E101011131415171717171717
+      171717171717171717171714100D000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000001417171717100E0E0F0E0E0E0D0E0E0D0E
+      0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E
+      0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0C0D0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0E
+      0F10171717170F00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000011171717
+      17141314151517171717171717171717171717171717171717171715110E0B00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000C17171717150E0E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D
+      0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F0E0F0E0E15171717150B0000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000B171717171717171717171717171717
+      171717171717171717171714100E0B0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001317171717110F0E
+      0F0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E
+      0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D
+      0C0D0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0D0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0D0E0E0E0E101717171711000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000011171717171717171717171717171717171717171713110F0C0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000B17171717160F0E0E0E0F0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0E0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0D0C0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0C0C0C0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0F0E14171717
+      170B000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000B151717171717
+      17171717171717151311100C0B00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      001016171717140E0F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0D0E0D0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D
+      0D0C0D0C0D0C0D0C0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0D0E0E0E0E0F17171717130000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000010161715131411100F0D0C0B000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000001517171717100E0E0F0E
+      0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D
+      0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0C0E0E0F0E0E0E0E0D0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F
+      0E0F0E14171717170C0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000F17171717110F0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E
+      0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D
+      0D0C0D0D0D0D0D0C0D0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0F0E0E0E0F0E0E0E
+      0F0E0E0E0E0E0E0D0D0D0C0C0C0C0C0C0C0D0E0E0E0E0F171717171300000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000110B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001517
+      1717160F0E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D
+      0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0C0D0C0D
+      0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F0E0E0E0F0E0E0E0F0E0E0E0E0F0E0E0E0E
+      0E0E0E0D0D0F0E0F0E0E14171717170C00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000BF3F3070F000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000E17171717130E0E0F0E0E0E0D0E0D
+      0E0D0E0D0E0D0E0D0D0D0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C
+      0C0C0C0C0C0C0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E
+      0F0E0E0E0F0E0E0E0F0E0E0F0E0F0E0E0E0F0E0F0E0E0E0E0E0E0E0E0F0F1717
+      1717130000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000E93D3F3F3140000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000013171717160F0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C
+      0D0D0C0D0C0D0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C
+      0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0D0E0F0E0E0E0F100F0F0E0E0E0F0E0E
+      0E0E0E0F0E0E0E0E0E0F0E0F0E0F0E0E0E15171717170C000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000096F3E90B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000C17171717130E0F
+      0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D
+      0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0D0C0D0D0C0D0C0D0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0D0C0C0C0D0C0C0C0C0C0C
+      0C0C0C0D0E0E0E0E0F0E15171717161514131110100E0E0E0F0E0F0E0E0E0F0E
+      0E0E0F0E10171717171300000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000EF3F3170000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000013171717170F0E0E0E0E0E0D0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0D0D0E0D0D0E0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0D0C0D0D0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0C0C0C0D0C0C0C0D0C0C0D0C0C0C0C0C0C0C0C0E0E0F0E0E0E141717
+      17171717171717171717171514131110100E0E0E0F0E0E0E16171717170B0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000D3F3910000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000000C
+      17171717140E0F0E0F0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0D0D0C0D0D
+      0C0D0C0D0C0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E0F11171717171717171717171717171717
+      1717171717171715141313131717171711000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00001A1A1100000000000011F81A00000000000E1A9607961A140B000000171A
+      17000000000011F81A00000000000E1A1A0D0000000000000B1791079891170B
+      0000000000000011F811000E1A96071A0E00000000000007F307000000000000
+      11F80798931A1100000000000000171A079891170B000000000B1998981A0000
+      0F19960793190B00000000000000000000171A1A1A1A1A1A1A1A1A1700000000
+      0011F8190000000000000000000B199307981A90191717171792920E0E0E0E0D
+      0E0D0E0D1491910E0D0E0D0D0E1991170E0D0E0D0D0E0D0D11F896CF93170D0D
+      0D0E0D0D0D0D0D139197CF91130D0D0D0D0D0D0D0D0D1995CF93150D0D91910D
+      0C0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0C0D0C0C0C0C0C0C0C0C0E0E0E
+      0E0E0F1017171717171717171717171717171717171717171717171717171717
+      1717171600000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000F3F31A00000000000007
+      F3960000000B92F3F3F3F3F3F3F39200000007F39800000000001AF3F3000000
+      000011F3F311000000000017E9F3F3F3F3F3F3E91A0000000000001AF31A17F3
+      F3F3F3F3F391000000000007F398000000000E98F3F3F3F3F3F3F31400000000
+      14F0F3F3F3F3F3F31A0000000BF0F3F3F3F3000FF3F3F3F3F3F3E91700000000
+      000000000007F3F3F3F3F3F3F3F3F3980000000000D3F3F30F00000000000000
+      19E9F3F3F3F3F3F3E817171492F3F30E0E0E0D0E0D0E0D0E96F3F3130E0D0E0D
+      0DF0F3E80D0D0D0E0D0D0E1AF0F3F3F3F3F3E8140D0D0D0E0D0F93F3F3F3F3F3
+      F3CF0F0D0D0D0D0D13D2F3F3F3F3F39717F3F30D0D0D0C0D0D0D0C0D0D0D0D0C
+      0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C
+      0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0E0E0F0E0F0E0F1717171717110E1011
+      1315171717171717171717171717171717171717171717100000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000F3F31A00000000000BF3F31900000007F3F31A0E0000
+      11191100000007F39800000000001AF3F3000000000011F3F3110000000093F3
+      F3071400000F92F3F3D00B000000001AF3E9F39610000E1AF3F3910000000007
+      F3980000000BF0F3E9170B000B13910B00000014F3F3D3170B000E160F000000
+      19F3F316000E000007170D000E93F3E90E000000000000000007F3D011131111
+      131111100000000011F3F3F3930000000000001AF3F396100000179393161710
+      92F3F30E0E0E0E0D0E0D0E0DE8F0F3930E0D0D0E17F3F3F3110D0E0D0E0D91F3
+      F393100D15D2F3F0130E0D0D0DCFF3F01A0F0D19E9F3D20F0D0D0D0FE8F3F019
+      0D0E19F0E8F3F30D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0D0C0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0D0C0D0C0C0C
+      0C0C0C0E0E0E0E0F0E0F171717171713000000000000000B0C0E101113151717
+      1717171717171717171715000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000F3F3
+      1A000000000011F3F30F000017F3F3110000000000000000000007F398000000
+      00001AF3F3000000000011F3F3110000001AF3F31A00000000000011F0F39600
+      0000001AF3F396000000000019F3F30D00000007F39800000093F3E90B000000
+      0000000000000BF0F3D00B00000000000000000096F3D0000000000000000000
+      000BF3F319000000000000000007F30700000000000000000000000093F393F3
+      E90B000000000EF3F31A0000000B17171717150E92F3F30E0E0D0E0D0E0D0E13
+      F3CFD2E80E0D0E0D96F393F31A0E0D0D0D11F3F3910D0E0D0D0FD2F3E80D0D0D
+      19F3F3150D0D0D0D13F0F3960D0D0D91F3F3130D0D0D0D15F3F3F30D0D0D0C0D
+      0D0D0C0D0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0D0C0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E0E10161717
+      1717140B0000000000000000000000000000000B0C0E10111315171717170D00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000F3F31A00000000001AF3E9000000
+      D0F393000000000000000000000007F39800000000001AF3F3000000000011F3
+      F31100000EF3F396000000000000000019F3F3110000001AF3F30E0000000000
+      00D3F39100000007F39800000BF3F3170000000000000000000017F3F3110000
+      000000000000000007F307000000000000000000000BF3F31A00000000000000
+      0007F39800000000000000000000000BF0F31197F3170000000091F3D3000000
+      001016171717100E92F3F30E0E0E0D0E0D0E0D92F39193F3130E0D0DF0F311F3
+      D20D0E0D0E93F3E90D0D0D0D0D0D15F3F3170E0DD2F3970D0D0D0D0D0D91F3F3
+      0F0D0DE8F3960D0D0D0D0D0D97F3F30D0D0D0D0C0D0D0D0D0C0D0D0D0C0D0D0C
+      0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0C0D0C0C0C0D0E0E0E0E0F0E0F1517171717150B000000000000000000
+      0000000000000000000000000000000B0C0C0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000F3F31A000000000007F396000000F3F317000000000000000000
+      000007F39800000000001AF3F3000000000011F3F311000091F3F30E00000000
+      0000000000D0F3960000001AF3F30000000000000093F30700000007F3980000
+      11F3F30E0000000000000000000091F3D3000000000000000000000007F39800
+      00000000000000000E96F3F30F000000000000000007F3980000000000000000
+      00000017F3E90017F3D00000000007F3930000000B15171717160E0E92F3F30E
+      0D0E0D0E0D0E0DD2F31717F3930D0E13F3970EE8F3100E0D0DCFF3960D0D0D0E
+      0D0D0DF0F3930D0DF3F3190D0D0D0D0D0D13F3F3170D0FF3F3180D0D0D0D0D0D
+      91F3F30D0D0C0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0C0C0C0D0E0F0E
+      0E0E0F1517171717160B00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000F3F31A000000
+      000EF3F317000011F3F31911111311111311110E000007F39800000000001AF3
+      F3000000000011F3F3110000D0F3960000000000000000000019F3F30B00001A
+      F3F3000000000000001AF3E900000007F39800001AF3F3111311111311111311
+      0B0007F307000000000000000000000007F3980000000000000011F7F3F3F31A
+      00000000000000000007F3980000000000000000000000D0F3910000E9F30F00
+      0000F3F3931113111791909091160E0E92F3F30E0D0E0D0E0D0E11F3F30F0EF0
+      E80D0D93F3F80D96F3F80D0E0DF3F3910E0D0D0D0D0E0DCFF3CF0D15F3F3150D
+      0D0D0D0D0D0DF3F3910D15F3F3150D0D0D0D0D0D91F3F30D0D0D0D0C0D0D0D0C
+      0D0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0C0C0D0C0C0C0C0D0C0C0C0C0C0C0E0E0F0E0F1617171717150C000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000F3F31A0000000B97F3D30B000013F3F3F3F3
+      F3F3F3F3F3F3F31A000007F39800000000001AF3F3000000000011F3F311000B
+      F3F319000000000000000000000FF3F31100001AF3F3000000000000001AF3F3
+      00000007F39800001AF3F3F3F3F3F3F3F3F3F3F3110096F30700000000000000
+      0000000007F39800000000000093F3F3F398110000000000000000000007F398
+      000000000000000000000EF3F30F000093F393000000F3F3F3F3F3F3F3F3F3F3
+      F3CF0F0E92F3F30E0D0E0D0E0D0E1AF3D20E0D97F3140DE8F3110D17F3D20E0D
+      0DF3F3910D0D0D0D0D0D0DCFF3CF0D15F3F3150D0D0D0D0D0D0DF3F3910D15F3
+      F3150D0D0D0D0D0D91F3F30D0D0C0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C
+      0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0D0C0C0C0C
+      0C0C0C0C0C0E0E0E0E0E16171717160C00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000F3F3071A1A92D3F3E91000000000F3F3931A1A1A1A1A1AF3F31A000007F3
+      9800000000001AF3F3000000000011F3F3110013F3F311000000000000000000
+      0000F3F31900001AF3F30000000000000093F3D000000007F398000011F3F31A
+      1A1A1A1A1A93F3F31100F8F3E9000000000000000000000007F3980000000000
+      91F3F3961000000000000000000000000007F3980000000000000000000091F3
+      D300000014F3E90B000007F3981A1A92969697E8F3CF0E0E92F3F30F0E0D0E0D
+      0E0D97F3910E0D19F39313F3D20D0E0FF3F3110D0ECFF3960D0E0D0E0D0D0EE9
+      F3960D0DF3F3190D0D0D0D0D0D13F3F3190D0DF3F3190D0D0D0D0D0D91F3F30C
+      0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0C0D0C0C0C0C0C0C0C0D0C0C0C0C0C0C0E0E0F0E0E1417
+      1717140000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000F3F3F3F3F3F3F3F31A00
+      00000000D0F31A00000000000BF3F311000007F3D3000000000091F3F30B0000
+      000017F3F30E0011F3F3110000000000000000000000F3F31A00001AF3F31100
+      0000000000D3F39300000007F39800000BF3F311000000000014F3F300000FF3
+      F3110000000000000000000007F3980000000000E9F396000000000000000000
+      000000000007F3E907980798079891000000E9F31A00000000E9F317000091F3
+      07000015171717E8F3920E0F91F3F3190E0D0E0D0E0FF3F3150E0D0FF3D290F3
+      910E0D0DCFF3F80D0D93F3F00D0D0D0D0D0D15F3F3190D0DD2F3970D0D0D0D0D
+      0D91F3F3110D0DD2F3970D0D0D0D0D0D96F3F30D0D0C0D0D0D0C0D0D0D0C0D0D
+      0D0D0C0D0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D
+      0C0D0C0D0C0C0C0C0C0C0C0C0C0D0E0E0F0E11171717170B0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000F3F39311131119D3F3D00B00000017F3E90B00000000
+      19F3E900000007F3F31900000000D3F3F31A0000000007F3D3000011F3F31100
+      00000000000000000000F3F31A00001AF3F3D0000000000019F3F31100000007
+      F39800000093F307000000000096F39600000007F3D30B000000000000000000
+      07F3980000000000E9F31A000000000000000000000000000007F3F3F3F3F3F3
+      F3F307000014F3F30E0000000093F3D000000EF3F3110E1717171AF3F3140E0E
+      92F3F3F0110E0D0E0D17F3F30E0D0E0D97F397F3130E0D0E1AF3D20E0D11F3F3
+      910D0D0D0E0DCFF3F00D0D0D19F3F3150D0D0D0D0FF0F3970D0D0D19F3F3150D
+      0D0D0D13F3F3F30D0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0C0D0C0D0C0D0D0C
+      0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C
+      0C0C0F0E0E0F0F171717170D0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000F3F3
+      F8000000000BD0F3070000000096F3D011000019F3F31800000007F3E9E9190B
+      0E93F3F393F31A0B0BF8F3F31A000000F3F319000000000000000000000EF3F3
+      1100001AF3F3D3D011000E1AF3F3960000000007F3980000000BE8F3960E000B
+      F7F3F30F0000000EE9F3D3170B000E160F000F13D0F3D01113110B0092F3E914
+      000E161700000000000000000007F39800000000000000000096F3D000000000
+      000FF3F30E000019F3E991171790F1F3980E0F0E92F3D2F0F093910E0D96F397
+      0E0D0D0E19F3F3E80D0D0D0D13F3F3110D0D19F3F393110D13CFF3F3170D0D0D
+      0D96F3F01A0F0D17E8F3F0110D0D0D0DCFF3F0190E0F18F0F3F3F30D0D0C0D0D
+      0D0C0D0D0D0C0D0D0D0C0D0C0D0D0C0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E1617171710
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000F3F31A000000000010F3F30F0000
+      000093F3F3F3F3F3F3910000000007F31A93F3F3F3F3F393001AF3F3F3F3F307
+      00000000D3F3930000000000000000000017F3F30D00001AF3F30FE8F3F3F3F3
+      F3070B0000000007F398000000000BD0F3F3F3F3F3E91700000000000E98F3F3
+      F3F3F3F3190007F3F3F3F3F3F3F311000B07F3F3F3F3F3D00000000000000000
+      0007F39800000000000000000EF3F318000000000000D3F39100000017F3F3F3
+      F3F3F3CF100E0E0E91F39317F3F3F30E0DF0F3900E0D0E0D0FF3F3930D0E0D0E
+      0DE8F3F80E0D0D19F0F3F3F3F3F3F0170D0D0D0D0D0D93F3F3F3F3F3F3D2130D
+      0D0D0D0D0FCFF3F3F3F3F3D293F3F30C0D0D0D0C0D0D0D0C0D0D0D0C0D0D0C0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F1417171714000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000F3F31A000000000000F3F31A00000000000F929898910F000000
+      0000171A0E0011929893110000000F92989317000000000091F3E90B00000000
+      000000000096F3D30000001AF3F3000B1793079111000000000000171A170000
+      0000000014F79898190D00000000000000000FF8930793190F00171AD3F3D31A
+      1AF80E00000011929896190D00000000000000000007F3980000000000000000
+      0FF81A0E00000000000014F819000000001695D2D2CF180E0F0E0E0E1691150E
+      1196CF0E119191110E0D0D0D0D1991110D0E0D0D0E1991170D0D0D0D0F1993CF
+      93190F0D0D0D0D0D0D0D0D111A96CF91170D0D0D0D0D0D0D0D0D1593CF96180D
+      91F3F30D0D0C0D0D0D0C0D0D0D0C0D0D0C0D0D0C0D0C0D0C0D0D0C0D0C0D0C0D
+      0C0D0C0D0C0D0C0D0C0D0C0C0C0C0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0D0E
+      0F0E0E11171717170B0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000F3F31A000000
+      00000BF3F31A0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000EF3F31A000000000000000011F3F31A0000001A
+      F3F3000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000007F30700000000000000000000000000
+      00000000000000000007F3980000000000000000000000000000000000000000
+      000000000C17171717140E0E0E0F0E0E0D0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D
+      0E0D0D0E0D0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D91F3F30C0D0D0DCF150D9118
+      0DD2190CCF150D0C0D0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C
+      0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0E0E0F0E10161717170D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000F3F31A000000000017F3F30F000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      001AF3F3110000000000000BE8F3D30B0000001AF3F300000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000007F3980000000000000000000000000000000000000000000007F398
+      00000000000000000000000000000000000000000000000013171717170F0E0F
+      0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D
+      0E0D0D0D0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D91F3F30D0D0C0DCF150D919110CF970DCF150D0C0D0C0D0D
+      0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0D0C0D0C0D0C0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0E0E0E0E0E1717171710000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000F3F31A0000000017E9F3D000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000093F3F31A0B00000014F0
+      F3E910000000001AF3F30000000000000000000000000091F391000000000000
+      000000000000000000000000000000000000000000000000000F170000000000
+      000000000000000000000000000000000007F398000000000000000000000000
+      00000000000000000000000B17171717160F0E0E0E0F0E0E0E0D0E0D0E0D0E0D
+      0E0D0E0D0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0D0D0E0E0E0F0E0E0F0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D91F3F30C
+      0D0D0DCF150D1A911A1A9710CF100D0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C
+      0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E
+      1417171714000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000F3F3F3079807F3F3F3D0
+      1000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000001AF3F3F30798E9F3F3D01000000000001AF3F30000
+      0000000000000000000000F3F3F3000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000007F3F3F3F3F3F3F3F3F3110000000000000000000000000000000B
+      1517171717150F0E0E0E0E0E0E0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D
+      0E0D0D0D0D0E0D0E0D0E0E0E0E0E0E0F0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D91F3F30D0C0D0DCF150D1591D210191A
+      F30D0C0D0D0C0D0C0D0D0C0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C
+      0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E11171717170B000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000009307D0F3F3F3D0961700000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0E9198E9F3D39617000000000000001AF3F3000000000000000000000000001A
+      F31A000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000091079807980798
+      0798070F000000000000000000000000000000000C1517171717150F0E0F0E0E
+      0F0E0D0E0D0E0D0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0D0D0D0E0E0E0F
+      0E0F0E0E0E0F0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D91F3F30C0D0D0DCF150D1596D20C0F07F30D0C0D0C0D0D0C0D0C0D0C
+      0C0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0F0E0E0F0F171717170D000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000001798070000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000C1517171717150F0E0E0F0E0E0E0E0D0E0D0E0D0E0D0D
+      0E0D0D0E0D0D0E0D0D0E0D0E0D0D0E0E0F0E0E0E0F0E0E0F0E0E0E0F0E0E0E0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D18CFCF0D0D1891E8
+      969117E8180D0C96E90D0D0C0D0C0D0D0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0D
+      0C0C0C0C0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E161717
+      1710000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000D17
+      17171717150F0E0E0E0F0E0E0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0D0D0D
+      0E0E0E0E0E0F0E0E0E10130F0E0F0E0E0E0F0E0E0F0E0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D13151515150E150F0C0D10130D0C0D
+      0D0C0D0C0D0D0C0D0C0D0C0D0C0D0C0D0C0D0C0C0D0C0D0C0D0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F141717171400000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000E1717171717150F0E0E0E0E0E
+      0E0E0D0E0D0E0D0E0D0D0E0D0D0E0D0D0E0D0E0E0E0E0F0E0E0E0F0E13171717
+      140F0E0F0E0E0E0F0E0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C
+      0D0D0C0D0D0C0D0D0C0D0D0D0D0D0C0D0C0D0D0C0D0D0C0D0C0C0D0C0D0C0D0D
+      0D0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0D0E0F0E0E11171717170B000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000E1717171717150F0E0F0E0E0E0E0E0D0E0D0D0D0E0D0D0E
+      0D0D0E0D0D0E0E0E0E0F0E0E0F0E1016171717171717130F0F0E0E0E0E0F0E0E
+      0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0D0C0D0D
+      0C0D0D0C0D0C0D0C0D0C0D0C0D0C0C0D0E0E0E0E0E0D0C0D0C0D0C0D0C0C0D0C
+      0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E10161717170D00
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000E1717
+      171717150F0E0E0F0E0E0E0E0D0E0D0E0D0E0D0D0E0D0D0E0E0E0E0F0E0E0E0F
+      0E141717171717171717171715110E0F0E0E0F0E0F0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0C0D0D0C0D0C0D0D0D
+      0E0E0E0E0E0E0E0F0E0E0D0C0C0C0D0C0D0C0C0C0D0C0C0C0C0C0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0C0E0E0E0E0E171717171000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000E1717171717150F0E0E0E0F0E0E
+      0E0E0D0D0D0D0E0D0D0E0E0E0E0F0E0E0E0F0E11161717171717171717171717
+      171716130F0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0D0C0D0D0D0D0D0C0D0D0C0D0E0D0E0E0E0E0E0E0F0E0F0E0E0E0F0E0E0D
+      0D0C0C0D0C0C0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F
+      0E0E141717171400000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000E171717171716100E0E0E0F0E0E0E0E0D0E0D0D0E0D0E0E0E
+      0E0E0E0F0E0F15171717171717160F13171717171717171717130F0E0F0E0E0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0D0D0E
+      0E0F0E0E0E0F0E0F0E0E0E0E0E0F0E0E0E0E0F0E0D0D0C0C0C0C0C0C0C0D0C0C
+      0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0E0E0F0E11171717170B00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000E171717
+      171716100F0E0E0E0F0E0E0E0D0E0D0E0E0E0F0E0F0E0E0E1317171717171717
+      110B00000C1317171717171717150E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0D0D0D0D0C0D0D0D0D0C0D0D0C0D0E0E0E0E0E0F0E0E0E0E0F0E0F0E
+      0E0E0F0E0F0E0E0E0E0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0F0E0E0F0F171717170D00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000E161717171717110E0F0E0E0E0E0E
+      0E0D0E0E0F0E0E0E0E0F1016161717171717150C0000000000000B1016171717
+      17170E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D
+      0D0D0D0D0C0D0E0F0E0F0E0E0E0F0E0E0E0E0F10131517110E0E0F0E0F0E0D0C
+      0C0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0F0E0E16
+      1717171000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C151717171717140E0E0F0E0E0F0E0E0F0E0E0E0F0E0F131717
+      171717171710000000000000000000000B0F171717170F0E0F0E0E0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0D0D0C0D0D0C0D0E0E0E0E0E0E0F
+      0E0E10131415171717171717110E0E0E0E0E0E0E0C0D0C0C0D0C0C0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0E0E0E0E0F14171717140000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000
+    }
+    Transparent = False
+  end
+  object Label1: TLabel
+    Left = 8
+    Height = 17
+    Top = 254
+    Width = 463
+    Caption = 'Copyright RemObjects Software, 2002-2008. All rights reserved.'#10
+    Font.Color = clWhite
+    Font.Height = -9
+    Font.Name = 'Tahoma'
+    ParentColor = False
+    OnClick = OnCloseClick
+  end
+  object lbl_Version: TLabel
+    Height = 16
+    Top = 31
+    Width = 500
+    Alignment = taCenter
+    AutoSize = False
+    Caption = '[]'
+    Font.Color = clWhite
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    ParentColor = False
+  end
+  object Label7: TLabel
+    Left = 8
+    Height = 17
+    Top = 280
+    Width = 138
+    Caption = 'Visit our website at'
+    Font.Color = clWhite
+    Font.Height = -9
+    Font.Name = 'Tahoma'
+    ParentColor = False
+  end
+  object Label3: TLabel
+    Cursor = crHandPoint
+    Left = 152
+    Height = 17
+    Top = 280
+    Width = 198
+    Caption = 'http://www.remobjects.com'
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsUnderline]
+    ParentColor = False
+    OnClick = Label3Click
+  end
+  object btn_Cancel: TButton
+    Left = 418
+    Height = 25
+    Top = 272
+    Width = 77
+    Cancel = True
+    Caption = 'btn_Cancel'
+    Default = True
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    OnClick = OnCloseClick
+    TabOrder = 0
+  end
+end
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.lrs b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.lrs
new file mode 100644
index 0000000..f99e3a5
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.lrs
@@ -0,0 +1,5159 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TAboutForm','FORMDATA',[
+  'TPF0'#10'TAboutForm'#9'AboutForm'#4'Left'#3#25#1#6'Height'#3','#1#3'Top'#3
+  +#181#0#5'Width'#3#244#1#18'HorzScrollBar.Page'#3#243#1#18'VertScrollBar.Page'
+  +#3'+'#1#13'ActiveControl'#7#10'btn_Cancel'#11'BorderIcons'#11#0#11'BorderSty'
+  +'le'#7#6'bsNone'#7'Caption'#6#20'About RemObjects SDK'#12'ClientHeight'#3','
+  +#1#11'ClientWidth'#3#244#1#10'Font.Color'#7#7'clWhite'#11'Font.Height'#2#245
+  +#9'Font.Name'#6#6'Tahoma'#7'OnClick'#7#12'OnCloseClick'#8'OnCreate'#7#10'For'
+  +'mCreate'#8'Position'#7#16'poMainFormCenter'#10'LCLVersion'#6#6'0.9.25'#0#6
+  +'TImage'#6'Image1'#6'Height'#3','#1#5'Width'#3#244#1#8'AutoSize'#9#7'OnClick'
+  +#7#12'OnCloseClick'#12'Picture.Data'#10'2N'#2#0#7'TBitmap&N'#2#0'BM&N'#2#0#0
+  +#0#0#0'6'#4#0#0'('#0#0#0#244#1#0#0','#1#0#0#1#0#8#0#0#0#0#0#240'I'#2#0#194#30
+  +#0#0#194#30#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0
+  +#0#0#128#0#128#0#128#128#0#0#192#192#192#0#192#220#192#0#240#202#166#0#0#0#0
+  +#0#11#11#11#0#21#21#21#0#27#27#27#0'"""'#0'+++'#0'333'#0';;;'#0#3''#1#0'CCC'
+  +#0'KKK'#0'SSS'#0'[[['#0'```'#0'jjj'#0'rrr'#0'~~~'#0#10#129#3#0#23#133#8#0'$'
+  +#138#13#0','#141#16#0'2'#142#18#0'5'#144#20#0';'#145#22#0'3'#146#29#0'>'#147
+  +#24#0'<'#150'%'#0'7'#152'2'#0'C'#148#25#0'I'#150#27#0'M'#152#28#0'S'#153#30#0
+  +'D'#151'#'#0'W'#155' '#0'\'#156'"'#0'S'#156')'#0'D'#157'7'#0'b'#159'$'#0'O'
+  +#160';'#0'e'#160'%'#0'h'#161'&'#0'l'#162'('#0's'#164'*'#0'z'#167'-'#0'}'#168
+  +'.'#0'g'#163'0'#0'k'#164'1'#0'w'#168'6'#0't'#170'?'#0'{'#170'8'#0'B'#159'@'#0
+  +'M'#162'D'#0'['#165'C'#0'b'#167'B'#0'j'#170'E'#0'v'#172'D'#0'o'#177'['#0'x'
+  +#177'T'#0'b'#175'`'#0'g'#176'b'#0't'#181'g'#0''#182'a'#0'}'#186't'#0#128#169
+  +'/'#0#132#170'1'#0#139#172'3'#0#135#174'<'#0#139#175'='#0#145#174'5'#0#148
+  +#176'7'#0#149#176'8'#0#155#178'9'#0#163#181'<'#0#169#182'>'#0#131#178'N'#0
+  +#142#179'I'#0#158#182'E'#0#148#181'K'#0#155#184'N'#0#140#181'R'#0#133#181'Y'
+  +#0#144#185']'#0#162#183'F'#0#174#184'@'#0#163#185'K'#0#168#185'H'#0#179#186
+  +'B'#0#186#188'E'#0#164#187'T'#0#177#191'V'#0#130#186'l'#0#154#188'a'#0#130
+  +#188'v'#0#145#190'q'#0#192#190'G'#0#193#191'H'#0#172#192'^'#0#180#192'W'#0
+  +#190#193'Q'#0#177#194'_'#0#154#194'v'#0#175#195'i'#0#187#197'e'#0#163#197'x'
+  +#0#187#202'w'#0#190#203'x'#0#196#192'H'#0#203#194'K'#0#210#196'M'#0#214#198
+  +'P'#0#216#199'P'#0#220#200'R'#0#226#202'T'#0#232#204'V'#0#236#205'X'#0#240
+  +#207'Y'#0#244#208'['#0#248#209'\'#0#205#203'j'#0#214#203'd'#0#211#205'l'#0
+  +#203#205's'#0#196#205'{'#0#218#210'x'#0#232#207'`'#0#228#208'i'#0#237#211'l'
+  +#0#244#211'e'#0#248#212'f'#0#227#210'r'#0#235#213'u'#0#227#213'|'#0#250#216
+  +'q'#0#250#217'z'#0#130#130#130#0#141#141#141#0#146#146#146#0#157#157#157#0
+  +#129#191#128#0#163#163#163#0#171#171#171#0#180#180#180#0#190#190#190#0#136
+  +#193#131#0#150#198#137#0#152#201#146#0#166#201#132#0#189#205#130#0#191#209
+  +#141#0#161#206#156#0#172#208#154#0#187#210#149#0#184#212#158#0#169#209#162#0
+  +#179#213#166#0#184#215#168#0#190#216#170#0#191#223#191#0#193#210#141#0#211
+  +#213#139#0#192#212#151#0#205#213#146#0#196#213#152#0#204#216#156#0#212#219
+  +#159#0#244#218#130#0#248#220#132#0#240#220#139#0#227#218#144#0#236#221#148#0
+  +#240#223#149#0#236#224#158#0#245#224#151#0#250#226#152#0#194#215#162#0#193
+  +#217#171#0#200#220#174#0#214#220#160#0#218#220#161#0#211#221#168#0#216#223
+  +#170#0#192#222#188#0#208#223#177#0#222#224#172#0#206#225#186#0#211#224#178#0
+  +#217#225#180#0#214#227#189#0#233#226#166#0#245#230#171#0#249#231#172#0#251
+  +#232#173#0#236#229#178#0#245#232#181#0#251#235#183#0#243#234#190#0#252#235
+  +#184#0#196#196#196#0#205#205#205#0#193#223#192#0#212#212#212#0#220#220#220#0
+  +#199#225#194#0#215#230#200#0#209#231#208#0#211#232#208#0#219#234#211#0#226
+  +#231#194#0#228#235#204#0#233#236#206#0#247#236#192#0#251#237#193#0#242#237
+  +#200#0#253#240#204#0#225#236#213#0#236#237#208#0#240#239#209#0#238#240#218#0
+  +#244#240#211#0#250#242#213#0#245#243#221#0#248#244#222#0#227#227#227#0#237
+  +#237#237#0#228#240#224#0#235#242#227#0#242#245#230#0#253#246#224#0#240#247
+  +#239#0#252#248#233#0#241#242#241#0#244#248#240#0#251#250#243#0#255#255#255#0
+  +#0#0#0#0#0#0#0#0#240#251#255#0#164#160#160#0#128#128#128#0#0#0#255#0#0#255#0
+  +#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#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#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#16#22#23#23#21#14#14#14#14#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#14#14#14#14#14#17#23#23#23#23#23#23#23#23
+  +#20#19#17#16#14#12#11#0#0#0#0#11#22#23#23#23#23#21#14#14#14#14#14#14#14#12#13
+  +#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12
+  +#12#12#12#12#12#12#13#14#14#14#14#16#23#23#23#23#12#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#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#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#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#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#19#23#23#23#21#14#15#14#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#14#14#15#14#14#14#22#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#19#17#15#20#23#23#23#23#21#15#14#15#14#15#14#14#12#13#13#13#13
+  +#13#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#13#12#13#12#13#12#13
+  +#12#13#12#13#13#14#15#14#14#19#23#23#23#23#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#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#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#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#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#13#11#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#19#23#23#23#20#14#14#15#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13
+  +#13#13#13#13#13#13#14#14#15#14#14#17#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#22#15#14#15#14#14#14#14#13#13#12#13#13#12#13#13
+  +#13#13#12#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#12#13#14#14#15#14#19#23#23#23#20#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#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#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#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#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#15#23#22#15#11#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#21#23#23#23#19#14#14#14#14#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#14#14#14#15#14#14#22#22#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#22#16#14#14#14#14#15#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#13#12#13#12#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#14#14#14#14#14#21#23#23#23#19#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#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#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#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#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#17
+  +#23#23#23#23#22#15#11#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#23#23#23#23#19#14#15#14#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#14#14#14#14#15#14#14#16#16#16#16#19#19#20#21#22#23#23#23#23
+  +#23#23#23#23#23#23#16#14#15#14#15#14#14#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#13#12
+  +#14#14#15#14#14#22#23#23#23#16#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#17#23
+  +#23#23#23#23#23#23#22#15#11#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#23#23#23#23#16#14#14#15#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#14#14#15#14#14#14#15#14#14#14#15#14#14#14#14#14#14#15#16
+  +#19#20#21#23#23#23#17#14#14#14#14#14#14#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#12
+  +#13#14#14#14#15#14#23#23#23#23#14#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#20#23
+  +#23#23#23#23#23#23#23#23#23#22#15#11#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#12#23#23#23#23#16#14#15#14#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#14#14#14#15#14#14#14#15#14#14#14#15#14#15#14#15
+  +#14#14#14#15#14#14#16#16#14#15#14#15#14#14#13#13#13#13#12#13#13#13#13#12#13
+  +#13#13#12#13#13#12#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12
+  +#13#12#12#14#15#14#14#16#23#23#23#23#12#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12
+  +#21#22#23#23#23#23#22#23#23#23#23#23#23#23#22#15#11#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#12#23#23#23#23#15#14#14#14#15#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14#14#15#14#14#14#15#14#14#14
+  +#15#14#14#14#15#14#14#14#14#15#14#14#14#14#14#14#14#13#13#13#12#13#13#13#12
+  +#13#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#13#14#14#14#15#17#22#23#23#23#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#12#21#23#23#23#23#23#17#14#17#21#23#23#23#23#23#23#23#22#15#11#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#14#23#23#23#23#14#15#14#14
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#14#13#14#13#14
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14#14#14#15#14
+  +#14#15#14#14#14#14#15#14#14#15#14#15#14#14#14#15#14#15#14#14#14#12#13#13#13
+  +#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12#13#13#12#13#13#12#13#12
+  +#13#12#12#12#12#12#12#12#13#12#13#15#14#14#14#19#23#23#23#21#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#12#21#23#23#23#23#23#17#14#14#15#14#17#21#23#23#23#23#23#23
+  +#23#21#14#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#16#22#23#23
+  ,#23#14#14#15#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#13#14#13
+  +#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#14#13#14#14#14#14#14#14#14#14#14#15#14#14#14#14#15#13
+  +#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#13#14#15#14#14#21#23#23#23#19#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#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#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#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#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#22#23#23#23#23#22#15#15#14#14#14#14#14#15#16
+  +#22#23#23#23#23#23#23#23#21#14#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#16#23#23#23#21#14#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14#14
+  +#14#15#14#14#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13
+  +#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#14#14#14#15
+  +#14#22#22#23#23#16#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#23#23#23#23#23#22#16#14#14
+  +#15#14#15#14#14#14#15#14#17#21#23#23#23#23#23#23#23#21#14#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#11#16#22#23#23#23#20#15#14#15#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#13#14#13#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#14#14#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#13#13#13#13#12#13#12#13#12#13#13#12#13#13#12#13#12#12#12#13#12#13#12
+  +#13#12#13#12#14#15#14#14#14#23#23#23#23#15#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#23#23
+  +#23#23#23#21#15#14#14#15#14#14#14#15#14#14#14#14#14#15#19#22#23#23#23#23#23
+  +#23#23#21#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#16#23#23#23#23#23#23#19
+  +#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12
+  +#13#13#12#13#13#12#12#12#12#12#13#12#13#12#14#14#14#15#16#23#23#23#23#12#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#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#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#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#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#14#23#23#23#23#23#21#15#14#15#14#14#14#15#14#14#15#14#15
+  +#14#14#14#14#15#17#22#23#23#23#23#23#23#23#21#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#11#15#22#23#23#23#23#23#23#23#19#14#15#14#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  ,#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13
+  +#15#14#14#14#16#23#23#23#23#11#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#23#23#23#23#23#21#15
+  +#14#14#14#14#15#14#14#14#14#14#14#14#15#14#15#14#14#15#14#19#22#23#23#23#23
+  +#23#23#23#21#14#0#0#0#0#0#0#0#0#0#0#0#15#21#23#23#23#23#23#23#23#22#16#15#14
+  +#14#15#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13
+  +#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#12#13#13#12
+  +#13#13#13#12#13#12#13#12#12#12#12#12#13#14#15#14#15#19#22#23#23#22#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#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#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#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#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#12#23#23#23#23#23#21#15#14#14#15#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#15#14#14#14#15#17#22#23#23#23#23#23#23#23#19#12#0#0#0#0#0#0#0#12
+  +#21#23#23#23#23#23#23#23#22#16#15#14#14#14#15#14#14#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13
+  +#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#13#14#14#14#14#20#23#23#23#19#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#21#23#23#23#23#21#15
+  +#14#14#14#14#15#14#14#14#14#14#14#13#14#14#14#14#15#14#14#14#15#14#14#14#15
+  +#19#22#23#23#23#23#23#23#23#19#12#0#0#0#11#19#23#23#23#23#23#23#23#22#16#15
+  +#14#14#14#15#14#14#14#15#13#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#13#13#13#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12#13#12
+  +#13#13#12#13#13#12#13#12#12#12#12#12#13#12#13#12#13#14#14#15#14#14#21#23#23
+  +#23#17#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#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#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
+  +#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#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#12#21#23#23#23#23#21#15#14#14#15#14#14#14#14#14#14
+  +#14#14#14#14#14#13#14#14#14#14#15#14#14#14#15#14#14#14#15#17#22#23#23#23#23
+  +#23#23#23#19#12#15#21#23#23#23#23#23#23#22#16#15#14#14#14#15#14#14#14#15#14
+  +#14#13#14#13#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#13#14#13#14#13
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#13#13#12#13#12#13#13#12#13#12#13#12#13#13#12
+  ,#13#13#12#13#12#12#13#12#13#12#14#14#14#15#14#23#23#23#23#16#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0
+  +#11#22#23#23#23#23#21#15#14#14#14#14#15#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#13#14#14#14#15#14#14#14#15#14#14#14#15#19#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#22#19#14#14#14#14#15#14#14#14#15#14#14#13#13#14#13#13#14#13#13
+  +#13#13#13#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12
+  +#12#12#12#14#15#14#14#15#23#23#23#23#12#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#11#20#23#23#23#23#21#15
+  +#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14
+  +#15#14#14#14#15#14#14#15#15#19#23#23#23#23#23#23#23#23#23#23#23#20#14#14#15
+  +#14#15#14#14#14#15#14#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12
+  +#13#12#13#12#13#12#13#13#12#13#13#12#12#13#12#13#12#13#12#13#13#14#14#14#15
+  +#16#22#23#23#23#11#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#20#23#23#23#23#22#16#14#14#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#14#14#14#15#14#14#14
+  +#14#14#15#15#19#23#23#23#23#23#23#23#21#16#14#15#14#14#14#14#14#15#14#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#13#13#14
+  +#13#14#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12
+  +#13#13#12#13#13#12#12#13#12#12#13#12#12#13#15#14#14#14#19#23#23#23#23#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#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#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#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#0#0#0#0#0#0#0#0
+  +#0#0#0#17#23#23#23#23#22#15#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#13#14#14#14#14#15#14#15#14#14#14#15#15#19
+  +#23#23#23#22#19#14#14#15#14#14#15#14#15#14#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12
+  +#12#13#12#12#13#12#13#14#15#14#14#20#23#23#23#19#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#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#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#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#0#0#0#0#0#0#0#0#0#0#16#22#23#23#23
+  +#23#16#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13
+  +#14#14#14#14#14#14#13#14#14#14#14#14#14#14#15#14#14#14#15#15#19#21#15#14#15
+  +#14#14#14#15#14#14#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12
+  +#13#13#13#12#13#12#13#12#13#12#13#13#12#13#13#12#12#13#12#13#12#13#12#13#12
+  +#14#14#14#15#14#21#23#23#23#19#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#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#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#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#0#0#0#0#0#0#0#0#0#14#23#23#23#23#23#17#14#14#14#14#15
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13
+  +#14#14#13#14#14#14#14#14#14#15#14#14#14#14#15#14#14#14#14#14#15#14#14#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13
+  +#13#12#13#13#12#13#13#12#13#13#12#13#12#12#12#13#12#13#12#14#14#15#14#14#23
+  +#23#23#23#16#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#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#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#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#0#0#0#0#0#0#0#0#12#21#23#23#23#23#19#14#15#14#15#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14
+  +#14#14#14#14#15#14#15#14#14#14#15#14#15#14#14#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13
+  +#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#12#13#13#12#13#12#13
+  +#12#13#12#13#12#12#13#12#13#12#13#12#13#14#14#14#14#15#23#23#23#23#13#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#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#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#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#0#0#0#0#0#0#0#11
+  +#21#23#23#23#23#20#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#14#14#14
+  +#14#14#15#14#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#13#12#13#13#12#13#12#13
+  +#12#13#12#12#12#12#12#15#14#15#14#16#23#23#23#23#12#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#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#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#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#0#0#0#0#0#0#0#19#23#23#23#23#21#15
+  +#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#14#14#14#14#15#14#15
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12
+  +#13#14#14#14#14#17#23#23#23#23#11#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#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#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#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#0#0#0#0#0#0#16#23#23#23#23#22#15#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14
+  +#14#14#13#14#14#13#14#14#13#14#14#14#13#14#14#14#14#14#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12
+  +#13#13#12#13#13#12#13#13#12#13#12#13#12#12#12#12#13#12#13#12#13#15#14#15#14
+  +#19#23#23#23#23#20#11#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#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#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#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#0#0#0#0#12#23#23#23#23#23#16#14#15#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#13#14#14#13#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#12#13#12#13
+  +#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#14#14#14#14#15#19#23#23#23#23
+  +#23#22#11#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#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#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#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
+  +#0#0#11#21#23#23#23#23#19#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13
+  +#14#14#14#13#14#14#13#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12
+  +#13#13#12#13#12#13#12#12#12#12#12#14#14#15#14#14#14#19#23#23#23#23#23#22#13#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#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#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#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#0#19#23#23
+  +#23#23#20#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14
+  +#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#12#13#13#12#13#12#13#13#12
+  +#13#12#13#12#13#12#13#14#14#14#14#15#14#14#16#22#23#23#23#23#23#14#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#12#14#17#14#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#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#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#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#15#23#23#23#23
+  +#22#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#14#13#14
+  +#14#13#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#12
+  +#12#13#12#13#12#12#12#14#14#15#14#14#15#14#15#22#23#23#23#23#23#14#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#11#13#15#20#22#23#23#23#22
+  +#11#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
+  +#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#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#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#12#23#23#23
+  +#23#21#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14
+  +#14#13#14#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12#13#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#14#14#14#14#14#14#15#15#21#23#23#23#23#23#14#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#15#19#21#22#23#23#23#23#23#23
+  +#23#23#19#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#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#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#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#19
+  +#23#23#23#23#17#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#13#13
+  +#12#13#12#12#12#12#12#13#12#12#13#12#13#14#15#14#14#14#14#15#21#23#23#23#23
+  +#23#17#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#14#16#20#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#16#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#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#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#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#11#23#23#23#23#22#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13
+  +#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#12#12#13#13#14#14#15#14#14#14
+  +#15#20#23#23#23#23#23#17#0#0#0#0#0#0#0#0#0#0#0#0#11#13#15#20#21#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#12#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#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#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#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#16#22#23#23#23#19#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#13#13#13#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#12#12#13#12#13#12#12
+  +#12#13#14#14#15#14#14#14#15#19#23#23#23#23#23#14#0#0#0#0#0#0#0#12#15#19#21#22
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#22#21#19#16#19#23#23#23#23#20#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#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#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#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#11#21#22#23#23
+  +#23#15#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14
+  +#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#12#13#12#13#13#12#13#12#13#13#12#13#12#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#12#14#14#15#14#14#14#15#19#23#23#23#23#23#14#0
+  +#12#14#16#20#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#21#19#17#15
+  +#14#14#14#14#14#21#23#23#23#23#16#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#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#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#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#14#23#23#23#23#21#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#13#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13
+  +#12#13#12#13#13#12#13#12#12#12#13#12#12#13#12#13#12#13#12#13#12#12#14#14#14
+  +#15#14#14#14#20#23#23#23#23#23#22#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  ,#23#23#21#20#17#16#14#14#14#15#14#15#14#15#14#14#15#22#23#23#23#23#11#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#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#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#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#19#23#23#23#23#16#14
+  +#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#12
+  +#12#12#13#12#12#12#13#12#12#14#14#14#14#15#14#14#20#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#20#19#16#15#14#15#14#14#15#14#14#14#14#14#14#14
+  +#15#14#14#17#23#23#23#23#19#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#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#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#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#12#22#23#23#23#22#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13
+  +#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#13#13#12#13#12#13#13
+  +#12#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#14#14#14#14
+  +#15#14#14#21#23#23#23#23#23#23#23#23#23#23#23#21#20#16#16#14#14#15#14#14#14
+  +#14#14#15#14#14#15#14#15#14#15#14#14#14#15#14#21#23#23#23#23#14#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#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#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#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#17#23#23#23#23#19#14#14#15
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#12#12
+  +#13#12#12#13#12#13#12#13#14#14#14#14#14#15#14#21#23#23#23#23#23#22#20#19#16
+  +#14#14#14#15#14#14#14#14#14#15#14#15#14#14#14#15#14#14#14#14#14#14#14#14#14
+  +#14#16#22#23#23#23#22#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#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#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#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#11#21#23#23#23#22#15#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14
+  +#13#14#14#14#14#13#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#13#12#13#13#12#13
+  ,#12#12#12#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#12#13#14#14#15#14#14
+  +#14#15#21#20#19#16#15#14#14#14#14#14#15#14#14#14#15#14#15#14#14#14#14#14#15
+  +#14#14#13#13#12#12#12#13#14#15#14#14#14#19#23#23#23#23#17#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#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#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#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#16#22#23#23#23#20#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#12
+  +#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#12#12#12#13#12#12#12#13#12
+  +#13#12#13#12#13#12#13#13#14#14#15#14#14#14#15#14#14#15#14#15#14#15#14#14#14
+  +#15#14#14#14#14#14#15#14#13#13#12#12#12#12#12#12#12#12#12#14#14#14#15#14#15
+  +#21#23#23#23#23#12#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#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#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#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#21#23#23#23#23#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#14#13#13#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#13#12#13#12#13
+  +#12#13#12#13#12#12#13#12#13#12#13#12#12#13#12#12#12#13#12#14#14#14#14#15#14
+  +#14#14#15#14#14#14#14#14#14#15#14#14#14#14#14#13#13#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#14#14#14#14#14#16#23#23#23#23#19#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#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#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#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#12#23#23#23#23#21#14#14#14#14#15#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12
+  +#13#13#12#13#13#12#13#12#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12
+  +#13#12#13#12#12#12#14#14#15#14#14#15#14#14#14#15#14#15#14#14#14#13#13#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#15#14#15#14#14#20#23
+  +#23#23#23#14#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#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#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#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#19
+  +#23#23#23#23#17#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14
+  +#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  ,#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#12#13#13#12#13#12#13#13#12#13#12#13#13#12#12#13#12#12#13
+  +#12#13#12#13#12#12#12#12#12#13#12#13#12#12#13#12#12#12#14#14#14#15#14#14#15
+  +#14#14#13#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#14#14#14#14#15#15#23#23#23#23#21#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#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#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#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#11#23#23#23#23#22#14#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#13#12#13#12#13
+  +#12#13#13#12#13#12#13#12#13#12#12#13#12#12#12#13#12#13#12#13#12#13#12#13#12
+  +#12#13#12#12#12#14#14#14#14#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#15#14#14#14#14#19#23#23#23
+  +#23#15#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#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#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
+  +#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#16#22#23
+  +#23#23#19#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14
+  +#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13
+  +#12#13#13#12#13#12#13#13#12#13#13#12#13#12#13#13#12#12#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#12#13#12#13#12#12#13#12#13#12#12#12#12#12#12#13#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#13#15#14#15#14#15#22#23#23#23#22#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#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#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#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#11#21#23#23#23#22#15#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#13#12#13
+  +#12#13#12#13#12#13#12#12#12#13#12#12#13#12#13#12#12#12#13#12#13#12#12#12#12
+  +#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#14#14#17#23#23#23#23#16#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#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#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#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#14#23#23#23#23
+  +#20#15#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  ,#14#13#13#14#13#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13
+  +#12#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#12#13#12#13#12#13#12#12#12
+  +#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#13#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#13#15#14#15#14#14#22#23#23#23#21#11#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#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#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#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#20#23#23#23#23#16#14#15#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#13#12#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13#13#12#13
+  +#12#13#12#13#12#12#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#13#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#15#14#17#23#23#23#23#17#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#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#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#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#12#23#23#23#23#21#14
+  +#14#15#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#12
+  +#13#12#13#12#13#13#12#13#12#13#12#12#13#12#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#12#12#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14
+  +#14#14#14#14#22#22#23#23#23#11#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#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#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#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#17#23#23#23#23#17#15#14#14#15#14#14#14#14#14#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#13#12#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#12#13
+  +#12#13#12#12#13#12#13#12#12#12#12#13#12#13#12#12#13#12#13#12#13#12#13#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#14#15#14#15#14#17#23#23#23#23#16#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#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#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#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#11#22#23#23#23#22#15#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14
+  ,#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12
+  +#13#13#12#13#12#13#12#12#13#12#13#12#12#13#12#12#12#12#13#12#13#12#12#13#12
+  +#13#12#12#12#12#12#12#12#12#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14
+  +#14#14#22#22#23#23#22#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#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#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#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#16#22#23#23#23#19#14#15#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#14#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#12#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#12#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#14#14#15#14#14#17#23#23#23#23#16#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#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#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#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#21#23#23#23#23#15#14#15#14#14#14
+  +#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#12#13#12#13
+  +#13#12#13#12#13#12#12#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#12
+  +#12#12#13#12#13#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#15#14#14#22
+  +#22#23#23#22#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#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#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#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
+  +#13#23#23#23#23#21#14#14#15#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#13#13#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#12#13#13#12#13#13#12#13#12#13#13#12#12#12#13#12#12#13#12#13#12#13#12
+  +#12#12#12#13#12#13#12#12#12#12#12#13#12#12#12#12#12#13#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#14#14#14#14#15#16#23#23#23#23#14#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#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#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#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#19#23#23#23#23#16#15#14#14#15#14#14#14
+  +#13#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13
+  +#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12
+  +#13#12#12#13#12#12#12#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#13
+  +#12#13#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#14#22#23#23
+  +#23#21#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#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#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
+  +#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#12#22
+  +#23#23#23#22#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#12
+  +#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#12#12#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#14#14#14#15#14#19#23#23#23#23#13#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#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#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#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#16#23#23#23#23#19#14#15#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#12#13#12#12#12#12#13
+  +#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#14#15#22#23#23#23#19#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#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#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#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#11#21#23#23#23
+  +#22#15#14#15#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13
+  +#13#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#12#13
+  +#13#12#13#12#13#12#12#13#12#12#12#13#12#13#12#12#12#12#12#12#13#12#13#12#13
+  +#12#13#12#12#12#12#13#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#14#15#14#14#14#20#23#23#23#23#11#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#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#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#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#17#23#23#23#23#17#14#14#15#14#14#14#14#14#14#14#14#13#14
+  +#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#13#12#13#12#13#13#12#13#13#13#12#12#13#12#13#12#12#12#13
+  +#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#15#23#23#23#23#16#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#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#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#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#11#21#23#23#23#22#15#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12#13#13#12
+  +#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#15
+  +#14#14#21#23#23#23#22#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#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#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#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#16#23#23#23#23#17#14#15#14#15#14#14#14#14#14#14#14#13#14#14#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  +#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#13#12
+  +#13#12#13#12#12#13#12#13#12#12#12#12#13#12#13#12#13#12#12#12#12#13#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#14#14#14#14#15#16#23#23#23#23#14#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#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#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#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#11#21#23#23#23#22#14#14#14#15#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#13#13
+  +#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#13#12#13#13#12#13#12
+  +#12#12#13#12#12#13#12#12#12#12#12#12#13#12#13#12#13#12#13#12#13#12#12#12#12
+  +#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#15#14#15#14#14#15
+  +#22#23#23#23#20#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#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#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#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#16
+  +#23#23#23#23#17#14#15#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#12#13#12#13#12#13#12#13#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#14#14#14#14#14#14#15#21#23#23#23#23#22#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#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#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#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#11#21#23#23#23#22#14#14#14#14#15#14#14#13#14
+  +#14#14#14#14#13#14#14#14#14#14#14#13#14#14#13#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#13#12#13#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#13#12#12#12#13#12#12#12#13#12#12#13#12#13#12#12
+  +#12#13#12#13#12#13#14#21#20#21#20#21#20#21#20#21#17#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#15#14#15#14#15#21#23#23
+  +#23#23#21#12#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#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#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#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#16#23#23
+  +#23#23#17#14#15#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#13
+  +#14#14#14#13#14#14#13#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#13#13#14#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#12#13#13#12#13#13#12#13#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#12#12#14#21#26#145#151#207#232#243#243#243#243#243#243
+  +#243#243#243#243#243#243#243#243#243#243#207#207#147#145#20#19#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#14#14#15#14#14#14#15#21#23#23#23#23#22#11#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#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#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#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#21#23#23#23#22#14#14#14#15
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#14#13#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13
+  +#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#12
+  +#13#13#12#13#12#12#13#12#12#12#12#12#12#12#12#12#13#12#12#12#13#12#12#14#23
+  +#145#207#240#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243
+  +#243#243#243#243#243#243#243#243#243#243#243#243#243#243#210#149#24#19#12#12
+  +#12#12#12#12#12#14#14#15#14#14#15#14#21#23#23#23#23#22#12#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#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#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#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#14#23#23#23#23#17#14#15#14#14#14#14#14
+  +#14#14#14#13#14#14#14#14#13#14#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#13
+  +#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#13#13#12#13#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#15#22#147#210#243#243#243
+  +#243#243#243#243#243#243#240#207#207#144#145#144#22#20#20#20#20#20#20#20#19
+  +#25#144#144#149#7#210#243#243#243#243#243#243#243#243#243#240#151#26#19#12#12
+  +#14#14#15#14#14#14#15#21#23#23#23#23#22#11#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#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#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#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#20#23#23#23#22#15#14#14#14#15#14#14#14#14#13#14#14
+  +#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#14#13#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#12#13#12#13#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#16#26#207#243#243#243#243#243#243#243#232#207#145
+  +#22#20#12#12#12#12#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11
+  +#15#19#25#149#208#243#243#243#243#243#243#243#232#147#24#14#14#14#15#14#21#23
+  +#23#23#23#22#12#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#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#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#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#12
+  +#23#23#23#23#19#14#15#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14
+  +#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#12#13#12#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#15#26
+  +#210#243#243#243#243#243#243#210#147#22#16#12#12#12#12#12#12#12#12#12#12#12
+  +#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#19#144
+  +#151#233#243#243#243#243#243#240#150#20#15#21#23#23#23#23#22#11#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#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#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#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#17#23#23#23#23#15#14#14#15
+  +#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#13#12
+  +#13#13#12#13#12#13#12#12#12#12#12#12#12#23#151#243#243#243#243#243#240#150#24
+  ,#15#12#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#12#11#12#11#11
+  +#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#19#146#208#243#243#243
+  +#243#243#233#149#24#23#23#21#12#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#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#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#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#11#12#14#23#23#23#23#20#14#15#14#14#14#14#14#14#14#14#14#14#13
+  +#14#14#14#14#13#14#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13
+  +#12#15#145#232#243#243#243#243#233#150#23#13#13#13#13#13#13#13#12#12#13#12#12
+  +#12#12#12#12#12#12#12#12#12#11#12#11#12#11#12#11#11#12#11#11#11#11#11#11#11
+  +#11#11#11#11#11#0#11#11#0#11#0#0#14#25#208#243#243#243#243#243#207#144#12#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#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#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#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#11#12#16#16#19#22#22#23#23#23#23
+  +#23#23#16#14#14#15#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#12#13#13#12#13#13#12#13#12#13#13#12#13#12#16#150#233#243#243#243#243#151
+  +#25#14#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11
+  +#12#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0
+  +#11#11#0#11#0#16#146#233#243#243#243#243#7#20#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#12#13#15#19#19#23#23#23#23#23#23#23#23#23#23#23#23#23#22#14#15#14#14#14#14
+  +#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13
+  +#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#12#13
+  +#13#12#13#12#13#16#150#243#243#243#243#240#145#17#14#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12
+  +#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#0#11#0#0#0#23#7
+  +#243#243#243#243#211#23#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#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#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#0#0#0#0#0#0#0#0#0#0#0#11#12#14#16#19#21#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#19#14#14#14#15#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  ,#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12#13#13#12#15#149#243
+  +#243#243#243#232#25#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12
+  +#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#11#12#11#11#11#11
+  +#11#11#11#11#11#11#11#11#11#0#11#11#0#11#11#0#11#0#11#0#0#16#147#243#243#243
+  +#243#211#17#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#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#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#0#0#0#11#12#16#16#19#22#22#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#22#20#19#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#14#13#13#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#15#145#233#243#243#243
+  +#232#25#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#12#12
+  +#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#12#11#12#11#11#11
+  +#11#11#11#11#11#11#11#11#0#11#11#0#11#0#0#11#0#11#0#0#0#14#247#243#243#243
+  +#243#7#15#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#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#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#12#13#15
+  +#19#19#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#21#20#19#17#16#14#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14
+  +#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#13#12#13#13#13#12#13#12#13#12#13#12#13#13#23#232#243#243#243#232#25#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#12#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#11#12#11#11#11#11#11
+  +#11#11#11#11#11#11#11#11#0#11#11#0#11#11#0#11#0#0#11#0#0#0#14#247#243#243#243
+  +#243#145#11#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#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#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#11#22#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#21#19#19#16#15#14
+  +#14#15#14#14#14#14#15#14#14#14#14#14#15#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#13#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13#14#13#13#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#12#13#13#13#13#12#13#13#12#13#13#12#13#13#16#207#243#243#243#240#25#14#15#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12
+  +#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#12#11#11#11#11
+  +#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#0#11#0#0#11#0#0#0#0#14#152#243#243
+  +#243#233#23#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#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#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#13#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#22#20#19#17#16#15#14#14#14#14#15#14#15#14
+  +#14#14#15#14#14#14#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14
+  ,#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#14#13#14#14#14#13#14#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#13#12#13#12#13#13#12#26#240#243#243#243#146#16#15#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#12
+  +#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#11#12#11#12#11#11
+  +#11#11#11#11#11#11#11#11#11#0#11#11#0#11#11#0#11#0#0#11#0#0#0#0#0#19#211#243
+  +#243#243#7#13#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#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#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#16#22#23#23#23
+  +#23#23#23#23#23#21#20#19#17#16#14#14#15#14#14#14#14#14#15#14#14#14#14#14#14
+  +#15#14#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13
+  +#13#13#13#13#14#14#14#15#14#14#15#14#14#14#15#14#14#14#15#14#14#14#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#12#16#207#243#243#243#208#19#14#15#14#15#14#15#14
+  +#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11
+  +#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#11#0#0#0#0#0#248
+  +#243#243#243#233#23#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#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#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#19#23#23#23
+  +#22#20#19#16#15#14#14#14#14#14#14#15#14#14#15#14#15#14#14#14#15#14#15#14#15
+  +#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#14#14#13#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13
+  +#13#14#14#14#14#14#15#14#14#14#15#14#14#15#14#14#14#15#14#14#14#14#14#14#14
+  +#14#14#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#12#25#240#243#243#240#144#15#15#14#15#14#15#14#14
+  +#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13
+  +#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12
+  +#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#11#0#0#0#0#0
+  +#14#152#243#243#243#150#11#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#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#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#23#23#23
+  +#23#19#14#14#14#14#14#15#14#15#14#14#14#14#15#14#14#14#15#14#14#14#15#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14
+  +#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#13
+  +#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#14#13#13#14#13#14
+  +#14#14#14#14#15#14#14#14#14#15#14#14#14#15#14#14#15#14#14#14#15#14#15#14#15
+  +#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13
+  +#13#12#13#13#13#12#13#13#12#15#149#243#243#243#208#19#15#15#15#15#14#15#15#14
+  +#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13
+  +#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11
+  +#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#0#11#0
+  +#0#0#0#0#25#243#243#243#232#15#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#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#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#12#23#23
+  +#23#23#16#14#15#14#15#14#14#14#14#15#14#15#14#14#14#15#14#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14
+  +#13#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14
+  +#14#14#14#15#14#14#15#14#15#14#14#14#15#14#14#14#15#14#14#15#14#14#14#14#14
+  +#14#15#14#15#14#15#14#14#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12
+  +#13#13#13#13#12#13#13#13#13#16#210#243#243#243#145#15#15#15#15#14#15#15#14#15
+  +#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12
+  +#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#0#0#11#0#11#0
+  +#0#0#0#0#0#0#15#208#243#243#243#25#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#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#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#16#22
+  +#23#23#23#14#14#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#14#14
+  +#14#15#14#14#14#15#14#14#14#14#15#17#19#19#21#21#21#21#21#21#20#19#19#16#15
+  +#14#14#14#14#14#14#14#14#14#15#14#13#13#13#13#13#13#13#12#13#13#13#12#13#13
+  +#13#13#12#13#13#13#13#12#13#21#240#243#243#232#21#15#15#15#15#15#15#15#15#15
+  +#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13
+  +#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12
+  +#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#11#0#11#0
+  +#0#11#0#0#0#0#0#0#0#12#147#243#243#243#147#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#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#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
+  +#19#23#23#23#21#15#14#14#14#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#14
+  +#14#14#15#14#14#15#14#14#14#17#20#21#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#21#19#16#14#15#14#15#14#14#14#14#14#14#13#13#12#13#13#13#13#12#13#13
+  +#13#12#13#13#13#13#12#13#13#13#24#243#243#243#152#17#15#15#15#15#15#15#15#15
+  +#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13
+  +#14#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11
+  +#0#0#11#0#0#11#0#11#0#0#0#0#0#0#23#233#243#243#208#11#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#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#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#21#23#23#23#19#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14
+  +#14#14#15#14#14#14#15#14#15#19#22#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#21#17#15#14#14#15#14#15#14#14#14#13#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#13#13#13#12#150#243#243#243#146#16#15#15#15#15#15#15#15
+  +#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12
+  +#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11
+  ,#11#0#11#11#0#11#0#0#11#0#0#0#0#0#0#0#0#15#232#243#243#211#15#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#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#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#11#22#23#23#23#17#14#14#14#14#14#14#15#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#14#15#14#14#14#15#14#15#20#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#22#19#15#14#14#14#14#15#14#14#14#12#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#150#243#243#240#26#16#15#16#15#15#15#15
+  +#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14
+  +#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12
+  +#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11
+  +#11#11#0#11#11#0#11#0#11#0#11#0#0#11#0#0#0#0#0#0#0#11#208#243#243#233#15#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#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#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#12#23#23#23#23#15#15#14#15#14#14#14#14#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#13#14#15#14#14#14#15#14#15#19#23#23#23#23#23#23#23#23#23#23#23#19#19#16
+  +#15#16#15#16#19#20#23#23#23#23#23#23#23#23#23#23#22#17#15#14#14#14#14#15#14
+  +#14#12#13#13#13#13#12#13#13#13#12#13#13#14#210#243#243#240#21#16#15#16#15#16
+  +#15#16#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13#12
+  +#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11
+  +#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#0#11#0#0#0#0#0#0#11#247#243#243
+  +#233#15#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#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#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#16#22#23#23#23#14#14#14#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#14#14#14#14#15#14#14#17#22#23#23#23#23#23#23#23#22#17#14#11#0#0
+  +#0#0#0#0#0#0#0#0#0#12#15#20#23#23#23#23#23#23#23#23#21#16#14#15#14#14#14#14
+  +#14#13#13#12#13#13#13#12#13#13#13#14#210#243#243#240#22#16#15#16#15#16#15#16
+  +#15#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12
+  +#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11
+  +#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#11#0#0#0#0#0#0#0#0#0#147#243#243
+  +#243#23#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#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#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#17#23#23#23#21#14#15#14#15#14#14#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#14#15#14#15#14#14#15#20#23#23#23#23#23#23#23#19#14#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#11#16#21#22#23#23#23#23#23#22#17#14#14#15#14#14#14#14#13#13
+  ,#13#12#13#13#13#12#15#210#243#243#210#17#16#16#16#16#15#16#15#16#15#16#15#15
+  +#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14
+  +#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12
+  +#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11
+  +#11#11#11#0#11#11#0#11#0#0#0#11#0#0#11#0#0#0#0#0#0#0#0#145#243#243#243#23#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#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#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#20#23#23#23#20#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#15#14
+  +#14#14#14#16#21#23#23#23#23#23#23#19#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#14#21#23#23#23#23#23#23#20#14#14#15#14#14#14#14#13#13#13#12#13#13#15
+  +#210#243#243#210#19#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15#15#15#15#15
+  +#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13
+  +#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11
+  +#0#11#11#0#0#11#0#0#0#11#0#0#0#0#0#0#0#23#243#243#243#17#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#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#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#23
+  +#23#23#23#19#14#15#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#14#14#14#14#15#14#16#22#23
+  +#23#23#23#23#21#12#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#16
+  +#21#23#23#23#23#23#21#15#14#14#15#14#14#14#12#13#13#13#12#207#243#243#211#17
+  +#16#16#16#16#16#16#16#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15
+  +#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11
+  +#12#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0
+  +#11#0#11#0#0#0#0#0#0#0#0#0#23#243#243#233#15#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#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#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#11#23#23#23#23#16#14
+  +#14#15#14#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#14#14#15#14#14#14#16#22#23#23#23#23#23#16#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#11#20#23#23#23#23#23
+  +#21#15#14#14#14#15#14#13#13#13#13#150#243#243#210#19#16#16#16#16#16#16#16#16
+  +#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14
+  +#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13
+  +#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11
+  +#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#11#0#0#0#0
+  +#0#0#0#0#26#243#243#233#15#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#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#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#12#23#23#23#23#15#14#15#14#14#14#15#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  ,#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#14#14#14#15#14#16#22#23#23#23#23#21#13#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#17#23#23#23#23#23#21#15#14#14#14#14
+  +#14#13#13#147#243#243#240#19#16#17#16#16#16#16#16#16#16#16#16#16#15#16#15#16
+  +#15#16#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13
+  +#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11
+  +#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#0#11#0#0#0#0#0#0#0#147#243
+  +#243#233#11#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#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#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#16#22#23#23#23#14#14#14#14#15#14#14#14#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#15#14
+  +#14#14#15#22#23#23#23#23#22#12#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#14#23#23#23#23#23#20#15#14#15#14#14#14#25#243#243
+  +#233#22#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15
+  +#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14
+  +#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12
+  +#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11
+  +#11#11#0#11#11#0#11#0#11#0#11#0#11#0#0#0#0#0#0#0#0#0#147#243#243#208#11#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#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#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
+  +#16#23#23#23#21#14#15#14#14#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#14#14#15#14#15#21#23#23#23
+  +#23#20#11#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#14#23#23#23#23#23#19#14#14#15#14#22#243#243#243#22#17#16#17#16#17#16
+  +#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15
+  +#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14
+  +#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12
+  +#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11
+  +#0#0#0#11#0#0#11#0#0#0#0#0#0#0#0#208#243#243#147#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#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#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#19#23#23#23#21#14#14
+  +#15#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#15#14#14#14#14#19#23#23#23#23#22#11#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#14#23#23#23#23
+  +#23#16#14#14#19#233#243#243#144#17#17#16#17#16#16#17#16#16#16#16#16#16#16#16
+  +#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15
+  +#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13
+  +#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12
+  +#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#11#0#0#11#0#0#0#11#0
+  +#0#0#0#0#0#11#208#243#243#26#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#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#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#19#23#23#23#19#15#14#14#14#15#14#14#14#14#14
+  ,#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#14#14
+  +#14#15#14#15#16#23#23#23#23#22#11#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#16#22#23#23#23#22#14#15#210#243#243
+  +#150#16#17#17#16#17#17#16#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16
+  +#15#16#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13
+  +#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11
+  +#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#11#0#0#0#0#0#0#0#0#16#233#243
+  +#243#17#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#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#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#23#23#23#23#19#14#14#15#14#14#14#14#14#14#15#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#13#14#13#13#13#13#14#13#13#14#13#13#13#14#14#14#14#14#15#21#23#23#23
+  +#23#14#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#19#23#23#23#23#19#147#243#243#208#17#17#17#17#17#16#17#16#17
+  +#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15#15#15#15
+  +#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14
+  +#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11
+  +#11#0#11#0#11#0#11#0#0#11#0#0#0#0#0#0#0#20#243#243#233#11#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#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#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#23#23#23#23#16#14#15
+  +#14#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13
+  +#13#14#13#13#14#13#14#15#14#15#14#19#23#23#23#23#19#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#11#21#23#23#23
+  +#146#243#243#240#20#17#17#17#16#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16
+  +#16#16#16#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13
+  +#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11
+  +#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#0#11
+  +#0#0#0#0#0#0#145#243#243#7#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#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#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#12#22#23#23#23#16#14#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#14#14#14
+  +#14#15#22#23#23#23#21#11#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#13#23#23#24#240#243#243#24#17#17#17#17
+  +#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16
+  +#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13
+  +#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11
+  +#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#11#0#0#0#0#0#0#0#0#208#243#243
+  +#25#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#17#19#20#19#19#20#19#19#20#19#19#20#16#15#16#15#12#12#11
+  +#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#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#12#23#23#23#23#15#15#14#14#14#14#15#14#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#14#15#14#15#14#19#23
+  +#23#23#23#14#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#19#23#208#243#243#147#17#17#17#17#17#17#17#17
+  +#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16
+  +#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14
+  +#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12
+  +#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11
+  +#11#11#11#11#11#0#11#11#0#11#0#0#0#11#0#0#11#0#0#0#0#0#0#14#233#243#243#15#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#11#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#21#19#16#16#12#11#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#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#12#23#23#23#23#14#14#15#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#14#14#14#14#15#22
+  +#23#23#23#21#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#12#147#243#243#210#19#17#17#17#17#17#17#17
+  +#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16
+  +#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13
+  +#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11
+  +#11#11#11#11#11#11#11#0#11#11#0#11#11#0#0#11#0#0#0#11#0#0#0#0#0#20#243#243
+  +#208#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#16#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#19#16#14#12#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#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#16#22#23#23#23#14#15#14#14#15#14#14#14#15#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#14#15
+  +#14#14#17#23#23#23#23#14#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#11#240#243#243#23#17#17#17#17#17
+  +#17#17#17#17#17#17#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16
+  +#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15
+  +#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11
+  +#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#11#0#0#0#0#0#0#0
+  +#150#243#243#26#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#22#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#19#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#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#16#23#23#23#22#14#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14
+  +#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14
+  +#14#14#15#14#21#23#23#23#21#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#150#243#243#147#19#17#19#17
+  +#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16
+  +#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15
+  +#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13
+  +#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12
+  ,#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#11#0#0
+  +#0#0#0#12#233#243#233#14#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#14#23#23#23#23#20#19#17#19#19#19#21#20#21#21
+  +#20#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#11#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#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#16#22#23#23#21#14#15#14#14
+  +#14#14#14#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13
+  +#14#13#14#14#15#14#14#15#23#23#23#23#16#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#17#243#243#211#19
+  +#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16
+  +#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15
+  +#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13
+  +#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11
+  +#12#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0
+  +#11#0#0#0#11#0#0#0#0#25#243#243#152#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#19#23#23#23#22#14#14#15#14#14#14
+  +#14#15#14#14#14#14#14#14#16#16#17#19#20#21#23#23#23#23#23#23#23#23#23#23#13#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#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#16#23#23#23#21
+  +#14#14#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13
+  +#13#13#14#13#13#14#13#14#14#14#15#17#23#23#23#23#11#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#211
+  +#243#243#25#19#17#19#19#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17
+  +#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15#15#15#15
+  +#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11
+  +#11#0#11#0#11#0#11#0#11#0#0#0#0#0#0#7#243#243#17#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#11#23#23#23#23#19#15#14
+  +#14#14#15#14#14#14#14#15#14#15#14#14#14#15#14#14#14#14#14#15#16#19#21#21#23
+  +#23#23#23#16#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#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#19
+  +#23#23#23#21#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#14#13#13#14#13#14#15#14#14#14#20#23#23#23#21#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#25#243#243#151#19#19#19#17#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17
+  +#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#15
+  +#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12
+  +#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11#11
+  +#11#11#11#11#0#11#11#0#11#0#0#0#11#0#0#11#0#0#0#0#16#243#243#211#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#16#23#23
+  +#23#23#15#14#14#15#14#14#15#14#15#14#14#14#14#15#14#14#14#14#15#14#15#14#14
+  +#15#14#14#14#21#23#23#23#19#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#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#19#23#23#23#21#14#14#14#15#14#14#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#14#15#14#14#23#23#23#23#16#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#11#240#243#240#20#19#19#19#17#19#19#17#19#17#17#17#17#17#17
+  +#17#17#17#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15
+  +#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13
+  +#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11
+  +#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#11#0#0#11#0#0#0#11#0#0#0#147#243
+  +#243#23#0#0#0#0#12#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#22#23#23#23#20#14#15#14#14#14#15#14#14#14#14#15#14#14#14#15#14#15
+  +#14#14#14#14#14#15#14#14#15#14#19#23#23#23#22#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#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#19#23#23#23#20#14#15#14#14#14#14#15#14#14#14
+  +#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#14#15#14#14
+  +#15#23#23#23#23#14#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#26#243#243#247#19#19#19#19#19#17#19#19
+  +#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16
+  +#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15
+  +#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12
+  +#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11
+  +#0#11#0#0#0#0#12#233#243#233#11#0#12#19#23#21#12#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#14#23#23#23#23#17#14#14#14#15#14#13#14#14
+  +#14#14#14#14#14#14#14#14#14#14#15#14#15#14#14#14#15#14#14#16#23#23#23#23#11#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#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#19#23#23#23#19#14
+  +#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13
+  +#13#14#13#13#14#14#14#14#15#16#23#23#23#23#12#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#11#240#243#232
+  +#21#19#19#19#19#19#17#19#17#19#19#17#17#19#17#17#17#17#17#17#17#17#17#17#17
+  +#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15
+  +#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14
+  +#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12
+  +#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11
+  +#11#11#11#0#11#11#0#11#0#11#0#11#0#0#11#0#0#0#248#243#243#146#20#23#23#23#23
+  +#22#11#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#19#23#23
+  +#23#22#14#15#14#14#14#14#13#13#13#13#13#13#13#14#13#14#13#14#13#14#14#14#14
+  +#14#14#14#14#15#15#23#23#23#23#13#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#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#19#23#23#23#19#14#15#14#14#14#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#14#14#15#14#14#17#23#23#23#23#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#26#243#243#145#19#19#19#19#19#19#19#19#19#17#19#17#19#17#17
+  +#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16
+  +#16#16#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15
+  +#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13
+  +#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11
+  +#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#0#11#0
+  +#12#233#243#240#24#23#23#23#23#23#22#12#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#11#23#23#23#23#19#14#14#15#14#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#13#13#13#13#13#13#14#14#14#15#14#14#23#23#23#23#16#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#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#19#23#23#23#19#14#14#14#15#14
+  ,#15#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#13#13#14#13#13#13
+  +#14#14#14#14#15#19#22#23#23#22#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#11#240#243#232#19#19#19#19#19
+  +#19#19#19#19#17#19#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17
+  +#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15
+  +#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14
+  +#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12
+  +#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11
+  +#11#0#11#11#0#11#0#11#0#11#0#11#0#0#0#248#243#243#150#23#23#23#23#23#23#22#11
+  +#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#17#23#23#23#23#15#15
+  +#14#14#14#14#14#13#13#14#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#14#14
+  +#14#14#15#20#23#23#23#19#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#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#19#23#23#23#19#14#15#14#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#14#13#13#14#13#14#13#13#14#13#14#13#14#15#14#14#19#23#23#23#19#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#26#243#243#145#19#19#19#19#19#19#19#19#19#19#19#17#19#19#17#19#17#19
+  +#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16
+  +#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15
+  +#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13
+  +#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11
+  +#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#0#0#11#0#0#11#0#12
+  +#233#243#233#23#23#22#23#23#23#23#23#14#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#11#21#23#23#23#21#14#14#14#15#14#13#13#14#13#13#13#13#14#13#13
+  +#14#13#13#13#14#13#13#13#13#13#14#14#15#14#14#19#23#23#23#21#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#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#20#23#23#23#22#19#15#14#15#14#15
+  +#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14
+  +#14#14#14#15#17#23#23#23#19#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#211#243#240#20#19#20#19#19#19#19
+  +#19#19#19#19#19#19#17#19#19#17#19#17#17#17#17#17#17#17#17#17#17#17#17#17#16
+  +#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15
+  +#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12
+  +#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11
+  +#11#11#0#11#11#0#11#11#0#0#11#0#0#0#0#144#243#243#145#15#15#22#23#23#23#23#23
+  +#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#23#23#23#23#17#14#15
+  +#14#14#14#14#13#13#14#13#14#13#13#14#13#13#13#14#13#13#13#13#13#14#13#14#14
+  +#14#14#15#17#22#23#23#23#11#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#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#23#23#23#23#23#23#23#20#16#14#14#14#15#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#13#13#14#13#13#14#13#13#13#14#14#15#14#14#19#23#23#23#19#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#23#243#243#149#19#20#19#19#19#19#19#19#19#19#19#19#19#19#17#19#19#17#19
+  +#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#17#16#16#16#16#16
+  +#16#16#16#16#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15
+  +#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12
+  +#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#11
+  ,#0#12#243#243#210#14#14#15#21#23#23#23#23#23#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#20#23#23#23#22#14#15#14#14#14#14#13#13#14#13#13#13#14#13#13
+  +#14#13#14#13#13#14#13#14#13#13#13#13#14#15#14#14#15#23#23#23#23#12#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#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#22#23#23#23#23#23#23#23#23
+  +#21#17#14#14#14#15#14#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14
+  +#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13
+  +#14#13#14#14#14#15#17#23#23#23#19#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#208#243#243#21#20#19#20#19#20
+  +#19#19#19#19#19#19#19#19#19#19#17#19#17#19#17#19#17#17#17#17#17#17#17#17#17
+  +#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15
+  +#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12
+  +#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11
+  +#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#0#247#243#243#22#14#14#15#21#23
+  +#23#23#23#23#15#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#23#23#23#23#19
+  +#14#14#14#15#14#13#14#13#13#14#13#14#13#14#13#13#14#13#13#13#13#13#13#13#13
+  +#13#14#14#14#14#15#14#23#23#23#23#16#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#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#11#14#21#23#23#23#23#23#23#23#23#22#19#15#14#14#14#14#15
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#13#14#13#14#13#13#14#14#15#14#14#19#23#23#23
+  +#22#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#15#243#243#152#19#20#19#20#19#19#20#19#19#19#19#19#19#19#19#19
+  +#19#19#17#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17
+  +#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15
+  +#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14
+  +#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11
+  +#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0
+  +#11#0#11#0#11#0#0#16#243#243#150#15#14#14#15#21#23#23#23#23#23#17#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#17#23#23#23#23#15#14#15#14#14#14#13#13#14#13#13
+  +#14#13#13#13#14#13#13#13#13#13#13#13#13#14#13#13#13#14#15#14#14#14#21#23#23
+  +#23#19#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#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#14#19
+  +#23#23#23#23#23#23#23#23#22#20#15#14#15#14#14#15#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#13#13#14#13#14#14#14#14#15#17#23#23#23#23#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#147#243#243#24#20#20
+  +#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17#17
+  +#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16
+  +#16#15#16#15#16#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14
+  +#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12
+  +#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#11#0#11#0#0#208#243#243
+  +#16#14#14#14#15#20#23#23#23#23#23#17#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11
+  +#21#23#23#23#21#14#14#14#15#14#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13
+  +#14#13#14#13#13#13#13#13#14#14#14#15#14#20#23#23#23#20#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#11#11#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#0#0#12#17#23#23#23#23#23#23#23
+  +#23#23#20#16#14#14#14#14#14#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#13#13#13#15#14#14
+  +#14#16#23#23#23#23#12#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#233#243#232#20#20#20#20#19#20#19#20#19#20#19
+  +#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17#17#17#17#17#17#17#17#17
+  +#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15
+  +#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14
+  +#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12
+  +#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11
+  +#11#11#11#11#11#0#11#11#0#11#0#0#11#0#11#23#243#243#25#15#14#14#14#15#19#23
+  +#23#23#23#23#17#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#23#23#23#23#16#15#14#14
+  +#14#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14#13#14#13
+  +#13#14#15#14#14#17#23#23#23#23#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#14#22#21#15#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#0#0#0#11#16#22#23#23#23#23#23#23#23#23#21#17#15#14
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#14#13#13#13#14#13#14#13#14#15#14#14#15#23#23#23#23#13#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#20#243#243#147#20#20#19#20#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19
+  +#19#19#17#19#19#17#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16
+  +#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15
+  +#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13
+  +#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11
+  +#0#11#11#0#11#0#12#233#243#210#14#15#14#14#14#15#19#23#23#23#23#23#19#11#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#20#23#23#23#22#14#14#15#14#14#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#14#14#14#14#15#16#23#23
+  +#23#23#12#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#11#19#23#23
+  +#23#23#19#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#0#0#0#0#11#14#21#23#23#23#23#23#23#23#23#21#19#15#14#14#14#14#15#14#14
+  +#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13
+  +#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14
+  +#13#14#13#14#13#14#14#14#15#14#14#22#23#23#23#16#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#147#243#243#23#20#20
+  +#20#20#20#19#20#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#17#19#19#17#19
+  +#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16
+  +#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#14#15
+  +#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12
+  +#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#0#0#11#0#247
+  +#243#243#17#14#15#14#14#14#15#19#23#23#23#23#23#20#11#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#12#23#23#23#23#19#14#14#14#15#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#14#13#14#13#13#13#13#13#13#14#15#14#14#14#23#23#23#23#15#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#16#23#23#23#23#23#23#23#22#12#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#0#0#0#0#0
+  +#14#19#23#23#23#23#23#23#23#23#22#20#15#14#15#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14
+  +#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#13#13#13#13#13#13#14
+  +#14#14#14#15#20#23#23#23#20#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#233#243#207#20#20#20#20#20#20#20#19#20#19
+  +#20#19#19#20#19#19#19#19#19#19#19#19#19#19#17#19#19#17#19#17#17#17#17#17#17
+  +#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15
+  +#16#15#16#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14
+  +#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13
+  +#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11
+  +#11#11#11#11#11#11#11#11#11#11#0#11#11#0#11#11#0#11#21#243#243#144#14#14#15
+  +#14#14#14#15#17#23#23#23#23#23#20#11#0#0#0#0#0#0#0#0#0#0#0#0#17#23#23#23#23
+  +#15#14#15#14#14#14#13#13#14#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13
+  +#13#14#13#13#13#13#14#14#14#15#14#21#23#23#23#17#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#12#20#23#23#23#23#23#23#23#23#23#23#16#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#0#0#0#0#0#0#12#17#22
+  +#23#23#23#23#23#23#23#23#20#16#14#14#14#14#15#14#15#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#14#13#14#13#15#14#14#14#17
+  +#23#23#23#23#11#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#20#243#243#145#20#20#20#20#20#20#20#20#20#19#20#19#20#19
+  +#19#19#19#19#19#19#19#19#19#19#19#17#19#19#17#19#17#19#17#17#17#17#17#17#17
+  +#17#17#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16#15#16#15#16
+  +#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13
+  +#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11
+  +#11#11#11#11#11#11#11#0#11#11#0#11#0#0#11#233#243#207#14#14#14#15#14#14#14#15
+  +#16#23#23#23#23#23#20#11#0#0#0#0#0#0#0#0#0#0#11#21#23#23#23#20#14#15#14#14#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#13#13#13#13
+  +#13#14#14#14#14#14#20#23#23#23#20#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#11#16#23#23#23#23#23#23#23#23#23#23#23#23#23#19#11#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#0#0#0#0#0#0#11#16#21#23#23
+  +#23#23#23#23#23#23#22#17#14#14#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#14#13#13#14#13#14#13#14#13#14#15#14#15#15#23#23#23#23
+  +#15#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#147#243#243#23#20#20#20#20#20#20#20#20#20#19#20#20#19#20#19#20#19#19
+  +#19#19#19#19#19#19#19#19#17#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17
+  +#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15
+  +#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12
+  +#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11#11#11#11
+  +#11#11#11#11#0#11#11#0#11#11#0#247#243#243#15#14#14#14#15#14#14#14#15#16#23
+  +#23#23#23#23#22#11#0#0#0#0#0#0#12#14#16#20#23#23#23#23#16#15#14#14#15#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#14#13#13#13#13#13#13
+  +#14#14#15#14#14#19#23#23#23#23#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#13
+  +#22#23#23#23#23#23#23#21#15#16#22#22#23#23#23#23#22#11#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#0#0#0#0#0#0#0#11#14#21
+  +#23#23#23#23#23#23#23#23#22#19#15#14#14#14#14#14#15#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#13#14#13#13#13#13#13#13#14#14#14#14#14#14#21#23#23#23
+  +#21#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#233#243#211#21#20#20#20#20#20#20#20#20#20#20#19#20#19#20#19#19#19#19
+  +#19#19#19#19#19#19#19#19#19#19#17#19#17#19#17#19#17#17#17#17#17#17#17#17#17
+  +#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16
+  +#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14
+  +#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12
+  +#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11
+  +#11#11#11#11#11#0#11#11#0#11#0#23#243#243#25#14#14#14#14#15#14#14#14#15#16#23
+  +#23#23#23#23#22#11#0#12#15#19#22#23#23#23#23#23#23#23#22#14#14#14#15#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#14#13#13#13#13
+  +#13#14#14#15#14#16#23#23#23#23#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#19
+  +#23#23#23#23#23#23#22#17#14#15#14#15#20#23#23#23#23#23#23#14#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#0#0#0#0#0#0#0#0#0
+  +#13#19#23#23#23#23#23#23#23#23#23#20#15#14#15#14#14#14#15#14#14#14#14#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#13#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#14#13#14#13#13#14#14#15#14#14#17#23#23#23
+  +#23#13#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#15#243#243#149#21#20#20#20#20#20#20#20#20#20#20#20#20#19#20#19#20#19
+  +#20#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17#17#17#17#17#17#17
+  +#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16
+  ,#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13
+  +#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#12#11#11#11#11#11
+  +#11#11#11#11#11#11#11#0#11#11#0#11#12#243#243#150#14#14#14#14#14#14#15#14#14
+  +#14#16#22#23#23#23#23#22#21#23#23#23#23#23#23#23#23#23#23#23#19#14#15#14#14
+  +#14#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#13#13#14#13#13#13
+  +#13#13#13#13#15#14#14#14#15#22#23#23#23#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#16#21#23#23#23#23#23#23#20#15#15#14#14#14#14#14#17#23#23#23#23#23#23#17#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#0#0#0
+  +#0#0#0#0#0#0#0#12#17#22#23#23#23#23#23#23#23#23#21#16#14#15#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#13#14#13#14#14#14#15#14#15#22
+  +#23#23#23#19#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#25#243#243#25#20#20#21#20#20#20#20#20#20#20#20#20#20#19#20#20#19
+  +#20#19#20#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17#17#17#17#17
+  +#17#17#17#17#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16#15#16
+  +#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#11#12#11#11#11
+  +#11#11#11#11#11#11#11#11#11#0#11#11#0#11#208#243#232#14#14#14#13#14#14#14#14
+  +#15#14#14#15#22#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#15#14#14#14
+  +#15#13#13#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#14#14#15#14#14#22#23#23#23#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#12#20#23#23#23#23#23#23#22#16#14#14#14#14#15#14#15#14#14#16#22#23#23#23#23
+  +#23#19#11#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#0#0#0#0#0#0#0#0#0#0#11#16#21#23#23#23#23#23#23#23#22#14#14#14#15#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#14#15#14#14
+  +#14#20#23#23#23#23#13#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#150#243#240#21#20#21#20#20#20#20#20#20#20#20#20#20#20#20
+  +#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17
+  +#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16
+  +#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14
+  +#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13
+  +#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11
+  +#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#0#144#243#243#17#14#14#14#13
+  +#14#14#14#14#15#14#14#16#22#23#23#23#23#23#23#23#23#23#23#21#20#19#16#15#15
+  +#14#15#14#14#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#13#13
+  +#13#14#13#13#13#13#13#13#14#14#14#14#15#20#23#23#23#21#14#11#0#0#0#0#0#0#0#0
+  +#0#0#0#11#16#23#23#23#23#23#23#23#19#15#14#15#14#15#14#14#14#14#15#14#14#15
+  +#21#23#23#23#23#23#20#11#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#0#0#0#0#0#0#0#0#0#0#0#11#14#21#23#23#23#23#23#23#14#15
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14
+  +#14#14#14#13#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#14#13#14#13#14#13
+  +#14#14#14#15#14#15#23#23#23#23#21#11#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#233#243#207#21#20#21#20#21#20#20#20#20#20#20
+  +#20#20#20#20#20#20#19#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#17#19#19
+  +#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16
+  +#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15
+  +#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13
+  +#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#11#12
+  +#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#0#11#11#19#243#243#25
+  +#14#14#14#13#14#14#14#14#14#15#14#14#15#22#23#23#23#23#23#21#19#16#15#14#14
+  +#14#15#14#14#14#14#14#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13
+  +#13#14#13#14#13#13#13#13#13#13#13#13#14#14#15#14#14#19#23#23#23#23#23#21#17
+  +#12#0#0#0#0#0#0#0#0#13#22#23#23#23#23#23#23#21#15#14#14#14#14#14#14#14#14#15
+  +#14#14#14#15#14#14#20#23#23#23#23#23#21#11#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#0#0#0#0#0#0#0#0#0#0#0#0#0#13#19#23
+  +#23#23#23#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#13#14#14#14#14#13#14#14#14#13#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#13#13#14#13
+  +#14#13#14#13#14#13#14#14#14#14#14#19#23#23#23#23#16#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#15#243#243#150#20#21#20#21#20#21
+  +#20#20#20#20#20#20#20#20#20#20#20#19#20#19#20#19#19#20#19#19#19#19#19#19#19
+  +#19#19#19#17#19#19#17#19#17#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17
+  +#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15#15#15#15
+  +#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#11#12#12#11#12#11#12#11#12#11#15#11#11#11#11#11#11#11#11#11#11#0#11
+  +#11#243#243#150#14#13#14#14#13#14#14#14#14#14#14#15#14#15#21#21#20#16#15#14
+  +#14#14#14#15#14#14#14#15#14#15#14#14#14#13#13#13#13#14#13#13#14#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14#15#16#22#23
+  +#23#23#23#23#23#23#20#14#0#0#0#0#11#19#23#23#23#23#23#23#22#17#14#15#14#15#14
+  +#15#14#15#13#13#13#14#15#14#14#14#15#14#17#23#23#23#23#23#22#11#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#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#12#23#23#23#23#16#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14
+  +#13#14#13#13#13#13#13#13#13#13#14#14#14#15#14#15#14#22#23#23#23#23#12#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#23#243#243#26#21
+  +#21#20#21#20#20#21#20#20#20#20#20#20#20#20#20#20#20#20#19#20#19#20#19#19#19
+  +#19#19#19#19#19#19#19#19#19#17#19#19#17#19#17#19#17#17#17#17#17#17#17#17#17
+  +#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15
+  +#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14
+  +#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12
+  +#12#12#12#12#12#12#12#11#12#12#11#12#11#12#11#11#13#149#151#11#11#11#11#11#11
+  +#11#11#11#11#11#0#11#208#243#210#14#14#13#14#14#13#14#14#14#15#14#14#14#14#14
+  +#15#14#14#14#14#15#14#14#14#15#14#14#14#14#14#15#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#13#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#15#14
+  +#14#14#15#21#23#23#23#23#23#23#23#23#23#21#14#11#14#22#23#23#23#23#23#23#20
+  +#15#15#14#14#14#14#14#14#14#13#13#12#13#12#14#14#15#14#14#14#15#16#22#23#23
+  +#23#23#22#12#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#0#0#0#0#0#0#0#0#0#0#0#0#0#23#23#23#23#17#15#14#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#14#13#14#13#14#13#14#13#13#14#14#14#14#14#15
+  +#16#23#23#23#23#22#11#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#145#243#243#21#21#21#20#21#21#20#21#20#20#20#20#20#23#20#20#20#20
+  +#20#20#19#20#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#17#19#17#19#17#19
+  +#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16
+  +#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13
+  +#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#12#13
+  +#210#243#240#11#11#11#11#11#11#11#11#11#11#11#11#0#146#243#243#14#14#14#13#14
+  +#14#13#14#14#14#14#15#14#15#14#14#14#15#14#14#14#15#14#14#14#15#14#15#14#14
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#14#13#13
+  +#13#13#13#13#13#13#13#13#14#14#15#14#14#14#15#19#22#22#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#22#16#14#14#14#14#15#14#15#14#14#12#13#12#13#13#12#13
+  +#14#14#14#15#14#14#14#16#22#23#23#23#23#21#12#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#0#0#0#0#0#0#0#0#0#0#0#0#20#23#23
+  +#23#19#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#14#13#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#13#13#14#13#14#13
+  +#14#13#14#13#13#14#14#15#14#14#14#20#23#23#23#23#20#11#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#7#243#211#21#21#21#21#20#21#20#21
+  +#20#21#20#20#20#210#152#21#20#20#20#20#20#19#20#19#20#19#19#20#19#19#19#19#19
+  +#19#19#19#19#19#19#17#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17
+  +#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15
+  ,#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14
+  +#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12
+  +#12#12#12#11#12#12#11#12#17#232#243#243#243#17#11#11#11#11#11#11#11#11#11#11
+  +#11#11#25#243#243#22#13#14#14#13#14#14#13#14#14#14#14#14#14#14#15#14#14#15#14
+  +#14#14#15#14#14#14#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14#14#15#14#14
+  +#14#14#17#20#23#23#23#23#23#23#23#23#23#23#23#23#19#15#14#15#14#15#14#14#14
+  +#14#13#12#13#13#12#13#12#13#12#13#13#14#14#14#15#14#14#15#22#23#23#23#23#22
+  +#11#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
+  +#0#0#0#0#0#0#0#0#0#0#0#19#23#23#23#21#14#15#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#14#14#14#13#14#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#14#13#13#13#13#13#13#13#14#13#14#14#14#14#15#14#15#21#23#23
+  +#23#23#20#11#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
+  +#233#243#208#21#21#20#21#21#21#20#21#20#21#20#21#20#243#243#240#144#20#20#20
+  +#20#20#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19
+  +#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16
+  +#16#16#16#16#15#16#15#16#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#14#15
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13
+  +#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#17#240#243#243
+  +#243#243#26#11#12#11#11#11#11#11#11#11#11#11#11#19#243#243#25#14#14#13#14#14
+  +#13#14#14#13#14#14#15#14#14#14#15#14#14#14#14#14#13#14#13#14#13#14#13#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#14#13#13
+  +#13#13#13#13#13#13#13#14#14#15#14#14#14#15#14#14#14#14#15#19#22#23#23#23#23
+  +#23#23#23#21#15#14#14#14#14#14#14#14#14#13#13#13#13#13#12#13#13#12#13#13#12
+  +#13#13#14#15#14#14#15#14#16#22#23#23#23#23#22#11#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#0#0#0#0#0#0#0#0#0#0#16#22#23
+  +#23#22#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#14#13
+  +#14#13#14#13#13#13#14#14#14#14#14#14#16#22#23#23#23#23#20#11#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#11#243#243#150#21#21#21#21#21#21
+  +#20#21#21#20#21#20#25#243#243#243#243#207#21#20#20#20#20#19#20#20#19#20#19#20
+  +#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17#17#17#17#17#17#17#17
+  +#17#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15
+  +#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#12#12#13#12
+  +#12#12#12#12#12#12#12#12#11#23#240#243#243#159#243#243#149#11#11#11#11#11#11
+  +#11#11#11#11#11#11#11#243#243#145#14#13#14#14#13#14#14#13#14#14#13#14#15#14
+  +#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#13#13#13#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#14
+  +#14#14#15#14#14#15#14#15#14#14#14#15#17#22#23#23#23#22#19#14#15#14#15#14#15
+  +#14#15#13#13#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#14#14#15#14#14#14
+  +#15#21#23#23#23#23#22#11#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#0#0#0#0#0#0#0#0#0#13#23#23#23#23#15#14#14#14#15#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#14#13#14#13#13#14#13#13#14#14
+  +#15#14#14#14#16#23#23#23#23#23#22#11#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#17#243#243#145#21#21#21#21#21#21#21#20#21#20#20#21#145#243
+  +#243#243#243#243#240#144#20#20#20#20#19#20#19#20#19#19#20#19#19#19#19#19#19
+  +#19#19#19#19#17#19#19#17#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16
+  +#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15
+  +#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13
+  +#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#12
+  +#12#24#243#243#243#154#2#167#243#207#11#12#11#12#11#11#11#11#11#11#11#11#11
+  +#211#243#207#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14#14#14
+  +#14#14#15#14#14#15#14#19#22#21#15#14#14#14#14#14#14#14#14#13#13#13#13#12#13
+  +#13#12#13#12#13#12#13#13#12#13#13#12#13#14#14#14#15#14#14#15#21#23#23#23#23
+  ,#22#11#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#0#0#0#0#0#0#0#0#11#23#23#23#23#16#15#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#13#13#13#13#14#13#13#14#13#14#14#14#15#14#14#14#17#23
+  +#23#23#23#23#23#15#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#23
+  +#243#243#26#21#21#21#21#21#21#21#21#21#20#21#20#149#243#243'p'#227#243#243
+  +#243#207#21#20#20#20#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#19#17#19
+  +#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16
+  +#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15
+  +#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13
+  +#13#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12#24#243#243#243'D'#2#18
+  +#159#243#243#12#11#11#11#11#11#11#11#11#11#11#11#11#7#243#207#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14#15#14#14#14#15#14#14#14#14
+  +#14#14#15#14#15#14#15#14#14#12#13#13#12#13#13#13#13#12#13#13#12#13#12#13#13
+  +#12#13#12#12#13#14#14#14#14#15#14#15#22#23#23#23#23#22#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#0#0#0#0#0#0#0#0#0#22#23
+  +#23#23#19#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#14#15#14#14#14#17#22#23#23#23#23#23#19#12#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#26#243#243#21#21#21#21#21#21
+  +#21#21#21#21#20#21#21#210#243#236'`]'#174#243#243#243#240#144#20#20#20#19#20
+  +#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#17#19#19#17#19#17#17#17#17#17
+  +#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16
+  +#15#16#15#16#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15
+  +#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13
+  +#13#12#12#13#12#12#12#12#24#243#243#243'D'#18#18#18#148#243#243#15#12#11#12
+  +#11#12#11#11#11#11#11#11#11#149#243#243#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#14#13#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#14#14#15#14#14#14#15#14#15#14#14#14#14#14#14#14
+  +#13#12#13#13#13#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#12#13#14
+  +#14#15#14#14#14#15#22#23#23#23#23#20#11#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#0#0#0#0#0#0#0#19#23#23#23#21#14#14#15#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#14#14#14#15#14#14#14#16#22#23#23#23#23#23#23#17#11#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#150#243#243#21#21#21#21#21#21#21#21#21#21#21#20#21
+  +#210#243#219'`]]p'#227#243#243#243#207#21#20#20#19#20#19#20#19#19#19#19#19#19
+  +#19#19#19#19#19#19#19#17#19#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17
+  +#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#15#15
+  +#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14
+  +#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#12#12#25#243
+  +#243#243'D'#18#18#18#18'<'#243#243#20#12#11#11#12#11#11#11#11#11#11#11#11#144
+  +#243#243#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#14#15#14#14#14#14#15#14#15#14#14#13#13#13#13#13#12#13#13#13#13#12#13#13
+  +#12#13#12#13#13#12#13#13#12#13#12#13#12#13#14#14#14#15#14#14#16#22#23#23#23
+  +#23#20#11#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#0#0#0#0#0#0#16#22#23#23#23#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#13#13#13#13#14#13#13#14#13#13#14#13#14#14#14#15#14#14#14
+  +#15#20#23#23#23#23#23#23#23#17#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#14
+  +#20#210#243#210#22#21#21#21#21#21#21#21#21#21#21#21#20#243#243#193'```]]'#174
+  ,#243#243#243#240#144#20#20#20#19#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19
+  +#17#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#16
+  +#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15
+  +#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14
+  +#13#13#13#13#13#13#13#13#13#13#13#12#12#13#24#243#243#243'D'#27#18#18#18#18
+  +'%'#243#243#24#11#12#11#11#12#11#11#11#11#11#11#11#24#243#243#21#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#15#14#14
+  +#14#14#14#14#13#13#13#12#13#13#13#13#12#13#13#13#12#13#12#13#13#12#13#12#13
+  +#12#13#12#13#12#12#12#12#14#14#14#15#14#14#15#22#23#23#23#23#15#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#0#0#0#0#0#0#12
+  +#23#23#23#23#16#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#13#13#13#14#14#15#14#14#15#14#19#23#23#23#23
+  +#23#23#23#23#21#16#13#0#0#0#0#0#0#0#0#0#0#0#0#11#14#19#21#23#23#210#243#210
+  +#21#22#21#21#21#21#21#21#21#21#21#21#21#243#243#188'````]]p'#227#243#243#243
+  +#207#21#20#20#19#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#17#19#17#19
+  +#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16
+  +#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#14#15
+  +#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13
+  +#13#13#13#13#13#13#12#25#243#243#243'D'#27#27#18#27#18#18#18#243#243#145#11
+  +#12#11#12#11#12#11#12#11#11#11#11#20#243#243#21#14#14#13#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#13#14#13#13
+  +#14#13#14#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#15#14#14#13#13#13#12
+  +#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12
+  +#13#12#13#14#14#14#14#15#14#21#23#23#23#23#11#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#0#0#0#0#0#0#11#22#23#23#23#17#14
+  +#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#14#13#14#13#14#14#15#14#14#14#14#15#21#23#23#23#23#23#23#23#23
+  +#23#23#20#19#15#16#15#16#15#16#16#19#22#23#23#23#23#23#23#241#243#208#21#21
+  +#22#21#21#21#21#21#21#21#21#21#25#243#243#169'a````]]S'#174#243#243#243#240
+  +#144#20#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19
+  +#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16
+  +#16#16#16#16#15#16#15#16#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#14#15
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#13#13
+  +#13#13#13#13#21#243#243#243'D'#27#27#27#18#27#18#18#18#243#243#145#11#12#12
+  +#11#11#11#12#11#11#11#11#11#20#243#243#21#14#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#13#14#13#13#14#13#13#13
+  +#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#12#13#13#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#12#13#12#13#12
+  +#12#14#14#15#14#14#16#23#23#23#23#17#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#0#0#0#0#0#0#0#14#23#23#23#23#20#15#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#13#13#13#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#13#14#13#14#14#14#15#14#14#14#14#16#21#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#243#243#150#22#21#22#21
+  +#21#21#21#21#21#21#21#21#26#243#243#131'aa````]]Sk'#219#243#243#243#207#21#20
+  +#19#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17#17
+  +#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16
+  +#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14
+  +#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#13#13#13#13#13#13#13#13#19
+  +#240#243#243'E'#27#27#27#27#27#18#27#18#18#214#243#207#12#11#12#11#12#11#11
+  +#12#11#11#11#11#17#243#243#144#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#13#14#13#13#14#13#14#13#13
+  ,#13#13#14#13#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13
+  +#13#13#12#13#13#12#13#13#12#13#13#12#13#13#12#12#13#12#12#13#12#13#12#14#14
+  +#14#14#15#20#23#23#23#23#11#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#0#0#0#0#0#0#14#23#23#23#23#23#21#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13
+  +#13#13#13#13#14#14#14#14#15#14#15#14#14#14#16#20#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#21#243#243#150#22#21#22#21#22#21#21
+  +#21#21#21#21#21#26#243#243#131'aaa````]]SS'#171#242#243#243#240#145#20#20#19
+  +#20#19#19#19#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17#17#17#17
+  +#17#17#17#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15
+  +#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#13#13#17#233#243#243
+  +'E'#27#27#27#27#27#27#27#18#27#18#167#243#207#12#12#11#12#12#11#12#11#12#11
+  +#12#11#11#243#243#145#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13
+  +#12#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#12#12#13#13#15#14#15#14#15
+  +#23#23#23#23#17#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#0#0#0#0#0#0#14#23#23#23#23#23#21#15#14#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13
+  +#13#13#13#14#14#14#14#14#14#15#14#14#14#15#16#20#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#22#19#16#15#243#243#150#22#21#22#21#22#21#21#21#21#21
+  +#21#21#26#243#243#131'haaa````]]SSk'#219#243#243#243#210#22#20#19#20#19#20#19
+  +#19#19#19#19#19#19#19#19#19#19#17#19#19#17#19#17#19#17#17#17#17#17#17#17#17
+  +#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15
+  +#16#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#13#14#13#14#13#13#13#13#13#15#210#243#243#159#28#27#27#27#27
+  +#27#27#27#27#18#27#167#243#207#12#12#11#12#11#12#11#12#11#11#11#11#11#243#243
+  +#145#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#13#13#14#13#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#12#13#13
+  +#12#13#12#13#13#12#12#12#13#12#13#12#13#14#14#14#14#14#20#23#23#23#23#11#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#0#0#0
+  +#0#0#14#23#23#23#23#23#21#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13
+  +#13#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#14
+  +#14#15#14#14#14#15#14#14#15#14#14#16#17#19#21#21#23#23#23#23#22#21#20#19#16
+  +#15#14#15#14#14#243#243#150#22#22#21#22#21#22#21#22#21#21#21#21#147#243#243
+  +#128'hhaaa````]]SSS'#171#242#243#243#240#147#19#20#19#20#19#20#19#19#19#19#19
+  +#19#19#19#19#19#17#19#19#17#19#17#17#17#17#17#17#17#17#17#17#17#17#17#16#17
+  +#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15#15
+  +#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14
+  +#13#14#13#14#14#13#13#13#151#243#243#163#27#27#28#27#27#27#27#27#27#27#27#18
+  +#209#243#207#12#12#12#11#12#12#11#11#12#11#12#11#11#243#243#145#14#14#13#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#14#13#13#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#13#12#13#12#12
+  +#13#12#13#12#13#12#13#13#14#15#14#15#15#23#23#23#23#19#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#0#0#0#0#0#14#23#23#23#23
+  +#23#21#15#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  ,#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13#13#13#14#14#14#15#14
+  +#14#14#15#14#14#14#15#14#14#14#14#14#14#14#14#14#15#14#14#15#14#14#14#14#15
+  +#243#243#150#21#22#22#21#22#21#22#21#21#21#21#21#150#243#243'hihhaaa````]]SS'
+  +'Sc'#219#243#243#243#208#23#20#19#20#19#19#19#19#19#19#19#19#19#19#19#19#17
+  +#19#19#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#17#16
+  +#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15
+  +#15#15#14#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14
+  +#147#243#243#214#29#28#27#28#27#27#27#27#27#27#27#27#27#167#243#207#12#12#12
+  +#12#11#12#12#11#12#11#11#12#11#243#243#145#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#12#13#12#13#12
+  +#14#14#14#14#14#20#23#23#23#23#12#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#0#0#0#0#14#23#23#23#23#23#21#15#14#14#15#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#14#13#13#13#13#13#14#13#13#13#13#13#14#14#14#15#14#14#14#15#14#14
+  +#14#15#14#15#14#15#14#15#14#14#14#15#14#14#15#14#14#14#243#243#150#22#22#22
+  +#21#22#22#21#22#21#22#21#21#150#243#243'tthhhaaa````]]SSSR'#171#242#243#243
+  +#240#149#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#17#19#17#19#17#19#17#17
+  +#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16
+  +#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14
+  +#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#25#243#243#238#29#28#28#27
+  +#28#27#28#27#27#27#27#27#27#27#209#243#207#12#12#12#12#12#11#12#12#11#12#11
+  +#11#12#243#243#145#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#14#13
+  +#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#12
+  +#13#12#13#13#12#13#13#12#13#12#12#13#12#12#12#12#13#15#14#15#14#15#22#23#23
+  +#23#19#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#0#0#0#0#14#23#23#23#23#23#21#15#14#14#14#14#15#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#13#13#13#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#13#13#13#14#13#13#13#13#13#13#14#14#14#14#14#15#14#14#14#15#14#14#14#14
+  +#14#14#15#14#14#14#15#14#14#15#14#243#243#150#22#22#22#22#21#22#21#22#21#21
+  +#21#21#150#243#243'tttihhaaa````]]SSSR_'#217#243#243#243#211#24#19#20#19#19
+  +#19#19#19#19#19#19#19#19#19#19#19#17#19#17#19#17#19#17#17#17#17#17#17#17#17
+  +#17#17#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15
+  +#16#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#13#14#20#233#243#243'.'#28#28#28#28#27#28#27#28#27#27#27#27
+  +#27#27#209#243#207#12#12#12#12#11#12#12#11#12#11#12#11#11#243#243#145#14#14
+  +#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#14#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12#13#12
+  +#12#13#12#13#12#13#12#13#14#14#14#14#14#19#23#23#23#23#14#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#0#0#0#14#23#23#23#23
+  +#23#21#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13#13#13#14#13
+  +#13#13#13#13#13#14#13#14#14#15#14#14#14#14#15#14#15#14#14#14#15#14#14#14#14
+  +#14#13#13#243#243#150#22#22#22#22#22#21#22#21#22#21#22#21#147#243#243#130'tt'
+  +'tihhaaa````]]SSSSRs'#242#243#243#243#149#19#20#19#20#19#19#19#19#19#19#19#19
+  +#19#19#17#19#19#17#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16
+  +#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15#15#15#15#15
+  +#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#14#14#14#15#210#243
+  ,#243'F'#28#28#28#28#28#28#27#28#27#28#27#27#27#27#27#209#243#207#12#12#12#12
+  +#12#12#12#11#12#12#11#12#11#243#243#145#14#14#13#14#14#13#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14
+  +#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12
+  +#13#13#13#12#13#12#13#12#13#12#13#12#13#13#13#12#13#12#13#12#13#12#13#14#14
+  +#15#14#15#22#23#23#23#21#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#0#0#0#14#23#23#23#23#23#21#15#14#14#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#14#13#13#13#13#13#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#13#13#13#13#13#243#243#150#22#22#22
+  +#22#22#22#21#22#22#21#22#21#144#243#243#133'uttthhhaaa````]]SSSRR_'#217#243
+  +#243#243#232#25#20#19#20#19#19#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17
+  +#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#16#17#16#16#16#16#16#16#16
+  +#16#16#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15
+  +#14#14#15#14#14#14#14#14#14#14#14#14#150#243#243#163#28#28#28#28#28#28#28#28
+  +#27#28#27#28#27#27#27#27#209#243#207#12#12#12#12#12#12#11#12#12#11#12#11#12
+  +#243#243#145#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#13#13#13#14#13
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#13#14#14#14#14#15#17#23#23#23#23#14#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#0#0#14
+  +#23#23#23#23#23#21#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#13#13#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#13
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#243#243#150#22#22#22#22#22#22#22#21#22#21#21#22
+  +#26#243#243#133'uutttihhaaa````]]SSSRRRp'#236#243#243#243#150#21#19#19#19#19
+  +#19#19#19#19#19#19#19#19#17#19#19#17#17#19#17#17#17#17#17#17#17#17#17#17#17
+  +#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15
+  +#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14
+  +#25#243#243#215#30#28#28#28#28#28#28#28#28#28#27#28#27#28#27#27#27#209#243
+  +#207#12#12#12#12#12#12#12#12#12#11#12#12#11#243#243#145#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#14#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#12#12#12#12#12
+  +#12#13#14#15#14#14#14#22#22#23#23#21#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#0#0#14#23#23#23#23#23#21#15#14#14#14#14#15
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14
+  +#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14
+  +#13#13#14#13#13#14#13#14#13#13#13#13#14#13#13#13#13#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#243#243
+  +#150#22#22#22#22#22#22#22#22#21#22#22#21#144#243#243#133'uuutttihhaaa````]]S'
+  +'SSRRR_'#189#243#243#243#240#144#20#19#19#19#19#19#19#19#19#19#19#19#17#19#19
+  +#17#19#17#19#17#17#17#17#17#17#17#17#17#17#17#16#23#145#147#147#147#24#16#16
+  +#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15
+  +#15#14#15#14#15#14#14#15#14#14#14#14#14#20#240#243#238'.'#29#28#29#28#28#28
+  +#28#28#28#28#28#27#28#27#28#27#27#215#243#207#12#12#12#12#12#12#12#12#11#12
+  +#12#11#19#243#243#26#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#12
+  +#13#12#13#12#13#13#12#13#12#13#12#13#12#13#14#14#14#15#14#17#23#23#23#23#16#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#0#14
+  ,#23#23#23#23#23#21#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#14#13#14#13#13#14#13#13#13#13#14#13#13#14#13#13#14#13#13#13#14#13
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#240#243#208#22#22#22#22#22#22#22#22#22#21
+  +#22#21#144#243#243#178'uuuutttihhaaa````]]SSSSRRQm'#227#243#243#243#210#22#20
+  +#19#19#19#19#19#19#19#19#19#19#17#19#19#17#19#17#17#17#17#17#17#17#17#17#17
+  +#21#150#240#243#243#243#243#243#243#240#151#20#16#16#16#16#16#16#16#16#15#16
+  +#15#16#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14#14#15#14#14
+  +#14#16#210#243#243'F'#29#28#29#28#28#28#28#28#28#28#28#27#28#27#28#27#28#27
+  +#243#243#147#12#12#12#12#12#12#12#12#12#12#12#11#20#243#243#21#14#14#14#13#14
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14
+  +#13#13#13#13#14#13#14#13#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13
+  +#12#13#13#13#12#13#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13
+  +#12#13#12#14#15#14#14#14#22#23#23#23#21#11#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#14#23#23#23#23#23#21#15#14#14#14#14
+  +#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#13#13#14#13#13#14
+  +#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#14#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#207#243#210#22#22#22#22#22#22#22#22#22#22#21#22#21#243#243#198'vvuuuttti'
+  +'hhaaa````]]SSSRRRRQ'#173#242#243#243#240#149#19#19#19#19#19#19#19#19#19#19
+  +#19#17#19#19#17#19#17#19#17#17#17#17#17#21#151#243#243#243#243#243#243#243
+  +#243#243#243#243#243#149#19#16#16#16#16#16#16#15#16#16#15#16#15#15#15#15#15
+  +#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#14#14#147#243#243#163#29#29
+  +#28#29#28#29#28#28#28#28#28#28#28#28#28#27#28#27#27#243#243#145#12#12#12#12
+  +#12#12#12#12#12#12#11#12#20#243#243#21#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13
+  +#13#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#14#14#14#14#15#16
+  +#23#23#23#23#16#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#14#23#23#23#23#23#21#15#14#14#15#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#13#14#13#13#14#13#13
+  +#14#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#207#243#210#23#22#22
+  +#22#22#22#22#22#22#22#22#21#22#243#243#202'vvuuuutttihhaaa````]]SSSSRRQRb'
+  +#218#243#243#243#211#25#19#19#19#19#19#19#19#19#19#19#17#19#17#19#17#19#17#17
+  +#17#20#147#240#243#243#243#213'q://:n'#213#243#243#243#211#21#16#16#16#16#16
+  +#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#14
+  +#14#15#24#243#243#234'"'#29#29#29#28#29#28#29#28#28#28#28#28#28#28#28#28#27
+  +#28'%'#243#243#26#12#13#12#12#12#12#12#12#12#12#12#12#24#243#243#21#14#14#13
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13
+  +#13#14#13#13#13#14#13#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13
+  +#13#12#13#13#13#13#12#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#12#12
+  +#12#12#12#13#14#15#14#14#14#21#23#23#23#22#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#14#23#23#23#23#23#21#15#14#14#14#14
+  +#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#14#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#150#243#243#22#23#22#22#22#22#22#22#22#22#22#22#21#211#243#228'wvv'
+  +'vuuutttihhaaa````]]SSSRRRRQQr'#242#243#243#243#152#21#19#19#19#19#19#19#19
+  +#19#19#19#17#19#17#19#17#19#24#232#243#243#243#213'[2211//,,Z'#224#243#243
+  ,#240#22#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#15
+  +#15#15#14#15#14#15#14#16#240#243#243'0'#29#29#29#29#29#28#29#28#29#28#28#28
+  +#28#28#28#28#28#28#27'='#243#243#21#13#12#13#12#12#12#12#12#12#12#12#12#144
+  +#243#243#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#14#13#14#13#14#13#13#13#13#13#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#12#13#12#13#12
+  +#13#13#12#13#12#13#12#13#12#14#14#14#15#14#16#23#23#23#23#17#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#14#23#23#23#23#23#21
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13
+  +#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#145#243#243#23#22#23#22#22#22#22#22#22#22#22#22
+  +#22#210#243#239'wvvvvuuutttihhaaa````]]SSSSRRRQQ\'#189#243#243#243#240#146#19
+  +#19#19#19#19#19#19#19#19#17#19#19#17#20#207#243#243#243#241'q3332211///,7'
+  +#185#243#243#240#22#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15
+  +#15#15#15#15#14#15#15#14#15#14#208#243#243'f'#29#29#29#29#29#29#29#28#29#28
+  +#29#28#28#28#28#28#28#28#28#28#153#243#243#16#13#12#12#13#12#12#12#12#12#12
+  +#12#12#147#243#243#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13
+  +#13#12#13#13#12#13#12#13#12#13#12#13#12#14#15#14#14#14#21#23#23#23#23#11#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#14#23#23
+  +#23#23#23#21#15#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13
+  +#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#26#243#243#26#23#22#23#22#22#22#22
+  +#22#22#22#22#22#150#243#243'wwwvvuuuutttihhaaa````]]SSSRRRRQQQj'#218#243#243
+  +#243#232#25#19#19#19#19#19#19#19#19#17#19#146#240#243#243#243#184';443332211'
+  +'//,,,'#185#243#243#232#19#16#16#16#16#16#16#15#16#16#15#16#15#15#16#15#15#15
+  +#15#15#15#15#15#15#15#15#14#15#146#243#243#212#30#30#29#29#29#29#29#29#29#28
+  +#29#28#29#28#28#28#28#28#28#28#27#155#243#243#13#12#13#13#12#13#12#12#12#12
+  +#12#12#12#7#243#210#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12
+  +#13#13#12#13#12#13#12#12#13#12#13#12#14#14#14#14#15#15#23#23#23#23#17#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#14#23#23#23#23
+  +#23#21#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#21#243#243#144#23#23#22#23#22#22#22
+  +#22#22#22#22#22#146#243#243#141'xwwvvvuuutttihhaaa````]]SSSRRRRQQQQ'#157#242
+  +#243#243#243#208#25#19#19#19#19#19#19#25#211#243#243#243#224'e444433332211//'
+  +'/,,'#185#243#243#208#16#16#16#16#16#16#16#15#16#16#15#16#15#15#15#15#15#15
+  +#15#15#15#15#15#15#14#15#21#243#243#238'#'#30#29#30#29#29#29#29#29#29#29#28
+  +#29#28#29#28#28#28#28#28#28#28#209#243#210#13#13#12#13#12#12#13#12#12#12#12
+  +#12#12#232#243#207#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#14#13#13#13
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#12#13#12#13
+  +#12#13#12#13#13#12#13#12#12#12#12#12#14#15#14#14#14#20#23#23#23#23#11#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#14#23#23#23#23
+  ,#23#21#15#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#13#13
+  +#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#16#243#243#151#22#23#23#22#23#22
+  +#22#22#22#22#22#22#144#243#243#181'xxwwvvuuuutttihhaaa````]]SSSRRRRQQQQV'#173
+  +#243#243#243#243#207#25#19#22#146#211#243#243#243#241#170'555444433332211//,'
+  +',,'#213#243#243#147#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15
+  +#15#15#15#15#15#16#232#243#243'B'#30#30#30#30#29#30#29#29#29#29#29#29#28#29
+  +#28#29#28#28#28#28#28#28#243#243#150#13#13#13#12#13#13#12#13#12#12#12#12#12
+  +#243#243#145#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#12#13#13#12
+  +#13#12#13#12#13#12#13#12#13#13#14#14#15#14#15#23#23#23#23#19#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#14#23#23#23#23#23#21#15
+  +#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#243#243#7#23#23#23#23#22#23#22#22#22
+  +#22#22#22#22#243#243#205'yxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPb'#197#243#243
+  +#243#243#243#243#243#243#243#243#192'L66554444443332211///,7'#241#243#243#24
+  +#16#16#16#16#16#16#16#16#15#16#15#16#15#16#15#15#15#15#15#15#15#15#15#150#243
+  +#243#159#31#30#30#30#30#30#29#29#29#29#29#29#29#29#28#29#28#29#28#28#28#28'.'
+  +#243#243#26#13#13#13#13#12#13#12#12#13#12#12#12#21#243#243#25#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13
+  +#14#15#14#14#14#20#23#23#23#23#12#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#14#23#23#23#23#23#21#15#14#14#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#13#14#13#13#14#13#14#13#14#13#13#13#14#13#13#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#207#243#232#23#23#23#23#23#22#23#22#22#22#22#22#22#210#243#239
+  +'yyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPQo'#218#243#243#243#243#243#235#172
+  +'WJII66555444433332211//,,Z'#243#243#232#19#16#16#16#16#16#16#16#16#15#16#15
+  +#16#15#16#15#15#15#15#15#15#15#26#243#243#216#31#31#30#30#30#30#30#30#29#30
+  +#29#29#29#29#29#29#28#29#28#29#28#28#28'H'#243#243#21#13#13#13#13#13#12#13#13
+  +#12#13#12#12#24#243#243#21#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12
+  +#13#12#13#12#13#12#13#12#12#13#12#13#13#14#14#14#15#14#23#23#23#23#23#12#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#14#23#23#23#23
+  +#23#21#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13
+  +#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#147#243#243#23#23#23
+  +#23#23#23#22#23#22#22#22#22#22#151#243#243#135'yyxxwwvvvuuutttihhaaa````]]SS'
+  +'SRRRRQQQQPPO^'#158#172#158'bKJJJJII66554444433332211///,'#162#243#243#147#16
+  +#16#16#16#16#16#16#16#16#15#16#15#16#15#15#16#15#15#15#15#19#240#243#238'>'
+  +#31#31#31#31#30#30#30#30#30#29#30#29#29#29#29#29#29#28#29#28#29#28#28#163#243
+  +#243#13#13#13#13#13#13#13#12#13#12#12#13#12#147#243#243#14#13#14#14#13#14#13
+  ,#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13
+  +#13#12#13#13#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#12#12#12#13#15
+  +#14#14#14#14#19#23#23#23#23#19#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#14#23#23#23#23#23#21#15#14#14#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#13#13#13#13#13#14#13#13#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#25#243#243#144#23#23#23#23#23#23#22#23#22#22#22#22#145#243#243
+  +#179'zyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444443332211'
+  +'//,7'#235#243#243#22#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#15#15#15
+  +#15#210#243#243'd   '#31#31#31#30#30#30#30#30#29#29#29#29#29#29#29#29#28#29
+  +#28#29#28#238#243#207#13#13#13#13#13#13#13#13#12#13#13#12#13#207#243#210#14
+  +#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#12#13#12#13#13#12#13#12
+  +#13#12#13#12#12#14#14#15#14#14#14#21#23#23#23#23#15#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#14#23#23#23#23#23#21#15#14#14#15#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#19#243#243#149#23#23#23#23#23#23#23#22#23#22
+  +#22#22#24#243#243#205'zyyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJI'
+  +'I66554444433332211///Z'#243#243#208#16#16#16#16#16#16#16#16#16#16#15#16#15
+  +#16#15#16#15#15#149#243#243#191' !'#31' '#31#31#31#31#30#30#30#30#30#29#30#29
+  +#29#29#29#29#29#28#29#28'.'#243#243#146#13#13#13#13#13#13#13#13#13#12#13#12
+  +#12#243#243#150#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13
+  +#13#12#13#12#12#13#12#13#12#13#12#13#14#14#15#14#14#16#23#23#23#23#21#11#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#11#23#23#23#23#23#21#15#14
+  +#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#243#243#208#23#23#23
+  +#23#23#23#23#23#22#23#22#23#22#210#243#242'zzzyyxxwwvvuuuutttihhaaa````]]SSS'
+  +'RRRRQQQQPPONNNKKKKJJJII66555444433332211//,'#162#243#243#145#16#16#16#16#16
+  +#16#16#16#16#16#15#16#15#16#15#16#24#243#243#234'*!!    '#31#31#31#30#30#30
+  +#30#30#29#30#29#29#29#29#29#29#28#29'H'#243#243#20#14#13#13#13#13#13#13#13#13
+  +#13#12#13#21#243#243#248#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12
+  +#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#14#14#15#14#14#19#23#23#23
+  +#23#17#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#21#23#23#23#23
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#14#13#14#13#13#13#14#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#207#243#241
+  ,#23#23#23#23#23#23#23#23#23#22#23#22#22#149#243#243#140'zzzyyxxwwvvvuuutttih'
+  +'haaa````]]SSSRRRRQQQQPPONNNKKKJJJJII66554444443332211//8'#241#243#240#19#16
+  +#16#16#16#16#16#16#16#16#16#15#16#15#16#19#240#243#243'?#!!!   '#31#31#31#31
+  +#30#30#30#30#30#29#29#29#29#29#29#29#29#28#215#243#232#14#13#14#13#13#13#13
+  +#13#13#13#13#13#12#145#243#243#20#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#13#13#12
+  +#13#12#13#12#13#12#13#13#12#13#12#12#12#12#12#13#12#12#13#14#14#14#14#15#14
+  +#22#22#23#23#23#12#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#15
+  +#23#23#23#23#16#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#14#13#14#13#13#13#14#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#145#243#243#144#23#23#23#23#23#23#23#23#23#22#23#22#25#243#243#203'{zzzyyxx'
+  +'wwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444433332211//n'#243
+  +#243#7#16#16#16#16#16#16#16#16#16#16#16#15#16#17#210#243#243'n##!!!!    '#31
+  +#31#31#30#30#30#30#30#29#30#29#29#29#29#29'$'#243#243#150#14#13#14#13#14#13
+  +#13#13#13#13#13#13#13#207#243#240#14#14#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12
+  +#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#12#12#14#15#14#14
+  +#14#16#23#23#23#23#19#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#11
+  +#21#23#23#23#20#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13
+  +#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#19#243#243#149#24#23#23#23#23#23#23#23#23#23#22#23#22#232#243#239'z{zzzyyxx'
+  +'wwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII66554444433332211//'#213
+  +#243#243#144#16#16#16#16#16#16#16#16#16#16#16#15#151#243#243#165'#&##!!!!   '
+  +' '#31#31#31#30#30#30#30#30#29#30#29#29#29#29'H'#243#243#24#13#14#14#13#14#13
+  +#13#13#13#13#13#13#15#243#243#150#13#14#14#13#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13
+  +#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#13#13#12
+  +#13#13#12#13#13#12#13#12#13#12#12#13#12#13#12#12#12#12#13#12#13#13#14#14#15
+  +#14#14#21#23#23#23#23#12#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#17#23#23#23#23#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#240#243#210#23#23#23#23#23#23#23#23#23#23#23#22#23#149#243#243#177'{{zzz'
+  +'yyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444443332211/:'
+  +#241#243#240#21#16#16#16#16#16#16#16#16#16#16#145#243#243#216'-&#&##!!!!   '
+  +#31#31#31#31#30#30#30#30#30#29#29#29#29#29#234#243#240#14#14#13#14#13#14#13
+  +#14#13#13#13#13#13#23#243#243#25#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#12#13#12#13#12#13#13#12#13#12#12#13#12#13#12#13#12#13#12#12#13#14#14#14#14
+  +#15#15#22#23#23#23#21#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#12
+  +#22#23#23#23#19#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14
+  ,#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#14#13#14#13#13#13#13#13#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#150#243#243#24#24#23#23#23#23#23#23#23#23#23#23#22#25#243#243#220'|{zzzzyyx'
+  +'xwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII66554444433332211/'#156
+  +#243#243#211#19#16#16#16#16#16#16#16#16#26#243#243#241'@&&&&###!!!!    '#31
+  +#31#31#30#30#30#30#30#29#30#29'>'#243#243#147#14#14#14#14#13#14#13#14#13#13
+  +#13#13#13#150#243#243#17#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#13
+  +#12#13#13#12#13#12#12#13#12#12#12#13#12#13#12#12#13#12#12#13#14#15#14#14#14
+  +#20#23#23#23#23#23#23#23#23#23#23#21#19#19#20#15#16#15#15#12#12#12#11#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#19#23#23#23#22#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13
+  +#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#13#13#13#14#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#25#243#243#147#23#24#23#23#23#23#23#23#23#23#23#23#22#210#243
+  +#243#136'|{{zzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444'
+  +'433332211/'#194#243#243#7#16#17#16#16#16#16#16#26#243#243#243'C''''''&&&&##'
+  +'!!!!   '#31#31#31#31#30#30#30#30#30#29#30#163#243#243#17#14#14#14#14#14#13
+  +#14#13#14#13#13#13#13#240#243#210#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#14
+  +#14#14#15#14#15#22#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#19#20#19#19#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#14#23#23#23#23#19#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#13#13#13#13#13#14#13#13
+  +#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#15#243#243#208#23#23#24#23#23#23#23#23#23#23
+  +#23#23#23#147#243#243#199'{{{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONN'
+  +'NKKKJJJJII665544444433322118'#224#243#243#208#19#16#16#16#19#151#243#243#243
+  +'g''''''''&&&&###!!!!    '#31#31#31#30#30#30#30#30'"'#243#243#207#14#14#14#14
+  +#14#14#13#14#13#14#13#14#13#23#243#243#144#14#14#13#14#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13
+  +#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#12#12#12#13#12#13#12
+  +#12#13#12#14#14#14#14#14#19#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#13#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#21#23#23#23#22#14#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#14#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#151#243#243#25#23#23#24#23#23#23
+  +#23#23#23#23#23#23#22#233#243#242'||{{{zzzyyxxwwvvvuuutttihhaaa````]]SSSRRRR'
+  +'QQQQPPONNNKKKKJJJII665554444333322118'#224#243#243#240#150#147#149#240#243
+  +#243#241'g((((''''''&&&&##!!!!   '#31#31#31#31#30#30#30#30#154#243#243#25#14
+  +#14#14#14#14#14#14#14#13#14#13#14#13#150#243#243#17#14#13#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#13#13#12#13#12#13#13#12#13#13#12#13#13#12#12#12#13#12#13#12#13#12#12
+  ,#13#12#13#12#12#13#13#15#14#15#14#15#22#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#17#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#15#23#23#23#23#17#14
+  +#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#13
+  +#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#25#243#243#147#24#23
+  +#23#24#23#23#23#23#23#23#23#23#23#150#243#243#182'|||{zzzzyyxxwwvvuuuutttihh'
+  +'aaa````]]SSSRRRRQQQQPPONNNKKKJJJJII665544444333322118'#213#243#243#243#243
+  +#243#243#243#224'A)((((''''''''&&&###!!!!   '#31#31#31#31#30#30'$'#238#243
+  +#232#14#14#14#14#14#14#14#14#14#14#13#14#13#14#233#243#210#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13
+  +#13#12#13#13#13#13#13#12#13#13#12#13#12#13#12#13#12#12#13#12#13#12#12#13#12
+  +#13#12#13#12#12#13#12#13#12#13#14#14#14#14#14#14#14#14#15#16#16#16#16#19#19
+  +#19#20#21#20#21#23#23#23#23#23#23#23#23#23#23#23#23#23#22#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#11#21#23#23#23
+  +#22#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14
+  +#13#14#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#15#233#243#232
+  +#23#24#23#23#24#23#23#23#23#23#23#23#23#24#240#243#239'}|||{{zzzyyxxwwvvvuuu'
+  +'tttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444443332211/n'#224#243#243
+  +#243#224'n)+)))(((''''''''&&&###!!!!   '#31#31#31#31#30#154#243#243#146#14#15
+  +#14#14#14#14#14#14#14#14#13#14#13#25#243#243#144#14#13#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#12#13#13#12#13#12#13#13#12#13#12#12#13#12#12#13#12#13#12
+  +#13#12#13#12#12#13#12#13#15#14#15#14#15#14#14#14#14#14#14#15#14#14#14#14#14
+  +#15#14#14#14#14#15#16#16#16#19#19#19#23#23#23#23#13#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#16#22#23#23#23#17#14
+  +#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#13#14#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13
+  +#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#150#243#243#144#23#24
+  +#23#23#24#23#23#23#23#23#23#23#23#150#243#243#182'}|||{zzzzyyxxwwvvuuuutttih'
+  +'haaa````]]SSSRRRRQQQQPPONNNKKKJJJJII665544444333322111/,,,,+++))))((('''''''
+  +'''&&&###!!!!   '#31#31#31'$'#238#243#240#16#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#207#243#243#15#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#12#13
+  +#13#12#13#12#13#12#12#13#12#12#13#12#12#13#12#12#12#13#12#13#12#12#12#12#14
+  +#14#14#14#14#15#14#15#14#15#14#14#14#15#14#15#14#14#14#15#14#14#14#14#14#14
+  +#14#15#14#22#23#23#23#17#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#11#21#23#23#23#22#14#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14
+  +#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#21#243#243#207#24#23#24#23#23#24#23#23#23#23
+  +#23#23#23#24#241#243#239#137'}||{{{zzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQ'
+  +'PPONNNKKKKJJJII66555444433332211///,,,+++))))(((''''''''&&&###!!!!   '#31#31
+  +#154#243#243#146#15#14#14#15#14#14#14#14#14#14#14#14#14#17#243#243#150#14#13
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  ,#14#13#13#14#13#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13
+  +#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#13
+  +#12#13#12#13#12#12#13#12#13#12#12#13#12#13#12#12#14#14#15#14#14#14#14#14#14
+  +#14#14#15#14#14#14#14#14#15#14#14#15#14#15#14#15#14#14#14#14#20#23#23#23#21#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#16#22#23#23#23#17#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#14#13#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#232#243#240#25#23#24#23#24#23#23#24#23#23#23#23#23#23#151#243#243#199
+  +'}}||{{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII665544444433'
+  +'32211//,,,,+++))))(((''''''''&&&###!!!!   *'#238#243#240#16#15#14#15#14#14
+  +#14#14#14#14#14#14#14#14#147#243#243#21#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13
+  +#14#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#13
+  +#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13
+  +#12#12#13#12#12#12#12#14#13#14#14#14#14#14#15#14#14#14#15#14#15#14#14#14#15
+  +#14#14#14#14#14#14#15#14#15#14#16#23#23#23#23#12#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#11#21#23#23#23#22#14
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#25#243#243#150#24#23
+  +#24#23#23#24#23#23#23#23#23#23#23#24#241#243#242#137'}}|||{zzzzyyxxwwvvvuuut'
+  +'ttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444433332211///,,,+++))))((('''
+  +'''''''&&&###!!!!  '#164#243#243#26#14#15#14#14#15#14#15#14#14#14#14#14#14#15
+  +#240#243#232#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#12#13#13#12
+  +#13#13#12#12#13#12#13#12#12#12#13#12#13#12#13#12#12#13#12#12#12#13#12#12#12
+  +#12#12#12#12#12#12#12#12#12#13#12#13#12#14#13#13#14#14#14#14#14#15#14#14#14
+  +#14#14#15#23#23#23#23#16#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#16#22#23#23#23#17#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14
+  +#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#13#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#15#233#243#233#24#23#24#23#24#23#23#24#23#23#23
+  +#23#23#23#149#243#243#221'~}}|||{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQP'
+  +'PONNNKKKJJJJII66554444433332211//,,,,+++))))(((''''''''&&&###!!!!>'#243#243
+  +#232#15#14#15#15#14#14#15#14#14#14#14#14#14#14#146#243#243#25#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13
+  +#13#13#12#13#13#13#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#12#12#13#12
+  +#13#12#13#12#12#13#12#13#12#13#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#15#14#14#14#20#23#23#23#20#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#11#21#23#23#23#22#15#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#145#243#243#147#24#23#24#23#24#23#23#24#23#23#23#23#23#23#232#243#243#175
+  +'~}}|||{zzzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444443'
+  ,'332211///,,,+++))))(((''''''''&&&###!!!'#216#243#243#23#15#15#14#15#14#15#14
+  +#15#14#15#14#14#14#14#232#243#240#15#14#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13
+  +#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13
+  +#12#13#12#13#13#12#13#12#13#13#12#12#13#12#13#12#13#12#12#12#13#12#13#12#12
+  +#13#12#13#12#12#12#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#13#14#15#14#15#17#23#23#23#23#11#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#16#22#23#23#23#19
+  +#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14
+  +#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#243#243#233#24#24
+  +#23#24#23#24#23#23#24#23#23#23#23#23#145#243#243#239#138'~}}||{{{zzzyyxxwwvv'
+  +'uuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII66554444433332211//,,,,+++))))'
+  +'(((''''''''&&&###!'#154#243#243#152#15#14#15#15#15#14#15#14#14#15#14#14#14
+  +#14#25#243#243#145#14#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#12#13
+  +#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#14#14#14#14#15#23#23#23#23#14#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#11#21#22#23#23#22#15#14#14#15#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13
+  +#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#150#243#243#147#24#23#24#23#24#23
+  +#24#23#23#24#23#23#23#23#151#243#243#204'~~}}|||{zzzzyyxxwwvvvuuutttihhaaa``'
+  +'``]]SSSRRRRQQQQPPONNNKKKKJJJII66555444433332211///,,,+++))))(((''''''''&&&#'
+  +'#?'#243#243#240#17#15#15#15#14#15#15#14#15#15#14#15#14#15#14#232#243#240#15
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#14#14#14#14#14#15#14#14#14#14
+  +#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#13#12#13
+  +#12#13#12#12#12#12#13#12#12#12#12#12#13#12#13#12#13#12#12#12#12#13#12#13#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#15#14#14
+  +#14#22#23#23#23#17#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#14#23#23#23#23#20#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#14#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#16#243#243#233#24#24#23#24#24#23#23#24#23#23#23#24
+  +#23#23#24#233#243#243#176'~~}}||{{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQ'
+  +'PPONNNKKKJJJJII66554444443332211//,,,,+++))))(((''''''''&&&#'#216#243#243#24
+  +#15#15#15#15#15#15#15#14#15#14#15#14#15#14#146#243#243#145#14#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#14#15#14#14#14#15#14#14#14#15#14#15#14#14#14#15#14#14
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13
+  +#13#13#12#13#13#13#13#13#12#13#12#13#13#12#13#13#12#13#12#12#12#12#13#12#13
+  +#12#12#13#12#13#12#13#12#13#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#15#14#20#23#23#23
+  +#21#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#20#23#23#23#23#16#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#14#14#14#14#14#15#14
+  +#15#14#14#14#14#13#14#14#13#14#14#13#14#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#13#13#13#14#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  ,#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#145#243#243#150#24#24#23#24#23#24#23#24#23#23#23#23#23#23#145#243
+  +#243#242#138'~~}}||{{{zzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJ'
+  +'II66555444433332211///,,,+++))))(((''''''''&&'#160#243#243#152#15#15#15#15
+  +#15#15#15#14#15#15#14#15#14#14#16#240#243#240#15#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#14#14#14#14#15#14#14#15#14#14#15#14#14#14#14#14#14#15#14#14#14#14#14#14#14
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#12#13#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#14#17#23#23#23#23#11#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#12#23#23#23#23#21#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#15#14#15#14#14#14#14#14
+  +#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#14#240#243#241#25#24#23#24#24#23#24#23#24#23#24#23#23#23#23#151#243#243
+  +#229'~~}}||{{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII66554'
+  +'444433332211//,,,,+++))))(((''''''''G'#243#243#240#17#15#15#15#15#15#15#15
+  +#15#15#15#14#15#14#15#146#243#243#145#14#14#13#14#13#14#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#14#14#15
+  +#14#14#14#15#14#14#14#14#15#14#15#14#15#14#14#14#15#14#15#14#14#14#14#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13
+  +#13#12#13#12#13#13#12#13#13#12#13#13#12#13#12#12#13#12#13#12#13#12#13#12#13
+  +#12#12#13#12#13#12#13#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#15#14#15#14#15#23#23#23#23#13#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#19
+  +#23#23#23#23#17#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#15#14#15#14#14#14#14#14#14#15#14#15#14#15#14#14#14
+  +#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13
+  +#14#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#145#243
+  +#243#152#24#24#23#24#24#23#24#23#23#23#24#23#23#23#23#232#243#243#204'~~}}|'
+  +'||{zzzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII665554444433322'
+  +'11///,,,+++))))(((''''@'#241#243#243#23#15#15#15#15#15#15#15#15#15#15#14#15
+  +#15#14#19#243#243#232#15#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#14#13#13#14#13#13#14#13#13#14#14#15#14#14#14#14#15#14#14
+  +#14#15#14#16#16#17#17#16#16#15#14#15#14#14#14#15#14#15#14#14#15#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  +#12#13#13#12#13#13#12#12#13#12#13#12#12#12#12#13#12#12#12#12#13#12#13#12#12
+  +#12#12#12#12#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#14#14#14#14#14#22#23#23#23#16#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#11#22#23#23#23
+  +#22#15#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#15#14#15#14#14#14#14#15#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#232#243#243#144
+  +#24#24#23#24#23#24#23#24#23#23#24#23#23#23#24#241#243#243#183'~~}}|||{{zzzy'
+  +'yxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII66554444433332211//,,,,'
+  +'+++))))(((-'#216#243#243#145#15#15#16#15#15#15#15#15#15#15#15#15#15#15#14
+  +#208#243#243#25#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#13#14#13#13#14#13#13#14#14#14#14#14#15#14#15#14#14#15#19#20#22
+  +#23#23#23#23#23#23#23#23#23#21#17#15#14#14#14#14#14#15#14#14#14#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#12#13
+  +#12#13#12#13#13#12#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#12
+  +#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#14#14#15#14#14#21#23#23#23#19#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#16#22#23#23#23#20
+  +#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#15#14#15#14#14#14#15
+  ,#14#14#15#14#14#14#14#14#16#17#20#21#21#15#14#15#14#14#14#14#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#23#243#243#211#23#24
+  +#24#24#24#23#24#23#24#23#23#24#23#23#23#145#243#243#243#143'~~}}|||{zzzzyyx'
+  +'xwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444433332211///,,,++'
+  +'+))))(('#216#243#243#151#15#16#15#15#15#15#15#15#15#15#15#15#15#15#14#24#243
+  +#243#207#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#14#13#13#14#13#13#14#14#14#15#14#14#14#14#14#16#21#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#21#17#15#14#14#14#14#15#14#14#14#12#13#13#13
+  +#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#13#12#13#13
+  +#12#13#12#13#12#13#12#13#12#13#12#12#13#12#13#12#12#13#12#12#12#13#12#13#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#13#14#14#15#14#19#23#23#23#23#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#21#23#23#23#23#16#14
+  +#14#15#14#14#14#14#14#14#14#14#14#15#14#15#14#14#14#15#14#14#15#14#14#14#15
+  +#14#15#17#19#21#23#23#23#23#23#23#21#15#14#14#15#14#14#14#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#207#243#243#150#24#24#23
+  +#24#24#23#24#23#24#23#23#24#23#23#23#147#243#243#242#143'~~}}|||{{zzzyyxxww'
+  +'vvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII66554444443332211//,,,,+++))'
+  +'))'#165#243#243#210#17#16#16#15#16#15#15#15#15#15#15#15#15#15#15#16#240#243
+  +#243#20#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#14#14#15#14#14#15#14#16#22#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#21#17#15#14#14#14#14#15#14#14#13#13#13
+  +#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13#13#13#12#13#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#12#12#12#12
+  +#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#13#14#14#14#14#16#23#23#23#23#12#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#12#23#23#23#23#22#15
+  +#14#14#14#14#14#14#15#14#15#14#14#14#14#14#15#14#14#14#14#15#14#14#16#19#20
+  +#22#22#23#23#23#23#23#23#23#23#23#23#21#15#14#14#14#15#14#14#14#14#13#14#14
+  +#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#13#13#14#13#13#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#16#240#243#240#26#24#24
+  +#23#24#24#23#24#23#24#23#23#24#23#23#23#152#243#243#242#143'~~}}|||{zzzzyyx'
+  +'xwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444433332211///,,,++'
+  +'+))'#166#243#243#232#19#15#16#15#16#15#16#15#16#15#15#15#15#15#15#15#149#243
+  +#243#145#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#14#13#14#15#14#14#14#15#14#20#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#21#16#14#15#14#14#14#14#14#13
+  +#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#12#13#13#12
+  +#13#13#12#12#13#12#12#12#12#12#12#12#13#12#12#12#13#12#12#13#12#12#13#12#13
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#15#14#15#14#15#23#23#23#23#13#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#16#23#23#23#23
+  +#20#15#14#15#14#15#14#14#14#14#15#14#15#14#14#14#15#14#16#17#19#21#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#21#15#14#14#14#14#14#14#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#26#243#243#211#24
+  +#24#24#23#24#24#23#24#23#24#23#23#24#23#23#23#207#243#243#237#138'~~}}|||{{'
+  +'zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII66554444433332211//'
+  +',,,,+++'#166#243#243#240#22#16#16#16#15#16#15#16#15#15#15#15#15#15#15#15#24
+  +#243#243#232#15#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#13#14#13#13#14#13#13#14#13#14#14#14#14#14#15#14#16#22#23#23#23#23#23#23#23
+  +#21#16#13#12#0#0#0#0#12#13#15#20#23#23#23#23#23#23#23#23#17#14#14#15#14#14#14
+  +#14#12#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12#13#12
+  +#13#12#13#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12
+  ,#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#14#14#14#14#14#22#23#23#23#16#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#11#21#22#23
+  +#23#23#16#14#14#14#14#14#15#14#14#14#14#14#15#17#19#20#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#21#23#23#23#23#23#21#15#14#15#14#14#15#14#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#12#207#243#243
+  +#150#24#24#24#23#24#24#23#24#23#24#23#23#24#23#23#23#207#243#243#237#142'~~'
+  +'}}|||{zzzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII665554444433'
+  +'32211///,,,+'#185#243#243#240#22#16#16#16#15#16#16#15#16#15#16#15#15#15#15
+  +#15#17#240#243#243#21#14#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#14#14#14#15#14#14#14#17#23#23#23#23#23#23
+  +#23#17#12#0#0#0#0#0#0#0#0#0#0#0#0#11#16#21#23#23#23#23#23#23#20#14#14#15#14
+  +#14#14#14#12#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12
+  +#13#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#13#12#12#13#12#12#13#12#12
+  +#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#14#14#15#14#14#21#23#23#23#19#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#13#23#23
+  +#23#23#22#15#14#15#14#14#14#15#16#19#20#22#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#22#19#16#12#0#0#14#23#23#23#23#23#21#15#14#14#15#14#14#14#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#13#16#240#243#243
+  +#144#24#24#24#24#23#24#24#23#24#23#24#23#23#24#23#23#207#243#243#242#143'~~'
+  +'}}|||{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII665544444333'
+  +'32211//,,,'#185#243#243#240#22#16#16#16#16#16#16#15#16#16#15#16#15#16#15#15
+  +#15#208#243#243#145#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#13#14#14#15#14#14#15#17#22#23#23#23#23#23#17
+  +#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#15#22#23#23#23#23#23#20#14#14#15#14#14
+  +#14#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#12#13#12#13#12#13
+  +#13#12#12#13#12#12#13#12#13#12#13#12#12#13#12#13#12#12#13#12#12#12#13#12#12
+  +#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#13#14#14#15#14#20#23#23#23#19#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#17#23#23#23
+  +#23#20#14#15#17#20#21#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#19
+  +#16#14#11#0#0#0#0#0#0#0#14#23#23#23#23#23#21#15#14#14#14#15#14#14#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#14#13#13#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#12#13#25#243#243#232#25#24#24
+  +#23#24#24#23#24#23#24#23#23#24#23#23#23#23#207#243#243#242#143'~~}}|||{zzzz'
+  +'yyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444433332211///'
+  +#185#243#243#240#22#16#16#16#16#16#16#16#16#15#16#16#15#16#15#16#15#145#243
+  +#243#210#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#13#14
+  +#13#13#14#13#13#14#13#14#14#14#14#14#15#16#23#23#23#23#23#21#12#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#11#20#23#23#23#23#23#20#14#14#15#14#14#14#13#13#13
+  +#13#12#13#13#13#12#13#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#12#13
+  +#12#12#12#12#12#13#12#13#12#12#12#13#12#12#12#13#12#12#13#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#13#14#15#14#14#19#23#23#23#23#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#11#21#22#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#21#17#15#12#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#14#23#23#23#23#23#21#16#14#14#14#14#14#14#14#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#13#13#13#12#13#150#243#243#208#24#24#24#24#24#23#24#24#23
+  +#24#23#23#24#23#23#23#23#207#243#243#242#183'~~}}|||{{zzzyyxxwwvvuuuutttihh'
+  +'aaa````]]SSSRRRRQQQQPPONNNKKKJJJJII665544444433322118'#224#243#243#240#22#16
+  +#16#16#16#16#16#16#16#16#16#15#16#16#15#15#16#23#243#243#240#17#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  ,#14#14#15#14#15#14#16#23#23#23#23#23#19#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#17#23#23#23#23#23#17#15#14#14#15#14#13#13#13#13#13#12#13#13#13
+  +#13#12#13#13#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#15#16
+  +#22#23#23#23#11#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#12#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#22#19#16#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#23#23#23#23#23
+  +#22#16#14#15#14#15#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13
+  +#13#13#12#15#210#243#243#150#24#24#23#24#24#23#24#23#24#23#24#23#24#23#24#23
+  +#23#207#243#243#243#201'~~}}|||{zzzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQP'
+  +'PONNNKKKKJJJII665554444333322T'#235#243#243#232#22#17#16#16#16#16#16#16#16
+  +#16#16#16#16#15#16#16#15#20#240#243#243#23#14#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#14#14#14#14#15
+  +#22#23#23#23#23#17#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#17#23
+  +#23#23#23#23#16#14#14#14#14#14#13#13#13#13#13#12#13#13#13#13#12#13#12#13#13
+  +#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#12#13#12#13#12#12#13#12
+  +#13#12#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#15#14#14#14#16#23#23#23#23#12#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#16#23#23#23#23#23#23#23#23#23#23#23#20#16#14#11#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#23#23#23#23#23#22#17#14#14#14#14#15#14
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#19#240#243#243
+  +#146#24#24#24#24#24#23#24#24#23#24#23#23#24#23#23#23#23#147#243#243#243#223
+  +#138'~~}}|||{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII665544'
+  +'4443333q'#241#243#243#211#19#17#16#17#16#17#16#16#16#16#16#16#16#16#16#15#16
+  +#17#210#243#243#147#14#13#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#13#14#14#15#14#15#14#21#23#23#23#23#19#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#17#23#23#23#23#22#14#15#14
+  +#15#14#14#12#13#13#13#13#12#13#13#13#13#13#12#13#12#13#12#13#13#12#13#12#13
+  +#12#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#13#14#15#14#14#14#23#23#23#23#13#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#20#23#23
+  +#23#23#23#21#19#15#12#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#12#21#23#23#23#23#23#17#15#14#14#14#14#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#13#13#12#13#13#13#23#243#243#241#144#24#24#24#24#24#23#24#24#23
+  +#24#23#23#24#23#23#23#23#146#241#243#243#239#143'~~}}|||{zzzzyyxxwwvvvuuuttt'
+  +'ihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII66555444449'#186#243#243#243#151#19#17
+  +#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#151#243#243#207#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13
+  +#14#13#14#14#14#14#14#16#23#23#23#23#21#11#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#19#23#23#23#23#19#14#14#14#14#14#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#12#12#12#12#12#12#13
+  +#12#12#13#12#13#12#13#12#13#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#14#15#14
+  +#14#23#23#23#23#16#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#12#21#19#16#13#11#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#12#21#23#23#23#23#23
+  +#17#15#14#15#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#145#243#243#240#25#24#24#23#24#24#23#24#23#24#23#24#23#24#23#24#23#23
+  +#248#232#243#243#243#200'~~}}|||{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQP'
+  ,'PONNNKKKJJJJII66554444Y'#224#243#243#243#146#17#16#17#17#16#17#16#17#16#16
+  +#16#16#16#16#16#16#16#16#151#243#243#210#15#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#14#14#15#14#15#14
+  +#22#23#23#23#23#11#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#11#21#23#23#23#22#15#15#14#14#15#13#13#13#13#13#12#13#13#13#12#13#13#12#13
+  +#13#12#13#13#12#13#12#12#13#12#13#12#13#12#13#12#12#13#12#13#12#13#12#12#12
+  +#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#14#14#14#15#14#14#14#15#14#21#23#23#23#16#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#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#11#20#23#23#23#23#17#14#14#14#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#150#243#243#232#25#24#24
+  +#24#24#24#23#24#24#23#24#23#23#24#23#23#23#23#24#207#243#243#243#237#143'~}}'
+  +'|||{zzzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKKJJJII665554'#161#243
+  +#243#243#232#23#17#17#17#17#16#17#16#17#16#17#16#17#16#16#16#16#16#16#145#243
+  +#243#240#20#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#14#14#14#14#17#23#23#23#23#16#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#14#23#23#23#23#19#14#15#14
+  +#14#14#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#12#13#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#13#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14
+  +#14#15#14#14#15#14#15#17#23#23#23#23#19#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12
+  +#23#23#23#23#16#15#14#15#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13
+  +#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#13#12#207#243#243#232#25#24#24#24#24#24#23#24#24#23#24#23
+  +#23#24#23#23#23#23#23#146#241#243#243#243#200#137'}}||{{{zzzyyxxwwvvuuuuttti'
+  +'hhaaa````]]SSSRRRRQQQQPPONNNKKKJJJJII665e'#235#243#243#243#151#20#17#17#17
+  +#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#26#243#243#240#20#13#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#14#15#14#15#14#21#23#23#23#22#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#21#23#23#23#22#14#14#14#15#14#13#13#13#13#12
+  +#13#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#12#12#12#12#13#12#12#13#12#12#13#12#12#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#15#14#14#14#15#14#17#22
+  +#23#23#23#23#23#19#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#13#23#23#23#23#15#14#14
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#15#210#243#243#232#25#24#24#23#24#24#23#24#23#24#23#24#23#24#23#24#23#23
+  +#23#24#208#243#243#243#239#183'}}|||{zzzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQ'
+  +'QQQPPONNNKKKKJJJIIU'#197#243#243#243#240#26#17#17#17#17#17#17#17#17#17#17#16
+  +#17#16#17#16#17#16#16#16#248#243#243#243#25#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#14#14#14
+  +#14#15#23#23#23#23#16#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#14#23#23#23#23#17#14#15#14#14#13#13#13#13#13#12#13#13#12#13#12
+  +#13#13#12#13#13#12#13#13#12#12#12#12#12#12#12#12#13#12#12#12#13#12#13#12#13
+  +#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#13#14#15#14#15#14#14#14#15#14#17#22#23#23#23#23#23#23#23#16#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#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#16#22#23#23#23#14#14#15#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  ,#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#14#210#243#243
+  +#232#25#24#24#24#24#24#23#24#24#23#24#23#23#24#23#23#23#23#23#23#146#233#243
+  +#243#243#229#175'}||{{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKJJJ'
+  +'M'#170#243#243#243#243#150#20#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16
+  +#17#16#17#16#144#243#243#243#25#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#14#14#15#14#15#19#22
+  +#23#23#23#11#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#22#23#23#23#20#14#14#14#15#13#13#13#12#13#13#13#13#12#13#13#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#13#14#14#14#14#14#14#14#15#14#16#21#23#23#23#23#23#23#23#19#12#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#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#19#23#23#23#21#14#14#14#15#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#14#210#243#243#232#25
+  +#24#24#23#24#24#24#23#24#23#24#23#23#24#23#23#24#23#23#23#24#151#243#243#243
+  +#243#228#175'||{{{zzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPONNNKKKM'#172
+  +#241#243#243#243#208#23#19#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16
+  +#17#16#144#243#243#243#25#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#13#14#14#14#14#14#21#23#23
+  +#23#20#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#17#23#23#23#22#15#14#14#15#14#13#13#13#12#13#13#13#12#13#12#13#13#12#13#12
+  +#13#13#12#13#12#13#12#13#12#13#12#12#13#12#12#13#12#13#12#12#12#12#12#12#13
+  +#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14
+  +#15#14#15#14#15#14#15#20#23#23#23#23#23#23#23#21#14#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#19#23#23#23#20#14#15#14#14#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#13#13#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#14#210#243#243#232#25#24#24
+  +#24#24#23#24#24#23#24#23#24#23#24#23#23#23#23#23#23#23#25#207#243#243#243#243
+  +#229#182'|{{{zzzyyxxwwvvuuuutttihhaaa````]]SSSRRRRQQQQPPONNNX'#195#243#243
+  +#243#243#232#145#19#17#19#17#17#19#17#17#17#17#17#17#17#17#17#17#17#17#16#17
+  +#16#145#243#243#243#25#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#14#14#14#15#14#14#23#23#23
+  +#23#16#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#13#23#23#23#23#15#15#14#14#14#13#13#13#13#12#13#13#12#13#12#13#12#13#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#12#12#12#13#12#12#12#12#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#15#14
+  +#14#14#14#14#15#19#23#23#23#23#23#23#23#22#15#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#23#23#23#23#19#14#14#14#15#13#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#14#210#243#243#233#144#24
+  +#24#24#24#23#24#24#23#24#23#24#23#24#23#23#23#23#23#23#23#23#25#207#243#243
+  +#243#243#239#199#136'{zzzzyyxxwwvvvuuutttihhaaa````]]SSSRRRRQQQQPPO'#157#218
+  +#243#243#243#243#232#145#19#17#19#19#17#19#19#17#19#17#17#17#17#17#17#17#17
+  +#17#17#17#17#16#151#243#243#243#25#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#14#14#14
+  +#15#15#23#23#23#23#12#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#11#22#23#23#23#17#14#14#15#14#13#13#13#13#13#12#13#13#12#13
+  +#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#13#12#13#12#13#12#13#12#12
+  +#12#13#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14
+  +#14#15#14#14#14#15#14#15#19#22#23#23#23#23#23#23#23#15#11#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#0#0#0#0#0#0#0#0#0#0#0
+  ,#0#0#0#0#0#0#0#0#0#0#0#0#11#23#23#23#23#16#14#15#14#14#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#13#13#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#13#14#210
+  +#243#243#241#145#24#24#24#24#23#24#24#23#24#23#23#23#24#23#24#23#23#23#23#23
+  +#23#23#25#207#243#243#243#243#243#229#180#134'zzzyyxxwwvvuuuutttihhaaa````]]'
+  +'SSSRRRRQQQj'#196#241#243#243#243#243#211#145#19#19#19#19#19#19#17#19#17#19
+  +#17#19#17#17#17#17#17#17#17#17#17#17#19#7#243#243#240#24#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#14#15#14#14#16#23#23#23#23#11#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#22#23#23#23#19#14#14#14#14#13#13
+  +#13#12#13#13#12#13#13#12#13#13#12#13#13#12#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#13#14#15#14#14#14#14#15#14#14#17#22#22#23#23#23#23#23#23#17#11#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#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#12#23#23#23#23#15#14#14#14#15
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#13#13#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#149#243#243#243#247#24#24#24#24#23#24#24#23#24#23#24#23
+  +#23#23#23#23#23#23#23#23#23#23#23#24#150#233#243#243#243#243#243#228#181#135
+  +'zyyxxwwvvvuuutttihhaaa````]]SSSRR_s'#196#242#243#243#243#243#243#151#25#19
+  +#19#19#19#19#19#19#19#19#19#17#19#17#19#17#19#17#17#17#17#17#17#17#21#211#243
+  +#243#240#20#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#14#14#14#15#17#23#23#23#23#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#19
+  +#23#23#23#19#14#15#14#14#14#12#13#13#13#12#13#12#13#12#13#12#13#12#13#13#12
+  +#13#12#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#12#12#12#12#13#12#13#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#14#15#14#15#14#14#16#21#23
+  +#23#23#23#23#23#23#19#12#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#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
+  +#16#22#23#23#23#14#15#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13
+  +#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#147#243#243#243#207#25
+  +#24#24#24#24#23#24#24#23#24#23#24#23#23#24#23#23#23#23#23#23#23#23#23#22#146
+  +#7#243#243#243#243#243#243#239#205#181#139'xxwwvvuuuutttihhaaa````]]k'#132
+  +#190#227#243#243#243#243#243#243#211#146#21#20#19#19#19#19#19#19#19#19#19#19
+  +#19#17#19#19#17#19#17#17#17#17#17#17#17#24#240#243#243#210#20#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#13#14#13#13#14#13#14#15#14#14#19#23#23#23#23#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#19#23#23#23#21#14#14
+  +#15#14#14#13#12#13#13#13#12#13#13#12#13#13#12#13#12#13#12#12#13#12#13#12#13
+  +#12#13#12#12#12#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#13#14#14#15#14#14#14#14#14#15#21#23#23#23#23#23#23#23#21#13#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#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#16#23#23#23#21#14#14
+  +#15#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13
+  +#12#13#13#13#12#13#13#13#12#13#12#13#24#240#243#243#232#26#24#23#24#24#23#24
+  +#24#23#24#23#24#23#23#23#23#23#23#23#23#23#23#23#23#22#23#24#146#207#240#243
+  +#243#243#243#243#243#243#231#222#198#178#133#129'vuuutttihhal'#131#131#187
+  +#193#219#242#243#243#243#243#243#243#243#211#147#22#20#20#19#20#19#20#19#19
+  +#19#19#19#19#19#19#19#19#17#19#19#17#19#17#19#17#17#17#147#243#243#243#151#15
+  +#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#14#13#13#14#13#14#14#14#14#15#17#23#23#23#23#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#19
+  +#23#23#23#21#14#14#14#14#14#12#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13
+  +#12#12#12#12#12#12#12#13#12#13#12#13#12#13#12#12#13#12#12#12#12#13#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#15#14#15#14#20#23#23#23#23#23
+  +#23#23#22#15#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#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#19
+  +#23#23#23#20#15#14#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14
+  +#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#13#13#20#232#243#243#241
+  +#247#24#24#24#24#23#24#23#24#23#23#24#23#23#24#23#23#23#23#23#23#23#23#23#22
+  +#23#22#22#22#144#150#210#243#243#243#243#243#243#243#243#243#243#243#243#243
+  +#230#226#226#226#226#243#243#243#243#243#243#243#243#243#243#243#243#243#232
+  +#152#145#21#20#20#19#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#19#17#19
+  +#17#19#17#19#17#21#208#243#243#243#146#14#14#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#14#15#14#14#19#23#23#23#23#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#19#23#23#23#20#14#15#14#14#14#13#13#12
+  +#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#12#12#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#13
+  +#14#15#14#14#15#17#23#23#23#23#23#23#23#21#16#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#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#22#23#23#23#19#14#14#15#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#14#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13
+  +#12#13#12#13#14#14#16#152#243#243#243#208#25#24#24#24#23#24#24#23#24#23#24#23
+  +#23#23#23#23#23#23#23#23#23#23#23#22#23#22#23#22#22#22#22#144#149#7#210#240
+  +#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243
+  +#243#211#207#149#144#22#20#20#20#20#20#20#20#20#20#19#20#19#20#19#20#19#19#19
+  +#19#19#19#19#19#19#19#19#17#19#17#19#26#240#243#243#240#24#13#14#14#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#14#14#14#14#15#16#23#23#23#23#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#20#23#23#23#19
+  +#14#14#15#14#13#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#13#12#13#12#12#13#12#12#12#12
+  +#12#12#12#12#12#12#12#13#14#14#14#15#19#23#23#23#23#23#23#23#17#11#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#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#11#22#23#23#23#16#14
+  +#15#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#13#13#13#14#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#13#12#13#13#12#13#14#14#14#14#14#144#243#243#243#241#146
+  +#24#24#24#23#24#24#23#24#23#24#23#23#24#23#23#23#23#23#23#23#23#23#22#23#22
+  +#22#22#22#22#22#22#22#22#22#21#144#144#247#150#150#150#210#210#210#210#210
+  +#152#150#149#150#144#26#23#21#20#21#20#21#20#20#20#20#20#20#20#20#20#19#20#20
+  +#19#20#19#19#19#19#19#19#19#19#19#19#19#19#19#17#19#20#207#243#243#243#207#17
+  +#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#13#13#13#14#15#14#14#16#23
+  +#23#23#23#12#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#23#23#23#23#17#15#14#14#14#13#13#13#13#12#13#12#13#12#13#13#12#13
+  +#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#13#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#19#23#23#23#23
+  +#23#19#12#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#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
+  +#12#23#23#23#23#16#14#14#14#15#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13
+  ,#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#12#14#14#15#14#14#15
+  +#20#211#243#243#243#208#25#24#24#23#24#23#24#23#24#23#24#23#23#23#23#23#23#23
+  +#23#23#23#23#22#23#22#22#22#22#22#22#22#22#22#22#21#22#21#21#22#21#21#21#21
+  +#21#21#21#21#21#21#21#21#21#20#21#20#21#20#20#20#20#20#20#20#20#20#20#20#20
+  +#19#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#144#240#243#243#243#146
+  +#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#14#13#14#13#13#14#13#13#14#13#14#13#14#14#14#15
+  +#14#23#23#23#23#14#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#12#23#23#23#23#16#14#14#15#14#13#13#13#13#12#13#13#12#13#12#13
+  +#12#13#12#12#12#12#12#12#12#12#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12
+  +#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#15#17#23#23
+  +#23#22#12#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#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#15#23#23#23#23#14#15#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13
+  +#14#13#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#14#14#14#15#14
+  +#21#23#23#150#243#243#243#241#150#24#24#24#24#23#24#23#24#23#23#24#23#23#23
+  +#23#23#23#23#23#23#23#22#23#22#23#22#22#22#22#22#22#22#22#21#22#22#21#22#21
+  +#21#21#21#21#21#21#21#21#21#21#21#20#21#21#20#21#20#20#20#20#20#20#20#20#20
+  +#20#20#20#20#19#20#19#20#19#20#19#19#19#19#19#19#19#23#210#243#243#243#210#20
+  +#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#14#14#15#14
+  +#14#14#22#23#23#23#17#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#15#23#23#23#23#14#15#14#14#14#13#13#12#13#13#12#13#13#12#13
+  +#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#13
+  +#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#19#23
+  +#23#23#19#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#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#16#22#23#23#22#14#14#15#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#14#15#14#14
+  +#14#23#23#23#23#26#232#243#243#243#233#145#24#23#24#24#23#23#24#23#23#24#23
+  +#23#23#23#23#23#23#23#23#23#22#23#22#22#22#22#22#22#22#22#22#22#21#22#21#21
+  +#22#21#22#21#21#21#21#21#21#21#21#21#21#20#21#20#20#21#20#21#20#20#20#20#20
+  +#20#20#20#20#20#19#20#20#19#20#19#19#19#19#19#19#22#151#243#243#243#240#146
+  +#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#13#13#14
+  +#14#14#15#14#20#23#23#23#21#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#20#23#23#23#21#14#14#14#15#14#12#13#13#12#13#12#13#12
+  +#13#12#13#13#12#13#12#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#12#13#12
+  +#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#15
+  +#19#23#23#23#19#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#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#19#23#23#23#21#14#14#14#14#14#14#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#13#13#14#13#13#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#14#14
+  +#14#15#14#23#23#23#23#23#19#144#233#243#243#243#211#145#23#24#24#23#24#23#24
+  +#23#23#24#23#23#23#23#23#23#23#23#23#22#23#22#22#22#22#22#22#22#22#22#22#21
+  +#22#22#21#22#21#21#21#21#21#21#21#21#21#21#21#21#21#20#21#20#21#20#20#20#20
+  +#20#20#20#20#20#20#20#20#19#20#19#20#19#20#19#19#21#247#240#243#243#243#152
+  +#17#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#14
+  +#13#14#14#14#14#14#16#23#23#23#23#14#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#12#23#23#23#23#17#15#14#14#14#14#13#12#13#13#12
+  +#13#13#12#13#13#12#13#12#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14
+  +#15#14#14#21#23#23#23#19#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#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#21#23#23#23#19#14#15#14#14#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#14#13#13#13#13#14#15#14#14#14#15#14#14#14#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13
+  +#13#14#15#14#14#16#23#23#23#23#14#0#0#11#247#243#243#243#243#211#145#23#24#24
+  +#23#23#24#23#23#23#23#23#23#23#23#23#23#23#23#22#23#22#22#22#22#22#22#22#22
+  +#22#22#21#22#21#21#22#21#22#21#21#21#21#21#21#21#21#21#21#20#21#21#20#21#20
+  +#21#20#20#20#20#20#20#20#20#20#20#20#19#20#19#20#21#247#240#243#243#243#232
+  +#22#14#13#14#14#14#14#14#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#13#14#13
+  +#13#13#14#13#14#15#14#15#14#22#23#23#23#21#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#17#23#23#23#23#15#14#15#14#14#13#13#13#12
+  +#13#13#12#13#13#12#13#12#13#13#12#12#12#12#12#12#12#13#12#13#12#13#12#13#12
+  +#13#12#12#13#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#13#14#14#14#15#20#23#23#23#16#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#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#23#23#23#23#17#14#14#15#14#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#14#13#13#13#14#14#14#14#14#15#14#14#14#15#14#14#14#14#14#14
+  +#14#14#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#14#14#14#15#16#23#23#23#23#0#0#0#0#0#14#150#243#243#243#243#211#146
+  +#24#23#24#23#24#23#23#24#23#23#23#23#23#23#23#23#23#22#23#22#22#22#22#22#22
+  +#22#22#22#22#21#22#22#21#22#21#21#21#21#21#21#21#21#21#21#21#21#20#21#20#21
+  +#20#20#20#20#20#20#20#20#20#20#20#20#20#19#20#22#150#240#243#243#243#232#25
+  +#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13
+  +#14#13#14#13#13#14#14#14#14#14#19#23#23#23#23#14#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#11#23#23#23#23#21#14#14#14#15#14#13#13
+  +#13#12#13#12#13#12#13#12#13#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#14#15#14#14#14#22#23#23#23#16#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#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#12#23#23#23#23#16#15#14#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#13#13#13#14#13#14#14#15#14#14#14#15#14#14#14#14#15#14#14
+  +#15#14#14#14#14#14#15#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#12#13#15#14#14#14#19#23#23#23#23#0#0#0#0#0#0#0#17#7#243#243#243#243
+  +#233#150#24#24#23#24#23#23#23#23#23#23#23#23#23#23#23#23#22#23#22#22#22#22#22
+  +#22#22#22#22#22#21#22#21#21#22#21#22#21#21#21#21#21#21#21#21#21#21#21#20#21
+  +#20#21#20#21#20#20#20#20#20#20#20#20#20#25#152#243#243#243#243#232#25#14#14
+  +#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#15#14#15#14#15#23#23#23#23#21#11#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#19#23#23#23#23#16#14#15#14#14#14#12#13
+  +#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#12#13#12#13#12#13#12
+  +#13#12#12#12#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#14#14#15#14#14#23#23#23#23#15#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#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#13#23#23#23#23#15#14#14#15#14#14#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#14#13#14#13#14#14#14#14#15#14#14#14#15#14#15#14#14#15#14
+  +#14#14#15#14#15#14#14#14#15#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  ,#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#14#15#14#14#19#23#23#23#21#0#0#0#0#0#0#0#0#0#17#247#243#243
+  +#243#243#240#207#145#23#24#23#23#24#23#23#23#23#23#23#23#23#23#22#23#22#22#22
+  +#22#22#22#22#22#22#22#21#22#22#21#22#21#21#21#21#21#21#21#21#21#21#21#21#20
+  +#21#21#20#21#20#20#20#20#20#20#20#21#147#232#243#243#243#243#232#25#14#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#14#13#14#14#14#14#14#19#23#23#23#23#17#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#15#23#23#23#23#21#14#14#14#14#15#13#13
+  +#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12
+  +#12#12#13#12#12#13#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#14#14#14#15#15#23#23#23#23#12#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#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#16#22#23#23#22#14#14#15#14#14#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#14#13#13#14#14#15#14#14#15#17#17#16#14#14#14#15#14
+  +#14#15#14#14#14#14#14#15#14#14#15#14#14#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#14#14#14#15#14#20#23#23#23#19#0#0#0#0#0#0#0#0#0#0#0#14#145
+  +#233#243#243#243#243#233#152#248#23#23#23#23#23#23#23#23#23#23#23#23#22#23#22
+  +#22#22#22#22#22#22#22#22#22#21#22#21#21#22#21#22#21#21#21#21#21#21#21#21#21
+  +#21#20#21#20#21#20#21#20#20#22#145#207#243#243#243#243#243#207#25#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#13#13#13#14#15#14#15#14#15#22#23#23#23#23#14#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#12#23#23#23#23#23#15#15#14#15#14#14
+  +#12#13#13#12#13#13#12#13#12#13#13#12#13#12#12#12#12#12#12#12#13#12#13#12#13
+  +#12#13#12#13#12#12#12#12#12#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#15#14#14#14#16#23#23#23#23#12#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#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#19#23#23#23#21#14#14#14#14#14#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#13#13#14#14#15#14#14#14#15#19#23#23#23#23#21#20
+  +#19#17#16#14#15#14#15#14#14#14#15#14#14#15#14#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#12#13#13#14#15#14#14#21#23#23#23#19#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#11#23#208#243#243#243#243#243#233#152#146#23#23#23#23#23#23#23#23#23#23#22
+  +#23#22#22#22#22#22#22#22#22#22#22#21#22#22#21#22#21#21#21#21#21#21#21#21#21
+  +#21#21#21#21#20#21#20#23#147#207#243#243#243#243#243#240#147#17#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#14#13#14#13#14#14#14#14#14#16#23#23#23#23#23#14#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#12#21#23#23#23#23#19#14#14#14#14
+  +#14#13#13#13#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#12#13#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#13#14#15#14#14#17#23#23#23#23#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#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#20#23#23#23#19#15#14#15#14#14
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#14#13#14#14#14#14#15#14#19#23#23#23#23#23
+  +#23#23#23#23#23#23#23#21#21#20#19#19#19#15#14#14#14#14#14#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#13#12#13#14#14#14#14#15#20#23#23#23#16#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#14#145#211#243#243#243#243#243#243#211#151#144#23#23#23#23#23#23
+  +#23#22#23#22#22#22#22#22#22#22#22#22#22#21#22#21#21#22#21#22#21#21#21#21#21
+  +#21#21#21#21#24#146#152#232#243#243#243#243#243#243#152#23#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#14#13#13#14#14#15#14#15#14#19#23#23#23#23#23#14#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#21#23#23#23#23#21#14#15#14
+  +#15#14#14#13#12#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13
+  ,#12#13#12#13#12#13#12#12#12#13#12#12#12#12#12#12#13#12#13#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#13#14#14#15#14#19#23#23#23#23#14#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#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#23#23#23#23#19#14#14#14
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#15#14#15#14#14#17#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#20#14#15#14#14#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#12#14#14#15#14#14#23#23#23#23#16#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#15#146#211#243#243#243#243#243#243#243#232#7#149#145
+  +#24#22#23#22#23#22#22#22#22#22#22#22#22#22#22#21#22#22#21#22#21#21#21#21#21
+  +#25#145#149#210#240#243#243#243#243#243#243#240#152#25#15#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#14#14#14#14#14#14#21#23#23#23
+  +#23#23#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#23#23#23#23#23#22#14
+  +#14#14#14#14#14#13#13#13#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13
+  +#12#12#12#12#12#12#12#12#12#13#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#14#14#14#14#15#20#23#23#23#23#23#17#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#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#12#22#23#23#23
+  +#16#14#15#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#14#14#14#14#14#17#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#15#14#15#14#14
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#13#13#12#13#13#13#12#13#12#14#14#14#15#14#23#23#23#23#14#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#14#24#150#240#243#243#243#243#243
+  +#243#243#243#243#210#210#150#150#149#144#144#144#144#144#144#144#144#144#144
+  +#144#145#150#150#7#210#233#243#243#243#243#243#243#243#243#243#210#147#22#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#14#13#14#14#13#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#14
+  +#14#15#14#15#14#15#21#23#23#23#23#23#20#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#11#19#23#23#23#23#23#22#15#15#14#15#14#15#13#13#13#12#13#13#12#13#13#12#13
+  +#12#13#12#13#12#12#12#12#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12
+  +#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#15#14#14
+  +#14#16#21#23#23#23#23#23#19#11#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#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#12#23#23#23#23#15#14#14#15#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#14#14#15#14#15#14#16#22#23#23#23#23#17#12#15#16#19#22#23#23#23#23#23
+  +#23#23#23#23#23#23#20#14#14#15#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#12#14#15#14#14#15#23#23#23#23#12#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#15#23#147#208#243#243#243#243#243#243#243#243#243#243#243#243#243
+  +#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#243#240
+  +#207#146#22#16#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13
+  +#14#13#14#13#13#13#13#13#14#14#14#14#14#14#15#21#23#23#23#23#23#23#17#12#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#11#17#23#23#23#23#23#23#22#15#14#14#15#14#14#14#12
+  +#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#12#12#13#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#14#14#15#14#14#15#14#21#23#23#23#23#23#20#12#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#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#16#22#23#23#23#14#15#14#14
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#14#14#14#14#14#14#16#22#23#23#23#23#20#0#0
+  +#0#0#0#0#0#12#12#16#15#19#19#21#23#23#23#23#15#14#14#14#14#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  ,#13#12#13#13#13#12#13#13#14#14#14#15#16#22#23#23#23#12#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#15#21#26#147#7#211#243#243#243#243
+  +#243#243#243#243#243#243#243#243#243#243#243#243#243#243#7#207#151#149#144#24
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#13#14#13#13
+  +#13#13#13#13#13#14#13#13#13#13#14#15#14#15#14#14#15#19#23#23#23#23#23#23#23
+  +#20#15#11#0#0#0#0#0#0#0#0#11#14#19#23#23#23#23#23#23#23#21#15#14#15#14#14#14
+  +#14#13#13#13#12#13#13#12#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#12#12#12#12#13#12#12#12#12#12#13#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#13#14#14#15#14#14#14#14#20#23#23#23#23#23#22#11#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#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#17#23#23#23#21#14
+  +#14#14#15#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#14#15#14#15#14#15#22#23#23#23#23
+  +#20#11#0#0#0#0#0#0#0#0#0#0#0#0#0#12#23#23#23#23#20#14#15#14#14#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#13#12#13#14#15#14#14#16#23#23#23#23#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#15#19#17#17#19#17
+  +#17#19#17#17#19#17#17#11#0#0#0#12#23#23#23#23#16#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#14#13#13#14#13#14#13#14#13#13#13#14#13#13
+  +#13#14#14#14#14#15#14#14#17#22#23#23#23#23#23#23#23#23#23#19#20#16#15#20#19
+  +#22#23#23#23#23#23#23#23#23#23#19#14#14#14#14#14#15#14#13#12#13#13#13#13#12
+  +#13#13#12#13#13#12#13#12#13#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#13#12#12#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#13#14#14#14#15#14#14#14#17#23#23#23#23#23#23#14#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#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#19#23#23#23#20#15#14#14#14#14#14#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#14#15#14#14#14#15#21#23#23#23#23#21#11#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#19#23#23#23#23#15#14#15#14#14#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12
+  +#13#14#14#14#15#19#22#23#23#23#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#11#22#23
+  +#23#23#17#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#13#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13
+  +#14#13#14#13#14#13#13#14#13#13#13#13#13#13#14#15#14#14#14#15#14#15#20#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#21#15#14#15#14
+  +#15#14#14#14#13#13#13#13#12#13#12#13#12#13#13#12#13#13#12#13#12#13#12#12#12
+  +#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#13#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#15#14#15#14#16
+  +#22#23#23#23#23#23#16#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#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
+  +#23#23#23#23#19#14#15#14#14#15#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#13#14#14#14#14#14#15#14#21
+  +#23#23#23#23#22#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#23#23#23#23#20#14#14#15
+  +#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13
+  +#12#13#13#13#13#12#13#13#13#12#13#13#13#13#15#14#14#14#19#23#23#23#20#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#22#23#23#23#19#15#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#14#13#14
+  +#13#13#14#14#15#14#14#14#14#14#16#20#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#21#16#14#15#14#14#14#14#15#14#12#13#13#12#13#13#13#13#12#13
+  +#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12
+  +#13#12#12#12#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#14#14#14#14#14#14#15#15#22#22#23#23#23#23#19#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#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#11#22#23#23#23#16#14#14#15#14#14#14#14
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#13#13#14#13
+  +#13#14#13#13#14#14#14#15#14#14#14#20#23#23#23#23#22#11#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#19#23#23#23#23#15#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13#12#13
+  +#13#14#15#14#14#20#23#23#23#19#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#19#23
+  +#23#23#21#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14
+  +#13#14#13#14#13#14#13#13#14#13#13#13#13#13#13#13#14#14#14#15#14#15#14#14#14
+  +#15#17#21#23#23#23#23#23#23#23#23#23#23#23#23#22#19#15#14#14#14#14#14#15#14
+  +#14#14#13#13#12#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#15#14#15#14#14
+  +#14#15#21#23#23#23#23#23#20#11#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#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#12#23#23#23#23#22#17#14#14#14#15#14#14#15#14#14#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14#14#14#14#14#15#14#20#23
+  +#23#23#23#23#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#23#23#23#23#20#14#15
+  +#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12
+  +#13#13#13#13#12#13#13#13#13#12#13#13#12#14#14#14#15#14#21#23#23#23#19#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#16#22#23#23#23#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#13#13#13#13#13#13#13
+  +#14#13#13#13#14#14#14#14#14#14#15#14#14#15#14#15#16#17#20#21#20#21#20#20#19
+  +#16#15#14#14#15#14#15#14#15#14#14#14#14#12#13#13#13#13#12#13#13#12#13#13#12
+  +#13#13#12#13#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#13#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#13#14#14#14#15#14#14#14#20#23#23#23#23#23#22#11#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#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#23#23#23#23#23#23#21#15#14#14#15#14
+  +#14#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13
+  +#13#14#13#14#14#15#14#14#14#19#22#23#23#23#23#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#19#23#23#23#23#15#14#15#14#14#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#14
+  +#14#14#14#14#21#23#23#23#16#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#12#23#23
+  +#23#23#16#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#14#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#13#13#13#13#13#13#14#13#14#13#13#13#13#13#13#13#14#14#15#14#14#14#15
+  +#14#14#14#14#15#14#14#14#15#14#14#14#15#14#15#14#14#14#14#14#14#14#14#13#13
+  +#13#13#12#13#13#13#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#15
+  +#14#14#14#17#23#23#23#23#23#23#14#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#11#19#23#23#23#23#23#23#23#19#15#14#14#15#14#15#14#14#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#15#14#14#15#14#17#23#23#23
+  +#23#23#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#23#23#23#23#20#14#14
+  +#15#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#13#13#13#13#12#13#13#13#12#13#14#14#15#14#14#23#23#23#23#16#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#11#22#23#23#23#17#14#14#15#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  ,#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#13#14#13#13#13#13#13
+  +#14#13#13#13#13#13#13#13#14#14#15#14#14#14#15#14#14#14#14#15#14#14#15#14#14
+  +#14#14#14#14#15#14#15#14#14#13#13#13#12#13#13#13#13#12#13#13#13#12#13#12#13
+  +#13#12#13#12#13#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12
+  +#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#14#14#14#15#14#15#14#17#22#23#23#23#23#23#16#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#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#13#21#23#23#23#23#23#23#22#17#15
+  +#14#14#14#14#15#14#14#14#14#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13
+  +#13#14#14#14#14#15#14#16#23#23#23#23#23#17#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#19#23#23#23#23#15#14#14#14#15#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#14#14
+  +#14#15#14#23#23#23#23#13#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#20#23#23
+  +#23#20#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#13#14#14#14#14#13#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14#15
+  +#14#14#15#14#14#14#15#14#14#15#14#15#14#15#14#14#14#14#13#13#13#13#13#13#12
+  +#13#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14
+  +#14#14#14#14#15#22#23#23#23#23#23#19#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#11#16#23#23#23#23#23#23#23#21#17#14#15#14#14#14#15#14#14#14#14#14#13
+  +#14#13#14#13#14#13#13#13#14#13#13#14#14#14#15#14#14#14#16#22#23#23#23#23#19#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#12#23#23#23#23#20#14#15#14
+  +#14#14#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13
+  +#13#13#13#12#13#13#13#13#12#13#14#15#14#14#15#23#23#23#23#12#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#16#23#23#23#22#14#14#15#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#14#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#14#14#14#14#15#14#14#14#14#15#14#14#14#14#14
+  +#14#13#13#13#13#12#13#13#12#13#13#13#12#13#13#13#13#12#13#12#13#12#13#12#13
+  +#13#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#13#15#14#15#14#15#14#15#21#23#23#23#23#23#20#11#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#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#19#23#23#23#23#23#23#23#21#16
+  +#14#15#14#14#14#15#14#14#15#14#14#13#14#13#13#14#13#14#13#13#14#14#14#14#14
+  +#15#14#16#22#23#23#23#23#20#11#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#19#23#23#23#23#15#14#14#15#14#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#12#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#14#14#14#15#16
+  +#23#23#23#23#11#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#13#23#23#23#23#16#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14
+  +#13#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#14#13
+  +#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#14#14#14#14#13#14#13#14#13#13#12#13#13#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#12#13#13#12#13#13#12#13#12#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#14
+  +#14#14#15#19#23#23#23#23#23#22#11#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#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#13#21#23#23#23#23#23#23#23#21#16#14#15#14#14#14#15#14#14#14#14#14#14#13
+  +#13#14#13#13#14#13#14#14#15#14#14#15#21#23#23#23#23#20#11#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#12#23#23#23#23#21#14#14#14#14#14#13#13#13
+  ,#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13
+  +#13#13#12#13#15#14#14#14#17#23#23#23#23#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#11#22#23#23#23#17#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13
+  +#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#14#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#13#12#12#12#12#13#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#14#15#14#15#14#14#14#19#23#23#23#23#23#22#14#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#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#11#15#22#23#23#23#23#23#23#23#20#16#14#15
+  +#14#14#14#15#14#14#14#14#14#14#13#14#13#14#14#15#14#14#14#15#21#23#23#23#23
+  +#22#11#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#19#23#23#23
+  +#23#16#15#14#15#14#14#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#13#12#13#13#13#12#13#14#15#14#14#19#23#23#23#23#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#20#23#23#23#21#14#14#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#14#14
+  +#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#12#13
+  +#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12
+  +#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#14#15#14#14#17#22
+  +#23#23#23#23#22#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#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#11#16#23
+  +#23#23#23#23#23#23#23#21#16#14#15#14#14#15#14#15#14#14#14#14#14#14#14#14#14
+  +#14#15#14#21#23#23#23#23#21#12#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#12#23#23#23#23#21#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13
+  +#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#14#14#15#14
+  +#19#23#23#23#19#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#16#22#23#23#23
+  +#15#14#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14
+  +#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#14#13#14#13#14
+  +#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13
+  +#13#13#12#13#12#13#13#12#13#12#13#12#12#13#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#13#12#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#14#14#14#14#15#14#14#15#23#23#23#23#19#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#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#11#17#23#23#23#23#23#23#23#23#22#16#15#14#14#14#14#15#14
+  +#15#14#14#14#15#14#15#14#14#20#23#23#23#23#23#12#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#19#23#23#23#23#16#14#15#14#14#14#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#14#14#14#14#14#21#23#23#23#19#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#12#23#23#23#23#17#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#14#14#14#14#14#13#14#14#13#14#14#13#14#14#13#14#13#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#14#13#13#13#13#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#13#13#13#12#13#13#12#13#13#12#13#12#13#13#12#13#13#12#12#12#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#12#12#13#12#12#13#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#13#15#14#14#14#15#15#23#23#23#23#14#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#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#11#17#23#23#23#23#23#23#23#23#22
+  +#19#15#15#14#14#14#14#14#15#14#14#14#14#14#19#23#23#23#23#23#14#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#11#23#23#23#23#21#14#14
+  +#15#14#14#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#13#12#13#13#12#14#14#15#14#14#21#23#23#23#17#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#22#23#23#23#20#14#14#14#15#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#13#14#14#14#13#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13
+  +#13#13#12#13#13#13#12#13#13#13#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#13#12#12#13#12#13
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#19#23#23#23#23#11#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#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#11#17#23#23#23
+  +#23#23#23#23#23#23#20#16#15#14#15#14#14#14#15#14#15#17#23#23#23#23#23#14#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#17#23#23
+  +#23#23#16#14#14#14#15#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#13#13#13#13#14#14#14#15#14#22#22#23#23#16#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#17#23#23#23#22#15#14#14#14#14#15#14#15#14
+  +#15#14#15#14#15#14#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14
+  +#13#14#14#14#13#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#13
+  +#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#15#14#22#23#23
+  +#23#19#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#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
+  +#11#17#22#23#23#23#23#23#23#23#23#22#19#15#14#15#14#14#14#17#23#23#23#23#23
+  +#17#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
+  +#11#23#23#23#23#21#14#15#14#14#14#13#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#13#12#13#13#13#13#14#14#14#14#15#14#14#14#23#23#23#23#16#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#13#23#23#23#23#17#14#15#14#14#14
+  +#15#14#14#14#14#14#14#14#15#14#14#14#14#14#15#14#15#14#15#14#15#14#15#14#14
+  +#14#14#13#14#14#13#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#14#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12
+  +#13#12#13#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#13#12#12#13
+  +#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#16
+  +#22#23#23#23#14#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#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#11#15#21#23#23#23#23#23#23#23#23#23#21#17#15#14#16#22#23#23#23
+  +#23#17#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#17#23#23#23#23#16#14#14#15#14#14#13#13#13#13#13#13#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#14#13#14#14#14#14#14#15#14#14#14#15#14#23#23#23#23#12#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#22#23#23#23#21#15#14#14#15
+  +#14#14#14#15#14#15#14#15#14#14#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#13#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  ,#13#13#13#13#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#13#12
+  +#13#13#12#13#12#12#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12
+  +#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#14#15
+  +#19#23#23#23#23#11#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#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#14#20#23#23#23#23#23#23#23#23#23#23#21#22#23#23#23#23
+  +#19#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#11#23#23#23#23#21#14#14#14#14#14#13#13#13#13#13#13#13#12#13#13#13#12#13
+  +#13#13#14#14#14#14#14#14#15#14#15#14#14#14#14#15#14#14#16#23#23#23#23#12#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#17#23#23#23#23#23#23#23#23#21
+  +#21#21#20#19#19#19#16#16#16#16#14#14#14#14#15#14#15#14#15#14#15#14#15#14#14
+  +#14#14#14#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13#14#13#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#13#13#12#13#13#12#13#13#12
+  +#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#13#12#12#13
+  +#12#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#15#14#14#22
+  +#23#23#23#19#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#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#12#17#21#23#23#23#23#23#23#23#23#23#23#23#23#20#11#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
+  +#17#23#23#23#23#16#15#14#15#14#14#13#13#13#13#13#13#13#13#14#14#14#14#14#14
+  +#14#14#15#14#15#14#14#14#14#15#14#15#14#14#14#17#19#23#23#23#23#11#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#13#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#22#21#21#20#19#19#19#16#14#14#14#15#14#14
+  +#13#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#13#12#12#13#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#16#23#23#23
+  +#23#14#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#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#11#14#20#23#23#23#23#23#23#23#23#23#20#11#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#11#23#23
+  +#23#23#21#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#15#14#15#14#14#14
+  +#14#14#14#15#14#14#14#14#15#17#20#23#23#23#23#23#23#23#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#22#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#22#15#14#14#14#14#14#14#14#13#14
+  +#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#13#12#13#13#13#12#13#13#13#13#13#12#13#13#12#13#12#13#13#12#13#13#12#13#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#13#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#14#15#20#23#23#23#22#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#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#11#16#21#22#23#23#23#23#22#12#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#17#23#23#23#23#16#14#15
+  +#14#14#14#14#14#14#15#14#15#14#15#14#14#14#14#14#15#14#15#14#15#14#14#15#17
+  +#20#22#23#23#23#23#23#23#23#23#23#22#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#16#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  ,#23#23#23#23#23#23#23#23#23#19#14#15#14#14#14#14#13#14#14#13#14#14#13#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#13#14#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13
+  +#13#12#13#13#13#12#13#12#13#13#12#13#12#13#12#12#12#12#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#12#13#12#12#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#14#15#14#14#15#22#23#23#23#17#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#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
+  +#12#16#21#23#22#11#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#11#23#23#23#23#21#14#14#15#14#15#14#15#14#14
+  +#14#14#14#14#15#14#15#14#14#14#14#14#16#19#20#22#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#17#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#11
+  +#12#12#12#16#15#16#16#19#19#20#21#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#22#15#14#15#14#14#14#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12
+  +#13#12#13#13#12#13#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#12#13#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14
+  +#14#15#14#17#23#23#23#23#12#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#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#12#12#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#17#23#23#23#23#16#14#14#14#14#14#14#14#15#14#15#14#14#14#14#15#16#19
+  +#20#21#23#23#23#23#23#23#23#23#23#23#23#23#23#23#22#19#14#11#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#0#0#0#0#0#0#0#0#12
+  +#12#12#13#16#15#16#17#20#20#23#23#23#23#20#14#14#15#14#14#14#14#14#13#14#14
+  +#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12
+  +#13#13#13#13#12#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#14#15#14#14#14#22#23#23#23#21#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#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#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#11#23#23#23#23#21#15#14#15#14#15#14#14#16
+  +#16#17#19#20#21#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#20#16#13#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#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#20#23#23#23#23#16#14#14#15#14#14#14
+  +#13#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#13#13#13#14#13#14#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#13#13#13#12#13#13#13#13#13#12#13#12#13#13#12#13#12#13#13#12#12#13#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#13#12#12#12#12#12#12#13#12#13#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#15#16#23#23#23#23#15#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#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#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#17#23#23#23#23#20#19#20#21
+  +#21#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#21#17#14
+  +#11#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
+  +#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#12#23#23#23#23#21#14#14#14
+  +#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#15#14#15#14#14#21#23#23#23#21#11#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#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#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#11#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#20#16#14#11#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#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#19#23#23#23#23#17#15
+  +#14#15#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#13#13#13#13#12#13#13#13#12#13#13#13#13#13#12#13#12#13#13#12#13#13#12#13#13
+  +#12#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#13#12#13#12#12#13#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#14#14#16#23#23#23#23#17#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#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#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#17#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#19#17#15#12#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#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#11#23#23#23#23#22#15#14
+  +#14#14#15#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#13#13#13#14#13#14#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#13#12#13#13#12#13#13#12#12#13
+  +#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#13#12#12#12#12
+  +#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#14#15#14#15#14#20#23#23#23#23#11#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#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#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#11#21#23#23#23#23
+  +#23#23#23#23#23#23#23#23#21#19#17#16#12#11#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#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#16#22#23#23#23#20#14#15#14#14
+  +#14#14#14#13#14#13#14#13#14#13#14#13#14#13#13#13#14#13#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12
+  +#13#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#12#13#13#12#13#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#13#14#14#14#14#15#23#23#23#23#19#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#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#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#16#22#23#21#19#20#17#16#15
+  +#13#12#11#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#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#21#23#23#23#23#16#14#14#15#14#14#14#13#14#13#14
+  +#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13
+  +#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12
+  +#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#12#12#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#12#14#14#15#14#14#14#14#13#13#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#14#15#14#15#14#20#23#23#23#23#12#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15
+  +#23#23#23#23#17#15#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#13#13#12#13#13#12#13#12#13#12
+  +#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12#13#12#12#12#13#12#13
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#15#14#14#14#15#14#14#14#15
+  +#14#14#14#14#14#14#13#13#13#12#12#12#12#12#12#12#13#14#14#14#14#15#23#23#23
+  +#23#19#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#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#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#17
+  +#11#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
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#21#23#23#23#22#15#14#14#15#14#14
+  +#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12
+  +#13#13#13#12#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#12#13#12#12#12#12#12#12#13#12#13#12#12#12#12#12#12
+  +#12#12#12#12#14#14#14#14#15#14#14#14#15#14#14#14#15#14#14#14#14#15#14#14#14
+  +#14#14#14#14#13#13#15#14#15#14#14#20#23#23#23#23#12#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#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#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#11#243#243#7#15#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#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#14#23#23#23#23#19#14#14#15#14#14#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#13#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#13#13#13#14#13#13
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#12
+  +#13#12#13#13#12#13#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#13#12#12
+  +#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#14#15#14#14
+  +#14#15#14#14#14#15#14#14#15#14#15#14#14#14#15#14#15#14#14#14#14#14#14#14#14
+  +#15#15#23#23#23#23#19#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#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#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#14#147#211#243#243#20#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#19#23#23
+  ,#23#22#15#14#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#14#13#14#13#13#13#13#13#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12
+  +#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#13#12
+  +#12#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#14#15#16#15#15#14#14#14#15
+  +#14#14#14#14#14#15#14#14#14#14#14#15#14#15#14#15#14#14#14#21#23#23#23#23#12#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#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#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#0#0#150
+  +#243#233#11#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#23#23#23#23#19#14#15#14#15#14#14#13
+  +#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13
+  +#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13
+  +#12#13#13#13#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#12#12#13#12#12#12#13#12#12#12#12#12#12#12#12
+  +#12#13#14#14#14#14#15#14#21#23#23#23#22#21#20#19#17#16#16#14#14#14#15#14#15
+  +#14#14#14#15#14#14#14#15#14#16#23#23#23#23#19#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#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#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#0#0#0#14#243#243#23#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#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#19#23#23#23#23#15#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13#12#13
+  +#12#13#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12
+  +#12#13#12#12#12#13#12#12#13#12#12#12#12#12#12#12#12#14#14#15#14#14#14#20#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#21#20#19#17#16#16#14#14#14#15#14#14#14
+  +#22#23#23#23#23#11#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#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#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#0#0#0#0#211#243#145#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#23#23#23#23#20
+  +#14#15#14#15#14#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14
+  +#13#13#14#13#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13
+  +#13#13#13#12#13#13#13#12#13#13#13#13#13#12#13#13#12#13#12#13#12#13#13#12#13
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#14#14#15#14#14#15#17#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#21#20#19#19#19#23#23#23#23#17#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#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#26#26#17#0#0#0#0#0#0#17
+  +#248#26#0#0#0#0#0#14#26#150#7#150#26#20#11#0#0#0#23#26#23#0#0#0#0#0#17#248#26
+  +#0#0#0#0#0#14#26#26#13#0#0#0#0#0#0#11#23#145#7#152#145#23#11#0#0#0#0#0#0#0#17
+  +#248#17#0#14#26#150#7#26#14#0#0#0#0#0#0#7#243#7#0#0#0#0#0#0#17#248#7#152#147
+  +#26#17#0#0#0#0#0#0#0#23#26#7#152#145#23#11#0#0#0#0#11#25#152#152#26#0#0#15#25
+  +#150#7#147#25#11#0#0#0#0#0#0#0#0#0#0#23#26#26#26#26#26#26#26#26#26#23#0#0#0#0
+  +#0#17#248#25#0#0#0#0#0#0#0#0#0#11#25#147#7#152#26#144#25#23#23#23#23#146#146
+  ,#14#14#14#14#13#14#13#14#13#20#145#145#14#13#14#13#13#14#25#145#23#14#13#14
+  +#13#13#14#13#13#17#248#150#207#147#23#13#13#13#14#13#13#13#13#13#19#145#151
+  +#207#145#19#13#13#13#13#13#13#13#13#13#25#149#207#147#21#13#13#145#145#13#12
+  +#13#13#13#12#13#13#13#13#12#13#13#13#12#13#13#13#12#13#12#13#13#12#13#13#12
+  +#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#13#12#12
+  +#12#13#12#12#12#12#12#12#12#12#14#14#14#14#14#15#16#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#23#22#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#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#243#243#26#0#0#0
+  +#0#0#0#7#243#150#0#0#0#11#146#243#243#243#243#243#243#243#146#0#0#0#7#243#152
+  +#0#0#0#0#0#26#243#243#0#0#0#0#0#17#243#243#17#0#0#0#0#0#23#233#243#243#243
+  +#243#243#243#233#26#0#0#0#0#0#0#26#243#26#23#243#243#243#243#243#243#145#0#0
+  +#0#0#0#7#243#152#0#0#0#0#14#152#243#243#243#243#243#243#243#20#0#0#0#0#20#240
+  +#243#243#243#243#243#243#26#0#0#0#11#240#243#243#243#243#0#15#243#243#243#243
+  +#243#243#233#23#0#0#0#0#0#0#0#0#0#7#243#243#243#243#243#243#243#243#243#152#0
+  +#0#0#0#0#211#243#243#15#0#0#0#0#0#0#0#25#233#243#243#243#243#243#243#232#23
+  +#23#20#146#243#243#14#14#14#13#14#13#14#13#14#150#243#243#19#14#13#14#13#13
+  +#240#243#232#13#13#13#14#13#13#14#26#240#243#243#243#243#243#232#20#13#13#13
+  +#14#13#15#147#243#243#243#243#243#243#207#15#13#13#13#13#13#19#210#243#243
+  +#243#243#243#151#23#243#243#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13
+  +#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#12#12#12#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#14#14#15#14#15
+  +#14#15#23#23#23#23#23#17#14#16#17#19#21#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#23#16#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#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#243#243#26#0#0#0#0#0#11#243#243#25#0#0#0#7#243#243#26#14#0
+  +#0#17#25#17#0#0#0#7#243#152#0#0#0#0#0#26#243#243#0#0#0#0#0#17#243#243#17#0#0
+  +#0#0#147#243#243#7#20#0#0#15#146#243#243#208#11#0#0#0#0#26#243#233#243#150#16
+  +#0#14#26#243#243#145#0#0#0#0#7#243#152#0#0#0#11#240#243#233#23#11#0#11#19#145
+  +#11#0#0#0#20#243#243#211#23#11#0#14#22#15#0#0#0#25#243#243#22#0#14#0#0#7#23
+  +#13#0#14#147#243#233#14#0#0#0#0#0#0#0#0#7#243#208#17#19#17#17#19#17#17#16#0#0
+  +#0#0#17#243#243#243#147#0#0#0#0#0#0#26#243#243#150#16#0#0#23#147#147#22#23#16
+  +#146#243#243#14#14#14#14#13#14#13#14#13#232#240#243#147#14#13#13#14#23#243
+  +#243#243#17#13#14#13#14#13#145#243#243#147#16#13#21#210#243#240#19#14#13#13
+  +#13#207#243#240#26#15#13#25#233#243#210#15#13#13#13#15#232#243#240#25#13#14
+  +#25#240#232#243#243#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13
+  +#13#12#13#12#13#12#13#13#12#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#12#12#12#12#12#13#12#13#12#12#12#12#12#12#14#14#14#14#15#14#15#23#23
+  +#23#23#23#19#0#0#0#0#0#0#0#11#12#14#16#17#19#21#23#23#23#23#23#23#23#23#23#23
+  +#23#23#21#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#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
+  +#243#243#26#0#0#0#0#0#17#243#243#15#0#0#23#243#243#17#0#0#0#0#0#0#0#0#0#0#7
+  +#243#152#0#0#0#0#0#26#243#243#0#0#0#0#0#17#243#243#17#0#0#0#26#243#243#26#0#0
+  +#0#0#0#0#17#240#243#150#0#0#0#0#26#243#243#150#0#0#0#0#0#25#243#243#13#0#0#0
+  +#7#243#152#0#0#0#147#243#233#11#0#0#0#0#0#0#0#0#0#11#240#243#208#11#0#0#0#0#0
+  +#0#0#0#0#150#243#208#0#0#0#0#0#0#0#0#0#0#11#243#243#25#0#0#0#0#0#0#0#0#7#243
+  +#7#0#0#0#0#0#0#0#0#0#0#0#0#147#243#147#243#233#11#0#0#0#0#14#243#243#26#0#0#0
+  +#11#23#23#23#23#21#14#146#243#243#14#14#13#14#13#14#13#14#19#243#207#210#232
+  +#14#13#14#13#150#243#147#243#26#14#13#13#13#17#243#243#145#13#14#13#13#15#210
+  +#243#232#13#13#13#25#243#243#21#13#13#13#13#19#240#243#150#13#13#13#145#243
+  +#243#19#13#13#13#13#21#243#243#243#13#13#13#12#13#13#13#12#13#13#13#12#13#13
+  +#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#13#12#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#14#14#15#14#14
+  +#14#16#22#23#23#23#23#20#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#12#14#16#17#19
+  +#21#23#23#23#23#13#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#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#243#243#26#0#0#0#0#0#26#243#233#0#0#0#208#243#147#0#0#0#0#0#0#0#0#0
+  +#0#0#7#243#152#0#0#0#0#0#26#243#243#0#0#0#0#0#17#243#243#17#0#0#14#243#243
+  +#150#0#0#0#0#0#0#0#0#25#243#243#17#0#0#0#26#243#243#14#0#0#0#0#0#0#211#243
+  +#145#0#0#0#7#243#152#0#0#11#243#243#23#0#0#0#0#0#0#0#0#0#0#23#243#243#17#0#0
+  +#0#0#0#0#0#0#0#0#7#243#7#0#0#0#0#0#0#0#0#0#0#11#243#243#26#0#0#0#0#0#0#0#0#7
+  +#243#152#0#0#0#0#0#0#0#0#0#0#0#11#240#243#17#151#243#23#0#0#0#0#145#243#211#0
+  +#0#0#0#16#22#23#23#23#16#14#146#243#243#14#14#14#13#14#13#14#13#146#243#145
+  +#147#243#19#14#13#13#240#243#17#243#210#13#14#13#14#147#243#233#13#13#13#13
+  +#13#13#21#243#243#23#14#13#210#243#151#13#13#13#13#13#13#145#243#243#15#13#13
+  +#232#243#150#13#13#13#13#13#13#151#243#243#13#13#13#13#12#13#13#13#13#12#13
+  +#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#13#12#12#12#13#14#14#14
+  +#14#15#14#15#21#23#23#23#23#21#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#11#12#12#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#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#243#243#26#0#0#0#0#0#7#243#150#0#0#0#243#243#23#0#0#0#0#0#0#0#0#0#0#0#7
+  +#243#152#0#0#0#0#0#26#243#243#0#0#0#0#0#17#243#243#17#0#0#145#243#243#14#0#0
+  +#0#0#0#0#0#0#0#208#243#150#0#0#0#26#243#243#0#0#0#0#0#0#0#147#243#7#0#0#0#7
+  +#243#152#0#0#17#243#243#14#0#0#0#0#0#0#0#0#0#0#145#243#211#0#0#0#0#0#0#0#0#0
+  +#0#0#7#243#152#0#0#0#0#0#0#0#0#0#14#150#243#243#15#0#0#0#0#0#0#0#0#7#243#152
+  +#0#0#0#0#0#0#0#0#0#0#0#23#243#233#0#23#243#208#0#0#0#0#7#243#147#0#0#0#11#21
+  +#23#23#23#22#14#14#146#243#243#14#13#14#13#14#13#14#13#210#243#23#23#243#147
+  +#13#14#19#243#151#14#232#243#16#14#13#13#207#243#150#13#13#13#14#13#13#13#240
+  +#243#147#13#13#243#243#25#13#13#13#13#13#13#19#243#243#23#13#15#243#243#24#13
+  +#13#13#13#13#13#145#243#243#13#13#12#13#13#13#12#13#13#13#13#12#13#13#13#13
+  +#12#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#12#13#12#13#12#12#12#12#12#12#13#14#15#14#14#14#15#21#23
+  +#23#23#23#22#11#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#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#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#243#243#26#0#0
+  +#0#0#14#243#243#23#0#0#17#243#243#25#17#17#19#17#17#19#17#17#14#0#0#7#243#152
+  +#0#0#0#0#0#26#243#243#0#0#0#0#0#17#243#243#17#0#0#208#243#150#0#0#0#0#0#0#0#0
+  +#0#0#25#243#243#11#0#0#26#243#243#0#0#0#0#0#0#0#26#243#233#0#0#0#7#243#152#0
+  +#0#26#243#243#17#19#17#17#19#17#17#19#17#11#0#7#243#7#0#0#0#0#0#0#0#0#0#0#0#7
+  +#243#152#0#0#0#0#0#0#0#17#247#243#243#243#26#0#0#0#0#0#0#0#0#0#7#243#152#0#0
+  +#0#0#0#0#0#0#0#0#0#208#243#145#0#0#233#243#15#0#0#0#243#243#147#17#19#17#23
+  +#145#144#144#145#22#14#14#146#243#243#14#13#14#13#14#13#14#17#243#243#15#14
+  +#240#232#13#13#147#243#248#13#150#243#248#13#14#13#243#243#145#14#13#13#13#13
+  +#14#13#207#243#207#13#21#243#243#21#13#13#13#13#13#13#13#243#243#145#13#21
+  +#243#243#21#13#13#13#13#13#13#145#243#243#13#13#13#13#12#13#13#13#12#13#13#13
+  +#13#12#13#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13
+  +#12#13#12#13#12#13#12#12#12#13#12#12#12#12#13#12#12#12#12#12#12#14#14#15#14
+  +#15#22#23#23#23#23#21#12#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#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#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
+  +#243#243#26#0#0#0#11#151#243#211#11#0#0#19#243#243#243#243#243#243#243#243
+  +#243#243#243#26#0#0#7#243#152#0#0#0#0#0#26#243#243#0#0#0#0#0#17#243#243#17#0
+  +#11#243#243#25#0#0#0#0#0#0#0#0#0#0#15#243#243#17#0#0#26#243#243#0#0#0#0#0#0#0
+  +#26#243#243#0#0#0#7#243#152#0#0#26#243#243#243#243#243#243#243#243#243#243
+  +#243#17#0#150#243#7#0#0#0#0#0#0#0#0#0#0#0#7#243#152#0#0#0#0#0#0#147#243#243
+  +#243#152#17#0#0#0#0#0#0#0#0#0#0#7#243#152#0#0#0#0#0#0#0#0#0#0#14#243#243#15#0
+  +#0#147#243#147#0#0#0#243#243#243#243#243#243#243#243#243#243#243#207#15#14
+  +#146#243#243#14#13#14#13#14#13#14#26#243#210#14#13#151#243#20#13#232#243#17
+  +#13#23#243#210#14#13#13#243#243#145#13#13#13#13#13#13#13#207#243#207#13#21
+  +#243#243#21#13#13#13#13#13#13#13#243#243#145#13#21#243#243#21#13#13#13#13#13
+  +#13#145#243#243#13#13#12#13#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12#13
+  +#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#13#12#12#12
+  +#12#12#12#13#12#12#12#12#12#12#12#12#12#14#14#14#14#14#22#23#23#23#22#12#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#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#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#243#243#7#26#26#146#211#243
+  +#233#16#0#0#0#0#243#243#147#26#26#26#26#26#26#243#243#26#0#0#7#243#152#0#0#0
+  +#0#0#26#243#243#0#0#0#0#0#17#243#243#17#0#19#243#243#17#0#0#0#0#0#0#0#0#0#0#0
+  +#243#243#25#0#0#26#243#243#0#0#0#0#0#0#0#147#243#208#0#0#0#7#243#152#0#0#17
+  +#243#243#26#26#26#26#26#26#147#243#243#17#0#248#243#233#0#0#0#0#0#0#0#0#0#0#0
+  +#7#243#152#0#0#0#0#0#145#243#243#150#16#0#0#0#0#0#0#0#0#0#0#0#0#7#243#152#0#0
+  +#0#0#0#0#0#0#0#0#145#243#211#0#0#0#20#243#233#11#0#0#7#243#152#26#26#146#150
+  +#150#151#232#243#207#14#14#146#243#243#15#14#13#14#13#14#13#151#243#145#14#13
+  +#25#243#147#19#243#210#13#14#15#243#243#17#13#14#207#243#150#13#14#13#14#13
+  +#13#14#233#243#150#13#13#243#243#25#13#13#13#13#13#13#19#243#243#25#13#13#243
+  +#243#25#13#13#13#13#13#13#145#243#243#12#13#13#13#12#13#13#13#12#13#13#13#12
+  +#13#13#12#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#12#13#12#12#12#12#12#12#12#13#12#12#12#12#12#12#14#14#15#14#14
+  +#20#23#23#23#20#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#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#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#243#243
+  +#243#243#243#243#243#243#26#0#0#0#0#0#208#243#26#0#0#0#0#0#11#243#243#17#0#0
+  +#7#243#211#0#0#0#0#0#145#243#243#11#0#0#0#0#23#243#243#14#0#17#243#243#17#0#0
+  +#0#0#0#0#0#0#0#0#0#243#243#26#0#0#26#243#243#17#0#0#0#0#0#0#211#243#147#0#0#0
+  +#7#243#152#0#0#11#243#243#17#0#0#0#0#0#20#243#243#0#0#15#243#243#17#0#0#0#0#0
+  +#0#0#0#0#0#7#243#152#0#0#0#0#0#233#243#150#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#243
+  +#233#7#152#7#152#7#152#145#0#0#0#233#243#26#0#0#0#0#233#243#23#0#0#145#243#7
+  +#0#0#21#23#23#23#232#243#146#14#15#145#243#243#25#14#13#14#13#14#15#243#243
+  +#21#14#13#15#243#210#144#243#145#14#13#13#207#243#248#13#13#147#243#240#13#13
+  +#13#13#13#13#21#243#243#25#13#13#210#243#151#13#13#13#13#13#13#145#243#243#17
+  +#13#13#210#243#151#13#13#13#13#13#13#150#243#243#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#13#13#12#13#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#12#12#12#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#13
+  +#14#14#15#14#17#23#23#23#23#11#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#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#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#243#243#147#17#19#17#25#211#243#208#11#0#0#0#23#243#233#11#0#0#0#0#25
+  +#243#233#0#0#0#7#243#243#25#0#0#0#0#211#243#243#26#0#0#0#0#7#243#211#0#0#17
+  +#243#243#17#0#0#0#0#0#0#0#0#0#0#0#243#243#26#0#0#26#243#243#208#0#0#0#0#0#25
+  +#243#243#17#0#0#0#7#243#152#0#0#0#147#243#7#0#0#0#0#0#150#243#150#0#0#0#7#243
+  +#211#11#0#0#0#0#0#0#0#0#0#7#243#152#0#0#0#0#0#233#243#26#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#7#243#243#243#243#243#243#243#243#7#0#0#20#243#243#14#0#0#0#0#147
+  +#243#208#0#0#14#243#243#17#14#23#23#23#26#243#243#20#14#14#146#243#243#240#17
+  +#14#13#14#13#23#243#243#14#13#14#13#151#243#151#243#19#14#13#14#26#243#210#14
+  +#13#17#243#243#145#13#13#13#14#13#207#243#240#13#13#13#25#243#243#21#13#13#13
+  +#13#15#240#243#151#13#13#13#25#243#243#21#13#13#13#13#19#243#243#243#13#13#13
+  +#13#12#13#13#13#12#13#13#13#12#13#13#12#13#12#13#12#13#12#13#13#12#13#12#13
+  +#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12#13#12#13#12
+  +#12#12#12#12#12#12#15#14#14#15#15#23#23#23#23#13#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#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#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#243#243#248#0#0#0#0#11#208#243#7#0#0#0#0#150#243#208
+  +#17#0#0#25#243#243#24#0#0#0#7#243#233#233#25#11#14#147#243#243#147#243#26#11
+  +#11#248#243#243#26#0#0#0#243#243#25#0#0#0#0#0#0#0#0#0#0#14#243#243#17#0#0#26
+  +#243#243#211#208#17#0#14#26#243#243#150#0#0#0#0#7#243#152#0#0#0#11#232#243
+  +#150#14#0#11#247#243#243#15#0#0#0#14#233#243#211#23#11#0#14#22#15#0#15#19#208
+  +#243#208#17#19#17#11#0#146#243#233#20#0#14#22#23#0#0#0#0#0#0#0#0#0#7#243#152
+  +#0#0#0#0#0#0#0#0#0#150#243#208#0#0#0#0#0#15#243#243#14#0#0#25#243#233#145#23
+  +#23#144#241#243#152#14#15#14#146#243#210#240#240#147#145#14#13#150#243#151#14
+  ,#13#13#14#25#243#243#232#13#13#13#13#19#243#243#17#13#13#25#243#243#147#17#13
+  +#19#207#243#243#23#13#13#13#13#150#243#240#26#15#13#23#232#243#240#17#13#13
+  +#13#13#207#243#240#25#14#15#24#240#243#243#243#13#13#12#13#13#13#12#13#13#13
+  +#12#13#13#13#12#13#12#13#13#12#13#13#12#13#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14
+  +#14#15#14#14#22#23#23#23#16#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#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#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#243#243#26#0#0#0#0#0#16#243#243#15#0#0#0#0#147#243#243#243#243#243#243#145
+  +#0#0#0#0#7#243#26#147#243#243#243#243#243#147#0#26#243#243#243#243#243#7#0#0
+  +#0#0#211#243#147#0#0#0#0#0#0#0#0#0#0#23#243#243#13#0#0#26#243#243#15#232#243
+  +#243#243#243#243#7#11#0#0#0#0#7#243#152#0#0#0#0#11#208#243#243#243#243#243
+  +#233#23#0#0#0#0#0#14#152#243#243#243#243#243#243#25#0#7#243#243#243#243#243
+  +#243#243#17#0#11#7#243#243#243#243#243#208#0#0#0#0#0#0#0#0#0#7#243#152#0#0#0
+  +#0#0#0#0#0#14#243#243#24#0#0#0#0#0#0#211#243#145#0#0#0#23#243#243#243#243#243
+  +#243#207#16#14#14#14#145#243#147#23#243#243#243#14#13#240#243#144#14#13#14#13
+  +#15#243#243#147#13#14#13#14#13#232#243#248#14#13#13#25#240#243#243#243#243
+  +#243#240#23#13#13#13#13#13#13#147#243#243#243#243#243#243#210#19#13#13#13#13
+  +#13#15#207#243#243#243#243#243#210#147#243#243#12#13#13#13#12#13#13#13#12#13
+  +#13#13#12#13#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#12#13#12#13#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#14
+  +#14#14#14#15#20#23#23#23#20#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#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#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#243#243#26#0#0#0#0#0#0#243#243#26#0#0#0#0#0#15#146#152#152#145#15#0#0#0#0
+  +#0#23#26#14#0#17#146#152#147#17#0#0#0#15#146#152#147#23#0#0#0#0#0#145#243#233
+  +#11#0#0#0#0#0#0#0#0#0#150#243#211#0#0#0#26#243#243#0#11#23#147#7#145#17#0#0#0
+  +#0#0#0#23#26#23#0#0#0#0#0#0#20#247#152#152#25#13#0#0#0#0#0#0#0#0#15#248#147#7
+  +#147#25#15#0#23#26#211#243#211#26#26#248#14#0#0#0#17#146#152#150#25#13#0#0#0
+  +#0#0#0#0#0#0#7#243#152#0#0#0#0#0#0#0#0#15#248#26#14#0#0#0#0#0#0#20#248#25#0#0
+  +#0#0#22#149#210#210#207#24#14#15#14#14#14#22#145#21#14#17#150#207#14#17#145
+  +#145#17#14#13#13#13#13#25#145#17#13#14#13#13#14#25#145#23#13#13#13#13#15#25
+  +#147#207#147#25#15#13#13#13#13#13#13#13#13#17#26#150#207#145#23#13#13#13#13
+  +#13#13#13#13#13#21#147#207#150#24#13#145#243#243#13#13#12#13#13#13#12#13#13
+  +#13#12#13#13#12#13#13#12#13#12#13#12#13#13#12#13#12#13#12#13#12#13#12#13#12
+  +#13#12#13#12#13#12#12#12#12#12#13#12#12#13#12#13#12#12#12#12#12#12#12#12#12
+  +#13#14#15#14#14#17#23#23#23#23#11#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#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#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#243#243#26#0#0#0#0#0#11#243#243#26#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#14#243#243#26#0#0#0#0#0#0#0#0#17#243
+  +#243#26#0#0#0#26#243#243#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#7#243#7#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#7#243#152#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12
+  +#23#23#23#23#20#14#14#14#15#14#14#13#14#14#13#14#13#14#13#14#13#14#13#14#13
+  +#14#13#14#13#13#14#13#13#14#13#13#13#13#14#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#145#243#243#12#13#13#13#207#21#13#145#24#13#210#25#12#207#21#13
+  +#12#13#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12
+  +#12#12#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#14#14#15#14#16#22
+  +#23#23#23#13#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#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#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#243#243#26#0#0
+  +#0#0#0#23#243#243#15#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#26#243#243#17#0#0#0#0#0#0#11#232#243#211#11#0#0#0#26
+  +#243#243#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#7#243#152#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#7#243#152#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#19#23#23#23#23
+  +#15#14#15#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#13#14#13#14#13#14#13#13#13#14#14#14#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#145#243#243#13#13#12#13#207#21#13#145#145#16#207#151#13#207#21#13#12#13#12
+  +#13#13#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#13#12#13#12#13#12
+  +#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#14#14#23#23#23#23
+  +#16#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
+  +#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#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#243#243#26#0#0#0#0#23
+  +#233#243#208#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#147#243#243#26#11#0#0#0#20#240#243#233#16#0#0#0#0#26#243
+  +#243#0#0#0#0#0#0#0#0#0#0#0#0#0#145#243#145#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#15#23#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#7#243#152#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#23#23#23#23#22
+  +#15#14#14#14#15#14#14#14#13#14#13#14#13#14#13#14#13#14#13#13#14#13#13#14#13
+  +#13#14#13#13#14#13#14#13#13#13#13#13#14#14#14#15#14#14#15#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#145#243#243#12#13#13#13#207#21#13#26#145#26#26#151#16#207#16#13#13#12#13#12
+  +#13#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#15#14#14#20#23#23#23#20#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#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#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#243#243#243#7#152#7#243#243
+  +#243#208#16#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#26#243#243#243#7#152#233#243#243#208#16#0#0#0#0#0#26#243
+  +#243#0#0#0#0#0#0#0#0#0#0#0#0#0#243#243#243#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
+  +#7#243#243#243#243#243#243#243#243#243#17#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#21
+  +#23#23#23#23#21#15#14#14#14#14#14#14#14#13#14#13#14#13#14#13#14#13#14#13#13
+  +#14#13#13#14#13#13#14#13#13#13#13#14#13#14#13#14#14#14#14#14#14#15#14#14#14
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#145#243#243#13#12#13#13#207#21#13#21#145#210#16#25#26#243#13#12
+  +#13#13#12#13#12#13#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12#12#13
+  +#12#13#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#13#14#14#15#14#17
+  +#23#23#23#23#11#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#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#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#147#7#208#243
+  +#243#243#208#150#23#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#14#145#152#233#243#211#150#23#0#0#0#0#0#0#0
+  +#26#243#243#0#0#0#0#0#0#0#0#0#0#0#0#0#26#243#26#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#145#7#152#7#152#7#152#7#152#7#15#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#12#21
+  +#23#23#23#23#21#15#14#15#14#14#15#14#13#14#13#14#13#14#13#14#13#14#13#14#13
+  +#13#14#13#13#14#13#13#14#13#14#13#13#13#14#14#14#15#14#15#14#14#14#15#14#14
+  +#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#145#243#243#12#13#13#13#207#21#13#21#150#210#12#15#7#243#13#12#13
+  +#12#13#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#13#12#13#12#13#12#12#12
+  +#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#15#14#14#15#15#23
+  +#23#23#23#13#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#23#152#7#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#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#12#21#23#23#23#23#21#15#14#14#15#14#14#14#14#13#14
+  +#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13#14#13#14#13#13#14#14#15#14#14
+  +#14#15#14#14#15#14#14#14#15#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#24#207#207#13#13#24#145#232#150#145#23
+  +#232#24#13#12#150#233#13#13#12#13#12#13#13#12#12#12#13#12#12#12#12#12#12#12
+  +#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#14#14#15#14#14#22#23#23#23#16#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#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#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#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#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#13#23#23#23#23#23#21
+  +#15#14#14#14#15#14#14#14#13#14#13#14#13#14#13#13#14#13#13#14#13#13#14#13#13
+  +#13#13#14#14#14#14#14#15#14#14#14#16#19#15#14#15#14#14#14#15#14#14#15#14#14
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#19#21#21#21#21#14#21#15#12#13#16#19#13#12#13#13#12#13#12#13#13#12#13#12
+  +#13#12#13#12#13#12#13#12#13#12#12#13#12#13#12#13#12#13#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#14#14#14#14#15#20#23#23#23#20#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#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#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#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#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#14
+  +#23#23#23#23#23#21#15#14#14#14#14#14#14#14#13#14#13#14#13#14#13#13#14#13#13
+  +#14#13#13#14#13#14#14#14#14#15#14#14#14#15#14#19#23#23#23#20#15#14#15#14#14
+  +#14#15#14#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#12#13#13#12#13#13#12#13#13#12#13#13#13#13#13#12#13#12#13#13#12#13#13#12#13
+  +#12#12#13#12#13#12#13#13#13#12#13#12#13#12#13#12#12#12#12#12#12#12#12#12#13
+  +#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#13#14#15#14#14#17#23#23#23#23
+  +#11#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
+  +#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#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#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#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#14#23#23#23#23#23#21#15#14#15#14#14#14#14#14#13#14#13#13#13
+  +#14#13#13#14#13#13#14#13#13#14#14#14#14#15#14#14#15#14#16#22#23#23#23#23#23
+  +#23#19#15#15#14#14#14#14#15#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#13#13#12#13#13#12#13#13#12#13#12#13
+  +#12#13#12#13#12#13#12#12#13#14#14#14#14#14#13#12#13#12#13#12#13#12#12#13#12
+  +#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#15#14
+  +#16#22#23#23#23#13#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#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#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#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#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#14#23#23#23#23#23#21#15#14#14#15#14#14#14
+  +#14#13#14#13#14#13#14#13#13#14#13#13#14#14#14#14#15#14#14#14#15#14#20#23#23
+  ,#23#23#23#23#23#23#23#23#21#17#14#15#14#14#15#14#15#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#12#13#13#13#12#13#13#13#13#12#13#13#12
+  +#13#12#13#13#12#13#12#13#13#13#14#14#14#14#14#14#14#15#14#14#13#12#12#12#13
+  +#12#13#12#12#12#13#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#14#14#14#14#14#23#23#23#23#16#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#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#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#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#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#14#23#23#23#23#23#21#15#14
+  +#14#14#15#14#14#14#14#13#13#13#13#14#13#13#14#14#14#14#15#14#14#14#15#14#17
+  +#22#23#23#23#23#23#23#23#23#23#23#23#23#23#22#19#15#14#14#14#14#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13
+  +#13#13#13#12#13#13#12#13#14#13#14#14#14#14#14#14#15#14#15#14#14#14#15#14#14
+  +#13#13#12#12#13#12#12#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#14#14#15#14#14#20#23#23#23#20#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#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#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#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#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#14#23#23#23
+  +#23#23#22#16#14#14#14#15#14#14#14#14#13#14#13#13#14#13#14#14#14#14#14#14#15
+  +#14#15#21#23#23#23#23#23#23#22#15#19#23#23#23#23#23#23#23#23#23#19#15#14#15
+  +#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13
+  +#13#13#12#13#13#12#13#13#13#14#14#15#14#14#14#15#14#15#14#14#14#14#14#15#14
+  +#14#14#14#15#14#13#13#12#12#12#12#12#12#12#13#12#12#13#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#13#14#14#15#14#17#23#23#23#23#11#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#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#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#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#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#14#23#23#23#23#23#22#16#15#14#14#14#15#14#14#14#13#14#13#14#14#14#15#14
+  +#15#14#14#14#19#23#23#23#23#23#23#23#17#11#0#0#12#19#23#23#23#23#23#23#23#21
+  +#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#13#12#13#13#13#13#12#13#13#12#13#14#14#14#14#14#15#14#14#14#14#15#14#15#14
+  +#14#14#15#14#15#14#14#14#14#13#13#12#13#12#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#15#14#14#15#15#23#23#23#23#13#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#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#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#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#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#14#22#23#23#23#23#23#17#14#15#14#14#14#14#14#14#13#14#14#15#14
+  +#14#14#14#15#16#22#22#23#23#23#23#23#21#12#0#0#0#0#0#0#11#16#22#23#23#23#23
+  +#23#14#15#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12
+  +#13#13#13#13#12#13#13#13#13#13#12#13#14#15#14#15#14#14#14#15#14#14#14#14#15
+  +#16#19#21#23#17#14#14#15#14#15#14#13#12#12#12#12#12#12#12#13#12#13#12#12#12
+  ,#12#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#15#14#14#22#23#23#23#16#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#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#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#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#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#12#21#23#23#23#23#23#20#14#14#15#14#14#15#14#14#15#14#14
+  +#14#15#14#15#19#23#23#23#23#23#23#23#16#0#0#0#0#0#0#0#0#0#0#11#15#23#23#23#23
+  +#15#14#15#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#13#13#13#12#13#13#12#13#14#14#14#14#14#14#15#14#14#16#19#20#21#23#23
+  +#23#23#23#23#17#14#14#14#14#14#14#14#12#13#12#12#13#12#12#12#12#13#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#14#14#14#14#15#20#23#23#23#20#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#11'Transparent'#8#0#0#6'TLabel'#6'Label1'#4
+  +'Left'#2#8#6'Height'#2#17#3'Top'#3#254#0#5'Width'#3#207#1#7'Caption'#6'?Copy'
+  +'right RemObjects Software, 2002-2008. All rights reserved.'#10#10'Font.Colo'
+  +'r'#7#7'clWhite'#11'Font.Height'#2#247#9'Font.Name'#6#6'Tahoma'#11'ParentCol'
+  +'or'#8#7'OnClick'#7#12'OnCloseClick'#0#0#6'TLabel'#11'lbl_Version'#6'Height'
+  +#2#16#3'Top'#2#31#5'Width'#3#244#1#9'Alignment'#7#8'taCenter'#8'AutoSize'#8#7
+  +'Caption'#6#2'[]'#10'Font.Color'#7#7'clWhite'#11'Font.Height'#2#243#9'Font.N'
+  +'ame'#6#6'Tahoma'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'#2#8#6'He'
+  +'ight'#2#17#3'Top'#3#24#1#5'Width'#3#138#0#7'Caption'#6#20'Visit our website'
+  +' at'#10'Font.Color'#7#7'clWhite'#11'Font.Height'#2#247#9'Font.Name'#6#6'Tah'
+  +'oma'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#6'Cursor'#7#11'crHandPoint'#4
+  +'Left'#3#152#0#6'Height'#2#17#3'Top'#3#24#1#5'Width'#3#198#0#7'Caption'#6#25
+  +'http://www.remobjects.com'#10'Font.Color'#7#7'clWhite'#11'Font.Height'#2#245
+  +#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#11'fsUnderline'#0#11'ParentColor'
+  +#8#7'OnClick'#7#11'Label3Click'#0#0#7'TButton'#10'btn_Cancel'#4'Left'#3#162#1
+  +#6'Height'#2#25#3'Top'#3#16#1#5'Width'#2'M'#6'Cancel'#9#7'Caption'#6#10'btn_'
+  +'Cancel'#7'Default'#9#10'Font.Color'#7#7'clWhite'#11'Font.Height'#2#245#9'Fo'
+  +'nt.Name'#6#6'Tahoma'#7'OnClick'#7#12'OnCloseClick'#8'TabOrder'#2#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.pas
new file mode 100644
index 0000000..098cd55
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWAbout.pas
@@ -0,0 +1,147 @@
+unit uEWAbout;
+
+{$I Everwood.inc}
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls;
+
+type
+
+  { TAboutForm }
+
+  TAboutForm = class(TForm)
+    Image1: TImage;
+    Label1: TLabel;
+    Label3: TLabel;
+    btn_Cancel: TButton;
+    lbl_Version: TLabel;
+    Label7: TLabel;
+    procedure FormCreate(Sender: TObject);
+    procedure OnCloseClick(Sender: TObject);
+    procedure Label3Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+function VersionBuildNo(iInstance:THandle):integer;
+
+var
+  AboutForm: TAboutForm;
+  sVersionName : string = '';
+
+implementation
+
+
+{$IFDEF FPC}
+uses uEWTools;
+{$ELSE}
+uses ShellAPI;
+{$ENDIF}
+
+{$IFNDEF FPC}
+  {$R *.dfm}
+{$ENDIF}
+
+{$IFNDEF FPC}
+type TVersion = record
+       Major,Minor,Release,Build:word;
+     end;
+
+function GetFileVersion(iFileName:string):TVersion;
+var whocares:dword;
+    Size:dword;
+    Data:pointer;
+    FixedData:pVSFixedFileInfo;
+begin
+  {$IFDEF FPC}
+  Data := nil;
+  FixedData := nil;
+  whocares := 0;
+  {$ENDIF}
+  Size := GetFileVersionInfoSize(pChar(iFileName), whocares);
+  if Size > 0 then begin
+    GetMem(Data,Size);
+    try
+      if GetFileVersionInfo(pChar(iFileName),0,Size,Data) then begin
+        Size := sizeof(TVSFixedFileInfo);
+        if VerQueryValue(Data,'\',pointer(FixedData),Size) then begin
+          result.Major := HiWord(FixedData^.dwFileVersionMS);
+          result.Minor := LoWord(FixedData^.dwFileVersionMS);
+          result.Release := HiWord(FixedData^.dwFileVersionLS);
+          result.Build := LoWord(FixedData^.dwFileVersionLS);
+        end;
+      end;
+    finally
+      FreeMem(Data);
+    end;
+  end;
+end;
+
+function GetModuleName(iInstance:THandle):string;
+var Buffer: array[0..MAX_PATH] of Char;
+begin
+  SetString(result, Buffer, GetModuleFileName(iInstance, Buffer, MAX_PATH));
+end;
+
+function VersionStringLong:string;
+var Version:TVersion;
+begin
+  Version := GetFileVersion(GetModuleName(hInstance));
+  result := IntToStr(Version.Major)+'.'+IntToStr(Version.Minor)+'.'+
+            IntToStr(Version.Release)+'.'+IntToStr(Version.Build){+'.'+
+            FormatDateTime('yymmdd', CompileTime);}
+end;
+
+function VersionBuildNo(iInstance:THandle):integer;
+var Version:TVersion;
+begin
+  Version := GetFileVersion(GetModuleName(iInstance));
+  result := Version.Build;
+end;
+
+{$ELSE}
+function VersionBuildNo(iInstance:THandle):integer;
+begin
+  Result := 0;
+end;
+{$ENDIF}
+
+procedure TAboutForm.OnCloseClick(Sender: TObject);
+begin
+  Close();
+end;
+
+procedure TAboutForm.FormCreate(Sender: TObject);
+begin
+  {$IFDEF FPC}
+  // hide lbl_version: we can't correctly detect version!
+  lbl_Version.Visible:= False;
+  {$ELSE}
+  lbl_Version.Caption := 'Version '+VersionStringLong();
+  if sVersionName <> '' then
+    lbl_Version.Caption := sVersionName+' - '+lbl_Version.Caption;
+  {$ENDIF}
+  btn_Cancel.Left := Width + 10;
+end;
+
+procedure TAboutForm.Label3Click(Sender: TObject);
+begin
+  {$IFDEF FPC}
+  RO_ShellExecute
+  {$ELSE}
+  ShellExecute
+  {$ENDIF}
+  (Handle,'open','http://www.remobjects.com',nil,nil,SW_SHOWNORMAL);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$i uEWAbout.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWHelpers.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWHelpers.pas
new file mode 100644
index 0000000..83a9d2a
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWHelpers.pas
@@ -0,0 +1,108 @@
+unit uEWHelpers;
+
+{$I Everwood.inc}
+
+interface
+
+{$IFDEF DELPHI5}
+uses
+  FileCtrl;
+
+type
+  THandle = Integer;
+{$ENDIF}
+
+function SelectDirectory(const AppHandle: THandle; const Caption: string;
+  const Root: WideString; var Directory: string): Boolean;
+
+implementation
+
+{$IFDEF FPC}
+uses Dialogs;
+{$ELSE}
+uses {$IFDEF MSWINDOWS}Windows, ActiveX, ShlObj, {$ENDIF} SysUtils, Forms;
+{$ENDIF}
+
+{$IFDEF FPC}
+function SelectDirectory(const AppHandle: THandle; const Caption: string;
+  const Root: WideString; var Directory: string): Boolean;
+var
+  str: Ansistring;
+begin
+  // now only Ansi version
+  str := Directory;
+  Result := Dialogs.SelectDirectory(Caption, Root, str);
+  if Result then Directory := str;
+end;
+{$ELSE}
+function SelectDirCB(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer stdcall;
+begin
+  if (uMsg = BFFM_INITIALIZED) and (lpData <> 0) then
+    SendMessage(Wnd, BFFM_SETSELECTION, Integer(True), lpdata);
+  result := 0;
+end;
+
+function SelectDirectory(const AppHandle: THandle; const Caption: string;
+  const Root: WideString; var Directory: string): Boolean;
+var
+  WindowList: Pointer;
+  BrowseInfo: TBrowseInfo;
+  Buffer: PChar;
+  OldErrorMode: Cardinal;
+  RootItemIDList, ItemIDList: PItemIDList;
+  ShellMalloc: IMalloc;
+  IDesktopFolder: IShellFolder;
+  Eaten, Flags: LongWord;
+begin
+  Result := False;
+  if not DirectoryExists(Directory) then
+    Directory := '';
+  FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
+  if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then
+  begin
+    Buffer := ShellMalloc.Alloc(MAX_PATH);
+    try
+      RootItemIDList := nil;
+      if Root <> '' then
+      begin
+        SHGetDesktopFolder(IDesktopFolder);
+        IDesktopFolder.ParseDisplayName(AppHandle, nil,
+          POleStr(Root), Eaten, RootItemIDList, Flags);
+      end;
+      with BrowseInfo do
+      begin
+        hwndOwner := AppHandle;
+        pidlRoot := RootItemIDList;
+        pszDisplayName := Buffer;
+        lpszTitle := PChar(Caption);
+        ulFlags := BIF_RETURNONLYFSDIRS or
+          {$IFDEF DELPHI7UP} BIF_NEWDIALOGSTYLE {$ELSE} $0040 {$ENDIF};
+        if Directory <> '' then
+        begin
+          lpfn := SelectDirCB;
+          lParam := Integer(PChar(Directory));
+        end;
+      end;
+      WindowList := DisableTaskWindows(0);
+      OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
+      try
+        ItemIDList := ShBrowseForFolder(BrowseInfo);
+      finally
+        SetErrorMode(OldErrorMode);
+        EnableTaskWindows(WindowList);
+      end;
+      Result :=  ItemIDList <> nil;
+      if Result then
+      begin
+        ShGetPathFromIDList(ItemIDList, Buffer);
+        ShellMalloc.Free(ItemIDList);
+        Directory := Buffer;
+      end;
+    finally
+      ShellMalloc.Free(Buffer);
+    end;
+  end;
+end;
+{$ENDIF}
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWMenuManager.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWMenuManager.pas
new file mode 100644
index 0000000..a485aea
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWMenuManager.pas
@@ -0,0 +1,346 @@
+unit uEWMenuManager;
+
+{$INCLUDE eDefines.inc}
+
+interface
+
+uses
+  Classes, Menus, ToolsAPI, ExtCtrls, Controls;
+
+const
+  sPersonalityDelphiWin32  = 'Delphi.Personality';
+  sPersonalityDelphiDotNet = 'DelphiDotNet.Personality';
+  sPersonalityCSharpDotNet = 'CSharp.Personality';
+  sPersonalityCppBuilderWin32 = 'CPlusPlusBuilder.Personality';
+  sPersonalityVisualBasicDotNet = 'VB.Personality';
+
+type
+  TEWPersonality = (pAny, pNone, pUnknown, pDelphiWin32, pDelphiDotNet, pCSharpDotNet, pCppBuilderWin32, pVisualBasicDotNet);
+  TEWPersonalitySet = set of TEWPersonality;
+
+  TMenuItemEx = class;
+
+  TEWMenuItem = class
+  private
+    fMenuItem: TMenuItemEx;
+    fPersonality: TEWPersonalitySet;
+    fVisible: boolean;
+  public
+    constructor Create(aMenuItem: TMenuItemEx);
+    procedure SetGlyph(aImageList: TImageList; aIndex: integer);
+    property MenuItem: TMenuItemEx read fMenuItem;
+    property Personality: TEWPersonalitySet read fPersonality write fPersonality;
+    property Visible: boolean read fVisible write fVisible;
+  end;
+
+  TMenuItemEx = class(TMenuItem)
+  private
+    fInfo: TEWMenuItem;
+  public
+    property Info: TEWMenuItem read fInfo write fInfo;
+  end;
+
+  TEWMenu = class
+  private
+    fName: string;
+    fMenu: TMenuItem;
+    fRefCount: integer;
+    fOnPopup: TNotifyEvent;
+    procedure _OnPopup(aSender: TObject);
+  public
+    constructor Create(const aName: string);
+    destructor Destroy; override;
+
+    function CreateMenuItem(const aCaption: string; aImageIndex: integer; aPersonality: TEWPersonalitySet): TEWMenuItem;
+    function DestroyMenuItem(var aMenu: TEWMenuItem): boolean;
+
+    property Name: string read fName;
+    property Menu: TMenuItem read fMenu;
+
+    property OnPopup: TNotifyEvent read fOnPopup write fOnPopup;
+
+  end;
+
+  TEWMenuManager = class
+  private
+    fMenus: TStringList;
+    fEWMenu: TMenuItem;
+    procedure OnABoutclick(Sender: TObject);
+  public
+    constructor Create;
+    Destructor Destroy; override;
+    procedure Initialize;
+
+    function CreateMenu(const aName: string): TEWMenu;
+    function DestroyMenu(var aMenu: TEWMenu): boolean;
+  end;
+
+var
+  MenuManager: TEWMenuManager;
+
+implementation
+
+uses
+  {$IFDEF DELPHI5}DsgnIntf, Windows,{$ENDIF}
+  {$IFDEF DELPHI6UP}DesignEditors, DesignIntf, ExtActns,{$ENDIF}
+  Forms, SysUtils, Dialogs, uEWAbout, Graphics, uEWOTAHelpers;
+
+{ TEWMenuManager }
+
+{ TODO: use
+
+    procedure MenuBeginUpdate;
+    procedure MenuEndUpdate;
+}
+
+constructor TEWMenuManager.Create;
+begin
+  {fTimer := TTimer.Create(nil);
+  fTimer.OnTimer := TimerInitialize;
+  fTimer.Interval := 60000;
+  fTimer.Enabled := true;
+  ShowMessage('Create!');}
+end;
+
+procedure TEWMenuManager.Initialize;
+var
+  lMainMenu: TMainMenu;
+  lHelpMenu: TMenuItem;
+  lServices: INTAServices;
+  i: integer;
+begin
+  if Assigned(fMenus) then exit;
+
+  fMenus := TStringList.Create();
+
+  //try
+
+    if not Assigned(BorlandIDEServices) then
+      raise Exception.Create('Cannot access BorlandIDEServices.');
+
+    //{$IFDEF BDS}
+    //lServices := BorlandIDEServices.GetService(INTAServices) as INTAServices;
+    //{$ELSE}
+    lServices := (BorlandIDEServices as INTAServices);
+    //{$ENDIF}
+
+    if not Assigned(lServices) then
+      raise Exception.Create('Cannot access INTAServices.');
+
+    lMainMenu := lServices.MainMenu;
+
+    for i := 0 to lMainMenu.Items.Count-1 do begin
+
+      if lMainMenu.Items[i].Name = 'HelpMenu' then begin
+        lHelpMenu := lMainMenu.Items[i];
+
+        fEWMenu := TMenuItem.Create(nil);
+        fEWMenu.Caption := 'About RemObjects Everwood�';
+        fEWMenu.OnClick := OnAboutClick;
+
+        lHelpMenu.Insert(lHelpMenu.Count-1, fEWMenu);
+      end;
+    end; { for }
+  {except
+    ShowMessage('Error getting Main Menu');
+  end;}
+
+end;
+
+destructor TEWMenuManager.Destroy;
+var
+  i: Integer;
+begin
+  if Assigned(fMenus) then begin
+    for i := 0 to fMenus.Count-1 do begin
+      fMenus.Objects[i].Free();
+      fMenus.Objects[i] := nil;
+    end; { for }
+  end;
+  FreeAndNil(fMenus);
+  FreeAndNil(fEWMenu);
+end;
+
+function TEWMenuManager.CreateMenu(const aName: string): TEWMenu;
+var
+  lIndex: integer;
+begin
+  Initialize();
+  lIndex := fMenus.IndexOf(aName);
+  if lIndex > -1 then begin
+    result := fMenus.Objects[lIndex] as TEWMenu
+  end
+  else begin
+    result := TEWMenu.Create(aName);
+    fMenus.AddObject(aName, result);
+  end;
+end;
+
+
+function TEWMenuManager.DestroyMenu(var aMenu: TEWMenu): boolean;
+var
+  lIndex: integer;
+begin
+  Initialize();
+  lIndex := fMenus.IndexOfObject(aMenu);
+  if lIndex > -1 then begin
+    dec(aMenu.fRefCount);
+    if aMenu.fRefCount = 0 then begin
+      fMenus.Delete(lIndex);
+      aMenu.Free();
+      result := true;
+    end
+    else begin
+      result := false;
+    end;
+  end
+  else
+    result := false;
+  aMenu := nil;
+end;
+
+{ TEWMenu }
+
+constructor TEWMenu.Create(const aName: string);
+var
+  lMainMenu: TMainMenu;
+begin
+  inherited Create();
+  fName := aName;
+  fRefCount := 1;
+
+  fMenu := TMenuItem.Create(nil);
+  fMenu.Caption := aName;
+  fMenu.OnClick := _OnPopup;
+
+  lMainMenu := (BorlandIDEServices as INTAServices).MainMenu;
+  lMainMenu.Items.Insert(lMainMenu.Items.Count-2, fMenu);
+
+  with CreateMenuItem('NOOPTIONS', -1, [pAny]) do begin
+    MenuItem.Enabled := false;
+  end;
+
+end;
+
+function TEWMenu.CreateMenuItem(const aCaption: string; aImageIndex: integer; aPersonality: TEWPersonalitySet): TEWMenuItem;
+var
+  lMenuItem: TMenuItemEx;
+begin
+  lMenuItem := TMenuItemEx.Create(fMenu);
+  lMenuItem.Caption := aCaption;
+  lMenuItem.ImageIndex := aImageIndex;
+  result := TEWMenuItem.Create(lMenuItem);
+  result.Personality := aPersonality;
+  lMenuItem.Info := result;
+  fMenu.Add(lMenuItem);
+end;
+
+destructor TEWMenu.Destroy;
+begin
+  FreeAndNil(fMenu);
+  inherited;
+end;
+
+function TEWMenu.DestroyMenuItem(var aMenu: TEWMenuItem): boolean;
+begin
+  result := false;
+end;
+
+procedure TEWMenu._OnPopup(aSender: TObject);
+var
+  i: integer;
+  s: string;
+  lPersonality: TEWPersonality;
+  lAnyMenusVisible: boolean;
+begin
+  if assigned(OnPopup) then OnPopup(self);
+
+  //ToDo: optimize 2 calls to CurrentProject
+  if CurrentProject <> nil then begin
+    {$IFDEF DELPHI9UP}
+    s := CurrentProject.Personality;
+
+    if SameText(s, sPersonalityDelphiWin32) then
+      lPersonality := pDelphiWin32
+    else if SameText(s, sPersonalityDelphiDotNet) then
+      lPersonality := pDelphiDotNet
+    else if SameText(s, sPersonalityDelphiDotNet) then
+      lPersonality := pDelphiDotNet
+    else if SameText(s, sPersonalityCSharpDotNet) then
+      lPersonality := pCSharpDotNet
+    else if SameText(s, sPersonalityVisualBasicDotNet) then
+      lPersonality := pVisualBasicDotNet
+    else if SameText(s, sPersonalityCppBuilderWin32) then
+      lPersonality := pCppBuilderWin32
+    else
+      lPersonality := pUnknown;
+
+    s := LanguageFromPersonality(CurrentProject);
+
+    fMenu.Items[0].Caption := Format('<No options available for %s Projects>',[s]);
+    {$ELSE}
+    lPersonality := pDelphiWin32;
+    fMenu.Items[0].Caption := Format('<No options available>',[s]);
+    {$ENDIF DELPHI9UP}
+  end
+  else begin
+    lPersonality := pNone;
+    fMenu.Items[0].Caption := '<No options available without open project>';
+  end;
+
+  lAnyMenusVisible := false;
+  for i := 1 to fMenu.Count-1 do begin
+    if fMenu.Items[i] is TMenuItemEx then begin
+      with (fMenu.Items[i] as TMenuItemEx).Info do begin
+        fMenu.Items[i].Visible := Visible
+                                  and
+                                  ((pAny in Personality) or (lPersonality in Personality));
+        if fMenu.Items[i].Visible then lAnyMenusVisible := true;
+
+      end;
+    end;
+  end;
+
+  fMenu.Items[0].Visible := not lAnyMenusVisible;
+
+end;
+
+{ TEWMenuItem }
+
+constructor TEWMenuItem.Create(aMenuItem: TMenuItemEx);
+begin
+  inherited Create();
+  fMenuItem := aMenuItem;
+  fVisible := true;
+end;
+
+procedure TEWMenuManager.OnABoutclick(Sender: TObject);
+begin
+  with TAboutForm.Create(Application) do try
+    Position := poScreenCenter;
+    ShowModal();
+  finally
+    Free();
+  end
+end;
+
+procedure TEWMenuItem.SetGlyph(aImageList: TImageList; aIndex: integer);
+var
+  lBitmap: TBitmap;
+begin
+  lBitmap := TBitmap.Create();
+  try
+    aImageList.GetBitmap(aIndex ,lBitmap);
+    MenuItem.ImageIndex := (BorlandIDEServices as INTAServices).AddMasked(lBitmap, clFuchsia);
+  finally
+    lBitmap.Free();
+  end;
+end;
+
+initialization
+  MenuManager := TEWMenuManager.Create();
+finalization
+  FreeAndNil(MenuManager);
+end.
+
+
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWMenuManager_laz.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWMenuManager_laz.pas
new file mode 100644
index 0000000..24bf371
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWMenuManager_laz.pas
@@ -0,0 +1,252 @@
+unit uEWMenuManager_laz;
+
+{$I Everwood.inc}
+
+interface
+
+uses
+  MenuIntf, IDECommands,
+  Classes, Menus, ExtCtrls, Controls;
+
+type
+  TEWPersonality = (pAny, pNone, pUnknown, pDelphiWin32, pDelphiDotNet, pCSharpDotNet, pCppBuilderWin32, pVisualBasicDotNet, pLazarusWin, pLazarusUnix);
+  TEWPersonalitySet = set of TEWPersonality;
+  TEWMenu = class;
+
+  TEWMenuItem = class(TIDEMenuCommand)
+  private
+    fPersonality: TEWPersonalitySet;
+  public
+    procedure SetGlyph(aImageList: TImageList; aIndex: integer);
+    property Personality: TEWPersonalitySet read fPersonality write fPersonality;
+  end;
+
+  { TEWMenu }
+
+  TEWMenu = class(TIDEMenuSection)
+  private
+    fOnPopup: TNotifyEvent;
+    fCat : TIDECommandCategory;
+    function GetOnPopup: TNotifyEvent;
+    procedure SetOnPopup(const AValue: TNotifyEvent);
+    procedure _OnPopup(aSender: TObject);
+  public
+    constructor Create(const aName: string);override;
+    function CreateMenuItem(const aCaption: string; aImageIndex: integer; aPersonality: TEWPersonalitySet; AutoAdd: boolean = True): TEWMenuItem; overload;
+    function DestroyMenuItem(var aMenu: TEWMenuItem): boolean;
+    property OnPopup: TNotifyEvent read fOnPopup write fOnPopup;
+    property CommandCategory: TIDECommandCategory read fCat;
+  end;
+
+  TEWMenuManager = class
+  private
+    fMenus: TStringList;
+    procedure OnAboutClick(Sender: TObject);
+  public
+    constructor Create;
+    Destructor Destroy; override;
+    procedure Initialize;
+
+    function CreateMenu(const aName: string): TEWMenu;
+    function DestroyMenu(var aMenu: TEWMenu): boolean;
+  end;
+
+var
+  MenuManager: TEWMenuManager;
+
+procedure Register;
+implementation
+
+uses
+  Forms, SysUtils, Dialogs, uEWAbout, Graphics, uEWOTAHelpers_laz,IDEImagesIntf;
+
+
+procedure Register;
+begin
+  RegisterIDEMenuCommand(mnuHelp,'EverWood','About RemObjects Everwood',MenuManager.OnAboutClick)
+end;
+
+{ TEWMenuManager }
+
+{ TODO: use
+
+    procedure MenuBeginUpdate;
+    procedure MenuEndUpdate;
+}
+
+constructor TEWMenuManager.Create;
+begin
+  fMenus := TStringList.Create();
+end;
+
+procedure TEWMenuManager.Initialize;
+begin
+  // nothing, for compatibility with Delphi version
+end;
+
+destructor TEWMenuManager.Destroy;
+//var  i: Integer;
+begin
+(*  if Assigned(fMenus) then begin
+    for i := 0 to fMenus.Count-1 do begin
+      fMenus.Objects[i].Free();
+      fMenus.Objects[i] := nil;
+    end; { for }
+  end;      *)
+  FreeAndNil(fMenus);
+//  FreeAndNil(fEWMenu);
+end;
+
+function TEWMenuManager.CreateMenu(const aName: string): TEWMenu;
+var
+  lIndex: integer;
+begin
+  Initialize();
+  lIndex := fMenus.IndexOf(aName);
+  if lIndex > -1 then begin
+    Result := fMenus.Objects[lIndex] as TEWMenu
+  end
+  else begin
+    // similar to RegisterIDESubMenu
+    Result := TEWMenu.Create(aName);
+    Result.ChildsAsSubMenu:=true;
+    Result.SubMenuImages := IDEImages.Images_16;
+    fMenus.AddObject(aName, result);
+  end;
+end;
+
+
+function TEWMenuManager.DestroyMenu(var aMenu: TEWMenu): boolean;
+{var   lIndex: integer;}
+begin
+  // only static packages in lazarus
+  Result := (aMenu <> nil) and False;    // always false
+ {
+  Initialize();
+  lIndex := fMenus.IndexOfObject(aMenu);
+  if lIndex > -1 then begin
+    dec(aMenu.fRefCount);
+    if aMenu.fRefCount = 0 then begin
+      fMenus.Delete(lIndex);
+      aMenu.Free();
+      result := true;
+    end
+    else begin
+      result := false;
+    end;
+  end
+  else
+    result := false;
+  aMenu := nil;
+  }
+end;
+
+{ TEWMenu }
+
+constructor TEWMenu.Create(const aName: string);
+begin
+  inherited Create(aName);
+  Caption := aName;
+  OnClick := _OnPopup;
+  CreateMenuItem;
+  mnuMain.Insert(mnuWindow.SectionIndex, self);
+  fcat := RegisterIDECommandCategory(nil, Caption,'');
+  with CreateMenuItem('NOOPTIONS', -1, [pAny]) do begin
+    MenuItem.Enabled := false;
+  end;
+end;
+
+function TEWMenu.CreateMenuItem(const aCaption: string; aImageIndex: integer; aPersonality: TEWPersonalitySet; AutoAdd: boolean = True): TEWMenuItem;
+begin
+  // same as RegisterIDEMenuCommand
+  Result := TEWMenuItem.Create(aCaption);
+  Result.Caption := aCaption;
+  result.Personality := aPersonality;
+  Result.CreateMenuItem;
+  Result.MenuItem.ImageIndex:=aImageIndex;
+  if AutoAdd then Self.AddLast(Result);
+end;
+
+function TEWMenu.DestroyMenuItem(var aMenu: TEWMenuItem): boolean;
+begin
+  result := (aMenu<> nil) and false;
+end;
+
+procedure TEWMenu._OnPopup(aSender: TObject);
+var
+  i: integer;
+  lPersonality: TEWPersonality;
+  lAnyMenusVisible: boolean;
+begin
+  if assigned(fOnPopup) then fOnPopup(aSender); // aSender = Self
+
+  if CurrentProject <> nil then begin
+  {$IFDEF MSWINDOWS}
+    lPersonality := pLazarusWin;
+  {$ELSE}
+    lPersonality := pLazarusUnix;
+  {$ENDIF}
+    Items[0].Caption := '<No options available>';
+  end
+  else begin
+    lPersonality := pNone;
+    Items[0].Caption := '<No options available without open project>';
+  end;
+
+  lAnyMenusVisible := false;
+  for i := 1 to Count-1 do begin
+    if Items[i] is TEWMenuItem then begin
+      with (Items[i] as TEWMenuItem) do begin
+        Items[i].Visible := Visible and ((pAny in Personality) or (lPersonality in Personality));
+        if Items[i].Visible then lAnyMenusVisible := true;
+      end;
+    end;
+  end;
+
+  Items[0].Visible := not lAnyMenusVisible;
+end;
+
+function TEWMenu.GetOnPopup: TNotifyEvent;
+begin
+  Result := OnClick;
+end;
+
+procedure TEWMenu.SetOnPopup(const AValue: TNotifyEvent);
+begin
+  OnClick := AValue;
+end;
+
+{ TEWMenuItem }
+
+
+procedure TEWMenuManager.OnAboutClick(Sender: TObject);
+begin
+  with TAboutForm.Create(Application) do try
+    Position := poScreenCenter;
+    ShowModal();
+  finally
+    release();
+  end;
+end;
+
+procedure TEWMenuItem.SetGlyph(aImageList: TImageList; aIndex: integer);
+var
+  lBitmap: TBitmap;
+begin
+  lBitmap := TBitmap.Create();
+  try
+    aImageList.GetBitmap(aIndex ,lBitmap);
+    if Section.SubMenuImages <> nil then
+      MenuItem.ImageIndex := Section.SubMenuImages.AddMasked(lBitmap, clFuchsia);
+  finally
+    lBitmap.Free();
+  end;
+end;
+
+initialization
+  MenuManager := TEWMenuManager.Create();
+finalization
+  FreeAndNil(MenuManager);
+end.
+
+
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAHelpers.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAHelpers.pas
new file mode 100644
index 0000000..f74087c
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAHelpers.pas
@@ -0,0 +1,418 @@
+unit uEWOTAHelpers;
+
+{$I Everwood.inc}
+
+interface
+
+uses
+  {$IFDEF DELPHI5}ComObj,{$ENDIF}
+  ToolsAPI, Classes;
+
+function GetDelphiVersion: Integer;
+
+function GetDllPath: String;
+
+function ModuleServices: IOTAModuleServices;
+function CurrentProject: IOTAProject;
+function ProjectByName(const aName: string): IOTAProject;
+function CurrentProjectGroup: IOTAProjectGroup;
+
+function GetUniqueProjectFilename(aProject: IOTAProject; aName: string): string;
+
+function FindModuleByUnitName(const aProject: IOTAProject; const aModuleName: string): IOTAModule;
+
+function RemoveInitialT(const aString:string):string;
+function AddInitialT(const aString:string):string;
+
+function ProjectName: string;
+
+function LoadStringFromFile(iFilename:string):string;
+procedure SaveStringToFile(const iFilename,iString:string);
+
+function ReplaceVariables(const aString: string; aVariables: TStrings): string;
+
+function ReadModuleSource(const aModule: IOTAModule): string;
+procedure WriteModuleSource(const aModule: IOTAModule; const aCode, aHeader: string);
+procedure AddOrReplaceNamedModule(const aProject: IOTAProject; aName, aCode: string);
+
+function LanguageFromPersonality(aProject: IOTAProject): string;
+function LanguageFromPersonalityEx(aProject: IOTAProject): string;
+
+implementation
+
+uses {$IFDEF MSWINDOWS}Windows, ActiveX, {$ENDIF} SysUtils, Forms, uEWHelpers;
+
+function LoadStringFromFile(iFilename:string):string;
+{$IFDEF DELPHI2009UP}
+begin
+  With TStringList.Create do try
+    LoadFromFile(iFilename);
+    Result := Text;
+  finally
+    Free;
+  end;
+end;
+{$ELSE}
+var t:text;
+    s:string;
+begin
+  try
+    AssignFile(t,iFilename);
+    Reset(t);
+    try
+      result := '';
+      while not Eof(t) do begin
+        Readln(t,s);
+        result := result+s+#13#10;
+      end;
+    finally
+      CloseFile(t);
+    end;
+  except
+    on E:Exception do
+      raise EInOutError.Create('Error loading file '+iFilename+' ('+E.ClassName+': '+E.Message+')');
+  end;
+end;
+{$ENDIF}
+
+procedure SaveStringToFile(const iFilename,iString:string);
+{$IFDEF DELPHI2009UP}
+begin
+  With TStringList.Create do try
+    Text := iString;
+    SaveToFile(iFilename);
+  finally
+    free;
+  end;
+end;
+{$ELSE}
+var t:TextFile;
+begin
+  try
+    AssignFile(t,iFilename);
+    Rewrite(t);
+    try
+      Write(t,iString);
+    finally
+      CloseFile(t);
+    end;
+  except
+    on E:Exception do
+      raise EInOutError.Create('Error saving file '+iFilename+' ('+E.ClassName+': '+E.Message+')');
+  end;
+end;
+{$ENDIF}
+
+function NewGuid:TGUID;
+begin
+  {$IFDEF MSWINDOWS}
+  CoCreateGuid(result);
+  {$ENDIF MSWINDOWS}
+  {$IFDEF LINUX}
+  CreateGuid(result);
+  {$ENDIF}
+end;
+
+function NewGuidAsString:string;
+begin
+  result := GuidToString(NewGuid());
+end;
+
+function NewGuidAsStringNoBrackets:string;
+begin
+  result := GuidToString(NewGuid());
+  result := Copy(result,2,Length(result)-2);
+end;
+
+function ReplaceVariables(const aString: string; aVariables: TStrings): string;
+var
+  i:integer;
+begin
+  { No, this isn't efficient code. But given the fact that this is used at designtime and
+    in a place where the execution is abolutely not time-critical, clarity is preferable to
+    efficiency, imho. mh. }
+
+  result := aString;
+  if Assigned(aVariables) then begin
+    for i := 0 to aVariables.Count-1 do begin
+      result := StringReplace(result,'$('+aVariables.Names[i]+')',aVariables.Values[aVariables.Names[i]],[rfReplaceAll,rfIgnoreCase]);
+    end;
+  end;
+  result := StringReplace(result,'$(NewID)',NewGuidAsString(),[rfReplaceAll,rfIgnoreCase]);
+  result := StringReplace(result,'$(NewID2)',NewGuidAsStringNoBrackets(),[rfReplaceAll,rfIgnoreCase]);
+end;
+
+function ProjectName: string;
+var
+  lProjectName:string;
+begin
+  if Assigned(CurrentProject()) then begin
+    lProjectName := (CurrentProject as IOTAModule).FileName;
+    lProjectName := ChangeFileExt(ExtractFileName(lProjectName),'');
+  end
+  else begin
+    lProjectName := '';
+  end;
+  result := lProjectName;
+end;
+
+function RemoveInitialT(const aString:string):string;
+begin
+  result := aString;
+  if (result <> '') and (result[1] = 'T') then Delete(result,1,1);
+end;
+
+function AddInitialT(const aString:string):string;
+begin
+  result := aString;
+  if (result <> '') and (result[1] <> 'T') then result := 'T'+result;
+end;
+
+function GetDllPath: String;
+var TheFileName : array[0..MAX_PATH] of char;
+begin
+  FillChar(TheFileName, SizeOf(TheFileName), #0);
+  {$IFDEF KYLIX}System.{$ENDIF}GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
+  Result := ExtractFilePath(TheFileName);
+end;
+
+function ModuleServices: IOTAModuleServices;
+begin
+  result := (BorlandIDEServices as IOTAModuleServices);
+end;
+
+function CurrentProject: IOTAProject;
+var
+  services: IOTAModuleServices;
+  module: IOTAModule;
+  project: IOTAProject;
+  projectgroup: IOTAProjectGroup;
+  multipleprojects: Boolean;
+  i: Integer;
+begin
+  result := nil;
+
+  multipleprojects := False;
+  services := ModuleServices;
+
+  if (services = nil) then Exit;
+
+  for I := 0 to (services.ModuleCount - 1) do begin
+    module := services.Modules[I];
+    if (module.QueryInterface(IOTAProjectGroup, ProjectGroup) = S_OK) then begin
+      result := ProjectGroup.ActiveProject;
+      Exit;
+    end
+
+    else if module.QueryInterface(IOTAProject, Project) = S_OK then begin
+      if (result = nil) then
+        result := Project // Found the first project, so save it
+      else
+        multipleprojects := True; // It doesn't look good, but keep searching for a project group
+    end;
+  end;
+
+  if multipleprojects then result := nil;
+end;
+
+function ProjectByName(const aName: string): IOTAProject;
+var
+  services: IOTAModuleServices;
+  module: IOTAModule;
+  project: IOTAProject;
+  i: Integer;
+begin
+  result := nil;
+
+  services := ModuleServices;
+
+  if (services = nil) then Exit;
+
+  for I := 0 to (services.ModuleCount - 1) do begin
+    module := services.Modules[I];
+    if module.QueryInterface(IOTAProject, Project) = S_OK then begin
+      if module.FileName = aName then begin
+        result := Project;
+        exit;
+      end;
+    end;
+  end;
+end;
+
+function CurrentProjectGroup: IOTAProjectGroup;
+var
+  services: IOTAModuleServices;
+  i: Integer;
+begin
+  Result := nil;
+  services := ModuleServices;
+  for i := 0 to ModuleServices.ModuleCount - 1 do begin
+    if Supports(ModuleServices.Modules[i], IOTAProjectGroup, Result) then begin
+      Break;
+    end;
+  end;
+end;
+
+function GetUniqueProjectFilename(aProject: IOTAProject; aName: string): string;
+var
+  lBaseName, lName: string;
+  lCount: integer;
+
+  function ProjectHasFile: boolean;
+  var
+    i: integer;
+  begin
+    result := false;
+    for i := 0 to aProject.GetModuleCount-1 do begin
+      if (aProject.GetModule(i).Name = lName) or (aProject.GetModule(i).Name = ChangeFileExt(lName, '')) then begin
+        result := true;
+        break;
+      end;
+    end;
+  end;
+
+begin
+  lName := aName;
+  lBaseName := ChangeFileExt(aName, '');
+  lCount := 0;
+  while ProjectHasFile() do begin
+    inc(lCount);
+    lName := lBaseName+IntToStr(lCount)+ExtractFileExt(aName);
+  end;
+  result := lName;
+end;
+
+function FindModuleByUnitName(const aProject: IOTAProject; const aModuleName: string): IOTAModule;
+var
+  i: integer;
+begin
+  result := nil;
+  for i := 0 to aProject.GetModuleCount - 1 do
+    if (CompareText(ExtractFileName(aModuleName), ExtractFileName(aProject.GetModule(i).FileName)) = 0) then begin
+      result := aProject.GetModule(i).OpenModule;
+      Exit;
+    end;
+end;
+
+
+const
+  MaxSourceSize = 10000;
+
+function ReadModuleSource(const aModule: IOTAModule): String;
+var
+  l, i: integer;
+  editor: IOTASourceEditor;
+  reader: IOTAEditReader;
+  lSource: AnsiString;
+begin
+  result := '';
+  with aModule do
+    for i := 0 to GetModuleFileCount - 1 do begin
+      if Supports(GetModuleFileEditor(i), IOTASourceEditor, editor) then begin
+        // TODO: find a way not to depend on files smaller than 10k... I only use this for DPRs so it's fine for now
+        SetLength(lSource, MaxSourceSize);
+        //l := 0; to remove warning
+
+        reader := editor.CreateReader;
+        l := reader.GetText(0, @lSource[1], MaxSourceSize);
+        reader := nil;
+        SetLength(lSource, l);
+
+        result := {$IFDEF DELPHI2009UP}UTF8ToString{$ENDIF}(lSource);
+        Exit;
+      end;
+    end;
+end;
+
+procedure WriteModuleSource(const aModule: IOTAModule; const aCode, aHeader: string);
+var
+  i: integer;
+  lEditor: IOTASourceEditor;
+  writer: IOTAEditWriter;
+begin
+  with aModule do begin
+    for i := 0 to GetModuleFileCount - 1 do begin
+      if Supports(GetModuleFileEditor(i), IOTASourceEditor, lEditor) then begin
+        if LowerCase(ExtractFileExt(GetModuleFileEditor(i).FileName)) = '.h' then begin
+          if aHeader <> '' then begin
+            writer := lEditor.CreateWriter;
+            writer.DeleteTo(MaxInt);
+            writer.Insert(PAnsiChar({$IFDEF DELPHI2009UP}UTF8Encode{$ENDIF}(aHeader)));
+            writer := nil;
+          end;
+        end
+        else begin
+          writer := lEditor.CreateWriter;
+          writer.DeleteTo(MaxInt);
+          writer.Insert(PAnsiChar({$IFDEF DELPHI2009UP}UTF8Encode{$ENDIF}(aCode)));
+          writer := nil;
+        end;
+      end;
+    end;
+  end;
+end;
+
+procedure AddOrReplaceNamedModule(const aProject: IOTAProject; aName, aCode: string);
+var
+  lModule: IOTAModule;
+begin
+  lModule := FindModuleByUnitName(aProject, aName);
+  if assigned(lModule) then begin
+    WriteModuleSource(lModule, aCode, '');
+  end
+  else begin
+    aName :=  ExtractFilePath(CurrentProject.FileName)+aName;
+    SaveStringToFile(aName, aCode);
+    CurrentProject.AddFile(aName, true);
+    lModule := FindModuleByUnitName(CurrentProject, aName);
+    {$IFDEF DELPHI9UP}
+    if assigned(lModule) then lModule.Show();
+    {$ENDIF DELPHI9UP}
+  end;
+end;
+
+function GetDelphiVersion: Integer;
+begin
+{$IFDEF DELPHI5}
+  result := 5;
+{$ELSE}
+{$IFDEF DELPHI2007}
+  result := 11;
+{$ELSE}
+{$IFDEF DELPHI2010}
+  result := 14;
+{$ELSE}
+  result := Trunc(RTLVersion)-8;
+{$ENDIF}
+{$ENDIF}
+{$ENDIF}
+end;
+
+function LanguageFromPersonality(aProject: IOTAProject): string;
+{$IFDEF BDS}
+var s: string;
+{$ENDIF}
+begin
+  {$IFDEF BDS}
+  s := aProject.Personality;
+  if s = sDelphiPersonality then result := 'Delphi for Win32'
+  else if s = sDelphiDotNetPersonality then result := 'Delphi for .NET'
+  else if s = sCSharpPersonality then result := 'C#'
+  else if s = sVBPersonality then result := 'Visual Basic'
+  else if s = sCBuilderPersonality then result := 'C++'
+  else result := 'Unknown';
+  {$ELSE}
+  result := 'Delphi for Win32';
+  {$ENDIF}
+end;
+
+function LanguageFromPersonalityEx(aProject: IOTAProject): string;
+begin
+  result := LanguageFromPersonality(aProject);
+  {$IFDEF BDS}
+  if result = 'Delphi for .NET' then
+    result := result+'/'+IntToStr(GetDelphiVersion);
+  {$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAHelpers_laz.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAHelpers_laz.pas
new file mode 100644
index 0000000..14766f3
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAHelpers_laz.pas
@@ -0,0 +1,242 @@
+unit uEWOTAHelpers_laz;
+
+{$I Everwood.inc}
+
+interface
+
+uses
+  LazIDEIntf, ProjectIntf, SrcEditorIntf, Classes;
+
+function GetDllPath: String;
+function CurrentProject: TLazProject;
+function ProjectByName(const aName: string): TLazProject;
+
+function GetUniqueProjectFilename(aProject: TLazProject; aName: string): string;
+
+function FindModuleByUnitName(const aProject: TLazProject; const aModuleName: string): TLazProjectFile;
+
+function RemoveInitialT(const aString:string):string;
+function AddInitialT(const aString:string):string;
+
+function ProjectName: string;
+
+function LoadStringFromFile(iFilename:string):string;
+procedure SaveStringToFile(const iFilename,iString:string);
+
+function ReplaceVariables(const aString: string; aVariables: TStrings): string;
+
+function ReadModuleSource(const aModule: TLazProjectFile): string;
+procedure WriteModuleSource(const aModule: TLazProjectFile; const aCode, aHeader: string);
+procedure AddOrReplaceNamedModule(const aProject: TLazProject; aName, aCode: string);
+
+implementation
+
+uses {$IFDEF MSWINDOWS}Windows, ActiveX, {$ENDIF} SysUtils;
+
+function LoadStringFromFile(iFilename:string):string;
+var t:text;
+    s:string;
+begin
+  try
+    AssignFile(t,iFilename);
+    Reset(t);
+    try
+      result := '';
+      while not Eof(t) do begin
+        Readln(t,s);
+        result := result+s+#13#10;
+      end;
+    finally
+      CloseFile(t);
+    end;
+  except
+    on E:Exception do
+      raise EInOutError.Create('Error loading file '+iFilename+' ('+E.ClassName+': '+E.Message+')');
+  end;
+end;
+
+procedure SaveStringToFile(const iFilename,iString:string);
+var t:TextFile;
+begin
+  try
+    AssignFile(t,iFilename);
+    Rewrite(t);
+    try
+      Write(t,iString);
+    finally
+      CloseFile(t);
+    end;
+  except
+    on E:Exception do
+      raise EInOutError.Create('Error saving file '+iFilename+' ('+E.ClassName+': '+E.Message+')');
+  end;
+end;
+
+function NewGuid:TGUID;
+begin
+  {$IFDEF MSWINDOWS}
+  CoCreateGuid(result);
+  {$ENDIF MSWINDOWS}
+  {$IFDEF LINUX}
+  CreateGuid(result);
+  {$ENDIF}
+end;
+
+function NewGuidAsString:string;
+begin
+  result := GuidToString(NewGuid());
+end;
+
+function NewGuidAsStringNoBrackets:string;
+begin
+  result := GuidToString(NewGuid());
+  result := Copy(result,2,Length(result)-2);
+end;
+
+function ReplaceVariables(const aString: string; aVariables: TStrings): string;
+var
+  i:integer;
+begin
+  { No, this isn't efficient code. But given the fact that this is used at designtime and
+    in a place where the execution is abolutely not time-critical, clarity is preferable to
+    efficiency, imho. mh. }
+
+  result := aString;
+  if Assigned(aVariables) then begin
+    for i := 0 to aVariables.Count-1 do begin
+      result := StringReplace(result,'$('+aVariables.Names[i]+')',aVariables.Values[aVariables.Names[i]],[rfReplaceAll,rfIgnoreCase]);
+    end;
+  end;
+  result := StringReplace(result,'$(NewID)',NewGuidAsString(),[rfReplaceAll,rfIgnoreCase]);
+  result := StringReplace(result,'$(NewID2)',NewGuidAsStringNoBrackets(),[rfReplaceAll,rfIgnoreCase]);
+end;
+
+function ProjectName: string;
+begin
+  if Assigned(CurrentProject) and Assigned(CurrentProject.MainFile) then
+    Result := ChangeFileExt(ExtractFileName(CurrentProject.MainFile.Filename),'')
+  else
+    Result := '';
+end;
+
+function RemoveInitialT(const aString:string):string;
+begin
+  result := aString;
+  if (result <> '') and (result[1] = 'T') then Delete(result,1,1);
+end;
+
+function AddInitialT(const aString:string):string;
+begin
+  result := aString;
+  if (result <> '') and (result[1] <> 'T') then result := 'T'+result;
+end;
+
+function GetDllPath: String;
+{$IFDEF MSWINDOWS}
+var
+  TheFileName : array[0..MAX_PATH] of char;
+{$ENDIF}
+begin
+  {$IFDEF MSWINDOWS}
+  {$IFDEF FPC}
+  TheFileName[0]:=#0;
+  {$ENDIF}
+  FillChar(TheFileName, SizeOf(TheFileName), #0);
+  GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
+  Result := ExtractFilePath(TheFileName);
+  {$ELSE}
+  Result := '';
+  {$ENDIF}
+end;
+
+function CurrentProject: TLazProject;
+begin
+  result := LazarusIDE.ActiveProject;
+end;
+
+function ProjectByName(const aName: string): TLazProject;
+begin
+  if CurrentProject.MainFile.Filename = aName then
+    Result := CurrentProject
+  else
+    Result := nil;
+end;
+
+
+function GetUniqueProjectFilename(aProject: TLazProject; aName: string): string;
+var
+  lBaseName, lName: string;
+  lCount: integer;
+
+  function ProjectHasFile: boolean;
+  var
+    i: integer;
+  begin
+    result := false;
+    for i := 0 to aProject.FileCount - 1 do begin
+      if (aProject.Files[i].Filename = lName) or (aProject.Files[i].Filename = ChangeFileExt(lName, '')) then begin
+        result := true;
+        break;
+      end;
+    end;
+  end;
+
+begin
+  lName := aName;
+  lBaseName := ChangeFileExt(aName, '');
+  lCount := 0;
+  while ProjectHasFile() do begin
+    inc(lCount);
+    lName := lBaseName+IntToStr(lCount)+ExtractFileExt(aName);
+  end;
+  result := lName;
+end;
+
+function FindModuleByUnitName(const aProject: TLazProject; const aModuleName: string): TLazProjectFile;
+begin
+  Result := aProject.FindFile(aModuleName,[pfsfOnlyProjectFiles]);
+end;
+
+function ReadModuleSource(const aModule: TLazProjectFile): string;
+begin
+  result := aModule.GetSourceText;
+end;
+
+procedure WriteModuleSource(const aModule: TLazProjectFile; const aCode, aHeader: string);
+var
+  l: TSourceEditorInterface;
+  i: integer;
+begin
+    with TStringList.Create do try
+      Text:= aCode;
+      SaveToFile(aModule.Filename);
+    finally
+      Free;
+    end;
+    if SourceEditorWindow.SourceEditorIntfWithFilename(aModule.Filename) = nil then
+      LazarusIDE.DoOpenEditorFile(aModule.Filename,-1,[ofOnlyIfExists]);
+    for i := 0 to SourceEditorWindow.Count-1 do begin
+      if SourceEditorWindow.Items[i].GetProjectFile = aModule then begin
+        LazarusIDE.DoOpenEditorFile(aModule.Filename,i,[ofRevert]);
+        break;
+      end;
+    end;
+end;
+
+procedure AddOrReplaceNamedModule(const aProject: TLazProject; aName, aCode: string);
+var
+  lModule: TLazProjectFile;
+begin
+  lModule := FindModuleByUnitName(aProject, aName);
+  if assigned(lModule) then begin
+    WriteModuleSource(lModule, aCode, '');
+  end
+  else begin
+    aName :=  ExtractFilePath(CurrentProject.MainFile.Filename)+aName;
+    SaveStringToFile(aName, aCode);
+    lModule:= CurrentProject.CreateProjectFile(aName);
+    CurrentProject.AddFile(lModule, False);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAMessages.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAMessages.pas
new file mode 100644
index 0000000..13097d0
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAMessages.pas
@@ -0,0 +1,56 @@
+unit uEWOTAMessages;
+
+{$INCLUDE eDefines.inc}
+
+interface
+
+procedure ClearIDEMessages(const aGroupName: string);
+procedure AddIDEMessage(const aGroupName: string; const aMessageStr: string; aLine : integer = -1; aColumn: integer = -1; const aFileName: string = ''; const aPrefixStr: string = '');
+
+implementation
+
+uses
+  ToolsAPI;
+
+{$IFDEF DELPHI7UP}
+procedure ClearIDEMessages(const aGroupName: string);
+var
+  lGroup: IOTAMessageGroup;
+begin
+  with BorlandIDEServices as IOTAMessageServices60 do begin
+    lGroup := GetGroup(aGroupName);
+    if Assigned(lGroup) then
+      RemoveMessageGroup(lGroup);
+  end;
+end;
+
+procedure AddIDEMessage(const aGroupName: string; const aMessageStr: string; aLine: integer = -1; aColumn: integer = -1; const aFileName: string = ''; const aPrefixStr: string = '');
+var
+  lGroup: IOTAMessageGroup;
+  lDummyLineRef: pointer;
+  lPrefix: string;
+begin
+  with BorlandIDEServices as IOTAMessageServices60 do begin
+    lGroup := GetGroup(aGroupName);
+    ShowMessageView(lGroup);
+    if not Assigned(lGroup) then lGroup := AddMessageGroup(aGroupName);
+
+    lPrefix := aPrefixStr;
+    if lPrefix = '' then lPrefix := 'Note';
+    AddToolMessage(aFilename, aMessageStr, lPrefix, aLine, aColumn, nil, lDummyLineRef, lGroup);
+  end;
+end;
+
+{$ELSE}
+
+procedure ClearIDEMessages(const aGroupName: string);
+begin
+end;
+
+procedure AddIDEMessage(const aGroupName: string; const aMessageStr: string; aLine : integer = -1; aColumn: integer = -1; const aFileName: string = ''; const aPrefixStr: string = '');
+begin
+end;
+
+{$ENDIF}
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTANewModuleExpert.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTANewModuleExpert.pas
new file mode 100644
index 0000000..bd6e6ea
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTANewModuleExpert.pas
@@ -0,0 +1,16 @@
+unit uEWOTANewModuleExpert;
+
+interface
+
+uses
+  {$IFDEF DELPHI5}DsgnIntf,{$ENDIF}
+  {$IFDEF DELPHI6UP}DesignEditors,{$ENDIF}
+  ToolsAPI, Classes, uEWOTARepositoryExpert;
+
+type
+  TEWNewModuleExpert = class(TEWRepositoryExpert, IOTAFormWizard)
+  end;
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTANewProjectExpert.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTANewProjectExpert.pas
new file mode 100644
index 0000000..a089160
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTANewProjectExpert.pas
@@ -0,0 +1,16 @@
+unit uEWOTANewProjectExpert;
+
+interface
+
+uses
+  {$IFDEF DELPHI5}DsgnIntf,{$ENDIF}
+  {$IFDEF DELPHI6UP}DesignEditors,{$ENDIF}
+  ToolsAPI, Classes, uEWOTARepositoryExpert;
+
+type
+  TEWNewProjectExpert = class(TEWRepositoryExpert, IOTAProjectWizard)
+  end;
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTARepositoryExpert.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTARepositoryExpert.pas
new file mode 100644
index 0000000..7b7ecde
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTARepositoryExpert.pas
@@ -0,0 +1,284 @@
+unit uEWOTARepositoryExpert;
+
+{$I Everwood.inc}
+
+interface
+
+uses
+  {$IFDEF DELPHI5}DsgnIntf,{$ENDIF}
+  {$IFDEF DELPHI6UP}DesignEditors,{$ENDIF}
+  Windows, Classes, ToolsAPI;
+
+{$IFNDEF BDS}
+const
+  sDelphiPersonality = 'Delphi.Personality';
+{$ENDIF}
+
+{$IFDEF DELPHI5}
+  dAny = 'Any';
+{$ENDIF}
+
+type
+  TEWRepositoryExpert = class(TInterfacedObject, IOTAWizard, IOTARepositoryWizard{$IFDEF DELPHI6UP}, IOTARepositoryWizard60{$ENDIF} {$IFDEF BDS}, IOTARepositoryWizard80{$ENDIF})
+  private
+    fIcon: Cardinal;
+    fPersonality: string;
+  protected
+    procedure AfterSave; virtual;
+    procedure BeforeSave; virtual;
+    procedure Destroyed; virtual;
+    procedure Modified; virtual;
+
+    procedure Execute; virtual;
+    function GetAuthor: String; virtual;
+    function GetComment: String; virtual;
+    function GetGlyph: {$IFDEF DELPHI5}HICON{$ELSE}Cardinal{$ENDIF};
+    function GetIDString: String;
+    function GetInternalIDString: String; virtual; abstract;
+    function GetName: String; virtual; abstract;
+    function GetPage: String; virtual; abstract;
+    function GetState: TWizardState; virtual;
+    function GetDesigner: String; virtual;
+
+    {$IFDEF BDS}
+    function GetGalleryCategory: IOTAGalleryCategory; virtual;
+    {$ENDIF}
+    function GetPersonality: string; virtual;
+
+    function LoadGlyph: Cardinal; virtual;
+
+    function CreateNewModuleFromTemplateFile(const aTemplateFile: string; const aName, aAncestor: string; aVariables: TStrings=nil):IOTAModule;
+    function CreateNewModuleFromString(const aTemplateString: string; const aName, aAncestor: string; aVariables: TStrings=nil):IOTAModule;
+    function CreateNewProject:IOTAProject;
+    function CreateNewProjectFromTemplateFile(aTemplateFile: string; aProjectFileName: string; aVariables: TStrings=nil):IOTAProject;
+    function CreateNewProjectFromTemplateFolder(const aTemplateFileName: string; const aProjectFileName: string; aVariables: TStrings=nil):IOTAProject;
+
+  public
+    constructor Create(aPersonality: string = sDelphiPersonality);
+  end;
+
+
+implementation
+
+uses
+  SysUtils, uEWOTAWizards, Dialogs, uEWOTAHelpers;
+
+{ TEWRepositoryExpert }
+
+procedure TEWRepositoryExpert.AfterSave;
+begin
+
+end;
+
+procedure TEWRepositoryExpert.BeforeSave;
+begin
+
+end;
+
+constructor TEWRepositoryExpert.Create(aPersonality: string);
+begin
+  fPersonality := aPersonality;
+end;
+
+function TEWRepositoryExpert.CreateNewModuleFromString(const aTemplateString, aName, aAncestor: string; aVariables: TStrings): IOTAModule;
+var
+  lModuleServices: IOTAModuleServices;
+//  lSourceTemplate,lDfmTemplate: string;
+//  lDfmTemplateFile: string;
+begin
+  if BorlandIDEServices.QueryInterface(IOTAModuleServices, lModuleServices) = S_OK then
+    result := lModuleServices.CreateModule(TEWFormCreator.Create(aTemplateString,
+                                                                 '',
+                                                                 aName, aAncestor, aVariables));
+end;
+
+function TEWRepositoryExpert.CreateNewModuleFromTemplateFile(const aTemplateFile: string; const aName, aAncestor: string; aVariables: TStrings):IOTAModule;
+var
+  lModuleServices: IOTAModuleServices;
+  lSourceTemplate,lDfmTemplate: string;
+  lDfmTemplateFile: string;
+begin
+  lSourceTemplate := LoadStringFromFile(aTemplateFile);
+
+  lDfmTemplate := '';
+  lDfmTemplateFile := ChangeFileExt(aTemplateFile,'.dfm');
+  if FileExists(lDfmTemplateFile) then begin
+    lDfmTemplate := LoadStringFromFile(lDfmTemplateFile);
+  end;
+
+  if BorlandIDEServices.QueryInterface(IOTAModuleServices, lModuleServices) = S_OK then
+    result := lModuleServices.CreateModule(TEWFormCreator.Create(lSourceTemplate,
+                                                                 lDfmTemplate,
+                                                                 aName, aAncestor, aVariables));
+end;
+
+function TEWRepositoryExpert.CreateNewProject: IOTAProject;
+var
+  lModuleServices: IOTAModuleServices;
+begin
+  if BorlandIDEServices.QueryInterface(IOTAModuleServices, lModuleServices) = S_OK then
+    result := lModuleServices.CreateModule(TEWProjectCreator.Create('', '', nil)) as IOTAProject;
+end;
+
+function TEWRepositoryExpert.CreateNewProjectFromTemplateFile(aTemplateFile: string; aProjectFileName: string; aVariables: TStrings): IOTAProject;
+{$IFNDEF BDS}
+var
+  lModuleServices: IOTAModuleServices;
+{$ENDIF}
+begin
+  result := NIL;
+  {$IFDEF BDS} // AleF: Fixed a typo here. It said BSD!!!
+  aProjectFileName := ChangeFileExt(aProjectFileName, '.bdsproj');
+  if FileExists(aProjectFileName) then begin
+    (BorlandIDEServices as IOTAActionServices).OpenProject(aProjectFileName, false); // Vynnyk: Rolled back - because not compilable
+     result := (BorlandIDEServices as IOTAModuleServices).GetActiveProject;
+  end;
+  {$ELSE}
+  if BorlandIDEServices.QueryInterface(IOTAModuleServices, lModuleServices) = S_OK then begin
+    result := lModuleServices.CreateModule(TEWProjectCreator.Create(aTemplateFile, aProjectFileName, aVariables)) as IOTAProject;
+  end;
+  {$ENDIF}
+end;
+
+function TEWRepositoryExpert.CreateNewProjectFromTemplateFolder(const aTemplateFileName: string; const aProjectFileName: string; aVariables: TStrings): IOTAProject;
+var
+  lString, lName, lFileExt: string;
+  lOk: dword;
+  lTemplateFolder, lProjectFolder: string;
+  lSearch: TSearchRec;
+begin
+  lTemplateFolder := ExtractFilePath(aTemplateFileName);
+  lProjectFolder := ExtractFilePath(aProjectFileName);
+
+  if not FileExists(aTemplateFileName) then
+    raise Exception.Create('Template not found at '+ExtractFilePath(aTemplateFileName));
+
+  lOk := FindFirst(lTemplateFolder+'*.*',faAnyFile,lSearch);
+  try
+    while lOk = 0 do try
+      if (lSearch.Attr and faDirectory) = 0 then begin
+        {$IFNDEF BDS}
+        if ExtractFileExt(lSearch.Name) = '.bdsproj' then
+          Continue;
+        {$ENDIF}
+
+        lFileExt := ExtractFileExt(lSearch.Name);
+        lName := ReplaceVariables(lSearch.Name, aVariables);
+        if SameText(lFileExt,'.res') then begin
+          CopyFile(pChar(lTemplateFolder+lSearch.Name), pChar(lProjectFolder+lName),false);
+        end
+        else begin
+          lString := ReplaceVariables(LoadStringFromFile(lTemplateFolder+lSearch.Name), aVariables);
+          SaveStringToFile(lProjectFolder+lName,lString);
+        end;
+      end;
+    finally
+      lOk := FindNext(lSearch);
+    end;    { while }
+  finally
+    FindClose(lSearch);
+  end;
+  result := CreateNewProjectFromTemplateFile(aTemplateFileName, aProjectFileName, aVariables);
+end;
+
+procedure TEWRepositoryExpert.Destroyed;
+begin
+end;
+
+procedure TEWRepositoryExpert.Execute;
+begin
+end;
+
+function TEWRepositoryExpert.GetAuthor: String;
+begin
+  result := 'RemObjects Software'
+end;
+
+function TEWRepositoryExpert.GetComment: String;
+begin
+
+end;
+
+function TEWRepositoryExpert.GetDesigner: String;
+begin
+  Result := dAny;
+end;
+
+function TEWRepositoryExpert.GetGlyph: {$IFDEF DELPHI5}HICON{$ELSE}Cardinal{$ENDIF};
+begin
+  { We'll cache the Glpyh locally so it won't be loaded again and again.
+    Apparently Delphi doesn't free the Glpyh, so this would leak otherwise }
+
+  if fIcon = 0 then fIcon := LoadGlyph();
+  result := fIcon;
+end;
+
+function TEWRepositoryExpert.GetIDString: String;
+begin
+  result := GetInternalIDString+'.'+fPersonality;
+end;
+
+function TEWRepositoryExpert.LoadGlyph: Cardinal;
+begin
+  result := LoadIcon(hInstance,'EverwoodWizardStandardIcon');
+end;
+
+
+function TEWRepositoryExpert.GetState: TWizardState;
+begin
+  result := [wsEnabled];
+end;
+
+procedure TEWRepositoryExpert.Modified;
+begin
+
+end;
+
+{$IFDEF BDS}
+function TEWRepositoryExpert.GetGalleryCategory: IOTAGalleryCategory;
+var
+  lGalleryCategory: string;
+  lGalleryManager: IOTAGalleryCategoryManager;
+  lGallery: IOTAGalleryCategory;
+begin
+  if fPersonality = sDelphiPersonality then
+    lGalleryCategory := sCategoryDelphiNew
+  else if fPersonality = sCBuilderPersonality then
+    lGalleryCategory := sCategoryCBuilderNew
+  else if fPersonality = sDelphiDotNetPersonality then
+    lGalleryCategory := sCategoryDelphiDotNetNew
+  else if fPersonality = sCSharpPersonality then
+    lGalleryCategory := sCategoryCSharpNew
+  else if fPersonality = sVBPersonality then
+    lGalleryCategory := sCategoryVBNew
+  else
+    exit;
+
+  lGalleryManager := (BorlandIDEServices as IOTAGalleryCategoryManager);
+
+  lGallery := lGalleryManager.FindCategory(lGalleryCategory);
+  if assigned(lGallery) then begin
+
+    if fPersonality = sVBPersonality then
+      ShowMessage(lGalleryCategory+' '+fPersonality+' '+GetName+ ' - '+lGallery.DisplayName);
+
+    result := lGalleryManager.FindCategory(GetPage());
+    if not assigned(result) then begin
+      lGalleryManager.AddCategory(lGallery, GetPage()+'.'+fPersonality, GetPage());
+    end;
+  end
+  else begin
+    result := lGalleryManager.FindCategory(sCategoryGalileoOther);
+  end;
+
+end;
+{$ENDIF}
+
+function TEWRepositoryExpert.GetPersonality: string;
+begin
+  result := fPersonality;
+end;
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAWizards.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAWizards.pas
new file mode 100644
index 0000000..987617c
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWOTAWizards.pas
@@ -0,0 +1,345 @@
+unit uEWOTAWizards;
+
+{----------------------------------------------------------------------------}
+{ RemObjects' Everwood - IDE Library
+{
+{ compiler: Delphi 6 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of Everwood
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$I Everwood.inc}
+
+interface
+
+uses
+  {$IFDEF DELPHI5}DsgnIntf,{$ENDIF}
+  {$IFDEF DELPHI6UP}DesignEditors,{$ENDIF}
+  SysUtils, Classes,
+  Dialogs, ToolsAPI;
+
+type
+  TEWSourceFile = class(TInterfacedObject, IOTAFile)
+  private
+    fAge: TDateTime;
+    fSource:string;
+  public
+    function GetSource: string;
+    function GetAge: TDateTime;
+    constructor Create(const iSource:string);
+  end;
+
+  TEWCreator = class(TInterfacedObject, IOTACreator)
+  private
+    fVariables: TStrings;
+    fAncestorName: String;
+    fName: string;
+  public
+    constructor Create(const aName, aAncestorName:string; aVariables:TStrings);
+    destructor Destroy; override;
+
+    function GetCreatorType: string; virtual; abstract;
+    function GetExisting: Boolean;
+    function GetFileSystem: string;
+    function GetOwner: IOTAModule; virtual;
+    function GetUnnamed: Boolean; virtual;
+
+    function CreateOTAFile(const aTemplate: string; const ModuleIdent: string=''; const FormIdent: string =''; const AncestorIdent: string=''): IOTAFile;
+
+  end;
+
+  TEWFormCreator = class(TEWCreator, IOTAModuleCreator)
+  public
+    constructor Create(const aCodeTemplate, aDfmTemplate, aName, aAncestor:string; aVariables:TStrings);
+
+    function GetCreatorType: string; override;
+
+    function GetAncestorName: string;
+    function GetImplFileName: string;
+    function GetIntfFileName: string;
+    function GetFormName: string;
+    function GetMainForm: Boolean;
+    function GetShowForm: Boolean;
+    function GetShowSource: Boolean;
+    function NewFormFile(const FormIdent, AncestorIdent: string): IOTAFile;
+    function NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+    function NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+
+    procedure FormCreated(const FormEditor: IOTAFormEditor);
+
+  private
+    fCodeTemplate, fDfmTemplate: String;
+  end;
+
+  TEWProjectCreator = class(TEWCreator, IOTAProjectCreator, IOTAProjectCreator50{$IFDEF BDS}, IOTAProjectCreator80{$ENDIF})
+  public
+    constructor Create(const aCodeTemplateFile, aName:string; aVariables:TStrings);
+
+    function GetCreatorType: string; override;
+    function GetOwner: IOTAModule; override;
+    function GetUnnamed: Boolean; override;
+
+    function GetFileName: string;
+    function GetOptionFileName: string;
+    function GetShowSource: Boolean;
+    procedure NewDefaultModule;
+    function NewOptionSource(const ProjectName: string): IOTAFile;
+    procedure NewProjectResource(const Project: IOTAProject);
+    function NewProjectSource(const ProjectName: string): IOTAFile;
+
+    procedure NewDefaultProjectModule(const Project: IOTAProject); virtual;
+
+    {$IFDEF BDS}
+    function GetProjectPersonality: string;
+    {$ENDIF}
+
+  private
+    fCodeTemplateFile: string;
+  end;
+
+implementation
+
+uses
+  uEWOTAHelpers, Windows;
+
+{ TEWCreator }
+
+constructor TEWCreator.Create(const aName, aAncestorName:string; aVariables:TStrings);
+begin
+  fName := aName;
+  fAncestorName := aAncestorName;
+  fVariables := aVariables;
+end;
+
+destructor TEWCreator.Destroy;
+begin
+  inherited;
+end;
+
+function TEWCreator.GetExisting: Boolean;
+begin
+  result := false;
+end;
+
+function TEWCreator.GetFileSystem: string;
+begin
+  result := '';
+end;
+
+function TEWCreator.GetOwner: IOTAModule;
+begin
+  result := CurrentProject();
+end;
+
+function TEWCreator.GetUnnamed: Boolean;
+begin
+  result := true;
+end;
+
+function TEWCreator.CreateOTAFile(const aTemplate: string; const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+var
+  i: integer;
+  lCode: string;
+begin
+  lCode := aTemplate;
+
+  { No, this isn't efficient code. But given the fact that this is used at designtime and
+    in a place where the execution is abolutely not time-critical, clarity is preferable to
+    efficiency, imho. mh. }
+
+  if ModuleIdent <> '' then begin
+    lCode := StringReplace(lCode,'$(Module)',ModuleIdent,[rfReplaceAll,rfIgnoreCase]);
+  end;
+  if FormIdent <> '' then begin
+    lCode := StringReplace(lCode,'$(FormName)',RemoveInitialT(FormIdent),[rfReplaceAll,rfIgnoreCase]);
+    lCode := StringReplace(lCode,'$(FormClass)',AddInitialT(FormIdent),[rfReplaceAll,rfIgnoreCase]);
+  end;
+  if AncestorIdent <> ''then begin
+    lCode := StringReplace(lCode,'$(Ancestor)',AncestorIdent,[rfReplaceAll,rfIgnoreCase]);
+  end;
+  lCode := StringReplace(lCode,'$(Project)',ProjectName,[rfReplaceAll,rfIgnoreCase]);
+  if Assigned(fVariables) then begin
+    for i := 0 to fVariables.Count-1 do begin
+      lCode := StringReplace(lCode,'$('+fVariables.Names[i]+')',fVariables.Values[fVariables.Names[i]],[rfReplaceAll,rfIgnoreCase]);
+    end;
+  end;
+  lCode := StringReplace(lCode,'$((','$(',[rfReplaceAll,rfIgnoreCase]);
+  {$IFDEF DEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+  ShowMessage(lCode);
+  {$ENDIF DEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+  result := TEWSourceFile.Create(lCode);
+end;
+
+{ TEWFormCreator }
+
+constructor TEWFormCreator.Create(const aCodeTemplate, aDfmTemplate, aName, aAncestor: string; aVariables: TStrings);
+begin
+  inherited Create(aName, aAncestor, aVariables);
+  fCodeTemplate := aCodeTemplate;
+  fDfmTemplate := aDfmTemplate;
+end;
+
+function TEWFormCreator.GetCreatorType: string;
+begin
+  result := sForm;
+end;
+
+procedure TEWFormCreator.FormCreated(const FormEditor: IOTAFormEditor);
+begin
+
+end;
+
+function TEWFormCreator.GetAncestorName: string;
+begin
+  result := fAncestorName;
+end;
+
+function TEWFormCreator.GetFormName: string;
+begin
+  result := '';
+end;
+
+function TEWFormCreator.GetImplFileName: string;
+begin
+  result := IncludeTrailingBackslash(ExtractFilePath(CurrentProject.FileName))+GetUniqueProjectFilename(CurrentProject, fName);
+end;
+
+function TEWFormCreator.GetIntfFileName: string;
+begin
+  result := '';
+end;
+
+function TEWFormCreator.GetMainForm: Boolean;
+begin
+  result := false;
+end;
+
+function TEWFormCreator.GetShowForm: Boolean;
+begin
+  result := true;
+end;
+
+function TEWFormCreator.GetShowSource: Boolean;
+begin
+  result := true;
+end;
+
+function TEWFormCreator.NewFormFile(const FormIdent, AncestorIdent: string): IOTAFile;
+begin
+  {$IFDEF DEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+  ShowMessage('dfm: '+FormIdent+' - '+AncestorIdent);
+  {$ENDIF DEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+  result := TEWSourceFile.Create(Format(fDfmTemplate,['',RemoveInitialT(FormIdent),ProjectName]));
+  result := CreateOTAFile(fDfmTemplate, '$(Module)', FormIdent, AncestorIdent);
+end;
+
+function TEWFormCreator.NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+begin
+  {$IFDEF DEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+  ShowMessage('pas: '+ModuleIdent+' - '+FormIdent+' - '+AncestorIdent);
+  {$ENDIF DEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE}
+  result := CreateOTAFile(fCodeTemplate, ModuleIdent, FormIdent, AncestorIdent);
+end;
+
+function TEWFormCreator.NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+begin
+  result := nil;
+end;
+
+{ TEWProjectCreator }
+
+constructor TEWProjectCreator.Create(const aCodeTemplateFile, aName: string; aVariables: TStrings);
+begin
+  inherited Create(aName, '', aVariables);
+  fCodeTemplateFile := aCodeTemplateFile;
+end;
+
+function TEWProjectCreator.GetCreatorType: string;
+begin
+  result := sLibrary;
+end;
+
+function TEWProjectCreator.GetFileName: string;
+begin
+  result := fName;
+end;
+
+function TEWProjectCreator.GetOptionFileName: string;
+begin
+  result := '';
+end;
+
+function TEWProjectCreator.GetOwner: IOTAModule;
+begin
+  result := CurrentProjectGroup;
+end;
+
+function TEWProjectCreator.GetShowSource: Boolean;
+begin
+  result := false;
+end;
+
+function TEWProjectCreator.GetUnnamed: Boolean;
+begin
+  result := (fName = '');
+end;
+
+procedure TEWProjectCreator.NewDefaultModule;
+begin
+
+end;
+
+procedure TEWProjectCreator.NewDefaultProjectModule(const Project: IOTAProject);
+begin
+end;
+
+{$IFDEF BDS}
+function TEWProjectCreator.GetProjectPersonality: string;
+begin
+  result := sDelphiPersonality;
+end;
+{$ENDIF}
+
+function TEWProjectCreator.NewOptionSource(const ProjectName: string): IOTAFile;
+begin
+  result := nil;
+end;
+
+procedure TEWProjectCreator.NewProjectResource(const Project: IOTAProject);
+begin
+  CopyFile(pChar(ChangeFileExt(fCodeTemplateFile,'.res')),pChar(ChangeFileExt(Project.FileName,'.res')),false);
+end;
+
+function TEWProjectCreator.NewProjectSource(const ProjectName: string): IOTAFile;
+begin
+  //ShowMessage('x:'+ProjectName);
+  if fCodeTemplateFile <> '' then
+    result := CreateOTAFile(LoadStringFromFile(fCodeTemplateFile),ProjectName)
+  else
+    result := nil;
+end;
+
+{ TEWSourceFile }
+
+constructor TEWSourceFile.Create(const iSource: string);
+begin
+  inherited Create();
+  fSource := iSource;
+  fAge := Now;
+end;
+
+function TEWSourceFile.GetAge: TDateTime;
+begin
+  result := fAge;
+end;
+
+function TEWSourceFile.GetSource: string;
+begin
+  result := fSource;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWSampleInfo.dfm b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWSampleInfo.dfm
new file mode 100644
index 0000000..4b59d08
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWSampleInfo.dfm
@@ -0,0 +1,566 @@
+object SampleInfoForm: TSampleInfoForm
+  Left = 283
+  Top = 227
+  AutoScroll = False
+  BorderWidth = 3
+  Caption = 'SampleInfoForm'
+  ClientHeight = 358
+  ClientWidth = 578
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  FormStyle = fsStayOnTop
+  Icon.Data = {
+    0000010003003030000001002000A8250000360000002020000001002000A810
+    0000DE2500001010000001002000680400008636000028000000300000006000
+    0000010020000000000080250000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000001616163F1414144F1212127F1111117F0F0F0F7F0D0D
+    0D7F0C0C0C7F0A0A0A6F0909093F0808080F0000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000000000000000000000000000001E1E1E1F1C1C
+    1C6F1A1A1ABF181818FF171717FF151515FF131313FF121212FF101010FF0F0F
+    0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606DF0505059F0404044F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000002222225F202020BF1F1F1FFF1D1D
+    1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF131313FF121212FF1010
+    10FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606FF050505FF0303
+    03DF0202027F0202020F00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000002727273F252525CF242424FF222222FF202020FF1F1F
+    1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF131313FF1212
+    12FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606FF0505
+    05FF030303FF020202EF0000007F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00002C2C2C0F2A2A2AAF292929FF272727FF252525FF242424FF222222FF2020
+    20FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF1313
+    13FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF0606
+    06FF050505FF030303FF020202FF000000CF0000002F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000002F2F
+    2F2F2E2E2EDF2C2C2CFF2A2A2AFF292929FF272727FF252525FF242424FF2222
+    22FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF171717FF1515
+    15FF131313FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF0808
+    08FF060606FF050505FF030303FF020202FF000000FF0000006F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000000000000000000000000000003232324F3131
+    31EF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF252525FF2424
+    24FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF1717
+    17FF151515FF131313FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A
+    0AFF080808FF060606FF050505FF030303FF020202FF000000FF0000009F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000003636365F343434FF3232
+    32FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF2525
+    25FF242424FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF1818
+    18FF171717FF151515FF131313FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B
+    0BFF0A0A0AFF080808FF060606FF050505FF030303FF020202FF000000FF0000
+    009F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000003939393F373737FF363636FF3434
+    34FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF2727
+    27FF252525FF242424FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A
+    1AFF181818FF171717FF151515FF131313FF121212FF101010FF0F0F0FFF0D0D
+    0DFF0B0B0BFF0A0A0AFF080808FF060606FF050505FF030303FF020202FF0000
+    00FF0000009F0000000000000000000000000000000000000000000000000000
+    00000000000000000000000000003C3C3C1F3B3B3BEF393939FF373737FF3636
+    36FF343434FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF2929
+    29FF272727FF252525FF242424FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C
+    1CFF1A1A1AFF181818FF171717FF151515FF131313FF121212FF101010FF0F0F
+    0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606FF050505FF030303FF0202
+    02FF000000FF0000005F00000000000000000000000000000000000000000000
+    00000000000000000000000000003E3E3ECF3C3C3CFF3B3B3BFF393939FF3737
+    37FF363636FF343434FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A
+    2AFF292929FF272727FF252525FF242424FF222222FF202020FF1F1F1FFF1D1D
+    1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF131313FF121212FF1010
+    10FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606FF050505FF0303
+    03FF020202FF000000FF0000002F000000000000000000000000000000000000
+    000000000000000000004141417F404040FF3E3E3EFF3C3C3CFF3B3B3BFF3939
+    39FF373737FF363636FF343434FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C
+    2CFF2A2A2AFF292929FF272727FF252525FF242424FF222222FF202020FF1F1F
+    1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF131313FF1212
+    12FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606FF0505
+    05FF030303FF020202FF000000CF000000000000000000000000000000000000
+    0000000000004444441F424242EF414141FF404040FF3E3E3EFF3C3C3CFF3B3B
+    3BFF393939FF373737FF363636FF343434FF323232FF313131FF2F2F2FFF2E2E
+    2EFF2C2C2CFF2A2A2AFF292929FF272727FF252525FF242424FF222222FF2020
+    20FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF1313
+    13FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF0606
+    06FF050505FF030303FF020202FF0101015F0000000000000000000000000000
+    0000000000004646469F444444FF424242FF414141FF404040FF3E3E3EFF3C3C
+    3CFF3B3B3BFF393939FF373737FF363636FF343434FF323232FF313131FF2F2F
+    2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF252525FF242424FF2222
+    22FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF171717FF1515
+    15FF131313FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF0808
+    08FF060606FF050505FF030303FF020202EF0202020F00000000000000000000
+    00004949491F474747FF464646FF444444FF424242FF414141FF404040FF3E3E
+    3EFF3C3C3CFF3B3B3BFF393939FF373737FF363636FF343434FF323232FF3131
+    31FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF252525FF2424
+    24FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF1717
+    17FF151515FF131313FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A
+    0AFF080808FF060606FF050505FF030303FF0202025F00000000000000000000
+    00004B4B4B7F494949FF474747FF464646FF444444FF424242FF414141FF4040
+    40FF3E3E3EFF3C3C3CFF3B3B3BFF393939FF373737FF363636FF343434FF3232
+    32FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF2525
+    25FF242424FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF1818
+    18FF171717FF151515FF131313FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B
+    0BFF0A0A0AFF080808FF060606FF050505FF030303DF00000000000000000000
+    00004C4C4CDF4B4B4BFF494949FF474747FF464646FF444444FF424242FF4141
+    41FF404040FF3E3E3EFF3C3C3CFF3B3B3BFF393939FF373737FF363636FF3434
+    34FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF2727
+    27FF252525FF242424FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A
+    1AFF181818FF171717FF151515FF131313FF121212FF101010FF0F0F0FFF0D0D
+    0DFF0B0B0BFF0A0A0AFF080808FF060606FF050505FF0404042F000000004F4F
+    4F2F4E4E4EFF4C4C4CFF4B4B4BFF494949FF474747FF464646FF444444FF4242
+    42FF414141FF404040FF3E3E3EFF3C3C3CFF3B3B3BFF393939FF373737FF3636
+    36FF343434FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF2929
+    29FF272727FF252525FF242424FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C
+    1CFF1A1A1AFF181818FF171717FF151515FF131313FF121212FF101010FF0F0F
+    0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606FF0505058F000000005151
+    516F505050FF4E4E4EFF4C4C4CFF4B4B4BFF494949FF474747FF464646FF4444
+    44FF424242FF414141FF404040FF3E3E3EFF3C3C3CFF3B3B3BFF393939FF3737
+    37FF363636FF343434FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A
+    2AFF292929FF272727FF252525FF242424FF222222FF202020FF1F1F1FFF1D1D
+    1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF131313FF121212FF1010
+    10FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF070707CF000000005353
+    53AF515151FF505050FF4E4E4EFF4C4C4CFF4B4B4BFF494949FF474747FF4646
+    46FF444444FF424242FF414141FF404040FF3E3E3EFF3C3C3CFF3B3B3BFF3939
+    39FF373737FF363636FF343434FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C
+    2CFF2A2A2AFF292929FF272727FF252525FF242424FF222222FF202020FF1F1F
+    1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF131313FF1212
+    12FF0F170FFF0C230CFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF000000005454
+    54CF535353FF515151FF505050FF61624CFF7C8246FF4B4B4BFF494949FF4747
+    47FF464646FF444444FF424242FF414141FF404040FF3E3E3EFF3C3C3CFF3B3B
+    3BFF393939FF373737FF363636FF343434FF323232FF313131FF2F2F2FFF2E2E
+    2EFF2C2C2CFF2A2A2AFF292929FF272727FF252525FF242424FF222222FF2020
+    20FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF171717FF151515FF121A
+    12FF056A04FF065406FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF0909092F5656
+    56FF545454FF535353FF515151FF83864AFFB2BA42FF9AA342FF5C5F48FF4949
+    49FF474747FF464646FF444444FF424242FF414141FF404040FF3E3E3EFF3C3C
+    3CFF3B3B3BFF393939FF373737FF363636FF343434FF323232FF313131FF2F2F
+    2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF252525FF242424FF2222
+    22FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1AFF181818FF161D15FF0A6C
+    06FF057F01FF066305FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0A3F5858
+    58FF565656FF545454FF535353FF87874CFFB8BC44FFB2BA42FFABB73FFF7880
+    44FF494949FF474747FF464646FF444444FF424242FF414141FF404040FF3E3E
+    3EFF3C3C3CFF3B3B3BFF393939FF373737FF363636FF343434FF323232FF3131
+    31FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF252525FF2424
+    24FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C1CFF192019FF0F6E08FF0A81
+    03FF078002FF057802FF121212FF101010FF0F0F0FFF0D0D0DFF0C0C0C7F5959
+    59FF585858FF565656FF545454FF8B894EFFBEBE47FFB8BC44FFB2BA42FFABB7
+    3FFF9AA83FFF5F6446FF474747FF464646FF444444FF424242FF414141FF4040
+    40FF3E3E3EFF3C3C3CFF3B3B3BFF393939FF373737FF363636FF343434FF3232
+    32FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF272727FF2525
+    25FF242424FF222222FF202020FF1F1F1FFF1D1D1DFF156A0CFF108306FF0C82
+    04FF0A8103FF078002FF131313FF121212FF101010FF0F0F0FFF0D0D0D7F5B5B
+    5BFF595959FF585858FF565656FF9E994FFFC5C049FFBEBE47FFB8BC44FFB2BA
+    42FFABB73FFFA5B53DFF7A8541FF4D4E46FF464646FF444444FF424242FF4141
+    41FF404040FF3E3E3EFF3C3C3CFF3B3B3BFF393939FF373737FF363636FF3434
+    34FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF292929FF2727
+    27FF252525FF242424FF222222FF202020FF1C5913FF168508FF138407FF1083
+    06FF0C8204FF0A8103FF151515FF131313FF121212FF101010FF0F0F0F7F5D5D
+    5DFF5B5B5BFF595959FF585858FF938D52FFCCC24CFFC5C049FFBEBE47FFB8BC
+    44FFB2BA42FFABB73FFFA5B53DFF94A63DFF5C6244FF464646FF444444FF4242
+    42FF414141FF404040FF3E3E3EFF3C3C3CFF3B3B3BFF393939FF373737FF3636
+    36FF343434FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A2AFF2929
+    29FF272727FF252525FF242424FF22421BFF1E880BFF1A8609FF168508FF1384
+    07FF108306FF0C8204FF171717FF151515FF131313FF121212FF1111117F5E5E
+    5EFF5D5D5DFF5B5B5BFF595959FF988F54FFD2C54EFFCCC24CFFC5C049FFBEBE
+    47FFB8BC44FFB2BA42FFABB73FFFA5B53DFF9FB33BFF80903DFF4B4C45FF4444
+    44FF424242FF414141FF404040FF3E3E3EFF506335FF64942AFF64A025FF5E9E
+    23FF4A6F2AFF363A32FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C2CFF2A2A
+    2AFF292929FF272727FF263222FF26840FFF22890CFF1E880BFF1A8609FF1685
+    08FF138407FF126F09FF181818FF171717FF151515FF131313FF1212124F6060
+    60EF5E5E5EFF5D5D5DFF5B5B5BFF8B8357FFD9C751FFD2C54EFFCCC24CFFC5C0
+    49FFBEBE47FFB8BC44FFB2BA42FFABB73FFFA5B53DFF9FB33BFF94AA3AFF6D7A
+    3EFF444444FF424242FF494E3FFF6C8D32FF75A52BFF6FA329FF6AA127FF64A0
+    25FF5E9E23FF518226FF343434FF323232FF313131FF2F2F2FFF2E2E2EFF2C2C
+    2CFF2A2A2AFF292929FF2C7416FF2A8C0FFF268B0EFF22890CFF1E880BFF1A86
+    09FF168508FF156A0CFF1A1A1AFF181818FF171717FF151515FF1414143F6161
+    61BF606060FF5E5E5EFF5D5D5DFF75705AFFE0C953FFD9C751FFD2C54EFFCCC2
+    4CFFC5C049FFBEBE47FFB8BC44FFB2BA42FFABB73FFFA5B53DFF9FB33BFF98B1
+    39FF89A238FF7B9338FF86AB32FF80A930FF7BA72DFF75A52BFF6FA329FF6AA1
+    27FF64A025FF5E9E23FF48692BFF343434FF323232FF313131FF2F2F2FFF2E2E
+    2EFF2C2C2CFF305D1FFF338F13FF2E8D11FF2A8C0FFF268B0EFF22890CFF1E88
+    0BFF1A8609FF1A5113FF1C1C1CFF1A1A1AFF181818FF171717FF1515150F6363
+    638F616161FF606060FF5E5E5EFF5D5D5DFFDEC456FFE0C953FFD9C751FFD2C5
+    4EFFCCC24CFFC5C049FFBEBE47FFB8BC44FFB2BA42FFABB73FFFA5B53DFF9FB3
+    3BFF98B139FF92AF36FF8CAD34FF86AB32FF80A930FF7BA72DFF75A52BFF6FA3
+    29FF6AA127FF64A025FF5E9E23FF3A4233FF343434FF323232FF313131FF2F2F
+    2FFF324728FF3C9216FF379014FF338F13FF2E8D11FF2A8C0FFF268B0EFF2289
+    0CFF1E880BFF1E3919FF1D1D1DFF1C1C1CFF1A1A1AFF181818DF000000006464
+    644F636363FF616161FF606060FF5E5E5EFFB6A35AFFE7CB56FFE0C953FFD9C7
+    51FFD2C54EFFCCC24CFFC5C049FFBEBE47FFB8BC44FFB2BA42FFABB73FFFA5B5
+    3DFF9FB33BFF98B139FF92AF36FF8CAD34FF86AB32FF80A930FF7BA72DFF75A5
+    2BFF6FA329FF6AA127FF64A025FF558428FF363636FF343434FF323232FF3237
+    2FFF448F1BFF409318FF3C9216FF379014FF338F13FF2E8D11FF2A8C0FFF268B
+    0EFF22820EFF202020FF1F1F1FFF1D1D1DFF1C1C1CFF1A1A1A9F000000006666
+    660F656565FF636363FF616161FF606060FF837B5DFFEDCE58FFE7CB56FFE0C9
+    53FFD9C751FFD2C54EFFCCC24CFFC5C049FFBEBE47FFB8BC44FFB2BA42FFABB7
+    3FFFA5B53DFF9FB33BFF98B139FF92AF36FF8CAD34FF86AB32FF80A930FF7BA7
+    2DFF75A52BFF6FA329FF6AA127FF64A025FF50772BFF363636FF363A33FF4A85
+    21FF4A971BFF459519FF409318FF3C9216FF379014FF338F13FF2E8D11FF2A8C
+    0FFF256416FF222222FF202020FF1F1F1FFF1D1D1DFF1C1C1C5F000000000000
+    0000666666AF656565FF636363FF616161FF606060FFE1C25BFFEDCE58FFE7CB
+    56FFE0C953FFD9C751FFD2C54EFFCCC24CFFC5C049FFBEBE47FFB8BC44FFB2BA
+    42FFABB73FFFA5B53DFF9FB33BFF98B139FF92AF36FF8CAD34FF86AB32FF80A9
+    30FF7BA72DFF75A52BFF6FA329FF6AA127FF64A025FF578B27FF579522FF549A
+    1FFF4F981DFF4A971BFF459519FF409318FF3C9216FF379014FF338F13FF2E8D
+    11FF263222FF242424FF222222FF202020FF1F1F1FFF1E1E1E0F000000000000
+    00006767674F666666FF656565FF636363FF616161FF90845FFFF4D05BFFEDCE
+    58FFE7CB56FFE0C953FFD9C751FFD2C54EFFCCC24CFFC5C049FFBEBE47FFB8BC
+    44FFB2BA42FFABB73FFFA5B53DFF9FB33BFF98B139FF92AF36FF8CAD34FF86AB
+    32FF80A930FF7BA72DFF75A52BFF6FA329FF6AA127FF64A025FF5E9E23FF599C
+    21FF549A1FFF4F981DFF4A971BFF459519FF409318FF3C9216FF379014FF2F68
+    1BFF272727FF252525FF242424FF222222FF2121219F00000000000000000000
+    000000000000686868DF666666FF656565FF636363FF616161FFD4B65EFFF4D0
+    5BFFEDCE58FFE7CB56FFE0C953FFD9C751FFD2C54EFFCCC24CFFC5C049FFBEBE
+    47FFB8BC44FFB2BA42FFABB73FFFA5B53DFF9FB33BFF98B139FF92AF36FF8CAD
+    34FF86AB32FF80A930FF7BA72DFF75A52BFF6FA329FF6AA127FF64A025FF5E9E
+    23FF599C21FF549A1FFF4F981DFF4A971BFF459519FF409318FF3B8B17FF2C37
+    27FF292929FF272727FF252525FF242424FF2222221F00000000000000000000
+    0000000000006969695F686868FF666666FF656565FF636363FF757061FFF2CB
+    5DFFF4D05BFFEDCE58FFE7CB56FFE0C953FFD9C751FFD2C54EFFCCC24CFFC5C0
+    49FFBEBE47FFB8BC44FFB2BA42FFABB73FFFA5B53DFF9FB33BFF98B139FF92AF
+    36FF8CAD34FF86AB32FF80A930FF7BA72DFF75A52BFF6FA329FF6AA127FF64A0
+    25FF5E9E23FF599C21FF549A1FFF4F981DFF4A971BFF459519FF345425FF2C2C
+    2CFF2A2A2AFF292929FF272727FF2525259F0000000000000000000000000000
+    00000000000000000000696969BF686868FF666666FF656565FF636363FF9385
+    61FFFBD35DFFF4D05BFFEDCE58FFE7CB56FFE0C953FFD9C751FFD2C54EFFCCC2
+    4CFFC5C049FFBEBE47FFB8BC44FFB2BA42FFABB73FFFA5B53DFF9FB33BFF98B1
+    39FF92AF36FF8CAD34FF86AB32FF80A930FF7BA72DFF75A52BFF6FA329FF6AA1
+    27FF64A025FF5E9E23FF599C21FF549A1FFF4F981DFF417023FF2F2F2FFF2E2E
+    2EFF2C2C2CFF2A2A2AFF292929FF2727271F0000000000000000000000000000
+    000000000000000000006B6B6B2F6A6A6AFF686868FF666666FF656565FF6363
+    63FF9D8C61FFFBD35DFFF4D05BFFEDCE58FFE7CB56FFE0C953FFD9C751FFD2C5
+    4EFFCCC24CFFC5C049FFBEBE47FFB8BC44FFB2BA42FFABB73FFFA5B53DFF9FB3
+    3BFF98B139FF92AF36FF8CAD34FF86AB32FF80A930FF7BA72DFF75A52BFF6FA3
+    29FF6AA127FF64A025FF5E9E23FF599C21FF4C8124FF323232FF313131FF2F2F
+    2FFF2E2E2EFF2C2C2CFF2A2A2A7F000000000000000000000000000000000000
+    00000000000000000000000000006B6B6B6F6A6A6AFF686868FF666666FF6565
+    65FF636363FF9D8C61FFFBD35DFFF4D05BFFEDCE58FFE7CB56FFE0C953FFD9C7
+    51FFD2C54EFFCCC24CFFC5C049FFBEBE47FFB8BC44FFB2BA42FFABB73FFFA5B5
+    3DFF9FB33BFF98B139FF92AF36FF8CAD34FF86AB32FF80A930FF7BA72DFF75A5
+    2BFF6FA329FF6AA127FF64A025FF50772BFF383C34FF343434FF323232FF3131
+    31FF2F2F2FFF2E2E2EBF00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000006B6B6B9F6A6A6AFF686868FF6666
+    66FF656565FF636363FF938561FFF2CB5DFFF4D05BFFEDCE58FFE7CB56FFE0C9
+    53FFD9C751FFD2C54EFFCCC24CFFC5C049FFBEBE47FFB8BC44FFB2BA42FFABB7
+    3FFFA5B53DFF9FB33BFF98B139FF92AF36FF8CAD34FF86AB32FF80A930FF7BA7
+    2DFF75A52BFF6FA329FF557430FF393939FF373737FF363636FF343434FF3232
+    32FF313131EF3030300F00000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000006B6B6BCF6A6A6AFF6868
+    68FF666666FF656565FF636363FF6B6961FFCAAF5EFFF4D05BFFEDCE58FFE7CB
+    56FFE0C953FFD9C751FFD2C54EFFCCC24CFFC5C049FFBEBE47FFB8BC44FFB2BA
+    42FFABB73FFFA5B53DFF9FB33BFF98B139FF92AF36FF8CAD34FF86AB32FF80A9
+    30FF739A30FF4B5839FF3C3C3CFF3B3B3BFF393939FF373737FF363636FF3434
+    34EF3232322F0000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000006B6B6B0F6B6B6BBF6A6A
+    6AFF686868FF666666FF656565FF636363FF616161FF867D5FFFCEB45BFFEDCE
+    58FFE7CB56FFE0C953FFD9C751FFD2C54EFFCCC24CFFC5C049FFBEBE47FFB8BC
+    44FFB2BA42FFABB73FFFA5B53DFF9FB33BFF98B139FF92AF36FF83A036FF6477
+    3AFF414141FF404040FF3E3E3EFF3C3C3CFF3B3B3BFF393939FF373737EF3636
+    362F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000006B6B
+    6B9F6A6A6AFF686868FF666666FF656565FF636363FF616161FF606060FF7A74
+    5EFFAD9C5AFFD5BD56FFE0C953FFD9C751FFD2C54EFFCCC24CFFC5C049FFBEBE
+    47FFB8BC44FFB2BA42FFABB73FFF9FAF3EFF83923FFF606843FF464646FF4444
+    44FF424242FF414141FF404040FF3E3E3EFF3C3C3CFF3B3B3BCF3939392F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00006B6B6B6F6A6A6AEF686868FF666666FF656565FF636363FF616161FF6060
+    60FF5E5E5EFF5D5D5DFF6C695AFF7A7558FF988F54FF938D52FF8F8B50FF8B89
+    4EFF87874CFF70714CFF61624CFF4C4C4CFF4B4B4BFF494949FF474747FF4646
+    46FF444444FF424242FF414141FF404040FF3E3E3EAF3D3D3D0F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000006B6B6B1F696969BF686868FF666666FF656565FF636363FF6161
+    61FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF5454
+    54FF535353FF515151FF505050FF4E4E4EFF4C4C4CFF4B4B4BFF494949FF4747
+    47FF464646FF444444FF424242DF4141414F0000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000006969693F686868BF666666FF656565FF6363
+    63FF616161FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF5656
+    56FF545454FF535353FF515151FF505050FF4E4E4EFF4C4C4CFF4B4B4BFF4949
+    49FF474747EF4646467F4545450F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000006767673F6666669F6565
+    65EF636363FF616161FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF5858
+    58FF565656FF545454FF535353FF515151FF505050FF4E4E4EFF4C4C4CAF4A4A
+    4A5F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00006464643F6363637F616161AF606060CF5E5E5EFF5D5D5DFF5B5B5BFF5959
+    59FF585858FF565656DF545454BF5252528F5151514F5050500F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000000000000000000000FFFF
+    E007FFFF0000FFFE0000FFFF0000FFF800001FFF0000FFE000000FFF0000FF80
+    000003FF0000FF00000001FF0000FE00000000FF0000FC000000007F0000F800
+    0000003F0000F0000000001F0000F0000000000F0000E0000000000F0000C000
+    000000070000C000000000030000800000000003000080000000000300008000
+    0000000100000000000000010000000000000001000000000000000100000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000010000000000000001000000000000000100008000
+    0000000100008000000000030000C000000000030000C000000000070000E000
+    000000070000E0000000000F0000F0000000001F0000F8000000001F0000FC00
+    0000003F0000FC000000007F0000FF00000000FF0000FF80000001FF0000FFC0
+    000007FF0000FFF000000FFF0000FFFC00007FFF0000FFFF8001FFFF00002800
+    0000200000004000000001002000000000008010000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000001A1A1A2F1717176F1515158F1212
+    12BF101010BF0D0D0DBF0B0B0BAF0909097F0707074F0505050F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000002424240F2121217F1E1E1EDF1C1C1CFF191919FF171717FF1414
+    14FF121212FF101010FF0D0D0DFF0B0B0BFF080808FF060606FF040404AF0202
+    023F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00002828287F252525EF232323FF212121FF1E1E1EFF1C1C1CFF191919FF1717
+    17FF141414FF121212FF101010FF0D0D0DFF0B0B0BFF080808FF060606FF0303
+    03FF010101BF0000002F00000000000000000000000000000000000000000000
+    00000000000000000000000000000000000000000000000000003030301F2D2D
+    2DCF2A2A2AFF282828FF252525FF232323FF212121FF1E1E1EFF1C1C1CFF1919
+    19FF171717FF141414FF121212FF101010FF0D0D0DFF0B0B0BFF080808FF0606
+    06FF030303FF010101FF0000007F000000000000000000000000000000000000
+    000000000000000000000000000000000000000000003434342F323232EF2F2F
+    2FFF2D2D2DFF2A2A2AFF282828FF252525FF232323FF212121FF1E1E1EFF1C1C
+    1CFF191919FF171717FF141414FF121212FF101010FF0D0D0DFF0B0B0BFF0808
+    08FF060606FF030303FF010101FF0000009F0000000000000000000000000000
+    0000000000000000000000000000000000003939392F373737EF343434FF3232
+    32FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF252525FF232323FF212121FF1E1E
+    1EFF1C1C1CFF191919FF171717FF141414FF121212FF101010FF0D0D0DFF0B0B
+    0BFF080808FF060606FF030303FF010101FF0000009F00000000000000000000
+    00000000000000000000000000003E3E3E0F3C3C3CCF393939FF373737FF3434
+    34FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF252525FF232323FF2121
+    21FF1E1E1EFF1C1C1CFF191919FF171717FF141414FF121212FF101010FF0D0D
+    0DFF0B0B0BFF080808FF060606FF030303FF010101FF0000007F000000000000
+    00000000000000000000000000004040408F3E3E3EFF3C3C3CFF393939FF3737
+    37FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF252525FF2323
+    23FF212121FF1E1E1EFF1C1C1CFF191919FF171717FF141414FF121212FF1010
+    10FF0D0D0DFF0B0B0BFF080808FF060606FF030303FF010101FF0000002F0000
+    000000000000000000004545453F434343FF404040FF3E3E3EFF3C3C3CFF3939
+    39FF373737FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF2525
+    25FF232323FF212121FF1E1E1EFF1C1C1CFF191919FF171717FF141414FF1212
+    12FF101010FF0D0D0DFF0B0B0BFF080808FF060606FF030303FF010101BF0000
+    00000000000000000000474747BF454545FF434343FF404040FF3E3E3EFF3C3C
+    3CFF393939FF373737FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF2828
+    28FF252525FF232323FF212121FF1E1E1EFF1C1C1CFF191919FF171717FF1414
+    14FF121212FF101010FF0D0D0DFF0B0B0BFF080808FF060606FF030303FF0202
+    023F000000004C4C4C1F4A4A4AFF484848FF454545FF434343FF404040FF3E3E
+    3EFF3C3C3CFF393939FF373737FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A
+    2AFF282828FF252525FF232323FF212121FF1E1E1EFF1C1C1CFF191919FF1717
+    17FF141414FF121212FF101010FF0D0D0DFF0B0B0BFF080808FF060606FF0404
+    04AF000000004E4E4E6F4D4D4DFF4A4A4AFF484848FF454545FF434343FF4040
+    40FF3E3E3EFF3C3C3CFF393939FF373737FF343434FF323232FF2F2F2FFF2D2D
+    2DFF2A2A2AFF282828FF252525FF232323FF212121FF1E1E1EFF1C1C1CFF1919
+    19FF171717FF141414FF121212FF101010FF0D0D0DFF0B0B0BFF080808FF0606
+    06FF0505050F515151BF4F4F4FFF4D4D4DFF4A4A4AFF484848FF454545FF4343
+    43FF404040FF3E3E3EFF3C3C3CFF393939FF373737FF343434FF323232FF2F2F
+    2FFF2D2D2DFF2A2A2AFF282828FF252525FF232323FF212121FF1E1E1EFF1C1C
+    1CFF191919FF171717FF141414FF121212FF101010FF0D0D0DFF0B0B0BFF0808
+    08FF0707073F545454EF515151FF4F4F4FFF777B47FF4A4A4AFF484848FF4545
+    45FF434343FF404040FF3E3E3EFF3C3C3CFF393939FF373737FF343434FF3232
+    32FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF252525FF232323FF212121FF1E1E
+    1EFF1C1C1CFF191919FF171717FF141414FF0C3B0BFF093F08FF0D0D0DFF0B0B
+    0BFF0909097F565656FF545454FF515151FFB5BB44FF9BA442FF5B5E47FF4848
+    48FF454545FF434343FF404040FF3E3E3EFF3C3C3CFF393939FF373737FF3434
+    34FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF252525FF232323FF2121
+    21FF1E1E1EFF1C1C1CFF191919FF0F530CFF068002FF094F08FF101010FF0D0D
+    0DFF0B0B0B8F595959FF565656FF545454FFBFBE47FFB5BB44FFACB840FF7D86
+    43FF4D4E47FF454545FF434343FF404040FF3E3E3EFF3C3C3CFF393939FF3737
+    37FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF252525FF2323
+    23FF212121FF1E1E1EFF194314FF0E8305FF0A8103FF0A6506FF121212FF1010
+    10FF0D0D0DBF5B5B5BFF595959FF565656FFC9C24BFFBFBE47FFB5BB44FFACB8
+    40FF98A73EFF5D6244FF454545FF434343FF404040FF3E3E3EFF3C3C3CFF3939
+    39FF373737FF343434FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF282828FF2525
+    25FF232323FF203A1BFF198609FF138407FF0E8305FF0D6608FF141414FF1212
+    12FF101010BF5E5E5EFF5B5B5BFF595959FFD3C54FFFC9C24BFFBFBE47FFB5BB
+    44FFACB840FFA2B43CFF7B8A3EFF4A4C44FF434343FF404040FF3E3E3EFF4F62
+    34FF5B862AFF517D29FF3B4730FF323232FF2F2F2FFF2D2D2DFF2A2A2AFF2828
+    28FF262C24FF24830FFF1E880BFF198609FF138407FF135B0DFF171717FF1414
+    14FF1212129F606060FF5E5E5EFF5B5B5BFFD5C153FFD3C54FFFC9C24BFFBFBE
+    47FFB5BB44FFACB840FFA2B43CFF94AB3AFF67733FFF58633DFF6F8E33FF76A5
+    2CFF6DA228FF65A025FF5A9724FF363B33FF323232FF2F2F2FFF2D2D2DFF2A2A
+    2AFF2E6E19FF2A8C10FF248A0DFF1E880BFF198609FF185011FF191919FF1717
+    17FF1515157F626262BF606060FF5E5E5EFFBBA857FFDDC852FFD3C54FFFC9C2
+    4BFFBFBE47FFB5BB44FFACB840FFA2B43CFF99B139FF90AE35FF87AB32FF7EA8
+    2FFF76A52CFF6DA228FF65A025FF517D29FF343434FF323232FF2F2F2FFF3459
+    23FF389115FF318E12FF2A8C10FF248A0DFF1E880BFF1D3819FF1C1C1CFF1919
+    19FF1717175F6464648F626262FF606060FF94885CFFE7CC56FFDDC852FFD3C5
+    4FFFC9C24BFFBFBE47FFB5BB44FFACB840FFA2B43CFF99B139FF90AE35FF87AB
+    32FF7EA82FFF76A52CFF6DA228FF65A025FF465D2FFF343434FF37452EFF4695
+    1AFF3F9317FF389115FF318E12FF2A8C10FF24830FFF212121FF1E1E1EFF1C1C
+    1CFF1919191F6666662F656565FF626262FF6A6760FFE8C85AFFE7CC56FFDDC8
+    52FFD3C54FFFC9C24BFFBFBE47FFB5BB44FFACB840FFA2B43CFF99B139FF90AE
+    35FF87AB32FF7EA82FFF76A52CFF6DA228FF65A025FF4F772AFF539421FF4E98
+    1DFF46951AFF3F9317FF389115FF318E12FF296618FF232323FF212121FF1E1E
+    1ECF0000000000000000676767DF656565FF626262FFAD995FFFF2D05AFFE7CC
+    56FFDDC852FFD3C54FFFC9C24BFFBFBE47FFB5BB44FFACB840FFA2B43CFF99B1
+    39FF90AE35FF87AB32FF7EA82FFF76A52CFF6DA228FF65A025FF5D9D22FF559A
+    1FFF4E981DFF46951AFF3F9317FF378A16FF293525FF252525FF232323FF2121
+    215F00000000000000006969695F676767FF656565FF6C6A62FFE8C45EFFF2D0
+    5AFFE7CC56FFDDC852FFD3C54FFFC9C24BFFBFBE47FFB5BB44FFACB840FFA2B4
+    3CFF99B139FF90AE35FF87AB32FF7EA82FFF76A52CFF6DA228FF65A025FF5D9D
+    22FF559A1FFF4E981DFF46951AFF355923FF2A2A2AFF282828FF252525DF2424
+    240F000000000000000000000000696969CF676767FF656565FF807862FFF2CC
+    5DFFF2D05AFFE7CC56FFDDC852FFD3C54FFFC9C24BFFBFBE47FFB5BB44FFACB8
+    40FFA2B43CFF99B139FF90AE35FF87AB32FF7EA82FFF76A52CFF6DA228FF65A0
+    25FF5D9D22FF559A1FFF437124FF2F2F2FFF2D2D2DFF2A2A2AFF2929295F0000
+    00000000000000000000000000006B6B6B2F6A6A6AFF676767FF656565FF8078
+    62FFF2CC5DFFF2D05AFFE7CC56FFDDC852FFD3C54FFFC9C24BFFBFBE47FFB5BB
+    44FFACB840FFA2B43CFF99B139FF90AE35FF87AB32FF7EA82FFF76A52CFF6DA2
+    28FF65A025FF517D29FF363B33FF323232FF2F2F2FFF2D2D2DAF000000000000
+    0000000000000000000000000000000000006B6B6B5F6A6A6AFF676767FF6565
+    65FF807862FFDEBD5EFFF2D05AFFE7CC56FFDDC852FFD3C54FFFC9C24BFFBFBE
+    47FFB5BB44FFACB840FFA2B43CFF99B139FF90AE35FF87AB32FF7EA82FFF76A5
+    2CFF577531FF393939FF373737FF343434FF323232CF3030300F000000000000
+    000000000000000000000000000000000000000000006B6B6B5F6A6A6AFF6767
+    67FF656565FF626262FFAD995FFFE8C85AFFE7CC56FFDDC852FFD3C54FFFC9C2
+    4BFFBFBE47FFB5BB44FFACB840FFA2B43CFF99B139FF90AE35FF769136FF505A
+    3CFF3E3E3EFF3C3C3CFF393939FF363636DF3535350F00000000000000000000
+    00000000000000000000000000000000000000000000000000006B6B6B5F6A6A
+    6AEF676767FF656565FF626262FF6A6760FF94885CFFBBA857FFCCBA53FFD3C5
+    4FFFC9C24BFFBFBE47FFB5BB44FF939D43FF7B8642FF575B45FF454545FF4343
+    43FF404040FF3E3E3EFF3C3C3CCF3939390F0000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000006B6B
+    6B2F696969BF676767FF656565FF626262FF606060FF5E5E5EFF5B5B5BFF5959
+    59FF565656FF545454FF515151FF4F4F4FFF4D4D4DFF4A4A4AFF484848FF4545
+    45FF434343FF4040407F00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000006969695F676767CF656565FF626262FF606060FF5E5E5EFF5B5B
+    5BFF595959FF565656FF545454FF515151FF4F4F4FFF4D4D4DFF4A4A4AFF4747
+    479F4545451F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000006666662F6464647F626262BF606060EF5E5E
+    5EFF5B5B5BFF595959FF565656FF545454CF5151519F4E4E4E5F4D4D4D0F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000FFE007FFFF0001FFFE00007FF800003FF000001FE000000FC000
+    0007C00000038000000380000001000000010000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000018000
+    000180000001C0000003C0000007E0000007F000000FF800001FFC00007FFF00
+    00FFFFC003FF2800000010000000200000000100200000000000400400000000
+    0000000000000000000000000000000000000000000000000000000000002222
+    223F1D1D1D9F181818CF131313FF0E0E0EFF090909BF0505058F0202021F0000
+    000000000000000000000000000000000000000000003030300F2B2B2BAF2626
+    26FF212121FF1C1C1CFF171717FF131313FF0E0E0EFF090909FF040404FF0101
+    017F000000000000000000000000000000003A3A3A0F353535CF303030FF2B2B
+    2BFF262626FF212121FF1C1C1CFF171717FF131313FF0E0E0EFF090909FF0404
+    04FF0101019F0000000000000000000000003E3E3EBF3A3A3AFF353535FF3030
+    30FF2B2B2BFF262626FF212121FF1C1C1CFF171717FF131313FF0E0E0EFF0909
+    09FF040404FF0101017F000000004747475F434343FF3E3E3EFF3A3A3AFF3535
+    35FF303030FF2B2B2BFF262626FF212121FF1C1C1CFF171717FF131313FF0E0E
+    0EFF090909FF040404FF0202021F4D4D4DAF484848FF434343FF3E3E3EFF3A3A
+    3AFF353535FF303030FF2B2B2BFF262626FF212121FF1C1C1CFF171717FF1313
+    13FF0E0E0EFF090909FF0505057F525252FF595B4CFF484848FF434343FF3E3E
+    3EFF3A3A3AFF353535FF303030FF2B2B2BFF262626FF212121FF1C1C1CFF1717
+    17FF10270FFF0C1B0CFF090909BF575757FF88884DFF9DA443FF5F6345FF4343
+    43FF3E3E3EFF3A3A3AFF353535FF303030FF2B2B2BFF262626FF212121FF1B30
+    18FF0C7B05FF0C420BFF0E0E0EEF5C5C5CFF948E53FFC2BF48FFAEB841FF7984
+    40FF484A42FF3E3E3EFF4C6032FF41552EFF303030FF2B2B2BFF262C25FF207C
+    0EFF158508FF12460FFF131313EF616161FFA19459FFD6C64FFFC2BF48FFAEB8
+    41FF97AB3BFF819F35FF78A62DFF67A126FF3F4E30FF303030FF346B1DFF2C8D
+    10FF20890CFF1B3617FF181818BF656565CF7D7660FFEACD57FFD6C64FFFC2BF
+    48FFAEB841FF9BB23AFF89AC33FF78A62DFF659A28FF496E29FF48961AFF3991
+    15FF2C8611FF212121FF1D1D1D8F6969695F656565FFD5B65EFFEACD57FFD6C6
+    4FFFC2BF48FFAEB841FF9BB23AFF89AC33FF78A62DFF67A126FF579B20FF4896
+    1AFF335E20FF262626FF2222221F000000006A6A6ACF6F6D65FFDEBE5EFFEACD
+    57FFD6C64FFFC2BF48FFAEB841FF9BB23AFF89AC33FF78A62DFF67A126FF4C7B
+    26FF303030FF2B2B2B8F00000000000000006B6B6B2F6A6A6AEF6F6D65FFD5B6
+    5EFFEACD57FFD6C64FFFC2BF48FFAEB841FF9BB23AFF89AC33FF5E7934FF3A3A
+    3AFF353535CF3030300F0000000000000000000000006B6B6B2F6A6A6ACF6565
+    65FF7D7660FFA19459FF948E53FF88884DFF767C47FF525546FF434343FF3E3E
+    3EAF3A3A3A0F0000000000000000000000000000000000000000000000006969
+    695F656565BF616161FF5C5C5CFF575757FF525252EF4D4D4DAF4848483F0000
+    0000000000000000000000000000F00F0000C007000080030000800100000000
+    0000000000000000000000000000000000000000000000000000000000008001
+    000080010000C0030000F00F0000}
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 333
+    Width = 578
+    Height = 25
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      578
+      25)
+    object sbPrint: TSpeedButton
+      Left = 0
+      Top = 4
+      Width = 52
+      Height = 21
+      Caption = 'Print'
+      Flat = True
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FF6C6A6A6C6A6AFF00FFFF00FF6C6A6A6C6A6AFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6C6A6AAAA7A7A19F9F6C6A6A6C
+        6A6A6C6A6AE5E3E36C6A6A6C6A6A6C6A6AFF00FFFF00FFFF00FFFF00FFFF00FF
+        6C6A6ADAD9D9A19F9FA19F9FA19F9F3736363535356C6D6DBFBFBFE1E2E2B7B6
+        B66C6A6A6C6A6A6C6A6AFF00FF6C6A6AD4D3D3CACACA8E8C8C8E8C8C8E8C8C3C
+        3B3B0A090A0707070B0B0B0707077A7A7ABBBBBB6C6A6AFF00FF6C6A6ACACACA
+        CACACA8E8C8CD7D4D4CECBCBBFBCBCB1AFAFA3A0A08886865E5B5C0707070909
+        090808086C6A6A7673736C6A6ACACACA8E8C8CEFEEEEFFFEFEFBFAFAE3E0E1DE
+        DEDEDEDDDDCFCECEBDBCBCADABAB8B89895856567A78787573736C6A6A8E8C8C
+        FFFFFFFEFCFCFAFAFAD5D4D5989193A09899B2ABACC4C0C1D7D7D7D8D8D8C7C6
+        C6B7B6B6918F8F6C6969FF00FF6C6A6A6C6A6AEDEBEBB1A6A77A6F728A838896
+        92959690919D97989A93959E9899BBBABAD1D1D1C2C2C26C6A6AFF00FFFF00FF
+        FF00FF6C6A6ABB897FA7876D8B6F647D67606F62657973798F8B8EA9A3A4CBCA
+        CAC1C1C16C6A6AFF00FFFF00FFFF00FFFF00FFFF00FFBD8281FFE3B4FFD39FE9
+        B281C99973BA916CBD8281807D7E6C6A6A6C6A6AFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFBD8281FFE0B8FFD3A7FFD09DFFCE90FFC688BD8281FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC08683FFE7CFFFE0C0FFD9B2FF
+        D3A5FFD099BD8281FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFBD8281FEEBD8FFE6CCFFDEBDFFD8B1FED3A4BD8281FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFBD8281FFFFF2FFFFF2FFEBD8FFE5CAFF
+        E1BDF3C7A7BD8281FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        BD8281BD8281BD8281FBEFE2FBE3CFFBDDC2BD8281FF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBD8281BD8281BD
+        8281FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      OnClick = sbPrintClick
+    end
+    object cb_DontShow: TCheckBox
+      Left = 451
+      Top = 5
+      Width = 126
+      Height = 18
+      Anchors = [akTop, akRight]
+      Caption = 'Don'#39't Show This Again'
+      TabOrder = 0
+      OnClick = cb_DontShowClick
+    end
+  end
+  object wb_Browser: TWebBrowser
+    Left = 0
+    Top = 0
+    Width = 578
+    Height = 333
+    Align = alClient
+    TabOrder = 1
+    ControlData = {
+      4C000000BD3B00006B2200000000000000000000000000000000000000000000
+      000000004C000000000000000000000001000000E0D057007335CF11AE690800
+      2B2E126208000000000000004C0000000114020000000000C000000000000046
+      8000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000100000000000000000000000000000000000000}
+  end
+end
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWSampleInfo.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWSampleInfo.pas
new file mode 100644
index 0000000..7eeb3d5
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWSampleInfo.pas
@@ -0,0 +1,140 @@
+unit uEWSampleInfo;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, ToolsApi, Buttons;
+
+type
+  TSampleInfoForm = class(TForm)
+    Panel1: TPanel;
+    wb_Browser: TWebBrowser;
+    cb_DontShow: TCheckBox;
+    sbPrint: TSpeedButton;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure sbPrintClick(Sender: TObject);
+    procedure cb_DontShowClick(Sender: TObject);
+  private
+    fIniFile: string;
+  public
+    class procedure RunSampleInfo(const aFilename:string);
+  end;
+
+  TProjectNotification = class(TInterfacedObject, IOTAIDENotifier)
+  public
+    procedure AfterCompile(Succeeded: Boolean);
+    procedure AfterSave;
+    procedure BeforeCompile(const Project: IOTAProject; var Cancel: Boolean);
+    procedure BeforeSave;
+    procedure Destroyed;
+    procedure FileNotification(NotifyCode: TOTAFileNotification; const FileName: String; var Cancel: Boolean);
+    procedure Modified;
+  end;
+
+implementation
+
+uses
+  IniFiles;
+
+{$R *.dfm}
+
+{ TProjectNotification }
+
+procedure TProjectNotification.AfterCompile(Succeeded: Boolean);
+begin
+end;
+
+procedure TProjectNotification.AfterSave;
+begin
+end;
+
+procedure TProjectNotification.BeforeCompile(const Project: IOTAProject; var Cancel: Boolean);
+begin
+end;
+
+procedure TProjectNotification.BeforeSave;
+begin
+end;
+
+procedure TProjectNotification.Destroyed;
+begin
+end;
+
+procedure TProjectNotification.FileNotification(NotifyCode: TOTAFileNotification; const FileName: String; var Cancel: Boolean);
+var
+  lFileExt: string;
+begin
+  case NotifyCode of    { }
+    ofnFileOpened:begin
+        lFileExt := ExtractFileExt(Filename);
+        if SameText(lFileExt,'.dpr') or SameText(lFileExt,'.dpk') or SameText(lFileExt,'.bpg') or SameText(lFileExt,'.bdsproj') or SameText(lFileExt,'.bdsgroup') or SameText(lFileExt,'.dproj') or SameText(lFileExt,'.groupproj') then begin
+          TSampleInfoForm.RunSampleInfo(Filename);
+        end;
+      end;
+  end;    { case }
+end;
+
+procedure TProjectNotification.Modified;
+begin
+end;
+
+{ TSampleInfoForm }
+
+var
+  gLastForm: TSampleInfoForm;
+
+class procedure TSampleInfoForm.RunSampleInfo(const aFilename: string);
+var
+  lHelpFile,lIniFile: string;
+begin
+  lHelpFile := ChangeFileExt(aFilename,'.sample.html');
+  lIniFile := ChangeFileExt(lHelpFile,'.ini');
+  if FileExists(lHelpFile) then begin
+
+    with TMemIniFile.Create(lIniFile) do try
+      if ReadBool('Options','DontShow',false) then exit;
+    finally
+      Free();
+    end;
+
+    FreeAndNil(gLastForm);
+    gLastForm := self.Create(Application);
+    with gLastForm do begin
+      Caption := 'Helpful tips about the '+ChangeFileExt(ExtractFileName(aFilename),'')+' project';
+      wb_Browser.Navigate(lHelpFile);
+      fIniFile := lIniFile;
+      Show();
+    end;
+  end;
+end;
+
+procedure TSampleInfoForm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  gLastForm := nil;
+  Release();
+end;
+
+var gNotify:integer;
+
+procedure TSampleInfoForm.sbPrintClick(Sender: TObject);
+var temp : OleVariant;
+begin
+  wb_Browser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, temp, temp);
+end;
+
+procedure TSampleInfoForm.cb_DontShowClick(Sender: TObject);
+begin
+  with TMemIniFile.Create(fIniFile) do try
+    WriteBool('Options','DontShow',cb_DontShow.Checked);
+    UpdateFile();
+  finally
+    Free();
+  end;
+end;
+
+initialization
+  gNotify := (BorlandIDEServices as IOTAServices).AddNotifier(TProjectNotification.Create());
+finalization
+  (BorlandIDEServices as IOTAServices).RemoveNotifier(gNotify);
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWStringTools.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWStringTools.pas
new file mode 100644
index 0000000..2397b22
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWStringTools.pas
@@ -0,0 +1,49 @@
+unit uEWStringTools;
+
+{$I Everwood.inc}
+
+interface
+
+type
+  TStringArray = array of string;
+
+function SplitString(const iString:string; iSeparator:char):TStringArray; overload;
+
+implementation
+
+uses
+  SysUtils;
+
+function SplitString(const iString:string; iSeparator:char):TStringArray;
+var i,Len,Start,Count:integer;
+begin
+  if iString = '' then begin
+    SetLength(result,0);
+    exit;
+  end;
+
+  SetLength(result,2);
+  i := 1;//0;
+  Len := Length(iString);
+  Start := 1;
+  Count := 0;
+  while i <= Len do begin
+    if iString[i] = iSeparator then begin
+      if Count > Length(result)-1 then SetLength(result,Length(result)*2);
+      result[Count] := Trim(Copy(iString,Start,i-Start));
+      Start := i+1;
+      inc(Count);
+    end;
+    inc(i);
+  end;
+
+  if Count < Length(result)+1 then SetLength(result,Length(result)*2);
+  result[Count] := Trim(Copy(iString,Start,Len-Start+1));
+  inc(Count);
+
+  if Count > 0 then begin
+    SetLength(result,Count);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWTools.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWTools.pas
new file mode 100644
index 0000000..c9bbb02
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWTools.pas
@@ -0,0 +1,83 @@
+unit uEWTools;
+
+{$I Everwood.inc}
+
+interface
+{$IFDEF MSWINDOWS}
+uses
+  Windows;
+function IsKeyDown(VirtualKeyCode:Integer=VK_SHIFT): Boolean;
+{$ENDIF}
+
+{$IFDEF FPC}
+
+{$IFNDEF MSWINDOWS}
+type
+  HWND = cardinal;
+  HINST = integer;
+const
+  SW_NORMAL = 1;
+  SW_SHOWNORMAL = 1;
+{$ENDIF}
+function RO_ShellExecute(hWnd: HWND; Operation, FileName, Parameters,  Directory: PChar; ShowCmd: Integer): HINST;
+function RO_ShellExecuteA(hWnd: HWND; Operation, FileName, Parameters, Directory: PAnsiChar; ShowCmd: Integer): HINST;
+function RO_ShellExecuteW(hWnd: HWND; Operation, FileName, Parameters, Directory: PWideChar; ShowCmd: Integer): HINST;
+{$ENDIF}
+
+implementation
+
+{$IFDEF FPC}
+uses
+  {$IFDEF MSWINDOWS}
+  ShellAPI;
+  {$ELSE}
+  SysUtils;
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF MSWINDOWS}
+function IsKeyDown(VirtualKeyCode:Integer=VK_SHIFT): Boolean;
+begin
+  Result := GetKeyState(VirtualKeyCode) and $80 <> 0;
+end;
+{$ENDIF}
+
+{$IFDEF FPC}
+function RO_ShellExecute(hWnd: HWND; Operation, FileName, Parameters,  Directory: PChar; ShowCmd: Integer): HINST;
+begin
+  {$IFDEF MSWINDOWS}
+  Result:=ShellExecute(hWnd, Operation,FileName,Parameters,Directory,ShowCmd);
+  {$ELSE}
+  if Parameters <> nil then
+    Result:=ExecuteProcess(String(Directory),String(Filename)+' '+String(Parameters))
+  else
+    Result:=ExecuteProcess(String(Directory),String(Filename))
+  {$ENDIF}
+end;
+
+function RO_ShellExecuteA(hWnd: HWND; Operation, FileName, Parameters,Directory: PAnsiChar; ShowCmd: Integer): HINST;
+begin
+  {$IFDEF MSWINDOWS}
+  Result:=ShellExecuteA(hWnd, Operation,FileName,Parameters,Directory,ShowCmd);
+  {$ELSE}
+  if Parameters <> nil then
+    Result:=ExecuteProcess(Ansistring(Directory),Ansistring(Filename)+' '+Ansistring(Parameters))
+  else
+    Result:=ExecuteProcess(Ansistring(Directory),Ansistring(Filename))
+  {$ENDIF}
+end;
+
+function RO_ShellExecuteW(hWnd: HWND; Operation, FileName, Parameters,Directory: PWideChar; ShowCmd: Integer): HINST;
+begin
+  {$IFDEF MSWINDOWS}
+  Result:=ShellExecuteW(hWnd, Operation,FileName,Parameters,Directory,ShowCmd);
+  {$ELSE}
+  if Parameters <> nil then
+    Result:=ExecuteProcess(WideString(Directory),WideString(Filename)+' '+WideString(Parameters))
+  else
+    Result:=ExecuteProcess(WideString(Directory),WideString(Filename))
+  {$ENDIF}
+end;
+{$ENDIF}
+
+end.
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.dfm b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.dfm
new file mode 100644
index 0000000..4f8e8cb
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.dfm
@@ -0,0 +1,412 @@
+object EWWizardForm: TEWWizardForm
+  Left = 344
+  Top = 238
+  BorderStyle = bsDialog
+  Caption = 'New Wizard...'
+  ClientHeight = 292
+  ClientWidth = 452
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Bevel1: TBevel
+    Left = 0
+    Top = 42
+    Width = 452
+    Height = 2
+    Align = alTop
+    Shape = bsBottomLine
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 452
+    Height = 42
+    Align = alTop
+    BevelOuter = bvNone
+    Color = clWhite
+    TabOrder = 0
+    object Image1: TImage
+      Left = 5
+      Top = 5
+      Width = 32
+      Height = 32
+      AutoSize = True
+    end
+    object Label1: TLabel
+      Left = 43
+      Top = 5
+      Width = 111
+      Height = 13
+      Caption = 'RemObjects Wizard'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 45
+      Top = 21
+      Width = 48
+      Height = 13
+      Caption = 'Bla Bla Bla'
+    end
+  end
+  object pc_Pages: TPageControl
+    Left = 0
+    Top = 44
+    Width = 452
+    Height = 213
+    ActivePage = ts_Welcome
+    Align = alClient
+    Style = tsFlatButtons
+    TabOrder = 1
+    object ts_Welcome: TTabSheet
+      Caption = 'Welcome'
+      object Label3: TLabel
+        Left = 8
+        Top = 8
+        Width = 201
+        Height = 13
+        Caption = 'Welcome to the New Project Wizard'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label4: TLabel
+        Left = 24
+        Top = 24
+        Width = 31
+        Height = 13
+        Caption = 'Bla Bla'
+      end
+    end
+    object ts_Finish: TTabSheet
+      Caption = 'Finish'
+      ImageIndex = 2
+      object Label5: TLabel
+        Left = 8
+        Top = 8
+        Width = 32
+        Height = 13
+        Caption = 'Done!'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label6: TLabel
+        Left = 24
+        Top = 24
+        Width = 413
+        Height = 13
+        Caption = 
+          'The Wizard is now ready to create your <whatever> with the optio' +
+          'ns selected below:'
+      end
+      object lv_Options: TListView
+        Left = 24
+        Top = 40
+        Width = 393
+        Height = 161
+        Color = clBtnFace
+        Columns = <
+          item
+            Caption = 'Option'
+            Width = -1
+            WidthType = (
+              -1)
+          end
+          item
+            Caption = 'Value'
+            Width = -1
+            WidthType = (
+              -1)
+          end>
+        ColumnClick = False
+        ReadOnly = True
+        RowSelect = True
+        TabOrder = 0
+        ViewStyle = vsReport
+      end
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 257
+    Width = 452
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    object btn_Finish: TBitBtn
+      Left = 372
+      Top = 5
+      Width = 75
+      Height = 25
+      Hint = 'This is Finish, but not the End'
+      Anchors = [akTop, akRight]
+      Caption = 'Finish'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+      Visible = False
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00FF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+        811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF787878787878FF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        811E00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF787878787878787878FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878898989787878FF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF811E00A7632F811E00811E00FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7878789F9F9F78787878
+        7878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878B8B8B8C6
+        C6C6787878787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00D8B69CE6D1BFE7D3C4811E00FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878D1
+        D1D1E0E0E0E2E2E2787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878EBEBEBF5F5F5F1F1F1787878787878FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00D8AF96F4E2CFF0D7BDD8A784811E
+        00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878D0D0D0E9E9E9E3E3E3CACACA787878787878FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878E7
+        E7E7E1E1E1DBDBDBC9C9C9787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00E7BB92E3B081E0A672D5925A811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878D3D3D3CDCDCDC6C6C6BCBCBC787878FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+        35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FF787878BFBFBFB8B8B8B2B2B2ACACAC787878FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00811E
+        00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF787878787878787878787878787878787878FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object btn_Cancel: TBitBtn
+      Left = 5
+      Top = 5
+      Width = 75
+      Height = 25
+      Cancel = True
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object btn_Next: TBitBtn
+      Left = 372
+      Top = 5
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = '&Next'
+      Default = True
+      TabOrder = 2
+      OnClick = btn_NextClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000130B0000130B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        0B7C15097A14087110056A0C04670B04670C04670C04670C04670C04670C0467
+        0C045709FF00FFFF00FFFF00FFFF00FF9C9C9C9C9C9C98989896969695959595
+        9595959595959595959595959595959595909090FF00FFFF00FFFF00FF129A28
+        1AB03A15AF3211AB270DA81F08A61808A51608A51608A61708A61708A51708AB
+        18078D12045708FF00FFFF00FFA8A8A8B0B0B0AEAEAEACACACAAAAAAA8A8A8A8
+        A8A8A8A8A8A8A8A8A8A8A8A8A8A8A9A9A9A0A0A0909090FF00FFFF00FF1BAD3C
+        25C5541EC0451ABE3A15BD3110BA270BB81D09B81909B81A09B81A09B71A09BE
+        1C08AB1704670CFF00FFFF00FFB0B0B0B9B9B9B5B5B5B4B4B4B2B2B2B0B0B0AD
+        ADADADADADADADADADADADADADADAFAFAFA9A9A9959595FF00FFFF00FF20B445
+        31C46429BF5322BB481BBA3D17B73312B4290DB3200AB21909B11809B01809B7
+        1A08A61704680CFF00FFFF00FFB3B3B3BCBCBCB8B8B8B5B5B5B3B3B3B1B1B1AF
+        AFAFADADADACACACACACACABABABADADADA8A8A8959595FF00FFFF00FF22B548
+        3FC87635C367FEFEFE23BC4E1DBA4218B838FEFEFE0EB4240AB31C09B11809B8
+        1A08A61704670CFF00FFFF00FFB3B3B3C0C0C0BCBCBCFEFEFEB5B5B5B3B3B3B1
+        B1B1FEFEFEADADADACACACACACACADADADA8A8A8959595FF00FFFF00FF21B548
+        58D08A46C97AFEFEFEFEFEFE24BD501FBB46FEFEFEFEFEFE10B4290CB21F09B7
+        1A08A61604670CFF00FFFF00FFB3B3B3CACACAC3C3C3FEFEFEFEFEFEB6B6B6B4
+        B4B4FEFEFEFEFEFEAEAEAEACACACADADADA8A8A8959595FF00FFFF00FF21B548
+        77D89F52CC813BC772FEFEFEFEFEFE26BE5421BD4AFEFEFEFEFEFE13B52D0DBA
+        230AA71804680BFF00FFFF00FFB3B3B3D5D5D5C8C8C8C0C0C0FEFEFEFEFEFEB7
+        B7B7B5B5B5FEFEFEFEFEFEB0B0B0AFAFAFA8A8A8959595FF00FFFF00FF21B548
+        8ADEAC5DD08A42C87637C56EFEFEFEFEFEFE27BF5822BD4FFEFEFEFEFEFE14BB
+        310EA922066F0EFF00FFFF00FFB3B3B3DCDCDCCCCCCCC2C2C2BEBEBEFEFEFEFE
+        FEFEB8B8B8B5B5B5FEFEFEFEFEFEB1B1B1AAAAAA989898FF00FFFF00FF21B548
+        95E0B365D28F48CA7AFEFEFEFEFEFE30C3692EC265FEFEFEFEFEFE1FBB461BBE
+        3E14AE2F0A7A14FF00FFFF00FFB3B3B3E0E0E0CECECEC4C4C4FEFEFEFEFEFEBB
+        BBBBBBBBBBFEFEFEFEFEFEB4B4B4B4B4B4ADADAD9C9C9CFF00FFFF00FF21B548
+        9DE3B96FD597FEFEFEFEFEFE40C87439C570FEFEFEFEFEFE2BC16027BF5523C0
+        4E1BB23C0D851AFF00FFFF00FFB3B3B3E3E3E3D2D2D2FEFEFEFEFEFEC1C1C1BF
+        BFBFFEFEFEFEFEFEB9B9B9B8B8B8B7B7B7B0B0B0A0A0A0FF00FFFF00FF21B548
+        A9E6C280DAA3FEFEFE59CF874DCC7E44C978FEFEFE39C57032C36B2DC1632AC2
+        5D20B548108F1FFF00FFFF00FFB3B3B3E7E7E7D8D8D8FEFEFECACACAC6C6C6C2
+        C2C2FEFEFEBFBFBFBCBCBCBABABAB9B9B9B3B3B3A4A4A4FF00FFFF00FF21B549
+        AEE8C5A6E5BF91DFAF86DBA778D79D67D39159CF8744C97836C56E32C36C30C5
+        6A27BB57139C26FF00FFFF00FFB3B3B3E9E9E9E6E6E6DFDFDFDADADAD5D5D5D0
+        D0D0CACACAC2C2C2BDBDBDBCBCBCBCBCBCB7B7B7A8A8A8FF00FFFF00FF22B548
+        92E0B3AEE8C6B1E9C8A9E6C29BE3B887DDAA6AD5964FCD823BC77436C57034C8
+        732BBF5E14A428FF00FFFF00FFB3B3B3DFDFDFE9E9E9EAEAEAE7E7E7E2E2E2DB
+        DBDBD0D0D0C7C7C7C0C0C0BDBDBDBEBEBEB9B9B9ABABABFF00FFFF00FFFF00FF
+        38BB5A51C57053C57151C56F4CC36B42C06437BC5A2EB95325B74A23B54B23B7
+        4A1AAF39FF00FFFF00FFFF00FFFF00FFBBBBBBC5C5C5C6C6C6C5C5C5C3C3C3C0
+        C0C0BBBBBBB8B8B8B5B5B5B4B4B4B4B4B4B0B0B0FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      Layout = blGlyphRight
+      NumGlyphs = 2
+    end
+    object btn_Back: TBitBtn
+      Left = 292
+      Top = 5
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Back'
+      Enabled = False
+      TabOrder = 3
+      OnClick = btn_BackClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000130B0000130B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        0B7C15097A14087110056A0C04670B04670C04670C04670C04670C04670C0467
+        0C045709FF00FFFF00FFFF00FFFF00FF9D9D9D9C9C9C99999996969695959595
+        9595959595959595959595959595959595919191FF00FFFF00FFFF00FF129A28
+        1AB03A15AF3211AB270DA81F08A61808A51608A51608A61708A61708A51708AB
+        18078D12045708FF00FFFF00FFA8A8A8B1B1B1AEAEAEADADADAAAAAAA9A9A9A8
+        A8A8A8A8A8A9A9A9A9A9A9A8A8A8A9A9A9A1A1A1919191FF00FFFF00FF1BAD3C
+        25C5541EC0451ABE3A15BD3110BA270BB81D09B81909B81A09B81A09B71A09BE
+        1C08AB1704670CFF00FFFF00FFB0B0B0B9B9B9B6B6B6B4B4B4B2B2B2B1B1B1AE
+        AEAEADADADADADADADADADADADADAFAFAFA9A9A9959595FF00FFFF00FF20B445
+        31C46429BF5322BB481BBA3D17B73312B4290DB3200AB21909B11809B01809B7
+        1A08A61704680CFF00FFFF00FFB3B3B3BCBCBCB9B9B9B5B5B5B3B3B3B1B1B1AF
+        AFAFADADADADADADACACACABABABADADADA9A9A9969696FF00FFFF00FF22B548
+        3FC87635C3672BBF5723BC4E1DBA42FEFEFE13B72E0EB4240AB31CFEFEFE09B8
+        1A08A61704670CFF00FFFF00FFB4B4B4C1C1C1BDBDBDB9B9B9B6B6B6B4B4B4FE
+        FEFEB1B1B1AEAEAEADADADFEFEFEADADADA9A9A9959595FF00FFFF00FF21B548
+        58D08A46C97A34C5692CBF5DFEFEFEFEFEFE1ABA3D16B733FEFEFEFEFEFE09B7
+        1A08A61604670CFF00FFFF00FFB4B4B4CBCBCBC3C3C3BDBDBDB9B9B9FEFEFEFE
+        FEFEB3B3B3B1B1B1FEFEFEFEFEFEADADADA9A9A9959595FF00FFFF00FF21B548
+        77D89F52CC813BC772FEFEFEFEFEFE26BE5421BD4AFEFEFEFEFEFE13B52D0DBA
+        230AA71804680BFF00FFFF00FFB4B4B4D5D5D5C8C8C8C0C0C0FEFEFEFEFEFEB8
+        B8B8B6B6B6FEFEFEFEFEFEB0B0B0AFAFAFA9A9A9969696FF00FFFF00FF21B548
+        8ADEAC5DD08AFEFEFEFEFEFE2FC3682CC162FEFEFEFEFEFE1EBB4418B93A14BB
+        310EA922066F0EFF00FFFF00FFB4B4B4DDDDDDCCCCCCFEFEFEFEFEFEBCBCBCBA
+        BABAFEFEFEFEFEFEB4B4B4B2B2B2B1B1B1ABABAB989898FF00FFFF00FF21B548
+        95E0B365D28F48CA7AFEFEFEFEFEFE30C3692EC265FEFEFEFEFEFE1FBB461BBE
+        3E14AE2F0A7A14FF00FFFF00FFB4B4B4E0E0E0CECECEC5C5C5FEFEFEFEFEFEBC
+        BCBCBBBBBBFEFEFEFEFEFEB5B5B5B4B4B4AEAEAE9D9D9DFF00FFFF00FF21B548
+        9DE3B96FD59757CE854ECC7FFEFEFEFEFEFE35C56D30C368FEFEFEFEFEFE23C0
+        4E1BB23C0D851AFF00FFFF00FFB4B4B4E3E3E3D2D2D2C9C9C9C7C7C7FEFEFEFE
+        FEFEBDBDBDBCBCBCFEFEFEFEFEFEB7B7B7B1B1B1A1A1A1FF00FFFF00FF21B548
+        A9E6C280DAA35ED08A59CF874DCC7EFEFEFE43C87739C57032C36BFEFEFE2AC2
+        5D20B548108F1FFF00FFFF00FFB4B4B4E7E7E7D9D9D9CDCDCDCBCBCBC6C6C6FE
+        FEFEC2C2C2BFBFBFBCBCBCFEFEFEBABABAB3B3B3A4A4A4FF00FFFF00FF21B549
+        AEE8C5A6E5BF91DFAF86DBA778D79D67D39159CF8744C97836C56E32C36C30C5
+        6A27BB57139C26FF00FFFF00FFB4B4B4E9E9E9E6E6E6DFDFDFDADADAD5D5D5D0
+        D0D0CBCBCBC3C3C3BDBDBDBCBCBCBCBCBCB7B7B7A9A9A9FF00FFFF00FF22B548
+        92E0B3AEE8C6B1E9C8A9E6C29BE3B887DDAA6AD5964FCD823BC77436C57034C8
+        732BBF5E14A428FF00FFFF00FFB4B4B4E0E0E0E9E9E9EBEBEBE7E7E7E3E3E3DC
+        DCDCD1D1D1C7C7C7C0C0C0BDBDBDBEBEBEB9B9B9ABABABFF00FFFF00FFFF00FF
+        38BB5A51C57053C57151C56F4CC36B42C06437BC5A2EB95325B74A23B54B23B7
+        4A1AAF39FF00FFFF00FFFF00FFFF00FFBCBCBCC5C5C5C6C6C6C5C5C5C3C3C3C0
+        C0C0BCBCBCB8B8B8B5B5B5B4B4B4B5B5B5B0B0B0FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.lfm b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.lfm
new file mode 100644
index 0000000..0863322
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.lfm
@@ -0,0 +1,410 @@
+object EWWizardForm: TEWWizardForm
+  Left = 344
+  Height = 310
+  Top = 238
+  Width = 484
+  HorzScrollBar.Page = 483
+  VertScrollBar.Page = 309
+  ActiveControl = pc_Pages
+  BorderStyle = bsDialog
+  Caption = 'New Wizard...'
+  ClientHeight = 310
+  ClientWidth = 484
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  Position = poScreenCenter
+  LCLVersion = '0.9.25'
+  object Bevel1: TBevel
+    Height = 2
+    Top = 42
+    Width = 484
+    Align = alTop
+    Shape = bsBottomLine
+  end
+  object Panel1: TPanel
+    Height = 42
+    Width = 484
+    Align = alTop
+    BevelOuter = bvNone
+    ClientHeight = 42
+    ClientWidth = 484
+    Color = clWhite
+    ParentColor = False
+    TabOrder = 0
+    object Image1: TImage
+      Left = 5
+      Height = 32
+      Top = 5
+      Width = 32
+      AutoSize = True
+      Transparent = False
+    end
+    object Label1: TLabel
+      Left = 43
+      Height = 14
+      Top = 5
+      Width = 112
+      Caption = 'RemObjects Wizard'
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentColor = False
+    end
+    object Label2: TLabel
+      Left = 45
+      Height = 16
+      Top = 21
+      Width = 55
+      Caption = 'Bla Bla Bla'
+      ParentColor = False
+    end
+  end
+  object pc_Pages: TPageControl
+    Height = 231
+    Top = 44
+    Width = 484
+    ActivePage = ts_Welcome
+    Align = alClient
+    TabIndex = 0
+    TabOrder = 1
+    object ts_Welcome: TTabSheet
+      Caption = 'Welcome'
+      ClientHeight = 205
+      ClientWidth = 476
+      object Label3: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 202
+        Caption = 'Welcome to the New Project Wizard'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label4: TLabel
+        Left = 24
+        Height = 16
+        Top = 24
+        Width = 36
+        Caption = 'Bla Bla'
+        ParentColor = False
+      end
+    end
+    object ts_Finish: TTabSheet
+      Caption = 'Finish'
+      ClientHeight = 205
+      ClientWidth = 476
+      ImageIndex = 2
+      object Label5: TLabel
+        Left = 8
+        Height = 14
+        Top = 8
+        Width = 33
+        Caption = 'Done!'
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentColor = False
+      end
+      object Label6: TLabel
+        Left = 24
+        Height = 16
+        Top = 24
+        Width = 445
+        Caption = 'The Wizard is now ready to create your <whatever> with the options selected below:'
+        ParentColor = False
+      end
+      object lv_Options: TListView
+        Left = 24
+        Height = 161
+        Top = 40
+        Width = 445
+        Color = clBtnFace
+        Columns = <        
+          item
+            Caption = 'Option'
+            Width = 25
+          end        
+          item
+            Caption = 'Value'
+            Width = 25
+          end>
+        ColumnClick = False
+        ReadOnly = True
+        RowSelect = True
+        TabOrder = 0
+        ViewStyle = vsReport
+      end
+    end
+  end
+  object Panel2: TPanel
+    Height = 35
+    Top = 275
+    Width = 484
+    Align = alBottom
+    BevelOuter = bvNone
+    ClientHeight = 35
+    ClientWidth = 484
+    TabOrder = 2
+    object btn_Finish: TBitBtn
+      Left = 404
+      Height = 25
+      Hint = 'This is Finish, but not the End'
+      Top = 5
+      Width = 75
+      Anchors = [akTop, akRight]
+      Caption = 'Finish'
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00FF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+        811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF787878787878FF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        811E00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF787878787878787878FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878898989787878FF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF811E00A7632F811E00811E00FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7878789F9F9F78787878
+        7878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878B8B8B8C6
+        C6C6787878787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00D8B69CE6D1BFE7D3C4811E00FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878D1
+        D1D1E0E0E0E2E2E2787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878EBEBEBF5F5F5F1F1F1787878787878FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00D8AF96F4E2CFF0D7BDD8A784811E
+        00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878D0D0D0E9E9E9E3E3E3CACACA787878787878FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF787878E7
+        E7E7E1E1E1DBDBDBC9C9C9787878FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00E7BB92E3B081E0A672D5925A811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF78
+        7878D3D3D3CDCDCDC6C6C6BCBCBC787878FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+        35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FF787878BFBFBFB8B8B8B2B2B2ACACAC787878FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00811E
+        00811E00811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF787878787878787878787878787878787878FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 1
+      NumGlyphs = 2
+      TabOrder = 0
+      Visible = False
+    end
+    object btn_Cancel: TBitBtn
+      Left = 5
+      Height = 25
+      Top = 5
+      Width = 75
+      Cancel = True
+      Caption = 'Cancel'
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 2
+      NumGlyphs = 2
+      TabOrder = 1
+    end
+    object btn_Next: TBitBtn
+      Left = 404
+      Height = 25
+      Top = 5
+      Width = 75
+      Anchors = [akTop, akRight]
+      Caption = '&Next'
+      Default = True
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000130B0000130B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        0B7C15097A14087110056A0C04670B04670C04670C04670C04670C04670C0467
+        0C045709FF00FFFF00FFFF00FFFF00FF9C9C9C9C9C9C98989896969695959595
+        9595959595959595959595959595959595909090FF00FFFF00FFFF00FF129A28
+        1AB03A15AF3211AB270DA81F08A61808A51608A51608A61708A61708A51708AB
+        18078D12045708FF00FFFF00FFA8A8A8B0B0B0AEAEAEACACACAAAAAAA8A8A8A8
+        A8A8A8A8A8A8A8A8A8A8A8A8A8A8A9A9A9A0A0A0909090FF00FFFF00FF1BAD3C
+        25C5541EC0451ABE3A15BD3110BA270BB81D09B81909B81A09B81A09B71A09BE
+        1C08AB1704670CFF00FFFF00FFB0B0B0B9B9B9B5B5B5B4B4B4B2B2B2B0B0B0AD
+        ADADADADADADADADADADADADADADAFAFAFA9A9A9959595FF00FFFF00FF20B445
+        31C46429BF5322BB481BBA3D17B73312B4290DB3200AB21909B11809B01809B7
+        1A08A61704680CFF00FFFF00FFB3B3B3BCBCBCB8B8B8B5B5B5B3B3B3B1B1B1AF
+        AFAFADADADACACACACACACABABABADADADA8A8A8959595FF00FFFF00FF22B548
+        3FC87635C367FEFEFE23BC4E1DBA4218B838FEFEFE0EB4240AB31C09B11809B8
+        1A08A61704670CFF00FFFF00FFB3B3B3C0C0C0BCBCBCFEFEFEB5B5B5B3B3B3B1
+        B1B1FEFEFEADADADACACACACACACADADADA8A8A8959595FF00FFFF00FF21B548
+        58D08A46C97AFEFEFEFEFEFE24BD501FBB46FEFEFEFEFEFE10B4290CB21F09B7
+        1A08A61604670CFF00FFFF00FFB3B3B3CACACAC3C3C3FEFEFEFEFEFEB6B6B6B4
+        B4B4FEFEFEFEFEFEAEAEAEACACACADADADA8A8A8959595FF00FFFF00FF21B548
+        77D89F52CC813BC772FEFEFEFEFEFE26BE5421BD4AFEFEFEFEFEFE13B52D0DBA
+        230AA71804680BFF00FFFF00FFB3B3B3D5D5D5C8C8C8C0C0C0FEFEFEFEFEFEB7
+        B7B7B5B5B5FEFEFEFEFEFEB0B0B0AFAFAFA8A8A8959595FF00FFFF00FF21B548
+        8ADEAC5DD08A42C87637C56EFEFEFEFEFEFE27BF5822BD4FFEFEFEFEFEFE14BB
+        310EA922066F0EFF00FFFF00FFB3B3B3DCDCDCCCCCCCC2C2C2BEBEBEFEFEFEFE
+        FEFEB8B8B8B5B5B5FEFEFEFEFEFEB1B1B1AAAAAA989898FF00FFFF00FF21B548
+        95E0B365D28F48CA7AFEFEFEFEFEFE30C3692EC265FEFEFEFEFEFE1FBB461BBE
+        3E14AE2F0A7A14FF00FFFF00FFB3B3B3E0E0E0CECECEC4C4C4FEFEFEFEFEFEBB
+        BBBBBBBBBBFEFEFEFEFEFEB4B4B4B4B4B4ADADAD9C9C9CFF00FFFF00FF21B548
+        9DE3B96FD597FEFEFEFEFEFE40C87439C570FEFEFEFEFEFE2BC16027BF5523C0
+        4E1BB23C0D851AFF00FFFF00FFB3B3B3E3E3E3D2D2D2FEFEFEFEFEFEC1C1C1BF
+        BFBFFEFEFEFEFEFEB9B9B9B8B8B8B7B7B7B0B0B0A0A0A0FF00FFFF00FF21B548
+        A9E6C280DAA3FEFEFE59CF874DCC7E44C978FEFEFE39C57032C36B2DC1632AC2
+        5D20B548108F1FFF00FFFF00FFB3B3B3E7E7E7D8D8D8FEFEFECACACAC6C6C6C2
+        C2C2FEFEFEBFBFBFBCBCBCBABABAB9B9B9B3B3B3A4A4A4FF00FFFF00FF21B549
+        AEE8C5A6E5BF91DFAF86DBA778D79D67D39159CF8744C97836C56E32C36C30C5
+        6A27BB57139C26FF00FFFF00FFB3B3B3E9E9E9E6E6E6DFDFDFDADADAD5D5D5D0
+        D0D0CACACAC2C2C2BDBDBDBCBCBCBCBCBCB7B7B7A8A8A8FF00FFFF00FF22B548
+        92E0B3AEE8C6B1E9C8A9E6C29BE3B887DDAA6AD5964FCD823BC77436C57034C8
+        732BBF5E14A428FF00FFFF00FFB3B3B3DFDFDFE9E9E9EAEAEAE7E7E7E2E2E2DB
+        DBDBD0D0D0C7C7C7C0C0C0BDBDBDBEBEBEB9B9B9ABABABFF00FFFF00FFFF00FF
+        38BB5A51C57053C57151C56F4CC36B42C06437BC5A2EB95325B74A23B54B23B7
+        4A1AAF39FF00FFFF00FFFF00FFFF00FFBBBBBBC5C5C5C6C6C6C5C5C5C3C3C3C0
+        C0C0BBBBBBB8B8B8B5B5B5B4B4B4B4B4B4B0B0B0FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      Layout = blGlyphRight
+      NumGlyphs = 2
+      OnClick = btn_NextClick
+      TabOrder = 2
+    end
+    object btn_Back: TBitBtn
+      Left = 324
+      Height = 25
+      Top = 5
+      Width = 75
+      Anchors = [akTop, akRight]
+      Caption = 'Back'
+      Enabled = False
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000130B0000130B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        0B7C15097A14087110056A0C04670B04670C04670C04670C04670C04670C0467
+        0C045709FF00FFFF00FFFF00FFFF00FF9D9D9D9C9C9C99999996969695959595
+        9595959595959595959595959595959595919191FF00FFFF00FFFF00FF129A28
+        1AB03A15AF3211AB270DA81F08A61808A51608A51608A61708A61708A51708AB
+        18078D12045708FF00FFFF00FFA8A8A8B1B1B1AEAEAEADADADAAAAAAA9A9A9A8
+        A8A8A8A8A8A9A9A9A9A9A9A8A8A8A9A9A9A1A1A1919191FF00FFFF00FF1BAD3C
+        25C5541EC0451ABE3A15BD3110BA270BB81D09B81909B81A09B81A09B71A09BE
+        1C08AB1704670CFF00FFFF00FFB0B0B0B9B9B9B6B6B6B4B4B4B2B2B2B1B1B1AE
+        AEAEADADADADADADADADADADADADAFAFAFA9A9A9959595FF00FFFF00FF20B445
+        31C46429BF5322BB481BBA3D17B73312B4290DB3200AB21909B11809B01809B7
+        1A08A61704680CFF00FFFF00FFB3B3B3BCBCBCB9B9B9B5B5B5B3B3B3B1B1B1AF
+        AFAFADADADADADADACACACABABABADADADA9A9A9969696FF00FFFF00FF22B548
+        3FC87635C3672BBF5723BC4E1DBA42FEFEFE13B72E0EB4240AB31CFEFEFE09B8
+        1A08A61704670CFF00FFFF00FFB4B4B4C1C1C1BDBDBDB9B9B9B6B6B6B4B4B4FE
+        FEFEB1B1B1AEAEAEADADADFEFEFEADADADA9A9A9959595FF00FFFF00FF21B548
+        58D08A46C97A34C5692CBF5DFEFEFEFEFEFE1ABA3D16B733FEFEFEFEFEFE09B7
+        1A08A61604670CFF00FFFF00FFB4B4B4CBCBCBC3C3C3BDBDBDB9B9B9FEFEFEFE
+        FEFEB3B3B3B1B1B1FEFEFEFEFEFEADADADA9A9A9959595FF00FFFF00FF21B548
+        77D89F52CC813BC772FEFEFEFEFEFE26BE5421BD4AFEFEFEFEFEFE13B52D0DBA
+        230AA71804680BFF00FFFF00FFB4B4B4D5D5D5C8C8C8C0C0C0FEFEFEFEFEFEB8
+        B8B8B6B6B6FEFEFEFEFEFEB0B0B0AFAFAFA9A9A9969696FF00FFFF00FF21B548
+        8ADEAC5DD08AFEFEFEFEFEFE2FC3682CC162FEFEFEFEFEFE1EBB4418B93A14BB
+        310EA922066F0EFF00FFFF00FFB4B4B4DDDDDDCCCCCCFEFEFEFEFEFEBCBCBCBA
+        BABAFEFEFEFEFEFEB4B4B4B2B2B2B1B1B1ABABAB989898FF00FFFF00FF21B548
+        95E0B365D28F48CA7AFEFEFEFEFEFE30C3692EC265FEFEFEFEFEFE1FBB461BBE
+        3E14AE2F0A7A14FF00FFFF00FFB4B4B4E0E0E0CECECEC5C5C5FEFEFEFEFEFEBC
+        BCBCBBBBBBFEFEFEFEFEFEB5B5B5B4B4B4AEAEAE9D9D9DFF00FFFF00FF21B548
+        9DE3B96FD59757CE854ECC7FFEFEFEFEFEFE35C56D30C368FEFEFEFEFEFE23C0
+        4E1BB23C0D851AFF00FFFF00FFB4B4B4E3E3E3D2D2D2C9C9C9C7C7C7FEFEFEFE
+        FEFEBDBDBDBCBCBCFEFEFEFEFEFEB7B7B7B1B1B1A1A1A1FF00FFFF00FF21B548
+        A9E6C280DAA35ED08A59CF874DCC7EFEFEFE43C87739C57032C36BFEFEFE2AC2
+        5D20B548108F1FFF00FFFF00FFB4B4B4E7E7E7D9D9D9CDCDCDCBCBCBC6C6C6FE
+        FEFEC2C2C2BFBFBFBCBCBCFEFEFEBABABAB3B3B3A4A4A4FF00FFFF00FF21B549
+        AEE8C5A6E5BF91DFAF86DBA778D79D67D39159CF8744C97836C56E32C36C30C5
+        6A27BB57139C26FF00FFFF00FFB4B4B4E9E9E9E6E6E6DFDFDFDADADAD5D5D5D0
+        D0D0CBCBCBC3C3C3BDBDBDBCBCBCBCBCBCB7B7B7A9A9A9FF00FFFF00FF22B548
+        92E0B3AEE8C6B1E9C8A9E6C29BE3B887DDAA6AD5964FCD823BC77436C57034C8
+        732BBF5E14A428FF00FFFF00FFB4B4B4E0E0E0E9E9E9EBEBEBE7E7E7E3E3E3DC
+        DCDCD1D1D1C7C7C7C0C0C0BDBDBDBEBEBEB9B9B9ABABABFF00FFFF00FFFF00FF
+        38BB5A51C57053C57151C56F4CC36B42C06437BC5A2EB95325B74A23B54B23B7
+        4A1AAF39FF00FFFF00FFFF00FFFF00FFBCBCBCC5C5C5C6C6C6C5C5C5C3C3C3C0
+        C0C0BCBCBCB8B8B8B5B5B5B4B4B4B5B5B5B0B0B0FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      NumGlyphs = 2
+      OnClick = btn_BackClick
+      TabOrder = 3
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.lrs b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.lrs
new file mode 100644
index 0000000..1300661
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.lrs
@@ -0,0 +1,337 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TEWWizardForm','FORMDATA',[
+  'TPF0'#13'TEWWizardForm'#12'EWWizardForm'#4'Left'#3'X'#1#6'Height'#3'6'#1#3'T'
+  +'op'#3#238#0#5'Width'#3#228#1#18'HorzScrollBar.Page'#3#227#1#18'VertScrollBa'
+  +'r.Page'#3'5'#1#13'ActiveControl'#7#8'pc_Pages'#11'BorderStyle'#7#8'bsDialog'
+  +#7'Caption'#6#13'New Wizard...'#12'ClientHeight'#3'6'#1#11'ClientWidth'#3#228
+  +#1#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#8'OnCreate'#7#10'FormCreat'
+  +'e'#9'OnDestroy'#7#11'FormDestroy'#8'Position'#7#14'poScreenCenter'#10'LCLVe'
+  +'rsion'#6#6'0.9.25'#0#6'TBevel'#6'Bevel1'#6'Height'#2#2#3'Top'#2'*'#5'Width'
+  +#3#228#1#5'Align'#7#5'alTop'#5'Shape'#7#12'bsBottomLine'#0#0#6'TPanel'#6'Pan'
+  +'el1'#6'Height'#2'*'#5'Width'#3#228#1#5'Align'#7#5'alTop'#10'BevelOuter'#7#6
+  +'bvNone'#12'ClientHeight'#2'*'#11'ClientWidth'#3#228#1#5'Color'#7#7'clWhite'
+  +#11'ParentColor'#8#8'TabOrder'#2#0#0#6'TImage'#6'Image1'#4'Left'#2#5#6'Heigh'
+  +'t'#2' '#3'Top'#2#5#5'Width'#2' '#8'AutoSize'#9#11'Transparent'#8#0#0#6'TLab'
+  +'el'#6'Label1'#4'Left'#2'+'#6'Height'#2#14#3'Top'#2#5#5'Width'#2'p'#7'Captio'
+  +'n'#6#17'RemObjects Wizard'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10
+  +'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'
+  +#2'-'#6'Height'#2#16#3'Top'#2#21#5'Width'#2'7'#7'Caption'#6#11'Bla Bla Bla'
+  +#11'ParentColor'#8#0#0#0#12'TPageControl'#8'pc_Pages'#6'Height'#3#231#0#3'To'
+  +'p'#2','#5'Width'#3#228#1#10'ActivePage'#7#10'ts_Welcome'#5'Align'#7#8'alCli'
+  +'ent'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#10'ts_Welcome'#7'Captio'
+  +'n'#6#7'Welcome'#12'ClientHeight'#3#205#0#11'ClientWidth'#3#220#1#0#6'TLabel'
+  +#6'Label3'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5'Width'#3#202#0#7'Caption'
+  +#6'!Welcome to the New Project Wizard'#11'Font.Height'#2#245#9'Font.Name'#6#6
+  +'Tahoma'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#6'Lab'
+  +'el4'#4'Left'#2#24#6'Height'#2#16#3'Top'#2#24#5'Width'#2'$'#7'Caption'#6#7'B'
+  +'la Bla'#11'ParentColor'#8#0#0#0#9'TTabSheet'#9'ts_Finish'#7'Caption'#6#6'Fi'
+  +'nish'#12'ClientHeight'#3#205#0#11'ClientWidth'#3#220#1#10'ImageIndex'#2#2#0
+  +#6'TLabel'#6'Label5'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5'Width'#2'!'#7'C'
+  +'aption'#6#5'Done!'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.S'
+  +'tyle'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#2#24
+  +#6'Height'#2#16#3'Top'#2#24#5'Width'#3#189#1#7'Caption'#6'RThe Wizard is now'
+  +' ready to create your <whatever> with the options selected below:'#11'Paren'
+  +'tColor'#8#0#0#9'TListView'#10'lv_Options'#4'Left'#2#24#6'Height'#3#161#0#3
+  +'Top'#2'('#5'Width'#3#189#1#5'Color'#7#9'clBtnFace'#7'Columns'#14#1#7'Captio'
+  +'n'#6#6'Option'#5'Width'#2#25#0#1#7'Caption'#6#5'Value'#5'Width'#2#25#0#0#11
+  +'ColumnClick'#8#8'ReadOnly'#9#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8
+  +'vsReport'#0#0#0#0#6'TPanel'#6'Panel2'#6'Height'#2'#'#3'Top'#3#19#1#5'Width'
+  +#3#228#1#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2
+  +'#'#11'ClientWidth'#3#228#1#8'TabOrder'#2#2#0#7'TBitBtn'#10'btn_Finish'#4'Le'
+  +'ft'#3#148#1#6'Height'#2#25#4'Hint'#6#31'This is Finish, but not the End'#3
+  +'Top'#2#5#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#6'F'
+  +'inish'#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0
+  +#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0'"'#11#0#0'"'#11#0#0#0#0#0#0#0
+  +#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'xxx'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#129#30#0#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxxxxx'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#129#30
+  +#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxxxxxxxx'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#149
+  +'D'#15#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'
+  +#137#137#137'xxx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#129#30#0#167'c/'#129#30#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0
+  ,#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'xxx'#159#159#159'xxxxxx'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#129#30#0#191#139'b'#204#161'~'#129#30#0#129#30#0#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'xxx'#184#184#184#198#198#198'xxxxxx'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#129#30#0#216#182#156#230#209#191#231#211#196#129#30
+  +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'xxx'#209#209#209#224#224#224#226#226#226
+  +'xxx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#240#226#217#252
+  +#247#242#250#240#230#129#30#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'#235#235
+  +#235#245#245#245#241#241#241'xxxxxx'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#216#175
+  +#150#244#226#207#240#215#189#216#167#132#129#30#0#129#30#0#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'x'
+  +'xx'#208#208#208#233#233#233#227#227#227#202#202#202'xxxxxx'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#243
+  +#222#202#239#212#184#235#201#167#218#166'}'#129#30#0#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +'xxx'#231#231#231#225#225#225#219#219#219#201#201#201'xxx'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#129#30#0#231#187#146#227#176#129#224#166'r'#213#146'Z'
+  +#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'xxx'#211#211#211#205#205#205#198#198#198
+  +#188#188#188'xxx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#218#153'^'#215
+  +#143'P'#211#132'A'#207'{5'#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'xxx'#191#191#191
+  +#184#184#184#178#178#178#172#172#172'xxx'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#129#30#0#129#30#0#129#30#0#129#30#0#129#30#0#129#30#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'xxxxxxxxxxxxxxxxxx'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#11
+  +'ModalResult'#2#1#9'NumGlyphs'#2#2#8'TabOrder'#2#0#7'Visible'#8#0#0#7'TBitBt'
+  +'n'#10'btn_Cancel'#4'Left'#2#5#6'Height'#2#25#3'Top'#2#5#5'Width'#2'K'#6'Can'
+  +'cel'#9#7'Caption'#6#6'Cancel'#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0
+  +#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#196#14
+  +#0#0#196#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'kkkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'kkkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#23'J'#253#16';'#244#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#0','#248#0'0'#252#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'
+  +#168#168#168#160#160#160'kkk'#255#0#255#255#0#255#255#0#255#255#0#255'kkk'
+  ,#154#154#154#156#156#156'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154
+  +#26'G'#248#26'L'#255#18';'#241#0#0#154#255#0#255#255#0#255#0#0#154#1'-'#246#1
+  +'2'#255#0'*'#243#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167#167
+  +#167#170#170#170#159#159#159'kkk'#255#0#255#255#0#255'kkk'#153#153#153#158
+  +#158#158#151#151#151'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#28'G'#246#27'M'#255#20'>'#244#0#0#154#0#0#154#0'-'#248#1'4'#255#3'+'
+  +#242#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'
+  +#167#167#167#171#171#171#162#162#162'kkkkkk'#154#154#154#158#158#158#152#152
+  +#152'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#154#29'H'#246#29'P'#255#16'='#251#4'1'#254#1'2'#255#0','#246#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'kkk'#167#167#167#172#172#172#163#163#163#159#159#159#158#158#158#153#153
+  +#153'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#154#26'H'#249#19'B'#255#12'<'#255#7'3'#246#0#0
+  +#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'kkk'#167#167#167#167#167#167#163#163#163#156
+  +#156#156'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0#0#154'!N'#252#29'K'#255#24'G'#255#23
+  +'C'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#172#172#172#172#172#172#169#169
+  +#169#164#164#164'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0#154'.['#249',_'#255'"M'#248' K'#248'#'
+  +'U'#255#27'F'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'kkk'#177#177#177#179#179#179#171#171#171#170
+  +#170#170#175#175#175#166#166#166'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0#154'6d'#250'8k'#255'-Y'#244#0#0#154#0#0
+  +#154'"L'#244'%X'#255#29'I'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'kkk'#182#182#182#185#185#185#174#174#174'kkkkkk'#169
+  +#169#169#176#176#176#167#167#167'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#154'@q'#250'Bt'#255'2]'#241#0#0#154#255#0#255#255#0#255#0#0
+  +#154'"M'#241'''Z'#255' L'#248#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255
+  +'kkk'#187#187#187#190#190#190#175#175#175'kkk'#255#0#255#255#0#255'kkk'#167
+  +#167#167#177#177#177#170#170#170'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#0#0#154'Iz'#252';f'#243#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+  +#154'%P'#244'&U'#250#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#192
+  +#192#192#181#181#181'kkk'#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#170
+  +#170#170#174#174#174'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'k'
+  +'kkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#11'Mo'
+  +'dalResult'#2#2#9'NumGlyphs'#2#2#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'btn_Next'#4
+  +'Left'#3#148#1#6'Height'#2#25#3'Top'#2#5#5'Width'#2'K'#7'Anchors'#11#5'akTop'
+  +#7'akRight'#0#7'Caption'#6#5'&Next'#7'Default'#9#10'Glyph.Data'#10':'#6#0#0
+  +'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0
+  +#0#0#0#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#11'|'#21#9'z'#20#8'q'#16#5'j'#12#4'g'#11#4'g'#12#4'g'#12#4'g'
+  +#12#4'g'#12#4'g'#12#4'g'#12#4'W'#9#255#0#255#255#0#255#255#0#255#255#0#255
+  +#156#156#156#156#156#156#152#152#152#150#150#150#149#149#149#149#149#149#149
+  +#149#149#149#149#149#149#149#149#149#149#149#149#149#149#144#144#144#255#0
+  +#255#255#0#255#255#0#255#18#154'('#26#176':'#21#175'2'#17#171''''#13#168#31#8
+  +#166#24#8#165#22#8#165#22#8#166#23#8#166#23#8#165#23#8#171#24#7#141#18#4'W'#8
+  ,#255#0#255#255#0#255#168#168#168#176#176#176#174#174#174#172#172#172#170#170
+  +#170#168#168#168#168#168#168#168#168#168#168#168#168#168#168#168#168#168#168
+  +#169#169#169#160#160#160#144#144#144#255#0#255#255#0#255#27#173'<%'#197'T'#30
+  +#192'E'#26#190':'#21#189'1'#16#186''''#11#184#29#9#184#25#9#184#26#9#184#26#9
+  +#183#26#9#190#28#8#171#23#4'g'#12#255#0#255#255#0#255#176#176#176#185#185#185
+  +#181#181#181#180#180#180#178#178#178#176#176#176#173#173#173#173#173#173#173
+  +#173#173#173#173#173#173#173#173#175#175#175#169#169#169#149#149#149#255#0
+  +#255#255#0#255' '#180'E1'#196'd)'#191'S"'#187'H'#27#186'='#23#183'3'#18#180
+  +')'#13#179' '#10#178#25#9#177#24#9#176#24#9#183#26#8#166#23#4'h'#12#255#0#255
+  +#255#0#255#179#179#179#188#188#188#184#184#184#181#181#181#179#179#179#177
+  +#177#177#175#175#175#173#173#173#172#172#172#172#172#172#171#171#171#173#173
+  +#173#168#168#168#149#149#149#255#0#255#255#0#255'"'#181'H?'#200'v5'#195'g'
+  +#254#254#254'#'#188'N'#29#186'B'#24#184'8'#254#254#254#14#180'$'#10#179#28#9
+  +#177#24#9#184#26#8#166#23#4'g'#12#255#0#255#255#0#255#179#179#179#192#192#192
+  +#188#188#188#254#254#254#181#181#181#179#179#179#177#177#177#254#254#254#173
+  +#173#173#172#172#172#172#172#172#173#173#173#168#168#168#149#149#149#255#0
+  +#255#255#0#255'!'#181'HX'#208#138'F'#201'z'#254#254#254#254#254#254'$'#189'P'
+  +#31#187'F'#254#254#254#254#254#254#16#180')'#12#178#31#9#183#26#8#166#22#4'g'
+  +#12#255#0#255#255#0#255#179#179#179#202#202#202#195#195#195#254#254#254#254
+  +#254#254#182#182#182#180#180#180#254#254#254#254#254#254#174#174#174#172#172
+  +#172#173#173#173#168#168#168#149#149#149#255#0#255#255#0#255'!'#181'Hw'#216
+  +#159'R'#204#129';'#199'r'#254#254#254#254#254#254'&'#190'T!'#189'J'#254#254
+  +#254#254#254#254#19#181'-'#13#186'#'#10#167#24#4'h'#11#255#0#255#255#0#255
+  +#179#179#179#213#213#213#200#200#200#192#192#192#254#254#254#254#254#254#183
+  +#183#183#181#181#181#254#254#254#254#254#254#176#176#176#175#175#175#168#168
+  +#168#149#149#149#255#0#255#255#0#255'!'#181'H'#138#222#172']'#208#138'B'#200
+  +'v7'#197'n'#254#254#254#254#254#254''''#191'X"'#189'O'#254#254#254#254#254
+  +#254#20#187'1'#14#169'"'#6'o'#14#255#0#255#255#0#255#179#179#179#220#220#220
+  +#204#204#204#194#194#194#190#190#190#254#254#254#254#254#254#184#184#184#181
+  +#181#181#254#254#254#254#254#254#177#177#177#170#170#170#152#152#152#255#0
+  +#255#255#0#255'!'#181'H'#149#224#179'e'#210#143'H'#202'z'#254#254#254#254#254
+  +#254'0'#195'i.'#194'e'#254#254#254#254#254#254#31#187'F'#27#190'>'#20#174'/'
+  +#10'z'#20#255#0#255#255#0#255#179#179#179#224#224#224#206#206#206#196#196#196
+  +#254#254#254#254#254#254#187#187#187#187#187#187#254#254#254#254#254#254#180
+  +#180#180#180#180#180#173#173#173#156#156#156#255#0#255#255#0#255'!'#181'H'
+  +#157#227#185'o'#213#151#254#254#254#254#254#254'@'#200't9'#197'p'#254#254#254
+  +#254#254#254'+'#193'`'''#191'U#'#192'N'#27#178'<'#13#133#26#255#0#255#255#0
+  +#255#179#179#179#227#227#227#210#210#210#254#254#254#254#254#254#193#193#193
+  +#191#191#191#254#254#254#254#254#254#185#185#185#184#184#184#183#183#183#176
+  +#176#176#160#160#160#255#0#255#255#0#255'!'#181'H'#169#230#194#128#218#163
+  +#254#254#254'Y'#207#135'M'#204'~D'#201'x'#254#254#254'9'#197'p2'#195'k-'#193
+  +'c*'#194'] '#181'H'#16#143#31#255#0#255#255#0#255#179#179#179#231#231#231#216
+  +#216#216#254#254#254#202#202#202#198#198#198#194#194#194#254#254#254#191#191
+  +#191#188#188#188#186#186#186#185#185#185#179#179#179#164#164#164#255#0#255
+  +#255#0#255'!'#181'I'#174#232#197#166#229#191#145#223#175#134#219#167'x'#215
+  +#157'g'#211#145'Y'#207#135'D'#201'x6'#197'n2'#195'l0'#197'j'''#187'W'#19#156
+  +'&'#255#0#255#255#0#255#179#179#179#233#233#233#230#230#230#223#223#223#218
+  +#218#218#213#213#213#208#208#208#202#202#202#194#194#194#189#189#189#188#188
+  +#188#188#188#188#183#183#183#168#168#168#255#0#255#255#0#255'"'#181'H'#146
+  +#224#179#174#232#198#177#233#200#169#230#194#155#227#184#135#221#170'j'#213
+  +#150'O'#205#130';'#199't6'#197'p4'#200's+'#191'^'#20#164'('#255#0#255#255#0
+  +#255#179#179#179#223#223#223#233#233#233#234#234#234#231#231#231#226#226#226
+  +#219#219#219#208#208#208#199#199#199#192#192#192#189#189#189#190#190#190#185
+  +#185#185#171#171#171#255#0#255#255#0#255#255#0#255'8'#187'ZQ'#197'pS'#197'qQ'
+  +#197'oL'#195'kB'#192'd7'#188'Z.'#185'S%'#183'J#'#181'K#'#183'J'#26#175'9'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#187#187#187#197#197#197#198#198#198#197
+  +#197#197#195#195#195#192#192#192#187#187#187#184#184#184#181#181#181#180#180
+  +#180#180#180#180#176#176#176#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#6'Lay'
+  +'out'#7#12'blGlyphRight'#9'NumGlyphs'#2#2#7'OnClick'#7#13'btn_NextClick'#8'T'
+  +'abOrder'#2#2#0#0#7'TBitBtn'#8'btn_Back'#4'Left'#3'D'#1#6'Height'#2#25#3'Top'
+  ,#2#5#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#4'Back'#7
+  +'Enabled'#8#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0
+  +'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#19#11#0#0#19#11#0#0#0#0
+  +#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#11'|'#21#9'z'#20#8'q'#16#5
+  +'j'#12#4'g'#11#4'g'#12#4'g'#12#4'g'#12#4'g'#12#4'g'#12#4'g'#12#4'W'#9#255#0
+  +#255#255#0#255#255#0#255#255#0#255#157#157#157#156#156#156#153#153#153#150
+  +#150#150#149#149#149#149#149#149#149#149#149#149#149#149#149#149#149#149#149
+  +#149#149#149#149#145#145#145#255#0#255#255#0#255#255#0#255#18#154'('#26#176
+  +':'#21#175'2'#17#171''''#13#168#31#8#166#24#8#165#22#8#165#22#8#166#23#8#166
+  +#23#8#165#23#8#171#24#7#141#18#4'W'#8#255#0#255#255#0#255#168#168#168#177#177
+  +#177#174#174#174#173#173#173#170#170#170#169#169#169#168#168#168#168#168#168
+  +#169#169#169#169#169#169#168#168#168#169#169#169#161#161#161#145#145#145#255
+  +#0#255#255#0#255#27#173'<%'#197'T'#30#192'E'#26#190':'#21#189'1'#16#186''''
+  +#11#184#29#9#184#25#9#184#26#9#184#26#9#183#26#9#190#28#8#171#23#4'g'#12#255
+  +#0#255#255#0#255#176#176#176#185#185#185#182#182#182#180#180#180#178#178#178
+  +#177#177#177#174#174#174#173#173#173#173#173#173#173#173#173#173#173#173#175
+  +#175#175#169#169#169#149#149#149#255#0#255#255#0#255' '#180'E1'#196'd)'#191
+  +'S"'#187'H'#27#186'='#23#183'3'#18#180')'#13#179' '#10#178#25#9#177#24#9#176
+  +#24#9#183#26#8#166#23#4'h'#12#255#0#255#255#0#255#179#179#179#188#188#188#185
+  +#185#185#181#181#181#179#179#179#177#177#177#175#175#175#173#173#173#173#173
+  +#173#172#172#172#171#171#171#173#173#173#169#169#169#150#150#150#255#0#255
+  +#255#0#255'"'#181'H?'#200'v5'#195'g+'#191'W#'#188'N'#29#186'B'#254#254#254#19
+  +#183'.'#14#180'$'#10#179#28#254#254#254#9#184#26#8#166#23#4'g'#12#255#0#255
+  +#255#0#255#180#180#180#193#193#193#189#189#189#185#185#185#182#182#182#180
+  +#180#180#254#254#254#177#177#177#174#174#174#173#173#173#254#254#254#173#173
+  +#173#169#169#169#149#149#149#255#0#255#255#0#255'!'#181'HX'#208#138'F'#201'z'
+  +'4'#197'i,'#191']'#254#254#254#254#254#254#26#186'='#22#183'3'#254#254#254
+  +#254#254#254#9#183#26#8#166#22#4'g'#12#255#0#255#255#0#255#180#180#180#203
+  +#203#203#195#195#195#189#189#189#185#185#185#254#254#254#254#254#254#179#179
+  +#179#177#177#177#254#254#254#254#254#254#173#173#173#169#169#169#149#149#149
+  +#255#0#255#255#0#255'!'#181'Hw'#216#159'R'#204#129';'#199'r'#254#254#254#254
+  +#254#254'&'#190'T!'#189'J'#254#254#254#254#254#254#19#181'-'#13#186'#'#10#167
+  +#24#4'h'#11#255#0#255#255#0#255#180#180#180#213#213#213#200#200#200#192#192
+  +#192#254#254#254#254#254#254#184#184#184#182#182#182#254#254#254#254#254#254
+  +#176#176#176#175#175#175#169#169#169#150#150#150#255#0#255#255#0#255'!'#181
+  +'H'#138#222#172']'#208#138#254#254#254#254#254#254'/'#195'h,'#193'b'#254#254
+  +#254#254#254#254#30#187'D'#24#185':'#20#187'1'#14#169'"'#6'o'#14#255#0#255
+  +#255#0#255#180#180#180#221#221#221#204#204#204#254#254#254#254#254#254#188
+  +#188#188#186#186#186#254#254#254#254#254#254#180#180#180#178#178#178#177#177
+  +#177#171#171#171#152#152#152#255#0#255#255#0#255'!'#181'H'#149#224#179'e'#210
+  +#143'H'#202'z'#254#254#254#254#254#254'0'#195'i.'#194'e'#254#254#254#254#254
+  +#254#31#187'F'#27#190'>'#20#174'/'#10'z'#20#255#0#255#255#0#255#180#180#180
+  +#224#224#224#206#206#206#197#197#197#254#254#254#254#254#254#188#188#188#187
+  +#187#187#254#254#254#254#254#254#181#181#181#180#180#180#174#174#174#157#157
+  +#157#255#0#255#255#0#255'!'#181'H'#157#227#185'o'#213#151'W'#206#133'N'#204
+  +''#254#254#254#254#254#254'5'#197'm0'#195'h'#254#254#254#254#254#254'#'#192
+  +'N'#27#178'<'#13#133#26#255#0#255#255#0#255#180#180#180#227#227#227#210#210
+  +#210#201#201#201#199#199#199#254#254#254#254#254#254#189#189#189#188#188#188
+  +#254#254#254#254#254#254#183#183#183#177#177#177#161#161#161#255#0#255#255#0
+  +#255'!'#181'H'#169#230#194#128#218#163'^'#208#138'Y'#207#135'M'#204'~'#254
+  +#254#254'C'#200'w9'#197'p2'#195'k'#254#254#254'*'#194'] '#181'H'#16#143#31
+  +#255#0#255#255#0#255#180#180#180#231#231#231#217#217#217#205#205#205#203#203
+  +#203#198#198#198#254#254#254#194#194#194#191#191#191#188#188#188#254#254#254
+  +#186#186#186#179#179#179#164#164#164#255#0#255#255#0#255'!'#181'I'#174#232
+  +#197#166#229#191#145#223#175#134#219#167'x'#215#157'g'#211#145'Y'#207#135'D'
+  +#201'x6'#197'n2'#195'l0'#197'j'''#187'W'#19#156'&'#255#0#255#255#0#255#180
+  +#180#180#233#233#233#230#230#230#223#223#223#218#218#218#213#213#213#208#208
+  +#208#203#203#203#195#195#195#189#189#189#188#188#188#188#188#188#183#183#183
+  +#169#169#169#255#0#255#255#0#255'"'#181'H'#146#224#179#174#232#198#177#233
+  +#200#169#230#194#155#227#184#135#221#170'j'#213#150'O'#205#130';'#199't6'#197
+  ,'p4'#200's+'#191'^'#20#164'('#255#0#255#255#0#255#180#180#180#224#224#224#233
+  +#233#233#235#235#235#231#231#231#227#227#227#220#220#220#209#209#209#199#199
+  +#199#192#192#192#189#189#189#190#190#190#185#185#185#171#171#171#255#0#255
+  +#255#0#255#255#0#255'8'#187'ZQ'#197'pS'#197'qQ'#197'oL'#195'kB'#192'd7'#188
+  +'Z.'#185'S%'#183'J#'#181'K#'#183'J'#26#175'9'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#188#188#188#197#197#197#198#198#198#197#197#197#195#195#195#192
+  +#192#192#188#188#188#184#184#184#181#181#181#180#180#180#181#181#181#176#176
+  +#176#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#2#7'OnClick'#7#13
+  +'btn_BackClick'#8'TabOrder'#2#3#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.pas b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.pas
new file mode 100644
index 0000000..28d5587
--- /dev/null
+++ b/internal/6.0.43.801/1/Everwood/Source/Delphi/uEWWizard.pas
@@ -0,0 +1,259 @@
+unit uEWWizard;
+
+{----------------------------------------------------------------------------}
+{ RemObjects' Hydra - IDE Library                                            }
+{                                                                            }
+{ compiler: Delphi 6 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of Hydra                          }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I Everwood.inc}
+
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,{$ENDIF}
+  SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;
+
+type
+  TEWWizardForm = class(TForm)
+    Panel1: TPanel;
+    Image1: TImage;
+    Label1: TLabel;
+    Label2: TLabel;
+    Bevel1: TBevel;
+    pc_Pages: TPageControl;
+    ts_Welcome: TTabSheet;
+    ts_Finish: TTabSheet;
+    Panel2: TPanel;
+    btn_Finish: TBitBtn;
+    btn_Cancel: TBitBtn;
+    Label3: TLabel;
+    Label4: TLabel;
+    btn_Next: TBitBtn;
+    btn_Back: TBitBtn;
+    Label5: TLabel;
+    Label6: TLabel;
+    lv_Options: TListView;
+    procedure btn_NextClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure btn_BackClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    fInEnterPage: boolean;
+    fActiveControl: TWinControl;
+    fValues: TStrings;
+    fNextPage: integer;
+    fPreviousPage: integer;
+    function GetActiveControl: TWinControl;
+    procedure SetActiveControl(const Value: TWinControl);
+    function GetNextPage: integer;
+    function GetPreviousPage: integer;
+  protected
+    procedure OnEnterPage(aPage:TTabSheet; aMovingForward:boolean); virtual;
+    procedure OnLeavePage(aPage:TTabSheet; aMovingForward:boolean); virtual;
+    procedure AfterEnterPage(aPage:TTabSheet; aMovingForward:boolean); virtual;
+
+    function CleanPascalString(const aString: string): string;
+  public
+    property Values:TStrings read fValues;
+    function Execute:boolean; overload;
+    class function Execute(aOwner: TComponent): boolean; overload;
+    property ActiveControl: TWinControl read GetActiveControl write SetActiveControl;
+    property NextPage: integer read GetNextPage write fNextPage;
+    property PreviousPage: integer read GetPreviousPage write fPreviousPage;
+  end;
+
+implementation
+
+// uses  FileCtrl;
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF FPC}
+
+{ THYNewProjectWizardForm }
+
+procedure TEWWizardForm.FormCreate(Sender: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to ComponentCount-1 do begin
+    if Components[i] is TTabSheet then TTabSheet(Components[i]).TabVisible := false;
+  end;
+
+  fValues := TStringList.Create();
+
+  Height := Height-16;
+  pc_Pages.ActivePageIndex := 0;
+  OnEnterPage(pc_Pages.Pages[0],true);
+
+  fNextPage := -1;
+  fPreviousPage := -1;
+end;
+
+procedure TEWWizardForm.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(fValues);
+end;
+
+function TEWWizardForm.CleanPascalString(const aString:string):string;
+begin
+  result := aString;
+  result := StringReplace(result,'''','''''',[rfReplaceAll]); { replace quotes with double quotes }
+  result := StringReplace(result,#13#10,'''#13#10''',[rfReplaceAll]);
+  result := ''''+result+'''';
+end;
+
+
+procedure TEWWizardForm.btn_NextClick(Sender: TObject);
+begin
+  if pc_Pages.ActivePageIndex+1 < pc_Pages.PageCount then begin
+    fInEnterPage := true;
+    try
+      OnLeavePage(pc_Pages.Pages[pc_Pages.ActivePageIndex],true);
+      OnEnterPage(pc_Pages.Pages[NextPage],true);
+    finally
+      fInEnterPage := false;
+    end;
+    fPreviousPage := pc_Pages.ActivePageIndex;
+    pc_Pages.ActivePageIndex := NextPage;
+    if Assigned(fActiveControl) then begin
+      inherited ActiveControl := fActiveControl;
+      fActiveControl := nil;
+    end;
+  end;
+  fNextPage := -1;
+  AfterEnterPage(pc_Pages.ActivePage, true);
+end;
+
+procedure TEWWizardForm.btn_BackClick(Sender: TObject);
+begin
+  if pc_Pages.ActivePageIndex > 0 then begin
+    fInEnterPage := true;
+    try
+      OnLeavePage(pc_Pages.Pages[pc_Pages.ActivePageIndex],false);
+      OnEnterPage(pc_Pages.Pages[PreviousPage],false);
+    finally
+      fInEnterPage := false;
+    end;
+    pc_Pages.ActivePageIndex := PreviousPage;
+    if Assigned(fActiveControl) then begin
+      inherited ActiveControl := fActiveControl;
+      fActiveControl := nil;
+    end;
+  end;
+  fNextPage := -1;
+  fPreviousPage := -1;
+  AfterEnterPage(pc_Pages.ActivePage, false);
+end;
+
+
+procedure TEWWizardForm.OnEnterPage(aPage: TTabSheet; aMovingForward: boolean);
+var
+  i: integer;
+begin
+  {$IFDEF FPC}
+  if aMovingForward then btn_Finish.Visible := false else // for prevent warnings
+  {$ENDIF}
+  btn_Finish.Visible := false;
+  btn_Next.Visible := true;
+  if aPage = ts_Welcome then begin
+    btn_Back.Enabled := false;
+    btn_Next.Enabled := true;
+    ActiveControl := btn_Next;
+  end
+  else if aPage = ts_Finish then begin
+    {$IFNDEF FPC}
+    lv_Options.Items.BeginUpdate();
+    {$ENDIF}
+    try
+      lv_Options.Items.Clear();
+      for i := 0 to Values.Count-1 do begin
+        with lv_Options.Items.Add() do begin
+          Caption := Values.Names[i];
+          SubItems.Add(Values.Values[Values.Names[i]]);
+        end;
+      end; { for }
+      btn_Finish.Visible := true;
+      btn_Finish.Enabled := true;
+      btn_Next.Visible := false;
+      ActiveControl := btn_Finish;
+    finally
+      {$IFNDEF FPC}
+      lv_Options.Items.EndUpdate();
+      {$ENDIF}
+    end;
+  end
+  else { default for custom added pages } begin
+    btn_Back.Enabled := true;
+    btn_Next.Enabled := true;
+  end;
+end;
+
+procedure TEWWizardForm.OnLeavePage(aPage: TTabSheet; aMovingForward: boolean);
+begin
+end;
+
+function TEWWizardForm.Execute: boolean;
+begin
+  result := (ShowModal() = 1); // idOk=1
+end;
+
+class function TEWWizardForm.Execute(aOwner: TComponent): boolean;
+begin
+  with self.Create(aOwner) do try
+    result := Execute();
+  finally
+    Free();
+  end;
+end;
+
+function TEWWizardForm.GetActiveControl: TWinControl;
+begin
+  if Assigned(fActiveControl) then
+    result := fActiveControl
+  else
+    result := inherited ActiveControl;
+end;
+
+procedure TEWWizardForm.SetActiveControl(const Value: TWinControl);
+begin
+  if fInEnterPage then begin
+    fActiveControl := Value;
+  end
+  else begin
+    inherited ActiveControl := Value;
+    fActiveControl := nil;
+  end;
+end;
+
+function TEWWizardForm.GetNextPage: integer;
+begin
+  Result := fNextPage;
+  if result = -1 then result := pc_Pages.ActivePageIndex+1;
+end;
+
+function TEWWizardForm.GetPreviousPage: integer;
+begin
+  Result := fPreviousPage;
+  if result = -1 then result := pc_Pages.ActivePageIndex-1;
+end;
+
+procedure TEWWizardForm.AfterEnterPage(aPage: TTabSheet;
+  aMovingForward: boolean);
+begin
+
+end;
+
+{$IFDEF FPC}
+initialization
+  {$i uEWWizard.lrs}
+{$ENDIF}
+end.
+
diff --git a/internal/6.0.43.801/1/Everwood/Welcome/Data Abstract/Welcome.png b/internal/6.0.43.801/1/Everwood/Welcome/Data Abstract/Welcome.png
new file mode 100644
index 0000000..752b4e3
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Welcome/Data Abstract/Welcome.png differ
diff --git a/internal/6.0.43.801/1/Everwood/Welcome/RemObjects SDK/Welcome.png b/internal/6.0.43.801/1/Everwood/Welcome/RemObjects SDK/Welcome.png
new file mode 100644
index 0000000..8c74989
Binary files /dev/null and b/internal/6.0.43.801/1/Everwood/Welcome/RemObjects SDK/Welcome.png differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Bin/PSUnitImporter.exe b/internal/6.0.43.801/1/Pascal Script for Delphi/Bin/PSUnitImporter.exe
new file mode 100644
index 0000000..fa363a1
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Bin/PSUnitImporter.exe differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Changes.txt b/internal/6.0.43.801/1/Pascal Script for Delphi/Changes.txt
new file mode 100644
index 0000000..386b89d
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Changes.txt	
@@ -0,0 +1,187 @@
+==========
+ 3.0.3.57
+==========
+
+- NEW Support for Borland Developer Studio 2006
+
+==========
+ 3.0.3.53
+==========
+- Updated RemObjects SDk integration for Indy 10 / RO .349
+
+==========
+ 3.0.3.51
+==========
+- Support for Delphi 2005
+- Allow overriding internal procs.
+- Add importdecl to old style AddFunction ImportDecl.
+- New compiletime support functions
+- getconst/getconstcount
+- allow interface to be registered more than once and in any order 
+- widestring published properties support.
+- Fix. Var parameter types weren't always checked.
+- fixes for CHAR consts.
+- Eliminate "Comparing signed and unsigned types" warnings (on D5) (jr)
+
+
+==========
+ 3.0.3.39
+==========
+- strtoint now throws an exception for invalid numbers.
+- Compiler fix: Check var parameters.
+- Docs update
+- Fixes in the import tool
+- Added a few new functions to make it earlier to add variable pointers to the script.
+- Added a few new samples
+- New Help system
+
+==========
+ 3.0.3.37
+==========
+
+- Classes and units renamed 
+- product integrated into RemObjects Software product line
+
+==========
+ 3.0.1.33 (17 January 2004)
+==========
+- IDispatch Support now uses Variant for dynamic invocation
+- Smaller tweaks related to IDispatch
+
+==========
+ 3.0.1.32 (16 January 2004)
+==========
+- IDispatch type support
+- Dynamic Invoke using IDispatch
+- Removed Export mode, no need to set it anymore
+- RunProcP, RunProcPN functions, invoke IFPS3 functions with with 1 command
+- TIFPS3CompExec.ExecuteFunction wrapper for RunProcPN
+- Small Fix
+- Included missing .dpk
+
+==========
+ 3.0.1.31 (16 December 2003)
+==========
+- Fixes release
+
+==========
+ 3.0.1.30 (25 November 2003)
+==========
+- Better Interface support
+- Lot's of fixes and improvements
+- Records and other complex types passing to events
+- Adding regular variables to the script
+- PreProcessing
+
+==========
+ 3.0.1.21 (28 August 2003)
+==========
+- Speed Improvements
+- Default array properties
+- A few D5/BCC5 compatiblity changes
+- Help files update
+- SET properties
+- A few other fixes
+- Static arrays
+- With
+- Sets
+- Calling Interfaces (IUnknown etc)
+- AS/IS support (classes)
+- fixes
+- Speed Improvements
+- A small fix.
+
+==========
+ 3.0.1.20 beta 5 (31 July 2003)
+==========
+- Fix in codegen with some expressions
+- All Get* and Add* Method of the exec are now uppercasing their params
+- Removed AddExportVariable, now all variables are "exported"
+- Added an VGetAsString function that returns the string value of any variant.
+- Default array properties.
+
+==========
+ 3.0.1.20 beta 4 (26 July 2003)
+==========
+This release doesn't contain any new features, only fixes.
+
+==========
+ 3.0.1.20 beta 3 (05 May 2003)
+==========
+Changes since last beta:
+- A few D5/BCC5 compatiblity changes
+- Help files update
+- SET properties
+- A few other fixes
+
+==========
+ 3.0.1.20 beta 2 (02 April 2003)
+==========
+What's new: - Static arrays
+- With
+- Sets
+- Calling Interfaces (IUnknown etc)
+- AS/IS support (classes)
+- Assigned fixed
+- IFPS3 raises an exception when one of the Add* functions fail or when a scripted Event fails
+- A lot of fixes
+
+==========
+ 3.0.1.04 stable (09 March 2003)
+==========
+- A few fixes
+
+==========
+ 3.0.1.03 stable (14 January 2003)
+==========
+- New datetime library
+- Besides Open Array now also Dynamic Array (D4+) support
+- A few fixes
+
+==========
+ 3.0.1.02.1 stable (07 November 2002)
+==========
+- WideString/WideChar support
+- Some small fixes
+
+==========
+ 3.0.1.02 stable (26 August 2002)
+==========
+- Compiler speed improvements.
+- Couple of small changes.
+
+==========
+ 3.0.1.01.1 (08 July 2002)
+==========
+- Additions/Changes: Variant and Int64 support in calling library
+- Forward procedures
+- Automaticly adding published properties
+- Try/Finally/Except/End support
+- Open Array parameters in calling library
+- Component Wrapper
+
+==========
+ 3.0.1.01 (20 June 2002)
+==========
+- Added a lot of new imported classes
+- Added support for casting
+- Some fixes and changes
+
+==========
+ 3.0.1.00.3 stable (07 June 2002)
+==========
+- Kylix Demo
+- Dll Library updated for Kylix
+- Variant type
+- array constants
+- Procedural Variables
+- Nil
+- Events
+- Some fixes
+
+==========
+ 3.0.1.00.2 (15 May 2002)
+==========
+- Record support for class calling library.
+- Couple of new support functions.
+- Couple of fixes. 
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.bpl b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.bpl
new file mode 100644
index 0000000..64994aa
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.dcp b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.dcp
new file mode 100644
index 0000000..d965146
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.dcu
new file mode 100644
index 0000000..f8e4be0
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_D11.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_Reg.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_Reg.dcu
new file mode 100644
index 0000000..69d30a7
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_Core_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_RO_D11.bpl b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_RO_D11.bpl
new file mode 100644
index 0000000..aef1ff0
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_RO_D11.bpl differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_RO_D11.dcp b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_RO_D11.dcp
new file mode 100644
index 0000000..b8136d8
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/PascalScript_RO_D11.dcp differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_DB.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_DB.dcu
new file mode 100644
index 0000000..20431d4
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_DB.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_buttons.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_buttons.dcu
new file mode 100644
index 0000000..9488ba8
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_buttons.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_classes.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_classes.dcu
new file mode 100644
index 0000000..fded99b
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_classes.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_comobj.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_comobj.dcu
new file mode 100644
index 0000000..4544e62
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_comobj.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_controls.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_controls.dcu
new file mode 100644
index 0000000..c0593d0
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_controls.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_dateutils.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_dateutils.dcu
new file mode 100644
index 0000000..bafcae0
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_dateutils.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_dll.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_dll.dcu
new file mode 100644
index 0000000..2629c15
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_dll.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_extctrls.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_extctrls.dcu
new file mode 100644
index 0000000..975d0b5
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_extctrls.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_forms.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_forms.dcu
new file mode 100644
index 0000000..3fba245
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_forms.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_graphics.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_graphics.dcu
new file mode 100644
index 0000000..9190d39
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_graphics.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_menus.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_menus.dcu
new file mode 100644
index 0000000..1359f4c
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_menus.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_std.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_std.dcu
new file mode 100644
index 0000000..114e147
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_std.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_stdctrls.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_stdctrls.dcu
new file mode 100644
index 0000000..e641f59
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSC_stdctrls.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSCompiler.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSCompiler.dcu
new file mode 100644
index 0000000..ba5fad0
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSCompiler.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent.dcu
new file mode 100644
index 0000000..fc40004
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_COM.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_COM.dcu
new file mode 100644
index 0000000..f22816e
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_COM.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Controls.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Controls.dcu
new file mode 100644
index 0000000..f5c8dc2
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Controls.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_DB.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_DB.dcu
new file mode 100644
index 0000000..3a5eaf5
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_DB.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Default.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Default.dcu
new file mode 100644
index 0000000..d0b54e1
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Default.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Forms.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Forms.dcu
new file mode 100644
index 0000000..e5b45ba
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_Forms.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_StdCtrls.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_StdCtrls.dcu
new file mode 100644
index 0000000..761b21d
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSComponent_StdCtrls.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSDebugger.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSDebugger.dcu
new file mode 100644
index 0000000..e33ddc8
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSDebugger.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSDisassembly.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSDisassembly.dcu
new file mode 100644
index 0000000..9b89b90
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSDisassembly.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSPreProcessor.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSPreProcessor.dcu
new file mode 100644
index 0000000..9d03948
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSPreProcessor.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_DB.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_DB.dcu
new file mode 100644
index 0000000..8d3f3f6
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_DB.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_buttons.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_buttons.dcu
new file mode 100644
index 0000000..cfa66d6
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_buttons.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_classes.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_classes.dcu
new file mode 100644
index 0000000..41fb79f
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_classes.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_comobj.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_comobj.dcu
new file mode 100644
index 0000000..8e9b7aa
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_comobj.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_controls.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_controls.dcu
new file mode 100644
index 0000000..7bd4aee
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_controls.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_dateutils.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_dateutils.dcu
new file mode 100644
index 0000000..fd18721
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_dateutils.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_dll.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_dll.dcu
new file mode 100644
index 0000000..f310c9f
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_dll.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_extctrls.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_extctrls.dcu
new file mode 100644
index 0000000..4d0f855
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_extctrls.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_forms.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_forms.dcu
new file mode 100644
index 0000000..8aa4f46
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_forms.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_graphics.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_graphics.dcu
new file mode 100644
index 0000000..80a975b
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_graphics.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_menus.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_menus.dcu
new file mode 100644
index 0000000..d95b5bc
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_menus.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_std.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_std.dcu
new file mode 100644
index 0000000..245a702
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_std.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_stdctrls.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_stdctrls.dcu
new file mode 100644
index 0000000..bfc8e8b
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSR_stdctrls.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSRuntime.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSRuntime.dcu
new file mode 100644
index 0000000..075e755
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSRuntime.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSUtils.dcu b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSUtils.dcu
new file mode 100644
index 0000000..666898d
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D11/uPSUtils.dcu differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_Core_D12.bpl b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_Core_D12.bpl
new file mode 100644
index 0000000..3acac61
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_Core_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_Core_D12.dcp b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_Core_D12.dcp
new file mode 100644
index 0000000..e9f15a5
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_Core_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_RO_D12.bpl b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_RO_D12.bpl
new file mode 100644
index 0000000..e58bf30
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_RO_D12.bpl differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_RO_D12.dcp b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_RO_D12.dcp
new file mode 100644
index 0000000..b9c8481
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D12/PascalScript_RO_D12.dcp differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_Core_D14.bpl b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_Core_D14.bpl
new file mode 100644
index 0000000..82a5232
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_Core_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_Core_D14.dcp b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_Core_D14.dcp
new file mode 100644
index 0000000..da347e0
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_Core_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_RO_D14.bpl b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_RO_D14.bpl
new file mode 100644
index 0000000..42c528e
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_RO_D14.bpl differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_RO_D14.dcp b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_RO_D14.dcp
new file mode 100644
index 0000000..e06154b
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D14/PascalScript_RO_D14.dcp differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_Core_D7.bpl b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_Core_D7.bpl
new file mode 100644
index 0000000..60990cf
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_Core_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_Core_D7.dcp b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_Core_D7.dcp
new file mode 100644
index 0000000..132a7f9
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_Core_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_RO_D7.bpl b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_RO_D7.bpl
new file mode 100644
index 0000000..c96352b
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_RO_D7.bpl differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_RO_D7.dcp b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_RO_D7.dcp
new file mode 100644
index 0000000..81ff70f
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Dcu/D7/PascalScript_RO_D7.dcp differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Help/RegisterDelphiHelp.exe b/internal/6.0.43.801/1/Pascal Script for Delphi/Help/RegisterDelphiHelp.exe
new file mode 100644
index 0000000..9536667
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Help/RegisterDelphiHelp.exe differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Launch.exe b/internal/6.0.43.801/1/Pascal Script for Delphi/Launch.exe
new file mode 100644
index 0000000..4b346d2
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Launch.exe differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/License.txt b/internal/6.0.43.801/1/Pascal Script for Delphi/License.txt
new file mode 100644
index 0000000..9b07198
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/License.txt	
@@ -0,0 +1,85 @@
+*** REMOBJECTS SOFTWARE END USER LICENSE AGREEMENT ***
+
+Updated January 8, 2009
+
+IMPORTANT: PLEASE READ THIS DOCUMENT CAREFULLY AND IN ITS ENTIRETY BEFORE USING ANY SOFTWARE PRODUCT ACQUIRED FROM REMOBJECTS SOFTWARE.
+
+This document constitutes a LEGAL AGREEMENT between you, the End User (either an individual or an entity), and RemObjects Software, LLC.
+
+
+1. SCOPE
+
+This End User License Agreement ("EULA") covers all SOFTWARE PRODUCTS produced and sold by RemObjects Software, LLC. The sections of this EULA that contain information that pertain specifically to a certain product are properly marked as such.
+
+SOFTWARE PRODUCTS covered this EULA:
+
+* RemObjects AnyDAC
+* RemObjects Data Abstract 
+* RemObjects DebugServer
+* RemObjects Developer Studio
+* RemObjects Everwood
+* RemObjects Internet Pack 
+* RemObjects Hydra
+* RemObjects Oxygene
+* RemObjects Pascal Script
+* RemObjects SDK 
+
+
+2. DEFINITIONS
+
+SOFTWARE PRODUCTS: refers to one or more product as made available as a unified installation package.
+
+(LIBRARY) SOURCE CODE: refers to the source code shipped with any of the SOFTWARE PRODUCTS licensed to you, the End User, in the �Source� folder of the product installation. 
+
+TOOLS: refers to ANY of the applications deployed with the SOFTWARE PRODUCTS in executable form, whether as auxiliary helper programs of a Library product or as main product. This includes but is not limited to any .EXE files and IDE integration.
+
+SAMPLE CODE: sample code is provided to you as part of the SOFTWARE PRODUCT license inside the �Samples� folder
+
+EXECUTABLE FORMAT refers to executable files such as .EXE and .DLL files build from your own source code, linking in code provided as part of the LIBRARY SOURCE CODE. It does not encompass Delphi .DCU or .BPL/.DCP files or any other format that would allow a third party to the provided file as a replacement for the LIBRARY SOURCE CODE
+
+
+3. COPYRIGHT
+
+This SOFTWARE PRODUCT is owned by RemObjects Software, LLC and is protected by copyright laws and international copyright treaties. 
+
+All copyrights of this SOFTWARE PRODUCT, including but not limited to any source code, tools, documentation, images, text, and samples incorporated into the SOFTWARE PRODUCT, as well as those provided via Support Services or any of the RemObjects websites, are proprietary products of RemObjects Software, LLC and are protected by copyright law. You acquire only the right to use the SOFTWARE PRODUCT and do not acquire any rights of ownership. You acknowledge that the SOFTWARE PRODUCT and its source code remains a confidential trade secret of RemObjects Software, LLC. RemObjects Software, LLC may have trademarks, copyrights, patents or other intellectual property rights covering the SOFTWARE PRODUCT. You are not granted any license to these patents, trademarks, copyrights, or other intellectual property rights except as expressly provided herein. RemObjects Software, LLC reserves all rights not expressly granted.
+
+All names and logos of the SOFTWARE PRODUCTS defined in the SCOPE section of this EULA are trademarks or registered trademarks of RemObjects Software, LLC. These names and logos may only be used by the End User when referring to RemObjects Software, LLC or any of its products. These names and logos may not be used by the End User for branding or marketing purposes, without written consent from RemObjects Software, LLC.
+
+
+2.  GRANT OF LICENSE
+
+BY INSTALLING, COPYING, OR OTHERWISE USING THE SOFTWARE PRODUCT, YOU AGREE TO BE BOUND BY ALL OF THE TERMS AND CONDITIONS OF THIS END USER LICENSE AGREEMENT. IF YOU DO NOT AGREE TO THE TERMS OF THIS AGREEMENT, YOU ARE NOT PERMITTED TO INSTALL, COPY, OR USE THE SOFTWARE PRODUCT. IF YOU REJECT THE TERMS OF THIS AGREEMENT WITHIN THIRTY (30) DAYS AFTER PURCHASING THE SOFTWARE PRODUCT, YOU MAY SEND AN EMAIL TO sales@remobjects.com AND REQUEST A FULL REFUND OF THE PURCHASE PRICE.  IN ORDER TO RECEIVE THE REFUND, YOU MUST IRREVOCABLY UNINSTALL AND/OR DELETE ANY AND ALL COPIES OF THE SOFTWARE PRODUCT(S) YOU HAVE PURCHASED, AND PROVIDE CERTIFICATION OF SUCH TO REMOBJECTS.
+You may make one copy of the SOFTWARE PRODUCT solely for backup or archival purposes or transfer the SOFTWARE PRODUCT to a single hard disk provided you keep the original solely for backup or archival purposes. 
+
+You may install the software on up to five computers, providing you are the only person using the software on these computers.
+
+You may not alter any of the programs or accompanying files without written permission from RemObjects Software, LLC. Any resale or commercial distribution of the SOFTWARE PRODUCT is strictly prohibited, unless RemObjects Software, LLC has given explicit written permission.
+
+You are not obtaining title to the SOFTWARE PRODUCT or any copyrights. You may not sublicense, rent, lease, convey, modify, translate, convert to another programming language, decompile, or disassemble the SOFTWARE PRODUCT for any purpose. RemObjects Software, LLC grants you as an individual, a personal, non exclusive license to install and use the SOFTWARE PRODUCT for the sole purpose of developing systems that are not in competition with the SOFTWARE PRODUCT, or any other products developed and sold by RemObjects Software, LLC. 
+
+If you are an entity, RemObjects Software, LLC grants you the right to designate one individual within your organization to have the right to use the SOFTWARE PRODUCT in the manner described above.
+The named License you acquired is not transferrable to another individual or entity, unless you are given written permission by RemObjects Software, LLC.
+
+You may link against the LIBRARY SOURCE CODE and deploy it in EXECUTABLE FORMAT as part of your application; you may make changes to the LIBRARY SOURCE CODE and write extensions for your own use, and link against and deploy your changes in EXECUTABLE FORMAT. You may NOT deploy RemObjects Software�s source code to anyone.
+SAMPLE CODE for provided for your convenience and you may use it at your discretion. You may create your own products starting from the samples provided and consider this derived work as your own. You may also deploy such derived work in any way you see fit, including in source code form.
+
+Unless specifically stated on a per-tool basis, you may not deploy the TOOLS included with the SOFTWARE PRODUCT to anyone, neither standalone or as part of your own application; the tools are intended solely for use by yourself.
+In general, you may not distribute any part of the installed product, nor any license codes, license files or your website login to third parties. 
+
+
+3. SUPPORT SERVICES
+
+RemObjects Software, LLC may provide the End User with Support Services related to the SOFTWARE PRODUCT. Support Services include free downloading of upgrades as covered by the original purchase, as well as technical support offered via NNTP-based newsgroups, e-mail or telephone. Use of Support Services is governed by RemObjects Software policies and programs described on the RemObjects website (www.remobjects.com/support) and may be subject to additional support charges depending on the type and level of support provided. Any supplemental software code provided to you as part of the Support Services shall be considered part of the SOFTWARE PRODUCT and is subject to the terms and conditions of this EULA.
+
+
+4. TERMINATION
+
+This License shall remain in effect only for so long as you are in compliance with the terms and conditions of this EULA. This License will terminate if you fail to comply with any of its terms or conditions. You may terminate it at any time by destroying your copies of the SOFTWARE PRODUCT. You agree, upon termination, to destroy all copies of the Product. Without prejudice to any other rights, RemObjects Software, LLC may terminate this EULA if you fail to comply with the terms. The provisions of this EULA that protect the proprietary rights of RemObjects Software, LLC and the LIMITATIONS OF WARRANTIES will continue to be in force even after any termination. Upon termination, RemObjects Software, LLC may also enforce any rights provided by law.
+
+
+5. LIMITATIONS OF WARRANTIES AND LIABILITY
+
+THIS SOFTWARE PRODUCT IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTIES OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE APPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE PRODUCT AND ALL OTHER RISK ARISING FROMTHE USE OR PERFORMANCE OF THIS SOFTWARE PRODUCT AND DOCUMENTATION. 
+
+RemObjects Software, LLC SHALL NOT BE LIABLE FOR ANY DAMAGES WHATSOEVER ARISING FROM USE OF OR INABILITY TO USE THIS SOFTWARE PRODUCT, EVEN IF RemObjects Software, LLC HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE LAW, IN NO EVENT SHALL RemObjects Software, LLC BE LIABLE FOR ANY CONSEQUENTIAL, INCIDENTAL, DIRECT, INDIRECT, SPECIAL, PUNITIVE, OR OTHER DAMAGES WHATSOEVER, INCLUDING BUT NOT LIMITED TO DAMAGES OR LOSS OF BUSINESS PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR OTHER PECUNIARY LOSS, EVEN IF RemObjects Software, LLC HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. BECAUSE SOME STATES/JURISDICTIONS DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE ABOVE LIMITATION MAY NOT APPLY.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Pascal Script.ico b/internal/6.0.43.801/1/Pascal Script for Delphi/Pascal Script.ico
new file mode 100644
index 0000000..26e084f
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Pascal Script.ico differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/README.html b/internal/6.0.43.801/1/Pascal Script for Delphi/README.html
new file mode 100644
index 0000000..170180b
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/README.html	
@@ -0,0 +1,64 @@
+<style>
+body, table, tr, td
+{
+margin: 15px;
+font-family: Tahoma, Verdana, sans-serif;
+font-size: 10pt;
+background-color: #f7f7f7;
+}
+p { margin-bottom: 0.75em; margin-top: 0; }
+p.h1, p.h2, p.h3
+{
+margin-top: 1em;
+margin-bottom: 0;
+padding-bottom: 0;
+}
+p.h1
+{
+  border-top: 1px solid #c0c0c0;
+  margin-top: 0.2em;
+  padding-top: 1em;
+}
+a { text-decoration: none }
+.h1 { font-size: 13pt; font-weight: bold; }
+.h2 { font-size: 11pt; font-weight: bold; }
+.h3 { font-size: 10pt; font-weight: bold; }
+ul, ol { margin-top: 0; margin-bottom: 0.75em; }
+pre { margin: 0 }
+.spaced
+{
+letter-spacing: 1px;
+color: #000060;
+}
+
+</style>
+<img src="ps.png" />
+<p class="h1">Welcome to the RemObjects Pascal Script&trade; 3.0</p>
+
+<p class="h2">Support</p>
+
+<p>Support for RemObjects Pascal Script is available via our newsgroups at 
+<a href="news://news.remobjects.com/remobjects.public.pascalscript">remobjects.public.pascalscript</a>.</p> 
+
+<p>You can use these newsgroups to report any problems or suggestions you might have in regards to PS, you can communicate with fellow Pascal Script users, and exchange ideas and solutions.</p>
+
+<p>
+  Updates, additional sample projects and additional third-party contributions for Pascal Script will be available on our website at <a href="http://www.remobjects.com/ps">www.remobjects.com/ps</a>.
+</p>
+
+<p class="h2">Where to go from here</p>
+<p>
+  To get started using the Pascal Script, please visit our extensive article library available at 
+  <a href="http://devcenter.remobjects.com/articles">http://www.remobjects.com/articles</a>.
+</p>
+
+
+<hr width="25%" align="left" style="color: black; height: 1px;"/>
+
+<p>Thank you very much,
+<br />
+Your RemObjects Team
+<br />
+<a href="http://www.remobjects.com">http://www.remobjects.com</a></p>
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Samples.lnk b/internal/6.0.43.801/1/Pascal Script for Delphi/Samples.lnk
new file mode 100644
index 0000000..3e3d871
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Samples.lnk differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D10.bdsgroup b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D10.bdsgroup
new file mode 100644
index 0000000..2f606c0
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D10.bdsgroup	
@@ -0,0 +1,23 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Default.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{1AAFA68F-D7AE-44BA-927F-310105A7A640}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Default.Personality>  
+    
+    
+    
+    <Projects>
+      <Projects Name="PascalScript_Core_D10.bpl">PascalScript_Core_D10.bdsproj</Projects>
+      <Projects Name="PascalScript_RO_D10.bpl">PascalScript_RO_D10.bdsproj</Projects>
+      <Projects Name="Targets">PascalScript_Core_D10.bpl PascalScript_RO_D10.bpl</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>  <StarTeamAssociation></StarTeamAssociation>
+  <StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D11.groupproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D11.groupproj
new file mode 100644
index 0000000..8bf0c0a
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D11.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{301d154e-a852-4e08-89a3-6bfb2774fb38}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="PascalScript_Core_D11.dproj" />
+    <Projects Include="PascalScript_RO_D11.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="PascalScript_Core_D11">
+    <MSBuild Projects="PascalScript_Core_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="PascalScript_Core_D11:Clean">
+    <MSBuild Projects="PascalScript_Core_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PascalScript_Core_D11:Make">
+    <MSBuild Projects="PascalScript_Core_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="PascalScript_RO_D11">
+    <MSBuild Projects="PascalScript_RO_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="PascalScript_RO_D11:Clean">
+    <MSBuild Projects="PascalScript_RO_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PascalScript_RO_D11:Make">
+    <MSBuild Projects="PascalScript_RO_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="PascalScript_Core_D11;PascalScript_RO_D11" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="PascalScript_Core_D11:Clean;PascalScript_RO_D11:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="PascalScript_Core_D11:Make;PascalScript_RO_D11:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D12.groupproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D12.groupproj
new file mode 100644
index 0000000..4a8272f
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D12.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{301d154e-a852-4e08-89a3-6bfb2774fb38}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="PascalScript_Core_D12.dproj" />
+    <Projects Include="PascalScript_RO_D12.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="PascalScript_Core_D12">
+    <MSBuild Projects="PascalScript_Core_D12.dproj" Targets="" />
+  </Target>
+  <Target Name="PascalScript_Core_D12:Clean">
+    <MSBuild Projects="PascalScript_Core_D12.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PascalScript_Core_D12:Make">
+    <MSBuild Projects="PascalScript_Core_D12.dproj" Targets="Make" />
+  </Target>
+  <Target Name="PascalScript_RO_D12">
+    <MSBuild Projects="PascalScript_RO_D12.dproj" Targets="" />
+  </Target>
+  <Target Name="PascalScript_RO_D12:Clean">
+    <MSBuild Projects="PascalScript_RO_D12.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PascalScript_RO_D12:Make">
+    <MSBuild Projects="PascalScript_RO_D12.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="PascalScript_Core_D12;PascalScript_RO_D12" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="PascalScript_Core_D12:Clean;PascalScript_RO_D12:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="PascalScript_Core_D12:Make;PascalScript_RO_D12:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D14.groupproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D14.groupproj
new file mode 100644
index 0000000..6756d58
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D14.groupproj	
@@ -0,0 +1,50 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{301d154e-a852-4e08-89a3-6bfb2774fb38}</ProjectGuid>
+		</PropertyGroup>
+		<ItemGroup>
+			<Projects Include="PascalScript_Core_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="PascalScript_RO_D14.dproj">
+				<Dependencies/>
+			</Projects>
+		</ItemGroup>
+		<ProjectExtensions>
+			<Borland.Personality>Default.Personality.12</Borland.Personality>
+			<Borland.ProjectType/>
+			<BorlandProject>
+				<BorlandProject>
+					<Default.Personality/>
+				</BorlandProject>
+			</BorlandProject>
+		</ProjectExtensions>
+		<Target Name="PascalScript_Core_D14">
+			<MSBuild Projects="PascalScript_Core_D14.dproj"/>
+		</Target>
+		<Target Name="PascalScript_Core_D14:Clean">
+			<MSBuild Targets="Clean" Projects="PascalScript_Core_D14.dproj"/>
+		</Target>
+		<Target Name="PascalScript_Core_D14:Make">
+			<MSBuild Targets="Make" Projects="PascalScript_Core_D14.dproj"/>
+		</Target>
+		<Target Name="PascalScript_RO_D14">
+			<MSBuild Projects="PascalScript_RO_D14.dproj"/>
+		</Target>
+		<Target Name="PascalScript_RO_D14:Clean">
+			<MSBuild Targets="Clean" Projects="PascalScript_RO_D14.dproj"/>
+		</Target>
+		<Target Name="PascalScript_RO_D14:Make">
+			<MSBuild Targets="Make" Projects="PascalScript_RO_D14.dproj"/>
+		</Target>
+		<Target Name="Build">
+			<CallTarget Targets="PascalScript_Core_D14;PascalScript_RO_D14"/>
+		</Target>
+		<Target Name="Clean">
+			<CallTarget Targets="PascalScript_Core_D14:Clean;PascalScript_RO_D14:Clean"/>
+		</Target>
+		<Target Name="Make">
+			<CallTarget Targets="PascalScript_Core_D14:Make;PascalScript_RO_D14:Make"/>
+		</Target>
+		<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
+	</Project>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D6.bpg b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D6.bpg
new file mode 100644
index 0000000..3fe0ddd
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D6.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = PascalScript_Core_D6.bpl PascalScript_RO_D6.bpl
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+PascalScript_Core_D6.bpl: PascalScript_Core_D6.dpk
+  $(DCC)
+
+PascalScript_RO_D6.bpl: PascalScript_RO_D6.dpk
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D7.bpg b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D7.bpg
new file mode 100644
index 0000000..8e45715
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/BuildPackages_D7.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = PascalScript_Core_D7.bpl PascalScript_RO_D7.bpl
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+PascalScript_Core_D7.bpl: PascalScript_Core_D7.dpk
+  $(DCC)
+
+PascalScript_RO_D7.bpl: PascalScript_RO_D7.dpk
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript.inc b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript.inc
new file mode 100644
index 0000000..7e30390
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript.inc	
@@ -0,0 +1,62 @@
+{----------------------------------------------------------------------------}
+{ RemObjects Pascal Script                                                   }
+{                                                                            }
+{ compiler: Delphi 2 and up, Kylix 3 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{----------------------------------------------------------------------------}
+
+
+{$INCLUDE eDefines.inc}
+
+{$IFDEF FPC}{$MODE DELPHI}{$H+}{$ENDIF}
+
+{$IFDEF VER125}{C4}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
+{$IFDEF VER110}{C3}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
+{$IFDEF VER93}{C1}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
+
+{$IFDEF DELPHI4UP}
+  {$DEFINE PS_HAVEVARIANT}
+  {$DEFINE PS_DYNARRAY}
+{$ENDIF}
+
+{$IFNDEF FPC}
+  {$B-}{$X+}{$T-}{$H+}
+{$ELSE}
+  {$R-}{$Q-}
+{$ENDIF}
+
+{$IFNDEF FPC}
+{$IFNDEF DELPHI4UP}
+{$IFNDEF LINUX}
+  {$DEFINE PS_NOINT64}
+{$ENDIF}
+{$ENDIF}
+
+{$IFDEF DELPHI2}
+  {$DEFINE PS_NOINT64}
+  {$DEFINE PS_NOWIDESTRING}
+  {$B-}{$X+}{$T-}{$H+}
+{$ENDIF}
+
+{$IFDEF LINUX}{KYLIX}{$DEFINE CLX}{$DEFINE DELPHI3UP}{$DEFINE DELPHI6UP}{$ENDIF}
+{$ENDIF}
+{$R-}{$Q-}
+
+
+{
+Defines:
+  IFPS3_NOSMARTLIST    - Don't use the smart list option
+}
+
+{$UNDEF DEBUG}
+
+{$IFDEF CLX}
+{$DEFINE PS_NOIDISPATCH} // not implemented
+{$ENDIF}
+
+{$IFDEF FPC}
+  {$I PascalScriptFPC.inc}
+{$ENDIF}
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScriptFPC.inc b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScriptFPC.inc
new file mode 100644
index 0000000..880a117
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScriptFPC.inc	
@@ -0,0 +1,15 @@
+  
+  {$DEFINE PS_HAVEVARIANT}
+  {$DEFINE PS_DYNARRAY}
+  {$DEFINE PS_NOIDISPATCH}
+  {.$if (fpc_version=2) and (fpc_release>=3) and (fpc_patch>=1)}
+  {$if (fpc_version=2) and (fpc_release>=2) and (fpc_patch>=4)}
+    {$UNDEF FPC_OLD_FIX}
+    {$UNDEF PS_FPCSTRINGWORKAROUND}
+  {FreePascal 2.3.1 and above has much Delphi compatibility bugs fixed}
+  {$else}
+    {$DEFINE FPC_OLD_FIX}
+    {$DEFINE PS_FPCSTRINGWORKAROUND}
+  {$ifend}
+  {$DEFINE DELPHI3UP}
+  {$DEFINE DELPHI6UP}
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.bdsproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.bdsproj
new file mode 100644
index 0000000..b3b708b
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.bdsproj	
@@ -0,0 +1,177 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{7803B416-C1B3-4801-BCDB-CB1C64840119}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">PascalScript_Core_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">False</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">False</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>  <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Pascal Script - Core Package</Linker>  <Linker Name="GenerateHpps">False</Linker>
+    </Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>  <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">0</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">6</VersionInfo>
+			<VersionInfo Name="Build">442</VersionInfo>
+			<VersionInfo Name="Debug">0</VersionInfo>
+			<VersionInfo Name="PreRelease">0</VersionInfo>
+			<VersionInfo Name="Special">0</VersionInfo>
+			<VersionInfo Name="Private">0</VersionInfo>
+			<VersionInfo Name="DLL">0</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>  <VersionInfoKeys Name="Compile Date">Monday, February 28, 2005 3:33 PM</VersionInfoKeys>
+    </VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.dpk
new file mode 100644
index 0000000..27aaec8
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.dpk	
@@ -0,0 +1,76 @@
+package PascalScript_Core_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.res
new file mode 100644
index 0000000..bcbf747
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D10.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.dpk
new file mode 100644
index 0000000..f6dc948
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.dpk	
@@ -0,0 +1,77 @@
+package PascalScript_Core_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.dproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.dproj
new file mode 100644
index 0000000..84798a4
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.dproj	
@@ -0,0 +1,596 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{634be604-b73a-4b3d-bc81-719c905199e6}</ProjectGuid>
+    <MainSource>PascalScript_Core_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\PascalScript_Core_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Pascal Script - Core Package</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="CompileDate">Wednesday, December 02, 2009 4:28 PM</VersionInfoKeys><VersionInfoKeys Name="Compile Date">Monday, February 28, 2005 3:33 PM</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PascalScript_Core_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="PascalScript_Core_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\dbrtl.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\rtl.dcp" />
+    <DCCReference Include="..\..\RemObjects SDK for Delphi\Source\vcl.dcp" />
+    <DCCReference Include="PascalScript_Core_Reg.pas" />
+    <DCCReference Include="uPSCompiler.pas" />
+    <DCCReference Include="uPSComponent.pas" />
+    <DCCReference Include="uPSComponent_COM.pas" />
+    <DCCReference Include="uPSComponent_Controls.pas" />
+    <DCCReference Include="uPSComponent_DB.pas" />
+    <DCCReference Include="uPSComponent_Default.pas" />
+    <DCCReference Include="uPSComponent_Forms.pas" />
+    <DCCReference Include="uPSComponent_StdCtrls.pas" />
+    <DCCReference Include="uPSC_buttons.pas" />
+    <DCCReference Include="uPSC_classes.pas" />
+    <DCCReference Include="uPSC_comobj.pas" />
+    <DCCReference Include="uPSC_controls.pas" />
+    <DCCReference Include="uPSC_dateutils.pas" />
+    <DCCReference Include="uPSC_DB.pas" />
+    <DCCReference Include="uPSC_dll.pas" />
+    <DCCReference Include="uPSC_extctrls.pas" />
+    <DCCReference Include="uPSC_forms.pas" />
+    <DCCReference Include="uPSC_graphics.pas" />
+    <DCCReference Include="uPSC_menus.pas" />
+    <DCCReference Include="uPSC_std.pas" />
+    <DCCReference Include="uPSC_stdctrls.pas" />
+    <DCCReference Include="uPSDebugger.pas" />
+    <DCCReference Include="uPSDisassembly.pas" />
+    <DCCReference Include="uPSPreProcessor.pas" />
+    <DCCReference Include="uPSRuntime.pas" />
+    <DCCReference Include="uPSR_buttons.pas" />
+    <DCCReference Include="uPSR_classes.pas" />
+    <DCCReference Include="uPSR_comobj.pas" />
+    <DCCReference Include="uPSR_controls.pas" />
+    <DCCReference Include="uPSR_dateutils.pas" />
+    <DCCReference Include="uPSR_DB.pas" />
+    <DCCReference Include="uPSR_dll.pas" />
+    <DCCReference Include="uPSR_extctrls.pas" />
+    <DCCReference Include="uPSR_forms.pas" />
+    <DCCReference Include="uPSR_graphics.pas" />
+    <DCCReference Include="uPSR_menus.pas" />
+    <DCCReference Include="uPSR_std.pas" />
+    <DCCReference Include="uPSR_stdctrls.pas" />
+    <DCCReference Include="uPSUtils.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.res
new file mode 100644
index 0000000..7ec979e
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D11.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.dpk
new file mode 100644
index 0000000..e75959d
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.dpk	
@@ -0,0 +1,76 @@
+package PascalScript_Core_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.dproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.dproj
new file mode 100644
index 0000000..f1023cc
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.dproj	
@@ -0,0 +1,126 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+	<PropertyGroup>
+		<ProjectGuid>{634be604-b73a-4b3d-bc81-719c905199e6}</ProjectGuid>
+		<MainSource>PascalScript_Core_D12.dpk</MainSource>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_Core_D12.bpl</DCC_DependencyCheckOutputName>
+		<ProjectVersion>11.1</ProjectVersion>
+		<Config Condition="'$(Config)'==''">Base</Config>
+	</PropertyGroup>
+	<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+		<Base>true</Base>
+	</PropertyGroup>
+	<PropertyGroup Condition="'$(Base)'!=''">
+		<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
+		<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_Core_D12.bpl</DCC_DependencyCheckOutputName>
+		<DCC_UnitSearchPath>..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+		<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+		<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+		<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+		<GenDll>true</GenDll>
+		<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+		<DCC_ImageBase>00400000</DCC_ImageBase>
+		<DesignOnlyPackage>true</DesignOnlyPackage>
+		<GenPackage>true</GenPackage>
+		<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+	</PropertyGroup>
+	<ItemGroup>
+		<DelphiCompile Include="PascalScript_Core_D12.dpk">
+			<MainSource>MainSource</MainSource>
+		</DelphiCompile>
+		<DCCReference Include="rtl.dcp"/>
+		<DCCReference Include="vcl.dcp"/>
+		<DCCReference Include="dbrtl.dcp"/>
+		<DCCReference Include="uPSC_extctrls.pas"/>
+		<DCCReference Include="uPSC_forms.pas"/>
+		<DCCReference Include="uPSC_graphics.pas"/>
+		<DCCReference Include="uPSC_menus.pas"/>
+		<DCCReference Include="uPSC_std.pas"/>
+		<DCCReference Include="uPSC_stdctrls.pas"/>
+		<DCCReference Include="uPSCompiler.pas"/>
+		<DCCReference Include="uPSComponent.pas"/>
+		<DCCReference Include="uPSComponent_COM.pas"/>
+		<DCCReference Include="uPSComponent_Controls.pas"/>
+		<DCCReference Include="uPSComponent_DB.pas"/>
+		<DCCReference Include="uPSComponent_Default.pas"/>
+		<DCCReference Include="uPSComponent_Forms.pas"/>
+		<DCCReference Include="uPSComponent_StdCtrls.pas"/>
+		<DCCReference Include="uPSDebugger.pas"/>
+		<DCCReference Include="uPSDisassembly.pas"/>
+		<DCCReference Include="uPSPreProcessor.pas"/>
+		<DCCReference Include="uPSR_buttons.pas"/>
+		<DCCReference Include="uPSR_classes.pas"/>
+		<DCCReference Include="uPSR_comobj.pas"/>
+		<DCCReference Include="uPSR_controls.pas"/>
+		<DCCReference Include="uPSR_dateutils.pas"/>
+		<DCCReference Include="uPSR_DB.pas"/>
+		<DCCReference Include="uPSR_dll.pas"/>
+		<DCCReference Include="uPSR_extctrls.pas"/>
+		<DCCReference Include="uPSR_forms.pas"/>
+		<DCCReference Include="uPSR_graphics.pas"/>
+		<DCCReference Include="uPSR_menus.pas"/>
+		<DCCReference Include="uPSR_std.pas"/>
+		<DCCReference Include="uPSR_stdctrls.pas"/>
+		<DCCReference Include="uPSRuntime.pas"/>
+		<DCCReference Include="uPSUtils.pas"/>
+		<DCCReference Include="uPSC_buttons.pas"/>
+		<DCCReference Include="uPSC_classes.pas"/>
+		<DCCReference Include="uPSC_comobj.pas"/>
+		<DCCReference Include="uPSC_controls.pas"/>
+		<DCCReference Include="uPSC_dateutils.pas"/>
+		<DCCReference Include="uPSC_DB.pas"/>
+		<DCCReference Include="uPSC_dll.pas"/>
+		<DCCReference Include="PascalScript_Core_Reg.pas"/>
+		<BuildConfiguration Include="Base">
+			<Key>Base</Key>
+		</BuildConfiguration>
+	</ItemGroup>
+	<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+	<ProjectExtensions>
+		<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+		<Borland.ProjectType>Package</Borland.ProjectType>
+		<BorlandProject>
+			<Delphi.Personality>
+				<Parameters>
+					<Parameters Name="UseLauncher">False</Parameters>
+					<Parameters Name="LoadAllSymbols">True</Parameters>
+					<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+				</Parameters>
+				<VersionInfo>
+					<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+					<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+					<VersionInfo Name="MajorVer">3</VersionInfo>
+					<VersionInfo Name="MinorVer">0</VersionInfo>
+					<VersionInfo Name="Release">43</VersionInfo>
+					<VersionInfo Name="Build">801</VersionInfo>
+					<VersionInfo Name="Debug">False</VersionInfo>
+					<VersionInfo Name="PreRelease">False</VersionInfo>
+					<VersionInfo Name="Special">False</VersionInfo>
+					<VersionInfo Name="Private">False</VersionInfo>
+					<VersionInfo Name="DLL">False</VersionInfo>
+					<VersionInfo Name="Locale">1033</VersionInfo>
+					<VersionInfo Name="CodePage">1252</VersionInfo>
+				</VersionInfo>
+				<VersionInfoKeys>
+					<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+					<VersionInfoKeys Name="FileDescription"/>
+					<VersionInfoKeys Name="FileVersion">3.0.43.801</VersionInfoKeys>
+					<VersionInfoKeys Name="InternalName"/>
+					<VersionInfoKeys Name="LegalCopyright"/>
+					<VersionInfoKeys Name="LegalTrademarks"/>
+					<VersionInfoKeys Name="OriginalFilename"/>
+					<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
+					<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+					<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
+					<VersionInfoKeys Name="Compile Date">Monday, February 28, 2005 3:33 PM</VersionInfoKeys>
+				</VersionInfoKeys>
+				<Source>
+					<Source Name="MainSource">PascalScript_Core_D12.dpk</Source>
+				</Source>
+			</Delphi.Personality>
+		</BorlandProject>
+		<ProjectFileVersion>12</ProjectFileVersion>
+	</ProjectExtensions>
+</Project>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.res
new file mode 100644
index 0000000..eaacb67
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D12.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.dpk
new file mode 100644
index 0000000..4c7a6a1
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.dpk	
@@ -0,0 +1,152 @@
+package PascalScript_Core_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
+package PascalScript_Core_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.dproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.dproj
new file mode 100644
index 0000000..7d0e53b
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.dproj	
@@ -0,0 +1,127 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+	<PropertyGroup>
+		<ProjectGuid>{634be604-b73a-4b3d-bc81-719c905199e6}</ProjectGuid>
+		<MainSource>PascalScript_Core_D14.dpk</MainSource>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_Core_D12.bpl</DCC_DependencyCheckOutputName>
+		<ProjectVersion>11.1</ProjectVersion>
+		<Config Condition="'$(Config)'==''">Base</Config>
+	</PropertyGroup>
+	<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+		<Base>true</Base>
+	</PropertyGroup>
+	<PropertyGroup Condition="'$(Base)'!=''">
+		<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+		<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
+		<DCC_DependencyCheckOutputName>..\Dcu\D14\PascalScript_Core_D14.bpl</DCC_DependencyCheckOutputName>
+		<DCC_UnitSearchPath>..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+		<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+		<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+		<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+		<GenDll>true</GenDll>
+		<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+		<DCC_ImageBase>00400000</DCC_ImageBase>
+		<DesignOnlyPackage>true</DesignOnlyPackage>
+		<GenPackage>true</GenPackage>
+		<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+	</PropertyGroup>
+	<ItemGroup>
+		<DelphiCompile Include="PascalScript_Core_D14.dpk">
+			<MainSource>MainSource</MainSource>
+		</DelphiCompile>
+		<DCCReference Include="rtl.dcp"/>
+		<DCCReference Include="vcl.dcp"/>
+		<DCCReference Include="dbrtl.dcp"/>
+		<DCCReference Include="uPSC_extctrls.pas"/>
+		<DCCReference Include="uPSC_forms.pas"/>
+		<DCCReference Include="uPSC_graphics.pas"/>
+		<DCCReference Include="uPSC_menus.pas"/>
+		<DCCReference Include="uPSC_std.pas"/>
+		<DCCReference Include="uPSC_stdctrls.pas"/>
+		<DCCReference Include="uPSCompiler.pas"/>
+		<DCCReference Include="uPSComponent.pas"/>
+		<DCCReference Include="uPSComponent_COM.pas"/>
+		<DCCReference Include="uPSComponent_Controls.pas"/>
+		<DCCReference Include="uPSComponent_DB.pas"/>
+		<DCCReference Include="uPSComponent_Default.pas"/>
+		<DCCReference Include="uPSComponent_Forms.pas"/>
+		<DCCReference Include="uPSComponent_StdCtrls.pas"/>
+		<DCCReference Include="uPSDebugger.pas"/>
+		<DCCReference Include="uPSDisassembly.pas"/>
+		<DCCReference Include="uPSPreProcessor.pas"/>
+		<DCCReference Include="uPSR_buttons.pas"/>
+		<DCCReference Include="uPSR_classes.pas"/>
+		<DCCReference Include="uPSR_comobj.pas"/>
+		<DCCReference Include="uPSR_controls.pas"/>
+		<DCCReference Include="uPSR_dateutils.pas"/>
+		<DCCReference Include="uPSR_DB.pas"/>
+		<DCCReference Include="uPSR_dll.pas"/>
+		<DCCReference Include="uPSR_extctrls.pas"/>
+		<DCCReference Include="uPSR_forms.pas"/>
+		<DCCReference Include="uPSR_graphics.pas"/>
+		<DCCReference Include="uPSR_menus.pas"/>
+		<DCCReference Include="uPSR_std.pas"/>
+		<DCCReference Include="uPSR_stdctrls.pas"/>
+		<DCCReference Include="uPSRuntime.pas"/>
+		<DCCReference Include="uPSUtils.pas"/>
+		<DCCReference Include="uPSC_buttons.pas"/>
+		<DCCReference Include="uPSC_classes.pas"/>
+		<DCCReference Include="uPSC_comobj.pas"/>
+		<DCCReference Include="uPSC_controls.pas"/>
+		<DCCReference Include="uPSC_dateutils.pas"/>
+		<DCCReference Include="uPSC_DB.pas"/>
+		<DCCReference Include="uPSC_dll.pas"/>
+		<DCCReference Include="PascalScript_Core_Reg.pas"/>
+		<BuildConfiguration Include="Base">
+			<Key>Base</Key>
+		</BuildConfiguration>
+	</ItemGroup>
+	<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+	<ProjectExtensions>
+		<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+		<Borland.ProjectType>Package</Borland.ProjectType>
+		<BorlandProject>
+			<Delphi.Personality>
+				<Parameters>
+					<Parameters Name="UseLauncher">False</Parameters>
+					<Parameters Name="LoadAllSymbols">True</Parameters>
+					<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+				</Parameters>
+				<VersionInfo>
+					<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+					<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+					<VersionInfo Name="MajorVer">3</VersionInfo>
+					<VersionInfo Name="MinorVer">0</VersionInfo>
+					<VersionInfo Name="Release">43</VersionInfo>
+					<VersionInfo Name="Build">801</VersionInfo>
+					<VersionInfo Name="Debug">False</VersionInfo>
+					<VersionInfo Name="PreRelease">False</VersionInfo>
+					<VersionInfo Name="Special">False</VersionInfo>
+					<VersionInfo Name="Private">False</VersionInfo>
+					<VersionInfo Name="DLL">False</VersionInfo>
+					<VersionInfo Name="Locale">1033</VersionInfo>
+					<VersionInfo Name="CodePage">1252</VersionInfo>
+				</VersionInfo>
+				<VersionInfoKeys>
+					<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+					<VersionInfoKeys Name="FileDescription"/>
+					<VersionInfoKeys Name="FileVersion">3.0.43.801</VersionInfoKeys>
+					<VersionInfoKeys Name="InternalName"/>
+					<VersionInfoKeys Name="LegalCopyright"/>
+					<VersionInfoKeys Name="LegalTrademarks"/>
+					<VersionInfoKeys Name="OriginalFilename"/>
+					<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
+					<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+					<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
+					<VersionInfoKeys Name="Compile Date">Monday, February 28, 2005 3:33 PM</VersionInfoKeys>
+				</VersionInfoKeys>
+				<Source>
+					<Source Name="MainSource">PascalScript_Core_D14.dpk</Source>
+				</Source>
+			</Delphi.Personality>
+		</BorlandProject>
+		<ProjectFileVersion>12</ProjectFileVersion>
+	</ProjectExtensions>
+</Project>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.res
new file mode 100644
index 0000000..34ee35f
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D14.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D3.dof b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D3.dof
new file mode 100644
index 0000000..a71ae03
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D3.dof	
@@ -0,0 +1,115 @@
+[FileVersion]
+Version=3.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Pascal Script - Core Package
+
+[Directories]
+OutputDir=s:\exe
+UnitOutputDir=..\Dcu\D3
+PackageDLLOutputDir=..\Dcu\D3
+PackageDCPOutputDir=..\Dcu\D3
+SearchPath=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+ProductName=Pascal Script
+ProductVersion=3.0.0.0
+FileDescription=
+FileVersion=3.0.2.34
+OriginalFilename=
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D3.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D3.dpk
new file mode 100644
index 0000000..6fa0e11
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D3.dpk	
@@ -0,0 +1,76 @@
+package PascalScript_Core_D3;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D4.dof b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D4.dof
new file mode 100644
index 0000000..735a460
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D4.dof	
@@ -0,0 +1,114 @@
+[FileVersion]
+Version=4.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Pascal Script - Core Package
+
+[Directories]
+UnitOutputDir=..\Dcu\D4
+PackageDLLOutputDir=..\Dcu\D4
+PackageDCPOutputDir=..\Dcu\D4
+SearchPath=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+ProductName=Pascal Script
+ProductVersion=3.0.0.0
+FileDescription=
+FileVersion=3.0.2.34
+OriginalFilename=
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D4.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D4.dpk
new file mode 100644
index 0000000..d300a0e
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D4.dpk	
@@ -0,0 +1,76 @@
+package PascalScript_Core_D4
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D5.dof b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D5.dof
new file mode 100644
index 0000000..5b2a54e
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D5.dof	
@@ -0,0 +1,114 @@
+[FileVersion]
+Version=5.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Pascal Script - Core Package
+
+[Directories]
+UnitOutputDir=..\Dcu\D5
+PackageDLLOutputDir=..\Dcu\D5
+PackageDCPOutputDir=..\Dcu\D5
+SearchPath=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+ProductName=Pascal Script
+ProductVersion=3.0.0.0
+FileDescription=
+FileVersion=3.0.2.34
+OriginalFilename=
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D5.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D5.dpk
new file mode 100644
index 0000000..6c09f9a
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D5.dpk	
@@ -0,0 +1,76 @@
+package PascalScript_Core_D5;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.dof b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.dof
new file mode 100644
index 0000000..5e1c515
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.dof	
@@ -0,0 +1,114 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Pascal Script - Core Package
+
+[Directories]
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+ProductName=Pascal Script
+ProductVersion=3.0.0.0
+FileDescription=
+FileVersion=3.0.2.36
+OriginalFilename=
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.dpk
new file mode 100644
index 0000000..4bf9c7b
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.dpk	
@@ -0,0 +1,76 @@
+package PascalScript_Core_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.res
new file mode 100644
index 0000000..b0b3400
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D6.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.dof b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.dof
new file mode 100644
index 0000000..51d8004
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.dof	
@@ -0,0 +1,123 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Pascal Script - Core Package
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+ProductName=Pascal Script
+ProductVersion=3.0.0.0
+FileDescription=
+FileVersion=3.0.43.801
+OriginalFilename=
+CompileDate=Tuesday, March 21, 2006 1:32 PM
+
+[Version Info]
+IncludeVerInfo=1
+MajorVer=3
+MinorVer=0
+Release=43
+Build=801
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.dpk
new file mode 100644
index 0000000..4695586
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.dpk	
@@ -0,0 +1,76 @@
+package PascalScript_Core_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  uPSR_forms in 'uPSR_forms.pas',
+  uPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.res
new file mode 100644
index 0000000..eaacb67
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_D7.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_Glyphs.RES b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_Glyphs.RES
new file mode 100644
index 0000000..aa4c040
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_Glyphs.RES differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_K3.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_K3.dpk
new file mode 100644
index 0000000..bbc6bb3
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_K3.dpk	
@@ -0,0 +1,76 @@
+package PascalScript_Core_K3;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uPSC_extctrls in 'uPSC_extctrls.pas',
+  uPSC_forms in 'uPSC_forms.pas',
+  uPSC_graphics in 'uPSC_graphics.pas',
+  uPSC_menus in 'uPSC_menus.pas',
+  uPSC_std in 'uPSC_std.pas',
+  uPSC_stdctrls in 'uPSC_stdctrls.pas',
+  uPSCompiler in 'uPSCompiler.pas',
+  uPSComponent in 'uPSComponent.pas',
+  uPSComponent_COM in 'uPSComponent_COM.pas',
+  uPSComponent_Controls in 'uPSComponent_Controls.pas',
+  uPSComponent_DB in 'uPSComponent_DB.pas',
+  uPSComponent_Default in 'uPSComponent_Default.pas',
+  uPSComponent_Forms in 'uPSComponent_Forms.pas',
+  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
+  uPSDebugger in 'uPSDebugger.pas',
+  uPSDisassembly in 'uPSDisassembly.pas',
+  uPSPreProcessor in 'uPSPreProcessor.pas',
+  uPSR_buttons in 'uPSR_buttons.pas',
+  uPSR_classes in 'uPSR_classes.pas',
+  uPSR_comobj in 'uPSR_comobj.pas',
+  uPSR_controls in 'uPSR_controls.pas',
+  uPSR_dateutils in 'uPSR_dateutils.pas',
+  uPSR_DB in 'uPSR_DB.pas',
+  uPSR_dll in 'uPSR_dll.pas',
+  uPSR_extctrls in 'uPSR_extctrls.pas',
+  UPSR_forms in 'uPSR_forms.pas',
+  UPSR_graphics in 'uPSR_graphics.pas',
+  uPSR_menus in 'uPSR_menus.pas',
+  uPSR_std in 'uPSR_std.pas',
+  uPSR_stdctrls in 'uPSR_stdctrls.pas',
+  uPSRuntime in 'uPSRuntime.pas',
+  uPSUtils in 'uPSUtils.pas',
+  uPSC_buttons in 'uPSC_buttons.pas',
+  uPSC_classes in 'uPSC_classes.pas',
+  uPSC_comobj in 'uPSC_comobj.pas',
+  uPSC_controls in 'uPSC_controls.pas',
+  uPSC_dateutils in 'uPSC_dateutils.pas',
+  uPSC_DB in 'uPSC_DB.pas',
+  uPSC_dll in 'uPSC_dll.pas',
+  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_K3.kof b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_K3.kof
new file mode 100644
index 0000000..ee8a4da
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_K3.kof	
@@ -0,0 +1,114 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Pascal Script - Core Package
+
+[Directories]
+UnitOutputDir=../Dcu/K3
+PackageDLLOutputDir=../Dcu/K3
+PackageDCPOutputDir=../Dcu/K3
+SearchPath=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+ProductName=Pascal Script
+ProductVersion=3.0.0.0
+FileDescription=
+FileVersion=3.0.2.34
+OriginalFilename=
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_Reg.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_Reg.pas
new file mode 100644
index 0000000..5987b51
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_Core_Reg.pas	
@@ -0,0 +1,65 @@
+unit PascalScript_Core_Reg;
+
+{----------------------------------------------------------------------------
+/ RemObjects Pascal Script
+/
+/ compiler: Delphi 2 and up, Kylix 3 and up
+/ platform: Win32, Linux
+/
+/ (c)opyright RemObjects Software. all rights reserved.
+/
+----------------------------------------------------------------------------}
+
+{$I PascalScript.inc}
+
+interface
+
+{$IFNDEF FPC}
+{$R PascalScript_Core_Glyphs.res}
+{$ENDIF}
+
+procedure Register;
+
+implementation
+
+uses
+  Classes,
+  {$IFDEF FPC}
+   LResources,
+  {$ENDIF}
+  uPSComponent,
+  uPSDebugger,
+  uPSComponent_Default,
+ {$IFNDEF FPC}
+  uPSComponent_COM,
+ {$ENDIF}
+  uPSComponent_DB,
+  uPSComponent_Forms,
+  uPSComponent_Controls,
+  uPSComponent_StdCtrls;
+
+procedure Register;
+begin
+  RegisterComponents('Pascal Script', [TPSScript,
+                                       TPSScriptDebugger,
+                                       TPSDllPlugin,
+                                       TPSImport_Classes,
+                                       TPSImport_DateUtils,
+                                       {$IFNDEF FPC}
+                                       TPSImport_ComObj,
+                                       {$ENDIF}
+                                       TPSImport_DB,
+                                       TPSImport_Forms,
+                                       TPSImport_Controls,
+                                       TPSImport_StdCtrls,
+                                       TPSCustumPlugin]);
+end;
+
+
+{$IFDEF FPC}
+ initialization;
+ {$i pascalscript.lrs}
+{$ENDIF}
+
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.bdsproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.bdsproj
new file mode 100644
index 0000000..ce21b21
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.bdsproj	
@@ -0,0 +1,179 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{5B47E7C8-6AAF-4215-8EC3-60B739B2B5F3}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">PascalScript_RO_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">False</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">False</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects Pascal Script - RemObjects SDK 4.0 Integration</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath">..\Dcu\D10;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">38</VersionInfo>
+			<VersionInfo Name="Build">769</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.38.769</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="CompileDate">Friday, May 15, 2009 1:36 PM</VersionInfoKeys></VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.dpk
new file mode 100644
index 0000000..414bd0c
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.dpk	
@@ -0,0 +1,47 @@
+package PascalScript_RO_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 4.0 Integration'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  {$IFDEF RemObjects_INDY9}
+  Indy,
+  {$ELSE}
+  IndyCore, IndySystem, IndyProtocols,
+  {$ENDIF}
+  PascalScript_Core_D10,
+  RemObjects_Core_D10,
+  RemObjects_Indy_D10,
+  dbrtl,
+  vcl,
+  vclx;
+
+contains
+  PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
+  uROPSServerLink in 'uROPSServerLink.pas',
+  uROPSImports in 'uROPSImports.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.res
new file mode 100644
index 0000000..bcbf747
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D10.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.dpk
new file mode 100644
index 0000000..f0e2e8a
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.dpk	
@@ -0,0 +1,47 @@
+package PascalScript_RO_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 5.0 Integration'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  {$IFDEF RemObjects_INDY9}
+  Indy,
+  {$ELSE}
+  IndyCore, IndySystem, IndyProtocols,
+  {$ENDIF}
+  PascalScript_Core_D11,
+  RemObjects_Core_D11,
+  RemObjects_Indy_D11,
+  dbrtl,
+  vcl,
+  vclx;
+
+contains
+  PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
+  uROPSServerLink in 'uROPSServerLink.pas',
+  uROPSImports in 'uROPSImports.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.dproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.dproj
new file mode 100644
index 0000000..b028407
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.dproj	
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+	<PropertyGroup>
+		<ProjectGuid>{0eefdf9b-7853-40e5-9b29-b631f51beeda}</ProjectGuid>
+		<MainSource>PascalScript_RO_D11.dpk</MainSource>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DependencyCheckOutputName>..\Dcu\D11\PascalScript_RO_D11.bpl</DCC_DependencyCheckOutputName>
+	</PropertyGroup>
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+		<Version>7.0</Version>
+		<DCC_DebugInformation>False</DCC_DebugInformation>
+		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_DcuOutput>..\Dcu\D9</DCC_DcuOutput>
+		<DCC_ObjOutput>..\Dcu\D9</DCC_ObjOutput>
+		<DCC_HppOutput>..\Dcu\D9</DCC_HppOutput>
+		<DCC_BplOutput>..\Dcu\D9</DCC_BplOutput>
+		<DCC_UnitSearchPath>..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</DCC_UnitSearchPath>
+		<DCC_ResourcePath>..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</DCC_ResourcePath>
+		<DCC_ObjPath>..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</DCC_ObjPath>
+		<DCC_IncludePath>..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</DCC_IncludePath>
+		<DCC_Define>RELEASE</DCC_Define>
+		<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+		<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+		<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+		<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+		<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+		<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+		<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+	</PropertyGroup>
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+		<Version>7.0</Version>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+		<DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+		<DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+		<DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+		<DCC_UnitSearchPath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_UnitSearchPath>
+		<DCC_ResourcePath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_ResourcePath>
+		<DCC_ObjPath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_ObjPath>
+		<DCC_IncludePath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_IncludePath>
+		<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+		<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+		<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+		<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+		<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+		<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+		<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+		<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+		<DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+	</PropertyGroup>
+	<ProjectExtensions>
+		<Borland.Personality>Delphi.Personality</Borland.Personality>
+		<Borland.ProjectType>Package</Borland.ProjectType>
+		<BorlandProject>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Pascal Script - RemObjects SDK 5.0 Integration</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PascalScript_RO_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+	</ProjectExtensions>
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+	<ItemGroup>
+		<DelphiCompile Include="PascalScript_RO_D11.dpk">
+			<MainSource>MainSource</MainSource>
+		</DelphiCompile>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\dbrtl.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\IndyCore.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\IndyProtocols.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\IndySystem.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\PascalScript_Core_D11.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\RemObjects_Core_D11.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\RemObjects_Indy_D11.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\rtl.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\vcl.dcp"/>
+		<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\vclx.dcp"/>
+		<DCCReference Include="PascalScript_RO_Reg.pas"/>
+		<DCCReference Include="uROPSImports.pas"/>
+		<DCCReference Include="uROPSServerLink.pas"/>
+	</ItemGroup>
+</Project>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.res
new file mode 100644
index 0000000..eaacb67
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D11.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.dpk
new file mode 100644
index 0000000..25dd8aa
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.dpk	
@@ -0,0 +1,47 @@
+package PascalScript_RO_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 5.0 Integration'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  {$IFDEF RemObjects_INDY9}
+  Indy,
+  {$ELSE}
+  IndyCore, IndySystem, IndyProtocols,
+  {$ENDIF}
+  PascalScript_Core_D12,
+  RemObjects_Core_D12,
+  RemObjects_Indy_D12,
+  dbrtl,
+  vcl,
+  vclx;
+
+contains
+  PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
+  uROPSServerLink in 'uROPSServerLink.pas',
+  uROPSImports in 'uROPSImports.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.dproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.dproj
new file mode 100644
index 0000000..5a69f7d
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.dproj	
@@ -0,0 +1,96 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+	<PropertyGroup>
+		<ProjectGuid>{0eefdf9b-7853-40e5-9b29-b631f51beeda}</ProjectGuid>
+		<MainSource>PascalScript_RO_D12.dpk</MainSource>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_RO_D12.bpl</DCC_DependencyCheckOutputName>
+		<ProjectVersion>11.1</ProjectVersion>
+		<Config Condition="'$(Config)'==''">Base</Config>
+	</PropertyGroup>
+	<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+		<Base>true</Base>
+	</PropertyGroup>
+	<PropertyGroup Condition="'$(Base)'!=''">
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
+		<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_RO_D12.bpl</DCC_DependencyCheckOutputName>
+		<DCC_UnitSearchPath>..\Dcu\D12;..\..\RemObjects SDK for Dephi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+		<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+		<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+		<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+		<GenDll>true</GenDll>
+		<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+		<DCC_ImageBase>00400000</DCC_ImageBase>
+		<DesignOnlyPackage>false</DesignOnlyPackage>
+		<GenPackage>true</GenPackage>
+		<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+	</PropertyGroup>
+	<ItemGroup>
+		<DelphiCompile Include="PascalScript_RO_D12.dpk">
+			<MainSource>MainSource</MainSource>
+		</DelphiCompile>
+		<DCCReference Include="rtl.dcp"/>
+		<DCCReference Include="IndyCore.dcp"/>
+		<DCCReference Include="IndySystem.dcp"/>
+		<DCCReference Include="IndyProtocols.dcp"/>
+		<DCCReference Include="PascalScript_Core_D12.dcp"/>
+		<DCCReference Include="RemObjects_Core_D12.dcp"/>
+		<DCCReference Include="RemObjects_Indy_D12.dcp"/>
+		<DCCReference Include="dbrtl.dcp"/>
+		<DCCReference Include="vcl.dcp"/>
+		<DCCReference Include="vclx.dcp"/>
+		<DCCReference Include="PascalScript_RO_Reg.pas"/>
+		<DCCReference Include="uROPSServerLink.pas"/>
+		<DCCReference Include="uROPSImports.pas"/>
+		<BuildConfiguration Include="Base">
+			<Key>Base</Key>
+		</BuildConfiguration>
+	</ItemGroup>
+	<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+	<ProjectExtensions>
+		<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+		<Borland.ProjectType>Package</Borland.ProjectType>
+		<BorlandProject>
+			<Delphi.Personality>
+				<Parameters>
+					<Parameters Name="UseLauncher">False</Parameters>
+					<Parameters Name="LoadAllSymbols">True</Parameters>
+					<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+				</Parameters>
+				<VersionInfo>
+					<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+					<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+					<VersionInfo Name="MajorVer">3</VersionInfo>
+					<VersionInfo Name="MinorVer">0</VersionInfo>
+					<VersionInfo Name="Release">43</VersionInfo>
+					<VersionInfo Name="Build">801</VersionInfo>
+					<VersionInfo Name="Debug">False</VersionInfo>
+					<VersionInfo Name="PreRelease">False</VersionInfo>
+					<VersionInfo Name="Special">False</VersionInfo>
+					<VersionInfo Name="Private">False</VersionInfo>
+					<VersionInfo Name="DLL">False</VersionInfo>
+					<VersionInfo Name="Locale">1033</VersionInfo>
+					<VersionInfo Name="CodePage">1252</VersionInfo>
+				</VersionInfo>
+				<VersionInfoKeys>
+					<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+					<VersionInfoKeys Name="FileDescription"/>
+					<VersionInfoKeys Name="FileVersion">3.0.43.801</VersionInfoKeys>
+					<VersionInfoKeys Name="InternalName"/>
+					<VersionInfoKeys Name="LegalCopyright"/>
+					<VersionInfoKeys Name="LegalTrademarks"/>
+					<VersionInfoKeys Name="OriginalFilename"/>
+					<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
+					<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+					<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
+				</VersionInfoKeys>
+				<Source>
+					<Source Name="MainSource">PascalScript_RO_D12.dpk</Source>
+				</Source>
+			</Delphi.Personality>
+		</BorlandProject>
+		<ProjectFileVersion>12</ProjectFileVersion>
+	</ProjectExtensions>
+</Project>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.res
new file mode 100644
index 0000000..eaacb67
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D12.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.dpk
new file mode 100644
index 0000000..0dbbbae
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.dpk	
@@ -0,0 +1,45 @@
+package PascalScript_RO_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 5.0 Integration'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  IndyCore,
+  IndySystem,
+  IndyProtocols,
+  PascalScript_Core_D14,
+  RemObjects_Core_D14,
+  RemObjects_Indy_D14,
+  dbrtl,
+  vcl,
+  vclx;
+
+contains
+  PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
+  uROPSServerLink in 'uROPSServerLink.pas',
+  uROPSImports in 'uROPSImports.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.dproj b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.dproj
new file mode 100644
index 0000000..3ab1081
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.dproj	
@@ -0,0 +1,101 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+	<PropertyGroup>
+		<ProjectGuid>{0eefdf9b-7853-40e5-9b29-b631f51beeda}</ProjectGuid>
+		<MainSource>PascalScript_RO_D14.dpk</MainSource>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_RO_D12.bpl</DCC_DependencyCheckOutputName>
+		<ProjectVersion>11.1</ProjectVersion>
+		<Config Condition="'$(Config)'==''">Base</Config>
+	</PropertyGroup>
+	<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+		<Base>true</Base>
+	</PropertyGroup>
+	<PropertyGroup Condition="'$(Base)'!=''">
+		<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+		<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
+		<DCC_DependencyCheckOutputName>..\Dcu\D14\PascalScript_RO_D14.bpl</DCC_DependencyCheckOutputName>
+		<DCC_UnitSearchPath>..\Dcu\D14;..\..\RemObjects SDK for Dephi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+		<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+		<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+		<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+		<GenDll>true</GenDll>
+		<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+		<DCC_ImageBase>00400000</DCC_ImageBase>
+		<DesignOnlyPackage>false</DesignOnlyPackage>
+		<GenPackage>true</GenPackage>
+		<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+	</PropertyGroup>
+	<ItemGroup>
+		<DelphiCompile Include="PascalScript_RO_D14.dpk">
+			<MainSource>MainSource</MainSource>
+		</DelphiCompile>
+		<DCCReference Include="rtl.dcp"/>
+		<DCCReference Include="IndyCore.dcp"/>
+		<DCCReference Include="IndySystem.dcp"/>
+		<DCCReference Include="IndyProtocols.dcp"/>
+		<DCCReference Include="PascalScript_Core_D14.dcp"/>
+		<DCCReference Include="RemObjects_Core_D14.dcp"/>
+		<DCCReference Include="RemObjects_Indy_D1.dcp"/>
+		<DCCReference Include="dbrtl.dcp"/>
+		<DCCReference Include="vcl.dcp"/>
+		<DCCReference Include="vclx.dcp"/>
+		<DCCReference Include="PascalScript_RO_Reg.pas"/>
+		<DCCReference Include="uROPSServerLink.pas"/>
+		<DCCReference Include="uROPSImports.pas"/>
+		<DCCReference Include="RemObjects_Indy_D12.dcp"/>
+		<DCCReference Include="RemObjects_Core_D1.dcp"/>
+		<DCCReference Include="RemObjects_Core_D12.dcp"/>
+		<DCCReference Include="PascalScript_Core_D1.dcp"/>
+		<DCCReference Include="PascalScript_Core_D12.dcp"/>
+		<BuildConfiguration Include="Base">
+			<Key>Base</Key>
+		</BuildConfiguration>
+	</ItemGroup>
+	<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+	<ProjectExtensions>
+		<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+		<Borland.ProjectType>Package</Borland.ProjectType>
+		<BorlandProject>
+			<Delphi.Personality>
+				<Parameters>
+					<Parameters Name="UseLauncher">False</Parameters>
+					<Parameters Name="LoadAllSymbols">True</Parameters>
+					<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+				</Parameters>
+				<VersionInfo>
+					<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+					<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+					<VersionInfo Name="MajorVer">3</VersionInfo>
+					<VersionInfo Name="MinorVer">0</VersionInfo>
+					<VersionInfo Name="Release">43</VersionInfo>
+					<VersionInfo Name="Build">801</VersionInfo>
+					<VersionInfo Name="Debug">False</VersionInfo>
+					<VersionInfo Name="PreRelease">False</VersionInfo>
+					<VersionInfo Name="Special">False</VersionInfo>
+					<VersionInfo Name="Private">False</VersionInfo>
+					<VersionInfo Name="DLL">False</VersionInfo>
+					<VersionInfo Name="Locale">1033</VersionInfo>
+					<VersionInfo Name="CodePage">1252</VersionInfo>
+				</VersionInfo>
+				<VersionInfoKeys>
+					<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+					<VersionInfoKeys Name="FileDescription"/>
+					<VersionInfoKeys Name="FileVersion">3.0.43.801</VersionInfoKeys>
+					<VersionInfoKeys Name="InternalName"/>
+					<VersionInfoKeys Name="LegalCopyright"/>
+					<VersionInfoKeys Name="LegalTrademarks"/>
+					<VersionInfoKeys Name="OriginalFilename"/>
+					<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
+					<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+					<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
+				</VersionInfoKeys>
+				<Source>
+					<Source Name="MainSource">PascalScript_RO_D14.dpk</Source>
+				</Source>
+			</Delphi.Personality>
+		</BorlandProject>
+		<ProjectFileVersion>12</ProjectFileVersion>
+	</ProjectExtensions>
+</Project>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.res
new file mode 100644
index 0000000..34ee35f
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D14.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.dof b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.dof
new file mode 100644
index 0000000..0706699
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.dof	
@@ -0,0 +1,114 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Pascal Script - RemObjects SDK 3.0 Integration
+
+[Directories]
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=
+SearchPath=..\Dcu\D6
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+ProductName=Pascal Script
+ProductVersion=3.0.0.0
+FileDescription=
+FileVersion=3.0.2.36
+OriginalFilename=
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.dpk
new file mode 100644
index 0000000..4d22bec
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.dpk	
@@ -0,0 +1,43 @@
+package PascalScript_RO_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 4.0 Integration'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  indy,
+  PascalScript_Core_D6,
+  RemObjects_Core_D6,
+  RemObjects_Indy_D6,
+  dbrtl,
+  vcl,
+  vclx;
+
+contains
+  PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
+  uROPSServerLink in 'uROPSServerLink.pas',
+  uROPSImports in 'uROPSImports.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.res
new file mode 100644
index 0000000..30e8017
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D6.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.dof b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.dof
new file mode 100644
index 0000000..68687e0
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.dof	
@@ -0,0 +1,123 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects Pascal Script - RemObjects SDK 3.0 Integration
+
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=
+SearchPath=..\Dcu\D7
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=RemObjects Software
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+ProductName=Pascal Script
+ProductVersion=3.0.0.0
+FileDescription=
+FileVersion=3.0.43.801
+OriginalFilename=
+Compile Date=Monday, February 28, 2005 3:33 PM
+
+[Version Info]
+IncludeVerInfo=1
+MajorVer=3
+MinorVer=0
+Release=43
+Build=801
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.dpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.dpk
new file mode 100644
index 0000000..8ece2b8
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.dpk	
@@ -0,0 +1,43 @@
+package PascalScript_RO_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 4.0 Integration'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  indy,
+  PascalScript_Core_D7,
+  RemObjects_Core_D7,
+  RemObjects_Indy_D7,
+  dbrtl,
+  vcl,
+  vclx;
+
+contains
+  PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
+  uROPSServerLink in 'uROPSServerLink.pas',
+  uROPSImports in 'uROPSImports.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.res b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.res
new file mode 100644
index 0000000..eaacb67
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_D7.res differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_Glyphs.RES b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_Glyphs.RES
new file mode 100644
index 0000000..3fcd355
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_Glyphs.RES differ
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_Reg.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_Reg.pas
new file mode 100644
index 0000000..1369293
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScript_RO_Reg.pas	
@@ -0,0 +1,34 @@
+unit PascalScript_RO_Reg;
+
+{----------------------------------------------------------------------------}
+{ RemObjects Pascal Script
+{
+{ compiler: Delphi 2 and up, Kylix 3 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of Pascal Script
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$I PascalScript.inc}
+
+interface
+
+{$R PascalScript_RO_Glyphs.res}
+
+procedure Register;
+
+implementation
+
+uses
+  Classes,
+  uROPSServerLink;
+
+procedure Register;
+begin
+  RegisterComponents('Pascal Script', [TPSRemObjectsSdkPlugin]);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/arm.inc b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/arm.inc
new file mode 100644
index 0000000..1765635
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/arm.inc	
@@ -0,0 +1,312 @@
+{ implementation of the arm procedure call standard for function calls in pascal script
+  Copyright (c) 2008 by Henry Vermaak (henry.vermaak@gmail.com) 
+  
+  todo: add eabi (define FPC_ABI_EABI) and wince support 
+  
+  notes:
+
+  most arm cpus don't allow unaligned access.  by default (?) the linux kernel
+  is set up to try and correct unaligned access, which can lead to strange behaviour.
+  to turn this off, try (as root):
+
+  echo 4 > /proc/cpu/alignment
+
+  if you have an alignment problem, you will now get a crash with a backtrace like this:
+  (make sure you compile with -O- -gl)
+
+  An unhandled exception occurred at $0006C014 :
+  EBusError : Bus error or misaligned data access
+    $0006C014  PROCESSREPEAT,  line 9670 of upscompiler.pas
+    $00068AAC  TPSPASCALCOMPILER__PROCESSSUB,  line 10459 of upscompiler.pas
+    $0007D0B4  TPSPASCALCOMPILER__COMPILE,  line 11704 of upscompiler.pas
+
+  you can fix this by using the "unaligned" keyword around the pointer operation.
+  search for occurances of "unaligned" to see how this is done,
+  (use $ifdef FPC_REQUIRES_PROPER_ALIGNMENT).
+
+  for more information, visit:
+
+  http://www.aleph1.co.uk/oldsite/armlinux/book/afaq.html
+}   
+
+const
+  rtINT = 0;
+  rtINT64 = 1;
+  rtFLOAT = 2;
+
+type
+  Trint = array[1..4] of dword;
+  Trfloat = array[1..4] of double;
+
+{$goto on}
+{ define labels }
+label
+  stack_loop,
+  load_regs,
+  asmcall_end,
+  int_result,
+  int64_result,
+  float_result;
+
+{ call a function from a pointer }
+{ resulttype: 0 = int, 1 = int64, 2 = float }
+function armasmcall(rint: Trint; rfloat: Trfloat; proc, stack: pointer; stacksize, resulttype: integer): pointer; assembler; nostackframe;
+asm
+	mov	r12, r13
+	stmfd	r13!, {r4, r5, r6, r7, r8, r9, r10, r11, r12, r14, r15}
+	sub	r11, r12, #4
+	mov	r4, #80			(* space for preserved registers and parameters *)
+	ldr	r5, [r11, #4]		(* stacksize we need for subroutine *)
+	add	r4, r4, r5
+	sub	r13, r13, r4		(* create stack space *)
+
+	(* store parameters on stack *)
+	str	r0, [r11, #-44]		(* rint *)
+	str	r1, [r11, #-48]		(* rfloat *)
+	str	r2, [r11, #-52]		(* proc *)
+	str	r3, [r11, #-56] 	(* stack *)
+	ldr	r0, [r11, #4]		
+	str	r0, [r11, #-60]		(* stacksize *)
+	ldr	r0, [r11, #8]		
+	str	r0, [r11, #-64]		(* resulttype *)
+
+	(* store params for sub-routine that don't fit into r0-r3 at start of stack *)
+	ldr	r0, [r11, #-60]		(* stacksize *)
+	cmp	r0, #0
+	beq	load_regs		(* skip if no stack *)
+	mov	r1, r13			(* this points to the bottom now *)
+	ldr	r2, [r11, #-56]		(* stack pointer *)
+stack_loop:
+	ldmia	r2!, {r4}		(* get stack + update pos *)
+	stmia	r1!, {r4}		(* store stack + update pos *)
+	subs	r0, r0, #4
+	bne	stack_loop
+
+load_regs:
+	(* load general regs *)
+	ldr	r4, [r11, #-44]	(* rint *)
+	ldr	r0, [r4]
+	ldr	r1, [r4, #4]
+	ldr	r2, [r4, #8]
+	ldr	r3, [r4, #12]
+
+{$ifdef FPUFPA}
+	(* load float regs *)
+	ldr	r4, [r11, #-48]	(* rfloat *)
+	ldfd	f0, [r4]
+	ldfd	f1, [r4, #8]
+	ldfd	f2, [r4, #16]
+	ldfd	f3, [r4, #24]
+{$endif}
+
+	(* branch to the proc pointer *)
+	ldr	r4, [r11, #-52]
+	mov	r14, r15
+	mov	r15, r4
+(*	blx	r4  *)
+
+	ldr	r4, [r11, #-64]		(* get resulttype *)
+	cmp	r4, #1
+	blt	int_result
+	beq	int64_result
+	bgt	float_result
+
+int_result:
+	str	r0, [r11, #-72]
+	b	asmcall_end
+
+int64_result:
+	str	r0, [r11, #-72]
+	str	r1, [r11, #-68]
+	b	asmcall_end
+
+float_result:
+{$ifdef FPUFPA}
+	stfd	f0, [r11, #-72]
+{$else}
+	b	int64_result
+{$endif}
+	b	asmcall_end
+
+asmcall_end:
+	sub	r0, r11, #72		(* return pointer to result on stack *)
+	
+	ldmea	r11,{r4,r5,r6,r7,r8,r9,r10,r11,r13,r15}
+end;
+
+function TPSExec.InnerfuseCall(_Self, Address: Pointer; CallingConv: TPSCallingConvention; Params: TPSList; res: PPSVariantIFC): Boolean;
+var
+  rint: Trint;			{ registers r0 to r3 }
+  rfloat: Trfloat;		{ registers f0 to f3 }
+  st: packed array of byte;	{ stack }
+  i, j, rindex, findex, stindex: integer;
+  fvar: PPSVariantIFC;
+  IsConstructor: Boolean;
+
+  { add a dword to stack }
+  procedure addstackdword(value: dword);
+  begin
+    setlength(st, stindex+4);
+    pdword(@st[stindex])^ := value;
+    inc(stindex, 4);
+  end;
+
+  { add a float to stack }
+  procedure addstackfloat(value: pointer; size: integer);
+  begin
+    setlength(st, stindex + (size * 4));
+    if size = 1
+      then psingle(@st[stindex])^ := single(value^)
+      else pdouble(@st[stindex])^ := double(value^);
+    inc(stindex, size*4);
+  end;
+
+  { add to the general registers or overflow to stack }
+  procedure addgen(value: dword);
+  begin
+    if rindex <= 4
+      then begin
+        rint[rindex] := value;
+        inc(rindex);
+      end
+      else begin
+        addstackdword(value);
+      end;
+  end;
+  { add to the float registers or overflow to stack }
+  { size = 1 for single, 2 for double }
+  procedure addfloat(value: pointer; size: integer);
+  begin
+    if findex <= 4
+      then begin
+        if size = 1
+          then rfloat[findex] := single(value^)
+          else rfloat[findex] := double(value^);
+        inc(findex);
+      end
+      else begin
+        addstackfloat(value, size);
+      end;
+  end;
+
+begin
+  if (Integer(CallingConv) and 64) <> 0 then begin
+    IsConstructor := true;
+    CAllingConv := TPSCallingConvention(Integer(CallingConv) and not 64);
+  end else IsConstructor := false;
+
+  rindex := 1;
+  findex := 1;
+  stindex := 0;
+  setlength(st, stindex);
+  Result := False;
+
+  { the pointer of the result needs to be passed first in the case of some result types }
+  if assigned(res)
+    then begin
+      case res.atype.basetype of
+        btStaticArray, btRecord: addgen(dword(res.dta));
+      end;
+    end;
+
+  { process all parameters }
+  for i := 0 to Params.Count-1 do begin
+    if Params[i] = nil
+      then Exit;
+    fvar := Params[i];
+
+    { cook dynamic arrays - fpc stores size-1 at @array-4 }
+    if (fvar.aType.BaseType = btArray)
+      then dec(pdword(pointer(fvar.dta^)-4)^);
+
+    if fvar.varparam
+      then begin  { var param }
+        case fvar.aType.BaseType of
+          { add var params here }
+          btArray, btVariant, btSet, btStaticArray, btRecord, btInterface, btClass, {$IFNDEF PS_NOWIDESTRING} btUnicodeString, btWideString, btWideChar, {$ENDIF}
+          btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
+          {$IFNDEF PS_NOINT64}, bts64{$ENDIF}: addgen(dword(fvar.dta));
+          else begin
+            writeln(stderr, 'Parameter type not recognised!');
+            Exit;
+          end;
+        end;  { case }
+      end else begin  { not a var param }
+        case fvar.aType.BaseType of
+//          btArray, btVariant, btSet, btStaticArray, btRecord, btInterface, btClass, {$IFNDEF PS_NOWIDESTRING} btWideString, btWideChar, {$ENDIF}
+//          btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
+//          {$IFNDEF PS_NOINT64}, bts64{$ENDIF}: writeln('normal param');
+
+          { add normal params here }
+          btString:                            addgen(dword(pstring(fvar.dta)^));
+          btU8, btS8:                          addgen(dword(pbyte(fvar.dta)^));
+          btU16, BtS16:                        addgen(dword(pword(fvar.dta)^));
+          btU32, btS32:                        addgen(dword(pdword(fvar.dta)^));
+          btSingle:                            {$ifdef FPUFPA}
+	                                         addfloat(fvar.dta, 1);
+	                                       {$else}
+					         addgen(dword(psingle(fvar.dta)^));
+					       {$endif}
+          btDouble{, btExtended}:              {$ifdef FPUFPA}
+	                                         addfloat(fvar.dta, 2);
+	                                       {$else}
+					         begin
+					           addgen(lo(qword(pdouble(fvar.dta)^)));
+					           addgen(hi(qword(pdouble(fvar.dta)^)));
+						 end;
+					       {$endif}
+          btPChar:                             addgen(dword(ppchar(fvar.dta)^));
+          btChar:                              addgen(dword(pchar(fvar.dta)^));
+          {$IFNDEF PS_NOINT64}bts64:{$ENDIF}   begin
+                                                 addgen(dword(pint64(fvar.dta)^ and $ffffffff));
+                                                 addgen(dword(pint64(fvar.dta)^ shr 32));
+                                               end;
+          btStaticArray:                       addgen(dword(fvar.dta));
+          btRecord:                            for j := 0 to (fvar.atype.realsize div 4)-1 do
+                                                 addgen(pdword(fvar.dta + j*4)^);
+          btArray:                             addstackdword(dword(fvar.dta^));  { this is a bit weird }
+
+{          btVariant, btSet, btInterface, btClass  }
+
+          else begin
+            writeln(stderr, 'Parameter type not implemented!');
+            Exit;
+          end;
+        end;  { case }
+      end;  { else }
+  end;  { for }
+
+  if not assigned(res)
+    then begin
+      armasmcall(rint, rfloat, address, st, stindex, rtINT);  { ignore return }
+    end
+    else begin
+      case res.atype.basetype of
+        { add result types here }
+        btString:                pstring(res.dta)^ := pstring(armasmcall(rint, rfloat, address, st, stindex, rtINT))^;
+        btU8, btS8:              pbyte(res.dta)^ := byte(pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^);
+        btU16, btS16:            pword(res.dta)^ := word(pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^);
+        btU32, btS32:            pdword(res.dta)^ := pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^;
+        btSingle:                psingle(res.dta)^ := pdouble(armasmcall(rint, rfloat, address, st, stindex, rtFLOAT))^;
+        btDouble{, btExtended}:  pdouble(res.dta)^ := pdouble(armasmcall(rint, rfloat, address, st, stindex, rtFLOAT))^;
+        btPChar:                 ppchar(res.dta)^ := pchar(pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^);
+        btChar:                  pchar(res.dta)^ := char(pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^);
+        btStaticArray, btRecord: armasmcall(rint, rfloat, address, st, stindex, rtINT);
+        btArray:                 res.dta := armasmcall(rint, rfloat, address, st, stindex, rtINT);
+
+        else begin
+          writeln(stderr, 'Result type not implemented!');
+          exit;
+        end;  { else }
+      end;  { case }
+    end;
+
+  { cook dynamic arrays - fpc stores size-1 at @array-4 }
+  for i := 0 to Params.Count-1 do begin
+    fvar := Params[i];
+    if (fvar.aType.BaseType = btArray)
+      then inc(pdword(pointer(fvar.dta^)-4)^);
+   end;
+
+  Result := True;
+end;
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/eDefines.inc b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/eDefines.inc
new file mode 100644
index 0000000..86fb1cf
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/eDefines.inc	
@@ -0,0 +1,494 @@
+{----------------------------------------------------------------------------}
+{file:      eDefines.inc                                                     }
+{type:      Delphi include file                                              }
+{                                                                            }
+{compiler:  Borland Pascal 7,                                                }
+{           Delphi 1-7, 2005-2007 for Win32                                  }
+{           Kylix 1-3,                                                       }
+{           C++Builder 1-6, 2006-2007                                        }
+{           Free Pascal Compiler 2.x                                         }
+{                                                                            }
+{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X                  }
+{                                                                            }
+{author:    mh@elitedev.com                                                  }
+{                                                                            }
+{contents:  Defines that can be flexibily used to determine the exact        }
+{           compiler version used.                                           }
+{                                                                            }
+{(c)opyright elitedevelopments software. all rights reserved.                }
+{            http://www.elitedev.com                                         }
+{                                                                            }
+{ Third Party component developers are encouraged to use the set of defines  }
+{ established in this file, rather then their own system, for checking their }
+{ component libraries agains different versions of Delphi and C++Builder.    }
+{                                                                            }
+{ This file may be distributed freely with both free and commercial source   }
+{ libraries, but you are asked to please leave this comment in place, and    }
+{ to return any improvements you make to this file to the maintainer that    }
+{ is noted above.                                                            }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ Compiler and OS version defines:                                           }
+{                                                                            }
+{ exact compiler versions:                                                   }
+{                                                                            }
+{ BP7             Borland Pascal 7.0                                         }
+{ DELPHI1         Delphi 1.0 (any Delphi)                                    }
+{ DELPHI2         Delphi 2.0                                                 }
+{ DELPHI3         Delphi 3.0                                                 }
+{ DELPHI4         Delphi 4.0                                                 }
+{ DELPHI5         Delphi 5.0                                                 }
+{ DELPHI6         Delphi 6.0                                                 }
+{ DELPHI7         Delphi 7.0                                                 }
+{ DELPHI9         Delphi 2005                                                }
+{ DELPHI2005      Delphi 2005                                                }
+{ DELPHI2006      Delphi 2006                                                }
+{ DELPHI2007      Delphi 2007                                                }
+{ KYLIX1          Kylix 1.0                                                  }
+{ KYLIX2          Kylix 2.0                                                  }
+{ KYLIX3          Kylix 3.0                                                  }
+{ CBUILDER1       C++Builder 1.0                                             }
+{ CBUILDER3       C++Builder 3.0                                             }
+{ CBUILDER4       C++Builder 4.0                                             }
+{ CBUILDER5       C++Builder 5.0                                             }
+{                                                                            }
+{                                                                            }
+{ minimum compiler versions:                                                 }
+{                                                                            }
+{ DELPHI1UP       Delphi 1.0 and above (any Delphi)                          }
+{ DELPHI2UP       Delphi 2.0 and above                                       }
+{ DELPHI3UP       Delphi 3.0 and above                                       }
+{ DELPHI4UP       Delphi 4.0 and above                                       }
+{ DELPHI5UP       Delphi 5.0 and above                                       }
+{ DELPHI6UP       Delphi 6.0 and above                                       }
+{ DELPHI7UP       Delphi 7.0 and above                                       }
+{ DELPHI9UP       Delphi 9.0 (2005) and above                                }
+{ DELPHI10UP      Delphi 10.0 (2006) and above                               }
+{ DELPHI11UP      Delphi 11.0 (2007) and above                               }
+{ DELPHI2005UP    Delphi 2005 and above                                      }
+{ DELPHI2006UP    Delphi 2006 and above                                      }
+{ DELPHI2007UP    Delphi 2007 and above                                      }
+{ KYLIX1UP        Kylix 1.0 and above (any Kylix)                            }
+{ KYLIX2UP        Kylix 2.0 and above (any Kylix)                            }
+{ KYLIX3UP        Kylix 3.0 and above (any Kylix)                            }
+{ CBUILDER1UP     C++Builder 1.0 and above or Delphi 2 and above             }
+{ CBUILDER3UP     C++Builder 3.0 and above or Delphi 3.0 and above           }
+{ CBUILDER4UP     C++Builder 4.0 and above or Delphi 4.0 and above           }
+{ CBUILDER5UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{ CBUILDER6UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{                                                                            }
+{                                                                            }
+{ compiler types:                                                            }
+{                                                                            }
+{ BP              Borland Pascal (not Delphi or C++Builder)                  }
+{ DELPHI          any Delphi version (but not C++Builder or Kylix)           }
+{ KYLIX           any Kylix version (not Delphi or C++Builder for Windows)   }
+{ CBUILDER        any C++Builder for Windows (Pascal)                        }
+{                                                                            }
+{                                                                            }
+{ target platforms compiler types:                                           }
+{                                                                            }
+{ DELPHI_16BIT    16bit Delphi (but not C++Builder!)                         }
+{ DELPHI_32BIT    32bit Delphi (but not C++Builder)                          }
+{ KYLIX_32BIT     32bit Kylix (but not C++Builder)                           }
+{ CBUILDER_32BIT  32bit C++Builer's Pascal (but not Delphi)                  }
+{                                                                            }
+{                                                                            }
+{ target cpu types                                                           }
+{                                                                            }
+{ CPU16           16bit Delphi or Borland Pascal                             }
+{ CPU32           32bit Delphi or Free Pascal                                }
+{ CPU64           64bit Free Pascal                                          }
+{                                                                            }
+{ target platforms                                                           }
+{                                                                            }
+{ DOS             any DOS (plain and DPMI)                                   }
+{ REALMODE        16bit realmode DOS                                         }
+{ PROTECTEDMODE   16bit DPMI DOS                                             }
+{                                                                            }
+{ MSWINDOWS       any Windows platform                                       }
+{ WIN16           16bit Windows                                              }
+{ WIN32           32bit Windows                                              }
+{ WIN64           64bit Windows                                              }
+{ DOTNET          .NET                                                       }
+{                                                                            }
+{ LINUX           any Linux platform                                         }
+{ LINUX32         32bit Linux                                                }
+{ LINUX64         64bit Linux                                                }
+{                                                                            }
+{ DARWIN          Any Mac OS X                                               }
+{ DARWIN32        32bit Mac OS X                                             }
+{ DARWIN64        64bit Mac OS X                                             }
+{----------------------------------------------------------------------------}
+
+{ defines for Borland Pascal 7.0 }
+{$IFDEF VER70}
+  {$DEFINE BP}
+  {$DEFINE BP7}
+  {$DEFINE 16BIT}
+  {$DEFINE CPU16}
+
+  { defines for BP7 DOS real mode }
+  {$IFDEF MSDOS}
+    {$DEFINE DOS}
+    {$DEFINE REALMODE}
+  {$ENDIF}
+
+  { defines for BP7 DOS protected mode }
+  {$IFDEF DPMI}
+    {$DEFINE DOS}
+    {$DEFINE PROTECTEDMODE}
+  {$ENDIF}
+
+  { defines for BP7 Windows }
+  {$IFDEF WINDOWS}
+    {$DEFINE MSWINDOWS}
+    {$DEFINE WIN16}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF WIN32}
+  {$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
+  {$DEFINE 32BIT}
+  {$DEFINE CPU32}
+{$ENDIF}
+
+{ defines for Delphi 1.0 thru 7.0 }
+{$IFDEF MSWINDOWS}
+
+  { defines for Delphi 1.0 }
+  {$IFDEF VER80}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI1}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI_16BIT}
+    {$DEFINE WIN16}
+    {$DEFINE 16BIT}
+    {$DEFINE CPU16}
+  {$ENDIF}
+
+  { defines for Delphi 2.0 }
+  {$IFDEF VER90}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI2}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+  {$ENDIF}
+
+  { defines for C++Builder 1.0 }
+  {$IFDEF VER93}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER1}
+    {$DEFINE CBUILDER1UP}
+  {$ENDIF}
+
+  { defines for Delphi 3.0 }
+  {$IFDEF VER100}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI3}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+  {$ENDIF}
+
+  { defines for C++Builder 3.0 }
+  {$IFDEF VER110}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER3}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+  {$ENDIF}
+
+  { defines for Delphi 4.0 }
+  {$IFDEF VER120}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI4}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+  {$ENDIF}
+
+  { defines for C++Builder 4.0 }
+  {$IFDEF VER125}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER4}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+  {$ENDIF}
+  { defines for Delphi 5.0 }
+  {$IFDEF VER130}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI5}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+  {$ENDIF}
+
+  { defines for C++Builder 5.0 }
+  {$IFDEF VER135}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER5}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+    {$DEFINE CBUILDER5UP}
+  {$ENDIF}
+
+  { defines for Delphi 6.0 }
+  {$IFDEF VER140}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI6}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+  {$ENDIF}
+
+  { defines for Delphi 7.0 }
+  {$IFDEF VER150}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI7}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+  {$ENDIF}
+
+  { defines for Delphi 2005 }
+  {$IFDEF VER170}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI9}
+    {$DEFINE DELPHI2005}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS3}
+    {$DEFINE BDS3UP}
+  {$ENDIF}
+
+  { defines for Delphi 2006 }
+  {$IFDEF VER180}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI10}
+    {$DEFINE DELPHI10A}  
+    {$DEFINE DELPHI2006}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS4}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+  {$ENDIF}
+
+  { defines for Delphi 2007 }
+  {$IFDEF VER185}
+    {$UNDEF DELPHI10A}  // declared in VER180
+    {$UNDEF DELPHI2006} // declared in VER180
+    {$UNDEF BDS4}       // declared in VER180
+
+    {$DEFINE DELPHI10B}    
+    {$DEFINE DELPHI10BUP}    
+    {$DEFINE DELPHI11}    
+    {$DEFINE DELPHI11UP}    
+    {$DEFINE DELPHI2007}
+    {$DEFINE DELPHI2007UP}    
+    {$DEFINE BDS5}
+    {$DEFINE BDS5UP}
+  {$ENDIF}
+
+  { defines for Delphi 2009 }
+  {$IFDEF VER200}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI12}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+
+    {$DEFINE DELPHI2009}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+
+    {$DEFINE BDS}
+    {$DEFINE BDS6}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+  {$ENDIF}
+
+  { defines for Delphi 2010 }
+  {$IFDEF VER210}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI14}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+    {$DEFINE DELPHI14UP}    
+
+    {$DEFINE DELPHI2010}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+    {$DEFINE DELPHI2010UP}    
+
+    {$DEFINE BDS}
+    {$DEFINE BDS7}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+    {$DEFINE BDS7UP}
+  {$ENDIF}
+  
+
+
+{$ENDIF MSWINDOWS}
+
+{ defines for "Delphi for .NET" }
+{$IFDEF CLR}
+  {$DEFINE DOTNET}
+{$ENDIF}
+
+{$IFDEF DELPHI}
+  {$IFDEF DELPHI2UP}
+    {$DEFINE DELPHI_32BIT}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF CBUILDER}
+  {$DEFINE CBUILDER_32BIT}
+{$ENDIF}
+
+{$IFNDEF FPC}
+
+  { Kylix 1.0 thru 3.0 }
+  {$IFDEF LINUX}
+
+    {$DEFINE VER140UP}
+
+    { Any Kylix }
+    {$DEFINE 32BIT}
+    {$DEFINE LINUX32}
+    {$DEFINE KYLIX_32BIT}
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+
+    {$IFDEF CONDITIONALEXPRESSIONS}
+      {$IF Declared(CompilerVersion)}
+
+         { Kylix 2.0 }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.1)}
+           {$DEFINE KYLIX2}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+         {$IFEND}
+
+         { Kylix 3.0 - Delphi portion }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.5)}
+           {$DEFINE KYLIX3}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+           {$DEFINE KYLIX3UP}
+         {$IFEND}
+
+      { Kylix 1.0 }
+      {$ELSE}
+        {$DEFINE KYLIX1}
+      {$IFEND}
+    {$ENDIF CONDITIONALEXPRESSIONS}
+
+  {$ENDIF LINUX}
+{$ENDIF}
+
+{ CPU }
+
+{$IFDEF FPC}
+  {$IFDEF MSWINDOWS}
+    {$IFDEF CPU64}
+      {$DEFINE WIN64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF LINUX}
+    {$IFDEF CPU32}
+      {$DEFINE LINUX32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE LINUX64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF DARWIN}
+    {$IFDEF CPU32}
+      {$DEFINE DARWIN32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE DARWIN64}
+    {$ENDIF}
+  {$ENDIF}
+{$ENDIF}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.lpk b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.lpk
new file mode 100644
index 0000000..707082a
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.lpk	
@@ -0,0 +1,236 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="2">
+    <Name Value="pascalscript"/>
+    <Author Value="Carlo Kok"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <DelphiCompat Value="True"/>
+          <UseAnsiStrings Value="True"/>
+        </SyntaxOptions>
+      </Parsing>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <Verbosity>
+          <ShowHints Value="False"/>
+        </Verbosity>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects Pascal Script 
+Created by Carlo Kok
+RemObjects Software
+Fixed for Lazarus by Bogus�aw Brandys
+"/>
+    <License Value="*********************************************************************
+RemObjects Pascal Script
+Created By Carlo Kok 	   			ck@carlo-kok.com
+*********************************************************************
+Copyright (C) 2000-2004 by Carlo Kok, Innerfuse, RemObjects
+
+This software is provided 'as-is', without any expressed or implied
+warranty. In no event will the author be held liable for any damages
+arising from the use of this software.
+Permission is granted to anyone to use this software for any kind of
+application, and to alter it and redistribute it freely, subject to
+the following restrictions:
+1. The origin of this software must not be misrepresented, you must
+   not claim that you wrote the original software.
+2. Altered source versions must be plainly marked as such, and must
+   not be misrepresented as being the original software.
+3. You must have a visible line in your programs aboutbox or
+   documentation that it is made using RemObjects Pascal Script and
+   where RemObjects Pascal Script can be found.
+4. This notice may not be removed or altered from any source
+   distribution.
+
+If you have any questions concerning this license write me (Carlo Kok):
+  ck@carlo-kok.com or try our newsserver:
+  news://news.RemObjects.com/
+
+Carlo Kok
+RemObjects Software
+"/>
+    <Version Build="1"/>
+    <Files Count="39">
+      <Item1>
+        <Filename Value="uPSRuntime.pas"/>
+        <UnitName Value="uPSRuntime"/>
+      </Item1>
+      <Item2>
+        <Filename Value="eDefines.inc"/>
+        <Type Value="Include"/>
+      </Item2>
+      <Item3>
+        <Filename Value="PascalScript.inc"/>
+        <Type Value="Include"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uPSR_stdctrls.pas"/>
+        <UnitName Value="uPSR_stdctrls"/>
+      </Item4>
+      <Item5>
+        <Filename Value="PascalScript_Core_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="PascalScript_Core_Reg"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uPSC_buttons.pas"/>
+        <UnitName Value="uPSC_buttons"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uPSC_classes.pas"/>
+        <UnitName Value="uPSC_classes"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uPSC_controls.pas"/>
+        <UnitName Value="uPSC_controls"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uPSC_dateutils.pas"/>
+        <UnitName Value="uPSC_dateutils"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uPSC_DB.pas"/>
+        <UnitName Value="uPSC_DB"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uPSC_dll.pas"/>
+        <UnitName Value="uPSC_dll"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uPSC_extctrls.pas"/>
+        <UnitName Value="uPSC_extctrls"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uPSC_forms.pas"/>
+        <UnitName Value="uPSC_forms"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uPSC_graphics.pas"/>
+        <UnitName Value="uPSC_graphics"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uPSC_menus.pas"/>
+        <UnitName Value="uPSC_menus"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uPSC_std.pas"/>
+        <UnitName Value="uPSC_std"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uPSC_stdctrls.pas"/>
+        <UnitName Value="uPSC_stdctrls"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uPSCompiler.pas"/>
+        <UnitName Value="uPSCompiler"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uPSComponent.pas"/>
+        <UnitName Value="uPSComponent"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uPSComponent_Controls.pas"/>
+        <UnitName Value="uPSComponent_Controls"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uPSComponent_DB.pas"/>
+        <UnitName Value="uPSComponent_DB"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uPSComponent_Default.pas"/>
+        <UnitName Value="uPSComponent_Default"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uPSComponent_Forms.pas"/>
+        <UnitName Value="uPSComponent_Forms"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uPSComponent_StdCtrls.pas"/>
+        <UnitName Value="uPSComponent_StdCtrls"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uPSUtils.pas"/>
+        <UnitName Value="uPSUtils"/>
+      </Item25>
+      <Item26>
+        <Filename Value="uPSDebugger.pas"/>
+        <UnitName Value="uPSDebugger"/>
+      </Item26>
+      <Item27>
+        <Filename Value="uPSDisassembly.pas"/>
+        <UnitName Value="uPSDisassembly"/>
+      </Item27>
+      <Item28>
+        <Filename Value="uPSPreProcessor.pas"/>
+        <UnitName Value="uPSPreProcessor"/>
+      </Item28>
+      <Item29>
+        <Filename Value="uPSR_buttons.pas"/>
+        <UnitName Value="uPSR_buttons"/>
+      </Item29>
+      <Item30>
+        <Filename Value="uPSR_classes.pas"/>
+        <UnitName Value="uPSR_classes"/>
+      </Item30>
+      <Item31>
+        <Filename Value="uPSR_controls.pas"/>
+        <UnitName Value="uPSR_controls"/>
+      </Item31>
+      <Item32>
+        <Filename Value="uPSR_dateutils.pas"/>
+        <UnitName Value="uPSR_dateutils"/>
+      </Item32>
+      <Item33>
+        <Filename Value="uPSR_DB.pas"/>
+        <UnitName Value="uPSR_DB"/>
+      </Item33>
+      <Item34>
+        <Filename Value="uPSR_dll.pas"/>
+        <UnitName Value="uPSR_dll"/>
+      </Item34>
+      <Item35>
+        <Filename Value="uPSR_extctrls.pas"/>
+        <UnitName Value="uPSR_extctrls"/>
+      </Item35>
+      <Item36>
+        <Filename Value="uPSR_forms.pas"/>
+        <UnitName Value="UPSR_forms"/>
+      </Item36>
+      <Item37>
+        <Filename Value="uPSR_graphics.pas"/>
+        <UnitName Value="UPSR_graphics"/>
+      </Item37>
+      <Item38>
+        <Filename Value="uPSR_menus.pas"/>
+        <UnitName Value="uPSR_menus"/>
+      </Item38>
+      <Item39>
+        <Filename Value="uPSR_std.pas"/>
+        <UnitName Value="uPSR_std"/>
+      </Item39>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="1">
+      <Item1>
+        <PackageName Value="LCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item1>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.lrs b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.lrs
new file mode 100644
index 0000000..7e88ff2
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.lrs	
@@ -0,0 +1,1001 @@
+LazarusResources.Add('tpsdllplugin','XPM',[
+  '/* XPM */'#10'static char *tpsdllplugin[] = {'#10'/* width height num_colors'
+  +' chars_per_pixel */'#10'"    24    24      256            2",'#10'/* colors'
+  +' */'#10'"`` c None",'#10'"`. c #824b00",'#10'"`# c #955c00",'#10'"`a c #e1a'
+  +'906",'#10'"`b c #cfb15c",'#10'"`c c #f8e9ab",'#10'"`d c #b67d02",'#10'"`e c'
+  +' #c19930",'#10'"`f c #c19d3a",'#10'"`g c #fff2ba",'#10'"`h c #fff2b7",'#10
+  +'"`i c #e3c66a",'#10'"`j c #aa7909",'#10'"`k c #bf8b06",'#10'"`l c #fff2b8",'
+  +#10'"`m c #ffeb9a",'#10'"`n c #ffe16a",'#10'"`o c #fed53e",'#10'"`p c #fecb1'
+  +'9",'#10'"`q c #c99305",'#10'"`r c #ead590",'#10'"`s c #ffed9f",'#10'"`t c #'
+  +'ffe16e",'#10'"`u c #fed742",'#10'"`v c #fecb1c",'#10'"`w c #fec60c",'#10'"`'
+  +'x c #c58b03",'#10'"`y c #ad7e0c",'#10'"`z c #ead383",'#10'"`A c #9d6a03",'
+  +#10'"`B c #bc8b0d",'#10'"`C c #feca18",'#10'"`D c #d5a61a",'#10'"`E c #8b530'
+  +'0",'#10'"`F c #bb8103",'#10'"`G c #b5891c",'#10'"`H c #ffeea7",'#10'"`I c #'
+  +'9c6602",'#10'"`J c #dca912",'#10'"`K c #fed02a",'#10'"`L c #fed540",'#10'"`'
+  +'M c #965f03",'#10'"`N c #c18a04",'#10'"`O c #d5ba69",'#10'"`P c #ffefab",'
+  +#10'"`Q c #ffe57b",'#10'"`R c #895100",'#10'"`S c #c79917",'#10'"`T c #ffdc5'
+  +'5",'#10'"`U c #00268c",'#10'"`V c #002c95",'#10'"`W c #0f3695",'#10'"`X c #'
+  +'9c6401",'#10'"`Y c #a6760b",'#10'"`Z c #d5b862",'#10'"`0 c #ffe681",'#10'"`'
+  +'1 c #ffda52",'#10'"`2 c #dcb12a",'#10'"`3 c #ffda53",'#10'"`4 c #f0d05a",'
+  +#10'"`5 c #182d5b",'#10'"`6 c #0073ee",'#10'"`7 c #0a3c9e",'#10'"`8 c #a1d9f'
+  +'f",'#10'".` c #001f83",'#10'".. c #9d6401",'#10'".# c #9d6903",'#10'".a c #'
+  +'f0cb49",'#10'".b c #fed02d",'#10'".c c #e9b40d",'#10'".d c #8c5a03",'#10'".'
+  +'e c #c0921b",'#10'".f c #feda50",'#10'".g c #ffe06a",'#10'".h c #957829",'
+  +#10'".i c #224995",'#10'".j c #11409e",'#10'".k c #0441ac",'#10'".l c #6ea3d'
+  +'e",'#10'".m c #70ace6",'#10'".n c #03359d",'#10'".o c #935b00",'#10'".p c #'
+  +'986403",'#10'".q c #f0c228",'#10'".r c #fec711",'#10'".s c #fece23",'#10'".'
+  +'t c #fed437",'#10'".u c #fed94e",'#10'".v c #ffe067",'#10'".w c #98d5ff",'
+  +#10'".x c #6ec2ff",'#10'".y c #43adff",'#10'".z c #1e99ff",'#10'".A c #90580'
+  +'0",'#10'".B c #996704",'#10'".C c #fec913",'#10'".D c #fec70f",'#10'".E c #'
+  +'fece21",'#10'".F c #fed335",'#10'".G c #fed94c",'#10'".H c #ffe065",'#10'".'
+  +'I c #ffe57f",'#10'".J c #4172bd",'#10'".K c #9ad7ff",'#10'".L c #73c4ff",'
+  +#10'".M c #46afff",'#10'".N c #219aff",'#10'".O c #0688ff",'#10'".P c #844d0'
+  +'0",'#10'".Q c #8a5702",'#10'".R c #b1810f",'#10'".S c #f0c940",'#10'".T c #'
+  +'ffde63",'#10'".U c #eacb5e",'#10'".V c #8e6618",'#10'".W c #7d6628",'#10'".'
+  +'X c #4b7dc5",'#10'".Y c #9dd7ff",'#10'".Z c #00309a",'#10'".0 c #0e42a5",'
+  +#10'".1 c #0943a9",'#10'".2 c #0782f7",'#10'".3 c #1182ee",'#10'".4 c #40404'
+  +'0",'#10'".5 c #9ed8ff",'#10'".6 c #000d68",'#10'".7 c #002d96",'#10'".8 c #'
+  +'0242b0",'#10'"#` c #1392ff",'#10'"#. c #259dff",'#10'"## c #004bbc",'#10'"#'
+  +'a c #001e81",'#10'"#b c #ffffff",'#10'"#c c #000000",'#10'"#d c #80caff",'
+  +#10'"#e c #00004c",'#10'"#f c #000e69",'#10'"#g c #043aa3",'#10'"#h c #239cf'
+  +'f",'#10'"#i c #37a7ff",'#10'"#j c #4eb2ff",'#10'"#k c #c0dcc0",'#10'"#l c #'
+  +'56b7ff",'#10'"#m c #00095f",'#10'"#n c #001b7d",'#10'"#o c #0941a7",'#10'"#'
+  +'p c #35a6ff",'#10'"#q c #4cb1ff",'#10'"#r c #052b8c",'#10'"#s c #32a4ff",'
+  +#10'"#t c #0f88f7",'#10'"#u c #001f82",'#10'"#v c #012489",'#10'"#w c #2989e'
+  +'6",'#10'"#x c #49b1ff",'#10'"#y c #3882d5",'#10'"#z c #0386ff",'#10'"#A c #'
+  +'0d8eff",'#10'"#B c #177fe6",'#10'"#C c #47b0ff",'#10'"#D c #5fbbff",'#10'"#'
+  +'E c #0c8cff",'#10'"#F c #1c98ff",'#10'"#G c #2fa3ff",'#10'"#H c #45afff",'
+  +#10'"#I c #5dbaff",'#10'"#J c #76c6ff",'#10'"#K c #034fbd",'#10'"#L c #0645a'
+  +'d",'#10'"#M c #1f7dde",'#10'"#N c #5ab8ff",'#10'"#O c #022588",'#10'"#P c #'
+  +'51acf7",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'#10'"#'
+  +'T c #000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #000000",'
+  +#10'"#X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #00000'
+  +'0",'#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#4 c #'
+  +'000000",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'#10'"#'
+  +'8 c #000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #000000",'
+  +#10'"aa c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #00000'
+  +'0",'#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"ah c #'
+  +'000000",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'#10'"a'
+  +'l c #000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #000000",'
+  +#10'"ap c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #00000'
+  +'0",'#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"aw c #'
+  +'000000",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'#10'"a'
+  +'A c #000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #000000",'
+  +#10'"aE c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #00000'
+  +'0",'#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"aL c #'
+  ,'000000",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'#10'"a'
+  +'P c #000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #000000",'
+  +#10'"aT c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #00000'
+  +'0",'#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a0 c #'
+  +'000000",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'#10'"a'
+  +'4 c #000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #000000",'
+  +#10'"a8 c #000000",'#10'/* pixels */'#10'"``````````````````````````````````'
+  +'``````````````",'#10'"`````````````.`.`.``````````````````````````````",'#10
+  +'"```````````#`a`b`c`.````````````````````````````",'#10'"`````d`.`.`e`f`g`h'
+  +'`i`.`.`j``````````````````````",'#10'"`````.`k`g`g`g`l`m`n`o`p`.```````````'
+  +'```````````",'#10'"`````.`q`r`g`l`s`t`u`v`w`.``````````````````````",'#10'"'
+  +'```.`x`y`c`g`z`.`A`B`w`C`D`.````````````````````",'#10'"`E`F`G`r`g`H`.```.`'
+  +'I`J`K`L`M````````````````````",'#10'"`.`N`O`g`P`Q`.```R`.`S`o`T`t`M`U`V`W``'
+  +'``````````",'#10'"`.`X`Y`Z`0`1`.```.`.`2`3`4`M`5`6`7`8.```````````",'#10'"`'
+  +'``....#.a.b.c`..d.e.f.g.h.i.j.k.l`8.m.`.`.n````",'#10'"````.o.p.q.r.r.s.t.u'
+  +'.v`0`M.l`8`8`8.w.x.y.z.`````",'#10'"````.A.B.C.D.E.F.G.H.I`m`M.J`8`8.K.L.M.'
+  +'N.O.`````",'#10'"````.P.Q`.`..R.S.T.U`M.V.W.X`8.Y.Z.0.1.2.O.3.```",'#10'".4'
+  +'.4.4.4.4.4.4.4.4.4.4.4.4`8.5.Z``.6.7.8#`#.###a",'#10'".4#b#b#b#b#b#b#b#b#b#'
+  +'b#b.4#c#d.Z``#e#f#g#h#i#j.`",'#10'".4#b#c#c#c#k#b#k#c#c#c#b.4#c#l.Z``#m#n#o'
+  +'#p#q###r",'#10'".4#b#c#b#k#c#b#c#k#b#b#b.4#c#s#t.Z#u#v#w#x#y.```",'#10'".4#'
+  +'b#c#c#c#k#b#k#c#c#k#b.4#c#`#z#A#B#s#C#D.`````",'#10'".4#b#c#k#b#b#b#b#b#k#c'
+  +'#b.4#c#z#E#F#G#H#I#J.`````",'#10'".4#b#c#b#b#c#c#c#c#c#k#b.4#c#K#L#M.y#N.`.'
+  +'`.`````",'#10'".4#b#b#b#b#b#b#b#b#b#b#b.4#c#a#a#O#P.```````````",'#10'".4.4'
+  +'.4.4.4.4.4.4.4.4.4.4.4#c``#a#a.`````````````",'#10'"``#c#c#c#c#c#c#c#c#c#c#'
+  +'c#c#c````````````````````"'#10'};'#10
+]);
+LazarusResources.Add('tpsimport_classes','XPM',[
+  '/* XPM */'#10'static char *tpsimport_classes[] = {'#10'/* width height num_c'
+  +'olors chars_per_pixel */'#10'"    24    24      256            2",'#10'/* c'
+  +'olors */'#10'"`` c None",'#10'"`. c #035501",'#10'"`# c #045702",'#10'"`a c'
+  +' #1b830f",'#10'"`b c #2daa18",'#10'"`c c #1d8b10",'#10'"`d c #014f00",'#10
+  +'"`e c #0b6a05",'#10'"`f c #27a313",'#10'"`g c #29a615",'#10'"`h c #17970c",'
+  +#10'"`i c #18780d",'#10'"`j c #139309",'#10'"`k c #35af1c",'#10'"`l c #2f9f1'
+  +'a",'#10'"`m c #289516",'#10'"`n c #218212",'#10'"`o c #0d8d05",'#10'"`p c #'
+  +'1f9f10",'#10'"`q c #3eb622",'#10'"`r c #43bb25",'#10'"`s c #4fc52c",'#10'"`'
+  +'t c #4fbf2d",'#10'"`u c #45af27",'#10'"`v c #097903",'#10'"`w c #0d9006",'
+  +#10'"`x c #3ab41f",'#10'"`y c #820000",'#10'"`z c #2a8c17",'#10'"`A c #10900'
+  +'7",'#10'"`B c #f3552d",'#10'"`C c #ff6a36",'#10'"`D c #ff5827",'#10'"`E c #'
+  +'ff4615",'#10'"`F c #f42805",'#10'"`G c #13740a",'#10'"`H c #147b0a",'#10'"`'
+  +'I c #eb4924",'#10'"`J c #ff4e20",'#10'"`K c #ff380e",'#10'"`L c #ff2803",'
+  +#10'"`M c #e71600",'#10'"`N c #379c1f",'#10'"`O c #eb3916",'#10'"`P c #ff360'
+  +'c",'#10'"`Q c #ff2401",'#10'"`R c #f81800",'#10'"`S c #d00e00",'#10'"`T c #'
+  +'126d09",'#10'"`U c #096205",'#10'"`V c #d81100",'#10'"`W c #af0801",'#10'"`'
+  +'X c #278916",'#10'"`Y c #3ca022",'#10'"`Z c #46ac28",'#10'"`0 c #404040",'
+  +#10'"`1 c #0f3500",'#10'"`2 c #39a11f",'#10'"`3 c #54bd2f",'#10'"`4 c #fffff'
+  +'f",'#10'"`5 c #000000",'#10'"`6 c #005300",'#10'"`7 c #004b00",'#10'"`8 c #'
+  +'c0dcc0",'#10'".` c #004600",'#10'".. c #6fdc3e",'#10'".# c #53c52d",'#10'".'
+  +'a c #46bf27",'#10'".b c #23a411",'#10'".c c #70de40",'#10'".d c #40b623",'
+  +#10'".e c #2eab18",'#10'".f c #31ad1a",'#10'".g c #000000",'#10'".h c #00000'
+  +'0",'#10'".i c #000000",'#10'".j c #000000",'#10'".k c #000000",'#10'".l c #'
+  +'000000",'#10'".m c #000000",'#10'".n c #000000",'#10'".o c #000000",'#10'".'
+  +'p c #000000",'#10'".q c #000000",'#10'".r c #000000",'#10'".s c #000000",'
+  +#10'".t c #000000",'#10'".u c #000000",'#10'".v c #000000",'#10'".w c #00000'
+  +'0",'#10'".x c #000000",'#10'".y c #000000",'#10'".z c #000000",'#10'".A c #'
+  +'000000",'#10'".B c #000000",'#10'".C c #000000",'#10'".D c #000000",'#10'".'
+  +'E c #000000",'#10'".F c #000000",'#10'".G c #000000",'#10'".H c #000000",'
+  +#10'".I c #000000",'#10'".J c #000000",'#10'".K c #000000",'#10'".L c #00000'
+  +'0",'#10'".M c #000000",'#10'".N c #000000",'#10'".O c #000000",'#10'".P c #'
+  +'000000",'#10'".Q c #000000",'#10'".R c #000000",'#10'".S c #000000",'#10'".'
+  +'T c #000000",'#10'".U c #000000",'#10'".V c #000000",'#10'".W c #000000",'
+  +#10'".X c #000000",'#10'".Y c #000000",'#10'".Z c #000000",'#10'".0 c #00000'
+  +'0",'#10'".1 c #000000",'#10'".2 c #000000",'#10'".3 c #000000",'#10'".4 c #'
+  +'000000",'#10'".5 c #000000",'#10'".6 c #000000",'#10'".7 c #000000",'#10'".'
+  +'8 c #000000",'#10'"#` c #000000",'#10'"#. c #000000",'#10'"## c #000000",'
+  +#10'"#a c #000000",'#10'"#b c #000000",'#10'"#c c #000000",'#10'"#d c #00000'
+  +'0",'#10'"#e c #000000",'#10'"#f c #000000",'#10'"#g c #000000",'#10'"#h c #'
+  +'000000",'#10'"#i c #000000",'#10'"#j c #000000",'#10'"#k c #000000",'#10'"#'
+  +'l c #000000",'#10'"#m c #000000",'#10'"#n c #000000",'#10'"#o c #000000",'
+  +#10'"#p c #000000",'#10'"#q c #000000",'#10'"#r c #000000",'#10'"#s c #00000'
+  +'0",'#10'"#t c #000000",'#10'"#u c #000000",'#10'"#v c #000000",'#10'"#w c #'
+  +'000000",'#10'"#x c #000000",'#10'"#y c #000000",'#10'"#z c #000000",'#10'"#'
+  +'A c #000000",'#10'"#B c #000000",'#10'"#C c #000000",'#10'"#D c #000000",'
+  +#10'"#E c #000000",'#10'"#F c #000000",'#10'"#G c #000000",'#10'"#H c #00000'
+  +'0",'#10'"#I c #000000",'#10'"#J c #000000",'#10'"#K c #000000",'#10'"#L c #'
+  +'000000",'#10'"#M c #000000",'#10'"#N c #000000",'#10'"#O c #000000",'#10'"#'
+  +'P c #000000",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'
+  +#10'"#T c #000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #00000'
+  +'0",'#10'"#X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #'
+  +'000000",'#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#'
+  +'4 c #000000",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'
+  +#10'"#8 c #000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #00000'
+  +'0",'#10'"aa c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #'
+  +'000000",'#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"a'
+  +'h c #000000",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'
+  +#10'"al c #000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #00000'
+  +'0",'#10'"ap c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #'
+  +'000000",'#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"a'
+  +'w c #000000",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'
+  +#10'"aA c #000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #00000'
+  +'0",'#10'"aE c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #'
+  +'000000",'#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"a'
+  ,'L c #000000",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'
+  +#10'"aP c #000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #00000'
+  +'0",'#10'"aT c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #'
+  +'000000",'#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a'
+  +'0 c #000000",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'
+  +#10'"a4 c #000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #00000'
+  +'0",'#10'"a8 c #000000",'#10'/* pixels */'#10'"`````````````````````````````'
+  +'```````````````````",'#10'"```````````````````.`.``````````````````````````'
+  +'",'#10'"`````````````````.`#`#``````````````````````````",'#10'"```````````'
+  +'````.`#`a`#``````````````````````````",'#10'"`````````````.`.`b`c`#````````'
+  +'``````````````````",'#10'"```````````d`e`f`g`h`.`.`.`.`.``````````````````"'
+  +','#10'"`````````.`i`j`h`f`b`k`l`l`m`i`.`.``````````````",'#10'"```````.`n`o'
+  +'`j`j`p`p`b`q`r`s`t`u`n`.````````````",'#10'"`````.`v`w`o`o`j`h`f`f`k`x`y`y`'
+  +'y`y`y`y`y````````",'#10'"`````.`z`v`o`o`A`h`p`f`b`k`y`B`C`D`E`F`y````````",'
+  +#10'"```````d`G`v`o`o`j`v`m`a`H`y`I`J`K`L`M`y`.``````",'#10'"`````````d`e`v`'
+  +'o`j`N`d`d`.`y`O`P`Q`R`S`y`T``````",'#10'"```````````.`U`v`A`l`d`````y`F`Q`R'
+  +'`V`W`y`X`.````",'#10'"`````````````.`U`v`Y`.`````y`y`y`y`y`y`y`Z`.````",'#10
+  +'"`0`0`0`0`0`0`0`0`0`0`0`0`0```````1```.`2`3`.````",'#10'"`0`4`4`4`4`4`4`4`4'
+  +'`4`4`4`0`5`6`6`7`6`6`7`7`#````",'#10'"`0`4`5`5`5`8`4`8`5`5`5`4`0`5`````````'
+  +'``U.``.````",'#10'"`0`4`5`4`8`5`4`5`8`4`4`4`0`5```````````.`7`#````",'#10'"'
+  +'`0`4`5`5`5`8`4`8`5`5`8`4`0`5```````````7..`7````",'#10'"`0`4`5`8`4`4`4`4`4`'
+  +'8`5`4`0`5`7```````7...#.a`7``",'#10'"`0`4`5`4`4`5`5`5`5`5`8`4`0`5.b`7```7.c'
+  +'.#.d.e.b`7",'#10'"`0`4`4`4`4`4`4`4`4`4`4`4`0`5`7```````7.a.f.b`7``",'#10'"`'
+  +'0`0`0`0`0`0`0`0`0`0`0`0`0`5```````````7.b`7````",'#10'"```5`5`5`5`5`5`5`5`5'
+  +'`5`5`5`5`````````````7``````"'#10'};'#10
+]);
+LazarusResources.Add('tpsimport_comobj','XPM',[
+  '/* XPM */'#10'static char *tpsimport_comobj[] = {'#10'/* width height num_co'
+  +'lors chars_per_pixel */'#10'"    24    24      256            2",'#10'/* co'
+  +'lors */'#10'"`` c None",'#10'"`. c #035501",'#10'"`# c #045702",'#10'"`a c '
+  +'#1b830f",'#10'"`b c #2daa18",'#10'"`c c #1d8b10",'#10'"`d c #014f00",'#10'"'
+  +'`e c #0b6a05",'#10'"`f c #27a313",'#10'"`g c #29a615",'#10'"`h c #17970c",'
+  +#10'"`i c #18780d",'#10'"`j c #139309",'#10'"`k c #35af1c",'#10'"`l c #2f9f1'
+  +'a",'#10'"`m c #289516",'#10'"`n c #218212",'#10'"`o c #0d8d05",'#10'"`p c #'
+  +'1f9f10",'#10'"`q c #3eb622",'#10'"`r c #43bb25",'#10'"`s c #4fc52c",'#10'"`'
+  +'t c #4fbf2d",'#10'"`u c #45af27",'#10'"`v c #097903",'#10'"`w c #0d9006",'
+  +#10'"`x c #3ab41f",'#10'"`y c #07409a",'#10'"`z c #0d469f",'#10'"`A c #10479'
+  +'f",'#10'"`B c #0f4195",'#10'"`C c #0a3f97",'#10'"`D c #0a398c",'#10'"`E c #'
+  +'2a8c17",'#10'"`F c #109007",'#10'"`G c #0341a3",'#10'"`H c #1354b2",'#10'"`'
+  +'I c #4989d5",'#10'"`J c #79ade5",'#10'"`K c #8ebbed",'#10'"`L c #7eb1e7",'
+  +#10'"`M c #5490d5",'#10'"`N c #2360b4",'#10'"`O c #11367f",'#10'"`P c #16286'
+  +'2",'#10'"`Q c #13740a",'#10'"`R c #05409f",'#10'"`S c #3179d0",'#10'"`T c #'
+  +'9fcbf8",'#10'"`U c #c5e1fc",'#10'"`V c #a9d1f8",'#10'"`W c #86baf0",'#10'"`'
+  +'X c #6caaea",'#10'"`Y c #599de3",'#10'"`Z c #3b87da",'#10'"`0 c #1165ce",'
+  +#10'"`1 c #093b90",'#10'"`2 c #162863",'#10'"`3 c #0341a4",'#10'"`4 c #3079d'
+  +'3",'#10'"`5 c #b4d8fc",'#10'"`6 c #c1e0fc",'#10'"`7 c #8cc1f7",'#10'"`8 c #'
+  +'88bff6",'#10'".` c #5ea4ee",'#10'".. c #418ee5",'#10'".# c #3280dc",'#10'".'
+  +'a c #1c6ccf",'#10'".b c #0959c4",'#10'".c c #0152c9",'#10'".d c #0a388e",'
+  +#10'".e c #1a2356",'#10'".f c #096205",'#10'".g c #0d52b4",'#10'".h c #90c2f'
+  +'6",'#10'".i c #bbdcfc",'#10'".j c #82bdfa",'#10'".k c #6cb0f6",'#10'".l c #'
+  +'79b7f4",'#10'".m c #67a9ef",'#10'".n c #4591e3",'#10'".o c #2c7dda",'#10'".'
+  +'p c #196acf",'#10'".q c #0958c4",'#10'".r c #014dbd",'#10'".s c #0050c9",'
+  +#10'".t c #152865",'#10'".u c #0541a0",'#10'".v c #357ed4",'#10'".w c #a6d0f'
+  +'a",'#10'".x c #82bcf7",'#10'".y c #6aaff6",'#10'".z c #6f96d0",'#10'".A c #'
+  +'b14f4d",'#10'".B c #e7280d",'#10'".C c #e5270c",'#10'".D c #923f44",'#10'".'
+  +'E c #1f57ac",'#10'".F c #0451c0",'#10'".G c #004cbc",'#10'".H c #004ec2",'
+  +#10'".I c #063f9e",'#10'".J c #1c1f4e",'#10'".K c #404040",'#10'".L c #ab4c4'
+  +'b",'#10'".M c #ff1e00",'#10'".N c #803440",'#10'".O c #004abc",'#10'".P c #'
+  +'0049bb",'#10'".Q c #004dbf",'#10'".R c #0248b5",'#10'".S c #1d1f4d",'#10'".'
+  +'T c #ffffff",'#10'".U c #000000",'#10'".V c #dd230a",'#10'".W c #024fbd",'
+  +#10'".X c #034ebd",'#10'".Y c #004bbf",'#10'".Z c #182359",'#10'".0 c #c0dcc'
+  +'0",'#10'".1 c #0450bf",'#10'".2 c #1c2051",'#10'".3 c #7b323e",'#10'".4 c #'
+  +'014bbc",'#10'".5 c #0249b5",'#10'".6 c #7d333e",'#10'".7 c #da230a",'#10'".'
+  +'8 c #7b313e",'#10'"#` c #0d45a3",'#10'"#. c #004bbc",'#10'"## c #0540a0",'
+  +#10'"#a c #0351bf",'#10'"#b c #0350bf",'#10'"#c c #132968",'#10'"#d c #064fb'
+  +'f",'#10'"#e c #0049bc",'#10'"#f c #0047bb",'#10'"#g c #0050c7",'#10'"#h c #'
+  +'083b93",'#10'"#i c #1d1e4b",'#10'"#j c #014dbf",'#10'"#k c #004cbd",'#10'"#'
+  +'l c #004cbf",'#10'"#m c #004ec1",'#10'"#n c #0051c9",'#10'"#o c #093a92",'
+  +#10'"#p c #0146b1",'#10'"#q c #004bbb",'#10'"#r c #0247b4",'#10'"#s c #122b6'
+  +'b",'#10'"#t c #1c1f4d",'#10'"#u c #1b2152",'#10'"#v c #1d1f4c",'#10'"#w c #'
+  +'000000",'#10'"#x c #000000",'#10'"#y c #000000",'#10'"#z c #000000",'#10'"#'
+  +'A c #000000",'#10'"#B c #000000",'#10'"#C c #000000",'#10'"#D c #000000",'
+  +#10'"#E c #000000",'#10'"#F c #000000",'#10'"#G c #000000",'#10'"#H c #00000'
+  +'0",'#10'"#I c #000000",'#10'"#J c #000000",'#10'"#K c #000000",'#10'"#L c #'
+  +'000000",'#10'"#M c #000000",'#10'"#N c #000000",'#10'"#O c #000000",'#10'"#'
+  +'P c #000000",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'
+  +#10'"#T c #000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #00000'
+  +'0",'#10'"#X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #'
+  +'000000",'#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#'
+  +'4 c #000000",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'
+  +#10'"#8 c #000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #00000'
+  +'0",'#10'"aa c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #'
+  +'000000",'#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"a'
+  +'h c #000000",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'
+  +#10'"al c #000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #00000'
+  +'0",'#10'"ap c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #'
+  +'000000",'#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"a'
+  +'w c #000000",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'
+  +#10'"aA c #000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #00000'
+  +'0",'#10'"aE c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #'
+  +'000000",'#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"a'
+  ,'L c #000000",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'
+  +#10'"aP c #000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #00000'
+  +'0",'#10'"aT c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #'
+  +'000000",'#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a'
+  +'0 c #000000",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'
+  +#10'"a4 c #000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #00000'
+  +'0",'#10'"a8 c #000000",'#10'/* pixels */'#10'"`````````````````````````````'
+  +'```````````````````",'#10'"```````````````````.`.``````````````````````````'
+  +'",'#10'"`````````````````.`#`#``````````````````````````",'#10'"```````````'
+  +'````.`#`a`#``````````````````````````",'#10'"`````````````.`.`b`c`#````````'
+  +'``````````````````",'#10'"```````````d`e`f`g`h`.`.`.`.`.``````````````````"'
+  +','#10'"`````````.`i`j`h`f`b`k`l`l`m`i`.`.``````````````",'#10'"```````.`n`o'
+  +'`j`j`p`p`b`q`r`s`t`u`n`.````````````",'#10'"`````.`v`w`o`o`j`h`f`f`k`x`y`z`'
+  +'A`B`C`D``````````",'#10'"`````.`E`v`o`o`F`h`p`f`G`H`I`J`K`L`M`N`O`P``````",'
+  +#10'"```````d`Q`v`o`o`j`v`R`S`T`U`V`W`X`Y`Z`0`1`2````",'#10'"`````````d`e`v`'
+  +'o`j`3`4`5`6`7`8.`...#.a.b.c.d.e``",'#10'"```````````..f`v`F.g.h.i.j.k.l.m.n'
+  +'.o.p.q.r.s.t``",'#10'"`````````````..f.u.v.w.x.y.z.A.B.C.D.E.F.G.H.I.J",'#10
+  +'".K.K.K.K.K.K.K.K.K.K.K.K.K.L.M.M.M.M.N.O.P.Q.R.S",'#10'".K.T.T.T.T.T.T.T.T'
+  +'.T.T.T.K.U.M.M.M.M.V.W.X.O.Y.Z",'#10'".K.T.U.U.U.0.T.0.U.U.U.T.K.U.M.M.M.M.'
+  +'V.W.1.O.Y.2",'#10'".K.T.U.T.0.U.T.U.0.T.T.T.K.U.M.M.M.M.3.4.P.Q.5.J",'#10'"'
+  +'.K.T.U.U.U.0.T.0.U.U.0.T.K.U.6.7.7.8#`.P#..H##.J",'#10'".K.T.U.0.T.T.T.T.T.'
+  +'0.U.T.K.U#a.W#b.P#.#.#..s#c``",'#10'".K.T.U.T.T.U.U.U.U.U.0.T.K.U#d#e#f#.#.'
+  +'#.#g#h#i``",'#10'".K.T.T.T.T.T.T.T.T.T.T.T.K.U#j#e#k#l#m#n#o.J````",'#10'".'
+  +'K.K.K.K.K.K.K.K.K.K.K.K.K.U#p#q#.#r.I#s#t``````",'#10'"``.U.U.U.U.U.U.U.U.U'
+  +'.U.U.U.U#u#c#c#u#v``````````"'#10'};'#10
+]);
+LazarusResources.Add('tpsimport_controls','XPM',[
+  '/* XPM */'#10'static char *tpsimport_controls[] = {'#10'/* width height num_'
+  +'colors chars_per_pixel */'#10'"    24    24      256            2",'#10'/* '
+  +'colors */'#10'"`` c None",'#10'"`. c #035501",'#10'"`# c #045702",'#10'"`a '
+  +'c #1b830f",'#10'"`b c #2daa18",'#10'"`c c #1d8b10",'#10'"`d c #014f00",'#10
+  +'"`e c #0b6a05",'#10'"`f c #27a313",'#10'"`g c #29a615",'#10'"`h c #17970c",'
+  +#10'"`i c #18780d",'#10'"`j c #139309",'#10'"`k c #35af1c",'#10'"`l c #2f9f1'
+  +'a",'#10'"`m c #289516",'#10'"`n c #218212",'#10'"`o c #0d8d05",'#10'"`p c #'
+  +'1f9f10",'#10'"`q c #3eb622",'#10'"`r c #43bb25",'#10'"`s c #4fc52c",'#10'"`'
+  +'t c #4fbf2d",'#10'"`u c #45af27",'#10'"`v c #097903",'#10'"`w c #0d9006",'
+  +#10'"`x c #3ab41f",'#10'"`y c #5ed035",'#10'"`z c #5fca35",'#10'"`A c #3ca02'
+  +'2",'#10'"`B c #2a8c17",'#10'"`C c #109007",'#10'"`D c #48bc27",'#10'"`E c #'
+  +'52c42d",'#10'"`F c #6ad83c",'#10'"`G c #46ac28",'#10'"`H c #13740a",'#10'"`'
+  +'I c #147b0a",'#10'"`J c #2c9518",'#10'"`K c #64d338",'#10'"`L c #72dc41",'
+  +#10'"`M c #379c1f",'#10'"`N c #53536b",'#10'"`O c #68d13b",'#10'"`P c #126d0'
+  +'9",'#10'"`Q c #096205",'#10'"`R c #b8abbc",'#10'"`S c #b493a1",'#10'"`T c #'
+  +'b49fad",'#10'"`U c #b598a6",'#10'"`V c #5c5b78",'#10'"`W c #edeef4",'#10'"`'
+  +'X c #e9e5ed",'#10'"`Y c #d5b6c0",'#10'"`Z c #d0d3e7",'#10'"`0 c #404040",'
+  +#10'"`1 c #cfc5d3",'#10'"`2 c #d4c2cc",'#10'"`3 c #ebe0e5",'#10'"`4 c #e2d8d'
+  +'e",'#10'"`5 c #b8c2de",'#10'"`6 c #9f9ece",'#10'"`7 c #998bcc",'#10'"`8 c #'
+  +'968cc9",'#10'".` c #ffffff",'#10'".. c #000000",'#10'".# c #cbcede",'#10'".'
+  +'a c #cbcce0",'#10'".b c #9f9cc7",'#10'".c c #69898c",'#10'".d c #8390c0",'
+  +#10'".e c #c0dcc0",'#10'".f c #d4d0dc",'#10'".g c #d3d3e3",'#10'".h c #9fa0c'
+  +'6",'#10'".i c #908bc7",'#10'".j c #ddd8e7",'#10'".k c #a7a3d3",'#10'".l c #'
+  +'7e8eac",'#10'".m c #e0dcea",'#10'".n c #b0a5e0",'#10'".o c #8482c0",'#10'".'
+  +'p c #cecbd9",'#10'".q c #dad9ea",'#10'".r c #a4a6d0",'#10'".s c #cbc9d8",'
+  +#10'".t c #dcdaef",'#10'".u c #84a4a9",'#10'".v c #b1b0c9",'#10'".w c #c5c5d'
+  +'8",'#10'".x c #dcdcee",'#10'".y c #a1a6d4",'#10'".z c #8c8bcf",'#10'".A c #'
+  +'a3a3b8",'#10'".B c #bfbfd7",'#10'".C c #8c8cc6",'#10'".D c #000000",'#10'".'
+  +'E c #000000",'#10'".F c #000000",'#10'".G c #000000",'#10'".H c #000000",'
+  +#10'".I c #000000",'#10'".J c #000000",'#10'".K c #000000",'#10'".L c #00000'
+  +'0",'#10'".M c #000000",'#10'".N c #000000",'#10'".O c #000000",'#10'".P c #'
+  +'000000",'#10'".Q c #000000",'#10'".R c #000000",'#10'".S c #000000",'#10'".'
+  +'T c #000000",'#10'".U c #000000",'#10'".V c #000000",'#10'".W c #000000",'
+  +#10'".X c #000000",'#10'".Y c #000000",'#10'".Z c #000000",'#10'".0 c #00000'
+  +'0",'#10'".1 c #000000",'#10'".2 c #000000",'#10'".3 c #000000",'#10'".4 c #'
+  +'000000",'#10'".5 c #000000",'#10'".6 c #000000",'#10'".7 c #000000",'#10'".'
+  +'8 c #000000",'#10'"#` c #000000",'#10'"#. c #000000",'#10'"## c #000000",'
+  +#10'"#a c #000000",'#10'"#b c #000000",'#10'"#c c #000000",'#10'"#d c #00000'
+  +'0",'#10'"#e c #000000",'#10'"#f c #000000",'#10'"#g c #000000",'#10'"#h c #'
+  +'000000",'#10'"#i c #000000",'#10'"#j c #000000",'#10'"#k c #000000",'#10'"#'
+  +'l c #000000",'#10'"#m c #000000",'#10'"#n c #000000",'#10'"#o c #000000",'
+  +#10'"#p c #000000",'#10'"#q c #000000",'#10'"#r c #000000",'#10'"#s c #00000'
+  +'0",'#10'"#t c #000000",'#10'"#u c #000000",'#10'"#v c #000000",'#10'"#w c #'
+  +'000000",'#10'"#x c #000000",'#10'"#y c #000000",'#10'"#z c #000000",'#10'"#'
+  +'A c #000000",'#10'"#B c #000000",'#10'"#C c #000000",'#10'"#D c #000000",'
+  +#10'"#E c #000000",'#10'"#F c #000000",'#10'"#G c #000000",'#10'"#H c #00000'
+  +'0",'#10'"#I c #000000",'#10'"#J c #000000",'#10'"#K c #000000",'#10'"#L c #'
+  +'000000",'#10'"#M c #000000",'#10'"#N c #000000",'#10'"#O c #000000",'#10'"#'
+  +'P c #000000",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'
+  +#10'"#T c #000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #00000'
+  +'0",'#10'"#X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #'
+  +'000000",'#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#'
+  +'4 c #000000",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'
+  +#10'"#8 c #000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #00000'
+  +'0",'#10'"aa c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #'
+  +'000000",'#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"a'
+  +'h c #000000",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'
+  +#10'"al c #000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #00000'
+  +'0",'#10'"ap c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #'
+  +'000000",'#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"a'
+  +'w c #000000",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'
+  +#10'"aA c #000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #00000'
+  +'0",'#10'"aE c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #'
+  +'000000",'#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"a'
+  ,'L c #000000",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'
+  +#10'"aP c #000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #00000'
+  +'0",'#10'"aT c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #'
+  +'000000",'#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a'
+  +'0 c #000000",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'
+  +#10'"a4 c #000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #00000'
+  +'0",'#10'"a8 c #000000",'#10'/* pixels */'#10'"`````````````````````````````'
+  +'```````````````````",'#10'"```````````````````.`.``````````````````````````'
+  +'",'#10'"`````````````````.`#`#``````````````````````````",'#10'"```````````'
+  +'````.`#`a`#``````````````````````````",'#10'"`````````````.`.`b`c`#````````'
+  +'``````````````````",'#10'"```````````d`e`f`g`h`.`.`.`.`.``````````````````"'
+  +','#10'"`````````.`i`j`h`f`b`k`l`l`m`i`.`.``````````````",'#10'"```````.`n`o'
+  +'`j`j`p`p`b`q`r`s`t`u`n`.````````````",'#10'"`````.`v`w`o`o`j`h`f`f`k`x`r`s`'
+  +'y`z`A`.``````````",'#10'"`````.`B`v`o`o`C`h`p`f`b`k`q`D`E`y`F`G`.````````",'
+  +#10'"```````d`H`v`o`o`j`v`m`a`I`I`H`J`t`K`L`l`.``````",'#10'"`````````d`e`v`'
+  +'o`j`M`d`d`.`.`N`N`N`N`O`O`P``````",'#10'"```````````.`Q`v`C`l`d```N`N`R`S`T'
+  +'`U`N`N`V`.````",'#10'"`````````````.`Q`v`A`N`N`W`X`T`T`T`T`Y`Z`N`.````",'#10
+  +'"`0`0`0`0`0`0`0`0`0`0`0`0`0`1`2`3`4`5`6`7`8`N````",'#10'"`0.`.`.`.`.`.`.`.`'
+  +'.`.`.``0..`1.#.a.b.c.d.d`N````",'#10'"`0.`.......e.`.e.......``0..`1.f.g.h.'
+  +'d.d.d.i`N``",'#10'"`0.`...`.e...`...e.`.`.``0..`1.f.j.k.l.d.d.d`N``",'#10'"'
+  +'`0.`.......e.`.e.....e.``0..`1.f.m.n.d.d.d.d.o`N",'#10'"`0.`...e.`.`.`.`.`.'
+  +'e...``0..`1.p.q.r.d.d.d.d.d`N",'#10'"`0.`...`.`...........e.``0..`1.s.t.u.d'
+  +'.d.d.d`N`N",'#10'"`0.`.`.`.`.`.`.`.`.`.`.``0...v.w.x.y.d.z`N`N````",'#10'"`'
+  +'0`0`0`0`0`0`0`0`0`0`0`0`0..`N.A.B.C`N`N````````",'#10'"``..................'
+  +'........```V`N`N````````````"'#10'};'#10
+]);
+LazarusResources.Add('tpsimport_dateutils','XPM',[
+  '/* XPM */'#10'static char *tpsimport_dateutils[] = {'#10'/* width height num'
+  +'_colors chars_per_pixel */'#10'"    24    24      256            2",'#10'/*'
+  +' colors */'#10'"`` c None",'#10'"`. c #035501",'#10'"`# c #045702",'#10'"`a'
+  +' c #1b830f",'#10'"`b c #2daa18",'#10'"`c c #1d8b10",'#10'"`d c #014f00",'#10
+  +'"`e c #0b6a05",'#10'"`f c #27a313",'#10'"`g c #29a615",'#10'"`h c #17970c",'
+  +#10'"`i c #18780d",'#10'"`j c #139309",'#10'"`k c #35af1c",'#10'"`l c #2f9f1'
+  +'a",'#10'"`m c #289516",'#10'"`n c #218212",'#10'"`o c #0d8d05",'#10'"`p c #'
+  +'1f9f10",'#10'"`q c #3eb622",'#10'"`r c #43bb25",'#10'"`s c #4fc52c",'#10'"`'
+  +'t c #4fbf2d",'#10'"`u c #45af27",'#10'"`v c #097903",'#10'"`w c #0d9006",'
+  +#10'"`x c #3ab41f",'#10'"`y c #323232",'#10'"`z c #353232",'#10'"`A c #33333'
+  +'3",'#10'"`B c #2a8c17",'#10'"`C c #109007",'#10'"`D c #52c42d",'#10'"`E c #'
+  +'472624",'#10'"`F c #4a2121",'#10'"`G c #691e1e",'#10'"`H c #4a2222",'#10'"`'
+  +'I c #5c0909",'#10'"`J c #13740a",'#10'"`K c #482929",'#10'"`L c #631c1a",'
+  +#10'"`M c #691f1c",'#10'"`N c #7a2b28",'#10'"`O c #7b2623",'#10'"`P c #7e2a2'
+  +'8",'#10'"`Q c #452c2c",'#10'"`R c #813b3c",'#10'"`S c #7a4d52",'#10'"`T c #'
+  +'6e5358",'#10'"`U c #464143",'#10'"`V c #707478",'#10'"`W c #464646",'#10'"`'
+  +'X c #379c1f",'#10'"`Y c #706a69",'#10'"`Z c #c54f49",'#10'"`0 c #a7120e",'
+  +#10'"`1 c #785654",'#10'"`2 c #9a8687",'#10'"`3 c #aaa6a9",'#10'"`4 c #58636'
+  +'5",'#10'"`5 c #6e7374",'#10'"`6 c #d7e3e7",'#10'"`7 c #dae0e0",'#10'"`8 c #'
+  +'474a49",'#10'".` c #777777",'#10'".. c #ffffff",'#10'".# c #6b6c6d",'#10'".'
+  +'a c #096205",'#10'".b c #7f7877",'#10'".c c #d96960",'#10'".d c #9c1210",'
+  +#10'".e c #a3a1a3",'#10'".f c #8e8c8c",'#10'".g c #5e5e5e",'#10'".h c #d9d9d'
+  +'8",'#10'".i c #fbfafa",'#10'".j c #e7e7e7",'#10'".k c #a6a6a6",'#10'".l c #'
+  +'d1d0d0",'#10'".m c #3ca022",'#10'".n c #7d7675",'#10'".o c #d5665d",'#10'".'
+  +'p c #9d1210",'#10'".q c #a69fa0",'#10'".r c #a09f9f",'#10'".s c #989797",'
+  +#10'".t c #939292",'#10'".u c #a7a6a6",'#10'".v c #d8d7d7",'#10'".w c #40404'
+  +'0",'#10'".x c #8f8f8f",'#10'".y c #a9a9a9",'#10'".z c #898888",'#10'".A c #'
+  +'b7b6b6",'#10'".B c #b6b5b5",'#10'".C c #dad9d9",'#10'".D c #fefefe",'#10'".'
+  +'E c #000000",'#10'".F c #e2e2e2",'#10'".G c #d9d9d9",'#10'".H c #aaaaaa",'
+  +#10'".I c #8c8b8b",'#10'".J c #d7d5d5",'#10'".K c #fafafb",'#10'".L c #c0dcc'
+  +'0",'#10'".M c #fffefe",'#10'".N c #abaaaa",'#10'".O c #211f1f",'#10'".P c #'
+  +'fcfeff",'#10'".Q c #f2f7fb",'#10'".R c #fffffe",'#10'".S c #838282",'#10'".'
+  +'T c #646262",'#10'".U c #bcbdbd",'#10'".V c #fafeff",'#10'".W c #eaf3fb",'
+  +#10'".X c #696868",'#10'".Y c #8b8a8b",'#10'".Z c #e5eef6",'#10'".0 c #e2eef'
+  +'c",'#10'".1 c #bdbbbb",'#10'".2 c #eeeff2",'#10'".3 c #f7fcff",'#10'".4 c #'
+  +'d7e3ef",'#10'".5 c #d9ebfc",'#10'".6 c #565658",'#10'".7 c #5b6064",'#10'".'
+  +'8 c #e0f2ff",'#10'"#` c #d8eeff",'#10'"#. c #fcffff",'#10'"## c #bbc2ca",'
+  +#10'"#a c #a5afb8",'#10'"#b c #d3e5f3",'#10'"#c c #c4d7e7",'#10'"#d c #78838'
+  +'f",'#10'"#e c #494d50",'#10'"#f c #f8f8f8",'#10'"#g c #d1d7da",'#10'"#h c #'
+  +'bac0c4",'#10'"#i c #7d7f82",'#10'"#j c #646668",'#10'"#k c #56595d",'#10'"#'
+  +'l c #3e4042",'#10'"#m c #414141",'#10'"#n c #60676d",'#10'"#o c #000000",'
+  +#10'"#p c #000000",'#10'"#q c #000000",'#10'"#r c #000000",'#10'"#s c #00000'
+  +'0",'#10'"#t c #000000",'#10'"#u c #000000",'#10'"#v c #000000",'#10'"#w c #'
+  +'000000",'#10'"#x c #000000",'#10'"#y c #000000",'#10'"#z c #000000",'#10'"#'
+  +'A c #000000",'#10'"#B c #000000",'#10'"#C c #000000",'#10'"#D c #000000",'
+  +#10'"#E c #000000",'#10'"#F c #000000",'#10'"#G c #000000",'#10'"#H c #00000'
+  +'0",'#10'"#I c #000000",'#10'"#J c #000000",'#10'"#K c #000000",'#10'"#L c #'
+  +'000000",'#10'"#M c #000000",'#10'"#N c #000000",'#10'"#O c #000000",'#10'"#'
+  +'P c #000000",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'
+  +#10'"#T c #000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #00000'
+  +'0",'#10'"#X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #'
+  +'000000",'#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#'
+  +'4 c #000000",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'
+  +#10'"#8 c #000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #00000'
+  +'0",'#10'"aa c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #'
+  +'000000",'#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"a'
+  +'h c #000000",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'
+  +#10'"al c #000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #00000'
+  +'0",'#10'"ap c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #'
+  +'000000",'#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"a'
+  +'w c #000000",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'
+  +#10'"aA c #000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #00000'
+  +'0",'#10'"aE c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #'
+  +'000000",'#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"a'
+  ,'L c #000000",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'
+  +#10'"aP c #000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #00000'
+  +'0",'#10'"aT c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #'
+  +'000000",'#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a'
+  +'0 c #000000",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'
+  +#10'"a4 c #000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #00000'
+  +'0",'#10'"a8 c #000000",'#10'/* pixels */'#10'"`````````````````````````````'
+  +'```````````````````",'#10'"```````````````````.`.``````````````````````````'
+  +'",'#10'"`````````````````.`#`#``````````````````````````",'#10'"```````````'
+  +'````.`#`a`#``````````````````````````",'#10'"`````````````.`.`b`c`#````````'
+  +'``````````````````",'#10'"```````````d`e`f`g`h`.`.`.`.`.``````````````````"'
+  +','#10'"`````````.`i`j`h`f`b`k`l`l`m`i`.`.``````````````",'#10'"```````.`n`o'
+  +'`j`j`p`p`b`q`r`s`t`u`n`.````````````",'#10'"`````.`v`w`o`o`j`h`f`f`k`x`r`s`'
+  +'y`y`````z`A``````",'#10'"`````.`B`v`o`o`C`h`p`f`b`k`q`y`D`E`y`F`.`G`H`I``",'
+  +#10'"```````d`J`v`o`o`j`v`m`K`L`M`N`O`P`Q`R`S`T`U`V`W",'#10'"`````````d`e`v`'
+  +'o`j`X`Y`Z`0`1`2`3`4`5`6`7`8.`...#",'#10'"```````````..a`v`C`l.b.c.d.e.f...g'
+  +'.h.i.j.k.l...#",'#10'"`````````````..a`v.m.n.o.p.q.f...k.r.s.t.u.v...#",'#10
+  +'".w.w.w.w.w.w.w.w.w.w.w.w.w.q.f...x.y.z.A.B.C.D.#",'#10'".w................'
+  +'.......w.E.f.D.F.G.H.I.J...K.#",'#10'".w...E.E.E.L...L.E.E.E...w.E.f.M...N.'
+  +'O.O.O.P.Q.#",'#10'".w...E...L.E...E.L.......w.E.f.R...S.O.T.U.V.W.#",'#10'"'
+  +'.w...E.E.E.L...L.E.E.L...w.E.f.R...r.X.Y.O.Z.0.#",'#10'".w...E.L...........'
+  +'L.E...w.E.f.R...1.2.3.O.4.5.#",'#10'".w...E.....E.E.E.E.E.L...w.E.f.R...z.6'
+  +'.O.7.8#`.#",'#10'".w.......................w.E.f....#.###a#b#c#d#e",'#10'".'
+  +'w.w.w.w.w.w.w.w.w.w.w.w.w.E.f#f#g#h#i#j#k#l````",'#10'"``.E.E.E.E.E.E.E.E.E'
+  +'.E.E.E.E`y#m#n#n````````````"'#10'};'#10
+]);
+LazarusResources.Add('tpsimport_db','XPM',[
+  '/* XPM */'#10'static char *tpsimport_db[] = {'#10'/* width height num_colors'
+  +' chars_per_pixel */'#10'"    24    24      256            2",'#10'/* colors'
+  +' */'#10'"`` c None",'#10'"`. c #035501",'#10'"`# c #045702",'#10'"`a c #1b8'
+  +'30f",'#10'"`b c #2daa18",'#10'"`c c #1d8b10",'#10'"`d c #014f00",'#10'"`e c'
+  +' #0b6a05",'#10'"`f c #27a313",'#10'"`g c #29a615",'#10'"`h c #17970c",'#10
+  +'"`i c #18780d",'#10'"`j c #139309",'#10'"`k c #35af1c",'#10'"`l c #2f9f1a",'
+  +#10'"`m c #289516",'#10'"`n c #218212",'#10'"`o c #0d8d05",'#10'"`p c #1f9f1'
+  +'0",'#10'"`q c #3eb622",'#10'"`r c #43bb25",'#10'"`s c #4fc52c",'#10'"`t c #'
+  +'4fbf2d",'#10'"`u c #45af27",'#10'"`v c #097903",'#10'"`w c #0d9006",'#10'"`'
+  +'x c #a77302",'#10'"`y c #a97402",'#10'"`z c #3ca022",'#10'"`A c #2a8c17",'
+  +#10'"`B c #109007",'#10'"`C c #e9dab7",'#10'"`D c #fbfcd7",'#10'"`E c #ffffa'
+  +'5",'#10'"`F c #feff87",'#10'"`G c #fbfe84",'#10'"`H c #e7dc62",'#10'"`I c #'
+  +'46ac28",'#10'"`J c #13740a",'#10'"`K c #ffffc0",'#10'"`L c #fff68e",'#10'"`'
+  +'M c #fff777",'#10'"`N c #fefa7d",'#10'"`O c #f6f07b",'#10'"`P c #e0ca45",'
+  +#10'"`Q c #986802",'#10'"`R c #72dc41",'#10'"`S c #379c1f",'#10'"`T c #fff45'
+  +'7",'#10'"`U c #fece16",'#10'"`V c #fccb1a",'#10'"`W c #f7dc5b",'#10'"`X c #'
+  +'d7bf5e",'#10'"`Y c #a5790f",'#10'"`Z c #096205",'#10'"`0 c #fff45b",'#10'"`'
+  +'1 c #fece15",'#10'"`2 c #fbc918",'#10'"`3 c #edd057",'#10'"`4 c #c2ab54",'
+  +#10'"`5 c #eade63",'#10'"`6 c #d5b72a",'#10'"`7 c #eabb11",'#10'"`8 c #f7c71'
+  +'8",'#10'".` c #e3cc53",'#10'".. c #af953c",'#10'".# c #fffb7e",'#10'".a c #'
+  +'fef880",'#10'".b c #f0d94b",'#10'".c c #404040",'#10'".d c #ad7b08",'#10'".'
+  +'e c #9f7209",'#10'".f c #92721d",'#10'".g c #fecc1a",'#10'".h c #ffe35e",'
+  +#10'".i c #f2d76a",'#10'".j c #cc9713",'#10'".k c #ffffff",'#10'".l c #00000'
+  +'0",'#10'".m c #d8cea9",'#10'".n c #b6ac8a",'#10'".o c #fecb18",'#10'".p c #'
+  +'ffe15e",'#10'".q c #f3d569",'#10'".r c #ce9915",'#10'".s c #c0dcc0",'#10'".'
+  +'t c #e7d467",'#10'".u c #bdaa5c",'#10'".v c #faca18",'#10'".w c #fae05b",'
+  +#10'".x c #e3c14e",'#10'".y c #bc880a",'#10'".z c #e7cc54",'#10'".A c #bba55'
+  +'0",'#10'".B c #d1b44f",'#10'".C c #c0921a",'#10'".D c #b07d08",'#10'".E c #'
+  +'b07e0a",'#10'".F c #bf9326",'#10'".G c #c7a140",'#10'".H c #e7cf58",'#10'".'
+  +'I c #bda754",'#10'".J c #f7f0ab",'#10'".K c #f0e09e",'#10'".L c #eedead",'
+  +#10'".M c #eee2ba",'#10'".N c #eee1b4",'#10'".O c #e5ce89",'#10'".P c #dec14'
+  +'a",'#10'".Q c #aa903e",'#10'".R c #fff862",'#10'".S c #ffd723",'#10'".T c #'
+  +'ffd52c",'#10'".U c #ffea72",'#10'".V c #f7dd78",'#10'".W c #d09e18",'#10'".'
+  +'X c #a47002",'#10'".Y c #8e6002",'#10'".Z c #fff45c",'#10'".0 c #ffe15c",'
+  +#10'".1 c #f3d768",'#10'".2 c #ce9a15",'#10'".3 c #fffe64",'#10'".4 c #ffd41'
+  +'8",'#10'".5 c #ffcf1a",'#10'".6 c #ffe562",'#10'".7 c #f7da6e",'#10'".8 c #'
+  +'d19e17",'#10'"#` c #ac7d09",'#10'"#. c #cba41d",'#10'"## c #e5b814",'#10'"#'
+  +'a c #f0bf18",'#10'"#b c #f2d351",'#10'"#c c #debd51",'#10'"#d c #b8860c",'
+  +#10'"#e c #000000",'#10'"#f c #000000",'#10'"#g c #000000",'#10'"#h c #00000'
+  +'0",'#10'"#i c #000000",'#10'"#j c #000000",'#10'"#k c #000000",'#10'"#l c #'
+  +'000000",'#10'"#m c #000000",'#10'"#n c #000000",'#10'"#o c #000000",'#10'"#'
+  +'p c #000000",'#10'"#q c #000000",'#10'"#r c #000000",'#10'"#s c #000000",'
+  +#10'"#t c #000000",'#10'"#u c #000000",'#10'"#v c #000000",'#10'"#w c #00000'
+  +'0",'#10'"#x c #000000",'#10'"#y c #000000",'#10'"#z c #000000",'#10'"#A c #'
+  +'000000",'#10'"#B c #000000",'#10'"#C c #000000",'#10'"#D c #000000",'#10'"#'
+  +'E c #000000",'#10'"#F c #000000",'#10'"#G c #000000",'#10'"#H c #000000",'
+  +#10'"#I c #000000",'#10'"#J c #000000",'#10'"#K c #000000",'#10'"#L c #00000'
+  +'0",'#10'"#M c #000000",'#10'"#N c #000000",'#10'"#O c #000000",'#10'"#P c #'
+  +'000000",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'#10'"#'
+  +'T c #000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #000000",'
+  +#10'"#X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #00000'
+  +'0",'#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#4 c #'
+  +'000000",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'#10'"#'
+  +'8 c #000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #000000",'
+  +#10'"aa c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #00000'
+  +'0",'#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"ah c #'
+  +'000000",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'#10'"a'
+  +'l c #000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #000000",'
+  +#10'"ap c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #00000'
+  +'0",'#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"aw c #'
+  +'000000",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'#10'"a'
+  +'A c #000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #000000",'
+  +#10'"aE c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #00000'
+  +'0",'#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"aL c #'
+  ,'000000",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'#10'"a'
+  +'P c #000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #000000",'
+  +#10'"aT c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #00000'
+  +'0",'#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a0 c #'
+  +'000000",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'#10'"a'
+  +'4 c #000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #000000",'
+  +#10'"a8 c #000000",'#10'/* pixels */'#10'"``````````````````````````````````'
+  +'``````````````",'#10'"```````````````````.`.``````````````````````````",'#10
+  +'"`````````````````.`#`#``````````````````````````",'#10'"```````````````.`#'
+  +'`a`#``````````````````````````",'#10'"`````````````.`.`b`c`#```````````````'
+  +'```````````",'#10'"```````````d`e`f`g`h`.`.`.`.`.``````````````````",'#10'"'
+  +'`````````.`i`j`h`f`b`k`l`l`m`i`.`.``````````````",'#10'"```````.`n`o`j`j`p`'
+  +'p`b`q`r`s`t`u`n`.````````````",'#10'"`````.`v`w`o`o`j`h`f`f`x`y`y`y`y`y`z`.'
+  +'``````````",'#10'"`````.`A`v`o`o`B`h`p`y`C`D`E`F`G`H`x`I`.````````",'#10'"`'
+  +'``````d`J`v`o`o`j`v`y`K`L`M`N`O`P`Q`R`l`.``````",'#10'"`````````d`e`v`o`j`S'
+  +'`y`T`U`V`W`X`Y`x`y`y`y`y`y``",'#10'"```````````.`Z`v`B`l`y`0`1`2`3`4`y`C`D`'
+  +'E`F`G`5`y",'#10'"`````````````.`Z`v`z`y`6`7`8.`..`y`K`L`M.#.a.b`y",'#10'".c'
+  +'.c.c.c.c.c.c.c.c.c.c.c.c.d.e.f`y`T`U.g.h.i.j`y",'#10'".c.k.k.k.k.k.k.k.k.k.'
+  +'k.k.c.l.m.n`y`0`1.o.p.q.r`y",'#10'".c.k.l.l.l.s.k.s.l.l.l.k.c.l.t.u`y`6`7.v'
+  +'.w.x.y`y",'#10'".c.k.l.k.s.l.k.l.s.k.k.k.c.l.z.A`y.B.C.D.E.F.G`y",'#10'".c.'
+  +'k.l.l.l.s.k.s.l.l.s.k.c.l.H.I`y.J.K.L.M.N.O`y",'#10'".c.k.l.s.k.k.k.k.k.s.l'
+  +'.k.c.l.P.Q`y.R.S.T.U.V.W`y",'#10'".c.k.l.k.k.l.l.l.l.l.s.k.c.l.X.Y`y.Z`1.o.'
+  +'0.1.2`y",'#10'".c.k.k.k.k.k.k.k.k.k.k.k.c.l`````y.3.4.5.6.7.8`y",'#10'".c.c'
+  +'.c.c.c.c.c.c.c.c.c.c.c.l````#`#.###a#b#c#d`y",'#10'"``.l.l.l.l.l.l.l.l.l.l.'
+  +'l.l.l```````y`y`y`y`y`y``"'#10'};'#10
+]);
+LazarusResources.Add('tpsimport_forms','XPM',[
+  '/* XPM */'#10'static char *tpsimport_forms[] = {'#10'/* width height num_col'
+  +'ors chars_per_pixel */'#10'"    24    24      256            2",'#10'/* col'
+  +'ors */'#10'"`` c None",'#10'"`. c #035501",'#10'"`# c #045702",'#10'"`a c #'
+  +'1b830f",'#10'"`b c #2daa18",'#10'"`c c #1d8b10",'#10'"`d c #014f00",'#10'"`'
+  +'e c #0b6a05",'#10'"`f c #27a313",'#10'"`g c #29a615",'#10'"`h c #17970c",'
+  +#10'"`i c #18780d",'#10'"`j c #139309",'#10'"`k c #35af1c",'#10'"`l c #2f9f1'
+  +'a",'#10'"`m c #289516",'#10'"`n c #218212",'#10'"`o c #0d8d05",'#10'"`p c #'
+  +'1f9f10",'#10'"`q c #3eb622",'#10'"`r c #43bb25",'#10'"`s c #4fc52c",'#10'"`'
+  +'t c #4fbf2d",'#10'"`u c #45af27",'#10'"`v c #097903",'#10'"`w c #0d9006",'
+  +#10'"`x c #0041bb",'#10'"`y c #0042bb",'#10'"`z c #2a8c17",'#10'"`A c #10900'
+  +'7",'#10'"`B c #62a3e9",'#10'"`C c #599ce6",'#10'"`D c #599de6",'#10'"`E c #'
+  +'569ce6",'#10'"`F c #5299e6",'#10'"`G c #589fe9",'#10'"`H c #13740a",'#10'"`'
+  +'I c #ffffff",'#10'"`J c #effaff",'#10'"`K c #096205",'#10'"`L c #404040",'
+  +#10'"`M c #000000",'#10'"`N c #c0dcc0",'#10'"`O c #f7fbff",'#10'"`P c #eaf4f'
+  +'f",'#10'"`Q c #dcedff",'#10'"`R c #cae5fe",'#10'"`S c #d7efff",'#10'"`T c #'
+  +'feffff",'#10'"`U c #f6fbff",'#10'"`V c #e7f3fe",'#10'"`W c #d9eefe",'#10'"`'
+  +'X c #cae6ff",'#10'"`Y c #baddfe",'#10'"`Z c #c4e7ff",'#10'"`0 c #f4faff",'
+  +#10'"`1 c #e7f3ff",'#10'"`2 c #d8ebfe",'#10'"`3 c #c9e5ff",'#10'"`4 c #b8ddf'
+  +'e",'#10'"`5 c #aad5fe",'#10'"`6 c #b5e1ff",'#10'"`7 c #fbfeff",'#10'"`8 c #'
+  +'f2f8ff",'#10'".` c #e5f2ff",'#10'".. c #d5ebff",'#10'".# c #c5e3ff",'#10'".'
+  +'a c #b6dcff",'#10'".b c #a9d4ff",'#10'".c c #9cceff",'#10'".d c #acdcff",'
+  +#10'".e c #eff6ff",'#10'".f c #e2f0fe",'#10'".g c #d1eaff",'#10'".h c #c4e2f'
+  +'e",'#10'".i c #b4dafe",'#10'".j c #a5d3fe",'#10'".k c #9ccefe",'#10'".l c #'
+  +'95cafe",'#10'".m c #abdaff",'#10'".n c #faffff",'#10'".o c #eafaff",'#10'".'
+  +'p c #c7e7ff",'#10'".q c #b8e1ff",'#10'".r c #addaff",'#10'".s c #a9d9ff",'
+  +#10'".t c #a7d8ff",'#10'".u c #c2eaff",'#10'".v c #000000",'#10'".w c #00000'
+  +'0",'#10'".x c #000000",'#10'".y c #000000",'#10'".z c #000000",'#10'".A c #'
+  +'000000",'#10'".B c #000000",'#10'".C c #000000",'#10'".D c #000000",'#10'".'
+  +'E c #000000",'#10'".F c #000000",'#10'".G c #000000",'#10'".H c #000000",'
+  +#10'".I c #000000",'#10'".J c #000000",'#10'".K c #000000",'#10'".L c #00000'
+  +'0",'#10'".M c #000000",'#10'".N c #000000",'#10'".O c #000000",'#10'".P c #'
+  +'000000",'#10'".Q c #000000",'#10'".R c #000000",'#10'".S c #000000",'#10'".'
+  +'T c #000000",'#10'".U c #000000",'#10'".V c #000000",'#10'".W c #000000",'
+  +#10'".X c #000000",'#10'".Y c #000000",'#10'".Z c #000000",'#10'".0 c #00000'
+  +'0",'#10'".1 c #000000",'#10'".2 c #000000",'#10'".3 c #000000",'#10'".4 c #'
+  +'000000",'#10'".5 c #000000",'#10'".6 c #000000",'#10'".7 c #000000",'#10'".'
+  +'8 c #000000",'#10'"#` c #000000",'#10'"#. c #000000",'#10'"## c #000000",'
+  +#10'"#a c #000000",'#10'"#b c #000000",'#10'"#c c #000000",'#10'"#d c #00000'
+  +'0",'#10'"#e c #000000",'#10'"#f c #000000",'#10'"#g c #000000",'#10'"#h c #'
+  +'000000",'#10'"#i c #000000",'#10'"#j c #000000",'#10'"#k c #000000",'#10'"#'
+  +'l c #000000",'#10'"#m c #000000",'#10'"#n c #000000",'#10'"#o c #000000",'
+  +#10'"#p c #000000",'#10'"#q c #000000",'#10'"#r c #000000",'#10'"#s c #00000'
+  +'0",'#10'"#t c #000000",'#10'"#u c #000000",'#10'"#v c #000000",'#10'"#w c #'
+  +'000000",'#10'"#x c #000000",'#10'"#y c #000000",'#10'"#z c #000000",'#10'"#'
+  +'A c #000000",'#10'"#B c #000000",'#10'"#C c #000000",'#10'"#D c #000000",'
+  +#10'"#E c #000000",'#10'"#F c #000000",'#10'"#G c #000000",'#10'"#H c #00000'
+  +'0",'#10'"#I c #000000",'#10'"#J c #000000",'#10'"#K c #000000",'#10'"#L c #'
+  +'000000",'#10'"#M c #000000",'#10'"#N c #000000",'#10'"#O c #000000",'#10'"#'
+  +'P c #000000",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'
+  +#10'"#T c #000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #00000'
+  +'0",'#10'"#X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #'
+  +'000000",'#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#'
+  +'4 c #000000",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'
+  +#10'"#8 c #000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #00000'
+  +'0",'#10'"aa c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #'
+  +'000000",'#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"a'
+  +'h c #000000",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'
+  +#10'"al c #000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #00000'
+  +'0",'#10'"ap c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #'
+  +'000000",'#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"a'
+  +'w c #000000",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'
+  +#10'"aA c #000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #00000'
+  +'0",'#10'"aE c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #'
+  +'000000",'#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"a'
+  ,'L c #000000",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'
+  +#10'"aP c #000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #00000'
+  +'0",'#10'"aT c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #'
+  +'000000",'#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a'
+  +'0 c #000000",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'
+  +#10'"a4 c #000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #00000'
+  +'0",'#10'"a8 c #000000",'#10'/* pixels */'#10'"`````````````````````````````'
+  +'```````````````````",'#10'"```````````````````.`.``````````````````````````'
+  +'",'#10'"`````````````````.`#`#``````````````````````````",'#10'"```````````'
+  +'````.`#`a`#``````````````````````````",'#10'"`````````````.`.`b`c`#````````'
+  +'``````````````````",'#10'"```````````d`e`f`g`h`.`.`.`.`.``````````````````"'
+  +','#10'"`````````.`i`j`h`f`b`k`l`l`m`i`.`.``````````````",'#10'"```````.`n`o'
+  +'`j`j`p`p`b`q`r`s`t`u`n`.````````````",'#10'"`````.`v`w`o`o`j`h`x`y`y`y`y`y`'
+  +'y`y`y`y``````````",'#10'"`````.`z`v`o`o`A`y`B`C`C`C`C`C`D`E`F`G`y````````",'
+  +#10'"```````d`H`v`o`o`y`I`I`I`I`I`I`I`I`J`I`y`.``````",'#10'"`````````d`e`v`'
+  +'o`y`I`I`x`y`y`y`y`y`y`y`y`y``````",'#10'"```````````.`K`v`y`I`y`B`C`C`C`C`C'
+  +'`D`E`F`G`y````",'#10'"`````````````.`K`y`I`y`I`I`I`I`I`I`I`I`J`I`y````",'#10
+  +'"`L`L`L`L`L`L`L`L`L`L`L`L`L`x`y`y`y`y`y`y`y`y`y``",'#10'"`L`I`I`I`I`I`I`I`I'
+  +'`I`I`I`L`M`C`C`C`C`C`D`E`F`G`y",'#10'"`L`I`M`M`M`N`I`N`M`M`M`I`L`M`I`I`I`I`'
+  +'I`I`I`J`I`y",'#10'"`L`I`M`I`N`M`I`M`N`I`I`I`L`M`I`I`I`I`O`P`Q`R`S`y",'#10'"'
+  +'`L`I`M`M`M`N`I`N`M`M`N`I`L`M`I`I`T`U`V`W`X`Y`Z`y",'#10'"`L`I`M`N`I`I`I`I`I`'
+  +'N`M`I`L`M`I`T`0`1`2`3`4`5`6`y",'#10'"`L`I`M`I`I`M`M`M`M`M`N`I`L`M`7`8.`...#'
+  +'.a.b.c.d`y",'#10'"`L`I`I`I`I`I`I`I`I`I`I`I`L`M.e.f.g.h.i.j.k.l.m`y",'#10'"`'
+  +'L`L`L`L`L`L`L`L`L`L`L`L`L`M.n.o`S.p.q.r.s.t.u`y",'#10'"```M`M`M`M`M`M`M`M`M'
+  +'`M`M`M`M`y`y`y`y`y`y`y`y`y`y"'#10'};'#10
+]);
+LazarusResources.Add('tpsimport_stdctrls','XPM',[
+  '/* XPM */'#10'static char *tpsimport_stdctrls[] = {'#10'/* width height num_'
+  +'colors chars_per_pixel */'#10'"    24    24      256            2",'#10'/* '
+  +'colors */'#10'"`` c None",'#10'"`. c #035501",'#10'"`# c #045702",'#10'"`a '
+  +'c #1b830f",'#10'"`b c #2daa18",'#10'"`c c #1d8b10",'#10'"`d c #014f00",'#10
+  +'"`e c #0b6a05",'#10'"`f c #27a313",'#10'"`g c #29a615",'#10'"`h c #17970c",'
+  +#10'"`i c #18780d",'#10'"`j c #139309",'#10'"`k c #35af1c",'#10'"`l c #2f9f1'
+  +'a",'#10'"`m c #289516",'#10'"`n c #218212",'#10'"`o c #0d8d05",'#10'"`p c #'
+  +'1f9f10",'#10'"`q c #3eb622",'#10'"`r c #43bb25",'#10'"`s c #4fc52c",'#10'"`'
+  +'t c #4fbf2d",'#10'"`u c #45af27",'#10'"`v c #097903",'#10'"`w c #0d9006",'
+  +#10'"`x c #3ab41f",'#10'"`y c #5ed035",'#10'"`z c #5fca35",'#10'"`A c #3ca02'
+  +'2",'#10'"`B c #2a8c17",'#10'"`C c #109007",'#10'"`D c #48bc27",'#10'"`E c #'
+  +'52c42d",'#10'"`F c #6ad83c",'#10'"`G c #46ac28",'#10'"`H c #13740a",'#10'"`'
+  +'I c #147b0a",'#10'"`J c #2c9518",'#10'"`K c #64d338",'#10'"`L c #72dc41",'
+  +#10'"`M c #379c1f",'#10'"`N c #53536b",'#10'"`O c #68d13b",'#10'"`P c #126d0'
+  +'9",'#10'"`Q c #096205",'#10'"`R c #b8abbc",'#10'"`S c #b493a1",'#10'"`T c #'
+  +'b49fad",'#10'"`U c #b598a6",'#10'"`V c #5c5b78",'#10'"`W c #edeef4",'#10'"`'
+  +'X c #e9e5ed",'#10'"`Y c #ab4c50",'#10'"`Z c #8f1112",'#10'"`0 c #c57b7d",'
+  +#10'"`1 c #d5b6c0",'#10'"`2 c #d0d3e7",'#10'"`3 c #404040",'#10'"`4 c #cfc5d'
+  +'3",'#10'"`5 c #d4c2cc",'#10'"`6 c #ebe0e5",'#10'"`7 c #e2d8de",'#10'"`8 c #'
+  +'b8c2de",'#10'".` c #9f9ece",'#10'".. c #998bcc",'#10'".# c #968cc9",'#10'".'
+  +'a c #ffffff",'#10'".b c #000000",'#10'".c c #afb0cb",'#10'".d c #cbcede",'
+  +#10'".e c #cbcce0",'#10'".f c #9f9cc7",'#10'".g c #69898c",'#10'".h c #37874'
+  +'a",'#10'".i c #568e75",'#10'".j c #c0dcc0",'#10'".k c #487dc4",'#10'".l c #'
+  +'d4d0dc",'#10'".m c #d3d3e3",'#10'".n c #9fa0c6",'#10'".o c #006500",'#10'".'
+  +'p c #908bc7",'#10'".q c #4b7dc0",'#10'".r c #9db5d9",'#10'".s c #ddd8e7",'
+  +#10'".t c #a7a3d3",'#10'".u c #7e8eac",'#10'".v c #668e91",'#10'".w c #4679c'
+  +'0",'#10'".x c #9db4d8",'#10'".y c #e0dcea",'#10'".z c #b0a5e0",'#10'".A c #'
+  +'45895f",'#10'".B c #808eb6",'#10'".C c #8390c0",'#10'".D c #8482c0",'#10'".'
+  +'E c #3d76c1",'#10'".F c #cecbd9",'#10'".G c #dad9ea",'#10'".H c #a4a6d0",'
+  +#10'".I c #678b92",'#10'".J c #9a90de",'#10'".K c #9190d5",'#10'".L c #9192d'
+  +'9",'#10'".M c #9fa6c6",'#10'".N c #cbc9d8",'#10'".O c #dcdaef",'#10'".P c #'
+  +'84a4a9",'#10'".Q c #9c91e2",'#10'".R c #9292d9",'#10'".S c #8f8fd7",'#10'".'
+  +'T c #b1b0c9",'#10'".U c #c5c5d8",'#10'".V c #dcdcee",'#10'".W c #a1a6d4",'
+  +#10'".X c #9298cf",'#10'".Y c #8c8bcf",'#10'".Z c #a3a3b8",'#10'".0 c #bfbfd'
+  +'7",'#10'".1 c #8c8cc6",'#10'".2 c #000000",'#10'".3 c #000000",'#10'".4 c #'
+  +'000000",'#10'".5 c #000000",'#10'".6 c #000000",'#10'".7 c #000000",'#10'".'
+  +'8 c #000000",'#10'"#` c #000000",'#10'"#. c #000000",'#10'"## c #000000",'
+  +#10'"#a c #000000",'#10'"#b c #000000",'#10'"#c c #000000",'#10'"#d c #00000'
+  +'0",'#10'"#e c #000000",'#10'"#f c #000000",'#10'"#g c #000000",'#10'"#h c #'
+  +'000000",'#10'"#i c #000000",'#10'"#j c #000000",'#10'"#k c #000000",'#10'"#'
+  +'l c #000000",'#10'"#m c #000000",'#10'"#n c #000000",'#10'"#o c #000000",'
+  +#10'"#p c #000000",'#10'"#q c #000000",'#10'"#r c #000000",'#10'"#s c #00000'
+  +'0",'#10'"#t c #000000",'#10'"#u c #000000",'#10'"#v c #000000",'#10'"#w c #'
+  +'000000",'#10'"#x c #000000",'#10'"#y c #000000",'#10'"#z c #000000",'#10'"#'
+  +'A c #000000",'#10'"#B c #000000",'#10'"#C c #000000",'#10'"#D c #000000",'
+  +#10'"#E c #000000",'#10'"#F c #000000",'#10'"#G c #000000",'#10'"#H c #00000'
+  +'0",'#10'"#I c #000000",'#10'"#J c #000000",'#10'"#K c #000000",'#10'"#L c #'
+  +'000000",'#10'"#M c #000000",'#10'"#N c #000000",'#10'"#O c #000000",'#10'"#'
+  +'P c #000000",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'
+  +#10'"#T c #000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #00000'
+  +'0",'#10'"#X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #'
+  +'000000",'#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#'
+  +'4 c #000000",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'
+  +#10'"#8 c #000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #00000'
+  +'0",'#10'"aa c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #'
+  +'000000",'#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"a'
+  +'h c #000000",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'
+  +#10'"al c #000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #00000'
+  +'0",'#10'"ap c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #'
+  +'000000",'#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"a'
+  +'w c #000000",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'
+  +#10'"aA c #000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #00000'
+  +'0",'#10'"aE c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #'
+  +'000000",'#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"a'
+  ,'L c #000000",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'
+  +#10'"aP c #000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #00000'
+  +'0",'#10'"aT c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #'
+  +'000000",'#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a'
+  +'0 c #000000",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'
+  +#10'"a4 c #000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #00000'
+  +'0",'#10'"a8 c #000000",'#10'/* pixels */'#10'"`````````````````````````````'
+  +'```````````````````",'#10'"```````````````````.`.``````````````````````````'
+  +'",'#10'"`````````````````.`#`#``````````````````````````",'#10'"```````````'
+  +'````.`#`a`#``````````````````````````",'#10'"`````````````.`.`b`c`#````````'
+  +'``````````````````",'#10'"```````````d`e`f`g`h`.`.`.`.`.``````````````````"'
+  +','#10'"`````````.`i`j`h`f`b`k`l`l`m`i`.`.``````````````",'#10'"```````.`n`o'
+  +'`j`j`p`p`b`q`r`s`t`u`n`.````````````",'#10'"`````.`v`w`o`o`j`h`f`f`k`x`r`s`'
+  +'y`z`A`.``````````",'#10'"`````.`B`v`o`o`C`h`p`f`b`k`q`D`E`y`F`G`.````````",'
+  +#10'"```````d`H`v`o`o`j`v`m`a`I`I`H`J`t`K`L`l`.``````",'#10'"`````````d`e`v`'
+  +'o`j`M`d`d`.`.`N`N`N`N`O`O`P``````",'#10'"```````````.`Q`v`C`l`d```N`N`R`S`T'
+  +'`U`N`N`V`.````",'#10'"`````````````.`Q`v`A`N`N`W`X`Y`Z`Z`0`1`2`N`.````",'#10
+  +'"`3`3`3`3`3`3`3`3`3`3`3`3`3`4`5`6`7`8.`...#`N````",'#10'"`3.a.a.a.a.a.a.a.a'
+  +'.a.a.a`3.b.c.d.e.f.g.h.i`N````",'#10'"`3.a.b.b.b.j.a.j.b.b.b.a`3.b.k.l.m.n.'
+  +'o.o.o.p`N``",'#10'"`3.a.b.a.j.b.a.b.j.a.a.a`3.b.q.r.s.t.u.o.o.v`N``",'#10'"'
+  +'`3.a.b.b.b.j.a.j.b.b.j.a`3.b.w.x.y.z.A.o.B.C.D`N",'#10'"`3.a.b.j.a.a.a.a.a.'
+  +'j.b.a`3.b.E.F.G.H.o.I.J.K.L`N",'#10'"`3.a.b.a.a.b.b.b.b.b.j.a`3.b.M.N.O.P.o'
+  +'.Q.R.S`N`N",'#10'"`3.a.a.a.a.a.a.a.a.a.a.a`3.b.T.U.V.W.X.Y`N`N````",'#10'"`'
+  +'3`3`3`3`3`3`3`3`3`3`3`3`3.b`N.Z.0.1`N`N````````",'#10'"``.b.b.b.b.b.b.b.b.b'
+  +'.b.b.b.b```V`N`N````````````"'#10'};'#10
+]);
+LazarusResources.Add('tpsscript','XPM',[
+  '/* XPM */'#10'static char *tpsscript[] = {'#10'/* width height num_colors ch'
+  +'ars_per_pixel */'#10'"    24    24      256            2",'#10'/* colors */'
+  +#10'"`` c None",'#10'"`. c #515151",'#10'"`# c #535353",'#10'"`a c #4b4b4b",'
+  +#10'"`b c #d8d8d8",'#10'"`c c #efefef",'#10'"`d c #f2f2f2",'#10'"`e c #f3f3f'
+  +'3",'#10'"`f c #f4f4f4",'#10'"`g c #f2f2f3",'#10'"`h c #f0f0f2",'#10'"`i c #'
+  +'ebebeb",'#10'"`j c #e6e6e6",'#10'"`k c #e0e0e1",'#10'"`l c #d9d9d9",'#10'"`'
+  +'m c #d3d3d3",'#10'"`n c #cfcfcf",'#10'"`o c #cacacb",'#10'"`p c #c7c7c7",'
+  +#10'"`q c #c5c5c5",'#10'"`r c #c2c2c2",'#10'"`s c #676768",'#10'"`t c #31313'
+  +'1",'#10'"`u c #e9e9e9",'#10'"`v c #eeeeee",'#10'"`w c #ededed",'#10'"`x c #'
+  +'eaeaea",'#10'"`y c #e3e3e3",'#10'"`z c #dadada",'#10'"`A c #cecece",'#10'"`'
+  +'B c #c1c1c1",'#10'"`C c #b1b1b1",'#10'"`D c #a4a4a5",'#10'"`E c #9c9c9c",'
+  +#10'"`F c #959595",'#10'"`G c #8c8c8c",'#10'"`H c #888889",'#10'"`I c #83838'
+  +'3",'#10'"`J c #efeff0",'#10'"`K c #e7e7e7",'#10'"`L c #e2e2e2",'#10'"`M c #'
+  +'d0d0d0",'#10'"`N c #c6c6c6",'#10'"`O c #b6b6b7",'#10'"`P c #aaaaaa",'#10'"`'
+  +'Q c #9d9d9d",'#10'"`R c #939395",'#10'"`S c #888888",'#10'"`T c #7f7f82",'
+  +#10'"`U c #67676b",'#10'"`V c #dadadc",'#10'"`W c #d5d5d5",'#10'"`X c #ccccc'
+  +'e",'#10'"`Y c #c6c6c7",'#10'"`Z c #bdbdbf",'#10'"`0 c #b6b6b6",'#10'"`1 c #'
+  +'ababab",'#10'"`2 c #9e9e9f",'#10'"`3 c #959596",'#10'"`4 c #8f8f8f",'#10'"`'
+  +'5 c #878787",'#10'"`6 c #828282",'#10'"`7 c #7f7f87",'#10'"`8 c #66676d",'
+  +#10'".` c #cfcfd0",'#10'".. c #cccccc",'#10'".# c #c4c4c5",'#10'".a c #bcbcb'
+  +'d",'#10'".b c #b5b5b5",'#10'".c c #acacad",'#10'".d c #a9a9aa",'#10'".e c #'
+  +'9f9f9f",'#10'".f c #979797",'#10'".g c #8e8e8e",'#10'".h c #868686",'#10'".'
+  +'i c #7f7f83",'#10'".j c #7f7f88",'#10'".k c #7e7f8e",'#10'".l c #676770",'
+  +#10'".m c #e0e0e0",'#10'".n c #bcbcbc",'#10'".o c #b2b2b4",'#10'".p c #a1a1a'
+  +'3",'#10'".q c #939393",'#10'".r c #818182",'#10'".s c #7e7e89",'#10'".t c #'
+  +'7e7f8f",'#10'".u c #7e7e92",'#10'".v c #666675",'#10'".w c #c4c4c4",'#10'".'
+  +'x c #e3e3e4",'#10'".y c #ffffff",'#10'".z c #b9b9bb",'#10'".A c #7e7f89",'
+  +#10'".B c #7f7f8f",'#10'".C c #7e7e98",'#10'".D c #656677",'#10'".E c #d3d3d'
+  +'4",'#10'".F c #e5e5e5",'#10'".G c #e4e4e4",'#10'".H c #7f7f84",'#10'".I c #'
+  +'7e7f8a",'#10'".J c #7e7e93",'#10'".K c #7d7e9e",'#10'".L c #65657a",'#10'".'
+  +'M c #f0f0f0",'#10'".N c #e1e1e1",'#10'".O c #bebebf",'#10'".P c #989899",'
+  +#10'".Q c #7b7da3",'#10'".R c #65657e",'#10'".S c #afafb0",'#10'".T c #aaaaa'
+  +'b",'#10'".U c #9e9e9e",'#10'".V c #a6a6a6",'#10'".W c #7e7f8b",'#10'".X c #'
+  +'7f7f90",'#10'".Y c #7e7e95",'#10'".Z c #7d7d99",'#10'".0 c #7d7e9f",'#10'".'
+  +'1 c #7a7ba9",'#10'".2 c #656580",'#10'".3 c #e9e9ea",'#10'".4 c #d0d0d1",'
+  +#10'".5 c #a7a7a7",'#10'".6 c #a3a3a3",'#10'".7 c #c1c1c2",'#10'".8 c #a3a3a'
+  +'6",'#10'"#` c #eeeff0",'#10'"#. c #7f7f91",'#10'"## c #7e7e97",'#10'"#a c #'
+  +'7d7d9a",'#10'"#b c #7d7ea0",'#10'"#c c #7b7da4",'#10'"#d c #7a7baa",'#10'"#'
+  +'e c #7b7baf",'#10'"#f c #646584",'#10'"#g c #999999",'#10'"#h c #909090",'
+  +#10'"#i c #d1d1d1",'#10'"#j c #a3a3a9",'#10'"#k c #efeff1",'#10'"#l c #7b7ba'
+  +'a",'#10'"#m c #7b7daf",'#10'"#n c #7a7bb4",'#10'"#o c #646587",'#10'"#p c #'
+  +'404040",'#10'"#q c #b8b8c9",'#10'"#r c #cbccda",'#10'"#s c #a0a2bf",'#10'"#'
+  +'t c #7b7bab",'#10'"#u c #7b7db0",'#10'"#v c #7a7bb5",'#10'"#w c #7a7bb8",'
+  +#10'"#x c #000000",'#10'"#y c #dddee8",'#10'"#z c #7b7bac",'#10'"#A c #7b7db'
+  +'1",'#10'"#B c #c0dcc0",'#10'"#C c #7b7da7",'#10'"#D c #7a7bb7",'#10'"#E c #'
+  +'7a7bb2",'#10'"#F c #626283",'#10'"#G c #000000",'#10'"#H c #000000",'#10'"#'
+  +'I c #000000",'#10'"#J c #000000",'#10'"#K c #000000",'#10'"#L c #000000",'
+  +#10'"#M c #000000",'#10'"#N c #000000",'#10'"#O c #000000",'#10'"#P c #00000'
+  +'0",'#10'"#Q c #000000",'#10'"#R c #000000",'#10'"#S c #000000",'#10'"#T c #'
+  +'000000",'#10'"#U c #000000",'#10'"#V c #000000",'#10'"#W c #000000",'#10'"#'
+  +'X c #000000",'#10'"#Y c #000000",'#10'"#Z c #000000",'#10'"#0 c #000000",'
+  +#10'"#1 c #000000",'#10'"#2 c #000000",'#10'"#3 c #000000",'#10'"#4 c #00000'
+  +'0",'#10'"#5 c #000000",'#10'"#6 c #000000",'#10'"#7 c #000000",'#10'"#8 c #'
+  +'000000",'#10'"a` c #000000",'#10'"a. c #000000",'#10'"a# c #000000",'#10'"a'
+  +'a c #000000",'#10'"ab c #000000",'#10'"ac c #000000",'#10'"ad c #000000",'
+  +#10'"ae c #000000",'#10'"af c #000000",'#10'"ag c #000000",'#10'"ah c #00000'
+  +'0",'#10'"ai c #000000",'#10'"aj c #000000",'#10'"ak c #000000",'#10'"al c #'
+  +'000000",'#10'"am c #000000",'#10'"an c #000000",'#10'"ao c #000000",'#10'"a'
+  +'p c #000000",'#10'"aq c #000000",'#10'"ar c #000000",'#10'"as c #000000",'
+  +#10'"at c #000000",'#10'"au c #000000",'#10'"av c #000000",'#10'"aw c #00000'
+  +'0",'#10'"ax c #000000",'#10'"ay c #000000",'#10'"az c #000000",'#10'"aA c #'
+  +'000000",'#10'"aB c #000000",'#10'"aC c #000000",'#10'"aD c #000000",'#10'"a'
+  +'E c #000000",'#10'"aF c #000000",'#10'"aG c #000000",'#10'"aH c #000000",'
+  +#10'"aI c #000000",'#10'"aJ c #000000",'#10'"aK c #000000",'#10'"aL c #00000'
+  ,'0",'#10'"aM c #000000",'#10'"aN c #000000",'#10'"aO c #000000",'#10'"aP c #'
+  +'000000",'#10'"aQ c #000000",'#10'"aR c #000000",'#10'"aS c #000000",'#10'"a'
+  +'T c #000000",'#10'"aU c #000000",'#10'"aV c #000000",'#10'"aW c #000000",'
+  +#10'"aX c #000000",'#10'"aY c #000000",'#10'"aZ c #000000",'#10'"a0 c #00000'
+  +'0",'#10'"a1 c #000000",'#10'"a2 c #000000",'#10'"a3 c #000000",'#10'"a4 c #'
+  +'000000",'#10'"a5 c #000000",'#10'"a6 c #000000",'#10'"a7 c #000000",'#10'"a'
+  +'8 c #000000",'#10'/* pixels */'#10'"```````````````````````````````````````'
+  +'`````````",'#10'"`````.`.`.`.`.`.`.`.`.`.`.`.`.`.`.`#`.`.`.`.````",'#10'"``'
+  +'`a`b`c`d`e`f`e`g`h`c`i`j`k`l`m`n`o`p`q`r`s`t``",'#10'"```a`c`u`v`h`h`c`w`x`'
+  +'y`z`A`B`C`D`E`F`G`H`I`s`t``",'#10'"```a`d`v`g`J`v`i`K`L`z`M`N`O`P`Q`R`G`S`I'
+  +'`T`U`t``",'#10'"```a`e`J`v`V`b`W`X`Y`Z`O`0`1`2`3`4`5`6`T`7`8`t``",'#10'"```'
+  +'a`e`v`j.``m...#.a.b.c.d.e.f.g.h`6.i.j.k.l`t``",'#10'"```a`e`i.m`X`n`p.n.o`1'
+  +'.p`E.q`G.h.r.i.s.t.u.v`t``",'#10'"```a`g`u`z.w.#.x.y.y.y.y.y.y.y.y.z.A.B.u.'
+  +'C.D`t``",'#10'"```a`d`j.E`Z..`x`z.F.G.g.y.y.r.H.I.B.J.C.K.L`t``",'#10'"```a'
+  +'.M.N`X`0`p.O.P`y`L`S.y.y.H.I.B.J.C.K.Q.R`t``",'#10'"```a`v`z`N.S.T.U`C`L`M.'
+  +'V.y`J.W.X.Y.Z.0.Q.1.2`t``",'#10'"```a.3.4.a.5.6.f.7.M`A.8.y#`#.###a#b#c#d#e'
+  +'#f`t``",'#10'"```a`L`B`C.e#g#h#i.y.z#j.y#k###a#b#c#l#m#n#o`t``",'#10'"#p#p#'
+  +'p#p#p#p#p#p#p#p#p#p#p.y#q#r#s#t#u#v#w#o`t``",'#10'"#p.y.y.y.y.y.y.y.y.y.y.y'
+  +'#p#x.y#y#z#A#v#w#w#o`t``",'#10'"#p.y#x#x#x#B.y#B#x#x#x.y#p#x#C#z#A#D#w#w#w#'
+  +'o`t``",'#10'"#p.y#x.y#B#x.y#x#B.y.y.y#p#x#z#E#w#w#w#w#w#o`t``",'#10'"#p.y#x'
+  +'#x#x#B.y#B#x#x#B.y#p#x#E#w#w#w#w#w#w#o`t``",'#10'"#p.y#x#B.y.y.y.y.y#B#x.y#'
+  +'p#x#w#w#w#w#w#w#w#o`t``",'#10'"#p.y#x.y.y#x#x#x#x#x#B.y#p#x#w#w#w#w#w#w#w#o'
+  +'`t``",'#10'"#p.y.y.y.y.y.y.y.y.y.y.y#p#x#o#o#o#o#o#o#o#F`t``",'#10'"#p#p#p#'
+  +'p#p#p#p#p#p#p#p#p#p#x`t`t`t`t`t`t`t`t````",'#10'"``#x#x#x#x#x#x#x#x#x#x#x#x'
+  +'#x````````````````````"'#10'};'#10
+]);
+LazarusResources.Add('tpsscriptdebugger','XPM',[
+  '/* XPM */'#10'static char *tpsscriptdebugger[] = {'#10'/* width height num_c'
+  +'olors chars_per_pixel */'#10'"    24    24      256            2",'#10'/* c'
+  +'olors */'#10'"`` c #000000",'#10'"`. c #000055",'#10'"`# c #0000aa",'#10'"`'
+  +'a c #0000ff",'#10'"`b c #002400",'#10'"`c c #002455",'#10'"`d c #0024aa",'
+  +#10'"`e c #0024ff",'#10'"`f c #004800",'#10'"`g c #004855",'#10'"`h c #0048a'
+  +'a",'#10'"`i c #0048ff",'#10'"`j c #006d00",'#10'"`k c #006d55",'#10'"`l c #'
+  +'006daa",'#10'"`m c #006dff",'#10'"`n c #009100",'#10'"`o c #009155",'#10'"`'
+  +'p c #0091aa",'#10'"`q c #0091ff",'#10'"`r c #00b600",'#10'"`s c #00b655",'
+  +#10'"`t c #00b6aa",'#10'"`u c #00b6ff",'#10'"`v c #00da00",'#10'"`w c #00da5'
+  +'5",'#10'"`x c #00daaa",'#10'"`y c #00daff",'#10'"`z c #00ff00",'#10'"`A c #'
+  +'00ff55",'#10'"`B c #00ffaa",'#10'"`C c #00ffff",'#10'"`D c #240000",'#10'"`'
+  +'E c #240055",'#10'"`F c #2400aa",'#10'"`G c #2400ff",'#10'"`H c #242400",'
+  +#10'"`I c #242455",'#10'"`J c #2424aa",'#10'"`K c #2424ff",'#10'"`L c #24480'
+  +'0",'#10'"`M c #244855",'#10'"`N c #2448aa",'#10'"`O c #2448ff",'#10'"`P c #'
+  +'246d00",'#10'"`Q c #246d55",'#10'"`R c #246daa",'#10'"`S c #246dff",'#10'"`'
+  +'T c #249100",'#10'"`U c #249155",'#10'"`V c #2491aa",'#10'"`W c #2491ff",'
+  +#10'"`X c #24b600",'#10'"`Y c #24b655",'#10'"`Z c #24b6aa",'#10'"`0 c #24b6f'
+  +'f",'#10'"`1 c #24da00",'#10'"`2 c #24da55",'#10'"`3 c #24daaa",'#10'"`4 c #'
+  +'24daff",'#10'"`5 c #24ff00",'#10'"`6 c #24ff55",'#10'"`7 c #24ffaa",'#10'"`'
+  +'8 c #24ffff",'#10'".` c #480000",'#10'".. c #480055",'#10'".# c #4800aa",'
+  +#10'".a c #4800ff",'#10'".b c #482400",'#10'".c c #482455",'#10'".d c #4824a'
+  +'a",'#10'".e c #4824ff",'#10'".f c #484800",'#10'".g c #484855",'#10'".h c #'
+  +'4848aa",'#10'".i c #4848ff",'#10'".j c #486d00",'#10'".k c #486d55",'#10'".'
+  +'l c #486daa",'#10'".m c #486dff",'#10'".n c #489100",'#10'".o c #489155",'
+  +#10'".p c #4891aa",'#10'".q c #4891ff",'#10'".r c #48b600",'#10'".s c #48b65'
+  +'5",'#10'".t c #48b6aa",'#10'".u c #48b6ff",'#10'".v c #48da00",'#10'".w c #'
+  +'48da55",'#10'".x c #48daaa",'#10'".y c #48daff",'#10'".z c #48ff00",'#10'".'
+  +'A c #48ff55",'#10'".B c #48ffaa",'#10'".C c #48ffff",'#10'".D c #6d0000",'
+  +#10'".E c #6d0055",'#10'".F c #6d00aa",'#10'".G c #6d00ff",'#10'".H c #6d240'
+  +'0",'#10'".I c #6d2455",'#10'".J c #6d24aa",'#10'".K c #6d24ff",'#10'".L c #'
+  +'6d4800",'#10'".M c #6d4855",'#10'".N c #6d48aa",'#10'".O c #6d48ff",'#10'".'
+  +'P c #6d6d00",'#10'".Q c #6d6d55",'#10'".R c #6d6daa",'#10'".S c #6d6dff",'
+  +#10'".T c #6d9100",'#10'".U c #6d9155",'#10'".V c #6d91aa",'#10'".W c #6d91f'
+  +'f",'#10'".X c #6db600",'#10'".Y c #6db655",'#10'".Z c #6db6aa",'#10'".0 c #'
+  +'6db6ff",'#10'".1 c #6dda00",'#10'".2 c #6dda55",'#10'".3 c #6ddaaa",'#10'".'
+  +'4 c #6ddaff",'#10'".5 c #6dff00",'#10'".6 c #6dff55",'#10'".7 c #6dffaa",'
+  +#10'".8 c #6dffff",'#10'"#` c #910000",'#10'"#. c #910055",'#10'"## c #9100a'
+  +'a",'#10'"#a c #9100ff",'#10'"#b c #912400",'#10'"#c c #912455",'#10'"#d c #'
+  +'9124aa",'#10'"#e c #9124ff",'#10'"#f c #914800",'#10'"#g c #914855",'#10'"#'
+  +'h c #9148aa",'#10'"#i c #9148ff",'#10'"#j c #916d00",'#10'"#k c #916d55",'
+  +#10'"#l c #916daa",'#10'"#m c #916dff",'#10'"#n c #919100",'#10'"#o c #91915'
+  +'5",'#10'"#p c #9191aa",'#10'"#q c #9191ff",'#10'"#r c #91b600",'#10'"#s c #'
+  +'91b655",'#10'"#t c #91b6aa",'#10'"#u c #91b6ff",'#10'"#v c #91da00",'#10'"#'
+  +'w c #91da55",'#10'"#x c #91daaa",'#10'"#y c #91daff",'#10'"#z c #91ff00",'
+  +#10'"#A c #91ff55",'#10'"#B c #91ffaa",'#10'"#C c #91ffff",'#10'"#D c #b6000'
+  +'0",'#10'"#E c #b60055",'#10'"#F c #b600aa",'#10'"#G c #b600ff",'#10'"#H c #'
+  +'b62400",'#10'"#I c #b62455",'#10'"#J c #b624aa",'#10'"#K c #b624ff",'#10'"#'
+  +'L c #b64800",'#10'"#M c #b64855",'#10'"#N c #b648aa",'#10'"#O c #b648ff",'
+  +#10'"#P c #b66d00",'#10'"#Q c #b66d55",'#10'"#R c #b66daa",'#10'"#S c #b66df'
+  +'f",'#10'"#T c #b69100",'#10'"#U c #b69155",'#10'"#V c #b691aa",'#10'"#W c #'
+  +'b691ff",'#10'"#X c #b6b600",'#10'"#Y c #b6b655",'#10'"#Z c #b6b6aa",'#10'"#'
+  +'0 c #b6b6ff",'#10'"#1 c #b6da00",'#10'"#2 c #b6da55",'#10'"#3 c #b6daaa",'
+  +#10'"#4 c #b6daff",'#10'"#5 c #b6ff00",'#10'"#6 c #b6ff55",'#10'"#7 c #b6ffa'
+  +'a",'#10'"#8 c #b6ffff",'#10'"a` c #da0000",'#10'"a. c #da0055",'#10'"a# c #'
+  +'da00aa",'#10'"aa c #da00ff",'#10'"ab c #da2400",'#10'"ac c #da2455",'#10'"a'
+  +'d c #da24aa",'#10'"ae c #da24ff",'#10'"af c #da4800",'#10'"ag c #da4855",'
+  +#10'"ah c #da48aa",'#10'"ai c #da48ff",'#10'"aj c #da6d00",'#10'"ak c #da6d5'
+  +'5",'#10'"al c #da6daa",'#10'"am c #da6dff",'#10'"an c #da9100",'#10'"ao c #'
+  +'da9155",'#10'"ap c #da91aa",'#10'"aq c #da91ff",'#10'"ar c #dab600",'#10'"a'
+  +'s c #dab655",'#10'"at c #dab6aa",'#10'"au c #dab6ff",'#10'"av c #dada00",'
+  +#10'"aw c #dada55",'#10'"ax c #dadaaa",'#10'"ay c #dadaff",'#10'"az c #daff0'
+  +'0",'#10'"aA c #daff55",'#10'"aB c #daffaa",'#10'"aC c #daffff",'#10'"aD c #'
+  +'ff0000",'#10'"aE c #ff0055",'#10'"aF c #ff00aa",'#10'"aG c None",'#10'"aH c'
+  +' #ff2400",'#10'"aI c #ff2455",'#10'"aJ c #ff24aa",'#10'"aK c #ff24ff",'#10
+  ,'"aL c #ff4800",'#10'"aM c #ff4855",'#10'"aN c #ff48aa",'#10'"aO c #ff48ff",'
+  +#10'"aP c #ff6d00",'#10'"aQ c #ff6d55",'#10'"aR c #ff6daa",'#10'"aS c #ff6df'
+  +'f",'#10'"aT c #ff9100",'#10'"aU c #ff9155",'#10'"aV c #ff91aa",'#10'"aW c #'
+  +'ff91ff",'#10'"aX c #ffb600",'#10'"aY c #ffb655",'#10'"aZ c #ffb6aa",'#10'"a'
+  +'0 c #ffb6ff",'#10'"a1 c #ffda00",'#10'"a2 c #ffda55",'#10'"a3 c #ffdaaa",'
+  +#10'"a4 c #ffdaff",'#10'"a5 c #ffff00",'#10'"a6 c #ffff55",'#10'"a7 c #ffffa'
+  +'a",'#10'"a8 c #ffffff",'#10'/* pixels */'#10'"aGaGaGaGaGaGaGaGaGaGaGaGaGaGa'
+  +'GaGaGaGaGaGaGaGaGaG",'#10'"aGaG.g.g.g.g.g.g.g.Q.g.g.g.g.g.g.g.Q.g.g.g.gaGaG'
+  +'",'#10'"aG.gayaya8aya8aya8aya8aya8axayaxay#Zay#Zay.Q.gaG",'#10'"aG.ga8a8aya'
+  +'8a8a8aya8ayayax#Z#Z#Z#p#p#p#p#o.Q`IaG",'#10'"aG.ga8aya8aya8axa8ayay#Zay#Z#Z'
+  +'#p#Z#p#p.Q#p.Q.gaG",'#10'"aG.ga8a8a8ayaxayaxay#Z#Z#Z#Z#p#p#p#p.Q#p#p.R`IaG"'
+  +','#10'"aG.ga8aya8#Zay#Zay#Z#0#Z#Z#p#Z#o#p.Q#p.Q#p.Q.gaG",'#10'"aG.ga8a8ayay'
+  +'axay#Z#Z#Z#Z#p#p#p#p#o#p.R#p.R.R`IaG",'#10'"aG.ga8axay#Zayaxa8a8a8a8a8a8a8a'
+  +'8ay.Q#p.Q#p.Q.gaG",'#10'"aG.ga8ayay#Z#Za8aya8ay#pa8a8.Q#p#p#p.R#p.V.R`HaG",'
+  +#10'"aG.ga8axay#Zay#Z#Zaxa8#oa8atao#Laj#Laj#P#p.Q.gaG",'#10'"aG.ga8ay#Z#Z#Z#'
+  +'Z#Zayax#ZaoafaYaZaZaYaUaUaf#k`IaG",'#10'"aG.ga8#Zay#p#Z#oayayayakajaZa3aUaU'
+  +'aPaUaPaQ#L.gaG",'#10'"aG.gay#Z#Z#Z#p#paya8atafaZaZaPaPaPaPaPaPaPaP#LaG",'#10
+  +'".g.g.g.g.g.g.g.g.g.g.g.g.gaPaPa8aYaUa8afaPafaj.H",'#10'".ga8a8a8a8a8a8a8a8'
+  +'a8a8a8.g``aPa8aUaUa8aPafafaf#f",'#10'".ga8``````#3a8#3``````a8.g``aPa8aYaUa'
+  +'8afajafaj#b",'#10'".ga8``a8#3``a8``#3a8a8a8.g``aPa8aUaUa8afafaf#L#f",'#10'"'
+  +'.ga8``````#3a8#3````aya8.g``aPa8aUaoa8afaj#Laf.H",'#10'".ga8``aya8a8a8a8a8#'
+  +'3``a8.g``aja8aoaoa8afafaf.baG",'#10'".ga8``a8a8``````````aya8.g``ajafajafaj'
+  +'#Laj#f.HaG",'#10'".ga8a8a8a8a8a8a8a8a8a8a8.g``afaf#Laf#L#L#f.baGaG",'#10'".'
+  +'g.g.g.g.g.g.g.g.g.g.g.g.g``.L#L#L#f#L.b.HaGaGaG",'#10'"aG``````````````````'
+  +'````````aG.H.H.H.HaGaGaGaGaG"'#10'};'#10
+]);
+LazarusResources.Add('tpsscriptextension','XPM',[
+  '/* XPM */'#10'static char *tpsscriptdebugger[] = {'#10'/* width height num_c'
+  +'olors chars_per_pixel */'#10'"    24    24      256            2",'#10'/* c'
+  +'olors */'#10'"`` c #000000",'#10'"`. c #000055",'#10'"`# c #0000aa",'#10'"`'
+  +'a c #0000ff",'#10'"`b c #002400",'#10'"`c c #002455",'#10'"`d c #0024aa",'
+  +#10'"`e c #0024ff",'#10'"`f c #004800",'#10'"`g c #004855",'#10'"`h c #0048a'
+  +'a",'#10'"`i c #0048ff",'#10'"`j c #006d00",'#10'"`k c #006d55",'#10'"`l c #'
+  +'006daa",'#10'"`m c #006dff",'#10'"`n c #009100",'#10'"`o c #009155",'#10'"`'
+  +'p c #0091aa",'#10'"`q c #0091ff",'#10'"`r c #00b600",'#10'"`s c #00b655",'
+  +#10'"`t c #00b6aa",'#10'"`u c #00b6ff",'#10'"`v c #00da00",'#10'"`w c #00da5'
+  +'5",'#10'"`x c #00daaa",'#10'"`y c #00daff",'#10'"`z c #00ff00",'#10'"`A c #'
+  +'00ff55",'#10'"`B c #00ffaa",'#10'"`C c #00ffff",'#10'"`D c #240000",'#10'"`'
+  +'E c #240055",'#10'"`F c #2400aa",'#10'"`G c #2400ff",'#10'"`H c #242400",'
+  +#10'"`I c #242455",'#10'"`J c #2424aa",'#10'"`K c #2424ff",'#10'"`L c #24480'
+  +'0",'#10'"`M c #244855",'#10'"`N c #2448aa",'#10'"`O c #2448ff",'#10'"`P c #'
+  +'246d00",'#10'"`Q c #246d55",'#10'"`R c #246daa",'#10'"`S c #246dff",'#10'"`'
+  +'T c #249100",'#10'"`U c #249155",'#10'"`V c #2491aa",'#10'"`W c #2491ff",'
+  +#10'"`X c #24b600",'#10'"`Y c #24b655",'#10'"`Z c #24b6aa",'#10'"`0 c #24b6f'
+  +'f",'#10'"`1 c #24da00",'#10'"`2 c #24da55",'#10'"`3 c #24daaa",'#10'"`4 c #'
+  +'24daff",'#10'"`5 c #24ff00",'#10'"`6 c #24ff55",'#10'"`7 c #24ffaa",'#10'"`'
+  +'8 c #24ffff",'#10'".` c #480000",'#10'".. c #480055",'#10'".# c #4800aa",'
+  +#10'".a c #4800ff",'#10'".b c #482400",'#10'".c c #482455",'#10'".d c #4824a'
+  +'a",'#10'".e c #4824ff",'#10'".f c #484800",'#10'".g c #484855",'#10'".h c #'
+  +'4848aa",'#10'".i c #4848ff",'#10'".j c #486d00",'#10'".k c #486d55",'#10'".'
+  +'l c #486daa",'#10'".m c #486dff",'#10'".n c #489100",'#10'".o c #489155",'
+  +#10'".p c #4891aa",'#10'".q c #4891ff",'#10'".r c #48b600",'#10'".s c #48b65'
+  +'5",'#10'".t c #48b6aa",'#10'".u c #48b6ff",'#10'".v c #48da00",'#10'".w c #'
+  +'48da55",'#10'".x c #48daaa",'#10'".y c #48daff",'#10'".z c #48ff00",'#10'".'
+  +'A c #48ff55",'#10'".B c #48ffaa",'#10'".C c #48ffff",'#10'".D c #6d0000",'
+  +#10'".E c #6d0055",'#10'".F c #6d00aa",'#10'".G c #6d00ff",'#10'".H c #6d240'
+  +'0",'#10'".I c #6d2455",'#10'".J c #6d24aa",'#10'".K c #6d24ff",'#10'".L c #'
+  +'6d4800",'#10'".M c #6d4855",'#10'".N c #6d48aa",'#10'".O c #6d48ff",'#10'".'
+  +'P c #6d6d00",'#10'".Q c #6d6d55",'#10'".R c #6d6daa",'#10'".S c #6d6dff",'
+  +#10'".T c #6d9100",'#10'".U c #6d9155",'#10'".V c #6d91aa",'#10'".W c #6d91f'
+  +'f",'#10'".X c #6db600",'#10'".Y c #6db655",'#10'".Z c #6db6aa",'#10'".0 c #'
+  +'6db6ff",'#10'".1 c #6dda00",'#10'".2 c #6dda55",'#10'".3 c #6ddaaa",'#10'".'
+  +'4 c #6ddaff",'#10'".5 c #6dff00",'#10'".6 c #6dff55",'#10'".7 c #6dffaa",'
+  +#10'".8 c #6dffff",'#10'"#` c #910000",'#10'"#. c #910055",'#10'"## c #9100a'
+  +'a",'#10'"#a c #9100ff",'#10'"#b c #912400",'#10'"#c c #912455",'#10'"#d c #'
+  +'9124aa",'#10'"#e c #9124ff",'#10'"#f c #914800",'#10'"#g c #914855",'#10'"#'
+  +'h c #9148aa",'#10'"#i c #9148ff",'#10'"#j c #916d00",'#10'"#k c #916d55",'
+  +#10'"#l c #916daa",'#10'"#m c #916dff",'#10'"#n c #919100",'#10'"#o c #91915'
+  +'5",'#10'"#p c #9191aa",'#10'"#q c #9191ff",'#10'"#r c #91b600",'#10'"#s c #'
+  +'91b655",'#10'"#t c #91b6aa",'#10'"#u c #91b6ff",'#10'"#v c #91da00",'#10'"#'
+  +'w c #91da55",'#10'"#x c #91daaa",'#10'"#y c #91daff",'#10'"#z c #91ff00",'
+  +#10'"#A c #91ff55",'#10'"#B c #91ffaa",'#10'"#C c #91ffff",'#10'"#D c #b6000'
+  +'0",'#10'"#E c #b60055",'#10'"#F c #b600aa",'#10'"#G c #b600ff",'#10'"#H c #'
+  +'b62400",'#10'"#I c #b62455",'#10'"#J c #b624aa",'#10'"#K c #b624ff",'#10'"#'
+  +'L c #b64800",'#10'"#M c #b64855",'#10'"#N c #b648aa",'#10'"#O c #b648ff",'
+  +#10'"#P c #b66d00",'#10'"#Q c #b66d55",'#10'"#R c #b66daa",'#10'"#S c #b66df'
+  +'f",'#10'"#T c #b69100",'#10'"#U c #b69155",'#10'"#V c #b691aa",'#10'"#W c #'
+  +'b691ff",'#10'"#X c #b6b600",'#10'"#Y c #b6b655",'#10'"#Z c #b6b6aa",'#10'"#'
+  +'0 c #b6b6ff",'#10'"#1 c #b6da00",'#10'"#2 c #b6da55",'#10'"#3 c #b6daaa",'
+  +#10'"#4 c #b6daff",'#10'"#5 c #b6ff00",'#10'"#6 c #b6ff55",'#10'"#7 c #b6ffa'
+  +'a",'#10'"#8 c #b6ffff",'#10'"a` c #da0000",'#10'"a. c #da0055",'#10'"a# c #'
+  +'da00aa",'#10'"aa c #da00ff",'#10'"ab c #da2400",'#10'"ac c #da2455",'#10'"a'
+  +'d c #da24aa",'#10'"ae c #da24ff",'#10'"af c #da4800",'#10'"ag c #da4855",'
+  +#10'"ah c #da48aa",'#10'"ai c #da48ff",'#10'"aj c #da6d00",'#10'"ak c #da6d5'
+  +'5",'#10'"al c #da6daa",'#10'"am c #da6dff",'#10'"an c #da9100",'#10'"ao c #'
+  +'da9155",'#10'"ap c #da91aa",'#10'"aq c #da91ff",'#10'"ar c #dab600",'#10'"a'
+  +'s c #dab655",'#10'"at c #dab6aa",'#10'"au c #dab6ff",'#10'"av c #dada00",'
+  +#10'"aw c #dada55",'#10'"ax c #dadaaa",'#10'"ay c #dadaff",'#10'"az c #daff0'
+  +'0",'#10'"aA c #daff55",'#10'"aB c #daffaa",'#10'"aC c #daffff",'#10'"aD c #'
+  +'ff0000",'#10'"aE c #ff0055",'#10'"aF c #ff00aa",'#10'"aG c None",'#10'"aH c'
+  +' #ff2400",'#10'"aI c #ff2455",'#10'"aJ c #ff24aa",'#10'"aK c #ff24ff",'#10
+  ,'"aL c #ff4800",'#10'"aM c #ff4855",'#10'"aN c #ff48aa",'#10'"aO c #ff48ff",'
+  +#10'"aP c #ff6d00",'#10'"aQ c #ff6d55",'#10'"aR c #ff6daa",'#10'"aS c #ff6df'
+  +'f",'#10'"aT c #ff9100",'#10'"aU c #ff9155",'#10'"aV c #ff91aa",'#10'"aW c #'
+  +'ff91ff",'#10'"aX c #ffb600",'#10'"aY c #ffb655",'#10'"aZ c #ffb6aa",'#10'"a'
+  +'0 c #ffb6ff",'#10'"a1 c #ffda00",'#10'"a2 c #ffda55",'#10'"a3 c #ffdaaa",'
+  +#10'"a4 c #ffdaff",'#10'"a5 c #ffff00",'#10'"a6 c #ffff55",'#10'"a7 c #ffffa'
+  +'a",'#10'"a8 c #ffffff",'#10'/* pixels */'#10'"aGaGaGaGaGaGaGaGaGaGaGaGaGaGa'
+  +'GaGaGaGaGaGaGaGaGaG",'#10'"aGaG.g.g.g.g.g.g.g.Q.g.g.g.g.g.g.g.Q.g.g.g.gaGaG'
+  +'",'#10'"aG.gayaya8aya8aya8aya8aya8axayaxay#Zay#Zay.Q.gaG",'#10'"aG.ga8a8aya'
+  +'8a8a8aya8ayayax#Z#Z#Z#p#p#p#p#o.Q`IaG",'#10'"aG.ga8aya8aya8axa8ayay#Zay#Z#Z'
+  +'#p#Z#p#p.Q#p.Q.gaG",'#10'"aG.ga8a8a8ayaxayaxay#Z#Z#Z#Z#p#p#p#p.Q#p#p.R`IaG"'
+  +','#10'"aG.ga8aya8#Zay#Zay#Z#0#Z#Z#p#Z#o#p.Q#p.Q#p.Q.gaG",'#10'"aG.ga8a8ayay'
+  +'axay#Z#Z#Z#Z#p#p#p#p#o#p.R#p.R.R`IaG",'#10'"aG.ga8axay#Zayaxa8a8a8a8a8a8a8a'
+  +'8ay.Q#p.Q#p.Q.gaG",'#10'"aG.ga8ayay#Z#Za8aya8ay#pa8a8.Q#p#p#p.R#p.V.R`HaG",'
+  +#10'"aG.ga8axay#Zay#Z#Zaxa8#oa8atao#Laj#Laj#P#p.Q.gaG",'#10'"aG.ga8ay#Z#Z#Z#'
+  +'Z#Zayax#ZaoafaYaZaZaYaUaUaf#k`IaG",'#10'"aG.ga8#Zay#p#Z#oayayayakajaZa3aUaU'
+  +'aPaUaPaQ#L.gaG",'#10'"aG.gay#Z#Z#Z#p#paya8atafaZaZaPaPaPaPaPaPaPaP#LaG",'#10
+  +'".g.g.g.g.g.g.g.g.g.g.g.g.gaPaPa8aYaUa8afaPafaj.H",'#10'".ga8a8a8a8a8a8a8a8'
+  +'a8a8a8.g``aPa8aUaUa8aPafafaf#f",'#10'".ga8``````#3a8#3``````a8.g``aPa8aYaUa'
+  +'8afajafaj#b",'#10'".ga8``a8#3``a8``#3a8a8a8.g``aPa8aUaUa8afafaf#L#f",'#10'"'
+  +'.ga8``````#3a8#3````aya8.g``aPa8aUaoa8afaj#Laf.H",'#10'".ga8``aya8a8a8a8a8#'
+  +'3``a8.g``aja8aoaoa8afafaf.baG",'#10'".ga8``a8a8``````````aya8.g``ajafajafaj'
+  +'#Laj#f.HaG",'#10'".ga8a8a8a8a8a8a8a8a8a8a8.g``afaf#Laf#L#L#f.baGaG",'#10'".'
+  +'g.g.g.g.g.g.g.g.g.g.g.g.g``.L#L#L#f#L.b.HaGaGaG",'#10'"aG``````````````````'
+  +'````````aG.H.H.H.HaGaGaGaGaG"'#10'};'#10
+]);
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.pas
new file mode 100644
index 0000000..d5bf447
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/pascalscript.pas	
@@ -0,0 +1,29 @@
+{ This file was automatically created by Lazarus. Do not edit!
+This source is only used to compile and install the package.
+ }
+
+unit PascalScript; 
+
+interface
+
+uses
+  uPSRuntime, PascalScript_Core_Reg, uPSC_buttons, uPSC_classes, uPSC_controls, 
+    uPSC_dateutils, uPSC_DB, uPSC_dll, uPSC_extctrls, uPSC_forms, 
+    uPSC_graphics, uPSC_menus, uPSC_std, uPSC_stdctrls, uPSCompiler, 
+    uPSComponent, uPSComponent_Controls, uPSComponent_DB, uPSComponent_Default, 
+    uPSComponent_Forms, uPSComponent_StdCtrls, uPSComponentExt, uPSDebugger, 
+    uPSDisassembly, uPSPreProcessor, uPSR_buttons, uPSR_classes, uPSR_controls, 
+    uPSR_dateutils, uPSR_DB, uPSR_dll, uPSR_extctrls, uPSR_forms, 
+    uPSR_graphics, uPSR_menus, uPSR_std, uPSR_stdctrls, uPSUtils, 
+    LazarusPackageIntf; 
+
+implementation
+
+procedure Register; 
+begin
+  RegisterUnit('PascalScript_Core_Reg', @PascalScript_Core_Reg.Register); 
+end; 
+
+initialization
+  RegisterPackage('PascalScript', @Register); 
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/powerpc.inc b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/powerpc.inc
new file mode 100644
index 0000000..ec0c779
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/powerpc.inc	
@@ -0,0 +1,343 @@
+{ implementation of the powerpc osx abi for function calls in pascal script
+  Copyright (c) 2007 by Henry Vermaak (henry.vermaak@gmail.com) }
+
+{$ifndef darwin}
+  {$fatal This code is Darwin specific at the moment!}
+{$endif}
+
+{$ifndef cpu32}
+  {$fatal This code is 32bit specific at the moment!}
+{$endif}
+
+const
+  rtINT = 0;
+  rtINT64 = 1;
+  rtFLOAT = 2;
+
+type
+  Trint = array[1..8] of dword;
+  Trfloat = array[1..13] of double;
+
+{$goto on}
+{ define labels }
+label
+  rfloat_loop,
+  stack_loop,
+  load_regs,
+  int_result,
+  int64_result,
+  float_result,
+  asmcall_end;
+
+{ call a function from a pointer }
+{ resulttype: 0 = int, 1 = int64, 2 = float }
+function ppcasmcall(rint: Trint; rfloat: Trfloat; proc, stack: pointer; stacksize, resulttype: integer): pointer; assembler; nostackframe;
+asm
+	mflr	r0
+	stw	r0, 8(r1)
+
+	{ save non-volatile register/s - make sure the stack size is sufficient! }
+	stw	r31, -4(r1)	{ stacksize }
+
+	stwu	r1, -240(r1)	{ create stack }
+
+	{ get all the params into the stack }
+	stw	r3, 48(r1)	{ rint }
+	stw	r4, 52(r1)	{ rfloat }
+	stw	r5, 56(r1)	{ proc }
+	stw	r6, 60(r1)	{ stack }
+	stw	r7, 64(r1)	{ stacksize }
+	stw	r8, 68(r1)	{ resulttype }
+	{ result is stored in 72(r1) and 76(r1) (if returning int64) }
+
+	{ write rint array into stack }
+	lwz	r2, 48(r1)	{ rint }
+	lfd	f0, 0(r2)
+	stfd	f0, 80(r1)	{ rint[1], rint[2] }
+	lfd	f0, 8(r2)
+	stfd	f0, 88(r1)	{ rint[3], rint[4] }
+	lfd	f0, 16(r2)
+	stfd	f0, 96(r1)	{ rint[5], rint[6] }
+	lfd	f0, 24(r2)
+	stfd	f0, 104(r1)	{ rint[7], rint[8] }
+
+	{ write rfloat array into stack }
+	lwz	r2, 52(r1)	{ rfloat }
+	addi	r4, r1, 112	{ rfloat[1] from here upwards (8 bytes apart) }
+	subi	r2, r2, 8	{ src }
+	subi	r4, r4, 8	{ dest }
+	li	r3, 13		{ counter }
+
+rfloat_loop:
+	subic.	r3, r3, 1	{ dec counter }
+	lfdu	f0, 8(r2)	{ load rfloat[x] + update }
+	stfdu	f0, 8(r4)	{ store rfloat[x] + update }
+	bne	cr0, rfloat_loop
+
+	{ create new stack }
+	mflr	r0
+	stw	r0, 8(r1)
+	mr	r12, r1		{ remember previous stack to fill in regs later }
+
+	lwz	r31, 64(r12)	{ load stacksize into r31 }
+	neg	r3, r31		{ negate }
+	stwux	r1, r1, r3	{ create new stack }
+
+	{ build up the stack here }
+	mr	r3, r31		{ counter }
+	subic.	r3, r3, 24	{ don't write first 24 }
+	blt	cr0, load_regs	{ don't fill in stack if there is none }
+
+	lwz	r2, 60(r12)	{ pointer to stack }
+	addi	r2, r2, 24	{ start of params }
+	subi	r2, r2, 1	{ src }
+
+	addi	r4, r1, 24	{ start of params }
+	subi	r4, r4, 1	{ dest }
+
+stack_loop:
+	subic.	r3, r3, 1	{ dec counter }
+	lbzu	r5, 1(r2)	{ load stack + update }
+	stbu	r5, 1(r4)	{ store stack + update }
+	bne	cr0, stack_loop
+
+load_regs:			{ now load the registers from the previous stack in r12 }
+	lwz	r3, 80(r12)
+	lwz	r4, 84(r12)
+	lwz	r5, 88(r12)
+	lwz	r6, 92(r12)
+	lwz	r7, 96(r12)
+	lwz	r8, 100(r12)
+	lwz	r9, 104(r12)
+	lwz	r10, 108(r12)
+
+	lfd	f1, 112(r12)
+	lfd	f2, 120(r12)
+	lfd	f3, 128(r12)
+	lfd	f4, 136(r12)
+	lfd	f5, 144(r12)
+	lfd	f6, 152(r12)
+	lfd	f7, 160(r12)
+	lfd	f8, 168(r12)
+	lfd	f9, 176(r12)
+	lfd	f10, 184(r12)
+	lfd	f11, 192(r12)
+	lfd	f12, 200(r12)
+	lfd	f13, 208(r12)
+
+	{ now call this function }
+	lwz	r2, 56(r12)	{ proc }
+	mtctr	r2		{ move to ctr }
+	bctrl			{ branch and link to ctr }
+
+	{ restore stack - use stacksize in r31 }
+	add	r1, r1, r31
+	lwz	r0, 8(r1)
+	mtlr	r0
+
+	{ check resulttype and put appropriate pointer into r3 }
+	lwz	r2, 68(r1)		{ resulttype }
+	cmpwi	cr0, r2, 0		{ int result? }
+	beq	cr0, int_result		{ branch if equal }
+
+	cmpwi	cr0, r2, 1		{ single result? }
+	beq	cr0, int64_result	{ branch if equal }
+
+
+float_result:			{ the result is a double}
+	stfd	f1, 72(r1)	{ write f1 to result on stack }
+	b	asmcall_end
+
+
+int64_result:			{ the result is a single }
+	stw	r3, 72(r1)	{ write high dword to result on stack }
+	stw	r4, 76(r1)	{ write low dword to result on stack }
+	b	asmcall_end
+
+
+int_result:			{ the result is dword }
+	stw	r3, 72(r1)	{ write r3 to result on stack }
+
+
+asmcall_end:			{ epilogue }
+	addi	r3, r1, 72	{ pointer to result on the stack }
+	addi	r1, r1, 240	{ restore stack }
+
+	{ restore non-volatile register/s }
+	lwz	r31, -4(r1)
+
+	lwz	r0, 8(r1)
+	mtlr	r0
+	blr
+end;
+
+function TPSExec.InnerfuseCall(_Self, Address: Pointer; CallingConv: TPSCallingConvention; Params: TPSList; res: PPSVariantIFC): Boolean;
+var
+  rint: Trint;			{ registers r3 to r10 }
+  rfloat: Trfloat;		{ registers f1 to f13 }
+  st: packed array of byte;	{ stack }
+  i, j, rindex, findex, stindex: integer;
+  fvar: PPSVariantIFC;
+  IsConstructor: Boolean;
+  { add a dword to stack }
+  procedure addstackdword(value: dword);
+  begin
+    setlength(st, stindex+4);
+    pdword(@st[stindex])^ := value;
+    inc(stindex, 4);
+  end;
+
+  { add a float to stack }
+  procedure addstackfloat(value: pointer; size: integer);
+  begin
+    setlength(st, stindex + (size * 4));
+    if size = 1
+      then psingle(@st[stindex])^ := single(value^)
+      else pdouble(@st[stindex])^ := double(value^);
+    inc(stindex, size*4);
+  end;
+
+  { add to the general registers or overflow to stack }
+  procedure addgen(value: dword);
+  begin
+    if rindex <= 8
+      then begin
+        rint[rindex] := value;
+        inc(rindex);
+        addstackdword(value);
+      end
+      else begin
+        addstackdword(value);
+      end;
+  end;
+  { add to the float registers or overflow to stack }
+  { size = 1 for single, 2 for double }
+  procedure addfloat(value: pointer; size: integer);
+  begin
+    if findex <= 13
+      then begin
+        if size = 1
+          then rfloat[findex] := single(value^)
+          else rfloat[findex] := double(value^);
+        inc(findex);
+        inc(rindex, size);
+        addstackfloat(value, size);
+      end
+      else begin
+        addstackfloat(value, size);
+      end;
+  end;
+
+begin
+  if (Integer(CallingConv) and 64) <> 0 then begin
+    IsConstructor := true;
+    CAllingConv := TPSCallingConvention(Integer(CallingConv) and not 64);
+  end else IsConstructor := false;
+
+  rindex := 1;
+  findex := 1;
+  stindex := 24;
+  setlength(st, stindex);
+  Result := False;
+
+  { the pointer of the result needs to be passed first in the case of some result types }
+  if assigned(res)
+    then begin
+      case res.atype.basetype of
+        btStaticArray, btRecord: addgen(dword(res.dta));
+      end;
+    end;
+
+  { process all parameters }
+  for i := 0 to Params.Count-1 do begin
+    if Params[i] = nil
+      then Exit;
+    fvar := Params[i];
+
+    { cook dynamic arrays - fpc stores size-1 at @array-4 }
+    if (fvar.aType.BaseType = btArray)
+      then dec(pdword(pointer(fvar.dta^)-4)^);
+
+    if fvar.varparam
+      then begin  { var param }
+        case fvar.aType.BaseType of
+          { add var params here }
+          btArray, btVariant, btSet, btStaticArray, btRecord, btInterface, btClass, {$IFNDEF PS_NOWIDESTRING} btWideString, btWideChar, {$ENDIF}
+          btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
+          {$IFNDEF PS_NOINT64}, bts64{$ENDIF}: addgen(dword(fvar.dta));  { TODO: test all }
+          else begin
+            writeln(stderr, 'Parameter type not recognised!');
+            Exit;
+          end;
+        end;  { case }
+      end else begin  { not a var param }
+        case fvar.aType.BaseType of
+//          btArray, btVariant, btSet, btStaticArray, btRecord, btInterface, btClass, {$IFNDEF PS_NOWIDESTRING} btWideString, btWideChar, {$ENDIF}
+//          btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
+//          {$IFNDEF PS_NOINT64}, bts64{$ENDIF}: writeln('normal param');
+
+          { add normal params here }
+          btString:                            addgen(dword(pstring(fvar.dta)^));
+          btU8, btS8:                          addgen(dword(pbyte(fvar.dta)^));
+          btU16, BtS16:                        addgen(dword(pword(fvar.dta)^));
+          btU32, btS32:                        addgen(dword(pdword(fvar.dta)^));
+          btSingle:                            addfloat(fvar.dta, 1);
+          btDouble, btExtended:                addfloat(fvar.dta, 2);
+          btPChar:                             addgen(dword(ppchar(fvar.dta)^));
+          btChar:                              addgen(dword(pchar(fvar.dta)^));
+          {$IFNDEF PS_NOINT64}bts64:{$ENDIF}   begin
+                                                 addgen(dword(pint64(fvar.dta)^ shr 32));
+                                                 addgen(dword(pint64(fvar.dta)^ and $ffffffff));
+                                               end;
+          btStaticArray:                       addgen(dword(fvar.dta));
+          btRecord:                            for j := 0 to (fvar.atype.realsize div 4)-1 do
+                                                 addgen(pdword(fvar.dta + j*4)^);
+          btArray:                             addgen(dword(fvar.dta^));
+
+          { TODO add and test }
+{          btVariant, btSet, btInterface, btClass  }
+
+          else begin
+            writeln(stderr, 'Parameter type not implemented!');
+            Exit;
+          end;
+        end;  { case }
+      end;  { else }
+  end;  { for }
+
+  if not assigned(res)
+    then begin
+      ppcasmcall(rint, rfloat, address, st, stindex, rtINT);  { ignore return }
+    end
+    else begin
+      case res.atype.basetype of
+        { add result types here }
+        btString:                pstring(res.dta)^ := pstring(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^;
+        btU8, btS8:              pbyte(res.dta)^ := byte(pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^);
+        btU16, btS16:            pword(res.dta)^ := word(pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^);
+        btU32, btS32:            pdword(res.dta)^ := pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^;
+        btSingle:                psingle(res.dta)^ := pdouble(ppcasmcall(rint, rfloat, address, st, stindex, rtFLOAT))^;
+        btDouble, btExtended:    pdouble(res.dta)^ := pdouble(ppcasmcall(rint, rfloat, address, st, stindex, rtFLOAT))^;
+        btPChar:                 ppchar(res.dta)^ := pchar(pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^);
+        btChar:                  pchar(res.dta)^ := char(pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^);
+        btStaticArray, btRecord: ppcasmcall(rint, rfloat, address, st, stindex, rtINT);
+        btArray:                 res.dta := ppcasmcall(rint, rfloat, address, st, stindex, rtINT);
+
+        { TODO add and test }
+
+        else begin
+          writeln(stderr, 'Result type not implemented!');
+          exit;
+        end;  { else }
+      end;  { case }
+    end;
+
+  { cook dynamic arrays - fpc stores size-1 at @array-4 }
+  for i := 0 to Params.Count-1 do begin
+    fvar := Params[i];
+    if (fvar.aType.BaseType = btArray)
+      then inc(pdword(pointer(fvar.dta^)-4)^);
+   end;
+
+  Result := True;
+end;
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_DB.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_DB.pas
new file mode 100644
index 0000000..c79e415
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_DB.pas	
@@ -0,0 +1,897 @@
+{ Compiletime DB support }
+Unit uPSC_DB;
+{
+This file has been generated by UnitParser v0.4, written by M. Knight.
+Source Code from Carlo Kok has been used to implement various sections of
+UnitParser. Components of ifps3 are used in the construction of UnitParser,
+code implementing the class wrapper is taken from Carlo Kok''s conv unility
+
+Licence :
+This software is provided 'as-is', without any expressed or implied
+warranty. In no event will the author be held liable for any damages
+arising from the use of this software.
+Permission is granted to anyone to use this software for any kind of
+application, and to alter it and redistribute it freely, subject to
+the following restrictions:
+1. The origin of this software must not be misrepresented, you must
+   not claim that you wrote the original software.
+2. Altered source versions must be plainly marked as such, and must
+   not be misrepresented as being the original software.
+3. You may not create a library that uses this library as a main part
+   of the program and sell that library.
+4. You must have a visible line in your programs aboutbox or
+   documentation that it is made using Innerfuse Script and where
+   Innerfuse Pascal Script can be found.
+5. This notice may not be removed or altered from any source
+   distribution.
+
+If you have any questions concerning this license write to Carlo Kok:
+  ck@carlo-kok.com or try the newsserver:
+  news://news.carlo-kok.com/
+}
+{$I PascalScript.inc}
+Interface
+uses
+  uPSCompiler;
+
+procedure SIRegisterTDATASET(CL: TPSPascalCompiler);
+procedure SIRegisterTPARAMS(CL: TPSPascalCompiler);
+procedure SIRegisterTPARAM(CL: TPSPascalCompiler);
+procedure SIRegisterTGUIDFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTVARIANTFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTREFERENCEFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTDATASETFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTARRAYFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTADTFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTOBJECTFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTGRAPHICFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTMEMOFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTBLOBFIELD(CL: TPSPascalCompiler);
+{$IFDEF DELPHI6UP}
+procedure SIRegisterTFMTBCDFIELD(CL: TPSPascalCompiler);
+{$ENDIF}
+procedure SIRegisterTBCDFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTVARBYTESFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTBYTESFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTBINARYFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTTIMEFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTDATEFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTDATETIMEFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTBOOLEANFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTCURRENCYFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTFLOATFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTAUTOINCFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTWORDFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTLARGEINTFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTSMALLINTFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTINTEGERFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTNUMERICFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTWIDESTRINGFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTSTRINGFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTFIELD(CL: TPSPascalCompiler);
+procedure SIRegisterTLOOKUPLIST(CL: TPSPascalCompiler);
+procedure SIRegisterTFIELDS(CL: TPSPascalCompiler);
+procedure SIRegisterTFIELDLIST(CL: TPSPascalCompiler);
+procedure SIRegisterTFIELDDEFLIST(CL: TPSPascalCompiler);
+procedure SIRegisterTFLATLIST(CL: TPSPascalCompiler);
+procedure SIRegisterTINDEXDEFS(CL: TPSPascalCompiler);
+procedure SIRegisterTINDEXDEF(CL: TPSPascalCompiler);
+procedure SIRegisterTFIELDDEFS(CL: TPSPascalCompiler);
+procedure SIRegisterTFIELDDEF(CL: TPSPascalCompiler);
+procedure SIRegisterTDEFCOLLECTION(CL: TPSPascalCompiler);
+procedure SIRegisterTNAMEDITEM(CL: TPSPascalCompiler);
+procedure SIRegister_DB(Cl: TPSPascalCompiler);
+
+implementation
+Uses Sysutils;
+
+Function RegClassS(cl : TPSPascalCompiler;Const InheritsFrom,Classname : String) : TPSCompileTimeClass;
+begin
+Result := cl.FindClass(Classname);
+if Result = nil then
+  Result := cl.AddClassN(cl.FindClass(InheritsFrom),Classname)
+else
+  Result.ClassInheritsFrom := cl.FindClass(InheritsFrom);
+end;
+
+procedure SIRegisterTDATASET(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TCOMPONENT','TDATASET') do
+  begin
+  RegisterMethod('Function ACTIVEBUFFER : PCHAR');
+  RegisterMethod('Procedure APPEND');
+  RegisterMethod('Procedure APPENDRECORD( const VALUES : array of const)');
+//  RegisterMethod('Function BOOKMARKVALID( BOOKMARK : TBOOKMARK) : BOOLEAN');
+  RegisterMethod('Procedure CANCEL');
+  RegisterMethod('Procedure CHECKBROWSEMODE');
+  RegisterMethod('Procedure CLEARFIELDS');
+  RegisterMethod('Procedure CLOSE');
+  RegisterMethod('Function CONTROLSDISABLED : BOOLEAN');
+//  RegisterMethod('Function COMPAREBOOKMARKS( BOOKMARK1, BOOKMARK2 : TBOOKMARK) : INTEGER');
+  RegisterMethod('Function CREATEBLOBSTREAM( FIELD : TFIELD; MODE : TBLOBSTREAMMODE) : TSTREAM');
+  RegisterMethod('Procedure CURSORPOSCHANGED');
+  RegisterMethod('Procedure DELETE');
+  RegisterMethod('Procedure DISABLECONTROLS');
+  RegisterMethod('Procedure EDIT');
+  RegisterMethod('Procedure ENABLECONTROLS');
+{$IFDEF DELPHI2006UP}
+{$IFDEF DELPHI2009UP}
+  RegisterMethod('Function FIELDBYNAME( const FIELDNAME : String): TFIELD');
+  RegisterMethod('Function FINDFIELD( const FIELDNAME : String) : TFIELD');
+{$ELSE}
+  RegisterMethod('Function FIELDBYNAME( const FIELDNAME : WIDESTRING) : TFIELD');
+  RegisterMethod('Function FINDFIELD( const FIELDNAME : WideString) : TFIELD');
+{$ENDIF}
+{$ELSE}
+  RegisterMethod('Function FIELDBYNAME( const FIELDNAME : STRING) : TFIELD');
+  RegisterMethod('Function FINDFIELD( const FIELDNAME : STRING) : TFIELD');
+{$ENDIF}
+  RegisterMethod('Function FINDFIRST : BOOLEAN');
+  RegisterMethod('Function FINDLAST : BOOLEAN');
+  RegisterMethod('Function FINDNEXT : BOOLEAN');
+  RegisterMethod('Function FINDPRIOR : BOOLEAN');
+  RegisterMethod('Procedure FIRST');
+//  RegisterMethod('Procedure FREEBOOKMARK( BOOKMARK : TBOOKMARK)');
+//  RegisterMethod('Function GETBOOKMARK : TBOOKMARK');
+  RegisterMethod('Function GETCURRENTRECORD( BUFFER : PCHAR) : BOOLEAN');
+//  RegisterMethod('Procedure GETDETAILDATASETS( LIST : TLIST)');
+//  RegisterMethod('Procedure GETFIELDLIST( LIST : TLIST; const FIELDNAMES : STRING)');
+//  RegisterMethod('Procedure GETDETAILLINKFIELDS( MASTERFIELDS, DETAILFIELDS : TLIST)');
+//  RegisterMethod('Function GETBLOBFIELDDATA( FIELDNO : INTEGER; var BUFFER : TBLOBBYTEDATA) : INTEGER');
+  RegisterMethod('Procedure GETFIELDNAMES( LIST : TSTRINGS)');
+//  RegisterMethod('Procedure GOTOBOOKMARK( BOOKMARK : TBOOKMARK)');
+  RegisterMethod('Procedure INSERT');
+  RegisterMethod('Procedure INSERTRECORD( const VALUES : array of const)');
+  RegisterMethod('Function ISEMPTY : BOOLEAN');
+  RegisterMethod('Function ISLINKEDTO( DATASOURCE : TDATASOURCE) : BOOLEAN');
+  RegisterMethod('Function ISSEQUENCED : BOOLEAN');
+  RegisterMethod('Procedure LAST');
+  RegisterMethod('Function LOCATE( const KEYFIELDS : String; const KEYVALUES : VARIANT; OPTIONS : TLOCATEOPTIONS) : BOOLEAN');
+  RegisterMethod('Function LOOKUP( const KEYFIELDS : String; const KEYVALUES : VARIANT; const RESULTFIELDS : String) : VARIANT');
+  RegisterMethod('Function MOVEBY( DISTANCE : INTEGER) : INTEGER');
+  RegisterMethod('Procedure NEXT');
+  RegisterMethod('Procedure OPEN');
+  RegisterMethod('Procedure POST');
+  RegisterMethod('Procedure PRIOR');
+  RegisterMethod('Procedure REFRESH');
+//  RegisterMethod('Procedure RESYNC( MODE : TRESYNCMODE)');
+  RegisterMethod('Procedure SETFIELDS( const VALUES : array of const)');
+  RegisterMethod('Function TRANSLATE( SRC, DEST : PCHAR; TOOEM : BOOLEAN) : INTEGER');
+  RegisterMethod('Procedure UPDATECURSORPOS');
+  RegisterMethod('Procedure UPDATERECORD');
+  RegisterMethod('Function UPDATESTATUS : TUPDATESTATUS');
+  RegisterProperty('AGGFIELDS', 'TFIELDS', iptr);
+  RegisterProperty('BOF', 'BOOLEAN', iptr);
+//  RegisterProperty('BOOKMARK', 'TBOOKMARKSTR', iptrw);
+  RegisterProperty('CANMODIFY', 'BOOLEAN', iptr);
+  RegisterProperty('DATASETFIELD', 'TDATASETFIELD', iptrw);
+  RegisterProperty('DATASOURCE', 'TDATASOURCE', iptr);
+  RegisterProperty('DEFAULTFIELDS', 'BOOLEAN', iptr);
+  RegisterProperty('DESIGNER', 'TDATASETDESIGNER', iptr);
+  RegisterProperty('EOF', 'BOOLEAN', iptr);
+  RegisterProperty('BLOCKREADSIZE', 'INTEGER', iptrw);
+  RegisterProperty('FIELDCOUNT', 'INTEGER', iptr);
+  RegisterProperty('FIELDDEFS', 'TFIELDDEFS', iptrw);
+  RegisterProperty('FIELDDEFLIST', 'TFIELDDEFLIST', iptr);
+  RegisterProperty('FIELDS', 'TFIELDS', iptr);
+  RegisterProperty('FIELDLIST', 'TFIELDLIST', iptr);
+  RegisterProperty('FIELDVALUES', 'VARIANT String', iptrw);
+  RegisterProperty('FOUND', 'BOOLEAN', iptr);
+{$IFDEF DELPHI6UP}
+  RegisterProperty('ISUNIDIRECTIONAL', 'BOOLEAN', iptr);
+{$ENDIF}
+  RegisterProperty('MODIFIED', 'BOOLEAN', iptr);
+  RegisterProperty('OBJECTVIEW', 'BOOLEAN', iptrw);
+  RegisterProperty('RECORDCOUNT', 'INTEGER', iptr);
+  RegisterProperty('RECNO', 'INTEGER', iptrw);
+  RegisterProperty('RECORDSIZE', 'WORD', iptr);
+  RegisterProperty('SPARSEARRAYS', 'BOOLEAN', iptrw);
+  RegisterProperty('STATE', 'TDATASETSTATE', iptr);
+  RegisterProperty('FILTER', 'String', iptrw);
+  RegisterProperty('FILTERED', 'BOOLEAN', iptrw);
+  RegisterProperty('FILTEROPTIONS', 'TFILTEROPTIONS', iptrw);
+  RegisterProperty('ACTIVE', 'BOOLEAN', iptrw);
+  RegisterProperty('AUTOCALCFIELDS', 'BOOLEAN', iptrw);
+  RegisterProperty('BEFOREOPEN', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTEROPEN', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('BEFORECLOSE', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTERCLOSE', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('BEFOREINSERT', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTERINSERT', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('BEFOREEDIT', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTEREDIT', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('BEFOREPOST', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTERPOST', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('BEFORECANCEL', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTERCANCEL', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('BEFOREDELETE', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTERDELETE', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('BEFORESCROLL', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTERSCROLL', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('BEFOREREFRESH', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('AFTERREFRESH', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('ONCALCFIELDS', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('ONDELETEERROR', 'TDATASETERROREVENT', iptrw);
+  RegisterProperty('ONEDITERROR', 'TDATASETERROREVENT', iptrw);
+  RegisterProperty('ONFILTERRECORD', 'TFILTERRECORDEVENT', iptrw);
+  RegisterProperty('ONNEWRECORD', 'TDATASETNOTIFYEVENT', iptrw);
+  RegisterProperty('ONPOSTERROR', 'TDATASETERROREVENT', iptrw);
+  end;
+end;
+
+procedure SIRegisterTPARAMS(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TCOLLECTION','TPARAMS') do
+  begin
+  RegisterMethod('Procedure ASSIGNVALUES( VALUE : TPARAMS)');
+  RegisterMethod('Procedure ADDPARAM( VALUE : TPARAM)');
+  RegisterMethod('Procedure REMOVEPARAM( VALUE : TPARAM)');
+  RegisterMethod('Function CREATEPARAM( FLDTYPE : TFIELDTYPE; const PARAMNAME : String; PARAMTYPE : TPARAMTYPE) : TPARAM');
+//  RegisterMethod('Procedure GETPARAMLIST( LIST : TLIST; const PARAMNAMES : STRING)');
+  RegisterMethod('Function ISEQUAL( VALUE : TPARAMS) : BOOLEAN');
+  RegisterMethod('Function PARSESQL( SQL : String; DOCREATE : BOOLEAN) : String');
+  RegisterMethod('Function PARAMBYNAME( const VALUE : String) : TPARAM');
+  RegisterMethod('Function FINDPARAM( const VALUE : String) : TPARAM');
+  RegisterProperty('ITEMS', 'TPARAM INTEGER', iptrw);
+  RegisterProperty('PARAMVALUES', 'VARIANT String', iptrw);
+  end;
+end;
+
+procedure SIRegisterTPARAM(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TCOLLECTIONITEM','TPARAM') do
+  begin
+  RegisterMethod('Procedure ASSIGNFIELD( FIELD : TFIELD)');
+  RegisterMethod('Procedure ASSIGNFIELDVALUE( FIELD : TFIELD; const VALUE : VARIANT)');
+  RegisterMethod('Procedure CLEAR');
+//  RegisterMethod('Procedure GETDATA( BUFFER : POINTER)');
+  RegisterMethod('Function GETDATASIZE : INTEGER');
+  RegisterMethod('Procedure LOADFROMFILE( const FILENAME : String; BLOBTYPE : TBLOBTYPE)');
+  RegisterMethod('Procedure LOADFROMSTREAM( STREAM : TSTREAM; BLOBTYPE : TBLOBTYPE)');
+//  RegisterMethod('Procedure SETBLOBDATA( BUFFER : POINTER; SIZE : INTEGER)');
+//  RegisterMethod('Procedure SETDATA( BUFFER : POINTER)');
+{$IFDEF DELPHI6UP}
+  RegisterProperty('ASBCD', 'CURRENCY', iptrw);
+{$ENDIF}
+{$IFDEF DELPHI6UP}
+  RegisterProperty('ASFMTBCD', 'TBCD', iptrw);
+{$ENDIF}
+  RegisterProperty('ASBLOB', 'TBLOBDATA', iptrw);
+  RegisterProperty('ASBOOLEAN', 'BOOLEAN', iptrw);
+  RegisterProperty('ASCURRENCY', 'CURRENCY', iptrw);
+  RegisterProperty('ASDATE', 'TDATETIME', iptrw);
+  RegisterProperty('ASDATETIME', 'TDATETIME', iptrw);
+  RegisterProperty('ASFLOAT', 'DOUBLE', iptrw);
+  RegisterProperty('ASINTEGER', 'LONGINT', iptrw);
+  RegisterProperty('ASSMALLINT', 'LONGINT', iptrw);
+  RegisterProperty('ASMEMO', 'String', iptrw);
+  RegisterProperty('ASSTRING', 'String', iptrw);
+  RegisterProperty('ASTIME', 'TDATETIME', iptrw);
+  RegisterProperty('ASWORD', 'LONGINT', iptrw);
+  RegisterProperty('BOUND', 'BOOLEAN', iptrw);
+  RegisterProperty('ISNULL', 'BOOLEAN', iptr);
+  RegisterProperty('NATIVESTR', 'String', iptrw);
+  RegisterProperty('TEXT', 'String', iptrw);
+  RegisterProperty('DATATYPE', 'TFIELDTYPE', iptrw);
+{$IFDEF DELPHI6UP}
+  RegisterProperty('PRECISION', 'INTEGER', iptrw);
+  RegisterProperty('NUMERICSCALE', 'INTEGER', iptrw);
+  RegisterProperty('SIZE', 'INTEGER', iptrw);
+{$ENDIF}
+  RegisterProperty('NAME', 'String', iptrw);
+  RegisterProperty('PARAMTYPE', 'TPARAMTYPE', iptrw);
+  RegisterProperty('VALUE', 'VARIANT', iptrw);
+  end;
+end;
+
+procedure SIRegisterTGUIDFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TGUIDFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTVARIANTFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TVARIANTFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTREFERENCEFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TDATASETFIELD','TREFERENCEFIELD') do
+  begin
+  RegisterProperty('REFERENCETABLENAME', 'String', iptrw);
+  end;
+end;
+
+procedure SIRegisterTDATASETFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TOBJECTFIELD','TDATASETFIELD') do
+  begin
+  RegisterProperty('NESTEDDATASET', 'TDATASET', iptr);
+  RegisterProperty('INCLUDEOBJECTFIELD', 'BOOLEAN', iptrw);
+  end;
+end;
+
+procedure SIRegisterTARRAYFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TOBJECTFIELD','TARRAYFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTADTFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TOBJECTFIELD','TADTFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTOBJECTFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TOBJECTFIELD') do
+  begin
+  RegisterProperty('FIELDCOUNT', 'INTEGER', iptr);
+  RegisterProperty('FIELDS', 'TFIELDS', iptr);
+  RegisterProperty('FIELDVALUES', 'VARIANT INTEGER', iptrw);
+  RegisterProperty('UNNAMED', 'BOOLEAN', iptr);
+  RegisterProperty('OBJECTTYPE', 'String', iptrw);
+  end;
+end;
+
+procedure SIRegisterTGRAPHICFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TBLOBFIELD','TGRAPHICFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTMEMOFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TBLOBFIELD','TMEMOFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTBLOBFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TBLOBFIELD') do
+  begin
+  RegisterMethod('Procedure LOADFROMFILE( const FILENAME : String)');
+  RegisterMethod('Procedure LOADFROMSTREAM( STREAM : TSTREAM)');
+  RegisterMethod('Procedure SAVETOFILE( const FILENAME : String)');
+  RegisterMethod('Procedure SAVETOSTREAM( STREAM : TSTREAM)');
+  RegisterProperty('BLOBSIZE', 'INTEGER', iptr);
+  RegisterProperty('MODIFIED', 'BOOLEAN', iptrw);
+  RegisterProperty('VALUE', 'String', iptrw);
+  RegisterProperty('TRANSLITERATE', 'BOOLEAN', iptrw);
+  RegisterProperty('BLOBTYPE', 'TBLOBTYPE', iptrw);
+{$IFDEF DELPHI6UP}
+  RegisterProperty('GRAPHICHEADER', 'BOOLEAN', iptrw);
+{$ENDIF}
+  end;
+end;
+
+{$IFDEF DELPHI6UP}
+procedure SIRegisterTFMTBCDFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TNUMERICFIELD','TFMTBCDFIELD') do
+  begin
+  RegisterProperty('VALUE', 'TBCD', iptrw);
+  RegisterProperty('CURRENCY', 'BOOLEAN', iptrw);
+  RegisterProperty('MAXVALUE', 'String', iptrw);
+  RegisterProperty('MINVALUE', 'String', iptrw);
+  RegisterProperty('PRECISION', 'INTEGER', iptrw);
+  end;
+end;
+{$ENDIF}
+
+procedure SIRegisterTBCDFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TNUMERICFIELD','TBCDFIELD') do
+  begin
+  RegisterProperty('VALUE', 'CURRENCY', iptrw);
+  RegisterProperty('CURRENCY', 'BOOLEAN', iptrw);
+  RegisterProperty('MAXVALUE', 'CURRENCY', iptrw);
+  RegisterProperty('MINVALUE', 'CURRENCY', iptrw);
+  RegisterProperty('PRECISION', 'INTEGER', iptrw);
+  end;
+end;
+
+procedure SIRegisterTVARBYTESFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TBYTESFIELD','TVARBYTESFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTBYTESFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TBINARYFIELD','TBYTESFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTBINARYFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TBINARYFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTTIMEFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TDATETIMEFIELD','TTIMEFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTDATEFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TDATETIMEFIELD','TDATEFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTDATETIMEFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TDATETIMEFIELD') do
+  begin
+  RegisterProperty('VALUE', 'TDATETIME', iptrw);
+  RegisterProperty('DISPLAYFORMAT', 'String', iptrw);
+  end;
+end;
+
+procedure SIRegisterTBOOLEANFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TBOOLEANFIELD') do
+  begin
+  RegisterProperty('VALUE', 'BOOLEAN', iptrw);
+  RegisterProperty('DISPLAYVALUES', 'String', iptrw);
+  end;
+end;
+
+procedure SIRegisterTCURRENCYFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFLOATFIELD','TCURRENCYFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTFLOATFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TNUMERICFIELD','TFLOATFIELD') do
+  begin
+  RegisterProperty('VALUE', 'DOUBLE', iptrw);
+  RegisterProperty('CURRENCY', 'BOOLEAN', iptrw);
+  RegisterProperty('MAXVALUE', 'DOUBLE', iptrw);
+  RegisterProperty('MINVALUE', 'DOUBLE', iptrw);
+  RegisterProperty('PRECISION', 'INTEGER', iptrw);
+  end;
+end;
+
+procedure SIRegisterTAUTOINCFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TINTEGERFIELD','TAUTOINCFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTWORDFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TINTEGERFIELD','TWORDFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTLARGEINTFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TNUMERICFIELD','TLARGEINTFIELD') do
+  begin
+  RegisterProperty('ASLARGEINT', 'LARGEINT', iptrw);
+  RegisterProperty('VALUE', 'LARGEINT', iptrw);
+  RegisterProperty('MAXVALUE', 'LARGEINT', iptrw);
+  RegisterProperty('MINVALUE', 'LARGEINT', iptrw);
+  end;
+end;
+
+procedure SIRegisterTSMALLINTFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TINTEGERFIELD','TSMALLINTFIELD') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTINTEGERFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TNUMERICFIELD','TINTEGERFIELD') do
+  begin
+  RegisterProperty('VALUE', 'LONGINT', iptrw);
+  RegisterProperty('MAXVALUE', 'LONGINT', iptrw);
+  RegisterProperty('MINVALUE', 'LONGINT', iptrw);
+  end;
+end;
+
+procedure SIRegisterTNUMERICFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TNUMERICFIELD') do
+  begin
+  RegisterProperty('DISPLAYFORMAT', 'String', iptrw);
+  RegisterProperty('EDITFORMAT', 'String', iptrw);
+  end;
+end;
+
+procedure SIRegisterTWIDESTRINGFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TSTRINGFIELD','TWIDESTRINGFIELD') do
+  begin
+  RegisterProperty('VALUE', 'WIDESTRING', iptrw);
+  end;
+end;
+
+procedure SIRegisterTSTRINGFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFIELD','TSTRINGFIELD') do
+  begin
+  RegisterProperty('VALUE', 'String', iptrw);
+  RegisterProperty('FIXEDCHAR', 'BOOLEAN', iptrw);
+  RegisterProperty('TRANSLITERATE', 'BOOLEAN', iptrw);
+  end;
+end;
+
+procedure SIRegisterTFIELD(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TCOMPONENT','TFIELD') do
+  begin
+//RegisterMethod('Procedure ASSIGNVALUE( const VALUE : TVARREC)');
+  RegisterMethod('Procedure CLEAR');
+  RegisterMethod('Procedure FOCUSCONTROL');
+//  RegisterMethod('Function GETDATA( BUFFER : POINTER; NATIVEFORMAT : BOOLEAN) : BOOLEAN');
+  RegisterMethod('Function ISVALIDCHAR( INPUTCHAR : CHAR) : BOOLEAN');
+  RegisterMethod('Procedure REFRESHLOOKUPLIST');
+//  RegisterMethod('Procedure SETDATA( BUFFER : POINTER; NATIVEFORMAT : BOOLEAN)');
+  RegisterMethod('Procedure SETFIELDTYPE( VALUE : TFIELDTYPE)');
+//  RegisterMethod('Procedure VALIDATE( BUFFER : POINTER)');
+{$IFDEF DELPHI6UP}
+  RegisterProperty('ASBCD', 'TBCD', iptrw);
+{$ENDIF}
+  RegisterProperty('ASBOOLEAN', 'BOOLEAN', iptrw);
+  RegisterProperty('ASCURRENCY', 'CURRENCY', iptrw);
+  RegisterProperty('ASDATETIME', 'TDATETIME', iptrw);
+  RegisterProperty('ASFLOAT', 'DOUBLE', iptrw);
+  RegisterProperty('ASINTEGER', 'LONGINT', iptrw);
+  RegisterProperty('ASSTRING', 'String', iptrw);
+  RegisterProperty('ASVARIANT', 'VARIANT', iptrw);
+  RegisterProperty('ATTRIBUTESET', 'String', iptrw);
+  RegisterProperty('CALCULATED', 'BOOLEAN', iptrw);
+  RegisterProperty('CANMODIFY', 'BOOLEAN', iptr);
+  RegisterProperty('CURVALUE', 'VARIANT', iptr);
+  RegisterProperty('DATASET', 'TDATASET', iptrw);
+  RegisterProperty('DATASIZE', 'INTEGER', iptr);
+  RegisterProperty('DATATYPE', 'TFIELDTYPE', iptr);
+  RegisterProperty('DISPLAYNAME', 'String', iptr);
+  RegisterProperty('DISPLAYTEXT', 'String', iptr);
+  RegisterProperty('EDITMASK', 'TEDITMASK', iptrw);
+  RegisterProperty('EDITMASKPTR', 'TEDITMASK', iptr);
+  RegisterProperty('EDITMASK', 'String', iptrw);
+  RegisterProperty('EDITMASKPTR', 'String', iptr);
+  RegisterProperty('FIELDNO', 'INTEGER', iptr);
+  RegisterProperty('FULLNAME', 'String', iptr);
+  RegisterProperty('ISINDEXFIELD', 'BOOLEAN', iptr);
+  RegisterProperty('ISNULL', 'BOOLEAN', iptr);
+  RegisterProperty('LOOKUP', 'BOOLEAN', iptrw);
+  RegisterProperty('LOOKUPLIST', 'TLOOKUPLIST', iptr);
+  RegisterProperty('NEWVALUE', 'VARIANT', iptrw);
+  RegisterProperty('OFFSET', 'INTEGER', iptr);
+  RegisterProperty('OLDVALUE', 'VARIANT', iptr);
+  RegisterProperty('PARENTFIELD', 'TOBJECTFIELD', iptrw);
+  RegisterProperty('SIZE', 'INTEGER', iptrw);
+  RegisterProperty('TEXT', 'String', iptrw);
+  RegisterProperty('VALIDCHARS', 'TFIELDCHARS', iptrw);
+  RegisterProperty('VALUE', 'VARIANT', iptrw);
+  RegisterProperty('ALIGNMENT', 'TALIGNMENT', iptrw);
+  RegisterProperty('AUTOGENERATEVALUE', 'TAUTOREFRESHFLAG', iptrw);
+  RegisterProperty('CUSTOMCONSTRAINT', 'String', iptrw);
+  RegisterProperty('CONSTRAINTERRORMESSAGE', 'String', iptrw);
+  RegisterProperty('DEFAULTEXPRESSION', 'String', iptrw);
+  RegisterProperty('DISPLAYLABEL', 'String', iptrw);
+  RegisterProperty('DISPLAYWIDTH', 'INTEGER', iptrw);
+  RegisterProperty('FIELDKIND', 'TFIELDKIND', iptrw);
+  RegisterProperty('FIELDNAME', 'String', iptrw);
+  RegisterProperty('HASCONSTRAINTS', 'BOOLEAN', iptr);
+  RegisterProperty('INDEX', 'INTEGER', iptrw);
+  RegisterProperty('IMPORTEDCONSTRAINT', 'String', iptrw);
+  RegisterProperty('LOOKUPDATASET', 'TDATASET', iptrw);
+  RegisterProperty('LOOKUPKEYFIELDS', 'String', iptrw);
+  RegisterProperty('LOOKUPRESULTFIELD', 'String', iptrw);
+  RegisterProperty('KEYFIELDS', 'String', iptrw);
+  RegisterProperty('LOOKUPCACHE', 'BOOLEAN', iptrw);
+  RegisterProperty('ORIGIN', 'String', iptrw);
+  RegisterProperty('PROVIDERFLAGS', 'TPROVIDERFLAGS', iptrw);
+  RegisterProperty('READONLY', 'BOOLEAN', iptrw);
+  RegisterProperty('REQUIRED', 'BOOLEAN', iptrw);
+  RegisterProperty('VISIBLE', 'BOOLEAN', iptrw);
+  RegisterProperty('ONCHANGE', 'TFIELDNOTIFYEVENT', iptrw);
+  RegisterProperty('ONGETTEXT', 'TFIELDGETTEXTEVENT', iptrw);
+  RegisterProperty('ONSETTEXT', 'TFIELDSETTEXTEVENT', iptrw);
+  RegisterProperty('ONVALIDATE', 'TFIELDNOTIFYEVENT', iptrw);
+  end;
+end;
+
+procedure SIRegisterTLOOKUPLIST(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TOBJECT','TLOOKUPLIST') do
+  begin
+  RegisterMethod('Constructor CREATE');
+  RegisterMethod('Procedure ADD( const AKEY, AVALUE : VARIANT)');
+  RegisterMethod('Procedure CLEAR');
+  RegisterMethod('Function VALUEOFKEY( const AKEY : VARIANT) : VARIANT');
+  end;
+end;
+
+procedure SIRegisterTFIELDS(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TOBJECT','TFIELDS') do
+  begin
+  RegisterMethod('Constructor CREATE( ADATASET : TDATASET)');
+  RegisterMethod('Procedure ADD( FIELD : TFIELD)');
+  RegisterMethod('Procedure CHECKFIELDNAME( const FIELDNAME : String)');
+  RegisterMethod('Procedure CHECKFIELDNAMES( const FIELDNAMES : String)');
+  RegisterMethod('Procedure CLEAR');
+  RegisterMethod('Function FINDFIELD( const FIELDNAME : String) : TFIELD');
+  RegisterMethod('Function FIELDBYNAME( const FIELDNAME : String) : TFIELD');
+  RegisterMethod('Function FIELDBYNUMBER( FIELDNO : INTEGER) : TFIELD');
+  RegisterMethod('Procedure GETFIELDNAMES( LIST : TSTRINGS)');
+  RegisterMethod('Function INDEXOF( FIELD : TFIELD) : INTEGER');
+  RegisterMethod('Procedure REMOVE( FIELD : TFIELD)');
+  RegisterProperty('COUNT', 'INTEGER', iptr);
+  RegisterProperty('DATASET', 'TDATASET', iptr);
+  RegisterProperty('FIELDS', 'TFIELD INTEGER', iptrw);
+  end;
+end;
+
+procedure SIRegisterTFIELDLIST(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFLATLIST','TFIELDLIST') do
+  begin
+  RegisterMethod('Function FIELDBYNAME( const NAME : String) : TFIELD');
+  RegisterMethod('Function FIND( const NAME : String) : TFIELD');
+  RegisterProperty('FIELDS', 'TFIELD INTEGER', iptr);
+  end;
+end;
+
+procedure SIRegisterTFIELDDEFLIST(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TFLATLIST','TFIELDDEFLIST') do
+  begin
+  RegisterMethod('Function FIELDBYNAME( const NAME : String) : TFIELDDEF');
+  RegisterMethod('Function FIND( const NAME : String) : TFIELDDEF');
+  RegisterProperty('FIELDDEFS', 'TFIELDDEF INTEGER', iptr);
+  end;
+end;
+
+procedure SIRegisterTFLATLIST(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TSTRINGLIST','TFLATLIST') do
+  begin
+  RegisterMethod('Constructor CREATE( ADATASET : TDATASET)');
+  RegisterMethod('Procedure UPDATE');
+  RegisterProperty('DATASET', 'TDATASET', iptr);
+  end;
+end;
+
+procedure SIRegisterTINDEXDEFS(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TDEFCOLLECTION','TINDEXDEFS') do
+  begin
+  RegisterMethod('Constructor CREATE( ADATASET : TDATASET)');
+  RegisterMethod('Function ADDINDEXDEF : TINDEXDEF');
+  RegisterMethod('Function FIND( const NAME : String) : TINDEXDEF');
+  RegisterMethod('Procedure UPDATE');
+  RegisterMethod('Function FINDINDEXFORFIELDS( const FIELDS : String) : TINDEXDEF');
+  RegisterMethod('Function GETINDEXFORFIELDS( const FIELDS : String; CASEINSENSITIVE : BOOLEAN) : TINDEXDEF');
+  RegisterMethod('Procedure ADD( const NAME, FIELDS : String; OPTIONS : TINDEXOPTIONS)');
+  RegisterProperty('ITEMS', 'TINDEXDEF INTEGER', iptrw);
+  end;
+end;
+
+procedure SIRegisterTINDEXDEF(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TNAMEDITEM','TINDEXDEF') do
+  begin
+  RegisterMethod('Constructor CREATE( OWNER : TINDEXDEFS; const NAME, FIELDS : String; OPTIONS : TINDEXOPTIONS)');
+  RegisterProperty('FIELDEXPRESSION', 'String', iptr);
+  RegisterProperty('CASEINSFIELDS', 'String', iptrw);
+  RegisterProperty('DESCFIELDS', 'String', iptrw);
+  RegisterProperty('EXPRESSION', 'String', iptrw);
+  RegisterProperty('FIELDS', 'String', iptrw);
+  RegisterProperty('OPTIONS', 'TINDEXOPTIONS', iptrw);
+  RegisterProperty('SOURCE', 'String', iptrw);
+  RegisterProperty('GROUPINGLEVEL', 'INTEGER', iptrw);
+  end;
+end;
+
+procedure SIRegisterTFIELDDEFS(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TDEFCOLLECTION','TFIELDDEFS') do
+  begin
+  RegisterMethod('Constructor CREATE( AOWNER : TPERSISTENT)');
+  RegisterMethod('Function ADDFIELDDEF : TFIELDDEF');
+  RegisterMethod('Function FIND( const NAME : String) : TFIELDDEF');
+  RegisterMethod('Procedure UPDATE');
+  RegisterMethod('Procedure ADD( const NAME : String; DATATYPE : TFIELDTYPE; SIZE : INTEGER; REQUIRED : BOOLEAN)');
+  RegisterProperty('HIDDENFIELDS', 'BOOLEAN', iptrw);
+  RegisterProperty('ITEMS', 'TFIELDDEF INTEGER', iptrw);
+  RegisterProperty('PARENTDEF', 'TFIELDDEF', iptr);
+  end;
+end;
+
+procedure SIRegisterTFIELDDEF(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TNAMEDITEM','TFIELDDEF') do
+  begin
+//  RegisterMethod('Constructor CREATE( OWNER : TFIELDDEFS; const NAME : STRING; DATATYPE : TFIELDTYPE; SIZE : INTEGER; REQUIRED : BOOLEAN; FIELDNO : INTEGER)');
+  RegisterMethod('Function ADDCHILD : TFIELDDEF');
+  RegisterMethod('Function CREATEFIELD( OWNER : TCOMPONENT; PARENTFIELD : TOBJECTFIELD; const FIELDNAME : String; CREATECHILDREN : BOOLEAN) : TFIELD');
+  RegisterMethod('Function HASCHILDDEFS : BOOLEAN');
+  RegisterProperty('FIELDCLASS', 'TFIELDCLASS', iptr);
+  RegisterProperty('FIELDNO', 'INTEGER', iptrw);
+  RegisterProperty('INTERNALCALCFIELD', 'BOOLEAN', iptrw);
+  RegisterProperty('PARENTDEF', 'TFIELDDEF', iptr);
+  RegisterProperty('REQUIRED', 'BOOLEAN', iptrw);
+  RegisterProperty('ATTRIBUTES', 'TFIELDATTRIBUTES', iptrw);
+  RegisterProperty('CHILDDEFS', 'TFIELDDEFS', iptrw);
+  RegisterProperty('DATATYPE', 'TFIELDTYPE', iptrw);
+  RegisterProperty('PRECISION', 'INTEGER', iptrw);
+  RegisterProperty('SIZE', 'INTEGER', iptrw);
+  end;
+end;
+
+procedure SIRegisterTDEFCOLLECTION(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TOWNEDCOLLECTION','TDEFCOLLECTION') do
+  begin
+//  RegisterMethod('Constructor CREATE( ADATASET : TDATASET; AOWNER : TPERSISTENT; ACLASS : TCOLLECTIONITEMCLASS)');
+  RegisterMethod('Function FIND( const ANAME : String) : TNAMEDITEM');
+  RegisterMethod('Procedure GETITEMNAMES( LIST : TSTRINGS)');
+  RegisterMethod('Function INDEXOF( const ANAME : String) : INTEGER');
+  RegisterProperty('DATASET', 'TDATASET', iptr);
+  RegisterProperty('UPDATED', 'BOOLEAN', iptrw);
+  end;
+end;
+
+procedure SIRegisterTNAMEDITEM(CL: TPSPascalCompiler);
+Begin
+With RegClassS(cl,'TCOLLECTIONITEM','TNAMEDITEM') do
+  begin
+  RegisterProperty('NAME', 'String', iptrw);
+  end;
+end;
+
+procedure SIRegister_DB(Cl: TPSPascalCompiler);
+Begin
+cl.AddTypeS('TFieldType', '(ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,'+
+    'ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,'+
+    'ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd)');
+
+  CL.AddTypeS('TDataSetState', '(dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead, dsInternalCalc, dsOpening)');
+
+cl.addTypeS('TLocateOption','(loCaseInsensitive, loPartialKey)');
+cl.addtypes('TLocateOptions','set of TLocateOption');
+cl.addtypes('TUpdateStatus','(usUnmodified, usModified, usInserted, usDeleted)');
+cl.addtypes('TUpdateStatusSet', 'set of TUpdateStatus');
+
+    cl.addTypeS('TPARAMTYPE', 'BYTE');
+RegClassS(cl,'TComponent','TDATASET');
+RegClassS(cl,'TComponent','TFIELD');
+RegClassS(cl,'TComponent','TFIELDDEFS');
+RegClassS(cl,'TComponent','TINDEXDEFS');
+RegClassS(cl, 'TComponent', 'TObjectField');
+RegClassS(cl, 'TComponent', 'TDataLink');
+RegClassS(cl, 'TComponent', 'TDataSource');
+RegClassS(cl, 'TComponent', 'TParam');
+
+SIRegisterTNAMEDITEM(Cl);
+Cl.addTypeS('TDEFUPDATEMETHOD', 'Procedure');
+SIRegisterTDEFCOLLECTION(Cl);
+cl.AddConstantN('FAHIDDENCOL','LONGINT').Value.tu32 := 1;
+cl.AddConstantN('FAREADONLY','LONGINT').Value.tu32 := 2;
+cl.AddConstantN('FAREQUIRED','LONGINT').Value.tu32 := 4;
+cl.AddConstantN('FALINK','LONGINT').Value.tu32 := 8;
+cl.AddConstantN('FAUNNAMED','LONGINT').Value.tu32 := 16;
+cl.AddConstantN('FAFIXED','LONGINT').Value.tu32 := 32;
+cl.addTypeS('TFIELDATTRIBUTES', 'BYTE');
+SIRegisterTFIELDDEF(Cl);
+SIRegisterTFIELDDEFS(Cl);
+cl.AddConstantN('IXPRIMARY','LONGINT').Value.tu32 := 1;
+cl.AddConstantN('IXUNIQUE','LONGINT').Value.tu32 := 2;
+cl.AddConstantN('IXDESCENDING','LONGINT').Value.tu32 := 4;
+cl.AddConstantN('IXCASEINSENSITIVE','LONGINT').Value.tu32 := 8;
+cl.AddConstantN('IXEXPRESSION','LONGINT').Value.tu32 := 16;
+cl.AddConstantN('IXNONMAINTAINED','LONGINT').Value.tu32 := 32;
+cl.addTypeS('TINDEXOPTIONS', 'BYTE');
+SIRegisterTINDEXDEF(Cl);
+SIRegisterTINDEXDEFS(Cl);
+SIRegisterTFLATLIST(Cl);
+SIRegisterTFIELDDEFLIST(Cl);
+SIRegisterTFIELDLIST(Cl);
+cl.AddConstantN('FKDATA','LONGINT').Value.tu32 := 1;
+cl.AddConstantN('FKCALCULATED','LONGINT').Value.tu32 := 2;
+cl.AddConstantN('FKLOOKUP','LONGINT').Value.tu32 := 4;
+cl.AddConstantN('FKINTERNALCALC','LONGINT').Value.tu32 := 8;
+cl.AddConstantN('FKAGGREGATE','LONGINT').Value.tu32 := 16;
+cl.addTypeS('TFIELDKINDS', 'BYTE');
+SIRegisterTFIELDS(Cl);
+cl.AddConstantN('PFINUPDATE','LONGINT').Value.tu32 := 1;
+cl.AddConstantN('PFINWHERE','LONGINT').Value.tu32 := 2;
+cl.AddConstantN('PFINKEY','LONGINT').Value.tu32 := 4;
+cl.AddConstantN('PFHIDDEN','LONGINT').Value.tu32 :=8;
+cl.addTypeS('TPROVIDERFLAGS', 'BYTE');
+cl.addTypeS('TFIELDNOTIFYEVENT', 'Procedure ( SENDER : TFIELD)');
+cl.addTypeS('TFIELDGETTEXTEVENT', 'Procedure ( SENDER : TFIELD; var TEXT : S'
+   +'TRING; DISPLAYTEXT : BOOLEAN)');
+cl.addTypeS('TFIELDSETTEXTEVENT', 'Procedure ( SENDER : TFIELD; const TEXT :'
+   +' String)');
+cl.addTypeS('TAUTOREFRESHFLAG', '( ARNONE, ARAUTOINC, ARDEFAULT )');
+SIRegisterTLOOKUPLIST(Cl);
+SIRegisterTFIELD(Cl);
+SIRegisterTSTRINGFIELD(Cl);
+SIRegisterTWIDESTRINGFIELD(Cl);
+SIRegisterTNUMERICFIELD(Cl);
+SIRegisterTINTEGERFIELD(Cl);
+SIRegisterTSMALLINTFIELD(Cl);
+cl.addTypeS('LARGEINT', 'INT64');
+SIRegisterTLARGEINTFIELD(Cl);
+SIRegisterTWORDFIELD(Cl);
+SIRegisterTAUTOINCFIELD(Cl);
+SIRegisterTFLOATFIELD(Cl);
+SIRegisterTCURRENCYFIELD(Cl);
+SIRegisterTBOOLEANFIELD(Cl);
+SIRegisterTDATETIMEFIELD(Cl);
+SIRegisterTDATEFIELD(Cl);
+SIRegisterTTIMEFIELD(Cl);
+SIRegisterTBINARYFIELD(Cl);
+SIRegisterTBYTESFIELD(Cl);
+SIRegisterTVARBYTESFIELD(Cl);
+SIRegisterTBCDFIELD(Cl);
+{$IFDEF DELPHI6UP}
+SIRegisterTFMTBCDFIELD(Cl);
+{$ENDIF}
+cl.addTypeS('TBLOBTYPE', 'BYTE');
+SIRegisterTBLOBFIELD(Cl);
+SIRegisterTMEMOFIELD(Cl);
+SIRegisterTGRAPHICFIELD(Cl);
+SIRegisterTOBJECTFIELD(Cl);
+SIRegisterTADTFIELD(Cl);
+SIRegisterTARRAYFIELD(Cl);
+SIRegisterTDATASETFIELD(Cl);
+SIRegisterTREFERENCEFIELD(Cl);
+SIRegisterTVARIANTFIELD(Cl);
+SIRegisterTGUIDFIELD(Cl);
+cl.addTypeS('TBLOBDATA', 'STRING');
+cl.AddConstantN('PTUNKNOWN','LONGINT').Value.tu32 := 1;
+cl.AddConstantN('PTINPUT','LONGINT').Value.tu32 := 2;
+cl.AddConstantN('PTOUTPUT','LONGINT').Value.tu32 := 4;
+cl.AddConstantN('PTINPUTOUTPUT','LONGINT').Value.tu32 := 8;
+cl.AddConstantN('PTRESULT','LONGINT').Value.tu32 := 16;
+RegClassS(cl,'TObject','TPARAMS');
+SIRegisterTPARAM(Cl);
+SIRegisterTPARAMS(Cl);
+cl.addTypeS('TDATAACTION', '( DAFAIL, DAABORT, DARETRY )');
+cl.addTypeS('TBLOBSTREAMMODE', '( BMREAD, BMWRITE, BMREADWRITE )');
+cl.addTypeS('TDATAOPERATION', 'Procedure');
+cl.addTypeS('TDATASETNOTIFYEVENT', 'Procedure ( DATASET : TDATASET)');
+cl.addTypeS('TDATASETERROREVENT', 'Procedure ( DATASET : TDATASET; E : TObject'
+   +'; var ACTION : TDATAACTION)');
+cl.addTypeS('TFILTERRECORDEVENT', 'Procedure ( DATASET : TDATASET; var ACCEP'
+   +'T : BOOLEAN)');
+SIRegisterTDATASET(Cl);
+end;
+
+{$IFDEF USEIMPORTER}
+initialization
+CIImporter.AddCallBack(@SIRegister_DB,PT_ClassImport);
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_buttons.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_buttons.pas
new file mode 100644
index 0000000..52c0873
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_buttons.pas	
@@ -0,0 +1,87 @@
+{ Compiletime Buttons support }
+unit uPSC_buttons;
+{$I PascalScript.inc}
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+{
+  Will register files from:
+    Buttons
+ 
+  Requires
+      STD, classes, controls and graphics and StdCtrls
+}
+procedure SIRegister_Buttons_TypesAndConsts(Cl: TPSPascalCompiler);
+
+procedure SIRegisterTSPEEDBUTTON(Cl: TPSPascalCompiler);
+procedure SIRegisterTBITBTN(Cl: TPSPascalCompiler);
+
+procedure SIRegister_Buttons(Cl: TPSPascalCompiler);
+
+implementation
+
+procedure SIRegisterTSPEEDBUTTON(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TSPEEDBUTTON') do
+  begin
+    RegisterProperty('ALLOWALLUP', 'BOOLEAN', iptrw);
+    RegisterProperty('GROUPINDEX', 'INTEGER', iptrw);
+    RegisterProperty('DOWN', 'BOOLEAN', iptrw);
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('GLYPH', 'TBITMAP', iptrw);
+    RegisterProperty('LAYOUT', 'TBUTTONLAYOUT', iptrw);
+    RegisterProperty('MARGIN', 'INTEGER', iptrw);
+    RegisterProperty('NUMGLYPHS', 'BYTE', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('SPACING', 'INTEGER', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+  end;
+end;
+
+procedure SIRegisterTBITBTN(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TBUTTON'), 'TBITBTN') do
+  begin
+    RegisterProperty('GLYPH', 'TBITMAP', iptrw);
+    RegisterProperty('KIND', 'TBITBTNKIND', iptrw);
+    RegisterProperty('LAYOUT', 'TBUTTONLAYOUT', iptrw);
+    RegisterProperty('MARGIN', 'INTEGER', iptrw);
+    RegisterProperty('NUMGLYPHS', 'BYTE', iptrw);
+    RegisterProperty('STYLE', 'TBUTTONSTYLE', iptrw);
+    RegisterProperty('SPACING', 'INTEGER', iptrw);
+  end;
+end;
+
+
+
+procedure SIRegister_Buttons_TypesAndConsts(Cl: TPSPascalCompiler);
+begin
+  Cl.AddTypeS('TButtonLayout', '(blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom)');
+  Cl.AddTypeS('TButtonState', '(bsUp, bsDisabled, bsDown, bsExclusive)');
+  Cl.AddTypeS('TButtonStyle', '(bsAutoDetect, bsWin31, bsNew)');
+  Cl.AddTypeS('TBitBtnKind', '(bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll)');
+
+end;
+
+procedure SIRegister_Buttons(Cl: TPSPascalCompiler);
+begin
+  SIRegister_Buttons_TypesAndConsts(cl);
+  SIRegisterTSPEEDBUTTON(cl);
+  SIRegisterTBITBTN(cl);
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+
+end.
+
+
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_classes.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_classes.pas
new file mode 100644
index 0000000..ff86334
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_classes.pas	
@@ -0,0 +1,320 @@
+{ Compiletime Classes support }
+unit uPSC_classes;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+{
+  Will register files from:
+    Classes (exception TPersistent and TComponent)
+
+  Register STD first
+
+}
+
+procedure SIRegister_Classes_TypesAndConsts(Cl: TPSPascalCompiler);
+
+procedure SIRegisterTStrings(cl: TPSPascalCompiler; Streams: Boolean);
+procedure SIRegisterTStringList(cl: TPSPascalCompiler);
+{$IFNDEF PS_MINIVCL}
+procedure SIRegisterTBITS(Cl: TPSPascalCompiler);
+{$ENDIF}
+procedure SIRegisterTSTREAM(Cl: TPSPascalCompiler);
+procedure SIRegisterTHANDLESTREAM(Cl: TPSPascalCompiler);
+{$IFNDEF PS_MINIVCL}
+procedure SIRegisterTMEMORYSTREAM(Cl: TPSPascalCompiler);
+{$ENDIF}
+procedure SIRegisterTFILESTREAM(Cl: TPSPascalCompiler);
+{$IFNDEF PS_MINIVCL}
+procedure SIRegisterTCUSTOMMEMORYSTREAM(Cl: TPSPascalCompiler);
+procedure SIRegisterTRESOURCESTREAM(Cl: TPSPascalCompiler);
+procedure SIRegisterTPARSER(Cl: TPSPascalCompiler);
+procedure SIRegisterTCOLLECTIONITEM(CL: TPSPascalCompiler);
+procedure SIRegisterTCOLLECTION(CL: TPSPascalCompiler);
+{$IFDEF DELPHI3UP}
+procedure SIRegisterTOWNEDCOLLECTION(CL: TPSPascalCompiler);
+{$ENDIF}
+{$ENDIF}
+
+procedure SIRegister_Classes(Cl: TPSPascalCompiler; Streams: Boolean{$IFDEF D4PLUS}=True{$ENDIF});
+
+implementation
+
+procedure SIRegisterTStrings(cl: TPSPascalCompiler; Streams: Boolean); // requires TPersistent
+begin
+  with Cl.AddClassN(cl.FindClass('TPersistent'), 'TStrings') do
+  begin
+    IsAbstract := True;
+    RegisterMethod('function Add(S: string): Integer;');
+    RegisterMethod('procedure Append(S: string);');
+    RegisterMethod('procedure AddStrings(Strings: TStrings);');
+    RegisterMethod('procedure Clear;');
+    RegisterMethod('procedure Delete(Index: Integer);');
+    RegisterMethod('function IndexOf(const S: string): Integer; ');
+    RegisterMethod('procedure Insert(Index: Integer; S: string); ');
+    RegisterProperty('Count', 'Integer', iptR);
+    RegisterProperty('Text', 'String', iptrw);
+    RegisterProperty('CommaText', 'String', iptrw);
+    if Streams then
+    begin
+      RegisterMethod('procedure LoadFromFile(FileName: string); ');
+      RegisterMethod('procedure SaveToFile(FileName: string); ');
+    end;
+    RegisterProperty('Strings', 'String Integer', iptRW);
+    SetDefaultPropery('Strings');
+    RegisterProperty('Objects', 'TObject Integer', iptRW);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('procedure BeginUpdate;');
+    RegisterMethod('procedure EndUpdate;');
+    RegisterMethod('function Equals(Strings: TStrings): Boolean;');
+    RegisterMethod('procedure Exchange(Index1, Index2: Integer);');
+    RegisterMethod('function IndexOfName(Name: string): Integer;');
+    if Streams then
+      RegisterMethod('procedure LoadFromStream(Stream: TStream); ');
+    RegisterMethod('procedure Move(CurIndex, NewIndex: Integer); ');
+    if Streams then
+      RegisterMethod('procedure SaveToStream(Stream: TStream); ');
+    RegisterMethod('procedure SetText(Text: PChar); ');
+    RegisterProperty('Names', 'String Integer', iptr);
+    RegisterProperty('Values', 'String String', iptRW);
+    RegisterMethod('function AddObject(S:String;AObject:TObject):integer');
+    RegisterMethod('function GetText:PChar');
+    RegisterMethod('function IndexofObject(AObject:tObject):Integer');
+    RegisterMethod('procedure InsertObject(Index:Integer;S:String;AObject:TObject)');
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTSTRINGLIST(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TStrings'), 'TStringList') do
+  begin
+    RegisterMethod('function Find(S:String;var Index:Integer):Boolean');
+    RegisterMethod('procedure Sort');
+    RegisterProperty('Duplicates', 'TDuplicates', iptrw);
+    RegisterProperty('Sorted', 'Boolean', iptrw);
+    RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
+    RegisterProperty('OnChanging', 'TNotifyEvent', iptrw);
+  end;
+end;
+
+{$IFNDEF PS_MINIVCL}
+procedure SIRegisterTBITS(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TObject'), 'TBits') do
+  begin
+    RegisterMethod('function OpenBit:Integer');
+    RegisterProperty('Bits', 'Boolean Integer', iptrw);
+    RegisterProperty('Size', 'Integer', iptrw);
+  end;
+end;
+{$ENDIF}
+
+procedure SIRegisterTSTREAM(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TOBJECT'), 'TStream') do
+  begin
+    IsAbstract := True;
+    RegisterMethod('function Read(Buffer:String;Count:LongInt):LongInt');
+    RegisterMethod('function Write(Buffer:String;Count:LongInt):LongInt');
+    RegisterMethod('function Seek(Offset:LongInt;Origin:Word):LongInt');
+    RegisterMethod('procedure ReadBuffer(Buffer:String;Count:LongInt)');
+    RegisterMethod('procedure WriteBuffer(Buffer:String;Count:LongInt)');
+    {$IFDEF DELPHI4UP}
+    RegisterMethod('function CopyFrom(Source:TStream;Count:Int64):LongInt');
+    {$ELSE}
+    RegisterMethod('function CopyFrom(Source:TStream;Count:Integer):LongInt');
+    {$ENDIF}
+    RegisterProperty('Position', 'LongInt', iptrw);
+    RegisterProperty('Size', 'LongInt', iptrw);
+  end;
+end;
+
+procedure SIRegisterTHANDLESTREAM(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TSTREAM'), 'THandleStream') do
+  begin
+    RegisterMethod('constructor Create(AHandle:Integer)');
+    RegisterProperty('Handle', 'Integer', iptr);
+  end;
+end;
+
+{$IFNDEF PS_MINIVCL}
+procedure SIRegisterTMEMORYSTREAM(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMMEMORYSTREAM'), 'TMemoryStream') do
+  begin
+    RegisterMethod('procedure Clear');
+    RegisterMethod('procedure LoadFromStream(Stream:TStream)');
+    RegisterMethod('procedure LoadFromFile(FileName:String)');
+    RegisterMethod('procedure SetSize(NewSize:LongInt)');
+  end;
+end;
+{$ENDIF}
+
+procedure SIRegisterTFILESTREAM(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('THandleStream'), 'TFileStream') do
+  begin
+    RegisterMethod('constructor Create(FileName:String;Mode:Word)');
+  end;
+end;
+
+{$IFNDEF PS_MINIVCL}
+procedure SIRegisterTCUSTOMMEMORYSTREAM(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TSTREAM'), 'TCustomMemoryStream') do
+  begin
+    IsAbstract := True;
+    RegisterMethod('procedure SaveToStream(Stream:TStream)');
+    RegisterMethod('procedure SaveToFile(FileName:String)');
+  end;
+end;
+
+procedure SIRegisterTRESOURCESTREAM(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMMEMORYSTREAM'), 'TResourceStream') do
+  begin
+    RegisterMethod('constructor Create(Instance:THandle;ResName:String;ResType:PChar)');
+    RegisterMethod('constructor CreateFromId(Instance:THandle;ResId:Integer;ResType:PChar)');
+  end;
+end;
+
+procedure SIRegisterTPARSER(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TOBJECT'), 'TParser') do
+  begin
+    RegisterMethod('constructor Create(Stream:TStream)');
+    RegisterMethod('procedure CheckToken(t:char)');
+    RegisterMethod('procedure CheckTokenSymbol(s:string)');
+    RegisterMethod('procedure Error(Ident:Integer)');
+    RegisterMethod('procedure ErrorStr(Message:String)');
+    RegisterMethod('procedure HexToBinary(Stream:TStream)');
+    RegisterMethod('function NextToken:Char');
+    RegisterMethod('function SourcePos:LongInt');
+    RegisterMethod('function TokenComponentIdent:String');
+    RegisterMethod('function TokenFloat:Extended');
+    RegisterMethod('function TokenInt:LongInt');
+    RegisterMethod('function TokenString:String');
+    RegisterMethod('function TokenSymbolIs(S:String):Boolean');
+    RegisterProperty('SourceLine', 'Integer', iptr);
+    RegisterProperty('Token', 'Char', iptr);
+  end;
+end;
+
+procedure SIRegisterTCOLLECTIONITEM(CL: TPSPascalCompiler);
+Begin
+  if cl.FindClass('TCOLLECTION') = nil then cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCollection');
+  With cl.AddClassN(cl.FindClass('TPERSISTENT'),'TCollectionItem') do
+  begin
+  RegisterMethod('Constructor Create( Collection : TCollection)');
+  RegisterProperty('Collection', 'TCollection', iptrw);
+{$IFDEF DELPHI3UP}  RegisterProperty('Id', 'Integer', iptr); {$ENDIF}
+  RegisterProperty('Index', 'Integer', iptrw);
+{$IFDEF DELPHI3UP}  RegisterProperty('DisplayName', 'String', iptrw); {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTCOLLECTION(CL: TPSPascalCompiler);
+var
+  cr: TPSCompileTimeClass;
+Begin
+  cr := CL.FindClass('TCOLLECTION');
+  if cr = nil then cr := cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCollection');
+With cr do
+  begin
+//  RegisterMethod('constructor Create( ItemClass : TCollectionItemClass)');
+{$IFDEF DELPHI3UP}  RegisterMethod('function Owner : TPersistent'); {$ENDIF}
+  RegisterMethod('function Add : TCollectionItem');
+  RegisterMethod('procedure BeginUpdate');
+  RegisterMethod('procedure Clear');
+{$IFDEF DELPHI5UP}  RegisterMethod('procedure Delete( Index : Integer)'); {$ENDIF}
+  RegisterMethod('procedure EndUpdate');
+{$IFDEF DELPHI3UP}  RegisterMethod('function FindItemId( Id : Integer) : TCollectionItem'); {$ENDIF}
+{$IFDEF DELPHI3UP}  RegisterMethod('function Insert( Index : Integer) : TCollectionItem'); {$ENDIF}
+  RegisterProperty('Count', 'Integer', iptr);
+{$IFDEF DELPHI3UP}  RegisterProperty('ItemClass', 'TCollectionItemClass', iptr); {$ENDIF}
+  RegisterProperty('Items', 'TCollectionItem Integer', iptrw);
+  end;
+end;
+
+{$IFDEF DELPHI3UP}
+procedure SIRegisterTOWNEDCOLLECTION(CL: TPSPascalCompiler);
+Begin
+With Cl.AddClassN(cl.FindClass('TCOLLECTION'),'TOwnedCollection') do
+  begin
+//  RegisterMethod('Constructor CREATE( AOWNER : TPERSISTENT; ITEMCLASS : TCOLLECTIONITEMCLASS)');
+  end;
+end;
+{$ENDIF}
+{$ENDIF}
+
+procedure SIRegister_Classes_TypesAndConsts(Cl: TPSPascalCompiler);
+begin
+  cl.AddConstantN('soFromBeginning', 'Longint').Value.ts32 := 0;
+  cl.AddConstantN('soFromCurrent', 'Longint').Value.ts32 := 1;
+  cl.AddConstantN('soFromEnd', 'Longint').Value.ts32 := 2;
+  cl.AddConstantN('toEOF', 'Char').SetString(#0);
+  cl.AddConstantN('toSymbol', 'Char').SetString(#1);
+  cl.AddConstantN('toString', 'Char').SetString(#2);
+  cl.AddConstantN('toInteger', 'Char').SetString(#3);
+  cl.AddConstantN('toFloat', 'Char').SetString(#4);
+  cl.AddConstantN('fmCreate', 'Longint').Value.ts32 := $FFFF;
+  cl.AddConstantN('fmOpenRead', 'Longint').Value.ts32 := 0;
+  cl.AddConstantN('fmOpenWrite', 'Longint').Value.ts32 := 1;
+  cl.AddConstantN('fmOpenReadWrite', 'Longint').Value.ts32 := 2;
+  cl.AddConstantN('fmShareCompat', 'Longint').Value.ts32 := 0;
+  cl.AddConstantN('fmShareExclusive', 'Longint').Value.ts32 := $10;
+  cl.AddConstantN('fmShareDenyWrite', 'Longint').Value.ts32 := $20;
+  cl.AddConstantN('fmShareDenyRead', 'Longint').Value.ts32 := $30;
+  cl.AddConstantN('fmShareDenyNone', 'Longint').Value.ts32 := $40;
+  cl.AddConstantN('SecsPerDay', 'Longint').Value.ts32 := 86400;
+  cl.AddConstantN('MSecPerDay', 'Longint').Value.ts32 := 86400000;
+  cl.AddConstantN('DateDelta', 'Longint').Value.ts32 := 693594;
+  cl.AddTypeS('TAlignment', '(taLeftJustify, taRightJustify, taCenter)');
+  cl.AddTypeS('THelpEvent', 'function (Command: Word; Data: Longint; var CallHelp: Boolean): Boolean');
+  cl.AddTypeS('TGetStrProc', 'procedure(const S: string)');
+  cl.AddTypeS('TDuplicates', '(dupIgnore, dupAccept, dupError)');
+  cl.AddTypeS('TOperation', '(opInsert, opRemove)');
+  cl.AddTypeS('THANDLE', 'Longint');
+
+  cl.AddTypeS('TNotifyEvent', 'procedure (Sender: TObject)');
+end;
+
+procedure SIRegister_Classes(Cl: TPSPascalCompiler; Streams: Boolean);
+begin
+  SIRegister_Classes_TypesAndConsts(Cl);
+  if Streams then
+    SIRegisterTSTREAM(Cl);
+  SIRegisterTStrings(cl, Streams);
+  SIRegisterTStringList(cl);
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTBITS(cl);
+  {$ENDIF}
+  if Streams then
+  begin
+    SIRegisterTHANDLESTREAM(Cl);
+    SIRegisterTFILESTREAM(Cl);
+    {$IFNDEF PS_MINIVCL}
+    SIRegisterTCUSTOMMEMORYSTREAM(Cl);
+    SIRegisterTMEMORYSTREAM(Cl);
+    SIRegisterTRESOURCESTREAM(Cl);
+    {$ENDIF}
+  end;
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTPARSER(Cl);
+  SIRegisterTCOLLECTIONITEM(Cl);
+  SIRegisterTCOLLECTION(Cl);
+  {$IFDEF DELPHI3UP}
+  SIRegisterTOWNEDCOLLECTION(Cl);
+  {$ENDIF}
+  {$ENDIF}
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_comobj.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_comobj.pas
new file mode 100644
index 0000000..b436468
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_comobj.pas	
@@ -0,0 +1,39 @@
+{ compiletime ComObj support }
+unit uPSC_comobj;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+{
+ 
+Will register:
+ 
+function CreateOleObject(const ClassName: String): IDispatch;
+function GetActiveOleObject(const ClassName: String): IDispatch;
+
+}
+
+procedure SIRegister_ComObj(cl: TPSPascalCompiler);
+
+implementation
+
+procedure SIRegister_ComObj(cl: TPSPascalCompiler);
+begin
+  cl.AddTypeS('HResult', 'LongInt');
+  cl.AddTypeS('TGUID', 'record D1: LongWord; D2: Word; D3: Word; D4: array[0..7] of Byte; end;');
+  cl.AddTypeS('TCLSID', 'TGUID');
+  cl.AddTypeS('TIID', 'TGUID');
+  cl.AddDelphiFunction('procedure OleCheck(Result: HResult);');
+{$IFNDEF PS_NOINTERFACES}
+{$IFDEF DELPHI3UP}
+  cl.AddDelphiFunction('function StringToGUID(const S: string): TGUID;');
+  cl.AddDelphiFunction('function CreateComObject(const ClassID: TGUID): IUnknown;');
+{$ENDIF}
+{$ENDIF}
+  cl.AddDelphiFunction('function CreateOleObject(const ClassName: String): IDispatch;');
+  cl.AddDelphiFunction('function GetActiveOleObject(const ClassName: String): IDispatch;');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_controls.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_controls.pas
new file mode 100644
index 0000000..14d734b
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_controls.pas	
@@ -0,0 +1,236 @@
+{ Compiletime Controls support }
+unit uPSC_controls;
+{$I PascalScript.inc}
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+{
+  Will register files from:
+    Controls
+ 
+  Register the STD, Classes (at least the types&consts) and Graphics libraries first
+ 
+}
+
+procedure SIRegister_Controls_TypesAndConsts(Cl: TPSPascalCompiler);
+
+procedure SIRegisterTControl(Cl: TPSPascalCompiler);
+procedure SIRegisterTWinControl(Cl: TPSPascalCompiler); 
+procedure SIRegisterTGraphicControl(cl: TPSPascalCompiler); 
+procedure SIRegisterTCustomControl(cl: TPSPascalCompiler); 
+procedure SIRegisterTDragObject(cl: TPSPascalCompiler);
+
+procedure SIRegister_Controls(Cl: TPSPascalCompiler);
+
+
+implementation
+
+procedure SIRegisterTControl(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TComponent'), 'TCONTROL') do
+  begin
+    RegisterMethod('constructor Create(AOwner: TComponent);');
+    RegisterMethod('procedure BringToFront;');
+    RegisterMethod('procedure Hide;');
+    RegisterMethod('procedure Invalidate;virtual;');
+    RegisterMethod('procedure refresh;');
+    RegisterMethod('procedure Repaint;virtual;');
+    RegisterMethod('procedure SendToBack;');
+    RegisterMethod('procedure Show;');
+    RegisterMethod('procedure Update;virtual;');
+    RegisterMethod('procedure SetBounds(x,y,w,h: Integer);virtual;');
+    RegisterProperty('Left', 'Integer', iptRW);
+    RegisterProperty('Top', 'Integer', iptRW);
+    RegisterProperty('Width', 'Integer', iptRW);
+    RegisterProperty('Height', 'Integer', iptRW);
+    RegisterProperty('Hint', 'String', iptRW);
+    RegisterProperty('Align', 'TAlign', iptRW);
+    RegisterProperty('ClientHeight', 'Longint', iptRW);
+    RegisterProperty('ClientWidth', 'Longint', iptRW);
+    RegisterProperty('ShowHint', 'Boolean', iptRW);
+    RegisterProperty('Visible', 'Boolean', iptRW);
+    RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
+    RegisterProperty('CURSOR', 'TCURSOR', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('function Dragging: Boolean;');
+    RegisterMethod('function HasParent: Boolean');
+    RegisterMethod('procedure BEGINDRAG(IMMEDIATE:BOOLEAN)');
+    RegisterMethod('function CLIENTTOSCREEN(POINT:TPOINT):TPOINT');
+    RegisterMethod('procedure ENDDRAG(DROP:BOOLEAN)');
+    {$IFNDEF CLX}
+    RegisterMethod('function GETTEXTBUF(BUFFER:PCHAR;BUFSIZE:INTEGER):INTEGER');
+    RegisterMethod('function GETTEXTLEN:INTEGER');
+    RegisterMethod('procedure SETTEXTBUF(BUFFER:PCHAR)');
+    RegisterMethod('function PERFORM(MSG:CARDINAL;WPARAM,LPARAM:LONGINT):LONGINT');
+    {$ENDIF}
+    RegisterMethod('function SCREENTOCLIENT(POINT:TPOINT):TPOINT');
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTWinControl(Cl: TPSPascalCompiler); // requires TControl
+begin
+  with Cl.AddClassN(cl.FindClass('TControl'), 'TWINCONTROL') do
+  begin
+
+    with Cl.FindClass('TControl') do
+    begin
+      RegisterProperty('Parent', 'TWinControl', iptRW);
+    end;
+
+    {$IFNDEF CLX}
+    RegisterProperty('Handle', 'Longint', iptR);
+    {$ENDIF}
+    RegisterProperty('Showing', 'Boolean', iptR);
+    RegisterProperty('TabOrder', 'Integer', iptRW);
+    RegisterProperty('TabStop', 'Boolean', iptRW);
+    RegisterMethod('function CANFOCUS:BOOLEAN');
+    RegisterMethod('function FOCUSED:BOOLEAN');
+    RegisterProperty('CONTROLS', 'TCONTROL INTEGER', iptr);
+    RegisterProperty('CONTROLCOUNT', 'INTEGER', iptr);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('function HandleAllocated: Boolean;');
+    RegisterMethod('procedure HandleNeeded;');
+    RegisterMethod('procedure EnableAlign;');
+    RegisterMethod('procedure RemoveControl(AControl: TControl);');
+    RegisterMethod('procedure InsertControl(AControl: TControl);');
+    RegisterMethod('procedure Realign;');
+    RegisterMethod('procedure ScaleBy(M, D: Integer);');
+    RegisterMethod('procedure ScrollBy(DeltaX, DeltaY: Integer);');
+    RegisterMethod('procedure SetFocus; virtual;');
+    {$IFNDEF CLX}
+    RegisterMethod('procedure PAINTTO(DC:Longint;X,Y:INTEGER)');
+    {$ENDIF}
+
+    RegisterMethod('function CONTAINSCONTROL(CONTROL:TCONTROL):BOOLEAN');
+    RegisterMethod('procedure DISABLEALIGN');
+    RegisterMethod('procedure UPDATECONTROLSTATE');
+
+    RegisterProperty('BRUSH', 'TBRUSH', iptr);
+    RegisterProperty('HELPCONTEXT', 'LONGINT', iptrw);
+    {$ENDIF}
+  end;
+end;
+procedure SIRegisterTGraphicControl(cl: TPSPascalCompiler); // requires TControl
+begin
+  Cl.AddClassN(cl.FindClass('TControl'), 'TGRAPHICCONTROL');
+end;
+
+procedure SIRegisterTCustomControl(cl: TPSPascalCompiler); // requires TWinControl
+begin
+  Cl.AddClassN(cl.FindClass('TWinControl'), 'TCUSTOMCONTROL');
+end;
+
+procedure SIRegister_Controls_TypesAndConsts(Cl: TPSPascalCompiler);
+begin
+{$IFNDEF FPC}
+  Cl.addTypeS('TEShiftState','(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble)');
+  {$ELSE}
+  Cl.addTypeS('TEShiftState','(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble,' +
+  'ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,ssScroll,ssTriple,ssQuad)');
+  {$ENDIF}
+  Cl.addTypeS('TShiftState','set of TEShiftState');
+  cl.AddTypeS('TMouseButton', '(mbLeft, mbRight, mbMiddle)');
+  cl.AddTypeS('TDragMode', '(dmManual, dmAutomatic)');
+  cl.AddTypeS('TDragState', '(dsDragEnter, dsDragLeave, dsDragMove)');
+  cl.AddTypeS('TDragKind', '(dkDrag, dkDock)');
+  cl.AddTypeS('TMouseEvent', 'procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);');
+  cl.AddTypeS('TMouseMoveEvent', 'procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer);');
+  cl.AddTypeS('TKeyEvent', 'procedure (Sender: TObject; var Key: Word; Shift: TShiftState);');
+  cl.AddTypeS('TKeyPressEvent', 'procedure(Sender: TObject; var Key: Char);');
+  cl.AddTypeS('TDragOverEvent', 'procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean)');
+  cl.AddTypeS('TDragDropEvent', 'procedure(Sender, Source: TObject;X, Y: Integer)');
+  cl.AddTypeS('HWND', 'Longint');
+
+  cl.AddTypeS('TEndDragEvent', 'procedure(Sender, Target: TObject; X, Y: Integer)');
+
+  cl.addTypeS('TAlign', '(alNone, alTop, alBottom, alLeft, alRight, alClient)');
+
+  cl.addTypeS('TAnchorKind', '(akTop, akLeft, akRight, akBottom)');
+  cl.addTypeS('TAnchors','set of TAnchorKind');
+  cl.AddTypeS('TModalResult', 'Integer');
+  cl.AddTypeS('TCursor', 'Integer');
+  cl.AddTypeS('TPoint', 'record x,y: Longint; end;');
+
+  cl.AddConstantN('mrNone', 'Integer').Value.ts32 := 0;
+  cl.AddConstantN('mrOk', 'Integer').Value.ts32 := 1;
+  cl.AddConstantN('mrCancel', 'Integer').Value.ts32 := 2;
+  cl.AddConstantN('mrAbort', 'Integer').Value.ts32 := 3;
+  cl.AddConstantN('mrRetry', 'Integer').Value.ts32 := 4;
+  cl.AddConstantN('mrIgnore', 'Integer').Value.ts32 := 5;
+  cl.AddConstantN('mrYes', 'Integer').Value.ts32 := 6;
+  cl.AddConstantN('mrNo', 'Integer').Value.ts32 := 7;
+  cl.AddConstantN('mrAll', 'Integer').Value.ts32 := 8;
+  cl.AddConstantN('mrNoToAll', 'Integer').Value.ts32 := 9;
+  cl.AddConstantN('mrYesToAll', 'Integer').Value.ts32 := 10;
+  cl.AddConstantN('crDefault', 'Integer').Value.ts32 := 0;
+  cl.AddConstantN('crNone', 'Integer').Value.ts32 := -1;
+  cl.AddConstantN('crArrow', 'Integer').Value.ts32 := -2;
+  cl.AddConstantN('crCross', 'Integer').Value.ts32 := -3;
+  cl.AddConstantN('crIBeam', 'Integer').Value.ts32 := -4;
+  cl.AddConstantN('crSizeNESW', 'Integer').Value.ts32 := -6;
+  cl.AddConstantN('crSizeNS', 'Integer').Value.ts32 := -7;
+  cl.AddConstantN('crSizeNWSE', 'Integer').Value.ts32 := -8;
+  cl.AddConstantN('crSizeWE', 'Integer').Value.ts32 := -9;
+  cl.AddConstantN('crUpArrow', 'Integer').Value.ts32 := -10;
+  cl.AddConstantN('crHourGlass', 'Integer').Value.ts32 := -11;
+  cl.AddConstantN('crDrag', 'Integer').Value.ts32 := -12;
+  cl.AddConstantN('crNoDrop', 'Integer').Value.ts32 := -13;
+  cl.AddConstantN('crHSplit', 'Integer').Value.ts32 := -14;
+  cl.AddConstantN('crVSplit', 'Integer').Value.ts32 := -15;
+  cl.AddConstantN('crMultiDrag', 'Integer').Value.ts32 := -16;
+  cl.AddConstantN('crSQLWait', 'Integer').Value.ts32 := -17;
+  cl.AddConstantN('crNo', 'Integer').Value.ts32 := -18;
+  cl.AddConstantN('crAppStart', 'Integer').Value.ts32 := -19;
+  cl.AddConstantN('crHelp', 'Integer').Value.ts32 := -20;
+{$IFDEF DELPHI3UP}
+  cl.AddConstantN('crHandPoint', 'Integer').Value.ts32 := -21;
+{$ENDIF}
+{$IFDEF DELPHI4UP}
+  cl.AddConstantN('crSizeAll', 'Integer').Value.ts32 := -22;
+{$ENDIF}
+end;
+
+procedure SIRegisterTDragObject(cl: TPSPascalCompiler);
+begin
+  with CL.AddClassN(CL.FindClass('TObject'),'TDragObject') do
+  begin
+{$IFNDEF PS_MINIVCL}
+{$IFDEF DELPHI4UP}
+    RegisterMethod('Procedure Assign( Source : TDragObject)');
+{$ENDIF}
+{$IFNDEF FPC}
+    RegisterMethod('Function GetName : String');
+    RegisterMethod('Function Instance : Longint');
+{$ENDIF}
+    RegisterMethod('Procedure HideDragImage');
+    RegisterMethod('Procedure ShowDragImage');
+{$IFDEF DELPHI4UP}
+    RegisterProperty('Cancelling', 'Boolean', iptrw);
+    RegisterProperty('DragHandle', 'Longint', iptrw);
+    RegisterProperty('DragPos', 'TPoint', iptrw);
+    RegisterProperty('DragTargetPos', 'TPoint', iptrw);
+    RegisterProperty('MouseDeltaX', 'Double', iptr);
+    RegisterProperty('MouseDeltaY', 'Double', iptr);
+{$ENDIF}
+{$ENDIF}
+  end;
+  Cl.AddTypeS('TStartDragEvent', 'procedure (Sender: TObject; var DragObject: TDragObject)');
+end;
+
+procedure SIRegister_Controls(Cl: TPSPascalCompiler);
+begin
+  SIRegister_Controls_TypesAndConsts(cl);
+  SIRegisterTDragObject(cl);
+  SIRegisterTControl(Cl);
+  SIRegisterTWinControl(Cl);
+  SIRegisterTGraphicControl(cl);
+  SIRegisterTCustomControl(cl);
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_dateutils.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_dateutils.pas
new file mode 100644
index 0000000..f6213c7
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_dateutils.pas	
@@ -0,0 +1,34 @@
+{ Compile time Date Time library }
+unit uPSC_dateutils;
+
+interface
+uses
+  SysUtils, uPSCompiler, uPSUtils;
+
+
+procedure RegisterDateTimeLibrary_C(S: TPSPascalCompiler);
+
+implementation
+
+procedure RegisterDatetimeLibrary_C(S: TPSPascalCompiler);
+begin
+  s.AddType('TDateTime', btDouble).ExportName := True;
+  s.AddDelphiFunction('function EncodeDate(Year, Month, Day: Word): TDateTime;');
+  s.AddDelphiFunction('function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;');
+  s.AddDelphiFunction('function TryEncodeDate(Year, Month, Day: Word; var Date: TDateTime): Boolean;');
+  s.AddDelphiFunction('function TryEncodeTime(Hour, Min, Sec, MSec: Word; var Time: TDateTime): Boolean;');
+  s.AddDelphiFunction('procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);');
+  s.AddDelphiFunction('procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word);');
+  s.AddDelphiFunction('function DayOfWeek(const DateTime: TDateTime): Word;');
+  s.AddDelphiFunction('function Date: TDateTime;');
+  s.AddDelphiFunction('function Time: TDateTime;');
+  s.AddDelphiFunction('function Now: TDateTime;');
+  s.AddDelphiFunction('function DateTimeToUnix(D: TDateTime): Int64;');
+  s.AddDelphiFunction('function UnixToDateTime(U: Int64): TDateTime;');
+
+  s.AddDelphiFunction('function DateToStr(D: TDateTime): String;');
+  s.AddDelphiFunction('function StrToDate(const s: String): TDateTime;');
+  s.AddDelphiFunction('function FormatDateTime(const fmt: String; D: TDateTime): String;');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_dll.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_dll.pas
new file mode 100644
index 0000000..dd5fcd6
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_dll.pas	
@@ -0,0 +1,158 @@
+{ Compiletime DLL importing support }
+unit uPSC_dll;
+
+{$I PascalScript.inc}
+interface
+{
+
+  Function FindWindow(c1, c2: PChar): Cardinal; external 'FindWindow@user32.dll stdcall';
+
+}
+uses
+  uPSCompiler, uPSUtils;
+
+  
+{$IFDEF DELPHI3UP }
+resourceString
+{$ELSE }
+const
+{$ENDIF }
+
+  RPS_Invalid_External = 'Invalid External';
+  RPS_InvalidCallingConvention = 'Invalid Calling Convention';
+
+
+
+function DllExternalProc(Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const OriginalName, FExternal: tbtstring): TPSRegProc;
+type
+
+  TDllCallingConvention = (clRegister
+  , clPascal
+  , ClCdecl
+  , ClStdCall
+  );
+
+var
+  DefaultCC: TDllCallingConvention;
+
+procedure RegisterDll_Compiletime(cs: TPSPascalCompiler);
+
+implementation
+
+function rpos(ch: tbtchar; const s: tbtstring): Longint;
+var
+  i: Longint;
+begin
+  for i := length(s) downto 1 do
+  if s[i] = ch then begin Result := i; exit; end;
+  result := 0;
+end;
+
+function RemoveQuotes(s: tbtstring): tbtstring;
+begin
+  result := s;
+  if result = '' then exit;
+  if Result[1] = '"' then delete(result ,1,1);
+  if (Result <> '') and (Result[Length(result)] = '"') then delete(result, length(result), 1);
+end;
+
+function DllExternalProc(Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const OriginalName, FExternal: tbtstring): TPSRegProc;
+var
+  FuncName,
+  Name,
+  FuncCC, s, s2: AnsiString;
+  CC: TDllCallingConvention;
+  DelayLoad, LoadWithAlteredSearchPath: Boolean;
+
+begin
+  Name := FastUpperCase(OriginalName);
+  DelayLoad := False;
+  LoadWithAlteredSearchPath := false;
+  FuncCC := FExternal;
+
+  if (pos(tbtChar('@'), FuncCC) = 0) then
+  begin
+    Sender.MakeError('', ecCustomError, tbtString(RPS_Invalid_External));
+    Result := nil;
+    exit;
+  end;
+  FuncName := copy(FuncCC, 1, rpos('@', FuncCC)-1)+#0;
+  delete(FuncCc, 1, length(FuncName));
+  if pos(tbtchar(' '), Funccc) <> 0 then
+  begin
+    if FuncCC[1] = '"' then
+    begin
+      Delete(FuncCC, 1, 1);
+      FuncName := RemoveQuotes(copy(FuncCC, 1, pos(tbtchar('"'), FuncCC)-1))+#0+FuncName;
+      Delete(FuncCC,1, pos(tbtchar('"'), FuncCC));
+      if (FuncCC <> '') and( FuncCC[1] = ' ') then delete(FuncCC,1,1);
+    end else
+    begin
+      FuncName := copy(FuncCc, 1, pos(tbtchar(' '),FuncCC)-1)+#0+FuncName;
+      Delete(FuncCC, 1, pos(tbtchar(' '), FuncCC));
+    end;
+    if pos(tbtchar(' '), FuncCC) > 0 then
+    begin
+      s := Copy(FuncCC, pos(tbtchar(' '), Funccc)+1, MaxInt);
+      FuncCC := FastUpperCase(Copy(FuncCC, 1, pos(tbtchar(' '), FuncCC)-1));
+      Delete(FuncCC, pos(tbtchar(' '), Funccc), MaxInt);
+      repeat
+        if pos(tbtchar(' '), s) > 0 then begin
+          s2 := Copy(s, 1, pos(tbtchar(' '), s)-1);
+          delete(s, 1, pos(tbtchar(' '), s));
+        end else begin
+          s2 := s;
+          s := '';
+        end;
+        if FastUppercase(s2) = 'DELAYLOAD' then
+          DelayLoad := True
+        {$IFNDEF LINUX}
+        else
+        if FastUppercase(s2) = 'LOADWITHALTEREDSEARCHPATH' then
+          LoadWithAlteredSearchPath := True
+        {$ENDIF}
+        else
+        begin
+          Sender.MakeError('', ecCustomError, 'Invalid External');
+          Result := nil;
+          exit;
+        end;
+      until s = '';
+
+    end else
+      FuncCC := FastUpperCase(FuncCC);
+    if FuncCC = 'STDCALL' then cc := ClStdCall else
+    if FuncCC = 'CDECL' then cc := ClCdecl else
+    if FuncCC = 'REGISTER' then cc := clRegister else
+    if FuncCC = 'PASCAL' then cc := clPascal else
+    begin
+      Sender.MakeError('', ecCustomError, tbtstring(RPS_InvalidCallingConvention));
+      Result := nil;
+      exit;
+    end;
+  end else
+  begin
+    FuncName := RemoveQuotes(FuncCC)+#0+FuncName;
+    FuncCC := '';
+    cc := DefaultCC;
+  end;
+  FuncName := 'dll:'+FuncName+tbtchar(cc)+tbtchar(bytebool(DelayLoad)) +tbtchar(bytebool(LoadWithAlteredSearchPath))+ declToBits(Decl);
+  Result := TPSRegProc.Create;
+  Result.ImportDecl := FuncName;
+  Result.Decl.Assign(Decl);
+  Result.Name := Name;
+  Result.OrgName := OriginalName;
+  Result.ExportName := False;
+end;
+
+procedure RegisterDll_Compiletime(cs: TPSPascalCompiler);
+begin
+  cs.OnExternalProc := DllExternalProc;
+  cs.AddFunction('procedure UnloadDll(s: string)');
+  cs.AddFunction('function DLLGetLastError: Longint');
+end;
+
+begin
+  DefaultCc := clRegister;
+end.
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_extctrls.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_extctrls.pas
new file mode 100644
index 0000000..785b5d3
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_extctrls.pas	
@@ -0,0 +1,327 @@
+{ Compiletime Extctrls support }
+unit uPSC_extctrls;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+(*
+   Will register files from:
+     ExtCtrls
+ 
+Requires:
+  STD, classes, controls, graphics {$IFNDEF PS_MINIVCL}, stdctrls {$ENDIF}
+*)
+
+procedure SIRegister_ExtCtrls_TypesAndConsts(cl: TPSPascalCompiler);
+
+procedure SIRegisterTSHAPE(Cl: TPSPascalCompiler);
+procedure SIRegisterTIMAGE(Cl: TPSPascalCompiler);
+procedure SIRegisterTPAINTBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTBEVEL(Cl: TPSPascalCompiler);
+procedure SIRegisterTTIMER(Cl: TPSPascalCompiler);
+procedure SIRegisterTCUSTOMPANEL(Cl: TPSPascalCompiler);
+procedure SIRegisterTPANEL(Cl: TPSPascalCompiler);
+{$IFNDEF CLX}
+procedure SIRegisterTPAGE(Cl: TPSPascalCompiler);
+procedure SIRegisterTNOTEBOOK(Cl: TPSPascalCompiler);
+procedure SIRegisterTHEADER(Cl: TPSPascalCompiler);
+{$ENDIF}
+procedure SIRegisterTCUSTOMRADIOGROUP(Cl: TPSPascalCompiler);
+procedure SIRegisterTRADIOGROUP(Cl: TPSPascalCompiler);
+
+procedure SIRegister_ExtCtrls(cl: TPSPascalCompiler);
+
+implementation
+procedure SIRegisterTSHAPE(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TSHAPE') do
+  begin
+    RegisterProperty('BRUSH', 'TBRUSH', iptrw);
+    RegisterProperty('PEN', 'TPEN', iptrw);
+    RegisterProperty('SHAPE', 'TSHAPETYPE', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('procedure STYLECHANGED(SENDER:TOBJECT)');
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTIMAGE(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TIMAGE') do
+  begin
+    RegisterProperty('CANVAS', 'TCANVAS', iptr);
+    RegisterProperty('AUTOSIZE', 'BOOLEAN', iptrw);
+    RegisterProperty('CENTER', 'BOOLEAN', iptrw);
+    RegisterProperty('PICTURE', 'TPICTURE', iptrw);
+    RegisterProperty('STRETCH', 'BOOLEAN', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTPAINTBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TPAINTBOX') do
+  begin
+    RegisterProperty('CANVAS', 'TCanvas', iptr);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONPAINT', 'TNOTIFYEVENT', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTBEVEL(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TBEVEL') do
+  begin
+    RegisterProperty('SHAPE', 'TBEVELSHAPE', iptrw);
+    RegisterProperty('STYLE', 'TBEVELSTYLE', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTTIMER(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCOMPONENT'), 'TTIMER') do
+  begin
+    RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
+    RegisterProperty('INTERVAL', 'CARDINAL', iptrw);
+    RegisterProperty('ONTIMER', 'TNOTIFYEVENT', iptrw);
+  end;
+end;
+
+procedure SIRegisterTCUSTOMPANEL(Cl: TPSPascalCompiler);
+begin
+  Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TCUSTOMPANEL');
+end;
+
+procedure SIRegisterTPANEL(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMPANEL'), 'TPANEL') do
+  begin
+    RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
+    RegisterProperty('BEVELINNER', 'TPanelBevel', iptrw);
+    RegisterProperty('BEVELOUTER', 'TPanelBevel', iptrw);
+    RegisterProperty('BEVELWIDTH', 'TBevelWidth', iptrw);
+    RegisterProperty('BORDERWIDTH', 'TBorderWidth', iptrw);
+    RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('LOCKED', 'Boolean', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONRESIZE', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+{$IFNDEF CLX}
+procedure SIRegisterTPAGE(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TPAGE') do
+  begin
+    RegisterProperty('CAPTION', 'String', iptrw);
+  end;
+end;
+procedure SIRegisterTNOTEBOOK(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TNOTEBOOK') do
+  begin
+    RegisterProperty('ACTIVEPAGE', 'String', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('PAGEINDEX', 'INTEGER', iptrw);
+    RegisterProperty('PAGES', 'TSTRINGS', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONPAGECHANGED', 'TNOTIFYEVENT', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTHEADER(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'THEADER') do
+  begin
+    RegisterProperty('SECTIONWIDTH', 'INTEGER INTEGER', iptrw);
+    RegisterProperty('ALLOWRESIZE', 'BOOLEAN', iptrw);
+    RegisterProperty('BORDERSTYLE', 'TBORDERSTYLE', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('SECTIONS', 'TSTRINGS', iptrw);
+    RegisterProperty('ONSIZING', 'TSECTIONEVENT', iptrw);
+    RegisterProperty('ONSIZED', 'TSECTIONEVENT', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    {$ENDIF}
+  end;
+end;
+{$ENDIF}
+
+procedure SIRegisterTCUSTOMRADIOGROUP(Cl: TPSPascalCompiler);
+begin
+  Cl.AddClassN(cl.FindClass('TCUSTOMGROUPBOX'), 'TCUSTOMRADIOGROUP');
+end;
+
+procedure SIRegisterTRADIOGROUP(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMRADIOGROUP'), 'TRADIOGROUP') do
+  begin
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('COLUMNS', 'Integer', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('ITEMINDEX', 'Integer', iptrw);
+    RegisterProperty('ITEMS', 'TStrings', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegister_ExtCtrls_TypesAndConsts(cl: TPSPascalCompiler);
+begin
+  cl.AddTypeS('TShapeType', '(stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle)');
+  cl.AddTypeS('TBevelStyle', '(bsLowered, bsRaised)');
+  cl.AddTypeS('TBevelShape', '(bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine,bsSpacer)');
+  cl.AddTypeS('TPanelBevel', '(bvNone, bvLowered, bvRaised,bvSpace)');
+  cl.AddTypeS('TBevelWidth', 'Longint');
+  cl.AddTypeS('TBorderWidth', 'Longint');
+  cl.AddTypeS('TSectionEvent', 'procedure(Sender: TObject; ASection, AWidth: Integer)');
+end;
+
+procedure SIRegister_ExtCtrls(cl: TPSPascalCompiler);
+begin
+  SIRegister_ExtCtrls_TypesAndConsts(cl);
+
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTSHAPE(Cl);
+  SIRegisterTIMAGE(Cl);
+  SIRegisterTPAINTBOX(Cl);
+  {$ENDIF}
+  SIRegisterTBEVEL(Cl);
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTTIMER(Cl);
+  {$ENDIF}
+  SIRegisterTCUSTOMPANEL(Cl);
+  SIRegisterTPANEL(Cl);
+  {$IFNDEF PS_MINIVCL}
+  {$IFNDEF CLX}
+  SIRegisterTPAGE(Cl);
+  SIRegisterTNOTEBOOK(Cl);
+  SIRegisterTHEADER(Cl);
+  {$ENDIF}
+  SIRegisterTCUSTOMRADIOGROUP(Cl);
+  SIRegisterTRADIOGROUP(Cl);
+  {$ENDIF}
+end;
+
+end.
+
+
+
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_forms.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_forms.pas
new file mode 100644
index 0000000..7969094
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_forms.pas	
@@ -0,0 +1,271 @@
+{ Compiletime Forms support }
+unit uPSC_forms;
+{$I PascalScript.inc}
+
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+procedure SIRegister_Forms_TypesAndConsts(Cl: TPSPascalCompiler);
+
+
+procedure SIRegisterTCONTROLSCROLLBAR(Cl: TPSPascalCompiler);
+procedure SIRegisterTSCROLLINGWINCONTROL(Cl: TPSPascalCompiler);
+procedure SIRegisterTSCROLLBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTFORM(Cl: TPSPascalCompiler);
+procedure SIRegisterTAPPLICATION(Cl: TPSPascalCompiler);
+
+procedure SIRegister_Forms(Cl: TPSPascalCompiler);
+
+implementation
+
+procedure SIRegisterTCONTROLSCROLLBAR(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCONTROLSCROLLBAR') do
+  begin
+    RegisterProperty('KIND', 'TSCROLLBARKIND', iptr);
+    RegisterProperty('SCROLLPOS', 'INTEGER', iptr);
+    RegisterProperty('MARGIN', 'WORD', iptrw);
+    RegisterProperty('INCREMENT', 'TSCROLLBARINC', iptrw);
+    RegisterProperty('RANGE', 'INTEGER', iptrw);
+    RegisterProperty('POSITION', 'INTEGER', iptrw);
+    RegisterProperty('TRACKING', 'BOOLEAN', iptrw);
+    RegisterProperty('VISIBLE', 'BOOLEAN', iptrw);
+  end;
+end;
+
+procedure SIRegisterTSCROLLINGWINCONTROL(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TSCROLLINGWINCONTROL') do
+  begin
+    RegisterMethod('procedure SCROLLINVIEW(ACONTROL:TCONTROL)');
+    RegisterProperty('HORZSCROLLBAR', 'TCONTROLSCROLLBAR', iptrw);
+    RegisterProperty('VERTSCROLLBAR', 'TCONTROLSCROLLBAR', iptrw);
+  end;
+end;
+
+procedure SIRegisterTSCROLLBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TSCROLLINGWINCONTROL'), 'TSCROLLBOX') do
+  begin
+    RegisterProperty('BORDERSTYLE', 'TBORDERSTYLE', iptrw);
+    RegisterProperty('COLOR', 'TCOLOR', iptrw);
+    RegisterProperty('FONT', 'TFONT', iptrw);                    
+    RegisterProperty('AUTOSCROLL', 'BOOLEAN', iptrw);
+    RegisterProperty('PARENTCOLOR', 'BOOLEAN', iptrw);
+    RegisterProperty('PARENTFONT', 'BOOLEAN', iptrw);
+    RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONENTER', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONEXIT', 'TNOTIFYEVENT', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('ONRESIZE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('DRAGCURSOR', 'TCURSOR', iptrw);
+    RegisterProperty('DRAGMODE', 'TDRAGMODE', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'BOOLEAN', iptrw);
+    RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptrw);
+    RegisterProperty('CTL3D', 'BOOLEAN', iptrw);
+    RegisterProperty('PARENTCTL3D', 'BOOLEAN', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDRAGDROPEVENT', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDRAGOVEREVENT', iptrw);
+    RegisterProperty('ONENDDRAG', 'TENDDRAGEVENT', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMOUSEEVENT', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMOUSEMOVEEVENT', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMOUSEEVENT', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTFORM(Cl: TPSPascalCompiler);
+begin
+ with Cl.AddClassN(cl.FindClass('TSCROLLINGWINCONTROL'), 'TFORM') do
+  begin
+    {$IFDEF DELPHI4UP}
+    RegisterMethod('constructor CREATENEW(AOWNER:TCOMPONENT; Dummy: Integer)');
+    {$ELSE}
+    RegisterMethod('constructor CREATENEW(AOWNER:TCOMPONENT)');
+    {$ENDIF}
+    RegisterMethod('procedure CLOSE');
+    RegisterMethod('procedure HIDE');
+    RegisterMethod('procedure SHOW');
+    RegisterMethod('function SHOWMODAL:INTEGER');
+    RegisterMethod('procedure RELEASE');
+    RegisterProperty('ACTIVE', 'BOOLEAN', iptr);
+    RegisterProperty('ACTIVECONTROL', 'TWINCONTROL', iptrw);
+    RegisterProperty('BORDERICONS', 'TBorderIcons', iptrw);
+    RegisterProperty('BORDERSTYLE', 'TFORMBORDERSTYLE', iptrw);
+    RegisterProperty('CAPTION', 'NativeString', iptrw);
+    RegisterProperty('AUTOSCROLL', 'BOOLEAN', iptrw);
+    RegisterProperty('COLOR', 'TCOLOR', iptrw);
+    RegisterProperty('FONT', 'TFONT', iptrw);
+    RegisterProperty('FORMSTYLE', 'TFORMSTYLE', iptrw);
+    RegisterProperty('KEYPREVIEW', 'BOOLEAN', iptrw);
+    RegisterProperty('POSITION', 'TPOSITION', iptrw);
+    RegisterProperty('ONACTIVATE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONCLOSE', 'TCLOSEEVENT', iptrw);
+    RegisterProperty('ONCLOSEQUERY', 'TCLOSEQUERYEVENT', iptrw);
+    RegisterProperty('ONCREATE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONDESTROY', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONDEACTIVATE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONHIDE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKEYEVENT', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKEYPRESSEVENT', iptrw);
+    RegisterProperty('ONKEYUP', 'TKEYEVENT', iptrw);
+    RegisterProperty('ONRESIZE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONSHOW', 'TNOTIFYEVENT', iptrw);
+
+
+    {$IFNDEF PS_MINIVCL}
+    {$IFNDEF CLX}
+    RegisterMethod('procedure ARRANGEICONS');
+//    RegisterMethod('function GETFORMIMAGE:TBITMAP');
+    RegisterMethod('procedure PRINT');
+    RegisterMethod('procedure SENDCANCELMODE(SENDER:TCONTROL)');
+    RegisterProperty('ACTIVEOLECONTROL', 'TWINCONTROL', iptrw);
+    RegisterProperty('OLEFORMOBJECT', 'TOLEFORMOBJECT', iptrw);
+    RegisterProperty('CLIENTHANDLE', 'LONGINT', iptr);
+    RegisterProperty('TILEMODE', 'TTILEMODE', iptrw);
+    {$ENDIF}
+    RegisterMethod('procedure CASCADE');
+    RegisterMethod('function CLOSEQUERY:BOOLEAN');
+    RegisterMethod('procedure DEFOCUSCONTROL(CONTROL:TWINCONTROL;REMOVING:BOOLEAN)');
+    RegisterMethod('procedure FOCUSCONTROL(CONTROL:TWINCONTROL)');
+    RegisterMethod('procedure NEXT');
+    RegisterMethod('procedure PREVIOUS');
+    RegisterMethod('function SETFOCUSEDCONTROL(CONTROL:TWINCONTROL):BOOLEAN');
+    RegisterMethod('procedure TILE');
+    RegisterProperty('ACTIVEMDICHILD', 'TFORM', iptr);
+    RegisterProperty('CANVAS', 'TCANVAS', iptr);
+    RegisterProperty('DROPTARGET', 'BOOLEAN', iptrw);
+    RegisterProperty('MODALRESULT', 'Longint', iptrw);
+    RegisterProperty('MDICHILDCOUNT', 'INTEGER', iptr);
+    RegisterProperty('MDICHILDREN', 'TFORM INTEGER', iptr);
+    RegisterProperty('ICON', 'TICON', iptrw);
+    RegisterProperty('MENU', 'TMAINMENU', iptrw);
+    RegisterProperty('OBJECTMENUITEM', 'TMENUITEM', iptrw);
+    RegisterProperty('PIXELSPERINCH', 'INTEGER', iptrw);
+    RegisterProperty('PRINTSCALE', 'TPRINTSCALE', iptrw);
+    RegisterProperty('SCALED', 'BOOLEAN', iptrw);
+    RegisterProperty('WINDOWSTATE', 'TWINDOWSTATE', iptrw);
+    RegisterProperty('WINDOWMENU', 'TMENUITEM', iptrw);
+    RegisterProperty('CTL3D', 'BOOLEAN', iptrw);
+    RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDRAGDROPEVENT', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDRAGOVEREVENT', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMOUSEEVENT', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMOUSEMOVEEVENT', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMOUSEEVENT', iptrw);
+    RegisterProperty('ONPAINT', 'TNOTIFYEVENT', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegisterTAPPLICATION(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCOMPONENT'), 'TAPPLICATION') do
+  begin
+    RegisterMethod('procedure BRINGTOFRONT');
+{$IFDEF PS_PANSICHAR}
+    RegisterMethod('function MESSAGEBOX(TEXT,CAPTION:PANSICHAR;FLAGS:WORD):INTEGER');
+{$ELSE}
+    RegisterMethod('function MESSAGEBOX(TEXT,CAPTION:PCHAR;FLAGS:WORD):INTEGER');
+{$ENDIF}
+    RegisterMethod('procedure MINIMIZE');
+    RegisterMethod('procedure PROCESSMESSAGES');
+    RegisterMethod('procedure RESTORE');
+    RegisterMethod('procedure TERMINATE');
+    RegisterProperty('ACTIVE', 'BOOLEAN', iptr);
+    RegisterProperty('EXENAME', 'NativeString', iptr);
+    {$IFNDEF CLX}
+    RegisterProperty('HANDLE', 'LONGINT', iptrw);
+    RegisterProperty('UPDATEFORMATSETTINGS', 'BOOLEAN', iptrw);
+    {$ENDIF}
+    RegisterProperty('HINT', 'NativeString', iptrw);
+    RegisterProperty('MAINFORM', 'TFORM', iptr);
+    RegisterProperty('SHOWHINT', 'BOOLEAN', iptrw);
+    RegisterProperty('SHOWMAINFORM', 'BOOLEAN', iptrw);
+    RegisterProperty('TERMINATED', 'BOOLEAN', iptr);
+    RegisterProperty('TITLE', 'NativeString', iptrw);
+    RegisterProperty('ONACTIVATE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONDEACTIVATE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONIDLE', 'TIDLEEVENT', iptrw);
+    RegisterProperty('ONHINT', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONMINIMIZE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONRESTORE', 'TNOTIFYEVENT', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('procedure CONTROLDESTROYED(CONTROL:TCONTROL)');
+    RegisterMethod('procedure CANCELHINT');
+    RegisterMethod('procedure HANDLEEXCEPTION(SENDER:TOBJECT)');
+    RegisterMethod('procedure HANDLEMESSAGE');
+    RegisterMethod('procedure HIDEHINT');
+//    RegisterMethod('procedure HINTMOUSEMESSAGE(CONTROL:TCONTROL;var MESSAGE:TMESSAGE)');
+    RegisterMethod('procedure INITIALIZE');
+    RegisterMethod('procedure NORMALIZETOPMOSTS');
+    RegisterMethod('procedure RESTORETOPMOSTS');
+    RegisterMethod('procedure RUN');
+//    RegisterMethod('procedure SHOWEXCEPTION(E:EXCEPTION)');
+    {$IFNDEF CLX}
+    RegisterMethod('function HELPCOMMAND(COMMAND:INTEGER;DATA:LONGINT):BOOLEAN');
+    RegisterMethod('function HELPCONTEXT(CONTEXT:THELPCONTEXT):BOOLEAN');
+    RegisterMethod('function HELPJUMP(JUMPID:NativeString):BOOLEAN');
+    RegisterProperty('DIALOGHANDLE', 'LONGINT', iptrw);
+    RegisterMethod('procedure CREATEHANDLE');
+//    RegisterMethod('procedure HOOKMAINWINDOW(HOOK:TWINDOWHOOK)');
+//    RegisterMethod('procedure UNHOOKMAINWINDOW(HOOK:TWINDOWHOOK)');
+    {$ENDIF}
+    RegisterProperty('HELPFILE', 'NativeString', iptrw);
+    RegisterProperty('HINTCOLOR', 'TCOLOR', iptrw);
+    RegisterProperty('HINTPAUSE', 'INTEGER', iptrw);
+    RegisterProperty('HINTSHORTPAUSE', 'INTEGER', iptrw);
+    RegisterProperty('HINTHIDEPAUSE', 'INTEGER', iptrw);
+    RegisterProperty('ICON', 'TICON', iptrw);
+    RegisterProperty('ONHELP', 'THELPEVENT', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegister_Forms_TypesAndConsts(Cl: TPSPascalCompiler);
+begin
+  Cl.AddTypeS('TIdleEvent', 'procedure (Sender: TObject; var Done: Boolean)');
+  cl.AddTypeS('TScrollBarKind', '(sbHorizontal, sbVertical)');
+  cl.AddTypeS('TScrollBarInc', 'SmallInt');
+  cl.AddTypeS('TFormBorderStyle', '(bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin)');
+  cl.AddTypeS('TBorderStyle', 'TFormBorderStyle');
+  cl.AddTypeS('TWindowState', '(wsNormal, wsMinimized, wsMaximized)');
+  cl.AddTypeS('TFormStyle', '(fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop)');
+  cl.AddTypeS('TPosition', '(poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter)');
+  cl.AddTypeS('TPrintScale', '(poNone, poProportional, poPrintToFit)');
+  cl.AddTypeS('TCloseAction', '(caNone, caHide, caFree, caMinimize)');
+  cl.AddTypeS('TCloseEvent' ,'procedure(Sender: TObject; var Action: TCloseAction)');
+  cl.AddTypeS('TCloseQueryEvent' ,'procedure(Sender: TObject; var CanClose: Boolean)');
+  cl.AddTypeS('TBorderIcon' ,'(biSystemMenu, biMinimize, biMaximize, biHelp)');
+  cl.AddTypeS('TBorderIcons', 'set of TBorderIcon');
+  cl.AddTypeS('THELPCONTEXT', 'Longint');
+end;
+
+procedure SIRegister_Forms(Cl: TPSPascalCompiler);
+begin
+  SIRegister_Forms_TypesAndConsts(cl);
+
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTCONTROLSCROLLBAR(cl);
+  {$ENDIF}
+  SIRegisterTScrollingWinControl(cl);
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTSCROLLBOX(cl);
+  {$ENDIF}
+  SIRegisterTForm(Cl);
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTApplication(Cl);
+  {$ENDIF}
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+
+end.
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_graphics.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_graphics.pas
new file mode 100644
index 0000000..e96bbe2
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_graphics.pas	
@@ -0,0 +1,275 @@
+{ Compiletime Graphics support }
+unit uPSC_graphics;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+
+
+procedure SIRegister_Graphics_TypesAndConsts(Cl: TPSPascalCompiler);
+procedure SIRegisterTGRAPHICSOBJECT(Cl: TPSPascalCompiler);
+procedure SIRegisterTFont(Cl: TPSPascalCompiler);
+procedure SIRegisterTPEN(Cl: TPSPascalCompiler);
+procedure SIRegisterTBRUSH(Cl: TPSPascalCompiler);
+procedure SIRegisterTCanvas(cl: TPSPascalCompiler);
+procedure SIRegisterTGraphic(CL: TPSPascalCompiler);
+procedure SIRegisterTBitmap(CL: TPSPascalCompiler; Streams: Boolean);
+
+procedure SIRegister_Graphics(Cl: TPSPascalCompiler; Streams: Boolean);
+
+implementation
+{$IFNDEF PS_NOGRAPHCONST}
+uses
+  {$IFDEF CLX}QGraphics{$ELSE}Graphics{$ENDIF};
+{$ELSE}
+{$IFNDEF CLX}
+{$IFNDEF FPC}
+uses
+  Windows;
+{$ENDIF}
+{$ENDIF}
+{$ENDIF}
+
+procedure SIRegisterTGRAPHICSOBJECT(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TGRAPHICSOBJECT') do
+  begin
+    RegisterProperty('ONCHANGE', 'TNOTIFYEVENT', iptrw);
+  end;
+end;
+
+procedure SIRegisterTFont(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGraphicsObject'), 'TFONT') do
+  begin
+    RegisterMethod('constructor Create;');
+{$IFNDEF CLX}
+    RegisterProperty('Handle', 'Integer', iptRW);
+{$ENDIF}
+    RegisterProperty('Color', 'TColor', iptRW);
+    RegisterProperty('Height', 'Integer', iptRW);
+    RegisterProperty('Name', 'String', iptRW);
+    RegisterProperty('Pitch', 'Byte', iptRW);
+    RegisterProperty('Size', 'Integer', iptRW);
+    RegisterProperty('PixelsPerInch', 'Integer', iptRW);
+    RegisterProperty('Style', 'TFontStyles', iptrw);
+  end;
+end;
+
+procedure SIRegisterTCanvas(cl: TPSPascalCompiler); // requires TPersistent
+begin
+  with Cl.AddClassN(cl.FindClass('TPersistent'), 'TCANVAS') do
+  begin
+    RegisterMethod('procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);');
+    RegisterMethod('procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);');
+//    RegisterMethod('procedure Draw(X, Y: Integer; Graphic: TGraphic);');
+    RegisterMethod('procedure Ellipse(X1, Y1, X2, Y2: Integer);');
+    RegisterMethod('procedure FillRect(const Rect: TRect);');
+{$IFNDEF CLX}
+    RegisterMethod('procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: Byte);');
+{$ENDIF}
+    RegisterMethod('procedure LineTo(X, Y: Integer);');
+    RegisterMethod('procedure MoveTo(X, Y: Integer);');
+    RegisterMethod('procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);');
+    RegisterMethod('procedure Rectangle(X1, Y1, X2, Y2: Integer);');
+    RegisterMethod('procedure Refresh;');
+    RegisterMethod('procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);');
+    RegisterMethod('function TextHeight(Text: String): Integer;');
+    RegisterMethod('procedure TextOut(X, Y: Integer; Text: String);');
+    RegisterMethod('function TextWidth(Text: String): Integer;');
+{$IFNDEF CLX}
+    RegisterProperty('Handle', 'Integer', iptRw);
+{$ENDIF}
+    RegisterProperty('Pixels', 'Integer Integer Integer', iptRW);
+    RegisterProperty('Brush', 'TBrush', iptR);
+    RegisterProperty('CopyMode', 'Byte', iptRw);
+    RegisterProperty('Font', 'TFont', iptR);
+    RegisterProperty('Pen', 'TPen', iptR);
+  end;
+end;
+
+procedure SIRegisterTPEN(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGRAPHICSOBJECT'), 'TPEN') do
+  begin
+    RegisterMethod('constructor CREATE');
+    RegisterProperty('COLOR', 'TCOLOR', iptrw);
+    RegisterProperty('MODE', 'TPENMODE', iptrw);
+    RegisterProperty('STYLE', 'TPENSTYLE', iptrw);
+    RegisterProperty('WIDTH', 'INTEGER', iptrw);
+  end;
+end;
+
+procedure SIRegisterTBRUSH(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGRAPHICSOBJECT'), 'TBRUSH') do
+  begin
+    RegisterMethod('constructor CREATE');
+    RegisterProperty('COLOR', 'TCOLOR', iptrw);
+    RegisterProperty('STYLE', 'TBRUSHSTYLE', iptrw);
+  end;
+end;
+
+procedure SIRegister_Graphics_TypesAndConsts(Cl: TPSPascalCompiler);
+{$IFDEF PS_NOGRAPHCONST}
+const
+  clSystemColor = {$IFDEF DELPHI7UP} $FF000000 {$ELSE} $80000000 {$ENDIF};
+{$ENDIF}
+begin
+{$IFNDEF PS_NOGRAPHCONST}
+  cl.AddConstantN('clScrollBar', 'Integer').Value.ts32 := clScrollBar;
+  cl.AddConstantN('clBackground', 'Integer').Value.ts32 := clBackground;
+  cl.AddConstantN('clActiveCaption', 'Integer').Value.ts32 := clActiveCaption;
+  cl.AddConstantN('clInactiveCaption', 'Integer').Value.ts32 := clInactiveCaption;
+  cl.AddConstantN('clMenu', 'Integer').Value.ts32 := clMenu;
+  cl.AddConstantN('clWindow', 'Integer').Value.ts32 := clWindow;
+  cl.AddConstantN('clWindowFrame', 'Integer').Value.ts32 := clWindowFrame;
+  cl.AddConstantN('clMenuText', 'Integer').Value.ts32 := clMenuText;
+  cl.AddConstantN('clWindowText', 'Integer').Value.ts32 := clWindowText;
+  cl.AddConstantN('clCaptionText', 'Integer').Value.ts32 := clCaptionText;
+  cl.AddConstantN('clActiveBorder', 'Integer').Value.ts32 := clActiveBorder;
+  cl.AddConstantN('clInactiveBorder', 'Integer').Value.ts32 := clInactiveCaption;
+  cl.AddConstantN('clAppWorkSpace', 'Integer').Value.ts32 := clAppWorkSpace;
+  cl.AddConstantN('clHighlight', 'Integer').Value.ts32 := clHighlight;
+  cl.AddConstantN('clHighlightText', 'Integer').Value.ts32 := clHighlightText;
+  cl.AddConstantN('clBtnFace', 'Integer').Value.ts32 := clBtnFace;
+  cl.AddConstantN('clBtnShadow', 'Integer').Value.ts32 := clBtnShadow;
+  cl.AddConstantN('clGrayText', 'Integer').Value.ts32 := clGrayText;
+  cl.AddConstantN('clBtnText', 'Integer').Value.ts32 := clBtnText;
+  cl.AddConstantN('clInactiveCaptionText', 'Integer').Value.ts32 := clInactiveCaptionText;
+  cl.AddConstantN('clBtnHighlight', 'Integer').Value.ts32 := clBtnHighlight;
+  cl.AddConstantN('cl3DDkShadow', 'Integer').Value.ts32 := cl3DDkShadow;
+  cl.AddConstantN('cl3DLight', 'Integer').Value.ts32 := cl3DLight;
+  cl.AddConstantN('clInfoText', 'Integer').Value.ts32 := clInfoText;
+  cl.AddConstantN('clInfoBk', 'Integer').Value.ts32 := clInfoBk;
+{$ELSE}
+{$IFNDEF CLX}  // These are VCL-only; CLX uses different constant values
+  cl.AddConstantN('clScrollBar', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_SCROLLBAR);
+  cl.AddConstantN('clBackground', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BACKGROUND);
+  cl.AddConstantN('clActiveCaption', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_ACTIVECAPTION);
+  cl.AddConstantN('clInactiveCaption', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INACTIVECAPTION);
+  cl.AddConstantN('clMenu', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_MENU);
+  cl.AddConstantN('clWindow', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_WINDOW);
+  cl.AddConstantN('clWindowFrame', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_WINDOWFRAME);
+  cl.AddConstantN('clMenuText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_MENUTEXT);
+  cl.AddConstantN('clWindowText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_WINDOWTEXT);
+  cl.AddConstantN('clCaptionText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_CAPTIONTEXT);
+  cl.AddConstantN('clActiveBorder', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_ACTIVEBORDER);
+  cl.AddConstantN('clInactiveBorder', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INACTIVEBORDER);
+  cl.AddConstantN('clAppWorkSpace', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_APPWORKSPACE);
+  cl.AddConstantN('clHighlight', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_HIGHLIGHT);
+  cl.AddConstantN('clHighlightText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_HIGHLIGHTTEXT);
+  cl.AddConstantN('clBtnFace', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BTNFACE);
+  cl.AddConstantN('clBtnShadow', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BTNSHADOW);
+  cl.AddConstantN('clGrayText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_GRAYTEXT);
+  cl.AddConstantN('clBtnText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BTNTEXT);
+  cl.AddConstantN('clInactiveCaptionText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INACTIVECAPTIONTEXT);
+  cl.AddConstantN('clBtnHighlight', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BTNHIGHLIGHT);
+  cl.AddConstantN('cl3DDkShadow', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_3DDKSHADOW);
+  cl.AddConstantN('cl3DLight', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_3DLIGHT);
+  cl.AddConstantN('clInfoText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INFOTEXT);
+  cl.AddConstantN('clInfoBk', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INFOBK);
+{$ENDIF}
+{$ENDIF}
+  cl.AddConstantN('clBlack', 'Integer').Value.ts32 := $000000;
+  cl.AddConstantN('clMaroon', 'Integer').Value.ts32 := $000080;
+  cl.AddConstantN('clGreen', 'Integer').Value.ts32 := $008000;
+  cl.AddConstantN('clOlive', 'Integer').Value.ts32 := $008080;
+  cl.AddConstantN('clNavy', 'Integer').Value.ts32 := $800000;
+  cl.AddConstantN('clPurple', 'Integer').Value.ts32 := $800080;
+  cl.AddConstantN('clTeal', 'Integer').Value.ts32 := $808000;
+  cl.AddConstantN('clGray', 'Integer').Value.ts32 := $808080;
+  cl.AddConstantN('clSilver', 'Integer').Value.ts32 := $C0C0C0;
+  cl.AddConstantN('clRed', 'Integer').Value.ts32 := $0000FF;
+  cl.AddConstantN('clLime', 'Integer').Value.ts32 := $00FF00;
+  cl.AddConstantN('clYellow', 'Integer').Value.ts32 := $00FFFF;
+  cl.AddConstantN('clBlue', 'Integer').Value.ts32 := $FF0000;
+  cl.AddConstantN('clFuchsia', 'Integer').Value.ts32 := $FF00FF;
+  cl.AddConstantN('clAqua', 'Integer').Value.ts32 := $FFFF00;
+  cl.AddConstantN('clLtGray', 'Integer').Value.ts32 := $C0C0C0;
+  cl.AddConstantN('clDkGray', 'Integer').Value.ts32 := $808080;
+  cl.AddConstantN('clWhite', 'Integer').Value.ts32 := $FFFFFF;
+  cl.AddConstantN('clNone', 'Integer').Value.ts32 := $1FFFFFFF;
+  cl.AddConstantN('clDefault', 'Integer').Value.ts32 := $20000000;
+
+  Cl.addTypeS('TFONTSTYLE', '(FSBOLD, FSITALIC, FSUNDERLINE, FSSTRIKEOUT)');
+  Cl.addTypeS('TFONTSTYLES', 'set of TFONTSTYLE');
+
+  cl.AddTypeS('TFontPitch', '(fpDefault, fpVariable, fpFixed)');
+  cl.AddTypeS('TPenStyle', '(psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideFrame)');
+  cl.AddTypeS('TPenMode', '(pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy, pmMergePenNot, pmMaskPenNot, pmMergeNotPen, pmMaskNotPen, pmMerge, pmNotMerge, pmMask, pmNotMask, pmXor, pmNotXor)');
+  cl.AddTypeS('TBrushStyle', '(bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross)');
+  cl.addTypeS('TColor', 'integer');
+
+{$IFNDEF CLX}
+  cl.addTypeS('HBITMAP', 'Integer');
+  cl.addTypeS('HPALETTE', 'Integer');
+{$ENDIF}
+end;
+
+procedure SIRegisterTGraphic(CL: TPSPascalCompiler);
+begin
+  with CL.AddClassN(CL.FindClass('TPersistent'),'TGraphic') do
+  begin
+    RegisterMethod('constructor Create');
+    RegisterMethod('Procedure LoadFromFile( const Filename : String)');
+    RegisterMethod('Procedure SaveToFile( const Filename : String)');
+    RegisterProperty('Empty', 'Boolean', iptr);
+    RegisterProperty('Height', 'Integer', iptrw);
+    RegisterProperty('Modified', 'Boolean', iptrw);
+    RegisterProperty('Width', 'Integer', iptrw);
+    RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
+  end;
+end;
+
+procedure SIRegisterTBitmap(CL: TPSPascalCompiler; Streams: Boolean);
+begin
+  with CL.AddClassN(CL.FindClass('TGraphic'),'TBitmap') do
+  begin
+    if Streams then begin
+      RegisterMethod('Procedure LoadFromStream( Stream : TStream)');
+      RegisterMethod('Procedure SaveToStream( Stream : TStream)');
+    end;
+    RegisterProperty('Canvas', 'TCanvas', iptr);
+{$IFNDEF CLX}
+    RegisterProperty('Handle', 'HBITMAP', iptrw);
+{$ENDIF}
+
+    {$IFNDEF IFPS_MINIVCL}
+    RegisterMethod('Procedure Dormant');
+    RegisterMethod('Procedure FreeImage');
+{$IFNDEF CLX}
+    RegisterMethod('Procedure LoadFromClipboardFormat( AFormat : Word; AData : THandle; APalette : HPALETTE)');
+{$ENDIF}
+    RegisterMethod('Procedure LoadFromResourceName( Instance : THandle; const ResName : String)');
+    RegisterMethod('Procedure LoadFromResourceID( Instance : THandle; ResID : Integer)');
+{$IFNDEF CLX}
+    RegisterMethod('Function ReleaseHandle : HBITMAP');
+    RegisterMethod('Function ReleasePalette : HPALETTE');
+    RegisterMethod('Procedure SaveToClipboardFormat( var Format : Word; var Data : THandle; var APalette : HPALETTE)');
+    RegisterProperty('Monochrome', 'Boolean', iptrw);
+    RegisterProperty('Palette', 'HPALETTE', iptrw);
+    RegisterProperty('IgnorePalette', 'Boolean', iptrw);
+{$ENDIF}
+    RegisterProperty('TransparentColor', 'TColor', iptr);
+    {$ENDIF}
+  end;
+end;
+
+procedure SIRegister_Graphics(Cl: TPSPascalCompiler; Streams: Boolean);
+begin
+  SIRegister_Graphics_TypesAndConsts(Cl);
+  SIRegisterTGRAPHICSOBJECT(Cl);
+  SIRegisterTFont(Cl);
+  SIRegisterTPEN(cl);
+  SIRegisterTBRUSH(cl);
+  SIRegisterTCanvas(cl);
+  SIRegisterTGraphic(Cl);
+  SIRegisterTBitmap(Cl, Streams);
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+End.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_menus.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_menus.pas
new file mode 100644
index 0000000..698f16b
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_menus.pas	
@@ -0,0 +1,214 @@
+{ Menus Import Unit }
+Unit uPSC_menus;
+{$I PascalScript.inc}
+Interface
+Uses uPSCompiler;
+
+procedure SIRegisterTMENUITEMSTACK(CL: TPSPascalCompiler);
+procedure SIRegisterTPOPUPLIST(CL: TPSPascalCompiler);
+procedure SIRegisterTPOPUPMENU(CL: TPSPascalCompiler);
+procedure SIRegisterTMAINMENU(CL: TPSPascalCompiler);
+procedure SIRegisterTMENU(CL: TPSPascalCompiler);
+procedure SIRegisterTMENUITEM(CL: TPSPascalCompiler);
+procedure SIRegister_Menus(Cl: TPSPascalCompiler);
+
+implementation
+
+procedure SIRegisterTMENUITEMSTACK(CL: TPSPascalCompiler);
+begin
+	With cl.AddClassN(Cl.FindClass('TSTACK'),'TMENUITEMSTACK') do
+	begin
+	  RegisterMethod('Procedure CLEARITEM( AITEM : TMENUITEM)');
+	end;
+end;
+
+procedure SIRegisterTPOPUPLIST(CL: TPSPascalCompiler);
+begin
+	With cl.AddClassN(Cl.FindClass('TLIST'),'TPOPUPLIST') do
+	begin
+		RegisterProperty('WINDOW', 'HWND', iptr);
+		RegisterMethod('Procedure ADD( POPUP : TPOPUPMENU)');
+		RegisterMethod('Procedure REMOVE( POPUP : TPOPUPMENU)');
+	end;
+end;
+
+procedure SIRegisterTPOPUPMENU(CL: TPSPascalCompiler);
+var
+	cc: TPSCompileTimeClass;
+begin
+	With cl.AddClassN(Cl.FindClass('TMENU'),'TPOPUPMENU') do
+	begin
+		cc := Cl.FindClass('TLabel');
+		if cc <> nil then
+			RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptRW);
+		with Cl.FindClass('TForm') do
+		begin
+			RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptRW);
+		end;
+	RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
+	RegisterMethod('Procedure POPUP( X, Y : INTEGER)');
+	RegisterProperty('POPUPCOMPONENT', 'TCOMPONENT', iptrw);
+	RegisterProperty('ALIGNMENT', 'TPOPUPALIGNMENT', iptrw);
+	RegisterProperty('AUTOPOPUP', 'BOOLEAN', iptrw);
+	RegisterProperty('HELPCONTEXT', 'THELPCONTEXT', iptrw);
+    RegisterProperty('MENUANIMATION', 'TMENUANIMATION', iptrw);
+    RegisterProperty('TRACKBUTTON', 'TTRACKBUTTON', iptrw);
+    RegisterProperty('ONPOPUP', 'TNOTIFYEVENT', iptrw);
+  end;
+end;
+
+procedure SIRegisterTMAINMENU(CL: TPSPascalCompiler);
+begin
+  With cl.AddClassN(Cl.FindClass('TMENU'),'TMAINMENU') do
+  begin
+    RegisterMethod('Procedure MERGE( MENU : TMAINMENU)');
+    RegisterMethod('Procedure UNMERGE( MENU : TMAINMENU)');
+    RegisterMethod('Procedure POPULATEOLE2MENU( SHAREDMENU : HMENU; GROUPS : array of INTEGER; var WIDTHS : array of LONGINT)');
+    RegisterMethod('Procedure GETOLE2ACCELERATORTABLE( var ACCELTABLE : HACCEL; var ACCELCOUNT : INTEGER; GROUPS : array of INTEGER)');
+    RegisterMethod('Procedure SETOLE2MENUHANDLE( HANDLE : HMENU)');
+    RegisterProperty('AUTOMERGE', 'BOOLEAN', iptrw);
+  end;
+end;
+
+procedure SIRegisterTMENU(CL: TPSPascalCompiler);
+begin
+  With cl.AddClassN(Cl.FindClass('TCOMPONENT'),'TMENU') do
+  begin
+    RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
+    RegisterMethod('Function DISPATCHCOMMAND( ACOMMAND : WORD) : BOOLEAN');
+    RegisterMethod('Function DISPATCHPOPUP( AHANDLE : HMENU) : BOOLEAN');
+    RegisterMethod('Function FINDITEM( VALUE : INTEGER; KIND : TFINDITEMKIND) : TMENUITEM');
+    RegisterMethod('Function GETHELPCONTEXT( VALUE : INTEGER; BYCOMMAND : BOOLEAN) : THELPCONTEXT');
+    RegisterProperty('IMAGES', 'TCUSTOMIMAGELIST', iptrw);
+    RegisterMethod('Function ISRIGHTTOLEFT : BOOLEAN');
+    RegisterMethod('Procedure PARENTBIDIMODECHANGED( ACONTROL : TOBJECT)');
+    RegisterMethod('Procedure PROCESSMENUCHAR( var MESSAGE : TWMMENUCHAR)');
+    RegisterProperty('AUTOHOTKEYS', 'TMENUAUTOFLAG', iptrw);
+    RegisterProperty('AUTOLINEREDUCTION', 'TMENUAUTOFLAG', iptrw);
+    RegisterProperty('BIDIMODE', 'TBIDIMODE', iptrw);
+    RegisterProperty('HANDLE', 'HMENU', iptr);
+    RegisterProperty('OWNERDRAW', 'BOOLEAN', iptrw);
+    RegisterProperty('PARENTBIDIMODE', 'BOOLEAN', iptrw);
+    RegisterProperty('WINDOWHANDLE', 'HWND', iptrw);
+    RegisterProperty('ITEMS', 'TMENUITEM', iptr);
+  end;
+end;
+
+procedure SIRegisterTMENUITEM(CL: TPSPascalCompiler);
+begin
+  With cl.AddClassN(Cl.FindClass('TCOMPONENT'),'TMENUITEM') do
+  begin
+    RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
+    RegisterMethod('Procedure INITIATEACTION');
+    RegisterMethod('Procedure INSERT( INDEX : INTEGER; ITEM : TMENUITEM)');
+    RegisterMethod('Procedure DELETE( INDEX : INTEGER)');
+    RegisterMethod('Procedure CLEAR');
+    RegisterMethod('Procedure CLICK');
+    RegisterMethod('Function FIND( ACAPTION : String) : TMENUITEM');
+    RegisterMethod('Function INDEXOF( ITEM : TMENUITEM) : INTEGER');
+    RegisterMethod('Function ISLINE : BOOLEAN');
+    RegisterMethod('Function GETIMAGELIST : TCUSTOMIMAGELIST');
+    RegisterMethod('Function GETPARENTCOMPONENT : TCOMPONENT');
+    RegisterMethod('Function GETPARENTMENU : TMENU');
+    RegisterMethod('Function HASPARENT : BOOLEAN');
+    RegisterMethod('Function NEWTOPLINE : INTEGER');
+    RegisterMethod('Function NEWBOTTOMLINE : INTEGER');
+    RegisterMethod('Function INSERTNEWLINEBEFORE( AITEM : TMENUITEM) : INTEGER');
+    RegisterMethod('Function INSERTNEWLINEAFTER( AITEM : TMENUITEM) : INTEGER');
+    RegisterMethod('Procedure ADD( ITEM : TMENUITEM)');
+    RegisterMethod('Procedure REMOVE( ITEM : TMENUITEM)');
+    RegisterMethod('Function RETHINKHOTKEYS : BOOLEAN');
+    RegisterMethod('Function RETHINKLINES : BOOLEAN');
+    RegisterProperty('COMMAND', 'WORD', iptr);
+    RegisterProperty('HANDLE', 'HMENU', iptr);
+    RegisterProperty('COUNT', 'INTEGER', iptr);
+    RegisterProperty('ITEMS', 'TMENUITEM INTEGER', iptr);
+    RegisterProperty('MENUINDEX', 'INTEGER', iptrw);
+    RegisterProperty('PARENT', 'TMENUITEM', iptr);
+    {$IFDEF DELPHI5UP}
+    RegisterProperty('ACTION', 'TBASICACTION', iptrw);
+    {$ENDIF}
+    RegisterProperty('AUTOHOTKEYS', 'TMENUITEMAUTOFLAG', iptrw);
+    RegisterProperty('AUTOLINEREDUCTION', 'TMENUITEMAUTOFLAG', iptrw);
+    RegisterProperty('BITMAP', 'TBITMAP', iptrw);
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('CHECKED', 'BOOLEAN', iptrw);
+    RegisterProperty('SUBMENUIMAGES', 'TCUSTOMIMAGELIST', iptrw);
+    RegisterProperty('DEFAULT', 'BOOLEAN', iptrw);
+    RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
+    RegisterProperty('GROUPINDEX', 'BYTE', iptrw);
+    RegisterProperty('HELPCONTEXT', 'THELPCONTEXT', iptrw);
+    RegisterProperty('HINT', 'String', iptrw);
+    RegisterProperty('IMAGEINDEX', 'TIMAGEINDEX', iptrw);
+    RegisterProperty('RADIOITEM', 'BOOLEAN', iptrw);
+    RegisterProperty('SHORTCUT', 'TSHORTCUT', iptrw);
+    RegisterProperty('VISIBLE', 'BOOLEAN', iptrw);
+    RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
+   {$IFNDEF FPC} RegisterProperty('ONDRAWITEM', 'TMENUDRAWITEMEVENT', iptrw);
+    RegisterProperty('ONADVANCEDDRAWITEM', 'TADVANCEDMENUDRAWITEMEVENT', iptrw);
+    RegisterProperty('ONMEASUREITEM', 'TMENUMEASUREITEMEVENT', iptrw);{$ENDIF}
+  end;
+end;
+
+procedure SIRegister_Menus(Cl: TPSPascalCompiler);
+begin
+  Cl.AddTypeS('HMenu', 'Cardinal');
+  Cl.AddTypeS('HACCEL', 'Cardinal');
+
+  cl.addClassN(cl.FindClass('EXCEPTION'),'EMENUERROR');
+  Cl.addTypeS('TMENUBREAK', '( MBNONE, MBBREAK, MBBARBREAK )');
+{$IFNDEF FPC}
+  Cl.addTypeS('TMENUDRAWITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACANVAS : TC'
+   +'ANVAS; ARECT : TRECT; SELECTED : BOOLEAN)');
+  Cl.addTypeS('TADVANCEDMENUDRAWITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACAN'
+   +'VAS : TCANVAS; ARECT : TRECT; STATE : TOWNERDRAWSTATE)');
+  Cl.addTypeS('TMENUMEASUREITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACANVAS :'
+   +' TCANVAS; var WIDTH, HEIGHT : INTEGER)');
+{$ENDIF}
+  Cl.addTypeS('TMENUITEMAUTOFLAG', '( MAAUTOMATIC, MAMANUAL, MAPARENT )');
+  Cl.AddTypeS('TMenuAutoFlag', 'TMENUITEMAUTOFLAG');
+  Cl.addTypeS('TSHORTCUT', 'WORD');
+  cl.addClassN(cl.FindClass('TACTIONLINK'),'TMENUACTIONLINK');
+  SIRegisterTMENUITEM(Cl);
+  Cl.addTypeS('TMENUCHANGEEVENT', 'Procedure ( SENDER : TOBJECT; SOURCE : TMENU'
+   +'ITEM; REBUILD : BOOLEAN)');
+  Cl.addTypeS('TFINDITEMKIND', '( FKCOMMAND, FKHANDLE, FKSHORTCUT )');
+  SIRegisterTMENU(Cl);
+  SIRegisterTMAINMENU(Cl);
+  Cl.addTypeS('TPOPUPALIGNMENT', '( PALEFT, PARIGHT, PACENTER )');
+  Cl.addTypeS('TTRACKBUTTON', '( TBRIGHTBUTTON, TBLEFTBUTTON )');
+  Cl.addTypeS('TMENUANIMATIONS', '( MALEFTTORIGHT, MARIGHTTOLEFT, MATOPTOBOTTOM'
+   +', MABOTTOMTOTOP, MANONE )');
+  Cl.addTypeS('TMENUANIMATION', 'set of TMENUANIMATIONS');
+  SIRegisterTPOPUPMENU(Cl);
+  SIRegisterTPOPUPLIST(Cl);
+  SIRegisterTMENUITEMSTACK(Cl);
+  Cl.addTypeS('TCMENUITEM', 'TMENUITEM');
+{$IFNDEF FPC}
+//TODO: it should work,but somehow TShiftState is not defined
+  Cl.AddDelphiFunction('Function SHORTCUT( KEY : WORD; SHIFT : TSHIFTSTATE) : T'
+   +'SHORTCUT');
+  Cl.AddDelphiFunction('Procedure SHORTCUTTOKEY( SHORTCUT : TSHORTCUT; var KEY '
+ +': WORD; var SHIFT : TSHIFTSTATE)');
+{$ENDIF}
+  Cl.AddDelphiFunction('Function SHORTCUTTOTEXT( SHORTCUT : TSHORTCUT) : String'
+   +'');
+  Cl.AddDelphiFunction('Function TEXTTOSHORTCUT( TEXT : String) : TSHORTCUT');
+  Cl.AddDelphiFunction('Function NEWMENU( OWNER : TCOMPONENT; const ANAME : STR'
+   +'ING; ITEMS : array of TMenuItem) : TMAINMENU');
+  Cl.AddDelphiFunction('Function NEWPOPUPMENU( OWNER : TCOMPONENT; const ANAME '
+   +': String; ALIGNMENT : TPOPUPALIGNMENT; AUTOPOPUP : BOOLEAN; const ITEMS : array of '
+   +'TCMENUITEM) : TPOPUPMENU');
+  Cl.AddDelphiFunction('Function NEWSUBMENU( const ACAPTION : String; HCTX : WO'
+   +'RD; const ANAME : String; ITEMS : array of TMenuItem; AENABLED : BOOLEAN) : TMENUITEM');
+  Cl.AddDelphiFunction('Function NEWITEM( const ACAPTION : String; ASHORTCUT : '
+   +'TSHORTCUT; ACHECKED, AENABLED : BOOLEAN; AONCLICK : TNOTIFYEVENT; HCTX : W'
+   +'ORD; const ANAME : String) : TMENUITEM');
+  Cl.AddDelphiFunction('Function NEWLINE : TMENUITEM');
+{$IFNDEF FPC}
+  Cl.AddDelphiFunction('Procedure DRAWMENUITEM( MENUITEM : TMENUITEM; ACANVAS :'
+   +' TCANVAS; ARECT : TRECT; STATE : TOWNERDRAWSTATE)');
+{$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_std.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_std.pas
new file mode 100644
index 0000000..460ba64
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_std.pas	
@@ -0,0 +1,87 @@
+{ Compiletime TObject, TPersistent and TComponent definitions }
+unit uPSC_std;
+{$I PascalScript.inc}
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+{
+  Will register files from:
+    System
+    Classes (Only TComponent and TPersistent)
+
+}
+
+procedure SIRegister_Std_TypesAndConsts(Cl: TPSPascalCompiler);
+procedure SIRegisterTObject(CL: TPSPascalCompiler);
+procedure SIRegisterTPersistent(Cl: TPSPascalCompiler);
+procedure SIRegisterTComponent(Cl: TPSPascalCompiler);
+
+procedure SIRegister_Std(Cl: TPSPascalCompiler);
+
+implementation
+
+procedure SIRegisterTObject(CL: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(nil, 'TObject') do
+  begin
+    RegisterMethod('constructor Create');
+    RegisterMethod('procedure Free');
+  end;
+end;
+
+procedure SIRegisterTPersistent(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TObject'), 'TPersistent') do
+  begin
+    RegisterMethod('procedure Assign(Source: TPersistent)');
+  end;
+end;
+
+procedure SIRegisterTComponent(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TPersistent'), 'TComponent') do
+  begin
+    RegisterMethod('function FindComponent(AName: String): TComponent;');
+    RegisterMethod('constructor Create(AOwner: TComponent); virtual;');
+
+    RegisterProperty('Owner', 'TComponent', iptRW);
+    RegisterMethod('procedure DestroyComponents');
+    RegisterMethod('procedure Destroying');
+    RegisterMethod('procedure FreeNotification(AComponent:TComponent)');
+    RegisterMethod('procedure InsertComponent(AComponent:TComponent)');
+    RegisterMethod('procedure RemoveComponent(AComponent:TComponent)');
+    RegisterProperty('Components', 'TComponent Integer', iptr);
+    RegisterProperty('ComponentCount', 'Integer', iptr);
+    RegisterProperty('ComponentIndex', 'Integer', iptrw);
+    RegisterProperty('ComponentState', 'Byte', iptr);
+    RegisterProperty('Designinfo', 'LongInt', iptrw);
+    RegisterProperty('Name', 'String', iptrw);
+    RegisterProperty('Tag', 'LongInt', iptrw);
+  end;
+end;
+
+
+
+
+procedure SIRegister_Std_TypesAndConsts(Cl: TPSPascalCompiler);
+begin
+  Cl.AddTypeS('TComponentStateE', '(csLoading, csReading, csWriting, csDestroying, csDesigning, csAncestor, csUpdating, csFixups, csFreeNotification, csInline, csDesignInstance)');
+  cl.AddTypeS('TComponentState', 'set of TComponentStateE');
+  Cl.AddTypeS('TRect', 'record Left, Top, Right, Bottom: Integer; end;');
+end;
+
+procedure SIRegister_Std(Cl: TPSPascalCompiler);
+begin
+  SIRegister_Std_TypesAndConsts(Cl);
+  SIRegisterTObject(CL);
+  SIRegisterTPersistent(Cl);
+  SIRegisterTComponent(Cl);
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+
+End.
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_stdctrls.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_stdctrls.pas
new file mode 100644
index 0000000..52ff4bc
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSC_stdctrls.pas	
@@ -0,0 +1,633 @@
+{ Compiletime STDCtrls support }
+unit uPSC_stdctrls;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSCompiler, uPSUtils;
+
+{
+   Will register files from:
+     stdctrls
+ 
+Requires:
+  STD, classes, controls and graphics
+}
+
+procedure SIRegister_StdCtrls_TypesAndConsts(cl: TPSPascalCompiler);
+
+
+
+procedure SIRegisterTCUSTOMGROUPBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTGROUPBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTCUSTOMLABEL(Cl: TPSPascalCompiler);
+procedure SIRegisterTLABEL(Cl: TPSPascalCompiler);
+procedure SIRegisterTCUSTOMEDIT(Cl: TPSPascalCompiler);
+procedure SIRegisterTEDIT(Cl: TPSPascalCompiler);
+procedure SIRegisterTCUSTOMMEMO(Cl: TPSPascalCompiler);
+procedure SIRegisterTMEMO(Cl: TPSPascalCompiler);
+procedure SIRegisterTCUSTOMCOMBOBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTCOMBOBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTBUTTONCONTROL(Cl: TPSPascalCompiler);
+procedure SIRegisterTBUTTON(Cl: TPSPascalCompiler);
+procedure SIRegisterTCUSTOMCHECKBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTCHECKBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTRADIOBUTTON(Cl: TPSPascalCompiler);
+procedure SIRegisterTCUSTOMLISTBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTLISTBOX(Cl: TPSPascalCompiler);
+procedure SIRegisterTSCROLLBAR(Cl: TPSPascalCompiler);
+
+procedure SIRegister_StdCtrls(cl: TPSPascalCompiler);
+
+
+implementation
+
+procedure SIRegisterTCUSTOMGROUPBOX(Cl: TPSPascalCompiler);
+begin
+  Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TCUSTOMGROUPBOX');
+end;
+
+
+procedure SIRegisterTGROUPBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMGROUPBOX'), 'TGROUPBOX') do
+  begin
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+
+
+procedure SIRegisterTCUSTOMLABEL(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TCUSTOMLABEL') do
+  begin
+    {$IFNDEF PS_MINIVCL}
+{$IFNDEF CLX}
+    RegisterProperty('CANVAS', 'TCANVAS', iptr);
+{$ENDIF}
+    {$ENDIF}
+  end;
+end;
+
+
+procedure SIRegisterTLABEL(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMLABEL'), 'TLABEL') do
+  begin
+    RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
+    RegisterProperty('AUTOSIZE', 'Boolean', iptrw);
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('FOCUSCONTROL', 'TWinControl', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('LAYOUT', 'TTextLayout', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('SHOWACCELCHAR', 'Boolean', iptrw);
+    RegisterProperty('TRANSPARENT', 'Boolean', iptrw);
+    RegisterProperty('WORDWRAP', 'Boolean', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+  end;
+end;
+
+
+
+
+
+
+
+procedure SIRegisterTCUSTOMEDIT(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMEDIT') do
+  begin
+    RegisterMethod('procedure CLEAR');
+    RegisterMethod('procedure CLEARSELECTION');
+    RegisterMethod('procedure SELECTALL');
+    RegisterProperty('MODIFIED', 'BOOLEAN', iptrw);
+    RegisterProperty('SELLENGTH', 'INTEGER', iptrw);
+    RegisterProperty('SELSTART', 'INTEGER', iptrw);
+    RegisterProperty('SELTEXT', 'String', iptrw);
+    RegisterProperty('TEXT', 'String', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('procedure COPYTOCLIPBOARD');
+    RegisterMethod('procedure CUTTOCLIPBOARD');
+    RegisterMethod('procedure PASTEFROMCLIPBOARD');
+    RegisterMethod('function GETSELTEXTBUF(BUFFER:PCHAR;BUFSIZE:INTEGER):INTEGER');
+    RegisterMethod('procedure SETSELTEXTBUF(BUFFER:PCHAR)');
+    {$ENDIF}
+  end;
+end;
+
+
+
+
+procedure SIRegisterTEDIT(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMEDIT'), 'TEDIT') do
+  begin
+    RegisterProperty('AUTOSELECT', 'Boolean', iptrw);
+    RegisterProperty('AUTOSIZE', 'Boolean', iptrw);
+    RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
+    RegisterProperty('CHARCASE', 'TEditCharCase', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('HIDESELECTION', 'Boolean', iptrw);
+    RegisterProperty('MAXLENGTH', 'Integer', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('PASSWORDCHAR', 'Char', iptrw);
+    RegisterProperty('READONLY', 'Boolean', iptrw);
+    RegisterProperty('TEXT', 'String', iptrw);
+    RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
+    RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('OEMCONVERT', 'Boolean', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+
+procedure SIRegisterTCUSTOMMEMO(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMEDIT'), 'TCUSTOMMEMO') do
+  begin
+    {$IFNDEF CLX}
+    RegisterProperty('LINES', 'TSTRINGS', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+procedure SIRegisterTMEMO(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMMEMO'), 'TMEMO') do
+  begin
+    {$IFDEF CLX}
+    RegisterProperty('LINES', 'TSTRINGS', iptrw);
+    {$ENDIF}
+    RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
+    RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('HIDESELECTION', 'Boolean', iptrw);
+    RegisterProperty('MAXLENGTH', 'Integer', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('READONLY', 'Boolean', iptrw);
+    RegisterProperty('SCROLLBARS', 'TScrollStyle', iptrw);
+    RegisterProperty('WANTRETURNS', 'Boolean', iptrw);
+    RegisterProperty('WANTTABS', 'Boolean', iptrw);
+    RegisterProperty('WORDWRAP', 'Boolean', iptrw);
+    RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
+    RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('OEMCONVERT', 'Boolean', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+
+
+procedure SIRegisterTCUSTOMCOMBOBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMCOMBOBOX') do
+  begin
+    RegisterProperty('DROPPEDDOWN', 'BOOLEAN', iptrw);
+    RegisterProperty('ITEMS', 'TSTRINGS', iptrw);
+    RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('procedure CLEAR');
+    RegisterMethod('procedure SELECTALL');
+    RegisterProperty('CANVAS', 'TCANVAS', iptr);
+    RegisterProperty('SELLENGTH', 'INTEGER', iptrw);
+    RegisterProperty('SELSTART', 'INTEGER', iptrw);
+    RegisterProperty('SELTEXT', 'String', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+procedure SIRegisterTCOMBOBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMCOMBOBOX'), 'TCOMBOBOX') do
+  begin
+    RegisterProperty('STYLE', 'TComboBoxStyle', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('DROPDOWNCOUNT', 'Integer', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('MAXLENGTH', 'Integer', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('SORTED', 'Boolean', iptrw);
+    RegisterProperty('TEXT', 'String', iptrw);
+    RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDROPDOWN', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
+    RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('ITEMHEIGHT', 'Integer', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONDRAWITEM', 'TDrawItemEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMEASUREITEM', 'TMeasureItemEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+procedure SIRegisterTBUTTONCONTROL(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TBUTTONCONTROL') do
+  begin
+  end;
+end;
+
+
+
+procedure SIRegisterTBUTTON(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'),  'TBUTTON') do
+  begin
+    RegisterProperty('CANCEL', 'BOOLEAN', iptrw);
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('DEFAULT', 'BOOLEAN', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('MODALRESULT', 'LONGINT', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
+    RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+procedure SIRegisterTCUSTOMCHECKBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'), 'TCUSTOMCHECKBOX') do
+  begin
+  end;
+end;
+
+
+
+procedure SIRegisterTCHECKBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMCHECKBOX'), 'TCHECKBOX') do
+  begin
+    RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
+    RegisterProperty('ALLOWGRAYED', 'Boolean', iptrw);
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('CHECKED', 'Boolean', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('STATE', 'TCheckBoxState', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
+    RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+
+
+procedure SIRegisterTRADIOBUTTON(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'), 'TRADIOBUTTON') do
+  begin
+    RegisterProperty('ALIGNMENT', 'TALIGNMENT', iptrw);
+    RegisterProperty('CAPTION', 'String', iptrw);
+    RegisterProperty('CHECKED', 'BOOLEAN', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
+    RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+procedure SIRegisterTCUSTOMLISTBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMLISTBOX') do
+  begin
+    RegisterProperty('ITEMS', 'TSTRINGS', iptrw);
+    RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
+    RegisterProperty('SELCOUNT', 'INTEGER', iptr);
+    RegisterProperty('SELECTED', 'BOOLEAN INTEGER', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('procedure CLEAR');
+    RegisterMethod('function ITEMATPOS(POS:TPOINT;EXISTING:BOOLEAN):INTEGER');
+    RegisterMethod('function ITEMRECT(INDEX:INTEGER):TRECT');
+    RegisterProperty('CANVAS', 'TCANVAS', iptr);
+    RegisterProperty('TOPINDEX', 'INTEGER', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+procedure SIRegisterTLISTBOX(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TCUSTOMLISTBOX'), 'TLISTBOX') do
+  begin
+    RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
+    RegisterProperty('COLOR', 'TColor', iptrw);
+    RegisterProperty('FONT', 'TFont', iptrw);
+    RegisterProperty('MULTISELECT', 'Boolean', iptrw);
+    RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
+    RegisterProperty('PARENTFONT', 'Boolean', iptrw);
+    RegisterProperty('SORTED', 'Boolean', iptrw);
+    RegisterProperty('STYLE', 'TListBoxStyle', iptrw);
+    RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
+    RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterProperty('COLUMNS', 'Integer', iptrw);
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('EXTENDEDSELECT', 'Boolean', iptrw);
+    RegisterProperty('INTEGRALHEIGHT', 'Boolean', iptrw);
+    RegisterProperty('ITEMHEIGHT', 'Integer', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('TABWIDTH', 'Integer', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONDRAWITEM', 'TDrawItemEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONMEASUREITEM', 'TMeasureItemEvent', iptrw);
+    RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
+    RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
+    RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+
+
+
+procedure SIRegisterTSCROLLBAR(Cl: TPSPascalCompiler);
+begin
+  with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TSCROLLBAR') do
+  begin
+    RegisterProperty('KIND', 'TSCROLLBARKIND', iptrw);
+    RegisterProperty('MAX', 'INTEGER', iptrw);
+    RegisterProperty('MIN', 'INTEGER', iptrw);
+    RegisterProperty('POSITION', 'INTEGER', iptrw);
+    RegisterProperty('ONCHANGE', 'TNOTIFYEVENT', iptrw);
+    RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
+    RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod('procedure SETPARAMS(APOSITION,AMIN,AMAX:INTEGER)');
+    RegisterProperty('CTL3D', 'Boolean', iptrw);
+    RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
+    RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
+    RegisterProperty('LARGECHANGE', 'TSCROLLBARINC', iptrw);
+    RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
+    RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
+    RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
+    RegisterProperty('SMALLCHANGE', 'TSCROLLBARINC', iptrw);
+    RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
+    RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
+    RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
+    RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
+    RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
+    RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
+    RegisterProperty('ONSCROLL', 'TSCROLLEVENT', iptrw);
+    RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
+    {$ENDIF}
+  end;
+end;
+
+
+
+procedure SIRegister_StdCtrls_TypesAndConsts(cl: TPSPascalCompiler);
+begin
+  cl.AddTypeS('TEditCharCase', '(ecNormal, ecUpperCase, ecLowerCase)');
+  cl.AddTypeS('TScrollStyle', '(ssNone, ssHorizontal, ssVertical, ssBoth)');
+  cl.AddTypeS('TComboBoxStyle', '(csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable)');
+  cl.AddTypeS('TDrawItemEvent', 'procedure(Control: TWinControl; Index: Integer; Rect: TRect; State: Byte)');
+  cl.AddTypeS('TMeasureItemEvent', 'procedure(Control: TWinControl; Index: Integer; var Height: Integer)');
+  cl.AddTypeS('TCheckBoxState', '(cbUnchecked, cbChecked, cbGrayed)');
+  cl.AddTypeS('TListBoxStyle', '(lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable)');
+  cl.AddTypeS('TScrollCode', '(scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottom, scEndScroll)');
+  cl.AddTypeS('TScrollEvent', 'procedure(Sender: TObject; ScrollCode: TScrollCode;var ScrollPos: Integer)');
+
+  Cl.addTypeS('TEOwnerDrawState', '(odSelected, odGrayed, odDisabled, odChecked,'
+    +' odFocused, odDefault, odHotLight, odInactive, odNoAccel, odNoFocusRect,'
+    +' odReserved1, odReserved2, odComboBoxEdit)');
+  cl.AddTypeS('TTextLayout', '( tlTop, tlCenter, tlBottom )');
+  cl.AddTypeS('TOwnerDrawState', 'set of TEOwnerDrawState');
+end;
+
+
+procedure SIRegister_stdctrls(cl: TPSPascalCompiler);
+begin
+  SIRegister_StdCtrls_TypesAndConsts(cl);
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTCUSTOMGROUPBOX(Cl);
+  SIRegisterTGROUPBOX(Cl);
+  {$ENDIF}
+  SIRegisterTCUSTOMLABEL(Cl);
+  SIRegisterTLABEL(Cl);
+  SIRegisterTCUSTOMEDIT(Cl);
+  SIRegisterTEDIT(Cl);
+  SIRegisterTCUSTOMMEMO(Cl);
+  SIRegisterTMEMO(Cl);
+  SIRegisterTCUSTOMCOMBOBOX(Cl);
+  SIRegisterTCOMBOBOX(Cl);
+  SIRegisterTBUTTONCONTROL(Cl);
+  SIRegisterTBUTTON(Cl);
+  SIRegisterTCUSTOMCHECKBOX(Cl);
+  SIRegisterTCHECKBOX(Cl);
+  SIRegisterTRADIOBUTTON(Cl);
+  SIRegisterTCUSTOMLISTBOX(Cl);
+  SIRegisterTLISTBOX(Cl);
+  {$IFNDEF PS_MINIVCL}
+  SIRegisterTSCROLLBAR(Cl);
+  {$ENDIF}
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+
+end.
+
+
+
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSCompiler.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSCompiler.pas
new file mode 100644
index 0000000..7c7a710
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSCompiler.pas	
@@ -0,0 +1,15555 @@
+unit uPSCompiler;
+{$I PascalScript.inc}
+interface
+uses
+  {$IFNDEF DELPHI3UP}{$IFNDEF PS_NOINTERFACES}{$IFNDEF LINUX}Windows, Ole2,{$ENDIF}
+  {$ENDIF}{$ENDIF}SysUtils, uPSUtils;
+
+
+type
+{$IFNDEF PS_NOINTERFACES}
+  TPSInterface = class;
+{$ENDIF}
+
+  TPSParameterMode = (pmIn, pmOut, pmInOut);
+  TPSPascalCompiler = class;
+  TPSType = class;
+  TPSValue = class;
+  TPSParameters = class;
+
+  TPSSubOptType = (tMainBegin, tProcBegin, tSubBegin, tOneLiner, tifOneliner, tRepeat, tTry, tTryEnd
+    {$IFDEF PS_USESSUPPORT},tUnitInit, tUnitFinish {$ENDIF}); //nvds
+
+
+  {TPSExternalClass is used when external classes need to be called}
+  TPSCompileTimeClass = class;
+  TPSAttributes = class;
+  TPSAttribute = class;
+
+  EPSCompilerException = class(Exception) end;
+
+  TPSParameterDecl = class(TObject)
+  private
+    FName: tbtString;
+    FOrgName: tbtString;
+    FMode: TPSParameterMode;
+    FType: TPSType;
+    {$IFDEF PS_USESSUPPORT}
+    FDeclareUnit: tbtString;
+    {$ENDIF}
+    FDeclarePos: Cardinal;
+    FDeclareRow: Cardinal;
+    FDeclareCol: Cardinal;
+    procedure SetName(const s: tbtString);
+  public
+
+    property Name: tbtString read FName;
+
+    property OrgName: tbtString read FOrgName write SetName;
+
+    property aType: TPSType read FType write FType;
+
+    property Mode: TPSParameterMode read FMode write FMode;
+
+    {$IFDEF PS_USESSUPPORT}
+    property DeclareUnit: tbtString read FDeclareUnit write FDeclareUnit;
+    {$ENDIF}
+
+    property DeclarePos: Cardinal read FDeclarePos write FDeclarePos;
+
+    property DeclareRow: Cardinal read FDeclareRow write FDeclareRow;
+
+    property DeclareCol: Cardinal read FDeclareCol write FDeclareCol;
+
+  end;
+
+
+  TPSParametersDecl = class(TObject)
+  private
+    FParams: TPSList;
+    FResult: TPSType;
+    function GetParam(I: Longint): TPSParameterDecl;
+    function GetParamCount: Longint;
+  public
+
+    property Params[I: Longint]: TPSParameterDecl read GetParam;
+
+    property ParamCount: Longint read GetParamCount;
+
+
+    function AddParam: TPSParameterDecl;
+
+    procedure DeleteParam(I: Longint);
+
+
+    property Result : TPSType read FResult write FResult;
+
+
+    procedure Assign(Params: TPSParametersDecl);
+
+
+    function Same(d: TPSParametersDecl): boolean;
+
+
+    constructor Create;
+
+    destructor Destroy; override;
+  end;
+
+
+  TPSRegProc = class(TObject)
+  private
+    FNameHash: Longint;
+    FName: tbtString;
+    FDecl: TPSParametersDecl;
+    FExportName: Boolean;
+    FImportDecl: tbtString;
+    FOrgName: tbtString;
+    procedure SetName(const Value: tbtString);
+  public
+
+    property OrgName: tbtString read FOrgName write FOrgName;
+	
+    property Name: tbtString read FName write SetName;
+
+    property NameHash: Longint read FNameHash;
+	
+    property Decl: TPSParametersDecl read FDecl;
+	
+    property ExportName: Boolean read FExportName write FExportName;
+	
+    property ImportDecl: tbtString read FImportDecl write FImportDecl;
+
+
+    constructor Create;
+
+    destructor Destroy; override;
+  end;
+
+  PIFPSRegProc = TPSRegProc;
+
+  PIfRVariant = ^TIfRVariant;
+
+  TIfRVariant = record
+
+    FType: TPSType;
+    case Byte of
+      1: (tu8: TbtU8);
+      2: (tS8: TbtS8);
+      3: (tu16: TbtU16);
+      4: (ts16: TbtS16);
+      5: (tu32: TbtU32);
+      6: (ts32: TbtS32);
+      7: (tsingle: TbtSingle);
+      8: (tdouble: TbtDouble);
+      9: (textended: TbtExtended);
+      11: (tcurrency: tbtCurrency);
+      10: (tstring: Pointer);
+      {$IFNDEF PS_NOINT64}
+      17: (ts64: Tbts64);
+      {$ENDIF}
+      19: (tchar: tbtChar);
+      {$IFNDEF PS_NOWIDESTRING}
+      18: (twidestring: Pointer);
+      20: (twidechar: tbtwidechar);
+      {$ENDIF}
+      21: (ttype: TPSType);
+      22: (tunistring: Pointer);
+  end;
+
+  TPSRecordFieldTypeDef = class(TObject)
+  private
+    FFieldOrgName: tbtString;
+    FFieldName: tbtString;
+    FFieldNameHash: Longint;
+    FType: TPSType;
+    procedure SetFieldOrgName(const Value: tbtString);
+  public
+
+    property FieldOrgName: tbtString read FFieldOrgName write SetFieldOrgName;
+
+    property FieldName: tbtString read FFieldName;
+
+    property FieldNameHash: Longint read FFieldNameHash;
+
+    property aType: TPSType read FType write FType;
+  end;
+
+  PIFPSRecordFieldTypeDef = TPSRecordFieldTypeDef;
+
+  TPSType = class(TObject)
+  private
+    FNameHash: Longint;
+    FName: tbtString;
+    FBaseType: TPSBaseType;
+    {$IFDEF PS_USESSUPPORT}
+    FDeclareUnit: tbtString;
+    {$ENDIF}
+    FDeclarePos: Cardinal;
+    FDeclareRow: Cardinal;
+    FDeclareCol: Cardinal;
+    FUsed: Boolean;
+    FExportName: Boolean;
+    FOriginalName: tbtString;
+    FAttributes: TPSAttributes;
+    FFinalTypeNo: cardinal;
+    procedure SetName(const Value: tbtString);
+  public
+
+    constructor Create;
+
+    destructor Destroy; override;
+
+    property Attributes: TPSAttributes read FAttributes;
+
+
+    property FinalTypeNo: cardinal read FFinalTypeNo;
+
+
+    property OriginalName: tbtString read FOriginalName write FOriginalName;
+
+    property Name: tbtString read FName write SetName;
+
+    property NameHash: Longint read FNameHash;
+
+    property BaseType: TPSBaseType read FBaseType write FBaseType;
+
+    {$IFDEF PS_USESSUPPORT}
+    property DeclareUnit: tbtString read FDeclareUnit write FDeclareUnit;
+    {$ENDIF}
+
+    property DeclarePos: Cardinal read FDeclarePos write FDeclarePos;
+
+    property DeclareRow: Cardinal read FDeclareRow write FDeclareRow;
+
+    property DeclareCol: Cardinal read FDeclareCol write FDeclareCol;
+
+    property Used: Boolean read FUsed;
+
+    property ExportName: Boolean read FExportName write FExportName;
+
+    procedure Use;
+  end;
+
+
+  PIFPSType = TPSType;
+
+  TPSVariantType = class(TPSType)
+  private
+  public
+    function GetDynInvokeProcNo(Owner: TPSPascalCompiler; const Name: tbtString; Params: TPSParameters): Cardinal; virtual;
+    function GetDynIvokeSelfType(Owner: TPSPascalCompiler): TPSType; virtual;
+    function GetDynInvokeParamType(Owner: TPSPascalCompiler): TPSType; virtual;
+    function GetDynIvokeResulType(Owner: TPSPascalCompiler): TPSType; virtual;
+  end;
+
+
+  TPSRecordType = class(TPSType)
+  private
+    FRecordSubVals: TPSList;
+  public
+
+    constructor Create;
+
+    destructor Destroy; override;
+
+    function RecValCount: Longint;
+
+    function RecVal(I: Longint): PIFPSRecordFieldTypeDef;
+
+    function AddRecVal: PIFPSRecordFieldTypeDef;
+  end;
+
+  TPSClassType = class(TPSType)
+  private
+    FCL: TPSCompiletimeClass;
+  public
+
+    property Cl: TPSCompileTimeClass read FCL write FCL;
+  end;
+  TPSExternalClass = class;
+  TPSUndefinedClassType = class(TPSType)
+  private
+    FExtClass: TPSExternalClass;
+  public
+    property ExtClass: TPSExternalClass read FExtClass write FExtClass;
+  end;
+{$IFNDEF PS_NOINTERFACES}
+
+  TPSInterfaceType = class(TPSType)
+  private
+    FIntf: TPSInterface;
+  public
+
+    property Intf: TPSInterface read FIntf write FIntf;
+  end;
+{$ENDIF}
+
+
+  TPSProceduralType = class(TPSType)
+  private
+    FProcDef: TPSParametersDecl;
+  public
+
+    property ProcDef: TPSParametersDecl read FProcDef;
+
+    constructor Create;
+
+    destructor Destroy; override;
+  end;
+
+  TPSArrayType = class(TPSType)
+  private
+    FArrayTypeNo: TPSType;
+  public
+
+    property ArrayTypeNo: TPSType read FArrayTypeNo write FArrayTypeNo;
+  end;
+
+  TPSStaticArrayType = class(TPSArrayType)
+  private
+    FStartOffset: Longint;
+    FLength: Cardinal;
+  public
+
+    property StartOffset: Longint read FStartOffset write FStartOffset;
+
+    property Length: Cardinal read FLength write FLength;
+  end;
+
+  TPSSetType = class(TPSType)
+  private
+    FSetType: TPSType;
+    function GetByteSize: Longint;
+    function GetBitSize: Longint;
+  public
+
+    property SetType: TPSType read FSetType write FSetType;
+
+    property ByteSize: Longint read GetByteSize;
+
+    property BitSize: Longint read GetBitSize;
+  end;
+
+  TPSTypeLink = class(TPSType)
+  private
+    FLinkTypeNo: TPSType;
+  public
+
+    property LinkTypeNo: TPSType read FLinkTypeNo write FLinkTypeNo;
+  end;
+
+  TPSEnumType = class(TPSType)
+  private
+    FHighValue: Cardinal;
+  public
+
+    property HighValue: Cardinal read FHighValue write FHighValue;
+  end;
+
+
+  TPSProcedure = class(TObject)
+  private
+    FAttributes: TPSAttributes;
+  public
+
+    property Attributes: TPSAttributes read FAttributes;
+
+
+    constructor Create;
+
+    destructor Destroy; override;
+  end;
+
+  TPSAttributeType = class;
+
+  TPSAttributeTypeField = class(TObject)
+  private
+    FOwner: TPSAttributeType;
+    FFieldOrgName: tbtString;
+    FFieldName: tbtString;
+    FFieldNameHash: Longint;
+    FFieldType: TPSType;
+    FHidden: Boolean;
+    procedure SetFieldOrgName(const Value: tbtString);
+  public
+
+    constructor Create(AOwner: TPSAttributeType);
+
+    property Owner: TPSAttributeType read FOwner;
+
+    property FieldOrgName: tbtString read FFieldOrgName write SetFieldOrgName;
+
+    property FieldName: tbtString read FFieldName;
+
+    property FieldNameHash: Longint read FFieldNameHash;
+
+    property FieldType: TPSType read FFieldType write FFieldType;
+
+    property Hidden: Boolean read FHidden write FHidden;
+  end;
+
+  TPSApplyAttributeToType = function (Sender: TPSPascalCompiler; aType: TPSType; Attr: TPSAttribute): Boolean;
+
+  TPSApplyAttributeToProc = function (Sender: TPSPascalCompiler; aProc: TPSProcedure; Attr: TPSAttribute): Boolean;
+  { An attribute type }
+  TPSAttributeType = class(TPSType)
+  private
+    FFields: TPSList;
+    FName: tbtString;
+    FOrgname: tbtString;
+    FNameHash: Longint;
+    FAAProc: TPSApplyAttributeToProc;
+    FAAType: TPSApplyAttributeToType;
+    function GetField(I: Longint): TPSAttributeTypeField;
+    function GetFieldCount: Longint;
+    procedure SetName(const s: tbtString);
+  public
+
+    property OnApplyAttributeToType: TPSApplyAttributeToType read FAAType write FAAType;
+
+    property OnApplyAttributeToProc: TPSApplyAttributeToProc read FAAProc write FAAProc;
+
+    property Fields[i: Longint]: TPSAttributeTypeField read GetField;
+
+    property FieldCount: Longint read GetFieldCount;
+
+    procedure DeleteField(I: Longint);
+
+    function AddField: TPSAttributeTypeField;
+
+    property Name: tbtString read FName;
+
+    property OrgName: tbtString read FOrgName write SetName;
+
+    property NameHash: Longint read FNameHash;
+
+    constructor Create;
+
+    destructor Destroy; override;
+  end;
+
+  TPSAttribute = class(TObject)
+  private
+    FAttribType: TPSAttributeType;
+    FValues: TPSList;
+    function GetValueCount: Longint;
+    function GetValue(I: Longint): PIfRVariant;
+  public
+
+    constructor Create(AttribType: TPSAttributeType);
+
+    procedure Assign(Item: TPSAttribute);
+
+    property AType: TPSAttributeType read FAttribType;
+
+    property Count: Longint read GetValueCount;
+
+    property Values[i: Longint]: PIfRVariant read GetValue; default;
+
+    procedure DeleteValue(i: Longint);
+
+    function AddValue(v: PIFRVariant): Longint;
+
+    destructor Destroy; override;
+  end;
+
+
+  TPSAttributes = class(TObject)
+  private
+    FItems: TPSList;
+    function GetCount: Longint;
+    function GetItem(I: Longint): TPSAttribute;
+  public
+
+    procedure Assign(attr: TPSAttributes; Move: Boolean);
+
+    property Count: Longint read GetCount;
+
+    property Items[i: Longint]: TPSAttribute read GetItem; default;
+
+    procedure Delete(i: Longint);
+
+    function Add(AttribType: TPSAttributeType): TPSAttribute;
+
+    function FindAttribute(const Name: tbtString): TPSAttribute;
+
+    constructor Create;
+
+    destructor Destroy; override;
+  end;
+
+
+  TPSProcVar = class(TObject)
+  private
+    FNameHash: Longint;
+    FName: tbtString;
+    FOrgName: tbtString;
+    FType: TPSType;
+    FUsed: Boolean;
+    {$IFDEF PS_USESSUPPORT}
+    FDeclareUnit: tbtString;
+    {$ENDIF}
+    FDeclarePos, FDeclareRow, FDeclareCol: Cardinal;
+    procedure SetName(const Value: tbtString);
+  public
+
+    property OrgName: tbtString read FOrgName write FOrgname;
+
+    property NameHash: Longint read FNameHash;
+
+    property Name: tbtString read FName write SetName;
+
+    property AType: TPSType read FType write FType;
+
+    property Used: Boolean read FUsed;
+
+    {$IFDEF PS_USESSUPPORT}
+    property DeclareUnit: tbtString read FDeclareUnit write FDeclareUnit;
+    {$ENDIF}
+
+    property DeclarePos: Cardinal read FDeclarePos write FDeclarePos;
+
+    property DeclareRow: Cardinal read FDeclareRow write FDeclareRow;
+
+    property DeclareCol: Cardinal read FDeclareCol write FDeclareCol;
+
+    procedure Use;
+  end;
+
+  PIFPSProcVar = TPSProcVar;
+
+  TPSExternalProcedure = class(TPSProcedure)
+  private
+    FRegProc: TPSRegProc;
+  public
+
+    property RegProc: TPSRegProc read FRegProc write FRegProc;
+  end;
+
+
+  TPSInternalProcedure = class(TPSProcedure)
+  private
+    FForwarded: Boolean;
+    FData: tbtString;
+    FNameHash: Longint;
+    FName: tbtString;
+    FDecl: TPSParametersDecl;
+    FProcVars: TPSList;
+    FUsed: Boolean;
+    FOutputDeclPosition: Cardinal;
+    FResultUsed: Boolean;
+    FLabels: TIfStringList;
+    FGotos: TIfStringList;
+    FDeclareRow: Cardinal;
+    {$IFDEF PS_USESSUPPORT}
+    FDeclareUnit: tbtString;
+    {$ENDIF}
+    FDeclarePos: Cardinal;
+    FDeclareCol: Cardinal;
+    FOriginalName: tbtString;
+    procedure SetName(const Value: tbtString);
+  public
+
+    constructor Create;
+
+    destructor Destroy; override;
+    {Attributes}
+
+
+    property Forwarded: Boolean read FForwarded write FForwarded;
+
+    property Data: tbtString read FData write FData;
+
+    property Decl: TPSParametersDecl read FDecl;
+
+    property OriginalName: tbtString read FOriginalName write FOriginalName;
+
+    property Name: tbtString read FName write SetName;
+
+    property NameHash: Longint read FNameHash;
+
+    property ProcVars: TPSList read FProcVars;
+
+    property Used: Boolean read FUsed;
+
+    {$IFDEF PS_USESSUPPORT}
+    property DeclareUnit: tbtString read FDeclareUnit write FDeclareUnit;
+    {$ENDIF}
+
+    property DeclarePos: Cardinal read FDeclarePos write FDeclarePos;
+
+    property DeclareRow: Cardinal read FDeclareRow write FDeclareRow;
+
+    property DeclareCol: Cardinal read FDeclareCol write FDeclareCol;
+
+    property OutputDeclPosition: Cardinal read FOutputDeclPosition write FOutputDeclPosition;
+
+    property ResultUsed: Boolean read FResultUsed;
+
+
+    property Labels: TIfStringList read FLabels;
+
+    property Gotos: TIfStringList read FGotos;
+
+    procedure Use;
+
+    procedure ResultUse;
+  end;
+
+  TPSVar = class(TObject)
+  private
+    FNameHash: Longint;
+    FOrgName: tbtString;
+    FName: tbtString;
+    FType: TPSType;
+    FUsed: Boolean;
+    FExportName: tbtString;
+    FDeclareRow: Cardinal;
+    {$IFDEF PS_USESSUPPORT}
+    FDeclareUnit: tbtString;
+    {$ENDIF}
+    FDeclarePos: Cardinal;
+    FDeclareCol: Cardinal;
+    FSaveAsPointer: Boolean;
+    procedure SetName(const Value: tbtString);
+  public
+
+    property SaveAsPointer: Boolean read FSaveAsPointer write FSaveAsPointer;
+
+    property ExportName: tbtString read FExportName write FExportName;
+
+    property Used: Boolean read FUsed;
+
+    property aType: TPSType read FType write FType;
+
+    property OrgName: tbtString read FOrgName write FOrgName;
+
+    property Name: tbtString read FName write SetName;
+
+    property NameHash: Longint read FNameHash;
+
+    {$IFDEF PS_USESSUPPORT}
+    property DeclareUnit: tbtString read FDeclareUnit write FDeclareUnit;
+    {$ENDIF}
+
+    property DeclarePos: Cardinal read FDeclarePos write FDeclarePos;
+
+    property DeclareRow: Cardinal read FDeclareRow write FDeclareRow;
+
+    property DeclareCol: Cardinal read FDeclareCol write FDeclareCol;
+
+    procedure Use;
+  end;
+
+  PIFPSVar = TPSVar;
+
+  TPSConstant = class(TObject)
+  private
+
+    FOrgName: tbtString;
+
+    FNameHash: Longint;
+
+    FName: tbtString;
+
+    FDeclareRow: Cardinal;
+    {$IFDEF PS_USESSUPPORT}
+    FDeclareUnit: tbtString;
+    {$ENDIF}
+    FDeclarePos: Cardinal;
+    FDeclareCol: Cardinal;
+
+    FValue: PIfRVariant;
+    procedure SetName(const Value: tbtString);
+  public
+
+    property OrgName: tbtString read FOrgName write FOrgName;
+
+    property Name: tbtString read FName write SetName;
+
+    property NameHash: Longint read FNameHash;
+
+    property Value: PIfRVariant read FValue write FValue;
+
+    {$IFDEF PS_USESSUPPORT}
+    property DeclareUnit: tbtString read FDeclareUnit write FDeclareUnit;
+    {$ENDIF}
+
+    property DeclarePos: Cardinal read FDeclarePos write FDeclarePos;
+
+    property DeclareRow: Cardinal read FDeclareRow write FDeclareRow;
+
+    property DeclareCol: Cardinal read FDeclareCol write FDeclareCol;
+
+
+    procedure SetSet(const val);
+
+
+    procedure SetInt(const Val: Longint);
+
+    procedure SetUInt(const Val: Cardinal);
+    {$IFNDEF PS_NOINT64}
+
+    procedure SetInt64(const Val: Int64);
+    {$ENDIF}
+
+    procedure SetString(const Val: tbtString);
+
+    procedure SetChar(c: tbtChar);
+    {$IFNDEF PS_NOWIDESTRING}
+
+    procedure SetWideChar(const val: WideChar);
+
+    procedure SetWideString(const val: tbtwidestring);
+    procedure SetUnicodeString(const val: tbtunicodestring);
+    {$ENDIF}
+
+    procedure SetExtended(const Val: Extended);
+
+
+    destructor Destroy; override;
+  end;
+
+  PIFPSConstant = TPSConstant;
+
+  TPSPascalCompilerErrorType = (
+    ecUnknownIdentifier,
+    ecIdentifierExpected,
+    ecCommentError,
+    ecStringError,
+    ecCharError,
+    ecSyntaxError,
+    ecUnexpectedEndOfFile,
+    ecSemicolonExpected,
+    ecBeginExpected,
+    ecPeriodExpected,
+    ecDuplicateIdentifier,
+    ecColonExpected,
+    ecUnknownType,
+    ecCloseRoundExpected,
+    ecTypeMismatch,
+    ecInternalError,
+    ecAssignmentExpected,
+    ecThenExpected,
+    ecDoExpected,
+    ecNoResult,
+    ecOpenRoundExpected,
+    ecCommaExpected,
+    ecToExpected,
+    ecIsExpected,
+    ecOfExpected,
+    ecCloseBlockExpected,
+    ecVariableExpected,
+    ecStringExpected,
+    ecEndExpected,
+    ecUnSetLabel,
+    ecNotInLoop,
+    ecInvalidJump,
+    ecOpenBlockExpected,
+    ecWriteOnlyProperty,
+    ecReadOnlyProperty,
+    ecClassTypeExpected,
+    ecCustomError,
+    ecDivideByZero,
+    ecMathError,
+    ecUnsatisfiedForward,
+    ecForwardParameterMismatch,
+    ecInvalidnumberOfParameters
+    {$IFDEF PS_USESSUPPORT}
+    , ecNotAllowed,
+    ecUnitNotFoundOrContainsErrors
+    {$ENDIF}
+    );
+
+  TPSPascalCompilerHintType = (
+    ehVariableNotUsed,
+    ehFunctionNotUsed,
+    ehCustomHint
+    );
+
+  TPSPascalCompilerWarningType = (
+    ewCalculationAlwaysEvaluatesTo,
+    ewIsNotNeeded,
+    ewAbstractClass,
+    ewCustomWarning
+  );
+
+  TPSPascalCompilerMessage = class(TObject)
+  protected
+
+    FRow: Cardinal;
+
+    FCol: Cardinal;
+
+    FModuleName: tbtString;
+
+    FParam: tbtString;
+
+    FPosition: Cardinal;
+
+    procedure SetParserPos(Parser: TPSPascalParser);
+  public
+
+    property ModuleName: tbtString read FModuleName write FModuleName;
+
+    property Param: tbtString read FParam write FParam;
+
+    property Pos: Cardinal read FPosition write FPosition;
+
+    property Row: Cardinal read FRow write FRow;
+
+    property Col: Cardinal read FCol write FCol;
+
+    function ErrorType: tbtString; virtual; abstract;
+
+    procedure SetCustomPos(Pos, Row, Col: Cardinal);
+
+    function MessageToString: tbtString; virtual;
+
+    function ShortMessageToString: tbtString; virtual; abstract;
+  end;
+
+  TPSPascalCompilerError = class(TPSPascalCompilerMessage)
+  protected
+
+    FError: TPSPascalCompilerErrorType;
+  public
+
+    property Error: TPSPascalCompilerErrorType read FError;
+
+    function ErrorType: tbtString; override;
+    function ShortMessageToString: tbtString; override;
+  end;
+
+  TPSPascalCompilerHint = class(TPSPascalCompilerMessage)
+  protected
+
+    FHint: TPSPascalCompilerHintType;
+  public
+
+    property Hint: TPSPascalCompilerHintType read FHint;
+
+    function ErrorType: tbtString; override;
+    function ShortMessageToString: tbtString; override;
+  end;
+
+  TPSPascalCompilerWarning = class(TPSPascalCompilerMessage)
+  protected
+
+    FWarning: TPSPascalCompilerWarningType;
+  public
+
+    property Warning: TPSPascalCompilerWarningType read FWarning;
+
+    function ErrorType: tbtString; override;
+    function ShortMessageToString: tbtString; override;
+  end;
+  TPSDuplicCheck = set of (dcTypes, dcProcs, dcVars, dcConsts);
+
+  TPSBlockInfo = class(TObject)
+  private
+    FOwner: TPSBlockInfo;
+    FWithList: TPSList;
+    FProcNo: Cardinal;
+    FProc: TPSInternalProcedure;
+    FSubType: TPSSubOptType;
+  public
+
+    property WithList: TPSList read FWithList;
+
+    property ProcNo: Cardinal read FProcNo write FProcNo;
+
+    property Proc: TPSInternalProcedure read FProc write FProc;
+
+    property SubType: TPSSubOptType read FSubType write FSubType;
+
+    procedure Clear;
+
+    constructor Create(Owner: TPSBlockInfo);
+
+    destructor Destroy; override;
+  end;
+
+
+
+  TPSBinOperatorType = (otAdd, otSub, otMul, otDiv, otMod, otShl, otShr, otAnd, otOr, otXor, otAs,
+                          otGreaterEqual, otLessEqual, otGreater, otLess, otEqual,
+                          otNotEqual, otIs, otIn);
+
+  TPSUnOperatorType = (otNot, otMinus, otCast);
+
+  TPSOnUseVariable = procedure (Sender: TPSPascalCompiler; VarType: TPSVariableType; VarNo: Longint; ProcNo, Position: Cardinal; const PropData: tbtString);
+
+  TPSOnUses = function(Sender: TPSPascalCompiler; const Name: tbtString): Boolean;
+
+  TPSOnExportCheck = function(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: tbtString): Boolean;
+
+  {$IFNDEF PS_USESSUPPORT}
+  TPSOnWriteLineEvent = function (Sender: TPSPascalCompiler; Position: Cardinal): Boolean;
+  {$ELSE}
+  TPSOnWriteLineEvent = function (Sender: TPSPascalCompiler; FileName: tbtString; Position: Cardinal): Boolean;
+  {$ENDIF}
+
+  TPSOnExternalProc = function (Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const Name, FExternal: tbtString): TPSRegProc;
+
+  TPSOnTranslateLineInfoProc = procedure (Sender: TPSPascalCompiler; var Pos, Row, Col: Cardinal; var Name: tbtString);
+  TPSOnNotify = function (Sender: TPSPascalCompiler): Boolean;
+
+  TPSOnFunction = procedure(name: tbtString; Pos, Row, Col: Integer) of object;
+
+
+  TPSPascalCompiler = class
+  protected
+    FAnyString: TPSType;
+    FUnitName: tbtString;
+    FID: Pointer;
+    FOnExportCheck: TPSOnExportCheck;
+    FDefaultBoolType: TPSType;
+    FRegProcs: TPSList;
+    FConstants: TPSList;
+    FProcs: TPSList;
+    FTypes: TPSList;
+    FAttributeTypes: TPSList;
+    FVars: TPSList;
+    FOutput: tbtString;
+    FParser: TPSPascalParser;
+    FParserHadError: Boolean;
+    FMessages: TPSList;
+    FOnUses: TPSOnUses;
+    FUtf8Decode: Boolean;
+    FIsUnit: Boolean;
+    FAllowNoBegin: Boolean;
+    FAllowNoEnd: Boolean;
+    FAllowUnit: Boolean;
+    FBooleanShortCircuit: Boolean;
+    FDebugOutput: tbtString;
+    FOnExternalProc: TPSOnExternalProc;
+    FOnUseVariable: TPSOnUseVariable;
+    FOnBeforeOutput: TPSOnNotify;
+    FOnBeforeCleanup: TPSOnNotify;
+    FOnWriteLine: TPSOnWriteLineEvent;
+    FContinueOffsets, FBreakOffsets: TPSList;
+    FOnTranslateLineInfo: TPSOnTranslateLineInfoProc;
+    FAutoFreeList: TPSList;
+    FClasses: TPSList;
+    FOnFunctionStart: TPSOnFunction;
+    FOnFunctionEnd: TPSOnFunction;
+
+
+		FWithCount: Integer;
+		FTryCount: Integer;
+    FExceptFinallyCount: Integer;
+
+
+    {$IFDEF PS_USESSUPPORT}
+    FUnitInits : TPSList; //nvds
+    FUnitFinits: TPSList; //nvds
+    FUses      : TIFStringList;
+    fModule    : tbtString;
+    {$ENDIF}
+    fInCompile : Integer;
+{$IFNDEF PS_NOINTERFACES}
+    FInterfaces: TPSList;
+{$ENDIF}
+
+    FCurrUsedTypeNo: Cardinal;
+    FGlobalBlock: TPSBlockInfo;
+
+    function IsBoolean(aType: TPSType): Boolean;
+    {$IFNDEF PS_NOWIDESTRING}
+
+    function GetWideString(Src: PIfRVariant; var s: Boolean): tbtwidestring;
+    function GetUnicodeString(Src: PIfRVariant; var s: Boolean): tbtunicodestring;
+    {$ENDIF}
+    function PreCalc(FUseUsedTypes: Boolean; Var1Mod: Byte; var1: PIFRVariant; Var2Mod: Byte;
+      Var2: PIfRVariant; Cmd: TPSBinOperatorType; Pos, Row, Col: Cardinal): Boolean;
+
+    function FindBaseType(BaseType: TPSBaseType): TPSType;
+
+    function IsIntBoolType(aType: TPSType): Boolean;
+    function GetTypeCopyLink(p: TPSType): TPSType;
+
+    function at2ut(p: TPSType): TPSType;
+    procedure UseProc(procdecl: TPSParametersDecl);
+
+
+    function GetMsgCount: Longint;
+
+    function GetMsg(l: Longint): TPSPascalCompilerMessage;
+
+
+    function MakeExportDecl(decl: TPSParametersDecl): tbtString;
+
+
+    procedure DefineStandardTypes;
+
+    procedure DefineStandardProcedures;
+
+    function ReadReal(const s: tbtString): PIfRVariant;
+    function ReadString: PIfRVariant;
+    function ReadInteger(const s: tbtString): PIfRVariant;
+    function ReadAttributes(Dest: TPSAttributes): Boolean;
+    function ReadConstant(FParser: TPSPascalParser; StopOn: TPSPasToken): PIfRVariant;
+
+    function ApplyAttribsToFunction(func: TPSProcedure): boolean;
+    function ProcessFunction(AlwaysForward: Boolean; Att: TPSAttributes): Boolean;
+    function ValidateParameters(BlockInfo: TPSBlockInfo; Params: TPSParameters; ParamTypes: TPSParametersDecl): boolean;
+
+    function IsVarInCompatible(ft1, ft2: TPSType): Boolean;
+    function GetTypeNo(BlockInfo: TPSBlockInfo; p: TPSValue): TPSType;
+    function DoVarBlock(proc: TPSInternalProcedure): Boolean;
+    function DoTypeBlock(FParser: TPSPascalParser): Boolean;
+    function ReadType(const Name: tbtString; FParser: TPSPascalParser): TPSType;
+    function ProcessLabel(Proc: TPSInternalProcedure): Boolean;
+    function ProcessSub(BlockInfo: TPSBlockInfo): Boolean;
+    function ProcessLabelForwards(Proc: TPSInternalProcedure): Boolean;
+
+    procedure WriteDebugData(const s: tbtString);
+
+    procedure Debug_SavePosition(ProcNo: Cardinal; Proc: TPSInternalProcedure);
+
+    procedure Debug_WriteParams(ProcNo: Cardinal; Proc: TPSInternalProcedure);
+
+    procedure Debug_WriteLine(BlockInfo: TPSBlockInfo);
+
+
+    function IsCompatibleType(p1, p2: TPSType; Cast: Boolean): Boolean;
+
+    function IsDuplicate(const s: tbtString; const check: TPSDuplicCheck): Boolean;
+
+    function NewProc(const OriginalName, Name: tbtString): TPSInternalProcedure;
+
+    function AddUsedFunction(var Proc: TPSInternalProcedure): Cardinal;
+
+    function AddUsedFunction2(var Proc: TPSExternalProcedure): Cardinal;
+
+
+    function CheckCompatProc(P: TPSType; ProcNo: Cardinal): Boolean;
+
+
+    procedure ParserError(Parser: TObject; Kind: TPSParserErrorKind);
+
+    function ReadTypeAddProcedure(const Name: tbtString; FParser: TPSPascalParser): TPSType;
+
+    function VarIsDuplicate(Proc: TPSInternalProcedure; const VarNames, s: tbtString): Boolean;
+
+    function IsProcDuplicLabel(Proc: TPSInternalProcedure; const s: tbtString): Boolean;
+
+    procedure CheckForUnusedVars(Func: TPSInternalProcedure);
+    function ProcIsDuplic(Decl: TPSParametersDecl; const FunctionName, FunctionParamNames: tbtString; const s: tbtString; Func: TPSInternalProcedure): Boolean;
+   public
+     function GetConstant(const Name: tbtString): TPSConstant;
+
+     function UseExternalProc(const Name: tbtString): TPSParametersDecl;
+
+    function FindProc(const aName: tbtString): Cardinal;
+
+    function GetTypeCount: Longint;
+
+    function GetType(I: Longint): TPSType;
+
+    function GetVarCount: Longint;
+
+    function GetVar(I: Longint): TPSVar;
+
+    function GetProcCount: Longint;
+
+    function GetProc(I: Longint): TPSProcedure;
+
+    function GetConstCount: Longint;
+
+    function GetConst(I: Longint): TPSConstant;
+
+    function GetRegProcCount: Longint;
+
+    function GetRegProc(I: Longint): TPSRegProc;
+
+    function AddAttributeType: TPSAttributeType;
+    function FindAttributeType(const Name: tbtString): TPSAttributeType;
+
+    procedure AddToFreeList(Obj: TObject);
+
+    property ID: Pointer read FID write FID;
+
+    function MakeError(const Module: tbtString; E: TPSPascalCompilerErrorType; const
+      Param: tbtString): TPSPascalCompilerMessage;
+
+    function MakeWarning(const Module: tbtString; E: TPSPascalCompilerWarningType;
+      const Param: tbtString): TPSPascalCompilerMessage;
+
+    function MakeHint(const Module: tbtString; E: TPSPascalCompilerHintType;
+      const Param: tbtString): TPSPascalCompilerMessage;
+
+{$IFNDEF PS_NOINTERFACES}
+
+    function AddInterface(InheritedFrom: TPSInterface; Guid: TGuid; const Name: tbtString): TPSInterface;
+
+    function FindInterface(const Name: tbtString): TPSInterface;
+
+{$ENDIF}
+    function AddClass(InheritsFrom: TPSCompileTimeClass; aClass: TClass): TPSCompileTimeClass;
+
+    function AddClassN(InheritsFrom: TPSCompileTimeClass; const aClass: tbtString): TPSCompileTimeClass;
+
+
+    function FindClass(const aClass: tbtString): TPSCompileTimeClass;
+
+    function AddFunction(const Header: tbtString): TPSRegProc;
+
+    function AddDelphiFunction(const Decl: tbtString): TPSRegProc;
+
+    function AddType(const Name: tbtString; const BaseType: TPSBaseType): TPSType;
+
+    function AddTypeS(const Name, Decl: tbtString): TPSType;
+
+    function AddTypeCopy(const Name: tbtString; TypeNo: TPSType): TPSType;
+
+    function AddTypeCopyN(const Name, FType: tbtString): TPSType;
+
+    function AddConstant(const Name: tbtString; FType: TPSType): TPSConstant;
+
+    function AddConstantN(const Name, FType: tbtString): TPSConstant;
+
+    function AddVariable(const Name: tbtString; FType: TPSType): TPSVar;
+
+    function AddVariableN(const Name, FType: tbtString): TPSVar;
+
+    function AddUsedVariable(const Name: tbtString; FType: TPSType): TPSVar;
+
+    function AddUsedVariableN(const Name, FType: tbtString): TPSVar;
+
+    function AddUsedPtrVariable(const Name: tbtString; FType: TPSType): TPSVar;
+
+    function AddUsedPtrVariableN(const Name, FType: tbtString): TPSVar;
+
+    function FindType(const Name: tbtString): TPSType;
+
+    function MakeDecl(decl: TPSParametersDecl): tbtString;
+
+    function Compile(const s: tbtString): Boolean;
+
+    function GetOutput(var s: tbtString): Boolean;
+	
+    function GetDebugOutput(var s: tbtString): Boolean;
+
+    procedure Clear;
+
+    constructor Create;
+	
+    destructor Destroy; override;
+
+    property MsgCount: Longint read GetMsgCount;
+	
+    property Msg[l: Longint]: TPSPascalCompilerMessage read GetMsg;
+
+    property OnTranslateLineInfo: TPSOnTranslateLineInfoProc read FOnTranslateLineInfo write FOnTranslateLineInfo;
+
+    property OnUses: TPSOnUses read FOnUses write FOnUses;
+	
+    property OnExportCheck: TPSOnExportCheck read FOnExportCheck write FOnExportCheck;
+	
+    property OnWriteLine: TPSOnWriteLineEvent read FOnWriteLine write FOnWriteLine;
+
+    property OnExternalProc: TPSOnExternalProc read FOnExternalProc write FOnExternalProc;
+	
+    property OnUseVariable: TPSOnUseVariable read FOnUseVariable write FOnUseVariable;
+
+    property OnBeforeOutput: TPSOnNotify read FOnBeforeOutput write FOnBeforeOutput;
+
+    property OnBeforeCleanup: TPSOnNotify read FOnBeforeCleanup write FOnBeforeCleanup;
+
+    property OnFunctionStart: TPSOnFunction read FOnFunctionStart write FOnFunctionStart;
+
+    property OnFunctionEnd: TPSOnFunction read FOnFunctionEnd write FOnFunctionEnd;
+	
+    property IsUnit: Boolean read FIsUnit;
+	
+    property AllowNoBegin: Boolean read FAllowNoBegin write FAllowNoBegin;
+	
+    property AllowUnit: Boolean read FAllowUnit write FAllowUnit;
+	
+    property AllowNoEnd: Boolean read FAllowNoEnd write FAllowNoEnd;
+
+
+    property BooleanShortCircuit: Boolean read FBooleanShortCircuit write FBooleanShortCircuit;
+
+    property UTF8Decode: Boolean read FUtf8Decode write FUtf8Decode;
+
+    property UnitName: tbtString read FUnitName;
+  end;
+  TIFPSPascalCompiler = TPSPascalCompiler;
+
+  TPSValue = class(TObject)
+  private
+    FPos, FRow, FCol: Cardinal;
+  public
+
+    property Pos: Cardinal read FPos write FPos;
+
+    property Row: Cardinal read FRow write FRow;
+
+    property Col: Cardinal read FCol write FCol;
+
+    procedure SetParserPos(P: TPSPascalParser);
+
+  end;
+
+  TPSParameter = class(TObject)
+  private
+    FValue: TPSValue;
+    FTempVar: TPSValue;
+    FParamMode: TPSParameterMode;
+    FExpectedType: TPSType;
+  public
+
+    property Val: TPSValue read FValue write FValue;
+
+    property ExpectedType: TPSType read FExpectedType write FExpectedType;
+
+    property TempVar: TPSValue read FTempVar write FTempVar;
+
+    property ParamMode: TPSParameterMode read FParamMode write FParamMode;
+
+    destructor Destroy; override;
+  end;
+
+  TPSParameters = class(TObject)
+  private
+    FItems: TPSList;
+    function GetCount: Cardinal;
+    function GetItem(I: Longint): TPSParameter;
+  public
+
+    constructor Create;
+
+    destructor Destroy; override;
+
+    property Count: Cardinal read GetCount;
+
+    property Item[I: Longint]: TPSParameter read GetItem; default;
+
+    procedure Delete(I: Cardinal);
+
+    function Add: TPSParameter;
+  end;
+
+  TPSSubItem = class(TObject)
+  private
+    FType: TPSType;
+  public
+
+    property aType: TPSType read FType write FType;
+  end;
+
+  TPSSubNumber = class(TPSSubItem)
+  private
+    FSubNo: Cardinal;
+  public
+
+    property SubNo: Cardinal read FSubNo write FSubNo;
+  end;
+
+  TPSSubValue = class(TPSSubItem)
+  private
+    FSubNo: TPSValue;
+  public
+
+    property SubNo: TPSValue read FSubNo write FSubNo;
+
+    destructor Destroy; override;
+  end;
+
+  TPSValueVar = class(TPSValue)
+  private
+    FRecItems: TPSList;
+    function GetRecCount: Cardinal;
+    function GetRecItem(I: Cardinal): TPSSubItem;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    function RecAdd(Val: TPSSubItem): Cardinal;
+
+    procedure RecDelete(I: Cardinal);
+
+    property RecItem[I: Cardinal]: TPSSubItem read GetRecItem;
+
+    property RecCount: Cardinal read GetRecCount;
+  end;
+
+  TPSValueGlobalVar = class(TPSValueVar)
+  private
+    FAddress: Cardinal;
+  public
+
+    property GlobalVarNo: Cardinal read FAddress write FAddress;
+  end;
+
+
+  TPSValueLocalVar = class(TPSValueVar)
+  private
+    FLocalVarNo: Longint;
+  public
+
+    property LocalVarNo: Longint read FLocalVarNo write FLocalVarNo;
+  end;
+
+  TPSValueParamVar = class(TPSValueVar)
+  private
+    FParamNo: Longint;
+  public
+
+    property ParamNo: Longint read FParamNo write FParamNo;
+  end;
+
+  TPSValueAllocatedStackVar = class(TPSValueLocalVar)
+  private
+    FProc: TPSInternalProcedure;
+  public
+
+    property Proc: TPSInternalProcedure read FProc write FProc;
+    destructor Destroy; override;
+  end;
+
+  TPSValueData = class(TPSValue)
+  private
+    FData: PIfRVariant;
+  public
+
+    property Data: PIfRVariant read FData write FData;
+    destructor Destroy; override;
+  end;
+
+  TPSValueReplace = class(TPSValue)
+  private
+    FPreWriteAllocated: Boolean;
+    FFreeOldValue: Boolean;
+    FFreeNewValue: Boolean;
+    FOldValue: TPSValue;
+    FNewValue: TPSValue;
+    FReplaceTimes: Longint;
+  public
+
+    property OldValue: TPSValue read FOldValue write FOldValue;
+
+    property NewValue: TPSValue read FNewValue write FNewValue;
+    {Should it free the old value when destroyed?}
+    property FreeOldValue: Boolean read FFreeOldValue write FFreeOldValue;
+    property FreeNewValue: Boolean read FFreeNewValue write FFreeNewValue;
+    property PreWriteAllocated: Boolean read FPreWriteAllocated write FPreWriteAllocated;
+
+    property ReplaceTimes: Longint read FReplaceTimes write FReplaceTimes;
+
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+
+  TPSUnValueOp = class(TPSValue)
+  private
+    FVal1: TPSValue;
+    FOperator: TPSUnOperatorType;
+    FType: TPSType;
+  public
+
+    property Val1: TPSValue read FVal1 write FVal1;
+    {The operator}
+    property Operator: TPSUnOperatorType read FOperator write FOperator;
+
+    property aType: TPSType read FType write FType;
+    destructor Destroy; override;
+  end;
+
+  TPSBinValueOp = class(TPSValue)
+  private
+    FVal1,
+    FVal2: TPSValue;
+    FOperator: TPSBinOperatorType;
+    FType: TPSType;
+  public
+
+    property Val1: TPSValue read FVal1 write FVal1;
+
+    property Val2: TPSValue read FVal2 write FVal2;
+    {The operator for this value}
+    property Operator: TPSBinOperatorType read FOperator write FOperator;
+
+    property aType: TPSType read FType write FType;
+
+    destructor Destroy; override;
+  end;
+
+  TPSValueNil = class(TPSValue)
+  end;
+
+  TPSValueProcPtr = class(TPSValue)
+  private
+    FProcNo: Cardinal;
+  public
+
+    property ProcPtr: Cardinal read FProcNo write FProcNo;
+  end;
+
+  TPSValueProc = class(TPSValue)
+  private
+    FSelfPtr: TPSValue;
+    FParameters: TPSParameters;
+    FResultType: TPSType;
+  public
+    property ResultType: TPSType read FResultType write FResultType;
+
+    property SelfPtr: TPSValue read FSelfPtr write FSelfPtr;
+
+    property Parameters: TPSParameters read FParameters write FParameters;
+    destructor Destroy; override;
+  end;
+
+  TPSValueProcNo = class(TPSValueProc)
+  private
+    FProcNo: Cardinal;
+  public
+
+    property ProcNo: Cardinal read FProcNo write FProcNo;
+  end;
+
+  TPSValueProcVal = class(TPSValueProc)
+  private
+    FProcNo: TPSValue;
+  public
+
+    property ProcNo: TPSValue read FProcNo write FProcNo;
+
+    destructor Destroy; override;
+  end;
+
+  TPSValueArray = class(TPSValue)
+  private
+    FItems: TPSList;
+    function GetCount: Cardinal;
+    function GetItem(I: Cardinal): TPSValue;
+  public
+    function Add(Item: TPSValue): Cardinal;
+    procedure Delete(I: Cardinal);
+    property Item[I: Cardinal]: TPSValue read GetItem;
+    property Count: Cardinal read GetCount;
+
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TPSDelphiClassItem = class;
+
+  TPSPropType = (iptRW, iptR, iptW);
+
+  TPSCompileTimeClass = class
+  private
+    FInheritsFrom: TPSCompileTimeClass;
+    FClass: TClass;
+    FClassName: tbtString;
+    FClassNameHash: Longint;
+    FClassItems: TPSList;
+    FDefaultProperty: Cardinal;
+    FIsAbstract: Boolean;
+    FCastProc,
+    FNilProc: Cardinal;
+    FType: TPSType;
+
+    FOwner: TPSPascalCompiler;
+    function GetCount: Longint;
+    function GetItem(i: Longint): TPSDelphiClassItem;
+  public
+
+    property aType: TPSType read FType;
+
+    property Items[i: Longint]: TPSDelphiClassItem read GetItem;
+
+    property Count: Longint read GetCount;
+
+    property IsAbstract: Boolean read FIsAbstract write FIsAbstract;
+
+
+    property ClassInheritsFrom: TPSCompileTimeClass read FInheritsFrom write FInheritsFrom;
+
+    function RegisterMethod(const Decl: tbtString): Boolean;
+
+    procedure RegisterProperty(const PropertyName, PropertyType: tbtString; PropAC: TPSPropType);
+
+    procedure RegisterPublishedProperties;
+
+    function RegisterPublishedProperty(const Name: tbtString): Boolean;
+
+    procedure SetDefaultPropery(const Name: tbtString);
+
+    constructor Create(ClassName: tbtString; aOwner: TPSPascalCompiler; aType: TPSType);
+
+    class function CreateC(FClass: TClass; aOwner: TPSPascalCompiler; aType: TPSType): TPSCompileTimeClass;
+
+
+    destructor Destroy; override;
+
+
+    function IsCompatibleWith(aType: TPSType): Boolean;
+
+    function SetNil(var ProcNo: Cardinal): Boolean;
+
+    function CastToType(IntoType: TPSType; var ProcNo: Cardinal): Boolean;
+
+
+    function Property_Find(const Name: tbtString; var Index: IPointer): Boolean;
+
+    function Property_Get(Index: IPointer; var ProcNo: Cardinal): Boolean;
+
+    function Property_Set(Index: IPointer; var ProcNo: Cardinal): Boolean;
+
+    function Property_GetHeader(Index: IPointer; Dest: TPSParametersDecl): Boolean;
+
+
+    function Func_Find(const Name: tbtString; var Index: IPointer): Boolean;
+
+    function Func_Call(Index: IPointer; var ProcNo: Cardinal): Boolean;
+
+
+    function ClassFunc_Find(const Name: tbtString; var Index: IPointer): Boolean;
+
+    function ClassFunc_Call(Index: IPointer; var ProcNo: Cardinal): Boolean;
+  end;
+
+  TPSDelphiClassItem = class(TObject)
+  private
+    FOwner: TPSCompileTimeClass;
+    FOrgName: tbtString;
+    FName: tbtString;
+    FNameHash: Longint;
+    FDecl: TPSParametersDecl;
+    procedure SetName(const s: tbtString);
+  public
+
+    constructor Create(Owner: TPSCompileTimeClass);
+
+    destructor Destroy; override;
+
+    property Decl: TPSParametersDecl read FDecl;
+
+    property Name: tbtString read FName;
+
+    property OrgName: tbtString read FOrgName write SetName;
+
+    property NameHash: Longint read FNameHash;
+
+    property Owner: TPSCompileTimeClass read FOwner;
+  end;
+
+  TPSDelphiClassItemMethod = class(TPSDelphiClassItem)
+  private
+    FMethodNo: Cardinal;
+  public
+
+    property MethodNo: Cardinal read FMethodNo write FMethodNo;
+  end;
+
+  TPSDelphiClassItemProperty = class(TPSDelphiClassItem)
+  private
+    FReadProcNo: Cardinal;
+    FWriteProcNo: Cardinal;
+    FAccessType: TPSPropType;
+  public
+
+    property AccessType: TPSPropType read FAccessType write FAccessType;
+
+    property ReadProcNo: Cardinal read FReadProcNo write FReadProcNo;
+
+    property WriteProcNo: Cardinal read FWriteProcNo write FWriteProcNo;
+  end;
+
+
+  TPSDelphiClassItemConstructor = class(TPSDelphiClassItemMethod)
+  end;
+
+{$IFNDEF PS_NOINTERFACES}
+
+  TPSInterface = class(TObject)
+  private
+    FOwner: TPSPascalCompiler;
+    FType: TPSType;
+    FInheritedFrom: TPSInterface;
+    FGuid: TGuid;
+    FCastProc,
+    FNilProc: Cardinal;
+    FItems: TPSList;
+    FName: tbtString;
+    FNameHash: Longint;
+    procedure SetInheritedFrom(p: TPSInterface);
+  public
+
+    constructor Create(Owner: TPSPascalCompiler; InheritedFrom: TPSInterface; Guid: TGuid; const Name: tbtString; aType: TPSType);
+
+    destructor Destroy; override;
+
+    property aType: TPSType read FType;
+
+    property InheritedFrom: TPSInterface read FInheritedFrom write SetInheritedFrom;
+
+    property Guid: TGuid read FGuid write FGuid;
+
+    property Name: tbtString read FName write FName;
+
+    property NameHash: Longint read FNameHash;
+
+
+    function RegisterMethod(const Declaration: tbtString; const cc: TPSCallingConvention): Boolean;
+
+    function RegisterMethodEx(const Declaration: tbtString; const cc: TPSCallingConvention; const CustomParser: TPSPascalParser): Boolean;
+
+    procedure RegisterDummyMethod;
+
+    function IsCompatibleWith(aType: TPSType): Boolean;
+
+    function SetNil(var ProcNo: Cardinal): Boolean;
+
+    function CastToType(IntoType: TPSType; var ProcNo: Cardinal): Boolean;
+
+    function Func_Find(const Name: tbtString; var Index: Cardinal): Boolean;
+
+    function Func_Call(Index: Cardinal; var ProcNo: Cardinal): Boolean;
+  end;
+
+
+  TPSInterfaceMethod = class(TObject)
+  private
+    FName: tbtString;
+    FDecl: TPSParametersDecl;
+    FNameHash: Longint;
+    FCC: TPSCallingConvention;
+    FScriptProcNo: Cardinal;
+    FOrgName: tbtString;
+    FOwner: TPSInterface;
+    FOffsetCache: Cardinal;
+    function GetAbsoluteProcOffset: Cardinal;
+  public
+
+    property AbsoluteProcOffset: Cardinal read GetAbsoluteProcOffset;
+
+    property ScriptProcNo: Cardinal read FScriptProcNo;
+
+    property OrgName: tbtString read FOrgName;
+
+    property Name: tbtString read FName;
+
+    property NameHash: Longint read FNameHash;
+
+    property Decl: TPSParametersDecl read FDecl;
+
+    property CC: TPSCallingConvention read FCC;
+
+
+    constructor Create(Owner: TPSInterface);
+
+    destructor Destroy; override;
+  end;
+{$ENDIF}
+
+
+  TPSExternalClass = class(TObject)
+  protected
+
+    SE: TPSPascalCompiler;
+
+    FTypeNo: TPSType;
+  public
+
+    function SelfType: TPSType; virtual;
+	
+    constructor Create(Se: TPSPascalCompiler; TypeNo: TPSType);
+
+    function ClassFunc_Find(const Name: tbtString; var Index: Cardinal): Boolean; virtual;
+	
+    function ClassFunc_Call(Index: Cardinal; var ProcNo: Cardinal): Boolean; virtual;
+
+    function Func_Find(const Name: tbtString; var Index: Cardinal): Boolean; virtual;
+
+    function Func_Call(Index: Cardinal; var ProcNo: Cardinal): Boolean; virtual;
+
+    function IsCompatibleWith(Cl: TPSExternalClass): Boolean; virtual;
+
+    function SetNil(var ProcNo: Cardinal): Boolean; virtual;
+
+    function CastToType(IntoType: TPSType; var ProcNo: Cardinal): Boolean; virtual;
+
+    function CompareClass(OtherTypeNo: TPSType; var ProcNo: Cardinal): Boolean; virtual;
+  end;
+
+
+function ExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure;
+  Types: array of TPSBaseType; Modes: array of TPSParameterMode): Boolean;
+
+
+procedure SetVarExportName(P: TPSVar; const ExpName: tbtString);
+
+function AddImportedClassVariable(Sender: TPSPascalCompiler; const VarName, VarType: tbtString): Boolean;
+
+const
+  {Invalid value, this is returned by most functions of pascal script that return a cardinal, when they fail}
+  InvalidVal = Cardinal(-1);
+
+type
+  TIFPSCompileTimeClass = TPSCompileTimeClass;
+  TIFPSInternalProcedure = TPSInternalProcedure;
+  TIFPSPascalCompilerError = TPSPascalCompilerError;
+
+  TPMFuncType = (mftProc
+  , mftConstructor
+  );
+
+
+function PS_mi2s(i: Cardinal): tbtString;
+
+function ParseMethod(Owner: TPSPascalCompiler; const FClassName: tbtString; Decl: tbtString; var OrgName: tbtString; DestDecl: TPSParametersDecl; var Func: TPMFuncType): Boolean;
+function ParseMethodEx(Owner: TPSPascalCompiler; const FClassName: tbtString; Decl: tbtString; var OrgName: tbtString; DestDecl: TPSParametersDecl; var Func: TPMFuncType; CustomParser: TPSPascalParser): Boolean;
+
+function DeclToBits(const Decl: TPSParametersDecl): tbtString;
+
+function NewVariant(FType: TPSType): PIfRVariant;
+procedure DisposeVariant(p: PIfRVariant);
+
+implementation
+
+uses Classes, typInfo;
+
+{$IFDEF DELPHI3UP}
+resourceString
+{$ELSE}
+const
+{$ENDIF}
+
+  RPS_OnUseEventOnly = 'This function can only be called from within the OnUses event';
+  RPS_UnableToRegisterFunction = 'Unable to register function %s';
+  RPS_UnableToRegisterConst = 'Unable to register constant %s';
+  RPS_InvalidTypeForVar = 'Invalid type for variable %s';
+  RPS_InvalidType = 'Invalid Type';
+  RPS_UnableToRegisterType = 'Unable to register type %s';
+  RPS_UnknownInterface = 'Unknown interface: %s';
+  RPS_ConstantValueMismatch = 'Constant Value Type Mismatch';
+  RPS_ConstantValueNotAssigned = 'Constant Value is not assigned';
+
+  RPS_Error = 'Error';
+  RPS_UnknownIdentifier = 'Unknown identifier ''%s''';
+  RPS_IdentifierExpected = 'Identifier expected';
+  RPS_CommentError = 'Comment error';
+  RPS_StringError = 'String error';
+  RPS_CharError = 'Char error';
+  RPS_SyntaxError = 'Syntax error';
+  RPS_EOF = 'Unexpected end of file';
+  RPS_SemiColonExpected = 'Semicolon ('';'') expected';
+  RPS_BeginExpected = '''BEGIN'' expected';
+  RPS_PeriodExpected = 'period (''.'') expected';
+  RPS_DuplicateIdent = 'Duplicate identifier ''%s''';
+  RPS_ColonExpected = 'colon ('':'') expected';
+  RPS_UnknownType = 'Unknown type ''%s''';
+  RPS_CloseRoundExpected = 'Closing parenthesis expected';
+  RPS_TypeMismatch = 'Type mismatch';
+  RPS_InternalError = 'Internal error (%s)';
+  RPS_AssignmentExpected = 'Assignment expected';
+  RPS_ThenExpected = '''THEN'' expected';
+  RPS_DoExpected = '''DO'' expected';
+  RPS_NoResult = 'No result';
+  RPS_OpenRoundExpected = 'opening parenthesis (''('')expected';
+  RPS_CommaExpected = 'comma ('','') expected';
+  RPS_ToExpected = '''TO'' expected';
+  RPS_IsExpected = 'is (''='') expected';
+  RPS_OfExpected = '''OF'' expected';
+  RPS_CloseBlockExpected = 'Closing square bracket ('']'') expected';
+  RPS_VariableExpected = 'Variable Expected';
+  RPS_StringExpected = 'String Expected';
+  RPS_EndExpected = '''END'' expected';
+  RPS_UnSetLabel = 'Label ''%s'' not set';
+  RPS_NotInLoop = 'Not in a loop';
+  RPS_InvalidJump = 'Invalid jump';
+  RPS_OpenBlockExpected = 'Opening square brackets (''['') expected';
+  RPS_WriteOnlyProperty = 'Write-only property';
+  RPS_ReadOnlyProperty = 'Read-only property';
+  RPS_ClassTypeExpected = 'Class type expected';
+  RPS_DivideByZero = 'Divide by Zero';
+  RPS_MathError = 'Math Error';
+  RPS_UnsatisfiedForward = 'Unsatisfied Forward %s';
+  RPS_ForwardParameterMismatch = 'Forward Parameter Mismatch';
+  RPS_InvalidNumberOfParameter = 'Invalid number of parameters';
+  RPS_UnknownError = 'Unknown error';
+  {$IFDEF PS_USESSUPPORT}
+  RPS_NotAllowed = '%s is not allowed at this position';
+  RPS_UnitNotFound = 'Unit ''%s'' not found or contains errors';
+  {$ENDIF}
+
+
+  RPS_Hint = 'Hint';
+  RPS_VariableNotUsed = 'Variable ''%s'' never used';
+  RPS_FunctionNotUsed = 'Function ''%s'' never used';
+  RPS_UnknownHint = 'Unknown hint';
+
+
+  RPS_Warning = 'Warning';
+  RPS_CalculationAlwaysEvaluatesTo = 'Calculation always evaluates to %s';
+  RPS_IsNotNeeded =  '%s is not needed';
+  RPS_AbstractClass = 'Abstract Class Construction';
+  RPS_UnknownWarning = 'Unknown warning';
+
+
+  {$IFDEF DEBUG }
+  RPS_UnableToRegister = 'Unable to register %s';
+  {$ENDIF}
+
+  RPS_NotArrayProperty = 'Not an array property';
+  RPS_NotProperty = 'Not a property';
+  RPS_UnknownProperty = 'Unknown Property';
+
+function DeclToBits(const Decl: TPSParametersDecl): tbtString;
+var
+  i: longint;
+begin
+  Result := '';
+  if Decl.Result = nil then
+  begin
+    Result := Result + #0;
+  end else
+    Result := Result + #1;
+  for i := 0 to Decl.ParamCount -1 do
+  begin
+    if Decl.Params[i].Mode <> pmIn then
+      Result := Result + #1
+    else
+      Result := Result + #0;
+  end;
+end;
+
+
+procedure BlockWriteByte(BlockInfo: TPSBlockInfo; b: Byte);
+begin
+  BlockInfo.Proc.Data := BlockInfo.Proc.Data + tbtChar(b);
+end;
+
+procedure BlockWriteData(BlockInfo: TPSBlockInfo; const Data; Len: Longint);
+begin
+  SetLength(BlockInfo.Proc.FData, Length(BlockInfo.Proc.FData) + Len);
+  Move(Data, BlockInfo.Proc.FData[Length(BlockInfo.Proc.FData) - Len + 1], Len);
+end;
+
+procedure BlockWriteLong(BlockInfo: TPSBlockInfo; l: Cardinal);
+begin
+  BlockWriteData(BlockInfo, l, 4);
+end;
+
+procedure BlockWriteVariant(BlockInfo: TPSBlockInfo; p: PIfRVariant);
+var
+  du8: tbtu8;
+  du16: tbtu16;
+begin
+  BlockWriteLong(BlockInfo, p^.FType.FinalTypeNo);
+  case p.FType.BaseType of
+  btType: BlockWriteData(BlockInfo, p^.ttype.FinalTypeno, 4);
+  {$IFNDEF PS_NOWIDESTRING}
+  btWideString:
+    begin
+      BlockWriteLong(BlockInfo, Length(tbtWideString(p^.twidestring)));
+      BlockWriteData(BlockInfo, tbtwidestring(p^.twidestring)[1], 2*Length(tbtWideString(p^.twidestring)));
+    end;
+  btUnicodeString:
+    begin
+      BlockWriteLong(BlockInfo, Length(tbtUnicodeString(p^.twidestring)));
+      BlockWriteData(BlockInfo, tbtUnicodeString(p^.twidestring)[1], 2*Length(tbtUnicodeString(p^.twidestring)));
+    end;
+  btWideChar: BlockWriteData(BlockInfo, p^.twidechar, 2);
+  {$ENDIF}
+  btSingle: BlockWriteData(BlockInfo, p^.tsingle, sizeof(tbtSingle));
+  btDouble: BlockWriteData(BlockInfo, p^.tdouble, sizeof(tbtDouble));
+  btExtended: BlockWriteData(BlockInfo, p^.textended, sizeof(tbtExtended));
+  btCurrency: BlockWriteData(BlockInfo, p^.tcurrency, sizeof(tbtCurrency));
+  btChar: BlockWriteData(BlockInfo, p^.tchar, 1);
+  btSet:
+    begin
+      BlockWriteData(BlockInfo, tbtString(p^.tstring)[1], Length(tbtString(p^.tstring)));
+    end;
+  btString:
+    begin
+      BlockWriteLong(BlockInfo, Length(tbtString(p^.tstring)));
+      BlockWriteData(BlockInfo, tbtString(p^.tstring)[1], Length(tbtString(p^.tstring)));
+    end;
+     btenum:
+     begin
+       if TPSEnumType(p^.FType).HighValue <=256 then
+      begin
+        du8 := tbtu8(p^.tu32);
+        BlockWriteData(BlockInfo, du8, 1)
+      end
+       else if TPSEnumType(p^.FType).HighValue <=65536 then
+      begin
+        du16 := tbtu16(p^.tu32);
+        BlockWriteData(BlockInfo, du16, 2)
+      end;
+	end;
+
+  bts8,btu8: BlockWriteData(BlockInfo, p^.tu8, 1);
+  bts16,btu16: BlockWriteData(BlockInfo, p^.tu16, 2);
+  bts32,btu32: BlockWriteData(BlockInfo, p^.tu32, 4);
+  {$IFNDEF PS_NOINT64}
+  bts64: BlockWriteData(BlockInfo, p^.ts64, 8);
+  {$ENDIF}
+  btProcPtr: BlockWriteData(BlockInfo, p^.tu32, 4);
+  {$IFDEF DEBUG}
+  {$IFNDEF FPC}
+  else
+      asm int 3; end;
+  {$ENDIF}
+  {$ENDIF}
+  end;
+end;
+
+
+
+function ExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; Types: array of TPSBaseType; Modes: array of TPSParameterMode): Boolean;
+var
+  i: Longint;
+  ttype: TPSType;
+begin
+  if High(Types) <> High(Modes)+1 then
+  begin
+    Result := False;
+    exit;
+  end;
+  if High(Types) <> Proc.Decl.ParamCount then
+  begin
+    Result := False;
+    exit;
+  end;
+  TType := Proc.Decl.Result;
+  if TType = nil then
+  begin
+    if Types[0] <> btReturnAddress then
+    begin
+      Result := False;
+      exit;
+    end;
+  end else
+  begin
+    if TType.BaseType <> Types[0] then
+    begin
+      Result := False;
+      exit;
+    end;
+  end;
+  for i := 0 to High(Modes) do
+  begin
+    TType := Proc.Decl.Params[i].aType;
+    if Modes[i] <> Proc.Decl.Params[i].Mode then
+    begin
+      Result := False;
+      exit;
+    end;
+    if TType.BaseType <> Types[i+1] then
+    begin
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+
+procedure SetVarExportName(P: TPSVar; const ExpName: tbtString);
+begin
+  if p <> nil then
+    p.exportname := ExpName;
+end;
+
+function FindAndAddType(Owner: TPSPascalCompiler; const Name, Decl: tbtString): TPSType;
+var
+  tt: TPSType;
+begin
+  Result := Owner.FindType(Name);
+  if Result = nil then
+  begin
+    tt := Owner.AddTypeS(Name, Decl);
+    tt.ExportName := True;
+    Result := tt;
+  end;
+end;
+
+function ParseMethod(Owner: TPSPascalCompiler; const FClassName: tbtString; Decl: tbtString; var OrgName: tbtString; DestDecl: TPSParametersDecl; var Func: TPMFuncType): Boolean;
+begin
+  Result := ParseMethodEx(Owner, FClassName, Decl, OrgName, DestDecl, Func, nil);
+end;
+
+function ParseMethodEx(Owner: TPSPascalCompiler; const FClassName: tbtString; Decl: tbtString; var OrgName: tbtString; DestDecl: TPSParametersDecl; var Func: TPMFuncType; CustomParser: TPSPascalParser): Boolean;
+var
+  Parser: TPSPascalParser;
+  FuncType: Byte;
+  VNames: tbtString;
+  modifier: TPSParameterMode;
+  VCType: TPSType;
+  ERow, EPos, ECol: Integer;
+
+begin
+  if CustomParser = nil then begin
+    Parser := TPSPascalParser.Create;
+    Parser.SetText(Decl);
+  end else
+    Parser := CustomParser;
+  if Parser.CurrTokenId = CSTII_Function then
+    FuncType:= 0
+  else if Parser.CurrTokenId = CSTII_Procedure then
+    FuncType := 1
+  else if (Parser.CurrTokenId = CSTII_Constructor) and (FClassName <> '') then
+    FuncType := 2
+  else
+  begin
+    if Parser <> CustomParser then
+      Parser.Free;
+    Result := False;
+    exit;
+  end;
+  Parser.Next;
+  if Parser.CurrTokenId <> CSTI_Identifier then
+  begin
+    if Parser <> CustomParser then
+      Parser.Free
+    else
+      Owner.MakeError('', ecIdentifierExpected, '');
+    Result := False;
+    exit;
+  end; {if}
+  OrgName := Parser.OriginalToken;
+  Parser.Next;
+  if Parser.CurrTokenId = CSTI_OpenRound then
+  begin
+    Parser.Next;
+    if Parser.CurrTokenId <> CSTI_CloseRound then
+    begin
+      while True do
+      begin
+        if Parser.CurrTokenId = CSTII_Const then
+        begin
+          modifier := pmIn;
+          Parser.Next;
+        end
+        else
+        if Parser.CurrTokenId = CSTII_Var then
+        begin
+          modifier := pmInOut;
+          Parser.Next;
+        end
+        else
+        if Parser.CurrTokenId = CSTII_Out then
+        begin
+          modifier := pmOut;
+          Parser.Next;
+        end
+        else
+          modifier := pmIn;
+        if Parser.CurrTokenId <> CSTI_Identifier then
+        begin
+          if Parser <> CustomParser then
+            Parser.Free
+          else
+            Owner.MakeError('', ecIdentifierExpected, '');
+          Result := False;
+          exit;
+        end;
+        EPos:=Parser.CurrTokenPos;
+        ERow:=Parser.Row;
+        ECol:=Parser.Col;
+
+        VNames := Parser.OriginalToken + '|';
+        Parser.Next;
+        while Parser.CurrTokenId = CSTI_Comma do
+        begin
+          Parser.Next;
+          if Parser.CurrTokenId <> CSTI_Identifier then
+          begin
+            if Parser <> CustomParser then
+              Parser.Free
+            else
+              Owner.MakeError('', ecIdentifierExpected, '');
+            Result := False;
+            exit;
+          end;
+          VNames := VNames + Parser.OriginalToken + '|';
+          Parser.Next;
+        end;
+        if Parser.CurrTokenId <> CSTI_Colon then
+        begin
+          if Parser <> CustomParser then
+            Parser.Free
+          else
+            Owner.MakeError('', ecColonExpected, '');
+          Result := False;
+          exit;
+        end;
+        Parser.Next;
+        if Parser.CurrTokenID = CSTII_Array then
+        begin
+          Parser.nExt;
+          if Parser.CurrTokenId <> CSTII_Of then
+          begin
+            if Parser <> CustomParser then
+              Parser.Free
+            else
+              Owner.MakeError('', ecOfExpected, '');
+            Result := False;
+            exit;
+          end;
+          Parser.Next;
+          if Parser.CurrTokenId = CSTII_Const then
+          begin
+            VCType := FindAndAddType(Owner, '!OPENARRAYOFCONST', 'array of ___Pointer')
+          end
+          else begin
+            VCType := Owner.GetTypeCopyLink(Owner.FindType(Parser.GetToken));
+            if VCType = nil then
+            begin
+              if Parser <> CustomParser then
+                Parser.Free
+              else
+                Owner.MakeError('', ecUnknownType, Parser.GetToken);
+              Result := False;
+              exit;
+            end;
+            case VCType.BaseType of
+              btU8: VCType := FindAndAddType(Owner, '!OPENARRAYOFU8', 'array of byte');
+              btS8: VCType := FindAndAddType(Owner, '!OPENARRAYOFS8', 'array of ShortInt');
+              btU16: VCType := FindAndAddType(Owner, '!OPENARRAYOFU16', 'array of SmallInt');
+              btS16: VCType := FindAndAddType(Owner, '!OPENARRAYOFS16', 'array of Word');
+              btU32: VCType := FindAndAddType(Owner, '!OPENARRAYOFU32', 'array of Cardinal');
+              btS32: VCType := FindAndAddType(Owner, '!OPENARRAYOFS32', 'array of Longint');
+              btSingle: VCType := FindAndAddType(Owner, '!OPENARRAYOFSINGLE', 'array of Single');
+              btDouble: VCType := FindAndAddType(Owner, '!OPENARRAYOFDOUBLE', 'array of Double');
+              btExtended: VCType := FindAndAddType(Owner, '!OPENARRAYOFEXTENDED', 'array of Extended');
+              btString: VCType := FindAndAddType(Owner, '!OPENARRAYOFSTRING', 'array of String');
+              btPChar: VCType := FindAndAddType(Owner, '!OPENARRAYOFPCHAR', {$IFDEF PS_PANSICHAR}'array of PAnsiChar'{$ELSE}'array of PChar'{$ENDIF});
+              btNotificationVariant, btVariant: VCType := FindAndAddType(Owner, '!OPENARRAYOFVARIANT', 'array of variant');
+            {$IFNDEF PS_NOINT64}btS64:  VCType := FindAndAddType(Owner, '!OPENARRAYOFS64', 'array of Int64');{$ENDIF}
+              btChar: VCType := FindAndAddType(Owner, '!OPENARRAYOFCHAR', 'array of Char');
+            {$IFNDEF PS_NOWIDESTRING}
+              btWideString: VCType := FindAndAddType(Owner, '!OPENARRAYOFWIDESTRING', 'array of WideString');
+              btUnicodeString: VCType := FindAndAddType(Owner, '!OPENARRAYOFUNICODESTRING', 'array of UnicodeString');
+              btWideChar: VCType := FindAndAddType(Owner, '!OPENARRAYOFWIDECHAR', 'array of WideChar');
+            {$ENDIF}
+              btClass: VCType := FindAndAddType(Owner, '!OPENARRAYOFTOBJECT', 'array of TObject');
+              btRecord: VCType := FindAndAddType(Owner, '!OPENARRAYOFRECORD_'+FastUpperCase(Parser.OriginalToken), 'array of ' +FastUpperCase(Parser.OriginalToken));
+            else
+              begin
+                if Parser <> CustomParser then
+                  Parser.Free;
+                Result := False;
+                exit;
+              end;
+            end;
+          end;
+        end else if Parser.CurrTokenID = CSTII_Const then
+          VCType := nil // any type
+        else begin
+          VCType := Owner.FindType(Parser.GetToken);
+          if VCType = nil then
+          begin
+            if Parser <> CustomParser then
+              Parser.Free
+            else
+              Owner.MakeError('', ecUnknownType, Parser.GetToken);
+            Result := False;
+            exit;
+          end;
+        end;
+        while Pos(tbtchar('|'), VNames) > 0 do
+        begin
+          with DestDecl.AddParam do
+          begin
+            {$IFDEF PS_USESSUPPORT}
+            DeclareUnit:=Owner.fModule;
+            {$ENDIF}
+            DeclarePos := EPos;
+            DeclareRow := ERow;
+            DeclareCol := ECol;
+            Mode := modifier;
+            OrgName := copy(VNames, 1, Pos(tbtchar('|'), VNames) - 1);
+            aType := VCType;
+          end;
+          Delete(VNames, 1, Pos(tbtchar('|'), VNames));
+        end;
+        Parser.Next;
+        if Parser.CurrTokenId = CSTI_CloseRound then
+          break;
+        if Parser.CurrTokenId <> CSTI_Semicolon then
+        begin
+          if Parser <> CustomParser then
+            Parser.Free
+          else
+            Owner.MakeError('', ecSemiColonExpected, '');
+          Result := False;
+          exit;
+        end;
+        Parser.Next;
+      end; {while}
+    end; {if}
+    Parser.Next;
+  end; {if}
+  if FuncType = 0 then
+  begin
+    if Parser.CurrTokenId <> CSTI_Colon then
+    begin
+      if Parser <> CustomParser then
+        Parser.Free
+      else
+        Owner.MakeError('', ecColonExpected, '');
+      Result := False;
+      exit;
+    end;
+
+    Parser.Next;
+    VCType := Owner.FindType(Parser.GetToken);
+    if VCType = nil then
+    begin
+      if Parser <> CustomParser then
+        Parser.Free
+      else
+        Owner.MakeError('', ecUnknownType, Parser.GetToken);
+      Result := False;
+      exit;
+    end;
+    Parser.Next;
+  end
+  else if FuncType = 2 then {constructor}
+  begin
+    VCType := Owner.FindType(FClassName)
+  end else
+    VCType := nil;
+  DestDecl.Result := VCType;
+  if Parser <> CustomParser then
+    Parser.Free;
+  if FuncType = 2 then
+    Func := mftConstructor
+  else
+    Func := mftProc;
+  Result := True;
+end;
+
+
+
+function TPSPascalCompiler.FindProc(const aName: tbtString): Cardinal;
+var
+  l, h: Longint;
+  x: TPSProcedure;
+  xr: TPSRegProc;
+  name: tbtString;
+
+begin
+  name := FastUpperCase(aName);
+  h := MakeHash(Name);
+  if FProcs = nil then
+  begin
+    result := InvalidVal;
+    Exit;
+  end;
+
+  for l := FProcs.Count - 1 downto 0 do
+  begin
+    x := FProcs.Data^[l];
+    if x.ClassType = TPSInternalProcedure then
+    begin
+      if (TPSInternalProcedure(x).NameHash = h) and
+        (TPSInternalProcedure(x).Name = Name) then
+      begin
+        Result := l;
+        exit;
+      end;
+    end
+    else
+    begin
+      if (TPSExternalProcedure(x).RegProc.NameHash = h) and
+        (TPSExternalProcedure(x).RegProc.Name = Name) then
+      begin
+        Result := l;
+        exit;
+      end;
+    end;
+  end;
+  for l := FRegProcs.Count - 1 downto 0 do
+  begin
+    xr := FRegProcs[l];
+    if (xr.NameHash = h) and (xr.Name = Name) then
+    begin
+      x := TPSExternalProcedure.Create;
+      TPSExternalProcedure(x).RegProc := xr;
+      FProcs.Add(x);
+      Result := FProcs.Count - 1;
+      exit;
+    end;
+  end;
+  Result := InvalidVal;
+end; {findfunc}
+
+function TPSPascalCompiler.UseExternalProc(const Name: tbtString): TPSParametersDecl;
+var
+  ProcNo: cardinal;
+  proc: TPSProcedure;
+begin
+  ProcNo := FindProc(FastUppercase(Name));
+  if ProcNo = InvalidVal then Result := nil
+  else
+  begin
+    proc := TPSProcedure(FProcs[ProcNo]);
+    if Proc is TPSExternalProcedure then
+    begin
+      Result := TPSExternalProcedure(Proc).RegProc.Decl;
+    end else result := nil;
+  end;
+end;
+
+
+
+function TPSPascalCompiler.FindBaseType(BaseType: TPSBaseType): TPSType;
+var
+  l: Longint;
+  x: TPSType;
+begin
+  for l := 0 to FTypes.Count -1 do
+  begin
+    X := FTypes[l];
+    if (x.BaseType = BaseType) and (x.ClassType = TPSType)  then
+    begin
+      Result := at2ut(x);
+      exit;
+    end;
+  end;
+  X := TPSType.Create;
+  x.Name := '';
+  x.BaseType := BaseType;
+  {$IFDEF PS_USESSUPPORT}
+  x.DeclareUnit:=fModule;
+  {$ENDIF}
+  x.DeclarePos := InvalidVal;
+  x.DeclareCol := 0;
+  x.DeclareRow := 0;
+  FTypes.Add(x);
+  Result := at2ut(x);
+end;
+
+function TPSPascalCompiler.MakeDecl(decl: TPSParametersDecl): tbtString;
+var
+  i: Longint;
+begin
+  if Decl.Result = nil then result := '0' else
+  result := Decl.Result.Name;
+
+  for i := 0 to decl.ParamCount -1 do
+  begin
+    if decl.GetParam(i).Mode = pmIn then
+      Result := Result + ' @'
+    else
+      Result := Result + ' !';
+    Result := Result + decl.GetParam(i).aType.Name;
+  end;
+end;
+
+
+{ TPSPascalCompiler }
+
+const
+  BtTypeCopy = 255;
+
+
+type
+  TFuncType = (ftProc, ftFunc);
+
+function PS_mi2s(i: Cardinal): tbtString;
+begin
+  SetLength(Result, 4);
+  Cardinal((@Result[1])^) := i;
+end;
+
+
+
+
+function TPSPascalCompiler.AddType(const Name: tbtString; const BaseType: TPSBaseType): TPSType;
+begin
+  if FProcs = nil then
+  begin
+    raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  end;
+
+  case BaseType of
+    btProcPtr: Result := TPSProceduralType.Create;
+    BtTypeCopy: Result := TPSTypeLink.Create;
+    btRecord: Result := TPSRecordType.Create;
+    btArray: Result := TPSArrayType.Create;
+    btStaticArray: Result := TPSStaticArrayType.Create;
+    btEnum: Result := TPSEnumType.Create;
+    btClass: Result := TPSClassType.Create;
+    btExtClass: REsult := TPSUndefinedClassType.Create;
+    btNotificationVariant, btVariant: Result := TPSVariantType.Create;
+{$IFNDEF PS_NOINTERFACES}
+    btInterface: Result := TPSInterfaceType.Create;
+{$ENDIF}
+  else
+    Result := TPSType.Create;
+  end;
+  Result.Name := FastUppercase(Name);
+  Result.OriginalName := Name;
+  Result.BaseType := BaseType;
+  {$IFDEF PS_USESSUPPORT}
+  Result.DeclareUnit:=fModule;
+  {$ENDIF}
+  Result.DeclarePos := InvalidVal;
+  Result.DeclareCol := 0;
+  Result.DeclareRow := 0;
+  FTypes.Add(Result);
+end;
+
+
+function TPSPascalCompiler.AddFunction(const Header: tbtString): TPSRegProc;
+var
+  Parser: TPSPascalParser;
+  i: Integer;
+  IsFunction: Boolean;
+  VNames, Name: tbtString;
+  Decl: TPSParametersDecl;
+  modifier: TPSParameterMode;
+  VCType: TPSType;
+  x: TPSRegProc;
+begin
+  if FProcs = nil then
+    raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+
+  Parser := TPSPascalParser.Create;
+  Parser.SetText(Header);
+  Decl := TPSParametersDecl.Create;
+  x := nil;
+  try
+    if Parser.CurrTokenId = CSTII_Function then
+      IsFunction := True
+    else if Parser.CurrTokenId = CSTII_Procedure then
+      IsFunction := False
+    else
+      Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, ['']);
+    Parser.Next;
+    if Parser.CurrTokenId <> CSTI_Identifier then
+      Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, ['']);
+    Name := Parser.OriginalToken;
+    Parser.Next;
+    if Parser.CurrTokenId = CSTI_OpenRound then
+    begin
+      Parser.Next;
+      if Parser.CurrTokenId <> CSTI_CloseRound then
+      begin
+        while True do
+        begin
+          if Parser.CurrTokenId = CSTII_Out then
+          begin
+            Modifier := pmOut;
+            Parser.Next;
+          end else
+          if Parser.CurrTokenId = CSTII_Const then
+          begin
+            Modifier := pmIn;
+            Parser.Next;
+          end else
+          if Parser.CurrTokenId = CSTII_Var then
+          begin
+            modifier := pmInOut;
+            Parser.Next;
+          end
+          else
+            modifier := pmIn;
+          if Parser.CurrTokenId <> CSTI_Identifier then
+            raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, [Name]);
+          VNames := Parser.OriginalToken + '|';
+          Parser.Next;
+          while Parser.CurrTokenId = CSTI_Comma do
+          begin
+            Parser.Next;
+            if Parser.CurrTokenId <> CSTI_Identifier then
+              Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, [Name]);
+            VNames := VNames + Parser.OriginalToken + '|';
+            Parser.Next;
+          end;
+          if Parser.CurrTokenId <> CSTI_Colon then
+          begin
+            Parser.Free;
+            Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, [Name]);
+          end;
+          Parser.Next;
+          VCType := FindType(Parser.GetToken);
+          if VCType = nil then
+            Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, [Name]);
+          while Pos(tbtchar('|'), VNames) > 0 do
+          begin
+            with Decl.AddParam do
+            begin
+              Mode := modifier;
+              OrgName := copy(VNames, 1, Pos(tbtchar('|'), VNames) - 1);
+              aType := VCType;
+            end;
+            Delete(VNames, 1, Pos(tbtchar('|'), VNames));
+          end;
+          Parser.Next;
+          if Parser.CurrTokenId = CSTI_CloseRound then
+            break;
+          if Parser.CurrTokenId <> CSTI_Semicolon then
+            Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, [Name]);
+          Parser.Next;
+        end; {while}
+      end; {if}
+      Parser.Next;
+    end; {if}
+    if IsFunction then
+    begin
+      if Parser.CurrTokenId <> CSTI_Colon then
+        Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, [Name]);
+
+      Parser.Next;
+      VCType := FindType(Parser.GetToken);
+      if VCType = nil then
+        Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, [Name]);
+    end
+    else
+      VCType := nil;
+    Decl.Result := VCType;
+    X := TPSRegProc.Create;
+    x.OrgName := Name;
+    x.Name := FastUpperCase(Name);
+    x.ExportName := True;
+    x.Decl.Assign(decl);
+    if Decl.Result = nil then
+    begin
+      x.ImportDecl := x.ImportDecl + #0;
+    end else
+      x.ImportDecl := x.ImportDecl + #1;
+    for i := 0 to Decl.ParamCount -1 do
+    begin
+      if Decl.Params[i].Mode <> pmIn then
+        x.ImportDecl := x.ImportDecl + #1
+      else
+        x.ImportDecl := x.ImportDecl + #0;
+    end;
+
+    FRegProcs.Add(x);
+  finally
+    Decl.Free;
+    Parser.Free;
+  end;
+  Result := x;
+end;
+
+function TPSPascalCompiler.MakeHint(const Module: tbtString; E: TPSPascalCompilerHintType; const Param: tbtString): TPSPascalCompilerMessage;
+var
+  n: TPSPascalCompilerHint;
+begin
+  N := TPSPascalCompilerHint.Create;
+  n.FHint := e;
+  n.SetParserPos(FParser);
+  n.FModuleName := Module;
+  n.FParam := Param;
+  FMessages.Add(n);
+  Result := n;
+end;
+
+function TPSPascalCompiler.MakeError(const Module: tbtString; E:
+  TPSPascalCompilerErrorType; const Param: tbtString): TPSPascalCompilerMessage;
+var
+  n: TPSPascalCompilerError;
+begin
+  N := TPSPascalCompilerError.Create;
+  n.FError := e;
+  n.SetParserPos(FParser);
+  {$IFNDEF PS_USESSUPPORT}
+  n.FModuleName := Module;
+  {$ELSE}
+  if Module <> '' then
+    n.FModuleName := Module
+  else
+    n.FModuleName := fModule;
+  {$ENDIF}
+  n.FParam := Param;
+  FMessages.Add(n);
+  Result := n;
+end;
+
+function TPSPascalCompiler.MakeWarning(const Module: tbtString; E:
+  TPSPascalCompilerWarningType; const Param: tbtString): TPSPascalCompilerMessage;
+var
+  n: TPSPascalCompilerWarning;
+begin
+  N := TPSPascalCompilerWarning.Create;
+  n.FWarning := e;
+  n.SetParserPos(FParser);
+  n.FModuleName := Module;
+  n.FParam := Param;
+  FMessages.Add(n);
+  Result := n;
+end;
+
+procedure TPSPascalCompiler.Clear;
+var
+  l: Longint;
+begin
+  FDebugOutput := '';
+  FOutput := '';
+  for l := 0 to FMessages.Count - 1 do
+    TPSPascalCompilerMessage(FMessages[l]).Free;
+  FMessages.Clear;
+  for L := FAutoFreeList.Count -1 downto 0 do
+  begin
+    TObject(FAutoFreeList[l]).Free;
+  end;
+  FAutoFreeList.Clear;
+end;
+
+procedure CopyVariantContents(Src, Dest: PIfRVariant);
+begin
+  case src.FType.BaseType of
+    btu8, bts8: dest^.tu8 := src^.tu8;
+    btu16, bts16: dest^.tu16 := src^.tu16;
+    btenum, btu32, bts32: dest^.tu32 := src^.tu32;
+    btsingle: Dest^.tsingle := src^.tsingle;
+    btdouble: Dest^.tdouble := src^.tdouble;
+    btextended: Dest^.textended := src^.textended;
+    btCurrency: Dest^.tcurrency := Src^.tcurrency;
+    btchar: Dest^.tchar := src^.tchar;
+    {$IFNDEF PS_NOINT64}bts64: dest^.ts64 := src^.ts64;{$ENDIF}
+    btset, btstring: tbtstring(dest^.tstring) := tbtstring(src^.tstring);
+    {$IFNDEF PS_NOWIDESTRING}
+    btunicodestring: tbtunicodestring(dest^.tunistring) := tbtunicodestring(src^.tunistring);
+    btwidestring: tbtwidestring(dest^.twidestring) := tbtwidestring(src^.twidestring);
+    btwidechar: Dest^.tchar := src^.tchar;
+    {$ENDIF}
+  end;
+end;
+
+function DuplicateVariant(Src: PIfRVariant): PIfRVariant;
+begin
+  New(Result);
+  FillChar(Result^, SizeOf(TIfRVariant), 0);
+  CopyVariantContents(Src, Result);
+end;
+
+
+procedure InitializeVariant(Vari: PIfRVariant; FType: TPSType);
+begin
+  FillChar(vari^, SizeOf(TIfRVariant), 0);
+  if FType.BaseType = btSet then
+  begin
+    SetLength(tbtstring(vari^.tstring), TPSSetType(FType).ByteSize);
+    fillchar(tbtstring(vari^.tstring)[1], length(tbtstring(vari^.tstring)), 0);
+  end;
+  vari^.FType := FType;
+end;
+
+function NewVariant(FType: TPSType): PIfRVariant;
+begin
+  New(Result);
+  InitializeVariant(Result, FType);
+end;
+
+procedure FinalizeA(var s: tbtString); overload; begin s := ''; end;
+procedure FinalizeW(var s: tbtwidestring); overload; begin s := ''; end;
+procedure FinalizeU(var s: tbtunicodestring); overload; begin s := ''; end;
+
+procedure FinalizeVariant(var p: TIfRVariant);
+begin
+  if (p.FType.BaseType = btString) or (p.FType.basetype = btSet) then
+    finalizeA(tbtstring(p.tstring))
+  {$IFNDEF PS_NOWIDESTRING}
+  else if p.FType.BaseType = btWideString then
+    finalizeW(tbtWideString(p.twidestring)) // tbtwidestring
+  else if p.FType.BaseType = btUnicodeString then
+    finalizeU(tbtUnicodeString(p.tunistring)); // tbtwidestring
+  {$ENDIF}
+end;
+
+procedure DisposeVariant(p: PIfRVariant);
+begin
+  if p <> nil then
+  begin
+    FinalizeVariant(p^);
+    Dispose(p);
+  end;
+end;
+
+
+
+function TPSPascalCompiler.GetTypeCopyLink(p: TPSType): TPSType;
+begin
+  if p = nil then
+    Result := nil
+  else
+  if p.BaseType = BtTypeCopy then
+  begin
+    Result := TPSTypeLink(p).LinkTypeNo;
+  end else Result := p;
+end;
+
+function IsIntType(b: TPSBaseType): Boolean;
+begin
+  case b of
+    btU8, btS8, btU16, btS16, btU32, btS32{$IFNDEF PS_NOINT64}, btS64{$ENDIF}: Result := True;
+  else
+    Result := False;
+  end;
+end;
+
+function IsRealType(b: TPSBaseType): Boolean;
+begin
+  case b of
+    btSingle, btDouble, btCurrency, btExtended: Result := True;
+  else
+    Result := False;
+  end;
+end;
+
+function IsIntRealType(b: TPSBaseType): Boolean;
+begin
+  case b of
+    btSingle, btDouble, btCurrency, btExtended, btU8, btS8, btU16, btS16, btU32, btS32{$IFNDEF PS_NOINT64}, btS64{$ENDIF}:
+      Result := True;
+  else
+    Result := False;
+  end;
+
+end;
+
+function DiffRec(p1, p2: TPSSubItem): Boolean;
+begin
+  if p1.ClassType = p2.ClassType then
+  begin
+    if P1.ClassType = TPSSubNumber then
+      Result := TPSSubNumber(p1).SubNo <> TPSSubNumber(p2).SubNo
+    else if P1.ClassType = TPSSubValue then
+      Result := TPSSubValue(p1).SubNo <> TPSSubValue(p2).SubNo
+    else
+      Result := False;
+  end else Result := True;
+end;
+
+function SameReg(x1, x2: TPSValue): Boolean;
+var
+  I: Longint;
+begin
+  if (x1.ClassType = x2.ClassType) and (X1 is TPSValueVar) then
+  begin
+    if
+    ((x1.ClassType = TPSValueGlobalVar) and (TPSValueGlobalVar(x1).GlobalVarNo = TPSValueGlobalVar(x2).GlobalVarNo)) or
+    ((x1.ClassType = TPSValueLocalVar) and (TPSValueLocalVar(x1).LocalVarNo = TPSValueLocalVar(x2).LocalVarNo)) or
+    ((x1.ClassType = TPSValueParamVar) and (TPSValueParamVar(x1).ParamNo = TPSValueParamVar(x2).ParamNo)) or
+    ((x1.ClassType = TPSValueAllocatedStackVar) and (TPSValueAllocatedStackVar(x1).LocalVarNo = TPSValueAllocatedStackVar(x2).LocalVarNo)) then
+    begin
+      if TPSValueVar(x1).GetRecCount <> TPSValueVar(x2).GetRecCount then
+      begin
+        Result := False;
+        exit;
+      end;
+      for i := 0 to TPSValueVar(x1).GetRecCount -1 do
+      begin
+        if DiffRec(TPSValueVar(x1).RecItem[i], TPSValueVar(x2).RecItem[i]) then
+        begin
+          Result := False;
+          exit;
+        end;
+      end;
+      Result := True;
+    end else Result := False;
+  end
+  else
+    Result := False;
+end;
+
+function GetUInt(Src: PIfRVariant; var s: Boolean): Cardinal;
+begin
+  case Src.FType.BaseType of
+    btU8: Result := Src^.tu8;
+    btS8: Result := Src^.ts8;
+    btU16: Result := Src^.tu16;
+    btS16: Result := Src^.ts16;
+    btU32: Result := Src^.tu32;
+    btS32: Result := Src^.ts32;
+    {$IFNDEF PS_NOINT64}
+    bts64: Result := src^.ts64;
+    {$ENDIF}
+    btChar: Result := ord(Src^.tchar);
+    {$IFNDEF PS_NOWIDESTRING}
+    btWideChar: Result := ord(tbtwidechar(src^.twidechar));
+    {$ENDIF}
+    btEnum: Result := src^.tu32;
+  else
+    begin
+      s := False;
+      Result := 0;
+    end;
+  end;
+end;
+
+function GetInt(Src: PIfRVariant; var s: Boolean): Longint;
+begin
+  case Src.FType.BaseType of
+    btU8: Result := Src^.tu8;
+    btS8: Result := Src^.ts8;
+    btU16: Result := Src^.tu16;
+    btS16: Result := Src^.ts16;
+    btU32: Result := Src^.tu32;
+    btS32: Result := Src^.ts32;
+    {$IFNDEF PS_NOINT64}
+    bts64: Result := src^.ts64;
+    {$ENDIF}
+    btChar: Result := ord(Src^.tchar);
+    {$IFNDEF PS_NOWIDESTRING}
+    btWideChar: Result := ord(tbtwidechar(src^.twidechar));
+    {$ENDIF}
+    btEnum: Result := src^.tu32;
+  else
+    begin
+      s := False;
+      Result := 0;
+    end;
+  end;
+end;
+{$IFNDEF PS_NOINT64}
+function GetInt64(Src: PIfRVariant; var s: Boolean): Int64;
+begin
+  case Src.FType.BaseType of
+    btU8: Result := Src^.tu8;
+    btS8: Result := Src^.ts8;
+    btU16: Result := Src^.tu16;
+    btS16: Result := Src^.ts16;
+    btU32: Result := Src^.tu32;
+    btS32: Result := Src^.ts32;
+    bts64: Result := src^.ts64;
+    btChar: Result := ord(Src^.tchar);
+    {$IFNDEF PS_NOWIDESTRING}
+    btWideChar: Result := ord(tbtwidechar(src^.twidechar));
+    {$ENDIF}
+    btEnum: Result := src^.tu32;
+  else
+    begin
+      s := False;
+      Result := 0;
+    end;
+  end;
+end;
+{$ENDIF}
+
+function GetReal(Src: PIfRVariant; var s: Boolean): Extended;
+begin
+  case Src.FType.BaseType of
+    btU8: Result := Src^.tu8;
+    btS8: Result := Src^.ts8;
+    btU16: Result := Src^.tu16;
+    btS16: Result := Src^.ts16;
+    btU32: Result := Src^.tu32;
+    btS32: Result := Src^.ts32;
+    {$IFNDEF PS_NOINT64}
+    bts64: Result := src^.ts64;
+    {$ENDIF}
+    btChar: Result := ord(Src^.tchar);
+    {$IFNDEF PS_NOWIDESTRING}
+    btWideChar: Result := ord(tbtwidechar(src^.twidechar));
+    {$ENDIF}
+    btSingle: Result := Src^.tsingle;
+    btDouble: Result := Src^.tdouble;
+    btCurrency: Result := SRc^.tcurrency;
+    btExtended: Result := Src^.textended;
+  else
+    begin
+      s := False;
+      Result := 0;
+    end;
+  end;
+end;
+
+function GetString(Src: PIfRVariant; var s: Boolean): tbtString;
+begin
+  case Src.FType.BaseType of
+    btChar: Result := Src^.tchar;
+    btString: Result := tbtstring(src^.tstring);
+    {$IFNDEF PS_NOWIDESTRING}
+    btWideChar: Result := tbtstring(src^.twidechar);
+    btWideString: Result := tbtstring(tbtWideString(src^.twidestring));
+    btUnicodeString: Result := tbtstring(tbtUnicodeString(src^.tunistring));
+    {$ENDIF}
+  else
+    begin
+      s := False;
+      Result := '';
+    end;
+  end;
+end;
+
+{$IFNDEF PS_NOWIDESTRING}
+function TPSPascalCompiler.GetWideString(Src: PIfRVariant; var s: Boolean): tbtwidestring;
+begin
+  case Src.FType.BaseType of
+    btChar: Result := tbtWidestring(Src^.tchar);
+    btString: Result := tbtWidestring(tbtstring(src^.tstring));
+    btWideChar: Result := src^.twidechar;
+    btWideString: Result := tbtWideString(src^.twidestring);
+    btUnicodeString: result := tbtUnicodeString(src^.tunistring);
+  else
+    begin
+      s := False;
+      Result := '';
+    end;
+  end;
+end;
+function TPSPascalCompiler.GetUnicodeString(Src: PIfRVariant; var s: Boolean): tbtunicodestring;
+begin
+  case Src.FType.BaseType of
+    btChar: Result := tbtWidestring(Src^.tchar);
+    btString: Result := tbtWidestring(tbtstring(src^.tstring));
+    btWideChar: Result := src^.twidechar;
+    btWideString: Result := tbtWideString(src^.twidestring);
+    btUnicodeString: result := tbtUnicodeString(src^.tunistring);
+  else
+    begin
+      s := False;
+      Result := '';
+    end;
+  end;
+end;
+{$ENDIF}
+
+function ab(b: Longint): Longint;
+begin
+  ab := Longint(b = 0);
+end;
+
+procedure Set_Union(Dest, Src: PByteArray; ByteSize: Integer);
+var
+  i: Longint;
+begin
+  for i := ByteSize -1 downto 0 do
+    Dest^[i] := Dest^[i] or Src^[i];
+end;
+
+procedure Set_Diff(Dest, Src: PByteArray; ByteSize: Integer);
+var
+  i: Longint;
+begin
+  for i := ByteSize -1 downto 0 do
+    Dest^[i] := Dest^[i] and not Src^[i];
+end;
+
+procedure Set_Intersect(Dest, Src: PByteArray; ByteSize: Integer);
+var
+  i: Longint;
+begin
+  for i := ByteSize -1 downto 0 do
+    Dest^[i] := Dest^[i] and Src^[i];
+end;
+
+procedure Set_Subset(Dest, Src: PByteArray; ByteSize: Integer; var Val: Boolean);
+var
+  i: Integer;
+begin
+  for i := ByteSize -1 downto 0 do
+  begin
+    if not (Src^[i] and Dest^[i] = Dest^[i]) then
+    begin
+      Val := False;
+      exit;
+    end;
+  end;
+  Val := True;
+end;
+
+procedure Set_Equal(Dest, Src: PByteArray; ByteSize: Integer; var Val: Boolean);
+var
+  i: Longint;
+begin
+  for i := ByteSize -1 downto 0 do
+  begin
+    if Dest^[i] <> Src^[i] then
+    begin
+      Val := False;
+      exit;
+    end;
+  end;
+  val := True;
+end;
+
+procedure Set_membership(Item: Longint; Src: PByteArray; var Val: Boolean);
+begin
+  Val := (Src^[Item shr 3] and (1 shl (Item and 7))) <> 0;
+end;
+
+procedure Set_MakeMember(Item: Longint; Src: PByteArray);
+begin
+  Src^[Item shr 3] := Src^[Item shr 3] or (1 shl (Item and 7));
+end;
+
+procedure ConvertToBoolean(SE: TPSPascalCompiler; FUseUsedTypes: Boolean; var1: PIFRVariant; b: Boolean);
+begin
+  FinalizeVariant(var1^);
+  if FUseUsedTypes then
+    Var1^.FType := se.at2ut(se.FDefaultBoolType)
+  else
+    Var1^.FType := Se.FDefaultBoolType;
+  var1^.tu32 := Ord(b);
+end;
+
+procedure ConvertToString(SE: TPSPascalCompiler; FUseUsedTypes: Boolean; var1: PIFRVariant; const s: tbtString);
+var
+  atype: TPSType;
+begin
+  FinalizeVariant(var1^);
+  atype := se.FindBaseType(btString);
+  if FUseUsedTypes then
+    InitializeVariant(var1, se.at2ut(atype))
+  else
+    InitializeVariant(var1, atype);
+  tbtstring(var1^.tstring) := s;
+end;
+{$IFNDEF PS_NOWIDESTRING}
+procedure ConvertToUnicodeString(SE: TPSPascalCompiler; FUseUsedTypes: Boolean; var1: PIFRVariant; const s: tbtunicodestring);
+var
+  atype: TPSType;
+begin
+  FinalizeVariant(var1^);
+  atype := se.FindBaseType(btUnicodeString);
+  if FUseUsedTypes then
+    InitializeVariant(var1, se.at2ut(atype))
+  else
+    InitializeVariant(var1, atype);
+  tbtunicodestring(var1^.tunistring) := s;
+end;
+{$ENDIF}
+procedure ConvertToFloat(SE: TPSPascalCompiler; FUseUsedTypes: Boolean; var1: PIfRVariant; NewType: TPSType);
+var
+  vartemp: PIfRVariant;
+  b: Boolean;
+begin
+  New(vartemp);
+  b := false;
+  if FUseUsedTypes then
+    NewType := se.at2ut(NewType);
+  InitializeVariant(vartemp, var1.FType);
+  CopyVariantContents(var1, vartemp);
+  FinalizeVariant(var1^);
+  InitializeVariant(var1, newtype);
+  case var1.ftype.basetype of
+    btSingle:
+      begin
+        if (vartemp.ftype.BaseType = btu8) or (vartemp.ftype.BaseType = btu16) or (vartemp.ftype.BaseType = btu32) then
+          var1^.tsingle := GetUInt(vartemp, b)
+        else
+          var1^.tsingle := GetInt(vartemp, b)
+      end;
+    btDouble:
+      begin
+        if (vartemp.ftype.BaseType = btu8) or (vartemp.ftype.BaseType = btu16) or (vartemp.ftype.BaseType = btu32) then
+          var1^.tdouble := GetUInt(vartemp, b)
+        else
+          var1^.tdouble := GetInt(vartemp, b)
+      end;
+    btExtended:
+      begin
+        if (vartemp.ftype.BaseType = btu8) or (vartemp.ftype.BaseType = btu16) or (vartemp.ftype.BaseType = btu32) then
+          var1^.textended:= GetUInt(vartemp, b)
+        else
+          var1^.textended:= GetInt(vartemp, b)
+      end;
+    btCurrency:
+      begin
+        if (vartemp.ftype.BaseType = btu8) or (vartemp.ftype.BaseType = btu16) or (vartemp.ftype.BaseType = btu32) then
+          var1^.tcurrency:= GetUInt(vartemp, b)
+        else
+          var1^.tcurrency:= GetInt(vartemp, b)
+      end;
+  end;
+  DisposeVariant(vartemp);
+end;
+
+
+function TPSPascalCompiler.IsCompatibleType(p1, p2: TPSType; Cast: Boolean): Boolean;
+begin
+  if
+    ((p1.BaseType = btProcPtr) and (p2 = p1)) or
+    (p1.BaseType = btPointer) or
+    (p2.BaseType = btPointer) or
+    ((p1.BaseType = btNotificationVariant) or (p1.BaseType = btVariant)) or
+    ((p2.BaseType = btNotificationVariant) or (p2.BaseType = btVariant))  or
+    (IsIntType(p1.BaseType) and IsIntType(p2.BaseType)) or
+    (IsRealType(p1.BaseType) and IsIntRealType(p2.BaseType)) or
+    (((p1.basetype = btPchar) or (p1.BaseType = btString)) and ((p2.BaseType = btString) or (p2.BaseType = btPchar))) or
+    (((p1.basetype = btPchar) or (p1.BaseType = btString)) and (p2.BaseType = btChar)) or
+    (((p1.BaseType = btArray) or (p1.BaseType = btStaticArray)) and (
+    (p2.BaseType = btArray) or (p2.BaseType = btStaticArray)) and IsCompatibleType(TPSArrayType(p1).ArrayTypeNo, TPSArrayType(p2).ArrayTypeNo, False)) or
+    ((p1.BaseType = btChar) and (p2.BaseType = btChar)) or
+    ((p1.BaseType = btSet) and (p2.BaseType = btSet)) or
+    {$IFNDEF PS_NOWIDESTRING}
+    ((p1.BaseType = btWideChar) and (p2.BaseType = btChar)) or
+    ((p1.BaseType = btWideChar) and (p2.BaseType = btWideChar)) or
+    ((p1.BaseType = btWidestring) and (p2.BaseType = btChar)) or
+    ((p1.BaseType = btWidestring) and (p2.BaseType = btWideChar)) or
+    ((p1.BaseType = btWidestring) and ((p2.BaseType = btString) or (p2.BaseType = btPchar) or (p2.BaseType = btUnicodeString))) or
+    ((p1.BaseType = btWidestring) and ((p2.BaseType = btWidestring))) or
+    ((p1.BaseType = btUnicodeString) and (p2.BaseType = btChar)) or
+    ((p1.BaseType = btUnicodeString) and (p2.BaseType = btWideChar)) or
+    ((p1.BaseType = btUnicodeString) and ((p2.BaseType = btString) or (p2.BaseType = btPchar) or (p2.BaseType = btUnicodeString))) or
+    ((p1.BaseType = btUnicodeString) and (p2.BaseType = btWidestring)) or
+    (((p1.basetype = btPchar) or (p1.BaseType = btString)) and (p2.BaseType = btWideString)or (p2.BaseType = btUnicodeString)) or
+    (((p1.basetype = btPchar) or (p1.BaseType = btString)) and (p2.BaseType = btWidechar)) or
+    (((p1.basetype = btPchar) or (p1.BaseType = btString)) and (p2.BaseType = btchar)) or
+    {$ENDIF}
+    ((p1.BaseType = btRecord) and (p2.BaseType = btrecord) and (not IsVarInCompatible(p1, p2))) or
+    ((p1.BaseType = btEnum) and (p2.BaseType = btEnum)) or
+    (Cast and IsIntType(P1.BaseType) and (p2.baseType = btEnum)) or
+    (Cast and (p1.baseType = btEnum) and IsIntType(P2.BaseType))
+    then
+    Result := True
+  // nx change start - allow casting class -> integer and vice versa
+  else if p1.BaseType = btclass then
+    Result := TPSClassType(p1).cl.IsCompatibleWith(p2) or (p2.BaseType in [btU32, btS32])
+  else if (p1.BaseType in [btU32, btS32]) then
+    Result := (p2.BaseType = btClass)
+  // nx change end
+{$IFNDEF PS_NOINTERFACES}
+  else if p1.BaseType = btInterface then
+    Result := TPSInterfaceType(p1).Intf.IsCompatibleWith(p2)
+{$ENDIF}
+  else if ((p1.BaseType = btExtClass) and (p2.BaseType = btExtClass)) then
+  begin
+    Result := TPSUndefinedClassType(p1).ExtClass.IsCompatibleWith(TPSUndefinedClassType(p2).ExtClass);
+  end
+  else
+    Result := False;
+end;
+
+
+function TPSPascalCompiler.PreCalc(FUseUsedTypes: Boolean; Var1Mod: Byte; var1: PIFRVariant; Var2Mod: Byte; Var2: PIfRVariant; Cmd: TPSBinOperatorType; Pos, Row, Col: Cardinal): Boolean;
+  { var1=dest, var2=src }
+var
+  b: Boolean;
+
+begin
+  Result := True;
+  try
+    if (IsRealType(var2.FType.BaseType) and IsIntType(var1.FType.BaseType)) then
+      ConvertToFloat(Self, FUseUsedTypes, var1, var2^.FType);
+    case Cmd of
+      otAdd:
+        begin { + }
+          case var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 + GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 + GetInt(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 + GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 + Getint(Var2, Result);
+            btEnum, btU32: var1^.tu32 := var1^.tu32 + GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 + Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 + GetInt64(Var2, Result); {$ENDIF}
+            btSingle: var1^.tsingle := var1^.tsingle + GetReal( Var2, Result);
+            btDouble: var1^.tdouble := var1^.tdouble + GetReal( Var2, Result);
+            btExtended: var1^.textended := var1^.textended + GetReal( Var2, Result);
+            btCurrency: var1^.tcurrency := var1^.tcurrency + GetReal( Var2, Result);
+            btSet:
+              begin
+                if (var1.FType = var2.FType) then
+                begin
+                  Set_Union(var1.tstring, var2.tstring, TPSSetType(var1.FType).ByteSize);
+                end else Result := False;
+              end;
+            btChar:
+              begin
+                ConvertToString(Self, FUseUsedTypes, var1, getstring(Var1, b)+getstring(Var2, b));
+              end;
+            btString: tbtstring(var1^.tstring) := tbtstring(var1^.tstring) + GetString(Var2, Result);
+            {$IFNDEF PS_NOWIDESTRING}
+            btwideString: tbtwidestring(var1^.twidestring) := tbtwidestring(var1^.twidestring) + GetWideString(Var2, Result);
+            btUnicodeString: tbtunicodestring(var1^.tunistring) := tbtunicodestring(var1^.tunistring) + GetUnicodeString(Var2, Result);
+            btWidechar:
+              begin
+                ConvertToUnicodeString(Self, FUseUsedTypes, var1, GetUnicodeString(Var1, b)+GetUnicodeString(Var2, b));
+              end;
+            {$ENDIF}
+            else Result := False;
+          end;
+        end;
+      otSub:
+        begin { - }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 - GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 - Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 - GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 - Getint(Var2, Result);
+            btEnum, btU32: var1^.tu32 := var1^.tu32 - GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 - Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 - GetInt64(Var2, Result); {$ENDIF}
+            btSingle: var1^.tsingle := var1^.tsingle - GetReal( Var2, Result);
+            btDouble: var1^.tdouble := var1^.tdouble - GetReal(Var2, Result);
+            btExtended: var1^.textended := var1^.textended - GetReal(Var2, Result);
+            btCurrency: var1^.tcurrency := var1^.tcurrency - GetReal( Var2, Result);
+            btSet:
+              begin
+                if (var1.FType = var2.FType) then
+                begin
+                  Set_Diff(var1.tstring, var2.tstring, TPSSetType(var1.FType).ByteSize);
+                end else Result := False;
+              end;
+            else Result := False;
+          end;
+        end;
+      otMul:
+        begin { * }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 * GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 * Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 * GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 * Getint(Var2, Result);
+            btU32: var1^.tu32 := var1^.tu32 * GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 * Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 * GetInt64(Var2, Result); {$ENDIF}
+            btSingle: var1^.tsingle := var1^.tsingle * GetReal(Var2, Result);
+            btDouble: var1^.tdouble := var1^.tdouble * GetReal(Var2, Result);
+            btExtended: var1^.textended := var1^.textended * GetReal( Var2, Result);
+            btCurrency: var1^.tcurrency := var1^.tcurrency * GetReal( Var2, Result);
+            btSet:
+              begin
+                if (var1.FType = var2.FType) then
+                begin
+                  Set_Intersect(var1.tstring, var2.tstring, TPSSetType(var1.FType).ByteSize);
+                end else Result := False;
+              end;
+            else Result := False;
+          end;
+        end;
+      otDiv:
+        begin { / }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 div GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 div Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 div GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 div Getint(Var2, Result);
+            btU32: var1^.tu32 := var1^.tu32 div GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 div Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 div GetInt64(Var2, Result); {$ENDIF}
+            btSingle: var1^.tsingle := var1^.tsingle / GetReal( Var2, Result);
+            btDouble: var1^.tdouble := var1^.tdouble / GetReal( Var2, Result);
+            btExtended: var1^.textended := var1^.textended / GetReal( Var2, Result);
+            btCurrency: var1^.tcurrency := var1^.tcurrency / GetReal( Var2, Result);
+            else Result := False;
+          end;
+        end;
+      otMod:
+        begin { MOD }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 mod GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 mod Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 mod GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 mod Getint(Var2, Result);
+            btU32: var1^.tu32 := var1^.tu32 mod GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 mod Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 mod GetInt64(Var2, Result); {$ENDIF}
+            else Result := False;
+          end;
+        end;
+      otshl:
+        begin { SHL }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 shl GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 shl Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 shl GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 shl Getint(Var2, Result);
+            btU32: var1^.tu32 := var1^.tu32 shl GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 shl Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 shl GetInt64(Var2, Result); {$ENDIF}
+            else Result := False;
+          end;
+        end;
+      otshr:
+        begin { SHR }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 shr GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 shr Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 shr GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 shr Getint(Var2, Result);
+            btU32: var1^.tu32 := var1^.tu32 shr GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 shr Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 shr GetInt64( Var2, Result); {$ENDIF}
+            else Result := False;
+          end;
+        end;
+      otAnd:
+        begin { AND }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 and GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 and Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 and GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 and Getint(Var2, Result);
+            btU32: var1^.tu32 := var1^.tu32 and GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 and Getint(Var2, Result);
+            btEnum: var1^.ts32 := var1^.ts32 and Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 and GetInt64(Var2, Result); {$ENDIF}
+            else Result := False;
+          end;
+        end;
+      otor:
+        begin { OR }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 or GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 or Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 or GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 or Getint(Var2, Result);
+            btU32: var1^.tu32 := var1^.tu32 or GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 or Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 or GetInt64(Var2, Result); {$ENDIF}
+            btEnum: var1^.ts32 := var1^.ts32 or Getint(Var2, Result);
+            else Result := False;
+          end;
+        end;
+      otxor:
+        begin { XOR }
+          case Var1.FType.BaseType of
+            btU8: var1^.tu8 := var1^.tu8 xor GetUint(Var2, Result);
+            btS8: var1^.ts8 := var1^.ts8 xor Getint(Var2, Result);
+            btU16: var1^.tu16 := var1^.tu16 xor GetUint(Var2, Result);
+            btS16: var1^.ts16 := var1^.ts16 xor Getint(Var2, Result);
+            btU32: var1^.tu32 := var1^.tu32 xor GetUint(Var2, Result);
+            btS32: var1^.ts32 := var1^.ts32 xor Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: var1^.ts64 := var1^.ts64 xor GetInt64(Var2, Result); {$ENDIF}
+            btEnum: var1^.ts32 := var1^.ts32 xor Getint(Var2, Result);
+            else Result := False;
+          end;
+        end;
+      otGreaterEqual:
+        begin { >= }
+          case Var1.FType.BaseType of
+            btU8: b := var1^.tu8 >= GetUint(Var2, Result);
+            btS8: b := var1^.ts8 >= Getint(Var2, Result);
+            btU16: b := var1^.tu16 >= GetUint(Var2, Result);
+            btS16: b := var1^.ts16 >= Getint(Var2, Result);
+            btU32: b := var1^.tu32 >= GetUint(Var2, Result);
+            btS32: b := var1^.ts32 >= Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: b := var1^.ts64 >= GetInt64(Var2, Result); {$ENDIF}
+            btSingle: b := var1^.tsingle >= GetReal( Var2, Result);
+            btDouble: b := var1^.tdouble >= GetReal( Var2, Result);
+            btExtended: b := var1^.textended >= GetReal( Var2, Result);
+            btCurrency: b := var1^.tcurrency >= GetReal( Var2, Result);
+            btSet:
+              begin
+                if (var1.FType = var2.FType) then
+                begin
+                  Set_Subset(var2.tstring, var1.tstring, TPSSetType(var1.FType).ByteSize, b);
+                end else Result := False;
+              end;
+          else
+            Result := False;
+          end;
+          ConvertToBoolean(Self, FUseUsedTypes, Var1, b);
+        end;
+      otLessEqual:
+        begin { <= }
+          case Var1.FType.BaseType of
+            btU8: b := var1^.tu8 <= GetUint(Var2, Result);
+            btS8: b := var1^.ts8 <= Getint(Var2, Result);
+            btU16: b := var1^.tu16 <= GetUint(Var2, Result);
+            btS16: b := var1^.ts16 <= Getint(Var2, Result);
+            btU32: b := var1^.tu32 <= GetUint(Var2, Result);
+            btS32: b := var1^.ts32 <= Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: b := var1^.ts64 <= GetInt64(Var2, Result); {$ENDIF}
+            btSingle: b := var1^.tsingle <= GetReal( Var2, Result);
+            btDouble: b := var1^.tdouble <= GetReal( Var2, Result);
+            btExtended: b := var1^.textended <= GetReal( Var2, Result);
+            btCurrency: b := var1^.tcurrency <= GetReal( Var2, Result);
+            btSet:
+              begin
+                if (var1.FType = var2.FType) then
+                begin
+                  Set_Subset(var1.tstring, var2.tstring, TPSSetType(var1.FType).ByteSize, b);
+                end else Result := False;
+              end;
+          else
+            Result := False;
+          end;
+          ConvertToBoolean(Self, FUseUsedTypes, Var1, b);
+        end;
+      otGreater:
+        begin { > }
+          case Var1.FType.BaseType of
+            btU8: b := var1^.tu8 > GetUint(Var2, Result);
+            btS8: b := var1^.ts8 > Getint(Var2, Result);
+            btU16: b := var1^.tu16 > GetUint(Var2, Result);
+            btS16: b := var1^.ts16 > Getint(Var2, Result);
+            btU32: b := var1^.tu32 > GetUint(Var2, Result);
+            btS32: b := var1^.ts32 > Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: b := var1^.ts64 > GetInt64(Var2, Result); {$ENDIF}
+            btSingle: b := var1^.tsingle > GetReal( Var2, Result);
+            btDouble: b := var1^.tdouble > GetReal( Var2, Result);
+            btExtended: b := var1^.textended > GetReal( Var2, Result);
+            btCurrency: b := var1^.tcurrency > GetReal( Var2, Result);
+          else
+            Result := False;
+          end;
+          ConvertToBoolean(Self, FUseUsedTypes, Var1, b);
+        end;
+      otLess:
+        begin { < }
+          case Var1.FType.BaseType of
+            btU8: b := var1^.tu8 < GetUint(Var2, Result);
+            btS8: b := var1^.ts8 < Getint(Var2, Result);
+            btU16: b := var1^.tu16 < GetUint(Var2, Result);
+            btS16: b := var1^.ts16 < Getint(Var2, Result);
+            btU32: b := var1^.tu32 < GetUint(Var2, Result);
+            btS32: b := var1^.ts32 < Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: b := var1^.ts64 < GetInt64(Var2, Result); {$ENDIF}
+            btSingle: b := var1^.tsingle < GetReal( Var2, Result);
+            btDouble: b := var1^.tdouble < GetReal( Var2, Result);
+            btExtended: b := var1^.textended < GetReal( Var2, Result);
+            btCurrency: b := var1^.tcurrency < GetReal( Var2, Result);
+          else
+            Result := False;
+          end;
+          ConvertToBoolean(Self, FUseUsedTypes, Var1, b);
+        end;
+      otNotEqual:
+        begin { <> }
+          case Var1.FType.BaseType of
+            btU8: b := var1^.tu8 <> GetUint(Var2, Result);
+            btS8: b := var1^.ts8 <> Getint(Var2, Result);
+            btU16: b := var1^.tu16 <> GetUint(Var2, Result);
+            btS16: b := var1^.ts16 <> Getint(Var2, Result);
+            btU32: b := var1^.tu32 <> GetUint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: b := var1^.ts64 <> GetInt64(Var2, Result); {$ENDIF}
+            btS32: b := var1^.ts32 <> Getint(Var2, Result);
+            btSingle: b := var1^.tsingle <> GetReal( Var2, Result);
+            btDouble: b := var1^.tdouble <> GetReal( Var2, Result);
+            btExtended: b := var1^.textended <> GetReal( Var2, Result);
+            btCurrency: b := var1^.tcurrency <> GetReal( Var2, Result);
+            btEnum: b := var1^.ts32 <> Getint(Var2, Result);
+            btString: b := tbtstring(var1^.tstring) <> GetString(var2, Result);
+            btChar: b := var1^.tchar <> GetString(var2, Result);
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideString: b := tbtWideString(var1^.twidestring) <> GetWideString(var2, Result);
+            btUnicodeString: b := tbtUnicodeString(var1^.tunistring) <> GetUnicodeString(var2, Result);
+            btWideChar: b := var1^.twidechar <> GetUnicodeString(var2, Result);
+            {$ENDIF}
+            btSet:
+              begin
+                if (var1.FType = var2.FType) then
+                begin
+                  Set_Equal(var1.tstring, var2.tstring, TPSSetType(var1.FType).GetByteSize, b);
+                  b := not b;
+                end else Result := False;
+              end;
+          else
+            Result := False;
+          end;
+          ConvertToBoolean(Self, FUseUsedTypes, Var1, b);
+        end;
+      otEqual:
+        begin { = }
+          case Var1.FType.BaseType of
+            btU8: b := var1^.tu8 = GetUint(Var2, Result);
+            btS8: b := var1^.ts8 = Getint(Var2, Result);
+            btU16: b := var1^.tu16 = GetUint(Var2, Result);
+            btS16: b := var1^.ts16 = Getint(Var2, Result);
+            btU32: b := var1^.tu32 = GetUint(Var2, Result);
+            btS32: b := var1^.ts32 = Getint(Var2, Result);
+            {$IFNDEF PS_NOINT64}btS64: b := var1^.ts64 = GetInt64(Var2, Result); {$ENDIF}
+            btSingle: b := var1^.tsingle = GetReal( Var2, Result);
+            btDouble: b := var1^.tdouble = GetReal( Var2, Result);
+            btExtended: b := var1^.textended = GetReal( Var2, Result);
+            btCurrency: b := var1^.tcurrency = GetReal( Var2, Result);
+            btEnum: b := var1^.ts32 = Getint(Var2, Result);
+            btString: b := tbtstring(var1^.tstring) = GetString(var2, Result);
+            btChar: b := var1^.tchar = GetString(var2, Result);
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideString: b := tbtWideString(var1^.twidestring) = GetWideString(var2, Result);
+            btUnicodeString: b := tbtUnicodeString(var1^.twidestring) = GetUnicodeString(var2, Result);
+            btWideChar: b := var1^.twidechar = GetUnicodeString(var2, Result);
+            {$ENDIF}
+            btSet:
+              begin
+                if (var1.FType = var2.FType) then
+                begin
+                  Set_Equal(var1.tstring, var2.tstring, TPSSetType(var1.FType).ByteSize, b);
+                end else Result := False;
+              end;
+          else
+            Result := False;
+          end;
+          ConvertToBoolean(Self, FUseUsedTypes, Var1, b);
+        end;
+      otIn:
+        begin
+          if (var2.Ftype.BaseType = btset) and (TPSSetType(var2).SetType = Var1.FType) then
+          begin
+            Set_membership(GetUint(var1, result), var2.tstring, b);
+          end else Result := False;
+        end;
+      else
+        Result := False;
+    end;
+  except
+    on E: EDivByZero do
+    begin
+      Result := False;
+      MakeError('', ecDivideByZero, '');
+      Exit;
+    end;
+    on E: EZeroDivide do
+    begin
+      Result := False;
+      MakeError('', ecDivideByZero, '');
+      Exit;
+    end;
+    on E: EMathError do
+    begin
+      Result := False;
+      MakeError('', ecMathError, tbtstring(e.Message));
+      Exit;
+    end;
+    on E: Exception do
+    begin
+      Result := False;
+      MakeError('', ecInternalError, tbtstring(E.Message));
+      Exit;
+    end;
+  end;
+  if not Result then
+  begin
+    with MakeError('', ecTypeMismatch, '') do
+    begin
+      FPosition := Pos;
+      FRow := Row;
+      FCol := Col;
+    end;
+  end;
+end;
+
+function TPSPascalCompiler.IsDuplicate(const s: tbtString; const check: TPSDuplicCheck): Boolean;
+var
+  h, l: Longint;
+  x: TPSProcedure;
+begin
+  h := MakeHash(s);
+  if (s = 'RESULT') then
+  begin
+    Result := True;
+    exit;
+  end;
+  if dcTypes in Check then
+  for l := FTypes.Count - 1 downto 0 do
+  begin
+    if (TPSType(FTypes.Data[l]).NameHash = h) and
+      (TPSType(FTypes.Data[l]).Name = s) then
+    begin
+      Result := True;
+      exit;
+    end;
+  end;
+
+  if dcProcs in Check then
+  for l := FProcs.Count - 1 downto 0 do
+  begin
+    x := FProcs.Data[l];
+    if x.ClassType = TPSInternalProcedure then
+    begin
+      if (h = TPSInternalProcedure(x).NameHash) and (s = TPSInternalProcedure(x).Name) then
+      begin
+        Result := True;
+        exit;
+      end;
+    end
+    else
+    begin
+      if (TPSExternalProcedure(x).RegProc.NameHash = h) and
+        (TPSExternalProcedure(x).RegProc.Name = s) then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+  end;
+  if dcVars in Check then
+  for l := FVars.Count - 1 downto 0 do
+  begin
+    if (TPSVar(FVars.Data[l]).NameHash = h) and
+      (TPSVar(FVars.Data[l]).Name = s) then
+    begin
+      Result := True;
+      exit;
+    end;
+  end;
+  if dcConsts in Check then
+  for l := FConstants.Count -1 downto 0 do
+  begin
+    if (TPSConstant(FConstants.Data[l]).NameHash = h) and
+      (TPSConstant(FConstants.Data[l]).Name = s) then
+    begin
+      Result := TRue;
+      exit;
+    end;
+  end;
+  Result := False;
+end;
+
+procedure ClearRecSubVals(RecSubVals: TPSList);
+var
+  I: Longint;
+begin
+  for I := 0 to RecSubVals.Count - 1 do
+    TPSRecordFieldTypeDef(RecSubVals[I]).Free;
+  RecSubVals.Free;
+end;
+
+function TPSPascalCompiler.ReadTypeAddProcedure(const Name: tbtString; FParser: TPSPascalParser): TPSType;
+var
+  IsFunction: Boolean;
+  VNames: tbtString;
+  modifier: TPSParameterMode;
+  Decl: TPSParametersDecl;
+  VCType: TPSType;
+begin
+  if FParser.CurrTokenId = CSTII_Function then
+    IsFunction := True
+  else
+    IsFunction := False;
+  Decl := TPSParametersDecl.Create;
+  try
+    FParser.Next;
+    if FParser.CurrTokenId = CSTI_OpenRound then
+    begin
+      FParser.Next;
+      if FParser.CurrTokenId <> CSTI_CloseRound then
+      begin
+        while True do
+        begin
+          if FParser.CurrTokenId = CSTII_Const then
+          begin
+            Modifier := pmIn;
+            FParser.Next;
+          end else
+          if FParser.CurrTokenId = CSTII_Out then
+          begin
+            Modifier := pmOut;
+            FParser.Next;
+          end else
+          if FParser.CurrTokenId = CSTII_Var then
+          begin
+            modifier := pmInOut;
+            FParser.Next;
+          end
+          else
+            modifier := pmIn;
+          if FParser.CurrTokenId <> CSTI_Identifier then
+          begin
+            Result := nil;
+            if FParser = Self.FParser then
+            MakeError('', ecIdentifierExpected, '');
+            exit;
+          end;
+          VNames := FParser.OriginalToken + '|';
+          FParser.Next;
+          while FParser.CurrTokenId = CSTI_Comma do
+          begin
+            FParser.Next;
+            if FParser.CurrTokenId <> CSTI_Identifier then
+            begin
+              Result := nil;
+              if FParser = Self.FParser then
+              MakeError('', ecIdentifierExpected, '');
+              exit;
+            end;
+            VNames := VNames + FParser.GetToken + '|';
+            FParser.Next;
+          end;
+          if FParser.CurrTokenId <> CSTI_Colon then
+          begin
+            Result := nil;
+            if FParser = Self.FParser then
+              MakeError('', ecColonExpected, '');
+            exit;
+          end;
+          FParser.Next;
+          if FParser.CurrTokenId <> CSTI_Identifier then
+          begin
+            Result := nil;
+            if FParser = self.FParser then
+            MakeError('', ecIdentifierExpected, '');
+            exit;
+          end;
+          VCType := FindType(FParser.GetToken);
+          if VCType = nil then
+          begin
+            if FParser = self.FParser then
+            MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+            Result := nil;
+            exit;
+          end;
+          while Pos(tbtchar('|'), VNames) > 0 do
+          begin
+            with Decl.AddParam do
+            begin
+              Mode := modifier;
+              OrgName := copy(VNames, 1, Pos(tbtchar('|'), VNames) - 1);
+              FType := VCType;
+            end;
+            Delete(VNames, 1, Pos(tbtchar('|'), VNames));
+          end;
+          FParser.Next;
+          if FParser.CurrTokenId = CSTI_CloseRound then
+            break;
+          if FParser.CurrTokenId <> CSTI_Semicolon then
+          begin
+            if FParser = Self.FParser then
+            MakeError('', ecSemicolonExpected, '');
+            Result := nil;
+            exit;
+          end;
+          FParser.Next;
+        end; {while}
+      end; {if}
+      FParser.Next;
+      end; {if}
+      if IsFunction then
+      begin
+        if FParser.CurrTokenId <> CSTI_Colon then
+        begin
+          if FParser = Self.FParser then
+          MakeError('', ecColonExpected, '');
+          Result := nil;
+          exit;
+        end;
+      FParser.Next;
+      if FParser.CurrTokenId <> CSTI_Identifier then
+      begin
+        Result := nil;
+        if FParser = Self.FParser then
+        MakeError('', ecIdentifierExpected, '');
+        exit;
+      end;
+      VCType := self.FindType(FParser.GetToken);
+      if VCType = nil then
+      begin
+        if FParser = self.FParser then
+        MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+        Result := nil;
+        exit;
+      end;
+      FParser.Next;
+    end
+    else
+      VCType := nil;
+    Decl.Result := VcType;
+    VCType := TPSProceduralType.Create;
+    VCType.Name := FastUppercase(Name);
+    VCType.OriginalName := Name;
+    VCType.BaseType := btProcPtr;
+    {$IFDEF PS_USESSUPPORT}
+    VCType.DeclareUnit:=fModule;
+    {$ENDIF}
+    VCType.DeclarePos := FParser.CurrTokenPos;
+    VCType.DeclareRow := FParser.Row;
+    VCType.DeclareCol := FParser.Col;
+    TPSProceduralType(VCType).ProcDef.Assign(Decl);
+    FTypes.Add(VCType);
+    Result := VCType;
+  finally
+    Decl.Free;
+  end;
+end; {ReadTypeAddProcedure}
+
+
+function TPSPascalCompiler.ReadType(const Name: tbtString; FParser: TPSPascalParser): TPSType; // InvalidVal = Invalid
+var
+  TypeNo: TPSType;
+  h, l: Longint;
+  FieldName,fieldorgname,s: tbtString;
+  RecSubVals: TPSList;
+  FArrayStart, FArrayLength: Longint;
+  rvv: PIFPSRecordFieldTypeDef;
+  p, p2: TPSType;
+  tempf: PIfRVariant;
+{$IFNDEF PS_NOINTERFACES}
+  InheritedFrom: tbtString;
+  Guid: TGUID;
+  Intf: TPSInterface;
+{$ENDIF}
+begin
+  if (FParser.CurrTokenID = CSTII_Function) or (FParser.CurrTokenID = CSTII_Procedure) then
+  begin
+     Result := ReadTypeAddProcedure(Name, FParser);
+     Exit;
+  end else if FParser.CurrTokenId = CSTII_Set then
+  begin
+    FParser.Next;
+    if FParser.CurrTokenId <> CSTII_Of then
+    begin
+      MakeError('', ecOfExpected, '');
+      Result := nil;
+      Exit;
+    end;
+    FParser.Next;
+    if FParser.CurrTokenID <> CSTI_Identifier then
+    begin
+      MakeError('', ecIdentifierExpected, '');
+      Result := nil;
+      exit;
+    end;
+    TypeNo := FindType(FParser.GetToken);
+    if TypeNo = nil then
+    begin
+      MakeError('', ecUnknownIdentifier, '');
+      Result := nil;
+      exit;
+    end;
+    if (TypeNo.BaseType = btEnum) or (TypeNo.BaseType = btChar) or (TypeNo.BaseType = btU8) then
+    begin
+      FParser.Next;
+      p2 := TPSSetType.Create;
+      p2.Name := FastUppercase(Name);
+      p2.OriginalName := Name;
+      p2.BaseType := btSet;
+      {$IFDEF PS_USESSUPPORT}
+      p2.DeclareUnit:=fModule;
+      {$ENDIF}
+      p2.DeclarePos := FParser.CurrTokenPos;
+      p2.DeclareRow := FParser.Row;
+      p2.DeclareCol := FParser.Col;
+      TPSSetType(p2).SetType := TypeNo;
+      FTypes.Add(p2);
+      Result := p2;
+    end else
+    begin
+      MakeError('', ecTypeMismatch, '');
+      Result := nil;
+    end;
+    exit;
+  end else if FParser.CurrTokenId = CSTI_OpenRound then
+  begin
+    FParser.Next;
+    L := 0;
+    P2 := TPSEnumType.Create;
+    P2.Name := FastUppercase(Name);
+    p2.OriginalName := Name;
+    p2.BaseType := btEnum;
+    {$IFDEF PS_USESSUPPORT}
+    p2.DeclareUnit:=fModule;
+    {$ENDIF}
+    p2.DeclarePos := FParser.CurrTokenPos;
+    p2.DeclareRow := FParser.Row;
+    p2.DeclareCol := FParser.Col;
+    FTypes.Add(p2);
+
+    repeat
+      if FParser.CurrTokenId <> CSTI_Identifier then
+      begin
+        if FParser = Self.FParser then
+        MakeError('', ecIdentifierExpected, '');
+        Result := nil;
+        exit;
+      end;
+      s := FParser.OriginalToken;
+      if IsDuplicate(FastUppercase(s), [dcTypes]) then
+      begin
+        if FParser = Self.FParser then
+        MakeError('', ecDuplicateIdentifier, s);
+        Result := nil;
+        Exit;
+      end;
+      with AddConstant(s, p2) do
+      begin
+        FValue.tu32 := L;
+        {$IFDEF PS_USESSUPPORT}
+        DeclareUnit:=fModule;
+        {$ENDIF}
+        DeclarePos:=FParser.CurrTokenPos;
+        DeclareRow:=FParser.Row;
+        DeclareCol:=FParser.Col;
+      end;
+      Inc(L);
+      FParser.Next;
+      if FParser.CurrTokenId = CSTI_CloseRound then
+        Break
+      else if FParser.CurrTokenId <> CSTI_Comma then
+      begin
+        if FParser = Self.FParser then
+        MakeError('', ecCloseRoundExpected, '');
+        Result := nil;
+        Exit;
+      end;
+      FParser.Next;
+    until False;
+    FParser.Next;
+    TPSEnumType(p2).HighValue := L-1;
+    Result := p2;
+    exit;
+  end else
+  if FParser.CurrTokenId = CSTII_Array then
+  begin
+    FParser.Next;
+    if FParser.CurrTokenID = CSTI_OpenBlock then
+    begin
+      FParser.Next;
+      tempf := ReadConstant(FParser, CSTI_TwoDots);
+      if tempf = nil then
+      begin
+        Result := nil;
+        exit;
+      end;
+      case tempf.FType.BaseType of
+        btU8: FArrayStart := tempf.tu8;
+        btS8: FArrayStart := tempf.ts8;
+        btU16: FArrayStart := tempf.tu16;
+        btS16: FArrayStart := tempf.ts16;
+        btU32: FArrayStart := tempf.tu32;
+        btS32: FArrayStart := tempf.ts32;
+        {$IFNDEF PS_NOINT64}
+        bts64: FArrayStart := tempf.ts64;
+        {$ENDIF}
+      else
+        begin
+          DisposeVariant(tempf);
+          MakeError('', ecTypeMismatch, '');
+          Result := nil;
+          exit;
+        end;
+      end;
+      DisposeVariant(tempf);
+      if FParser.CurrTokenID <> CSTI_TwoDots then
+      begin
+        MakeError('', ecPeriodExpected, '');
+        Result := nil;
+        exit;
+      end;
+      FParser.Next;
+      tempf := ReadConstant(FParser, CSTI_CloseBlock);
+      if tempf = nil then
+      begin
+        Result := nil;
+        exit;
+      end;
+      case tempf.FType.BaseType of
+        btU8: FArrayLength := tempf.tu8;
+        btS8: FArrayLength := tempf.ts8;
+        btU16: FArrayLength := tempf.tu16;
+        btS16: FArrayLength := tempf.ts16;
+        btU32: FArrayLength := tempf.tu32;
+        btS32: FArrayLength := tempf.ts32;
+        {$IFNDEF PS_NOINT64}
+        bts64: FArrayLength := tempf.ts64;
+        {$ENDIF}
+      else
+        DisposeVariant(tempf);
+        MakeError('', ecTypeMismatch, '');
+        Result := nil;
+        exit;
+      end;
+      DisposeVariant(tempf);
+      FArrayLength := FArrayLength - FArrayStart + 1;
+      if (FArrayLength < 0) or (FArrayLength > MaxInt div 4) then
+      begin
+        MakeError('', ecTypeMismatch, '');
+        Result := nil;
+        exit;
+      end;
+      if FParser.CurrTokenID <> CSTI_CloseBlock then
+      begin
+        MakeError('', ecCloseBlockExpected, '');
+        Result := nil;
+        exit;
+      end;
+      FParser.Next;
+    end else
+    begin
+      FArrayStart := 0;
+      FArrayLength := -1;
+    end;
+    if FParser.CurrTokenId <> CSTII_Of then
+    begin
+      if FParser = Self.FParser then
+      MakeError('', ecOfExpected, '');
+      Result := nil;
+      exit;
+    end;
+    FParser.Next;
+    TypeNo := ReadType('', FParser);
+    if TypeNo = nil then
+    begin
+      if FParser = Self.FParser then
+      MakeError('', ecUnknownIdentifier, '');
+      Result := nil;
+      exit;
+    end;
+    if (Name = '') and (FArrayLength = -1) then
+    begin
+      if TypeNo.Used then
+      begin
+        for h := 0 to FTypes.Count -1 do
+        begin
+          p := FTypes[H];
+          if (p.BaseType = btArray) and (TPSArrayType(p).ArrayTypeNo = TypeNo) and (Copy(p.Name, 1, 1) <> '!') then
+          begin
+            Result := p;
+            exit;
+          end;
+        end;
+      end;
+    end;
+    if FArrayLength <> -1 then
+    begin
+      p := TPSStaticArrayType.Create;
+      TPSStaticArrayType(p).StartOffset := FArrayStart;
+      TPSStaticArrayType(p).Length := FArrayLength;
+      p.BaseType := btStaticArray;
+    end else
+    begin
+      p := TPSArrayType.Create;
+      p.BaseType := btArray;
+    end;
+    p.Name := FastUppercase(Name);
+    p.OriginalName := Name;
+    {$IFDEF PS_USESSUPPORT}
+    p.DeclareUnit:=fModule;
+    {$ENDIF}
+    p.DeclarePos := FParser.CurrTokenPos;
+    p.DeclareRow := FParser.Row;
+    p.DeclareCol := FParser.Col;
+    TPSArrayType(p).ArrayTypeNo := TypeNo;
+    FTypes.Add(p);
+    Result := p;
+    Exit;
+  end
+  else if FParser.CurrTokenId = CSTII_Record then
+  begin
+    FParser.Next;
+    RecSubVals := TPSList.Create;
+    repeat
+      repeat
+        if FParser.CurrTokenId <> CSTI_Identifier then
+        begin
+          ClearRecSubVals(RecSubVals);
+          if FParser = Self.FParser then
+          MakeError('', ecIdentifierExpected, '');
+          Result := nil;
+          exit;
+        end;
+        FieldName := FParser.GetToken;
+        s := S+FParser.OriginalToken+'|';
+        FParser.Next;
+        h := MakeHash(FieldName);
+        for l := 0 to RecSubVals.Count - 1 do
+        begin
+          if (PIFPSRecordFieldTypeDef(RecSubVals[l]).FieldNameHash = h) and
+            (PIFPSRecordFieldTypeDef(RecSubVals[l]).FieldName = FieldName) then
+          begin
+            if FParser = Self.FParser then
+              MakeError('', ecDuplicateIdentifier, FParser.OriginalToken);
+            ClearRecSubVals(RecSubVals);
+            Result := nil;
+            exit;
+          end;
+        end;
+        if FParser.CurrTokenID = CSTI_Colon then Break else
+        if FParser.CurrTokenID <> CSTI_Comma then
+        begin
+          if FParser = Self.FParser then
+            MakeError('', ecColonExpected, '');
+          ClearRecSubVals(RecSubVals);
+          Result := nil;
+          exit;
+        end;
+        FParser.Next;
+      until False;
+      FParser.Next;
+      p := ReadType('', FParser);
+      if p = nil then
+      begin
+        ClearRecSubVals(RecSubVals);
+        Result := nil;
+        exit;
+      end;
+      p := GetTypeCopyLink(p);
+      if FParser.CurrTokenId <> CSTI_Semicolon then
+      begin
+        ClearRecSubVals(RecSubVals);
+        if FParser = Self.FParser then
+        MakeError('', ecSemicolonExpected, '');
+        Result := nil;
+        exit;
+      end; {if}
+      FParser.Next;
+      while Pos(tbtchar('|'), s) > 0 do
+      begin
+        fieldorgname := copy(s, 1, Pos(tbtchar('|'), s)-1);
+        Delete(s, 1, length(FieldOrgName)+1);
+        rvv := TPSRecordFieldTypeDef.Create;
+        rvv.FieldOrgName := fieldorgname;
+        rvv.FType := p;
+        RecSubVals.Add(rvv);
+      end;
+    until FParser.CurrTokenId = CSTII_End;
+    FParser.Next; // skip CSTII_End
+    P := TPSRecordType.Create;
+    p.Name := FastUppercase(Name);
+    p.OriginalName := Name;
+    p.BaseType := btRecord;
+    {$IFDEF PS_USESSUPPORT}
+    p.DeclareUnit:=fModule;
+    {$ENDIF}
+    p.DeclarePos := FParser.CurrTokenPos;
+    p.DeclareRow := FParser.Row;
+    p.DeclareCol := FParser.Col;
+    for l := 0 to RecSubVals.Count -1 do
+    begin
+      rvv := RecSubVals[l];
+      with TPSRecordType(p).AddRecVal do
+      begin
+        FieldOrgName := rvv.FieldOrgName;
+        FType := rvv.FType;
+      end;
+      rvv.Free;
+    end;
+    RecSubVals.Free;
+    FTypes.Add(p);
+    Result := p;
+    Exit;
+{$IFNDEF PS_NOINTERFACES}
+  end else if FParser.CurrTokenId = CSTII_Interface then
+  begin
+    FParser.Next;
+    if FParser.CurrTokenId <> CSTI_OpenRound then
+    begin
+      MakeError('', ecOpenRoundExpected, '');
+      Result := nil;
+      Exit;
+    end;
+    FParser.Next;
+    if FParser.CurrTokenID <> CSTI_Identifier then
+    begin
+      MakeError('', ecIdentifierExpected, '');
+      Result := nil;
+      exit;
+    end;
+    InheritedFrom := FParser.GetToken;
+    TypeNo := FindType(InheritedFrom);
+    if TypeNo = nil then
+    begin
+      MakeError('', ecUnknownType, FParser.GetToken);
+      Result := nil;
+      exit;
+    end;
+    if TypeNo.BaseType <> btInterface then
+    begin
+      MakeError('', ecTypeMismatch, '');
+      Result := nil;
+      Exit;
+    end;
+    FParser.Next;
+    if FParser.CurrTokenId <> CSTI_CloseRound then
+    begin
+      MakeError('', ecCloseRoundExpected, '');
+      Result := nil;
+      Exit;
+    end;
+{$IFNDEF PS_NOINTERFACEGUIDBRACKETS}
+    FParser.Next;
+    if FParser.CurrTokenId <> CSTI_OpenBlock then
+    begin
+      MakeError('', ecOpenBlockExpected, '');
+      Result := nil;
+      Exit;
+    end;
+{$ENDIF}
+    FParser.Next;
+    if FParser.CurrTokenId <> CSTI_String then
+    begin
+      MakeError('', ecStringExpected, '');
+      Result := nil;
+      Exit;
+    end;
+    s := FParser.GetToken;
+    try
+      Guid := StringToGuid(String(Copy(s, 2, Length(s)-2)));
+    except
+      on e: Exception do
+      begin
+        MakeError('', ecCustomError, tbtstring(e.Message));
+        Result := nil;
+        Exit;
+      end;
+    end;
+{$IFNDEF PS_NOINTERFACEGUIDBRACKETS}
+    FParser.Next;
+    if FParser.CurrTokenId <> CSTI_CloseBlock then
+    begin
+      MakeError('', ecCloseBlockExpected, '');
+      Result := nil;
+      Exit;
+    end;
+{$ENDIF}
+    Intf := AddInterface(FindInterface(InheritedFrom), Guid, Name);
+    FParser.Next;
+    repeat
+      if not Intf.RegisterMethodEx('', cdStdCall, FParser) then begin
+        MakeError('', ecCustomError, 'Invalid method');
+        Result := nil;
+        Exit;
+      end;
+      FParser.Next;
+    until FParser.CurrTokenId = CSTII_End;
+    FParser.Next; // skip CSTII_End
+    Result := Intf.FType;
+    Exit;
+{$ENDIF}
+  end else if FParser.CurrTokenId = CSTI_Identifier then
+  begin
+    s := FParser.GetToken;
+    h := MakeHash(s);
+    Typeno := nil;
+    for l := 0 to FTypes.Count - 1 do
+    begin
+      p2 := FTypes[l];
+      if (p2.NameHash = h) and (p2.Name = s) then
+      begin
+        FParser.Next;
+        Typeno := GetTypeCopyLink(p2);
+        Break;
+      end;
+    end;
+    if Typeno = nil then
+    begin
+      Result := nil;
+      if FParser = Self.FParser then
+      MakeError('', ecUnknownType, FParser.OriginalToken);
+      exit;
+    end;
+    if Name <> '' then
+    begin
+      p := TPSTypeLink.Create;
+      p.Name := FastUppercase(Name);
+      p.OriginalName := Name;
+      p.BaseType := BtTypeCopy;
+      {$IFDEF PS_USESSUPPORT}
+      p.DeclareUnit:=fModule;
+      {$ENDIF}
+      p.DeclarePos := FParser.CurrTokenPos;
+      p.DeclareRow := FParser.Row;
+      p.DeclareCol := FParser.Col;
+      TPSTypeLink(p).LinkTypeNo := TypeNo;
+      FTypes.Add(p);
+      Result := p;
+      Exit;
+    end else
+    begin
+      Result := TypeNo;
+      exit;
+    end;
+  end;
+  Result := nil;
+  if FParser = Self.FParser then
+  MakeError('', ecIdentifierExpected, '');
+  Exit;
+end;
+
+function TPSPascalCompiler.VarIsDuplicate(Proc: TPSInternalProcedure; const Varnames, s: tbtString): Boolean;
+var
+  h, l: Longint;
+  x: TPSProcedure;
+  v: tbtString;
+begin
+  h := MakeHash(s);
+  if (s = 'RESULT') then
+  begin
+    Result := True;
+    exit;
+  end;
+
+  for l := FProcs.Count - 1 downto 0 do
+  begin
+    x := FProcs.Data[l];
+    if x.ClassType = TPSInternalProcedure then
+    begin
+      if (h = TPSInternalProcedure(x).NameHash) and (s = TPSInternalProcedure(x).Name) then
+      begin
+        Result := True;
+        exit;
+      end;
+    end
+    else
+    begin
+      if (TPSExternalProcedure(x).RegProc.NameHash = h) and (TPSExternalProcedure(x).RegProc.Name = s) then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+  end;
+  if proc <> nil then
+  begin
+    for l := proc.ProcVars.Count - 1 downto 0 do
+    begin
+      if (PIFPSProcVar(proc.ProcVars.Data[l]).NameHash = h) and
+        (PIFPSProcVar(proc.ProcVars.Data[l]).Name = s) then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+    for l := Proc.FDecl.ParamCount -1 downto 0 do
+    begin
+      if (Proc.FDecl.Params[l].Name = s) then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+  end
+  else
+  begin
+    for l := FVars.Count - 1 downto 0 do
+    begin
+      if (TPSVar(FVars.Data[l]).NameHash = h) and
+        (TPSVar(FVars.Data[l]).Name = s) then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+  end;
+  v := VarNames;
+  while Pos(tbtchar('|'), v) > 0 do
+  begin
+    if FastUppercase(copy(v, 1, Pos(tbtchar('|'), v) - 1)) = s then
+    begin
+      Result := True;
+      exit;
+    end;
+    Delete(v, 1, Pos(tbtchar('|'), v));
+  end;
+  for l := FConstants.Count -1 downto 0 do
+  begin
+    if (TPSConstant(FConstants.Data[l]).NameHash = h) and
+      (TPSConstant(FConstants.Data[l]).Name = s) then
+    begin
+      Result := True;
+      exit;
+    end;
+  end;
+  Result := False;
+end;
+
+
+function TPSPascalCompiler.DoVarBlock(proc: TPSInternalProcedure): Boolean;
+var
+  VarName, s: tbtString;
+  VarType: TPSType;
+  VarNo: Cardinal;
+  v: TPSVar;
+  vp: PIFPSProcVar;
+  EPos, ERow, ECol: Integer;
+begin
+  Result := False;
+  FParser.Next; // skip CSTII_Var
+  if FParser.CurrTokenId <> CSTI_Identifier then
+  begin
+    MakeError('', ecIdentifierExpected, '');
+    exit;
+  end;
+  repeat
+    VarNAme := '';
+    if VarIsDuplicate(proc, VarName, FParser.GetToken) then
+    begin
+      MakeError('', ecDuplicateIdentifier, FParser.OriginalToken);
+      exit;
+    end;
+    VarName := FParser.OriginalToken + '|';
+    Varno := 0;
+    if @FOnUseVariable <> nil then
+    begin
+      if Proc <> nil then
+        FOnUseVariable(Self, ivtVariable, Proc.ProcVars.Count + VarNo, FProcs.Count -1, FParser.CurrTokenPos, '')
+      else
+        FOnUseVariable(Self, ivtGlobal, FVars.Count + VarNo, InvalidVal, FParser.CurrTokenPos, '')
+    end;
+    EPos:=FParser.CurrTokenPos;
+    ERow:=FParser.Row;
+    ECol:=FParser.Col;
+    FParser.Next;
+    while FParser.CurrTokenId = CSTI_Comma do
+    begin
+      FParser.Next;
+      if FParser.CurrTokenId <> CSTI_Identifier then
+      begin
+        MakeError('', ecIdentifierExpected, '');
+      end;
+      if VarIsDuplicate(proc, VarName, FParser.GetToken) then
+      begin
+        MakeError('', ecDuplicateIdentifier, FParser.OriginalToken);
+        exit;
+      end;
+      VarName := VarName + FParser.OriginalToken + '|';
+      Inc(varno);
+      if @FOnUseVariable <> nil then
+      begin
+        if Proc <> nil then
+          FOnUseVariable(Self, ivtVariable, Proc.ProcVars.Count + VarNo, FProcs.Count -1, FParser.CurrTokenPos, '')
+        else
+          FOnUseVariable(Self, ivtGlobal, FVars.Count + VarNo, InvalidVal, FParser.CurrTokenPos, '')
+      end;
+      FParser.Next;
+    end;
+    if FParser.CurrTokenId <> CSTI_Colon then
+    begin
+      MakeError('', ecColonExpected, '');
+      exit;
+    end;
+    FParser.Next;
+    VarType := at2ut(ReadType('', FParser));
+    if VarType = nil then
+    begin
+      exit;
+    end;
+    while Pos(tbtchar('|'), VarName) > 0 do
+    begin
+      s := copy(VarName, 1, Pos(tbtchar('|'), VarName) - 1);
+      Delete(VarName, 1, Pos(tbtchar('|'), VarName));
+      if proc = nil then
+      begin
+        v := TPSVar.Create;
+        v.OrgName := s;
+        v.Name := FastUppercase(s);
+        {$IFDEF PS_USESSUPPORT}
+        v.DeclareUnit:=fModule;
+        {$ENDIF}
+        v.DeclarePos := EPos;
+        v.DeclareRow := ERow;
+        v.DeclareCol := ECol;
+        v.FType := VarType;
+        FVars.Add(v);
+      end
+      else
+      begin
+        vp := TPSProcVar.Create;
+        vp.OrgName := s;
+        vp.Name := FastUppercase(s);
+        vp.aType := VarType;
+        {$IFDEF PS_USESSUPPORT}
+        vp.DeclareUnit:=fModule;
+        {$ENDIF}
+        vp.DeclarePos := EPos;
+        vp.DeclareRow := ERow;
+        vp.DeclareCol := ECol;
+        proc.ProcVars.Add(vp);
+      end;
+    end;
+    if FParser.CurrTokenId <> CSTI_Semicolon then
+    begin
+      MakeError('', ecSemicolonExpected, '');
+      exit;
+    end;
+    FParser.Next;
+  until FParser.CurrTokenId <> CSTI_Identifier;
+  Result := True;
+end;
+
+function TPSPascalCompiler.NewProc(const OriginalName, Name: tbtString): TPSInternalProcedure;
+begin
+  Result := TPSInternalProcedure.Create;
+  Result.OriginalName := OriginalName;
+  Result.Name := Name;
+  {$IFDEF PS_USESSUPPORT}
+  Result.DeclareUnit:=fModule;
+  {$ENDIF}
+  Result.DeclarePos := FParser.CurrTokenPos;
+  Result.DeclareRow := FParser.Row;
+  Result.DeclareCol := FParser.Col;
+  FProcs.Add(Result);
+end;
+
+function TPSPascalCompiler.IsProcDuplicLabel(Proc: TPSInternalProcedure; const s: tbtString): Boolean;
+var
+  i: Longint;
+  h: Longint;
+  u: tbtString;
+begin
+  h := MakeHash(s);
+  if s = 'RESULT' then
+    Result := True
+  else if Proc.Name = s then
+    Result := True
+  else if IsDuplicate(s, [dcVars, dcConsts, dcProcs]) then
+    Result := True
+  else
+  begin
+    for i := 0 to Proc.Decl.ParamCount -1 do
+    begin
+      if Proc.Decl.Params[i].Name = s then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+    for i := 0 to Proc.ProcVars.Count -1 do
+    begin
+      if (PIFPSProcVar(Proc.ProcVars[I]).NameHash = h) and (PIFPSProcVar(Proc.ProcVars[I]).Name = s) then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+    for i := 0 to Proc.FLabels.Count -1 do
+    begin
+      u := Proc.FLabels[I];
+      delete(u, 1, 4);
+      if Longint((@u[1])^) = h then
+      begin
+        delete(u, 1, 4);
+        if u = s then
+        begin
+          Result := True;
+          exit;
+        end;
+      end;
+    end;
+    Result := False;
+  end;
+end;
+
+
+function TPSPascalCompiler.ProcessLabel(Proc: TPSInternalProcedure): Boolean;
+var
+  CurrLabel: tbtString;
+begin
+  FParser.Next;
+  while true do
+  begin
+    if FParser.CurrTokenId <> CSTI_Identifier then
+    begin
+      MakeError('', ecIdentifierExpected, '');
+      Result := False;
+      exit;
+    end;
+    CurrLabel := FParser.GetToken;
+    if IsProcDuplicLabel(Proc, CurrLabel) then
+    begin
+      MakeError('', ecDuplicateIdentifier, CurrLabel);
+      Result := False;
+      exit;
+    end;
+    FParser.Next;
+    Proc.FLabels.Add(#$FF#$FF#$FF#$FF+PS_mi2s(MakeHash(CurrLabel))+CurrLabel);
+    if FParser.CurrTokenId = CSTI_Semicolon then
+    begin
+      FParser.Next;
+      Break;
+    end;
+    if FParser.CurrTokenId <> CSTI_Comma then
+    begin
+      MakeError('', ecCommaExpected, '');
+      Result := False;
+      exit;
+    end;
+    FParser.Next;
+  end;
+  Result := True;
+end;
+
+procedure TPSPascalCompiler.Debug_SavePosition(ProcNo: Cardinal; Proc: TPSInternalProcedure);
+var
+  Row,
+  Col,
+  Pos: Cardinal;
+  s: tbtString;
+begin
+  Row := FParser.Row;
+  Col := FParser.Col;
+  Pos := FParser.CurrTokenPos;
+  {$IFNDEF PS_USESSUPPORT}
+  s := '';
+  {$ELSE}
+  s := fModule;
+  {$ENDIF}
+  if @FOnTranslateLineInfo <> nil then
+    FOnTranslateLineInfo(Self, Pos, Row, Col, S);
+  {$IFDEF FPC}
+  WriteDebugData(#4 + s + #1);
+  WriteDebugData(Ps_mi2s(ProcNo));
+  WriteDebugData(Ps_mi2s(Length(Proc.Data)));
+  WriteDebugData(Ps_mi2s(Pos));
+  WriteDebugData(Ps_mi2s(Row));
+  WriteDebugData(Ps_mi2s(Col));
+  {$ELSE}
+  WriteDebugData(#4 + s + #1 + PS_mi2s(ProcNo) + PS_mi2s(Length(Proc.Data)) + PS_mi2s(Pos) + PS_mi2s(Row)+ PS_mi2s(Col));
+  {$ENDIF}
+end;
+
+procedure TPSPascalCompiler.Debug_WriteParams(ProcNo: Cardinal; Proc: TPSInternalProcedure);
+var
+  I: Longint;
+  s: tbtString;
+begin
+  s := #2 + PS_mi2s(ProcNo);
+  if Proc.Decl.Result <> nil then
+  begin
+    s := s + 'Result' + #1;
+  end;
+  for i := 0 to Proc.Decl.ParamCount -1 do
+    s := s + Proc.Decl.Params[i].OrgName + #1;
+  s := s + #0#3 + PS_mi2s(ProcNo);
+  for I := 0 to Proc.ProcVars.Count - 1 do
+  begin
+    s := s + PIFPSProcVar(Proc.ProcVars[I]).OrgName + #1;
+  end;
+  s := s + #0;
+  WriteDebugData(s);
+end;
+
+procedure TPSPascalCompiler.CheckForUnusedVars(Func: TPSInternalProcedure);
+var
+  i: Integer;
+  p: PIFPSProcVar;
+begin
+  for i := 0 to Func.ProcVars.Count -1 do
+  begin
+    p := Func.ProcVars[I];
+    if not p.Used then
+    begin
+      with MakeHint({$IFDEF PS_USESSUPPORT}p.DeclareUnit{$ELSE}''{$ENDIF}, ehVariableNotUsed, p.Name) do
+      begin
+        FRow := p.DeclareRow;
+        FCol := p.DeclareCol;
+        FPosition := p.DeclarePos;
+      end;
+    end;
+  end;
+  if (not Func.ResultUsed) and (Func.Decl.Result <> nil) then
+  begin
+      with MakeHint({$IFDEF PS_USESSUPPORT}Func.DeclareUnit{$ELSE}''{$ENDIF}, ehVariableNotUsed, 'Result') do
+      begin
+        FRow := Func.DeclareRow;
+        FCol := Func.DeclareCol;
+        FPosition := Func.DeclarePos;
+      end;
+  end;
+end;
+
+function TPSPascalCompiler.ProcIsDuplic(Decl: TPSParametersDecl; const FunctionName, FunctionParamNames: tbtString; const s: tbtString; Func: TPSInternalProcedure): Boolean;
+var
+  i: Longint;
+  u: tbtString;
+begin
+  if s = 'RESULT' then
+    Result := True
+  else if FunctionName = s then
+    Result := True
+  else
+  begin
+    for i := 0 to Decl.ParamCount -1 do
+    begin
+      if Decl.Params[i].Name = s then
+      begin
+        Result := True;
+        exit;
+      end;
+      GRFW(u);
+    end;
+    u := FunctionParamNames;
+    while Pos(tbtchar('|'), u) > 0 do
+    begin
+      if copy(u, 1, Pos(tbtchar('|'), u) - 1) = s then
+      begin
+        Result := True;
+        exit;
+      end;
+      Delete(u, 1, Pos(tbtchar('|'), u));
+    end;
+    if Func = nil then
+    begin
+      result := False;
+      exit;
+    end;
+    for i := 0 to Func.ProcVars.Count -1 do
+    begin
+      if s = PIFPSProcVar(Func.ProcVars[I]).Name then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+    for i := 0 to Func.FLabels.Count -1 do
+    begin
+      u := Func.FLabels[I];
+      delete(u, 1, 4);
+      if u = s then
+      begin
+        Result := True;
+        exit;
+      end;
+    end;
+    Result := False;
+  end;
+end;
+procedure WriteProcVars(Func:TPSInternalProcedure; t: TPSList);
+var
+  l: Longint;
+  v: PIFPSProcVar;
+begin
+  for l := 0 to t.Count - 1 do
+  begin
+    v := t[l];
+    Func.Data := Func.Data  + chr(cm_pt)+ PS_mi2s(v.AType.FinalTypeNo);
+  end;
+end;
+
+
+function TPSPascalCompiler.ApplyAttribsToFunction(func: TPSProcedure): boolean;
+var
+  i: Longint;
+begin
+  for i := 0 to Func.Attributes.Count -1 do
+  begin
+    if @Func.Attributes.Items[i].AType.OnApplyAttributeToProc <> nil then
+    begin
+      if not Func.Attributes.Items[i].AType.OnApplyAttributeToProc(Self, Func, Func.Attributes.Items[i]) then
+      begin
+        Result := false;
+        exit;
+      end;
+    end;
+  end;
+  result := true;
+end;
+
+
+function TPSPascalCompiler.ProcessFunction(AlwaysForward: Boolean; Att: TPSAttributes): Boolean;
+var
+  FunctionType: TFuncType;
+  OriginalName, FunctionName: tbtString;
+  FunctionParamNames: tbtString;
+  FunctionTempType: TPSType;
+  ParamNo: Cardinal;
+  FunctionDecl: TPSParametersDecl;
+  modifier: TPSParameterMode;
+  Func: TPSInternalProcedure;
+  F2: TPSProcedure;
+  EPos, ECol, ERow: Cardinal;
+  E2Pos, E2Col, E2Row: Cardinal;
+  pp: TPSRegProc;
+  pp2: TPSExternalProcedure;
+  FuncNo, I: Longint;
+  Block: TPSBlockInfo;
+begin
+  if att = nil then
+  begin
+    Att := TPSAttributes.Create;
+    if not ReadAttributes(Att) then
+    begin
+      att.free;
+      Result := false;
+      exit;
+    end;
+  end;
+
+  if FParser.CurrTokenId = CSTII_Procedure then
+    FunctionType := ftProc
+  else
+    FunctionType := ftFunc;
+  Func := nil;
+  EPos := FParser.CurrTokenPos;
+  ERow := FParser.Row;
+  ECol := FParser.Col;
+  FParser.Next;
+  Result := False;
+  if FParser.CurrTokenId <> CSTI_Identifier then
+  begin
+    MakeError('', ecIdentifierExpected, '');
+    att.free;
+    exit;
+  end;
+  if assigned(FOnFunctionStart) then
+  {$IFDEF PS_USESSUPPORT}
+     FOnFunctionStart(fModule + '.' + FParser.OriginalToken, EPos, ERow, ECol);
+  {$ELSE}
+     FOnFunctionStart(FParser.OriginalToken, EPos, ERow, ECol);
+  {$ENDIF}
+  EPos := FParser.CurrTokenPos;
+  ERow := FParser.Row;
+  ECol := FParser.Col;
+  OriginalName := FParser.OriginalToken;
+  FunctionName := FParser.GetToken;
+  FuncNo := -1;
+  for i := 0 to FProcs.Count -1 do
+  begin
+    f2 := FProcs[I];
+    if (f2.ClassType = TPSInternalProcedure) and (TPSInternalProcedure(f2).Name = FunctionName) and (TPSInternalProcedure(f2).Forwarded) then
+    begin
+      Func := FProcs[I];
+      FuncNo := i;
+      Break;
+    end;
+  end;
+  if (Func = nil) and IsDuplicate(FunctionName, [dcTypes, dcProcs, dcVars, dcConsts]) then
+  begin
+    att.free;
+    MakeError('', ecDuplicateIdentifier, FunctionName);
+    exit;
+  end;
+  FParser.Next;
+  FunctionDecl := TPSParametersDecl.Create;
+  try
+    if FParser.CurrTokenId = CSTI_OpenRound then
+    begin
+      FParser.Next;
+      if FParser.CurrTokenId = CSTI_CloseRound then
+      begin
+        FParser.Next;
+      end
+      else
+      begin
+        if FunctionType = ftFunc then
+          ParamNo := 1
+        else
+          ParamNo := 0;
+        while True do
+        begin
+          if FParser.CurrTokenId = CSTII_Const then
+          begin
+            modifier := pmIn;
+            FParser.Next;
+          end
+          else
+          if FParser.CurrTokenId = CSTII_Out then
+          begin
+            modifier := pmOut;
+            FParser.Next;
+          end
+          else
+          if FParser.CurrTokenId = CSTII_Var then
+          begin
+            modifier := pmInOut;
+            FParser.Next;
+          end
+          else
+            modifier := pmIn;
+          if FParser.CurrTokenId <> CSTI_Identifier then
+          begin
+            MakeError('', ecIdentifierExpected, '');
+            exit;
+          end;
+          E2Pos := FParser.CurrTokenPos;
+          E2Row := FParser.Row;
+          E2Col := FParser.Col;
+          FunctionParamNames := '';
+          if ProcIsDuplic(FunctionDecl, FunctionName, FunctionParamNames, FParser.GetToken, Func) then
+          begin
+            MakeError('', ecDuplicateIdentifier, FParser.OriginalToken);
+            exit;
+          end;
+          FunctionParamNames := FParser.OriginalToken + '|';
+          if @FOnUseVariable <> nil then
+          begin
+            FOnUseVariable(Self, ivtParam, ParamNo, FProcs.Count, FParser.CurrTokenPos, '');
+          end;
+          inc(ParamNo);
+          FParser.Next;
+          while FParser.CurrTokenId = CSTI_Comma do
+          begin
+            FParser.Next;
+            if FParser.CurrTokenId <> CSTI_Identifier then
+            begin
+              MakeError('', ecIdentifierExpected, '');
+              exit;
+            end;
+          if ProcIsDuplic(FunctionDecl, FunctionName, FunctionParamNames, FParser.GetToken, Func) then
+            begin
+              MakeError('', ecDuplicateIdentifier, '');
+              exit;
+            end;
+            if @FOnUseVariable <> nil then
+            begin
+              FOnUseVariable(Self, ivtParam, ParamNo, FProcs.Count, FParser.CurrTokenPos, '');
+            end;
+            inc(ParamNo);
+            FunctionParamNames := FunctionParamNames + FParser.OriginalToken +
+              '|';
+            FParser.Next;
+          end;
+          if FParser.CurrTokenId <> CSTI_Colon then
+          begin
+            MakeError('', ecColonExpected, '');
+            exit;
+          end;
+          FParser.Next;
+          FunctionTempType := at2ut(ReadType('', FParser));
+          if FunctionTempType = nil then
+          begin
+            exit;
+          end;
+          while Pos(tbtchar('|'), FunctionParamNames) > 0 do
+          begin
+            with FunctionDecl.AddParam do
+            begin
+              OrgName := copy(FunctionParamNames, 1, Pos(tbtchar('|'), FunctionParamNames) - 1);
+              Mode := modifier;
+              aType := FunctionTempType;
+              {$IFDEF PS_USESSUPPORT}
+              DeclareUnit:=fModule;
+              {$ENDIF}
+              DeclarePos:=E2Pos;
+              DeclareRow:=E2Row;
+              DeclareCol:=E2Col;
+            end;
+            Delete(FunctionParamNames, 1, Pos(tbtchar('|'), FunctionParamNames));
+          end;
+          if FParser.CurrTokenId = CSTI_CloseRound then
+            break;
+          if FParser.CurrTokenId <> CSTI_Semicolon then
+          begin
+            MakeError('', ecSemicolonExpected, '');
+            exit;
+          end;
+          FParser.Next;
+        end;
+        FParser.Next;
+      end;
+    end;
+    if FunctionType = ftFunc then
+    begin
+      if FParser.CurrTokenId <> CSTI_Colon then
+      begin
+        MakeError('', ecColonExpected, '');
+        exit;
+      end;
+      FParser.Next;
+      FunctionTempType := at2ut(ReadType('', FParser));
+      if FunctionTempType = nil then
+        exit;
+      FunctionDecl.Result := FunctionTempType;
+    end;
+    if FParser.CurrTokenId <> CSTI_Semicolon then
+    begin
+      MakeError('', ecSemicolonExpected, '');
+      exit;
+    end;
+    FParser.Next;
+    if (Func = nil) and (FParser.CurrTokenID = CSTII_External) then
+    begin
+      FParser.Next;
+      if FParser.CurrTokenID <> CSTI_String then
+      begin
+        MakeError('', ecStringExpected, '');
+        exit;
+      end;
+      FunctionParamNames := FParser.GetToken;
+      FunctionParamNames := copy(FunctionParamNames, 2, length(FunctionParamNames) - 2);
+      FParser.Next;
+      if FParser.CurrTokenID <> CSTI_Semicolon then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        exit;
+      end;
+      FParser.Next;
+      if @FOnExternalProc = nil then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        exit;
+      end;
+      pp := FOnExternalProc(Self, FunctionDecl, OriginalName, FunctionParamNames);
+      if pp = nil then
+      begin
+        MakeError('', ecCustomError, '');
+        exit;
+      end;
+      pp2 := TPSExternalProcedure.Create;
+      pp2.Attributes.Assign(att, true);
+      pp2.RegProc := pp;
+      FProcs.Add(pp2);
+      FRegProcs.Add(pp);
+      Result := ApplyAttribsToFunction(pp2);
+      Exit;
+    end else if (FParser.CurrTokenID = CSTII_Forward) or AlwaysForward then
+    begin
+      if Func <> nil then
+      begin
+        MakeError('', ecBeginExpected, '');
+        exit;
+      end;
+      if not AlwaysForward then
+      begin
+        FParser.Next;
+        if FParser.CurrTokenID  <> CSTI_Semicolon then
+        begin
+          MakeError('', ecSemicolonExpected, '');
+          Exit;
+        end;
+        FParser.Next;
+      end;
+      Func := NewProc(OriginalName, FunctionName);
+      Func.Attributes.Assign(Att, True);
+      Func.Forwarded := True;
+      {$IFDEF PS_USESSUPPORT}
+      Func.FDeclareUnit := fModule;
+      {$ENDIF}
+      Func.FDeclarePos := EPos;
+      Func.FDeclareRow := ERow;
+      Func.FDeclarePos := ECol;
+      Func.Decl.Assign(FunctionDecl);
+      Result := ApplyAttribsToFunction(Func);
+      exit;
+    end;
+    if (Func = nil) then
+    begin
+      Func := NewProc(OriginalName, FunctionName);
+      Func.Attributes.Assign(att, True);
+      Func.Decl.Assign(FunctionDecl);
+      {$IFDEF PS_USESSUPPORT}
+      Func.FDeclareUnit := fModule;
+      {$ENDIF}
+      Func.FDeclarePos := EPos;
+      Func.FDeclareRow := ERow;
+      Func.FDeclareCol := ECol;
+      FuncNo := FProcs.Count -1;
+      if not ApplyAttribsToFunction(Func) then
+      begin
+        result := false;
+        exit;
+      end;
+    end else begin
+      if not FunctionDecl.Same(Func.Decl) then
+      begin
+        MakeError('', ecForwardParameterMismatch, '');
+        Result := false;
+        exit;
+      end;
+      Func.Forwarded := False;
+    end;
+    if FParser.CurrTokenID = CSTII_Export then
+    begin
+      FParser.Next;
+      if FParser.CurrTokenID <> CSTI_Semicolon then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        exit;
+      end;
+      FParser.Next;
+    end;
+    while FParser.CurrTokenId <> CSTII_Begin do
+    begin
+      if FParser.CurrTokenId = CSTII_Var then
+      begin
+        if not DoVarBlock(Func) then
+          exit;
+      end else if FParser.CurrTokenId = CSTII_Label then
+      begin
+        if not ProcessLabel(Func) then
+          Exit;
+      end else
+      begin
+        MakeError('', ecBeginExpected, '');
+        exit;
+      end;
+    end;
+    Debug_WriteParams(FuncNo, Func);
+    WriteProcVars(Func, Func.ProcVars);
+    Block := TPSBlockInfo.Create(FGlobalBlock);
+    Block.SubType := tProcBegin;
+    Block.ProcNo := FuncNo;
+    Block.Proc := Func;
+    if not ProcessSub(Block) then
+    begin
+      Block.Free;
+      exit;
+    end;
+    Block.Free;
+    CheckForUnusedVars(Func);
+    Result := ProcessLabelForwards(Func);
+    if assigned(FOnFunctionEnd) then
+    {$IFDEF PS_USESSUPPORT}
+      OnFunctionEnd(fModule + '.' + OriginalName, FParser.CurrTokenPos, FParser.Row, FParser.Col);
+    {$ELSE}
+      OnFunctionEnd(OriginalName, FParser.CurrTokenPos, FParser.Row, FParser.Col);
+    {$ENDIF}
+  finally
+    FunctionDecl.Free;
+    att.Free;
+  end;
+end;
+
+function GetParamType(BlockInfo: TPSBlockInfo; I: Longint): TPSType;
+begin
+  if BlockInfo.Proc.Decl.Result <> nil then dec(i);
+  if i = -1 then
+    Result := BlockInfo.Proc.Decl.Result
+  else
+  begin
+    Result := BlockInfo.Proc.Decl.Params[i].aType;
+  end;
+end;
+
+function TPSPascalCompiler.GetTypeNo(BlockInfo: TPSBlockInfo; p: TPSValue): TPSType;
+begin
+  if p.ClassType = TPSUnValueOp then
+    Result := TPSUnValueOp(p).aType
+  else if p.ClassType = TPSBinValueOp then
+    Result := TPSBinValueOp(p).aType
+  else if p.ClassType = TPSValueArray then
+    Result := at2ut(FindType('TVariantArray'))
+  else if p.ClassType = TPSValueData then
+    Result := TPSValueData(p).Data.FType
+  else if p is TPSValueProc then
+    Result := TPSValueProc(p).ResultType
+  else if (p is TPSValueVar) and (TPSValueVar(p).RecCount > 0) then
+    Result := TPSValueVar(p).RecItem[TPSValueVar(p).RecCount - 1].aType
+  else if p.ClassType = TPSValueGlobalVar then
+    Result := TPSVar(FVars[TPSValueGlobalVar(p).GlobalVarNo]).FType
+  else if p.ClassType = TPSValueParamVar then
+    Result := GetParamType(BlockInfo, TPSValueParamVar(p).ParamNo)
+  else if p is TPSValueLocalVar then
+    Result := TPSProcVar(BlockInfo.Proc.ProcVars[TPSValueLocalVar(p).LocalVarNo]).AType
+  else if p.classtype = TPSValueReplace then
+    Result := GetTypeNo(BlockInfo, TPSValueReplace(p).NewValue)
+  else
+    Result := nil;
+end;
+
+function TPSPascalCompiler.IsVarInCompatible(ft1, ft2: TPSType): Boolean;
+begin
+  ft1 := GetTypeCopyLink(ft1);
+  ft2 := GetTypeCopyLink(ft2);
+  Result := (ft1 <> ft2) and (ft2 <> nil);
+end;
+
+function TPSPascalCompiler.ValidateParameters(BlockInfo: TPSBlockInfo; Params: TPSParameters; ParamTypes: TPSParametersDecl): boolean;
+var
+  i, c: Longint;
+  pType: TPSType;
+
+begin
+  UseProc(ParamTypes);
+  c := 0;
+  for i := 0 to ParamTypes.ParamCount -1 do
+  begin
+    while (c < Longint(Params.Count)) and (Params[c].Val = nil) do
+      Inc(c);
+    if c >= Longint(Params.Count) then
+    begin
+      MakeError('', ecInvalidnumberOfParameters, '');
+      Result := False;
+      exit;
+    end;
+    Params[c].ExpectedType := ParamTypes.Params[i].aType;
+    Params[c].ParamMode := ParamTypes.Params[i].Mode;
+    if ParamTypes.Params[i].Mode <> pmIn then
+    begin
+      if not (Params[c].Val is TPSValueVar) then
+      begin
+        with MakeError('', ecVariableExpected, '') do
+        begin
+          Row := Params[c].Val.Row;
+          Col := Params[c].Val.Col;
+          Pos := Params[c].Val.Pos;
+        end;
+        result := false;
+        exit;
+      end;
+        PType := Params[c].ExpectedType;
+        if (PType = nil) or ((PType.BaseType = btArray) and (TPSArrayType(PType).ArrayTypeNo = nil) and (GetTypeNo(BlockInfo, Params[c].Val).BaseType = btArray)) or
+          (PType = FAnyString) then
+        begin
+          Params[c].ExpectedType := GetTypeNo(BlockInfo, Params[c].Val);
+          if PType <> nil then
+          if (Params[c].ExpectedType = nil) or not (Params[c].ExpectedType.BaseType in [btString, btWideString, btUnicodeString, btChar, btWideChar]) then begin
+            MakeError('', ecTypeMismatch, '');
+            Result := False;
+            exit;
+          end;
+          if Params[c].ExpectedType.BaseType = btChar then
+            Params[c].ExpectedType := FindBaseType(btString) else
+          if Params[c].ExpectedType.BaseType = btWideChar then
+            Params[c].ExpectedType := FindBaseType(btUnicodeString);
+        end else if (PType.BaseType = btArray) and (GetTypeNo(BlockInfo, Params[c].Val).BaseType = btArray) then
+        begin
+          if TPSArrayType(GetTypeNo(BlockInfo, Params[c].Val)).ArrayTypeNo <> TPSArrayType(PType).ArrayTypeNo then
+          begin
+            MakeError('', ecTypeMismatch, '');
+            Result := False;
+            exit;
+          end;
+        end else if IsVarInCompatible(PType, GetTypeNo(BlockInfo, Params[c].Val)) then
+        begin
+          MakeError('', ecTypeMismatch, '');
+          Result := False;
+          exit;
+        end;
+    end;
+    Inc(c);
+  end;
+  for i := c to Params.Count -1 do
+  begin
+    if Params[i].Val <> nil then
+    begin
+      MakeError('', ecInvalidnumberOfParameters, '');
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := true;
+end;
+
+function TPSPascalCompiler.DoTypeBlock(FParser: TPSPascalParser): Boolean;
+var
+  VOrg,VName: tbtString;
+  Attr: TPSAttributes;
+  FType: TPSType;
+  i: Longint;
+begin
+  Result := False;
+  FParser.Next;
+  repeat
+    Attr := TPSAttributes.Create;
+    if not ReadAttributes(Attr) then
+    begin
+      Attr.Free;
+      exit;
+    end;
+    if (FParser.CurrTokenID = CSTII_Procedure) or (FParser.CurrTokenID = CSTII_Function) then
+    begin
+      Result := ProcessFunction(false, Attr);
+      exit;
+    end;
+    if FParser.CurrTokenId <> CSTI_Identifier then
+    begin
+      MakeError('', ecIdentifierExpected, '');
+      Attr.Free;
+      exit;
+    end;
+
+    VName := FParser.GetToken;
+    VOrg := FParser.OriginalToken;
+    if IsDuplicate(VName, [dcTypes, dcProcs, dcVars]) then
+    begin
+      MakeError('', ecDuplicateIdentifier, FParser.OriginalToken);
+      Attr.Free;
+      exit;
+    end;
+
+    FParser.Next;
+    if FParser.CurrTokenId <> CSTI_Equal then
+    begin
+      MakeError('', ecIsExpected, '');
+      Attr.Free;
+      exit;
+    end;
+    FParser.Next;
+    FType := ReadType(VOrg, FParser);
+    if Ftype = nil then
+    begin
+      Attr.Free;
+      Exit;
+    end;
+    FType.Attributes.Assign(Attr, True);
+    for i := 0 to FType.Attributes.Count -1 do
+    begin
+      if @FType.Attributes[i].FAttribType.FAAType <> nil then
+        FType.Attributes[i].FAttribType.FAAType(Self, FType, Attr[i]);
+    end;
+    Attr.Free;
+    if FParser.CurrTokenID <> CSTI_Semicolon then
+    begin
+      MakeError('', ecSemicolonExpected, '');
+      Exit;
+    end;
+    FParser.Next;
+  until (FParser.CurrTokenId <> CSTI_Identifier) and (FParser.CurrTokenID <> CSTI_OpenBlock);
+  Result := True;
+end;
+
+procedure TPSPascalCompiler.Debug_WriteLine(BlockInfo: TPSBlockInfo);
+var
+  b: Boolean;
+begin
+  if @FOnWriteLine <> nil then begin
+    {$IFNDEF PS_USESSUPPORT}
+    b := FOnWriteLine(Self, FParser.CurrTokenPos);
+    {$ELSE}
+    b := FOnWriteLine(Self, FModule, FParser.CurrTokenPos);
+    {$ENDIF}
+  end else
+    b := true;
+  if b then Debug_SavePosition(BlockInfo.ProcNo, BlockInfo.Proc);
+end;
+
+
+function TPSPascalCompiler.ReadReal(const s: tbtString): PIfRVariant;
+var
+  C: Integer;
+begin
+  New(Result);
+  InitializeVariant(Result, FindBaseType(btExtended));
+  Val(string(s), Result^.textended, C);
+end;
+
+function TPSPascalCompiler.ReadString: PIfRVariant;
+{$IFNDEF PS_NOWIDESTRING}var wchar: Boolean;{$ENDIF}
+
+  function ParseString({$IFNDEF PS_NOWIDESTRING}var res: tbtunicodestring{$ELSE}var res: tbtString{$ENDIF}): Boolean;
+  var
+    temp3: {$IFNDEF PS_NOWIDESTRING}tbtunicodestring{$ELSE}tbtString{$ENDIF};
+
+    function ChrToStr(s: tbtString): {$IFNDEF PS_NOWIDESTRING}widechar{$ELSE}tbtchar{$ENDIF};
+    var
+      w: Longint;
+    begin
+      Delete(s, 1, 1); {First char : #}
+      w := StrToInt(s);
+      Result := {$IFNDEF PS_NOWIDESTRING}widechar{$ELSE}tbtchar{$ENDIF}(w);
+      {$IFNDEF PS_NOWIDESTRING}if w > $FF then wchar := true;{$ENDIF}
+    end;
+
+    function PString(s: tbtString): tbtString;
+    var
+      i: Longint;
+    begin
+      s := copy(s, 2, Length(s) - 2);
+      i := length(s);
+      while i > 0 do
+      begin
+        if (i < length(s)) and (s[i] = #39) and (s[i + 1] = #39) then
+        begin
+          Delete(s, i, 1);
+          dec(i);
+        end;
+        dec(i);
+      end;
+      PString := s;
+    end;
+  var
+    lastwasstring: Boolean;
+  begin
+    temp3 := '';
+    while (FParser.CurrTokenId = CSTI_String) or (FParser.CurrTokenId = CSTI_Char) do
+    begin
+      lastwasstring := FParser.CurrTokenId = CSTI_String;
+      if FParser.CurrTokenId = CSTI_String then
+      begin
+        if UTF8Decode then
+        begin
+        temp3 := temp3 + {$IFNDEF PS_NOWIDESTRING}{$IFDEF DELPHI6UP}System.{$IFDEF DELPHI2009UP}UTF8ToWidestring{$ELSE}UTF8Decode{$ENDIF}{$ENDIF}{$ENDIF}(PString(FParser.GetToken));
+        {$IFNDEF PS_NOWIDESTRING}wchar:=true;{$ENDIF}
+        end else
+          temp3 := temp3 + tbtUnicodestring(PString(FParser.GetToken));
+
+        FParser.Next;
+        if FParser.CurrTokenId = CSTI_String then
+          temp3 := temp3 + #39;
+      end {if}
+      else
+      begin
+        temp3 := temp3 + ChrToStr(FParser.GetToken);
+        FParser.Next;
+      end; {else if}
+      if  lastwasstring and (FParser.CurrTokenId = CSTI_String) then
+      begin
+        MakeError('', ecSyntaxError, '');
+        result := false;
+        exit;
+      end;
+    end; {while}
+    res := temp3;
+    result := true;
+  end;
+var
+{$IFNDEF PS_NOWIDESTRING}
+  w: tbtunicodestring;
+{$ENDIF}
+  s: tbtString;
+begin
+  {$IFNDEF PS_NOWIDESTRING}wchar:=false;{$ENDIF}
+  if not ParseString({$IFDEF PS_NOWIDESTRING} s {$ELSE}  w {$ENDIF}) then
+  begin
+    result := nil;
+    exit;
+  end;
+{$IFNDEF PS_NOWIDESTRING}
+  if wchar then
+  begin
+    New(Result);
+    if Length(w) = 1 then
+    begin
+      InitializeVariant(Result, at2ut(FindBaseType(btwidechar)));
+      Result^.twidechar := w[1];
+    end else begin
+      InitializeVariant(Result, at2ut(FindBaseType(btUnicodeString)));
+      tbtunicodestring(Result^.tunistring) := w;
+     end;
+  end else begin
+    s := tbtstring(w);
+{$ENDIF}
+    New(Result);
+    if Length(s) = 1 then
+    begin
+      InitializeVariant(Result, at2ut(FindBaseType(btchar)));
+      Result^.tchar := s[1];
+    end else begin
+      InitializeVariant(Result, at2ut(FindBaseType(btstring)));
+      tbtstring(Result^.tstring) := s;
+    end;
+{$IFNDEF PS_NOWIDESTRING}
+  end;
+{$ENDIF}
+end;
+
+
+function TPSPascalCompiler.ReadInteger(const s: tbtString): PIfRVariant;
+var
+  R: {$IFNDEF PS_NOINT64}Int64;{$ELSE}Longint;{$ENDIF}
+begin
+  New(Result);
+{$IFNDEF PS_NOINT64}
+  r := StrToInt64Def(string(s), 0);
+  if (r >= Low(Integer)) and (r <= High(Integer)) then
+  begin
+    InitializeVariant(Result, at2ut(FindBaseType(bts32)));
+    Result^.ts32 := r;
+  end else if (r <= $FFFFFFFF) then
+  begin
+    InitializeVariant(Result, at2ut(FindBaseType(btu32)));
+    Result^.tu32 := r;
+  end else
+  begin
+    InitializeVariant(Result, at2ut(FindBaseType(bts64)));
+    Result^.ts64 := r;
+  end;
+{$ELSE}
+  r := StrToIntDef(s, 0);
+  InitializeVariant(Result, at2ut(FindBaseType(bts32)));
+  Result^.ts32 := r;
+{$ENDIF}
+end;
+
+function TPSPascalCompiler.ProcessSub(BlockInfo: TPSBlockInfo): Boolean;
+
+  function AllocStackReg2(MType: TPSType): TPSValue;
+  var
+    x: TPSProcVar;
+  begin
+{$IFDEF DEBUG}
+    if (mtype = nil) or (not mtype.Used) then asm int 3; end;
+{$ENDIF}
+    x := TPSProcVar.Create;
+    {$IFDEF PS_USESSUPPORT}
+    x.DeclareUnit:=fModule;
+    {$ENDIF}
+    x.DeclarePos := FParser.CurrTokenPos;
+    x.DeclareRow := FParser.Row;
+    x.DeclareCol := FParser.Col;
+    x.Name := '';
+    x.AType := MType;
+    x.Use;
+    BlockInfo.Proc.ProcVars.Add(x);
+    Result := TPSValueAllocatedStackVar.Create;
+    Result.SetParserPos(FParser);
+    TPSValueAllocatedStackVar(Result).Proc := BlockInfo.Proc;
+    with TPSValueAllocatedStackVar(Result) do
+    begin
+      LocalVarNo := proc.ProcVars.Count -1;
+    end;
+  end;
+
+  function AllocStackReg(MType: TPSType): TPSValue;
+  begin
+    Result := AllocStackReg2(MType);
+    BlockWriteByte(BlockInfo, Cm_Pt);
+    BlockWriteLong(BlockInfo, MType.FinalTypeNo);
+  end;
+
+  function AllocPointer(MDestType: TPSType): TPSValue;
+  begin
+    Result := AllocStackReg(at2ut(FindBaseType(btPointer)));
+    TPSProcVar(BlockInfo.Proc.ProcVars[TPSValueAllocatedStackVar(Result).LocalVarNo]).AType := MDestType;
+  end;
+
+  function WriteCalculation(InData, OutReg: TPSValue): Boolean; forward;
+  function PreWriteOutRec(var X: TPSValue; FArrType: TPSType): Boolean; forward;
+  function WriteOutRec(x: TPSValue; AllowData: Boolean): Boolean; forward;
+  procedure AfterWriteOutRec(var x: TPSValue); forward;
+
+  function CheckCompatType(V1, v2: TPSValue): Boolean;
+  var
+    p1, P2: TPSType;
+  begin
+    p1 := GetTypeNo(BlockInfo, V1);
+    P2 := GetTypeNo(BlockInfo, v2);
+    if (p1 = nil) or (p2 = nil) then
+    begin
+      if ((p1 <> nil) and ({$IFNDEF PS_NOINTERFACES}(p1.ClassType = TPSInterfaceType) or {$ENDIF}(p1.BaseType = btProcPtr)) and (v2.ClassType = TPSValueNil)) or
+        ((p2 <> nil) and ({$IFNDEF PS_NOINTERFACES}(p2.ClassType = TPSInterfaceType) or {$ENDIF}(p2.BaseType = btProcPtr)) and (v1.ClassType = TPSValueNil)) then
+      begin
+        Result := True;
+        exit;
+      end else
+      if ((p1 <> nil) and ({$IFNDEF PS_NOINTERFACES}(p1.ClassType = TPSInterfaceType) or {$ENDIF}(p1.ClassType = TPSClassType)) and (v2.ClassType = TPSValueNil)) or
+        ((p2 <> nil) and ({$IFNDEF PS_NOINTERFACES}(p2.ClassType = TPSInterfaceType) or {$ENDIF}(p2.ClassType = TPSClassType)) and (v1.ClassType = TPSValueNil)) then
+      begin
+        Result := True;
+        exit;
+      end else
+      if ((p1 <> nil) and ({$IFNDEF PS_NOINTERFACES}(p1.ClassType = TPSInterfaceType) or {$ENDIF}(p1.ClassType = TPSUndefinedClassType)) and (v2.ClassType = TPSValueNil)) or
+        ((p2 <> nil) and ({$IFNDEF PS_NOINTERFACES}(p2.ClassType = TPSInterfaceType) or {$ENDIF}(p2.ClassType = TPSUndefinedClassType)) and (v1.ClassType = TPSValueNil)) then
+      begin
+        Result := True;
+        exit;
+      end else
+      if (v1.ClassType = TPSValueProcPtr) and (p2 <> nil) and (p2.BaseType = btProcPtr) then
+      begin
+        Result := CheckCompatProc(p2, TPSValueProcPtr(v1).ProcPtr);
+        exit;
+      end else if (v2.ClassType = TPSValueProcPtr) and (p1 <> nil) and (p1.BaseType = btProcPtr) then
+      begin
+        Result := CheckCompatProc(p1, TPSValueProcPtr(v2).ProcPtr);
+        exit;
+      end;
+      Result := False;
+    end else
+    if (p1 <> nil) and (p1.BaseType = btSet) and (v2 is TPSValueArray) then
+    begin
+      Result := True;
+    end else
+      Result := IsCompatibleType(p1, p2, False);
+  end;
+
+  function _ProcessFunction(ProcCall: TPSValueProc; ResultRegister: TPSValue): Boolean; forward;
+  function ProcessFunction2(ProcNo: Cardinal; Par: TPSParameters; ResultReg: TPSValue): Boolean;
+  var
+    Temp: TPSValueProcNo;
+    i: Integer;
+  begin
+    Temp := TPSValueProcNo.Create;
+    Temp.Parameters := Par;
+    Temp.ProcNo := ProcNo;
+    if TObject(FProcs[ProcNo]).ClassType = TPSInternalProcedure then
+      Temp.ResultType := TPSInternalProcedure(FProcs[ProcNo]).Decl.Result
+    else
+      Temp.ResultType := TPSExternalProcedure(FProcs[ProcNo]).RegProc.Decl.Result;
+    if (Temp.ResultType <> nil) and (Temp.ResultType = FAnyString) then begin // workaround to make the result type match
+      for i := 0 to Par.Count -1 do begin
+        if Par[i].ExpectedType.BaseType in [btString, btWideString] then
+          Temp.ResultType := Par[i].ExpectedType;
+      end;
+    end;
+    Result := _ProcessFunction(Temp, ResultReg);
+    Temp.Parameters := nil;
+    Temp.Free;
+  end;
+
+  function MakeNil(NilPos, NilRow, nilCol: Cardinal;ivar: TPSValue): Boolean;
+  var
+    Procno: Cardinal;
+    PF: TPSType;
+    Par: TPSParameters;
+  begin
+    Pf := GetTypeNo(BlockInfo, IVar);
+    if not (Ivar is TPSValueVar) then
+    begin
+      with MakeError('', ecTypeMismatch, '') do
+      begin
+        FPosition := nilPos;
+        FRow := NilRow;
+        FCol := nilCol;
+      end;
+      Result := False;
+      exit;
+    end;
+    if (pf.BaseType = btProcPtr) then
+    begin
+      Result := True;
+    end else
+    if (pf.BaseType = btString) or (pf.BaseType = btPChar) then
+    begin
+      if not PreWriteOutRec(iVar, nil) then
+      begin
+        Result := false;
+        exit;
+      end;
+      BlockWriteByte(BlockInfo, CM_A);
+      WriteOutRec(ivar, False);
+      BlockWriteByte(BlockInfo, 1);
+      BlockWriteLong(BlockInfo, GetTypeNo(BlockInfo, IVar).FinalTypeNo);
+      BlockWriteLong(BlockInfo, 0); //empty tbtString
+      AfterWriteOutRec(ivar);
+      Result := True;
+    end else if (pf.BaseType = btClass) {$IFNDEF PS_NOINTERFACES}or (pf.BaseType = btInterface){$ENDIF} then
+    begin
+{$IFNDEF PS_NOINTERFACES}
+      if (pf.BaseType = btClass) then
+      begin
+{$ENDIF}
+        if not TPSClassType(pf).Cl.SetNil(ProcNo) then
+        begin
+          with MakeError('', ecTypeMismatch, '') do
+          begin
+            FPosition := nilPos;
+            FRow := NilRow;
+            FCol := nilCol;
+          end;
+          Result := False;
+          exit;
+        end;
+{$IFNDEF PS_NOINTERFACES}
+      end else
+      begin
+        if not TPSInterfaceType(pf).Intf.SetNil(ProcNo) then
+        begin
+          with MakeError('', ecTypeMismatch, '') do
+          begin
+            FPosition := nilPos;
+            FRow := NilRow;
+            FCol := nilCol;
+          end;
+          Result := False;
+          exit;
+        end;
+      end;
+{$ENDIF}
+      Par := TPSParameters.Create;
+      with par.Add do
+      begin
+        Val := IVar;
+        ExpectedType := GetTypeNo(BlockInfo, ivar);
+{$IFDEF DEBUG}
+        if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+        ParamMode := pmInOut;
+      end;
+      Result := ProcessFunction2(ProcNo, Par, nil);
+
+      Par[0].Val := nil; // don't free IVAR
+
+      Par.Free;
+    end else if pf.BaseType = btExtClass then
+    begin
+      if not TPSUndefinedClassType(pf).ExtClass.SetNil(ProcNo) then
+      begin
+        with MakeError('', ecTypeMismatch, '') do
+        begin
+          FPosition := nilPos;
+          FRow := NilRow;
+          FCol := nilCol;
+        end;
+        Result := False;
+        exit;
+      end;
+      Par := TPSParameters.Create;
+      with par.Add do
+      begin
+        Val := IVar;
+        ExpectedType := GetTypeNo(BlockInfo, ivar);
+        ParamMode := pmInOut;
+      end;
+      Result := ProcessFunction2(ProcNo, Par, nil);
+
+      Par[0].Val := nil; // don't free IVAR
+
+      Par.Free;
+    end else begin
+      with MakeError('', ecTypeMismatch, '') do
+      begin
+        FPosition := nilPos;
+        FRow := NilRow;
+        FCol := nilCol;
+      end;
+      Result := False;
+    end;
+  end;
+  function DoBinCalc(BVal: TPSBinValueOp; Output: TPSValue): Boolean;
+  var
+    tmpp, tmpc: TPSValue;
+    jend, jover: Cardinal;
+    procno: Cardinal;
+
+  begin
+    if BVal.Operator >= otGreaterEqual then
+    begin
+      if BVal.FVal1.ClassType = TPSValueNil then
+      begin
+        tmpp := AllocStackReg(GetTypeNo(BlockInfo, BVal.FVal2));
+        if not MakeNil(BVal.FVal1.Pos, BVal.FVal1.Row, BVal.FVal1.Col, tmpp) then
+        begin
+          tmpp.Free;
+          Result := False;
+          exit;
+        end;
+        tmpc := TPSValueReplace.Create;
+        with TPSValueReplace(tmpc) do
+        begin
+          OldValue := BVal.FVal1;
+          NewValue := tmpp;
+        end;
+        BVal.FVal1 := tmpc;
+      end;
+      if BVal.FVal2.ClassType = TPSValueNil then
+      begin
+        tmpp := AllocStackReg(GetTypeNo(BlockInfo, BVal.FVal1));
+        if not MakeNil(BVal.FVal2.Pos, BVal.FVal2.Row, BVal.FVal2.Col, tmpp) then
+        begin
+          tmpp.Free;;
+          Result := False;
+          exit;
+        end;
+        tmpc := TPSValueReplace.Create;
+        with TPSValueReplace(tmpc) do
+        begin
+          OldValue := BVal.FVal2;
+          NewValue := tmpp;
+        end;
+        BVal.FVal2 := tmpc;
+      end;
+      if GetTypeNo(BlockInfo, BVal.FVal1).BaseType = btExtClass then
+      begin
+        if not TPSUndefinedClassType(GetTypeNo(BlockInfo, BVal.FVal1)).ExtClass.CompareClass(GetTypeNo(BlockInfo, Bval.FVal2), ProcNo) then
+        begin
+          Result := False;
+          exit;
+        end;
+        tmpp := TPSValueProcNo.Create;
+        with TPSValueProcNo(tmpp) do
+        begin
+          ResultType := at2ut(FDefaultBoolType);
+          Parameters := TPSParameters.Create;
+          ProcNo := procno;
+          Pos := BVal.Pos;
+          Col := BVal.Col;
+          Row := BVal.Row;
+          with parameters.Add do
+          begin
+            Val := BVal.FVal1;
+            ExpectedType := GetTypeNo(BlockInfo, Val);
+          end;
+          with parameters.Add do
+          begin
+            Val := BVal.FVal2;
+            ExpectedType := GetTypeNo(BlockInfo, Val);
+          end;
+        end;
+        if Bval.Operator = otNotEqual then
+        begin
+          tmpc := TPSUnValueOp.Create;
+          TPSUnValueOp(tmpc).Operator := otNot;
+          TPSUnValueOp(tmpc).Val1 := tmpp;
+          TPSUnValueOp(tmpc).aType := GetTypeNo(BlockInfo, tmpp);
+        end else tmpc := tmpp;
+        Result := WriteCalculation(tmpc, Output);
+        with TPSValueProcNo(tmpp) do
+        begin
+          Parameters[0].Val := nil;
+          Parameters[1].Val := nil;
+        end;
+        tmpc.Free;
+        if BVal.Val1.ClassType = TPSValueReplace then
+        begin
+          tmpp := TPSValueReplace(BVal.Val1).OldValue;
+          BVal.Val1.Free;
+          BVal.Val1 := tmpp;
+        end;
+        if BVal.Val2.ClassType = TPSValueReplace then
+        begin
+          tmpp := TPSValueReplace(BVal.Val2).OldValue;
+          BVal.Val2.Free;
+          BVal.Val2 := tmpp;
+        end;
+        exit;
+      end;
+      if not (PreWriteOutRec(Output, nil) and PreWriteOutRec(BVal.FVal1, GetTypeNo(BlockInfo, BVal.FVal2)) and PreWriteOutRec(BVal.FVal2, GetTypeNo(BlockInfo, BVal.FVal1))) then
+      begin
+        Result := False;
+        exit;
+      end;
+      BlockWriteByte(BlockInfo, CM_CO);
+      case BVal.Operator of
+        otGreaterEqual: BlockWriteByte(BlockInfo, 0);
+        otLessEqual: BlockWriteByte(BlockInfo, 1);
+        otGreater: BlockWriteByte(BlockInfo, 2);
+        otLess: BlockWriteByte(BlockInfo, 3);
+        otEqual: BlockWriteByte(BlockInfo, 5);
+        otNotEqual: BlockWriteByte(BlockInfo, 4);
+        otIn: BlockWriteByte(BlockInfo, 6);
+        otIs: BlockWriteByte(BlockInfo, 7);
+      end;
+
+      if not (WriteOutRec(Output, False) and writeOutRec(BVal.FVal1, True) and writeOutRec(BVal.FVal2, True)) then
+      begin
+        Result := False;
+        exit;
+      end;
+      AfterWriteOutrec(BVal.FVal1);
+      AfterWriteOutrec(BVal.FVal2);
+      AfterWriteOutrec(Output);
+      if BVal.Val1.ClassType = TPSValueReplace then
+      begin
+        tmpp := TPSValueReplace(BVal.Val1).OldValue;
+        BVal.Val1.Free;
+        BVal.Val1 := tmpp;
+      end;
+      if BVal.Val2.ClassType = TPSValueReplace then
+      begin
+        tmpp := TPSValueReplace(BVal.Val2).OldValue;
+        BVal.Val2.Free;
+        BVal.Val2 := tmpp;
+      end;
+    end else begin
+      if not PreWriteOutRec(Output, nil) then
+      begin
+        Result := False;
+        exit;
+      end;
+      if not SameReg(Output, BVal.Val1) then
+      begin
+        if not WriteCalculation(BVal.FVal1, Output) then
+        begin
+          Result := False;
+          exit;
+        end;
+      end;
+      if (FBooleanShortCircuit) and (IsBoolean(BVal.aType)) then
+      begin
+        if BVal.Operator = otAnd then
+        begin
+          BlockWriteByte(BlockInfo, Cm_CNG);
+          jover := Length(BlockInfo.Proc.FData);
+          BlockWriteLong(BlockInfo, 0);
+          WriteOutRec(Output, True);
+          jend := Length(BlockInfo.Proc.FData);
+        end else if BVal.Operator = otOr then
+        begin
+          BlockWriteByte(BlockInfo, Cm_CG);
+          jover := Length(BlockInfo.Proc.FData);
+          BlockWriteLong(BlockInfo, 0);
+          WriteOutRec(Output, True);
+          jend := Length(BlockInfo.Proc.FData);
+        end else
+        begin
+          jover := 0;
+          jend := 0;
+        end;
+      end else
+      begin
+        jover := 0;
+        jend := 0;
+      end;
+      if not PreWriteOutrec(BVal.FVal2, GetTypeNo(BlockInfo, Output)) then
+      begin
+        Result := False;
+        exit;
+      end;
+      BlockWriteByte(BlockInfo, Cm_CA);
+      BlockWriteByte(BlockInfo, Ord(BVal.Operator));
+      if not (WriteOutRec(Output, False) and WriteOutRec(BVal.FVal2, True)) then
+      begin
+        Result := False;
+        exit;
+      end;
+      AfterWriteOutRec(BVal.FVal2);
+      if FBooleanShortCircuit and (IsBoolean(BVal.aType)) and (JOver <> JEnd) then
+      begin
+        {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+        unaligned(Cardinal((@BlockInfo.Proc.FData[jover+1])^)) := Cardinal(Length(BlockInfo.Proc.FData)) - jend;
+	{$else}
+        Cardinal((@BlockInfo.Proc.FData[jover+1])^) := Cardinal(Length(BlockInfo.Proc.FData)) - jend;
+	{$endif}
+      end;
+      AfterWriteOutRec(Output);
+    end;
+    Result := True;
+  end;
+
+  function DoUnCalc(Val: TPSUnValueOp; Output: TPSValue): Boolean;
+  var
+    Tmp: TPSValue;
+  begin
+    if not PreWriteOutRec(Output, nil) then
+    begin
+      Result := False;
+      exit;
+    end;
+    case Val.Operator of
+      otNot:
+        begin
+          if not SameReg(Val.FVal1, Output) then
+          begin
+            if not WriteCalculation(Val.FVal1, Output) then
+            begin
+              Result := False;
+              exit;
+            end;
+          end;
+          if IsBoolean(GetTypeNo(BlockInfo, Val)) then
+            BlockWriteByte(BlockInfo, cm_bn)
+          else
+            BlockWriteByte(BlockInfo, cm_in);
+          if not WriteOutRec(Output, True) then
+          begin
+            Result := False;
+            exit;
+          end;
+        end;
+      otMinus:
+        begin
+          if not SameReg(Val.FVal1, Output) then
+          begin
+            if not WriteCalculation(Val.FVal1, Output) then
+            begin
+              Result := False;
+              exit;
+            end;
+          end;
+          BlockWriteByte(BlockInfo, cm_vm);
+          if not WriteOutRec(Output, True) then
+          begin
+            Result := False;
+            exit;
+          end;
+        end;
+      otCast:
+        begin
+          if ((Val.aType.BaseType = btChar) and (Val.aType.BaseType <> btU8)) {$IFNDEF PS_NOWIDESTRING}or
+            ((Val.aType.BaseType = btWideChar) and (Val.aType.BaseType <> btU16)){$ENDIF} then
+          begin
+            Tmp := AllocStackReg(Val.aType);
+          end else
+            Tmp := Output;
+          if not (PreWriteOutRec(Val.FVal1, GetTypeNo(BlockInfo, Tmp)) and PreWriteOutRec(Tmp, GetTypeNo(BlockInfo, Tmp))) then
+          begin
+            Result := False;
+            if tmp <> Output then Tmp.Free;
+            exit;
+          end;
+          BlockWriteByte(BlockInfo, CM_A);
+          if not (WriteOutRec(Tmp, False) and WriteOutRec(Val.FVal1, True)) then
+          begin
+            Result := false;
+            if tmp <> Output then Tmp.Free;
+            exit;
+          end;
+          AfterWriteOutRec(val.Fval1);
+          if Tmp <> Output then
+          begin
+            if not WriteCalculation(Tmp, Output) then
+            begin
+              Result := false;
+              Tmp.Free;
+              exit;
+            end;
+          end;
+          AfterWriteOutRec(Tmp);
+          if Tmp <> Output then
+            Tmp.Free;
+        end;
+      {else donothing}
+    end;
+    AfterWriteOutRec(Output);
+    Result := True;
+  end;
+
+
+  function GetAddress(Val: TPSValue): Cardinal;
+  begin
+    if Val.ClassType = TPSValueGlobalVar then
+      Result := TPSValueGlobalVar(val).GlobalVarNo
+    else if Val.ClassType = TPSValueLocalVar then
+      Result := PSAddrStackStart + TPSValueLocalVar(val).LocalVarNo + 1
+    else if Val.ClassType = TPSValueParamVar then
+      Result := PSAddrStackStart - TPSValueParamVar(val).ParamNo -1
+    else if Val.ClassType =  TPSValueAllocatedStackVar then
+      Result := PSAddrStackStart + TPSValueAllocatedStackVar(val).LocalVarNo + 1
+    else
+      Result := InvalidVal;
+  end;
+
+
+  function PreWriteOutRec(var X: TPSValue; FArrType: TPSType): Boolean;
+  var
+    rr: TPSSubItem;
+    tmpp,
+      tmpc: TPSValue;
+    i: Longint;
+    function MakeSet(SetType: TPSSetType; arr: TPSValueArray): Boolean;
+    var
+      c, i: Longint;
+      dataval: TPSValueData;
+      mType: TPSType;
+    begin
+      Result := True;
+      dataval := TPSValueData.Create;
+      dataval.Data := NewVariant(FarrType);
+      for i := 0 to arr.count -1 do
+      begin
+        mType := GetTypeNo(BlockInfo, arr.Item[i]);
+        if mType <> SetType.SetType then
+        begin
+          with MakeError('', ecTypeMismatch, '') do
+          begin
+            FCol := arr.item[i].Col;
+            FRow := arr.item[i].Row;
+            FPosition := arr.item[i].Pos;
+          end;
+          DataVal.Free;
+          Result := False;
+          exit;
+        end;
+        if arr.Item[i] is TPSValueData then
+        begin
+          c := GetInt(TPSValueData(arr.Item[i]).Data, Result);
+          if not Result then
+          begin
+            dataval.Free;
+            exit;
+          end;
+          Set_MakeMember(c, dataval.Data.tstring);
+        end else
+        begin
+          DataVal.Free;
+          MakeError('', ecTypeMismatch, '');
+          Result := False;
+          exit;
+        end;
+      end;
+      tmpc := TPSValueReplace.Create;
+      with TPSValueReplace(tmpc) do
+      begin
+        OldValue := x;
+        NewValue := dataval;
+        PreWriteAllocated := True;
+      end;
+      x := tmpc;
+    end;
+  begin
+    Result := True;
+    if x.ClassType = TPSValueReplace then
+    begin
+      if TPSValueReplace(x).PreWriteAllocated then
+      begin
+        inc(TPSValueReplace(x).FReplaceTimes);
+      end;
+    end else
+    if x.ClassType = TPSValueProcPtr then
+    begin
+      if FArrType = nil then
+      begin
+        MakeError('', ecTypeMismatch, '');
+        Result := False;
+        Exit;
+      end;
+      tmpp := TPSValueData.Create;
+      TPSValueData(tmpp).Data := NewVariant(FArrType);
+      TPSValueData(tmpp).Data.tu32 := TPSValueProcPtr(x).ProcPtr;
+      tmpc := TPSValueReplace.Create;
+      with TPSValueReplace(tmpc) do
+      begin
+        PreWriteAllocated := True;
+        OldValue := x;
+        NewValue := tmpp;
+      end;
+      x := tmpc;
+    end else
+    if x.ClassType = TPSValueNil then
+    begin
+      if FArrType = nil then
+      begin
+        MakeError('', ecTypeMismatch, '');
+        Result := False;
+        Exit;
+      end;
+      tmpp := AllocStackReg(FArrType);
+      if not MakeNil(x.Pos, x.Row, x.Col, tmpp) then
+      begin
+        tmpp.Free;
+        Result := False;
+        exit;
+      end;
+      tmpc := TPSValueReplace.Create;
+      with TPSValueReplace(tmpc) do
+      begin
+        PreWriteAllocated := True;
+        OldValue := x;
+        NewValue := tmpp;
+      end;
+      x := tmpc;
+    end else
+    if x.ClassType = TPSValueArray then
+    begin
+      if FArrType = nil then
+      begin
+        MakeError('', ecTypeMismatch, '');
+        Result := False;
+        Exit;
+      end;
+      if TPSType(FArrType).BaseType = btSet then
+      begin
+        Result := MakeSet(TPSSetType(FArrType), TPSValueArray(x));
+        exit;
+      end;
+      if TPSType(FarrType).BaseType = btVariant then
+        FArrType := FindAndAddType(self, '', 'array of variant');
+      if TPSType(FarrType).BaseType <> btArray then 
+        FArrType := FindAndAddType(self, '', 'array of variant');
+
+      tmpp := AllocStackReg(FArrType);
+      tmpc := AllocStackReg(FindBaseType(bts32));
+      BlockWriteByte(BlockInfo, CM_A);
+      WriteOutrec(tmpc, False);
+      BlockWriteByte(BlockInfo, 1);
+      BlockWriteLong(BlockInfo, FindBaseType(bts32).FinalTypeNo);
+      BlockWriteLong(BlockInfo, TPSValueArray(x).Count);
+      BlockWriteByte(BlockInfo, CM_PV);
+      WriteOutrec(tmpp, False);
+      BlockWriteByte(BlockInfo, CM_C);
+      BlockWriteLong(BlockInfo, FindProc('SETARRAYLENGTH'));
+      BlockWriteByte(BlockInfo, CM_PO);
+      tmpc.Free;
+      rr := TPSSubNumber.Create;
+      rr.aType := TPSArrayType(FArrType).ArrayTypeNo;
+      TPSValueVar(tmpp).RecAdd(rr);
+      for i := 0 to TPSValueArray(x).Count -1 do
+      begin
+        TPSSubNumber(rr).SubNo := i;
+        tmpc := TPSValueArray(x).Item[i];
+        if not PreWriteOutRec(tmpc, GetTypeNo(BlockInfo, tmpc)) then
+        begin
+          tmpp.Free;
+          Result := false;
+          exit;
+        end;
+        if TPSArrayType(FArrType).ArrayTypeNo.BaseType = btPointer then
+          BlockWriteByte(BlockInfo, cm_spc)
+        else
+          BlockWriteByte(BlockInfo, cm_a);
+        if not (WriteOutrec(tmpp, False) and WriteOutRec(tmpc, True)) then
+        begin
+          Tmpp.Free;
+          Result := false;
+          exit;
+        end;
+        AfterWriteOutRec(tmpc);
+      end;
+      TPSValueVar(tmpp).RecDelete(0);
+      tmpc := TPSValueReplace.Create;
+      with TPSValueReplace(tmpc) do
+      begin
+        PreWriteAllocated := True;
+        OldValue := x;
+        NewValue := tmpp;
+      end;
+      x := tmpc;
+    end else if (x.ClassType = TPSUnValueOp) then
+    begin
+      tmpp := AllocStackReg(GetTypeNo(BlockInfo, x));
+      if not DoUnCalc(TPSUnValueOp(x), tmpp) then
+      begin
+        Result := False;
+        exit;
+      end;
+      tmpc := TPSValueReplace.Create;
+      with TPSValueReplace(tmpc) do
+      begin
+        PreWriteAllocated := True;
+        OldValue := x;
+        NewValue := tmpp;
+      end;
+      x := tmpc;
+    end else if (x.ClassType = TPSBinValueOp) then
+    begin
+      tmpp := AllocStackReg(GetTypeNo(BlockInfo, x));
+      if not DoBinCalc(TPSBinValueOp(x), tmpp) then
+      begin
+        tmpp.Free;
+        Result := False;
+        exit;
+      end;
+      tmpc := TPSValueReplace.Create;
+      with TPSValueReplace(tmpc) do
+      begin
+        PreWriteAllocated := True;
+        OldValue := x;
+        NewValue := tmpp;
+      end;
+      x := tmpc;
+    end else if x is TPSValueProc then
+    begin
+      tmpp := AllocStackReg(TPSValueProc(x).ResultType);
+      if not WriteCalculation(x, tmpp) then
+      begin
+        tmpp.Free;
+        Result := False;
+        exit;
+      end;
+      tmpc := TPSValueReplace.Create;
+      with TPSValueReplace(tmpc) do
+      begin
+        PreWriteAllocated := True;
+        OldValue := x;
+        NewValue := tmpp;
+      end;
+      x := tmpc;
+    end else if (x is TPSValueVar) and (TPSValueVar(x).RecCount <> 0) then
+    begin
+      if  TPSValueVar(x).RecCount = 1 then
+      begin
+        rr := TPSValueVar(x).RecItem[0];
+        if rr.ClassType <> TPSSubValue then
+          exit; // there is no need pre-calculate anything
+        if (TPSSubValue(rr).SubNo is TPSValueVar) and (TPSValueVar(TPSSubValue(rr).SubNo).RecCount = 0) then
+          exit;
+      end; //if
+      tmpp := AllocPointer(GetTypeNo(BlockInfo, x));
+      BlockWriteByte(BlockInfo, cm_sp);
+      WriteOutRec(tmpp, True);
+      BlockWriteByte(BlockInfo, 0);
+      BlockWriteLong(BlockInfo, GetAddress(x));
+      for i := 0 to TPSValueVar(x).RecCount - 1 do
+      begin
+        rr := TPSValueVar(x).RecItem[I];
+        if rr.ClassType = TPSSubNumber then
+        begin
+          BlockWriteByte(BlockInfo, cm_sp);
+          WriteOutRec(tmpp, false);
+          BlockWriteByte(BlockInfo, 2);
+          BlockWriteLong(BlockInfo, GetAddress(tmpp));
+          BlockWriteLong(BlockInfo, TPSSubNumber(rr).SubNo);
+        end else begin // if rr.classtype = TPSSubValue then begin
+          tmpc := AllocStackReg(FindBaseType(btU32));
+          if not WriteCalculation(TPSSubValue(rr).SubNo, tmpc) then
+          begin
+            tmpc.Free;
+            tmpp.Free;
+            Result := False;
+            exit;
+          end; //if
+          BlockWriteByte(BlockInfo, cm_sp);
+          WriteOutRec(tmpp, false);
+          BlockWriteByte(BlockInfo, 3);
+          BlockWriteLong(BlockInfo, GetAddress(tmpp));
+          BlockWriteLong(BlockInfo, GetAddress(tmpc));
+          tmpc.Free;
+        end;
+      end; // for
+      tmpc := TPSValueReplace.Create;
+      with TPSValueReplace(tmpc) do
+      begin
+        OldValue := x;
+        NewValue := tmpp;
+        PreWriteAllocated := True;
+      end;
+      x := tmpc;
+    end;
+
+  end;
+
+  procedure AfterWriteOutRec(var x: TPSValue);
+  var
+    tmp: TPSValue;
+  begin
+    if (x.ClassType = TPSValueReplace) and (TPSValueReplace(x).PreWriteAllocated) then
+    begin
+      Dec(TPSValueReplace(x).FReplaceTimes);
+      if TPSValueReplace(x).ReplaceTimes = 0 then
+      begin
+        tmp := TPSValueReplace(x).OldValue;
+        x.Free;
+        x := tmp;
+      end;
+    end;
+  end; //afterwriteoutrec
+
+  function WriteOutRec(x: TPSValue; AllowData: Boolean): Boolean;
+  var
+    rr: TPSSubItem;
+  begin
+    Result := True;
+    if x.ClassType = TPSValueReplace then
+      Result := WriteOutRec(TPSValueReplace(x).NewValue, AllowData)
+    else if x is TPSValueVar then
+    begin
+      if TPSValueVar(x).RecCount = 0 then
+      begin
+        BlockWriteByte(BlockInfo, 0);
+        BlockWriteLong(BlockInfo, GetAddress(x));
+      end
+      else
+      begin
+        rr := TPSValueVar(x).RecItem[0];
+        if rr.ClassType = TPSSubNumber then
+        begin
+          BlockWriteByte(BlockInfo, 2);
+          BlockWriteLong(BlockInfo, GetAddress(x));
+          BlockWriteLong(BlockInfo, TPSSubNumber(rr).SubNo);
+        end
+        else
+        begin
+          BlockWriteByte(BlockInfo, 3);
+          BlockWriteLong(BlockInfo, GetAddress(x));
+          BlockWriteLong(BlockInfo, GetAddress(TPSSubValue(rr).SubNo));
+        end;
+      end;
+    end else if x.ClassType = TPSValueData then
+    begin
+      if AllowData then
+      begin
+        BlockWriteByte(BlockInfo, 1);
+        BlockWriteVariant(BlockInfo, TPSValueData(x).Data)
+      end
+      else
+      begin
+        Result := False;
+        exit;
+      end;
+    end else
+      Result := False;
+  end;
+
+  function ReadParameters(IsProperty: Boolean; Dest: TPSParameters): Boolean; forward;
+{$IFNDEF PS_NOIDISPATCH}
+  function ReadIDispatchParameters(const ProcName: tbtString; aVariantType: TPSVariantType; FSelf: TPSValue): TPSValue; forward;
+{$ENDIF}
+  function ReadProcParameters(ProcNo: Cardinal; FSelf: TPSValue): TPSValue; forward;
+  function ReadVarParameters(ProcNoVar: TPSValue): TPSValue; forward;
+
+  function calc(endOn: TPSPasToken): TPSValue; forward;
+  procedure CheckNotificationVariant(var Val: TPSValue);
+  var
+    aType: TPSType;
+    Call: TPSValueProcNo;
+    tmp: TPSValue;
+  begin
+    if not (Val is TPSValueGlobalVar) then exit;
+    aType := GetTypeNo(BlockInfo, Val);
+    if (AType = nil) or (AType.BaseType <> btNotificationVariant) then exit;
+    if FParser.CurrTokenId = CSTI_Assignment then
+    begin
+      Call := TPSValueProcNo.Create;
+      Call.ResultType := nil;
+      Call.SetParserPos(FParser);
+      Call.ProcNo := FindProc('!NOTIFICATIONVARIANTSET');;
+      Call.SetParserPos(FParser);
+      Call.Parameters := TPSParameters.Create;
+      Tmp := TPSValueData.Create;
+      TPSVAlueData(tmp).Data := NewVariant(at2ut(FindBaseType(btString)));
+      tbtString(TPSValueData(tmp).Data.tstring) := TPSVar(FVars[TPSValueGlobalVar(Val).GlobalVarNo]).OrgName;
+      with call.Parameters.Add do
+      begin
+        Val := tmp;
+        ExpectedType := TPSValueData(tmp).Data.FType;
+      end;
+      FParser.Next;
+      tmp := Calc(CSTI_SemiColon);
+      if tmp = nil then
+      begin
+        Val.Free;
+        Val := nil;
+        exit;
+      end;
+      with Call.Parameters.Add do
+      begin
+        Val := tmp;
+        ExpectedType := at2ut(FindBaseType(btVariant));
+      end;
+      Val.Free;
+      Val := Call;
+    end else begin
+      Call := TPSValueProcNo.Create;
+      Call.ResultType := AT2UT(FindBaseType(btVariant));
+      Call.SetParserPos(FParser);
+      Call.ProcNo := FindProc('!NOTIFICATIONVARIANTGET');
+      Call.SetParserPos(FParser);
+      Call.Parameters := TPSParameters.Create;
+      Tmp := TPSValueData.Create;
+      TPSVAlueData(tmp).Data := NewVariant(at2ut(FindBaseType(btString)));
+      tbtString(TPSValueData(tmp).Data.tstring) := TPSVar(FVars[TPSValueGlobalVar(Val).GlobalVarNo]).OrgName;
+      with call.Parameters.Add do
+      begin
+        Val := tmp;
+        ExpectedType := TPSValueData(tmp).Data.FType;
+      end;
+      Val.Free;
+      Val := Call;
+    end;
+  end;
+
+
+  function GetIdentifier(const FType: Byte): TPSValue;
+    {
+      FType:
+        0 = Anything
+        1 = Only variables
+        2 = Not constants
+    }
+
+    procedure CheckProcCall(var x: TPSValue);
+    var
+      aType: TPSType;
+    begin
+      if FParser.CurrTokenId in [CSTI_Dereference, CSTI_OpenRound] then
+      begin
+        aType := GetTypeNo(BlockInfo, x);
+        if (aType = nil) or (aType.BaseType <> btProcPtr) then
+        begin
+          MakeError('', ecTypeMismatch, '');
+          x.Free;
+          x := nil;
+          Exit;
+        end;
+        if FParser.CurrTokenId = CSTI_Dereference then
+          FParser.Next;
+        x := ReadVarParameters(x);
+      end;
+    end;
+
+    procedure CheckFurther(var x: TPSValue; ImplicitPeriod: Boolean);
+    var
+      t: Cardinal;
+      rr: TPSSubItem;
+      L: Longint;
+      u: TPSType;
+      Param: TPSParameter;
+      tmp, tmpn: TPSValue;
+      tmp3: TPSValueProcNo;
+      tmp2: Boolean;
+
+      function FindSubR(const n: tbtString; FType: TPSType): Cardinal;
+      var
+        h, I: Longint;
+        rvv: PIFPSRecordFieldTypeDef;
+      begin
+        h := MakeHash(n);
+        for I := 0 to TPSRecordType(FType).RecValCount - 1 do
+        begin
+          rvv := TPSRecordType(FType).RecVal(I);
+          if (rvv.FieldNameHash = h) and (rvv.FieldName = n) then
+          begin
+            Result := I;
+            exit;
+          end;
+        end;
+        Result := InvalidVal;
+      end;
+
+    begin
+(*      if not (x is TPSValueVar) then
+        Exit;*)
+      u := GetTypeNo(BlockInfo, x);
+      if u = nil then exit;
+      while True do
+      begin
+        if (u.BaseType = btClass) {$IFNDEF PS_NOINTERFACES}or (u.BaseType = btInterface){$ENDIF}
+        {$IFNDEF PS_NOIDISPATCH}or ((u.BaseType = btVariant) or (u.BaseType = btNotificationVariant)){$ENDIF} or (u.BaseType = btExtClass) then exit;
+        if FParser.CurrTokenId = CSTI_OpenBlock then
+        begin
+          if (u.BaseType = btString) {$IFNDEF PS_NOWIDESTRING} or (u.BaseType = btWideString) or (u.BaseType = btUnicodeString) {$ENDIF} then
+          begin
+             FParser.Next;
+            tmp := Calc(CSTI_CloseBlock);
+            if tmp = nil then
+            begin
+              x.Free;
+              x := nil;
+              exit;
+            end;
+            if not IsIntType(GetTypeNo(BlockInfo, tmp).BaseType) then
+            begin
+              MakeError('', ecTypeMismatch, '');
+              tmp.Free;
+              x.Free;
+              x := nil;
+              exit;
+            end;
+            FParser.Next;
+            if FParser.CurrTokenId = CSTI_Assignment then
+            begin
+              if not (x is TPSValueVar) then begin
+                MakeError('', ecVariableExpected, '');
+                tmp.Free;
+                x.Free;
+                x := nil;
+                exit;
+              end;
+              {$IFNDEF PS_NOWIDESTRING}
+              if (u.BaseType = btWideString) or (u.BaseType = btUnicodeString) then
+                l := FindProc('WSTRSET')
+              else
+              {$ENDIF}
+              l := FindProc('STRSET');
+              if l = -1 then
+              begin
+                MakeError('', ecUnknownIdentifier, 'StrSet');
+                tmp.Free;
+                x.Free;
+                x := nil;
+                exit;
+              end;
+              tmp3 := TPSValueProcNo.Create;
+              tmp3.ResultType := nil;
+              tmp3.SetParserPos(FParser);
+              tmp3.ProcNo := L;
+              tmp3.SetParserPos(FParser);
+              tmp3.Parameters := TPSParameters.Create;
+              param := tmp3.Parameters.Add;
+              with tmp3.Parameters.Add do
+              begin
+                Val := tmp;
+                ExpectedType := GetTypeNo(BlockInfo, tmp);
+{$IFDEF DEBUG}
+                if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+              end;
+              with tmp3.Parameters.Add do
+              begin
+                Val := x;
+                ExpectedType := GetTypeNo(BlockInfo, x);
+{$IFDEF DEBUG}
+                if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+                ParamMode := pmInOut;
+              end;
+              x := tmp3;
+              FParser.Next;
+              tmp := Calc(CSTI_SemiColon);
+              if tmp = nil then
+              begin
+                x.Free;
+                x := nil;
+                exit;
+              end;
+              if (GetTypeNo(BlockInfo, Tmp).BaseType <> btChar)
+              {$IFNDEF PS_NOWIDESTRING} and (GetTypeno(BlockInfo, Tmp).BaseType <> btWideChar) {$ENDIF} then
+              begin
+                x.Free;
+                x := nil;
+                Tmp.Free;
+                MakeError('', ecTypeMismatch, '');
+                exit;
+
+              end;
+              param.Val := tmp;
+              Param.ExpectedType := GetTypeNo(BlockInfo, tmp);
+{$IFDEF DEBUG}
+              if not Param.ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+            end else begin
+              {$IFNDEF PS_NOWIDESTRING}
+              if (u.BaseType = btWideString) or (u.BaseType = btUnicodeString) then
+                l := FindProc('WSTRGET')
+              else
+              {$ENDIF}
+              l := FindProc('STRGET');
+              if l = -1 then
+              begin
+                MakeError('', ecUnknownIdentifier, 'StrGet');
+                tmp.Free;
+                x.Free;
+                x := nil;
+                exit;
+              end;
+              tmp3 := TPSValueProcNo.Create;
+              {$IFNDEF PS_NOWIDESTRING}
+              if (u.BaseType = btWideString) or (u.BaseType = btUnicodeString) then
+                tmp3.ResultType := FindBaseType(btWideChar)
+              else
+              {$ENDIF}
+              tmp3.ResultType := FindBaseType(btChar);
+              tmp3.ProcNo := L;
+              tmp3.SetParserPos(FParser);
+              tmp3.Parameters := TPSParameters.Create;
+              with tmp3.Parameters.Add do
+              begin
+                Val := x;
+                ExpectedType := GetTypeNo(BlockInfo, x);
+{$IFDEF DEBUG}
+                if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+
+                if x is TPSValueVar then
+                  ParamMode := pmInOut
+                else
+                  parammode := pmIn;
+              end;
+              with tmp3.Parameters.Add do
+              begin
+                Val := tmp;
+                ExpectedType := GetTypeNo(BlockInfo, tmp);
+{$IFDEF DEBUG}
+                if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+              end;
+              x := tmp3;
+            end;
+            Break;
+          end else if ((u.BaseType = btArray) or (u.BaseType = btStaticArray)) and (x is TPSValueVar) then
+          begin
+            FParser.Next;
+            tmp := calc(CSTI_CloseBlock);
+            if tmp = nil then
+            begin
+              x.Free;
+              x := nil;
+              exit;
+            end;
+            if not IsIntType(GetTypeNo(BlockInfo, tmp).BaseType) then
+            begin
+              MakeError('', ecTypeMismatch, '');
+              tmp.Free;
+              x.Free;
+              x := nil;
+              exit;
+            end;
+            if (tmp.ClassType = TPSValueData) then
+            begin
+              rr := TPSSubNumber.Create;
+              TPSValueVar(x).RecAdd(rr);
+              if (u.BaseType = btStaticArray) then
+                TPSSubNumber(rr).SubNo := Cardinal(GetInt(TPSValueData(tmp).Data, tmp2) - TPSStaticArrayType(u).StartOffset)
+              else
+                TPSSubNumber(rr).SubNo := GetUInt(TPSValueData(tmp).Data, tmp2);
+              tmp.Free;
+              rr.aType := TPSArrayType(u).ArrayTypeNo;
+              u := rr.aType;
+            end
+            else
+            begin
+              if (u.BaseType = btStaticArray) then
+              begin
+                tmpn := TPSBinValueOp.Create;
+                TPSBinValueOp(tmpn).Operator := otSub;
+                TPSBinValueOp(tmpn).Val1 := tmp;
+                tmp := TPSValueData.Create;
+                TPSValueData(tmp).Data := NewVariant(FindBaseType(btS32));
+                TPSValueData(tmp).Data.ts32 := TPSStaticArrayType(u).StartOffset;
+                TPSBinValueOp(tmpn).Val2 := tmp;
+                TPSBinValueOp(tmpn).aType := FindBaseType(btS32);
+                tmp := tmpn;
+              end;
+              rr := TPSSubValue.Create;
+              TPSValueVar(x).recAdd(rr);
+              TPSSubValue(rr).SubNo := tmp;
+              rr.aType := TPSArrayType(u).ArrayTypeNo;
+              u := rr.aType;
+            end;
+            if FParser.CurrTokenId <> CSTI_CloseBlock then
+            begin
+              MakeError('', ecCloseBlockExpected, '');
+              x.Free;
+              x := nil;
+              exit;
+            end;
+            Fparser.Next;
+          end else begin
+            MakeError('', ecSemicolonExpected, '');
+            x.Free;
+            x := nil;
+            exit;
+          end;
+        end
+        else if (FParser.CurrTokenId = CSTI_Period) or (ImplicitPeriod) then
+        begin
+          if not ImplicitPeriod then
+            FParser.Next;
+          if u.BaseType = btRecord then
+          begin
+            t := FindSubR(FParser.GetToken, u);
+            if t = InvalidVal then
+            begin
+              if ImplicitPeriod then exit;
+              MakeError('', ecUnknownIdentifier, FParser.GetToken);
+              x.Free;
+              x := nil;
+              exit;
+            end;
+            if (x is TPSValueProcNo) then
+            begin
+              ImplicitPeriod := False;
+              FParser.Next;
+ 
+              tmp := AllocStackReg(u);
+              WriteCalculation(x,tmp);
+              TPSVar(BlockInfo.Proc.FProcVars[TPSValueAllocatedStackVar(tmp).LocalVarNo]).Use;
+ 
+              rr := TPSSubNumber.Create;
+              TPSValueVar(tmp).RecAdd(rr);
+              TPSSubNumber(rr).SubNo := t;
+              rr.aType := TPSRecordType(u).RecVal(t).FType;
+              u := rr.aType;
+ 
+              tmpn := TPSValueReplace.Create;
+              with TPSValueReplace(tmpn) do
+              begin
+                FreeOldValue := true;
+                FreeNewValue := true;
+                OldValue := tmp;
+                NewValue := AllocStackReg(u);
+                PreWriteAllocated := true;
+              end;
+ 
+              if not WriteCalculation(tmp,TPSValueReplace(tmpn).NewValue) then
+              begin
+                {MakeError('',ecInternalError,'');}
+                x.Free;
+                x := nil;
+                exit;
+              end;
+              x.Free;
+              x := tmpn;
+            end else
+            begin
+              if not (x is TPSValueVar) then begin
+                MakeError('', ecVariableExpected, FParser.GetToken);
+                x.Free;
+                x := nil;
+                exit;
+              end;
+              ImplicitPeriod := False;
+              FParser.Next;
+              rr := TPSSubNumber.Create;
+              TPSValueVar(x).RecAdd(rr);
+              TPSSubNumber(rr).SubNo := t;
+              rr.aType := TPSRecordType(u).RecVal(t).FType;
+              u := rr.aType;
+            end;
+          end
+          else
+          begin
+            x.Free;
+            MakeError('', ecSemicolonExpected, '');
+            x := nil;
+            exit;
+          end;
+        end
+        else
+          break;
+      end;
+    end;
+
+
+
+    procedure CheckClassArrayProperty(var P: TPSValue; const VarType: TPSVariableType; VarNo: Cardinal);
+    var
+      Tempp: TPSValue;
+      aType: TPSClassType;
+      procno: Cardinal;
+      Idx: IPointer;
+      Decl: TPSParametersDecl;
+    begin
+      if p = nil then exit;
+      if (GetTypeNo(BlockInfo, p) = nil) or (GetTypeNo(BlockInfo, p).BaseType <> btClass) then exit;
+      aType := TPSClassType(GetTypeNo(BlockInfo, p));
+      if FParser.CurrTokenID = CSTI_OpenBlock then
+      begin
+        if not TPSClassType(aType).Cl.Property_Find('', Idx) then
+        begin
+          MakeError('', ecPeriodExpected, '');
+          p.Free;
+          p := nil;
+          exit;
+        end;
+        if VarNo <> InvalidVal then
+        begin
+          if @FOnUseVariable <> nil then
+           FOnUseVariable(Self, VarType, VarNo, BlockInfo.ProcNo, FParser.CurrTokenPos, '[Default]');
+        end;
+        Decl := TPSParametersDecl.Create;
+        TPSClassType(aType).Cl.Property_GetHeader(Idx,  Decl);
+        tempp := p;
+        P := TPSValueProcNo.Create;
+        with TPSValueProcNo(P) do
+        begin
+          Parameters := TPSParameters.Create;
+          Parameters.Add;
+        end;
+        if not (ReadParameters(True, TPSValueProc(P).Parameters) and
+          ValidateParameters(BlockInfo, TPSValueProc(P).Parameters, Decl)) then
+        begin
+          tempp.Free;
+          Decl.Free;
+          p.Free;
+          p := nil;
+          exit;
+        end;
+        with TPSValueProcNo(p).Parameters[0] do
+        begin
+          Val := tempp;
+          ExpectedType := GetTypeNo(BlockInfo, tempp);
+        end;
+        if FParser.CurrTokenId = CSTI_Assignment then
+        begin
+          FParser.Next;
+          TempP := Calc(CSTI_SemiColon);
+          if TempP = nil then
+          begin
+            Decl.Free;
+            P.Free;
+            p := nil;
+            exit;
+          end;
+          with TPSValueProc(p).Parameters.Add do
+          begin
+            Val := Tempp;
+            ExpectedType := at2ut(Decl.Result);
+          end;
+          if not TPSClassType(aType).Cl.Property_Set(Idx, procno) then
+          begin
+            Decl.Free;
+            MakeError('', ecReadOnlyProperty, '');
+            p.Free;
+            p := nil;
+            exit;
+          end;
+          TPSValueProcNo(p).ProcNo := procno;
+          TPSValueProcNo(p).ResultType := nil;
+        end
+        else
+        begin
+          if not TPSClassType(aType).Cl.Property_Get(Idx, procno) then
+          begin
+            Decl.Free;
+            MakeError('', ecWriteOnlyProperty, '');
+            p.Free;
+            p := nil;
+            exit;
+          end;
+          TPSValueProcNo(p).ProcNo := procno;
+          TPSValueProcNo(p).ResultType := TPSExternalProcedure(FProcs[procno]).RegProc.Decl.Result;
+        end; // if FParser.CurrTokenId = CSTI_Assign
+        Decl.Free;
+      end;
+    end;
+
+    procedure CheckExtClass(var P: TPSValue; const VarType: TPSVariableType; VarNo: Cardinal; ImplicitPeriod: Boolean);
+    var
+      Temp, Idx: Cardinal;
+      FType: TPSType;
+      s: tbtString;
+
+    begin
+      FType := GetTypeNo(BlockInfo, p);
+      if FType = nil then Exit;
+      if FType.BaseType <> btExtClass then Exit;
+      while (FParser.CurrTokenID = CSTI_Period) or (ImplicitPeriod) do
+      begin
+        if not ImplicitPeriod then
+          FParser.Next;
+        if FParser.CurrTokenID <> CSTI_Identifier then
+        begin
+          if ImplicitPeriod then exit;
+          MakeError('', ecIdentifierExpected, '');
+          p.Free;
+          P := nil;
+          Exit;
+        end;
+        s := FParser.GetToken;
+        if TPSUndefinedClassType(FType).ExtClass.Func_Find(s, Idx) then
+        begin
+          FParser.Next;
+          TPSUndefinedClassType(FType).ExtClass.Func_Call(Idx, Temp);
+          P := ReadProcParameters(Temp, P);
+          if p = nil then
+          begin
+            Exit;
+          end;
+        end else
+        begin
+          if ImplicitPeriod then exit;
+          MakeError('', ecUnknownIdentifier, s);
+          p.Free;
+          P := nil;
+          Exit;
+        end;
+        ImplicitPeriod := False;
+        FType := GetTypeNo(BlockInfo, p);
+        if (FType = nil) or (FType.BaseType <> btExtClass) then Exit;
+      end; {while}
+    end;
+
+    procedure CheckClass(var P: TPSValue; const VarType: TPSVariableType; VarNo: Cardinal; ImplicitPeriod: Boolean);
+    var
+      Procno: Cardinal;
+      Idx: IPointer;
+      FType: TPSType;
+      TempP: TPSValue;
+      Decl: TPSParametersDecl;
+      s: tbtString;
+
+      pinfo, pinfonew: tbtString;
+      ppos: Cardinal;
+
+    begin
+      FType := GetTypeNo(BlockInfo, p);
+      if FType = nil then exit;
+      pinfo := '';
+      if (FType.BaseType <> btClass) then Exit;
+      while (FParser.CurrTokenID = CSTI_Period) or (ImplicitPeriod) do
+      begin
+        if not ImplicitPeriod then
+          FParser.Next;
+        if FParser.CurrTokenID <> CSTI_Identifier then
+        begin
+          if ImplicitPeriod then exit;
+          MakeError('', ecIdentifierExpected, '');
+          p.Free;
+          P := nil;
+          Exit;
+        end;
+        s := FParser.GetToken;
+        if TPSClassType(FType).Cl.Func_Find(s, Idx) then
+        begin
+          FParser.Next;
+          VarNo := InvalidVal;
+          TPSClassType(FType).cl.Func_Call(Idx, Procno);
+          P := ReadProcParameters(Procno, P);
+          if p = nil then
+          begin
+            Exit;
+          end;
+        end else if TPSClassType(FType).cl.Property_Find(s, Idx) then
+        begin
+          ppos := FParser.CurrTokenPos;
+          pinfonew := FParser.OriginalToken;
+          FParser.Next;
+          if VarNo <> InvalidVal then
+          begin
+            if pinfo = '' then
+              pinfo := pinfonew
+            else
+              pinfo := pinfo + '.' + pinfonew;
+            if @FOnUseVariable <> nil then
+              FOnUseVariable(Self, VarType, VarNo, BlockInfo.ProcNo, ppos, pinfo);
+          end;
+          Decl := TPSParametersDecl.Create;
+          TPSClassType(FType).cl.Property_GetHeader(Idx, Decl);
+          TempP := P;
+          p := TPSValueProcNo.Create;
+          with TPSValueProcNo(p) do
+          begin
+            Parameters := TPSParameters.Create;
+            Parameters.Add;
+            Pos := FParser.CurrTokenPos;
+            row := FParser.Row;
+            Col := FParser.Col;
+          end;
+          if Decl.ParamCount <> 0 then
+          begin
+            if not (ReadParameters(True, TPSValueProc(P).Parameters) and
+              ValidateParameters(BlockInfo, TPSValueProc(P).Parameters, Decl)) then
+            begin
+              Tempp.Free;
+              Decl.Free;
+              p.Free;
+              P := nil;
+              exit;
+            end;
+          end; // if
+          with TPSValueProcNo(p).Parameters[0] do
+          begin
+            Val := TempP;
+            ExpectedType := at2ut(GetTypeNo(BlockInfo, TempP));
+          end;
+          if FParser.CurrTokenId = CSTI_Assignment then
+          begin
+            FParser.Next;
+            TempP := Calc(CSTI_SemiColon);
+            if TempP = nil then
+            begin
+              Decl.Free;
+              P.Free;
+              p := nil;
+              exit;
+            end;
+            with TPSValueProc(p).Parameters.Add do
+            begin
+              Val := Tempp;
+              ExpectedType := at2ut(Decl.Result);
+{$IFDEF DEBUG}
+              if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+            end;
+
+            if not TPSClassType(FType).cl.Property_Set(Idx, Procno) then
+            begin
+              MakeError('', ecReadOnlyProperty, '');
+              Decl.Free;
+              p.Free;
+              p := nil;
+              exit;
+            end;
+            TPSValueProcNo(p).ProcNo := Procno;
+            TPSValueProcNo(p).ResultType := nil;
+            Decl.Free;
+            Exit;
+          end else begin
+            if not TPSClassType(FType).cl.Property_Get(Idx, Procno) then
+            begin
+              MakeError('', ecWriteOnlyProperty, '');
+              Decl.Free;
+              p.Free;
+              p := nil;
+              exit;
+            end;
+            TPSValueProcNo(p).ProcNo := ProcNo;
+            TPSValueProcNo(p).ResultType := TPSExternalProcedure(FProcs[ProcNo]).RegProc.Decl.Result;
+          end; // if FParser.CurrTokenId = CSTI_Assign
+          Decl.Free;
+        end else
+        begin
+          if ImplicitPeriod then exit;
+          MakeError('', ecUnknownIdentifier, s);
+          p.Free;
+          P := nil;
+          Exit;
+        end;
+        ImplicitPeriod := False;
+        FType := GetTypeNo(BlockInfo, p);
+        if (FType = nil) or (FType.BaseType <> btClass) then Exit;
+      end; {while}
+    end;
+{$IFNDEF PS_NOIDISPATCH}
+    procedure CheckIntf(var P: TPSValue; const VarType: TPSVariableType; VarNo: Cardinal; ImplicitPeriod: Boolean);
+    var
+      Procno, Idx: Cardinal;
+      FType: TPSType;
+      s: tbtString;
+
+      CheckArrayProperty,HasArrayProperty:boolean;
+    begin
+      FType := GetTypeNo(BlockInfo, p);
+      if FType = nil then exit;
+      if (FType.BaseType <> btInterface) and (Ftype.BaseType <> BtVariant) and (FType.BaseType = btNotificationVariant) then Exit;
+
+      CheckArrayProperty:=(FParser.CurrTokenID=CSTI_OpenBlock)and
+        (Ftype.BaseType = BtVariant);
+      while (FParser.CurrTokenID = CSTI_Period)
+      or (ImplicitPeriod)or (CheckArrayProperty) do begin
+
+        HasArrayProperty:=CheckArrayProperty;
+        if CheckArrayProperty then begin
+         CheckArrayProperty:=false;
+        end else begin
+         if not ImplicitPeriod then
+          FParser.Next;
+        end;
+        if FParser.CurrTokenID <> CSTI_Identifier then
+        begin
+          if ImplicitPeriod then exit;
+          if not HasArrayProperty then begin
+           MakeError('', ecIdentifierExpected, '');
+           p.Free;
+           P := nil;
+           Exit;
+          end;
+        end;
+        if (FType.BaseType = btVariant) or (FType.BaseType = btNotificationVariant) then
+        begin
+          if HasArrayProperty then begin
+           s:='';
+          end else begin
+           s := FParser.OriginalToken;
+           FParser.Next;
+          end;
+          ImplicitPeriod := False;
+          FType := GetTypeNo(BlockInfo, p);
+          p := ReadIDispatchParameters(s, TPSVariantType(FType), p);
+          if (FType = nil) or (FType.BaseType <> btInterface) then Exit;
+        end else
+        begin
+          s := FParser.GetToken;
+          if (FType is TPSInterfaceType) and (TPSInterfaceType(FType).Intf.Func_Find(s, Idx)) then
+          begin
+            FParser.Next;
+            TPSInterfaceType(FType).Intf.Func_Call(Idx, Procno);
+            P := ReadProcParameters(Procno, P);
+            if p = nil then
+            begin
+              Exit;
+            end;
+          end else
+          begin
+            if ImplicitPeriod then exit;
+            MakeError('', ecUnknownIdentifier, s);
+            p.Free;
+            P := nil;
+            Exit;
+          end;
+          ImplicitPeriod := False;
+          FType := GetTypeNo(BlockInfo, p);
+          if (FType = nil) or ((FType.BaseType <> btInterface) and (Ftype.BaseType <> btVariant) and (Ftype.BaseType <> btNotificationVariant)) then Exit;
+        end;
+      end; {while}
+    end;
+    {$ENDIF}
+    function ExtCheckClassType(FType: TPSType; const ParserPos: Cardinal): TPSValue;
+    var
+      FType2: TPSType;
+      ProcNo, Idx: Cardinal;
+      Temp, ResV: TPSValue;
+    begin
+      if FParser.CurrTokenID = CSTI_OpenRound then
+      begin
+        FParser.Next;
+        Temp := Calc(CSTI_CloseRound);
+        if Temp = nil then
+        begin
+          Result := nil;
+          exit;
+        end;
+        if FParser.CurrTokenID <> CSTI_CloseRound then
+        begin
+          temp.Free;
+          MakeError('', ecCloseRoundExpected, '');
+          Result := nil;
+          exit;
+        end;
+        FType2 := GetTypeNo(BlockInfo, Temp);
+        if (FType.basetype = BtClass) and (ftype2.BaseType = btClass) and (ftype <> ftype2) then
+        begin
+          if not TPSUndefinedClassType(FType2).ExtClass.CastToType(AT2UT(FType), ProcNo) then
+          begin
+            temp.Free;
+            MakeError('', ecTypeMismatch, '');
+            Result := nil;
+            exit;
+          end;
+          Result := TPSValueProcNo.Create;
+          TPSValueProcNo(Result).Parameters := TPSParameters.Create;
+          TPSValueProcNo(Result).ResultType := at2ut(FType);
+          TPSValueProcNo(Result).ProcNo := ProcNo;
+          with TPSValueProcNo(Result).Parameters.Add do
+          begin
+            Val := Temp;
+            ExpectedType := GetTypeNo(BlockInfo, temp);
+          end;
+          with TPSValueProcNo(Result).Parameters.Add do
+          begin
+            ExpectedType := at2ut(FindBaseType(btu32));
+            Val := TPSValueData.Create;
+            with TPSValueData(val) do
+            begin
+              SetParserPos(FParser);
+              Data := NewVariant(ExpectedType);
+              Data.tu32 := at2ut(FType).FinalTypeNo;
+            end;
+          end;
+          FParser.Next;
+          Exit;
+        end;
+        if not IsCompatibleType(FType, FType2, True) then
+        begin
+          temp.Free;
+          MakeError('', ecTypeMismatch, '');
+          Result := nil;
+          exit;
+        end;
+        FParser.Next;
+        Result := TPSUnValueOp.Create;
+        with TPSUnValueOp(Result) do
+        begin
+          Operator := otCast;
+          Val1 := Temp;
+          SetParserPos(FParser);
+          aType := AT2UT(FType);
+        end;
+        exit;
+      end;
+      if FParser.CurrTokenId <> CSTI_Period then
+      begin
+        Result := nil;
+        MakeError('', ecPeriodExpected, '');
+        Exit;
+      end;
+      if FType.BaseType <> btExtClass then
+      begin
+        Result := nil;
+        MakeError('', ecClassTypeExpected, '');
+        Exit;
+      end;
+      FParser.Next;
+      if not TPSUndefinedClassType(FType).ExtClass.ClassFunc_Find(FParser.GetToken, Idx) then
+      begin
+        Result := nil;
+        MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+        Exit;
+      end;
+      FParser.Next;
+      TPSUndefinedClassType(FType).ExtClass.ClassFunc_Call(Idx, ProcNo);
+      Temp := TPSValueData.Create;
+      with TPSValueData(Temp) do
+      begin
+        Data := NewVariant(at2ut(FindBaseType(btu32)));
+        Data.tu32 := at2ut(FType).FinalTypeNo;
+      end;
+      ResV := ReadProcParameters(ProcNo, Temp);
+      if ResV <> nil then
+      begin
+        TPSValueProc(Resv).ResultType := at2ut(FType);
+        Result := Resv;
+      end else begin
+        Result := nil;
+      end;
+    end;
+
+    function CheckClassType(TypeNo: TPSType; const ParserPos: Cardinal): TPSValue;
+    var
+      FType2: TPSType;
+      ProcNo: Cardinal;
+      Idx: IPointer;
+      Temp, ResV: TPSValue;
+      dta: PIfRVariant;
+    begin
+      if typeno.BaseType = btExtClass then
+      begin
+        Result := ExtCheckClassType(TypeNo, PArserPos);
+        exit;
+      end;
+      if FParser.CurrTokenID = CSTI_OpenRound then
+      begin
+        FParser.Next;
+        Temp := Calc(CSTI_CloseRound);
+        if Temp = nil then
+        begin
+          Result := nil;
+          exit;
+        end;
+        if FParser.CurrTokenID <> CSTI_CloseRound then
+        begin
+          temp.Free;
+          MakeError('', ecCloseRoundExpected, '');
+          Result := nil;
+          exit;
+        end;
+        FType2 := GetTypeNo(BlockInfo, Temp);
+        if ((typeno.BaseType = btClass){$IFNDEF PS_NOINTERFACES} or (TypeNo.basetype = btInterface){$ENDIF}) and
+          ((ftype2.BaseType = btClass){$IFNDEF PS_NOINTERFACES} or (ftype2.BaseType = btInterface){$ENDIF}) and (TypeNo <> ftype2) then
+        begin
+{$IFNDEF PS_NOINTERFACES}
+          if FType2.basetype = btClass then
+          begin
+{$ENDIF}
+          if not TPSClassType(FType2).Cl.CastToType(AT2UT(TypeNo), ProcNo) then
+          begin
+            temp.Free;
+            MakeError('', ecTypeMismatch, '');
+            Result := nil;
+            exit;
+          end;
+{$IFNDEF PS_NOINTERFACES}
+          end else begin
+            if not TPSInterfaceType(FType2).Intf.CastToType(AT2UT(TypeNo), ProcNo) then
+            begin
+              temp.Free;
+              MakeError('', ecTypeMismatch, '');
+              Result := nil;
+              exit;
+            end;
+          end;
+{$ENDIF}
+          Result := TPSValueProcNo.Create;
+          TPSValueProcNo(Result).Parameters := TPSParameters.Create;
+          TPSValueProcNo(Result).ResultType := at2ut(TypeNo);
+          TPSValueProcNo(Result).ProcNo := ProcNo;
+          with TPSValueProcNo(Result).Parameters.Add do
+          begin
+            Val := Temp;
+            ExpectedType := GetTypeNo(BlockInfo, temp);
+{$IFDEF DEBUG}
+            if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+          end;
+          with TPSValueProcNo(Result).Parameters.Add do
+          begin
+            ExpectedType := at2ut(FindBaseType(btu32));
+{$IFDEF DEBUG}
+            if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+            Val := TPSValueData.Create;
+            with TPSValueData(val) do
+            begin
+              SetParserPos(FParser);
+              Data := NewVariant(ExpectedType);
+              Data.tu32 := at2ut(TypeNo).FinalTypeNo;
+            end;
+          end;
+          FParser.Next;
+          Exit;
+        end;
+        if not IsCompatibleType(TypeNo, FType2, True) then
+        begin
+          temp.Free;
+          MakeError('', ecTypeMismatch, '');
+          Result := nil;
+          exit;
+        end;
+        FParser.Next;
+        Result := TPSUnValueOp.Create;
+        with TPSUnValueOp(Result) do
+        begin
+          Operator := otCast;
+          Val1 := Temp;
+          SetParserPos(FParser);
+          aType := AT2UT(TypeNo);
+        end;
+
+        exit;
+      end else
+      if FParser.CurrTokenId <> CSTI_Period then
+      begin
+        Result := TPSValueData.Create;
+        Result.SetParserPos(FParser);
+        New(dta);
+        TPSValueData(Result).Data := dta;
+        InitializeVariant(dta, at2ut(FindBaseType(btType)));
+        dta.ttype := at2ut(TypeNo);
+        Exit;
+      end;
+      if TypeNo.BaseType <> btClass then
+      begin
+        Result := nil;
+        MakeError('', ecClassTypeExpected, '');
+        Exit;
+      end;
+      FParser.Next;
+      if not TPSClassType(TypeNo).Cl.ClassFunc_Find(FParser.GetToken, Idx) then
+      begin
+        Result := nil;
+        MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+        Exit;
+      end;
+      FParser.Next;
+      TPSClassType(TypeNo).Cl.ClassFunc_Call(Idx, ProcNo);
+      Temp := TPSValueData.Create;
+      with TPSValueData(Temp) do
+      begin
+        Data := NewVariant(at2ut(FindBaseType(btu32)));
+        Data.tu32 := at2ut(TypeNo).FinalTypeNo;
+      end;
+      ResV := ReadProcParameters(ProcNo, Temp);
+      if ResV <> nil then
+      begin
+        TPSValueProc(Resv).ResultType := at2ut(TypeNo);
+        Result := Resv;
+      end else begin
+        Result := nil;
+      end;
+    end;
+
+  var
+    vt: TPSVariableType;
+    vno: Cardinal;
+    TWith, Temp: TPSValue;
+    l, h: Longint;
+    s, u: tbtString;
+    t: TPSConstant;
+    Temp1: TPSType;
+    temp2: CArdinal;
+    bi: TPSBlockInfo;
+    lOldRecCount: Integer;
+
+  begin
+    s := FParser.GetToken;
+
+    if FType <> 1 then
+    begin
+      bi := BlockInfo;
+      while bi <> nil do
+      begin
+        for l := bi.WithList.Count -1 downto 0 do
+        begin
+          TWith := TPSValueAllocatedStackVar.Create;
+          TPSValueAllocatedStackVar(TWith).LocalVarNo := TPSValueAllocatedStackVar(TPSValueReplace(bi.WithList[l]).NewValue).LocalVarNo;
+          Temp := TWith;
+          VNo := TPSValueAllocatedStackVar(Temp).LocalVarNo;
+          lOldRecCount := TPSValueVar(TWith).GetRecCount;
+          vt := ivtVariable;
+          if Temp = TWith then CheckFurther(TWith, True);
+          if Temp = TWith then CheckClass(TWith, vt, vno, True);
+          if Temp = TWith then  CheckExtClass(TWith, vt, vno, True);
+          if (Temp <> TWith) or (Cardinal(lOldRecCount) <> TPSValueVar(TWith).GetRecCount) then
+          begin
+            repeat
+              Temp := TWith;
+              if TWith <> nil then CheckFurther(TWith, False);
+              if TWith <> nil then CheckClass(TWith, vt, vno, False);
+              if TWith <> nil then  CheckExtClass(TWith, vt, vno, False);
+{$IFNDEF PS_NOIDISPATCH}if TWith <> nil then CheckIntf(TWith, vt, vno, False);{$ENDIF}
+              if TWith <> nil then CheckProcCall(TWith);
+              if TWith <> nil then CheckClassArrayProperty(TWith, vt, vno);
+              vno := InvalidVal;
+            until (TWith = nil) or (Temp = TWith);
+            Result := TWith;
+            Exit;
+          end;
+          TWith.Free;
+        end;
+        bi := bi.FOwner;
+      end;
+    end;
+
+    if s = 'RESULT' then
+    begin
+      if BlockInfo.proc.Decl.Result = nil then
+      begin
+        Result := nil;
+        MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+      end
+      else
+      begin
+        BlockInfo.Proc.ResultUse;
+        Result := TPSValueParamVar.Create;
+        with TPSValueParamVar(Result) do
+        begin
+          SetParserPos(FParser);
+          ParamNo := 0;
+        end;
+        vno := 0;
+        vt := ivtParam;
+        if @FOnUseVariable <> nil then
+          FOnUseVariable(Self, vt, vno, BlockInfo.ProcNo, FParser.CurrTokenPos, '');
+        FParser.Next;
+        repeat
+          Temp := Result;
+          if Result <> nil then CheckFurther(Result, False);
+          if Result <> nil then CheckClass(Result, vt, vno, False);
+          if Result <> nil then  CheckExtClass(Result, vt, vno, False);
+{$IFNDEF PS_NOIDISPATCH}if Result <> nil then CheckIntf(Result, vt, vno, False);{$ENDIF}
+          if Result <> nil then CheckProcCall(Result);
+          if Result <> nil then CheckClassArrayProperty(Result, vt, vno);
+          vno := InvalidVal;
+        until (Result = nil) or (Temp = Result);
+      end;
+      exit;
+    end;
+    if BlockInfo.Proc.Decl.Result = nil then
+      l := 0
+    else
+      l := 1;
+    for h := 0 to BlockInfo.proc.Decl.ParamCount -1 do
+    begin
+      if BlockInfo.proc.Decl.Params[h].Name = s then
+      begin
+        Result := TPSValueParamVar.Create;
+        with TPSValueParamVar(Result) do
+        begin
+          SetParserPos(FParser);
+          ParamNo := l;
+        end;
+        vt := ivtParam;
+        vno := L;
+        if @FOnUseVariable <> nil then
+          FOnUseVariable(Self, vt, vno, BlockInfo.ProcNo, FParser.CurrTokenPos, '');
+        FParser.Next;
+        repeat
+          Temp := Result;
+          if Result <> nil then CheckFurther(Result, False);
+          if Result <> nil then CheckClass(Result, vt, vno, False);
+          if Result <> nil then  CheckExtClass(Result, vt, vno, False);
+{$IFNDEF PS_NOIDISPATCH}if Result <> nil then CheckIntf(Result, vt, vno, False);{$ENDIF}
+          if Result <> nil then CheckProcCall(Result);
+          if Result <> nil then CheckClassArrayProperty(Result, vt, vno);
+          vno := InvalidVal;
+        until (Result = nil) or (Temp = Result);
+        exit;
+      end;
+      Inc(l);
+      GRFW(u);
+    end;
+
+    h := MakeHash(s);
+
+    for l := 0 to BlockInfo.Proc.ProcVars.Count - 1 do
+    begin
+      if (PIFPSProcVar(BlockInfo.Proc.ProcVars[l]).NameHash = h) and
+        (PIFPSProcVar(BlockInfo.Proc.ProcVars[l]).Name = s) then
+      begin
+        PIFPSProcVar(BlockInfo.Proc.ProcVars[l]).Use;
+        vno := l;
+        vt := ivtVariable;
+        if @FOnUseVariable <> nil then
+          FOnUseVariable(Self, vt, vno, BlockInfo.ProcNo, FParser.CurrTokenPos, '');
+        Result := TPSValueLocalVar.Create;
+        with TPSValueLocalVar(Result) do
+        begin
+          LocalVarNo := l;
+          SetParserPos(FParser);
+        end;
+        FParser.Next;
+        repeat
+          Temp := Result;
+          if Result <> nil then CheckFurther(Result, False);
+          if Result <> nil then CheckClass(Result, vt, vno, False);
+          if Result <> nil then  CheckExtClass(Result, vt, vno, False);
+{$IFNDEF PS_NOIDISPATCH}if Result <> nil then CheckIntf(Result, vt, vno, False);{$ENDIF}
+          if Result <> nil then CheckProcCall(Result);
+          if Result <> nil then CheckClassArrayProperty(Result, vt, vno);
+          vno := InvalidVal;
+        until (Result = nil) or (Temp = Result);
+
+        exit;
+      end;
+    end;
+
+    for l := 0 to FVars.Count - 1 do
+    begin
+      if (TPSVar(FVars[l]).NameHash = h) and
+        (TPSVar(FVars[l]).Name = s) then
+      begin
+        TPSVar(FVars[l]).Use;
+        Result := TPSValueGlobalVar.Create;
+        with TPSValueGlobalVar(Result) do
+        begin
+          SetParserPos(FParser);
+          GlobalVarNo := l;
+
+        end;
+        vt := ivtGlobal;
+        vno := l;
+        if @FOnUseVariable <> nil then
+          FOnUseVariable(Self, vt, vno, BlockInfo.ProcNo, FParser.CurrTokenPos, '');
+        FParser.Next;
+        repeat
+          Temp := Result;
+          if Result <> nil then CheckNotificationVariant(Result);
+          if Result <> nil then CheckFurther(Result, False);
+          if Result <> nil then CheckClass(Result, vt, vno, False);
+          if Result <> nil then  CheckExtClass(Result, vt, vno, False);
+{$IFNDEF PS_NOIDISPATCH}if Result <> nil then CheckIntf(Result, vt, vno, False);{$ENDIF}
+          if Result <> nil then CheckProcCall(Result);
+          if Result <> nil then CheckClassArrayProperty(Result, vt, vno);
+          vno := InvalidVal;
+        until (Result = nil) or (Temp = Result);
+        exit;
+      end;
+    end;
+    Temp1 := FindType(FParser.GetToken);
+    if Temp1 <> nil then
+    begin
+      l := FParser.CurrTokenPos;
+      if FType = 1 then
+      begin
+        Result := nil;
+        MakeError('', ecVariableExpected, FParser.OriginalToken);
+        exit;
+      end;
+      vt := ivtGlobal;
+      vno := InvalidVal;
+      FParser.Next;
+      Result := CheckClassType(Temp1, l);
+        repeat
+          Temp := Result;
+          if Result <> nil then CheckFurther(Result, False);
+          if Result <> nil then CheckClass(Result, vt, vno, False);
+          if Result <> nil then  CheckExtClass(Result, vt, vno, False);
+{$IFNDEF PS_NOIDISPATCH}if Result <> nil then CheckIntf(Result, vt, vno, False);{$ENDIF}
+          if Result <> nil then CheckProcCall(Result);
+          if Result <> nil then CheckClassArrayProperty(Result, vt, vno);
+          vno := InvalidVal;
+        until (Result = nil) or (Temp = Result);
+
+      exit;
+    end;
+    Temp2 := FindProc(FParser.GetToken);
+    if Temp2 <> InvalidVal then
+    begin
+      if FType = 1 then
+      begin
+        Result := nil;
+        MakeError('', ecVariableExpected, FParser.OriginalToken);
+        exit;
+      end;
+      FParser.Next;
+      Result := ReadProcParameters(Temp2, nil);
+      if Result = nil then
+        exit;
+      Result.SetParserPos(FParser);
+      vt := ivtGlobal;
+      vno := InvalidVal;
+      repeat
+        Temp := Result;
+        if Result <> nil then CheckFurther(Result, False);
+        if Result <> nil then CheckClass(Result, vt, vno, False);
+        if Result <> nil then  CheckExtClass(Result, vt, vno, False);
+{$IFNDEF PS_NOIDISPATCH}if Result <> nil then CheckIntf(Result, vt, vno, False);{$ENDIF}
+        if Result <> nil then CheckProcCall(Result);
+        if Result <> nil then CheckClassArrayProperty(Result, vt, vno);
+        vno := InvalidVal;
+      until (Result = nil) or (Temp = Result);
+      exit;
+    end;
+    for l := 0 to FConstants.Count -1 do
+    begin
+      t := TPSConstant(FConstants[l]);
+      if (t.NameHash = h) and (t.Name = s) then
+      begin
+        if FType <> 0 then
+        begin
+          Result := nil;
+          MakeError('', ecVariableExpected, FParser.OriginalToken);
+          exit;
+        end;
+        fparser.next;
+        Result := TPSValueData.Create;
+        with TPSValueData(Result) do
+        begin
+          SetParserPos(FParser);
+          Data := NewVariant(at2ut(t.Value.FType));
+          CopyVariantContents(t.Value, Data);
+        end;
+        vt := ivtGlobal;
+        vno := InvalidVal;
+        repeat
+          Temp := Result;
+          if Result <> nil then CheckFurther(Result, False);
+          if Result <> nil then CheckClass(Result, vt, vno, False);
+          if Result <> nil then  CheckExtClass(Result, vt, vno, False);
+{$IFNDEF PS_NOIDISPATCH}if Result <> nil then CheckIntf(Result, vt, vno, False);{$ENDIF}
+          if Result <> nil then CheckProcCall(Result);
+          if Result <> nil then CheckClassArrayProperty(Result, vt, vno);
+          vno := InvalidVal;
+        until (Result = nil) or (Temp = Result);
+        exit;
+      end;
+    end;
+    Result := nil;
+    MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+  end;
+
+  function calc(endOn: TPSPasToken): TPSValue;
+    function TryEvalConst(var P: TPSValue): Boolean; forward;
+
+
+    function ReadExpression: TPSValue; forward;
+    function ReadTerm: TPSValue; forward;
+    function ReadFactor: TPSValue;
+    var
+      NewVar: TPSValue;
+      NewVarU: TPSUnValueOp;
+      Proc: TPSProcedure;
+      function ReadArray: Boolean;
+      var
+        tmp: TPSValue;
+      begin
+        FParser.Next;
+        NewVar := TPSValueArray.Create;
+        NewVar.SetParserPos(FParser);
+        if FParser.CurrTokenID <> CSTI_CloseBlock then
+        begin
+          while True do
+          begin
+            tmp := nil;
+            Tmp := ReadExpression();
+            if Tmp = nil then
+            begin
+              Result := False;
+              NewVar.Free;
+              exit;
+            end;
+            if not TryEvalConst(tmp) then
+            begin
+              tmp.Free;
+              NewVar.Free;
+              Result := False;
+              exit;
+            end;
+            TPSValueArray(NewVar).Add(tmp);
+            if FParser.CurrTokenID = CSTI_CloseBlock then Break;
+            if FParser.CurrTokenID <> CSTI_Comma then
+            begin
+              MakeError('', ecCloseBlockExpected, '');
+              NewVar.Free;
+              Result := False;
+              exit;
+            end;
+            FParser.Next;
+          end;
+        end;
+        FParser.Next;
+        Result := True;
+      end;
+
+      function CallAssigned(P: TPSValue): TPSValue;
+      var
+        temp: TPSValueProcNo;
+      begin
+        temp := TPSValueProcNo.Create;
+        temp.ProcNo := FindProc('!ASSIGNED');
+        temp.ResultType := at2ut(FDefaultBoolType);
+        temp.Parameters := TPSParameters.Create;
+        with Temp.Parameters.Add do
+        begin
+          Val := p;
+          ExpectedType := GetTypeNo(BlockInfo, p);
+{$IFDEF DEBUG}
+          if not ExpectedType.Used then asm int 3; end;
+{$ENDIF}
+          FParamMode := pmIn;
+        end;
+        Result := Temp;
+      end;
+
+      function CallSucc(P: TPSValue): TPSValue;
+      var
+        temp: TPSBinValueOp;
+      begin
+        temp := TPSBinValueOp.Create;
+        temp.SetParserPos(FParser);
+        temp.FOperator := otAdd;
+        temp.FVal2 := TPSValueData.Create;
+        TPSValueData(Temp.FVal2).Data := NewVariant(FindBaseType(bts32));
+        TPSValueData(Temp.FVal2).Data.ts32 := 1;
+        temp.FVal1 := p;
+        Temp.FType := GetTypeNo(BlockInfo, P);
+        result := temp;
+      end;
+
+      function CallPred(P: TPSValue): TPSValue;
+      var
+        temp: TPSBinValueOp;
+      begin
+        temp := TPSBinValueOp.Create;
+        temp.SetParserPos(FParser);
+        temp.FOperator := otSub;
+        temp.FVal2 := TPSValueData.Create;
+        TPSValueData(Temp.FVal2).Data := NewVariant(FindBaseType(bts32));
+        TPSValueData(Temp.FVal2).Data.ts32 := 1;
+        temp.FVal1 := p;
+        Temp.FType := GetTypeNo(BlockInfo, P);
+        result := temp;
+      end;
+
+    begin
+      case fParser.CurrTokenID of
+        CSTI_OpenBlock:
+          begin
+            if not ReadArray then
+            begin
+              Result := nil;
+              exit;
+            end;
+          end;
+        CSTII_Not:
+        begin
+          FParser.Next;
+          NewVar := ReadFactor;
+          if NewVar = nil then
+          begin
+            Result := nil;
+            exit;
+          end;
+          NewVarU := TPSUnValueOp.Create;
+          NewVarU.SetParserPos(FParser);
+          NewVarU.aType := GetTypeNo(BlockInfo, NewVar);
+          NewVarU.Operator := otNot;
+          NewVarU.Val1 := NewVar;
+          NewVar := NewVarU;
+        end;
+        CSTI_Plus:
+        begin
+          FParser.Next;
+          NewVar := ReadTerm;
+          if NewVar = nil then
+          begin
+            Result := nil;
+            exit;
+          end;
+        end;
+        CSTI_Minus:
+        begin
+          FParser.Next;
+          NewVar := ReadTerm;
+          if NewVar = nil then
+          begin
+            Result := nil;
+            exit;
+          end;
+          NewVarU := TPSUnValueOp.Create;
+          NewVarU.SetParserPos(FParser);
+          NewVarU.aType := GetTypeNo(BlockInfo, NewVar);
+          NewVarU.Operator := otMinus;
+          NewVarU.Val1 := NewVar;
+          NewVar := NewVarU;
+        end;
+        CSTII_Nil:
+          begin
+            FParser.Next;
+            NewVar := TPSValueNil.Create;
+            NewVar.SetParserPos(FParser);
+          end;
+        CSTI_AddressOf:
+          begin
+            FParser.Next;
+            if FParser.CurrTokenID <> CSTI_Identifier then
+            begin
+              MakeError('', ecIdentifierExpected, '');
+              Result := nil;
+              exit;
+            end;
+            NewVar := TPSValueProcPtr.Create;
+            NewVar.SetParserPos(FParser);
+            TPSValueProcPtr(NewVar).ProcPtr := FindProc(FParser.GetToken);
+            if TPSValueProcPtr(NewVar).ProcPtr = InvalidVal then
+            begin
+              MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+              NewVar.Free;
+              Result := nil;
+              exit;
+            end;
+            Proc := FProcs[TPSValueProcPtr(NewVar).ProcPtr];
+            if Proc.ClassType <> TPSInternalProcedure then
+            begin
+              MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+              NewVar.Free;
+              Result := nil;
+              exit;
+            end;
+            FParser.Next;
+          end;
+        CSTI_OpenRound:
+          begin
+            FParser.Next;
+            NewVar := ReadExpression();
+            if NewVar = nil then
+            begin
+              Result := nil;
+              exit;
+            end;
+            if FParser.CurrTokenId <> CSTI_CloseRound then
+            begin
+              NewVar.Free;
+              Result := nil;
+              MakeError('', ecCloseRoundExpected, '');
+              exit;
+            end;
+            FParser.Next;
+          end;
+        CSTI_Char, CSTI_String:
+          begin
+            NewVar := TPSValueData.Create;
+            NewVar.SetParserPos(FParser);
+            TPSValueData(NewVar).Data := ReadString;
+            if TPSValueData(NewVar).Data = nil then
+            begin
+              NewVar.Free;
+              Result := nil;
+              exit;
+            end;
+          end;
+        CSTI_HexInt, CSTI_Integer:
+          begin
+            NewVar := TPSValueData.Create;
+            NewVar.SetParserPos(FParser);
+            TPSValueData(NewVar).Data := ReadInteger(FParser.GetToken);
+            FParser.Next;
+          end;
+        CSTI_Real:
+          begin
+            NewVar := TPSValueData.Create;
+            NewVar.SetParserPos(FParser);
+            TPSValueData(NewVar).Data := ReadReal(FParser.GetToken);
+            FParser.Next;
+          end;
+        CSTII_Ord:
+          begin
+            FParser.Next;
+            if fParser.Currtokenid <> CSTI_OpenRound then
+            begin
+              Result := nil;
+              MakeError('', ecOpenRoundExpected, '');
+              exit;
+            end;
+            FParser.Next;
+            NewVar := ReadExpression();
+            if NewVar = nil then
+            begin
+              Result := nil;
+              exit;
+            end;
+            if FParser.CurrTokenId <> CSTI_CloseRound then
+            begin
+              NewVar.Free;
+              Result := nil;
+              MakeError('', ecCloseRoundExpected, '');
+              exit;
+            end;
+            if not ((GetTypeNo(BlockInfo, NewVar).BaseType = btChar) or
+            {$IFNDEF PS_NOWIDESTRING} (GetTypeNo(BlockInfo, NewVar).BaseType = btWideChar) or{$ENDIF}
+            (GetTypeNo(BlockInfo, NewVar).BaseType = btEnum) or (IsIntType(GetTypeNo(BlockInfo, NewVar).BaseType))) then
+            begin
+              NewVar.Free;
+              Result := nil;
+              MakeError('', ecTypeMismatch, '');
+              exit;
+            end;
+            NewVarU := TPSUnValueOp.Create;
+            NewVarU.SetParserPos(FParser);
+            NewVarU.Operator := otCast;
+            NewVarU.FType := at2ut(FindBaseType(btu32));
+            NewVarU.Val1 := NewVar;
+            NewVar := NewVarU;
+            FParser.Next;
+          end;
+        CSTII_Chr:
+          begin
+            FParser.Next;
+            if fParser.Currtokenid <> CSTI_OpenRound then
+            begin
+              Result := nil;
+              MakeError('', ecOpenRoundExpected, '');
+              exit;
+            end;
+            FParser.Next;
+            NewVar := ReadExpression();
+            if NewVar = nil then
+            begin
+              Result := nil;
+              exit;
+            end;
+            if FParser.CurrTokenId <> CSTI_CloseRound then
+            begin
+              NewVar.Free;
+              Result := nil;
+              MakeError('', ecCloseRoundExpected, '');
+              exit;
+            end;
+            if not (IsIntType(GetTypeNo(BlockInfo, NewVar).BaseType)) then
+            begin
+              NewVar.Free;
+              Result := nil;
+              MakeError('', ecTypeMismatch, '');
+              exit;
+            end;
+            NewVarU := TPSUnValueOp.Create;
+            NewVarU.SetParserPos(FParser);
+            NewVarU.Operator := otCast;
+            NewVarU.FType := at2ut(FindBaseType(btChar));
+            NewVarU.Val1 := NewVar;
+            NewVar := NewVarU;
+            FParser.Next;
+          end;
+        CSTI_Identifier:
+          begin
+            if FParser.GetToken = 'SUCC' then
+            begin
+              FParser.Next;
+              if FParser.CurrTokenID <> CSTI_OpenRound then
+              begin
+                Result := nil;
+                MakeError('', ecOpenRoundExpected, '');
+                exit;
+              end;
+              FParser.Next;
+              NewVar := ReadExpression;
+              if NewVar = nil then
+              begin
+                result := nil;
+                exit;
+              end;
+              if (GetTypeNo(BlockInfo, NewVar) = nil) or (not IsIntType(GetTypeNo(BlockInfo, NewVar).BaseType) and
+                (GetTypeNo(BlockInfo, NewVar).BaseType <> btEnum)) then
+              begin
+                NewVar.Free;
+                Result := nil;
+                MakeError('', ecTypeMismatch, '');
+                exit;
+              end;
+              if FParser.CurrTokenID <> CSTI_CloseRound then
+              begin
+                NewVar.Free;
+                Result := nil;
+                MakeError('', eccloseRoundExpected, '');
+                exit;
+              end;
+              NewVar := CallSucc(NewVar);
+              FParser.Next;
+            end else
+            if FParser.GetToken = 'PRED' then
+            begin
+              FParser.Next;
+              if FParser.CurrTokenID <> CSTI_OpenRound then
+              begin
+                Result := nil;
+                MakeError('', ecOpenRoundExpected, '');
+                exit;
+              end;
+              FParser.Next;
+              NewVar := ReadExpression;
+              if NewVar = nil then
+              begin
+                result := nil;
+                exit;
+              end;
+              if (GetTypeNo(BlockInfo, NewVar) = nil) or (not IsIntType(GetTypeNo(BlockInfo, NewVar).BaseType) and
+                (GetTypeNo(BlockInfo, NewVar).BaseType <> btEnum)) then
+              begin
+                NewVar.Free;
+                Result := nil;
+                MakeError('', ecTypeMismatch, '');
+                exit;
+              end;
+              if FParser.CurrTokenID <> CSTI_CloseRound then
+              begin
+                NewVar.Free;
+                Result := nil;
+                MakeError('', eccloseRoundExpected, '');
+                exit;
+              end;
+              NewVar := CallPred(NewVar);
+              FParser.Next;
+            end else
+            if FParser.GetToken = 'ASSIGNED' then
+            begin
+              FParser.Next;
+              if FParser.CurrTokenID <> CSTI_OpenRound then
+              begin
+                Result := nil;
+                MakeError('', ecOpenRoundExpected, '');
+                exit;
+              end;
+              FParser.Next;
+              NewVar := GetIdentifier(0);
+              if NewVar = nil then
+              begin
+                result := nil;
+                exit;
+              end;
+              if (GetTypeNo(BlockInfo, NewVar) = nil) or ((GetTypeNo(BlockInfo, NewVar).BaseType <> btClass) and
+                (GetTypeNo(BlockInfo, NewVar).BaseType <> btPChar) and
+                (GetTypeNo(BlockInfo, NewVar).BaseType <> btString)) then
+              begin
+                NewVar.Free;
+                Result := nil;
+                MakeError('', ecTypeMismatch, '');
+                exit;
+              end;
+              if FParser.CurrTokenID <> CSTI_CloseRound then
+              begin
+                NewVar.Free;
+                Result := nil;
+                MakeError('', eccloseRoundExpected, '');
+                exit;
+              end;
+              NewVar := CallAssigned(NewVar);
+              FParser.Next;
+            end  else
+            begin
+              NewVar := GetIdentifier(0);
+              if NewVar = nil then
+              begin
+                Result := nil;
+                exit;
+              end;
+            end;
+          end;
+      else
+        begin
+          MakeError('', ecSyntaxError, '');
+          Result := nil;
+          exit;
+        end;
+      end; {case}
+      Result := NewVar;
+    end; // ReadFactor
+
+    function GetResultType(p1, P2: TPSValue; Cmd: TPSBinOperatorType): TPSType;
+    var
+      pp, t1, t2: PIFPSType;
+    begin
+      t1 := GetTypeNo(BlockInfo, p1);
+      t2 := GetTypeNo(BlockInfo, P2);
+      if (t1 = nil) or (t2 = nil) then
+      begin
+        if ((p1.ClassType = TPSValueNil) or (p2.ClassType = TPSValueNil)) and ((t1 <> nil) or (t2 <> nil)) then
+        begin
+          if p1.ClassType = TPSValueNil then
+            pp := t2
+          else
+            pp := t1;
+          if (pp.BaseType = btPchar) or (pp.BaseType = btString) or (pp.BaseType = btClass) {$IFNDEF PS_NOINTERFACES}or (pp.BaseType =btInterface){$ENDIF} or (pp.BaseType = btProcPtr) then
+            Result := AT2UT(FDefaultBoolType)
+          else
+            Result := nil;
+          exit;
+        end;
+        Result := nil;
+        exit;
+      end;
+      case Cmd of
+        otAdd: {plus}
+          begin
+            if ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) and (
+              ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) or
+              (t2.BaseType = btString) or
+              {$IFNDEF PS_NOWIDESTRING}
+              (t2.BaseType = btwideString) or
+              (t2.BaseType = btUnicodestring) or
+              (t2.BaseType = btwidechar) or
+              {$ENDIF}
+              (t2.BaseType = btPchar) or
+              (t2.BaseType = btChar) or
+              (isIntRealType(t2.BaseType))) then
+              Result := t1
+            else
+            if ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) and (
+              ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) or
+              (t1.BaseType = btString) or
+              {$IFNDEF PS_NOWIDESTRING}
+              (t1.BaseType = btUnicodestring) or
+              (t1.BaseType = btwideString) or
+              (t1.BaseType = btwidechar) or
+              {$ENDIF}
+              (t1.BaseType = btPchar) or
+              (t1.BaseType = btChar) or
+              (isIntRealType(t1.BaseType))) then
+              Result := t2
+            else if ((t1.BaseType = btSet) and (t2.BaseType = btSet)) and (t1 = t2) then
+              Result := t1
+            else if IsIntType(t1.BaseType) and IsIntType(t2.BaseType) then
+              Result := t1
+            else if IsIntRealType(t1.BaseType) and
+              IsIntRealType(t2.BaseType) then
+            begin
+              if IsRealType(t1.BaseType) then
+                Result := t1
+              else
+                Result := t2;
+            end
+            else if (t1.basetype = btSet) and (t2.Name = 'TVARIANTARRAY') then
+              Result := t1
+            else if (t2.basetype = btSet) and (t1.Name = 'TVARIANTARRAY') then
+              Result := t2
+            else if ((t1.BaseType = btPchar) or(t1.BaseType = btString) or (t1.BaseType = btChar)) and ((t2.BaseType = btPchar) or(t2.BaseType = btString) or (t2.BaseType = btChar)) then
+              Result := at2ut(FindBaseType(btString))
+            {$IFNDEF PS_NOWIDESTRING}
+            else if ((t1.BaseType = btString) or (t1.BaseType = btChar) or (t1.BaseType = btPchar)or (t1.BaseType = btWideString) or (t1.BaseType = btWideChar) or (t1.BaseType = btUnicodeString)) and
+            ((t2.BaseType = btString) or (t2.BaseType = btChar) or (t2.BaseType = btPchar) or (t2.BaseType = btWideString) or (t2.BaseType = btWideChar) or (t2.BaseType = btUnicodeString)) then
+              Result := at2ut(FindBaseType(btWideString))
+            {$ENDIF}
+            else
+              Result := nil;
+          end;
+        otSub, otMul, otDiv: { -  * / }
+          begin
+            if ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) and (
+              ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) or
+              (isIntRealType(t2.BaseType))) then
+              Result := t1
+            else if ((t1.BaseType = btSet) and (t2.BaseType = btSet)) and (t1 = t2) and ((cmd = otSub) or (cmd = otMul))  then
+              Result := t1
+            else if (t1.basetype = btSet) and (t2.Name = 'TVARIANTARRAY') and ((cmd = otSub) or (cmd = otMul)) then
+              Result := t1
+            else if (t2.basetype = btSet) and (t1.Name = 'TVARIANTARRAY') and ((cmd = otSub) or (cmd = otMul)) then
+              Result := t2
+            else
+            if ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) and (
+              ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) or
+              (isIntRealType(t1.BaseType))) then
+              Result := t2
+            else if IsIntType(t1.BaseType) and IsIntType(t2.BaseType) then
+              Result := t1
+            else if IsIntRealType(t1.BaseType) and
+              IsIntRealType(t2.BaseType) then
+            begin
+              if IsRealType(t1.BaseType) then
+                Result := t1
+              else
+                Result := t2;
+            end
+            else
+              Result := nil;
+          end;
+        otAnd, otOr, otXor: {and,or,xor}
+          begin
+            if ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) and (
+              ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) or
+              (isIntType(t2.BaseType))) then
+              Result := t1
+            else
+            if ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) and (
+              ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) or
+              (isIntType(t1.BaseType))) then
+              Result := t2
+            else if IsIntType(t1.BaseType) and IsIntType(t2.BaseType) then
+              Result := t1
+            else if (IsBoolean(t1)) and ((t2 = t1)  or ((t2.BaseType = btVariant)
+              or (t2.BaseType = btNotificationVariant))) then
+            begin
+              Result := t1;
+              if ((p1.ClassType = TPSValueData) or (p2.ClassType = TPSValueData)) then
+              begin
+                if cmd = otAnd then {and}
+                begin
+                  if p1.ClassType = TPSValueData then
+                  begin
+                    if (TPSValueData(p1).FData^.tu8 <> 0) then
+                    begin
+                      with MakeWarning('', ewIsNotNeeded, '"True and"') do
+                      begin
+                        FRow := p1.Row;
+                        FCol := p1.Col;
+                        FPosition := p1.Pos;
+                      end;
+                    end else
+                    begin
+                      with MakeWarning('', ewCalculationAlwaysEvaluatesTo, 'False') do
+                      begin
+                        FRow := p1.Row;
+                        FCol := p1.Col;
+                        FPosition := p1.Pos;
+                      end;
+                    end;
+                  end else begin
+                    if (TPSValueData(p2).Data.tu8 <> 0) then
+                    begin
+                      with MakeWarning('', ewIsNotNeeded, '"and True"') do
+                      begin
+                        FRow := p1.Row;
+                        FCol := p1.Col;
+                        FPosition := p1.Pos;
+                      end;
+                    end
+                    else
+          begin
+                      with MakeWarning('', ewCalculationAlwaysEvaluatesTo, 'False') do
+                      begin
+                        FRow := p1.Row;
+                        FCol := p1.Col;
+                        FPosition := p1.Pos;
+                      end;
+                    end;
+                  end;
+                end else if cmd = otOr then {or}
+                begin
+                  if p1.ClassType = TPSValueData then
+                  begin
+                    if (TPSValueData(p1).Data.tu8 <> 0) then
+                    begin
+                      with MakeWarning('', ewCalculationAlwaysEvaluatesTo, 'True') do
+                      begin
+                        FRow := p1.Row;
+                        FCol := p1.Col;
+                        FPosition := p1.Pos;
+                      end;
+                    end
+                    else
+                    begin
+                      with MakeWarning('', ewIsNotNeeded, '"False or"') do
+                      begin
+                        FRow := p1.Row;
+                        FCol := p1.Col;
+                        FPosition := p1.Pos;
+                      end;
+                    end
+                  end else begin
+                    if (TPSValueData(p2).Data.tu8 <> 0) then
+                    begin
+                      with MakeWarning('', ewCalculationAlwaysEvaluatesTo, 'True') do
+                      begin
+                        FRow := p1.Row;
+                        FCol := p1.Col;
+                        FPosition := p1.Pos;
+                      end;
+                    end
+                    else
+                    begin
+                      with MakeWarning('', ewIsNotNeeded, '"or False"') do
+                      begin
+                        FRow := p1.Row;
+                        FCol := p1.Col;
+                        FPosition := p1.Pos;
+                      end;
+                    end
+                  end;
+                end;
+              end;
+            end else
+              Result := nil;
+          end;
+        otMod, otShl, otShr: {mod,shl,shr}
+          begin
+            if ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) and (
+              ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) or
+              (isIntType(t2.BaseType))) then
+              Result := t1
+            else
+            if ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) and (
+              ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) or
+              (isIntType(t1.BaseType))) then
+              Result := t2
+            else if IsIntType(t1.BaseType) and IsIntType(t2.BaseType) then
+              Result :=  t1
+            else
+              Result := nil;
+          end;
+        otGreater, otLess, otGreaterEqual, otLessEqual: { >=, <=, >, <}
+          begin
+            if ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) and (
+              ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) or
+              (t2.BaseType = btString) or
+              (t2.BaseType = btPchar) or
+              (t2.BaseType = btChar) or
+              (isIntRealType(t2.BaseType))) then
+              Result := FDefaultBoolType
+            else if ((t1.BaseType = btSet) and (t2.BaseType = btSet)) and (t1 = t2) and ((cmd = otGreaterEqual) or (cmd = otLessEqual))  then
+              Result := FDefaultBoolType
+            else
+            if ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) and (
+              ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) or
+              (t1.BaseType = btString) or
+              (t1.BaseType = btPchar) or
+              (t1.BaseType = btChar) or
+              (isIntRealType(t1.BaseType))) then
+              Result := FDefaultBoolType
+            else if IsIntType(t1.BaseType) and IsIntType(t2.BaseType) then
+              Result := FDefaultBoolType
+            else if IsIntRealType(t1.BaseType) and
+              IsIntRealType(t2.BaseType) then
+              Result := FDefaultBoolType
+            else if
+            ((t1.BaseType = btString) or (t1.BaseType = btChar) {$IFNDEF PS_NOWIDESTRING} or (t1.BaseType = btWideString) or (t1.BaseType = btWideChar) or (t1.BaseType = btUnicodestring){$ENDIF}) and
+            ((t2.BaseType = btString) or (t2.BaseType = btChar) {$IFNDEF PS_NOWIDESTRING} or (t2.BaseType = btWideString) or (t2.BaseType = btWideChar) or (t2.BaseType = btUnicodestring){$ENDIF}) then
+              Result := FDefaultBoolType
+            else if ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) or ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) then
+              Result := FDefaultBoolType
+            else
+              Result := nil;
+          end;
+        otEqual, otNotEqual: {=, <>}
+          begin
+            if ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) and (
+              ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) or
+              (t2.BaseType = btString) or
+              (t2.BaseType = btPchar) or
+              (t2.BaseType = btChar) or
+              (isIntRealType(t2.BaseType))) then
+              Result := FDefaultBoolType
+            else if ((t1.BaseType = btSet) and (t2.BaseType = btSet)) and (t1 = t2) then
+              Result := FDefaultBoolType
+            else
+            if ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) and (
+              ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) or
+              (t1.BaseType = btString) or
+              (t1.BaseType = btPchar) or
+              (t1.BaseType = btChar) or
+              (isIntRealType(t1.BaseType))) then
+              Result := FDefaultBoolType
+            else if IsIntType(t1.BaseType) and IsIntType(t2.BaseType) then
+              Result := FDefaultBoolType
+            else if IsIntRealType(t1.BaseType) and
+              IsIntRealType(t2.BaseType) then
+              Result := FDefaultBoolType
+            else if
+            ((t1.BaseType = btString) or (t1.BaseType = btChar) {$IFNDEF PS_NOWIDESTRING} or (t1.BaseType = btWideString) or (t1.BaseType = btWideChar)  or (t1.BaseType = btUnicodestring){$ENDIF}) and
+            ((t2.BaseType = btString) or (t2.BaseType = btChar) {$IFNDEF PS_NOWIDESTRING} or (t2.BaseType = btWideString) or (t2.BaseType = btWideChar)  or (t2.BaseType = btUnicodestring){$ENDIF}) then
+              Result := FDefaultBoolType
+            else if (t1.basetype = btSet) and (t2.Name = 'TVARIANTARRAY') then
+              Result := FDefaultBoolType
+            else if (t2.basetype = btSet) and (t1.Name = 'TVARIANTARRAY') then
+              Result := FDefaultBoolType
+            else if (t1.BaseType = btEnum) and (t1 = t2) then
+              Result := FDefaultBoolType
+            else if (t1.BaseType = btClass) and (t2.BaseType = btClass) then
+              Result := FDefaultBoolType
+            else if ((t1.BaseType = btVariant) or (t1.BaseType = btNotificationVariant)) or ((t2.BaseType = btVariant) or (t2.BaseType = btNotificationVariant)) then
+              Result := FDefaultBoolType
+            else Result := nil;
+          end;
+        otIn:
+          begin
+            if (t2.Name = 'TVARIANTARRAY')  then
+              Result := FDefaultBoolType
+            else
+            if (t2.BaseType = btSet) and (TPSSetType(t2).SetType = t1) then
+              Result := FDefaultBoolType
+            else
+              Result := nil;
+          end;
+        otIs:
+          begin
+            if t2.BaseType = btType then
+            begin
+              Result := FDefaultBoolType
+            end else
+            Result := nil;
+          end;
+        otAs:
+          begin
+            if t2.BaseType = btType then
+            begin
+              Result := at2ut(TPSValueData(p2).Data.ttype);
+            end else
+              Result := nil;
+          end;
+      else
+        Result := nil;
+      end;
+    end;
+
+
+    function ReadTerm: TPSValue;
+    var
+      F1, F2: TPSValue;
+      F: TPSBinValueOp;
+      Token: TPSPasToken;
+      Op: TPSBinOperatorType;
+    begin
+      F1 := ReadFactor;
+      if F1 = nil then
+      begin
+        Result := nil;
+        exit;
+      end;
+      while FParser.CurrTokenID in [CSTI_Multiply, CSTI_Divide, CSTII_Div, CSTII_Mod, CSTII_And, CSTII_Shl, CSTII_Shr, CSTII_As] do
+      begin
+        Token := FParser.CurrTokenID;
+        FParser.Next;
+        F2 := ReadFactor;
+        if f2 = nil then
+        begin
+          f1.Free;
+          Result := nil;
+          exit;
+        end;
+        case Token of
+          CSTI_Multiply: Op := otMul;
+          CSTII_div, CSTI_Divide: Op := otDiv;
+          CSTII_mod: Op := otMod;
+          CSTII_and: Op := otAnd;
+          CSTII_shl: Op := otShl;
+          CSTII_shr: Op := otShr;
+          CSTII_As:  Op := otAs;
+        else
+          Op := otAdd;
+        end;
+        F := TPSBinValueOp.Create;
+        f.Val1 := F1;
+        f.Val2 := F2;
+        f.Operator := Op;
+        f.aType := GetResultType(F1, F2, Op);
+        if f.aType = nil then
+        begin
+          MakeError('', ecTypeMismatch, '');
+          f.Free;
+          Result := nil;
+          exit;
+        end;
+        f1 := f;
+      end;
+      Result := F1;
+    end;  // ReadTerm
+
+    function ReadSimpleExpression: TPSValue;
+    var
+      F1, F2: TPSValue;
+      F: TPSBinValueOp;
+      Token: TPSPasToken;
+      Op: TPSBinOperatorType;
+    begin
+      F1 := ReadTerm;
+      if F1 = nil then
+      begin
+        Result := nil;
+        exit;
+      end;
+      while FParser.CurrTokenID in [CSTI_Plus, CSTI_Minus, CSTII_Or, CSTII_Xor] do
+      begin
+        Token := FParser.CurrTokenID;
+        FParser.Next;
+        F2 := ReadTerm;
+        if f2 = nil then
+        begin
+          f1.Free;
+          Result := nil;
+          exit;
+        end;
+        case Token of
+          CSTI_Plus: Op := otAdd;
+          CSTI_Minus: Op := otSub;
+          CSTII_or: Op := otOr;
+          CSTII_xor: Op := otXor;
+        else
+          Op := otAdd;
+        end;
+        F := TPSBinValueOp.Create;
+        f.Val1 := F1;
+        f.Val2 := F2;
+        f.Operator := Op;
+        f.aType := GetResultType(F1, F2, Op);
+        if f.aType = nil then
+        begin
+          MakeError('', ecTypeMismatch, '');
+          f.Free;
+          Result := nil;
+          exit;
+        end;
+        f1 := f;
+      end;
+      Result := F1;
+    end;  // ReadSimpleExpression
+
+
+    function ReadExpression: TPSValue;
+    var
+      F1, F2: TPSValue;
+      F: TPSBinValueOp;
+      Token: TPSPasToken;
+      Op: TPSBinOperatorType;
+    begin
+      F1 := ReadSimpleExpression;
+      if F1 = nil then
+      begin
+        Result := nil;
+        exit;
+      end;
+      while FParser.CurrTokenID in [ CSTI_GreaterEqual, CSTI_LessEqual, CSTI_Greater, CSTI_Less, CSTI_Equal, CSTI_NotEqual, CSTII_in, CSTII_is] do
+      begin
+        Token := FParser.CurrTokenID;
+        FParser.Next;
+        F2 := ReadSimpleExpression;
+        if f2 = nil then
+        begin
+          f1.Free;
+          Result := nil;
+          exit;
+        end;
+        case Token of
+          CSTI_GreaterEqual: Op := otGreaterEqual;
+          CSTI_LessEqual: Op := otLessEqual;
+          CSTI_Greater: Op := otGreater;
+          CSTI_Less: Op := otLess;
+          CSTI_Equal: Op := otEqual;
+          CSTI_NotEqual: Op := otNotEqual;
+          CSTII_in: Op := otIn;
+          CSTII_is: Op := otIs;
+        else
+          Op := otAdd;
+        end;
+        F := TPSBinValueOp.Create;
+        f.Val1 := F1;
+        f.Val2 := F2;
+        f.Operator := Op;
+        f.aType := GetResultType(F1, F2, Op);
+        if f.aType = nil then
+        begin
+          MakeError('', ecTypeMismatch, '');
+          f.Free;
+          Result := nil;
+          exit;
+        end;
+        f1 := f;
+      end;
+      Result := F1;
+    end;  // ReadExpression
+
+    function TryEvalConst(var P: TPSValue): Boolean;
+    var
+      preplace: TPSValue;
+    begin
+      if p is TPSBinValueOp then
+      begin
+        if not (TryEvalConst(TPSBinValueOp(p).FVal1) and TryEvalConst(TPSBinValueOp(p).FVal2)) then
+        begin
+          Result := False;
+          exit;
+        end;
+        if (TPSBinValueOp(p).FVal1.ClassType = TPSValueData) and (TPSBinValueOp(p).FVal2.ClassType = TPSValueData) then
+        begin
+          if not PreCalc(True, 0, TPSValueData(TPSBinValueOp(p).Val1).Data, 0, TPSValueData(TPSBinValueOp(p).Val2).Data, TPSBinValueOp(p).Operator, p.Pos, p.Row, p.Col) then
+          begin
+            Result := False;
+            exit;
+          end;
+          preplace := TPSValueData.Create;
+          preplace.Pos := p.Pos;
+          preplace.Row := p.Row;
+          preplace.Col := p.Col;
+          TPSValueData(preplace).Data := TPSValueData(TPSBinValueOp(p).Val1).Data;
+          TPSValueData(TPSBinValueOp(p).Val1).Data := nil;
+          p.Free;
+          p := preplace;
+        end;
+      end else if p is TPSUnValueOp then
+      begin
+        if not TryEvalConst(TPSUnValueOp(p).FVal1) then
+        begin
+          Result := False;
+          exit;
+        end;
+        if TPSUnValueOp(p).FVal1.ClassType = TPSValueData then
+        begin
+//
+          case TPSUnValueOp(p).Operator of
+            otNot:
+              begin
+                case TPSValueData(TPSUnValueOp(p).FVal1).Data^.FType.BaseType of
+                  btEnum:
+                    begin
+                      if IsBoolean(TPSValueData(TPSUnValueOp(p).FVal1).Data^.FType) then
+                      begin
+                        TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8 := (not TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8) and 1;
+                      end else
+                      begin
+                        MakeError('', ecTypeMismatch, '');
+                        Result := False;
+                        exit;
+                      end;
+                    end;
+                  btU8: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8 := not TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                  btU16: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16 := not TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                  btU32: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu32 := not TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu32;
+                  bts8: TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts8 := not TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts8;
+                  bts16: TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts16 := not TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts16;
+                  bts32: TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts32 := not TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts32;
+                  {$IFNDEF PS_NOINT64}
+                  bts64: TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64 := not TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                  {$ENDIF}
+                else
+                  begin
+                    MakeError('', ecTypeMismatch, '');
+                    Result := False;
+                    exit;
+                  end;
+                end;
+                preplace := TPSUnValueOp(p).Val1;
+                TPSUnValueOp(p).Val1 := nil;
+                p.Free;
+                p := preplace;
+              end;
+            otMinus:
+              begin
+                case TPSValueData(TPSUnValueOp(p).FVal1).Data^.FType.BaseType of
+                  btU8: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8 := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                  btU16: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16 := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                  btU32: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu32 := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu32;
+                  bts8: TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts8 := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts8;
+                  bts16: TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts16 := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts16;
+                  bts32: TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts32 := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts32;
+                  {$IFNDEF PS_NOINT64}
+                  bts64: TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64 := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                  {$ENDIF}
+                  btSingle: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tsingle := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.tsingle;
+                  btDouble: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tdouble := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.tdouble;
+                  btExtended: TPSValueData(TPSUnValueOp(p).FVal1).Data^.textended := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.textended;
+                  btCurrency: TPSValueData(TPSUnValueOp(p).FVal1).Data^.tcurrency := -TPSValueData(TPSUnValueOp(p).FVal1).Data^.tcurrency;
+                else
+                  begin
+                    MakeError('', ecTypeMismatch, '');
+                    Result := False;
+                    exit;
+                  end;
+                end;
+                preplace := TPSUnValueOp(p).Val1;
+                TPSUnValueOp(p).Val1 := nil;
+                p.Free;
+                p := preplace;
+              end;
+            otCast:
+              begin
+                preplace := TPSValueData.Create;
+                TPSValueData(preplace).Data := NewVariant(TPSUnValueOp(p).FType);
+                case TPSUnValueOp(p).FType.BaseType of
+                  btU8:
+                    begin
+                      case TPSValueData(TPSUnValueOp(p).FVal1).Data.Ftype.basetype of
+                        btchar: TPSValueData(preplace).Data.tu8 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tchar);
+                        {$IFNDEF PS_NOWIDESTRING}
+                        btwidechar: TPSValueData(preplace).Data.tu8 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.twidechar);
+                        {$ENDIF}
+                        btU8: TPSValueData(preplace).Data.tu8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                        btS8: TPSValueData(preplace).Data.tu8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS8;
+                        btU16: TPSValueData(preplace).Data.tu8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                        btS16: TPSValueData(preplace).Data.tu8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS16;
+                        btU32: TPSValueData(preplace).Data.tu8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tU32;
+                        btS32: TPSValueData(preplace).Data.tu8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS32;
+                        {$IFNDEF PS_NOINT64}
+                        btS64: TPSValueData(preplace).Data.tu8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                        {$ENDIF}
+                      else
+                        begin
+                          MakeError('', ecTypeMismatch, '');
+                          preplace.Free;
+                          Result := False;
+                          exit;
+                        end;
+                      end;
+                    end;
+                  btS8:
+                    begin
+                      case TPSValueData(TPSUnValueOp(p).FVal1).Data.Ftype.basetype of
+                        btchar: TPSValueData(preplace).Data.ts8 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tchar);
+                        {$IFNDEF PS_NOWIDESTRING}
+                        btwidechar: TPSValueData(preplace).Data.ts8 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.twidechar);
+                        {$ENDIF}
+                        btU8: TPSValueData(preplace).Data.ts8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                        btS8: TPSValueData(preplace).Data.ts8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS8;
+                        btU16: TPSValueData(preplace).Data.ts8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                        btS16: TPSValueData(preplace).Data.ts8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS16;
+                        btU32: TPSValueData(preplace).Data.ts8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tU32;
+                        btS32: TPSValueData(preplace).Data.ts8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS32;
+                        {$IFNDEF PS_NOINT64}
+                        btS64: TPSValueData(preplace).Data.ts8 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                        {$ENDIF}
+                      else
+                        begin
+                          MakeError('', ecTypeMismatch, '');
+                          preplace.Free;
+                          Result := False;
+                          exit;
+                        end;
+                      end;
+                    end;
+                  btU16:
+                    begin
+                      case TPSValueData(TPSUnValueOp(p).FVal1).Data.Ftype.basetype of
+                        btchar: TPSValueData(preplace).Data.tu16 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tchar);
+                        {$IFNDEF PS_NOWIDESTRING}
+                        btwidechar: TPSValueData(preplace).Data.tu16 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.twidechar);
+                        {$ENDIF}
+                        btU8: TPSValueData(preplace).Data.tu16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                        btS8: TPSValueData(preplace).Data.tu16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS8;
+                        btU16: TPSValueData(preplace).Data.ts16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                        btS16: TPSValueData(preplace).Data.tu16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS16;
+                        btU32: TPSValueData(preplace).Data.tu16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tU32;
+                        btS32: TPSValueData(preplace).Data.tu16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS32;
+                        {$IFNDEF PS_NOINT64}
+                        btS64: TPSValueData(preplace).Data.tu16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                        {$ENDIF}
+                      else
+                        begin
+                          MakeError('', ecTypeMismatch, '');
+                          preplace.Free;
+                          Result := False;
+                          exit;
+                        end;
+                      end;
+                    end;
+                  bts16:
+                    begin
+                      case TPSValueData(TPSUnValueOp(p).FVal1).Data.Ftype.basetype of
+                        btchar: TPSValueData(preplace).Data.ts16 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tchar);
+                        {$IFNDEF PS_NOWIDESTRING}
+                        btwidechar: TPSValueData(preplace).Data.ts16 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.twidechar);
+                        {$ENDIF}
+                        btU8: TPSValueData(preplace).Data.ts16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                        btS8: TPSValueData(preplace).Data.ts16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS8;
+                        btU16: TPSValueData(preplace).Data.ts16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                        btS16: TPSValueData(preplace).Data.ts16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS16;
+                        btU32: TPSValueData(preplace).Data.ts16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tU32;
+                        btS32: TPSValueData(preplace).Data.ts16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS32;
+                        {$IFNDEF PS_NOINT64}
+                        btS64: TPSValueData(preplace).Data.ts16 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                        {$ENDIF}
+                      else
+                        begin
+                          MakeError('', ecTypeMismatch, '');
+                          preplace.Free;
+                          Result := False;
+                          exit;
+                        end;
+                      end;
+                    end;
+                  btU32:
+                    begin
+                      case TPSValueData(TPSUnValueOp(p).FVal1).Data.Ftype.basetype of
+                        btchar: TPSValueData(preplace).Data.tu32 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tchar);
+                        {$IFNDEF PS_NOWIDESTRING}
+                        btwidechar: TPSValueData(preplace).Data.tu32 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.twidechar);
+                        {$ENDIF}
+                        btU8: TPSValueData(preplace).Data.tu32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                        btS8: TPSValueData(preplace).Data.tu32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS8;
+                        btU16: TPSValueData(preplace).Data.tu32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                        btS16: TPSValueData(preplace).Data.tu32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS16;
+                        btU32: TPSValueData(preplace).Data.tu32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tU32;
+                        btS32: TPSValueData(preplace).Data.tu32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS32;
+                        {$IFNDEF PS_NOINT64}
+                        btS64: TPSValueData(preplace).Data.tu32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                        {$ENDIF}
+                      else
+                        begin
+                          MakeError('', ecTypeMismatch, '');
+                          preplace.Free;
+                          Result := False;
+                          exit;
+                        end;
+                      end;
+                    end;
+                  btS32:
+                    begin
+                      case TPSValueData(TPSUnValueOp(p).FVal1).Data.Ftype.basetype of
+                        btchar: TPSValueData(preplace).Data.ts32 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tchar);
+                        {$IFNDEF PS_NOWIDESTRING}
+                        btwidechar: TPSValueData(preplace).Data.ts32 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.twidechar);
+                        {$ENDIF}
+                        btU8: TPSValueData(preplace).Data.ts32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                        btS8: TPSValueData(preplace).Data.ts32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS8;
+                        btU16: TPSValueData(preplace).Data.ts32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                        btS16: TPSValueData(preplace).Data.ts32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS16;
+                        btU32: TPSValueData(preplace).Data.ts32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tU32;
+                        btS32: TPSValueData(preplace).Data.ts32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS32;
+                        {$IFNDEF PS_NOINT64}
+                        btS64: TPSValueData(preplace).Data.tu32 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                        {$ENDIF}
+                      else
+                        begin
+                          MakeError('', ecTypeMismatch, '');
+                          preplace.Free;
+                          Result := False;
+                          exit;
+                        end;
+                      end;
+                    end;
+                  {$IFNDEF PS_NOINT64}
+                  btS64:
+                    begin
+                      case TPSValueData(TPSUnValueOp(p).FVal1).Data.Ftype.basetype of
+                        btchar: TPSValueData(preplace).Data.ts64 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tchar);
+                        {$IFNDEF PS_NOWIDESTRING}
+                        btwidechar: TPSValueData(preplace).Data.ts64 := ord(TPSValueData(TPSUnValueOp(p).FVal1).Data^.twidechar);
+                        {$ENDIF}
+                        btU8: TPSValueData(preplace).Data.ts64 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8;
+                        btS8: TPSValueData(preplace).Data.ts64 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS8;
+                        btU16: TPSValueData(preplace).Data.ts64 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16;
+                        btS16: TPSValueData(preplace).Data.ts64 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS16;
+                        btU32: TPSValueData(preplace).Data.ts64 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tU32;
+                        btS32: TPSValueData(preplace).Data.ts64 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS32;
+                        btS64: TPSValueData(preplace).Data.ts64 := TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64;
+                      else
+                        begin
+                          MakeError('', ecTypeMismatch, '');
+                          preplace.Free;
+                          Result := False;
+                          exit;
+                        end;
+                      end;
+                    end;
+                  {$ENDIF}
+                  btChar:
+                    begin
+                      case TPSValueData(TPSUnValueOp(p).FVal1).Data.Ftype.basetype of
+                        btchar: TPSValueData(preplace).Data.tchar := TPSValueData(TPSUnValueOp(p).FVal1).Data^.tchar;
+                        btU8: TPSValueData(preplace).Data.tchar := tbtchar(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu8);
+                        btS8: TPSValueData(preplace).Data.tchar := tbtchar(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS8);
+                        btU16: TPSValueData(preplace).Data.tchar := tbtchar(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tu16);
+                        btS16: TPSValueData(preplace).Data.tchar := tbtchar(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS16);
+                        btU32: TPSValueData(preplace).Data.tchar := tbtchar(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tU32);
+                        btS32: TPSValueData(preplace).Data.tchar := tbtchar(TPSValueData(TPSUnValueOp(p).FVal1).Data^.tS32);
+                        {$IFNDEF PS_NOINT64}
+                        btS64: TPSValueData(preplace).Data.tchar := tbtchar(TPSValueData(TPSUnValueOp(p).FVal1).Data^.ts64);
+                        {$ENDIF}
+                      else
+                        begin
+                          MakeError('', ecTypeMismatch, '');
+                          Result := False;
+                          preplace.Free;
+                          exit;
+                        end;
+                      end;
+                    end;
+                else
+                  begin
+                    MakeError('', ecTypeMismatch, '');
+                    Result := False;
+                    preplace.Free;
+                    exit;
+                  end;
+                end;
+                p.Free;
+                p := preplace;
+              end;
+            else
+              begin
+                MakeError('', ecTypeMismatch, '');
+                Result := False;
+                exit;
+              end;
+          end; // case
+        end; // if
+      end;
+      Result := True;
+    end;
+
+  var
+    Val: TPSValue;
+
+begin
+    Val := ReadExpression;
+    if Val = nil then
+    begin
+      Result := nil;
+      exit;
+    end;
+    if not TryEvalConst(Val) then
+    begin
+      Val.Free;
+      Result := nil;
+      exit;
+    end;
+    Result := Val;
+  end;
+
+  function ReadParameters(IsProperty: Boolean; Dest: TPSParameters): Boolean;
+  var
+    sr,cr: TPSPasToken;
+  begin
+    if IsProperty then
+    begin
+      sr := CSTI_OpenBlock;
+      cr := CSTI_CloseBlock;
+    end else begin
+      sr := CSTI_OpenRound;
+      cr := CSTI_CloseRound;
+    end;
+    if FParser.CurrTokenId = sr then
+    begin
+      FParser.Next;
+      if FParser.CurrTokenId = cr then
+      begin
+        FParser.Next;
+        Result := True;
+        exit;
+      end;
+    end else
+    begin
+      result := True;
+      exit;
+    end;
+    repeat
+      with Dest.Add do
+      begin
+        Val := calc(CSTI_CloseRound);
+        if Val = nil then
+        begin
+          result := false;
+          exit;
+        end;
+      end;
+      if FParser.CurrTokenId = cr then
+      begin
+        FParser.Next;
+        Break;
+      end;
+      if FParser.CurrTokenId <> CSTI_Comma then
+      begin
+        MakeError('', ecCommaExpected, '');
+        Result := false;
+        exit;
+      end; {if}
+      FParser.Next;
+    until False;
+    Result := true;
+  end;
+
+  function ReadProcParameters(ProcNo: Cardinal; FSelf: TPSValue): TPSValue;
+  var
+    Decl: TPSParametersDecl;
+  begin
+    if TPSProcedure(FProcs[ProcNo]).ClassType = TPSInternalProcedure then
+      Decl := TPSInternalProcedure(FProcs[ProcNo]).Decl
+    else
+      Decl := TPSExternalProcedure(FProcs[ProcNo]).RegProc.Decl;
+    UseProc(Decl);
+    Result := TPSValueProcNo.Create;
+    TPSValueProcNo(Result).ProcNo := ProcNo;
+    TPSValueProcNo(Result).ResultType := Decl.Result;
+    with TPSValueProcNo(Result) do
+    begin
+      SetParserPos(FParser);
+      Parameters := TPSParameters.Create;
+      if FSelf <> nil then
+      begin
+        Parameters.Add;
+      end;
+    end;
+
+    if not ReadParameters(False, TPSValueProc(Result).Parameters) then
+    begin
+      FSelf.Free;
+      Result.Free;
+      Result := nil;
+      exit;
+    end;
+
+    if not ValidateParameters(BlockInfo, TPSValueProc(Result).Parameters, Decl) then
+    begin
+      FSelf.Free;
+      Result.Free;
+      Result := nil;
+      exit;
+    end;
+    if FSelf <> nil then
+    begin
+      with TPSValueProcNo(Result).Parameters[0] do
+      begin
+        Val := FSelf;
+        ExpectedType := GetTypeNo(BlockInfo, FSelf);
+      end;
+    end;
+  end;
+  {$IFNDEF PS_NOIDISPATCH}
+
+  function ReadIDispatchParameters(const ProcName: tbtString; aVariantType: TPSVariantType; FSelf: TPSValue): TPSValue;
+  var
+    Par: TPSParameters;
+    PropSet: Boolean;
+    i: Longint;
+    Temp: TPSValue;
+  begin
+    Par := TPSParameters.Create;
+    try
+      if not ReadParameters(FParser.CurrTokenID = CSTI_OpenBlock, Par) then
+      begin
+        FSelf.Free;
+        Result := nil;
+        exit;
+      end;
+
+      if FParser.CurrTokenID = CSTI_Assignment then
+      begin
+        FParser.Next;
+        PropSet := True;
+        Temp := calc(CSTI_SemiColon);
+        if temp = nil then
+        begin
+          FSelf.Free;
+          Result := nil;
+          exit;
+        end;
+        with par.Add do
+        begin
+          FValue := Temp;
+        end;
+      end else
+      begin
+        PropSet := False;
+      end;
+
+      Result := TPSValueProcNo.Create;
+      TPSValueProcNo(Result).ResultType := aVariantType;
+      with TPSValueProcNo(Result) do
+      begin
+        SetParserPos(FParser);
+        Parameters := TPSParameters.Create;
+        if FSelf <> nil then
+        begin
+          with Parameters.Add do
+          begin
+            Val := FSelf;
+            ExpectedType := aVariantType.GetDynIvokeSelfType(Self);
+          end;
+          with Parameters.Add do
+          begin
+            Val := TPSValueData.Create;
+            TPSValueData(Val).Data := NewVariant(FDefaultBoolType);
+            TPSValueData(Val).Data.tu8 := Ord(PropSet);
+            ExpectedType := FDefaultBoolType;
+          end;
+
+          with Parameters.Add do
+          begin
+            Val := TPSValueData.Create;
+            TPSValueData(Val).Data := NewVariant(FindBaseType(btString));
+            tbtString(TPSValueData(Val).data.tString) := Procname;
+            ExpectedType := FindBaseType(btString);
+          end;
+
+          with Parameters.Add do
+          begin
+            val := TPSValueArray.Create;
+            ExpectedType := aVariantType.GetDynInvokeParamType(Self);
+            temp := Val;
+          end;
+          for i := 0 to Par.Count -1 do
+          begin
+            TPSValueArray(Temp).Add(par.Item[i].Val);
+            par.Item[i].val := nil;
+          end;
+        end;
+      end;
+      TPSValueProcNo(Result).ProcNo := aVariantType.GetDynInvokeProcNo(Self, ProcName, TPSValueProcNo(Result).Parameters);
+    finally
+      Par.Free;
+    end;
+
+  end;
+
+  {$ENDIF}
+
+  function ReadVarParameters(ProcNoVar: TPSValue): TPSValue;
+  var
+    Decl: TPSParametersDecl;
+  begin
+    Decl := TPSProceduralType(GetTypeNo(BlockInfo, ProcnoVar)).ProcDef;
+    UseProc(Decl);
+
+    Result := TPSValueProcVal.Create;
+
+    with TPSValueProcVal(Result) do
+    begin
+      ResultType := Decl.Result;
+      ProcNo := ProcNoVar;
+      Parameters := TPSParameters.Create;
+    end;
+
+    if not ReadParameters(False, TPSValueProc(Result).Parameters) then
+    begin
+      Result.Free;
+      Result := nil;
+      exit;
+    end;
+
+    if not ValidateParameters(BlockInfo, TPSValueProc(Result).Parameters, Decl) then
+    begin
+      Result.Free;
+      Result := nil;
+      exit;
+    end;
+  end;
+
+
+  function WriteCalculation(InData, OutReg: TPSValue): Boolean;
+
+    function CheckOutreg(Where, Outreg: TPSValue; aRoot: Boolean): Boolean;
+    var
+      i: Longint;
+    begin
+      Result := False;
+      if Outreg is TPSValueReplace
+        then Outreg:=TPSValueReplace(Outreg).OldValue;
+      if Where is TPSValueVar then begin
+        if TPSValueVar(Where).GetRecCount > 0 then result := true;
+        if SAmeReg(Where, OutReg) and not aRoot then
+          result := true;
+      end else
+      if Where.ClassType = TPSUnValueOp then
+      begin
+        if CheckOutReg(TPSUnValueOp(Where).Val1, OutReg, aRoot) then
+          Result := True;
+      end else if Where.ClassType = TPSBinValueOp then
+      begin
+        if CheckOutreg(TPSBinValueOp(Where).Val1, OutReg, aRoot) or CheckOutreg(TPSBinValueOp(Where).Val2, OutReg, False) then
+          Result := True;
+      end else if Where is TPSValueVar then
+      begin
+        if SameReg(Where, OutReg) then
+          Result := True;
+      end else if Where is TPSValueProc then
+      begin
+        for i := 0 to TPSValueProc(Where).Parameters.Count -1 do
+        begin
+          if Checkoutreg(TPSValueProc(Where).Parameters[i].Val, Outreg, false) then
+          begin
+            Result := True;
+            break;
+          end;
+        end;
+      end;
+    end;
+  begin
+    if not CheckCompatType(Outreg, InData) then
+    begin
+      MakeError('', ecTypeMismatch, '');
+      Result := False;
+      exit;
+    end;
+    if SameReg(OutReg, InData) then
+    begin
+      Result := True;
+      exit;
+    end;
+    if InData is TPSValueProc then
+    begin
+      Result := _ProcessFunction(TPSValueProc(indata), OutReg)
+    end else begin
+      if not PreWriteOutRec(OutReg, nil) then
+      begin
+        Result := False;
+        exit;
+      end;
+      if (not CheckOutReg(InData, OutReg, true)) and (InData is TPSBinValueOp) or (InData is TPSUnValueOp) then
+      begin
+        if InData is TPSBinValueOp then
+        begin
+          if not DoBinCalc(TPSBinValueOp(InData), OutReg) then
+          begin
+            AfterWriteOutRec(OutReg);
+            Result := False;
+            exit;
+          end;
+        end else
+        begin
+          if not DoUnCalc(TPSUnValueOp(InData), OutReg) then
+          begin
+            AfterWriteOutRec(OutReg);
+            Result := False;
+            exit;
+          end;
+        end;
+      end else if (InData is TPSBinValueOp) and (not CheckOutReg(TPSBinValueOp(InData).Val2, OutReg, false)) then
+      begin
+        if not DoBinCalc(TPSBinValueOp(InData), OutReg) then
+        begin
+          AfterWriteOutRec(OutReg);
+          Result := False;
+          exit;
+        end;
+      end else begin
+        if not PreWriteOutRec(InData, GetTypeNo(BlockInfo, OutReg)) then
+        begin
+          Result := False;
+          exit;
+        end;
+        BlockWriteByte(BlockInfo, CM_A);
+        if not (WriteOutRec(OutReg, False) and WriteOutRec(InData, True)) then
+        begin
+          Result := False;
+          exit;
+        end;
+        AfterWriteOutRec(InData);
+      end;
+      AfterWriteOutRec(OutReg);
+      Result := True;
+    end;
+  end; {WriteCalculation}
+
+
+  function _ProcessFunction(ProcCall: TPSValueProc; ResultRegister: TPSValue): Boolean;
+  var
+    res: TPSType;
+    tmp: TPSParameter;
+    lTv: TPSValue;
+    resreg: TPSValue;
+    l: Longint;
+
+    function Cleanup: Boolean;
+    var
+      i: Longint;
+    begin
+      for i := 0 to ProcCall.Parameters.Count -1 do
+      begin
+        if ProcCall.Parameters[i].TempVar <> nil then
+          ProcCall.Parameters[i].TempVar.Free;
+        ProcCall.Parameters[i].TempVar := nil;
+      end;
+      if ProcCall is TPSValueProcVal then
+        AfterWriteOutRec(TPSValueProcVal(ProcCall).fProcNo);
+      if ResReg <> nil then
+        AfterWriteOutRec(resreg);
+      if ResReg <> nil then
+      begin
+        if ResReg <> ResultRegister then
+        begin
+          if ResultRegister <> nil then
+          begin
+            if not WriteCalculation(ResReg, ResultRegister) then
+            begin
+              Result := False;
+              resreg.Free;
+              exit;
+            end;
+          end;
+          resreg.Free;
+        end;
+      end;
+      Result := True;
+    end;
+
+  begin
+    Res := ProcCall.ResultType;
+    if ProcCall.ResultType = FAnyString then
+    begin
+      for l := ProcCall.Parameters.Count - 1 downto 0 do
+      begin
+        Tmp := ProcCall.Parameters[l];
+        if (Tmp.ParamMode <> pmOut) and (Tmp.ExpectedType = FAnyString) then
+        begin
+          Res := GetTypeNo(BlockInfo, tmp.Val);
+          Break;
+        end;
+      end;
+    end;
+    Result := False;
+    if (res = nil) and (ResultRegister <> nil) then
+    begin
+      MakeError('', ecNoResult, '');
+      exit;
+    end
+    else if (res <> nil)  then
+    begin
+      if (ResultRegister = nil) or (Res <> GetTypeNo(BlockInfo, ResultRegister)) then
+      begin
+        resreg := AllocStackReg(res);
+
+      end else resreg := ResultRegister;
+    end
+    else
+      resreg := nil;
+    if ResReg <> nil then
+    begin
+      if not PreWriteOutRec(resreg, nil) then
+      begin
+        Cleanup;
+        exit;
+      end;
+    end;
+    if Proccall is TPSValueProcVal then
+    begin
+      if not PreWriteOutRec(TPSValueProcVal(ProcCall).fProcNo, nil) then
+      begin
+        Cleanup;
+        exit;
+      end;
+    end;
+    for l := ProcCall.Parameters.Count - 1 downto 0 do
+    begin
+      Tmp := ProcCall.Parameters[l];
+      if (Tmp.ParamMode <> pmIn)  then
+      begin
+        if IsVarInCompatible(GetTypeNo(BlockInfo, tmp.Val), tmp.ExpectedType) then
+        begin
+          with MakeError('', ecTypeMismatch, '') do
+          begin
+            pos := tmp.Val.Pos;
+            row := tmp.Val.row;
+            col := tmp.Val.col;
+          end;
+          Cleanup;
+          exit;
+        end;
+        if Copy(tmp.ExpectedType.Name, 1, 10) = '!OPENARRAY' then begin
+          tmp.TempVar := AllocPointer(tmp.ExpectedType);
+          lTv := AllocStackReg(tmp.ExpectedType);
+          if not PreWriteOutRec(Tmp.FValue, nil) then
+          begin
+            cleanup;
+            exit;
+          end;
+          BlockWriteByte(BlockInfo, CM_A);
+          WriteOutRec(lTv, False);
+          WriteOutRec(Tmp.FValue, False);
+          AfterWriteOutRec(Tmp.FValue);
+
+          BlockWriteByte(BlockInfo, cm_sp);
+          WriteOutRec(tmp.TempVar, False);
+          WriteOutRec(lTv, False);
+
+          lTv.Free;
+//          BlockWriteByte(BlockInfo, CM_PO); // pop the temp var
+
+        end else begin
+        tmp.TempVar := AllocPointer(GetTypeNo(BlockInfo, Tmp.FValue));
+        if not PreWriteOutRec(Tmp.FValue, nil) then
+        begin
+          cleanup;
+          exit;
+        end;
+        BlockWriteByte(BlockInfo, cm_sp);
+        WriteOutRec(tmp.TempVar, False);
+        WriteOutRec(Tmp.FValue, False);
+        AfterWriteOutRec(Tmp.FValue);
+        end;
+      end
+      else
+      begin
+        if (Tmp.ExpectedType = nil) or (Tmp.ExpectedType = FAnyString) then
+          Tmp.ExpectedType := GetTypeNo(BlockInfo, tmp.Val);
+        if Tmp.ExpectedType.BaseType = btPChar then
+        begin
+          Tmp.TempVar := AllocStackReg(at2ut(FindBaseType(btstring)))
+        end else
+        begin
+        Tmp.TempVar := AllocStackReg(Tmp.ExpectedType);
+        end;
+        if not WriteCalculation(Tmp.Val, Tmp.TempVar) then
+        begin
+          Cleanup;
+          exit;
+        end;
+      end;
+    end; {for}
+    if res <> nil then
+    begin
+      BlockWriteByte(BlockInfo, CM_PV);
+
+      if not WriteOutRec(resreg, False) then
+      begin
+        Cleanup;
+        MakeError('', ecInternalError, '00015');
+        exit;
+      end;
+    end;
+    if ProcCall is TPSValueProcVal then
+    begin
+      BlockWriteByte(BlockInfo, Cm_cv);
+      WriteOutRec(TPSValueProcVal(ProcCall).ProcNo, True);
+    end else begin
+      BlockWriteByte(BlockInfo, CM_C);
+      BlockWriteLong(BlockInfo, TPSValueProcNo(ProcCall).ProcNo);
+    end;
+    if res <> nil then
+      BlockWriteByte(BlockInfo, CM_PO);
+    if not Cleanup then
+    begin
+      Result := False;
+      exit;
+    end;
+    Result := True;
+  end; {ProcessVarFunction}
+
+	function HasInvalidJumps(StartPos, EndPos: Cardinal): Boolean;
+  var
+    I, J: Longint;
+    Ok: LongBool;
+    FLabelsInBlock: TIfStringList;
+    s: tbtString;
+	begin
+		FLabelsInBlock := TIfStringList.Create;
+		for i := 0 to BlockInfo.Proc.FLabels.Count -1 do
+		begin
+			s := BlockInfo.Proc.FLabels[I];
+			if (Cardinal((@s[1])^) >= StartPos) and (Cardinal((@s[1])^) <= EndPos) then
+			begin
+				Delete(s, 1, 8);
+				FLabelsInBlock.Add(s);
+			end;
+		end;
+		for i := 0 to BlockInfo.Proc.FGotos.Count -1 do
+		begin
+			s := BlockInfo.Proc.FGotos[I];
+			if (Cardinal((@s[1])^) >= StartPos) and (Cardinal((@s[1])^) <= EndPos) then
+			begin
+				Delete(s, 1, 4);
+				s := BlockInfo.Proc.FLabels[Cardinal((@s[1])^)];
+				Delete(s,1,8);
+				OK := False;
+        for J := 0 to FLabelsInBlock.Count -1 do
+        begin
+          if FLabelsInBlock[J] = s then
+          begin
+            Ok := True;
+            Break;
+          end;
+        end;
+        if not Ok then
+        begin
+          MakeError('', ecInvalidJump, '');
+          Result := True;
+          FLabelsInBlock.Free;
+          exit;
+        end;
+      end else begin
+				Delete(s, 1, 4);
+				s := BlockInfo.Proc.FLabels[Cardinal((@s[1])^)];
+				Delete(s,1,8);
+				OK := True;
+        for J := 0 to FLabelsInBlock.Count -1 do
+        begin
+          if FLabelsInBlock[J] = s then
+          begin
+            Ok := False;
+            Break;
+          end;
+        end;
+        if not Ok then
+        begin
+          MakeError('', ecInvalidJump, '');
+          Result := True;
+          FLabelsInBlock.Free;
+          exit;
+        end;
+      end;
+    end;
+    FLabelsInBlock.Free;
+    Result := False;
+  end;
+
+  function ProcessFor: Boolean;
+    { Process a for x := y to z do }
+  var
+    VariableVar: TPSValue;
+      TempBool,
+      InitVal,
+      finVal: TPSValue;
+    Block: TPSBlockInfo;
+    Backwards: Boolean;
+    FPos, NPos, EPos, RPos: Longint;
+    OldCO, OldBO: TPSList;
+    I: Longint;
+		iOldWithCount: Integer;
+		iOldTryCount: Integer;
+		iOldExFnlCount: Integer;
+    lType: TPSType;
+  begin
+    Debug_WriteLine(BlockInfo);
+    Result := False;
+    FParser.Next;
+    if FParser.CurrTokenId <> CSTI_Identifier then
+    begin
+      MakeError('', ecIdentifierExpected, '');
+      exit;
+    end;
+    VariableVar := GetIdentifier(1);
+    if VariableVar = nil then
+      exit;
+    lType := GetTypeNo(BlockInfo, VariableVar);
+    if lType = nil then begin
+      MakeError('', ecTypeMismatch, '');
+      VariableVar.Free;
+      exit;
+    end;
+    case lType.BaseType of
+      btU8, btS8, btU16, btS16, btU32, btS32, {$IFNDEF PS_NOINT64} btS64, {$ENDIF} btVariant: ;
+    else
+      begin
+        MakeError('', ecTypeMismatch, '');
+        VariableVar.Free;
+        exit;
+      end;
+    end;
+    if FParser.CurrTokenId <> CSTI_Assignment then
+    begin
+      MakeError('', ecAssignmentExpected, '');
+      VariableVar.Free;
+      exit;
+    end;
+    FParser.Next;
+    InitVal := calc(CSTII_DownTo);
+    if InitVal = nil then
+    begin
+      VariableVar.Free;
+      exit;
+    end;
+    if FParser.CurrTokenId = CSTII_To then
+      Backwards := False
+    else if FParser.CurrTokenId = CSTII_DownTo then
+      Backwards := True
+    else
+    begin
+      MakeError('', ecToExpected, '');
+      VariableVar.Free;
+      InitVal.Free;
+      exit;
+    end;
+    FParser.Next;
+    finVal := calc(CSTII_do);
+    if finVal = nil then
+    begin
+      VariableVar.Free;
+      InitVal.Free;
+      exit;
+    end;
+    lType := GetTypeNo(BlockInfo, finVal);
+    if lType = nil then begin
+      MakeError('', ecTypeMismatch, '');
+      VariableVar.Free;
+      InitVal.Free;
+      exit;
+    end;
+    case lType.BaseType of
+      btVariant, btU8, btS8, btU16, btS16, btU32, btS32: ;
+    else
+      begin
+        MakeError('', ecTypeMismatch, '');
+        VariableVar.Free;
+        InitVal.Free;
+        exit;
+      end;
+    end;
+    if FParser.CurrTokenId <> CSTII_do then
+    begin
+      MakeError('', ecDoExpected, '');
+      finVal.Free;
+      InitVal.Free;
+      VariableVar.Free;
+      exit;
+    end;
+    FParser.Next;
+    if not WriteCalculation(InitVal, VariableVar) then
+    begin
+      VariableVar.Free;
+      InitVal.Free;
+      finVal.Free;
+      exit;
+    end;
+    InitVal.Free;
+    TempBool := AllocStackReg(at2ut(FDefaultBoolType));
+    NPos := Length(BlockInfo.Proc.Data);
+    if not (PreWriteOutRec(VariableVar, nil) and PreWriteOutRec(finVal, nil)) then
+    begin
+      TempBool.Free;
+      VariableVar.Free;
+      finVal.Free;
+      exit;
+    end;
+    BlockWriteByte(BlockInfo, CM_CO);
+    if Backwards then
+    begin
+      BlockWriteByte(BlockInfo, 0); { >= }
+    end
+    else
+    begin
+      BlockWriteByte(BlockInfo, 1); { <= }
+    end;
+    if not (WriteOutRec(TempBool, False) and WriteOutRec(VariableVar, True) and WriteOutRec(finVal, True)) then
+    begin
+      TempBool.Free;
+      VariableVar.Free;
+      finVal.Free;
+      exit;
+    end;
+    AfterWriteOutRec(finVal);
+    AfterWriteOutRec(VariableVar);
+    finVal.Free;
+    BlockWriteByte(BlockInfo, Cm_CNG);
+    EPos := Length(BlockInfo.Proc.Data);
+    BlockWriteLong(BlockInfo, $12345678);
+    WriteOutRec(TempBool, False);
+    RPos := Length(BlockInfo.Proc.Data);
+    OldCO := FContinueOffsets;
+    FContinueOffsets := TPSList.Create;
+    OldBO := FBreakOffsets;
+    FBreakOffsets := TPSList.Create;
+    Block := TPSBlockInfo.Create(BlockInfo);
+    Block.SubType := tOneLiner;
+
+		iOldWithCount := FWithCount;
+		FWithCount := 0;
+		iOldTryCount := FTryCount;
+		FTryCount := 0;
+		iOldExFnlCount := FExceptFinallyCount;
+    FExceptFinallyCount := 0;
+
+    if not ProcessSub(Block) then
+    begin
+      Block.Free;
+      TempBool.Free;
+      VariableVar.Free;
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+
+			FWithCount := iOldWithCount;
+			FTryCount := iOldTryCount;
+      FExceptFinallyCount := iOldExFnlCount;
+
+			exit;
+		end;
+		Block.Free;
+		FPos := Length(BlockInfo.Proc.Data);
+		if not PreWriteOutRec(VariableVar, nil) then
+		begin
+			TempBool.Free;
+			VariableVar.Free;
+			FBreakOffsets.Free;
+			FContinueOffsets.Free;
+			FContinueOffsets := OldCO;
+			FBreakOffsets := OldBo;
+
+			FWithCount := iOldWithCount;
+			FTryCount := iOldTryCount;
+      FExceptFinallyCount := iOldExFnlCount;
+
+      exit;
+    end;
+    if Backwards then
+      BlockWriteByte(BlockInfo, cm_dec)
+    else
+      BlockWriteByte(BlockInfo, cm_inc);
+    if not WriteOutRec(VariableVar, False) then
+    begin
+      TempBool.Free;
+      VariableVar.Free;
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+
+			FWithCount := iOldWithCount;
+			FTryCount := iOldTryCount;
+      FExceptFinallyCount := iOldExFnlCount;
+
+      exit;
+    end;
+    AfterWriteOutRec(VariableVar);
+    BlockWriteByte(BlockInfo, Cm_G);
+    BlockWriteLong(BlockInfo, Longint(NPos - Length(BlockInfo.Proc.Data) - 4));
+    {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+    unaligned(Longint((@BlockInfo.Proc.Data[EPos + 1])^)) := Length(BlockInfo.Proc.Data) - RPos;
+    {$else}
+    Longint((@BlockInfo.Proc.Data[EPos + 1])^) := Length(BlockInfo.Proc.Data) - RPos;
+    {$endif}
+    for i := 0 to FBreakOffsets.Count -1 do
+    begin
+      EPos := IPointer(FBreakOffsets[I]);
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Length(BlockInfo.Proc.Data) - Longint(EPos);
+      {$else}
+      Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Length(BlockInfo.Proc.Data) - Longint(EPos);
+      {$endif}
+    end;
+    for i := 0 to FContinueOffsets.Count -1 do
+    begin
+      EPos := IPointer(FContinueOffsets[I]);
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Longint(FPos) - Longint(EPos);
+      {$else}
+      Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Longint(FPos) - Longint(EPos);
+      {$endif}
+    end;
+    FBreakOffsets.Free;
+    FContinueOffsets.Free;
+    FContinueOffsets := OldCO;
+    FBreakOffsets := OldBo;
+
+		FWithCount := iOldWithCount;
+    FTryCount := iOldTryCount;
+    FExceptFinallyCount := iOldExFnlCount;
+
+		TempBool.Free;
+		VariableVar.Free;
+		if HasInvalidJumps(RPos, Length(BlockInfo.Proc.Data)) then
+    begin
+      Result := False;
+      exit;
+    end;
+    Result := True;
+  end; {ProcessFor}
+
+  function ProcessWhile: Boolean;
+  var
+    vin, vout: TPSValue;
+    SPos, EPos: Cardinal;
+    OldCo, OldBO: TPSList;
+    I: Longint;
+    Block: TPSBlockInfo;
+
+		iOldWithCount: Integer;
+    iOldTryCount: Integer;
+    iOldExFnlCount: Integer;
+
+  begin
+    Result := False;
+    Debug_WriteLine(BlockInfo);
+    FParser.Next;
+    vout := calc(CSTII_do);
+    if vout = nil then
+      exit;
+    if FParser.CurrTokenId <> CSTII_do then
+    begin
+      vout.Free;
+      MakeError('', ecDoExpected, '');
+      exit;
+    end;
+    vin := AllocStackReg(at2ut(FDefaultBoolType));
+    SPos := Length(BlockInfo.Proc.Data); // start position
+    OldCo := FContinueOffsets;
+    FContinueOffsets := TPSList.Create;
+    OldBO := FBreakOffsets;
+    FBreakOffsets := TPSList.Create;
+    if not WriteCalculation(vout, vin) then
+    begin
+      vout.Free;
+      vin.Free;
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+      exit;
+    end;
+    vout.Free;
+    FParser.Next; // skip DO
+    BlockWriteByte(BlockInfo, Cm_CNG); // only goto if expression is false
+    BlockWriteLong(BlockInfo, $12345678);
+    EPos := Length(BlockInfo.Proc.Data);
+    if not WriteOutRec(vin, False) then
+    begin
+      MakeError('', ecInternalError, '00017');
+      vin.Free;
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+      exit;
+    end;
+    Block := TPSBlockInfo.Create(BlockInfo);
+    Block.SubType := tOneLiner;
+
+    iOldWithCount := FWithCount;
+    FWithCount := 0;
+    iOldTryCount := FTryCount;
+    FTryCount := 0;
+    iOldExFnlCount := FExceptFinallyCount;
+    FExceptFinallyCount := 0;
+
+    if not ProcessSub(Block) then
+    begin
+      Block.Free;
+      vin.Free;
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+
+      FWithCount := iOldWithCount;
+			FTryCount := iOldTryCount;
+      FExceptFinallyCount := iOldExFnlCount;
+
+      exit;
+    end;
+    Block.Free;
+    Debug_WriteLine(BlockInfo);
+    BlockWriteByte(BlockInfo, Cm_G);
+    BlockWriteLong(BlockInfo, Longint(SPos) - Length(BlockInfo.Proc.Data) - 4);
+    {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+    unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Length(BlockInfo.Proc.Data) - Longint(EPos) - 5;
+    {$else}
+    Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Length(BlockInfo.Proc.Data) - Longint(EPos) - 5;
+    {$endif}
+    for i := 0 to FBreakOffsets.Count -1 do
+    begin
+      EPos := Cardinal(FBreakOffsets[I]);
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Length(BlockInfo.Proc.Data) - Longint(EPos);
+      {$else}
+      Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Length(BlockInfo.Proc.Data) - Longint(EPos);
+      {$endif}
+    end;
+    for i := 0 to FContinueOffsets.Count -1 do
+    begin
+      EPos := Cardinal(FContinueOffsets[I]);
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Longint(SPos) - Longint(EPos);
+      {$else}
+      Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Longint(SPos) - Longint(EPos);
+      {$endif}
+    end;
+    FBreakOffsets.Free;
+    FContinueOffsets.Free;
+    FContinueOffsets := OldCO;
+    FBreakOffsets := OldBo;
+
+    FWithCount := iOldWithCount;
+    FTryCount := iOldTryCount;
+    FExceptFinallyCount := iOldExFnlCount;
+
+    vin.Free;
+		if HasInvalidJumps(EPos, Length(BlockInfo.Proc.Data)) then
+    begin
+      Result := False;
+      exit;
+    end;
+    Result := True;
+  end;
+
+  function ProcessRepeat: Boolean;
+  var
+    vin, vout: TPSValue;
+    CPos, SPos, EPos: Cardinal;
+    I: Longint;
+    OldCo, OldBO: TPSList;
+    Block: TPSBlockInfo;
+
+    iOldWithCount: Integer;
+    iOldTryCount: Integer;
+    iOldExFnlCount: Integer;
+
+  begin
+    Result := False;
+    Debug_WriteLine(BlockInfo);
+    FParser.Next;
+    OldCo := FContinueOffsets;
+    FContinueOffsets := TPSList.Create;
+    OldBO := FBreakOffsets;
+    FBreakOffsets := TPSList.Create;
+    vin := AllocStackReg(at2ut(FDefaultBoolType));
+    SPos := Length(BlockInfo.Proc.Data);
+    Block := TPSBlockInfo.Create(BlockInfo);
+    Block.SubType := tRepeat;
+
+    iOldWithCount := FWithCount;
+    FWithCount := 0;
+    iOldTryCount := FTryCount;
+    FTryCount := 0;
+    iOldExFnlCount := FExceptFinallyCount;
+    FExceptFinallyCount := 0;
+
+    if not ProcessSub(Block) then
+    begin
+      Block.Free;
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+
+      FWithCount := iOldWithCount;
+      FTryCount := iOldTryCount;
+      FExceptFinallyCount := iOldExFnlCount;
+
+      vin.Free;
+      exit;
+    end;
+    Block.Free;
+    FParser.Next; //cstii_until
+    vout := calc(CSTI_Semicolon);
+    if vout = nil then
+    begin
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+
+      FWithCount := iOldWithCount;
+      FTryCount := iOldTryCount;
+      FExceptFinallyCount := iOldExFnlCount;
+
+      vin.Free;
+      exit;
+    end;
+    CPos := Length(BlockInfo.Proc.Data);
+    if not WriteCalculation(vout, vin) then
+    begin
+      vout.Free;
+      vin.Free;
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+
+      FWithCount := iOldWithCount;
+      FTryCount := iOldTryCount;
+      FExceptFinallyCount := iOldExFnlCount;
+
+      exit;
+    end;
+    vout.Free;
+    BlockWriteByte(BlockInfo, Cm_CNG);
+    BlockWriteLong(BlockInfo, $12345678);
+    EPos := Length(BlockInfo. Proc.Data);
+    if not WriteOutRec(vin, False) then
+    begin
+      MakeError('', ecInternalError, '00016');
+      vin.Free;
+      FBreakOffsets.Free;
+      FContinueOffsets.Free;
+      FContinueOffsets := OldCO;
+      FBreakOffsets := OldBo;
+
+      FWithCount := iOldWithCount;
+      FTryCount := iOldTryCount;
+      FExceptFinallyCount := iOldExFnlCount;
+
+      exit;
+    end;
+    {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+    unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Longint(SPos) -
+      Length(BlockInfo.Proc.Data);
+    {$else}
+    Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Longint(SPos) -
+      Length(BlockInfo.Proc.Data);
+    {$endif}
+    for i := 0 to FBreakOffsets.Count -1 do
+    begin
+      EPos := Cardinal(FBreakOffsets[I]);
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Length(BlockInfo. Proc.Data) - Longint(EPos);
+      {$else}
+      Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Length(BlockInfo. Proc.Data) - Longint(EPos);
+      {$endif}
+    end;
+    for i := 0 to FContinueOffsets.Count -1 do
+    begin
+      EPos := Cardinal(FContinueOffsets[I]);
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Longint(CPos) - Longint(EPos);
+      {$else}
+      Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Longint(CPos) - Longint(EPos);
+      {$endif}
+    end;
+    FBreakOffsets.Free;
+    FContinueOffsets.Free;
+    FContinueOffsets := OldCO;
+    FBreakOffsets := OldBo;
+
+    FWithCount := iOldWithCount;
+    FTryCount := iOldTryCount;
+    FExceptFinallyCount := iOldExFnlCount;
+
+    vin.Free;
+    if HasInvalidJumps(SPos, Length(BlockInfo. Proc.Data)) then
+    begin
+      Result := False;
+      exit;
+    end;
+    Result := True;
+  end; {ProcessRepeat}
+
+  function ProcessIf: Boolean;
+  var
+    vout, vin: TPSValue;
+    SPos, EPos: Cardinal;
+    Block: TPSBlockInfo;
+  begin
+    Result := False;
+    Debug_WriteLine(BlockInfo);
+    FParser.Next;
+    vout := calc(CSTII_Then);
+    if vout = nil then
+      exit;
+    if FParser.CurrTokenId <> CSTII_Then then
+    begin
+      vout.Free;
+      MakeError('', ecThenExpected, '');
+      exit;
+    end;
+    vin := AllocStackReg(at2ut(FDefaultBoolType));
+    if not WriteCalculation(vout, vin) then
+    begin
+      vout.Free;
+      vin.Free;
+      exit;
+    end;
+    vout.Free;
+    BlockWriteByte(BlockInfo, cm_sf);
+    if not WriteOutRec(vin, False) then
+    begin
+      MakeError('', ecInternalError, '00018');
+      vin.Free;
+      exit;
+    end;
+    BlockWriteByte(BlockInfo, 1);
+    vin.Free;
+    BlockWriteByte(BlockInfo, cm_fg);
+    BlockWriteLong(BlockInfo, $12345678);
+    SPos := Length(BlockInfo.Proc.Data);
+    FParser.Next; // skip then
+    Block := TPSBlockInfo.Create(BlockInfo);
+    Block.SubType := tifOneliner;
+    if not ProcessSub(Block) then
+    begin
+      Block.Free;
+      exit;
+    end;
+    Block.Free;
+    if FParser.CurrTokenId = CSTII_Else then
+    begin
+      BlockWriteByte(BlockInfo, Cm_G);
+      BlockWriteLong(BlockInfo, $12345678);
+      EPos := Length(BlockInfo.Proc.Data);
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[SPos - 3])^)) := Length(BlockInfo.Proc.Data) - Longint(SPos);
+      {$else}
+      Longint((@BlockInfo.Proc.Data[SPos - 3])^) := Length(BlockInfo.Proc.Data) - Longint(SPos);
+      {$endif}
+      FParser.Next;
+      Block := TPSBlockInfo.Create(BlockInfo);
+      Block.SubType := tOneLiner;
+      if not ProcessSub(Block) then
+      begin
+        Block.Free;
+        exit;
+      end;
+      Block.Free;
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[EPos - 3])^)) := Length(BlockInfo.Proc.Data) - Longint(EPos);
+      {$else}
+      Longint((@BlockInfo.Proc.Data[EPos - 3])^) := Length(BlockInfo.Proc.Data) - Longint(EPos);
+      {$endif}
+    end
+    else
+    begin
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Longint((@BlockInfo.Proc.Data[SPos - 3])^)) := Length(BlockInfo.Proc.Data) - Longint(SPos) + 5 - 5;
+      {$else}
+      Longint((@BlockInfo.Proc.Data[SPos - 3])^) := Length(BlockInfo.Proc.Data) - Longint(SPos) + 5 - 5;
+      {$endif}
+    end;
+    Result := True;
+  end; {ProcessIf}
+
+  function _ProcessLabel: Longint; {0 = failed; 1 = successful; 2 = no label}
+  var
+    I, H: Longint;
+    s: tbtString;
+  begin
+    h := MakeHash(FParser.GetToken);
+    for i := 0 to BlockInfo.Proc.FLabels.Count -1 do
+    begin
+      s := BlockInfo.Proc.FLabels[I];
+      delete(s, 1, 4);
+      if Longint((@s[1])^) = h then
+      begin
+        delete(s, 1, 4);
+        if s = FParser.GetToken then
+        begin
+          s := BlockInfo.Proc.FLabels[I];
+          Cardinal((@s[1])^) := Length(BlockInfo.Proc.Data);
+          BlockInfo.Proc.FLabels[i] := s;
+          FParser.Next;
+          if fParser.CurrTokenId = CSTI_Colon then
+          begin
+            Result := 1;
+            FParser.Next;
+            exit;
+          end else begin
+            MakeError('', ecColonExpected, '');
+            Result := 0;
+            Exit;
+          end;
+        end;
+      end;
+    end;
+    result := 2;
+  end;
+
+  function ProcessIdentifier: Boolean;
+  var
+    vin, vout: TPSValue;
+  begin
+    Result := False;
+    Debug_WriteLine(BlockInfo);
+    vin := GetIdentifier(2);
+    if vin <> nil then
+    begin
+      if vin is TPSValueVar then
+      begin // assignment needed
+        if FParser.CurrTokenId <> CSTI_Assignment then
+        begin
+          MakeError('', ecAssignmentExpected, '');
+          vin.Free;
+          exit;
+        end;
+        FParser.Next;
+        vout := calc(CSTI_Semicolon);
+        if vout = nil then
+        begin
+          vin.Free;
+          exit;
+        end;
+        if not WriteCalculation(vout, vin) then
+        begin
+          vin.Free;
+          vout.Free;
+          exit;
+        end;
+        vin.Free;
+        vout.Free;
+      end else if vin is TPSValueProc then
+      begin
+        Result := _ProcessFunction(TPSValueProc(vin), nil);
+        vin.Free;
+        Exit;
+      end else
+      begin
+        MakeError('', ecInternalError, '20');
+        vin.Free;
+        REsult := False;
+        exit;
+      end;
+    end
+    else
+    begin
+      Result := False;
+      exit;
+    end;
+    Result := True;
+  end; {ProcessIdentifier}
+
+  function ProcessCase: Boolean;
+  var
+    V1, V2, TempRec, Val, CalcItem: TPSValue;
+    p: TPSBinValueOp;
+    SPos, CurrP: Cardinal;
+    I: Longint;
+    EndReloc: TPSList;
+    Block: TPSBlockInfo;
+
+    function NewRec(val: TPSValue): TPSValueReplace;
+    begin
+      Result := TPSValueReplace.Create;
+      Result.SetParserPos(FParser);
+      Result.FNewValue := Val;
+      Result.FreeNewValue := False;
+    end;
+
+    function Combine(v1, v2: TPSValue; Op: TPSBinOperatorType): TPSValue;
+    begin
+      if V1 = nil then
+      begin
+        Result := v2;
+      end else if v2 = nil then
+      begin
+        Result := V1;
+      end else
+      begin
+        Result := TPSBinValueOp.Create;
+        TPSBinValueOp(Result).FType := FDefaultBoolType;
+        TPSBinValueOp(Result).Operator := Op;
+        Result.SetParserPos(FParser);
+        TPSBinValueOp(Result).FVal1 := V1;
+        TPSBinValueOp(Result).FVal2 := V2;
+      end;
+    end;
+
+
+  begin
+    Debug_WriteLine(BlockInfo);
+    FParser.Next;
+    Val := calc(CSTII_of);
+    if Val = nil then
+    begin
+      ProcessCase := False;
+      exit;
+    end; {if}
+    if FParser.CurrTokenId <> CSTII_Of then
+    begin
+      MakeError('', ecOfExpected, '');
+      val.Free;
+      ProcessCase := False;
+      exit;
+    end; {if}
+    FParser.Next;
+    TempRec := AllocStackReg(GetTypeNo(BlockInfo, Val));
+    if not WriteCalculation(Val, TempRec) then
+    begin
+      TempRec.Free;
+      val.Free;
+      ProcessCase := False;
+      exit;
+    end; {if}
+    val.Free;
+    EndReloc := TPSList.Create;
+    CalcItem := AllocStackReg(at2ut(FDefaultBoolType));
+    SPos := Length(BlockInfo.Proc.Data);
+    repeat
+      V1 := nil;
+      while true do
+      begin
+        Val := calc(CSTI_Colon);
+        if (Val = nil) then
+        begin
+          V1.Free;
+          CalcItem.Free;
+          TempRec.Free;
+          EndReloc.Free;
+          ProcessCase := False;
+          exit;
+        end; {if}
+        if fParser.CurrTokenID = CSTI_TwoDots then begin
+          FParser.Next;
+          V2 := Calc(CSTI_colon);
+          if V2 = nil then begin
+            V1.Free;
+            CalcItem.Free;
+            TempRec.Free;
+            EndReloc.Free;
+            ProcessCase := False;
+            Val.Free;
+            exit;
+          end;
+          p := TPSBinValueOp.Create;
+          p.SetParserPos(FParser);
+          p.Operator := otGreaterEqual;
+          p.aType := at2ut(FDefaultBoolType);
+          p.Val2 := Val;
+          p.Val1 := NewRec(TempRec);
+          Val := p;
+          p := TPSBinValueOp.Create;
+          p.SetParserPos(FParser);
+          p.Operator := otLessEqual;
+          p.aType := at2ut(FDefaultBoolType);
+          p.Val2 := V2;
+          p.Val1 := NewRec(TempRec);
+          P := TPSBinValueOp(Combine(Val,P, otAnd));
+        end else begin
+          p := TPSBinValueOp.Create;
+          p.SetParserPos(FParser);
+          p.Operator := otEqual;
+          p.aType := at2ut(FDefaultBoolType);
+          p.Val1 := Val;
+          p.Val2 := NewRec(TempRec);
+        end;
+        V1 := Combine(V1, P, otOr);
+        if FParser.CurrTokenId = CSTI_Colon then Break;
+        if FParser.CurrTokenID <> CSTI_Comma then
+        begin
+          MakeError('', ecColonExpected, '');
+          V1.Free;
+          CalcItem.Free;
+          TempRec.Free;
+          EndReloc.Free;
+          ProcessCase := False;
+          exit;
+        end;
+        FParser.Next;
+      end;
+      FParser.Next;
+      if not WriteCalculation(V1, CalcItem) then
+      begin
+        CalcItem.Free;
+        v1.Free;
+        EndReloc.Free;
+        ProcessCase := False;
+        exit;
+      end;
+      v1.Free;
+      BlockWriteByte(BlockInfo, Cm_CNG);
+      BlockWriteLong(BlockInfo, $12345678);
+      CurrP := Length(BlockInfo.Proc.Data);
+      WriteOutRec(CalcItem, False);
+      Block := TPSBlockInfo.Create(BlockInfo);
+      Block.SubType := tifOneliner;
+      if not ProcessSub(Block) then
+      begin
+        Block.Free;
+        CalcItem.Free;
+        TempRec.Free;
+        EndReloc.Free;
+        ProcessCase := False;
+        exit;
+      end;
+      Block.Free;
+      BlockWriteByte(BlockInfo, Cm_G);
+      BlockWriteLong(BlockInfo, $12345678);
+      EndReloc.Add(Pointer(Length(BlockInfo.Proc.Data)));
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Cardinal((@BlockInfo.Proc.Data[CurrP - 3])^)) := Cardinal(Length(BlockInfo.Proc.Data)) - CurrP - 5;
+      {$else}
+      Cardinal((@BlockInfo.Proc.Data[CurrP - 3])^) := Cardinal(Length(BlockInfo.Proc.Data)) - CurrP - 5;
+      {$endif}
+      if FParser.CurrTokenID = CSTI_Semicolon then FParser.Next;
+      if FParser.CurrTokenID = CSTII_Else then
+      begin
+        FParser.Next;
+        Block := TPSBlockInfo.Create(BlockInfo);
+        Block.SubType := tOneliner;
+        if not ProcessSub(Block) then
+        begin
+          Block.Free;
+          CalcItem.Free;
+          TempRec.Free;
+          EndReloc.Free;
+          ProcessCase := False;
+          exit;
+        end;
+        Block.Free;
+        if FParser.CurrTokenID = CSTI_Semicolon then FParser.Next;
+        if FParser.CurrtokenId <> CSTII_End then
+        begin
+          MakeError('', ecEndExpected, '');
+          CalcItem.Free;
+          TempRec.Free;
+          EndReloc.Free;
+          ProcessCase := False;
+          exit;
+        end;
+      end;
+    until FParser.CurrTokenID = CSTII_End;
+    FParser.Next;
+    for i := 0 to EndReloc.Count -1 do
+    begin
+      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+      unaligned(Cardinal((@BlockInfo.Proc.Data[Cardinal(EndReloc[I])- 3])^)) := Cardinal(Length(BlockInfo.Proc.Data)) - Cardinal(EndReloc[I]);
+      {$else}
+      Cardinal((@BlockInfo.Proc.Data[Cardinal(EndReloc[I])- 3])^) := Cardinal(Length(BlockInfo.Proc.Data)) - Cardinal(EndReloc[I]);
+      {$endif}
+    end;
+    CalcItem.Free;
+    TempRec.Free;
+    EndReloc.Free;
+    if FContinueOffsets <> nil then
+    begin
+      for i := 0 to FContinueOffsets.Count -1 do
+      begin
+        if Cardinal(FContinueOffsets[i]) >= SPos then
+        begin
+          {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+          unaligned(Byte((@BlockInfo.Proc.Data[Longint(FContinueOffsets[i]) - 4])^)) := Cm_P2G;
+	  {$else}
+          Byte((@BlockInfo.Proc.Data[Longint(FContinueOffsets[i]) - 4])^) := Cm_P2G;
+	  {$endif}
+        end;
+      end;
+    end;
+    if FBreakOffsets <> nil then
+    begin
+      for i := 0 to FBreakOffsets.Count -1 do
+      begin
+        if Cardinal(FBreakOffsets[i]) >= SPos then
+        begin
+          {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+          unaligned(Byte((@BlockInfo.Proc.Data[Longint(FBreakOffsets[i]) - 4])^)) := Cm_P2G;
+	  {$else}
+          Byte((@BlockInfo.Proc.Data[Longint(FBreakOffsets[i]) - 4])^) := Cm_P2G;
+	  {$endif}
+        end;
+      end;
+    end;
+    if HasInvalidJumps(SPos, Length(BlockInfo.Proc.Data)) then
+    begin
+      Result := False;
+      exit;
+    end;
+    Result := True;
+  end; {ProcessCase}
+	function ProcessGoto: Boolean;
+  var
+    I, H: Longint;
+    s: tbtString;
+  begin
+    Debug_WriteLine(BlockInfo);
+    FParser.Next;
+    h := MakeHash(FParser.GetToken);
+		for i := 0 to BlockInfo.Proc.FLabels.Count -1 do
+    begin
+      s := BlockInfo.Proc.FLabels[I];
+      delete(s, 1, 4);
+      if Longint((@s[1])^) = h then
+      begin
+        delete(s, 1, 4);
+        if s = FParser.GetToken then
+        begin
+          FParser.Next;
+          BlockWriteByte(BlockInfo, Cm_G);
+          BlockWriteLong(BlockInfo, $12345678);
+          BlockInfo.Proc.FGotos.Add(PS_mi2s(length(BlockInfo.Proc.Data))+PS_mi2s(i));
+          Result := True;
+          exit;
+        end;
+      end;
+    end;
+    MakeError('', ecUnknownIdentifier, FParser.OriginalToken);
+    Result := False;
+  end; {ProcessGoto}
+
+  function ProcessWith: Boolean;
+  var
+    Block: TPSBlockInfo;
+    aVar, aReplace: TPSValue;
+    aType: TPSType;
+
+    iStartOffset: Integer;
+
+    tmp: TPSValue;
+  begin
+    Debug_WriteLine(BlockInfo);
+    Block := TPSBlockInfo.Create(BlockInfo);
+    Block.SubType := tOneLiner;
+
+    FParser.Next;
+    repeat
+      aVar := GetIdentifier(0);
+      if aVar = nil then
+      begin
+        block.Free;
+        Result := False;
+        exit;
+      end;
+      AType := GetTypeNo(BlockInfo, aVar);
+      if (AType = nil) or ((aType.BaseType <> btRecord) and (aType.BaseType <> btClass)) then
+      begin
+        MakeError('', ecClassTypeExpected, '');
+        Block.Free;
+        Result := False;
+        exit;
+      end;
+
+      aReplace := TPSValueReplace.Create;
+      aReplace.SetParserPos(FParser);
+      TPSValueReplace(aReplace).FreeOldValue := True;
+      TPSValueReplace(aReplace).FreeNewValue := True;
+      TPSValueReplace(aReplace).OldValue := aVar;
+
+      //if aVar.InheritsFrom(TPSVar) then TPSVar(aVar).Use;
+      tmp := AllocPointer(GetTypeNo(BlockInfo, aVar));
+      TPSProcVar(BlockInfo.Proc.ProcVars[TPSValueAllocatedStackVar(tmp).LocalVarNo]).Use;
+      PreWriteOutRec(tmp,GetTypeNo(BlockInfo, tmp));
+      PreWriteOutRec(aVar,GetTypeNo(BlockInfo, aVar));
+      BlockWriteByte(BlockInfo, cm_sp);
+      WriteOutRec(tmp, false);
+      WriteOutRec(aVar, false);
+      TPSValueReplace(aReplace).NewValue := tmp;
+
+
+
+      Block.WithList.Add(aReplace);
+
+      if FParser.CurrTokenID = CSTII_do then
+      begin
+        FParser.Next;
+        Break;
+      end else
+      if FParser.CurrTokenId <> CSTI_Comma then
+      begin
+        MakeError('', ecDoExpected, '');
+        Block.Free;
+        Result := False;
+        exit;
+      end;
+      FParser.Next;
+    until False;
+
+
+    inc(FWithCount);
+
+    iStartOffset := Length(Block.Proc.Data);
+
+    if not (ProcessSub(Block) and (not HasInvalidJumps(iStartOffset,Length(BlockInfo.Proc.Data) + 1)) )  then
+    begin
+      dec(FWithCount);
+      Block.Free;
+      Result := False;
+      exit;
+    end;
+    dec(FWithCount);
+
+    AfterWriteOutRec(aVar);
+    AfterWriteOutRec(tmp);
+    Block.Free;
+    Result := True;
+  end;
+
+  function ProcessTry: Boolean;
+  var
+    FStartOffset: Cardinal;
+    iBlockStartOffset: Integer;
+    Block: TPSBlockInfo;
+  begin
+    FParser.Next;
+    BlockWriteByte(BlockInfo, cm_puexh);
+    FStartOffset := Length(BlockInfo.Proc.Data) + 1;
+    BlockWriteLong(BlockInfo, InvalidVal);
+    BlockWriteLong(BlockInfo, InvalidVal);
+    BlockWriteLong(BlockInfo, InvalidVal);
+    BlockWriteLong(BlockInfo, InvalidVal);
+    Block := TPSBlockInfo.Create(BlockInfo);
+    Block.SubType := tTry;
+    inc(FTryCount);
+    if ProcessSub(Block) and (not HasInvalidJumps(FStartOffset,Length(BlockInfo.Proc.Data) + 1))  then
+    begin
+      dec(FTryCount);
+      Block.Free;
+      BlockWriteByte(BlockInfo, cm_poexh);
+      BlockWriteByte(BlockInfo, 0);
+      if FParser.CurrTokenID = CSTII_Except then
+      begin
+        FParser.Next;
+        Cardinal((@BlockInfo.Proc.Data[FStartOffset + 4])^) := Cardinal(Length(BlockInfo.Proc.Data)) - FStartOffset - 15;
+        iBlockStartOffset := Length(BlockInfo.Proc.Data) ;
+        Block := TPSBlockInfo.Create(BlockInfo);
+        Block.SubType := tTryEnd;
+        inc(FExceptFinallyCount);
+        if ProcessSub(Block) and (not HasInvalidJumps(iBlockStartOffset,Length(BlockInfo.Proc.Data) + 1))  then
+        begin
+          dec(FExceptFinallyCount);
+          Block.Free;
+          BlockWriteByte(BlockInfo, cm_poexh);
+          BlockWriteByte(BlockInfo, 2);
+          if FParser.CurrTokenId = CSTII_Finally then
+          begin
+            Cardinal((@BlockInfo.Proc.Data[FStartOffset + 8])^) := Cardinal(Length(BlockInfo.Proc.Data)) - FStartOffset - 15;
+            iBlockStartOffset := Length(BlockInfo.Proc.Data) ;
+            Block := TPSBlockInfo.Create(BlockInfo);
+            Block.SubType := tTryEnd;
+            FParser.Next;
+           inc(FExceptFinallyCount);
+            if ProcessSub(Block)  and (not HasInvalidJumps(iBlockStartOffset,Length(BlockInfo.Proc.Data) + 1))  then
+            begin
+              dec(FExceptFinallyCount);
+              Block.Free;
+              if FParser.CurrTokenId = CSTII_End then
+              begin
+                BlockWriteByte(BlockInfo, cm_poexh);
+                BlockWriteByte(BlockInfo, 3);
+              end else begin
+                MakeError('', ecEndExpected, '');
+                Result := False;
+                exit;
+              end;
+            end else
+            begin
+              Block.Free;
+              Result := False;
+              dec(FExceptFinallyCount);
+              exit;
+            end;
+          end else if FParser.CurrTokenID <> CSTII_End then
+          begin
+            MakeError('', ecEndExpected, '');
+            Result := False;
+            exit;
+          end;
+          FParser.Next;
+        end else
+        begin
+          Block.Free;
+          Result := False;
+          dec(FExceptFinallyCount);
+          exit;
+        end;
+      end else if FParser.CurrTokenId = CSTII_Finally then
+      begin
+        FParser.Next;
+        Cardinal((@BlockInfo.Proc.Data[FStartOffset])^) := Cardinal(Length(BlockInfo.Proc.Data)) - FStartOffset - 15;
+        iBlockStartOffset := Length(BlockInfo.Proc.Data) ;
+        Block := TPSBlockInfo.Create(BlockInfo);
+        Block.SubType := tTryEnd;
+        inc(FExceptFinallyCount);
+        if ProcessSub(Block)  and (not HasInvalidJumps(iBlockStartOffset,Length(BlockInfo.Proc.Data) + 1)) then
+        begin
+          dec(FExceptFinallyCount);
+          Block.Free;
+          BlockWriteByte(BlockInfo, cm_poexh);
+          BlockWriteByte(BlockInfo, 1);
+          if FParser.CurrTokenId = CSTII_Except then
+          begin
+            Cardinal((@BlockInfo.Proc.Data[FStartOffset + 4])^) := Cardinal(Length(BlockInfo.Proc.Data)) - FStartOffset - 15;
+            iBlockStartOffset := Length(BlockInfo.Proc.Data) ;
+            FParser.Next;
+            Block := TPSBlockInfo.Create(BlockInfo);
+            Block.SubType := tTryEnd;
+            inc(FExceptFinallyCount);
+            if ProcessSub(Block) and (not HasInvalidJumps(iBlockStartOffset,Length(BlockInfo.Proc.Data) + 1)) then
+            begin
+              dec(FExceptFinallyCount);
+              Block.Free;
+              if FParser.CurrTokenId = CSTII_End then
+              begin
+                BlockWriteByte(BlockInfo, cm_poexh);
+                BlockWriteByte(BlockInfo, 2);
+              end else begin
+                MakeError('', ecEndExpected, '');
+                Result := False;
+                exit;
+              end;
+            end else
+            begin
+              Block.Free;
+              Result := False;
+              dec(FExceptFinallyCount);
+              exit;
+            end;
+          end else if FParser.CurrTokenID <> CSTII_End then
+          begin
+            MakeError('', ecEndExpected, '');
+            Result := False;
+            exit;
+          end;
+          FParser.Next;
+        end else
+        begin
+          Block.Free;
+          Result := False;
+          dec(FExceptFinallyCount);
+          exit;
+        end;
+      end;
+    end else
+    begin
+      Block.Free;
+      Result := False;
+      dec(FTryCount);
+      exit;
+    end;
+    Cardinal((@BlockInfo.Proc.Data[FStartOffset + 12])^) := Cardinal(Length(BlockInfo.Proc.Data)) - FStartOffset - 15;
+    Result := True;
+  end; {ProcessTry}
+
+var
+  i: Integer;
+  Block: TPSBlockInfo;
+
+begin
+  ProcessSub := False;
+  if (BlockInfo.SubType = tProcBegin) or (BlockInfo.SubType= tMainBegin) or
+{$IFDEF PS_USESSUPPORT}
+     (BlockInfo.SubType = tUnitInit) or (BlockInfo.SubType= tUnitFinish) or // NvdS
+{$endif}
+     (BlockInfo.SubType= tSubBegin) then
+  begin
+    FParser.Next; // skip CSTII_Begin
+  end;
+  while True do
+  begin
+    case FParser.CurrTokenId of
+      CSTII_Goto:
+        begin
+          if not ProcessGoto then
+            Exit;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_With:
+        begin
+          if not ProcessWith then
+            Exit;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_Try:
+        begin
+          if not ProcessTry then
+            Exit;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_Finally, CSTII_Except:
+        begin
+          if (BlockInfo.SubType = tTry) or (BlockInfo.SubType = tTryEnd) then
+            Break
+          else
+            begin
+              MakeError('', ecEndExpected, '');
+              Exit;
+            end;
+        end;
+      CSTII_Begin:
+        begin
+          Block := TPSBlockInfo.Create(BlockInfo);
+          Block.SubType := tSubBegin;
+          if not ProcessSub(Block) then
+          begin
+            Block.Free;
+            Exit;
+          end;
+          Block.Free;
+
+          FParser.Next; // skip END
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTI_Semicolon:
+        begin
+
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break
+          else FParser.Next;
+        end;
+      CSTII_until:
+        begin
+          Debug_WriteLine(BlockInfo);
+          if BlockInfo.SubType = tRepeat then
+          begin
+            break;
+          end
+          else
+          begin
+            MakeError('', ecIdentifierExpected, '');
+            exit;
+          end;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_Else:
+        begin
+          if BlockInfo.SubType = tifOneliner then
+            break
+          else
+          begin
+            MakeError('', ecIdentifierExpected, '');
+            exit;
+          end;
+        end;
+      CSTII_repeat:
+        begin
+          if not ProcessRepeat then
+            exit;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_For:
+        begin
+          if not ProcessFor then
+            exit;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_While:
+        begin
+          if not ProcessWhile then
+            exit;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_Exit:
+        begin
+          Debug_WriteLine(BlockInfo);
+          BlockWriteByte(BlockInfo, Cm_R);
+          FParser.Next;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_Case:
+        begin
+          if not ProcessCase then
+            exit;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTII_If:
+        begin
+          if not ProcessIf then
+            exit;
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+        end;
+      CSTI_Identifier:
+        begin
+          case _ProcessLabel of
+            0: Exit;
+            1: ;
+            else
+            begin
+              if FParser.GetToken = 'BREAK' then
+              begin
+                if FBreakOffsets = nil then
+                begin
+                  MakeError('', ecNotInLoop, '');
+                  exit;
+                end;
+                for i := 0 to FExceptFinallyCount - 1 do
+                begin
+                  BlockWriteByte(BlockInfo, cm_poexh);
+                  BlockWriteByte(BlockInfo, 1);
+                end;
+
+                for i := 0 to FTryCount - 1 do
+                begin
+                  BlockWriteByte(BlockInfo, cm_poexh);
+                  BlockWriteByte(BlockInfo, 0);
+                  BlockWriteByte(BlockInfo, cm_poexh);
+                  BlockWriteByte(BlockInfo, 1);
+                end;
+
+                for i := 0 to FWithCount - 1 do
+									BlockWriteByte(BlockInfo,cm_po);
+                BlockWriteByte(BlockInfo, Cm_G);
+                BlockWriteLong(BlockInfo, $12345678);
+                FBreakOffsets.Add(Pointer(Length(BlockInfo.Proc.Data)));
+                FParser.Next;
+                if (BlockInfo.SubType= tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+                  break;
+              end else if FParser.GetToken = 'CONTINUE' then
+              begin
+                if FBreakOffsets = nil then
+                begin
+                  MakeError('', ecNotInLoop, '');
+                  exit;
+                end;
+                for i := 0 to FExceptFinallyCount - 1 do
+                begin
+                  BlockWriteByte(BlockInfo, cm_poexh);
+                  BlockWriteByte(BlockInfo, 1);
+                end;
+
+                for i := 0 to FTryCount - 1 do
+                begin
+                  BlockWriteByte(BlockInfo, cm_poexh);
+                  BlockWriteByte(BlockInfo, 0);
+                  BlockWriteByte(BlockInfo, cm_poexh);
+                  BlockWriteByte(BlockInfo, 1);
+                end;
+
+                for i := 0 to FWithCount - 1 do
+									BlockWriteByte(BlockInfo,cm_po);
+                BlockWriteByte(BlockInfo, Cm_G);
+                BlockWriteLong(BlockInfo, $12345678);
+                FContinueOffsets.Add(Pointer(Length(BlockInfo.Proc.Data)));
+                FParser.Next;
+                if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+                  break;
+              end else
+              if not ProcessIdentifier then
+                exit;
+              if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+                break;
+            end;
+          end; {case}
+          
+          if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+            break;
+
+        end;
+    {$IFDEF PS_USESSUPPORT}
+      CSTII_Finalization:                            //NvdS
+        begin                                        //
+          if (BlockInfo.SubType = tUnitInit) then    //
+          begin                                      //
+            break;                                   //
+          end                                        //
+          else                                       //
+          begin                                      //
+            MakeError('', ecIdentifierExpected, ''); //
+            exit;                                    //
+          end;                                       //
+        end;                                         //nvds
+    {$endif}
+      CSTII_End:
+        begin
+          if (BlockInfo.SubType = tTryEnd) or (BlockInfo.SubType = tMainBegin) or
+             (BlockInfo.SubType = tSubBegin) or (BlockInfo.SubType = tifOneliner) or
+             (BlockInfo.SubType = tProcBegin) or (BlockInfo.SubType = TOneLiner)
+    {$IFDEF PS_USESSUPPORT} or (BlockInfo.SubType = tUnitInit) or (BlockInfo.SubType = tUnitFinish) {$endif} then //nvds
+          begin
+            break;
+          end
+          else
+          begin
+            MakeError('', ecIdentifierExpected, '');
+            exit;
+          end;
+        end;
+      CSTI_EOF:
+        begin
+          MakeError('', ecUnexpectedEndOfFile, '');
+          exit;
+        end;
+    else
+      begin
+        MakeError('', ecIdentifierExpected, '');
+        exit;
+      end;
+    end;
+  end;
+  if (BlockInfo.SubType = tMainBegin) or (BlockInfo.SubType = tProcBegin)
+ {$IFDEF PS_USESSUPPORT} or (BlockInfo.SubType = tUnitInit) or (BlockInfo.SubType = tUnitFinish) {$endif} then  //nvds
+  begin
+    Debug_WriteLine(BlockInfo);
+    BlockWriteByte(BlockInfo, Cm_R);
+    {$IFDEF PS_USESSUPPORT}
+    if FParser.CurrTokenId = CSTII_End then //nvds
+    begin
+    {$endif}
+      FParser.Next; // skip end
+      if ((BlockInfo.SubType = tMainBegin)
+    {$IFDEF PS_USESSUPPORT} or (BlockInfo.SubType = tUnitInit) or (BlockInfo.SubType = tUnitFinish){$endif}) //nvds
+         and (FParser.CurrTokenId <> CSTI_Period) then
+      begin
+        MakeError('', ecPeriodExpected, '');
+        exit;
+      end;
+      if (BlockInfo.SubType = tProcBegin) and (FParser.CurrTokenId <> CSTI_Semicolon) then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        exit;
+      end;
+      FParser.Next;
+    {$IFDEF PS_USESSUPPORT}
+    end;   //nvds
+    {$endif}
+  end
+  else if (BlockInfo.SubType = tifOneliner) or (BlockInfo.SubType = TOneLiner) then
+  begin
+    if (FParser.CurrTokenID <> CSTII_Else) and (FParser.CurrTokenID <> CSTII_End) then
+      if FParser.CurrTokenID <> CSTI_Semicolon then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        exit;
+      end;
+  end;
+
+  ProcessSub := True;
+end;
+procedure TPSPascalCompiler.UseProc(procdecl: TPSParametersDecl);
+var
+  i: Longint;
+begin
+  if procdecl.Result <> nil then
+    procdecl.Result := at2ut(procdecl.Result);
+  for i := 0 to procdecl.ParamCount -1 do
+  begin
+    procdecl.Params[i].aType := at2ut(procdecl.Params[i].aType);
+  end;
+end;
+
+function TPSPascalCompiler.at2ut(p: TPSType): TPSType;
+var
+  i: Longint;
+begin
+  p := GetTypeCopyLink(p);
+  if p = nil then
+  begin
+    Result := nil;
+    exit;
+  end;
+  if not p.Used then
+  begin
+    p.Use;
+    case p.BaseType of
+      btStaticArray, btArray: TPSArrayType(p).ArrayTypeNo := at2ut(TPSArrayType(p).ArrayTypeNo);
+      btRecord:
+        begin
+          for i := 0 to TPSRecordType(p).RecValCount -1 do
+          begin
+            TPSRecordType(p).RecVal(i).aType := at2ut(TPSRecordType(p).RecVal(i).aType);
+          end;
+        end;
+      btSet: TPSSetType(p).SetType := at2ut(TPSSetType(p).SetType);
+      btProcPtr:
+        begin
+          UseProc(TPSProceduralType(p).ProcDef);
+        end;
+    end;
+    p.FFinalTypeNo := FCurrUsedTypeNo;
+    inc(FCurrUsedTypeNo);
+  end;
+  Result := p;
+end;
+
+function TPSPascalCompiler.ProcessLabelForwards(Proc: TPSInternalProcedure): Boolean;
+var
+  i: Longint;
+  s, s2: tbtString;
+begin
+  for i := 0 to Proc.FLabels.Count -1 do
+  begin
+    s := Proc.FLabels[I];
+    if Longint((@s[1])^) = -1 then
+    begin
+      delete(s, 1, 8);
+      MakeError('', ecUnSetLabel, s);
+      Result := False;
+      exit;
+    end;
+  end;
+  for i := Proc.FGotos.Count -1 downto 0 do
+  begin
+    s := Proc.FGotos[I];
+    s2 := Proc.FLabels[Cardinal((@s[5])^)];
+    Cardinal((@Proc.Data[Cardinal((@s[1])^)-3])^) :=  Cardinal((@s2[1])^) - Cardinal((@s[1])^) ;
+  end;
+  Result := True;
+end;
+
+
+type
+  TCompilerState = (csStart, csProgram, csUnit, csUses, csInterface, csInterfaceUses, csImplementation);
+
+function TPSPascalCompiler.Compile(const s: tbtString): Boolean;
+var
+  Position: TCompilerState;
+  i: Longint;
+  {$IFDEF PS_USESSUPPORT}
+  OldFileName: tbtString;
+  OldParser  : TPSPascalParser;
+  OldIsUnit  : Boolean;
+  {$ENDIF}
+
+  procedure Cleanup;
+  var
+    I: Longint;
+    PT: TPSType;
+  begin
+    {$IFDEF PS_USESSUPPORT}
+    if fInCompile>1 then
+    begin
+      dec(fInCompile);
+      exit;
+    end;
+    {$ENDIF}
+
+    if @FOnBeforeCleanup <> nil then
+      FOnBeforeCleanup(Self);        // no reason it actually read the result of this call
+    FGlobalBlock.Free;
+    FGlobalBlock := nil;
+
+    for I := 0 to FRegProcs.Count - 1 do
+      TObject(FRegProcs[I]).Free;
+    FRegProcs.Free;
+    for i := 0 to FConstants.Count -1 do
+    begin
+      TPSConstant(FConstants[I]).Free;
+    end;
+    Fconstants.Free;
+    for I := 0 to FVars.Count - 1 do
+    begin
+      TPSVar(FVars[I]).Free;
+    end;
+    FVars.Free;
+    FVars := nil;
+    for I := 0 to FProcs.Count - 1 do
+      TPSProcedure(FProcs[I]).Free;
+    FProcs.Free;
+    FProcs := nil;
+    for I := 0 to FTypes.Count - 1 do
+    begin
+      PT := FTypes[I];
+      pt.Free;
+    end;
+    FTypes.Free;
+
+{$IFNDEF PS_NOINTERFACES}
+    for i := FInterfaces.Count -1 downto 0 do
+      TPSInterface(FInterfaces[i]).Free;
+    FInterfaces.Free;
+{$ENDIF}
+
+    for i := FClasses.Count -1 downto 0 do
+    begin
+      TPSCompileTimeClass(FClasses[I]).Free;
+    end;
+    FClasses.Free;
+    for i := FAttributeTypes.Count -1 downto 0 do
+    begin
+      TPSAttributeType(FAttributeTypes[i]).Free;
+    end;
+    FAttributeTypes.Free;
+    FAttributeTypes := nil;
+
+    {$IFDEF PS_USESSUPPORT}
+    for I := 0 to FUnitInits.Count - 1 do        //nvds
+    begin                                        //nvds
+      TPSBlockInfo(FUnitInits[I]).free;          //nvds
+    end;                                         //nvds
+    FUnitInits.Free;                             //nvds
+    FUnitInits := nil;                           //
+    for I := 0 to FUnitFinits.Count - 1 do       //nvds
+    begin                                        //nvds
+      TPSBlockInfo(FUnitFinits[I]).free;         //nvds
+    end;                                         //nvds
+    FUnitFinits.Free;                            //
+    FUnitFinits := nil;                          //
+
+    FUses.Free;
+    FUses:=nil;
+    fInCompile:=0;
+    {$ENDIF}
+  end;
+
+  function MakeOutput: Boolean;
+
+    procedure WriteByte(b: Byte);
+    begin
+      FOutput := FOutput + tbtChar(b);
+    end;
+
+    procedure WriteData(const Data; Len: Longint);
+    var
+      l: Longint;
+    begin
+      if Len < 0 then Len := 0;
+      l := Length(FOutput);
+      SetLength(FOutput, l + Len);
+      Move(Data, FOutput[l + 1], Len);
+    end;
+
+    procedure WriteLong(l: Cardinal);
+    begin
+      WriteData(l, 4);
+    end;
+
+    procedure WriteVariant(p: PIfRVariant);
+    begin
+      WriteLong(p^.FType.FinalTypeNo);
+      case p.FType.BaseType of
+      btType: WriteLong(p^.ttype.FinalTypeNo);
+      {$IFNDEF PS_NOWIDESTRING}
+      btWideString:
+        begin
+          WriteLong(Length(tbtWideString(p^.twidestring)));
+          WriteData(tbtwidestring(p^.twidestring)[1], 2*Length(tbtWideString(p^.twidestring)));
+        end;
+      btUnicodeString:
+        begin
+          WriteLong(Length(tbtUnicodestring(p^.twidestring)));
+          WriteData(tbtUnicodestring(p^.twidestring)[1], 2*Length(tbtUnicodestring(p^.twidestring)));
+        end;
+      btWideChar: WriteData(p^.twidechar, 2);
+      {$ENDIF}
+      btSingle: WriteData(p^.tsingle, sizeof(tbtSingle));
+      btDouble: WriteData(p^.tsingle, sizeof(tbtDouble));
+      btExtended: WriteData(p^.tsingle, sizeof(tbtExtended));
+      btCurrency: WriteData(p^.tsingle, sizeof(tbtCurrency));
+      btChar: WriteData(p^.tchar, 1);
+      btSet:
+        begin
+          WriteData(tbtString(p^.tstring)[1], Length(tbtString(p^.tstring)));
+        end;
+      btString:
+        begin
+          WriteLong(Length(tbtString(p^.tstring)));
+          WriteData(tbtString(p^.tstring)[1], Length(tbtString(p^.tstring)));
+        end;
+      btenum:
+        begin
+          if TPSEnumType(p^.FType).HighValue <=256 then
+            WriteData( p^.tu32, 1)
+          else if TPSEnumType(p^.FType).HighValue <=65536 then
+            WriteData(p^.tu32, 2)
+          else
+            WriteData(p^.tu32, 4);
+        end;
+      bts8,btu8: WriteData(p^.tu8, 1);
+      bts16,btu16: WriteData(p^.tu16, 2);
+      bts32,btu32: WriteData(p^.tu32, 4);
+      {$IFNDEF PS_NOINT64}
+      bts64: WriteData(p^.ts64, 8);
+      {$ENDIF}
+      btProcPtr: WriteData(p^.tu32, 4);
+      {$IFDEF DEBUG}
+      else
+          asm int 3; end;
+      {$ENDIF}
+      end;
+    end;
+
+    procedure WriteAttributes(attr: TPSAttributes);
+    var
+      i, j: Longint;
+    begin
+      WriteLong(attr.Count);
+      for i := 0 to Attr.Count -1 do
+      begin
+        j := Length(attr[i].FAttribType.Name);
+        WriteLong(j);
+        WriteData(Attr[i].FAttribType.Name[1], j);
+        WriteLong(Attr[i].Count);
+        for j := 0 to Attr[i].Count -1 do
+        begin
+          WriteVariant(Attr[i][j]);
+        end;
+      end;
+    end;
+
+    procedure WriteTypes;
+    var
+      l, n: Longint;
+      bt: TPSBaseType;
+      x: TPSType;
+      s: tbtString;
+      FExportName: tbtString;
+      Items: TPSList;
+      procedure WriteTypeNo(TypeNo: Cardinal);
+      begin
+        WriteData(TypeNo, 4);
+      end;
+    begin
+      Items := TPSList.Create;
+      try
+        for l := 0 to FCurrUsedTypeNo -1 do
+          Items.Add(nil);
+        for l := 0 to FTypes.Count -1 do
+        begin
+          x := FTypes[l];
+          if x.Used then
+            Items[x.FinalTypeNo] := x;
+        end;
+        for l := 0 to Items.Count - 1 do
+        begin
+          x := Items[l];
+          if x.FExportName then
+            FExportName := x.Name
+          else
+            FExportName := '';
+          if (x.BaseType = btExtClass) and (x is TPSUndefinedClassType) then
+          begin
+            x := GetTypeCopyLink(TPSUndefinedClassType(x).ExtClass.SelfType);
+          end;
+          bt := x.BaseType;
+          if (x.BaseType = btType) or (x.BaseType = btNotificationVariant) then
+          begin
+            bt := btU32;
+          end else
+          if (x.BaseType = btEnum) then begin
+            if TPSEnumType(x).HighValue <= 256 then
+              bt := btU8
+            else if TPSEnumType(x).HighValue <= 65536 then
+              bt := btU16
+            else
+              bt := btU32;
+          end;
+          if FExportName <> '' then
+          begin
+            WriteByte(bt + 128);
+          end
+          else
+            WriteByte(bt);
+{$IFNDEF PS_NOINTERFACES} if x.BaseType = btInterface then
+          begin
+            WriteData(TPSInterfaceType(x).Intf.Guid, Sizeof(TGuid));
+          end else {$ENDIF} if x.BaseType = btClass then
+          begin
+            WriteLong(Length(TPSClassType(X).Cl.FClassName));
+            WriteData(TPSClassType(X).Cl.FClassName[1], Length(TPSClassType(X).Cl.FClassName));
+          end else
+          if (x.BaseType = btProcPtr) then
+          begin
+            s := DeclToBits(TPSProceduralType(x).ProcDef);
+            WriteLong(Length(s));
+            WriteData(s[1], Length(s));
+          end else
+          if (x.BaseType = btSet) then
+          begin
+            WriteLong(TPSSetType(x).BitSize);
+          end else
+          if (x.BaseType = btArray) or (x.basetype = btStaticArray) then
+          begin
+            WriteLong(TPSArrayType(x).ArrayTypeNo.FinalTypeNo);
+            if (x.baseType = btstaticarray) then begin
+              WriteLong(TPSStaticArrayType(x).Length);
+              WriteLong(TPSStaticArrayType(x).StartOffset);      //<-additional StartOffset
+            end;
+          end else if x.BaseType = btRecord then
+          begin
+            n := TPSRecordType(x).RecValCount;
+            WriteData( n, 4);
+            for n := 0 to TPSRecordType(x).RecValCount - 1 do
+              WriteTypeNo(TPSRecordType(x).RecVal(n).FType.FinalTypeNo);
+          end;
+          if FExportName <> '' then
+          begin
+            WriteLong(Length(FExportName));
+            WriteData(FExportName[1], length(FExportName));
+          end;
+          WriteAttributes(x.Attributes);
+        end;
+      finally
+        Items.Free;
+      end;
+    end;
+
+    procedure WriteVars;
+    var
+      l,j : Longint;
+      x: TPSVar;
+    begin
+      for l := 0 to FVars.Count - 1 do
+      begin
+        x := FVars[l];
+        if x.SaveAsPointer then
+        begin
+          for j := FTypes.count -1 downto 0 do
+          begin
+            if TPSType(FTypes[j]).BaseType = btPointer then
+            begin
+              WriteLong(TPSType(FTypes[j]).FinalTypeNo);
+              break;
+            end;
+          end;
+        end else
+          WriteLong(x.FType.FinalTypeNo);
+        if x.exportname <> '' then
+        begin
+          WriteByte( 1);
+          WriteLong(Length(X.ExportName));
+          WriteData( X.ExportName[1], length(X.ExportName));
+        end else
+          WriteByte( 0);
+      end;
+    end;
+
+    procedure WriteProcs;
+    var
+      l: Longint;
+      xp: TPSProcedure;
+      xo: TPSInternalProcedure;
+      xe: TPSExternalProcedure;
+      s: tbtString;
+      att: Byte;
+    begin
+      for l := 0 to FProcs.Count - 1 do
+      begin
+        xp := FProcs[l];
+        if xp.Attributes.Count <> 0 then att := 4 else att := 0;
+        if xp.ClassType = TPSInternalProcedure then
+        begin
+          xo := TPSInternalProcedure(xp);
+          xo.OutputDeclPosition := Length(FOutput);
+          WriteByte(att or 2); // exported
+          WriteLong(0); // offset is unknown at this time
+          WriteLong(0); // length is also unknown at this time
+          WriteLong(Length(xo.Name));
+          WriteData( xo.Name[1], length(xo.Name));
+          s := MakeExportDecl(xo.Decl);
+          WriteLong(Length(s));
+          WriteData( s[1], length(S));
+        end
+        else
+        begin
+          xe := TPSExternalProcedure(xp);
+          if xe.RegProc.ImportDecl <> '' then
+          begin
+            WriteByte( att or 3); // imported
+            if xe.RegProc.FExportName then
+            begin
+              WriteByte(Length(xe.RegProc.Name));
+              WriteData(xe.RegProc.Name[1], Length(xe.RegProc.Name) and $FF);
+            end else begin
+              WriteByte(0);
+            end;
+            WriteLong(Length(xe.RegProc.ImportDecl));
+            WriteData(xe.RegProc.ImportDecl[1], Length(xe.RegProc.ImportDecl));
+          end else begin
+            WriteByte(att or 1); // imported
+            WriteByte(Length(xe.RegProc.Name));
+            WriteData(xe.RegProc.Name[1], Length(xe.RegProc.Name) and $FF);
+          end;
+        end;
+        if xp.Attributes.Count <> 0 then
+          WriteAttributes(xp.Attributes);
+      end;
+    end;
+
+    procedure WriteProcs2;
+    var
+      l: Longint;
+      L2: Cardinal;
+      x: TPSProcedure;
+    begin
+      for l := 0 to FProcs.Count - 1 do
+      begin
+        x := FProcs[l];
+        if x.ClassType = TPSInternalProcedure then
+        begin
+          if TPSInternalProcedure(x).Data = '' then
+            TPSInternalProcedure(x).Data := Chr(Cm_R);
+          L2 := Length(FOutput);
+          Move(L2, FOutput[TPSInternalProcedure(x).OutputDeclPosition + 2], 4);
+          // write position
+          WriteData(TPSInternalProcedure(x).Data[1], Length(TPSInternalProcedure(x).Data));
+          L2 := Cardinal(Length(FOutput)) - L2;
+          Move(L2, FOutput[TPSInternalProcedure(x).OutputDeclPosition + 6], 4); // write length
+        end;
+      end;
+    end;
+
+
+
+    {$IFDEF PS_USESSUPPORT}
+    function FindMainProc: Cardinal;
+    var
+      l: Longint;
+      Proc : TPSInternalProcedure;
+      ProcData : tbtString;
+      Calls : Integer;
+
+      procedure WriteProc(const aData: Longint);
+      var
+        l: Longint;
+      begin
+        ProcData := ProcData + Chr(cm_c);
+        l := Length(ProcData);
+        SetLength(ProcData, l + 4);
+        Move(aData, ProcData[l + 1], 4);
+        inc(Calls);
+      end;
+    begin
+      ProcData := ''; Calls := 1;
+      for l := 0 to FUnitInits.Count-1 do
+        if (FUnitInits[l] <> nil) and
+           (TPSBlockInfo(FUnitInits[l]).Proc.Data<>'') then
+          WriteProc(TPSBlockInfo(FUnitInits[l]).FProcNo);
+
+      WriteProc(FGlobalBlock.FProcNo);
+
+      for l := FUnitFinits.Count-1 downto 0 do
+        if (FUnitFinits[l] <> nil) and
+           (TPSBlockInfo(FUnitFinits[l]).Proc.Data<>'') then
+          WriteProc(TPSBlockInfo(FUnitFinits[l]).FProcNo);
+
+      if Calls = 1 then begin
+        Result := FGlobalBlock.FProcNo;
+      end else
+      begin
+        Proc := NewProc('Master proc', '!MASTERPROC');
+        Result := FindProc('!MASTERPROC');
+        Proc.data := Procdata + Chr(cm_R);
+      end;
+    end;
+    {$ELSE}
+    function FindMainProc: Cardinal;
+    var
+      l: Longint;
+    begin
+      for l := 0 to FProcs.Count - 1 do
+      begin
+        if (TPSProcedure(FProcs[l]).ClassType = TPSInternalProcedure) and
+          (TPSInternalProcedure(FProcs[l]).Name = PSMainProcName) then
+        begin
+          Result := l;
+          exit;
+        end;
+      end;
+      Result := InvalidVal;
+    end;
+    {$ENDIF}
+
+    procedure CreateDebugData;
+    var
+      I: Longint;
+      p: TPSProcedure;
+      pv: TPSVar;
+      s: tbtString;
+    begin
+      s := #0;
+      for I := 0 to FProcs.Count - 1 do
+      begin
+        p := FProcs[I];
+        if p.ClassType = TPSInternalProcedure then
+        begin
+          if TPSInternalProcedure(p).Name = PSMainProcName then
+            s := s + #1
+          else
+            s := s + TPSInternalProcedure(p).OriginalName + #1;
+        end
+        else
+        begin
+          s := s+ TPSExternalProcedure(p).RegProc.OrgName + #1;
+        end;
+      end;
+      s := s + #0#1;
+      for I := 0 to FVars.Count - 1 do
+      begin
+        pv := FVars[I];
+        s := s + pv.OrgName + #1;
+      end;
+      s := s + #0;
+      WriteDebugData(s);
+    end;
+
+  var                       //nvds
+    MainProc : Cardinal;    //nvds
+
+  begin
+    if @FOnBeforeOutput <> nil then
+    begin
+      if not FOnBeforeOutput(Self) then
+      begin
+        Result := false;
+        exit;
+      end;
+    end;
+    MainProc := FindMainProc; //NvdS (need it here becose FindMainProc can create a New proc.
+    CreateDebugData;
+    WriteLong(PSValidHeader);
+    WriteLong(PSCurrentBuildNo);
+    WriteLong(FCurrUsedTypeNo);
+    WriteLong(FProcs.Count);
+    WriteLong(FVars.Count);
+    WriteLong(MainProc);  //nvds
+    WriteLong(0);
+    WriteTypes;
+    WriteProcs;
+    WriteVars;
+    WriteProcs2;
+
+    Result := true;
+  end;
+
+  function CheckExports: Boolean;
+  var
+    i: Longint;
+    p: TPSProcedure;
+  begin
+    if @FOnExportCheck = nil then
+    begin
+      result := true;
+      exit;
+    end;
+    for i := 0 to FProcs.Count -1 do
+    begin
+      p := FProcs[I];
+      if p.ClassType = TPSInternalProcedure then
+      begin
+        if not FOnExportCheck(Self, TPSInternalProcedure(p), MakeDecl(TPSInternalProcedure(p).Decl)) then
+        begin
+          Result := false;
+          exit;
+        end;
+      end;
+    end;
+    Result := True;
+  end;
+  function DoConstBlock: Boolean;
+  var
+    COrgName: tbtString;
+    CTemp, CValue: PIFRVariant;
+    Cp: TPSConstant;
+    TokenPos, TokenRow, TokenCol: Integer;
+  begin
+    FParser.Next;
+    repeat
+      if FParser.CurrTokenID <> CSTI_Identifier then
+      begin
+        MakeError('', ecIdentifierExpected, '');
+        Result := False;
+        Exit;
+      end;
+      TokenPos := FParser.CurrTokenPos;
+      TokenRow := FParser.Row;
+      TokenCol := FParser.Col;
+      COrgName := FParser.OriginalToken;
+      if IsDuplicate(FastUpperCase(COrgName), [dcVars, dcProcs, dcConsts]) then
+      begin
+        MakeError('', ecDuplicateIdentifier, COrgName);
+        Result := False;
+        exit;
+      end;
+      FParser.Next;
+      if FParser.CurrTokenID <> CSTI_Equal then
+      begin
+        MakeError('', ecIsExpected, '');
+        Result := False;
+        Exit;
+      end;
+      FParser.Next;
+      CValue := ReadConstant(FParser, CSTI_SemiColon);
+      if CValue = nil then
+      begin
+        Result := False;
+        Exit;
+      end;
+      if FParser.CurrTokenID <> CSTI_Semicolon then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        Result := False;
+        exit;
+      end;
+      cp := TPSConstant.Create;
+      cp.Orgname := COrgName;
+      cp.Name := FastUpperCase(COrgName);
+      {$IFDEF PS_USESSUPPORT}
+      cp.DeclareUnit:=fModule;
+      {$ENDIF}
+      cp.DeclarePos := TokenPos;
+      cp.DeclareRow := TokenRow;
+      cp.DeclareCol := TokenCol;
+      New(CTemp);
+      InitializeVariant(CTemp, CValue.FType);
+      CopyVariantContents(cvalue, CTemp);
+      cp.Value := CTemp;
+      FConstants.Add(cp);
+      DisposeVariant(CValue);
+      FParser.Next;
+    until FParser.CurrTokenId <> CSTI_Identifier;
+    Result := True;
+  end;
+
+  function ProcessUses: Boolean;
+  var
+    {$IFNDEF PS_USESSUPPORT}
+    FUses: TIfStringList;
+    {$ENDIF}
+    I: Longint;
+    s: tbtString;
+    {$IFDEF PS_USESSUPPORT}
+    Parse: Boolean;
+    ParseUnit: tbtString;
+    ParserPos: TPSPascalParser;
+    {$ENDIF}
+  begin
+    FParser.Next;
+    {$IFNDEF PS_USESSUPPORT}
+    FUses := TIfStringList.Create;
+    FUses.Add('SYSTEM');
+    {$ENDIF}
+    repeat
+      if FParser.CurrTokenID <> CSTI_Identifier then
+      begin
+        MakeError('', ecIdentifierExpected, '');
+        {$IFNDEF PS_USESSUPPORT}
+        FUses.Free;
+        {$ENDIF}
+        Result := False;
+        exit;
+      end;
+      s := FParser.GetToken;
+      {$IFDEF PS_USESSUPPORT}
+      Parse:=true;
+      {$ENDIF}
+      for i := 0 to FUses.Count -1 do
+      begin
+        if FUses[I] = s then
+        begin
+          {$IFNDEF PS_USESSUPPORT}
+          MakeError('', ecDuplicateIdentifier, s);
+          FUses.Free;
+          Result := False;
+          exit;
+          {$ELSE}
+          Parse:=false;
+          {$ENDIF}
+        end;
+      end;
+      {$IFDEF PS_USESSUPPORT}
+      if Parse then
+      begin
+      {$ENDIF}
+        FUses.Add(s);
+        if @FOnUses <> nil then
+        begin
+          try
+            {$IFDEF PS_USESSUPPORT}
+            OldFileName:=fModule;
+            fModule:=FParser.OriginalToken;
+            ParseUnit:=FParser.OriginalToken;
+            ParserPos:=FParser;
+            {$ENDIF}
+            if not OnUses(Self, FParser.GetToken) then
+            begin
+              {$IFNDEF PS_USESSUPPORT}
+              FUses.Free;
+              {$ELSE}
+              FParser:=ParserPos;
+              fModule:=OldFileName;
+              MakeError(OldFileName, ecUnitNotFoundOrContainsErrors, ParseUnit);
+              {$ENDIF}
+              Result := False;
+              exit;
+            end;
+            {$IFDEF PS_USESSUPPORT}
+            fModule:=OldFileName;
+            {$ENDIF}
+          except
+            on e: Exception do
+            begin
+              MakeError('', ecCustomError, tbtstring(e.Message));
+              {$IFNDEF PS_USESSUPPORT}
+              FUses.Free;
+              {$ENDIF}
+              Result := False;
+              exit;
+            end;
+          end;
+        end;
+      {$IFDEF PS_USESSUPPORT}
+      end;
+      {$ENDIF}
+      FParser.Next;
+      if FParser.CurrTokenID = CSTI_Semicolon then break
+      else if FParser.CurrTokenId <> CSTI_Comma then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        Result := False;
+        {$IFNDEF PS_USESSUPPORT}
+        FUses.Free;
+        {$ENDIF}
+        exit;
+      end;
+      FParser.Next;
+    until False;
+    {$IFNDEF PS_USESSUPPORT}
+    FUses.Free;
+    {$ENDIF}
+    FParser.next;
+    Result := True;
+  end;
+
+var
+  Proc: TPSProcedure;
+  {$IFDEF PS_USESSUPPORT}
+  Block : TPSBlockInfo; //nvds
+  {$ENDIF}
+begin
+  Result := False;
+  FWithCount := -1;
+
+  {$IFDEF PS_USESSUPPORT}
+  if fInCompile=0 then
+  begin
+  {$ENDIF}
+    FUnitName := '';
+    FCurrUsedTypeNo := 0;
+    FIsUnit := False;
+    Clear;
+    FParserHadError := False;
+    FParser.SetText(s);
+    FAttributeTypes := TPSList.Create;
+    FProcs := TPSList.Create;
+    FConstants := TPSList.Create;
+    FVars := TPSList.Create;
+    FTypes := TPSList.Create;
+    FRegProcs := TPSList.Create;
+    FClasses := TPSList.Create;
+
+    {$IFDEF PS_USESSUPPORT}
+    FUnitInits := TPSList.Create; //nvds
+    FUnitFinits:= TPSList.Create; //nvds
+
+    FUses:=TIFStringList.Create;
+    {$ENDIF}
+  {$IFNDEF PS_NOINTERFACES}  FInterfaces := TPSList.Create;{$ENDIF}
+
+    FGlobalBlock := TPSBlockInfo.Create(nil);
+    FGlobalBlock.SubType := tMainBegin;
+
+    FGlobalBlock.Proc := NewProc(PSMainProcNameOrg, PSMainProcName);
+    FGlobalBlock.ProcNo := FindProc(PSMainProcName);
+
+    {$IFDEF PS_USESSUPPORT}
+    OldFileName:=fModule;
+    fModule:='System';
+    FUses.Add('SYSTEM');
+    {$ENDIF}
+    {$IFNDEF PS_NOSTANDARDTYPES}
+    DefineStandardTypes;
+    DefineStandardProcedures;
+	{$ENDIF}
+    if @FOnUses <> nil then
+    begin
+      try
+        if not OnUses(Self, 'SYSTEM') then
+        begin
+          Cleanup;
+          exit;
+        end;
+      except
+        on e: Exception do
+        begin
+          MakeError('', ecCustomError, tbtstring(e.Message));
+          Cleanup;
+          exit;
+        end;
+      end;
+    end;
+  {$IFDEF PS_USESSUPPORT}
+    fModule:=OldFileName;
+    OldParser:=nil;
+    OldIsUnit:=false; // defaults
+  end
+  else
+  begin
+    OldParser:=FParser;
+    OldIsUnit:=FIsUnit;
+    FParser:=TPSPascalParser.Create;
+    FParser.SetText(s);
+  end;
+
+  inc(fInCompile);
+  {$ENDIF}
+
+  Position := csStart;
+  repeat
+    if FParser.CurrTokenId = CSTI_EOF then
+    begin
+      if FParserHadError then
+      begin
+        Cleanup;
+        exit;
+      end;
+      if FAllowNoEnd then
+        Break
+      else
+      begin
+        MakeError('', ecUnexpectedEndOfFile, '');
+        Cleanup;
+        exit;
+      end;
+    end;
+    if (FParser.CurrTokenId = CSTII_Program) and (Position = csStart) then
+    begin
+      {$IFDEF PS_USESSUPPORT}
+      if fInCompile>1 then
+      begin
+        MakeError('', ecNotAllowed, 'program');
+        Cleanup;
+        exit;
+      end;
+      {$ENDIF}
+      Position := csProgram;
+      FParser.Next;
+      if FParser.CurrTokenId <> CSTI_Identifier then
+      begin
+        MakeError('', ecIdentifierExpected, '');
+        Cleanup;
+        exit;
+      end;
+      FParser.Next;
+      if FParser.CurrTokenId <> CSTI_Semicolon then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        Cleanup;
+        exit;
+      end;
+      FParser.Next;
+    end else
+    if (Fparser.CurrTokenID = CSTII_Implementation) and ((Position = csinterface) or (position = csInterfaceUses)) then
+    begin
+      Position := csImplementation;
+      FParser.Next;
+    end else
+    if (Fparser.CurrTokenID = CSTII_Interface) and (Position = csUnit) then
+    begin
+      Position := csInterface;
+      FParser.Next;
+    end else
+    if (FParser.CurrTokenId = CSTII_Unit) and (Position = csStart) and (FAllowUnit) then
+    begin
+      Position := csUnit;
+      FIsUnit := True;
+      FParser.Next;
+      if FParser.CurrTokenId <> CSTI_Identifier then
+      begin
+        MakeError('', ecIdentifierExpected, '');
+        Cleanup;
+        exit;
+      end;
+      if fInCompile = 1 then
+        FUnitName := FParser.OriginalToken;
+      FParser.Next;
+      if FParser.CurrTokenId <> CSTI_Semicolon then
+      begin
+        MakeError('', ecSemicolonExpected, '');
+        Cleanup;
+        exit;
+      end;
+      FParser.Next;
+    end
+    else if (FParser.CurrTokenID = CSTII_Uses) and ((Position < csuses) or (Position = csInterface)) then
+    begin
+      if (Position = csInterface) or (Position =csInterfaceUses)
+        then Position := csInterfaceUses
+        else Position := csUses;
+      if not ProcessUses then
+      begin
+         Cleanup;
+        exit;
+      end;
+    end else if (FParser.CurrTokenId = CSTII_Procedure) or
+      (FParser.CurrTokenId = CSTII_Function) or (FParser.CurrTokenID = CSTI_OpenBlock) then
+    begin
+      if (Position = csInterface) or (position = csInterfaceUses) then
+      begin
+        if not ProcessFunction(True, nil) then
+        begin
+          Cleanup;
+          exit;
+        end;
+      end else begin
+        Position := csUses;
+        if not ProcessFunction(False, nil) then
+        begin
+          Cleanup;
+          exit;
+        end;
+      end;
+    end
+    else if (FParser.CurrTokenId = CSTII_Label) then
+    begin
+      if (Position = csInterface) or (Position =csInterfaceUses)
+        then Position := csInterfaceUses
+        else Position := csUses;
+      if not ProcessLabel(FGlobalBlock.Proc) then
+      begin
+        Cleanup;
+        exit;
+      end;
+    end
+    else if (FParser.CurrTokenId = CSTII_Var) then
+    begin
+      if (Position = csInterface) or (Position =csInterfaceUses)
+        then Position := csInterfaceUses
+        else Position := csUses;
+      if not DoVarBlock(nil) then
+      begin
+        Cleanup;
+        exit;
+      end;
+    end
+    else if (FParser.CurrTokenId = CSTII_Const) then
+    begin
+      if (Position = csInterface) or (Position =csInterfaceUses)
+        then Position := csInterfaceUses
+        else Position := csUses;
+      if not DoConstBlock then
+      begin
+        Cleanup;
+        exit;
+      end;
+    end
+    else if (FParser.CurrTokenId = CSTII_Type) then
+    begin
+      if (Position = csInterface) or (Position =csInterfaceUses)
+        then Position := csInterfaceUses
+        else Position := csUses;
+      if not DoTypeBlock(FParser) then
+      begin
+        Cleanup;
+        exit;
+      end;
+    end
+    else if (FParser.CurrTokenId = CSTII_Begin)
+      {$IFDEF PS_USESSUPPORT}
+             or ((FParser.CurrTokenID = CSTII_initialization) and FIsUnit) {$ENDIF}  then //nvds
+    begin
+      {$IFDEF PS_USESSUPPORT}
+      if FIsUnit then
+      begin
+        Block := TPSBlockInfo.Create(nil); //nvds
+        Block.SubType := tUnitInit;        //nvds
+        Block.Proc := NewProc(PSMainProcNameOrg+'_'+fModule, FastUpperCase(PSMainProcName+'_'+fModule)); //nvds
+        Block.ProcNo := FindProc(PSMainProcName+'_'+fModule);  //nvds
+        Block.Proc.DeclareUnit:= fModule;
+        Block.Proc.DeclarePos := FParser.CurrTokenPos;
+        Block.Proc.DeclareRow := FParser.Row;
+        Block.Proc.DeclareCol := FParser.Col;
+        Block.Proc.Use;
+        FUnitInits.Add(Block);
+        if ProcessSub(Block) then
+        begin
+          if (Fparser.CurrTokenId = CSTI_EOF) THEN break;
+        end
+        else
+        begin
+          Cleanup;
+          exit;
+        end;
+      end
+      else
+      begin
+        FGlobalBlock.Proc.DeclareUnit:= fModule;
+      {$ENDIF}
+        FGlobalBlock.Proc.DeclarePos := FParser.CurrTokenPos;
+        FGlobalBlock.Proc.DeclareRow := FParser.Row;
+        FGlobalBlock.Proc.DeclareCol := FParser.Col;
+        if ProcessSub(FGlobalBlock) then
+        begin
+          break;
+        end
+        else
+        begin
+          Cleanup;
+          exit;
+        end;
+      {$IFDEF PS_USESSUPPORT}
+      end;
+      {$ENDIF}
+    end
+    {$IFDEF PS_USESSUPPORT}
+    else if ((FParser.CurrTokenID = CSTII_finalization) and FIsUnit) then //NvdS
+    begin
+      Block := TPSBlockInfo.Create(nil);
+      Block.SubType := tUnitFinish;
+      Block.Proc := NewProc('!Finish_'+fModule, '!FINISH_'+FastUppercase(fModule));
+      Block.ProcNo := FindProc('!FINISH_'+FastUppercase(fModule));
+      Block.Proc.DeclareUnit:= fModule;
+
+      Block.Proc.DeclarePos := FParser.CurrTokenPos;
+      Block.Proc.DeclareRow := FParser.Row;
+      Block.Proc.DeclareCol := FParser.Col;
+      Block.Proc.use;
+      FUnitFinits.Add(Block);
+      if ProcessSub(Block) then
+      begin
+        break;
+      end else begin
+        Cleanup;
+        Result :=  False; //Cleanup;
+        exit;
+      end;
+    end
+    {$endif}
+    else if (Fparser.CurrTokenId = CSTII_End) and (FAllowNoBegin or FIsUnit) then
+    begin
+      FParser.Next;
+      if FParser.CurrTokenID <> CSTI_Period then
+      begin
+        MakeError('', ecPeriodExpected, '');
+        Cleanup;
+        exit;
+      end;
+      break;
+    end else
+    begin
+      MakeError('', ecBeginExpected, '');
+      Cleanup;
+      exit;
+    end;
+  until False;
+
+  {$IFDEF PS_USESSUPPORT}
+  dec(fInCompile);
+  if fInCompile=0 then
+  begin
+  {$ENDIF}
+    if not ProcessLabelForwards(FGlobalBlock.Proc) then
+    begin
+      Cleanup;
+      exit;
+    end;
+    // NVDS: Do we need to check here also do a ProcessLabelForwards() for each Initialisation/finalization block?
+
+    for i := 0 to FProcs.Count -1 do
+    begin
+      Proc := FProcs[I];
+      if (Proc.ClassType = TPSInternalProcedure) and (TPSInternalProcedure(Proc).Forwarded) then
+      begin
+        with MakeError('', ecUnsatisfiedForward, TPSInternalProcedure(Proc).Name) do
+        begin
+          FPosition := TPSInternalProcedure(Proc).DeclarePos;
+          FRow := TPSInternalProcedure(Proc).DeclareRow;
+          FCol := TPSInternalProcedure(Proc).DeclareCol;
+        end;
+        Cleanup;
+        Exit;
+      end;
+    end;
+    if not CheckExports then
+    begin
+      Cleanup;
+      exit;
+    end;
+    for i := 0 to FVars.Count -1 do
+    begin
+      if not TPSVar(FVars[I]).Used then
+      begin
+        with MakeHint({$IFDEF PS_USESSUPPORT}TPSVar(FVars[I]).DeclareUnit{$ELSE}''{$ENDIF}, ehVariableNotUsed, TPSVar(FVars[I]).Name) do
+        begin
+          FPosition := TPSVar(FVars[I]).DeclarePos;
+          FRow := TPSVar(FVars[I]).DeclareRow;
+          FCol := TPSVar(FVars[I]).DeclareCol;
+        end;
+      end;
+    end;
+
+    Result := MakeOutput;
+    Cleanup;
+  {$IFDEF PS_USESSUPPORT}
+  end
+  else
+  begin
+    fParser.Free;
+    fParser:=OldParser;
+    fIsUnit:=OldIsUnit;
+    result:=true;
+  end;
+  {$ENDIF}
+end;
+
+constructor TPSPascalCompiler.Create;
+begin
+  inherited Create;
+  FParser := TPSPascalParser.Create;
+  FParser.OnParserError := ParserError;
+  FAutoFreeList := TPSList.Create;
+  FOutput := '';
+  {$IFDEF PS_USESSUPPORT}
+  FAllowUnit := true;
+  {$ENDIF}
+  FMessages := TPSList.Create;
+end;
+
+destructor TPSPascalCompiler.Destroy;
+begin
+  Clear;
+  FAutoFreeList.Free;
+
+  FMessages.Free;
+  FParser.Free;
+  inherited Destroy;
+end;
+
+function TPSPascalCompiler.GetOutput(var s: tbtString): Boolean;
+begin
+  if Length(FOutput) <> 0 then
+  begin
+    s := FOutput;
+    Result := True;
+  end
+  else
+    Result := False;
+end;
+
+function TPSPascalCompiler.GetMsg(l: Longint): TPSPascalCompilerMessage;
+begin
+  Result := FMessages[l];
+end;
+
+function TPSPascalCompiler.GetMsgCount: Longint;
+begin
+  Result := FMessages.Count;
+end;
+
+procedure TPSPascalCompiler.DefineStandardTypes;
+var
+  i: Longint;
+begin
+  AddType('Byte', btU8);
+  FDefaultBoolType := AddTypeS('Boolean', '(False, True)');
+  FDefaultBoolType.ExportName := True;
+  with TPSEnumType(AddType('LongBool', btEnum)) do
+  begin
+    HighValue := 2147483647; // make sure it's gonna be a 4 byte var
+  end;
+  with TPSEnumType(AddType('WordBool', btEnum)) do
+  begin
+    HighValue := 65535; // make sure it's gonna be a 2 byte var
+  end;
+  with TPSEnumType(AddType('ByteBool', btEnum)) do
+  begin
+    HighValue := 255; // make sure it's gonna be a 1 byte var
+  end;
+  //following 2 IFDEFs should actually be UNICODE IFDEFs...
+  AddType({$IFDEF PS_PANSICHAR}'AnsiChar'{$ELSE}'Char'{$ENDIF}, btChar);
+  {$IFDEF PS_PANSICHAR}
+  AddType('Char', btWideChar);
+  {$ENDIF}
+  {$IFNDEF PS_NOWIDESTRING}
+  AddType('WideChar', btWideChar);
+  AddType('WideString', btWideString);
+  AddType('UnicodeString', btUnicodeString);
+  {$ENDIF}
+  AddType('AnsiString', btString);
+  {$IFDEF DELPHI2009UP}
+  AddType('String', btUnicodeString);
+  ADdType('NativeString', btUnicodeString);
+  {$ELSE}
+  AddType('String', btString);
+  AddType('NativeString', btString);
+  {$ENDIF}
+  FAnyString := AddType('AnyString', btString);
+  AddType('ShortInt', btS8);
+  AddType('Word', btU16);
+  AddType('SmallInt', btS16);
+  AddType('LongInt', btS32);
+  at2ut(AddType('___Pointer', btPointer));
+  AddType('LongWord', btU32);
+  AddTypeCopyN('Integer', 'LONGINT');
+  AddTypeCopyN('Cardinal', 'LONGWORD');
+  AddType('tbtString', btString);
+  {$IFNDEF PS_NOINT64}
+  AddType('Int64', btS64);
+  {$ENDIF}
+  AddType('Single', btSingle);
+  AddType('Double', btDouble);
+  AddType('Extended', btExtended);
+  AddType('Currency', btCurrency);
+  AddType({$IFDEF PS_PANSICHAR}'PAnsiChar'{$ELSE}'PChar'{$ENDIF}, btPChar);
+  AddType('Variant', btVariant);
+  AddType('!NotificationVariant', btNotificationVariant);
+  for i := FTypes.Count -1 downto 0 do AT2UT(FTypes[i]);
+  TPSArrayType(AddType('TVariantArray', btArray)).ArrayTypeNo := FindType('VARIANT');
+
+  with AddFunction('function Assigned(I: Longint): Boolean;') do
+  begin
+    Name := '!ASSIGNED';
+  end;
+
+  with AddFunction('procedure _T(Name: tbtString; v: Variant);') do
+  begin
+    Name := '!NOTIFICATIONVARIANTSET';
+  end;
+  with AddFunction('function _T(Name: tbtString): Variant;') do
+  begin
+    Name := '!NOTIFICATIONVARIANTGET';
+  end;
+end;
+
+
+function TPSPascalCompiler.FindType(const Name: tbtString): TPSType;
+var
+  i, n: Longint;
+  RName: tbtString;
+begin
+  if FProcs = nil then begin Result := nil; exit;end;
+  RName := Fastuppercase(Name);
+  n := makehash(rname);
+  for i := FTypes.Count - 1 downto 0 do
+  begin
+    Result := FTypes.Data[I];
+    if (Result.NameHash = n) and (Result.name = rname) then
+    begin
+      Result := GetTypeCopyLink(Result);
+      exit;
+    end;
+  end;
+  result := nil;
+end;
+
+function TPSPascalCompiler.AddConstant(const Name: tbtString; FType: TPSType): TPSConstant;
+var
+  pc: TPSConstant;
+  val: PIfRVariant;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+
+  FType := GetTypeCopyLink(FType);
+  if FType = nil then
+    Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterConst, [name]);
+  pc := TPSConstant.Create;
+  pc.OrgName := name;
+  pc.Name := FastUppercase(name);
+  pc.DeclarePos:=InvalidVal;
+  {$IFDEF PS_USESSUPPORT}
+  pc.DeclareUnit:=fModule;
+  {$ENDIF}
+  New(Val);
+  InitializeVariant(Val, FType);
+  pc.Value := Val;
+  FConstants.Add(pc);
+  result := pc;
+end;
+
+function TPSPascalCompiler.ReadAttributes(Dest: TPSAttributes): Boolean;
+var
+  Att: TPSAttributeType;
+  at: TPSAttribute;
+  varp: PIfRVariant;
+  h, i: Longint;
+  s: tbtString;
+begin
+  if FParser.CurrTokenID <> CSTI_OpenBlock then begin Result := true; exit; end;
+  FParser.Next;
+  if FParser.CurrTokenID <> CSTI_Identifier then
+  begin
+    MakeError('', ecIdentifierExpected, '');
+    Result := False;
+    exit;
+  end;
+  s := FParser.GetToken;
+  h := MakeHash(s);
+  att := nil;
+  for i := FAttributeTypes.count -1 downto 0 do
+  begin
+    att := FAttributeTypes[i];
+    if (att.FNameHash = h) and (att.FName = s) then
+      Break;
+    att := nil;
+  end;
+  if att = nil then
+  begin
+    MakeError('', ecUnknownIdentifier, '');
+    Result := False;
+    exit;
+  end;
+  FParser.Next;
+  i := 0;
+  at := Dest.Add(att);
+  while att.Fields[i].Hidden do
+  begin
+    at.AddValue(NewVariant(at2ut(att.Fields[i].FieldType)));
+    inc(i);
+  end;
+  if FParser.CurrTokenId <> CSTI_OpenRound then
+  begin
+    MakeError('', ecOpenRoundExpected, '');
+    Result := False;
+    exit;
+  end;
+  FParser.Next;
+  if i < Att.FieldCount then
+  begin
+    while i < att.FieldCount do
+    begin
+      varp := ReadConstant(FParser, CSTI_CloseRound);
+      if varp = nil then
+      begin
+        Result := False;
+        exit;
+      end;
+      at.AddValue(varp);
+      if not IsCompatibleType(varp.FType, Att.Fields[i].FieldType, False) then
+      begin
+        MakeError('', ecTypeMismatch, '');
+        Result := False;
+        exit;
+      end;
+      Inc(i);
+      while (i < Att.FieldCount) and (att.Fields[i].Hidden)  do
+      begin
+        at.AddValue(NewVariant(at2ut(att.Fields[i].FieldType)));
+        inc(i);
+      end;
+      if i >= Att.FieldCount then
+      begin
+        break;
+      end else
+      begin
+        if FParser.CurrTokenID <> CSTI_Comma then
+        begin
+          MakeError('', ecCommaExpected, '');
+          Result := False;
+          exit;
+        end;
+      end;
+      FParser.Next;
+    end;
+  end;
+  if FParser.CurrTokenID <> CSTI_CloseRound then
+  begin
+    MakeError('', ecCloseRoundExpected, '');
+    Result := False;
+    exit;
+  end;
+  FParser.Next;
+  if FParser.CurrTokenID <> CSTI_CloseBlock then
+  begin
+    MakeError('', ecCloseBlockExpected, '');
+    Result := False;
+    exit;
+  end;
+  FParser.Next;
+  Result := True;
+end;
+
+type
+  TConstOperation = class(TObject)
+  private
+    FDeclPosition, FDeclRow, FDeclCol: Cardinal;
+  public
+    property DeclPosition: Cardinal read FDeclPosition write FDeclPosition;
+    property DeclRow: Cardinal read FDeclRow write FDeclRow;
+    property DeclCol: Cardinal read FDeclCol write FDeclCol;
+    procedure SetPos(Parser: TPSPascalParser);
+  end;
+
+  TUnConstOperation = class(TConstOperation)
+  private
+    FOpType: TPSUnOperatorType;
+    FVal1: TConstOperation;
+  public
+    property OpType: TPSUnOperatorType read FOpType write FOpType;
+    property Val1: TConstOperation read FVal1 write FVal1;
+
+    destructor Destroy; override;
+  end;
+
+  TBinConstOperation = class(TConstOperation)
+  private
+    FOpType: TPSBinOperatorType;
+    FVal2: TConstOperation;
+    FVal1: TConstOperation;
+  public
+    property OpType: TPSBinOperatorType read FOpType write FOpType;
+    property Val1: TConstOperation read FVal1 write FVal1;
+    property Val2: TConstOperation read FVal2 write FVal2;
+
+    destructor Destroy; override;
+  end;
+
+  TConstData = class(TConstOperation)
+  private
+    FData: PIfRVariant;
+  public
+    property Data: PIfRVariant read FData write FData;
+    destructor Destroy; override;
+  end;
+
+
+function TPSPascalCompiler.IsBoolean(aType: TPSType): Boolean;
+begin
+  Result := (AType = FDefaultBoolType)
+    or (AType.Name = 'LONGBOOL')
+    or (AType.Name = 'WORDBOOL')
+    or (AType.Name = 'BYTEBOOL');
+end;
+
+
+function TPSPascalCompiler.ReadConstant(FParser: TPSPascalParser; StopOn: TPSPasToken): PIfRVariant;
+
+  function ReadExpression: TConstOperation; forward;
+  function ReadTerm: TConstOperation; forward;
+  function ReadFactor: TConstOperation;
+  var
+    NewVar: TConstOperation;
+    NewVarU: TUnConstOperation;
+    function GetConstantIdentifier: PIfRVariant;
+    var
+      s: tbtString;
+      sh: Longint;
+      i: Longint;
+      p: TPSConstant;
+    begin
+      s := FParser.GetToken;
+      sh := MakeHash(s);
+      for i := FConstants.Count -1 downto 0 do
+      begin
+        p := FConstants[I];
+        if (p.NameHash = sh) and (p.Name = s) then
+        begin
+          New(Result);
+          InitializeVariant(Result, p.Value.FType);
+          CopyVariantContents(P.Value, Result);
+          FParser.Next;
+          exit;
+        end;
+      end;
+      MakeError('', ecUnknownIdentifier, '');
+      Result := nil;
+    end;
+  begin
+    case fParser.CurrTokenID of
+      CSTII_Not:
+      begin
+        FParser.Next;
+        NewVar := ReadFactor;
+        if NewVar = nil then
+        begin
+          Result := nil;
+          exit;
+        end;
+        NewVarU := TUnConstOperation.Create;
+        NewVarU.OpType := otNot;
+        NewVarU.Val1 := NewVar;
+        NewVar := NewVarU;
+      end;
+      CSTI_Minus:
+      begin
+        FParser.Next;
+        NewVar := ReadTerm;
+        if NewVar = nil then
+        begin
+          Result := nil;
+          exit;
+        end;
+        NewVarU := TUnConstOperation.Create;
+        NewVarU.OpType := otMinus;
+        NewVarU.Val1 := NewVar;
+        NewVar := NewVarU;
+      end;
+      CSTI_OpenRound:
+        begin
+          FParser.Next;
+          NewVar := ReadExpression;
+          if NewVar = nil then
+          begin
+            Result := nil;
+            exit;
+          end;
+          if FParser.CurrTokenId <> CSTI_CloseRound then
+          begin
+            NewVar.Free;
+            Result := nil;
+            MakeError('', ecCloseRoundExpected, '');
+            exit;
+          end;
+          FParser.Next;
+        end;
+      CSTI_Char, CSTI_String:
+        begin
+          NewVar := TConstData.Create;
+          NewVar.SetPos(FParser);
+          TConstData(NewVar).Data := ReadString;
+        end;
+      CSTI_HexInt, CSTI_Integer:
+        begin
+          NewVar := TConstData.Create;
+          NewVar.SetPos(FParser);
+          TConstData(NewVar).Data := ReadInteger(FParser.GetToken);
+          FParser.Next;
+        end;
+      CSTI_Real:
+        begin
+          NewVar := TConstData.Create;
+          NewVar.SetPos(FParser);
+          TConstData(NewVar).Data := ReadReal(FParser.GetToken);
+          FParser.Next;
+        end;
+      CSTI_Identifier:
+        begin
+          NewVar := TConstData.Create;
+          NewVar.SetPos(FParser);
+          TConstData(NewVar).Data := GetConstantIdentifier;
+          if TConstData(NewVar).Data = nil then
+          begin
+            NewVar.Free;
+            Result := nil;
+            exit;
+          end
+        end;
+    else
+      begin
+        MakeError('', ecSyntaxError, '');
+        Result := nil;
+        exit;
+      end;
+    end; {case}
+    Result := NewVar;
+  end; // ReadFactor
+
+  function ReadTerm: TConstOperation;
+  var
+    F1, F2: TConstOperation;
+    F: TBinConstOperation;
+    Token: TPSPasToken;
+    Op: TPSBinOperatorType;
+  begin
+    F1 := ReadFactor;
+    if F1 = nil then
+    begin
+      Result := nil;
+      exit;
+    end;
+    while FParser.CurrTokenID in [CSTI_Multiply, CSTI_Divide, CSTII_Div, CSTII_Mod, CSTII_And, CSTII_Shl, CSTII_Shr] do
+    begin
+      Token := FParser.CurrTokenID;
+      FParser.Next;
+      F2 := ReadFactor;
+      if f2 = nil then
+      begin
+        f1.Free;
+        Result := nil;
+        exit;
+      end;
+      case Token of
+        CSTI_Multiply: Op := otMul;
+        CSTII_div, CSTI_Divide: Op := otDiv;
+        CSTII_mod: Op := otMod;
+        CSTII_and: Op := otAnd;
+        CSTII_shl: Op := otShl;
+        CSTII_shr: Op := otShr;
+      else
+        Op := otAdd;
+      end;
+      F := TBinConstOperation.Create;
+      f.Val1 := F1;
+      f.Val2 := F2;
+      f.OpType := Op;
+      f1 := f;
+    end;
+    Result := F1;
+  end;  // ReadTerm
+
+  function ReadSimpleExpression: TConstOperation;
+  var
+    F1, F2: TConstOperation;
+    F: TBinConstOperation;
+    Token: TPSPasToken;
+    Op: TPSBinOperatorType;
+  begin
+    F1 := ReadTerm;
+    if F1 = nil then
+    begin
+      Result := nil;
+      exit;
+    end;
+    while FParser.CurrTokenID in [CSTI_Plus, CSTI_Minus, CSTII_Or, CSTII_Xor] do
+    begin
+      Token := FParser.CurrTokenID;
+      FParser.Next;
+      F2 := ReadTerm;
+      if f2 = nil then
+      begin
+        f1.Free;
+        Result := nil;
+        exit;
+      end;
+      case Token of
+        CSTI_Plus: Op := otAdd;
+        CSTI_Minus: Op := otSub;
+        CSTII_or: Op := otOr;
+        CSTII_xor: Op := otXor;
+      else
+        Op := otAdd;
+      end;
+      F := TBinConstOperation.Create;
+      f.Val1 := F1;
+      f.Val2 := F2;
+      f.OpType := Op;
+      f1 := f;
+    end;
+    Result := F1;
+  end;  // ReadSimpleExpression
+
+
+  function ReadExpression: TConstOperation;
+  var
+    F1, F2: TConstOperation;
+    F: TBinConstOperation;
+    Token: TPSPasToken;
+    Op: TPSBinOperatorType;
+  begin
+    F1 := ReadSimpleExpression;
+    if F1 = nil then
+    begin
+      Result := nil;
+      exit;
+    end;
+    while FParser.CurrTokenID in [ CSTI_GreaterEqual, CSTI_LessEqual, CSTI_Greater, CSTI_Less, CSTI_Equal, CSTI_NotEqual] do
+    begin
+      Token := FParser.CurrTokenID;
+      FParser.Next;
+      F2 := ReadSimpleExpression;
+      if f2 = nil then
+      begin
+        f1.Free;
+        Result := nil;
+        exit;
+      end;
+      case Token of
+        CSTI_GreaterEqual: Op := otGreaterEqual;
+        CSTI_LessEqual: Op := otLessEqual;
+        CSTI_Greater: Op := otGreater;
+        CSTI_Less: Op := otLess;
+        CSTI_Equal: Op := otEqual;
+        CSTI_NotEqual: Op := otNotEqual;
+      else
+        Op := otAdd;
+      end;
+      F := TBinConstOperation.Create;
+      f.Val1 := F1;
+      f.Val2 := F2;
+      f.OpType := Op;
+      f1 := f;
+    end;
+    Result := F1;
+  end;  // ReadExpression
+
+
+  function EvalConst(P: TConstOperation): PIfRVariant;
+  var
+    p1, p2: PIfRVariant;
+  begin
+    if p is TBinConstOperation then
+    begin
+      p1 := EvalConst(TBinConstOperation(p).Val1);
+      if p1 = nil then begin Result := nil; exit; end;
+      p2 := EvalConst(TBinConstOperation(p).Val2);
+      if p2 = nil then begin DisposeVariant(p1); Result := nil; exit; end;
+      if not PreCalc(False, 0, p1, 0, p2, TBinConstOperation(p).OpType, p.DeclPosition, p.DeclRow, p.DeclCol) then
+      begin
+        DisposeVariant(p1);
+        DisposeVariant(p2);
+//        MakeError('', ecTypeMismatch, '');
+        result := nil;
+        exit;
+      end;
+      DisposeVariant(p2);
+      Result := p1;
+    end else if p is TUnConstOperation then
+    begin
+      with TUnConstOperation(P) do
+      begin
+        p1 := EvalConst(Val1);
+        case OpType of
+          otNot:
+            case p1.FType.BaseType of
+              btU8: p1.tu8 := not p1.tu8;
+              btU16: p1.tu16 := not p1.tu16;
+              btU32: p1.tu32 := not p1.tu32;
+              bts8: p1.ts8 := not p1.ts8;
+              bts16: p1.ts16 := not p1.ts16;
+              bts32: p1.ts32 := not p1.ts32;
+              {$IFNDEF PS_NOINT64}
+              bts64: p1.ts64 := not p1.ts64;
+              {$ENDIF}
+            else
+              begin
+                MakeError('', ecTypeMismatch, '');
+                DisposeVariant(p1);
+                Result := nil;
+                exit;
+              end;
+            end;
+          otMinus:
+            case p1.FType.BaseType of
+              btU8: p1.tu8 := -p1.tu8;
+              btU16: p1.tu16 := -p1.tu16;
+              btU32: p1.tu32 := -p1.tu32;
+              bts8: p1.ts8 := -p1.ts8;
+              bts16: p1.ts16 := -p1.ts16;
+              bts32: p1.ts32 := -p1.ts32;
+              {$IFNDEF PS_NOINT64}
+              bts64: p1.ts64 := -p1.ts64;
+              {$ENDIF}
+              btDouble: p1.tdouble := - p1.tDouble;
+              btSingle: p1.tsingle := - p1.tsingle;
+              btCurrency: p1.tcurrency := - p1.tcurrency;
+              btExtended: p1.textended := - p1.textended;
+            else
+              begin
+                MakeError('', ecTypeMismatch, '');
+                DisposeVariant(p1);
+                Result := nil;
+                exit;
+              end;
+            end;
+        else
+          begin
+            DisposeVariant(p1);
+            Result := nil;
+            exit;
+          end;
+        end;
+      end;
+      Result := p1;
+    end else
+    begin
+      if ((p as TConstData).Data.FType.BaseType = btString)
+      and (length(tbtstring((p as TConstData).Data.tstring)) =1) then
+      begin
+        New(p1);
+        InitializeVariant(p1, FindBaseType(btChar));
+        p1.tchar := tbtstring((p as TConstData).Data.tstring)[1];
+        Result := p1;
+      end else begin
+        New(p1);
+        InitializeVariant(p1, (p as TConstData).Data.FType);
+        CopyVariantContents((p as TConstData).Data, p1);
+        Result := p1;
+      end;
+    end;
+  end;
+
+var
+  Val: TConstOperation;
+begin
+  Val := ReadExpression;
+  if val = nil then
+  begin
+    Result := nil;
+    exit;
+  end;
+  Result := EvalConst(Val);
+  Val.Free;
+end;
+
+procedure TPSPascalCompiler.WriteDebugData(const s: tbtString);
+begin
+  FDebugOutput := FDebugOutput + s;
+end;
+
+function TPSPascalCompiler.GetDebugOutput(var s: tbtString): Boolean;
+begin
+  if Length(FDebugOutput) <> 0 then
+  begin
+    s := FDebugOutput;
+    Result := True;
+  end
+  else
+    Result := False;
+end;
+
+function TPSPascalCompiler.AddUsedFunction(var Proc: TPSInternalProcedure): Cardinal;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Proc := TPSInternalProcedure.Create;
+  FProcs.Add(Proc);
+  Result := FProcs.Count - 1;
+end;
+
+{$IFNDEF PS_NOINTERFACES}
+const
+  IUnknown_Guid: TGuid = (D1: 0; d2: 0; d3: 0; d4: ($c0,00,00,00,00,00,00,$46));
+  IDispatch_Guid: Tguid = (D1: $20400; D2: $0; D3: $0; D4:($C0, $0, $0, $0, $0, $0, $0, $46));
+{$ENDIF}
+
+procedure TPSPascalCompiler.DefineStandardProcedures;
+var
+  p: TPSRegProc;
+begin
+  {$IFNDEF PS_NOINT64}
+  AddFunction('function IntToStr(i: Int64): String;');
+  {$ELSE}
+  AddFunction('function IntTostr(i: Integer): String;');
+  {$ENDIF}
+  AddFunction('function StrToInt(s: String): Longint;');
+  AddFunction('function StrToIntDef(s: String; def: Longint): Longint;');
+  AddFunction('function Copy(s: AnyString; iFrom, iCount: Longint): AnyString;');
+  AddFunction('function Pos(SubStr, S: AnyString): Longint;');
+  AddFunction('procedure Delete(var s: AnyString; ifrom, icount: Longint);');
+  AddFunction('procedure Insert(s: AnyString; var s2: AnyString; iPos: Longint);');
+  p := AddFunction('function GetArrayLength: integer;');
+  with P.Decl.AddParam do
+  begin
+    OrgName := 'arr';
+    Mode := pmInOut;
+  end;
+  p := AddFunction('procedure SetArrayLength;');
+  with P.Decl.AddParam do
+  begin
+    OrgName := 'arr';
+    Mode := pmInOut;
+  end;
+  with P.Decl.AddParam do
+  begin
+    OrgName := 'count';
+    aType := FindBaseType(btS32);
+  end;
+  AddFunction('Function StrGet(var S : String; I : Integer) : Char;');
+  AddFunction('Function StrGet2(S : String; I : Integer) : Char;');
+  AddFunction('procedure StrSet(c : Char; I : Integer; var s : String);');
+  {$IFNDEF PS_NOWIDESTRING}
+  AddFunction('Function WStrGet(var S : AnyString; I : Integer) : WideChar;');
+  AddFunction('procedure WStrSet(c : AnyString; I : Integer; var s : AnyString);');
+  {$ENDIF}
+  AddFunction('Function AnsiUppercase(s : String) : String;');
+  AddFunction('Function AnsiLowercase(s : String) : String;');
+  AddFunction('Function Uppercase(s : AnyString) : AnyString;');
+  AddFunction('Function Lowercase(s : AnyString) : AnyString;');
+  AddFunction('Function Trim(s : AnyString) : AnyString;');
+  AddFunction('function Length: Integer;').Decl.AddParam.OrgName:='s';
+  with AddFunction('procedure SetLength;').Decl do
+  begin
+    with AddParam do
+    begin
+      OrgName:='s';
+      Mode:=pmInOut;
+    end;
+    with AddParam do
+    begin
+      OrgName:='NewLength';
+      aType:=FindBaseType(btS32);  //Integer
+    end;
+  end;
+  {$IFNDEF PS_NOINT64}
+  AddFunction('function Low: Int64;').Decl.AddParam.OrgName:='x';
+  AddFunction('function High: Int64;').Decl.AddParam.OrgName:='x';
+  {$ELSE}
+  AddFunction('function Low: Integer;').Decl.AddParam.OrgName:='x';
+  AddFunction('function High: Integer;').Decl.AddParam.OrgName:='x';
+  {$ENDIF}
+  with AddFunction('procedure Dec;').Decl do begin
+    with AddParam do
+    begin
+      OrgName:='x';
+      Mode:=pmInOut;
+    end;
+  end;
+  with AddFunction('procedure Inc;').Decl do begin
+    with AddParam do
+    begin
+      OrgName:='x';
+      Mode:=pmInOut;
+    end;
+  end;
+  AddFunction('Function Sin(e : Extended) : Extended;');
+  AddFunction('Function Cos(e : Extended) : Extended;');
+  AddFunction('Function Sqrt(e : Extended) : Extended;');
+  AddFunction('Function Round(e : Extended) : Longint;');
+  AddFunction('Function Trunc(e : Extended) : Longint;');
+  AddFunction('Function Int(e : Extended) : Extended;');
+  AddFunction('Function Pi : Extended;');
+  AddFunction('Function Abs(e : Extended) : Extended;');
+  AddFunction('function StrToFloat(s: String): Extended;');
+  AddFunction('Function FloatToStr(e : Extended) : String;');
+  AddFunction('Function Padl(s : AnyString;I : longInt) : AnyString;');
+  AddFunction('Function Padr(s : AnyString;I : longInt) : AnyString;');
+  AddFunction('Function Padz(s : AnyString;I : longInt) : AnyString;');
+  AddFunction('Function Replicate(c : char;I : longInt) : String;');
+  AddFunction('Function StringOfChar(c : char;I : longInt) : String;');
+  AddTypeS('TVarType', 'Word');
+  AddConstantN('varEmpty', 'Word').Value.tu16 := varempty;
+  AddConstantN('varNull', 'Word').Value.tu16 := varnull;
+  AddConstantN('varSmallInt', 'Word').Value.tu16 := varsmallint;
+  AddConstantN('varInteger', 'Word').Value.tu16 := varinteger;
+  AddConstantN('varSingle', 'Word').Value.tu16 := varsingle;
+  AddConstantN('varDouble', 'Word').Value.tu16 := vardouble;
+  AddConstantN('varCurrency', 'Word').Value.tu16 := varcurrency;
+  AddConstantN('varDate', 'Word').Value.tu16 := vardate;
+  AddConstantN('varOleStr', 'Word').Value.tu16 := varolestr;
+  AddConstantN('varDispatch', 'Word').Value.tu16 := vardispatch;
+  AddConstantN('varError', 'Word').Value.tu16 := varerror;
+  AddConstantN('varBoolean', 'Word').Value.tu16 := varboolean;
+  AddConstantN('varVariant', 'Word').Value.tu16 := varvariant;
+  AddConstantN('varUnknown', 'Word').Value.tu16 := varunknown;
+{$IFDEF DELPHI6UP}
+  AddConstantN('varShortInt', 'Word').Value.tu16 := varshortint;
+  AddConstantN('varByte', 'Word').Value.tu16 := varbyte;
+  AddConstantN('varWord', 'Word').Value.tu16 := varword;
+  AddConstantN('varLongWord', 'Word').Value.tu16 := varlongword;
+  AddConstantN('varInt64', 'Word').Value.tu16 := varint64;
+{$ENDIF}
+{$IFDEF DELPHI5UP}
+  AddConstantN('varStrArg', 'Word').Value.tu16 := varstrarg;
+  AddConstantN('varAny', 'Word').Value.tu16 := varany;
+{$ENDIF}
+  AddConstantN('varString', 'Word').Value.tu16 := varstring;
+  AddConstantN('varTypeMask', 'Word').Value.tu16 := vartypemask;
+  AddConstantN('varArray', 'Word').Value.tu16 := vararray;
+  AddConstantN('varByRef', 'Word').Value.tu16 := varByRef;
+{$IFDEF UNICODE}
+  AddConstantN('varUString', 'Word').Value.tu16 := varUString;
+{$ENDIF}
+  AddDelphiFunction('function Unassigned: Variant;');
+  AddDelphiFunction('function VarIsEmpty(const V: Variant): Boolean;');
+  AddDelphiFunction('function Null: Variant;');
+  AddDelphiFunction('function VarIsNull(const V: Variant): Boolean;');
+  AddDelphiFunction('function VarType(const V: Variant): TVarType;');
+ addTypeS('TIFException', '(ErNoError, erCannotImport, erInvalidType, ErInternalError, '+
+   'erInvalidHeader, erInvalidOpcode, erInvalidOpcodeParameter, erNoMainProc, erOutOfGlobalVarsRange, '+
+    'erOutOfProcRange, ErOutOfRange, erOutOfStackRange, ErTypeMismatch, erUnexpectedEof, '+
+    'erVersionError, ErDivideByZero, ErMathError,erCouldNotCallProc, erOutofRecordRange, '+
+    'erOutOfMemory, erException, erNullPointerException, erNullVariantError, erInterfaceNotSupported, erCustomError)');
+  AddFunction('procedure RaiseLastException;');
+  AddFunction('procedure RaiseException(Ex: TIFException; Param: String);');
+  AddFunction('function ExceptionType: TIFException;');
+  AddFunction('function ExceptionParam: String;');
+  AddFunction('function ExceptionProc: Cardinal;');
+  AddFunction('function ExceptionPos: Cardinal;');
+  AddFunction('function ExceptionToString(er: TIFException; Param: String): String;');
+  {$IFNDEF PS_NOINT64}
+  AddFunction('function StrToInt64(s: String): int64;');
+  AddFunction('function Int64ToStr(i: Int64): String;');
+  {$ENDIF}
+
+  with AddFunction('function SizeOf: Longint;').Decl.AddParam do
+  begin
+    OrgName := 'Data';
+  end;
+{$IFNDEF PS_NOINTERFACES}
+  with AddInterface(nil, IUnknown_Guid, 'IUnknown') do
+  begin
+    RegisterDummyMethod; // Query Interface
+    RegisterDummyMethod; // _AddRef
+    RegisterDummyMethod; // _Release
+  end;
+  with AddInterface(nil, IUnknown_Guid, 'IInterface') do
+  begin
+    RegisterDummyMethod; // Query Interface
+    RegisterDummyMethod; // _AddRef
+    RegisterDummyMethod; // _Release
+  end;
+
+ {$IFNDEF PS_NOIDISPATCH}
+  with AddInterface(FindInterface('IUnknown'), IDispatch_Guid, 'IDispatch') do
+  begin
+    RegisterDummyMethod; // GetTypeCount
+    RegisterDummyMethod; // GetTypeInfo
+    RegisterDummyMethod; // GetIdsOfName
+    RegisterDummyMethod; // Invoke
+  end;
+  with TPSInterfaceType(FindType('IDispatch')) do
+  begin
+    ExportName := True;
+  end;
+  AddDelphiFunction('function IDispatchInvoke(Self: IDispatch; PropertySet: Boolean; const Name: String; Par: array of variant): variant;');
+ {$ENDIF}
+{$ENDIF}
+end;
+
+function TPSPascalCompiler.GetTypeCount: Longint;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FTypes.Count;
+end;
+
+function TPSPascalCompiler.GetType(I: Longint): TPSType;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FTypes[I];
+end;
+
+function TPSPascalCompiler.GetVarCount: Longint;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FVars.Count;
+end;
+
+function TPSPascalCompiler.GetVar(I: Longint): TPSVar;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FVars[i];
+end;
+
+function TPSPascalCompiler.GetProcCount: Longint;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FProcs.Count;
+end;
+
+function TPSPascalCompiler.GetProc(I: Longint): TPSProcedure;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FProcs[i];
+end;
+
+
+
+
+function TPSPascalCompiler.AddUsedFunction2(var Proc: TPSExternalProcedure): Cardinal;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Proc := TPSExternalProcedure.Create;
+  FProcs.Add(Proc);
+  Result := FProcs.Count -1;
+end;
+
+function TPSPascalCompiler.AddVariable(const Name: tbtString; FType: TPSType): TPSVar;
+var
+  P: TPSVar;
+  s:string;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  if FType = nil then raise EPSCompilerException.CreateFmt(RPS_InvalidTypeForVar, [Name]);
+  s := Fastuppercase(Name);
+  if IsDuplicate(s,[dcVars]) then raise EPSCompilerException.CreateFmt(RPS_DuplicateIdent, [Name]);
+
+  p := TPSVar.Create;
+  p.OrgName := Name;
+  p.Name := s;
+  p.FType := AT2UT(FType);
+  p.exportname := p.Name;
+  FVars.Add(p);
+  Result := P;
+end;
+
+function TPSPascalCompiler.AddAttributeType: TPSAttributeType;
+begin
+  if FAttributeTypes = nil then Raise Exception.Create(RPS_OnUseEventOnly);
+  Result := TPSAttributeType.Create;
+  FAttributeTypes.Add(Result);
+end;
+
+function TPSPascalCompiler.FindAttributeType(const Name: tbtString): TPSAttributeType;
+var
+  h, i: Integer;
+  n: tbtString;
+begin
+  if FAttributeTypes = nil then Raise Exception.Create(RPS_OnUseEventOnly);
+  n := FastUpperCase(Name);
+  h := MakeHash(n);
+  for i := FAttributeTypes.Count -1 downto 0 do
+  begin
+    result := TPSAttributeType(FAttributeTypes[i]);
+    if (Result.NameHash = h) and (Result.Name = n) then
+      exit;
+  end;
+  result := nil;
+end;
+function TPSPascalCompiler.GetConstCount: Longint;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  result := FConstants.Count;
+end;
+
+function TPSPascalCompiler.GetConst(I: Longint): TPSConstant;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := TPSConstant(FConstants[i]);
+end;
+
+function TPSPascalCompiler.GetRegProcCount: Longint;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FRegProcs.Count;
+end;
+
+function TPSPascalCompiler.GetRegProc(I: Longint): TPSRegProc;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := TPSRegProc(FRegProcs[i]);
+end;
+
+
+procedure TPSPascalCompiler.AddToFreeList(Obj: TObject);
+begin
+  FAutoFreeList.Add(Obj);
+end;
+
+function TPSPascalCompiler.AddConstantN(const Name,
+  FType: tbtString): TPSConstant;
+begin
+  Result := AddConstant(Name, FindType(FType));
+end;
+
+function TPSPascalCompiler.AddTypeCopy(const Name: tbtString;
+  TypeNo: TPSType): TPSType;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  TypeNo := GetTypeCopyLink(TypeNo);
+  if Typeno = nil then raise EPSCompilerException.Create(RPS_InvalidType);
+  Result := AddType(Name, BtTypeCopy);
+  TPSTypeLink(Result).LinkTypeNo := TypeNo;
+end;
+
+function TPSPascalCompiler.AddTypeCopyN(const Name,
+  FType: tbtString): TPSType;
+begin
+  Result := AddTypeCopy(Name, FindType(FType));
+end;
+
+
+function TPSPascalCompiler.AddUsedVariable(const Name: tbtString;
+  FType: TPSType): TPSVar;
+begin
+  Result := AddVariable(Name, FType);
+  if Result <> nil then
+    Result.Use;
+end;
+
+function TPSPascalCompiler.AddUsedVariableN(const Name,
+  FType: tbtString): TPSVar;
+begin
+  Result := AddVariable(Name, FindType(FType));
+  if Result <> nil then
+    Result.Use;
+end;
+
+function TPSPascalCompiler.AddVariableN(const Name,
+  FType: tbtString): TPSVar;
+begin
+  Result := AddVariable(Name, FindType(FType));
+end;
+
+function TPSPascalCompiler.AddUsedPtrVariable(const Name: tbtString; FType: TPSType): TPSVar;
+begin
+  Result := AddVariable(Name, FType);
+  if Result <> nil then
+  begin
+    result.SaveAsPointer := True;
+    Result.Use;
+  end;
+end;
+
+function TPSPascalCompiler.AddUsedPtrVariableN(const Name, FType: tbtString): TPSVar;
+begin
+  Result := AddVariable(Name, FindType(FType));
+  if Result <> nil then
+  begin
+    result.SaveAsPointer := True;
+    Result.Use;
+  end;
+end;
+
+function TPSPascalCompiler.AddTypeS(const Name, Decl: tbtString): TPSType;
+var
+  Parser: TPSPascalParser;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Parser := TPSPascalParser.Create;
+  Parser.SetText(Decl);
+  Result := ReadType(Name, Parser);
+  if Result<>nil then
+  begin
+    Result.DeclarePos:=InvalidVal;
+    {$IFDEF PS_USESSUPPORT}
+    Result.DeclareUnit:=fModule;
+    {$ENDIF}
+    Result.DeclareRow:=0;
+    Result.DeclareCol:=0;
+  end;
+  Parser.Free;
+  if result = nil then Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterType, [name]);
+end;
+
+
+function TPSPascalCompiler.CheckCompatProc(P: TPSType; ProcNo: Cardinal): Boolean;
+var
+  i: Longint;
+  s1, s2: TPSParametersDecl;
+begin
+  if p.BaseType <> btProcPtr then begin
+    Result := False;
+    Exit;
+  end;
+
+  S1 := TPSProceduralType(p).ProcDef;
+
+  if TPSProcedure(FProcs[ProcNo]).ClassType = TPSInternalProcedure then
+    s2 := TPSInternalProcedure(FProcs[ProcNo]).Decl
+  else
+    s2 := TPSExternalProcedure(FProcs[ProcNo]).RegProc.Decl;
+  if (s1.Result <> s2.Result) or (s1.ParamCount <> s2.ParamCount) then
+  begin
+    Result := False;
+    Exit;
+  end;
+  for i := 0 to s1.ParamCount -1 do
+  begin
+    if (s1.Params[i].Mode <> s2.Params[i].Mode) or (s1.Params[i].aType <> s2.Params[i].aType) then
+    begin
+      Result := False;
+      Exit;
+    end;
+  end;
+  Result := True;
+end;
+
+function TPSPascalCompiler.MakeExportDecl(decl: TPSParametersDecl): tbtString;
+var
+  i: Longint;
+begin
+  if Decl.Result = nil then result := '-1' else
+  result := IntToStr(Decl.Result.FinalTypeNo);
+
+  for i := 0 to decl.ParamCount -1 do
+  begin
+    if decl.GetParam(i).Mode = pmIn then
+      Result := Result + ' @'
+    else
+      Result := Result + ' !';
+    Result := Result + inttostr(decl.GetParam(i).aType.FinalTypeNo);
+  end;
+end;
+
+
+function TPSPascalCompiler.IsIntBoolType(aType: TPSType): Boolean;
+begin
+  if Isboolean(aType) then begin Result := True; exit;end;
+
+  case aType.BaseType of
+    btU8, btS8, btU16, btS16, btU32, btS32{$IFNDEF PS_NOINT64}, btS64{$ENDIF}: Result := True;
+  else
+    Result := False;
+  end;
+end;
+
+
+procedure TPSPascalCompiler.ParserError(Parser: TObject;
+  Kind: TPSParserErrorKind);
+begin
+  FParserHadError := True;
+  case Kind of
+    ICOMMENTERROR: MakeError('', ecCommentError, '');
+    ISTRINGERROR: MakeError('', ecStringError, '');
+    ICHARERROR: MakeError('', ecCharError, '');
+  else
+    MakeError('', ecSyntaxError, '');
+  end;
+end;
+
+
+function TPSPascalCompiler.AddDelphiFunction(const Decl: tbtString): TPSRegProc;
+var
+  p: TPSRegProc;
+  pDecl: TPSParametersDecl;
+  DOrgName: tbtString;
+  FT: TPMFuncType;
+  i: Longint;
+
+begin
+  pDecl := TPSParametersDecl.Create;
+  p := nil;
+  try
+    if not ParseMethod(Self, '', Decl, DOrgName, pDecl, FT) then
+      Raise EPSCompilerException.CreateFmt(RPS_UnableToRegisterFunction, [Decl]);
+
+    p := TPSRegProc.Create;
+    P.Name := FastUppercase(DOrgName);
+    p.OrgName := DOrgName;
+    p.ExportName := True;
+    p.Decl.Assign(pDecl);
+
+    FRegProcs.Add(p);
+
+    if pDecl.Result = nil then
+    begin
+      p.ImportDecl := p.ImportDecl + #0;
+    end else
+      p.ImportDecl := p.ImportDecl + #1;
+    for i := 0 to pDecl.ParamCount -1 do
+    begin
+      if pDecl.Params[i].Mode <> pmIn then
+        p.ImportDecl := p.ImportDecl + #1
+      else
+        p.ImportDecl := p.ImportDecl + #0;
+    end;
+  finally
+    pDecl.Free;
+  end;
+  Result := p;
+end;
+
+{$IFNDEF PS_NOINTERFACES}
+function TPSPascalCompiler.AddInterface(InheritedFrom: TPSInterface; Guid: TGuid; const Name: tbtString): TPSInterface;
+var
+  f: TPSType;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  f := FindType(Name);
+  if (f <> nil) and (f is TPSInterfaceType) then
+  begin
+    result := TPSInterfaceType(f).Intf;
+    Result.Guid := Guid;
+    Result.InheritedFrom := InheritedFrom;
+    exit;
+  end;
+  f := AddType(Name, btInterface);
+  Result := TPSInterface.Create(Self, InheritedFrom, GUID, FastUppercase(Name), f);
+  FInterfaces.Add(Result);
+  TPSInterfaceType(f).Intf := Result;
+end;
+
+function TPSPascalCompiler.FindInterface(const Name: tbtString): TPSInterface;
+var
+  n: tbtString;
+  i, nh: Longint;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  n := FastUpperCase(Name);
+  nh := MakeHash(n);
+  for i := FInterfaces.Count -1 downto 0 do
+  begin
+    Result := FInterfaces[i];
+    if (Result.NameHash = nh) and (Result.Name = N) then
+      exit;
+  end;
+  raise EPSCompilerException.CreateFmt(RPS_UnknownInterface, [Name]);
+end;
+{$ENDIF}
+function TPSPascalCompiler.AddClass(InheritsFrom: TPSCompileTimeClass; aClass: TClass): TPSCompileTimeClass;
+var
+  f: TPSType;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FindClass(tbtstring(aClass.ClassName));
+  if Result <> nil then exit;
+  f := AddType(tbtstring(aClass.ClassName), btClass);
+  Result := TPSCompileTimeClass.CreateC(aClass, Self, f);
+  Result.FInheritsFrom := InheritsFrom;
+  FClasses.Add(Result);
+  TPSClassType(f).Cl := Result;
+  f.ExportName := True;
+end;
+
+function TPSPascalCompiler.AddClassN(InheritsFrom: TPSCompileTimeClass; const aClass: tbtString): TPSCompileTimeClass;
+var
+  f: TPSType;
+begin
+  if FProcs = nil then raise EPSCompilerException.Create(RPS_OnUseEventOnly);
+  Result := FindClass(aClass);
+  if Result <> nil then
+  begin
+    if InheritsFrom <> nil then
+      Result.FInheritsFrom := InheritsFrom;
+    exit;
+  end;
+  f := AddType(aClass, btClass);
+  Result := TPSCompileTimeClass.Create(FastUppercase(aClass), Self, f);
+  TPSClassType(f).Cl := Result;
+  Result.FInheritsFrom := InheritsFrom;
+  FClasses.Add(Result);
+  TPSClassType(f).Cl := Result;
+  f.ExportName := True;
+end;
+
+function TPSPascalCompiler.FindClass(const aClass: tbtString): TPSCompileTimeClass;
+var
+  i: Longint;
+  Cl: tbtString;
+  H: Longint;
+  x: TPSCompileTimeClass;
+begin
+  cl := FastUpperCase(aClass);
+  H := MakeHash(Cl);
+  for i :=0 to FClasses.Count -1 do
+  begin
+    x := FClasses[I];
+    if (X.FClassNameHash = H) and (X.FClassName = Cl) then
+    begin
+      Result := X;
+      Exit;
+    end;
+  end;
+  Result := nil;
+end;
+
+
+
+{  }
+
+function TransDoubleToStr(D: Double): tbtString;
+begin
+  SetLength(Result, SizeOf(Double));
+  Double((@Result[1])^) := D;
+end;
+
+function TransSingleToStr(D: Single): tbtString;
+begin
+  SetLength(Result, SizeOf(Single));
+  Single((@Result[1])^) := D;
+end;
+
+function TransExtendedToStr(D: Extended): tbtString;
+begin
+  SetLength(Result, SizeOf(Extended));
+  Extended((@Result[1])^) := D;
+end;
+
+function TransLongintToStr(D: Longint): tbtString;
+begin
+  SetLength(Result, SizeOf(Longint));
+  Longint((@Result[1])^) := D;
+end;
+
+function TransCardinalToStr(D: Cardinal): tbtString;
+begin
+  SetLength(Result, SizeOf(Cardinal));
+  Cardinal((@Result[1])^) := D;
+end;
+
+function TransWordToStr(D: Word): tbtString;
+begin
+  SetLength(Result, SizeOf(Word));
+  Word((@Result[1])^) := D;
+end;
+
+function TransSmallIntToStr(D: SmallInt): tbtString;
+begin
+  SetLength(Result, SizeOf(SmallInt));
+  SmallInt((@Result[1])^) := D;
+end;
+
+function TransByteToStr(D: Byte): tbtString;
+begin
+  SetLength(Result, SizeOf(Byte));
+  Byte((@Result[1])^) := D;
+end;
+
+function TransShortIntToStr(D: ShortInt): tbtString;
+begin
+  SetLength(Result, SizeOf(ShortInt));
+  ShortInt((@Result[1])^) := D;
+end;
+
+function TPSPascalCompiler.GetConstant(const Name: tbtString): TPSConstant;
+var
+  h, i: Longint;
+  n: tbtString;
+
+begin
+  n := FastUppercase(name);
+  h := MakeHash(n);
+  for i := 0 to FConstants.Count -1 do
+  begin
+    result := TPSConstant(FConstants[i]);
+    if (Result.NameHash = h) and (Result.Name = n) then exit;
+  end;
+  result := nil;
+end;
+
+{ TPSType }
+
+constructor TPSType.Create;
+begin
+  inherited Create;
+  FAttributes := TPSAttributes.Create;
+  FFinalTypeNo := InvalidVal;
+end;
+
+destructor TPSType.Destroy;
+begin
+  FAttributes.Free;
+  inherited Destroy;
+end;
+
+procedure TPSType.SetName(const Value: tbtString);
+begin
+  FName := Value;
+  FNameHash := MakeHash(Value);
+end;
+
+procedure TPSType.Use;
+begin
+  FUsed := True;
+end;
+
+{ TPSRecordType }
+
+function TPSRecordType.AddRecVal: PIFPSRecordFieldTypeDef;
+begin
+  Result := TPSRecordFieldTypeDef.Create;
+  FRecordSubVals.Add(Result);
+end;
+
+constructor TPSRecordType.Create;
+begin
+  inherited Create;
+  FRecordSubVals := TPSList.Create;
+end;
+
+destructor TPSRecordType.Destroy;
+var
+  i: Longint;
+begin
+  for i := FRecordSubVals.Count -1 downto 0 do
+    TPSRecordFieldTypeDef(FRecordSubVals[I]).Free;
+  FRecordSubVals.Free;
+  inherited Destroy;
+end;
+
+function TPSRecordType.RecVal(I: Longint): PIFPSRecordFieldTypeDef;
+begin
+  Result := FRecordSubVals[I]
+end;
+
+function TPSRecordType.RecValCount: Longint;
+begin
+  Result := FRecordSubVals.Count;
+end;
+
+
+{ TPSRegProc }
+
+constructor TPSRegProc.Create;
+begin
+  inherited Create;
+  FDecl := TPSParametersDecl.Create;
+end;
+
+destructor TPSRegProc.Destroy;
+begin
+  FDecl.Free;
+  inherited Destroy;
+end;
+
+procedure TPSRegProc.SetName(const Value: tbtString);
+begin
+  FName := Value;
+  FNameHash := MakeHash(FName);
+end;
+
+{ TPSRecordFieldTypeDef }
+
+procedure TPSRecordFieldTypeDef.SetFieldOrgName(const Value: tbtString);
+begin
+  FFieldOrgName := Value;
+  FFieldName := FastUppercase(Value);
+  FFieldNameHash := MakeHash(FFieldName);
+end;
+
+{ TPSProcVar }
+
+procedure TPSProcVar.SetName(const Value: tbtString);
+begin
+  FName := Value;
+  FNameHash := MakeHash(FName);
+end;
+
+procedure TPSProcVar.Use;
+begin
+  FUsed := True;
+end;
+
+
+
+{ TPSInternalProcedure }
+
+constructor TPSInternalProcedure.Create;
+begin
+  inherited Create;
+  FProcVars := TPSList.Create;
+  FLabels := TIfStringList.Create;
+  FGotos := TIfStringList.Create;
+  FDecl := TPSParametersDecl.Create;
+end;
+
+destructor TPSInternalProcedure.Destroy;
+var
+  i: Longint;
+begin
+  FDecl.Free;
+  for i := FProcVars.Count -1 downto 0 do
+    TPSProcVar(FProcVars[I]).Free;
+  FProcVars.Free;
+  FGotos.Free;
+  FLabels.Free;
+  inherited Destroy;
+end;
+
+procedure TPSInternalProcedure.ResultUse;
+begin
+  FResultUsed := True;
+end;
+
+procedure TPSInternalProcedure.SetName(const Value: tbtString);
+begin
+  FName := Value;
+  FNameHash := MakeHash(FName);
+end;
+
+procedure TPSInternalProcedure.Use;
+begin
+  FUsed := True;
+end;
+
+{ TPSProcedure }
+constructor TPSProcedure.Create;
+begin
+  inherited Create;
+  FAttributes := TPSAttributes.Create;
+end;
+
+destructor TPSProcedure.Destroy;
+begin
+  FAttributes.Free;
+  inherited Destroy;
+end;
+
+{ TPSVar }
+
+procedure TPSVar.SetName(const Value: tbtString);
+begin
+  FName := Value;
+  FNameHash := MakeHash(Value);
+end;
+
+procedure TPSVar.Use;
+begin
+  FUsed := True;
+end;
+
+{ TPSConstant }
+
+destructor TPSConstant.Destroy;
+begin
+  DisposeVariant(Value);
+  inherited Destroy;
+end;
+
+procedure TPSConstant.SetChar(c: tbtChar);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btChar: FValue.tchar := c;
+      btString: tbtString(FValue.tstring) := c;
+      {$IFNDEF PS_NOWIDESTRING}
+      btWideString: tbtwidestring(FValue.twidestring) := tbtWidestring(c);
+      btUnicodeString: tbtUnicodestring(FValue.twidestring) := tbtUnicodestring(c);
+      {$ENDIF}
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+
+procedure TPSConstant.SetExtended(const Val: Extended);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btSingle: FValue.tsingle := Val;
+      btDouble: FValue.tdouble := Val;
+      btExtended: FValue.textended := Val;
+      btCurrency: FValue.tcurrency := Val;
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+
+procedure TPSConstant.SetInt(const Val: Longint);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btEnum: FValue.tu32 := Val;
+      btU32, btS32: FValue.ts32 := Val;
+      btU16, btS16: FValue.ts16 := Val;
+      btU8, btS8: FValue.ts8 := Val;
+      btSingle: FValue.tsingle := Val;
+      btDouble: FValue.tdouble := Val;
+      btExtended: FValue.textended := Val;
+      btCurrency: FValue.tcurrency := Val;
+      {$IFNDEF PS_NOINT64}
+      bts64: FValue.ts64 := Val;
+      {$ENDIF}
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+{$IFNDEF PS_NOINT64}
+procedure TPSConstant.SetInt64(const Val: Int64);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btEnum: FValue.tu32 := Val;
+      btU32, btS32: FValue.ts32 := Val;
+      btU16, btS16: FValue.ts16 := Val;
+      btU8, btS8: FValue.ts8 := Val;
+      btSingle: FValue.tsingle := Val;
+      btDouble: FValue.tdouble := Val;
+      btExtended: FValue.textended := Val;
+      btCurrency: FValue.tcurrency := Val;
+      bts64: FValue.ts64 := Val;
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+{$ENDIF}
+procedure TPSConstant.SetName(const Value: tbtString);
+begin
+  FName := Value;
+  FNameHash := MakeHash(Value);
+end;
+
+
+procedure TPSConstant.SetSet(const val);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btSet:
+        begin
+          if length(tbtstring(FValue.tstring)) <> TPSSetType(FValue.FType).ByteSize then
+            SetLength(tbtstring(FValue.tstring), TPSSetType(FValue.FType).ByteSize);
+          Move(Val, FValue.tstring^, TPSSetType(FValue.FType).ByteSize);
+        end;
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+
+procedure TPSConstant.SetString(const Val: tbtString);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btChar: FValue.tchar := (Val+#0)[1];
+      btWideChar: FValue.twidechar := WideChar((Val+#0)[1]);
+      btString: tbtString(FValue.tstring) := val;
+      {$IFNDEF PS_NOWIDESTRING}
+      btWideString: tbtwidestring(FValue.twidestring) := tbtwidestring(val);
+      btUnicodeString: tbtunicodestring(FValue.tunistring) := tbtunicodestring(val);
+      {$ENDIF}
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+
+procedure TPSConstant.SetUInt(const Val: Cardinal);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btEnum: FValue.tu32 := Val;
+      btU32, btS32: FValue.tu32 := Val;
+      btU16, btS16: FValue.tu16 := Val;
+      btU8, btS8: FValue.tu8 := Val;
+      btSingle: FValue.tsingle := Val;
+      btDouble: FValue.tdouble := Val;
+      btExtended: FValue.textended := Val;
+      btCurrency: FValue.tcurrency := Val;
+      {$IFNDEF PS_NOINT64}
+      bts64: FValue.ts64 := Val;
+      {$ENDIF}
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+
+{$IFNDEF PS_NOWIDESTRING}
+procedure TPSConstant.SetWideChar(const val: WideChar);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btString: tbtString(FValue.tstring) := tbtstring(val);
+      btWideChar: FValue.twidechar := val;
+      btWideString: tbtwidestring(FValue.twidestring) := val;
+      btUnicodeString: tbtUnicodestring(FValue.tUniString) := val;
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+
+procedure TPSConstant.SetWideString(const val: tbtwidestring);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btString: tbtString(FValue.tstring) := tbtstring(val);
+      btWideString: tbtwidestring(FValue.twidestring) := val;
+      btUnicodeString: tbtunicodestring(FValue.tunistring) := val;
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+procedure TPSConstant.SetUnicodeString(const val: tbtunicodestring);
+begin
+  if (FValue <> nil) then
+  begin
+    case FValue.FType.BaseType of
+      btString: tbtString(FValue.tstring) := tbtstring(val);
+      btWideString: tbtwidestring(FValue.twidestring) := val;
+      btUnicodeString: tbtunicodestring(FValue.tunistring) := val;
+    else
+      raise EPSCompilerException.Create(RPS_ConstantValueMismatch);
+    end;
+  end else
+    raise EPSCompilerException.Create(RPS_ConstantValueNotAssigned)
+end;
+{$ENDIF}
+{ TPSPascalCompilerError }
+
+function TPSPascalCompilerError.ErrorType: tbtString;
+begin
+  Result := tbtstring(RPS_Error);
+end;
+
+function TPSPascalCompilerError.ShortMessageToString: tbtString;
+begin
+  case Error of
+    ecUnknownIdentifier: Result := tbtstring(Format (RPS_UnknownIdentifier, [Param]));
+    ecIdentifierExpected: Result := tbtstring(RPS_IdentifierExpected);
+    ecCommentError: Result := tbtstring(RPS_CommentError);
+    ecStringError: Result := tbtstring(RPS_StringError);
+    ecCharError: Result := tbtstring(RPS_CharError);
+    ecSyntaxError: Result := tbtstring(RPS_SyntaxError);
+    ecUnexpectedEndOfFile: Result := tbtstring(RPS_EOF);
+    ecSemicolonExpected: Result := tbtstring(RPS_SemiColonExpected);
+    ecBeginExpected: Result := tbtstring(RPS_BeginExpected);
+    ecPeriodExpected: Result := tbtstring(RPS_PeriodExpected);
+    ecDuplicateIdentifier: Result := tbtstring(Format (RPS_DuplicateIdent, [Param]));
+    ecColonExpected: Result := tbtstring(RPS_ColonExpected);
+    ecUnknownType: Result := tbtstring(Format (RPS_UnknownType, [Param]));
+    ecCloseRoundExpected: Result := tbtstring(RPS_CloseRoundExpected);
+    ecTypeMismatch: Result := tbtstring(RPS_TypeMismatch);
+    ecInternalError: Result := tbtstring(Format (RPS_InternalError, [Param]));
+    ecAssignmentExpected: Result := tbtstring(RPS_AssignmentExpected);
+    ecThenExpected: Result := tbtstring(RPS_ThenExpected);
+    ecDoExpected: Result := tbtstring(RPS_DoExpected);
+    ecNoResult: Result := tbtstring(RPS_NoResult);
+    ecOpenRoundExpected: Result := tbtstring(RPS_OpenRoundExpected);
+    ecCommaExpected: Result := tbtstring(RPS_CommaExpected);
+    ecToExpected: Result := tbtstring(RPS_ToExpected);
+    ecIsExpected: Result := tbtstring(RPS_IsExpected);
+    ecOfExpected: Result := tbtstring(RPS_OfExpected);
+    ecCloseBlockExpected: Result := tbtstring(RPS_CloseBlockExpected);
+    ecVariableExpected: Result := tbtstring(RPS_VariableExpected);
+    ecStringExpected: result := tbtstring(RPS_StringExpected);
+    ecEndExpected: Result := tbtstring(RPS_EndExpected);
+    ecUnSetLabel: Result := tbtstring(Format (RPS_UnSetLabel, [Param]));
+    ecNotInLoop: Result := tbtstring(RPS_NotInLoop);
+    ecInvalidJump: Result := tbtstring(RPS_InvalidJump);
+    ecOpenBlockExpected: Result := tbtstring(RPS_OpenBlockExpected);
+    ecWriteOnlyProperty: Result := tbtstring(RPS_WriteOnlyProperty);
+    ecReadOnlyProperty: Result := tbtstring(RPS_ReadOnlyProperty);
+    ecClassTypeExpected: Result := tbtstring(RPS_ClassTypeExpected);
+    ecCustomError: Result := Param;
+    ecDivideByZero: Result := tbtstring(RPS_DivideByZero);
+    ecMathError: Result := tbtstring(RPS_MathError);
+    ecUnsatisfiedForward: Result := tbtstring(Format (RPS_UnsatisfiedForward, [Param]));
+    ecForwardParameterMismatch: Result := tbtstring(RPS_ForwardParameterMismatch);
+    ecInvalidnumberOfParameters: Result := tbtstring(RPS_InvalidNumberOfParameter);
+    {$IFDEF PS_USESSUPPORT}
+    ecNotAllowed : Result:=tbtstring(Format(RPS_NotAllowed,[Param]));
+    ecUnitNotFoundOrContainsErrors: Result:=tbtstring(Format(RPS_UnitNotFound,[Param]));
+    {$ENDIF}
+  else
+    Result := tbtstring(RPS_UnknownError);
+  end;
+  Result := Result;
+end;
+
+
+{ TPSPascalCompilerHint }
+
+function TPSPascalCompilerHint.ErrorType: tbtString;
+begin
+  Result := tbtstring(RPS_Hint);
+end;
+
+function TPSPascalCompilerHint.ShortMessageToString: tbtString;
+begin
+  case Hint of
+    ehVariableNotUsed: Result := tbtstring(Format (RPS_VariableNotUsed, [Param]));
+    ehFunctionNotUsed: Result := tbtstring(Format (RPS_FunctionNotUsed, [Param]));
+    ehCustomHint: Result := Param;
+  else
+    Result := tbtstring(RPS_UnknownHint);
+  end;
+end;
+
+{ TPSPascalCompilerWarning }
+
+function TPSPascalCompilerWarning.ErrorType: tbtString;
+begin
+  Result := tbtstring(RPS_Warning);
+end;
+
+function TPSPascalCompilerWarning.ShortMessageToString: tbtString;
+begin
+  case Warning of
+    ewCustomWarning: Result := Param;
+    ewCalculationAlwaysEvaluatesTo: Result := tbtstring(Format (RPS_CalculationAlwaysEvaluatesTo, [Param]));
+    ewIsNotNeeded: Result := tbtstring(Format (RPS_IsNotNeeded, [Param]));
+    ewAbstractClass: Result := tbtstring(RPS_AbstractClass);
+  else
+    Result := tbtstring(RPS_UnknownWarning);
+  end;
+end;
+
+{ TPSPascalCompilerMessage }
+
+function TPSPascalCompilerMessage.MessageToString: tbtString;
+begin
+  Result := '['+ErrorType+'] '+FModuleName+'('+IntToStr(FRow)+':'+IntToStr(FCol)+'): '+ShortMessageToString;
+end;
+
+procedure TPSPascalCompilerMessage.SetParserPos(Parser: TPSPascalParser);
+begin
+  FPosition := Parser.CurrTokenPos;
+  FRow := Parser.Row;
+  FCol := Parser.Col;
+end;
+
+procedure TPSPascalCompilerMessage.SetCustomPos(Pos, Row, Col: Cardinal);
+begin
+  FPosition := Pos;
+  FRow := Row;
+  FCol := Col;
+end;
+
+{ TUnConstOperation }
+
+destructor TUnConstOperation.Destroy;
+begin
+  FVal1.Free;
+  inherited Destroy;
+end;
+
+
+{ TBinConstOperation }
+
+destructor TBinConstOperation.Destroy;
+begin
+  FVal1.Free;
+  FVal2.Free;
+  inherited Destroy;
+end;
+
+{ TConstData }
+
+destructor TConstData.Destroy;
+begin
+  DisposeVariant(FData);
+  inherited Destroy;
+end;
+
+
+{ TConstOperation }
+
+procedure TConstOperation.SetPos(Parser: TPSPascalParser);
+begin
+  FDeclPosition := Parser.CurrTokenPos;
+  FDeclRow := Parser.Row;
+  FDeclCol := Parser.Col;
+end;
+
+{ TPSValue }
+
+procedure TPSValue.SetParserPos(P: TPSPascalParser);
+begin
+  FPos := P.CurrTokenPos;
+  FRow := P.Row;
+  FCol := P.Col;
+end;
+
+{ TPSValueData }
+
+destructor TPSValueData.Destroy;
+begin
+  DisposeVariant(FData);
+  inherited Destroy;
+end;
+
+
+{ TPSValueReplace }
+
+constructor TPSValueReplace.Create;
+begin
+  FFreeNewValue := True;
+  FReplaceTimes := 1;
+end;
+
+destructor TPSValueReplace.Destroy;
+begin
+  if FFreeOldValue then
+    FOldValue.Free;
+  if FFreeNewValue then
+    FNewValue.Free;
+  inherited Destroy;
+end;
+
+
+
+{ TPSUnValueOp }
+
+destructor TPSUnValueOp.Destroy;
+begin
+  FVal1.Free;
+  inherited Destroy;
+end;
+
+{ TPSBinValueOp }
+
+destructor TPSBinValueOp.Destroy;
+begin
+  FVal1.Free;
+  FVal2.Free;
+  inherited Destroy;
+end;
+
+
+
+
+{ TPSSubValue }
+
+destructor TPSSubValue.Destroy;
+begin
+  FSubNo.Free;
+  inherited Destroy;
+end;
+
+{ TPSValueVar }
+
+constructor TPSValueVar.Create;
+begin
+  inherited Create;
+  FRecItems := TPSList.Create;
+end;
+
+destructor TPSValueVar.Destroy;
+var
+  i: Longint;
+begin
+  for i := 0 to FRecItems.Count -1 do
+  begin
+    TPSSubItem(FRecItems[I]).Free;
+  end;
+  FRecItems.Free;
+  inherited Destroy;
+end;
+
+function TPSValueVar.GetRecCount: Cardinal;
+begin
+  Result := FRecItems.Count;
+end;
+
+function TPSValueVar.GetRecItem(I: Cardinal): TPSSubItem;
+begin
+  Result := FRecItems[I];
+end;
+
+function TPSValueVar.RecAdd(Val: TPSSubItem): Cardinal;
+begin
+  Result := FRecItems.Add(Val);
+end;
+
+procedure TPSValueVar.RecDelete(I: Cardinal);
+var
+  rr :TPSSubItem;
+begin
+  rr := FRecItems[i];
+  FRecItems.Delete(I);
+  rr.Free;
+end;
+
+{ TPSValueProc }
+
+destructor TPSValueProc.Destroy;
+begin
+  FSelfPtr.Free;
+  FParameters.Free;
+end;
+{ TPSParameter }
+
+destructor TPSParameter.Destroy;
+begin
+  FTempVar.Free;
+  FValue.Free;
+  inherited Destroy;
+end;
+
+
+  { TPSParameters }
+
+function TPSParameters.Add: TPSParameter;
+begin
+  Result := TPSParameter.Create;
+  FItems.Add(Result);
+end;
+
+constructor TPSParameters.Create;
+begin
+  inherited Create;
+  FItems := TPSList.Create;
+end;
+
+procedure TPSParameters.Delete(I: Cardinal);
+var
+  p: TPSParameter;
+begin
+  p := FItems[I];
+  FItems.Delete(i);
+  p.Free;
+end;
+
+destructor TPSParameters.Destroy;
+var
+  i: Longint;
+begin
+  for i := FItems.Count -1 downto 0 do
+  begin
+    TPSParameter(FItems[I]).Free;
+  end;
+  FItems.Free;
+  inherited Destroy;
+end;
+
+function TPSParameters.GetCount: Cardinal;
+begin
+  Result := FItems.Count;
+end;
+
+function TPSParameters.GetItem(I: Longint): TPSParameter;
+begin
+  Result := FItems[I];
+end;
+
+
+{ TPSValueArray }
+
+function TPSValueArray.Add(Item: TPSValue): Cardinal;
+begin
+  Result := FItems.Add(Item);
+end;
+
+constructor TPSValueArray.Create;
+begin
+  inherited Create;
+  FItems := TPSList.Create;
+end;
+
+procedure TPSValueArray.Delete(I: Cardinal);
+begin
+  FItems.Delete(i);
+end;
+
+destructor TPSValueArray.Destroy;
+var
+  i: Longint;
+begin
+  for i := FItems.Count -1 downto 0 do
+    TPSValue(FItems[I]).Free;
+  FItems.Free;
+
+  inherited Destroy;
+end;
+
+function TPSValueArray.GetCount: Cardinal;
+begin
+  Result := FItems.Count;
+end;
+
+function TPSValueArray.GetItem(I: Cardinal): TPSValue;
+begin
+  Result := FItems[I];
+end;
+
+
+{ TPSValueAllocatedStackVar }
+
+destructor TPSValueAllocatedStackVar.Destroy;
+var
+  pv: TPSProcVar;
+begin
+  {$IFDEF DEBUG}
+  if Cardinal(LocalVarNo +1) <> proc.ProcVars.Count then
+  begin
+    Abort;
+    exit;
+  end;
+  {$ENDIF}
+  if Proc <> nil then
+  begin
+    pv := Proc.ProcVars[Proc.ProcVars.Count -1];
+    Proc.ProcVars.Delete(Proc.ProcVars.Count -1);
+    pv.Free;
+    Proc.Data := Proc.Data + tbtChar(CM_PO);
+  end;
+  inherited Destroy;
+end;
+
+
+
+
+function AddImportedClassVariable(Sender: TPSPascalCompiler; const VarName, VarType: tbtString): Boolean;
+var
+  P: TPSVar;
+begin
+  P := Sender.AddVariableN(VarName, VarType);
+  if p = nil then
+  begin
+    Result := False;
+    Exit;
+  end;
+  SetVarExportName(P, FastUppercase(VarName));
+  p.Use;
+  Result := True;
+end;
+
+
+{'class:'+CLASSNAME+'|'+FUNCNAME+'|'+chr(CallingConv)+chr(hasresult)+params
+
+For property write functions there is an '@' after the funcname.
+}
+
+const
+  ProcHDR = 'procedure a;';
+
+
+
+{ TPSCompileTimeClass }
+
+function TPSCompileTimeClass.CastToType(IntoType: TPSType;
+  var ProcNo: Cardinal): Boolean;
+var
+  P: TPSExternalProcedure;
+begin
+  if (IntoType <> nil) and (IntoType.BaseType <> btClass) and (IntoType.BaseType <> btInterface) then
+  begin
+    Result := False;
+    exit;
+  end;
+  if FCastProc <> InvalidVal then
+  begin
+    Procno := FCastProc;
+    Result := True;
+    exit;
+  end;
+  ProcNo := FOwner. AddUsedFunction2(P);
+  P.RegProc := FOwner.AddFunction(ProcHDR);
+  P.RegProc.Name := '';
+
+  with P.RegProc.Decl.AddParam do
+  begin
+    OrgName := 'Org';
+    aType := Self.FType;
+  end;
+  with P.RegProc.Decl.AddParam do
+  begin
+    OrgName := 'TypeNo';
+    aType := FOwner.at2ut(FOwner.FindBaseType(btU32));
+  end;
+  P.RegProc.Decl.Result := IntoType;
+  P.RegProc.ImportDecl := 'class:+';
+  FCastProc := ProcNo;
+  Result := True;
+end;
+
+
+function TPSCompileTimeClass.ClassFunc_Call(Index: IPointer;
+  var ProcNo: Cardinal): Boolean;
+var
+  C: TPSDelphiClassItemConstructor;
+  P: TPSExternalProcedure;
+  s: tbtString;
+  i: Longint;
+
+begin
+  if FIsAbstract then
+    FOwner.MakeWarning('', ewAbstractClass, '');
+  C := Pointer(Index);
+  if c.MethodNo = InvalidVal then
+  begin
+    ProcNo := FOwner.AddUsedFunction2(P);
+    P.RegProc := FOwner.AddFunction(ProcHDR);
+    P.RegProc.Name := '';
+    P.RegProc.Decl.Assign(c.Decl);
+    s := 'class:' + C.Owner.FClassName + '|' + C.Name + '|'+ chr(0);
+    if c.Decl.Result = nil then
+      s := s + #0
+    else
+      s := s + #1;
+    for i := 0 to C.Decl.ParamCount -1 do
+    begin
+      if c.Decl.Params[i].Mode <> pmIn then
+        s := s + #1
+      else
+        s := s + #0;
+    end;
+    P.RegProc.ImportDecl := s;
+    C.MethodNo := ProcNo;
+  end else begin
+     ProcNo := c.MethodNo;
+  end;
+  Result := True;
+end;
+
+function TPSCompileTimeClass.ClassFunc_Find(const Name: tbtString;
+  var Index: IPointer): Boolean;
+var
+  H: Longint;
+  I: Longint;
+  CurrClass: TPSCompileTimeClass;
+  C: TPSDelphiClassItem;
+begin
+  H := MakeHash(Name);
+  CurrClass := Self;
+  while CurrClass <> nil do
+  begin
+    for i := CurrClass.FClassItems.Count -1 downto 0 do
+    begin
+      C := CurrClass.FClassItems[I];
+      if (c is TPSDelphiClassItemConstructor) and (C.NameHash = H) and (C.Name = Name) then
+      begin
+        Index := Cardinal(C);
+        Result := True;
+        exit;
+      end;
+    end;
+    CurrClass := CurrClass.FInheritsFrom;
+  end;
+  Result := False;
+end;
+
+
+class function TPSCompileTimeClass.CreateC(FClass: TClass; aOwner: TPSPascalCompiler; aType: TPSType): TPSCompileTimeClass;
+begin
+  Result := TPSCompileTimeClass.Create(FastUpperCase(tbtstring(FClass.ClassName)), aOwner, aType);
+  Result.FClass := FClass;
+end;
+
+constructor TPSCompileTimeClass.Create(ClassName: tbtString; aOwner: TPSPascalCompiler; aType: TPSType);
+begin
+  inherited Create;
+  FType := aType;
+  FCastProc := InvalidVal;
+  FNilProc := InvalidVal;
+
+  FDefaultProperty := InvalidVal;
+  FClassName := Classname;
+  FClassNameHash := MakeHash(FClassName);
+  FClassItems := TPSList.Create;
+  FOwner := aOwner;
+end;
+
+destructor TPSCompileTimeClass.Destroy;
+var
+  I: Longint;
+begin
+  for i := FClassItems.Count -1 downto 0 do
+    TPSDelphiClassItem(FClassItems[I]).Free;
+  FClassItems.Free;
+  inherited Destroy;
+end;
+
+
+function TPSCompileTimeClass.Func_Call(Index: IPointer;
+  var ProcNo: Cardinal): Boolean;
+var
+  C: TPSDelphiClassItemMethod;
+  P: TPSExternalProcedure;
+  i: Longint;
+  s: tbtString;
+
+begin
+  C := Pointer(Index);
+  if c.MethodNo = InvalidVal then
+  begin
+    ProcNo := FOwner.AddUsedFunction2(P);
+    P.RegProc := FOwner.AddFunction(ProcHDR);
+    P.RegProc.Name := '';
+    p.RegProc.Decl.Assign(c.Decl);
+    s := 'class:' + C.Owner.FClassName + '|' + C.Name + '|'+ chr(0);
+    if c.Decl.Result = nil then
+      s := s + #0
+    else
+      s := s + #1;
+    for i := 0 to c.Decl.ParamCount -1 do
+    begin
+      if c.Decl.Params[i].Mode <> pmIn then
+        s := s + #1
+      else
+        s := s + #0;
+    end;
+    P.RegProc.ImportDecl := s;
+    C.MethodNo := ProcNo;
+  end else begin
+     ProcNo := c.MethodNo;
+  end;
+  Result := True;
+end;
+
+function TPSCompileTimeClass.Func_Find(const Name: tbtString;
+  var Index: IPointer): Boolean;
+var
+  H: Longint;
+  I: Longint;
+  CurrClass: TPSCompileTimeClass;
+  C: TPSDelphiClassItem;
+begin
+  H := MakeHash(Name);
+  CurrClass := Self;
+  while CurrClass <> nil do
+  begin
+    for i := CurrClass.FClassItems.Count -1 downto 0 do
+    begin
+      C := CurrClass.FClassItems[I];
+      if (c is TPSDelphiClassItemMethod) and (C.NameHash = H) and (C.Name = Name) then
+      begin
+        Index := Cardinal(C);
+        Result := True;
+        exit;
+      end;
+    end;
+    CurrClass := CurrClass.FInheritsFrom;
+  end;
+  Result := False;
+end;
+
+function TPSCompileTimeClass.GetCount: Longint;
+begin
+  Result := FClassItems.Count;
+end;
+
+function TPSCompileTimeClass.GetItem(i: Longint): TPSDelphiClassItem;
+begin
+  Result := FClassItems[i];
+end;
+
+function TPSCompileTimeClass.IsCompatibleWith(aType: TPSType): Boolean;
+var
+  Temp: TPSCompileTimeClass;
+begin
+  if (atype.BaseType <> btClass) then
+  begin
+    Result := False;
+    exit;
+  end;
+  temp := TPSClassType(aType).Cl;
+  while Temp <> nil do
+  begin
+    if Temp = Self then
+    begin
+      Result := True;
+      exit;
+    end;
+    Temp := Temp.FInheritsFrom;
+  end;
+  Result := False;
+end;
+
+function TPSCompileTimeClass.Property_Find(const Name: tbtString;
+  var Index: IPointer): Boolean;
+var
+  H: Longint;
+  I: Longint;
+  CurrClass: TPSCompileTimeClass;
+  C: TPSDelphiClassItem;
+begin
+  if Name = '' then
+  begin
+    CurrClass := Self;
+    while CurrClass <> nil do
+    begin
+      if CurrClass.FDefaultProperty <> InvalidVal then
+      begin
+        Index := Cardinal(CurrClass.FClassItems[Currclass.FDefaultProperty]);
+        result := True;
+        exit;
+      end;
+      CurrClass := CurrClass.FInheritsFrom;
+    end;
+    Result := False;
+    exit;
+  end;
+  H := MakeHash(Name);
+  CurrClass := Self;
+  while CurrClass <> nil do
+  begin
+    for i := CurrClass.FClassItems.Count -1 downto 0 do
+    begin
+      C := CurrClass.FClassItems[I];
+      if (c is TPSDelphiClassItemProperty) and (C.NameHash = H) and (C.Name = Name) then
+      begin
+        Index := Cardinal(C);
+        Result := True;
+        exit;
+      end;
+    end;
+    CurrClass := CurrClass.FInheritsFrom;
+  end;
+  Result := False;
+end;
+
+function TPSCompileTimeClass.Property_Get(Index: IPointer;
+  var ProcNo: Cardinal): Boolean;
+var
+  C: TPSDelphiClassItemProperty;
+  P: TPSExternalProcedure;
+  s: tbtString;
+
+begin
+  C := Pointer(Index);
+  if c.AccessType = iptW then
+  begin
+    Result := False;
+    exit;
+  end;
+  if c.ReadProcNo = InvalidVal then
+  begin
+    ProcNo := FOwner.AddUsedFunction2(P);
+    P.RegProc := FOwner.AddFunction(ProcHDR);
+    P.RegProc.Name := '';
+    P.RegProc.Decl.Result := C.Decl.Result;
+    s := 'class:' + C.Owner.FClassName + '|' + C.Name + '|'+#0#0#0#0;
+    Longint((@(s[length(s)-3]))^) := c.Decl.ParamCount +1;
+    P.RegProc.ImportDecl := s;
+    C.ReadProcNo := ProcNo;
+  end else begin
+     ProcNo := c.ReadProcNo;
+  end;
+  Result := True;
+end;
+
+function TPSCompileTimeClass.Property_GetHeader(Index: IPointer;
+  Dest: TPSParametersDecl): Boolean;
+var
+  c: TPSDelphiClassItemProperty;
+begin
+  C := Pointer(Index);
+  FOwner.UseProc(c.Decl);
+  Dest.Assign(c.Decl);
+  Result := True;
+end;
+
+function TPSCompileTimeClass.Property_Set(Index: IPointer;
+  var ProcNo: Cardinal): Boolean;
+var
+  C: TPSDelphiClassItemProperty;
+  P: TPSExternalProcedure;
+  s: tbtString;
+
+begin
+  C := Pointer(Index);
+  if c.AccessType = iptR then
+  begin
+    Result := False;
+    exit;
+  end;
+  if c.WriteProcNo = InvalidVal then
+  begin
+    ProcNo := FOwner.AddUsedFunction2(P);
+    P.RegProc := FOwner.AddFunction(ProcHDR);
+    P.RegProc.Name := '';
+    s := 'class:' + C.Owner.FClassName + '|' + C.Name + '@|'#0#0#0#0;
+    Longint((@(s[length(s)-3]))^) := C.Decl.ParamCount+1;
+    P.RegProc.ImportDecl := s;
+    C.WriteProcNo := ProcNo;
+  end else begin
+     ProcNo := c.WriteProcNo;
+  end;
+  Result := True;
+end;
+
+function TPSCompileTimeClass.RegisterMethod(const Decl: tbtString): Boolean;
+var
+  DOrgName: tbtString;
+  DDecl: TPSParametersDecl;
+  FT: TPMFuncType;
+  p: TPSDelphiClassItemMethod;
+begin
+  DDecl := TPSParametersDecl.Create;
+  try
+    if not ParseMethod(FOwner, FClassName, Decl, DOrgName, DDecl, FT) then
+    begin
+      Result := False;
+      {$IFDEF DEBUG} raise EPSCompilerException.CreateFmt(RPS_UnableToRegister, [Decl]); {$ENDIF}
+      exit;
+    end;
+    if ft = mftConstructor then
+      p := TPSDelphiClassItemConstructor.Create(Self)
+    else
+      p := TPSDelphiClassItemMethod.Create(self);
+    p.OrgName := DOrgName;
+    p.Decl.Assign(DDecl);
+    p.MethodNo := InvalidVal;
+    FClassItems.Add(p);
+    Result := True;
+  finally
+    DDecl.Free;
+  end;
+end;
+
+procedure TPSCompileTimeClass.RegisterProperty(const PropertyName,
+  PropertyType: tbtString; PropAC: TPSPropType);
+var
+  FType: TPSType;
+  Param: TPSParameterDecl;
+  p: TPSDelphiClassItemProperty;
+  PT: tbtString;
+begin
+  pt := PropertyType;
+  p := TPSDelphiClassItemProperty.Create(Self);
+  p.AccessType := PropAC;
+  p.ReadProcNo := InvalidVal;
+  p.WriteProcNo := InvalidVal;
+  p.OrgName := PropertyName;
+  repeat
+    FType := FOwner.FindType(FastUpperCase(grfw(pt)));
+    if FType = nil then
+    begin
+      p.Free;
+      Exit;
+    end;
+    if p.Decl.Result = nil  then p.Decl.Result := FType else
+    begin
+      param := p.Decl.AddParam;
+      Param.OrgName := 'param'+IntToStr(p.Decl.ParamCount);
+      Param.aType := FType;
+    end;
+  until pt = '';
+  FClassItems.Add(p);
+end;
+
+
+procedure TPSCompileTimeClass.RegisterPublishedProperties;
+var
+  p: PPropList;
+  i, Count: Longint;
+  a: TPSPropType;
+begin
+  if (Fclass = nil) or (Fclass.ClassInfo = nil) then exit;
+  Count := GetTypeData(fclass.ClassInfo)^.PropCount;
+  GetMem(p, Count * SizeOf(Pointer));
+  GetPropInfos(fclass.ClassInfo, p);
+  for i := Count -1 downto 0 do
+  begin
+    if p^[i]^.PropType^.Kind in [tkLString, tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet, tkClass, tkMethod{$IFNDEF PS_NOWIDESTRING}, tkWString{$ENDIF}] then
+    begin
+      if (p^[i]^.GetProc <> nil) then
+      begin
+        if p^[i]^.SetProc = nil then
+          a := iptr
+        else
+          a := iptrw;
+      end else
+      begin
+        a := iptW;
+        if p^[i]^.SetProc = nil then continue;
+      end;
+      RegisterProperty(p^[i]^.Name, p^[i]^.PropType^.Name, a);
+    end;
+  end;
+  FreeMem(p);
+end;
+
+function TPSCompileTimeClass.RegisterPublishedProperty(const Name: tbtString): Boolean;
+var
+  p: PPropInfo;
+  a: TPSPropType;
+begin
+  if (Fclass = nil) or (Fclass.ClassInfo = nil) then begin Result := False; exit; end;
+  p := GetPropInfo(fclass.ClassInfo, string(Name));
+  if p = nil then begin Result := False; exit; end;
+  if (p^.GetProc <> nil) then
+  begin
+    if p^.SetProc = nil then
+      a := iptr
+    else
+      a := iptrw;
+  end else
+  begin
+    a := iptW;
+    if p^.SetProc = nil then begin result := False; exit; end;
+  end;
+  RegisterProperty(p^.Name, p^.PropType^.Name, a);
+  Result := True;
+end;
+
+
+procedure TPSCompileTimeClass.SetDefaultPropery(const Name: tbtString);
+var
+  i,h: Longint;
+  p: TPSDelphiClassItem;
+  s: tbtString;
+
+begin
+  s := FastUppercase(name);
+  h := MakeHash(s);
+  for i := FClassItems.Count -1 downto 0 do
+  begin
+    p := FClassItems[i];
+    if (p.NameHash = h) and (p.Name = s) then
+    begin
+      if p is TPSDelphiClassItemProperty then
+      begin
+        if p.Decl.ParamCount = 0 then
+          Raise EPSCompilerException.Create(RPS_NotArrayProperty);
+        FDefaultProperty := I;
+        exit;
+      end else Raise EPSCompilerException.Create(RPS_NotProperty);
+    end;
+  end;
+  raise EPSCompilerException.Create(RPS_UnknownProperty);
+end;
+
+function TPSCompileTimeClass.SetNil(var ProcNo: Cardinal): Boolean;
+var
+  P: TPSExternalProcedure;
+
+begin
+  if FNilProc <> InvalidVal then
+  begin
+    Procno := FNilProc;
+    Result := True;
+    exit;
+  end;
+  ProcNo := FOwner.AddUsedFunction2(P);
+  P.RegProc := FOwner.AddFunction(ProcHDR);
+  P.RegProc.Name := '';
+  with P.RegProc.Decl.AddParam do
+  begin
+    OrgName := 'VarNo';
+    aType := FOwner.at2ut(FType);
+  end;
+  P.RegProc.ImportDecl := 'class:-';
+  FNilProc := Procno;
+  Result := True;
+end;
+
+{ TPSSetType }
+
+function TPSSetType.GetBitSize: Longint;
+begin
+  case SetType.BaseType of
+    btEnum: begin Result := TPSEnumType(setType).HighValue+1; end;
+    btChar, btU8: Result := 256;
+  else
+    Result := 0;
+  end;
+end;
+
+function TPSSetType.GetByteSize: Longint;
+var
+  r: Longint;
+begin
+  r := BitSize;
+  if r mod 8 <> 0 then inc(r, 7);
+   Result := r div 8;
+end;
+
+
+{ TPSBlockInfo }
+
+procedure TPSBlockInfo.Clear;
+var
+  i: Longint;
+begin
+  for i := WithList.Count -1 downto 0 do
+  begin
+    TPSValue(WithList[i]).Free;
+    WithList.Delete(i);
+  end;
+end;
+
+constructor TPSBlockInfo.Create(Owner: TPSBlockInfo);
+begin
+  inherited Create;
+  FOwner := Owner;
+  FWithList := TPSList.Create;
+  if FOwner <> nil then
+  begin
+    FProcNo := FOwner.ProcNo;
+    FProc := FOwner.Proc;
+  end;
+end;
+
+destructor TPSBlockInfo.Destroy;
+begin
+  Clear;
+  FWithList.Free;
+  inherited Destroy;
+end;
+
+{ TPSAttributeTypeField }
+procedure TPSAttributeTypeField.SetFieldOrgName(const Value: tbtString);
+begin
+  FFieldOrgName := Value;
+  FFieldName := FastUpperCase(Value);
+  FFieldNameHash := MakeHash(FFieldName);
+end;
+
+constructor TPSAttributeTypeField.Create(AOwner: TPSAttributeType);
+begin
+  inherited Create;
+  FOwner := AOwner;
+end;
+
+{ TPSAttributeType }
+
+function TPSAttributeType.GetField(I: Longint): TPSAttributeTypeField;
+begin
+  Result := TPSAttributeTypeField(FFields[i]);
+end;
+
+function TPSAttributeType.GetFieldCount: Longint;
+begin
+  Result := FFields.Count;
+end;
+
+procedure TPSAttributeType.SetName(const s: tbtString);
+begin
+  FOrgname := s;
+  FName := FastUppercase(s);
+  FNameHash := MakeHash(FName);
+end;
+
+constructor TPSAttributeType.Create;
+begin
+  inherited Create;
+  FFields := TPSList.Create;
+end;
+
+destructor TPSAttributeType.Destroy;
+var
+  i: Longint;
+begin
+  for i := FFields.Count -1 downto 0 do
+  begin
+    TPSAttributeTypeField(FFields[i]).Free;
+  end;
+  FFields.Free;
+  inherited Destroy;
+end;
+
+function TPSAttributeType.AddField: TPSAttributeTypeField;
+begin
+  Result := TPSAttributeTypeField.Create(self);
+  FFields.Add(Result);
+end;
+
+procedure TPSAttributeType.DeleteField(I: Longint);
+var
+  Fld: TPSAttributeTypeField;
+begin
+  Fld := FFields[i];
+  FFields.Delete(i);
+  Fld.Free;
+end;
+
+{ TPSAttribute }
+function TPSAttribute.GetValueCount: Longint;
+begin
+  Result := FValues.Count;
+end;
+
+function TPSAttribute.GetValue(I: Longint): PIfRVariant;
+begin
+  Result := FValues[i];
+end;
+
+constructor TPSAttribute.Create(AttribType: TPSAttributeType);
+begin
+  inherited Create;
+  FValues := TPSList.Create;
+  FAttribType := AttribType;
+end;
+
+procedure TPSAttribute.DeleteValue(i: Longint);
+var
+  Val: PIfRVariant;
+begin
+  Val := FValues[i];
+  FValues.Delete(i);
+  DisposeVariant(Val);
+end;
+
+function TPSAttribute.AddValue(v: PIFRVariant): Longint;
+begin
+  Result := FValues.Add(v);
+end;
+
+
+destructor TPSAttribute.Destroy;
+var
+  i: Longint;
+begin
+  for i := FValues.Count -1 downto 0 do
+  begin
+    DisposeVariant(FValues[i]);
+  end;
+  FValues.Free;
+  inherited Destroy;
+end;
+
+
+procedure TPSAttribute.Assign(Item: TPSAttribute);
+var
+  i: Longint;
+  p: PIfRVariant;
+begin
+  for i := FValues.Count -1 downto 0 do
+  begin
+    DisposeVariant(FValues[i]);
+  end;
+  FValues.Clear;
+  FAttribType := Item.FAttribType;
+  for i := 0 to Item.FValues.Count -1 do
+  begin
+    p := DuplicateVariant(Item.FValues[i]);
+    FValues.Add(p);
+  end;
+end;
+
+{ TPSAttributes }
+
+function TPSAttributes.GetCount: Longint;
+begin
+  Result := FItems.Count;
+end;
+
+function TPSAttributes.GetItem(I: Longint): TPSAttribute;
+begin
+  Result := TPSAttribute(FItems[i]);
+end;
+
+procedure TPSAttributes.Delete(i: Longint);
+var
+  item: TPSAttribute;
+begin
+  item := TPSAttribute(FItems[i]);
+  FItems.Delete(i);
+  Item.Free;
+end;
+
+function TPSAttributes.Add(AttribType: TPSAttributeType): TPSAttribute;
+begin
+  Result := TPSAttribute.Create(AttribType);
+  FItems.Add(Result);
+end;
+
+constructor TPSAttributes.Create;
+begin
+  inherited Create;
+  FItems := TPSList.Create;
+end;
+
+destructor TPSAttributes.Destroy;
+var
+  i: Longint;
+begin
+  for i := FItems.Count -1 downto 0 do
+  begin
+    TPSAttribute(FItems[i]).Free;
+  end;
+  FItems.Free;
+  inherited Destroy;
+end;
+
+procedure TPSAttributes.Assign(attr: TPSAttributes; Move: Boolean);
+var
+  newitem, item: TPSAttribute;
+  i: Longint;
+begin
+  for i := ATtr.FItems.Count -1 downto 0 do
+  begin
+    Item := Attr.Fitems[i];
+    if Move then
+    begin
+      FItems.Add(Item);
+      Attr.FItems.Delete(i);
+    end else
+    begin
+      newitem := TPSAttribute.Create(Item.FAttribType );
+      newitem.Assign(item);
+      FItems.Add(NewItem);
+    end;
+  end;
+
+end;
+
+
+function TPSAttributes.FindAttribute(
+  const Name: tbtString): TPSAttribute;
+var
+  h, i: Longint;
+
+begin
+  h := MakeHash(name);
+  for i := FItems.Count -1 downto 0 do
+  begin
+    Result := FItems[i];
+    if (Result.FAttribType.NameHash = h) and (Result.FAttribType.Name = Name) then
+      exit;
+  end;
+  result := nil;
+end;
+
+{ TPSParameterDecl }
+procedure TPSParameterDecl.SetName(const s: tbtString);
+begin
+  FOrgName := s;
+  FName := FastUppercase(s);
+end;
+
+
+{ TPSParametersDecl }
+
+procedure TPSParametersDecl.Assign(Params: TPSParametersDecl);
+var
+  i: Longint;
+  np, orgp: TPSParameterDecl;
+begin
+  for i := FParams.Count -1 downto 0 do
+  begin
+    TPSParameterDecl(Fparams[i]).Free;
+  end;
+  FParams.Clear;
+  FResult := Params.Result;
+
+  for i := 0 to Params.FParams.count -1 do
+  begin
+    orgp := Params.FParams[i];
+    np := AddParam;
+    np.OrgName := orgp.OrgName;
+    np.Mode := orgp.Mode;
+    np.aType := orgp.aType;
+    np.DeclarePos:=orgp.DeclarePos;
+    np.DeclareRow:=orgp.DeclareRow;
+    np.DeclareCol:=orgp.DeclareCol;
+  end;
+end;
+
+
+function TPSParametersDecl.GetParam(I: Longint): TPSParameterDecl;
+begin
+  Result := FParams[i];
+end;
+
+function TPSParametersDecl.GetParamCount: Longint;
+begin
+  Result := FParams.Count;
+end;
+
+function TPSParametersDecl.AddParam: TPSParameterDecl;
+begin
+  Result := TPSParameterDecl.Create;
+  FParams.Add(Result);
+end;
+
+procedure TPSParametersDecl.DeleteParam(I: Longint);
+var
+  param: TPSParameterDecl;
+begin
+  param := FParams[i];
+  FParams.Delete(i);
+  Param.Free;
+end;
+
+constructor TPSParametersDecl.Create;
+begin
+  inherited Create;
+  FParams := TPSList.Create;
+end;
+
+destructor TPSParametersDecl.Destroy;
+var
+  i: Longint;
+begin
+  for i := FParams.Count -1 downto 0 do
+  begin
+    TPSParameterDecl(Fparams[i]).Free;
+  end;
+  FParams.Free;
+  inherited Destroy;
+end;
+
+function TPSParametersDecl.Same(d: TPSParametersDecl): boolean;
+var
+  i: Longint;
+begin
+  if (d = nil) or (d.ParamCount <> ParamCount) or (d.Result <> Self.Result) then
+    Result := False
+  else begin
+    for i := 0 to d.ParamCount -1 do
+    begin
+      if (d.Params[i].Mode <> Params[i].Mode) or (d.Params[i].aType <> Params[i].aType) then
+      begin
+        Result := False;
+        exit;
+      end;
+    end;
+    Result := True;
+  end;
+end;
+
+{ TPSProceduralType }
+
+constructor TPSProceduralType.Create;
+begin
+  inherited Create;
+  FProcDef := TPSParametersDecl.Create;
+
+end;
+
+destructor TPSProceduralType.Destroy;
+begin
+  FProcDef.Free;
+  inherited Destroy;
+end;
+
+{ TPSDelphiClassItem }
+
+procedure TPSDelphiClassItem.SetName(const s: tbtString);
+begin
+  FOrgName := s;
+  FName := FastUpperCase(s);
+  FNameHash := MakeHash(FName);
+end;
+
+constructor TPSDelphiClassItem.Create(Owner: TPSCompileTimeClass);
+begin
+  inherited Create;
+  FOwner := Owner;
+  FDecl := TPSParametersDecl.Create;
+end;
+
+destructor TPSDelphiClassItem.Destroy;
+begin
+  FDecl.Free;
+  inherited Destroy;
+end;
+
+{$IFNDEF PS_NOINTERFACES}
+{ TPSInterface }
+
+function TPSInterface.CastToType(IntoType: TPSType;
+  var ProcNo: Cardinal): Boolean;
+var
+  P: TPSExternalProcedure;
+begin
+  if (IntoType <> nil) and (IntoType.BaseType <> btInterface) then
+  begin
+    Result := False;
+    exit;
+  end;
+  if FCastProc <> InvalidVal then
+  begin
+    ProcNo := FCastProc;
+    Result := True;
+    exit;
+  end;
+  ProcNo := FOwner.AddUsedFunction2(P);
+  P.RegProc := FOwner.AddFunction(ProcHDR);
+  P.RegProc.Name := '';
+  with P.RegProc.Decl.AddParam do
+  begin
+    OrgName := 'Org';
+    aType := Self.FType;
+  end;
+  with P.RegProc.Decl.AddParam do
+  begin
+    OrgName := 'TypeNo';
+    aType := FOwner.at2ut(FOwner.FindBaseType(btU32));
+  end;
+  P.RegProc.Decl.Result := FOwner.at2ut(IntoType);
+
+  P.RegProc.ImportDecl := 'class:+';
+  FCastProc := ProcNo;
+  Result := True;
+end;
+
+constructor TPSInterface.Create(Owner: TPSPascalCompiler; InheritedFrom: TPSInterface; Guid: TGuid; const Name: tbtString; aType: TPSType);
+begin
+  inherited Create;
+  FCastProc := InvalidVal;
+  FNilProc := InvalidVal;
+
+  FType := aType;
+  FOWner := Owner;
+  FGuid := GUID;
+  Self.InheritedFrom := InheritedFrom;
+
+  FItems := TPSList.Create;
+  FName := Name;
+  FNameHash := MakeHash(Name);
+end;
+
+procedure TPSInterface.SetInheritedFrom(p: TPSInterface);
+begin
+  FInheritedFrom := p;
+end;
+
+destructor TPSInterface.Destroy;
+var
+  i: Longint;
+begin
+  for i := FItems.Count -1 downto 0 do
+  begin
+    TPSInterfaceMethod(FItems[i]).Free;
+  end;
+  FItems.Free;
+  inherited Destroy;
+end;
+
+function TPSInterface.Func_Call(Index: Cardinal;
+  var ProcNo: Cardinal): Boolean;
+var
+  c: TPSInterfaceMethod;
+  P: TPSExternalProcedure;
+  s: tbtString;
+  i: Longint;
+begin
+  c := TPSInterfaceMethod(Index);
+  if c.FScriptProcNo <> InvalidVal then
+  begin
+    Procno := c.FScriptProcNo;
+    Result := True;
+    exit;
+  end;
+  ProcNo := FOwner.AddUsedFunction2(P);
+  P.RegProc := FOwner.AddFunction(ProcHDR);
+  P.RegProc.Name := '';
+  FOwner.UseProc(C.Decl);
+  P.RegProc.Decl.Assign(c.Decl);
+  s := tbtstring('intf:.') + PS_mi2s(c.AbsoluteProcOffset) + tbtchar(ord(c.CC));
+  if c.Decl.Result = nil then
+    s := s + #0
+  else
+    s := s + #1;
+  for i := 0 to C.Decl.ParamCount -1 do
+  begin
+    if c.Decl.Params[i].Mode <> pmIn then
+      s := s + #1
+    else
+      s := s + #0;
+  end;
+  P.RegProc.ImportDecl := s;
+  C.FScriptProcNo := ProcNo;
+  Result := True;
+end;
+
+function TPSInterface.Func_Find(const Name: tbtString;
+  var Index: Cardinal): Boolean;
+var
+  H: Longint;
+  I: Longint;
+  CurrClass: TPSInterface;
+  C: TPSInterfaceMethod;
+begin
+  H := MakeHash(Name);
+  CurrClass := Self;
+  while CurrClass <> nil do
+  begin
+    for i := CurrClass.FItems.Count -1 downto 0 do
+    begin
+      C := CurrClass.FItems[I];
+      if (C.NameHash = H) and (C.Name = Name) then
+      begin
+        Index := Cardinal(c);
+        Result := True;
+        exit;
+      end;
+    end;
+    CurrClass := CurrClass.FInheritedFrom;
+  end;
+  Result := False;
+end;
+
+function TPSInterface.IsCompatibleWith(aType: TPSType): Boolean;
+var
+  Temp: TPSInterface;
+begin
+  if (atype.BaseType = btClass) then // just support it, we'll see what happens
+  begin
+    Result := true;
+    exit;
+  end;
+  if atype.BaseType <> btInterface then
+  begin
+    Result := False;
+    exit;
+  end;
+  temp := TPSInterfaceType(atype).FIntf;
+  while Temp <> nil do
+  begin
+    if Temp = Self then
+    begin
+      Result := True;
+      exit;
+    end;
+    Temp := Temp.FInheritedFrom;
+  end;
+  Result := False;
+end;
+
+procedure TPSInterface.RegisterDummyMethod;
+begin
+  FItems.Add(TPSInterfaceMethod.Create(self));
+end;
+
+function TPSInterface.RegisterMethod(const Declaration: tbtString;
+  const cc: TPSCallingConvention): Boolean;
+begin
+  Result := RegisterMethodEx(Declaration, cc, nil);
+end;
+
+function TPSInterface.RegisterMethodEx(const Declaration: tbtString;
+  const cc: TPSCallingConvention; const CustomParser: TPSPascalParser): Boolean;
+var
+  M: TPSInterfaceMethod;
+  DOrgName: tbtString;
+  Func: TPMFuncType;
+begin
+  M := TPSInterfaceMethod.Create(Self);
+  if not ParseMethodEx(FOwner, '', Declaration, DOrgname, m.Decl, Func, CustomParser) then
+  begin
+    FItems.Add(m); // in any case, add a dummy item
+    Result := False;
+    exit;
+  end;
+  m.FName := FastUppercase(DOrgName);
+  m.FOrgName := DOrgName;
+  m.FNameHash := MakeHash(m.FName);
+  m.FCC := CC;
+  m.FScriptProcNo := InvalidVal;
+  FItems.Add(M);
+  Result := True;
+end;
+
+
+function TPSInterface.SetNil(var ProcNo: Cardinal): Boolean;
+var
+  P: TPSExternalProcedure;
+
+begin
+  if FNilProc <> InvalidVal then
+  begin
+    Procno := FNilProc;
+    Result := True;
+    exit;
+  end;
+  ProcNo := FOwner.AddUsedFunction2(P);
+  P.RegProc := FOwner.AddFunction(ProcHDR);
+  P.RegProc.Name := '';
+  with p.RegProc.Decl.AddParam do
+  begin
+    Mode := pmInOut;
+    OrgName := 'VarNo';
+    aType := FOwner.at2ut(Self.FType);
+  end;
+  P.RegProc.ImportDecl := 'class:-';
+  FNilProc := Procno;
+  Result := True;
+end;
+
+{ TPSInterfaceMethod }
+
+constructor TPSInterfaceMethod.Create(Owner: TPSInterface);
+begin
+  inherited Create;
+  FDecl := TPSParametersDecl.Create;
+  FOwner := Owner;
+  FOffsetCache := InvalidVal;
+end;
+
+function TPSInterfaceMethod.GetAbsoluteProcOffset: Cardinal;
+var
+  ps: TPSInterface;
+begin
+  if FOffsetCache = InvalidVal then
+  begin
+    FOffsetCache := FOwner.FItems.IndexOf(Self);
+    ps := FOwner.FInheritedFrom;
+    while ps <> nil do
+    begin
+      FOffsetCache := FOffsetCache + ps.FItems.Count;
+      ps := ps.FInheritedFrom;
+    end;
+  end;
+  result := FOffsetCache;
+end;
+
+
+destructor TPSInterfaceMethod.Destroy;
+begin
+  FDecl.Free;
+  inherited Destroy;
+end;
+{$ENDIF}
+
+{ TPSVariantType }
+
+function TPSVariantType.GetDynInvokeParamType(Owner: TPSPascalCompiler) : TPSType;
+begin
+  Result := Owner.at2ut(FindAndAddType(owner, '!OPENARRAYOFVARIANT', 'array of variant'));
+end;
+
+function TPSVariantType.GetDynInvokeProcNo(Owner: TPSPascalCompiler; const Name: tbtString;
+  Params: TPSParameters): Cardinal;
+begin
+  Result := Owner.FindProc('IDISPATCHINVOKE');
+end;
+
+function TPSVariantType.GetDynIvokeResulType(
+  Owner: TPSPascalCompiler): TPSType;
+begin
+  Result := Owner.FindType('VARIANT');
+end;
+
+function TPSVariantType.GetDynIvokeSelfType(Owner: TPSPascalCompiler): TPSType;
+begin
+  Result := Owner.at2ut(Owner.FindType('IDISPATCH'));
+end;
+
+
+{ TPSExternalClass }
+function TPSExternalClass.SetNil(var ProcNo: Cardinal): Boolean;
+begin
+  Result := False;
+end;
+
+constructor TPSExternalClass.Create(Se: TIFPSPascalCompiler; TypeNo: TPSType);
+begin
+  inherited Create;
+  Self.SE := se;
+  Self.FTypeNo := TypeNo;
+end;
+
+function TPSExternalClass.Func_Call(Index: Cardinal;
+  var ProcNo: Cardinal): Boolean;
+begin
+  Result := False;
+end;
+
+function TPSExternalClass.Func_Find(const Name: tbtString;
+  var Index: Cardinal): Boolean;
+begin
+  Result := False;
+end;
+
+function TPSExternalClass.IsCompatibleWith(
+  Cl: TPSExternalClass): Boolean;
+begin
+  Result := False;
+end;
+
+function TPSExternalClass.SelfType: TPSType;
+begin
+  Result := nil;
+end;
+
+function TPSExternalClass.CastToType(IntoType: TPSType;
+  var ProcNo: Cardinal): Boolean;
+begin
+  Result := False;
+end;
+
+function TPSExternalClass.CompareClass(OtherTypeNo: TPSType;
+  var ProcNo: Cardinal): Boolean;
+begin
+  Result := false;
+end;
+
+function TPSExternalClass.ClassFunc_Find(const Name: tbtString; var Index: Cardinal): Boolean;
+begin
+  result := false;
+end;
+
+function TPSExternalClass.ClassFunc_Call(Index: Cardinal; var ProcNo: Cardinal): Boolean;
+begin
+  result := false;
+end;
+
+
+{ TPSValueProcVal }
+
+destructor TPSValueProcVal.Destroy;
+begin
+  FProcNo.Free;
+  inherited;
+end;
+
+
+{
+
+Internal error counter: 00020 (increase and then use)
+
+}
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent.pas
new file mode 100644
index 0000000..fbb608e
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent.pas	
@@ -0,0 +1,1511 @@
+unit uPSComponent;
+{$I PascalScript.inc}
+interface
+
+uses
+  SysUtils, Classes, uPSRuntime, uPSDebugger, uPSUtils,
+  uPSCompiler, uPSC_dll, uPSR_dll, uPSPreProcessor;
+
+const
+  {alias to @link(ifps3.cdRegister)}
+  cdRegister = uPSRuntime.cdRegister;
+  {alias to @link(ifps3.cdPascal)}
+  cdPascal = uPSRuntime.cdPascal;
+
+  CdCdecl = uPSRuntime.CdCdecl;
+
+  CdStdCall = uPSRuntime.CdStdCall;
+
+type
+  TPSScript = class;
+  
+  TDelphiCallingConvention = uPSRuntime.TPSCallingConvention;
+  {Alias to @link(ifps3.TPSRuntimeClassImporter)}
+  TPSRuntimeClassImporter = uPSRuntime.TPSRuntimeClassImporter;
+  
+  TPSPlugin = class(TComponent)
+  public
+    procedure CompOnUses(CompExec: TPSScript); virtual;
+
+    procedure ExecOnUses(CompExec: TPSScript); virtual;
+
+    procedure CompileImport1(CompExec: TPSScript); virtual;
+
+    procedure CompileImport2(CompExec: TPSScript); virtual;
+
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); virtual;
+
+    procedure ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); virtual;
+  end;
+  
+  TIFPS3Plugin = class(TPSPlugin);
+  
+  TPSDllPlugin = class(TPSPlugin)
+  public
+    procedure CompOnUses(CompExec: TPSScript); override;
+    procedure ExecOnUses(CompExec: TPSScript); override;
+  end;
+  
+  TIFPS3DllPlugin = class(TPSDllPlugin);
+
+
+  TPSPluginItem = class(TCollectionItem)
+  private
+    FPlugin: TPSPlugin;
+    procedure SetPlugin(const Value: TPSPlugin);
+  protected
+    function GetDisplayName: string; override;
+  public
+    procedure Assign(Source: TPersistent); override; //Birb
+  published
+    property Plugin: TPSPlugin read FPlugin write SetPlugin;
+  end;
+
+  
+  TIFPS3CEPluginItem = class(TPSPluginItem);
+
+  
+  TPSPlugins = class(TCollection)
+  private
+    FCompExec: TPSScript;
+  protected
+    
+    function GetOwner: TPersistent; override;
+  public
+    
+    constructor Create(CE: TPSScript);
+  end;
+ 
+ TIFPS3CEPlugins = class(TPSPlugins);
+
+  
+  TPSOnGetNotVariant = function (Sender: TPSScript; const Name: tbtstring): Variant of object;
+  TPSOnSetNotVariant = procedure (Sender: TPSScript; const Name: tbtstring; V: Variant) of object;
+  TPSCompOptions = set of (icAllowNoBegin, icAllowUnit, icAllowNoEnd, icBooleanShortCircuit);
+  
+  TPSVerifyProc = procedure (Sender: TPSScript; Proc: TPSInternalProcedure; const Decl: tbtstring; var Error: Boolean) of object;
+  
+  TPSEvent = procedure (Sender: TPSScript) of object;
+  
+  TPSOnCompImport = procedure (Sender: TObject; x: TPSPascalCompiler) of object;
+
+  TPSOnExecImport = procedure (Sender: TObject; se: TPSExec; x: TPSRuntimeClassImporter) of object;
+  {Script engine event function}
+  TPSOnNeedFile = function (Sender: TObject; const OrginFileName: tbtstring; var FileName, Output: tbtstring): Boolean of object;
+
+  TPSOnProcessDirective = procedure (
+                            Sender: TPSPreProcessor;
+                            Parser: TPSPascalPreProcessorParser;
+                            const Active: Boolean;
+                            const DirectiveName, DirectiveParam: tbtstring;
+                            Var Continue: Boolean) of Object;  // jgv
+
+  TPSScript = class(TComponent)
+  private
+    FOnGetNotificationVariant: TPSOnGetNotVariant;
+    FOnSetNotificationVariant: TPSOnSetNotVariant;
+    FCanAdd: Boolean;
+    FComp: TPSPascalCompiler;
+    FCompOptions: TPSCompOptions;
+    FExec: TPSDebugExec;
+    FSuppressLoadData: Boolean;
+    FScript: TStrings;
+    FOnLine: TNotifyEvent;
+    FUseDebugInfo: Boolean;
+    FOnAfterExecute, FOnCompile, FOnExecute: TPSEvent;
+    FOnCompImport: TPSOnCompImport;
+    FOnExecImport: TPSOnExecImport;
+    RI: TPSRuntimeClassImporter;
+    FPlugins: TPSPlugins;
+    FPP: TPSPreProcessor;
+    FMainFileName: tbtstring;
+    FOnNeedFile: TPSOnNeedFile;
+    FUsePreProcessor: Boolean;
+    FDefines: TStrings;
+    FOnVerifyProc: TPSVerifyProc;
+    FOnProcessDirective: TPSOnProcessDirective;
+    FOnProcessUnknowDirective: TPSOnProcessDirective;
+    FOnFindUnknownFile: TPSOnNeedFile;
+    function GetRunning: Boolean;
+    procedure SetScript(const Value: TStrings);
+    function GetCompMsg(i: Integer): TPSPascalCompilerMessage;
+    function GetCompMsgCount: Longint;
+    function GetAbout: tbtstring;
+    function ScriptUses(Sender: TPSPascalCompiler; const Name: tbtstring): Boolean;
+    function GetExecErrorByteCodePosition: Cardinal;
+    function GetExecErrorCode: TIFError;
+    function GetExecErrorParam: tbtstring;
+    function GetExecErrorProcNo: Cardinal;
+    function GetExecErrorString: tbtstring;
+    function GetExecErrorPosition: Cardinal;
+    function GetExecErrorCol: Cardinal;
+    function GetExecErrorRow: Cardinal;
+    function GetExecErrorFileName: tbtstring;
+    procedure SetDefines(const Value: TStrings);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+  protected
+    //jgv move where private before - not very usefull
+    procedure OnLineEvent; virtual;
+    procedure SetMainFileName(const Value: tbtstring); virtual;
+
+    //--jgv new
+    function  DoOnNeedFile (Sender: TObject; const OrginFileName: tbtstring; var FileName, Output: tbtstring): Boolean; virtual;
+    function  DoOnUnknowUses (Sender: TPSPascalCompiler; const Name: tbtstring): Boolean; virtual; // return true if processed
+    procedure DoOnCompImport; virtual;
+    procedure DoOnCompile; virtual;
+    function  DoVerifyProc (Sender: TPSScript; Proc: TPSInternalProcedure; const Decl: tbtstring): Boolean; virtual;
+
+    procedure DoOnExecImport (RunTimeImporter: TPSRuntimeClassImporter); virtual;
+    procedure DoOnExecute (RunTimeImporter: TPSRuntimeClassImporter); virtual;
+    procedure DoAfterExecute; virtual;
+    function  DoOnGetNotificationVariant (const Name: tbtstring): Variant; virtual;
+    procedure DoOnSetNotificationVariant (const Name: tbtstring; V: Variant); virtual;
+
+    procedure DoOnProcessDirective (Sender: TPSPreProcessor;
+                Parser: TPSPascalPreProcessorParser;
+                const Active: Boolean;
+                const DirectiveName, DirectiveParam: tbtstring;
+                Var Continue: Boolean); virtual;
+    procedure DoOnProcessUnknowDirective (Sender: TPSPreProcessor;
+                Parser: TPSPascalPreProcessorParser;
+                const Active: Boolean;
+                const DirectiveName, DirectiveParam: tbtstring;
+                Var Continue: Boolean); virtual;
+  public
+    property RuntimeImporter: TPSRuntimeClassImporter read RI;
+
+    function FindNamedType(const Name: tbtstring): TPSTypeRec;
+
+    function FindBaseType(Bt: TPSBaseType): TPSTypeRec;
+
+    property SuppressLoadData: Boolean read FSuppressLoadData write FSuppressLoadData;
+
+    function LoadExec: Boolean;
+
+    procedure Stop; virtual;
+
+    constructor Create(AOwner: TComponent); override;
+
+    destructor Destroy; override;
+
+    function Compile: Boolean; virtual;
+
+    function Execute: Boolean; virtual;
+
+    property Running: Boolean read GetRunning;
+
+    procedure GetCompiled(var data: tbtstring);
+
+    procedure SetCompiled(const Data: tbtstring);
+
+    property Comp: TPSPascalCompiler read FComp;
+
+    property Exec: TPSDebugExec read FExec;
+
+    property CompilerMessageCount: Longint read GetCompMsgCount;
+
+    property CompilerMessages[i: Longint]: TPSPascalCompilerMessage read GetCompMsg;
+
+    function CompilerErrorToStr(I: Longint): tbtstring;
+
+    property ExecErrorCode: TIFError read GetExecErrorCode;
+
+    property ExecErrorParam: tbtstring read GetExecErrorParam;
+
+    property ExecErrorToString: tbtstring read GetExecErrorString;
+
+    property ExecErrorProcNo: Cardinal read GetExecErrorProcNo;
+
+    property ExecErrorByteCodePosition: Cardinal read GetExecErrorByteCodePosition;
+
+    property ExecErrorPosition: Cardinal read GetExecErrorPosition;
+
+    property ExecErrorRow: Cardinal read GetExecErrorRow;
+
+    property ExecErrorCol: Cardinal read GetExecErrorCol;
+
+    property ExecErrorFileName: tbtstring read GetExecErrorFileName;
+
+    function AddFunctionEx(Ptr: Pointer; const Decl: tbtstring; CallingConv: TDelphiCallingConvention): Boolean;
+
+    function AddFunction(Ptr: Pointer; const Decl: tbtstring): Boolean;
+
+
+    function AddMethodEx(Slf, Ptr: Pointer; const Decl: tbtstring; CallingConv: TDelphiCallingConvention): Boolean;
+
+    function AddMethod(Slf, Ptr: Pointer; const Decl: tbtstring): Boolean;
+
+    function AddRegisteredVariable(const VarName, VarType: tbtstring): Boolean;
+    function AddNotificationVariant(const VarName: tbtstring): Boolean;
+
+    function AddRegisteredPTRVariable(const VarName, VarType: tbtstring): Boolean;
+
+    function GetVariable(const Name: tbtstring): PIFVariant;
+
+    function SetVarToInstance(const VarName: tbtstring; cl: TObject): Boolean;
+
+    procedure SetPointerToData(const VarName: tbtstring; Data: Pointer; aType: TIFTypeRec);
+
+    function TranslatePositionPos(Proc, Position: Cardinal; var Pos: Cardinal; var fn: tbtstring): Boolean;
+
+    function TranslatePositionRC(Proc, Position: Cardinal; var Row, Col: Cardinal; var fn: tbtstring): Boolean;
+
+    function GetProcMethod(const ProcName: tbtstring): TMethod;
+
+    function ExecuteFunction(const Params: array of Variant; const ProcName: tbtstring): Variant;
+  published
+
+    property About: tbtstring read GetAbout stored false;
+
+    property Script: TStrings read FScript write SetScript;
+
+    property CompilerOptions: TPSCompOptions read FCompOptions write FCompOptions;
+
+    property OnLine: TNotifyEvent read FOnLine write FOnLine;
+
+    property OnCompile: TPSEvent read FOnCompile write FOnCompile;
+
+    property OnExecute: TPSEvent read FOnExecute write FOnExecute;
+    
+    property OnAfterExecute: TPSEvent read FOnAfterExecute write FOnAfterExecute;
+    
+    property OnCompImport: TPSOnCompImport read FOnCompImport write FOnCompImport;
+
+    property OnExecImport: TPSOnExecImport read FOnExecImport write FOnExecImport;
+
+    property UseDebugInfo: Boolean read FUseDebugInfo write FUseDebugInfo default True;
+
+    property Plugins: TPSPlugins read FPlugins write FPlugins;
+
+    property MainFileName: tbtstring read FMainFileName write SetMainFileName;
+
+    property UsePreProcessor: Boolean read FUsePreProcessor write FUsePreProcessor;
+
+    property OnNeedFile: TPSOnNeedFile read FOnNeedFile write FOnNeedFile;
+
+    property Defines: TStrings read FDefines write SetDefines;
+
+    property OnVerifyProc: TPSVerifyProc read FOnVerifyProc write FOnVerifyProc;
+    property OnGetNotificationVariant: TPSOnGetNotVariant read FOnGetNotificationVariant write FOnGetNotificationVariant;
+    property OnSetNotificationVariant: TPSOnSetNotVariant read FOnSetNotificationVariant write FOnSetNotificationVariant;
+    property OnFindUnknownFile: TPSOnNeedFile read FOnFindUnknownFile write FOnFindUnknownFile;
+
+  published
+    //-- jgv
+    property OnProcessDirective: TPSOnProcessDirective read FOnProcessDirective write FOnProcessDirective;
+    property OnProcessUnknowDirective: TPSOnProcessDirective read FOnProcessUnknowDirective write FOnProcessUnknowDirective;
+  end;
+
+  TIFPS3CompExec = class(TPSScript);
+
+  
+  TPSBreakPointInfo = class
+  private
+    FLine: Longint;
+    FFileNameHash: Longint;
+    FFileName: tbtstring;
+    procedure SetFileName(const Value: tbtstring);
+  public
+
+    property FileName: tbtstring read FFileName write SetFileName;
+    
+    property FileNameHash: Longint read FFileNameHash;
+    
+    property Line: Longint read FLine write FLine;
+  end;
+  
+  TPSOnLineInfo = procedure (Sender: TObject; const FileName: tbtstring; Position, Row, Col: Cardinal) of object;
+  
+  TPSScriptDebugger = class(TPSScript)
+  private
+    FOnIdle: TNotifyEvent;
+    FBreakPoints: TIFList;
+    FOnLineInfo: TPSOnLineInfo;
+    FLastRow: Cardinal;
+    FOnBreakpoint: TPSOnLineInfo;
+    function GetBreakPoint(I: Integer): TPSBreakPointInfo;
+    function GetBreakPointCount: Longint;
+  protected
+    procedure SetMainFileName(const Value: tbtstring); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+
+    
+    procedure Pause; virtual;
+
+    procedure Resume; virtual;
+
+    
+    procedure StepInto; virtual;
+
+    procedure StepOver; virtual;
+    
+    procedure SetBreakPoint(const Fn: tbtstring; Line: Longint);
+
+    procedure ClearBreakPoint(const Fn: tbtstring; Line: Longint);
+
+    property BreakPointCount: Longint read GetBreakPointCount;
+
+    property BreakPoint[I: Longint]: TPSBreakPointInfo read GetBreakPoint;
+
+    function HasBreakPoint(const Fn: tbtstring; Line: Longint): Boolean;
+
+    procedure ClearBreakPoints;
+
+    function GetVarContents(const Name: tbtstring): tbtstring;
+  published
+
+    property OnIdle: TNotifyEvent read FOnIdle write FOnIdle;
+
+    property OnLineInfo: TPSOnLineInfo read FOnLineInfo write FOnLineInfo;
+
+    property OnBreakpoint: TPSOnLineInfo read FOnBreakpoint write FOnBreakpoint;
+  end;
+  
+  TIFPS3DebugCompExec = class(TPSScriptDebugger);
+  
+  TPSCustumPlugin = class(TPSPlugin)
+  private
+    FOnCompileImport2: TPSEvent;
+    FOnExecOnUses: TPSEvent;
+    FOnCompOnUses: TPSEvent;
+    FOnCompileImport1: TPSEvent;
+    FOnExecImport1: TPSOnExecImport;
+    FOnExecImport2: TPSOnExecImport;
+  public
+    procedure CompOnUses(CompExec: TPSScript); override;
+    procedure ExecOnUses(CompExec: TPSScript); override;
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure CompileImport2(CompExec: TPSScript); override;
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+
+    procedure ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+  public
+  published
+    property OnCompOnUses : TPSEvent read FOnCompOnUses write FOnCompOnUses;
+    property OnExecOnUses: TPSEvent read FOnExecOnUses write FOnExecOnUses;
+    property OnCompileImport1: TPSEvent read FOnCompileImport1 write FOnCompileImport1; 
+    property OnCompileImport2: TPSEvent read FOnCompileImport2 write FOnCompileImport2;
+    property OnExecImport1: TPSOnExecImport read FOnExecImport1 write FOnExecImport1;
+    property OnExecImport2: TPSOnExecImport read FOnExecImport2 write FOnExecImport2;
+  end;  
+
+implementation
+
+
+{$IFDEF DELPHI3UP }
+resourceString
+{$ELSE }
+const
+{$ENDIF }
+
+  RPS_UnableToReadVariant = 'Unable to read variant';
+  RPS_UnableToWriteVariant = 'Unable to write variant';
+  RPS_ScripEngineAlreadyRunning = 'Script engine already running';
+  RPS_ScriptNotCompiled = 'Script is not compiled';
+  RPS_NotRunning = 'Not running';
+  RPS_UnableToFindVariable = 'Unable to find variable';
+  RPS_UnknownIdentifier = 'Unknown Identifier';
+  RPS_NoScript = 'No script';
+
+function MyGetVariant(Sender: TPSExec; const Name: tbtstring): Variant;
+begin
+  Result := TPSScript (Sender.Id).DoOnGetNotificationVariant(Name);
+end;
+
+procedure MySetVariant(Sender: TPSExec; const Name: tbtstring; V: Variant);
+begin
+  TPSScript (Sender.Id).DoOnSetNotificationVariant(Name, V);
+end;
+
+function CompScriptUses(Sender: TPSPascalCompiler; const Name: tbtstring): Boolean;
+begin
+  Result := TPSScript(Sender.ID).ScriptUses(Sender, Name);
+end;
+
+procedure ExecOnLine(Sender: TPSExec);
+begin
+  if assigned(TPSScript(Sender.ID).FOnLine) then
+  begin
+    TPSScript(Sender.ID).OnLineEvent;
+  end;
+end;
+
+function CompExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: tbtstring): Boolean;
+begin
+  Result := TPSScript(Sender.ID).DoVerifyProc (Sender.ID, Proc, ProcDecl);
+end;
+
+
+procedure callObjectOnProcessDirective (
+  Sender: TPSPreProcessor;
+  Parser: TPSPascalPreProcessorParser;
+  const Active: Boolean;
+  const DirectiveName, DirectiveParam: tbtstring;
+  Var Continue: Boolean);
+begin
+  TPSScript (Sender.ID).DoOnProcessUnknowDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
+end;
+
+procedure callObjectOnProcessUnknowDirective (
+  Sender: TPSPreProcessor;
+  Parser: TPSPascalPreProcessorParser;
+  const Active: Boolean;
+  const DirectiveName, DirectiveParam: tbtstring;
+  Var Continue: Boolean);
+begin
+  TPSScript (Sender.ID).DoOnProcessDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
+end;
+
+
+{ TPSPlugin }
+procedure TPSPlugin.CompileImport1(CompExec: TPSScript);
+begin
+  // do nothing
+end;
+
+procedure TPSPlugin.CompileImport2(CompExec: TPSScript);
+begin
+  // do nothing
+end;
+
+procedure TPSPlugin.CompOnUses(CompExec: TPSScript);
+begin
+ // do nothing
+end;
+
+procedure TPSPlugin.ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter);
+begin
+  // do nothing
+end;
+
+procedure TPSPlugin.ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter);
+begin
+  // do nothing
+end;
+
+procedure TPSPlugin.ExecOnUses(CompExec: TPSScript);
+begin
+ // do nothing
+end;
+
+
+{ TPSScript }
+
+function TPSScript.AddFunction(Ptr: Pointer;
+  const Decl: tbtstring): Boolean;
+begin
+  Result := AddFunctionEx(Ptr, Decl, cdRegister);
+end;
+
+function TPSScript.AddFunctionEx(Ptr: Pointer; const Decl: tbtstring;
+  CallingConv: TDelphiCallingConvention): Boolean;
+var
+  P: TPSRegProc;
+begin
+  if not FCanAdd then begin Result := False; exit; end;
+  p := Comp.AddDelphiFunction(Decl);
+  if p <> nil then
+  begin
+    Exec.RegisterDelphiFunction(Ptr, p.Name, CallingConv);
+    Result := True;
+  end else Result := False;
+end;
+
+function TPSScript.AddRegisteredVariable(const VarName,
+  VarType: tbtstring): Boolean;
+var
+  FVar: TPSVar;
+begin
+  if not FCanAdd then begin Result := False; exit; end;
+  FVar := FComp.AddUsedVariableN(varname, vartype);
+  if fvar = nil then
+    result := False
+  else begin
+    fvar.exportname := fvar.Name;
+    Result := True;
+  end;
+end;
+
+function CENeedFile(Sender: TPSPreProcessor; const callingfilename: tbtstring; var FileName, Output: tbtstring): Boolean;
+begin
+  Result := TPSScript (Sender.ID).DoOnNeedFile(Sender.ID, CallingFileName, FileName, Output);
+end;
+
+procedure CompTranslateLineInfo(Sender: TPSPascalCompiler; var Pos, Row, Col: Cardinal; var Name: tbtstring);
+var
+  res: TPSLineInfoResults;
+begin
+  if TPSScript(Sender.ID).FPP.CurrentLineInfo.GetLineInfo(Name, Pos, Res) then
+  begin
+    Pos := Res.Pos;
+    Row := Res.Row;
+    Col := Res.Col;
+    Name := Res.Name;
+  end;
+end;
+
+function TPSScript.Compile: Boolean;
+var
+  i: Longint;
+  dta: tbtstring;
+begin
+  FExec.Clear;
+  FExec.CMD_Err(erNoError);
+  FExec.ClearspecialProcImports;
+  FExec.ClearFunctionList;
+  if ri <> nil then
+  begin
+    RI.Free;
+    RI := nil;
+  end;
+  RI := TPSRuntimeClassImporter.Create;
+  for i := 0 to FPlugins.Count -1 do
+  begin
+    if (TPSPluginItem(FPlugins.Items[i]) <> nil) and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+      TPSPluginItem(FPlugins.Items[i]).Plugin.ExecImport1(Self, ri);
+  end;
+
+  DoOnExecImport (RI);
+  
+  for i := 0 to FPlugins.Count -1 do
+  begin
+    if (TPSPluginItem(FPlugins.Items[i]) <> nil)and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+      TPSPluginItem(FPlugins.Items[i]).Plugin.ExecImport2(Self, ri);
+  end;
+  RegisterClassLibraryRuntime(Exec, RI);
+  for i := 0 to FPlugins.Count -1 do
+  begin
+    if (TPSPluginItem(FPlugins.Items[i]) <> nil)and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+      TPSPluginItem(FPlugins.Items[i]).Plugin.ExecOnUses(Self);
+  end;
+  FCanAdd := True;
+  FComp.BooleanShortCircuit := icBooleanShortCircuit in FCompOptions;
+  FComp.AllowNoBegin := icAllowNoBegin in FCompOptions;
+  FComp.AllowUnit := icAllowUnit in FCompOptions;
+  FComp.AllowNoEnd := icAllowNoEnd in FCompOptions;
+  if FUsePreProcessor then
+  begin
+    FPP.Clear;
+    FPP.Defines.Assign(FDefines);
+    FComp.OnTranslateLineInfo := CompTranslateLineInfo;
+    Fpp.OnProcessDirective := callObjectOnProcessDirective;
+    Fpp.OnProcessUnknowDirective := callObjectOnProcessUnknowDirective;
+    Fpp.MainFile := FScript.Text;
+    Fpp.MainFileName := FMainFileName;
+    Fpp.PreProcess(FMainFileName, dta);
+    if FComp.Compile(dta) then
+    begin
+      FCanAdd := False;
+      if (not SuppressLoadData) and (not LoadExec) then
+      begin
+        Result := False;
+      end else
+        Result := True;
+    end else Result := False;
+    Fpp.AdjustMessages(Comp);
+  end else
+  begin
+    FComp.OnTranslateLineInfo := nil;
+    if FComp.Compile(FScript.Text) then
+    begin
+      FCanAdd := False;
+      if not LoadExec then
+      begin
+        Result := False;
+      end else
+        Result := True;
+    end else Result := False;
+  end;
+end;
+
+function TPSScript.CompilerErrorToStr(I: Integer): tbtstring;
+begin
+  Result := CompilerMessages[i].MessageToString;
+end;
+
+constructor TPSScript.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FComp := TPSPascalCompiler.Create;
+  FExec := TPSDebugExec.Create;
+  FScript := TStringList.Create;
+  FPlugins := TPSPlugins.Create(self);
+
+  FComp.ID := Self;
+  FComp.OnUses := CompScriptUses;
+  FComp.OnExportCheck := CompExportCheck;
+  FExec.Id := Self;
+  FExec.OnRunLine:= ExecOnLine;
+  FExec.OnGetNVariant := MyGetVariant;
+  FExec.OnSetNVariant := MySetVariant;
+
+  FUseDebugInfo := True;
+
+  FPP := TPSPreProcessor.Create;
+  FPP.Id := Self;
+  FPP.OnNeedFile := CENeedFile;
+
+  FDefines := TStringList.Create;
+end;
+
+destructor TPSScript.Destroy;
+begin
+  FDefines.Free;
+
+  FPP.Free;
+  RI.Free;
+  FPlugins.Free;
+  FPlugins := nil;
+  FScript.Free;
+  FExec.Free;
+  FComp.Free;
+  inherited Destroy;
+end;
+
+function TPSScript.Execute: Boolean;
+begin
+  if Running then raise Exception.Create(RPS_ScripEngineAlreadyRunning);
+  if SuppressLoadData then
+    LoadExec;
+
+  DoOnExecute (RI);
+
+  FExec.DebugEnabled := FUseDebugInfo;
+  Result := FExec.RunScript and (FExec.ExceptionCode = erNoError) ;
+
+  DoAfterExecute;
+end;
+
+function TPSScript.GetAbout: tbtstring;
+begin
+  Result := TPSExec.About;
+end;
+
+procedure TPSScript.GetCompiled(var data: tbtstring);
+begin
+  if not FComp.GetOutput(Data) then
+    raise Exception.Create(RPS_ScriptNotCompiled);
+end;
+
+function TPSScript.GetCompMsg(i: Integer): TPSPascalCompilerMessage;
+begin
+  Result := FComp.Msg[i];
+end;
+
+function TPSScript.GetCompMsgCount: Longint;
+begin
+  Result := FComp.MsgCount;
+end;
+
+function TPSScript.GetExecErrorByteCodePosition: Cardinal;
+begin
+  Result := Exec.ExceptionPos;
+end;
+
+function TPSScript.GetExecErrorCode: TIFError;
+begin
+  Result := Exec.ExceptionCode;
+end;
+
+function TPSScript.GetExecErrorParam: tbtstring;
+begin
+  Result := Exec.ExceptionString;
+end;
+
+function TPSScript.GetExecErrorPosition: Cardinal;
+begin
+  Result := FExec.TranslatePosition(Exec.ExceptionProcNo, Exec.ExceptionPos);
+end;
+
+function TPSScript.GetExecErrorProcNo: Cardinal;
+begin
+  Result := Exec.ExceptionProcNo;
+end;
+
+function TPSScript.GetExecErrorString: tbtstring;
+begin
+  Result := TIFErrorToString(Exec.ExceptionCode, Exec.ExceptionString);
+end;
+
+function TPSScript.GetVariable(const Name: tbtstring): PIFVariant;
+begin
+  Result := FExec.GetVar2(name);
+end;
+
+function TPSScript.LoadExec: Boolean;
+var
+  s: tbtstring;
+begin
+  if (not FComp.GetOutput(s)) or (not FExec.LoadData(s)) then
+  begin
+    Result := False;
+    exit;
+  end;
+  if FUseDebugInfo then
+  begin
+    FComp.GetDebugOutput(s);
+    FExec.LoadDebugData(s);
+  end;
+  Result := True;
+end;
+
+function TPSScript.ScriptUses(Sender: TPSPascalCompiler;
+  const Name: tbtstring): Boolean;
+var
+  i: Longint;
+begin
+  if Name = 'SYSTEM' then
+  begin
+    for i := 0 to FPlugins.Count -1 do
+    begin
+      if (TPSPluginItem(FPlugins.Items[i]) <> nil)and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+        TPSPluginItem(FPlugins.Items[i]).Plugin.CompOnUses(Self);
+    end;
+    for i := 0 to FPlugins.Count -1 do
+    begin
+      if (TPSPluginItem(FPlugins.Items[i]) <> nil)and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+        TPSPluginItem(FPlugins.Items[i]).Plugin.CompileImport1(self);
+    end;
+
+    DoOnCompImport;
+
+    for i := 0 to FPlugins.Count -1 do
+    begin
+      if (TPSPluginItem(FPlugins.Items[i]) <> nil)and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+        TPSPluginItem(FPlugins.Items[i]).Plugin.CompileImport2(Self);
+    end;
+
+    DoOnCompile;
+
+    Result := true;
+    for i := 0 to Sender.MsgCount -1 do begin
+      if Sender.Msg[i] is TPSPascalCompilerError then Result := false;
+    end;
+  end
+  else begin
+    Result := DoOnUnknowUses (Sender, Name);
+{    If Not Result then
+      Sender.MakeError('', ecUnknownIdentifier, Name);}
+  end;
+end;
+
+procedure TPSScript.SetCompiled(const Data: tbtstring);
+var
+  i: Integer;
+begin
+  FExec.Clear;
+  FExec.ClearspecialProcImports;
+  FExec.ClearFunctionList;
+  if ri <> nil then
+  begin
+    RI.Free;
+    RI := nil;
+  end;
+  RI := TPSRuntimeClassImporter.Create;
+  for i := 0 to FPlugins.Count -1 do
+  begin
+    if (TPSPluginItem(FPlugins.Items[i]) <> nil)and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+        TPSPluginItem(FPlugins.Items[i]).Plugin.ExecImport1(Self, ri);
+  end;
+
+  DoOnExecImport(RI);
+
+  for i := 0 to FPlugins.Count -1 do
+  begin
+    if (TPSPluginItem(FPlugins.Items[i]) <> nil)and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+      TPSPluginItem(FPlugins.Items[i]).Plugin.ExecImport2(Self, ri);
+  end;
+  RegisterClassLibraryRuntime(Exec, RI);
+  for i := 0 to FPlugins.Count -1 do
+  begin
+    if (TPSPluginItem(FPlugins.Items[i]) <> nil)and (TPSPluginItem(FPlugins.Items[i]).Plugin <> nil) then
+      TPSPluginItem(FPlugins.Items[i]).Plugin.ExecOnUses(Self);
+  end;
+  if not FExec.LoadData(Data) then
+    raise Exception.Create(GetExecErrorString);
+end;
+
+function TPSScript.SetVarToInstance(const VarName: tbtstring; cl: TObject): Boolean;
+var
+  p: PIFVariant;
+begin
+  p := GetVariable(VarName);
+  if p <> nil then
+  begin
+    SetVariantToClass(p, cl);
+    result := true;
+  end else result := false;
+end;
+
+procedure TPSScript.SetScript(const Value: TStrings);
+begin
+  FScript.Assign(Value);
+end;
+
+
+function TPSScript.AddMethod(Slf, Ptr: Pointer;
+  const Decl: tbtstring): Boolean;
+begin
+  Result := AddMethodEx(Slf, Ptr, Decl, cdRegister);
+end;
+
+function TPSScript.AddMethodEx(Slf, Ptr: Pointer; const Decl: tbtstring;
+  CallingConv: TDelphiCallingConvention): Boolean;
+var
+  P: TPSRegProc;
+begin
+  if not FCanAdd then begin Result := False; exit; end;
+  p := Comp.AddDelphiFunction(Decl);
+  if p <> nil then
+  begin
+    Exec.RegisterDelphiMethod(Slf, Ptr, p.Name, CallingConv);
+    Result := True;
+  end else Result := False;
+end;
+
+procedure TPSScript.OnLineEvent;
+begin
+  if @FOnLine <> nil then FOnLine(Self);
+end;
+
+function TPSScript.GetRunning: Boolean;
+begin
+  Result := FExec.Status = isRunning;
+end;
+
+function TPSScript.GetExecErrorCol: Cardinal;
+var
+  s: tbtstring;
+  D1: Cardinal;
+begin
+  if not TranslatePositionRC(Exec.ExceptionProcNo, Exec.ExceptionPos, D1, Result, s) then
+    Result := 0;
+end;
+
+function TPSScript.TranslatePositionPos(Proc, Position: Cardinal;
+  var Pos: Cardinal; var fn: tbtstring): Boolean;
+var
+  D1, D2: Cardinal;
+begin
+  Result := Exec.TranslatePositionEx(Exec.ExceptionProcNo, Exec.ExceptionPos, Pos, D1, D2, fn);
+end;
+
+function TPSScript.TranslatePositionRC(Proc, Position: Cardinal;
+  var Row, Col: Cardinal; var fn: tbtstring): Boolean;
+var
+  d1: Cardinal;
+begin
+  Result := Exec.TranslatePositionEx(Proc, Position, d1, Row, Col, fn);
+end;
+
+
+function TPSScript.GetExecErrorRow: Cardinal;
+var
+  D1: Cardinal;
+  s: tbtstring;
+begin
+  if not TranslatePositionRC(Exec.ExceptionProcNo, Exec.ExceptionPos, Result, D1, s) then
+    Result := 0;
+end;
+
+procedure TPSScript.Stop;
+begin
+  if (FExec.Status = isRunning) or (Fexec.Status = isPaused) then
+    FExec.Stop
+  else
+    raise Exception.Create(RPS_NotRunning);
+end;
+
+function TPSScript.GetProcMethod(const ProcName: tbtstring): TMethod;
+begin
+  Result := FExec.GetProcAsMethodN(ProcName)
+end;
+
+procedure TPSScript.SetMainFileName(const Value: tbtstring);
+begin
+  FMainFileName := Value;
+end;
+
+function TPSScript.GetExecErrorFileName: tbtstring;
+var
+  D1, D2: Cardinal;
+begin
+  if not TranslatePositionRC(Exec.ExceptionProcNo, Exec.ExceptionPos, D1, D2, Result) then
+    Result := '';
+end;
+
+procedure TPSScript.SetPointerToData(const VarName: tbtstring;
+  Data: Pointer; aType: TIFTypeRec);
+var
+  v: PIFVariant;
+  t: TPSVariantIFC;
+begin
+  v := GetVariable(VarName);
+  if (Atype = nil) or (v = nil) then raise Exception.Create(RPS_UnableToFindVariable);
+  t.Dta := @PPSVariantData(v).Data;
+  t.aType := v.FType;
+  t.VarParam := false;
+  VNSetPointerTo(t, Data, aType);
+end;
+
+function TPSScript.AddRegisteredPTRVariable(const VarName,
+  VarType: tbtstring): Boolean;
+var
+  FVar: TPSVar;
+begin
+  if not FCanAdd then begin Result := False; exit; end;
+  FVar := FComp.AddUsedVariableN(varname, vartype);
+  if fvar = nil then
+    result := False
+  else begin
+    fvar.exportname := fvar.Name;
+    fvar.SaveAsPointer := true;
+    Result := True;
+  end;
+end;
+
+procedure TPSScript.SetDefines(const Value: TStrings);
+begin
+  FDefines.Assign(Value);
+end;
+
+function TPSScript.ExecuteFunction(const Params: array of Variant;
+  const ProcName: tbtstring): Variant;
+begin
+  if SuppressLoadData then
+    LoadExec;
+
+  DoOnExecute (RI);
+
+  FExec.DebugEnabled := FUseDebugInfo;
+
+  Result := Exec.RunProcPN(Params, ProcName);
+
+  DoAfterExecute;
+end;
+
+function TPSScript.FindBaseType(Bt: TPSBaseType): TPSTypeRec;
+begin
+  Result := Exec.FindType2(Bt);
+end;
+
+function TPSScript.FindNamedType(const Name: tbtstring): TPSTypeRec;
+begin
+  Result := Exec.GetTypeNo(Exec.GetType(Name));
+end;
+
+procedure TPSScript.Notification(AComponent: TComponent;
+  Operation: TOperation);
+var
+  i: Longint;
+begin
+  inherited Notification(AComponent, Operation);
+  if (Operation = opRemove) and (aComponent is TPSPlugin) then
+  begin
+    for i := Plugins.Count -1 downto 0 do
+    begin
+      if (Plugins.Items[i] as TPSPluginItem).Plugin = aComponent then
+        {$IFDEF FPC_COL_NODELETE}
+        TCollectionItem(Plugins.Items[i]).Free;
+        {$ELSE}
+        Plugins.Delete(i);
+        {$ENDIF}
+    end;
+  end;
+end;
+
+function TPSScript.AddNotificationVariant(const VarName: tbtstring): Boolean;
+begin
+  Result := AddRegisteredVariable(VarName, '!NOTIFICATIONVARIANT');
+end;
+
+procedure TPSScript.DoOnProcessDirective(Sender: TPSPreProcessor;
+  Parser: TPSPascalPreProcessorParser; const Active: Boolean;
+  const DirectiveName, DirectiveParam: tbtstring; var Continue: Boolean);
+begin
+  If Assigned (OnProcessDirective) then
+    OnProcessDirective (Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
+end;
+
+procedure TPSScript.DoOnProcessUnknowDirective(Sender: TPSPreProcessor;
+  Parser: TPSPascalPreProcessorParser; const Active: Boolean;
+  const DirectiveName, DirectiveParam: tbtstring; var Continue: Boolean);
+begin
+  If Assigned (OnProcessUnknowDirective) then
+    OnProcessUnknowDirective (Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
+end;
+
+function TPSScript.DoOnNeedFile(Sender: TObject;
+  const OrginFileName: tbtstring; var FileName, Output: tbtstring): Boolean;
+begin
+  If Assigned (OnNeedFile) then
+    Result := OnNeedFile(Sender, OrginFileName, FileName, Output)
+  else
+    Result := False;
+end;
+
+function TPSScript.DoOnUnknowUses(Sender: TPSPascalCompiler;
+  const Name: tbtstring): Boolean;
+var
+  lPrevAllowUnit: Boolean;
+  lData, lName: tbtstring;
+begin
+  if assigned(FOnFindUnknownFile) then begin
+    lName := Name;
+    if FOnFindUnknownFile(self, '', lName, lData) then begin
+      lPrevAllowUnit := FComp.AllowUnit;
+      FComp.AllowUnit := true;
+      if FUsePreProcessor then
+      begin
+        FPP.Defines.Assign(FDefines);
+        Fpp.MainFile := lData;
+        Fpp.MainFileName := lName;
+        Fpp.PreProcess(lName, lData);
+        Result := FComp.Compile(lData);
+        Fpp.AdjustMessages(FComp);
+      end else
+      begin
+        FComp.OnTranslateLineInfo := nil;
+        Result := FComp.Compile(lData);
+      end;
+      FComp.AllowUnit := lPrevAllowUnit;
+    end else begin
+      FComp.MakeError(FComp.UnitName, ecUnknownIdentifier, lName);
+      Result := false;
+    end;
+  end else begin
+    FComp.MakeError(FComp.UnitName, ecUnknownIdentifier, lName);
+    result := false;
+  end;
+end;
+
+procedure TPSScript.DoOnCompImport;
+begin
+  if assigned(OnCompImport) then
+    OnCompImport(Self, Comp);
+end;
+
+procedure TPSScript.DoOnCompile;
+begin
+  if assigned(OnCompile) then
+    OnCompile(Self);
+end;
+
+procedure TPSScript.DoOnExecute;
+begin
+  If Assigned (OnExecute) then
+    OnExecute (Self);
+end;
+
+procedure TPSScript.DoAfterExecute;
+begin
+  if Assigned (OnAfterExecute) then
+    OnAfterExecute(Self);
+end;
+
+function TPSScript.DoVerifyProc(Sender: TPSScript;
+  Proc: TPSInternalProcedure; const Decl: tbtstring): Boolean;
+begin
+  if Assigned(OnVerifyProc) then begin
+    Result := false;
+    OnVerifyProc(Sender, Proc, Decl, Result);
+    Result := not Result;
+  end
+  else
+    Result := True;
+end;
+
+procedure TPSScript.DoOnExecImport(
+  RunTimeImporter: TPSRuntimeClassImporter);
+begin
+  if assigned(OnExecImport) then
+    OnExecImport(Self, FExec, RunTimeImporter);
+end;
+
+function TPSScript.DoOnGetNotificationVariant(const Name: tbtstring): Variant;
+begin
+  if Not Assigned (OnGetNotificationVariant) then
+    raise Exception.Create(RPS_UnableToReadVariant);
+  Result := OnGetNotificationVariant(Self, Name);
+end;
+
+procedure TPSScript.DoOnSetNotificationVariant(const Name: tbtstring;
+  V: Variant);
+begin
+  if Not Assigned (OnSetNotificationVariant) then
+    raise Exception.Create(RPS_UnableToWriteVariant);
+  OnSetNotificationVariant(Self, Name, v);
+end;
+
+{ TPSDllPlugin }
+
+procedure TPSDllPlugin.CompOnUses;
+begin
+  CompExec.Comp.OnExternalProc := DllExternalProc;
+end;
+
+procedure TPSDllPlugin.ExecOnUses;
+begin
+  RegisterDLLRuntime(CompExec.Exec);
+end;
+
+
+
+{ TPS3DebugCompExec }
+
+procedure LineInfo(Sender: TPSDebugExec; const FileName: tbtstring; Position, Row, Col: Cardinal);
+var
+  Dc: TPSScriptDebugger;
+  h, i: Longint;
+  bi: TPSBreakPointInfo;
+  lFileName: tbtstring;
+begin
+  Dc := Sender.Id;
+  if FileName = '' then
+    lFileName := dc.MainFileName
+  else
+    lFileName := FileName;
+
+  if @dc.FOnLineInfo <> nil then dc.FOnLineInfo(dc, lFileName, Position, Row, Col);
+  if row = dc.FLastRow then exit;
+  dc.FLastRow := row;
+  h := MakeHash(lFileName);
+  bi := nil;
+  for i := DC.FBreakPoints.Count -1 downto 0 do
+  begin
+    bi := Dc.FBreakpoints[i];
+    if (h = bi.FileNameHash) and (lFileName = bi.FileName) and (Cardinal(bi.Line) = Row) then
+    begin
+      Break;
+    end;
+    Bi := nil;
+  end;
+  if bi <> nil then
+  begin
+    if @dc.FOnBreakpoint <> nil then dc.FOnBreakpoint(dc, lFileName, Position, Row, Col);
+    dc.Pause;
+  end;
+end;
+
+procedure IdleCall(Sender: TPSDebugExec);
+var
+  Dc: TPSScriptDebugger;
+begin
+  Dc := Sender.Id;
+  if @dc.FOnIdle <> nil then
+    dc.FOnIdle(DC)
+  else
+    dc.Exec.Run;
+end;
+
+procedure TPSScriptDebugger.ClearBreakPoint(const Fn: tbtstring; Line: Integer);
+var
+  h, i: Longint;
+  bi: TPSBreakPointInfo;
+begin
+  h := MakeHash(Fn);
+  for i := FBreakPoints.Count -1 downto 0 do
+  begin
+    bi := FBreakpoints[i];
+    if (h = bi.FileNameHash) and (Fn = bi.FileName) and (bi.Line = Line) then
+    begin
+      FBreakPoints.Delete(i);
+      bi.Free;
+      Break;
+    end;
+  end;
+end;
+
+procedure TPSScriptDebugger.ClearBreakPoints;
+var
+  i: Longint;
+begin
+  for i := FBreakPoints.Count -1 downto 0 do
+    TPSBreakPointInfo(FBreakPoints[i]).Free;
+  FBreakPoints.Clear;;
+end;
+
+constructor TPSScriptDebugger.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FBreakPoints := TIFList.Create;
+  FExec.OnSourceLine := LineInfo;
+  FExec.OnIdleCall := IdleCall;
+end;
+
+destructor TPSScriptDebugger.Destroy;
+var
+  i: Longint;
+begin
+  for i := FBreakPoints.Count -1 downto 0 do
+  begin
+    TPSBreakPointInfo(FBreakPoints[i]).Free;
+  end;
+  FBreakPoints.Free;
+  inherited Destroy;
+end;
+
+function TPSScriptDebugger.GetBreakPoint(I: Integer): TPSBreakPointInfo;
+begin
+  Result := FBreakPoints[i];
+end;
+
+function TPSScriptDebugger.GetBreakPointCount: Longint;
+begin
+  Result := FBreakPoints.Count;
+end;
+
+function TPSScriptDebugger.GetVarContents(const Name: tbtstring): tbtstring;
+var
+  i: Longint;
+  pv: PIFVariant;
+  s1, s: tbtstring;
+begin
+  s := Uppercase(Name);
+  if pos('.', s) > 0 then
+  begin
+    s1 := copy(s,1,pos('.', s) -1);
+    delete(s,1,pos('.', Name));
+  end else begin
+    s1 := s;
+    s := '';
+  end;
+  pv := nil;
+  for i := 0 to Exec.CurrentProcVars.Count -1 do
+  begin
+    if Uppercase(Exec.CurrentProcVars[i]) =  s1 then
+    begin
+      pv := Exec.GetProcVar(i);
+      break;
+    end;
+  end;
+  if pv = nil then
+  begin
+    for i := 0 to Exec.CurrentProcParams.Count -1 do
+    begin
+      if Uppercase(Exec.CurrentProcParams[i]) =  s1 then
+      begin
+        pv := Exec.GetProcParam(i);
+        break;
+      end;
+    end;
+  end;
+  if pv = nil then
+  begin
+    for i := 0 to Exec.GlobalVarNames.Count -1 do
+    begin
+      if Uppercase(Exec.GlobalVarNames[i]) =  s1 then
+      begin
+        pv := Exec.GetGlobalVar(i);
+        break;
+      end;
+    end;
+  end;
+  if pv = nil then
+    Result := RPS_UnknownIdentifier
+  else
+    Result := PSVariantToString(NewTPSVariantIFC(pv, False), s);
+end;
+
+function TPSScriptDebugger.HasBreakPoint(const Fn: tbtstring; Line: Integer): Boolean;
+var
+  h, i: Longint;
+  bi: TPSBreakPointInfo;
+begin
+  h := MakeHash(Fn);
+  for i := FBreakPoints.Count -1 downto 0 do
+  begin
+    bi := FBreakpoints[i];
+    if (h = bi.FileNameHash) and (Fn = bi.FileName) and (bi.Line = Line) then
+    begin
+      Result := true;
+      exit;
+    end;
+  end;
+  Result := False;
+end;
+
+procedure TPSScriptDebugger.Pause;
+begin
+  if FExec.Status = isRunning then
+    FExec.Pause
+  else
+    raise Exception.Create(RPS_NotRunning);
+end;
+
+procedure TPSScriptDebugger.Resume;
+begin
+  if FExec.Status = isRunning then
+    FExec.Run
+  else
+    raise Exception.Create(RPS_NotRunning);
+end;
+
+procedure TPSScriptDebugger.SetBreakPoint(const fn: tbtstring; Line: Integer);
+var
+  i, h: Longint;
+  BI: TPSBreakPointInfo;
+begin
+  h := MakeHash(fn);
+  for i := FBreakPoints.Count -1 downto 0 do
+  begin
+    bi := FBreakpoints[i];
+    if (h = bi.FileNameHash) and (fn = bi.FileName) and (bi.Line = Line) then
+      exit;
+  end;
+  bi := TPSBreakPointInfo.Create;
+  FBreakPoints.Add(bi);
+  bi.FileName := fn;
+  bi.Line := Line;
+end;
+
+procedure TPSScriptDebugger.SetMainFileName(const Value: tbtstring);
+var
+  OldFn: tbtstring;
+  h1, h2,i: Longint;
+  bi: TPSBreakPointInfo;
+begin
+  OldFn := FMainFileName;
+  inherited SetMainFileName(Value);
+  h1 := MakeHash(OldFn);
+  h2 := MakeHash(Value);
+  if OldFn <> Value then
+  begin
+    for i := FBreakPoints.Count -1 downto 0 do
+    begin
+      bi := FBreakPoints[i];
+      if (bi.FileNameHash = h1) and (bi.FileName = OldFn) then
+      begin
+        bi.FFileNameHash := h2;
+        bi.FFileName := Value;
+      end else if (bi.FileNameHash = h2) and (bi.FileName = Value) then
+      begin
+        // It's already the new filename, that can't be right, so remove all the breakpoints there
+        FBreakPoints.Delete(i);
+        bi.Free;
+      end;
+    end;
+  end;
+end;
+
+procedure TPSScriptDebugger.StepInto;            
+begin
+  if (FExec.Status = isRunning) or (FExec.Status = isLoaded) then
+    FExec.StepInto
+  else
+    raise Exception.Create(RPS_NoScript);
+end;
+
+procedure TPSScriptDebugger.StepOver;
+begin
+  if (FExec.Status = isRunning) or (FExec.Status = isLoaded) then
+    FExec.StepOver
+  else
+    raise Exception.Create(RPS_NoScript);
+end;
+
+
+
+{ TPSPluginItem }
+
+procedure TPSPluginItem.Assign(Source: TPersistent); //Birb
+begin
+  if Source is TPSPluginItem then
+   plugin:=((source as TPSPluginItem).plugin)
+  else
+   inherited;
+end;
+
+function TPSPluginItem.GetDisplayName: string;
+begin
+  if FPlugin <> nil then
+    Result := string(FPlugin.Name)
+  else
+    Result := '<nil>';
+end;
+
+procedure TPSPluginItem.SetPlugin(const Value: TPSPlugin);
+begin
+  FPlugin := Value;
+  If Value <> nil then
+    Value.FreeNotification(TPSPlugins(Collection).FCompExec);
+  Changed(False);
+end;
+
+{ TPSPlugins }
+
+constructor TPSPlugins.Create(CE: TPSScript);
+begin
+  inherited Create(TPSPluginItem);
+  FCompExec := CE;
+end;
+
+function TPSPlugins.GetOwner: TPersistent;
+begin
+  Result := FCompExec;
+end;
+
+{ TPSBreakPointInfo }
+
+procedure TPSBreakPointInfo.SetFileName(const Value: tbtstring);
+begin
+  FFileName := Value;
+  FFileNameHash := MakeHash(Value);
+end;
+
+{ TPSCustomPlugin }
+procedure TPSCustumPlugin.CompileImport1(CompExec: TPSScript);
+begin
+  IF @FOnCompileImport1 <> nil then
+    FOnCompileImport1(CompExec)
+  else
+    inherited;
+end;
+
+procedure TPSCustumPlugin.CompileImport2(CompExec: TPSScript);
+begin
+  IF @FOnCompileImport2 <> nil then
+    FOnCompileImport2(CompExec)
+  else
+    inherited;
+end;
+
+procedure TPSCustumPlugin.CompOnUses(CompExec: TPSScript);
+begin
+  IF @FOnCompOnUses <> nil then
+    FOnCompOnUses(CompExec)
+  else
+    inherited;
+end;
+
+procedure TPSCustumPlugin.ExecImport1(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+  IF @FOnExecImport1 <> nil then
+    FOnExecImport1(CompExec, compExec.Exec, ri)
+  else
+    inherited;
+end;
+
+procedure TPSCustumPlugin.ExecImport2(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+  IF @FOnExecImport2 <> nil then
+    FOnExecImport1(CompExec, compExec.Exec, ri)
+  else
+    inherited;
+end;
+
+procedure TPSCustumPlugin.ExecOnUses(CompExec: TPSScript);
+begin
+  IF @FOnExecOnUses <> nil then
+    FOnExecOnUses(CompExec)
+  else
+    inherited;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_COM.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_COM.pas
new file mode 100644
index 0000000..1ae3533
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_COM.pas	
@@ -0,0 +1,38 @@
+ 
+unit uPSComponent_COM;
+
+interface
+uses
+  SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
+type
+  
+  TPSImport_ComObj = class(TPSPlugin)
+  private
+  public
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+  end;
+  
+  TIFPS3CE_ComObj = class(TPSImport_ComObj);
+
+implementation
+uses
+  uPSC_comobj,
+  uPSR_comobj;
+
+
+{ TPSImport_ComObj }
+
+procedure TPSImport_ComObj.CompileImport1(CompExec: TPSScript);
+begin
+  SIRegister_ComObj(CompExec.Comp);
+end;
+
+
+procedure TPSImport_ComObj.ExecImport1(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+  RIRegister_ComObj(CompExec.Exec);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Controls.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Controls.pas
new file mode 100644
index 0000000..fce7b29
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Controls.pas	
@@ -0,0 +1,65 @@
+ unit uPSComponent_Controls;
+
+interface
+uses
+  SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
+type
+  
+  TPSImport_Controls = class(TPSPlugin)
+  private
+    FEnableStreams: Boolean;
+    FEnableGraphics: Boolean;
+    FEnableControls: Boolean;
+  public
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    
+    property EnableStreams: Boolean read FEnableStreams write FEnableStreams;
+    
+    property EnableGraphics: Boolean read FEnableGraphics write FEnableGraphics;
+    
+    property EnableControls: Boolean read FEnableControls write FEnableControls;
+  end;
+  
+  TIFPS3CE_Controls = class(TPSImport_Controls);
+
+implementation
+uses
+  uPSC_graphics,
+  uPSC_controls,
+  uPSR_graphics,
+  uPSR_controls;
+
+
+{ TPSImport_Controls }
+
+procedure TPSImport_Controls.CompileImport1(CompExec: TPSScript);
+begin
+  if FEnableGraphics then
+    SIRegister_Graphics(CompExec.Comp, FEnableStreams);
+  if FEnableControls then
+    SIRegister_Controls(CompExec.Comp);
+end;
+
+constructor TPSImport_Controls.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FEnableStreams := True;
+  FEnableGraphics := True;
+  FEnableControls := True;
+end;
+
+procedure TPSImport_Controls.ExecImport1(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+  if FEnableGraphics then
+    RIRegister_Graphics(ri, FEnableStreams);
+  if FEnableControls then
+    RIRegister_Controls(ri);
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_DB.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_DB.pas
new file mode 100644
index 0000000..c60d06e
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_DB.pas	
@@ -0,0 +1,36 @@
+ unit uPSComponent_DB;
+
+interface
+{$I PascalScript.inc}
+uses
+  SysUtils, Classes, uPSComponent, uPSRuntime, uPSCompiler;
+type
+
+  TPSImport_DB = class(TPSPlugin)
+  public
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+  public
+  end;
+
+  TIFPS3CE_DB = class(TPSImport_DB);
+
+implementation
+uses
+  uPSC_DB,
+  uPSR_DB;
+
+{ TPSImport_DB }
+
+procedure TPSImport_DB.CompileImport1(CompExec: TPSScript);
+begin
+  SIRegister_DB(CompExec.Comp);
+end;
+
+procedure TPSImport_DB.ExecImport1(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+  RIRegister_DB(RI);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Default.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Default.pas
new file mode 100644
index 0000000..e7508cf
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Default.pas	
@@ -0,0 +1,81 @@
+ unit uPSComponent_Default;
+{$I PascalScript.inc}
+interface
+uses
+  SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
+
+type
+
+  TPSImport_DateUtils = class(TPSPlugin)
+  public
+    procedure CompOnUses(CompExec: TPSScript); override;
+    procedure ExecOnUses(CompExec: TPSScript); override;
+  end;
+
+  TPSImport_Classes = class(TPSPlugin)
+  private
+    FEnableStreams: Boolean;
+    FEnableClasses: Boolean;
+  public
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+  public
+
+    constructor Create(AOwner: TComponent); override;
+  published
+
+    property EnableStreams: Boolean read FEnableStreams write FEnableStreams;
+
+    property EnableClasses: Boolean read FEnableClasses write FEnableClasses;
+  end;
+
+  TIFPS3CE_Std = class(TPSImport_Classes);
+
+  TIFPS3CE_DateUtils = class(TPSImport_DateUtils);
+
+implementation
+uses
+  uPSC_std,
+  uPSR_std,
+  uPSC_classes,
+  uPSR_classes,
+  uPSC_dateutils,
+  uPSR_dateutils;
+
+{ TPSImport_Classes }
+
+procedure TPSImport_Classes.CompileImport1(CompExec: TPSScript);
+begin
+  SIRegister_Std(CompExec.Comp);
+  if FEnableClasses then
+    SIRegister_Classes(CompExec.Comp, FEnableStreams);
+end;
+
+procedure TPSImport_Classes.ExecImport1(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+  RIRegister_Std(Ri);
+  if FEnableClasses then
+    RIRegister_Classes(ri, FEnableStreams);
+end;
+
+constructor TPSImport_Classes.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FEnableStreams := True;
+  FEnableClasses := True;
+end;
+
+{ TPSImport_DateUtils }
+
+procedure TPSImport_DateUtils.CompOnUses(CompExec: TPSScript);
+begin
+  RegisterDateTimeLibrary_C(CompExec.Comp);
+end;
+
+procedure TPSImport_DateUtils.ExecOnUses(CompExec: TPSScript);
+begin
+  RegisterDateTimeLibrary_R(CompExec.Exec);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Forms.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Forms.pas
new file mode 100644
index 0000000..418fbb2
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_Forms.pas	
@@ -0,0 +1,65 @@
+ 
+unit uPSComponent_Forms;
+
+interface
+uses
+  SysUtils, Classes, uPSRuntime, uPSCompiler, uPSComponent;
+type
+  
+  TPSImport_Forms = class(TPSPlugin)
+  private
+    FEnableForms: Boolean;
+    FEnableMenus: Boolean;
+  public
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    
+    property EnableForms: Boolean read FEnableForms write FEnableForms;
+    
+    property EnableMenus: Boolean read FEnableMenus write FEnableMenus;
+  end;
+  
+  TIFPS3CE_Forms = class(TPSImport_Forms);
+
+implementation
+uses
+  uPSC_forms,
+  uPSC_menus,
+  uPSR_forms,
+  uPSR_menus;
+
+{ TPSImport_Forms }
+
+procedure TPSImport_Forms.CompileImport1(CompExec: TPSScript);
+begin
+  if FEnableForms then
+    SIRegister_Forms(CompExec.comp);
+  if FEnableMenus then
+    SIRegister_Menus(CompExec.comp);
+end;
+
+constructor TPSImport_Forms.Create(AOwner: TComponent);
+begin
+  inherited Create(Aowner);
+  FEnableForms := True;
+  FEnableMenus := True;
+end;
+
+procedure TPSImport_Forms.ExecImport1(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+  if FEnableForms then
+    RIRegister_Forms(ri);
+
+  if FEnableMenus then
+  begin
+    RIRegister_Menus(ri);
+    RIRegister_Menus_Routines(compexec.Exec);
+  end;
+
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_StdCtrls.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_StdCtrls.pas
new file mode 100644
index 0000000..9f92923
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSComponent_StdCtrls.pas	
@@ -0,0 +1,65 @@
+ 
+unit uPSComponent_StdCtrls;
+
+interface
+uses
+  SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
+type
+  
+  TPSImport_StdCtrls = class(TPSPlugin)
+  private
+    FEnableButtons: Boolean;
+    FEnableExtCtrls: Boolean;
+  public
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    
+    property EnableExtCtrls: Boolean read FEnableExtCtrls write FEnableExtCtrls;
+    
+    property EnableButtons: Boolean read FEnableButtons write FEnableButtons;
+  end;
+  
+  TIFPS3CE_StdCtrls = class(TPSImport_StdCtrls);
+
+
+implementation
+uses
+  uPSC_buttons,
+  uPSC_stdctrls,
+  uPSC_extctrls,
+  uPSR_buttons,
+  uPSR_stdctrls,
+  uPSR_extctrls;
+
+{ TPSImport_StdCtrls }
+
+procedure TPSImport_StdCtrls.CompileImport1(CompExec: TPSScript);
+begin
+    SIRegister_stdctrls(CompExec.Comp);
+  if FEnableExtCtrls then
+    SIRegister_ExtCtrls(CompExec.Comp);
+  if FEnableButtons then
+    SIRegister_Buttons(CompExec.Comp);
+end;
+
+constructor TPSImport_StdCtrls.Create(AOwner: TComponent);
+begin
+  inherited Create(Aowner);
+  FEnableButtons := True;
+  FEnableExtCtrls := True;
+end;
+
+procedure TPSImport_StdCtrls.ExecImport1(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+begin
+    RIRegister_stdctrls(RI);
+  if FEnableExtCtrls then
+    RIRegister_ExtCtrls(RI);
+  if FEnableButtons then
+    RIRegister_Buttons(RI);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSDebugger.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSDebugger.pas
new file mode 100644
index 0000000..3b58393
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSDebugger.pas	
@@ -0,0 +1,654 @@
+
+unit uPSDebugger;
+{$I PascalScript.inc}
+interface
+uses
+  SysUtils, uPSRuntime, uPSUtils;
+
+type
+  
+  TDebugMode = (dmRun 
+  , dmStepOver 
+  , dmStepInto 
+  , dmPaused 
+  );
+  
+  TPSCustomDebugExec = class(TPSExec)
+  protected
+    FDebugDataForProcs: TIfList;
+    FLastProc: TPSProcRec;
+    FCurrentDebugProc: Pointer;
+    FProcNames: TIFStringList;
+    FGlobalVarNames: TIfStringList;
+    FCurrentSourcePos, FCurrentRow, FCurrentCol: Cardinal;
+    FCurrentFile: tbtstring;
+    
+    function GetCurrentProcParams: TIfStringList;
+    
+    function GetCurrentProcVars: TIfStringList;
+  protected
+    
+    procedure ClearDebug; virtual;
+  public
+    
+    function GetCurrentProcNo: Cardinal;
+    
+    function GetCurrentPosition: Cardinal;
+    
+    function TranslatePosition(Proc, Position: Cardinal): Cardinal;
+    
+    function TranslatePositionEx(Proc, Position: Cardinal; var Pos, Row, Col: Cardinal; var Fn: tbtstring): Boolean;
+    
+    procedure LoadDebugData(const Data: tbtstring);
+	
+    procedure Clear; override;
+    
+    property GlobalVarNames: TIfStringList read FGlobalVarNames;
+	
+    property ProcNames: TIfStringList read FProcNames;
+	
+    property CurrentProcVars: TIfStringList read GetCurrentProcVars;
+	
+    property CurrentProcParams: TIfStringList read GetCurrentProcParams;
+    
+    function GetGlobalVar(I: Cardinal): PIfVariant;
+	
+    function GetProcVar(I: Cardinal): PIfVariant;
+	
+    function GetProcParam(I: Cardinal): PIfVariant;
+    
+    constructor Create;
+	
+    destructor Destroy; override;
+  end;
+  TPSDebugExec = class;
+  
+  TOnSourceLine = procedure (Sender: TPSDebugExec; const Name: tbtstring; Position, Row, Col: Cardinal);
+  
+  TOnIdleCall = procedure (Sender: TPSDebugExec);
+  
+  TPSDebugExec = class(TPSCustomDebugExec)
+  private
+    FDebugMode: TDebugMode;
+    FStepOverProc: TPSInternalProcRec;
+    FStepOverStackBase: Cardinal;
+    FOnIdleCall: TOnIdleCall;
+    FOnSourceLine: TOnSourceLine;
+    FDebugEnabled: Boolean;
+  protected
+    
+    procedure SourceChanged;
+    procedure ClearDebug; override;
+    procedure RunLine; override;
+  public
+    constructor Create;
+    
+    function LoadData(const s: tbtstring): Boolean; override;
+    
+    procedure Pause; override;
+    
+    procedure Run;
+    
+    procedure StepInto;
+    
+    procedure StepOver;
+    
+    procedure Stop; override;
+	
+    property DebugMode: TDebugMode read FDebugMode;
+    
+    property OnSourceLine: TOnSourceLine read FOnSourceLine write FOnSourceLine;
+	
+    property OnIdleCall: TOnIdleCall read FOnIdleCall write FOnIdleCall;
+    
+    property DebugEnabled: Boolean read FDebugEnabled write FDebugEnabled;
+  end;
+  TIFPSDebugExec = TPSDebugExec;
+
+implementation
+
+{$IFDEF DELPHI3UP }
+resourceString
+{$ELSE }
+const
+{$ENDIF }
+
+  RPS_ExpectedReturnAddressStackBase = 'Expected return address at stack base';
+
+type
+  PPositionData = ^TPositionData;
+  TPositionData = packed record
+    FileName: tbtstring;
+    Position,
+    Row,
+    Col,
+    SourcePosition: Cardinal;
+  end;
+  PFunctionInfo = ^TFunctionInfo;
+  TFunctionInfo = packed record
+    Func: TPSProcRec;
+    FParamNames: TIfStringList;
+    FVariableNames: TIfStringList;
+    FPositionTable: TIfList;
+  end;
+
+{ TPSCustomDebugExec }
+
+procedure TPSCustomDebugExec.Clear;
+begin
+  inherited Clear;
+  if FGlobalVarNames <> nil then ClearDebug;
+end;
+
+procedure TPSCustomDebugExec.ClearDebug;
+var
+  i, j: Longint;
+  p: PFunctionInfo;
+begin
+  FCurrentDebugProc := nil;
+  FLastProc := nil;
+  FProcNames.Clear;
+  FGlobalVarNames.Clear;
+  FCurrentSourcePos := 0;
+  FCurrentRow := 0;
+  FCurrentCol := 0;
+  FCurrentFile := '';
+  for i := 0 to FDebugDataForProcs.Count -1 do
+  begin
+    p := FDebugDataForProcs[I];
+    for j := 0 to p^.FPositionTable.Count -1 do
+    begin
+      Dispose(PPositionData(P^.FPositionTable[J]));
+    end;
+    p^.FPositionTable.Free;
+    p^.FParamNames.Free;
+    p^.FVariableNames.Free;
+    Dispose(p);
+  end;
+  FDebugDataForProcs.Clear;
+end;
+
+constructor TPSCustomDebugExec.Create;
+begin
+  inherited Create;
+  FCurrentSourcePos := 0;
+  FCurrentRow := 0;
+  FCurrentCol := 0;
+  FCurrentFile := '';
+  FDebugDataForProcs := TIfList.Create;
+  FLastProc := nil;
+  FCurrentDebugProc := nil;
+  FProcNames := TIFStringList.Create;
+  FGlobalVarNames := TIfStringList.Create;
+end;
+
+destructor TPSCustomDebugExec.Destroy;
+begin
+  Clear;
+  FDebugDataForProcs.Free;
+  FProcNames.Free;
+  FGlobalVarNames.Free;
+  FGlobalVarNames := nil;
+  inherited Destroy;
+end;
+
+function TPSCustomDebugExec.GetCurrentPosition: Cardinal;
+begin
+  Result := TranslatePosition(GetCurrentProcNo, 0);
+end;
+
+function TPSCustomDebugExec.GetCurrentProcNo: Cardinal;
+var
+  i: Longint;
+begin
+  for i := 0 to FProcs.Count -1 do
+  begin
+    if FProcs[i]=  FCurrProc then
+    begin
+      Result := I;
+      Exit;
+    end;
+  end;
+  Result := Cardinal(-1);
+end;
+
+function TPSCustomDebugExec.GetCurrentProcParams: TIfStringList;
+begin
+  if FCurrentDebugProc <> nil then
+  begin
+    Result := PFunctionInfo(FCurrentDebugProc)^.FParamNames;
+  end else Result := nil;
+end;
+
+function TPSCustomDebugExec.GetCurrentProcVars: TIfStringList;
+begin
+  if FCurrentDebugProc <> nil then
+  begin
+    Result := PFunctionInfo(FCurrentDebugProc)^.FVariableNames;
+  end else Result := nil;
+end;
+
+function TPSCustomDebugExec.GetGlobalVar(I: Cardinal): PIfVariant;
+begin
+  Result := FGlobalVars[I];
+end;
+
+function TPSCustomDebugExec.GetProcParam(I: Cardinal): PIfVariant;
+begin
+  Result := FStack[Cardinal(Longint(FCurrStackBase) - Longint(I) - 1)];
+end;
+
+function TPSCustomDebugExec.GetProcVar(I: Cardinal): PIfVariant;
+begin
+  Result := FStack[Cardinal(Longint(FCurrStackBase) + Longint(I) + 1)];
+end;
+
+function GetProcDebugInfo(FProcs: TIFList; Proc: TPSProcRec): PFunctionInfo;
+var
+  i: Longint;
+  c: PFunctionInfo;
+begin
+  if Proc = nil then
+  begin
+    Result := nil;
+    exit;
+  end;
+  for i := FProcs.Count -1 downto 0 do
+  begin
+    c := FProcs.Data^[I];
+    if c^.Func = Proc then
+    begin
+      Result := c;
+      exit;
+    end;
+  end;
+  new(c);
+  c^.Func := Proc;
+  c^.FPositionTable := TIfList.Create;
+  c^.FVariableNames := TIfStringList.Create;
+  c^.FParamNames := TIfStringList.Create;
+  FProcs.Add(c);
+  REsult := c;
+end;
+
+procedure TPSCustomDebugExec.LoadDebugData(const Data: tbtstring);
+var
+  CP, I: Longint;
+  c: tbtchar;
+  CurrProcNo, LastProcNo: Cardinal;
+  LastProc: PFunctionInfo;
+  NewLoc: PPositionData;
+  s: tbtstring;
+begin
+  ClearDebug;
+  if FStatus = isNotLoaded then exit;
+  CP := 1;
+  LastProcNo := Cardinal(-1);
+  LastProc := nil;
+  while CP <= length(Data) do
+  begin
+    c := Data[CP];
+    inc(cp);
+    case c of
+      #0:
+        begin
+          i := cp;
+          if i > length(data) then exit;
+          while Data[i] <> #0 do
+          begin
+            if Data[i] = #1 then
+            begin
+              FProcNames.Add(Copy(Data, cp, i-cp));
+              cp := I + 1;
+            end;
+            inc(I);
+            if I > length(data) then exit;
+          end;
+          cp := i + 1;
+        end;
+      #1:
+        begin
+          i := cp;
+          if i > length(data) then exit;
+          while Data[i] <> #0 do
+          begin
+            if Data[i] = #1 then
+            begin
+              FGlobalVarNames.Add(Copy(Data, cp, i-cp));
+              cp := I + 1;
+            end;
+            inc(I);
+            if I > length(data) then exit;
+          end;
+          cp := i + 1;
+        end;
+      #2:
+        begin
+          if cp + 4 > Length(data) then exit;
+          CurrProcNo := Cardinal((@Data[cp])^);
+          if CurrProcNo = Cardinal(-1) then Exit;
+          if CurrProcNo <> LastProcNo then
+          begin
+            LastProcNo := CurrProcNo;
+            LastProc := GetProcDebugInfo(FDebugDataForProcs, FProcs[CurrProcNo]);
+            if LastProc = nil then exit;
+          end;
+          inc(cp, 4);
+
+          i := cp;
+          if i > length(data) then exit;
+          while Data[i] <> #0 do
+          begin
+            if Data[i] = #1 then
+            begin
+              LastProc^.FParamNames.Add(Copy(Data, cp, i-cp));
+              cp := I + 1;
+            end;
+            inc(I);
+            if I > length(data) then exit;
+          end;
+          cp := i + 1;
+        end;
+      #3:
+        begin
+          if cp + 4 > Length(data) then exit;
+          CurrProcNo := Cardinal((@Data[cp])^);
+          if CurrProcNo = Cardinal(-1) then Exit;
+          if CurrProcNo <> LastProcNo then
+          begin
+            LastProcNo := CurrProcNo;
+            LastProc := GetProcDebugInfo(FDebugDataForProcs, FProcs[CurrProcNo]);
+            if LastProc = nil then exit;
+          end;
+          inc(cp, 4);
+
+          i := cp;
+          if i > length(data) then exit;
+          while Data[i] <> #0 do
+          begin
+            if Data[i] = #1 then
+            begin
+              LastProc^.FVariableNames.Add(Copy(Data, cp, i-cp));
+              cp := I + 1;
+            end;
+            inc(I);
+            if I > length(data) then exit;
+          end;
+          cp := i + 1;
+        end;
+      #4:
+        begin
+          i := cp;
+          if i > length(data) then exit;
+          while Data[i] <> #0 do
+          begin
+            if Data[i] = #1 then
+            begin
+              s := Copy(Data, cp, i-cp);
+              cp := I + 1;
+              Break;
+            end;
+            inc(I);
+            if I > length(data) then exit;
+          end;
+          if cp + 4 > Length(data) then exit;
+          CurrProcNo := Cardinal((@Data[cp])^);
+          if CurrProcNo = Cardinal(-1) then Exit;
+          if CurrProcNo <> LastProcNo then
+          begin
+            LastProcNo := CurrProcNo;
+            LastProc := GetProcDebugInfo(FDebugDataForProcs, FProcs[CurrProcNo]);
+            if LastProc = nil then exit;
+          end;
+          inc(cp, 4);
+          if cp + 16 > Length(data) then exit;
+          new(NewLoc);
+          NewLoc^.Position := Cardinal((@Data[Cp])^);
+          NewLoc^.FileName := s;
+          NewLoc^.SourcePosition := Cardinal((@Data[Cp+4])^);
+          NewLoc^.Row := Cardinal((@Data[Cp+8])^);
+          NewLoc^.Col := Cardinal((@Data[Cp+12])^);
+          inc(cp, 16);
+          LastProc^.FPositionTable.Add(NewLoc);
+        end;
+      else
+        begin
+          ClearDebug;
+          Exit;
+        end;
+    end;
+
+  end;
+end;
+
+
+
+
+
+
+function TPSCustomDebugExec.TranslatePosition(Proc, Position: Cardinal): Cardinal;
+var
+  D1, D2: Cardinal;
+  s: tbtstring;
+begin
+  if not TranslatePositionEx(Proc, Position, Result, D1, D2, s) then
+    Result := 0;
+end;
+
+function TPSCustomDebugExec.TranslatePositionEx(Proc, Position: Cardinal;
+  var Pos, Row, Col: Cardinal; var Fn: tbtstring): Boolean;
+// Made by Martijn Laan (mlaan@wintax.nl)
+var
+  i: LongInt;
+  fi: PFunctionInfo;
+  pt: TIfList;
+  r: PPositionData;
+  lastfn: tbtstring;
+  LastPos, LastRow, LastCol: Cardinal;
+  pp: TPSProcRec;
+begin
+  fi := nil;
+  pp := FProcs[Proc];
+  for i := 0 to FDebugDataForProcs.Count -1 do
+  begin
+    fi := FDebugDataForProcs[i];
+    if fi^.Func = pp then
+      Break;
+    fi := nil;
+  end;
+  LastPos := 0;
+  LastRow := 0;
+  LastCol := 0;
+  if fi <> nil then begin
+    pt := fi^.FPositionTable;
+    for i := 0 to pt.Count -1 do
+    begin
+      r := pt[I];
+      if r^.Position >= Position then
+      begin
+        if r^.Position = Position then
+        begin
+          Pos := r^.SourcePosition;
+          Row := r^.Row;
+          Col := r^.Col;
+          Fn := r^.Filename;
+        end
+        else
+        begin
+          Pos := LastPos;
+          Row := LastRow;
+          Col := LastCol;
+          Fn := LastFn;
+        end;
+        Result := True;
+        exit;
+      end else
+      begin
+        LastPos := r^.SourcePosition;
+        LastRow := r^.Row;
+        LastCol := r^.Col;
+        LastFn := r^.FileName;
+      end;
+    end;
+    Pos := LastPos;
+    Row := LastRow;
+    Col := LastCol;
+    Result := True;
+  end else
+  begin
+    Result := False;
+  end;
+end;
+
+{ TPSDebugExec }
+procedure TPSDebugExec.ClearDebug;
+begin
+  inherited;
+  FDebugMode := dmRun;
+end;
+
+function TPSDebugExec.LoadData(const s: tbtstring): Boolean;
+begin
+  Result := inherited LoadData(s);
+  FDebugMode := dmRun;
+end;
+
+procedure TPSDebugExec.RunLine;
+var
+  i: Longint;
+  pt: TIfList;
+  r: PPositionData;
+begin
+  inherited RunLine;
+  if not DebugEnabled then exit;
+  if FCurrProc <> FLastProc then
+  begin
+    FLastProc := FCurrProc;
+    FCurrentDebugProc := nil;
+    for i := 0 to FDebugDataForProcs.Count -1 do
+    begin
+      if PFunctionInfo(FDebugDataForProcs[I])^.Func = FLastProc then
+      begin
+        FCurrentDebugProc := FDebugDataForProcs[I];
+        break;
+      end;
+    end;
+  end;
+  if FCurrentDebugProc <> nil then
+  begin
+    pt := PFunctionInfo(FCurrentDebugProc)^.FPositionTable;
+    for i := 0 to pt.Count -1 do
+    begin
+      r := pt[I];
+      if r^.Position = FCurrentPosition then
+      begin
+        FCurrentSourcePos := r^.SourcePosition;
+        FCurrentRow := r^.Row;
+        FCurrentCol := r^.Col;
+        FCurrentFile := r^.FileName;
+        SourceChanged;
+        break;
+      end;
+    end;
+  end else
+  begin
+    FCurrentSourcePos := 0;
+    FCurrentRow := 0;
+    FCurrentCol := 0;
+    FCurrentFile := '';
+  end;
+  while FDebugMode = dmPaused do
+  begin
+    if @FOnIdleCall <> nil then
+    begin
+      FOnIdleCall(Self);
+    end else break; // endless loop
+  end;
+end;
+
+
+procedure TPSDebugExec.SourceChanged;
+
+  function StepOverShouldPause: Boolean;
+  var
+    I: Cardinal;
+    V: PPSVariant;
+  begin
+    if (FCurrProc <> FStepOverProc) or (FCurrStackBase <> FStepOverStackBase) then
+    begin
+      { We're not inside the function being stepped, so scan the call stack to
+        see if we're inside a function called by the function being stepped }
+      I := FCurrStackBase;
+      while Longint(I) > Longint(FStepOverStackBase) do
+      begin
+        V := FStack.Items[I];
+        if (V = nil) or (V.FType <> FReturnAddressType) then
+          raise Exception.Create(RPS_ExpectedReturnAddressStackBase);
+        if (PPSVariantReturnAddress(V).Addr.ProcNo = FStepOverProc) and
+           (PPSVariantReturnAddress(V).Addr.StackBase = FStepOverStackBase) then
+        begin
+          { We are, so don't pause }
+          Result := False;
+          Exit;
+        end;
+        I := PPSVariantReturnAddress(V).Addr.StackBase;
+      end;
+    end;
+    Result := True;
+  end;
+
+begin
+  case FDebugMode of
+    dmStepInto:
+      begin
+        FDebugMode := dmPaused;
+      end;
+    dmStepOver:
+      begin
+        if StepOverShouldPause then
+        begin
+          FDebugMode := dmPaused;
+        end;
+      end;
+  end;
+  if @FOnSourceLine <> nil then
+    FOnSourceLine(Self, FCurrentFile, FCurrentSourcePos, FCurrentRow, FCurrentCol);
+end;
+
+
+procedure TPSDebugExec.Pause;
+begin
+  FDebugMode := dmPaused;
+end;
+
+procedure TPSDebugExec.Stop;
+begin
+  FDebugMode := dmRun;
+  inherited Stop;
+end;
+
+procedure TPSDebugExec.Run;
+begin
+  FDebugMode := dmRun;
+end;
+
+procedure TPSDebugExec.StepInto;
+begin
+  FDebugMode := dmStepInto;
+end;
+
+procedure TPSDebugExec.StepOver;
+begin
+  FStepOverProc := FCurrProc;
+  FStepOverStackBase := FCurrStackBase;
+  FDebugMode := dmStepOver;
+end;
+
+
+constructor TPSDebugExec.Create;
+begin
+  inherited Create;
+  FDebugEnabled := True;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSDisassembly.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSDisassembly.pas
new file mode 100644
index 0000000..5e19d71
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSDisassembly.pas	
@@ -0,0 +1,499 @@
+
+
+unit uPSDisassembly;
+{$I PascalScript.inc}
+
+interface
+uses
+  uPSRuntime, uPSUtils, sysutils;
+
+function IFPS3DataToText(const Input: tbtstring; var Output: string): Boolean;
+implementation
+
+type
+  TMyPSExec = class(TPSExec)
+    function ImportProc(const Name: ShortString; proc: TIFExternalProcRec): Boolean; override;
+  end;
+
+function Debug2Str(const s: string): string;
+var
+  i: Integer;
+begin
+  result := '';
+  for i := 1 to length(s) do
+  begin
+    if (s[i] < #32) or (s[i] > #128) then
+      result := result + '\'+inttohex(ord(s[i]), 2)
+    else if s[i] = '\' then
+      result := result + '\\'
+    else
+      result := result + s[i];
+  end;
+
+end;
+
+function SpecImportProc(Sender: TObject; p: TIFExternalProcRec): Boolean; forward;
+
+function FloatToStr(Value: Extended): string;
+begin
+  try
+    Result := SysUtils.FloatToStr(Value);
+  except
+    Result := 'NaNa';
+  end;
+end;
+
+
+function IFPS3DataToText(const Input: tbtstring; var Output: string): Boolean;
+var
+  I: TMyPSExec;
+
+  procedure Writeln(const s: string);
+  begin
+    Output := Output + s + #13#10;
+  end;
+  function BT2S(P: PIFTypeRec): string;
+  var
+    i: Longint;
+  begin
+    case p.BaseType of
+      btU8: Result := 'U8';
+      btS8: Result := 'S8';
+      btU16: Result := 'U16';
+      btS16: Result := 'S16';
+      btU32: Result := 'U32';
+      btS32: Result := 'S32';
+      {$IFNDEF PS_NOINT64}bts64: Result := 'S64'; {$ENDIF}
+      btChar: Result := {$IFDEF UNICODE}'AnsiChar'{$ELSE}'Char'{$ENDIF};
+      {$IFNDEF PS_NOWIDESTRING}
+      btWideChar: Result := 'WideChar';
+      btWideString: Result := 'WideString';
+      {$ENDIF}
+      btSet: Result := 'Set'; 
+      btSingle: Result := 'Single';
+      btDouble: Result := 'Double';
+      btExtended: Result := 'Extended';
+      btString: Result := 'String';
+      btRecord:
+        begin
+          Result := 'Record(';
+          for i := 0 to TPSTypeRec_Record(p).FieldTypes.Count-1 do
+          begin
+            if i <> 0 then Result := Result+',';
+            Result := Result + BT2S(PIFTypeRec(TPSTypeRec_Record(p).FieldTypes[i]));
+          end;
+          Result := Result + ')';
+        end;
+      btArray: Result := 'Array of '+BT2S(TPSTypeRec_Array(p).ArrayType);
+      btResourcePointer: Result := 'ResourcePointer';
+      btPointer: Result := 'Pointer';
+      btVariant: Result := 'Variant';
+      btClass: Result := 'Class';
+      btProcPtr: Result := 'ProcPtr';
+      btStaticArray: Result := 'StaticArray['+inttostR(TPSTypeRec_StaticArray(p).Size)+'] of '+BT2S(TPSTypeRec_Array(p).ArrayType);
+    else
+      Result := 'Unknown '+inttostr(p.BaseType);
+    end;
+  end;
+  procedure WriteTypes;
+  var
+    T: Longint;
+  begin
+    Writeln('[TYPES]');
+    for T := 0 to i.FTypes.Count -1 do
+    begin
+      if PIFTypeRec(i.FTypes[t]).ExportName <> '' then
+        Writeln('Type ['+inttostr(t)+']: '+bt2s(PIFTypeRec(i.FTypes[t]))+' Export: '+PIFTypeRec(i.FTypes[t]).ExportName)
+      else
+        Writeln('Type ['+inttostr(t)+']: '+bt2s(PIFTypeRec(i.FTypes[t])));
+    end;
+  end;
+  procedure WriteVars;
+  var
+    T: Longint;
+    function FindType(p: Pointer): Cardinal;
+    var
+      T: Longint;
+    begin
+      Result := Cardinal(-1);
+      for T := 0 to i.FTypes.Count -1 do
+      begin
+        if p = i.FTypes[t] then begin
+          result := t;
+          exit;
+        end;
+      end;
+    end;
+  begin
+    Writeln('[VARS]');
+    for t := 0 to i.FGlobalVars.count -1 do
+    begin
+      Writeln('Var ['+inttostr(t)+']: '+ IntToStr(FindType(PIFVariant(i.FGlobalVars[t])^.FType)) + ' '+ bt2s(PIFVariant(i.FGlobalVars[t])^.Ftype) + ' '+ PIFVariant(i.FGlobalVars[t])^.Ftype.ExportName);
+    end;
+  end;
+
+  procedure WriteProcs;
+  var
+    t: Longint;
+    procedure WriteProc(proc: TPSProcRec);
+    var
+      sc, CP: Cardinal;
+      function ReadData(var Data; Len: Cardinal): Boolean;
+      begin
+        if CP + Len <= TPSInternalProcRec(PROC).Length then begin
+          Move(TPSInternalProcRec(Proc).Data[CP], Data, Len);
+          CP := CP + Len;
+          Result := True;
+        end else Result := False;
+      end;
+      function ReadByte(var B: Byte): Boolean;
+      begin
+        if CP < TPSInternalProcRec(Proc).Length then begin
+          b := TPSInternalProcRec(Proc).Data^[cp];
+          Inc(CP);
+          Result := True;
+        end else Result := False;
+      end;
+
+      function ReadLong(var B: Cardinal): Boolean;
+      begin
+        if CP + 3 < TPSInternalProcRec(Proc).Length then begin
+          b := Cardinal((@TPSInternalProcRec(Proc).Data[CP])^);
+          Inc(CP, 4);
+          Result := True;
+        end else Result := False;
+      end;
+      function ReadWriteVariable: string;
+      var
+        VarType: byte;
+        L1, L2: Cardinal;
+        function ReadVar(FType: Cardinal): string;
+        var
+          F: PIFTypeRec;
+          b: byte;
+          w: word;
+          l: Cardinal;
+          {$IFNDEF PS_NOINT64}ff: Int64;{$ENDIF}
+          e: extended;
+          ss: single;
+          d: double;
+          s: ansistring;
+          c: char;
+          {$IFNDEF PS_NOWIDESTRING}
+          wc: WideChar;
+          ws: WideString;
+          {$ENDIF}
+
+        begin
+          result := '';
+          F:= i.FTypes[Ftype];
+          if f = nil then exit;
+          case f.BaseType of
+            btProcPtr: begin if not ReadData(l, 4) then exit; Result := 'PROC: '+inttostr(l); end;
+            btU8: begin if not ReadData(b, 1) then exit; Result := IntToStr(tbtu8(B)); end;
+            btS8: begin if not ReadData(b, 1) then exit; Result := IntToStr(tbts8(B)); end;
+            btU16: begin if not ReadData(w, 2) then exit; Result := IntToStr(tbtu16(w)); end;
+            btS16: begin if not ReadData(w, 2) then exit; Result := IntToStr(tbts16(w)); end;
+            btU32: begin if not ReadData(l, 4) then exit; Result := IntToStr(tbtu32(l)); end;
+            btS32: begin if not ReadData(l, 4) then exit; Result := IntToStr(tbts32(l)); end;
+            {$IFNDEF PS_NOINT64}bts64: begin if not ReadData(ff, 8) then exit; Result := IntToStr(ff); end;{$ENDIF}
+            btSingle: begin if not ReadData(ss, Sizeof(tbtsingle)) then exit; Result := FloatToStr(ss); end;
+            btDouble: begin if not ReadData(d, Sizeof(tbtdouble)) then exit; Result := FloatToStr(d); end;
+            btExtended: begin if not ReadData(e, Sizeof(tbtextended)) then exit; Result := FloatToStr(e); end;
+            btPChar, btString: begin if not ReadData(l, 4) then exit; SetLength(s, l); if not readData(s[1], l) then exit; Result := MakeString(s); end;
+            btSet:
+              begin
+                SetLength(s, TPSTypeRec_Set(f).aByteSize);
+                if not ReadData(s[1], length(s)) then exit;
+                result := MakeString(s);
+
+              end;
+            btChar: begin if not ReadData(c, 1) then exit; Result := '#'+IntToStr(ord(c)); end;
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: begin if not ReadData(wc, 2) then exit; Result := '#'+IntToStr(ord(wc)); end;
+            btWideString: begin if not ReadData(l, 4) then exit; SetLength(ws, l); if not readData(ws[1], l*2) then exit; Result := MakeWString(ws); end;
+            {$ENDIF}
+          end;
+        end;
+        function AddressToStr(a: Cardinal): String;
+        begin
+          if a < PSAddrNegativeStackStart then
+            Result := 'GlobalVar['+inttostr(a)+']'
+          else
+            Result := 'Base['+inttostr(Longint(A-PSAddrStackStart))+']';
+        end;
+
+      begin
+        Result := '';
+        if not ReadByte(VarType) then Exit;
+        case VarType of
+          0:
+          begin
+
+            if not ReadLong(L1) then Exit;
+            Result := AddressToStr(L1);
+          end;
+          1:
+          begin
+            if not ReadLong(L1) then Exit;
+            Result := '['+ReadVar(l1)+']';
+          end;
+          2:
+          begin
+            if not ReadLong(L1) then Exit;
+            if not ReadLong(L2) then Exit;
+            Result := AddressToStr(L1)+'.['+inttostr(l2)+']';
+          end;
+          3:
+          begin
+            if not ReadLong(l1) then Exit;
+            if not ReadLong(l2) then Exit;
+            Result := AddressToStr(L1)+'.'+AddressToStr(l2);
+          end;
+        end;
+      end;
+
+    var
+      b: Byte;
+      s: string;
+      DP, D1, D2, d3, d4: Cardinal;
+
+    begin
+      CP := 0;
+      sc := 0;
+      while true do
+      begin
+        DP := cp;
+        if not ReadByte(b) then Exit;
+        case b of
+          CM_A:
+          begin
+            {$IFDEF FPC}
+            Output := Output + ' ['+inttostr(dp)+'] ASSIGN '+ ReadWriteVariable;
+            Output := Output + ', ' + ReadWriteVariable + #13#10;
+            {$ELSE}
+            Writeln(' ['+inttostr(dp)+'] ASSIGN '+ReadWriteVariable+ ', ' + ReadWriteVariable);
+            {$ENDIF}
+          end;
+          CM_CA:
+          begin
+            if not ReadByte(b) then exit;
+            case b of
+            0: s:= '+';
+            1: s := '-';
+            2: s := '*';
+            3: s:= '/';
+            4: s:= 'MOD';
+            5: s:= 'SHL';
+            6: s:= 'SHR';
+            7: s:= 'AND';
+            8: s:= 'OR';
+            9: s:= 'XOR';
+            else
+              exit;
+            end;
+            Writeln(' ['+inttostr(dp)+'] CALC '+ReadWriteVariable+ ' '+s+' ' + ReadWriteVariable);
+          end;
+          CM_P:
+          begin
+            Inc(sc);
+            Writeln(' ['+inttostr(dp)+'] PUSH '+ReadWriteVariable + ' // '+inttostr(sc));
+          end;
+          CM_PV:
+          begin
+            Inc(sc);
+            Writeln(' ['+inttostr(dp)+'] PUSHVAR '+ReadWriteVariable + ' // '+inttostr(sc));
+          end;
+          CM_PO:
+          begin
+            Dec(Sc);
+            Writeln(' ['+inttostr(dp)+'] POP // '+inttostr(sc));
+          end;
+          Cm_C:
+          begin
+            if not ReadLong(D1) then exit;
+            Writeln(' ['+inttostr(dp)+'] CALL '+inttostr(d1));
+          end;
+          Cm_PG:
+          begin
+            if not ReadLong(D1) then exit;
+            Writeln(' ['+inttostr(dp)+'] POP/GOTO currpos + '+IntToStr(d1)+' ['+IntToStr(CP+d1)+']');
+          end;
+          Cm_P2G:
+          begin
+            if not ReadLong(D1) then exit;
+            Writeln(' ['+inttostr(dp)+'] POP2/GOTO currpos + '+IntToStr(d1)+' ['+IntToStr(CP+d1)+']');
+          end;
+          Cm_G:
+          begin
+            if not ReadLong(D1) then exit;
+            Writeln(' ['+inttostr(dp)+'] GOTO currpos + '+IntToStr(d1)+' ['+IntToStr(CP+d1)+']');
+          end;
+          Cm_CG:
+          begin
+            if not ReadLong(D1) then exit;
+            Writeln(' ['+inttostr(dp)+'] COND_GOTO currpos + '+IntToStr(d1)+' '+ReadWriteVariable+' ['+IntToStr(CP+d1)+']');
+          end;
+          Cm_CNG:
+          begin
+            if not ReadLong(D1) then exit;
+            Writeln(' ['+inttostr(dp)+'] COND_NOT_GOTO currpos + '+IntToStr(d1)+' '+ReadWriteVariable+' ['+IntToStr(CP+d1)+']');
+          end;
+          Cm_R: Writeln(' ['+inttostr(dp)+'] RET');
+          Cm_ST:
+          begin
+            if not ReadLong(d1) or not readLong(d2) then exit;
+            Writeln(' ['+inttostr(dp)+'] SETSTACKTYPE Base['+inttostr(d1)+'] '+inttostr(d2));
+          end;
+          Cm_Pt:
+          begin
+            Inc(sc);
+            if not ReadLong(D1) then exit;
+            Writeln(' ['+inttostr(dp)+'] PUSHTYPE '+inttostr(d1) + '('+BT2S(TPSTypeRec(I.FTypes[d1]))+') // '+inttostr(sc));
+          end;
+          CM_CO:
+          begin
+            if not readByte(b) then exit;
+            case b of
+              0: s := '>=';
+              1: s := '<=';
+              2: s := '>';
+              3: s := '<';
+              4: s := '<>';
+              5: s := '=';
+              else exit;
+            end;
+            Writeln(' ['+inttostr(dp)+'] COMPARE into '+ReadWriteVariable+': '+ReadWriteVariable+' '+s+' '+ReadWriteVariable);
+          end;
+          Cm_cv:
+          begin
+            Writeln(' ['+inttostr(dp)+'] CALLVAR '+ReadWriteVariable);
+          end;
+          Cm_inc:
+          begin
+            Writeln(' ['+inttostr(dp)+'] INC '+ReadWriteVariable);
+          end;
+          Cm_dec:
+          begin
+            Writeln(' ['+inttostr(dp)+'] DEC '+ReadWriteVariable);
+          end;
+          cm_sp:
+          begin
+            Writeln(' ['+inttostr(dp)+'] SETPOINTER '+ReadWriteVariable+': '+ReadWriteVariable);
+          end;
+          cm_spc:
+          begin
+            Writeln(' ['+inttostr(dp)+'] SETCOPYPOINTER '+ReadWriteVariable+': '+ReadWriteVariable);
+          end;
+          cm_in:
+          begin
+            Writeln(' ['+inttostr(dp)+'] INOT '+ReadWriteVariable);
+          end;
+          cm_bn:
+          begin
+            Writeln(' ['+inttostr(dp)+'] BNOT '+ReadWriteVariable);
+          end;
+          cm_vm:
+          begin
+            Writeln(' ['+inttostr(dp)+'] MINUS '+ReadWriteVariable);
+          end;
+          cm_sf:
+           begin
+             s := ReadWriteVariable;
+             if not ReadByte(b) then exit;
+             if b = 0 then
+               Writeln(' ['+inttostr(dp)+'] SETFLAG '+s)
+             else
+               Writeln(' ['+inttostr(dp)+'] SETFLAG NOT '+s);
+           end;
+           cm_fg:
+           begin
+             if not ReadLong(D1) then exit;
+             Writeln(' ['+inttostr(dp)+'] FLAGGOTO currpos + '+IntToStr(d1)+' ['+IntToStr(CP+d1)+']');
+           end;
+           cm_puexh:
+           begin
+             if not ReadLong(D1) then exit;
+             if not ReadLong(D2) then exit;
+             if not ReadLong(D3) then exit;
+             if not ReadLong(D4) then exit;
+             Writeln(' ['+inttostr(dp)+'] PUSHEXCEPTION '+inttostr(d1)+' '+inttostr(d2)+' '+inttostr(d3)+' '+inttostr(d4));
+           end;
+           cm_poexh:
+           begin
+             if not ReadByte(b) then exit;
+             Writeln(' ['+inttostr(dp)+'] POPEXCEPTION '+inttostr(b));
+           end;
+        else
+          begin
+            Writeln(' Disasm Error');
+            Break;
+          end;
+        end;
+      end;
+    end;
+
+  begin
+    Writeln('[PROCS]');
+    for t := 0 to i.FProcs.Count -1 do
+    begin
+      if TPSProcRec(i.FProcs[t]).ClassType = TIFExternalProcRec then
+      begin
+        if TPSExternalProcRec(i.FProcs[t]). Decl = '' then
+          Writeln('Proc ['+inttostr(t)+']: External: '+TPSExternalProcRec(i.FProcs[t]).Name)
+        else
+          Writeln('Proc ['+inttostr(t)+']: External Decl: '+Debug2Str(TIFExternalProcRec(i.FProcs[t]).Decl) + ' ' + TIFExternalProcRec(i.FProcs[t]).Name);
+      end else begin
+        if TPSInternalProcRec(i.FProcs[t]).ExportName <> '' then
+        begin
+          Writeln('Proc ['+inttostr(t)+'] Export: '+TPSInternalProcRec(i.FProcs[t]).ExportName+' '+TPSInternalProcRec(i.FProcs[t]).ExportDecl);
+        end else
+          Writeln('Proc ['+inttostr(t)+']');
+        Writeproc(i.FProcs[t]);
+      end;
+    end;
+  end;
+
+begin
+  Result := False;
+  try
+    I := TMyPSExec.Create;
+    I.AddSpecialProcImport('', @SpecImportProc, nil);
+
+    if not I.LoadData(Input) then begin
+      I.Free;
+      Exit;
+    end;
+    Output := '';
+    WriteTypes;
+    WriteVars;
+    WriteProcs;
+    I.Free;
+  except
+    exit;
+  end;
+  result := true;
+end;
+
+{ TMyIFPSExec }
+
+function MyDummyProc(Caller: TPSExec; p: TIFExternalProcRec; Global, Stack: TPSStack): Boolean;
+begin
+  Result := False;
+end;
+
+
+function TMyPSExec.ImportProc(const Name: ShortString;
+  proc: TIFExternalProcRec): Boolean;
+begin
+  Proc.ProcPtr := MyDummyProc;
+  result := true;
+end;
+
+function SpecImportProc(Sender: TObject; p: TIFExternalProcRec): Boolean;
+begin
+  p.ProcPtr := MyDummyProc;
+  Result := True;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSPreProcessor.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSPreProcessor.pas
new file mode 100644
index 0000000..77cbed1
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSPreProcessor.pas	
@@ -0,0 +1,797 @@
+
+unit uPSPreProcessor;
+{$I PascalScript.inc}
+
+interface
+uses
+  Classes, SysUtils, uPSCompiler, uPSUtils;
+
+
+
+type
+  EPSPreProcessor = class(Exception); //- jgv
+  TPSPreProcessor = class;
+  TPSPascalPreProcessorParser = class;
+
+  TPSOnNeedFile = function (Sender: TPSPreProcessor; const callingfilename: tbtstring; var FileName, Output: tbtstring): Boolean;
+  TPSOnProcessDirective = procedure (
+                            Sender: TPSPreProcessor;
+                            Parser: TPSPascalPreProcessorParser;
+                            const Active: Boolean;
+                            const DirectiveName, DirectiveParam: tbtString;
+                            Var Continue: Boolean); //- jgv - application set continue to false to stop the normal directive processing
+  
+  TPSLineInfo = class(TObject)
+  private
+    function GetLineOffset(I: Integer): Cardinal;
+    function GetLineOffsetCount: Longint;
+  protected
+    FEndPos: Cardinal;
+    FStartPos: Cardinal;
+    FFileName: tbtstring;
+    FLineOffsets: TIfList;
+  public
+    
+    property FileName: tbtstring read FFileName;
+    
+    property StartPos: Cardinal read FStartPos;
+    
+    property EndPos: Cardinal read FEndPos;
+    
+    property LineOffsetCount: Longint read GetLineOffsetCount;
+    
+    property LineOffset[I: Longint]: Cardinal read GetLineOffset;
+
+    
+    constructor Create;
+    
+    destructor Destroy; override;
+  end;
+  
+  TPSLineInfoResults = record
+    
+    Row,
+    Col,
+    Pos: Cardinal;
+    
+    Name: tbtstring;
+  end;
+  
+  TPSLineInfoList = class(TObject)
+  private
+    FItems: TIfList;
+    FCurrent: Longint;
+    function GetCount: Longint;
+    function GetItem(I: Integer): TPSLineInfo;
+  protected
+
+    function Add: TPSLineInfo;
+  public
+    
+    property Count: Longint read GetCount;
+    
+    property Items[I: Longint]: TPSLineInfo read GetItem; default;
+
+    procedure Clear;
+    
+    function GetLineInfo(const ModuleName: tbtstring; Pos: Cardinal; var Res: TPSLineInfoResults): Boolean;
+    
+    property Current: Longint read FCurrent write FCurrent;
+
+    
+    constructor Create;
+    
+    destructor Destroy; override;
+  end;
+  TPSDefineStates = class;
+  
+  TPSPreProcessor = class(TObject)
+  private
+    FID: Pointer;
+    FCurrentDefines, FDefines: TStringList;
+    FCurrentLineInfo: TPSLineInfoList;
+    FOnNeedFile: TPSOnNeedFile;
+    FAddedPosition: Cardinal;
+    FDefineState: TPSDefineStates;
+    FMaxLevel: Longint;
+    FMainFileName: tbtstring;
+    FMainFile: tbtstring;
+    FOnProcessDirective: TPSOnProcessDirective;
+    FOnProcessUnknowDirective: TPSOnProcessDirective;
+    procedure ParserNewLine(Sender: TPSPascalPreProcessorParser; Row, Col, Pos: Cardinal);
+    procedure IntPreProcess(Level: Integer; const OrgFileName: tbtstring; FileName: tbtstring; Dest: TStream);
+  protected
+    procedure doAddStdPredefines; virtual; // jgv
+  public
+    {The maximum number of levels deep the parser will go, defaults to 20}
+    property MaxLevel: Longint read FMaxLevel write FMaxLevel;
+    property CurrentLineInfo: TPSLineInfoList read FCurrentLineInfo;
+
+    property OnNeedFile: TPSOnNeedFile read FOnNeedFile write FOnNeedFile;
+
+    property Defines: TStringList read FDefines write FDefines;
+
+    property MainFile: tbtstring read FMainFile write FMainFile;
+
+    property MainFileName: tbtstring read FMainFileName write FMainFileName;
+
+    property ID: Pointer read FID write FID;
+
+    procedure AdjustMessages(Comp: TPSPascalCompiler);
+    procedure AdjustMessage(Msg: TPSPascalCompilerMessage); //-jgv
+
+    procedure PreProcess(const Filename: tbtstring; var Output: tbtstring);
+
+    procedure Clear;
+
+
+    constructor Create;
+
+    destructor Destroy; override;
+
+    property OnProcessDirective: TPSOnProcessDirective read fOnProcessDirective write fOnProcessDirective;
+    property OnProcessUnknowDirective: TPSOnProcessDirective read fOnProcessUnknowDirective write fOnProcessUnknowDirective;
+  end;
+
+  TPSPascalPreProcessorType = (ptEOF, ptOther, ptDefine);
+  
+  TPSOnNewLine = procedure (Sender: TPSPascalPreProcessorParser; Row, Col, Pos: Cardinal) of object;
+  
+  TPSPascalPreProcessorParser = class(TObject)
+  private
+    FData: tbtstring;
+    FText: PAnsichar;
+    FToken: tbtstring;
+    FTokenId: TPSPascalPreProcessorType;
+    FLastEnterPos, FLen, FRow, FCol, FPos: Cardinal;
+    FOnNewLine: TPSOnNewLine;
+  public
+    
+    procedure SetText(const dta: tbtstring);
+    
+    procedure Next;
+    
+    property Token: tbtstring read FToken;
+    
+    property TokenId: TPSPascalPreProcessorType read FTokenId;
+    
+    property Row: Cardinal read FRow;
+    
+    property Col: Cardinal read FCol;
+    
+    property Pos: Cardinal read FPos;
+    
+    property OnNewLine: TPSOnNewLine read FOnNewLine write FOnNewLine;
+  end;
+  
+  TPSDefineState = class(TObject)
+  private
+    FInElse: Boolean;
+    FDoWrite: Boolean;
+  public
+    
+    property InElse: Boolean read FInElse write FInElse;
+    
+    property DoWrite: Boolean read FDoWrite write FDoWrite;
+  end;
+
+  TPSDefineStates = class(TObject)
+  private
+    FItems: TIfList;
+    function GetCount: Longint;
+    function GetItem(I: Integer): TPSDefineState;
+    function GetWrite: Boolean;
+    function GetPrevWrite: Boolean; //JeromeWelsh - nesting fix
+  public
+
+    property Count: Longint read GetCount;
+
+    property Item[I: Longint]: TPSDefineState read GetItem; default;
+    
+    function Add: TPSDefineState;
+    
+    procedure Delete(I: Longint);
+
+    
+    constructor Create;
+    
+    destructor Destroy; override;
+
+    procedure Clear;
+    
+    property DoWrite: Boolean read GetWrite;
+    property DoPrevWrite: Boolean read GetPrevWrite; //JeromeWelsh - nesting fix
+  end;
+
+implementation
+
+{$IFDEF DELPHI3UP }
+resourceString
+{$ELSE }
+const
+{$ENDIF }
+
+  RPS_TooManyNestedInclude = 'Too many nested include files while processing ''%s'' from ''%s''';
+  RPS_IncludeNotFound = 'Unable to find file ''%s'' used from ''%s''';
+  RPS_DefineTooManyParameters = 'Too many parameters at %d:%d';
+  RPS_NoIfdefForEndif = 'No IFDEF for ENDIF at %d:%d';
+  RPS_NoIfdefForElse = 'No IFDEF for ELSE at %d:%d';
+  RPS_ElseTwice = 'Can''t use ELSE twice at %d:%d';
+  RPS_UnknownCompilerDirective = 'Unknown compiler directives at %d:%d';
+  RPs_DefineNotClosed = 'Define not closed';
+
+{ TPSLineInfoList }
+
+function TPSLineInfoList.Add: TPSLineInfo;
+begin
+  Result := TPSLineInfo.Create;
+  FItems.Add(Result);
+end;
+
+procedure TPSLineInfoList.Clear;
+var
+  i: Longint;
+begin
+  for i := FItems.count -1 downto 0 do
+    TPSLineInfo(FItems[i]).Free;
+  FItems.Clear;
+end;
+
+constructor TPSLineInfoList.Create;
+begin
+  inherited Create;
+  FItems := TIfList.Create;
+end;
+
+destructor TPSLineInfoList.Destroy;
+begin
+  Clear;
+  FItems.Free;
+  inherited Destroy;
+end;
+
+function TPSLineInfoList.GetCount: Longint;
+begin
+  Result := FItems.Count;
+end;
+
+function TPSLineInfoList.GetItem(I: Integer): TPSLineInfo;
+begin
+  Result := TPSLineInfo(FItems[i]);
+end;
+
+function TPSLineInfoList.GetLineInfo(const ModuleName: tbtstring; Pos: Cardinal; var Res: TPSLineInfoResults): Boolean;
+var
+  i,j: Longint;
+  linepos: Cardinal;
+  Item: TPSLineInfo;
+  lModuleName: tbtstring;
+begin
+  lModuleName := FastUpperCase(ModuleName);
+
+  for i := FItems.Count -1 downto 0 do
+  begin
+    Item := FItems[i];
+    if (Pos >= Item.StartPos) and (Pos < Item.EndPos) and
+      (lModuleName = '') or (lModuleName = Item.FileName) then
+    begin
+      Res.Name := Item.FileName;
+      Pos := Pos - Item.StartPos;
+      Res.Pos := Pos;
+      Res.Col := 1;
+      Res.Row := 1;
+      LinePos := 0;
+      for j := 0 to Item.LineOffsetCount -1 do
+      begin
+        if Pos >= Item.LineOffset[j] then
+        begin
+          linepos := Item.LineOffset[j];
+        end else
+        begin
+          Res.Row := j; // j -1, but line counting starts at 1
+          Res.Col := pos - linepos + 1;
+          Break;
+        end;
+      end;
+      Result := True;
+      exit;
+    end;
+  end;
+  Result := False;
+end;
+
+{ TPSLineInfo }
+
+constructor TPSLineInfo.Create;
+begin
+  inherited Create;
+  FLineOffsets := TIfList.Create;
+end;
+
+destructor TPSLineInfo.Destroy;
+begin
+  FLineOffsets.Free;
+  inherited Destroy;
+end;
+
+
+function TPSLineInfo.GetLineOffset(I: Integer): Cardinal;
+begin
+  Result := Longint(FLineOffsets[I]);
+end;
+
+function TPSLineInfo.GetLineOffsetCount: Longint;
+begin
+  result := FLineOffsets.Count;
+end;
+
+{ TPSPascalPreProcessorParser }
+
+procedure TPSPascalPreProcessorParser.Next;
+var
+  ci: Cardinal;
+
+begin
+  FPos := FPos + FLen;
+  case FText[FPos] of
+    #0:
+      begin
+        FLen := 0;
+        FTokenId := ptEof;
+      end;
+    '''':
+      begin
+        ci := FPos;
+        while (FText[ci] <> #0) do
+        begin
+          Inc(ci);
+          while FText[ci] = '''' do
+          begin
+            if FText[ci+1] <> '''' then Break;
+            inc(ci);
+            inc(ci);
+          end;
+          if FText[ci] = '''' then Break;
+          if FText[ci] = #13 then
+          begin
+            inc(FRow);
+            if FText[ci] = #10 then
+              inc(ci);
+            FLastEnterPos := ci -1;
+            if @FOnNewLine <> nil then FOnNewLine(Self, FRow, FPos - FLastEnterPos + 1, ci+1);
+            break;
+          end else if FText[ci] = #10 then
+          begin
+            inc(FRow);
+            FLastEnterPos := ci -1;
+            if @FOnNewLine <> nil then FOnNewLine(Self, FRow, FPos - FLastEnterPos + 1, ci+1);
+            break;
+          end;
+        end;
+        FLen := ci - FPos + 1;
+        FTokenId := ptOther;
+      end;
+    '(':
+      begin
+        if FText[FPos + 1] = '*' then
+        begin
+          ci := FPos + 1;
+          while (FText[ci] <> #0) do begin
+            if (FText[ci] = '*') and (FText[ci + 1] = ')') then
+              Break;
+            if FText[ci] = #13 then
+            begin
+              inc(FRow);
+              if FText[ci+1] = #10 then
+                inc(ci);
+              FLastEnterPos := ci -1;
+              if @FOnNewLine <> nil then FOnNewLine(Self, FRow, FPos - FLastEnterPos + 1, ci+1);
+            end else if FText[ci] = #10 then
+            begin
+              inc(FRow);
+              FLastEnterPos := ci -1;
+              if @FOnNewLine <> nil then FOnNewLine(Self, FRow, FPos - FLastEnterPos + 1, ci+1);
+            end;
+            Inc(ci);
+          end;
+          FTokenId := ptOther;
+          if (FText[ci] <> #0) then
+            Inc(ci, 2);
+          FLen := ci - FPos;
+        end
+        else
+        begin
+          FTokenId := ptOther;
+          FLen := 1;
+        end;
+      end;
+      '/':
+        begin
+          if FText[FPos + 1] = '/' then
+          begin
+            ci := FPos + 1;
+            while (FText[ci] <> #0) and (FText[ci] <> #13) and
+              (FText[ci] <> #10) do begin
+              Inc(ci);
+            end;
+            FTokenId := ptOther;
+            FLen := ci - FPos;
+          end else
+          begin
+            FTokenId := ptOther;
+            FLen := 1;
+          end;
+        end;
+      '{':
+        begin
+          ci := FPos + 1;
+          while (FText[ci] <> #0) and (FText[ci] <> '}') do begin
+            if FText[ci] = #13 then
+            begin
+              inc(FRow);
+              if FText[ci+1] = #10 then
+                inc(ci);
+              FLastEnterPos := ci - 1;
+              if @FOnNewLine <> nil then FOnNewLine(Self, FRow, FPos - FLastEnterPos + 1, ci+1);
+            end else if FText[ci] = #10 then
+            begin
+              inc(FRow);
+              FLastEnterPos := ci - 1;
+              if @FOnNewLine <> nil then FOnNewLine(Self, FRow, FPos - FLastEnterPos + 1, ci+1);
+            end;
+            Inc(ci);
+          end;
+          if FText[FPos + 1] = '$' then
+            FTokenId := ptDefine
+          else
+            FTokenId := ptOther;
+
+          FLen := ci - FPos + 1;
+        end;
+      else
+      begin
+        ci := FPos + 1;
+        while not (FText[ci] in [#0,'{', '(', '''', '/']) do
+        begin
+          if FText[ci] = #13 then
+          begin
+            inc(FRow);
+            if FText[ci+1] = #10 then
+              inc(ci);
+            FLastEnterPos := ci - 1;
+            if @FOnNewLine <> nil then FOnNewLine(Self, FRow, FPos - FLastEnterPos + 1, ci+1);
+          end else if FText[ci] = #10 then
+          begin
+            inc(FRow);
+            FLastEnterPos := ci -1 ;
+            if @FOnNewLine <> nil then FOnNewLine(Self, FRow, FPos - FLastEnterPos + 1, ci+1);
+          end;
+          Inc(Ci);
+        end;
+        FTokenId := ptOther;
+        FLen := ci - FPos;
+      end;
+  end;
+  FCol := FPos - FLastEnterPos + 1;
+  FToken := Copy(FData, FPos +1, FLen);
+end;
+
+procedure TPSPascalPreProcessorParser.SetText(const dta: tbtstring);
+begin
+  FData := dta;
+  FText := pAnsichar(FData);
+  FLen := 0;
+  FPos := 0;
+  FCol := 1;
+  FLastEnterPos := 0;
+  FRow := 1;
+  if @FOnNewLine <> nil then FOnNewLine(Self, 1, 1, 0);
+  Next;
+end;
+
+{ TPSPreProcessor }
+
+procedure TPSPreProcessor.AdjustMessage(Msg: TPSPascalCompilerMessage);
+var
+  Res: TPSLineInfoResults;
+begin
+  if CurrentLineInfo.GetLineInfo(Msg.ModuleName, Msg.Pos, Res) then
+  begin
+    Msg.SetCustomPos(res.Pos, Res.Row, Res.Col);
+    Msg.ModuleName := Res.Name;
+  end;
+end;
+
+procedure TPSPreProcessor.AdjustMessages(Comp: TPSPascalCompiler);
+var
+  i: Longint;
+begin
+  for i := 0 to Comp.MsgCount -1 do
+    AdjustMessage (Comp.Msg[i]);
+end;
+
+procedure TPSPreProcessor.Clear;
+begin
+  FDefineState.Clear;
+  FDefines.Clear;
+  FCurrentDefines.Clear;
+  FCurrentLineInfo.Clear;
+  FMainFile := '';
+end;
+
+constructor TPSPreProcessor.Create;
+begin
+  inherited Create;
+  FDefines := TStringList.Create;
+  FCurrentLineInfo := TPSLineInfoList.Create;
+  FCurrentDefines := TStringList.Create;
+  FDefines.Duplicates := dupIgnore;
+  FCurrentDefines.Duplicates := dupIgnore;
+  FDefineState := TPSDefineStates.Create;
+  FMaxLevel := 20;
+
+  doAddStdPredefines;
+end;
+
+destructor TPSPreProcessor.Destroy;
+begin
+  FDefineState.Free;
+  FCurrentDefines.Free;
+  FDefines.Free;
+  FCurrentLineInfo.Free;
+  inherited Destroy;
+end;
+
+procedure TPSPreProcessor.doAddStdPredefines;
+begin
+  //--- 20050708_jgv
+  FCurrentDefines.Add (Format ('VER%d', [PSCurrentBuildNo]));
+  {$IFDEF CPU386 }
+  FCurrentDefines.Add ('CPU386');
+  {$ENDIF }
+  {$IFDEF MSWINDOWS }
+    FCurrentDefines.Add ('MSWINDOWS');
+    FCurrentDefines.Add ('WIN32');
+  {$ENDIF }
+  {$IFDEF LINUX }
+    FCurrentDefines.Add ('LINUX');
+  {$ENDIF }
+end;
+
+procedure TPSPreProcessor.IntPreProcess(Level: Integer; const OrgFileName: tbtstring; FileName: tbtstring; Dest: TStream);
+var
+  Parser: TPSPascalPreProcessorParser;
+  dta: tbtstring;
+  item: TPSLineInfo;
+  s, name: tbtstring;
+  current, i: Longint;
+  ds: TPSDefineState;
+  AppContinue: Boolean;
+begin
+  if Level > MaxLevel then raise EPSPreProcessor.CreateFmt(RPS_TooManyNestedInclude, [FileName, OrgFileName]);
+  Parser := TPSPascalPreProcessorParser.Create;
+  try
+    Parser.OnNewLine := ParserNewLine;
+    if FileName = MainFileName then
+    begin
+      dta := MainFile;
+    end else
+    if (@OnNeedFile = nil) or (not OnNeedFile(Self, OrgFileName, FileName, dta)) then
+      raise EPSPreProcessor.CreateFmt(RPS_IncludeNotFound, [FileName, OrgFileName]);
+    Item := FCurrentLineInfo.Add;
+    current := FCurrentLineInfo.Count -1;
+    FCurrentLineInfo.Current := current;
+    Item.FStartPos := Dest.Position;
+    Item.FFileName := FileName;
+    Parser.SetText(dta);
+    while Parser.TokenId <> ptEOF do
+    begin
+      s := Parser.Token;
+      if Parser.TokenId = ptDefine then
+      begin
+        Delete(s,1,2);  // delete the {$
+        Delete(s,length(s), 1); // delete the }
+
+        //-- 20050707_jgv trim right
+        i := length (s);
+        while (i > 0) and (s[i] = ' ') do begin
+          Delete (s, i, 1);
+          Dec (i);
+        end;
+        //-- end_jgv
+
+        if pos(tbtChar(' '), s) = 0 then
+        begin
+          name := uppercase(s);
+          s := '';
+        end else
+        begin
+          Name := uppercase(copy(s,1,pos(' ', s)-1));
+          Delete(s, 1, pos(' ', s));
+        end;
+
+        //-- 20050707_jgv - ask the application
+        AppContinue := True;
+        If @OnProcessDirective <> Nil then OnProcessDirective (Self, Parser, FDefineState.DoWrite, name, s, AppContinue);
+
+        If AppContinue then
+        //-- end jgv
+
+          if (Name = 'I') or (Name = 'INCLUDE') then
+          begin
+            if FDefineState.DoWrite then
+            begin
+              FAddedPosition := 0;
+              IntPreProcess(Level +1, FileName, s, Dest);
+              FCurrentLineInfo.Current := current;
+              FAddedPosition := Cardinal(Dest.Position) - Item.StartPos - Parser.Pos;
+            end;
+          end else if (Name = 'DEFINE') then
+          begin
+            if FDefineState.DoWrite then
+            begin
+              if pos(' ', s) <> 0 then raise EPSPreProcessor.CreateFmt(RPS_DefineTooManyParameters, [Parser.Row, Parser.Col]);
+              FCurrentDefines.Add(Uppercase(S));
+            end;
+          end else if (Name = 'UNDEF') then
+          begin
+            if FDefineState.DoWrite then
+            begin
+              if pos(' ', s) <> 0 then raise EPSPreProcessor.CreateFmt(RPS_DefineTooManyParameters, [Parser.Row, Parser.Col]);
+              i := FCurrentDefines.IndexOf(Uppercase(s));
+              if i <> -1 then
+                FCurrentDefines.Delete(i);
+            end;
+          end else if (Name = 'IFDEF') then
+          begin
+            if pos(' ', s) <> 0 then raise EPSPreProcessor.CreateFmt(RPS_DefineTooManyParameters, [Parser.Row, Parser.Col]);
+            //JeromeWelsh - nesting fix
+            FDefineState.Add.DoWrite := (FCurrentDefines.IndexOf(Uppercase(s)) <> -1)
+              and FDefineState.DoWrite;
+          end else if (Name = 'IFNDEF') then
+          begin
+            if pos(' ', s) <> 0 then raise EPSPreProcessor.CreateFmt(RPS_DefineTooManyParameters, [Parser.Row, Parser.Col]);
+            //JeromeWelsh - nesting fix
+            FDefineState.Add.DoWrite := (FCurrentDefines.IndexOf(Uppercase(s)) = -1)
+              and FDefineState.DoWrite;
+          end else if (Name = 'ENDIF') then
+          begin
+            //- jgv remove - borland use it (sysutils.pas)
+            //- if s <> '' then raise EPSPreProcessor.CreateFmt(RPS_DefineTooManyParameters, [Parser.Row, Parser.Col]);
+            if FDefineState.Count = 0 then
+              raise EPSPreProcessor.CreateFmt(RPS_NoIfdefForEndif, [Parser.Row, Parser.Col]);
+            FDefineState.Delete(FDefineState.Count -1); // remove define from list
+          end else if (Name = 'ELSE') then
+          begin
+            if s<> '' then raise EPSPreProcessor.CreateFmt(RPS_DefineTooManyParameters, [Parser.Row, Parser.Col]);
+            if FDefineState.Count = 0 then
+              raise EPSPreProcessor.CreateFmt(RPS_NoIfdefForElse, [Parser.Row, Parser.Col]);
+            ds := FDefineState[FDefineState.Count -1];
+            if ds.InElse then
+              raise EPSPreProcessor.CreateFmt(RPS_ElseTwice, [Parser.Row, Parser.Col]);
+            ds.FInElse := True;
+            //JeromeWelsh - nesting fix
+            ds.DoWrite := not ds.DoWrite and FDefineState.DoPrevWrite;
+          end
+
+          //-- 20050710_jgv custom application error process
+          else begin
+            If @OnProcessUnknowDirective <> Nil then begin
+              OnProcessUnknowDirective (Self, Parser, FDefineState.DoWrite, name, s, AppContinue);
+            end;
+            If AppContinue then
+            //-- end jgv
+          
+              raise EPSPreProcessor.CreateFmt(RPS_UnknownCompilerDirective, [Parser.Row, Parser.Col]);
+          end;
+      end;
+
+      if (not FDefineState.DoWrite) or (Parser.TokenId = ptDefine) then
+      begin
+        SetLength(s, Length(Parser.Token));
+        for i := length(s) downto 1 do
+          s[i] := #32; // space
+      end;
+      Dest.Write(s[1], length(s));
+      Parser.Next;
+    end;
+    Item.FEndPos := Dest.Position;
+  finally
+    Parser.Free;
+  end;
+end;
+
+procedure TPSPreProcessor.ParserNewLine(Sender: TPSPascalPreProcessorParser; Row, Col, Pos: Cardinal);
+begin
+  if FCurrentLineInfo.Current >= FCurrentLineInfo.Count then exit; //errr ???
+  with FCurrentLineInfo.Items[FCurrentLineInfo.Current] do
+  begin
+    Pos := Pos + FAddedPosition;
+    FLineOffsets.Add(Pointer(Pos));
+  end;
+end;
+
+procedure TPSPreProcessor.PreProcess(const Filename: tbtstring; var Output: tbtstring);
+var
+  Stream: TMemoryStream;
+begin
+  FAddedPosition := 0;
+  FCurrentDefines.Assign(FDefines);
+  Stream := TMemoryStream.Create;
+  try
+    IntPreProcess(0, '', FileName, Stream);
+    Stream.Position := 0;
+    SetLength(Output, Stream.Size);
+    Stream.Read(Output[1], Length(Output));
+  finally
+    Stream.Free;
+  end;
+  if FDefineState.Count <> 0 then
+    raise EPSPreProcessor.Create(RPs_DefineNotClosed);
+end;
+
+{ TPSDefineStates }
+
+function TPSDefineStates.Add: TPSDefineState;
+begin
+  Result := TPSDefineState.Create;
+  FItems.Add(Result);
+end;
+
+procedure TPSDefineStates.Clear;
+var
+  i: Longint;
+begin
+  for i := Longint(FItems.Count) -1 downto 0 do
+    TPSDefineState(FItems[i]).Free;
+  FItems.Clear;
+end;
+
+constructor TPSDefineStates.Create;
+begin
+  inherited Create;
+  FItems := TIfList.Create;
+end;
+
+procedure TPSDefineStates.Delete(I: Integer);
+begin
+  TPSDefineState(FItems[i]).Free;
+  FItems.Delete(i);
+end;
+
+destructor TPSDefineStates.Destroy;
+var
+  i: Longint;
+begin
+  for i := Longint(FItems.Count) -1 downto 0 do
+    TPSDefineState(FItems[i]).Free;
+  FItems.Free;
+  inherited Destroy;
+end;
+
+function TPSDefineStates.GetCount: Longint;
+begin
+  Result := FItems.Count;
+end;
+
+function TPSDefineStates.GetItem(I: Integer): TPSDefineState;
+begin
+  Result := FItems[i];
+end;
+
+function TPSDefineStates.GetWrite: Boolean;
+begin
+  if FItems.Count = 0 then
+    result := true
+  else Result := TPSDefineState(FItems[FItems.Count -1]).DoWrite;
+end;
+
+//JeromeWelsh - nesting fix
+function TPSDefineStates.GetPrevWrite: Boolean;
+begin
+  if FItems.Count < 2 then
+    result := true
+  else Result := TPSDefineState(FItems[FItems.Count -2]).DoWrite;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_DB.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_DB.pas
new file mode 100644
index 0000000..3c2fb80
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_DB.pas	
@@ -0,0 +1,2094 @@
+{runtime DB support}
+Unit uPSR_DB;
+{$I PascalScript.inc}
+Interface
+Uses uPSRuntime, uPSUtils, SysUtils;
+
+procedure RIRegisterTDATASET(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTPARAMS(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTPARAM(Cl: TPSRuntimeClassImporter);
+
+{$IFNDEF FPC}
+procedure RIRegisterTGUIDFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTVARIANTFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTREFERENCEFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTDATASETFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTARRAYFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTADTFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTOBJECTFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTWIDESTRINGFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFIELDLIST(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFIELDDEFLIST(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFLATLIST(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTDEFCOLLECTION(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTNAMEDITEM(Cl: TPSRuntimeClassImporter);
+
+{$IFDEF DELPHI6UP}
+procedure RIRegisterTFMTBCDFIELD(Cl: TPSRuntimeClassImporter);
+{$ENDIF}
+procedure RIRegisterTBCDFIELD(Cl: TPSRuntimeClassImporter);
+
+{$ENDIF}
+
+procedure RIRegisterTGRAPHICFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTMEMOFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBLOBFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTVARBYTESFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBYTESFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBINARYFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTTIMEFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTDATEFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTDATETIMEFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBOOLEANFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCURRENCYFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFLOATFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTAUTOINCFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTWORDFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTLARGEINTFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTSMALLINTFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTINTEGERFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTNUMERICFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTSTRINGFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFIELD(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTLOOKUPLIST(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFIELDS(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTINDEXDEFS(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTINDEXDEF(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFIELDDEFS(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFIELDDEF(Cl: TPSRuntimeClassImporter);
+procedure RIRegister_DB(CL: TPSRuntimeClassImporter);
+
+implementation
+Uses DB, {$IFDEF DELPHI6UP}{$IFNDEF FPC}FMTBcd, MaskUtils,{$ENDIF}{$ENDIF}Classes;
+
+procedure TDATASETONPOSTERROR_W(Self: TDATASET; const T: TDATASETERROREVENT);
+begin Self.ONPOSTERROR := T; end;
+
+procedure TDATASETONPOSTERROR_R(Self: TDATASET; var T: TDATASETERROREVENT);
+begin T := Self.ONPOSTERROR; end;
+
+procedure TDATASETONNEWRECORD_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.ONNEWRECORD := T; end;
+
+procedure TDATASETONNEWRECORD_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.ONNEWRECORD; end;
+
+procedure TDATASETONFILTERRECORD_W(Self: TDATASET; const T: TFILTERRECORDEVENT);
+begin Self.ONFILTERRECORD := T; end;
+
+procedure TDATASETONFILTERRECORD_R(Self: TDATASET; var T: TFILTERRECORDEVENT);
+begin T := Self.ONFILTERRECORD; end;
+
+procedure TDATASETONEDITERROR_W(Self: TDATASET; const T: TDATASETERROREVENT);
+begin Self.ONEDITERROR := T; end;
+
+procedure TDATASETONEDITERROR_R(Self: TDATASET; var T: TDATASETERROREVENT);
+begin T := Self.ONEDITERROR; end;
+
+procedure TDATASETONDELETEERROR_W(Self: TDATASET; const T: TDATASETERROREVENT);
+begin Self.ONDELETEERROR := T; end;
+
+procedure TDATASETONDELETEERROR_R(Self: TDATASET; var T: TDATASETERROREVENT);
+begin T := Self.ONDELETEERROR; end;
+
+procedure TDATASETONCALCFIELDS_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.ONCALCFIELDS := T; end;
+
+procedure TDATASETONCALCFIELDS_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.ONCALCFIELDS; end;
+
+{$IFNDEF FPC}
+procedure TDATASETAFTERREFRESH_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTERREFRESH := T; end;
+
+procedure TDATASETAFTERREFRESH_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTERREFRESH; end;
+
+procedure TDATASETBEFOREREFRESH_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFOREREFRESH := T; end;
+
+procedure TDATASETBEFOREREFRESH_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFOREREFRESH; end;
+
+{$ENDIF}
+
+procedure TDATASETAFTERSCROLL_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTERSCROLL := T; end;
+
+procedure TDATASETAFTERSCROLL_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTERSCROLL; end;
+
+procedure TDATASETBEFORESCROLL_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFORESCROLL := T; end;
+
+procedure TDATASETBEFORESCROLL_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFORESCROLL; end;
+
+procedure TDATASETAFTERDELETE_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTERDELETE := T; end;
+
+procedure TDATASETAFTERDELETE_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTERDELETE; end;
+
+procedure TDATASETBEFOREDELETE_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFOREDELETE := T; end;
+
+procedure TDATASETBEFOREDELETE_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFOREDELETE; end;
+
+procedure TDATASETAFTERCANCEL_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTERCANCEL := T; end;
+
+procedure TDATASETAFTERCANCEL_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTERCANCEL; end;
+
+procedure TDATASETBEFORECANCEL_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFORECANCEL := T; end;
+
+procedure TDATASETBEFORECANCEL_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFORECANCEL; end;
+
+procedure TDATASETAFTERPOST_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTERPOST := T; end;
+
+procedure TDATASETAFTERPOST_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTERPOST; end;
+
+procedure TDATASETBEFOREPOST_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFOREPOST := T; end;
+
+procedure TDATASETBEFOREPOST_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFOREPOST; end;
+
+procedure TDATASETAFTEREDIT_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTEREDIT := T; end;
+
+procedure TDATASETAFTEREDIT_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTEREDIT; end;
+
+procedure TDATASETBEFOREEDIT_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFOREEDIT := T; end;
+
+procedure TDATASETBEFOREEDIT_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFOREEDIT; end;
+
+procedure TDATASETAFTERINSERT_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTERINSERT := T; end;
+
+procedure TDATASETAFTERINSERT_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTERINSERT; end;
+
+procedure TDATASETBEFOREINSERT_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFOREINSERT := T; end;
+
+procedure TDATASETBEFOREINSERT_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFOREINSERT; end;
+
+procedure TDATASETAFTERCLOSE_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTERCLOSE := T; end;
+
+procedure TDATASETAFTERCLOSE_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTERCLOSE; end;
+
+procedure TDATASETBEFORECLOSE_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFORECLOSE := T; end;
+
+procedure TDATASETBEFORECLOSE_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFORECLOSE; end;
+
+procedure TDATASETAFTEROPEN_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.AFTEROPEN := T; end;
+
+procedure TDATASETAFTEROPEN_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.AFTEROPEN; end;
+
+procedure TDATASETBEFOREOPEN_W(Self: TDATASET; const T: TDATASETNOTIFYEVENT);
+begin Self.BEFOREOPEN := T; end;
+
+procedure TDATASETBEFOREOPEN_R(Self: TDATASET; var T: TDATASETNOTIFYEVENT);
+begin T := Self.BEFOREOPEN; end;
+
+procedure TDATASETAUTOCALCFIELDS_W(Self: TDATASET; const T: BOOLEAN);
+begin Self.AUTOCALCFIELDS := T; end;
+
+procedure TDATASETAUTOCALCFIELDS_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.AUTOCALCFIELDS; end;
+
+procedure TDATASETACTIVE_W(Self: TDATASET; const T: BOOLEAN);
+begin Self.ACTIVE := T; end;
+
+procedure TDATASETACTIVE_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.ACTIVE; end;
+
+procedure TDATASETFILTEROPTIONS_W(Self: TDATASET; const T: TFILTEROPTIONS);
+begin Self.FILTEROPTIONS := T; end;
+
+procedure TDATASETFILTEROPTIONS_R(Self: TDATASET; var T: TFILTEROPTIONS);
+begin T := Self.FILTEROPTIONS; end;
+
+procedure TDATASETFILTERED_W(Self: TDATASET; const T: BOOLEAN);
+begin Self.FILTERED := T; end;
+
+procedure TDATASETFILTERED_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.FILTERED; end;
+
+procedure TDATASETFILTER_W(Self: TDATASET; const T: String);
+begin Self.FILTER := T; end;
+
+procedure TDATASETFILTER_R(Self: TDATASET; var T: String);
+begin T := Self.FILTER; end;
+
+procedure TDATASETSTATE_R(Self: TDATASET; var T: TDATASETSTATE);
+begin T := Self.STATE; end;
+
+{$IFNDEF FPC}
+procedure TDATASETSPARSEARRAYS_W(Self: TDATASET; const T: BOOLEAN);
+begin Self.SPARSEARRAYS := T; end;
+
+procedure TDATASETSPARSEARRAYS_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.SPARSEARRAYS; end;
+{$ENDIF}
+
+procedure TDATASETRECORDSIZE_R(Self: TDATASET; var T: WORD);
+begin T := Self.RECORDSIZE; end;
+
+procedure TDATASETRECNO_W(Self: TDATASET; const T: INTEGER);
+begin Self.RECNO := T; end;
+
+procedure TDATASETRECNO_R(Self: TDATASET; var T: INTEGER);
+begin T := Self.RECNO; end;
+
+procedure TDATASETRECORDCOUNT_R(Self: TDATASET; var T: INTEGER);
+begin T := Self.RECORDCOUNT; end;
+
+{$IFNDEF FPC}
+procedure TDATASETOBJECTVIEW_W(Self: TDATASET; const T: BOOLEAN);
+begin Self.OBJECTVIEW := T; end;
+
+procedure TDATASETOBJECTVIEW_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.OBJECTVIEW; end;
+{$ENDIF}
+
+procedure TDATASETMODIFIED_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.MODIFIED; end;
+
+{$IFDEF DELPHI6UP}
+procedure TDATASETISUNIDIRECTIONAL_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.ISUNIDIRECTIONAL; end;
+{$ENDIF}
+
+procedure TDATASETFOUND_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.FOUND; end;
+
+procedure TDATASETFIELDVALUES_W(Self: TDATASET; const T: VARIANT; const t1: String);
+begin Self.FIELDVALUES[t1] := T; end;
+
+procedure TDATASETFIELDVALUES_R(Self: TDATASET; var T: VARIANT; const t1: String);
+begin T := Self.FIELDVALUES[t1]; end;
+
+procedure TDATASETFIELDS_R(Self: TDATASET; var T: TFIELDS);
+begin T := Self.FIELDS; end;
+
+{$IFNDEF FPC}
+
+procedure TDATASETFIELDLIST_R(Self: TDATASET; var T: TFIELDLIST);
+begin T := Self.FIELDLIST; end;
+
+
+procedure TDATASETFIELDDEFLIST_R(Self: TDATASET; var T: TFIELDDEFLIST);
+begin T := Self.FIELDDEFLIST; end;
+
+procedure TDATASETFIELDDEFS_W(Self: TDATASET; const T: TFIELDDEFS);
+begin Self.FIELDDEFS := T; end;
+
+procedure TDATASETFIELDDEFS_R(Self: TDATASET; var T: TFIELDDEFS);
+begin T := Self.FIELDDEFS; end;
+
+procedure TDATASETBLOCKREADSIZE_W(Self: TDATASET; const T: INTEGER);
+begin Self.BLOCKREADSIZE := T; end;
+
+procedure TDATASETBLOCKREADSIZE_R(Self: TDATASET; var T: INTEGER);
+begin T := Self.BLOCKREADSIZE; end;
+
+procedure TDATASETDESIGNER_R(Self: TDATASET; var T: TDATASETDESIGNER);
+begin T := Self.DESIGNER; end;
+
+
+procedure TDATASETDATASETFIELD_W(Self: TDATASET; const T: TDATASETFIELD);
+begin Self.DATASETFIELD := T; end;
+
+
+
+procedure TDATASETDATASETFIELD_R(Self: TDATASET; var T: TDATASETFIELD);
+begin T := Self.DATASETFIELD; end;
+
+
+procedure TDATASETAGGFIELDS_R(Self: TDATASET; var T: TFIELDS);
+begin T := Self.AGGFIELDS; end;
+
+
+
+{$ENDIF}
+
+procedure TDATASETFIELDCOUNT_R(Self: TDATASET; var T: INTEGER);
+begin T := Self.FIELDCOUNT; end;
+
+
+procedure TDATASETEOF_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.EOF; end;
+
+procedure TDATASETDEFAULTFIELDS_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.DEFAULTFIELDS; end;
+
+procedure TDATASETDATASOURCE_R(Self: TDATASET; var T: TDATASOURCE);
+begin T := Self.DATASOURCE; end;
+
+
+
+procedure TDATASETCANMODIFY_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.CANMODIFY; end;
+
+//procedure TDATASETBOOKMARK_W(Self: TDATASET; const T: TBOOKMARKSTR);
+//begin Self.BOOKMARK := T; end;
+
+//procedure TDATASETBOOKMARK_R(Self: TDATASET; var T: TBOOKMARKSTR);
+//begin T := Self.BOOKMARK; end;
+
+procedure TDATASETBOF_R(Self: TDATASET; var T: BOOLEAN);
+begin T := Self.BOF; end;
+
+procedure TPARAMSPARAMVALUES_W(Self: TPARAMS; const T: VARIANT; const t1: String);
+begin Self.PARAMVALUES[t1] := T; end;
+
+procedure TPARAMSPARAMVALUES_R(Self: TPARAMS; var T: VARIANT; const t1: String);
+begin T := Self.PARAMVALUES[t1]; end;
+
+procedure TPARAMSITEMS_W(Self: TPARAMS; const T: TPARAM; const t1: INTEGER);
+begin Self.ITEMS[t1] := T; end;
+
+procedure TPARAMSITEMS_R(Self: TPARAMS; var T: TPARAM; const t1: INTEGER);
+begin T := Self.ITEMS[t1]; end;
+
+procedure TPARAMVALUE_W(Self: TPARAM; const T: VARIANT);
+begin Self.VALUE := T; end;
+
+procedure TPARAMVALUE_R(Self: TPARAM; var T: VARIANT);
+begin T := Self.VALUE; end;
+
+
+{$IFDEF DELPHI6UP}
+procedure TPARAMSIZE_W(Self: TPARAM; const T: INTEGER);
+begin Self.SIZE := T; end;
+
+procedure TPARAMSIZE_R(Self: TPARAM; var T: INTEGER);
+begin T := Self.SIZE; end;
+{$ENDIF}
+
+procedure TPARAMPARAMTYPE_W(Self: TPARAM; const T: TPARAMTYPE);
+begin Self.PARAMTYPE := T; end;
+
+procedure TPARAMPARAMTYPE_R(Self: TPARAM; var T: TPARAMTYPE);
+begin T := Self.PARAMTYPE; end;
+
+procedure TPARAMNAME_W(Self: TPARAM; const T: String);
+begin Self.NAME := T; end;
+
+procedure TPARAMNAME_R(Self: TPARAM; var T: String);
+begin T := Self.NAME; end;
+
+{$IFDEF DELPHI6UP}
+procedure TPARAMNUMERICSCALE_W(Self: TPARAM; const T: INTEGER);
+begin Self.NUMERICSCALE := T; end;
+
+procedure TPARAMNUMERICSCALE_R(Self: TPARAM; var T: INTEGER);
+begin T := Self.NUMERICSCALE; end;
+{$ENDIF}
+{$IFDEF DELPHI6UP}
+
+procedure TPARAMPRECISION_W(Self: TPARAM; const T: INTEGER);
+begin Self.PRECISION := T; end;
+
+procedure TPARAMPRECISION_R(Self: TPARAM; var T: INTEGER);
+begin T := Self.PRECISION; end;
+{$ENDIF}
+procedure TPARAMDATATYPE_W(Self: TPARAM; const T: TFIELDTYPE);
+begin Self.DATATYPE := T; end;
+
+procedure TPARAMDATATYPE_R(Self: TPARAM; var T: TFIELDTYPE);
+begin T := Self.DATATYPE; end;
+
+procedure TPARAMTEXT_W(Self: TPARAM; const T: String);
+begin Self.TEXT := T; end;
+
+procedure TPARAMTEXT_R(Self: TPARAM; var T: String);
+begin T := Self.TEXT; end;
+
+procedure TPARAMNATIVESTR_W(Self: TPARAM; const T: String);
+begin Self.NATIVESTR := T; end;
+
+procedure TPARAMNATIVESTR_R(Self: TPARAM; var T: String);
+begin T := Self.NATIVESTR; end;
+
+procedure TPARAMISNULL_R(Self: TPARAM; var T: BOOLEAN);
+begin T := Self.ISNULL; end;
+
+procedure TPARAMBOUND_W(Self: TPARAM; const T: BOOLEAN);
+begin Self.BOUND := T; end;
+
+procedure TPARAMBOUND_R(Self: TPARAM; var T: BOOLEAN);
+begin T := Self.BOUND; end;
+
+procedure TPARAMASWORD_W(Self: TPARAM; const T: LONGINT);
+begin Self.ASWORD := T; end;
+
+procedure TPARAMASWORD_R(Self: TPARAM; var T: LONGINT);
+begin T := Self.ASWORD; end;
+
+procedure TPARAMASTIME_W(Self: TPARAM; const T: TDATETIME);
+begin Self.ASTIME := T; end;
+
+procedure TPARAMASTIME_R(Self: TPARAM; var T: TDATETIME);
+begin T := Self.ASTIME; end;
+
+procedure TPARAMASSTRING_W(Self: TPARAM; const T: String);
+begin Self.ASSTRING := T; end;
+
+procedure TPARAMASSTRING_R(Self: TPARAM; var T: String);
+begin T := Self.ASSTRING; end;
+
+procedure TPARAMASMEMO_W(Self: TPARAM; const T: String);
+begin Self.ASMEMO := T; end;
+
+procedure TPARAMASMEMO_R(Self: TPARAM; var T: String);
+begin T := Self.ASMEMO; end;
+
+procedure TPARAMASSMALLINT_W(Self: TPARAM; const T: LONGINT);
+begin Self.ASSMALLINT := T; end;
+
+procedure TPARAMASSMALLINT_R(Self: TPARAM; var T: LONGINT);
+begin T := Self.ASSMALLINT; end;
+
+procedure TPARAMASINTEGER_W(Self: TPARAM; const T: LONGINT);
+begin Self.ASINTEGER := T; end;
+
+procedure TPARAMASINTEGER_R(Self: TPARAM; var T: LONGINT);
+begin T := Self.ASINTEGER; end;
+
+procedure TPARAMASFLOAT_W(Self: TPARAM; const T: DOUBLE);
+begin Self.ASFLOAT := T; end;
+
+procedure TPARAMASFLOAT_R(Self: TPARAM; var T: DOUBLE);
+begin T := Self.ASFLOAT; end;
+
+procedure TPARAMASDATETIME_W(Self: TPARAM; const T: TDATETIME);
+begin Self.ASDATETIME := T; end;
+
+procedure TPARAMASDATETIME_R(Self: TPARAM; var T: TDATETIME);
+begin T := Self.ASDATETIME; end;
+
+procedure TPARAMASDATE_W(Self: TPARAM; const T: TDATETIME);
+begin Self.ASDATE := T; end;
+
+procedure TPARAMASDATE_R(Self: TPARAM; var T: TDATETIME);
+begin T := Self.ASDATE; end;
+
+procedure TPARAMASCURRENCY_W(Self: TPARAM; const T: CURRENCY);
+begin Self.ASCURRENCY := T; end;
+
+procedure TPARAMASCURRENCY_R(Self: TPARAM; var T: CURRENCY);
+begin T := Self.ASCURRENCY; end;
+
+procedure TPARAMASBOOLEAN_W(Self: TPARAM; const T: BOOLEAN);
+begin Self.ASBOOLEAN := T; end;
+
+procedure TPARAMASBOOLEAN_R(Self: TPARAM; var T: BOOLEAN);
+begin T := Self.ASBOOLEAN; end;
+
+procedure TPARAMASBLOB_W(Self: TPARAM; const T: TBLOBDATA);
+begin Self.ASBLOB := T; end;
+
+procedure TPARAMASBLOB_R(Self: TPARAM; var T: TBLOBDATA);
+begin T := Self.ASBLOB; end;
+
+{$IFNDEF FPC}
+
+{$IFDEF DELPHI6UP}
+procedure TPARAMASFMTBCD_W(Self: TPARAM; const T: TBCD);
+begin Self.ASFMTBCD := T; end;
+
+procedure TPARAMASFMTBCD_R(Self: TPARAM; var T: TBCD);
+begin T := Self.ASFMTBCD; end;
+{$ENDIF}
+procedure TPARAMASBCD_W(Self: TPARAM; const T: CURRENCY);
+begin Self.ASBCD := T; end;
+
+procedure TPARAMASBCD_R(Self: TPARAM; var T: CURRENCY);
+begin T := Self.ASBCD; end;
+
+procedure TREFERENCEFIELDREFERENCETABLENAME_W(Self: TREFERENCEFIELD; const T: String);
+begin Self.REFERENCETABLENAME := T; end;
+
+procedure TREFERENCEFIELDREFERENCETABLENAME_R(Self: TREFERENCEFIELD; var T: String);
+begin T := Self.REFERENCETABLENAME; end;
+
+
+procedure TDATASETFIELDINCLUDEOBJECTFIELD_W(Self: TDATASETFIELD; const T: BOOLEAN);
+begin Self.INCLUDEOBJECTFIELD := T; end;
+
+procedure TDATASETFIELDINCLUDEOBJECTFIELD_R(Self: TDATASETFIELD; var T: BOOLEAN);
+begin T := Self.INCLUDEOBJECTFIELD; end;
+
+procedure TDATASETFIELDNESTEDDATASET_R(Self: TDATASETFIELD; var T: TDATASET);
+begin T := Self.NESTEDDATASET; end;
+
+procedure TOBJECTFIELDOBJECTTYPE_W(Self: TOBJECTFIELD; const T: String);
+begin Self.OBJECTTYPE := T; end;
+
+procedure TOBJECTFIELDOBJECTTYPE_R(Self: TOBJECTFIELD; var T: String);
+begin T := Self.OBJECTTYPE; end;
+
+procedure TOBJECTFIELDUNNAMED_R(Self: TOBJECTFIELD; var T: BOOLEAN);
+begin T := Self.UNNAMED; end;
+
+procedure TOBJECTFIELDFIELDVALUES_W(Self: TOBJECTFIELD; const T: VARIANT; const t1: INTEGER);
+begin Self.FIELDVALUES[t1] := T; end;
+
+procedure TOBJECTFIELDFIELDVALUES_R(Self: TOBJECTFIELD; var T: VARIANT; const t1: INTEGER);
+begin T := Self.FIELDVALUES[t1]; end;
+
+procedure TOBJECTFIELDFIELDS_R(Self: TOBJECTFIELD; var T: TFIELDS);
+begin T := Self.FIELDS; end;
+
+procedure TOBJECTFIELDFIELDCOUNT_R(Self: TOBJECTFIELD; var T: INTEGER);
+begin T := Self.FIELDCOUNT; end;
+{$ENDIF}
+
+
+{$IFNDEF FPC}
+{$IFDEF DELPHI6UP}
+procedure TBLOBFIELDGRAPHICHEADER_W(Self: TBLOBFIELD; const T: BOOLEAN);
+begin Self.GRAPHICHEADER := T; end;
+
+procedure TBLOBFIELDGRAPHICHEADER_R(Self: TBLOBFIELD; var T: BOOLEAN);
+begin T := Self.GRAPHICHEADER; end;
+{$ENDIF}
+{$ENDIF}
+
+procedure TBLOBFIELDBLOBTYPE_W(Self: TBLOBFIELD; const T: TBLOBTYPE);
+begin Self.BLOBTYPE := T; end;
+
+procedure TBLOBFIELDBLOBTYPE_R(Self: TBLOBFIELD; var T: TBLOBTYPE);
+begin T := Self.BLOBTYPE; end;
+
+procedure TBLOBFIELDTRANSLITERATE_W(Self: TBLOBFIELD; const T: BOOLEAN);
+begin Self.TRANSLITERATE := T; end;
+
+procedure TBLOBFIELDTRANSLITERATE_R(Self: TBLOBFIELD; var T: BOOLEAN);
+begin T := Self.TRANSLITERATE; end;
+
+procedure TBLOBFIELDVALUE_W(Self: TBLOBFIELD; const T: String);
+{$IFDEF DELPHI2009UP}
+var
+  b: TBytes;
+begin
+  setLEngth(b, Length(T));
+  Move(T[1], b[0], Length(T));
+  self.Value := b;
+  {$ELSE}
+begin
+  Self.VALUE := T;
+  {$ENDIF}
+end;
+
+procedure TBLOBFIELDVALUE_R(Self: TBLOBFIELD; var T: String);
+begin
+{$IFDEF DELPHI2009UP}
+  SetLength(t, Length(SElf.Value));
+  Move(Self.Value[0], t[1], LEngth(T));
+{$ELSE}
+  T := Self.VALUE;
+{$ENDIF}
+end;
+
+procedure TBLOBFIELDMODIFIED_W(Self: TBLOBFIELD; const T: BOOLEAN);
+begin Self.MODIFIED := T; end;
+
+procedure TBLOBFIELDMODIFIED_R(Self: TBLOBFIELD; var T: BOOLEAN);
+begin T := Self.MODIFIED; end;
+
+procedure TBLOBFIELDBLOBSIZE_R(Self: TBLOBFIELD; var T: INTEGER);
+begin T := Self.BLOBSIZE; end;
+
+{$IFNDEF FPC}
+{$IFDEF DELPHI6UP}
+procedure TFMTBCDFIELDPRECISION_W(Self: TFMTBCDFIELD; const T: INTEGER);
+begin Self.PRECISION := T; end;
+
+procedure TFMTBCDFIELDPRECISION_R(Self: TFMTBCDFIELD; var T: INTEGER);
+begin T := Self.PRECISION; end;
+
+procedure TFMTBCDFIELDMINVALUE_W(Self: TFMTBCDFIELD; const T: String);
+begin Self.MINVALUE := T; end;
+
+procedure TFMTBCDFIELDMINVALUE_R(Self: TFMTBCDFIELD; var T: String);
+begin T := Self.MINVALUE; end;
+
+procedure TFMTBCDFIELDMAXVALUE_W(Self: TFMTBCDFIELD; const T: String);
+begin Self.MAXVALUE := T; end;
+
+procedure TFMTBCDFIELDMAXVALUE_R(Self: TFMTBCDFIELD; var T: String);
+begin T := Self.MAXVALUE; end;
+
+procedure TFMTBCDFIELDCURRENCY_W(Self: TFMTBCDFIELD; const T: BOOLEAN);
+begin Self.CURRENCY := T; end;
+
+procedure TFMTBCDFIELDCURRENCY_R(Self: TFMTBCDFIELD; var T: BOOLEAN);
+begin T := Self.CURRENCY; end;
+
+procedure TFMTBCDFIELDVALUE_W(Self: TFMTBCDFIELD; const T: TBCD);
+begin Self.VALUE := T; end;
+
+procedure TFMTBCDFIELDVALUE_R(Self: TFMTBCDFIELD; var T: TBCD);
+begin T := Self.VALUE; end;
+{$ENDIF}
+
+procedure TBCDFIELDPRECISION_W(Self: TBCDFIELD; const T: INTEGER);
+begin Self.PRECISION := T; end;
+
+procedure TBCDFIELDPRECISION_R(Self: TBCDFIELD; var T: INTEGER);
+begin T := Self.PRECISION; end;
+
+procedure TBCDFIELDMINVALUE_W(Self: TBCDFIELD; const T: CURRENCY);
+begin Self.MINVALUE := T; end;
+
+procedure TBCDFIELDMINVALUE_R(Self: TBCDFIELD; var T: CURRENCY);
+begin T := Self.MINVALUE; end;
+
+procedure TBCDFIELDMAXVALUE_W(Self: TBCDFIELD; const T: CURRENCY);
+begin Self.MAXVALUE := T; end;
+
+procedure TBCDFIELDMAXVALUE_R(Self: TBCDFIELD; var T: CURRENCY);
+begin T := Self.MAXVALUE; end;
+
+procedure TBCDFIELDCURRENCY_W(Self: TBCDFIELD; const T: BOOLEAN);
+begin Self.CURRENCY := T; end;
+
+procedure TBCDFIELDCURRENCY_R(Self: TBCDFIELD; var T: BOOLEAN);
+begin T := Self.CURRENCY; end;
+
+procedure TBCDFIELDVALUE_W(Self: TBCDFIELD; const T: CURRENCY);
+begin Self.VALUE := T; end;
+
+procedure TBCDFIELDVALUE_R(Self: TBCDFIELD; var T: CURRENCY);
+begin T := Self.VALUE; end;
+{$ENDIF}
+
+
+procedure TDATETIMEFIELDDISPLAYFORMAT_W(Self: TDATETIMEFIELD; const T: String);
+begin Self.DISPLAYFORMAT := T; end;
+
+procedure TDATETIMEFIELDDISPLAYFORMAT_R(Self: TDATETIMEFIELD; var T: String);
+begin T := Self.DISPLAYFORMAT; end;
+
+procedure TDATETIMEFIELDVALUE_W(Self: TDATETIMEFIELD; const T: TDATETIME);
+begin Self.VALUE := T; end;
+
+procedure TDATETIMEFIELDVALUE_R(Self: TDATETIMEFIELD; var T: TDATETIME);
+begin T := Self.VALUE; end;
+
+procedure TBOOLEANFIELDDISPLAYVALUES_W(Self: TBOOLEANFIELD; const T: String);
+begin Self.DISPLAYVALUES := T; end;
+
+procedure TBOOLEANFIELDDISPLAYVALUES_R(Self: TBOOLEANFIELD; var T: String);
+begin T := Self.DISPLAYVALUES; end;
+
+procedure TBOOLEANFIELDVALUE_W(Self: TBOOLEANFIELD; const T: BOOLEAN);
+begin Self.VALUE := T; end;
+
+procedure TBOOLEANFIELDVALUE_R(Self: TBOOLEANFIELD; var T: BOOLEAN);
+begin T := Self.VALUE; end;
+
+procedure TFLOATFIELDPRECISION_W(Self: TFLOATFIELD; const T: INTEGER);
+begin Self.PRECISION := T; end;
+
+procedure TFLOATFIELDPRECISION_R(Self: TFLOATFIELD; var T: INTEGER);
+begin T := Self.PRECISION; end;
+
+procedure TFLOATFIELDMINVALUE_W(Self: TFLOATFIELD; const T: DOUBLE);
+begin Self.MINVALUE := T; end;
+
+procedure TFLOATFIELDMINVALUE_R(Self: TFLOATFIELD; var T: DOUBLE);
+begin T := Self.MINVALUE; end;
+
+procedure TFLOATFIELDMAXVALUE_W(Self: TFLOATFIELD; const T: DOUBLE);
+begin Self.MAXVALUE := T; end;
+
+procedure TFLOATFIELDMAXVALUE_R(Self: TFLOATFIELD; var T: DOUBLE);
+begin T := Self.MAXVALUE; end;
+
+{$IFNDEF FPC}
+procedure TFLOATFIELDCURRENCY_W(Self: TFLOATFIELD; const T: BOOLEAN);
+begin Self.CURRENCY := T; end;
+
+procedure TFLOATFIELDCURRENCY_R(Self: TFLOATFIELD; var T: BOOLEAN);
+begin T := Self.CURRENCY; end;
+{$ENDIF}
+
+procedure TFLOATFIELDVALUE_W(Self: TFLOATFIELD; const T: DOUBLE);
+begin Self.VALUE := T; end;
+
+procedure TFLOATFIELDVALUE_R(Self: TFLOATFIELD; var T: DOUBLE);
+begin T := Self.VALUE; end;
+
+procedure TLARGEINTFIELDMINVALUE_W(Self: TLARGEINTFIELD; const T: LARGEINT);
+begin Self.MINVALUE := T; end;
+
+procedure TLARGEINTFIELDMINVALUE_R(Self: TLARGEINTFIELD; var T: LARGEINT);
+begin T := Self.MINVALUE; end;
+
+procedure TLARGEINTFIELDMAXVALUE_W(Self: TLARGEINTFIELD; const T: LARGEINT);
+begin Self.MAXVALUE := T; end;
+
+procedure TLARGEINTFIELDMAXVALUE_R(Self: TLARGEINTFIELD; var T: LARGEINT);
+begin T := Self.MAXVALUE; end;
+
+procedure TLARGEINTFIELDVALUE_W(Self: TLARGEINTFIELD; const T: LARGEINT);
+begin Self.VALUE := T; end;
+
+procedure TLARGEINTFIELDVALUE_R(Self: TLARGEINTFIELD; var T: LARGEINT);
+begin T := Self.VALUE; end;
+
+procedure TLARGEINTFIELDASLARGEINT_W(Self: TLARGEINTFIELD; const T: LARGEINT);
+begin Self.ASLARGEINT := T; end;
+
+procedure TLARGEINTFIELDASLARGEINT_R(Self: TLARGEINTFIELD; var T: LARGEINT);
+begin T := Self.ASLARGEINT; end;
+
+procedure TINTEGERFIELDMINVALUE_W(Self: TINTEGERFIELD; const T: LONGINT);
+begin Self.MINVALUE := T; end;
+
+procedure TINTEGERFIELDMINVALUE_R(Self: TINTEGERFIELD; var T: LONGINT);
+begin T := Self.MINVALUE; end;
+
+procedure TINTEGERFIELDMAXVALUE_W(Self: TINTEGERFIELD; const T: LONGINT);
+begin Self.MAXVALUE := T; end;
+
+procedure TINTEGERFIELDMAXVALUE_R(Self: TINTEGERFIELD; var T: LONGINT);
+begin T := Self.MAXVALUE; end;
+
+procedure TINTEGERFIELDVALUE_W(Self: TINTEGERFIELD; const T: LONGINT);
+begin Self.VALUE := T; end;
+
+procedure TINTEGERFIELDVALUE_R(Self: TINTEGERFIELD; var T: LONGINT);
+begin T := Self.VALUE; end;
+
+procedure TNUMERICFIELDEDITFORMAT_W(Self: TNUMERICFIELD; const T: String);
+begin Self.EDITFORMAT := T; end;
+
+procedure TNUMERICFIELDEDITFORMAT_R(Self: TNUMERICFIELD; var T: String);
+begin T := Self.EDITFORMAT; end;
+
+procedure TNUMERICFIELDDISPLAYFORMAT_W(Self: TNUMERICFIELD; const T: String);
+begin Self.DISPLAYFORMAT := T; end;
+
+procedure TNUMERICFIELDDISPLAYFORMAT_R(Self: TNUMERICFIELD; var T: String);
+begin T := Self.DISPLAYFORMAT; end;
+
+{$IFNDEF FPC}
+procedure TWIDESTRINGFIELDVALUE_W(Self: TWIDESTRINGFIELD; const T: WIDESTRING);
+begin Self.VALUE := T; end;
+
+procedure TWIDESTRINGFIELDVALUE_R(Self: TWIDESTRINGFIELD; var T: WIDESTRING);
+begin T := Self.VALUE; end;
+
+procedure TSTRINGFIELDTRANSLITERATE_W(Self: TSTRINGFIELD; const T: BOOLEAN);
+begin Self.TRANSLITERATE := T; end;
+
+procedure TSTRINGFIELDTRANSLITERATE_R(Self: TSTRINGFIELD; var T: BOOLEAN);
+begin T := Self.TRANSLITERATE; end;
+
+procedure TSTRINGFIELDFIXEDCHAR_W(Self: TSTRINGFIELD; const T: BOOLEAN);
+begin Self.FIXEDCHAR := T; end;
+
+procedure TSTRINGFIELDFIXEDCHAR_R(Self: TSTRINGFIELD; var T: BOOLEAN);
+begin T := Self.FIXEDCHAR; end;
+{$ENDIF}
+
+
+procedure TSTRINGFIELDVALUE_W(Self: TSTRINGFIELD; const T: String);
+begin Self.VALUE := T; end;
+
+procedure TSTRINGFIELDVALUE_R(Self: TSTRINGFIELD; var T: String);
+begin T := Self.VALUE; end;
+
+procedure TFIELDONVALIDATE_W(Self: TFIELD; const T: TFIELDNOTIFYEVENT);
+begin Self.ONVALIDATE := T; end;
+
+procedure TFIELDONVALIDATE_R(Self: TFIELD; var T: TFIELDNOTIFYEVENT);
+begin T := Self.ONVALIDATE; end;
+
+procedure TFIELDONSETTEXT_W(Self: TFIELD; const T: TFIELDSETTEXTEVENT);
+begin Self.ONSETTEXT := T; end;
+
+procedure TFIELDONSETTEXT_R(Self: TFIELD; var T: TFIELDSETTEXTEVENT);
+begin T := Self.ONSETTEXT; end;
+
+procedure TFIELDONGETTEXT_W(Self: TFIELD; const T: TFIELDGETTEXTEVENT);
+begin Self.ONGETTEXT := T; end;
+
+procedure TFIELDONGETTEXT_R(Self: TFIELD; var T: TFIELDGETTEXTEVENT);
+begin T := Self.ONGETTEXT; end;
+
+procedure TFIELDONCHANGE_W(Self: TFIELD; const T: TFIELDNOTIFYEVENT);
+begin Self.ONCHANGE := T; end;
+
+procedure TFIELDONCHANGE_R(Self: TFIELD; var T: TFIELDNOTIFYEVENT);
+begin T := Self.ONCHANGE; end;
+
+procedure TFIELDVISIBLE_W(Self: TFIELD; const T: BOOLEAN);
+begin Self.VISIBLE := T; end;
+
+procedure TFIELDVISIBLE_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.VISIBLE; end;
+
+procedure TFIELDREQUIRED_W(Self: TFIELD; const T: BOOLEAN);
+begin Self.REQUIRED := T; end;
+
+procedure TFIELDREQUIRED_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.REQUIRED; end;
+
+procedure TFIELDREADONLY_W(Self: TFIELD; const T: BOOLEAN);
+begin Self.READONLY := T; end;
+
+procedure TFIELDREADONLY_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.READONLY; end;
+
+procedure TFIELDPROVIDERFLAGS_W(Self: TFIELD; const T: TPROVIDERFLAGS);
+begin Self.PROVIDERFLAGS := T; end;
+
+procedure TFIELDPROVIDERFLAGS_R(Self: TFIELD; var T: TPROVIDERFLAGS);
+begin T := Self.PROVIDERFLAGS; end;
+
+procedure TFIELDORIGIN_W(Self: TFIELD; const T: String);
+begin Self.ORIGIN := T; end;
+
+procedure TFIELDORIGIN_R(Self: TFIELD; var T: String);
+begin T := Self.ORIGIN; end;
+
+procedure TFIELDLOOKUPCACHE_W(Self: TFIELD; const T: BOOLEAN);
+begin Self.LOOKUPCACHE := T; end;
+
+procedure TFIELDLOOKUPCACHE_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.LOOKUPCACHE; end;
+
+procedure TFIELDKEYFIELDS_W(Self: TFIELD; const T: String);
+begin Self.KEYFIELDS := T; end;
+
+procedure TFIELDKEYFIELDS_R(Self: TFIELD; var T: String);
+begin T := Self.KEYFIELDS; end;
+
+procedure TFIELDLOOKUPRESULTFIELD_W(Self: TFIELD; const T: String);
+begin Self.LOOKUPRESULTFIELD := T; end;
+
+procedure TFIELDLOOKUPRESULTFIELD_R(Self: TFIELD; var T: String);
+begin T := Self.LOOKUPRESULTFIELD; end;
+
+procedure TFIELDLOOKUPKEYFIELDS_W(Self: TFIELD; const T: String);
+begin Self.LOOKUPKEYFIELDS := T; end;
+
+procedure TFIELDLOOKUPKEYFIELDS_R(Self: TFIELD; var T: String);
+begin T := Self.LOOKUPKEYFIELDS; end;
+
+procedure TFIELDLOOKUPDATASET_W(Self: TFIELD; const T: TDATASET);
+begin Self.LOOKUPDATASET := T; end;
+
+procedure TFIELDLOOKUPDATASET_R(Self: TFIELD; var T: TDATASET);
+begin T := Self.LOOKUPDATASET; end;
+
+procedure TFIELDIMPORTEDCONSTRAINT_W(Self: TFIELD; const T: String);
+begin Self.IMPORTEDCONSTRAINT := T; end;
+
+procedure TFIELDIMPORTEDCONSTRAINT_R(Self: TFIELD; var T: String);
+begin T := Self.IMPORTEDCONSTRAINT; end;
+
+procedure TFIELDINDEX_W(Self: TFIELD; const T: INTEGER);
+begin Self.INDEX := T; end;
+
+procedure TFIELDINDEX_R(Self: TFIELD; var T: INTEGER);
+begin T := Self.INDEX; end;
+
+procedure TFIELDHASCONSTRAINTS_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.HASCONSTRAINTS; end;
+
+procedure TFIELDFIELDNAME_W(Self: TFIELD; const T: String);
+begin Self.FIELDNAME := T; end;
+
+procedure TFIELDFIELDNAME_R(Self: TFIELD; var T: String);
+begin T := Self.FIELDNAME; end;
+
+procedure TFIELDFIELDKIND_W(Self: TFIELD; const T: TFIELDKIND);
+begin Self.FIELDKIND := T; end;
+
+procedure TFIELDFIELDKIND_R(Self: TFIELD; var T: TFIELDKIND);
+begin T := Self.FIELDKIND; end;
+
+procedure TFIELDDISPLAYWIDTH_W(Self: TFIELD; const T: INTEGER);
+begin Self.DISPLAYWIDTH := T; end;
+
+procedure TFIELDDISPLAYWIDTH_R(Self: TFIELD; var T: INTEGER);
+begin T := Self.DISPLAYWIDTH; end;
+
+procedure TFIELDDISPLAYLABEL_W(Self: TFIELD; const T: String);
+begin Self.DISPLAYLABEL := T; end;
+
+procedure TFIELDDISPLAYLABEL_R(Self: TFIELD; var T: String);
+begin T := Self.DISPLAYLABEL; end;
+
+procedure TFIELDDEFAULTEXPRESSION_W(Self: TFIELD; const T: String);
+begin Self.DEFAULTEXPRESSION := T; end;
+
+procedure TFIELDDEFAULTEXPRESSION_R(Self: TFIELD; var T: String);
+begin T := Self.DEFAULTEXPRESSION; end;
+
+procedure TFIELDCONSTRAINTERRORMESSAGE_W(Self: TFIELD; const T: String);
+begin Self.CONSTRAINTERRORMESSAGE := T; end;
+
+procedure TFIELDCONSTRAINTERRORMESSAGE_R(Self: TFIELD; var T: String);
+begin T := Self.CONSTRAINTERRORMESSAGE; end;
+
+procedure TFIELDCUSTOMCONSTRAINT_W(Self: TFIELD; const T: String);
+begin Self.CUSTOMCONSTRAINT := T; end;
+
+procedure TFIELDCUSTOMCONSTRAINT_R(Self: TFIELD; var T: String);
+begin T := Self.CUSTOMCONSTRAINT; end;
+
+{$IFNDEF FPC}
+procedure TFIELDAUTOGENERATEVALUE_W(Self: TFIELD; const T: TAUTOREFRESHFLAG);
+begin Self.AUTOGENERATEVALUE := T; end;
+
+procedure TFIELDAUTOGENERATEVALUE_R(Self: TFIELD; var T: TAUTOREFRESHFLAG);
+begin T := Self.AUTOGENERATEVALUE; end;
+
+procedure TFIELDVALIDCHARS_W(Self: TFIELD; const T: TFIELDCHARS);
+begin Self.VALIDCHARS := T; end;
+
+procedure TFIELDVALIDCHARS_R(Self: TFIELD; var T: TFIELDCHARS);
+begin T := Self.VALIDCHARS; end;
+
+
+procedure TFIELDPARENTFIELD_W(Self: TFIELD; const T: TOBJECTFIELD);
+begin Self.PARENTFIELD := T; end;
+
+procedure TFIELDPARENTFIELD_R(Self: TFIELD; var T: TOBJECTFIELD);
+begin T := Self.PARENTFIELD; end;
+
+
+
+{$ENDIF}
+
+procedure TFIELDALIGNMENT_W(Self: TFIELD; const T: TALIGNMENT);
+begin Self.ALIGNMENT := T; end;
+
+procedure TFIELDALIGNMENT_R(Self: TFIELD; var T: TALIGNMENT);
+begin T := Self.ALIGNMENT; end;
+
+procedure TFIELDVALUE_W(Self: TFIELD; const T: VARIANT);
+begin Self.VALUE := T; end;
+
+procedure TFIELDVALUE_R(Self: TFIELD; var T: VARIANT);
+begin T := Self.VALUE; end;
+
+procedure TFIELDTEXT_W(Self: TFIELD; const T: String);
+begin Self.TEXT := T; end;
+
+procedure TFIELDTEXT_R(Self: TFIELD; var T: String);
+begin T := Self.TEXT; end;
+
+procedure TFIELDSIZE_W(Self: TFIELD; const T: INTEGER);
+begin Self.SIZE := T; end;
+
+procedure TFIELDSIZE_R(Self: TFIELD; var T: INTEGER);
+begin T := Self.SIZE; end;
+
+procedure TFIELDOLDVALUE_R(Self: TFIELD; var T: VARIANT);
+begin T := Self.OLDVALUE; end;
+
+procedure TFIELDOFFSET_R(Self: TFIELD; var T: INTEGER);
+begin T := Self.OFFSET; end;
+
+procedure TFIELDNEWVALUE_W(Self: TFIELD; const T: VARIANT);
+begin Self.NEWVALUE := T; end;
+
+procedure TFIELDNEWVALUE_R(Self: TFIELD; var T: VARIANT);
+begin T := Self.NEWVALUE; end;
+
+procedure TFIELDLOOKUPLIST_R(Self: TFIELD; var T: TLOOKUPLIST);
+begin T := Self.LOOKUPLIST; end;
+
+{$IFNDEF FPC}
+procedure TFIELDLOOKUP_W(Self: TFIELD; const T: BOOLEAN);
+begin Self.LOOKUP := T; end;
+
+procedure TFIELDLOOKUP_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.LOOKUP; end;
+
+procedure TFIELDFULLNAME_R(Self: TFIELD; var T: String);
+begin T := Self.FULLNAME; end;
+
+
+procedure TFIELDEDITMASKPTR_R(Self: TFIELD; var T: String);
+begin T := Self.EDITMASKPTR; end;
+
+procedure TFIELDEDITMASK_W(Self: TFIELD; const T: String);
+begin Self.EDITMASK := T; end;
+
+procedure TFIELDEDITMASK_R(Self: TFIELD; var T: String);
+begin T := Self.EDITMASK; end;
+
+{$ENDIF}
+
+procedure TFIELDISNULL_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.ISNULL; end;
+
+procedure TFIELDISINDEXFIELD_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.ISINDEXFIELD; end;
+
+procedure TFIELDFIELDNO_R(Self: TFIELD; var T: INTEGER);
+begin T := Self.FIELDNO; end;
+
+
+
+procedure TFIELDDISPLAYTEXT_R(Self: TFIELD; var T: String);
+begin T := Self.DISPLAYTEXT; end;
+
+procedure TFIELDDISPLAYNAME_R(Self: TFIELD; var T: String);
+begin T := Self.DISPLAYNAME; end;
+
+procedure TFIELDDATATYPE_R(Self: TFIELD; var T: TFIELDTYPE);
+begin T := Self.DATATYPE; end;
+
+procedure TFIELDDATASIZE_R(Self: TFIELD; var T: INTEGER);
+begin T := Self.DATASIZE; end;
+
+procedure TFIELDDATASET_W(Self: TFIELD; const T: TDATASET);
+begin Self.DATASET := T; end;
+
+procedure TFIELDDATASET_R(Self: TFIELD; var T: TDATASET);
+begin T := Self.DATASET; end;
+
+procedure TFIELDCURVALUE_R(Self: TFIELD; var T: VARIANT);
+begin T := Self.CURVALUE; end;
+
+procedure TFIELDCANMODIFY_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.CANMODIFY; end;
+
+procedure TFIELDCALCULATED_W(Self: TFIELD; const T: BOOLEAN);
+begin Self.CALCULATED := T; end;
+
+procedure TFIELDCALCULATED_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.CALCULATED; end;
+
+procedure TFIELDATTRIBUTESET_W(Self: TFIELD; const T: String);
+begin Self.ATTRIBUTESET := T; end;
+
+procedure TFIELDATTRIBUTESET_R(Self: TFIELD; var T: String);
+begin T := Self.ATTRIBUTESET; end;
+
+procedure TFIELDASVARIANT_W(Self: TFIELD; const T: VARIANT);
+begin Self.ASVARIANT := T; end;
+
+procedure TFIELDASVARIANT_R(Self: TFIELD; var T: VARIANT);
+begin T := Self.ASVARIANT; end;
+
+procedure TFIELDASSTRING_W(Self: TFIELD; const T: String);
+begin Self.ASSTRING := T; end;
+
+procedure TFIELDASSTRING_R(Self: TFIELD; var T: String);
+begin T := Self.ASSTRING; end;
+
+procedure TFIELDASINTEGER_W(Self: TFIELD; const T: LONGINT);
+begin Self.ASINTEGER := T; end;
+
+procedure TFIELDASINTEGER_R(Self: TFIELD; var T: LONGINT);
+begin T := Self.ASINTEGER; end;
+
+procedure TFIELDASFLOAT_W(Self: TFIELD; const T: DOUBLE);
+begin Self.ASFLOAT := T; end;
+
+procedure TFIELDASFLOAT_R(Self: TFIELD; var T: DOUBLE);
+begin T := Self.ASFLOAT; end;
+
+procedure TFIELDASDATETIME_W(Self: TFIELD; const T: TDATETIME);
+begin Self.ASDATETIME := T; end;
+
+procedure TFIELDASDATETIME_R(Self: TFIELD; var T: TDATETIME);
+begin T := Self.ASDATETIME; end;
+
+procedure TFIELDASCURRENCY_W(Self: TFIELD; const T: CURRENCY);
+begin Self.ASCURRENCY := T; end;
+
+procedure TFIELDASCURRENCY_R(Self: TFIELD; var T: CURRENCY);
+begin T := Self.ASCURRENCY; end;
+
+procedure TFIELDASBOOLEAN_W(Self: TFIELD; const T: BOOLEAN);
+begin Self.ASBOOLEAN := T; end;
+
+procedure TFIELDASBOOLEAN_R(Self: TFIELD; var T: BOOLEAN);
+begin T := Self.ASBOOLEAN; end;
+
+{$IFNDEF FPC}
+{$IFDEF DELPHI6UP}
+procedure TFIELDASBCD_W(Self: TFIELD; const T: TBCD);
+begin Self.ASBCD := T; end;
+
+procedure TFIELDASBCD_R(Self: TFIELD; var T: TBCD);
+begin T := Self.ASBCD; end;
+{$ENDIF}
+
+procedure TFIELDLISTFIELDS_R(Self: TFIELDLIST; var T: TFIELD; const t1: INTEGER);
+begin T := Self.FIELDS[t1]; end;
+
+procedure TFIELDDEFLISTFIELDDEFS_R(Self: TFIELDDEFLIST; var T: TFIELDDEF; const t1: INTEGER);
+begin T := Self.FIELDDEFS[t1]; end;
+
+procedure TFLATLISTDATASET_R(Self: TFLATLIST; var T: TDATASET);
+begin T := Self.DATASET; end;
+
+procedure TINDEXDEFGROUPINGLEVEL_W(Self: TINDEXDEF; const T: INTEGER);
+begin Self.GROUPINGLEVEL := T; end;
+
+procedure TINDEXDEFGROUPINGLEVEL_R(Self: TINDEXDEF; var T: INTEGER);
+begin T := Self.GROUPINGLEVEL; end;
+
+
+
+{$ENDIF}
+
+procedure TFIELDSFIELDS_W(Self: TFIELDS; const T: TFIELD; const t1: INTEGER);
+begin Self.FIELDS[t1] := T; end;
+
+procedure TFIELDSFIELDS_R(Self: TFIELDS; var T: TFIELD; const t1: INTEGER);
+begin T := Self.FIELDS[t1]; end;
+
+procedure TFIELDSDATASET_R(Self: TFIELDS; var T: TDATASET);
+begin T := Self.DATASET; end;
+
+procedure TFIELDSCOUNT_R(Self: TFIELDS; var T: INTEGER);
+begin T := Self.COUNT; end;
+
+procedure TINDEXDEFSITEMS_W(Self: TINDEXDEFS; const T: TINDEXDEF; const t1: INTEGER);
+begin Self.ITEMS[t1] := T; end;
+
+procedure TINDEXDEFSITEMS_R(Self: TINDEXDEFS; var T: TINDEXDEF; const t1: INTEGER);
+begin T := Self.ITEMS[t1]; end;
+
+procedure TINDEXDEFSOURCE_W(Self: TINDEXDEF; const T: String);
+begin Self.SOURCE := T; end;
+
+procedure TINDEXDEFSOURCE_R(Self: TINDEXDEF; var T: String);
+begin T := Self.SOURCE; end;
+
+procedure TINDEXDEFOPTIONS_W(Self: TINDEXDEF; const T: TINDEXOPTIONS);
+begin Self.OPTIONS := T; end;
+
+procedure TINDEXDEFOPTIONS_R(Self: TINDEXDEF; var T: TINDEXOPTIONS);
+begin T := Self.OPTIONS; end;
+
+procedure TINDEXDEFFIELDS_W(Self: TINDEXDEF; const T: String);
+begin Self.FIELDS := T; end;
+
+procedure TINDEXDEFFIELDS_R(Self: TINDEXDEF; var T: String);
+begin T := Self.FIELDS; end;
+
+procedure TINDEXDEFEXPRESSION_W(Self: TINDEXDEF; const T: String);
+begin {$IFNDEF FPC}Self.EXPRESSION := T; {$ENDIF}end;
+
+procedure TINDEXDEFEXPRESSION_R(Self: TINDEXDEF; var T: String);
+begin T := Self.EXPRESSION; end;
+
+{$IFNDEF FPC}
+procedure TINDEXDEFDESCFIELDS_W(Self: TINDEXDEF; const T: String);
+begin Self.DESCFIELDS := T; end;
+
+procedure TINDEXDEFDESCFIELDS_R(Self: TINDEXDEF; var T: String);
+begin T := Self.DESCFIELDS; end;
+
+procedure TINDEXDEFCASEINSFIELDS_W(Self: TINDEXDEF; const T: String);
+begin Self.CASEINSFIELDS := T; end;
+
+procedure TINDEXDEFCASEINSFIELDS_R(Self: TINDEXDEF; var T: String);
+begin T := Self.CASEINSFIELDS; end;
+
+
+procedure TINDEXDEFFIELDEXPRESSION_R(Self: TINDEXDEF; var T: String);
+begin T := Self.FIELDEXPRESSION; end;
+
+procedure TFIELDDEFSPARENTDEF_R(Self: TFIELDDEFS; var T: TFIELDDEF);
+begin T := Self.PARENTDEF; end;
+
+{$ENDIF}
+
+procedure TFIELDDEFSITEMS_W(Self: TFIELDDEFS; const T: TFIELDDEF; const t1: INTEGER);
+begin Self.ITEMS[t1] := T; end;
+
+procedure TFIELDDEFSITEMS_R(Self: TFIELDDEFS; var T: TFIELDDEF; const t1: INTEGER);
+begin T := Self.ITEMS[t1]; end;
+
+procedure TFIELDDEFSHIDDENFIELDS_W(Self: TFIELDDEFS; const T: BOOLEAN);
+begin Self.HIDDENFIELDS := T; end;
+
+procedure TFIELDDEFSHIDDENFIELDS_R(Self: TFIELDDEFS; var T: BOOLEAN);
+begin T := Self.HIDDENFIELDS; end;
+
+procedure TFIELDDEFSIZE_W(Self: TFIELDDEF; const T: INTEGER);
+begin Self.SIZE := T; end;
+
+procedure TFIELDDEFSIZE_R(Self: TFIELDDEF; var T: INTEGER);
+begin T := Self.SIZE; end;
+
+procedure TFIELDDEFPRECISION_W(Self: TFIELDDEF; const T: INTEGER);
+begin Self.PRECISION := T; end;
+
+procedure TFIELDDEFPRECISION_R(Self: TFIELDDEF; var T: INTEGER);
+begin T := Self.PRECISION; end;
+
+procedure TFIELDDEFDATATYPE_W(Self: TFIELDDEF; const T: TFIELDTYPE);
+begin Self.DATATYPE := T; end;
+
+procedure TFIELDDEFDATATYPE_R(Self: TFIELDDEF; var T: TFIELDTYPE);
+begin T := Self.DATATYPE; end;
+
+{$IFNDEF FPC}
+procedure TFIELDDEFCHILDDEFS_W(Self: TFIELDDEF; const T: TFIELDDEFS);
+begin Self.CHILDDEFS := T; end;
+
+procedure TFIELDDEFCHILDDEFS_R(Self: TFIELDDEF; var T: TFIELDDEFS);
+begin T := Self.CHILDDEFS; end;
+
+procedure TFIELDDEFREQUIRED_W(Self: TFIELDDEF; const T: BOOLEAN);
+begin Self.REQUIRED := T;end;
+
+procedure TFIELDDEFPARENTDEF_R(Self: TFIELDDEF; var T: TFIELDDEF);
+begin T := Self.PARENTDEF; end;
+
+{$ENDIF}
+
+procedure TFIELDDEFATTRIBUTES_W(Self: TFIELDDEF; const T: TFIELDATTRIBUTES);
+begin Self.ATTRIBUTES := T; end;
+
+procedure TFIELDDEFATTRIBUTES_R(Self: TFIELDDEF; var T: TFIELDATTRIBUTES);
+begin T := Self.ATTRIBUTES; end;
+
+procedure TFIELDDEFREQUIRED_R(Self: TFIELDDEF; var T: BOOLEAN);
+begin T := Self.REQUIRED; end;
+
+procedure TFIELDDEFINTERNALCALCFIELD_W(Self: TFIELDDEF; const T: BOOLEAN);
+begin Self.INTERNALCALCFIELD := T; end;
+
+procedure TFIELDDEFINTERNALCALCFIELD_R(Self: TFIELDDEF; var T: BOOLEAN);
+begin T := Self.INTERNALCALCFIELD; end;
+
+{$IFNDEF FPC}
+procedure TFIELDDEFFIELDNO_W(Self: TFIELDDEF; const T: INTEGER);
+begin Self.FIELDNO := T; end;
+
+procedure TDEFCOLLECTIONUPDATED_W(Self: TDEFCOLLECTION; const T: BOOLEAN);
+begin Self.UPDATED := T; end;
+
+procedure TDEFCOLLECTIONUPDATED_R(Self: TDEFCOLLECTION; var T: BOOLEAN);
+begin T := Self.UPDATED; end;
+
+procedure TDEFCOLLECTIONDATASET_R(Self: TDEFCOLLECTION; var T: TDATASET);
+begin T := Self.DATASET; end;
+
+procedure TNAMEDITEMNAME_W(Self: TNAMEDITEM; const T: String);
+begin Self.NAME := T; end;
+
+procedure TNAMEDITEMNAME_R(Self: TNAMEDITEM; var T: String);
+begin T := Self.NAME; end;
+
+
+{$ENDIF}
+
+procedure TFIELDDEFFIELDNO_R(Self: TFIELDDEF; var T: INTEGER);
+begin T := Self.FIELDNO; end;
+
+procedure TFIELDDEFFIELDCLASS_R(Self: TFIELDDEF; var T: TFIELDCLASS);
+begin T := Self.FIELDCLASS; end;
+
+procedure RIRegisterTDATASET(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TDATASET) do
+  begin
+  RegisterMethod(@TDATASET.ACTIVEBUFFER, 'ACTIVEBUFFER');
+  RegisterMethod(@TDATASET.APPEND, 'APPEND');
+  RegisterMethod(@TDATASET.APPENDRECORD, 'APPENDRECORD');
+//  RegisterVirtualMethod(@TDATASET.BOOKMARKVALID, 'BOOKMARKVALID');
+  RegisterVirtualMethod(@TDATASET.CANCEL, 'CANCEL');
+  RegisterMethod(@TDATASET.CHECKBROWSEMODE, 'CHECKBROWSEMODE');
+  RegisterMethod(@TDATASET.CLEARFIELDS, 'CLEARFIELDS');
+  RegisterMethod(@TDATASET.CLOSE, 'CLOSE');
+  RegisterMethod(@TDATASET.CONTROLSDISABLED, 'CONTROLSDISABLED');
+//  RegisterVirtualMethod(@TDATASET.COMPAREBOOKMARKS, 'COMPAREBOOKMARKS');
+  RegisterVirtualMethod(@TDATASET.CREATEBLOBSTREAM, 'CREATEBLOBSTREAM');
+  RegisterMethod(@TDATASET.CURSORPOSCHANGED, 'CURSORPOSCHANGED');
+  RegisterMethod(@TDATASET.DELETE, 'DELETE');
+  RegisterMethod(@TDATASET.DISABLECONTROLS, 'DISABLECONTROLS');
+  RegisterMethod(@TDATASET.EDIT, 'EDIT');
+  RegisterMethod(@TDATASET.ENABLECONTROLS, 'ENABLECONTROLS');
+  RegisterMethod(@TDATASET.FIELDBYNAME, 'FIELDBYNAME');
+  RegisterMethod(@TDATASET.FINDFIELD, 'FINDFIELD');
+  RegisterMethod(@TDATASET.FINDFIRST, 'FINDFIRST');
+  RegisterMethod(@TDATASET.FINDLAST, 'FINDLAST');
+  RegisterMethod(@TDATASET.FINDNEXT, 'FINDNEXT');
+  RegisterMethod(@TDATASET.FINDPRIOR, 'FINDPRIOR');
+  RegisterMethod(@TDATASET.FIRST, 'FIRST');
+//  RegisterVirtualMethod(@TDATASET.FREEBOOKMARK, 'FREEBOOKMARK');
+//  RegisterVirtualMethod(@TDATASET.GETBOOKMARK, 'GETBOOKMARK');
+  RegisterVirtualMethod(@TDATASET.GETCURRENTRECORD, 'GETCURRENTRECORD');
+//  RegisterVirtualMethod(@TDATASET.GETDETAILDATASETS, 'GETDETAILDATASETS');
+//  RegisterVirtualMethod(@TDATASET.GETDETAILLINKFIELDS, 'GETDETAILLINKFIELDS');
+//  RegisterVirtualMethod(@TDATASET.GETBLOBFIELDDATA, 'GETBLOBFIELDDATA');
+//  RegisterMethod(@TDATASET.GETFIELDLIST, 'GETFIELDLIST');
+  RegisterMethod(@TDATASET.GETFIELDNAMES, 'GETFIELDNAMES');
+//  RegisterMethod(@TDATASET.GOTOBOOKMARK, 'GOTOBOOKMARK');
+  RegisterMethod(@TDATASET.INSERT, 'INSERT');
+  RegisterMethod(@TDATASET.INSERTRECORD, 'INSERTRECORD');
+  RegisterMethod(@TDATASET.ISEMPTY, 'ISEMPTY');
+  RegisterMethod(@TDATASET.ISLINKEDTO, 'ISLINKEDTO');
+  RegisterVirtualMethod(@TDATASET.ISSEQUENCED, 'ISSEQUENCED');
+  RegisterMethod(@TDATASET.LAST, 'LAST');
+  RegisterVirtualMethod(@TDATASET.LOCATE, 'LOCATE');
+  RegisterVirtualMethod(@TDATASET.LOOKUP, 'LOOKUP');
+  RegisterMethod(@TDATASET.MOVEBY, 'MOVEBY');
+  RegisterMethod(@TDATASET.NEXT, 'NEXT');
+  RegisterMethod(@TDATASET.OPEN, 'OPEN');
+  RegisterVirtualMethod(@TDATASET.POST, 'POST');
+  RegisterMethod(@TDATASET.PRIOR, 'PRIOR');
+  RegisterMethod(@TDATASET.REFRESH, 'REFRESH');
+//  RegisterVirtualMethod(@TDATASET.RESYNC, 'RESYNC');
+  RegisterMethod(@TDATASET.SETFIELDS, 'SETFIELDS');
+  RegisterVirtualMethod(@TDATASET.TRANSLATE, 'TRANSLATE');
+  RegisterMethod(@TDATASET.UPDATECURSORPOS, 'UPDATECURSORPOS');
+  RegisterMethod(@TDATASET.UPDATERECORD, 'UPDATERECORD');
+  RegisterVirtualMethod(@TDATASET.UPDATESTATUS, 'UPDATESTATUS');
+  RegisterPropertyHelper(@TDATASETBOF_R,nil,'BOF');
+//  RegisterPropertyHelper(@TDATASETBOOKMARK_R,@TDATASETBOOKMARK_W,'BOOKMARK');
+  RegisterPropertyHelper(@TDATASETCANMODIFY_R,nil,'CANMODIFY');
+  RegisterPropertyHelper(@TDATASETDATASOURCE_R,nil,'DATASOURCE');
+  RegisterPropertyHelper(@TDATASETDEFAULTFIELDS_R,nil,'DEFAULTFIELDS');
+  RegisterPropertyHelper(@TDATASETEOF_R,nil,'EOF');
+  RegisterPropertyHelper(@TDATASETFIELDCOUNT_R,nil,'FIELDCOUNT');
+  RegisterPropertyHelper(@TDATASETFIELDS_R,nil,'FIELDS');
+  RegisterPropertyHelper(@TDATASETFIELDVALUES_R,@TDATASETFIELDVALUES_W,'FIELDVALUES');
+  RegisterPropertyHelper(@TDATASETFOUND_R,nil,'FOUND');
+{$IFDEF DELPHI6UP}
+  RegisterPropertyHelper(@TDATASETISUNIDIRECTIONAL_R,nil,'ISUNIDIRECTIONAL');
+{$ENDIF}
+  RegisterPropertyHelper(@TDATASETMODIFIED_R,nil,'MODIFIED');
+  RegisterPropertyHelper(@TDATASETRECORDCOUNT_R,nil,'RECORDCOUNT');
+  RegisterPropertyHelper(@TDATASETRECNO_R,@TDATASETRECNO_W,'RECNO');
+  RegisterPropertyHelper(@TDATASETRECORDSIZE_R,nil,'RECORDSIZE');
+  RegisterPropertyHelper(@TDATASETSTATE_R,nil,'STATE');
+  RegisterPropertyHelper(@TDATASETFILTER_R,@TDATASETFILTER_W,'FILTER');
+  RegisterPropertyHelper(@TDATASETFILTERED_R,@TDATASETFILTERED_W,'FILTERED');
+  RegisterPropertyHelper(@TDATASETFILTEROPTIONS_R,@TDATASETFILTEROPTIONS_W,'FILTEROPTIONS');
+  RegisterPropertyHelper(@TDATASETACTIVE_R,@TDATASETACTIVE_W,'ACTIVE');
+  RegisterPropertyHelper(@TDATASETAUTOCALCFIELDS_R,@TDATASETAUTOCALCFIELDS_W,'AUTOCALCFIELDS');
+  RegisterPropertyHelper(@TDATASETBEFOREOPEN_R,@TDATASETBEFOREOPEN_W,'BEFOREOPEN');
+  RegisterPropertyHelper(@TDATASETAFTEROPEN_R,@TDATASETAFTEROPEN_W,'AFTEROPEN');
+  RegisterPropertyHelper(@TDATASETBEFORECLOSE_R,@TDATASETBEFORECLOSE_W,'BEFORECLOSE');
+  RegisterPropertyHelper(@TDATASETAFTERCLOSE_R,@TDATASETAFTERCLOSE_W,'AFTERCLOSE');
+  RegisterPropertyHelper(@TDATASETBEFOREINSERT_R,@TDATASETBEFOREINSERT_W,'BEFOREINSERT');
+  RegisterPropertyHelper(@TDATASETAFTERINSERT_R,@TDATASETAFTERINSERT_W,'AFTERINSERT');
+  RegisterPropertyHelper(@TDATASETBEFOREEDIT_R,@TDATASETBEFOREEDIT_W,'BEFOREEDIT');
+  RegisterPropertyHelper(@TDATASETAFTEREDIT_R,@TDATASETAFTEREDIT_W,'AFTEREDIT');
+  RegisterPropertyHelper(@TDATASETBEFOREPOST_R,@TDATASETBEFOREPOST_W,'BEFOREPOST');
+  RegisterPropertyHelper(@TDATASETAFTERPOST_R,@TDATASETAFTERPOST_W,'AFTERPOST');
+  RegisterPropertyHelper(@TDATASETBEFORECANCEL_R,@TDATASETBEFORECANCEL_W,'BEFORECANCEL');
+  RegisterPropertyHelper(@TDATASETAFTERCANCEL_R,@TDATASETAFTERCANCEL_W,'AFTERCANCEL');
+  RegisterPropertyHelper(@TDATASETBEFOREDELETE_R,@TDATASETBEFOREDELETE_W,'BEFOREDELETE');
+  RegisterPropertyHelper(@TDATASETAFTERDELETE_R,@TDATASETAFTERDELETE_W,'AFTERDELETE');
+  RegisterPropertyHelper(@TDATASETBEFORESCROLL_R,@TDATASETBEFORESCROLL_W,'BEFORESCROLL');
+  RegisterPropertyHelper(@TDATASETAFTERSCROLL_R,@TDATASETAFTERSCROLL_W,'AFTERSCROLL');
+  {$IFNDEF FPC}
+  RegisterPropertyHelper(@TDATASETFIELDLIST_R,nil,'FIELDLIST');
+  RegisterPropertyHelper(@TDATASETDESIGNER_R,nil,'DESIGNER');
+  RegisterPropertyHelper(@TDATASETBLOCKREADSIZE_R,@TDATASETBLOCKREADSIZE_W,'BLOCKREADSIZE');
+  RegisterPropertyHelper(@TDATASETBEFOREREFRESH_R,@TDATASETBEFOREREFRESH_W,'BEFOREREFRESH');
+  RegisterPropertyHelper(@TDATASETAFTERREFRESH_R,@TDATASETAFTERREFRESH_W,'AFTERREFRESH');
+  RegisterPropertyHelper(@TDATASETAGGFIELDS_R,nil,'AGGFIELDS');
+  RegisterPropertyHelper(@TDATASETDATASETFIELD_R,@TDATASETDATASETFIELD_W,'DATASETFIELD');
+  RegisterPropertyHelper(@TDATASETOBJECTVIEW_R,@TDATASETOBJECTVIEW_W,'OBJECTVIEW');
+  RegisterPropertyHelper(@TDATASETSPARSEARRAYS_R,@TDATASETSPARSEARRAYS_W,'SPARSEARRAYS');
+  RegisterPropertyHelper(@TDATASETFIELDDEFS_R,@TDATASETFIELDDEFS_W,'FIELDDEFS');
+  RegisterPropertyHelper(@TDATASETFIELDDEFLIST_R,nil,'FIELDDEFLIST');
+
+  {$ENDIF}
+  RegisterEventPropertyHelper(@TDATASETONCALCFIELDS_R,@TDATASETONCALCFIELDS_W,'ONCALCFIELDS');
+  RegisterEventPropertyHelper(@TDATASETONDELETEERROR_R,@TDATASETONDELETEERROR_W,'ONDELETEERROR');
+  RegisterEventPropertyHelper(@TDATASETONEDITERROR_R,@TDATASETONEDITERROR_W,'ONEDITERROR');
+  RegisterEventPropertyHelper(@TDATASETONFILTERRECORD_R,@TDATASETONFILTERRECORD_W,'ONFILTERRECORD');
+  RegisterEventPropertyHelper(@TDATASETONNEWRECORD_R,@TDATASETONNEWRECORD_W,'ONNEWRECORD');
+  RegisterEventPropertyHelper(@TDATASETONPOSTERROR_R,@TDATASETONPOSTERROR_W,'ONPOSTERROR');
+  end;
+end;
+
+procedure RIRegisterTPARAMS(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TPARAMS) do
+  begin
+//  RegisterMethod(@TPARAMS.ASSIGNVALUES, 'ASSIGNVALUES');
+  RegisterMethod(@TPARAMS.ADDPARAM, 'ADDPARAM');
+  RegisterMethod(@TPARAMS.REMOVEPARAM, 'REMOVEPARAM');
+  RegisterMethod(@TPARAMS.CREATEPARAM, 'CREATEPARAM');
+  RegisterMethod(@TPARAMS.GETPARAMLIST, 'GETPARAMLIST');
+  RegisterMethod(@TPARAMS.ISEQUAL, 'ISEQUAL');
+  RegisterMethod(@TPARAMS.PARSESQL, 'PARSESQL');
+  RegisterMethod(@TPARAMS.PARAMBYNAME, 'PARAMBYNAME');
+  RegisterMethod(@TPARAMS.FINDPARAM, 'FINDPARAM');
+  RegisterPropertyHelper(@TPARAMSITEMS_R,@TPARAMSITEMS_W,'ITEMS');
+  RegisterPropertyHelper(@TPARAMSPARAMVALUES_R,@TPARAMSPARAMVALUES_W,'PARAMVALUES');
+  end;
+end;
+
+procedure RIRegisterTPARAM(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TPARAM) do
+  begin
+  RegisterMethod(@TPARAM.ASSIGNFIELD, 'ASSIGNFIELD');
+  RegisterMethod(@TPARAM.ASSIGNFIELDVALUE, 'ASSIGNFIELDVALUE');
+  RegisterMethod(@TPARAM.CLEAR, 'CLEAR');
+//  RegisterMethod(@TPARAM.GETDATA, 'GETDATA');
+  RegisterMethod(@TPARAM.GETDATASIZE, 'GETDATASIZE');
+  RegisterMethod(@TPARAM.LOADFROMFILE, 'LOADFROMFILE');
+  RegisterMethod(@TPARAM.LOADFROMSTREAM, 'LOADFROMSTREAM');
+//  RegisterMethod(@TPARAM.SETBLOBDATA, 'SETBLOBDATA');
+//  RegisterMethod(@TPARAM.SETDATA, 'SETDATA');
+  {$IFNDEF FPC}
+  RegisterPropertyHelper(@TPARAMASBCD_R,@TPARAMASBCD_W,'ASBCD');
+{$IFDEF DELPHI6UP}
+  RegisterPropertyHelper(@TPARAMASFMTBCD_R,@TPARAMASFMTBCD_W,'ASFMTBCD');
+{$ENDIF}
+  {$ENDIF}
+  RegisterPropertyHelper(@TPARAMASBLOB_R,@TPARAMASBLOB_W,'ASBLOB');
+  RegisterPropertyHelper(@TPARAMASBOOLEAN_R,@TPARAMASBOOLEAN_W,'ASBOOLEAN');
+  RegisterPropertyHelper(@TPARAMASCURRENCY_R,@TPARAMASCURRENCY_W,'ASCURRENCY');
+  RegisterPropertyHelper(@TPARAMASDATE_R,@TPARAMASDATE_W,'ASDATE');
+  RegisterPropertyHelper(@TPARAMASDATETIME_R,@TPARAMASDATETIME_W,'ASDATETIME');
+  RegisterPropertyHelper(@TPARAMASFLOAT_R,@TPARAMASFLOAT_W,'ASFLOAT');
+  RegisterPropertyHelper(@TPARAMASINTEGER_R,@TPARAMASINTEGER_W,'ASINTEGER');
+  RegisterPropertyHelper(@TPARAMASSMALLINT_R,@TPARAMASSMALLINT_W,'ASSMALLINT');
+  RegisterPropertyHelper(@TPARAMASMEMO_R,@TPARAMASMEMO_W,'ASMEMO');
+  RegisterPropertyHelper(@TPARAMASSTRING_R,@TPARAMASSTRING_W,'ASSTRING');
+  RegisterPropertyHelper(@TPARAMASTIME_R,@TPARAMASTIME_W,'ASTIME');
+  RegisterPropertyHelper(@TPARAMASWORD_R,@TPARAMASWORD_W,'ASWORD');
+  RegisterPropertyHelper(@TPARAMBOUND_R,@TPARAMBOUND_W,'BOUND');
+  RegisterPropertyHelper(@TPARAMISNULL_R,nil,'ISNULL');
+  RegisterPropertyHelper(@TPARAMNATIVESTR_R,@TPARAMNATIVESTR_W,'NATIVESTR');
+  RegisterPropertyHelper(@TPARAMTEXT_R,@TPARAMTEXT_W,'TEXT');
+  RegisterPropertyHelper(@TPARAMDATATYPE_R,@TPARAMDATATYPE_W,'DATATYPE');
+{$IFDEF DELPHI6UP}
+  RegisterPropertyHelper(@TPARAMPRECISION_R,@TPARAMPRECISION_W,'PRECISION');
+  RegisterPropertyHelper(@TPARAMNUMERICSCALE_R,@TPARAMNUMERICSCALE_W,'NUMERICSCALE');
+  RegisterPropertyHelper(@TPARAMSIZE_R,@TPARAMSIZE_W,'SIZE');
+{$ENDIF}
+  RegisterPropertyHelper(@TPARAMNAME_R,@TPARAMNAME_W,'NAME');
+  RegisterPropertyHelper(@TPARAMPARAMTYPE_R,@TPARAMPARAMTYPE_W,'PARAMTYPE');
+  RegisterPropertyHelper(@TPARAMVALUE_R,@TPARAMVALUE_W,'VALUE');
+  end;
+end;
+
+{$IFNDEF FPC}
+procedure RIRegisterTGUIDFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TGUIDFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTVARIANTFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TVARIANTFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTREFERENCEFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TREFERENCEFIELD) do
+  begin
+  RegisterPropertyHelper(@TREFERENCEFIELDREFERENCETABLENAME_R,@TREFERENCEFIELDREFERENCETABLENAME_W,'REFERENCETABLENAME');
+  end;
+end;
+
+
+procedure RIRegisterTDATASETFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TDATASETFIELD) do
+  begin
+  RegisterPropertyHelper(@TDATASETFIELDNESTEDDATASET_R,nil,'NESTEDDATASET');
+  RegisterPropertyHelper(@TDATASETFIELDINCLUDEOBJECTFIELD_R,@TDATASETFIELDINCLUDEOBJECTFIELD_W,'INCLUDEOBJECTFIELD');
+  end;
+end;
+
+
+procedure RIRegisterTARRAYFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TARRAYFIELD) do
+  begin
+  end;
+end;
+
+
+procedure RIRegisterTADTFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TADTFIELD) do
+  begin
+  end;
+end;
+
+
+procedure RIRegisterTOBJECTFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TOBJECTFIELD) do
+  begin
+  RegisterPropertyHelper(@TOBJECTFIELDFIELDCOUNT_R,nil,'FIELDCOUNT');
+  RegisterPropertyHelper(@TOBJECTFIELDFIELDS_R,nil,'FIELDS');
+  RegisterPropertyHelper(@TOBJECTFIELDFIELDVALUES_R,@TOBJECTFIELDFIELDVALUES_W,'FIELDVALUES');
+  RegisterPropertyHelper(@TOBJECTFIELDUNNAMED_R,nil,'UNNAMED');
+  RegisterPropertyHelper(@TOBJECTFIELDOBJECTTYPE_R,@TOBJECTFIELDOBJECTTYPE_W,'OBJECTTYPE');
+  end;
+end;
+{$ENDIF}
+
+
+procedure RIRegisterTGRAPHICFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TGRAPHICFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTMEMOFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TMEMOFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTBLOBFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TBLOBFIELD) do
+  begin
+  RegisterMethod(@TBLOBFIELD.LOADFROMFILE, 'LOADFROMFILE');
+  RegisterMethod(@TBLOBFIELD.LOADFROMSTREAM, 'LOADFROMSTREAM');
+  RegisterMethod(@TBLOBFIELD.SAVETOFILE, 'SAVETOFILE');
+  RegisterMethod(@TBLOBFIELD.SAVETOSTREAM, 'SAVETOSTREAM');
+  RegisterPropertyHelper(@TBLOBFIELDBLOBSIZE_R,nil,'BLOBSIZE');
+  RegisterPropertyHelper(@TBLOBFIELDMODIFIED_R,@TBLOBFIELDMODIFIED_W,'MODIFIED');
+  RegisterPropertyHelper(@TBLOBFIELDVALUE_R,@TBLOBFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TBLOBFIELDTRANSLITERATE_R,@TBLOBFIELDTRANSLITERATE_W,'TRANSLITERATE');
+  RegisterPropertyHelper(@TBLOBFIELDBLOBTYPE_R,@TBLOBFIELDBLOBTYPE_W,'BLOBTYPE');
+{$IFNDEF FPC}
+{$IFDEF DELPHI6UP}
+  RegisterPropertyHelper(@TBLOBFIELDGRAPHICHEADER_R,@TBLOBFIELDGRAPHICHEADER_W,'GRAPHICHEADER');
+{$ENDIF}
+{$ENDIF}
+  end;
+end;
+
+
+{$IFNDEF FPC}
+{$IFDEF DELPHI6UP}
+
+procedure RIRegisterTFMTBCDFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFMTBCDFIELD) do
+  begin
+  RegisterPropertyHelper(@TFMTBCDFIELDVALUE_R,@TFMTBCDFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TFMTBCDFIELDCURRENCY_R,@TFMTBCDFIELDCURRENCY_W,'CURRENCY');
+  RegisterPropertyHelper(@TFMTBCDFIELDMAXVALUE_R,@TFMTBCDFIELDMAXVALUE_W,'MAXVALUE');
+  RegisterPropertyHelper(@TFMTBCDFIELDMINVALUE_R,@TFMTBCDFIELDMINVALUE_W,'MINVALUE');
+  RegisterPropertyHelper(@TFMTBCDFIELDPRECISION_R,@TFMTBCDFIELDPRECISION_W,'PRECISION');
+  end;
+end;
+{$ENDIF}
+procedure RIRegisterTBCDFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TBCDFIELD) do
+  begin
+  RegisterPropertyHelper(@TBCDFIELDVALUE_R,@TBCDFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TBCDFIELDCURRENCY_R,@TBCDFIELDCURRENCY_W,'CURRENCY');
+  RegisterPropertyHelper(@TBCDFIELDMAXVALUE_R,@TBCDFIELDMAXVALUE_W,'MAXVALUE');
+  RegisterPropertyHelper(@TBCDFIELDMINVALUE_R,@TBCDFIELDMINVALUE_W,'MINVALUE');
+  RegisterPropertyHelper(@TBCDFIELDPRECISION_R,@TBCDFIELDPRECISION_W,'PRECISION');
+  end;
+end;
+{$ENDIF}
+
+procedure RIRegisterTVARBYTESFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TVARBYTESFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTBYTESFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TBYTESFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTBINARYFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TBINARYFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTTIMEFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TTIMEFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTDATEFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TDATEFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTDATETIMEFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TDATETIMEFIELD) do
+  begin
+  RegisterPropertyHelper(@TDATETIMEFIELDVALUE_R,@TDATETIMEFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TDATETIMEFIELDDISPLAYFORMAT_R,@TDATETIMEFIELDDISPLAYFORMAT_W,'DISPLAYFORMAT');
+  end;
+end;
+
+procedure RIRegisterTBOOLEANFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TBOOLEANFIELD) do
+  begin
+  RegisterPropertyHelper(@TBOOLEANFIELDVALUE_R,@TBOOLEANFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TBOOLEANFIELDDISPLAYVALUES_R,@TBOOLEANFIELDDISPLAYVALUES_W,'DISPLAYVALUES');
+  end;
+end;
+
+procedure RIRegisterTCURRENCYFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TCURRENCYFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTFLOATFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFLOATFIELD) do
+  begin
+  {$IFNDEF FPC}
+  RegisterPropertyHelper(@TFLOATFIELDCURRENCY_R,@TFLOATFIELDCURRENCY_W,'CURRENCY');
+  {$ENDIF}
+  RegisterPropertyHelper(@TFLOATFIELDVALUE_R,@TFLOATFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TFLOATFIELDMAXVALUE_R,@TFLOATFIELDMAXVALUE_W,'MAXVALUE');
+  RegisterPropertyHelper(@TFLOATFIELDMINVALUE_R,@TFLOATFIELDMINVALUE_W,'MINVALUE');
+  RegisterPropertyHelper(@TFLOATFIELDPRECISION_R,@TFLOATFIELDPRECISION_W,'PRECISION');
+  end;
+end;
+
+procedure RIRegisterTAUTOINCFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TAUTOINCFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTWORDFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TWORDFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTLARGEINTFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TLARGEINTFIELD) do
+  begin
+  RegisterPropertyHelper(@TLARGEINTFIELDASLARGEINT_R,@TLARGEINTFIELDASLARGEINT_W,'ASLARGEINT');
+  RegisterPropertyHelper(@TLARGEINTFIELDVALUE_R,@TLARGEINTFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TLARGEINTFIELDMAXVALUE_R,@TLARGEINTFIELDMAXVALUE_W,'MAXVALUE');
+  RegisterPropertyHelper(@TLARGEINTFIELDMINVALUE_R,@TLARGEINTFIELDMINVALUE_W,'MINVALUE');
+  end;
+end;
+
+procedure RIRegisterTSMALLINTFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TSMALLINTFIELD) do
+  begin
+  end;
+end;
+
+procedure RIRegisterTINTEGERFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TINTEGERFIELD) do
+  begin
+  RegisterPropertyHelper(@TINTEGERFIELDVALUE_R,@TINTEGERFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TINTEGERFIELDMAXVALUE_R,@TINTEGERFIELDMAXVALUE_W,'MAXVALUE');
+  RegisterPropertyHelper(@TINTEGERFIELDMINVALUE_R,@TINTEGERFIELDMINVALUE_W,'MINVALUE');
+  end;
+end;
+
+procedure RIRegisterTNUMERICFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TNUMERICFIELD) do
+  begin
+  RegisterPropertyHelper(@TNUMERICFIELDDISPLAYFORMAT_R,@TNUMERICFIELDDISPLAYFORMAT_W,'DISPLAYFORMAT');
+  RegisterPropertyHelper(@TNUMERICFIELDEDITFORMAT_R,@TNUMERICFIELDEDITFORMAT_W,'EDITFORMAT');
+  end;
+end;
+
+{$IFNDEF FPC}
+procedure RIRegisterTWIDESTRINGFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TWIDESTRINGFIELD) do
+  begin
+  RegisterPropertyHelper(@TWIDESTRINGFIELDVALUE_R,@TWIDESTRINGFIELDVALUE_W,'VALUE');
+  end;
+end;
+{$ENDIF}
+
+procedure RIRegisterTSTRINGFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TSTRINGFIELD) do
+  begin
+  RegisterPropertyHelper(@TSTRINGFIELDVALUE_R,@TSTRINGFIELDVALUE_W,'VALUE');
+  {$IFNDEF FPC}
+  RegisterPropertyHelper(@TSTRINGFIELDFIXEDCHAR_R,@TSTRINGFIELDFIXEDCHAR_W,'FIXEDCHAR');
+  RegisterPropertyHelper(@TSTRINGFIELDTRANSLITERATE_R,@TSTRINGFIELDTRANSLITERATE_W,'TRANSLITERATE');
+  {$ENDIF}
+  end;
+end;
+
+procedure RIRegisterTFIELD(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFIELD) do
+  begin
+  RegisterMethod(@TFIELD.ASSIGNVALUE, 'ASSIGNVALUE');
+  RegisterVirtualMethod(@TFIELD.CLEAR, 'CLEAR');
+  RegisterMethod(@TFIELD.FOCUSCONTROL, 'FOCUSCONTROL');
+//  RegisterMethod(@TFIELD.GETDATA, 'GETDATA');
+  RegisterVirtualMethod(@TFIELD.ISVALIDCHAR, 'ISVALIDCHAR');
+  RegisterMethod(@TFIELD.REFRESHLOOKUPLIST, 'REFRESHLOOKUPLIST');
+//  RegisterMethod(@TFIELD.SETDATA, 'SETDATA');
+  RegisterVirtualMethod(@TFIELD.SETFIELDTYPE, 'SETFIELDTYPE');
+//  RegisterMethod(@TFIELD.VALIDATE, 'VALIDATE');
+{$IFNDEF FPC}
+
+  RegisterPropertyHelper(@TFIELDEDITMASK_R,@TFIELDEDITMASK_W,'EDITMASK');
+  RegisterPropertyHelper(@TFIELDEDITMASKPTR_R,nil,'EDITMASKPTR');
+  RegisterPropertyHelper(@TFIELDEDITMASK_R,@TFIELDEDITMASK_W,'EDITMASK');
+  RegisterPropertyHelper(@TFIELDEDITMASKPTR_R,nil,'EDITMASKPTR');
+  RegisterPropertyHelper(@TFIELDFULLNAME_R,nil,'FULLNAME');
+  RegisterPropertyHelper(@TFIELDLOOKUP_R,@TFIELDLOOKUP_W,'LOOKUP');
+  RegisterPropertyHelper(@TFIELDPARENTFIELD_R,@TFIELDPARENTFIELD_W,'PARENTFIELD');
+  RegisterPropertyHelper(@TFIELDVALIDCHARS_R,@TFIELDVALIDCHARS_W,'VALIDCHARS');
+  RegisterPropertyHelper(@TFIELDAUTOGENERATEVALUE_R,@TFIELDAUTOGENERATEVALUE_W,'AUTOGENERATEVALUE');
+
+{$IFDEF DELPHI6UP}
+  RegisterPropertyHelper(@TFIELDASBCD_R,@TFIELDASBCD_W,'ASBCD');
+{$ENDIF}
+{$ENDIF}
+  RegisterPropertyHelper(@TFIELDASBOOLEAN_R,@TFIELDASBOOLEAN_W,'ASBOOLEAN');
+  RegisterPropertyHelper(@TFIELDASCURRENCY_R,@TFIELDASCURRENCY_W,'ASCURRENCY');
+  RegisterPropertyHelper(@TFIELDASDATETIME_R,@TFIELDASDATETIME_W,'ASDATETIME');
+  RegisterPropertyHelper(@TFIELDASFLOAT_R,@TFIELDASFLOAT_W,'ASFLOAT');
+  RegisterPropertyHelper(@TFIELDASINTEGER_R,@TFIELDASINTEGER_W,'ASINTEGER');
+  RegisterPropertyHelper(@TFIELDASSTRING_R,@TFIELDASSTRING_W,'ASSTRING');
+  RegisterPropertyHelper(@TFIELDASVARIANT_R,@TFIELDASVARIANT_W,'ASVARIANT');
+  RegisterPropertyHelper(@TFIELDATTRIBUTESET_R,@TFIELDATTRIBUTESET_W,'ATTRIBUTESET');
+  RegisterPropertyHelper(@TFIELDCALCULATED_R,@TFIELDCALCULATED_W,'CALCULATED');
+  RegisterPropertyHelper(@TFIELDCANMODIFY_R,nil,'CANMODIFY');
+  RegisterPropertyHelper(@TFIELDCURVALUE_R,nil,'CURVALUE');
+  RegisterPropertyHelper(@TFIELDDATASET_R,@TFIELDDATASET_W,'DATASET');
+  RegisterPropertyHelper(@TFIELDDATASIZE_R,nil,'DATASIZE');
+  RegisterPropertyHelper(@TFIELDDATATYPE_R,nil,'DATATYPE');
+  RegisterPropertyHelper(@TFIELDDISPLAYNAME_R,nil,'DISPLAYNAME');
+  RegisterPropertyHelper(@TFIELDDISPLAYTEXT_R,nil,'DISPLAYTEXT');
+  RegisterPropertyHelper(@TFIELDFIELDNO_R,nil,'FIELDNO');
+  RegisterPropertyHelper(@TFIELDISINDEXFIELD_R,nil,'ISINDEXFIELD');
+  RegisterPropertyHelper(@TFIELDISNULL_R,nil,'ISNULL');
+  RegisterPropertyHelper(@TFIELDLOOKUPLIST_R,nil,'LOOKUPLIST');
+  RegisterPropertyHelper(@TFIELDNEWVALUE_R,@TFIELDNEWVALUE_W,'NEWVALUE');
+  RegisterPropertyHelper(@TFIELDOFFSET_R,nil,'OFFSET');
+  RegisterPropertyHelper(@TFIELDOLDVALUE_R,nil,'OLDVALUE');
+  RegisterPropertyHelper(@TFIELDSIZE_R,@TFIELDSIZE_W,'SIZE');
+  RegisterPropertyHelper(@TFIELDTEXT_R,@TFIELDTEXT_W,'TEXT');
+  RegisterPropertyHelper(@TFIELDVALUE_R,@TFIELDVALUE_W,'VALUE');
+  RegisterPropertyHelper(@TFIELDALIGNMENT_R,@TFIELDALIGNMENT_W,'ALIGNMENT');
+  RegisterPropertyHelper(@TFIELDCUSTOMCONSTRAINT_R,@TFIELDCUSTOMCONSTRAINT_W,'CUSTOMCONSTRAINT');
+  RegisterPropertyHelper(@TFIELDCONSTRAINTERRORMESSAGE_R,@TFIELDCONSTRAINTERRORMESSAGE_W,'CONSTRAINTERRORMESSAGE');
+  RegisterPropertyHelper(@TFIELDDEFAULTEXPRESSION_R,@TFIELDDEFAULTEXPRESSION_W,'DEFAULTEXPRESSION');
+  RegisterPropertyHelper(@TFIELDDISPLAYLABEL_R,@TFIELDDISPLAYLABEL_W,'DISPLAYLABEL');
+  RegisterPropertyHelper(@TFIELDDISPLAYWIDTH_R,@TFIELDDISPLAYWIDTH_W,'DISPLAYWIDTH');
+  RegisterPropertyHelper(@TFIELDFIELDKIND_R,@TFIELDFIELDKIND_W,'FIELDKIND');
+  RegisterPropertyHelper(@TFIELDFIELDNAME_R,@TFIELDFIELDNAME_W,'FIELDNAME');
+  RegisterPropertyHelper(@TFIELDHASCONSTRAINTS_R,nil,'HASCONSTRAINTS');
+  RegisterPropertyHelper(@TFIELDINDEX_R,@TFIELDINDEX_W,'INDEX');
+  RegisterPropertyHelper(@TFIELDIMPORTEDCONSTRAINT_R,@TFIELDIMPORTEDCONSTRAINT_W,'IMPORTEDCONSTRAINT');
+  RegisterPropertyHelper(@TFIELDLOOKUPDATASET_R,@TFIELDLOOKUPDATASET_W,'LOOKUPDATASET');
+  RegisterPropertyHelper(@TFIELDLOOKUPKEYFIELDS_R,@TFIELDLOOKUPKEYFIELDS_W,'LOOKUPKEYFIELDS');
+  RegisterPropertyHelper(@TFIELDLOOKUPRESULTFIELD_R,@TFIELDLOOKUPRESULTFIELD_W,'LOOKUPRESULTFIELD');
+  RegisterPropertyHelper(@TFIELDKEYFIELDS_R,@TFIELDKEYFIELDS_W,'KEYFIELDS');
+  RegisterPropertyHelper(@TFIELDLOOKUPCACHE_R,@TFIELDLOOKUPCACHE_W,'LOOKUPCACHE');
+  RegisterPropertyHelper(@TFIELDORIGIN_R,@TFIELDORIGIN_W,'ORIGIN');
+  RegisterPropertyHelper(@TFIELDPROVIDERFLAGS_R,@TFIELDPROVIDERFLAGS_W,'PROVIDERFLAGS');
+  RegisterPropertyHelper(@TFIELDREADONLY_R,@TFIELDREADONLY_W,'READONLY');
+  RegisterPropertyHelper(@TFIELDREQUIRED_R,@TFIELDREQUIRED_W,'REQUIRED');
+  RegisterPropertyHelper(@TFIELDVISIBLE_R,@TFIELDVISIBLE_W,'VISIBLE');
+  RegisterEventPropertyHelper(@TFIELDONCHANGE_R,@TFIELDONCHANGE_W,'ONCHANGE');
+  RegisterEventPropertyHelper(@TFIELDONGETTEXT_R,@TFIELDONGETTEXT_W,'ONGETTEXT');
+  RegisterEventPropertyHelper(@TFIELDONSETTEXT_R,@TFIELDONSETTEXT_W,'ONSETTEXT');
+  RegisterEventPropertyHelper(@TFIELDONVALIDATE_R,@TFIELDONVALIDATE_W,'ONVALIDATE');
+  end;
+end;
+
+procedure RIRegisterTLOOKUPLIST(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TLOOKUPLIST) do
+  begin
+  RegisterConstructor(@TLOOKUPLIST.CREATE, 'CREATE');
+  {$IFDEF DELPHI2009UP}
+  RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.ADD, 'ADD');  
+  RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.CLEAR, 'CLEAR');  
+  RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.VALUEOFKEY, 'VALUEOFKEY');  
+  {$ELSE}
+  RegisterMethod(@TLOOKUPLIST.ADD, 'ADD');
+  RegisterMethod(@TLOOKUPLIST.CLEAR, 'CLEAR');
+  RegisterMethod(@TLOOKUPLIST.VALUEOFKEY, 'VALUEOFKEY');
+  {$ENDIF}
+  end;
+end;
+
+procedure RIRegisterTFIELDS(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFIELDS) do
+  begin
+  RegisterConstructor(@TFIELDS.CREATE, 'CREATE');
+  RegisterMethod(@TFIELDS.ADD, 'ADD');
+  RegisterMethod(@TFIELDS.CHECKFIELDNAME, 'CHECKFIELDNAME');
+  RegisterMethod(@TFIELDS.CHECKFIELDNAMES, 'CHECKFIELDNAMES');
+  RegisterMethod(@TFIELDS.CLEAR, 'CLEAR');
+  RegisterMethod(@TFIELDS.FINDFIELD, 'FINDFIELD');
+  RegisterMethod(@TFIELDS.FIELDBYNAME, 'FIELDBYNAME');
+  RegisterMethod(@TFIELDS.FIELDBYNUMBER, 'FIELDBYNUMBER');
+  RegisterMethod(@TFIELDS.GETFIELDNAMES, 'GETFIELDNAMES');
+  RegisterMethod(@TFIELDS.INDEXOF, 'INDEXOF');
+  RegisterMethod(@TFIELDS.REMOVE, 'REMOVE');
+  RegisterPropertyHelper(@TFIELDSCOUNT_R,nil,'COUNT');
+  RegisterPropertyHelper(@TFIELDSDATASET_R,nil,'DATASET');
+  RegisterPropertyHelper(@TFIELDSFIELDS_R,@TFIELDSFIELDS_W,'FIELDS');
+  end;
+end;
+
+{$IFNDEF FPC}
+procedure RIRegisterTFIELDLIST(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFIELDLIST) do
+  begin
+  RegisterMethod(@TFIELDLIST.FIELDBYNAME, 'FIELDBYNAME');
+  RegisterMethod(@TFIELDLIST.FIND, 'FIND');
+  RegisterPropertyHelper(@TFIELDLISTFIELDS_R,nil,'FIELDS');
+  end;
+end;
+
+procedure RIRegisterTFIELDDEFLIST(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFIELDDEFLIST) do
+  begin
+  RegisterMethod(@TFIELDDEFLIST.FIELDBYNAME, 'FIELDBYNAME');
+  RegisterMethod(@TFIELDDEFLIST.FIND, 'FIND');
+  RegisterPropertyHelper(@TFIELDDEFLISTFIELDDEFS_R,nil,'FIELDDEFS');
+  end;
+end;
+
+
+procedure RIRegisterTFLATLIST(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFLATLIST) do
+  begin
+  RegisterConstructor(@TFLATLIST.CREATE, 'CREATE');
+  RegisterMethod(@TFLATLIST.UPDATE, 'UPDATE');
+  RegisterPropertyHelper(@TFLATLISTDATASET_R,nil,'DATASET');
+  end;
+end;
+{$ENDIF}
+
+
+procedure RIRegisterTINDEXDEFS(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TINDEXDEFS) do
+  begin
+  RegisterConstructor(@TINDEXDEFS.CREATE, 'CREATE');
+  RegisterMethod(@TINDEXDEFS.ADDINDEXDEF, 'ADDINDEXDEF');
+  RegisterMethod(@TINDEXDEFS.FIND, 'FIND');
+  RegisterMethod(@TINDEXDEFS.UPDATE, 'UPDATE');
+  RegisterMethod(@TINDEXDEFS.FINDINDEXFORFIELDS, 'FINDINDEXFORFIELDS');
+  RegisterMethod(@TINDEXDEFS.GETINDEXFORFIELDS, 'GETINDEXFORFIELDS');
+  RegisterMethod(@TINDEXDEFS.ADD, 'ADD');
+  RegisterPropertyHelper(@TINDEXDEFSITEMS_R,@TINDEXDEFSITEMS_W,'ITEMS');
+  end;
+end;
+
+procedure RIRegisterTINDEXDEF(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TINDEXDEF) do
+  begin
+  RegisterConstructor(@TINDEXDEF.CREATE, 'CREATE');
+{$IFNDEF FPC}
+  RegisterPropertyHelper(@TINDEXDEFFIELDEXPRESSION_R,nil,'FIELDEXPRESSION');
+  RegisterPropertyHelper(@TINDEXDEFCASEINSFIELDS_R,@TINDEXDEFCASEINSFIELDS_W,'CASEINSFIELDS');
+  RegisterPropertyHelper(@TINDEXDEFGROUPINGLEVEL_R,@TINDEXDEFGROUPINGLEVEL_W,'GROUPINGLEVEL');
+  RegisterPropertyHelper(@TINDEXDEFDESCFIELDS_R,@TINDEXDEFDESCFIELDS_W,'DESCFIELDS');
+
+{$ENDIF}
+  RegisterPropertyHelper(@TINDEXDEFEXPRESSION_R,@TINDEXDEFEXPRESSION_W,'EXPRESSION');
+  RegisterPropertyHelper(@TINDEXDEFFIELDS_R,@TINDEXDEFFIELDS_W,'FIELDS');
+  RegisterPropertyHelper(@TINDEXDEFOPTIONS_R,@TINDEXDEFOPTIONS_W,'OPTIONS');
+  RegisterPropertyHelper(@TINDEXDEFSOURCE_R,@TINDEXDEFSOURCE_W,'SOURCE');
+  end;
+end;
+
+procedure RIRegisterTFIELDDEFS(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFIELDDEFS) do
+  begin
+  RegisterConstructor(@TFIELDDEFS.CREATE, 'CREATE');
+  RegisterMethod(@TFIELDDEFS.ADDFIELDDEF, 'ADDFIELDDEF');
+  RegisterMethod(@TFIELDDEFS.FIND, 'FIND');
+  RegisterMethod(@TFIELDDEFS.UPDATE, 'UPDATE');
+{$IFNDEF FPC}
+  RegisterMethod(@TFIELDDEFS.ADD, 'ADD');
+  RegisterPropertyHelper(@TFIELDDEFSPARENTDEF_R,nil,'PARENTDEF');
+
+{$ENDIF}
+  RegisterPropertyHelper(@TFIELDDEFSHIDDENFIELDS_R,@TFIELDDEFSHIDDENFIELDS_W,'HIDDENFIELDS');
+  RegisterPropertyHelper(@TFIELDDEFSITEMS_R,@TFIELDDEFSITEMS_W,'ITEMS');
+  end;
+end;
+
+procedure RIRegisterTFIELDDEF(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TFIELDDEF) do
+  begin
+//  RegisterConstructor(@TFIELDDEF.CREATE, 'CREATE');
+{$IFNDEF FPC}
+  RegisterMethod(@TFIELDDEF.ADDCHILD, 'ADDCHILD');
+  RegisterMethod(@TFIELDDEF.HASCHILDDEFS, 'HASCHILDDEFS');
+
+{$ENDIF}
+  RegisterMethod(@TFIELDDEF.CREATEFIELD, 'CREATEFIELD');
+{$IFNDEF FPC}
+  RegisterPropertyHelper(@TFIELDDEFFIELDNO_R,@TFIELDDEFFIELDNO_W,'FIELDNO');
+  RegisterPropertyHelper(@TFIELDDEFPARENTDEF_R,nil,'PARENTDEF');
+  RegisterPropertyHelper(@TFIELDDEFCHILDDEFS_R,@TFIELDDEFCHILDDEFS_W,'CHILDDEFS');
+  RegisterPropertyHelper(@TFIELDDEFREQUIRED_R,@TFIELDDEFREQUIRED_W,'REQUIRED');
+
+{$ENDIF}
+  RegisterPropertyHelper(@TFIELDDEFFIELDCLASS_R,nil,'FIELDCLASS');
+  RegisterPropertyHelper(@TFIELDDEFINTERNALCALCFIELD_R,@TFIELDDEFINTERNALCALCFIELD_W,'INTERNALCALCFIELD');
+  RegisterPropertyHelper(@TFIELDDEFATTRIBUTES_R,@TFIELDDEFATTRIBUTES_W,'ATTRIBUTES');
+  RegisterPropertyHelper(@TFIELDDEFDATATYPE_R,@TFIELDDEFDATATYPE_W,'DATATYPE');
+  RegisterPropertyHelper(@TFIELDDEFPRECISION_R,@TFIELDDEFPRECISION_W,'PRECISION');
+  RegisterPropertyHelper(@TFIELDDEFSIZE_R,@TFIELDDEFSIZE_W,'SIZE');
+  end;
+end;
+
+{$IFNDEF FPC}
+procedure RIRegisterTDEFCOLLECTION(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TDEFCOLLECTION) do
+  begin
+  RegisterConstructor(@TDEFCOLLECTION.CREATE, 'CREATE');
+  RegisterMethod(@TDEFCOLLECTION.FIND, 'FIND');
+  RegisterMethod(@TDEFCOLLECTION.GETITEMNAMES, 'GETITEMNAMES');
+  RegisterMethod(@TDEFCOLLECTION.INDEXOF, 'INDEXOF');
+  RegisterPropertyHelper(@TDEFCOLLECTIONDATASET_R,nil,'DATASET');
+  RegisterPropertyHelper(@TDEFCOLLECTIONUPDATED_R,@TDEFCOLLECTIONUPDATED_W,'UPDATED');
+  end;
+end;
+
+procedure RIRegisterTNAMEDITEM(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TNAMEDITEM) do
+  begin
+  RegisterPropertyHelper(@TNAMEDITEMNAME_R,@TNAMEDITEMNAME_W,'NAME');
+  end;
+end;
+{$ENDIF}
+
+
+procedure RIRegister_DB(CL: TPSRuntimeClassImporter);
+Begin
+RIRegisterTFIELDDEF(Cl);
+RIRegisterTFIELDDEFS(Cl);
+RIRegisterTINDEXDEF(Cl);
+RIRegisterTINDEXDEFS(Cl);
+RIRegisterTFIELDS(Cl);
+RIRegisterTLOOKUPLIST(Cl);
+RIRegisterTFIELD(Cl);
+RIRegisterTSTRINGFIELD(Cl);
+RIRegisterTNUMERICFIELD(Cl);
+RIRegisterTINTEGERFIELD(Cl);
+RIRegisterTSMALLINTFIELD(Cl);
+RIRegisterTLARGEINTFIELD(Cl);
+RIRegisterTWORDFIELD(Cl);
+RIRegisterTAUTOINCFIELD(Cl);
+RIRegisterTFLOATFIELD(Cl);
+RIRegisterTCURRENCYFIELD(Cl);
+RIRegisterTBOOLEANFIELD(Cl);
+RIRegisterTDATETIMEFIELD(Cl);
+RIRegisterTDATEFIELD(Cl);
+RIRegisterTTIMEFIELD(Cl);
+RIRegisterTBINARYFIELD(Cl);
+RIRegisterTBYTESFIELD(Cl);
+RIRegisterTVARBYTESFIELD(Cl);
+{$IFNDEF FPC}
+RIRegisterTNAMEDITEM(Cl);
+RIRegisterTDEFCOLLECTION(Cl);
+RIRegisterTWIDESTRINGFIELD(Cl);
+RIRegisterTFLATLIST(Cl);
+RIRegisterTFIELDDEFLIST(Cl);
+RIRegisterTFIELDLIST(Cl);
+RIRegisterTBCDFIELD(Cl);
+{$IFDEF DELPHI6UP}
+RIRegisterTFMTBCDFIELD(Cl);
+{$ENDIF}
+{$ENDIF}
+
+RIRegisterTBLOBFIELD(Cl);
+RIRegisterTMEMOFIELD(Cl);
+RIRegisterTGRAPHICFIELD(Cl);
+{$IFNDEF FPC}
+RIRegisterTOBJECTFIELD(Cl);
+RIRegisterTADTFIELD(Cl);
+RIRegisterTARRAYFIELD(Cl);
+RIRegisterTDATASETFIELD(Cl);
+RIRegisterTREFERENCEFIELD(Cl);
+RIRegisterTVARIANTFIELD(Cl);
+RIRegisterTGUIDFIELD(Cl);
+{$ENDIF}
+RIRegisterTPARAM(Cl);
+RIRegisterTPARAMS(Cl);
+RIRegisterTDATASET(Cl);
+end;
+
+{$IFDEF USEIMPORTER}
+initialization
+RIImporter.Invoke(RIRegister_DB);
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_buttons.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_buttons.pas
new file mode 100644
index 0000000..8117e4e
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_buttons.pas	
@@ -0,0 +1,38 @@
+
+unit uPSR_buttons;
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+
+procedure RIRegisterTSPEEDBUTTON(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBITBTN(Cl: TPSRuntimeClassImporter);
+
+procedure RIRegister_Buttons(Cl: TPSRuntimeClassImporter);
+
+implementation
+uses
+  Classes{$IFDEF CLX}, QControls, QButtons{$ELSE}, Controls, Buttons{$ENDIF};
+
+procedure RIRegisterTSPEEDBUTTON(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TSPEEDBUTTON);
+end;
+
+
+procedure RIRegisterTBITBTN(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TBITBTN);
+end;
+
+procedure RIRegister_Buttons(Cl: TPSRuntimeClassImporter);
+begin
+  RIRegisterTSPEEDBUTTON(cl);
+  RIRegisterTBITBTN(cl);
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_classes.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_classes.pas
new file mode 100644
index 0000000..b29abc8
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_classes.pas	
@@ -0,0 +1,383 @@
+
+unit uPSR_classes;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+
+procedure RIRegisterTStrings(cl: TPSRuntimeClassImporter; Streams: Boolean);
+procedure RIRegisterTStringList(cl: TPSRuntimeClassImporter);
+{$IFNDEF PS_MINIVCL}
+procedure RIRegisterTBITS(Cl: TPSRuntimeClassImporter);
+{$ENDIF}
+procedure RIRegisterTSTREAM(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTHANDLESTREAM(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFILESTREAM(Cl: TPSRuntimeClassImporter);
+{$IFNDEF PS_MINIVCL}
+procedure RIRegisterTCUSTOMMEMORYSTREAM(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTMEMORYSTREAM(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTRESOURCESTREAM(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTPARSER(Cl: TPSRuntimeClassImporter);
+{$IFDEF DELPHI3UP}
+procedure RIRegisterTOWNEDCOLLECTION(Cl: TPSRuntimeClassImporter);
+{$ENDIF}
+procedure RIRegisterTCOLLECTION(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCOLLECTIONITEM(Cl: TPSRuntimeClassImporter);
+{$ENDIF}
+
+procedure RIRegister_Classes(Cl: TPSRuntimeClassImporter; Streams: Boolean{$IFDEF D4PLUS}=True{$ENDIF});
+
+implementation
+uses
+  Classes;
+
+procedure TStringsCountR(Self: TStrings; var T: Longint); begin T := Self.Count; end;
+
+procedure TStringsTextR(Self: TStrings; var T: string); begin T := Self.Text; end;
+procedure TStringsTextW(Self: TStrings; T: string); begin Self.Text:= T; end;
+
+procedure TStringsCommaTextR(Self: TStrings; var T: string); begin T := Self.CommaText; end;
+procedure TStringsCommaTextW(Self: TStrings; T: string); begin Self.CommaText:= T; end;
+
+procedure TStringsObjectsR(Self: TStrings; var T: TObject; I: Longint);
+begin
+T := Self.Objects[I];
+end;
+procedure TStringsObjectsW(Self: TStrings; const T: TObject; I: Longint);
+begin
+  Self.Objects[I]:= T;
+end;
+
+procedure TStringsStringsR(Self: TStrings; var T: string; I: Longint);
+begin
+T := Self.Strings[I];
+end;
+procedure TStringsStringsW(Self: TStrings; const T: string; I: Longint);
+begin
+  Self.Strings[I]:= T;
+end;
+
+procedure TStringsNamesR(Self: TStrings; var T: string; I: Longint);
+begin
+T := Self.Names[I];
+end;
+procedure TStringsValuesR(Self: TStrings; var T: string; const I: string);
+begin
+T := Self.Values[I];
+end;
+procedure TStringsValuesW(Self: TStrings; Const T, I: String);
+begin
+  Self.Values[I]:= T;
+end;
+
+procedure RIRegisterTStrings(cl: TPSRuntimeClassImporter; Streams: Boolean); // requires TPersistent
+begin
+  with Cl.Add(TStrings) do
+  begin
+    RegisterVirtualMethod(@TStrings.Add, 'ADD');
+    RegisterMethod(@TStrings.Append, 'APPEND');
+    RegisterVirtualMethod(@TStrings.AddStrings, 'ADDSTRINGS');
+    RegisterVirtualAbstractMethod(TStringList, @TStringList.Clear, 'CLEAR');
+    RegisterVirtualAbstractMethod(TStringList, @TStringList.Delete, 'DELETE');
+    RegisterVirtualMethod(@TStrings.IndexOf, 'INDEXOF');
+    RegisterVirtualAbstractMethod(TStringList, @TStringList.Insert, 'INSERT');
+    RegisterPropertyHelper(@TStringsCountR, nil, 'COUNT');
+    RegisterPropertyHelper(@TStringsTextR, @TStringsTextW, 'TEXT');
+    RegisterPropertyHelper(@TStringsCommaTextR, @TStringsCommatextW, 'COMMATEXT');
+    if Streams then
+    begin
+      RegisterVirtualMethod(@TStrings.LoadFromFile, 'LOADFROMFILE');
+      RegisterVirtualMethod(@TStrings.SaveToFile, 'SAVETOFILE');
+    end;
+    RegisterPropertyHelper(@TStringsStringsR, @TStringsStringsW, 'STRINGS');
+    RegisterPropertyHelper(@TStringsObjectsR, @TStringsObjectsW, 'OBJECTS');
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod(@TStrings.BeginUpdate, 'BEGINUPDATE');
+    RegisterMethod(@TStrings.EndUpdate, 'ENDUPDATE');
+    RegisterMethod(@TStrings.Equals,  'EQUALS');
+    RegisterVirtualMethod(@TStrings.Exchange, 'EXCHANGE');
+    RegisterMethod(@TStrings.IndexOfName, 'INDEXOFNAME');
+    if Streams then
+      RegisterVirtualMethod(@TStrings.LoadFromStream, 'LOADFROMSTREAM');
+    RegisterVirtualMethod(@TStrings.Move, 'MOVE');
+    if Streams then
+      RegisterVirtualMethod(@TStrings.SaveToStream, 'SAVETOSTREAM');
+    RegisterVirtualMethod(@TStrings.SetText, 'SETTEXT');
+    RegisterPropertyHelper(@TStringsNamesR, nil, 'NAMES');
+    RegisterPropertyHelper(@TStringsValuesR, @TStringsValuesW, 'VALUES');
+    RegisterVirtualMethod(@TSTRINGS.ADDOBJECT, 'ADDOBJECT');
+    RegisterVirtualMethod(@TSTRINGS.GETTEXT, 'GETTEXT');
+    RegisterMethod(@TSTRINGS.INDEXOFOBJECT, 'INDEXOFOBJECT');
+    RegisterMethod(@TSTRINGS.INSERTOBJECT, 'INSERTOBJECT');
+    {$ENDIF}
+  end;
+end;
+
+procedure TSTRINGLISTDUPLICATES_R(Self: TSTRINGLIST; var T: TDUPLICATES); begin T := Self.DUPLICATES; end;
+procedure TSTRINGLISTDUPLICATES_W(Self: TSTRINGLIST; const T: TDUPLICATES); begin Self.DUPLICATES := T; end;
+procedure TSTRINGLISTSORTED_R(Self: TSTRINGLIST; var T: BOOLEAN); begin T := Self.SORTED; end;
+procedure TSTRINGLISTSORTED_W(Self: TSTRINGLIST; const T: BOOLEAN); begin Self.SORTED := T; end;
+procedure TSTRINGLISTONCHANGE_R(Self: TSTRINGLIST; var T: TNOTIFYEVENT);
+begin
+T := Self.ONCHANGE; end;
+procedure TSTRINGLISTONCHANGE_W(Self: TSTRINGLIST; const T: TNOTIFYEVENT);
+begin
+Self.ONCHANGE := T; end;
+procedure TSTRINGLISTONCHANGING_R(Self: TSTRINGLIST; var T: TNOTIFYEVENT); begin T := Self.ONCHANGING; end;
+procedure TSTRINGLISTONCHANGING_W(Self: TSTRINGLIST; const T: TNOTIFYEVENT); begin Self.ONCHANGING := T; end;
+procedure RIRegisterTSTRINGLIST(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TSTRINGLIST) do
+  begin
+    RegisterVirtualMethod(@TSTRINGLIST.FIND, 'FIND');
+    RegisterVirtualMethod(@TSTRINGLIST.SORT, 'SORT');
+    RegisterPropertyHelper(@TSTRINGLISTDUPLICATES_R, @TSTRINGLISTDUPLICATES_W, 'DUPLICATES');
+    RegisterPropertyHelper(@TSTRINGLISTSORTED_R, @TSTRINGLISTSORTED_W, 'SORTED');
+    RegisterEventPropertyHelper(@TSTRINGLISTONCHANGE_R, @TSTRINGLISTONCHANGE_W, 'ONCHANGE');
+    RegisterEventPropertyHelper(@TSTRINGLISTONCHANGING_R, @TSTRINGLISTONCHANGING_W, 'ONCHANGING');
+  end;
+end;
+
+{$IFNDEF PS_MINIVCL}
+procedure TBITSBITS_W(Self: TBITS; T: BOOLEAN; t1: INTEGER); begin Self.BITS[t1] := T; end;
+procedure TBITSBITS_R(Self: TBITS; var T: BOOLEAN; t1: INTEGER); begin T := Self.Bits[t1]; end;
+procedure TBITSSIZE_R(Self: TBITS; T: INTEGER); begin Self.SIZE := T; end;
+procedure TBITSSIZE_W(Self: TBITS; var T: INTEGER); begin T := Self.SIZE; end;
+
+procedure RIRegisterTBITS(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TBITS) do
+  begin
+    RegisterMethod(@TBITS.OPENBIT, 'OPENBIT');
+    RegisterPropertyHelper(@TBITSBITS_R, @TBITSBITS_W, 'BITS');
+    RegisterPropertyHelper(@TBITSSIZE_R, @TBITSSIZE_W, 'SIZE');
+  end;
+end;
+{$ENDIF}
+
+procedure TSTREAMPOSITION_R(Self: TSTREAM; var T: LONGINT); begin t := Self.POSITION; end;
+procedure TSTREAMPOSITION_W(Self: TSTREAM; T: LONGINT); begin Self.POSITION := t; end;
+procedure TSTREAMSIZE_R(Self: TSTREAM; var T: LONGINT); begin t := Self.SIZE; end;
+{$IFDEF DELPHI3UP}
+procedure TSTREAMSIZE_W(Self: TSTREAM; T: LONGINT); begin Self.SIZE := t; end;
+{$ENDIF}
+
+procedure RIRegisterTSTREAM(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TSTREAM) do
+  begin
+    RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.READ, 'READ');
+    RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.WRITE, 'WRITE');
+    RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.SEEK, 'SEEK');
+    RegisterMethod(@TSTREAM.READBUFFER, 'READBUFFER');
+    RegisterMethod(@TSTREAM.WRITEBUFFER, 'WRITEBUFFER');
+    RegisterMethod(@TSTREAM.COPYFROM, 'COPYFROM');
+    RegisterPropertyHelper(@TSTREAMPOSITION_R, @TSTREAMPOSITION_W, 'POSITION');
+    RegisterPropertyHelper(@TSTREAMSIZE_R, {$IFDEF DELPHI3UP}@TSTREAMSIZE_W, {$ELSE}nil, {$ENDIF}'SIZE');
+  end;
+end;
+
+procedure THANDLESTREAMHANDLE_R(Self: THANDLESTREAM; var T: INTEGER); begin T := Self.HANDLE; end;
+
+procedure RIRegisterTHANDLESTREAM(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(THANDLESTREAM) do
+  begin
+    RegisterConstructor(@THANDLESTREAM.CREATE, 'CREATE');
+    RegisterPropertyHelper(@THANDLESTREAMHANDLE_R, nil, 'HANDLE');
+  end;
+end;
+
+{$IFDEF FPC}
+// mh: because FPC doesn't handle pointers to overloaded functions
+function TFileStreamCreate(filename: string; mode: word): TFileStream;
+begin
+  result := TFilestream.Create(filename, mode);
+end;
+{$ENDIF}
+
+procedure RIRegisterTFILESTREAM(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TFILESTREAM) do
+  begin
+    {$IFDEF FPC}
+    RegisterConstructor(@TFileStreamCreate, 'CREATE');
+    {$ELSE}
+    RegisterConstructor(@TFILESTREAM.CREATE, 'CREATE');
+    {$ENDIF}
+  end;
+end;
+
+{$IFNDEF PS_MINIVCL}
+procedure RIRegisterTCUSTOMMEMORYSTREAM(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TCUSTOMMEMORYSTREAM) do
+  begin
+    RegisterMethod(@TCUSTOMMEMORYSTREAM.SAVETOSTREAM, 'SAVETOSTREAM');
+    RegisterMethod(@TCUSTOMMEMORYSTREAM.SAVETOFILE, 'SAVETOFILE');
+  end;
+end;
+
+procedure RIRegisterTMEMORYSTREAM(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TMEMORYSTREAM) do
+  begin
+    RegisterMethod(@TMEMORYSTREAM.CLEAR, 'CLEAR');
+    RegisterMethod(@TMEMORYSTREAM.LOADFROMSTREAM, 'LOADFROMSTREAM');
+    RegisterMethod(@TMEMORYSTREAM.LOADFROMFILE, 'LOADFROMFILE');
+    RegisterMethod(@TMEMORYSTREAM.SETSIZE, 'SETSIZE');
+  end;
+end;
+
+procedure RIRegisterTRESOURCESTREAM(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TRESOURCESTREAM) do
+  begin
+    RegisterConstructor(@TRESOURCESTREAM.CREATE, 'CREATE');
+    RegisterConstructor(@TRESOURCESTREAM.CREATEFROMID, 'CREATEFROMID');
+  end;
+end;
+
+procedure TPARSERSOURCELINE_R(Self: TPARSER; var T: INTEGER); begin T := Self.SOURCELINE; end;
+procedure TPARSERTOKEN_R(Self: TPARSER; var T: CHAR); begin T := Self.TOKEN; end;
+
+procedure RIRegisterTPARSER(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TPARSER) do
+  begin
+    RegisterConstructor(@TPARSER.CREATE, 'CREATE');
+    RegisterMethod(@TPARSER.CHECKTOKEN, 'CHECKTOKEN');
+    RegisterMethod(@TPARSER.CHECKTOKENSYMBOL, 'CHECKTOKENSYMBOL');
+    RegisterMethod(@TPARSER.ERROR, 'ERROR');
+    RegisterMethod(@TPARSER.ERRORSTR, 'ERRORSTR');
+    RegisterMethod(@TPARSER.HEXTOBINARY, 'HEXTOBINARY');
+    RegisterMethod(@TPARSER.NEXTTOKEN, 'NEXTTOKEN');
+    RegisterMethod(@TPARSER.SOURCEPOS, 'SOURCEPOS');
+    RegisterMethod(@TPARSER.TOKENCOMPONENTIDENT, 'TOKENCOMPONENTIDENT');
+    RegisterMethod(@TPARSER.TOKENFLOAT, 'TOKENFLOAT');
+    RegisterMethod(@TPARSER.TOKENINT, 'TOKENINT');
+    RegisterMethod(@TPARSER.TOKENSTRING, 'TOKENSTRING');
+    RegisterMethod(@TPARSER.TOKENSYMBOLIS, 'TOKENSYMBOLIS');
+    RegisterPropertyHelper(@TPARSERSOURCELINE_R, nil, 'SOURCELINE');
+    RegisterPropertyHelper(@TPARSERTOKEN_R, nil, 'TOKEN');
+  end;
+end;
+
+procedure TCOLLECTIONITEMS_W(Self: TCOLLECTION; const T: TCOLLECTIONITEM; const t1: INTEGER);
+begin Self.ITEMS[t1] := T; end;
+
+procedure TCOLLECTIONITEMS_R(Self: TCOLLECTION; var T: TCOLLECTIONITEM; const t1: INTEGER);
+begin T := Self.ITEMS[t1]; end;
+
+{$IFDEF DELPHI3UP}
+procedure TCOLLECTIONITEMCLASS_R(Self: TCOLLECTION; var T: TCOLLECTIONITEMCLASS);
+begin T := Self.ITEMCLASS; end;
+{$ENDIF}
+
+procedure TCOLLECTIONCOUNT_R(Self: TCOLLECTION; var T: INTEGER);
+begin T := Self.COUNT; end;
+
+{$IFDEF DELPHI3UP}
+procedure TCOLLECTIONITEMDISPLAYNAME_W(Self: TCOLLECTIONITEM; const T: STRING);
+begin Self.DISPLAYNAME := T; end;
+{$ENDIF}
+
+{$IFDEF DELPHI3UP}
+procedure TCOLLECTIONITEMDISPLAYNAME_R(Self: TCOLLECTIONITEM; var T: STRING);
+begin T := Self.DISPLAYNAME; end;
+{$ENDIF}
+
+procedure TCOLLECTIONITEMINDEX_W(Self: TCOLLECTIONITEM; const T: INTEGER);
+begin Self.INDEX := T; end;
+
+procedure TCOLLECTIONITEMINDEX_R(Self: TCOLLECTIONITEM; var T: INTEGER);
+begin T := Self.INDEX; end;
+
+{$IFDEF DELPHI3UP}
+procedure TCOLLECTIONITEMID_R(Self: TCOLLECTIONITEM; var T: INTEGER);
+begin T := Self.ID; end;
+{$ENDIF}
+
+procedure TCOLLECTIONITEMCOLLECTION_W(Self: TCOLLECTIONITEM; const T: TCOLLECTION);
+begin Self.COLLECTION := T; end;
+
+procedure TCOLLECTIONITEMCOLLECTION_R(Self: TCOLLECTIONITEM; var T: TCOLLECTION);
+begin T := Self.COLLECTION; end;
+
+{$IFDEF DELPHI3UP}
+procedure RIRegisterTOWNEDCOLLECTION(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TOWNEDCOLLECTION) do
+  begin
+  RegisterConstructor(@TOWNEDCOLLECTION.CREATE, 'CREATE');
+  end;
+end;
+{$ENDIF}
+
+procedure RIRegisterTCOLLECTION(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TCOLLECTION) do
+  begin
+  RegisterConstructor(@TCOLLECTION.CREATE, 'CREATE');
+{$IFDEF DELPHI6UP}  {$IFNDEF FPC} RegisterMethod(@TCOLLECTION.OWNER, 'OWNER'); {$ENDIF} {$ENDIF} // no owner in FPC
+  RegisterMethod(@TCOLLECTION.ADD, 'ADD');
+  RegisterVirtualMethod(@TCOLLECTION.BEGINUPDATE, 'BEGINUPDATE');
+  RegisterMethod(@TCOLLECTION.CLEAR, 'CLEAR');
+{$IFDEF DELPHI5UP}  RegisterMethod(@TCOLLECTION.DELETE, 'DELETE'); {$ENDIF}
+  RegisterVirtualMethod(@TCOLLECTION.ENDUPDATE, 'ENDUPDATE');
+{$IFDEF DELPHI3UP}  RegisterMethod(@TCOLLECTION.FINDITEMID, 'FINDITEMID'); {$ENDIF}
+{$IFDEF DELPHI3UP}  RegisterMethod(@TCOLLECTION.INSERT, 'INSERT'); {$ENDIF}
+  RegisterPropertyHelper(@TCOLLECTIONCOUNT_R,nil,'COUNT');
+{$IFDEF DELPHI3UP}  RegisterPropertyHelper(@TCOLLECTIONITEMCLASS_R,nil,'ITEMCLASS'); {$ENDIF}
+  RegisterPropertyHelper(@TCOLLECTIONITEMS_R,@TCOLLECTIONITEMS_W,'ITEMS');
+  end;
+end;
+
+procedure RIRegisterTCOLLECTIONITEM(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TCOLLECTIONITEM) do
+  begin
+  RegisterVirtualConstructor(@TCOLLECTIONITEM.CREATE, 'CREATE');
+  RegisterPropertyHelper(@TCOLLECTIONITEMCOLLECTION_R,@TCOLLECTIONITEMCOLLECTION_W,'COLLECTION');
+{$IFDEF DELPHI3UP}  RegisterPropertyHelper(@TCOLLECTIONITEMID_R,nil,'ID'); {$ENDIF}
+  RegisterPropertyHelper(@TCOLLECTIONITEMINDEX_R,@TCOLLECTIONITEMINDEX_W,'INDEX');
+{$IFDEF DELPHI3UP}  RegisterPropertyHelper(@TCOLLECTIONITEMDISPLAYNAME_R,@TCOLLECTIONITEMDISPLAYNAME_W,'DISPLAYNAME'); {$ENDIF}
+  end;
+end;
+{$ENDIF}
+
+procedure RIRegister_Classes(Cl: TPSRuntimeClassImporter; Streams: Boolean);
+begin
+  if Streams then
+    RIRegisterTSTREAM(Cl);
+  RIRegisterTStrings(cl, Streams);
+  RIRegisterTStringList(cl);
+  {$IFNDEF PS_MINIVCL}
+  RIRegisterTBITS(cl);
+  {$ENDIF}
+  if Streams then
+  begin
+    RIRegisterTHANDLESTREAM(Cl);
+    RIRegisterTFILESTREAM(Cl);
+    {$IFNDEF PS_MINIVCL}
+    RIRegisterTCUSTOMMEMORYSTREAM(Cl);
+    RIRegisterTMEMORYSTREAM(Cl);
+    RIRegisterTRESOURCESTREAM(Cl);
+    {$ENDIF}
+  end;
+  {$IFNDEF PS_MINIVCL}
+  RIRegisterTPARSER(Cl);
+  RIRegisterTCOLLECTIONITEM(Cl);
+  RIRegisterTCOLLECTION(Cl);
+  {$IFDEF DELPHI3UP}
+  RIRegisterTOWNEDCOLLECTION(Cl);
+  {$ENDIF}
+  {$ENDIF}
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_comobj.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_comobj.pas
new file mode 100644
index 0000000..3d354aa
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_comobj.pas	
@@ -0,0 +1,103 @@
+
+
+unit uPSR_comobj;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+
+procedure RIRegister_ComObj(cl: TPSExec);
+
+implementation
+uses
+{$IFDEF DELPHI3UP}
+  ComObj;
+{$ELSE}
+  SysUtils, Ole2;
+{$ENDIF}
+{$IFNDEF DELPHI3UP}
+
+{$IFDEF DELPHI3UP }
+resourceString
+{$ELSE }
+const
+{$ENDIF }
+
+  RPS_OLEError = 'OLE error %.8x';
+function OleErrorMessage(ErrorCode: HResult): String;
+begin
+  Result := SysErrorMessage(ErrorCode);
+  if Result = '' then
+    Result := Format(RPS_OLEError, [ErrorCode]);
+end;
+
+procedure OleError(ErrorCode: HResult);
+begin
+  raise Exception.Create(OleErrorMessage(ErrorCode));
+end;
+
+procedure OleCheck(Result: HResult);
+begin
+  if Result < 0 then OleError(Result);
+end;
+
+procedure CreateOleObject(const ClassName: string; var Disp: IDispatch);
+var
+  OldDisp: IDispatch;
+  ClassID: TCLSID;
+  WideCharBuf: array[0..127] of WideChar;
+begin
+  StringToWideChar(ClassName, WideCharBuf, SizeOf(WideCharBuf) div SizeOf(WideCharBuf[0]));
+  OleCheck(CLSIDFromProgID(WideCharBuf, ClassID));
+  if Disp <> nil then
+  begin
+    OldDisp := Disp;
+    Disp := nil;
+    OldDisp.Release;
+  end;
+  OleCheck(CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or
+    CLSCTX_LOCAL_SERVER, IID_IDispatch, Disp));
+end;
+
+procedure GetActiveOleObject(const ClassName: string; var Disp: IDispatch);
+var
+  Unknown: IUnknown;
+  OldDisp: IDispatch;
+  ClassID: TCLSID;
+  WideCharBuf: array[0..127] of WideChar;
+begin
+  StringToWideChar(ClassName, WideCharBuf, SizeOf(WideCharBuf) div SizeOf(WideCharBuf[0]));
+  OleCheck(CLSIDFromProgID(WideCharBuf, ClassID));
+  OleCheck(GetActiveObject(ClassID, nil, Unknown));
+  try
+    if Disp <> nil then
+    begin
+      OldDisp := Disp;
+      Disp := nil;
+      OldDisp.Release;
+    end;
+    OleCheck(Unknown.QueryInterface(IID_IDispatch, Disp));
+  finally
+    Unknown.Release;
+  end;
+end;
+
+{$ENDIF}
+
+
+procedure RIRegister_ComObj(cl: TPSExec);
+begin
+  cl.RegisterDelphiFunction(@OleCheck, 'OleCheck', cdRegister);
+{$IFNDEF PS_NOINTERFACES}
+{$IFDEF DELPHI3UP}
+  cl.RegisterDelphiFunction(@StringToGUID, 'StringToGUID', cdRegister);
+  cl.RegisterDelphiFunction(@CreateComObject, 'CreateComObject', cdRegister);
+{$ENDIF}
+{$ENDIF}
+  cl.RegisterDelphiFunction(@CreateOleObject, 'CREATEOLEOBJECT', cdRegister);
+  cl.RegisterDelphiFunction(@GetActiveOleObject, 'GETACTIVEOLEOBJECT', cdRegister);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_controls.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_controls.pas
new file mode 100644
index 0000000..4bac801
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_controls.pas	
@@ -0,0 +1,249 @@
+
+unit uPSR_controls;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+
+
+
+procedure RIRegisterTControl(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTWinControl(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTGraphicControl(cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCustomControl(cl: TPSRuntimeClassImporter);
+procedure RIRegister_TDragObject(CL: TPSRuntimeClassImporter);
+
+procedure RIRegister_Controls(Cl: TPSRuntimeClassImporter);
+
+implementation
+{$IFNDEF FPC}
+uses
+  Classes{$IFDEF CLX}, QControls, QGraphics{$ELSE}, Controls, Graphics, Windows{$ENDIF};
+{$ELSE}
+uses
+  Classes, Controls, Graphics;
+{$ENDIF}
+
+procedure TControlAlignR(Self: TControl; var T: Byte); begin T := Byte(Self.Align); end;
+procedure TControlAlignW(Self: TControl; T: Byte); begin Self.Align:= TAlign(T); end;
+
+procedure TControlClientHeightR(Self: TControl; var T: Longint); begin T := Self.ClientHeight; end;
+procedure TControlClientHeightW(Self: TControl; T: Longint); begin Self.ClientHeight := T; end;
+
+procedure TControlClientWidthR(Self: TControl; var T: Longint); begin T := Self.ClientWidth; end;
+procedure TControlClientWidthW(Self: TControl; T: Longint); begin Self.ClientWidth:= T; end;
+
+procedure TControlShowHintR(Self: TControl; var T: Boolean); begin T := Self.ShowHint; end;
+procedure TControlShowHintW(Self: TControl; T: Boolean); begin Self.ShowHint:= T; end;
+
+procedure TControlVisibleR(Self: TControl; var T: Boolean); begin T := Self.Visible; end;
+procedure TControlVisibleW(Self: TControl; T: Boolean); begin Self.Visible:= T; end;
+
+procedure TControlParentR(Self: TControl; var T: TWinControl); begin T := Self.Parent; end;
+procedure TControlParentW(Self: TControl; T: TWinControl); begin Self.Parent:= T; end;
+
+
+procedure TCONTROLSHOWHINT_W(Self: TCONTROL; T: BOOLEAN); begin Self.SHOWHINT := T; end;
+procedure TCONTROLSHOWHINT_R(Self: TCONTROL; var T: BOOLEAN); begin T := Self.SHOWHINT; end;
+procedure TCONTROLENABLED_W(Self: TCONTROL; T: BOOLEAN); begin Self.ENABLED := T; end;
+procedure TCONTROLENABLED_R(Self: TCONTROL; var T: BOOLEAN); begin T := Self.ENABLED; end;
+
+procedure RIRegisterTControl(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TControl) do
+  begin
+    RegisterVirtualConstructor(@TControl.Create, 'CREATE');
+    RegisterMethod(@TControl.BRingToFront, 'BRINGTOFRONT');
+    RegisterMethod(@TControl.Hide, 'HIDE');
+    RegisterVirtualMethod(@TControl.Invalidate, 'INVALIDATE');
+    RegisterMethod(@TControl.Refresh, 'REFRESH');
+    RegisterVirtualMethod(@TControl.Repaint, 'REPAINT');
+    RegisterMethod(@TControl.SendToBack, 'SENDTOBACK');
+    RegisterMethod(@TControl.Show, 'SHOW');
+    RegisterVirtualMethod(@TControl.Update, 'UPDATE');
+    RegisterVirtualMethod(@TControl.SetBounds, 'SETBOUNDS');
+
+    RegisterPropertyHelper(@TControlShowHintR, @TControlShowHintW, 'SHOWHINT');
+    RegisterPropertyHelper(@TControlAlignR, @TControlAlignW, 'ALIGN');
+    RegisterPropertyHelper(@TControlClientHeightR, @TControlClientHeightW, 'CLIENTHEIGHT');
+    RegisterPropertyHelper(@TControlClientWidthR, @TControlClientWidthW, 'CLIENTWIDTH');
+    RegisterPropertyHelper(@TControlVisibleR, @TControlVisibleW, 'VISIBLE');
+    RegisterPropertyHelper(@TCONTROLENABLED_R, @TCONTROLENABLED_W, 'ENABLED');
+
+    RegisterPropertyHelper(@TControlParentR, @TControlParentW, 'PARENT');
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod(@TControl.Dragging, 'DRAGGING');
+    RegisterMethod(@TControl.HasParent, 'HASPARENT');
+    RegisterMethod(@TCONTROL.CLIENTTOSCREEN, 'CLIENTTOSCREEN');
+    RegisterMethod(@TCONTROL.DRAGGING, 'DRAGGING');
+   {$IFNDEF FPC} 
+    RegisterMethod(@TCONTROL.BEGINDRAG, 'BEGINDRAG');
+    RegisterMethod(@TCONTROL.ENDDRAG, 'ENDDRAG');
+   {$ENDIF}
+    {$IFNDEF CLX}
+    RegisterMethod(@TCONTROL.GETTEXTBUF, 'GETTEXTBUF');
+    RegisterMethod(@TCONTROL.GETTEXTLEN, 'GETTEXTLEN');
+    RegisterMethod(@TCONTROL.PERFORM, 'PERFORM');
+    RegisterMethod(@TCONTROL.SETTEXTBUF, 'SETTEXTBUF');
+    {$ENDIF}
+    RegisterMethod(@TCONTROL.SCREENTOCLIENT, 'SCREENTOCLIENT');
+    {$ENDIF}
+  end;
+end;
+{$IFNDEF CLX}
+procedure TWinControlHandleR(Self: TWinControl; var T: Longint); begin T := Self.Handle; end;
+{$ENDIF}
+procedure TWinControlShowingR(Self: TWinControl; var T: Boolean); begin T := Self.Showing; end;
+
+
+procedure TWinControlTabOrderR(Self: TWinControl; var T: Longint); begin T := Self.TabOrder; end;
+procedure TWinControlTabOrderW(Self: TWinControl; T: Longint); begin Self.TabOrder:= T; end;
+
+procedure TWinControlTabStopR(Self: TWinControl; var T: Boolean); begin T := Self.TabStop; end;
+procedure TWinControlTabStopW(Self: TWinControl; T: Boolean); begin Self.TabStop:= T; end;
+procedure TWINCONTROLBRUSH_R(Self: TWINCONTROL; var T: TBRUSH); begin T := Self.BRUSH; end;
+procedure TWINCONTROLCONTROLS_R(Self: TWINCONTROL; var T: TCONTROL; t1: INTEGER); begin t := Self.CONTROLS[t1]; end;
+procedure TWINCONTROLCONTROLCOUNT_R(Self: TWINCONTROL; var T: INTEGER); begin t := Self.CONTROLCOUNT; end;
+
+procedure RIRegisterTWinControl(Cl: TPSRuntimeClassImporter); // requires TControl
+begin
+  with Cl.Add(TWinControl) do
+  begin
+    {$IFNDEF CLX}
+    RegisterPropertyHelper(@TWinControlHandleR, nil, 'HANDLE');
+    {$ENDIF}
+    RegisterPropertyHelper(@TWinControlShowingR, nil, 'SHOWING');
+    RegisterPropertyHelper(@TWinControlTabOrderR, @TWinControlTabOrderW, 'TABORDER');
+    RegisterPropertyHelper(@TWinControlTabStopR, @TWinControlTabStopW, 'TABSTOP');
+    RegisterMethod(@TWINCONTROL.CANFOCUS, 'CANFOCUS');
+    RegisterMethod(@TWINCONTROL.FOCUSED, 'FOCUSED');
+    RegisterPropertyHelper(@TWINCONTROLCONTROLS_R, nil, 'CONTROLS');
+    RegisterPropertyHelper(@TWINCONTROLCONTROLCOUNT_R, nil, 'CONTROLCOUNT');
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod(@TWinControl.HandleAllocated, 'HANDLEALLOCATED');
+    RegisterMethod(@TWinControl.HandleNeeded, 'HANDLENEEDED');
+    RegisterMethod(@TWinControl.EnableAlign, 'ENABLEALIGN');
+		RegisterMethod(@TWinControl.RemoveControl, 'REMOVECONTROL');
+		{$IFNDEF FPC}
+		RegisterMethod(@TWinControl.InsertControl, 'INSERTCONTROL');
+		RegisterMethod(@TWinControl.ScaleBy, 'SCALEBY');
+		RegisterMethod(@TWinControl.ScrollBy, 'SCROLLBY');
+		{$IFNDEF CLX}
+		 RegisterMethod(@TWINCONTROL.PAINTTO, 'PAINTTO');
+		{$ENDIF}
+		{$ENDIF}{FPC}
+		RegisterMethod(@TWinControl.Realign, 'REALIGN');
+		RegisterVirtualMethod(@TWinControl.SetFocus, 'SETFOCUS');
+		RegisterMethod(@TWINCONTROL.CONTAINSCONTROL, 'CONTAINSCONTROL');
+		RegisterMethod(@TWINCONTROL.DISABLEALIGN, 'DISABLEALIGN');
+		RegisterMethod(@TWINCONTROL.UPDATECONTROLSTATE, 'UPDATECONTROLSTATE');
+    RegisterPropertyHelper(@TWINCONTROLBRUSH_R, nil, 'BRUSH');
+    {$ENDIF}
+  end;
+end;
+
+procedure RIRegisterTGraphicControl(cl: TPSRuntimeClassImporter); // requires TControl
+begin
+  Cl.Add(TGraphicControl);
+end;
+procedure RIRegisterTCustomControl(cl: TPSRuntimeClassImporter); // requires TControl
+begin
+  Cl.Add(TCustomControl);
+end;
+
+{$IFDEF DELPHI4UP}
+(* === run-time registration functions === *)
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectMouseDeltaY_R(Self: TDragObject; var T: Double);
+begin T := Self.MouseDeltaY; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectMouseDeltaX_R(Self: TDragObject; var T: Double);
+begin T := Self.MouseDeltaX; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectDragTarget_W(Self: TDragObject; const T: Pointer);
+begin Self.DragTarget := T; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectDragTarget_R(Self: TDragObject; var T: Pointer);
+begin T := Self.DragTarget; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectDragTargetPos_W(Self: TDragObject; const T: TPoint);
+begin Self.DragTargetPos := T; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectDragTargetPos_R(Self: TDragObject; var T: TPoint);
+begin T := Self.DragTargetPos; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectDragPos_W(Self: TDragObject; const T: TPoint);
+begin Self.DragPos := T; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectDragPos_R(Self: TDragObject; var T: TPoint);
+begin T := Self.DragPos; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectDragHandle_W(Self: TDragObject; const T: HWND);
+begin Self.DragHandle := T; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectDragHandle_R(Self: TDragObject; var T: HWND);
+begin T := Self.DragHandle; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectCancelling_W(Self: TDragObject; const T: Boolean);
+begin Self.Cancelling := T; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TDragObjectCancelling_R(Self: TDragObject; var T: Boolean);
+begin T := Self.Cancelling; end;
+{$ENDIF}
+(*----------------------------------------------------------------------------*)
+procedure RIRegister_TDragObject(CL: TPSRuntimeClassImporter);
+begin
+  with CL.Add(TDragObject) do
+  begin
+{$IFNDEF PS_MINIVCL}
+{$IFDEF DELPHI4UP}
+    RegisterVirtualMethod(@TDragObject.Assign, 'Assign');
+{$ENDIF}
+{$IFNDEF FPC}
+    RegisterVirtualMethod(@TDragObject.GetName, 'GetName');
+    RegisterVirtualMethod(@TDragObject.Instance, 'Instance');
+{$ENDIF}    
+    RegisterVirtualMethod(@TDragObject.HideDragImage, 'HideDragImage');
+    RegisterVirtualMethod(@TDragObject.ShowDragImage, 'ShowDragImage');
+{$IFDEF DELPHI4UP}
+    RegisterPropertyHelper(@TDragObjectCancelling_R,@TDragObjectCancelling_W,'Cancelling');
+    RegisterPropertyHelper(@TDragObjectDragHandle_R,@TDragObjectDragHandle_W,'DragHandle');
+    RegisterPropertyHelper(@TDragObjectDragPos_R,@TDragObjectDragPos_W,'DragPos');
+    RegisterPropertyHelper(@TDragObjectDragTargetPos_R,@TDragObjectDragTargetPos_W,'DragTargetPos');
+    RegisterPropertyHelper(@TDragObjectDragTarget_R,@TDragObjectDragTarget_W,'DragTarget');
+    RegisterPropertyHelper(@TDragObjectMouseDeltaX_R,nil,'MouseDeltaX');
+    RegisterPropertyHelper(@TDragObjectMouseDeltaY_R,nil,'MouseDeltaY');
+{$ENDIF}
+{$ENDIF}
+  end;
+end;
+
+
+procedure RIRegister_Controls(Cl: TPSRuntimeClassImporter);
+begin
+  RIRegisterTControl(Cl);
+  RIRegisterTWinControl(Cl);
+  RIRegisterTGraphicControl(cl);
+  RIRegisterTCustomControl(cl);
+  RIRegister_TDragObject(cl);
+
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_dateutils.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_dateutils.pas
new file mode 100644
index 0000000..9c0fd5b
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_dateutils.pas	
@@ -0,0 +1,63 @@
+
+unit uPSR_dateutils;
+{$I PascalScript.inc}
+interface
+uses
+  SysUtils, uPSRuntime;
+
+
+
+procedure RegisterDateTimeLibrary_R(S: TPSExec);
+
+implementation
+
+function TryEncodeDate(Year, Month, Day: Word; var Date: TDateTime): Boolean;
+begin
+  try
+    Date := EncodeDate(Year, Month, Day);
+    Result := true;
+  except
+    Result := false;
+  end;
+end;
+
+function TryEncodeTime(Hour, Min, Sec, MSec: Word; var Time: TDateTime): Boolean;
+begin
+  try
+    Time := EncodeTime(hour, Min, Sec, MSec);
+    Result := true;
+  except
+    Result := false;
+  end;
+end;
+
+function DateTimeToUnix(D: TDateTime): Int64;
+begin
+  Result := Round((D - 25569) * 86400);
+end;
+
+function UnixToDateTime(U: Int64): TDateTime;
+begin
+  Result := U / 86400 + 25569;
+end;
+
+procedure RegisterDateTimeLibrary_R(S: TPSExec);
+begin
+  S.RegisterDelphiFunction(@EncodeDate, 'ENCODEDATE', cdRegister);
+  S.RegisterDelphiFunction(@EncodeTime, 'ENCODETIME', cdRegister);
+  S.RegisterDelphiFunction(@TryEncodeDate, 'TRYENCODEDATE', cdRegister);
+  S.RegisterDelphiFunction(@TryEncodeTime, 'TRYENCODETIME', cdRegister);
+  S.RegisterDelphiFunction(@DecodeDate, 'DECODEDATE', cdRegister);
+  S.RegisterDelphiFunction(@DecodeTime, 'DECODETIME', cdRegister);
+  S.RegisterDelphiFunction(@DayOfWeek, 'DAYOFWEEK', cdRegister);
+  S.RegisterDelphiFunction(@Date, 'DATE', cdRegister);
+  S.RegisterDelphiFunction(@Time, 'TIME', cdRegister);
+  S.RegisterDelphiFunction(@Now, 'NOW', cdRegister);
+  S.RegisterDelphiFunction(@DateTimeToUnix, 'DATETIMETOUNIX', cdRegister);
+  S.RegisterDelphiFunction(@UnixToDateTime, 'UNIXTODATETIME', cdRegister);
+  S.RegisterDelphiFunction(@DateToStr, 'DATETOSTR', cdRegister);
+  S.RegisterDelphiFunction(@FormatDateTime, 'FORMATDATETIME', cdRegister);
+  S.RegisterDelphiFunction(@StrToDate, 'STRTODATE', cdRegister);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_dll.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_dll.pas
new file mode 100644
index 0000000..00dd22c
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_dll.pas	
@@ -0,0 +1,283 @@
+unit uPSR_dll;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+procedure RegisterDLLRuntime(Caller: TPSExec);
+procedure RegisterDLLRuntimeEx(Caller: TPSExec; AddDllProcImport: Boolean);
+
+function ProcessDllImport(Caller: TPSExec; P: TPSExternalProcRec): Boolean;
+function ProcessDllImportEx(Caller: TPSExec; P: TPSExternalProcRec; ForceDelayLoad: Boolean): Boolean;
+function UnloadProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+
+implementation
+uses
+  {$IFDEF UNIX}
+  LCLIntf, Unix, baseunix, dynlibs, termio, sockets;
+  {$ELSE}
+  Windows;
+  {$ENDIF}
+
+{
+p^.Ext1 contains the pointer to the Proc function
+p^.ExportDecl:
+  'dll:'+DllName+#0+FunctionName+#0+chr(Cc)+Chr(DelayLoad)+Chr(AlternateSearchPath)+VarParams
+}
+
+type
+  PLoadedDll = ^TLoadedDll;
+  TLoadedDll = record
+    dllnamehash: Longint;
+    dllname: tbtstring;
+    dllhandle: THandle;
+  end;
+  TMyExec = class(TPSExec);
+  PInteger = ^Integer;
+
+procedure LAstErrorFree(Sender: TPSExec; P: PInteger);
+begin
+  dispose(p);
+end;
+
+procedure DLLSetLastError(Sender: TPSExec; P: Integer);
+var
+  pz: PInteger;
+begin
+  pz := Sender.FindProcResource(@LastErrorFree);
+  if pz = nil then
+  begin
+    new(pz);
+    Sender.AddResource(@LastErrorFree, PZ);
+  end;
+  pz^ := p;
+end;
+
+function DLLGetLastError(Sender: TPSExec): Integer;
+var
+  pz: PInteger;
+begin
+  pz := Sender.FindProcResource(@LastErrorFree);
+  if pz = nil then
+    result := 0
+  else
+    result := pz^;
+end;
+
+
+procedure DllFree(Sender: TPSExec; P: PLoadedDll);
+begin
+  FreeLibrary(p^.dllhandle);
+  Dispose(p);
+end;
+
+function LoadDll(Caller: TPSExec; P: TPSExternalProcRec): Boolean;
+var
+  s, s2, s3: tbtstring;
+  h, i: Longint;
+  ph: PLoadedDll;
+  dllhandle: THandle;
+  loadwithalteredsearchpath: Boolean;
+begin
+  s := p.Decl;
+  Delete(s, 1, 4);
+  s2 := copy(s, 1, pos(tbtchar(#0), s)-1);
+  delete(s, 1, length(s2)+1);
+  h := makehash(s2);
+  s3 := copy(s, 1, pos(tbtchar(#0), s)-1);
+  delete(s, 1, length(s3)+1);
+  loadwithalteredsearchpath := bytebool(s[3]);
+  i := 2147483647; // maxint
+  dllhandle := 0;
+  repeat
+    ph := Caller.FindProcResource2(@dllFree, i);
+    if (ph = nil) then
+    begin
+      if s2 = '' then
+      begin
+        // don't pass an empty filename to LoadLibrary, just treat it as uncallable
+        p.Ext2 := Pointer(1);
+        Result := False;
+        exit;
+      end;
+      {$IFDEF UNIX}
+	  dllhandle := LoadLibrary(PChar(s2));
+      {$ELSE}
+      if loadwithalteredsearchpath then
+        dllhandle := LoadLibraryExA(PAnsiChar(AnsiString(s2)), 0, LOAD_WITH_ALTERED_SEARCH_PATH)
+      else
+        dllhandle := LoadLibraryA(PAnsiChar(AnsiString(s2)));
+      {$ENDIF}
+      if dllhandle = 0 then
+      begin
+        p.Ext2 := Pointer(1);
+        Result := False;
+        exit;
+      end;
+      new(ph);
+      ph^.dllnamehash := h;
+      ph^.dllname := s2;
+      ph^.dllhandle := dllhandle;
+      Caller.AddResource(@DllFree, ph);
+    end;
+    if (ph^.dllnamehash = h) and (ph^.dllname = s2) then
+    begin
+      dllhandle := ph^.dllhandle;
+    end;
+  until dllhandle <> 0;
+  p.Ext1 := GetProcAddress(dllhandle, pansichar(s3));
+  if p.Ext1 = nil then
+  begin
+    p.Ext2 := Pointer(1);
+    Result := false;
+    exit;
+  end;
+  Result := True;
+end;
+
+
+function DllProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+
+var
+  i: Longint;
+  MyList: TIfList;
+  n: PPSVariantIFC;
+  CurrStack: Cardinal;
+  cc: TPSCallingConvention;
+  s: tbtstring;
+begin
+  if p.Ext2 <> nil then // error
+  begin
+    Result := false;
+    exit;
+  end;
+  if p.Ext1 = nil then
+  begin
+    if not LoadDll(Caller, P) then
+    begin
+      Result := false;
+      exit;
+    end;
+  end;
+  s := p.Decl;
+  delete(S, 1, pos(tbtchar(#0), s));
+  delete(S, 1, pos(tbtchar(#0), s));
+  if length(S) < 2 then
+  begin
+    Result := False;
+    exit;
+  end;
+  cc := TPSCallingConvention(s[1]);
+  delete(s, 1, 3); // cc + delayload + alternatesearchpath (delayload might also be forced!)
+  CurrStack := Cardinal(Stack.Count) - Cardinal(length(s));
+  if s[1] = #0 then inc(CurrStack);
+  MyList := tIfList.Create;
+  for i := 2 to length(s) do
+  begin
+    MyList.Add(nil);
+  end;
+  for i := length(s) downto 2 do
+  begin
+    MyList[i - 2] := NewPPSVariantIFC(Stack[CurrStack], s[i] <> #0);
+    inc(CurrStack);
+  end;
+  if s[1] <> #0 then
+  begin
+    n := NewPPSVariantIFC(Stack[CurrStack], true);
+  end else n := nil;
+  try
+    TMYExec(Caller).InnerfuseCall(nil, p.Ext1, cc, MyList, n);
+    {$IFNDEF LINUX}
+    DLLSetLastError(Caller, GetLastError);
+    {$ENDIF}
+  finally
+    DisposePPSvariantIFC(n);
+    DisposePPSVariantIFCList(MyList);
+  end;
+  result := true;
+end;
+
+function ProcessDllImport(Caller: TPSExec; P: TPSExternalProcRec): Boolean;
+begin
+  Result := ProcessDllImportEx(Caller, P, False);
+end;
+
+function ProcessDllImportEx(Caller: TPSExec; P: TPSExternalProcRec; ForceDelayLoad: Boolean): Boolean;
+var
+  DelayLoad: Boolean;
+  s: tbtstring;
+begin
+  if not ForceDelayLoad then begin
+    s := p.Decl;
+    Delete(s,1,pos(tbtchar(#0), s));
+    Delete(s,1,pos(tbtchar(#0), s));
+    DelayLoad := bytebool(s[2]);
+  end else
+    DelayLoad := True;
+
+  if DelayLoad then begin
+    p.ProcPtr := DllProc;
+    Result := True;
+  end else begin
+    p.ProcPtr := DllProc;
+    Result := LoadDll(Caller, p);
+  end;
+end;
+
+
+function GetLastErrorProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+begin
+  Stack.SetInt(-1, DLLGetLastError(Caller));
+  Result := true;
+end;
+
+function UnloadProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  h, i: Longint;
+  pv: TPSProcRec;
+  ph: PLoadedDll;
+  sname, s: tbtstring;
+begin
+  sname := Stack.GetAnsiString(-1);
+  for i := Caller.GetProcCount -1 downto 0 do
+  begin
+    pv := Caller.GetProcNo(i);
+    if not (pv is TPSExternalProcRec) then continue;
+    if @TPSExternalProcRec(pv).ProcPtr <> @DllProc then continue;
+    s := (TPSExternalProcRec(pv).Decl);
+    delete(s,1,4);
+    if copy(s,1,pos(tbtchar(#0),s)-1) = sname then
+    begin
+      TPSExternalProcRec(pv).Ext1 := nil;
+    end;
+  end;
+  h := MakeHash(sname);
+  i := 2147483647; // maxint
+  repeat
+    ph := Caller.FindProcResource2(@dllFree, i);
+    if (ph = nil) then break;
+    if (ph.dllnamehash = h) and (ph.dllname = sname) then
+    begin
+      FreeLibrary(ph^.dllhandle);
+      Caller.DeleteResource(ph);
+      dispose(ph);
+    end;
+  until false;
+  result := true;
+end;
+
+procedure RegisterDLLRuntime(Caller: TPSExec);
+begin
+  RegisterDLLRuntimeEx(Caller, True);
+end;
+
+procedure RegisterDLLRuntimeEx(Caller: TPSExec; AddDllProcImport: Boolean);
+begin
+  if AddDllProcImport then
+    Caller.AddSpecialProcImport('dll', @ProcessDllImport, nil);
+  Caller.RegisterFunctionName('UNLOADDLL', UnloadProc, nil, nil);
+  Caller.RegisterFunctionName('DLLGETLASTERROR', GetLastErrorProc, nil, nil);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_extctrls.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_extctrls.pas
new file mode 100644
index 0000000..0f4a129
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_extctrls.pas	
@@ -0,0 +1,150 @@
+
+unit uPSR_extctrls;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+
+procedure RIRegister_ExtCtrls(cl: TPSRuntimeClassImporter);
+
+procedure RIRegisterTSHAPE(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTIMAGE(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTPAINTBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBEVEL(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTTIMER(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCUSTOMPANEL(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTPANEL(Cl: TPSRuntimeClassImporter);
+{$IFNDEF CLX}
+procedure RIRegisterTPAGE(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTNOTEBOOK(Cl: TPSRuntimeClassImporter);
+{$IFNDEF FPC}procedure RIRegisterTHEADER(Cl: TPSRuntimeClassImporter);{$ENDIF}
+{$ENDIF}
+procedure RIRegisterTCUSTOMRADIOGROUP(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTRADIOGROUP(Cl: TPSRuntimeClassImporter);
+
+implementation
+
+uses
+  {$IFDEF CLX}
+  QExtCtrls, QGraphics;
+  {$ELSE}
+  ExtCtrls, Graphics;
+  {$ENDIF}
+
+procedure RIRegisterTSHAPE(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TSHAPE) do
+  begin
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod(@TSHAPE.STYLECHANGED, 'STYLECHANGED');
+    {$ENDIF}
+  end;
+end;
+
+procedure TIMAGECANVAS_R(Self: TIMAGE; var T: TCANVAS); begin T := Self.CANVAS; end;
+
+procedure RIRegisterTIMAGE(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TIMAGE) do
+  begin
+    RegisterPropertyHelper(@TIMAGECANVAS_R, nil, 'CANVAS');
+  end;
+end;
+
+procedure TPAINTBOXCANVAS_R(Self: TPAINTBOX; var T: TCanvas); begin T := Self.CANVAS; end;
+
+procedure RIRegisterTPAINTBOX(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TPAINTBOX) do
+  begin
+    RegisterPropertyHelper(@TPAINTBOXCANVAS_R, nil, 'CANVAS');
+  end;
+end;
+
+procedure RIRegisterTBEVEL(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TBEVEL);
+end;
+
+procedure RIRegisterTTIMER(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TTIMER);
+end;
+
+procedure RIRegisterTCUSTOMPANEL(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TCUSTOMPANEL);
+end;
+
+procedure RIRegisterTPANEL(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TPANEL);
+end;
+{$IFNDEF CLX}
+procedure RIRegisterTPAGE(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TPAGE);
+end;
+
+procedure RIRegisterTNOTEBOOK(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TNOTEBOOK);
+end;
+
+{$IFNDEF FPC}
+procedure THEADERSECTIONWIDTH_R(Self: THEADER; var T: INTEGER; t1: INTEGER); begin T := Self.SECTIONWIDTH[t1]; end;
+procedure THEADERSECTIONWIDTH_W(Self: THEADER; T: INTEGER; t1: INTEGER); begin Self.SECTIONWIDTH[t1] := T; end;
+
+procedure RIRegisterTHEADER(Cl: TPSRuntimeClassImporter);
+begin
+	with Cl.Add(THEADER) do
+	begin
+		RegisterPropertyHelper(@THEADERSECTIONWIDTH_R, @THEADERSECTIONWIDTH_W, 'SECTIONWIDTH');
+	end;
+end;
+{$ENDIF}
+{$ENDIF}
+
+procedure RIRegisterTCUSTOMRADIOGROUP(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TCUSTOMRADIOGROUP);
+end;
+
+procedure RIRegisterTRADIOGROUP(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TRADIOGROUP);
+end;
+
+procedure RIRegister_ExtCtrls(cl: TPSRuntimeClassImporter);
+begin
+  {$IFNDEF PS_MINIVCL}
+  RIRegisterTSHAPE(Cl);
+  RIRegisterTIMAGE(Cl);
+  RIRegisterTPAINTBOX(Cl);
+  {$ENDIF}
+  RIRegisterTBEVEL(Cl);
+  {$IFNDEF PS_MINIVCL}
+  RIRegisterTTIMER(Cl);
+  {$ENDIF}
+  RIRegisterTCUSTOMPANEL(Cl);
+{$IFNDEF CLX}
+  RIRegisterTPANEL(Cl);
+{$ENDIF}
+  {$IFNDEF PS_MINIVCL}
+{$IFNDEF CLX}
+  RIRegisterTPAGE(Cl);
+	RIRegisterTNOTEBOOK(Cl);
+ {$IFNDEF FPC}
+	RIRegisterTHEADER(Cl);
+ {$ENDIF}{FPC}
+{$ENDIF}
+  RIRegisterTCUSTOMRADIOGROUP(Cl);
+  RIRegisterTRADIOGROUP(Cl);
+  {$ENDIF}
+end;
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_forms.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_forms.pas
new file mode 100644
index 0000000..4a0f8f7
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_forms.pas	
@@ -0,0 +1,264 @@
+
+unit uPSR_forms;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+procedure RIRegisterTCONTROLSCROLLBAR(Cl: TPSRuntimeClassImporter);
+{$IFNDEF FPC} procedure RIRegisterTSCROLLINGWINCONTROL(Cl: TPSRuntimeClassImporter);{$ENDIF}
+procedure RIRegisterTSCROLLBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFORM(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTAPPLICATION(Cl: TPSRuntimeClassImporter);
+
+procedure RIRegister_Forms(Cl: TPSRuntimeClassImporter);
+
+implementation
+uses
+  sysutils, classes, {$IFDEF CLX}QControls, QForms, QGraphics{$ELSE}Controls, Forms, Graphics{$ENDIF};
+
+procedure TCONTROLSCROLLBARKIND_R(Self: TCONTROLSCROLLBAR; var T: TSCROLLBARKIND); begin T := Self.KIND; end;
+procedure TCONTROLSCROLLBARSCROLLPOS_R(Self: TCONTROLSCROLLBAR; var T: INTEGER); begin t := Self.SCROLLPOS; end;
+
+procedure RIRegisterTCONTROLSCROLLBAR(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TCONTROLSCROLLBAR) do
+  begin
+    RegisterPropertyHelper(@TCONTROLSCROLLBARKIND_R, nil, 'KIND');
+    RegisterPropertyHelper(@TCONTROLSCROLLBARSCROLLPOS_R, nil, 'SCROLLPOS');
+  end;
+end;
+
+{$IFNDEF FPC}
+procedure RIRegisterTSCROLLINGWINCONTROL(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TSCROLLINGWINCONTROL) do
+  begin
+    RegisterMethod(@TSCROLLINGWINCONTROL.SCROLLINVIEW, 'SCROLLINVIEW');
+  end;
+end;
+{$ENDIF}
+
+procedure RIRegisterTSCROLLBOX(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TSCROLLBOX);
+end;
+{$IFNDEF FPC}
+{$IFNDEF CLX}
+procedure TFORMACTIVEOLECONTROL_W(Self: TFORM; T: TWINCONTROL); begin Self.ACTIVEOLECONTROL := T; end;
+procedure TFORMACTIVEOLECONTROL_R(Self: TFORM; var T: TWINCONTROL); begin T := Self.ACTIVEOLECONTROL; 
+end;
+procedure TFORMTILEMODE_W(Self: TFORM; T: TTILEMODE); begin Self.TILEMODE := T; end;
+procedure TFORMTILEMODE_R(Self: TFORM; var T: TTILEMODE); begin T := Self.TILEMODE; end;
+{$ENDIF}{CLX}
+procedure TFORMACTIVEMDICHILD_R(Self: TFORM; var T: TFORM); begin T := Self.ACTIVEMDICHILD; end;
+procedure TFORMDROPTARGET_W(Self: TFORM; T: BOOLEAN); begin Self.DROPTARGET := T; end;
+procedure TFORMDROPTARGET_R(Self: TFORM; var T: BOOLEAN); begin T := Self.DROPTARGET; end;
+procedure TFORMMDICHILDCOUNT_R(Self: TFORM; var T: INTEGER); begin T := Self.MDICHILDCOUNT; end;
+procedure TFORMMDICHILDREN_R(Self: TFORM; var T: TFORM; t1: INTEGER); begin T := Self.MDICHILDREN[T1]; 
+end;
+{$ENDIF}{FPC}
+
+procedure TFORMMODALRESULT_W(Self: TFORM; T: TMODALRESULT); begin Self.MODALRESULT := T; end;
+procedure TFORMMODALRESULT_R(Self: TFORM; var T: TMODALRESULT); begin T := Self.MODALRESULT; end;
+procedure TFORMACTIVE_R(Self: TFORM; var T: BOOLEAN); begin T := Self.ACTIVE; end;
+procedure TFORMCANVAS_R(Self: TFORM; var T: TCANVAS); begin T := Self.CANVAS; end;
+{$IFNDEF CLX}
+procedure TFORMCLIENTHANDLE_R(Self: TFORM; var T: Longint); begin T := Self.CLIENTHANDLE; end;
+{$ENDIF}
+
+{ Innerfuse Pascal Script Class Import Utility (runtime) }
+
+procedure RIRegisterTFORM(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TFORM) do
+  begin
+    {$IFDEF DELPHI4UP}
+    RegisterVirtualConstructor(@TFORM.CREATENEW, 'CREATENEW');
+    {$ELSE}
+    RegisterConstructor(@TFORM.CREATENEW, 'CREATENEW');
+    {$ENDIF}
+    RegisterMethod(@TFORM.CLOSE, 'CLOSE');
+    RegisterMethod(@TFORM.HIDE, 'HIDE');
+    RegisterMethod(@TFORM.SHOW, 'SHOW');
+    RegisterMethod(@TFORM.SHOWMODAL, 'SHOWMODAL');
+    RegisterMethod(@TFORM.RELEASE, 'RELEASE');
+    RegisterPropertyHelper(@TFORMACTIVE_R, nil, 'ACTIVE');
+
+    {$IFNDEF PS_MINIVCL}
+ {$IFNDEF FPC}
+{$IFNDEF CLX} 
+    RegisterMethod(@TFORM.ARRANGEICONS, 'ARRANGEICONS');
+    RegisterMethod(@TFORM.GETFORMIMAGE, 'GETFORMIMAGE');
+    RegisterMethod(@TFORM.PRINT, 'PRINT');
+    RegisterMethod(@TFORM.SENDCANCELMODE, 'SENDCANCELMODE');
+    RegisterPropertyHelper(@TFORMACTIVEOLECONTROL_R, @TFORMACTIVEOLECONTROL_W, 'ACTIVEOLECONTROL');
+    RegisterPropertyHelper(@TFORMCLIENTHANDLE_R, nil, 'CLIENTHANDLE');
+    RegisterPropertyHelper(@TFORMTILEMODE_R, @TFORMTILEMODE_W, 'TILEMODE');
+{$ENDIF}{CLX}
+    RegisterMethod(@TFORM.CASCADE, 'CASCADE');
+    RegisterMethod(@TFORM.NEXT, 'NEXT');
+    RegisterMethod(@TFORM.PREVIOUS, 'PREVIOUS');
+    RegisterMethod(@TFORM.TILE, 'TILE');
+    RegisterPropertyHelper(@TFORMACTIVEMDICHILD_R, nil, 'ACTIVEMDICHILD');
+    RegisterPropertyHelper(@TFORMDROPTARGET_R, @TFORMDROPTARGET_W, 'DROPTARGET');
+    RegisterPropertyHelper(@TFORMMDICHILDCOUNT_R, nil, 'MDICHILDCOUNT');
+    RegisterPropertyHelper(@TFORMMDICHILDREN_R, nil, 'MDICHILDREN');
+ {$ENDIF}{FPC}
+    RegisterMethod(@TFORM.CLOSEQUERY, 'CLOSEQUERY');
+    RegisterMethod(@TFORM.DEFOCUSCONTROL, 'DEFOCUSCONTROL');
+    RegisterMethod(@TFORM.FOCUSCONTROL, 'FOCUSCONTROL');
+    RegisterMethod(@TFORM.SETFOCUSEDCONTROL, 'SETFOCUSEDCONTROL');
+    RegisterPropertyHelper(@TFORMCANVAS_R, nil, 'CANVAS');
+    RegisterPropertyHelper(@TFORMMODALRESULT_R, @TFORMMODALRESULT_W, 'MODALRESULT');
+    {$ENDIF}{PS_MINIVCL}
+  end;
+end;
+
+ {$IFNDEF FPC}
+procedure TAPPLICATIONACTIVE_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.ACTIVE; end;
+{$IFNDEF CLX}
+procedure TAPPLICATIONDIALOGHANDLE_R(Self: TAPPLICATION; var T: Longint); begin T := Self.DIALOGHANDLE; end;
+procedure TAPPLICATIONDIALOGHANDLE_W(Self: TAPPLICATION; T: Longint); begin Self.DIALOGHANDLE := T; end;
+procedure TAPPLICATIONHANDLE_R(Self: TAPPLICATION; var T: Longint); begin T := Self.HANDLE; end;
+procedure TAPPLICATIONHANDLE_W(Self: TAPPLICATION; T: Longint); begin Self.HANDLE := T; end;
+procedure TAPPLICATIONUPDATEFORMATSETTINGS_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.UPDATEFORMATSETTINGS; end;
+procedure TAPPLICATIONUPDATEFORMATSETTINGS_W(Self: TAPPLICATION; T: BOOLEAN); begin Self.UPDATEFORMATSETTINGS := T; end;
+{$ENDIF}
+{$ENDIF}{FPC}
+
+
+procedure TAPPLICATIONEXENAME_R(Self: TAPPLICATION; var T: STRING); begin T := Self.EXENAME; end;
+procedure TAPPLICATIONHELPFILE_R(Self: TAPPLICATION; var T: STRING); begin T := Self.HELPFILE; end;
+procedure TAPPLICATIONHELPFILE_W(Self: TAPPLICATION; T: STRING); begin Self.HELPFILE := T; end;
+procedure TAPPLICATIONHINT_R(Self: TAPPLICATION; var T: STRING); begin T := Self.HINT; end;
+procedure TAPPLICATIONHINT_W(Self: TAPPLICATION; T: STRING); begin Self.HINT := T; end;
+procedure TAPPLICATIONHINTCOLOR_R(Self: TAPPLICATION; var T: TCOLOR); begin T := Self.HINTCOLOR; end;
+procedure TAPPLICATIONHINTCOLOR_W(Self: TAPPLICATION; T: TCOLOR); begin Self.HINTCOLOR := T; end;
+procedure TAPPLICATIONHINTPAUSE_R(Self: TAPPLICATION; var T: INTEGER); begin T := Self.HINTPAUSE; end;
+procedure TAPPLICATIONHINTPAUSE_W(Self: TAPPLICATION; T: INTEGER); begin Self.HINTPAUSE := T; end;
+procedure TAPPLICATIONHINTSHORTPAUSE_R(Self: TAPPLICATION; var T: INTEGER); begin T := Self.HINTSHORTPAUSE; end;
+procedure TAPPLICATIONHINTSHORTPAUSE_W(Self: TAPPLICATION; T: INTEGER); begin Self.HINTSHORTPAUSE := T; end;
+procedure TAPPLICATIONHINTHIDEPAUSE_R(Self: TAPPLICATION; var T: INTEGER); begin T := Self.HINTHIDEPAUSE; end;
+procedure TAPPLICATIONHINTHIDEPAUSE_W(Self: TAPPLICATION; T: INTEGER); begin Self.HINTHIDEPAUSE := T; end;
+procedure TAPPLICATIONMAINFORM_R(Self: TAPPLICATION; var T: {$IFDEF DELPHI3UP}TCustomForm{$ELSE}TFORM{$ENDIF}); begin T := Self.MAINFORM; end;
+procedure TAPPLICATIONSHOWHINT_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.SHOWHINT; end;
+procedure TAPPLICATIONSHOWHINT_W(Self: TAPPLICATION; T: BOOLEAN); begin Self.SHOWHINT := T; end;
+procedure TAPPLICATIONSHOWMAINFORM_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.SHOWMAINFORM; end;
+procedure TAPPLICATIONSHOWMAINFORM_W(Self: TAPPLICATION; T: BOOLEAN); begin Self.SHOWMAINFORM := T; end;
+procedure TAPPLICATIONTERMINATED_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.TERMINATED; end;
+procedure TAPPLICATIONTITLE_R(Self: TAPPLICATION; var T: STRING); begin T := Self.TITLE; end;
+procedure TAPPLICATIONTITLE_W(Self: TAPPLICATION; T: STRING); begin Self.TITLE := T; end;
+
+{$IFNDEF FPC}
+procedure TAPPLICATIONONACTIVATE_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONACTIVATE; end;
+procedure TAPPLICATIONONACTIVATE_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONACTIVATE := T; end;
+procedure TAPPLICATIONONDEACTIVATE_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONDEACTIVATE; end;
+procedure TAPPLICATIONONDEACTIVATE_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONDEACTIVATE := T; end;
+{$ENDIF}
+
+procedure TAPPLICATIONONIDLE_R(Self: TAPPLICATION; var T: TIDLEEVENT); begin T := Self.ONIDLE; end;
+procedure TAPPLICATIONONIDLE_W(Self: TAPPLICATION; T: TIDLEEVENT); begin Self.ONIDLE := T; end;
+procedure TAPPLICATIONONHELP_R(Self: TAPPLICATION; var T: THELPEVENT); begin T := Self.ONHELP; end;
+procedure TAPPLICATIONONHELP_W(Self: TAPPLICATION; T: THELPEVENT); begin Self.ONHELP := T; end;
+procedure TAPPLICATIONONHINT_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONHINT; end;
+procedure TAPPLICATIONONHINT_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONHINT := T; end;
+
+{$IFNDEF FPC}
+procedure TAPPLICATIONONMINIMIZE_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONMINIMIZE; end;
+procedure TAPPLICATIONONMINIMIZE_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONMINIMIZE := T; end;
+
+procedure TAPPLICATIONONRESTORE_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONRESTORE; end;
+procedure TAPPLICATIONONRESTORE_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONRESTORE := T; end;
+{$ENDIF}
+
+procedure RIRegisterTAPPLICATION(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TAPPLICATION) do
+  begin
+ {$IFNDEF FPC}
+    RegisterMethod(@TAPPLICATION.MINIMIZE, 'MINIMIZE');
+    RegisterMethod(@TAPPLICATION.RESTORE, 'RESTORE');
+    RegisterPropertyHelper(@TAPPLICATIONACTIVE_R, nil, 'ACTIVE');
+    RegisterPropertyHelper(@TAPPLICATIONONACTIVATE_R, @TAPPLICATIONONACTIVATE_W, 'ONACTIVATE');
+    RegisterPropertyHelper(@TAPPLICATIONONDEACTIVATE_R, @TAPPLICATIONONDEACTIVATE_W, 'ONDEACTIVATE');
+    RegisterPropertyHelper(@TAPPLICATIONONMINIMIZE_R, @TAPPLICATIONONMINIMIZE_W, 'ONMINIMIZE');
+    RegisterPropertyHelper(@TAPPLICATIONONRESTORE_R, @TAPPLICATIONONRESTORE_W, 'ONRESTORE');
+    RegisterPropertyHelper(@TAPPLICATIONDIALOGHANDLE_R, @TAPPLICATIONDIALOGHANDLE_W, 'DIALOGHANDLE');
+    RegisterMethod(@TAPPLICATION.CREATEHANDLE, 'CREATEHANDLE');
+    RegisterMethod(@TAPPLICATION.NORMALIZETOPMOSTS, 'NORMALIZETOPMOSTS');
+    RegisterMethod(@TAPPLICATION.RESTORETOPMOSTS, 'RESTORETOPMOSTS');
+    {$IFNDEF CLX}
+    RegisterPropertyHelper(@TAPPLICATIONHANDLE_R, @TAPPLICATIONHANDLE_W, 'HANDLE');
+    RegisterPropertyHelper(@TAPPLICATIONUPDATEFORMATSETTINGS_R, @TAPPLICATIONUPDATEFORMATSETTINGS_W, 'UPDATEFORMATSETTINGS');
+    {$ENDIF}
+ {$ENDIF}
+    RegisterMethod(@TAPPLICATION.BRINGTOFRONT, 'BRINGTOFRONT');
+    RegisterMethod(@TAPPLICATION.MESSAGEBOX, 'MESSAGEBOX');
+    RegisterMethod(@TAPPLICATION.PROCESSMESSAGES, 'PROCESSMESSAGES');
+    RegisterMethod(@TAPPLICATION.TERMINATE, 'TERMINATE');
+    RegisterPropertyHelper(@TAPPLICATIONEXENAME_R, nil, 'EXENAME');
+    RegisterPropertyHelper(@TAPPLICATIONHINT_R, @TAPPLICATIONHINT_W, 'HINT');
+    RegisterPropertyHelper(@TAPPLICATIONMAINFORM_R, nil, 'MAINFORM');
+    RegisterPropertyHelper(@TAPPLICATIONSHOWHINT_R, @TAPPLICATIONSHOWHINT_W, 'SHOWHINT');
+    RegisterPropertyHelper(@TAPPLICATIONSHOWMAINFORM_R, @TAPPLICATIONSHOWMAINFORM_W, 'SHOWMAINFORM');
+    RegisterPropertyHelper(@TAPPLICATIONTERMINATED_R, nil, 'TERMINATED');
+    RegisterPropertyHelper(@TAPPLICATIONTITLE_R, @TAPPLICATIONTITLE_W, 'TITLE');
+    RegisterPropertyHelper(@TAPPLICATIONONIDLE_R, @TAPPLICATIONONIDLE_W, 'ONIDLE');
+    RegisterPropertyHelper(@TAPPLICATIONONHINT_R, @TAPPLICATIONONHINT_W, 'ONHINT');
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod(@TAPPLICATION.CONTROLDESTROYED, 'CONTROLDESTROYED');
+    RegisterMethod(@TAPPLICATION.CANCELHINT, 'CANCELHINT');
+    {$IFNDEF CLX}
+    {$IFNDEF FPC}
+    RegisterMethod(@TAPPLICATION.HELPCOMMAND, 'HELPCOMMAND');
+    {$ENDIF}
+    RegisterMethod(@TAPPLICATION.HELPCONTEXT, 'HELPCONTEXT');
+    {$IFNDEF FPC}
+    RegisterMethod(@TAPPLICATION.HELPJUMP, 'HELPJUMP');
+    {$ENDIF}
+    {$ENDIF}
+//    RegisterMethod(@TAPPLICATION.HANDLEEXCEPTION, 'HANDLEEXCEPTION');
+//    RegisterMethod(@TAPPLICATION.HOOKMAINWINDOW, 'HOOKMAINWINDOW');
+//    RegisterMethod(@TAPPLICATION.UNHOOKMAINWINDOW, 'UNHOOKMAINWINDOW');
+
+    RegisterMethod(@TAPPLICATION.HANDLEMESSAGE, 'HANDLEMESSAGE');
+    RegisterMethod(@TAPPLICATION.HIDEHINT, 'HIDEHINT');
+    RegisterMethod(@TAPPLICATION.HINTMOUSEMESSAGE, 'HINTMOUSEMESSAGE');
+    RegisterMethod(@TAPPLICATION.INITIALIZE, 'INITIALIZE');
+    RegisterMethod(@TAPPLICATION.RUN, 'RUN');
+//    RegisterMethod(@TAPPLICATION.SHOWEXCEPTION, 'SHOWEXCEPTION');
+    RegisterPropertyHelper(@TAPPLICATIONHELPFILE_R, @TAPPLICATIONHELPFILE_W, 'HELPFILE');
+    RegisterPropertyHelper(@TAPPLICATIONHINTCOLOR_R, @TAPPLICATIONHINTCOLOR_W, 'HINTCOLOR');
+    RegisterPropertyHelper(@TAPPLICATIONHINTPAUSE_R, @TAPPLICATIONHINTPAUSE_W, 'HINTPAUSE');
+    RegisterPropertyHelper(@TAPPLICATIONHINTSHORTPAUSE_R, @TAPPLICATIONHINTSHORTPAUSE_W, 'HINTSHORTPAUSE');
+    RegisterPropertyHelper(@TAPPLICATIONHINTHIDEPAUSE_R, @TAPPLICATIONHINTHIDEPAUSE_W, 'HINTHIDEPAUSE');
+    RegisterPropertyHelper(@TAPPLICATIONONHELP_R, @TAPPLICATIONONHELP_W, 'ONHELP');
+    {$ENDIF}
+  end;
+end;
+
+procedure RIRegister_Forms(Cl: TPSRuntimeClassImporter);
+begin
+  {$IFNDEF PS_MINIVCL}
+  RIRegisterTCONTROLSCROLLBAR(cl);
+  RIRegisterTSCROLLBOX(cl);
+  {$ENDIF}
+{$IFNDEF FPC}  RIRegisterTScrollingWinControl(cl);{$ENDIF}
+  RIRegisterTForm(Cl);
+  {$IFNDEF PS_MINIVCL}
+  RIRegisterTApplication(Cl);
+  {$ENDIF}
+end;
+
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+// FPC changes by Boguslaw brandys (brandys at o2 _dot_ pl)
+
+end.
+
+
+
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_graphics.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_graphics.pas
new file mode 100644
index 0000000..7a7643a
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_graphics.pas	
@@ -0,0 +1,218 @@
+
+unit uPSR_graphics;
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+
+
+procedure RIRegisterTGRAPHICSOBJECT(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTFont(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTPEN(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBRUSH(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCanvas(cl: TPSRuntimeClassImporter);
+procedure RIRegisterTGraphic(CL: TPSRuntimeClassImporter);
+procedure RIRegisterTBitmap(CL: TPSRuntimeClassImporter; Streams: Boolean);
+
+procedure RIRegister_Graphics(Cl: TPSRuntimeClassImporter; Streams: Boolean);
+
+implementation
+{$IFNDEF FPC}
+uses
+  Classes{$IFDEF CLX}, QGraphics{$ELSE}, Windows, Graphics{$ENDIF};
+{$ELSE}
+uses
+  Classes, Graphics,LCLType;
+{$ENDIF}
+
+{$IFNDEF CLX}
+procedure TFontHandleR(Self: TFont; var T: Longint); begin T := Self.Handle; end;
+procedure TFontHandleW(Self: TFont; T: Longint); begin Self.Handle := T; end;
+{$ENDIF}
+procedure TFontPixelsPerInchR(Self: TFont; var T: Longint); begin T := Self.PixelsPerInch; end;
+procedure TFontPixelsPerInchW(Self: TFont; T: Longint); begin {$IFNDEF FPC} Self.PixelsPerInch := T;{$ENDIF} end;
+procedure TFontStyleR(Self: TFont; var T: TFontStyles); begin T := Self.Style; end;
+procedure TFontStyleW(Self: TFont; T: TFontStyles); begin Self.Style:= T; end;
+
+procedure RIRegisterTFont(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TFont) do
+  begin
+    RegisterConstructor(@TFont.Create, 'CREATE');
+{$IFNDEF CLX}
+    RegisterPropertyHelper(@TFontHandleR, @TFontHandleW, 'HANDLE');
+{$ENDIF}
+    RegisterPropertyHelper(@TFontPixelsPerInchR, @TFontPixelsPerInchW, 'PIXELSPERINCH');
+    RegisterPropertyHelper(@TFontStyleR, @TFontStyleW, 'STYLE');
+  end;
+end;
+{$IFNDEF CLX}
+procedure TCanvasHandleR(Self: TCanvas; var T: Longint); begin T := Self.Handle; end;
+procedure TCanvasHandleW(Self: TCanvas; T: Longint); begin Self.Handle:= T; end;
+{$ENDIF}
+
+procedure TCanvasPixelsR(Self: TCanvas; var T: Longint; X,Y: Longint); begin T := Self.Pixels[X,Y]; end;
+procedure TCanvasPixelsW(Self: TCanvas; T, X, Y: Longint); begin Self.Pixels[X,Y]:= T; end;
+
+procedure RIRegisterTCanvas(cl: TPSRuntimeClassImporter); // requires TPersistent
+begin
+  with Cl.Add(TCanvas) do
+  begin
+{$IFNDEF FPC}
+    RegisterMethod(@TCanvas.Arc, 'ARC');
+    RegisterMethod(@TCanvas.Chord, 'CHORD');
+    RegisterMethod(@TCanvas.Rectangle, 'RECTANGLE');
+    RegisterMethod(@TCanvas.RoundRect, 'ROUNDRECT');
+    RegisterMethod(@TCanvas.Ellipse, 'ELLIPSE');
+    RegisterMethod(@TCanvas.FillRect, 'FILLRECT');
+{$ENDIF}
+    RegisterMethod(@TCanvas.Draw, 'DRAW');
+{$IFNDEF CLX}
+    RegisterMethod(@TCanvas.FloodFill, 'FLOODFILL');
+{$ENDIF}
+    RegisterMethod(@TCanvas.Lineto, 'LINETO');
+    RegisterMethod(@TCanvas.Moveto, 'MOVETO');
+    RegisterMethod(@TCanvas.Pie, 'PIE');
+    RegisterMethod(@TCanvas.Refresh, 'REFRESH');
+    RegisterMethod(@TCanvas.TextHeight, 'TEXTHEIGHT');
+    RegisterMethod(@TCanvas.TextOut, 'TEXTOUT');
+    RegisterMethod(@TCanvas.TextWidth, 'TEXTWIDTH');
+{$IFNDEF CLX}
+    RegisterPropertyHelper(@TCanvasHandleR, @TCanvasHandleW, 'HANDLE');
+{$ENDIF}
+    RegisterPropertyHelper(@TCanvasPixelsR, @TCanvasPixelsW, 'PIXELS');
+  end;
+end;
+
+
+procedure TGRAPHICSOBJECTONCHANGE_W(Self: TGraphicsObject; T: TNotifyEvent); begin Self.OnChange := t; end;
+procedure TGRAPHICSOBJECTONCHANGE_R(Self: TGraphicsObject; var T: TNotifyEvent); begin T :=Self.OnChange; end;
+
+
+procedure RIRegisterTGRAPHICSOBJECT(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TGRAPHICSOBJECT) do
+  begin
+    RegisterPropertyHelper(@TGRAPHICSOBJECTONCHANGE_R, @TGRAPHICSOBJECTONCHANGE_W, 'ONCHANGE');
+  end;
+end;
+
+procedure RIRegisterTPEN(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TPEN) do
+  begin
+    RegisterConstructor(@TPEN.CREATE, 'CREATE');
+  end;
+end;
+
+procedure RIRegisterTBRUSH(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TBRUSH) do
+  begin
+    RegisterConstructor(@TBRUSH.CREATE, 'CREATE');
+  end;
+end;
+
+procedure TGraphicOnChange_W(Self: TGraphic; const T: TNotifyEvent); begin Self.OnChange := T; end;
+procedure TGraphicOnChange_R(Self: TGraphic; var T: TNotifyEvent); begin T := Self.OnChange; end;
+procedure TGraphicWidth_W(Self: TGraphic; const T: Integer); begin Self.Width := T; end;
+procedure TGraphicWidth_R(Self: TGraphic; var T: Integer); begin T := Self.Width; end;
+procedure TGraphicModified_W(Self: TGraphic; const T: Boolean); begin Self.Modified := T; end;
+procedure TGraphicModified_R(Self: TGraphic; var T: Boolean); begin T := Self.Modified; end;
+procedure TGraphicHeight_W(Self: TGraphic; const T: Integer); begin Self.Height := T; end;
+procedure TGraphicHeight_R(Self: TGraphic; var T: Integer); begin T := Self.Height; end;
+procedure TGraphicEmpty_R(Self: TGraphic; var T: Boolean); begin T := Self.Empty; end;
+
+procedure RIRegisterTGraphic(CL: TPSRuntimeClassImporter);
+begin
+  with CL.Add(TGraphic) do
+  begin
+    RegisterVirtualConstructor(@TGraphic.Create, 'Create');
+    RegisterVirtualMethod(@TGraphic.LoadFromFile, 'LoadFromFile');
+    RegisterVirtualMethod(@TGraphic.SaveToFile, 'SaveToFile');
+    RegisterPropertyHelper(@TGraphicEmpty_R,nil,'Empty');
+    RegisterPropertyHelper(@TGraphicHeight_R,@TGraphicHeight_W,'Height');
+    RegisterPropertyHelper(@TGraphicWidth_R,@TGraphicWidth_W,'Width');
+    RegisterPropertyHelper(@TGraphicOnChange_R,@TGraphicOnChange_W,'OnChange');
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterPropertyHelper(@TGraphicModified_R,@TGraphicModified_W,'Modified');
+    {$ENDIF}
+  end;
+end;
+
+procedure TBitmapTransparentColor_R(Self: TBitmap; var T: TColor); begin T := Self.TransparentColor; end;
+{$IFNDEF CLX}
+{$IFNDEF FPC}
+procedure TBitmapIgnorePalette_W(Self: TBitmap; const T: Boolean); begin Self.IgnorePalette := T; end;
+procedure TBitmapIgnorePalette_R(Self: TBitmap; var T: Boolean); begin T := Self.IgnorePalette; end;
+{$ENDIF}
+procedure TBitmapPalette_W(Self: TBitmap; const T: HPALETTE); begin Self.Palette := T; end;
+procedure TBitmapPalette_R(Self: TBitmap; var T: HPALETTE); begin T := Self.Palette; end;
+{$ENDIF}
+procedure TBitmapMonochrome_W(Self: TBitmap; const T: Boolean); begin Self.Monochrome := T; end;
+procedure TBitmapMonochrome_R(Self: TBitmap; var T: Boolean); begin T := Self.Monochrome; end;
+{$IFNDEF CLX}
+procedure TBitmapHandle_W(Self: TBitmap; const T: HBITMAP); begin Self.Handle := T; end;
+procedure TBitmapHandle_R(Self: TBitmap; var T: HBITMAP); begin T := Self.Handle; end;
+{$ENDIF}
+procedure TBitmapCanvas_R(Self: TBitmap; var T: TCanvas); begin T := Self.Canvas; end;
+
+procedure RIRegisterTBitmap(CL: TPSRuntimeClassImporter; Streams: Boolean);
+begin
+  with CL.Add(TBitmap) do
+  begin
+    if Streams then begin
+      RegisterMethod(@TBitmap.LoadFromStream, 'LoadFromStream');
+      RegisterMethod(@TBitmap.SaveToStream, 'SaveToStream');
+    end;
+    RegisterPropertyHelper(@TBitmapCanvas_R,nil,'Canvas');
+{$IFNDEF CLX}
+    RegisterPropertyHelper(@TBitmapHandle_R,@TBitmapHandle_W,'Handle');
+{$ENDIF}
+
+    {$IFNDEF PS_MINIVCL}
+{$IFNDEF FPC}
+    RegisterMethod(@TBitmap.Dormant, 'Dormant');
+{$ENDIF}
+    RegisterMethod(@TBitmap.FreeImage, 'FreeImage');
+{$IFNDEF CLX}
+    RegisterMethod(@TBitmap.LoadFromClipboardFormat, 'LoadFromClipboardFormat');
+{$ENDIF}
+    RegisterMethod(@TBitmap.LoadFromResourceName, 'LoadFromResourceName');
+    RegisterMethod(@TBitmap.LoadFromResourceID, 'LoadFromResourceID');
+{$IFNDEF CLX}
+    RegisterMethod(@TBitmap.ReleaseHandle, 'ReleaseHandle');
+    RegisterMethod(@TBitmap.ReleasePalette, 'ReleasePalette');
+    RegisterMethod(@TBitmap.SaveToClipboardFormat, 'SaveToClipboardFormat');
+    RegisterPropertyHelper(@TBitmapMonochrome_R,@TBitmapMonochrome_W,'Monochrome');
+    RegisterPropertyHelper(@TBitmapPalette_R,@TBitmapPalette_W,'Palette');
+{$IFNDEF FPC}
+    RegisterPropertyHelper(@TBitmapIgnorePalette_R,@TBitmapIgnorePalette_W,'IgnorePalette');
+{$ENDIF}
+{$ENDIF}
+    RegisterPropertyHelper(@TBitmapTransparentColor_R,nil,'TransparentColor');
+    {$ENDIF}
+  end;
+end;
+
+procedure RIRegister_Graphics(Cl: TPSRuntimeClassImporter; Streams: Boolean);
+begin
+  RIRegisterTGRAPHICSOBJECT(cl);
+  RIRegisterTFont(Cl);
+  RIRegisterTCanvas(cl);
+  RIRegisterTPEN(cl);
+  RIRegisterTBRUSH(cl);
+  RIRegisterTGraphic(CL);
+  RIRegisterTBitmap(CL, Streams);
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+end.
+
+
+
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_menus.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_menus.pas
new file mode 100644
index 0000000..79a0e38
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_menus.pas	
@@ -0,0 +1,460 @@
+ 
+Unit uPSR_menus;
+{$I PascalScript.inc}
+Interface
+Uses uPSRuntime;
+
+procedure RIRegister_Menus_Routines(S: TPSExec);
+{$IFNDEF FPC}
+procedure RIRegisterTMENUITEMSTACK(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTPOPUPLIST(Cl: TPSRuntimeClassImporter);
+{$ENDIF}
+procedure RIRegisterTPOPUPMENU(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTMAINMENU(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTMENU(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTMENUITEM(Cl: TPSRuntimeClassImporter);
+procedure RIRegister_Menus(CL: TPSRuntimeClassImporter);
+
+implementation
+{$IFDEF LINUX}
+{$IFNDEF FPC}
+Uses
+  Libc, SysUtils, Classes, QControls, QMenus, QGraphics;
+{$ELSE}
+Uses
+  SysUtils, Classes, Controls, Menus, Graphics, LCLType, ImgList;
+{$ENDIF}
+{$ELSE}
+Uses {$IFNDEF FPC}WINDOWS,{$ELSE} LCLType,{$ENDIF} SYSUTILS, CLASSES, CONTNRS, MESSAGES, GRAPHICS, IMGLIST, ACTNLIST, Menus;
+{$ENDIF}
+
+
+{$IFNDEF FPC}
+procedure TPOPUPLISTWINDOW_R(Self: TPOPUPLIST; var T: HWND);
+begin T := Self.WINDOW; end;
+{$ENDIF}
+
+procedure TPOPUPMENUONPOPUP_W(Self: TPOPUPMENU; const T: TNOTIFYEVENT);
+begin Self.ONPOPUP := T; end;
+
+procedure TPOPUPMENUONPOPUP_R(Self: TPOPUPMENU; var T: TNOTIFYEVENT);
+begin T := Self.ONPOPUP; end;
+
+{$IFNDEF FPC}
+procedure TPOPUPMENUTRACKBUTTON_W(Self: TPOPUPMENU; const T: TTRACKBUTTON);
+begin Self.TRACKBUTTON := T; end;
+
+procedure TPOPUPMENUTRACKBUTTON_R(Self: TPOPUPMENU; var T: TTRACKBUTTON);
+begin T := Self.TRACKBUTTON; end;
+
+
+procedure TPOPUPMENUMENUANIMATION_W(Self: TPOPUPMENU; const T: TMENUANIMATION);
+begin Self.MENUANIMATION := T; end;
+
+procedure TPOPUPMENUMENUANIMATION_R(Self: TPOPUPMENU; var T: TMENUANIMATION);
+begin T := Self.MENUANIMATION; end;
+
+procedure TPOPUPMENUHELPCONTEXT_W(Self: TPOPUPMENU; const T: THELPCONTEXT);
+begin Self.HELPCONTEXT := T; end;
+
+procedure TPOPUPMENUHELPCONTEXT_R(Self: TPOPUPMENU; var T: THELPCONTEXT);
+begin T := Self.HELPCONTEXT; end;
+{$ENDIF}
+
+procedure TPOPUPMENUAUTOPOPUP_W(Self: TPOPUPMENU; const T: BOOLEAN);
+begin Self.AUTOPOPUP := T; end;
+
+procedure TPOPUPMENUAUTOPOPUP_R(Self: TPOPUPMENU; var T: BOOLEAN);
+begin T := Self.AUTOPOPUP; end;
+
+{$IFNDEF FPC}
+procedure TPOPUPMENUALIGNMENT_W(Self: TPOPUPMENU; const T: TPOPUPALIGNMENT);
+begin Self.ALIGNMENT := T; end;
+
+procedure TPOPUPMENUALIGNMENT_R(Self: TPOPUPMENU; var T: TPOPUPALIGNMENT);
+begin T := Self.ALIGNMENT; end;
+{$ENDIF}
+
+procedure TPOPUPMENUPOPUPCOMPONENT_W(Self: TPOPUPMENU; const T: TCOMPONENT);
+begin Self.POPUPCOMPONENT := T; end;
+
+procedure TPOPUPMENUPOPUPCOMPONENT_R(Self: TPOPUPMENU; var T: TCOMPONENT);
+begin T := Self.POPUPCOMPONENT; end;
+
+{$IFNDEF FPC}
+procedure TMAINMENUAUTOMERGE_W(Self: TMAINMENU; const T: BOOLEAN);
+begin Self.AUTOMERGE := T; end;
+
+procedure TMAINMENUAUTOMERGE_R(Self: TMAINMENU; var T: BOOLEAN);
+begin T := Self.AUTOMERGE; end;
+{$ENDIF}
+
+procedure TMENUITEMS_R(Self: TMENU; var T: TMENUITEM);
+begin T := Self.ITEMS; end;
+
+
+{$IFNDEF FPC}
+procedure TMENUWINDOWHANDLE_W(Self: TMENU; const T: HWND);
+begin Self.WINDOWHANDLE := T; end;
+
+procedure TMENUWINDOWHANDLE_R(Self: TMENU; var T: HWND);
+begin T := Self.WINDOWHANDLE; end;
+
+procedure TMENUPARENTBIDIMODE_W(Self: TMENU; const T: BOOLEAN);
+begin Self.PARENTBIDIMODE := T; end;
+
+procedure TMENUPARENTBIDIMODE_R(Self: TMENU; var T: BOOLEAN);
+begin T := Self.PARENTBIDIMODE; end;
+
+procedure TMENUOWNERDRAW_W(Self: TMENU; const T: BOOLEAN);
+begin Self.OWNERDRAW := T; end;
+
+procedure TMENUOWNERDRAW_R(Self: TMENU; var T: BOOLEAN);
+begin T := Self.OWNERDRAW; end;
+
+procedure TMENUBIDIMODE_W(Self: TMENU; const T: TBIDIMODE);
+begin Self.BIDIMODE := T; end;
+
+procedure TMENUBIDIMODE_R(Self: TMENU; var T: TBIDIMODE);
+begin T := Self.BIDIMODE; end;
+
+procedure TMENUAUTOLINEREDUCTION_W(Self: TMENU; const T: TMENUAUTOFLAG);
+begin Self.AUTOLINEREDUCTION := T; end;
+
+procedure TMENUAUTOLINEREDUCTION_R(Self: TMENU; var T: TMENUAUTOFLAG);
+begin T := Self.AUTOLINEREDUCTION; end;
+
+procedure TMENUAUTOHOTKEYS_W(Self: TMENU; const T: TMENUAUTOFLAG);
+begin Self.AUTOHOTKEYS := T; end;
+
+procedure TMENUAUTOHOTKEYS_R(Self: TMENU; var T: TMENUAUTOFLAG);
+begin T := Self.AUTOHOTKEYS; end;
+
+{$ENDIF}
+
+
+procedure TMENUHANDLE_R(Self: TMENU; var T: HMENU);
+begin T := Self.HANDLE; end;
+
+
+
+
+procedure TMENUIMAGES_W(Self: TMENU; const T: TCUSTOMIMAGELIST);
+begin Self.IMAGES := T; end;
+
+procedure TMENUIMAGES_R(Self: TMENU; var T: TCUSTOMIMAGELIST);
+begin T := Self.IMAGES; end;
+
+{$IFNDEF FPC}
+procedure TMENUITEMONMEASUREITEM_W(Self: TMENUITEM; const T: TMENUMEASUREITEMEVENT);
+begin Self.ONMEASUREITEM := T; end;
+
+procedure TMENUITEMONMEASUREITEM_R(Self: TMENUITEM; var T: TMENUMEASUREITEMEVENT);
+begin T := Self.ONMEASUREITEM; end;
+
+procedure TMENUITEMONADVANCEDDRAWITEM_W(Self: TMENUITEM; const T: TADVANCEDMENUDRAWITEMEVENT);
+begin Self.ONADVANCEDDRAWITEM := T; end;
+
+procedure TMENUITEMONADVANCEDDRAWITEM_R(Self: TMENUITEM; var T: TADVANCEDMENUDRAWITEMEVENT);
+begin T := Self.ONADVANCEDDRAWITEM; end;
+
+procedure TMENUITEMONDRAWITEM_W(Self: TMENUITEM; const T: TMENUDRAWITEMEVENT);
+begin Self.ONDRAWITEM := T; end;
+
+procedure TMENUITEMONDRAWITEM_R(Self: TMENUITEM; var T: TMENUDRAWITEMEVENT);
+begin T := Self.ONDRAWITEM; end;
+{$ENDIF}
+
+procedure TMENUITEMONCLICK_W(Self: TMENUITEM; const T: TNOTIFYEVENT);
+begin Self.ONCLICK := T; end;
+
+procedure TMENUITEMONCLICK_R(Self: TMENUITEM; var T: TNOTIFYEVENT);
+begin T := Self.ONCLICK; end;
+
+procedure TMENUITEMVISIBLE_W(Self: TMENUITEM; const T: BOOLEAN);
+begin Self.VISIBLE := T; end;
+
+procedure TMENUITEMVISIBLE_R(Self: TMENUITEM; var T: BOOLEAN);
+begin T := Self.VISIBLE; end;
+
+procedure TMENUITEMSHORTCUT_W(Self: TMENUITEM; const T: TSHORTCUT);
+begin Self.SHORTCUT := T; end;
+
+procedure TMENUITEMSHORTCUT_R(Self: TMENUITEM; var T: TSHORTCUT);
+begin T := Self.SHORTCUT; end;
+
+procedure TMENUITEMRADIOITEM_W(Self: TMENUITEM; const T: BOOLEAN);
+begin Self.RADIOITEM := T; end;
+
+procedure TMENUITEMRADIOITEM_R(Self: TMENUITEM; var T: BOOLEAN);
+begin T := Self.RADIOITEM; end;
+
+procedure TMENUITEMIMAGEINDEX_W(Self: TMENUITEM; const T: TIMAGEINDEX);
+begin Self.IMAGEINDEX := T; end;
+
+procedure TMENUITEMIMAGEINDEX_R(Self: TMENUITEM; var T: TIMAGEINDEX);
+begin T := Self.IMAGEINDEX; end;
+
+procedure TMENUITEMHINT_W(Self: TMENUITEM; const T: STRING);
+begin Self.HINT := T; end;
+
+procedure TMENUITEMHINT_R(Self: TMENUITEM; var T: STRING);
+begin T := Self.HINT; end;
+
+procedure TMENUITEMHELPCONTEXT_W(Self: TMENUITEM; const T: THELPCONTEXT);
+begin Self.HELPCONTEXT := T; end;
+
+procedure TMENUITEMHELPCONTEXT_R(Self: TMENUITEM; var T: THELPCONTEXT);
+begin T := Self.HELPCONTEXT; end;
+
+procedure TMENUITEMGROUPINDEX_W(Self: TMENUITEM; const T: BYTE);
+begin Self.GROUPINDEX := T; end;
+
+procedure TMENUITEMGROUPINDEX_R(Self: TMENUITEM; var T: BYTE);
+begin T := Self.GROUPINDEX; end;
+
+procedure TMENUITEMENABLED_W(Self: TMENUITEM; const T: BOOLEAN);
+begin Self.ENABLED := T; end;
+
+procedure TMENUITEMENABLED_R(Self: TMENUITEM; var T: BOOLEAN);
+begin T := Self.ENABLED; end;
+
+procedure TMENUITEMDEFAULT_W(Self: TMENUITEM; const T: BOOLEAN);
+begin Self.DEFAULT := T; end;
+
+procedure TMENUITEMDEFAULT_R(Self: TMENUITEM; var T: BOOLEAN);
+begin T := Self.DEFAULT; end;
+
+procedure TMENUITEMSUBMENUIMAGES_W(Self: TMENUITEM; const T: TCUSTOMIMAGELIST);
+begin Self.SUBMENUIMAGES := T; end;
+
+procedure TMENUITEMSUBMENUIMAGES_R(Self: TMENUITEM; var T: TCUSTOMIMAGELIST);
+begin T := Self.SUBMENUIMAGES; end;
+
+procedure TMENUITEMCHECKED_W(Self: TMENUITEM; const T: BOOLEAN);
+begin Self.CHECKED := T; end;
+
+procedure TMENUITEMCHECKED_R(Self: TMENUITEM; var T: BOOLEAN);
+begin T := Self.CHECKED; end;
+
+procedure TMENUITEMCAPTION_W(Self: TMENUITEM; const T: STRING);
+begin Self.CAPTION := T; end;
+
+procedure TMENUITEMCAPTION_R(Self: TMENUITEM; var T: STRING);
+begin T := Self.CAPTION; end;
+
+procedure TMENUITEMBITMAP_W(Self: TMENUITEM; const T: TBITMAP);
+begin Self.BITMAP := T; end;
+
+procedure TMENUITEMBITMAP_R(Self: TMENUITEM; var T: TBITMAP);
+begin T := Self.BITMAP; end;
+
+{$IFNDEF FPC}
+procedure TMENUITEMAUTOLINEREDUCTION_W(Self: TMENUITEM; const T: TMENUITEMAUTOFLAG);
+begin Self.AUTOLINEREDUCTION := T; end;
+
+procedure TMENUITEMAUTOLINEREDUCTION_R(Self: TMENUITEM; var T: TMENUITEMAUTOFLAG);
+begin T := Self.AUTOLINEREDUCTION; end;
+
+procedure TMENUITEMAUTOHOTKEYS_W(Self: TMENUITEM; const T: TMENUITEMAUTOFLAG);
+begin Self.AUTOHOTKEYS := T; end;
+
+procedure TMENUITEMAUTOHOTKEYS_R(Self: TMENUITEM; var T: TMENUITEMAUTOFLAG);
+begin T := Self.AUTOHOTKEYS; end;
+{$ENDIF}
+
+procedure TMENUITEMACTION_W(Self: TMENUITEM; const T: TBASICACTION);
+begin Self.ACTION := T; end;
+
+procedure TMENUITEMACTION_R(Self: TMENUITEM; var T: TBASICACTION);
+begin T := Self.ACTION; end;
+
+procedure TMENUITEMPARENT_R(Self: TMENUITEM; var T: TMENUITEM);
+begin T := Self.PARENT; end;
+
+procedure TMENUITEMMENUINDEX_W(Self: TMENUITEM; const T: INTEGER);
+begin Self.MENUINDEX := T; end;
+
+procedure TMENUITEMMENUINDEX_R(Self: TMENUITEM; var T: INTEGER);
+begin T := Self.MENUINDEX; end;
+
+procedure TMENUITEMITEMS_R(Self: TMENUITEM; var T: TMENUITEM; const t1: INTEGER);
+begin T := Self.ITEMS[t1]; end;
+
+procedure TMENUITEMCOUNT_R(Self: TMENUITEM; var T: INTEGER);
+begin T := Self.COUNT; end;
+
+procedure TMENUITEMHANDLE_R(Self: TMENUITEM; var T: HMENU);
+begin T := Self.HANDLE; end;
+
+procedure TMENUITEMCOMMAND_R(Self: TMENUITEM; var T: WORD);
+begin T := Self.COMMAND; end;
+
+procedure RIRegister_Menus_Routines(S: TPSExec);
+begin
+  S.RegisterDelphiFunction(@SHORTCUT, 'SHORTCUT', cdRegister);
+	S.RegisterDelphiFunction(@SHORTCUTTOKEY, 'SHORTCUTTOKEY', cdRegister);
+{$IFNDEF FPC}
+  S.RegisterDelphiFunction(@SHORTCUTTOTEXT, 'SHORTCUTTOTEXT', cdRegister);
+  S.RegisterDelphiFunction(@TEXTTOSHORTCUT, 'TEXTTOSHORTCUT', cdRegister);
+  S.RegisterDelphiFunction(@NEWMENU, 'NEWMENU', cdRegister);
+  S.RegisterDelphiFunction(@NEWPOPUPMENU, 'NEWPOPUPMENU', cdRegister);
+  S.RegisterDelphiFunction(@NEWSUBMENU, 'NEWSUBMENU', cdRegister);
+  S.RegisterDelphiFunction(@NEWITEM, 'NEWITEM', cdRegister);
+  S.RegisterDelphiFunction(@NEWLINE, 'NEWLINE', cdRegister);
+	S.RegisterDelphiFunction(@DRAWMENUITEM, 'DRAWMENUITEM', cdRegister);
+{$ENDIF}	
+end;
+
+{$IFNDEF FPC}
+procedure RIRegisterTMENUITEMSTACK(Cl: TPSRuntimeClassImporter);
+begin
+	with Cl.Add(TMENUITEMSTACK) do
+	begin
+		RegisterMethod(@TMENUITEMSTACK.CLEARITEM, 'CLEARITEM');
+	end;
+end;
+
+procedure RIRegisterTPOPUPLIST(Cl: TPSRuntimeClassImporter);
+begin
+	with Cl.Add(TPOPUPLIST) do
+	begin
+		RegisterPropertyHelper(@TPOPUPLISTWINDOW_R,nil,'WINDOW');
+		RegisterMethod(@TPOPUPLIST.ADD, 'ADD');
+		RegisterMethod(@TPOPUPLIST.REMOVE, 'REMOVE');
+	end;
+end;
+{$ENDIF}
+
+
+procedure RIRegisterTPOPUPMENU(Cl: TPSRuntimeClassImporter);
+begin
+	with Cl.Add(TPOPUPMENU) do
+  begin
+		RegisterConstructor(@TPOPUPMENU.CREATE, 'CREATE');
+		RegisterVirtualMethod(@TPOPUPMENU.POPUP, 'POPUP');
+		RegisterPropertyHelper(@TPOPUPMENUPOPUPCOMPONENT_R,@TPOPUPMENUPOPUPCOMPONENT_W,'POPUPCOMPONENT');
+		RegisterEventPropertyHelper(@TPOPUPMENUONPOPUP_R,@TPOPUPMENUONPOPUP_W,'ONPOPUP');
+{$IFNDEF FPC}
+		RegisterPropertyHelper(@TPOPUPMENUALIGNMENT_R,@TPOPUPMENUALIGNMENT_W,'ALIGNMENT');
+		RegisterPropertyHelper(@TPOPUPMENUAUTOPOPUP_R,@TPOPUPMENUAUTOPOPUP_W,'AUTOPOPUP');
+		RegisterPropertyHelper(@TPOPUPMENUHELPCONTEXT_R,@TPOPUPMENUHELPCONTEXT_W,'HELPCONTEXT');
+		RegisterPropertyHelper(@TPOPUPMENUMENUANIMATION_R,@TPOPUPMENUMENUANIMATION_W,'MENUANIMATION');
+		RegisterPropertyHelper(@TPOPUPMENUTRACKBUTTON_R,@TPOPUPMENUTRACKBUTTON_W,'TRACKBUTTON');
+{$ENDIF}
+	end;
+end;
+
+procedure RIRegisterTMAINMENU(Cl: TPSRuntimeClassImporter);
+begin
+	with Cl.Add(TMAINMENU) do
+	begin
+{$IFNDEF FPC}
+		RegisterMethod(@TMAINMENU.MERGE, 'MERGE');
+		RegisterMethod(@TMAINMENU.UNMERGE, 'UNMERGE');
+		RegisterMethod(@TMAINMENU.POPULATEOLE2MENU, 'POPULATEOLE2MENU');
+		RegisterMethod(@TMAINMENU.GETOLE2ACCELERATORTABLE, 'GETOLE2ACCELERATORTABLE');
+		RegisterMethod(@TMAINMENU.SETOLE2MENUHANDLE, 'SETOLE2MENUHANDLE');
+		RegisterPropertyHelper(@TMAINMENUAUTOMERGE_R,@TMAINMENUAUTOMERGE_W,'AUTOMERGE');
+{$ENDIF}		
+	end;
+end;
+
+
+procedure RIRegisterTMENU(Cl: TPSRuntimeClassImporter);
+begin
+	with Cl.Add(TMENU) do
+	begin
+		RegisterConstructor(@TMENU.CREATE, 'CREATE');
+		RegisterMethod(@TMENU.DISPATCHCOMMAND, 'DISPATCHCOMMAND');
+		RegisterMethod(@TMENU.FINDITEM, 'FINDITEM');
+		RegisterPropertyHelper(@TMENUIMAGES_R,@TMENUIMAGES_W,'IMAGES');
+		RegisterMethod(@TMENU.ISRIGHTTOLEFT, 'ISRIGHTTOLEFT');
+		RegisterPropertyHelper(@TMENUHANDLE_R,nil,'HANDLE');
+		RegisterPropertyHelper(@TMENUITEMS_R,nil,'ITEMS');
+{$IFNDEF FPC}
+		RegisterMethod(@TMENU.DISPATCHPOPUP, 'DISPATCHPOPUP');
+		RegisterMethod(@TMENU.PARENTBIDIMODECHANGED, 'PARENTBIDIMODECHANGED');
+		RegisterMethod(@TMENU.PROCESSMENUCHAR, 'PROCESSMENUCHAR');
+		RegisterPropertyHelper(@TMENUAUTOHOTKEYS_R,@TMENUAUTOHOTKEYS_W,'AUTOHOTKEYS');
+		RegisterPropertyHelper(@TMENUAUTOLINEREDUCTION_R,@TMENUAUTOLINEREDUCTION_W,'AUTOLINEREDUCTION');
+		RegisterPropertyHelper(@TMENUBIDIMODE_R,@TMENUBIDIMODE_W,'BIDIMODE');
+		RegisterMethod(@TMENU.GETHELPCONTEXT, 'GETHELPCONTEXT');
+		RegisterPropertyHelper(@TMENUOWNERDRAW_R,@TMENUOWNERDRAW_W,'OWNERDRAW');
+		RegisterPropertyHelper(@TMENUPARENTBIDIMODE_R,@TMENUPARENTBIDIMODE_W,'PARENTBIDIMODE');
+		RegisterPropertyHelper(@TMENUWINDOWHANDLE_R,@TMENUWINDOWHANDLE_W,'WINDOWHANDLE');
+{$ENDIF}
+	end;
+end;
+
+procedure RIRegisterTMENUITEM(Cl: TPSRuntimeClassImporter);
+begin
+	with Cl.Add(TMENUITEM) do
+	begin
+		RegisterConstructor(@TMENUITEM.CREATE, 'CREATE');
+		RegisterVirtualMethod(@TMENUITEM.INITIATEACTION, 'INITIATEACTION');
+		RegisterMethod(@TMENUITEM.INSERT, 'INSERT');
+		RegisterMethod(@TMENUITEM.DELETE, 'DELETE');
+		RegisterMethod(@TMENUITEM.CLEAR, 'CLEAR');
+		RegisterVirtualMethod(@TMENUITEM.CLICK, 'CLICK');
+{$IFNDEF FPC}
+		RegisterMethod(@TMENUITEM.FIND, 'FIND');
+		RegisterMethod(@TMENUITEM.NEWTOPLINE, 'NEWTOPLINE');
+		RegisterMethod(@TMENUITEM.NEWBOTTOMLINE, 'NEWBOTTOMLINE');
+		RegisterMethod(@TMENUITEM.INSERTNEWLINEBEFORE, 'INSERTNEWLINEBEFORE');
+		RegisterMethod(@TMENUITEM.INSERTNEWLINEAFTER, 'INSERTNEWLINEAFTER');
+		RegisterMethod(@TMENUITEM.RETHINKHOTKEYS, 'RETHINKHOTKEYS');
+		RegisterMethod(@TMENUITEM.RETHINKLINES, 'RETHINKLINES');
+		RegisterMethod(@TMENUITEM.ISLINE, 'ISLINE');
+{$ENDIF}
+		RegisterMethod(@TMENUITEM.INDEXOF, 'INDEXOF');
+		RegisterMethod(@TMENUITEM.GETIMAGELIST, 'GETIMAGELIST');
+		RegisterMethod(@TMENUITEM.GETPARENTCOMPONENT, 'GETPARENTCOMPONENT');
+		RegisterMethod(@TMENUITEM.GETPARENTMENU, 'GETPARENTMENU');
+		RegisterMethod(@TMENUITEM.HASPARENT, 'HASPARENT');
+		RegisterMethod(@TMENUITEM.ADD, 'ADD');
+		RegisterMethod(@TMENUITEM.REMOVE, 'REMOVE');
+{$IFNDEF FPC}
+		RegisterPropertyHelper(@TMENUITEMAUTOHOTKEYS_R,@TMENUITEMAUTOHOTKEYS_W,'AUTOHOTKEYS');
+		RegisterPropertyHelper(@TMENUITEMAUTOLINEREDUCTION_R,@TMENUITEMAUTOLINEREDUCTION_W,'AUTOLINEREDUCTION');
+		RegisterEventPropertyHelper(@TMENUITEMONDRAWITEM_R,@TMENUITEMONDRAWITEM_W,'ONDRAWITEM');
+		RegisterEventPropertyHelper(@TMENUITEMONADVANCEDDRAWITEM_R,@TMENUITEMONADVANCEDDRAWITEM_W,'ONADVANCEDDRAWITEM');
+		RegisterEventPropertyHelper(@TMENUITEMONMEASUREITEM_R,@TMENUITEMONMEASUREITEM_W,'ONMEASUREITEM');
+{$ENDIF}
+		RegisterPropertyHelper(@TMENUITEMCOMMAND_R,nil,'COMMAND');
+		RegisterPropertyHelper(@TMENUITEMHANDLE_R,nil,'HANDLE');
+		RegisterPropertyHelper(@TMENUITEMCOUNT_R,nil,'COUNT');
+		RegisterPropertyHelper(@TMENUITEMITEMS_R,nil,'ITEMS');
+		RegisterPropertyHelper(@TMENUITEMMENUINDEX_R,@TMENUITEMMENUINDEX_W,'MENUINDEX');
+		RegisterPropertyHelper(@TMENUITEMPARENT_R,nil,'PARENT');
+		RegisterPropertyHelper(@TMENUITEMACTION_R,@TMENUITEMACTION_W,'ACTION');
+		RegisterPropertyHelper(@TMENUITEMBITMAP_R,@TMENUITEMBITMAP_W,'BITMAP');
+		RegisterPropertyHelper(@TMENUITEMCAPTION_R,@TMENUITEMCAPTION_W,'CAPTION');
+		RegisterPropertyHelper(@TMENUITEMCHECKED_R,@TMENUITEMCHECKED_W,'CHECKED');
+		RegisterPropertyHelper(@TMENUITEMSUBMENUIMAGES_R,@TMENUITEMSUBMENUIMAGES_W,'SUBMENUIMAGES');
+		RegisterPropertyHelper(@TMENUITEMDEFAULT_R,@TMENUITEMDEFAULT_W,'DEFAULT');
+		RegisterPropertyHelper(@TMENUITEMENABLED_R,@TMENUITEMENABLED_W,'ENABLED');
+		RegisterPropertyHelper(@TMENUITEMGROUPINDEX_R,@TMENUITEMGROUPINDEX_W,'GROUPINDEX');
+		RegisterPropertyHelper(@TMENUITEMHELPCONTEXT_R,@TMENUITEMHELPCONTEXT_W,'HELPCONTEXT');
+		RegisterPropertyHelper(@TMENUITEMHINT_R,@TMENUITEMHINT_W,'HINT');
+		RegisterPropertyHelper(@TMENUITEMIMAGEINDEX_R,@TMENUITEMIMAGEINDEX_W,'IMAGEINDEX');
+		RegisterPropertyHelper(@TMENUITEMRADIOITEM_R,@TMENUITEMRADIOITEM_W,'RADIOITEM');
+		RegisterPropertyHelper(@TMENUITEMSHORTCUT_R,@TMENUITEMSHORTCUT_W,'SHORTCUT');
+		RegisterPropertyHelper(@TMENUITEMVISIBLE_R,@TMENUITEMVISIBLE_W,'VISIBLE');
+		RegisterEventPropertyHelper(@TMENUITEMONCLICK_R,@TMENUITEMONCLICK_W,'ONCLICK');
+	end;
+end;
+
+procedure RIRegister_Menus(CL: TPSRuntimeClassImporter);
+begin
+	RIRegisterTMENUITEM(Cl);
+	RIRegisterTMENU(Cl);
+	RIRegisterTPOPUPMENU(Cl);
+	RIRegisterTMAINMENU(Cl);
+	{$IFNDEF FPC}
+	RIRegisterTPOPUPLIST(Cl);
+	RIRegisterTMENUITEMSTACK(Cl);
+	{$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_std.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_std.pas
new file mode 100644
index 0000000..a67946e
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_std.pas	
@@ -0,0 +1,85 @@
+
+unit uPSR_std;
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+
+procedure RIRegisterTObject(CL: TPSRuntimeClassImporter);
+procedure RIRegisterTPersistent(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTComponent(Cl: TPSRuntimeClassImporter);
+procedure RIRegister_Std(Cl: TPSRuntimeClassImporter);
+
+implementation
+uses
+  Classes;
+
+
+
+procedure RIRegisterTObject(CL: TPSRuntimeClassImporter); 
+begin
+  with cl.Add(TObject) do
+  begin
+    RegisterConstructor(@TObject.Create, 'CREATE');
+    RegisterMethod(@TObject.Free, 'FREE');
+  end;
+end;
+
+procedure RIRegisterTPersistent(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TPersistent) do
+  begin
+    RegisterVirtualMethod(@TPersistent.Assign, 'ASSIGN');
+  end;
+end;
+
+procedure TComponentOwnerR(Self: TComponent; var T: TComponent); begin T := Self.Owner; end;
+
+
+procedure TCOMPONENTCOMPONENTS_R(Self: TCOMPONENT; var T: TCOMPONENT; t1: INTEGER); begin T := Self.COMPONENTS[t1]; end;
+procedure TCOMPONENTCOMPONENTCOUNT_R(Self: TCOMPONENT; var T: INTEGER); begin t := Self.COMPONENTCOUNT; end;
+procedure TCOMPONENTCOMPONENTINDEX_R(Self: TCOMPONENT; var T: INTEGER); begin t := Self.COMPONENTINDEX; end;
+procedure TCOMPONENTCOMPONENTINDEX_W(Self: TCOMPONENT; T: INTEGER); begin Self.COMPONENTINDEX := t; end;
+procedure TCOMPONENTCOMPONENTSTATE_R(Self: TCOMPONENT; var T: TCOMPONENTSTATE); begin t := Self.COMPONENTSTATE; end;
+procedure TCOMPONENTDESIGNINFO_R(Self: TCOMPONENT; var T: LONGINT); begin t := Self.DESIGNINFO; end;
+procedure TCOMPONENTDESIGNINFO_W(Self: TCOMPONENT; T: LONGINT); begin Self.DESIGNINFO := t; end;
+
+
+procedure RIRegisterTComponent(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TComponent) do
+  begin
+    RegisterMethod(@TComponent.FindComponent, 'FINDCOMPONENT');
+    RegisterVirtualConstructor(@TComponent.Create, 'CREATE');
+    RegisterPropertyHelper(@TComponentOwnerR, nil, 'OWNER');
+
+    RegisterMethod(@TCOMPONENT.DESTROYCOMPONENTS, 'DESTROYCOMPONENTS');
+    RegisterPropertyHelper(@TCOMPONENTCOMPONENTS_R, nil, 'COMPONENTS');
+    RegisterPropertyHelper(@TCOMPONENTCOMPONENTCOUNT_R, nil, 'COMPONENTCOUNT');
+    RegisterPropertyHelper(@TCOMPONENTCOMPONENTINDEX_R, @TCOMPONENTCOMPONENTINDEX_W, 'COMPONENTINDEX');
+    RegisterPropertyHelper(@TCOMPONENTCOMPONENTSTATE_R, nil, 'COMPONENTSTATE');
+    RegisterPropertyHelper(@TCOMPONENTDESIGNINFO_R, @TCOMPONENTDESIGNINFO_W, 'DESIGNINFO');
+  end;
+end;
+
+
+
+
+
+
+
+procedure RIRegister_Std(Cl: TPSRuntimeClassImporter);
+begin
+  RIRegisterTObject(CL);
+  RIRegisterTPersistent(Cl);
+  RIRegisterTComponent(Cl);
+end;
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+end.
+
+
+
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_stdctrls.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_stdctrls.pas
new file mode 100644
index 0000000..87eeab9
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSR_stdctrls.pas	
@@ -0,0 +1,287 @@
+{ STDCtrls import unit }
+unit uPSR_stdctrls;
+
+{$I PascalScript.inc}
+interface
+uses
+  uPSRuntime, uPSUtils;
+
+
+procedure RIRegisterTCUSTOMGROUPBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTGROUPBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCUSTOMLABEL(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTLABEL(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCUSTOMEDIT(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTEDIT(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCUSTOMMEMO(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTMEMO(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCUSTOMCOMBOBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCOMBOBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBUTTONCONTROL(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTBUTTON(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCUSTOMCHECKBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCHECKBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTRADIOBUTTON(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTCUSTOMLISTBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTLISTBOX(Cl: TPSRuntimeClassImporter);
+procedure RIRegisterTSCROLLBAR(Cl: TPSRuntimeClassImporter);
+
+procedure RIRegister_stdctrls(cl: TPSRuntimeClassImporter);
+
+implementation
+uses
+  sysutils, classes{$IFDEF CLX}, QControls, QStdCtrls, QGraphics{$ELSE}, controls, stdctrls, Graphics{$ENDIF}{$IFDEF FPC},buttons{$ENDIF};
+
+procedure RIRegisterTCUSTOMGROUPBOX(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TCUSTOMGROUPBOX);
+end;
+
+
+procedure RIRegisterTGROUPBOX(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TGROUPBOX);
+end;
+{$IFNDEF CLX}
+procedure TCUSTOMLABELCANVAS_R(Self: TCUSTOMLABEL; var T: TCanvas); begin T := Self.CANVAS; end;
+{$ENDIF}
+
+procedure RIRegisterTCUSTOMLABEL(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TCUSTOMLABEL) do
+  begin
+    {$IFNDEF PS_MINIVCL}
+{$IFNDEF CLX}
+    RegisterPropertyHelper(@TCUSTOMLABELCANVAS_R, nil, 'CANVAS');
+{$ENDIF}
+    {$ENDIF}
+  end;
+end;
+
+procedure RIRegisterTLABEL(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TLABEL);
+end;
+procedure TCUSTOMEDITMODIFIED_R(Self: TCUSTOMEDIT; var T: BOOLEAN); begin T := Self.MODIFIED; end;
+procedure TCUSTOMEDITMODIFIED_W(Self: TCUSTOMEDIT; T: BOOLEAN); begin Self.MODIFIED := T; end;
+procedure TCUSTOMEDITSELLENGTH_R(Self: TCUSTOMEDIT; var T: INTEGER); begin T := Self.SELLENGTH; end;
+procedure TCUSTOMEDITSELLENGTH_W(Self: TCUSTOMEDIT; T: INTEGER); begin Self.SELLENGTH := T; end;
+procedure TCUSTOMEDITSELSTART_R(Self: TCUSTOMEDIT; var T: INTEGER); begin T := Self.SELSTART; end;
+procedure TCUSTOMEDITSELSTART_W(Self: TCUSTOMEDIT; T: INTEGER); begin Self.SELSTART := T; end;
+procedure TCUSTOMEDITSELTEXT_R(Self: TCUSTOMEDIT; var T: STRING); begin T := Self.SELTEXT; end;
+procedure TCUSTOMEDITSELTEXT_W(Self: TCUSTOMEDIT; T: STRING); begin Self.SELTEXT := T; end;
+procedure TCUSTOMEDITTEXT_R(Self: TCUSTOMEDIT; var T: string); begin T := Self.TEXT; end;
+procedure TCUSTOMEDITTEXT_W(Self: TCUSTOMEDIT; T: string); begin Self.TEXT := T; end;
+
+
+procedure RIRegisterTCUSTOMEDIT(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TCUSTOMEDIT) do
+  begin
+    RegisterMethod(@TCUSTOMEDIT.CLEAR, 'CLEAR');
+    RegisterMethod(@TCUSTOMEDIT.CLEARSELECTION, 'CLEARSELECTION');
+    RegisterMethod(@TCUSTOMEDIT.SELECTALL, 'SELECTALL');
+    RegisterPropertyHelper(@TCUSTOMEDITMODIFIED_R, @TCUSTOMEDITMODIFIED_W, 'MODIFIED');
+    RegisterPropertyHelper(@TCUSTOMEDITSELLENGTH_R, @TCUSTOMEDITSELLENGTH_W, 'SELLENGTH');
+    RegisterPropertyHelper(@TCUSTOMEDITSELSTART_R, @TCUSTOMEDITSELSTART_W, 'SELSTART');
+    RegisterPropertyHelper(@TCUSTOMEDITSELTEXT_R, @TCUSTOMEDITSELTEXT_W, 'SELTEXT');
+    RegisterPropertyHelper(@TCUSTOMEDITTEXT_R, @TCUSTOMEDITTEXT_W, 'TEXT');
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod(@TCUSTOMEDIT.COPYTOCLIPBOARD, 'COPYTOCLIPBOARD');
+    RegisterMethod(@TCUSTOMEDIT.CUTTOCLIPBOARD, 'CUTTOCLIPBOARD');
+		RegisterMethod(@TCUSTOMEDIT.PASTEFROMCLIPBOARD, 'PASTEFROMCLIPBOARD');
+		{$IFNDEF FPC}
+		RegisterMethod(@TCUSTOMEDIT.GETSELTEXTBUF, 'GETSELTEXTBUF');
+    RegisterMethod(@TCUSTOMEDIT.SETSELTEXTBUF, 'SETSELTEXTBUF');
+		{$ENDIF}{FPC}
+    {$ENDIF}
+  end;
+end;
+
+procedure RIRegisterTEDIT(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TEDIT);
+end;
+
+
+procedure TCUSTOMMEMOLINES_R(Self: {$IFDEF CLX}TMemo{$ELSE}TCUSTOMMEMO{$ENDIF}; var T: TSTRINGS); begin T := Self.LINES; end;
+procedure TCUSTOMMEMOLINES_W(Self: {$IFDEF CLX}TMemo{$ELSE}TCUSTOMMEMO{$ENDIF}; T: TSTRINGS); begin Self.LINES := T; end;
+
+
+procedure RIRegisterTCUSTOMMEMO(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TCUSTOMMEMO) do
+  begin
+    {$IFNDEF CLX}
+    RegisterPropertyHelper(@TCUSTOMMEMOLINES_R, @TCUSTOMMEMOLINES_W, 'LINES');
+    {$ENDIF}
+  end;
+end;
+
+
+procedure RIRegisterTMEMO(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TMEMO) do
+  begin
+    {$IFDEF CLX}
+    RegisterPropertyHelper(@TCUSTOMMEMOLINES_R, @TCUSTOMMEMOLINES_W, 'LINES');
+    {$ENDIF}
+  end;
+end;
+
+
+procedure TCUSTOMCOMBOBOXCANVAS_R(Self: TCUSTOMCOMBOBOX; var T: TCANVAS); begin T := Self.CANVAS; end;
+procedure TCUSTOMCOMBOBOXDROPPEDDOWN_R(Self: TCUSTOMCOMBOBOX; var T: BOOLEAN); begin T := Self.DROPPEDDOWN; end;
+procedure TCUSTOMCOMBOBOXDROPPEDDOWN_W(Self: TCUSTOMCOMBOBOX; T: BOOLEAN); begin Self.DROPPEDDOWN := T; end;
+procedure TCUSTOMCOMBOBOXITEMS_R(Self: TCUSTOMCOMBOBOX; var T: TSTRINGS); begin T := Self.ITEMS; end;
+procedure TCUSTOMCOMBOBOXITEMS_W(Self: TCUSTOMCOMBOBOX; T: TSTRINGS); begin Self.ITEMS := T; end;
+procedure TCUSTOMCOMBOBOXITEMINDEX_R(Self: TCUSTOMCOMBOBOX; var T: INTEGER); begin T := Self.ITEMINDEX; end;
+procedure TCUSTOMCOMBOBOXITEMINDEX_W(Self: TCUSTOMCOMBOBOX; T: INTEGER); begin Self.ITEMINDEX := T; end;
+procedure TCUSTOMCOMBOBOXSELLENGTH_R(Self: TCUSTOMCOMBOBOX; var T: INTEGER); begin T := Self.SELLENGTH; end;
+procedure TCUSTOMCOMBOBOXSELLENGTH_W(Self: TCUSTOMCOMBOBOX; T: INTEGER); begin Self.SELLENGTH := T; end;
+procedure TCUSTOMCOMBOBOXSELSTART_R(Self: TCUSTOMCOMBOBOX; var T: INTEGER); begin T := Self.SELSTART; end;
+procedure TCUSTOMCOMBOBOXSELSTART_W(Self: TCUSTOMCOMBOBOX; T: INTEGER); begin Self.SELSTART := T; end;
+procedure TCUSTOMCOMBOBOXSELTEXT_R(Self: TCUSTOMCOMBOBOX; var T: STRING); begin T := Self.SELTEXT; end;
+procedure TCUSTOMCOMBOBOXSELTEXT_W(Self: TCUSTOMCOMBOBOX; T: STRING); begin Self.SELTEXT := T; end;
+
+
+procedure RIRegisterTCUSTOMCOMBOBOX(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TCUSTOMCOMBOBOX) do
+  begin
+    RegisterPropertyHelper(@TCUSTOMCOMBOBOXDROPPEDDOWN_R, @TCUSTOMCOMBOBOXDROPPEDDOWN_W, 'DROPPEDDOWN');
+    RegisterPropertyHelper(@TCUSTOMCOMBOBOXITEMS_R, @TCUSTOMCOMBOBOXITEMS_W, 'ITEMS');
+    RegisterPropertyHelper(@TCUSTOMCOMBOBOXITEMINDEX_R, @TCUSTOMCOMBOBOXITEMINDEX_W, 'ITEMINDEX');
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod(@TCUSTOMCOMBOBOX.CLEAR, 'CLEAR');
+    RegisterMethod(@TCUSTOMCOMBOBOX.SELECTALL, 'SELECTALL');
+    RegisterPropertyHelper(@TCUSTOMCOMBOBOXCANVAS_R, nil, 'CANVAS');
+    RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELLENGTH_R, @TCUSTOMCOMBOBOXSELLENGTH_W, 'SELLENGTH');
+    RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELSTART_R, @TCUSTOMCOMBOBOXSELSTART_W, 'SELSTART');
+    RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELTEXT_R, @TCUSTOMCOMBOBOXSELTEXT_W, 'SELTEXT');
+    {$ENDIF}
+  end;
+end;
+
+
+
+
+procedure RIRegisterTCOMBOBOX(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TCOMBOBOX);
+end;
+
+
+
+procedure RIRegisterTBUTTONCONTROL(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TBUTTONCONTROL);
+end;
+
+
+
+procedure RIRegisterTBUTTON(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TBUTTON);
+end;
+
+
+
+
+procedure RIRegisterTCUSTOMCHECKBOX(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TCUSTOMCHECKBOX);
+end;
+
+
+procedure RIRegisterTCHECKBOX(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TCHECKBOX);
+end;
+
+
+procedure RIRegisterTRADIOBUTTON(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TRADIOBUTTON);
+end;
+
+procedure TCUSTOMLISTBOXCANVAS_R(Self: TCUSTOMLISTBOX; var T: TCANVAS); begin T := Self.CANVAS; end;
+procedure TCUSTOMLISTBOXITEMS_R(Self: TCUSTOMLISTBOX; var T: TSTRINGS); begin T := Self.ITEMS; end;
+procedure TCUSTOMLISTBOXITEMS_W(Self: TCUSTOMLISTBOX; T: TSTRINGS); begin Self.ITEMS := T; end;
+procedure TCUSTOMLISTBOXITEMINDEX_R(Self: TCUSTOMLISTBOX; var T: INTEGER); begin T := Self.ITEMINDEX; end;
+procedure TCUSTOMLISTBOXITEMINDEX_W(Self: TCUSTOMLISTBOX; T: INTEGER); begin Self.ITEMINDEX := T; end;
+procedure TCUSTOMLISTBOXSELCOUNT_R(Self: TCUSTOMLISTBOX; var T: INTEGER); begin T := Self.SELCOUNT; end;
+procedure TCUSTOMLISTBOXSELECTED_R(Self: TCUSTOMLISTBOX; var T: BOOLEAN; t1: INTEGER); begin T := Self.SELECTED[t1]; end;
+procedure TCUSTOMLISTBOXSELECTED_W(Self: TCUSTOMLISTBOX; T: BOOLEAN; t1: INTEGER); begin Self.SELECTED[t1] := T; end;
+procedure TCUSTOMLISTBOXTOPINDEX_R(Self: TCUSTOMLISTBOX; var T: INTEGER); begin T := Self.TOPINDEX; end;
+procedure TCUSTOMLISTBOXTOPINDEX_W(Self: TCUSTOMLISTBOX; T: INTEGER); begin Self.TOPINDEX := T; end;
+
+
+procedure RIRegisterTCUSTOMLISTBOX(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TCUSTOMLISTBOX) do
+  begin
+    RegisterPropertyHelper(@TCUSTOMLISTBOXITEMS_R, @TCUSTOMLISTBOXITEMS_W, 'ITEMS');
+    RegisterPropertyHelper(@TCUSTOMLISTBOXITEMINDEX_R, @TCUSTOMLISTBOXITEMINDEX_W, 'ITEMINDEX');
+    RegisterPropertyHelper(@TCUSTOMLISTBOXSELCOUNT_R, nil, 'SELCOUNT');
+    RegisterPropertyHelper(@TCUSTOMLISTBOXSELECTED_R, @TCUSTOMLISTBOXSELECTED_W, 'SELECTED');
+
+    {$IFNDEF PS_MINIVCL}
+    RegisterMethod(@TCUSTOMLISTBOX.CLEAR, 'CLEAR');
+    RegisterMethod(@TCUSTOMLISTBOX.ITEMATPOS, 'ITEMATPOS');
+    RegisterMethod(@TCUSTOMLISTBOX.ITEMRECT, 'ITEMRECT');
+    RegisterPropertyHelper(@TCUSTOMLISTBOXCANVAS_R, nil, 'CANVAS');
+    RegisterPropertyHelper(@TCUSTOMLISTBOXTOPINDEX_R, @TCUSTOMLISTBOXTOPINDEX_W, 'TOPINDEX');
+    {$ENDIF}
+  end;
+end;
+
+
+procedure RIRegisterTLISTBOX(Cl: TPSRuntimeClassImporter);
+begin
+  Cl.Add(TLISTBOX);
+end;
+
+
+procedure RIRegisterTSCROLLBAR(Cl: TPSRuntimeClassImporter);
+begin
+  with Cl.Add(TSCROLLBAR) do
+  begin
+    RegisterMethod(@TSCROLLBAR.SETPARAMS, 'SETPARAMS');
+  end;
+end;
+
+
+procedure RIRegister_stdctrls(cl: TPSRuntimeClassImporter);
+begin
+  {$IFNDEF PS_MINIVCL}
+  RIRegisterTCUSTOMGROUPBOX(Cl);
+  RIRegisterTGROUPBOX(Cl);
+  {$ENDIF}
+  RIRegisterTCUSTOMLABEL(Cl);
+  RIRegisterTLABEL(Cl);
+  RIRegisterTCUSTOMEDIT(Cl);
+  RIRegisterTEDIT(Cl);
+  RIRegisterTCUSTOMMEMO(Cl);
+  RIRegisterTMEMO(Cl);
+  RIRegisterTCUSTOMCOMBOBOX(Cl);
+  RIRegisterTCOMBOBOX(Cl);
+  RIRegisterTBUTTONCONTROL(Cl);
+  RIRegisterTBUTTON(Cl);
+  RIRegisterTCUSTOMCHECKBOX(Cl);
+  RIRegisterTCHECKBOX(Cl);
+  RIRegisterTRADIOBUTTON(Cl);
+  RIRegisterTCUSTOMLISTBOX(Cl);
+  RIRegisterTLISTBOX(Cl);
+  {$IFNDEF PS_MINIVCL}
+  RIRegisterTSCROLLBAR(Cl);
+  {$ENDIF}
+end;
+
+// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSRuntime.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSRuntime.pas
new file mode 100644
index 0000000..859d170
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSRuntime.pas	
@@ -0,0 +1,12451 @@
+unit uPSRuntime;
+{$I PascalScript.inc}
+{
+
+RemObjects Pascal Script III
+Copyright (C) 2000-2009 by Carlo Kok (ck@carlo-kok.com)
+
+}
+interface
+uses
+  SysUtils, uPSUtils{$IFDEF DELPHI6UP}, variants{$ENDIF}{$IFNDEF PS_NOIDISPATCH}{$IFDEF DELPHI3UP}, ActiveX, Windows{$ELSE}, Ole2{$ENDIF}{$ENDIF};
+
+
+type
+  TPSExec = class;
+  TPSStack = class;
+  TPSRuntimeAttributes = class;
+  TPSRuntimeAttribute = class;
+
+  TPSError = (ErNoError, erCannotImport, erInvalidType, ErInternalError,
+    erInvalidHeader, erInvalidOpcode, erInvalidOpcodeParameter, erNoMainProc,
+    erOutOfGlobalVarsRange, erOutOfProcRange, ErOutOfRange, erOutOfStackRange,
+    ErTypeMismatch, erUnexpectedEof, erVersionError, ErDivideByZero, ErMathError,
+    erCouldNotCallProc, erOutofRecordRange, erOutOfMemory, erException,
+    erNullPointerException, erNullVariantError, erInterfaceNotSupported, erCustomError);
+
+  TPSStatus = (isNotLoaded, isLoaded, isRunning, isPaused);
+
+  PByteArray = ^TByteArray;
+
+  TByteArray = array[0..1023] of Byte;
+
+  PDWordArray = ^TDWordArray;
+
+  TDWordArray = array[0..1023] of Cardinal;
+{@link(TPSProcRec)
+  PIFProcRec is a pointer to a TIProcRec record}
+  TPSProcRec = class;
+  TIFProcRec = TPSProcRec;
+  TPSExternalProcRec = class;
+  TIFPSExternalProcRec = TPSExternalProcRec;
+  TIFExternalProcRec = TPSExternalProcRec;
+  PIFProcRec = TPSProcRec;
+  PProcRec = ^TProcRec;
+
+  TPSProcPtr = function(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+
+  TPSFreeProc = procedure (Caller: TPSExec; p: PProcRec);
+
+  TPSProcRec = class
+  private
+    FAttributes: TPSRuntimeAttributes;
+  public
+
+    constructor Create(Owner: TPSExec);
+
+    destructor Destroy; override;
+
+
+    property Attributes: TPSRuntimeAttributes read FAttributes;
+  end;
+
+  TPSExternalProcRec = class(TPSProcRec)
+  private
+    FExt1: Pointer;
+    FExt2: Pointer;
+    FName: tbtstring;
+    FProcPtr: TPSProcPtr;
+    FDecl: tbtstring;
+  public
+
+    property Name: tbtstring read FName write FName;
+
+    property Decl: tbtstring read FDecl write FDecl;
+
+    property Ext1: Pointer read FExt1 write FExt1;
+
+    property Ext2: Pointer read FExt2 write FExt2;
+
+    property ProcPtr: TPSProcPtr read FProcPtr write FProcPtr;
+  end;
+
+  TPSInternalProcRec = class(TPSProcRec)
+  private
+    FData: PByteArray;
+    FLength: Cardinal;
+    FExportNameHash: Longint;
+    FExportDecl: tbtstring;
+    FExportName: tbtstring;
+  public
+
+    property Data: PByteArray read FData;
+
+    property Length: Cardinal read FLength;
+
+    property ExportNameHash: Longint read FExportNameHash;
+
+    property ExportName: tbtstring read FExportName write FExportName;
+
+    property ExportDecl: tbtstring read FExportDecl write FExportDecl;
+
+
+    destructor Destroy; override;
+  end;
+
+  TProcRec = record
+
+    Name: ShortString;
+
+    Hash: Longint;
+
+    ProcPtr: TPSProcPtr;
+
+    FreeProc: TPSFreeProc;
+
+    Ext1, Ext2: Pointer;
+  end;
+
+  PBTReturnAddress = ^TBTReturnAddress;
+
+  TBTReturnAddress = packed record
+
+    ProcNo: TPSInternalProcRec;
+
+    Position, StackBase: Cardinal;
+  end;
+
+  TPSTypeRec = class
+  private
+    FExportNameHash: Longint;
+    FExportName: tbtstring;
+    FBaseType: TPSBaseType;
+    FAttributes: TPSRuntimeAttributes;
+  protected
+    FRealSize: Cardinal;
+  public
+
+    property RealSize: Cardinal read FRealSize;
+
+    property BaseType: TPSBaseType read FBaseType write FBaseType;
+
+    property ExportName: tbtstring read FExportName write FExportName;
+
+    property ExportNameHash: Longint read FExportNameHash write FExportNameHash;
+
+    property Attributes: TPSRuntimeAttributes read FAttributes write FAttributes;
+
+    procedure CalcSize; virtual;
+
+    constructor Create(Owner: TPSExec);
+    destructor Destroy; override;
+  end;
+
+  TPSTypeRec_ProcPtr = class(TPSTypeRec)
+  private
+    FParamInfo: tbtstring;
+  public
+
+    property ParamInfo: tbtstring read FParamInfo write FParamInfo;
+    procedure CalcSize; override;
+  end;
+  PIFTypeRec = TPSTypeRec;
+
+  TPSTypeRec_Class = class(TPSTypeRec)
+  private
+    FCN: tbtstring;
+  public
+
+    property CN: tbtstring read FCN write FCN;
+  end;
+{$IFNDEF PS_NOINTERFACES}
+
+  TPSTypeRec_Interface = class(TPSTypeRec)
+  private
+    FGuid: TGUID;
+  public
+
+    property Guid: TGUID read FGuid write FGuid;
+  end;
+{$ENDIF}
+
+  TPSTypeRec_Array = class(TPSTypeRec)
+  private
+    FArrayType: TPSTypeRec;
+  public
+
+    property ArrayType: TPSTypeRec read FArrayType write FArrayType;
+    procedure CalcSize; override;
+  end;
+
+  TPSTypeRec_StaticArray = class(TPSTypeRec_Array)
+  private
+    FSize: Longint;
+    FStartOffset: LongInt;
+  public
+
+    property Size: Longint read FSize write FSize;
+    property StartOffset: LongInt read FStartOffset write FStartOffset;
+
+    procedure CalcSize; override;
+  end;
+
+  TPSTypeRec_Set = class(TPSTypeRec)
+  private
+    FBitSize: Longint;
+    FByteSize: Longint;
+  public
+    {The number of bytes this would require (same as realsize)}
+    property aByteSize: Longint read FByteSize write FByteSize;
+    property aBitSize: Longint read FBitSize write FBitSize;
+    procedure CalcSize; override;
+  end;
+
+  TPSTypeRec_Record = class(TPSTypeRec)
+  private
+    FFieldTypes: TPSList;
+    FRealFieldOffsets: TPSList;
+  public
+
+    property FieldTypes: TPSList read FFieldTypes;
+
+    property RealFieldOffsets: TPSList read FRealFieldOffsets;
+
+    procedure CalcSize; override;
+
+    constructor Create(Owner: TPSExec);
+    destructor Destroy; override;
+  end;
+
+  PPSVariant = ^TPSVariant;
+
+  PIFVariant = PPSVariant;
+
+  TPSVariant = packed record
+    FType: TPSTypeRec;
+  end;
+
+  PPSVariantData = ^TPSVariantData;
+
+  TPSVariantData = packed record
+    VI: TPSVariant;
+    Data: array[0..0] of Byte;
+  end;
+
+  PPSVariantU8 = ^TPSVariantU8;
+
+  TPSVariantU8 = packed record
+    VI: TPSVariant;
+    Data: tbtU8;
+  end;
+
+
+  PPSVariantS8 = ^TPSVariantS8;
+
+  TPSVariantS8 = packed record
+    VI: TPSVariant;
+    Data: tbts8;
+  end;
+
+
+  PPSVariantU16 = ^TPSVariantU16;
+
+  TPSVariantU16 = packed record
+    VI: TPSVariant;
+    Data: tbtU16;
+  end;
+
+
+  PPSVariantS16 = ^TPSVariantS16;
+
+  TPSVariantS16 = packed record
+    VI: TPSVariant;
+    Data: tbts16;
+  end;
+
+
+  PPSVariantU32 = ^TPSVariantU32;
+
+  TPSVariantU32 = packed record
+    VI: TPSVariant;
+    Data: tbtU32;
+  end;
+
+
+  PPSVariantS32 = ^TPSVariantS32;
+
+  TPSVariantS32 = packed record
+    VI: TPSVariant;
+    Data: tbts32;
+  end;
+{$IFNDEF PS_NOINT64}
+
+  PPSVariantS64 = ^TPSVariantS64;
+
+  TPSVariantS64 = packed record
+    VI: TPSVariant;
+    Data: tbts64;
+  end;
+{$ENDIF}
+
+  PPSVariantAChar = ^TPSVariantAChar;
+
+  TPSVariantAChar = packed record
+    VI: TPSVariant;
+    Data: tbtChar;
+  end;
+
+{$IFNDEF PS_NOWIDESTRING}
+
+  PPSVariantWChar = ^TPSVariantWChar;
+
+  TPSVariantWChar = packed record
+    VI: TPSVariant;
+    Data: tbtWideChar;
+  end;
+{$ENDIF}
+
+  PPSVariantAString = ^TPSVariantAString;
+
+  TPSVariantAString = packed record
+    VI: TPSVariant;
+    Data: tbtString;
+  end;
+
+{$IFNDEF PS_NOWIDESTRING}
+
+  PPSVariantWString = ^TPSVariantWString;
+
+  TPSVariantWString = {$IFNDEF DELPHI2009UP}packed {$ENDIF}record
+    VI: TPSVariant;
+    Data: tbtWideString;
+  end;
+
+  PPSVariantUString = ^TPSVariantUString;
+
+  TPSVariantUString = {$IFNDEF DELPHI2009UP}packed {$ENDIF}record
+    VI: TPSVariant;
+    Data: tbtunicodestring;
+  end;
+
+{$ENDIF}
+
+
+  PPSVariantSingle = ^TPSVariantSingle;
+
+  TPSVariantSingle = packed record
+    VI: TPSVariant;
+    Data: tbtsingle;
+  end;
+
+
+  PPSVariantDouble = ^TPSVariantDouble;
+
+  TPSVariantDouble = packed record
+    VI: TPSVariant;
+    Data: tbtDouble;
+  end;
+
+
+  PPSVariantExtended = ^TPSVariantExtended;
+
+  TPSVariantExtended = packed record
+    VI: TPSVariant;
+    Data: tbtExtended;
+  end;
+
+
+  PPSVariantCurrency = ^TPSVariantCurrency;
+
+  TPSVariantCurrency = packed record
+    VI: TPSVariant;
+    Data: tbtCurrency;
+  end;
+
+  PPSVariantSet = ^TPSVariantSet;
+
+  TPSVariantSet = packed record
+    VI: TPSVariant;
+    Data: array[0..0] of Byte;
+  end;
+
+{$IFNDEF PS_NOINTERFACES}
+
+  PPSVariantInterface = ^TPSVariantInterface;
+
+  TPSVariantInterface = packed record
+    VI: TPSVariant;
+    Data: IUnknown;
+  end;
+{$ENDIF}
+
+  PPSVariantClass = ^TPSVariantClass;
+
+  TPSVariantClass = packed record
+    VI: TPSVariant;
+    Data: TObject;
+  end;
+
+
+  PPSVariantRecord = ^TPSVariantRecord;
+
+  TPSVariantRecord = packed record
+    VI: TPSVariant;
+    data: array[0..0] of byte;
+  end;
+
+
+  PPSVariantDynamicArray = ^TPSVariantDynamicArray;
+
+  TPSVariantDynamicArray = packed record
+    VI: TPSVariant;
+    Data: Pointer;
+  end;
+
+
+  PPSVariantStaticArray = ^TPSVariantStaticArray;
+
+  TPSVariantStaticArray = packed record
+    VI: TPSVariant;
+    data: array[0..0] of byte;
+  end;
+
+
+  PPSVariantPointer = ^TPSVariantPointer;
+
+  TPSVariantPointer = packed record
+    VI: TPSVariant;
+    DataDest: Pointer;
+    DestType: TPSTypeRec;
+    FreeIt: LongBool;
+  end;
+
+
+  PPSVariantReturnAddress = ^TPSVariantReturnAddress;
+
+  TPSVariantReturnAddress = packed record
+    VI: TPSVariant;
+    Addr: TBTReturnAddress;
+  end;
+
+
+  PPSVariantVariant = ^TPSVariantVariant;
+
+  TPSVariantVariant = packed record
+    VI: TPSVariant;
+    Data: Variant;
+  end;
+
+  PPSVariantProcPtr = ^TPSVariantProcPtr;
+  TPSVariantProcPtr = packed record
+    VI: TPSVariant;
+    ProcNo: Cardinal;
+    Self: Pointer;
+    Ptr: Pointer;
+    {
+      ProcNo = 0  means Self/Ptr become active (Ptr = nil means it's nil)
+    }
+  end;
+
+
+  TPSVarFreeType = (
+    vtNone,
+    vtTempVar
+    );
+
+  TPSResultData = packed record
+    P: Pointer;
+    aType: TPSTypeRec;
+    FreeType: TPSVarFreeType;
+  end;
+
+
+  PPSResource = ^TPSResource;
+
+  TPSResource = record
+    Proc: Pointer;
+    P: Pointer;
+  end;
+
+  TPSAttributeUseProc = function (Sender: TPSExec; const AttribType: tbtstring; Attr: TPSRuntimeAttribute): Boolean;
+
+  TPSAttributeType = class
+  private
+    FTypeName: tbtstring;
+    FUseProc: TPSAttributeUseProc;
+    FTypeNameHash: Longint;
+  public
+
+    property UseProc: TPSAttributeUseProc read FUseProc write FUseProc;
+
+    property TypeName: tbtstring read FTypeName write FTypeName;
+
+    property TypeNameHash: Longint read FTypeNameHash write FTypeNameHash;
+  end;
+
+  PClassItem = ^TClassItem;
+
+  TClassItem = record
+
+    FName: tbtstring;
+
+    FNameHash: Longint;
+
+    b: byte;
+    case byte of
+    0: (Ptr: Pointer);
+    1: (PointerInList: Pointer);
+    3: (FReadFunc, FWriteFunc: Pointer); {Property Helper}
+    4: (Ptr2: Pointer);
+    5: (PointerInList2: Pointer);
+    6: (); {Property helper, like 3}
+    7: (); {Property helper that will pass it's name}
+  end;
+
+
+  PPSVariantIFC = ^TPSVariantIFC;
+  {Temporary variant into record}
+  TPSVariantIFC = packed record
+    Dta: Pointer;
+    aType: TPSTypeRec;
+    VarParam: Boolean;
+  end;
+  PIFPSVariantIFC = PPSVariantIFC;
+  TIFPSVariantIFC = TPSVariantIFC;
+
+  TPSRuntimeAttribute = class(TObject)
+  private
+    FValues: TPSStack;
+    FAttribType: tbtstring;
+    FOwner: TPSRuntimeAttributes;
+    FAttribTypeHash: Longint;
+    function GetValue(I: Longint): PIFVariant;
+    function GetValueCount: Longint;
+  public
+
+    property Owner: TPSRuntimeAttributes read FOwner;
+
+    property AttribType: tbtstring read FAttribType write FAttribType;
+
+    property AttribTypeHash: Longint read FAttribTypeHash write FAttribTypeHash;
+
+    property ValueCount: Longint read GetValueCount;
+
+    property Value[I: Longint]: PIFVariant read GetValue;
+
+    function AddValue(aType: TPSTypeRec): PPSVariant;
+
+    procedure DeleteValue(i: Longint);
+
+    procedure AdjustSize;
+
+
+    constructor Create(Owner: TPSRuntimeAttributes);
+
+    destructor Destroy; override;
+  end;
+
+  TPSRuntimeAttributes = class(TObject)
+  private
+    FAttributes: TPSList;
+    FOwner: TPSExec;
+    function GetCount: Longint;
+    function GetItem(I: Longint): TPSRuntimeAttribute;
+  public
+
+    property Owner: TPSExec read FOwner;
+
+    property Count: Longint read GetCount;
+
+    property Items[I: Longint]: TPSRuntimeAttribute read GetItem; default;
+
+    procedure Delete(I: Longint);
+
+    function Add: TPSRuntimeAttribute;
+
+    function FindAttribute(const Name: tbtstring): TPSRuntimeAttribute;
+
+
+    constructor Create(AOwner: TPSExec);
+
+    destructor Destroy; override;
+  end;
+  TPSOnGetNVariant = function (Sender: TPSExec; const Name: tbtstring): Variant;
+  TPSOnSetNVariant = procedure (Sender: TPSExec; const Name: tbtstring; V: Variant);
+
+  TPSOnLineEvent = procedure(Sender: TPSExec);
+
+  TPSOnSpecialProcImport = function (Sender: TPSExec; p: TPSExternalProcRec; Tag: Pointer): Boolean;
+
+  TPSOnException = procedure (Sender: TPSExec; ExError: TPSError; const ExParam: tbtstring; ExObject: TObject; ProcNo, Position: Cardinal);
+
+  TPSExec = class(TObject)
+  Private
+    FOnGetNVariant: TPSOnGetNVariant;
+    FOnSetNVariant: TPSOnSetNVariant;
+    FId: Pointer;
+    FJumpFlag: Boolean;
+    FCallCleanup: Boolean;
+    FOnException: TPSOnException;
+    function ReadData(var Data; Len: Cardinal): Boolean;
+    function ReadLong(var b: Cardinal): Boolean;
+    function DoCalc(var1, Var2: Pointer; var1Type, var2type: TPSTypeRec; CalcType: Cardinal): Boolean;
+    function DoBooleanCalc(var1, Var2, into: Pointer; var1Type, var2type, intotype: TPSTypeRec; Cmd: Cardinal): Boolean;
+    function SetVariantValue(dest, Src: Pointer; desttype, srctype: TPSTypeRec): Boolean;
+    function ReadVariable(var Dest: TPSResultData; UsePointer: Boolean): Boolean;
+    function DoBooleanNot(Dta: Pointer; aType: TPSTypeRec): Boolean;
+    function DoMinus(Dta: Pointer; aType: TPSTypeRec): Boolean;
+    function DoIntegerNot(Dta: Pointer; aType: TPSTypeRec): Boolean;
+    procedure RegisterStandardProcs;
+  Protected
+
+    FReturnAddressType: TPSTypeRec;
+
+    FVariantType: TPSTypeRec;
+
+    FVariantArrayType: TPSTypeRec;
+
+    FAttributeTypes: TPSList;
+
+    FExceptionStack: TPSList;
+
+    FResources: TPSList;
+
+    FExportedVars: TPSList;
+
+    FTypes: TPSList;
+
+    FProcs: TPSList;
+
+    FGlobalVars: TPSStack;
+
+    FTempVars: TPSStack;
+
+    FStack: TPSStack;
+
+    FMainProc: Cardinal;
+
+    FStatus: TPSStatus;
+
+    FCurrProc: TPSInternalProcRec;
+
+    FData: PByteArray;
+
+    FDataLength: Cardinal;
+
+    FCurrentPosition: Cardinal;
+
+    FCurrStackBase: Cardinal;
+
+    FOnRunLine: TPSOnLineEvent;
+
+    FSpecialProcList: TPSList;
+
+    FRegProcs: TPSList;
+
+    ExObject: TObject;
+
+    ExProc: Cardinal;
+
+    ExPos: Cardinal;
+
+    ExEx: TPSError;
+
+    ExParam: tbtstring;
+
+    function InvokeExternalMethod(At: TPSTypeRec_ProcPtr; Slf, Ptr: Pointer): Boolean;
+
+    function InnerfuseCall(_Self, Address: Pointer; CallingConv: TPSCallingConvention; Params: TPSList; res: PPSVariantIFC): Boolean;
+
+    procedure RunLine; virtual;
+
+    function ImportProc(const Name: ShortString; proc: TPSExternalProcRec): Boolean; Virtual;
+
+    procedure ExceptionProc(proc, Position: Cardinal; Ex: TPSError; const s: tbtstring; NewObject: TObject); Virtual;
+
+    function FindSpecialProcImport(P: TPSOnSpecialProcImport): pointer;
+  Public
+    function LastEx: TPSError;
+    function LastExParam: tbtstring;
+    function LastExProc: Integer;
+    function LastExPos: Integer;
+    procedure CMD_Err(EC: TPSError);
+
+    procedure CMD_Err2(EC: TPSError; const Param: tbtstring);
+
+    procedure CMD_Err3(EC: TPSError; const Param: tbtstring; ExObject: TObject);
+
+    property Id: Pointer read FID write FID;
+
+    class function About: tbtstring;
+
+    function RunProc(Params: TPSList; ProcNo: Cardinal): Boolean;
+
+    function RunProcP(const Params: array of Variant; const Procno: Cardinal): Variant;
+    function RunProcPVar(var Params: array of Variant; const Procno: Cardinal): Variant;
+
+    function RunProcPN(const Params: array of Variant; const ProcName: tbtstring): Variant;
+
+    function FindType(StartAt: Cardinal; BaseType: TPSBaseType; var l: Cardinal): PIFTypeRec;
+
+    function FindType2(BaseType: TPSBaseType): PIFTypeRec;
+
+    function GetTypeNo(l: Cardinal): PIFTypeRec;
+
+    function GetType(const Name: tbtstring): Cardinal;
+
+    function GetProc(const Name: tbtstring): Cardinal;
+
+    function GetVar(const Name: tbtstring): Cardinal;
+
+    function GetVar2(const Name: tbtstring): PIFVariant;
+
+    function GetVarNo(C: Cardinal): PIFVariant;
+
+    function GetProcNo(C: Cardinal): PIFProcRec;
+
+    function GetProcCount: Cardinal;
+
+    function GetVarCount: Longint;
+
+    function GetTypeCount: Longint;
+
+
+    constructor Create;
+
+    destructor Destroy; Override;
+
+
+    function RunScript: Boolean;
+
+
+    function LoadData(const s: tbtstring): Boolean; virtual;
+
+    procedure Clear; Virtual;
+
+    procedure Cleanup; Virtual;
+
+    procedure Stop; Virtual;
+
+    procedure Pause; Virtual;
+
+    property CallCleanup: Boolean read FCallCleanup write FCallCleanup;
+
+    property Status: TPSStatus Read FStatus;
+
+    property OnRunLine: TPSOnLineEvent Read FOnRunLine Write FOnRunLine;
+
+    procedure ClearspecialProcImports;
+
+    procedure AddSpecialProcImport(const FName: tbtstring; P: TPSOnSpecialProcImport; Tag: Pointer);
+
+    function RegisterFunctionName(const Name: tbtstring; ProcPtr: TPSProcPtr;
+      Ext1, Ext2: Pointer): PProcRec;
+
+    procedure RegisterDelphiFunction(ProcPtr: Pointer; const Name: tbtstring; CC: TPSCallingConvention);
+
+    procedure RegisterDelphiMethod(Slf, ProcPtr: Pointer; const Name: tbtstring; CC: TPSCallingConvention);
+
+    function GetProcAsMethod(const ProcNo: Cardinal): TMethod;
+
+    function GetProcAsMethodN(const ProcName: tbtstring): TMethod;
+
+    procedure RegisterAttributeType(useproc: TPSAttributeUseProc; const TypeName: tbtstring);
+
+    procedure ClearFunctionList;
+
+    property ExceptionProcNo: Cardinal Read ExProc;
+
+    property ExceptionPos: Cardinal Read ExPos;
+
+    property ExceptionCode: TPSError Read ExEx;
+
+    property ExceptionString: tbtstring read ExParam;
+
+    property ExceptionObject: TObject read ExObject write ExObject;
+
+    procedure AddResource(Proc, P: Pointer);
+
+    function IsValidResource(Proc, P: Pointer): Boolean;
+
+    procedure DeleteResource(P: Pointer);
+
+    function FindProcResource(Proc: Pointer): Pointer;
+
+    function FindProcResource2(Proc: Pointer; var StartAt: Longint): Pointer;
+
+    procedure RaiseCurrentException;
+
+    property OnException: TPSOnException read FOnException write FOnException;
+    property OnGetNVariant: TPSOnGetNVariant read FOnGetNVariant write FOnGetNVariant;
+    property OnSetNVariant: TPSOnSetNVariant read FOnSetNVariant write FOnSetNVariant;
+  end;
+
+  TPSStack = class(TPSList)
+  private
+    FDataPtr: Pointer;
+    FCapacity,
+    FLength: Longint;
+    function GetItem(I: Longint): PPSVariant;
+    procedure SetCapacity(const Value: Longint);
+    procedure AdjustLength;
+  public
+
+    property DataPtr: Pointer read FDataPtr;
+
+    property Capacity: Longint read FCapacity write SetCapacity;
+
+    property Length: Longint read FLength;
+
+
+    constructor Create;
+
+    destructor Destroy; override;
+
+    procedure Clear; {$IFDEF DELPHI5UP} reintroduce;{$ELSE} override; {$ENDIF}
+
+    function Push(TotalSize: Longint): PPSVariant;
+
+    function PushType(aType: TPSTypeRec): PPSVariant;
+
+    procedure Pop;
+    function GetInt(ItemNo: Longint): Longint;
+    function GetUInt(ItemNo: Longint): Cardinal;
+{$IFNDEF PS_NOINT64}
+    function GetInt64(ItemNo: Longint): Int64;
+{$ENDIF}
+    function GetString(ItemNo: Longint): string; // calls the native method
+    function GetAnsiString(ItemNo: Longint): tbtstring;
+{$IFNDEF PS_NOWIDESTRING}
+    function GetWideString(ItemNo: Longint): tbtWideString;
+    function GetUnicodeString(ItemNo: Longint): tbtunicodestring;
+{$ENDIF}
+    function GetReal(ItemNo: Longint): Extended;
+    function GetCurrency(ItemNo: Longint): Currency;
+    function GetBool(ItemNo: Longint): Boolean;
+    function GetClass(ItemNo: Longint): TObject;
+
+    procedure SetInt(ItemNo: Longint; const Data: Longint);
+    procedure SetUInt(ItemNo: Longint; const Data: Cardinal);
+{$IFNDEF PS_NOINT64}
+    procedure SetInt64(ItemNo: Longint; const Data: Int64);
+{$ENDIF}
+    procedure SetString(ItemNo: Longint; const Data: string);
+    procedure SetAnsiString(ItemNo: Longint; const Data: tbtstring);
+{$IFNDEF PS_NOWIDESTRING}
+    procedure SetWideString(ItemNo: Longint; const Data: tbtWideString);
+    procedure SetUnicodeString(ItemNo: Longint; const Data: tbtunicodestring);
+{$ENDIF}
+    procedure SetReal(ItemNo: Longint; const Data: Extended);
+    procedure SetCurrency(ItemNo: Longint; const Data: Currency);
+    procedure SetBool(ItemNo: Longint; const Data: Boolean);
+    procedure SetClass(ItemNo: Longint; const Data: TObject);
+
+    property Items[I: Longint]: PPSVariant read GetItem; default;
+  end;
+
+
+function PSErrorToString(x: TPSError; const Param: tbtstring): tbtstring;
+function TIFErrorToString(x: TPSError; const Param: tbtstring): tbtstring;
+function CreateHeapVariant(aType: TPSTypeRec): PPSVariant;
+procedure DestroyHeapVariant(v: PPSVariant);
+
+procedure FreePIFVariantList(l: TPSList);
+procedure FreePSVariantList(l: TPSList);
+
+const
+  ENoError = ERNoError;
+
+
+function PIFVariantToVariant(Src: PIFVariant; var Dest: Variant): Boolean;
+function VariantToPIFVariant(Exec: TPSExec; const Src: Variant; Dest: PIFVariant): Boolean;
+
+function PSGetRecField(const avar: TPSVariantIFC; Fieldno: Longint): TPSVariantIFC;
+function PSGetArrayField(const avar: TPSVariantIFC; Fieldno: Longint): TPSVariantIFC;
+function NewTPSVariantRecordIFC(avar: PPSVariant; Fieldno: Longint): TPSVariantIFC;
+
+function NewTPSVariantIFC(avar: PPSVariant; varparam: boolean): TPSVariantIFC;
+
+function NewPPSVariantIFC(avar: PPSVariant; varparam: boolean): PPSVariantIFC;
+
+procedure DisposePPSVariantIFC(aVar: PPSVariantIFC);
+
+procedure DisposePPSVariantIFCList(list: TPSList);
+
+
+function PSGetObject(Src: Pointer; aType: TPSTypeRec): TObject;
+function PSGetUInt(Src: Pointer; aType: TPSTypeRec): Cardinal;
+{$IFNDEF PS_NOINT64}
+function PSGetInt64(Src: Pointer; aType: TPSTypeRec): Int64;
+{$ENDIF}
+function PSGetReal(Src: Pointer; aType: TPSTypeRec): Extended;
+function PSGetCurrency(Src: Pointer; aType: TPSTypeRec): Currency;
+function PSGetInt(Src: Pointer; aType: TPSTypeRec): Longint;
+function PSGetString(Src: Pointer; aType: TPSTypeRec): string;
+function PSGetAnsiString(Src: Pointer; aType: TPSTypeRec): tbtString;
+{$IFNDEF PS_NOWIDESTRING}
+function PSGetWideString(Src: Pointer; aType: TPSTypeRec): tbtWideString;
+function PSGetUnicodeString(Src: Pointer; aType: TPSTypeRec): tbtunicodestring;
+{$ENDIF}
+
+procedure PSSetObject(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; Const val: TObject);
+procedure PSSetUInt(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Cardinal);
+{$IFNDEF PS_NOINT64}
+procedure PSSetInt64(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Int64);
+{$ENDIF}
+procedure PSSetReal(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Extended);
+procedure PSSetCurrency(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Currency);
+procedure PSSetInt(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Longint);
+procedure PSSetString(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: String);
+procedure PSSetAnsiString(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: tbtString);
+{$IFNDEF PS_NOWIDESTRING}
+procedure PSSetWideString(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: tbtWideString);
+procedure PSSetUnicodeString(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: tbtunicodestring);
+{$ENDIF}
+
+procedure VNSetPointerTo(const Src: TPSVariantIFC; Data: Pointer; aType: TPSTypeRec);
+
+function VNGetUInt(const Src: TPSVariantIFC): Cardinal;
+{$IFNDEF PS_NOINT64}
+function VNGetInt64(const Src: TPSVariantIFC): Int64;
+{$ENDIF}
+function VNGetReal(const Src: TPSVariantIFC): Extended;
+function VNGetCurrency(const Src: TPSVariantIFC): Currency;
+function VNGetInt(const Src: TPSVariantIFC): Longint;
+function VNGetString(const Src: TPSVariantIFC): String;
+function VNGetAnsiString(const Src: TPSVariantIFC): tbtString;
+{$IFNDEF PS_NOWIDESTRING}
+function VNGetWideString(const Src: TPSVariantIFC): tbtWideString;
+function VNGetUnicodeString(const Src: TPSVariantIFC): tbtunicodestring;
+{$ENDIF}
+
+procedure VNSetUInt(const Src: TPSVariantIFC; const Val: Cardinal);
+{$IFNDEF PS_NOINT64}
+procedure VNSetInt64(const Src: TPSVariantIFC; const Val: Int64);
+{$ENDIF}
+procedure VNSetReal(const Src: TPSVariantIFC; const Val: Extended);
+procedure VNSetCurrency(const Src: TPSVariantIFC; const Val: Currency);
+procedure VNSetInt(const Src: TPSVariantIFC; const Val: Longint);
+procedure VNSetString(const Src: TPSVariantIFC; const Val: String);
+procedure VNSetAnsiString(const Src: TPSVariantIFC; const Val: tbtString);
+{$IFNDEF PS_NOWIDESTRING}
+procedure VNSetWideString(const Src: TPSVariantIFC; const Val: tbtWideString);
+procedure VNSetUnicodeString(const Src: TPSVariantIFC; const Val: tbtunicodestring);
+{$ENDIF}
+
+function VGetUInt(const Src: PIFVariant): Cardinal;
+{$IFNDEF PS_NOINT64}
+function VGetInt64(const Src: PIFVariant): Int64;
+{$ENDIF}
+function VGetReal(const Src: PIFVariant): Extended;
+function VGetCurrency(const Src: PIFVariant): Currency;
+function VGetInt(const Src: PIFVariant): Longint;
+function VGetString(const Src: PIFVariant): String;
+function VGetAnsiString(const Src: PIFVariant): tbtString;
+{$IFNDEF PS_NOWIDESTRING}
+function VGetWideString(const Src: PIFVariant): tbtWideString;
+function VGetUnicodeString(const Src: PIFVariant): tbtunicodestring;
+{$ENDIF}
+
+procedure VSetPointerTo(const Src: PIFVariant; Data: Pointer; aType: TPSTypeRec);
+procedure VSetUInt(const Src: PIFVariant; const Val: Cardinal);
+{$IFNDEF PS_NOINT64}
+procedure VSetInt64(const Src: PIFVariant; const Val: Int64);
+{$ENDIF}
+procedure VSetReal(const Src: PIFVariant; const Val: Extended);
+procedure VSetCurrency(const Src: PIFVariant; const Val: Currency);
+procedure VSetInt(const Src: PIFVariant; const Val: Longint);
+procedure VSetString(const Src: PIFVariant; const Val: string);
+procedure VSetAnsiString(const Src: PIFVariant; const Val: tbtString);
+{$IFNDEF PS_NOWIDESTRING}
+procedure VSetWideString(const Src: PIFVariant; const Val: tbtWideString);
+procedure VSetUnicodeString(const Src: PIFVariant; const Val: tbtunicodestring);
+{$ENDIF}
+
+type
+
+  EPSException = class(Exception)
+  private
+    FProcPos: Cardinal;
+    FProcNo: Cardinal;
+    FExec: TPSExec;
+  public
+
+    constructor Create(const Error: tbtstring; Exec: TPSExec; Procno, ProcPos: Cardinal);
+
+    property ProcNo: Cardinal read FProcNo;
+
+    property ProcPos: Cardinal read FProcPos;
+
+    property Exec: TPSExec read FExec;
+  end;
+
+  TPSRuntimeClass = class
+  protected
+    FClassName: tbtstring;
+    FClassNameHash: Longint;
+
+    FClassItems: TPSList;
+    FClass: TClass;
+
+    FEndOfVmt: Longint;
+  public
+
+    procedure RegisterConstructor(ProcPtr: Pointer; const Name: tbtstring);
+
+    procedure RegisterVirtualConstructor(ProcPtr: Pointer; const Name: tbtstring);
+
+    procedure RegisterMethod(ProcPtr: Pointer; const Name: tbtstring);
+
+    procedure RegisterVirtualMethod(ProcPtr: Pointer; const Name: tbtstring);
+
+    procedure RegisterVirtualAbstractMethod(ClassDef: TClass; ProcPtr: Pointer; const Name: tbtstring);
+
+    procedure RegisterPropertyHelper(ReadFunc, WriteFunc: Pointer; const Name: tbtstring);
+
+    procedure RegisterPropertyHelperName(ReadFunc, WriteFunc: Pointer; const Name: tbtstring);
+
+    procedure RegisterEventPropertyHelper(ReadFunc, WriteFunc: Pointer; const Name: tbtstring);
+
+    constructor Create(aClass: TClass; const AName: tbtstring);
+
+    destructor Destroy; override;
+  end;
+
+  TPSRuntimeClassImporter = class
+  private
+    FClasses: TPSList;
+  public
+
+    constructor Create;
+
+    constructor CreateAndRegister(Exec: TPSexec; AutoFree: Boolean);
+
+    destructor Destroy; override;
+
+    function Add(aClass: TClass): TPSRuntimeClass;
+
+    function Add2(aClass: TClass; const Name: tbtstring): TPSRuntimeClass;
+
+    procedure Clear;
+
+    function FindClass(const Name: tbtstring): TPSRuntimeClass;
+  end;
+  TIFPSRuntimeClassImporter = TPSRuntimeClassImporter;
+  TPSResourceFreeProc = procedure (Sender: TPSExec; P: TPSRuntimeClassImporter);
+
+
+procedure RegisterClassLibraryRuntime(SE: TPSExec; Importer: TPSRuntimeClassImporter);
+
+procedure SetVariantToClass(V: PIFVariant; Cl: TObject);
+{$IFNDEF PS_NOINTERFACES}
+procedure SetVariantToInterface(V: PIFVariant; Cl: IUnknown);
+{$ENDIF}
+
+procedure MyAllMethodsHandler;
+
+function GetMethodInfoRec(SE: TPSExec; ProcNo: Cardinal): Pointer;
+
+function MkMethod(FSE: TPSExec; No: Cardinal): TMethod;
+
+type
+  TIFInternalProcRec = TPSInternalProcRec;
+  TIFError = TPSError;
+  TIFStatus = TPSStatus;
+  TIFPSExec = TPSExec;
+  TIFPSStack = TPSStack;
+  TIFTypeRec = TPSTypeRec;
+
+
+  TPSCallingConvention = uPSUtils.TPSCallingConvention;
+const
+
+  cdRegister = uPSUtils.cdRegister;
+
+  cdPascal = uPSUtils.cdPascal;
+
+  cdCdecl = uPSUtils.cdCdecl;
+
+  cdStdCall = uPSUtils.cdStdCall;
+
+  InvalidVal = Cardinal(-1);
+
+function  PSDynArrayGetLength(arr: Pointer; aType: TPSTypeRec): Longint;
+procedure PSDynArraySetLength(var arr: Pointer; aType: TPSTypeRec; NewLength: Longint);
+
+function  GetPSArrayLength(Arr: PIFVariant): Longint;
+procedure SetPSArrayLength(Arr: PIFVariant; NewLength: Longint);
+
+function PSVariantToString(const p: TPSVariantIFC; const ClassProperties: tbtstring): tbtstring;
+function MakeString(const s: tbtstring): tbtstring;
+{$IFNDEF PS_NOWIDESTRING}
+function MakeWString(const s: tbtunicodestring): tbtstring;
+{$ENDIF}
+
+{$IFNDEF PS_NOIDISPATCH}
+function IDispatchInvoke(Self: IDispatch; PropertySet: Boolean; const Name: tbtString; const Par: array of Variant): Variant;
+{$ENDIF}
+
+
+implementation
+uses
+  TypInfo {$IFDEF DELPHI3UP}{$IFNDEF FPC} , ComObj {$ENDIF}{$ENDIF};
+
+{$IFDEF DELPHI3UP }
+resourceString
+{$ELSE }
+const
+{$ENDIF }
+
+  RPS_UnknownIdentifier = 'Unknown Identifier';
+  RPS_Exception = 'Exception: %s';
+  RPS_Invalid = '[Invalid]';
+
+  //- PSErrorToString
+  RPS_NoError = 'No Error';
+  RPS_CannotImport = 'Cannot Import %s';
+  RPS_InvalidType = 'Invalid Type';
+  RPS_InternalError = 'Internal error';
+  RPS_InvalidHeader = 'Invalid Header';
+  RPS_InvalidOpcode = 'Invalid Opcode';
+  RPS_InvalidOpcodeParameter = 'Invalid Opcode Parameter';
+  RPS_NoMainProc = 'no Main Proc';
+  RPS_OutOfGlobalVarsRange = 'Out of Global Vars range';
+  RPS_OutOfProcRange = 'Out of Proc Range';
+  RPS_OutOfRange = 'Out Of Range';
+  RPS_OutOfStackRange = 'Out Of Stack Range';
+  RPS_TypeMismatch = 'Type Mismatch';
+  RPS_UnexpectedEof = 'Unexpected End Of File';
+  RPS_VersionError = 'Version error';
+  RPS_DivideByZero = 'divide by Zero';
+  RPS_MathError = 'Math error';
+  RPS_CouldNotCallProc = 'Could not call proc';
+  RPS_OutofRecordRange = 'Out of Record Fields Range';
+  RPS_NullPointerException = 'Null Pointer Exception';
+  RPS_NullVariantError = 'Null variant error';
+  RPS_OutOfMemory = 'Out Of Memory';
+  RPS_InterfaceNotSupported = 'Interface not supported';
+  RPS_UnknownError = 'Unknown error';
+
+
+  RPS_InvalidVariable = 'Invalid variable';
+  RPS_InvalidArray = 'Invalid array';
+  RPS_OLEError = 'OLE error %.8x';
+  RPS_UnknownProcedure = 'Unknown procedure';
+  RPS_NotEnoughParameters = 'Not enough parameters';
+  RPS_InvalidParameter = 'Invalid parameter';
+  RPS_TooManyParameters = 'Too many parameters';
+  RPS_OutOfStringRange = 'Out of string range';
+  RPS_CannotCastInterface = 'Cannot cast an interface';
+  RPS_CannotCastObject = 'Cannot cast an object';
+  RPS_CapacityLength = 'Capacity < Length';
+  RPS_CanOnlySendLastItem = 'Can only remove last item from stack';
+  RPS_NILInterfaceException = 'Nil interface';
+  RPS_UnknownMethod = 'Unknown method';
+
+
+
+type
+  PPSExportedVar = ^TPSExportedVar;
+  TPSExportedVar = record
+    FName: tbtstring;
+    FNameHash: Longint;
+    FVarNo: Cardinal;
+  end;
+  PRaiseFrame = ^TRaiseFrame;
+  TRaiseFrame = record
+    NextRaise: PRaiseFrame;
+    ExceptAddr: Pointer;
+    ExceptObject: TObject;
+    ExceptionRecord: Pointer;
+  end;
+  TPSExceptionHandler = class
+    CurrProc: TPSInternalProcRec;
+    BasePtr, StackSize: Cardinal;
+    FinallyOffset, ExceptOffset, Finally2Offset, EndOfBlock: Cardinal;
+    ExceptionData: TPSError;
+    ExceptionObject: TObject;
+    ExceptionParam: tbtString;
+    destructor Destroy; override;
+  end;
+  TPSHeader = packed record
+    HDR: Cardinal;
+    PSBuildNo: Cardinal;
+    TypeCount: Cardinal;
+    ProcCount: Cardinal;
+    VarCount: Cardinal;
+    MainProcNo: Cardinal;
+    ImportTableSize: Cardinal;
+  end;
+
+  TPSExportItem = packed record
+    ProcNo: Cardinal;
+    NameLength: Cardinal;
+    DeclLength: Cardinal;
+  end;
+
+  TPSType = packed record
+    BaseType: TPSBaseType;
+  end;
+  TPSProc = packed record
+    Flags: Byte;
+  end;
+
+  TPSVar = packed record
+    TypeNo: Cardinal;
+    Flags: Byte;
+  end;
+  PSpecialProc = ^TSpecialProc;
+  TSpecialProc = record
+    P: TPSOnSpecialProcImport;
+    namehash: Longint;
+    Name: tbtstring;
+    tag: pointer;
+  end;
+
+destructor TPSExceptionHandler.Destroy;
+begin
+  ExceptionObject.Free;
+  inherited;
+end;
+
+procedure P_CM_A; begin end;
+procedure P_CM_CA; begin end;
+procedure P_CM_P; begin end;
+procedure P_CM_PV; begin end;
+procedure P_CM_PO; begin end;
+procedure P_CM_C; begin end;
+procedure P_CM_G; begin end;
+procedure P_CM_CG; begin end;
+procedure P_CM_CNG; begin end;
+procedure P_CM_R; begin end;
+procedure P_CM_ST; begin end;
+procedure P_CM_PT; begin end;
+procedure P_CM_CO; begin end;
+procedure P_CM_CV; begin end;
+procedure P_CM_SP; begin end;
+procedure P_CM_BN; begin end;
+procedure P_CM_VM; begin end;
+procedure P_CM_SF; begin end;
+procedure P_CM_FG; begin end;
+procedure P_CM_PUEXH; begin end;
+procedure P_CM_POEXH; begin end;
+procedure P_CM_IN; begin end;
+procedure P_CM_SPB; begin end;
+procedure P_CM_INC; begin end;
+procedure P_CM_DEC; begin end;
+
+function IntPIFVariantToVariant(Src: pointer; aType: TPSTypeRec; var Dest: Variant): Boolean; forward;
+
+
+procedure Set_Union(Dest, Src: PByteArray; ByteSize: Integer);
+var
+  i: Longint;
+begin
+  for i := ByteSize -1 downto 0 do
+    Dest^[i] := Dest^[i] or Src^[i];
+end;
+
+procedure Set_Diff(Dest, Src: PByteArray; ByteSize: Integer);
+var
+  i: Longint;
+begin
+  for i := ByteSize -1 downto 0 do
+    Dest^[i] := Dest^[i] and not Src^[i];
+end;
+
+procedure Set_Intersect(Dest, Src: PByteArray; ByteSize: Integer);
+var
+  i: Longint;
+begin
+  for i := ByteSize -1 downto 0 do
+    Dest^[i] := Dest^[i] and Src^[i];
+end;
+
+procedure Set_Subset(Dest, Src: PByteArray; ByteSize: Integer; var Val: Boolean);
+var
+  i: Integer;
+begin
+  for i := ByteSize -1 downto 0 do
+  begin
+    if not (Src^[i] and Dest^[i] = Dest^[i]) then
+    begin
+      Val := False;
+      exit;
+    end;
+  end;
+  Val := True;
+end;
+
+procedure Set_Equal(Dest, Src: PByteArray; ByteSize: Integer; var Val: Boolean);
+var
+  i: Longint;
+begin
+  for i := ByteSize -1 downto 0 do
+  begin
+    if Dest^[i] <> Src^[i] then
+    begin
+      Val := False;
+      exit;
+    end;
+  end;
+  val := True;
+end;
+
+procedure Set_membership(Item: Longint; Src: PByteArray; var Val: Boolean);
+begin
+  Val := (Src^[Item shr 3] and (1 shl (Item and 7))) <> 0;
+end;
+
+
+procedure RCIFreeProc(Sender: TPSExec; P: TPSRuntimeClassImporter);
+begin
+  p.Free;
+end;
+
+function Trim(const s: tbtstring): tbtstring;
+begin
+  Result := s;
+  while (Length(result) > 0) and (Result[1] = #32) do Delete(Result, 1, 1);
+  while (Length(result) > 0) and (Result[Length(Result)] = #32) do Delete(Result, Length(Result), 1);
+end;
+(*function FloatToStr(E: Extended): tbtstring;
+begin
+  Result := Sysutils.FloatToStr(e);
+end;*)
+
+//-------------------------------------------------------------------
+
+function Padl(s: tbtstring; i: longInt): tbtstring;
+begin
+  result := StringOfChar(tbtchar(' '), i - length(s)) + s;
+end;
+//-------------------------------------------------------------------
+
+function Padz(s: tbtString; i: longInt): tbtString;
+begin
+  result := StringOfChar(tbtchar('0'), i - length(s)) + s;
+end;
+//-------------------------------------------------------------------
+
+function Padr(s: tbtString; i: longInt): tbtString;
+begin
+  result := s + StringOfChar(tbtchar(' '), i - Length(s));
+end;
+//-------------------------------------------------------------------
+
+{$IFNDEF PS_NOWIDESTRING}
+function wPadl(s: tbtwidestring; i: longInt): tbtwidestring;
+begin
+  result := StringOfChar(tbtwidechar(' '), i - length(s)) + s;
+end;
+//-------------------------------------------------------------------
+
+function wPadz(s: tbtwidestring; i: longInt): tbtwidestring;
+begin
+  result := StringOfChar(tbtwidechar('0'), i - length(s)) + s;
+end;
+//-------------------------------------------------------------------
+
+function wPadr(s: tbtwidestring; i: longInt): tbtwidestring;
+begin
+  result := s + StringOfChar(tbtwidechar(' '), i - Length(s));
+end;
+
+function uPadl(s: tbtunicodestring; i: longInt): tbtunicodestring;
+begin
+  result := StringOfChar(tbtwidechar(' '), i - length(s)) + s;
+end;
+//-------------------------------------------------------------------
+
+function uPadz(s: tbtunicodestring; i: longInt): tbtunicodestring;
+begin
+  result := StringOfChar(tbtwidechar('0'), i - length(s)) + s;
+end;
+//-------------------------------------------------------------------
+
+function uPadr(s: tbtunicodestring; i: longInt): tbtunicodestring;
+begin
+  result := s + StringOfChar(tbtwidechar(' '), i - Length(s));
+end;
+
+{$ENDIF}
+{$IFNDEF PS_NOWIDESTRING}
+function MakeWString(const s: tbtunicodestring): tbtString;
+var
+  i: Longint;
+  e: tbtString;
+  b: boolean;
+begin
+  Result := tbtString(s);
+  i := 1;
+  b := false;
+  while i <= length(result) do
+  begin
+    if Result[i] = '''' then
+    begin
+      if not b then
+      begin
+        b := true;
+        Insert('''', Result, i);
+        inc(i);
+      end;
+      Insert('''', Result, i);
+      inc(i, 2);
+    end else if (Result[i] < #32) or (Result[i] > #255) then
+    begin
+      e := '#'+inttostr(ord(Result[i]));
+      Delete(Result, i, 1);
+      if b then
+      begin
+        b := false;
+        Insert('''', Result, i);
+        inc(i);
+      end;
+      Insert(e, Result, i);
+      inc(i, length(e));
+    end else begin
+      if not b then
+      begin
+        b := true;
+        Insert('''', Result, i);
+        inc(i, 2);
+      end else
+        inc(i);
+    end;
+  end;
+  if b then
+  begin
+    Result := Result + '''';
+  end;
+  if Result = '' then
+    Result := '''''';
+end;
+{$ENDIF}
+function MakeString(const s: tbtString): tbtString;
+var
+  i: Longint;
+  e: tbtString;
+  b: boolean;
+begin
+  Result := s;
+  i := 1;
+  b := false;
+  while i <= length(result) do
+  begin
+    if Result[i] = '''' then
+    begin
+      if not b then
+      begin
+        b := true;
+        Insert('''', Result, i);
+        inc(i);
+      end;
+      Insert('''', Result, i);
+      inc(i, 2);
+    end else if (Result[i] < #32) then
+    begin
+      e := '#'+inttostr(ord(Result[i]));
+      Delete(Result, i, 1);
+      if b then
+      begin
+        b := false;
+        Insert('''', Result, i);
+        inc(i);
+      end;
+      Insert(e, Result, i);
+      inc(i, length(e));
+    end else begin
+      if not b then
+      begin
+        b := true;
+        Insert('''', Result, i);
+        inc(i, 2);
+      end else
+        inc(i);
+    end;
+  end;
+  if b then
+  begin
+    Result := Result + '''';
+  end;
+  if Result = '' then
+    Result := '''''';
+end;
+
+function SafeStr(const s: tbtString): tbtString;
+var
+ i : Longint;
+begin
+  Result := s;
+  for i := 1 to length(s) do
+  begin
+    if s[i] in [#0..#31] then
+    begin
+      Result := Copy(s, 1, i-1);
+      exit;
+    end;
+  end;
+
+end;
+
+function PropertyToString(Instance: TObject; PName: tbtString): tbtString;
+var
+  s: tbtString;
+  i: Longint;
+  PP: PPropInfo;
+begin
+  if PName = '' then
+  begin
+    Result := tbtString(Instance.ClassName);
+    exit;
+  end;
+  while Length(PName) > 0 do
+  begin
+    i := pos(tbtChar('.'), pname);
+    if i = 0 then
+    begin
+      s := Trim(PNAme);
+      pname := '';
+    end else begin
+      s := trim(Copy(PName, 1, i-1));
+      Delete(PName, 1, i);
+    end;
+    pp := GetPropInfo(PTypeInfo(Instance.ClassInfo), string(s));
+    if pp = nil then begin Result := tbtstring(RPS_UnknownIdentifier); exit; end;
+
+
+    case pp^.PropType^.Kind of
+      tkInteger: begin Result := IntToStr(GetOrdProp(Instance, pp)); exit; end;
+      tkChar: begin Result := '#'+IntToStr(GetOrdProp(Instance, pp)); exit; end;
+      tkEnumeration: begin Result := tbtstring(GetEnumName(pp^.PropType{$IFNDEF FPC}{$IFDEF DELPHI3UP}^{$ENDIF}{$ENDIF}, GetOrdProp(Instance, pp))); exit; end;
+      tkFloat: begin Result := FloatToStr(GetFloatProp(Instance, PP)); exit; end;
+      tkString, tkLString: begin Result := ''''+tbtString(GetStrProp(Instance, PP))+''''; exit; end;
+      tkSet: begin Result := '[Set]'; exit; end;
+      tkClass: begin Instance := TObject(GetOrdProp(Instance, pp)); end;
+      tkMethod: begin Result := '[Method]'; exit; end;
+      tkVariant: begin Result := '[Variant]'; exit; end;
+	  {$IFDEF DELPHI6UP}
+	  {$IFNDEF PS_NOWIDESTRING}
+      tkWString: begin Result := ''''+tbtString(GetWideStrProp(Instance, pp))+''; end; {$ENDIF}
+	  {$ENDIF}
+      else begin Result := '[Unknown]'; exit; end;
+    end;
+    if Instance = nil then begin result := 'nil'; exit; end;
+  end;
+  Result := tbtstring(Instance.ClassName);
+end;
+
+function ClassVariantInfo(const pvar: TPSVariantIFC; const PropertyName: tbtString): tbtString;
+begin
+  if pvar.aType.BaseType = btClass then
+  begin
+    if TObject(pvar.Dta^) = nil then
+      Result := 'nil'
+    else
+      Result := PropertyToString(TObject(pvar.Dta^), PropertyName);
+  end else if pvar.atype.basetype = btInterface then
+      Result := 'Interface'
+  else Result := tbtstring(RPS_InvalidType);
+end;
+
+function PSVariantToString(const p: TPSVariantIFC; const ClassProperties: tbtString): tbtString;
+var
+  i, n: Longint;
+begin
+  if p.Dta = nil then
+  begin
+    Result := 'nil';
+    exit;
+  end;
+  if (p.aType.BaseType = btVariant) then
+  begin
+    try
+      if TVarData(p.Dta^).VType = varDispatch then
+        Result := 'Variant(IDispatch)'
+      else if TVarData(p.Dta^).VType = varNull then
+        REsult := 'Null'
+      else if (TVarData(p.Dta^).VType = varOleStr) then
+      {$IFDEF PS_NOWIDESTRING}
+        Result := MakeString(Variant(p.Dta^))
+      {$ELSE}
+        Result := MakeWString(variant(p.dta^))
+      {$ENDIF}
+      else if TVarData(p.Dta^).VType = varString then
+        Result := MakeString(tbtstring(variant(p.Dta^)))
+      else
+      Result := tbtstring(Variant(p.Dta^));
+    except
+      on e: Exception do
+        Result := tbtstring(Format (RPS_Exception, [e.Message]));
+    end;
+    exit;
+  end;
+  case p.aType.BaseType of
+    btProcptr: begin Result := 'Proc: '+inttostr(tbtu32(p.Dta^)); end;
+    btU8: str(tbtu8(p.dta^), Result);
+    btS8: str(tbts8(p.dta^), Result);
+    btU16: str(tbtu16(p.dta^), Result);
+    btS16: str(tbts16(p.dta^), Result);
+    btU32: str(tbtu32(p.dta^), Result);
+    btS32: str(tbts32(p.dta^), Result);
+    btSingle: str(tbtsingle(p.dta^), Result);
+    btDouble: str(tbtdouble(p.dta^), Result);
+    btExtended: str(tbtextended(p.dta^), Result);
+    btString: Result := makestring(tbtString(p.dta^));
+    btPChar:
+      begin
+        if PansiChar(p.dta^) = nil then
+          Result := 'nil'
+        else
+          Result := MakeString(PAnsiChar(p.dta^));
+      end;
+    btchar: Result := MakeString(tbtchar(p.dta^));
+    {$IFNDEF PS_NOWIDESTRING}
+    btwidechar: Result := MakeWString(tbtwidechar(p.dta^));
+    btWideString: Result := MakeWString(tbtwidestring(p.dta^));
+    btUnicodeString: Result := MakeWString(tbtUnicodeString(p.dta^));
+    {$ENDIF}
+    {$IFNDEF PS_NOINT64}btS64: str(tbts64(p.dta^), Result);{$ENDIF}
+    btStaticArray, btArray:
+      begin
+        Result := '';
+        if p.aType.BaseType = btStaticArray then
+          n := TPSTypeRec_StaticArray(p.aType).Size
+        else
+          n := PSDynArrayGetLength(Pointer(p.dta^), p.aType);
+        for i := 0 to n-1 do begin
+          if Result <> '' then
+            Result := Result + ', ';
+          Result := Result + PSVariantToString(PSGetArrayField(p, i), '');
+        end;
+        Result := '[' + Result + ']';
+      end;
+    btRecord:
+      begin
+        Result := '';
+        n := TPSTypeRec_Record(p.aType).FFieldTypes.Count;
+        for i := 0 to n-1 do begin
+          if Result <> '' then
+            Result := Result + ', ';
+          Result := Result + PSVariantToString(PSGetRecField(p, i), '');
+        end;
+        Result := '(' + Result + ')';
+      end;
+    btPointer: Result := 'Nil';
+    btClass, btInterface:
+      begin
+        Result := ClassVariantInfo(p, ClassProperties)
+      end;
+  else
+    Result := tbtString(RPS_Invalid);
+  end;
+end;
+
+
+
+function TIFErrorToString(x: TPSError; const Param: tbtString): tbtString;
+begin
+  Result := PSErrorToString(x,param);
+end;
+
+function PSErrorToString(x: TPSError; const Param: tbtString): tbtString;
+begin
+  case x of
+    ErNoError: Result := tbtString(RPS_NoError);
+    erCannotImport: Result := tbtString(Format (RPS_CannotImport, [Safestr(Param)]));
+    erInvalidType: Result := tbtString(RPS_InvalidType);
+    ErInternalError: Result := tbtString(RPS_InternalError);
+    erInvalidHeader: Result := tbtString(RPS_InvalidHeader);
+    erInvalidOpcode: Result := tbtString(RPS_InvalidOpcode);
+    erInvalidOpcodeParameter: Result := tbtString(RPS_InvalidOpcodeParameter);
+    erNoMainProc: Result := tbtString(RPS_NoMainProc);
+    erOutOfGlobalVarsRange: Result := tbtString(RPS_OutOfGlobalVarsRange);
+    erOutOfProcRange: Result := tbtString(RPS_OutOfProcRange);
+    ErOutOfRange: Result := tbtString(RPS_OutOfRange);
+    erOutOfStackRange: Result := tbtString(RPS_OutOfStackRange);
+    ErTypeMismatch: Result := tbtString(RPS_TypeMismatch);
+    erUnexpectedEof: Result := tbtString(RPS_UnexpectedEof);
+    erVersionError: Result := tbtString(RPS_VersionError);
+    ErDivideByZero: Result := tbtString(RPS_DivideByZero);
+    erMathError: Result := tbtString(RPS_MathError);
+    erCouldNotCallProc: begin Result := tbtString(RPS_CouldNotCallProc); if (Param <> '') then Result := result +' ('+Param+')'; end;
+    erOutofRecordRange: Result := tbtString(RPS_OutofRecordRange);
+    erNullPointerException: Result := tbtString(RPS_NullPointerException);
+    erNullVariantError: Result := tbtString(RPS_NullVariantError);
+    erOutOfMemory: Result := tbtString(RPS_OutOfMemory);
+    erException: Result := tbtString(Format (RPS_Exception, [Param]));
+    erInterfaceNotSupported: Result := tbtString(RPS_InterfaceNotSupported);
+    erCustomError: Result := Param;
+      else
+    Result := tbtString(RPS_UnknownError);
+  end;
+  //
+end;
+
+
+procedure TPSTypeRec.CalcSize;
+begin
+  case BaseType of
+    btVariant: FRealSize := sizeof(Variant);
+    btChar, bts8, btU8: FrealSize := 1 ;
+    {$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}bts16, btU16: FrealSize := 2;
+    {$IFNDEF PS_NOWIDESTRING}btWideString,
+    btUnicodeString,
+    {$ENDIF}{$IFNDEF PS_NOINTERFACES}btInterface, {$ENDIF}btSingle, bts32, btU32,
+    btclass, btPChar, btString: FrealSize := PointerSize;
+    btProcPtr: FRealSize := 2 * sizeof(Pointer) + sizeof(Cardinal);
+    btCurrency: FrealSize := Sizeof(Currency);
+    btPointer: FRealSize := 2 * sizeof(Pointer) + sizeof(LongBool); // ptr, type, freewhendone
+    btDouble{$IFNDEF PS_NOINT64}, bts64{$ENDIF}: FrealSize := 8;
+    btExtended: FrealSize := SizeOf(Extended);
+    btReturnAddress: FrealSize := Sizeof(TBTReturnAddress);
+  else
+    FrealSize := 0;
+  end;
+end;
+
+constructor TPSTypeRec.Create(Owner: TPSExec);
+begin
+  inherited Create;
+  FAttributes := TPSRuntimeAttributes.Create(Owner);
+end;
+
+destructor TPSTypeRec.Destroy;
+begin
+  FAttributes.Free;
+  inherited destroy;
+end;
+
+{ TPSTypeRec_Record }
+
+procedure TPSTypeRec_Record.CalcSize;
+begin
+  inherited;
+  FrealSize := TPSTypeRec(FFieldTypes[FFieldTypes.Count-1]).RealSize +
+    IPointer(RealFieldOffsets[RealFieldOffsets.Count -1]);
+end;
+
+constructor TPSTypeRec_Record.Create(Owner: TPSExec);
+begin
+  inherited Create(Owner);
+  FRealFieldOffsets := TPSList.Create;
+  FFieldTypes := TPSList.Create;
+end;
+
+destructor TPSTypeRec_Record.Destroy;
+begin
+  FFieldTypes.Free;
+  FRealFieldOffsets.Free;
+  inherited Destroy;
+end;
+
+
+const
+  RTTISize = sizeof(TPSVariant);
+
+procedure InitializeVariant(p: Pointer; aType: TPSTypeRec);
+var
+  t: TPSTypeRec;
+  i: Longint;
+begin
+  case aType.BaseType of
+    btChar, bts8, btU8: tbtu8(p^) := 0;
+    {$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}bts16, btU16: tbtu16(p^) := 0;
+    btSingle, bts32, btU32,
+    btPChar, btString, {$IFNDEF PS_NOWIDESTRING}btUnicodeString, btWideString, {$ENDIF}btClass,
+    btInterface, btArray: Pointer(P^) := nil;
+    btPointer:
+      begin
+        Pointer(p^) := nil;
+        Pointer(Pointer(IPointer(p)+PointerSize)^) := nil;
+        Pointer(Pointer(IPointer(p)+(2*PointerSize))^) := nil;
+      end;
+    btProcPtr:
+      begin
+        Longint(p^) := 0;
+        Pointer(Pointer(IPointer(p)+PointerSize)^) := nil;
+        Pointer(Pointer(IPointer(p)+(2*PointerSize))^) := nil;
+      end;
+    btCurrency: tbtCurrency(P^) := 0;
+    btDouble{$IFNDEF PS_NOINT64}, bts64{$ENDIF}: {$IFNDEF PS_NOINT64}tbtS64(P^) := 0{$ELSE}tbtdouble(p^) := 0 {$ENDIF};
+    btExtended: tbtExtended(p^) := 0;
+    btVariant: Initialize(Variant(p^));
+    btReturnAddress:; // there is no point in initializing a return address
+    btRecord:
+      begin
+        for i := 0 to TPSTypeRec_Record(aType).FFieldTypes.Count -1 do
+        begin
+          t := TPSTypeRec_Record(aType).FieldTypes[i];
+          InitializeVariant(P, t);
+          p := Pointer(IPointer(p) + t.FrealSize);
+        end;
+      end;
+    btStaticArray:
+      begin
+        t := TPSTypeRec_Array(aType).ArrayType;
+        for i := 0 to TPSTypeRec_StaticArray(aType).Size -1 do
+        begin
+          InitializeVariant(p, t);
+          p := Pointer(IPointer(p) + t.RealSize);
+        end;
+      end;
+    btSet:
+      begin
+        FillChar(p^, TPSTypeRec_Set(aType).RealSize, 0);
+      end;
+  end;
+end;
+
+procedure DestroyHeapVariant2(v: Pointer; aType: TPSTypeRec); forward;
+
+const
+  NeedFinalization = [btStaticArray, btRecord, btArray, btPointer, btVariant {$IFNDEF PS_NOINTERFACES}, btInterface{$ENDIF}, btString {$IFNDEF PS_NOWIDESTRING}, btUnicodestring,btWideString{$ENDIF}];
+
+procedure FinalizeVariant(p: Pointer; aType: TPSTypeRec);
+var
+  t: TPSTypeRec;
+  elsize: Cardinal;
+  i, l: Longint;
+  darr: Pointer;
+begin
+  case aType.BaseType of
+    btString: tbtString(p^) := '';
+    {$IFNDEF PS_NOWIDESTRING}
+    btWideString: tbtwidestring(p^) := '';
+    btUnicodeString: tbtunicodestring(p^) := '';
+    {$ENDIF}
+    {$IFNDEF PS_NOINTERFACES}btInterface:
+      begin
+        {$IFNDEF DELPHI3UP}
+        if IUnknown(p^) <> nil then
+          IUnknown(p^).Release;
+        {$ENDIF}
+        IUnknown(p^) := nil;
+      end; {$ENDIF}
+    btVariant:
+    begin
+      try
+        Finalize(Variant(p^));
+      except
+      end;
+    end;
+    btPointer:
+      if Pointer(Pointer(IPointer(p)+PointerSize2)^) <> nil then
+      begin
+        DestroyHeapVariant2(Pointer(p^), Pointer(Pointer(IPointer(p)+PointerSize)^));
+        Pointer(p^) := nil;
+      end;
+    btArray:
+      begin
+        if IPointer(P^) = 0 then exit;
+        darr := Pointer(IPointer(p^) - PointerSize2);
+        if Longint(darr^) < 0 then exit;// refcount < 0 means don't free
+        Dec(Longint(darr^));
+        if Longint(darr^) <> 0 then exit;
+        t := TPSTypeRec_Array(aType).ArrayType;
+        elsize := t.RealSize;
+        darr := Pointer(IPointer(darr) + PointerSize);
+        l := Longint(darr^) {$IFDEF FPC}+1{$ENDIF};
+        darr := Pointer(IPointer(darr) + PointerSize);
+        case t.BaseType of
+          btString, {$IFNDEF PS_NOWIDESTRING}
+          btUnicodeString, btWideString, {$ENDIF}{$IFNDEF PS_NOINTERFACES}btInterface, {$ENDIF}btArray, btStaticArray,
+          btRecord, btPointer, btVariant:
+            begin
+              for i := 0 to l -1 do
+              begin
+                FinalizeVariant(darr, t);
+                darr := Pointer(IPointer(darr) + elsize);
+              end;
+            end;
+        end;
+        FreeMem(Pointer(IPointer(p^) - IPointer(PointerSize2)), IPointer(Cardinal(l) * elsize) + IPointer(PointerSize2));
+        Pointer(P^) := nil;
+      end;
+    btRecord:
+      begin
+        for i := 0 to TPSTypeRec_Record(aType).FFieldTypes.Count -1 do
+        begin
+          t := TPSTypeRec_Record(aType).FieldTypes[i];
+          case t.BaseType of
+            btString, {$IFNDEF PS_NOWIDESTRING}btUnicodeString, btWideString, {$ENDIF}{$IFNDEF PS_NOINTERFACES}btInterface, {$ENDIF}btArray, btStaticArray,
+            btRecord: FinalizeVariant(p, t);
+          end;
+          p := Pointer(IPointer(p) + t.FrealSize);
+        end;
+      end;
+    btStaticArray:
+      begin
+        t := TPSTypeRec_Array(aType).ArrayType;
+        case t.BaseType of
+          btString, {$IFNDEF PS_NOWIDESTRING}btUnicodeString, btWideString, {$ENDIF}{$IFNDEF PS_NOINTERFACES}btInterface, {$ENDIF}btArray, btStaticArray,
+          btRecord: ;
+          else Exit;
+        end;
+        for i := 0 to TPSTypeRec_StaticArray(aType).Size -1 do
+        begin
+          FinalizeVariant(p, t);
+          p := Pointer(IPointer(p) + t.RealSize);
+        end;
+      end;
+  end;
+end;
+
+function CreateHeapVariant2(aType: TPSTypeRec): Pointer;
+begin
+  GetMem(Result, aType.RealSize);
+  InitializeVariant(Result, aType);
+end;
+
+procedure DestroyHeapVariant2(v: Pointer; aType: TPSTypeRec);
+begin
+  if v = nil then exit;
+  if atype.BaseType in NeedFinalization then
+    FinalizeVariant(v, aType);
+  FreeMem(v, aType.RealSize);
+end;
+
+
+function CreateHeapVariant(aType: TPSTypeRec): PPSVariant;
+var
+  aSize: Longint;
+begin
+  aSize := aType.RealSize + RTTISize;
+  GetMem(Result, aSize);
+  Result.FType := aType;
+  InitializeVariant(Pointer(IPointer(Result)+PointerSize), aType);
+end;
+
+procedure DestroyHeapVariant(v: PPSVariant);
+begin
+  if v = nil then exit;
+  if v.FType.BaseType in NeedFinalization then
+    FinalizeVariant(Pointer(IPointer(v)+PointerSize), v.FType);
+  FreeMem(v, v.FType.RealSize + RTTISize);
+end;
+
+procedure FreePSVariantList(l: TPSList);
+var
+  i: Longint;
+begin
+  for i:= l.count -1 downto 0 do
+    DestroyHeapVariant(l[i]);
+  l.free;
+end;
+
+procedure FreePIFVariantList(l: TPSList);
+begin
+  FreePsVariantList(l);
+end;
+
+{ TPSExec }
+
+procedure TPSExec.ClearFunctionList;
+var
+  x: PProcRec;
+  l: Longint;
+begin
+  for l := FAttributeTypes.Count -1 downto 0 do
+  begin
+    TPSAttributeType(FAttributeTypes.Data^[l]).Free;
+  end;
+  FAttributeTypes.Clear;
+
+  for l := 0 to FRegProcs.Count - 1 do
+  begin
+    x := FRegProcs.Data^[l];
+    if @x^.FreeProc <> nil then x^.FreeProc(Self, x);
+    Dispose(x);
+  end;
+  FRegProcs.Clear;
+  RegisterStandardProcs;
+end;
+
+class function TPSExec.About: tbtString;
+begin
+  Result := 'RemObjects Pascal Script. Copyright (c) 2004-2009 by RemObjects Software';
+end;
+
+procedure TPSExec.Cleanup;
+var
+  I: Longint;
+  p: Pointer;
+begin
+  if FStatus <> isLoaded then
+    exit;
+  FStack.Clear;
+  FTempVars.Clear;
+  for I := Longint(FGlobalVars.Count) - 1 downto 0 do
+  begin
+    p := FGlobalVars.Items[i];
+    if PIFTypeRec(P^).BaseType in NeedFinalization then
+      FinalizeVariant(Pointer(IPointer(p)+PointerSize), Pointer(P^));
+    InitializeVariant(Pointer(IPointer(p)+PointerSize), Pointer(P^));
+  end;
+end;
+
+procedure TPSExec.Clear;
+var
+  I: Longint;
+  temp: PPSResource;
+  Proc: TPSResourceFreeProc;
+  pp: TPSExceptionHandler;
+begin
+  for i := Longint(FExceptionStack.Count) -1 downto 0 do
+  begin
+    pp := FExceptionStack.Data^[i];
+    pp.Free;
+  end;
+  for i := Longint(FResources.Count) -1 downto 0 do
+  begin
+    Temp := FResources.Data^[i];
+    Proc := Temp^.Proc;
+    Proc(Self, Temp^.P);
+    Dispose(Temp);
+  end;
+  for i := Longint(FExportedVars.Count) -1 downto 0 do
+    Dispose(PPSExportedVar(FExportedVars.Data^[I]));
+  for I := Longint(FProcs.Count) - 1downto 0  do
+    TPSProcRec(FProcs.Data^[i]).Destroy;
+  FProcs.Clear;
+  FGlobalVars.Clear;
+  FStack.Clear;
+  for I := Longint(FTypes.Count) - 1downto 0  do
+    TPSTypeRec(FTypes.Data^[i]).Free;
+  FTypes.Clear;
+  FStatus := isNotLoaded;
+  FResources.Clear;
+  FExportedVars.Clear;
+  FExceptionStack.Clear;
+  FCurrStackBase := InvalidVal;
+end;
+
+constructor TPSExec.Create;
+begin
+  inherited Create;
+  FAttributeTypes := TPSList.Create;
+  FExceptionStack := TPSList.Create;
+  FCallCleanup := False;
+  FResources := TPSList.Create;
+  FTypes := TPSList.Create;
+  FProcs := TPSList.Create;
+  FGlobalVars := TPSStack.Create;
+  FTempVars := TPSStack.Create;
+  FMainProc := 0;
+  FStatus := isNotLoaded;
+  FRegProcs := TPSList.Create;
+  FExportedVars := TPSList.create;
+  FSpecialProcList := TPSList.Create;
+  RegisterStandardProcs;
+  FReturnAddressType := TPSTypeRec.Create(self);
+  FReturnAddressType.BaseType := btReturnAddress;
+  FReturnAddressType.CalcSize;
+  FVariantType := TPSTypeRec.Create(self);
+  FVariantType.BaseType := btVariant;
+  FVariantType.CalcSize;
+  FVariantArrayType := TPSTypeRec_Array.Create(self);
+  FVariantArrayType.BaseType := btArray;
+  FVariantArrayType.CalcSize;
+  TPSTypeRec_Array(FVariantArrayType).ArrayType := FVariantType;
+  FStack := TPSStack.Create;
+end;
+
+destructor TPSExec.Destroy;
+var
+  I: Longint;
+  x: PProcRec;
+  P: PSpecialProc;
+begin
+  Clear;
+  FReturnAddressType.Free;
+  FVariantType.Free;
+  FVariantArrayType.Free;
+
+  if ExObject <> nil then ExObject.Free;
+  for I := FSpecialProcList.Count -1 downto 0 do
+  begin
+    P := FSpecialProcList.Data^[I];
+    Dispose(p);
+  end;
+  FResources.Free;
+  FExportedVars.Free;
+  FTempVars.Free;
+  FStack.Free;
+  FGlobalVars.Free;
+  FProcs.Free;
+  FTypes.Free;
+  FSpecialProcList.Free;
+  for i := FRegProcs.Count - 1 downto 0 do
+  begin
+    x := FRegProcs.Data^[i];
+    if @x^.FreeProc <> nil then x^.FreeProc(Self, x);
+    Dispose(x);
+  end;
+  FRegProcs.Free;
+  FExceptionStack.Free;
+  for i := FAttributeTypes.Count -1 downto 0 do
+  begin
+    TPSAttributeType(FAttributeTypes[i]).Free;
+  end;
+  FAttributeTypes.Free;
+  inherited Destroy;
+end;
+
+procedure TPSExec.ExceptionProc(proc, Position: Cardinal; Ex: TPSError; const s: tbtString; NewObject: TObject);
+var
+  d, l: Longint;
+  pp: TPSExceptionHandler;
+begin
+  ExProc := proc;
+  ExPos := Position;
+  ExEx := Ex;
+  ExParam := s;
+  if ExObject <> nil then
+    ExObject.Free;
+  ExObject := NewObject;
+  if Ex = eNoError then Exit;
+  for d := FExceptionStack.Count -1 downto 0 do
+  begin
+    pp := FExceptionStack[d];
+    if Cardinal(FStack.Count) > pp.StackSize then
+    begin
+      for l := Longint(FStack.count) -1 downto Longint(pp.StackSize) do
+        FStack.Pop;
+    end;
+    if pp.CurrProc = nil then // no point in continuing
+    begin
+      pp.Free;
+      FExceptionStack.DeleteLast;
+
+      FCurrStackBase := InvalidVal;
+      FStatus := isPaused;
+      exit;
+    end;
+    FCurrProc := pp.CurrProc;
+    FData := FCurrProc.Data;
+    FDataLength := FCurrProc.Length;
+
+    FCurrStackBase := pp.BasePtr;
+    if pp.FinallyOffset <> InvalidVal then
+    begin
+      FCurrentPosition := pp.FinallyOffset;
+      pp.FinallyOffset := InvalidVal;
+      Exit;
+    end else if (pp.ExceptOffset <> InvalidVal) and (pp.ExceptOffset <> Cardinal(InvalidVal -1)) then
+    begin
+        FCurrentPosition := pp.ExceptOffset;
+      pp.ExceptOffset := Cardinal(InvalidVal -1);
+      pp.ExceptionObject := ExObject;
+      pp.ExceptionData := ExEx;
+      pp.ExceptionParam := ExParam;
+      ExObject := nil;
+      ExEx := ENoError;
+      Exit;
+    end else if pp.Finally2Offset <> InvalidVal then
+    begin
+      FCurrentPosition := pp.Finally2Offset;
+      pp.Finally2Offset := InvalidVal;
+      Exit;
+    end;
+    pp.Free;
+    FExceptionStack.DeleteLast;
+  end;
+  if FStatus <> isNotLoaded then
+    FStatus := isPaused;
+end;
+
+function LookupProc(List: TPSList; const Name: ShortString): PProcRec;
+var
+  h, l: Longint;
+  p: PProcRec;
+begin
+  h := MakeHash(Name);
+  for l := List.Count - 1 downto 0 do
+  begin
+    p := List.Data^[l];
+    if (p^.Hash = h) and (p^.Name = Name) then
+    begin
+      Result := List[l];
+      exit;
+    end;
+  end;
+  Result := nil;
+end;
+
+function TPSExec.ImportProc(const Name: ShortString; proc: TPSExternalProcRec): Boolean;
+var
+  u: PProcRec;
+  fname: tbtString;
+  I, fnh: Longint;
+  P: PSpecialProc;
+
+begin
+  if name = '' then
+  begin
+    fname := proc.Decl;
+    fname := copy(fname, 1, pos(tbtchar(':'), fname)-1);
+    fnh := MakeHash(fname);
+    for I := FSpecialProcList.Count -1 downto 0 do
+    begin
+      p := FSpecialProcList[I];
+      IF (p^.name = '') or ((p^.namehash = fnh) and (p^.name = fname)) then
+      begin
+        if p^.P(Self, Proc, p^.tag) then
+        begin
+          Result := True;
+          exit;
+        end;
+      end;
+    end;
+    Result := FAlse;
+    exit;
+  end;
+  u := LookupProc(FRegProcs, Name);
+  if u = nil then begin
+    Result := False;
+    exit;
+  end;
+  proc.ProcPtr := u^.ProcPtr;
+  proc.Ext1 := u^.Ext1;
+  proc.Ext2 := u^.Ext2;
+  Result := True;
+end;
+
+function TPSExec.RegisterFunctionName(const Name: tbtString; ProcPtr: TPSProcPtr; Ext1, Ext2: Pointer): PProcRec;
+var
+  p: PProcRec;
+  s: tbtString;
+begin
+  s := FastUppercase(Name);
+  New(p);
+  p^.Name := s;
+  p^.Hash := MakeHash(s);
+  p^.ProcPtr := ProcPtr;
+  p^.FreeProc := nil;
+  p.Ext1 := Ext1;
+  p^.Ext2 := Ext2;
+  FRegProcs.Add(p);
+  Result := P;
+end;
+
+function TPSExec.LoadData(const s: tbtString): Boolean;
+var
+  HDR: TPSHeader;
+  Pos: Cardinal;
+
+  function read(var Data; Len: Cardinal): Boolean;
+  begin
+    if Longint(Pos + Len) <= Length(s) then begin
+      Move(s[Pos + 1], Data, Len);
+      Pos := Pos + Len;
+      read := True;
+    end
+    else
+      read := False;
+  end;
+  function ReadAttributes(Dest: TPSRuntimeAttributes): Boolean;
+  var
+    Count: Cardinal;
+    i: Integer;
+
+    function ReadAttrib: Boolean;
+    var
+      NameLen: Longint;
+      Name: tbtString;
+      TypeNo: Cardinal;
+      i, h, FieldCount: Longint;
+      att: TPSRuntimeAttribute;
+      varp: PIFVariant;
+
+    begin
+      if (not Read(NameLen, 4)) or (NameLen > Length(s) - Longint(Pos)) then
+      begin
+        CMD_Err(ErOutOfRange);
+        Result := false;
+        exit;
+      end;
+      SetLength(Name, NameLen);
+      if not Read(Name[1], NameLen) then
+      begin
+        CMD_Err(ErOutOfRange);
+        Result := false;
+        exit;
+      end;
+      if not Read(FieldCount, 4) then
+      begin
+        CMD_Err(ErOutOfRange);
+        Result := false;
+        exit;
+      end;
+      att := Dest.Add;
+      att.AttribType := Name;
+      att.AttribTypeHash := MakeHash(att.AttribType);
+      for i := 0 to FieldCount -1 do
+      begin
+        if (not Read(TypeNo, 4)) or (TypeNo >= Cardinal(FTypes.Count)) then
+        begin
+          CMD_Err(ErOutOfRange);
+          Result := false;
+          exit;
+        end;
+
+        varp := att.AddValue(FTypes[TypeNo]);
+        case VarP^.FType.BaseType of
+          btSet:
+            begin
+              if not read(PPSVariantSet(varp).Data, TPSTypeRec_Set(varp.FType).aByteSize) then
+              begin
+                CMD_Err(erOutOfRange);
+
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;
+              end;
+            end;
+          bts8, btchar, btU8: if not read(PPSVariantU8(VarP)^.data, 1) then
+          begin
+              CMD_Err(erOutOfRange);
+              DestroyHeapVariant(VarP);
+              Result := False;
+              exit;
+            end;
+          bts16, {$IFNDEF PS_NOWIDESTRING}btwidechar,{$ENDIF} btU16: if not read(PPSVariantU16(Varp)^.Data, SizeOf(TbtU16)) then begin
+              CMD_Err(ErOutOfRange);
+              DestroyHeapVariant(VarP);
+              Result := False;
+              exit;
+            end;
+          bts32, btU32:
+            begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              PPSVariantU32(varp)^.Data := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              PPSVariantU32(varp)^.Data := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+            end;
+          btProcPtr:
+            begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              PPSVariantU32(varp)^.Data := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              PPSVariantU32(varp)^.Data := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              if PPSVariantU32(varp)^.Data = 0 then
+              begin
+                PPSVariantProcPtr(varp)^.Ptr := nil;
+                PPSVariantProcPtr(varp)^.Self := nil;
+              end;
+              Inc(FCurrentPosition, 4);
+            end;
+          {$IFNDEF PS_NOINT64}
+          bts64: if not read(PPSVariantS64(VarP)^.Data, sizeof(tbts64)) then
+            begin
+              CMD_Err(erOutOfRange);
+              DestroyHeapVariant(VarP);
+              Result := False;
+              exit;
+            end;
+          {$ENDIF}
+          btSingle: if not read(PPSVariantSingle(VarP)^.Data, SizeOf(TbtSingle))
+            then begin
+              CMD_Err(erOutOfRange);
+              DestroyHeapVariant(VarP);
+              Result := False;
+              exit;
+            end;
+          btDouble: if not read(PPSVariantDouble(varp)^.Data, SizeOf(TbtDouble))
+            then begin
+              CMD_Err(erOutOfRange);
+              DestroyHeapVariant(VarP);
+              Result := False;
+              exit;
+            end;
+          btExtended: if not read(PPSVariantExtended(varp)^.Data, SizeOf(TbtExtended))
+            then begin
+              CMD_Err(erOutOfRange);
+              DestroyHeapVariant(VarP);
+              Result := False;
+              exit;
+            end;
+          btCurrency: if not read(PPSVariantExtended(varp)^.Data, SizeOf(tbtCurrency))
+            then begin
+              CMD_Err(erOutOfRange);
+              DestroyHeapVariant(VarP);
+              Result := False;
+              exit;
+            end;
+          btPchar, btString:
+          begin
+            if not read(NameLen, 4) then
+            begin
+                Cmd_Err(erOutOfRange);
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;
+              end;
+              Inc(FCurrentPosition, 4);
+              SetLength(PPSVariantAString(varp)^.Data, NameLen);
+              if not read(PPSVariantAString(varp)^.Data[1], NameLen) then begin
+                CMD_Err(erOutOfRange);
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;
+              end;
+            end;
+          {$IFNDEF PS_NOWIDESTRING}
+          btWidestring:
+            begin
+              if not read(NameLen, 4) then
+              begin
+                Cmd_Err(erOutOfRange);
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;
+              end;
+              Inc(FCurrentPosition, 4);
+              SetLength(PPSVariantWString(varp).Data, NameLen);
+              if not read(PPSVariantWString(varp).Data[1], NameLen*2) then begin
+                CMD_Err(erOutOfRange);
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;
+              end;
+            end;
+          btUnicodeString:
+            begin
+              if not read(NameLen, 4) then
+              begin
+                Cmd_Err(erOutOfRange);
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;
+              end;
+              Inc(FCurrentPosition, 4);
+              SetLength(PPSVariantUString(varp).Data, NameLen);
+              if not read(PPSVariantUString(varp).Data[1], NameLen*2) then begin
+                CMD_Err(erOutOfRange);
+                DestroyHeapVariant(VarP);
+                Result := False;
+                exit;
+              end;
+            end;
+          {$ENDIF}
+        else begin
+            CMD_Err(erInvalidType);
+            DestroyHeapVariant(VarP);
+            Result := False;
+            exit;
+          end;
+        end;
+      end;
+      h := MakeHash(att.AttribType);
+      for i := FAttributeTypes.Count -1 downto 0 do
+      begin
+        if (TPSAttributeType(FAttributeTypes.Data^[i]).TypeNameHash = h) and
+          (TPSAttributeType(FAttributeTypes.Data^[i]).TypeName = att.AttribType) then
+        begin
+          if not TPSAttributeType(FAttributeTypes.Data^[i]).UseProc(Self, att.AttribType, Att) then
+          begin
+            Result := False;
+            exit;
+          end;
+        end;
+      end;
+      Result := True;
+    end;
+
+
+  begin
+    if not Read(Count, 4) then
+    begin
+      CMD_Err(erOutofRange);
+      Result := false;
+      exit;
+    end;
+    for i := 0 to Count -1 do
+    begin
+      if not ReadAttrib then
+      begin
+        Result := false;
+        exit;
+      end;
+    end;
+    Result := True;
+  end;
+
+{$WARNINGS OFF}
+
+  function LoadTypes: Boolean;
+  var
+    currf: TPSType;
+    Curr: PIFTypeRec;
+    fe: Boolean;
+    l2, l: Longint;
+    d: Cardinal;
+
+    function resolve(Dta: TPSTypeRec_Record): Boolean;
+    var
+      offs, l: Longint;
+    begin
+      offs := 0;
+      for l := 0 to Dta.FieldTypes.Count -1 do
+      begin
+        Dta.RealFieldOffsets.Add(Pointer(offs));
+        offs := offs + TPSTypeRec(Dta.FieldTypes[l]).RealSize;
+      end;
+      Result := True;
+    end;
+  begin
+    LoadTypes := True;
+    for l := 0 to HDR.TypeCount - 1 do begin
+      if not read(currf, SizeOf(currf)) then begin
+        cmd_err(erUnexpectedEof);
+        LoadTypes := False;
+        exit;
+      end;
+      if (currf.BaseType and 128) <> 0 then begin
+        fe := True;
+        currf.BaseType := currf.BaseType - 128;
+      end else
+        fe := False;
+      case currf.BaseType of
+        {$IFNDEF PS_NOINT64}bts64, {$ENDIF}
+        btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btCurrency,
+        btExtended, btString, btPointer, btPChar,
+        btVariant, btChar{$IFNDEF PS_NOWIDESTRING}, btUnicodeString, btWideString, btWideChar{$ENDIF}: begin
+            curr := TPSTypeRec.Create(self);
+            Curr.BaseType := currf.BaseType;
+            FTypes.Add(Curr);
+          end;
+        btClass:
+          begin
+            Curr := TPSTypeRec_Class.Create(self);
+            if (not Read(d, 4)) or (d > 255) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            setlength(TPSTypeRec_Class(Curr).FCN, d);
+            if not Read(TPSTypeRec_Class(Curr).FCN[1], d) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            Curr.BaseType := currf.BaseType;
+            FTypes.Add(Curr);
+          end;
+        btProcPtr:
+          begin
+            Curr := TPSTypeRec_ProcPtr.Create(self);
+            if (not Read(d, 4)) or (d > 255) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            setlength(TPSTypeRec_ProcPtr(Curr).FParamInfo, d);
+            if not Read(TPSTypeRec_ProcPtr(Curr).FParamInfo[1], d) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            Curr.BaseType := currf.BaseType;
+            FTypes.Add(Curr);
+          end;
+{$IFNDEF PS_NOINTERFACES}
+        btInterface:
+          begin
+            Curr := TPSTypeRec_Interface.Create(self);
+            if not Read(TPSTypeRec_Interface(Curr).FGUID, Sizeof(TGuid)) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            Curr.BaseType := currf.BaseType;
+            FTypes.Add(Curr);
+          end;
+{$ENDIF}
+        btSet:
+          begin
+            Curr := TPSTypeRec_Set.Create(self);
+            if not Read(d, 4) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            if (d > 256) then
+            begin
+              curr.Free;
+              cmd_err(erTypeMismatch);
+              LoadTypes := False;
+              exit;
+            end;
+
+            TPSTypeRec_Set(curr).aBitSize := d;
+            TPSTypeRec_Set(curr).aByteSize := TPSTypeRec_Set(curr).aBitSize shr 3;
+            if (TPSTypeRec_Set(curr).aBitSize and 7) <> 0 then inc(TPSTypeRec_Set(curr).fbytesize);
+            Curr.BaseType := currf.BaseType;
+            FTypes.Add(Curr);
+          end;
+        btStaticArray:
+          begin
+            curr := TPSTypeRec_StaticArray.Create(self);
+            if not Read(d, 4) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            if (d >= FTypes.Count) then
+            begin
+              curr.Free;
+              cmd_err(erTypeMismatch);
+              LoadTypes := False;
+              exit;
+            end;
+            TPSTypeRec_StaticArray(curr).ArrayType := FTypes[d];
+            if not Read(d, 4) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            if d > (MaxInt div 4) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            TPSTypeRec_StaticArray(curr).Size := d;
+            if not Read(d,4) then                                             //<-additional StartOffset
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes:=false;
+              Exit;
+            end;
+            TPSTypeRec_StaticArray(curr).StartOffset:=d;
+
+            Curr.BaseType := currf.BaseType;
+            FTypes.Add(Curr);
+          end;
+        btArray: begin
+            Curr := TPSTypeRec_Array.Create(self);
+            if not read(d, 4) then
+            begin // Read type
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := False;
+              exit;
+            end;
+            if (d >= FTypes.Count) then
+            begin
+              curr.Free;
+              cmd_err(erTypeMismatch);
+              LoadTypes := False;
+              exit;
+            end;
+            Curr.BaseType := currf.BaseType;
+            TPSTypeRec_Array(curr).ArrayType := FTypes[d];
+            FTypes.Add(Curr);
+          end;
+        btRecord:
+          begin
+            curr := TPSTypeRec_Record.Create(self);
+            if not read(d, 4) or (d = 0) then
+            begin
+              curr.Free;
+              cmd_err(erUnexpectedEof);
+              LoadTypes := false;
+              exit;
+            end;
+            while d > 0 do
+            begin
+              if not Read(l2, 4) then
+              begin
+                curr.Free;
+                cmd_err(erUnexpectedEof);
+                LoadTypes := false;
+                exit;
+              end;
+              if Cardinal(l2) >= FTypes.Count then
+              begin
+                curr.Free;
+                cmd_err(ErOutOfRange);
+                LoadTypes := false;
+                exit;
+              end;
+              TPSTypeRec_Record(curR).FFieldTypes.Add(FTypes[l2]);
+              Dec(D);
+            end;
+            if not resolve(TPSTypeRec_Record(curr)) then
+            begin
+              curr.Free;
+              cmd_err(erInvalidType);
+              LoadTypes := False;
+              exit;
+            end;
+            Curr.BaseType := currf.BaseType;
+            FTypes.Add(Curr);
+          end;
+      else begin
+          LoadTypes := False;
+          CMD_Err(erInvalidType);
+          exit;
+        end;
+      end;
+      if fe then begin
+        if not read(d, 4) then begin
+          cmd_err(erUnexpectedEof);
+          LoadTypes := False;
+          exit;
+        end;
+        if d > PSAddrNegativeStackStart then
+        begin
+          cmd_err(erInvalidType);
+          LoadTypes := False;
+          exit;
+        end;
+        SetLength(Curr.FExportName, d);
+        if not read(Curr.fExportName[1], d) then
+        begin
+          cmd_err(erUnexpectedEof);
+          LoadTypes := False;
+          exit;
+        end;
+        Curr.ExportNameHash := MakeHash(Curr.ExportName);
+      end;
+      curr.CalcSize;
+      if HDR.PSBuildNo >= 21 then // since build 21 we support attributes
+      begin
+        if not ReadAttributes(Curr.Attributes) then
+        begin
+          LoadTypes := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+
+  function LoadProcs: Boolean;
+  var
+    Rec: TPSProc;
+    n: tbtString;
+    b: Byte;
+    l, L2, L3: Longint;
+    Curr: TPSProcRec;
+  begin
+    LoadProcs := True;
+    for l := 0 to HDR.ProcCount - 1 do begin
+      if not read(Rec, SizeOf(Rec)) then begin
+        cmd_err(erUnexpectedEof);
+        LoadProcs := False;
+        exit;
+      end;
+      if (Rec.Flags and 1) <> 0 then
+      begin
+        Curr := TPSExternalProcRec.Create(Self);
+        if not read(b, 1) then begin
+          Curr.Free;
+          cmd_err(erUnexpectedEof);
+          LoadProcs := False;
+          exit;
+        end;
+        SetLength(n, b);
+        if not read(n[1], b) then begin
+          Curr.Free;
+          cmd_err(erUnexpectedEof);
+          LoadProcs := False;
+          exit;
+        end;
+        TPSExternalProcRec(Curr).Name := n;
+        if (Rec.Flags and 3 = 3) then
+        begin
+          if (not Read(L2, 4)) or (L2 > Length(s) - Pos) then
+          begin
+            Curr.Free;
+            cmd_err(erUnexpectedEof);
+            LoadProcs := False;
+            exit;
+          end;
+          SetLength(n, L2);
+          Read(n[1], L2); // no check is needed
+          TPSExternalProcRec(Curr).FDecl := n;
+        end;
+        if not ImportProc(TPSExternalProcRec(Curr).Name, TPSExternalProcRec(Curr)) then begin
+          if TPSExternalProcRec(Curr).Name <> '' then
+            CMD_Err2(erCannotImport, TPSExternalProcRec(Curr).Name)
+          else
+            CMD_Err2(erCannotImport, TPSExternalProcRec(curr).Decl);
+          Curr.Free;
+          LoadProcs := False;
+          exit;
+        end;
+      end else begin
+        Curr := TPSInternalProcRec.Create(Self);
+        if not read(L2, 4) then begin
+          Curr.Free;
+          cmd_err(erUnexpectedEof);
+          LoadProcs := False;
+          exit;
+        end;
+        if not read(L3, 4) then begin
+          Curr.Free;
+          cmd_err(erUnexpectedEof);
+          LoadProcs := False;
+          exit;
+        end;
+        if (L2 < 0) or (L2 >= Length(s)) or (L2 + L3 > Length(s)) or (L3 = 0) then begin
+          Curr.Free;
+          cmd_err(erUnexpectedEof);
+          LoadProcs := False;
+          exit;
+        end;
+
+        GetMem(TPSInternalProcRec(Curr).FData, L3);
+        Move(s[L2 + 1], TPSInternalProcRec(Curr).FData^, L3);
+        TPSInternalProcRec(Curr).FLength := L3;
+        if (Rec.Flags and 2) <> 0 then begin // exported
+          if not read(L3, 4) then begin
+            Curr.Free;
+            cmd_err(erUnexpectedEof);
+            LoadProcs := False;
+            exit;
+          end;
+          if L3 > PSAddrNegativeStackStart then begin
+            Curr.Free;
+            cmd_err(erUnexpectedEof);
+            LoadProcs := False;
+            exit;
+          end;
+          SetLength(TPSInternalProcRec(Curr).FExportName, L3);
+          if not read(TPSInternalProcRec(Curr).FExportName[1], L3) then begin
+            Curr.Free;
+            cmd_err(erUnexpectedEof);
+            LoadProcs := False;
+            exit;
+          end;
+          if not read(L3, 4) then begin
+            Curr.Free;
+            cmd_err(erUnexpectedEof);
+            LoadProcs := False;
+            exit;
+          end;
+          if L3 > PSAddrNegativeStackStart then begin
+            Curr.Free;
+            cmd_err(erUnexpectedEof);
+            LoadProcs := False;
+            exit;
+          end;
+          SetLength(TPSInternalProcRec(Curr).FExportDecl, L3);
+          if not read(TPSInternalProcRec(Curr).FExportDecl[1], L3) then begin
+            Curr.Free;
+            cmd_err(erUnexpectedEof);
+            LoadProcs := False;
+            exit;
+          end;
+          TPSInternalProcRec(Curr).FExportNameHash := MakeHash(TPSInternalProcRec(Curr).ExportName);
+        end;
+      end;
+      if (Rec.Flags and 4) <> 0 then
+      begin
+        if not ReadAttributes(Curr.Attributes) then
+        begin
+          Curr.Free;
+          LoadProcs := False;
+          exit;
+        end;
+      end;
+      FProcs.Add(Curr);
+    end;
+  end;
+{$WARNINGS ON}
+
+  function LoadVars: Boolean;
+  var
+    l, n: Longint;
+    e: PPSExportedVar;
+    Rec: TPSVar;
+    Curr: PIfVariant;
+  begin
+    LoadVars := True;
+    for l := 0 to HDR.VarCount - 1 do begin
+      if not read(Rec, SizeOf(Rec)) then begin
+        cmd_err(erUnexpectedEof);
+        LoadVars := False;
+        exit;
+      end;
+      if Rec.TypeNo >= HDR.TypeCount then begin
+        cmd_err(erInvalidType);
+        LoadVars := False;
+        exit;
+      end;
+      Curr := FGlobalVars.PushType(FTypes.Data^[Rec.TypeNo]);
+      if Curr = nil then begin
+        cmd_err(erInvalidType);
+        LoadVars := False;
+        exit;
+      end;
+      if (Rec.Flags and 1) <> 0 then
+      begin
+        if not read(n, 4) then begin
+          cmd_err(erUnexpectedEof);
+          LoadVars := False;
+          exit;
+        end;
+        new(e);
+        try
+          SetLength(e^.FName, n);
+          if not Read(e^.FName[1], n) then
+          begin
+            dispose(e);
+            cmd_err(erUnexpectedEof);
+            LoadVars := False;
+            exit;
+          end;
+          e^.FNameHash := MakeHash(e^.FName);
+          e^.FVarNo := FGlobalVars.Count;
+          FExportedVars.Add(E);
+        except
+          dispose(e);
+          cmd_err(erInvalidType);
+          LoadVars := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+
+begin
+  Clear;
+  Pos := 0;
+  LoadData := False;
+  if not read(HDR, SizeOf(HDR)) then
+  begin
+    CMD_Err(erInvalidHeader);
+    exit;
+  end;
+  if HDR.HDR <> PSValidHeader then
+  begin
+    CMD_Err(erInvalidHeader);
+    exit;
+  end;
+  if (HDR.PSBuildNo > PSCurrentBuildNo) or (HDR.PSBuildNo < PSLowBuildSupport) then begin
+    CMD_Err(erInvalidHeader);
+    exit;
+  end;
+  if not LoadTypes then
+  begin
+    Clear;
+    exit;
+  end;
+  if not LoadProcs then
+  begin
+    Clear;
+    exit;
+  end;
+  if not LoadVars then
+  begin
+    Clear;
+    exit;
+  end;
+  if (HDR.MainProcNo >= FProcs.Count) and (HDR.MainProcNo <> InvalidVal)then begin
+    CMD_Err(erNoMainProc);
+    Clear;
+    exit;
+  end;
+  // Load Import Table
+  FMainProc := HDR.MainProcNo;
+  FStatus := isLoaded;
+  Result := True;
+end;
+
+
+procedure TPSExec.Pause;
+begin
+  if FStatus = isRunning then
+    FStatus := isPaused;
+end;
+
+function TPSExec.ReadData(var Data; Len: Cardinal): Boolean;
+begin
+  if FCurrentPosition + Len <= FDataLength then begin
+    Move(FData^[FCurrentPosition], Data, Len);
+    FCurrentPosition := FCurrentPosition + Len;
+    Result := True;
+  end
+  else
+    Result := False;
+end;
+
+procedure TPSExec.CMD_Err(EC: TPSError); // Error
+begin
+  CMD_Err3(ec, '', nil);
+end;
+
+procedure VNSetPointerTo(const Src: TPSVariantIFC; Data: Pointer; aType: TPSTypeRec);
+begin
+  if Src.aType.BaseType = btPointer then
+  begin
+    if atype.BaseType in NeedFinalization then
+      FinalizeVariant(src.Dta, Src.aType);
+    Pointer(Src.Dta^) := Data;
+    Pointer(Pointer(IPointer(Src.Dta)+PointerSize)^) := aType;
+    Pointer(Pointer(IPointer(Src.Dta)+(2*PointerSize))^) := nil;
+  end;
+end;
+
+function VNGetUInt(const Src: TPSVariantIFC): Cardinal;
+begin
+  Result := PSGetUInt(Src.Dta, Src.aType);
+end;
+
+{$IFNDEF PS_NOINT64}
+function VNGetInt64(const Src: TPSVariantIFC): Int64;
+begin
+  Result := PSGetInt64(Src.Dta, Src.aType);
+end;
+{$ENDIF}
+
+function VNGetReal(const Src: TPSVariantIFC): Extended;
+begin
+  Result := PSGetReal(Src.Dta, Src.aType);
+end;
+
+function VNGetCurrency(const Src: TPSVariantIFC): Currency;
+begin
+  Result := PSGetCurrency(Src.Dta, Src.aType);
+end;
+
+function VNGetInt(const Src: TPSVariantIFC): Longint;
+begin
+  Result := PSGetInt(Src.Dta, Src.aType);
+end;
+
+function VNGetAnsiString(const Src: TPSVariantIFC): tbtString;
+begin
+  Result := PSGetAnsiString(Src.Dta, Src.aType);
+end;
+
+{$IFNDEF PS_NOWIDESTRING}
+function VNGetWideString(const Src: TPSVariantIFC): tbtWideString;
+begin
+  Result := PSGetWideString(Src.Dta, Src.aType);
+end;
+
+function VNGetUnicodeString(const Src: TPSVariantIFC): tbtunicodestring;
+begin
+  Result := PSGetUnicodeString(Src.Dta, Src.aType);
+end;
+{$ENDIF}
+
+procedure VNSetUInt(const Src: TPSVariantIFC; const Val: Cardinal);
+var
+  Dummy: Boolean;
+begin
+  PSSetUInt(Src.Dta, Src.aType, Dummy, Val);
+end;
+
+{$IFNDEF PS_NOINT64}
+procedure VNSetInt64(const Src: TPSVariantIFC; const Val: Int64);
+var
+  Dummy: Boolean;
+begin
+  PSSetInt64(Src.Dta, Src.aType, Dummy, Val);
+end;
+{$ENDIF}
+
+procedure VNSetReal(const Src: TPSVariantIFC; const Val: Extended);
+var
+  Dummy: Boolean;
+begin
+  PSSetReal(Src.Dta, Src.aType, Dummy, Val);
+end;
+
+procedure VNSetCurrency(const Src: TPSVariantIFC; const Val: Currency);
+var
+  Dummy: Boolean;
+begin
+  PSSetCurrency(Src.Dta, Src.aType, Dummy, Val);
+end;
+
+procedure VNSetInt(const Src: TPSVariantIFC; const Val: Longint);
+var
+  Dummy: Boolean;
+begin
+  PSSetInt(Src.Dta, Src.aType, Dummy, Val);
+end;
+
+procedure VNSetAnsiString(const Src: TPSVariantIFC; const Val: tbtString);
+var
+  Dummy: Boolean;
+begin
+  PSSetAnsiString(Src.Dta, Src.aType, Dummy, Val);
+end;
+
+function VNGetString(const Src: TPSVariantIFC): String;
+begin
+  {$IFDEF DELPHI2009UP}
+  Result := VNGetUnicodeString(Src);
+  {$ELSE}
+  Result := VNGetAnsiString(Src);
+  {$ENDIF}
+end;
+
+procedure VNSetString(const Src: TPSVariantIFC; const Val: String);
+begin
+  {$IFDEF DELPHI2009UP}
+  VNSetUnicodeString(Src, Val);
+  {$ELSE}
+  VNSetAnsiString(Src, Val);
+  {$ENDIF}
+end;
+
+{$IFNDEF PS_NOWIDESTRING}
+procedure VNSetWideString(const Src: TPSVariantIFC; const Val: tbtWideString);
+var
+  Dummy: Boolean;
+begin
+  PSSetWideString(Src.Dta, Src.aType, Dummy, Val);
+end;
+
+procedure VNSetUnicodeString(const Src: TPSVariantIFC; const Val: tbtunicodestring);
+var
+  Dummy: Boolean;
+begin
+  PSSetUnicodeString(Src.Dta, Src.aType, Dummy, Val);
+end;
+
+{$ENDIF}
+
+function VGetUInt(const Src: PIFVariant): Cardinal;
+begin
+  Result := PSGetUInt(@PPSVariantData(src).Data, src.FType);
+end;
+
+{$IFNDEF PS_NOINT64}
+function VGetInt64(const Src: PIFVariant): Int64;
+begin
+  Result := PSGetInt64(@PPSVariantData(src).Data, src.FType);
+end;
+{$ENDIF}
+
+function VGetReal(const Src: PIFVariant): Extended;
+begin
+  Result := PSGetReal(@PPSVariantData(src).Data, src.FType);
+end;
+
+function VGetCurrency(const Src: PIFVariant): Currency;
+begin
+  Result := PSGetCurrency(@PPSVariantData(src).Data, src.FType);
+end;
+
+function VGetInt(const Src: PIFVariant): Longint;
+begin
+  Result := PSGetInt(@PPSVariantData(src).Data, src.FType);
+end;
+
+function VGetAnsiString(const Src: PIFVariant): tbtString;
+begin
+  Result := PSGetAnsiString(@PPSVariantData(src).Data, src.FType);
+end;
+
+{$IFNDEF PS_NOWIDESTRING}
+function VGetWideString(const Src: PIFVariant): tbtWideString;
+begin
+  Result := PSGetWideString(@PPSVariantData(src).Data, src.FType);
+end;
+
+function VGetUnicodeString(const Src: PIFVariant): tbtunicodestring;
+begin
+  Result := PSGetUnicodeString(@PPSVariantData(src).Data, src.FType);
+end;
+
+{$ENDIF}
+
+
+procedure VSetPointerTo(const Src: PIFVariant; Data: Pointer; aType: TPSTypeRec);
+var
+  temp: TPSVariantIFC;
+begin
+  if (Atype = nil) or (Data = nil) or (Src = nil) then raise Exception.Create(RPS_InvalidVariable);
+  temp.Dta := @PPSVariantData(Src).Data;
+  temp.aType := Src.FType;
+  temp.VarParam := false;
+  VNSetPointerTo(temp, Data, AType);
+end;
+
+procedure VSetUInt(const Src: PIFVariant; const Val: Cardinal);
+var
+  Dummy: Boolean;
+begin
+  PSSetUInt(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+end;
+
+{$IFNDEF PS_NOINT64}
+procedure VSetInt64(const Src: PIFVariant; const Val: Int64);
+var
+  Dummy: Boolean;
+begin
+  PSSetInt64(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+end;
+{$ENDIF}
+
+procedure VSetReal(const Src: PIFVariant; const Val: Extended);
+var
+  Dummy: Boolean;
+begin
+  PSSetReal(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+end;
+
+procedure VSetCurrency(const Src: PIFVariant; const Val: Currency);
+var
+  Dummy: Boolean;
+begin
+  PSSetCurrency(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+end;
+
+procedure VSetInt(const Src: PIFVariant; const Val: Longint);
+var
+  Dummy: Boolean;
+begin
+  PSSetInt(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+end;
+
+procedure VSetAnsiString(const Src: PIFVariant; const Val: tbtString);
+var
+  Dummy: Boolean;
+begin
+  PSSetAnsiString(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+end;
+
+function VGetString(const Src: PIFVariant): String;
+begin
+  {$IFDEF DELPHI2009UP}
+  Result := PSGetUnicodeString(@PPSVariantData(src).Data, src.FType);
+  {$ELSE}
+  Result := PSGetAnsiString(@PPSVariantData(src).Data, src.FType);
+  {$ENDIF}
+end;
+
+procedure VSetString(const Src: PIFVariant; const Val: string);
+var
+  Dummy: Boolean;
+begin
+  {$IFDEF DELPHI2009UP}
+  PSSetUnicodeString(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+  {$ELSE}
+  PSSetAnsiString(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+  {$ENDIF}
+end;
+
+
+{$IFNDEF PS_NOWIDESTRING}
+procedure VSetWideString(const Src: PIFVariant; const Val: tbtWideString);
+var
+  Dummy: Boolean;
+begin
+  PSSetWideString(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+end;
+
+procedure VSetUnicodeString(const Src: PIFVariant; const Val: tbtunicodestring);
+var
+  Dummy: Boolean;
+begin
+  PSSetUnicodeString(@PPSVariantData(src).Data, src.FType, Dummy, Val);
+end;
+
+
+{$ENDIF}
+
+{$IFNDEF PS_NOWIDESTRING}
+function VarToWideStr(const Data: Variant): tbtunicodestring;
+begin
+  if not VarIsNull(Data) then
+    Result := Data
+  else
+    Result := '';
+end;
+{$ENDIF}
+
+function PSGetUInt(Src: Pointer; aType: TPSTypeRec): Cardinal;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btU8: Result := tbtu8(src^);
+    btS8: Result := tbts8(src^);
+    btU16: Result := tbtu16(src^);
+    btS16: Result := tbts16(src^);
+    btU32: Result := tbtu32(src^);
+    btS32: Result := tbts32(src^);
+{$IFNDEF PS_NOINT64}    btS64: Result := tbts64(src^);
+{$ENDIF}
+    btChar: Result := Ord(tbtchar(Src^));
+{$IFNDEF PS_NOWIDESTRING}    btWideChar: Result := Ord(tbtwidechar(Src^));{$ENDIF}
+    btVariant:
+      case VarType(Variant(Src^)) of
+        varString:
+          if Length(VarToStr(Variant(Src^))) = 1 then
+            Result := Ord(VarToStr(Variant(Src^))[1])
+          else
+            raise Exception.Create(RPS_TypeMismatch);
+{$IFNDEF PS_NOWIDESTRING}
+        varOleStr:
+          if Length(VarToWideStr(Variant(Src^))) = 1 then
+            Result := Ord(VarToWideStr(Variant(Src^))[1])
+          else
+            raise Exception.Create(RPS_TypeMismatch);
+{$ENDIF}
+       else
+        Result := Variant(src^);
+       end;
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+
+function PSGetObject(Src: Pointer; aType: TPSTypeRec): TObject;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btClass: Result := TObject(Src^);
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+
+procedure PSSetObject(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; Const val: TObject);
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btClass: TObject(Src^) := Val;
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+
+
+{$IFNDEF PS_NOINT64}
+function PSGetInt64(Src: Pointer; aType: TPSTypeRec): Int64;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btU8: Result := tbtu8(src^);
+    btS8: Result := tbts8(src^);
+    btU16: Result := tbtu16(src^);
+    btS16: Result := tbts16(src^);
+    btU32: Result := tbtu32(src^);
+    btS32: Result := tbts32(src^);
+    btS64: Result := tbts64(src^);
+    btChar: Result := Ord(tbtchar(Src^));
+{$IFNDEF PS_NOWIDESTRING}
+    btWideChar: Result := Ord(tbtwidechar(Src^));
+{$ENDIF}
+{$IFDEF DELPHI6UP}
+    btVariant:   Result := Variant(src^);
+{$ENDIF}
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+{$ENDIF}
+
+function PSGetReal(Src: Pointer; aType: TPSTypeRec): Extended;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btU8: Result := tbtu8(src^);
+    btS8: Result := tbts8(src^);
+    btU16: Result := tbtu16(src^);
+    btS16: Result := tbts16(src^);
+    btU32: Result := tbtu32(src^);
+    btS32: Result := tbts32(src^);
+{$IFNDEF PS_NOINT64}    btS64: Result := tbts64(src^);{$ENDIF}
+    btSingle: Result := tbtsingle(Src^);
+    btDouble: Result := tbtdouble(Src^);
+    btExtended: Result := tbtextended(Src^);
+    btCurrency: Result := tbtcurrency(Src^);
+    btVariant:  Result := Variant(src^);
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+
+function PSGetCurrency(Src: Pointer; aType: TPSTypeRec): Currency;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btU8: Result := tbtu8(src^);
+    btS8: Result := tbts8(src^);
+    btU16: Result := tbtu16(src^);
+    btS16: Result := tbts16(src^);
+    btU32: Result := tbtu32(src^);
+    btS32: Result := tbts32(src^);
+{$IFNDEF PS_NOINT64} btS64: Result := tbts64(src^);{$ENDIF}
+    btSingle: Result := tbtsingle(Src^);
+    btDouble: Result := tbtdouble(Src^);
+    btExtended: Result := tbtextended(Src^);
+    btCurrency: Result := tbtcurrency(Src^);
+    btVariant:   Result := Variant(src^);
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+
+
+function PSGetInt(Src: Pointer; aType: TPSTypeRec): Longint;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btU8: Result := tbtu8(src^);
+    btS8: Result := tbts8(src^);
+    btU16: Result := tbtu16(src^);
+    btS16: Result := tbts16(src^);
+    btU32: Result := tbtu32(src^);
+    btS32: Result := tbts32(src^);
+{$IFNDEF PS_NOINT64} btS64: Result := tbts64(src^);{$ENDIF}
+    btChar: Result := Ord(tbtchar(Src^));
+{$IFNDEF PS_NOWIDESTRING}    btWideChar: Result := Ord(tbtwidechar(Src^));{$ENDIF}
+    btVariant: Result := Variant(src^);
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+
+
+function PSGetAnsiString(Src: Pointer; aType: TPSTypeRec): tbtString;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btU8: Result := tbtchar(tbtu8(src^));
+    btChar: Result := tbtchar(Src^);
+    btPchar: Result := pansichar(src^);
+{$IFNDEF PS_NOWIDESTRING}    btWideChar: Result := tbtString(tbtwidechar(Src^));{$ENDIF}
+    btString: Result := tbtstring(src^);
+{$IFNDEF PS_NOWIDESTRING}
+    btUnicodeString: result := tbtString(tbtUnicodestring(src^));
+    btWideString: Result := tbtString(tbtwidestring(src^));{$ENDIF}
+    btVariant:  Result := tbtString(Variant(src^));
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+{$IFNDEF PS_NOWIDESTRING}
+function PSGetWideString(Src: Pointer; aType: TPSTypeRec): tbtWideString;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btU8: Result := chr(tbtu8(src^));
+    btU16: Result := widechar(src^);
+    btChar: Result := tbtwidestring(tbtchar(Src^));
+    btPchar: Result := tbtwidestring(pansichar(src^));
+    btWideChar: Result := tbtwidechar(Src^);
+    btString: Result := tbtwidestring(tbtstring(src^));
+    btWideString: Result := tbtwidestring(src^);
+    btVariant:   Result := Variant(src^);
+    btUnicodeString: result := tbtUnicodeString(src^);
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+
+function PSGetUnicodeString(Src: Pointer; aType: TPSTypeRec): tbtunicodestring;
+begin
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then raise Exception.Create(RPS_TypeMismatch);
+  end;
+  case aType.BaseType of
+    btU8: Result := chr(tbtu8(src^));
+    btU16: Result := widechar(src^);
+    btChar: Result := tbtwidestring(tbtchar(Src^));
+    btPchar: Result := tbtwidestring(pansichar(src^));
+    btWideChar: Result := tbtwidechar(Src^);
+    btString: Result := tbtwidestring(tbtstring(src^));
+    btWideString: Result := tbtwidestring(src^);
+    btVariant:   Result := Variant(src^);
+    btUnicodeString: result := tbtUnicodeString(src^);
+    else raise Exception.Create(RPS_TypeMismatch);
+  end;
+end;
+{$ENDIF}
+
+procedure PSSetUInt(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Cardinal);
+begin
+  if (Src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  end;
+  case aType.BaseType of
+    btU8: tbtu8(src^) := Val;
+    btS8: tbts8(src^) := Val;
+    btU16: tbtu16(src^) := Val;
+    btS16: tbts16(src^) := Val;
+    btProcPtr:
+      begin
+        tbtu32(src^) := Val;
+        Pointer(Pointer(IPointer(Src)+PointerSize)^) := nil;
+        Pointer(Pointer(IPointer(Src)+PointerSize2)^) := nil;
+      end;
+    btU32: tbtu32(src^) := Val;
+    btS32: tbts32(src^) := Val;
+{$IFNDEF PS_NOINT64}    btS64: tbts64(src^) := Val;{$ENDIF}
+    btChar: tbtchar(Src^) := tbtChar(Val);
+{$IFNDEF PS_NOWIDESTRING}    btWideChar: tbtwidechar(Src^) := tbtwidechar(Val);{$ENDIF}
+    btSingle: tbtSingle(src^) := Val;
+    btDouble: tbtDouble(src^) := Val;
+    btCurrency: tbtCurrency(src^) := Val;
+    btExtended: tbtExtended(src^) := Val;
+    btVariant:
+      begin
+        try
+          Variant(src^) := {$IFDEF DELPHI6UP}val{$ELSE}tbts32(val){$ENDIF};
+        except
+          Ok := false;
+        end;
+      end;
+    else ok := false;
+  end;
+end;
+
+{$IFNDEF PS_NOINT64}
+procedure PSSetInt64(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Int64);
+begin
+  if (Src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  end;
+  case aType.BaseType of
+    btU8: tbtu8(src^) := Val;
+    btS8: tbts8(src^) := Val;
+    btU16: tbtu16(src^) := Val;
+    btS16: tbts16(src^) := Val;
+    btU32: tbtu32(src^) := Val;
+    btS32: tbts32(src^) := Val;
+    btS64: tbts64(src^) := Val;
+    btChar: tbtchar(Src^) := tbtChar(Val);
+{$IFNDEF PS_NOWIDESTRING}
+    btWideChar: tbtwidechar(Src^) := tbtwidechar(Val);
+{$ENDIF}
+    btSingle: tbtSingle(src^) := Val;
+    btDouble: tbtDouble(src^) := Val;
+    btCurrency: tbtCurrency(src^) := Val;
+    btExtended: tbtExtended(src^) := Val;
+{$IFDEF DELPHI6UP}
+    btVariant:
+      begin
+        try
+          Variant(src^) := Val;
+        except
+          Ok := false;
+        end;
+      end;
+{$ENDIF}
+    else ok := false;
+  end;
+end;
+{$ENDIF}
+
+procedure PSSetReal(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Extended);
+begin
+  if (Src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  end;
+  case aType.BaseType of
+    btSingle: tbtSingle(src^) := Val;
+    btDouble: tbtDouble(src^) := Val;
+    btCurrency: tbtCurrency(src^) := Val;
+    btExtended: tbtExtended(src^) := Val;
+    btVariant:
+      begin
+        try
+          Variant(src^) := Val;
+        except
+          Ok := false;
+        end;
+      end;
+    else ok := false;
+  end;
+end;
+
+procedure PSSetCurrency(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Currency);
+begin
+  if (Src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  end;
+  case aType.BaseType of
+    btSingle: tbtSingle(src^) := Val;
+    btDouble: tbtDouble(src^) := Val;
+    btCurrency: tbtCurrency(src^) := Val;
+    btExtended: tbtExtended(src^) := Val;
+    btVariant:
+      begin
+        try
+          Variant(src^) := Val;
+        except
+          Ok := false;
+        end;
+      end;
+    else ok := false;
+  end;
+end;
+
+procedure PSSetInt(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: Longint);
+begin
+  if (Src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  end;
+  case aType.BaseType of
+    btU8: tbtu8(src^) := Val;
+    btS8: tbts8(src^) := Val;
+    btU16: tbtu16(src^) := Val;
+    btS16: tbts16(src^) := Val;
+    btProcPtr:
+      begin
+        tbtu32(src^) := Val;
+        Pointer(Pointer(IPointer(Src)+PointerSize)^) := nil;
+        Pointer(Pointer(IPointer(Src)+PointerSize2)^) := nil;
+      end;
+    btU32: tbtu32(src^) := Val;
+    btS32: tbts32(src^) := Val;
+{$IFNDEF PS_NOINT64}    btS64: tbts64(src^) := Val;{$ENDIF}
+    btChar: tbtchar(Src^) := tbtChar(Val);
+{$IFNDEF PS_NOWIDESTRING}    btWideChar: tbtwidechar(Src^) := tbtwidechar(Val);{$ENDIF}
+    btSingle: tbtSingle(src^) := Val;
+    btDouble: tbtDouble(src^) := Val;
+    btCurrency: tbtCurrency(src^) := Val;
+    btExtended: tbtExtended(src^) := Val;
+    btVariant:
+      begin
+        try
+          Variant(src^) := Val;
+        except
+          Ok := false;
+        end;
+      end;
+    else ok := false;
+  end;
+end;
+
+procedure PSSetAnsiString(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: tbtString);
+begin
+  if (Src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  end;
+  case aType.BaseType of
+    btString: tbtstring(src^) := val;
+{$IFNDEF PS_NOWIDESTRING}
+    btUnicodeString: tbtunicodestring(src^) := tbtUnicodeString(AnsiString(val));
+    btWideString: tbtwidestring(src^) := tbtwidestring(AnsiString(val));{$ENDIF}
+    btVariant:
+      begin
+        try
+          Variant(src^) := Val;
+        except
+          Ok := false;
+        end;
+      end;
+    else ok := false;
+  end;
+end;
+{$IFNDEF PS_NOWIDESTRING}
+procedure PSSetWideString(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: tbtWideString);
+begin
+  if (Src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  end;
+  case aType.BaseType of
+    btString: tbtstring(src^) := tbtString(val);
+    btWideString: tbtwidestring(src^) := val;
+    btUnicodeString: tbtunicodestring(src^) := val;
+    btVariant:
+      begin
+        try
+          Variant(src^) := Val;
+        except
+          Ok := false;
+        end;
+      end;
+    else ok := false;
+  end;
+end;
+procedure PSSetUnicodeString(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: tbtunicodestring);
+begin
+  if (Src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  if aType.BaseType = btPointer then
+  begin
+    atype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+    Src := Pointer(Src^);
+    if (src = nil) or (aType = nil) then begin Ok := false; exit; end;
+  end;
+  case aType.BaseType of
+    btString: tbtstring(src^) := tbtString(val);
+    btWideString: tbtwidestring(src^) := val;
+    btUnicodeString: tbtunicodestring(src^) := val;
+    btVariant:
+      begin
+        try
+          Variant(src^) := Val;
+        except
+          Ok := false;
+        end;
+      end;
+    else ok := false;
+  end;
+end;
+{$ENDIF}
+
+function PSGetString(Src: Pointer; aType: TPSTypeRec): string;
+begin
+  {$IFDEF DELPHI2009UP}
+  result := PSGetUnicodeString(Src, aType);
+  {$ELSE}
+  result := PSGetAnsiString(Src, aType);
+  {$ENDIF}
+end;
+
+procedure PSSetString(Src: Pointer; aType: TPSTypeRec; var Ok: Boolean; const Val: String);
+begin
+  {$IFDEF DELPHI2009UP}
+  PSSetUnicodeString(Src, aType, Ok, Val);
+  {$ELSE}
+  PSSetAnsiString(Src, aType, Ok, Val);
+  {$ENDIF}
+end;
+
+
+function CopyArrayContents(dest, src: Pointer; Len: Longint; aType: TPSTypeRec): Boolean; forward;
+
+function CopyRecordContents(dest, src: Pointer; aType: TPSTypeRec_Record): Boolean;
+var
+  o, i: Longint;
+begin
+  for i := 0 to aType.FieldTypes.Count -1 do
+  begin
+    o := Longint(atype.RealFieldOffsets[i]);
+    CopyArrayContents(Pointer(IPointer(Dest)+Cardinal(o)), Pointer(IPointer(Src)+Cardinal(o)), 1, aType.FieldTypes[i]);
+  end;
+  Result := true;
+end;
+
+function CreateArrayFromVariant(Exec: TPSExec; dest: Pointer; src: Variant; DestType: TPSTypeRec): Boolean;
+var
+  i: Integer;
+  r: Pointer;
+  lVarType: TPSTypeRec;
+  v: variant;
+begin
+  lVarType := Exec.FindType2(btVariant);
+  if lVarType = nil then begin result := false; exit; end;
+  PSDynArraySetLength(Pointer(dest^), desttype, VarArrayHighBound(src, 1) - VarArrayLowBound(src, 1) + 1);
+  r := Pointer(Dest^);
+  DestType := TPSTypeRec_Array(DestType).ArrayType;
+  for i := 0 to VarArrayHighBound(src, 1) - VarArrayLowBound(src, 1) do begin
+    v := src[i + VarArrayLowBound(src, 1)];
+    if not Exec.SetVariantValue(r, @v, desttype, lVarType) then begin result := false; exit; end;
+    r := Pointer(IPointer(r) + Longint(DestType.RealSize));
+  end;
+  Result := true;
+end;
+
+function CopyArrayContents(dest, src: Pointer; Len: Longint; aType: TPSTypeRec): Boolean;
+var
+  elsize: Cardinal;
+  i: Longint;
+begin
+  try
+    case aType.BaseType of
+      btU8, btS8, btChar:
+        for i := 0 to Len -1 do
+        begin
+          tbtU8(Dest^) := tbtU8(Src^);
+          Dest := Pointer(IPointer(Dest) + 1);
+          Src := Pointer(IPointer(Src) + 1);
+        end;
+      btU16, btS16{$IFNDEF PS_NOWIDESTRING}, btWideChar{$ENDIF}:
+        for i := 0 to Len -1 do
+        begin
+          tbtU16(Dest^) := tbtU16(Src^);
+          Dest := Pointer(IPointer(Dest) + 2);
+          Src := Pointer(IPointer(Src) + 2);
+        end;
+      btProcPtr:
+        for i := 0 to Len -1 do
+        begin
+          tbtU32(Dest^) := tbtU32(Src^);
+          Dest := Pointer(IPointer(Dest) + 4);
+          Src := Pointer(IPointer(Src) + 4);
+          Pointer(Dest^) := Pointer(Src^);
+          Dest := Pointer(IPointer(Dest) + PointerSize);
+          Src := Pointer(IPointer(Src) + PointerSize);
+          Pointer(Dest^) := Pointer(Src^);
+          Dest := Pointer(IPointer(Dest) + PointerSize);
+          Src := Pointer(IPointer(Src) + PointerSize);
+        end;
+      btClass, btpchar:
+        for i := 0 to Len -1 do
+        begin
+          Pointer(Dest^) := Pointer(Src^);
+          Dest := Pointer(IPointer(Dest) + PointerSize);
+          Src := Pointer(IPointer(Src) + PointerSize);
+        end;
+      btU32, btS32, btSingle:
+        for i := 0 to Len -1 do
+        begin
+          tbtU32(Dest^) := tbtU32(Src^);
+          Dest := Pointer(IPointer(Dest) + 4);
+          Src := Pointer(IPointer(Src) + 4);
+        end;
+      btDouble:
+        for i := 0 to Len -1 do
+        begin
+          tbtDouble(Dest^) := tbtDouble(Src^);
+          Dest := Pointer(IPointer(Dest) + 8);
+          Src := Pointer(IPointer(Src) + 8);
+        end;
+      {$IFNDEF PS_NOINT64}bts64:
+        for i := 0 to Len -1 do
+        begin
+          tbts64(Dest^) := tbts64(Src^);
+          Dest := Pointer(IPointer(Dest) + 8);
+          Src := Pointer(IPointer(Src) + 8);
+        end;{$ENDIF}
+      btExtended:
+        for i := 0 to Len -1 do
+        begin
+          tbtExtended(Dest^) := tbtExtended(Src^);
+          Dest := Pointer(IPointer(Dest) + SizeOf(Extended));
+          Src := Pointer(IPointer(Src) + SizeOf(Extended));
+        end;
+      btCurrency:
+        for i := 0 to Len -1 do
+        begin
+          tbtCurrency(Dest^) := tbtCurrency(Src^);
+          Dest := Pointer(IPointer(Dest) + SizeOf(Currency));
+          Src := Pointer(IPointer(Src) + SizeOf(Currency));
+        end;
+      btVariant:
+        for i := 0 to Len -1 do
+        begin
+          variant(Dest^) := variant(Src^);
+          Dest := Pointer(IPointer(Dest) + Sizeof(Variant));
+          Src := Pointer(IPointer(Src) + Sizeof(Variant));
+        end;
+      btString:
+        for i := 0 to Len -1 do
+        begin
+          tbtString(Dest^) := tbtString(Src^);
+          Dest := Pointer(IPointer(Dest) + PointerSize);
+          Src := Pointer(IPointer(Src) + PointerSize);
+        end;
+      {$IFNDEF PS_NOWIDESTRING}
+      btUnicodeString:
+        for i := 0 to Len -1 do
+        begin
+          tbtunicodestring(Dest^) := tbtunicodestring(Src^);
+          Dest := Pointer(IPointer(Dest) + PointerSize);
+          Src := Pointer(IPointer(Src) + PointerSize);
+        end;
+      btWideString:
+        for i := 0 to Len -1 do
+        begin
+          tbtWideString(Dest^) := tbtWideString(Src^);
+          Dest := Pointer(IPointer(Dest) + PointerSize);
+          Src := Pointer(IPointer(Src) + PointerSize);
+        end;
+    {$ENDIF}
+      btStaticArray:
+        begin
+          elSize := aType.RealSize;
+          for i := 0 to Len -1 do
+          begin
+            if not CopyArrayContents(Dest, Src, TPSTypeRec_StaticArray(aType).Size, TPSTypeRec_StaticArray(aType).ArrayType) then
+            begin
+              result := false;
+              exit;
+            end;
+            Dest := Pointer(IPointer(Dest) + elsize);
+            Src := Pointer(IPointer(Src) + elsize);
+          end;
+        end;
+      btArray:
+        begin
+          for i := 0 to Len -1 do
+          begin
+            Pointer(Dest^) := Pointer(Src^);
+            if Pointer(Dest^) <> nil then
+            begin
+              Inc(Longint(Pointer(IPointer(Dest^)-(2*PointerSize))^)); // RefCount
+            end;
+            Dest := Pointer(IPointer(Dest) + PointerSize);
+            Src := Pointer(IPointer(Src) + PointerSize);
+          end;
+        end;
+      btRecord:
+        begin
+          elSize := aType.RealSize;
+          for i := 0 to Len -1 do
+          begin
+            if not CopyRecordContents(Dest, Src, TPSTypeRec_Record(aType)) then
+            begin
+              result := false;
+              exit;
+            end;
+            Dest := Pointer(IPointer(Dest) + elsize);
+            Src := Pointer(IPointer(Src) + elsize);
+          end;
+        end;
+      btSet:
+        begin
+          elSize := aType.RealSize;
+          for i := 0 to Len -1 do
+          begin
+            Move(Src^, Dest^, elSize);
+            Dest := Pointer(IPointer(Dest) + elsize);
+            Src := Pointer(IPointer(Src) + elsize);
+          end;
+        end;
+{$IFNDEF PS_NOINTERFACES}
+      btInterface:
+        begin
+          for i := 0 to Len -1 do
+          begin
+            {$IFNDEF DELPHI3UP}
+            if IUnknown(Dest^) <> nil then
+            begin
+              IUnknown(Dest^).Release;
+              IUnknown(Dest^) := nil;
+            end;
+            {$ENDIF}
+            IUnknown(Dest^) := IUnknown(Src^);
+            {$IFNDEF DELPHI3UP}
+            if IUnknown(Dest^) <> nil then
+              IUnknown(Dest^).AddRef;
+            {$ENDIF}
+            Dest := Pointer(IPointer(Dest) + PointerSize);
+            Src := Pointer(IPointer(Src) + PointerSize);
+          end;
+        end;
+{$ENDIF}
+      btPointer:
+        begin
+          if (Pointer(Pointer(IPointer(Dest)+PointerSize2)^) = nil) and (Pointer(Pointer(IPointer(Src)+PointerSize2)^) = nil) then
+          begin
+            for i := 0 to Len -1 do
+            begin
+              Pointer(Dest^) := Pointer(Src^);
+              Dest := Pointer(IPointer(Dest) + PointerSize);
+              Src := Pointer(IPointer(Src) + PointerSize);
+              Pointer(Dest^) := Pointer(Src^);
+              Dest := Pointer(IPointer(Dest) + PointerSize);
+              Src := Pointer(IPointer(Src) + PointerSize);
+              LongBool(Dest^) := false;
+              Dest := Pointer(IPointer(Dest) + sizeof(LongBool));
+              Src := Pointer(IPointer(Src) + sizeof(LongBool));
+            end;
+          end else begin
+            for i := 0 to Len -1 do
+            begin
+              if Pointer(Pointer(IPointer(Dest)+PointerSize2)^) <> nil then
+                DestroyHeapVariant2(Pointer(Dest^), Pointer(Pointer(IPointer(Dest)+PointerSize)^));
+              if Pointer(Src^) <> nil then
+              begin
+                if not LongBool(Pointer(IPointer(Src) + PointerSize2)^) then
+                begin
+                  Pointer(Dest^) := Pointer(Src^);
+                  Pointer(Pointer(IPointer(Dest) + PointerSize)^) := Pointer(Pointer(IPointer(Src) + PointerSize)^);
+                  Pointer(Pointer(IPointer(Dest) + PointerSize2)^) := Pointer(Pointer(IPointer(Src) + PointerSize2)^);
+                end else
+                begin
+                  Pointer(Dest^) := CreateHeapVariant2(Pointer(Pointer(IPointer(Src) + PointerSize)^));
+                  Pointer(Pointer(IPointer(Dest) + PointerSize)^) := Pointer(Pointer(IPointer(Src) + PointerSize)^);
+                  LongBool(Pointer(IPointer(Dest) + PointerSize2)^) := true;
+                  if not CopyArrayContents(Pointer(Dest^), Pointer(Src^), 1, Pointer(Pointer(IPointer(Dest) + PointerSize)^)) then
+                  begin
+                    Result := false;
+                    exit;
+                  end;
+                end;
+              end else
+              begin
+                Pointer(Dest^) := nil;
+                Pointer(Pointer(IPointer(Dest) + PointerSize)^) := nil;
+                Pointer(Pointer(IPointer(Dest) + PointerSize2)^) := nil;
+              end;
+              Dest := Pointer(IPointer(Dest) + PointerSize*2+sizeof(LongBool));
+              Src := Pointer(IPointer(Src) + PointerSize*2+sizeof(LongBool));
+            end;
+          end;
+        end;
+//      btResourcePointer = 15;
+//      btVariant = 16;
+    else
+      Result := False;
+      exit;
+    end;
+  except
+    Result := False;
+    exit;
+  end;
+  Result := true;
+end;
+
+function  GetPSArrayLength(Arr: PIFVariant): Longint;
+begin
+  result := PSDynArrayGetLength(PPSVariantDynamicArray(arr).Data, arr.FType);
+end;
+
+procedure SetPSArrayLength(Arr: PIFVariant; NewLength: Longint);
+begin
+  PSDynArraySetLength(PPSVariantDynamicArray(arr).Data, arr.FType, NewLength);
+end;
+
+
+function PSDynArrayGetLength(arr: Pointer; aType: TPSTypeRec): Longint;
+begin
+  if aType.BaseType <> btArray then raise Exception.Create(RPS_InvalidArray);
+  if arr = nil then Result := 0 else Result := Longint(Pointer(IPointer(arr)-PointerSize)^) {$IFDEF FPC} +1 {$ENDIF};
+end;
+
+procedure PSDynArraySetLength(var arr: Pointer; aType: TPSTypeRec; NewLength: Longint);
+var
+  elSize, i, OldLen: Longint;
+  p: Pointer;
+begin
+  if aType.BaseType <> btArray then raise Exception.Create(RPS_InvalidArray);
+  OldLen := PSDynArrayGetLength(arr, aType);
+  elSize := TPSTypeRec_Array(aType).ArrayType.RealSize;
+  if (OldLen = 0) and (NewLength = 0) then exit; // already are both 0
+  if (OldLen <> 0) and (Longint(Pointer(IPointer(Arr)-PointerSize2)^) = 1) then // unique copy of this dynamic array
+  begin
+    for i := NewLength to OldLen -1 do
+    begin
+      if TPSTypeRec_Array(aType).ArrayType.BaseType in NeedFinalization then
+        FinalizeVariant(Pointer(IPointer(arr) + Cardinal(elsize * i)), TPSTypeRec_Array(aType).ArrayType);
+    end;
+    arr := Pointer(IPointer(Arr)-PointerSize2);
+    if NewLength <= 0 then
+    begin
+      FreeMem(arr, NewLength * elsize + PointerSize2);
+      arr := nil;
+      exit;
+    end;
+    ReallocMem(arr, NewLength * elSize + PointerSize2);
+    arr := Pointer(IPointer(Arr)+PointerSize);
+    Longint(Arr^) := NewLength {$IFDEF FPC} -1 {$ENDIF};
+    arr := Pointer(IPointer(Arr)+PointerSize);
+    for i := OldLen to NewLength -1 do
+    begin
+      InitializeVariant(Pointer(IPointer(arr) + Cardinal(elsize * i)), TPSTypeRec_Array(aType).ArrayType);
+    end;
+  end else
+  begin
+    if NewLength = 0 then
+    begin
+      if Longint(Pointer(IPointer(Arr)-PointerSize2)^) = 1 then
+        FreeMem(Pointer(IPointer(Arr)-PointerSize2), OldLen * elSize + PointerSize2)
+      else if Longint(Pointer(IPointer(Arr)-PointerSize2)^) > 0 then
+        Dec(Longint(Pointer(IPointer(Arr)-PointerSize2)^));
+      arr := nil;
+      exit;
+    end;
+    GetMem(p, NewLength * elSize + PointerSize2);
+    Longint(p^) := 1;
+    p:= Pointer(IPointer(p)+PointerSize);
+    Longint(p^) := NewLength {$IFDEF FPC} -1 {$ENDIF};
+    p := Pointer(IPointer(p)+PointerSize);
+    if OldLen <> 0 then
+    begin
+      if OldLen > NewLength then
+        CopyArrayContents(p, arr, NewLength, TPSTypeRec_Array(aType).ArrayType)
+      else
+        CopyArrayContents(p, arr, OldLen, TPSTypeRec_Array(aType).ArrayType);
+      FinalizeVariant(@arr, aType);
+    end;
+    arr := p;
+    for i := OldLen to NewLength -1 do
+    begin
+      InitializeVariant(Pointer(IPointer(arr) + Cardinal(elsize * i)), TPSTypeRec_Array(aType).ArrayType);
+    end;
+  end;
+end;
+
+
+
+{$IFDEF FPC}
+function OleErrorMessage(ErrorCode: HResult): tbtString;
+begin
+  Result := SysErrorMessage(ErrorCode);
+  if Result = '' then
+    Result := Format(RPS_OLEError, [ErrorCode]);
+end;
+
+procedure OleError(ErrorCode: HResult);
+begin
+  raise Exception.Create(OleErrorMessage(ErrorCode));
+end;
+
+procedure OleCheck(Result: HResult);
+begin
+  if Result < 0 then OleError(Result);
+end;
+{$ENDIF}
+
+
+{$IFNDEF DELPHI3UP}
+function OleErrorMessage(ErrorCode: HResult): tbtString;
+begin
+  Result := SysErrorMessage(ErrorCode);
+  if Result = '' then
+    Result := Format(RPS_OLEError, [ErrorCode]);
+end;
+
+procedure OleError(ErrorCode: HResult);
+begin
+  raise Exception.Create(OleErrorMessage(ErrorCode));
+end;
+
+procedure OleCheck(Result: HResult);
+begin
+  if Result < 0 then OleError(Result);
+end;
+
+procedure AssignInterface(var Dest: IUnknown; const Src: IUnknown);
+var
+  OldDest: IUnknown;
+begin
+  { Like Delphi 3+'s _IntfCopy, reference source before releasing old dest.
+    so that self assignment (I := I) works right }
+  OldDest := Dest;
+  Dest := Src;
+  if Src <> nil then
+    Src.AddRef;
+  if OldDest <> nil then
+    OldDest.Release;
+end;
+
+procedure AssignVariantFromIDispatch(var Dest: Variant; const Src: IDispatch);
+begin
+  VarClear(Dest);
+  TVarData(Dest).VDispatch := Src;
+  TVarData(Dest).VType := varDispatch;
+  if Src <> nil then
+    Src.AddRef;
+end;
+
+procedure AssignIDispatchFromVariant(var Dest: IDispatch; const Src: Variant);
+const
+  RPS_InvalidVariantRef = 'Invalid variant ref';
+var
+  NewDest: IDispatch;
+begin
+  case TVarData(Src).VType of
+    varEmpty: NewDest := nil;
+    varDispatch: NewDest := TVarData(Src).VDispatch;
+    varDispatch or varByRef: NewDest := Pointer(TVarData(Src).VPointer^);
+  else
+    raise Exception.Create(RPS_InvalidVariantRef);
+  end;
+  AssignInterface(IUnknown(Dest), NewDest);
+end;
+{$ENDIF}
+
+function TPSExec.SetVariantValue(dest, Src: Pointer; desttype, srctype: TPSTypeRec): Boolean;
+var
+  Tmp: TObject;
+  tt: TPSVariantPointer;
+begin
+  Result := True;
+  try
+    case desttype.BaseType of
+      btSet:
+        begin
+          if desttype = srctype then
+            Move(Src^, Dest^, TPSTypeRec_Set(desttype).aByteSize)
+          else
+            Result := False;
+        end;
+      btU8: tbtu8(Dest^) := PSGetUInt(Src, srctype);
+      btS8: tbts8(Dest^) := PSGetInt(Src, srctype);
+      btU16: tbtu16(Dest^) := PSGetUInt(Src, srctype);
+      btS16: tbts16(Dest^) := PSGetInt(Src, srctype);
+      btProcPtr:
+        begin
+          if srctype.BaseType = btPointer then
+          begin
+            srctype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+            Src := Pointer(Src^);
+            if (src = nil) or (srctype = nil) then raise Exception.Create(RPS_TypeMismatch);
+          end;
+          case srctype.BaseType of
+            btu32:
+              begin
+                Pointer(Dest^) := Pointer(Src^);
+              end;
+            btProcPtr:
+              begin
+                Pointer(Dest^) := Pointer(Src^);
+                Pointer(Pointer(IPointer(Dest)+PointerSize)^) := Pointer(Pointer(IPointer(Src)+PointerSize)^);
+                Pointer(Pointer(IPointer(Dest)+PointerSize2)^) := Pointer(Pointer(IPointer(Src)+PointerSize2)^);
+              end;
+            else raise Exception.Create(RPS_TypeMismatch);
+          end;
+        end;
+      btU32:
+        begin
+          if srctype.BaseType = btPointer then
+          begin
+            srctype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+            Src := Pointer(Src^);
+            if (src = nil) or (srctype = nil) then raise Exception.Create(RPS_TypeMismatch);
+          end;
+          case srctype.BaseType of
+            btU8: tbtu32(Dest^) := tbtu8(src^);
+            btS8: tbtu32(Dest^) := tbts8(src^);
+            btU16: tbtu32(Dest^) := tbtu16(src^);
+            btS16: tbtu32(Dest^) := tbts16(src^);
+            btU32: tbtu32(Dest^) := tbtu32(src^);
+            btS32: tbtu32(Dest^) := tbts32(src^);
+        {$IFNDEF PS_NOINT64} btS64: tbtu32(Dest^) := tbts64(src^);{$ENDIF}
+            btChar: tbtu32(Dest^) := Ord(tbtchar(Src^));
+        {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbtu32(Dest^) := Ord(tbtwidechar(Src^));{$ENDIF}
+            btVariant: tbtu32(Dest^) := Variant(src^);
+            else raise Exception.Create(RPS_TypeMismatch);
+          end;
+        end;
+      btS32:
+        begin
+          if srctype.BaseType = btPointer then
+          begin
+            srctype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+            Src := Pointer(Src^);
+            if (src = nil) or (srctype = nil) then raise Exception.Create(RPS_TypeMismatch);
+          end;
+          case srctype.BaseType of
+            btU8: tbts32(Dest^) := tbtu8(src^);
+            btS8: tbts32(Dest^) := tbts8(src^);
+            btU16: tbts32(Dest^) := tbtu16(src^);
+            btS16: tbts32(Dest^) := tbts16(src^);
+            btU32: tbts32(Dest^) := tbtu32(src^);
+            btS32: tbts32(Dest^) := tbts32(src^);
+        {$IFNDEF PS_NOINT64} btS64: tbts32(Dest^) := tbts64(src^);{$ENDIF}
+            btChar: tbts32(Dest^) := Ord(tbtchar(Src^));
+        {$IFNDEF PS_NOWIDESTRING}  btWideChar: tbts32(Dest^) := Ord(tbtwidechar(Src^));{$ENDIF}
+            btVariant: tbts32(Dest^) := Variant(src^);
+            // nx change start - allow assignment of class
+            btClass: tbtu32(Dest^) := tbtu32(src^);
+            // nx change start
+            else raise Exception.Create(RPS_TypeMismatch);
+          end;
+        end;
+      {$IFNDEF PS_NOINT64}
+      btS64: tbts64(Dest^) := PSGetInt64(Src, srctype);
+      {$ENDIF}
+      btSingle:
+        begin
+          if srctype.BaseType = btPointer then
+          begin
+            srctype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+            Src := Pointer(Src^);
+            if (src = nil) or (srctype = nil) then raise Exception.Create(RPS_TypeMismatch);
+          end;
+          case srctype.BaseType of
+            btU8: tbtsingle(Dest^) := tbtu8(src^);
+            btS8: tbtsingle(Dest^) := tbts8(src^);
+            btU16: tbtsingle(Dest^) := tbtu16(src^);
+            btS16: tbtsingle(Dest^) := tbts16(src^);
+            btU32: tbtsingle(Dest^) := tbtu32(src^);
+            btS32: tbtsingle(Dest^) := tbts32(src^);
+        {$IFNDEF PS_NOINT64}    btS64: tbtsingle(Dest^) := tbts64(src^);{$ENDIF}
+            btSingle: tbtsingle(Dest^) := tbtsingle(Src^);
+            btDouble: tbtsingle(Dest^) := tbtdouble(Src^);
+            btExtended: tbtsingle(Dest^) := tbtextended(Src^);
+            btCurrency: tbtsingle(Dest^) := tbtcurrency(Src^);
+            btVariant:  tbtsingle(Dest^) := Variant(src^);
+            else raise Exception.Create(RPS_TypeMismatch);
+          end;
+        end;
+      btDouble:
+        begin
+          if srctype.BaseType = btPointer then
+          begin
+            srctype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+            Src := Pointer(Src^);
+            if (src = nil) or (srctype = nil) then raise Exception.Create(RPS_TypeMismatch);
+          end;
+          case srctype.BaseType of
+            btU8: tbtdouble(Dest^) := tbtu8(src^);
+            btS8: tbtdouble(Dest^) := tbts8(src^);
+            btU16: tbtdouble(Dest^) := tbtu16(src^);
+            btS16: tbtdouble(Dest^) := tbts16(src^);
+            btU32: tbtdouble(Dest^) := tbtu32(src^);
+            btS32: tbtdouble(Dest^) := tbts32(src^);
+        {$IFNDEF PS_NOINT64}    btS64: tbtdouble(Dest^) := tbts64(src^);{$ENDIF}
+            btSingle: tbtdouble(Dest^) := tbtsingle(Src^);
+            btDouble: tbtdouble(Dest^) := tbtdouble(Src^);
+            btExtended: tbtdouble(Dest^) := tbtextended(Src^);
+            btCurrency: tbtdouble(Dest^) := tbtcurrency(Src^);
+            btVariant:  tbtdouble(Dest^) := Variant(src^);
+            else raise Exception.Create(RPS_TypeMismatch);
+          end;
+
+        end;
+      btExtended:
+        begin
+          if srctype.BaseType = btPointer then
+          begin
+            srctype := PIFTypeRec(Pointer(IPointer(Src)+PointerSize)^);
+            Src := Pointer(Src^);
+            if (src = nil) or (srctype = nil) then raise Exception.Create(RPS_TypeMismatch);
+          end;
+          case srctype.BaseType of
+            btU8: tbtextended(Dest^) := tbtu8(src^);
+            btS8: tbtextended(Dest^) := tbts8(src^);
+            btU16: tbtextended(Dest^) := tbtu16(src^);
+            btS16: tbtextended(Dest^) := tbts16(src^);
+            btU32: tbtextended(Dest^) := tbtu32(src^);
+            btS32: tbtextended(Dest^) := tbts32(src^);
+        {$IFNDEF PS_NOINT64}    btS64: tbtextended(Dest^) := tbts64(src^);{$ENDIF}
+            btSingle: tbtextended(Dest^) := tbtsingle(Src^);
+            btDouble: tbtextended(Dest^) := tbtdouble(Src^);
+            btExtended: tbtextended(Dest^) := tbtextended(Src^);
+            btCurrency: tbtextended(Dest^) := tbtcurrency(Src^);
+            btVariant:  tbtextended(Dest^) := Variant(src^);
+            else raise Exception.Create(RPS_TypeMismatch);
+          end;
+        end;
+      btCurrency: tbtcurrency(Dest^) := PSGetCurrency(Src, srctype);
+      btPChar: pansichar(dest^) := pansichar(PSGetAnsiString(Src, srctype));
+      btString:
+        tbtstring(dest^) := PSGetAnsiString(Src, srctype);
+      btChar: tbtchar(dest^) := tbtchar(PSGetUInt(Src, srctype));
+      {$IFNDEF PS_NOWIDESTRING}
+      btWideString: tbtwidestring(dest^) := PSGetWideString(Src, srctype);
+      btUnicodeString: tbtUnicodeString(dest^) := PSGetUnicodeString(Src, srctype);
+      btWideChar: tbtwidechar(dest^) := widechar(PSGetUInt(Src, srctype));
+      {$ENDIF}
+      btStaticArray:
+        begin
+          if desttype <> srctype then
+            Result := False
+          else
+            CopyArrayContents(dest, Src, TPSTypeRec_StaticArray(desttype).Size, TPSTypeRec_StaticArray(desttype).ArrayType);
+        end;
+      btArray:
+        begin
+          if (srctype.BaseType = btStaticArray) and (TPSTypeRec_Array(desttype).ArrayType = TPSTypeRec_Array(srctype).ArrayType) then
+          begin
+            PSDynArraySetLength(Pointer(Dest^), desttype, TPSTypeRec_StaticArray(srctype).Size);
+            CopyArrayContents(Pointer(dest^), Src, TPSTypeRec_StaticArray(srctype).Size, TPSTypeRec_StaticArray(srctype).ArrayType);
+          end else if (srctype.BaseType = btvariant) and VarIsArray(Variant(src^)) then
+            Result := CreateArrayFromVariant(Self, dest, Variant(src^), desttype)
+          else if (desttype <> srctype) and not ((desttype.BaseType = btarray) and (srctype.BaseType = btArray)
+            and (TPSTypeRec_Array(desttype).ArrayType = TPSTypeRec_Array(srctype).ArrayType)) then
+            Result := False
+          else
+            CopyArrayContents(dest, src, 1, desttype);
+        end;
+      btRecord:
+        begin
+          if desttype <> srctype then
+            Result := False
+          else
+            CopyArrayContents(dest, Src, 1, desttype);
+        end;
+      btVariant:
+        begin
+{$IFNDEF PS_NOINTERFACES}
+          if srctype.ExportName = 'IDISPATCH' then
+          begin
+            {$IFDEF DELPHI3UP}
+            Variant(Dest^) := IDispatch(Src^);
+            {$ELSE}
+            AssignVariantFromIDispatch(Variant(Dest^), IDispatch(Src^));
+            {$ENDIF}
+          end else
+{$ENDIF}
+          if srctype.BaseType = btVariant then
+            variant(Dest^) := variant(src^)
+          else
+          begin
+            tt.VI.FType := FindType2(btPointer);
+            tt.DestType := srctype;
+            tt.DataDest := src;
+            tt.FreeIt := False;
+            Result := PIFVariantToVariant(@tt, variant(dest^));
+          end;
+        end;
+      btClass:
+        begin
+          if srctype.BaseType = btClass then
+            TObject(Dest^) := TObject(Src^)
+          else
+          // nx change start
+          if (srctype.BaseType in [btS32, btU32]) then
+            TbtU32(Dest^) := TbtU32(Src^)
+          else
+          // nx change end
+            Result := False;
+        end;
+{$IFNDEF PS_NOINTERFACES}
+      btInterface:
+        begin
+          if Srctype.BaseType = btVariant then
+          begin
+            if desttype.ExportName = 'IDISPATCH' then
+            begin
+              {$IFDEF Delphi3UP}
+              IDispatch(Dest^) := IDispatch(Variant(Src^));
+              {$ELSE}
+              AssignIDispatchFromVariant(IDispatch(Dest^), Variant(Src^));
+              {$ENDIF}
+            end else
+              Result := False;
+{$IFDEF Delphi3UP}
+          end else
+          if srctype.BaseType = btClass then
+          begin
+            if (TObject(Src^) = nil) or not TObject(Src^).GetInterface(TPSTypeRec_Interface(desttype).Guid, IUnknown(Dest^)) then
+            begin
+              Result := false;
+              Cmd_Err(erInterfaceNotSupported);
+              exit;
+            end;
+{$ENDIF}
+          end else if srctype.BaseType = btInterface then
+          begin
+            {$IFNDEF Delphi3UP}
+            if IUnknown(Dest^) <> nil then
+            begin
+              IUnknown(Dest^).Release;
+              IUnknown(Dest^) := nil;
+            end;
+            {$ENDIF}
+            IUnknown(Dest^) := IUnknown(Src^);
+            {$IFNDEF Delphi3UP}
+            if IUnknown(Dest^) <> nil then
+              IUnknown(Dest^).AddRef;
+            {$ENDIF}
+          end else
+            Result := False;
+        end;
+{$ENDIF}
+    else begin
+        Result := False;
+      end;
+    end;
+    if Result = False then
+      CMD_Err(ErTypeMismatch);
+  except
+    {$IFDEF DELPHI6UP}
+    Tmp := AcquireExceptionObject;
+    {$ELSE}
+    if RaiseList <> nil then
+    begin
+      Tmp := Exception(PRaiseFrame(RaiseList)^.ExceptObject);
+      PRaiseFrame(RaiseList)^.ExceptObject := nil;
+    end else
+      Tmp := nil;
+    {$ENDIF}
+    if Tmp <> nil then
+    begin
+      if Tmp is EPSException then
+      begin
+        Result := False;
+        ExceptionProc(EPSException(tmp).ProcNo, EPSException(tmp).ProcPos, erCustomError, tbtString(EPSException(tmp).Message), nil);
+        exit;
+      end else
+      if Tmp is EDivByZero then
+      begin
+        Result := False;
+        CMD_Err3(erDivideByZero, '', Tmp);
+        Exit;
+      end;
+      if Tmp is EZeroDivide then
+      begin
+        Result := False;
+        CMD_Err3(erDivideByZero, '', Tmp);
+        Exit;
+      end;
+      if Tmp is EMathError then
+      begin
+        Result := False;
+        CMD_Err3(erMathError, '', Tmp);
+        Exit;
+      end;
+    end;
+    if (tmp <> nil) and (Tmp is Exception) then
+      CMD_Err3(erException, tbtString(Exception(Tmp).Message), Tmp)
+    else
+      CMD_Err3(erException, '', Tmp);
+    Result := False;
+  end;
+end;
+
+function SpecImport(Sender: TPSExec; p: TPSExternalProcRec; Tag: Pointer): Boolean; forward;
+
+
+function Class_IS(Self: TPSExec; Obj: TObject; var2type: TPSTypeRec): Boolean;
+var
+  R: TPSRuntimeClassImporter;
+  cc: TPSRuntimeClass;
+begin
+  if Obj = nil then
+  begin
+    Result := false;
+    exit;
+  end;
+  r := Self.FindSpecialProcImport(SpecImport);
+  if R = nil then
+  begin
+    Result := false;
+    exit;
+  end;
+  cc := r.FindClass(var2type.ExportName);
+  if cc = nil then
+  begin
+    result := false;
+    exit;
+  end;
+  try
+    Result := Obj is cc.FClass;
+  except
+    Result := false;
+  end;
+end;
+
+type
+  TVariantArray = array of Variant;
+  PVariantArray = ^TVariantArray;
+function VariantInArray(var1: Pointer; var1Type: TPSTypeRec; var2: PVariantArray): Boolean;
+var
+  lDest: Variant;
+  i: Integer;
+begin
+  IntPIFVariantToVariant(var1, var1Type, lDest);
+  result := false;
+  for i := 0 to Length(var2^) -1 do begin
+    if var2^[i] = lDest then begin
+      result := true;
+      break;
+    end;
+  end;
+end;
+
+
+function TPSExec.DoBooleanCalc(var1, Var2, into: Pointer; var1Type, var2type, intotype: TPSTypeRec; Cmd: Cardinal): Boolean;
+var
+  b: Boolean;
+  Tmp: TObject;
+  tvar: Variant;
+
+
+  procedure SetBoolean(b: Boolean; var Ok: Boolean);
+  begin
+    Ok := True;
+    case IntoType.BaseType of
+      btU8: tbtu8(Into^):= Cardinal(b);
+      btS8: tbts8(Into^) := Longint(b);
+      btU16: tbtu16(Into^) := Cardinal(b);
+      btS16: tbts16(Into^) := Longint(b);
+      btU32: tbtu32(Into^) := Cardinal(b);
+      btS32: tbts32(Into^) := Longint(b);
+      btVariant: Variant(Into^) := b;
+    else begin
+        CMD_Err(ErTypeMismatch);
+        Ok := False;
+      end;
+    end;
+  end;
+begin
+  Result := true;
+  try
+    case Cmd of
+      0: begin { >= }
+          case var1Type.BaseType of
+            btU8:
+            if (var2Type.BaseType = btString) or (Var2Type.BaseType = btPChar) then
+              b := tbtchar(tbtu8(var1^)) >= PSGetAnsiString(Var2, var2type)
+            else
+              b := tbtu8(var1^) >= PSGetUInt(Var2, var2type);
+            btS8: b := tbts8(var1^) >= PSGetInt(Var2, var2type);
+            btU16: b := tbtu16(var1^) >= PSGetUInt(Var2, var2type);
+            btS16: b := tbts16(var1^) >= PSGetInt(Var2, var2type);
+            btU32: b := tbtu32(var1^) >= PSGetUInt(Var2, var2type);
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: b := tbts32(var1^) >= tbtu8(Var2^);
+                  btS8: b := tbts32(var1^) >= tbts8(Var2^);
+                  btU16: b := tbts32(var1^) >= tbtu16(Var2^);
+                  btS16: b := tbts32(var1^) >= tbts16(Var2^);
+                  btU32: b := tbts32(var1^) >= Longint(tbtu32(Var2^));
+                  btS32: b := tbts32(var1^) >= tbts32(Var2^);
+                  btDouble: b := PSGetReal(Var1, var1type) >= tbtdouble(var2^);
+                  btSingle: B := psGetReal(Var1, var1Type) >= tbtsingle(var2^);
+                  btExtended: B := psGetReal(Var1, var1Type) >= tbtExtended(var2^);
+              {$IFNDEF PS_NOINT64} btS64: b := tbts32(var1^) >= tbts64(Var2^);{$ENDIF}
+                  btChar: b := tbts32(var1^) >= Ord(tbtchar(Var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: b := tbts32(var1^) >= Ord(tbtwidechar(Var2^));{$ENDIF}
+                  btVariant: b := tbts32(var1^) >= Variant(Var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btSingle: b := tbtsingle(var1^) >= PSGetReal(Var2, var2type);
+            btDouble: b := tbtdouble(var1^) >= PSGetReal(Var2, var2type);
+            btCurrency: b := tbtcurrency(var1^) >= PSGetCurrency(Var2, var2type);
+            btExtended: b := tbtextended(var1^) >= PSGetReal(Var2, var2type);
+            {$IFNDEF PS_NOINT64}
+            btS64: b := tbts64(var1^) >= PSGetInt64(Var2, var2type);
+            {$ENDIF}
+            btPChar,btString: b := tbtstring(var1^) >= PSGetAnsiString(Var2, var2type);
+            btChar: b := tbtchar(var1^) >= PSGetAnsiString(Var2, var2type);
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: b := tbtwidechar(var1^) >= PSGetWideString(Var2, var2type);
+            btWideString: b := tbtwidestring(var1^) >= PSGetWideString(Var2, var2type);
+            btUnicodeString: b := tbtUnicodestring(var1^) >= PSGetUnicodeString(Var2, var2type);
+            {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  b := Variant(var1^) >= tvar;
+              end;
+            btSet:
+              begin
+                if var1Type = var2Type then
+                begin
+                  Set_Subset(var2, var1, TPSTypeRec_Set(var1Type).aByteSize, b);
+                end else result := False;
+              end;
+          else begin
+              CMD_Err(ErTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(ErTypeMismatch);
+            exit;
+          end;
+          SetBoolean(b, Result);
+        end;
+      1: begin { <= }
+          case var1Type.BaseType of
+            btU8:
+            if (var2Type.BaseType = btString) or (Var2Type.BaseType = btPChar) then
+              b := tbtchar(tbtu8(var1^)) <= PSGetAnsiString(Var2, var2type)
+            else
+              b := tbtu8(var1^) <= PSGetUInt(Var2, var2type);
+            btS8: b := tbts8(var1^) <= PSGetInt(Var2, var2type);
+            btU16: b := tbtu16(var1^) <= PSGetUInt(Var2, var2type);
+            btS16: b := tbts16(var1^) <= PSGetInt(Var2, var2type);
+            btU32: b := tbtu32(var1^) <= PSGetUInt(Var2, var2type);
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: b := tbts32(var1^) <= tbtu8(Var2^);
+                  btS8: b := tbts32(var1^) <= tbts8(Var2^);
+                  btU16: b := tbts32(var1^) <= tbtu16(Var2^);
+                  btS16: b := tbts32(var1^) <= tbts16(Var2^);
+                  btU32: b := tbts32(var1^) <= Longint(tbtu32(Var2^));
+                  btS32: b := tbts32(var1^) <= tbts32(Var2^);
+                  btDouble: b := PSGetReal(Var1, var1type) <= tbtdouble(var2^);
+                  btSingle: B := psGetReal(Var1, var1Type) <= tbtsingle(var2^);
+                  btExtended: B := psGetReal(Var1, var1Type) <= tbtExtended(var2^);
+              {$IFNDEF PS_NOINT64} btS64: b := tbts32(var1^) <= tbts64(Var2^);{$ENDIF}
+                  btChar: b := tbts32(var1^) <= Ord(tbtchar(Var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: b := tbts32(var1^) <= Ord(tbtwidechar(Var2^));{$ENDIF}
+                  btVariant: b := tbts32(var1^) <= Variant(Var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;            btSingle: b := tbtsingle(var1^) <= PSGetReal(Var2, var2type);
+            btCurrency: b := tbtcurrency(var1^) <= PSGetCurrency(Var2, var2type);
+            btDouble: b := tbtdouble(var1^) <= PSGetReal(Var2, var2type);
+            btExtended: b := tbtextended(var1^) <= PSGetReal(Var2, var2type);
+            {$IFNDEF PS_NOINT64}
+            btS64: b := tbts64(var1^) <= PSGetInt64(Var2, var2type);
+            {$ENDIF}
+            btPChar,btString: b := tbtstring(var1^) <= PSGetAnsiString(Var2, var2type);
+            btChar: b := tbtchar(var1^) <= PSGetAnsiString(Var2, var2type);
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: b := tbtwidechar(var1^) <= PSGetWideString(Var2, var2type);
+            btWideString: b := tbtwidestring(var1^) <= PSGetWideString(Var2, var2type);
+            btUnicodeString: b := tbtUnicodestring(var1^) <= PSGetUnicodeString(Var2, var2type);
+            {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  b := Variant(var1^) <= tvar;
+              end;
+            btSet:
+              begin
+                if var1Type = var2Type then
+                begin
+                  Set_Subset(var1, var2, TPSTypeRec_Set(var1Type).aByteSize, b);
+                end else result := False;
+              end;
+          else begin
+              CMD_Err(ErTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+          SetBoolean(b, Result);
+        end;
+      2: begin { > }
+          case var1Type.BaseType of
+            btU8:
+            if (var2Type.BaseType = btString) or (Var2Type.BaseType = btPChar) then
+              b := tbtchar(tbtu8(var1^)) > PSGetAnsiString(Var2, var2type)
+            else
+              b := tbtu8(var1^) > PSGetUInt(Var2, var2type);
+            btS8: b := tbts8(var1^) > PSGetInt(Var2, var2type);
+            btU16: b := tbtu16(var1^) > PSGetUInt(Var2, var2type);
+            btS16: b := tbts16(var1^) > PSGetInt(Var2, var2type);
+            btU32: b := tbtu32(var1^) > PSGetUInt(Var2, var2type);
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: b := tbts32(var1^) > tbtu8(Var2^);
+                  btS8: b := tbts32(var1^) > tbts8(Var2^);
+                  btU16: b := tbts32(var1^) > tbtu16(Var2^);
+                  btS16: b := tbts32(var1^) > tbts16(Var2^);
+                  btU32: b := tbts32(var1^) > Longint(tbtu32(Var2^));
+                  btS32: b := tbts32(var1^) > tbts32(Var2^);
+                  btDouble: b := PSGetReal(Var1, var1type) > tbtdouble(var2^);
+                  btSingle: B := psGetReal(Var1, var1Type) > tbtsingle(var2^);
+                  btExtended: B := psGetReal(Var1, var1Type) > tbtExtended(var2^);
+              {$IFNDEF PS_NOINT64} btS64: b := tbts32(var1^) > tbts64(Var2^);{$ENDIF}
+                  btChar: b := tbts32(var1^) > Ord(tbtchar(Var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: b := tbts32(var1^) = Ord(tbtwidechar(Var2^));{$ENDIF}
+                  btVariant: b := tbts32(var1^) > Variant(Var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;            btSingle: b := tbtsingle(var1^) > PSGetReal(Var2, var2type);
+            btDouble: b := tbtdouble(var1^) > PSGetReal(Var2, var2type);
+            btExtended: b := tbtextended(var1^) > PSGetReal(Var2, var2type);
+            btCurrency: b := tbtcurrency(var1^) > PSGetCurrency(Var2, var2type);
+            {$IFNDEF PS_NOINT64}
+            btS64: b := tbts64(var1^) > PSGetInt64(Var2, var2type);
+            {$ENDIF}
+            btPChar,btString: b := tbtstring(var1^) > PSGetAnsiString(Var2, var2type);
+            btChar: b := tbtchar(var1^) > PSGetAnsiString(Var2, var2type);
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: b := tbtwidechar(var1^) > PSGetWideString(Var2, var2type);
+            btWideString: b := tbtwidestring(var1^) > PSGetWideString(Var2, var2type);
+            btUnicodeString: b := tbtUnicodestring(var1^) > PSGetUnicodeString(Var2, var2type);
+            {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  b := Variant(var1^) > tvar;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+          SetBoolean(b, Result);
+        end;
+      3: begin { < }
+          case var1Type.BaseType of
+            btU8:
+            if (var2Type.BaseType = btString) or (Var2Type.BaseType = btPChar) then
+              b := tbtchar(tbtu8(var1^)) < PSGetAnsiString(Var2, var2type)
+            else
+              b := tbtu8(var1^) < PSGetUInt(Var2, var2type);
+            btS8: b := tbts8(var1^) < PSGetInt(Var2, var2type);
+            btU16: b := tbtu16(var1^) < PSGetUInt(Var2, var2type);
+            btS16: b := tbts16(var1^) < PSGetInt(Var2, var2type);
+            btU32: b := tbtu32(var1^) < PSGetUInt(Var2, var2type);
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: b := tbts32(var1^) < tbtu8(Var2^);
+                  btS8: b := tbts32(var1^) < tbts8(Var2^);
+                  btU16: b := tbts32(var1^) < tbtu16(Var2^);
+                  btS16: b := tbts32(var1^) < tbts16(Var2^);
+                  btU32: b := tbts32(var1^) < Longint(tbtu32(Var2^));
+                  btS32: b := tbts32(var1^) < tbts32(Var2^);
+                  btDouble: b := PSGetReal(Var1, var1type) < tbtdouble(var2^);
+                  btSingle: B := psGetReal(Var1, var1Type) < tbtsingle(var2^);
+                  btExtended: B := psGetReal(Var1, var1Type) < tbtExtended(var2^);
+              {$IFNDEF PS_NOINT64} btS64: b := tbts32(var1^) < tbts64(Var2^);{$ENDIF}
+                  btChar: b := tbts32(var1^) < Ord(tbtchar(Var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: b := tbts32(var1^) < Ord(tbtwidechar(Var2^));{$ENDIF}
+                  btVariant: b := tbts32(var1^) < Variant(Var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;            btSingle: b := tbtsingle(var1^) < PSGetReal(Var2, var2type);
+            btDouble: b := tbtdouble(var1^) < PSGetReal(Var2, var2type);
+            btCurrency: b := tbtcurrency(var1^) < PSGetCurrency(Var2, var2type);
+            btExtended: b := tbtextended(var1^) < PSGetReal(Var2, var2type);
+            {$IFNDEF PS_NOINT64}
+            btS64: b := tbts64(var1^) < PSGetInt64(Var2, var2type);
+            {$ENDIF}
+            btPChar,btString: b := tbtstring(var1^) < PSGetAnsiString(Var2, var2type);
+            btChar: b := tbtchar(var1^) < PSGetAnsiString(Var2, var2type);
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: b := tbtwidechar(var1^) < PSGetWideString(Var2, var2type);
+            btWideString: b := tbtwidestring(var1^) < PSGetWideString(Var2, var2type);
+            btUnicodeString: b := tbtUnicodestring(var1^) < PSGetUnicodeString(Var2, var2type);
+            {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  b := Variant(var1^) < tvar;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+          SetBoolean(b, Result);
+        end;
+      4: begin { <> }
+          case var1Type.BaseType of
+            btInterface:
+              begin
+                if var2Type.BaseType = btInterface then
+                  b := Pointer(var1^) <> Pointer(var2^) // no need to cast it to IUnknown
+                else
+                  Result := false;
+              end;
+            btClass:
+              begin
+                if var2Type.BaseType = btclass then
+                  b := TObject(var1^) <> TObject(var2^)
+                else
+                  Result := false;
+              end;
+            btU8:
+            if (var2Type.BaseType = btString) or (Var2Type.BaseType = btPChar) then
+              b := tbtchar(tbtu8(var1^)) <> PSGetAnsiString(Var2, var2type)
+            else
+              b := tbtu8(var1^) <> PSGetUInt(Var2, var2type);
+            btS8: b := tbts8(var1^) <> PSGetInt(Var2, var2type);
+            btU16: b := tbtu16(var1^) <> PSGetUInt(Var2, var2type);
+            btS16: b := tbts16(var1^) <> PSGetInt(Var2, var2type);
+            btProcPtr:
+              begin
+                if Pointer(Var1^) = Pointer(Var2^) then
+                begin
+                  if Longint(Var1^) = 0 then
+                    b := ((Pointer(Pointer(IPointer(Var1)+PointerSize2)^) <> Pointer(Pointer(IPointer(Var2)+PointerSize2)^)) or
+                   (Pointer(Pointer(IPointer(Var1)+PointerSize2)^) <> Pointer(Pointer(IPointer(Var2)+PointerSize2)^)))
+                  else
+                    b := False;
+                end else b := True;
+              end;
+            btU32: b := tbtu32(var1^) <> PSGetUInt(Var2, var2type);
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: b := tbts32(var1^) <> tbtu8(Var2^);
+                  btS8: b := tbts32(var1^) <> tbts8(Var2^);
+                  btU16: b := tbts32(var1^) <> tbtu16(Var2^);
+                  btS16: b := tbts32(var1^) <> tbts16(Var2^);
+                  btProcPtr, btU32: b := tbts32(var1^)<> Longint(tbtu32(Var2^));
+                  btS32: b := tbts32(var1^) <> tbts32(Var2^);
+                  btDouble: b := PSGetReal(Var1, var1type) <> tbtdouble(var2^);
+                  btSingle: B := psGetReal(Var1, var1Type) <> tbtsingle(var2^);
+                  btExtended: B := psGetReal(Var1, var1Type) <> tbtExtended(var2^);
+              {$IFNDEF PS_NOINT64} btS64: b := tbts32(var1^) <> tbts64(Var2^);{$ENDIF}
+                  btChar: b := tbts32(var1^) <> Ord(tbtchar(Var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: b := tbts32(var1^) <> Ord(tbtwidechar(Var2^));{$ENDIF}
+                  btVariant: b := tbts32(var1^) <> Variant(Var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;            btSingle: b := tbtsingle(var1^) <> PSGetReal(Var2, var2type);
+            btDouble: b := tbtdouble(var1^) <> PSGetReal(Var2, var2type);
+            btExtended: b := tbtextended(var1^) <> PSGetReal(Var2, var2type);
+            btCurrency: b := tbtcurrency(var1^) <> PSGetCurrency(Var2, var2type);
+            btPChar,btString: b := tbtstring(var1^) <> PSGetAnsiString(Var2, var2type);
+            {$IFNDEF PS_NOINT64}
+            btS64: b := tbts64(var1^) <> PSGetInt64(Var2, var2type);
+            {$ENDIF}
+            btChar: b := tbtchar(var1^) <> PSGetAnsiString(Var2, var2type);
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: b := tbtwidechar(var1^) <> PSGetWideString(Var2, var2type);
+            btWideString: b := tbtwidestring(var1^) <> PSGetWideString(Var2, var2type);
+            btUnicodeString: b := tbtUnicodeString(var1^) <> PSGetUnicodeString(Var2, var2type);
+            {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  b := Variant(var1^) <> tvar;
+              end;
+            btSet:
+              begin
+                if var1Type = var2Type then
+                begin
+                  Set_Equal(var1, var2, TPSTypeRec_Set(var1Type).aByteSize, b);
+                  b := not b;
+                end else result := False;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+          SetBoolean(b, Result);
+        end;
+      5: begin { = }
+          case var1Type.BaseType of
+            btInterface:
+              begin
+                if var2Type.BaseType = btInterface then
+                  b := Pointer(var1^) = Pointer(var2^) // no need to cast it to IUnknown
+                else
+                  Result := false;
+              end;
+            btClass:
+              begin
+                if var2Type.BaseType = btclass then
+                  b := TObject(var1^) = TObject(var2^)
+                else
+                  Result := false;
+              end;
+            btU8:
+            if (var2Type.BaseType = btString) or (Var2Type.BaseType = btPChar) then
+              b := tbtchar(tbtu8(var1^)) = PSGetAnsiString(Var2, var2type)
+            else
+              b := tbtu8(var1^) = PSGetUInt(Var2, var2type);
+            btS8: b := tbts8(var1^) = PSGetInt(Var2, var2type);
+            btU16: b := tbtu16(var1^) = PSGetUInt(Var2, var2type);
+            btS16: b := tbts16(var1^) = PSGetInt(Var2, var2type);
+            btU32: b := tbtu32(var1^) = PSGetUInt(Var2, var2type);
+            btProcPtr:
+              begin
+                if Pointer(Var1^) = Pointer(Var2^) then
+                begin
+                  if Longint(Var1^) = 0 then
+                    b := ((Pointer(Pointer(IPointer(Var1)+PointerSize2)^) = Pointer(Pointer(IPointer(Var2)+PointerSize2)^)) and
+                   (Pointer(Pointer(IPointer(Var1)+PointerSize2)^) = Pointer(Pointer(IPointer(Var2)+PointerSize2)^)))
+                  else
+                    b := True;
+                end else b := False;
+              end;
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: b := tbts32(var1^) = tbtu8(Var2^);
+                  btS8: b := tbts32(var1^) = tbts8(Var2^);
+                  btU16: b := tbts32(var1^) = tbtu16(Var2^);
+                  btS16: b := tbts32(var1^) = tbts16(Var2^);
+                  btProcPtr, btU32: b := tbts32(var1^) = Longint(tbtu32(Var2^));
+                  btS32: b := tbts32(var1^) = tbts32(Var2^);
+                  btDouble: b := PSGetReal(Var1, var1type) = tbtdouble(var2^);
+                  btSingle: B := psGetReal(Var1, var1Type) = tbtsingle(var2^);
+                  btExtended: B := psGetReal(Var1, var1Type) = tbtExtended(var2^);
+              {$IFNDEF PS_NOINT64} btS64: b := tbts32(var1^) = tbts64(Var2^);{$ENDIF}
+                  btChar: b := tbts32(var1^) = Ord(tbtchar(Var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: b := tbts32(var1^) = Ord(tbtwidechar(Var2^));{$ENDIF}
+                  btVariant: b := tbts32(var1^) = Variant(Var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;            btSingle: b := tbtsingle(var1^) = PSGetReal(Var2, var2type);
+            btDouble: b := tbtdouble(var1^) = PSGetReal(Var2, var2type);
+            btExtended: b := tbtextended(var1^) = PSGetReal(Var2, var2type);
+            btCurrency: b := tbtcurrency(var1^) = PSGetCurrency(Var2, var2type);
+            btPchar, btString: b := tbtstring(var1^) = PSGetAnsiString(Var2, var2type);
+            {$IFNDEF PS_NOINT64}
+            btS64: b := tbts64(var1^) = PSGetInt64(Var2, var2type);
+            {$ENDIF}
+            btChar: b := tbtchar(var1^) = PSGetAnsiString(Var2, var2type);
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: b := tbtwidechar(var1^) = PSGetWideString(Var2, var2type);
+            btWideString: b := tbtwidestring(var1^) = PSGetWideString(Var2, var2type);
+            btUnicodeString: b := tbtUnicodestring(var1^) = PSGetUnicodeString(Var2, var2type);
+            {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  b := Variant(var1^) = tvar;
+              end;
+            btSet:
+              begin
+                if var1Type = var2Type then
+                begin
+                  Set_Equal(var1, var2, TPSTypeRec_Set(var1Type).aByteSize, b);
+                end else result := False;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+          SetBoolean(b, Result);
+        end;
+      6: begin { in }
+          if (var2Type.BaseType = btArray) and (TPSTypeRec_Array(var2type).ArrayType.BaseType = btVariant) then
+          begin
+            b := VariantInArray(var1, var1Type, var2);
+            SetBoolean(b, Result);
+          end else
+          if var2Type.BaseType = btSet then
+          begin
+            Cmd := PSGetUInt(var1, var1type);
+            if not Result then
+            begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+            if Cmd >= Cardinal(TPSTypeRec_Set(var2Type).aBitSize) then
+            begin
+              cmd_Err(erOutofRecordRange);
+              Result := False;
+              Exit;
+            end;
+            Set_membership(Cmd, var2, b);
+            SetBoolean(b, Result);
+          end else
+          begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      7:
+        begin // is
+          case var1Type.BaseType of
+            btClass:
+              begin
+                if var2type.BaseType <> btU32 then
+                  Result := False
+                else
+                begin
+                  var2type := FTypes[tbtu32(var2^)];
+                  if (var2type = nil) or (var2type.BaseType <> btClass) then
+                    Result := false
+                  else
+                  begin
+                    Setboolean(Class_IS(Self, TObject(var1^), var2type), Result);
+                  end;
+                end;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+    else begin
+        Result := False;
+        CMD_Err(erInvalidOpcodeParameter);
+        exit;
+      end;
+    end;
+  except
+    {$IFDEF DELPHI6UP}
+    Tmp := AcquireExceptionObject;
+    {$ELSE}
+    if RaiseList <> nil then
+    begin
+      Tmp := Exception(PRaiseFrame(RaiseList)^.ExceptObject);
+      PRaiseFrame(RaiseList)^.ExceptObject := nil;
+    end else
+      Tmp := nil;
+    {$ENDIF}
+    if Tmp <> nil then
+    begin
+      if Tmp is EPSException then
+      begin
+        Result := False;
+        ExceptionProc(EPSException(tmp).ProcNo, EPSException(tmp).ProcPos, erCustomError, tbtString(EPSException(tmp).Message), nil);
+        exit;
+      end else
+      if Tmp is EDivByZero then
+      begin
+        Result := False;
+        CMD_Err3(erDivideByZero, '', Tmp);
+        Exit;
+      end;
+      if Tmp is EZeroDivide then
+      begin
+        Result := False;
+        CMD_Err3(erDivideByZero, '', Tmp);
+        Exit;
+      end;
+      if Tmp is EMathError then
+      begin
+        Result := False;
+        CMD_Err3(erMathError, '', Tmp);
+        Exit;
+      end;
+    end;
+    if (tmp <> nil) and (Tmp is Exception) then
+      CMD_Err3(erException, tbtString(Exception(Tmp).Message), Tmp)
+    else
+      CMD_Err3(erException, '', Tmp);
+    Result := False;
+  end;
+end;
+
+function VarIsFloat(const V: Variant): Boolean;
+begin
+  Result := VarType(V) in [varSingle, varDouble, varCurrency];
+end;
+
+function TPSExec.DoCalc(var1, Var2: Pointer; var1Type, var2type: TPSTypeRec; CalcType: Cardinal): Boolean;
+    { var1=dest, var2=src }
+var
+  Tmp: TObject;
+  tvar: Variant;
+begin
+  try
+    Result := True;
+    case CalcType of
+      0: begin { + }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) + PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) + PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) + PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) + PSGetInt(Var2, var2type);
+            btU32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtU32(var1^) := tbtU32(var1^) + tbtu8(var2^);
+                  btS8: tbtU32(var1^) := tbtU32(var1^) + cardinal(longint(tbts8(var2^)));
+                  btU16: tbtU32(var1^) := tbtU32(var1^) + tbtu16(var2^);
+                  btS16: tbtU32(var1^) := tbtU32(var1^) + cardinal(longint(tbts16(var2^)));
+                  btU32: tbtU32(var1^) := tbtU32(var1^) + tbtu32(var2^);
+                  btS32: tbtU32(var1^) := tbtU32(var1^) + cardinal(tbts32(var2^));
+              {$IFNDEF PS_NOINT64} btS64: tbtU32(var1^) := tbtU32(var1^) + tbts64(var2^);{$ENDIF}
+                  btChar: tbtU32(var1^) := tbtU32(var1^) +  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbtU32(var1^) := tbtU32(var1^) + Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbtU32(var1^) := tbtU32(var1^) + Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbts32(var1^) := tbts32(var1^) + tbtu8(var2^);
+                  btS8: tbts32(var1^) := tbts32(var1^) + tbts8(var2^);
+                  btU16: tbts32(var1^) := tbts32(var1^) + tbtu16(var2^);
+                  btS16: tbts32(var1^) := tbts32(var1^) + tbts16(var2^);
+                  btU32: tbts32(var1^) := tbts32(var1^) + Longint(tbtu32(var2^));
+                  btS32: tbts32(var1^) := tbts32(var1^) + tbts32(var2^);
+              {$IFNDEF PS_NOINT64} btS64: tbts32(var1^) := tbts32(var1^) + tbts64(var2^);{$ENDIF}
+                  btChar: tbts32(var1^) := tbts32(var1^) +  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbts32(var1^) := tbts32(var1^) + Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbts32(var1^) := tbts32(var1^) + Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+           {$IFNDEF PS_NOINT64}
+            btS64:  tbts64(var1^) := tbts64(var1^) + PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btSingle:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtsingle(var1^) := tbtsingle(var1^) + tbtu8(var2^);
+                  btS8: tbtsingle(var1^) := tbtsingle(var1^) + tbts8(var2^);
+                  btU16: tbtsingle(var1^) := tbtsingle(var1^) + tbtu16(var2^);
+                  btS16: tbtsingle(var1^) := tbtsingle(var1^) + tbts16(var2^);
+                  btU32: tbtsingle(var1^) := tbtsingle(var1^) + tbtu32(var2^);
+                  btS32: tbtsingle(var1^) := tbtsingle(var1^) + tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtsingle(var1^) := tbtsingle(var1^) + tbts64(var2^);{$ENDIF}
+                  btSingle: tbtsingle(var1^) := tbtsingle(var1^) + tbtsingle(var2^);
+                  btDouble: tbtsingle(var1^) := tbtsingle(var1^) + tbtdouble(var2^);
+                  btExtended: tbtsingle(var1^) := tbtsingle(var1^) + tbtextended(var2^);
+                  btCurrency: tbtsingle(var1^) := tbtsingle(var1^) + tbtcurrency(var2^);
+                  btVariant:  tbtsingle(var1^) := tbtsingle(var1^) +  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btDouble:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtdouble(var1^) := tbtdouble(var1^) + tbtu8(var2^);
+                  btS8: tbtdouble(var1^) := tbtdouble(var1^) + tbts8(var2^);
+                  btU16: tbtdouble(var1^) := tbtdouble(var1^) + tbtu16(var2^);
+                  btS16: tbtdouble(var1^) := tbtdouble(var1^) + tbts16(var2^);
+                  btU32: tbtdouble(var1^) := tbtdouble(var1^) + tbtu32(var2^);
+                  btS32: tbtdouble(var1^) := tbtdouble(var1^) + tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtdouble(var1^) := tbtdouble(var1^) + tbts64(var2^);{$ENDIF}
+                  btSingle: tbtdouble(var1^) := tbtdouble(var1^) + tbtsingle(var2^);
+                  btDouble: tbtdouble(var1^) := tbtdouble(var1^) + tbtdouble(var2^);
+                  btExtended: tbtdouble(var1^) := tbtdouble(var1^) + tbtextended(var2^);
+                  btCurrency: tbtdouble(var1^) := tbtdouble(var1^) + tbtcurrency(var2^);
+                  btVariant:  tbtdouble(var1^) := tbtdouble(var1^) +  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btCurrency:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtcurrency(var1^) := tbtcurrency(var1^) + tbtu8(var2^);
+                  btS8: tbtcurrency(var1^) := tbtcurrency(var1^) + tbts8(var2^);
+                  btU16: tbtcurrency(var1^) := tbtcurrency(var1^) + tbtu16(var2^);
+                  btS16: tbtcurrency(var1^) := tbtcurrency(var1^) + tbts16(var2^);
+                  btU32: tbtcurrency(var1^) := tbtdouble(var1^) + tbtu32(var2^);
+                  btS32: tbtcurrency(var1^) := tbtcurrency(var1^) + tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtcurrency(var1^) := tbtdouble(var1^) + tbts64(var2^);{$ENDIF}
+                  btSingle: tbtcurrency(var1^) := tbtcurrency(var1^) + tbtsingle(var2^);
+                  btDouble: tbtcurrency(var1^) := tbtcurrency(var1^) + tbtdouble(var2^);
+                  btExtended: tbtcurrency(var1^) := tbtcurrency(var1^) + tbtextended(var2^);
+                  btCurrency: tbtcurrency(var1^) := tbtcurrency(var1^) + tbtcurrency(var2^);
+                  btVariant:  tbtcurrency(var1^) := tbtcurrency(var1^) +  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btExtended:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtextended(var1^) := tbtextended(var1^) + tbtu8(var2^);
+                  btS8: tbtextended(var1^) := tbtextended(var1^) + tbts8(var2^);
+                  btU16: tbtextended(var1^) := tbtextended(var1^) + tbtu16(var2^);
+                  btS16: tbtextended(var1^) := tbtextended(var1^) + tbts16(var2^);
+                  btU32: tbtextended(var1^) := tbtextended(var1^) + tbtu32(var2^);
+                  btS32: tbtextended(var1^) := tbtextended(var1^) + tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtextended(var1^) := tbtextended(var1^) + tbts64(var2^);{$ENDIF}
+                  btSingle: tbtextended(var1^) := tbtextended(var1^) + tbtsingle(var2^);
+                  btDouble: tbtextended(var1^) := tbtextended(var1^) + tbtdouble(var2^);
+                  btExtended: tbtextended(var1^) := tbtextended(var1^) + tbtextended(var2^);
+                  btCurrency: tbtextended(var1^) := tbtextended(var1^) + tbtcurrency(var2^);
+                  btVariant:  tbtextended(var1^) := tbtextended(var1^) +  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btPchar, btString: tbtstring(var1^) := tbtstring(var1^) + PSGetAnsiString(Var2, var2type);
+            btChar: tbtchar(var1^) := tbtchar(ord(tbtchar(var1^)) +  PSGetUInt(Var2, var2type));
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: tbtwidechar(var1^) := widechar(ord(tbtwidechar(var1^)) + PSGetUInt(Var2, var2type));
+            btWideString: tbtwidestring(var1^) := tbtwidestring(var1^) + PSGetWideString(Var2, var2type);
+            btUnicodeString: tbtUnicodestring(var1^) := tbtUnicodestring(var1^) + PSGetUnicodeString(Var2, var2type);
+            {$ENDIF}
+            btVariant:
+              begin
+                tvar := null;
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) + tvar;
+              end;
+            btSet:
+              begin
+                if var1Type = var2Type then
+                begin
+                  Set_Union(var1, var2, TPSTypeRec_Set(var1Type).aByteSize);
+                end else result := False;
+              end;
+
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      1: begin { - }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) - PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) - PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) - PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) - PSGetInt(Var2, var2type);
+            btU32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtU32(var1^) := tbtU32(var1^) - tbtu8(var2^);
+                  btS8: tbtU32(var1^) := tbtU32(var1^) - cardinal(longint(tbts8(var2^)));
+                  btU16: tbtU32(var1^) := tbtU32(var1^) - tbtu16(var2^);
+                  btS16: tbtU32(var1^) := tbtU32(var1^) - cardinal(longint(tbts16(var2^)));
+                  btU32: tbtU32(var1^) := tbtU32(var1^) - tbtu32(var2^);
+                  btS32: tbtU32(var1^) := tbtU32(var1^) - cardinal(tbts32(var2^));
+              {$IFNDEF PS_NOINT64} btS64: tbtU32(var1^) := tbtU32(var1^) - tbts64(var2^);{$ENDIF}
+                  btChar: tbtU32(var1^) := tbtU32(var1^) -  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbtU32(var1^) := tbtU32(var1^) - Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbtU32(var1^) := tbtU32(var1^) - Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbts32(var1^) := tbts32(var1^) - tbtu8(var2^);
+                  btS8: tbts32(var1^) := tbts32(var1^) - tbts8(var2^);
+                  btU16: tbts32(var1^) := tbts32(var1^) - tbtu16(var2^);
+                  btS16: tbts32(var1^) := tbts32(var1^) - tbts16(var2^);
+                  btU32: tbts32(var1^) := tbts32(var1^) - Longint(tbtu32(var2^));
+                  btS32: tbts32(var1^) := tbts32(var1^) - tbts32(var2^);
+              {$IFNDEF PS_NOINT64} btS64: tbts32(var1^) := tbts32(var1^) - tbts64(var2^);{$ENDIF}
+                  btChar: tbts32(var1^) := tbts32(var1^) -  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbts32(var1^) := tbts32(var1^) - Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbts32(var1^) := tbts32(var1^) - Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) - PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btSingle:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtsingle(var1^) := tbtsingle(var1^) - tbtu8(var2^);
+                  btS8: tbtsingle(var1^) := tbtsingle(var1^) - tbts8(var2^);
+                  btU16: tbtsingle(var1^) := tbtsingle(var1^) - tbtu16(var2^);
+                  btS16: tbtsingle(var1^) := tbtsingle(var1^) - tbts16(var2^);
+                  btU32: tbtsingle(var1^) := tbtsingle(var1^) - tbtu32(var2^);
+                  btS32: tbtsingle(var1^) := tbtsingle(var1^) - tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtsingle(var1^) := tbtsingle(var1^) - tbts64(var2^);{$ENDIF}
+                  btSingle: tbtsingle(var1^) := tbtsingle(var1^) - tbtsingle(var2^);
+                  btDouble: tbtsingle(var1^) := tbtsingle(var1^) - tbtdouble(var2^);
+                  btExtended: tbtsingle(var1^) := tbtsingle(var1^) - tbtextended(var2^);
+                  btCurrency: tbtsingle(var1^) := tbtsingle(var1^) - tbtcurrency(var2^);
+                  btVariant:  tbtsingle(var1^) := tbtsingle(var1^) - Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btCurrency:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtcurrency(var1^) := tbtcurrency(var1^) - tbtu8(var2^);
+                  btS8: tbtcurrency(var1^) := tbtcurrency(var1^) - tbts8(var2^);
+                  btU16: tbtcurrency(var1^) := tbtcurrency(var1^) - tbtu16(var2^);
+                  btS16: tbtcurrency(var1^) := tbtcurrency(var1^) - tbts16(var2^);
+                  btU32: tbtcurrency(var1^) := tbtdouble(var1^) - tbtu32(var2^);
+                  btS32: tbtcurrency(var1^) := tbtcurrency(var1^) - tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtcurrency(var1^) := tbtdouble(var1^) - tbts64(var2^);{$ENDIF}
+                  btSingle: tbtcurrency(var1^) := tbtcurrency(var1^) - tbtsingle(var2^);
+                  btDouble: tbtcurrency(var1^) := tbtcurrency(var1^) - tbtdouble(var2^);
+                  btExtended: tbtcurrency(var1^) := tbtcurrency(var1^) - tbtextended(var2^);
+                  btCurrency: tbtcurrency(var1^) := tbtcurrency(var1^) - tbtcurrency(var2^);
+                  btVariant:  tbtcurrency(var1^) := tbtcurrency(var1^) -  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btDouble:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtdouble(var1^) := tbtdouble(var1^) - tbtu8(var2^);
+                  btS8: tbtdouble(var1^) := tbtdouble(var1^) - tbts8(var2^);
+                  btU16: tbtdouble(var1^) := tbtdouble(var1^) - tbtu16(var2^);
+                  btS16: tbtdouble(var1^) := tbtdouble(var1^) - tbts16(var2^);
+                  btU32: tbtdouble(var1^) := tbtdouble(var1^) - tbtu32(var2^);
+                  btS32: tbtdouble(var1^) := tbtdouble(var1^) - tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtdouble(var1^) := tbtdouble(var1^) - tbts64(var2^);{$ENDIF}
+                  btSingle: tbtdouble(var1^) := tbtdouble(var1^) - tbtsingle(var2^);
+                  btDouble: tbtdouble(var1^) := tbtdouble(var1^) - tbtdouble(var2^);
+                  btExtended: tbtdouble(var1^) := tbtdouble(var1^) - tbtextended(var2^);
+                  btCurrency: tbtdouble(var1^) := tbtdouble(var1^) - tbtcurrency(var2^);
+                  btVariant:  tbtdouble(var1^) := tbtdouble(var1^) -  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btExtended:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtextended(var1^) := tbtextended(var1^) - tbtu8(var2^);
+                  btS8: tbtextended(var1^) := tbtextended(var1^) - tbts8(var2^);
+                  btU16: tbtextended(var1^) := tbtextended(var1^) - tbtu16(var2^);
+                  btS16: tbtextended(var1^) := tbtextended(var1^) - tbts16(var2^);
+                  btU32: tbtextended(var1^) := tbtextended(var1^) - tbtu32(var2^);
+                  btS32: tbtextended(var1^) := tbtextended(var1^) - tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtextended(var1^) := tbtextended(var1^) -+tbts64(var2^);{$ENDIF}
+                  btSingle: tbtextended(var1^) := tbtextended(var1^) - tbtsingle(var2^);
+                  btDouble: tbtextended(var1^) := tbtextended(var1^) - tbtdouble(var2^);
+                  btExtended: tbtextended(var1^) := tbtextended(var1^) - tbtextended(var2^);
+                  btCurrency: tbtextended(var1^) := tbtextended(var1^) - tbtcurrency(var2^);
+                  btVariant:  tbtextended(var1^) := tbtextended(var1^) -  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btChar: tbtchar(var1^):= tbtchar(ord(tbtchar(var1^)) - PSGetUInt(Var2, var2type));
+            {$IFNDEF PS_NOWIDESTRING}
+            btWideChar: tbtwidechar(var1^) := widechar(ord(tbtwidechar(var1^)) - PSGetUInt(Var2, var2type));
+            {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) - tvar;
+              end;
+            btSet:
+              begin
+                if var1Type = var2Type then
+                begin
+                  Set_Diff(var1, var2, TPSTypeRec_Set(var1Type).aByteSize);
+                end else result := False;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      2: begin { * }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) * PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) * PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) * PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) * PSGetInt(Var2, var2type);
+            btU32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtU32(var1^) := tbtU32(var1^) * tbtu8(var2^);
+                  btS8: tbtU32(var1^) := tbtU32(var1^) * cardinal(longint(tbts8(var2^)));
+                  btU16: tbtU32(var1^) := tbtU32(var1^) * tbtu16(var2^);
+                  btS16: tbtU32(var1^) := tbtU32(var1^) * cardinal(longint(tbts16(var2^)));
+                  btU32: tbtU32(var1^) := tbtU32(var1^) * tbtu32(var2^);
+                  btS32: tbtU32(var1^) := tbtU32(var1^) * cardinal(tbts32(var2^));
+              {$IFNDEF PS_NOINT64} btS64: tbtU32(var1^) := tbtU32(var1^) * tbts64(var2^);{$ENDIF}
+                  btChar: tbtU32(var1^) := tbtU32(var1^) *  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbtU32(var1^) := tbtU32(var1^) * Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbtU32(var1^) := tbtU32(var1^) * Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbts32(var1^) := tbts32(var1^) * tbtu8(var2^);
+                  btS8: tbts32(var1^) := tbts32(var1^) * tbts8(var2^);
+                  btU16: tbts32(var1^) := tbts32(var1^) * tbtu16(var2^);
+                  btS16: tbts32(var1^) := tbts32(var1^) * tbts16(var2^);
+                  btU32: tbts32(var1^) := tbts32(var1^) * Longint(tbtu32(var2^));
+                  btS32: tbts32(var1^) := tbts32(var1^) * tbts32(var2^);
+              {$IFNDEF PS_NOINT64} btS64: tbts32(var1^) := tbts32(var1^) * tbts64(var2^);{$ENDIF}
+                  btChar: tbts32(var1^) := tbts32(var1^) *  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbts32(var1^) := tbts32(var1^) * Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbts32(var1^) := tbts32(var1^) * Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) * PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btCurrency:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtcurrency(var1^) := tbtcurrency(var1^) * tbtu8(var2^);
+                  btS8: tbtcurrency(var1^) := tbtcurrency(var1^) * tbts8(var2^);
+                  btU16: tbtcurrency(var1^) := tbtcurrency(var1^) * tbtu16(var2^);
+                  btS16: tbtcurrency(var1^) := tbtcurrency(var1^) * tbts16(var2^);
+                  btU32: tbtcurrency(var1^) := tbtdouble(var1^) * tbtu32(var2^);
+                  btS32: tbtcurrency(var1^) := tbtcurrency(var1^) * tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtcurrency(var1^) := tbtdouble(var1^) * tbts64(var2^);{$ENDIF}
+                  btSingle: tbtcurrency(var1^) := tbtcurrency(var1^) * tbtsingle(var2^);
+                  btDouble: tbtcurrency(var1^) := tbtcurrency(var1^) * tbtdouble(var2^);
+                  btExtended: tbtcurrency(var1^) := tbtcurrency(var1^) * tbtextended(var2^);
+                  btCurrency: tbtcurrency(var1^) := tbtcurrency(var1^) * tbtcurrency(var2^);
+                  btVariant:  tbtcurrency(var1^) := tbtcurrency(var1^) *  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btSingle:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtsingle(var1^) := tbtsingle(var1^) *tbtu8(var2^);
+                  btS8: tbtsingle(var1^) := tbtsingle(var1^) *tbts8(var2^);
+                  btU16: tbtsingle(var1^) := tbtsingle(var1^) *tbtu16(var2^);
+                  btS16: tbtsingle(var1^) := tbtsingle(var1^) *tbts16(var2^);
+                  btU32: tbtsingle(var1^) := tbtsingle(var1^) *tbtu32(var2^);
+                  btS32: tbtsingle(var1^) := tbtsingle(var1^) *tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtsingle(var1^) := tbtsingle(var1^) *tbts64(var2^);{$ENDIF}
+                  btSingle: tbtsingle(var1^) := tbtsingle(var1^) *tbtsingle(var2^);
+                  btDouble: tbtsingle(var1^) := tbtsingle(var1^) *tbtdouble(var2^);
+                  btExtended: tbtsingle(var1^) := tbtsingle(var1^) *tbtextended(var2^);
+                  btCurrency: tbtsingle(var1^) := tbtsingle(var1^) *tbtcurrency(var2^);
+                  btVariant:  tbtsingle(var1^) := tbtsingle(var1^) * Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btDouble:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtdouble(var1^) := tbtdouble(var1^) *tbtu8(var2^);
+                  btS8: tbtdouble(var1^) := tbtdouble(var1^) *tbts8(var2^);
+                  btU16: tbtdouble(var1^) := tbtdouble(var1^) *tbtu16(var2^);
+                  btS16: tbtdouble(var1^) := tbtdouble(var1^) *tbts16(var2^);
+                  btU32: tbtdouble(var1^) := tbtdouble(var1^) *tbtu32(var2^);
+                  btS32: tbtdouble(var1^) := tbtdouble(var1^) *tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtdouble(var1^) := tbtdouble(var1^) *tbts64(var2^);{$ENDIF}
+                  btSingle: tbtdouble(var1^) := tbtdouble(var1^) *tbtsingle(var2^);
+                  btDouble: tbtdouble(var1^) := tbtdouble(var1^) *tbtdouble(var2^);
+                  btExtended: tbtdouble(var1^) := tbtdouble(var1^) *tbtextended(var2^);
+                  btCurrency: tbtdouble(var1^) := tbtdouble(var1^) *tbtcurrency(var2^);
+                  btVariant:  tbtdouble(var1^) := tbtdouble(var1^) * Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btExtended:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtextended(var1^) := tbtextended(var1^) *tbtu8(var2^);
+                  btS8: tbtextended(var1^) := tbtextended(var1^) *tbts8(var2^);
+                  btU16: tbtextended(var1^) := tbtextended(var1^) *tbtu16(var2^);
+                  btS16: tbtextended(var1^) := tbtextended(var1^) *tbts16(var2^);
+                  btU32: tbtextended(var1^) := tbtextended(var1^) *tbtu32(var2^);
+                  btS32: tbtextended(var1^) := tbtextended(var1^) *tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtextended(var1^) := tbtextended(var1^) *tbts64(var2^);{$ENDIF}
+                  btSingle: tbtextended(var1^) := tbtextended(var1^) *tbtsingle(var2^);
+                  btDouble: tbtextended(var1^) := tbtextended(var1^) *tbtdouble(var2^);
+                  btExtended: tbtextended(var1^) := tbtextended(var1^) *tbtextended(var2^);
+                  btCurrency: tbtextended(var1^) := tbtextended(var1^) *tbtcurrency(var2^);
+                  btVariant:  tbtextended(var1^) := tbtextended(var1^) * Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) * tvar;
+              end;
+            btSet:
+              begin
+                if var1Type = var2Type then
+                begin
+                  Set_Intersect(var1, var2, TPSTypeRec_Set(var1Type).aByteSize);
+                end else result := False;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      3: begin { / }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) div PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) div PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) div PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) div PSGetInt(Var2, var2type);
+            btU32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtU32(var1^) := tbtU32(var1^) div tbtu8(var2^);
+                  btS8: tbtU32(var1^) := tbtU32(var1^) div cardinal(longint(tbts8(var2^)));
+                  btU16: tbtU32(var1^) := tbtU32(var1^) div tbtu16(var2^);
+                  btS16: tbtU32(var1^) := tbtU32(var1^) div cardinal(longint(tbts16(var2^)));
+                  btU32: tbtU32(var1^) := tbtU32(var1^) div tbtu32(var2^);
+                  btS32: tbtU32(var1^) := tbtU32(var1^) div cardinal(tbts32(var2^));
+              {$IFNDEF PS_NOINT64} btS64: tbtU32(var1^) := tbtU32(var1^) div tbts64(var2^);{$ENDIF}
+                  btChar: tbtU32(var1^) := tbtU32(var1^) div  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbtU32(var1^) := tbtU32(var1^) div Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbtU32(var1^) := tbtU32(var1^) div Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbts32(var1^) := tbts32(var1^) div tbtu8(var2^);
+                  btS8: tbts32(var1^) := tbts32(var1^) div tbts8(var2^);
+                  btU16: tbts32(var1^) := tbts32(var1^) div tbtu16(var2^);
+                  btS16: tbts32(var1^) := tbts32(var1^) div tbts16(var2^);
+                  btU32: tbts32(var1^) := tbts32(var1^) div Longint(tbtu32(var2^));
+                  btS32: tbts32(var1^) := tbts32(var1^) div tbts32(var2^);
+              {$IFNDEF PS_NOINT64} btS64: tbts32(var1^) := tbts32(var1^) div tbts64(var2^);{$ENDIF}
+                  btChar: tbts32(var1^) := tbts32(var1^) div  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbts32(var1^) := tbts32(var1^) div Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbts32(var1^) := tbts32(var1^) div Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) div PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btSingle:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtsingle(var1^) := tbtsingle(var1^) / tbtu8(var2^);
+                  btS8: tbtsingle(var1^) := tbtsingle(var1^) / tbts8(var2^);
+                  btU16: tbtsingle(var1^) := tbtsingle(var1^) / tbtu16(var2^);
+                  btS16: tbtsingle(var1^) := tbtsingle(var1^) / tbts16(var2^);
+                  btU32: tbtsingle(var1^) := tbtsingle(var1^) / tbtu32(var2^);
+                  btS32: tbtsingle(var1^) := tbtsingle(var1^) / tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtsingle(var1^) := tbtsingle(var1^) / tbts64(var2^);{$ENDIF}
+                  btSingle: tbtsingle(var1^) := tbtsingle(var1^) / tbtsingle(var2^);
+                  btDouble: tbtsingle(var1^) := tbtsingle(var1^) / tbtdouble(var2^);
+                  btExtended: tbtsingle(var1^) := tbtsingle(var1^) / tbtextended(var2^);
+                  btCurrency: tbtsingle(var1^) := tbtsingle(var1^) / tbtcurrency(var2^);
+                  btVariant:  tbtsingle(var1^) := tbtsingle(var1^) /  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btCurrency:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtcurrency(var1^) := tbtcurrency(var1^) / tbtu8(var2^);
+                  btS8: tbtcurrency(var1^) := tbtcurrency(var1^) / tbts8(var2^);
+                  btU16: tbtcurrency(var1^) := tbtcurrency(var1^) / tbtu16(var2^);
+                  btS16: tbtcurrency(var1^) := tbtcurrency(var1^) / tbts16(var2^);
+                  btU32: tbtcurrency(var1^) := tbtdouble(var1^) / tbtu32(var2^);
+                  btS32: tbtcurrency(var1^) := tbtcurrency(var1^) / tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtcurrency(var1^) := tbtdouble(var1^) / tbts64(var2^);{$ENDIF}
+                  btSingle: tbtcurrency(var1^) := tbtcurrency(var1^) / tbtsingle(var2^);
+                  btDouble: tbtcurrency(var1^) := tbtcurrency(var1^) / tbtdouble(var2^);
+                  btExtended: tbtcurrency(var1^) := tbtcurrency(var1^) / tbtextended(var2^);
+                  btCurrency: tbtcurrency(var1^) := tbtcurrency(var1^) / tbtcurrency(var2^);
+                  btVariant:  tbtcurrency(var1^) := tbtcurrency(var1^) /  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btDouble:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtdouble(var1^) := tbtdouble(var1^) / tbtu8(var2^);
+                  btS8: tbtdouble(var1^) := tbtdouble(var1^) / tbts8(var2^);
+                  btU16: tbtdouble(var1^) := tbtdouble(var1^) / tbtu16(var2^);
+                  btS16: tbtdouble(var1^) := tbtdouble(var1^) / tbts16(var2^);
+                  btU32: tbtdouble(var1^) := tbtdouble(var1^) / tbtu32(var2^);
+                  btS32: tbtdouble(var1^) := tbtdouble(var1^) / tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtdouble(var1^) := tbtdouble(var1^) / tbts64(var2^);{$ENDIF}
+                  btSingle: tbtdouble(var1^) := tbtdouble(var1^) / tbtsingle(var2^);
+                  btDouble: tbtdouble(var1^) := tbtdouble(var1^) / tbtdouble(var2^);
+                  btExtended: tbtdouble(var1^) := tbtdouble(var1^) / tbtextended(var2^);
+                  btCurrency: tbtdouble(var1^) := tbtdouble(var1^) / tbtcurrency(var2^);
+                  btVariant:  tbtdouble(var1^) := tbtdouble(var1^) /  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btExtended:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtextended(var1^) := tbtextended(var1^) / tbtu8(var2^);
+                  btS8: tbtextended(var1^) := tbtextended(var1^) / tbts8(var2^);
+                  btU16: tbtextended(var1^) := tbtextended(var1^) / tbtu16(var2^);
+                  btS16: tbtextended(var1^) := tbtextended(var1^) / tbts16(var2^);
+                  btU32: tbtextended(var1^) := tbtextended(var1^) / tbtu32(var2^);
+                  btS32: tbtextended(var1^) := tbtextended(var1^) / tbts32(var2^);
+              {$IFNDEF PS_NOINT64}    btS64: tbtextended(var1^) := tbtextended(var1^) / tbts64(var2^);{$ENDIF}
+                  btSingle: tbtextended(var1^) := tbtextended(var1^) / tbtsingle(var2^);
+                  btDouble: tbtextended(var1^) := tbtextended(var1^) / tbtdouble(var2^);
+                  btExtended: tbtextended(var1^) := tbtextended(var1^) / tbtextended(var2^);
+                  btCurrency: tbtextended(var1^) := tbtextended(var1^) / tbtcurrency(var2^);
+                  btVariant:  tbtextended(var1^) := tbtextended(var1^) /  Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                begin
+                  if VarIsFloat(variant(var1^)) then
+                    Variant(var1^) := Variant(var1^) / tvar
+                  else
+                    Variant(var1^) := Variant(var1^) div tvar;
+                end;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      4: begin { MOD }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) mod PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) mod PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) mod PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) mod PSGetInt(Var2, var2type);
+            btU32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbtU32(var1^) := tbtU32(var1^) mod tbtu8(var2^);
+                  btS8: tbtU32(var1^) := tbtU32(var1^) mod cardinal(longint(tbts8(var2^)));
+                  btU16: tbtU32(var1^) := tbtU32(var1^) mod tbtu16(var2^);
+                  btS16: tbtU32(var1^) := tbtU32(var1^) mod cardinal(longint(tbts16(var2^)));
+                  btU32: tbtU32(var1^) := tbtU32(var1^) mod tbtu32(var2^);
+                  btS32: tbtU32(var1^) := tbtU32(var1^) mod cardinal(tbts32(var2^));
+              {$IFNDEF PS_NOINT64} btS64: tbtU32(var1^) := tbtU32(var1^) mod tbts64(var2^);{$ENDIF}
+                  btChar: tbtU32(var1^) := tbtU32(var1^) mod  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbtU32(var1^) := tbtU32(var1^) mod Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbtU32(var1^) := tbtU32(var1^) mod Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+            btS32:
+              begin
+                if var2type.BaseType = btPointer then
+                begin
+                  var2type := PIFTypeRec(Pointer(IPointer(var2)+PointerSize)^);
+                  var2 := Pointer(var2^);
+                  if (var2 = nil) or (var2type = nil) then raise Exception.Create(RPS_TypeMismatch);
+                end;
+                case var2type.BaseType of
+                  btU8: tbts32(var1^) := tbts32(var1^) mod tbtu8(var2^);
+                  btS8: tbts32(var1^) := tbts32(var1^) mod tbts8(var2^);
+                  btU16: tbts32(var1^) := tbts32(var1^) mod tbtu16(var2^);
+                  btS16: tbts32(var1^) := tbts32(var1^) mod tbts16(var2^);
+                  btU32: tbts32(var1^) := tbts32(var1^) mod Longint(tbtu32(var2^));
+                  btS32: tbts32(var1^) := tbts32(var1^) mod tbts32(var2^);
+              {$IFNDEF PS_NOINT64} btS64: tbts32(var1^) := tbts32(var1^) mod tbts64(var2^);{$ENDIF}
+                  btChar: tbts32(var1^) := tbts32(var1^) mod  Ord(tbtchar(var2^));
+              {$IFNDEF PS_NOWIDESTRING}    btWideChar: tbts32(var1^) := tbts32(var1^) mod Ord(tbtwidechar(var2^));{$ENDIF}
+                  btVariant: tbts32(var1^) := tbts32(var1^) mod Variant(var2^);
+                  else raise Exception.Create(RPS_TypeMismatch);
+                end;
+              end;
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) mod PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) mod tvar;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      5: begin { SHL }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) shl PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) shl PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) shl PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) shl PSGetInt(Var2, var2type);
+            btU32: tbtU32(var1^) := tbtU32(var1^) shl PSGetUInt(Var2, var2type);
+            btS32: tbts32(var1^) := tbts32(var1^) shl PSGetInt(Var2, var2type);
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) shl PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) shl tvar;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      6: begin { SHR }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) shr PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) shr PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) shr PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) shr PSGetInt(Var2, var2type);
+            btU32: tbtU32(var1^) := tbtU32(var1^) shr PSGetUInt(Var2, var2type);
+            btS32: tbts32(var1^) := tbts32(var1^) shr PSGetInt(Var2, var2type);
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) shr PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) shr tvar;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      7: begin { AND }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) and PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) and PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) and PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) and PSGetInt(Var2, var2type);
+            btU32: tbtU32(var1^) := tbtU32(var1^) and PSGetUInt(Var2, var2type);
+            btS32: tbts32(var1^) := tbts32(var1^) and PSGetInt(Var2, var2type);
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) and PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) and tvar;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      8: begin { OR }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) or PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) or PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) or PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) or PSGetInt(Var2, var2type);
+            btU32: tbtU32(var1^) := tbtU32(var1^) or PSGetUInt(Var2, var2type);
+            btS32: tbts32(var1^) := tbts32(var1^) or PSGetInt(Var2, var2type);
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) or PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) or tvar;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      9: begin { XOR }
+          case var1Type.BaseType of
+            btU8: tbtU8(var1^) := tbtU8(var1^) xor PSGetUInt(Var2, var2type);
+            btS8: tbts8(var1^) := tbts8(var1^) xor PSGetInt(Var2, var2type);
+            btU16: tbtU16(var1^) := tbtU16(var1^) xor PSGetUInt(Var2, var2type);
+            btS16: tbts16(var1^) := tbts16(var1^) xor PSGetInt(Var2, var2type);
+            btU32: tbtU32(var1^) := tbtU32(var1^) xor PSGetUInt(Var2, var2type);
+            btS32: tbts32(var1^) := tbts32(var1^) xor PSGetInt(Var2, var2type);
+           {$IFNDEF PS_NOINT64}
+            btS64: tbts64(var1^) := tbts64(var1^) xor PSGetInt64(var2, var2type);
+           {$ENDIF}
+            btVariant:
+              begin
+                if not IntPIFVariantToVariant(var2, var2type, tvar) then
+                begin
+                  Result := false;
+                end else
+                  Variant(var1^) := Variant(var1^) xor tvar;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+      10:
+        begin // as
+          case var1Type.BaseType of
+            btClass:
+              begin
+                if var2type.BaseType <> btU32 then
+                  Result := False
+                else
+                begin
+                  var2type := FTypes[tbtu32(var2^)];
+                  if (var2type = nil) or (var2type.BaseType <> btClass) then
+                    Result := false
+                  else
+                  begin
+                    if not Class_IS(Self, TObject(var1^), var2type) then
+                      Result := false
+                  end;
+                end;
+              end;
+          else begin
+              CMD_Err(erTypeMismatch);
+              exit;
+            end;
+          end;
+          if not Result then begin
+            CMD_Err(erTypeMismatch);
+            exit;
+          end;
+        end;
+    else begin
+        Result := False;
+        CMD_Err(erInvalidOpcodeParameter);
+        exit;
+      end;
+    end;
+  except
+    {$IFDEF DELPHI6UP}
+    Tmp := AcquireExceptionObject;
+    {$ELSE}
+    if RaiseList <> nil then
+    begin
+      Tmp := Exception(PRaiseFrame(RaiseList)^.ExceptObject);
+      PRaiseFrame(RaiseList)^.ExceptObject := nil;
+    end else
+      Tmp := nil;
+    {$ENDIF}
+    if Tmp <> nil then
+    begin
+      if Tmp is EPSException then
+      begin
+        Result := False;
+        ExceptionProc(EPSException(tmp).ProcNo, EPSException(tmp).ProcPos, erCustomError, tbtString(EPSException(tmp).Message), nil);
+        exit;
+      end else
+      if Tmp is EDivByZero then
+      begin
+        Result := False;
+        CMD_Err3(erDivideByZero, '', Tmp);
+        Exit;
+      end;
+      if Tmp is EZeroDivide then
+      begin
+        Result := False;
+        CMD_Err3(erDivideByZero, '', Tmp);
+        Exit;
+      end;
+      if Tmp is EMathError then
+      begin
+        Result := False;
+        CMD_Err3(erMathError, '', Tmp);
+        Exit;
+      end;
+    end;
+    if (tmp <> nil) and (Tmp is Exception) then
+      CMD_Err3(erException, tbtString(Exception(Tmp).Message), Tmp)
+    else
+      CMD_Err3(erException, '', Tmp);
+    Result := False;
+  end;
+end;
+
+function TPSExec.ReadVariable(var Dest: TPSResultData; UsePointer: Boolean): Boolean;
+var
+  VarType: Cardinal;
+  Param: Cardinal;
+  Tmp: PIfVariant;
+  at: TPSTypeRec;
+
+begin
+  if FCurrentPosition + 4 >= FDataLength then
+  begin
+    CMD_Err(erOutOfRange); // Error
+    Result := False;
+    exit;
+  end;
+  VarType := FData^[FCurrentPosition];
+  Inc(FCurrentPosition);
+  {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+  Param := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+  {$else}
+  Param := Cardinal((@FData^[FCurrentPosition])^);
+  {$endif}
+  Inc(FCurrentPosition, 4);
+  case VarType of
+    0:
+      begin
+        Dest.FreeType := vtNone;
+        if Param < PSAddrNegativeStackStart then
+        begin
+          if Param >= Cardinal(FGlobalVars.Count) then
+          begin
+            CMD_Err(erOutOfGlobalVarsRange);
+            Result := False;
+            exit;
+          end;
+          Tmp := FGlobalVars.Data[param];
+        end else
+        begin
+          Param := Cardinal(Longint(-PSAddrStackStart) +
+            Longint(FCurrStackBase) + Longint(Param));
+          if Param >= Cardinal(FStack.Count) then
+          begin
+            CMD_Err(erOutOfGlobalVarsRange);
+            Result := False;
+            exit;
+          end;
+          Tmp := FStack.Data[param];
+        end;
+        if (UsePointer) and (Tmp.FType.BaseType = btPointer) then
+        begin
+          Dest.aType := PPSVariantPointer(Tmp).DestType;
+          Dest.P := PPSVariantPointer(Tmp).DataDest;
+          if Dest.P = nil then
+          begin
+            Cmd_Err(erNullPointerException);
+            Result := False;
+            exit;
+          end;
+        end else
+        begin
+          Dest.aType := PPSVariantData(Tmp).vi.FType;
+          Dest.P := @PPSVariantData(Tmp).Data;
+        end;
+      end;
+    1: begin
+        if Param >= FTypes.Count then
+        begin
+          CMD_Err(erInvalidType);
+          Result := False;
+          exit;
+        end;
+        at := FTypes.Data^[Param];
+        Param := FTempVars.FLength;
+        FTempVars.FLength := Cardinal(Longint(Param) + Longint(at.RealSize) + Longint(RTTISize + 3)) and not 3;
+        if FTempVars.FLength > FTempVars.FCapacity then FtempVars.AdjustLength;
+        Tmp := Pointer(IPointer(FtempVars.FDataPtr) + IPointer(Param));
+
+        if Cardinal(FTempVars.FCount) >= Cardinal(FTempVars.FCapacity) then
+        begin
+          Inc(FTempVars.FCapacity, FCapacityInc);// := FCount + 1;
+          ReAllocMem(FTempVars.FData, FTempVars.FCapacity shl 2);
+        end;
+        FTempVars.FData[FTempVars.FCount] := Tmp; // Instead of SetItem
+        Inc(FTempVars.FCount);
+      {$IFNDEF PS_NOSMARTLIST}
+        Inc(FTempVars.FCheckCount);
+        if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+      {$ENDIF}
+
+
+        Tmp.FType := at;
+        Dest.P := @PPSVariantData(Tmp).Data;
+        Dest.aType := tmp.FType;
+        dest.FreeType := vtTempVar;
+        case Dest.aType.BaseType of
+          btSet:
+            begin
+              if not ReadData(Dest.P^, TPSTypeRec_Set(Dest.aType).aByteSize) then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+            end;
+          bts8, btchar, btU8:
+            begin
+              if FCurrentPosition >= FDataLength then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+              tbtu8(dest.p^) := FData^[FCurrentPosition];
+              Inc(FCurrentPosition);
+            end;
+          bts16, {$IFNDEF PS_NOWIDESTRING}btwidechar,{$ENDIF} btU16:
+            begin
+              if FCurrentPosition + 1>= FDataLength then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              tbtu16(dest.p^) := unaligned(tbtu16((@FData^[FCurrentPosition])^));
+	      {$else}
+              tbtu16(dest.p^) := tbtu16((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 2);
+            end;
+          bts32, btU32:
+            begin
+              if FCurrentPosition + 3>= FDataLength then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              tbtu32(dest.p^) := unaligned(tbtu32((@FData^[FCurrentPosition])^));
+	      {$else}
+              tbtu32(dest.p^) := tbtu32((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+            end;
+          btProcPtr:
+            begin
+              if FCurrentPosition + 3>= FDataLength then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              tbtu32(dest.p^) := unaligned(tbtu32((@FData^[FCurrentPosition])^));
+	      {$else}
+              tbtu32(dest.p^) := tbtu32((@FData^[FCurrentPosition])^);
+	      {$endif}
+              tbtu32(Pointer(IPointer(dest.p)+PointerSize)^) := 0;
+              tbtu32(Pointer(IPointer(dest.p)+PointerSize)^) := 0;
+              Inc(FCurrentPosition, 4);
+            end;
+          {$IFNDEF PS_NOINT64}
+          bts64:
+            begin
+              if FCurrentPosition + 7>= FDataLength then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              tbts64(dest.p^) := unaligned(tbts64((@FData^[FCurrentPosition])^));
+	      {$else}
+              tbts64(dest.p^) := tbts64((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 8);
+            end;
+          {$ENDIF}
+          btSingle:
+            begin
+              if FCurrentPosition + (Sizeof(Single)-1)>= FDataLength then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              tbtsingle(dest.p^) := unaligned(tbtsingle((@FData^[FCurrentPosition])^));
+	      {$else}
+              tbtsingle(dest.p^) := tbtsingle((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, Sizeof(Single));
+            end;
+          btDouble:
+            begin
+              if FCurrentPosition + (Sizeof(Double)-1)>= FDataLength then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              tbtdouble(dest.p^) := unaligned(tbtdouble((@FData^[FCurrentPosition])^));
+	      {$else}
+              tbtdouble(dest.p^) := tbtdouble((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, Sizeof(double));
+            end;
+
+          btExtended:
+            begin
+              if FCurrentPosition + (sizeof(Extended)-1)>= FDataLength then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              tbtextended(dest.p^) := unaligned(tbtextended((@FData^[FCurrentPosition])^));
+	      {$else}
+              tbtextended(dest.p^) := tbtextended((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, sizeof(Extended));
+            end;
+          btPchar, btString:
+          begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              Param := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              Param := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              Pointer(Dest.P^) := nil;
+              SetLength(tbtstring(Dest.P^), Param);
+              if not ReadData(tbtstring(Dest.P^)[1], Param) then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+            end;
+          {$IFNDEF PS_NOWIDESTRING}
+          btWidestring:
+            begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              Param := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              Param := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              Pointer(Dest.P^) := nil;
+              SetLength(tbtwidestring(Dest.P^), Param);
+              if not ReadData(tbtwidestring(Dest.P^)[1], Param*2) then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+            end;
+          btUnicodeString:
+            begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              Param := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              Param := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              Pointer(Dest.P^) := nil;
+              SetLength(tbtUnicodestring(Dest.P^), Param);
+              if not ReadData(tbtUnicodestring(Dest.P^)[1], Param*2) then
+              begin
+                CMD_Err(erOutOfRange);
+                FTempVars.Pop;
+                Result := False;
+                exit;
+              end;
+            end;
+          {$ENDIF}
+        else begin
+            CMD_Err(erInvalidType);
+            FTempVars.Pop;
+            Result := False;
+            exit;
+          end;
+        end;
+      end;
+    2:
+      begin
+        Dest.FreeType := vtNone;
+        if Param < PSAddrNegativeStackStart then begin
+          if Param >= Cardinal(FGlobalVars.Count) then
+          begin
+            CMD_Err(erOutOfGlobalVarsRange);
+            Result := False;
+            exit;
+          end;
+          Tmp := FGlobalVars.Data[param];
+        end
+        else begin
+          Param := Cardinal(Longint(-PSAddrStackStart) + Longint(FCurrStackBase) + Longint(Param));
+          if Param >= Cardinal(FStack.Count) then
+          begin
+            CMD_Err(erOutOfStackRange);
+            Result := False;
+            exit;
+          end;
+          Tmp := FStack.Data[param];
+        end;
+        if Tmp.FType.BaseType = btPointer then
+        begin
+          Dest.aType := PPSVariantPointer(Tmp).DestType;
+          Dest.P := PPSVariantPointer(Tmp).DataDest;
+          if Dest.P = nil then
+          begin
+            Cmd_Err(erNullPointerException);
+            Result := False;
+            exit;
+          end;
+        end else
+        begin
+          Dest.aType := PPSVariantData(Tmp).vi.FType;
+          Dest.P := @PPSVariantData(Tmp).Data;
+        end;
+        if FCurrentPosition + 3 >= FDataLength then
+        begin
+          CMD_Err(erOutOfRange);
+          Result := False;
+          exit;
+        end;
+	{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+        Param := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	{$else}
+        Param := Cardinal((@FData^[FCurrentPosition])^);
+	{$endif}
+        Inc(FCurrentPosition, 4);
+        case Dest.aType.BaseType of
+          btRecord:
+            begin
+              if Param > Cardinal(TPSTypeRec_Record(Dest.aType).FFieldTypes.Count) then
+              begin
+                CMD_Err(erOutOfRange);
+                Result := False;
+                exit;
+              end;
+              Dest.P := Pointer(IPointer(Dest.P) + IPointer(TPSTypeRec_Record(Dest.aType).RealFieldOffsets[Param]));
+              Dest.aType := TPSTypeRec_Record(Dest.aType).FieldTypes[Param];
+            end;
+          btArray:
+            begin
+              if Param >= Cardinal(PSDynArrayGetLength(Pointer(Dest.P^), dest.aType)) then
+              begin
+                CMD_Err(erOutOfRange);
+                Result := False;
+                exit;
+              end;
+              Dest.P := Pointer(IPointer(Dest.P^) + (Param * TPSTypeRec_Array(Dest.aType).FArrayType.RealSize));
+              Dest.aType := TPSTypeRec_Array(dest.aType).ArrayType;
+            end;
+          btStaticArray:
+            begin
+              if Param >= Cardinal(TPSTypeRec_StaticArray(Dest.aType).Size) then
+              begin
+                CMD_Err(erOutOfRange);
+                Result := False;
+                exit;
+              end;
+              Dest.P := Pointer(IPointer(Dest.P) + (Param * TPSTypeRec_Array(Dest.aType).FArrayType.RealSize));
+              Dest.aType := TPSTypeRec_Array(dest.aType).ArrayType;
+            end;
+        else
+          CMD_Err(erInvalidType);
+          Result := False;
+          exit;
+        end;
+
+        if UsePointer and (Dest.aType.BaseType = btPointer) then
+        begin
+          Dest.aType := TPSTypeRec(Pointer(IPointer(Dest.p)+PointerSize)^);
+          Dest.P := Pointer(Dest.p^);
+          if Dest.P = nil then
+          begin
+            Cmd_Err(erNullPointerException);
+            Result := False;
+            exit;
+          end;
+        end;
+      end;
+    3:
+      begin
+        Dest.FreeType := vtNone;
+        if Param < PSAddrNegativeStackStart then begin
+          if Param >= Cardinal(FGlobalVars.Count) then
+          begin
+            CMD_Err(erOutOfGlobalVarsRange);
+            Result := False;
+            exit;
+          end;
+          Tmp := FGlobalVars.Data[param];
+        end
+        else begin
+          Param := Cardinal(Longint(-PSAddrStackStart) + Longint(FCurrStackBase) + Longint(Param));
+          if Param >= Cardinal(FStack.Count) then
+          begin
+            CMD_Err(erOutOfStackRange);
+            Result := False;
+            exit;
+          end;
+          Tmp := FStack.Data[param];
+        end;
+        if (Tmp.FType.BaseType = btPointer) then
+        begin
+          Dest.aType := PPSVariantPointer(Tmp).DestType;
+          Dest.P := PPSVariantPointer(Tmp).DataDest;
+          if Dest.P = nil then
+          begin
+            Cmd_Err(erNullPointerException);
+            Result := False;
+            exit;
+          end;
+        end else
+        begin
+          Dest.aType := PPSVariantData(Tmp).vi.FType;
+          Dest.P := @PPSVariantData(Tmp).Data;
+        end;
+	{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+        Param := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	{$else}
+        Param := Cardinal((@FData^[FCurrentPosition])^);
+	{$endif}
+        Inc(FCurrentPosition, 4);
+        if Param < PSAddrNegativeStackStart then
+        begin
+          if Param >= Cardinal(FGlobalVars.Count) then
+          begin
+            CMD_Err(erOutOfGlobalVarsRange);
+            Result := false;
+            exit;
+          end;
+          Tmp := FGlobalVars[Param];
+        end
+        else begin
+          Param := Cardinal(Longint(-PSAddrStackStart) + Longint(FCurrStackBase) + Longint(Param));
+          if Cardinal(Param) >= Cardinal(FStack.Count) then
+          begin
+            CMD_Err(erOutOfStackRange);
+            Result := false;
+            exit;
+          end;
+          Tmp := FStack[Param];
+        end;
+        case Tmp.FType.BaseType of
+          btu8: Param := PPSVariantU8(Tmp).Data;
+          bts8: Param := PPSVariants8(Tmp).Data;
+          btu16: Param := PPSVariantU16(Tmp).Data;
+          bts16: Param := PPSVariants16(Tmp).Data;
+          btu32: Param := PPSVariantU32(Tmp).Data;
+          bts32: Param := PPSVariants32(Tmp).Data;
+          btPointer:
+            begin
+              if PPSVariantPointer(tmp).DestType <> nil then
+              begin
+                case PPSVariantPointer(tmp).DestType.BaseType of
+                  btu8: Param := tbtu8(PPSVariantPointer(tmp).DataDest^);
+                  bts8: Param := tbts8(PPSVariantPointer(tmp).DataDest^);
+                  btu16: Param := tbtu16(PPSVariantPointer(tmp).DataDest^);
+                  bts16: Param := tbts16(PPSVariantPointer(tmp).DataDest^);
+                  btu32, btProcPtr: Param := tbtu32(PPSVariantPointer(tmp).DataDest^);
+                  bts32: Param := tbts32(PPSVariantPointer(tmp).DataDest^);
+                  else
+                    begin
+                      CMD_Err(ErTypeMismatch);
+                      Result := false;
+                      exit;
+                    end;
+                end;
+              end else
+              begin
+                CMD_Err(ErTypeMismatch);
+                Result := false;
+                exit;
+              end;
+            end;
+        else
+          CMD_Err(ErTypeMismatch);
+          Result := false;
+          exit;
+        end;
+        case Dest.aType.BaseType of
+          btRecord:
+            begin
+              if Param > Cardinal(TPSTypeRec_Record(Dest.aType).FFieldTypes.Count) then
+              begin
+                CMD_Err(erOutOfRange);
+                Result := False;
+                exit;
+              end;
+              Dest.P := Pointer(IPointer(Dest.P) + IPointer(TPSTypeRec_Record(Dest.aType).RealFieldOffsets[Param]));
+              Dest.aType := TPSTypeRec_Record(Dest.aType).FieldTypes[Param];
+            end;
+          btArray:
+            begin
+              if Cardinal(Param) >= Cardinal(PSDynArrayGetLength(Pointer(Dest.P^), dest.aType)) then
+              begin
+                CMD_Err(erOutOfRange);
+                Result := False;
+                exit;
+              end;
+              Dest.P := Pointer(IPointer(Dest.P^) + (Param * TPSTypeRec_Array(Dest.aType).FArrayType.RealSize));
+              Dest.aType := TPSTypeRec_Array(dest.aType).ArrayType;
+            end;
+          btStaticArray:
+            begin
+              if Param >= Cardinal(TPSTypeRec_StaticArray(Dest.aType).Size) then
+              begin
+                CMD_Err(erOutOfRange);
+                Result := False;
+                exit;
+              end;
+              Dest.P := Pointer(IPointer(Dest.P) + (Param * TPSTypeRec_Array(Dest.aType).FArrayType.RealSize));
+              Dest.aType := TPSTypeRec_Array(dest.aType).ArrayType;
+            end;
+        else
+          CMD_Err(erInvalidType);
+          Result := False;
+          exit;
+        end;
+        if UsePointer and (Dest.aType.BaseType = btPointer) then
+        begin
+          Dest.aType := TPSTypeRec(Pointer(IPointer(Dest.p)+PointerSize)^);
+          Dest.P := Pointer(Dest.p^);
+          if Dest.P = nil then
+          begin
+            Cmd_Err(erNullPointerException);
+            Result := False;
+            exit;
+          end;
+        end;
+      end;
+  else
+    begin
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := true;
+end;
+
+function TPSExec.DoMinus(Dta: Pointer; aType: TPSTypeRec): Boolean;
+begin
+  case atype.BaseType of
+    btU8: tbtu8(dta^) := -tbtu8(dta^);
+    btU16: tbtu16(dta^) := -tbtu16(dta^);
+    btU32: tbtu32(dta^) := -tbtu32(dta^);
+    btS8: tbts8(dta^) := -tbts8(dta^);
+    btS16: tbts16(dta^) := -tbts16(dta^);
+    btS32: tbts32(dta^) := -tbts32(dta^);
+    {$IFNDEF PS_NOINT64}
+    bts64: tbts64(dta^) := -tbts64(dta^);
+    {$ENDIF}
+    btSingle: tbtsingle(dta^) := -tbtsingle(dta^);
+    btDouble: tbtdouble(dta^) := -tbtdouble(dta^);
+    btExtended: tbtextended(dta^) := -tbtextended(dta^);
+    btCurrency: tbtcurrency(dta^) := -tbtcurrency(dta^);
+    btVariant:
+      begin
+        try
+          Variant(dta^) := - Variant(dta^);
+        except
+          CMD_Err(erTypeMismatch);
+          Result := False;
+          exit;
+        end;
+      end;
+  else
+    begin
+      CMD_Err(erTypeMismatch);
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+
+function TPSExec.DoBooleanNot(Dta: Pointer; aType: TPSTypeRec): Boolean;
+begin
+  case aType.BaseType of
+    btU8: tbtu8(dta^) := tbtu8(tbtu8(dta^) = 0);
+    btU16: tbtu16(dta^) := tbtu16(tbtu16(dta^) = 0);
+    btU32: tbtu32(dta^) := tbtu32(tbtu32(dta^) = 0);
+    btS8: tbts8(dta^) := tbts8(tbts8(dta^) = 0);
+    btS16: tbts16(dta^) := tbts16(tbts16(dta^) = 0);
+    btS32: tbts32(dta^) := tbts32(tbts32(dta^) = 0);
+    {$IFNDEF PS_NOINT64}
+    bts64: tbts64(dta^) := tbts64(tbts64(dta^) = 0);
+    {$ENDIF}
+    btVariant:
+      begin
+        try
+          Variant(dta^) := Variant(dta^) = 0;
+        except
+          CMD_Err(erTypeMismatch);
+          Result := False;
+          exit;
+        end;
+      end;
+  else
+    begin
+      CMD_Err(erTypeMismatch);
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+
+
+procedure TPSExec.Stop;
+begin
+  if FStatus = isRunning then
+    FStatus := isLoaded
+  else if FStatus = isPaused then begin
+    FStatus := isLoaded;
+    FStack.Clear;
+    FTempVars.Clear;
+  end;
+end;
+
+
+function TPSExec.ReadLong(var b: Cardinal): Boolean;
+begin
+  if FCurrentPosition + 3 < FDataLength then begin
+    {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+    b := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+    {$else}
+    b := Cardinal((@FData^[FCurrentPosition])^);
+    {$endif}
+    Inc(FCurrentPosition, 4);
+    Result := True;
+  end
+  else
+    Result := False;
+end;
+
+function TPSExec.RunProcP(const Params: array of Variant; const Procno: Cardinal): Variant;
+var
+  ParamList: TPSList;
+  ct: PIFTypeRec;
+  pvar: PPSVariant;
+  res, s: tbtString;
+  Proc: TPSInternalProcRec;
+  i: Longint;
+begin
+  if ProcNo >= FProcs.Count then raise Exception.Create(RPS_UnknownProcedure);
+  Proc := GetProcNo(ProcNo) as TPSInternalProcRec;
+  ParamList := TPSList.Create;
+  try
+    s := Proc.ExportDecl;
+    res := grfw(s);
+    i := High(Params);
+    while s <> '' do
+    begin
+      if i < 0 then raise Exception.Create(RPS_NotEnoughParameters);
+      ct := FTypes[StrToInt(copy(GRLW(s), 2, MaxInt))];
+      if ct = nil then raise Exception.Create(RPS_InvalidParameter);
+      pvar := CreateHeapVariant(ct);
+      ParamList.Add(pvar);
+
+      if not VariantToPIFVariant(Self, Params[i], pvar) then raise Exception.Create(RPS_InvalidParameter);
+
+      Dec(i);
+    end;
+    if I > -1 then raise Exception.Create(RPS_TooManyParameters);
+    if res <> '-1' then
+    begin
+      pvar := CreateHeapVariant(FTypes[StrToInt(res)]);
+      ParamList.Add(pvar);
+    end else
+      pvar := nil;
+
+    RunProc(ParamList, ProcNo);
+
+    RaiseCurrentException;
+
+    if pvar <> nil then
+    begin
+      PIFVariantToVariant(PVar, Result);
+    end else
+      Result := Null;
+  finally
+    FreePIFVariantList(ParamList);
+  end;
+end;
+function TPSExec.RunProcPVar(var Params: array of Variant; const Procno: Cardinal): Variant;
+var
+  ParamList: TPSList;
+  ct: PIFTypeRec;
+  pvar: PPSVariant;
+  res, s: tbtString;
+  Proc: TPSInternalProcRec;
+  i: Longint;
+begin
+  if ProcNo >= FProcs.Count then raise Exception.Create(RPS_UnknownProcedure);
+  Proc := GetProcNo(ProcNo) as TPSInternalProcRec;
+  ParamList := TPSList.Create;
+  try
+    s := Proc.ExportDecl;
+    res := grfw(s);
+    i := High(Params);
+    while s <> '' do
+    begin
+      if i < 0 then raise Exception.Create(RPS_NotEnoughParameters);
+      ct := FTypes[StrToInt(copy(GRLW(s), 2, MaxInt))];
+      if ct = nil then raise Exception.Create(RPS_InvalidParameter);
+      pvar := CreateHeapVariant(ct);
+      ParamList.Add(pvar);
+
+      if not VariantToPIFVariant(Self, Params[i], pvar) then raise Exception.Create(RPS_InvalidParameter);
+
+      Dec(i);
+    end;
+    if I > -1 then raise Exception.Create(RPS_TooManyParameters);
+    if res <> '-1' then
+    begin
+      pvar := CreateHeapVariant(FTypes[StrToInt(res)]);
+      ParamList.Add(pvar);
+    end else
+      pvar := nil;
+
+    RunProc(ParamList, ProcNo);
+
+    RaiseCurrentException;
+
+    for i := 0 to Length(Params) - 1 do
+    PIFVariantToVariant(ParamList[i],
+                        Params[(Length(Params) - 1) - i]);
+
+    if pvar <> nil then
+    begin
+      PIFVariantToVariant(PVar, Result);
+    end else
+      Result := Null;
+  finally
+    FreePIFVariantList(ParamList);
+  end;
+end;
+
+function TPSExec.RunProcPN(const Params: array of Variant; const ProcName: tbtString): Variant;
+var
+  ProcNo: Cardinal;
+begin
+  ProcNo := GetProc(ProcName);
+  if ProcNo = InvalidVal then
+    raise Exception.Create(RPS_UnknownProcedure);
+  Result := RunProcP(Params, ProcNo);
+end;
+
+
+function TPSExec.RunProc(Params: TPSList; ProcNo: Cardinal): Boolean;
+var
+  I, I2: Integer;
+  vnew, Vd: PIfVariant;
+  Cp: TPSInternalProcRec;
+  oldStatus: TPSStatus;
+  tmp: TObject;
+begin
+  if FStatus <> isNotLoaded then begin
+    if ProcNo >= FProcs.Count then begin
+      CMD_Err(erOutOfProcRange);
+      Result := False;
+      exit;
+    end;
+    if Params <> nil then
+    begin
+      for I := 0 to Params.Count - 1 do
+      begin
+        vd := Params[I];
+        if vd = nil then
+        begin
+          Result := False;
+          exit;
+        end;
+        vnew := FStack.PushType(FindType2(btPointer));
+        if vd.FType.BaseType = btPointer then
+        begin
+          PPSVariantPointer(vnew).DestType := PPSVariantPointer(vd).DestType;
+          PPSVariantPointer(vnew).DataDest := PPSVariantPointer(vd).DataDest;
+        end else begin
+          PPSVariantPointer(vnew).DestType := vd.FType;
+          PPSVariantPointer(vnew).DataDest := @PPSVariantData(vd).Data;
+        end;
+      end;
+    end;
+    I := FStack.Count;
+    Cp := FCurrProc;
+    oldStatus := FStatus;
+    if TPSProcRec(FProcs.Data^[ProcNo]).ClassType <> TPSExternalProcRec then
+    begin
+      vd := FStack.PushType(FReturnAddressType);
+      PPSVariantReturnAddress(vd).Addr.ProcNo := nil;
+      PPSVariantReturnAddress(vd).Addr.Position := FCurrentPosition;
+      PPSVariantReturnAddress(vd).Addr.StackBase := FCurrStackBase;
+      FCurrStackBase := FStack.Count - 1;
+      FCurrProc := FProcs.Data^[ProcNo];
+      FData := FCurrProc.Data;
+      FDataLength := FCurrProc.Length;
+      FCurrentPosition := 0;
+      FStatus := isPaused;
+      Result := RunScript;
+    end else
+    begin
+      try
+        Result := TPSExternalProcRec(FProcs.Data^[ProcNo]).ProcPtr(Self, TPSExternalProcRec(FProcs.Data^[ProcNo]), FGlobalVars, FStack);
+        if not Result then
+        begin
+          if ExEx = erNoError then
+            CMD_Err(erCouldNotCallProc);
+        end;
+      except
+        {$IFDEF DELPHI6UP}
+        Tmp := AcquireExceptionObject;
+        {$ELSE}
+        if RaiseList <> nil then
+        begin
+          Tmp := Exception(PRaiseFrame(RaiseList)^.ExceptObject);
+          PRaiseFrame(RaiseList)^.ExceptObject := nil;
+        end else
+          Tmp := nil;
+        {$ENDIF}
+        if Tmp <> nil then
+        begin
+          if Tmp is EPSException then
+          begin
+            Result := False;
+            ExceptionProc(EPSException(tmp).ProcNo, EPSException(tmp).ProcPos, erCustomError, tbtString(EPSException(tmp).Message), nil);
+            exit;
+          end else
+          if Tmp is EDivByZero then
+          begin
+            Result := False;
+            CMD_Err3(erDivideByZero, '', Tmp);
+            Exit;
+          end;
+          if Tmp is EZeroDivide then
+          begin
+            Result := False;
+            CMD_Err3(erDivideByZero, '', Tmp);
+            Exit;
+          end;
+          if Tmp is EMathError then
+          begin
+            Result := False;
+            CMD_Err3(erMathError, '', Tmp);
+            Exit;
+          end;
+        end;
+        if (Tmp <> nil) and (Tmp is Exception) then
+          CMD_Err3(erException, tbtString(Exception(Tmp).Message), Tmp) else
+          CMD_Err3(erException, '', Tmp);
+        Result := false;
+        exit;
+      end;
+    end;
+    if Cardinal(FStack.Count) > Cardinal(I) then
+    begin
+      vd := FStack[I];
+      if (vd <> nil) and (vd.FType = FReturnAddressType) then
+      begin
+        for i2 := FStack.Count - 1 downto I + 1 do
+          FStack.Pop;
+        FCurrentPosition := PPSVariantReturnAddress(vd).Addr.Position;
+        FCurrStackBase := PPSVariantReturnAddress(vd).Addr.StackBase;
+        FStack.Pop;
+      end;
+    end;
+    if Params <> nil then
+    begin
+      for I := Params.Count - 1 downto 0 do
+      begin
+        if FStack.Count = 0 then
+          Break
+        else
+          FStack.Pop;
+      end;
+    end;
+    FStatus := oldStatus;
+    FCurrProc := Cp;
+    if FCurrProc <> nil then
+    begin
+      FData := FCurrProc.Data;
+      FDataLength := FCurrProc.Length;
+    end;
+  end else begin
+    Result := False;
+  end;
+end;
+
+
+function TPSExec.FindType2(BaseType: TPSBaseType): PIFTypeRec;
+var
+  l: Cardinal;
+begin
+  FindType2 := FindType(0, BaseType, l);
+
+end;
+
+function TPSExec.FindType(StartAt: Cardinal; BaseType: TPSBaseType; var l: Cardinal): PIFTypeRec;
+var
+  I: Integer;
+  n: PIFTypeRec;
+begin
+  for I := StartAt to FTypes.Count - 1 do begin
+    n := FTypes[I];
+    if n.BaseType = BaseType then begin
+      l := I;
+      Result := n;
+      exit;
+    end;
+  end;
+  Result := nil;
+end;
+
+function TPSExec.GetTypeNo(l: Cardinal): PIFTypeRec;
+begin
+  Result := FTypes[l];
+end;
+
+function TPSExec.GetProc(const Name: tbtString): Cardinal;
+var
+  MM,
+    I: Longint;
+  n: PIFProcRec;
+  s: tbtString;
+begin
+  s := FastUpperCase(name);
+  MM := MakeHash(s);
+  for I := FProcs.Count - 1 downto 0 do begin
+    n := FProcs.Data^[I];
+    if (n.ClassType = TPSInternalProcRec) and (TPSInternalProcRec(n).ExportNameHash = MM) and (TPSInternalProcRec(n).ExportName = s) then begin
+      Result := I;
+      exit;
+    end else if (n.ClassType = TPSExternalProcRec) and (TPSExternalProcRec(n).Name = s) then
+    begin
+      Result := I;
+      exit;
+    end;
+  end;
+  Result := InvalidVal;
+end;
+
+function TPSExec.GetType(const Name: tbtString): Cardinal;
+var
+  MM,
+    I: Longint;
+  n: PIFTypeRec;
+  s: tbtString;
+begin
+  s := FastUpperCase(name);
+  MM := MakeHash(s);
+  for I := 0 to FTypes.Count - 1 do begin
+    n := FTypes.Data^[I];
+    if (Length(n.ExportName) <> 0) and (n.ExportNameHash = MM) and (n.ExportName = s) then begin
+      Result := I;
+      exit;
+    end;
+  end;
+  Result := InvalidVal;
+end;
+
+
+procedure TPSExec.AddResource(Proc, P: Pointer);
+var
+  Temp: PPSResource;
+begin
+  New(Temp);
+  Temp^.Proc := Proc;
+  Temp^.P := p;
+  FResources.Add(temp);
+end;
+
+procedure TPSExec.DeleteResource(P: Pointer);
+var
+  i: Longint;
+begin
+  for i := Longint(FResources.Count) -1 downto 0 do
+  begin
+    if PPSResource(FResources[I])^.P = P then
+    begin
+      FResources.Delete(I);
+      exit;
+    end;
+  end;
+end;
+
+function TPSExec.FindProcResource(Proc: Pointer): Pointer;
+var
+  I: Longint;
+  temp: PPSResource;
+begin
+  for i := Longint(FResources.Count) -1 downto 0 do
+  begin
+    temp := FResources[I];
+    if temp^.Proc = proc then
+    begin
+      Result := Temp^.P;
+      exit;
+    end;
+  end;
+  Result := nil;
+end;
+
+function TPSExec.IsValidResource(Proc, P: Pointer): Boolean;
+var
+  i: Longint;
+  temp: PPSResource;
+begin
+  for i := 0 to Longint(FResources.Count) -1 do
+  begin
+    temp := FResources[i];
+    if temp^.p = p then begin
+      result := temp^.Proc = Proc;
+      exit;
+    end;
+  end;
+  result := false;
+end;
+
+function TPSExec.FindProcResource2(Proc: Pointer;
+  var StartAt: Longint): Pointer;
+var
+  I: Longint;
+  temp: PPSResource;
+begin
+  if StartAt > longint(FResources.Count) -1 then
+    StartAt := longint(FResources.Count) -1;
+  for i := StartAt downto 0 do
+  begin
+    temp := FResources[I];
+    if temp^.Proc = proc then
+    begin
+      Result := Temp^.P;
+      StartAt := i -1;
+      exit;
+    end;
+  end;
+  StartAt := -1;
+  Result := nil;
+end;
+
+procedure TPSExec.RunLine;
+begin
+  if @FOnRunLine <> nil then
+    FOnRunLine(Self);
+end;
+
+procedure TPSExec.CMD_Err3(EC: TPSError; const Param: tbtString; ExObject: TObject);
+var
+  l: Longint;
+  C: Cardinal;
+begin
+  C := InvalidVal;
+  for l := FProcs.Count - 1 downto 0 do begin
+    if FProcs.Data^[l] = FCurrProc then begin
+      C := l;
+      break;
+    end;
+  end;
+  if @FOnException <> nil then
+    FOnException(Self, Ec, Param, ExObject, C, FCurrentPosition);
+  ExceptionProc(C, FCurrentPosition, EC, Param, ExObject);
+end;
+
+procedure TPSExec.AddSpecialProcImport(const FName: tbtString;
+  P: TPSOnSpecialProcImport; Tag: Pointer);
+var
+  N: PSpecialProc;
+begin
+  New(n);
+  n^.P := P;
+  N^.Name := FName;
+  n^.namehash := MakeHash(N^.Name);
+  n^.Tag := Tag;
+  FSpecialProcList.Add(n);
+end;
+
+function TPSExec.GetVar(const Name: tbtString): Cardinal;
+var
+  l: Longint;
+  h: longint;
+  s: tbtString;
+  p: PPSExportedVar;
+begin
+  s := FastUpperCase(name);
+  h := MakeHash(s);
+  for l := FExportedVars.Count - 1 downto 0 do
+  begin
+    p := FexportedVars.Data^[L];
+    if (p^.FNameHash = h) and(p^.FName=s) then
+    begin
+      Result := L;
+      exit;
+    end;
+  end;
+  Result := InvalidVal;
+end;
+
+function TPSExec.GetVarNo(C: Cardinal): PIFVariant;
+begin
+  Result := FGlobalVars[c];
+end;
+
+function TPSExec.GetVar2(const Name: tbtString): PIFVariant;
+begin
+  Result := GetVarNo(GetVar(Name));
+end;
+
+function TPSExec.GetProcNo(C: Cardinal): PIFProcRec;
+begin
+  Result := FProcs[c];
+end;
+
+function TPSExec.DoIntegerNot(Dta: Pointer; aType: TPSTypeRec): Boolean;
+begin
+  case aType.BaseType of
+    btU8: tbtu8(dta^) := not tbtu8(dta^);
+    btU16: tbtu16(dta^) := not tbtu16(dta^);
+    btU32: tbtu32(dta^) := not tbtu32(dta^);
+    btS8: tbts8(dta^) := not tbts8(dta^);
+    btS16: tbts16(dta^) := not tbts16(dta^);
+    btS32: tbts32(dta^) := not tbts32(dta^);
+    {$IFNDEF PS_NOINT64}
+    bts64: tbts64(dta^) := not tbts64(dta^);
+    {$ENDIF}
+    btVariant:
+      begin
+        try
+          Variant(dta^) := not Variant(dta^);
+        except
+          CMD_Err(erTypeMismatch);
+          Result := False;
+          exit;
+        end;
+      end;
+  else
+    begin
+      CMD_Err(erTypeMismatch);
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+
+type
+  TMyRunLine = procedure(Self: TPSExec);
+  TPSRunLine = procedure of object;
+
+function GetRunLine(FOnRunLine: TPSOnLineEvent; meth: TPSRunLine): TMyRunLine;
+begin
+  if (TMethod(Meth).Code = @TPSExec.RunLine) and (@FOnRunLine = nil) then
+    Result := nil
+  else
+    Result := TMethod(Meth).Code;
+end;
+
+function TPSExec.RunScript: Boolean;
+var
+  CalcType: Cardinal;
+  vd, vs, v3: TPSResultData;
+  vtemp: PIFVariant;
+  p: Cardinal;
+  P2: Longint;
+  u: PIFProcRec;
+  Cmd: Cardinal;
+  I: Longint;
+  pp: TPSExceptionHandler;
+  FExitPoint: Cardinal;
+  FOldStatus: TPSStatus;
+  Tmp: TObject;
+  btemp: Boolean;
+  CallRunline: TMyRunLine;
+begin
+  FExitPoint := InvalidVal;
+  if FStatus = isLoaded then
+  begin
+    for i := FExceptionStack.Count -1 downto 0 do
+    begin
+      pp := FExceptionStack.Data[i];
+      pp.Free;
+    end;
+    FExceptionStack.Clear;
+  end;
+  ExceptionProc(InvalidVal, InvalidVal, erNoError, '', nil);
+  RunScript := True;
+  FOldStatus := FStatus;
+  case FStatus of
+    isLoaded: begin
+        if FMainProc = InvalidVal then
+        begin
+          RunScript := False;
+          exit;
+        end;
+        FStatus := isRunning;
+        FCurrProc := FProcs.Data^[FMainProc];
+        if FCurrProc.ClassType = TPSExternalProcRec then begin
+          CMD_Err(erNoMainProc);
+          FStatus := isLoaded;
+          exit;
+        end;
+        FData := FCurrProc.Data;
+        FDataLength := FCurrProc.Length;
+        FCurrStackBase := InvalidVal;
+        FCurrentPosition := 0;
+      end;
+    isPaused: begin
+        FStatus := isRunning;
+      end;
+  else begin
+      RunScript := False;
+      exit;
+    end;
+  end;
+  CallRunLine := GetRunLine(FOnRunLine, Self.RunLine);
+  repeat
+    FStatus := isRunning;
+//    Cmd := InvalidVal;
+    while FStatus = isRunning do
+    begin
+      if @CallRunLine <> nil then CallRunLine(Self);
+      if FCurrentPosition >= FDataLength then
+      begin
+        CMD_Err(erOutOfRange); // Error
+        break;
+      end;
+//      if cmd <> invalidval then ProfilerExitProc(Cmd+1);
+      cmd := FData^[FCurrentPosition];
+//      ProfilerEnterProc(Cmd+1);
+      Inc(FCurrentPosition);
+        case Cmd of
+          CM_A:
+            begin
+              if not ReadVariable(vd, True) then
+                break;
+              if vd.FreeType <> vtNone then
+              begin
+                if vd.aType.BaseType in NeedFinalization then
+                  FinalizeVariant(vd.P, vd.aType);
+                p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                Dec(FTempVars.FCount);
+                {$IFNDEF PS_NOSMARTLIST}
+                Inc(FTempVars.FCheckCount);
+                if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                {$ENDIF}
+                FTempVars.FLength := P;
+                if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              if not ReadVariable(vs, True) then
+                Break;
+              // nx change end
+{              if (vd.aType.BaseType = btClass) and (vs.aType.BaseType in [btS32]) then
+                DWord(vd.P^):=Dword(vs.P^)
+              else
+              if (vd.aType.BaseType in [btS32]) and (vs.aType.BaseType = btClass) then
+                DWord(vd.P^):=Dword(vs.P^)
+              else}
+              // nx change start
+              if not SetVariantValue(vd.P, vs.P, vd.aType, vs.aType) then
+              begin
+                if vs.FreeType <> vtNone then
+                begin
+                  if vs.aType.BaseType in NeedFinalization then
+                  FinalizeVariant(vs.P, vs.aType);
+                  p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                  Dec(FTempVars.FCount);
+                  {$IFNDEF PS_NOSMARTLIST}
+                  Inc(FTempVars.FCheckCount);
+                  if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                  {$ENDIF}
+                  FTempVars.FLength := P;
+                  if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+                end;
+                Break;
+              end;
+              if vs.FreeType <> vtNone then
+              begin
+                if vs.aType.BaseType in NeedFinalization then
+                FinalizeVariant(vs.P, vs.aType);
+                p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                Dec(FTempVars.FCount);
+                {$IFNDEF PS_NOSMARTLIST}
+                Inc(FTempVars.FCheckCount);
+                if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                {$ENDIF}
+                FTempVars.FLength := P;
+                if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+              end;
+            end;
+          CM_CA:
+            begin
+              if FCurrentPosition >= FDataLength then
+              begin
+                CMD_Err(erOutOfRange); // Error
+                break;
+              end;
+              calctype := FData^[FCurrentPosition];
+              Inc(FCurrentPosition);
+              if not ReadVariable(vd, True) then
+                break;
+              if vd.FreeType <> vtNone then
+              begin
+                if vd.aType.BaseType in NeedFinalization then
+                FinalizeVariant(vd.P, vd.aType);
+                p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                Dec(FTempVars.FCount);
+                {$IFNDEF PS_NOSMARTLIST}
+                Inc(FTempVars.FCheckCount);
+                if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                {$ENDIF}
+                FTempVars.FLength := P;
+                if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              if not ReadVariable(vs, True) then
+                Break;
+              if not DoCalc(vd.P, vs.p, vd.aType, vs.aType, CalcType) then
+              begin
+                if vs.FreeType <> vtNone then
+                begin
+                  if vs.aType.BaseType in NeedFinalization then
+                  FinalizeVariant(vs.P, vs.aType);
+                  p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                  Dec(FTempVars.FCount);
+                  {$IFNDEF PS_NOSMARTLIST}
+                  Inc(FTempVars.FCheckCount);
+                  if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                  {$ENDIF}
+                  FTempVars.FLength := P;
+                  if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+                end;
+                Break;
+              end;
+              if vs.FreeType <> vtNone then
+              begin
+                if vs.aType.BaseType in NeedFinalization then
+                FinalizeVariant(vs.P, vs.aType);
+                p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                Dec(FTempVars.FCount);
+                {$IFNDEF PS_NOSMARTLIST}
+                Inc(FTempVars.FCheckCount);
+                if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                {$ENDIF}
+                FTempVars.FLength := P;
+                if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+              end;
+            end;
+          CM_P:
+            begin
+              if not ReadVariable(vs, True) then
+                Break;
+              vtemp := FStack.PushType(vs.aType);
+              vd.P := Pointer(IPointer(vtemp)+PointerSize);
+              vd.aType := Pointer(vtemp^);
+              vd.FreeType := vtNone;
+              if not SetVariantValue(Vd.P, vs.P, vd.aType, vs.aType) then
+              begin
+                if vs.FreeType <> vtnone then
+                begin
+                  if vs.aType.BaseType in NeedFinalization then
+                    FinalizeVariant(vs.P, vs.aType);
+                  p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                  Dec(FTempVars.FCount);
+                  {$IFNDEF PS_NOSMARTLIST}
+                  Inc(FTempVars.FCheckCount);
+                  if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                  {$ENDIF}
+                  FTempVars.FLength := P;
+                  if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+                end;
+                break;
+              end;
+              if vs.FreeType <> vtnone then
+              begin
+                if vs.aType.BaseType in NeedFinalization then
+                  FinalizeVariant(vs.P, vs.aType);
+                p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                Dec(FTempVars.FCount);
+                {$IFNDEF PS_NOSMARTLIST}
+                Inc(FTempVars.FCheckCount);
+                if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                {$ENDIF}
+                FTempVars.FLength := P;
+                if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+              end;
+            end;
+          CM_PV:
+            begin
+              if not ReadVariable(vs, True) then
+                Break;
+              if vs.FreeType <> vtnone then
+              begin
+                FTempVars.Pop;
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              vtemp := FStack.PushType(FindType2(btPointer));
+              if vs.aType.BaseType = btPointer then
+              begin
+                PPSVariantPointer(vtemp).DataDest := Pointer(vs.p^);
+                PPSVariantPointer(vtemp).DestType := Pointer(Pointer(IPointer(vs.P)+PointerSize)^);
+                PPSVariantPointer(vtemp).FreeIt := False;
+              end
+              else
+              begin
+                PPSVariantPointer(vtemp).DataDest := vs.p;
+                PPSVariantPointer(vtemp).DestType := vs.aType;
+                PPSVariantPointer(vtemp).FreeIt := False;
+              end;
+            end;
+          CM_PO: begin
+              if FStack.Count = 0 then
+              begin
+                CMD_Err(erOutOfStackRange);
+                break;
+              end;
+              vtemp := FStack.Data^[FStack.Count -1];
+              if (vtemp = nil) or (vtemp.FType.BaseType = btReturnAddress) then
+              begin
+                CMD_Err(erOutOfStackRange);
+                break;
+              end;
+              FStack.Pop;
+(*              Dec(FStack.FCount);
+              {$IFNDEF PS_NOSMARTLIST}
+              Inc(FStack.FCheckCount);
+              if FStack.FCheckCount > FMaxCheckCount then FStack.Recreate;
+              {$ENDIF}
+              FStack.FLength := Longint(IPointer(vtemp) - IPointer(FStack.DataPtr));
+              if TPSTypeRec(vtemp^).BaseType in NeedFinalization then
+                FinalizeVariant(Pointer(IPointer(vtemp)+PointerSize), Pointer(vtemp^));
+              if ((FStack.FCapacity - FStack.FLength) shr 12) > 2 then FStack.AdjustLength;*)
+            end;
+          Cm_C: begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                Break;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              p := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              p := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              if p >= FProcs.Count then begin
+                CMD_Err(erOutOfProcRange);
+                break;
+              end;
+              u := FProcs.Data^[p];
+              if u.ClassType = TPSExternalProcRec then begin
+                try
+                  if not TPSExternalProcRec(u).ProcPtr(Self, TPSExternalProcRec(u), FGlobalVars, FStack) then begin
+                    if ExEx = erNoError then
+                      CMD_Err(erCouldNotCallProc);
+                    Break;
+                  end;
+                except
+                  {$IFDEF DELPHI6UP}
+                  Tmp := AcquireExceptionObject;
+                  {$ELSE}
+                  if RaiseList <> nil then
+                  begin
+                    Tmp := Exception(PRaiseFrame(RaiseList)^.ExceptObject);
+                    PRaiseFrame(RaiseList)^.ExceptObject := nil;
+                  end else
+                    Tmp := nil;
+                  {$ENDIF}
+                  if Tmp <> nil then
+                  begin
+                    if Tmp is EPSException then
+                    begin
+                      ExceptionProc(EPSException(tmp).ProcNo, EPSException(tmp).ProcPos, erCustomError, tbtString(EPSException(tmp).Message), nil);
+                      Break;
+                    end else
+                    if Tmp is EDivByZero then
+                    begin
+                      CMD_Err3(erDivideByZero, '', Tmp);
+                      Break;
+                    end;
+                    if Tmp is EZeroDivide then
+                    begin
+                      CMD_Err3(erDivideByZero, '', Tmp);
+                      Break;
+                    end;
+                    if Tmp is EMathError then
+                    begin
+                      CMD_Err3(erMathError, '', Tmp);
+                      Break;
+                    end;
+                  end;
+                  if (Tmp <> nil) and (Tmp is Exception) then
+                    CMD_Err3(erException, tbtString(Exception(Tmp).Message), Tmp) else
+                    CMD_Err3(erException, '', Tmp);
+                  Break;
+                end;
+              end
+              else begin
+                Vtemp := Fstack.PushType(FReturnAddressType);
+                vd.P := Pointer(IPointer(VTemp)+PointerSize);
+                vd.aType := pointer(vtemp^);
+                vd.FreeType := vtNone;
+                PPSVariantReturnAddress(vtemp).Addr.ProcNo := FCurrProc;
+                PPSVariantReturnAddress(vtemp).Addr.Position := FCurrentPosition;
+                PPSVariantReturnAddress(vtemp).Addr.StackBase := FCurrStackBase;
+
+                FCurrStackBase := FStack.Count - 1;
+                FCurrProc := TPSInternalProcRec(u);
+                FData := FCurrProc.Data;
+                FDataLength := FCurrProc.Length;
+                FCurrentPosition := 0;
+              end;
+            end;
+          CM_PG:
+            begin
+              FStack.Pop;
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                Break;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              p := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              p := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              FCurrentPosition := FCurrentPosition + p;
+            end;
+          CM_P2G:
+            begin
+              FStack.Pop;
+              FStack.Pop;
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                Break;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              p := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              p := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              FCurrentPosition := FCurrentPosition + p;
+            end;
+          Cm_G:
+            begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                Break;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              p := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              p := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              FCurrentPosition := FCurrentPosition + p;
+            end;
+          Cm_CG:
+            begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                Break;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              p := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              p := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              btemp := true;
+              if not ReadVariable(vs, btemp) then
+                Break;
+              case Vs.aType.BaseType of
+                btU8: btemp := tbtu8(vs.p^) <> 0;
+                btS8: btemp := tbts8(vs.p^) <> 0;
+                btU16: btemp := tbtu16(vs.p^) <> 0;
+                btS16: btemp := tbts16(vs.p^) <> 0;
+                btU32: btemp := tbtu32(vs.p^) <> 0;
+                btS32: btemp := tbts32(vs.p^) <> 0;
+              else begin
+                  CMD_Err(erInvalidType);
+                  if vs.FreeType <> vtNone then
+                    FTempVars.Pop;
+                  break;
+                end;
+              end;
+              if vs.FreeType <> vtNone then
+                FTempVars.Pop;
+              if btemp then
+                FCurrentPosition := FCurrentPosition + p;
+            end;
+          Cm_CNG:
+            begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                Break;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              p := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              p := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              btemp := true;
+              if not ReadVariable(vs, BTemp) then
+                Break;
+              case Vs.aType.BaseType of
+                btU8: btemp := tbtu8(vs.p^) = 0;
+                btS8: btemp := tbts8(vs.p^) = 0;
+                btU16: btemp := tbtu16(vs.p^) = 0;
+                btS16: btemp := tbts16(vs.p^) = 0;
+                btU32: btemp := tbtu32(vs.p^) = 0;
+                btS32: btemp := tbts32(vs.p^) = 0;
+              else begin
+                  CMD_Err(erInvalidType);
+                  if vs.FreeType <> vtNone then
+                    FTempVars.Pop;
+                  break;
+                end;
+              end;
+              if vs.FreeType <> vtNone then
+                FTempVars.Pop;
+              if btemp then
+                FCurrentPosition := FCurrentPosition + p;
+            end;
+          Cm_R: begin
+              FExitPoint := FCurrentPosition -1;
+              P2 := 0;
+              if FExceptionStack.Count > 0 then
+              begin
+                pp := FExceptionStack.Data[FExceptionStack.Count -1];
+                while (pp.BasePtr = FCurrStackBase) or ((pp.BasePtr > FCurrStackBase) and (pp.BasePtr <> InvalidVal)) do
+                begin
+                  if pp.StackSize < Cardinal(FStack.Count) then
+                  begin
+                    for p := Longint(FStack.count) -1 downto Longint(pp.StackSize) do
+                      FStack.Pop
+                  end;
+                  FCurrStackBase := pp.BasePtr;
+                  if pp.FinallyOffset <> InvalidVal then
+                  begin
+                    FCurrentPosition := pp.FinallyOffset;
+                    pp.FinallyOffset := InvalidVal;
+                    p2 := 1;
+                    break;
+                  end else if pp.Finally2Offset <> InvalidVal then
+                  begin
+                    FCurrentPosition := pp.Finally2Offset;
+                    pp.Finally2Offset := InvalidVal;
+                    p2 := 1;
+                    break;
+                  end else
+                  begin
+                    pp.Free;
+                    FExceptionStack.DeleteLast;
+                    if FExceptionStack.Count = 0 then break;
+                    pp := FExceptionStack.Data[FExceptionStack.Count -1];
+                  end;
+                end;
+              end;
+              if p2 = 0 then
+              begin
+                FExitPoint := InvalidVal;
+                if FCurrStackBase = InvalidVal then
+                begin
+                  FStatus := FOldStatus;
+                  break;
+                end;
+                for P2 := FStack.Count - 1 downto FCurrStackBase + 1 do
+                  FStack.Pop;
+                if FCurrStackBase >= FStack.Count  then
+                begin
+                  FStatus := FOldStatus;
+                  break;
+                end;
+                vtemp := FStack.Data[FCurrStackBase];
+                FCurrProc := PPSVariantReturnAddress(vtemp).Addr.ProcNo;
+                FCurrentPosition := PPSVariantReturnAddress(vtemp).Addr.Position;
+                FCurrStackBase := PPSVariantReturnAddress(vtemp).Addr.StackBase;
+                FStack.Pop;
+                if FCurrProc = nil then begin
+                  FStatus := FOldStatus;
+                  break;
+                end;
+                FData := FCurrProc.Data;
+                FDataLength := FCurrProc.Length;
+              end;
+            end;
+          Cm_Pt: begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                Break;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              p := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              p := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              if p > FTypes.Count then
+              begin
+                CMD_Err(erInvalidType);
+                break;
+              end;
+              FStack.PushType(FTypes.Data^[p]);
+            end;
+          cm_bn:
+            begin
+              if not ReadVariable(vd, True) then
+                Break;
+              if vd.FreeType <> vtNone then
+                FTempVars.Pop;
+              if not DoBooleanNot(Vd.P, vd.aType) then
+                break;
+            end;
+          cm_in:
+            begin
+              if not ReadVariable(vd, True) then
+                Break;
+              if vd.FreeType <> vtNone then
+                FTempVars.Pop;
+              if not DoIntegerNot(Vd.P, vd.aType) then
+                break;
+            end;
+          cm_vm:
+            begin
+              if not ReadVariable(vd, True) then
+                Break;
+              if vd.FreeType <> vtNone then
+                FTempVars.Pop;
+              if not DoMinus(Vd.P, vd.aType) then
+                break;
+            end;
+          cm_sf:
+            begin
+              if not ReadVariable(vd, True) then
+                Break;
+              if FCurrentPosition >= FDataLength then
+              begin
+                CMD_Err(erOutOfRange); // Error
+                if vd.FreeType <> vtNone then
+                  FTempVars.Pop;
+                break;
+              end;
+              p := FData^[FCurrentPosition];
+              Inc(FCurrentPosition);
+              case Vd.aType.BaseType of
+                btU8: FJumpFlag := tbtu8(Vd.p^) <> 0;
+                btS8: FJumpFlag := tbts8(Vd.p^) <> 0;
+                btU16: FJumpFlag := tbtu16(Vd.p^) <> 0;
+                btS16: FJumpFlag := tbts16(Vd.p^) <> 0;
+                btU32: FJumpFlag := tbtu32(Vd.p^) <> 0;
+                btS32: FJumpFlag := tbts32(Vd.p^) <> 0;
+              else begin
+                  CMD_Err(erInvalidType);
+                  if vd.FreeType <> vtNone then
+                    FTempVars.Pop;
+                  break;
+                end;
+              end;
+              if p <> 0 then
+                FJumpFlag := not FJumpFlag;
+              if vd.FreeType <> vtNone then
+                FTempVars.Pop;
+            end;
+          cm_fg:
+            begin
+              if FCurrentPosition + 3 >= FDataLength then
+              begin
+                Cmd_Err(erOutOfRange);
+                Break;
+              end;
+	      {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
+              p := unaligned(Cardinal((@FData^[FCurrentPosition])^));
+	      {$else}
+              p := Cardinal((@FData^[FCurrentPosition])^);
+	      {$endif}
+              Inc(FCurrentPosition, 4);
+              if FJumpFlag then
+                FCurrentPosition := FCurrentPosition + p;
+            end;
+          cm_puexh:
+            begin
+              pp := TPSExceptionHandler.Create;
+              pp.CurrProc := FCurrProc;
+              pp.BasePtr :=FCurrStackBase;
+              pp.StackSize := FStack.Count;
+              if not ReadLong(pp.FinallyOffset) then begin
+                CMD_Err(erOutOfRange);
+                pp.Free;
+                Break;
+              end;
+              if not ReadLong(pp.ExceptOffset) then begin
+                CMD_Err(erOutOfRange);
+                pp.Free;
+                Break;
+              end;
+              if not ReadLong(pp.Finally2Offset) then begin
+                CMD_Err(erOutOfRange);
+                pp.Free;
+                Break;
+              end;
+              if not ReadLong(pp.EndOfBlock) then begin
+                CMD_Err(erOutOfRange);
+                pp.Free;
+                Break;
+              end;
+              if pp.FinallyOffset <> InvalidVal then
+                pp.FinallyOffset := pp.FinallyOffset + FCurrentPosition;
+              if pp.ExceptOffset <> InvalidVal then
+                pp.ExceptOffset := pp.ExceptOffset + FCurrentPosition;
+              if pp.Finally2Offset <> InvalidVal then
+                pp.Finally2Offset := pp.Finally2Offset + FCurrentPosition;
+              if pp.EndOfBlock <> InvalidVal then
+                pp.EndOfBlock := pp.EndOfBlock + FCurrentPosition;
+              if ((pp.FinallyOffset <> InvalidVal) and (pp.FinallyOffset >= FDataLength)) or
+                ((pp.ExceptOffset <> InvalidVal) and (pp.ExceptOffset >= FDataLength)) or
+                ((pp.Finally2Offset <> InvalidVal) and (pp.Finally2Offset >= FDataLength)) or
+                ((pp.EndOfBlock <> InvalidVal) and (pp.EndOfBlock >= FDataLength)) then
+                begin
+                  CMD_Err(ErOutOfRange);
+                  pp.Free;
+                  Break;
+                end;
+                FExceptionStack.Add(pp);
+            end;
+          cm_poexh:
+            begin
+              if FCurrentPosition >= FDataLength then
+              begin
+                CMD_Err(erOutOfRange); // Error
+                break;
+              end;
+              p := FData^[FCurrentPosition];
+              Inc(FCurrentPosition);
+              case p of
+                2:
+                  begin
+                    if (FExceptionStack.Count = 0) then
+                    begin
+                      cmd_err(ErOutOfRange);
+                      Break;
+                    end;
+                    pp := FExceptionStack.Data^[FExceptionStack.Count -1];
+                    if pp = nil then begin
+                      cmd_err(ErOutOfRange);
+                      Break;
+                    end;
+                    pp.ExceptOffset := InvalidVal;
+                    if pp.Finally2Offset <> InvalidVal then
+                    begin
+                      FCurrentPosition := pp.Finally2Offset;
+                      pp.Finally2Offset := InvalidVal;
+                    end else begin
+                      p := pp.EndOfBlock;
+                      pp.Free;
+                      FExceptionStack.DeleteLast;
+                      if FExitPoint <> InvalidVal then
+                      begin
+                        FCurrentPosition := FExitPoint;
+                      end else begin
+                        FCurrentPosition := p;
+                      end;
+                    end;
+                  end;
+                0:
+                  begin
+                    pp := FExceptionStack.Data^[FExceptionStack.Count -1];
+                    if pp = nil then begin
+                      cmd_err(ErOutOfRange);
+                      Break;
+                    end;
+                    if pp.FinallyOffset <> InvalidVal then
+                    begin
+                      FCurrentPosition := pp.FinallyOffset;
+                      pp.FinallyOffset := InvalidVal;
+                    end else if pp.Finally2Offset <> InvalidVal then
+                    begin
+                       FCurrentPosition := pp.Finally2Offset;
+                       pp.ExceptOffset := InvalidVal;
+                    end else begin
+                      p := pp.EndOfBlock;
+                      pp.Free;
+                      FExceptionStack.DeleteLast;
+                      if ExEx <> eNoError then
+                      begin
+                        Tmp := ExObject;
+                        ExObject := nil;
+                        ExceptionProc(ExProc, ExPos, ExEx, ExParam, Tmp);
+                      end else
+                      if FExitPoint <> InvalidVal then
+                      begin
+                        FCurrentPosition := FExitPoint;
+                      end else begin
+                        FCurrentPosition := p;
+                      end;
+                    end;
+                  end;
+                1:
+                  begin
+                    pp := FExceptionStack.Data^[FExceptionStack.Count -1];
+                    if pp = nil then begin
+                      cmd_err(ErOutOfRange);
+                      Break;
+                    end;
+                    if (ExEx <> ENoError) and (pp.ExceptOffset <> InvalidVal) and (pp.ExceptOffset <> InvalidVal -1) then
+                    begin
+                      FCurrentPosition := pp.ExceptOffset;
+                      pp.ExceptOffset := Cardinal(InvalidVal -1);
+                      pp.ExceptionData := ExEx;
+                      pp.ExceptionObject := ExObject;
+                      pp.ExceptionParam := ExParam;
+                      ExEx := ErNoError;
+                      ExObject := nil;
+                    end else if (pp.Finally2Offset <> InvalidVal) then
+                    begin
+                      FCurrentPosition := pp.Finally2Offset;
+                      pp.Finally2Offset := InvalidVal;
+                    end else begin
+                      p := pp.EndOfBlock;
+                      pp.Free;
+                      FExceptionStack.DeleteLast;
+                      if (ExEx <> eNoError) and (p <> InvalidVal) then
+                      begin
+                        Tmp := ExObject;
+                        ExObject := nil;
+                        ExceptionProc(ExProc, ExPos, ExEx, ExParam, Tmp);
+                      end else
+                      if FExitPoint <> InvalidVal then
+                      begin
+                        FCurrentPosition := FExitPoint;
+                      end else begin
+                        FCurrentPosition := p;
+                      end;
+                    end;
+                  end;
+                3:
+                  begin
+                    pp := FExceptionStack.Data^[FExceptionStack.Count -1];
+                    if pp = nil then begin
+                      cmd_err(ErOutOfRange);
+                      Break;
+                    end;
+                    p := pp.EndOfBlock;
+                    pp.Free;
+                    FExceptionStack.DeleteLast;
+                    if ExEx <> eNoError then
+                    begin
+                      Tmp := ExObject;
+                      ExObject := nil;
+                      ExceptionProc(ExProc, ExPos, ExEx, ExParam, Tmp);
+                    end else
+                    if FExitPoint <> InvalidVal then
+                    begin
+                      FCurrentPosition := FExitPoint;
+                    end else begin
+                      FCurrentPosition := p;
+                    end;
+                 end;
+              end;
+            end;
+          cm_spc:
+            begin
+              if not ReadVariable(vd, False) then
+                Break;
+              if vd.FreeType <> vtNone then
+              begin
+                FTempVars.Pop;
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              if (Vd.aType.BaseType <> btPointer) then
+              begin
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              if not ReadVariable(vs, False) then
+                Break;
+              if Pointer(Pointer(IPointer(vD.P)+PointerSize2)^) <> nil then
+                DestroyHeapVariant2(Pointer(vD.P^), Pointer(Pointer(IPointer(vd.P)+PointerSize)^));
+              if vs.aType.BaseType = btPointer then
+              begin
+                if Pointer(vs.P^) <> nil then
+                begin
+                  Pointer(vd.P^) := CreateHeapVariant2(Pointer(Pointer(IPointer(vs.P) + PointerSize)^));
+                  Pointer(Pointer(IPointer(vd.P) + PointerSize)^) := Pointer(Pointer(IPointer(vs.P) + PointerSize)^);
+                  Pointer(Pointer(IPointer(vd.P) + PointerSize2)^) := Pointer(1);
+                  if not CopyArrayContents(Pointer(vd.P^), Pointer(vs.P^), 1, Pointer(Pointer(IPointer(vd.P) + PointerSize)^)) then
+                  begin
+                    if vs.FreeType <> vtNone then
+                      FTempVars.Pop;
+                    CMD_Err(ErTypeMismatch);
+                    break;
+                  end;
+                end else
+                begin
+                  Pointer(vd.P^) := nil;
+                  Pointer(Pointer(IPointer(vd.P) + PointerSize)^) := nil;
+                  Pointer(Pointer(IPointer(vd.P) + PointerSize2)^) := nil;
+                end;
+              end else begin
+                Pointer(vd.P^) := CreateHeapVariant2(vs.aType);
+                Pointer(Pointer(IPointer(vd.P) + PointerSize)^) := vs.aType;
+                LongBool(Pointer(IPointer(vd.P) + PointerSize2)^) := true;
+                if not CopyArrayContents(Pointer(vd.P^), vs.P, 1, vs.aType) then
+                begin
+                  if vs.FreeType <> vtNone then
+                    FTempVars.Pop;
+                  CMD_Err(ErTypeMismatch);
+                  break;
+                end;
+              end;
+              if vs.FreeType <> vtNone then
+                FTempVars.Pop;
+
+            end;
+          cm_nop:;
+          cm_dec:
+            begin
+              if not ReadVariable(vd, True) then
+                Break;
+              if vd.FreeType <> vtNone then
+              begin
+                FTempVars.Pop;
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              case vd.aType.BaseType of
+                btu8: dec(tbtu8(vd.P^));
+                bts8: dec(tbts8(vd.P^));
+                btu16: dec(tbtu16(vd.P^));
+                bts16: dec(tbts16(vd.P^));
+                btu32: dec(tbtu32(vd.P^));
+                bts32: dec(tbts32(vd.P^));
+{$IFNDEF PS_NOINT64}
+                bts64: dec(tbts64(vd.P^));
+{$ENDIF}
+              else
+                begin
+                  CMD_Err(ErTypeMismatch);
+                  Break;
+                end;
+              end;
+            end;
+          cm_inc:
+            begin
+              if not ReadVariable(vd, True) then
+                Break;
+              if vd.FreeType <> vtNone then
+              begin
+                FTempVars.Pop;
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              case vd.aType.BaseType of
+                btu8: Inc(tbtu8(vd.P^));
+                bts8: Inc(tbts8(vd.P^));
+                btu16: Inc(tbtu16(vd.P^));
+                bts16: Inc(tbts16(vd.P^));
+                btu32: Inc(tbtu32(vd.P^));
+                bts32: Inc(tbts32(vd.P^));
+{$IFNDEF PS_NOINT64}
+                bts64: Inc(tbts64(vd.P^));
+{$ENDIF}
+              else
+                begin
+                  CMD_Err(ErTypeMismatch);
+                  Break;
+                end;
+              end;
+            end;
+          cm_sp:
+            begin
+              if not ReadVariable(vd, False) then
+                Break;
+              if vd.FreeType <> vtNone then
+              begin
+                FTempVars.Pop;
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              if (Vd.aType.BaseType <> btPointer) then
+              begin
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              if not ReadVariable(vs, False) then
+                Break;
+              if vs.FreeType <> vtNone then
+              begin
+                FTempVars.Pop;
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              if vs.aType.BaseType = btPointer then
+              begin
+                Pointer(vd.P^) := Pointer(vs.p^);
+                Pointer(Pointer(IPointer(vd.P)+PointerSize)^) := Pointer(Pointer(IPointer(vs.P)+PointerSize)^);
+              end
+              else
+              begin
+                Pointer(vd.P^) := vs.P;
+                Pointer(Pointer(IPointer(vd.P)+PointerSize)^) := vs.aType;
+              end;
+            end;
+          Cm_cv:
+            begin
+              if not ReadVariable(vd, True) then
+                Break;
+              if vd.aType.BaseType <> btProcPtr then
+              begin
+                if vd.FreeType <> vtNone then
+                  FTempVars.Pop;
+                CMD_Err(ErTypeMismatch);
+                break;
+              end;
+              p := tbtu32(vd.P^);
+              if vd.FreeType <> vtNone then
+                FTempVars.Pop;
+              if (p = 0) and (Pointer(Pointer(IPointer(vd.p)+PointerSize2)^) <> nil) then
+              begin
+                if not InvokeExternalMethod(TPSTypeRec_ProcPtr(vd.aType), Pointer(Pointer(IPointer(vd.p)+PointerSize)^), Pointer(Pointer(IPointer(vd.p)+PointerSize2)^)) then
+                  Break;
+              end else begin
+                if (p >= FProcs.Count) or (p = FMainProc) then begin
+                  CMD_Err(erOutOfProcRange);
+                  break;
+                end;
+                u := FProcs.Data^[p];
+                if u.ClassType = TPSExternalProcRec then begin
+                  try
+                    if not TPSExternalProcRec(u).ProcPtr(Self, TPSExternalProcRec(u), FGlobalVars, FStack) then begin
+                      if ExEx = erNoError then
+                        CMD_Err(erCouldNotCallProc);
+                      Break;
+                    end;
+                  except
+                    {$IFDEF DELPHI6UP}
+                    Tmp := AcquireExceptionObject;
+                    {$ELSE}
+                    if RaiseList <> nil then
+                    begin
+                      Tmp := Exception(PRaiseFrame(RaiseList)^.ExceptObject);
+                      PRaiseFrame(RaiseList)^.ExceptObject := nil;
+                    end else
+                      Tmp := nil;
+                    {$ENDIF}
+                    if Tmp <> nil then
+                    begin
+                      if Tmp is EPSException then
+                      begin
+                        ExceptionProc(EPSException(tmp).ProcNo, EPSException(tmp).ProcPos, erCustomError, tbtString(EPSException(tmp).Message), nil);
+                        break;
+                      end else
+                      if Tmp is EDivByZero then
+                      begin
+                        CMD_Err3(erDivideByZero, '', Tmp);
+                        break;
+                      end;
+                      if Tmp is EZeroDivide then
+                      begin
+                        CMD_Err3(erDivideByZero, '', Tmp);
+                        break;
+                      end;
+                      if Tmp is EMathError then
+                      begin
+                        CMD_Err3(erMathError, '', Tmp);
+                        break;
+                      end;
+                    end;
+                    if (Tmp <> nil) and (Tmp is Exception) then
+                      CMD_Err3(erException, tbtString(Exception(Tmp).Message), Tmp) else
+                      CMD_Err3(erException, '', Tmp);
+                    Break;
+                  end;
+                end
+                else begin
+                  vtemp := FStack.PushType(FReturnAddressType);
+                  PPSVariantReturnAddress(vtemp).Addr.ProcNo := FCurrProc;
+                  PPSVariantReturnAddress(vtemp).Addr.Position := FCurrentPosition;
+                  PPSVariantReturnAddress(vtemp).Addr.StackBase := FCurrStackBase;
+                  FCurrStackBase := FStack.Count - 1;
+                  FCurrProc := TPSInternalProcRec(u);
+                  FData := FCurrProc.Data;
+                  FDataLength := FCurrProc.Length;
+                  FCurrentPosition := 0;
+                end;
+              end;
+            end;
+          CM_CO:
+            begin
+              if FCurrentPosition >= FDataLength then
+              begin
+                CMD_Err(erOutOfRange); // Error
+                break;
+              end;
+              calctype := FData^[FCurrentPosition];
+              Inc(FCurrentPosition);
+              if not ReadVariable(v3, True) then
+                Break;
+              if v3.FreeType <> vtNone then
+              begin
+                if v3.aType.BaseType in NeedFinalization then
+                  FinalizeVariant(v3.P, v3.aType);
+                p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                Dec(FTempVars.FCount);
+                {$IFNDEF PS_NOSMARTLIST}
+                Inc(FTempVars.FCheckCount);
+                if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                {$ENDIF}
+                FTempVars.FLength := P;
+                if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+                CMD_Err(erInvalidOpcodeParameter);
+                break;
+              end;
+              if not ReadVariable(vs, True) then
+                Break;
+              if not ReadVariable(vd, True) then
+              begin
+                if vs.FreeType <> vtNone then
+                begin
+                  if vs.aType.BaseType in NeedFinalization then
+                    FinalizeVariant(vs.P, vs.aType);
+                  p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                  Dec(FTempVars.FCount);
+                  {$IFNDEF PS_NOSMARTLIST}
+                  Inc(FTempVars.FCheckCount);
+                  if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                  {$ENDIF}
+                  FTempVars.FLength := P;
+                  if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+                end;
+                Break;
+              end;
+              DoBooleanCalc(Vs.P, Vd.P, v3.P, vs.aType, vd.aType, v3.aType, CalcType);
+              if vd.FreeType <> vtNone then
+              begin
+                if vd.aType.BaseType in NeedFinalization then
+                  FinalizeVariant(vd.P, vd.aType);
+                p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                Dec(FTempVars.FCount);
+                {$IFNDEF PS_NOSMARTLIST}
+                Inc(FTempVars.FCheckCount);
+                if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                {$ENDIF}
+                FTempVars.FLength := P;
+                if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+              end;
+              if vs.FreeType <> vtNone then
+              begin
+                if vs.aType.BaseType in NeedFinalization then
+                  FinalizeVariant(vs.P, vs.aType);
+                p := IPointer(FTempVars.Data^[FtempVars.Count-1]) - IPointer(FtempVars.DataPtr);
+                Dec(FTempVars.FCount);
+                {$IFNDEF PS_NOSMARTLIST}
+                Inc(FTempVars.FCheckCount);
+                if FTempVars.FCheckCount > FMaxCheckCount then FTempVars.Recreate;
+                {$ENDIF}
+                FTempVars.FLength := P;
+                if ((FTempVars.FCapacity - FTempVars.FLength) shr 12) > 2 then FTempVars.AdjustLength;
+              end;
+            end;
+
+        else
+          CMD_Err(erInvalidOpcode); // Error
+        end;
+    end;
+//    if cmd <> invalidval then ProfilerExitProc(Cmd+1);
+//    if ExEx <> erNoError then FStatus := FOldStatus;
+  until (FExceptionStack.Count = 0) or (Fstatus <> IsRunning);
+  if FStatus = isLoaded then begin
+    for I := Longint(FStack.Count) - 1 downto 0 do
+      FStack.Pop;
+    FStack.Clear;
+    if FCallCleanup then Cleanup;
+  end;
+  Result := ExEx = erNoError;
+end;
+
+function NVarProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  tmp: TPSVariantIFC;
+begin
+   case Longint(p.Ext1) of
+    0:
+      begin
+        if @Caller.FOnSetNVariant = nil then begin Result := False; exit; end;
+        tmp := NewTPSVariantIFC(Stack.Items[Stack.Count - 2], True);
+        if (Tmp.Dta = nil) or (tmp.aType.BaseType <> btVariant) then begin Result := False; exit; end;
+        Caller.FOnSetNVariant(Caller, Stack.GetAnsiString(-1), Variant(tmp.Dta^));
+        Result := true;
+      end;
+    1:
+      begin
+        if @Caller.FOnGetNVariant = nil then begin Result := False; exit; end;
+        tmp := NewTPSVariantIFC(Stack.Items[Stack.Count - 1], False);
+        if (Tmp.Dta = nil) or (tmp.aType.BaseType <> btVariant) then begin Result := False; exit; end;
+        Variant(tmp.Dta^) := Caller.FOnGetNVariant(Caller, Stack.GetAnsiString(-2));
+        Result := true;
+      end;
+  else
+    Result := False;
+  end;
+end;
+
+function DefProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  temp: TPSVariantIFC;
+  I: Longint;
+  b: Boolean;
+  pex: TPSExceptionHandler;
+  Tmp: TObject;
+begin
+  case Longint(p.Ext1) of
+    0: Stack.SetAnsiString(-1, IntToStr(Stack.{$IFNDEF PS_NOINT64}GetInt64{$ELSE}GetInt{$ENDIF}(-2))); // inttostr
+    1: Stack.SetInt(-1, StrToInt(Stack.GetAnsiString(-2))); // strtoint
+    2: Stack.SetInt(-1, StrToIntDef(Stack.GetAnsiString(-2), Stack.GetInt(-3))); // strtointdef
+    3:
+      if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString then
+        Stack.SetInt(-1, Pos(Stack.GetUnicodeString(-2), Stack.GetUnicodeString(-3)))// pos
+      else
+      if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btWideString then
+        Stack.SetInt(-1, Pos(Stack.GetWideString(-2), Stack.GetWideString(-3)))// pos
+      else
+        Stack.SetInt(-1, Pos(Stack.GetAnsiString(-2), Stack.GetAnsiString(-3)));// pos
+    4:
+      if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btWideString then
+        Stack.SetWideString(-1, Copy(Stack.GetWideString(-2), Stack.GetInt(-3), Stack.GetInt(-4))) // copy
+      else
+      if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString then
+        Stack.SetUnicodeString(-1, Copy(Stack.GetUnicodeString(-2), Stack.GetInt(-3), Stack.GetInt(-4))) // copy
+      else
+        Stack.SetAnsiString(-1, Copy(Stack.GetAnsiString(-2), Stack.GetInt(-3), Stack.GetInt(-4))); // copy
+    5: //delete
+      begin
+        temp := NewTPSVariantIFC(Stack[Stack.Count -1], True);
+        if (temp.Dta <> nil) and (temp.aType.BaseType = btUnicodeString) then
+        begin
+          Delete(tbtUnicodeString(temp.Dta^), Stack.GetInt(-2), Stack.GetInt(-3));
+        end else
+        if (temp.Dta <> nil) and (temp.aType.BaseType = btWideString) then
+        begin
+          Delete(tbtwidestring(temp.Dta^), Stack.GetInt(-2), Stack.GetInt(-3));
+        end else begin
+          if (temp.Dta = nil) or (temp.aType.BaseType <> btString) then
+          begin
+            Result := False;
+            exit;
+          end;
+          Delete(tbtstring(temp.Dta^), Stack.GetInt(-2), Stack.GetInt(-3));
+        end;
+      end;
+    6: // insert
+      begin
+        temp := NewTPSVariantIFC(Stack[Stack.Count -2], True);
+        if (temp.Dta <> nil) and (temp.aType.BaseType = btUnicodeString) then begin
+          Insert(Stack.GetUnicodeString(-1), tbtUnicodeString(temp.Dta^), Stack.GetInt(-3));
+        end else if (temp.Dta <> nil) and (temp.aType.BaseType = btWideString) then begin
+          Insert(Stack.GetWideString(-1), tbtwidestring(temp.Dta^), Stack.GetInt(-3));
+        end else begin
+          if (temp.Dta = nil) or (temp.aType.BaseType <> btString) then
+          begin
+            Result := False;
+            exit;
+          end;
+          Insert(Stack.GetAnsiString(-1), tbtstring(temp.Dta^), Stack.GetInt(-3));
+        end;
+      end;
+    7: // StrGet
+      begin
+        temp :=  NewTPSVariantIFC(Stack[Stack.Count -2], True);
+        if (temp.Dta = nil) or (temp.aType.BaseType <> btString) then
+        begin
+          Result := False;
+          exit;
+        end;
+        I := Stack.GetInt(-3);
+        if (i<1) or (i>length(tbtstring(temp.Dta^))) then
+        begin
+          Caller.CMD_Err2(erCustomError, tbtString(RPS_OutOfStringRange));
+          Result := False;
+          exit;
+        end;
+        Stack.SetInt(-1,Ord(tbtstring(temp.Dta^)[i]));
+      end;
+    8: // StrSet
+      begin
+        temp := NewTPSVariantIFC(Stack[Stack.Count -3], True);
+        if (temp.Dta = nil) or (temp.aType.BaseType <> btString) then
+        begin
+          Result := False;
+          exit;
+        end;
+        I := Stack.GetInt(-2);
+        if (i<1) or (i>length(tbtstring(temp.Dta^))) then
+        begin
+          Caller.CMD_Err2(erCustomError, tbtString(RPS_OutOfStringRange));
+          Result := True;
+          exit;
+        end;
+        tbtstring(temp.Dta^)[i] := tbtchar(Stack.GetInt(-1));
+      end;
+    10:
+{$IFDEF DELPHI2009UP}
+      if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString then
+        Stack.SetUnicodeString(-1, UpperCase(Stack.GetUnicodeString(-2))) // Uppercase
+      else
+{$ENDIF}
+      if (Stack.GetItem(Stack.Count -2)^.FType.BaseType = btWideString) or
+        (Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString) then
+        Stack.SetWideString(-1, WideUpperCase(Stack.GetWideString(-2))) // Uppercase
+      else
+        Stack.SetAnsiString(-1, FastUppercase(Stack.GetAnsiString(-2))); // Uppercase
+    11:
+{$IFDEF DELPHI2009UP}
+      if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString then
+        Stack.SetUnicodeString(-1, LowerCase(Stack.GetUnicodeString(-2))) // Uppercase
+      else
+{$ENDIF}
+      if (Stack.GetItem(Stack.Count -2)^.FType.BaseType = btWideString) or
+        (Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString) then
+        Stack.SetWideString(-1, WideLowerCase(Stack.GetWideString(-2))) // Uppercase
+      else
+        Stack.SetAnsiString(-1, FastLowercase(Stack.GetAnsiString(-2)));// LowerCase
+    12:
+      if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString then
+        Stack.SetUnicodeString(-1, SysUtils.Trim(Stack.GetUnicodestring(-2))) // Uppercase
+      else if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btWideString then
+        Stack.SetWideString(-1, SysUtils.Trim(Stack.GetWideString(-2))) // Uppercase
+      else
+        Stack.SetAnsiString(-1, Trim(Stack.GetAnsiString(-2)));// Trim
+    13: Stack.SetInt(-1, Length(Stack.GetAnsiString(-2))); // Length
+    14: // SetLength
+      begin
+        temp := NewTPSVariantIFC(Stack[Stack.Count -1], True);
+        if (temp.Dta = nil) or (temp.aType.BaseType <> btString) then
+        begin
+          Result := False;
+          exit;
+        end;
+        SetLength(tbtstring(temp.Dta^), STack.GetInt(-2));
+      end;
+    15: Stack.SetReal(-1, Sin(Stack.GetReal(-2))); // Sin
+    16: Stack.SetReal(-1, Cos(Stack.GetReal(-2)));  // Cos
+    17: Stack.SetReal(-1, SQRT(Stack.GetReal(-2))); // Sqrt
+    18: Stack.SetInt(-1, Round(Stack.GetReal(-2))); // Round
+    19: Stack.SetInt(-1, Trunc(Stack.GetReal(-2))); // Trunc
+    20: Stack.SetReal(-1, Int(Stack.GetReal(-2))); // Int
+    21: Stack.SetReal(-1, Pi); // Pi
+    22: Stack.SetReal(-1, Abs(Stack.GetReal(-2))); // Abs
+    23: Stack.SetReal(-1, StrToFloat(Stack.GetAnsiString(-2))); // StrToFloat
+    24: Stack.SetAnsiString(-1, FloatToStr(Stack.GetReal(-2)));// FloatToStr
+    25:
+    if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString then
+      Stack.SetUnicodeString(-1, upadL(Stack.GetUnicodeString(-2), Stack.GetInt(-3))) //  PadL
+    else
+    if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btWideString then
+      Stack.SetWideString(-1, wPadL(Stack.GetWideString(-2), Stack.GetInt(-3))) //  PadL
+    else
+      Stack.SetAnsiString(-1, PadL(Stack.GetAnsiString(-2), Stack.GetInt(-3))); //  PadL
+    26:
+    if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString then
+      Stack.SetUnicodeString(-1, uPadR(Stack.GetUnicodeString(-2), Stack.GetInt(-3))) // PadR
+    else
+    if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btWideString then
+      Stack.SetWideString(-1, wPadR(Stack.GetWideString(-2), Stack.GetInt(-3))) // PadR
+    else
+      Stack.SetAnsiString(-1, PadR(Stack.GetAnsiString(-2), Stack.GetInt(-3))); // PadR
+    27:
+    if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btUnicodeString then
+      Stack.SetUnicodeString(-1, uPadZ(Stack.GetUnicodeString(-2), Stack.GetInt(-3)))// PadZ
+    else
+    if Stack.GetItem(Stack.Count -2)^.FType.BaseType = btWideString then
+      Stack.SetWideString(-1, wPadZ(Stack.GetWideString(-2), Stack.GetInt(-3)))// PadZ
+    else
+      Stack.SetAnsiString(-1, PadZ(Stack.GetAnsiString(-2), Stack.GetInt(-3)));// PadZ
+    28: Stack.SetAnsiString(-1, StringOfChar(tbtChar(Stack.GetInt(-2)), Stack.GetInt(-3))); // Replicate/StrOfChar
+    29: // Assigned
+      begin
+        temp := NewTPSVariantIFC(Stack[Stack.Count -2], True);
+        if Temp.dta = nil then
+        begin
+          Result := False;
+          exit;
+        end;
+        case temp.aType.BaseType of
+          btU8, btS8: b := tbtu8(temp.dta^) <> 0;
+          btU16, btS16: b := tbtu16(temp.dta^) <> 0;
+          btU32, btS32: b := tbtu32(temp.dta^) <> 0;
+          btString, btPChar: b := tbtstring(temp.dta^) <> '';
+{$IFNDEF PS_NOWIDESTRING}
+          btWideString: b := tbtwidestring(temp.dta^)<> '';
+          btUnicodeString: b := tbtUnicodeString(temp.dta^)<> '';
+{$ENDIF}
+          btArray, btClass{$IFNDEF PS_NOINTERFACES}, btInterface{$ENDIF}: b := Pointer(temp.dta^) <> nil;
+        else
+          Result := False;
+          Exit;
+        end;
+        if b then
+          Stack.SetInt(-1, 1)
+        else
+          Stack.SetInt(-1, 0);
+      end;
+    30:
+      begin {RaiseLastException}
+        if (Caller.FExceptionStack.Count > 0) then begin
+          pex := Caller.FExceptionStack.Data[Caller.fExceptionStack.Count -1];
+          if pex.ExceptOffset = Cardinal(InvalidVal -1) then begin
+            Tmp := pex.ExceptionObject;
+            pex.ExceptionObject := nil;
+            Caller.ExceptionProc(Caller.ExProc, pex.ExceptOffset, pex.ExceptionData, pex.ExceptionParam, tmp);
+          end;
+        end;
+      end;
+    31: Caller.CMD_Err2(TPSError(Stack.GetInt(-1)), Stack.GetAnsiString(-2)); {RaiseExeption}
+    32: Stack.SetInt(-1, Ord(Caller.LastEx)); {ExceptionType}
+    33: Stack.SetAnsiString(-1, Caller.LastExParam); {ExceptionParam}
+    34: Stack.SetInt(-1, Caller.LastExProc); {ExceptionProc}
+    35: Stack.SetInt(-1, Caller.LastExPos); {ExceptionPos}
+    36: Stack.SetAnsiString(-1, PSErrorToString(TPSError(Stack.GetInt(-2)), Stack.GetAnsiString(-3))); {ExceptionToString}
+    37: Stack.SetAnsiString(-1, tbtString(AnsiUpperCase(string(Stack.GetAnsiString(-2))))); // AnsiUppercase
+    38: Stack.SetAnsiString(-1, tbtString(AnsiLowercase(string(Stack.GetAnsiString(-2))))); // AnsiLowerCase
+{$IFNDEF PS_NOINT64}
+    39: Stack.SetInt64(-1, StrToInt64(string(Stack.GetAnsiString(-2))));  // StrToInt64
+    40: Stack.SetAnsiString(-1, tbtstring(SysUtils.IntToStr(Stack.GetInt64(-2))));// Int64ToStr
+{$ENDIF}
+    41:  // sizeof
+      begin
+        temp := NewTPSVariantIFC(Stack[Stack.Count -2], False);
+        if Temp.aType = nil then
+          Stack.SetInt(-1, 0)
+        else
+          Stack.SetInt(-1, Temp.aType.RealSize)
+      end;
+{$IFNDEF PS_NOWIDESTRING}
+    42: // WStrGet
+      begin
+        temp :=  NewTPSVariantIFC(Stack[Stack.Count -2], True);
+        if temp.dta = nil then begin
+          result := false;
+          exit;
+        end;
+        case temp.aType.BaseType of
+          btWideString:
+            begin
+              I := Stack.GetInt(-3);
+              if (i<1) or (i>length(tbtwidestring(temp.Dta^))) then
+              begin
+                Caller.CMD_Err2(erCustomError, tbtString(RPS_OutOfStringRange));
+                Result := False;
+                exit;
+              end;
+              Stack.SetInt(-1,Ord(tbtwidestring(temp.Dta^)[i]));
+            end;
+          btUnicodeString:
+            begin
+              I := Stack.GetInt(-3);
+              if (i<1) or (i>length(tbtUnicodeString(temp.Dta^))) then
+              begin
+                Caller.CMD_Err2(erCustomError, tbtString(RPS_OutOfStringRange));
+                Result := False;
+                exit;
+              end;
+              Stack.SetInt(-1,Ord(tbtUnicodeString(temp.Dta^)[i]));
+            end;
+
+        else
+          begin
+            Result := False;
+            exit;
+          end;
+        end;
+      end;
+    43: // WStrSet
+      begin
+        temp := NewTPSVariantIFC(Stack[Stack.Count -3], True);
+        if (temp.Dta = nil)  then
+        begin
+          Result := False;
+          exit;
+        end;
+        case temp.aType.BaseType of
+          btWideString:
+            begin
+              I := Stack.GetInt(-2);
+              if (i<1) or (i>length(tbtWidestring(temp.Dta^))) then
+              begin
+                Caller.CMD_Err2(erCustomError, tbtString(RPS_OutOfStringRange));
+                Result := True;
+                exit;
+              end;
+              tbtWidestring(temp.Dta^)[i] := WideChar(Stack.GetInt(-1));
+            end;
+
+          btUnicodeString:
+            begin
+              I := Stack.GetInt(-2);
+              if (i<1) or (i>length(tbtunicodestring(temp.Dta^))) then
+              begin
+                Caller.CMD_Err2(erCustomError, tbtString(RPS_OutOfStringRange));
+                Result := True;
+                exit;
+              end;
+              tbtunicodestring(temp.Dta^)[i] := WideChar(Stack.GetInt(-1));
+            end;
+        else
+          begin
+            Result := False;
+            exit;
+          end;
+        end;
+      end;
+{$ENDIF}
+    else
+    begin
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+function GetArrayLength(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  arr: TPSVariantIFC;
+begin
+  Arr := NewTPSVariantIFC(Stack[Stack.Count-2], True);
+  if (arr.Dta = nil) or (arr.aType.BaseType <> btArray) then
+  begin
+    Result := false;
+    exit;
+  end;
+  Stack.SetInt(-1, PSDynArrayGetLength(Pointer(arr.Dta^), arr.aType));
+  Result := True;
+end;
+
+function SetArrayLength(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  arr: TPSVariantIFC;
+begin
+  Arr := NewTPSVariantIFC(Stack[Stack.Count-1], True);
+  if (arr.Dta = nil) or (arr.aType.BaseType <> btArray) then
+  begin
+    Result := false;
+    exit;
+  end;
+  PSDynArraySetLength(Pointer(arr.Dta^), arr.aType, Stack.GetInt(-2));
+  Result := True;
+end;
+
+
+function InterfaceProc(Sender: TPSExec; p: TPSExternalProcRec; Tag: Pointer): Boolean; forward;
+
+procedure RegisterInterfaceLibraryRuntime(Se: TPSExec);
+begin
+  SE.AddSpecialProcImport('intf', InterfaceProc, nil);
+end;
+
+{$IFNDEF DELPHI6UP}
+function Null: Variant;
+begin
+  Result := System.Null;
+end;
+
+function Unassigned: Variant;
+begin
+  Result := System.Unassigned;
+end;
+{$ENDIF}
+function Length_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  arr: TPSVariantIFC;
+begin
+  arr:=NewTPSVariantIFC(Stack[Stack.Count-2],false);
+  case arr.aType.BaseType of
+    btArray:
+      begin
+        Stack.SetInt(-1,PSDynArrayGetLength(Pointer(arr.Dta^),arr.aType));
+        Result:=true;
+      end;
+    btStaticArray:
+      begin
+        Stack.SetInt(-1,TPSTypeRec_StaticArray(arr.aType).Size);
+        Result:=true;
+      end;
+    btString:
+      begin
+        Stack.SetInt(-1,length(tbtstring(arr.Dta^)));
+        Result:=true;
+      end;
+    {$IFNDEF PS_NOWIDESTRING}
+    btWideString:
+      begin
+        Stack.SetInt(-1,length(tbtWidestring(arr.Dta^)));
+        Result:=true;
+      end;
+    btUnicodeString:
+      begin
+        Stack.SetInt(-1,length(tbtUnicodeString(arr.Dta^)));
+        Result:=true;
+      end;
+    {$ENDIF}
+    btvariant:
+      begin
+        Stack.SetInt(-1,length(Variant(arr.Dta^)));
+        Result:=true;
+      end;
+  else
+    begin
+      Caller.CMD_Err(ErTypeMismatch);
+      result := true;
+    end;
+  end;
+end;
+
+
+function SetLength_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  arr: TPSVariantIFC;
+begin
+  Result:=false;
+  arr:=NewTPSVariantIFC(Stack[Stack.Count-1],true);
+  if arr.aType.BaseType=btArray then
+  begin
+    PSDynArraySetLength(Pointer(arr.Dta^),arr.aType,Stack.GetInt(-2));
+    Result:=true;
+  end else
+  if arr.aType.BaseType=btString then
+  begin
+    SetLength(tbtstring(arr.Dta^),STack.GetInt(-2));
+    Result:=true;
+{$IFNDEF PS_NOWIDESTRING}
+  end else
+  if arr.aType.BaseType=btWideString then
+  begin
+    SetLength(tbtwidestring(arr.Dta^),STack.GetInt(-2));
+    Result:=true;
+  end else
+  if arr.aType.BaseType=btUnicodeString then
+  begin
+    SetLength(tbtUnicodeString(arr.Dta^),STack.GetInt(-2));
+    Result:=true;
+{$ENDIF}
+  end;
+end;
+
+function Low_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  arr: TPSVariantIFC;
+begin
+  Result:=true;
+  arr:=NewTPSVariantIFC(Stack[Stack.Count-2],false);
+  case arr.aType.BaseType of
+    btArray      : Stack.SetInt(-1,0);
+    btStaticArray: Stack.SetInt(-1,TPSTypeRec_StaticArray(arr.aType).StartOffset);
+    btString     : Stack.SetInt(-1,1);
+    btU8         : Stack.SetInt(-1,Low(Byte));        //Byte: 0
+    btS8         : Stack.SetInt(-1,Low(ShortInt));    //ShortInt: -128
+    btU16        : Stack.SetInt(-1,Low(Word));        //Word: 0
+    btS16        : Stack.SetInt(-1,Low(SmallInt));    //SmallInt: -32768
+    btU32        : Stack.SetInt(-1,Low(Cardinal));    //Cardinal/LongWord: 0
+    btS32        : Stack.SetInt(-1,Low(Integer));     //Integer/LongInt: -2147483648
+    else Result:=false;
+  end;
+end;
+
+function High_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  arr: TPSVariantIFC;
+begin
+  Result:=true;
+  arr:=NewTPSVariantIFC(Stack[Stack.Count-2],false);
+  case arr.aType.BaseType of
+    btArray      : Stack.SetInt(-1,PSDynArrayGetLength(Pointer(arr.Dta^),arr.aType)-1);
+    btStaticArray: Stack.SetInt(-1,TPSTypeRec_StaticArray(arr.aType).StartOffset+TPSTypeRec_StaticArray(arr.aType).Size-1);
+    btString     : Stack.SetInt(-1,Length(tbtstring(arr.Dta^)));
+    btU8         : Stack.SetInt(-1,High(Byte));       //Byte: 255
+    btS8         : Stack.SetInt(-1,High(ShortInt));   //ShortInt: 127
+    btU16        : Stack.SetInt(-1,High(Word));       //Word: 65535
+    btS16        : Stack.SetInt(-1,High(SmallInt));   //SmallInt: 32767
+    btU32        : Stack.SetUInt(-1,High(Cardinal));   //Cardinal/LongWord: 4294967295
+    btS32        : Stack.SetInt(-1,High(Integer));    //Integer/LongInt: 2147483647
+    else Result:=false;
+  end;
+end;
+
+function Dec_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  arr: TPSVariantIFC;
+begin
+  Result:=true;
+  arr:=NewTPSVariantIFC(Stack[Stack.Count-1],true);
+  case arr.aType.BaseType of
+    btU8         : Stack.SetInt(-1,Tbtu8(arr.dta^)-1);     //Byte
+    btS8         : Stack.SetInt(-1,Tbts8(arr.dta^)-1);     //ShortInt
+    btU16        : Stack.SetInt(-1,Tbtu16(arr.dta^)-1);    //Word
+    btS16        : Stack.SetInt(-1,Tbts16(arr.dta^)-1);    //SmallInt
+    btU32        : Stack.SetInt(-1,Tbtu32(arr.dta^)-1);    //Cardinal/LongWord
+    btS32        : Stack.SetInt(-1,Tbts32(arr.dta^)-1);    //Integer/LongInt
+    else Result:=false;
+  end;
+end;
+
+function Inc_(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  arr: TPSVariantIFC;
+begin
+  Result:=true;
+  arr:=NewTPSVariantIFC(Stack[Stack.Count-1],true);
+  case arr.aType.BaseType of
+    btU8         : Stack.SetInt(-1,Tbtu8(arr.dta^)+1);     //Byte
+    btS8         : Stack.SetInt(-1,Tbts8(arr.dta^)+1);     //ShortInt
+    btU16        : Stack.SetInt(-1,Tbtu16(arr.dta^)+1);    //Word
+    btS16        : Stack.SetInt(-1,Tbts16(arr.dta^)+1);    //SmallInt
+    btU32        : Stack.SetInt(-1,Tbtu32(arr.dta^)+1);    //Cardinal/LongWord
+    btS32        : Stack.SetInt(-1,Tbts32(arr.dta^)+1);    //Integer/LongInt
+    else Result:=false;
+  end;
+end;
+
+
+procedure TPSExec.RegisterStandardProcs;
+begin
+  RegisterFunctionName('!NOTIFICATIONVARIANTSET', NVarProc, Pointer(0), nil);
+  RegisterFunctionName('!NOTIFICATIONVARIANTGET', NVarProc, Pointer(1), nil);
+
+  RegisterFunctionName('INTTOSTR', DefProc, Pointer(0), nil);
+  RegisterFunctionName('STRTOINT', DefProc, Pointer(1), nil);
+  RegisterFunctionName('STRTOINTDEF', DefProc, Pointer(2), nil);
+  RegisterFunctionName('POS', DefProc, Pointer(3), nil);
+  RegisterFunctionName('COPY', DefProc, Pointer(4), nil);
+  RegisterFunctionName('DELETE', DefProc, Pointer(5), nil);
+  RegisterFunctionName('INSERT', DefProc, Pointer(6), nil);
+
+  RegisterFunctionName('STRGET', DefProc, Pointer(7), nil);
+  RegisterFunctionName('STRSET', DefProc, Pointer(8), nil);
+  RegisterFunctionName('UPPERCASE', DefProc, Pointer(10), nil);
+  RegisterFunctionName('LOWERCASE', DefProc, Pointer(11), nil);
+  RegisterFunctionName('TRIM', DefProc, Pointer(12), nil);
+
+  RegisterFunctionName('LENGTH',Length_,nil,nil);
+  RegisterFunctionName('SETLENGTH',SetLength_,nil,nil);
+  RegisterFunctionName('LOW',Low_,nil,nil);
+  RegisterFunctionName('HIGH',High_,nil,nil);
+  RegisterFunctionName('DEC',Dec_,nil,nil);
+  RegisterFunctionName('INC',Inc_,nil,nil);
+
+  RegisterFunctionName('SIN', DefProc, Pointer(15), nil);
+  RegisterFunctionName('COS', DefProc, Pointer(16), nil);
+  RegisterFunctionName('SQRT', DefProc, Pointer(17), nil);
+  RegisterFunctionName('ROUND', DefProc, Pointer(18), nil);
+  RegisterFunctionName('TRUNC', DefProc, Pointer(19), nil);
+  RegisterFunctionName('INT', DefProc, Pointer(20), nil);
+  RegisterFunctionName('PI', DefProc, Pointer(21), nil);
+  RegisterFunctionName('ABS', DefProc, Pointer(22), nil);
+  RegisterFunctionName('STRTOFLOAT', DefProc, Pointer(23), nil);
+  RegisterFunctionName('FLOATTOSTR', DefProc, Pointer(24), nil);
+  RegisterFunctionName('PADL', DefProc, Pointer(25), nil);
+  RegisterFunctionName('PADR', DefProc, Pointer(26), nil);
+  RegisterFunctionName('PADZ', DefProc, Pointer(27), nil);
+  RegisterFunctionName('REPLICATE', DefProc, Pointer(28), nil);
+  RegisterFunctionName('STRINGOFCHAR', DefProc, Pointer(28), nil);
+  RegisterFunctionName('!ASSIGNED', DefProc, Pointer(29), nil);
+
+  RegisterDelphiFunction(@Unassigned, 'UNASSIGNED', cdRegister);
+  RegisterDelphiFunction(@VarIsEmpty, 'VARISEMPTY', cdRegister);
+  RegisterDelphiFunction(@Null, 'NULL', cdRegister);
+  RegisterDelphiFunction(@VarIsNull, 'VARISNULL', cdRegister);
+  RegisterDelphiFunction(@VarType, 'VARTYPE', cdRegister);
+  {$IFNDEF PS_NOIDISPATCH}
+  RegisterDelphiFunction(@IDispatchInvoke, 'IDISPATCHINVOKE', cdregister);
+  {$ENDIF}
+
+
+  RegisterFunctionName('GETARRAYLENGTH', GetArrayLength, nil, nil);
+  RegisterFunctionName('SETARRAYLENGTH', SetArrayLength, nil, nil);
+
+  RegisterFunctionName('RAISELASTEXCEPTION', DefPRoc, Pointer(30), nil);
+  RegisterFunctionName('RAISEEXCEPTION', DefPRoc, Pointer(31), nil);
+  RegisterFunctionName('EXCEPTIONTYPE', DefPRoc, Pointer(32), nil);
+  RegisterFunctionName('EXCEPTIONPARAM', DefPRoc, Pointer(33), nil);
+  RegisterFunctionName('EXCEPTIONPROC', DefPRoc, Pointer(34), nil);
+  RegisterFunctionName('EXCEPTIONPOS', DefPRoc, Pointer(35), nil);
+  RegisterFunctionName('EXCEPTIONTOSTRING', DefProc, Pointer(36), nil);
+  RegisterFunctionName('ANSIUPPERCASE', DefProc, Pointer(37), nil);
+  RegisterFunctionName('ANSILOWERCASE', DefProc, Pointer(38), nil);
+
+  {$IFNDEF PS_NOINT64}
+  RegisterFunctionName('STRTOINT64', DefProc, Pointer(39), nil);
+  RegisterFunctionName('INT64TOSTR', DefProc, Pointer(40), nil);
+  {$ENDIF}
+  RegisterFunctionName('SIZEOF', DefProc, Pointer(41), nil);
+
+  {$IFNDEF PS_NOWIDESTRING}
+  RegisterFunctionName('WSTRGET', DefProc, Pointer(42), nil);
+  RegisterFunctionName('WSTRSET', DefProc, Pointer(43), nil);
+  {$ENDIF}
+
+  RegisterInterfaceLibraryRuntime(Self);
+end;
+
+
+function ToString(p: PansiChar): tbtString;
+begin
+  SetString(Result, p, StrLen(p));
+end;
+
+function IntPIFVariantToVariant(Src: pointer; aType: TPSTypeRec; var Dest: Variant): Boolean;
+  function BuildArray(P: Pointer; aType: TPSTypeRec; Len: Longint): Boolean;
+  var
+    i, elsize: Longint;
+    v: variant;
+  begin
+    elsize := aType.RealSize;
+    Dest := VarArrayCreate([0, Len-1], varVariant);
+    for i := 0 to Len -1 do
+    begin
+      if not IntPIFVariantToVariant(p, aType, v) then
+      begin
+        result := false;
+        exit;
+      end;
+      Dest[i] := v;
+      p := Pointer(IPointer(p) + Cardinal(elSize));
+    end;
+    result := true;
+  end;
+begin
+  if aType = nil then
+  begin
+    Dest := null;
+    Result := True;
+    exit;
+  end;
+  if aType.BaseType = btPointer then
+  begin
+    aType := TPSTypeRec(Pointer(IPointer(src)+PointerSize)^);
+    Src := Pointer(Pointer(Src)^);
+  end;
+
+  case aType.BaseType of
+    btVariant: Dest := variant(src^);
+    btArray: if not BuildArray(Pointer(Src^), TPSTypeRec_Array(aType).ArrayType, PSDynArrayGetLength(Pointer(src^), aType)) then begin result := false; exit; end;
+    btStaticArray: if not BuildArray(Pointer(Src), TPSTypeRec_StaticArray(aType).ArrayType, PSDynArrayGetLength(Pointer(src^), aType)) then begin result := false; exit; end;
+    btU8:
+      if aType.ExportName = 'BOOLEAN' then
+        Dest := boolean(tbtu8(Src^) <> 0)
+      else
+        Dest := tbtu8(Src^);
+    btS8: Dest := tbts8(Src^);
+    btU16: Dest := tbtu16(Src^);
+    btS16: Dest := tbts16(Src^);
+    btU32: Dest := {$IFDEF DELPHI6UP}tbtu32{$ELSE}tbts32{$ENDIF}(Src^);
+    btS32: Dest := tbts32(Src^);
+    btSingle: Dest := tbtsingle(Src^);
+    btCurrency: Dest:=tbtCurrency(Src^);
+    btDouble:
+      begin
+        if aType.ExportName = 'TDATETIME' then
+          Dest := TDateTime(tbtDouble(Src^))
+        else
+          Dest := tbtDouble(Src^);
+      end;
+    btExtended: Dest := tbtExtended(Src^);
+    btString: Dest := tbtString(Src^);
+    btPChar: Dest := ToString(PansiChar(Src^));
+  {$IFNDEF PS_NOINT64}
+  {$IFDEF DELPHI6UP} btS64: Dest := tbts64(Src^); {$ELSE} bts64: begin Result := False; exit; end; {$ENDIF}
+  {$ENDIF}
+    btChar: Dest := tbtString(tbtchar(src^));
+  {$IFNDEF PS_NOWIDESTRING}
+    btWideString: Dest := tbtWideString(src^);
+    btWideChar: Dest := tbtwidestring(tbtwidechar(src^));
+    btUnicodeString: Dest := tbtUnicodeString(src^);
+  {$ENDIF}
+  else
+    begin
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+
+function PIFVariantToVariant(Src: PIFVariant; var Dest: Variant): Boolean;
+begin
+  Result := IntPIFVariantToVariant(@PPSVariantData(src).Data, Src.FType, Dest);
+end;
+
+function VariantToPIFVariant(Exec: TPSExec; const Src: Variant; Dest: PIFVariant): Boolean;
+var
+  TT: PIFTypeRec;
+begin
+  if Dest = nil then begin Result := false; exit; end;
+  tt := Exec.FindType2(btVariant);
+  if tt = nil then begin Result := false; exit; end;
+  if Dest.FType.BaseType = btPointer then
+    Result := Exec.SetVariantValue(PPSVariantPointer(Dest).DataDest, @Src, PPSVariantPointer(Dest).DestType, tt)
+  else
+    Result := Exec.SetVariantValue(@PPSVariantData(Dest).Data, @Src, Dest.FType, tt);
+end;
+
+type
+  POpenArray = ^TOpenArray;
+  TOpenArray = record
+    AType: Byte; {0}
+    OrgVar: PPSVariantIFC;
+    FreeIt: Boolean;
+    ElementSize,
+    ItemCount: Longint;
+    Data: Pointer;
+    VarParam: Boolean;
+  end;
+function CreateOpenArray(VarParam: Boolean; Sender: TPSExec; val: PPSVariantIFC): POpenArray;
+var
+  datap, p: Pointer;
+  ctype: TPSTypeRec;
+  cp: Pointer;
+  i: Longint;
+begin
+  if (Val.aType.BaseType <> btArray) and (val.aType.BaseType <> btStaticArray) then
+  begin
+    Result := nil;
+    exit;
+  end;
+  New(Result);
+  Result.AType := 0;
+  Result.OrgVar := Val;
+  Result.VarParam := VarParam;
+
+  if val.aType.BaseType = btStaticArray then
+  begin
+    Result^.ItemCount := TPSTypeRec_StaticArray(val.aType).Size;
+    datap := Val.Dta;
+  end else
+  begin
+    Result^.ItemCount := PSDynArrayGetLength(Pointer(Val.Dta^), val.aType);
+    datap := Pointer(Val.Dta^);
+  end;
+  if TPSTypeRec_Array(Val.aType).ArrayType.BaseType <> btPointer then
+  begin
+    Result.FreeIt := False;
+    result.ElementSize := 0;
+    Result.Data := datap;
+    exit;
+  end;
+  Result.FreeIt := True;
+  Result.ElementSize := sizeof(TVarRec);
+  GetMem(Result.Data, Result.ItemCount * Result.ElementSize);
+  P := Result.Data;
+  FillChar(p^, Result^.ItemCount * Result^.ElementSize, 0);
+  for i := 0 to Result^.ItemCount -1 do
+  begin
+    ctype := Pointer(Pointer(IPointer(datap)+PointerSize)^);
+    cp := Pointer(Datap^);
+    if cp = nil then
+    begin
+      tvarrec(p^).VType := vtPointer;
+      tvarrec(p^).VPointer := nil;
+    end else begin
+       case ctype.BaseType of
+        btVariant: begin
+          tvarrec(p^).VType := vtVariant;
+          tvarrec(p^).VVariant := cp;
+        end;
+        btchar: begin
+            tvarrec(p^).VType := vtChar;
+            tvarrec(p^).VChar := tbtChar(tbtchar(cp^));
+          end;
+        btSingle:
+          begin
+            tvarrec(p^).VType := vtExtended;
+            New(tvarrec(p^).VExtended);
+            tvarrec(p^).VExtended^ := tbtsingle(cp^);
+          end;
+        btExtended:
+          begin
+            tvarrec(p^).VType := vtExtended;
+            New(tvarrec(p^).VExtended);
+            tvarrec(p^).VExtended^ := tbtextended(cp^);;
+          end;
+        btDouble:
+          begin
+            tvarrec(p^).VType := vtExtended;
+            New(tvarrec(p^).VExtended);
+            tvarrec(p^).VExtended^ := tbtdouble(cp^);
+          end;
+        {$IFNDEF PS_NOWIDESTRING}
+        btwidechar: begin
+            tvarrec(p^).VType := vtWideChar;
+            tvarrec(p^).VWideChar := tbtwidechar(cp^);
+          end;
+        {$IFDEF DELPHI2009UP}
+        btUnicodeString: begin
+          tvarrec(p^).VType := vtUnicodeString;
+          tbtunicodestring(TVarRec(p^).VWideString) := tbtunicodestring(cp^);
+        end;
+        {$ELSE}
+        btUnicodeString,
+        {$ENDIF}
+        btwideString: begin
+          tvarrec(p^).VType := vtWideString;
+          tbtwidestring(TVarRec(p^).VWideString) := tbtwidestring(cp^);
+        end;
+        {$ENDIF}
+        btU8: begin
+            tvarrec(p^).VType := vtInteger;
+            tvarrec(p^).VInteger := tbtu8(cp^);
+          end;
+        btS8: begin
+            tvarrec(p^).VType := vtInteger;
+            tvarrec(p^).VInteger := tbts8(cp^);
+          end;
+        btU16: begin
+            tvarrec(p^).VType := vtInteger;
+            tvarrec(p^).VInteger := tbtu16(cp^);
+          end;
+        btS16: begin
+            tvarrec(p^).VType := vtInteger;
+            tvarrec(p^).VInteger := tbts16(cp^);
+          end;
+        btU32: begin
+            tvarrec(p^).VType := vtInteger;
+            tvarrec(p^).VInteger := tbtu32(cp^);
+          end;
+        btS32: begin
+            tvarrec(p^).VType := vtInteger;
+            tvarrec(p^).VInteger := tbts32(cp^);
+          end;
+        {$IFNDEF PS_NOINT64}
+        btS64: begin
+            tvarrec(p^).VType := vtInt64;
+            New(tvarrec(p^).VInt64);
+            tvarrec(p^).VInt64^ := tbts64(cp^);
+          end;
+        {$ENDIF}
+        btString: begin
+          tvarrec(p^).VType := vtAnsiString;
+          tbtString(TVarRec(p^).VAnsiString) := tbtstring(cp^);
+        end;
+        btPChar:
+        begin
+          tvarrec(p^).VType := vtPchar;
+          TVarRec(p^).VPChar := pointer(cp^);
+        end;
+        btClass:
+        begin
+          tvarrec(p^).VType := vtObject;
+          tvarrec(p^).VObject := Pointer(cp^);
+        end;
+{$IFNDEF PS_NOINTERFACES}
+{$IFDEF Delphi3UP}
+        btInterface:
+        begin
+          tvarrec(p^).VType := vtInterface;
+          IUnknown(tvarrec(p^).VInterface) := IUnknown(cp^);
+        end;
+
+{$ENDIF}
+{$ENDIF}
+      end;
+    end;
+    datap := Pointer(IPointer(datap)+ (2*sizeof(Pointer)+sizeof(Longbool)));
+    p := PansiChar(p) + Result^.ElementSize;
+  end;
+end;
+
+procedure DestroyOpenArray(Sender: TPSExec; V: POpenArray);
+var
+  cp, datap: pointer;
+  ctype: TPSTypeRec;
+  p: PVarRec;
+  i: Longint;
+begin
+  if v.FreeIt then // basetype = btPointer
+  begin
+    p := v^.Data;
+    if v.OrgVar.aType.BaseType = btStaticArray then
+      datap := v.OrgVar.Dta
+    else
+      datap := Pointer(v.OrgVar.Dta^);
+    for i := 0 to v^.ItemCount -1 do
+    begin
+      ctype := Pointer(Pointer(IPointer(datap)+PointerSize)^);
+      cp := Pointer(Datap^);
+      case ctype.BaseType of
+        btU8:
+          begin
+            if v^.varParam then
+              tbtu8(cp^) := tvarrec(p^).VInteger
+          end;
+        btS8: begin
+            if v^.varParam then
+              tbts8(cp^) := tvarrec(p^).VInteger
+          end;
+        btU16: begin
+            if v^.varParam then
+              tbtu16(cp^) := tvarrec(p^).VInteger
+          end;
+        btS16: begin
+            if v^.varParam then
+              tbts16(cp^) := tvarrec(p^).VInteger
+          end;
+        btU32: begin
+            if v^.varParam then
+              tbtu32(cp^) := tvarrec(p^).VInteger
+          end;
+        btS32: begin
+            if v^.varParam then
+              tbts32(cp^) := tvarrec(p^).VInteger
+          end;
+        btChar: begin
+            if v^.VarParam then
+              tbtchar(cp^) := tbtChar(tvarrec(p^).VChar)
+          end;
+        btSingle: begin
+          if v^.VarParam then
+            tbtsingle(cp^) := tvarrec(p^).vextended^;
+          dispose(tvarrec(p^).vextended);
+        end;
+        btDouble: begin
+          if v^.VarParam then
+            tbtdouble(cp^) := tvarrec(p^).vextended^;
+          dispose(tvarrec(p^).vextended);
+        end;
+        btExtended: begin
+          if v^.VarParam then
+            tbtextended(cp^) := tvarrec(p^).vextended^;
+          dispose(tvarrec(p^).vextended);
+        end;
+        {$IFNDEF PS_NOINT64}
+        btS64: begin
+            if v^.VarParam then
+              tbts64(cp^) := tvarrec(p^).vInt64^;
+            dispose(tvarrec(p^).VInt64);
+          end;
+        {$ENDIF}
+        {$IFNDEF PS_NOWIDESTRING}
+        btWideChar: begin
+            if v^.varParam then
+              tbtwidechar(cp^) := tvarrec(p^).VWideChar;
+          end;
+        {$IFDEF DELPHI2009UP}
+        btUnicodeString:
+          begin
+          if v^.VarParam then
+            tbtunicodestring(cp^) := tbtunicodestring(TVarRec(p^).VUnicodeString);
+          finalize(tbtunicodestring(TVarRec(p^).VUnicodeString));
+          end;
+        {$ELSE}
+        btUnicodeString,
+        {$ENDIF}
+        btWideString:
+          begin
+          if v^.VarParam then
+            tbtwidestring(cp^) := tbtwidestring(TVarRec(p^).VWideString);
+          finalize(widestring(TVarRec(p^).VWideString));
+          end;
+        {$ENDIF}
+        btString: begin
+          if v^.VarParam then
+            tbtstring(cp^) := tbtstring(TVarRec(p^).VString);
+          finalize(tbtString(TVarRec(p^).VAnsiString));
+        end;
+        btClass: begin
+          if v^.VarParam then
+            Pointer(cp^) := TVarRec(p^).VObject;
+        end;
+{$IFNDEF PS_NOINTERFACES}
+{$IFDEF Delphi3UP}
+        btInterface: begin
+          if v^.VarParam then
+            IUnknown(cp^) := IUnknown(TVarRec(p^).VInterface);
+          finalize(tbtString(TVarRec(p^).VAnsiString));
+        end;
+{$ENDIF}
+{$ENDIF}
+      end;
+      datap := Pointer(IPointer(datap)+ (2*sizeof(Pointer)+sizeof(LongBool)));
+      p := Pointer(IPointer(p) + Cardinal(v^.ElementSize));
+    end;
+    FreeMem(v.Data, v.ElementSize * v.ItemCount);
+  end;
+  Dispose(V);
+end;
+
+
+{$ifndef FPC}
+  {$include x86.inc}
+{$else}
+{$IFDEF Delphi6UP}
+  {$if defined(cpu86)}
+    {$include x86.inc}
+  {$elseif defined(cpupowerpc)}
+    {$include powerpc.inc}
+  {$elseif defined(cpuarm)}
+    {$include arm.inc}
+  {$elseif defined(CPUX86_64)}
+    {$include x64.inc}
+  {$else}
+    {$fatal Pascal Script is not supported for your architecture at the moment!}
+  {$ifend}
+{$ELSE}
+{$include x86.inc}
+{$ENDIF}
+{$endif}
+
+type
+  PScriptMethodInfo = ^TScriptMethodInfo;
+  TScriptMethodInfo = record
+    Se: TPSExec;
+    ProcNo: Cardinal;
+  end;
+
+
+function MkMethod(FSE: TPSExec; No: Cardinal): TMethod;
+begin
+  if (no = 0) or (no = InvalidVal) then
+  begin
+    Result.Code := nil;
+    Result.Data := nil;
+  end else begin
+    Result.Code := @MyAllMethodsHandler;
+    Result.Data := GetMethodInfoRec(FSE, No);
+  end;
+end;
+
+
+procedure PFree(Sender: TPSExec; P: PScriptMethodInfo);
+begin
+  Dispose(p);
+end;
+
+function GetMethodInfoRec(SE: TPSExec; ProcNo: Cardinal): Pointer;
+var
+  I: Longint;
+  pp: PScriptMethodInfo;
+begin
+  if (ProcNo = 0) or (ProcNo = InvalidVal) then
+  begin
+    Result := nil;
+    exit;
+  end;
+  I := 2147483647;
+  repeat
+    pp := Se.FindProcResource2(@PFree, I);
+    if (i <> -1) and (pp^.ProcNo = ProcNo) then
+    begin
+      Result := Pp;
+      exit;
+    end;
+  until i = -1;
+  New(pp);
+  pp^.Se := TPSExec(Se);
+  pp^.ProcNo := Procno;
+  Se.AddResource(@PFree, pp);
+  Result := pp;
+end;
+
+
+
+
+
+type
+  TPtrArr = array[0..1000] of Pointer;
+  PPtrArr = ^TPtrArr;
+  TByteArr = array[0..1000] of byte;
+  PByteArr = ^TByteArr;
+  PPointer = ^Pointer;
+
+
+function VirtualMethodPtrToPtr(Ptr, FSelf: Pointer): Pointer;
+{$IFDEF FPC}
+var
+ x : PPtrArr;
+{$ENDIF}
+begin
+ {$IFDEF FPC}
+ x := Pointer(TObject(FSelf).ClassType) + vmtMethodStart;
+ Result := x^[Longint(Ptr)];
+ {$ELSE}
+ Result := PPtrArr(PPointer(FSelf)^)^[Longint(Ptr)];
+ {$ENDIF}
+end;
+
+function VirtualClassMethodPtrToPtr(Ptr, FSelf: Pointer): Pointer;
+{$IFDEF FPC}
+var
+ x : PPtrArr;
+{$ENDIF}
+begin
+  {$IFDEF FPC}
+  x := Pointer(FSelf) + vmtMethodStart;
+  Result := x^[Longint(Ptr)];
+  {$ELSE}
+  Result := PPtrArr(FSelf)^[Longint(Ptr)];
+  {$ENDIF}
+end;
+
+
+procedure CheckPackagePtr(var P: PByteArr);
+begin
+  if (word((@p[0])^) = $25FF) and (word((@p[6])^)=$C08B)then
+  begin
+    p := PPointer((@p[2])^)^;
+  end;
+end;
+
+{$IFDEF VER90}{$DEFINE NO_vmtSelfPtr}{$ENDIF}
+{$IFDEF FPC}{$DEFINE NO_vmtSelfPtr}{$ENDIF}
+
+{$IFNDEF FPC}
+
+function FindVirtualMethodPtr(Ret: TPSRuntimeClass; FClass: TClass; Ptr: Pointer): Pointer;
+// Idea of getting the number of VMT items from GExperts
+var
+  p: PPtrArr;
+  I: Longint;
+begin
+  p := Pointer(FClass);
+  CheckPackagePtr(PByteArr(Ptr));
+  if Ret.FEndOfVMT = MaxInt then
+  begin
+    I := {$IFDEF NO_vmtSelfPtr}-48{$ELSE}vmtSelfPtr{$ENDIF} div SizeOf(Pointer) + 1;
+    while I < 0 do
+    begin
+      if I < 0 then
+      begin
+        if I <> ({$IFDEF VER90}-44{$ELSE}vmtTypeInfo{$ENDIF} div SizeOf(Pointer)) then
+        begin // from GExperts code
+          if (IPointer(p^[I]) > IPointer(p)) and ((IPointer(p^[I]) - IPointer(p))
+            div
+            PointerSize < Ret.FEndOfVMT) then
+          begin
+            Ret.FEndOfVMT := (IPointer(p^[I]) - IPointer(p)) div SizeOf(Pointer);
+          end;
+        end;
+      end;
+      Inc(I);
+    end;
+    if Ret.FEndOfVMT = MaxInt then
+    begin
+      Ret.FEndOfVMT := 0; // cound not find EndOfVMT
+      Result := nil;
+      exit;
+    end;
+  end;
+  I := 0;
+  while I < Ret.FEndOfVMT do
+  begin
+    if p^[I] = Ptr then
+    begin
+      Result := Pointer(I);
+      exit;
+    end;
+    I := I + 1;
+  end;
+  Result := nil;
+end;
+
+{$ELSE}
+
+function FindVirtualMethodPtr(Ret: TPSRuntimeClass; FClass: TClass; Ptr: Pointer): Pointer;
+var
+  x,p: PPtrArr;
+  I: Longint;
+  t : Pointer;
+begin
+  p := Pointer(FClass) + vmtMethodStart;
+  I := 0;
+  while (p^[I]<>nil) and (I < 10000) do
+  begin
+    if p^[I] = Ptr then
+    begin
+      Result := Pointer(I);
+      x := Pointer(FClass) + vmtMethodStart;
+      t := x^[I];
+      Assert(t=Ptr,'Computation of virtual method pointer fail : t<>Ptr');
+      exit;
+    end;
+    I := I + 1;
+  end;
+  Result := nil;
+end;
+
+{$ENDIF}
+
+
+function NewTPSVariantIFC(avar: PPSVariant; varparam: boolean): TPSVariantIFC;
+begin
+  Result.VarParam := varparam;
+  if avar = nil then
+  begin
+    Result.aType := nil;
+    result.Dta := nil;
+  end else
+  begin
+    Result.aType := avar.FType;
+    result.Dta := @PPSVariantData(avar).Data;
+    if Result.aType.BaseType = btPointer then
+    begin
+      Result.aType := Pointer(Pointer(IPointer(result.dta)+ PointerSize)^);
+      Result.Dta := Pointer(Result.dta^);
+    end;
+  end;
+end;
+
+function NewTPSVariantRecordIFC(avar: PPSVariant; Fieldno: Longint): TPSVariantIFC;
+var
+  offs: Cardinal;
+begin
+  Result := NewTPSVariantIFC(avar, false);
+  if Result.aType.BaseType = btRecord then
+  begin
+    Offs := Cardinal(TPSTypeRec_Record(Result.aType).RealFieldOffsets[FieldNo]);
+    Result.Dta := Pointer(IPointer(Result.dta) + Offs);
+    Result.aType := TPSTypeRec_Record(Result.aType).FieldTypes[FieldNo];
+  end else
+  begin
+    Result.Dta := nil;
+    Result.aType := nil;
+  end;
+end;
+
+function PSGetArrayField(const avar: TPSVariantIFC; Fieldno: Longint): TPSVariantIFC;
+var
+  offs: Cardinal;
+  n: Longint;
+begin
+  Result := aVar;
+  case Result.aType.BaseType of
+    btStaticArray, btArray:
+  begin
+        if Result.aType.BaseType = btStaticArray then
+          n := TPSTypeRec_StaticArray(Result.aType).Size
+        else
+          n := PSDynArrayGetLength(Pointer(Result.Dta^), Result.aType);
+        if (FieldNo <0) or (FieldNo >= n) then
+    begin
+      Result.Dta := nil;
+      Result.aType := nil;
+      exit;
+    end;
+    Offs := TPSTypeRec_Array(Result.aType).ArrayType.RealSize * Cardinal(FieldNo);
+        if Result.aType.BaseType = btStaticArray then
+          Result.Dta := Pointer(IPointer(Result.dta) + Offs)
+        else
+          Result.Dta := Pointer(IPointer(Result.dta^) + Offs);
+    Result.aType := TPSTypeRec_Array(Result.aType).ArrayType;
+      end
+  else
+    Result.Dta := nil;
+    Result.aType := nil;
+  end;
+end;
+
+function PSGetRecField(const avar: TPSVariantIFC; Fieldno: Longint): TPSVariantIFC;
+var
+  offs: Cardinal;
+begin
+  Result := aVar;
+  if Result.aType.BaseType = btRecord then
+  begin
+    Offs := Cardinal(TPSTypeRec_Record(Result.aType).RealFieldOffsets[FieldNo]);
+    Result.aType := TPSTypeRec_Record(Result.aType).FieldTypes[FieldNo];
+    Result.Dta := Pointer(IPointer(Result.dta) + Offs);
+  end else
+  begin
+    Result.Dta := nil;
+    Result.aType := nil;
+  end;
+end;
+
+function NewPPSVariantIFC(avar: PPSVariant; varparam: boolean): PPSVariantIFC;
+begin
+  New(Result);
+  Result^ := NewTPSVariantIFC(avar, varparam);
+end;
+
+
+procedure DisposePPSVariantIFC(aVar: PPSVariantIFC);
+begin
+  if avar <> nil then
+    Dispose(avar);
+end;
+
+procedure DisposePPSVariantIFCList(list: TPSList);
+var
+  i: Longint;
+begin
+  for i := list.Count -1 downto 0 do
+    DisposePPSVariantIFC(list[i]);
+  list.free;
+end;
+
+function ClassCallProcMethod(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  i: Integer;
+  MyList: TPSList;
+  n: PIFVariant;
+  v: PPSVariantIFC;
+  FSelf: Pointer;
+  CurrStack: Cardinal;
+  cc: TPSCallingConvention;
+  s: tbtString;
+begin
+  s := p.Decl;
+  if length(S) < 2 then
+  begin
+    Result := False;
+    exit;
+  end;
+  cc := TPSCallingConvention(s[1]);
+  Delete(s, 1, 1);
+  if s[1] = #0 then
+    n := Stack[Stack.Count -1]
+  else
+    n := Stack[Stack.Count -2];
+  if (n = nil) or (n^.FType.BaseType <> btClass)or (PPSVariantClass(n).Data = nil) then
+  begin
+    Caller.CMD_Err(erNullPointerException);
+    result := false;
+    exit;
+  end;
+  FSelf := PPSVariantClass(n).Data;
+  CurrStack := Cardinal(Stack.Count) - Cardinal(length(s)) -1;
+  if s[1] = #0 then inc(CurrStack);
+  MyList := TPSList.Create;
+  for i := 2 to length(s) do
+  begin
+    MyList.Add(nil);
+  end;
+  for i := length(s) downto 2 do
+  begin
+    n := Stack[CurrStack];
+    MyList[i - 2] := NewPPSVariantIFC(n, s[i] <> #0);
+    inc(CurrStack);
+  end;
+  if s[1] <> #0 then
+  begin
+    v := NewPPSVariantIFC(Stack[CurrStack + 1], True);
+  end else v := nil;
+  try
+    if p.Ext2 = nil then
+      Result := Caller.InnerfuseCall(FSelf, p.Ext1, cc, MyList, v)
+    else
+      Result := Caller.InnerfuseCall(FSelf, VirtualMethodPtrToPtr(p.Ext1, FSelf), cc, MyList, v);
+  finally
+    DisposePPSVariantIFC(v);
+    DisposePPSVariantIFCList(mylist);
+  end;
+end;
+
+function ClassCallProcConstructor(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  i, h: Longint;
+  v: PPSVariantIFC;
+  MyList: TPSList;
+  n: PIFVariant;
+  FSelf: Pointer;
+  CurrStack: Cardinal;
+  cc: TPSCallingConvention;
+  s: tbtString;
+  FType: PIFTypeRec;
+  x: TPSRuntimeClass;
+  IntVal: PIFVariant;
+begin
+  n := Stack[Stack.Count -2];
+  if (n = nil) or (n^.FType.BaseType <> btU32)  then
+  begin
+    result := false;
+    exit;
+  end;
+  FType := Caller.GetTypeNo(PPSVariantU32(N).Data);
+  if (FType = nil)  then
+  begin
+    Result := False;
+    exit;
+  end;
+  h := MakeHash(FType.ExportName);
+  FSelf := nil;
+  for i := 0 to TPSRuntimeClassImporter(p.Ext2).FClasses.Count -1 do
+  begin
+    x:= TPSRuntimeClassImporter(p.Ext2).FClasses[i];
+    if (x.FClassNameHash = h) and (x.FClassName = FType.ExportName) then
+    begin
+      FSelf := x.FClass;
+    end;
+  end;
+  if FSelf = nil then begin
+    Result := False;
+    exit;
+  end;
+  s := p.Decl;
+  if length(S) < 2 then
+  begin
+    Result := False;
+    exit;
+  end;
+  cc := TPSCallingConvention(s[1]);
+  Delete(s, 1, 1);
+  CurrStack := Cardinal(Stack.Count) - Cardinal(length(s)) -1;
+  if s[1] = #0 then inc(CurrStack);
+  IntVal := CreateHeapVariant(Caller.FindType2(btU32));
+  if IntVal = nil then
+  begin
+    Result := False;
+    exit;
+  end;
+  {$IFDEF FPC}
+  // under FPC a constructor it's called with self=0 (EAX) and
+  // the VMT class pointer in EDX so they are effectively swaped
+  // using register calling convention
+  PPSVariantU32(IntVal).Data := Cardinal(FSelf);
+  FSelf := pointer(1);
+  {$ELSE}
+  PPSVariantU32(IntVal).Data := 1;
+  {$ENDIF}
+  MyList := TPSList.Create;
+  MyList.Add(NewPPSVariantIFC(intval, false));
+  for i := 2 to length(s) do
+  begin
+    MyList.Add(nil);
+  end;
+  for i := length(s) downto 2 do
+  begin
+    n :=Stack[CurrStack];
+//    if s[i] <> #0 then
+//    begin
+//      MyList[i - 2] := NewPPSVariantIFC(n, s[i] <> #0);
+//    end;
+    MyList[i - 1] := NewPPSVariantIFC(n, s[i] <> #0);
+    inc(CurrStack);
+  end;
+  if s[1] <> #0 then
+  begin
+    v := NewPPSVariantIFC(Stack[CurrStack + 1], True);
+  end else v := nil;
+  try
+    Result := Caller.InnerfuseCall(FSelf, p.Ext1, TPSCallingConvention(Integer(cc) or 64), MyList, v);
+  finally
+    DisposePPSVariantIFC(v);
+    DisposePPSVariantIFCList(mylist);
+    DestroyHeapVariant(intval);
+  end;
+end;
+
+
+function ClassCallProcVirtualConstructor(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  i, h: Longint;
+  v: PPSVariantIFC;
+  MyList: TPSList;
+  n: PIFVariant;
+  FSelf: Pointer;
+  CurrStack: Cardinal;
+  cc: TPSCallingConvention;
+  s: tbtString;
+  FType: PIFTypeRec;
+  x: TPSRuntimeClass;
+  IntVal: PIFVariant;
+begin
+  n := Stack[Stack.Count -2];
+  if (n = nil) or (n^.FType.BaseType <> btU32)  then
+  begin
+    Caller.CMD_Err(erNullPointerException);
+    result := false;
+    exit;
+  end;
+  FType := Caller.GetTypeNo(PPSVariantU32(N).Data);
+  if (FType = nil)  then
+  begin
+    Caller.CMD_Err(erNullPointerException);
+    Result := False;
+    exit;
+  end;
+  h := MakeHash(FType.ExportName);
+  FSelf := nil;
+  for i := 0 to TPSRuntimeClassImporter(p.Ext2).FClasses.Count -1 do
+  begin
+    x:= TPSRuntimeClassImporter(p.Ext2).FClasses[i];
+    if (x.FClassNameHash = h) and (x.FClassName = FType.ExportName) then
+    begin
+      FSelf := x.FClass;
+    end;
+  end;
+  if FSelf = nil then begin
+    Result := False;
+    exit;
+  end;
+  s := p.Decl;
+  if length(S) < 2 then
+  begin
+    Result := False;
+    exit;
+  end;
+  cc := TPSCallingConvention(s[1]);
+  delete(s, 1, 1);
+  CurrStack := Cardinal(Stack.Count) - Cardinal(length(s)) -1;
+  if s[1] = #0 then inc(CurrStack);
+  IntVal := CreateHeapVariant(Caller.FindType2(btU32));
+  if IntVal = nil then
+  begin
+    Result := False;
+    exit;
+  end;
+  PPSVariantU32(IntVal).Data := 1;
+  MyList := TPSList.Create;
+  MyList.Add(NewPPSVariantIFC(intval, false));
+  for i := 2 to length(s) do
+  begin
+    MyList.Add(nil);
+  end;
+  for i := length(s) downto 2 do
+  begin
+    n :=Stack[CurrStack];
+    MyList[i - 1] := NewPPSVariantIFC(n, s[i] <> #0);
+    inc(CurrStack);
+  end;
+  if s[1] <> #0 then
+  begin
+    v := NewPPSVariantIFC(Stack[CurrStack + 1], True);
+  end else v := nil;
+  try
+    Result := Caller.InnerfuseCall(FSelf, VirtualClassMethodPtrToPtr(p.Ext1, FSelf), cc, MyList, v);
+  finally
+    DisposePPSVariantIFC(v);
+    DisposePPSVariantIFCList(mylist);
+    DestroyHeapVariant(intval);
+  end;
+end;
+
+function CastProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  TypeNo, InVar, ResVar: TPSVariantIFC;
+  FSelf: TClass;
+  FType: PIFTypeRec;
+  H, I: Longint;
+  x: TPSRuntimeClass;
+begin
+  TypeNo := NewTPSVariantIFC(Stack[Stack.Count-3], false);
+  InVar := NewTPSVariantIFC(Stack[Stack.Count-2], false);
+  ResVar := NewTPSVariantIFC(Stack[Stack.Count-1], true);
+  if (TypeNo.Dta = nil) or (InVar.Dta = nil) or (ResVar.Dta = nil) or
+  (TypeNo.aType.BaseType <> btu32) or (resvar.aType <> Caller.FTypes[tbtu32(Typeno.dta^)])
+  then
+  begin
+    Result := False;
+    Exit;
+  end;
+{$IFNDEF PS_NOINTERFACES}
+  if (invar.atype.BaseType = btInterface) and (resvar.aType.BaseType = btInterface) then
+  begin
+{$IFNDEF Delphi3UP}
+    if IUnknown(resvar.Dta^) <> nil then
+      IUnknown(resvar.Dta^).Release;
+{$ENDIF}
+    IUnknown(resvar.Dta^) := nil;
+    if (IUnknown(invar.Dta^) = nil) or (IUnknown(invar.Dta^).QueryInterface(TPSTypeRec_Interface(ResVar.aType).Guid, IUnknown(resvar.Dta^)) <> 0) then
+    begin
+      Caller.CMD_Err2(erCustomError, tbtString(RPS_CannotCastInterface));
+      Result := False;
+      exit;
+    end;
+{$IFDEF Delphi3UP}
+  end else if (Invar.aType.BaseType = btclass) and (resvar.aType.BaseType = btInterface) then
+  begin
+{$IFNDEF Delphi3UP}
+    if IUnknown(resvar.Dta^) <> nil then
+      IUnknown(resvar.Dta^).Release;
+{$ENDIF}
+    IUnknown(resvar.Dta^) := nil;
+    if (TObject(invar.Dta^)= nil) or (not TObject(invar.dta^).GetInterface(TPSTypeRec_Interface(ResVar.aType).Guid, IUnknown(resvar.Dta^))) then
+    begin
+      Caller.CMD_Err2(erCustomError, tbtString(RPS_CannotCastInterface));
+      Result := False;
+      exit;
+    end;
+{$ENDIF}
+  end else {$ENDIF}if (invar.aType.BaseType = btclass) and (resvar.aType.BaseType = btclass ) then
+  begin
+    FType := Caller.GetTypeNo(tbtu32(TypeNo.Dta^));
+    if (FType = nil)  then
+    begin
+      Result := False;
+      exit;
+    end;
+    h := MakeHash(FType.ExportName);
+    FSelf := nil;
+    for i := 0 to TPSRuntimeClassImporter(p.Ext2).FClasses.Count -1 do
+    begin
+      x:= TPSRuntimeClassImporter(p.Ext2).FClasses[i];
+      if (x.FClassNameHash = h) and (x.FClassName = FType.ExportName) then
+      begin
+        FSelf := x.FClass;
+      end;
+    end;
+    if FSelf = nil then begin
+      Result := False;
+      exit;
+    end;
+
+    try
+      TObject(ResVar.Dta^) := TObject(InVar.Dta^) as FSelf;
+    except
+      Result := False;
+      Caller.CMD_Err2(erCustomError, tbtString(RPS_CannotCastObject));
+      exit;
+    end;
+  end else
+  begin
+    Result := False;
+    exit;
+  end;
+  result := True;
+end;
+
+
+function NilProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  n: TPSVariantIFC;
+begin
+  n := NewTPSVariantIFC(Stack[Stack.Count-1], True);
+  if (n.Dta = nil) or ((n.aType.BaseType <> btClass) and (n.aType.BaseType <> btInterface)) then
+  begin
+    Result := False;
+    Caller.CMD_Err(erNullPointerException);
+    Exit;
+  end;
+{$IFNDEF PS_NOINTERFACES}
+  if n.aType.BaseType = btInterface then
+  begin
+    {$IFNDEF Delphi3UP}
+    if IUnknown(n.Dta^) <> nil then
+      IUnknown(n.Dta^).Release;
+    {$ENDIF}
+    IUnknown(n.Dta^) := nil;
+  end else
+  {$ENDIF}
+    Pointer(n.Dta^) := nil;
+  result := True;
+end;
+function IntfCallProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  i: Integer;
+  MyList: TPSList;
+  n: TPSVariantIFC;
+  n2: PPSVariantIFC;
+  FSelf: Pointer;
+  CurrStack: Cardinal;
+  cc: TPSCallingConvention;
+  s: tbtString;
+begin
+  s := p.Decl;
+  if length(S) < 2 then
+  begin
+    Result := False;
+    exit;
+  end;
+  cc := TPSCallingConvention(s[1]);
+  Delete(s, 1, 1);
+  if s[1] = #0 then
+    n := NewTPSVariantIFC(Stack[Stack.Count -1], false)
+  else
+    n := NewTPSVariantIFC(Stack[Stack.Count -2], false);
+  if (n.dta = nil) or (n.atype.BaseType <> btInterface) or (Pointer(n.Dta^) = nil) then
+  begin
+    Caller.CMD_Err(erNullPointerException);
+    result := false;
+    exit;
+  end;
+  FSelf := Pointer(n.dta^);
+  CurrStack := Cardinal(Stack.Count) - Cardinal(length(s)) -1;
+  if s[1] = #0 then inc(CurrStack);
+  MyList := TPSList.Create;
+  for i := 2 to length(s) do
+  begin
+    MyList.Add(nil);
+  end;
+  for i := length(s) downto 2 do
+  begin
+    MyList[i - 2] := NewPPSVariantIFC(Stack[CurrStack], s[i] <> #0);
+    inc(CurrStack);
+  end;
+  if s[1] <> #0 then
+  begin
+    n2 := NewPPSVariantIFC(Stack[CurrStack + 1], True);
+  end else n2 := nil;
+  try
+    Caller.InnerfuseCall(FSelf, Pointer(Pointer(IPointer(FSelf^) + (Cardinal(p.Ext1) * Sizeof(Pointer)))^), cc, MyList, n2);
+    result := true;
+  finally
+    DisposePPSVariantIFC(n2);
+    DisposePPSVariantIFCList(MyList);
+  end;
+end;
+
+
+function InterfaceProc(Sender: TPSExec; p: TPSExternalProcRec; Tag: Pointer): Boolean;
+var
+  s: tbtString;
+begin
+  s := p.Decl;
+  delete(s,1,5); // delete 'intf:'
+  if s = '' then
+  begin
+    Result := False;
+    exit;
+  end;
+  if s[1] = '.'then
+  begin
+    Delete(s,1,1);
+    if length(S) < 6 then
+    begin
+      Result := False;
+      exit;
+    end;
+    p.ProcPtr := IntfCallProc;
+    p.Ext1 := Pointer((@s[1])^); // Proc Offset
+    Delete(s,1,4);
+    P.Decl := s;
+    Result := True;
+  end else Result := False;
+end;
+
+
+function getMethodNo(P: TMethod; SE: TPSExec): Cardinal;
+begin
+  if (p.Code <> @MyAllMethodsHandler) or (p.Data = nil)or (PScriptMethodInfo(p.Data)^.Se <> se)  then
+    Result := 0
+  else
+  begin
+    Result := PScriptMethodInfo(p.Data)^.ProcNo;
+  end;
+end;
+
+function ClassCallProcProperty(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  n: TPSVariantIFC;
+  ltemp: Longint;
+  FSelf: Pointer;
+  m: TMethod;
+begin
+  try
+    if p.Ext2 = Pointer(0) then
+    begin
+      n := NewTPSVariantIFC(Stack[Stack.Count -1], False);
+      if (n.Dta = nil) or (n.aType.BaseType <> btclass)  then
+      begin
+        result := false;
+        Caller.CMD_Err(erNullPointerException);
+        exit;
+      end;
+      FSelf := Pointer(n.dta^);
+      if FSelf = nil then
+      begin
+        Caller.CMD_Err(erCouldNotCallProc);
+        Result := False;
+        exit;
+      end;
+      n := NewTPSVariantIFC(Stack[Stack.Count -2], false);
+      if (PPropInfo(p.Ext1)^.PropType^.Kind = tkMethod) and ((n.aType.BaseType = btu32) or (n.aType.BaseType = btProcPtr))then
+      begin
+        SetMethodProp(TObject(FSelf), PPropInfo(p.Ext1), MkMethod(Caller, tbtu32(n.dta^)));
+      end else
+      case n.aType.BaseType of
+        btSet:
+          begin
+            ltemp := 0;
+            move(Byte(n.Dta^), ltemp, TPSTypeRec_Set(n.aType).aByteSize);
+            SetOrdProp(TObject(FSelf), PPropInfo(p.Ext1), ltemp);
+          end;
+        btChar, btU8: SetOrdProp(TObject(FSelf), PPropInfo(p.Ext1), tbtu8(n.Dta^));
+        btS8: SetOrdProp(TObject(FSelf), PPropInfo(p.Ext1), tbts8(n.Dta^));
+        {$IFNDEF PS_NOWIDESTRING}btwidechar, {$ENDIF}btU16: SetOrdProp(TObject(FSelf), PPropInfo(p.Ext1), tbtu16(n.Dta^));
+        btS16: SetOrdProp(TObject(FSelf), PPropInfo(p.Ext1), tbts16(n.Dta^));
+        btU32: SetOrdProp(TObject(FSelf), PPropInfo(p.Ext1), tbtu32(n.Dta^));
+        btS32: SetOrdProp(TObject(FSelf), PPropInfo(p.Ext1), tbts32(n.Dta^));
+        btSingle: SetFloatProp(TObject(FSelf), p.Ext1, tbtsingle(n.Dta^));
+        btDouble: SetFloatProp(TObject(FSelf), p.Ext1, tbtdouble(n.Dta^));
+        btExtended: SetFloatProp(TObject(FSelf), p.Ext1, tbtextended(n.Dta^));
+        btString: SetStrProp(TObject(FSelf), p.Ext1, string(tbtString(n.Dta^)));
+        btPChar: SetStrProp(TObject(FSelf), p.Ext1, string(pansichar(n.Dta^)));
+        btClass: SetOrdProp(TObject(FSelf), P.Ext1, Longint(n.Dta^));
+	  {$IFDEF DELPHI6UP}
+{$IFNDEF PS_NOWIDESTRING}
+{$IFNDEF DELPHI2009UP}btUnicodeString,{$ENDIF}
+  btWideString: SetWideStrProp(TObject(FSelf), P.Ext1, tbtWidestring(n.dta^));
+{$IFDEF DELPHI2009UP}
+  btUnicodeString: SetUnicodeStrProp(TObject(FSelf), P.Ext1, tbtUnicodestring(n.dta^));
+{$ENDIF}
+  {$ENDIF}
+{$ENDIF}
+        else
+        begin
+          Result := False;
+          exit;
+        end;
+      end;
+      Result := true;
+    end else begin
+      n := NewTPSVariantIFC(Stack[Stack.Count -2], False);
+      if (n.dta = nil) or (n.aType.BaseType <> btClass)then
+      begin
+        result := false;
+        Caller.CMD_Err(erNullPointerException);
+        exit;
+      end;
+      FSelf := Pointer(n.dta^);
+      if FSelf = nil then
+      begin
+        Caller.CMD_Err(erCouldNotCallProc);
+        Result := False;
+        exit;
+      end;
+      n := NewTPSVariantIFC(Stack[Stack.Count -1], false);
+      if (PPropInfo(p.Ext1)^.PropType^.Kind = tkMethod) and ((n.aType.BaseType = btu32) or (n.aType.BaseType = btprocptr)) then
+      begin
+        m := GetMethodProp(TObject(FSelf), PPropInfo(p.Ext1));
+        Cardinal(n.Dta^) := GetMethodNo(m, Caller);
+        if Cardinal(n.dta^) = 0 then
+        begin
+          Pointer(Pointer((IPointer(n.dta)+PointerSize))^) := m.Data;
+          Pointer(Pointer((IPointer(n.dta)+PointerSize2))^) := m.Code;
+        end;
+      end else
+      case n.aType.BaseType of
+        btSet:
+          begin
+            ltemp := GetOrdProp(TObject(FSelf), PPropInfo(p.Ext1));
+            move(ltemp, Byte(n.Dta^), TPSTypeRec_Set(n.aType).aByteSize);
+          end;
+        btU8: tbtu8(n.Dta^) := GetOrdProp(TObject(FSelf), p.Ext1);
+        btS8: tbts8(n.Dta^) := GetOrdProp(TObject(FSelf), p.Ext1);
+        btU16: tbtu16(n.Dta^) := GetOrdProp(TObject(FSelf), p.Ext1);
+        btS16: tbts16(n.Dta^) := GetOrdProp(TObject(FSelf), p.Ext1);
+        btU32: tbtu32(n.Dta^) := GetOrdProp(TObject(FSelf), p.Ext1);
+        btS32: tbts32(n.Dta^) := GetOrdProp(TObject(FSelf), p.Ext1);
+        btSingle: tbtsingle(n.Dta^) := GetFloatProp(TObject(FSelf), p.Ext1);
+        btDouble: tbtdouble(n.Dta^) := GetFloatProp(TObject(FSelf), p.Ext1);
+        btExtended: tbtextended(n.Dta^) := GetFloatProp(TObject(FSelf), p.Ext1);
+        btString: tbtString(n.Dta^) := tbtString(GetStrProp(TObject(FSelf), p.Ext1));
+        btClass: Longint(n.dta^) := GetOrdProp(TObject(FSelf), p.Ext1);
+	  {$IFDEF DELPHI6UP}
+{$IFNDEF PS_NOWIDESTRING}
+        {$IFDEF DELPHI2009UP}
+        btUnicodeString: tbtUnicodeString(n.dta^) := GetUnicodeStrProp(TObject(FSelf), P.Ext1);
+        {$ELSE}
+        btUnicodeString,
+        {$ENDIF}
+        btWideString: tbtWidestring(n.dta^) := GetWideStrProp(TObject(FSelf), P.Ext1);
+{$ENDIF}
+{$ENDIF}
+      else
+        begin
+          Result := False;
+          exit;
+        end;
+      end;
+      Result := True;
+    end;
+  finally
+  end;
+end;
+
+function ClassCallProcPropertyHelper(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  I, ParamCount: Longint;
+  Params: TPSList;
+  n: TPSVariantIFC;
+  FSelf: Pointer;
+begin
+  if Length(P.Decl) < 4 then begin
+    Result := False;
+    exit;
+  end;
+  ParamCount := Longint((@P.Decl[1])^);
+  if Longint(Stack.Count) < ParamCount +1 then begin
+    Result := False;
+    exit;
+  end;
+  Dec(ParamCount);
+  if p.Ext1 <> nil then // read
+  begin
+    n := NewTPSVariantIFC(Stack[Longint(Stack.Count) - 2], False);
+    if (n.Dta = nil) or (n.aType.BaseType <> btClass) then
+    begin
+      result := false;
+      Caller.CMD_Err(erNullPointerException);
+      exit;
+    end;
+    FSelf := pointer(n.Dta^);
+    if FSelf = nil then
+    begin
+      Caller.CMD_Err(erCouldNotCallProc);
+      Result := False;
+      exit;
+    end;
+    Params := TPSList.Create;
+    Params.Add(NewPPSVariantIFC(Stack[Longint(Stack.Count) - 1], True));
+    for i := Stack.Count -3 downto Longint(Stack.Count) - ParamCount -2 do
+    begin
+      Params.Add(NewPPSVariantIFC(Stack[I], False));
+    end;
+    try
+      Result := Caller.InnerfuseCall(FSelf, p.Ext1, cdRegister, Params, nil);
+    finally
+      DisposePPSVariantIFCList(Params);
+    end;
+  end else begin
+    n := NewTPSVariantIFC(Stack[Longint(Stack.Count) - 1], False);
+    if (n.Dta = nil) or (n.aType.BaseType <> btClass) then
+    begin
+      result := false;
+      Caller.CMD_Err(erNullPointerException);
+      exit;
+    end;
+    FSelf := pointer(n.Dta^);
+    if FSelf = nil then
+    begin
+      Caller.CMD_Err(erCouldNotCallProc);
+      Result := False;
+      exit;
+    end;
+    Params := TPSList.Create;
+    Params.Add(NewPPSVariantIFC(Stack[Longint(Stack.Count) - ParamCount - 2], False));
+
+    for i := Stack.Count -2 downto Longint(Stack.Count) - ParamCount -1 do
+    begin
+      Params.Add(NewPPSVariantIFC(Stack[I], False));
+    end;
+    try
+      Result := Caller.InnerfuseCall(FSelf, p.Ext2, cdregister, Params, nil);
+    finally
+      DisposePPSVariantIFCList(Params);
+    end;
+  end;
+end;
+
+function ClassCallProcPropertyHelperName(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  I, ParamCount: Longint;
+  Params: TPSList;
+  tt: PIFVariant;
+  n: TPSVariantIFC;
+  FSelf: Pointer;
+begin
+  if Length(P.Decl) < 4 then begin
+    Result := False;
+    exit;
+  end;
+  ParamCount := Longint((@P.Decl[1])^);
+  if Longint(Stack.Count) < ParamCount +1 then begin
+    Result := False;
+    exit;
+  end;
+  Dec(ParamCount);
+  if p.Ext1 <> nil then // read
+  begin
+    n := NewTPSVariantIFC(Stack[Longint(Stack.Count) - 2], false);
+    if (n.Dta = nil) or (n.aType.BaseType <> btClass) then
+    begin
+      result := false;
+      Caller.CMD_Err(erNullPointerException);
+      exit;
+    end;
+    FSelf := Tobject(n.dta^);
+    Params := TPSList.Create;
+    Params.Add(NewPPSVariantIFC(Stack[Longint(Stack.Count) - 1], True));
+    for i := Stack.Count -3 downto Longint(Stack.Count) - ParamCount -2 do
+      Params.Add(NewPPSVariantIFC(Stack[I], False));
+    tt := CreateHeapVariant(Caller.FindType2(btString));
+    if tt <> nil then
+    begin
+      PPSVariantAString(tt).Data := p.Name;
+      Params.Add(NewPPSVariantIFC(tt, false));
+    end;
+    try
+      Result := Caller.InnerfuseCall(FSelf, p.Ext1, cdRegister, Params, nil);
+    finally
+      DestroyHeapVariant(tt);
+      DisposePPSVariantIFCList(Params);
+    end;
+  end else begin
+    n := NewTPSVariantIFC(Stack[Longint(Stack.Count) - 1], false);
+    if (n.Dta = nil) or (n.aType.BaseType <> btClass) then
+    begin
+      result := false;
+      Caller.CMD_Err(erNullPointerException);
+      exit;
+    end;
+    FSelf := Tobject(n.dta^);
+    Params := TPSList.Create;
+    Params.Add(NewPPSVariantIFC(Stack[Longint(Stack.Count) - 2], True));
+
+    for i := Stack.Count -2 downto Longint(Stack.Count) - ParamCount -1 do
+    begin
+      Params.Add(NewPPSVariantIFC(Stack[I], false));
+    end;
+    tt := CreateHeapVariant(Caller.FindType2(btString));
+    if tt <> nil then
+    begin
+      PPSVariantAString(tt).Data := p.Name;
+      Params.Add(NewPPSVariantIFC(tt, false));
+    end;
+    try
+      Result := Caller.InnerfuseCall(FSelf, p.Ext2, cdregister, Params, nil);
+    finally
+      DestroyHeapVariant(tt);
+      DisposePPSVariantIFCList(Params);
+    end;
+  end;
+end;
+
+
+
+function ClassCallProcEventPropertyHelper(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+{Event property helper}
+var
+  I, ParamCount: Longint;
+  Params: TPSList;
+  n: TPSVariantIFC;
+  data: TMethod;
+  n2: PIFVariant;
+  FSelf: Pointer;
+begin
+  if Length(P.Decl) < 4 then begin
+    Result := False;
+    exit;
+  end;
+  ParamCount := Longint((@P.Decl[1])^);
+  if Longint(Stack.Count) < ParamCount +1 then begin
+    Result := False;
+    exit;
+  end;
+  Dec(ParamCount);
+  if p.Ext1 <> nil then // read
+  begin
+    n := NewTPSVariantIFC(Stack[Longint(Stack.Count) - 2], false);
+    if (n.Dta = nil) or (n.aType.BaseType <> btClass) then
+    begin
+      result := false;
+      Caller.CMD_Err(erNullPointerException);
+      exit;
+    end;
+    FSelf := Tobject(n.dta^);
+    n := NewTPSVariantIFC(Stack[Longint(Stack.Count) - 1], True); // Result
+    if (n.aType.BaseType <> btU32) and (n.aType.BaseType <> btProcPtr) then
+    begin
+      Result := False;
+      Caller.CMD_Err(erNullPointerException);
+      exit;
+    end;
+    n2 := CreateHeapVariant(Caller.FindType2(btPChar));
+    if n2 = nil then
+    begin
+      Result := False;
+      exit;
+    end;
+    Params := TPSList.Create;
+//{$IFDEF CPU64}
+//{$ELSE}
+    data.Code := nil;
+    data.Data := nil;
+//{$ENDIF}
+    PPSVariantDynamicArray(n2)^.Data:= @data;
+    Params.Add(NewPPSVariantIFC(n2, false));
+    for i := Stack.Count -3 downto Longint(Stack.Count) - ParamCount -2 do
+      Params.Add(NewPPSVariantIFC(Stack[i], False));
+    try
+      Result := Caller.InnerfuseCall(FSelf, p.Ext1, cdRegister, Params, nil);
+    finally
+      Cardinal(n.Dta^) := getMethodNo(data, Caller);
+      if Cardinal(n.Dta^) = 0 then
+      begin
+        Pointer(Pointer((IPointer(n.dta)+PointerSize))^) := data.Data;
+        Pointer(Pointer((IPointer(n.dta)+PointerSize2))^) := data.Code;
+      end;
+      DestroyHeapVariant(n2);
+      DisposePPSVariantIFCList(Params);
+    end;
+  end else begin
+    n := NewTPSVariantIFC(Stack[Longint(Stack.Count) - 1], false);
+    if (n.Dta = nil) or (n.aType.BaseType <> btClass) then
+    begin
+      result := false;
+      Caller.CMD_Err(erNullPointerException);
+      exit;
+    end;
+    FSelf := Tobject(n.dta^);
+    n := NewTPSVariantIFC(Stack[Longint(Stack.Count) - 2], false);
+    if (n.Dta = nil) or ((n.aType.BaseType <> btu32) and (n.aType.BaseType <> btProcPtr)) then
+    begin
+      result := false;
+      Caller.CMD_Err(erNullPointerException);
+      exit;
+    end;
+    n2 := CreateHeapVariant(Caller.FindType2(btPchar));
+    if n2 = nil then
+    begin
+      Result := False;
+      exit;
+    end;
+
+    if (n.aType.BaseType = btProcPtr) and (cardinal(n.dta^) = 0) then
+      data := TMethod(Pointer(IPointer(n.dta^)+4)^)
+    else
+      data := MkMethod(Caller, cardinal(n.dta^));
+    Params := TPSList.Create;
+    Params.Add(NewPPSVariantIFC(n2, False));
+
+    for i := Stack.Count -2 downto Longint(Stack.Count) - ParamCount -1 do
+    begin
+      Params.Add(NewPPSVariantIFC(Stack[I], False));
+    end;
+    try
+      Result := Caller.InnerfuseCall(FSelf, p.Ext2, cdregister, Params, nil);
+    finally
+      DestroyHeapVariant(n2);
+      DisposePPSVariantIFCList(Params);
+    end;
+  end;
+end;
+
+
+{'class:'+CLASSNAME+'|'+FUNCNAME+'|'+chr(CallingConv)+chr(hasresult)+params
+
+For property write functions there is an '@' after the funcname.
+}
+function SpecImport(Sender: TPSExec; p: TPSExternalProcRec; Tag: Pointer): Boolean;
+var
+  H, I: Longint;
+  S, s2: tbtString;
+  CL: TPSRuntimeClass;
+  Px: PClassItem;
+  pp: PPropInfo;
+  IsRead: Boolean;
+begin
+  s := p.Decl;
+  delete(s, 1, 6);
+  if s = '-' then {nil function}
+  begin
+    p.ProcPtr := NilProc;
+    Result := True;
+    exit;
+  end;
+  if s = '+' then {cast function}
+  begin
+    p.ProcPtr := CastProc;
+    p.Ext2 := Tag;
+    Result := True;
+    exit;
+  end;
+  s2 := copy(S, 1, pos(tbtchar('|'), s)-1);
+  delete(s, 1, length(s2) + 1);
+  H := MakeHash(s2);
+  ISRead := False;
+  cl := nil;
+  for I := TPSRuntimeClassImporter(Tag).FClasses.Count -1 downto 0 do
+  begin
+    Cl := TPSRuntimeClassImporter(Tag).FClasses[I];
+    if (Cl.FClassNameHash = h) and (cl.FClassName = s2) then
+    begin
+      IsRead := True;
+      break;
+    end;
+  end;
+  if not isRead then begin
+    Result := False;
+    exit;
+  end;
+  s2 := copy(S, 1, pos(tbtchar('|'), s)-1);
+  delete(s, 1, length(s2) + 1);
+  if (s2 <> '') and (s2[length(s2)] = '@') then
+  begin
+    IsRead := False;
+    Delete(S2, length(s2), 1);
+  end else
+    isRead := True;
+  p.Name := s2;
+  H := MakeHash(s2);
+  for i := cl.FClassItems.Count -1 downto 0 do
+  begin
+    px := cl.FClassItems[I];
+    if (px^.FNameHash = h) and (px^.FName = s2) then
+    begin
+      p.Decl := s;
+      case px^.b of
+  {0: ext1=ptr}
+  {1: ext1=pointerinlist}
+  {2: ext1=propertyinfo}
+  {3: ext1=readfunc; ext2=writefunc}
+        4:
+          begin
+            p.ProcPtr := ClassCallProcConstructor;
+            p.Ext1 := px^.Ptr;
+            if p.Ext1 = nil then begin result := false; exit; end;
+            p.Ext2 := Tag;
+          end;
+        5:
+          begin
+            p.ProcPtr := ClassCallProcVirtualConstructor;
+            p.Ext1 := px^.Ptr;
+           if p.Ext1 = nil then begin result := false; exit; end;
+            p.Ext2 := Tag;
+          end;
+        6:
+          begin
+            p.ProcPtr := ClassCallProcEventPropertyHelper;
+            if IsRead then
+            begin
+              p.Ext1 := px^.FReadFunc;
+              if p.Ext1 = nil then begin result := false; exit; end;
+              p.Ext2 := nil;
+            end else
+            begin
+              p.Ext1 := nil;
+              p.Ext2 := px^.FWriteFunc;
+              if p.Ext2 = nil then begin result := false; exit; end;
+            end;
+          end;
+        0:
+          begin
+            p.ProcPtr := ClassCallProcMethod;
+            p.Ext1 := px^.Ptr;
+            if p.Ext1 = nil then begin result := false; exit; end;
+            p.Ext2 := nil;
+          end;
+        1:
+          begin
+            p.ProcPtr := ClassCallProcMethod;
+            p.Ext1 := px^.PointerInList;
+            //if p.Ext1 = nil then begin result := false; exit; end;
+            p.ext2 := pointer(1);
+          end;
+        3:
+          begin
+            p.ProcPtr := ClassCallProcPropertyHelper;
+            if IsRead then
+            begin
+              p.Ext1 := px^.FReadFunc;
+              if p.Ext1 = nil then begin result := false; exit; end;
+              p.Ext2 := nil;
+            end else
+            begin
+              p.Ext1 := nil;
+              p.Ext2 := px^.FWriteFunc;
+              if p.Ext2 = nil then begin result := false; exit; end;
+            end;
+          end;
+        7:
+          begin
+            p.ProcPtr := ClassCallProcPropertyHelperName;
+            if IsRead then
+            begin
+              p.Ext1 := px^.FReadFunc;
+              if p.Ext1 = nil then begin result := false; exit; end;
+              p.Ext2 := nil;
+            end else
+            begin
+              p.Ext1 := nil;
+              p.Ext2 := px^.FWriteFunc;
+              if p.Ext2 = nil then begin result := false; exit; end;
+            end;
+          end;
+        else
+         begin
+           result := false;
+           exit;
+         end;
+      end;
+      Result := true;
+      exit;
+    end;
+  end;
+  if cl.FClass.ClassInfo <> nil then
+  begin
+    pp := GetPropInfo(cl.FClass.ClassInfo, string(s2));
+    if pp <> nil then
+    begin
+       p.ProcPtr := ClassCallProcProperty;
+       p.Ext1 := pp;
+       if IsRead then
+         p.Ext2 := Pointer(1)
+       else
+         p.Ext2 := Pointer(0);
+       Result := True;
+    end else
+      result := false;
+  end else
+    Result := False;
+end;
+
+procedure RegisterClassLibraryRuntime(SE: TPSExec; Importer: TPSRuntimeClassImporter);
+begin
+  SE.AddSpecialProcImport('class', SpecImport, Importer);
+end;
+
+
+procedure TPSExec.ClearspecialProcImports;
+var
+  I: Longint;
+  P: PSpecialProc;
+begin
+  for I := FSpecialProcList.Count -1 downto 0 do
+  begin
+    P := FSpecialProcList[I];
+    Dispose(p);
+  end;
+  FSpecialProcList.Clear;
+end;
+
+procedure TPSExec.RaiseCurrentException;
+var
+  ExObj: TObject;
+begin
+  if ExEx = erNoError then exit; // do nothing
+  ExObj := Self.ExObject;
+  if ExObj <> nil then
+  begin
+    Self.ExObject := nil;
+    raise ExObj;
+  end;
+  raise EPSException.Create(PSErrorToString(ExceptionCode, ExceptionString), Self, ExProc, ExPos);
+end;
+
+procedure TPSExec.CMD_Err2(EC: TPSError; const Param: tbtString);
+begin
+  CMD_Err3(EC, Param, Nil);
+end;
+
+function TPSExec.GetProcAsMethod(const ProcNo: Cardinal): TMethod;
+begin
+  Result := MkMethod(Self, ProcNo);
+end;
+
+function TPSExec.GetProcAsMethodN(const ProcName: tbtString): TMethod;
+var
+  procno: Cardinal;
+begin
+  Procno := GetProc(ProcName);
+  if Procno = InvalidVal then
+  begin
+    Result.Code := nil;
+    Result.Data := nil;
+  end
+  else
+    Result := MkMethod(Self, procno)
+end;
+
+
+procedure TPSExec.RegisterAttributeType(useproc: TPSAttributeUseProc;
+  const TypeName: tbtString);
+var
+  att: TPSAttributeType;
+begin
+  att := TPSAttributeType.Create;
+  att.TypeName := TypeName;
+  att.TypeNameHash := MakeHash(TypeName);
+  att.UseProc := UseProc;
+  FAttributeTypes.Add(att);
+end;
+
+function TPSExec.GetProcCount: Cardinal;
+begin
+  Result := FProcs.Count;
+end;
+
+function TPSExec.GetTypeCount: Longint;
+begin
+  Result := FTypes.Count;
+end;
+
+function TPSExec.GetVarCount: Longint;
+begin
+  Result := FGlobalVars.Count;
+end;
+
+function TPSExec.FindSpecialProcImport(
+  P: TPSOnSpecialProcImport): pointer;
+var
+  i: Longint;
+  pr: PSpecialProc;
+begin
+  for i := FSpecialProcList.Count -1 downto 0 do
+  begin
+    pr := FSpecialProcList[i];
+    if @pr.P = @p then
+    begin
+      Result := pr.tag;
+      exit;
+    end;
+  end;
+  result := nil;
+end;
+
+function TPSExec.InvokeExternalMethod(At: TPSTypeRec_ProcPtr; Slf,
+  Ptr: Pointer): Boolean;
+var
+  res: PPSVariantIFC;
+  s: tbtString;
+  CurrStack, i: Longint;
+  n: PPSVariant;
+  MyList: TPSList;
+begin
+  s := TPSTypeRec_ProcPtr(at).ParamInfo;
+  CurrStack := Cardinal(FStack.Count) - Cardinal(length(s));
+  if s[1] = #0 then inc(CurrStack);
+  MyList := TPSList.Create;
+  for i := 2 to length(s) do
+  begin
+    MyList.Add(nil);
+  end;
+  for i := length(s) downto 2 do
+  begin
+    n := FStack[CurrStack];
+    MyList[i - 2] := NewPPSVariantIFC(n, s[i] <> #0);
+    inc(CurrStack);
+  end;
+  if s[1] <> #0 then
+  begin
+    res := NewPPSVariantIFC(FStack[CurrStack + 1], True);
+  end else res := nil;
+  Result := InnerfuseCall(Slf, Ptr, cdRegister, MyList, Res);
+
+  DisposePPSVariantIFC(res);
+  DisposePPSVariantIFCList(mylist);
+end;
+
+function TPSExec.LastEx: TPSError;
+var
+  pp: TPSExceptionHandler;
+begin
+  if FExceptionStack.Count = 0 then begin
+    result := ExEx;
+    exit;
+  end;
+  pp := fExceptionStack[fExceptionStack.Count-1];
+  result := pp.ExceptionData;
+end;
+
+function TPSExec.LastExParam: tbtString;
+begin
+  result := ExParam;
+end;
+
+function TPSExec.LastExPos: Integer;
+begin
+  result := ExPos;
+end;
+
+function TPSExec.LastExProc: Integer;
+begin
+  result := exProc;
+end;
+
+{ TPSRuntimeClass }
+
+constructor TPSRuntimeClass.Create(aClass: TClass; const AName: tbtString);
+begin
+  inherited Create;
+  FClass := AClass;
+  if AName = '' then
+  begin
+    FClassName := FastUpperCase(tbtString(aClass.ClassName));
+    FClassNameHash := MakeHash(FClassName);
+  end else begin
+    FClassName := FastUppercase(AName);
+    FClassNameHash := MakeHash(FClassName);
+  end;
+  FClassItems:= TPSList.Create;
+  FEndOfVmt := MaxInt;
+end;
+
+destructor TPSRuntimeClass.Destroy;
+var
+  I: Longint;
+  P: PClassItem;
+begin
+  for i:= FClassItems.Count -1 downto 0 do
+  begin
+    P := FClassItems[I];
+    Dispose(p);
+  end;
+  FClassItems.Free;
+  inherited Destroy;
+end;
+
+procedure TPSRuntimeClass.RegisterVirtualAbstractMethod(ClassDef: TClass;
+  ProcPtr: Pointer; const Name: tbtString);
+var
+  P: PClassItem;
+begin
+  New(P);
+  p^.FName := FastUppercase(Name);
+  p^.FNameHash := MakeHash(p^.FName);
+  p^.b := 1;
+  p^.PointerInList := FindVirtualMethodPtr(Self, ClassDef, ProcPtr);
+  FClassItems.Add(p);
+end;
+
+procedure TPSRuntimeClass.RegisterConstructor(ProcPtr: Pointer;
+  const Name: tbtString);
+var
+  P: PClassItem;
+begin
+  New(P);
+  p^.FName := FastUppercase(Name);
+  p^.FNameHash := MakeHash(p^.FName);
+  p^.b := 4;
+  p^.Ptr := ProcPtr;
+  FClassItems.Add(p);
+end;
+
+procedure TPSRuntimeClass.RegisterMethod(ProcPtr: Pointer; const Name: tbtString);
+var
+  P: PClassItem;
+begin
+  New(P);
+  p^.FName := FastUppercase(Name);
+  p^.FNameHash := MakeHash(p^.FName);
+  p^.b := 0;
+  p^.Ptr := ProcPtr;
+  FClassItems.Add(p);
+end;
+
+
+procedure TPSRuntimeClass.RegisterPropertyHelper(ReadFunc,
+  WriteFunc: Pointer; const Name: tbtString);
+var
+  P: PClassItem;
+begin
+  New(P);
+  p^.FName := FastUppercase(Name);
+  p^.FNameHash := MakeHash(p^.FName);
+  p^.b := 3;
+  p^.FReadFunc := ReadFunc;
+  p^.FWriteFunc := WriteFunc;
+  FClassItems.Add(p);
+end;
+
+procedure TPSRuntimeClass.RegisterVirtualConstructor(ProcPtr: Pointer;
+  const Name: tbtString);
+var
+  P: PClassItem;
+begin
+  New(P);
+  p^.FName := FastUppercase(Name);
+  p^.FNameHash := MakeHash(p^.FName);
+  p^.b := 5;
+  p^.PointerInList := FindVirtualMethodPtr(Self, FClass, ProcPtr);
+  FClassItems.Add(p);
+end;
+
+procedure TPSRuntimeClass.RegisterVirtualMethod(ProcPtr: Pointer; const Name: tbtString);
+var
+  P: PClassItem;
+begin
+  New(P);
+  p^.FName := FastUppercase(Name);
+  p^.FNameHash := MakeHash(p^.FName);
+  p^.b := 1;
+  p^.PointerInList := FindVirtualMethodPtr(Self, FClass, ProcPtr);
+  FClassItems.Add(p);
+end;
+
+procedure TPSRuntimeClass.RegisterEventPropertyHelper(ReadFunc,
+  WriteFunc: Pointer; const Name: tbtString);
+var
+  P: PClassItem;
+begin
+  New(P);
+  p^.FName := FastUppercase(Name);
+  p^.FNameHash := MakeHash(p^.FName);
+  p^.b := 6;
+  p^.FReadFunc := ReadFunc;
+  p^.FWriteFunc := WriteFunc;
+  FClassItems.Add(p);
+end;
+
+
+procedure TPSRuntimeClass.RegisterPropertyHelperName(ReadFunc,
+  WriteFunc: Pointer; const Name: tbtString);
+var
+  P: PClassItem;
+begin
+  New(P);
+  p^.FName := FastUppercase(Name);
+  p^.FNameHash := MakeHash(p^.FName);
+  p^.b := 7;
+  p^.FReadFunc := ReadFunc;
+  p^.FWriteFunc := WriteFunc;
+  FClassItems.Add(p);
+end;
+
+{ TPSRuntimeClassImporter }
+
+function TPSRuntimeClassImporter.Add(aClass: TClass): TPSRuntimeClass;
+begin
+  Result := FindClass(tbtstring(aClass.ClassName));
+  if Result <> nil then exit;
+  Result := TPSRuntimeClass.Create(aClass, '');
+  FClasses.Add(Result);
+end;
+
+function TPSRuntimeClassImporter.Add2(aClass: TClass;
+  const Name: tbtString): TPSRuntimeClass;
+begin
+  Result := FindClass(Name);
+  if Result <> nil then exit;
+  Result := TPSRuntimeClass.Create(aClass, Name);
+  FClasses.Add(Result);
+end;
+
+procedure TPSRuntimeClassImporter.Clear;
+var
+  I: Longint;
+begin
+  for i := 0 to FClasses.Count -1 do
+  begin
+    TPSRuntimeClass(FClasses[I]).Free;
+  end;
+  FClasses.Clear;
+end;
+
+constructor TPSRuntimeClassImporter.Create;
+begin
+  inherited Create;
+  FClasses := TPSList.Create;
+
+end;
+
+constructor TPSRuntimeClassImporter.CreateAndRegister(Exec: TPSexec;
+  AutoFree: Boolean);
+begin
+  inherited Create;
+  FClasses := TPSList.Create;
+  RegisterClassLibraryRuntime(Exec, Self);
+  if AutoFree then
+    Exec.AddResource(@RCIFreeProc, Self);
+end;
+
+destructor TPSRuntimeClassImporter.Destroy;
+begin
+  Clear;
+  FClasses.Free;
+  inherited Destroy;
+end;
+
+{$IFNDEF PS_NOINTERFACES}
+procedure SetVariantToInterface(V: PIFVariant; Cl: IUnknown);
+begin
+  if (v <> nil) and (v.FType.BaseType = btInterface) then
+  begin
+    PPSVariantinterface(v).Data := cl;
+    {$IFNDEF Delphi3UP}
+    if PPSVariantinterface(v).Data <> nil then
+      PPSVariantinterface(v).Data.AddRef;
+    {$ENDIF}
+  end;
+end;
+{$ENDIF}
+
+procedure SetVariantToClass(V: PIFVariant; Cl: TObject);
+begin
+  if (v <> nil) and (v.FType.BaseType = btClass) then
+  begin
+    PPSVariantclass(v).Data := cl;
+  end;
+end;
+
+function BGRFW(var s: tbtString): tbtString;
+var
+  l: Longint;
+begin
+  l := Length(s);
+  while l >0 do
+  begin
+    if s[l] = ' ' then
+    begin
+      Result := copy(s, l + 1, Length(s) - l);
+      Delete(s, l, Length(s) - l + 1);
+      exit;
+    end;
+    Dec(l);
+  end;
+  Result := s;
+  s := '';
+end;
+
+{$ifdef fpc}
+  {$if defined(cpupowerpc) or defined(cpuarm) or defined(cpu64)}
+    {$define empty_methods_handler}
+  {$ifend}
+{$endif}
+
+{$ifdef empty_methods_handler}
+procedure MyAllMethodsHandler;
+begin
+end;
+{$else}
+
+
+function MyAllMethodsHandler2(Self: PScriptMethodInfo; const Stack: PPointer; _EDX, _ECX: Pointer): Integer; forward;
+
+procedure MyAllMethodsHandler;
+//  On entry:
+//     EAX = Self pointer
+//     EDX, ECX = param1 and param2
+//     STACK = param3... paramcount
+asm
+  push 0
+  push ecx
+  push edx
+  mov edx, esp
+  add edx, 16 // was 12
+  pop ecx
+  call MyAllMethodsHandler2
+  pop ecx
+  mov edx, [esp]
+  add esp, eax
+  mov [esp], edx
+  mov eax, ecx
+end;
+
+function ResultAsRegister(b: TPSTypeRec): Boolean;
+begin
+  case b.BaseType of
+    btSingle,
+    btDouble,
+    btExtended,
+    btU8,
+    bts8,
+    bts16,
+    btu16,
+    bts32,
+    btu32,
+{$IFDEF PS_FPCSTRINGWORKAROUND}
+    btString,
+{$ENDIF}
+{$IFNDEF PS_NOINT64}
+    bts64,
+{$ENDIF}
+    btPChar,
+{$IFNDEF PS_NOWIDESTRING}
+    btWideChar,
+{$ENDIF}
+    btChar,
+    btclass,
+    btEnum: Result := true;
+    btSet: Result := b.RealSize <= PointerSize;
+    btStaticArray: Result := b.RealSize <= PointerSize;
+  else
+    Result := false;
+  end;
+end;
+
+function SupportsRegister(b: TPSTypeRec): Boolean;
+begin
+  case b.BaseType of
+    btU8,
+    bts8,
+    bts16,
+    btu16,
+    bts32,
+    btu32,
+    btstring,
+    btclass,
+{$IFNDEF PS_NOINTERFACES}
+    btinterface,
+{$ENDIF}
+    btPChar,
+{$IFNDEF PS_NOWIDESTRING}
+    btwidestring,
+    btUnicodeString,
+    btWideChar,
+{$ENDIF}
+    btChar,
+    btArray,
+    btEnum: Result := true;
+    btSet: Result := b.RealSize <= PointerSize;
+    btStaticArray: Result := b.RealSize <= PointerSize;
+  else
+    Result := false;
+  end;
+end;
+
+function AlwaysAsVariable(aType: TPSTypeRec): Boolean;
+begin
+  case atype.BaseType of
+    btVariant: Result := true;
+    btSet: Result := atype.RealSize > PointerSize;
+    btRecord: Result := atype.RealSize > PointerSize;
+    btStaticArray: Result := atype.RealSize > PointerSize;
+  else
+    Result := false;
+  end;
+end;
+
+
+procedure PutOnFPUStackExtended(ft: extended);
+asm
+//  fstp tbyte ptr [ft]
+  fld tbyte ptr [ft]
+
+end;
+
+
+function MyAllMethodsHandler2(Self: PScriptMethodInfo; const Stack: PPointer; _EDX, _ECX: Pointer): Integer;
+var
+  Decl: tbtString;
+  I, C, regno: Integer;
+  Params: TPSList;
+  Res, Tmp: PIFVariant;
+  cpt: PIFTypeRec;
+  fmod: tbtchar;
+  s,e: tbtString;
+  FStack: pointer;
+  ex: TPSExceptionHandler;
+
+
+begin
+  Decl := TPSInternalProcRec(Self^.Se.FProcs[Self^.ProcNo]).ExportDecl;
+
+  FStack := Stack;
+  Params := TPSList.Create;
+  s := decl;
+  grfw(s);
+  while s <> '' do
+  begin
+    Params.Add(nil);
+    grfw(s);
+  end;
+  c := Params.Count;
+  regno := 0;
+  Result := 0;
+  s := decl;
+  grfw(s);
+  for i := c-1 downto 0 do
+  begin
+    e := grfw(s);
+    fmod := e[1];
+    delete(e, 1, 1);
+    cpt := Self.Se.GetTypeNo(StrToInt(e));
+    if ((fmod = '%') or (fmod = '!') or (AlwaysAsVariable(cpt))) and (RegNo < 2) then
+    begin
+      tmp := CreateHeapVariant(self.Se.FindType2(btPointer));
+      PPSVariantPointer(tmp).DestType := cpt;
+      Params[i] := tmp;
+      case regno of
+        0: begin
+            PPSVariantPointer(tmp).DataDest := Pointer(_EDX);
+            inc(regno);
+          end;
+        1: begin
+            PPSVariantPointer(tmp).DataDest := Pointer(_ECX);
+            inc(regno);
+          end;
+(*        else begin
+            PPSVariantPointer(tmp).DataDest := Pointer(FStack^);
+            FStack := Pointer(IPointer(FStack) + 4);
+          end;*)
+      end;
+    end
+    else if SupportsRegister(cpt) and (RegNo < 2) then
+    begin
+      tmp := CreateHeapVariant(cpt);
+      Params[i] := tmp;
+      case regno of
+        0: begin
+            CopyArrayContents(@PPSVariantData(tmp)^.Data, @_EDX, 1, cpt);
+            inc(regno);
+          end;
+        1: begin
+            CopyArrayContents(@PPSVariantData(tmp)^.Data, @_ECX, 1, cpt);
+            inc(regno);
+          end;
+(*        else begin
+            CopyArrayContents(@PPSVariantData(tmp)^.Data, Pointer(FStack), 1, cpt);
+            FStack := Pointer(IPointer(FStack) + 4);
+          end;*)
+      end;
+(*    end else
+    begin
+      tmp := CreateHeapVariant(cpt);
+      Params[i] := tmp;
+      CopyArrayContents(@PPSVariantData(tmp)^.Data, Pointer(FStack), 1, cpt);
+      FStack := Pointer(IPointer(FStack) + cpt.RealSize + 3 and not 3);*)
+    end;
+  end;
+  s := decl;
+  e := grfw(s);
+
+  if e <> '-1' then
+  begin
+    cpt := Self.Se.GetTypeNo(StrToInt(e));
+    if not ResultAsRegister(cpt) then
+    begin
+      Res := CreateHeapVariant(Self.Se.FindType2(btPointer));
+      PPSVariantPointer(Res).DestType := cpt;
+      Params.Add(Res);
+      case regno of
+        0: begin
+            PPSVariantPointer(Res).DataDest := Pointer(_EDX);
+          end;
+        1: begin
+            PPSVariantPointer(Res).DataDest := Pointer(_ECX);
+          end;
+        else begin
+            PPSVariantPointer(Res).DataDest := Pointer(FStack^);
+            Inc(Result, PointerSize);
+          end;
+      end;
+    end else
+    begin
+      Res := CreateHeapVariant(cpt);
+      Params.Add(Res);
+    end;
+  end else Res := nil;
+  s := decl;
+  grfw(s);
+  for i := 0 to c -1 do
+  begin
+    e := grlw(s);
+    fmod := e[1];
+    delete(e, 1, 1);
+    if Params[i] <> nil then Continue;
+    cpt := Self.Se.GetTypeNo(StrToInt(e));
+    if (fmod = '%') or (fmod = '!') or (AlwaysAsVariable(cpt)) then
+    begin
+      tmp := CreateHeapVariant(self.Se.FindType2(btPointer));
+      PPSVariantPointer(tmp).DestType := cpt;
+      Params[i] := tmp;
+      PPSVariantPointer(tmp).DataDest := Pointer(FStack^);
+      FStack := Pointer(IPointer(FStack) + PointerSize);
+      Inc(Result, PointerSize);
+    end
+(*    else if SupportsRegister(cpt) then
+    begin
+      tmp := CreateHeapVariant(cpt);
+      Params[i] := tmp;
+      CopyArrayContents(@PPSVariantData(tmp)^.Data, Pointer(FStack), 1, cpt);
+      FStack := Pointer(IPointer(FStack) + 4);
+      end;
+    end *)else
+    begin
+      tmp := CreateHeapVariant(cpt);
+      Params[i] := tmp;
+      CopyArrayContents(@PPSVariantData(tmp)^.Data, Pointer(FStack), 1, cpt);
+      FStack := Pointer((IPointer(FStack) + cpt.RealSize + 3) and not 3);
+      Inc(Result, (cpt.RealSize + 3) and not 3);
+    end;
+  end;
+  ex := TPSExceptionHandler.Create;
+  ex.FinallyOffset := InvalidVal;
+  ex.ExceptOffset := InvalidVal;
+  ex.Finally2Offset := InvalidVal;
+  ex.EndOfBlock := InvalidVal;
+  ex.CurrProc := nil;
+  ex.BasePtr := Self.Se.FCurrStackBase;
+  Ex.StackSize := Self.Se.FStack.Count;
+  i :=  Self.Se.FExceptionStack.Add(ex);
+  Self.Se.RunProc(Params, Self.ProcNo);
+  if Self.Se.FExceptionStack[i] = ex then
+  begin
+    Self.Se.FExceptionStack.Remove(ex);
+    ex.Free;
+  end;
+
+  if (Res <> nil) then
+  begin
+    Params.DeleteLast;
+    if (ResultAsRegister(Res.FType)) then
+    begin
+      if (res^.FType.BaseType = btSingle) or (res^.FType.BaseType = btDouble) or
+      (res^.FType.BaseType = btCurrency) or (res^.Ftype.BaseType = btExtended) then
+      begin
+        case Res^.FType.BaseType of
+          btSingle: PutOnFPUStackExtended(PPSVariantSingle(res).Data);
+          btDouble: PutOnFPUStackExtended(PPSVariantDouble(res).Data);
+          btExtended: PutOnFPUStackExtended(PPSVariantExtended(res).Data);
+          btCurrency: PutOnFPUStackExtended(PPSVariantCurrency(res).Data);
+        end;
+        DestroyHeapVariant(Res);
+        Res := nil;
+      end else
+      begin
+{$IFNDEF PS_NOINT64}
+        if res^.FType.BaseType <> btS64 then
+{$ENDIF}
+          CopyArrayContents(Pointer(Longint(Stack)-PointerSize2), @PPSVariantData(res)^.Data, 1, Res^.FType);
+      end;
+    end;
+    DestroyHeapVariant(res);
+  end;
+  for i := 0 to Params.Count -1 do
+    DestroyHeapVariant(Params[i]);
+  Params.Free;
+  if Self.Se.ExEx <> erNoError then
+  begin
+    if Self.Se.ExObject <> nil then
+    begin
+      FStack := Self.Se.ExObject;
+      Self.Se.ExObject := nil;
+      raise TObject(FStack);
+    end else
+      raise EPSException.Create(PSErrorToString(Self.SE.ExceptionCode, Self.Se.ExceptionString), Self.Se, Self.Se.ExProc, Self.Se.ExPos);
+  end;
+end;
+{$endif}
+function TPSRuntimeClassImporter.FindClass(const Name: tbtString): TPSRuntimeClass;
+var
+  h, i: Longint;
+  lName: tbtstring;
+  p: TPSRuntimeClass;
+begin
+  lName := FastUpperCase(Name);
+  h := MakeHash(lName);
+  for i := FClasses.Count -1 downto 0 do
+  begin
+    p := FClasses[i];
+    if (p.FClassNameHash = h) and (p.FClassName = lName) then
+    begin
+      Result := P;
+      exit;
+    end;
+  end;
+  Result := nil;
+end;
+
+function DelphiFunctionProc(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack; CC: TPSCallingConvention): Boolean;
+var
+  i: Integer;
+  MyList: TPSList;
+  n: PPSVariantIFC;
+  CurrStack: Cardinal;
+  s: tbtString;
+begin
+  s := P.Decl;
+  if length(s) = 0 then begin Result := False; exit; end;
+  CurrStack := Cardinal(Stack.Count) - Cardinal(length(s));
+  if s[1] = #0 then inc(CurrStack);
+  MyList := TPSList.Create;
+
+  for i := 2 to length(s) do
+  begin
+    MyList.Add(nil);
+  end;
+  for i := length(s) downto 2 do
+  begin
+    MyList[i - 2] := NewPPSVariantIFC(Stack[CurrStack], s[i] <> #0);
+    inc(CurrStack);
+  end;
+  if s[1] <> #0 then
+  begin
+    n := NewPPSVariantIFC(Stack[CurrStack], True);
+  end else n := nil;
+  try
+    result := Caller.InnerfuseCall(p.Ext2, p.Ext1, cc, MyList, n);
+  finally
+    DisposePPSVariantIFC(n);
+    DisposePPSVariantIFCList(mylist);
+  end;
+end;
+
+function DelphiFunctionProc_CDECL(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+begin
+  Result := DelphiFunctionProc(Caller, p, Global, Stack, cdCdecl);
+end;
+function DelphiFunctionProc_Register(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+begin
+  Result := DelphiFunctionProc(Caller, p, Global, Stack, cdRegister);
+end;
+function DelphiFunctionProc_Pascal(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+begin
+  Result := DelphiFunctionProc(Caller, p, Global, Stack, cdPascal);
+end;
+function DelphiFunctionProc_Stdcall(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+begin
+  Result := DelphiFunctionProc(Caller, p, Global, Stack, cdStdCall);
+end;
+function DelphiFunctionProc_Safecall(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
+begin
+  Result := DelphiFunctionProc(Caller, p, Global, Stack, cdSafeCall);
+end;
+
+procedure TPSExec.RegisterDelphiFunction(ProcPtr: Pointer;
+  const Name: tbtString; CC: TPSCallingConvention);
+begin
+  RegisterDelphiMethod(nil, ProcPtr, FastUppercase(Name), CC);
+end;
+
+procedure TPSExec.RegisterDelphiMethod(Slf, ProcPtr: Pointer;
+  const Name: tbtString; CC: TPSCallingConvention);
+begin
+  case cc of
+    cdRegister: RegisterFunctionName(FastUppercase(Name), DelphiFunctionProc_Register, ProcPtr, Slf);
+    cdPascal: RegisterFunctionName(FastUppercase(Name), DelphiFunctionProc_Pascal, ProcPtr, Slf);
+    cdStdCall: RegisterFunctionName(FastUppercase(Name), DelphiFunctionProc_Stdcall, ProcPtr, Slf);
+    cdSafeCall: RegisterFunctionName(FastUppercase(Name), DelphiFunctionProc_Safecall, ProcPtr, Slf);
+    cdCdecl: RegisterFunctionName(FastUppercase(Name), DelphiFunctionProc_CDECL, ProcPtr, Slf);
+  end;
+end;
+
+{ EPSException }
+
+constructor EPSException.Create(const Error: tbtString; Exec: TPSExec;
+  Procno, ProcPos: Cardinal);
+begin
+ inherited Create(string(Error));
+ FExec := Exec;
+ FProcNo := Procno;
+ FProcPos := ProcPos;
+end;
+
+{ TPSRuntimeAttribute }
+
+function TPSRuntimeAttribute.AddValue(aType: TPSTypeRec): PPSVariant;
+begin
+  Result := FValues.PushType(aType);
+end;
+
+procedure TPSRuntimeAttribute.AdjustSize;
+begin
+  FValues.Capacity := FValues.Length;
+end;
+
+constructor TPSRuntimeAttribute.Create(Owner: TPSRuntimeAttributes);
+begin
+  inherited Create;
+  FOwner := Owner;
+  FValues := TPSStack.Create;
+end;
+
+procedure TPSRuntimeAttribute.DeleteValue(i: Longint);
+begin
+  if Cardinal(i) <> Cardinal(FValues.Count -1) then
+    raise Exception.Create(RPS_CanOnlySendLastItem);
+  FValues.Pop;
+end;
+
+destructor TPSRuntimeAttribute.Destroy;
+begin
+  FValues.Free;
+  inherited Destroy;
+end;
+
+function TPSRuntimeAttribute.GetValue(I: Longint): PIFVariant;
+begin
+  Result := FValues[i];
+end;
+
+function TPSRuntimeAttribute.GetValueCount: Longint;
+begin
+  Result := FValues.Count;
+end;
+
+{ TPSRuntimeAttributes }
+
+function TPSRuntimeAttributes.Add: TPSRuntimeAttribute;
+begin
+  Result := TPSRuntimeAttribute.Create(Self);
+  FAttributes.Add(Result);
+end;
+
+constructor TPSRuntimeAttributes.Create(AOwner: TPSExec);
+begin
+  inherited Create;
+  FAttributes := TPSList.Create;
+  FOwner := AOwner;
+end;
+
+procedure TPSRuntimeAttributes.Delete(I: Longint);
+begin
+  TPSRuntimeAttribute(FAttributes[i]).Free;
+  FAttributes.Delete(i);
+end;
+
+destructor TPSRuntimeAttributes.Destroy;
+var
+  i: Longint;
+begin
+  for i := FAttributes.Count -1 downto 0 do
+    TPSRuntimeAttribute(FAttributes[i]).Free;
+  FAttributes.Free;
+  inherited Destroy;
+end;
+
+function TPSRuntimeAttributes.FindAttribute(
+  const Name: tbtString): TPSRuntimeAttribute;
+var
+  n: tbtString;
+  i, h: Longint;
+begin
+  n := FastUpperCase(Name);
+  h := MakeHash(n);
+  for i := 0 to FAttributes.Count -1 do
+  begin
+    Result := FAttributes[i];
+    if (Result.AttribTypeHash = h) and (Result.AttribType = n) then
+      exit;
+  end;
+  Result := nil;
+end;
+
+function TPSRuntimeAttributes.GetCount: Longint;
+begin
+   Result := FAttributes.Count;
+end;
+
+function TPSRuntimeAttributes.GetItem(I: Longint): TPSRuntimeAttribute;
+begin
+  Result := FAttributes[i];
+end;
+
+{ TPSInternalProcRec }
+
+destructor TPSInternalProcRec.Destroy;
+begin
+  if FData <> nil then
+    Freemem(Fdata, FLength);
+  inherited Destroy;
+end;
+
+{ TPsProcRec }
+
+constructor TPSProcRec.Create(Owner: TPSExec);
+begin
+  inherited Create;
+  FAttributes := TPSRuntimeAttributes.Create(Owner);
+end;
+
+destructor TPSProcRec.Destroy;
+begin
+  FAttributes.Free;
+  inherited Destroy;
+end;
+
+{ TPSTypeRec_Array }
+
+procedure TPSTypeRec_Array.CalcSize;
+begin
+  FrealSize := PointerSize;
+end;
+
+{ TPSTypeRec_StaticArray }
+
+procedure TPSTypeRec_StaticArray.CalcSize;
+begin
+  FrealSize := Cardinal(FArrayType.RealSize) * Cardinal(Size);
+end;
+
+{ TPSTypeRec_Set }
+
+procedure TPSTypeRec_Set.CalcSize;
+begin
+  FrealSize := FByteSize;
+end;
+
+const
+  MemDelta = 4096;
+
+{ TPSStack }
+
+procedure TPSStack.AdjustLength;
+var
+  MyLen: Longint;
+begin
+  MyLen := ((FLength shr 12) + 1) shl 12;
+
+  SetCapacity(MyLen);
+end;
+
+procedure TPSStack.Clear;
+var
+  v: Pointer;
+  i: Longint;
+begin
+  for i := Count -1 downto 0 do
+  begin
+    v := Data[i];
+    if TPSTypeRec(v^).BaseType in NeedFinalization then
+      FinalizeVariant(Pointer(IPointer(v)+PointerSize), TPSTypeRec(v^));
+  end;
+  inherited Clear;
+  FLength := 0;
+  SetCapacity(0);
+end;
+
+constructor TPSStack.Create;
+begin
+  inherited Create;
+  GetMem(FDataPtr, MemDelta);
+  FCapacity := MemDelta;
+  FLength := 0;
+end;
+
+destructor TPSStack.Destroy;
+var
+  v: Pointer;
+  i: Longint;
+begin
+  for i := Count -1 downto 0 do
+  begin
+    v := Data[i];
+    if TPSTypeRec(v^).BaseType in NeedFinalization then
+    FinalizeVariant(Pointer(IPointer(v)+PointerSize), Pointer(v^));
+  end;
+  FreeMem(FDataPtr, FCapacity);
+  inherited Destroy;
+end;
+
+function TPSStack.GetBool(ItemNo: Longint): Boolean;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := Items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := Items[ItemNo];
+  Result := PSGetUInt(@PPSVariantData(val).Data, val.FType) <> 0;
+end;
+
+function TPSStack.GetClass(ItemNo: Longint): TObject;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := Items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := Items[ItemNo];
+  Result := PSGetObject(@PPSVariantData(val).Data, val.FType);
+end;
+
+function TPSStack.GetCurrency(ItemNo: Longint): Currency;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := Items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := Items[ItemNo];
+  Result := PSGetCurrency(@PPSVariantData(val).Data, val.FType);
+end;
+
+function TPSStack.GetInt(ItemNo: Longint): Longint;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  Result := PSGetInt(@PPSVariantData(val).Data, val.FType);
+end;
+
+{$IFNDEF PS_NOINT64}
+function TPSStack.GetInt64(ItemNo: Longint): Int64;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  Result := PSGetInt64(@PPSVariantData(val).Data, val.FType);
+end;
+{$ENDIF}
+
+function TPSStack.GetItem(I: Longint): PPSVariant;
+begin
+  if Cardinal(I) >= Cardinal(Count) then
+    Result := nil
+  else
+    Result := Data[i];
+end;
+
+function TPSStack.GetReal(ItemNo: Longint): Extended;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  Result := PSGetreal(@PPSVariantData(val).Data, val.FType);
+end;
+
+function TPSStack.GetAnsiString(ItemNo: Longint): tbtString;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  Result := PSGetAnsiString(@PPSVariantData(val).Data, val.FType);
+end;
+
+function TPSStack.GetString(ItemNo: Longint): string; // calls the native method
+begin
+  result := {$IFDEF DELPHI2009UP}GetUnicodeString(ItemNo){$ELSE}GetAnsiString(ItemNo){$ENDIF};
+end;
+
+function TPSStack.GetUInt(ItemNo: Longint): Cardinal;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  Result := PSGetUInt(@PPSVariantData(val).Data, val.FType);
+end;
+
+function TPSStack.GetUnicodeString(ItemNo: Integer): tbtunicodestring;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  Result := PSGetUnicodeString(@PPSVariantData(val).Data, val.FType);
+end;
+
+{$IFNDEF PS_NOWIDESTRING}
+function TPSStack.GetWideString(ItemNo: Longint): tbtWideString;
+var
+  val: PPSVariant;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  Result := PSGetWideString(@PPSVariantData(val).Data, val.FType);
+end;
+{$ENDIF}
+
+procedure TPSStack.Pop;
+var
+  p1: Pointer;
+  c: Longint;
+begin
+  c := count -1;
+  p1 := Data[c];
+  DeleteLast;
+  FLength := IPointer(p1) - IPointer(FDataPtr);
+  if TPSTypeRec(p1^).BaseType in NeedFinalization then
+    FinalizeVariant(Pointer(IPointer(p1)+PointerSize), Pointer(p1^));
+  if ((FCapacity - FLength) shr 12) > 2 then AdjustLength;
+end;
+
+function TPSStack.Push(TotalSize: Longint): PPSVariant;
+var
+  o: Cardinal;
+  p: Pointer;
+begin
+  o := FLength;
+  FLength := (FLength + TotalSize);
+  if FLength mod PointerSize <> 0 then
+    FLength := FLength + (PointerSize - (FLength mod PointerSize));
+  if FLength > FCapacity then AdjustLength;
+  p := Pointer(IPointer(FDataPtr) + IPointer(o));
+  Add(p);
+  Result := P;
+end;
+
+function TPSStack.PushType(aType: TPSTypeRec): PPSVariant;
+begin
+  Result := Push(aType.RealSize + Sizeof(Pointer));
+  Result.FType := aType;
+  InitializeVariant(Pointer(IPointer(Result)+PointerSize), aType);
+end;
+
+procedure TPSStack.SetBool(ItemNo: Longint; const Data: Boolean);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  if Data then
+    PSSetUInt(@PPSVariantData(val).Data, val.FType, ok, 1)
+  else
+    PSSetUInt(@PPSVariantData(val).Data, val.FType, ok, 0);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+
+procedure TPSStack.SetCapacity(const Value: Longint);
+var
+  p: Pointer;
+  OOFS: IPointer;
+  I: Longint;
+begin
+  if Value < FLength then raise Exception.Create(RPS_CapacityLength);
+  if Value = 0 then
+  begin
+    if FDataPtr <> nil then
+    begin
+      FreeMem(FDataPtr, FCapacity);
+      FDataPtr := nil;
+    end;
+    FCapacity := 0;
+  end;
+  GetMem(p, Value);
+  if FDataPtr <> nil then
+  begin
+    if FLength > FCapacity then
+      OOFS := FCapacity
+    else
+      OOFS := FLength;
+    Move(FDataPtr^, p^, OOFS);
+    OOFS := IPointer(P) - IPointer(FDataPtr);
+
+    for i := Count -1 downto 0 do begin
+      Data[i] := Pointer(IPointer(Data[i]) + OOFS);
+      if Items[i].FType.FBaseType = btPointer then begin // check if pointer points to moved stack data
+        if (IPointer(PPSVariantPointer(Data[i]).DataDest) >= IPointer(FDataPtr)) and
+           (IPointer(PPSVariantPointer(Data[i]).DataDest) <  IPointer(FDataPtr)+IPointer(FLength)) then
+          PPSVariantPointer(Data[i]).DataDest := Pointer(IPointer(PPSVariantPointer(Data[i]).DataDest) + OOFS);
+      end;
+    end;
+
+    FreeMem(FDataPtr, FCapacity);
+  end;
+  FDataPtr := p;
+  FCapacity := Value;
+end;
+
+procedure TPSStack.SetClass(ItemNo: Longint; const Data: TObject);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetObject(@PPSVariantData(val).Data, val.FType, ok, Data);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+
+procedure TPSStack.SetCurrency(ItemNo: Longint; const Data: Currency);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetCurrency(@PPSVariantData(val).Data, val.FType, ok, Data);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+
+procedure TPSStack.SetInt(ItemNo: Longint; const Data: Longint);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetInt(@PPSVariantData(val).Data, val.FType, ok, Data);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+
+{$IFNDEF PS_NOINT64}
+procedure TPSStack.SetInt64(ItemNo: Longint; const Data: Int64);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetInt64(@PPSVariantData(val).Data, val.FType, ok, Data);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+{$ENDIF}
+
+procedure TPSStack.SetReal(ItemNo: Longint; const Data: Extended);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetReal(@PPSVariantData(val).Data, val.FType, ok, Data);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+
+procedure TPSStack.SetAnsiString(ItemNo: Longint; const Data: tbtString);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetAnsiString(@PPSVariantData(val).Data, val.FType, ok, Data);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+
+procedure TPSStack.SetString(ItemNo: Longint; const Data: string);
+begin
+  {$IFDEF DELPHI2009UP}
+  SetUnicodeString(ItemNo, Data);
+  {$ELSE}
+  SetAnsiString(ItemNo, Data);
+  {$ENDIF}
+end;
+
+
+procedure TPSStack.SetUInt(ItemNo: Longint; const Data: Cardinal);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetUInt(@PPSVariantData(val).Data, val.FType, ok, Data);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+
+
+{$IFNDEF PS_NOWIDESTRING}
+procedure TPSStack.SetUnicodeString(ItemNo: Integer;
+  const Data: tbtunicodestring);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetUnicodeString(@PPSVariantData(val).Data, val.FType, ok, Data);
+end;
+
+procedure TPSStack.SetWideString(ItemNo: Longint;
+  const Data: tbtWideString);
+var
+  val: PPSVariant;
+  ok: Boolean;
+begin
+  if ItemNo < 0 then
+    val := items[Longint(ItemNo) + Longint(Count)]
+  else
+    val := items[ItemNo];
+  ok := true;
+  PSSetWideString(@PPSVariantData(val).Data, val.FType, ok, Data);
+  if not ok then raise Exception.Create(RPS_TypeMismatch);
+end;
+{$ENDIF}
+
+
+{$IFNDEF PS_NOIDISPATCH}
+var
+  DispPropertyPut: Integer = DISPID_PROPERTYPUT;
+const
+  LOCALE_SYSTEM_DEFAULT = 2 shl 10; // Delphi 2 doesn't define this
+
+function IDispatchInvoke(Self: IDispatch; PropertySet: Boolean; const Name: tbtString; const Par: array of Variant): Variant;
+var
+  Param: Word;
+  i, ArgErr: Longint;
+  DispatchId: Longint;
+  DispParam: TDispParams;
+  ExceptInfo: TExcepInfo;
+  aName: PWideChar;
+  WSFreeList: TPSList;
+begin
+  FillChar(ExceptInfo, SizeOf(ExceptInfo), 0);
+  if Name='' then begin
+   DispatchId:=0;
+  end else begin
+   aName := StringToOleStr(Name);
+   try
+     if Self = nil then
+      raise Exception.Create(RPS_NILInterfaceException);
+     if Self.GetIDsOfNames(GUID_NULL, @aName, 1, LOCALE_SYSTEM_DEFAULT, @DispatchId) <> S_OK then
+      raise Exception.Create(RPS_UnknownMethod);
+   finally
+     SysFreeString(aName);
+   end;
+  end;
+  DispParam.cNamedArgs := 0;
+  DispParam.rgdispidNamedArgs := nil;
+  DispParam.cArgs := (High(Par) + 1);
+
+  if PropertySet then
+  begin
+    Param := DISPATCH_PROPERTYPUT;
+    DispParam.cNamedArgs := 1;
+    DispParam.rgdispidNamedArgs := @DispPropertyPut;
+  end else
+    Param := DISPATCH_METHOD or DISPATCH_PROPERTYGET;
+
+  WSFreeList := TPSList.Create;
+  try
+    GetMem(DispParam.rgvarg, sizeof(TVariantArg) * (High(Par) + 1));
+    FillCHar(DispParam.rgvarg^, sizeof(TVariantArg) * (High(Par) + 1), 0);
+    try
+      for i := 0 to High(Par)  do
+      begin
+        if PVarData(@Par[High(Par)-i]).VType = varString then
+        begin
+          DispParam.rgvarg[i].vt := VT_BSTR;
+          DispParam.rgvarg[i].bstrVal := StringToOleStr(AnsiString(Par[High(Par)-i]));
+          WSFreeList.Add(DispParam.rgvarg[i].bstrVal);
+        {$IFDEF UNICODE}
+        end else if (PVarData(@Par[High(Par)-i]).VType = varOleStr) or (PVarData(@Par[High(Par)-i]).VType = varUString) then
+        begin
+          DispParam.rgvarg[i].vt := VT_BSTR;
+          DispParam.rgvarg[i].bstrVal := StringToOleStr(UnicodeString(Par[High(Par)-i]));
+          WSFreeList.Add(DispParam.rgvarg[i].bstrVal);
+        {$ENDIF}
+        end else
+        begin
+          DispParam.rgvarg[i].vt := VT_VARIANT or VT_BYREF;
+          New(
+          {$IFDEF DELPHI4UP}
+          POleVariant
+          {$ELSE}
+          PVariant{$ENDIF}
+           (DispParam.rgvarg[i].pvarVal));
+
+          (*
+          {$IFDEF DELPHI4UP}
+            POleVariant
+          {$ELSE}
+            PVariant
+          {$ENDIF}
+           (DispParam.rgvarg[i].pvarVal)^ := Par[High(Par)-i];
+          *)
+          Move(Par[High(Par)-i],Pointer(DispParam.rgvarg[i].pvarVal)^,
+           Sizeof({$IFDEF DELPHI4UP}OleVariant{$ELSE}Variant{$ENDIF}));
+
+        end;
+      end;
+      i :=Self.Invoke(DispatchId, GUID_NULL, LOCALE_SYSTEM_DEFAULT, Param, DispParam, @Result, @ExceptInfo, @ArgErr);
+      {$IFNDEF Delphi3UP}
+      try
+       if not Succeeded(i) then
+       begin
+         if i = DISP_E_EXCEPTION then
+           raise Exception.Create(OleStrToString(ExceptInfo.bstrSource)+': '+OleStrToString(ExceptInfo.bstrDescription))
+         else
+           raise Exception.Create(SysErrorMessage(i));
+       end;
+      finally
+        SysFreeString(ExceptInfo.bstrSource);
+        SysFreeString(ExceptInfo.bstrDescription);
+        SysFreeString(ExceptInfo.bstrHelpFile);
+      end;
+      {$ELSE}
+       if not Succeeded(i) then
+       begin
+         if i = DISP_E_EXCEPTION then
+           raise Exception.Create(ExceptInfo.bstrSource+': '+ExceptInfo.bstrDescription)
+         else
+           raise Exception.Create(SysErrorMessage(i));
+       end;
+      {$ENDIF}
+    finally
+      for i := 0 to High(Par)  do
+      begin
+        if DispParam.rgvarg[i].vt = (VT_VARIANT or VT_BYREF) then
+        begin
+          if{$IFDEF DELPHI4UP}POleVariant{$ELSE}PVariant{$ENDIF}
+            (DispParam.rgvarg[i].pvarVal) <> nil then
+            Dispose(
+            {$IFDEF DELPHI4UP}
+             POleVariant
+            {$ELSE}
+             PVariant
+            {$ENDIF}
+             (DispParam.rgvarg[i].pvarVal));
+        end;
+      end;
+      FreeMem(DispParam.rgvarg, sizeof(TVariantArg) * (High(Par) + 1));
+    end;
+  finally
+    for i := WSFreeList.Count -1 downto 0 do
+      SysFreeString(WSFreeList[i]);
+    WSFreeList.Free;
+  end;
+end;
+{$ENDIF}
+
+
+{ TPSTypeRec_ProcPtr }
+
+procedure TPSTypeRec_ProcPtr.CalcSize;
+begin
+  FRealSize := 2 * sizeof(Pointer) + Sizeof(Cardinal);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSUtils.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSUtils.pas
new file mode 100644
index 0000000..76f2d48
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uPSUtils.pas	
@@ -0,0 +1,1592 @@
+unit uPSUtils;
+{$I PascalScript.inc}
+
+interface
+uses
+  Classes, SysUtils {$IFDEF VER130}, Windows {$ENDIF};
+
+const
+
+  PSMainProcName = '!MAIN';
+
+  PSMainProcNameOrg = 'Main Proc';
+
+  PSLowBuildSupport = 12;
+
+  PSCurrentBuildNo = 23;
+
+  PSCurrentversion = '1.31';
+
+  PSValidHeader = 1397769801;
+
+  PSAddrStackStart = 1610612736;
+
+  PSAddrNegativeStackStart = 1073741824;
+type
+  TbtString = {$IFDEF DELPHI2009UP}AnsiString{$ELSE}String{$ENDIF};
+
+  TPSBaseType = Byte;
+
+  TPSVariableType = (ivtGlobal, ivtParam, ivtVariable);
+
+const
+
+  btReturnAddress   = 0;
+
+  btU8              = 1;
+
+  btS8              = 2;
+
+  btU16             = 3;
+
+  btS16             = 4;
+
+  btU32             = 5;
+
+  btS32             = 6;
+
+  btSingle          = 7;
+
+  btDouble          = 8;
+
+  btExtended        = 9;
+
+  btString          = 10;
+
+  btRecord          = 11;
+
+  btArray           = 12;
+
+  btPointer         = 13;
+
+  btPChar           = 14;
+
+  btResourcePointer = 15;
+
+  btVariant         = 16;
+
+{$IFNDEF PS_NOINT64}
+  btS64             = 17;
+{$ENDIF}
+
+  btChar            = 18;
+
+{$IFNDEF PS_NOWIDESTRING}
+  btWideString      = 19;
+
+  btWideChar        = 20;
+{$ENDIF}
+
+  btProcPtr         = 21;
+
+  btStaticArray     = 22;
+
+  btSet             = 23;
+
+  btCurrency        = 24;
+
+  btClass           = 25;
+
+  btInterface       = 26;
+
+  btNotificationVariant = 27;
+
+  btUnicodeString = 28;
+
+  btType = 130;
+
+  btEnum = 129;
+
+  btExtClass = 131;
+
+function MakeHash(const s:  TbtString): Longint;
+
+const
+{ Script internal command: Assign command<br>
+    Command: TPSCommand;<br>
+    VarDest, // no data<br>
+    VarSrc: TPSVariable;<br>
+}
+  CM_A = 0;
+{ Script internal command: Calculate Command<br>
+    Command: TPSCommand; <br>
+    CalcType: Byte;<br>
+    <i><br>
+      0 = +<br>
+      1 = -<br>
+      2 = *<br>
+      3 = /<br>
+      4 = MOD<br>
+      5 = SHL<br>
+      6 = SHR<br>
+      7 = AND<br>
+      8 = OR<br>
+      9 = XOR<br>
+    </i><br>
+    VarDest, // no data<br>
+    VarSrc: TPSVariable;<br>
+<br>
+}
+  CM_CA = 1;
+{ Script internal command: Push<br>
+    Command: TPSCommand; <br>
+    Var: TPSVariable;<br>
+}
+  CM_P = 2;
+{ Script internal command: Push Var<br>
+    Command: TPSCommand; <br>
+    Var: TPSVariable;<br>
+}
+  CM_PV = 3;
+{ Script internal command: Pop<br>
+    Command: TPSCommand; <br>
+}
+  CM_PO = 4;
+{ Script internal command: Call<br>
+    Command: TPSCommand; <br>
+    ProcNo: Longword;<br>
+}
+  Cm_C = 5;
+{ Script internal command: Goto<br>
+    Command: TPSCommand; <br>
+    NewPosition: Longint; //relative to end of this instruction<br>
+}
+  Cm_G = 6;
+{ Script internal command: Conditional Goto<br>
+    Command: TPSCommand; <br>
+    NewPosition: LongWord; //relative to end of this instruction<br>
+    Var: TPSVariable; // no data<br>
+}
+  Cm_CG = 7;
+{ Script internal command: Conditional NOT Goto<br>
+    Command: TPSCommand; <br>
+    NewPosition: LongWord; // relative to end of this instruction<br>
+    Var: TPSVariable; // no data<br>
+}
+  Cm_CNG = 8;
+{ Script internal command: Ret<br>
+    Command: TPSCommand; <br>
+}
+  Cm_R = 9;
+{ Script internal command: Set Stack Type<br>
+    Command: TPSCommand; <br>
+    NewType: LongWord;<br>
+    OffsetFromBase: LongWord;<br>
+}
+  Cm_ST = 10;
+{ Script internal command: Push Type<br>
+    Command: TPSCommand; <br>
+    FType: LongWord;<br>
+}
+  Cm_Pt = 11;
+{ Script internal command: Compare<br>
+    Command: TPSCommand; <br>
+    CompareType: Byte;<br>
+    <i><br>
+     0 = &gt;=<br>
+     1 = &lt;=<br>
+     2 = &gt;<br>
+     3 = &lt;<br>
+     4 = &lt;&gt<br>
+     5 = =<br>
+    <i><br>
+    IntoVar: TPSAssignment;<br>
+    Compare1, Compare2: TPSAssigment;<br>
+}
+  CM_CO = 12;
+{ Script internal command: Call Var<br>
+    Command: TPSCommand; <br>
+    Var: TPSVariable;<br>
+}
+  Cm_cv = 13;
+{ Script internal command: Set Pointer<br>
+    Command: TPSCommand; <br>
+    VarDest: TPSVariable;<br>
+    VarSrc: TPSVariable;<br>
+}
+  cm_sp = 14;
+{ Script internal command: Boolean NOT<br>
+    Command: TPSCommand; <br>
+    Var: TPSVariable;<br>
+}
+  cm_bn = 15;
+{ Script internal command: Var Minus<br>
+    Command: TPSCommand; <br>
+    Var: TPSVariable;
+}
+  cm_vm = 16;
+{ Script internal command: Set Flag<br>
+    Command: TPSCommand; <br>
+    Var: TPSVariable;<br>
+    DoNot: Boolean;<br>
+}
+  cm_sf = 17;
+{ Script internal command: Flag Goto<br>
+    Command: TPSCommand; <br>
+    Where: Cardinal;<br>
+}
+  cm_fg = 18;
+{ Script internal command: Push Exception Handler<br>
+    Command: TPSCommand; <br>
+    FinallyOffset,<br>
+    ExceptionOffset, // FinallyOffset or ExceptionOffset need to be set.<br>
+    Finally2Offset,<br>
+    EndOfBlock: Cardinal;<br>
+}
+  cm_puexh = 19;
+{ Script internal command: Pop Exception Handler<br>
+    Command:TPSCommand; <br>
+    Position: Byte;<br>
+    <i> 0 = end of try/finally/exception block;<br>
+      1 = end of first finally<br>
+      2 = end of except<br>
+      3 = end of second finally<br>
+    </i><br>
+}
+  cm_poexh = 20;
+{ Script internal command: Integer NOT<br>
+    Command: TPSCommand; <br>
+    Where: Cardinal;<br>
+}
+  cm_in = 21;
+  {Script internal command: Set Stack Pointer To Copy<br>
+      Command: TPSCommand; <br>
+    Where: Cardinal;<br>
+}
+  cm_spc = 22;
+  {Script internal command: Inc<br>
+    Command: TPSCommand; <br>
+    Var: TPSVariable;<br>
+  }
+  cm_inc = 23;
+  {Script internal command: Dec<br>
+      Command: TPSCommand; <br>
+    Var: TPSVariable;<br>
+  }
+  cm_dec = 24;
+  {Script internal command: nop<br>
+      Command: TPSCommand; <br>}
+  cm_nop = 255;
+{ Script internal command: Pop and Goto<br>
+    Command: TPSCommand; <br>
+    NewPosition: Longint; //relative to end of this instruction<br>
+}
+  Cm_PG = 25;
+{ Script internal command: Pop*2 and Goto<br>
+    Command: TPSCommand; <br>
+    NewPosition: Longint; //relative to end of this instruction<br>
+}
+  Cm_P2G = 26;
+
+
+type
+
+  TbtU8 = Byte;
+
+  TbtS8 = ShortInt;
+
+  TbtU16 = Word;
+
+  TbtS16 = SmallInt;
+
+  TbtU32 = Cardinal;
+
+  TbtS32 = Longint;
+
+  TbtSingle = Single;
+
+  TbtDouble = double;
+
+  TbtExtended = Extended;
+
+  tbtCurrency = Currency;
+
+{$IFNDEF PS_NOINT64}
+
+  tbts64 = int64;
+{$ENDIF}
+
+  tbtchar = {$IFDEF DELPHI4UP}AnsiChar{$ELSE}CHAR{$ENDIF};
+{$IFNDEF PS_NOWIDESTRING}
+
+  tbtwidestring = widestring;
+  tbtunicodestring = {$IFDEF DELPHI2009UP}UnicodeString{$ELSE}widestring{$ENDIF};
+
+  tbtwidechar = widechar;
+  tbtNativeString = {$IFDEF DELPHI2009UP}tbtUnicodeString{$ELSE}tbtString{$ENDIF};
+{$ENDIF}
+{$IFDEF FPC}
+  IPointer = PtrUInt;
+{$ELSE}
+  {$IFDEF CPU64} IPointer = LongWord;{$ELSE}  IPointer = Cardinal;{$ENDIF}
+{$ENDIF}
+  TPSCallingConvention = (cdRegister, cdPascal, cdCdecl, cdStdCall, cdSafeCall);
+
+
+const
+
+  PointerSize = IPointer({$IFDEF CPU64}8{$ELSE}4{$ENDIF});
+  PointerSize2 = IPointer(2*PointerSize);
+  MaxListSize = Maxint div 16;
+
+type
+
+  PPointerList = ^TPointerList;
+
+  TPointerList = array[0..MaxListSize - 1] of Pointer;
+
+
+  TPSList = class(TObject)
+  protected
+
+    FData: PPointerList;
+
+    FCapacity: Cardinal;
+
+    FCount: Cardinal;
+
+    FCheckCount: Cardinal;
+  private
+    function GetItem(Nr: Cardinal): Pointer;
+    procedure SetItem(Nr: Cardinal; P: Pointer);
+  public
+    {$IFNDEF PS_NOSMARTLIST}
+
+    procedure Recreate;
+    {$ENDIF}
+
+    property Data: PPointerList read FData;
+
+    constructor Create;
+
+    function IndexOf(P: Pointer): Longint;
+
+    destructor Destroy; override;
+
+    property Count: Cardinal read FCount;
+
+    property Items[nr: Cardinal]: Pointer read GetItem write SetItem; default;
+
+    function Add(P: Pointer): Longint;
+
+    procedure AddBlock(List: PPointerList; Count: Longint);
+
+    procedure Remove(P: Pointer);
+
+    procedure Delete(Nr: Cardinal);
+
+    procedure DeleteLast;
+
+    procedure Clear; virtual;
+  end;
+  TIFList = TPSList;
+
+  TPSStringList = class(TObject)
+  private
+    List: TPSList;
+    function GetItem(Nr: LongInt): TbtString;
+    procedure SetItem(Nr: LongInt; const s: TbtString);
+  public
+
+    function Count: LongInt;
+
+    property Items[Nr: Longint]: TbtString read GetItem write SetItem; default;
+
+
+    procedure Add(const P: TbtString);
+
+    procedure Delete(NR: LongInt);
+
+    procedure Clear;
+
+    constructor Create;
+
+    destructor Destroy; override;
+  end;
+  TIFStringList = TPsStringList;
+
+
+type
+
+  TPSPasToken = (
+    CSTI_EOF,
+
+    CSTIINT_Comment,
+    CSTIINT_WhiteSpace,
+
+    CSTI_Identifier,
+    CSTI_SemiColon,
+    CSTI_Comma,
+    CSTI_Period,
+    CSTI_Colon,
+    CSTI_OpenRound,
+    CSTI_CloseRound,
+    CSTI_OpenBlock,
+    CSTI_CloseBlock,
+    CSTI_Assignment,
+    CSTI_Equal,
+    CSTI_NotEqual,
+    CSTI_Greater,
+    CSTI_GreaterEqual,
+    CSTI_Less,
+    CSTI_LessEqual,
+    CSTI_Plus,
+    CSTI_Minus,
+    CSTI_Divide,
+    CSTI_Multiply,
+    CSTI_Integer,
+    CSTI_Real,
+    CSTI_String,
+    CSTI_Char,
+    CSTI_HexInt,
+    CSTI_AddressOf,
+    CSTI_Dereference,
+    CSTI_TwoDots,
+
+    CSTII_and,
+    CSTII_array,
+    CSTII_begin,
+    CSTII_case,
+    CSTII_const,
+    CSTII_div,
+    CSTII_do,
+    CSTII_downto,
+    CSTII_else,
+    CSTII_end,
+    CSTII_for,
+    CSTII_function,
+    CSTII_if,
+    CSTII_in,
+    CSTII_mod,
+    CSTII_not,
+    CSTII_of,
+    CSTII_or,
+    CSTII_procedure,
+    CSTII_program,
+    CSTII_repeat,
+    CSTII_record,
+    CSTII_set,
+    CSTII_shl,
+    CSTII_shr,
+    CSTII_then,
+    CSTII_to,
+    CSTII_type,
+    CSTII_until,
+    CSTII_uses,
+    CSTII_var,
+    CSTII_while,
+    CSTII_with,
+    CSTII_xor,
+    CSTII_exit,
+    CSTII_class,
+    CSTII_constructor,
+    CSTII_destructor,
+    CSTII_inherited,
+    CSTII_private,
+    CSTII_public,
+    CSTII_published,
+    CSTII_protected,
+    CSTII_property,
+    CSTII_virtual,
+    CSTII_override,
+    //CSTII_default, //Birb
+    CSTII_As,
+    CSTII_Is,
+    CSTII_Unit,
+    CSTII_Try,
+    CSTII_Except,
+    CSTII_Finally,
+    CSTII_External,
+    CSTII_Forward,
+    CSTII_Export,
+    CSTII_Label,
+    CSTII_Goto,
+    CSTII_Chr,
+    CSTII_Ord,
+    CSTII_Interface,
+    CSTII_Implementation,
+    CSTII_initialization,            //* Nvds
+    CSTII_finalization,              //* Nvds
+    CSTII_out,
+    CSTII_nil
+    );
+
+  TPSParserErrorKind = (iNoError
+  , iCommentError
+  , iStringError
+  , iCharError
+  , iSyntaxError
+  );
+  TPSParserErrorEvent = procedure (Parser: TObject; Kind: TPSParserErrorKind) of object;
+
+
+  TPSPascalParser = class(TObject)
+  protected
+    FData: TbtString;
+    FText: {$IFDEF DELPHI4UP}PAnsiChar{$ELSE}PChar{$ENDIF};
+    FLastEnterPos, FRow, FRealPosition, FTokenLength: Cardinal;
+    FTokenId: TPSPasToken;
+    FToken: TbtString;
+    FOriginalToken: TbtString;
+    FParserError: TPSParserErrorEvent;
+    FEnableComments: Boolean;
+    FEnableWhitespaces: Boolean;
+    function GetCol: Cardinal;
+    // only applicable when Token in [CSTI_Identifier, CSTI_Integer, CSTI_Real, CSTI_String, CSTI_Char, CSTI_HexInt]
+  public
+
+    property EnableComments: Boolean read FEnableComments write FEnableComments;
+
+    property EnableWhitespaces: Boolean read FEnableWhitespaces write FEnableWhitespaces;
+
+    procedure Next; virtual;
+
+    property GetToken: TbtString read FToken;
+
+    property OriginalToken: TbtString read FOriginalToken;
+
+    property CurrTokenPos: Cardinal read FRealPosition;
+
+    property CurrTokenID: TPSPasToken read FTokenId;
+
+    property Row: Cardinal read FRow;
+
+    property Col: Cardinal read GetCol;
+
+    procedure SetText(const Data: TbtString); virtual;
+
+    property OnParserError: TPSParserErrorEvent read FParserError write FParserError;
+  end;
+
+function FloatToStr(E: Extended): TbtString;
+
+function FastLowerCase(const s: TbtString): TbtString;
+
+function Fw(const S: TbtString): TbtString;
+
+function IntToStr(I: LongInt): TbtString;
+
+function StrToIntDef(const S: TbtString; Def: LongInt): LongInt;
+
+function StrToInt(const S: TbtString): LongInt;
+function StrToFloat(const s: TbtString): Extended;
+
+function FastUpperCase(const s: TbtString): TbtString;
+
+function GRFW(var s: TbtString): TbtString;
+function GRLW(var s: TbtString): TbtString;
+
+const
+
+  FCapacityInc = 32;
+{$IFNDEF PS_NOSMARTLIST}
+
+  FMaxCheckCount = (FCapacityInc div 4) * 64;
+{$ENDIF}
+
+{$IFDEF VER130}
+function WideUpperCase(const S: WideString): WideString;
+function WideLowerCase(const S: WideString): WideString;
+{$ENDIF}
+implementation
+
+{$IFDEF DELPHI3UP }
+resourceString
+{$ELSE }
+const
+{$ENDIF }
+  RPS_InvalidFloat = 'Invalid float';
+
+{$IFDEF VER130}
+
+function WideUpperCase(const S: WideString): WideString;
+var
+  Len: Integer;
+begin
+  // CharUpperBuffW is stubbed out on Win9x platofmrs
+  if Win32Platform = VER_PLATFORM_WIN32_NT then
+  begin
+    Len := Length(S);
+    SetString(Result, PWideChar(S), Len);
+    if Len > 0 then CharUpperBuffW(Pointer(Result), Len);
+  end
+  else
+    Result := AnsiUpperCase(S);
+end;
+
+function WideLowerCase(const S: WideString): WideString;
+var
+  Len: Integer;
+begin
+  // CharLowerBuffW is stubbed out on Win9x platofmrs
+  if Win32Platform = VER_PLATFORM_WIN32_NT then
+  begin
+    Len := Length(S);
+    SetString(Result, PWideChar(S), Len);
+    if Len > 0 then CharLowerBuffW(Pointer(Result), Len);
+  end
+  else
+    Result := AnsiLowerCase(S);
+end;
+
+{$ENDIF}
+
+
+function MakeHash(const s: TbtString): Longint;
+{small hash maker}
+var
+  I: Integer;
+begin
+  Result := 0;
+  for I := 1 to Length(s) do
+    Result := ((Result shl 7) or (Result shr 25)) + Ord(s[I]);
+end;
+
+function GRFW(var s: TbtString): TbtString;
+var
+  l: Longint;
+begin
+  l := 1;
+  while l <= Length(s) do
+  begin
+    if s[l] = ' ' then
+    begin
+      Result := copy(s, 1, l - 1);
+      Delete(s, 1, l);
+      exit;
+    end;
+    l := l + 1;
+  end;
+  Result := s;
+  s := '';
+end;
+
+function GRLW(var s: TbtString): TbtString;
+var
+  l: Longint;
+begin
+  l := Length(s);
+  while l >= 1 do
+  begin
+    if s[l] = ' ' then
+    begin
+      Result := copy(s, l+1, MaxInt);
+      Delete(s, l, MaxInt);
+      exit;
+    end;
+    Dec(l);
+  end;
+  Result := s;
+  s := '';
+end;
+
+function StrToFloat(const s: TbtString): Extended;
+var
+  i: longint;
+begin
+  Val(string(s), Result, i);
+  if i <> 0 then raise Exception.Create(RPS_InvalidFloat);
+end;
+//-------------------------------------------------------------------
+
+function IntToStr(I: LongInt): TbtString;
+var
+  s: tbtstring;
+begin
+  Str(i, s);
+  IntToStr := s;
+end;
+//-------------------------------------------------------------------
+
+function FloatToStr(E: Extended): TbtString;
+var
+  s: tbtstring;
+begin
+  Str(e:0:12, s);
+  result := s;
+end;
+
+function StrToInt(const S: TbtString): LongInt;
+var
+  e: Integer;
+  Res: LongInt;
+begin
+  Val(string(S), Res, e);
+  if e <> 0 then
+    StrToInt := -1
+  else
+    StrToInt := Res;
+end;
+//-------------------------------------------------------------------
+
+function StrToIntDef(const S: TbtString; Def: LongInt): LongInt;
+var
+  e: Integer;
+  Res: LongInt;
+begin
+  Val(string(S), Res, e);
+  if e <> 0 then
+    StrToIntDef := Def
+  else
+    StrToIntDef := Res;
+end;
+//-------------------------------------------------------------------
+
+constructor TPSList.Create;
+begin
+  inherited Create;
+  FCount := 0;
+  FCapacity := 16;
+  {$IFNDEF PS_NOSMARTLIST}
+  FCheckCount := 0;
+  {$ENDIF}
+  GetMem(FData, FCapacity * PointerSize);
+end;
+
+
+function MM(i1,i2: Integer): Integer;
+begin
+  if ((i1 div i2) * i2) < i1 then
+    mm := (i1 div i2 + 1) * i2
+  else
+    mm := (i1 div i2) * i2;
+end;
+
+{$IFNDEF PS_NOSMARTLIST}
+procedure TPSList.Recreate;
+var
+  NewData: PPointerList;
+  NewCapacity: Cardinal;
+  I: Longint;
+
+begin
+
+  FCheckCount := 0;
+  NewCapacity := mm(FCount, FCapacityInc);
+  if NewCapacity < 64 then NewCapacity := 64;
+  GetMem(NewData, NewCapacity * PointerSize);
+  for I := 0 to Longint(FCount) -1 do
+  begin
+    NewData^[i] := FData^[I];
+  end;
+  FreeMem(FData, FCapacity * PointerSize);
+  FData := NewData;
+  FCapacity := NewCapacity;
+end;
+{$ENDIF}
+
+//-------------------------------------------------------------------
+
+function TPSList.Add(P: Pointer): Longint;
+begin
+  if FCount >= FCapacity then
+  begin
+    Inc(FCapacity, FCapacityInc);// := FCount + 1;
+    ReAllocMem(FData, FCapacity * PointerSize);
+  end;
+  FData[FCount] := P; // Instead of SetItem
+  Result := FCount;
+  Inc(FCount);
+{$IFNDEF PS_NOSMARTLIST}
+  Inc(FCheckCount);
+  if FCheckCount > FMaxCheckCount then Recreate;
+{$ENDIF}
+end;
+
+procedure TPSList.AddBlock(List: PPointerList; Count: Longint);
+var
+  L: Longint;
+
+begin
+  if Longint(FCount) + Count > Longint(FCapacity) then
+  begin
+    Inc(FCapacity, mm(Count, FCapacityInc));
+    ReAllocMem(FData, FCapacity *PointerSize);
+  end;
+  for L := 0 to Count -1 do
+  begin
+    FData^[FCount] := List^[L];
+    Inc(FCount);
+  end;
+{$IFNDEF PS_NOSMARTLIST}
+  Inc(FCheckCount);
+  if FCheckCount > FMaxCheckCount then Recreate;
+{$ENDIF}
+end;
+
+
+//-------------------------------------------------------------------
+
+procedure TPSList.DeleteLast;
+begin
+  if FCount = 0 then Exit;
+  Dec(FCount);
+{$IFNDEF PS_NOSMARTLIST}
+    Inc(FCheckCount);
+    if FCheckCount > FMaxCheckCount then Recreate;
+{$ENDIF}
+end;
+
+
+
+procedure TPSList.Delete(Nr: Cardinal);
+begin
+  if FCount = 0 then Exit;
+  if Nr < FCount then
+  begin
+    Move(FData[Nr + 1], FData[Nr], (FCount - Nr) * PointerSize);
+    Dec(FCount);
+{$IFNDEF PS_NOSMARTLIST}
+    Inc(FCheckCount);
+    if FCheckCount > FMaxCheckCount then Recreate;
+{$ENDIF}
+  end;
+end;
+//-------------------------------------------------------------------
+
+procedure TPSList.Remove(P: Pointer);
+var
+  I: Cardinal;
+begin
+  if FCount = 0 then Exit;
+  I := 0;
+  while I < FCount do
+  begin
+    if FData[I] = P then
+    begin
+      Delete(I);
+      Exit;
+    end;
+    Inc(I);
+  end;
+end;
+//-------------------------------------------------------------------
+
+procedure TPSList.Clear;
+begin
+  FCount := 0;
+{$IFNDEF PS_NOSMARTLIST}
+  Recreate;
+{$ENDIF}
+end;
+//-------------------------------------------------------------------
+
+destructor TPSList.Destroy;
+begin
+  FreeMem(FData, FCapacity * PointerSize);
+  inherited Destroy;
+end;
+//-------------------------------------------------------------------
+
+procedure TPSList.SetItem(Nr: Cardinal; P: Pointer);
+begin
+  if (FCount = 0) or (Nr >= FCount) then
+    Exit;
+  FData[Nr] := P;
+end;
+//-------------------------------------------------------------------
+
+function TPSList.GetItem(Nr: Cardinal): Pointer;  {12}
+begin
+  if Nr < FCount then
+     GetItem := FData[Nr]
+  else
+    GetItem := nil;
+end;
+
+
+
+//-------------------------------------------------------------------
+
+function TPSStringList.Count: LongInt;
+begin
+  count := List.count;
+end;
+type pStr = ^TbtString;
+
+//-------------------------------------------------------------------
+
+function TPSStringList.GetItem(Nr: LongInt): TbtString;
+var
+  S: PStr;
+begin
+  s := List.GetItem(Nr);
+  if s = nil then
+    Result := ''
+  else
+
+    Result := s^;
+end;
+//-------------------------------------------------------------------
+
+
+procedure TPSStringList.SetItem(Nr: LongInt; const s: TbtString);
+var
+  p: PStr;
+begin
+  p := List.GetItem(Nr);
+  if p = nil
+    then
+    Exit;
+  p^ := s;
+end;
+//-------------------------------------------------------------------
+
+procedure TPSStringList.Add(const P: TbtString);
+var
+  w: PStr;
+begin
+  new(w);
+  w^ := p;
+  List.Add(w);
+end;
+//-------------------------------------------------------------------
+
+procedure TPSStringList.Delete(NR: LongInt);
+var
+  W: PStr;
+begin
+  W := list.getitem(nr);
+  if w<>nil then
+  begin
+    dispose(w);
+  end;
+  list.Delete(Nr);
+end;
+
+procedure TPSStringList.Clear;
+begin
+  while List.Count > 0 do Delete(0);
+end;
+
+constructor TPSStringList.Create;
+begin
+  inherited Create;
+  List := TPSList.Create;
+end;
+
+destructor TPSStringList.Destroy;
+begin
+  while List.Count > 0 do
+    Delete(0);
+  List.Destroy;
+  inherited Destroy;
+end;
+
+//-------------------------------------------------------------------
+
+
+function Fw(const S: TbtString): TbtString; //  First word
+var
+  x: integer;
+begin
+  x := pos(tbtstring(' '), s);
+  if x > 0
+    then Fw := Copy(S, 1, x - 1)
+  else Fw := S;
+end;
+//-------------------------------------------------------------------
+function FastUpperCase(const s: TbtString): TbtString;
+{Fast uppercase}
+var
+  I: Integer;
+  C: tbtChar;
+begin
+  Result := S;
+  I := Length(Result);
+  while I > 0 do
+  begin
+    C := Result[I];
+    if c in [#97..#122] then
+      Result[I] := tbtchar(Ord(Result[I]) -32);
+    Dec(I);
+  end;
+end;
+function FastLowerCase(const s: TbtString): TbtString;
+{Fast lowercase}
+var
+  I: Integer;
+  C: tbtChar;
+begin
+  Result := S;
+  I := Length(Result);
+  while I > 0 do
+  begin
+    C := Result[I];
+    if C in [#65..#90] then
+      Result[I] := tbtchar(Ord(Result[I]) + 32);
+    Dec(I);
+  end;
+end;
+//-------------------------------------------------------------------
+
+type
+  TRTab = record
+    name: TbtString;
+    c: TPSPasToken;
+  end;
+
+
+const
+  KEYWORD_COUNT = 65;  //*NVDS
+  LookupTable: array[0..KEYWORD_COUNT - 1] of TRTab = (
+      (name: 'AND'; c: CSTII_and),
+      (name: 'ARRAY'; c: CSTII_array),
+      (name: 'AS'; c: CSTII_as),
+      (name: 'BEGIN'; c: CSTII_begin),
+      (name: 'CASE'; c: CSTII_case),
+      (name: 'CHR'; c: CSTII_chr),
+      (name: 'CLASS'; c: CSTII_class),
+      (name: 'CONST'; c: CSTII_const),
+      (name: 'CONSTRUCTOR'; c: CSTII_constructor),
+      (name: 'DESTRUCTOR'; c: CSTII_destructor),
+      (name: 'DIV'; c: CSTII_div),
+      (name: 'DO'; c: CSTII_do),
+      (name: 'DOWNTO'; c: CSTII_downto),
+      (name: 'ELSE'; c: CSTII_else),
+      (name: 'END'; c: CSTII_end),
+      (name: 'EXCEPT'; c: CSTII_except),
+      (name: 'EXIT'; c: CSTII_exit),
+      (name: 'EXPORT'; c: CSTII_Export),
+      (name: 'EXTERNAL'; c: CSTII_External),
+      (Name: 'FINALIZATION'; c : CSTII_finalization),//* Nvds
+      (name: 'FINALLY'; c: CSTII_finally),
+      (name: 'FOR'; c: CSTII_for),
+      (name: 'FORWARD'; c: CSTII_Forward),
+      (name: 'FUNCTION'; c: CSTII_function),
+      (name: 'GOTO'; c: CSTII_Goto),
+      (name: 'IF'; c: CSTII_if),
+      (name: 'IMPLEMENTATION'; c: CSTII_Implementation),
+      (name: 'IN'; c: CSTII_in),
+      (name: 'INHERITED'; c: CSTII_inherited),
+      (Name: 'INITIALIZATION'; c: CSTII_initialization), //* Nvds
+      (name: 'INTERFACE'; c: CSTII_Interface),
+      (name: 'IS'; c: CSTII_is),
+      (name: 'LABEL'; c: CSTII_Label),
+      (name: 'MOD'; c: CSTII_mod),
+      (name: 'NIL'; c: CSTII_nil),
+      (name: 'NOT'; c: CSTII_not),
+      (name: 'OF'; c: CSTII_of),
+      (name: 'OR'; c: CSTII_or),
+      (name: 'ORD'; c: CSTII_ord),
+      (name: 'OUT'; c: CSTII_Out),
+      (name: 'OVERRIDE'; c: CSTII_override),
+      //(name: 'DEFAULT'; c: CSTII_default), //Birb (if added, don't forget to increase KEYWORD_COUNT)
+      (name: 'PRIVATE'; c: CSTII_private),
+      (name: 'PROCEDURE'; c: CSTII_procedure),
+      (name: 'PROGRAM'; c: CSTII_program),
+      (name: 'PROPERTY'; c: CSTII_property),
+      (name: 'PROTECTED'; c: CSTII_protected),
+      (name: 'PUBLIC'; c: CSTII_public),
+      (name: 'PUBLISHED'; c: CSTII_published),
+      (name: 'RECORD'; c: CSTII_record),
+      (name: 'REPEAT'; c: CSTII_repeat),
+      (name: 'SET'; c: CSTII_set),
+      (name: 'SHL'; c: CSTII_shl),
+      (name: 'SHR'; c: CSTII_shr),
+      (name: 'THEN'; c: CSTII_then),
+      (name: 'TO'; c: CSTII_to),
+      (name: 'TRY'; c: CSTII_try),
+      (name: 'TYPE'; c: CSTII_type),
+      (name: 'UNIT'; c: CSTII_Unit),
+      (name: 'UNTIL'; c: CSTII_until),
+      (name: 'USES'; c: CSTII_uses),
+      (name: 'VAR'; c: CSTII_var),
+      (name: 'VIRTUAL'; c: CSTII_virtual),
+      (name: 'WHILE'; c: CSTII_while),
+      (name: 'WITH'; c: CSTII_with),
+      (name: 'XOR'; c: CSTII_xor));
+
+function TPSPascalParser.GetCol: Cardinal;
+begin
+  Result := FRealPosition - FLastEnterPos + 1;
+end;
+
+procedure TPSPascalParser.Next;
+var
+  Err: TPSParserErrorKind;
+  FLastUpToken: TbtString;
+  function CheckReserved(Const S: ShortString; var CurrTokenId: TPSPasToken): Boolean;
+  var
+    L, H, I: LongInt;
+    J: tbtChar;
+    SName: ShortString;
+  begin
+    L := 0;
+    J := S[0];
+    H := KEYWORD_COUNT-1;
+    while L <= H do
+    begin
+      I := (L + H) shr 1;
+      SName := LookupTable[i].Name;
+      if J = SName[0] then
+      begin
+        if S = SName then
+        begin
+          CheckReserved := True;
+          CurrTokenId := LookupTable[I].c;
+          Exit;
+        end;
+        if S > SName then
+          L := I + 1
+        else
+          H := I - 1;
+      end else
+        if S > SName then
+          L := I + 1
+        else
+          H := I - 1;
+    end;
+    CheckReserved := False;
+  end;
+  //-------------------------------------------------------------------
+
+  function _GetToken(CurrTokenPos, CurrTokenLen: Cardinal): TbtString;
+  var
+    s: tbtString;
+  begin
+    SetLength(s, CurrTokenLen);
+    Move(FText[CurrTokenPos], S[1], CurrtokenLen);
+    Result := s;
+  end;
+
+  function ParseToken(var CurrTokenPos, CurrTokenLen: Cardinal; var CurrTokenId: TPSPasToken): TPSParserErrorKind;
+  {Parse the token}
+  var
+    ct, ci: Cardinal;
+    hs: Boolean;
+    p: {$IFDEF DELPHI4UP}PAnsiChar{$ELSE}PChar{$ENDIF};
+  begin
+    ParseToken := iNoError;
+    ct := CurrTokenPos;
+    case FText[ct] of
+      #0:
+        begin
+          CurrTokenId := CSTI_EOF;
+          CurrTokenLen := 0;
+        end;
+      'A'..'Z', 'a'..'z', '_':
+        begin
+          ci := ct + 1;
+          while (FText[ci] in ['_', '0'..'9', 'a'..'z', 'A'..'Z']) do begin
+            Inc(ci);
+          end;
+          CurrTokenLen := ci - ct;
+
+          FLastUpToken := _GetToken(CurrTokenPos, CurrtokenLen);
+          p := {$IFDEF DELPHI4UP}PAnsiChar{$ELSE}pchar{$ENDIF}(FLastUpToken);
+          while p^<>#0 do
+          begin
+            if p^ in [#97..#122] then
+              Dec(Byte(p^), 32);
+            inc(p);
+          end;
+          if not CheckReserved(FLastUpToken, CurrTokenId) then
+          begin
+            CurrTokenId := CSTI_Identifier;
+          end;
+        end;
+      '$':
+        begin
+          ci := ct + 1;
+
+          while (FText[ci] in ['0'..'9', 'a'..'f', 'A'..'F'])
+            do Inc(ci);
+
+          CurrTokenId := CSTI_HexInt;
+          CurrTokenLen := ci - ct;
+        end;
+
+      '0'..'9':
+        begin
+          hs := False;
+          ci := ct;
+          while (FText[ci] in ['0'..'9']) do
+          begin
+            Inc(ci);
+            if (FText[ci] = '.') and (not hs) then
+            begin
+              if FText[ci+1] = '.' then break;
+              hs := True;
+              Inc(ci);
+            end;
+          end;
+          if (FText[ci] in ['E','e']) and ((FText[ci+1] in ['0'..'9'])
+            or ((FText[ci+1] in ['+','-']) and (FText[ci+2] in ['0'..'9']))) then
+          begin
+            hs := True;
+            Inc(ci);
+            if FText[ci] in ['+','-'] then
+              Inc(ci);
+            repeat
+              Inc(ci);
+            until not (FText[ci] in ['0'..'9']);
+          end;
+
+          if hs
+            then CurrTokenId := CSTI_Real
+          else CurrTokenId := CSTI_Integer;
+
+          CurrTokenLen := ci - ct;
+        end;
+
+
+      #39:
+        begin
+          ci := ct + 1;
+          while true do
+          begin
+            if (FText[ci] = #0) or (FText[ci] = #13) or (FText[ci] = #10) then Break;
+            if (FText[ci] = #39) then
+            begin
+              if FText[ci+1] = #39 then
+                Inc(ci)
+              else
+                Break;
+            end;
+            Inc(ci);
+          end;
+          if FText[ci] = #39 then
+            CurrTokenId := CSTI_String
+          else
+          begin
+            CurrTokenId := CSTI_String;
+            ParseToken := iStringError;
+          end;
+          CurrTokenLen := ci - ct + 1;
+        end;
+      '#':
+        begin
+          ci := ct + 1;
+          if FText[ci] = '$' then
+          begin
+            inc(ci);
+            while (FText[ci] in ['A'..'F', 'a'..'f', '0'..'9']) do begin
+              Inc(ci);
+            end;
+            CurrTokenId := CSTI_Char;
+            CurrTokenLen := ci - ct;
+          end else
+          begin
+            while (FText[ci] in ['0'..'9']) do begin
+              Inc(ci);
+            end;
+            if FText[ci] in ['A'..'Z', 'a'..'z', '_'] then
+            begin
+              ParseToken := iCharError;
+              CurrTokenId := CSTI_Char;
+            end else
+              CurrTokenId := CSTI_Char;
+            CurrTokenLen := ci - ct;
+          end;
+        end;
+      '=':
+        begin
+          CurrTokenId := CSTI_Equal;
+          CurrTokenLen := 1;
+        end;
+      '>':
+        begin
+          if FText[ct + 1] = '=' then
+          begin
+            CurrTokenid := CSTI_GreaterEqual;
+            CurrTokenLen := 2;
+          end else
+          begin
+            CurrTokenid := CSTI_Greater;
+            CurrTokenLen := 1;
+          end;
+        end;
+      '<':
+        begin
+          if FText[ct + 1] = '=' then
+          begin
+            CurrTokenId := CSTI_LessEqual;
+            CurrTokenLen := 2;
+          end else
+            if FText[ct + 1] = '>' then
+            begin
+              CurrTokenId := CSTI_NotEqual;
+              CurrTokenLen := 2;
+            end else
+            begin
+              CurrTokenId := CSTI_Less;
+              CurrTokenLen := 1;
+            end;
+        end;
+      ')':
+        begin
+          CurrTokenId := CSTI_CloseRound;
+          CurrTokenLen := 1;
+        end;
+      '(':
+        begin
+          if FText[ct + 1] = '*' then
+          begin
+            ci := ct + 1;
+            while (FText[ci] <> #0) do begin
+              if (FText[ci] = '*') and (FText[ci + 1] = ')') then
+                Break;
+              if FText[ci] = #13 then
+              begin
+                inc(FRow);
+                if FText[ci+1] = #10 then
+                  inc(ci);
+                FLastEnterPos := ci +1;
+              end else if FText[ci] = #10 then
+              begin
+                inc(FRow);
+                FLastEnterPos := ci +1;
+              end;
+              Inc(ci);
+            end;
+            if (FText[ci] = #0) then
+            begin
+              CurrTokenId := CSTIINT_Comment;
+              ParseToken := iCommentError;
+            end else
+            begin
+              CurrTokenId := CSTIINT_Comment;
+              Inc(ci, 2);
+            end;
+            CurrTokenLen := ci - ct;
+          end
+          else
+          begin
+            CurrTokenId := CSTI_OpenRound;
+            CurrTokenLen := 1;
+          end;
+        end;
+      '[':
+        begin
+          CurrTokenId := CSTI_OpenBlock;
+          CurrTokenLen := 1;
+        end;
+      ']':
+        begin
+          CurrTokenId := CSTI_CloseBlock;
+          CurrTokenLen := 1;
+        end;
+      ',':
+        begin
+          CurrTokenId := CSTI_Comma;
+          CurrTokenLen := 1;
+        end;
+      '.':
+        begin
+          if FText[ct + 1] = '.' then
+          begin
+            CurrTokenLen := 2;
+            CurrTokenId := CSTI_TwoDots;
+          end else
+          begin
+            CurrTokenId := CSTI_Period;
+            CurrTokenLen := 1;
+          end;
+        end;
+      '@':
+        begin
+          CurrTokenId := CSTI_AddressOf;
+          CurrTokenLen := 1;
+        end;
+      '^':
+        begin
+          CurrTokenId := CSTI_Dereference;
+          CurrTokenLen := 1;
+        end;
+      ';':
+        begin
+          CurrTokenId := CSTI_Semicolon;
+          CurrTokenLen := 1;
+        end;
+      ':':
+        begin
+          if FText[ct + 1] = '=' then
+          begin
+            CurrTokenId := CSTI_Assignment;
+            CurrTokenLen := 2;
+          end else
+          begin
+            CurrTokenId := CSTI_Colon;
+            CurrTokenLen := 1;
+          end;
+        end;
+      '+':
+        begin
+          CurrTokenId := CSTI_Plus;
+          CurrTokenLen := 1;
+        end;
+      '-':
+        begin
+          CurrTokenId := CSTI_Minus;
+          CurrTokenLen := 1;
+        end;
+      '*':
+        begin
+          CurrTokenId := CSTI_Multiply;
+          CurrTokenLen := 1;
+        end;
+      '/':
+        begin
+          if FText[ct + 1] = '/' then
+          begin
+            ci := ct + 1;
+            while (FText[ci] <> #0) and (FText[ci] <> #13) and
+              (FText[ci] <> #10) do begin
+              Inc(ci);
+            end;
+            if (FText[ci] = #0) then
+            begin
+              CurrTokenId := CSTIINT_Comment;
+            end else
+            begin
+              CurrTokenId := CSTIINT_Comment;
+            end;
+            CurrTokenLen := ci - ct;
+          end else
+          begin
+            CurrTokenId := CSTI_Divide;
+            CurrTokenLen := 1;
+          end;
+        end;
+      #32, #9, #13, #10:
+        begin
+          ci := ct;
+          while (FText[ci] in [#32, #9, #13, #10]) do
+          begin
+            if FText[ci] = #13 then
+            begin
+              inc(FRow);
+              if FText[ci+1] = #10 then
+                inc(ci);
+              FLastEnterPos := ci +1;
+            end else if FText[ci] = #10 then
+            begin
+              inc(FRow);
+              FLastEnterPos := ci +1;
+            end;
+            Inc(ci);
+          end;
+          CurrTokenId := CSTIINT_WhiteSpace;
+          CurrTokenLen := ci - ct;
+        end;
+      '{':
+        begin
+          ci := ct + 1;
+          while (FText[ci] <> #0) and (FText[ci] <> '}') do begin
+            if FText[ci] = #13 then
+            begin
+              inc(FRow);
+              if FText[ci+1] = #10 then
+                inc(ci);
+              FLastEnterPos := ci + 1;
+            end else if FText[ci] = #10 then
+            begin
+              inc(FRow);
+              FLastEnterPos := ci + 1;
+            end;
+            Inc(ci);
+          end;
+          if (FText[ci] = #0) then
+          begin
+            CurrTokenId := CSTIINT_Comment;
+            ParseToken := iCommentError;
+          end else
+            CurrTokenId := CSTIINT_Comment;
+          CurrTokenLen := ci - ct + 1;
+        end;
+    else
+      begin
+        ParseToken := iSyntaxError;
+        CurrTokenId := CSTIINT_Comment;
+        CurrTokenLen := 1;
+      end;
+    end;
+  end;
+  //-------------------------------------------------------------------
+begin
+  if FText = nil then
+  begin
+    FTokenLength := 0;
+    FRealPosition := 0;
+    FTokenId := CSTI_EOF;
+    Exit;
+  end;
+  repeat
+    FRealPosition := FRealPosition + Cardinal(FTokenLength);
+    Err := ParseToken(FRealPosition, Cardinal(FTokenLength), FTokenID);
+    if Err <> iNoError then
+    begin
+      FTokenLength := 0;
+      FTokenId := CSTI_EOF;
+      FToken := '';
+      FOriginalToken := '';
+      if @FParserError <> nil then FParserError(Self, Err);
+      exit;
+    end;
+
+    case FTokenID of
+      CSTIINT_Comment: if not FEnableComments then Continue else
+        begin
+          SetLength(FOriginalToken, FTokenLength);
+          Move(FText[CurrTokenPos], FOriginalToken[1], FTokenLength);
+          FToken := FOriginalToken;
+        end;
+      CSTIINT_WhiteSpace: if not FEnableWhitespaces then Continue else
+        begin
+          SetLength(FOriginalToken, FTokenLength);
+          Move(FText[CurrTokenPos], FOriginalToken[1], FTokenLength);
+          FToken := FOriginalToken;
+        end;
+      CSTI_Integer, CSTI_Real, CSTI_String, CSTI_Char, CSTI_HexInt:
+        begin
+          SetLength(FOriginalToken, FTokenLength);
+          Move(FText[CurrTokenPos], FOriginalToken[1], FTokenLength);
+          FToken := FOriginalToken;
+        end;
+      CSTI_Identifier:
+        begin
+          SetLength(FOriginalToken, FTokenLength);
+          Move(FText[CurrTokenPos], FOriginalToken[1], FTokenLength);
+          FToken := FLastUpToken;
+        end;
+    else
+      begin
+        FOriginalToken := '';
+        FToken := '';
+      end;
+    end;
+    Break;
+  until False;
+end;
+
+procedure TPSPascalParser.SetText(const Data: TbtString);
+begin
+  FData := Data;
+  FText := Pointer(FData);
+  FTokenLength := 0;
+  FRealPosition := 0;
+  FTokenId := CSTI_EOF;
+  FLastEnterPos := 0;
+  FRow := 1;
+  Next;
+end;
+
+function TPSList.IndexOf(P: Pointer): Longint;
+var
+  i: Integer;
+begin
+  for i := FCount -1 downto 0 do
+  begin
+    if FData[i] = p then
+    begin
+      result := i;
+      exit;
+    end;
+  end;
+  result := -1;
+end;
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uROPSImports.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uROPSImports.pas
new file mode 100644
index 0000000..da70685
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uROPSImports.pas	
@@ -0,0 +1,366 @@
+unit uROPSImports;
+
+interface
+
+uses
+  uPSCompiler, uPSRuntime, uROBINMessage, uROIndyHTTPChannel,
+  uROXMLSerializer, uROIndyTCPChannel, idTcpClient,
+  uROPSServerLink, uROWinInetHttpChannel;
+
+
+procedure SIRegisterTROBINMESSAGE(CL: TIFPSPascalCompiler);
+procedure SIRegisterTROINDYHTTPCHANNEL(CL: TIFPSPascalCompiler);
+procedure SIRegisterTROINDYTCPCHANNEL(CL: TIFPSPascalCompiler);
+procedure SIRegisterTIDTCPCLIENT(CL: TIFPSPascalCompiler);
+procedure SIRegisterRODLImports(Cl: TIFPSPascalCompiler);
+
+
+
+procedure RIRegisterTROBINMESSAGE(Cl: TIFPSRuntimeClassImporter);
+procedure RIRegisterTROINDYHTTPCHANNEL(Cl: TIFPSRuntimeClassImporter);
+procedure RIRegisterTROINDYTCPCHANNEL(Cl: TIFPSRuntimeClassImporter);
+procedure RIRegisterTIDTCPCLIENT(Cl: TIFPSRuntimeClassImporter);
+procedure RIRegisterRODLImports(CL: TIFPSRuntimeClassImporter);
+(*
+Todo:
+     TROWinInetHTTPChannel = class(TROTransportChannel, IROTransport, IROTCPTransport, IROHTTPTransport)
+     published
+       property UserAgent:string read GetUserAgent write SetUserAgent;
+       property TargetURL : string read fTargetURL write SetTargetURL;
+       property StoreConnected:boolean read fStoreConnected write fStoreConnected default false;
+       property KeepConnection:boolean read fKeepConnection write fKeepConnection default false;
+     end;
+*)
+type
+  
+  TPSROIndyTCPModule = class(TPSROModule)
+  protected
+    class procedure ExecImp(exec: TIFPSExec; ri: TIFPSRuntimeClassImporter); override;
+    class procedure CompImp(comp: TIFPSPascalCompiler); override;
+  end;
+  
+  TPSROIndyHTTPModule = class(TPSROModule)
+  protected
+    class procedure ExecImp(exec: TIFPSExec; ri: TIFPSRuntimeClassImporter); override;
+    class procedure CompImp(comp: TIFPSPascalCompiler); override;
+  end;
+  
+  TPSROBinModule = class(TPSROModule)
+  protected
+    class procedure ExecImp(exec: TIFPSExec; ri: TIFPSRuntimeClassImporter); override;
+    class procedure CompImp(comp: TIFPSPascalCompiler); override;
+  end;
+
+
+implementation
+
+{procedure TROSOAPMESSAGESERIALIZATIONOPTIONS_W(Self: TROSOAPMESSAGE;
+  const T: TXMLSERIALIZATIONOPTIONS);
+begin 
+  Self.SERIALIZATIONOPTIONS := T; 
+end;
+
+procedure TROSOAPMESSAGESERIALIZATIONOPTIONS_R(Self: TROSOAPMESSAGE;
+  var T: TXMLSERIALIZATIONOPTIONS);
+begin 
+  T := Self.SERIALIZATIONOPTIONS; 
+end;
+
+procedure TROSOAPMESSAGECUSTOMLOCATION_W(Self: TROSOAPMESSAGE; const T: string);
+begin 
+  Self.CUSTOMLOCATION := T; 
+end;
+
+procedure TROSOAPMESSAGECUSTOMLOCATION_R(Self: TROSOAPMESSAGE; var T: string);
+begin 
+  T := Self.CUSTOMLOCATION; 
+end;
+
+procedure TROSOAPMESSAGELIBRARYNAME_W(Self: TROSOAPMESSAGE; const T: string);
+begin 
+  Self.LIBRARYNAME := T; 
+end;
+
+procedure TROSOAPMESSAGELIBRARYNAME_R(Self: TROSOAPMESSAGE; var T: string);
+begin 
+  T := Self.LIBRARYNAME; 
+end; }
+
+procedure TROBINMESSAGEUSECOMPRESSION_W(Self: TROBINMESSAGE; const T: boolean);
+begin 
+  Self.USECOMPRESSION := T; 
+end;
+
+procedure TROBINMESSAGEUSECOMPRESSION_R(Self: TROBINMESSAGE; var T: boolean);
+begin 
+  T := Self.USECOMPRESSION; 
+end;
+
+procedure TROINDYHTTPCHANNELTARGETURL_W(Self: TROINDYHTTPCHANNEL; const T: string);
+begin 
+  Self.TARGETURL := T; 
+end;
+
+procedure TROINDYHTTPCHANNELTARGETURL_R(Self: TROINDYHTTPCHANNEL; var T: string);
+begin 
+  T := Self.TARGETURL; 
+end;
+
+procedure TROINDYTCPCHANNELINDYCLIENT_R(Self: TROINDYTCPCHANNEL; var T: TIdTCPClientBaseClass);
+begin 
+  T := Self.INDYCLIENT; 
+end;
+
+procedure TIDTCPCLIENTPORT_W(Self: TIDTCPCLIENT; const T: integer);
+begin 
+  Self.PORT := T; 
+end;
+
+procedure TIDTCPCLIENTPORT_R(Self: TIdTCPClientBaseClass; var T: integer);
+begin 
+  T := TIdIndy10HackClient(Self).PORT;
+end;
+
+procedure TIDTCPCLIENTHOST_W(Self: TIdTCPClientBaseClass; const T: string);
+begin 
+  TIdIndy10HackClient(Self).HOST := T;
+end;
+
+procedure TIDTCPCLIENTHOST_R(Self: TIdTCPClientBaseClass; var T: string);
+begin 
+  T := TIdIndy10HackClient(Self).HOST; 
+end;
+
+{procedure TIDTCPCLIENTBOUNDPORT_W(Self: TIdTCPClientBaseClass; const T: integer);
+begin 
+  Self.BOUNDPORT := T; 
+end;
+
+procedure TIDTCPCLIENTBOUNDPORT_R(Self: TIdTCPClientBaseClass; var T: integer);
+begin 
+  T := Self.BOUNDPORT; 
+end;
+
+procedure TIDTCPCLIENTBOUNDIP_W(Self: TIdTCPClientBaseClass; const T: string);
+begin 
+  Self.BOUNDIP := T; 
+end;
+
+procedure TIDTCPCLIENTBOUNDIP_R(Self: TIdTCPClientBaseClass; var T: string);
+begin 
+  T := Self.BOUNDIP; 
+end;]
+
+procedure TIDTCPCLIENTBOUNDPORTMIN_W(Self: TIdTCPClientBaseClass; const T: integer);
+begin 
+  Self.BOUNDPORTMIN := T; 
+end;
+
+procedure TIDTCPCLIENTBOUNDPORTMIN_R(Self: TIdTCPClientBaseClass; var T: integer);
+begin 
+  T := Self.BOUNDPORTMIN; 
+end;
+
+procedure TIDTCPCLIENTBOUNDPORTMAX_W(Self: TIdTCPClientBaseClass; const T: integer);
+begin 
+  Self.BOUNDPORTMAX := T; 
+end;
+
+procedure TIDTCPCLIENTBOUNDPORTMAX_R(Self: TIdTCPClientBaseClass; var T: integer);
+begin 
+  T := Self.BOUNDPORTMAX; 
+end;
+
+{procedure RIRegisterTROSOAPMESSAGE(Cl: TIFPSRuntimeClassImporter);
+begin
+  with Cl.Add(TROSOAPMESSAGE) do
+  begin
+    RegisterPropertyHelper(@TROSOAPMESSAGELIBRARYNAME_R, @TROSOAPMESSAGELIBRARYNAME_W,
+      'LIBRARYNAME');
+    RegisterPropertyHelper(@TROSOAPMESSAGECUSTOMLOCATION_R,
+      @TROSOAPMESSAGECUSTOMLOCATION_W, 'CUSTOMLOCATION');
+    RegisterPropertyHelper(@TROSOAPMESSAGESERIALIZATIONOPTIONS_R,
+      @TROSOAPMESSAGESERIALIZATIONOPTIONS_W, 'SERIALIZATIONOPTIONS');
+  end;
+end; }
+
+procedure RIRegisterTROBINMESSAGE(Cl: TIFPSRuntimeClassImporter);
+begin
+  with Cl.Add(TROBINMESSAGE) do
+  begin
+    RegisterPropertyHelper(@TROBINMESSAGEUSECOMPRESSION_R,
+      @TROBINMESSAGEUSECOMPRESSION_W, 'USECOMPRESSION');
+  end;
+end;
+
+procedure RIRegisterTROINDYHTTPCHANNEL(Cl: TIFPSRuntimeClassImporter);
+begin
+  with Cl.Add(TROINDYHTTPCHANNEL) do
+  begin
+    RegisterPropertyHelper(@TROINDYHTTPCHANNELTARGETURL_R,
+      @TROINDYHTTPCHANNELTARGETURL_W, 'TARGETURL');
+  end;
+end;
+
+procedure RIRegisterTROINDYTCPCHANNEL(Cl: TIFPSRuntimeClassImporter);
+begin
+  with Cl.Add(TROINDYTCPCHANNEL) do
+  begin
+    RegisterPropertyHelper(@TROINDYTCPCHANNELINDYCLIENT_R, nil, 'INDYCLIENT');
+  end;
+end;
+
+procedure RIRegisterTIDTCPCLIENT(Cl: TIFPSRuntimeClassImporter);
+begin
+  with Cl.Add(TIdTCPClientBaseClass) do
+  begin
+    {RegisterPropertyHelper(@TIDTCPCLIENTBOUNDPORTMAX_R, @TIDTCPCLIENTBOUNDPORTMAX_W,
+      'BOUNDPORTMAX');
+    RegisterPropertyHelper(@TIDTCPCLIENTBOUNDPORTMIN_R, @TIDTCPCLIENTBOUNDPORTMIN_W,
+      'BOUNDPORTMIN');
+    RegisterPropertyHelper(@TIDTCPCLIENTBOUNDIP_R, @TIDTCPCLIENTBOUNDIP_W, 'BOUNDIP');
+    RegisterPropertyHelper(@TIDTCPCLIENTBOUNDPORT_R, @TIDTCPCLIENTBOUNDPORT_W,
+      'BOUNDPORT');}
+    RegisterPropertyHelper(@TIDTCPCLIENTHOST_R, @TIDTCPCLIENTHOST_W, 'HOST');
+    RegisterPropertyHelper(@TIDTCPCLIENTPORT_R, @TIDTCPCLIENTPORT_W, 'PORT');
+  end;
+end;
+
+procedure RIRegisterRODLImports(CL: TIFPSRuntimeClassImporter);
+begin
+  RIRegisterTIDTCPCLIENT(Cl);
+  RIRegisterTROINDYTCPCHANNEL(Cl);
+  RIRegisterTROINDYHTTPCHANNEL(Cl);
+  RIRegisterTROBINMESSAGE(Cl);
+  //RIRegisterTROSOAPMESSAGE(Cl);
+end;
+
+function RegClassS(cl: TIFPSPascalCompiler; const InheritsFrom,
+  ClassName: string): TPSCompileTimeClass;
+begin
+  Result := cl.FindClass(ClassName);
+  if Result = nil then
+    Result := cl.AddClassN(cl.FindClass(InheritsFrom), ClassName)
+  else
+    Result.ClassInheritsFrom := cl.FindClass(InheritsFrom);
+end;
+
+{procedure SIRegisterTROSOAPMESSAGE(CL: TIFPSPascalCompiler);
+begin
+  Cl.addTypeS('TXMLSERIALIZATIONOPTIONS', 'BYTE');
+  Cl.AddConstantN('XSOWRITEMULTIREFARRAY', 'BYTE').SetInt(1);
+  Cl.AddConstantN('XSOWRITEMULTIREFOBJECT', 'BYTE').SetInt(2);
+  Cl.AddConstantN('XSOSENDUNTYPED', 'BYTE').SetInt(4);
+  with RegClassS(cl, 'TROMESSAGE', 'TROSOAPMESSAGE') do
+  begin
+    RegisterProperty('LIBRARYNAME', 'STRING', iptrw);
+    RegisterProperty('CUSTOMLOCATION', 'STRING', iptrw);
+    RegisterProperty('SERIALIZATIONOPTIONS', 'TXMLSERIALIZATIONOPTIONS', iptrw);
+  end;
+end;}
+
+procedure SIRegisterTROBINMESSAGE(CL: TIFPSPascalCompiler);
+begin
+  with RegClassS(cl, 'TROMESSAGE', 'TROBINMESSAGE') do
+  begin
+    RegisterProperty('USECOMPRESSION', 'BOOLEAN', iptrw);
+  end;
+end;
+
+procedure SIRegisterTROINDYHTTPCHANNEL(CL: TIFPSPascalCompiler);
+begin
+  with RegClassS(cl, 'TROINDYTCPCHANNEL', 'TROINDYHTTPCHANNEL') do
+  begin
+    RegisterProperty('TARGETURL', 'STRING', iptrw);
+  end;
+end;
+
+procedure SIRegisterTROINDYTCPCHANNEL(CL: TIFPSPascalCompiler);
+begin
+  with RegClassS(cl, 'TROTRANSPORTCHANNEL', 'TROINDYTCPCHANNEL') do
+  begin
+    RegisterProperty('INDYCLIENT', 'TIdTCPClientBaseClass', iptr);
+  end;
+end;
+
+procedure SIRegisterTIDTCPCLIENT(CL: TIFPSPascalCompiler);
+begin
+  with RegClassS(cl, 'TCOMPONENT', 'TIdTCPClientBaseClass') do
+  begin
+    RegisterProperty('BOUNDPORTMAX', 'INTEGER', iptrw);
+    RegisterProperty('BOUNDPORTMIN', 'INTEGER', iptrw);
+    RegisterProperty('BOUNDIP', 'STRING', iptrw);
+    RegisterProperty('BOUNDPORT', 'INTEGER', iptrw);
+    RegisterProperty('HOST', 'STRING', iptrw);
+    RegisterProperty('PORT', 'INTEGER', iptrw);
+  end;
+end;
+
+procedure SIRegisterRODLImports(Cl: TIFPSPascalCompiler);
+begin
+  SIRegisterTIDTCPCLIENT(Cl);
+  SIRegisterTROINDYTCPCHANNEL(Cl);
+  SIRegisterTROINDYHTTPCHANNEL(Cl);
+  SIRegisterTROBINMESSAGE(Cl);
+  //SIRegisterTROSOAPMESSAGE(Cl);
+end;
+
+{ TPSROIndyTCPModule }
+
+class procedure TPSROIndyTCPModule.CompImp(comp: TIFPSPascalCompiler);
+begin
+  SIRegisterTIDTCPCLIENT(Comp);
+  SIRegisterTROINDYTCPCHANNEL(Comp);
+end;
+
+class procedure TPSROIndyTCPModule.ExecImp(exec: TIFPSExec;
+  ri: TIFPSRuntimeClassImporter);
+begin
+  RIRegisterTIDTCPCLIENT(ri);
+  RIRegisterTROINDYTCPCHANNEL(ri);
+end;
+
+{ TPSROIndyHTTPModule }
+
+class procedure TPSROIndyHTTPModule.CompImp(comp: TIFPSPascalCompiler);
+begin
+  if Comp.FindClass('TROINDYTCPCHANNEL') = nil then
+    TPSROIndyTCPModule.CompImp(Comp);
+  SIRegisterTROINDYHTTPCHANNEL(Comp);
+end;
+
+class procedure TPSROIndyHTTPModule.ExecImp(exec: TIFPSExec;
+  ri: TIFPSRuntimeClassImporter);
+begin
+  if ri.FindClass('TROINDYTCPCHANNEL') = nil then
+    TPSROIndyTCPModule.ExecImp(exec, ri);
+  RIRegisterTROINDYHTTPCHANNEL(ri);
+end;
+
+{ TPSROSoapModule }
+
+{class procedure TPSROSoapModule.CompImp(comp: TIFPSPascalCompiler);
+begin
+  SIRegisterTROSOAPMESSAGE(comp);
+end;
+
+class procedure TPSROSoapModule.ExecImp(exec: TIFPSExec;
+  ri: TIFPSRuntimeClassImporter);
+begin
+  RIRegisterTROSOAPMESSAGE(ri);
+end;}
+
+{ TPSROBinModule }
+
+class procedure TPSROBinModule.CompImp(comp: TIFPSPascalCompiler);
+begin
+  SIRegisterTROBINMESSAGE(Comp);
+end;
+
+class procedure TPSROBinModule.ExecImp(exec: TIFPSExec;
+  ri: TIFPSRuntimeClassImporter);
+begin
+  RIRegisterTROBINMESSAGE(ri);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uROPSServerLink.pas b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uROPSServerLink.pas
new file mode 100644
index 0000000..9501a29
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/uROPSServerLink.pas	
@@ -0,0 +1,1231 @@
+unit uROPSServerLink;
+
+interface
+uses
+  SysUtils, Classes, uPSCompiler, uPSUtils, uPSRuntime,
+  uROServer, uROClient, uRODL{$IFDEF WIN32},
+  Windows{$ELSE}, Types{$ENDIF}, uROTypes, uROClientIntf,
+  uROSerializer, uPSComponent;
+
+type
+  
+  TPSROModule = class
+  protected
+    class procedure ExecImp(exec: TPSExec; ri: TPSRuntimeClassImporter); virtual;
+    class procedure CompImp(comp: TPSPascalCompiler); virtual;
+  end;
+  TPSROModuleClass = class of TPSROModule;
+  TPSRemObjectsSdkPlugin = class;
+  TPSROModuleLoadEvent = procedure (Sender: TPSRemObjectsSdkPlugin) of object;
+  
+  TPSRemObjectsSdkPlugin = class(TPSPlugin)
+  private
+    FRodl: TRODLLibrary;
+    FModules: TList;
+    FOnLoadModule: TPSROModuleLoadEvent;
+    
+    FEnableIndyTCP: Boolean;
+    FEnableIndyHTTP: Boolean;
+    FEnableBinary: Boolean;
+    function GetHaveRodl: Boolean;
+    function MkStructName(Struct: TRODLStruct): string;
+  public
+    procedure CompileImport1(CompExec: TPSScript); override;
+    procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
+  protected
+    procedure Loaded; override;
+  public
+    
+    procedure RODLLoadFromFile(const FileName: string);
+    
+    procedure RODLLoadFromResource;
+
+    procedure RODLLoadFromStream(S: TStream);
+    
+    procedure ClearRodl;
+    
+    property HaveRodl: Boolean read GetHaveRodl;
+    
+    constructor Create(AOwner: TComponent); override;
+    
+    destructor Destroy; override;
+
+    
+    procedure ReloadModules;
+    
+    procedure RegisterModule(Module: TPSROModuleClass);
+  published
+    property OnLoadModule: TPSROModuleLoadEvent read FOnLoadModule write FOnLoadModule;
+    
+    property EnableIndyTCP: Boolean read FEnableIndyTCP write FEnableIndyTCP default true;
+    
+    property EnableIndyHTTP: Boolean read FEnableIndyHTTP write FEnableIndyHTTP default true;
+    
+    property EnableBinary: Boolean read FEnableBinary write FEnableBinary default true;
+  end;
+
+implementation
+uses
+  uRODLToXML, uROPSImports;
+
+procedure SIRegisterTROTRANSPORTCHANNEL(CL: TPSPascalCompiler);
+Begin
+With cl.AddClassN(cl.FindClass('TComponent'), 'TROTRANSPORTCHANNEL') do
+  begin
+  end;
+end;
+
+procedure SIRegisterTROMESSAGE(CL: TPSPascalCompiler);
+Begin
+With cl.AddClassN(cl.FindClass('TComponent'),'TROMESSAGE') do
+  begin
+  RegisterProperty('MESSAGENAME', 'STRING', iptrw);
+  RegisterProperty('INTERFACENAME', 'STRING', iptrw);
+  end;
+end;
+
+procedure TROMESSAGEINTERFACENAME_W(Self: TROMESSAGE; const T: STRING);
+begin Self.INTERFACENAME := T; end;
+
+procedure TROMESSAGEINTERFACENAME_R(Self: TROMESSAGE; var T: STRING);
+begin T := Self.INTERFACENAME; end;
+
+procedure TROMESSAGEMESSAGENAME_W(Self: TROMESSAGE; const T: STRING);
+begin Self.MESSAGENAME := T; end;
+
+procedure TROMESSAGEMESSAGENAME_R(Self: TROMESSAGE; var T: STRING);
+begin T := Self.MESSAGENAME; end;
+
+procedure RIRegisterTROTRANSPORTCHANNEL(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TROTRANSPORTCHANNEL) do
+  begin
+  RegisterVirtualConstructor(@TROTRANSPORTCHANNEL.CREATE, 'CREATE');
+  end;
+end;
+
+procedure RIRegisterTROMESSAGE(Cl: TPSRuntimeClassImporter);
+Begin
+with Cl.Add(TROMESSAGE) do
+  begin
+  RegisterVirtualConstructor(@TROMESSAGE.CREATE, 'CREATE');
+  RegisterPropertyHelper(@TROMESSAGEMESSAGENAME_R,@TROMESSAGEMESSAGENAME_W,'MESSAGENAME');
+  RegisterPropertyHelper(@TROMESSAGEINTERFACENAME_R,@TROMESSAGEINTERFACENAME_W,'INTERFACENAME');
+  end;
+end;
+
+ 
+(*----------------------------------------------------------------------------*)
+procedure SIRegister_TROBinaryMemoryStream(CL: TPSPascalCompiler);
+begin
+  //with RegClassS(CL,'TMemoryStream', 'TROBinaryMemoryStream') do
+  with CL.AddClassN(CL.FindClass('TMemoryStream'),'TROBinaryMemoryStream') do
+  begin
+    RegisterMethod('Constructor Create2( const iString : Ansistring);');
+    RegisterMethod('Constructor Create;');
+    RegisterMethod('Procedure Assign( iSource : TStream)');
+    RegisterMethod('Function Clone : TROBinaryMemoryStream');
+    RegisterMethod('Procedure LoadFromString( const iString : Ansistring)');
+    RegisterMethod('Procedure LoadFromHexString( const iString : Ansistring)');
+    RegisterMethod('Function ToString : AnsiString');
+    RegisterMethod('Function ToHexString : Ansistring');
+    RegisterMethod('Function ToReadableString : Ansistring');
+    RegisterMethod('Function WriteAnsiString( AString : AnsiString) : integer');
+    RegisterProperty('CapacityIncrement', 'integer', iptrw);
+  end;
+end;
+
+(*----------------------------------------------------------------------------*)
+procedure SIRegister_uROClasses(CL: TPSPascalCompiler);
+begin
+  SIRegister_TROBinaryMemoryStream(CL);
+end;
+
+(* === run-time registration functions === *)
+(*----------------------------------------------------------------------------*)
+procedure TROBinaryMemoryStreamCapacityIncrement_W(Self: TROBinaryMemoryStream; const T: integer);
+begin Self.CapacityIncrement := T; end;
+
+(*----------------------------------------------------------------------------*)
+procedure TROBinaryMemoryStreamCapacityIncrement_R(Self: TROBinaryMemoryStream; var T: integer);
+begin T := Self.CapacityIncrement; end;
+
+(*----------------------------------------------------------------------------*)
+Function TROBinaryMemoryStreamCreate_P(Self: TClass; CreateNewInstance: Boolean):TObject;
+Begin Result := TROBinaryMemoryStream.Create; END;
+
+(*----------------------------------------------------------------------------*)
+Function TROBinaryMemoryStreamCreate2_P(Self: TClass; CreateNewInstance: Boolean;  const iString : Ansistring):TObject;
+Begin Result := TROBinaryMemoryStream.Create(iString); END;
+
+(*----------------------------------------------------------------------------*)
+procedure RIRegister_TROBinaryMemoryStream(CL: TPSRuntimeClassImporter);
+begin
+  with CL.Add(TROBinaryMemoryStream) do
+  begin
+    RegisterConstructor(@TROBinaryMemoryStreamCreate2_P, 'Create2');
+    RegisterConstructor(@TROBinaryMemoryStreamCreate_P, 'Create');
+    RegisterMethod(@TROBinaryMemoryStream.Assign, 'Assign');
+    RegisterMethod(@TROBinaryMemoryStream.Clone, 'Clone');
+    RegisterMethod(@TROBinaryMemoryStream.LoadFromString, 'LoadFromString');
+    RegisterMethod(@TROBinaryMemoryStream.LoadFromHexString, 'LoadFromHexString');
+    RegisterMethod(@TROBinaryMemoryStream.ToString, 'ToString');
+    RegisterMethod(@TROBinaryMemoryStream.ToHexString, 'ToHexString');
+    RegisterMethod(@TROBinaryMemoryStream.ToReadableString, 'ToReadableString');
+    RegisterMethod(@TROBinaryMemoryStream.WriteAnsiString, 'WriteAnsiString');
+    RegisterPropertyHelper(@TROBinaryMemoryStreamCapacityIncrement_R,@TROBinaryMemoryStreamCapacityIncrement_W,'CapacityIncrement');
+  end;
+end;
+
+(*----------------------------------------------------------------------------*)
+procedure RIRegister_uROClasses(CL: TPSRuntimeClassImporter);
+begin
+  RIRegister_TROBinaryMemoryStream(CL);
+end;
+
+ 
+
+(*----------------------------------------------------------------------------*)
+
+type
+  TRoObjectInstance = class;
+  {   }
+  IROClass = interface
+    ['{246B5804-461F-48EC-B2CA-FBB7B69B0D64}']
+    function SLF: TRoObjectInstance;
+  end;
+  TRoObjectInstance = class(TInterfacedObject, IROClass)
+  private
+    FMessage: IROMessage;
+    FChannel: IROTransportChannel;
+  public
+    constructor Create;
+    function SLF: TRoObjectInstance;
+    property Message: IROMessage read FMessage write FMessage;
+    property Channel: IROTransportChannel read FChannel write FChannel;
+  end;
+
+
+
+function CreateProc(Caller: TPSExec; p: PIFProcRec; Global, Stack: TPSStack): Boolean;
+var
+  temp, res: TPSVariantIFC;
+  Chan: TROTransportChannel;
+  Msg: TROMessage;
+  NewRes: TRoObjectInstance;
+begin
+  res := NewTPSVariantIFC(Stack[Stack.count -1], True);
+  if (Res.Dta = nil) or (res.aType.BaseType <> btInterface) then
+  begin
+    Caller.CMD_Err2(erCustomError, 'RO Invoker: Invalid Parameters');
+    Result := False;
+    exit;
+  end;
+  IUnknown(Res.Dta^) := nil;
+
+  NewRes := TRoObjectInstance.Create;
+
+  temp := NewTPSVariantIFC(Stack[Stack.Count -4], True);
+
+  if (temp.aType <> nil) and (temp.Dta <> nil) and (Temp.aType.BaseType = btClass) and (TObject(Temp.Dta^) is TROTransportChannel) then
+    Chan := TROTransportChannel(temp.dta^)
+  else
+    Chan := nil;
+  temp := NewTPSVariantIFC(Stack[Stack.Count -3], True);
+  if (temp.aType <> nil) and (temp.Dta <> nil) and (Temp.aType.BaseType = btClass) and (TObject(Temp.Dta^) is TROMessage) then
+    Msg := TROMessage(temp.dta^)
+  else
+    Msg := nil;
+  if (msg = nil) or (chan = nil) then
+  begin
+    Chan.free;
+    msg.Free;
+
+    NewRes.Free;
+    Result := false;
+    Caller.CMD_Err2(erCustomError, 'Could not create message');
+    exit;
+  end;
+
+  IRoClass(Res.Dta^) := NewRes;
+
+  NewRes.Message := Msg;
+  NewRes.Channel := Chan;
+  Result := True;
+end;
+
+function NilProc(Caller: TPSExec; p: PIFProcRec; Global, Stack: TPSStack): Boolean;
+var
+  n: TPSVariantIFC;
+begin
+  n := NewTPSVariantIFC(Stack[Stack.count -1], True);
+  if (n.Dta = nil) or (n.aType = nil) or (n.aType.BaseType <> btInterface) then
+  begin
+    Caller.CMD_Err2(erCustomError, 'RO Invoker: Cannot free');
+    Result := False;
+    exit;
+  end;
+  IUnknown(n.Dta^) := nil;
+  Result := True;
+end;
+
+type
+  TROStructure = class(TPersistent, IROCustomStreamableType, IROCustomStreamableStruct)
+  private
+    FVar: TPSVariantIFC;
+    FExec: TPSExec;
+  protected
+    function GetTypeName: string;
+    procedure SetTypeName(const s: string);
+    procedure Write(Serializer: TROSerializer; const Name: string);
+    procedure Read(Serializer: TROSerializer; const Name: string);
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function CanImplementType(const aName: string):boolean;
+    procedure SetNull(b: Boolean);
+    function IsNull: Boolean;
+  public
+    constructor Create(aVar: TPSVariantIfc; Exec: TPSExec);
+  end;
+  TROArray = class(TROStructure, IROCustomStreamableType, IROCustomStreamableStruct, IROCustomStreamableArray)
+  protected
+    function GetCount: Longint;
+     procedure SetCount(l: Longint);
+  end;
+
+procedure WriteUserDefined(Exec: TPSExec; const Msg: IROMessage; const Name: string; const n: TPSVariantIfc);
+var
+  obj: TROStructure;
+begin
+  if n.aType.BaseType = btArray then
+    obj := TROArray.Create(n, exec)
+  else if n.aType.BaseType = btRecord then
+    obj := TROStructure.Create(n, exec)
+  else
+    raise Exception.Create('Unknown custom type');
+  try
+    Msg.Write(Name, obj.ClassInfo, obj, []);
+  finally
+    obj.Free;
+  end;
+end;
+
+procedure ReadUserDefined(Exec: TPSExec; const Msg: IROMessage;  const Name: string; const n: TPSVariantIfc);
+var
+  obj: TROStructure;
+begin
+  if n.aType.BaseType = btArray then
+    obj := TROArray.Create(n, exec)
+  else if n.aType.BaseType = btRecord then
+    obj := TROStructure.Create(n, exec)
+  else
+    raise Exception.Create('Unknown custom type');
+  try
+    Msg.Read(Name, obj.ClassInfo, obj, []);
+  finally
+    obj.Free;
+  end;
+end;
+
+function RoProc(Caller: TPSExec; p: TIFExternalProcRec; Global, Stack: TIfList): Boolean;
+var
+  s, s2: string;
+  res, n: TPSVariantIFC;
+  aType: TRODataType;
+  aMode: TRODLParamFlag;
+  StartOffset, I: Longint;
+  __request, __response : TMemoryStream;
+  Inst:  TRoObjectInstance;
+
+begin
+  s := p.Decl;
+
+  if s[1] = #255 then
+  begin
+    n := NewTPSVariantIFC(Stack[Stack.Count -1], True);
+    res.Dta := nil;
+    res.aType := nil;
+    StartOffset := Stack.Count -2;
+  end
+  else
+  begin
+    n := NewTPSVariantIFC(Stack[Stack.Count -2], True);
+    res := NewTPSVariantIFC(Stack[Stack.Count -1], True);
+    StartOffset := Stack.Count -3;
+  end;
+
+  if (n.Dta = nil) or (N.aType = nil) or (n.aType.BaseType <> btInterface) or (Longint(n.Dta^) = 0) then
+  begin
+    Caller.CMD_Err2(erCustomError, 'RO Invoker: Invalid Parameters');
+    Result := False;
+    exit;
+  end;
+
+  Inst := IROClass(n.dta^).Slf;
+  Delete(s, 1, 1);
+  i := StartOffset;
+  try
+    Inst.SLF.Message.InitializeRequestMessage(Inst.Channel, '', Copy(p.Name,1,pos('.', p.Name) -1), Copy(p.Name, pos('.', p.Name)+1, MaxInt));
+    while Length(s) > 0 do
+    begin
+      s2 := copy(s, 2, ord(s[1]));
+      aMode := TRODLParamFlag(ord(s[length(s2)+2]));
+      aType := TRODataType(ord(s[length(s2)+3]));
+      Delete(s, 1, length(s2)+3);
+      n := NewTPSVariantIFC(Stack[i], True);
+      Dec(I);
+      if ((aMode = fIn) or (aMode = fInOut)) and (n.Dta <> nil) then
+      begin
+        case aType of
+          rtInteger: Inst.Message.Write(s2, TypeInfo(Integer),  Integer(n.Dta^), []);
+          rtDateTime: Inst.Message.Write(s2, TypeInfo(DateTime), Double(n.Dta^), []);
+          rtDouble: Inst.Message.Write(s2, TypeInfo(Double), Double(n.Dta^), []);
+          rtCurrency: Inst.Message.Write(s2, TypeInfo(Double), Double(n.Dta^), []);
+          rtWideString: Inst.Message.Write(s2, TypeInfo(WideString), WideString(n.Dta^), []);
+          rtString: Inst.Message.Write(s2, TypeInfo(String), String(n.Dta^), []);
+          rtInt64: Inst.Message.Write(s2, TypeInfo(Int64), Int64(n.Dta^), []);
+          rtBoolean: Inst.Message.Write(s2, TypeInfo(Boolean), Byte(n.Dta^), []);
+          rtUserDefined: WriteUserDefined(Caller, Inst.Message, s2, n);
+        end;
+      end;
+    end;
+    __request := TMemoryStream.Create;
+    __response := TMemoryStream.Create;
+    try
+      Inst.Message.WriteToStream(__request);
+      Inst.Channel.Dispatch(__request, __response);
+      Inst.Message.ReadFromStream(__response);
+    finally
+      __request.Free;
+      __response.Free;
+    end;
+    s := p.Decl;
+    Delete(s, 1, 1);
+    i := StartOffset;
+    while Length(s) > 0 do
+    begin
+      s2 := copy(s, 2, ord(s[1]));
+      aMode := TRODLParamFlag(ord(s[length(s2)+2]));
+      aType := TRODataType(ord(s[length(s2)+3]));
+      Delete(s, 1, length(s2)+3);
+      n := NewTPSVariantIFC(Stack[i], True);
+      Dec(I);
+      if ((aMode = fOut) or (aMode = fInOut)) and (n.Dta <> nil) then
+      begin
+        case aType of
+          rtInteger: Inst.Message.Read(s2, TypeInfo(Integer), Longint(n.Dta^), []);
+          rtDateTime: Inst.Message.Read(s2, TypeInfo(DateTime), double(n.dta^), []);
+          rtDouble: Inst.Message.Read(s2, TypeInfo(Double), double(n.dta^), []);
+          rtCurrency: Inst.Message.Read(s2, TypeInfo(Double), double(n.dta^), []);
+          rtWideString: Inst.Message.Read(s2, TypeInfo(WideString), widestring(n.Dta^), []);
+          rtString: Inst.Message.Read(s2, TypeInfo(String), string(n.dta^), []);
+          rtInt64: Inst.Message.Read(s2, TypeInfo(Int64), Int64(n.Dta^), []);
+          rtBoolean: Inst.Message.Read(s2, TypeInfo(Boolean), Boolean(n.Dta^), []);
+          rtUserDefined: ReadUserDefined(Caller, Inst.Message, s2, n);
+        end;
+      end;
+    end;
+    aType := TRODataType(p.Decl[1]);
+    case aType of
+      rtInteger: Inst.Message.Read('Result', TypeInfo(Integer), Longint(res.Dta^), []);
+      rtDateTime: Inst.Message.Read('Result', TypeInfo(DateTime), Double(res.dta^), []);
+      rtDouble: Inst.Message.Read('Result', TypeInfo(Double), Double(res.Dta^), []);
+      rtCurrency: Inst.Message.Read('Result', TypeInfo(Double), double(res.Dta^), []);
+      rtWideString: Inst.Message.Read('Result', TypeInfo(WideString), WideString(res.Dta^), []);
+      rtString: Inst.Message.Read('Result', TypeInfo(String), String(res.Dta^), []);
+      rtInt64: Inst.Message.Read('Result', TypeInfo(Int64), Int64(res.dta^), []);
+      rtBoolean: Inst.Message.Read('Result', TypeInfo(Boolean), Boolean(res.dta^), []);
+      rtUserDefined: ReadUserDefined(Caller, Inst.Message, 'Result', res);
+    end;
+  except
+    on e: Exception do
+    begin
+      Caller.CMD_Err2(erCustomError, e.Message);
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+
+function SProcImport(Sender: TPSExec; p: TIFExternalProcRec; Tag: Pointer): Boolean;
+var
+  s: string;
+begin
+  s := p.Decl;
+  Delete(s, 1, pos(':', s));
+  if s[1] = '-' then
+    p.ProcPtr := @NilProc
+  else if s[1] = '!' then
+  begin
+    P.ProcPtr := @CreateProc;
+    p.Decl := Copy(s, 2, MaxInt);
+  end else
+  begin
+    Delete(s, 1, 1);
+    p.Name := Copy(S,1,pos('!', s)-1);
+    Delete(s, 1, pos('!', s));
+    p.Decl := s;
+    p.ProcPtr := @RoProc;
+  end;
+  Result := True;
+end;
+
+
+type
+  TMYComp = class(TPSPascalCompiler);
+  TRoClass = class(TPSExternalClass)
+  private
+    FService: TRODLService;
+    FNilProcNo: Cardinal;
+    FCompProcno: Cardinal;
+    function CreateParameterString(l: TRODLOperation): string;
+    function GetDT(DataType: string): TRODataType;
+    procedure MakeDeclFor(Dest: TPSParametersDecl; l: TRODLOperation);
+  public
+    constructor Create(Se: TPSPascalCompiler; Service: TRODLService; Const Typeno: TPSType);
+
+    function SelfType: TPSType; override;
+    function Func_Find(const Name: tbtstring; var Index: Cardinal): Boolean; override;
+    function Func_Call(Index: Cardinal; var ProcNo: Cardinal): Boolean; override;
+    function SetNil(var ProcNo: Cardinal): Boolean; override;
+
+    function ClassFunc_Find(const Name: tbtstring; var Index: Cardinal): Boolean; override;
+    function ClassFunc_Call(Index: Cardinal; var ProcNo: Cardinal): Boolean; override;
+    function IsCompatibleWith(Cl: TPSExternalClass): Boolean; override;
+  end;
+
+{ TROPSLink }
+procedure TPSRemObjectsSdkPlugin.RODLLoadFromFile(const FileName: string);
+var
+  f: TFileStream;
+begin
+  f := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
+  try
+    RODLLoadFromStream(f);
+  finally
+    f.Free;
+  end;
+end;
+
+procedure TPSRemObjectsSdkPlugin.RODLLoadFromResource;
+var
+  rs: TResourceStream;
+begin
+  rs := TResourceStream.Create(HInstance, 'RODLFILE', RT_RCDATA);
+  try
+    RODLLoadFromStream(rs);
+  finally
+    rs.Free;
+  end;
+end;
+
+procedure TPSRemObjectsSdkPlugin.RODLLoadFromStream(S: TStream);
+begin
+  FreeAndNil(FRodl);
+  with TXMLToRODL.Create do
+  begin
+    try
+      FRodl := Read(S);
+    finally
+      Free;
+    end;
+  end;
+end;
+
+
+destructor TPSRemObjectsSdkPlugin.Destroy;
+begin
+  FreeAndNil(FRodl);
+  FModules.Free;
+  inherited Destroy;
+end;
+
+{ TRoClass }
+
+constructor TRoClass.Create(Se: TPSPascalCompiler; Service: TRODLService; Const Typeno: TPSType);
+begin
+  inherited Create(SE, TypeNo);
+  FService := Service;
+  FNilProcNo := Cardinal(-1);
+  FCompProcNo := Cardinal(-1);
+end;
+
+function TRoClass.GetDT(DataType: string): TRODataType;
+begin
+  DataType := LowerCase(DataType);
+  if DataType = 'integer' then
+    Result := rtInteger
+  else if DataType = 'datetime' then
+    Result := rtDateTime
+  else if DataType = 'double' then
+    Result := rtDouble
+  else if DataType = 'currency' then
+    Result := rtCurrency
+  else if DataType = 'widestring' then
+    Result := rtWidestring
+  else if DataType = 'string' then
+    Result := rtString
+  else if DataType = 'int64' then
+    Result := rtInt64
+  else if DataType = 'boolean' then
+    Result := rtBoolean
+  else if DataType = 'variant' then
+    Result := rtVariant
+  else if DataType = 'binary' then
+    Result := rtBinary
+  else
+    Result := rtUserDefined;
+end;
+
+function TRoClass.CreateParameterString(l: TRODLOperation): string;
+var
+  i: Longint;
+begin
+  if L.Result = nil then
+  begin
+    Result := #$FF;
+  end else
+  begin
+    Result := Chr(Ord(GetDT(l.Result.DataType)));
+  end;
+  for i := 0 to l.Count -1 do
+  begin
+    if l.Items[i].Flag = fResult then Continue;
+    Result := Result + Chr(Length(l.Items[i].Info.Name))+ l.Items[i].Info.Name + Chr(Ord(l.Items[i].Flag)) + Chr(Ord(GetDT(l.Items[i].DataType)));
+  end;
+end;
+
+procedure TRoClass.MakeDeclFor(Dest: TPSParametersDecl; l: TRODLOperation);
+var
+  i: Longint;
+  dd: TPSParameterDecl;
+begin
+  if l.Result <> nil then
+  begin
+    Dest.Result := TMyComp(SE).at2ut(SE.FindType(l.Result.DataType));
+  end;
+  for i := 0 to l.Count -1 do
+  begin
+    if l.Items[i].Flag = fResult then Continue;
+    dd := Dest.AddParam;
+    if l.Items[i].Flag = fIn then
+      dd.mode := pmIn
+    else
+      dd.Mode := pmInOut;
+    dd.OrgName := l.Items[i].Info.Name;
+    dd.aType := TMyComp(SE).at2ut(SE.FindType(l.Items[i].DataType));
+  end;
+end;
+
+function TRoClass.Func_Call(Index: Cardinal; var ProcNo: Cardinal): Boolean;
+var
+  h, i: Longint;
+  s, e: string;
+  P: TPSProcedure;
+  p2: TPSExternalProcedure;
+begin
+    s := 'roclass:_'+FService.Info.Name + '.' + FService.Default.Items[Index].Info.Name;
+  h := MakeHash(s);
+  for i := 0 to TMyComp(SE).FProcs.Count -1 do
+  begin
+    P := TMyComp(SE).FProcs[i];
+    if (p is TPSExternalProcedure) then
+    begin
+      p2 := TPSExternalProcedure(p);
+      if (p2.RegProc.NameHash = h) and (Copy(p2.RegProc.ImportDecl, 1, pos(tbtchar('!'), p2.RegProc.ImportDecl)) = s) then
+      begin
+        Procno := I;
+        Result := True;
+        Exit;
+      end;
+    end;
+  end;
+  e := CreateParameterString(FService.Default.Items[Index]);
+  s := s + '!' + e;
+  ProcNo := TMyComp(SE).AddUsedFunction2(P2);
+  p2.RegProc := TPSRegProc.Create;
+  TMYComp(SE).FRegProcs.Add(p2.RegProc);
+  p2.RegProc.Name := '';
+  p2.RegProc.ExportName := True;
+  MakeDeclFor(p2.RegProc.Decl, FService.Default.Items[Index]);
+  p2.RegProc.ImportDecl := s;
+  Result := True;
+end;
+
+function TRoClass.Func_Find(const Name: tbtstring; var Index: Cardinal): Boolean;
+var
+  i: Longint;
+begin
+  for i := 0 to FService.Default.Count -1 do
+  begin
+    if CompareText(FService.Default.Items[i].Info.Name, Name) = 0 then
+    begin
+      Index := i;
+      Result := True;
+      Exit;
+    end;
+  end;
+  Result := False;
+end;
+
+const
+  PSClassType = '!ROClass';
+  MyGuid: TGuid = '{CADCCF37-7FA0-452E-971D-65DA691F7648}';
+
+function TRoClass.SelfType: TPSType;
+begin
+  Result := SE.FindType(PSClassType);
+  if Result = nil then
+  begin
+    Result := se.AddInterface(se.FindInterface('IUnknown'), MyGuid, PSClassType).aType;
+  end;
+end;
+
+function TRoClass.SetNil(var ProcNo: Cardinal): Boolean;
+var
+  P: TPSExternalProcedure;
+begin
+  if FNilProcNo <> Cardinal(-1) then
+    ProcNo:= FNilProcNo
+  else
+  begin
+    ProcNo := TMyComp(SE).AddUsedFunction2(P);
+    p.RegProc := TPSRegProc.Create;
+    TMyComp(SE).FRegProcs.Add(p.RegProc);
+    p.RegProc.Name := '';
+    p.RegProc.ExportName := True;
+    with p.RegProc.Decl.AddParam do
+    begin
+      OrgName := 'VarNo';
+      aType := TMYComp(Se).at2ut(SelfType);
+    end;
+    p.RegProc.ImportDecl := 'roclass:-';
+    FNilProcNo := Procno;
+  end;
+  Result := True;
+end;
+
+function TRoClass.ClassFunc_Call(Index: Cardinal;
+  var ProcNo: Cardinal): Boolean;
+var
+  P: TPSExternalProcedure;
+begin
+  if FCompProcNo <> Cardinal(-1) then
+  begin
+    Procno := FCompProcNo;
+    Result := True;
+    Exit;
+  end;
+  ProcNo := TMyComp(SE).AddUsedFunction2(P);
+  p.RegProc := TPSRegProc.Create;
+  TMyComp(SE).FRegProcs.Add(p.RegProc);
+  p.RegProc.ExportName := True;
+  p.RegProc.Decl.Result := TMyComp(SE).at2ut(SelfType);
+  with p.RegProc.Decl.AddParam do
+  begin
+    Orgname := 'Message';
+    aType :=TMyComp(SE).at2ut(SE.FindType('TROMESSAGE'));
+  end;
+  with p.RegProc.Decl.AddParam do
+  begin
+    Orgname := 'Channel';
+    aType :=TMyComp(SE).at2ut(SE.FindType('TROTRANSPORTCHANNEL'));
+  end;
+  p.RegProc.ImportDecl := 'roclass:!';
+  FCompProcNo := Procno;
+  Result := True;
+end;
+
+function TRoClass.ClassFunc_Find(const Name: tbtstring;
+  var Index: Cardinal): Boolean;
+begin
+  if Name = 'CREATE' then
+  begin
+    Result := True;
+    Index := 0;
+  end else
+    result := False;
+end;
+
+function TRoClass.IsCompatibleWith(Cl: TPSExternalClass): Boolean;
+begin
+  Result := Cl is TRoClass;
+end;
+
+{ TRoObjectInstance }
+
+function TRoObjectInstance.SLF: TRoObjectInstance;
+begin
+  Result := Self;
+end;
+
+constructor TRoObjectInstance.Create;
+begin
+  FRefCount := 1;
+end;
+
+
+function TPSRemObjectsSdkPlugin.MkStructName(Struct: TRODLStruct): string;
+var
+  i: Longint;
+begin
+  Result := '!ROStruct!'+Struct.Info.Name+ ',';
+  for i := 0 to Struct.Count -1 do
+  begin
+    Result := Result + Struct.Items[i].Info.Name+ ',';
+  end;
+end;
+
+function CompareStructItem(const S1, S2: TRODLTypedEntity): Integer;
+begin
+  Result := CompareText(S1.Info.Name, S2.Info.Name);
+end;
+
+procedure SortStruct(struct: TRODLStruct; First, Last: Longint);
+var
+  l, r, Pivot: Integer;
+begin
+  while First < Last do
+  begin
+    Pivot := (First + Last) div 2;
+    l := First - 1;
+    r := Last + 1;
+    repeat
+      repeat inc(l); until CompareStructItem(Struct.Items[l], Struct.Items[Pivot]) >= 0;
+      repeat dec(r); until CompareStructItem(Struct.Items[r], Struct.Items[Pivot]) <= 0;
+      if l >= r then break;
+      Struct.Exchange(l, r);
+    until false;                                     
+    if First < r then SortStruct(Struct, First, r);
+    First := r+1;
+  end;
+end;
+
+procedure TPSRemObjectsSdkPlugin.CompileImport1(CompExec: TPSScript);
+var
+  i, i1: Longint;
+  Enum: TRODLEnum;
+  TempType: TPSType;
+  Struct: TRODLStruct;
+  Arr: TRODLArray;
+  RecType: TPSRecordFieldTypeDef;
+  Service: TRODLService;
+begin
+  if FRODL = nil then exit;
+  if CompExec.Comp.FindType('TDateTime') = nil then
+    raise Exception.Create('Please register the DateUtils library first');
+  if CompExec.Comp.FindType('TStream') = nil then
+    raise Exception.Create('Please register the sysutils/classes library first');
+  SIRegisterTROTRANSPORTCHANNEL(CompExec.Comp);
+  SIRegisterTROMESSAGE(CompExec.Comp);
+  SIRegister_uROClasses(CompExec.Comp);
+  CompExec.Comp.AddTypeCopyN('Binary', 'TROBinaryMemoryStream');
+  if CompExec.Comp.FindType('DateTime') = nil then
+    CompExec.Comp.AddTypeCopyN('DateTime', 'TDateTime');
+  if CompExec.Comp.FindType('Currency') = nil then
+    CompExec.Comp.AddTypeCopyN('Currency', 'Double'); // for now
+  for i := 0 to FRodl.EnumCount -1 do
+  begin
+    Enum := FRodl.Enums[i];
+    TempType := CompExec.Comp.AddType(Enum.Info.Name, btEnum);
+    for i1 := 0 to Enum.Count -1 do
+    begin
+      CompExec.Comp.AddConstant(Enum.Items[i1].Info.Name, TempType).SetUInt(i1);
+    end;
+  end;
+  for i := 0 to FRodl.StructCount -1 do
+  begin
+    Struct := FRodl.Structs[i];
+    SortStruct(Struct, 0, Struct.Count-1);
+    TempType := CompExec.Comp.AddType('', btRecord);
+    TempType.ExportName := True;
+    TempType.Name := MkStructName(Struct);
+    for i1 := 0 to Struct.Count -1 do
+    begin
+      RecType := TPSRecordType(TempType).AddRecVal;
+      RecType.FieldOrgName := Struct.Items[i1].Info.Name;
+      RecType.aType := CompExec.Comp.FindType(Struct.Items[i1].DataType);
+      if RecType.aType = nil then begin
+        Arr := fRodl.FindArray(Struct.Items[i1].DataType);
+        if Arr <> nil then begin
+          RecType.aType := CompExec.Comp.AddType(Arr.Info.Name, btArray);
+          TPSArrayType(RecType.aType).ArrayTypeNo := CompExec.Comp.FindType(Arr.ElementType);
+        end;
+      end;
+    end;
+    CompExec.Comp.AddTypeCopy(Struct.Info.Name, TempType);
+  end;
+  for i := 0 to FRodl.ArrayCount -1 do
+  begin
+    Arr := FRodl.Arrays[i];
+    TempType := CompExec.Comp.FindType(Arr.Info.Name);
+    if TempType <> nil then begin
+      if not (TempType is TPSArrayType) then begin
+        CompExec.Comp.MakeError('ROPS', ecDuplicateIdentifier, Arr.Info.Name);
+      end;
+    end else begin
+      TempType := CompExec.Comp.AddType(Arr.Info.Name, btArray);
+    end;
+    TPSArrayType(TempType).ArrayTypeNo := CompExec.Comp.FindType(Arr.ElementType);
+  end;
+  for i := 0 to FRodl.ServiceCount -1 do
+  begin
+    Service := FRodl.Services[i];
+    TempType := CompExec.Comp.AddType(Service.Info.Name, btExtClass);
+    TPSUndefinedClassType(TempType).ExtClass := TRoClass.Create(CompExec.Comp, Service, TempType);
+  end;
+  for i := 0 to FModules.Count -1 do
+    TPSROModuleClass(FModules[i]).CompImp(CompExec.Comp);
+end;
+
+function TPSRemObjectsSdkPlugin.GetHaveRodl: Boolean;
+begin
+  Result := FRodl <> nil;
+end;
+
+procedure TPSRemObjectsSdkPlugin.ClearRodl;
+begin
+  FRodl.Free;
+  FRodl := nil;
+end;
+
+procedure TPSRemObjectsSdkPlugin.ExecImport1(CompExec: TPSScript;
+  const ri: TPSRuntimeClassImporter);
+var
+  i: Longint;
+begin
+  if FRODL = nil then exit;
+  CompExec.Exec.AddSpecialProcImport('roclass', SProcImport, nil);
+  RIRegisterTROTRANSPORTCHANNEL(ri);
+  RIRegisterTROMESSAGE(ri);
+  RIRegister_TROBinaryMemoryStream(ri);
+  for i := 0 to FModules.Count -1 do
+    TPSROModuleClass(FModules[i]).ExecImp(CompExec.Exec, ri);
+end;
+
+constructor TPSRemObjectsSdkPlugin.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FModules := TList.Create;
+  //FEnableSOAP := True;
+  FEnableBinary := True;
+  FEnableIndyTCP := True;
+  FEnableIndyHTTP := True;
+end;
+
+procedure TPSRemObjectsSdkPlugin.Loaded;
+begin
+  inherited Loaded;
+  ReloadModules;
+end;
+
+procedure TPSRemObjectsSdkPlugin.RegisterModule(
+  Module: TPSROModuleClass);
+begin
+  FModules.Add(Module);
+end;
+
+procedure TPSRemObjectsSdkPlugin.ReloadModules;
+begin
+  FModules.Clear;
+  if FEnableIndyTCP then RegisterModule(TPSROIndyTCPModule);
+  if FEnableIndyHTTP then RegisterModule(TPSROIndyHTTPModule);
+  //if FEnableSOAP then RegisterModule(TPSROSoapModule);
+  if FEnableBinary then RegisterModule(TPSROBinModule);
+  if assigned(FOnLoadModule) then
+    FOnLoadModule(Self);
+end;
+
+{ TPSROModule }
+
+class procedure TPSROModule.CompImp(comp: TPSPascalCompiler);
+begin
+  // do nothing
+end;
+
+class procedure TPSROModule.ExecImp(exec: TPSExec;
+  ri: TPSRuntimeClassImporter);
+begin
+  // do nothing
+end;
+
+procedure IntRead(Exec: TPSExec; Serializer: TROSerializer;
+  const Name: string; aVar: TPSVariantIFC; arridx: Longint);
+var
+  i: Longint;
+  s, s2: string;
+  r: TROStructure;
+begin
+  case aVar.aType.BaseType of
+    btS64: Serializer.Read(Name, TypeInfo(int64), Int64(avar.Dta^), arridx);
+    btu32: Serializer.Read(Name, TypeInfo(cardinal), Cardinal(avar.Dta^), arridx);
+    bts32: Serializer.Read(Name, TypeInfo(longint), Longint(avar.Dta^), arridx);
+    btu16: Serializer.Read(Name, TypeInfo(word), Word(aVar.Dta^), arridx);
+    btS16: Serializer.Read(Name, TypeInfo(smallint), Smallint(aVar.Dta^), arridx);
+    btu8: Serializer.Read(Name, TypeInfo(byte), Byte(aVar.Dta^), arridx);
+    btS8: Serializer.Read(Name, TypeInfo(shortint), Shortint(aVar.Dta^), arridx);
+    btDouble:
+      begin
+        if aVar.aType.ExportName = 'TDATETIME' then
+          Serializer.Read(Name, TypeInfo(datetime), Double(avar.Dta^), arridx)
+        else
+          Serializer.Read(Name, TypeInfo(double), Double(aVar.Dta^), arridx);
+      end;
+    btSingle: Serializer.Read(Name, TypeInfo(single), Single(avar.Dta^), arridx);
+    btExtended: Serializer.Read(Name, TypeInfo(extended), Extended(avar.dta^), arridx);
+    btWideString: Serializer.Read(Name, TypeInfo(widestring), widestring(avar.dta^), arridx);
+    btString: Serializer.Read(Name, TypeInfo(string), string(avar.dta^), arridx);
+    btArray:
+      begin
+        if (TPSTypeRec_Array(avar.aType).ArrayType.BaseType = btRecord) then
+        begin
+          for i := 0 to PSDynArrayGetLength(Pointer(aVar.Dta^), aVar.aType) -1 do
+          begin
+            r := TROStructure.Create(PSGetArrayField(avar, i), Exec);
+            try
+              Serializer.Read(Name, typeinfo(TROArray), r, i);
+            finally
+              r.Free;
+            end;
+          end;
+        end else if (TPSTypeRec_Array(avar.aType).ArrayType.BaseType = btArray) then
+        begin
+          for i := 0 to PSDynArrayGetLength(Pointer(aVar.Dta^), aVar.aType) -1 do
+          begin
+            r := TROArray.Create(PSGetArrayField(avar, i), Exec);
+            try
+              Serializer.Read(Name, typeinfo(TROArray), r, i);
+            finally
+              r.Free;
+            end;
+          end;
+        end else begin
+          for i := 0 to PSDynArrayGetLength(Pointer(aVar.Dta^), aVar.aType) -1 do
+          begin
+            IntRead(Exec, Serializer, Name, PSGetArrayField(avar, i), i);
+          end;
+        end;
+      end;
+    btRecord:
+      begin
+        s := avar.aType.ExportName;
+        if copy(s,1, 10) <> '!ROStruct!' then
+          raise Exception.Create('Invalid structure: '+s);
+        Delete(s,1,pos(',',s));
+        for i := 0 to TPSTypeRec_Record(aVar.aType).FieldTypes.Count -1 do
+        begin
+          s2 := copy(s,1,pos(',',s)-1);
+          delete(s,1,pos(',',s));
+          if (TPSTypeRec(TPSTypeRec_Record(aVar.aType).FieldTypes[i]).BaseType = btRecord) then
+          begin
+
+            r := TROStructure.Create(PSGetRecField(aVar, i), Exec);
+            try
+              Serializer.Read(s2, typeinfo(TROStructure), r, -1);
+            finally
+              r.Free;
+            end;
+          end else if (TPSTypeRec(TPSTypeRec_Record(aVar.aType).FieldTypes[i]).BaseType = btArray)  then
+          begin
+            r := TROArray.Create(PSGetRecField(aVar, i), Exec);
+            try
+              Serializer.Read(s2, typeinfo(TROArray), r, -1);
+            finally
+              r.Free;
+            end;
+          end else
+            IntRead(Exec, Serializer, s2, PSGetRecField(aVar, i), -1);
+        end;
+      end;
+  else
+    raise Exception.Create('Unable to read type');
+
+  end;
+end;
+
+procedure IntWrite(Exec: TPSExec; Serializer: TROSerializer;
+  const Name: string; aVar: TPSVariantIFC; arridx: Longint);
+var
+  i: Longint;
+  s, s2: string;
+  r: TROStructure;
+begin
+  case aVar.aType.BaseType of
+    btS64: Serializer.Write(Name, TypeInfo(int64), Int64(avar.Dta^), arridx);
+    btu32: Serializer.Write(Name, TypeInfo(cardinal), Cardinal(avar.Dta^), arridx);
+    bts32: Serializer.Write(Name, TypeInfo(longint), Longint(avar.Dta^), arridx);
+    btu16: Serializer.Write(Name, TypeInfo(word), Word(avar.Dta^), arridx);
+    btS16: Serializer.Write(Name, TypeInfo(smallint), Smallint(aVar.Dta^), arridx);
+    btu8: Serializer.Write(Name, TypeInfo(byte), Byte(aVar.Dta^), arridx);
+    btS8: Serializer.Write(Name, TypeInfo(shortint), ShortInt(aVar.Dta^), arridx);
+    btDouble:
+      begin
+        if aVar.aType.ExportName = 'TDATETIME' then
+          Serializer.Write(Name, TypeInfo(datetime), Double(aVar.Dta^), arridx)
+        else
+          Serializer.Write(Name, TypeInfo(double), Double(aVar.Dta^), arridx);
+      end;
+    btSingle: Serializer.Write(Name, TypeInfo(single), Single(aVar.Dta^), arridx);
+    btExtended: Serializer.Write(Name, TypeInfo(extended), Extended(aVar.Dta^), arridx);
+    btWideString: Serializer.Write(Name, TypeInfo(widestring), WideString(aVar.Dta^), arridx);
+    btString: Serializer.Write(Name, TypeInfo(string), String(aVar.Dta^), arridx);
+    btArray:
+      begin
+        if (TPSTypeRec_Array(avar.aType).ArrayType.BaseType = btRecord) then
+        begin
+          for i := 0 to PSDynArrayGetLength(Pointer(aVar.Dta^), aVar.aType) -1 do
+          begin
+            r := TROStructure.Create(PSGetArrayField(aVar, i), Exec);
+            try
+              Serializer.Write(Name, typeinfo(TROArray), r, i);
+            finally
+              r.Free;
+            end;
+          end;
+        end else if (TPSTypeRec_Array(avar.aType).ArrayType.BaseType = btArray) then
+        begin
+          for i := 0 to PSDynArrayGetLength(Pointer(aVar.Dta^), aVar.aType) -1 do
+          begin
+            r := TROArray.Create(PSGetArrayField(aVar, i), Exec);
+            try
+              Serializer.Write(Name, typeinfo(TROArray), r, i);
+            finally
+              r.Free;
+            end;
+          end;
+        end else begin
+          for i := 0 to PSDynArrayGetLength(Pointer(aVar.Dta^), aVar.aType) -1 do
+          begin
+            IntWrite(Exec, Serializer, Name, PSGetArrayField(aVar, i), i);
+          end;
+        end;
+      end;
+    btRecord:
+      begin
+        s := avar.aType.ExportName;
+        if copy(s,1, 10) <> '!ROStruct!' then
+          raise Exception.Create('Invalid structure: '+s);
+        Delete(s,1,pos(',',s));
+        for i := 0 to TPSTypeRec_Record(aVar.aType).FieldTypes.Count -1 do
+        begin
+          s2 := copy(s,1,pos(',',s)-1);
+          delete(s,1,pos(',',s));
+          if (TPSTypeRec(TPSTypeRec_Record(aVar.aType).FieldTypes[i]).BaseType = btRecord) then
+          begin
+            r := TROStructure.Create(PSGetRecField(aVar, i), Exec);
+            try
+              Serializer.Write(s2, typeinfo(TROStructure), r, -1);
+            finally
+              r.Free;
+            end;
+          end else if (TPSTypeRec(TPSTypeRec_Record(aVar.aType).FieldTypes[i]).BaseType = btArray)  then
+          begin
+            r := TROArray.Create(PSGetRecField(aVar, i), Exec);
+            try
+              Serializer.Write(s2, typeinfo(TROArray), r, -1);
+            finally
+              r.Free;
+            end;
+          end else
+            IntWrite(Exec, Serializer, s2, PSGetRecField(aVar, i), -1);
+        end;
+      end;
+  else
+    raise Exception.Create('Unable to read type');
+
+  end;
+end;
+
+{ TROStructure }
+
+constructor TROStructure.Create(aVar: TPSVariantIfc; Exec: TPSExec);
+begin
+  inherited Create;
+  FVar := aVar;
+  FExec := Exec;
+end;
+
+function TROStructure.IsNull: Boolean;
+begin
+  Result := False;
+end;
+
+function TROStructure.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+procedure TROStructure.Read(Serializer: TROSerializer;
+  const Name: string);
+begin
+  IntRead(FExec, Serializer, Name, FVar, -1);
+end;
+
+procedure TROStructure.SetNull(b: Boolean);
+begin
+  // null not supported
+end;
+
+function TROStructure.GetTypeName: string;
+var
+  s: string;
+begin
+  s := fvar.atype.ExportName;
+  delete(s,1,1);
+  delete(s,1,pos('!', s));
+  result := copy(s,1,pos(',',s)-1);
+end;
+
+procedure TROStructure.Write(Serializer: TROSerializer;
+  const Name: string);
+begin
+  IntWrite(FExec, Serializer, Name, FVar, -1);
+end;
+
+
+function TROStructure._AddRef: Integer;
+begin
+  // do nothing
+  Result := 1;
+end;
+
+function TROStructure._Release: Integer;
+begin
+  // do nothing
+  Result := 1;
+end;
+
+function TROStructure.CanImplementType(const aName: string): boolean;
+begin
+  if SameText(aName, Self.GetTypeName) then
+    Result := True
+  else
+    Result := False;
+end;
+
+procedure TROStructure.SetTypeName(const s: string);
+begin
+  // Do nothing  
+end;
+
+{ TROArray }
+
+function TROArray.GetCount: Longint;
+begin
+
+  // we should have an array in pVar now so assume that's true
+  Result := PSDynArrayGetLength(Pointer(fVar.Dta^), fvar.aType);
+end;
+
+procedure TROArray.SetCount(l: Integer);
+begin
+  PSDynArraySetLength(Pointer(fVAr.Dta^), fVar.aType, l);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/x64.inc b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/x64.inc
new file mode 100644
index 0000000..5952b16
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/x64.inc	
@@ -0,0 +1,528 @@
+{ implementation of x64 abi }
+//procedure DebugBreak; external 'Kernel32.dll';
+const
+  EmptyPchar: array[0..0] of char = #0;
+{$ASMMODE INTEL}
+
+{$IFDEF WINDOWS}
+procedure x64call(
+  Address: Pointer;
+  out _RAX: IPointer;
+  _RCX, _RDX, _R8, _R9: IPointer;
+  var _XMM0: Double;
+  _XMM1, _XMM2, _XMM3: Double;
+  aStack: Pointer; aItems: Integer); assembler; nostackframe;
+asm
+(* Registers:
+    RCX: Address
+    RDX: *_RAX
+    R8: _RCX
+    R9: _RDX
+
+    fpc inserts an 20h emty space
+*)
+  push rbp
+  mov rbp,rsp
+//  call debugbreak
+  push rcx  // address
+  push rdx  // _rax
+  push r8   // _rcx
+  push r9   // _rdx
+  mov rcx, aItems
+  mov rdx, aStack
+  jmp @compareitems
+@work:
+  push [rdx]
+  dec rcx
+  sub rdx,8
+@compareitems:
+  or rcx, rcx
+  jnz @work
+
+  // copy registers
+  movd xmm0,[_XMM0]
+  movd xmm1,_XMM1
+  movd xmm2,_XMM2
+  movd xmm3,_XMM3
+  mov RAX, [rbp-8]
+  mov RCX, [rbp-24]
+  mov RDX, [rbp-32]
+  mov R8, _R8
+  mov R9, _R9
+
+  // weird thing on windows, it needs 32 bytes in the CALLEE side to do whatever in
+  sub RSP, 32
+
+  call RAX
+
+  add RSP, 32 // undo the damage done earlier
+
+  // copy result back
+  mov RDX, [rbp-16]
+  mov [RDX], RAX
+  movd [_XMM0],xmm0
+
+  pop r9
+  pop r8
+  pop rdx
+  pop rcx
+  leave
+  ret
+end;
+{$ELSE}
+type
+  TRegisters = packed record
+    _RDI,               //  0
+    _RSI,               //  8
+    _RDX,               // 16
+    _RCX,               // 24
+    _R8,                // 32
+    _R9: IPointer;      // 40
+    _XMM1,              // 48
+    _XMM2,              // 56
+    _XMM3,              // 64
+    _XMM4,              // 72
+    _XMM5,              // 80
+    _XMM6,              // 88
+    _XMM7: Double;      // 96
+  end;
+
+procedure x64call(
+  Address: Pointer;
+  out _RAX: IPointer;
+
+  var Registers: TRegisters;
+  aStack: Pointer; aItems: Integer; var _XMM0: Double); assembler; nostackframe;
+
+
+asm
+(* Registers:
+    RDI: Address
+    RSI: _RAX
+    RDX: Registers
+    RCX: aStack
+    R8:  aItems
+    R9:  XMM0
+
+    rbp-8    addr
+    rbp-16   _rax
+    rbp-24   _xmm0
+*)
+  push rbp
+  mov rbp,rsp
+  push rdi  // address
+  push rsi  // _rax
+  push r9   // xmm0
+  mov rax, rdx
+  jmp @compareitems
+@work:
+  push [rcx]
+  dec r8
+  sub rcx,8
+@compareitems:
+  or r8, r8
+  jnz @work
+
+  // copy registers
+  movd xmm0,[rbp-24]
+  movd xmm1,[rax+48]
+  movd xmm2,[rax+56]
+  movd xmm3,[rax+64]
+  movd xmm4,[rax+72]
+  movd xmm5,[rax+80]
+  movd xmm6,[rax+88]
+  movd xmm7,[rax+96]
+  mov RDI, [rax]
+  mov RSI, [rax+ 8]
+  mov RDX, [rax+16]
+  mov RCX, [rax+24]
+  mov R8,  [rax+32]
+  mov R9,  [rax+40]
+
+  // weird thing on windows, it needs 32 bytes in the CALLEE side to do whatever in; not sure about linux
+  //sub RSP, 32
+
+  mov rax, [rbp-8]
+  call RAX
+
+  // add RSP, 32 // undo the damage done earlier
+
+  // copy result back
+  mov rsi, [rbp-16]
+  mov [rsi], RAX
+  mov rsi, [rbp-24]
+  movd [rsi],xmm0
+
+  pop r9   // xmm0
+  pop rsi  // _rax
+  pop rdi  // address
+  leave
+  ret
+end;
+{$ENDIF}
+
+function TPSExec.InnerfuseCall(_Self, Address: Pointer; CallingConv: TPSCallingConvention; Params: TPSList; res: PPSVariantIFC): Boolean;
+var
+  Stack: array of Byte;
+  _RAX: IPointer;
+{$IFDEF WINDOWS}
+  _RCX, _RDX, _R8, _R9: IPointer;
+  _XMM0, _XMM1, _XMM2, _XMM3: Double;
+{$ELSE}
+_XMM0: Double;
+  Registers: TRegisters;
+  RegUsageFloat: Byte;
+{$ENDIF}
+  RegUsage: Byte;
+  CallData: TPSList;
+  I: Integer;
+  pp: ^Byte;
+
+  function rp(p: PPSVariantIFC): PPSVariantIFC;
+  begin
+    if p = nil then
+    begin
+      result := nil;
+      exit;
+    end;
+    if p.aType.BaseType = btPointer then
+    begin
+      p^.aType := Pointer(Pointer(IPointer(p^.dta) + PointerSize)^);
+      p^.Dta := Pointer(p^.dta^);
+    end;
+    Result := p;
+  end;
+{$IFDEF WINDOWS}
+  procedure StoreReg(data: IPointer);   overload;
+  var p: Pointer;
+  begin
+    case RegUsage of
+      0: begin inc(RegUsage); _RCX:=Data; end;
+      1: begin inc(RegUsage); _RDX:=Data; end;
+      2: begin inc(RegUsage); _R8:=Data; end;
+      3: begin inc(RegUsage); _R9:=Data; end;
+    else begin
+      SetLength(Stack, Length(Stack)+8);
+      p := @Stack[LEngth(Stack)-8];
+      IPointer(p^) := data;
+    end;
+    end;
+  end;
+  {$ELSE}
+  procedure StoreReg(data: IPointer);   overload;
+  var p: Pointer;
+  begin
+    case RegUsage of
+      0: begin inc(RegUsage); Registers._RDI:=Data; end;
+      1: begin inc(RegUsage); Registers._RSI:=Data; end;
+      2: begin inc(RegUsage); Registers._RDX:=Data; end;
+      3: begin inc(RegUsage); Registers._RCX:=Data; end;
+      4: begin inc(RegUsage); Registers._R8:=Data; end;
+      5: begin inc(RegUsage); Registers._R9:=Data; end;
+    else begin
+      SetLength(Stack, Length(Stack)+8);
+      p := @Stack[LEngth(Stack)-8];
+      IPointer(p^) := data;
+    end;
+    end;
+  end;
+{$ENDIF}
+
+  procedure StoreStack(const aData; Len: Integer);
+  var
+    p: Pointer;
+  begin
+    if Len > 8 then
+      if Length(Stack) mod 16 <> 0 then begin
+        SetLength(Stack, Length(Stack)+ (16-(Length(Stack) mod 16)));
+      end;
+    SetLength(Stack, Length(Stack)+Len);
+    p := @Stack[Length(Stack)-Len];
+    Move(aData, p^, Len);
+  end;
+
+{$IFDEF WINDOWS}
+  procedure StoreReg(data: Double); overload;
+  var p: Pointer;
+  begin
+    case RegUsage of
+      0: begin inc(RegUsage); _XMM0:=Data; end;
+      1: begin inc(RegUsage); _XMM1:=Data; end;
+      2: begin inc(RegUsage); _XMM2:=Data; end;
+      3: begin inc(RegUsage); _XMM3:=Data; end;
+    else begin
+      SetLength(Stack, Length(Stack)+8);
+      p := @Stack[LEngth(Stack)-8];
+      Double(p^) := data;
+    end;
+    end;
+  end;
+  {$ELSE}
+  procedure StoreReg(data: Double); overload;
+  var p: Pointer;
+  begin
+    case RegUsageFloat of
+      0: begin inc(RegUsageFloat); _XMM0:=Data; end;
+      1: begin inc(RegUsageFloat); Registers._XMM1:=Data; end;
+      2: begin inc(RegUsageFloat); Registers._XMM2:=Data; end;
+      3: begin inc(RegUsageFloat); Registers._XMM3:=Data; end;
+      4: begin inc(RegUsageFloat); Registers._XMM4:=Data; end;
+      5: begin inc(RegUsageFloat); Registers._XMM5:=Data; end;
+      6: begin inc(RegUsageFloat); Registers._XMM6:=Data; end;
+      7: begin inc(RegUsageFloat); Registers._XMM7:=Data; end;
+    else begin
+      SetLength(Stack, Length(Stack)+8);
+      p := @Stack[LEngth(Stack)-8];
+      Double(p^) := data;
+    end;
+    end;
+  end;
+  {$ENDIF}
+  function GetPtr(fVar: PPSVariantIFC): Boolean;
+  var
+    varPtr: Pointer;
+    //UseReg: Boolean;
+    //tempstr: tbtstring;
+    p: Pointer;
+  begin
+    Result := False;
+    if FVar = nil then exit;
+    if fVar.VarParam then
+    begin
+      case fvar.aType.BaseType of
+        btArray:
+          begin
+            if Copy(fvar.aType.ExportName, 1, 10) = '!OPENARRAY' then
+            begin
+              p := CreateOpenArray(True, Self, FVar);
+              if p = nil then exit;
+              CallData.Add(p);
+              StoreReg(IPointer(POpenArray(p)^.Data));
+              StoreReg(IPointer(POpenArray(p)^.ItemCount -1));
+              Result := True;
+              Exit;
+            end else begin
+              varptr := fvar.Dta;
+//              Exit;
+            end;
+          end;
+        btVariant,
+        btSet,
+        btStaticArray,
+        btRecord,
+        btInterface,
+        btClass,
+        {$IFNDEF PS_NOWIDESTRING} btUnicodeString, btWideString, btWideChar, {$ENDIF} btU8, btS8, btU16,
+        btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
+        {$IFNDEF PS_NOINT64}, bts64{$ENDIF}:
+          begin
+            Varptr := fvar.Dta;
+          end;
+      else begin
+          exit; //invalid type
+        end;
+      end; {case}
+
+      StoreReg(IPointer(VarPtr));
+    end else begin
+//      UseReg := True;
+      case fVar^.aType.BaseType of
+        btSet:
+          begin
+            case TPSTypeRec_Set(fvar.aType).aByteSize of
+              1: StoreReg(IPointer(byte(fvar.dta^)));
+              2: StoreReg(IPointer(word(fvar.dta^)));
+              3, 4: StoreReg(IPointer(cardinal(fvar.dta^)));
+              5,6,7,8: StoreReg(IPointer(fVar.Dta^));
+              else
+                StoreReg(IPointer(fvar.Dta));
+            end;
+          end;
+        btArray:
+          begin
+            if Copy(fvar^.aType.ExportName, 1, 10) = '!OPENARRAY' then
+            begin
+              p := CreateOpenArray(False, SElf, FVar);
+              if p =nil then exit;
+              CallData.Add(p);
+              StoreReg(IPointer(POpenArray(p)^.Data));
+              StoreReg(IPointer(POpenArray(p)^.ItemCount -1));
+              Result := True;
+              exit;
+            end else begin
+              StoreReg(IPointer(FVar.Dta^));
+            end;
+          end;
+        btVariant
+        , btStaticArray, btRecord:
+          begin
+            StoreReg(IPointer(fVar.Dta));
+          end;
+        btExtended, btDouble: {8 bytes} begin
+            StoreReg(double(fvar.dta^));
+          end;
+        btCurrency: {8 bytes} begin
+            StoreReg(IPointer(fvar.dta^));
+          end;
+        btSingle: {4 bytes} begin
+            StoreReg(single(fvar.dta^));
+          end;
+
+        btChar,
+        btU8,
+        btS8: begin
+            StoreReg(IPointer(byte(fVar^.dta^)));
+          end;
+        btWideChar,
+        btu16, btS16: begin
+            StoreReg(IPointer(word(fVar^.dta^)));
+          end;
+        btu32, bts32: begin
+            StoreReg(IPointer(cardinal(fVar^.dta^)));
+          end;
+        btPchar:
+          begin
+            if pointer(fvar^.dta^) = nil then
+              StoreReg(IPointer(@EmptyPchar))
+            else
+              StoreReg(IPointer(fvar^.dta^));
+          end;
+        btclass, btinterface, btString:
+          begin
+            StoreReg(IPointer(fvar^.dta^));
+          end;
+        btWideString: begin
+            StoreReg(IPointer(fvar^.dta^));
+          end;
+        btUnicodeString: begin
+            StoreReg(IPointer(fvar^.dta^));
+          end;
+
+        btProcPtr:
+          begin
+            GetMem(p, PointerSize2);
+            TMethod(p^) := MKMethod(Self, Longint(FVar.Dta^));
+            StoreStack(p^, Pointersize2);
+            FreeMem(p);
+          end;
+
+        bts64:
+          begin
+            StoreReg(IPointer(int64(fvar^.dta^)));
+        end;
+      end; {case}
+    end;
+    Result := True;
+  end;
+begin
+  InnerfuseCall := False;
+  if Address = nil then
+    exit; // need address
+  SetLength(Stack, 0);
+  CallData := TPSList.Create;
+  res := rp(res);
+  if res <> nil then
+    res.VarParam := true;
+  try
+{$IFNDEF WINDOWS}
+    (*_RSI := 0;
+    _RDI := 0;
+    _XMM4 := 0;
+    _XMM5 := 0;
+    _XMM6 := 0;
+    _XMM7 := 0;*)
+    FillChar(Registers, Sizeof(REgisters), 0);
+    _XMM0 := 0;
+    RegUsageFloat := 0;
+{$ELSE}
+    _RCX := 0;
+    _RDX := 0;
+    _R8 := 0;
+    _R9 := 0;
+    _XMM0 := 0;
+    _XMM1 := 0;
+    _XMM2 := 0;
+    _XMM3 := 0;
+{$ENDIF}
+    _RAX := 0;
+    RegUsage := 0;
+    if assigned(_Self) then begin
+      StoreReg(IPointer(_Self));
+    end;
+    for I := 0 to Params.Count - 1 do
+    begin
+      if not GetPtr(rp(Params[I])) then Exit;
+    end;
+
+    if assigned(res) then begin
+      case res^.aType.BaseType of
+        {$IFDEF x64_string_result_as_varparameter}
+        btstring, btWideString, btUnicodeString,
+        {$ENDIF}
+        btInterface, btArray, btrecord, btVariant, btStaticArray: GetPtr(res);
+        btSet:
+          begin
+            if TPSTypeRec_Set(res.aType).aByteSize > PointerSize then GetPtr(res);
+          end;
+      end;
+      if Stack = nil then pp := nil else pp := @Stack[Length(Stack) -8];
+{$IFDEF WINDOWS}
+      x64call(Address, _RAX, _RCX, _RDX, _R8, _R9, _XMM0, _XMM1, _XMM2, _XMM3, pp, Length(Stack) div 8);
+{$ELSE}
+      x64call(Address, _RAX, Registers, pp, Length(Stack) div 8, _XMM0);
+{$ENDIF}
+      case res^.aType.BaseType of
+        btSet:
+          begin
+            case TPSTypeRec_Set(res.aType).aByteSize  of
+              1: byte(res.Dta^) := _RAX;
+              2: word(res.Dta^) := _RAX;
+              3,
+              4: Longint(res.Dta^) := _RAX;
+              5,6,7,8: IPointer(res.dta^) := _RAX;
+            end;
+          end;
+        btSingle:      tbtsingle(res.Dta^) := _XMM0;
+        btDouble:      tbtdouble(res.Dta^) := _XMM0;
+        btExtended:    tbtextended(res.Dta^) := _XMM0;
+        btchar,btU8, btS8:    tbtu8(res.dta^) := _RAX;
+        btWideChar, btu16, bts16:  tbtu16(res.dta^) := _RAX;
+        btClass : IPointer(res.dta^) := _RAX;
+        btu32,bts32:   tbtu32(res.dta^) := _RAX;
+        btPChar:       pansichar(res.dta^) := Pansichar(_RAX);
+        bts64: tbts64(res.dta^) := Int64(_RAX);
+        btCurrency:    tbtCurrency(res.Dta^) := Int64(_RAX);
+        btInterface,
+        btVariant,
+        {$IFDEF x64_string_result_as_varparameter}
+        btWidestring,btUnicodestring, btstring ,
+        {$ENDIF}
+        btStaticArray, btArray, btrecord:;
+        {$IFNDEF x64_string_result_as_varparameter}
+        btUnicodeString, btWideString, btstring:  Int64(res.dta^) := _RAX;
+        {$ENDIF}
+      else
+        exit;
+      end;
+    end else begin
+      if Stack = nil then pp := nil else pp := @Stack[Length(Stack) -8];
+{$IFDEF WINDOWS}
+       x64call(Address, _RAX, _RCX, _RDX, _R8, _R9, _XMM0, _XMM1, _XMM2, _XMM3, pp, Length(Stack) div 8);
+{$ELSE}
+       x64call(Address, _RAX, Registers, pp, Length(Stack) div 8, _XMM0);
+{$ENDIF}
+    end;
+    Result := True;
+  finally
+    for i := CallData.Count -1 downto 0 do
+    begin
+      pp := CallData[i];
+      case pp^ of
+        0: DestroyOpenArray(Self, Pointer(pp));
+      end;
+    end;
+    CallData.Free;
+  end;
+end;
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/Source/x86.inc b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/x86.inc
new file mode 100644
index 0000000..38289a7
--- /dev/null
+++ b/internal/6.0.43.801/1/Pascal Script for Delphi/Source/x86.inc	
@@ -0,0 +1,746 @@
+{ implementation of x86         abi }
+{$ifdef FPC}
+{$define PS_ARRAY_ON_STACK}
+{$endif}
+function RealFloatCall_Register(p: Pointer;
+  _EAX, _EDX, _ECX: Cardinal;
+  StackData: Pointer;
+  StackDataLen: Longint // stack length are in 4 bytes. (so 1 = 4 bytes)
+  ): Extended; Stdcall; // make sure all things are on stack
+var
+  E: Extended;
+begin
+  asm
+    mov ecx, stackdatalen
+    jecxz @@2
+    mov eax, stackdata
+    @@1:
+    mov edx, [eax]
+    push edx
+    sub eax, 4
+    dec ecx
+    or ecx, ecx
+    jnz @@1
+    @@2:
+    mov eax,_EAX
+    mov edx,_EDX
+    mov ecx,_ECX
+    call p
+    fstp tbyte ptr [e]
+  end;
+  Result := E;
+end;
+                 
+function RealFloatCall_Other(p: Pointer;
+  StackData: Pointer;
+  StackDataLen: Longint // stack length are in 4 bytes. (so 1 = 4 bytes)
+  ): Extended; Stdcall; // make sure all things are on stack
+var
+  E: Extended;
+begin
+  asm
+    mov ecx, stackdatalen
+    jecxz @@2
+    mov eax, stackdata
+    @@1:
+    mov edx, [eax]
+    push edx
+    sub eax, 4
+    dec ecx
+    or ecx, ecx
+    jnz @@1
+    @@2:
+    call p
+    fstp tbyte ptr [e]
+  end;
+  Result := E;
+end;
+
+function RealFloatCall_CDecl(p: Pointer;
+  StackData: Pointer;
+  StackDataLen: Longint // stack length are in 4 bytes. (so 1 = 4 bytes)
+  ): Extended; Stdcall; // make sure all things are on stack
+var
+  E: Extended;
+begin
+  asm
+    mov ecx, stackdatalen
+    jecxz @@2
+    mov eax, stackdata
+    @@1:
+    mov edx, [eax]
+    push edx
+    sub eax, 4
+    dec ecx
+    or ecx, ecx
+    jnz @@1
+    @@2:
+    call p
+    fstp tbyte ptr [e]
+    @@5:
+    mov ecx, stackdatalen
+    jecxz @@2
+    @@6:
+    pop edx
+    dec ecx
+    or ecx, ecx
+    jnz @@6
+  end;
+  Result := E;
+end;
+
+function RealCall_Register(p: Pointer;
+  _EAX, _EDX, _ECX: Cardinal;
+  StackData: Pointer;
+  StackDataLen: Longint; // stack length are in 4 bytes. (so 1 = 4 bytes)
+  ResultLength: Longint; ResEDX: Pointer): Longint; Stdcall; // make sure all things are on stack
+var
+  r: Longint;
+begin
+  asm
+    mov ecx, stackdatalen
+    jecxz @@2
+    mov eax, stackdata
+    @@1:
+    mov edx, [eax]
+    push edx
+    sub eax, 4
+    dec ecx
+    or ecx, ecx
+    jnz @@1
+    @@2:
+    mov eax,_EAX
+    mov edx,_EDX
+    mov ecx,_ECX
+    call p
+    mov ecx, resultlength
+    cmp ecx, 0
+    je @@5
+    cmp ecx, 1
+    je @@3
+    cmp ecx, 2
+    je @@4
+    mov r, eax
+    jmp @@5
+    @@3:
+    xor ecx, ecx
+    mov cl, al
+    mov r, ecx
+    jmp @@5
+    @@4:
+    xor ecx, ecx
+    mov cx, ax
+    mov r, ecx
+    @@5:
+    mov ecx, resedx
+    jecxz @@6
+    mov [ecx], edx
+    @@6:
+  end;
+  Result := r;
+end;
+
+function RealCall_Other(p: Pointer;
+  StackData: Pointer;
+  StackDataLen: Longint; // stack length are in 4 bytes. (so 1 = 4 bytes)
+  ResultLength: Longint; ResEDX: Pointer): Longint; Stdcall; // make sure all things are on stack
+var
+  r: Longint;
+begin
+  asm
+    mov ecx, stackdatalen
+    jecxz @@2
+    mov eax, stackdata
+    @@1:
+    mov edx, [eax]
+    push edx
+    sub eax, 4
+    dec ecx
+    or ecx, ecx
+    jnz @@1
+    @@2:
+    call p
+    mov ecx, resultlength
+    cmp ecx, 0
+    je @@5
+    cmp ecx, 1
+    je @@3
+    cmp ecx, 2
+    je @@4
+    mov r, eax
+    jmp @@5
+    @@3:
+    xor ecx, ecx
+    mov cl, al
+    mov r, ecx
+    jmp @@5
+    @@4:
+    xor ecx, ecx
+    mov cx, ax
+    mov r, ecx
+    @@5:
+    mov ecx, resedx
+    jecxz @@6
+    mov [ecx], edx
+    @@6:
+  end;
+  Result := r;
+end;
+
+function RealCall_CDecl(p: Pointer;
+  StackData: Pointer;
+  StackDataLen: Longint; // stack length are in 4 bytes. (so 1 = 4 bytes)
+  ResultLength: Longint; ResEDX: Pointer): Longint; Stdcall; // make sure all things are on stack
+var
+  r: Longint;
+begin
+  asm
+    mov ecx, stackdatalen
+    jecxz @@2
+    mov eax, stackdata
+    @@1:
+    mov edx, [eax]
+    push edx
+    sub eax, 4
+    dec ecx
+    or ecx, ecx
+    jnz @@1
+    @@2:
+    call p
+    mov ecx, resultlength
+    cmp ecx, 0
+    je @@5
+    cmp ecx, 1
+    je @@3
+    cmp ecx, 2
+    je @@4
+    mov r, eax
+    jmp @@5
+    @@3:
+    xor ecx, ecx
+    mov cl, al
+    mov r, ecx
+    jmp @@5
+    @@4:
+    xor ecx, ecx
+    mov cx, ax
+    mov r, ecx
+    @@5:
+    mov ecx, stackdatalen
+    jecxz @@7
+    @@6:
+    pop eax
+    dec ecx
+    or ecx, ecx
+    jnz @@6
+    mov ecx, resedx
+    jecxz @@7
+    mov [ecx], edx
+    @@7:
+  end;
+  Result := r;
+end;
+
+const
+  EmptyPchar: array[0..0] of char = #0;
+
+function TPSExec.InnerfuseCall(_Self, Address: Pointer; CallingConv: TPSCallingConvention; Params: TPSList; res: PPSVariantIFC): Boolean;
+var
+  Stack: ansistring;
+  I: Longint;
+  RegUsage: Byte;
+  CallData: TPSList;
+  pp: ^Byte;
+{$IFDEF FPC}
+  IsConstructor: Boolean;
+{$ENDIF}
+
+  EAX, EDX, ECX: Longint;
+
+  function rp(p: PPSVariantIFC): PPSVariantIFC;
+  begin
+    if p = nil then
+    begin
+      result := nil;
+      exit;
+    end;
+    if p.aType.BaseType = btPointer then
+    begin
+      p^.aType := Pointer(Pointer(IPointer(p^.dta) + 4)^);
+      p^.Dta := Pointer(p^.dta^);
+    end;
+    Result := p;
+  end;
+
+  function GetPtr(fVar: PPSVariantIFC): Boolean;
+  var
+    varPtr: Pointer;
+    UseReg: Boolean;
+    tempstr: tbtstring;
+    p: Pointer;
+  begin
+    Result := False;
+    if FVar = nil then exit;
+    if fVar.VarParam then
+    begin
+      case fvar.aType.BaseType of
+        btArray:
+          begin
+            if Copy(fvar.aType.ExportName, 1, 10) = '!OPENARRAY' then
+            begin
+              p := CreateOpenArray(True, Self, FVar);
+              if p = nil then exit;
+              CallData.Add(p);
+              case RegUsage of
+                0: begin EAX := Longint(POpenArray(p)^.Data); Inc(RegUsage); end;
+                1: begin EDX := Longint(POpenArray(p)^.Data); Inc(RegUsage); end;
+                2: begin ECX := Longint(POpenArray(p)^.Data); Inc(RegUsage); end;
+                else begin
+                  Stack := StringOfChar(AnsiChar(#0),4) + Stack;
+                  Pointer((@Stack[1])^) := POpenArray(p)^.Data;
+                end;
+              end;
+              case RegUsage of
+                0: begin EAX := Longint(POpenArray(p)^.ItemCount - 1); Inc(RegUsage); end;
+                1: begin EDX := Longint(POpenArray(p)^.ItemCount -1); Inc(RegUsage); end;
+                2: begin ECX := Longint(POpenArray(p)^.ItemCount -1); Inc(RegUsage); end;
+                else begin
+                  Stack := StringOfChar(AnsiChar(#0),4) + Stack;
+                  Longint((@Stack[1])^) := POpenArray(p)^.ItemCount -1;
+                end;
+              end;
+              Result := True;
+              Exit;
+            end else begin
+            {$IFDEF PS_DYNARRAY}
+              varptr := fvar.Dta;
+            {$ELSE}
+              Exit;
+            {$ENDIF}
+            end;
+          end;
+        btVariant,
+        btSet,
+        btStaticArray,
+        btRecord,
+        btInterface,
+        btClass,
+        {$IFNDEF PS_NOWIDESTRING} btUnicodeString, btWideString, btWideChar, {$ENDIF} btU8, btS8, btU16,
+        btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
+        {$IFNDEF PS_NOINT64}, bts64{$ENDIF}:
+          begin
+            Varptr := fvar.Dta;
+          end;
+      else begin
+          exit; //invalid type
+        end;
+      end; {case}
+      case RegUsage of
+        0: begin EAX := Longint(VarPtr); Inc(RegUsage); end;
+        1: begin EDX := Longint(VarPtr); Inc(RegUsage); end;
+        2: begin ECX := Longint(VarPtr); Inc(RegUsage); end;
+        else begin
+          Stack := StringOfChar(AnsiChar(#0),4) + Stack;
+          Pointer((@Stack[1])^) := VarPtr;
+        end;
+      end;
+    end else begin
+      UseReg := True;
+      case fVar^.aType.BaseType of
+        btSet:
+          begin
+            tempstr := StringOfChar(AnsiChar(#0),4);
+            case TPSTypeRec_Set(fvar.aType).aByteSize of
+              1: Byte((@tempstr[1])^) := byte(fvar.dta^);
+              2: word((@tempstr[1])^) := word(fvar.dta^);
+              3, 4: cardinal((@tempstr[1])^) := cardinal(fvar.dta^);
+              else
+                pointer((@tempstr[1])^) := fvar.dta;
+            end;
+          end;
+        btArray:
+          begin
+            if Copy(fvar^.aType.ExportName, 1, 10) = '!OPENARRAY' then
+            begin
+              p := CreateOpenArray(False, SElf, FVar);
+              if p =nil then exit;
+              CallData.Add(p);
+              case RegUsage of
+                0: begin EAX := Longint(POpenArray(p)^.Data); Inc(RegUsage); end;
+                1: begin EDX := Longint(POpenArray(p)^.Data); Inc(RegUsage); end;
+                2: begin ECX := Longint(POpenArray(p)^.Data); Inc(RegUsage); end;
+                else begin
+                  Stack := StringOfChar(AnsiChar(#0),4) + Stack;
+                  Pointer((@Stack[1])^) := POpenArray(p)^.Data;
+                end;
+              end;
+              case RegUsage of
+                0: begin EAX := Longint(POpenArray(p)^.ItemCount -1); Inc(RegUsage); end;
+                1: begin EDX := Longint(POpenArray(p)^.ItemCount -1); Inc(RegUsage); end;
+                2: begin ECX := Longint(POpenArray(p)^.ItemCount -1); Inc(RegUsage); end;
+                else begin
+                  Stack := StringOfChar(AnsiChar(#0),4) + Stack;
+                  Longint((@Stack[1])^) := POpenArray(p)^.ItemCount -1;
+                end;
+              end;
+              Result := True;
+              exit;
+            end else begin
+            {$IFDEF PS_DYNARRAY}
+              TempStr := StringOfChar(AnsiChar(#0),4);
+              Pointer((@TempStr[1])^) := Pointer(fvar.Dta^);
+            {$IFDEF PS_ARRAY_ON_STACK}
+            UseReg := false;
+            {$ENDIF}
+            {$ELSE}
+              Exit;
+            {$ENDIF}
+            end;
+          end;
+        btVariant
+        , btStaticArray, btRecord:
+          begin
+            TempStr := StringOfChar(AnsiChar(#0),4);
+            Pointer((@TempStr[1])^) := Pointer(fvar.Dta);
+          end;
+        btDouble: {8 bytes} begin
+            TempStr := StringOfChar(AnsiChar(#0),8);
+            UseReg := False;
+            double((@TempStr[1])^) := double(fvar.dta^);
+          end;
+        btCurrency: {8 bytes} begin
+            TempStr := StringOfChar(AnsiChar(#0),8);
+            UseReg := False;
+            currency((@TempStr[1])^) := currency(fvar.dta^);
+          end;
+        btSingle: {4 bytes} begin
+            TempStr := StringOfChar(AnsiChar(#0),4);;
+            UseReg := False;
+            Single((@TempStr[1])^) := single(fvar.dta^);
+          end;
+
+        btExtended: {10 bytes} begin
+            UseReg := False;
+            TempStr:= StringOfChar(AnsiChar(#0),12);
+            Extended((@TempStr[1])^) := extended(fvar.dta^);
+          end;
+        btChar,
+        btU8,
+        btS8: begin
+            TempStr := tbtchar(fVar^.dta^) + tbtstring(StringOfChar(AnsiChar(#0),3));
+          end;
+        {$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}
+        btu16, btS16: begin
+            TempStr := StringOfChar(AnsiChar(#0),4);
+            Word((@TempStr[1])^) := word(fVar^.dta^);
+          end;
+        btu32, bts32: begin
+            TempStr := StringOfChar(AnsiChar(#0),4);
+            Longint((@TempStr[1])^) := Longint(fVar^.dta^);
+          end;
+        btPchar:
+          begin
+            TempStr := StringOfChar(AnsiChar(#0),4);
+            if pointer(fvar^.dta^) = nil then
+              Pointer((@TempStr[1])^) := @EmptyPchar
+            else
+              Pointer((@TempStr[1])^) := pointer(fvar^.dta^);
+          end;
+        btclass, btinterface, btString:
+          begin
+            TempStr := StringOfChar(AnsiChar(#0),4);
+            Pointer((@TempStr[1])^) := pointer(fvar^.dta^);
+          end;
+          {$IFNDEF PS_NOWIDESTRING}
+        btWideString: begin
+            TempStr := StringOfChar(AnsiChar(#0),4);
+            Pointer((@TempStr[1])^) := pointer(fvar^.dta^);
+          end;
+        btUnicodeString: begin
+            TempStr := StringOfChar(AnsiChar(#0),4);
+            Pointer((@TempStr[1])^) := pointer(fvar^.dta^);
+          end;
+          {$ENDIF}
+
+        btProcPtr:
+          begin
+            tempstr := StringOfChar(AnsiChar(#0),8);
+            TMethod((@TempStr[1])^) := MKMethod(Self, Longint(FVar.Dta^));
+            UseReg := false;
+          end;
+
+        {$IFNDEF PS_NOINT64}bts64:
+          begin
+            TempStr:= StringOfChar(AnsiChar(#0),8);
+            Int64((@TempStr[1])^) := int64(fvar^.dta^);
+            UseReg := False;
+        end;{$ENDIF}
+      end; {case}
+      if UseReg then
+      begin
+        case RegUsage of
+          0: begin EAX := Longint((@Tempstr[1])^); Inc(RegUsage); end;
+          1: begin EDX := Longint((@Tempstr[1])^); Inc(RegUsage); end;
+          2: begin ECX := Longint((@Tempstr[1])^); Inc(RegUsage); end;
+          else begin
+          {$IFDEF FPC_OLD_FIX}
+            if CallingConv = cdRegister then
+            Stack := Stack + TempStr
+          else
+          {$ENDIF}
+            Stack := TempStr + Stack;
+          end;
+        end;
+      end else begin
+        {$IFDEF FPC_OLD_FIX}
+            if CallingConv = cdRegister then
+            Stack := Stack + TempStr
+          else
+        {$ENDIF}
+          Stack := TempStr + Stack;
+      end;
+    end;
+    Result := True;
+  end;
+begin
+  if (Integer(CallingConv) and 64) <> 0 then begin
+    {$IFDEF FPC}
+      IsConstructor := true;
+    {$ENDIF}
+    CAllingConv := TPSCallingConvention(Integer(CallingConv) and not 64);
+  end else begin
+    {$IFDEF FPC}
+      IsConstructor := false;
+    {$ENDIF}
+  end;
+  InnerfuseCall := False;
+  if Address = nil then
+    exit; // need address
+  Stack := '';
+  CallData := TPSList.Create;
+  res := rp(res);
+  if res <> nil then
+    res.VarParam := true;
+  try
+    case CallingConv of
+      cdRegister: begin
+          EAX := 0;
+          EDX := 0;
+          ECX := 0;
+          RegUsage := 0;
+
+{$IFDEF FPC} // FIX FOR FPC constructor calls
+          if IsConstructor then begin
+            if not GetPtr(rp(Params[0])) then exit; // this goes first
+            RegUsage := 2;
+            EDX := Longint(_Self);
+            Params.Delete(0);
+          end else
+{$ENDIF}
+          if assigned(_Self) then begin
+            RegUsage := 1;
+            EAX := Longint(_Self);
+          end;
+
+          for I := 0 to Params.Count - 1 do
+          begin
+            if not GetPtr(rp(Params[I])) then Exit;
+          end;
+
+          if assigned(res) then begin
+            case res^.aType.BaseType of
+              {$IFNDEF PS_NOWIDESTRING}btWideString, btUnicodeString, {$ENDIF}
+              btInterface, btArray, btrecord, {$IFNDEF PS_FPCSTRINGWORKAROUND}btstring, {$ENDIF}btVariant, btStaticArray: GetPtr(res);
+              btSet:
+                begin
+                  if TPSTypeRec_Set(res.aType).aByteSize >4 then GetPtr(res);
+                end;
+            end;
+            case res^.aType.BaseType of
+              btSet:
+                begin
+                  case TPSTypeRec_Set(res.aType).aByteSize  of
+                    1: byte(res.Dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
+                    2: word(res.Dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
+                    3,
+                    4: Longint(res.Dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
+                    else RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil)
+                  end;
+                end;
+              btSingle:      tbtsingle(res.Dta^) := RealFloatCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btDouble:      tbtdouble(res.Dta^) := RealFloatCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btExtended:    tbtextended(res.Dta^) := RealFloatCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btchar,btU8, btS8:    tbtu8(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
+              {$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16:  tbtu16(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
+              btClass :
+              {$IFDEF FPC_OLD_FIX}
+              tbtu32(res.dta^) := RealCall_Register(Address, EDX, EAX, ECX,
+              @Stack[Length(Stack) - 3], Length(Stack) div 4, 4, nil);
+              {$ELSE}
+              tbtu32(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX,
+              @Stack[Length(Stack) - 3], Length(Stack) div 4, 4, nil);
+              {$ENDIF}
+
+              btu32,bts32:   tbtu32(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
+              btPChar:       pansichar(res.dta^) := Pansichar(RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
+              {$IFNDEF PS_NOINT64}bts64:
+                begin
+                  EAX := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
+                  tbts64(res.dta^) := Int64(Cardinal(EDX)) shl 32 or Cardinal(EAX);
+                end;
+              {$ENDIF}
+              btCurrency:    tbtCurrency(res.Dta^) := RealFloatCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4) / 10000;
+              btInterface,
+              btVariant,
+              {$IFNDEF PS_NOWIDESTRING}btWidestring,btUnicodestring, {$ENDIF}
+              btStaticArray, btArray, btrecord{$IFNDEF PS_FPCSTRINGWORKAROUND}, btstring {$ENDIF}:      RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil);
+              {$IFDEF PS_FPCSTRINGWORKAROUND}
+              btstring: begin
+                 eax := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
+                 Longint(res.dta^) := eax;
+              end;
+              {$ENDIF}
+            else
+              exit;
+            end;
+          end else
+            RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil);
+          Result := True;
+        end;
+      cdPascal: begin
+          RegUsage := 3;
+          for I :=  0 to Params.Count - 1 do begin
+            if not GetPtr(Params[i]) then Exit;
+          end;
+          if assigned(res) then begin
+            case res^.aType.BaseType of
+              {$IFNDEF PS_NOWIDESTRING}btWideString, btUnicodeString, {$ENDIF}btInterface, btArray, btrecord, btstring, btVariant: GetPtr(res);
+            end;
+          end;
+          if assigned(_Self) then begin
+            Stack := StringOfChar(AnsiChar(#0),4) +Stack;
+            Pointer((@Stack[1])^) := _Self;
+          end;
+          if assigned(res) then begin
+            case res^.aType.BaseType of
+              btSingle:      tbtsingle(res^.Dta^) := RealFloatCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btDouble:      tbtdouble(res^.Dta^) := RealFloatCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btExtended:    tbtextended(res^.Dta^) := RealFloatCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btChar, btU8, btS8:    tbtu8(res^.Dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
+              {$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16:  tbtu16(res^.Dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
+              btClass, btu32, bts32:  tbtu32(res^.Dta^):= RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
+              btPChar:       TBTSTRING(res^.dta^) := Pansichar(RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
+              {$IFNDEF PS_NOINT64}bts64:
+                begin
+                  EAX := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
+                  tbts64(res^.dta^) := Int64(EAX) shl 32 or EDX;
+                end;
+              {$ENDIF}
+              btVariant,
+              btInterface, btrecord, btstring: RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil);
+            else
+              exit;
+            end;
+          end else
+            RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil);
+          Result := True;
+        end;
+      cdSafeCall: begin
+          RegUsage := 3;
+          if assigned(res) then begin
+            GetPtr(res);
+          end;
+          for I :=  Params.Count - 1 downto 0 do begin
+            if not GetPtr(Params[i]) then Exit;
+          end;
+          if assigned(_Self) then begin
+            Stack := StringOfChar(AnsiChar(#0),4) +Stack;
+            Pointer((@Stack[1])^) := _Self;
+          end;
+          OleCheck(RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
+          Result := True;
+        end;
+
+      CdCdecl: begin
+          RegUsage := 3;
+          if assigned(_Self) then begin
+            Stack := StringOfChar(AnsiChar(#0),4);
+            Pointer((@Stack[1])^) := _Self;
+          end;
+          for I := Params.Count - 1 downto 0 do begin
+            if not GetPtr(Params[I]) then Exit;
+          end;
+          if assigned(res) then begin
+            case res^.aType.BaseType of
+              btSingle:      tbtsingle(res^.dta^) := RealFloatCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btDouble:      tbtdouble(res^.dta^) := RealFloatCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btExtended:    tbtextended(res^.dta^) := RealFloatCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btCHar, btU8, btS8:    tbtu8(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
+              {$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16:  tbtu16(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
+              btClass, btu32, bts32:  tbtu32(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
+              btPChar:       TBTSTRING(res^.dta^) := Pansichar(RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
+              {$IFNDEF PS_NOINT64}bts64:
+                begin
+                  EAX := RealCall_CDecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
+                  tbts64(res^.Dta^) := Int64(EAX) shl 32 or EDX;
+                end;
+              {$ENDIF}
+              btVariant, {$IFNDEF PS_NOWIDESTRING}btUnicodeString, btWideString, {$ENDIF}
+              btInterface,
+              btArray, btrecord, btstring:      begin GetPtr(res); RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil); end;
+            else
+              exit;
+            end;
+          end else begin
+            RealCall_CDecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil);
+          end;
+          Result := True;
+        end;
+      CdStdCall: begin
+          RegUsage := 3;
+          for I := Params.Count - 1 downto 0 do begin
+            if not GetPtr(Params[I]) then exit;
+          end;
+          if assigned(_Self) then begin
+            Stack := StringOfChar(AnsiChar(#0),4) + Stack;
+            Pointer((@Stack[1])^) := _Self;
+          end;
+          if assigned(res) then begin
+            case res^.aType.BaseType of
+              btSingle:  tbtsingle(res^.dta^) := RealFloatCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btDouble:      tbtdouble(res^.dta^) := RealFloatCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btExtended:    tbtextended(res^.dta^):= RealFloatCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4);
+              btChar, btU8, btS8:    tbtu8(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
+              {$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16:  tbtu16(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
+              btclass, btu32, bts32:  tbtu32(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
+              btPChar:       TBTSTRING(res^.dta^) := Pansichar(RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
+              {$IFNDEF PS_NOINT64}bts64:
+                begin
+                  EAX := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
+                  tbts64(res^.dta^) := Int64(EAX) shl 32 or EDX;
+                end;
+              {$ENDIF}
+              btVariant, {$IFNDEF PS_NOWIDESTRING}btUnicodeString, btWideString, {$ENDIF}
+              btInterface, btArray, btrecord, btstring: begin GetPtr(res); RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil); end;
+            else
+              exit;
+            end;
+          end else begin
+            RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 0, nil);
+          end;
+          Result := True;
+        end;
+    end;
+  finally
+    for i := CallData.Count -1 downto 0 do
+    begin
+      pp := CallData[i];
+      case pp^ of
+        0: DestroyOpenArray(Self, Pointer(pp));
+      end;
+    end;
+    CallData.Free;
+  end;
+end;
+
+
diff --git a/internal/6.0.43.801/1/Pascal Script for Delphi/ps.png b/internal/6.0.43.801/1/Pascal Script for Delphi/ps.png
new file mode 100644
index 0000000..610bc82
Binary files /dev/null and b/internal/6.0.43.801/1/Pascal Script for Delphi/ps.png differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/Messages.nx1 b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/Messages.nx1
new file mode 100644
index 0000000..1bbc406
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/Messages.nx1 differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/MessagesPerSession.nx1 b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/MessagesPerSession.nx1
new file mode 100644
index 0000000..9a402e3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/MessagesPerSession.nx1 differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/Sessions.nx1 b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/Sessions.nx1
new file mode 100644
index 0000000..39b94a6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/Sessions.nx1 differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/nxTrans.cfg b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/nxTrans.cfg
new file mode 100644
index 0000000..003aee3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/MasterServer_Data/nxTrans.cfg differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/Olympia.sqb b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/Olympia.sqb
new file mode 100644
index 0000000..36df6a7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/Olympia.sqb differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROCOM.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROCOM.dll
new file mode 100644
index 0000000..67a2a59
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROCOM.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RODL.exe b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RODL.exe
new file mode 100644
index 0000000..c341f06
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RODL.exe differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROMasterServer.exe b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROMasterServer.exe
new file mode 100644
index 0000000..3db850e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROMasterServer.exe differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROOlympiaServer.exe b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROOlympiaServer.exe
new file mode 100644
index 0000000..61123d0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROOlympiaServer.exe differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBBCB.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBBCB.dll
new file mode 100644
index 0000000..0918b0c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBBCB.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDataAbstract.codetemplates.cfg b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDataAbstract.codetemplates.cfg
new file mode 100644
index 0000000..7d493c2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDataAbstract.codetemplates.cfg	
@@ -0,0 +1,88 @@
+[OneSchemaMethod-Delphi]
+var
+  lDataSet:IDADataSet;
+begin
+  { This method body was auto-generated to retrieve the schema of your datasets.
+    You can now modify it to suite your needs. }
+
+  { ToDO: Rename the Schema reference below to match the name of your Schema component }
+
+  result := Binary.Create();
+  lDataSet := %SCHEMA%.NewDataset(Connection, aDataSet);
+  BinAdapter.WriteDataset(result, lDataSet, [woSchema], 0);
+end;
+
+
+[OneGetMethod-Delphi]
+var
+  lDataSet:IDADataSet;
+begin
+  { This method body was auto-generated to retrieve the rows of your datasets.
+    You can now modify it to suite your needs. }
+
+  { ToDO: Rename the Schema reference below to match the name of your Schema component }
+
+  result := Binary.Create();
+  lDataSet := %SCHEMA%.NewDataset(Connection, aDataSet);
+  BinAdapter.WriteDataset(result, lDataSet, [woRows], -1);
+end;
+
+
+[OneUpdateMethod-Delphi]
+begin
+  { Implement yourself ;-}
+  result := nil;
+end;
+
+
+[SchemaMethodPerDataSet-Delphi]
+var
+  lDataSet:IDADataSet;
+begin
+  { This method body was auto-generated to retrieve the schema of your %DATASET% dataset.
+    You can now modify it to suite your needs. }
+
+  { ToDO: Rename the Schema reference below to match the name of your Schema component }
+
+  result := Binary.Create();
+  lDataSet := %SCHEMA%.NewDataset(Connection, %DATASET%);
+  BinAdapter.WriteDataset(result, lDataSet, [woSchema], 0);
+end;
+
+
+[GetMethodPerDataSet-Delphi]
+var
+  lDataSet:IDADataSet;
+begin
+  { This method body was auto-generated to retrieve the rows of your %DATASET% dataset.
+    You can now modify it to suite your needs. }
+
+  { ToDO: Rename the Schema reference below to match the name of your Schema component }
+
+  result := Binary.Create();
+  lDataSet := %SCHEMA%.NewDataset(Connection, %DATASET%);
+  BinAdapter.WriteDataset(result, lDataSet, [woRows], -1);
+end;
+
+
+[UpdateMethodPerDataSet-Delphi]
+begin
+  { Implement yourself ;-}
+  result := nil;
+end;
+
+[GetSchemaXmlMethod-Delphi]
+begin  
+  { This method body was auto-generated to allow access to your XML schema. 
+    You might want to disable this functionality in release builds for security 
+    reasons by putting in the FDEFs below. }
+
+  { ToDo: Rename the Schema reference below to match the name of your Schema component }
+
+  {.$IFDEF RELEASE_BUILD}
+  result := Binary.Create();
+  %SCHEMA%.SaveToStream(result);
+  {.$ELSE}
+  { result := nil; }
+  {.$ENDIF RELEASE_BUILD}
+end;
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDataAbstract.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDataAbstract.dll
new file mode 100644
index 0000000..1b497df
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDataAbstract.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDefaultEditor.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDefaultEditor.dll
new file mode 100644
index 0000000..f9b2407
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDefaultEditor.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDefaultValidator.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDefaultValidator.dll
new file mode 100644
index 0000000..b7e9707
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDefaultValidator.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDelphi.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDelphi.dll
new file mode 100644
index 0000000..3e4ca48
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBDelphi.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBJSONRPC.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBJSONRPC.dll
new file mode 100644
index 0000000..6e07127
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBJSONRPC.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBOSX.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBOSX.dll
new file mode 100644
index 0000000..d7f9c3c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBOSX.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBPHP.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBPHP.dll
new file mode 100644
index 0000000..937325a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBPHP.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBPasImporter.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBPasImporter.dll
new file mode 100644
index 0000000..f12c837
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBPasImporter.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBSOAP.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBSOAP.dll
new file mode 100644
index 0000000..e973768
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBSOAP.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBStandardImporters.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBStandardImporters.dll
new file mode 100644
index 0000000..aaeae9e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBStandardImporters.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBStandardViews.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBStandardViews.dll
new file mode 100644
index 0000000..d7ccbb2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBStandardViews.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBTLBImporter.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBTLBImporter.dll
new file mode 100644
index 0000000..af45ad2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROSBTLBImporter.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceBuilder.exe b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceBuilder.exe
new file mode 100644
index 0000000..b6cb4ff
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceBuilder.exe differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceBuilder70.bpl b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceBuilder70.bpl
new file mode 100644
index 0000000..c9f353a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceBuilder70.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceTester.exe b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceTester.exe
new file mode 100644
index 0000000..6de2217
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROServiceTester.exe differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROZeroConfHub.exe b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROZeroConfHub.exe
new file mode 100644
index 0000000..93eb202
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/ROZeroConfHub.exe differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects SDK.lic b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects SDK.lic
new file mode 100644
index 0000000..8c85b5e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects SDK.lic	
@@ -0,0 +1,18 @@
+9ec181ceba7436a2119d54f5c0c1c0fec113135e2e4f51fe88205a1ef5959131b503723938b2a2fc071b246527e8ebcc8f4b4d7b2986a3b44f26ac7b7edb400b7e81ff73dcc1bca1f0770d3ec140d91ed14dc13535b1d1150d52471fe12a1149d720c035d6f838832de2e7f78588f6ecc2d087c29d89c10fb7b94fe871d4130a75e419fd8e5ac74aff1d1a177db0786d899806592c929dd943a43ae251256a88abb0b7ff37bd126fa8c36b7240a1f7abc43f9c5689fb4da7cca7967379b63327e9d85efa3d4f3579bf1efef15148d8b5c45dbfab35151868bf096d8cfb7ffba50a5af91de1ceae27e885ef66b8976da75cad6db1153f6c44be7bf61cb4fa8875
+b28dcda5d2ae96078f5518dd88e60244a6a3afaddb01072a611aff866b1b160bafc240d530edfb814fa28a8ba94f9c5c378e2eac4d4374e368aea3fca38d393c
+Name=Trial
+Email=Trial
+UserId=Trial
+Company=Trial
+LicenseType=Default
+ProductName=RemObjects SDK
+Version=6
+AllowBeta=0
+Trial=1
+SubscriptionEndDate=2009-12-04
+LicenseFileEndDate=2009-12-3
+StartDate=2009-11-30
+EndDate=2010-9-2
+P1=1839102476694900580
+P2=11062474516006441058
+P3=3495438591
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.DataAbstract.Server.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.DataAbstract.Server.dll
new file mode 100644
index 0000000..625b0f9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.DataAbstract.Server.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.DataAbstract.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.DataAbstract.dll
new file mode 100644
index 0000000..dfc3cc0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.DataAbstract.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.Olympia.dll b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.Olympia.dll
new file mode 100644
index 0000000..c4c7b93
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/RemObjects.Olympia.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/System.Data.SQLite.DLL b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/System.Data.SQLite.DLL
new file mode 100644
index 0000000..8787bed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/System.Data.SQLite.DLL differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/rtl70.bpl b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/rtl70.bpl
new file mode 100644
index 0000000..ea28d0b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/rtl70.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/vcl70.bpl b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/vcl70.bpl
new file mode 100644
index 0000000..572cb25
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK (Common)/Bin/vcl70.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.InternetPack.dll b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.InternetPack.dll
new file mode 100644
index 0000000..b7cb5cc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.InternetPack.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.Server.dll b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.Server.dll
new file mode 100644
index 0000000..f1d7503
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.Server.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.ZLib.dll b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.ZLib.dll
new file mode 100644
index 0000000..bcef67a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.ZLib.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.dll b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.dll
new file mode 100644
index 0000000..0c4ec08
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Bin/RemObjects.SDK.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.bpl
new file mode 100644
index 0000000..dafecbf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.dcp
new file mode 100644
index 0000000..ca66caa
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.dcu
new file mode 100644
index 0000000..2b59868
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_Reg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_Reg.dcu
new file mode 100644
index 0000000..b8eb22d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/RemObjects_IDE_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fCustomIDEMessagesForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fCustomIDEMessagesForm.dcu
new file mode 100644
index 0000000..ab872ba
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fCustomIDEMessagesForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fDispatchersEditorForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fDispatchersEditorForm.dcu
new file mode 100644
index 0000000..7c08028
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fDispatchersEditorForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fNewProjectForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fNewProjectForm.dcu
new file mode 100644
index 0000000..e83e656
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fNewProjectForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fROAbout.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fROAbout.dcu
new file mode 100644
index 0000000..d75261d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fROAbout.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fROServerClassForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fROServerClassForm.dcu
new file mode 100644
index 0000000..a8fcd92
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fROServerClassForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fServerProjectOptions.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fServerProjectOptions.dcu
new file mode 100644
index 0000000..f7f11b0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/fServerProjectOptions.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODECReg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODECReg.dcu
new file mode 100644
index 0000000..620b98d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODECReg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLAsyncConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLAsyncConverter.dcu
new file mode 100644
index 0000000..9b21030
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLAsyncConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLConvertersUtils.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLConvertersUtils.dcu
new file mode 100644
index 0000000..0ea3443
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLConvertersUtils.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLCppConverters.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLCppConverters.dcu
new file mode 100644
index 0000000..e8d0bcd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLCppConverters.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLDelphiConverters.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLDelphiConverters.dcu
new file mode 100644
index 0000000..90fb3bd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLDelphiConverters.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLGenTools.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLGenTools.dcu
new file mode 100644
index 0000000..10bfc9c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLGenTools.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLImplConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLImplConverter.dcu
new file mode 100644
index 0000000..19a7884
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLImplConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLIntfConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLIntfConverter.dcu
new file mode 100644
index 0000000..9f9faad
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLIntfConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLInvkConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLInvkConverter.dcu
new file mode 100644
index 0000000..31c4bc4
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLInvkConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLLineStream.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLLineStream.dcu
new file mode 100644
index 0000000..8b5b05c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLLineStream.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLSplitableConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLSplitableConverter.dcu
new file mode 100644
index 0000000..99490d5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLSplitableConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLTemplateBasedConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLTemplateBasedConverter.dcu
new file mode 100644
index 0000000..a829138
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLTemplateBasedConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLTemplateBasedConverterUtils.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLTemplateBasedConverterUtils.dcu
new file mode 100644
index 0000000..0e56548
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLTemplateBasedConverterUtils.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascal.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascal.dcu
new file mode 100644
index 0000000..bc72d63
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascal.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalAsync.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalAsync.dcu
new file mode 100644
index 0000000..1dacad0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalAsync.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalImpl.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalImpl.dcu
new file mode 100644
index 0000000..6163773
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalImpl.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalIntf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalIntf.dcu
new file mode 100644
index 0000000..e8d59ac
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalIntf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalInvk.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalInvk.dcu
new file mode 100644
index 0000000..56f3fbf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRODLToPascalInvk.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROEncKeyPropEditor.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROEncKeyPropEditor.dcu
new file mode 100644
index 0000000..4753109
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROEncKeyPropEditor.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROExtraEditors.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROExtraEditors.dcu
new file mode 100644
index 0000000..daa966b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROExtraEditors.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEData.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEData.dcu
new file mode 100644
index 0000000..b8416ad
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEData.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEEditors.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEEditors.dcu
new file mode 100644
index 0000000..de26931
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEEditors.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEMenu.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEMenu.dcu
new file mode 100644
index 0000000..1757a0f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEMenu.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEPrjWizard.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEPrjWizard.dcu
new file mode 100644
index 0000000..2cfef73
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDEPrjWizard.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDETools.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDETools.dcu
new file mode 100644
index 0000000..6725ea0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROIDETools.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROLoginNeededForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROLoginNeededForm.dcu
new file mode 100644
index 0000000..0a42450
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROLoginNeededForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfo.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfo.dcu
new file mode 100644
index 0000000..d31be91
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfo.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfoForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfoForm.dcu
new file mode 100644
index 0000000..154189b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfoForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfo_Intf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfo_Intf.dcu
new file mode 100644
index 0000000..c051bed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROProductVersionInfo_Intf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRORODLNotifier.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRORODLNotifier.dcu
new file mode 100644
index 0000000..a0707ea
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uRORODLNotifier.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROResWriter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROResWriter.dcu
new file mode 100644
index 0000000..c9f38ab
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D10/uROResWriter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ROMasterServerLibrary_Intf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ROMasterServerLibrary_Intf.dcu
new file mode 100644
index 0000000..df57c9e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ROMasterServerLibrary_Intf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ROOlympia_Intf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ROOlympia_Intf.dcu
new file mode 100644
index 0000000..749924a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ROOlympia_Intf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects.inc
new file mode 100644
index 0000000..bbc33e5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects.inc	
@@ -0,0 +1,151 @@
+{$INCLUDE eDefines.inc}
+
+{ Define to check for RemObjects SDK 3.0 [vs. future versions] }
+{.$DEFINE ROSDK4}
+{$DEFINE ROSDK5}
+
+{ Define to check for RemObjects SDK 3.0 and above [vs. older versions] }
+{$DEFINE ROSDK3UP}
+{$DEFINE ROSDK4UP}
+{$DEFINE ROSDK5UP}
+
+{ DXSock }
+
+    { To use RemObjects with the standalone version of DXSock, simply remove the
+      define below. Note that this has only been tested with DXSock 3.0, and that
+      doing so requires a separate license for DXSock from Brain PatchWorks
+      see http://www.bpdx.com for more information }
+
+    {$DEFINE RemObjects_USE_RODX}
+
+{ Internet Component Suite (ICS) }
+    { Internet Component Suite - http://www.overbyte.be }
+    
+    {$DEFINE RemObjects_ICS_v5}
+    {.$DEFINE RemObjects_ICS_v6}
+
+{ Indy }
+
+   { If you are using Indy 10.2.3 or the latest just uncomment the
+     RemObjects_INDY10C DEFINE right below, and remove the Indy
+     package references from the Requires section of RemObjects_Indy_Dx.dpk
+     before re-compiling your RemObjects Indy package. }
+
+  {.$DEFINE RemObjects_INDY10C}
+  {$IFDEF RemObjects_INDY10C}
+    {$DEFINE RemObjects_INDY10}  
+    {$DEFINE RemObjects_INDY10B}
+    {$DEFINE RemObjects_GLOBAL_INDY_DEFINE}
+  {$ENDIF}
+
+   { If you are using latest Indy 10 in Delphi 6 or 7, just uncomment the 
+     RemObjects_INDY10_in_Delphi67 DEFINE right below, and remove the Indy 
+     package references from the Requires section of RemObjects_Indy_Dx.dpk 
+     before re-compiling your RemObjects Indy package. }
+
+  {.$DEFINE RemObjects_INDY10_in_Delphi67}
+  {$IFDEF RemObjects_INDY10_in_Delphi67}
+    {$DEFINE RemObjects_INDY10}  
+    {$DEFINE RemObjects_INDY10B}  
+    {$DEFINE RemObjects_GLOBAL_INDY_DEFINE}
+  {$ENDIF}
+
+  {$IFNDEF RemObjects_GLOBAL_INDY_DEFINE}
+
+    {$UNDEF RemObjects_INDY8}
+    {$UNDEF RemObjects_INDY9}
+    {$UNDEF RemObjects_INDY10}
+
+    {$IFDEF FPC}
+    	{$DEFINE RemObjects_INDY10}
+    	{$DEFINE RemObjects_INDY10B}
+      {$DEFINE RemObjects_INDY10C}
+    {$ELSE}
+      {$IFDEF DELPHI12UP}
+        {$DEFINE RemObjects_INDY10}
+        {$DEFINE RemObjects_INDY10B}
+        {$DEFINE RemObjects_INDY10C}
+      {$ELSE}
+        {$IFDEF DELPHI10UP}
+          {$DEFINE RemObjects_INDY10}
+          {$DEFINE RemObjects_INDY10B}
+        {$ELSE}
+          {$IFDEF DELPHI9UP}
+            {$DEFINE RemObjects_INDY10}
+            {$DEFINE RemObjects_INDY10A}
+          {$ELSE}
+            {$IFDEF DELPHI7UP}
+              {$DEFINE RemObjects_INDY9}
+            {$ELSE}
+              {$DEFINE RemObjects_INDY8}
+            {$ENDIF}
+          {$ENDIF}
+        {$ENDIF}          
+      {$ENDIF}
+
+      {$IFDEF KYLIX}
+        {$IFDEF KYLIX3UP}
+          {$DEFINE RemObjects_INDY9}
+        {$ELSE}
+          {$DEFINE RemObjects_INDY8}
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+
+    { If you are using Indy 9 in Delphi 6 just uncomment the Indy9 DEFINE below,
+      and remove the Indy package references from the Requires section of
+      RemObjects_Indy_D6.dpk before compiling your RemObjects Indy package. }
+
+    {.$DEFINE RemObjects_INDY9}
+
+    {$IFDEF RemObjects_INDY9}
+      {$UNDEF RemObjects_INDY8}
+    {$ENDIF}
+
+  {$ENDIF}
+
+    { If you are using a newer version of Indy that properly works at designtime,
+      you can set define the define below. If the define is not set (as is the
+      default), Indy channels cannot be used to connect at designtime, trying so
+      will display a warning message.
+
+      If you enable this define and receive an Access Violation when trying to
+      connect at designtime, then your Indy version does not yet include the
+      fix for this problem. Please contact the Indy Crew for details.
+
+      This problem applies to the Delphi Windows IDE's only; Kylix is not affected. }
+
+    {.$DEFINE RemObjects_INDY_DESIGNTIME_FIX}
+
+{ Thread Names in Debugger }
+
+    {$IFDEF DELPHI7UP}
+      {$DEFINE RemObjects_SetThreadName}
+    {$ENDIF}
+
+{ XML }
+
+    {$IFDEF MSWINDOWS}
+      {$DEFINE RemObjects_MSXML}
+    {$ELSE}
+      {$DEFINE RemObjects_OpenXML}
+    {$ENDIF}
+
+    { if we someone manually defined RemObjects_OpenXML, then undef RemObjects_MSXML }
+    {$IFDEF RemObjects_OpenXML}
+      {$UNDEF RemObjects_MSXML}
+    {$ENDIF}
+
+{ Encryption }
+
+    {$IFDEF MSWINDOWS}
+      {$DEFINE RemObjects_UseEncryption }
+    {$ENDIF MSWINDOWS}
+
+    {$IFDEF FPC}
+      {$MODE DELPHI}
+      {$UNDEF RemObjects_UseEncryption}
+      {$DEFINE RemObjects_OpenXML}
+      {$UNDEF RemObjects_MSXML}
+    {$ENDIF}
+ {$Q-,B-,R-}
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.bpl
new file mode 100644
index 0000000..16e9ccf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.dcp
new file mode 100644
index 0000000..d53ff73
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.dcu
new file mode 100644
index 0000000..c47ab7e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_Reg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_Reg.dcu
new file mode 100644
index 0000000..1c06852
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_BPDX_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.bpl
new file mode 100644
index 0000000..e4c34bc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.dcp
new file mode 100644
index 0000000..36cdcbd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.dcu
new file mode 100644
index 0000000..e745609
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_Reg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_Reg.dcu
new file mode 100644
index 0000000..b3f9f99
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Core_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.bpl
new file mode 100644
index 0000000..77ea0de
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.dcp
new file mode 100644
index 0000000..5a65314
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.dcu
new file mode 100644
index 0000000..7f7d98d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_Glyphs.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_Glyphs.res
new file mode 100644
index 0000000..0578e6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_Reg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_Reg.dcu
new file mode 100644
index 0000000..8737f31
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_DataSnap_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.bpl
new file mode 100644
index 0000000..aedd3a2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.dcp
new file mode 100644
index 0000000..49f3dfd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.dcu
new file mode 100644
index 0000000..83da077
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_Reg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_Reg.dcu
new file mode 100644
index 0000000..c6b3949
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_IDE_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.bpl
new file mode 100644
index 0000000..3eed6dc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.dcp
new file mode 100644
index 0000000..4dec939
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.dcu
new file mode 100644
index 0000000..aec678b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_Reg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_Reg.dcu
new file mode 100644
index 0000000..081fbb7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Indy_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.bpl
new file mode 100644
index 0000000..ea5bdda
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.dcp
new file mode 100644
index 0000000..46d5105
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.dcu
new file mode 100644
index 0000000..2a49969
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_RODX_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.bpl
new file mode 100644
index 0000000..2516cb5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.dcp
new file mode 100644
index 0000000..11d184d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.dcu
new file mode 100644
index 0000000..26d38a1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_Reg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_Reg.dcu
new file mode 100644
index 0000000..6df5115
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_Synapse_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.bpl
new file mode 100644
index 0000000..1291f09
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.dcp
new file mode 100644
index 0000000..91dce9f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.dcu
new file mode 100644
index 0000000..411050d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_Reg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_Reg.dcu
new file mode 100644
index 0000000..2b50e6f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/RemObjects_WebBroker_Reg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/Resources.BDS.RES b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/Resources.BDS.RES
new file mode 100644
index 0000000..048522e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/Resources.BDS.RES differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/Templates.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/Templates.res
new file mode 100644
index 0000000..a160053
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/Templates.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/asn1util.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/asn1util.dcu
new file mode 100644
index 0000000..21299b3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/asn1util.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/blcksock.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/blcksock.dcu
new file mode 100644
index 0000000..7c45091
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/blcksock.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/eDefines.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/eDefines.inc
new file mode 100644
index 0000000..ef01d58
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/eDefines.inc	
@@ -0,0 +1,495 @@
+{----------------------------------------------------------------------------}
+{file:      eDefines.inc                                                     }
+{type:      Delphi include file                                              }
+{                                                                            }
+{compiler:  Borland Pascal 7,                                                }
+{           Delphi 1-7, 2005-2007 for Win32                                  }
+{           Kylix 1-3,                                                       }
+{           C++Builder 1-6, 2006-2007                                        }
+{           Free Pascal Compiler 2.x                                         }
+{                                                                            }
+{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X                  }
+{                                                                            }
+{author:    mh@elitedev.com                                                  }
+{                                                                            }
+{contents:  Defines that can be flexibily used to determine the exact        }
+{           compiler version used.                                           }
+{                                                                            }
+{(c)opyright elitedevelopments software. all rights reserved.                }
+{            http://www.elitedev.com                                         }
+{                                                                            }
+{ Third Party component developers are encouraged to use the set of defines  }
+{ established in this file, rather then their own system, for checking their }
+{ component libraries agains different versions of Delphi and C++Builder.    }
+{                                                                            }
+{ This file may be distributed freely with both free and commercial source   }
+{ libraries, but you are asked to please leave this comment in place, and    }
+{ to return any improvements you make to this file to the maintainer that    }
+{ is noted above.                                                            }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ Compiler and OS version defines:                                           }
+{                                                                            }
+{ exact compiler versions:                                                   }
+{                                                                            }
+{ BP7             Borland Pascal 7.0                                         }
+{ DELPHI1         Delphi 1.0 (any Delphi)                                    }
+{ DELPHI2         Delphi 2.0                                                 }
+{ DELPHI3         Delphi 3.0                                                 }
+{ DELPHI4         Delphi 4.0                                                 }
+{ DELPHI5         Delphi 5.0                                                 }
+{ DELPHI6         Delphi 6.0                                                 }
+{ DELPHI7         Delphi 7.0                                                 }
+{ DELPHI9         Delphi 2005                                                }
+{ DELPHI2005      Delphi 2005                                                }
+{ DELPHI2006      Delphi 2006                                                }
+{ DELPHI2007      Delphi 2007                                                }
+{ KYLIX1          Kylix 1.0                                                  }
+{ KYLIX2          Kylix 2.0                                                  }
+{ KYLIX3          Kylix 3.0                                                  }
+{ CBUILDER1       C++Builder 1.0                                             }
+{ CBUILDER3       C++Builder 3.0                                             }
+{ CBUILDER4       C++Builder 4.0                                             }
+{ CBUILDER5       C++Builder 5.0                                             }
+{                                                                            }
+{                                                                            }
+{ minimum compiler versions:                                                 }
+{                                                                            }
+{ DELPHI1UP       Delphi 1.0 and above (any Delphi)                          }
+{ DELPHI2UP       Delphi 2.0 and above                                       }
+{ DELPHI3UP       Delphi 3.0 and above                                       }
+{ DELPHI4UP       Delphi 4.0 and above                                       }
+{ DELPHI5UP       Delphi 5.0 and above                                       }
+{ DELPHI6UP       Delphi 6.0 and above                                       }
+{ DELPHI7UP       Delphi 7.0 and above                                       }
+{ DELPHI9UP       Delphi 9.0 (2005) and above                                }
+{ DELPHI10UP      Delphi 10.0 (2006) and above                               }
+{ DELPHI11UP      Delphi 11.0 (2007) and above                               }
+{ DELPHI2005UP    Delphi 2005 and above                                      }
+{ DELPHI2006UP    Delphi 2006 and above                                      }
+{ DELPHI2007UP    Delphi 2007 and above                                      }
+{ KYLIX1UP        Kylix 1.0 and above (any Kylix)                            }
+{ KYLIX2UP        Kylix 2.0 and above (any Kylix)                            }
+{ KYLIX3UP        Kylix 3.0 and above (any Kylix)                            }
+{ CBUILDER1UP     C++Builder 1.0 and above or Delphi 2 and above             }
+{ CBUILDER3UP     C++Builder 3.0 and above or Delphi 3.0 and above           }
+{ CBUILDER4UP     C++Builder 4.0 and above or Delphi 4.0 and above           }
+{ CBUILDER5UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{ CBUILDER6UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{                                                                            }
+{                                                                            }
+{ compiler types:                                                            }
+{                                                                            }
+{ BP              Borland Pascal (not Delphi or C++Builder)                  }
+{ DELPHI          any Delphi version (but not C++Builder or Kylix)           }
+{ KYLIX           any Kylix version (not Delphi or C++Builder for Windows)   }
+{ CBUILDER        any C++Builder for Windows (Pascal)                        }
+{                                                                            }
+{                                                                            }
+{ target platforms compiler types:                                           }
+{                                                                            }
+{ DELPHI_16BIT    16bit Delphi (but not C++Builder!)                         }
+{ DELPHI_32BIT    32bit Delphi (but not C++Builder)                          }
+{ KYLIX_32BIT     32bit Kylix (but not C++Builder)                           }
+{ CBUILDER_32BIT  32bit C++Builer's Pascal (but not Delphi)                  }
+{                                                                            }
+{                                                                            }
+{ target cpu types                                                           }
+{                                                                            }
+{ CPU16           16bit Delphi or Borland Pascal                             }
+{ CPU32           32bit Delphi or Free Pascal                                }
+{ CPU64           64bit Free Pascal                                          }
+{                                                                            }
+{ target platforms                                                           }
+{                                                                            }
+{ DOS             any DOS (plain and DPMI)                                   }
+{ REALMODE        16bit realmode DOS                                         }
+{ PROTECTEDMODE   16bit DPMI DOS                                             }
+{                                                                            }
+{ MSWINDOWS       any Windows platform                                       }
+{ WIN16           16bit Windows                                              }
+{ WIN32           32bit Windows                                              }
+{ WIN64           64bit Windows                                              }
+{ DOTNET          .NET                                                       }
+{                                                                            }
+{ LINUX           any Linux platform                                         }
+{ LINUX32         32bit Linux                                                }
+{ LINUX64         64bit Linux                                                }
+{                                                                            }
+{ DARWIN          Any Mac OS X                                               }
+{ DARWIN32        32bit Mac OS X                                             }
+{ DARWIN64        64bit Mac OS X                                             }
+{----------------------------------------------------------------------------}
+
+{ defines for Borland Pascal 7.0 }
+{$IFDEF VER70}
+  {$DEFINE BP}
+  {$DEFINE BP7}
+  {$DEFINE 16BIT}
+  {$DEFINE CPU16}
+
+  { defines for BP7 DOS real mode }
+  {$IFDEF MSDOS}
+    {$DEFINE DOS}
+    {$DEFINE REALMODE}
+  {$ENDIF}
+
+  { defines for BP7 DOS protected mode }
+  {$IFDEF DPMI}
+    {$DEFINE DOS}
+    {$DEFINE PROTECTEDMODE}
+  {$ENDIF}
+
+  { defines for BP7 Windows }
+  {$IFDEF WINDOWS}
+    {$DEFINE MSWINDOWS}
+    {$DEFINE WIN16}
+  {$ENDIF}
+{$ENDIF}
+
+{ defines for Delphi 1.0 thru 7.0 }
+{$IFDEF MSWINDOWS}
+
+  { defines for Delphi 1.0 }
+  {$IFDEF VER80}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI1}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI_16BIT}
+    {$DEFINE WIN16}
+    {$DEFINE 16BIT}
+    {$DEFINE CPU16}
+  {$ENDIF}
+
+  { defines for Delphi 2.0 }
+  {$IFDEF VER90}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI2}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+  {$ENDIF}
+
+  { defines for C++Builder 1.0 }
+  {$IFDEF VER93}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER1}
+    {$DEFINE CBUILDER1UP}
+  {$ENDIF}
+
+  { defines for Delphi 3.0 }
+  {$IFDEF VER100}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI3}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+  {$ENDIF}
+
+  { defines for C++Builder 3.0 }
+  {$IFDEF VER110}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER3}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+  {$ENDIF}
+
+  { defines for Delphi 4.0 }
+  {$IFDEF VER120}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI4}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+  {$ENDIF}
+
+  { defines for C++Builder 4.0 }
+  {$IFDEF VER125}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER4}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+  {$ENDIF}
+  { defines for Delphi 5.0 }
+  {$IFDEF VER130}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI5}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+  {$ENDIF}
+
+  { defines for C++Builder 5.0 }
+  {$IFDEF VER135}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER5}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+    {$DEFINE CBUILDER5UP}
+  {$ENDIF}
+
+  { defines for Delphi 6.0 }
+  {$IFDEF VER140}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI6}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+  {$ENDIF}
+
+  { defines for Delphi 7.0 }
+  {$IFDEF VER150}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI7}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+  {$ENDIF}
+
+  { defines for Delphi 2005 }
+  {$IFDEF VER170}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI9}
+    {$DEFINE DELPHI2005}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS3}
+    {$DEFINE BDS3UP}
+  {$ENDIF}
+
+  { defines for Delphi 2006 }
+  {$IFDEF VER180}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI10}
+    {$DEFINE DELPHI10A}  
+    {$DEFINE DELPHI2006}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS4}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+  {$ENDIF}
+
+  { defines for Delphi 2007 }
+  {$IFDEF VER185}
+    {$UNDEF DELPHI10A}  // declared in VER180
+    {$UNDEF DELPHI2006} // declared in VER180
+    {$UNDEF BDS4}       // declared in VER180
+
+    {$DEFINE DELPHI10B}    
+    {$DEFINE DELPHI10BUP}    
+    {$DEFINE DELPHI11}    
+    {$DEFINE DELPHI11UP}    
+    {$DEFINE DELPHI2007}
+    {$DEFINE DELPHI2007UP}    
+    {$DEFINE BDS5}
+    {$DEFINE BDS5UP}
+  {$ENDIF}
+
+  { defines for Delphi 2009 }
+  {$IFDEF VER200}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI12}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+
+    {$DEFINE DELPHI2009}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+
+    {$DEFINE BDS}
+    {$DEFINE BDS6}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+  {$ENDIF}
+
+  { defines for Delphi 2010 }
+  {$IFDEF VER210}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI14}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+    {$DEFINE DELPHI14UP}    
+
+    {$DEFINE DELPHI2010}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+    {$DEFINE DELPHI2010UP}    
+
+    {$DEFINE BDS}
+    {$DEFINE BDS7}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+    {$DEFINE BDS7UP}
+  {$ENDIF}
+  
+
+  {$IFDEF WIN32}
+    {$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
+    {$DEFINE 32BIT}
+    {$DEFINE CPU32}
+  {$ENDIF}
+
+{$ENDIF MSWINDOWS}
+
+{ defines for "Delphi for .NET" }
+{$IFDEF CLR}
+  {$DEFINE DOTNET}
+{$ENDIF}
+
+{$IFDEF DELPHI}
+  {$IFDEF DELPHI2UP}
+    {$DEFINE DELPHI_32BIT}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF CBUILDER}
+  {$DEFINE CBUILDER_32BIT}
+{$ENDIF}
+
+{$IFNDEF FPC}
+
+  { Kylix 1.0 thru 3.0 }
+  {$IFDEF LINUX}
+
+    {$DEFINE VER140UP}
+
+    { Any Kylix }
+    {$DEFINE 32BIT}
+    {$DEFINE LINUX32}
+    {$DEFINE KYLIX_32BIT}
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+
+    {$IFDEF CONDITIONALEXPRESSIONS}
+      {$IF Declared(CompilerVersion)}
+
+         { Kylix 2.0 }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.1)}
+           {$DEFINE KYLIX2}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+         {$IFEND}
+
+         { Kylix 3.0 - Delphi portion }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.5)}
+           {$DEFINE KYLIX3}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+           {$DEFINE KYLIX3UP}
+         {$IFEND}
+
+      { Kylix 1.0 }
+      {$ELSE}
+        {$DEFINE KYLIX1}
+      {$IFEND}
+    {$ENDIF CONDITIONALEXPRESSIONS}
+
+  {$ENDIF LINUX}
+{$ENDIF}
+
+{ CPU }
+
+{$IFDEF FPC}
+  {$IFDEF MSWINDOWS}
+    {$IFDEF CPU64}
+      {$DEFINE WIN64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF LINUX}
+    {$IFDEF CPU32}
+      {$DEFINE LINUX32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE LINUX64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF DARWIN}
+    {$IFDEF CPU32}
+      {$DEFINE DARWIN32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE DARWIN64}
+    {$ENDIF}
+  {$ENDIF}
+{$ELSE}
+  {$DEFINE ENDIAN_LITTLE} // To have endianness symbol defined in Delphi too
+{$ENDIF}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fCustomIDEMessagesForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fCustomIDEMessagesForm.dcu
new file mode 100644
index 0000000..05de43b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fCustomIDEMessagesForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fDispatchersEditorForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fDispatchersEditorForm.dcu
new file mode 100644
index 0000000..4b491d9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fDispatchersEditorForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fNewProjectForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fNewProjectForm.dcu
new file mode 100644
index 0000000..ff36229
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fNewProjectForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fROAbout.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fROAbout.dcu
new file mode 100644
index 0000000..9cbcf40
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fROAbout.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fROServerClassForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fROServerClassForm.dcu
new file mode 100644
index 0000000..62c2402
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fROServerClassForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fServerProjectOptions.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fServerProjectOptions.dcu
new file mode 100644
index 0000000..34e06b7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/fServerProjectOptions.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/httpsend.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/httpsend.dcu
new file mode 100644
index 0000000..da7b14a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/httpsend.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ldapsend.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ldapsend.dcu
new file mode 100644
index 0000000..c16bb01
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/ldapsend.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synacode.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synacode.dcu
new file mode 100644
index 0000000..3ad7056
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synacode.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synafpc.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synafpc.dcu
new file mode 100644
index 0000000..1835d79
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synafpc.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synaip.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synaip.dcu
new file mode 100644
index 0000000..416ed73
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synaip.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synautil.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synautil.dcu
new file mode 100644
index 0000000..c83e909
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synautil.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synsock.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synsock.dcu
new file mode 100644
index 0000000..374e488
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/synsock.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPAsyncHttpServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPAsyncHttpServer.dcu
new file mode 100644
index 0000000..d5cf93a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPAsyncHttpServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPAsyncSocket.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPAsyncSocket.dcu
new file mode 100644
index 0000000..1de0368
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPAsyncSocket.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPHttpHeaders.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPHttpHeaders.dcu
new file mode 100644
index 0000000..03c2a41
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uIPHttpHeaders.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsync.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsync.dcu
new file mode 100644
index 0000000..70fd76c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsync.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncResponseStorage.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncResponseStorage.dcu
new file mode 100644
index 0000000..c54b68f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncResponseStorage.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncSCHelpers.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncSCHelpers.dcu
new file mode 100644
index 0000000..7ebbff1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncSCHelpers.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncSuperTcpServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncSuperTcpServer.dcu
new file mode 100644
index 0000000..5ba5806
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROAsyncSuperTcpServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBPDXHTTPServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBPDXHTTPServer.dcu
new file mode 100644
index 0000000..03444f0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBPDXHTTPServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBPDXTCPServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBPDXTCPServer.dcu
new file mode 100644
index 0000000..fa67898
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBPDXTCPServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBaseSuperHttpChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBaseSuperHttpChannel.dcu
new file mode 100644
index 0000000..bda8c8e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBaseSuperHttpChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBaseSuperHttpServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBaseSuperHttpServer.dcu
new file mode 100644
index 0000000..28bbab5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBaseSuperHttpServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBinMessage.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBinMessage.dcu
new file mode 100644
index 0000000..9ed08d8
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBinMessage.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBinaryHelpers.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBinaryHelpers.dcu
new file mode 100644
index 0000000..21e7a05
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBinaryHelpers.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBroadcastChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBroadcastChannel.dcu
new file mode 100644
index 0000000..f0a453b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBroadcastChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBroadcastServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBroadcastServer.dcu
new file mode 100644
index 0000000..d020b20
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROBroadcastServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCOMInit.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCOMInit.dcu
new file mode 100644
index 0000000..73e406a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCOMInit.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCipher.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCipher.dcu
new file mode 100644
index 0000000..d2672e9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCipher.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCipher1.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCipher1.dcu
new file mode 100644
index 0000000..23058ce
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCipher1.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCiphers.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCiphers.dcu
new file mode 100644
index 0000000..4d4e05b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCiphers.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClassFactories.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClassFactories.dcu
new file mode 100644
index 0000000..a415928
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClassFactories.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClasses.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClasses.dcu
new file mode 100644
index 0000000..c4010d5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClasses.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClient.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClient.dcu
new file mode 100644
index 0000000..27bc3ff
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClient.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClientIntf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClientIntf.dcu
new file mode 100644
index 0000000..1ee968c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROClientIntf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROComboService.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROComboService.dcu
new file mode 100644
index 0000000..9f8a408
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROComboService.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCompression.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCompression.dcu
new file mode 100644
index 0000000..88c7963
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROCompression.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODBEventRepository.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODBEventRepository.dcu
new file mode 100644
index 0000000..255c494
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODBEventRepository.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODBSessionManager.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODBSessionManager.dcu
new file mode 100644
index 0000000..5aa46df
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODBSessionManager.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECConst.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECConst.dcu
new file mode 100644
index 0000000..c14843f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECConst.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECReg.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECReg.dcu
new file mode 100644
index 0000000..50c18ab
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECReg.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECReg.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECReg.res
new file mode 100644
index 0000000..915f25d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECReg.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECUtil.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECUtil.dcu
new file mode 100644
index 0000000..49f6e5f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODECUtil.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODL.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODL.dcu
new file mode 100644
index 0000000..6a88c29
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODL.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLAsyncConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLAsyncConverter.dcu
new file mode 100644
index 0000000..c244b5c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLAsyncConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLConvertersUtils.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLConvertersUtils.dcu
new file mode 100644
index 0000000..7148ed1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLConvertersUtils.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLCppConverters.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLCppConverters.dcu
new file mode 100644
index 0000000..baf4f9a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLCppConverters.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLDelphiConverters.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLDelphiConverters.dcu
new file mode 100644
index 0000000..e3d6b11
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLDelphiConverters.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLGenTools.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLGenTools.dcu
new file mode 100644
index 0000000..02af7fe
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLGenTools.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLImplConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLImplConverter.dcu
new file mode 100644
index 0000000..636b194
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLImplConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLIntfConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLIntfConverter.dcu
new file mode 100644
index 0000000..1ad449a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLIntfConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLInvkConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLInvkConverter.dcu
new file mode 100644
index 0000000..cc178e7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLInvkConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLChannel.dcu
new file mode 100644
index 0000000..851a992
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLHelpers.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLHelpers.dcu
new file mode 100644
index 0000000..53ce875
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLHelpers.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLineStream.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLineStream.dcu
new file mode 100644
index 0000000..98c7943
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLLineStream.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLSplitableConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLSplitableConverter.dcu
new file mode 100644
index 0000000..a27f291
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLSplitableConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLTemplateBasedConverter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLTemplateBasedConverter.dcu
new file mode 100644
index 0000000..8832b6d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLTemplateBasedConverter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLTemplateBasedConverterUtils.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLTemplateBasedConverterUtils.dcu
new file mode 100644
index 0000000..46b9a80
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLTemplateBasedConverterUtils.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascal.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascal.dcu
new file mode 100644
index 0000000..a1254bf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascal.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalAsync.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalAsync.dcu
new file mode 100644
index 0000000..6cf4ec2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalAsync.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalImpl.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalImpl.dcu
new file mode 100644
index 0000000..02b8c1a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalImpl.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalIntf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalIntf.dcu
new file mode 100644
index 0000000..2c7a611
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalIntf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalInvk.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalInvk.dcu
new file mode 100644
index 0000000..37163d5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToPascalInvk.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToWSDL.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToWSDL.dcu
new file mode 100644
index 0000000..424b450
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToWSDL.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToXML.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToXML.dcu
new file mode 100644
index 0000000..e7e4530
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODLToXML.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXHTTPHeaderTools.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXHTTPHeaderTools.dcu
new file mode 100644
index 0000000..11e0dd2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXHTTPHeaderTools.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXHTTPServerCore.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXHTTPServerCore.dcu
new file mode 100644
index 0000000..a8f2c6d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXHTTPServerCore.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXISAPI.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXISAPI.dcu
new file mode 100644
index 0000000..f9f6206
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXISAPI.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXISAPIFilter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXISAPIFilter.dcu
new file mode 100644
index 0000000..8fceed8
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXISAPIFilter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSecurity.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSecurity.dcu
new file mode 100644
index 0000000..46d8048
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSecurity.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXServerCore.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXServerCore.dcu
new file mode 100644
index 0000000..3e6328d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXServerCore.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSessionTracker.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSessionTracker.dcu
new file mode 100644
index 0000000..c23ecb2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSessionTracker.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSock.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSock.dcu
new file mode 100644
index 0000000..1fb1b2a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSock.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSockClient.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSockClient.dcu
new file mode 100644
index 0000000..824033b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSockClient.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSocket.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSocket.dcu
new file mode 100644
index 0000000..14f2486
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXSocket.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXString.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXString.dcu
new file mode 100644
index 0000000..ce01b94
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODXString.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapBaseAppServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapBaseAppServer.dcu
new file mode 100644
index 0000000..935a0c7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapBaseAppServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapConnection.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapConnection.dcu
new file mode 100644
index 0000000..7376f78
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapConnection.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapModule.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapModule.dcu
new file mode 100644
index 0000000..001fb37
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapModule.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapNewServerModuleWizard.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapNewServerModuleWizard.dcu
new file mode 100644
index 0000000..ccf54a3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapNewServerModuleWizard.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapNewServerModuleWizard.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapNewServerModuleWizard.res
new file mode 100644
index 0000000..e3a9d19
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapNewServerModuleWizard.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapProviderManager.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapProviderManager.dcu
new file mode 100644
index 0000000..1c429cc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapProviderManager.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapProviderPublisher.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapProviderPublisher.dcu
new file mode 100644
index 0000000..36705be
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapProviderPublisher.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapPublishedProvidersCollection.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapPublishedProvidersCollection.dcu
new file mode 100644
index 0000000..27d4ba1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapPublishedProvidersCollection.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapRes.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapRes.dcu
new file mode 100644
index 0000000..0ba22c0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnapRes.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Async.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Async.dcu
new file mode 100644
index 0000000..2045316
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Async.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Intf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Intf.dcu
new file mode 100644
index 0000000..9a34a6d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Intf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Invk.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Invk.dcu
new file mode 100644
index 0000000..9236e9d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODataSnap_Invk.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery.dcu
new file mode 100644
index 0000000..c407f4f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscoveryService_Impl.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscoveryService_Impl.dcu
new file mode 100644
index 0000000..7c66cee
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscoveryService_Impl.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Async.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Async.dcu
new file mode 100644
index 0000000..ef091b9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Async.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Intf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Intf.dcu
new file mode 100644
index 0000000..bb7dddd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Intf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Invk.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Invk.dcu
new file mode 100644
index 0000000..23fe743
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODiscovery_Invk.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODynamicRequest.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODynamicRequest.dcu
new file mode 100644
index 0000000..9d981d3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRODynamicRequest.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncKeyPropEditor.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncKeyPropEditor.dcu
new file mode 100644
index 0000000..68b48c2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncKeyPropEditor.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncryption.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncryption.dcu
new file mode 100644
index 0000000..a8b0268
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncryption.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncryptionEnvelope.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncryptionEnvelope.dcu
new file mode 100644
index 0000000..4a71941
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEncryptionEnvelope.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEndianness.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEndianness.dcu
new file mode 100644
index 0000000..53b5cbf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEndianness.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEventRepository.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEventRepository.dcu
new file mode 100644
index 0000000..5777f76
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROEventRepository.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROExtraEditors.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROExtraEditors.dcu
new file mode 100644
index 0000000..ac593a7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROExtraEditors.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHCMngr.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHCMngr.dcu
new file mode 100644
index 0000000..333db62
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHCMngr.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHTTPDispatch.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHTTPDispatch.dcu
new file mode 100644
index 0000000..60e28ee
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHTTPDispatch.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHTTPTools.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHTTPTools.dcu
new file mode 100644
index 0000000..cb5f941
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHTTPTools.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHash.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHash.dcu
new file mode 100644
index 0000000..d341b6d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHash.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHtmlServerInfo.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHtmlServerInfo.dcu
new file mode 100644
index 0000000..6d85e4a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHtmlServerInfo.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHtmlServerInfo.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHtmlServerInfo.res
new file mode 100644
index 0000000..07f0364
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROHtmlServerInfo.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEData.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEData.dcu
new file mode 100644
index 0000000..3cd7616
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEData.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEEditors.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEEditors.dcu
new file mode 100644
index 0000000..630ea87
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEEditors.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEMenu.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEMenu.dcu
new file mode 100644
index 0000000..112a0e6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEMenu.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEPrjWizard.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEPrjWizard.dcu
new file mode 100644
index 0000000..d404c7d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDEPrjWizard.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDETools.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDETools.dcu
new file mode 100644
index 0000000..1109da2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIDETools.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIdeOnly.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIdeOnly.dcu
new file mode 100644
index 0000000..29d259e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIdeOnly.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmail.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmail.dcu
new file mode 100644
index 0000000..2f1c041
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmail.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmailChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmailChannel.dcu
new file mode 100644
index 0000000..fcfa599
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmailChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmailServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmailServer.dcu
new file mode 100644
index 0000000..a7a8848
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyEmailServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyHTTPChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyHTTPChannel.dcu
new file mode 100644
index 0000000..ee02cee
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyHTTPChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyHTTPServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyHTTPServer.dcu
new file mode 100644
index 0000000..43b59af
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyHTTPServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndySuperHttpChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndySuperHttpChannel.dcu
new file mode 100644
index 0000000..aa49079
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndySuperHttpChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyTCPChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyTCPChannel.dcu
new file mode 100644
index 0000000..dc627ce
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyTCPChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyTCPServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyTCPServer.dcu
new file mode 100644
index 0000000..b73d654
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyTCPServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyUDPChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyUDPChannel.dcu
new file mode 100644
index 0000000..ae16245
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyUDPChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyUDPServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyUDPServer.dcu
new file mode 100644
index 0000000..0d01c96
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIndyUDPServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpHttpServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpHttpServer.dcu
new file mode 100644
index 0000000..424e412
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpHttpServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpSuperHttpServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpSuperHttpServer.dcu
new file mode 100644
index 0000000..2aacf9d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpSuperHttpServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpTcpServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpTcpServer.dcu
new file mode 100644
index 0000000..abbc4cc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROIpTcpServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROJSONMessage.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROJSONMessage.dcu
new file mode 100644
index 0000000..712b2aa
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROJSONMessage.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROJSONParser.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROJSONParser.dcu
new file mode 100644
index 0000000..603af43
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROJSONParser.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLDAP.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLDAP.dcu
new file mode 100644
index 0000000..2add562
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLDAP.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLocalChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLocalChannel.dcu
new file mode 100644
index 0000000..a0c05ae
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLocalChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLocalServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLocalServer.dcu
new file mode 100644
index 0000000..3d18f40
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLocalServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLoginNeededForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLoginNeededForm.dcu
new file mode 100644
index 0000000..039e6c8
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROLoginNeededForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMSXML2_TLB.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMSXML2_TLB.dcu
new file mode 100644
index 0000000..f78787e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMSXML2_TLB.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMSXMLImpl.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMSXMLImpl.dcu
new file mode 100644
index 0000000..a548423
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMSXMLImpl.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMasterServerEventRepository.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMasterServerEventRepository.dcu
new file mode 100644
index 0000000..0d7bb74
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMasterServerEventRepository.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMasterServerSessionManager.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMasterServerSessionManager.dcu
new file mode 100644
index 0000000..1271afd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROMasterServerSessionManager.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRONamedPipeChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRONamedPipeChannel.dcu
new file mode 100644
index 0000000..7493199
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRONamedPipeChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRONamedPipeServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRONamedPipeServer.dcu
new file mode 100644
index 0000000..61cce8d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRONamedPipeServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOlympiaEventRepository.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOlympiaEventRepository.dcu
new file mode 100644
index 0000000..f11a67a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOlympiaEventRepository.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOlympiaSessionManager.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOlympiaSessionManager.dcu
new file mode 100644
index 0000000..c1d627a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOlympiaSessionManager.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOpenXMLImpl.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOpenXMLImpl.dcu
new file mode 100644
index 0000000..c3022bf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROOpenXMLImpl.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPleaseWaitForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPleaseWaitForm.dcu
new file mode 100644
index 0000000..64feb25
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPleaseWaitForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPleaseWaitForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPleaseWaitForm.dfm
new file mode 100644
index 0000000..63d01db
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPleaseWaitForm.dfm	
@@ -0,0 +1,103 @@
+object PleaseWaitForm: TPleaseWaitForm
+  Left = 336
+  Top = 344
+  BorderIcons = []
+  BorderStyle = bsDialog
+  Caption = 'RemObjects SDK'
+  ClientHeight = 41
+  ClientWidth = 542
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnHide = FormHide
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbl_Caption: TLabel
+    Left = 64
+    Top = 14
+    Width = 66
+    Height = 13
+    Caption = 'Please wait...'
+  end
+  object img_Logo: TImage
+    Left = 2
+    Top = 0
+    Width = 32
+    Height = 32
+    AutoSize = True
+    Center = True
+    Picture.Data = {
+      07544269746D617080080000424D800800000000000036040000280000002000
+      00002000000001000800010000004A040000C21E0000C21E0000000000000000
+      000000000000000080000080000000808000800000008000800080800000C0C0
+      C000C0DCC000F0CAA6000000000001010100030303000606060005050F000808
+      08000B0B0B000C0D0D000D0D0D00101010001212120014141400151515001717
+      17001A1A1A001C1C1C001F1F1F0004042100161620001D1E2800181A2F000707
+      370005053E00101037001B1D32001F202B002021210021212100242424002626
+      2600292929002B2B2B002E2E2E0026283300282A3500282A3600303030003333
+      3300323434003535350036383800383838003A3A3A003C3C3C003F3F3F000D0E
+      4800171B4500151A4E00181D490010155D00151B5B00151B5C001D2141001D21
+      42001C245D00262940002126480023294B0031374F00393C48003C3F4B002B33
+      5900333952000404650005066F0008096A000E14660001017500090F75000404
+      7800121F790015206E001E2C73001A287A00232F6C0029356800323B6100343E
+      630024327000283776002E3D7B003E4141003E445B003A4675003D4977004141
+      410042454500434545004444440046464600494949004B4B4B004A4C4C004E4E
+      4E004144500043465200484B5700515151005052520053535300565656005858
+      58005B5B5B005A5D5D005D5D5D005D5E5E00434C6D005B5E6700606060006262
+      620062646400656565006767670068696900686A6A006B6B6B00616778007171
+      710070727200727676007D7F7F0001018700010188000C188300000090000000
+      9A0000029F000B1D970008199C00172A8A00182A89000F2091001D369B001F39
+      9E000005A5000009AB000411A4000618A6000A1FA700000CB100000FB8000213
+      B400071EB1000216BA000012BE00132FAA000B24B1000C27B6001131BB00233F
+      AB00374A8D002A4094002E4395002D439600344A99002D46A3003851A7003C54
+      A8002443B8002F4DBC00485A950055669C0060688200566AA7000015C4000018
+      CA00001BD000001ED7000520C1000E33CB001538C200183BC300153BCE000022
+      DD00062FDE000028E900032FEA00123EE700002BF000002EF6000332F0000A3A
+      F2000F3EF3000032FC000336FE00073AFF000C3EFF00224ADD00385FDF003C62
+      DF001442F3001847F3001042FF001547FF001A4BFF001E4FFF00204AE8002853
+      E9002354FF002758FF002C5CFF003A63EA003E67EA003C68F4003161FF003565
+      FF003A69FF003F6EFF004A67C200496EE1004C72E1004570F5004974F5004372
+      FF007B8080007C81810080828200828484009095950093979700959B9B009CA1
+      A1009EA4A400A1A7A700A2A8A800A4A9A900A6ACAC00AEB5B500B0B6B600B1B8
+      B800B3BABA00B6BDBD00B7BEBE00BAC2C200BDC4C400C6CECE00F0FBFF00A4A0
+      A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
+      FF000AF5000DEFE0612414131210246081EDF50009F5000008F50011E8661A19
+      181716141312100F0D0C30E6F50107F5000006F50015F4712726251A19181716
+      141312100F0D0C0B5BF3F59405F5000005F50017E93329282726251A3B919088
+      8784491F0F0D0C0B11EAF50004F5000004F5000FE42F2E2A2928272625389591
+      908887000287000883200D0C0B00E1F503F5000003F50011EB33312F2E2A2928
+      27263D96959190888700038700074D0E0C0B00EAF51902F5000002F50013F162
+      3433312F2E2A2928273E979695919088871A03870008861B0C0B11F3F5F50000
+      02F500147836353433312F2E2A2928273E3D224C9190888703870007860E0C0B
+      5BF5F5F500000017F5EC625F36353433312F2E2A29282726251D959190888720
+      038700064D0D0C0BE6F500000018F57C63625F36353433312F2E2A2928272685
+      96959190888703870005200D0C30F50000000019F2656463625F57B4BE9E472F
+      2E2A292851AE9A9695919088871B02870005830F0D0CEDF50000001AE5676564
+      6368C0C3C2C1B8312F2E2A2940AFAE9A969591908887028700041F0F0D810000
+      0020806B6765645DCAC4C3C2C155312F2E2A2C8DAFAE9A96959190374F874910
+      0F3200000020736D6B67655ECBCAC4C3C24833312F2E2A292BAF933C92954E17
+      218784121015000000206F6E6D6B6765C5CBCAC4B5353433312F2E2A41B05026
+      23391E181C4B4A13121000000020706F6E6D6B676AA4A5A35F3635343331548B
+      9CB1942726251A191817161413120000002072706F6E6D6B67656463625F3635
+      3444BCB98C9C43282726251A191817161413000000207672706F6E6D6B676564
+      63625F363559BD9B2F2E2A29282726251A1918171614000000207B7672706F6E
+      6D6B67656463625F3635B3BA582F2E2A2942898A3A1A19181724000000208277
+      7672706F6E6D6B676564695C5F368FC1BA312F2E2AB2B0AF99231A1918610000
+      0020E779777672706F6E6D6B6774CECBA8A1C3C28E33312F2EB7B1B0AF3F251A
+      19E000000020F37A79777675D5D7AA6D6BA6CDCCCBCAC45A353433312F9DB7B1
+      982726251AEF00000020F5E27A7977DBD9D8D36E6DA7D0CDCCCBCA9F46353433
+      312F52532D28272666F500000020F5EE7B7A79DCDFD9D8C7C6D2D1D0CDCCCBCA
+      C4B6353433312F2E2A292827E8F5000002F5001EE37B7A7EDEDFD9D8D7D6D2D1
+      D0CDCCCBCABB36353433312F2E2A296CF5F5000002F5001EF37F7B7AACDEDFD9
+      D8D7D6D2D1D0CDCCCBA25F46453433312F2E33F0F5F5000003F5001BEE7D7B7A
+      7EDCDFD9D8D7D6D2D1D0CDCCC9A2C0BF563433312FE9F52802F5000004F50019
+      EB7D7B7A79ADDDD9D8D7D6D2D1D0CDCCCBC8A136353433E4F52E03F5000005F5
+      0017EE7F7B7A7977ABDAD4D7D6D2D1CFA9A063625F3662EBF53504F5000006F5
+      0015F3E37B7A79777672706F6E6D6B676564636278F1F50005F5000008F50011
+      EEE27A79777672706F6E6D6B67657CECF52E07F500000AF5000DF3E7827B7672
+      706F7380E5F2F5D209F50001}
+    Transparent = True
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPostMessage.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPostMessage.dcu
new file mode 100644
index 0000000..37aadb4
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPostMessage.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPoweredByRemObjectsButton.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPoweredByRemObjectsButton.dcu
new file mode 100644
index 0000000..95f386e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPoweredByRemObjectsButton.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPoweredByRemObjectsButton.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPoweredByRemObjectsButton.res
new file mode 100644
index 0000000..774c2b2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROPoweredByRemObjectsButton.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfo.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfo.dcu
new file mode 100644
index 0000000..c09db4e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfo.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfoForm.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfoForm.dcu
new file mode 100644
index 0000000..b6a15f2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfoForm.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfo_Intf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfo_Intf.dcu
new file mode 100644
index 0000000..bf9b82f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROProductVersionInfo_Intf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORFC1760.RES b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORFC1760.RES
new file mode 100644
index 0000000..b5f037b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORFC1760.RES differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORFC2289.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORFC2289.dcu
new file mode 100644
index 0000000..26da531
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORFC2289.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORODLNotifier.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORODLNotifier.dcu
new file mode 100644
index 0000000..b715dee
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORODLNotifier.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORemoteDataModule.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORemoteDataModule.dcu
new file mode 100644
index 0000000..abe55f5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORemoteDataModule.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORemoteService.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORemoteService.dcu
new file mode 100644
index 0000000..f1f5bc1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORemoteService.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORes.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORes.dcu
new file mode 100644
index 0000000..78c1968
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORes.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROResWriter.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROResWriter.dcu
new file mode 100644
index 0000000..c418803
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROResWriter.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORng.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORng.dcu
new file mode 100644
index 0000000..aa81305
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uRORng.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSCHelpers.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSCHelpers.dcu
new file mode 100644
index 0000000..7a4180b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSCHelpers.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSOAPMessage.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSOAPMessage.dcu
new file mode 100644
index 0000000..5111aff
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSOAPMessage.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSerializer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSerializer.dcu
new file mode 100644
index 0000000..98b2530
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSerializer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServer.dcu
new file mode 100644
index 0000000..f6aa705
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServerIntf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServerIntf.dcu
new file mode 100644
index 0000000..839835d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServerIntf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServerMultiMessage.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServerMultiMessage.dcu
new file mode 100644
index 0000000..aa0f9da
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROServerMultiMessage.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSessions.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSessions.dcu
new file mode 100644
index 0000000..b02ddac
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSessions.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROStreamSerializer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROStreamSerializer.dcu
new file mode 100644
index 0000000..31a96d6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROStreamSerializer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROStreamUtils.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROStreamUtils.dcu
new file mode 100644
index 0000000..f2024d3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROStreamUtils.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSuperTCPChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSuperTCPChannel.dcu
new file mode 100644
index 0000000..89f18ea
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSuperTCPChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSuperTCPServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSuperTCPServer.dcu
new file mode 100644
index 0000000..57328ff
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSuperTCPServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseHTTPChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseHTTPChannel.dcu
new file mode 100644
index 0000000..5dae955
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseHTTPChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSCHelpers.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSCHelpers.dcu
new file mode 100644
index 0000000..af99e8b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSCHelpers.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseServerSocket.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseServerSocket.dcu
new file mode 100644
index 0000000..fc032d9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseServerSocket.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperHttpChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperHttpChannel.dcu
new file mode 100644
index 0000000..87d7edc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperHttpChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperTCPCHannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperTCPCHannel.dcu
new file mode 100644
index 0000000..859546b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperTCPCHannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperTCPServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperTCPServer.dcu
new file mode 100644
index 0000000..c309e3e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROSynapseSuperTCPServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROThread.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROThread.dcu
new file mode 100644
index 0000000..7ef69e6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROThread.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROThreadPool.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROThreadPool.dcu
new file mode 100644
index 0000000..eb262b3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROThreadPool.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROTypes.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROTypes.dcu
new file mode 100644
index 0000000..6ccd7c8
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROTypes.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROUnicodeConv.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROUnicodeConv.dcu
new file mode 100644
index 0000000..7ee07a7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROUnicodeConv.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWebBrokerServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWebBrokerServer.dcu
new file mode 100644
index 0000000..501db5d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWebBrokerServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinInetHttpChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinInetHttpChannel.dcu
new file mode 100644
index 0000000..0faa494
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinInetHttpChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinMessageChannel.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinMessageChannel.dcu
new file mode 100644
index 0000000..4cc768d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinMessageChannel.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinMessageServer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinMessageServer.dcu
new file mode 100644
index 0000000..5006b0d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROWinMessageServer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXDOM_2_3.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXDOM_2_3.dcu
new file mode 100644
index 0000000..2b24a46
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXDOM_2_3.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXMLIntf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXMLIntf.dcu
new file mode 100644
index 0000000..3bd1f16
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXMLIntf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXMLSerializer.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXMLSerializer.dcu
new file mode 100644
index 0000000..adbdfdd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXMLSerializer.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXmlRpcMessage.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXmlRpcMessage.dcu
new file mode 100644
index 0000000..3c5e045
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROXmlRpcMessage.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZLib.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZLib.dcu
new file mode 100644
index 0000000..bf23b9b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZLib.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConf.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConf.dcu
new file mode 100644
index 0000000..b0affae
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConf.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfHub.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfHub.dcu
new file mode 100644
index 0000000..2179909
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfHub.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfHubSynapse.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfHubSynapse.dcu
new file mode 100644
index 0000000..a678900
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfHubSynapse.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfStreamWorker.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfStreamWorker.dcu
new file mode 100644
index 0000000..4886601
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROZeroConfStreamWorker.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROmDNS.dcu b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROmDNS.dcu
new file mode 100644
index 0000000..88590c7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D11/uROmDNS.dcu differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_BPDX_D12.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_BPDX_D12.bpl
new file mode 100644
index 0000000..4af65b6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_BPDX_D12.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_BPDX_D12.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_BPDX_D12.dcp
new file mode 100644
index 0000000..7c5db67
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_BPDX_D12.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Core_D12.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Core_D12.bpl
new file mode 100644
index 0000000..2b930cf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Core_D12.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Core_D12.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Core_D12.dcp
new file mode 100644
index 0000000..d02a4ff
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Core_D12.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_DataSnap_D12.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_DataSnap_D12.bpl
new file mode 100644
index 0000000..5e445cd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_DataSnap_D12.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_DataSnap_D12.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_DataSnap_D12.dcp
new file mode 100644
index 0000000..a804df7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_DataSnap_D12.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_IDE_D12.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_IDE_D12.bpl
new file mode 100644
index 0000000..eac88c1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_IDE_D12.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_IDE_D12.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_IDE_D12.dcp
new file mode 100644
index 0000000..4cea735
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_IDE_D12.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Indy_D12.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Indy_D12.bpl
new file mode 100644
index 0000000..3f973e7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Indy_D12.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Indy_D12.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Indy_D12.dcp
new file mode 100644
index 0000000..046ccd2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Indy_D12.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_RODX_D12.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_RODX_D12.bpl
new file mode 100644
index 0000000..3c74696
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_RODX_D12.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_RODX_D12.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_RODX_D12.dcp
new file mode 100644
index 0000000..92de0d6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_RODX_D12.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Synapse_D12.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Synapse_D12.bpl
new file mode 100644
index 0000000..c2e7bbd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Synapse_D12.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Synapse_D12.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Synapse_D12.dcp
new file mode 100644
index 0000000..cf95aaa
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_Synapse_D12.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_WebBroker_D12.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_WebBroker_D12.bpl
new file mode 100644
index 0000000..b77537a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_WebBroker_D12.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_WebBroker_D12.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_WebBroker_D12.dcp
new file mode 100644
index 0000000..bf3873f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D12/RemObjects_WebBroker_D12.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_BPDX_D14.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_BPDX_D14.bpl
new file mode 100644
index 0000000..dd30017
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_BPDX_D14.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_BPDX_D14.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_BPDX_D14.dcp
new file mode 100644
index 0000000..92d2054
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_BPDX_D14.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Core_D14.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Core_D14.bpl
new file mode 100644
index 0000000..cb46a53
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Core_D14.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Core_D14.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Core_D14.dcp
new file mode 100644
index 0000000..3054181
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Core_D14.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_DataSnap_D14.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_DataSnap_D14.bpl
new file mode 100644
index 0000000..cc2839a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_DataSnap_D14.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_DataSnap_D14.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_DataSnap_D14.dcp
new file mode 100644
index 0000000..9be477b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_DataSnap_D14.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_IDE_D14.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_IDE_D14.bpl
new file mode 100644
index 0000000..add1805
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_IDE_D14.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_IDE_D14.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_IDE_D14.dcp
new file mode 100644
index 0000000..423b50d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_IDE_D14.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Indy_D14.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Indy_D14.bpl
new file mode 100644
index 0000000..f68e49d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Indy_D14.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Indy_D14.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Indy_D14.dcp
new file mode 100644
index 0000000..6cb9e3d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Indy_D14.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_RODX_D14.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_RODX_D14.bpl
new file mode 100644
index 0000000..3653983
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_RODX_D14.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_RODX_D14.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_RODX_D14.dcp
new file mode 100644
index 0000000..ab1d90f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_RODX_D14.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Synapse_D14.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Synapse_D14.bpl
new file mode 100644
index 0000000..2d3f8dd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Synapse_D14.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Synapse_D14.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Synapse_D14.dcp
new file mode 100644
index 0000000..cb0c850
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_Synapse_D14.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_WebBroker_D14.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_WebBroker_D14.bpl
new file mode 100644
index 0000000..389efbc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_WebBroker_D14.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_WebBroker_D14.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_WebBroker_D14.dcp
new file mode 100644
index 0000000..b567658
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D14/RemObjects_WebBroker_D14.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_BPDX_D7.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_BPDX_D7.bpl
new file mode 100644
index 0000000..fffd1c8
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_BPDX_D7.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_BPDX_D7.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_BPDX_D7.dcp
new file mode 100644
index 0000000..45c5233
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_BPDX_D7.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Core_D7.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Core_D7.bpl
new file mode 100644
index 0000000..e9c5189
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Core_D7.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Core_D7.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Core_D7.dcp
new file mode 100644
index 0000000..2df54fd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Core_D7.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_DataSnap_D7.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_DataSnap_D7.bpl
new file mode 100644
index 0000000..b069df3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_DataSnap_D7.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_DataSnap_D7.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_DataSnap_D7.dcp
new file mode 100644
index 0000000..62209a7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_DataSnap_D7.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_IDE_D7.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_IDE_D7.bpl
new file mode 100644
index 0000000..dacb554
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_IDE_D7.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_IDE_D7.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_IDE_D7.dcp
new file mode 100644
index 0000000..c602c27
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_IDE_D7.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Indy_D7.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Indy_D7.bpl
new file mode 100644
index 0000000..56588c7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Indy_D7.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Indy_D7.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Indy_D7.dcp
new file mode 100644
index 0000000..06d7a1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Indy_D7.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_RODX_D7.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_RODX_D7.bpl
new file mode 100644
index 0000000..78a44f3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_RODX_D7.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_RODX_D7.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_RODX_D7.dcp
new file mode 100644
index 0000000..372093c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_RODX_D7.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Synapse_D7.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Synapse_D7.bpl
new file mode 100644
index 0000000..84add88
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Synapse_D7.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Synapse_D7.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Synapse_D7.dcp
new file mode 100644
index 0000000..e3f641e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_Synapse_D7.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_WebBroker_D7.bpl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_WebBroker_D7.bpl
new file mode 100644
index 0000000..9a01b5b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_WebBroker_D7.bpl differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_WebBroker_D7.dcp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_WebBroker_D7.dcp
new file mode 100644
index 0000000..073b3b3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Dcu/D7/RemObjects_WebBroker_D7.dcp differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/changelog.png b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/changelog.png
new file mode 100644
index 0000000..0e19bbc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/changelog.png differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/iphone-xcode.png b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/iphone-xcode.png
new file mode 100644
index 0000000..9b8f26c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/iphone-xcode.png differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/rodelphi.png b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/rodelphi.png
new file mode 100644
index 0000000..c05e13c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/rodelphi.png differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/wiki.png b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/wiki.png
new file mode 100644
index 0000000..a626fe1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Help/wiki.png differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Launch.exe b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Launch.exe
new file mode 100644
index 0000000..4b346d2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Launch.exe differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/License.txt b/internal/6.0.43.801/1/RemObjects SDK for Delphi/License.txt
new file mode 100644
index 0000000..9b07198
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/License.txt	
@@ -0,0 +1,85 @@
+*** REMOBJECTS SOFTWARE END USER LICENSE AGREEMENT ***
+
+Updated January 8, 2009
+
+IMPORTANT: PLEASE READ THIS DOCUMENT CAREFULLY AND IN ITS ENTIRETY BEFORE USING ANY SOFTWARE PRODUCT ACQUIRED FROM REMOBJECTS SOFTWARE.
+
+This document constitutes a LEGAL AGREEMENT between you, the End User (either an individual or an entity), and RemObjects Software, LLC.
+
+
+1. SCOPE
+
+This End User License Agreement ("EULA") covers all SOFTWARE PRODUCTS produced and sold by RemObjects Software, LLC. The sections of this EULA that contain information that pertain specifically to a certain product are properly marked as such.
+
+SOFTWARE PRODUCTS covered this EULA:
+
+* RemObjects AnyDAC
+* RemObjects Data Abstract 
+* RemObjects DebugServer
+* RemObjects Developer Studio
+* RemObjects Everwood
+* RemObjects Internet Pack 
+* RemObjects Hydra
+* RemObjects Oxygene
+* RemObjects Pascal Script
+* RemObjects SDK 
+
+
+2. DEFINITIONS
+
+SOFTWARE PRODUCTS: refers to one or more product as made available as a unified installation package.
+
+(LIBRARY) SOURCE CODE: refers to the source code shipped with any of the SOFTWARE PRODUCTS licensed to you, the End User, in the �Source� folder of the product installation. 
+
+TOOLS: refers to ANY of the applications deployed with the SOFTWARE PRODUCTS in executable form, whether as auxiliary helper programs of a Library product or as main product. This includes but is not limited to any .EXE files and IDE integration.
+
+SAMPLE CODE: sample code is provided to you as part of the SOFTWARE PRODUCT license inside the �Samples� folder
+
+EXECUTABLE FORMAT refers to executable files such as .EXE and .DLL files build from your own source code, linking in code provided as part of the LIBRARY SOURCE CODE. It does not encompass Delphi .DCU or .BPL/.DCP files or any other format that would allow a third party to the provided file as a replacement for the LIBRARY SOURCE CODE
+
+
+3. COPYRIGHT
+
+This SOFTWARE PRODUCT is owned by RemObjects Software, LLC and is protected by copyright laws and international copyright treaties. 
+
+All copyrights of this SOFTWARE PRODUCT, including but not limited to any source code, tools, documentation, images, text, and samples incorporated into the SOFTWARE PRODUCT, as well as those provided via Support Services or any of the RemObjects websites, are proprietary products of RemObjects Software, LLC and are protected by copyright law. You acquire only the right to use the SOFTWARE PRODUCT and do not acquire any rights of ownership. You acknowledge that the SOFTWARE PRODUCT and its source code remains a confidential trade secret of RemObjects Software, LLC. RemObjects Software, LLC may have trademarks, copyrights, patents or other intellectual property rights covering the SOFTWARE PRODUCT. You are not granted any license to these patents, trademarks, copyrights, or other intellectual property rights except as expressly provided herein. RemObjects Software, LLC reserves all rights not expressly granted.
+
+All names and logos of the SOFTWARE PRODUCTS defined in the SCOPE section of this EULA are trademarks or registered trademarks of RemObjects Software, LLC. These names and logos may only be used by the End User when referring to RemObjects Software, LLC or any of its products. These names and logos may not be used by the End User for branding or marketing purposes, without written consent from RemObjects Software, LLC.
+
+
+2.  GRANT OF LICENSE
+
+BY INSTALLING, COPYING, OR OTHERWISE USING THE SOFTWARE PRODUCT, YOU AGREE TO BE BOUND BY ALL OF THE TERMS AND CONDITIONS OF THIS END USER LICENSE AGREEMENT. IF YOU DO NOT AGREE TO THE TERMS OF THIS AGREEMENT, YOU ARE NOT PERMITTED TO INSTALL, COPY, OR USE THE SOFTWARE PRODUCT. IF YOU REJECT THE TERMS OF THIS AGREEMENT WITHIN THIRTY (30) DAYS AFTER PURCHASING THE SOFTWARE PRODUCT, YOU MAY SEND AN EMAIL TO sales@remobjects.com AND REQUEST A FULL REFUND OF THE PURCHASE PRICE.  IN ORDER TO RECEIVE THE REFUND, YOU MUST IRREVOCABLY UNINSTALL AND/OR DELETE ANY AND ALL COPIES OF THE SOFTWARE PRODUCT(S) YOU HAVE PURCHASED, AND PROVIDE CERTIFICATION OF SUCH TO REMOBJECTS.
+You may make one copy of the SOFTWARE PRODUCT solely for backup or archival purposes or transfer the SOFTWARE PRODUCT to a single hard disk provided you keep the original solely for backup or archival purposes. 
+
+You may install the software on up to five computers, providing you are the only person using the software on these computers.
+
+You may not alter any of the programs or accompanying files without written permission from RemObjects Software, LLC. Any resale or commercial distribution of the SOFTWARE PRODUCT is strictly prohibited, unless RemObjects Software, LLC has given explicit written permission.
+
+You are not obtaining title to the SOFTWARE PRODUCT or any copyrights. You may not sublicense, rent, lease, convey, modify, translate, convert to another programming language, decompile, or disassemble the SOFTWARE PRODUCT for any purpose. RemObjects Software, LLC grants you as an individual, a personal, non exclusive license to install and use the SOFTWARE PRODUCT for the sole purpose of developing systems that are not in competition with the SOFTWARE PRODUCT, or any other products developed and sold by RemObjects Software, LLC. 
+
+If you are an entity, RemObjects Software, LLC grants you the right to designate one individual within your organization to have the right to use the SOFTWARE PRODUCT in the manner described above.
+The named License you acquired is not transferrable to another individual or entity, unless you are given written permission by RemObjects Software, LLC.
+
+You may link against the LIBRARY SOURCE CODE and deploy it in EXECUTABLE FORMAT as part of your application; you may make changes to the LIBRARY SOURCE CODE and write extensions for your own use, and link against and deploy your changes in EXECUTABLE FORMAT. You may NOT deploy RemObjects Software�s source code to anyone.
+SAMPLE CODE for provided for your convenience and you may use it at your discretion. You may create your own products starting from the samples provided and consider this derived work as your own. You may also deploy such derived work in any way you see fit, including in source code form.
+
+Unless specifically stated on a per-tool basis, you may not deploy the TOOLS included with the SOFTWARE PRODUCT to anyone, neither standalone or as part of your own application; the tools are intended solely for use by yourself.
+In general, you may not distribute any part of the installed product, nor any license codes, license files or your website login to third parties. 
+
+
+3. SUPPORT SERVICES
+
+RemObjects Software, LLC may provide the End User with Support Services related to the SOFTWARE PRODUCT. Support Services include free downloading of upgrades as covered by the original purchase, as well as technical support offered via NNTP-based newsgroups, e-mail or telephone. Use of Support Services is governed by RemObjects Software policies and programs described on the RemObjects website (www.remobjects.com/support) and may be subject to additional support charges depending on the type and level of support provided. Any supplemental software code provided to you as part of the Support Services shall be considered part of the SOFTWARE PRODUCT and is subject to the terms and conditions of this EULA.
+
+
+4. TERMINATION
+
+This License shall remain in effect only for so long as you are in compliance with the terms and conditions of this EULA. This License will terminate if you fail to comply with any of its terms or conditions. You may terminate it at any time by destroying your copies of the SOFTWARE PRODUCT. You agree, upon termination, to destroy all copies of the Product. Without prejudice to any other rights, RemObjects Software, LLC may terminate this EULA if you fail to comply with the terms. The provisions of this EULA that protect the proprietary rights of RemObjects Software, LLC and the LIMITATIONS OF WARRANTIES will continue to be in force even after any termination. Upon termination, RemObjects Software, LLC may also enforce any rights provided by law.
+
+
+5. LIMITATIONS OF WARRANTIES AND LIABILITY
+
+THIS SOFTWARE PRODUCT IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTIES OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE APPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE PRODUCT AND ALL OTHER RISK ARISING FROMTHE USE OR PERFORMANCE OF THIS SOFTWARE PRODUCT AND DOCUMENTATION. 
+
+RemObjects Software, LLC SHALL NOT BE LIABLE FOR ANY DAMAGES WHATSOEVER ARISING FROM USE OF OR INABILITY TO USE THIS SOFTWARE PRODUCT, EVEN IF RemObjects Software, LLC HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE LAW, IN NO EVENT SHALL RemObjects Software, LLC BE LIABLE FOR ANY CONSEQUENTIAL, INCIDENTAL, DIRECT, INDIRECT, SPECIAL, PUNITIVE, OR OTHER DAMAGES WHATSOEVER, INCLUDING BUT NOT LIMITED TO DAMAGES OR LOSS OF BUSINESS PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR OTHER PECUNIARY LOSS, EVEN IF RemObjects Software, LLC HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. BECAUSE SOME STATES/JURISDICTIONS DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE ABOVE LIMITATION MAY NOT APPLY.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/README.html b/internal/6.0.43.801/1/RemObjects SDK for Delphi/README.html
new file mode 100644
index 0000000..b3d6516
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/README.html	
@@ -0,0 +1,347 @@
+<!-- This page was automatically created by a TRIAL VERSION of elitedevelopments preHTML. for more information, see http://www.prehtml.com -->
+<html>
+<head>
+<title>RemObjects SDK - README - RemObjects Software</title>
+<meta name="description" content="Place site description here." />
+<meta name="keywords" content="Place site keywords here." />
+<meta name="date" content="2009-11-27T13:45:37-01:00" />
+<meta name="robots" content="all" />
+<meta http-equiv="content-type" content="text/html" />
+<meta name="language" content="English, en" />
+<meta name="generator" content="elitedevelopments preHTML 1.1.1.171 [http://www.prehtml.com]" />
+<style type="text/css">
+body, table, tr, td
+{
+margin: 15px;
+font-family: Segoe UI, Lucida Grande, Helvetica, Verdana, sans-serif;
+font-size: 10.5pt;
+background-color: #f7f7f7;
+}
+p { margin-bottom: 0.75em; margin-top: 0; }
+p.h1, p.h2, p.h3
+{
+margin-top: 1em;
+margin-bottom: 0;
+padding-bottom: 0;
+color:  #202080;
+}
+p.h1
+{
+border-top: 1px solid #c0c0c0;
+font-weight: normal;
+color:  #202080;
+margin-top: 0.2em;
+padding-top: 1em;
+}
+.h1 { font-size: 15pt; }
+.h2 { font-size: 12pt; }
+.h3 { font-size: 10pt; }
+a, a:visited { text-decoration: underline; color: #808080; }
+a:hover { text-decoration: none; }
+ul, ol { margin-top: 0; margin-bottom: 0.75em; }
+pre { margin: 0 }
+.spaced
+{
+letter-spacing: 1px;
+color: #000060;
+}
+table
+{
+margin: 0;
+padding: 0;
+}
+.column1, .column2
+{
+border-top: 1px solid #c0c0c0;
+padding-top: 10px;
+width: 50%;
+vertical-align: top;
+}
+.column1
+{
+padding-right: 10;
+}
+.column2
+{
+float: right;
+border-left: 1px solid #c0c0c0;
+padding-left: 15px;
+}
+.column1 p, .column2 p
+{
+margin-top: 0;
+}
+.column1 img, .column2 img
+{
+padding-left: 10px;
+}
+.clear
+{
+margin-top: 50px;
+margin-bottom: 10px;
+clear: both;
+}
+.box p
+{
+margin-top: 5px;
+}
+.sig
+{
+border-top: 1px solid #c0c0c0;
+padding-top: 5px;
+margin-top: 25px;
+}
+.links
+{
+margin-top: 50px;
+border-top: 1px solid #e0e0e0;
+padding-top: 3px;
+text-align: center;
+color: #c0c0c0;
+font-size: 9pt;
+}
+.links a
+{
+text-decoration: none;
+color: #404040;
+margin-left: 10px;
+margin-right: 10px;
+}
+</style>
+</head>
+<body>
+<img src="Help/rodelphi.png" />
+<p class="h1">
+Thank You for Your Interest in our Products and for Choosing <b>RemObjects SDK</b> for <b>Delphi</b>.
+</p>
+<p>
+Our goal with RemObjects SDK (or &ldquo;RO&rdquo; as we call it for short) is to provide you with a powerful and
+flexible framework to build your application solutions upon.
+</p>
+<p>
+RemObjects SDK is not standing still. We will continue to improve the product over time and these improvements
+will be available to you as part of your subscription. To ensure continued access to the latest release and to
+stay up to date with the most recent fixes and new features, please make sure that your subscription stays active.
+</p>
+<p>
+Please check <a href="http://www.remobjects.com">our website</a> regularly, to keep your product up to date with the latest additions.
+</p>
+<table cellpadding="0" cellspacing="0">
+<tr>
+<td class="column1">
+<img src="Help/changelog.png" align="right"/>
+<p class="h2">
+Find Out What's New
+</p>
+<p>
+The Winter 2009 release of
+RemObjects SDK
+continues to focus mainly on quality and bugfixing, but also contain a few new features and enhancements.
+Check out our <a href="http://remobjects.com/whatsnew">What's New</a> page for a detailed overview look of all what's new.
+Or visit the <a href="http://remobjects.com/changelogs">Change Logs</a> to get a more detailed list
+of all changes, including features, minor enhanceents and bug-fixes.
+</p>
+<img src="Help/wiki.png" align="right"/>
+<p class="h2">
+Delve into the Documentation
+</p>
+<p>
+Our documentation wiki at <a href="http://wiki.remobjects.com/wiki/RemObjects SDK_for_Delphi">wiki.remobjects.com</a> also
+continues to be a rich and growing source of information, providing introductory texts about different concepts in
+RemObjects SDK, articles and how-tos, as well as thorough class reference help.
+</p>
+<p>
+The Wiki is community driven, allowing you and all other RemObjects SDK customers to participate and contribute content, as well.
+</p>
+</td>
+<td class="column2">
+<p class="h2" style="clear: both;">
+<span style="color: red">New</span>: Build Native Mac and iPhone apps with <nobr><b>RemObjects SDK</b> for <b>OS X</b></nobr>
+</p>
+<p>
+The RemObjects SDK product family is growing, as we're adding a third fully native edition to the product suite, designed specifically
+for building native client applications for Macintosh computers and iPhone and iPod touch devices using Cocoa and Xcode.
+</p>
+<img src="Help/iphone-xcode.png" align="right"/>
+<p>
+Leverage your existing investment into RemObjects SDK by exposing your existing servers to new clients written for these two exciting
+platforms, for example to deliver a first-class mobile front-end for your RO based enterprise application.
+</p>
+<p>
+<b>RemObjects SDK</b> for <nobr><b>OS X</b></nobr> is shipping now, as is its big brother <i>Data Abstract for <nobr>OS X</nobr></i>.
+Please check our <a href="http://shop.remobjects.com">Shop</a> for purchasing options, or contact our
+<a href="mailto:sales@remobjects.com">sales team</a> if you have any further questions.
+</p>
+</td>
+</tr>
+</table>
+<div class="clear"></div>
+<p class="h1">Some More Technical Information</p>
+<p>
+The remainder of the README provides some more general information and a few guidelines that you should
+follow in order to install and get started with RemObjects SDK.
+</p>
+<div class="box" style="border: 1px solid #808080; background-color: #e8e8e8; padding-left:5px; padding-right:5px;">
+<p class="h2">Software Requirements</p>
+<p>
+<b>RemObjects SDK</b> for <b>Delphi</b> supports versions 7, 2007, 2009 and 2010 of Delphi, for 32-bit Windows Development.
+Support is also provided for current releases of Free Pascal 2.2 and later, for both 32-bit and 64-bit Windows and Linux development.
+</p>
+<p>
+The Fall 2009 release drops precompiled support for Delphi 6 and Delphi 2006, although package source files are still provided, if
+you need to manually install RemObjects SDK in these versions of Delphi. These two versions are no longer officially supported.
+</p>
+<p>
+While Delphi 7 is still officially supported, we strognly recommend our customers to move to Delphi 2007 or later.
+</p>
+<p class="h2"><b>TRIAL</b> Version Requirements</p>
+<p>
+The following requirements must be met for the trial version:
+</p>
+<ul>
+<li><b>Delphi 2010</B>: No Update Pack required.</li>
+<li><b>Delphi 2009</B>: Update Pack 1 is not essential, but strongly recommended.</li>
+<li><b>Delphi 2007</B>: Update Pack 3 is required.</li>
+<li><b>Delphi 7</B>: No Update Pack required.</li>
+</ul>
+<p>
+Using Indy-based components with the TRIAL edition requires the original version of Indy that was installed with your edition of Delphi.
+If you have upgraded to a different Indy version, there should still be enough alternative channels for you to evaluate RemObjects SDK
+without relying on Indy.
+</p>
+<p>
+<b>Please note</b> that these requirements are for the TRIAL version only. Since the retail version comes with full source code,
+you can easily rebuild it to match the version of Delphi that you are using. Simply open the
+BuildPackages_Dx.bpg project group and do a 'Build All Projects'.</p>
+</div>
+<p class="h2">Component Installation</p>
+<p>
+RemObjects SDK comes as several individual packages, provided in precompiled versions for Delphi 7, 2007, 2009 and 2010.
+Setup will install automatically install these packages with the supported IDEs</p>
+<p>
+The Indy packages are built to work with the default versions of Indy that come with
+Delphi 7 (Indy 9), 2007 (Indy 10) or 2009 and 2010 (Indy 10.2.3). If you have a custom version,
+then the RemObjects SDK Indy package will most likely fail to load when yoiu first start the Delphi IDE.
+</p>
+<p>
+If this is the case you will need to adjust the RemObjects.inc file as described below, and then rebuild the RemObjects_Indy
+package manually to match your specific version. You can accomplish this by opening the RemObjects_Indy_D7.dpk (or D10-D14) in
+the IDE and then building and installing it.
+</p>
+<p>
+Alternatively, you can of course choose to not load the RemObjects SDK Indy components, and instead rely on the other channels we provide.
+</p>
+<p class="h2">Free Pascal (FPC)</p>
+<p>
+The current release of RemObjects SDK for Delphi provides library support for Free Pascal 2.2.2 and above, allowing you to rebuild your
+projects for the Win32 (x86), Win64 (x64), Linux (x86 and x64) platforms. Compilation against other platforms provided by FPC might be possible,
+but is not currently supported; however, we are interested in your feedback if you do try to build against other platforms.
+</p>
+<p>
+Official support for other platforms, as well as support for the Lazarus IDE, is under review for future releases.
+</p>
+<p>
+The minimum version of FPC required is Free Pascal 2.2.2 or newer (which can be downloaded <a href="http://www.freepascal.org/download.var#beta">here</a>).
+Please note that we explicitly do <i>not</i> support the 2.0.x release, as it is missing crucial functionality.
+</p>
+<p>
+More information about Free Pascal can be found on the FPC homepage at <a href="http://www.freepascal.org">http://www.freepascal.org</a>.
+</p>
+<p class="h2">Limitations of Free Pascal Support</p>
+<p>
+Not all client and server channels provided with RemObjects SDK are supported for Free Pascal or for all four platforms available through
+Free Pascal.
+</p>
+<ul>
+<li>
+For obvious reasons, the WinINet HTTP Channel is not supported for Linux but will function under the Win32 and Win64 targets; the same
+holds true for the Named Pipe client and server channels.
+</li>
+<li>
+Indy support for FPC is experimental, and as such the Indy based channels are only experimentally supported for FPC.
+</li>
+<li>
+Support for FPC requires full source, and so is not available in the TRIAL version of RemObjects SDK.
+</li>
+</ul>
+<div class="box" style="border: 1px solid #800000; background-color: #ffe8e8; padding-left:5px; padding-right:5px;">
+<p class="h2">License File</p>
+<p>
+To avoid piracy and abuse, the RemObjects SDK install contains a time-limited license for tools auch as Schema Modeler and Service Builder, as
+well as the pre-compiled component libraries. This license file will expire after 30 days of use.
+</p>
+<p>
+You will be prompted about this trial period and offered an option to download your personal license file when you start the tools
+for the first time, or when you build your application using RemObjects SDK
+components. You can
+choose to either download your own license file right away, or keep working with the trial license until such a time
+when the download is more convenient for you. Alternatively, it's possible to download it directly
+from <a href="http://my.remobjects.com">my.remobjects.com</a>.
+</p>
+<p>
+<b>Please note</b> that applications built with the trial license will be marked as such and display the trial notification
+dialog on startup. Download your personal license when prompted, in order to build your applications without this limitation.
+</p>
+</div>
+<p class="h2">Sample Projects</p>
+<p>
+A number of sample projects are included in the <i>RemObjects Samples</i> folder of your Shared Documents folder.
+A detailed introduction to the available samples can be found in the <a href="http://wiki.remobjects.com/wiki/RemObjects_SDK_for_Delphi_Samples">wiki</a>.
+</p>
+<p>
+After the first start of your development IDE, the <a href="http://wiki.remobjects.com/wiki/Welcome_Page">Welcome Page</a>
+for RemObjects SDK will be presented, giving you the option to directly open any of the sample client applications.
+The matching server application comes pre-compiled with RemObjects SDK for Delphi and can be launched from the Start Menu.
+</p>
+<p>
+<b>Please Note:</b> Samples have been moved from underneath the product install to the Shared Documents folder, to make them more
+easily usable on Windows Vista and Windows 7, where the Program Files folder is read-only during normal operation.
+</p>
+<p class="h2">Support</p>
+<p>
+Support for RemObjects SDK is available via our newsgroups at
+<a href="news://news.remobjects.com/remobjects.public.sdk.delphi">remobjects.public.sdk.delphi</a>.
+</p>
+<p>
+You can use these newsgroups to report any problems or suggestions you might have in regards to RemObjects SDK, you can communicate
+with fellow RemObjects SDK users and exchange ideas and solutions. More information about our support offerings, including the
+Premium Support subscription, can be found at <a href="http://www.remobjects.com/support">remobjects.com/support</a>.
+</p>
+<div class="box" style="border: #000080 1px solid; padding-right: 5px; border-top: #000080 1px solid; padding-left: 5px; background-color: #e8e8ff">
+<p class="h2">
+Known Issues in this Release of RemObjects SDK
+</p>
+<p>
+While we try our best to get all known issues fixed and addressed for each build, sometimes less important issues need to be
+deferred for later releases in favor of getting a version released at all (perfect is the enemy of shipping, after all).
+Please check our <a href="http://remobjects.com/knownissues">list of known issues</a> for any crucial known problems with
+the current release.
+</p>
+</div>
+<div class="clear"></div>
+<p class="h2">Thank You</p>
+<p>
+Let us thank you again for choosing RemObjects SDK. We are confident that you
+will find it to be a worthwhile addition to your development toolset.
+</p>
+<p>
+Should you, at any time, encounter a problem or need assistance using RemObjects SDK, please feel free to ask on the newsgroups
+or contact us directly via email at <a href="mailto:support@remobjects.com">support@remobjects.com</a>.
+</p>
+<div class="sig" >
+<p>Best Regards,
+<br />
+The RemObjects Team
+<br />
+<a href="http://www.remobjects.com">http://www.remobjects.com</a></p>
+</div>
+<div class="links">
+<a href="http://remobjects.com">remobjects.com</a> &mdash;
+<a href="http://remobjects.com/whatsnew">What's New</a> &mdash;
+<a href="http://remobjects.com/changelogs">Change Logs</a> &mdash;
+<a href="http://remobjects.com/knownissues">Known Issues</a> &mdash;
+<a href="http://remobjects.com/support">Support</a> &mdash;
+<a href="http://wiki.remobjects.com">wiki.remobjects.com</a>
+</div>
+</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Samples.lnk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Samples.lnk
new file mode 100644
index 0000000..747bac1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Samples.lnk differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D10.bdsgroup b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D10.bdsgroup
new file mode 100644
index 0000000..8ac831f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D10.bdsgroup	
@@ -0,0 +1,41 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Default.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{CDD70F62-05F7-4112-A8A7-9904A7180AAE}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Default.Personality>
+    <Projects>
+      <Projects Name="RemObjects_Core_D10.bpl">RemObjects_Core_D10.bdsproj</Projects>
+      <Projects Name="RemObjects_IDE_D10.bpl">IDE\RemObjects_IDE_D10.bdsproj</Projects>
+      <Projects Name="RemObjects_WebBroker_D10.bpl">RemObjects_WebBroker_D10.bdsproj</Projects>
+      <Projects Name="RemObjects_Indy_D10.bpl">RemObjects_Indy_D10.bdsproj</Projects>
+      <Projects Name="RemObjects_RODX_D10.bpl">RODX\RemObjects_RODX_D10.bdsproj</Projects>
+      <Projects Name="RemObjects_BPDX_D10.bpl">RemObjects_BPDX_D10.bdsproj</Projects>
+      <Projects Name="RemObjects_DataSnap_D10.bpl">DataSnap\RemObjects_DataSnap_D10.bdsproj</Projects>
+      <Projects Name="RemObjects_Synapse_D10.bpl">RemObjects_Synapse_D10.bdsproj</Projects>
+      <Projects Name="Targets">RemObjects_Core_D10.bpl RemObjects_IDE_D10.bpl RemObjects_WebBroker_D10.bpl RemObjects_Indy_D10.bpl RemObjects_RODX_D10.bpl RemObjects_BPDX_D10.bpl RemObjects_DataSnap_D10.bpl RemObjects_Synapse_D10.bpl</Projects>
+    </Projects>
+    <Dependencies>
+      <Dependency GUID="{ED80B945-1838-48EB-9D77-FD634984C25F}">
+        <Dependency GUID="{99EA5527-0200-455E-815C-646FF77F0ACD}"/>
+      </Dependency>
+      <Dependency GUID="{9661820C-D398-4219-806E-11B42219A50F}">
+        <Dependency GUID="{99EA5527-0200-455E-815C-646FF77F0ACD}"/>
+      </Dependency>
+      <Dependency GUID="{C7097D35-5E65-41AB-A425-381DD819B555}">
+        <Dependency GUID="{99EA5527-0200-455E-815C-646FF77F0ACD}"/>
+      </Dependency>
+      <Dependency GUID="{ADCC1E83-6977-48E1-B7B7-21A9890C8C6F}">
+        <Dependency GUID="{0FE2BA34-A199-4666-87ED-E47A2B9D252C}"/>
+      </Dependency>
+      <Dependency GUID="{34B49BD5-2A10-4E93-8208-7657BD895C31}">
+        <Dependency GUID="{99EA5527-0200-455E-815C-646FF77F0ACD}"/>
+      </Dependency>
+    </Dependencies>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D11.groupproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D11.groupproj
new file mode 100644
index 0000000..9767849
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D11.groupproj	
@@ -0,0 +1,114 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{426d6bef-d93c-4c13-9e7c-fff76629872a}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="DataSnap\RemObjects_DataSnap_D11.dproj">
+      <Dependencies>RemObjects_Core_D11.dproj</Dependencies>
+    </Projects>
+    <Projects Include="IDE\RemObjects_IDE_D11.dproj">
+      <Dependencies>RemObjects_Core_D11.dproj</Dependencies>
+    </Projects>
+    <Projects Include="RemObjects_BPDX_D11.dproj">
+      <Dependencies>RODX\RemObjects_RODX_D11.dproj</Dependencies>
+    </Projects>
+    <Projects Include="RemObjects_Core_D11.dproj" />
+    <Projects Include="RemObjects_Indy_D11.dproj">
+      <Dependencies>RemObjects_Core_D11.dproj</Dependencies>
+    </Projects>
+    <Projects Include="RemObjects_Synapse_D11.dproj" />
+    <Projects Include="RemObjects_WebBroker_D11.dproj">
+      <Dependencies>RemObjects_Core_D11.dproj</Dependencies>
+    </Projects>
+    <Projects Include="RODX\RemObjects_RODX_D11.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="RemObjects_Core_D11">
+    <MSBuild Projects="RemObjects_Core_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="RemObjects_Core_D11:Clean">
+    <MSBuild Projects="RemObjects_Core_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemObjects_Core_D11:Make">
+    <MSBuild Projects="RemObjects_Core_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RemObjects_IDE_D11" DependsOnTargets="RemObjects_Core_D11">
+    <MSBuild Projects="IDE\RemObjects_IDE_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="RemObjects_IDE_D11:Clean" DependsOnTargets="RemObjects_Core_D11:Clean">
+    <MSBuild Projects="IDE\RemObjects_IDE_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemObjects_IDE_D11:Make" DependsOnTargets="RemObjects_Core_D11:Make">
+    <MSBuild Projects="IDE\RemObjects_IDE_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RemObjects_WebBroker_D11" DependsOnTargets="RemObjects_Core_D11">
+    <MSBuild Projects="RemObjects_WebBroker_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="RemObjects_WebBroker_D11:Clean" DependsOnTargets="RemObjects_Core_D11:Clean">
+    <MSBuild Projects="RemObjects_WebBroker_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemObjects_WebBroker_D11:Make" DependsOnTargets="RemObjects_Core_D11:Make">
+    <MSBuild Projects="RemObjects_WebBroker_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RemObjects_Indy_D11" DependsOnTargets="RemObjects_Core_D11">
+    <MSBuild Projects="RemObjects_Indy_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="RemObjects_Indy_D11:Clean" DependsOnTargets="RemObjects_Core_D11:Clean">
+    <MSBuild Projects="RemObjects_Indy_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemObjects_Indy_D11:Make" DependsOnTargets="RemObjects_Core_D11:Make">
+    <MSBuild Projects="RemObjects_Indy_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RemObjects_RODX_D11">
+    <MSBuild Projects="RODX\RemObjects_RODX_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="RemObjects_RODX_D11:Clean">
+    <MSBuild Projects="RODX\RemObjects_RODX_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemObjects_RODX_D11:Make">
+    <MSBuild Projects="RODX\RemObjects_RODX_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RemObjects_BPDX_D11" DependsOnTargets="RemObjects_RODX_D11">
+    <MSBuild Projects="RemObjects_BPDX_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="RemObjects_BPDX_D11:Clean" DependsOnTargets="RemObjects_RODX_D11:Clean">
+    <MSBuild Projects="RemObjects_BPDX_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemObjects_BPDX_D11:Make" DependsOnTargets="RemObjects_RODX_D11:Make">
+    <MSBuild Projects="RemObjects_BPDX_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RemObjects_DataSnap_D11" DependsOnTargets="RemObjects_Core_D11">
+    <MSBuild Projects="DataSnap\RemObjects_DataSnap_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="RemObjects_DataSnap_D11:Clean" DependsOnTargets="RemObjects_Core_D11:Clean">
+    <MSBuild Projects="DataSnap\RemObjects_DataSnap_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemObjects_DataSnap_D11:Make" DependsOnTargets="RemObjects_Core_D11:Make">
+    <MSBuild Projects="DataSnap\RemObjects_DataSnap_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RemObjects_Synapse_D11">
+    <MSBuild Projects="RemObjects_Synapse_D11.dproj" Targets="" />
+  </Target>
+  <Target Name="RemObjects_Synapse_D11:Clean">
+    <MSBuild Projects="RemObjects_Synapse_D11.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemObjects_Synapse_D11:Make">
+    <MSBuild Projects="RemObjects_Synapse_D11.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="RemObjects_Core_D11;RemObjects_IDE_D11;RemObjects_WebBroker_D11;RemObjects_Indy_D11;RemObjects_RODX_D11;RemObjects_BPDX_D11;RemObjects_DataSnap_D11;RemObjects_Synapse_D11" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="RemObjects_Core_D11:Clean;RemObjects_IDE_D11:Clean;RemObjects_WebBroker_D11:Clean;RemObjects_Indy_D11:Clean;RemObjects_RODX_D11:Clean;RemObjects_BPDX_D11:Clean;RemObjects_DataSnap_D11:Clean;RemObjects_Synapse_D11:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="RemObjects_Core_D11:Make;RemObjects_IDE_D11:Make;RemObjects_WebBroker_D11:Make;RemObjects_Indy_D11:Make;RemObjects_RODX_D11:Make;RemObjects_BPDX_D11:Make;RemObjects_DataSnap_D11:Make;RemObjects_Synapse_D11:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D12.groupproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D12.groupproj
new file mode 100644
index 0000000..89f93dd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D12.groupproj	
@@ -0,0 +1,130 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{426d6bef-d93c-4c13-9e7c-fff76629872a}</ProjectGuid>
+		</PropertyGroup>
+		<ItemGroup>
+			<Projects Include="RemObjects_Core_D12.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="IDE\RemObjects_IDE_D12.dproj">
+				<Dependencies>RemObjects_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="RemObjects_WebBroker_D12.dproj">
+				<Dependencies>RemObjects_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="RemObjects_Indy_D12.dproj">
+				<Dependencies>RemObjects_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="RODX\RemObjects_RODX_D12.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="RemObjects_BPDX_D12.dproj">
+				<Dependencies>RemObjects_Core_D12.dproj;RODX\RemObjects_RODX_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="DataSnap\RemObjects_DataSnap_D12.dproj">
+				<Dependencies>RemObjects_Core_D12.dproj</Dependencies>
+			</Projects>
+			<Projects Include="RemObjects_Synapse_D12.dproj">
+				<Dependencies>RemObjects_Core_D12.dproj</Dependencies>
+			</Projects>
+		</ItemGroup>
+		<ProjectExtensions>
+			<Borland.Personality>Default.Personality.12</Borland.Personality>
+			<Borland.ProjectType/>
+			<BorlandProject>
+				<BorlandProject>
+					<BorlandProject>
+						<BorlandProject>
+							<BorlandProject>
+								<BorlandProject>
+									<Default.Personality/>
+								</BorlandProject>
+							</BorlandProject>
+						</BorlandProject>
+					</BorlandProject>
+				</BorlandProject>
+			</BorlandProject>
+		</ProjectExtensions>
+		<Target Name="RemObjects_Core_D12">
+			<MSBuild Projects="RemObjects_Core_D12.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Core_D12:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_Core_D12.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Core_D12:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_Core_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12" Name="RemObjects_IDE_D12">
+			<MSBuild Projects="IDE\RemObjects_IDE_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Clean" Name="RemObjects_IDE_D12:Clean">
+			<MSBuild Targets="Clean" Projects="IDE\RemObjects_IDE_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Make" Name="RemObjects_IDE_D12:Make">
+			<MSBuild Targets="Make" Projects="IDE\RemObjects_IDE_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12" Name="RemObjects_WebBroker_D12">
+			<MSBuild Projects="RemObjects_WebBroker_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Clean" Name="RemObjects_WebBroker_D12:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_WebBroker_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Make" Name="RemObjects_WebBroker_D12:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_WebBroker_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12" Name="RemObjects_Indy_D12">
+			<MSBuild Projects="RemObjects_Indy_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Clean" Name="RemObjects_Indy_D12:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_Indy_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Make" Name="RemObjects_Indy_D12:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_Indy_D12.dproj"/>
+		</Target>
+		<Target Name="RemObjects_RODX_D12">
+			<MSBuild Projects="RODX\RemObjects_RODX_D12.dproj"/>
+		</Target>
+		<Target Name="RemObjects_RODX_D12:Clean">
+			<MSBuild Targets="Clean" Projects="RODX\RemObjects_RODX_D12.dproj"/>
+		</Target>
+		<Target Name="RemObjects_RODX_D12:Make">
+			<MSBuild Targets="Make" Projects="RODX\RemObjects_RODX_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12;RemObjects_RODX_D12" Name="RemObjects_BPDX_D12">
+			<MSBuild Projects="RemObjects_BPDX_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Clean;RemObjects_RODX_D12:Clean" Name="RemObjects_BPDX_D12:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_BPDX_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Make;RemObjects_RODX_D12:Make" Name="RemObjects_BPDX_D12:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_BPDX_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12" Name="RemObjects_DataSnap_D12">
+			<MSBuild Projects="DataSnap\RemObjects_DataSnap_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Clean" Name="RemObjects_DataSnap_D12:Clean">
+			<MSBuild Targets="Clean" Projects="DataSnap\RemObjects_DataSnap_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Make" Name="RemObjects_DataSnap_D12:Make">
+			<MSBuild Targets="Make" Projects="DataSnap\RemObjects_DataSnap_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12" Name="RemObjects_Synapse_D12">
+			<MSBuild Projects="RemObjects_Synapse_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Clean" Name="RemObjects_Synapse_D12:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_Synapse_D12.dproj"/>
+		</Target>
+		<Target DependsOnTargets="RemObjects_Core_D12:Make" Name="RemObjects_Synapse_D12:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_Synapse_D12.dproj"/>
+		</Target>
+		<Target Name="Build">
+			<CallTarget Targets="RemObjects_Core_D12;RemObjects_IDE_D12;RemObjects_WebBroker_D12;RemObjects_Indy_D12;RemObjects_RODX_D12;RemObjects_BPDX_D12;RemObjects_DataSnap_D12;RemObjects_Synapse_D12"/>
+		</Target>
+		<Target Name="Clean">
+			<CallTarget Targets="RemObjects_Core_D12:Clean;RemObjects_IDE_D12:Clean;RemObjects_WebBroker_D12:Clean;RemObjects_Indy_D12:Clean;RemObjects_RODX_D12:Clean;RemObjects_BPDX_D12:Clean;RemObjects_DataSnap_D12:Clean;RemObjects_Synapse_D12:Clean"/>
+		</Target>
+		<Target Name="Make">
+			<CallTarget Targets="RemObjects_Core_D12:Make;RemObjects_IDE_D12:Make;RemObjects_WebBroker_D12:Make;RemObjects_Indy_D12:Make;RemObjects_RODX_D12:Make;RemObjects_BPDX_D12:Make;RemObjects_DataSnap_D12:Make;RemObjects_Synapse_D12:Make"/>
+		</Target>
+		<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D5.bpg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D5.bpg
new file mode 100644
index 0000000..6f6cd66
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D5.bpg	
@@ -0,0 +1,41 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = RemObjects_Core_D5.bpl RemObjects_IDE_D5.bpl \
+  RemObjects_WebBroker_D5.bpl RemObjects_Indy_D5.bpl RemObjects_RODX_D5.bpl \
+  RemObjects_BPDX_D5.bpl RemObjects_Synapse_D5.bpl
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+RemObjects_Core_D5.bpl: RemObjects_Core_D5.dpk
+  $(DCC)
+
+RemObjects_IDE_D5.bpl: IDE\RemObjects_IDE_D5.dpk
+  $(DCC)
+
+RemObjects_Indy_D5.bpl: RemObjects_Indy_D5.dpk
+  $(DCC)
+
+RemObjects_BPDX_D5.bpl: RemObjects_BPDX_D5.dpk
+  $(DCC)
+
+RemObjects_RODX_D5.bpl: RODX\RemObjects_RODX_D5.dpk
+  $(DCC)
+
+RemObjects_Synapse_D7.bpl: RemObjects_Synapse_D7.dpk
+  $(DCC)
+
+RemObjects_WebBroker_D7.bpl: RemObjects_WebBroker_D7.dpk
+  $(DCC)
+
+
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D6.bpg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D6.bpg
new file mode 100644
index 0000000..119cb74
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D6.bpg	
@@ -0,0 +1,41 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = RemObjects_Core_D6.bpl RemObjects_IDE_D6.bpl \
+  RemObjects_WebBroker_D6.bpl RemObjects_Indy_D6.bpl RemObjects_RODX_D6.bpl \
+  RemObjects_BPDX_D6.bpl RemObjects_DataSnap_D6.bpl RemObjects_Synapse_D6.bpl
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+RemObjects_Core_D6.bpl: RemObjects_Core_D6.dpk
+  $(DCC)
+
+RemObjects_IDE_D6.bpl: IDE\RemObjects_IDE_D6.dpk
+  $(DCC)
+
+RemObjects_Indy_D6.bpl: RemObjects_Indy_D6.dpk
+  $(DCC)
+
+RemObjects_BPDX_D6.bpl: RemObjects_BPDX_D6.dpk
+  $(DCC)
+
+RemObjects_DataSnap_D6.bpl: DataSnap\RemObjects_DataSnap_D6.dpk
+  $(DCC)
+
+RemObjects_RODX_D6.bpl: rodx\RemObjects_RODX_D6.dpk
+  $(DCC)
+
+RemObjects_Synapse_D6.bpl: RemObjects_Synapse_D6.dpk
+  $(DCC)
+
+RemObjects_WebBroker_D6.bpl: RemObjects_WebBroker_D6.dpk
+  $(DCC)
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D7.bpg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D7.bpg
new file mode 100644
index 0000000..b1aed3d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_D7.bpg	
@@ -0,0 +1,43 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = RemObjects_Core_D7.bpl RemObjects_IDE_D7.bpl \
+  RemObjects_WebBroker_D7.bpl RemObjects_Indy_D7.bpl RemObjects_RODX_D7.bpl \
+  RemObjects_BPDX_D7.bpl RemObjects_DataSnap_D7.bpl RemObjects_Synapse_D7.bpl
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+RemObjects_Core_D7.bpl: RemObjects_Core_D7.dpk
+  $(DCC)
+
+RemObjects_IDE_D7.bpl: IDE\RemObjects_IDE_D7.dpk
+  $(DCC)
+
+RemObjects_Indy_D7.bpl: RemObjects_Indy_D7.dpk
+  $(DCC)
+
+RemObjects_BPDX_D7.bpl: RemObjects_BPDX_D7.dpk
+  $(DCC)
+
+RemObjects_DataSnap_D7.bpl: DataSnap\RemObjects_DataSnap_D7.dpk
+  $(DCC)
+
+RemObjects_RODX_D7.bpl: rodx\RemObjects_RODX_D7.dpk
+  $(DCC)
+
+RemObjects_Synapse_D7.bpl: RemObjects_Synapse_D7.dpk
+  $(DCC)
+
+RemObjects_WebBroker_D7.bpl: RemObjects_WebBroker_D7.dpk
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_d14.groupproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_d14.groupproj
new file mode 100644
index 0000000..7feee48
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/BuildPackages_d14.groupproj	
@@ -0,0 +1,120 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{36A3BEFE-3A2A-4D8C-97B3-A5373FDAF11E}</ProjectGuid>
+		</PropertyGroup>
+		<ItemGroup>
+			<Projects Include="RemObjects_Core_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="IDE\RemObjects_IDE_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="DataSnap\RemObjects_DataSnap_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="RODX\RemObjects_RODX_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="RemObjects_BPDX_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="RemObjects_Indy_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="RemObjects_Synapse_D14.dproj">
+				<Dependencies/>
+			</Projects>
+			<Projects Include="RemObjects_WebBroker_D14.dproj">
+				<Dependencies/>
+			</Projects>
+		</ItemGroup>
+		<ProjectExtensions>
+			<Borland.Personality>Default.Personality.12</Borland.Personality>
+			<Borland.ProjectType/>
+			<BorlandProject>
+				<Default.Personality/>
+			</BorlandProject>
+		</ProjectExtensions>
+		<Target Name="RemObjects_Core_D14">
+			<MSBuild Projects="RemObjects_Core_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Core_D14:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_Core_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Core_D14:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_Core_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_IDE_D14">
+			<MSBuild Projects="IDE\RemObjects_IDE_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_IDE_D14:Clean">
+			<MSBuild Targets="Clean" Projects="IDE\RemObjects_IDE_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_IDE_D14:Make">
+			<MSBuild Targets="Make" Projects="IDE\RemObjects_IDE_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_DataSnap_D14">
+			<MSBuild Projects="DataSnap\RemObjects_DataSnap_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_DataSnap_D14:Clean">
+			<MSBuild Targets="Clean" Projects="DataSnap\RemObjects_DataSnap_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_DataSnap_D14:Make">
+			<MSBuild Targets="Make" Projects="DataSnap\RemObjects_DataSnap_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_RODX_D14">
+			<MSBuild Projects="RODX\RemObjects_RODX_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_RODX_D14:Clean">
+			<MSBuild Targets="Clean" Projects="RODX\RemObjects_RODX_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_RODX_D14:Make">
+			<MSBuild Targets="Make" Projects="RODX\RemObjects_RODX_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_BPDX_D14">
+			<MSBuild Projects="RemObjects_BPDX_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_BPDX_D14:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_BPDX_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_BPDX_D14:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_BPDX_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Indy_D14">
+			<MSBuild Projects="RemObjects_Indy_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Indy_D14:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_Indy_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Indy_D14:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_Indy_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Synapse_D14">
+			<MSBuild Projects="RemObjects_Synapse_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Synapse_D14:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_Synapse_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_Synapse_D14:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_Synapse_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_WebBroker_D14">
+			<MSBuild Projects="RemObjects_WebBroker_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_WebBroker_D14:Clean">
+			<MSBuild Targets="Clean" Projects="RemObjects_WebBroker_D14.dproj"/>
+		</Target>
+		<Target Name="RemObjects_WebBroker_D14:Make">
+			<MSBuild Targets="Make" Projects="RemObjects_WebBroker_D14.dproj"/>
+		</Target>
+		<Target Name="Build">
+			<CallTarget Targets="RemObjects_Core_D14;RemObjects_IDE_D14;RemObjects_DataSnap_D14;RemObjects_RODX_D14;RemObjects_BPDX_D14;RemObjects_Indy_D14;RemObjects_Synapse_D14;RemObjects_WebBroker_D14"/>
+		</Target>
+		<Target Name="Clean">
+			<CallTarget Targets="RemObjects_Core_D14:Clean;RemObjects_IDE_D14:Clean;RemObjects_DataSnap_D14:Clean;RemObjects_RODX_D14:Clean;RemObjects_BPDX_D14:Clean;RemObjects_Indy_D14:Clean;RemObjects_Synapse_D14:Clean;RemObjects_WebBroker_D14:Clean"/>
+		</Target>
+		<Target Name="Make">
+			<CallTarget Targets="RemObjects_Core_D14:Make;RemObjects_IDE_D14:Make;RemObjects_DataSnap_D14:Make;RemObjects_RODX_D14:Make;RemObjects_BPDX_D14:Make;RemObjects_Indy_D14:Make;RemObjects_Synapse_D14:Make;RemObjects_WebBroker_D14:Make"/>
+		</Target>
+		<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLGenTools.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLGenTools.pas
new file mode 100644
index 0000000..96bd332
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLGenTools.pas	
@@ -0,0 +1,542 @@
+unit uRODLGenTools;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen                                           }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+
+interface
+
+uses Classes, uRODL, uRORemoteDataModule;
+
+const IntfInvkNotice =
+         '{----------------------------------------------------------------------------}'+#13#10+
+         '{ This unit was automatically generated by the RemObjects SDK after reading  }'+#13#10+
+         '{ the RODL file associated with this project .                               }'+#13#10+
+         '{                                                                            }'+#13#10+
+         '{ Do not modify this unit manually, or your changes will be lost when this   }'+#13#10+
+         '{ unit is regenerated the next time you compile the project.                 }'+#13#10+
+         '{----------------------------------------------------------------------------}';
+
+      ImplNotice =
+        '{----------------------------------------------------------------------------}'+#13#10+
+        '{ This unit was automatically generated by the RemObjects SDK after reading  }'+#13#10+
+        '{ the RODL file associated with this project .                               }'+#13#10+
+        '{                                                                            }'+#13#10+
+        '{ This is where you are supposed to code the implementation of your objects. }'+#13#10+
+        '{----------------------------------------------------------------------------}';
+
+      IntfInvkNoticeCSharp =
+         '//---------------------------------------------------------------------------'+#13+
+         '// This source file was automatically generated by the RemObjects SDK after  '+#13+
+         '// reading the RODL file associated with this project.                       '+#13+
+         '//                                                                           '+#13+
+         '// Do not modify this file manually, or your changes will be lost when this  '+#13+
+         '// source file is regenerated the next time you compile the project.         '+#13+
+         '//---------------------------------------------------------------------------';
+
+      ImplNoticeCSharp =
+         '//---------------------------------------------------------------------------'+#13+
+         '// This source file was automatically generated by the RemObjects SDK after  '+#13+
+         '// reading the RODL file associated with this project.                       '+#13+
+         '//                                                                           '+#13+
+         '// This is where you are supposed to code the implementation of your objects.'+#13+
+         '//---------------------------------------------------------------------------';
+
+      DelphiFlagNames : array[TRODLParamFlag] of string = (
+        'const', 'out', 'var', 'result');
+
+      CSharpFlagNames : array[TRODLParamFlag] of string = (
+        '', 'out ', 'ref ', 'result');
+
+      DelphiAsyncInvokeFlagNames : array[TRODLParamFlag] of string = (
+        'const', '[out]', 'const', '[result]');
+
+      DelphiAsyncRetrieveFlagNames : array[TRODLParamFlag] of string = (
+        '[const]', 'out', 'out', 'result');
+
+type
+  PRODataModuleClass = ^TRODataModuleClass;
+  TRODataModuleClass = record
+    ClassType : TRORemoteDataModuleClass;
+    Alias,
+    Description,
+    RequiredUnits : string;
+  end;
+
+// Code generation helpers
+function GetOperationDefinition(
+   const anOperation : TRODLOperation;
+   const aClassName : string = '';
+   const aSuffix : string = '';
+   AddSenderGUID : boolean = FALSE) : string;
+
+function DataTypeToCSharpType(const iType:string; iLibrary:TRODLLibrary=nil; iForNew:boolean=false):string;
+function DataTypeToDelphiDotNetType(const iType:string; iLibrary:TRODLLibrary=nil; iForNew:boolean=false):string;
+
+
+function GetOperationDefinitionCSharp(
+   const anOperation : TRODLOperation;
+   aForInterface:boolean;
+   const aSuffix : string = ''; aLibrary: TRODLLibrary= nil) : string;
+
+function GetOperationDefinitionDelphiForDotNet(const anOperation : TRODLOperation; aLibrary:TRODLLibrary; const aClassName : string = ''; const aSuffix : string = '') : string;
+
+function GetAsyncInvokeOperationDefinition(
+   const anOperation : TRODLOperation;
+   const aClassName : string = '';
+   const aSuffix : string = '') : string;
+
+function GetAsyncRetrieveOperationDefinition(
+   const anOperation : TRODLOperation;
+   const aClassName : string = '';
+   const aSuffix : string = '') : string;
+function NeedsAsyncRetrieveOperationDefinition(anOperation:TRODLOperation):boolean;
+
+function MessageWrite(const iType, iRodlType, iName, iVariable:string):string;
+function MessageRead(const iType, iRodlType, iName:string):string;
+function TypeToReadWriteFn(const iType:string):string;
+
+procedure GetTypeNames(const aLibrary : TRODLLibrary; aResult : TStrings);
+function TypeByName(const aLibrary : TRODLLibrary; const aTypeName : string) : TRODLEntity;
+
+// TRORemoteDatamodule registration
+procedure RegisterRODataModuleClass(aClass : TRORemoteDataModuleClass; const anAlias, aDescription, someRequiredUnits : string);
+function GetRODataModuleClass(Index : integer) : TRODataModuleClass;
+function GetRODataModuleClassCount : integer;
+
+implementation
+
+uses {$IFDEF MSWINDOWS}Windows,{$ENDIF} SysUtils, uRORes, uROTypes, uRODLToPascalIntf;
+
+var _datamodules : TStringList;
+
+const
+  MAX_PARAM_LENGTH = 100;
+
+// Code generation helpers
+function GetOperationDefinition(const anOperation : TRODLOperation;
+  const aClassName : string = ''; const aSuffix : string = '';
+  AddSenderGUID : boolean = FALSE) : string;
+var x : integer;
+    lPars, lPars2, s : string;
+    lFillStr: string;
+begin
+   if not Assigned(anOperation.Result) then s := 'procedure ' else s := 'function ';
+
+   if aClassName<>''
+     then s := s+aClassName+'.'+anOperation.Name
+     else s := s+anOperation.Name;
+
+   if aSuffix<>''
+     then s := s+aSuffix;
+
+   if aClassName = '' then
+     SetLength(lFillStr,Length(s)+4+1) { Interface section }
+   else
+     SetLength(lFillStr,Length(s)+1);  { Implementation section }
+//   FillChar(lFillStr[1],Length(lFillStr),#32);
+
+   for x := 1 to Length(lFillStr) do
+     lFillStr[x] := #32;
+
+   with anOperation do begin
+     lPars := '';
+     lPars2 := '';
+
+     if (Count>0) then begin
+       for x := 0 to (Count-1) do begin
+         with Items[x] do begin
+           if (Flag <> fResult) then begin
+             if Length(lPars2) > MAX_PARAM_LENGTH then begin
+               lPars := lPars+lPars2+#13#10+lFillStr;
+               lPars2 := '';
+             end;
+             lPars2 := lPars2+Format('%s %s: %s; ', [DelphiFlagNames[Flag], Name, GetDataType(DataType)]);
+           end;
+         end;
+       end;
+       lPars := lPars+lPars2;
+     end;
+     
+     if AddSenderGUID then begin
+       lPars2 := 'const __Sender : TGUID';
+       if (lPars<>'') then lPars2 := lPars2+'; ';
+
+       lPars := lPars2+lPars;
+     end;
+
+     if (lPars<>'') then begin
+       if Count>0
+         then s := s+'('+Copy(lPars,1,Length(lPars)-2)+')'
+         else s := s+'('+Copy(lPars,1,Length(lPars))+')'
+     end;
+   end;
+
+   if Assigned(anOperation.Result) then s := s+': '+GetDataType(anOperation.Result.DataType);
+   s := s+';';
+
+   result := s;
+end;
+
+function DataTypeToCSharpType(const iType:string; iLibrary:TRODLLibrary=nil; iForNew:boolean=false):string;
+var
+  lType,lElementType:string;
+begin
+  lType := iType;
+  if CompareText(iType,'Integer') = 0 then begin
+    Result := 'Int32';
+  end
+  else if CompareText(iType,'WideString') = 0 then begin
+    Result := 'String';
+  end
+  else if CompareText(iType,'DateTime') = 0 then begin
+    Result := 'DateTime'; //make sure casing is good
+  end
+  else if CompareText(iType,'Xml') = 0 then begin
+    Result := 'XmlNode';
+  end
+  else if Assigned(iLibrary) and IsArray(lType,ilibrary,lElementType) then begin
+    if iForNew then
+      Result := DataTypeToCSharpType(lElementType,iLibrary)+'[0]'
+    else
+      Result := DataTypeToCSharpType(lElementType,iLibrary)+'[]';
+  end
+  else if Assigned(iLibrary) then begin
+    if IsUserDefinedType(lType,iLibrary) then begin
+      result := lType; // IsUserDefinedType() fixed the casing
+    end
+    else begin
+      Result := LowerCase(iType);
+      if Length(Result) > 0 then Result[1] := UpCase(Result[1]);
+    end;
+  end
+  else begin
+    Result := iType;
+  end;
+  if iForNew and (Pos('[0]',result) = 0) then result := result+'()';
+end;
+
+function DataTypeToDelphiDotNetType(const iType:string; iLibrary:TRODLLibrary=nil; iForNew:boolean=false):string;
+var
+  lType:string;
+begin
+  lType := iType;
+  if CompareText(iType, 'Xml') = 0 then
+    result := 'XmlNode'
+  else
+  if CompareText(iType,'WideString') = 0 then begin
+    Result := 'String';
+  end
+  else if Assigned(iLibrary) then begin
+    if IsUserDefinedType(lType,iLibrary) then begin
+      result := lType; // IsUserDefinedType() fixed the casing
+    end
+    else begin
+      Result := LowerCase(iType);
+      if Length(Result) > 0 then Result[1] := UpCase(Result[1]);
+    end;
+  end
+  else begin
+    Result := iType;
+  end;
+  //if iForNew and (Pos('[0]',result) = 0) then result := result+'()';
+end;
+
+function GetOperationDefinitionCSharp(const anOperation : TRODLOperation; aForInterface:Boolean; const aSuffix : string = ''; aLibrary: TRODLLibrary = nil) : string;
+var x : integer;
+    pars, s : string;
+begin
+   if not Assigned(anOperation.Result) then s := 'void ' else s := DataTypeToCSharpType(anOperation.Result.DataType,aLibrary)+' ';
+   if not aForInterface then s := 'public '+s;
+
+   {if aClassName<>''
+     then s := s+aClassName+'.'+anOperation.Name
+     else}
+   s := s+anOperation.Name;
+
+   {if aSuffix<>''
+     then s := s+aSuffix;}
+
+   with anOperation do
+     if (Count>0) then begin
+       pars := '';
+
+       for x := 0 to (Count-1) do begin
+         with Items[x] do begin
+           if (Flag<>fresult)
+             then pars :=pars+Format('%s%s %s, ', [CSharpFlagNames[Flag], DataTypeToCSharpType(DataType,aLibrary), Name]);
+         end;
+       end;
+                    
+       if (pars<>'') then
+         s := s+'('+Copy(pars,1,Length(pars)-2)+')'
+       else
+         s := s+'()';
+     end
+     else
+       s := s+'()';
+
+   //if Assigned(anOperation.Result) then s := s+': '+anOperation.Result.DataType;
+   //s := s+';';
+   if aForInterface then s := s+';';
+
+   result := s;
+end;
+
+function GetOperationDefinitionDelphiForDotNet(const anOperation : TRODLOperation; aLibrary:TRODLLibrary; const aClassName : string = ''; const aSuffix : string = '') : string;
+var x : integer;
+    pars, s : string;
+begin
+   if not Assigned(anOperation.Result) then s := 'procedure ' else s := 'function ';
+
+   if aClassName<>''
+     then s := s+aClassName+'.'+anOperation.Name
+     else s := s+anOperation.Name;
+
+   if aSuffix<>''
+     then s := s+aSuffix;
+
+   with anOperation do
+     if (Count>0) then begin
+       pars := '';
+
+       for x := 0 to (Count-1) do begin
+         with Items[x] do begin
+           if (Flag<>fresult)
+             then pars :=pars+Format('%s %s: %s; ', [DelphiFlagNames[Flag], Name, DataTypeToCSharpType(DataType)]);
+         end;
+       end;
+
+       if (pars<>'') then s := s+'('+Copy(pars,1,Length(pars)-2)+')';
+     end;
+
+   if Assigned(anOperation.Result) then s := s+': '+DataTypeToCSharpType(anOperation.Result.DataType);
+   s := s+';';
+
+   result := s;
+end;
+
+
+function GetAsyncInvokeOperationDefinition(
+   const anOperation : TRODLOperation;
+   const aClassName : string = '';
+   const aSuffix : string = '') : string;
+var x : integer;
+    pars, s : string;
+begin
+   s := 'procedure ';
+
+   if aClassName<>''
+     then s := s+aClassName+'.'+'Invoke_'+anOperation.Name
+     else s := s+'Invoke_'+anOperation.Name;
+
+   if aSuffix<>''
+     then s := s+aSuffix;
+
+   with anOperation do
+     if (Count>0) then begin
+       pars := '';
+
+       for x := 0 to (Count-1) do begin
+         with Items[x] do begin
+           if not (Flag in [fOut,fResult]) then
+             pars :=pars+Format('%s %s: %s; ', [DelphiAsyncInvokeFlagNames[Flag], Name, GetDataType(DataType)]);
+         end;
+       end;
+
+       if (pars<>'') then s := s+'('+Copy(pars,1,Length(pars)-2)+')';
+     end;
+
+   //if Assigned(anOperation.Result) then s := s+': '+anOperation.Result.DataType;
+   s := s+';';
+
+   result := s;
+end;
+
+function NeedsAsyncRetrieveOperationDefinition(anOperation:TRODLOperation):boolean;
+var
+  i:integer;
+begin
+  result := Assigned(anOperation.Result) or (anOperation.ForceAsyncResponse);
+  if not result then
+    for i := 0 to anOperation.Count-1 do with anOperation.Items[i] do
+      if (Flag <> fIn) then result := true;
+end;
+
+function GetAsyncRetrieveOperationDefinition(
+   const anOperation : TRODLOperation;
+   const aClassName : string = '';
+   const aSuffix : string = '') : string;
+var x : integer;
+    pars, s : string;
+begin
+   if not Assigned(anOperation.Result) then s := 'procedure ' else s := 'function ';
+
+   if aClassName<>''
+     then s := s+aClassName+'.'+'Retrieve_'+anOperation.Name
+     else s := s+'Retrieve_'+anOperation.Name;
+
+   if aSuffix<>''
+     then s := s+aSuffix;
+
+   with anOperation do
+     if (Count>0) then begin
+       pars := '';
+
+       for x := 0 to (Count-1) do begin
+         with Items[x] do begin
+           if not (Flag in [fIn,fResult]) then
+             pars :=pars+Format('%s %s: %s; ', [DelphiAsyncRetrieveFlagNames[Flag], Name, GetDataType(DataType)]);
+         end;
+       end;
+
+       if (pars<>'') then s := s+'('+Copy(pars,1,Length(pars)-2)+')';
+     end;
+
+   if Assigned(anOperation.Result) then s := s+': '+GetDataType(anOperation.Result.DataType);
+   s := s+';';
+
+   result := s;
+end;
+
+function TypeToReadWriteFn(const iType:string):string;
+begin
+  if SameText(iType,'Integer') then begin
+    result := 'Int32';
+  end
+  else if SameText(iType,'Boolean') then begin
+    result := 'Boolean';
+  end
+  else if SameText(iType,'WideString') then begin
+    result := 'WideString';
+  end
+  else if SameText(iType,'AnsiString') then begin
+    result := 'AnsiString';
+  end
+  {else if (iType = 'Binary') or (iType = 'Array') then begin
+    Result := 'ISerializable';
+  end}
+  else begin
+    Result := '';
+  end;
+end;
+
+function MessageWrite(const iType, iRodlType, iName, iVariable:string):string;
+var lWriteFn: string;
+begin
+  lWriteFn := TypeToReadWriteFn(iRodlType);
+  if lWriteFn <> '' then begin
+    Result := Format('%s("%s", %s);',
+                     [lWriteFn, iName, iVariable]);
+  end
+  else begin
+    Result := Format('("%s", %s, typeof(%s));',  //typeof(%s),
+                     [iName, iVariable, iType]); //iType,
+  end;
+end;
+
+function MessageRead(const iType, iRodlType, iName:string):string;
+var lWriteFn: string;
+begin
+  lWriteFn := TypeToReadWriteFn(iRodlType);
+  if lWriteFn <> '' then begin
+    Result := Format('__Message.Read%s("%s");',
+                     [lWriteFn, iName]);
+  end
+  else begin
+    Result := Format('(%s)__Message.Read("%s", typeof(%s));',
+                     [iType, iName, iType]);
+  end;
+end;
+
+procedure GetTypeNames(const aLibrary : TRODLLibrary; aResult : TStrings);
+var i : integer;
+begin
+  with aLibrary do begin
+    for i := 0 to StructCount-1 do
+      aResult.AddObject(Structs[i].Name, pointer(Structs[i]));
+
+    for i := 0 to EnumCount-1 do
+      aResult.AddObject(Enums[i].Name, pointer(Enums[i]));
+
+    for i := 0 to ArrayCount-1 do
+      aResult.AddObject(Arrays[i].Name, pointer(Arrays[i]));
+  end;
+end;
+
+function TypeByName(const aLibrary : TRODLLibrary; const aTypeName : string) : TRODLEntity;
+var i : integer;
+begin
+  result := NIL;
+
+  with aLibrary do begin
+    for i := 0 to (Count-1) do
+      if (CompareText(Items[i].Name, aTypeName)=0) then begin
+        result := Items[i];
+        Exit;
+      end;
+  end;
+end;
+
+// TRORemoteDatamodule registration
+procedure RegisterRODataModuleClass(aClass : TRORemoteDataModuleClass; const anAlias, aDescription, someRequiredUnits : string);
+var idx : integer;
+    item : PRODataModuleClass;
+begin
+  idx := _datamodules.IndexOf(aClass.ClassName);
+  if (idx>=0) then begin
+    Dispose(PRODataModuleClass(_datamodules.Objects[idx]));
+    _datamodules.Delete(idx);
+  end;
+
+  New(item);
+  item.ClassType := aClass;
+  item.Alias := anAlias;
+  item.Description := aDescription;
+  item.RequiredUnits := someRequiredUnits;
+
+  _datamodules.AddObject(aClass.ClassName, TObject(item));
+end;
+
+function GetRODataModuleClass(Index : integer) : TRODataModuleClass;
+begin
+  result := PRODataModuleClass(_datamodules.Objects[Index])^
+end;
+
+function GetRODataModuleClassCount : integer;
+begin
+  result := _datamodules.Count
+end;
+
+procedure DisposeModuleClasses;
+var i : integer;
+begin
+  for i := 0 to (_datamodules.Count-1) do
+    Dispose(PRODataModuleClass(_datamodules.Objects[i]));
+end;
+
+initialization
+  _datamodules := TStringList.Create;
+  {_datamodules.Duplicates := dupError;}
+  _datamodules.Sorted := TRUE;
+
+finalization
+  DisposeModuleClasses();
+  FreeAndNIL(_datamodules);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascal.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascal.pas
new file mode 100644
index 0000000..6ddeb88
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascal.pas	
@@ -0,0 +1,13 @@
+unit uRODLToPascal;
+
+interface
+
+const PASCAL_INDENTATION_LEVEL_1 = 2;
+      PASCAL_INDENTATION_LEVEL_2 = 4;
+      PASCAL_INDENTATION_LEVEL_3 = 6;
+      PASCAL_INDENTATION_LEVEL_4 = 8;
+
+implementation
+
+end.
+ 
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalAsync.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalAsync.pas
new file mode 100644
index 0000000..2d3e60a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalAsync.pas	
@@ -0,0 +1,388 @@
+unit uRODLToPascalAsync;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen                                           }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses uRODL;
+
+type { TRODLToPascalAsync }
+     TRODLToPascalAsync = class(TRODLConverter)
+     private
+       procedure WriteServiceDeclarationInterface(aService: TRODLService);
+       procedure WriteServiceDeclarationProxy(aService: TRODLService);
+       procedure WriteServiceDeclarationCoClass(aService: TRODLService);
+       procedure WriteCoClass(aLibrary : TRODLLibrary; aService: TRODLService);
+
+//       function IsSOAPService(aService : TRODLService) : boolean;
+     protected
+       procedure IntConvert(const aLibrary : TRODLLibrary; const aTargetEntity : string = ''); override;
+
+     public
+       class function GetTargetFileName(const aLibrary : TRODLLibrary; const aTargetEntity : string = ''): string; override;
+
+     end;
+
+implementation
+
+uses SysUtils, Classes, Dialogs, uROTypes,
+     {$IFDEF DELPHI5}
+     ComObj,
+     {$ENDIF}
+     uRODLGenTools, uRODLToPascal, uRODLToPascalIntf, uROClasses;
+
+{ TRODLToPascalAsync }
+
+procedure TRODLToPascalAsync.IntConvert(const aLibrary: TRODLLibrary; const aTargetEntity: string);
+var {x,} i : integer;
+    s, s2 : string;
+    lServices: IROStrings;
+    fulllist: TStrings;
+begin
+  try
+    Write(Format('unit %s;', [ChangeFileExt(GetTargetFileName(aLibrary), '')]));
+    WriteEmptyLine;
+
+    WriteLines(IntfInvkNotice);
+    WriteEmptyLine;
+
+    write('{$I RemObjects.inc}');
+    WriteEmptyLine;
+
+    Write('interface');
+    WriteEmptyLine;
+
+    Write('uses');
+    Write('{vcl:} Classes, TypInfo,',PASCAL_INDENTATION_LEVEL_1);
+    Write('{RemObjects:} uROXMLIntf, uROClasses, uROTypes, uROClientIntf, uROAsync,',PASCAL_INDENTATION_LEVEL_1);
+
+    if aLibrary.UseCount > 0 then begin
+      s := '';
+      fulllist := TStringList.Create;
+      try
+      for i := 0 to aLibrary.UseCount-1 do begin
+        if aLibrary.Use[i].LoadedRodlLibraryName <> '' then
+          s2 := aLibrary.Use[i].LoadedRodlLibraryName
+        else
+          s2 := ChangeFileExt(ExtractFilename(aLibrary.Use[i].RodlFile),'');
+
+        if fulllist.IndexOf(s2) > -1 then Continue;
+
+        fulllist.Add(s2);
+        if s <> '' then s := s+', ';
+        s := s + s2 + '_Intf, ' + s2 + '_Async';
+
+        if (Length(s)>65) then begin
+          s := s+ ',';
+          Write('{Used RODLs:} '+ s,PASCAL_INDENTATION_LEVEL_1);
+          s := '';
+        end;
+      end; { for }
+      finally
+        FreeAndNil(fulllist);
+      end;
+
+      if s <> '' then begin
+        s := s+',';
+        Write('{Used RODLs:} '+s,PASCAL_INDENTATION_LEVEL_1);
+      end;
+    end;
+
+    Write('{Project:} '+ChangeFileExt(TRODLToIntf.GetTargetFileName(aLibrary),'')+';',PASCAL_INDENTATION_LEVEL_1);
+    lServices := aLibrary.CalcServiceOrder;
+    WriteEmptyLine;
+    if aLibrary.ServiceCount > 0 then
+    begin
+      Write('type');
+      Write('  TSeekOrigin = Classes.TSeekOrigin; // fake declaration');
+      (*
+      for i := 0 to (aLibrary.ServiceCount-1) do begin
+        if not aLibrary.Services[i].IsFromUsedRodl then
+          Write(Format('I%s_Async = interface;', [aLibrary.Services[i].Name]), PASCAL_INDENTATION_LEVEL_1);
+      end;
+
+      for i := 0 to (aLibrary.ServiceCount-1) do begin
+        if not aLibrary.Services[i].IsFromUsedRodl then
+        Write(Format('Co%s_Async = class;', [aLibrary.Services[i].Name]), PASCAL_INDENTATION_LEVEL_1);
+      end;
+
+      for i := 0 to (aLibrary.ServiceCount-1) do begin
+        if not aLibrary.Services[i].IsFromUsedRodl then
+          Write(Format('T%s_AsyncProxy = class;', [aLibrary.Services[i].Name]),PASCAL_INDENTATION_LEVEL_1);
+      end;    *)
+
+      for i := 0 to lServices.Count -1 do begin
+        if not TRODLService(lServices.Objects[i]).IsFromUsedRodl then
+          WriteServiceDeclarationInterface(TRODLService(lServices.Objects[i]));
+      end;
+
+      for i := 0 to lServices.Count -1 do begin
+        if not TRODLService(lServices.Objects[i]).IsFromUsedRodl then
+          WriteServiceDeclarationCoClass(TRODLService(lServices.Objects[i]));
+      end;
+
+      for i := 0 to lServices.Count -1 do begin
+        if not TRODLService(lServices.Objects[i]).IsFromUsedRodl then
+          WriteServiceDeclarationProxy(TRODLService(lServices.Objects[i]));
+      end;
+    end;
+
+    //WriteEmptyLine;
+
+    Write('implementation');
+    WriteEmptyLine;
+
+    Write('uses');
+    Write('{vcl:} SysUtils;',PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+    for i := 0 to (aLibrary.ServiceCount-1) do
+      WriteCoClass(aLibrary, aLibrary.Services[i]);
+
+    Write('initialization');
+    {for i := 0 to (aLibrary.Count-1) do
+      if (aLibrary.Items[i] is TRODLArray) or (aLibrary.Items[i] is TRODLStruct)
+        then Write('  RegisterROClass('+aLibrary.Items[i].Name+');');}
+
+    //WriteEmptyLine;
+
+    {Write('finalization');
+    for i := 0 to (aLibrary.Count-1) do
+      if (aLibrary.Items[i] is TRODLArray) or (aLibrary.Items[i] is TRODLStruct)
+        then Write('  UnRegisterClass('+aLibrary.Items[i].Name+');');
+
+    WriteEmptyLine;}
+
+    Write('end.');
+
+  finally
+  end;
+end;
+
+class function TRODLToPascalAsync.GetTargetFileName(const aLibrary: TRODLLibrary;
+  const aTargetEntity: string): string;
+begin
+  try
+    result := aLibrary.Name+'_Async.pas'
+  except
+    result := 'Unknown.pas';
+  end;
+end;
+
+const
+  InnerIndent = 4;
+
+procedure TRODLToPascalAsync.WriteCoClass(aLibrary : TRODLLibrary; aService: TRODLService);
+var i, p : integer;
+    sa : string;
+//    soapsvc : boolean;
+begin
+  if not aService.IsFromUsedRodl then with aService.Default do begin
+//    soapsvc := IsSOAPService(aService);
+
+    Write('{ Co'+aService.Name+' }');
+    WriteEmptyLine;
+
+    Write(Format('class function Co%s_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): I%s_Async;',
+          [aService.Name, aService.Name]));
+    Write('begin');
+    Write(Format('  result := T%s_AsyncProxy.Create(aMessage, aTransportChannel);', [aService.Name]));
+    Write('end;');
+    WriteEmptyLine;
+
+    if Count > 0 then begin
+      Write(Format('{ T%s_AsyncProxy }', [aService.Name]));
+      WriteEmptyLine;
+    end;
+
+    Write(Format('function T%s_AsyncProxy.__GetInterfaceName:string;',[aService.Name]));
+    Write('begin');
+    Write(Format('  result := ''%s'';',[aService.Name]));
+    Write('end;');
+    WriteEmptyLine;
+
+    for i := 0 to (Count-1) do begin
+      Write(GetAsyncInvokeOperationDefinition(Items[i], Format('T%s_AsyncProxy', [aService.Name])));
+//      Write('var __request:TStream;');
+//      if soapsvc then Write('var __http : IROHTTPTransport;');
+      Write('begin');
+      Write(Format('__AssertProxyNotBusy(''%s'');',[Items[i].Name]),PASCAL_INDENTATION_LEVEL_1);
+//      Write('__request := TMemoryStream.Create;',PASCAL_INDENTATION_LEVEL_1);
+      //Write('__response := TMemoryStream.Create;',PASCAL_INDENTATION_LEVEL_1);
+      WriteEmptyLine;
+      sa := GetAttributes(Items[i].Info.Attributes, aService.Info.Attributes, aLibrary.Info.Attributes, InnerIndent);
+      if sa <> '' then
+        Write('__Message.SetAttributes(__TransportChannel, '+sa+');', InnerIndent);
+
+
+      Write(Format('__Message.InitializeRequestMessage(__TransportChannel, ''%s'', __InterfaceName, ''%s'');', [aLibrary.Name, Items[i].Name]), PASCAL_INDENTATION_LEVEL_1);
+
+      with Items[i] do begin
+        for p := 0 to (Count-1) do
+          if IsInputFlag(Items[p].Flag) then begin
+            if (StrToDataType(Items[p].DataType)=rtDateTime)
+              then sa := '[paIsDateTime]'
+              else sa := '[]';
+
+            Write(Format('__Message.Write(''%s'', TypeInfo(%s), %s, %s);',
+                            [Items[p].Name, GetDataType(Items[p].DataType), Items[p].Name, sa]), PASCAL_INDENTATION_LEVEL_1);
+          end;
+      end;
+//      Write('__Message.Finalize;',PASCAL_INDENTATION_LEVEL_1);
+//      WriteEmptyLine;
+
+//      Write('__Message.WriteToStream(__request);',PASCAL_INDENTATION_LEVEL_1);
+      if NeedsAsyncRetrieveOperationDefinition(Items[i]) then begin
+        Write(Format('__DispatchAsyncRequest(''%s'',__Message);',[Items[i].Name]),PASCAL_INDENTATION_LEVEL_1);
+      end
+      else begin
+        Write(Format('__DispatchAsyncRequest(''%s'',__Message, false);',[Items[i].Name]),PASCAL_INDENTATION_LEVEL_1);
+      end;
+      if sa <> '' then
+        Write('    __Message.UnsetAttributes(__TransportChannel);');
+      Write('end;');
+      WriteEmptyLine;
+
+      if NeedsAsyncRetrieveOperationDefinition(Items[i]) then begin
+        Write(GetAsyncRetrieveOperationDefinition(Items[i], Format('T%s_AsyncProxy', [aService.Name])));
+        Write('var __response:TStream;');
+        Write('begin');
+
+        with Items[i] do begin
+          for p := 0 to (Count-1) do
+            if (Items[p].Flag in [fInOut,fOut]) and IsImplementedAsClass(Items[p].DataType, aLibrary) then
+              Write(Format('%s := nil;', [Items[p].Name]),PASCAL_INDENTATION_LEVEL_1);
+          if Assigned(Result) and IsImplementedAsClass(Result.DataType, aLibrary) then
+              Write('result := nil;', PASCAL_INDENTATION_LEVEL_1);
+        end;
+        Write(Format('__response := __RetrieveAsyncResponse(''%s'');',[Items[i].Name]),PASCAL_INDENTATION_LEVEL_1);
+        //Write('__TransportChannel.Dispatch(__request, __response);',PASCAL_INDENTATION_LEVEL_1);
+        Write('__Message.ReadFromStream(__response);',PASCAL_INDENTATION_LEVEL_1);
+        WriteEmptyLine;
+
+        //Write(Format('Message.Initialize(''I%s'', ''%s'');', [aService.Name, Items[i].Name]), PASCAL_INDENTATION_LEVEL_1);
+        with Items[i] do begin
+
+          if Assigned(Result) then begin
+            if (StrToDataType(Result.DataType)=rtDateTime) then sa := '[paIsDateTime]' else sa := '[]';
+            Write(Format('__Message.Read(''%s'', TypeInfo(%s), Result, %s);',
+                         [Result.Name, GetDataType(Result.DataType), sa]),PASCAL_INDENTATION_LEVEL_1);
+          end;
+          for p := 0 to (Count-1) do
+            if IsOutputFlag(Items[p].Flag) then begin
+
+              if (StrToDataType(Items[p].DataType)=rtDateTime) then sa := '[paIsDateTime]' else sa := '[]';
+              Write(Format('__Message.Read(''%s'', TypeInfo(%s), %s, %s);',
+                          [Items[p].Name, GetDataType(Items[p].DataType), Items[p].Name, sa]),PASCAL_INDENTATION_LEVEL_1);
+            end;
+        end;
+        //Write('Message.Finalize;',5);
+
+        //Write('__request.Free;',PASCAL_INDENTATION_LEVEL_1);
+        WriteEmptyLine;
+        Write('__response.Free();',PASCAL_INDENTATION_LEVEL_1);
+        Write('end;');
+        WriteEmptyLine;
+      end;
+    end;
+
+    WriteEmptyLine;
+  end;
+end;
+{
+function TRODLToPascalAsync.IsSOAPService(aService: TRODLService): boolean;
+begin
+  result := aService.Attributes.Values['Type'] = 'SOAP';
+end;
+}
+
+
+
+
+procedure TRODLToPascalAsync.WriteServiceDeclarationCoClass(
+  aService: TRODLService);
+    //lOperation:TRODLOperation;
+begin
+  if not aService.IsFromUsedRodl then with aService.Default do begin
+    Write(Format('{ Co%s_Async }', [aService.Name]), PASCAL_INDENTATION_LEVEL_1);
+    Write(Format('Co%s_Async = class', [aService.Name]), PASCAL_INDENTATION_LEVEL_1);
+    Write(Format('class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): I%s_Async;',
+                 [aService.Name]), PASCAL_INDENTATION_LEVEL_2);
+    Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+  end;
+end;
+
+procedure TRODLToPascalAsync.WriteServiceDeclarationInterface(
+  aService: TRODLService);
+var i:integer;
+    //lOperation:TRODLOperation;
+begin
+  if not aService.IsFromUsedRodl then with aService.Default do begin
+
+    Write(Format('{ I%s_Async }', [aService.Name]), PASCAL_INDENTATION_LEVEL_1);
+    if aService.Ancestor <> '' then begin
+      Write(Format('I%s_Async = interface(I%s_Async)', [aService.Name,aService.Ancestor]), PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('I%s_Async = interface(IROAsyncInterface)', [aService.Name]), PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write(Format('[''%s'']', [NewGuidAsString()]), PASCAL_INDENTATION_LEVEL_2);
+
+    for i := 0 to (Count-1) do
+      Write(GetAsyncInvokeOperationDefinition(Items[i]), PASCAL_INDENTATION_LEVEL_2);
+    for i := 0 to (Count-1) do
+      if NeedsAsyncRetrieveOperationDefinition(Items[i]) then
+        Write(GetAsyncRetrieveOperationDefinition(Items[i]), PASCAL_INDENTATION_LEVEL_2);
+
+    Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+  end;
+end;
+
+procedure TRODLToPascalAsync.WriteServiceDeclarationProxy(
+  aService: TRODLService);
+var i:integer;
+    //lOperation:TRODLOperation;
+begin
+  if not aService.IsFromUsedRodl then with aService.Default do begin
+    Write(Format('{ T%s_AsyncProxy }', [aService.Name]), PASCAL_INDENTATION_LEVEL_1);
+    if aService.Ancestor <> '' then begin
+      Write(Format('T%s_AsyncProxy = class(T%s_AsyncProxy, I%s_Async)', [aService.Name, aService.Ancestor, aService.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('T%s_AsyncProxy = class(TROAsyncProxy, I%s_Async)', [aService.Name, aService.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write('private',PASCAL_INDENTATION_LEVEL_1);
+    Write('protected',PASCAL_INDENTATION_LEVEL_1);
+    Write('  function __GetInterfaceName:string; override;',PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+    for i := 0 to (Count-1) do
+      Write(GetAsyncInvokeOperationDefinition(Items[i]), PASCAL_INDENTATION_LEVEL_2);
+    for i := 0 to (Count-1) do
+      if NeedsAsyncRetrieveOperationDefinition(Items[i]) then
+        Write(GetAsyncRetrieveOperationDefinition(Items[i]), PASCAL_INDENTATION_LEVEL_2);
+
+    Write('end;',PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalImpl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalImpl.pas
new file mode 100644
index 0000000..e9e206b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalImpl.pas	
@@ -0,0 +1,367 @@
+unit uRODLToPascalImpl;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen                                           }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+     {$IFDEF FPC}LResources,{$ENDIF}uRODL;
+
+type { TRODLToImpl }
+     TRODLToImpl = class(TRODLConverter)
+     private
+       fDFMExtension: string;
+       fService : TRODLService;
+       fAncestorService:TRODLService;
+       fServerClassName: string;
+       fRequiredUnits: string;
+
+       procedure WriteServiceDeclaration(const aService: TRODLService);
+       procedure WriteOperationImplementation(const anOperation : TRODLOperation);
+       procedure SetServerClassName(const Value: string);
+       function GetWriteDataModule: boolean;
+
+     protected
+       procedure IntConvert(const aLibrary : TRODLLIbrary; const aTargetEntity : string = ''); override;
+       function ValidateTargetEntity(const aLibrary : TRODLLIbrary; const aTargetEntity : string) : boolean; override;
+
+     public
+       constructor Create(const aLibrary: TRODLLibrary; const aTargetEntity: string = ''); override;
+       class function GetTargetFileName(const aLibrary : TRODLLIbrary; const aTargetEntity : string = ''): string; override;
+
+       property WriteDataModule : boolean read GetWriteDataModule;
+       procedure WriteDFM(const aLibrary: TRODLLIbrary; const aTargetEntity: string; const aFilename: string);
+
+       property ServerClassName : string read fServerClassName write SetServerClassName;
+       property RequiredUnits : string read fRequiredUnits write fRequiredUnits;
+       property DFMExtension: string read fDFMExtension write fDFMExtension;
+     end;
+
+implementation
+
+uses SysUtils, Dialogs, Classes,
+     {$IFDEF HYDRA_DESIGNTIME}
+     uROIDETools, uEWOTAHelpers,
+     {$ENDIF HYDRA_DESIGNTIME}
+     uRODLGenTools, uRODLToPascalInvk, uRODLToPascal, uROServer;
+
+function IsHydraModule : boolean;
+{$IFDEF HYDRA_DESIGNTIME}
+var
+  lSource: string;
+{$ENDIF HYDRA_DESIGNTIME}
+begin
+  result := FALSE;
+  {$IFDEF HYDRA_DESIGNTIME}
+  if (CurrentProject<>NIL) then begin
+    lSource := UpperCase(ReadModuleSource(CurrentProject));
+    result := Pos('{#HYDRAMODULE}', lSource)>0;
+  end;
+  {$ENDIF HYDRA_DESIGNTIME}
+end;
+
+{ TRODLToImpl }
+procedure TRODLToImpl.WriteDFM(const aLibrary: TRODLLIbrary; const aTargetEntity: string; const aFilename: string);
+var svc : TRODLService;
+begin
+  with TStringList.Create do try
+    svc := aLibrary.ItemByName(aTargetEntity) as TRODLService;
+
+    if (Trim(svc.Ancestor)='') then Add(Format('object %s: T%s', [aTargetEntity, aTargetEntity]))
+                               else Add(Format('inherited %s: T%s', [aTargetEntity, aTargetEntity]));
+    {$IFNDEF FPC}
+    Add('  OldCreateOrder = True');
+    {$ENDIF}
+    Add('  Left = 200');
+    Add('  Top = 200');
+    Add('  Height = 300');
+    Add('  Width = 300');
+    Add('end');
+  finally
+    SaveToFile(aFilename);
+    Free;
+  end;
+  {$IFDEF FPC}
+  LFMtoLRSfile(aFilename);
+  {$ENDIF}
+end;
+
+procedure TRODLToImpl.IntConvert(const aLibrary: TRODLLIbrary; const aTargetEntity : string = '');
+var i : integer;
+    s, s2 : string;
+    lIsHydraModule : boolean;
+    lFileName: string;
+begin
+  if not Assigned(fService) or not Assigned(fService.Default) then exit;
+  if ServerClassName = '' then begin
+    ServerClassName := 'TRORemoteDataModule';
+     if (copy(RequiredUnits, Length(RequiredUnits), 1) <> ',') and (RequiredUnits <> '') then
+      RequiredUnits := RequiredUnits + ',';
+    RequiredUnits := RequiredUnits + 'uRORemoteDataModule';
+  end;
+  lFileName := ChangeFileExt(GetTargetFileName(aLibrary, TargetEntity), '');
+  Write(Format('unit %s;', [lFileName]));
+  WriteEmptyLine;
+
+  WriteLines(ImplNotice);
+  WriteEmptyLine;
+
+  write('{$I RemObjects.inc}');
+  WriteEmptyLine;
+
+  Write('interface');
+  WriteEmptyLine;
+
+  Write('uses');
+  Write('{$IFDEF FPC}LResources,{$ENDIF}',PASCAL_INDENTATION_LEVEL_1);
+  Write('{vcl:} Classes, SysUtils, ' ,PASCAL_INDENTATION_LEVEL_1);
+  Write('{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,' ,PASCAL_INDENTATION_LEVEL_1);
+
+  {
+    handled via RequiredUnits
+  if WriteDataModule then begin
+    s := Copy(ServerClassName,2,MaxInt);
+    if (s<>'') // For inherited ones...
+      then Write(Format('              u%s,', [s]),PASCAL_INDENTATION_LEVEL_1);
+  end;}
+
+  if (RequiredUnits<>'') then begin
+    s := Trim(RequiredUnits);
+    if (s[Length(s)]<>',') then s := s+',';
+    Write('{Required:} '+s ,PASCAL_INDENTATION_LEVEL_1);
+  end;
+
+  {TODO: -cRO3 RequiredUnits, and UsedRODLs might overlap if (for example) using the DARemoteService
+              ancestor was chosen not in SB but from the IDE. Check these and create a unique list
+              for RO3. }
+
+  if fService.Ancestor <> '' then begin
+    fAncestorService := aLibrary.FindService(fService.Ancestor);
+    if Assigned(fAncestorService) and (fAncestorService.ImplUnit <> '') then
+      Write('{Ancestor Implementation:} '+fAncestorService.ImplUnit+',',PASCAL_INDENTATION_LEVEL_1)
+    else
+      Write('{Ancestor Implementation:} '+fService.Ancestor+'_Impl,',PASCAL_INDENTATION_LEVEL_1);
+  end;
+
+  if aLibrary.UseCount > 0 then begin
+    s := '';
+    for i := 0 to aLibrary.UseCount-1 do begin
+      if aLibrary.Use[i].LoadedRodlLibraryName <> '' then
+        s2 := aLibrary.Use[i].LoadedRodlLibraryName + '_Intf'
+      else
+        s2 := ChangeFileExt(ExtractFilename(aLibrary.Use[i].RodlFile),'')+'_Intf';
+      if Pos(s2, s) <= 0 then begin
+        if s <> '' then
+          s := s+', ';
+        s := s+s2;
+      end;
+    end; { for }
+    s := s+',';
+
+    Write('{Used RODLs:} '+s,PASCAL_INDENTATION_LEVEL_1);
+  end;
+
+  Write(Format('{Generated:} %s_Intf;', [aLibrary.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+  WriteEmptyLine;
+
+  Write('type');
+
+  WriteServiceDeclaration(fService);
+
+  {WriteEmptyLine;
+  Write(Format('// Returns an I%s instance in case you need direct access to it from inside your server application',
+               [fService.Info.Name]));
+  Write(Format('function New%s(const aClientID : TGUID; UseClassFactory : boolean = TRUE) : I%s;', [fService.Info.Name, fService.Info.Name]));}
+
+  WriteEmptyLine;
+
+  Write('implementation');
+  WriteEmptyLine;
+  if WriteDataModule then begin
+    Write('{$IFNDEF FPC}');
+    Write('  {$R *.dfm}');
+    Write('{$ENDIF}');
+  end;
+
+  Write('uses');
+
+  (*)if aLibrary.UseCount > 0 then begin
+    s := '';
+    for i := 0 to aLibrary.UseCount-1 do begin
+      if s <> '' then s := s+', ';
+      s := s+ChangeFileExt(ExtractFilename(aLibrary.Use[i].RodlFile),'')+'_Invk';
+    end; { for }
+    s := s+',';
+
+    Write('{Ansestor Invokers:} '+s,PASCAL_INDENTATION_LEVEL_1);
+  end; *)
+  if fService.IsFromUsedRodl then begin
+    s := ChangeFileExt(ExtractFilename(fService.LocatedInRodlUse.RodlFile),'')+'_Invk';
+  end
+  else begin
+    s := ChangeFileExt(TRODLToInvk.GetTargetFileName(aLibrary),'');
+  end;
+
+  lIsHydraModule := IsHydraModule;
+  if lIsHydraModule then begin
+    Write(Format('{Hydra:} uHYRes, uHYIntf, uHYROFactory,', [s]),PASCAL_INDENTATION_LEVEL_1);
+  end;
+
+  Write(Format('{Generated:} %s;', [s]),PASCAL_INDENTATION_LEVEL_1);
+
+  WriteEmptyLine;
+
+  Write(Format('procedure Create_%s(out anInstance : IUnknown);', [fService.Info.Name]));
+  Write('begin');
+  if WriteDataModule
+    then Write(Format('  anInstance := T%s.Create(nil);', [fService.Info.Name]))
+    else Write(Format('  anInstance := T%s.Create;', [fService.Info.Name]));
+  Write('end;');
+  WriteEmptyLine;
+
+  Write(Format('{ %s }', [fService.Info.Name]));
+{  Write(Format('function New%s(const aClientID : TGUID; UseClassFactory : boolean = TRUE) : I%s;', [fService.Info.Name, fService.Info.Name]));
+  Write('var');
+  Write('  lUnknown: IUnknown;');
+  Write('  lClassFactorty: IROClassFactory;');
+  Write('begin');
+  Write('  result := nil;');
+  Write('  if UseClassFactory then begin');
+  Write(Format('    lClassFactorty := FindClassFactory(''%s'');', [fService.Info.Name]));
+  Write('    lClassFactorty.CreateInstance(aClientID, lUnknown);');
+  Write('  end');
+  Write(Format('  else Create_%s(lUnknown);', [fService.Info.Name]));
+  WriteEmptyLine;
+  Write(Format('  result := lUnknown as I%s;', [fService.Info.Name]));
+  Write('end;');
+
+  WriteEmptyLine;}
+
+  if Assigned(fService.Default) then begin
+    for i := 0 to fService.Default.Count-1 do
+      WriteOperationImplementation(fService.Default.Items[i]);
+  end;
+
+  s := fService.Info.Name;
+  Write('var');
+  write('  fClassFactory: IROClassFactory;');
+  Write('initialization');
+  Write('{$IFDEF FPC}');
+  Write(Format('  {$I %s.lrs}',[lFileName]));
+  Write('{$ENDIF}');
+
+  Write(Format('  fClassFactory := TROClassFactory.Create(''%s'', Create_%s, T%s_Invoker);', [s,s,s]));
+  Write(Format('  // RegisterForZeroConf(fClassFactory,''_%s_rosdk._tcp.'');', [s]));
+  if lIsHydraModule then  Write('  THYROFactory.Create(HInstance, fClassFactory);');
+  WriteEmptyLine;
+  Write('finalization');
+  write('  UnRegisterClassFactory(fClassFactory);');
+  write('  fClassFactory := nil;');
+  WriteEmptyLine;
+  Write('end.');
+  s := buffer.Text;
+end;
+
+procedure TRODLToImpl.WriteServiceDeclaration(const aService : TRODLService);
+var i : integer;
+begin
+  Write(Format('{ T%s }', [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+  if aService.Ancestor <> '' then begin
+    if Assigned(fAncestorService) and (fAncestorService.ImplClass <> '') then
+      Write(Format('T%s = class(%s, I%s)', [aService.Info.Name, fAncestorService.ImplClass, aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1)
+    else
+      Write(Format('T%s = class(T%s, I%s)', [aService.Info.Name, aService.Ancestor, aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+  end
+  else begin
+    if WriteDataModule then
+      Write(Format('T%s = class(%s, I%s)', [aService.Info.Name, ServerClassName, aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1)
+    else
+      Write(Format('T%s = class(TRORemotable, I%s)', [aService.Info.Name, aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+  end;
+
+  Write('private',PASCAL_INDENTATION_LEVEL_1);
+  Write('protected',PASCAL_INDENTATION_LEVEL_1);
+  Write(Format('{ I%s methods }', [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_2);
+  for i := 0 to (aService.Default.Count-1) do
+    Write(Format(GetOperationDefinition(aService.Default.Items[i]), []), PASCAL_INDENTATION_LEVEL_2);
+
+  Write('end;', PASCAL_INDENTATION_LEVEL_1);
+end;
+
+function TRODLToImpl.ValidateTargetEntity(
+  const aLibrary: TRODLLIbrary; const aTargetEntity: string): boolean;
+var i : integer;
+begin
+  result := FALSE;
+
+  for i := 0 to (aLibrary.ServiceCount-1) do
+    if (CompareText(aLibrary.Services[i].Info.Name, aTargetEntity)=0) then begin
+      fService := aLibrary.Services[i]; // Will be used later
+      result := TRUE;
+      Exit;
+    end;
+end;
+
+constructor TRODLToImpl.Create(const aLibrary: TRODLLibrary;
+  const aTargetEntity: string);
+begin
+  inherited Create(aLibrary, aTargetEntity);
+  fDFMExtension := '.dfm';
+end;
+
+procedure TRODLToImpl.WriteOperationImplementation(const anOperation: TRODLOperation);
+var
+  i : integer;
+  lCode:TStrings;
+begin
+  Write(GetOperationDefinition(anOperation, 'T'+fService.Info.Name));
+  lCode := anOperation.CodeBodies['Delphi'];
+  if Assigned(lCode) then begin
+    WriteLines(lCode.Text);
+  end
+  else begin
+    Write('begin');
+    Write('end;');
+  end;
+
+
+  for i := 0 to (anOperation.Count-1) do begin
+  end;
+
+  WriteEmptyLine;
+end;
+
+class function TRODLToImpl.GetTargetFileName(
+  const aLibrary: TRODLLIbrary; const aTargetEntity: string): string;
+begin
+  result := aTargetEntity+'_Impl.pas';
+end;
+
+procedure TRODLToImpl.SetServerClassName(const Value: string);
+begin
+  fServerClassName := Value;
+end;
+
+function TRODLToImpl.GetWriteDataModule: boolean;
+begin
+  result := (fServerClassName <> TRORemotable.ClassName);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalIntf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalIntf.pas
new file mode 100644
index 0000000..3903547
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalIntf.pas	
@@ -0,0 +1,2144 @@
+unit uRODLToPascalIntf;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen                                           }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses Classes, uRODL;
+
+type { TRODLToIntf }
+     TRODLToIntf = class(TRODLConverter)
+     private
+       fUnitName : string;
+
+       procedure WriteTypeDeclaration(aLibrary: TRODLLibrary; aType: TRODLEntity);
+       procedure WriteServiceDeclaration(aService: TRODLService);
+       procedure WriteEventSinkDeclaration(aEventSink: TRODLEventSink);
+       procedure WriteCoClass(aLibrary : TRODLLibrary; aService: TRODLService);
+       procedure WriteServiceConsts(aService : TRODLService);
+       procedure WriteArraySerializer(aLibrary : TRODLLibrary; anArray : TRODLArray);
+       procedure WriteStructPropMethods(aLibrary : TRODLLibrary; aStruct: TRODLStruct);
+       procedure WriteAttributesMethods(anEntity: TRODLEntity);
+
+       procedure WriteDocumentation(aInfo: TRODLEntity);
+
+       function IsSOAPService(aService : TRODLService) : boolean;
+       procedure WriteEventSink(aLibrary : TRODLLibrary; aEventSink: TRODLEventSink);
+       procedure GetInheritedExceptionFields(const aLibrary: TRODLLibrary; anException: TRODLException; aList: TList);
+       function AdjustParamList(const aParamList: string; Indentation: integer): string;
+       procedure WriteOperationDocumentation(anOperation:TRODLOperation; IndentationLevel : integer);
+     protected
+       procedure IntConvert(const aLibrary : TRODLLibrary; const aTargetEntity : string = ''); override;
+
+     public
+       constructor Create(const aLibraryFile:string; iUnitName:string=''); reintroduce; overload; virtual;
+       constructor Create(const aLibrary : TRODLLibrary; iUnitName:string=''); reintroduce; overload; virtual;
+       class function GetTargetFileName(const aLibrary : TRODLLibrary; const aTargetEntity : string = ''): string; override;
+
+     end;
+
+function GetDataType(const aType: string): String;
+function GetAttributes(atOperation, atService, atLibrary: TStrings; Ident: Integer): string;
+
+implementation
+
+uses SysUtils, uROTypes,
+     {$IFDEF DELPHI5}
+     ComObj,
+     {$ENDIF}
+     uRODLGenTools, uRODLToPascal, uROClasses, uROSerializer;
+
+{ TRODLToIntf }
+
+function GetDataType(const aType: string): String;
+begin
+  case StrToDataType(aType) of
+    rtXML: result := 'IXmlNode';
+  else
+    result := aType;
+  end;
+end;
+
+constructor TRODLToIntf.Create(const aLibraryFile: string; iUnitName: string);
+begin
+  fUnitName := iUnitName;
+  inherited Create(aLibraryFile);
+end;
+
+constructor TRODLToIntf.Create(const aLibrary: TRODLLibrary; iUnitName: string);
+begin
+  fUnitName := iUnitName;
+  inherited Create(aLibrary);
+end;
+
+procedure TRODLToIntf.GetInheritedExceptionFields(const aLibrary: TRODLLibrary;
+  anException: TRODLException; aList: TList);
+var ex : TRODLException;
+    i : integer;
+begin
+  aList.Clear;
+  ex := anException;
+
+  repeat
+    ex := aLibrary.FindException(ex.Ancestor);
+    if (ex=NIL) then Exit;
+
+    for i := (ex.Count-1) downto 0 do
+      aList.Insert(0, ex[i]);
+
+  until 1=2;
+end;
+
+function TRODLToIntf.AdjustParamList(const aParamList : string; Indentation : integer) : string;
+var i, k, cnt : integer;
+begin
+  result := aParamList;
+  cnt := 1;
+  i := 1;
+
+  while (i<Length(result)) do begin
+    Inc(cnt);
+    Inc(i);
+
+    if (cnt>80) and ((result[i-1]=';') or (result[i-1]=',')) then begin
+      cnt := 1;
+      Insert(#13#10, result, i);
+      for k := 1 to Indentation do begin
+        Insert(#32, result, i+2);
+      end;
+      Inc(i, Indentation+2);
+    end;
+  end;
+end;
+
+procedure TRODLToIntf.IntConvert(const aLibrary: TRODLLibrary; const aTargetEntity: string);
+var l, x, i, k : integer;
+    s, s2: string;
+    fulllist: TStrings;
+    svc : TRODLService;
+    roexception : TRODLException;
+    roexceptionEntityList: IROStrings;
+    roexceptionEntity: TRODLTypedEntity;
+    inheritedfields : TList;
+    lPascalIndentationLevel: Integer;
+begin
+  inheritedfields := TList.Create;
+  try
+    if fUnitName = '' then begin
+      fUnitName := ChangeFileExt(GetTargetFileName(aLibrary), '');
+    end;
+
+    Write(Format('unit %s;', [fUnitName]));
+    WriteEmptyLine;
+
+    WriteLines(IntfInvkNotice);
+    WriteEmptyLine;
+
+    Write('{$I RemObjects.inc}');
+    WriteEmptyLine;
+
+    Write('interface');
+    WriteEmptyLine;
+
+    Write('uses');
+    Write('{vcl:} Classes, TypInfo,',PASCAL_INDENTATION_LEVEL_1);
+
+    if aLibrary.UseCount > 0 then begin
+      Write('{RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,',PASCAL_INDENTATION_LEVEL_1);
+
+      s := '';
+      l := 0;
+
+      fulllist := TStringList.Create;
+      try
+        for i := 0 to aLibrary.UseCount-1 do begin
+
+          if aLibrary.Use[i].LoadedRodlLibraryName <> '' then
+            s2 := aLibrary.Use[i].LoadedRodlLibraryName + '_Intf'
+          else
+            s2 := ChangeFileExt(ExtractFilename(aLibrary.Use[i].RodlFile),'')+'_Intf';
+          if fulllist.IndexOf(s2) > -1 then
+            Continue;
+
+          if s <> '' then s := s+', ';
+          Inc(l, Length(s2));
+
+          s := s+s2;
+          fulllist.Add(s2);
+
+          if (l>80) then begin
+
+             if i <> aLibrary.UseCount -1 then s := s+ ',';
+
+             Write('{Used RODLs:} '+ s,PASCAL_INDENTATION_LEVEL_1);
+             s := '';
+             l := 0;
+
+          end;
+
+        end; { for }
+      finally
+        FreeAndNil(fulllist);
+      end;
+      s := s+';';
+
+      Write('{Used RODLs:} '+
+
+      s,PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write('{RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;',PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+
+    WriteEmptyLine;
+
+    Write('const');
+    Write('{ Library ID }',PASCAL_INDENTATION_LEVEL_1);
+    Write(Format('LibraryUID = ''%s'';', [GUIDToString(aLibrary.Info.UID)]),PASCAL_INDENTATION_LEVEL_1);
+    if (aLibrary.Info.Attributes.Values['Wsdl']<>'')
+      then Write(Format('WSDLLocation = ''%s'';', [aLibrary.Info.Attributes.Values['Wsdl']]),PASCAL_INDENTATION_LEVEL_1);
+
+
+    Write(Format('TargetNamespace = ''%s'';', [aLibrary.Info.Attributes.Values['TargetNamespace']]),PASCAL_INDENTATION_LEVEL_1);
+
+    WriteEmptyLine;
+
+    Write('{ Service Interface ID''s }',PASCAL_INDENTATION_LEVEL_1);
+    for i := 0 to (aLibrary.Count-1) do
+      if (aLibrary.Items[i] is TRODLService) and not aLibrary.Items[i].IsFromUsedRodl then begin
+        svc := TRODLService(aLibrary.Items[i]);
+        Write('I'+aLibrary.Items[i].Info.Name+'_IID : TGUID = '''+GUIDToString(svc.Default.Info.UID)+''';' ,PASCAL_INDENTATION_LEVEL_1);
+      end;
+
+    for i := 0 to (aLibrary.ServiceCount-1) do begin
+      if not aLibrary.Services[i].IsFromUsedRodl then begin
+        WriteServiceConsts(aLibrary.Services[i]);
+      end;
+    end;
+    WriteEmptyLine();
+
+    {-------- Events ----------}
+    Write('{ Event ID''s }',PASCAL_INDENTATION_LEVEL_1);
+    for i := 0 to (aLibrary.EventSinkCount-1) do begin
+      if not aLibrary.EventSinks[i].IsFromUsedRodl then begin
+        Write(Format('EID_%s = ''%s'';', [aLibrary.EventSinks[i].Info.Name, aLibrary.EventSinks[i].Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+      end;
+    end;
+    WriteEmptyLine();
+    {--------------------------}
+
+    if (aLibrary.Count > 0) then begin
+      Write('type');
+      Write('  TSeekOrigin = Classes.TSeekOrigin; // fake declaration');
+    end;
+
+    with aLibrary do begin
+      // Forward declarations
+      Write('{ Forward declarations }',PASCAL_INDENTATION_LEVEL_1);
+      for i := 0 to (aLibrary.ServiceCount-1) do if (not aLibrary.Services[i].IsFromUsedRodl) then
+        Write(Format('I%s = interface;', [aLibrary.Services[i].Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+      if aLibrary.ServiceCount>0 then WriteEmptyLine;
+
+      for i := 0 to (aLibrary.ArrayCount-1) do if (not aLibrary.Arrays[i].IsFromUsedRodl) then
+        Write(Format('%s = class;', [aLibrary.Arrays[i].Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+      if aLibrary.ArrayCount>0 then WriteEmptyLine;
+
+      for i := 0 to (aLibrary.StructCount-1) do if (not aLibrary.Structs[i].IsFromUsedRodl) then
+        Write(Format('%s = class;', [aLibrary.Structs[i].Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+      if aLibrary.StructCount>0 then WriteEmptyLine;
+
+      for i := 0 to (aLibrary.ExceptionCount-1) do if (not aLibrary.Exceptions[i].IsFromUsedRodl) then
+        Write(Format('%s = class;',[aLibrary.Exceptions[i].Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+      if aLibrary.ExceptionCount>0 then WriteEmptyLine;
+
+      for i := 0 to (aLibrary.EventSinkCount-1) do if not aLibrary.EventSinks[i].IsFromUsedRodl then
+        Write(Format('I%s = interface;', [aLibrary.EventSinks[i].Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+      if aLibrary.EventSinkCount>0 then WriteEmptyLine;
+
+      WriteEmptyLine;
+
+      if (EnumCount > 0) then begin
+        Write('{ Enumerateds }', PASCAL_INDENTATION_LEVEL_1);
+          for i := 0 to (EnumCount-1) do
+            if (not aLibrary.Enums[i].IsFromUsedRodl) then with Enums[i] do begin
+              WriteDocumentation(aLibrary.Enums[i]);
+              lPascalIndentationLevel := PASCAL_INDENTATION_LEVEL_1;
+              s := Info.Name+' = (';
+              l := Length(s);
+              for x := 0 to (Count-1) do begin
+                if PrefixEnumValues then
+                  s2 := Info.Name+'_'+Items[x].Info.Name
+                else
+                  s2 := Items[x].Info.Name;
+                s2 := s2 + ',';
+                Inc(l, Length(s2));
+                s := s + s2;
+                if (l>80) and (x <> Count-1) then begin
+                  Write(s, lPascalIndentationLevel);
+                  lPascalIndentationLevel := PASCAL_INDENTATION_LEVEL_3;
+                  s := '';
+                  l := 0;
+                end;
+              end;
+              System.Delete(s,Length(s),1);
+              s := s+');';
+
+              Write(s, lPascalIndentationLevel);
+            end;
+        WriteEmptyLine;
+      end;
+
+    end;
+
+    with aLibrary.CalcStructOrder() do begin
+      for i := 0 to (Count-1) do //if (not aLibrary.Services[i].IsFromUsedRodl) then
+        WriteTypeDeclaration(aLibrary, Objects[i] as TRODLStruct);
+    end;
+    //for i := 0 to (aLibrary.StructCount-1) do if (not aLibrary.Structs[i].IsFromUsedRodl) then
+      //WriteTypeDeclaration(aLibrary, aLibrary.Structs[i]);
+
+    for i := 0 to (aLibrary.ArrayCount-1) do if (not aLibrary.Arrays[i].IsFromUsedRodl) then
+      WriteTypeDeclaration(aLibrary, aLibrary.Arrays[i]);
+
+    if aLibrary.ExceptionCount > 0 then begin
+      Write('{ Exceptions }',PASCAL_INDENTATION_LEVEL_1);
+
+      with aLibrary.CalcExceptionOrder() do begin
+        for i := 0 to (Count-1) do begin
+          roexception := (Objects[i] as TRODLException);
+          GetInheritedExceptionFields(aLibrary, roexception, inheritedfields);
+
+          WriteDocumentation(roexception.Info);
+          if roexception.Ancestor <> '' then
+            Write(Format('%s = class(%s)',[roexception.Info.Name, roexception.Ancestor]),PASCAL_INDENTATION_LEVEL_1)
+          else
+            Write(Format('%s = class(EROException)',[roexception.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+
+          Write('private', PASCAL_INDENTATION_LEVEL_1);
+          for k := 0 to (roexception.Count-1) do begin
+            Write(Format('f%s: %s;', [roexception[k].Name, GetDataType(roexception[k].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+          end;
+
+          Write('public', PASCAL_INDENTATION_LEVEL_1);
+
+          if roexception.Attributes.Count > 0 then begin
+            Write('class function GetAttributeCount: Integer; override;', PASCAL_INDENTATION_LEVEL_2);
+            Write('class function GetAttributeName(aIndex: Integer): string; override;', PASCAL_INDENTATION_LEVEL_2);
+            Write('class function GetAttributeValue(aIndex: Integer): string; override;', PASCAL_INDENTATION_LEVEL_2);
+            if (roexception.Count > 0) then WriteEmptyLine;
+          end;
+
+          if (roexception.Count>0) then begin
+            s := 'constructor Create(anExceptionMessage : string; ';
+            for k := 0 to (inheritedfields.Count-1) do
+              s := s+Format('a%s: %s; ', [TRODLTypedEntity(inheritedfields[k]).Name, GetDataType(TRODLTypedEntity(inheritedfields[k]).DataType)]);
+            for k := 0 to (roexception.Count-1) do
+              s := s+Format('a%s: %s; ', [roexception[k].Name, GetDataType(roexception[k].DataType)]);
+            s := Copy(s,1,Length(s)-2)+');';
+            Write(AdjustParamList(s, PASCAL_INDENTATION_LEVEL_3), PASCAL_INDENTATION_LEVEL_2);
+            roexceptionEntityList:=roexception.CalcItemsMarshalingOrder(True);
+            if (roexception.Count>0) and (roexceptionEntityList.Count > 0) then begin
+              Write('  procedure ReadException(ASerializer: TObject); override;', PASCAL_INDENTATION_LEVEL_1);
+              Write('  procedure WriteException(ASerializer: TObject); override;', PASCAL_INDENTATION_LEVEL_1);
+            end;
+            roexceptionEntityList:=nil;
+          end;
+
+          Write('published', PASCAL_INDENTATION_LEVEL_1);
+
+          for k := 0 to (roexception.Count-1) do begin
+            WriteDocumentation(roexception[k]);
+            Write(Format('property %s: %s read f%s write f%s;',
+              [roexception[k].Name, GetDataType(roexception[k].DataType),
+               roexception[k].Name, roexception[k].Name]),
+               PASCAL_INDENTATION_LEVEL_2);
+          end;
+
+          Write('end;', PASCAL_INDENTATION_LEVEL_1);
+          WriteEmptyLine;
+        end;
+      end;
+
+      {for i := 0 to (aLibrary.ExceptionCount-1) do if (not aLibrary.Exceptions[i].IsFromUsedRodl) then begin
+        WriteDocumentation(aLibrary.Exceptions[i].Info);
+        if aLibrary.Exceptions[i].Ancestor <> '' then
+          Write(Format('%s = class(%s);',[aLibrary.Exceptions[i].Info.Name, aLibrary.Exceptions[i].Ancestor]),PASCAL_INDENTATION_LEVEL_1)
+        else
+          Write(Format('%s = class(EROException);',[aLibrary.Exceptions[i].Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+      end; }
+      WriteEmptyLine;
+    end;
+
+    with aLibrary.CalcServiceOrder() do begin
+      for i := 0 to (Count-1) do //if (not aLibrary.Services[i].IsFromUsedRodl) then
+        WriteServiceDeclaration(Objects[i] as TRODLService);
+    end;
+
+    {-------- Events ----------}
+    //ToDo -omh: This should use a CalcServerEventsOrder method which is currently not present in uRODL.pas
+    with aLibrary do begin
+      for i := 0 to EventSinkCount-1 do begin
+        if aLibrary.EventSinks[i].IsFromUsedRodl then Continue;
+
+        WriteEventSinkDeclaration(aLibrary.EventSinks[i]);
+      end;
+    end;
+    {--------------------------}
+
+    {for i := 0 to (aLibrary.ServiceCount-1) do if (not aLibrary.Services[i].IsFromUsedRodl) then
+      WriteServiceDeclaration(aLibrary.Services[i]);}
+
+    //WriteEmptyLine;
+
+    Write('implementation');
+    WriteEmptyLine;
+
+    Write('uses');
+    Write('{vcl:} SysUtils,',PASCAL_INDENTATION_LEVEL_1);
+    Write('{RemObjects:} uROEventRepository, uROSerializer, uRORes;',PASCAL_INDENTATION_LEVEL_1);
+
+    WriteEmptyLine;
+
+    with aLibrary.CalcExceptionOrder() do begin
+      for i := 0 to (Count-1) do begin
+        roexception := (Objects[i] as TRODLException);
+        if (roexception.Count = 0) and (roexception.Attributes.Count = 0) then
+          Continue;
+
+        Write('{ '+roexception.Name+' }');
+        WriteEmptyLine;
+
+        if roexception.Attributes.Count > 0 then
+          WriteAttributesMethods(roexception);
+
+        if (roexception.Count=0) then Continue;
+        GetInheritedExceptionFields(aLibrary, roexception, inheritedfields);
+
+        s := 'constructor '+roexception.Name+'.Create(anExceptionMessage : string; ';
+        for k := 0 to (inheritedfields.Count-1) do
+          s := s+Format('a%s: %s; ', [TRODLTypedEntity(inheritedfields[k]).Name, GetDataType(TRODLTypedEntity(inheritedfields[k]).DataType)]);
+
+        for k := 0 to (roexception.Count-1) do
+          s := s+Format('a%s: %s; ', [roexception[k].Name, GetDataType(roexception[k].DataType)]);
+        s := Copy(s,1,Length(s)-2)+');';
+        Write(AdjustParamList(s, 1));
+
+        Write('begin');
+        s := '  inherited Create(anExceptionMessage';
+        for k := 0 to (inheritedfields.Count-1) do
+          s := s+Format(', a%s', [TRODLTypedEntity(inheritedfields[k]).Name]);
+        s := s+');';
+        Write(AdjustParamList(s, 10));
+
+        WriteEmptyLine;
+
+        for k := 0 to (roexception.Count-1) do begin
+          Write(Format('  f%s := a%s;', [roexception[k].Name, roexception[k].Name]));
+        end;
+
+        Write('end;');
+
+        roexceptionEntityList:=roexception.CalcItemsMarshalingOrder(True);
+        if (roexception.Count>0) and (roexceptionEntityList.Count > 0) then begin
+          WriteEmptyLine;
+          Write('procedure '+roexception.Name+'.ReadException(ASerializer: TObject);');
+          if roexceptionEntityList.Count > 0 then Write('var');
+          For k:=0 to roexceptionEntityList.Count - 1 do
+            with TRODLTypedEntity(roexceptionEntityList.Objects[k]) do
+              Write(Format('  l_%s: %s;',[Name, GetDataType(DataType)]));
+          Write('begin');
+          Write('  if TROSerializer(ASerializer).RecordStrictOrder then begin');
+          if roexception.Count <> roexceptionEntityList.Count then
+            Write('    inherited;');
+          for k := 0 to (roexception.Count-1) do begin
+            roexceptionEntity:= roexception[k];
+            Write(Format('    l_%s := %0:s;',[roexceptionEntity.Name]));
+            case StrToDataType(roexceptionEntity.DataType) of
+              rtInteger:     Write(Format('    TROSerializer(ASerializer).ReadInteger(''%s'', otSLong, l_%0:s);',[roexceptionEntity.Name]));
+              rtDateTime:    Write(Format('    TROSerializer(ASerializer).ReadDateTime(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtDouble:      Write(Format('    TROSerializer(ASerializer).ReadDouble(''%s'', ftDouble, l_%0:s);',[roexceptionEntity.Name]));
+              rtCurrency:    Write(Format('    TROSerializer(ASerializer).ReadDouble(''%s'', ftCurr, l_%0:s);',[roexceptionEntity.Name]));
+              rtWidestring:  Write(Format('    TROSerializer(ASerializer).ReadWideString(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtString:      Write(Format('    TROSerializer(ASerializer).ReadAnsiString(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtUTF8String:  Write(Format('    TROSerializer(ASerializer).ReadUTF8String(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtInt64:       Write(Format('    TROSerializer(ASerializer).ReadInt64(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtBoolean:     Write(Format('    TROSerializer(ASerializer).ReadEnumerated(''%s'',TypeInfo(boolean), l_%0:s);',[roexceptionEntity.Name]));
+              rtVariant:     Write(Format('    TROSerializer(ASerializer).ReadVariant(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtXML:         Write(Format('    TROSerializer(ASerializer).ReadXML(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtGuid:        Write(Format('    TROSerializer(ASerializer).ReadGuid(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtDecimal:     Write(Format('    TROSerializer(ASerializer).ReadDecimal(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtBinary:      Write(Format('    TROSerializer(ASerializer).ReadBinary(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtXsDateTime:  Write(Format('    TROSerializer(ASerializer).ReadStruct(''%s'', %s, l_%0:s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]));
+              rtUserDefined:
+                           if aLibrary.FindArray(roexceptionEntity.DataType) <> nil  then
+                             Write(Format('    TROSerializer(ASerializer).ReadArray(''%s'', %s, l_%0:s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]))
+                           else if aLibrary.FindEnum(roexceptionEntity.DataType) <> nil  then
+                             Write(Format('    TROSerializer(ASerializer).ReadEnumerated(''%s'',TypeInfo(%s), l_%0:s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]))
+                           else
+                             Write(Format('    TROSerializer(ASerializer).ReadStruct(''%s'', %s, l_%0:s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]));
+            end;
+            if (StrToDataType(roexceptionEntity.DataType) in [rtBinary, rtUserDefined, rtXsDateTime]) and (aLibrary.FindEnum(roexceptionEntity.DataType) = nil) then
+              Write(Format('    if %s <> l_%0:s then %0:s.Free;',[roexceptionEntity.Name]));
+            Write(Format('    %s := l_%0:s;',[roexceptionEntity.Name]));
+          end;
+          Write('  end');
+          Write('  else begin');
+          for k := 0 to (roexceptionEntityList.Count-1) do begin
+            roexceptionEntity:= TRODLTypedEntity(roexceptionEntityList.Objects[k]);
+            Write(Format('    l_%s := %0:s;',[roexceptionEntity.Name]));
+            case StrToDataType(roexceptionEntity.DataType) of
+              rtInteger:     Write(Format('    TROSerializer(ASerializer).ReadInteger(''%s'', otSLong, l_%0:s);',[roexceptionEntity.Name]));
+              rtDateTime:    Write(Format('    TROSerializer(ASerializer).ReadDateTime(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtDouble:      Write(Format('    TROSerializer(ASerializer).ReadDouble(''%s'', ftDouble, l_%0:s);',[roexceptionEntity.Name]));
+              rtCurrency:    Write(Format('    TROSerializer(ASerializer).ReadDouble(''%s'', ftCurr, l_%0:s);',[roexceptionEntity.Name]));
+              rtWidestring:  Write(Format('    TROSerializer(ASerializer).ReadWideString(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtString:      Write(Format('    TROSerializer(ASerializer).ReadAnsiString(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtUTF8String:  Write(Format('    TROSerializer(ASerializer).ReadUTF8String(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtInt64:       Write(Format('    TROSerializer(ASerializer).ReadInt64(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtBoolean:     Write(Format('    TROSerializer(ASerializer).ReadEnumerated(''%s'',TypeInfo(boolean), l_%0:s);',[roexceptionEntity.Name]));
+              rtVariant:     Write(Format('    TROSerializer(ASerializer).ReadVariant(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtXML:         Write(Format('    TROSerializer(ASerializer).ReadXML(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtGuid:        Write(Format('    TROSerializer(ASerializer).ReadGuid(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtDecimal:     Write(Format('    TROSerializer(ASerializer).ReadDecimal(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtBinary:      Write(Format('    TROSerializer(ASerializer).ReadBinary(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtXsDateTime:  Write(Format('    TROSerializer(ASerializer).ReadStruct(''%s'', %s, l_%0:s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]));
+              rtUserDefined:
+                           if aLibrary.FindArray(roexceptionEntity.DataType) <> nil  then
+                             Write(Format('    TROSerializer(ASerializer).ReadArray(''%s'', %s, l_%0:s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]))
+                           else if aLibrary.FindEnum(roexceptionEntity.DataType) <> nil  then
+                             Write(Format('    TROSerializer(ASerializer).ReadEnumerated(''%s'',TypeInfo(%s), l_%0:s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]))
+                           else
+                             Write(Format('    TROSerializer(ASerializer).ReadStruct(''%s'', %s, l_%0:s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]));
+            end;
+            if (StrToDataType(roexceptionEntity.DataType) in [rtBinary, rtUserDefined, rtXsDateTime]) and (aLibrary.FindEnum(roexceptionEntity.DataType) = nil) then
+              Write(Format('    if %s <> l_%0:s then %0:s.Free;',[roexceptionEntity.Name]));
+            Write(Format('    %s := l_%0:s;',[roexceptionEntity.Name]));
+          end;
+          Write('  end;');
+          Write('end;');
+
+
+          WriteEmptyLine;
+          Write('procedure '+roexception.Name+'.WriteException(ASerializer: TObject);');
+          if roexceptionEntityList.Count > 0 then Write('var');
+          For k:=0 to roexceptionEntityList.Count - 1 do
+            with TRODLTypedEntity(roexceptionEntityList.Objects[k]) do
+              Write(Format('  l_%s: %s;',[Name, GetDataType(DataType)]));
+          Write('begin');
+          Write('  if TROSerializer(ASerializer).RecordStrictOrder then begin');
+          if roexception.Count <> roexceptionEntityList.Count then
+            Write('inherited;', PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('TROSerializer(ASerializer).ChangeClass(%s);', [roexception.Name]), PASCAL_INDENTATION_LEVEL_2);
+          for k := 0 to (roexception.Count-1) do begin
+            roexceptionEntity:= roexception[k];
+            Write(Format('    l_%s := %0:s;',[roexceptionEntity.Name]));
+            case StrToDataType(roexceptionEntity.DataType) of
+              rtInteger:     Write(Format('    TROSerializer(ASerializer).WriteInteger(''%s'', otSLong, l_%0:s);',[roexceptionEntity.Name]));
+              rtDateTime:    Write(Format('    TROSerializer(ASerializer).WriteDateTime(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtDouble:      Write(Format('    TROSerializer(ASerializer).WriteDouble(''%s'', ftDouble, l_%0:s);',[roexceptionEntity.Name]));
+              rtCurrency:    Write(Format('    TROSerializer(ASerializer).WriteDouble(''%s'', ftCurr, l_%0:s);',[roexceptionEntity.Name]));
+              rtWidestring:  Write(Format('    TROSerializer(ASerializer).WriteWideString(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtString:      Write(Format('    TROSerializer(ASerializer).WriteAnsiString(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtUTF8String:  Write(Format('    TROSerializer(ASerializer).WriteUTF8String(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtInt64:       Write(Format('    TROSerializer(ASerializer).WriteInt64(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtBoolean:     Write(Format('    TROSerializer(ASerializer).WriteEnumerated(''%s'',TypeInfo(boolean), l_%0:s);',[roexceptionEntity.Name]));
+              rtVariant:     Write(Format('    TROSerializer(ASerializer).WriteVariant(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtXML:         Write(Format('    TROSerializer(ASerializer).WriteXML(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtGuid:        Write(Format('    TROSerializer(ASerializer).WriteGuid(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtDecimal:     Write(Format('    TROSerializer(ASerializer).WriteDecimal(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtBinary:      Write(Format('    TROSerializer(ASerializer).WriteBinary(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtXsDateTime:  Write(Format('    TROSerializer(ASerializer).WriteStruct(''%s'', l_%0:s, %s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]));
+              rtUserDefined:
+                          if aLibrary.FindArray(roexceptionEntity.DataType) <> nil  then
+                             Write(Format('    TROSerializer(ASerializer).WriteArray(''%s'', l_%0:s, %s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]))
+                          else if aLibrary.FindEnum(roexceptionEntity.DataType) <> nil  then
+                             Write(Format('    TROSerializer(ASerializer).WriteEnumerated(''%s'',TypeInfo(%s), l_%0:s);',[roexceptionEntity.Name,roexceptionEntity.DataType]))
+                          else
+                             Write(Format('    TROSerializer(ASerializer).WriteStruct(''%s'', l_%0:s, %s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]))
+            end;
+          end;
+          Write('  end');
+          Write('  else begin');
+          for k := 0 to (roexceptionEntityList.Count-1) do begin
+            roexceptionEntity:= TRODLTypedEntity(roexceptionEntityList.Objects[k]);
+            Write(Format('    l_%s := %0:s;',[roexceptionEntity.Name]));
+            case StrToDataType(roexceptionEntity.DataType) of
+              rtInteger:     Write(Format('    TROSerializer(ASerializer).WriteInteger(''%s'', otSLong, l_%0:s);',[roexceptionEntity.Name]));
+              rtDateTime:    Write(Format('    TROSerializer(ASerializer).WriteDateTime(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtDouble:      Write(Format('    TROSerializer(ASerializer).WriteDouble(''%s'', ftDouble, l_%0:s);',[roexceptionEntity.Name]));
+              rtCurrency:    Write(Format('    TROSerializer(ASerializer).WriteDouble(''%s'', ftCurr, l_%0:s);',[roexceptionEntity.Name]));
+              rtWidestring:  Write(Format('    TROSerializer(ASerializer).WriteWideString(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtString:      Write(Format('    TROSerializer(ASerializer).WriteAnsiString(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtUTF8String:  Write(Format('    TROSerializer(ASerializer).WriteUTF8String(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtInt64:       Write(Format('    TROSerializer(ASerializer).WriteInt64(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtBoolean:     Write(Format('    TROSerializer(ASerializer).WriteEnumerated(''%s'',TypeInfo(boolean), l_%0:s);',[roexceptionEntity.Name]));
+              rtVariant:     Write(Format('    TROSerializer(ASerializer).WriteVariant(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtXML:         Write(Format('    TROSerializer(ASerializer).WriteXML(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtGuid:        Write(Format('    TROSerializer(ASerializer).WriteGuid(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtDecimal:     Write(Format('    TROSerializer(ASerializer).WriteDecimal(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtBinary:      Write(Format('    TROSerializer(ASerializer).WriteBinary(''%s'', l_%0:s);',[roexceptionEntity.Name]));
+              rtXsDateTime:  Write(Format('    TROSerializer(ASerializer).WriteStruct(''%s'', l_%0:s, %s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]));
+              rtUserDefined:
+                          if aLibrary.FindArray(roexceptionEntity.DataType) <> nil  then
+                             Write(Format('    TROSerializer(ASerializer).WriteArray(''%s'', l_%0:s,%s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]))
+                          else if aLibrary.FindEnum(roexceptionEntity.DataType) <> nil  then
+                             Write(Format('    TROSerializer(ASerializer).WriteEnumerated(''%s'',TypeInfo(%s), l_%0:s);',[roexceptionEntity.Name,roexceptionEntity.DataType]))
+                          else
+                             Write(Format('    TROSerializer(ASerializer).WriteStruct(''%s'', l_%0:s,%s);',[roexceptionEntity.Name,GetDataType(roexceptionEntity.DataType)]))
+            end;
+          end;
+          Write('  end;');
+          Write('end;');
+        end;
+        roexceptionEntityList:=nil;
+        WriteEmptyLine;
+      end;
+    end;
+
+    for i := 0 to (aLibrary.ArrayCount-1) do if (not aLibrary.Arrays[i].IsFromUsedRodl) then
+      WriteArraySerializer(aLibrary, aLibrary.Arrays[i]);
+
+    for i := 0 to (aLibrary.StructCount-1) do if (not aLibrary.Structs[i].IsFromUsedRodl) then
+      WriteStructPropMethods(aLibrary, aLibrary.Structs[i]);
+
+    for i := 0 to (aLibrary.ServiceCount-1) do if (not aLibrary.Services[i].IsFromUsedRodl) then
+      WriteCoClass(aLibrary, aLibrary.Services[i]);
+
+    for i := 0 to (aLibrary.EventSinkCount-1) do if (not aLibrary.EventSinks[i].IsFromUsedRodl) then
+      WriteEventSink(aLibrary, aLibrary.EventSinks[i]);
+
+    Write('initialization');
+    for i := 0 to (aLibrary.Count-1) do
+      if ((aLibrary.Items[i] is TRODLArray) or (aLibrary.Items[i] is TRODLStruct)) and
+         (not aLibrary.Items[i].IsFromUsedRodl) then
+        Write('  RegisterROClass('+aLibrary.Items[i].Info.Name+');');
+
+    for i := 0 to (aLibrary.ExceptionCount-1) do if (not aLibrary.Exceptions[i].IsFromUsedRodl) then begin
+      Write(Format('RegisterExceptionClass(%s);',[aLibrary.Exceptions[i].Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+    for i := 0 to (aLibrary.Count-1) do
+      if (aLibrary.Items[i] is TRODLService) and not aLibrary.Items[i].IsFromUsedRodl then begin
+        Write('  RegisterProxyClass(I'+aLibrary.Items[i].Info.Name+'_IID, T'+aLibrary.Items[i].Info.Name+'_Proxy);');
+      end;
+
+    WriteEmptyLine;
+    with aLibrary do
+      for i := 0 to EventSinkCount-1 do
+        if (not EventSinks[i].IsFromUsedRodl) then begin
+          Write(Format('  RegisterEventWriterClass(I%s_Writer, T%s_Writer);', [EventSinks[i].Info.Name, EventSinks[i].Info.Name]));
+          Write(Format('  RegisterEventInvokerClass(EID_%s, T%s_Invoker);', [EventSinks[i].Info.Name, EventSinks[i].Info.Name]));
+        end;
+
+    with aLibrary do
+    begin
+      for i := 0 to EnumCount-1 do
+      for k := 0 to Enums[i].Count - 1 do
+        Write(Format('  RegisterEnumMapping(TROEnumMapping.Create(''%s'', ''%s'', ''%s''));',
+                      [Enums[i].Name, Enums[i].Items[k].Name, Enums[i].Items[k].OriginalName]));
+    end;
+
+    Write('');
+    Write('finalization');
+    for i := 0 to (aLibrary.Count-1) do
+      if ((aLibrary.Items[i] is TRODLArray) or (aLibrary.Items[i] is TRODLStruct)) and
+         (not aLibrary.Items[i].IsFromUsedRodl) then
+        Write('  UnregisterROClass('+aLibrary.Items[i].Info.Name+');');
+
+    for i := 0 to (aLibrary.ExceptionCount-1) do if (not aLibrary.Exceptions[i].IsFromUsedRodl) then begin
+      Write(Format('UnregisterExceptionClass(%s);',[aLibrary.Exceptions[i].Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+    for i := 0 to (aLibrary.Count-1) do
+      if (aLibrary.Items[i] is TRODLService) and not aLibrary.Items[i].IsFromUsedRodl then begin
+        Write('  UnregisterProxyClass(I'+aLibrary.Items[i].Info.Name+'_IID);');
+      end;
+
+    WriteEmptyLine;
+    with aLibrary do
+      for i := 0 to EventSinkCount-1 do
+        if (not EventSinks[i].IsFromUsedRodl) then begin
+          Write(Format('  UnregisterEventWriterClass(I%s_Writer);', [EventSinks[i].Info.Name]));
+          Write(Format('  UnregisterEventInvokerClass(EID_%s);', [EventSinks[i].Info.Name]));
+        end;
+
+    WriteEmptyLine;
+    if aLibrary.EnumCount > 0 then Write('  UnRegisterEnumMappings();');
+
+    //WriteEmptyLine;
+
+    {Write('finalization');
+    for i := 0 to (aLibrary.Count-1) do
+      if (aLibrary.Items[i] is TRODLArray) or (aLibrary.Items[i] is TRODLStruct)
+        then Write('  UnRegisterClass('+aLibrary.Items[i].Info.Name+');');
+
+    WriteEmptyLine;}
+
+    Write('end.');
+
+  finally
+    inheritedfields.Free;
+  end;
+end;
+
+procedure TRODLToIntf.WriteServiceConsts(aService : TRODLService);
+begin
+  with aService.Info do
+    // Writes additional SOAP information
+    if IsSOAPService(aService) then begin
+      Write(Format('  %s_EndPointURI = ''%s'';', [Name, Attributes.Values['Location']]));
+
+    end;
+end;
+
+procedure TRODLToIntf.WriteDocumentation(aInfo:TRODLEntity);
+var lDocumentation:string;
+begin
+  if aInfo.Documentation <> '' then begin
+    lDocumentation := aInfo.Documentation;
+    if Length(lDocumentation) < 1000 then
+      ReplaceChar(lDocumentation,['}','{', #13, #10],' ')
+    else begin
+      ReplaceChar(lDocumentation,['}','{'],' ');
+      lDocumentation:=StringReplace(lDocumentation,#10, #10'      ',[rfReplaceAll]);
+    end;
+
+    WriteEmptyLine;
+    Write('{ Description:',PASCAL_INDENTATION_LEVEL_1);
+    Write('    '+lDocumentation+' }',PASCAL_INDENTATION_LEVEL_1);
+  end;
+end;
+
+procedure TRODLToIntf.WriteOperationDocumentation(anOperation:TRODLOperation; IndentationLevel : integer);
+var lDocumentation:string;
+    i : integer;
+begin
+  if anOperation.Documentation <> '' then begin
+    lDocumentation := anOperation.Documentation;
+    if Length(lDocumentation) < 1000 then
+      ReplaceChar(lDocumentation,['}','{', #13, #10],' ')
+    else begin
+      ReplaceChar(lDocumentation,['}','{'],' ');
+      lDocumentation:=StringReplace(lDocumentation,#10, #10'      ',[rfReplaceAll]);
+    end;
+
+    WriteEmptyLine;
+    Write('{ Description:',IndentationLevel);
+    Write('    '+lDocumentation,IndentationLevel);
+    if (anOperation.Result<>NIL) then begin
+      Write('');
+      Write('  Return Type: '+GetDataType(anOperation.Result.DataType),IndentationLevel);
+    end;
+    Write('  Params',IndentationLevel);
+    for i := 0 to (anOperation.Count-1) do begin
+      Write('    '+IntToStr(i+1)+') '+anOperation[i].Name+' ('+GetDataType(anOperation[i].DataType)+') : '+anOperation[i].Documentation,IndentationLevel);
+    end;
+
+    Write('}',IndentationLevel);
+  end;
+end;
+
+procedure TRODLToIntf.WriteServiceDeclaration(aService : TRODLService);
+var i : integer;
+begin
+  if not aService.IsFromUsedRodl then with aService.Default do begin
+    Write(Format('{ I%s }', [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+
+    WriteDocumentation(aService);
+
+    if aService.Ancestor <> '' then begin
+      Write(Format('I%s = interface(I%s)', [aService.Info.Name,aService.Ancestor]), PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('I%s = interface', [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write(Format('[''%s'']', [GUIDToString(Info.UID)]), PASCAL_INDENTATION_LEVEL_2);
+
+    for i := 0 to (Count-1) do begin
+      WriteOperationDocumentation(Items[i], PASCAL_INDENTATION_LEVEL_2);
+      Write(GetOperationDefinition(Items[i]), PASCAL_INDENTATION_LEVEL_2);
+    end;
+
+    Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+    Write(Format('{ Co%s }', [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    Write(Format('Co%s = class', [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    Write(Format('class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): I%s;',
+                 [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_2);
+    Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+    Write(Format('{ T%s_Proxy }', [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    if aService.Ancestor <> '' then begin
+      Write(Format('T%s_Proxy = class(T%s_Proxy, I%s)', [aService.Info.Name, aService.Ancestor, aService.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('T%s_Proxy = class(TROProxy, I%s)', [aService.Info.Name, aService.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+    //Write('private',PASCAL_INDENTATION_LEVEL_1);
+    Write('protected',PASCAL_INDENTATION_LEVEL_1);
+    //Write('  // Internal',PASCAL_INDENTATION_LEVEL_1);
+    Write('  function __GetInterfaceName:string; override;',PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+    //Write(Format('  // %s', [aService.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+
+    for i := 0 to (Count-1) do
+      Write(GetOperationDefinition(Items[i]), PASCAL_INDENTATION_LEVEL_2);
+    Write('end;',PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+  end;
+end;
+
+procedure TRODLToIntf.WriteEventSinkDeclaration(aEventSink : TRODLEventSink);
+var i : integer;
+begin
+  if not aEventSink.IsFromUsedRodl then with aEventSink.Default do begin
+    { Client events }
+    Write(Format('{ I%s }', [aEventSink.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    WriteDocumentation(aEventSink);
+    if aEventSink.Ancestor <> '' then begin
+      Write(Format('I%s = interface(I%s)', [aEventSink.Info.Name,aEventSink.Ancestor]), PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('I%s = interface', [aEventSink.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write(Format('[''%s'']', [GUIDToString(Info.UID)]), PASCAL_INDENTATION_LEVEL_2);
+
+    for i := 0 to (Count-1) do begin
+      WriteOperationDocumentation(Items[i], PASCAL_INDENTATION_LEVEL_2);
+      Write(GetOperationDefinition(Items[i]), PASCAL_INDENTATION_LEVEL_2);
+    end;
+
+    Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+    { Events writer }
+    Write(Format('{ I%s_Writer }', [aEventSink.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    WriteDocumentation(aEventSink);
+    if aEventSink.Ancestor <> '' then begin
+      Write(Format('I%s_Writer = interface(I%s_Writer)', [aEventSink.Info.Name,aEventSink.Ancestor]), PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('I%s_Writer = interface(IROEventWriter)', [aEventSink.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write(Format('[''%s'']', [GUIDToString(Info.UID){GUIDToString(NewUID)}]), PASCAL_INDENTATION_LEVEL_2);
+
+    for i := 0 to (Count-1) do begin
+      Write(GetOperationDefinition(Items[i], '', '', TRUE), PASCAL_INDENTATION_LEVEL_2);
+    end;
+
+    Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+  end;
+end;
+
+procedure TRODLToIntf.WriteEventSink(aLibrary : TRODLLibrary; aEventSink : TRODLEventSink);
+
+   function isNeedObjectDisposer(AOperation: TRODLOperation):Boolean;
+   var
+     j: Integer;
+   begin
+     Result := False;
+     for j := 0 to AOperation.Count - 1 do begin
+       Result :=  not IsSimpleType(GetDataType(AOperation.Items[j].DataType), aLibrary);
+       if Result then Exit;
+     end;
+   end;
+
+var i, x : integer;
+    parline, typname : string;
+    par : TRODLOperationParam;
+    lNeedDisposer: Boolean;
+begin
+  if not aEventSink.IsFromUsedRodl then with aEventSink.Default do begin
+    { -------------------------- EVENT WRITER -------------------------- }
+    Write('type');
+
+    { Event writer class }
+    Write(Format('{ T%s_Writer }', [aEventSink.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    if aEventSink.Ancestor <> '' then begin
+      Write(Format('T%s_Writer = class(T%s_Writer, I%s_Writer)', [aEventSink.Info.Name, aEventSink.Ancestor, aEventSink.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('T%s_Writer = class(TROEventWriter, I%s_Writer)', [aEventSink.Info.Name, aEventSink.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+    //Write('private',PASCAL_INDENTATION_LEVEL_1);
+    Write('protected',PASCAL_INDENTATION_LEVEL_1);
+    //Write('  // Internal',PASCAL_INDENTATION_LEVEL_1);
+    //Write(Format('  // %s', [aEventSink.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+
+    for i := 0 to (Count-1) do
+      Write(GetOperationDefinition(Items[i], '', '', TRUE), PASCAL_INDENTATION_LEVEL_2);
+    Write('end;',PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+    { Actual methods }
+    for i := 0 to (Count-1) do begin
+      Write(GetOperationDefinition(Items[i], 'T'+aEventSink.Info.Name+'_Writer', '', TRUE));
+      Write('var __eventdata : Binary;');
+
+      Write('begin');
+      Write('  __eventdata := Binary.Create;');
+      Write('  try');
+      Write(Format('    __Message.InitializeEventMessage(NIL, ''%s'', EID_%s, ''%s'');', [aLibrary.Name, aEventSink.Info.Name, Items[i].Info.Name]));
+
+      { Write parameters }
+      for x := 0 to (Items[i].Count-1) do begin
+        par := Items[i].Items[x];
+        typname := GetDataType(par.DataType);
+
+{        if IsUserDefinedType(typname,aLibrary) then begin
+          typname := GetFullyQualifiedTypeName(typname,aLibrary,fIntfUnitName);
+        end;}
+        Write(Format('    __Message.Write(''%s'', TypeInfo(%s), %s, []);', [par.Name, typname, par.Name]));
+      end;
+
+      Write('    __Message.Finalize;');
+      WriteEmptyLine;
+      Write('    __Message.WriteToStream(__eventdata);');
+      WriteEmptyLine;
+      Write('    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);');
+      Write('  finally');
+      Write('    __eventdata.Free;');
+      Write('  end;');
+      Write('end;');
+      WriteEmptyLine;
+    end;
+
+    { -------------------------- INVOKER -------------------------- }
+    Write('type');
+
+    { Event invoker class }
+    Write(Format('{ T%s_Invoker }', [aEventSink.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+    if aEventSink.Ancestor <> '' then begin
+      Write(Format('T%s_Invoker = class(T%s_Invoker)', [aEventSink.Info.Name, aEventSink.Ancestor]),PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('T%s_Invoker = class(TROEventInvoker)', [aEventSink.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write('published',PASCAL_INDENTATION_LEVEL_1);
+
+    for i := 0 to (Count-1) do
+      Write('procedure Invoke_'+Items[i].Info.Name+'(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);', PASCAL_INDENTATION_LEVEL_2);
+
+
+    Write('end;',PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+    { Actual methods }
+
+    for i := 0 to (Count-1) do begin
+      Write(Format('procedure T%s_Invoker.Invoke_%s(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);',
+             [aEventSink.Info.Name, Items[i].Info.Name]));
+      //Write(GetOperationDefinition(Items[i], 'T'+aEventSink.Info.Name+'_Invoker', '', FALSE));
+
+      { Write local variables }
+      lNeedDisposer := isNeedObjectDisposer(Items[i]);
+      if lNeedDisposer or (Items[i].Count>0) then Write('var');
+      if lNeedDisposer then Write('__lObjectDisposer: TROObjectDisposer;');
+      if (Items[i].Count>0) then begin
+        for x := 0 to (Items[i].Count-1) do begin
+          par := Items[i].Items[x];
+          typname := GetDataType(par.DataType);
+
+  {        if IsUserDefinedType(typname,aLibrary) then begin
+            typname := GetFullyQualifiedTypeName(typname,aLibrary,fIntfUnitName);
+          end;}
+          Write(Format('  %s: %s;', [par.Name, typname]));
+        end;
+      end;
+
+      Write('begin');
+
+      for x := 0 to Items[i].Count-1 do begin
+        par := Items[i].Items[x];
+        typname := GetDataType(par.DataType);
+
+        if not IsSimpleType(typname, aLibrary)
+          then Write(Format('  %s := NIL;', [par.Name]));
+      end;
+      if Items[i].Count>0 then WriteEmptyLine;
+
+      if lNeedDisposer then Write('try', PASCAL_INDENTATION_LEVEL_1);
+      parline := '';
+      { Readers local variables values }
+      if (Items[i].Count>0) then begin
+        for x := 0 to (Items[i].Count-1) do begin
+          par := Items[i].Items[x];
+          parline := parline+par.Name+', ';
+
+          typname := GetDataType(par.DataType);
+
+  {        if IsUserDefinedType(typname,aLibrary) then begin
+            typname := GetFullyQualifiedTypeName(typname,aLibrary,fIntfUnitName);
+          end;}
+
+          Write(Format('__Message.Read(''%s'', TypeInfo(%s), %s, []);', [par.Name, typname, par.Name]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+      end;
+
+      WriteEmptyLine;
+      parline := Copy(parline, 1, Length(parline)-2);
+      Write(Format('(__Target as I%s).%s(%s);',
+            [aEventSink.Info.Name, Items[i].Info.Name, parline]), PASCAL_INDENTATION_LEVEL_2);
+      WriteEmptyLine;
+
+      if lNeedDisposer then begin
+        Write('finally', PASCAL_INDENTATION_LEVEL_1);
+        Write('__lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);', PASCAL_INDENTATION_LEVEL_2);
+        Write('try', PASCAL_INDENTATION_LEVEL_2);
+        for x := 0 to Items[i].Count-1 do begin
+          par := Items[i].Items[x];
+          typname := GetDataType(par.DataType);
+
+          if not IsSimpleType(typname, aLibrary)
+            then Write('__lObjectDisposer.Add('+par.Name+');', PASCAL_INDENTATION_LEVEL_3);
+        end;
+        Write('finally', PASCAL_INDENTATION_LEVEL_2);
+        Write('__lObjectDisposer.Free();', PASCAL_INDENTATION_LEVEL_3);
+        Write('end', PASCAL_INDENTATION_LEVEL_2);
+        Write('end', PASCAL_INDENTATION_LEVEL_1);
+      end;
+      Write('end;');
+      WriteEmptyLine;
+    end;
+  end;
+end;
+
+class function TRODLToIntf.GetTargetFileName(const aLibrary: TRODLLibrary;
+  const aTargetEntity: string): string;
+begin
+  try
+    result := aLibrary.Info.Name+'_Intf.pas'
+  except
+    result := 'Unknown.pas';
+  end;
+end;
+
+const
+  InnerIndent = 4;
+
+procedure TRODLToIntf.WriteCoClass(aLibrary: TRODLLibrary; aService: TRODLService);
+var i, p : integer;
+    sa : string;
+//    soapsvc : boolean;
+    typname : string;
+//    urn : string;
+begin
+  with aService.Default do begin
+//    soapsvc := IsSOAPService(aService);
+
+    Write('{ Co'+aService.Info.Name+' }');
+    WriteEmptyLine;
+
+    Write(Format('class function Co%s.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): I%s;',
+          [aService.Info.Name, aService.Info.Name]));
+    Write('begin');
+    Write(Format('  result := T%s_Proxy.Create(aMessage, aTransportChannel);', [aService.Info.Name]));
+    Write('end;');
+    WriteEmptyLine;
+
+    if Count > 0 then begin
+      Write(Format('{ T%s_Proxy }', [aService.Info.Name]));
+      WriteEmptyLine;
+    end;
+
+    Write(Format('function T%s_Proxy.__GetInterfaceName:string;',[aService.Info.Name]));
+    Write('begin');
+    Write(Format('  result := ''%s'';',[aService.Info.Name]));
+    Write('end;');
+    WriteEmptyLine;
+
+    for i := 0 to (Count-1) do begin
+      Write(GetOperationDefinition(Items[i], Format('T%s_Proxy', [aService.Info.Name])));
+//      Write('var');
+//      Write('  __request, __response : TMemoryStream;');
+      //if soapsvc then write('var');
+      //if soapsvc then Write('    __http : IROHTTPTransport;');
+      //if soapsvc then Write('    __TargetUrlWasSet : boolean;');
+      Write('begin');
+      //if soapsvc then Write('__TargetUrlWasSet := false;',PASCAL_INDENTATION_LEVEL_1);
+
+      sa := GetAttributes(Items[i].Info.Attributes, aService.Info.Attributes, aLibrary.Info.Attributes, InnerIndent);
+      if sa <> '' then
+        Write('__Message.SetAttributes(__TransportChannel, '+sa+');', InnerIndent);
+      write('try', PASCAL_INDENTATION_LEVEL_1);
+
+      with Items[i] do begin
+        for p := 0 to (Count-1) do
+          if (Items[p].Flag = fOut) and IsImplementedAsClass(Items[p].DataType, aLibrary) then
+            Write(Format('%s := nil;', [Items[p].Name]),PASCAL_INDENTATION_LEVEL_2);
+        if Assigned(Result) and IsImplementedAsClass(Result.DataType, aLibrary) then
+            Write('result := nil;', PASCAL_INDENTATION_LEVEL_2);
+      end;
+
+//      Write('__request := TMemoryStream.Create;',PASCAL_INDENTATION_LEVEL_1);
+//      Write('__response := TMemoryStream.Create;',PASCAL_INDENTATION_LEVEL_1);
+//      WriteEmptyLine;
+//      Write('try',PASCAL_INDENTATION_LEVEL_1);
+
+(*      if soapsvc then begin
+        urn := Items[i].Info.Attributes.Values['Action'];
+        if (urn='') then urn := Items[0].Info.Attributes.Values['InputNamespace']; // Apache ones...
+
+        if Items[i].Info.Attributes.Values['InputMessageName'] <> '' then
+          Write(Format('__Message.InitializeRequestMessage(__TransportChannel, ''%s'', TargetNamespace, ''%s'');', [aLibrary.Info.Name, Items[i].Info.Attributes.Values['InputMessageName']]),InnerIndent)
+        else
+          Write(Format('__Message.InitializeRequestMessage(__TransportChannel, ''%s'', TargetNamespace, ''%s'');', [aLibrary.Info.Name, Items[i].Info.Name]),InnerIndent);
+
+        WriteEmptyLine;
+        Write('if Supports(__TransportChannel, IROHTTPTransport, __http) then begin',InnerIndent);
+        Write(Format('  __http.Headers[''SOAPAction''] := ''"%s"'';', [Items[i].Info.Attributes.Values['Action']]),InnerIndent);
+        Write('  __TargetUrlWasSet := (__http.TargetURL='''');',InnerIndent);
+        Write(Format('  if __TargetUrlWasSet then __http.TargetURL := %s_EndPointURI;', [aService.Info.Name]),InnerIndent);
+        Write('end;',InnerIndent);
+        WriteEmptyLine;
+      end
+      else begin
+        //Write(Format('__Message.Initialize(__TransportChannel, ''%s'', ''%s'', ''%s'');', [aLibrary.Info.Name, aService.Info.Name, Items[i].Info.Name]),InnerIndent);
+        if Items[i].Info.Attributes.Values['InputMessageName'] <> '' then
+          Write(Format('__Message.InitializeRequestMessage(__TransportChannel, ''%s'', __InterfaceName, ''%s'');', [aLibrary.Info.Name, Items[i].Info.Attributes.Values['InputMessageName']]),InnerIndent)
+        else*)
+      Write(Format('__Message.InitializeRequestMessage(__TransportChannel, ''%s'', __InterfaceName, ''%s'');', [aLibrary.Info.Name, Items[i].Info.Name]),InnerIndent);
+(*      end;*)
+
+      with Items[i] do begin
+        for p := 0 to (Count-1) do
+          if IsInputFlag(Items[p].Flag) then begin
+            if (StrToDataType(Items[p].DataType)=rtDateTime)
+              then sa := '[paIsDateTime]'
+              else sa := '[]';
+
+
+            typname := GetDataType(Items[p].DataType);
+            if IsUserDefinedType(typname,aLibrary) then begin
+              typname := GetFullyQualifiedTypeName(typname,aLibrary,fUnitName);
+            end;
+
+            Write(Format('__Message.Write(''%s'', TypeInfo(%s), %s, %s);',
+                            [Items[p].Name, typname, Items[p].Name, sa]),InnerIndent);
+          end;
+      end;
+      Write('__Message.Finalize;',InnerIndent);
+      WriteEmptyLine;
+
+//      Write('__Message.WriteToStream(__request);',InnerIndent);
+//      Write('__TransportChannel.Dispatch(__request, __response);',InnerIndent);
+//      Write('__Message.ReadFromStream(__response);',InnerIndent);
+      Write('__TransportChannel.Dispatch(__Message);',InnerIndent);
+//      with Items[i] do begin
+//        for p := 0 to (Count-1) do
+//          if (Items[p].Flag = fIn) and (IsImplementedAsClass(Items[p].DataType, aLibrary)) then
+//            Write(Format('%s.Free;', [Items[p].Name]),PASCAL_INDENTATION_LEVEL_2);
+//      end;
+      WriteEmptyLine;
+
+      //Write(Format('Message.Initialize(''I%s'', ''%s'');', [aService.Name, Items[i].Name]),InnerIndent);
+      with Items[i] do begin
+
+        if Assigned(Result) then begin
+          if (StrToDataType(Result.DataType)=rtDateTime)
+            then sa := '[paIsDateTime]'
+            else sa := '[]';
+
+          typname := GetDataType(Result.DataType);
+          if IsUserDefinedType(typname,aLibrary) then begin
+            typname := GetFullyQualifiedTypeName(typname,aLibrary,fUnitName);
+          end;
+
+          Write(Format('__Message.Read(''%s'', TypeInfo(%s), result, %s);',
+                       [Result.Name, typname, sa]),InnerIndent);
+        end;
+
+        for p := 0 to (Count-1) do
+          if IsOutputFlag(Items[p].Flag) then begin
+
+            if (StrToDataType(Items[p].DataType)=rtDateTime)
+              then sa := '[paIsDateTime]'
+              else sa := '[]';
+
+            typname := GetDataType(Items[p].DataType);
+            if IsUserDefinedType(typname,aLibrary) then begin
+              typname := GetFullyQualifiedTypeName(typname,aLibrary,fUnitName);
+            end;
+
+            Write(Format('__Message.Read(''%s'', TypeInfo(%s), %s, %s);',
+                         [Items[p].Name, typname, Items[p].Name, sa]),InnerIndent);
+          end;
+      end;
+      //Write('Message.Finalize;',InnerIndent);
+
+      Write('  finally');
+(*      if soapsvc then begin
+        Write('  if Supports(__TransportChannel, IROHTTPTransport, __http) then begin',InnerIndent);
+        Write('    if __TargetUrlWasSet then __http.TargetURL := '''';',InnerIndent);
+        Write('  end;',InnerIndent);
+        WriteEmptyLine;
+      end;*)
+      if sa <> '' then
+        Write('    __Message.UnsetAttributes(__TransportChannel);');
+      Write('    __Message.FreeStream;');
+//      Write('    __response.Free;');
+      Write('  end');
+      Write('end;');
+      WriteEmptyLine;
+    end;
+
+  end;
+end;
+
+function TRODLToIntf.IsSOAPService(aService: TRODLService): boolean;
+begin
+  result := aService.Attributes.Values['Type'] = 'SOAP';
+end;
+
+procedure TRODLToIntf.WriteTypeDeclaration(aLibrary: TRODLLibrary; aType: TRODLEntity);
+var
+  i : integer;
+  AList: TStringList;
+  s,s1: string;
+  lNeedInitSimpleTypeWithDefaultValues: boolean;
+begin
+  Write(Format('{ %s }', [aType.Name]), PASCAL_INDENTATION_LEVEL_1);
+  // Structs
+  if (aType is TRODLStruct) then with TRODLStruct(aType) do begin
+
+    WriteDocumentation(aType);
+    if Ancestor <> '' then begin
+      Write(Format('%s = class(%s)', [Name,Ancestor]),PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('%s = class(TROComplexType)', [Name]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+    if Count > 0 then begin
+
+      Write('private',PASCAL_INDENTATION_LEVEL_1);
+      for i := 0 to (Count-1) do begin
+        Write(Format('f%s: %s;', [Items[i].Name, GetDataType(Items[i].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+      end;
+      //WriteEmptyLine;
+      lNeedInitSimpleTypeWithDefaultValues := False;
+      for i := 0 to (Count-1) do begin
+        //if IsStruct(Items[i].DataType, aLibrary) or IsArray(Items[i].DataType, aLibrary) then begin
+        if IsImplementedAsClass(Items[i].DataType, aLibrary) then begin
+          //Write(Format('procedure Set%s(Value : %s);', [Items[i].Name, Items[i].DataType]), PASCAL_INDENTATION_LEVEL_2);
+          Write(Format('function Get%s: %s;', [Items[i].Name, GetDataType(Items[i].DataType)]), PASCAL_INDENTATION_LEVEL_2);
+        end
+        else begin
+          lNeedInitSimpleTypeWithDefaultValues := lNeedInitSimpleTypeWithDefaultValues or (Items[i].Attributes.IndexOfName('Default') <> -1);
+        end;
+      end;
+
+      Write('public',PASCAL_INDENTATION_LEVEL_1);
+      if lNeedInitSimpleTypeWithDefaultValues then begin
+        Write('constructor Create(aCollection : TCollection); override;', PASCAL_INDENTATION_LEVEL_2);
+      end;
+      if aType.Attributes.Count > 0 then begin
+        Write('class function GetAttributeCount: Integer; override;', PASCAL_INDENTATION_LEVEL_2);
+        Write('class function GetAttributeName(aIndex: Integer): string; override;', PASCAL_INDENTATION_LEVEL_2);
+        Write('class function GetAttributeValue(aIndex: Integer): string; override;', PASCAL_INDENTATION_LEVEL_2);
+        WriteEmptyLine;
+      end;
+      {Write('  constructor Create; override;',PASCAL_INDENTATION_LEVEL_1);
+      Write('  destructor Destroy; override;',PASCAL_INDENTATION_LEVEL_1);}
+        Write('procedure Assign(iSource: TPersistent); override;',PASCAL_INDENTATION_LEVEL_2);
+      if (CalcItemsMarshalingOrder(True).Count>0) and (Count > 0) then begin
+        Write('procedure ReadComplex(ASerializer: TObject); override;',PASCAL_INDENTATION_LEVEL_2);
+        Write('procedure WriteComplex(ASerializer: TObject); override;',PASCAL_INDENTATION_LEVEL_2);
+      end;
+      //WriteEmptyLine;
+      Write('published',PASCAL_INDENTATION_LEVEL_1);
+      for i := 0 to (Count-1) do begin
+        //if IsStruct(Items[i].DataType, aLibrary) or IsArray(Items[i].DataType, aLibrary)
+        WriteDocumentation(Items[i]);
+        if IsImplementedAsClass(Items[i].DataType, aLibrary) then begin
+          Write(Format('property %s:%s read Get%s write f%s;',
+                [Items[i].Name, GetDataType(Items[i].DataType), Items[i].Name, Items[i].Name]), PASCAL_INDENTATION_LEVEL_2)
+        end
+        else begin
+          Write(Format('property %s:%s read f%s write f%s;',
+                [Items[i].Name, GetDataType(Items[i].DataType), Items[i].Name, Items[i].Name]), PASCAL_INDENTATION_LEVEL_2);
+        end;
+      end;
+      //WriteEmptyLine;
+    end;
+    Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+
+    // Adds also a collection. This is handy when dealing with VCL wrappers
+    Write(Format('{ %sCollection }', [aType.Name]), PASCAL_INDENTATION_LEVEL_1);
+    if Ancestor <> '' then begin
+      Write(Format('%sCollection = class(%sCollection)', [Name,Ancestor]),PASCAL_INDENTATION_LEVEL_1);
+    end
+    else begin
+      Write(Format('%sCollection = class(TROCollection)', [Name]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+    Write('protected', PASCAL_INDENTATION_LEVEL_1);
+    Write('constructor Create(aItemClass: TCollectionItemClass); overload;', PASCAL_INDENTATION_LEVEL_2);
+    Write(Format('function GetItems(aIndex: integer): %s;', [Name]), PASCAL_INDENTATION_LEVEL_2);
+    Write(Format('procedure SetItems(aIndex: integer; const Value: %s);', [Name]), PASCAL_INDENTATION_LEVEL_2);
+    Write('public', PASCAL_INDENTATION_LEVEL_1);
+    Write('constructor Create; overload;', PASCAL_INDENTATION_LEVEL_2);
+
+    Write(Format('function Add: %s; reintroduce;', [Name]), PASCAL_INDENTATION_LEVEL_2);
+
+    aList := TStringList.Create;
+    try
+      aLibrary.GetArraysByElement(Name,aList);
+      aList.Sorted:=True;
+      if aList.Count > 1 then s:= ' overload;' else s:='';
+      s1 := '';
+      for i:=0 to aList.Count-1 do begin
+        if aList[i] = s1 then continue;
+        s1 := aList[i];
+        Write(Format('procedure SaveToArray(anArray: %s);'+s, [aList[i]]), PASCAL_INDENTATION_LEVEL_2);
+        Write(Format('procedure LoadFromArray(anArray: %s);'+s, [aList[i]]), PASCAL_INDENTATION_LEVEL_2);
+      end;
+    finally
+      aList.Free;
+    end;
+
+    Write(Format('property Items[Index: integer]:%s read GetItems write SetItems; default;', [Name]), PASCAL_INDENTATION_LEVEL_2);
+    Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+  end
+
+  // Arrays
+  else if (aType is TRODLArray) then with TRODLArray(aType) do begin
+    WriteDocumentation(aType);
+    Write(Format('%s_%s = array of %s;', [Name, GetDataType(ElementType),GetDataType(ElementType)]), PASCAL_INDENTATION_LEVEL_1);
+    Write(Format('%s = class(TROArray)', [Name]),PASCAL_INDENTATION_LEVEL_1);
+    Write('private',PASCAL_INDENTATION_LEVEL_1);
+
+    Write('  fCount: Integer;', PASCAL_INDENTATION_LEVEL_1);
+
+    Write(Format('  fItems : %s_%s;', [Name, GetDataType(ElementType)]), PASCAL_INDENTATION_LEVEL_1);
+    Write('protected',PASCAL_INDENTATION_LEVEL_1);
+
+    Write('procedure Grow; virtual;',PASCAL_INDENTATION_LEVEL_2);
+
+    Write(Format('function GetItems(aIndex: integer): %s;', [GetDataType(ElementType)]),PASCAL_INDENTATION_LEVEL_2);
+    Write(Format('procedure SetItems(aIndex: integer; const Value: %s);', [GetDataType(ElementType)]),PASCAL_INDENTATION_LEVEL_2);
+    Write('function GetCount: integer; override;',PASCAL_INDENTATION_LEVEL_2);
+    Write('public',PASCAL_INDENTATION_LEVEL_1);
+    if aType.Attributes.Count > 0 then begin
+      Write('class function GetAttributeCount: Integer; override;', PASCAL_INDENTATION_LEVEL_2);
+      Write('class function GetAttributeName(aIndex: Integer): string; override;', PASCAL_INDENTATION_LEVEL_2);
+      Write('class function GetAttributeValue(aIndex: Integer): string; override;', PASCAL_INDENTATION_LEVEL_2);
+    end;
+    Write('class function GetItemType: PTypeInfo; override;',PASCAL_INDENTATION_LEVEL_2);
+    if IsImplementedAsClass(GetDataType(ElementType), aLibrary) then begin
+      Write('class function GetItemClass: TClass; override;',PASCAL_INDENTATION_LEVEL_2);
+    end;
+    Write('class function GetItemSize: integer; override;',PASCAL_INDENTATION_LEVEL_2);
+    WriteEmptyLine;
+    Write('  function GetItemRef(aIndex: integer): pointer; override;',PASCAL_INDENTATION_LEVEL_1);
+    if not IsSimpleType(GetDataType(ElementType),aLibrary) then begin
+      Write('  procedure SetItemRef(aIndex: integer; Ref: pointer); override;',PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write('  procedure Clear; override;',PASCAL_INDENTATION_LEVEL_1);
+    Write('  procedure Delete(aIndex: integer); override;',PASCAL_INDENTATION_LEVEL_1);
+
+    Write('  procedure Resize(ElementCount: integer); override;',PASCAL_INDENTATION_LEVEL_1);
+
+    WriteEmptyLine;
+
+    Write('procedure Assign(iSource:TPersistent); override;',PASCAL_INDENTATION_LEVEL_2);
+    Write('procedure ReadComplex(ASerializer: TObject); override;',PASCAL_INDENTATION_LEVEL_2);
+    Write('procedure WriteComplex(ASerializer: TObject); override;',PASCAL_INDENTATION_LEVEL_2);
+
+    if IsSimpleType(GetDataType(ElementType), aLibrary) then begin
+      Write(Format('  function Add(const Value:%s): integer;', [GetDataType(ElementType)]), PASCAL_INDENTATION_LEVEL_1);
+      Write('function GetIndex(const aPropertyName : string;',PASCAL_INDENTATION_LEVEL_2);
+      Write('                  const aPropertyValue : Variant;',PASCAL_INDENTATION_LEVEL_2);
+      Write('                  StartFrom : integer = 0;',PASCAL_INDENTATION_LEVEL_2);
+      Write('                  Options : TROSearchOptions = [soIgnoreCase]) : integer; override;',PASCAL_INDENTATION_LEVEL_2);
+    end
+    else begin
+      Write(Format('  function Add: %s; overload;', [GetDataType(ElementType)]), PASCAL_INDENTATION_LEVEL_1);
+      Write(Format('  function Add(const Value: %s):integer; overload;', [GetDataType(ElementType)]), PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+    WriteEmptyLine;
+    Write('  property Count : integer read GetCount;',PASCAL_INDENTATION_LEVEL_1);
+    Write(Format('  property Items[Index: integer]:%s read GetItems write SetItems; default;', [GetDataType(ElementType)]), PASCAL_INDENTATION_LEVEL_1);
+    Write(Format('  property InnerArray: %s_%s read fItems;', [Name, GetDataType(ElementType)]), PASCAL_INDENTATION_LEVEL_1);
+    //WriteEmptyLine;
+    Write('end;',PASCAL_INDENTATION_LEVEL_1);
+    WriteEmptyLine;
+  end;
+end;
+
+
+procedure TRODLToIntf.WriteArraySerializer(aLibrary : TRODLLibrary; anArray : TRODLArray);
+var
+  lAsClass: boolean;
+begin
+  with anArray do begin
+    Write('{ '+Name+' }');
+    WriteEmptyLine;
+
+    if anArray.Attributes.Count > 0 then WriteAttributesMethods(anArray);
+    lAsClass := IsImplementedAsClass(GetDataType(ElementType), aLibrary);
+    Write(Format('procedure %s.Assign(iSource: TPersistent);',[Name]));
+    Write(Format('var lSource:%s;',[Name]));
+    Write(      '    i:integer;');
+    if lAsClass then Write(Format('    lItem:%s;',[GetDataType(ElementType)]));
+    Write('begin');
+    Write(Format('  if (iSource is %s) then begin',[Name]));
+    Write(Format('    lSource := %s(iSource);',[Name]));
+    Write('    Clear();');
+    WriteEmptyLine;
+    if lAsClass then begin
+      Write(       '    for i := 0 to lSource.Count-1 do');
+      Write(       '      if Assigned(lSource.Items[i]) then begin');
+      Write(Format('        lItem := %s(lSource.Items[i].ClassType.Create);',[GetDataType(ElementType)]));
+      Write(       '        lItem.Assign(lSource.Items[i]);');
+      Write(       '        Add(lItem);');
+      Write(       '      end');
+      Write(       '      else begin');
+      Write(       '        Add(nil);');
+      Write(       '      end;');
+    end
+    else begin
+      Write('    Resize(lSource.Count);');
+      Write('    for i := 0 to lSource.Count-1 do');
+      Write('      Items[i] := lSource.Items[i];');
+    end;
+    Write('  end');
+    Write('  else begin');
+    Write('    inherited Assign(iSource);');
+    Write('  end;');
+    Write('end;');
+    WriteEmptyLine;
+
+    // GetItemType
+    Write(Format('class function %s.GetItemType: PTypeInfo;', [Name]));
+    Write('begin');
+    Write(Format('  result := TypeInfo(%s);', [GetDataType(ElementType)]));
+    Write('end;');
+    WriteEmptyLine;
+
+    // GetItemClass
+    if IsImplementedAsClass(GetDataType(ElementType), aLibrary) then begin
+      Write(Format('class function %s.GetItemClass: TClass;', [Name]));
+      Write(       'begin');
+      Write(Format('  result := %s;', [GetDataType(ElementType)]));
+      Write(       'end;');
+      WriteEmptyLine;
+    end;
+
+    // GetItemSize
+    Write(Format('class function %s.GetItemSize: integer;', [Name]));
+    Write('begin');
+    Write(Format('  result := SizeOf(%s);', [GetDataType(ElementType)]));
+    Write('end;');
+    WriteEmptyLine;
+
+    // GetItems
+    Write(Format('function %s.GetItems(aIndex: integer): %s;', [Name, GetDataType(ElementType)]));
+    Write('begin');
+    Write('  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);');
+    Write('  result := fItems[aIndex];');
+    Write('end;');
+    WriteEmptyLine;
+
+    // GetItemRef
+    Write(Format('function %s.GetItemRef(aIndex: integer): pointer;', [Name]));
+    Write('begin');
+    Write('  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);');
+    if IsSimpleType(GetDataType(ElementType), aLibrary)
+      then Write('  result := @fItems[aIndex];')
+      else Write('  result := fItems[aIndex];');
+    Write('end;');
+    WriteEmptyLine;
+
+    // SetItemRef
+    if not IsSimpleType(GetDataType(ElementType), aLibrary) then begin
+      Write(Format('procedure %s.SetItemRef(aIndex: integer; Ref: pointer);', [Name]));
+      Write('begin');
+      Write('  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);');
+      Write('  if Ref <> fItems[aIndex] then begin');
+      write('    if fItems[aIndex] <> nil then fItems[aIndex].Free;');
+      Write('    fItems[aIndex] := Ref;');
+      write('  end;');
+      Write('end;');
+      WriteEmptyLine;
+    end;
+
+    // Clear
+    Write(Format('procedure %s.Clear;', [Name]));
+    if not IsSimpleType(GetDataType(ElementType), aLibrary) then Write('var i: integer;');
+    Write('begin');
+    if not IsSimpleType(GetDataType(ElementType), aLibrary) then Write('  for i := 0 to (Count-1) do fItems[i].Free();');
+    Write('  SetLength(fItems, 0);');
+
+    Write('  FCount := 0;');
+
+    Write('end;');
+    WriteEmptyLine;
+
+    // Delete
+    Write(Format('procedure %s.Delete(aIndex: integer);', [Name]));
+    //if not IsSimpleType(ElementType) then Write('  for i := 0 to (Count-1) do fItems[i].Free;');
+    Write('var i: integer;');
+    Write('begin');
+    Write('  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);');
+    WriteEmptyLine;
+    if not IsSimpleType(GetDataType(ElementType), aLibrary) then begin
+      Write('  fItems[aIndex].Free();');
+      WriteEmptyLine;
+    end;
+    //ToDo: thic can probably be optimized???
+    Write('  if (aIndex<Count-1) then');
+    Write('    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];'); // fixed from Count-1 to solve read bayond end of array.
+    WriteEmptyLine;
+    Write('  SetLength(fItems, Count-1);');
+
+    Write('  Dec(FCount);');
+
+    Write('end;');
+    WriteEmptyLine;
+
+    // SetItems
+    Write(Format('procedure %s.SetItems(aIndex: integer; const Value: %s);', [Name, GetDataType(ElementType)]));
+    Write('begin');
+    Write('  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);');
+    if not IsSimpleType(GetDataType(ElementType), aLibrary) then begin
+      Write('  if fItems[aIndex] <> Value then begin');
+      Write('    fItems[aIndex].Free;');
+      Write('    fItems[aIndex] := Value;');
+      Write('  end;');
+    end
+    else begin
+      Write('  fItems[aIndex] := Value;');
+    end;
+    Write('end;');
+    WriteEmptyLine;
+
+    // Resize
+    Write(Format('procedure %s.Resize(ElementCount: integer);', [Name]));
+    if not IsSimpleType(GetDataType(ElementType), aLibrary) then begin
+      Write('var i: Integer;');
+    end;
+    Write('begin');
+    Write('  if fCount = ElementCount then Exit;');
+    if not IsSimpleType(GetDataType(ElementType), aLibrary) then begin
+      write('  for i := FCount -1 downto ElementCount do');
+      Write('    FItems[i].Free;');
+    end;
+    Write('  SetLength(fItems, ElementCount);');
+    if not IsSimpleType(GetDataType(ElementType), aLibrary) then begin
+      Write('  for i := FCount to ElementCount -1 do');
+      write(Format('    FItems[i] := %s.Create;', [GetDataType(ElementType)]));
+    end;
+    Write('  FCount := ElementCount;');
+    Write('end;');
+    WriteEmptyLine;
+
+    // GetCount
+    Write(Format('function %s.GetCount: integer;', [Name]));
+    Write('begin');
+
+    //Write('  result := Length(fItems);');
+    Write('  result := FCount;');
+
+    Write('end;');
+    WriteEmptyLine;
+
+    // Grow
+    Write(Format('procedure %s.Grow;', [Name]));
+    Write('var');
+    Write('  Delta, Capacity: Integer;');
+    Write('begin');
+    Write('  Capacity := Length(fItems);');
+    Write('  if Capacity > 64 then');
+    Write('    Delta := Capacity div 4');
+    Write('  else');
+    Write('    if Capacity > 8 then');
+    Write('      Delta := 16');
+    Write('   else');
+    Write('      Delta := 4;');
+    Write('  SetLength(fItems, Capacity + Delta);');
+    Write('end;');
+    WriteEmptyLine;
+
+    // Add
+    if IsSimpleType(GetDataType(ElementType), aLibrary) then begin
+      Write(Format('function %s.Add(const Value: %s): integer;', [Name, GetDataType(ElementType)]));
+      Write('begin');
+
+      //Write('  SetLength(fItems, Length(fItems)+1);');
+      //Write('  result := Length(fItems)-1;');
+      //Write('  fItems[result] := Value;');
+      Write('  Result := Count;');
+      Write('  if Length(fItems) = Result then');
+      Write('    Grow;');
+      Write('  fItems[result] := Value;');
+      Write('  Inc(fCount);');
+
+      Write('end;');
+      WriteEmptyLine;
+
+      Write(Format('function %s.GetIndex(const aPropertyName: string;', [Name]));
+      Write('  const aPropertyValue: Variant; StartFrom: integer;');
+      Write('  Options: TROSearchOptions): integer;');
+      Write('begin');
+      Write('  result := -1;');
+      Write('end;');
+      WriteEmptyLine;
+    end
+    else begin
+      Write(Format('function %s.Add: %s;', [Name, GetDataType(ElementType)]));
+      Write('begin');
+      Write(Format('  result := %s.Create;', [GetDataType(ElementType)]));
+
+      //Write('  SetLength(fItems, Length(fItems)+1);');
+      //Write('  fItems[Length(fItems)-1] := result;');
+      Write('  Add(Result);');
+
+      Write('end;');
+      WriteEmptyLine;
+      Write(Format('function %s.Add(const Value:%s): integer;', [Name, GetDataType(ElementType)]));
+      Write('begin');
+
+      //Write('  SetLength(fItems, Length(fItems)+1);');
+      //Write('  result := Length(fItems)-1;');
+      //Write('  fItems[result] := Value;');
+      Write('  Result := Count;');
+      Write('  if Length(fItems) = Result then');
+      Write('    Grow;');
+      Write('  fItems[result] := Value;');
+      Write('  Inc(fCount);');
+
+      Write('end;');
+      WriteEmptyLine;
+    end;
+
+    Write(Format('procedure %s.ReadComplex(ASerializer: TObject);', [Name]));
+    Write('var');
+    Write('  lval: '+GetDataType(ElementType)+';');
+    Write('  i: integer;');
+//    Write('  itemref : pointer;');
+    Write('begin');
+    Write('  for i := 0 to Count-1 do begin');
+//    write('    if (GetItemClass<>NIL) then itemref := NIL else itemref := GetItemRef(i);');
+    Write('    with TROSerializer(ASerializer) do begin');
+    case StrToDataType(ElementType) of
+      rtInteger:     Write('      ReadInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, lval, i);');
+      rtDateTime:    Write('      ReadDateTime(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtDouble:      Write('      ReadDouble(GetArrayElementName(GetItemType, GetItemRef(i)), ftDouble, lval, i);');
+      rtCurrency:    Write('      ReadDouble(GetArrayElementName(GetItemType, GetItemRef(i)), ftCurr, lval, i);');
+      rtWidestring:  Write('      ReadWideString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtString:      Write('      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtUTF8String:  Write('      ReadUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtInt64:       Write('      ReadInt64(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtBoolean:     Write('      ReadEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)),TypeInfo(boolean), lval, i);');
+      rtVariant:     Write('      ReadVariant(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtXML:         Write('      ReadXML(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtGuid:        Write('      ReadGuid(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtDecimal:     Write('      ReadDecimal(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtBinary:      Write('      ReadBinary(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);');
+      rtXsDateTime:
+              Write(Format('      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), %s, lval, i);',[GetDataType(ElementType)]));
+      rtUserDefined: begin
+                   if aLibrary.FindArray(GetDataType(ElementType)) <> nil  then begin
+                     Write(       '      lval := nil;');
+                     Write(Format('      ReadArray(GetArrayElementName(GetItemType, GetItemRef(i)), %s, lval, i);',[GetDataType(ElementType)]))
+                   end
+                   else if aLibrary.FindEnum(GetDataType(ElementType)) <> nil  then
+                     Write(Format('      ReadEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)),TypeInfo(%s), lval, i);',[GetDataType(ElementType)]))
+                   else
+                     Write(Format('      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), %s, lval, i);',[GetDataType(ElementType)]));
+      end;
+    end;
+    Write('    end;');
+    Write('    Items[i] := lval;');
+    Write('  end;');
+    Write('end;');
+    WriteEmptyLine;
+
+    Write(Format('procedure %s.WriteComplex(ASerializer: TObject);', [Name]));
+    Write('var');
+    Write('  i: integer;');
+    Write('begin');
+    Write('  for i := 0 to Count-1 do');
+    Write('    with TROSerializer(ASerializer) do');
+    case StrToDataType(ElementType) of
+      rtInteger:     Write('      WriteInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, fItems[i], i);');
+      rtDateTime:    Write('      WriteDateTime(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtDouble:      Write('      WriteDouble(GetArrayElementName(GetItemType, GetItemRef(i)), ftDouble, fItems[i], i);');
+      rtCurrency:    Write('      WriteDouble(GetArrayElementName(GetItemType, GetItemRef(i)), ftCurr, fItems[i], i);');
+      rtWidestring:  Write('      WriteWideString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtString:      Write('      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtUTF8String:  Write('      WriteUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtInt64:       Write('      WriteInt64(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtBoolean:     Write('      WriteEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)),TypeInfo(boolean), fItems[i], i);');
+      rtVariant:     Write('      WriteVariant(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtXML:         Write('      WriteXML(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtGuid:        Write('      WriteGuid(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtDecimal:     Write('      WriteDecimal(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtBinary:      Write('      WriteBinary(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);');
+      rtXsDateTime:  Write('      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], '+GetDataType(ElementType)+', i);');
+      rtUserDefined:
+                   if aLibrary.FindArray(GetDataType(ElementType)) <> nil  then
+                     Write('      WriteArray(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], '+GetDataType(ElementType)+', i);')
+                   else if aLibrary.FindEnum(GetDataType(ElementType)) <> nil  then
+              Write(Format('      WriteEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)),TypeInfo(%s), fItems[i], i);',[GetDataType(ElementType)]))
+                   else
+                     Write('      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], '+GetDataType(ElementType)+', i);');
+    end;
+    Write('end;');
+    WriteEmptyLine;
+  end;
+end;
+
+procedure TRODLToIntf.WriteStructPropMethods(aLibrary : TRODLLibrary; aStruct: TRODLStruct);
+var i : integer;
+    //lWroteComment: boolean;
+    aList: TStringList;
+    s: string;
+    structEntityList: IROStrings;
+    structEntity: TRODLTypedEntity;
+    lNeedInitSimpleTypeWithDefaultValues: Boolean;
+    lDefaultValue: string;
+begin
+  with aStruct do begin
+{    Write(Format('constructor %s.Create;', [Name]));
+    Write('begin');
+    Write('  inherited;');
+    for i := 0 to (Count-1) do with Items[i] do begin
+      if not (IsStruct(DataType, aLibrary) or IsArray(DataType, aLibrary)) then Continue;
+      Write(Format('  fDestroy_%s := FALSE;', [Name]));
+    end;
+    Write('end;');
+    WriteEmptyLine;
+
+    Write(Format('destructor %s.Destroy;', [Name]));
+    Write('begin');
+    for i := 0 to (Count-1) do with Items[i] do begin
+      if not (IsStruct(DataType, aLibrary) or IsArray(DataType, aLibrary)) then Continue;
+      Write(Format('  if fDestroy_%s then FreeAndNIL(f%s);', [Name, Name]));
+    end;
+    Write('  inherited;');
+    Write('end;');
+    WriteEmptyLine;}
+
+    //lWroteComment := true;
+    //lWroteComment := false;
+
+    if Count > 0 then begin
+      Write('{ '+Name+' }');
+      WriteEmptyLine;
+
+      if aStruct.Attributes.Count > 0 then
+        WriteAttributesMethods(aStruct);
+
+      Write(Format('procedure %s.Assign(iSource: TPersistent); ',[aStruct.Name]));
+      Write(Format('var lSource: %s.%s;',[fUnitName, aStruct.Name]));
+      Write('begin');
+      Write('  inherited Assign(iSource);');
+      Write(Format('  if (iSource is %s.%s) then begin',[fUnitName, aStruct.Name]));
+      Write(Format('    lSource := %s.%s(iSource);',[fUnitName, aStruct.Name]));
+      lNeedInitSimpleTypeWithDefaultValues := False;
+      for i := 0 to (Count-1) do begin
+        if IsImplementedAsClass(Items[i].DataType, aLibrary) then begin
+          if not AutoCreateParams then
+            Write(Format('    if Assigned(%s) then'#13#10, [Items[i].Name]));
+          Write(Format('    %s.Assign(lSource.%s);',[Items[i].Name,Items[i].Name]));
+        end
+        else begin
+          lNeedInitSimpleTypeWithDefaultValues := lNeedInitSimpleTypeWithDefaultValues or (Items[i].Attributes.IndexOfName('Default') <> -1);
+          Write(Format('    %s := lSource.%s;',[Items[i].Name,Items[i].Name]));
+        end;
+      end;
+      Write('  end;');
+      Write('end;');
+      WriteEmptyLine;
+
+      if lNeedInitSimpleTypeWithDefaultValues then begin
+        Write(Format('constructor %s.Create(aCollection : TCollection);',[aStruct.Name]));
+        Write('begin');
+        Write('  inherited Create(aCollection);');
+        For i := 0 to (Count-1) do begin
+          if (not IsImplementedAsClass(Items[i].DataType, aLibrary)) and (Items[i].Attributes.IndexOfName('Default')<>-1) then begin
+            lDefaultValue := '';
+            case StrToDataType(Items[i].DataType) of
+              rtInteger,
+              rtInt64,
+              rtDouble,
+              rtBoolean,
+              rtCurrency: lDefaultValue := Items[i].Attributes.Values['Default'];
+              rtWidestring,
+              rtGuid,
+              rtVariant,
+              rtUtf8String,
+              rtString: lDefaultValue := ''''+Items[i].Attributes.Values['Default']+'''';
+              rtDateTime: lDefaultValue := 'StrToDateTimeDef('''+Items[i].Attributes.Values['Default']+''',0)';
+              rtDecimal: lDefaultValue := Items[i].Attributes.Values['Default'];
+              //
+              rtBinary : ;
+              rtXML: ;
+              rtUserDefined: ;
+            end;
+            if lDefaultValue <> '' then Write(Format('  f%s := %s;',[Items[i].Name, lDefaultValue]));
+          end;
+        end;
+        Write('end;');
+        WriteEmptyLine;
+      end;
+    end;
+
+
+    for i := 0 to (Count-1) do with Items[i] do begin
+      if IsImplementedAsClass(DataType, aLibrary) then begin
+        //if not (IsStruct(DataType, aLibrary) or IsArray(DataType, aLibrary)) then Continue;
+
+        {Write(Format('procedure %s.Set%s(Value : %s);', [aStruct.Name, Name, DataType]));
+        Write('begin');
+        Write(Format('  if (f%s<>NIL) and (fDestroy_%s) then FreeAndNIL(f%s);', [Name, Name, Name]));
+        Write(Format('  f%s := Value;', [Name]));
+        Write(Format('  fDestroy_%s := FALSE;', [Name]));
+        Write('end;');
+        WriteEmptyLine;}
+
+        Write(Format('function %s.Get%s: %s;', [aStruct.Name, Name, GetDataType(DataType)]));
+        Write('begin');
+        if AutoCreateParams then
+          Write(Format('  if (f%s = nil) then f%s := %s.Create();', [Name, Name, GetDataType(DataType)]));
+        Write(Format('  result := f%s;', [Name]));
+        Write('end;');
+        WriteEmptyLine;
+      end;
+    end;
+
+    structEntityList:=CalcItemsMarshalingOrder(True);
+    if (structEntityList.Count>0) and (Count > 0) then begin
+      Write(Format('procedure %s.ReadComplex(ASerializer: TObject);', [Name]));
+      if structEntityList.Count > 0 then Write('var');
+      For i:=0 to structEntityList.Count - 1 do
+        with TRODLTypedEntity(structEntityList.Objects[i]) do
+          Write(Format('  l_%s: %s;',[Name, GetDataType(DataType)]));
+      Write('begin');
+      Write('  if TROSerializer(ASerializer).RecordStrictOrder then begin');
+      if Count <> structEntityList.Count then
+        Write('    inherited;');
+      For i:=0 to Count-1 do begin
+        structEntity:=Items[i];
+        Write(Format('    l_%s := %0:s;',[structEntity.Name]));
+        case StrToDataType(structEntity.DataType) of
+          rtInteger:     Write(Format('    TROSerializer(ASerializer).ReadInteger(''%s'', otSLong, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDateTime:    Write(Format('    TROSerializer(ASerializer).ReadDateTime(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDouble:      Write(Format('    TROSerializer(ASerializer).ReadDouble(''%s'', ftDouble, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtCurrency:    Write(Format('    TROSerializer(ASerializer).ReadDouble(''%s'', ftCurr, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtWidestring:  Write(Format('    TROSerializer(ASerializer).ReadWideString(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtString:      Write(Format('    TROSerializer(ASerializer).ReadAnsiString(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtUTF8String:  Write(Format('    TROSerializer(ASerializer).ReadUTF8String(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtInt64:       Write(Format('    TROSerializer(ASerializer).ReadInt64(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtBoolean:     Write(Format('    TROSerializer(ASerializer).ReadEnumerated(''%s'',TypeInfo(boolean), l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtVariant:     Write(Format('    TROSerializer(ASerializer).ReadVariant(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtXML:         Write(Format('    TROSerializer(ASerializer).ReadXML(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtGuid:        Write(Format('    TROSerializer(ASerializer).ReadGuid(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDecimal:     Write(Format('    TROSerializer(ASerializer).ReadDecimal(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtBinary:      Write(Format('    TROSerializer(ASerializer).ReadBinary(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtXsDateTime:  Write(Format('    TROSerializer(ASerializer).ReadStruct(''%s'', %s, l_%s);',[structEntity.OriginalName, GetDataType(structEntity.DataType), structEntity.Name]));
+          rtUserDefined:
+                       if aLibrary.FindArray(structEntity.DataType) <> nil  then
+                         Write(Format('    TROSerializer(ASerializer).ReadArray(''%s'', %s, l_%s);',[structEntity.OriginalName, GetDataType(structEntity.DataType), structEntity.Name]))
+                       else if aLibrary.FindEnum(structEntity.DataType) <> nil  then
+                         Write(Format('    TROSerializer(ASerializer).ReadEnumerated(''%s'',TypeInfo(%s), l_%s);',[structEntity.OriginalName,GetDataType(structEntity.DataType), structEntity.Name]))
+                       else
+                         Write(Format('    TROSerializer(ASerializer).ReadStruct(''%s'', %s, l_%s);',[structEntity.OriginalName, GetDataType(structEntity.DataType), structEntity.Name]));
+        end;
+        if (StrToDataType(structEntity.DataType) in [rtBinary, rtUserDefined, rtXsDateTime]) and (aLibrary.FindEnum(structEntity.DataType) = nil) then
+          Write(Format('    if %s <> l_%0:s then %0:s.Free;',[structEntity.Name]));
+        Write(Format('    %s := l_%0:s;',[structEntity.Name]));
+      end;
+      Write('  end');
+      Write('  else begin');
+      For i:=0 to structEntityList.Count-1 do begin
+        structEntity:=TRODLTypedEntity(structEntityList.Objects[i]);
+        Write(Format('    l_%s := %0:s;',[structEntity.Name]));
+        case StrToDataType(structEntity.DataType) of
+          rtInteger:     Write(Format('    TROSerializer(ASerializer).ReadInteger(''%s'', otSLong, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDateTime:    Write(Format('    TROSerializer(ASerializer).ReadDateTime(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDouble:      Write(Format('    TROSerializer(ASerializer).ReadDouble(''%s'', ftDouble, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtCurrency:    Write(Format('    TROSerializer(ASerializer).ReadDouble(''%s'', ftCurr, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtWidestring:  Write(Format('    TROSerializer(ASerializer).ReadWideString(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtUTF8String:  Write(Format('    TROSerializer(ASerializer).ReadUTF8String(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtString:      Write(Format('    TROSerializer(ASerializer).ReadAnsiString(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtInt64:       Write(Format('    TROSerializer(ASerializer).ReadInt64(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtBoolean:     Write(Format('    TROSerializer(ASerializer).ReadEnumerated(''%s'',TypeInfo(boolean), l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtVariant:     Write(Format('    TROSerializer(ASerializer).ReadVariant(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtXML:         Write(Format('    TROSerializer(ASerializer).ReadXML(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtGuid:        Write(Format('    TROSerializer(ASerializer).ReadGuid(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDecimal:     Write(Format('    TROSerializer(ASerializer).ReadDecimal(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtBinary:      Write(Format('    TROSerializer(ASerializer).ReadBinary(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtXsDateTime:  Write(Format('    TROSerializer(ASerializer).ReadStruct(''%s'', %s, l_%s);',[structEntity.OriginalName, GetDataType(structEntity.DataType), structEntity.Name]));
+          rtUserDefined:
+                       if aLibrary.FindArray(structEntity.DataType) <> nil  then
+                         Write(Format('    TROSerializer(ASerializer).ReadArray(''%s'', %s, l_%s);',[structEntity.OriginalName, GetDataType(structEntity.DataType), structEntity.Name]))
+                       else if aLibrary.FindEnum(structEntity.DataType) <> nil  then
+                         Write(Format('    TROSerializer(ASerializer).ReadEnumerated(''%s'',TypeInfo(%s), l_%s);',[structEntity.OriginalName, GetDataType(structEntity.DataType), structEntity.Name]))
+                       else
+                         Write(Format('    TROSerializer(ASerializer).ReadStruct(''%s'', %s, l_%s);',[structEntity.OriginalName, GetDataType(structEntity.DataType), structEntity.Name]));
+        end;
+        if (StrToDataType(structEntity.DataType) in [rtBinary, rtUserDefined, rtXsDateTime]) and (aLibrary.FindEnum(structEntity.DataType) = nil) then
+          Write(Format('    if %s <> l_%0:s then %0:s.Free;',[structEntity.Name]));
+        Write(Format('    %s := l_%0:s;',[structEntity.Name]));
+      end;
+      Write('  end;');
+      Write('end;');
+      WriteEmptyLine;
+
+      Write(Format('procedure %s.WriteComplex(ASerializer: TObject);', [Name]));
+      if structEntityList.Count > 0 then Write('var');
+      For i:=0 to structEntityList.Count - 1 do
+        with TRODLTypedEntity(structEntityList.Objects[i]) do
+          Write(Format('  l_%s: %s;',[Name, GetDataType(DataType)]));
+      Write('begin');
+      Write('  if TROSerializer(ASerializer).RecordStrictOrder then begin');
+      if Count <> structEntityList.Count then
+        Write('inherited;', PASCAL_INDENTATION_LEVEL_2);
+      Write(Format('TROSerializer(ASerializer).ChangeClass(%s);', [Name]), PASCAL_INDENTATION_LEVEL_2);
+      for i := 0 to Count-1 do begin
+        structEntity:=Items[i];
+        Write(Format('    l_%s := %0:s;',[structEntity.Name]));
+        case StrToDataType(structEntity.DataType) of
+          rtInteger:     Write(Format('    TROSerializer(ASerializer).WriteInteger(''%s'', otSLong, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDateTime:    Write(Format('    TROSerializer(ASerializer).WriteDateTime(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDouble:      Write(Format('    TROSerializer(ASerializer).WriteDouble(''%s'', ftDouble, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtCurrency:    Write(Format('    TROSerializer(ASerializer).WriteDouble(''%s'', ftCurr, l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtWidestring:  Write(Format('    TROSerializer(ASerializer).WriteWideString(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtString:      Write(Format('    TROSerializer(ASerializer).WriteAnsiString(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtUTF8String:  Write(Format('    TROSerializer(ASerializer).WriteUTF8String(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtInt64:       Write(Format('    TROSerializer(ASerializer).WriteInt64(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtBoolean:     Write(Format('    TROSerializer(ASerializer).WriteEnumerated(''%s'',TypeInfo(boolean), l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtVariant:     Write(Format('    TROSerializer(ASerializer).WriteVariant(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtXML:         Write(Format('    TROSerializer(ASerializer).WriteXML(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtGuid:        Write(Format('    TROSerializer(ASerializer).WriteGuid(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtDecimal:     Write(Format('    TROSerializer(ASerializer).WriteDecimal(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtBinary:      Write(Format('    TROSerializer(ASerializer).WriteBinary(''%s'', l_%s);',[structEntity.OriginalName, structEntity.Name]));
+          rtXsDateTime:  Write(Format('    TROSerializer(ASerializer).WriteStruct(''%s'', l_%s, %s);',[structEntity.OriginalName, structEntity.Name,GetDataType(structEntity.DataType)]));
+          rtUserDefined:
+                      if aLibrary.FindArray(structEntity.DataType) <> nil  then
+                         Write(Format('    TROSerializer(ASerializer).WriteArray(''%s'', l_%s, %s);',[structEntity.OriginalName, structEntity.Name,GetDataType(structEntity.DataType)]))
+                      else if aLibrary.FindEnum(structEntity.DataType) <> nil  then
+                         Write(Format('    TROSerializer(ASerializer).WriteEnumerated(''%s'',TypeInfo(%s), l_%s);',[structEntity.OriginalName,structEntity.DataType, structEntity.Name]))
+                      else
+                         Write(Format('    TROSerializer(ASerializer).WriteStruct(''%s'', l_%s, %s);',[structEntity.OriginalName, structEntity.Name, GetDataType(structEntity.DataType)]))
+        end;
+      end;
+      Write('  end');
+      Write('  else begin');
+      For i:=0 to structEntityList.Count-1 do begin
+        structEntity:=TRODLTypedEntity(structEntityList.Objects[i]);
+        Write(Format('    l_%s := %0:s;',[structEntity.Name]));
+        case StrToDataType(structEntity.DataType) of
+          rtInteger:     Write(Format('    TROSerializer(ASerializer).WriteInteger(''%s'', otSLong, l_%0:s);',[structEntity.Name]));
+          rtDateTime:    Write(Format('    TROSerializer(ASerializer).WriteDateTime(''%s'', l_%0:s);',[structEntity.Name]));
+          rtDouble:      Write(Format('    TROSerializer(ASerializer).WriteDouble(''%s'', ftDouble, l_%0:s);',[structEntity.Name]));
+          rtCurrency:    Write(Format('    TROSerializer(ASerializer).WriteDouble(''%s'', ftCurr, l_%0:s);',[structEntity.Name]));
+          rtWidestring:  Write(Format('    TROSerializer(ASerializer).WriteWideString(''%s'', l_%0:s);',[structEntity.Name]));
+          rtString:      Write(Format('    TROSerializer(ASerializer).WriteAnsiString(''%s'', l_%0:s);',[structEntity.Name]));
+          rtUTF8String:  Write(Format('    TROSerializer(ASerializer).WriteUTF8String(''%s'', l_%0:s);',[structEntity.Name]));
+          rtInt64:       Write(Format('    TROSerializer(ASerializer).WriteInt64(''%s'', l_%0:s);',[structEntity.Name]));
+          rtBoolean:     Write(Format('    TROSerializer(ASerializer).WriteEnumerated(''%s'',TypeInfo(boolean), l_%0:s);',[structEntity.Name]));
+          rtVariant:     Write(Format('    TROSerializer(ASerializer).WriteVariant(''%s'', l_%0:s);',[structEntity.Name]));
+          rtXML:         Write(Format('    TROSerializer(ASerializer).WriteXML(''%s'', l_%0:s);',[structEntity.Name]));
+          rtGuid:        Write(Format('    TROSerializer(ASerializer).WriteGuid(''%s'', l_%0:s);',[structEntity.Name]));
+          rtDecimal:     Write(Format('    TROSerializer(ASerializer).WriteDecimal(''%s'', l_%0:s);',[structEntity.Name]));
+          rtBinary:      Write(Format('    TROSerializer(ASerializer).WriteBinary(''%s'', l_%0:s);',[structEntity.Name]));
+          rtXsDateTime:  Write(Format('    TROSerializer(ASerializer).WriteStruct(''%s'', l_%0:s, %s);',[structEntity.Name,GetDataType(structEntity.DataType)]));
+          rtUserDefined:
+                      if aLibrary.FindArray(structEntity.DataType) <> nil  then
+                         Write(Format('    TROSerializer(ASerializer).WriteArray(''%s'', l_%0:s, %s);',[structEntity.Name,GetDataType(structEntity.DataType)]))
+                      else if aLibrary.FindEnum(structEntity.DataType) <> nil  then
+                         Write(Format('    TROSerializer(ASerializer).WriteEnumerated(''%s'',TypeInfo(%s), l_%0:s);',[structEntity.Name,structEntity.DataType]))
+                      else
+                         Write(Format('    TROSerializer(ASerializer).WriteStruct(''%s'', l_%0:s, %s);',[structEntity.Name,GetDataType(structEntity.DataType)]))
+        end;
+      end;
+      Write('  end;');
+      Write('end;');
+      WriteEmptyLine;
+    end;
+    structEntityList:=nil;
+
+    // Writes the collection methods
+    Write('{ '+Name+'Collection }');
+    Write(Format('constructor %sCollection.Create;', [aStruct.Name]));
+    Write('begin');
+    Write(Format('  inherited Create(%s);', [aStruct.Name]));
+    Write('end;');
+    WriteEmptyLine;
+
+    Write(Format('constructor %sCollection.Create(aItemClass: TCollectionItemClass);', [aStruct.Name]));
+    Write('begin');
+    Write(Format('  inherited Create(aItemClass);', [aStruct.Name]));
+    Write('end;');
+
+    WriteEmptyLine;
+    Write(Format('function %sCollection.Add: %s;', [aStruct.Name, aStruct.Name]));
+    Write('begin');
+    Write(Format('  result := %s(inherited Add);', [aStruct.Name]));
+    Write('end;');
+    WriteEmptyLine;
+    Write(Format('function %sCollection.GetItems(aIndex: integer): %s;', [aStruct.Name, aStruct.Name]));
+    Write('begin');
+    Write(Format('  result := %s(inherited Items[aIndex]);', [aStruct.Name]));
+    Write('end;');
+    WriteEmptyLine;
+
+    aList := TStringList.Create;
+    try
+      aLibrary.GetArraysByElement(Name,aList);
+      aList.Sorted:=True;
+      s:='';
+      for i := 0 to aList.Count-1 do begin
+        if aList[i] = s then Continue;
+        s := aList[i];
+        Write(Format('procedure %sCollection.LoadFromArray(anArray: %s);', [aStruct.Name, aList[i]]));
+        Write('var i : integer;');
+        Write('begin');
+        Write('  Clear;');
+        Write('  for i := 0 to (anArray.Count-1) do');
+        Write('    anArray[i].Clone.Collection := Self;');
+        Write('end;');
+        WriteEmptyLine;
+        Write(Format('procedure %sCollection.SaveToArray(anArray: %s);', [aStruct.Name, aList[i]]));
+        Write('var i : integer;');
+        Write('begin');
+        Write('  anArray.Clear;');
+        Write('  for i := 0 to (Count-1) do begin');
+        Write('    if Assigned(Items[i]) then');
+        Write(Format('      anArray.Add(%s(Items[i].Clone))',[GetDataType(aStruct.Name)]));
+        Write('    else');
+        Write('      anArray.Add(nil);');
+        Write('  end;');
+        Write('end;');
+        WriteEmptyLine;
+      end;
+    finally
+      aList.Free;
+    end;
+
+    Write(Format('procedure %sCollection.SetItems(aIndex: integer; const Value: %s);', [aStruct.Name, aStruct.Name]));
+    Write('begin');
+    Write(Format('  %s(inherited Items[aIndex]).Assign(Value);', [aStruct.Name, aStruct.Name]));
+    Write('end;');
+    WriteEmptyLine;
+  end;
+end;
+
+
+function GetAttributes(atOperation, atService, atLibrary: TStrings; Ident: Integer): string;
+var
+  sl: TStringList;
+  s: string;
+  i, n: Integer;
+begin
+  sl := TStringList.Create;
+  try
+    sl.AddStrings(atOperation);
+    sl.AddStrings(atService);
+    sl.AddStrings(atLibrary);
+    sl.Sort;
+    for i := sl.Count -1 downto 1 do begin
+      if sl[i] = sl[i-1] then sl.Delete(I); // remove dupes
+    end;
+    if sl.Count = 0 then begin result := ''; exit; end;
+    s := '';
+    for i := 0 to sl.Count -1 do begin
+      if sl[i] = '' then continue;
+      if i mod 8 = 7 then begin
+        s := s + #13#10;
+        setLength(s, Length(s) + Ident + 2);
+        for n := Length(s) - Ident -1 to Length(s) do
+          s[n] := ' ';
+      end;
+      if i <> 0 then s := s + ', ';
+      s := s + #39 + sl.Names[i] + #39;
+    end;
+    Result :='['+s+'], '#13#10;
+    setLength(Result, Length(Result) + Ident + 2);
+    for n := Length(Result) - Ident -1 to Length(Result) do
+      Result[n] := ' ';
+
+    s := '';
+    for i := 0 to sl.Count -1 do begin
+      if sl[i] = '' then continue;
+      if i mod 8 = 7 then begin
+        s := s + #13#10;
+        setLength(s, Length(s) + Ident + 2);
+        for n := Length(s) - Ident -1 to Length(s) do
+          s[n] := ' ';
+      end;
+      if i <> 0 then s := s + ', ';
+      if sl.Names[i] = 'TargetNamespace' then s:= s + 'TargetNamespace'
+      else if sl.Names[i] = 'Wsdl' then s := s + 'WSDLLocation'
+      else s := s + #39 + StringReplace(sl.Values[sl.Names[i]], #39, #39#39, [rfReplaceAll]) + #39;
+    end;
+    Result := Result + '['+s+']';
+  finally
+    sl.Free;
+  end;
+end;
+
+procedure TRODLToIntf.WriteAttributesMethods(anEntity: TRODLEntity);
+var
+  i: Integer;
+begin
+  with anEntity do begin
+    Write(Format('class function %s.GetAttributeCount: Integer;',[Name]));
+    Write('begin');
+    Write(Format('result := %d;', [Attributes.Count]), PASCAL_INDENTATION_LEVEL_1);
+    Write('end;');
+    WriteEmptyLine;
+
+    Write(Format('class function %s.GetAttributeName(aIndex: Integer): string;',[Name]));
+    Write('begin');
+    if Attributes.Count > 0 then begin
+      Write('case aIndex of', PASCAL_INDENTATION_LEVEL_1);
+      for i := 0 to Attributes.Count - 1 do
+        Write(Format('%d: result := %s;', [i, QuotedStr(Attributes.Names[i])]), PASCAL_INDENTATION_LEVEL_2);
+      Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write('end;');
+    WriteEmptyLine;
+
+    Write(Format('class function %s.GetAttributeValue(aIndex: Integer): string;',[Name]));
+    Write('begin');
+    if Attributes.Count > 0 then begin
+      Write('case aIndex of', PASCAL_INDENTATION_LEVEL_1);
+      for i := 0 to Attributes.Count - 1 do
+        Write(Format('%d: result := %s;', [i, QuotedStr(Attributes.Values[Attributes.Names[i]])]), PASCAL_INDENTATION_LEVEL_2);
+      Write('end;', PASCAL_INDENTATION_LEVEL_1);
+    end;
+    Write('end;');
+    WriteEmptyLine;
+  end;
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalInvk.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalInvk.pas
new file mode 100644
index 0000000..53b4403
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToPascalInvk.pas	
@@ -0,0 +1,461 @@
+unit uRODLToPascalInvk;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen                                           }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses uRODL;
+
+type { TRODLToInvk }
+     TRODLToInvk = class(TRODLConverter)
+     private
+       fIntfUnitName : string;
+
+       procedure WriteInvokerDeclaration(const aService: TRODLService; aLibrary : TRODLLibrary);
+       procedure WriteOperationImplementation(const aService : TRODLService;
+            const anOperation : TRODLOperation;
+            aLibrary : TRODLLibrary);
+
+     protected
+       procedure IntConvert(const aLibrary : TRODLLibrary; const aTargetEntity : string = ''); override;
+
+     public
+       class function GetTargetFileName(const aLibrary : TRODLLibrary; const aTargetEntity : string = ''): string; override;
+
+     end;
+
+
+implementation
+
+uses SysUtils, uRODLGenTools, uROTypes, uROClasses, uRODLToPascalImpl, uRODLToPascalIntf, Dialogs, uRODLToPascal;
+
+{ TRODLToInvk }
+
+procedure TRODLToInvk.IntConvert(const aLibrary: TRODLLIbrary; const aTargetEntity : string = '');
+var i, k : integer;
+    s,t,actualname : string;
+begin
+  fIntfUnitName := ChangeFileExt(TRODLToIntf.GetTargetFileName(aLibrary), '');
+
+  Write(Format('unit %s;', [ChangeFileExt(GetTargetFileName(aLibrary), '')]));
+  WriteEmptyLine;
+
+  WriteLines(IntfInvkNotice);
+  WriteEmptyLine;
+
+  Write('{$I RemObjects.inc}');
+  WriteEmptyLine;
+
+  Write('interface');
+  WriteEmptyLine;
+
+  Write('uses');
+  Write('{vcl:} Classes,' ,PASCAL_INDENTATION_LEVEL_1);
+  Write('{RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,' ,PASCAL_INDENTATION_LEVEL_1);
+
+  if aLibrary.UseCount > 0 then begin
+
+    s := '';
+    t := '';
+    for i := 0 to aLibrary.UseCount-1 do begin
+
+      if aLibrary.Use[i].LoadedRodlLibraryName <> '' then
+        actualname := aLibrary.Use[i].LoadedRodlLibraryName
+      else
+        actualname := ChangeFileExt(ExtractFilename(aLibrary.Use[i].RodlFile),'');
+
+      if (Pos(actualname+'_Intf', s)<=0) then begin
+        if s <> '' then s := s+', ';
+        s := s+actualname+'_Intf';
+      end;
+
+      if (Pos(actualname+'_Invk', t)<=0) then begin
+        if t <> '' then t := t+', ';
+        t := t+actualname+'_Invk';
+      end;
+    end; { for }
+
+    if (s<>'') then begin
+      s := s+',';
+      Write('{Used RODL Intf''s:} '+s,PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+    if (t<>'') then begin
+      t := t+',';
+      Write('{Used RODL Invk''s:} '+t,PASCAL_INDENTATION_LEVEL_1);
+    end;
+  end;
+
+  Write(Format('{Generated:} %s_Intf;', [aLibrary.Info.Name]),PASCAL_INDENTATION_LEVEL_1);
+  WriteEmptyLine;
+
+  if aLibrary.ServiceCount > 0 then begin
+    Write('type');
+    Write('  TSeekOrigin = Classes.TSeekOrigin; // fake declaration');
+  end;
+
+  with aLibrary.CalcServiceOrder() do begin
+    for i := 0 to (Count-1) do //if (not aLibrary.Services[i].IsFromUsedRodl) then
+      WriteInvokerDeclaration(Objects[i] as TRODLService, aLibrary);
+  end;
+
+  {for i := 0 to (aLibrary.ServiceCount-1) do if (not aLibrary.Services[i].IsFromUsedRodl) then
+    WriteInvokerDeclaration(aLibrary.Services[i], aLibrary); }
+
+  Write('implementation');
+  WriteEmptyLine;
+
+  //s := '';
+  {for i := 0 to (aLibrary.ServiceCount-1) do begin
+    //s := s+ChangeFileExt(TRODLToImpl.GetTargetFileName(aLibrary, aLibrary.Services[i].Info.Name),'');
+    s := s+aLibrary.Services[i].Info.Name+'_Impl';
+    if (i<aLibrary.ServiceCount-1) then s := s+', ';
+  end;}
+
+  Write('uses');
+  (*if (Trim(s)<>'')
+    then Write(Format('{RemObjects:} uRORes, %s;', [s]),PASCAL_INDENTATION_LEVEL_1)
+    else *)Write(Format('{RemObjects:} uRORes, uROClient;', []),PASCAL_INDENTATION_LEVEL_1);
+  WriteEmptyLine;
+
+  for i := 0 to (aLibrary.ServiceCount-1) do if (not aLibrary.Services[i].IsFromUsedRodl) then begin
+    //WriteInvokerHandleMessage(aLibrary.Services[i]);
+
+    if not Assigned(aLibrary.Services[i].Default) then Continue;
+
+    Write('{ T'+aLibrary.Services[i].Info.Name+'_Invoker }');
+    WriteEmptyLine;
+
+    Write('constructor T' + aLibrary.Services[i].Info.Name + '_Invoker.Create;');
+    Write('begin');
+    Write('  inherited Create;');
+    Write('  FAbstract := ' + BoolToStr(aLibrary.Services[i].Abstract,True)+';');
+    Write('end;');
+    WriteEmptyLine;
+
+    for k := 0 to (aLibrary.Services[i].Default.Count-1) do
+      WriteOperationImplementation(aLibrary.Services[i], aLibrary.Services[i].Default.Items[k], aLibrary);
+  end;
+
+  for i := 0 to (aLibrary.ServiceCount-1) do ;
+
+  Write('initialization');
+  with aLibrary.Attributes do
+    for i := 0 to Count-1 do
+      Write(Format('  RegisterServiceAttribute(''%s'',''%s'',''%s'');',['',Names[i],Values[Names[i]]]));
+  For k:=0 to aLibrary.ServiceCount -1 do
+    with aLibrary.Services[k], Attributes do
+      for i := 0 to Count-1 do
+        Write(Format('  RegisterServiceAttribute(''%s'',''%s'',''%s'');',[Name, Names[i],Values[Names[i]]]));
+  Write('end.');
+end;
+
+procedure TRODLToInvk.WriteInvokerDeclaration(const aService : TRODLService; aLibrary : TRODLLibrary);
+var i : integer;
+begin
+  if aService.Ancestor <> '' then begin
+    Write(Format('T%s_Invoker = class(T%s_Invoker)', [aService.Info.Name,aService.Ancestor]), PASCAL_INDENTATION_LEVEL_1);
+  end
+  else begin
+    Write(Format('T%s_Invoker = class(TROInvoker)', [aService.Info.Name]), PASCAL_INDENTATION_LEVEL_1);
+  end;
+  Write('private', PASCAL_INDENTATION_LEVEL_1);
+  Write('protected', PASCAL_INDENTATION_LEVEL_1);
+  Write('public', PASCAL_INDENTATION_LEVEL_1);
+  Write('  constructor Create; override;', PASCAL_INDENTATION_LEVEL_1);
+  Write('published', PASCAL_INDENTATION_LEVEL_1);
+
+  for i := 0 to (aService.Default.Count-1) do begin
+    Write(Format('procedure Invoke_%s(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);', [aService.Default.Items[i].Info.Name]), PASCAL_INDENTATION_LEVEL_2);
+  end;
+
+  Write('end;', PASCAL_INDENTATION_LEVEL_1);
+  WriteEmptyLine();
+end;
+
+procedure TRODLToInvk.WriteOperationImplementation(
+  const aService : TRODLService;
+  const anOperation: TRODLOperation; aLibrary : TRODLLibrary);
+  const resultname = 'return';
+var i,k : integer;
+    lHasObjectDisposer: Boolean;
+    pars, s, sa : string;
+    typname : string;
+begin
+  Write(Format('procedure T%s_Invoker.Invoke_%s(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);',
+               [aService.Info.Name, anOperation.Info.Name]));
+
+  Write(Format('{ %s }', [GetOperationDefinition(anOperation)]));
+
+  with anOperation do begin
+
+    { Determine if we need an ObjectDisposer }
+    lHasObjectDisposer := False;
+    for i := 0 to (Count-1) do with Items[i] do begin
+      if IsImplementedAsClass(DataType, aLibrary) then begin
+        lHasObjectDisposer := true;
+        break;
+      end;
+    end;
+    if Assigned(Result) and IsImplementedAsClass(Result.DataType, aLibrary) then
+      lHasObjectDisposer := true;
+
+    //ShowMessage('1');
+
+    { Write local variables }
+    if (Count>0) or Assigned(Result) or lHasObjectDisposer then Write('var');
+    for i := 0 to (Count-1) do begin
+
+      typname := GetDataType(Items[i].DataType);
+      if IsUserDefinedType(typname,aLibrary) then begin
+        typname := GetFullyQualifiedTypeName(typname,aLibrary,fIntfUnitName);
+      end;
+
+      Write(Format('%s: %s;', [Items[i].Name, typname]),PASCAL_INDENTATION_LEVEL_1);
+      if (Items[i].Flag = fInOut) and IsImplementedAsClass(Items[i].DataType, aLibrary) then
+        Write(Format('__in_%s: %s;', [Items[i].Name, typname]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+    //ShowMessage('2');
+
+    if Assigned(Result) then begin
+      typname := GetDataType(Result.DataType);
+      if IsUserDefinedType(typname,aLibrary) then begin
+        typname := GetFullyQualifiedTypeName(typname,aLibrary,fIntfUnitName);
+      end;
+      Write(Format('lResult: %s;', [ typname]),PASCAL_INDENTATION_LEVEL_1);
+    end;
+
+
+    if lHasObjectDisposer then
+      Write('__lObjectDisposer: TROObjectDisposer;',PASCAL_INDENTATION_LEVEL_1);
+
+{    if Assigned(Result)
+      then Write('    %s: %s;', [resultname, Result.DataType]);}
+
+    //ShowMessage('3');
+
+    Write('begin');
+    if (Length(anOperation.Roles) > 0) or (Length(aService.Roles) > 0) then begin
+	  s := 'CheckRoles(__Instance, [';
+	  k := 0;
+	  for i := 0 to Length(anOperation.Roles) -1 do begin
+	    if k <> 0 then s := s +', ';
+		inc(k);
+		if (k mod 10) = 0 then s := s + #13#10+'    ';
+	    s := s+#39+StringReplace(anOperation.Roles[i], #39, #39#39, [rfReplaceAll])+#39;
+	  end;
+	  for i := 0 to Length(aService.Roles) -1 do begin
+	    if k <> 0 then s := s +', ';
+		inc(k);
+		if (k mod 10) = 0 then s := s + #13#10+'    ';
+	    s := s+#39+StringReplace(aService.Roles[i], #39, #39#39, [rfReplaceAll])+#39;
+	  end;
+      Write(s+']);');
+    end;
+    sa := GetAttributes(anOperation.Info.Attributes, aService.Info.Attributes, aLibrary.Info.Attributes, 4);
+    if sa <> '' then
+      Write('  __Message.SetAttributes(__Transport, '+sa +');');
+
+    if (Count>0) then begin
+      for i := 0 to (Count-1) do begin
+        with Items[i] do begin
+          if IsImplementedAsClass(DataType, aLibrary) then begin
+            Write(Format('%s := nil;', [Items[i].Name]),PASCAL_INDENTATION_LEVEL_1);
+            if (Flag = fInOut) then
+              Write(Format('__in_%s := nil;', [Items[i].Name]),PASCAL_INDENTATION_LEVEL_1);
+          end;
+        end;
+      end;
+    end;
+    if Assigned(Result) then
+      if IsImplementedAsClass(Result.DataType, aLibrary) then
+        Write('lResult := nil;',PASCAL_INDENTATION_LEVEL_1);
+
+    Write('  try');
+
+    //ShowMessage('4');
+
+    for i := 0 to (Count-1) do
+      if IsInputFlag(Items[i].Flag) then begin
+
+        if (StrToDataType(Items[i].DataType)=rtDateTime)
+          then sa := '[paIsDateTime]'
+          else sa := '[]';
+
+        typname := GetDataType(Items[i].DataType);
+        if IsUserDefinedType(typname,aLibrary) then begin
+          typname := GetFullyQualifiedTypeName(typname,aLibrary,fIntfUnitName);
+        end;
+
+        Write(Format('__Message.Read(''%s'', TypeInfo(%s), %s, %s);',[Items[i].Name, typname, Items[i].Name, sa]),PASCAL_INDENTATION_LEVEL_2);
+        if (Items[i].Flag = fInOut) and IsImplementedAsClass(Items[i].DataType, aLibrary) then begin
+          Write(Format('__in_%s := %s;',[Items[i].Name, Items[i].Name]),PASCAL_INDENTATION_LEVEL_2)
+        end;
+      end;
+
+    if (Count>0) then WriteEmptyLine;
+    s := '    ';
+    if Assigned(Result) then s := s+'lResult := ';
+    s := s+Format('(__Instance as I%s).%s', [aService.Name, anOperation.Name]);
+
+    //ShowMessage('5');
+
+    if (Count>0) then begin
+      pars := '';
+      k := Length(s);
+      for i := 0 to (Count-1) do begin
+        if (Items[i].Flag=fResult) then Continue;
+        pars := pars+Items[i].Name+', ';
+        inc(k, Length(Items[i].Name)+2);
+        if k > 150 then begin
+          pars := pars+#13#10'        ';
+          k:=8;
+        end;
+      end;
+
+      pars := TrimRight(pars);
+      if (pars<>'') and (pars[Length(pars)] = ',') then s := s+'('+Copy(pars, 1, Length(pars)-1)+')';
+    end;
+
+    s := s+';';
+    Write(s);
+
+    WriteEmptyLine;
+(*    if anOperation.Info.Attributes.Values['OutputMessageName'] <> '' then
+      Write(Format('    __Message.InitializeResponseMessage(__Transport, ''%s'', ''%s'', ''%s'');',[aLibrary.Name, aService.Name, anOperation.Info.Attributes.Values['OutputMessageName']]))
+    else *)
+
+    Write(Format('    __Message.InitializeResponseMessage(__Transport, ''%s'', ''%s'', ''%sResponse'');',[aLibrary.Name, aService.Name, Name]));
+
+
+    //ShowMessage('6');
+
+    if Assigned(Result) then begin
+      if (StrToDataType(Result.DataType)=rtDateTime) then
+        sa := '[paIsDateTime]'
+      else
+        sa := '[]';
+
+      typname := GetDataType(Result.DataType);
+      if IsUserDefinedType(typname,aLibrary) then begin
+        typname := GetFullyQualifiedTypeName(typname,aLibrary,fIntfUnitName);
+      end;
+
+      Write(Format('    __Message.Write(''%s'', TypeInfo(%s), lResult, %s);',
+        [Result.Name, typname, sa]));
+    end;
+
+    //ShowMessage('7');
+
+    for i := 0 to (Count-1) do
+      if IsOutputFlag(Items[i].Flag) then begin
+
+        if (StrToDataType(Items[i].DataType)=rtDateTime)
+          then sa := '[paIsDateTime]'
+          else sa := '[]';
+
+        typname := GetDataType(Items[i].DataType);
+        if IsUserDefinedType(typname,aLibrary) then begin
+          typname := GetFullyQualifiedTypeName(typname,aLibrary,fIntfUnitName);
+        end;
+
+        Write(Format('    __Message.Write(''%s'', TypeInfo(%s), %s, %s);',
+          [Items[i].Name, typname, Items[i].Name, sa]));
+      end;
+
+    {if Assigned(Result) then begin
+      Write(Format('  __Message.Write(''%s'', TypeInfo(%s), @%s);', [resultname, Result.DataType, resultname]))
+    end;}
+    Write('    __Message.Finalize;');
+    if sa <> '' then
+      Write('    __Message.UnsetAttributes(__Transport);');
+    WriteEmptyLine;
+
+    if not NeedsAsyncRetrieveOperationDefinition(anOperation) then begin
+      Write('    __oResponseOptions := [roNoResponse];');
+      WriteEmptyLine;
+    end;
+
+    Write('  finally');
+
+    //ShowMessage('8');
+
+    if lHasObjectDisposer then begin
+      Write('    __lObjectDisposer := TROObjectDisposer.Create(__Instance);');
+      Write('    try');
+
+      for i := 0 to (Count-1) do with Items[i] do begin
+        if IsImplementedAsClass(DataType, aLibrary) then begin
+          if Items[i].Flag = fInOut then begin
+            Write(Format('      __lObjectDisposer.Add(__in_%s);', [Items[i].Name]));
+          end;
+          Write(Format('      __lObjectDisposer.Add(%s);', [Items[i].Name]));
+        end;
+      end;
+      if Assigned(Result) then begin
+        if IsImplementedAsClass(Result.DataType, aLibrary) then begin
+          Write('      __lObjectDisposer.Add(lResult);');
+        end;
+      end;
+
+      Write('    finally');
+      Write('      __lObjectDisposer.Free();');
+      Write('    end;');
+    end;
+    Write('  end;');
+    Write('end;');
+
+
+    { ToDo: passing an incomig reference to an out param will blow, as both will
+            be freed (so the same object si freed twice. we need to add better
+            logic to catch this:
+
+            currently
+
+              finally
+                if (Param1 <> Result) then Param1.Free;
+                Result.Free;
+              end;
+
+            better:
+
+              finally
+                if (Param1 <> Result) then Param1.Free;
+                Result.Free;
+              end;
+    }
+
+  {finally
+    if (Param1 <> Result) then Param1.Free;
+    Result.Free;
+  end;}
+
+
+
+  end;
+  WriteEmptyLine;
+end;
+
+class function TRODLToInvk.GetTargetFileName(const aLibrary: TRODLLIbrary; const aTargetEntity: string): string;
+begin
+  result := aLibrary.Name+'_Invk.pas';
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToWSDL.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToWSDL.pas
new file mode 100644
index 0000000..fbd6abe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToWSDL.pas	
@@ -0,0 +1,1045 @@
+unit uRODLToWSDL;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen                                           }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, uRODL, uROTypes, uROClasses, uROXMLSerializer;
+
+const
+
+  SOAPDataTypes : array[TRODataType] of string = (
+        'int',
+        'dateTime',
+        'double',
+        'double',
+        'string',
+        'string',
+        'long',
+        'boolean',
+        'anyType',
+        dts_base64Binary,
+        'anyType',
+        'string',
+        'decimal',
+        'string',
+        'dateTime',
+        '???');
+
+
+type
+  { TRODLToWSDL }
+  TRODLToWSDL = class(TRODLConverter)
+  private
+    fLocation: string;
+    fShowClientId: Boolean;
+    fUseLiteral: Boolean;
+    fUseDocument: Boolean;
+    fTargetEntity, fTargetNamespace: string;
+    fExternalTypesAsReferences: Boolean;
+    fHasXsdData: Boolean;
+    fExternalRefs, // namespace
+    fExternalUrls: TStrings; // uri
+    fXsdTns,
+    fTargetXSD: string;
+    procedure SetLocation(const Value: string);
+    function GetPrefix(const aType, aNs: string): String;
+
+    procedure WriteEnum(anEnum : TRODLEnum);
+    procedure WriteStruct(const aLibrary: TRODLLibrary; aStruct : TRODLStruct);
+    procedure WriteArray(anArray : TRODLArray);
+    procedure WriteExceptionElement(anException : TRODLException);
+
+    procedure WriteMessages(aLibrary: TRODLLibrary; aService : TRODLService);
+    procedure WriteExceptionMessage(anException: TRODLException);
+    procedure WriteLiteralParameters(aLibrary: TRODLLibrary; aService : TRODLService);
+    procedure WriteBindings(aLibrary: TRODLLibrary; aService : TRODLService);
+    procedure WritePorts(aLibrary: TRODLLibrary; aService : TRODLService);
+    procedure WriteExceptionParts(aMeth: TRODLOperation);
+    procedure WriteService(aLibrary: TRODLLibrary; aService : TRODLService);
+    function GetAnchestor(aLibrary: TRODLLibrary;
+      aService: TRODLService): TRODLService;
+    procedure WriteAnnotation(aDocString: string; aIndentation: Integer = 0; aNs:
+        string = 'xs:');
+    procedure WriteDocumentation(aDocString: string; aIndentation: Integer = 0;
+        aNs: string = 'xs:');
+    function ExtSOAPDataType(aLibrary: TRODLLibrary; const aDataTypeName : string) : string;
+    procedure ResolveExternalReferences(aLibrary: TRODLLibrary);
+    function ReplaceSpecialChars(aText: String): String;
+  protected
+    procedure IntConvert(const aLibrary : TRODLLibrary; const aTargetEntity : string = ''); override;
+    procedure AddExternal(aNode: TRODLEntity); overload;
+    procedure AddExternal(const aNs,aUrl: string); overload;
+
+  public
+    constructor Create(const aLibraryFile: string; const aTargetEntity: string = ''); overload; override;
+    constructor Create(const aLibrary: TRODLLibrary; const aTargetEntity: string = ''); overload; override;
+    destructor Destroy; override;
+    property TargetXsd: string read fTargetXSD write fTargetXSD;
+    property Location : string read fLocation write SetLocation;
+    property TargetNamespace: string read fTargetNamespace write fTargetNamespace;
+    property ShowClientId : Boolean read fShowClientId write fShowClientId;
+    property UseLiteral : Boolean read fUseLiteral write fUseLiteral;
+    property UseDocument : Boolean read fUseDocument write fUseDocument;
+    property ExternalTypesAsReferences : Boolean read fExternalTypesAsReferences write fExternalTypesAsReferences;
+  end;
+
+function SOAPDataType(const aDataTypeName : string; IncludeNamespace : boolean = TRUE) : string;
+
+implementation
+
+uses SysUtils;
+
+function SOAPDataType(const aDataTypeName : string; IncludeNamespace : boolean = TRUE) : string;
+var dt : TRODataType;
+begin
+  dt := StrToDataType(aDataTypeName);
+  if (dt=rtUserDefined)
+    then result := aDataTypeName
+    else result := SOAPDataTypes[dt];
+
+  if IncludeNamespace then begin
+    if (dt=rtUserDefined) then result := 'tns:'+result
+                          else result := ns_Standard+':'+result;
+  end;
+end;
+
+{ TRODLToWSDL }
+
+const
+  definitions_ns : array[0..5] of string = ('xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" ',
+                                            'xmlns:xs="http://www.w3.org/2001/XMLSchema" ',
+                                            'name="%s" ',
+                                            'xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" ',
+                                            'xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" ',
+                                            'xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"');
+
+procedure TRODLToWSDL.IntConvert(const aLibrary: TRODLLibrary; const aTargetEntity: string);
+var
+  s, i: integer;
+  lService: TRODLService;
+begin
+  if pos(':', fTargetNamespace) = 0 then fTargetNamespace := 'urn:'+fTargetNamespace;
+  fTargetEntity := aTargetEntity;
+  with aLibrary do begin
+    if (aTargetEntity<>'') then begin
+        lService := aLibrary.FindService(aTargetEntity);
+        if (lService <> nil) then
+          if lService.isPrivate then Exit;
+      end else
+        lService := NIL;
+    fExternalRefs.Clear;
+	fExternalUrls.Clear;
+    fXsdTns := '';
+    if fExternalTypesAsReferences then begin
+      ResolveExternalReferences(aLibrary);
+    end;
+    if fXsdTns = '' then
+      fXsdTns := fTargetNamespace;
+
+
+
+    Write('<?xml version="1.0" encoding="UTF-8" ?>');
+    if fTargetXSD <> '' then begin
+      if not fHasXsdData then raise Exception.Create('No xsd by that name');
+      Write('<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="'+ fXsdTns +'"');
+      Write('targetNamespace="'+fXsdTns+'" elementFormDefault="qualified"', 3);
+      Write('xmlns:tns="'+ fXsdTns +'" ', 3);
+      for i := 0 to fExternalRefs.Count -1 do begin
+        if fExternalRefs[i] <> fXsdTns then
+          write('xmlns:ns'+IntToStr(i)+'="'+fExternalRefs[i]+'" ', 3);
+      end;
+      Write('>');
+
+
+    end else begin
+      Write('<wsdl:definitions ');
+
+      for i := 0 to High(definitions_ns) do
+          Write(Format(definitions_ns[i], [Name]), 3);
+
+      Write('targetNamespace="'+ fTargetNamespace +'" ', 3);
+      Write('xmlns:tns="'+ fTargetNamespace +'" ', 3);
+
+      for i := 0 to fExternalRefs.Count -1 do begin
+        write('xmlns:ns'+IntToStr(i)+'="'+fExternalRefs[i]+'" ', 3);
+      end;
+
+      Write('>');
+      WriteAnnotation(aLibrary.Documentation); {Giovanni}
+
+
+      // Write types
+
+      Write('<wsdl:types>', 3);
+      Write(Format('<xs:schema targetNamespace="%s" elementFormDefault="qualified">', [fTargetNamespace]), 6);
+    end;
+
+    for i := 0 to fExternalRefs.Count -1 do begin
+      if ((fTargetXSD ='') and (fExternalRefs[i] = fTargetNamespace)) or
+        ((fTargetXSD <> '') and (fExternalRefs[i] = fXsdTns)) then
+        Write(Format('<xs:include schemaLocation="%s?xsd=%s" />',[flocation, fExternalUrls[i]] ), 3)
+      else
+        Write(Format('<xs:import namespace="%s" schemaLocation="%s?xsd=%s" />',[fExternalRefs[i], fLocation, fExternalUrls[i]] ), 3);
+    end;
+
+    for i := 0 to (EnumCount-1) do WriteEnum(Enums[i]);
+    for i := 0 to (StructCount-1) do WriteStruct(aLibrary, Structs[i]);
+    for i := 0 to (ArrayCount-1) do WriteArray(Arrays[i]);
+    for i := 0 to (ExceptionCount-1) do WriteExceptionElement(Exceptions[i]);
+    if fUseLiteral and fUseDocument then begin
+      if (aTargetEntity<>'') then WriteLiteralParameters(aLibrary, lService)
+      else for s := 0 to (ServiceCount-1) do begin
+        lService := Services[s];
+        WriteLiteralParameters(aLibrary, lService);
+      end;
+      if fShowClientId then begin
+        Write('<xs:element name="ROClientIDHeader">', 3);
+        Write('<xs:complexType>', 6);
+        Write('<xs:sequence>', 9);
+        Write('<xs:element name="ID" minOccurs="0" maxOccurs="1" type="xs:string" />', 6);
+        Write('</xs:sequence>', 9);
+        Write('</xs:complexType>', 6);
+        Write('</xs:element>', 3);
+      end;
+    end;
+    Write('</xs:schema>', 6);
+    if fTargetXSD = '' then begin
+      Write('</wsdl:types>', 3);
+
+      // Writes messages
+      if (aTargetEntity<>'') then WriteMessages(aLibrary, lService)
+      else for s := 0 to (ServiceCount-1) do begin
+        lService := Services[s];
+        WriteMessages(aLibrary, lService);
+      end;
+      for s := 0 to aLibrary.ExceptionCount -1 do begin
+        WriteExceptionMessage(aLibrary.Exceptions[s]);
+      end;
+      if fShowClientId and fUseLiteral and fUseDocument then begin
+        Write('<wsdl:message name="ROClientIDHeaderMessage">', 3);
+        Write('<wsdl:part name="ROClientID" element="tns:ROClientIDHeader" />', 3);
+        Write('</wsdl:message>', 3);
+      end;
+
+      // Writes port and operations
+      if (aTargetEntity<>'') then WritePorts(aLibrary, lService)
+      else for s := 0 to (ServiceCount-1) do begin
+        lService := Services[s];
+        WritePorts(aLibrary, lService);
+      end;
+
+      // Write bindings
+      if (aTargetEntity<>'') then WriteBindings(aLibrary, lService)
+      else for s := 0 to (ServiceCount-1) do begin
+        lService := Services[s];
+        WriteBindings(aLibrary, lService);
+      end;
+
+      // Writes services
+      if (aTargetEntity<>'') then WriteService(aLibrary, lService)
+      else for s := 0 to (ServiceCount-1) do begin
+        lService := Services[s];
+        WriteService(aLibrary, lService);
+      end;
+
+      Write('</wsdl:definitions>');
+    end;
+  end;
+end;
+
+procedure TRODLToWSDL.SetLocation(const Value: string);
+begin
+  fLocation := Value;
+end;
+
+procedure TRODLToWSDL.WriteArray(anArray: TRODLArray);
+var
+  lMin,
+  lMax: Integer;
+begin
+  if fExternalTypesAsReferences and (anArray.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then exit;
+  Write(Format('<xs:complexType name="%s">', [anArray.Name]), 9);
+  WriteAnnotation(anArray.Documentation, 9);
+
+  if fUseDocument then begin
+    Write('<xs:sequence>', 12);
+
+    lMax := StrToIntDef(anArray.Attributes.Values['MaxOccurs'], -1);
+    lMin := StrToIntDef(anArray.Attributes.Values['MinOccurs'], 0);
+
+    if lMax = -1 then begin
+      Write(Format('<xs:element name="%s" minOccurs="%d" maxOccurs="unbounded" type="%s" />', [Unprefix(SOAPDataType(anArray.ElementType, false)),
+        lMin,
+        ExtSOAPDataType(anArray.OwnerLibrary, anArray.ElementType)]), 15);
+    end else begin
+    Write(Format('<xs:element name="%s" minOccurs="%d" maxOccurs="%d" type="%s" />', [Unprefix(SOAPDataType(anArray.ElementType, false)),
+      lMin,
+      lMax,
+      ExtSOAPDataType(anArray.OwnerLibrary, anArray.ElementType)]), 15);
+    end;
+    Write('</xs:sequence>', 12);
+  end else begin
+    Write('<xs:complexContent>', 12);
+    Write('<xs:restriction base="soapenc:Array">', 15);
+    Write('<xs:sequence />', 18);
+    Write(Format('<xs:attribute ref="soapenc:arrayType" n1:arrayType="%s[]" xmlns:n1="http://schemas.xmlsoap.org/wsdl/" />',
+            [Unprefix(ExtSOAPDataType(anArray.OwnerLibrary, anArray.ElementType))]), 18);
+    Write('</xs:restriction>', 15);
+
+    Write('</xs:complexContent>', 12);
+
+  end;
+  Write('</xs:complexType>', 9);
+end;
+
+procedure TRODLToWSDL.WriteEnum(anEnum: TRODLEnum);
+var i : integer;
+begin
+  if fExternalTypesAsReferences and (anEnum.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then exit;
+  Write(Format('<xs:simpleType name="%s">', [anEnum.Name]), 9);
+  WriteAnnotation(anEnum.Documentation, 12); {Giovanni}
+  Write('<xs:restriction base="xs:string">', 12);
+  for i := 0 to anEnum.Count-1 do
+  begin
+    //WriteDocumentation(anEnum.Items[i].Documentation, 12); {Giovanni}
+    Write(Format('<xs:enumeration value="%s" />', [Unprefix(anEnum.Items[i].Name)]), 15);
+  end;
+  Write('</xs:restriction>', 12);
+  Write('</xs:simpleType>', 9);
+end;
+
+function TRODLToWSDL.GetAnchestor(aLibrary: TRODLLibrary; aService: TRODLService): TRODLService;
+begin
+  result := NIL;
+  if (aService.Ancestor<>'') and not aService.isPrivate
+    then result := aLibrary.FindService(aService.Ancestor)
+end;
+
+procedure TRODLToWSDL.WriteMessages(aLibrary: TRODLLibrary; aService: TRODLService);
+var o, p : integer;
+    dups : TStringList;
+    lRet: TRODLStruct;
+    lType, s, svcname, mtdname : string;
+    op : TRODLOperation;
+begin
+  // Writes all the methods of this service and its anchestors.
+  // If more than one service descend from the same base one, the WSDL has to be generated
+  // using a format like this: http://localhost:8099/SOAP?Service=ServiceOne
+
+  svcname := aService.Name;
+  dups := TStringList.Create;
+  dups.Duplicates := dupIgnore;
+  dups.Sorted := TRUE;
+  try
+    while Assigned(aService) and not aService.isPrivate do begin
+
+      with aService.Default do begin
+        for o := 0 to (Count-1) do begin
+          op := Items[o];
+
+          // If a method with this name is present, it skips it
+          mtdname := UpperCase(op.Name);
+          if (dups.IndexOf(mtdname)>=0) then Continue else dups.Add(mtdname);
+
+          if fUseLiteral and fUseDocument then begin
+               Write(Format('<wsdl:message name="%s___%sRequest">', [Unprefix(svcname), Unprefix(op.Name)]), 3);
+               s := op.Attributes.Values['SOAPInputNameOverride'];
+               if s = '' then s := Format('%s___%s', [svcname, op.Name]);
+               Write(Format('<wsdl:part name="parameters" element="tns:%s" />', [s]), 6);
+               Write('</wsdl:message>', 3);
+               Write(Format('<wsdl:message name="%s___%sResponse">', [Unprefix(svcname), Unprefix(op.Name)]), 3);
+               s := op.Attributes.Values['SOAPOutputNameOverride'];
+               if s = '' then s := Format('%s___%sResponse', [svcname, op.Name]);
+               Write(Format('<wsdl:part name="parameters" element="tns:%s" />', [s]), 6);
+               Write('</wsdl:message>', 3);
+          end 
+          else begin
+          // Continues
+          with Items[o] do begin
+             // Request
+             Write(Format('<wsdl:message name="%s___%sRequest">', [Unprefix(svcname), Unprefix(op.Name)]), 3);
+             for p := 0 to (Count-1) do
+               if IsInputFlag(Items[p].Flag) then begin
+                 lType := Items[p].DataType;
+                 lRet := aLibrary.FindStruct(lType);
+                 if (lRet <> nil) and (lRet.Count = 1) and (lRet.Attributes.Values['Anonymous'] = '1') then
+                   lType := lRet.Items[0].DataType;
+
+                 Write(Format('<wsdl:part name="%s" type="%s" />', [Unprefix(Items[p].Name), ExtSOAPDataType(aLibrary, lType)]), 6);
+               end;
+             Write('</wsdl:message>', 3);
+
+             // Response
+             Write(Format('<wsdl:message name="%s___%sResponse">', [Unprefix(svcname), Unprefix(op.Name)]), 3);
+
+             if Assigned(aService.Default.Items[o].Result) then begin
+                lType := op.Result.DataType;
+                 lRet := aLibrary.FindStruct(lType);
+                 if (lRet <> nil) and (lRet.Count = 1) and (lRet.Attributes.Values['Anonymous'] = '1') then
+                   lType := lRet.Items[0].DataType;
+                 Write(Format('<wsdl:part name="%s" type="%s" />', [Unprefix(op.Result.Name), ExtSOAPDataType(aLibrary, lType)]), 6);
+             end;
+                 //Write(Format('<part name="return" type="%s" />', [SOAPDataType(aService.Default.Items[o].Result.DataType)]), 6);
+
+             for p := 0 to (Count-1) do begin
+               if Items[p].Flag in [fOut, fInOut] then begin
+                 lType := Items[p].DataType;
+                                  lRet := aLibrary.FindStruct(lType);
+                 if (lRet <> nil) and (lRet.Count = 1) and (lRet.Attributes.Values['Anonymous'] = '1') then
+                   lType := lRet.Items[0].DataType;
+
+                 Write(Format('<wsdl:part name="%s" type="%s" />', [Unprefix(Items[p].Name), ExtSOAPDataType(aLibrary, lType)]), 6);
+               end;
+             end;
+             Write('</wsdl:message>', 3);
+          end;
+      end;
+        end;
+      end;
+      aService := GetAnchestor(aLibrary, aService);
+    end;
+  finally
+    dups.Free;
+  end;
+end;
+
+procedure TRODLToWSDL.WritePorts(aLibrary: TRODLLibrary; aService: TRODLService);
+var o : integer;
+svcname: string;
+begin
+  // Writes a port for each method of this service and its anchestors.
+  // Refer to the comment in TRODLToWSDL.WriteMessages
+  if aService.isPrivate then Exit;
+  svcname := aService.Name;
+  Write(Format('<wsdl:portType name="%s">', [Unprefix(svcname)]), 3);
+  WriteDocumentation(aService.Documentation, 6, 'wsdl:');
+  while Assigned(aService) and not aService.isPrivate  do begin
+
+    for o := 0 to (aService.Default.Count-1) do begin
+      with aService.Default.Items[o] do begin
+        Write(Format('<wsdl:operation name="%s">', [Unprefix(Name)]), 6);
+        WriteDocumentation(Documentation, 6, 'wsdl:'); {Giovanni}
+        Write(Format('<wsdl:input message="tns:%s___%sRequest" />', [Unprefix(svcname), Unprefix(Name)]), 9);
+        Write(Format('<wsdl:output message="tns:%s___%sResponse" />', [Unprefix(svcname), Unprefix(Name)]), 9);
+        WriteExceptionParts(aService.Default.Items[o]);
+        Write(Format('</wsdl:operation>', [Name]), 6)
+      end;
+    end;
+
+    aService := GetAnchestor(aLibrary, aService);
+  end;
+  Write('</wsdl:portType>', 3);
+end;
+
+procedure TRODLToWSDL.WriteBindings(aLibrary: TRODLLibrary; aService: TRODLService);
+var o : integer;
+    lAct, svcname : string;
+begin
+  // Write all the bindings for this service and its anchestors using the method names.
+  // It's important to notice that we NEVER use the anchestor name when composing the SOAPAction, but
+  // always use the final service name
+  if aService.isPrivate then Exit;
+  svcname := aService.Name;
+
+  Write(Format('<wsdl:binding name="%sBinding" type="tns:%s">', [Unprefix(svcname), Unprefix(svcname)]), 3);
+  WriteAnnotation(aService.Documentation, 6); {Giovanni}
+  if fUseDocument then
+    Write('<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />', 6)
+  else
+    Write('<soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />', 6);
+
+  while Assigned(aService) and not aService.isPrivate do begin
+
+    for o := 0 to (aService.Default.Count-1) do begin
+      with aService.Default.Items[o] do begin
+        lAct := Attributes.Values['Action'];
+        Write(Format('<wsdl:operation name="%s">', [Unprefix(Name)]), 9);
+        if lAct <> '' then begin
+          if pos(':', lAct) = 0 then lAct := 'urn:'+lAct;
+          if fUseDocument then
+            Write(Format('<soap:operation soapAction="%s" style="document" />', [lAct]),12)
+          else
+            Write(Format('<soap:operation soapAction="%s" style="rpc" />', [lAct]),12);
+        end else begin
+          if fUseDocument then
+            Write(Format('<soap:operation soapAction="urn:%s-%s#%s" style="document" />', [aLibrary.Name, Unprefix(svcname), Unprefix(Name)]),12)
+          else
+            Write(Format('<soap:operation soapAction="urn:%s-%s#%s" style="rpc" />', [aLibrary.Name, Unprefix(svcname), Unprefix(Name)]),12);
+        end;
+        if fUseLiteral then begin
+          Write('<wsdl:input>', 12);
+          Write('<soap:body use="literal" />', 15);
+          if fShowClientId and fUseDocument then
+            write('<soap:header message="tns:ROClientIDHeaderMessage" use="literal" part="ROClientID" />', 15);
+          Write('</wsdl:input>', 12);
+
+          Write('<wsdl:output>', 12);
+          Write('<soap:body use="literal" />', 15);
+          if fShowClientId and fUseDocument then
+            write('<soap:header message="tns:ROClientIDHeaderMessage" use="literal" part="ROClientID" />', 15);
+          Write('</wsdl:output>', 12);
+        end
+        else begin
+        Write('<wsdl:input>', 12);
+        Write(Format('<soap:body use="encoded" '+
+                     'encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" '+
+                     'namespace="urn:%s-%s" />',
+              [Unprefix(aLibrary.Name), Unprefix(svcname)]), 15);
+        Write('</wsdl:input>', 12);
+
+        Write('<wsdl:output>', 12);
+        Write(Format('<soap:body use="encoded" '+
+                     'encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" '+
+                     'namespace="urn:%s-%s" />',
+              [Unprefix(aLibrary.Name), Unprefix(svcname)]), 15);
+        Write('</wsdl:output>', 12);
+        end;
+
+        Write('</wsdl:operation>', 9);
+      end;
+    end;
+
+    aService := GetAnchestor(aLibrary, aService);
+  end;
+
+  Write('</wsdl:binding>', 3);
+end;
+
+
+procedure TRODLToWSDL.WriteAnnotation(aDocString: string; aIndentation: Integer
+    = 0; aNs: string = 'xs:');
+begin
+  if Trim(aDocString) = '' then exit;
+  Write(Format('<%sannotation>',[aNs]), aIndentation);
+  WriteDocumentation(aDocString,aIndentation+3, aNs);
+  Write(Format('</%sannotation>',[aNs]), aIndentation);
+end;
+
+
+procedure TRODLToWSDL.WriteDocumentation(aDocString: string; aIndentation:
+    Integer = 0; aNs: string = 'xs:');
+var lDocString: String;
+begin
+  lDocString := ReplaceSpecialChars(aDocString);
+  if Trim(aDocString) = '' then exit;
+  Write(Format('<%sdocumentation>',[aNs]), aIndentation);
+  Write(Format('%s', [lDocString]),aIndentation);
+  Write(Format('</%sdocumentation>',[aNs]), aIndentation);
+end;
+
+procedure TRODLToWSDL.WriteService(aLibrary: TRODLLibrary; aService: TRODLService);
+begin
+  // We only write the service itself, ignoring the anchestors
+  if aService.isPrivate then Exit;
+  Write(Format('<wsdl:service name="%s">', [Unprefix(aService.Name)]), 3);
+  WriteAnnotation(aService.Default.Documentation, 6);
+
+  while Assigned(aService) and not aService.isPrivate  do begin
+    Write(Format('<wsdl:port name="%sPort" binding="tns:%sBinding">',
+                 [Unprefix(aService.Name), Unprefix(aService.Name)]), 6);
+    Write(Format('<soap:address location="%s" />', [fLocation+'?service='+StringReplace(aService.Name,' ', '+', [rfReplaceAll])]), 9);
+    Write('</wsdl:port>', 6);
+
+    aService := NIL;//GetAnchestor(aLibrary, aService);
+  end;
+
+  Write('</wsdl:service>',3);
+end;
+
+procedure TRODLToWSDL.WriteStruct(const aLibrary: TRODLLibrary; aStruct: TRODLStruct);
+var
+  i : integer;
+  lLax: Boolean;
+  lRet: TRODLStruct;
+begin
+  if fExternalTypesAsReferences and (aStruct.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then exit;
+  if  aStruct.Attributes.Values['Anonymous'] = '1' then exit;
+  Write(Format('<xs:complexType name="%s">', [Unprefix(aStruct.Name)]), 9);
+  WriteAnnotation(aStruct.Documentation, 9); {Giovanni}
+  if fUseDocument then begin
+    if aStruct.Ancestor <> '' then begin
+      write(Format('<xs:complexContent><xs:extension base="%s">', [ExtSOAPDataType(aLibrary, aStruct.Ancestor)]), 9);
+    end;
+  end;
+  Write('<xs:sequence>', 12);
+  lLax := aStruct.Attributes.Values['lax'] = '1';
+  while Assigned(aStruct) do begin
+    for i := 0 to aStruct.Count-1 do
+      with aStruct.Items[i] do begin
+        lRet := aLibrary.FindStruct(DataType);
+        if (lRet <> nil) and (lRet.Count = 1) and (lRet.Attributes.Values['Anonymous'] = '1') then begin
+          if lRet.Attributes.Values['Nillable'] = '1' then
+            Write(Format('<xs:element name="%s" type="%s" nillable="1">', [Unprefix(Name), ExtSOAPDataType(aLibrary, lRet.Items[0].DataType)]), 15)
+          else
+            Write(Format('<xs:element name="%s" type="%s" minOccurs="0" maxOccurs="1">', [Unprefix(Name), ExtSOAPDataType(aLibrary, lRet.Items[0].DataType)]), 15);
+        end else begin
+          Write(Format('<xs:element name="%s" type="%s">', [Unprefix(Name), ExtSOAPDataType(aLibrary, DataType)]), 15);
+        end;
+        WriteAnnotation(Documentation, 15); {Giovanni}
+        Write('</xs:element>',15);
+      end;
+
+    if fUseDocument then break;
+    if aStruct.Ancestor <> '' then begin
+      aStruct := aLibrary.FindStruct(aStruct.Ancestor)
+    end
+    else begin
+      aStruct := nil;
+    end;
+  end;
+  if lLax then
+    Write('<xs:any namespace="##any" processContents="lax"/>', 15);
+  Write('</xs:sequence>', 12);
+  if fUseDocument then begin
+    if aStruct.Ancestor <> '' then
+      write('</xs:extension></xs:complexContent>', 9);
+  end;
+
+  Write('</xs:complexType>', 9);
+end;
+
+procedure TRODLToWSDL.WriteLiteralParameters(aLibrary: TRODLLibrary;
+  aService: TRODLService);
+var o, p, i : integer;
+    dups : TStringList;
+    s, svcname, mtdname : string;
+    op : TRODLOperation;
+    lRet: TRODLStruct;
+begin
+  // Writes all the methods of this service and its anchestors.
+  // If more than one service descend from the same base one, the WSDL has to be generated
+  // using a format like this: http://localhost:8099/SOAP?Service=ServiceOne
+
+  svcname := aService.Name;
+  dups := TStringList.Create;
+  dups.Duplicates := dupIgnore;
+  dups.Sorted := TRUE;
+  try
+    while Assigned(aService) and not aService.isPrivate do begin
+
+      for o := 0 to (aService.Default.Count-1) do begin
+        op := aService.Default.Items[o];
+
+        // If a method with this name is present, it skips it
+        mtdname := UpperCase(op.Name);
+        if (dups.IndexOf(mtdname)>=0) then Continue else dups.Add(mtdname);
+
+        s := op.Attributes.Values['SOAPInputNameOverride'];
+        if s = '' then s := Format('%s___%s', [Unprefix(svcname), Unprefix(op.Name)]);
+
+        if not ((fExternalTypesAsReferences) and (op.Attributes.Values['InputImportedFromUrl'] <> fTargetXSD)) then begin
+          p := 0;
+          for i := 0 to op.Count -1 do begin
+            if op[i].Flag in [fIn, fInOut] then
+              inc(p);
+          end;
+          write(Format('<xs:element name="%s">', [Unprefix(s)]), 3);
+          if p = 0 then begin
+            write('<xs:complexType />', 6);
+          end
+          else begin
+            write('<xs:complexType>', 6);
+            write('<xs:sequence>', 9);
+            for i := 0 to op.Count -1 do begin
+              if op[i].Flag in [fIn, fInOut] then begin
+                lRet := aLibrary.FindStruct(op[i].DataType);
+                if (lRet <> nil) and (lRet.Count = 1) and (lRet.Attributes.Values['Anonymous'] = '1') then begin
+                  if lRet.Attributes.Values['Nillable'] = '1' then
+                    write(Format('<xs:element name="%s" nillable="1" type="%s" />', [Unprefix(op[i].Name), ExtSOAPDataType(aLibrary, lRet[0].DataType)]), 12)
+                  else
+                    write(Format('<xs:element name="%s" minOccurs="0" maxOccurs="1" type="%s" />', [Unprefix(op[i].Name), ExtSOAPDataType(aLibrary, lRet[0].DataType)]), 12);
+                end else
+
+                write(Format('<xs:element name="%s" minOccurs="1" maxOccurs="1" type="%s" />', [Unprefix(op[i].Name), ExtSOAPDataType(aLibrary, op[i].DataType)]), 12);
+              end;
+            end;
+          if op.Attributes.VAlues['InputLax'] = '1' then
+            Write('<xs:any namespace="##any" processContents="lax"/>', 12);
+            write('</xs:sequence>', 9);
+            write('</xs:complexType>', 6);
+          end;
+
+          write('</xs:element>', 3);
+        end;
+
+        s := op.Attributes.Values['SOAPOutputNameOverride'];
+        if s = '' then s := Format('%s___%sResponse', [Unprefix(svcname), Unprefix(op.Name)]);
+        if not ((fExternalTypesAsReferences) and (op.Attributes.Values['OutputImportedFromUrl'] <> fTargetXSD)) then begin
+          p := 0;
+          for i := 0 to op.Count -1 do begin
+            if op[i].Flag in [fOut, fInOut, fResult] then
+              inc(p);
+          end;
+          if op.Result <> nil then begin
+            inc(p);
+          end;
+          write(Format('<xs:element name="%s">', [Unprefix(s)]), 3);
+          if p = 0 then begin
+            write('<xs:complexType />', 6);
+          end
+          else begin
+            write('<xs:complexType>', 6);
+            write('<xs:sequence>', 9);
+            if op.Result <> nil then begin
+                lRet := aLibrary.FindStruct(op.Result.DataType);
+                if (lRet <> nil) and (lRet.Count = 1) and (lRet.Attributes.Values['Anonymous'] = '1') then begin
+                  if lRet.Attributes.Values['Nillable'] = '1' then
+                    write(Format('<xs:element name="%s" nillable="1" type="%s" />', [Unprefix(op.Result.Name), ExtSOAPDataType(aLibrary, lRet[0].DataType)]), 12)
+                  else
+                    write(Format('<xs:element name="%s" minOccurs="0" maxOccurs="1" type="%s" />', [Unprefix(op.Result.Name), ExtSOAPDataType(aLibrary, lRet[0].DataType)]), 12);
+                end else
+                  write(Format('<xs:element name="%s" minOccurs="1" maxOccurs="1" type="%s" />', [Unprefix(op.Result.Name), ExtSOAPDataType(aLibrary, op.Result.DataType)]), 12);
+            end;
+            for i := 0 to op.Count -1 do begin
+              if op[i].Flag in [fOut, fInOut, fResult] then begin
+                lRet := aLibrary.FindStruct(op[i].DataType);
+                if (lRet <> nil) and (lRet.Count = 1) and (lRet.Attributes.Values['Anonymous'] = '1') then begin
+                  if lRet.Attributes.Values['Nillable'] = '1' then
+                    write(Format('<xs:element name="%s" nillable="1" type="%s" />', [Unprefix(op[i].Name), ExtSOAPDataType(aLibrary, lRet[0].DataType)]), 12)
+                  else
+                    write(Format('<xs:element name="%s" minOccurs="0" maxOccurs="1" type="%s" />', [Unprefix(op[i].Name), ExtSOAPDataType(aLibrary, lRet[0].DataType)]), 12);
+                end else
+                  write(Format('<xs:element name="%s" minOccurs="1" maxOccurs="1" type="%s" />', [Unprefix(op[i].Name), ExtSOAPDataType(aLibrary, op[i].DataType)]), 12);
+              end;
+            end;
+          if op.Attributes.VAlues['OutputLax'] = '1' then
+            Write('<xs:any namespace="##any" processContents="lax"/>', 12);
+            write('</xs:sequence>', 9);
+            write('</xs:complexType>', 6);
+          end;
+          write('</xs:element>', 3);
+        end;
+      end;
+      aService := GetAnchestor(aLibrary, aService);
+    end;
+  finally
+    dups.Free;
+  end;
+end;
+
+constructor TRODLToWSDL.Create(const aLibraryFile, aTargetEntity: string);
+begin
+  fTargetNamespace := 'http://tempuri.org/';
+  fExternalRefs := TStringList.Create;
+  fExternalUrls := TStringList.Create;
+  inherited;
+end;
+
+constructor TRODLToWSDL.Create(const aLibrary: TRODLLibrary;
+  const aTargetEntity: string);
+begin
+  fTargetNamespace := 'http://tempuri.org/';
+  fExternalRefs := TStringList.Create;
+  fExternalUrls := TStringList.Create;
+  inherited;
+end;
+
+destructor TRODLToWSDL.Destroy;
+begin
+  fExternalRefs.Free;
+  fExternalUrls.Free;
+  inherited;
+end;
+
+procedure TRODLToWSDL.AddExternal(aNode: TRODLEntity);
+var
+  lEx: TRODLException;
+begin
+  if Anode = nil then exit;
+  if aNode is TRODLException then begin
+    lEx := TRODLException(aNode);
+    if (fTargetXSD = '') or (fTargetXSD <> lEx.Attributes.Values['ElementUrl']) then
+      AddExternal(lEx.Attributes.Values['ElementNamespace'], lEx.Attributes.Values['ElementUrl']);
+    exit;
+  end;
+  if aNode.Attributes.Values['ImportedFromUrl'] = '' then exit;
+  AddExternal(aNode.Attributes.Values['ImportedFromNamespace'], aNode.Attributes.Values['ImportedFromUrl']);
+end;
+
+procedure TRODLToWSDL.AddExternal(const aNs,aUrl: string);
+var
+  i: Integer;
+begin
+  for i := 0 to fExternalRefs.Count -1 do begin
+    if (fExternalRefs[i] = aNs) and (fExternalUrls[i] = aUrl) then exit;
+  end;
+  fExternalRefs.Add(aNs);
+  fExternalUrls.ADd(aUrl);
+end;
+
+
+function TRODLToWSDL.ExtSOAPDataType(aLibrary: TRODLLibrary; const aDataTypeName: string): string;
+var
+  el: TRODLEntity;
+begin
+  if fExternalTypesAsReferences then begin
+    el := aLibrary.FindStruct(aDataTypeName);
+    if el = nil then
+      el := aLibrary.FindException(aDataTypeName);
+    if el = nil then
+      el := aLibrary.FindEnum(aDataTypeName);
+    if el = nil then
+      el := aLibrary.FindArray(aDataTypeName);
+    if el <> nil then begin
+      if (el.Attributes.values['ElementNamespace'] <> '') and (fXsdTns <> el.Attributes.values['ElementNamespace']) then begin
+        result := 'ns'+IntToStr(fExternalRefs.IndexOf(el.Attributes.values['ElementNamespace']))+':'+Unprefix(aDataTypeName);
+        exit;
+      end;
+      if (el.Attributes.values['ImportedFromNamespace'] <> '') and (fXsdTns <> el.Attributes.values['ImportedFromNamespace']) then begin
+        result := 'ns'+IntToStr(fExternalRefs.IndexOf(el.Attributes.values['ImportedFromNamespace']))+':'+Unprefix(aDataTypeName);
+        exit;
+      end;
+    end;
+  end;
+
+  result := SOAPDataType(Unprefix(aDataTypeName), True);
+end;
+
+procedure TRODLToWSDL.ResolveExternalReferences(aLibrary: TRODLLibrary);
+var
+  i, j, k: Integer;
+  lIsTarget: Boolean;
+  lServ: TRODLService;
+  lStr: TRODLStruct;
+  lEx: TRODLException;
+  lEl: TRODLEntity;
+
+  lOp: TRODLOperation;
+  lList: TList;
+
+begin
+  lList := TList.Create;
+  try
+    // assume only 1 of fTargetEntity/fTargetXsd is set
+    for i := 0 to aLibrary.ExceptionCount  -1 do begin
+      lEx := aLibrary.Exceptions[i];
+      if (lEx.Attributes.Values['ElementUrl'] = fTargetXSD) and (lEx.Count = 1) then begin
+        fHasXsdData := true;
+        if (fXsdTns = '') and (lEx.Attributes.Values['ElementNamespace'] <> '') then
+          fXsdTns := lEx.Attributes.Values['ElementNamespace'];
+        lEl := aLibrary.ItemByName(lEx.Items[0].DataType);
+        if (lEl <> nil) and (lEl.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then
+        AddExternal(lEl);
+        lEl := aLibrary.ItemByName(lex.Ancestor);
+        if (lEl <> nil) and (lEl.Attributes.Values['ElementUrl'] <> fTargetXSD) then
+          AddExternal(lEl);
+      end;
+    end;
+    for i := 0 to aLibrary.ArrayCount  -1 do begin
+      if aLibrary.Arrays[i].Attributes.Values['ImportedFromUrl'] = fTargetXSD then begin
+        fHasXsdData := true;
+        if (fXsdTns = '') and (aLibrary.Arrays[i].Attributes.Values['ImportedFromNamespace'] <> '') then
+          fXsdTns := aLibrary.Arrays[i].Attributes.Values['ImportedFromNamespace'];
+        lEl := aLibrary.ItemByName(aLibrary.Arrays[i].ElementType);
+        if (lEl <> nil) and (lEl.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then
+          AddExternal(lEl);
+      end else if fTargetXSD = '' then AddExternal(aLibrary.Arrays[i]);
+    end;
+    for i := 0 to aLibrary.StructCount  -1 do begin
+      lStr := aLibrary.Structs[i];
+      if lStr.Attributes.Values['ImportedFromUrl'] = fTargetXSD then begin
+        while lStr <> nil do begin
+          fHasXsdData := true;
+          if (fXsdTns = '') and (lStr.Attributes.Values['ImportedFromNamespace'] <> '') then
+            fXsdTns := lStr.Attributes.Values['ImportedFromNamespace'];
+          for j := 0 to lStr.Count -1 do begin
+            lEl := aLibrary.ItemByName(lStr[j].DataType);
+            if (lEl <> nil) and (lEl.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then
+              AddExternal(lEl);
+          end;
+          lEl := aLibrary.ItemByName(lStr.Ancestor);
+          if (lEl <> nil) and (lEl.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then
+            AddExternal(lEl);
+          if lEl is TRODLStruct then
+            lStr := TRodlStruct(lEl)
+          else
+            break;
+        end;
+      end else if fTargetXSD = '' then AddExternal(lStr);
+    end;
+    for i := 0 to aLibrary.EnumCount  -1 do begin
+      if aLibrary.Enums[i].Attributes.Values['ImportedFromUrl'] = fTargetXSD then begin
+        fHasXsdData := true;
+        if (fXsdTns = '') and (aLibrary.Enums[i].Attributes.Values['ImportedFromNamespace'] <> '') then
+          fXsdTns := aLibrary.Enums[i].Attributes.Values['ImportedFromNamespace'];
+
+       end else if fTargetXSD = '' then
+         AddExternal(aLibrary.Enums[i]);
+    end;
+    for i := 0 to aLibrary.ServiceCount -1 do begin
+      lServ := aLibrary.Services[i];
+      lIsTarget := ((fTargetEntity = '') or (lServ.Name = fTargetEntity)) and (fTargetXsd = '');
+      if lIsTarget or (fTargetXSD <> '') then begin
+        for j := 0 to lServ[0].Count -1 do begin
+          lOp := lServ[0][j];
+          if lIsTarget then
+          for k := 0 to lOp.Attributes.Count -1 do begin
+            if copy(lOp.Attributes[k], 1, 6) = 'fault_' then begin
+              AddExternal(aLibrary.FindException(lOp.Attributes.Values[lOp.Attributes.Names[k]]));
+            end;
+          end;
+          if lOp.Attributes.Values['InputImportedFromUrl'] = fTargetXSD then begin
+            for k := 0 to lOp.Count -1 do begin
+              if lOp[k].Flag in [fIn, fInOut] then begin
+                lEl := aLibrary.ItemByName(lOp[k].DataType);
+                if (lEl <> nil) and (lEl.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then
+                  AddExternal(lEl);
+              end;
+            end;
+          end else if lIsTarget and (lOp.Attributes.Values['InputImportedFromUrl'] <> '') then begin
+            AddExternal(fTargetNamespace, lOp.Attributes.Values['InputImportedFromUrl']);
+          end;
+          if lOp.Attributes.Values['OutputImportedFromUrl'] = fTargetXSD then begin
+            for k := 0 to lOp.Count -1 do begin
+              if lOp[k].Flag in [fInOut] then begin
+                lEl := aLibrary.ItemByName(lOp[k].DataType);
+                if (lEl <> nil) and (lEl.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then
+                  AddExternal(lEl);
+              end;
+            end;
+            if lOp.Result <> nil then begin
+              lEl := aLibrary.ItemByName(lOp.Result.DataType);
+              if (lEl <> nil) and (lEl.Attributes.Values['ImportedFromUrl'] <> fTargetXSD) then
+                AddExternal(lEl);
+            end;
+          end else if lIsTarget and (lOp.Attributes.Values['OutputImportedFromUrl'] <> '') then begin
+            AddExternal(fTargetNamespace, lOp.Attributes.Values['OutputImportedFromUrl']);
+          end;
+        end;
+      end;
+    end;
+
+  finally
+    lList.Free;
+  end;
+end;
+
+procedure TRODLToWSDL.WriteExceptionMessage(AnException: TRODLException);
+var
+  i: Integer;
+  lItem: TRODLTypedEntity;
+begin
+  if not fUseDocument then exit; // only supported for document
+  Write(Format('<wsdl:message name="%s">', [anException.Name]), 3);
+  for i := 0 to anException.Count -1 do begin
+    lItem := anException[i];
+    if AnException.Attributes.Values['ElementName'] <> '' then
+      Write(Format('<wsdl:part name="%s" element="%s" />', [lItem.Name, GetPrefix(AnException.Attributes.Values['ElementName'], AnException.Attributes.Values['ElementNamespace'])]), 6)
+    else
+      Write(Format('<wsdl:part name="%s" type="%s" />', [lItem.Name, ExtSOAPDataType(anException.OwnerLibrary, lItem.DataType)]), 6);
+  end;
+  Write('</wsdl:message>', 3);
+
+end;
+
+procedure TRODLToWSDL.WriteExceptionParts(aMeth: TRODLOperation);
+var
+  i: Integer;
+  s, lVal: string;
+begin
+  if not UseDocument then exit;
+  for i := 0 to aMeth.Attributes.Count -1 do begin
+    s := aMeth.Attributes.Names[i];
+    if copy(s,1,6)= 'fault_' then begin
+      lVal := aMeth.Attributes.Values[s];
+      if aMeth.OwnerLibrary.FindException(lVal) <> nil then begin
+        Write(Format('<wsdl:fault name="%s" message="tns:%s" />', [copy(s,7,MaxInt), lVal]), 9);
+      end;
+    end;
+  end;
+end;
+
+procedure TRODLToWSDL.WriteExceptionElement(anException: TRODLException);
+var
+  lRet: TRODLStruct;
+  i: Integer;
+begin
+  if fExternalTypesAsReferences and (anException.Attributes.Values['ElementUrl'] <> fTargetXSD) then exit;
+
+  if (anException.Attributes.Values['ElementType'] = '') and (anException.Attributes.Values['ElementName'] <> '') then begin
+    Write(Format('<xs:element name="%s">', [anException.Attributes.Values['ElementName']]), 9);
+    WriteAnnotation(anException.Documentation, 9); {Giovanni}
+    Write('<xs:complexType>', 9);
+  end else begin
+    if anException.Attributes.Values['ElementType'] = '' then
+      Write(Format('<xs:complexType name="%s">', [anException.Name]), 9)
+    else
+      Write(Format('<xs:complexType name="%s">', [anException.Attributes.Values['ElementType']]), 9);
+    WriteAnnotation(anException.Documentation, 9); {Giovanni}
+  end;
+  if anException.Ancestor <> '' then begin
+    write('<xs:complexContent>', 9);
+    write(Format('<xs:extension base="%s">', [ExtSOAPDataType(anException.OwnerLibrary, anException.Ancestor)]), 9);
+  end;
+  Write('<xs:sequence>', 12);
+
+  for i := 0 to anException.Count-1 do begin
+    with anException.Items[i] do begin
+      lRet := anException.OwnerLibrary.FindStruct(DataType);
+      if (lRet <> nil) and (lRet.Count = 1) and (lRet.Attributes.Values['Anonymous'] = '1') then begin
+        if lRet.Attributes.Values['Nillable'] = '1' then
+          Write(Format('<xs:element name="%s" type="%s" nillable="1">', [Unprefix(Name), ExtSOAPDataType(anException.OwnerLibrary, lRet.Items[0].DataType)]), 15)
+        else
+          Write(Format('<xs:element name="%s" type="%s" minOccurs="0" maxOccurs="1">', [Unprefix(Name), ExtSOAPDataType(anException.OwnerLibrary, lRet.Items[0].DataType)]), 15);
+      end else begin
+        Write(Format('<xs:element name="%s" type="%s">', [Unprefix(Name), ExtSOAPDataType(anException.OwnerLibrary, DataType)]), 15);
+      end;
+      WriteAnnotation(Documentation, 15); {Giovanni}
+      Write('</xs:element>',15);
+    end;
+  end;
+  Write('</xs:sequence>', 12);
+  if anException.Ancestor <> '' then begin
+    write('</xs:extension>', 9);
+    write('</xs:complexContent>', 9);
+  end;
+  Write('</xs:complexType>', 9);
+  if (anException.Attributes.Values['ElementType'] = '') and (anException.Attributes.Values['ElementName'] <> '') then
+    Write('</xs:element>', 9);
+  if anException.Attributes.Values['ElementType'] <> '' then begin
+    Write(Format('<xs:element name="%s" type="%s" />', [anException.Attributes.Values['ElementName'], anException.Attributes.Values['ElementType']]), 9);
+  end;
+end;
+
+function TRODLToWSDL.GetPrefix(const aType, aNs: string): String;
+begin
+  if (fTargetXSD = '') and (aNs = fTargetNamespace) then begin
+     result := 'tns:'+aType;
+     exit;
+  end;
+
+  if aNs <> '' then begin
+    result := 'ns'+IntToStr(fExternalRefs.IndexOf(aNs))+':'+Unprefix(aType);
+    exit;
+  end;
+  Result := 'tns:'+ aType;
+end;
+
+function TRODLToWSDL.ReplaceSpecialChars(aText: String): String;
+begin
+  result := StringReplace(aText, '&', '&amp;', [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '"', '&quot;', [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '''', '&apos;', [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '<', '&lt;', [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '>', '&gt;', [rfReplaceAll, rfIgnoreCase]);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToXML.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToXML.pas
new file mode 100644
index 0000000..c2792b9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen/uRODLToXML.pas	
@@ -0,0 +1,586 @@
+unit uRODLToXML;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen                                           }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  SysUtils,
+  Classes,uRODL,uROClasses;
+
+var
+  XMLFlagNames: XMLFlagNamesArray deprecated;
+
+type
+  { TRODLToXML }
+  TRODLToXML = class(TRODLConverter)
+  private
+    fFlattenUsedRODLs:boolean;
+    fStyleSheet: string;
+    fOutputFileName : string;
+    procedure WriteRoles(xml: TSTringList; aRoles: TStringArray);
+    procedure WriteArrays(xml: TStringList; aLibrary: TRODLLibrary);
+    procedure WriteAttributes(xml: TStringList; aEntity: TRODLEntity);
+    procedure WriteEnums(xml: TStringList; aLibrary: TRODLLibrary);
+    procedure WriteEventSinks(xml: TStringList; aLibrary: TRODLLibrary);
+    procedure WriteExceptions(xml: TStringList; aLibrary: TRODLLibrary);
+    procedure WriteServices(xml: TStringList; aLibrary: TRODLLibrary);
+    procedure WriteStructs(xml: TStringList; aLibrary: TRODLLibrary);
+    procedure WriteUses(xml: TStringList; aLibrary: TRODLLibrary);
+    function WriteAsCData(aData: string): string;
+    function Indent(SpaceCount: byte): string;
+  protected
+    procedure IntConvert(const aLibrary: TRODLLibrary; const aTargetEntity: string = ''); override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; iFlattenUsedRODLs:boolean=false; AOutputFileName: string = ''); reintroduce; overload;
+    constructor Create(const aLibraryFile: string; iFlattenUsedRODLs:boolean=false; AOutputFileName: string = ''); reintroduce; overload;
+
+    property StyleSheet: string read fStyleSheet write fStyleSheet;
+  end;
+
+  TXMLToRODL = uRODL.TXMLToRODL;
+
+function XMLFlagNameToFlag(const aName: string): TRODLParamFlag;
+
+function LoadLibraryFromXml(const aFilename: string): TRODLLibrary;
+
+implementation
+
+uses
+  {$IFDEF DEBUG_REMOBJECTS_RODLTOXML}eDebugServer, {$ENDIF}
+  TypInfo, {$IFDEF DELPHI5}ComObj,{$ENDIF}
+  uRORes, uROXMLIntf;
+
+function XMLFlagNameToFlag(const aName: string): TRODLParamFlag;
+begin
+  result := uRODL.XMLFlagNameToFlag(aName);
+end;
+
+function LoadLibraryFromXml(const aFilename: string): TRODLLibrary;
+begin
+  with uRODL.TXMLToRODL.Create do try
+    result := ReadFromFile(aFilename);
+  finally
+    Free;
+  end;
+end;
+
+constructor TRODLToXML.Create(const aLibrary: TRODLLibrary; iFlattenUsedRODLs: boolean; AOutputFileName: string);
+begin
+  fOutputFileName := AOutputFileName;
+  fFlattenUsedRODLs := iFlattenUsedRODLs;
+  inherited Create(aLibrary);
+end;
+
+constructor TRODLToXML.Create(const aLibraryFile: string; iFlattenUsedRODLs: boolean; AOutputFileName: string);
+begin
+  fOutputFileName := AOutputFileName;
+  fFlattenUsedRODLs := iFlattenUsedRODLs;
+  inherited Create(aLibraryFIle);
+end;
+
+procedure TRODLToXML.IntConvert(const aLibrary: TRODLLibrary; const aTargetEntity: string = '');
+var
+  lAdditional: string;
+  xml: TStringList;
+begin
+  xml := TStringList.Create;
+  with aLibrary do try
+    {$IFDEF FPC}
+    if aTargetEntity = '' then lAdditional := '' else //remove FPC warning
+    {$ENDIF FPC}
+    lAdditional := '';
+    if Namespace <> '' then lAdditional := 'Namespace="' + Namespace + '" ';
+
+    xml.Append('<?xml version="1.0" encoding="utf-8"?>');
+    if fStyleSheet <> '' then
+      xml.Append('<?xml-stylesheet type="text/xsl" href="' + fStyleSheet + '"?>');
+
+    xml.Append(Format('<Library Name="%s" ' + lAdditional + 'UID="%s" Version="3.0">', [Name, GUIDToString(UID)]));
+
+    WriteAttributes(xml, aLibrary);
+    WriteServices(xml, aLibrary);
+    WriteEventSinks(xml, aLibrary);
+    WriteStructs(xml, aLibrary);
+    WriteEnums(xml, aLibrary);
+    WriteArrays(xml, aLibrary);
+    WriteUses(xml, aLibrary);
+    WriteExceptions(xml, aLibrary);
+
+    xml.Append('</Library>');
+  finally
+    Buffer.AddStrings(xml);
+    xml.Free;
+  end;
+end;
+
+procedure TRODLToXML.WriteArrays(xml: TStringList; aLibrary: TRODLLibrary);
+var
+  i: Integer;
+begin
+  xml.Append(Indent(3) + '<Arrays>');
+  with aLibrary do
+    for i := 0 to (ArrayCount - 1) do begin
+      if fFlattenUsedRODLs or not Arrays[i].IsFromUsedRodl then
+        with Arrays[i] do begin
+          xml.Append(Indent(6) + Format('<Array Name="%s" UID="%s">', [Name, GUIDToString(UID)]));
+          WriteAttributes(xml, Info);
+          xml.Append(Indent(3) + Format('<ElementType DataType="%s" />', [ElementType]));
+          xml.Append(Indent(6) + '</Array>');
+        end;
+    end;
+  xml.Append(Indent(3) + '</Arrays>');
+end;
+
+function TRODLToXML.WriteAsCData(aData: string): string;
+
+  function CleanCDATA(const aString: string): string;
+  var
+    lLength: Integer;
+  begin
+    result := aString;
+    lLength := length(aString);
+    while (lLength > 0) and
+    {$IFDEF UNICODE}
+    (CharInSet(result[lLength],[#09,#10,#13,#32]))
+    {$ELSE}
+    (result[lLength] in [#09,#10,#13,#32])
+    {$ENDIF}
+    do dec(lLength);
+    SetLength(result, lLength);
+    for lLength := Length(Result) downto 1 do
+      if
+      {$IFDEF UNICODE}
+        CharInSet(Result[lLength] , [#0..#8,#11,#12,#14..#31])
+      {$ELSE}
+        (Result[lLength] in [#0..#8,#11,#12,#14..#31])
+      {$ENDIF}
+      then result[lLength] := #32;
+    result := StringReplace(result, ']]>', ']]&gt;', [rfReplaceAll]);
+  end;
+
+begin
+  result := '<![CDATA['+{$IFDEF UNICODE}StringOf(BytesOf({$ENDIF}(UTF8Encode(CleanCDATA(aData)))+']]>'{$IFDEF UNICODE})){$ENDIF};
+end;
+
+function SafeHtmlAttribute(const s: string): string;
+begin
+  result := StringReplace(s, '&', '&amp;' , [rfReplaceAll]);
+end;
+
+procedure TRODLToXML.WriteAttributes(xml: TStringList; aEntity: TRODLEntity);
+var
+  attr: Integer;
+begin
+  if aEntity.Documentation <> '' then
+    xml.Append(Indent(6) + '<Documentation>' + WriteAsCData(aEntity.Documentation) + '</Documentation>');
+
+  if (aEntity.Attributes.Count > 0) then begin
+    with aEntity.Attributes do begin
+      xml.Append(Indent(6) + '<CustomAttributes>');
+
+      for attr := 0 to (aEntity.Attributes.Count - 1) do
+        xml.Append(Indent(9) + Format('<%s Value="%s" />',
+          [Names[attr], SafeHtmlAttribute(Values[Names[attr]])]));
+
+      xml.Append(Indent(6) + '</CustomAttributes>');
+    end;
+  end;
+
+  if Assigned(aEntity.GroupUnder) then
+    xml.Append(Indent(6) + Format('<Group Under="%s" />', [GUIDToString(aEntity.GroupUnder.UID)]));
+end;
+
+procedure TRODLToXML.WriteEnums(xml: TStringList; aLibrary: TRODLLibrary);
+var
+  i, k: Integer;
+begin
+  xml.Append(Indent(3) + '<Enums>');
+  with aLibrary do
+    for i := 0 to (EnumCount - 1) do begin
+
+      if fFlattenUsedRODLs or not Enums[i].IsFromUsedRodl then
+        with Enums[i] do begin
+          if not PrefixEnumValues then
+            xml.Append(Indent(6) + Format('<Enum Name="%s" UID="%s" Prefix="0">', [Name, GUIDToString(UID)]))
+          else
+            xml.Append(Indent(6) + Format('<Enum Name="%s" UID="%s">', [Name, GUIDToString(UID)]));
+          WriteAttributes(xml, Info);
+          xml.Append(Indent(3) + '<EnumValues>');
+          for k := 0 to (Count - 1) do begin
+            with Items[k] do begin
+              xml.Append(Indent(9) + Format('<EnumValue Name="%s">', [Name]));
+              WriteAttributes(xml, Info);
+              xml.Append(Indent(9) + '</EnumValue>');
+            end;
+          end;
+          xml.Append(Indent(3) + '</EnumValues>');
+          xml.Append(Indent(6) + '</Enum>');
+        end;
+    end;
+  xml.Append(Indent(3) + '</Enums>');
+end;
+
+procedure TRODLToXML.WriteEventSinks(xml: TStringList; aLibrary: TRODLLibrary);
+var
+  i, k, m, p: Integer;
+  lAdditional: string;
+begin
+  with aLibrary do
+    if EventSinkCount > 0 then begin
+      xml.Append(Indent(3) + '<EventSinks>');
+      for i := 0 to (EventSinkCount - 1) do begin
+        if fFlattenUsedRODLs or not EventSinks[i].IsFromUsedRodl then
+          with EventSinks[i] do begin
+
+            lAdditional := '';
+            if ImplUnit <> '' then lAdditional := ' ImplUnit="' + ImplUnit + '"';
+            if ImplClass <> '' then lAdditional := lAdditional + ' ImplClass="' + ImplClass + '"';
+            if Ancestor <> '' then lAdditional := lAdditional + ' Ancestor="' + Ancestor + '"';
+            if Abstract then lAdditional := lAdditional + ' Abstract="1"';
+            xml.Append(Indent(6) + Format('<EventSink Name="%s" UID="%s"' + lAdditional + '>', [Name, GUIDToString(UID)]));
+
+            WriteAttributes(xml, Info);
+
+            xml.Append(Indent(6) + '<Interfaces>');
+
+            for k := 0 to (Count - 1) do begin
+              with Items[k] do begin
+                xml.Append(Indent(9) +
+                  Format('<Interface Name="%s" UID="%s">', [Name, GUIDToString(UID)]));
+
+                WriteAttributes(xml, Info);
+
+                xml.Append(Indent(6) + '<Operations>');
+                for m := 0 to (Count - 1) do begin
+                  with Items[m] do begin
+                    xml.Append(Indent(9) +
+                      Format('<Operation Name="%s" UID="%s">', [Name, GUIDToString(UID)]));
+
+                    WriteAttributes(xml, Info);
+
+                    xml.Append(Indent(6) + '<Parameters>');
+
+                    { ToDo: cloned from above for now; implement "proper" RODL->XML for 3.0 }
+                    if Assigned(Result) then with Result do begin
+                      with Result do begin
+                        xml.Append(Format('<Parameter Name="%s" DataType="%s" Flag="%s">', [Name, DataType, uRODL.XMLFlagNames[Flag]]));
+                        WriteAttributes(xml, Info);
+                        xml.Append('</Parameter>');
+                      end;
+                    end;
+
+                    for p := 0 to (Count - 1) do begin
+                      with Items[p] do begin
+                        xml.Append(Format('<Parameter Name="%s" DataType="%s" Flag="%s">', [Name, DataType, uRODL.XMLFlagNames[Flag]]));
+                        WriteAttributes(xml, Info);
+                        xml.Append('</Parameter>');
+                      end;
+                    end;
+                    xml.Append(Indent(6) + '</Parameters>');
+                    xml.Append(Indent(9) + '</Operation>');
+                  end;
+                end;
+                xml.Append(Indent(6) + '</Operations>');
+
+                xml.Append(Indent(9) + '</Interface>');
+              end;
+            end;
+
+            xml.Append(Indent(6) + '</Interfaces>');
+            xml.Append(Indent(6) + '</EventSink>');
+          end;
+      end;
+      xml.Append(Indent(3) + '</EventSinks>');
+    end;
+end;
+
+procedure TRODLToXML.WriteExceptions(xml: TStringList; aLibrary: TRODLLibrary);
+var
+  i, k: Integer;
+  lAdd: string;
+begin
+  with aLibrary do
+    if ExceptionCount > 0 then begin
+      xml.Append(Indent(3) + '<Exceptions>');
+      for i := 0 to (ExceptionCount - 1) do begin
+        if fFlattenUsedRODLs or not Exceptions[i].IsFromUsedRodl then
+          with Exceptions[i] do begin
+
+            lAdd := '';
+            if AutoCreateParams then
+              lAdd := ' AutoCreateParams="1"'
+            else
+              lAdd := ' AutoCreateParams="0"';
+
+            if Ancestor <> '' then lAdd := lAdd+Format(' Ancestor="%s"',[Ancestor]);
+            if Abstract then lAdd := lAdd + ' Abstract="1"';
+
+            xml.Append(Indent(6) + Format('<Exception Name="%s" UID="%s"'+lAdd+'>',[Name, GUIDToString(UID)]));
+            WriteAttributes(xml, Info);
+            xml.Append(Indent(3) + '<Elements>');
+            for k := 0 to (Count - 1) do begin
+              with Items[k] do begin
+                xml.Append(Indent(9) + Format('<Element Name="%s" DataType="%s">', [Name, DataType]));
+                WriteAttributes(xml, Info);
+                xml.Append(Indent(9) + Format('</Element>', [Name, DataType]));
+              end;
+            end;
+            xml.Append(Indent(3) + '</Elements>');
+            xml.Append(Indent(6) + '</Exception>')
+          end;
+
+      end;
+      xml.Append(Indent(3) + '</Exceptions>');
+    end;
+end;
+
+procedure TRODLToXML.WriteServices(xml: TStringList; aLibrary: TRODLLibrary);
+var
+  i, k, m, p: Integer;
+  lAdditional: string;
+begin
+  with aLibrary do begin
+    if GroupCount > 0 then begin
+      xml.Append(Indent(3) + '<Groups>');
+      for i := 0 to (GroupCount - 1) do begin
+        if fFlattenUsedRODLs or not Groups[i].IsFromUsedRodl then begin
+          with Groups[i] do begin
+            xml.Append(Indent(6) + Format('<Group Name="%s" UID="%s">', [Name, GUIDToString(UID)]));
+            WriteAttributes(xml, Info);
+            xml.Append(Indent(6) + '</Group>');
+          end;
+        end;
+      end;
+      xml.Append(Indent(3) + '</Groups>');
+    end;
+
+    xml.Append(Indent(3) + '<Services>');
+    for i := 0 to (ServiceCount - 1) do begin
+      if fFlattenUsedRODLs or not Services[i].IsFromUsedRodl then
+        with Services[i] do begin
+
+          lAdditional := '';
+          if ImplUnit <> '' then lAdditional := ' ImplUnit="' + ImplUnit + '"';
+          if ImplClass <> '' then lAdditional := lAdditional + ' ImplClass="' + ImplClass + '"';
+          if Ancestor <> '' then lAdditional := lAdditional + ' Ancestor="' + Ancestor + '"';
+          if Abstract then lAdditional := lAdditional + ' Abstract="1"';
+          if isPrivate then lAdditional := lAdditional + ' Private="1"';
+
+          xml.Append(Indent(6) + Format('<Service Name="%s" UID="%s"' + lAdditional + '>', [Name, GUIDToString(UID)]));
+          WriteRoles(xml, Roles);
+          WriteAttributes(xml, Info);
+
+          xml.Append(Indent(6) + '<Interfaces>');
+
+          for k := 0 to (Count - 1) do begin
+            with Items[k] do begin
+              xml.Append(Indent(9) + Format('<Interface Name="%s" UID="%s">', [Name, GUIDToString(UID)]));
+              WriteAttributes(xml, Info);
+
+              xml.Append(Indent(6) + '<Operations>');
+              for m := 0 to (Count - 1) do begin
+                with Items[m] do begin
+                  if Length(Roles) = 0 then lAdditional := '' else begin
+                    lAdditional := ' Roles="';
+                    for p := 0 to Length(Roles) -1 do begin
+                      if p <> 0 then lAdditional := lAdditional +',' + SafeHtmlAttribute(Roles[p]) else
+                        lAdditional := lAdditional+SafeHtmlAttribute(Roles[p]);
+                    end;
+                    lAdditional := lAdditional + '"';
+                  end;
+                  if ForceAsyncResponse then
+                    xml.Append(Indent(9) + Format('<Operation Name="%s" UID="%s" ForceAsyncResponse="1"'+lAdditional+'>', [Name, GUIDToString(UID)]))
+                  else
+                    xml.Append(Indent(9) + Format('<Operation Name="%s" UID="%s"'+lAdditional+'>', [Name, GUIDToString(UID)]));
+                  WriteRoles(xml, Roles);
+                  WriteAttributes(xml, Info);
+
+                  xml.Append(Indent(6) + '<Parameters>');
+
+                  if Assigned(Result) then with Result do begin
+                    with Result do begin
+                      xml.Append(Format('<Parameter Name="%s" DataType="%s" Flag="%s">', [Name, DataType, uRODL.XMLFlagNames[Flag]]));
+                      WriteAttributes(xml, Info);
+                      xml.Append('</Parameter>');
+                    end;
+                  end;
+
+                  for p := 0 to (Count - 1) do begin
+                    with Items[p] do begin
+                      xml.Append(Format('<Parameter Name="%s" DataType="%s" Flag="%s" >', [Name, DataType, uRODL.XMLFlagNames[Flag]]));
+                      WriteAttributes(xml, Info);
+                      xml.Append('</Parameter>');
+                    end;
+                  end;
+                  xml.Append(Indent(6) + '</Parameters>');
+
+                  if CodeBodyCount > 0 then begin
+                    xml.Append(Indent(6) + '<Code>');
+                    for p := 0 to CodeBodyCount-1 do begin
+                      xml.Append(Indent(6) + '<Code Language="'+CodeBodyLanguages[p]+'" >' + WriteAsCData(CodeBodies[CodeBodyLanguages[p]].Text) + '</Code>');
+                    end;
+                    xml.Append(Indent(6) + '</Code>');
+                  end;
+
+                  xml.Append(Indent(9) + '</Operation>');
+                end;
+              end;
+              xml.Append(Indent(6) + '</Operations>');
+
+              xml.Append(Indent(9) + '</Interface>');
+            end;
+          end;
+
+          xml.Append(Indent(6) + '</Interfaces>');
+          xml.Append(Indent(6) + '</Service>');
+        end;
+    end;
+  end;
+  xml.Append(Indent(3) + '</Services>');
+end;
+
+procedure TRODLToXML.WriteStructs(xml: TStringList; aLibrary: TRODLLibrary);
+var
+  i, k: Integer;
+  lAdditional: string;
+begin
+  xml.Append(Indent(3) + '<Structs>');
+  with aLibrary do
+    for i := 0 to (StructCount - 1) do begin
+
+      if fFlattenUsedRODLs or not Structs[i].IsFromUsedRodl then
+        with Structs[i] do begin
+
+          lAdditional := '';
+          if AutoCreateParams then
+            lAdditional := ' AutoCreateParams="1"'
+          else
+            lAdditional := ' AutoCreateParams="0"';
+
+          if Ancestor <> '' then lAdditional := lAdditional + Format(' Ancestor="%s"', [Ancestor]);
+          if Abstract then lAdditional := lAdditional + ' Abstract="1"';
+
+          xml.Append(Indent(6) + Format('<Struct Name="%s" UID="%s"' + lAdditional + '>',
+                                          [Name, GUIDToString(UID)]));
+
+          WriteAttributes(xml, Info);
+          xml.Append(Indent(3) + '<Elements>');
+          for k := 0 to (Count - 1) do begin
+            with Items[k] do begin
+              xml.Append(Indent(9) + Format('<Element Name="%s" DataType="%s">', [Name, DataType]));
+              WriteAttributes(xml, Info);
+              xml.Append(Indent(9) + Format('</Element>', [Name, DataType]));
+            end;
+          end;
+          xml.Append(Indent(3) + '</Elements>');
+          xml.Append(Indent(6) + '</Struct>');
+        end;
+
+    end;
+  xml.Append(Indent(3) + '</Structs>');
+end;
+
+procedure TRODLToXML.WriteUses(xml: TStringList; aLibrary: TRODLLibrary);
+var
+  i: Integer;
+  lSplitModeAttribute: string;
+  lUsedRodlFilename, lUsedRodlFilename_absolute: string;
+  lDir: string;
+begin
+  lDir := ExtractFilePath(fOutputFileName);
+  with aLibrary do
+    if UseCount > 0 then begin
+      xml.Append(Indent(3) + '<Uses>');
+      for i := 0 to (UseCount - 1) do begin
+        if (not fFlattenUsedRODLs) and (not Use[i].IsFromUsedRodl) then
+          with Use[i] do begin
+            lUsedRodlFilename := RodlFile;
+            lUsedRodlFilename_absolute := AbsoluteRodlFile;
+            if lUsedRodlFilename_absolute = '' then
+              lUsedRodlFilename_absolute := ExpandFileName(ExpandVariables(lUsedRodlFilename));
+            if lDir <> '' then
+              lUsedRodlFilename := ExtractRelativePath(lDir,lUsedRodlFilename);
+            lSplitModeAttribute := '';
+            if SplitMode <> usmAsParent then
+              lSplitModeAttribute := Format(' SplitMode="%s"', [IntToStr(Integer(SplitMode))]);
+            if GenerateCode then
+              xml.Append(Indent(6) + Format('<Use Name="%s" UID="%s" Rodl="%s" GenerateCode="1" AbsoluteRodl="%s"%s>',
+                [Name, GUIDToString(UID), lUsedRodlFilename, lUsedRodlFilename_absolute, lSplitModeAttribute]))
+            else
+              xml.Append(Indent(6) + Format('<Use Name="%s" UID="%s" Rodl="%s" AbsoluteRodl="%s"%s>',
+                [Name, GUIDToString(UID), lUsedRodlFilename, lUsedRodlFilename_absolute, lSplitModeAttribute]));
+            WriteAttributes(xml, Info);
+            xml.Append(Indent(6) + '</Use>')
+          end;
+
+      end;
+      xml.Append(Indent(3) + '</Uses>');
+    end;
+end;
+
+function TRODLToXML.Indent(SpaceCount: byte): string;
+{var
+  i: integer;}
+begin
+  {$IFDEF FPC}
+  if SpaceCount = 0 then result := '' else // removing FPC warning
+  {$ENDIF}
+  result := '';
+  {for i := 1 to SpaceCount do
+    result := result + ' ';}
+end;
+
+(*
+function StringToGUID(const s: string): TGUID;
+begin
+  if s = '' then Result := NewGuid else begin
+    try
+      Result := Sysutils.StringToGUID(s);
+    except
+      on e: EConvertError do
+        Result := NewGuid;
+    end;
+  end;
+end;
+*)
+procedure TRODLToXML.WriteRoles(xml: TSTringList; aRoles: TStringArray);
+var
+  s: string;
+  i: Integer;
+begin
+  if Length(aRoles) = 0 then exit;
+  xml.Add(Indent(6) + '<Roles>');
+  for i := 0 to Length(aRoles) -1 do begin
+    s := Trim(aRoles[i]);
+    if Copy(s,1,1) = '!' then begin
+      Delete(s,1,1);
+      s := TrimLeft(s);
+      xml.Add(Indent(8) + '<DenyRole>'+SafeHtmlAttribute(s)+'</DenyRole>');
+    end else xml.Add(Indent(8) + '<AllowRole>'+SafeHtmlAttribute(s)+'</AllowRole>');
+  end;
+  xml.Add(Indent(6) + '</Roles>');
+end;
+
+initialization
+  {$WARN SYMBOL_DEPRECATED OFF}
+  XMLFlagNames := uRODL.XMLFlagNames;
+  {$WARN SYMBOL_DEPRECATED ON}
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.lrs
new file mode 100644
index 0000000..5d15517
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.lrs	
@@ -0,0 +1,3689 @@
+LazarusResources.Add('TEMPLATE_INTF_PAS','RCDATA',[
+  'unit %UNIT_NAME%;'#13#10#13#10'{--------------------------------------------'
+  +'--------------------------------}'#13#10'{ This unit was automatically gene'
+  +'rated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associa'
+  +'ted with this project .                               }'#13#10'{           '
+  +'                                                                 }'#13#10'{'
+  +' Do not modify this unit manually, or your changes will be lost when this  '
+  +' }'#13#10'{ unit is regenerated the next time you compile the project.     '
+  +'            }'#13#10'{-----------------------------------------------------'
+  +'-----------------------}'#13#10#13#10'{$I RemObjects.inc}'#13#10#13#10'inte'
+  +'rface'#13#10#13#10'uses'#13#10'  {vcl:} Classes, TypInfo,'#13#10'  // <%%% '
+  +'START REQUIRED_UNITS %%%>'#13#10'  {Required:} %REQUIRED_UNIT_NAME%,'#13#10
+  +'  // <%%% END REQUIRED_UNITS %%%>'#13#10'  {RemObjects:} uROXMLIntf, uROCla'
+  +'sses, uROClient, uROTypes, uROClientIntf;'#13#10#13#10'const'#13#10'  { Lib'
+  +'rary ID }'#13#10'  LibraryUID = ''%LIBRARY_UID%'';'#13#10'  TargetNamespace'
+  +' = ''%NAMESPACE_NAME%'';'#13#10#13#10'  { Service Interface ID''s }'#13#10
+  +'  // <%%% START SERVICES %%%>'#13#10'  I%SERVICE_NAME%_IID : TGUID = ''%SER'
+  +'VICE_UID%'';'#13#10'  // <%%% END SERVICES %%%>'#13#10'  '#13#10'  { Event '
+  +'ID''s }'#13#10'  // <%%% START EVENT_SINKS %%%>'#13#10'  EID_%EVENT_SINK_NA'
+  +'ME% = ''%EVENT_SINK_NAME%'';'#13#10'  // <%%% END EVENT_SINKS %%%>'#13#10' '
+  +' '#13#10'type'#13#10'  { Forward declarations }'#13#10'  // <%%% START SERV'
+  +'ICES %%%>'#13#10'  I%SERVICE_NAME% = interface;'#13#10'  // <%%% END SERVIC'
+  +'ES %%%>'#13#10'  // <%%% START ARRAYS %%%>'#13#10'  %ARRAY_NAME% = class;'
+  +#13#10'  // <%%% END ARRAYS %%%>'#13#10'  // <%%% START STRUCTS %%%>'#13#10
+  +'  %STRUCT_NAME% = class;'#13#10'  // <%%% END STRUCTS %%%>'#13#10'  // <%%%'
+  +' START EXCEPTIONS %%%>'#13#10'  %EXCEPTION_NAME% = class;'#13#10'  // <%%% '
+  +'END EXCEPTIONS %%%>'#13#10'  // <%%% START EVENT_SINKS %%%>'#13#10'  I%EVEN'
+  +'T_SINK_NAME% = interface;'#13#10'  // <%%% END EVENT_SINKS %%%>'#13#10#13#10
+  +'  { Enumerateds }'#13#10'  // <%%% START ENUMS %%%>'#13#10'  // <%%% START '
+  +'DOCUMENTATION %%%>'#13#10#13#10'  { Description:'#13#10'      %CONTENT% }'
+  +#13#10'  // <%%% END DOCUMENTATION %%%>'#13#10'  %ENUM_NAME% = ('#13#10'    '
+  +'            // <%%% START VALUES %%%>'#13#10'                %VALUE_NAME%,'
+  +#13#10'                // <%%% END VALUES %%%>'#13#10'                );'#13
+  +#10#13#10'  // <%%% END ENUMS %%%>'#13#10'  // <%%% START STRUCTS %%%>'#13#10
+  +'  { %STRUCT_NAME% }'#13#10'  // <%%% START DOCUMENTATION %%%>'#13#10#13#10
+  +'  { Description:'#13#10'      %CONTENT% }'#13#10'  // <%%% END DOCUMENTATIO'
+  +'N %%%>'#13#10'  %STRUCT_NAME% = class(%STRUCT_ANCESTOR_NAME%)'#13#10'  priv'
+  +'ate'#13#10'    FDestroying: Boolean;'#13#10#13#10'    // <%%% START FIELDS_'
+  +'NO_STRIP %%%>'#13#10'    f%FIELD_NAME%: %FIELD_TYPE%;'#13#10'    // <%%% EN'
+  +'D FIELDS_NO_STRIP %%%>'#13#10'    // <%%% START FIELDS_NO_STRIP %%%>'#13#10
+  +'    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    function Get%FIELD_'
+  +'NAME%: %FIELD_TYPE%;'#13#10'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13
+  +#10'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  public'#13#10'    // <%%% '
+  +'START STRUCT_GENERATE_DEFAULT_VALUES %%%>'#13#10'    constructor Create(aCo'
+  +'llection : TCollection); override;'#13#10'    // <%%% END STRUCT_GENERATE_D'
+  +'EFAULT_VALUES %%%>'#13#10'    // <%%% START IF_STRUCT_HAS_ATTRIBUTES %%%>'
+  +#13#10'    class function GetAttributeCount: Integer; override;'#13#10'    c'
+  +'lass function GetAttributeName(aIndex: Integer): string; override;'#10'    '
+  +'class function GetAttributeValue(aIndex: Integer): string; override;'#10'  '
+  +'  // <%%% END IF_STRUCT_HAS_ATTRIBUTES %%%>'#13#10'    procedure Assign(iSo'
+  +'urce: TPersistent); override;'#13#10'    destructor Destroy; override;'#13
+  +#10'    // <%%% START IF_HAS_FIELDS %%%>'#13#10'    procedure ReadComplex(AS'
+  +'erializer: TObject); override;'#13#10'    procedure WriteComplex(ASerialize'
+  +'r: TObject); override;'#13#10'    // <%%% END IF_HAS_FIELDS %%%>'#13#10'  p'
+  +'ublished'#13#10'    // Fields must be published for the ancestor destructor'
+  +' to find and destroy them.'#13#10'    // <%%% START FIELDS_NO_STRIP %%%>'#13
+  +#10'    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    property %FIELD_N'
+  +'AME%:%FIELD_TYPE% read f%FIELD_NAME% write f%FIELD_NAME%;'#13#10'    // <%%'
+  +'% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_FIELD_TYPE_COMP'
+  +'LEX %%%>'#13#10'    property %FIELD_NAME%:%FIELD_TYPE% read Get%FIELD_NAME%'
+  +' write f%FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13
+  +#10'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  end;'#13#10#13#10'  { %STR'
+  +'UCT_COLLECTION_NAME% }'#13#10'  %STRUCT_COLLECTION_NAME% = class(%STRUCT_AN'
+  +'CESTOR_COLLECTION_NAME%)'#13#10'  protected'#13#10'    constructor Create(a'
+  +'ItemClass: TCollectionItemClass); overload;'#13#10'    function GetItems(aI'
+  ,'ndex: integer): %STRUCT_NAME%;'#13#10'    procedure SetItems(aIndex: intege'
+  +'r; const Value: %STRUCT_NAME%);'#13#10'  public'#13#10'    constructor Crea'
+  +'te; overload;'#13#10'    function Add: %STRUCT_NAME%; reintroduce;'#13#10' '
+  +'   // <%%% START ARRAYS_IS_FOUND %%%>'#13#10'    procedure SaveToArray(anAr'
+  +'ray: %ARRAY_NAME%); overload;'#13#10'    procedure LoadFromArray(anArray: %'
+  +'ARRAY_NAME%); overload;'#13#10'    // <%%% END ARRAYS_IS_FOUND %%%>'#13#10
+  +'    property Items[Index: integer]:%STRUCT_NAME% read GetItems write SetIte'
+  +'ms; default;'#13#10'  end;'#13#10#13#10'  // <%%% END STRUCTS %%%>'#13#10' '
+  +' // <%%% START ARRAYS %%%>'#13#10'  { %ARRAY_NAME% }'#13#10'  // <%%% START'
+  +' DOCUMENTATION %%%>'#13#10#13#10'  { Description:'#13#10'      %CONTENT% }'
+  +#13#10'  // <%%% END DOCUMENTATION %%%>'#13#10'  %ARRAY_NAME%_%ARRAY_TYPE% ='
+  +' array of %ARRAY_TYPE%;'#13#10'  %ARRAY_NAME% = class(TROArray)'#13#10'  pr'
+  +'ivate'#13#10'    fCount: Integer;'#13#10'    fItems : %ARRAY_NAME%_%ARRAY_T'
+  +'YPE%;'#13#10'  protected'#13#10'    procedure Grow; virtual;'#13#10'    fun'
+  +'ction GetItems(aIndex: integer): %ARRAY_TYPE%;'#13#10'    procedure SetItem'
+  +'s(aIndex: integer; const Value: %ARRAY_TYPE%);'#13#10'    function GetCount'
+  +': integer; override;'#13#10'  public'#13#10'    // <%%% START IF_ARRAY_HAS_'
+  +'ATTRIBUTES %%%>'#13#10'    class function GetAttributeCount: Integer; overr'
+  +'ide;'#13#10'    class function GetAttributeName(aIndex: Integer): string; o'
+  +'verride;'#10'    class function GetAttributeValue(aIndex: Integer): string;'
+  +' override;'#10'    // <%%% END IF_ARRAY_HAS_ATTRIBUTES %%%>'#13#10'    clas'
+  +'s function GetItemType: PTypeInfo; override;'#13#10'    // <%%% START IF_AR'
+  +'RAY_TYPE_COMPLEX %%%>'#13#10'    class function GetItemClass: TClass; overr'
+  +'ide;'#13#10'    // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'    class fun'
+  +'ction GetItemSize: integer; override;'#13#10#13#10'    function GetItemRef('
+  +'aIndex: integer): pointer; override;'#13#10'    // <%%% START IF_ARRAY_TYPE'
+  +'_COMPLEX %%%>'#13#10'    procedure SetItemRef(aIndex: integer; Ref: pointer'
+  +'); override;'#13#10'    // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'    p'
+  +'rocedure Clear; override;'#13#10'    procedure Delete(aIndex: integer); ove'
+  +'rride;'#13#10'    procedure Resize(ElementCount: integer); override;'#13#10
+  +#13#10'    procedure Assign(iSource:TPersistent); override;'#13#10'    proce'
+  +'dure ReadComplex(ASerializer: TObject); override;'#13#10'    procedure Writ'
+  +'eComplex(ASerializer: TObject); override;'#13#10'    // <%%% START IF_ARRAY'
+  +'_TYPE_COMPLEX %%%>'#13#10'    function Add: %ARRAY_TYPE%; overload;'#13#10
+  +'    // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'    function Add(const Va'
+  +'lue: %ARRAY_TYPE%):integer; overload;'#13#10'    // <%%% START IF_ARRAY_TYP'
+  +'E_SIMPLE %%%>'#13#10'    function GetIndex(const aPropertyName : string;'#13
+  +#10'                      const aPropertyValue : Variant;'#13#10'           '
+  +'           StartFrom : integer = 0;'#13#10'                      Options : '
+  +'TROSearchOptions = [soIgnoreCase]) : integer; override;'#13#10'    // <%%% '
+  +'END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10#13#10'    property Count : integer rea'
+  +'d GetCount;'#13#10'    property Items[Index: integer]:%ARRAY_TYPE% read Get'
+  +'Items write SetItems; default;'#13#10'    property InnerArray: %ARRAY_NAME%'
+  +'_%ARRAY_TYPE% read fItems;'#13#10'  end;'#13#10#13#10'  // <%%% END ARRAYS '
+  +'%%%>'#13#10'  { Exceptions }'#13#10'  // <%%% START EXCEPTIONS %%%>'#13#10
+  +'  // <%%% START DOCUMENTATION %%%>'#13#10#13#10'  { Description:'#13#10'   '
+  +'   %CONTENT% }'#13#10'  // <%%% END DOCUMENTATION %%%>'#13#10'  %EXCEPTION_'
+  +'NAME% = class(%EXCEPTION_ANCESTOR_NAME%)'#13#10'  private'#13#10'    // <%%'
+  +'% START FIELDS_NO_STRIP %%%>'#13#10'    f%FIELD_NAME%: %FIELD_TYPE%;'#13#10
+  +'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  public'#13#10'    constructor'
+  +' Create(anExceptionMessage : string'#13#10'                       // <%%% S'
+  +'TART ANCESTOR_FIELDS %%%>'#13#10'                       ; a%FIELD_NAME%: %F'
+  +'IELD_TYPE%'#13#10'                       // <%%% END ANCESTOR_FIELDS %%%>'
+  +#13#10'                       // <%%% START FIELDS_NO_STRIP %%%>'#13#10'    '
+  +'                   ; a%FIELD_NAME%: %FIELD_TYPE%'#13#10'                   '
+  +'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'                       );'#13#10
+  +'    // <%%% START IF_HAS_FIELDS %%%>'#13#10'    procedure ReadException(ASe'
+  +'rializer: TObject); override;'#13#10'    procedure WriteException(ASerializ'
+  +'er: TObject); override;'#13#10'    // <%%% END IF_HAS_FIELDS %%%>'#13#10'  '
+  +'published'#13#10'    // <%%% START FIELDS_NO_STRIP %%%>'#13#10'    property'
+  +' %FIELD_NAME%: %FIELD_TYPE% read f%FIELD_NAME% write f%FIELD_NAME%;'#13#10
+  +'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  end;'#13#10#13#10'  // <%%% E'
+  +'ND EXCEPTIONS %%%>'#13#10'  // <%%% START SERVICES %%%>'#13#10'  { I%SERVIC'
+  +'E_NAME% }'#13#10'  // <%%% START DOCUMENTATION %%%>'#13#10#13#10'  { Descri'
+  ,'ption:'#13#10'      %CONTENT% }'#13#10'  // <%%% END DOCUMENTATION %%%>'#13
+  +#10'  I%SERVICE_NAME% = interface%SERVICE_ANCESTOR_NAME%'#13#10'    [''%SERV'
+  +'ICE_UID%'']'#13#10'    // <%%% START FUNCTION_OPERATIONS %%%>'#13#10'    fu'
+  +'nction %OPERATION_NAME%('#13#10'               // <%%% START PARAMS %%%>'#13
+  +#10'               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10
+  +'               // <%%% END PARAMS %%%>'#13#10'               ): %OPERATION_'
+  +'RESULT%;'#13#10'    // <%%% END FUNCTION_OPERATIONS %%%>'#13#10'    // <%%%'
+  +' START PROCEDURE_OPERATIONS %%%>'#13#10'    procedure %OPERATION_NAME%('#13
+  +#10'                // <%%% START PARAMS %%%>'#13#10'                %PARAM_'
+  +'FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'                // <%%% '
+  +'END PARAMS %%%>'#13#10'                );'#13#10'    // <%%% END PROCEDURE_'
+  +'OPERATIONS %%%>'#13#10'  end;'#13#10#13#10'  { Co%SERVICE_NAME% }'#13#10'  '
+  +'Co%SERVICE_NAME% = class'#13#10'    class function Create(const aMessage: I'
+  +'ROMessage; aTransportChannel: IROTransportChannel): I%SERVICE_NAME%;'#13#10
+  +'  end;'#13#10#13#10'  { T%SERVICE_NAME%_Proxy }'#13#10'  T%SERVICE_NAME%_Pr'
+  +'oxy = class(%SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%)'#13#10'  protec'
+  +'ted'#13#10'    function __GetInterfaceName:string; override;'#13#10#13#10' '
+  +'   // <%%% START FUNCTION_OPERATIONS %%%>'#13#10'    function %OPERATION_NA'
+  +'ME%('#13#10'               // <%%% START PARAMS %%%>'#13#10'               '
+  +'%PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'               //'
+  +' <%%% END PARAMS %%%>'#13#10'               ): %OPERATION_RESULT%;'#13#10' '
+  +'   // <%%% END FUNCTION_OPERATIONS %%%>'#13#10'    // <%%% START PROCEDURE_'
+  +'OPERATIONS %%%>'#13#10'    procedure %OPERATION_NAME%('#13#10'             '
+  +'   // <%%% START PARAMS %%%>'#13#10'                %PARAM_FRONT_MODIFIER% '
+  +'%PARAM_NAME%: %PARAM_TYPE%;'#13#10'                // <%%% END PARAMS %%%>'
+  +#13#10'                );'#13#10'    // <%%% END PROCEDURE_OPERATIONS %%%>'
+  +#13#10'  end;'#13#10#13#10'  // <%%% END SERVICES %%%>'#13#10'  // <%%% STAR'
+  +'T EVENT_SINKS %%%>'#13#10'  { I%EVENT_SINK_NAME% }'#13#10'  // <%%% START D'
+  +'OCUMENTATION %%%>'#13#10#13#10'  { Description:'#13#10'      %CONTENT% }'#13
+  +#10'  // <%%% END DOCUMENTATION %%%>'#13#10'  I%EVENT_SINK_NAME% = interface'
+  +'%EVENT_SINK_ANCESTOR_NAME%'#13#10'    [''%EVENT_SINK_UID%'']'#13#10'    // '
+  +'<%%% START OPERATIONS %%%>'#13#10'    procedure %OPERATION_NAME%('#13#10'  '
+  +'              // <%%% START PARAMS %%%>'#13#10'                %PARAM_FRONT'
+  +'_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'                // <%%% END P'
+  +'ARAMS %%%>'#13#10'                );'#13#10'    // <%%% END OPERATIONS %%%>'
+  +#13#10'  end;'#13#10#13#10'  { I%EVENT_SINK_NAME%_Writer }'#13#10'  // <%%% '
+  +'START DOCUMENTATION %%%>'#13#10#13#10'  { Description:'#13#10'      %CONTEN'
+  +'T% }'#13#10'  // <%%% END DOCUMENTATION %%%>'#13#10'  I%EVENT_SINK_NAME%_Wr'
+  +'iter = interface(I%EVENT_SINK_WRITER_ANCESTOR_NAME%)'#13#10'    [''%EVENT_S'
+  +'INK_UID%'']'#13#10'    // <%%% START OPERATIONS %%%>'#13#10'    procedure %'
+  +'OPERATION_NAME%(const __Sender : TGUID'#13#10'                // <%%% START'
+  +' PARAMS %%%>'#13#10'                ; %PARAM_FRONT_MODIFIER% %PARAM_NAME%: '
+  +'%PARAM_TYPE%'#13#10'                // <%%% END PARAMS %%%>'#13#10'        '
+  +'        );'#13#10'    // <%%% END OPERATIONS %%%>'#13#10'  end;'#13#10#13#10
+  +'  // <%%% END EVENT_SINKS %%%>'#13#10'implementation'#13#10#13#10'uses'#13
+  +#10'  {vcl:} SysUtils,'#13#10'  {RemObjects:} uROEventRepository, uROSeriali'
+  +'zer, uRORes;'#13#10#13#10'// <%%% START EXCEPTIONS %%%>'#13#10'{ %EXCEPTION'
+  +'_NAME% }'#13#10'constructor %EXCEPTION_NAME%.Create(anExceptionMessage : st'
+  +'ring'#13#10'  // <%%% START ANCESTOR_FIELDS %%%>'#13#10'  ; a%FIELD_NAME%: '
+  +'%FIELD_TYPE%'#13#10'  // <%%% END ANCESTOR_FIELDS %%%>'#13#10'  // <%%% STA'
+  +'RT FIELDS_NO_STRIP %%%>'#13#10'  ; a%FIELD_NAME%: %FIELD_TYPE%'#13#10'  // '
+  +'<%%% END FIELDS_NO_STRIP %%%>'#13#10'  );'#13#10'begin'#13#10'  inherited C'
+  +'reate(anExceptionMessage'#13#10'                   // <%%% START ANCESTOR_F'
+  +'IELDS %%%>'#13#10'                   , a%FIELD_NAME%'#13#10'               '
+  +'    // <%%% END ANCESTOR_FIELDS %%%>'#13#10'                  );'#13#10#13
+  +#10'  // <%%% START FIELDS_NO_STRIP %%%>'#13#10'  f%FIELD_NAME% := a%FIELD_N'
+  +'AME%;'#13#10'  // <%%% END FIELDS_NO_STRIP %%%>'#13#10'end;'#13#10#13#10'//'
+  +' <%%% START IF_HAS_FIELDS %%%>'#13#10'procedure %EXCEPTION_NAME%.ReadExcept'
+  +'ion(ASerializer: TObject);'#13#10'var'#13#10'  // <%%% START ENTIRE_HIERARC'
+  +'HY_FIELDS %%%>'#13#10'  l_%FIELD_NAME%: %FIELD_TYPE%;'#13#10'  // <%%% END '
+  +'ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'begin'#13#10'  if TROSerializer(ASerial'
+  +'izer).RecordStrictOrder then begin'#13#10'    // <%%% START IF_STRUCT_HAS_A'
+  +'NCESTOR %%%>'#13#10'    inherited;'#13#10'    // <%%% END IF_STRUCT_HAS_ANC'
+  +'ESTOR %%%>'#13#10'    // <%%% START FIELDS_NO_STRIP %%%>'#13#10'    l_%FIEL'
+  ,'D_NAME% := %FIELD_NAME%;'#13#10'    // <%%% START IF_FIELD_BINARY_TYPE %%%>'
+  +#13#10'    TROSerializer(ASerializer).ReadBinary(''%FIELD_ORIGINALNAME%'', l'
+  +'_%FIELD_NAME%);'#13#10'    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NA'
+  +'ME%.Free;'#13#10'    // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13#10'    // <%'
+  +'%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    TROSerializer(ASerializer).R'
+  +'eadEnumerated(''%FIELD_ORIGINALNAME%'', TypeInfo(boolean), l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_CURRENCY_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadDouble'
+  +'(''%FIELD_ORIGINALNAME%'', ftCurr, l_%FIELD_NAME%);'#13#10'    // <%%% END '
+  +'IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DATETIME_TYPE'
+  +' %%%>'#13#10'    TROSerializer(ASerializer).ReadDateTime(''%FIELD_ORIGINALN'
+  +'AME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DATETIME_TYPE %%%>'
+  +#13#10'    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    TROSerializer'
+  +'(ASerializer).ReadDecimal(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    // <%%% START IF_FIEL'
+  +'D_DOUBLE_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadDouble(''%FIEL'
+  +'D_ORIGINALNAME%'', ftDouble, l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIE'
+  +'LD_DOUBLE_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).ReadGuid(''%FIELD_ORIGINALNAME%'', l_%FIELD_'
+  +'NAME%);'#13#10'    // <%%% END IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% S'
+  +'TART IF_FIELD_INT64_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadInt'
+  +'64(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIE'
+  +'LD_INT64_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INTEGER_TYPE %%%>'#13
+  +#10'    TROSerializer(ASerializer).ReadInteger(''%FIELD_ORIGINALNAME%'', otS'
+  +'Long, l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    TROSerializer'
+  +'(ASerializer).ReadAnsiString(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_UTF8STRING_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadUTF8'
+  +'String(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF'
+  +'_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_VARIANT_TYPE '
+  +'%%%>'#13#10'    TROSerializer(ASerializer).ReadVariant(''%FIELD_ORIGINALNAM'
+  +'E%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_VARIANT_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    TROSerializer'
+  +'(ASerializer).ReadWideString(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_XML_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadXml(''%FIEL'
+  +'D_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_XML_TYP'
+  +'E %%%>'#13#10'    // <%%% START IF_FIELD_ARRAY_TYPE %%%>'#13#10'    TROSeri'
+  +'alizer(ASerializer).ReadArray(''%FIELD_ORIGINALNAME%'', %FIELD_TYPE%, l_%FI'
+  +'ELD_NAME%);'#13#10'    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.'
+  +'Free;'#13#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'#13#10'    // <%%% ST'
+  +'ART IF_FIELD_ENUM_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadEnume'
+  +'rated(''%FIELD_ORIGINALNAME%'', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_FIEL'
+  +'D_STRUCT_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadStruct(''%FIEL'
+  +'D_ORIGINALNAME%'', %FIELD_TYPE%, l_%FIELD_NAME%);'#13#10'    if %FIELD_NAME'
+  +'% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13#10'    // <%%% END IF_FIELD'
+  +'_STRUCT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>'#13
+  +#10'    TROSerializer(ASerializer).ReadStruct(''%FIELD_ORIGINALNAME%'', %FIE'
+  +'LD_TYPE%, l_%FIELD_NAME%);'#13#10'    if %FIELD_NAME% <> l_%FIELD_NAME% the'
+  +'n %FIELD_NAME%.Free;'#13#10'    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>'
+  +#13#10'    %FIELD_NAME% := l_%FIELD_NAME%;'#13#10'    // <%%% END FIELDS_NO_'
+  +'STRIP %%%>'#13#10'  end'#13#10'  else begin'#13#10'    // <%%% START ENTIRE'
+  +'_HIERARCHY_FIELDS %%%>'#13#10'    l_%FIELD_NAME% := %FIELD_NAME%;'#13#10'  '
+  +'  // <%%% START IF_FIELD_BINARY_TYPE %%%>'#13#10'    TROSerializer(ASeriali'
+  +'zer).ReadBinary(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    if %F'
+  +'IELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13#10'    // <%%% END'
+  +' IF_FIELD_BINARY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_BOOLEAN_TYPE %'
+  +'%%>'#13#10'    TROSerializer(ASerializer).ReadEnumerated(''%FIELD_ORIGINALN'
+  +'AME%'', TypeInfo(boolean), l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD'
+  +'_BOOLEAN_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13
+  +#10'    TROSerializer(ASerializer).ReadDouble(''%FIELD_ORIGINALNAME%'', ftCu'
+  +'rr, l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13
+  ,#10'    // <%%% START IF_FIELD_DATETIME_TYPE %%%>'#13#10'    TROSerializer(A'
+  +'Serializer).ReadDateTime(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_DATETIME_TYPE %%%>'#13#10'    // <%%% START IF_FIE'
+  +'LD_DECIMAL_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadDecimal(''%F'
+  +'IELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DECI'
+  +'MAL_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'   '
+  +' TROSerializer(ASerializer).ReadDouble(''%FIELD_ORIGINALNAME%'', ftDouble, '
+  +'l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'  '
+  +'  // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'    TROSerializer(ASerialize'
+  +'r).ReadGuid(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% E'
+  +'ND IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INT64_TYPE %%%'
+  +'>'#13#10'    TROSerializer(ASerializer).ReadInt64(''%FIELD_ORIGINALNAME%'','
+  +' l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'  '
+  +'  // <%%% START IF_FIELD_INTEGER_TYPE %%%>'#13#10'    TROSerializer(ASerial'
+  +'izer).ReadInteger(''%FIELD_ORIGINALNAME%'', otSLong, l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13#10'    // <%%% START IF_FIEL'
+  +'D_ANSISTRING_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadAnsiString'
+  +'(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD'
+  +'_ANSISTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%'
+  +'>'#13#10'    TROSerializer(ASerializer).ReadUTF8String(''%FIELD_ORIGINALNAM'
+  +'E%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'
+  +#13#10'    // <%%% START IF_FIELD_VARIANT_TYPE %%%>'#13#10'    TROSerializer'
+  +'(ASerializer).ReadVariant(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_VARIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIEL'
+  +'D_WIDESTRING_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadWideString'
+  +'(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD'
+  +'_WIDESTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).ReadXml(''%FIELD_ORIGINALNAME%'', l_%FIELD_N'
+  +'AME%);'#13#10'    // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // <%%% STA'
+  +'RT IF_FIELD_ARRAY_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadArray'
+  +'(''%FIELD_ORIGINALNAME%'', %FIELD_TYPE%, l_%FIELD_NAME%);'#13#10'    if %FI'
+  +'ELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13#10'    // <%%% END '
+  +'IF_FIELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'
+  +#13#10'    TROSerializer(ASerializer).ReadEnumerated(''%FIELD_ORIGINALNAME%'
+  +''', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIEL'
+  +'D_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).ReadStruct(''%FIELD_ORIGINALNAME%'', %FIELD_'
+  +'TYPE%, l_%FIELD_NAME%);'#13#10'    if %FIELD_NAME% <> l_%FIELD_NAME% then %'
+  +'FIELD_NAME%.Free;'#13#10'    // <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>'#13#10'    TROSerializer(ASe'
+  +'rializer).ReadStruct(''%FIELD_ORIGINALNAME%'', %FIELD_TYPE%, l_%FIELD_NAME%'
+  +');'#13#10'    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13
+  +#10'    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>'#13#10'    %FIELD_NAME% :='
+  +' l_%FIELD_NAME%;'#13#10'    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'#13#10
+  +'  end;'#13#10'end;'#13#10#13#10'procedure %EXCEPTION_NAME%.WriteException(A'
+  +'Serializer: TObject);'#13#10'var'#13#10'  // <%%% START ENTIRE_HIERARCHY_FI'
+  +'ELDS %%%>'#13#10'  l_%FIELD_NAME%: %FIELD_TYPE%;'#13#10'  // <%%% END ENTIR'
+  +'E_HIERARCHY_FIELDS %%%>'#13#10'begin'#13#10'  if TROSerializer(ASerializer)'
+  +'.RecordStrictOrder then begin'#13#10'    // <%%% START IF_STRUCT_HAS_ANCEST'
+  +'OR %%%>'#13#10'    inherited;'#13#10'    // <%%% END IF_STRUCT_HAS_ANCESTOR'
+  +' %%%>'#13#10'    // <%%% START FIELDS_NO_STRIP %%%>'#13#10'    l_%FIELD_NAM'
+  +'E% := %FIELD_NAME%;'#13#10'    // <%%% START IF_FIELD_BINARY_TYPE %%%>'#13
+  +#10'    TROSerializer(ASerializer).WriteBinary(''%FIELD_ORIGINALNAME%'', l_%'
+  +'FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13#10'    /'
+  +'/ <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    TROSerializer(ASerialize'
+  +'r).WriteEnumerated(''%FIELD_ORIGINALNAME%'', TypeInfo(boolean), l_%FIELD_NA'
+  +'ME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    // <%%% '
+  +'START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    TROSerializer(ASerializer).Wri'
+  +'teDouble(''%FIELD_ORIGINALNAME%'', ftCurr, l_%FIELD_NAME%);'#13#10'    // <'
+  +'%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DATET'
+  +'IME_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteDateTime(''%FIELD_'
+  +'ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DATETIME_'
+  +'TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    TR'
+  +'OSerializer(ASerializer).WriteDecimal(''%FIELD_ORIGINALNAME%'', l_%FIELD_NA'
+  ,'ME%);'#13#10'    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    // <%%% '
+  +'START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    TROSerializer(ASerializer).Write'
+  +'Double(''%FIELD_ORIGINALNAME%'', ftDouble, l_%FIELD_NAME%);'#13#10'    // <'
+  +'%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_GUID_TY'
+  +'PE %%%>'#13#10'    TROSerializer(ASerializer).WriteGuid(''%FIELD_ORIGINALNA'
+  +'ME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_GUID_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_INT64_TYPE %%%>'#13#10'    TROSerializer(ASer'
+  +'ializer).WriteInt64(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    /'
+  +'/ <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INTEG'
+  +'ER_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteInteger(''%FIELD_OR'
+  +'IGINALNAME%'', otSLong, l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_IN'
+  +'TEGER_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13
+  +#10'    TROSerializer(ASerializer).WriteAnsiString(''%FIELD_ORIGINALNAME%'','
+  +' l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    TROSerializer'
+  +'(ASerializer).WriteUTF8String(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_VARIANT_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteVarian'
+  +'t(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIEL'
+  +'D_VARIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>'
+  +#13#10'    TROSerializer(ASerializer).WriteWideString(''%FIELD_ORIGINALNAME%'
+  +''', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>'
+  +#13#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10'    TROSerializer(ASe'
+  +'rializer).WriteXml(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    //'
+  +' <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ARRAY_TY'
+  +'PE %%%>'#13#10'    TROSerializer(ASerializer).WriteArray(''%FIELD_ORIGINALN'
+  +'AME%'', l_%FIELD_NAME%, %FIELD_TYPE%);'#13#10'    // <%%% END IF_FIELD_ARRA'
+  +'Y_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'#13#10'    TRO'
+  +'Serializer(ASerializer).WriteEnumerated(''%FIELD_ORIGINALNAME%'', TypeInfo('
+  +'%FIELD_TYPE%), l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ENUM_TYPE %'
+  +'%%>'#13#10'    // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13#10'    TROSerial'
+  +'izer(ASerializer).WriteStruct(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%, %FI'
+  +'ELD_TYPE%);'#13#10'    // <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    // '
+  +'<%%% START IF_FIELD_XSDATETIME_TYPE %%%>'#13#10'    TROSerializer(ASerializ'
+  +'er).WriteStruct(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%, %FIELD_TYPE%);'#13
+  +#10'    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>'#13#10'    // <%%% END FIE'
+  +'LDS_NO_STRIP %%%>'#13#10'  end'#13#10'  else begin'#13#10'    // <%%% START'
+  +' ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'    l_%FIELD_NAME% := %FIELD_NAME%;'#13
+  +#10'    // <%%% START IF_FIELD_BINARY_TYPE %%%>'#13#10'    TROSerializer(ASe'
+  +'rializer).WriteBinary(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'   '
+  +' // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_BO'
+  +'OLEAN_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteEnumerated(''%FI'
+  +'ELD_ORIGINALNAME%'', TypeInfo(boolean), l_%FIELD_NAME%);'#13#10'    // <%%%'
+  +' END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_CURRENCY_'
+  +'TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteDouble(''%FIELD_ORIGIN'
+  +'ALNAME%'', ftCurr, l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_CURRENC'
+  +'Y_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DATETIME_TYPE %%%>'#13#10'   '
+  +' TROSerializer(ASerializer).WriteDateTime(''%FIELD_ORIGINALNAME%'', l_%FIEL'
+  +'D_NAME%);'#13#10'    // <%%% END IF_FIELD_DATETIME_TYPE %%%>'#13#10'    // '
+  +'<%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    TROSerializer(ASerializer)'
+  +'.WriteDecimal(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%%'
+  +' END IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TY'
+  +'PE %%%>'#13#10'    TROSerializer(ASerializer).WriteDouble(''%FIELD_ORIGINAL'
+  +'NAME%'', ftDouble, l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE_'
+  +'TYPE %%%>'#13#10'    // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'    TROSe'
+  +'rializer(ASerializer).WriteGuid(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% START IF_F'
+  +'IELD_INT64_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteInt64(''%FI'
+  +'ELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INT64'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INTEGER_TYPE %%%>'#13#10'    T'
+  +'ROSerializer(ASerializer).WriteInteger(''%FIELD_ORIGINALNAME%'', otSLong, l'
+  +'_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13#10'  '
+  +'  // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    TROSerializer(ASer'
+  +'ializer).WriteAnsiString(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10
+  ,'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    // <%%% START IF_F'
+  +'IELD_UTF8STRING_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteUTF8St'
+  +'ring(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_F'
+  +'IELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_VARIANT_TYPE %%'
+  +'%>'#13#10'    TROSerializer(ASerializer).WriteVariant(''%FIELD_ORIGINALNAME'
+  +'%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_VARIANT_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    TROSerializer'
+  +'(ASerializer).WriteWideString(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_XML_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteXml(''%FIE'
+  +'LD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_XML_TY'
+  +'PE %%%>'#13#10'    // <%%% START IF_FIELD_ARRAY_TYPE %%%>'#13#10'    TROSer'
+  +'ializer(ASerializer).WriteArray(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%, %'
+  +'FIELD_TYPE%);'#13#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'#13#10'    //'
+  +' <%%% START IF_FIELD_ENUM_TYPE %%%>'#13#10'    TROSerializer(ASerializer).W'
+  +'riteEnumerated(''%FIELD_ORIGINALNAME%'', TypeInfo(%FIELD_TYPE%), l_%FIELD_N'
+  +'AME%);'#13#10'    // <%%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'    // <%%% ST'
+  +'ART IF_FIELD_STRUCT_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteSt'
+  +'ruct(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%, %FIELD_TYPE%);'#13#10'    //'
+  +' <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XSDAT'
+  +'ETIME_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteStruct(''%FIELD_'
+  +'ORIGINALNAME%'', l_%FIELD_NAME%, %FIELD_TYPE%);'#13#10'    // <%%% END IF_F'
+  +'IELD_XSDATETIME_TYPE %%%>'#13#10'    // <%%% END ENTIRE_HIERARCHY_FIELDS %%'
+  +'%>'#13#10'  end;'#13#10'end;'#13#10#13#10'// <%%% END IF_HAS_FIELDS %%%>'#13
+  +#10'// <%%% END EXCEPTIONS %%%>'#13#10'// <%%% START ARRAYS %%%>'#13#10'{ %A'
+  +'RRAY_NAME% }'#13#10#13#10'// <%%% START IF_ARRAY_HAS_ATTRIBUTES %%%>'#13#10
+  +'class function %ARRAY_NAME%.GetAttributeCount: Integer;'#13#10'begin'#13#10
+  +'  Result := %ATTRIBUTES_COUNT%;'#13#10'end;'#13#10#13#10'class function %AR'
+  +'RAY_NAME%.GetAttributeName(aIndex: Integer): string;'#10'begin'#10'  case a'
+  +'Index of'#10'// <%%% START ATTRIBUTES_NO_STRIP %%%>'#10'    %ATTRIBUTE_INDE'
+  +'X%: Result := %ATTRIBUTE_NAME%;'#10'// <%%% END ATTRIBUTES_NO_STRIP %%%>'#10
+  +'  end;'#10'end;'#10#10'class function %ARRAY_NAME%.GetAttributeValue(aIndex'
+  +': Integer): string;'#10'begin'#10'  case aIndex of'#10'// <%%% START ATTRIB'
+  +'UTES_NO_STRIP %%%>'#10'    %ATTRIBUTE_INDEX%: Result := %ATTRIBUTE_VALUE%;'
+  +#10'// <%%% END ATTRIBUTES_NO_STRIP %%%>'#10'  end;'#10'end;'#10'// <%%% END'
+  +' IF_ARRAY_HAS_ATTRIBUTES %%%>'#13#10#13#10'procedure %ARRAY_NAME%.Assign(iS'
+  +'ource: TPersistent);'#13#10'var lSource:%ARRAY_NAME%;'#13#10'    i:integer;'
+  +#13#10'begin'#13#10'  if (iSource is %ARRAY_NAME%) then begin'#13#10'    lSo'
+  +'urce := %ARRAY_NAME%(iSource);'#13#10'    Clear();'#13#10'    Resize(lSourc'
+  +'e.Count);'#13#10'    '#13#10'    for i := 0 to Count-1 do begin'#13#10'    '
+  +'  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'      if Assigned(lSource'
+  +'.Items[i]) then begin'#13#10'        Items[i].Assign(lSource.Items[i]);'#13
+  +#10'      end;'#13#10'      // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  '
+  +'    // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'      Items[i] := lSourc'
+  +'e.Items[i];'#13#10'      // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'    e'
+  +'nd;'#13#10'  end'#13#10'  else begin'#13#10'    inherited Assign(iSource);'
+  +#13#10'  end;'#13#10'end;'#13#10#13#10'class function %ARRAY_NAME%.GetItemTy'
+  +'pe: PTypeInfo;'#13#10'begin'#13#10'  result := TypeInfo(%ARRAY_TYPE%);'#13
+  +#10'end;'#13#10#13#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'class '
+  +'function %ARRAY_NAME%.GetItemClass: TClass;'#13#10'begin'#13#10'  result :='
+  +' %ARRAY_TYPE%;'#13#10'end;'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13
+  +#10#13#10'class function %ARRAY_NAME%.GetItemSize: integer;'#13#10'begin'#13
+  +#10'  result := SizeOf(%ARRAY_TYPE%);'#13#10'end;'#13#10#13#10'function %ARR'
+  +'AY_NAME%.GetItems(aIndex: integer): %ARRAY_TYPE%;'#13#10'begin'#13#10'  if '
+  +'(aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds'
+  +',[aIndex]);'#13#10'  result := fItems[aIndex];'#13#10'end;'#13#10#13#10'fun'
+  +'ction %ARRAY_NAME%.GetItemRef(aIndex: integer): pointer;'#13#10'begin'#13#10
+  +'  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfB'
+  +'ounds,[aIndex]);'#13#10'  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10' '
+  +' result := fItems[aIndex];'#13#10'  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'
+  +#13#10'  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'  result := @fItems['
+  +'aIndex];'#13#10'  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'end;'#13#10
+  +#13#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'procedure %ARRAY_NAME'
+  +'%.SetItemRef(aIndex: integer; Ref: pointer);'#13#10'begin'#13#10'  if (aInd'
+  ,'ex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIn'
+  +'dex]);'#13#10'  if Ref <> fItems[aIndex] then begin'#13#10'    if fItems[aI'
+  +'ndex] <> nil then fItems[aIndex].Free;'#13#10'    fItems[aIndex] := Ref;'#13
+  +#10'  end;'#13#10'end;'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10
+  +#13#10'procedure %ARRAY_NAME%.Clear;'#13#10'// <%%% START IF_ARRAY_TYPE_COMP'
+  +'LEX %%%>'#13#10'var i: integer;'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%'
+  +'%>'#13#10'begin'#13#10'  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  '
+  +'for i := 0 to (Count-1) do fItems[i].Free();'#13#10'  // <%%% END IF_ARRAY_'
+  +'TYPE_COMPLEX %%%>'#13#10'  SetLength(fItems, 0);'#13#10'  FCount := 0;'#13
+  +#10'end;'#13#10#13#10'procedure %ARRAY_NAME%.Delete(aIndex: integer);'#13#10
+  +'var i: integer;'#13#10'begin'#13#10'  if (aIndex>=Count) then RaiseError(er'
+  +'r_InvalidIndex, [aIndex]);'#13#10#13#10'  // <%%% START IF_ARRAY_TYPE_COMPL'
+  +'EX %%%>'#13#10'  fItems[aIndex].Free();'#13#10'  // <%%% END IF_ARRAY_TYPE_'
+  +'COMPLEX %%%>'#13#10'  '#13#10'  if (aIndex<Count-1) then'#13#10'    for i :'
+  +'= aIndex to Count-2 do fItems[i] := fItems[i+1];'#13#10#13#10'  SetLength(f'
+  +'Items, Count-1);'#13#10'  Dec(FCount);'#13#10'end;'#13#10#13#10'procedure %'
+  +'ARRAY_NAME%.SetItems(aIndex: integer; const Value: %ARRAY_TYPE%);'#13#10'be'
+  +'gin'#13#10'  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_Array'
+  +'IndexOutOfBounds,[aIndex]);'#13#10'  // <%%% START IF_ARRAY_TYPE_COMPLEX %%'
+  +'%>  '#13#10'  if fItems[aIndex] <> Value then begin'#13#10'    fItems[aInde'
+  +'x].Free;    '#13#10'    fItems[aIndex] := Value;'#13#10'  end;'#13#10'  // '
+  +'<%%% END IF_ARRAY_TYPE_COMPLEX %%%>  '#13#10'  // <%%% START IF_ARRAY_TYPE_'
+  +'SIMPLE %%%>'#13#10'  fItems[aIndex] := Value;  '#13#10'  // <%%% END IF_ARR'
+  +'AY_TYPE_SIMPLE %%%>  '#13#10'end;'#13#10#13#10'procedure %ARRAY_NAME%.Resiz'
+  +'e(ElementCount: integer);'#13#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'
+  +#13#10'var i: Integer;'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10
+  +'begin'#13#10'  if fCount = ElementCount then Exit;'#13#10'// <%%% START IF_'
+  +'ARRAY_TYPE_COMPLEX %%%>'#13#10'  for i := FCount -1 downto ElementCount do'
+  +#13#10'    FItems[i].Free;'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13
+  +#10'  SetLength(fItems, ElementCount);'#13#10'// <%%% START IF_ARRAY_TYPE_CO'
+  +'MPLEX %%%>'#13#10'  for i := FCount to ElementCount -1 do'#13#10'    FItems'
+  +'[i] := %ARRAY_TYPE%.Create;'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'
+  +#13#10'  FCount := ElementCount;'#13#10'end;'#13#10#13#10'function %ARRAY_NA'
+  +'ME%.GetCount: integer;'#13#10'begin'#13#10'  result := FCount;'#13#10'end;'
+  +#13#10#13#10'procedure %ARRAY_NAME%.Grow;'#13#10'var'#13#10'  Delta, Capacit'
+  +'y: Integer;'#13#10'begin'#13#10'  Capacity := Length(fItems);'#13#10'  if C'
+  +'apacity > 64 then'#13#10'    Delta := Capacity div 4'#13#10'  else'#13#10' '
+  +'   if Capacity > 8 then'#13#10'      Delta := 16'#13#10'   else'#13#10'    '
+  +'  Delta := 4;'#13#10'  SetLength(fItems, Capacity + Delta);'#13#10'end;'#13
+  +#10#13#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'function %ARRAY_NA'
+  +'ME%.Add: %ARRAY_TYPE%;'#13#10'begin'#13#10'  result := %ARRAY_TYPE%.Create;'
+  +#13#10'  Add(Result);'#13#10'end;'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %'
+  +'%%>'#13#10#13#10'function %ARRAY_NAME%.Add(const Value:%ARRAY_TYPE%): integ'
+  +'er;'#13#10'begin'#13#10'  Result := Count;'#13#10'  if Length(fItems) = Res'
+  +'ult then'#13#10'    Grow;'#13#10'  fItems[result] := Value;'#13#10'  Inc(fC'
+  +'ount);'#13#10'end;'#13#10#13#10'// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13
+  +#10'function %ARRAY_NAME%.GetIndex(const aPropertyName : string;'#13#10'  co'
+  +'nst aPropertyValue : Variant; StartFrom : integer;'#13#10'  Options : TROSe'
+  +'archOptions) : integer;'#13#10'begin'#13#10'  result := -1;'#13#10'end;'#13
+  +#10'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10#13#10'procedure %ARRAY_NAME'
+  +'%.ReadComplex(ASerializer: TObject);'#13#10'var'#13#10'  lval: %ARRAY_TYPE%'
+  +';'#13#10'  i: integer;'#13#10'begin'#13#10'  for i := 0 to Count-1 do begin'
+  +#13#10'    with TROSerializer(ASerializer) do'#13#10'      // <%%% START IF_'
+  +'ARRAY_BINARY_TYPE %%%>'#13#10'      ReadBinary(GetArrayElementName(GetItemT'
+  +'ype, GetItemRef(i)), lval, i);'#13#10'      // <%%% END IF_ARRAY_BINARY_TYP'
+  +'E %%%>'#13#10'      // <%%% START IF_ARRAY_BOOLEAN_TYPE %%%>'#13#10'      R'
+  +'eadEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)), TypeInfo(boo'
+  +'lean), lval, i);'#13#10'      // <%%% END IF_ARRAY_BOOLEAN_TYPE %%%>'#13#10
+  +'      // <%%% START IF_ARRAY_CURRENCY_TYPE %%%>'#13#10'      ReadDouble(Get'
+  +'ArrayElementName(GetItemType, GetItemRef(i)), ftCurr, lval, i);'#13#10'    '
+  +'  // <%%% END IF_ARRAY_CURRENCY_TYPE %%%>'#13#10'      // <%%% START IF_ARR'
+  +'AY_DATETIME_TYPE %%%>'#13#10'      ReadDateTime(GetArrayElementName(GetItem'
+  +'Type, GetItemRef(i)), lval, i);'#13#10'      // <%%% END IF_ARRAY_DATETIME_'
+  +'TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_DECIMAL_TYPE %%%>'#13#10'    '
+  ,'  ReadDecimal(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);'#13
+  +#10'      // <%%% END IF_ARRAY_DECIMAL_TYPE %%%>'#13#10'      // <%%% START '
+  +'IF_ARRAY_DOUBLE_TYPE %%%>'#13#10'      ReadDouble(GetArrayElementName(GetIt'
+  +'emType, GetItemRef(i)), ftDouble, lval, i);'#13#10'      // <%%% END IF_ARR'
+  +'AY_DOUBLE_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_GUID_TYPE %%%>'#13
+  +#10'      ReadGuid(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i)'
+  +';'#13#10'      // <%%% END IF_ARRAY_GUID_TYPE %%%>'#13#10'      // <%%% STA'
+  +'RT IF_ARRAY_INT64_TYPE %%%>'#13#10'      ReadInt64(GetArrayElementName(GetI'
+  +'temType, GetItemRef(i)), lval, i);'#13#10'      // <%%% END IF_ARRAY_INT64_'
+  +'TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_INTEGER_TYPE %%%>'#13#10'    '
+  +'  ReadInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, lva'
+  +'l, i);'#13#10'      // <%%% END IF_ARRAY_INTEGER_TYPE %%%>'#13#10'      // '
+  +'<%%% START IF_ARRAY_ANSISTRING_TYPE %%%>'#13#10'      ReadUTF8String(GetArr'
+  +'ayElementName(GetItemType, GetItemRef(i)), lval, i);'#13#10'      // <%%% E'
+  +'ND IF_ARRAY_ANSISTRING_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_UTF8ST'
+  +'RING_TYPE %%%>'#13#10'      ReadUTF8String(GetArrayElementName(GetItemType,'
+  +' GetItemRef(i)), lval, i);'#13#10'      // <%%% END IF_ARRAY_UTF8STRING_TYP'
+  +'E %%%>'#13#10'      // <%%% START IF_ARRAY_VARIANT_TYPE %%%>'#13#10'      R'
+  +'eadVariant(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);'#13#10
+  +'      // <%%% END IF_ARRAY_VARIANT_TYPE %%%>'#13#10'      // <%%% START IF_'
+  +'ARRAY_WIDESTRING_TYPE %%%>'#13#10'      ReadWideString(GetArrayElementName('
+  +'GetItemType, GetItemRef(i)), lval, i);'#13#10'      // <%%% END IF_ARRAY_WI'
+  +'DESTRING_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_XML_TYPE %%%>'#13#10
+  +'      ReadXml(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);'#13
+  +#10'      // <%%% END IF_ARRAY_XML_TYPE %%%>'#13#10'      // <%%% START IF_A'
+  +'RRAY_ARRAY_TYPE %%%>'#13#10'      ReadArray(GetArrayElementName(GetItemType'
+  +', GetItemRef(i)), %ARRAY_TYPE%, lval, i);'#13#10'      // <%%% END IF_ARRAY'
+  +'_ARRAY_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_ENUM_TYPE %%%>'#13#10
+  +'      ReadEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)), TypeI'
+  +'nfo(%ARRAY_TYPE%), lval, i);'#13#10'      // <%%% END IF_ARRAY_ENUM_TYPE %%'
+  +'%>'#13#10'      // <%%% START IF_ARRAY_STRUCT_TYPE %%%>'#13#10'      ReadSt'
+  +'ruct(GetArrayElementName(GetItemType, GetItemRef(i)), %ARRAY_TYPE%, lval, i'
+  +');'#13#10'      // <%%% END IF_ARRAY_STRUCT_TYPE %%%>'#13#10'    Items[i] :'
+  +'= lval;'#13#10'  end;'#13#10'end;'#13#10#13#10'procedure %ARRAY_NAME%.Write'
+  +'Complex(ASerializer: TObject);'#13#10'var'#13#10'  i: integer;'#13#10'begin'
+  +#13#10'  for i := 0 to Count-1 do'#13#10'    with TROSerializer(ASerializer)'
+  +' do'#13#10'      // <%%% START IF_ARRAY_BINARY_TYPE %%%>'#13#10'      Write'
+  +'Binary(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);'#13
+  +#10'      // <%%% END IF_ARRAY_BINARY_TYPE %%%>'#13#10'      // <%%% START I'
+  +'F_ARRAY_BOOLEAN_TYPE %%%>'#13#10'      WriteEnumerated(GetArrayElementName('
+  +'GetItemType, GetItemRef(i)), TypeInfo(boolean), fItems[i], i);'#13#10'     '
+  +' // <%%% END IF_ARRAY_BOOLEAN_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY'
+  +'_CURRENCY_TYPE %%%>'#13#10'      WriteDouble(GetArrayElementName(GetItemTyp'
+  +'e, GetItemRef(i)), ftCurr, fItems[i], i);'#13#10'      // <%%% END IF_ARRAY'
+  +'_CURRENCY_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_DATETIME_TYPE %%%>'
+  +#13#10'      WriteDateTime(GetArrayElementName(GetItemType, GetItemRef(i)), '
+  +'fItems[i], i);'#13#10'      // <%%% END IF_ARRAY_DATETIME_TYPE %%%>'#13#10
+  +'      // <%%% START IF_ARRAY_DECIMAL_TYPE %%%>'#13#10'      WriteDecimal(Ge'
+  +'tArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);'#13#10'      '
+  +'// <%%% END IF_ARRAY_DECIMAL_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_'
+  +'DOUBLE_TYPE %%%>'#13#10'      WriteDouble(GetArrayElementName(GetItemType, '
+  +'GetItemRef(i)), ftDouble, fItems[i], i);'#13#10'      // <%%% END IF_ARRAY_'
+  +'DOUBLE_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_GUID_TYPE %%%>'#13#10
+  +'      WriteGuid(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i],'
+  +' i);'#13#10'      // <%%% END IF_ARRAY_GUID_TYPE %%%>'#13#10'      // <%%% '
+  +'START IF_ARRAY_INT64_TYPE %%%>'#13#10'      WriteInt64(GetArrayElementName('
+  +'GetItemType, GetItemRef(i)), fItems[i], i);'#13#10'      // <%%% END IF_ARR'
+  +'AY_INT64_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_INTEGER_TYPE %%%>'#13
+  +#10'      WriteInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSL'
+  +'ong, fItems[i], i);'#13#10'      // <%%% END IF_ARRAY_INTEGER_TYPE %%%>'#13
+  +#10'      // <%%% START IF_ARRAY_ANSISTRING_TYPE %%%>'#13#10'      WriteUTF8'
+  +'String(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);'#13
+  +#10'      // <%%% END IF_ARRAY_ANSISTRING_TYPE %%%>'#13#10'      // <%%% STA'
+  +'RT IF_ARRAY_UTF8STRING_TYPE %%%>'#13#10'      WriteUTF8String(GetArrayEleme'
+  ,'ntName(GetItemType, GetItemRef(i)), fItems[i], i);'#13#10'      // <%%% END'
+  +' IF_ARRAY_UTF8STRING_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_VARIANT_'
+  +'TYPE %%%>'#13#10'      WriteVariant(GetArrayElementName(GetItemType, GetIte'
+  +'mRef(i)), fItems[i], i);'#13#10'      // <%%% END IF_ARRAY_VARIANT_TYPE %%%'
+  +'>'#13#10'      // <%%% START IF_ARRAY_WIDESTRING_TYPE %%%>'#13#10'      Wri'
+  +'teWideString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i)'
+  +';'#13#10'      // <%%% END IF_ARRAY_WIDESTRING_TYPE %%%>'#13#10'      // <%'
+  +'%% START IF_ARRAY_XML_TYPE %%%>'#13#10'      WriteXml(GetArrayElementName(G'
+  +'etItemType, GetItemRef(i)), fItems[i], i);'#13#10'      // <%%% END IF_ARRA'
+  +'Y_XML_TYPE %%%>'#13#10'      // <%%% START IF_ARRAY_ARRAY_TYPE %%%>'#13#10
+  +'      WriteArray(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i]'
+  +', , %ARRAY_TYPE%, i);'#13#10'      // <%%% END IF_ARRAY_ARRAY_TYPE %%%>'#13
+  +#10'      // <%%% START IF_ARRAY_ENUM_TYPE %%%>'#13#10'      WriteEnumerated'
+  +'(GetArrayElementName(GetItemType, GetItemRef(i)), TypeInfo(%ARRAY_TYPE%), f'
+  +'Items[i], i);'#13#10'      // <%%% END IF_ARRAY_ENUM_TYPE %%%>'#13#10'     '
+  +' // <%%% START IF_ARRAY_STRUCT_TYPE %%%>'#13#10'      WriteStruct(GetArrayE'
+  +'lementName(GetItemType, GetItemRef(i)), fItems[i], %ARRAY_TYPE%, i);'#13#10
+  +'      // <%%% END IF_ARRAY_STRUCT_TYPE %%%>'#13#10'end;'#13#10#13#10'// <%%'
+  +'% END ARRAYS %%%>'#13#10'// <%%% START STRUCTS %%%>'#13#10'{ %STRUCT_NAME% '
+  +'}'#13#10'// <%%% START IF_STRUCT_HAS_ATTRIBUTES %%%>'#13#10'class function '
+  +'%STRUCT_NAME%.GetAttributeCount: Integer;'#13#10'begin'#13#10'  Result := %'
+  +'ATTRIBUTES_COUNT%;'#13#10'end;'#13#10#13#10'class function %STRUCT_NAME%.Ge'
+  +'tAttributeName(aIndex: Integer): string;'#10'begin'#10'  case aIndex of'#10
+  +'// <%%% START ATTRIBUTES_NO_STRIP %%%>'#10'    %ATTRIBUTE_INDEX%: Result :='
+  +' %ATTRIBUTE_NAME%;'#10'// <%%% END ATTRIBUTES_NO_STRIP %%%>'#10'  end;'#10
+  +'end;'#10#10'class function %STRUCT_NAME%.GetAttributeValue(aIndex: Integer)'
+  +': string;'#10'begin'#10'  case aIndex of'#10'// <%%% START ATTRIBUTES_NO_ST'
+  +'RIP %%%>'#10'    %ATTRIBUTE_INDEX%: Result := %ATTRIBUTE_VALUE%;'#10'// <%%'
+  +'% END ATTRIBUTES_NO_STRIP %%%>'#10'  end;'#10'end;'#10'// <%%% END IF_STRUC'
+  +'T_HAS_ATTRIBUTES %%%>'#13#10#13#10'procedure %STRUCT_NAME%.Assign(iSource: '
+  +'TPersistent);'#13#10'// <%%% START IF_HAS_FIELDS %%%>'#13#10'var'#13#10'  l'
+  +'Source: %STRUCT_NAME%;'#13#10'// <%%% END IF_HAS_FIELDS %%%>'#13#10'begin'
+  +#13#10'  inherited Assign(iSource);'#13#10'  // <%%% START IF_HAS_FIELDS %%%'
+  +'>'#13#10'  if (iSource is %STRUCT_NAME%) then begin'#13#10'    lSource := %'
+  +'STRUCT_NAME%(iSource);'#13#10#13#10'  // <%%% END IF_HAS_FIELDS %%%>'#13#10
+  +'    // <%%% START FIELDS_NO_STRIP %%%>'#13#10'    // <%%% START IF_FIELD_TY'
+  +'PE_SIMPLE %%%>'#13#10'    %FIELD_NAME% := lSource.%FIELD_NAME%;'#13#10'    '
+  +'// <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_FIELD_TYP'
+  +'E_COMPLEX %%%>'#13#10'    // <%%% START IF_NOT_AUTO_CREATE_FIELDS %%%>'#13
+  +#10'    if Assigned(f%FIELD_NAME%) then begin'#13#10'      if Assigned(lSour'
+  +'ce.%FIELD_NAME%) then'#13#10'        %FIELD_NAME%.Assign(lSource.%FIELD_NAM'
+  +'E%)'#13#10'      else'#13#10'        FreeAndNil(f%FIELD_NAME%);'#13#10'    '
+  +'end;'#13#10'    // <%%% END IF_NOT_AUTO_CREATE_FIELDS %%%>'#13#10'    // <%'
+  +'%% START IF_AUTO_CREATE_FIELDS %%%>'#13#10'    %FIELD_NAME%.Assign(lSource.'
+  +'%FIELD_NAME%);'#13#10'    // <%%% END IF_AUTO_CREATE_FIELDS %%%>'#13#10'   '
+  +' // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    // <%%% END FIELDS_NO_ST'
+  +'RIP %%%>'#13#10'  // <%%% START IF_HAS_FIELDS %%%>'#13#10'  end;'#13#10'  /'
+  +'/ <%%% END IF_HAS_FIELDS %%%>'#13#10'end;'#13#10#13#10'// <%%% START STRUCT'
+  +'_GENERATE_DEFAULT_VALUES %%%>'#13#10'constructor %STRUCT_NAME%.Create(aColl'
+  +'ection : TCollection);'#13#10'begin'#13#10'  inherited Create(aCollection);'
+  +#13#10'  // <%%% START FIELDS_NO_STRIP %%%>'#13#10'  // <%%% START IF_FIELD_'
+  +'HAS_DEFAULT_VALUE %%%>'#13#10'  // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13
+  +#10'  f%FIELD_NAME% := %DEFAULT_VALUE%;'#13#10'  // <%%% END IF_FIELD_BOOLEA'
+  +'N_TYPE %%%>'#13#10'  // <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'  f%F'
+  +'IELD_NAME% := %DEFAULT_VALUE%;'#13#10'  // <%%% END IF_FIELD_CURRENCY_TYPE '
+  +'%%%>'#13#10'  // <%%% START IF_FIELD_DATETIME_TYPE %%%>'#13#10'  f%FIELD_NA'
+  +'ME% := StrToDateTimeDef(''%DEFAULT_VALUE%'',0);'#13#10'  // <%%% END IF_FIE'
+  +'LD_DATETIME_TYPE %%%>'#13#10'  // <%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13
+  +#10'  f%FIELD_NAME% := %DEFAULT_VALUE%;'#13#10'  // <%%% END IF_FIELD_DECIMA'
+  +'L_TYPE %%%>'#13#10'  // <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'  f%FIE'
+  +'LD_NAME% := %DEFAULT_VALUE%;'#13#10'  // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'
+  +#13#10'  // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'  f%FIELD_NAME% := ''%'
+  +'DEFAULT_VALUE%'';'#13#10'  // <%%% END IF_FIELD_GUID_TYPE %%%>'#13#10'  // '
+  +'<%%% START IF_FIELD_INT64_TYPE %%%>'#13#10'  f%FIELD_NAME% := %DEFAULT_VALU'
+  ,'E%;'#13#10'  // <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'  // <%%% START IF'
+  +'_FIELD_INTEGER_TYPE %%%>'#13#10'  f%FIELD_NAME% := %DEFAULT_VALUE%;'#13#10
+  +'  // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13#10'  // <%%% START IF_FIELD_AN'
+  +'SISTRING_TYPE %%%>'#13#10'  f%FIELD_NAME% := ''%DEFAULT_VALUE%'';'#13#10'  '
+  +'// <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'  // <%%% START IF_FIELD_U'
+  +'TF8STRING_TYPE %%%>'#13#10'  f%FIELD_NAME% := ''%DEFAULT_VALUE%'';'#13#10' '
+  +' // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'  // <%%% START IF_FIELD_'
+  +'VARIANT_TYPE %%%>'#13#10'  f%FIELD_NAME% := ''%DEFAULT_VALUE%'';'#13#10'  /'
+  +'/ <%%% END IF_FIELD_VARIANT_TYPE %%%>'#13#10'  // <%%% START IF_FIELD_WIDES'
+  +'TRING_TYPE %%%>'#13#10'  f%FIELD_NAME% := ''%DEFAULT_VALUE%'';'#13#10'  // '
+  +'<%%% END IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'  // <%%% END IF_FIELD_HAS_DE'
+  +'FAULT_VALUE %%%>'#13#10'  // <%%% END FIELDS_NO_STRIP %%%>'#13#10'end;'#13
+  +#10'// <%%% END STRUCT_GENERATE_DEFAULT_VALUES %%%>'#13#10#13#10'destructor '
+  +'%STRUCT_NAME%.Destroy;'#13#10'begin'#13#10'  FDestroying := True;'#13#10'  '
+  +'try'#13#10'    inherited Destroy;'#13#10'  finally'#13#10'    FDestroying :'
+  +'= False;'#13#10'  end;'#13#10'end;'#13#10#13#10'// <%%% START FIELDS_NO_STR'
+  +'IP %%%>'#13#10'// <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'function %ST'
+  +'RUCT_NAME%.Get%FIELD_NAME%: %FIELD_TYPE%;'#13#10'begin'#13#10'  // <%%% STA'
+  +'RT IF_AUTO_CREATE_FIELDS %%%>'#13#10'  if not Assigned(f%FIELD_NAME%) and n'
+  +'ot FDestroying then'#13#10'    f%FIELD_NAME% := %FIELD_TYPE%.Create();'#13
+  +#10'  // <%%% END IF_AUTO_CREATE_FIELDS %%%>'#13#10'  Result := f%FIELD_NAME'
+  +'%;'#13#10'end;'#13#10'// <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'// <%%%'
+  +' END FIELDS_NO_STRIP %%%>'#13#10#13#10'// <%%% START IF_HAS_FIELDS %%%>'#13
+  +#10'procedure %STRUCT_NAME%.ReadComplex(ASerializer: TObject);'#13#10'var'#13
+  +#10'  // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'  l_%FIELD_NAME%: %F'
+  +'IELD_TYPE%;'#13#10'  // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'begin'
+  +#13#10'  if TROSerializer(ASerializer).RecordStrictOrder then begin'#13#10' '
+  +'   // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'    inherited;'#13#10' '
+  +'   // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'    // <%%% START FIELDS_'
+  +'NO_STRIP %%%>'#13#10'    l_%FIELD_NAME% := %FIELD_NAME%;'#13#10'    // <%%%'
+  +' START IF_FIELD_BINARY_TYPE %%%>'#13#10'    TROSerializer(ASerializer).Read'
+  +'Binary(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    if %FIELD_NAME'
+  +'% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13#10'    // <%%% END IF_FIELD'
+  +'_BINARY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).ReadEnumerated(''%FIELD_ORIGINALNAME%'', Typ'
+  +'eInfo(boolean), l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN_TY'
+  +'PE %%%>'#13#10'    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    TRO'
+  +'Serializer(ASerializer).ReadDouble(''%FIELD_ORIGINALNAME%'', ftCurr, l_%FIE'
+  +'LD_NAME%);'#13#10'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    //'
+  +' <%%% START IF_FIELD_DATETIME_TYPE %%%>'#13#10'    TROSerializer(ASerialize'
+  +'r).ReadDateTime(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%'
+  +'%% END IF_FIELD_DATETIME_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DECIMA'
+  +'L_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadDecimal(''%FIELD_ORIG'
+  +'INALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DECIMAL_TYPE '
+  +'%%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    TROSeria'
+  +'lizer(ASerializer).ReadDouble(''%FIELD_ORIGINALNAME%'', ftDouble, l_%FIELD_'
+  +'NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    // <%%%'
+  +' START IF_FIELD_GUID_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadGu'
+  +'id(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIE'
+  +'LD_GUID_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INT64_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).ReadInt64(''%FIELD_ORIGINALNAME%'', l_%FIELD'
+  +'_NAME%);'#13#10'    // <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'    // <%%%'
+  +' START IF_FIELD_INTEGER_TYPE %%%>'#13#10'    TROSerializer(ASerializer).Rea'
+  +'dInteger(''%FIELD_ORIGINALNAME%'', otSLong, l_%FIELD_NAME%);'#13#10'    // '
+  +'<%%% END IF_FIELD_INTEGER_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ANSIS'
+  +'TRING_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadAnsiString(''%FIE'
+  +'LD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ANSIST'
+  +'RING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).ReadUTF8String(''%FIELD_ORIGINALNAME%'', l_%'
+  +'FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_FIELD_VARIANT_TYPE %%%>'#13#10'    TROSerializer(ASeria'
+  +'lizer).ReadVariant(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    //'
+  +' <%%% END IF_FIELD_VARIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDE'
+  +'STRING_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadWideString(''%FI'
+  ,'ELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_WIDES'
+  +'TRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10'    '
+  +'TROSerializer(ASerializer).ReadXml(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%'
+  +');'#13#10'    // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_ARRAY_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadArray(''%'
+  +'FIELD_ORIGINALNAME%'', %FIELD_TYPE%, l_%FIELD_NAME%);'#13#10'    if %FIELD_'
+  +'NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13#10'    // <%%% END IF_F'
+  +'IELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).ReadEnumerated(''%FIELD_ORIGINALNAME%'', Typ'
+  +'eInfo(%FIELD_TYPE%), l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ENUM_'
+  +'TYPE %%%>'#13#10'    // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13#10'    TRO'
+  +'Serializer(ASerializer).ReadStruct(''%FIELD_ORIGINALNAME%'', %FIELD_TYPE%, '
+  +'l_%FIELD_NAME%);'#13#10'    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_N'
+  +'AME%.Free;'#13#10'    // <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    // <'
+  +'%%% START IF_FIELD_XSDATETIME_TYPE %%%>'#13#10'    TROSerializer(ASerialize'
+  +'r).ReadStruct(''%FIELD_ORIGINALNAME%'', %FIELD_TYPE%, l_%FIELD_NAME%);'#13
+  +#10'    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13#10'   '
+  +' // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>'#13#10'    %FIELD_NAME% := l_%FI'
+  +'ELD_NAME%;'#13#10'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  end'#13#10
+  +'  else begin'#13#10'    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#13#10' '
+  +'   l_%FIELD_NAME% := %FIELD_NAME%;'#13#10'    // <%%% START IF_FIELD_BINARY'
+  +'_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadBinary(''%FIELD_ORIGIN'
+  +'ALNAME%'', l_%FIELD_NAME%);'#13#10'    if %FIELD_NAME% <> l_%FIELD_NAME% th'
+  +'en %FIELD_NAME%.Free;'#13#10'    // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    TROSerializer(AS'
+  +'erializer).ReadEnumerated(''%FIELD_ORIGINALNAME%'', TypeInfo(boolean), l_%F'
+  +'IELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    /'
+  +'/ <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    TROSerializer(ASerializ'
+  +'er).ReadDouble(''%FIELD_ORIGINALNAME%'', ftCurr, l_%FIELD_NAME%);'#13#10'  '
+  +'  // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD'
+  +'_DATETIME_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadDateTime(''%F'
+  +'IELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DATE'
+  +'TIME_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13#10' '
+  +'   TROSerializer(ASerializer).ReadDecimal(''%FIELD_ORIGINALNAME%'', l_%FIEL'
+  +'D_NAME%);'#13#10'    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    // <'
+  +'%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    TROSerializer(ASerializer).R'
+  +'eadDouble(''%FIELD_ORIGINALNAME%'', ftDouble, l_%FIELD_NAME%);'#13#10'    /'
+  +'/ <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_GUID'
+  +'_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadGuid(''%FIELD_ORIGINAL'
+  +'NAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_GUID_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_INT64_TYPE %%%>'#13#10'    TROSerializer(ASer'
+  +'ializer).ReadInt64(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    //'
+  +' <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INTEGE'
+  +'R_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadInteger(''%FIELD_ORIG'
+  +'INALNAME%'', otSLong, l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INTE'
+  +'GER_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).ReadAnsiString(''%FIELD_ORIGINALNAME%'', l_%'
+  +'FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    TROSerializer(ASe'
+  +'rializer).ReadUTF8String(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START IF_F'
+  +'IELD_VARIANT_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadVariant('''
+  +'%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_VA'
+  +'RIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>'#13
+  +#10'    TROSerializer(ASerializer).ReadWideString(''%FIELD_ORIGINALNAME%'', '
+  +'l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10'    TROSerializer(ASerializ'
+  +'er).ReadXml(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% E'
+  +'ND IF_FIELD_XML_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ARRAY_TYPE %%%>'
+  +#13#10'    TROSerializer(ASerializer).ReadArray(''%FIELD_ORIGINALNAME%'', %F'
+  +'IELD_TYPE%, l_%FIELD_NAME%);'#13#10'    if %FIELD_NAME% <> l_%FIELD_NAME% t'
+  +'hen %FIELD_NAME%.Free;'#13#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'#13#10'    TROSerializer(ASeri'
+  +'alizer).ReadEnumerated(''%FIELD_ORIGINALNAME%'', TypeInfo(%FIELD_TYPE%), l_'
+  ,'%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'    //'
+  +' <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13#10'    TROSerializer(ASerializer)'
+  +'.ReadStruct(''%FIELD_ORIGINALNAME%'', %FIELD_TYPE%, l_%FIELD_NAME%);'#13#10
+  +'    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13#10'    //'
+  +' <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XSDAT'
+  +'ETIME_TYPE %%%>'#13#10'    TROSerializer(ASerializer).ReadStruct(''%FIELD_O'
+  +'RIGINALNAME%'', %FIELD_TYPE%, l_%FIELD_NAME%);'#13#10'    if %FIELD_NAME% <'
+  +'> l_%FIELD_NAME% then %FIELD_NAME%.Free;'#13#10'    // <%%% END IF_FIELD_XS'
+  +'DATETIME_TYPE %%%>'#13#10'    %FIELD_NAME% := l_%FIELD_NAME%;'#13#10'    //'
+  +' <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'  end;'#13#10'end;'#13#10#13
+  +#10'procedure %STRUCT_NAME%.WriteComplex(ASerializer: TObject);'#13#10'var'
+  +#13#10'  // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'  l_%FIELD_NAME%:'
+  +' %FIELD_TYPE%;'#13#10'  // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'beg'
+  +'in'#13#10'  if TROSerializer(ASerializer).RecordStrictOrder then begin'#13
+  +#10'    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'    inherited;'#13
+  +#10'    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'    TROSerializer(ASe'
+  +'rializer).ChangeClass(%STRUCT_NAME%);'#13#10'    // <%%% START FIELDS_NO_ST'
+  +'RIP %%%>'#13#10'    l_%FIELD_NAME% := %FIELD_NAME%;'#13#10'    // <%%% STAR'
+  +'T IF_FIELD_BINARY_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteBina'
+  +'ry(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIE'
+  +'LD_BINARY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13
+  +#10'    TROSerializer(ASerializer).WriteEnumerated(''%FIELD_ORIGINALNAME%'','
+  +' TypeInfo(boolean), l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEA'
+  +'N_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'   '
+  +' TROSerializer(ASerializer).WriteDouble(''%FIELD_ORIGINALNAME%'', ftCurr, l'
+  +'_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_FIELD_DATETIME_TYPE %%%>'#13#10'    TROSerializer(ASeri'
+  +'alizer).WriteDateTime(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'   '
+  +' // <%%% END IF_FIELD_DATETIME_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_'
+  +'DECIMAL_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteDecimal(''%FIE'
+  +'LD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DECIMA'
+  +'L_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    T'
+  +'ROSerializer(ASerializer).WriteDouble(''%FIELD_ORIGINALNAME%'', ftDouble, l'
+  +'_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'   '
+  +' // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'    TROSerializer(ASerializer'
+  +').WriteGuid(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% E'
+  +'ND IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INT64_TYPE %%%'
+  +'>'#13#10'    TROSerializer(ASerializer).WriteInt64(''%FIELD_ORIGINALNAME%'''
+  +', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_FIELD_INTEGER_TYPE %%%>'#13#10'    TROSerializer(ASeria'
+  +'lizer).WriteInteger(''%FIELD_ORIGINALNAME%'', otSLong, l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13#10'    // <%%% START IF_F'
+  +'IELD_ANSISTRING_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteAnsiSt'
+  +'ring(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_F'
+  +'IELD_ANSISTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_UTF8STRING_TYPE'
+  +' %%%>'#13#10'    TROSerializer(ASerializer).WriteUTF8String(''%FIELD_ORIGIN'
+  +'ALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE'
+  +' %%%>'#13#10'    // <%%% START IF_FIELD_VARIANT_TYPE %%%>'#13#10'    TROSer'
+  +'ializer(ASerializer).WriteVariant(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%)'
+  +';'#13#10'    // <%%% END IF_FIELD_VARIANT_TYPE %%%>'#13#10'    // <%%% STAR'
+  +'T IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    TROSerializer(ASerializer).Write'
+  +'WideString(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% EN'
+  +'D IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XML_TYPE '
+  +'%%%>'#13#10'    TROSerializer(ASerializer).WriteXml(''%FIELD_ORIGINALNAME%'
+  +''', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_FIELD_ARRAY_TYPE %%%>'#13#10'    TROSerializer(ASeriali'
+  +'zer).WriteArray(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%, %FIELD_TYPE%);'#13
+  +#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_FIE'
+  +'LD_ENUM_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteEnumerated(''%'
+  +'FIELD_ORIGINALNAME%'', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);'#13#10'    '
+  +'// <%%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_STRUC'
+  +'T_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteStruct(''%FIELD_ORIG'
+  +'INALNAME%'', l_%FIELD_NAME%, %FIELD_TYPE%);'#13#10'    // <%%% END IF_FIELD'
+  +'_STRUCT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>'#13
+  ,#10'    TROSerializer(ASerializer).WriteStruct(''%FIELD_ORIGINALNAME%'', l_%'
+  +'FIELD_NAME%, %FIELD_TYPE%);'#13#10'    // <%%% END IF_FIELD_XSDATETIME_TYPE'
+  +' %%%>'#13#10'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  end'#13#10'  els'
+  +'e begin'#13#10'    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'    l_'
+  +'%FIELD_NAME% := %FIELD_NAME%;'#13#10'    // <%%% START IF_FIELD_BINARY_TYPE'
+  +' %%%>'#13#10'    TROSerializer(ASerializer).WriteBinary(''%FIELD_ORIGINALNA'
+  +'ME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    TROSerializer(AS'
+  +'erializer).WriteEnumerated(''%FIELD_ORIGINALNAME%'', TypeInfo(boolean), l_%'
+  +'FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    '
+  +'// <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    TROSerializer(ASeriali'
+  +'zer).WriteDouble(''%FIELD_ORIGINALNAME%'', ftCurr, l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_FIE'
+  +'LD_DATETIME_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteDateTime('
+  +'''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_'
+  +'DATETIME_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13
+  +#10'    TROSerializer(ASerializer).WriteDecimal(''%FIELD_ORIGINALNAME%'', l_'
+  +'%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>'#13#10'   '
+  +' // <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    TROSerializer(ASerializ'
+  +'er).WriteDouble(''%FIELD_ORIGINALNAME%'', ftDouble, l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    // <%%% START IF_FIELD'
+  +'_GUID_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteGuid(''%FIELD_OR'
+  +'IGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_GUID_TYPE %'
+  +'%%>'#13#10'    // <%%% START IF_FIELD_INT64_TYPE %%%>'#13#10'    TROSeriali'
+  +'zer(ASerializer).WriteInt64(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'    // <%%% START IF_FIE'
+  +'LD_INTEGER_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteInteger(''%'
+  +'FIELD_ORIGINALNAME%'', otSLong, l_%FIELD_NAME%);'#13#10'    // <%%% END IF_'
+  +'FIELD_INTEGER_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ANSISTRING_TYPE %'
+  +'%%>'#13#10'    TROSerializer(ASerializer).WriteAnsiString(''%FIELD_ORIGINAL'
+  +'NAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %'
+  +'%%>'#13#10'    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    TROSe'
+  +'rializer(ASerializer).WriteUTF8String(''%FIELD_ORIGINALNAME%'', l_%FIELD_NA'
+  +'ME%);'#13#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%'
+  +'%% START IF_FIELD_VARIANT_TYPE %%%>'#13#10'    TROSerializer(ASerializer).W'
+  +'riteVariant(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% E'
+  +'ND IF_FIELD_VARIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDESTRING_'
+  +'TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteWideString(''%FIELD_OR'
+  +'IGINALNAME%'', l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_WIDESTRING_'
+  +'TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10'    TROSer'
+  +'ializer(ASerializer).WriteXml(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // <%%% START IF_FIELD'
+  +'_ARRAY_TYPE %%%>'#13#10'    TROSerializer(ASerializer).WriteArray(''%FIELD_'
+  +'ORIGINALNAME%'', l_%FIELD_NAME%, %FIELD_TYPE%);'#13#10'    // <%%% END IF_F'
+  +'IELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'#13#10
+  +'    TROSerializer(ASerializer).WriteEnumerated(''%FIELD_ORIGINALNAME%'', Ty'
+  +'peInfo(%FIELD_TYPE%), l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ENUM'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13#10'    TR'
+  +'OSerializer(ASerializer).WriteStruct(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAM'
+  +'E%, %FIELD_TYPE%);'#13#10'    // <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>'#13#10'    TROSerializer(AS'
+  +'erializer).WriteStruct(''%FIELD_ORIGINALNAME%'', l_%FIELD_NAME%, %FIELD_TYP'
+  +'E%);'#13#10'    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>'#13#10'    // <%%'
+  +'% END ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'  end;'#13#10'end;'#13#10#13#10'/'
+  +'/ <%%% END IF_HAS_FIELDS %%%>'#13#10'{ %STRUCT_COLLECTION_NAME% }'#13#10'co'
+  +'nstructor %STRUCT_COLLECTION_NAME%.Create;'#13#10'begin'#13#10'  inherited '
+  +'Create(%STRUCT_NAME%);'#13#10'end;'#13#10#13#10'constructor %STRUCT_COLLECT'
+  +'ION_NAME%.Create(aItemClass: TCollectionItemClass);'#13#10'begin'#13#10'  i'
+  +'nherited Create(aItemClass);'#13#10'end;'#13#10#13#10'function %STRUCT_COLL'
+  +'ECTION_NAME%.Add: %STRUCT_NAME%;'#13#10'begin'#13#10'  result := %STRUCT_NA'
+  +'ME%(inherited Add);'#13#10'end;'#13#10#13#10'function %STRUCT_COLLECTION_NA'
+  +'ME%.GetItems(aIndex: integer): %STRUCT_NAME%;'#13#10'begin'#13#10'  result '
+  +':= %STRUCT_NAME%(inherited Items[aIndex]);'#13#10'end;'#13#10#13#10'// <%%%'
+  +' START ARRAYS_IS_FOUND %%%>'#13#10'procedure %STRUCT_COLLECTION_NAME%.LoadF'
+  ,'romArray(anArray: %ARRAY_NAME%);'#13#10'var'#13#10'  i : integer;'#13#10'be'
+  +'gin'#13#10'  Clear;'#13#10'  for i := 0 to (anArray.Count-1) do'#13#10'    '
+  +'Add.Assign(anArray[i]);'#13#10'end;'#13#10#13#10'procedure %STRUCT_COLLECTI'
+  +'ON_NAME%.SaveToArray(anArray: %ARRAY_NAME%);'#13#10'var'#13#10'  i : intege'
+  +'r;'#13#10'begin'#13#10'  anArray.Clear;'#13#10'  anArray.Resize(Count);'#13
+  +#10'  for i := 0 to (Count-1) do begin'#13#10'    anArray[i] := %STRUCT_NAME'
+  +'%.Create;'#13#10'    anArray[i].Assign(Items[i]);'#13#10'  end;'#13#10'end;'
+  +#13#10#13#10'// <%%% END ARRAYS_IS_FOUND %%%>'#13#10#13#10'procedure %STRUCT'
+  +'_COLLECTION_NAME%.SetItems(aIndex: integer; const Value: %STRUCT_NAME%);'#13
+  +#10'begin'#13#10'  %STRUCT_NAME%(inherited Items[aIndex]).Assign(Value);'#13
+  +#10'end;'#13#10#13#10'// <%%% END STRUCTS %%%>'#13#10'// <%%% START SERVICES'
+  +' %%%>'#13#10'{ Co%SERVICE_NAME% }'#13#10#13#10'class function Co%SERVICE_NA'
+  +'ME%.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChann'
+  +'el): I%SERVICE_NAME%;'#13#10'begin'#13#10'  result := T%SERVICE_NAME%_Proxy'
+  +'.Create(aMessage, aTransportChannel);'#13#10'end;'#13#10#13#10'{ T%SERVICE_'
+  +'NAME%_Proxy }'#13#10#13#10'function T%SERVICE_NAME%_Proxy.__GetInterfaceNam'
+  +'e:string;'#13#10'begin'#13#10'  result := ''%SERVICE_NAME%'';'#13#10'end;'
+  +#13#10#13#10'// <%%% START FUNCTION_OPERATIONS %%%>'#13#10'function T%SERVIC'
+  +'E_NAME%_Proxy.%OPERATION_NAME%('#13#10'           // <%%% START PARAMS %%%>'
+  +#13#10'           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10
+  +'           // <%%% END PARAMS %%%>'#13#10'           ): %OPERATION_RESULT%;'
+  +#13#10'begin'#13#10'  // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10'  // <%%'
+  +'% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_NAME% := nil;'#13#10'  /'
+  +'/ <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%% END OUT_PARAMS_NO_ST'
+  +'RIP %%%>'#13#10'  // <%%% START IF_RESULT_COMPLEX %%%>'#13#10'  Result := n'
+  +'il;'#13#10'  // <%%% END IF_RESULT_COMPLEX %%%>'#13#10'  try'#13#10'    __M'
+  +'essage.InitializeRequestMessage(__TransportChannel, ''%LIBRARY_NAME%'', __I'
+  +'nterfaceName, ''%OPERATION_NAME%'');'#13#10'    // <%%% START IN_PARAMS_NO_'
+  +'STRIP %%%>'#13#10'    __Message.Write(''%PARAM_NAME%'', TypeInfo(%PARAM_TYP'
+  +'E%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10'    // <%%% END IN_PARAMS_N'
+  +'O_STRIP %%%>'#13#10'    __Message.Finalize;'#13#10#13#10'    __TransportCha'
+  +'nnel.Dispatch(__Message);'#13#10#13#10'    __Message.Read(''Result'', TypeI'
+  +'nfo(%OPERATION_RESULT%), result, [%OPERATION_RESULT_ATTRIBUTE%]);'#13#10'  '
+  +'  // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10'    __Message.Read(''%PARAM'
+  +'_NAME%'', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10
+  +'    // <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10'  finally'#13#10'    __Mess'
+  +'age.FreeStream;'#13#10'  end'#13#10'end;'#13#10#13#10'// <%%% END FUNCTION_'
+  +'OPERATIONS %%%>'#13#10'// <%%% START PROCEDURE_OPERATIONS %%%>'#13#10'proce'
+  +'dure T%SERVICE_NAME%_Proxy.%OPERATION_NAME%('#13#10'           // <%%% STAR'
+  +'T PARAMS %%%>'#13#10'           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM'
+  +'_TYPE%;'#13#10'           // <%%% END PARAMS %%%>'#13#10'           );'#13
+  +#10'begin'#13#10'  // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10'  // <%%% S'
+  +'TART IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_NAME% := nil;'#13#10'  // <'
+  +'%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%% END OUT_PARAMS_NO_STRIP'
+  +' %%%>'#13#10'  try'#13#10'    __Message.InitializeRequestMessage(__Transpor'
+  +'tChannel, ''%LIBRARY_NAME%'', __InterfaceName, ''%OPERATION_NAME%'');'#13#10
+  +'    // <%%% START IN_PARAMS_NO_STRIP %%%>'#13#10'    __Message.Write(''%PAR'
+  +'AM_NAME%'', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13
+  +#10'    // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10'    __Message.Finalize;'
+  +#13#10#13#10'    __TransportChannel.Dispatch(__Message);'#13#10#13#10'    //'
+  +' <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10'    __Message.Read(''%PARAM_NAM'
+  +'E%'', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10'  '
+  +'  // <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10'  finally'#13#10'    __Messag'
+  +'e.FreeStream;'#13#10'  end'#13#10'end;'#13#10#13#10'// <%%% END PROCEDURE_O'
+  +'PERATIONS %%%>'#13#10'// <%%% END SERVICES %%%>'#13#10'// <%%% START EVENT_'
+  +'SINKS %%%>'#13#10'type'#13#10'  { T%EVENT_SINK_NAME%_Writer }'#13#10'  T%EV'
+  +'ENT_SINK_NAME%_Writer = class(T%EVENT_SINK_WRITER_ANCESTOR_NAME%, I%EVENT_S'
+  +'INK_NAME%_Writer)'#13#10'  protected'#13#10'    // <%%% START OPERATIONS %%'
+  +'%>'#13#10'    procedure %OPERATION_NAME%(const __Sender : TGUID'#13#10'    '
+  +'            // <%%% START PARAMS %%%>'#13#10'                ; %PARAM_FRONT'
+  +'_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%'#13#10'                // <%%% END PA'
+  +'RAMS %%%>'#13#10'                );'#13#10'    // <%%% END OPERATIONS %%%>'
+  +#13#10'  end;'#13#10#13#10'// <%%% START OPERATIONS %%%>'#13#10'procedure T%'
+  +'EVENT_SINK_NAME%_Writer.%OPERATION_NAME%(const __Sender : TGUID'#13#10'  //'
+  ,' <%%% START PARAMS %%%>'#13#10'  ; %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PA'
+  +'RAM_TYPE%'#13#10'  // <%%% END PARAMS %%%>'#13#10'  );'#13#10'var __eventda'
+  +'ta : Binary;'#13#10'begin'#13#10'  __eventdata := Binary.Create;'#13#10'  t'
+  +'ry'#13#10'    __Message.InitializeEventMessage(NIL, ''%LIBRARY_NAME%'', EID'
+  +'_%EVENT_SINK_NAME%, ''%OPERATION_NAME%'');'#13#10'    // <%%% START PARAMS_'
+  +'NO_STRIP %%%>'#13#10'    __Message.Write(''%PARAM_NAME%'', TypeInfo(%PARAM_'
+  +'TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10'    // <%%% END PARAMS_N'
+  +'O_STRIP %%%>'#13#10'    __Message.Finalize;'#13#10#13#10'    __Message.Writ'
+  +'eToStream(__eventdata);'#13#10#13#10'    Repository.StoreEventData(__Sender'
+  +', __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);'
+  +#13#10'  finally'#13#10'    __eventdata.Free;'#13#10'  end;'#13#10'end;'#13
+  +#10#13#10'// <%%% END OPERATIONS %%%>'#13#10'type'#13#10'  { T%EVENT_SINK_NA'
+  +'ME%_Invoker }'#13#10'  T%EVENT_SINK_NAME%_Invoker = class(T%EVENT_SINK_INVO'
+  +'KER_ANCESTOR_NAME%)'#13#10'  published'#13#10'    // <%%% START OPERATIONS '
+  +'%%%>'#13#10'    procedure Invoke_%OPERATION_NAME%(__EventReceiver : TROEven'
+  +'tReceiver; const __Message : IROMessage; const __Target : IUnknown);'#13#10
+  +'    // <%%% END OPERATIONS %%%>'#13#10'  end;'#13#10#13#10'// <%%% START OP'
+  +'ERATIONS %%%>'#13#10'procedure T%EVENT_SINK_NAME%_Invoker.Invoke_%OPERATION'
+  +'_NAME%(__EventReceiver : TROEventReceiver; const __Message : IROMessage; co'
+  +'nst __Target : IUnknown);'#13#10'var'#13#10'  // <%%% START PARAMS_NO_STRIP'
+  +' %%%>'#13#10'  %PARAM_NAME%: %PARAM_TYPE%;'#13#10'  // <%%% END PARAMS_NO_S'
+  +'TRIP %%%>'#13#10'  // <%%% START IF_HAS_COMPLEX_TYPE %%%>'#13#10'  __lObjec'
+  +'tDisposer: TROObjectDisposer;'#13#10'  // <%%% END IF_HAS_COMPLEX_TYPE %%%>'
+  +#13#10'  __%EVENT_SINK_NAME%Instance: I%EVENT_SINK_NAME%;'#13#10'begin'#13#10
+  +'  // <%%% START PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_C'
+  +'OMPLEX %%%>'#13#10'  %PARAM_NAME% := nil;'#13#10'  // <%%% END IF_PARAM_TYP'
+  +'E_COMPLEX %%%>'#13#10'  // <%%% END PARAMS_NO_STRIP %%%>'#13#10'  try'#13#10
+  +'    // <%%% START PARAMS_NO_STRIP %%%>'#13#10'    __Message.Read(''%PARAM_N'
+  +'AME%'', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10
+  +'    // <%%% END PARAMS_NO_STRIP %%%>'#13#10#13#10'    __%EVENT_SINK_NAME%In'
+  +'stance := (__Target as I%EVENT_SINK_NAME%);'#13#10'    __%EVENT_SINK_NAME%I'
+  +'nstance.%OPERATION_NAME%('#13#10'                                  // <%%% '
+  +'START PARAMS %%%>'#13#10'                                  %PARAM_NAME%,'#13
+  +#10'                                  // <%%% END PARAMS %%%>'#13#10'       '
+  +'                           );'#13#10#13#10'  finally'#13#10'    // <%%% STA'
+  +'RT IF_HAS_COMPLEX_TYPE %%%>'#13#10'    __lObjectDisposer := TROObjectDispos'
+  +'er.Create(__EventReceiver);'#13#10'    try'#13#10'      // <%%% START PARAM'
+  +'S_NO_STRIP %%%>'#13#10'      // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10
+  +'      __lObjectDisposer.Add(%PARAM_NAME%);'#13#10'      // <%%% END IF_PARA'
+  +'M_TYPE_COMPLEX %%%>'#13#10'      // <%%% END PARAMS_NO_STRIP %%%>'#13#10'  '
+  +'  finally'#13#10'      __lObjectDisposer.Free();'#13#10'    end;'#13#10'   '
+  +' // <%%% END IF_HAS_COMPLEX_TYPE %%%>'#13#10'  end'#13#10'end;'#13#10#13#10
+  +'// <%%% END OPERATIONS %%%>'#13#10'// <%%% END EVENT_SINKS %%%>'#13#10'init'
+  +'ialization'#13#10'  // <%%% START STRUCTS %%%>'#13#10'  RegisterROClass(%ST'
+  +'RUCT_NAME%);'#13#10'  // <%%% END STRUCTS %%%>'#13#10'  // <%%% START ARRAY'
+  +'S %%%>'#13#10'  RegisterROClass(%ARRAY_NAME%);'#13#10'  // <%%% END ARRAYS '
+  +'%%%>'#13#10'  // <%%% START EXCEPTIONS %%%>'#13#10'  RegisterExceptionClass'
+  +'(%EXCEPTION_NAME%);'#13#10'  // <%%% END EXCEPTIONS %%%>'#13#10'  // <%%% S'
+  +'TART SERVICES %%%>'#13#10'  RegisterProxyClass(I%SERVICE_NAME%_IID, T%SERVI'
+  +'CE_NAME%_Proxy);'#13#10'  // <%%% END SERVICES %%%>     '#13#10'  // <%%% S'
+  +'TART EVENT_SINKS %%%>'#13#10'  RegisterEventWriterClass(I%EVENT_SINK_NAME%_'
+  +'Writer, T%EVENT_SINK_NAME%_Writer);'#13#10'  RegisterEventInvokerClass(EID_'
+  +'%EVENT_SINK_NAME%, T%EVENT_SINK_NAME%_Invoker);'#13#10'  // <%%% END EVENT_'
+  +'SINKS %%%>     '#13#10#13#10'finalization'#13#10'  // <%%% START STRUCTS %%'
+  +'%>'#13#10'  UnregisterROClass(%STRUCT_NAME%);'#13#10'  // <%%% END STRUCTS '
+  +'%%%>'#13#10'  // <%%% START ARRAYS %%%>'#13#10'  UnregisterROClass(%ARRAY_N'
+  +'AME%);'#13#10'  // <%%% END ARRAYS %%%>'#13#10'  // <%%% START EXCEPTIONS %'
+  +'%%>'#13#10'  UnregisterExceptionClass(%EXCEPTION_NAME%);'#13#10'  // <%%% E'
+  +'ND EXCEPTIONS %%%>'#13#10'  // <%%% START SERVICES %%%>'#13#10'  Unregister'
+  +'ProxyClass(I%SERVICE_NAME%_IID);'#13#10'  // <%%% END SERVICES %%%>'#13#10
+  +'  // <%%% START EVENT_SINKS %%%>'#13#10'  UnregisterEventWriterClass(I%EVEN'
+  +'T_SINK_NAME%_Writer);'#13#10'  UnregisterEventInvokerClass(EID_%EVENT_SINK_'
+  +'NAME%);'#13#10'  // <%%% END EVENT_SINKS %%%>     '#13#10#13#10'end.'#13#10
+]);
+LazarusResources.Add('TEMPLATE_INVK_PAS','RCDATA',[
+  'unit %UNIT_NAME%;'#13#10#13#10'{--------------------------------------------'
+  +'--------------------------------}'#13#10'{ This unit was automatically gene'
+  +'rated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associa'
+  +'ted with this project .                               }'#13#10'{           '
+  +'                                                                 }'#13#10'{'
+  +' Do not modify this unit manually, or your changes will be lost when this  '
+  +' }'#13#10'{ unit is regenerated the next time you compile the project.     '
+  +'            }'#13#10'{-----------------------------------------------------'
+  +'-----------------------}'#13#10#13#10'{$I RemObjects.inc}'#13#10#13#10'inte'
+  +'rface'#13#10#13#10'uses'#13#10'  {vcl:} Classes,'#13#10'  {RemObjects:} uRO'
+  +'XMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,'#13#10'  // <%%'
+  +'% START REQUIRED_UNITS %%%>'#13#10'  {Required:} %REQUIRED_UNIT_NAME%,'#13
+  +#10'  // <%%% END REQUIRED_UNITS %%%>'#13#10'  {Generated:} %LIBRARY_NAME%_I'
+  +'ntf;'#13#10#13#10'type'#13#10'  TSeekOrigin = Classes.TSeekOrigin; // fake '
+  +'declaration'#13#10#13#10'  // <%%% START SERVICES %%%>'#13#10'  T%SERVICE_N'
+  +'AME%_Invoker = class(T%SERVICE_INVOKER_ANCESTOR_NAME%)'#13#10'  private'#13
+  +#10'  protected'#13#10'    constructor Create; override;'#13#10'  published'
+  +#13#10'    // <%%% START FUNCTION_OPERATIONS %%%>'#13#10'    procedure Invok'
+  +'e_%OPERATION_NAME%(const __Instance:IInterface; const __Message:IROMessage;'
+  +' const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions)'
+  +';'#13#10'    // <%%% END FUNCTION_OPERATIONS %%%>'#13#10'    // <%%% START '
+  +'PROCEDURE_OPERATIONS %%%>'#13#10'    procedure Invoke_%OPERATION_NAME%(cons'
+  +'t __Instance:IInterface; const __Message:IROMessage; const __Transport:IROT'
+  +'ransport; out __oResponseOptions:TROResponseOptions);'#13#10'    // <%%% EN'
+  +'D PROCEDURE_OPERATIONS %%%>'#13#10'  end;'#13#10#13#10'  // <%%% END SERVIC'
+  +'ES %%%>'#13#10'implementation'#13#10#13#10'uses'#13#10'  {RemObjects:} uROR'
+  +'es, uROClient;'#13#10#13#10'// <%%% START SERVICES %%%>'#13#10'{ T%SERVICE_'
+  +'NAME%_Invoker }'#13#10#13#10'constructor T%SERVICE_NAME%_Invoker.Create;'#13
+  +#10'begin'#13#10'  inherited Create;'#13#10'  FAbstract := %IS_ABSTRACT%;'#13
+  +#10'end;'#13#10#13#10'// <%%% START FUNCTION_OPERATIONS %%%>'#13#10'procedur'
+  +'e T%SERVICE_NAME%_Invoker.Invoke_%OPERATION_NAME%(const __Instance:IInterfa'
+  +'ce; const __Message:IROMessage; const __Transport:IROTransport; out __oResp'
+  +'onseOptions:TROResponseOptions);'#13#10'{ function %OPERATION_NAME%('#13#10
+  +'              // <%%% START PARAMS %%%>'#13#10'              %PARAM_FRONT_M'
+  +'ODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'              // <%%% END PARAM'
+  +'S %%%>'#13#10'              ): %OPERATION_RESULT%; }'#13#10'var'#13#10'  //'
+  +' <%%% START PARAMS_NO_STRIP %%%>'#13#10'  %PARAM_NAME%: %PARAM_TYPE%;'#13#10
+  +'  // <%%% END PARAMS_NO_STRIP %%%>'#13#10'  lResult: %OPERATION_RESULT%;'#13
+  +#10'  // <%%% START IF_HAS_COMPLEX_TYPE %%%>'#13#10'  __lObjectDisposer: TRO'
+  +'ObjectDisposer;'#13#10'  // <%%% END IF_HAS_COMPLEX_TYPE %%%>'#13#10'  __%S'
+  +'ERVICE_NAME%Instance: I%SERVICE_NAME%;'#13#10'begin'#13#10'  // <%%% START '
+  +'PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13
+  +#10'  %PARAM_NAME% := nil;'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'
+  +#13#10'  // <%%% END PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_RESULT_C'
+  +'OMPLEX %%%>'#13#10'  lResult := nil;'#13#10'  // <%%% END IF_RESULT_COMPLEX'
+  +' %%%>'#13#10'  try'#13#10'    // <%%% START IN_PARAMS_NO_STRIP %%%>'#13#10
+  +'    __Message.Read(''%PARAM_NAME%'', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, '
+  +'[%PARAM_ATTRIBUTE%]);'#13#10'    // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10
+  +#13#10'    __%SERVICE_NAME%Instance := __Instance as I%SERVICE_NAME%; '#13#10
+  +'    lResult := __%SERVICE_NAME%Instance.%OPERATION_NAME%('#13#10'          '
+  +'                                // <%%% START PARAMS %%%>'#13#10'          '
+  +'                                %PARAM_NAME%,'#13#10'                      '
+  +'                    // <%%% END PARAMS %%%>'#13#10'                        '
+  +'                  );'#13#10#13#10'    __Message.InitializeResponseMessage(_'
+  +'_Transport, ''%LIBRARY_NAME%'', ''%SERVICE_NAME%'', ''%OPERATION_NAME%Respo'
+  +'nse'');'#13#10'    __Message.Write(''Result'', TypeInfo(%OPERATION_RESULT%)'
+  +', lResult, [%OPERATION_RESULT_ATTRIBUTE%]);'#13#10'    // <%%% START OUT_PA'
+  +'RAMS_NO_STRIP %%%>'#13#10'    __Message.Write(''%PARAM_NAME%'', TypeInfo(%P'
+  +'ARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10'    // <%%% END OUT'
+  +'_PARAMS_NO_STRIP %%%>'#13#10'    __Message.Finalize;'#13#10'    __Message.U'
+  +'nsetAttributes(__Transport);'#13#10'    '#13#10'  finally'#13#10'    // <%%'
+  +'% START IF_HAS_COMPLEX_TYPE %%%>'#13#10'    __lObjectDisposer := TROObjectD'
+  +'isposer.Create(__Instance);'#13#10'    try'#13#10'      // <%%% START PARAM'
+  +'S_NO_STRIP %%%>'#13#10'      // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10
+  ,'      __lObjectDisposer.Add(%PARAM_NAME%);'#13#10'      // <%%% END IF_PARA'
+  +'M_TYPE_COMPLEX %%%>'#13#10'      // <%%% END PARAMS_NO_STRIP %%%>'#13#10'  '
+  +'    // <%%% START IF_RESULT_COMPLEX %%%>'#13#10'      __lObjectDisposer.Add'
+  +'(lResult);'#13#10'      // <%%% END IF_RESULT_COMPLEX %%%>'#13#10'    final'
+  +'ly'#13#10'      __lObjectDisposer.Free();'#13#10'    end;'#13#10'    // <%%'
+  +'% END IF_HAS_COMPLEX_TYPE %%%>'#13#10'  end;'#13#10'end;'#13#10#13#10'// <%'
+  +'%% END FUNCTION_OPERATIONS %%%>'#13#10'// <%%% START PROCEDURE_OPERATIONS %'
+  +'%%>'#13#10'procedure T%SERVICE_NAME%_Invoker.Invoke_%OPERATION_NAME%(const '
+  +'__Instance:IInterface; const __Message:IROMessage; const __Transport:IROTra'
+  +'nsport; out __oResponseOptions:TROResponseOptions);'#13#10'{ procedure %OPE'
+  +'RATION_NAME%('#13#10'              // <%%% START PARAMS %%%>'#13#10'       '
+  +'       %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'          '
+  +'    // <%%% END PARAMS %%%>'#13#10'              ); }'#13#10'var'#13#10'  /'
+  +'/ <%%% START PARAMS_NO_STRIP %%%>'#13#10'  %PARAM_NAME%: %PARAM_TYPE%;'#13
+  +#10'  // <%%% END PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_HAS_COMPLEX'
+  +'_TYPE %%%>'#13#10'  __lObjectDisposer: TROObjectDisposer;'#13#10'  // <%%% '
+  +'END IF_HAS_COMPLEX_TYPE %%%>'#13#10'  __%SERVICE_NAME%Instance: I%SERVICE_N'
+  +'AME%;'#13#10'begin'#13#10'  // <%%% START PARAMS_NO_STRIP %%%>'#13#10'  // '
+  +'<%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_NAME% := nil;'#13#10
+  +'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%% END PARAMS_NO_STR'
+  +'IP %%%>'#13#10'  try'#13#10'    // <%%% START IN_PARAMS_NO_STRIP %%%>'#13#10
+  +'    __Message.Read(''%PARAM_NAME%'', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, '
+  +'[%PARAM_ATTRIBUTE%]);'#13#10'    // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10
+  +#13#10'    __%SERVICE_NAME%Instance := __Instance as I%SERVICE_NAME%; '#13#10
+  +'    __%SERVICE_NAME%Instance.%OPERATION_NAME%('#13#10'                     '
+  +'          // <%%% START PARAMS %%%>'#13#10'                               %'
+  +'PARAM_NAME%,'#13#10'                               // <%%% END PARAMS %%%>'
+  +#13#10'                               );'#13#10#13#10'    __Message.Initiali'
+  +'zeResponseMessage(__Transport, ''%LIBRARY_NAME%'', ''%SERVICE_NAME%'', ''%O'
+  +'PERATION_NAME%Response'');'#13#10'    // <%%% START OUT_PARAMS_NO_STRIP %%%'
+  +'>'#13#10'    __Message.Write(''%PARAM_NAME%'', TypeInfo(%PARAM_TYPE%), %PAR'
+  +'AM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10'    // <%%% END OUT_PARAMS_NO_STRIP '
+  +'%%%>'#13#10'    __Message.Finalize;'#13#10'    __Message.UnsetAttributes(__'
+  +'Transport);'#13#10'    '#13#10'    // <%%% START IF_NO_OUT_PARAMS %%%>'#13
+  +#10'    __oResponseOptions := [roNoResponse];'#13#10#13#10'    // <%%% END I'
+  +'F_NO_OUT_PARAMS %%%>'#13#10'  finally'#13#10'    // <%%% START IF_HAS_COMPL'
+  +'EX_TYPE %%%>'#13#10'    __lObjectDisposer := TROObjectDisposer.Create(__Ins'
+  +'tance);'#13#10'    try'#13#10'      // <%%% START PARAMS_NO_STRIP %%%>'#13
+  +#10'      // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'      __lObjectDis'
+  +'poser.Add(%PARAM_NAME%);'#13#10'      // <%%% END IF_PARAM_TYPE_COMPLEX %%%'
+  +'>'#13#10'      // <%%% END PARAMS_NO_STRIP %%%>'#13#10'    finally'#13#10' '
+  +'     __lObjectDisposer.Free();'#13#10'    end;'#13#10'    // <%%% END IF_HA'
+  +'S_COMPLEX_TYPE %%%>'#13#10'  end;'#13#10'end;'#13#10#13#10'// <%%% END PROC'
+  +'EDURE_OPERATIONS %%%>'#13#10'// <%%% END SERVICES %%%>'#13#10'end.'#13#10
+]);
+LazarusResources.Add('TEMPLATE_IMPL_PAS','RCDATA',[
+  'unit %UNIT_NAME%;'#13#10#13#10'{--------------------------------------------'
+  +'--------------------------------}'#13#10'{ This unit was automatically gene'
+  +'rated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associa'
+  +'ted with this project .                               }'#13#10'{           '
+  +'                                                                 }'#13#10'{'
+  +' This is where you are supposed to code the implementation of your objects.'
+  +' }'#13#10'{----------------------------------------------------------------'
+  +'------------}'#13#10#13#10'{$I RemObjects.inc}'#13#10#13#10'interface'#13#10
+  +#13#10'uses'#13#10'  {vcl:} Classes, SysUtils,'#13#10'  {RemObjects:} uROXML'
+  +'Intf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,'#13#10
+  +'  // <%%% START REQUIRED_UNITS %%%>'#13#10'  {Required:} %REQUIRED_UNIT_NAM'
+  +'E%,'#13#10'  // <%%% END REQUIRED_UNITS %%%>'#13#10'  {Generated:} %LIBRARY'
+  +'_NAME%_Intf;'#13#10#13#10'// <%%% START SERVICES %%%>'#13#10'type'#13#10'  '
+  +'{ T%SERVICE_NAME% }'#13#10'  T%SERVICE_NAME% = class(%SERVICE_ANCESTOR_NAME'
+  +'%, I%SERVICE_NAME%)'#13#10'  private'#13#10'  protected'#13#10'    { I%SERV'
+  +'ICE_NAME% methods }'#13#10'    // <%%% START FUNCTION_OPERATIONS %%%>'#13#10
+  +'    function %OPERATION_NAME%('#13#10'               // <%%% START PARAMS %'
+  +'%%>'#13#10'               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%'
+  +';'#13#10'               // <%%% END PARAMS %%%>'#13#10'               ): %O'
+  +'PERATION_RESULT%;'#13#10'    // <%%% END FUNCTION_OPERATIONS %%%>'#13#10'  '
+  +'  // <%%% START PROCEDURE_OPERATIONS %%%>'#13#10'    procedure %OPERATION_N'
+  +'AME%('#13#10'               // <%%% START PARAMS %%%>'#13#10'              '
+  +' %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'               /'
+  +'/ <%%% END PARAMS %%%>'#13#10'               );'#13#10'    // <%%% END PROC'
+  +'EDURE_OPERATIONS %%%>'#13#10'  end;'#13#10'// <%%% END SERVICES %%%>'#13#10
+  +#13#10'implementation'#13#10#13#10'// <%%% START IF_DATA_MODULE %%%>'#13#10
+  +'{$R *.dfm}'#13#10#13#10'// <%%% END IF_DATA_MODULE %%%>'#13#10'uses'#13#10
+  +'  {Generated:} %LIBRARY_NAME%_Invk;'#13#10#13#10'// <%%% START SERVICES %%%'
+  +'>'#13#10'procedure Create_%SERVICE_NAME%(out anInstance : IUnknown);'#13#10
+  +'begin'#13#10'  anInstance := T%SERVICE_NAME%.Create('#13#10'    // <%%% STA'
+  +'RT IF_DATA_MODULE %%%>'#13#10'    nil'#13#10'    // <%%% END IF_DATA_MODULE'
+  +' %%%>'#13#10'    );'#13#10'end;'#13#10#13#10'{ %SERVICE_NAME% }'#13#10'// <'
+  +'%%% START FUNCTION_OPERATIONS %%%>'#13#10'function T%SERVICE_NAME%.%OPERATI'
+  +'ON_NAME%('#13#10'           // <%%% START PARAMS %%%>'#13#10'           %PA'
+  +'RAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'           // <%%% E'
+  +'ND PARAMS %%%>'#13#10'           ): %OPERATION_RESULT%;'#13#10'begin'#13#10
+  +'end;'#13#10#13#10'// <%%% END FUNCTION_OPERATIONS %%%>'#13#10'// <%%% START'
+  +' PROCEDURE_OPERATIONS %%%>'#13#10'procedure T%SERVICE_NAME%.%OPERATION_NAME'
+  +'%('#13#10'           // <%%% START PARAMS %%%>'#13#10'           %PARAM_FRO'
+  +'NT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'           // <%%% END PARA'
+  +'MS %%%>'#13#10'           );'#13#10'begin'#13#10'end;'#13#10#13#10'// <%%% '
+  +'END PROCEDURE_OPERATIONS %%%>'#13#10'initialization'#13#10'  TROClassFactor'
+  +'y.Create(''%SERVICE_NAME%'', Create_%SERVICE_NAME%, T%SERVICE_NAME%_Invoker'
+  +');'#13#10#13#10'finalization'#13#10#13#10'// <%%% END SERVICES %%%>'#13#10
+  +'end.'#13#10
+]);
+LazarusResources.Add('TEMPLATE_ASYNC_PAS','RCDATA',[
+  'unit %UNIT_NAME%;'#13#10#13#10'{--------------------------------------------'
+  +'--------------------------------}'#13#10'{ This unit was automatically gene'
+  +'rated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associa'
+  +'ted with this project .                               }'#13#10'{           '
+  +'                                                                 }'#13#10'{'
+  +' Do not modify this unit manually, or your changes will be lost when this  '
+  +' }'#13#10'{ unit is regenerated the next time you compile the project.     '
+  +'            }'#13#10'{-----------------------------------------------------'
+  +'-----------------------}'#13#10#13#10'{$I RemObjects.inc}'#13#10#13#10'inte'
+  +'rface'#13#10#13#10'uses'#13#10'  {vcl:} Classes, TypInfo,'#13#10'  {RemObje'
+  +'cts:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf, uROAsync'
+  +#13#10'  // <%%% START REQUIRED_UNITS %%%>'#13#10'  {Required:} %REQUIRED_UN'
+  +'IT_NAME%,'#13#10'  // <%%% END REQUIRED_UNITS %%%>'#13#10'  {Generated:} %L'
+  +'IBRARY_NAME%_Intf;'#13#10#13#10'type'#13#10'  { Forward declarations }'#13
+  +#10'  // <%%% START SERVICES %%%>'#13#10'  I%SERVICE_NAME%_Async = interface'
+  +';'#13#10'  Co%SERVICE_NAME%_Async = class;'#13#10'  T%SERVICE_NAME%_AsyncPr'
+  +'oxy = class;'#13#10'  // <%%% END SERVICES %%%>'#13#10#13#10'  // <%%% STAR'
+  +'T SERVICES %%%>'#13#10'  { I%SERVICE_NAME%_Async }'#13#10'  // <%%% START D'
+  +'OCUMENTATION %%%>'#13#10#13#10'  { Description:'#13#10'      %CONTENT% }'#13
+  +#10'  // <%%% END DOCUMENTATION %%%>'#13#10'  I%SERVICE_NAME%_Async = interf'
+  +'ace%SERVICE_ANCESTOR_NAME%'#13#10'    [''%ASYNC_SERVICE_UID%'']'#13#10'    '
+  +'// <%%% START FUNCTION_OPERATIONS %%%>'#13#10'    procedure Invoke_%OPERATI'
+  +'ON_NAME%('#13#10'               // <%%% START IN_PARAMS %%%>'#13#10'       '
+  +'        %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'         '
+  +'      // <%%% END IN_PARAMS %%%>'#13#10'               );'#13#10'    functi'
+  +'on Retrieve_%OPERATION_NAME%('#13#10'               // <%%% START OUT_PARAM'
+  +'S %%%>'#13#10'               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TY'
+  +'PE%;'#13#10'               // <%%% END OUT_PARAMS %%%>'#13#10'             '
+  +'  ): %OPERATION_RESULT%;'#13#10'    // <%%% END FUNCTION_OPERATIONS %%%>'#13
+  +#10'    // <%%% START PROCEDURE_OPERATIONS %%%>'#13#10'    procedure Invoke_'
+  +'%OPERATION_NAME%('#13#10'                // <%%% START IN_PARAMS %%%>'#13#10
+  +'                %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10' '
+  +'               // <%%% END IN_PARAMS %%%>'#13#10'                );'#13#10
+  +'    // <%%% START IF_OUT_PARAMS %%%>'#13#10'    procedure Retrieve_%OPERATI'
+  +'ON_NAME%('#13#10'               // <%%% START OUT_PARAMS %%%>'#13#10'      '
+  +'         %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'        '
+  +'       // <%%% END OUT_PARAMS %%%>'#13#10'               );'#13#10'    // <'
+  +'%%% END IF_OUT_PARAMS %%%>'#13#10'    // <%%% END PROCEDURE_OPERATIONS %%%>'
+  +#13#10'  end;'#13#10#13#10'  { Co%SERVICE_NAME%_Async }'#13#10'  Co%SERVICE_'
+  +'NAME%_Async = class'#13#10'    class function Create(const aMessage: IROMes'
+  +'sage; aTransportChannel: IROTransportChannel): I%SERVICE_NAME%_Async;'#13#10
+  +'  end;'#13#10#13#10'  { T%SERVICE_NAME%_Proxy }'#13#10'  T%SERVICE_NAME%_As'
+  +'yncProxy = class(%SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%_Async)'#13
+  +#10'  protected'#13#10'    function __GetInterfaceName:string; override;'#13
+  +#10#13#10'    // <%%% START FUNCTION_OPERATIONS %%%>'#13#10'    procedure In'
+  +'voke_%OPERATION_NAME%('#13#10'               // <%%% START IN_PARAMS %%%>'
+  +#13#10'               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13
+  +#10'               // <%%% END IN_PARAMS %%%>'#13#10'               );'#13#10
+  +'    function Retrieve_%OPERATION_NAME%('#13#10'               // <%%% START'
+  +' OUT_PARAMS %%%>'#13#10'               %PARAM_FRONT_MODIFIER% %PARAM_NAME%:'
+  +' %PARAM_TYPE%;'#13#10'               // <%%% END OUT_PARAMS %%%>'#13#10'   '
+  +'            ): %OPERATION_RESULT%;'#13#10'    // <%%% END FUNCTION_OPERATIO'
+  +'NS %%%>'#13#10'    // <%%% START PROCEDURE_OPERATIONS %%%>'#13#10'    proce'
+  +'dure Invoke_%OPERATION_NAME%('#13#10'                // <%%% START IN_PARAM'
+  +'S %%%>'#13#10'                %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_T'
+  +'YPE%;'#13#10'                // <%%% END IN_PARAMS %%%>'#13#10'            '
+  +'    );'#13#10'    // <%%% START IF_OUT_PARAMS %%%>'#13#10'    procedure Ret'
+  +'rieve_%OPERATION_NAME%('#13#10'               // <%%% START OUT_PARAMS %%%>'
+  +#13#10'               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13
+  +#10'               // <%%% END OUT_PARAMS %%%>'#13#10'               );'#13
+  +#10'    // <%%% END IF_OUT_PARAMS %%%>'#13#10'    // <%%% END PROCEDURE_OPER'
+  +'ATIONS %%%>'#13#10'  end;'#13#10#13#10'  // <%%% END SERVICES %%%>'#13#10'i'
+  +'mplementation'#13#10#13#10'uses'#13#10'  {vcl:} SysUtils,'#13#10'  {RemObje'
+  +'cts:} uROEventRepository, uRORes;'#13#10#13#10'// <%%% START SERVICES %%%>'
+  ,#13#10'{ Co%SERVICE_NAME%_Async }'#13#10#13#10'class function Co%SERVICE_NAM'
+  +'E%_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransport'
+  +'Channel): I%SERVICE_NAME%_Async;'#13#10'begin'#13#10'  result := T%SERVICE_'
+  +'NAME%_AsyncProxy.Create(aMessage, aTransportChannel);'#13#10'end;'#13#10#13
+  +#10'{ T%SERVICE_NAME%_AsyncProxy }'#13#10#13#10'function T%SERVICE_NAME%_Asy'
+  +'ncProxy.__GetInterfaceName:string;'#13#10'begin'#13#10'  result := ''%SERVI'
+  +'CE_NAME%'';'#13#10'end;'#13#10#13#10'// <%%% START FUNCTION_OPERATIONS %%%>'
+  +#13#10'procedure T%SERVICE_NAME%_AsyncProxy.Invoke_%OPERATION_NAME%('#13#10
+  +'           // <%%% START IN_PARAMS %%%>'#13#10'           %PARAM_FRONT_MODI'
+  +'FIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'           // <%%% END IN_PARAMS %'
+  +'%%>'#13#10'           );'#13#10'begin'#13#10'  __AssertProxyNotBusy(''%OPER'
+  +'ATION_NAME%'');'#13#10#13#10'  __Message.InitializeRequestMessage(__Transpo'
+  +'rtChannel, ''%LIBRARY_NAME%'', __InterfaceName, ''%OPERATION_NAME%'');'#13
+  +#10'  // <%%% START IN_PARAMS_NO_STRIP %%%>'#13#10'  __Message.Write(''%PARA'
+  +'M_NAME%'', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13
+  +#10'  // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10#13#10'  __DispatchAsyncRequ'
+  +'est(''%OPERATION_NAME%'',__Message);'#13#10'end;'#13#10#13#10'function T%SE'
+  +'RVICE_NAME%_AsyncProxy.Retrieve_%OPERATION_NAME%('#13#10'           // <%%%'
+  +' START OUT_PARAMS %%%>'#13#10'           %PARAM_FRONT_MODIFIER% %PARAM_NAME'
+  +'%: %PARAM_TYPE%;'#13#10'           // <%%% END OUT_PARAMS %%%>'#13#10'     '
+  +'      ): %OPERATION_RESULT%;'#13#10'var'#13#10'  __response:TStream;'#13#10
+  +'begin'#13#10'  // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10'  // <%%% STAR'
+  +'T IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_NAME% := nil;'#13#10'  // <%%%'
+  +' END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%% END OUT_PARAMS_NO_STRIP %%'
+  +'%>'#13#10'  // <%%% START IF_RESULT_COMPLEX %%%>'#13#10'  Result := nil;'#13
+  +#10'  // <%%% END IF_RESULT_COMPLEX %%%>'#13#10#13#10'  __response := __Retr'
+  +'ieveAsyncResponse(''%OPERATION_NAME%'');'#13#10'  __Message.ReadFromStream('
+  +'__response);'#13#10#13#10'  __Message.Read(''Result'', TypeInfo(%OPERATION_'
+  +'RESULT%), Result, [%OPERATION_RESULT_ATTRIBUTE%]);'#13#10'  // <%%% START O'
+  +'UT_PARAMS_NO_STRIP %%%>'#13#10'  __Message.Read(''%PARAM_NAME%'', TypeInfo('
+  +'%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10'  // <%%% END OUT'
+  +'_PARAMS_NO_STRIP %%%>'#13#10#13#10'  __response.Free();'#13#10'end;'#13#10
+  +#13#10'// <%%% END FUNCTION_OPERATIONS %%%>'#13#10'// <%%% START PROCEDURE_O'
+  +'PERATIONS %%%>'#13#10'procedure T%SERVICE_NAME%_AsyncProxy.Invoke_%OPERATIO'
+  +'N_NAME%('#13#10'           // <%%% START IN_PARAMS %%%>'#13#10'           %'
+  +'PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;'#13#10'           // <%%%'
+  +' END IN_PARAMS %%%>'#13#10'           );'#13#10'var'#13#10'  __request:TStr'
+  +'eam;'#13#10'begin'#13#10'  __AssertProxyNotBusy(''%OPERATION_NAME%'');'#13
+  +#10'  __request := TMemoryStream.Create;'#13#10#13#10'  __Message.Initialize'
+  +'RequestMessage(__TransportChannel, ''%LIBRARY_NAME%'', __InterfaceName, ''%'
+  +'OPERATION_NAME%'');'#13#10'  // <%%% START IN_PARAMS_NO_STRIP %%%>'#13#10' '
+  +' __Message.Write(''%PARAM_NAME%'', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%'
+  +'PARAM_ATTRIBUTE%]);'#13#10'  // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10'  _'
+  +'_Message.Finalize;'#13#10#13#10'  __Message.WriteToStream(__request);'#13#10
+  +'  __DispatchAsyncRequest(''%OPERATION_NAME%'', __request, False);'#13#10'en'
+  +'d;'#13#10#13#10'// <%%% START IF_OUT_PARAMS %%%>'#13#10'procedure T%SERVICE'
+  +'_NAME%_AsyncProxy.Retrieve_%OPERATION_NAME%('#13#10'           // <%%% STAR'
+  +'T OUT_PARAMS %%%>'#13#10'           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %P'
+  +'ARAM_TYPE%;'#13#10'           // <%%% END OUT_PARAMS %%%>'#13#10'          '
+  +' );'#13#10'var'#13#10'  __response:TStream;'#13#10'begin'#13#10'  // <%%% S'
+  +'TART OUT_PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX '
+  +'%%%>'#13#10'  %PARAM_NAME% := nil;'#13#10'  // <%%% END IF_PARAM_TYPE_COMPL'
+  +'EX %%%>'#13#10'  // <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10#13#10'  __resp'
+  +'onse := __RetrieveAsyncResponse(''%OPERATION_NAME%'');'#13#10'  __Message.R'
+  +'eadFromStream(__response);'#13#10#13#10'  // <%%% START OUT_PARAMS_NO_STRIP'
+  +' %%%>'#13#10'  __Message.Read(''%PARAM_NAME%'', TypeInfo(%PARAM_TYPE%), %PA'
+  +'RAM_NAME%, [%PARAM_ATTRIBUTE%]);'#13#10'  // <%%% END OUT_PARAMS_NO_STRIP %'
+  +'%%>'#13#10#13#10'  __response.Free();'#13#10'end;'#13#10#13#10'// <%%% END '
+  +'IF_OUT_PARAMS %%%>'#13#10'// <%%% END PROCEDURE_OPERATIONS %%%>'#13#10'// <'
+  +'%%% END SERVICES %%%>'#13#10'initialization'#13#10#13#10'finalization'#13#10
+  +#13#10'end.'#13#10
+]);
+LazarusResources.Add('TEMPLATE_WRAPPER_INTF_PAS','RCDATA',[
+  'unit %UNIT_NAME%;'#13#10#13#10'{--------------------------------------------'
+  +'--------------------------------}'#13#10'{ This unit was automatically gene'
+  +'rated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associa'
+  +'ted with this project .                               }'#13#10'{           '
+  +'                                                                 }'#13#10'{'
+  +' Do not modify this unit manually, or your changes will be lost when this  '
+  +' }'#13#10'{ unit is regenerated the next time you compile the project.     '
+  +'            }'#13#10'{-----------------------------------------------------'
+  +'-----------------------}'#13#10#13#10'interface'#13#10#13#10'uses'#13#10'  '
+  +'// <%%% START USES %%%>'#13#10'  %USED_UNIT_NAME%,'#13#10'  // <%%% END USE'
+  +'S %%%>'#13#10'  ;'#13#10#13#10'type'#13#10'  // <%%% START TYPES %%%>'#13#10
+  +'  %TYPE_NAME% = %TYPE_UNIT_NAME%.%TYPE_NAME%;'#13#10'  // <%%% END TYPES %%'
+  +'%>'#13#10'  '#13#10'implementation'#13#10#13#10'end.'#13#10
+]);
+LazarusResources.Add('TEMPLATE_WRAPPER_INVK_PAS','RCDATA',[
+  'unit %UNIT_NAME%;'#13#10#13#10'{--------------------------------------------'
+  +'--------------------------------}'#13#10'{ This unit was automatically gene'
+  +'rated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associa'
+  +'ted with this project .                               }'#13#10'{           '
+  +'                                                                 }'#13#10'{'
+  +' Do not modify this unit manually, or your changes will be lost when this  '
+  +' }'#13#10'{ unit is regenerated the next time you compile the project.     '
+  +'            }'#13#10'{-----------------------------------------------------'
+  +'-----------------------}'#13#10#13#10'interface'#13#10#13#10'uses'#13#10'  '
+  +'// <%%% START USES %%%>'#13#10'  %USED_UNIT_NAME%,'#13#10'  // <%%% END USE'
+  +'S %%%>'#13#10'  ;'#13#10#13#10'type'#13#10'  // <%%% START TYPES %%%>'#13#10
+  +'  %TYPE_NAME%_Invoker = %TYPE_UNIT_NAME%.%TYPE_NAME%_Invoker;'#13#10'  // <'
+  +'%%% END TYPES %%%>'#13#10'  '#13#10'implementation'#13#10#13#10'end.'#13#10
+]);
+LazarusResources.Add('TEMPLATE_WRAPPER_ASYNC_PAS','RCDATA',[
+  'unit %UNIT_NAME%;'#13#10#13#10'{--------------------------------------------'
+  +'--------------------------------}'#13#10'{ This unit was automatically gene'
+  +'rated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associa'
+  +'ted with this project .                               }'#13#10'{           '
+  +'                                                                 }'#13#10'{'
+  +' Do not modify this unit manually, or your changes will be lost when this  '
+  +' }'#13#10'{ unit is regenerated the next time you compile the project.     '
+  +'            }'#13#10'{-----------------------------------------------------'
+  +'-----------------------}'#13#10#13#10'interface'#13#10#13#10'uses'#13#10'  '
+  +'// <%%% START USES %%%>'#13#10'  %USED_UNIT_NAME%,'#13#10'  // <%%% END USE'
+  +'S %%%>'#13#10'  ;'#13#10#13#10'type'#13#10'  // <%%% START TYPES %%%>'#13#10
+  +'  %TYPE_NAME% = %TYPE_UNIT_NAME%.%TYPE_NAME%;'#13#10'  // <%%% END TYPES %%'
+  +'%>'#13#10'  '#13#10'implementation'#13#10#13#10'end.'#13#10
+]);
+LazarusResources.Add('TEMPLATE_IMPL_DFM','RCDATA',[
+  '// <%%% START SERVICES %%%>'#13#10'object %SERVICE_NAME%: T%SERVICE_NAME%'#13
+  +#10'  OldCreateOrder = False'#13#10'  Height = 150'#13#10'  Width = 150'#13
+  +#10'end'#13#10'// <%%% END SERVICES %%%>'#13#10
+]);
+LazarusResources.Add('TEMPLATE_INTF_CPP','RCDATA',[
+  '// %UNIT_NAME%'#13#10'//'#13#10'/*------------------------------------------'
+  +'---------------------------------}'#13#10'{ This unit was automatically gen'
+  +'erated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associ'
+  +'ated with this project.                                }'#13#10'{          '
+  +'                                                                  }'#13#10
+  +'{ Do not modify this unit manually, or your changes will be lost when this '
+  +'  }'#13#10'{ unit is regenerated the next time you compile the project.    '
+  +'             }'#13#10'{----------------------------------------------------'
+  +'-----------------------*/'#13#10#13#10'void __initialization_%UNIT_NAME%();'
+  +#13#10'void __finalization_%UNIT_NAME%();'#13#10#13#10'#pragma startup __ini'
+  +'tialization_%UNIT_NAME%'#13#10'#pragma exit    __finalization_%UNIT_NAME%'
+  +#13#10#13#10'#include "%LIBRARY_NAME%_Intf.h"'#13#10'#include <uROEventRepos'
+  +'itory.hpp>'#13#10'#include <uRORes.hpp>'#13#10#13#10'// Implementation of %'
+  +'UNIT_NAME%'#13#10#13#10'// <%%% START ARRAYS %%%>'#13#10'// %ARRAY_NAME%'#13
+  +#10'void __fastcall %ARRAY_NAME%::Assign(Classes::TPersistent* iSource)'#13
+  +#10'{'#13#10'  %ARRAY_NAME%* lSource = dynamic_cast<%ARRAY_NAME%*>(iSource);'
+  +#13#10'  if (lSource)'#13#10'  {'#13#10'    Clear();'#13#10'    Resize(lSour'
+  +'ce->Count);'#13#10'    for (int i = 0 ; i < Count ; i++)'#13#10'    {'#13#10
+  +'      // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'      if (lSource->It'
+  +'ems[i] != NULL)'#13#10'      {'#13#10'        Items[i]->Assign(lSource->Ite'
+  +'ms[i]);'#13#10'      }'#13#10'      // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'
+  +#13#10'      // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'      Items[i] ='
+  +' lSource->Items[i];'#13#10'      // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13
+  +#10'    }'#13#10'  }'#13#10'  else'#13#10'  {'#13#10'    inherited::Assign(i'
+  +'Source);'#13#10'  }'#13#10'}'#13#10#13#10'void __fastcall %ARRAY_NAME%::Rea'
+  +'dComplex(TObject* ASerializer)'#13#10'{'#13#10'  // <%%% START IF_ARRAY_TYP'
+  +'E_SIMPLE %%%>'#13#10'  %ARRAY_TYPE% lval;'#13#10'  // <%%% END IF_ARRAY_TYP'
+  +'E_SIMPLE %%%>'#13#10'  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  %A'
+  +'RRAY_TYPE%* lval;'#13#10'  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  '
+  +'TROSerializer* Serializer = dynamic_cast<TROSerializer*>(ASerializer);'#13
+  +#10'  for (int i = 0; i < Count; i++)'#13#10'  {'#13#10'    // <%%% START IF'
+  +'_ARRAY_BINARY_TYPE %%%>'#13#10'    Serializer->ReadBinary(Serializer->GetAr'
+  +'rayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval,'
+  +' i);'#13#10'    // <%%% END IF_ARRAY_BINARY_TYPE %%%>'#13#10'    // <%%% ST'
+  +'ART IF_ARRAY_BOOLEAN_TYPE %%%>'#13#10'    Serializer->ReadEnumerated(Serial'
+  +'izer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef('
+  +'i)), __GetboolInfo, &lval, i);'#13#10'    // <%%% END IF_ARRAY_BOOLEAN_TYPE'
+  +' %%%>'#13#10'    // <%%% START IF_ARRAY_CURRENCY_TYPE %%%>'#13#10'    Seria'
+  +'lizer->ReadDouble(Serializer->GetArrayElementName(GetItemType(__classid(%AR'
+  +'RAY_NAME%)), GetItemRef(i)), ftCurr, &lval, i);'#13#10'    // <%%% END IF_A'
+  +'RRAY_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_DATETIME_TYPE %%%'
+  +'>'#13#10'    Serializer->ReadDateTime(Serializer->GetArrayElementName(GetIt'
+  +'emType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);'#13#10'    // <'
+  +'%%% END IF_ARRAY_DATETIME_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_DECIM'
+  +'AL_TYPE %%%>'#13#10'    Serializer->ReadDecimal(Serializer->GetArrayElement'
+  +'Name(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);'#13#10
+  +'    // <%%% END IF_ARRAY_DECIMAL_TYPE %%%>'#13#10'    // <%%% START IF_ARRA'
+  +'Y_DOUBLE_TYPE %%%>'#13#10'    Serializer->ReadDouble(Serializer->GetArrayEl'
+  +'ementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), ftDouble, &'
+  +'lval, i);'#13#10'    // <%%% END IF_ARRAY_DOUBLE_TYPE %%%>'#13#10'    // <%'
+  +'%% START IF_ARRAY_GUID_TYPE %%%>'#13#10'    Serializer->ReadGuid(Serializer'
+  +'->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)),'
+  +' &lval, i);'#13#10'    // <%%% END IF_ARRAY_GUID_TYPE %%%>'#13#10'    // <%'
+  +'%% START IF_ARRAY_INT64_TYPE %%%>'#13#10'    Serializer->ReadInt64(Serializ'
+  +'er->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)'
+  +'), &lval, i);'#13#10'    // <%%% END IF_ARRAY_INT64_TYPE %%%>'#13#10'    //'
+  +' <%%% START IF_ARRAY_INTEGER_TYPE %%%>'#13#10'    Serializer->ReadInteger(S'
+  +'erializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetIte'
+  +'mRef(i)), otSLong, &lval, i);'#13#10'    // <%%% END IF_ARRAY_INTEGER_TYPE '
+  +'%%%>'#13#10'    // <%%% START IF_ARRAY_ANSISTRING_TYPE %%%>'#13#10'    Seri'
+  +'alizer->ReadUTF8String(Serializer->GetArrayElementName(GetItemType(__classi'
+  +'d(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);'#13#10'    // <%%% END IF_ARRA'
+  +'Y_ANSISTRING_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_UTF8STRING_TYPE %%'
+  +'%>'#13#10'    Serializer->ReadUTF8String(Serializer->GetArrayElementName(Ge'
+  ,'tItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);'#13#10'    /'
+  +'/ <%%% END IF_ARRAY_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_'
+  +'VARIANT_TYPE %%%>'#13#10'    Serializer->ReadVariant(Serializer->GetArrayEl'
+  +'ementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);'
+  +#13#10'    // <%%% END IF_ARRAY_VARIANT_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_ARRAY_WIDESTRING_TYPE %%%>'#13#10'    Serializer->ReadWideString(Serializ'
+  +'er->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)'
+  +'), &lval, i);'#13#10'    // <%%% END IF_ARRAY_WIDESTRING_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_ARRAY_XML_TYPE %%%>'#13#10'    Serializer->ReadXml(Seri'
+  +'alizer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRe'
+  +'f(i)), &lval, i);'#13#10'    // <%%% END IF_ARRAY_XML_TYPE %%%>'#13#10'    '
+  +'// <%%% START IF_ARRAY_ARRAY_TYPE %%%>'#13#10'    Serializer->ReadArray(Ser'
+  +'ializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemR'
+  +'ef(i)), __classid(%ARRAY_TYPE%), &lval, i);'#13#10'    // <%%% END IF_ARRAY'
+  +'_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_ENUM_TYPE %%%>'#13#10'  '
+  +'  Serializer->ReadEnumerated(Serializer->GetArrayElementName(GetItemType(__'
+  +'classid(%ARRAY_NAME%)), GetItemRef(i)), __Get%ARRAY_TYPE%Info, &lval, i);'
+  +#13#10'    // <%%% END IF_ARRAY_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_A'
+  +'RRAY_STRUCT_TYPE %%%>'#13#10'    Serializer->ReadStruct(Serializer->GetArra'
+  +'yElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), __classi'
+  +'d(%ARRAY_TYPE%), &lval, i);'#13#10'    // <%%% END IF_ARRAY_STRUCT_TYPE %%%'
+  +'>'#13#10'    Items[i] = lval;'#13#10'  }'#13#10'}'#13#10#13#10'void __fastc'
+  +'all  %ARRAY_NAME%::WriteComplex(TObject* ASerializer)'#13#10'{'#13#10'  TRO'
+  +'Serializer* Serializer = dynamic_cast<TROSerializer*>(ASerializer);'#13#10
+  +'  for(int i = 0; i < Count; i++)'#13#10'    // <%%% START IF_ARRAY_BINARY_T'
+  +'YPE %%%>'#13#10'    Serializer->WriteBinary(Serializer->GetArrayElementName'
+  +'(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);'#13
+  +#10'    // <%%% END IF_ARRAY_BINARY_TYPE %%%>'#13#10'    // <%%% START IF_AR'
+  +'RAY_BOOLEAN_TYPE %%%>'#13#10'    Serializer->WriteEnumerated(Serializer->Ge'
+  +'tArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), __G'
+  +'etboolInfo, &(fItems[i]), i);'#13#10'    // <%%% END IF_ARRAY_BOOLEAN_TYPE '
+  +'%%%>'#13#10'    // <%%% START IF_ARRAY_CURRENCY_TYPE %%%>'#13#10'    Serial'
+  +'izer->WriteDouble(Serializer->GetArrayElementName(GetItemType(__classid(%AR'
+  +'RAY_NAME%)), GetItemRef(i)), ftCurr, &(fItems[i]), i);'#13#10'    // <%%% E'
+  +'ND IF_ARRAY_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_DATETIME_T'
+  +'YPE %%%>'#13#10'    Serializer->WriteDateTime(Serializer->GetArrayElementNa'
+  +'me(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);'
+  +#13#10'    // <%%% END IF_ARRAY_DATETIME_TYPE %%%>'#13#10'    // <%%% START '
+  +'IF_ARRAY_DECIMAL_TYPE %%%>'#13#10'    Serializer->WriteDecimal(Serializer->'
+  +'GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &'
+  +'(fItems[i]), i);'#13#10'    // <%%% END IF_ARRAY_DECIMAL_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_ARRAY_DOUBLE_TYPE %%%>'#13#10'    Serializer->WriteDoub'
+  +'le(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), Ge'
+  +'tItemRef(i)), ftDouble, &(fItems[i]), i);'#13#10'    // <%%% END IF_ARRAY_D'
+  +'OUBLE_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_GUID_TYPE %%%>'#13#10'   '
+  +' Serializer->WriteGuid(Serializer->GetArrayElementName(GetItemType(__classi'
+  +'d(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);'#13#10'    // <%%% END '
+  +'IF_ARRAY_GUID_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_INT64_TYPE %%%>'
+  +#13#10'    Serializer->WriteInt64(Serializer->GetArrayElementName(GetItemTyp'
+  +'e(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);'#13#10'    //'
+  +' <%%% END IF_ARRAY_INT64_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_INTEGE'
+  +'R_TYPE %%%>'#13#10'    Serializer->WriteInteger(Serializer->GetArrayElement'
+  +'Name(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), otSLong, &(fItem'
+  +'s[i]), i);'#13#10'    // <%%% END IF_ARRAY_INTEGER_TYPE %%%>'#13#10'    // '
+  +'<%%% START IF_ARRAY_ANSISTRING_TYPE %%%>'#13#10'    Serializer->WriteUTF8St'
+  +'ring(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), '
+  +'GetItemRef(i)), &(fItems[i]), i);'#13#10'    // <%%% END IF_ARRAY_ANSISTRIN'
+  +'G_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_UTF8STRING_TYPE %%%>'#13#10' '
+  +'   Serializer->WriteUTF8String(Serializer->GetArrayElementName(GetItemType('
+  +'__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);'#13#10'    // <'
+  +'%%% END IF_ARRAY_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_VAR'
+  +'IANT_TYPE %%%>'#13#10'    Serializer->WriteVariant(Serializer->GetArrayElem'
+  +'entName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]),'
+  +' i);'#13#10'    // <%%% END IF_ARRAY_VARIANT_TYPE %%%>'#13#10'    // <%%% S'
+  ,'TART IF_ARRAY_WIDESTRING_TYPE %%%>'#13#10'    Serializer->WriteWideString(S'
+  +'erializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetIte'
+  +'mRef(i)), &(fItems[i]), i);'#13#10'    // <%%% END IF_ARRAY_WIDESTRING_TYPE'
+  +' %%%>'#13#10'    // <%%% START IF_ARRAY_XML_TYPE %%%>'#13#10'    Serializer'
+  +'->WriteXml(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAM'
+  +'E%)), GetItemRef(i)), &(fItems[i]), i);'#13#10'    // <%%% END IF_ARRAY_XML'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_ARRAY_TYPE %%%>'#13#10'    Ser'
+  +'ializer->WriteArray(Serializer->GetArrayElementName(GetItemType(__classid(%'
+  +'ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);'#13#10'    // <%%% END IF_'
+  +'ARRAY_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_ARRAY_ENUM_TYPE %%%>'#13
+  +#10'    Serializer->WriteEnumerated(Serializer->GetArrayElementName(GetItemT'
+  +'ype(__classid(%ARRAY_NAME%)), GetItemRef(i)), __Get%ARRAY_TYPE%Info, &(fIte'
+  +'ms[i]), i);'#13#10'    // <%%% END IF_ARRAY_ENUM_TYPE %%%>'#13#10'    // <%'
+  +'%% START IF_ARRAY_STRUCT_TYPE %%%>'#13#10'    Serializer->WriteStruct(Seria'
+  +'lizer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef'
+  +'(i)), &(fItems[i]), __classid(%ARRAY_TYPE%), i);'#13#10'    // <%%% END IF_'
+  +'ARRAY_STRUCT_TYPE %%%>'#13#10'}'#13#10#13#10'void __fastcall %ARRAY_NAME%::'
+  +'Grow()'#13#10'{'#13#10'  int Delta;'#13#10'  int Capacity = fItems.Length;'
+  +#13#10'  if (Capacity > 64) '#13#10'  {'#13#10'    Delta = Capacity / 4;'#13
+  +#10'  }'#13#10'  else'#13#10'  {'#13#10'    if (Capacity > 8) '#13#10'      '
+  +'Delta = 16;'#13#10'    else'#13#10'      Delta = 4;'#13#10'  }'#13#10'  fIt'
+  +'ems.set_length(Capacity + Delta);'#13#10'}'#13#10#13#10'// <%%% START IF_AR'
+  +'RAY_TYPE_COMPLEX %%%>'#13#10'%ARRAY_TYPE%* __fastcall %ARRAY_NAME%::GetItem'
+  +'s(const int Index)'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'// '
+  +'<%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'%ARRAY_TYPE% __fastcall %ARRAY_'
+  +'NAME%::GetItems(const int Index)'#13#10'// <%%% END IF_ARRAY_TYPE_SIMPLE %%'
+  +'%>'#13#10'{'#13#10'  if ((Index < 0) || (Index >= Count))'#13#10'  {'#13#10
+  +'    RaiseError(LoadResourceString(&_err_ArrayIndexOutOfBounds), ARRAYOFCONS'
+  +'T((Index)));'#13#10'  }'#13#10'  return fItems[Index];'#13#10'}'#13#10#13#10
+  +'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'void __fastcall %ARRAY_NAME'
+  +'%::SetItems(const int Index, %ARRAY_TYPE%* Value)'#13#10'// <%%% END IF_ARR'
+  +'AY_TYPE_COMPLEX %%%>'#13#10'// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10
+  +'void __fastcall %ARRAY_NAME%::SetItems(const int Index, %ARRAY_TYPE% Value)'
+  +#13#10'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'{'#13#10'  if ((Index < '
+  +'0) || (Index >= Count))'#13#10'  {'#13#10'    RaiseError(LoadResourceString'
+  +'(&_err_ArrayIndexOutOfBounds), ARRAYOFCONST((Index)));'#13#10'  }'#13#10'  '
+  +'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  delete fItems[Index];'#13
+  +#10'  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  fItems[Index] = Value;'
+  +#13#10'}'#13#10#13#10'int __fastcall %ARRAY_NAME%::GetCount()'#13#10'{'#13#10
+  +'  return fCount;'#13#10'}'#13#10#13#10'void* __fastcall %ARRAY_NAME%::GetIt'
+  +'emRef(const int Index)'#13#10'{'#13#10'  if ((Index < 0) || (Index >= Count'
+  +'))'#13#10'  {'#13#10'    RaiseError(LoadResourceString(&_err_ArrayIndexOutO'
+  +'fBounds), ARRAYOFCONST((Index)));'#13#10'  }'#13#10'// <%%% START IF_ARRAY_'
+  +'TYPE_COMPLEX %%%>'#13#10'  return fItems[Index];'#13#10'// <%%% END IF_ARRA'
+  +'Y_TYPE_COMPLEX %%%>'#13#10'// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10' '
+  +' return &fItems[Index];'#13#10'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10
+  +'}'#13#10#13#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'void __fastc'
+  +'all %ARRAY_NAME%::SetItemRef(const int Index, void* Ref)'#13#10'{'#13#10'  '
+  +'if ((Index < 0) || (Index >= Count))'#13#10'  {'#13#10'    RaiseError(LoadR'
+  +'esourceString(&_err_ArrayIndexOutOfBounds), ARRAYOFCONST((Index)));'#13#10
+  +'  }'#13#10#13#10'  if (Ref != fItems[Index])'#13#10'  {'#13#10'    delete f'
+  +'Items[Index];'#13#10'    fItems[Index] = reinterpret_cast<%ARRAY_TYPE%*>(Re'
+  +'f);'#13#10'  }'#13#10'}'#13#10#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'
+  +#13#10'void __fastcall %ARRAY_NAME%::Clear()'#13#10'{'#13#10'  // <%%% START'
+  +' IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  for (int i = 0; i < Count; i++)'#13#10
+  +'    delete fItems[i];'#13#10#13#10'  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'
+  +#13#10'  fItems.set_length(0);'#13#10'  fCount = 0;'#13#10'}'#13#10#13#10'vo'
+  +'id __fastcall %ARRAY_NAME%::Delete(const int Index)'#13#10'{'#13#10'  if (I'
+  +'ndex >= Count)'#13#10'  {'#13#10'    RaiseError(LoadResourceString(&_err_In'
+  +'validIndex), ARRAYOFCONST((Index)));'#13#10'  }'#13#10#13#10'  // <%%% STAR'
+  +'T IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  delete fItems[Index];'#13#10#13#10'  '
+  +'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  if (Index < Count - 1)'#13
+  +#10'    for (int i = Index; i < Count - 1 ; i++)'#13#10'      fItems[i] = fI'
+  +'tems[i + 1];'#13#10#13#10'  fItems.set_length(Count - 1);'#13#10'  fCount--'
+  ,';'#13#10'}'#13#10#13#10'void __fastcall %ARRAY_NAME%::Resize(const int Elem'
+  +'entCount)'#13#10'{'#13#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10' '
+  +' int i;'#13#10'  for(i = fCount -1; i >= ElementCount; --i)'#13#10'    dele'
+  +'te fItems[i];'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  fItems'
+  +'.set_length(ElementCount);'#13#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'
+  +#13#10'  for(i = fCount; i <= ElementCount -1; ++i)'#13#10'    fItems[i] = n'
+  +'ew %ARRAY_TYPE%();'#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  f'
+  +'Count = ElementCount;'#13#10'}'#13#10#13#10'// <%%% START IF_ARRAY_TYPE_COM'
+  +'PLEX %%%>'#13#10'%ARRAY_TYPE%* __fastcall %ARRAY_NAME%::Add()'#13#10'{'#13
+  +#10'  %ARRAY_TYPE%* result = new %ARRAY_TYPE%();'#13#10'  Add(result);'#13#10
+  +'  return result;'#13#10'}'#13#10#13#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%'
+  +'%>'#13#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'int __fastcall %A'
+  +'RRAY_NAME%::Add(%ARRAY_TYPE%* Value)'#13#10'// <%%% END IF_ARRAY_TYPE_COMPL'
+  +'EX %%%>'#13#10'// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'int __fastcal'
+  +'l %ARRAY_NAME%::Add(%ARRAY_TYPE% Value)'#13#10'// <%%% END IF_ARRAY_TYPE_SI'
+  +'MPLE %%%>'#13#10'{'#13#10'  int result = Count;'#13#10'  if (fItems.Length '
+  +'== result)'#13#10'    Grow();'#13#10#13#10'  fItems[result] = Value;'#13#10
+  +'  fCount++;'#13#10'  return result;'#13#10'}'#13#10'// <%%% END ARRAYS %%%>'
+  +#13#10'// <%%% START EXCEPTIONS %%%>'#13#10'// %EXCEPTION_NAME%'#13#10#13#10
+  +'%EXCEPTION_NAME%::%EXCEPTION_NAME%(AnsiString anExceptionMessage'#13#10'   '
+  +'                // <%%% START ANCESTOR_FIELDS %%%>'#13#10'                 '
+  +'  // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'                   , %FIEL'
+  +'D_TYPE% a%FIELD_NAME% '#13#10'                   // <%%% END IF_FIELD_TYPE_'
+  +'SIMPLE %%%>'#13#10'                   // <%%% START IF_FIELD_TYPE_COMPLEX %'
+  +'%%>'#13#10'                   , %FIELD_TYPE%* a%FIELD_NAME% '#13#10'       '
+  +'            // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'                 '
+  +'  // <%%% END ANCESTOR_FIELDS %%%>'#13#10'                   // <%%% START '
+  +'FIELDS_NO_STRIP %%%>'#13#10'                   // <%%% START IF_FIELD_TYPE_'
+  +'SIMPLE %%%>'#13#10'                   , %FIELD_TYPE% a%FIELD_NAME% '#13#10
+  +'                   // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'           '
+  +'        // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'                   '
+  +', %FIELD_TYPE%* a%FIELD_NAME% '#13#10'                   // <%%% END IF_FIE'
+  +'LD_TYPE_COMPLEX %%%>'#13#10'                   // <%%% END FIELDS_NO_STRIP '
+  +'%%%>'#13#10'                   ): %EXCEPTION_ANCESTOR_NAME%(anExceptionMess'
+  +'age'#13#10'                     // <%%% START ANCESTOR_FIELDS %%%>'#13#10' '
+  +'                    , a%FIELD_NAME% '#13#10'                     // <%%% EN'
+  +'D ANCESTOR_FIELDS %%%>'#13#10'                     )'#13#10'{'#13#10'  // <'
+  +'%%% START FIELDS_NO_STRIP %%%>'#13#10'  f%FIELD_NAME% = a%FIELD_NAME%;'#13
+  +#10'  // <%%% END FIELDS_NO_STRIP %%%>'#13#10'}'#13#10#13#10'// <%%% START I'
+  +'F_HAS_FIELDS %%%>'#13#10'void __fastcall %EXCEPTION_NAME%::ReadException(TO'
+  +'bject* ASerializer)'#13#10'{'#13#10'  if (dynamic_cast<TROSerializer*>(ASer'
+  +'ializer)->RecordStrictOrder)'#13#10'  {'#13#10'    // <%%% START IF_STRUCT_'
+  +'HAS_ANCESTOR %%%>'#13#10'    inherited::ReadException(ASerializer);'#13#10
+  +'    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'    // <%%% START FIELDS'
+  +'_NO_STRIP %%%>'#13#10'    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'  '
+  +'  %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;'#13#10'    // <%%% END IF_FIE'
+  +'LD_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13
+  +#10'    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;'#13#10'    // <%%% END '
+  +'IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    // <%%% START IF_FIELD_BINARY_TYPE %%'
+  +'%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadBinary("%FIELD'
+  +'_NAME%", &l_%FIELD_NAME%);'#13#10'    if (%FIELD_NAME% != l_%FIELD_NAME%) d'
+  +'elete %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    dynamic_cast<TROSer'
+  +'ializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%F'
+  +'IELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    /'
+  +'/ <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    dynamic_cast<TROSeriali'
+  +'zer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_'
+  +'FIELD_DATETIME_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerialize'
+  +'r)->ReadDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END I'
+  +'F_FIELD_DATETIME_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DECIMAL_TYPE %'
+  +'%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadDecimal("%FIE'
+  +'LD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DECIMAL_TYPE %'
+  +'%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    dynamic_c'
+  ,'ast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftDouble, &l_%'
+  +'FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    /'
+  +'/ <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*'
+  +'>(ASerializer)->ReadGuid("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%'
+  +'%% END IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INT64_TYPE'
+  +' %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadInt64("%FIE'
+  +'LD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INT64_TYPE %%%'
+  +'>'#13#10'    // <%%% START IF_FIELD_INTEGER_TYPE %%%>'#13#10'    dynamic_ca'
+  +'st<TROSerializer*>(ASerializer)->ReadInteger("%FIELD_NAME%", otSLong, &l_%F'
+  +'IELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13#10'    /'
+  +'/ <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    dynamic_cast<TROSeria'
+  +'lizer*>(ASerializer)->ReadAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_UTF8STRING_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASeria'
+  +'lizer)->ReadUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%%'
+  +' END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_VARIAN'
+  +'T_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadVaria'
+  +'nt("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_VARIAN'
+  +'T_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>'#13#10' '
+  +'   dynamic_cast<TROSerializer*>(ASerializer)->ReadWideString("%FIELD_NAME%"'
+  +', &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10'    dynamic_cast<TROSeri'
+  +'alizer*>(ASerializer)->ReadXml("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'   '
+  +' // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ARRAY'
+  +'_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadArray('
+  +'"%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);'#13#10'    if (%'
+  +'FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;'#13#10'    // <%%% END '
+  +'IF_FIELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'
+  +#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD'
+  +'_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF'
+  +'_FIELD_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13
+  +#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadStruct("%FIELD_NAME%"'
+  +', __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);'#13#10'    if (%FIELD_NAME% !='
+  +' l_%FIELD_NAME%) delete %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_STRUC'
+  +'T_TYPE %%%>'#13#10'    %FIELD_NAME% = l_%FIELD_NAME%;'#13#10'    // <%%% EN'
+  +'D FIELDS_NO_STRIP %%%>'#13#10'  }'#13#10'  else'#13#10'  {'#13#10'    // <%'
+  +'%% START ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'    // <%%% START IF_FIELD_TYP'
+  +'E_SIMPLE %%%>'#13#10'    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;'#13#10
+  +'    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_FIELD'
+  +'_TYPE_COMPLEX %%%>'#13#10'    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;'
+  +#13#10'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_BINARY_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerialize'
+  +'r)->ReadBinary("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    if (%FIELD_NAME'
+  +'% != l_%FIELD_NAME%) delete %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_B'
+  +'INARY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10
+  +'    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%'
+  +'", __GetboolInfo, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    '
+  +'dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftCur'
+  +'r, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_DATETIME_TYPE %%%>'#13#10'    dynamic_cast<TR'
+  +'OSerializer*>(ASerializer)->ReadDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_DATETIME_TYPE %%%>'#13#10'    // <%%% START '
+  +'IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASeriali'
+  +'zer)->ReadDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END '
+  +'IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TYPE %%'
+  +'%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD'
+  +'_NAME%", ftDouble, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'    dyna'
+  +'mic_cast<TROSerializer*>(ASerializer)->ReadGuid("%FIELD_NAME%", &l_%FIELD_N'
+  +'AME%);'#13#10'    // <%%% END IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% ST'
+  +'ART IF_FIELD_INT64_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASeria'
+  +'lizer)->ReadInt64("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END '
+  +'IF_FIELD_INT64_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INTEGER_TYPE %%%'
+  ,'>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadInteger("%FIELD'
+  +'_NAME%", otSLong, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INTEGER'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'  '
+  +'  dynamic_cast<TROSerializer*>(ASerializer)->ReadAnsiString("%FIELD_NAME%",'
+  +' &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    dynamic_cast<'
+  +'TROSerializer*>(ASerializer)->ReadUTF8String("%FIELD_NAME%", &l_%FIELD_NAME'
+  +'%);'#13#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%%'
+  +' START IF_FIELD_VARIANT_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(A'
+  +'Serializer)->ReadVariant("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%'
+  +'%% END IF_FIELD_VARIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDESTR'
+  +'ING_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadWid'
+  +'eString("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_W'
+  +'IDESTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10
+  +'    dynamic_cast<TROSerializer*>(ASerializer)->ReadXml("%FIELD_NAME%", &l_%'
+  +'FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // <'
+  +'%%% START IF_FIELD_ARRAY_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>('
+  +'ASerializer)->ReadArray("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_'
+  +'NAME%);'#13#10'    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;'
+  +#13#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_'
+  +'FIELD_ENUM_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->'
+  +'ReadEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_FIEL'
+  +'D_STRUCT_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->Re'
+  +'adStruct("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);'#13#10
+  +'    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;'#13#10'    // '
+  +'<%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    %FIELD_NAME% = l_%FIELD_NAME%'
+  +';'#13#10'    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'  }'#13#10'}'
+  +#13#10#13#10'void __fastcall %EXCEPTION_NAME%::WriteException(TObject* ASeri'
+  +'alizer)'#13#10'{'#13#10'  if (dynamic_cast<TROSerializer*>(ASerializer)->Re'
+  +'cordStrictOrder)'#13#10'  {'#13#10'    // <%%% START IF_STRUCT_HAS_ANCESTOR'
+  +' %%%>'#13#10'    inherited::WriteException(ASerializer);'#13#10'    // <%%%'
+  +' END IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'    // <%%% START FIELDS_NO_STRIP %'
+  +'%%>'#13#10'    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    %FIELD_TY'
+  +'PE% l_%FIELD_NAME% = %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_TYPE_SIM'
+  +'PLE %%%>'#13#10'    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    %FI'
+  +'ELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_T'
+  +'YPE_COMPLEX %%%>'#13#10'    // <%%% START IF_FIELD_BINARY_TYPE %%%>'#13#10
+  +'    dynamic_cast<TROSerializer*>(ASerializer)->WriteBinary("%FIELD_NAME%", '
+  +'&l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13#10' '
+  +'   // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    dynamic_cast<TROSeri'
+  +'alizer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%F'
+  +'IELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    /'
+  +'/ <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    dynamic_cast<TROSeriali'
+  +'zer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    // <%%% START '
+  +'IF_FIELD_DATETIME_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerial'
+  +'izer)->WriteDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% E'
+  +'ND IF_FIELD_DATETIME_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DECIMAL_TY'
+  +'PE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteDecimal('
+  +'"%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DECIMAL_T'
+  +'YPE %%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    dyna'
+  +'mic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftDouble'
+  +', &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'    dynamic_cast<TROSerial'
+  +'izer*>(ASerializer)->WriteGuid("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'   '
+  +' // <%%% END IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INT6'
+  +'4_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteInt6'
+  +'4("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INT64_T'
+  +'YPE %%%>'#13#10'    // <%%% START IF_FIELD_INTEGER_TYPE %%%>'#13#10'    dyn'
+  +'amic_cast<TROSerializer*>(ASerializer)->WriteInteger("%FIELD_NAME%", otSLon'
+  +'g, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    dynamic_cast<'
+  +'TROSerializer*>(ASerializer)->WriteAnsiString("%FIELD_NAME%", &l_%FIELD_NAM'
+  ,'E%);'#13#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    // <%%'
+  +'% START IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer'
+  +'*>(ASerializer)->WriteUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10' '
+  +'   // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START IF_FI'
+  +'ELD_VARIANT_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)-'
+  +'>WriteVariant("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_F'
+  +'IELD_VARIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDESTRING_TYPE %%'
+  +'%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteWideString("%'
+  +'FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_WIDESTRING_'
+  +'TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10'    dynami'
+  +'c_cast<TROSerializer*>(ASerializer)->WriteXml("%FIELD_NAME%", &l_%FIELD_NAM'
+  +'E%);'#13#10'    // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // <%%% START'
+  +' IF_FIELD_ARRAY_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializ'
+  +'er)->WriteArray("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF'
+  +'_FIELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'#13
+  +#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_N'
+  +'AME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_F'
+  +'IELD_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13
+  +#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteStruct("%FIELD_NAME%'
+  +'", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10
+  +'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  }'#13#10'  else'#13#10'  {'#13
+  +#10'    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'    // <%%% START '
+  +'IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_N'
+  +'AME%;'#13#10'    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    // <%%% S'
+  +'TART IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    %FIELD_TYPE%* l_%FIELD_NAME% = %'
+  +'FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    /'
+  +'/ <%%% START IF_FIELD_BINARY_TYPE %%%>'#13#10'    dynamic_cast<TROSerialize'
+  +'r*>(ASerializer)->WriteBinary("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    '
+  +'// <%%% END IF_FIELD_BINARY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_BOO'
+  +'LEAN_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteE'
+  +'numerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);'#13#10'    // <%'
+  +'%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_CURRENC'
+  +'Y_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteDoub'
+  +'le("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIEL'
+  +'D_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DATETIME_TYPE %%%>'
+  +#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteDateTime("%FIELD_'
+  +'NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DATETIME_TYPE %%%'
+  +'>'#13#10'    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    dynamic_ca'
+  +'st<TROSerializer*>(ASerializer)->WriteDecimal("%FIELD_NAME%", &l_%FIELD_NAM'
+  +'E%);'#13#10'    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    // <%%% S'
+  +'TART IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASer'
+  +'ializer)->WriteDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);'#13#10'  '
+  +'  // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_G'
+  +'UID_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteGu'
+  +'id("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_GUID_T'
+  +'YPE %%%>'#13#10'    // <%%% START IF_FIELD_INT64_TYPE %%%>'#13#10'    dynam'
+  +'ic_cast<TROSerializer*>(ASerializer)->WriteInt64("%FIELD_NAME%", &l_%FIELD_'
+  +'NAME%);'#13#10'    // <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'    // <%%% '
+  +'START IF_FIELD_INTEGER_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(AS'
+  +'erializer)->WriteInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13#10'    // <%%% START IF_FIEL'
+  +'D_ANSISTRING_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)'
+  +'->WriteAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END '
+  +'IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_UTF8STRING_'
+  +'TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteUTF8St'
+  +'ring("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_UTF8'
+  +'STRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_VARIANT_TYPE %%%>'#13#10
+  +'    dynamic_cast<TROSerializer*>(ASerializer)->WriteVariant("%FIELD_NAME%",'
+  +' &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_VARIANT_TYPE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    dynamic_cast<TRO'
+  +'Serializer*>(ASerializer)->WriteWideString("%FIELD_NAME%", &l_%FIELD_NAME%)'
+  +';'#13#10'    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    // <%%% S'
+  +'TART IF_FIELD_XML_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerial'
+  +'izer)->WriteXml("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF'
+  ,'_FIELD_XML_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ARRAY_TYPE %%%>'#13
+  +#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteArray("%FIELD_NAME%"'
+  +', &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'#13#10'    dynamic_cast<TROSerial'
+  +'izer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info,'
+  +' &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'  '
+  +'  // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13#10'    dynamic_cast<TROSerial'
+  +'izer*>(ASerializer)->WriteStruct("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10' '
+  +'   // <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    // <%%% END ENTIRE_HIER'
+  +'ARCHY_FIELDS %%%>'#13#10'  }'#13#10'}'#13#10#13#10'// <%%% END IF_HAS_FIELD'
+  +'S %%%>'#13#10'// <%%% END EXCEPTIONS %%%>'#13#10'// <%%% START STRUCTS %%%>'
+  +#13#10'// %STRUCT_NAME%'#13#10#13#10'void __fastcall %STRUCT_NAME%::Assign(C'
+  +'lasses::TPersistent* iSource)'#13#10'{'#13#10'  inherited::Assign(iSource);'
+  +'  // inherited typedef'#13#10'  // <%%% START IF_HAS_FIELDS %%%>'#13#10#13
+  +#10'  %STRUCT_NAME%* lSource = dynamic_cast<%STRUCT_NAME%*>(iSource);'#13#10
+  +'  if (lSource)'#13#10'  {'#13#10'  // <%%% END IF_HAS_FIELDS %%%>'#13#10'  '
+  +'  // <%%% START FIELDS_NO_STRIP %%%>'#13#10'    // <%%% START IF_FIELD_TYPE'
+  +'_SIMPLE %%%>'#13#10'    %FIELD_NAME% = lSource->%FIELD_NAME%;'#13#10'    //'
+  +' <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_FIELD_TYPE_'
+  +'COMPLEX %%%>'#13#10'    // <%%% START IF_NOT_AUTO_CREATE_FIELDS %%%>'#13#10
+  +'    if (f%FIELD_NAME% != NULL)'#13#10'    {'#13#10'      if (lSource->%FIEL'
+  +'D_NAME% != NULL) '#13#10'      {'#13#10'        %FIELD_NAME%->Assign(lSourc'
+  +'e->%FIELD_NAME%);'#13#10'      }'#13#10'      else'#13#10'      {'#13#10'  '
+  +'      delete f%FIELD_NAME%;'#13#10'        f%FIELD_NAME% = NULL;'#13#10'   '
+  +'   }'#13#10'    }'#13#10'    // <%%% END IF_NOT_AUTO_CREATE_FIELDS %%%>'#13
+  +#10'    // <%%% START IF_AUTO_CREATE_FIELDS %%%>'#13#10'    %FIELD_NAME%->As'
+  +'sign(lSource->%FIELD_NAME%);'#13#10'    // <%%% END IF_AUTO_CREATE_FIELDS %'
+  +'%%>'#13#10'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    // <%%% EN'
+  +'D FIELDS_NO_STRIP %%%>'#13#10'  // <%%% START IF_HAS_FIELDS %%%>'#13#10'  }'
+  +#13#10'  // <%%% END IF_HAS_FIELDS %%%>'#13#10'}'#13#10#13#10'// <%%% START '
+  +'FIELDS_NO_STRIP %%%>'#13#10'// <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10
+  +'%FIELD_TYPE%* __fastcall %STRUCT_NAME%::Get%FIELD_NAME%()'#13#10'{'#13#10' '
+  +' // <%%% START IF_AUTO_CREATE_FIELDS %%%>'#13#10'  if (f%FIELD_NAME% == NUL'
+  +'L) '#13#10'    f%FIELD_NAME% = new %FIELD_TYPE%();'#13#10'  // <%%% END IF_'
+  +'AUTO_CREATE_FIELDS %%%>'#13#10'  return f%FIELD_NAME%;'#13#10'}'#13#10#13#10
+  +'// <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'// <%%% END FIELDS_NO_STRIP %'
+  +'%%>'#13#10'// <%%% START IF_HAS_FIELDS %%%>'#13#10'void __fastcall %STRUCT_'
+  +'NAME%::ReadComplex(TObject* ASerializer)'#13#10'{'#13#10'  if (dynamic_cast'
+  +'<TROSerializer*>(ASerializer)->RecordStrictOrder)'#13#10'  {'#13#10'    // '
+  +'<%%% START IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'    inherited::ReadException('
+  +'ASerializer);'#13#10'    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'   '
+  +' // <%%% START FIELDS_NO_STRIP %%%>'#13#10'    // <%%% START IF_FIELD_TYPE_'
+  +'SIMPLE %%%>'#13#10'    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;'#13#10' '
+  +'   // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_FIELD_'
+  +'TYPE_COMPLEX %%%>'#13#10'    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;'
+  +#13#10'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_BINARY_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerialize'
+  +'r)->ReadBinary("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    if (%FIELD_NAME'
+  +'% != l_%FIELD_NAME%) delete %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_B'
+  +'INARY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10
+  +'    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%'
+  +'", __GetboolInfo, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    '
+  +'dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftCur'
+  +'r, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_DATETIME_TYPE %%%>'#13#10'    dynamic_cast<TR'
+  +'OSerializer*>(ASerializer)->ReadDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_DATETIME_TYPE %%%>'#13#10'    // <%%% START '
+  +'IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASeriali'
+  +'zer)->ReadDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END '
+  +'IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TYPE %%'
+  +'%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD'
+  +'_NAME%", ftDouble, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'    dyna'
+  ,'mic_cast<TROSerializer*>(ASerializer)->ReadGuid("%FIELD_NAME%", &l_%FIELD_N'
+  +'AME%);'#13#10'    // <%%% END IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% ST'
+  +'ART IF_FIELD_INT64_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASeria'
+  +'lizer)->ReadInt64("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END '
+  +'IF_FIELD_INT64_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INTEGER_TYPE %%%'
+  +'>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadInteger("%FIELD'
+  +'_NAME%", otSLong, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INTEGER'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'  '
+  +'  dynamic_cast<TROSerializer*>(ASerializer)->ReadAnsiString("%FIELD_NAME%",'
+  +' &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    dynamic_cast<'
+  +'TROSerializer*>(ASerializer)->ReadUTF8String("%FIELD_NAME%", &l_%FIELD_NAME'
+  +'%);'#13#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%%'
+  +' START IF_FIELD_VARIANT_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(A'
+  +'Serializer)->ReadVariant("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%'
+  +'%% END IF_FIELD_VARIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDESTR'
+  +'ING_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadWid'
+  +'eString("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_W'
+  +'IDESTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10
+  +'    dynamic_cast<TROSerializer*>(ASerializer)->ReadXml("%FIELD_NAME%", &l_%'
+  +'FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // <'
+  +'%%% START IF_FIELD_ARRAY_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>('
+  +'ASerializer)->ReadArray("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_'
+  +'NAME%);'#13#10'    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;'
+  +#13#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_'
+  +'FIELD_ENUM_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->'
+  +'ReadEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_FIEL'
+  +'D_STRUCT_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->Re'
+  +'adStruct("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);'#13#10
+  +'    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;'#13#10'    // '
+  +'<%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    %FIELD_NAME% = l_%FIELD_NAME%'
+  +';'#13#10'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  }'#13#10'  else'#13
+  +#10'  {'#13#10'    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'    // '
+  +'<%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    %FIELD_TYPE% l_%FIELD_NAME%'
+  +' = %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'  '
+  +'  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    %FIELD_TYPE%* l_%FIEL'
+  +'D_NAME% = %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'
+  +#13#10'    // <%%% START IF_FIELD_BINARY_TYPE %%%>'#13#10'    dynamic_cast<T'
+  +'ROSerializer*>(ASerializer)->ReadBinary("%FIELD_NAME%", &l_%FIELD_NAME%);'
+  +#13#10'    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;'#13#10' '
+  +'   // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_'
+  +'BOOLEAN_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->Rea'
+  +'dEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);'#13#10'    // '
+  +'<%%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_CURRE'
+  +'NCY_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadDou'
+  +'ble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIE'
+  +'LD_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DATETIME_TYPE %%%>'
+  +#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadDateTime("%FIELD_N'
+  +'AME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DATETIME_TYPE %%%>'
+  +#13#10'    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    dynamic_cast<'
+  +'TROSerializer*>(ASerializer)->ReadDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_DOUBLE_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerialize'
+  +'r)->ReadDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);'#13#10'    // <%'
+  +'%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_GUID_TYP'
+  +'E %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadGuid("%FIE'
+  +'LD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_GUID_TYPE %%%>'
+  +#13#10'    // <%%% START IF_FIELD_INT64_TYPE %%%>'#13#10'    dynamic_cast<TR'
+  +'OSerializer*>(ASerializer)->ReadInt64("%FIELD_NAME%", &l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'    // <%%% START IF_FIE'
+  +'LD_INTEGER_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->'
+  +'ReadInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);'#13#10'    // <%%% E'
+  +'ND IF_FIELD_INTEGER_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ANSISTRING_'
+  ,'TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadAnsiStr'
+  +'ing("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ANSIS'
+  +'TRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>'#13
+  +#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadUTF8String("%FIELD_NA'
+  +'ME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%'
+  +'>'#13#10'    // <%%% START IF_FIELD_VARIANT_TYPE %%%>'#13#10'    dynamic_ca'
+  +'st<TROSerializer*>(ASerializer)->ReadVariant("%FIELD_NAME%", &l_%FIELD_NAME'
+  +'%);'#13#10'    // <%%% END IF_FIELD_VARIANT_TYPE %%%>'#13#10'    // <%%% ST'
+  +'ART IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(A'
+  +'Serializer)->ReadWideString("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    //'
+  +' <%%% END IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_X'
+  +'ML_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->ReadXml('
+  +'"%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_XML_TYPE '
+  +'%%%>'#13#10'    // <%%% START IF_FIELD_ARRAY_TYPE %%%>'#13#10'    dynamic_c'
+  +'ast<TROSerializer*>(ASerializer)->ReadArray("%FIELD_NAME%", __classid(%FIEL'
+  +'D_TYPE%), &l_%FIELD_NAME%);'#13#10'    if (%FIELD_NAME% != l_%FIELD_NAME%) '
+  +'delete %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'#13#10'    dynamic_cast<TROSerial'
+  +'izer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, '
+  +'&l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'   '
+  +' // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13#10'    dynamic_cast<TROSeriali'
+  +'zer*>(ASerializer)->ReadStruct("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_'
+  +'%FIELD_NAME%);'#13#10'    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD'
+  +'_NAME%;'#13#10'    // <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    %FIELD_'
+  +'NAME% = l_%FIELD_NAME%;'#13#10'    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'
+  +#13#10'  }'#13#10'}'#13#10#13#10'void __fastcall %STRUCT_NAME%::WriteComplex'
+  +'(TObject* ASerializer)'#13#10'{'#13#10'  if (dynamic_cast<TROSerializer*>(A'
+  +'Serializer)->RecordStrictOrder)'#13#10'  {'#13#10'    // <%%% START IF_STRU'
+  +'CT_HAS_ANCESTOR %%%>'#13#10'    inherited::WriteException(ASerializer);'#13
+  +#10'    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>'#13#10'    // <%%% START FIE'
+  +'LDS_NO_STRIP %%%>'#13#10'    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10
+  +'    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;'#13#10'    // <%%% END IF_F'
+  +'IELD_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'
+  +#13#10'    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;'#13#10'    // <%%% E'
+  +'ND IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    // <%%% START IF_FIELD_BINARY_TYPE'
+  +' %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteBinary("%F'
+  +'IELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BINARY_TYPE '
+  +'%%%>'#13#10'    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    dynamic'
+  +'_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __Getbo'
+  +'olInfo, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>'
+  +#13#10'    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    dynamic_cast'
+  +'<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftCurr, &l_%FIEL'
+  +'D_NAME%);'#13#10'    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    // '
+  +'<%%% START IF_FIELD_DATETIME_TYPE %%%>'#13#10'    dynamic_cast<TROSerialize'
+  +'r*>(ASerializer)->WriteDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'  '
+  +'  // <%%% END IF_FIELD_DATETIME_TYPE %%%>'#13#10'    // <%%% START IF_FIELD'
+  +'_DECIMAL_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->Wr'
+  +'iteDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIEL'
+  +'D_DECIMAL_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13
+  +#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%'
+  +'", ftDouble, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DOUBLE_TYPE '
+  +'%%%>'#13#10'    // <%%% START IF_FIELD_GUID_TYPE %%%>'#13#10'    dynamic_ca'
+  +'st<TROSerializer*>(ASerializer)->WriteGuid("%FIELD_NAME%", &l_%FIELD_NAME%)'
+  +';'#13#10'    // <%%% END IF_FIELD_GUID_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_INT64_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer'
+  +')->WriteInt64("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_F'
+  +'IELD_INT64_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INTEGER_TYPE %%%>'#13
+  +#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteInteger("%FIELD_NAME'
+  +'%", otSLong, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INTEGER_TYPE'
+  +' %%%>'#13#10'    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    dyn'
+  +'amic_cast<TROSerializer*>(ASerializer)->WriteAnsiString("%FIELD_NAME%", &l_'
+  +'%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    dynamic_cast<TRO'
+  +'Serializer*>(ASerializer)->WriteUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%)'
+  ,';'#13#10'    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>'#13#10'    // <%%% S'
+  +'TART IF_FIELD_VARIANT_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASe'
+  +'rializer)->WriteVariant("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%'
+  +'% END IF_FIELD_VARIANT_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_WIDESTRI'
+  +'NG_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteWid'
+  +'eString("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_W'
+  +'IDESTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_XML_TYPE %%%>'#13#10
+  +'    dynamic_cast<TROSerializer*>(ASerializer)->WriteXml("%FIELD_NAME%", &l_'
+  +'%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_XML_TYPE %%%>'#13#10'    // '
+  +'<%%% START IF_FIELD_ARRAY_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>'
+  +'(ASerializer)->WriteArray("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <'
+  +'%%% END IF_FIELD_ARRAY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ENUM_TYP'
+  +'E %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerate'
+  +'d("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);'#13#10'    // <%'
+  +'%% END IF_FIELD_ENUM_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_STRUCT_TYP'
+  +'E %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteStruct("%'
+  +'FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_STRUCT_TYPE'
+  +' %%%>'#13#10'    // <%%% END FIELDS_NO_STRIP %%%>'#13#10'  }'#13#10'  else'
+  +#13#10'  {'#13#10'    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#13#10'    '
+  +'// <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'    %FIELD_TYPE% l_%FIELD_NA'
+  +'ME% = %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10
+  +'    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    %FIELD_TYPE%* l_%FI'
+  +'ELD_NAME% = %FIELD_NAME%;'#13#10'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'
+  +#13#10'    // <%%% START IF_FIELD_BINARY_TYPE %%%>'#13#10'    dynamic_cast<T'
+  +'ROSerializer*>(ASerializer)->WriteBinary("%FIELD_NAME%", &l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_BINARY_TYPE %%%>'#13#10'    // <%%% START IF'
+  +'_FIELD_BOOLEAN_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerialize'
+  +'r)->WriteEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);'#13#10
+  +'    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>'#13#10'    // <%%% START IF_FIEL'
+  +'D_CURRENCY_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->'
+  +'WriteDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);'#13#10'    // <%%% EN'
+  +'D IF_FIELD_CURRENCY_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DATETIME_TY'
+  +'PE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteDateTime'
+  +'("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DATETIME'
+  +'_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    d'
+  +'ynamic_cast<TROSerializer*>(ASerializer)->WriteDecimal("%FIELD_NAME%", &l_%'
+  +'FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>'#13#10'    '
+  +'// <%%% START IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    dynamic_cast<TROSerializ'
+  +'er*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>'#13#10'    // <%%% START IF'
+  +'_FIELD_GUID_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)-'
+  +'>WriteGuid("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIEL'
+  +'D_GUID_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_INT64_TYPE %%%>'#13#10' '
+  +'   dynamic_cast<TROSerializer*>(ASerializer)->WriteInt64("%FIELD_NAME%", &l'
+  +'_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_INT64_TYPE %%%>'#13#10'    '
+  +'// <%%% START IF_FIELD_INTEGER_TYPE %%%>'#13#10'    dynamic_cast<TROSeriali'
+  +'zer*>(ASerializer)->WriteInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);'
+  +#13#10'    // <%%% END IF_FIELD_INTEGER_TYPE %%%>'#13#10'    // <%%% START I'
+  +'F_FIELD_ANSISTRING_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASeria'
+  +'lizer)->WriteAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%'
+  +'% END IF_FIELD_ANSISTRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_UTF8S'
+  +'TRING_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->Write'
+  +'UTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIEL'
+  +'D_UTF8STRING_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_VARIANT_TYPE %%%>'
+  +#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteVariant("%FIELD_N'
+  +'AME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_VARIANT_TYPE %%%>'
+  +#13#10'    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    dynamic_ca'
+  +'st<TROSerializer*>(ASerializer)->WriteWideString("%FIELD_NAME%", &l_%FIELD_'
+  +'NAME%);'#13#10'    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>'#13#10'    // '
+  +'<%%% START IF_FIELD_XML_TYPE %%%>'#13#10'    dynamic_cast<TROSerializer*>(A'
+  +'Serializer)->WriteXml("%FIELD_NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% '
+  +'END IF_FIELD_XML_TYPE %%%>'#13#10'    // <%%% START IF_FIELD_ARRAY_TYPE %%%'
+  +'>'#13#10'    dynamic_cast<TROSerializer*>(ASerializer)->WriteArray("%FIELD_'
+  +'NAME%", &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ARRAY_TYPE %%%>'
+  ,#13#10'    // <%%% START IF_FIELD_ENUM_TYPE %%%>'#13#10'    dynamic_cast<TRO'
+  +'Serializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE'
+  +'%Info, &l_%FIELD_NAME%);'#13#10'    // <%%% END IF_FIELD_ENUM_TYPE %%%>'#13
+  +#10'    // <%%% START IF_FIELD_STRUCT_TYPE %%%>'#13#10'    dynamic_cast<TROS'
+  +'erializer*>(ASerializer)->WriteStruct("%FIELD_NAME%", &l_%FIELD_NAME%);'#13
+  +#10'    // <%%% END IF_FIELD_STRUCT_TYPE %%%>'#13#10'    // <%%% END ENTIRE_'
+  +'HIERARCHY_FIELDS %%%>'#13#10'  }'#13#10'}'#13#10#13#10'// <%%% END IF_HAS_F'
+  +'IELDS %%%>'#13#10'//%STRUCT_COLLECTION_NAME%'#13#10'%STRUCT_NAME%* __fastca'
+  +'ll %STRUCT_COLLECTION_NAME%::Add()'#13#10'{'#13#10'  return dynamic_cast<%S'
+  +'TRUCT_NAME%*>(inherited::Add());'#13#10'}'#13#10#13#10'%STRUCT_NAME%* __fas'
+  +'tcall %STRUCT_COLLECTION_NAME%::GetItems(const int Index)'#13#10'{'#13#10' '
+  +' return dynamic_cast<%STRUCT_NAME%*>(inherited::Items[Index]);'#13#10'}'#13
+  +#10#13#10'void __fastcall %STRUCT_COLLECTION_NAME%::SetItems(const int Index'
+  +', %STRUCT_NAME%* Value)'#13#10'{'#13#10'  dynamic_cast<%STRUCT_NAME%*>(inhe'
+  +'rited::Items[Index])->Assign(Value);'#13#10'}'#13#10#13#10'// <%%% START AR'
+  +'RAYS_IS_FOUND %%%>'#13#10'void %STRUCT_COLLECTION_NAME%::LoadFromArray(%ARR'
+  +'AY_NAME%* anArray)'#13#10'{'#13#10'  Clear();'#13#10'  '#13#10'  for(int i '
+  +'= 0; i <= anArray->Count-1; ++i)'#13#10'    Add()->Assign((*anArray)[i]);'
+  +#13#10'}'#13#10#13#10'void %STRUCT_COLLECTION_NAME%::SaveToArray(%ARRAY_NAME'
+  +'%* anArray)'#13#10'{'#13#10'  anArray->Clear();'#13#10'  anArray->Resize(Co'
+  +'unt);'#13#10'  for(int i = 0; i <= Count-1; ++i)'#13#10'  {'#13#10'    anAr'
+  +'ray->Items[i] = new %STRUCT_NAME%;'#13#10'    anArray->Items[i]->Assign(Ite'
+  +'ms[i]);'#13#10'  }'#13#10'}'#13#10#13#10'// <%%% END ARRAYS_IS_FOUND %%%>'
+  +#13#10'// <%%% END STRUCTS %%%>'#13#10'// <%%% START SERVICES %%%>'#13#10'//'
+  +' <%%% START FUNCTION_OPERATIONS %%%>'#13#10'// <%%% START IF_RESULT_SIMPLE '
+  +'%%%>'#13#10'%OPERATION_RESULT% __fastcall T%SERVICE_NAME%_Proxy::%OPERATION'
+  +'_NAME%('#13#10'// <%%% END IF_RESULT_SIMPLE %%%>'#13#10'// <%%% START IF_RE'
+  +'SULT_COMPLEX %%%>'#13#10'%OPERATION_RESULT%* __fastcall T%SERVICE_NAME%_Pro'
+  +'xy::%OPERATION_NAME%('#13#10'// <%%% END IF_RESULT_COMPLEX %%%>'#13#10'  //'
+  +' <%%% START PARAMS %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13
+  +#10'  %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%'
+  +','#13#10'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  // <%%% START IF_'
+  +'PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARA'
+  +'M_BACK_MODIFIER% %PARAM_NAME%,'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %'
+  +'%%>'#13#10'  // <%%% END PARAMS %%%>'#13#10'  )'#13#10'{'#13#10'  // <%%% S'
+  +'TART IF_RESULT_SIMPLE %%%>'#13#10'  %OPERATION_RESULT% result;'#13#10'  // '
+  +'<%%% END IF_RESULT_SIMPLE %%%>'#13#10'  // <%%% START IF_RESULT_COMPLEX %%%'
+  +'>'#13#10'  %OPERATION_RESULT%* result;'#13#10'  // <%%% END IF_RESULT_COMPL'
+  +'EX %%%>'#13#10#13#10'  // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10'  // <'
+  +'%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_NAME% = NULL;'#13#10' '
+  +' // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%% END OUT_PARAMS_NO_'
+  +'STRIP %%%>'#13#10'  // <%%% START IF_RESULT_COMPLEX %%%>'#13#10'  result = '
+  +'NULL;'#13#10'  // <%%% END IF_RESULT_COMPLEX %%%>'#13#10'  try'#13#10'  {'
+  +#13#10'    __Message->InitializeRequestMessage(__TransportChannel, "%LIBRARY'
+  +'_NAME%", __InterfaceName, "%OPERATION_NAME%");'#13#10'    // <%%% START IN_'
+  +'PARAMS_NO_STRIP %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13
+  +#10'    __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME'
+  +'%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'    // <%%% END IF_PARAM_TY'
+  +'PE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10' '
+  +'   __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%'
+  +', TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'    // <%%% END IF_PARAM_TYP'
+  +'E_COMPLEX %%%>'#13#10'    // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10'    __'
+  +'Message->Finalize();'#13#10#13#10'    __TransportChannel->Dispatch(__Messag'
+  +'e);'#13#10#13#10'    // <%%% START IF_RESULT_SIMPLE %%%>'#13#10'    __Messa'
+  +'ge->Read("Result", __Get%OPERATION_RESULT%Info, &result, TParamAttributes(%'
+  +'OPERATION_RESULT_ATTRIBUTE%));'#13#10'    // <%%% END IF_RESULT_SIMPLE %%%>'
+  +#13#10'    // <%%% START IF_RESULT_COMPLEX %%%>'#13#10'    __Message->Read("'
+  +'Result", __typeinfo(%OPERATION_RESULT%), &result, TParamAttributes(%OPERATI'
+  +'ON_RESULT_ATTRIBUTE%));'#13#10'    // <%%% END IF_RESULT_COMPLEX %%%>'#13#10
+  +'    // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10'    // <%%% START IF_PARA'
+  +'M_TYPE_SIMPLE %%%>'#13#10'    __Message->Read("%PARAM_NAME%", __Get%PARAM_T'
+  +'YPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'    /'
+  +'/ <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE'
+  +'_COMPLEX %%%>'#13#10'    __Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_'
+  ,'TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'    // '
+  +'<%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <%%% END OUT_PARAMS_NO_ST'
+  +'RIP %%%>'#13#10'  }'#13#10'  __finally'#13#10'  {'#13#10'    __Message->Fre'
+  +'eStream();'#13#10'  }'#13#10'  return result;'#13#10'}'#13#10#13#10'// <%%%'
+  +' END FUNCTION_OPERATIONS %%%>'#13#10'// <%%% START PROCEDURE_OPERATIONS %%%'
+  +'>'#13#10'void __fastcall T%SERVICE_NAME%_Proxy::%OPERATION_NAME%('#13#10'  '
+  +'// <%%% START PARAMS %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'
+  +#13#10'  %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NA'
+  +'ME%,'#13#10'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  // <%%% START '
+  +'IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %P'
+  +'ARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLE'
+  +'X %%%>'#13#10'  // <%%% END PARAMS %%%>'#13#10'  )'#13#10'{'#13#10'  // <%%'
+  +'% START OUT_PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_COMPL'
+  +'EX %%%>'#13#10'  %PARAM_NAME% = NULL;'#13#10'  // <%%% END IF_PARAM_TYPE_CO'
+  +'MPLEX %%%>'#13#10'  // <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10'  try'#13#10
+  +'  {'#13#10'    __Message->InitializeRequestMessage(__TransportChannel, "%LI'
+  +'BRARY_NAME%", __InterfaceName, "%OPERATION_NAME%");'#13#10'    // <%%% STAR'
+  +'T IN_PARAMS_NO_STRIP %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_SIMPLE %%%'
+  +'>'#13#10'    __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARA'
+  +'M_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'    // <%%% END IF_PA'
+  +'RAM_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13
+  +#10'    __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_N'
+  +'AME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'    // <%%% END IF_PARAM'
+  +'_TYPE_COMPLEX %%%>'#13#10'    // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10'  '
+  +'  __Message->Finalize();'#13#10#13#10'    __TransportChannel->Dispatch(__Me'
+  +'ssage);'#13#10#13#10'    // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10'    '
+  +'// <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    __Message->Read("%PARAM_'
+  +'NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRI'
+  +'BUTE%));'#13#10'    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    // <%%'
+  +'% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    __Message->Read("%PARAM_NAME%'
+  +'", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBU'
+  +'TE%));'#13#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <%%%'
+  +' END OUT_PARAMS_NO_STRIP %%%>'#13#10'  }'#13#10'  __finally'#13#10'  {'#13
+  +#10'    __Message->FreeStream();'#13#10'  }'#13#10'}'#13#10#13#10'// <%%% EN'
+  +'D PROCEDURE_OPERATIONS %%%>'#13#10'// <%%% END SERVICES %%%>'#13#10'// <%%%'
+  +' START EVENT_SINKS %%%>'#13#10#13#10'namespace %NAMESPACE_NAME%'#13#10'{'#13
+  +#10'// T%EVENT_SINK_NAME%_Writer'#13#10'class DELPHICLASS T%EVENT_SINK_NAME%'
+  +'_Writer;'#13#10'class T%EVENT_SINK_NAME%_Writer : public T%EVENT_SINK_WRITE'
+  +'R_ANCESTOR_NAME%, I%EVENT_SINK_NAME%_Writer'#13#10'{'#13#10'  typedef T%EVE'
+  +'NT_SINK_WRITER_ANCESTOR_NAME% inherited;'#13#10'protected:'#13#10'  // <%%%'
+  +' START OPERATIONS %%%>'#13#10'  void __fastcall %OPERATION_NAME%(const GUID'
+  +' __Sender'#13#10#9#9#9#9#9'// <%%% START PARAMS %%%>'#13#10#9#9#9#9#9'// <%'
+  +'%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9#9#9#9#9', %PARAM_FRONT_MODIFIER'
+  +'% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%'#13#10#9#9#9#9#9'// <%%% '
+  +'END IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9#9#9#9#9'// <%%% START IF_PARAM_TYPE_'
+  +'COMPLEX %%%>'#13#10#9#9#9#9#9', %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM'
+  +'_BACK_MODIFIER% %PARAM_NAME%'#13#10#9#9#9#9#9'// <%%% END IF_PARAM_TYPE_COM'
+  +'PLEX %%%>'#13#10#9#9#9#9#9'// <%%% END PARAMS %%%>'#13#10#9#9#9#9#9');'#13
+  +#10'  // <%%% END OPERATIONS %%%>'#13#10'public:'#13#10'  virtual HRESULT __'
+  +'stdcall QueryInterface(const GUID& IID, void **Obj) {'#13#10#9'return inher'
+  +'ited::QueryInterface(IID, (void *)Obj); }'#13#10#13#10'  virtual ULONG __st'
+  +'dcall AddRef() {'#13#10#9'return inherited::_AddRef();  }'#13#10#13#10'  vi'
+  +'rtual ULONG __stdcall Release() {'#13#10#9'return inherited::_Release(); }'
+  +#13#10'};'#13#10#13#10'}  // namespace %NAMESPACE_NAME%'#13#10#13#10'// <%%%'
+  +' START OPERATIONS %%%>'#13#10'void __fastcall T%EVENT_SINK_NAME%_Writer::%O'
+  +'PERATION_NAME%(const GUID __Sender'#13#10'  // <%%% START PARAMS %%%>'#13#10
+  +'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  , %PARAM_FRONT_MODIFIER%'
+  +' %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%'#13#10'  // <%%% END IF_PA'
+  +'RAM_TYPE_SIMPLE %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13
+  +#10'  , %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NA'
+  +'ME%'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%% END PA'
+  +'RAMS %%%>'#13#10'  )'#13#10'{'#13#10'  Binary* __eventdata = new Binary("")'
+  +';'#13#10'  try'#13#10'  {'#13#10'    __Message->InitializeEventMessage(NULL'
+  +', "%LIBRARY_NAME%", EID_%EVENT_SINK_NAME%, "%OPERATION_NAME%");'#13#10'    '
+  ,'// <%%% START PARAMS_NO_STRIP %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_S'
+  +'IMPLE %%%>'#13#10'    __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Inf'
+  +'o, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'    // <%%% '
+  +'END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_COMPLE'
+  +'X %%%>'#13#10'    __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%)'
+  +', %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'    // <%%% EN'
+  +'D IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <%%% END PARAMS_NO_STRIP %%%>'#13
+  +#10'    __Message->Finalize();'#13#10#13#10'    __Message->WriteToStream(__e'
+  +'ventdata);'#13#10#13#10'    Repository->StoreEventData(__Sender, __eventdat'
+  +'a, TROEventWriter::ExcludeSender, TROEventWriter::ExcludeSessionList, TROEv'
+  +'entWriter::SessionList->CommaText);'#13#10'  }'#13#10'  __finally'#13#10'  '
+  +'{'#13#10'    delete __eventdata;'#13#10'  }'#13#10'}'#13#10#13#10'// <%%% E'
+  +'ND OPERATIONS %%%>'#13#10'/* T%EVENT_SINK_NAME%_Invoker */'#13#10'namespace'
+  +' %NAMESPACE_NAME%'#13#10'{'#13#10'class DELPHICLASS T%EVENT_SINK_NAME%_Invo'
+  +'ker;'#13#10'class T%EVENT_SINK_NAME%_Invoker : public T%EVENT_SINK_INVOKER_'
+  +'ANCESTOR_NAME%'#13#10'{'#13#10'__published:'#13#10'  // <%%% START OPERATIO'
+  +'NS %%%>'#13#10'  void __fastcall Invoke_%OPERATION_NAME%(TROEventReceiver* '
+  +'__EventReceiver, IROMessage* __Message, IUnknown* __Target);'#13#10'  // <%'
+  +'%% END OPERATIONS %%%>'#13#10'};'#13#10'} // namespace %NAMESPACE_NAME%'#13
+  +#10#13#10'// <%%% START OPERATIONS %%%>'#13#10'void __fastcall T%EVENT_SINK_'
+  +'NAME%_Invoker::Invoke_%OPERATION_NAME%(TROEventReceiver* __EventReceiver, I'
+  +'ROMessage* __Message, IUnknown* __Target)'#13#10'{'#13#10'  // <%%% START P'
+  +'ARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10
+  +'  %PARAM_TYPE% %PARAM_NAME%;'#13#10'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'
+  +#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_TYPE%* %PA'
+  +'RAM_NAME%;'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%%'
+  +' END PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_HAS_COMPLEX_TYPE %%%>'
+  +#13#10'  TROObjectDisposer* __lObjectDisposer;'#13#10'  // <%%% END IF_HAS_C'
+  +'OMPLEX_TYPE %%%>'#13#10'  _di_I%EVENT_SINK_NAME% __%EVENT_SINK_NAME%Instanc'
+  +'e;'#13#10#13#10'  // <%%% START PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START'
+  +' IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_NAME% = NULL;'#13#10'  // <%%% '
+  +'END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%% END PARAMS_NO_STRIP %%%>'#13
+  +#10'  try'#13#10'  {'#13#10'    // <%%% START IN_PARAMS_NO_STRIP %%%>'#13#10
+  +'    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    __Message->Read("%PA'
+  +'RAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_A'
+  +'TTRIBUTE%));'#13#10'    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    //'
+  +' <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    __Message->Read("%PARAM_N'
+  +'AME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTR'
+  +'IBUTE%));'#13#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <'
+  +'%%% END IN_PARAMS_NO_STRIP %%%>'#13#10#13#10'    if (__Target->QueryInterfa'
+  +'ce(I%EVENT_SINK_NAME%_IID, reinterpret_cast<void**>(&__%EVENT_SINK_NAME%Ins'
+  +'tance)) == S_OK)'#13#10'    {'#13#10'      __%EVENT_SINK_NAME%Instance->%OP'
+  +'ERATION_NAME%('#13#10'                                      // <%%% START P'
+  +'ARAMS %%%>'#13#10'                                      %PARAM_NAME%,'#13#10
+  +'                                      // <%%% END PARAMS %%%>'#13#10'      '
+  +'                              );'#13#10'    }'#13#10'    else'#13#10'    {'
+  +#13#10'      throw EIntfCastError::EIntfCastError("I%EVENT_SINK_NAME% not su'
+  +'pported");'#13#10'    }'#13#10#13#10'    // <%%% START OUT_PARAMS_NO_STRIP '
+  +'%%%>'#13#10'    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    __Messag'
+  +'e->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttrib'
+  +'utes(%PARAM_ATTRIBUTE%));'#13#10'    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'
+  +#13#10'    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    __Message->Wr'
+  +'ite("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttribute'
+  +'s(%PARAM_ATTRIBUTE%));'#13#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13
+  +#10'    // <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10'  }'#13#10'  __finally'
+  +#13#10'  {'#13#10'    // <%%% START IF_HAS_COMPLEX_TYPE %%%>'#13#10'    __lO'
+  +'bjectDisposer = new TROObjectDisposer(__EventReceiver->operator IInterface '
+  +'*());'#13#10'    try'#13#10'    {'#13#10'      // <%%% START PARAMS_NO_STRI'
+  +'P %%%>'#13#10'      // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'      _'
+  +'_lObjectDisposer->Add(%PARAM_NAME%);'#13#10'      // <%%% END IF_PARAM_TYPE'
+  +'_COMPLEX %%%>'#13#10'      // <%%% END PARAMS_NO_STRIP %%%>'#13#10'    }'#13
+  +#10'    __finally'#13#10'    {'#13#10'      delete __lObjectDisposer;'#13#10
+  +'    }'#13#10'    // <%%% END IF_HAS_COMPLEX_TYPE %%%>'#13#10'  }'#13#10'}'
+  +#13#10#13#10'// <%%% END OPERATIONS %%%>'#13#10'// <%%% END EVENT_SINKS %%%>'
+  ,#13#10'void __initialization_%UNIT_NAME%()'#13#10'{'#13#10'  // <%%% START S'
+  +'TRUCTS %%%>'#13#10'  RegisterROClass(__classid(%STRUCT_NAME%));'#13#10'  //'
+  +' <%%% END STRUCTS %%%>'#13#10'  // <%%% START ARRAYS %%%>'#13#10'  Register'
+  +'ROClass(__classid(%ARRAY_NAME%));'#13#10'  // <%%% END ARRAYS %%%>'#13#10' '
+  +' // <%%% START EXCEPTIONS %%%>'#13#10'  RegisterExceptionClass(__classid(%E'
+  +'XCEPTION_NAME%));'#13#10'  // <%%% END EXCEPTIONS %%%>'#13#10'  // <%%% STA'
+  +'RT SERVICES %%%>'#13#10'  RegisterProxyClass(I%SERVICE_NAME%_IID, __classid'
+  +'(T%SERVICE_NAME%_Proxy));'#13#10'  // <%%% END SERVICES %%%>'#13#10'  // <%'
+  +'%% START EVENT_SINKS %%%>'#13#10'  RegisterEventWriterClass(I%EVENT_SINK_NA'
+  +'ME%_IID, __classid(T%EVENT_SINK_NAME%_Writer));'#13#10'  RegisterEventInvok'
+  +'erClass(EID_%EVENT_SINK_NAME%, __classid(T%EVENT_SINK_NAME%_Invoker));'#13
+  +#10'  // <%%% END EVENT_SINKS %%%>     '#13#10'}'#13#10#13#10'void __finaliz'
+  +'ation_%UNIT_NAME%()'#13#10'{'#13#10'  // <%%% START STRUCTS %%%>'#13#10'  U'
+  +'nregisterROClass(__classid(%STRUCT_NAME%));'#13#10'  // <%%% END STRUCTS %%'
+  +'%>'#13#10'  // <%%% START ARRAYS %%%>'#13#10'  UnregisterROClass(__classid('
+  +'%ARRAY_NAME%));'#13#10'  // <%%% END ARRAYS %%%>'#13#10'  // <%%% START EXC'
+  +'EPTIONS %%%>'#13#10'  UnregisterExceptionClass(__classid(%EXCEPTION_NAME%))'
+  +';'#13#10'  // <%%% END EXCEPTIONS %%%>'#13#10'  // <%%% START SERVICES %%%>'
+  +#13#10'  UnregisterProxyClass(I%SERVICE_NAME%_IID);'#13#10'  // <%%% END SER'
+  +'VICES %%%>'#13#10'  // <%%% START EVENT_SINKS %%%>'#13#10'  UnregisterEvent'
+  +'WriterClass(I%EVENT_SINK_NAME%_IID);'#13#10'  UnregisterEventInvokerClass(E'
+  +'ID_%EVENT_SINK_NAME%);'#13#10'  // <%%% END EVENT_SINKS %%%>     '#13#10'}'
+  +#13#10#13#10
+]);
+LazarusResources.Add('TEMPLATE_INTF_H','RCDATA',[
+  '// %UNIT_NAME%'#13#10'//'#13#10'/*------------------------------------------'
+  +'---------------------------------}'#13#10'{ This unit was automatically gen'
+  +'erated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associ'
+  +'ated with this project.                                }'#13#10'{          '
+  +'                                                                  }'#13#10
+  +'{ Do not modify this unit manually, or your changes will be lost when this '
+  +'  }'#13#10'{ unit is regenerated the next time you compile the project.    '
+  +'             }'#13#10'{----------------------------------------------------'
+  +'-----------------------*/'#13#10#13#10'#ifndef %UNIT_NAME%H'#13#10'#define '
+  +'%UNIT_NAME%H'#13#10#13#10'#pragma delphiheader begin'#13#10'#pragma option '
+  +'push'#13#10'#pragma option -w-            // All warnings off'#13#10'#pragm'
+  +'a option -Vx            // Zero-length empty class member functions'#13#10
+  +'#pragma pack(push,8)'#13#10#13#10'#include <System.hpp>         // Pascal u'
+  +'nit'#13#10'#include <Classes.hpp>        // Pascal unit'#13#10'#include <Ur'
+  +'otypes.hpp>       // Pascal unit'#13#10'#include <Uroclient.hpp>      // Pa'
+  +'scal unit'#13#10'#include <Uroclientintf.hpp>  // Pascal unit'#13#10'#inclu'
+  +'de <Uroxmlintf.hpp>     // Pascal unit'#13#10'// <%%% START REQUIRED_UNITS '
+  +'%%%>'#13#10'#include <%REQUIRED_UNIT_NAME%.hpp>'#13#10'// <%%% END REQUIRED'
+  +'_UNITS %%%>'#13#10#13#10'namespace %NAMESPACE_NAME%'#13#10'{'#13#10'// Libr'
+  +'ary ID'#13#10'#define LibraryUID "%LIBRARY_UID%"'#13#10'#define TargetNames'
+  +'pace "%NAMESPACE_NAME%"'#13#10#13#10'// Service Interface ID''s'#13#10'// <'
+  +'%%% START SERVICES %%%>'#13#10'const GUID I%SERVICE_NAME%_IID = Sysutils::S'
+  +'tringToGUID("%SERVICE_UID%");'#13#10'// <%%% END SERVICES %%%>'#13#10#13#10
+  +'// Event ID''s'#13#10'// <%%% START EVENT_SINKS %%%>'#13#10'#define EID_%EV'
+  +'ENT_SINK_NAME% "%EVENT_SINK_NAME%"'#13#10'const GUID I%EVENT_SINK_NAME%_IID'
+  +' = Sysutils::StringToGUID("%EVENT_SINK_UID%");'#13#10'// <%%% END EVENT_SIN'
+  +'KS %%%>'#13#10#13#10'// Forward declarations'#13#10'// <%%% START SERVICES '
+  +'%%%>'#13#10'__interface I%SERVICE_NAME%; // = interface;'#13#10'// <%%% END'
+  +' SERVICES %%%>'#13#10'// <%%% START ARRAYS %%%>'#13#10'class DELPHICLASS %A'
+  +'RRAY_NAME%;'#13#10'// <%%% END ARRAYS %%%>'#13#10'// <%%% START STRUCTS %%%'
+  +'>'#13#10'class DELPHICLASS %STRUCT_NAME%;'#13#10'// <%%% END STRUCTS %%%>'
+  +#13#10'// <%%% START EXCEPTIONS %%%>'#13#10'class DELPHICLASS %EXCEPTION_NAM'
+  +'E%;'#13#10'// <%%% END EXCEPTIONS %%%>'#13#10'// <%%% START EVENT_SINKS %%%'
+  +'>'#13#10'__interface I%EVENT_SINK_NAME%; // = interface;'#13#10'// <%%% END'
+  +' EVENT_SINKS %%%>'#13#10#13#10'/* Enumerateds */'#13#10'// <%%% START ENUMS'
+  +' %%%>'#13#10'// <%%% START DOCUMENTATION %%%>'#13#10#13#10'/* Description:'
+  +#13#10'    %CONTENT% */'#13#10'// <%%% END DOCUMENTATION %%%>'#13#10'#pragma'
+  +' option push -b-'#13#10'enum %ENUM_NAME% {'#13#10'                 // <%%% '
+  +'START VALUES %%%>'#13#10'                 %VALUE_NAME%,                '#13
+  +#10'                 // <%%% END VALUES %%%>                '#13#10'        '
+  +'         };'#13#10'#pragma option pop'#13#10'              '#13#10'// <%%% '
+  +'END ENUMS %%%>'#13#10'/* Simple type holders */'#13#10'// Note: In order to'
+  +' get type info for a simple type, we MUST have it from the'#13#10'// publis'
+  +'hed property of a Delphi class. There is no other way as __typeinfo'#13#10
+  +'// requires the type to actually derive from TObject. Hence the reason why'
+  +#13#10'// we create these dummy classes with a simple property of the correc'
+  +'t type.'#13#10'// <%%% START SIMPLE_TYPES %%%>'#13#10'#ifndef __Get%TYPE_NA'
+  +'ME%Info'#13#10'class DELPHICLASS %TYPE_NAME%TypeHolder;'#13#10'class %TYPE_'
+  +'NAME%TypeHolder : public TPersistent'#13#10'{'#13#10'private:'#13#10'  %TYP'
+  +'E_NAME% FHolderField;'#13#10'__published:'#13#10'  __property %TYPE_NAME% H'
+  +'olderField = {read=FHolderField, write=FHolderField};'#13#10'};'#13#10'#def'
+  +'ine __Get%TYPE_NAME%Info *::GetPropInfo(__typeinfo(%TYPE_NAME%TypeHolder), '
+  +'"HolderField")->PropType'#13#10'#endif  // __Get%TYPE_NAME%Info'#13#10#13#10
+  +'// <%%% END SIMPLE_TYPES %%%>'#13#10'// <%%% START STRUCTS %%%>'#13#10'// %'
+  +'STRUCT_NAME%'#13#10'class DELPHICLASS %STRUCT_NAME%;'#13#10'class %STRUCT_N'
+  +'AME% : public Urotypes::TROComplexType'#13#10'{'#13#10'  // Allow the use o'
+  +'f "inherited" in our class as Delphi allows'#13#10'  typedef Urotypes::TROC'
+  +'omplexType inherited;'#13#10'  '#13#10'private:'#13#10'  // <%%% START FIEL'
+  +'DS_NO_STRIP %%%>'#13#10'  // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'  '
+  +'%FIELD_TYPE% f%FIELD_NAME%;'#13#10'  // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'
+  +#13#10'  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  %FIELD_TYPE%* f%F'
+  +'IELD_NAME%;'#13#10'  // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  // <%%'
+  +'% END FIELDS_NO_STRIP %%%>'#13#10#13#10'  // <%%% START FIELDS_NO_STRIP %%%'
+  +'>'#13#10'  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  %FIELD_TYPE%* '
+  ,'__fastcall Get%FIELD_NAME%();'#13#10'  // <%%% END IF_FIELD_TYPE_COMPLEX %%'
+  +'%>'#13#10'  // <%%% END FIELDS_NO_STRIP %%%>'#13#10'public:'#13#10'  virtua'
+  +'l void __fastcall Assign(Classes::TPersistent* iSource);'#13#10'  // <%%% S'
+  +'TART IF_HAS_FIELDS %%%>'#13#10'  virtual void __fastcall ReadComplex(TObjec'
+  +'t* ASerializer);'#13#10'  virtual void __fastcall WriteComplex(TObject* ASe'
+  +'rializer);'#13#10'  // <%%% END IF_HAS_FIELDS %%%>'#13#10#13#10'__published'
+  +':'#13#10'  // <%%% START FIELDS_NO_STRIP %%%>'#13#10'  // <%%% START IF_FIE'
+  +'LD_TYPE_SIMPLE %%%>'#13#10'  __property %FIELD_TYPE% %FIELD_NAME% = {read=f'
+  +'%FIELD_NAME%, write=f%FIELD_NAME%}; '#13#10'  // <%%% END IF_FIELD_TYPE_SIM'
+  +'PLE %%%>'#13#10'  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  __prope'
+  +'rty %FIELD_TYPE%* %FIELD_NAME% = {read=Get%FIELD_NAME%, write=f%FIELD_NAME%'
+  +'};'#13#10'  // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  // <%%% END FIE'
+  +'LDS_NO_STRIP %%%>'#13#10'public:'#13#10'  // Pascal constructor/destructor'
+  +#13#10'  #pragma option push -w-inl'#13#10'  /* TROComplexType.Create */ inl'
+  +'ine __fastcall virtual %STRUCT_NAME%()/* overload */ : Urotypes::TROComplex'
+  +'Type() {}'#13#10'  #pragma option pop'#13#10'  #pragma option push -w-inl'
+  +#13#10'  /* TROComplexType.Destroy */ inline __fastcall virtual ~%STRUCT_NAM'
+  +'E%() {}'#13#10'  #pragma option pop'#13#10'};'#13#10#13#10'// %STRUCT_COLLE'
+  +'CTION_NAME%'#13#10'class DELPHICLASS %STRUCT_COLLECTION_NAME%;'#13#10'class'
+  +' %STRUCT_COLLECTION_NAME% : public Uroclasses::TROCollection'#13#10'{'#13#10
+  +'  typedef Uroclasses::TROCollection inherited;'#13#10#13#10'public:'#13#10
+  +'  %STRUCT_NAME%* operator[](int Index) { return Items[Index]; }'#13#10#13#10
+  +'protected:'#13#10'  __fastcall %STRUCT_COLLECTION_NAME%(TMetaClass* aItemCl'
+  +'ass) : Uroclasses::TROCollection(aItemClass) {} /*overload*/'#13#10'  %STRU'
+  +'CT_NAME%* __fastcall GetItems(const int Index);'#13#10'  void __fastcall Se'
+  +'tItems(const int Index, %STRUCT_NAME%* Value);'#13#10#13#10'public:'#13#10
+  +'  __fastcall %STRUCT_COLLECTION_NAME%() : Uroclasses::TROCollection(__class'
+  +'id(%STRUCT_NAME%)) {} /*overload*/'#13#10'  HIDESBASE %STRUCT_NAME%* __fast'
+  +'call Add(); /*reintroduce*/'#13#10'  // <%%% START ARRAYS_IS_FOUND %%%>'#13
+  +#10'  void SaveToArray(%ARRAY_NAME%* anArray);'#13#10'  void LoadFromArray(%'
+  +'ARRAY_NAME%* anArray);'#13#10'  // <%%% END ARRAYS_IS_FOUND %%%>'#13#10'  _'
+  +'_property %STRUCT_NAME%* Items[int Index] = {read=GetItems, write=SetItems '
+  +'/*default*/};'#13#10'  #pragma option push -w-inl'#13#10'  /* TCollection.D'
+  +'estroy */ inline __fastcall virtual ~%STRUCT_COLLECTION_NAME%() {}'#13#10' '
+  +' #pragma option pop'#13#10'};'#13#10#13#10'typedef DynamicArray<%STRUCT_NAM'
+  +'E%* > %UNIT_NAME%_%STRUCT_NAME%__4;'#13#10#13#10'// <%%% END STRUCTS %%%>'
+  +#13#10'// <%%% START ARRAYS %%%>'#13#10'// %ARRAY_NAME%'#13#10#13#10'// <%%%'
+  +' START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'typedef DynamicArray<%ARRAY_TYPE%> '
+  +'%ARRAY_NAME%_%ARRAY_TYPE%;'#13#10'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13
+  +#10'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'typedef DynamicArray<%AR'
+  +'RAY_TYPE%* > %ARRAY_NAME%_%ARRAY_TYPE%;'#13#10'// <%%% END IF_ARRAY_TYPE_CO'
+  +'MPLEX %%%>'#13#10#13#10'class DELPHICLASS %ARRAY_NAME%;'#13#10'class %ARRAY'
+  +'_NAME% : public Urotypes::TROArray'#13#10'{'#13#10'  typedef Urotypes::TROA'
+  +'rray inherited;'#13#10#13#10'public:'#13#10'  // <%%% START IF_ARRAY_TYPE_C'
+  +'OMPLEX %%%>'#13#10'  %ARRAY_TYPE%* operator[](const int Index) { return Ite'
+  +'ms[Index]; }'#13#10'  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  // <%'
+  +'%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'  %ARRAY_TYPE% operator[](const i'
+  +'nt Index) { return Items[Index]; }'#13#10'  // <%%% END IF_ARRAY_TYPE_SIMPL'
+  +'E %%%>'#13#10#13#10'private:'#13#10'  int fCount;'#13#10'  %ARRAY_NAME%_%AR'
+  +'RAY_TYPE% fItems;'#13#10#13#10'protected:'#13#10'  virtual void __fastcall '
+  +'Grow();'#13#10'  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  %ARRAY_T'
+  +'YPE%* __fastcall GetItems(const int Index);'#13#10'  void __fastcall SetIte'
+  +'ms(const int Index, %ARRAY_TYPE%* Value);'#13#10'  // <%%% END IF_ARRAY_TYP'
+  +'E_COMPLEX %%%>'#13#10'  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'  %A'
+  +'RRAY_TYPE% __fastcall GetItems(const int Index);'#13#10'  void __fastcall S'
+  +'etItems(const int Index, %ARRAY_TYPE% Value);'#13#10'  // <%%% END IF_ARRAY'
+  +'_TYPE_SIMPLE %%%>'#13#10'  virtual int __fastcall GetCount();'#13#10#13#10
+  +'public:'#13#10'  /* virtual class method */ '#13#10'  // <%%% START IF_ARRA'
+  +'Y_TYPE_SIMPLE %%%>'#13#10'  virtual Typinfo::PTypeInfo __fastcall GetItemTy'
+  +'pe(const TMetaClass* vmt) { return __Get%ARRAY_TYPE%Info; }'#13#10'  // <%%'
+  +'% END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'  // <%%% START IF_ARRAY_TYPE_COMPLE'
+  +'X %%%>'#13#10'  virtual Typinfo::PTypeInfo __fastcall GetItemType(const TMe'
+  +'taClass* vmt) { return __typeinfo(%ARRAY_TYPE%); }'#13#10'  // <%%% END IF_'
+  +'ARRAY_TYPE_COMPLEX %%%>'#13#10#13#10'  // <%%% START IF_ARRAY_TYPE_COMPLEX '
+  ,'%%%>'#13#10'  /* virtual class method */ '#13#10'  virtual TMetaClass* __fa'
+  +'stcall GetItemClass(const TMetaClass* vmt) { return __classid(%ARRAY_TYPE%)'
+  +'; }'#13#10'  '#13#10'  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  /* v'
+  +'irtual class method */  '#13#10'  virtual int __fastcall GetItemSize(const '
+  +'TMetaClass* vmt) { return sizeof(%ARRAY_TYPE%); }'#13#10'    '#13#10'  virt'
+  +'ual void * __fastcall GetItemRef(const int Index);'#13#10'  // <%%% START I'
+  +'F_ARRAY_TYPE_COMPLEX %%%>'#13#10'  virtual void __fastcall SetItemRef(const'
+  +' int Index, void* Ref);'#13#10'  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13
+  +#10'  virtual void __fastcall Clear();'#13#10'  virtual void __fastcall Dele'
+  +'te(const int Index);'#13#10'  virtual void __fastcall Resize(const int Elem'
+  +'entCount);'#13#10'  virtual void __fastcall Assign(Classes::TPersistent* iS'
+  +'ource);'#13#10'  virtual void __fastcall ReadComplex(TObject* ASerializer);'
+  +#13#10'  virtual void __fastcall WriteComplex(TObject* ASerializer);'#13#10
+  +'  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  %ARRAY_TYPE%* __fastcal'
+  +'l Add()/* overload */;'#13#10'  int __fastcall Add(%ARRAY_TYPE%* Value)/* o'
+  +'verload */;'#13#10'  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  // <%%'
+  +'% START IF_ARRAY_TYPE_SIMPLE %%%>'#13#10'  int __fastcall Add(%ARRAY_TYPE% '
+  +'Value)/* overload */;'#13#10'  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10
+  +'  __property int Count = {read=GetCount, nodefault};'#13#10'  // <%%% START'
+  +' IF_ARRAY_TYPE_COMPLEX %%%>'#13#10'  __property %ARRAY_TYPE%* Items[int Ind'
+  +'ex] = {read=GetItems, write=SetItems/*, default*/};'#13#10'  // <%%% END IF'
+  +'_ARRAY_TYPE_COMPLEX %%%>'#13#10'  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'
+  +#13#10'  __property %ARRAY_TYPE% Items[int Index] = {read=GetItems, write=Se'
+  +'tItems/*, default*/};'#13#10'  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#13#10
+  +'  __property %ARRAY_NAME%_%ARRAY_TYPE% InnerArray = {read=fItems, nodefault'
+  +'};'#13#10'public:'#13#10'  #pragma option push -w-inl'#13#10'  /* TROArray.'
+  +'Destroy */ inline __fastcall virtual ~%ARRAY_NAME%() {Clear();}'#13#10'  #p'
+  +'ragma option pop'#13#10#13#10'public:'#13#10'  #pragma option push -w-inl'
+  +#13#10'  /* TROComplexType.Create */ inline __fastcall virtual %ARRAY_NAME%('
+  +')/* overload */ : Urotypes::TROArray() {}'#13#10'  #pragma option pop'#13#10
+  +'};'#13#10#13#10'// <%%% END ARRAYS %%%>'#13#10'// <%%% START EXCEPTIONS %%%'
+  +'>'#13#10'// <%%% START DOCUMENTATION %%%>'#13#10#13#10'/* Description:'#13
+  +#10'    %CONTENT% */'#13#10'// <%%% END DOCUMENTATION %%%>'#13#10'class DELP'
+  +'HICLASS %EXCEPTION_NAME%;'#13#10'class %EXCEPTION_NAME% : public %EXCEPTION'
+  +'_ANCESTOR_NAME%'#13#10'{'#13#10'  typedef %EXCEPTION_ANCESTOR_NAME% inherit'
+  +'ed;'#13#10'  '#13#10'private:'#13#10'  // <%%% START FIELDS_NO_STRIP %%%>'
+  +#13#10'  // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'  %FIELD_TYPE% f%FIE'
+  +'LD_NAME%;'#13#10'  // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10'  // <%%% S'
+  +'TART IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  %FIELD_TYPE%* f%FIELD_NAME%;'#13#10
+  +'  // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  // <%%% END FIELDS_NO_STR'
+  +'IP %%%>'#13#10'public:'#13#10'  %EXCEPTION_NAME%(AnsiString anExceptionMess'
+  +'age'#13#10'                   // <%%% START ANCESTOR_FIELDS %%%>'#13#10'   '
+  +'                // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#13#10'            '
+  +'       , %FIELD_TYPE% a%FIELD_NAME% '#13#10'                   // <%%% END '
+  +'IF_FIELD_TYPE_SIMPLE %%%>'#13#10'                   // <%%% START IF_FIELD_'
+  +'TYPE_COMPLEX %%%>'#13#10'                   , %FIELD_TYPE%* a%FIELD_NAME% '
+  +#13#10'                   // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'    '
+  +'               // <%%% END ANCESTOR_FIELDS %%%>'#13#10'                   /'
+  +'/ <%%% START FIELDS_NO_STRIP %%%>'#13#10'                   // <%%% START I'
+  +'F_FIELD_TYPE_SIMPLE %%%>'#13#10'                   , %FIELD_TYPE% a%FIELD_N'
+  +'AME% '#13#10'                   // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10
+  +'                   // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'        '
+  +'           , %FIELD_TYPE%* a%FIELD_NAME% '#13#10'                   // <%%%'
+  +' END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'                   // <%%% END FIELD'
+  +'S_NO_STRIP %%%>'#13#10'                   );'#13#10'  // <%%% START IF_HAS_'
+  +'FIELDS %%%>'#13#10'  virtual void __fastcall ReadException(TObject* ASerial'
+  +'izer);'#13#10'  virtual void __fastcall WriteException(TObject* ASerializer'
+  +');'#13#10'  // <%%% END IF_HAS_FIELDS %%%>'#13#10'__published:'#13#10'  // '
+  +'<%%% START FIELDS_NO_STRIP %%%>'#13#10'  // <%%% START IF_FIELD_TYPE_SIMPLE'
+  +' %%%>'#13#10'  __property %FIELD_TYPE% %FIELD_NAME% = {read=f%FIELD_NAME%, '
+  +'write=f%FIELD_NAME%}; '#13#10'  // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#13#10
+  +'  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  __property %FIELD_TYPE%'
+  +'* %FIELD_NAME% = {read=f%FIELD_NAME%, write=f%FIELD_NAME%}; '#13#10'  // <%'
+  +'%% END IF_FIELD_TYPE_COMPLEX %%%>'#13#10'  // <%%% END FIELDS_NO_STRIP %%%>'
+  ,#13#10'};'#13#10#13#10'// <%%% END EXCEPTIONS %%%>'#13#10'// <%%% START SERV'
+  +'ICES %%%>'#13#10'__interface I%SERVICE_NAME%;'#13#10'typedef System::Delphi'
+  +'Interface<I%SERVICE_NAME%> _di_I%SERVICE_NAME%;'#13#10'__interface INTERFAC'
+  +'E_UUID("%SERVICE_UID%") I%SERVICE_NAME% : public %SERVICE_ANCESTOR_NAME%'#13
+  +#10'{'#13#10'public:'#13#10'  // <%%% START FUNCTION_OPERATIONS %%%>'#13#10
+  +'  // <%%% START IF_RESULT_SIMPLE %%%>'#13#10'  virtual %OPERATION_RESULT% _'
+  +'_fastcall %OPERATION_NAME%('#13#10'  // <%%% END IF_RESULT_SIMPLE %%%>'#13
+  +#10'  // <%%% START IF_RESULT_COMPLEX %%%>'#13#10'  virtual %OPERATION_RESUL'
+  +'T%* __fastcall %OPERATION_NAME%('#13#10'  // <%%% END IF_RESULT_COMPLEX %%%'
+  +'>'#13#10'    // <%%% START PARAMS %%%>'#13#10'    // <%%% START IF_PARAM_TY'
+  +'PE_SIMPLE %%%>'#13#10'    %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_M'
+  +'ODIFIER% %PARAM_NAME%,'#13#10'    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13
+  +#10'    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    %PARAM_FRONT_MOD'
+  +'IFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'    // <%%%'
+  +' END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <%%% END PARAMS %%%>'#13#10' '
+  +'   ) = 0; // pure virtual function - interface only'#13#10'  // <%%% END FU'
+  +'NCTION_OPERATIONS %%%>'#13#10'  // <%%% START PROCEDURE_OPERATIONS %%%>'#13
+  +#10'  virtual void __fastcall %OPERATION_NAME%('#13#10'    // <%%% START PAR'
+  +'AMS %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    %PAR'
+  +'AM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10
+  +'    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM'
+  +'_TYPE_COMPLEX %%%>'#13#10'    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_B'
+  +'ACK_MODIFIER% %PARAM_NAME%,'#13#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%'
+  +'%>'#13#10'    // <%%% END PARAMS %%%>'#13#10'    ) = 0; // pure virtual fun'
+  +'ction - interface only'#13#10'  // <%%% END PROCEDURE_OPERATIONS %%%>'#13#10
+  +'};'#13#10#13#10'class DELPHICLASS T%SERVICE_NAME%_Proxy;'#13#10'class T%SER'
+  +'VICE_NAME%_Proxy : public %SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%'#13
+  +#10'{'#13#10'  typedef %SERVICE_PROXY_ANCESTOR_NAME% inherited;'#13#10'  '#13
+  +#10'protected:'#13#10'  virtual AnsiString __fastcall __GetInterfaceName()'
+  +#13#10'    { return "%SERVICE_NAME%"; }'#13#10#13#10'  // <%%% START FUNCTIO'
+  +'N_OPERATIONS %%%>'#13#10'  // <%%% START IF_RESULT_SIMPLE %%%>'#13#10'  vir'
+  +'tual %OPERATION_RESULT% __fastcall %OPERATION_NAME%('#13#10'  // <%%% END I'
+  +'F_RESULT_SIMPLE %%%>'#13#10'  // <%%% START IF_RESULT_COMPLEX %%%>'#13#10' '
+  +' virtual %OPERATION_RESULT%* __fastcall %OPERATION_NAME%('#13#10'  // <%%% '
+  +'END IF_RESULT_COMPLEX %%%>'#13#10'    // <%%% START PARAMS %%%>'#13#10'    '
+  +'// <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    %PARAM_FRONT_MODIFIER% %'
+  +'PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'    // <%%% END IF_P'
+  +'ARAM_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'
+  +#13#10'    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM'
+  +'_NAME%,'#13#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <%%'
+  +'% END PARAMS %%%>'#13#10'    );'#13#10'  // <%%% END FUNCTION_OPERATIONS %%'
+  +'%>'#13#10'  // <%%% START PROCEDURE_OPERATIONS %%%>'#13#10'  virtual void _'
+  +'_fastcall %OPERATION_NAME%('#13#10'    // <%%% START PARAMS %%%>'#13#10'   '
+  +' // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    %PARAM_FRONT_MODIFIER% '
+  +'%PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'    // <%%% END IF_'
+  +'PARAM_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'
+  +#13#10'    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM'
+  +'_NAME%,'#13#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <%%'
+  +'% END PARAMS %%%>'#13#10'    );'#13#10'  // <%%% END PROCEDURE_OPERATIONS %'
+  +'%%>'#13#10'  '#13#10'public:'#13#10'  #pragma option push -w-inl'#13#10'  /'
+  +'* TROProxy.Create */ inline __fastcall virtual T%SERVICE_NAME%_Proxy(const '
+  +'Uroclientintf::_di_IROMessage aMessage, const Uroclientintf::_di_IROTranspo'
+  +'rtChannel aTransportChannel)/* overload */ :'#13#10'    %SERVICE_PROXY_ANCE'
+  +'STOR_NAME%(aMessage, aTransportChannel) {}'#13#10'  #pragma option pop'#13
+  +#10'  '#13#10'  virtual HRESULT __stdcall QueryInterface(const GUID& IID, vo'
+  +'id **Obj) {'#13#10'    return inherited::QueryInterface(IID, (void *)Obj); '
+  +'}'#13#10#13#10'  virtual ULONG __stdcall AddRef() {'#13#10'    return inher'
+  +'ited::_AddRef();  }'#13#10#13#10'  virtual ULONG __stdcall Release() {'#13
+  +#10'    return inherited::_Release(); }'#13#10'};'#13#10#13#10'// Co%SERVICE'
+  +'_NAME%'#13#10'class DELPHICLASS Co%SERVICE_NAME%;'#13#10'class Co%SERVICE_N'
+  +'AME% : public System::TObject'#13#10'{'#13#10'  typedef System::TObject inh'
+  +'erited;'#13#10#13#10'public:'#13#10'  static _di_I%SERVICE_NAME% __fastcall'
+  +' Create(const Uroclientintf::_di_IROMessage aMessage,'#13#10'              '
+  +'          Uroclientintf::_di_IROTransportChannel aTransportChannel)'#13#10
+  ,'  {'#13#10'    _di_I%SERVICE_NAME% result;'#13#10'    T%SERVICE_NAME%_Proxy'
+  +'* proxy = new T%SERVICE_NAME%_Proxy(aMessage, aTransportChannel);'#13#10'  '
+  +'  if (proxy->QueryInterface(I%SERVICE_NAME%_IID, reinterpret_cast<void**>(&'
+  +'result)) != S_OK)'#13#10'    {'#13#10'      delete proxy;'#13#10'      thro'
+  +'w EIntfCastError::EIntfCastError("I%SERVICE_NAME% not supported");'#13#10' '
+  +'   }'#13#10'    return result;'#13#10'  };'#13#10#13#10'  static _di_I%SERV'
+  +'ICE_NAME% __fastcall Create( Uroclient::TROMessage* aMessage,'#13#10'      '
+  +'                  Uroclient::TROTransportChannel *aTransportChannel)'#13#10
+  +'  {'#13#10'    _di_IROMessage __Message;'#13#10'    _di_IROTransportChannel'
+  +' __TransportChannel;'#13#10#13#10'    if (aMessage->GetInterface(__Message)'
+  +')'#13#10'    {'#13#10'      if (aTransportChannel->GetInterface(__Transport'
+  +'Channel))'#13#10'        return Create(__Message, __TransportChannel);'#13
+  +#10'      else'#13#10'        throw EIntfCastError::EIntfCastError("IROTrans'
+  +'portChannel not supported");'#13#10'    }'#13#10'    else'#13#10'    {'#13
+  +#10'      throw EIntfCastError::EIntfCastError("IROMessage not supported");'
+  +#13#10'    }'#13#10'  };'#13#10'};'#13#10#13#10'// <%%% END SERVICES %%%>'#13
+  +#10'// <%%% START EVENT_SINKS %%%>'#13#10'/* I%EVENT_SINK_NAME% */'#13#10'//'
+  +' <%%% START DOCUMENTATION %%%>'#13#10#13#10'/* Description:'#13#10'    %CON'
+  +'TENT% */'#13#10'// <%%% END DOCUMENTATION %%%>'#13#10'__interface I%EVENT_S'
+  +'INK_NAME%;'#13#10'typedef System::DelphiInterface<I%EVENT_SINK_NAME%> _di_I'
+  +'%EVENT_SINK_NAME%;'#13#10'__interface INTERFACE_UUID("%EVENT_SINK_UID%") I%'
+  +'EVENT_SINK_NAME% : public %EVENT_SINK_ANCESTOR_NAME%'#13#10'{'#13#10'public'
+  +':'#13#10'  // <%%% START OPERATIONS %%%>'#13#10'  virtual void __fastcall %'
+  +'OPERATION_NAME%('#13#10'    // <%%% START PARAMS %%%>'#13#10'    // <%%% ST'
+  +'ART IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    %PARAM_FRONT_MODIFIER% %PARAM_TYPE'
+  +'% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'    // <%%% END IF_PARAM_TYPE_'
+  +'SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    '
+  +'%PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13
+  +#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <%%% END PARAMS'
+  +' %%%>'#13#10'    ) = 0; // pure virtual function - interface only'#13#10'  '
+  +'// <%%% END OPERATIONS %%%>'#13#10'};'#13#10#13#10'/* I%EVENT_SINK_NAME%_Wr'
+  +'iter */'#13#10'// <%%% START DOCUMENTATION %%%>'#13#10#13#10'/* Description'
+  +':'#13#10'    %CONTENT% */'#13#10'// <%%% END DOCUMENTATION %%%>'#13#10'__in'
+  +'terface I%EVENT_SINK_NAME%_Writer;'#13#10'typedef System::DelphiInterface<I'
+  +'%EVENT_SINK_NAME%_Writer> _di_I%EVENT_SINK_NAME%_Writer;'#13#10'__interface'
+  +' INTERFACE_UUID("%EVENT_SINK_UID%") I%EVENT_SINK_NAME%_Writer : public I%EV'
+  +'ENT_SINK_WRITER_ANCESTOR_NAME%'#13#10'{'#13#10'public:'#13#10'  // <%%% STA'
+  +'RT OPERATIONS %%%>'#13#10'  virtual void __fastcall %OPERATION_NAME%(GUID _'
+  +'_Sender '#13#10'    // <%%% START PARAMS %%%>'#13#10'    // <%%% START IF_P'
+  +'ARAM_TYPE_SIMPLE %%%>'#13#10'    , %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PAR'
+  +'AM_BACK_MODIFIER% %PARAM_NAME%'#13#10'    // <%%% END IF_PARAM_TYPE_SIMPLE '
+  +'%%%>'#13#10'    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    , %PARA'
+  +'M_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%'#13#10' '
+  +'   // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'    // <%%% END PARAMS %%%'
+  +'>'#13#10'    ) = 0; // pure virtual function - interface only'#13#10'  // <'
+  +'%%% END OPERATIONS %%%>'#13#10'};'#13#10#13#10'// <%%% END EVENT_SINKS %%%>'
+  +#13#10'}  // namespace %NAMESPACE_NAME%'#13#10#13#10'using namespace %NAMESP'
+  +'ACE_NAME%;'#13#10'#pragma pack(pop)'#13#10'#pragma option pop'#13#10#13#10
+  +'#pragma delphiheader end.'#13#10'#endif  // %UNIT_NAME%H'#13#10#13#10
+]);
+LazarusResources.Add('TEMPLATE_INVK_CPP','RCDATA',[
+  '// %UNIT_NAME%'#13#10'//'#13#10'/*------------------------------------------'
+  +'---------------------------------}'#13#10'{ This unit was automatically gen'
+  +'erated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associ'
+  +'ated with this project.                                }'#13#10'{          '
+  +'                                                                  }'#13#10
+  +'{ Do not modify this unit manually, or your changes will be lost when this '
+  +'  }'#13#10'{ unit is regenerated the next time you compile the project.    '
+  +'             }'#13#10'{----------------------------------------------------'
+  +'-----------------------*/'#13#10#13#10'// RemObjects:'#13#10'#include <uROR'
+  +'es.HPP>'#13#10'#include <uROClient.HPP>'#13#10#13#10'// Interface of %LIBRA'
+  +'RY_NAME%'#13#10'#include "%LIBRARY_NAME%_Intf.h"'#13#10#13#10'// Implementa'
+  +'tion of %LIBRARY_NAME%'#13#10'#include "%LIBRARY_NAME%_Invk.h"'#13#10#13#10
+  +'// <%%% START SERVICES %%%>'#13#10'// T%SERVICE_NAME%_Invoker'#13#10#13#10
+  +'// <%%% START FUNCTION_OPERATIONS %%%>'#13#10'void __fastcall T%SERVICE_NAM'
+  +'E%_Invoker::Invoke_%OPERATION_NAME%('#13#10#9#9'const System::_di_IInterfac'
+  +'e __Instance,'#13#10#9#9'const Uroclientintf::_di_IROMessage __Message,'#13
+  +#10#9#9'const Uroclientintf::_di_IROTransport __Transport,'#13#10#9#9'/* out'
+  +' */ Uroserverintf::TROResponseOptions& __oResponseOptions)'#13#10'{'#13#10
+  +'// <%%% START IF_RESULT_SIMPLE %%%>'#13#10'// virtual %OPERATION_RESULT% __'
+  +'fastcall %OPERATION_NAME%('#13#10'// <%%% END IF_RESULT_SIMPLE %%%>'#13#10
+  +'// <%%% START IF_RESULT_COMPLEX %%%>'#13#10'// virtual %OPERATION_RESULT%* '
+  +'__fastcall %OPERATION_NAME%('#13#10'// <%%% END IF_RESULT_COMPLEX %%%>'#13
+  +#10'// <%%% START PARAMS %%%>'#13#10'// <%%% START IF_PARAM_TYPE_SIMPLE %%%>'
+  +#13#10'//   %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM'
+  +'_NAME%,'#13#10'// <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'// <%%% START I'
+  +'F_PARAM_TYPE_COMPLEX %%%>'#13#10'//   %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* '
+  +'%PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'// <%%% END IF_PARAM_TYPE_COMPLE'
+  +'X %%%>'#13#10'// <%%% END PARAMS %%%>'#13#10'//   );'#13#10#13#10'  // <%%%'
+  +' START PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%'
+  +'>'#13#10'  %PARAM_TYPE% %PARAM_NAME%;'#13#10'  // <%%% END IF_PARAM_TYPE_SI'
+  +'MPLE %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM'
+  +'_TYPE%* %PARAM_NAME% = NULL;'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%'
+  +'>'#13#10'  // <%%% END PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_RESUL'
+  +'T_SIMPLE %%%>'#13#10'  %OPERATION_RESULT% lResult;'#13#10'  // <%%% END IF_'
+  +'RESULT_SIMPLE %%%>'#13#10'  // <%%% START IF_RESULT_COMPLEX %%%>'#13#10'  %'
+  +'OPERATION_RESULT%* lResult = NULL;'#13#10'  // <%%% END IF_RESULT_COMPLEX %'
+  +'%%>'#13#10'  try'#13#10'  {'#13#10#9'_di_I%SERVICE_NAME% __%SERVICE_NAME%In'
+  +'stance;'#13#10#9'if (__Instance->Supports(__%SERVICE_NAME%Instance))'#13#10
+  +#9'{'#13#10#9'  // <%%% START IN_PARAMS_NO_STRIP %%%>'#13#10#9'  // <%%% STA'
+  +'RT IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9'  __Message->Read("%PARAM_NAME%", __G'
+  +'et%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13
+  +#10#9'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9'  // <%%% START IF_PA'
+  +'RAM_TYPE_COMPLEX %%%>'#13#10#9'  __Message->Read("%PARAM_NAME%", __typeinfo'
+  +'(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10
+  +#9'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10#9'  // <%%% END IN_PARAMS'
+  +'_NO_STRIP %%%>'#13#10#13#10#9'  lResult = __%SERVICE_NAME%Instance->%OPERAT'
+  +'ION_NAME%('#13#10#9#9#9#9#9#9#9#9#9#9#9'// <%%% START PARAMS %%%>'#13#10#9#9
+  +#9#9#9#9#9#9#9#9#9'%PARAM_NAME%,'#13#10#9#9#9#9#9#9#9#9#9#9#9'// <%%% END PA'
+  +'RAMS %%%>'#13#10#9#9#9#9#9#9#9#9#9#9#9');'#13#10#13#10#9'  __Message->Initi'
+  +'alizeResponseMessage(__Transport, "%LIBRARY_NAME%", "%SERVICE_NAME%", "%OPE'
+  +'RATION_NAME%Response");'#13#10#9'  // <%%% START IF_RESULT_SIMPLE %%%>'#13
+  +#10#9'  __Message->Write("Result", __Get%OPERATION_RESULT%Info, &lResult, TP'
+  +'aramAttributes(%OPERATION_RESULT_ATTRIBUTE%));'#13#10#9'  // <%%% END IF_RE'
+  +'SULT_SIMPLE %%%>'#13#10#9'  // <%%% START IF_RESULT_COMPLEX %%%>'#13#10#9' '
+  +' __Message->Write("Result", __typeinfo(%OPERATION_RESULT%), &lResult, TPara'
+  +'mAttributes(%OPERATION_RESULT_ATTRIBUTE%));'#13#10#9'  // <%%% END IF_RESUL'
+  +'T_COMPLEX %%%>'#13#10#9'  // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13#10#9' '
+  +' // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9'  __Message->Write("%PARA'
+  +'M_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATT'
+  +'RIBUTE%));'#13#10#9'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9'  // <'
+  +'%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10#9'  __Message->Write("%PARAM_NA'
+  +'ME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTR'
+  +'IBUTE%));'#13#10#9'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10#9'  // <'
+  +'%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10#9'  __Message->Finalize();'#13#10#9
+  ,'  __Message->UnsetAttributes(__Transport);'#13#10#9'}'#13#10#9'else'#13#10#9
+  +'{'#13#10#9'  throw new EIntfCastError("Critical error in Invoker: Instance '
+  +'does not support I%SERVICE_NAME% interface");'#13#10#9'}'#13#10'  }'#13#10
+  +'  __finally'#13#10'  {'#13#10#9'// <%%% START IF_HAS_COMPLEX_TYPE %%%>'#13
+  +#10#9'TROObjectDisposer* __lObjectDisposer = new TROObjectDisposer(__Instanc'
+  +'e);'#13#10#9'try'#13#10#9'{'#13#10#9'  // <%%% START PARAMS_NO_STRIP %%%>'
+  +#13#10#9'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10#9'  __lObjectDisp'
+  +'oser->Add(%PARAM_NAME%);'#13#10#9'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'
+  +#13#10#9'  // <%%% END PARAMS_NO_STRIP %%%>'#13#10#9'  // <%%% START IF_RESU'
+  +'LT_COMPLEX %%%>'#13#10#9'  __lObjectDisposer->Add(lResult);'#13#10#9'  // <'
+  +'%%% END IF_RESULT_COMPLEX %%%>'#13#10#9'}'#13#10#9'__finally'#13#10#9'{'#13
+  +#10#9'  delete __lObjectDisposer;'#13#10#9'}'#13#10#9'// <%%% END IF_HAS_COM'
+  +'PLEX_TYPE %%%>'#13#10'  }'#13#10'}'#13#10#13#10'// <%%% END FUNCTION_OPERAT'
+  +'IONS %%%>'#13#10'// <%%% START PROCEDURE_OPERATIONS %%%>'#13#10'void __fast'
+  +'call T%SERVICE_NAME%_Invoker::Invoke_%OPERATION_NAME%('#13#10#9#9'const Sys'
+  +'tem::_di_IInterface __Instance,'#13#10#9#9'const Uroclientintf::_di_IROMess'
+  +'age __Message,'#13#10#9#9'const Uroclientintf::_di_IROTransport __Transport'
+  +','#13#10#9#9'/* out */ Uroserverintf::TROResponseOptions& __oResponseOption'
+  +'s)'#13#10'{'#13#10'// virtual void __fastcall %OPERATION_NAME%('#13#10'// <'
+  +'%%% START PARAMS %%%>'#13#10'// <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10
+  +'//   %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%'
+  +','#13#10'// <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'// <%%% START IF_PARA'
+  +'M_TYPE_COMPLEX %%%>'#13#10'//   %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM'
+  +'_BACK_MODIFIER% %PARAM_NAME%,'#13#10'// <%%% END IF_PARAM_TYPE_COMPLEX %%%>'
+  +#13#10'// <%%% END PARAMS %%%>'#13#10'//   );'#13#10#13#10'  // <%%% START P'
+  +'ARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10
+  +'  %PARAM_TYPE% %PARAM_NAME%;'#13#10'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'
+  +#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_TYPE%* %PA'
+  +'RAM_NAME%;'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%%'
+  +' END PARAMS_NO_STRIP %%%>'#13#10'  try'#13#10'  {'#13#10#9'_di_I%SERVICE_NA'
+  +'ME% __%SERVICE_NAME%Instance;'#13#10#9'if (__Instance->Supports(__%SERVICE_'
+  +'NAME%Instance))'#13#10#9'{'#13#10#9'  // <%%% START IN_PARAMS_NO_STRIP %%%>'
+  +#13#10#9'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9'  __Message->Rea'
+  +'d("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%P'
+  +'ARAM_ATTRIBUTE%));'#13#10#9'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9
+  +'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10#9'  __Message->Read("%PAR'
+  +'AM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM'
+  +'_ATTRIBUTE%));'#13#10#9'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10#9' '
+  +' // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10#13#10#9'  __%SERVICE_NAME%Insta'
+  +'nce->%OPERATION_NAME%('#13#10#9#9#9#9#9#9#9#9'  // <%%% START PARAMS %%%>'
+  +#13#10#9#9#9#9#9#9#9#9'  %PARAM_NAME%,'#13#10#9#9#9#9#9#9#9#9'  // <%%% END '
+  +'PARAMS %%%>'#13#10#9#9#9#9#9#9#9#9'  );'#13#10#13#10#9'  __Message->Initial'
+  +'izeResponseMessage(__Transport, "%LIBRARY_NAME%", "%SERVICE_NAME%", "%OPERA'
+  +'TION_NAME%Response");'#13#10#9'  // <%%% START OUT_PARAMS_NO_STRIP %%%>'#13
+  +#10#9'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9'  __Message->Write('
+  +'"%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PAR'
+  +'AM_ATTRIBUTE%));'#13#10#9'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10#9
+  +'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10#9'  __Message->Write("%PA'
+  +'RAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARA'
+  +'M_ATTRIBUTE%));'#13#10#9'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10#9
+  +'  // <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10#9'  __Message->Finalize();'#13
+  +#10#9'  __Message->UnsetAttributes(__Transport);'#13#10#9'  // <%%% START IF'
+  +'_NO_OUT_PARAMS %%%>'#13#10#13#10#9'  __oResponseOptions = TROResponseOption'
+  +'s() << roNoResponse;'#13#10#9'  // <%%% END IF_NO_OUT_PARAMS %%%>'#13#10#9
+  +'}'#13#10#9'else'#13#10#9'{'#13#10#9'  throw new EIntfCastError("Critical er'
+  +'ror in Invoker: Instance does not support %SERVICE_NAME% interface");'#13#10
+  +#9'}'#13#10'  }'#13#10'  __finally'#13#10'  {'#13#10#9'// <%%% START IF_HAS_'
+  +'COMPLEX_TYPE %%%>'#13#10#9'TROObjectDisposer* __lObjectDisposer = new TROOb'
+  +'jectDisposer(__Instance);'#13#10#9'try'#13#10#9'{'#13#10#9'  // <%%% START '
+  +'PARAMS_NO_STRIP %%%>'#13#10#9'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13
+  +#10#9'  __lObjectDisposer->Add(%PARAM_NAME%);'#13#10#9'  // <%%% END IF_PARA'
+  +'M_TYPE_COMPLEX %%%>'#13#10#9'  // <%%% END PARAMS_NO_STRIP %%%>'#13#10#9'}'
+  +#13#10#9'__finally'#13#10#9'{'#13#10#9'  delete __lObjectDisposer;'#13#10#9
+  +'}'#13#10#9'// <%%% END IF_HAS_COMPLEX_TYPE %%%>'#13#10'  }'#13#10'}'#13#10
+  ,'// <%%% END PROCEDURE_OPERATIONS %%%>'#13#10'// <%%% END SERVICES %%%>'#13
+  +#10#13#10
+]);
+LazarusResources.Add('TEMPLATE_INVK_H','RCDATA',[
+  '// %UNIT_NAME%'#13#10'//'#13#10'/*------------------------------------------'
+  +'---------------------------------}'#13#10'{ This unit was automatically gen'
+  +'erated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associ'
+  +'ated with this project.                                }'#13#10'{          '
+  +'                                                                  }'#13#10
+  +'{ Do not modify this unit manually, or your changes will be lost when this '
+  +'  }'#13#10'{ unit is regenerated the next time you compile the project.    '
+  +'             }'#13#10'{----------------------------------------------------'
+  +'-----------------------*/'#13#10#13#10'#ifndef %UNIT_NAME%H'#13#10'#define '
+  +'%UNIT_NAME%H'#13#10#13#10'#pragma delphiheader begin'#13#10'#pragma option '
+  +'push'#13#10'#pragma option -w-      // All warnings off'#13#10'#pragma opti'
+  +'on -Vx      // Zero-length empty class member functions'#13#10'#pragma pack'
+  +'(push,8)'#13#10#13#10'#include <System.hpp>'#9#9#9'    // Pascal unit'#13#10
+  +'#include <Uroserver.hpp>'#9'    // Pascal unit'#13#10'// <%%% START REQUIRE'
+  +'D_UNITS %%%>'#13#10'#include <%REQUIRED_UNIT_NAME%.hpp>'#13#10'// <%%% END '
+  +'REQUIRED_UNITS %%%>'#13#10#13#10'#include "%LIBRARY_NAME%_Intf.h"'#13#10#13
+  +#10'namespace %NAMESPACE_NAME%'#13#10'{'#13#10'//-- type declarations ------'
+  +'-------------------------------------------------'#13#10'typedef Classes::T'
+  +'SeekOrigin TSeekOrigin;   // Fake declaration '#13#10#13#10'// <%%% START S'
+  +'ERVICES %%%>'#13#10'class DELPHICLASS T%SERVICE_NAME%_Invoker : public TROI'
+  +'nvoker'#13#10'{'#13#10'  typedef Uroserver::TROInvoker inherited;'#13#10#13
+  +#10'  __published:'#13#10'    // <%%% START FUNCTION_OPERATIONS %%%>'#13#10
+  +'    void __fastcall Invoke_%OPERATION_NAME%('#13#10'        const System::_'
+  +'di_IInterface __Instance,'#13#10'        const Uroclientintf::_di_IROMessag'
+  +'e __Message,'#13#10'        const Uroclientintf::_di_IROTransport __Transpo'
+  +'rt,'#13#10'        /* out */ Uroserverintf::TROResponseOptions& __oResponse'
+  +'Options);'#13#10'    // <%%% END FUNCTION_OPERATIONS %%%>'#13#10'    // <%%'
+  +'% START PROCEDURE_OPERATIONS %%%>'#13#10'    void __fastcall Invoke_%OPERAT'
+  +'ION_NAME%('#13#10'        const System::_di_IInterface __Instance,'#13#10' '
+  +'       const Uroclientintf::_di_IROMessage __Message,'#13#10'        const '
+  +'Uroclientintf::_di_IROTransport __Transport,'#13#10'        /* out */ Urose'
+  +'rverintf::TROResponseOptions& __oResponseOptions);'#13#10'    // <%%% END P'
+  +'ROCEDURE_OPERATIONS %%%>'#13#10'  public:'#13#10#9'#pragma option push -w-i'
+  +'nl'#13#10#9'/* TROInvoker.Create */ inline __fastcall virtual T%SERVICE_NAM'
+  +'E%_Invoker(): Uroserver::TROInvoker() {}'#13#10#9'#pragma option pop'#13#10
+  +#9'#pragma option push -w-inl'#13#10#9'/* TROInvoker.Destroy */ inline __fas'
+  +'tcall virtual ~T%SERVICE_NAME%_Invoker() {}'#13#10#9'#pragma option pop'#13
+  +#10#13#10'  protected:'#13#10'  private:'#13#10'};'#13#10'// <%%% END SERVIC'
+  +'ES %%%>'#13#10#13#10'}'#9'// namespace %NAMESPACE_NAME%'#13#10'using namesp'
+  +'ace %NAMESPACE_NAME%;'#13#10'#pragma pack(pop)'#13#10'#pragma option pop'#13
+  +#10'#pragma delphiheader end.'#13#10'//-- end H ----------------------------'
+  +'------------------------------------'#13#10'#endif'#9'// %UNIT_NAME%H'#13#10
+  +#13#10
+]);
+LazarusResources.Add('TEMPLATE_IMPL_CPP','RCDATA',[
+  '// <%%% START SERVICES %%%>'#13#10'// unit %UNIT_NAME%'#13#10'//'#13#10'/*--'
+  +'-------------------------------------------------------------------------}'
+  +#13#10'{ This unit was automatically generated by the RemObjects SDK after r'
+  +'eading  }'#13#10'{ the RODL file associated with this project .            '
+  +'                   }'#13#10'{                                              '
+  +'                              }'#13#10'{ Modify this unit to provide implem'
+  +'entation for your service.              */'#13#10#13#10'// Interface of %LI'
+  +'BRARY_NAME%'#13#10'#include "%LIBRARY_NAME%_Intf.h"'#13#10#13#10'// Our hea'
+  +'der file'#13#10'#include "%UNIT_NAME%.h"'#13#10#13#10'// Invoker interface'
+  +#13#10'#include "%LIBRARY_NAME%_Invk.h"'#13#10#13#10'// <%%% START IF_DATA_M'
+  +'ODULE %%%>'#13#10'#pragma link "Uroremotedatamodule"'#13#10'// <%%% END IF_'
+  +'DATA_MODULE %%%>'#13#10'#pragma link "Uroserver"'#13#10#13#10'// <%%% START'
+  +' IF_DATA_MODULE %%%>'#13#10'//---------------------------------------------'
+  +'------------------------------'#13#10'#pragma package(smart_init)'#13#10'#p'
+  +'ragma resource "*.dfm"    '#13#10'T%SERVICE_NAME% *%SERVICE_NAME%;'#13#10'/'
+  +'/--------------------------------------------------------------------------'
+  +'-'#13#10'// <%%% END IF_DATA_MODULE %%%>'#13#10'void __fastcall Create_%SER'
+  +'VICE_NAME%(/*out*/ _di_IInterface& anInstance)'#13#10'{'#13#10'  anInstance'
+  +' = new T%SERVICE_NAME%('#13#10'    // <%%% START IF_DATA_MODULE %%%>'#13#10
+  +'    NULL'#13#10'    // <%%% END IF_DATA_MODULE %%%>'#13#10'    )->operator '
+  +'IROObjectRetainer *();'#13#10'}'#13#10#13#10'// %SERVICE_NAME%'#13#10'// <%'
+  +'%% START IF_DATA_MODULE %%%>'#13#10#13#10'__fastcall T%SERVICE_NAME%::T%SER'
+  +'VICE_NAME%(Classes::TComponent* aOwner)'#13#10'    : TRORemoteDataModule(aO'
+  +'wner)'#13#10'{'#13#10'}'#13#10'// <%%% END IF_DATA_MODULE %%%>'#13#10'// <%'
+  +'%% START FUNCTION_OPERATIONS %%%>'#13#10'// <%%% START IF_RESULT_SIMPLE %%%'
+  +'>'#13#10'%OPERATION_RESULT% __fastcall T%SERVICE_NAME%::%OPERATION_NAME%('
+  +#13#10'// <%%% END IF_RESULT_SIMPLE %%%>'#13#10'// <%%% START IF_RESULT_COMP'
+  +'LEX %%%>'#13#10'%OPERATION_RESULT%* __fastcall T%SERVICE_NAME%::%OPERATION_'
+  +'NAME%('#13#10'// <%%% END IF_RESULT_COMPLEX %%%>'#13#10'  // <%%% START PAR'
+  +'AMS %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  %PARAM_F'
+  +'RONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'  //'
+  +' <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_CO'
+  +'MPLEX %%%>'#13#10'  %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFI'
+  +'ER% %PARAM_NAME%,'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  '
+  +'// <%%% END PARAMS %%%>'#13#10'  )'#13#10'{'#13#10'  // Insert your impleme'
+  +'ntation code for %SERVICE_NAME%::%OPERATION_NAME% here'#13#10'}'#13#10'// <'
+  +'%%% END FUNCTION_OPERATIONS %%%>'#13#10#13#10'// <%%% START PROCEDURE_OPERA'
+  +'TIONS %%%>'#13#10'void __fastcall T%SERVICE_NAME%::%OPERATION_NAME%('#13#10
+  +'  // <%%% START PARAMS %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%'
+  +'>'#13#10'  %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM'
+  +'_NAME%,'#13#10'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  // <%%% STA'
+  +'RT IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PARAM_FRONT_MODIFIER% %PARAM_TYPE%*'
+  +' %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'  // <%%% END IF_PARAM_TYPE_COM'
+  +'PLEX %%%>'#13#10'  // <%%% END PARAMS %%%>'#13#10'  )'#13#10'{'#13#10'  // '
+  +'Insert your implementation code for %SERVICE_NAME%::%OPERATION_NAME% here'
+  +#13#10'}'#13#10'// <%%% END PROCEDURE_OPERATIONS %%%>'#13#10#13#10'void __in'
+  +'itialization_%UNIT_NAME%();'#13#10#13#10'#pragma startup __initialization_%'
+  +'UNIT_NAME%'#13#10#13#10'void __initialization_%UNIT_NAME%()'#13#10'{'#13#10
+  +'  new TROClassFactory("%SERVICE_NAME%", Create_%SERVICE_NAME%, __classid(T%'
+  +'SERVICE_NAME%_Invoker));'#13#10'}'#13#10#13#10
+]);
+LazarusResources.Add('TEMPLATE_IMPL_H','RCDATA',[
+  '// <%%% START SERVICES %%%>'#13#10'// unit %UNIT_NAME%'#13#10'//'#13#10'/*--'
+  +'-------------------------------------------------------------------------}'
+  +#13#10'{ This unit was automatically generated by the RemObjects SDK after r'
+  +'eading  }'#13#10'{ the RODL file associated with this project .            '
+  +'                   }'#13#10'{                                              '
+  +'                              }'#13#10'{ Do not modify this unit manually, '
+  +'or your changes will be lost when this   }'#13#10'{ unit is regenerated the'
+  +' next time you compile your project.                }'#13#10'{             '
+  +'                                                               }'#13#10'{ M'
+  +'odify the %UNIT_NAME%.cpp file to change the implementation details of    }'
+  +#13#10'{ this service.                                                      '
+  +'        }'#13#10'{---------------------------------------------------------'
+  +'------------------*/'#13#10#13#10'#ifndef %UNIT_NAME%H'#13#10'#define %UNIT'
+  +'_NAME%H'#13#10#13#10'#include <System.hpp>'#9'          // Pascal unit'#13
+  +#10'// <%%% START IF_DATA_MODULE %%%>'#13#10'#include <Classes.hpp>'#13#10'#'
+  +'include <Controls.hpp>'#13#10'#include <StdCtrls.hpp>'#13#10'#include <Form'
+  +'s.hpp>'#13#10'#include <uRORemoteDataModule.hpp>  // Pascal unit'#13#10'// '
+  +'<%%% END IF_DATA_MODULE %%%>'#13#10'#include <Uroserver.hpp>        // Pasc'
+  +'al unit'#13#10'#include "%LIBRARY_NAME%_intf.h"'#13#10#13#10'// T%SERVICE_N'
+  +'AME%'#13#10'class T%SERVICE_NAME% : public %SERVICE_ANCESTOR_NAME%, I%SERVI'
+  +'CE_NAME%  // implements I%SERVICE_NAME%'#13#10'{'#13#10'  typedef %SERVICE_'
+  +'ANCESTOR_NAME% inherited;'#13#10#13#10'// <%%% START IF_DATA_MODULE %%%>'#13
+  +#10'__published:   // this line is required or the IDE will consider the dec'
+  +'laration of the datamodule is incorrect.'#9#13#10'// <%%% END IF_DATA_MODUL'
+  +'E %%%>'#13#10'protected:'#13#10'  // I%SERVICE_NAME% methods'#13#10'  // <%'
+  +'%% START FUNCTION_OPERATIONS %%%>'#13#10'  // <%%% START IF_RESULT_SIMPLE %'
+  +'%%>'#13#10'  virtual %OPERATION_RESULT% __fastcall %OPERATION_NAME%('#13#10
+  +'  // <%%% END IF_RESULT_SIMPLE %%%>'#13#10'  // <%%% START IF_RESULT_COMPLE'
+  +'X %%%>'#13#10'  virtual %OPERATION_RESULT%* __fastcall %OPERATION_NAME%('#13
+  +#10'  // <%%% END IF_RESULT_COMPLEX %%%>'#13#10'    // <%%% START PARAMS %%%'
+  +'>'#13#10'    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    %PARAM_FRON'
+  +'T_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'    // '
+  +'<%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_C'
+  +'OMPLEX %%%>'#13#10'    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MOD'
+  +'IFIER% %PARAM_NAME%,'#13#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13
+  +#10'    // <%%% END PARAMS %%%>'#13#10'    );'#13#10'  // <%%% END FUNCTION_'
+  +'OPERATIONS %%%>'#13#10'  // <%%% START PROCEDURE_OPERATIONS %%%>'#13#10'  v'
+  +'irtual void __fastcall %OPERATION_NAME%('#13#10'    // <%%% START PARAMS %%'
+  +'%>'#13#10'    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    %PARAM_FRO'
+  +'NT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'    //'
+  +' <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'    // <%%% START IF_PARAM_TYPE_'
+  +'COMPLEX %%%>'#13#10'    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MO'
+  +'DIFIER% %PARAM_NAME%,'#13#10'    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13
+  +#10'    // <%%% END PARAMS %%%>'#13#10'    );'#13#10'  // <%%% END PROCEDURE'
+  +'_OPERATIONS %%%>'#13#10#13#10'public:'#13#10'  // <%%% START IF_DATA_MODULE'
+  +' %%%>'#13#10'  __fastcall T%SERVICE_NAME%(Classes::TComponent* aOwner);'#13
+  +#10#13#10'  // <%%% END IF_DATA_MODULE %%%>'#13#10'  virtual HRESULT __stdca'
+  +'ll QueryInterface(const GUID& IID, void **Obj) {'#13#10'    return inherite'
+  +'d::QueryInterface(IID, (void *)Obj); }'#13#10#13#10'  virtual ULONG __stdca'
+  +'ll AddRef() {'#13#10'    return inherited::_AddRef();  }'#13#10#13#10'  vir'
+  +'tual ULONG __stdcall Release() {'#13#10'    return inherited::_Release(); }'
+  +#13#10'};'#13#10'// <%%% START IF_DATA_MODULE %%%>'#13#10'//----------------'
+  +'-----------------------------------------------------------'#13#10'extern P'
+  +'ACKAGE T%SERVICE_NAME% *%SERVICE_NAME%;'#13#10'//--------------------------'
+  +'-------------------------------------------------'#13#10'// <%%% END IF_DAT'
+  +'A_MODULE %%%>'#13#10#13#10'#endif'#9'// %UNIT_NAME%H'#13#10#13#10
+]);
+LazarusResources.Add('TEMPLATE_ASYNC_CPP','RCDATA',[
+  '// %UNIT_NAME%'#13#10'//'#13#10'/*------------------------------------------'
+  +'---------------------------------}'#13#10'{ This unit was automatically gen'
+  +'erated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associ'
+  +'ated with this project.                                }'#13#10'{          '
+  +'                                                                  }'#13#10
+  +'{ Do not modify this unit manually, or your changes will be lost when this '
+  +'  }'#13#10'{ unit is regenerated the next time you compile the project.    '
+  +'             }'#13#10'{----------------------------------------------------'
+  +'-----------------------*/'#13#10#13#10'// Implementation of %UNIT_NAME%'#13
+  +#10'#include "%UNIT_NAME%.h"'#13#10#13#10'// <%%% START SERVICES %%%>'#13#10
+  +'// <%%% START FUNCTION_OPERATIONS %%%>'#13#10'void __fastcall T%SERVICE_NAM'
+  +'E%_AsyncProxy::Invoke_%OPERATION_NAME%('#13#10'            // <%%% START IN'
+  +'_PARAMS %%%>'#13#10'            // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13
+  +#10'            %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %P'
+  +'ARAM_NAME%,'#13#10'            // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10
+  +'            // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'            %PA'
+  +'RAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10
+  +'            // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'            // <%'
+  +'%% END IN_PARAMS %%%>'#13#10'            )'#13#10'{'#13#10'  __AssertProxyN'
+  +'otBusy("%OPERATION_NAME%");'#13#10#13#10'  __Message->InitializeRequestMess'
+  +'age(__TransportChannel, "%LIBRARY_NAME%", __InterfaceName, "%OPERATION_NAME'
+  +'%");'#13#10'  // <%%% START IN_PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START '
+  +'IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  __Message->Write("%PARAM_NAME%", __Get%P'
+  +'ARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10
+  +'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  // <%%% START IF_PARAM_TYP'
+  +'E_COMPLEX %%%>'#13#10'  __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_'
+  +'TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'  // <%%'
+  +'% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%% END IN_PARAMS_NO_STRIP %%'
+  +'%>'#13#10#13#10'  __DispatchAsyncRequest("%OPERATION_NAME%", __Message);'#13
+  +#10'}'#13#10#13#10'// <%%% START IF_RESULT_SIMPLE %%%>'#13#10'%OPERATION_RES'
+  +'ULT% __fastcall T%SERVICE_NAME%_AsyncProxy::Retrieve_%OPERATION_NAME%('#13
+  +#10'// <%%% END IF_RESULT_SIMPLE %%%>'#13#10'// <%%% START IF_RESULT_COMPLEX'
+  +' %%%>'#13#10'%OPERATION_RESULT%* __fastcall T%SERVICE_NAME%_AsyncProxy::Ret'
+  +'rieve_%OPERATION_NAME%('#13#10'// <%%% END IF_RESULT_COMPLEX %%%>'#13#10'  '
+  +'          // <%%% START OUT_PARAMS %%%>'#13#10'            // <%%% START IF'
+  +'_PARAM_TYPE_SIMPLE %%%>'#13#10'            %PARAM_FRONT_MODIFIER% %PARAM_TY'
+  +'PE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'            // <%%% END IF_P'
+  +'ARAM_TYPE_SIMPLE %%%>'#13#10'            // <%%% START IF_PARAM_TYPE_COMPLE'
+  +'X %%%>'#13#10'            %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_'
+  +'MODIFIER% %PARAM_NAME%,'#13#10'            // <%%% END IF_PARAM_TYPE_COMPLE'
+  +'X %%%>'#13#10'            // <%%% END OUT_PARAMS %%%>'#13#10'            )'
+  +#13#10'{'#13#10'  // <%%% START IF_RESULT_SIMPLE %%%>'#13#10'  %OPERATION_RE'
+  +'SULT% result;'#13#10'  // <%%% END IF_RESULT_SIMPLE %%%>'#13#10'  // <%%% S'
+  +'TART IF_RESULT_COMPLEX %%%>'#13#10'  %OPERATION_RESULT%* result;'#13#10'  /'
+  +'/ <%%% END IF_RESULT_COMPLEX %%%>'#13#10#13#10'  // <%%% START OUT_PARAMS_N'
+  +'O_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  %PA'
+  +'RAM_NAME% = NULL;'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  '
+  +'// <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_RESULT_COMPL'
+  +'EX %%%>'#13#10'  result = NULL;'#13#10'  // <%%% END IF_RESULT_COMPLEX %%%>'
+  +#13#10#13#10'  TStream* __response = __RetrieveAsyncResponse("%OPERATION_NAM'
+  +'E%");'#13#10'  __Message->ReadFromStream(__response);'#13#10#13#10'  // <%%'
+  +'% START IF_RESULT_SIMPLE %%%>'#13#10'  __Message->Read("Result", __Get%OPER'
+  +'ATION_RESULT%Info, &result, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%))'
+  +';'#13#10'  // <%%% END IF_RESULT_SIMPLE %%%>'#13#10'  // <%%% START IF_RESU'
+  +'LT_COMPLEX %%%>'#13#10'  __Message->Read("Result", __typeinfo(%OPERATION_RE'
+  +'SULT%), result, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));'#13#10'  /'
+  +'/ <%%% END IF_RESULT_COMPLEX %%%>'#13#10'  // <%%% START OUT_PARAMS_NO_STRI'
+  +'P %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  __Message-'
+  +'>Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttribute'
+  +'s(%PARAM_ATTRIBUTE%));'#13#10'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10
+  +'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  __Message->Read("%PARAM'
+  +'_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_AT'
+  +'TRIBUTE%));'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  // <%%'
+  +'% END OUT_PARAMS_NO_STRIP %%%>'#13#10#13#10'  delete __response;'#13#10'  r'
+  ,'eturn result;'#13#10'}'#13#10#13#10'// <%%% END FUNCTION_OPERATIONS %%%>'#13
+  +#10'// <%%% START PROCEDURE_OPERATIONS %%%>'#13#10'void _fastcall T%SERVICE_'
+  +'NAME%_AsyncProxy::Invoke_%OPERATION_NAME%('#13#10'            // <%%% START'
+  +' IN_PARAMS %%%>'#13#10'            // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'
+  +#13#10'            %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER%'
+  +' %PARAM_NAME%,'#13#10'            // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13
+  +#10'            // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'            '
+  +'%PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13
+  +#10'            // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'            //'
+  +' <%%% END IN_PARAMS %%%>'#13#10'            )'#13#10'{'#13#10'  __AssertPro'
+  +'xyNotBusy("%OPERATION_NAME%");'#13#10'  TStream* __request = new TMemoryStr'
+  +'eam();'#13#10#13#10'  __Message->InitializeRequestMessage(__TransportChanne'
+  +'l, "%LIBRARY_NAME%", __InterfaceName, "%OPERATION_NAME%");'#13#10'  // <%%%'
+  +' START IN_PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE '
+  +'%%%>'#13#10'  __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PAR'
+  +'AM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'  // <%%% END IF_PAR'
+  +'AM_TYPE_SIMPLE %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10
+  +'  __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, '
+  +'TParamAttributes(%PARAM_ATTRIBUTE%));'#13#10'  // <%%% END IF_PARAM_TYPE_CO'
+  +'MPLEX %%%>'#13#10'  // <%%% END IN_PARAMS_NO_STRIP %%%>'#13#10'  __Message-'
+  +'>Finalize();'#13#10#13#10'  __Message->WriteToStream(__request);'#13#10'  _'
+  +'_DispatchAsyncRequest("%OPERATION_NAME%", __request, False);'#13#10'}'#13#10
+  +#13#10'// <%%% START IF_OUT_PARAMS %%%>'#13#10'void _fastcall T%SERVICE_NAME'
+  +'%_AsyncProxy::Retrieve_%OPERATION_NAME%('#13#10'            // <%%% START O'
+  +'UT_PARAMS %%%>'#13#10'            // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'
+  +#13#10'            %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER%'
+  +' %PARAM_NAME%,'#13#10'            // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13
+  +#10'            // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'            '
+  +'%PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13
+  +#10'            // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'            //'
+  +' <%%% END OUT_PARAMS %%%>'#13#10'            )'#13#10'{'#13#10'  // <%%% ST'
+  +'ART OUT_PARAMS_NO_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %'
+  +'%%>'#13#10'  %PARAM_NAME% = NULL;'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLE'
+  +'X %%%>'#13#10'  // <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10#13#10'  TStream'
+  +'* __response = __RetrieveAsyncResponse("%OPERATION_NAME%");'#13#10'  __Mess'
+  +'age->ReadFromStream(__response);'#13#10#13#10'  // <%%% START OUT_PARAMS_NO'
+  +'_STRIP %%%>'#13#10'  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'  __Mes'
+  +'sage->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttr'
+  +'ibutes(%PARAM_ATTRIBUTE%));'#13#10'  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'
+  +#13#10'  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  __Message->Read("'
+  +'%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PA'
+  +'RAM_ATTRIBUTE%));'#13#10'  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'  '
+  +'// <%%% END OUT_PARAMS_NO_STRIP %%%>'#13#10#13#10'  delete __response;'#13
+  +#10'}'#13#10#13#10'// <%%% END IF_OUT_PARAMS %%%>'#13#10'// <%%% END PROCEDU'
+  +'RE_OPERATIONS %%%>'#13#10'// <%%% END SERVICES %%%>'#13#10
+]);
+LazarusResources.Add('TEMPLATE_ASYNC_H','RCDATA',[
+  '// %UNIT_NAME%'#13#10'//'#13#10'/*------------------------------------------'
+  +'---------------------------------}'#13#10'{ This unit was automatically gen'
+  +'erated by the RemObjects SDK after reading  }'#13#10'{ the RODL file associ'
+  +'ated with this project.                                }'#13#10'{          '
+  +'                                                                  }'#13#10
+  +'{ Do not modify this unit manually, or your changes will be lost when this '
+  +'  }'#13#10'{ unit is regenerated the next time you compile the project.    '
+  +'             }'#13#10'{----------------------------------------------------'
+  +'-----------------------*/'#13#10#13#10'#ifndef %UNIT_NAME%H'#13#10'#define '
+  +'%UNIT_NAME%H'#13#10#13#10'#pragma delphiheader begin'#13#10'#pragma option '
+  +'push'#13#10'#pragma option -w-      '#9#9'  // All warnings off'#13#10'#pra'
+  +'gma option -Vx      '#9#9'  // Zero-length empty class member functions'#13
+  +#10'#pragma pack(push,8)'#13#10#13#10'#include <System.hpp>'#9#9#9'    // Pa'
+  +'scal unit'#13#10'#include <Uroasync.hpp>'#13#10'// <%%% START REQUIRED_UNIT'
+  +'S %%%>'#13#10'#include <%REQUIRED_UNIT_NAME%.hpp>'#13#10'// <%%% END REQUIR'
+  +'ED_UNITS %%%>'#13#10'#include "%LIBRARY_NAME%_Intf.h"'#13#10#13#10#13#10'na'
+  +'mespace %NAMESPACE_NAME%'#13#10'{'#13#10'// Forward declarations'#13#10'// '
+  +'<%%% START SERVICES %%%>'#13#10'__interface I%SERVICE_NAME%_Async; // = int'
+  +'erface;'#13#10'class DELPHICLASS Co%SERVICE_NAME%_Async;'#13#10'class DELPH'
+  +'ICLASS T%SERVICE_NAME%_AsyncProxy;'#13#10'// <%%% END SERVICES %%%>'#13#10
+  +#13#10'// <%%% START SERVICES %%%>'#13#10'__interface I%SERVICE_NAME%_Async;'
+  +#13#10'typedef System::DelphiInterface<I%SERVICE_NAME%_Async> _di_I%SERVICE_'
+  +'NAME%_Async;'#13#10'__interface INTERFACE_UUID("%SERVICE_UID%") I%SERVICE_N'
+  +'AME%_Async : public %SERVICE_ANCESTOR_NAME%'#13#10'{'#13#10'public:'#13#10
+  +'  // <%%% START FUNCTION_OPERATIONS %%%>'#13#10'  virtual void __fastcall I'
+  +'nvoke_%OPERATION_NAME%('#13#10'              // <%%% START IN_PARAMS %%%>'
+  +#13#10'              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'        '
+  +'      %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME'
+  +'%,'#13#10'              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'      '
+  +'        // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10'              %PARA'
+  +'M_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10
+  +'              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13#10'              /'
+  +'/ <%%% END IN_PARAMS %%%>'#13#10'              ) = 0; // pure virtual funct'
+  +'ion - interface only'#13#10'  // <%%% START IF_RESULT_SIMPLE %%%>'#13#10'  '
+  +'virtual %OPERATION_RESULT% __fastcall Retrieve_%OPERATION_NAME%('#13#10'  /'
+  +'/ <%%% END IF_RESULT_SIMPLE %%%>'#13#10'  // <%%% START IF_RESULT_COMPLEX %'
+  +'%%>'#13#10'  virtual %OPERATION_RESULT%* __fastcall Retrieve_%OPERATION_NAM'
+  +'E%('#13#10'  // <%%% END IF_RESULT_COMPLEX %%%>'#13#10'              // <%%'
+  +'% START OUT_PARAMS %%%>'#13#10'              // <%%% START IF_PARAM_TYPE_SI'
+  +'MPLE %%%>'#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_B'
+  +'ACK_MODIFIER% %PARAM_NAME%,'#13#10'              // <%%% END IF_PARAM_TYPE_'
+  +'SIMPLE %%%>'#13#10'              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'
+  +#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFI'
+  +'ER% %PARAM_NAME%,'#13#10'              // <%%% END IF_PARAM_TYPE_COMPLEX %%'
+  +'%>'#13#10'              // <%%% END OUT_PARAMS %%%>'#13#10'              ) '
+  +'= 0; // pure virtual function - interface only'#13#10'  // <%%% END FUNCTIO'
+  +'N_OPERATIONS %%%>'#13#10#13#10'  // <%%% START PROCEDURE_OPERATIONS %%%>'#13
+  +#10'  virtual void _fastcall Invoke_%OPERATION_NAME%('#13#10'              /'
+  +'/ <%%% START IN_PARAMS %%%>'#13#10'              // <%%% START IF_PARAM_TYP'
+  +'E_SIMPLE %%%>'#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PAR'
+  +'AM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'              // <%%% END IF_PARAM_T'
+  +'YPE_SIMPLE %%%>'#13#10'              // <%%% START IF_PARAM_TYPE_COMPLEX %%'
+  +'%>'#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MO'
+  +'DIFIER% %PARAM_NAME%,'#13#10'              // <%%% END IF_PARAM_TYPE_COMPLE'
+  +'X %%%>'#13#10'              // <%%% END IN_PARAMS %%%>'#13#10'             '
+  +' ) = 0; // pure virtual function - interface only'#13#10'  // <%%% START IF'
+  +'_OUT_PARAMS %%%>'#13#10'  virtual void _fastcall Retrieve_%OPERATION_NAME%('
+  +#13#10'              // <%%% START OUT_PARAMS %%%>'#13#10'              // <'
+  +'%%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'              %PARAM_FRONT_MODIF'
+  +'IER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'              '
+  +'// <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'              // <%%% START IF'
+  +'_PARAM_TYPE_COMPLEX %%%>'#13#10'              %PARAM_FRONT_MODIFIER% %PARAM'
+  +'_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'              // <%%% EN'
+  +'D IF_PARAM_TYPE_COMPLEX %%%>'#13#10'              // <%%% END OUT_PARAMS %%'
+  ,'%>'#13#10'              ) = 0; // pure virtual function - interface only'#13
+  +#10'  // <%%% END IF_OUT_PARAMS %%%>'#13#10'  // <%%% END PROCEDURE_OPERATIO'
+  +'NS %%%>'#13#10'};'#13#10#13#10'// Co%SERVICE_NAME%_Async'#13#10'class DELPH'
+  +'ICLASS Co%SERVICE_NAME%_Async;'#13#10'class Co%SERVICE_NAME%_Async : public'
+  +' System::TObject'#13#10'{'#13#10#9'typedef System::TObject inherited;'#13#10
+  +#13#10'public:'#13#10#9'static _di_I%SERVICE_NAME%_Async __fastcall Create(c'
+  +'onst Uroclientintf::_di_IROMessage aMessage,'#13#10'                       '
+  +' Uroclientintf::_di_IROTransportChannel aTransportChannel)'#13#10'  {'#13#10
+  +'    _di_I%SERVICE_NAME%_Async result;'#13#10'    T%SERVICE_NAME%_AsyncProxy'
+  +'* proxy = new T%SERVICE_NAME%_AsyncProxy(aMessage, aTransportChannel);'#13
+  +#10'    if (proxy->QueryInterface(I%SERVICE_NAME%_IID, reinterpret_cast<void'
+  +'**>(&result)) != S_OK)'#13#10'    {'#13#10'      delete proxy;'#13#10'     '
+  +' throw EIntfCastError::EIntfCastError("I%SERVICE_NAME%_Async not supported"'
+  +');'#13#10'    }'#13#10'    return result;'#13#10'  };'#13#10#13#10'  static'
+  +' _di_I%SERVICE_NAME%_Async __fastcall Create(Uroclient::TROMessage* aMessag'
+  +'e,'#13#10'                        Uroclient::TROTransportChannel *aTranspor'
+  +'tChannel)'#13#10'  {'#13#10'    _di_IROMessage __Message;'#13#10'    _di_IR'
+  +'OTransportChannel __TransportChannel;'#13#10#13#10'    if (aMessage->GetInt'
+  +'erface(__Message))'#13#10'    {'#13#10'      if (aTransportChannel->GetInte'
+  +'rface(__TransportChannel))'#13#10'        return Create(__Message, __Transp'
+  +'ortChannel);'#13#10'      else'#13#10'        throw EIntfCastError::EIntfCa'
+  +'stError("IROTransportChannel not supported");'#13#10'    }'#13#10'    else'
+  +#13#10'    {'#13#10'      throw EIntfCastError::EIntfCastError("IROMessage n'
+  +'ot supported");'#13#10'    }'#13#10'  };'#13#10'};'#13#10#13#10'class DELPH'
+  +'ICLASS T%SERVICE_NAME%_AsyncProxy;'#13#10'class T%SERVICE_NAME%_AsyncProxy '
+  +': public %SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%_Async'#13#10'{'#13
+  +#10#9'typedef %SERVICE_PROXY_ANCESTOR_NAME% inherited;'#13#10#9#13#10'protec'
+  +'ted:'#13#10#9'virtual AnsiString __fastcall __GetInterfaceName()'#13#10'   '
+  +' { return "%SERVICE_NAME%"; }'#13#10#13#10'  // <%%% START FUNCTION_OPERATI'
+  +'ONS %%%>'#13#10'  virtual void __fastcall Invoke_%OPERATION_NAME%('#13#10' '
+  +'             // <%%% START IN_PARAMS %%%>'#13#10'              // <%%% STAR'
+  +'T IF_PARAM_TYPE_SIMPLE %%%>'#13#10'              %PARAM_FRONT_MODIFIER% %PA'
+  +'RAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'              // <%%% '
+  +'END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'              // <%%% START IF_PARAM_T'
+  +'YPE_COMPLEX %%%>'#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* '
+  +'%PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'              // <%%% END IF_PAR'
+  +'AM_TYPE_COMPLEX %%%>'#13#10'              // <%%% END IN_PARAMS %%%>'#13#10
+  +'              );'#13#10'  // <%%% START IF_RESULT_SIMPLE %%%>'#13#10'  virt'
+  +'ual %OPERATION_RESULT% __fastcall Retrieve_%OPERATION_NAME%('#13#10'  // <%'
+  +'%% END IF_RESULT_SIMPLE %%%>'#13#10'  // <%%% START IF_RESULT_COMPLEX %%%>'
+  +#13#10'  virtual %OPERATION_RESULT%* __fastcall Retrieve_%OPERATION_NAME%('
+  +#13#10'  // <%%% END IF_RESULT_COMPLEX %%%>'#13#10'              // <%%% STA'
+  +'RT OUT_PARAMS %%%>'#13#10'              // <%%% START IF_PARAM_TYPE_SIMPLE '
+  +'%%%>'#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_M'
+  +'ODIFIER% %PARAM_NAME%,'#13#10'              // <%%% END IF_PARAM_TYPE_SIMPL'
+  +'E %%%>'#13#10'              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#13#10
+  +'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %P'
+  +'ARAM_NAME%,'#13#10'              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#13
+  +#10'              // <%%% END OUT_PARAMS %%%>'#13#10'              );'#13#10
+  +'  // <%%% END FUNCTION_OPERATIONS %%%>'#13#10#13#10'  // <%%% START PROCEDU'
+  +'RE_OPERATIONS %%%>'#13#10'  virtual void _fastcall Invoke_%OPERATION_NAME%('
+  +#13#10'              // <%%% START IN_PARAMS %%%>'#13#10'              // <%'
+  +'%% START IF_PARAM_TYPE_SIMPLE %%%>'#13#10'              %PARAM_FRONT_MODIFI'
+  +'ER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'              /'
+  +'/ <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#13#10'              // <%%% START IF_'
+  +'PARAM_TYPE_COMPLEX %%%>'#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_'
+  +'TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,'#13#10'              // <%%% END'
+  +' IF_PARAM_TYPE_COMPLEX %%%>'#13#10'              // <%%% END IN_PARAMS %%%>'
+  +#13#10'              );'#13#10'  // <%%% START IF_OUT_PARAMS %%%>'#13#10'  v'
+  +'irtual void _fastcall Retrieve_%OPERATION_NAME%('#13#10'              // <%'
+  +'%% START OUT_PARAMS %%%>'#13#10'              // <%%% START IF_PARAM_TYPE_S'
+  +'IMPLE %%%>'#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_'
+  +'BACK_MODIFIER% %PARAM_NAME%,'#13#10'              // <%%% END IF_PARAM_TYPE'
+  +'_SIMPLE %%%>'#13#10'              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>'
+  ,#13#10'              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFI'
+  +'ER% %PARAM_NAME%,'#13#10'              // <%%% END IF_PARAM_TYPE_COMPLEX %%'
+  +'%>'#13#10'              // <%%% END OUT_PARAMS %%%>'#13#10'              );'
+  +#13#10'  // <%%% END IF_OUT_PARAMS %%%>'#13#10'  // <%%% END PROCEDURE_OPERA'
+  +'TIONS %%%>'#13#10'public:'#13#10#9'#pragma option push -w-inl'#13#10#9'/* T'
+  +'ROProxy.Create */ inline __fastcall virtual T%SERVICE_NAME%_AsyncProxy(cons'
+  +'t Uroclientintf::_di_IROMessage aMessage, const Uroclientintf::_di_IROTrans'
+  +'portChannel aTransportChannel)/* overload */ :'#13#10'    %SERVICE_PROXY_AN'
+  +'CESTOR_NAME%(aMessage, aTransportChannel) {}'#13#10#9'#pragma option pop'#13
+  +#10#9#13#10'  virtual HRESULT __stdcall QueryInterface(const GUID& IID, void'
+  +' **Obj) {'#13#10'    return inherited::QueryInterface(IID, (void *)Obj); }'
+  +#13#10#13#10'  virtual ULONG __stdcall AddRef() {'#13#10'    return inherite'
+  +'d::_AddRef();  }'#13#10#13#10'  virtual ULONG __stdcall Release() {'#13#10
+  +'    return inherited::_Release(); }'#13#10'};'#13#10'// <%%% END SERVICES %'
+  +'%%>'#13#10#13#10'}'#9'// namespace %NAMESPACE_NAME%'#13#10#13#10'using name'
+  +'space %NAMESPACE_NAME%;'#13#10'#pragma pack(pop)'#13#10'#pragma option pop'
+  +#13#10#13#10'#pragma delphiheader end.'#13#10'#endif'#9'// %UNIT_NAME%H'#13
+  +#10#13#10
+]);
+LazarusResources.Add('TEMPLATE_WRAPPER_INTF_H','RCDATA',[
+  '{---------------------------------------------------------------------------'
+  +'-}'#13#10'{ This unit was automatically generated by the RemObjects SDK aft'
+  +'er reading  }'#13#10'{ the RODL file associated with this project .        '
+  +'                       }'#13#10'{                                          '
+  +'                                  }'#13#10'{ Do not modify this unit manual'
+  +'ly, or your changes will be lost when this   }'#13#10'{ unit is regenerated'
+  +' the next time you compile the project.                 }'#13#10'{---------'
+  +'-------------------------------------------------------------------}'#13#10
+  +'#ifndef %UNIT_NAME%_H'#13#10'#define %UNIT_NAME%_H'#13#10#13#10'// <%%% STA'
+  +'RT USES %%%>'#13#10'#include "%USED_UNIT_NAME%.h"'#13#10'// <%%% END USES %'
+  +'%%>'#13#10#13#10'#endif'#13#10
+]);
+LazarusResources.Add('TEMPLATE_WRAPPER_INVK_H','RCDATA',[
+  '{---------------------------------------------------------------------------'
+  +'-}'#13#10'{ This unit was automatically generated by the RemObjects SDK aft'
+  +'er reading  }'#13#10'{ the RODL file associated with this project .        '
+  +'                       }'#13#10'{                                          '
+  +'                                  }'#13#10'{ Do not modify this unit manual'
+  +'ly, or your changes will be lost when this   }'#13#10'{ unit is regenerated'
+  +' the next time you compile the project.                 }'#13#10'{---------'
+  +'-------------------------------------------------------------------}'#13#10
+  +'#ifndef %UNIT_NAME%_H'#13#10'#define %UNIT_NAME%_H'#13#10#13#10'// <%%% STA'
+  +'RT USES %%%>'#13#10'#include "%USED_UNIT_NAME%.h"'#13#10'// <%%% END USES %'
+  +'%%>'#13#10#13#10'#endif'#13#10
+]);
+LazarusResources.Add('TEMPLATE_WRAPPER_ASYNC_H','RCDATA',[
+  '{---------------------------------------------------------------------------'
+  +'-}'#13#10'{ This unit was automatically generated by the RemObjects SDK aft'
+  +'er reading  }'#13#10'{ the RODL file associated with this project .        '
+  +'                       }'#13#10'{                                          '
+  +'                                  }'#13#10'{ Do not modify this unit manual'
+  +'ly, or your changes will be lost when this   }'#13#10'{ unit is regenerated'
+  +' the next time you compile the project.                 }'#13#10'{---------'
+  +'-------------------------------------------------------------------}'#13#10
+  +'#ifndef %UNIT_NAME%_H'#13#10'#define %UNIT_NAME%_H'#13#10#13#10'// <%%% STA'
+  +'RT USES %%%>'#13#10'#include "%USED_UNIT_NAME%.h"'#13#10'// <%%% END USES %'
+  +'%%>'#13#10#13#10'#endif'#13#10
+]);
+LazarusResources.Add('TEMPLATE_OBJC_INTF_M','RCDATA',[
+  '//----------------------------------------------------------------------'#10
+  +'// This file was automatically generated by the RemObjects SDK from a'#10'/'
+  +'/ RODL file associated with this project.                         '#10'//  '
+  +'                                                                         '
+  +#10'// Do not modify this file manually, or your changes will be lost when'
+  +#10'// it is regenerated the next time you update your RODL.               '
+  +#10'//----------------------------------------------------------------------'
+  +#10#10'#include "%LIBRARY_NAME%_Intf.h"'#10#10'#pragma mark enums'#10#10'// '
+  +'<%%% START ENUMS %%%>'#10'@implementation %ENUM_NAME%_EnumMetaData : ROEnum'
+  +'MetaData'#10#10'static %ENUM_NAME%_EnumMetaData *%ENUM_NAME%_EnumMetaDataIn'
+  +'stance = nil;'#10#10'+ (%ENUM_NAME%_EnumMetaData *)instance'#10'{'#10#9'if '
+  +'(!%ENUM_NAME%_EnumMetaDataInstance)'#10#9'{'#10#9#9'%ENUM_NAME%_EnumMetaDat'
+  +'aInstance = [[%ENUM_NAME%_EnumMetaData alloc] init];'#10#9'}'#10#9'return %'
+  +'ENUM_NAME%_EnumMetaDataInstance;'#10'}'#10#10'- (void)dealloc'#10'{'#10#9'['
+  +'stringToValueLookup release];'#10#9'[super dealloc];'#10'}'#10#10'- (NSStri'
+  +'ng *)typeName'#10'{'#10#9'return @"%ENUM_NAME%";'#10'}'#10#10'- (NSString *'
+  +')stringFromValue:(int32) value'#10'{'#10#9'switch (value)'#10#9'{'#10#9#9' '
+  +'// <%%% START VALUES_NO_STRIP %%%>'#10#9#9' case %VALUE_NAME%: return @"%VA'
+  +'LUE_NAME%";'#10#9#9' // <%%% END VALUES_NO_STRIP %%%>'#10#9#9' default: ret'
+  +'urn [NSString stringWithFormat:@"Invalid value %u for enum %ENUM_NAME%", va'
+  +'lue];'#10#9'}'#10'}'#10#10'- (int32)valueFromString:(NSString *) string'#10
+  +'{'#10#9'if (!stringToValueLookup)'#10#9'{'#10#9#9'stringToValueLookup = [[N'
+  +'SDictionary alloc] initWithObjectsAndKeys:'#10#9#9#9'// <%%% START VALUES_F'
+  +'ROM_STRING %%%>'#10#9#9#9'[NSNumber numberWithInt:%VALUE_NAME%], @"%VALUE_N'
+  +'AME%",'#10#9#9#9'// <%%% END VALUES_FROM_STRING %%%>'#10#9#9#9'nil];'#10#9
+  +'}'#9#10#9'NSNumber *result = [stringToValueLookup valueForKey:string];'#10#9
+  +'if (result) return [result intValue];'#10#9'return -1;'#10'}'#10'@end;'#10
+  +#10'NSString *%ENUM_NAME%ToString(enum %ENUM_NAME% value)'#10'{'#10#9'return'
+  +' [[%ENUM_NAME%_EnumMetaData instance] stringFromValue:value];'#10'}'#10#10
+  +'// <%%% END ENUMS %%%>'#10'#pragma mark structs'#10#10'// <%%% START STRUCT'
+  +'S %%%>'#10'@implementation %STRUCT_NAME%'#10#10'// <%%% START FIELDS_NO_STR'
+  +'IP %%%>'#10'@synthesize %FIELD_NAME%;'#10'// <%%% END FIELDS_NO_STRIP %%%>'
+  +#10#10'// <%%% START IF_HAS_FIELDS %%%>'#10'-(id) init'#10'{'#10#9'self = [s'
+  +'uper init];'#10#9'return self;'#10'}'#10#10'-(void) dealloc'#10'{'#10#9'// '
+  +'<%%% START FIELDS_NO_STRIP %%%>'#10#9'// <%%% START IF_FIELD_TYPE_COMPLEX %'
+  +'%%>'#10#9'[%FIELD_NAME% release];'#10#9'// <%%% END IF_FIELD_TYPE_COMPLEX %'
+  +'%%>'#10#9'// <%%% END FIELDS_NO_STRIP %%%>'#10#9'[super dealloc];'#10'}'#10
+  +'// <%%% END IF_HAS_FIELDS %%%>'#10#10'-(void) assignFrom:(ROComplexType*) a'
+  +'Source'#10'{'#10'}'#10#10'// <%%% START IF_HAS_FIELDS %%%>'#10'-(void)write'
+  +'ToMessage:(ROMessage *) aMessage withName:(NSString *) aName'#10'{'#10'    '
+  +'    if ([aMessage useStrictFieldOrderForStructs])'#10'        {'#10'       '
+  +'         // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>'#10'                [sup'
+  +'er writeToMessage:aMessage withName:aName];'#10'                // <%%% END'
+  +' IF_STRUCT_HAS_ANCESTOR %%%>'#10'                // <%%% START FIELDS_NO_ST'
+  +'RIP %%%>'#10'                // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10' '
+  +'               [aMessage write%FIELD_READER_WRITER%:%FIELD_NAME% withName:@'
+  +'"%FIELD_NAME%"];'#10'                // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'
+  +#10'                // <%%% START IF_FIELD_TYPE_ENUM %%%>'#10'              '
+  +'  [aMessage write%FIELD_READER_WRITER%:%FIELD_NAME% withName:@"%FIELD_NAME%'
+  +'" asEnum:[%FIELD_TYPE_RAW%_EnumMetaData instance]];'#10'                // '
+  +'<%%% END IF_FIELD_TYPE_ENUM %%%>'#10'                // <%%% START IF_FIELD'
+  +'_TYPE_SIMPLE %%%>'#10'                [aMessage write%FIELD_READER_WRITER%:'
+  +'%FIELD_NAME% withName:@"%FIELD_NAME%"];'#10'                // <%%% END IF_'
+  +'FIELD_TYPE_SIMPLE %%%>'#10'                // <%%% END FIELDS_NO_STRIP %%%>'
+  +#10'        }'#10'        else'#10'        {'#10'    '#9'        // <%%% STA'
+  +'RT ENTIRE_HIERARCHY_FIELDS %%%>'#10'                // <%%% START IF_FIELD_'
+  +'TYPE_COMPLEX %%%>'#10'                [aMessage write%FIELD_READER_WRITER%:'
+  +'%FIELD_NAME% withName:@"%FIELD_NAME%"];'#10'                // <%%% END IF_'
+  +'FIELD_TYPE_COMPLEX %%%>'#10'                // <%%% START IF_FIELD_TYPE_ENU'
+  +'M %%%>'#10'                [aMessage write%FIELD_READER_WRITER%:%FIELD_NAME'
+  +'% withName:@"%FIELD_NAME%" asEnum:[%FIELD_TYPE_RAW%_EnumMetaData instance]]'
+  +';'#10'                // <%%% END IF_FIELD_TYPE_ENUM %%%>'#10'             '
+  +'   // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#10'                [aMessage wr'
+  +'ite%FIELD_READER_WRITER%:%FIELD_NAME% withName:@"%FIELD_NAME%"];'#10'      '
+  ,'          // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10'        '#9'// <%%% END'
+  +' ENTIRE_HIERARCHY_FIELDS %%%>'#10'        }'#10'}'#10#10'-(void)readFromMes'
+  +'sage:(ROMessage *) aMessage withName:(NSString *) aName'#10'{'#10'        i'
+  +'f ([aMessage useStrictFieldOrderForStructs])'#10'        {'#10'            '
+  +'    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>'#10'                [super re'
+  +'adFromMessage:aMessage withName:aName];'#10'                // <%%% END IF_'
+  +'STRUCT_HAS_ANCESTOR %%%>'#10'                // <%%% START FIELDS_NO_STRIP '
+  +'%%%>'#10'                // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10'     '
+  +'           [aMessage read%FIELD_READER_WRITER%:&%FIELD_NAME% withName:@"%FI'
+  +'ELD_NAME%" asClass:[%FIELD_TYPE_NAME% class]];'#10'                // <%%% '
+  +'END IF_FIELD_TYPE_COMPLEX %%%>'#10'                // <%%% START IF_FIELD_T'
+  +'YPE_ENUM %%%>'#10'                [aMessage read%FIELD_READER_WRITER%:(int3'
+  +'2 *)&%FIELD_NAME% withName:@"%FIELD_NAME%" asEnum:[%FIELD_TYPE_RAW%_EnumMet'
+  +'aData instance]];'#10'                // <%%% END IF_FIELD_TYPE_ENUM %%%>'
+  +#10'                // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#10'            '
+  +'    [aMessage read%FIELD_READER_WRITER%:&%FIELD_NAME% withName:@"%FIELD_NAM'
+  +'E%"];'#10'                // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10'       '
+  +'         // <%%% END FIELDS_NO_STRIP %%%>'#10'                // <%%% START'
+  +' FIELDS_NO_STRIP %%%>'#10'                // <%%% START IF_FIELD_TYPE_COMPL'
+  +'EX %%%>'#10'                [%FIELD_NAME% retain];'#10'                // <'
+  +'%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10'                // <%%% END FIELDS_N'
+  +'O_STRIP %%%>'#10'        }'#10'        else'#10'        {'#10'             '
+  +'   // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#10'                // <%%% S'
+  +'TART IF_FIELD_TYPE_COMPLEX %%%>'#10'                [aMessage read%FIELD_RE'
+  +'ADER_WRITER%:&%FIELD_NAME% withName:@"%FIELD_NAME%" asClass:[%FIELD_TYPE_NA'
+  +'ME% class]];'#10'                // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10
+  +'                // <%%% START IF_FIELD_TYPE_ENUM %%%>'#10'                ['
+  +'aMessage read%FIELD_READER_WRITER%:(int32 *)&%FIELD_NAME% withName:@"%FIELD'
+  +'_NAME%" asEnum:[%FIELD_TYPE_RAW%_EnumMetaData instance]];'#10'             '
+  +'   // <%%% END IF_FIELD_TYPE_ENUM %%%>'#10'                // <%%% START IF'
+  +'_FIELD_TYPE_SIMPLE %%%>'#10'                [aMessage read%FIELD_READER_WRI'
+  +'TER%:&%FIELD_NAME% withName:@"%FIELD_NAME%"];'#10'                // <%%% E'
+  +'ND IF_FIELD_TYPE_SIMPLE %%%>'#10'                // <%%% END ENTIRE_HIERARC'
+  +'HY_FIELDS %%%>'#10'                // <%%% START ENTIRE_HIERARCHY_FIELDS %%'
+  +'%>'#10'                // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10'       '
+  +'         [%FIELD_NAME% retain];'#10'                // <%%% END IF_FIELD_TY'
+  +'PE_COMPLEX %%%>'#10'                // <%%% END ENTIRE_HIERARCHY_FIELDS %%%'
+  +'>'#10'        }'#10'}'#10#10'/* ToDo: Copy this to the Exceptions section, '
+  +'once working & approved */'#10#10'- (id)copyWithZone:(NSZone *)zone '#10'{'
+  +#10#9'%STRUCT_NAME% *__result = [super copyWithZone:zone];'#10#9'// <%%% STA'
+  +'RT FIELDS_NO_STRIP %%%>'#10#9'// <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10#9
+  +'[__result set%FIELD_NAME_PASCAL_CASED%:[%FIELD_NAME% copyWithZone:zone]];'
+  +#10#9'// <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10#9'// <%%% START IF_FIELD_TY'
+  +'PE_ENUM %%%>'#10#9'[__result set%FIELD_NAME_PASCAL_CASED%:%FIELD_NAME%];'#10
+  +#9'// <%%% END IF_FIELD_TYPE_ENUM %%%>'#10#9'// <%%% START IF_FIELD_TYPE_SIM'
+  +'PLE %%%>'#10#9'[__result set%FIELD_NAME_PASCAL_CASED%:%FIELD_NAME%];'#10#9
+  +'// <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10#9'// <%%% END FIELDS_NO_STRIP %%%'
+  +'>'#10#9'return __result;'#10'}'#10#10'- (void)encodeWithCoder:(NSCoder *) e'
+  +'ncoder '#10'{'#10#9'[super encodeWithCoder:encoder];'#10#9'// <%%% START FI'
+  +'ELDS_NO_STRIP %%%>'#10#9'// <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10#9'[en'
+  +'coder encodeObject:%FIELD_NAME% forKey:@"%FIELD_NAME%"];'#10#9'// <%%% END '
+  +'IF_FIELD_TYPE_COMPLEX %%%>'#10#9'// <%%% START IF_FIELD_TYPE_ENUM %%%>'#10#9
+  +'[encoder encodeInt32:(int32)%FIELD_NAME% forKey:@"%FIELD_NAME%"];'#10#9'// '
+  +'<%%% END IF_FIELD_TYPE_ENUM %%%>'#10#9'// <%%% START IF_FIELD_TYPE_SIMPLE %'
+  +'%%>'#10#9'[encoder encode%FIELD_TYPE_CODING_READER_WRITER%:(int32)%FIELD_NA'
+  +'ME% forKey:@"%FIELD_NAME%"];'#10#9'// <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10
+  +#9'// <%%% END FIELDS_NO_STRIP %%%>'#10'}'#10#10'- (id)initWithCoder:(NSCode'
+  +'r *) decoder '#10'{'#10#9'self = [super init];'#10#9'if (self)'#10#9'{'#10#9
+  +#9'// <%%% START FIELDS_NO_STRIP %%%>'#10#9#9'// <%%% START IF_FIELD_TYPE_CO'
+  +'MPLEX %%%>'#10#9#9'%FIELD_NAME% = [[decoder decodeObjectForKey:@"%FIELD_NAM'
+  +'E%"] retain];'#10#9#9'// <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10#9#9'// <%%'
+  +'% START IF_FIELD_TYPE_ENUM %%%>'#10#9#9'%FIELD_NAME% = (%FIELD_TYPE%)[decod'
+  +'er decodeInt32ForKey:@"%FIELD_NAME%"];'#10#9#9'// <%%% END IF_FIELD_TYPE_EN'
+  +'UM %%%>'#10#9#9'// <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#10#9#9'%FIELD_NAME'
+  ,'% = [decoder decode%FIELD_TYPE_CODING_READER_WRITER%ForKey:@"%FIELD_NAME%"]'
+  +';'#10#9#9'// <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10#9#9'// <%%% END FIELDS_'
+  +'NO_STRIP %%%>'#10#9'}'#10#9'return self;'#10'}'#10'// <%%% END IF_HAS_FIELD'
+  +'S %%%>'#10#10'@end'#10#10'// <%%% END STRUCTS %%%>'#10#10'#pragma mark arra'
+  +'ys'#10#10'// <%%% START ARRAYS %%%>'#10'@implementation %ARRAY_NAME% '#10#10
+  +'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#10'- (%ARRAY_TYPE%) add'#10'{'#10
+  +#9'%ARRAY_TYPE% __new = [[%ARRAY_TYPE_NAME% alloc] init];'#10#9'[super addIt'
+  +'em:__new];'#10#9'[__new release];'#10#9'return __new;'#10'}'#10'// <%%% END'
+  +' IF_ARRAY_TYPE_COMPLEX %%%>'#10#10'- (void)addItem:(%ARRAY_TYPE%)object'#10
+  +'{'#10#9'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'[super addItem:objec'
+  +'t];'#10#9'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'// <%%% START IF_ARR'
+  +'AY_TYPE_SIMPLE %%%>'#10#9'[super addItem:[NSNumber numberWith%ARRAY_TYPE_NS'
+  +'NUMBER%:object]];'#10#9'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#10#9'// <%%%'
+  +' START IF_ARRAY_TYPE_ENUM %%%>'#10#9'[super addItem:[NSNumber numberWithInt'
+  +':object]];'#10#9'// <%%% END IF_ARRAY_TYPE_ENUM %%%>'#10'}'#10#10'- (void)i'
+  +'nsertItem:(%ARRAY_TYPE%)object atIndex:(NSUInteger)index'#10'{'#10#9'// <%%'
+  +'% START IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'[super insertItem:object atIndex:i'
+  +'ndex];'#10#9'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'// <%%% START IF_'
+  +'ARRAY_TYPE_SIMPLE %%%>'#10#9'[super insertItem:[NSNumber numberWith%ARRAY_T'
+  +'YPE_NSNUMBER%:object] atIndex:index];'#10#9'// <%%% END IF_ARRAY_TYPE_SIMPL'
+  +'E %%%>'#10#9'// <%%% START IF_ARRAY_TYPE_ENUM %%%>'#10#9'[super insertItem:'
+  +'[NSNumber numberWithInt:object] atIndex:index];'#10#9'// <%%% END IF_ARRAY_'
+  +'TYPE_ENUM %%%>'#10'}'#10#10'- (void)replaceItemAtIndex:(NSUInteger)index wi'
+  +'thItem:(%ARRAY_TYPE%)object'#10'{'#10#9'// <%%% START IF_ARRAY_TYPE_COMPLEX'
+  +' %%%>'#10#9'[super replaceItemAtIndex:index withItem:object];'#10#9'// <%%%'
+  +' END IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'// <%%% START IF_ARRAY_TYPE_SIMPLE %%'
+  +'%>'#10#9'[super replaceItemAtIndex:index withItem:[NSNumber numberWith%ARRA'
+  +'Y_TYPE_NSNUMBER%:object]];'#10#9'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#10#9
+  +'// <%%% START IF_ARRAY_TYPE_ENUM %%%>'#10#9'[super replaceItemAtIndex:index'
+  +' withItem:[NSNumber numberWithInt:object]];'#10#9'// <%%% END IF_ARRAY_TYPE'
+  +'_ENUM %%%>'#10'}'#10#10'- (%ARRAY_TYPE%)itemAtIndex:(NSUInteger)index;'#10
+  +'{'#10#9'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'return (%ARRAY_TYPE%'
+  +')[super itemAtIndex:index];'#10#9'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#10
+  +#9'// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>'#10#9'%ARRAY_TYPE% __result;'#10#9
+  +'[(NSNumber *)[super itemAtIndex:index] getValue:&__result];'#10#9'return __'
+  +'result;'#10#9'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#10#9'// <%%% START IF_'
+  +'ARRAY_TYPE_ENUM %%%>'#10#9'return [(NSNumber *)[super itemAtIndex:index] in'
+  +'tValue];'#10#9'// <%%% END IF_ARRAY_TYPE_ENUM %%%>'#10'}'#10#10'// <%%% STA'
+  +'RT IF_ARRAY_TYPE_COMPLEX %%%>'#10'- (Class) itemClass'#10'{'#10#9'return [%'
+  +'ARRAY_TYPE_NAME% class];'#10'}'#10'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'
+  +#10#10'- (NSString *) itemTypeName'#10'{'#10#9'return @"%ARRAY_TYPE_RAW%";'
+  +#10'}'#10#10'- (void)writeItemToMessage:(ROMessage *)aMessage fromIndex:(int'
+  +')i'#10'{'#10#9'%ARRAY_TYPE% __item = [self itemAtIndex:i];'#10#9'// <%%% ST'
+  +'ART IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'[aMessage write%ARRAY_TYPE_READER_WRIT'
+  +'ER%:__item withName:nil];'#10#9'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#10#9
+  +'// <%%% START IF_ARRAY_TYPE_ENUM %%%>'#10#9'[aMessage write%ARRAY_TYPE_READ'
+  +'ER_WRITER%:__item withName:nil asEnum:[%ARRAY_TYPE_RAW%_EnumMetaData instan'
+  +'ce]];'#10#9'// <%%% END IF_ARRAY_TYPE_ENUM %%%>'#10#9'// <%%% START IF_ARRA'
+  +'Y_TYPE_SIMPLE %%%>'#10#9'[aMessage write%ARRAY_TYPE_READER_WRITER%:__item w'
+  +'ithName:nil];'#10#9'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#10'}'#10#10'- (v'
+  +'oid)readItemFromMessage:(ROMessage *)aMessage toIndex:(int)i'#10'{'#10#9'%A'
+  +'RRAY_TYPE% __item;'#10#9'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'[aM'
+  +'essage read%ARRAY_TYPE_READER_WRITER%:&__item withName:nil asClass:[self it'
+  +'emClass]];'#10#9'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'// <%%% START'
+  +' IF_ARRAY_TYPE_ENUM %%%>'#10#9'[aMessage read%ARRAY_TYPE_READER_WRITER%:(in'
+  +'t32 *)&__item withName:nil asEnum:[%ARRAY_TYPE_RAW%_EnumMetaData instance]]'
+  +';'#10#9'// <%%% END IF_ARRAY_TYPE_ENUM %%%>'#10#9'// <%%% START IF_ARRAY_TY'
+  +'PE_SIMPLE %%%>'#10#9'[aMessage read%ARRAY_TYPE_READER_WRITER%:&__item withN'
+  +'ame:nil];'#10#9'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#10#9'[self addItem:_'
+  +'_item]; // for efficiency, assumes this is called in ascending order'#10'}'
+  +#10#10'- (void)writeItemToCoder:(NSCoder *)encoder forKey:(NSString *)aKey f'
+  +'romIndex:(int)i '#10'{'#10#9'%ARRAY_TYPE% __item = [self itemAtIndex:i];'#10
+  +#9'// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'[encoder encodeObject:__it'
+  +'em forKey:aKey];'#10#9'// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'// <%%%'
+  ,' START IF_ARRAY_TYPE_ENUM %%%>'#10#9'[encoder encodeInt32:__item forKey:aKe'
+  +'y];'#10#9'// <%%% END IF_ARRAY_TYPE_ENUM %%%>'#10#9'// <%%% START IF_ARRAY_'
+  +'TYPE_SIMPLE %%%>'#10#9'[encoder encode%ARRAY_TYPE_CODING_READER_WRITER%:__i'
+  +'tem forKey:aKey];'#10#9'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#10'}'#10#10
+  +'- (void)readItemFromCoder:(NSCoder *)decoder forKey:(NSString *)aKey toInde'
+  +'x:(int)i '#10'{'#10#9'%ARRAY_TYPE% __item;'#10#9'// <%%% START IF_ARRAY_TYP'
+  +'E_COMPLEX %%%>'#10#9'__item = [decoder decodeObjectForKey:aKey];'#10#9'// <'
+  +'%%% END IF_ARRAY_TYPE_COMPLEX %%%>'#10#9'// <%%% START IF_ARRAY_TYPE_ENUM %'
+  +'%%>'#10#9'__item = (%ARRAY_TYPE%)[decoder decodeInt32ForKey:aKey];'#10#9'//'
+  +' <%%% END IF_ARRAY_TYPE_ENUM %%%>'#10#9'// <%%% START IF_ARRAY_TYPE_SIMPLE '
+  +'%%%>'#10#9'__item = [decoder decode%ARRAY_TYPE_CODING_READER_WRITER%ForKey:'
+  +'aKey];'#10#9'// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>'#10#9'[self addItem:__it'
+  +'em]; // for efficiency, assumes this is called in ascending order'#10'}'#10
+  +#10'@end;'#10#10'// <%%% END ARRAYS %%%>'#10#10'#pragma mark exceptions'#10
+  +#10'// <%%% START EXCEPTIONS %%%>'#10'// <%%% START DOCUMENTATION %%%>'#10#10
+  +'/* Description:'#10'    %CONTENT% */'#10'// <%%% END DOCUMENTATION %%%>'#10
+  +'@implementation %EXCEPTION_NAME% '#10' '#10'// <%%% START FIELDS_NO_STRIP %'
+  +'%%>'#10'@synthesize %FIELD_NAME%;'#10'// <%%% END FIELDS_NO_STRIP %%%>'#10
+  +#10'-(id) initWithMessage:(NSString *) anExceptionMessage'#10'              '
+  +'     // <%%% START ANCESTOR_FIELDS %%%>'#10'                   : (%FIELD_TY'
+  +'PE%) a%FIELD_NAME% '#10'                   // <%%% END ANCESTOR_FIELDS %%%>'
+  +#10'                   // <%%% START FIELDS_NO_STRIP %%%>'#10'              '
+  +'     : (%FIELD_TYPE%) a%FIELD_NAME% '#10'                   // <%%% END FIE'
+  +'LDS_NO_STRIP %%%>'#10'{'#10#9'self = [super initWithMessage:anExceptionMess'
+  +'age'#10#9#9'// <%%% START ANCESTOR_FIELDS %%%>'#10#9#9':a%FIELD_NAME% '#10#9
+  +#9'// <%%% END ANCESTOR_FIELDS %%%>'#10#9'];'#10#9'// <%%% START IF_HAS_FIEL'
+  +'DS %%%>'#10#9'if (self)'#10#9'{'#10#9#9'// <%%% START FIELDS_NO_STRIP %%%>'
+  +#10#9#9'%FIELD_NAME% = a%FIELD_NAME%;'#10#9#9'// <%%% END FIELDS_NO_STRIP %%'
+  +'%>'#10#9#9'// <%%% START FIELDS_NO_STRIP %%%>'#10#9#9'// <%%% START IF_FIEL'
+  +'D_TYPE_COMPLEX %%%>'#10#9#9'[%FIELD_NAME% retain];'#10#9#9'// <%%% END IF_F'
+  +'IELD_TYPE_COMPLEX %%%>'#10#9#9'// <%%% END FIELDS_NO_STRIP %%%>'#10#9'}'#10
+  +#9'// <%%% END IF_HAS_FIELDS %%%>'#10#9'return self;'#10'}'#10#10'// <%%% ST'
+  +'ART IF_HAS_FIELDS %%%>'#10'-(void) dealloc'#10'{'#10#9'// <%%% START FIELDS'
+  +'_NO_STRIP %%%>'#10#9'// <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10#9'[%FIELD'
+  +'_NAME% release];'#10#9'// <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10#9'// <%%%'
+  +' START IF_FIELD_TYPE_COMPLEX %%%>'#10#9'%FIELD_NAME% = nil;'#10#9'// <%%% E'
+  +'ND IF_FIELD_TYPE_COMPLEX %%%>'#10#9'// <%%% END FIELDS_NO_STRIP %%%>'#10#9
+  +'[super dealloc];'#10'}'#10#10'-(void)writeToMessage:(ROMessage *) aMessage '
+  +'withName:(NSString *) aName'#10'{'#10'        if ([aMessage useStrictFieldO'
+  +'rderForStructs])'#10'        {'#10'                // <%%% START IF_STRUCT_'
+  +'HAS_ANCESTOR %%%>'#10'                [super writeToMessage:aMessage withNa'
+  +'me:aName];'#10'                // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>'#10
+  +'                // <%%% START FIELDS_NO_STRIP %%%>'#10'                // <'
+  +'%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10'                [aMessage write%FI'
+  +'ELD_READER_WRITER%:%FIELD_NAME% withName:@"%FIELD_NAME%"];'#10'            '
+  +'    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10'                // <%%% STAR'
+  +'T IF_FIELD_TYPE_ENUM %%%>'#10'                [aMessage write%FIELD_READER_'
+  +'WRITER%:%FIELD_NAME% withName:@"%FIELD_NAME%" asEnum:[%FIELD_TYPE_RAW%_Enum'
+  +'MetaData instance]];'#10'                // <%%% END IF_FIELD_TYPE_ENUM %%%'
+  +'>'#10'                // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#10'         '
+  +'       [aMessage write%FIELD_READER_WRITER%:%FIELD_NAME% withName:@"%FIELD_'
+  +'NAME%"];'#10'                // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10'    '
+  +'            // <%%% END FIELDS_NO_STRIP %%%>'#10'        }'#10'        else'
+  +#10'        {'#10'    '#9'        // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'
+  +#10'                // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10'           '
+  +'     [aMessage write%FIELD_READER_WRITER%:%FIELD_NAME% withName:@"%FIELD_NA'
+  +'ME%"];'#10'                // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10'     '
+  +'           // <%%% START IF_FIELD_TYPE_ENUM %%%>'#10'                [aMess'
+  +'age write%FIELD_READER_WRITER%:%FIELD_NAME% withName:@"%FIELD_NAME%" asEnum'
+  +':[%FIELD_TYPE_RAW%_EnumMetaData instance]];'#10'                // <%%% END'
+  +' IF_FIELD_TYPE_ENUM %%%>'#10'                // <%%% START IF_FIELD_TYPE_SI'
+  +'MPLE %%%>'#10'                [aMessage write%FIELD_READER_WRITER%:%FIELD_N'
+  +'AME% withName:@"%FIELD_NAME%"];'#10'                // <%%% END IF_FIELD_TY'
+  +'PE_SIMPLE %%%>'#10'        '#9'// <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'#10
+  ,'        }'#10'}'#10#10'-(void)readFromMessage:(ROMessage *) aMessage withNa'
+  +'me:(NSString *) aName'#10'{'#10'        if ([aMessage useStrictFieldOrderFo'
+  +'rStructs])'#10'        {'#10'                // <%%% START IF_STRUCT_HAS_AN'
+  +'CESTOR %%%>'#10'                [super readToMessage:aMessage withName:aNam'
+  +'e];'#10'                // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>'#10'       '
+  +'         // <%%% START FIELDS_NO_STRIP %%%>'#10'                // <%%% STA'
+  +'RT IF_FIELD_TYPE_COMPLEX %%%>'#10'                [aMessage read%FIELD_READ'
+  +'ER_WRITER%:&%FIELD_NAME% withName:@"%FIELD_NAME%" asClass:[%FIELD_TYPE_NAME'
+  +'% class]];'#10'                // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10' '
+  +'               // <%%% START IF_FIELD_TYPE_ENUM %%%>'#10'                [a'
+  +'Message read%FIELD_READER_WRITER%:(int32 *)&%FIELD_NAME% withName:@"%FIELD_'
+  +'NAME%" asEnum:[%FIELD_TYPE_RAW%_EnumMetaData instance]];'#10'              '
+  +'  // <%%% END IF_FIELD_TYPE_ENUM %%%>'#10'                // <%%% START IF_'
+  +'FIELD_TYPE_SIMPLE %%%>'#10'                [aMessage read%FIELD_READER_WRIT'
+  +'ER%:&%FIELD_NAME% withName:@"%FIELD_NAME%"];'#10'                // <%%% EN'
+  +'D IF_FIELD_TYPE_SIMPLE %%%>'#10'                // <%%% END FIELDS_NO_STRIP'
+  +' %%%>'#10'                // <%%% START FIELDS_NO_STRIP %%%>'#10'          '
+  +'      // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10'                [%FIELD_'
+  +'NAME% retain];'#10'                // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'
+  +#10'                // <%%% END FIELDS_NO_STRIP %%%>'#10'        }'#10'     '
+  +'   else'#10'        {'#10'                // <%%% START ENTIRE_HIERARCHY_FI'
+  +'ELDS %%%>'#10'                // <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10
+  +'                [aMessage read%FIELD_READER_WRITER%:&%FIELD_NAME% withName:'
+  +'@"%FIELD_NAME%" asClass:[%FIELD_TYPE_NAME% class]];'#10'                // '
+  +'<%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10'                // <%%% START IF_FI'
+  +'ELD_TYPE_ENUM %%%>'#10'                [aMessage read%FIELD_READER_WRITER%:'
+  +'(int32 *)&%FIELD_NAME% withName:@"%FIELD_NAME%" asEnum:[%FIELD_TYPE_RAW%_En'
+  +'umMetaData instance]];'#10'                // <%%% END IF_FIELD_TYPE_ENUM %'
+  +'%%>'#10'                // <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#10'       '
+  +'         [aMessage read%FIELD_READER_WRITER%:&%FIELD_NAME% withName:@"%FIEL'
+  +'D_NAME%"];'#10'                // <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10'  '
+  +'              // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'#10'                '
+  +'// <%%% START ENTIRE_HIERARCHY_FIELDS %%%>'#10'                // <%%% STAR'
+  +'T IF_FIELD_TYPE_COMPLEX %%%>'#10'                [%FIELD_NAME% retain];'#10
+  +'                // <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10'                '
+  +'// <%%% END ENTIRE_HIERARCHY_FIELDS %%%>'#10'        }'#10'}'#10'// <%%% EN'
+  +'D IF_HAS_FIELDS %%%>'#10'@end'#10#10'// <%%% END EXCEPTIONS %%%>'#10#10'#pr'
+  +'agma mark service proxies'#10#10'// <%%% START SERVICES %%%>'#10'@implement'
+  +'ation %SERVICE_NAME%_Proxy '#10#10'-(id) initWithMessage:(ROMessage*) aMess'
+  +'age channel:(ROClientChannel*) aChannel'#10'{'#10#9'self = [super initWithM'
+  +'essage: aMessage channel: aChannel];'#10#9'return self;'#10'}'#10#10'-(void'
+  +') dealloc'#10'{'#10#9'[super dealloc];'#10'}'#10#10'-(NSString*) __getInter'
+  +'faceName'#10'{'#10#9'return @"%SERVICE_NAME%";'#10'}'#10#10'// <%%% START O'
+  +'PERATIONS %%%>'#10'- (%OPERATION_RESULT_TYPE%) %OPERATION_NAME%'#10#9'// <%'
+  +'%% START PARAMS %%%>'#10#9':(%PARAM_TYPE%%PARAM_BACK_MODIFIER%) %PARAM_NAME'
+  +'%  '#10#9'// <%%% END PARAMS %%%>'#10'{'#10#9'// <%%% START IF_OPERATION_HA'
+  +'S_RESULT %%%>'#10#9'%OPERATION_RESULT_TYPE% __result;'#10#9'// <%%% END IF_'
+  +'OPERATION_HAS_RESULT %%%>'#10#10#9'[[self __message] initializeAsRequestMes'
+  +'sage:[self __clientChannel] libraryName:@"%LIBRARY_NAME%" interfaceName:[se'
+  +'lf __getActiveInterfaceName] messageName:@"%OPERATION_NAME%"];'#10#9'@try'
+  +#10#9'{'#10#9#9'// <%%% START IN_PARAMS_NO_STRIP %%%>    '#10#9#9'// <%%% ST'
+  +'ART IF_PARAM_TYPE_COMPLEX %%%>'#10#9#9'[[self __message] write%PARAM_READER'
+  +'_WRITER%:%PARAM_FRONT_MODIFIER%%PARAM_NAME% withName:@"%PARAM_NAME%"];'#10#9
+  +#9'// <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#10#9#9'// <%%% START IF_PARAM_TYP'
+  +'E_ENUM %%%>'#10#9#9'[[self __message] write%PARAM_READER_WRITER%:%PARAM_FRO'
+  +'NT_MODIFIER%%PARAM_NAME% withName:@"%PARAM_NAME%" asEnum:[%PARAM_TYPE_RAW%_'
+  +'EnumMetaData instance]];'#10#9#9'// <%%% END IF_PARAM_TYPE_ENUM %%%>'#10#9#9
+  +'// <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#10#9#9'[[self __message] write%PAR'
+  +'AM_READER_WRITER%:%PARAM_FRONT_MODIFIER%%PARAM_NAME% withName:@"%PARAM_NAME'
+  +'%"];'#10#9#9'// <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#10#9#9'// <%%% END IN_P'
+  +'ARAMS_NO_STRIP %%%>'#10#9#9'[[self __message] finalizeMessage];'#10#9#9#10#9
+  +#9'[[self __clientChannel] dispatch:[self __message]];'#10#10#9#9'// <%%% ST'
+  +'ART IF_RESULT_COMPLEX %%%>'#10#9#9'[[self __message] read%OPERATION_RESULT_'
+  +'READER_WRITER%:&__result withName:@"%OPERATION_RESULT_NAME%" asClass:[%OPER'
+  ,'ATION_RESULT_TYPE_NAME% class]];'#10#9#9'// <%%% END IF_RESULT_COMPLEX %%%>'
+  +#10#9#9'// <%%% START IF_RESULT_ENUM %%%>'#10#9#9'[[self __message] read%OPE'
+  +'RATION_RESULT_READER_WRITER%:(int32 *)&__result withName:@"%OPERATION_RESUL'
+  +'T_NAME%" asEnum:[%OPERATION_RESULT_TYPE_RAW%_EnumMetaData instance]];'#10#9
+  +#9'// <%%% END IF_RESULT_ENUM %%%>'#10#9#9'// <%%% START IF_RESULT_SIMPLE %%'
+  +'%>'#10#9#9'[[self __message] read%OPERATION_RESULT_READER_WRITER%:&__result'
+  +' withName:@"%OPERATION_RESULT_NAME%"];'#10#9#9'// <%%% END IF_RESULT_SIMPLE'
+  +' %%%>'#10#9#9'// <%%% START OUT_PARAMS_NO_STRIP %%%>'#10#9#9'// <%%% START '
+  +'IF_PARAM_TYPE_COMPLEX %%%>'#10#9#9'[[self __message] read%PARAM_READER_WRIT'
+  +'ER%:%PARAM_NAME% withName:@"%PARAM_NAME%" asClass:[%PARAM_TYPE_NAME% class]'
+  +'];'#10#9#9'// <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#10#9#9'// <%%% START IF_'
+  +'PARAM_TYPE_ENUM %%%>'#10#9#9'[[self __message] read%PARAM_READER_WRITER%:(i'
+  +'nt32 *)%PARAM_NAME% withName:@"%PARAM_NAME%" asEnum:[%PARAM_TYPE_RAW%_EnumM'
+  +'etaData instance]];'#10#9#9'// <%%% END IF_PARAM_TYPE_ENUM %%%>'#10#9#9'// '
+  +'<%%% START IF_PARAM_TYPE_SIMPLE %%%>'#10#9#9'[[self __message] read%PARAM_R'
+  +'EADER_WRITER%:%PARAM_NAME% withName:@"%PARAM_NAME%"];'#10#9#9'// <%%% END I'
+  +'F_PARAM_TYPE_SIMPLE %%%>'#10#9#9'// <%%% END OUT_PARAMS_NO_STRIP %%%>'#10#9
+  +'}'#10#9'@finally'#10#9'{'#10#9#9'[[self __message] clear];'#10#9'}'#10#10#9
+  +'// <%%% START IF_OPERATION_HAS_RESULT %%%>'#10#9'return __result;'#10#9'// '
+  +'<%%% END IF_OPERATION_HAS_RESULT %%%>'#10'}'#10#10'// <%%% END OPERATIONS %'
+  +'%%>'#10'  '#10'@end'#10#10'@implementation %SERVICE_NAME%_AsyncProxy '#10#10
+  +'// <%%% START OPERATIONS %%%>'#10'- (ROAsyncRequest *)begin%OPERATION_NAME%'
+  +#10#9'// <%%% START IN_PARAMS %%%>'#10#9':(%PARAM_TYPE%%PARAM_BACK_MODIFIER%'
+  +') %PARAM_NAME%  '#10#9'// <%%% END IN_PARAMS %%%>'#10'{'#10#9'ROMessage *__'
+  +'localMessage = [[[self __message] copy] autorelease];'#10#9'[__localMessage'
+  +' initializeAsRequestMessage:[self __clientChannel] libraryName:@"%LIBRARY_N'
+  +'AME%" interfaceName:[self __getActiveInterfaceName] messageName:@"%OPERATIO'
+  +'N_NAME%"];'#10#9'// <%%% START IN_PARAMS_NO_STRIP %%%>    '#10#9'// <%%% ST'
+  +'ART IF_PARAM_TYPE_COMPLEX %%%>'#10#9'[__localMessage write%PARAM_READER_WRI'
+  +'TER%:%PARAM_FRONT_MODIFIER%%PARAM_NAME% withName:@"%PARAM_NAME%"];'#10#9'//'
+  +' <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#10#9'// <%%% START IF_PARAM_TYPE_ENUM'
+  +' %%%>'#10#9'[__localMessage write%PARAM_READER_WRITER%:%PARAM_FRONT_MODIFIE'
+  +'R%%PARAM_NAME% withName:@"%PARAM_NAME%" asEnum:[%PARAM_TYPE_RAW%_EnumMetaDa'
+  +'ta instance]];'#10#9'// <%%% END IF_PARAM_TYPE_ENUM %%%>'#10#9'// <%%% STAR'
+  +'T IF_PARAM_TYPE_SIMPLE %%%>'#10#9'[__localMessage write%PARAM_READER_WRITER'
+  +'%:%PARAM_FRONT_MODIFIER%%PARAM_NAME% withName:@"%PARAM_NAME%"];'#10#9'// <%'
+  +'%% END IF_PARAM_TYPE_SIMPLE %%%>'#10#9'// <%%% END IN_PARAMS_NO_STRIP %%%>'
+  +#10#9'[__localMessage finalizeMessage];'#10#9'return [[self __clientChannel]'
+  +' asyncDispatch:__localMessage start:YES];'#10'}'#10#10'// <%%% END OPERATIO'
+  +'NS %%%>'#10#10'/*'#10'// <%%% START OPERATIONS %%%>'#10'- (ROAsyncRequest *'
+  +')begin%OPERATION_NAME%'#10#9'// <%%% START IN_PARAMS %%%>'#10#9':(%PARAM_TY'
+  +'PE%%PARAM_BACK_MODIFIER%) %PARAM_NAME%'#10#9'// <%%% END IN_PARAMS %%%>'#10
+  +#9'start:(BOOL)start'#10'{'#10#9'ROMessage *__localMessage = [[[self __messa'
+  +'ge] copy] autorelease];'#10#9'[__localMessage initializeAsRequestMessage:[s'
+  +'elf __clientChannel] libraryName:@"%LIBRARY_NAME%" interfaceName:[self __ge'
+  +'tActiveInterfaceName] messageName:@"%OPERATION_NAME%"];'#10#9'// <%%% START'
+  +' IN_PARAMS_NO_STRIP %%%>'#10#9'// <%%% START IF_PARAM_TYPE_COMPLEX %%%>'#10
+  +#9'[__localMessage write%PARAM_READER_WRITER%:%PARAM_FRONT_MODIFIER%%PARAM_N'
+  +'AME% withName:@"%PARAM_NAME%"];'#10#9'// <%%% END IF_PARAM_TYPE_COMPLEX %%%'
+  +'>'#10#9'// <%%% START IF_PARAM_TYPE_ENUM %%%>'#10#9'[__localMessage write%P'
+  +'ARAM_READER_WRITER%:%PARAM_FRONT_MODIFIER%%PARAM_NAME% withName:@"%PARAM_NA'
+  +'ME%" asEnum:[%PARAM_TYPE_RAW%_EnumMetaData instance]];'#10#9'// <%%% END IF'
+  +'_PARAM_TYPE_ENUM %%%>'#10#9'// <%%% START IF_PARAM_TYPE_SIMPLE %%%>'#10#9'['
+  +'__localMessage write%PARAM_READER_WRITER%:%PARAM_FRONT_MODIFIER%%PARAM_NAME'
+  +'% withName:@"%PARAM_NAME%"];'#10#9'// <%%% END IF_PARAM_TYPE_SIMPLE %%%>'#10
+  +#9'// <%%% END IN_PARAMS_NO_STRIP %%%>'#10#9'[__localMessage finalizeMessage'
+  +'];'#10#9'return [[self __clientChannel] asyncDispatch:__localMessage start:'
+  +'start];'#10'}'#10#10'// <%%% END OPERATIONS %%%>'#10'*/'#10#10'// <%%% STAR'
+  +'T OPERATIONS %%%>'#10'- (%OPERATION_RESULT_TYPE%)end%OPERATION_NAME%'#10#9
+  +':(ROAsyncRequest *)__asyncRequest'#10#9'// <%%% START OUT_PARAMS %%%>'#10#9
+  +':(%PARAM_TYPE%%PARAM_BACK_MODIFIER%) %PARAM_NAME%  '#10#9'// <%%% END OUT_P'
+  +'ARAMS %%%>'#10'{'#10#9'// <%%% START IF_OPERATION_HAS_RESULT %%%>'#10#9'%OP'
+  +'ERATION_RESULT_TYPE% __result;'#10#9'// <%%% END IF_OPERATION_HAS_RESULT %%'
+  +'%>'#10#9'ROMessage *__localMessage = [__asyncRequest responseMessage];'#10
+  ,#10#9'// <%%% START IF_RESULT_COMPLEX %%%>'#10#9'[__localMessage read%OPERAT'
+  +'ION_RESULT_READER_WRITER%:&__result withName:@"%OPERATION_RESULT_NAME%" asC'
+  +'lass:[%OPERATION_RESULT_TYPE_NAME% class]];'#10#9'// <%%% END IF_RESULT_COM'
+  +'PLEX %%%>'#10#9'// <%%% START IF_RESULT_ENUM %%%>'#10#9'[[self __message] r'
+  +'ead%OPERATION_RESULT_READER_WRITER%:(int32 *)&__result withName:@"%OPERATIO'
+  +'N_RESULT_NAME%" asEnum:[%OPERATION_RESULT_TYPE_RAW%_EnumMetaData instance]]'
+  +';'#10#9'// <%%% END IF_RESULT_ENUM %%%>'#10#9'// <%%% START IF_RESULT_SIMPL'
+  +'E %%%>'#10#9'[__localMessage read%OPERATION_RESULT_READER_WRITER%:&__result'
+  +' withName:@"%OPERATION_RESULT_NAME%"];'#10#9'// <%%% END IF_RESULT_SIMPLE %'
+  +'%%>'#10#9'// <%%% START OUT_PARAMS_NO_STRIP %%%>   '#10#9'// <%%% START IF_'
+  +'PARAM_TYPE_COMPLEX %%%>'#10#9'[__localMessage read%PARAM_READER_WRITER%:%PA'
+  +'RAM_NAME% withName:@"%PARAM_NAME%" asClass:[%PARAM_TYPE_NAME% class]];'#10#9
+  +'// <%%% END IF_PARAM_TYPE_COMPLEX %%%>'#10#9'// <%%% START IF_PARAM_TYPE_EN'
+  +'UM %%%>'#10#9'[[self __message] read%PARAM_READER_WRITER%:(int32 *)%PARAM_N'
+  +'AME% withName:@"%PARAM_NAME%" asEnum:[%PARAM_TYPE_RAW%_EnumMetaData instanc'
+  +'e]];'#10#9'// <%%% END IF_PARAM_TYPE_ENUM %%%>'#10#9'// <%%% START IF_PARAM'
+  +'_TYPE_SIMPLE %%%>'#10#9'[__localMessage read%PARAM_READER_WRITER%:%PARAM_NA'
+  +'ME% withName:@"%PARAM_NAME%"];'#10#9'// <%%% END IF_PARAM_TYPE_SIMPLE %%%>'
+  +#10#9'// <%%% END OUT_PARAMS_NO_STRIP %%%>'#10#9'[__localMessage clear];'#10
+  +#10#9'// <%%% START IF_OPERATION_HAS_RESULT %%%>'#10#9'return __result;'#10#9
+  +'// <%%% END IF_OPERATION_HAS_RESULT %%%>'#10'}'#10#10'// <%%% END OPERATION'
+  +'S %%%>'#10'@end'#10#10'// <%%% END SERVICES %%%>'#10#10'static BOOL %LIBRAR'
+  +'Y_NAME%_WasInitialized;'#10#10'void Initialize%LIBRARY_NAME%()'#10'{'#10#9
+  +'if (!%LIBRARY_NAME%_WasInitialized)'#10#9'{'#10#9#9'%LIBRARY_NAME%_WasIniti'
+  +'alized = YES;'#10#9#9'// <%%% START STRUCTS %%%>'#10#9#9'[[ROTypeManager ty'
+  +'peManager] addType:[%STRUCT_NAME% class] className:@"%STRUCT_NAME%"];'#10#9
+  +#9'// <%%% END STRUCTS %%%>'#10#9#9'// <%%% START EXCEPTIONS %%%>'#10#9#9'[['
+  +'ROTypeManager typeManager] addType:[%EXCEPTION_NAME% class] className:@"%EX'
+  +'CEPTION_NAME%"];'#10#9#9'// <%%% END EXCEPTIONS %%%>'#10#9'}'#10'}'
+]);
+LazarusResources.Add('TEMPLATE_OBJC_INTF_H','RCDATA',[
+  '//----------------------------------------------------------------------'#10
+  +'// This file was automatically generated by the RemObjects SDK from a '#10
+  +'// RODL file associated with this project.                         '#10'// '
+  +'                                                                          '
+  +#10'// Do not modify this file manually, or your changes will be lost when '
+  +#10'// it is regenerated the next time you update your RODL.               '
+  +#10'//----------------------------------------------------------------------'
+  +#10#10'#ifndef %LIBRARY_NAME%_INTF__H'#10'#define %LIBRARY_NAME%_INTF__H'#10
+  +#10'#import <RemObjectsSDK/RemObjectsSDK.h>'#10'// <%%% START REQUIRED_UNITS'
+  +' %%%>'#10'#import <%REQUIRED_UNIT_NAME%.h>'#10'// <%%% END REQUIRED_UNITS %'
+  +'%%>'#10#10'#pragma mark defines'#10#10'// Library ID'#10'////#define Librar'
+  +'yID "%LIBRARY_UID%"'#10'////#define TargetNamespace "%NAMESPACE_NAME%"'#10
+  +#10'// Service Interface ID''s'#10'// <%%% START SERVICES %%%>'#10'#define  '
+  +'I%SERVICE_NAME%_IID "%SERVICE_UID%"'#10'////const GUID I%SERVICE_NAME%_IID '
+  +'= ROStringToGUID("%SERVICE_UID%");'#10'// <%%% END SERVICES %%%>'#10#10'///'
+  +'/ Event ID''s'#10'//// <%%% START EVENT_SINKS %%%>'#10'////#define EID_%EVE'
+  +'NT_SINK_NAME% @"%EVENT_SINK_NAME%"'#10'////#define IID_%EVENT_SINK_NAME% @"'
+  +'%EVENT_SINK_UID%"'#10'//// <%%% END EVENT_SINKS %%%>'#10#10'// Type Registr'
+  +'ation'#10'void Initialize%LIBRARY_NAME%();'#10#10'// Forward declarations'
+  +#10'// <%%% START SERVICES %%%>'#10'@protocol I%SERVICE_NAME%; '#10'// <%%% '
+  +'END SERVICES %%%>'#10'// <%%% START ARRAYS %%%>'#10'@class %ARRAY_NAME%;'#10
+  +'// <%%% END ARRAYS %%%>'#10'// <%%% START STRUCTS %%%>'#10'@class %STRUCT_N'
+  +'AME%;'#10'// <%%% END STRUCTS %%%>'#10'// <%%% START EXCEPTIONS %%%>'#10'@c'
+  +'lass %EXCEPTION_NAME%;'#10'// <%%% END EXCEPTIONS %%%>'#10'// <%%% START EV'
+  +'ENT_SINKS %%%>'#10'@protocol I%EVENT_SINK_NAME%;'#10'// <%%% END EVENT_SINK'
+  +'S %%%>'#10#10'#pragma mark enums'#10#10'// <%%% START ENUMS %%%>'#10'enum %'
+  +'ENUM_NAME% '#10'{'#10#9'// <%%% START VALUES %%%>'#10#9'%VALUE_NAME%,      '
+  +'          '#10#9'// <%%% END VALUES %%%>                '#10'};'#10#10'@int'
+  +'erface %ENUM_NAME%_EnumMetaData : ROEnumMetaData'#10'{'#10#9'NSDictionary *'
+  +'stringToValueLookup;'#10'}'#10#10'@property (readonly) NSString *typeName;'
+  +#10#10'@end'#10#10'NSString *%ENUM_NAME%ToString(enum %ENUM_NAME% value) DEP'
+  +'RECATED_ATTRIBUTE;'#10#10'// <%%% END ENUMS %%%>'#10#10'#pragma mark struct'
+  +'s'#10#10'// <%%% START STRUCTS %%%>'#10'@interface %STRUCT_NAME% : %STRUCT_'
+  +'ANCESTOR_NAME% '#10'{  '#10#9'// <%%% START FIELDS_NO_STRIP %%%>'#10#9'%FIE'
+  +'LD_TYPE% %FIELD_NAME%;'#10#9'// <%%% END FIELDS_NO_STRIP %%%>'#10'}'#10#10
+  +'// <%%% START FIELDS_NO_STRIP %%%>'#10'// <%%% START IF_FIELD_TYPE_COMPLEX '
+  +'%%%>'#10'@property (retain) %FIELD_TYPE% %FIELD_NAME%;'#10'// <%%% END IF_F'
+  +'IELD_TYPE_COMPLEX %%%>'#10'// <%%% START IF_FIELD_TYPE_ENUM %%%>'#10'@prope'
+  +'rty (assign) %FIELD_TYPE% %FIELD_NAME%;'#10'// <%%% END IF_FIELD_TYPE_ENUM '
+  +'%%%>'#10'// <%%% START IF_FIELD_TYPE_SIMPLE %%%>'#10'@property (assign) %FI'
+  +'ELD_TYPE% %FIELD_NAME%;'#10'// <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10'// <%'
+  +'%% END FIELDS_NO_STRIP %%%>'#10#10'// <%%% START IF_HAS_FIELDS %%%>'#10'- ('
+  +'id) init;'#10'- (void)dealloc;'#10'// <%%% END IF_HAS_FIELDS %%%>'#10#10'- '
+  +'(void)assignFrom:(ROComplexType*) aSource;'#10'// <%%% START IF_HAS_FIELDS '
+  +'%%%>'#10'- (void)writeToMessage:(ROMessage *) aMessage withName:(NSString *'
+  +') aName;'#10'- (void)readFromMessage:(ROMessage *) aMessage withName:(NSStr'
+  +'ing *) aName;'#10'// <%%% END IF_HAS_FIELDS %%%>'#10#10'@end'#10#10'// <%%%'
+  +' END STRUCTS %%%>'#10#10'#pragma mark arrays'#10#10'// <%%% START ARRAYS %%'
+  +'%>'#10'@interface %ARRAY_NAME% : ROArray '#10'{'#10'}'#10'// <%%% START IF_'
+  +'ARRAY_TYPE_COMPLEX %%%>'#10'- (%ARRAY_TYPE%) add;'#10'// <%%% END IF_ARRAY_'
+  +'TYPE_COMPLEX %%%>'#10'- (NSString *) itemTypeName; '#10'- (void)addItem:(%A'
+  +'RRAY_TYPE%)object;'#10'- (void)insertItem:(%ARRAY_TYPE%)object atIndex:(NSU'
+  +'Integer)index;'#10'- (void)replaceItemAtIndex:(NSUInteger)index withItem:(%'
+  +'ARRAY_TYPE%)object;'#10'- (%ARRAY_TYPE%)itemAtIndex:(NSUInteger)index;'#10
+  +'@end;'#10#10'// <%%% END ARRAYS %%%>'#10'#pragma mark exceptions'#10#10'// '
+  +'<%%% START EXCEPTIONS %%%>'#10'// <%%% START DOCUMENTATION %%%>'#10#10'/* D'
+  +'escription:'#10'    %CONTENT% */'#10'// <%%% END DOCUMENTATION %%%>'#10'@in'
+  +'terface %EXCEPTION_NAME% : %EXCEPTION_ANCESTOR_NAME% '#10'{  '#10#9'// <%%%'
+  +' START FIELDS_NO_STRIP %%%>'#10#9'%FIELD_TYPE% %FIELD_NAME%;'#10#9'// <%%% '
+  +'END FIELDS_NO_STRIP %%%>'#10'}'#10'  '#10'// <%%% START FIELDS_NO_STRIP %%%'
+  +'>'#10'// <%%% START IF_FIELD_TYPE_COMPLEX %%%>'#10'@property (retain) %FIEL'
+  +'D_TYPE% %FIELD_NAME%;'#10'// <%%% END IF_FIELD_TYPE_COMPLEX %%%>'#10'// <%%'
+  +'% START IF_FIELD_TYPE_SIMPLE %%%>'#10'@property (assign) %FIELD_TYPE% %FIEL'
+  +'D_NAME%;'#10'// <%%% END IF_FIELD_TYPE_SIMPLE %%%>'#10'// <%%% END FIELDS_N'
+  ,'O_STRIP %%%>'#10'  '#10'- (id)initWithMessage:(NSString *) anExceptionMessa'
+  +'ge'#10#9'// <%%% START ANCESTOR_FIELDS %%%>'#10#9': (%FIELD_TYPE%) a%FIELD_'
+  +'NAME% '#10#9'// <%%% END ANCESTOR_FIELDS %%%>'#10#9'// <%%% START FIELDS_NO'
+  +'_STRIP %%%>'#10#9': (%FIELD_TYPE%) a%FIELD_NAME% '#10#9'// <%%% END FIELDS_'
+  +'NO_STRIP %%%>'#10#9';'#10'// <%%% START IF_HAS_FIELDS %%%>'#10'- (void)writ'
+  +'eToMessage:(ROMessage *) aMessage withName:(NSString *) aName;'#10'- (void)'
+  +'readFromMessage:(ROMessage *) aMessage withName:(NSString *) aName;'#10'// '
+  +'<%%% END IF_HAS_FIELDS %%%>'#10'- (void) dealloc;'#10'@end'#10#10'// <%%% E'
+  +'ND EXCEPTIONS %%%>'#10#10'#pragma mark service protocols'#10#10'// <%%% STA'
+  +'RT SERVICES %%%>'#10'@protocol I%SERVICE_NAME%'#10'// <%%% START OPERATIONS'
+  +' %%%>'#10'- (%OPERATION_RESULT_TYPE%)%OPERATION_NAME%'#10'// <%%% START PAR'
+  +'AMS %%%>'#10#9':(%PARAM_TYPE%%PARAM_BACK_MODIFIER%)%PARAM_NAME%'#10'// <%%%'
+  +' END PARAMS %%%>'#10#9';'#10'// <%%% END OPERATIONS %%%>'#10'@end'#10#10'#p'
+  +'ragma mark service proxies'#10#10'@interface %SERVICE_NAME%_Proxy : %SERVIC'
+  +'E_PROXY_ANCESTOR_NAME% <I%SERVICE_NAME%> '#10'{'#10'}'#10'- (id)initWithMes'
+  +'sage:(ROMessage*) aMessage channel:(ROClientChannel*) aChannel;'#10'- (void'
+  +')dealloc;'#10'- (NSString*)__getInterfaceName;'#10#10'// <%%% START OPERATI'
+  +'ONS %%%>'#10'- (%OPERATION_RESULT_TYPE%)%OPERATION_NAME%'#10'// <%%% START '
+  +'PARAMS %%%>'#10#9':(%PARAM_TYPE%%PARAM_BACK_MODIFIER%) %PARAM_NAME%'#10'// '
+  +'<%%% END PARAMS %%%>'#9#10#9';'#10'// <%%% END OPERATIONS %%%>'#10'  '#10'@'
+  +'end'#10#10'@interface %SERVICE_NAME%_AsyncProxy : %SERVICE_NAME%_Proxy '#10
+  +'{'#10'}'#10'// <%%% START OPERATIONS %%%>'#10'- (ROAsyncRequest *)begin%OPE'
+  +'RATION_NAME%'#10'// <%%% START IN_PARAMS %%%>'#10#9':(%PARAM_TYPE%%PARAM_BA'
+  +'CK_MODIFIER%) %PARAM_NAME%  '#10'// <%%% END IN_PARAMS %%%>'#10#9';'#10'// '
+  +'<%%% END OPERATIONS %%%>'#10#10'/*'#10'// <%%% START OPERATIONS %%%>'#10'- '
+  +'(ROAsyncRequest *)begin%OPERATION_NAME%'#10'// <%%% START IN_PARAMS %%%>'#10
+  +#9':(%PARAM_TYPE%%PARAM_BACK_MODIFIER%) %PARAM_NAME%'#10'// <%%% END IN_PARA'
+  +'MS %%%>'#10#9'start:(BOOL)start'#10#9';'#10'// <%%% END OPERATIONS %%%>'#10
+  +'*/'#10#10'// <%%% START OPERATIONS %%%>'#10'- (%OPERATION_RESULT_TYPE%)end%'
+  +'OPERATION_NAME%'#10#9':(ROAsyncRequest *)__asyncRequest'#10'// <%%% START O'
+  +'UT_PARAMS %%%>'#10#9':(%PARAM_TYPE%%PARAM_BACK_MODIFIER%) %PARAM_NAME%  '#10
+  +'// <%%% END OUT_PARAMS %%%>'#10#9';'#10'// <%%% END OPERATIONS %%%>  '#10'@'
+  +'end'#10#10'// <%%% END SERVICES %%%>'#10#10'#pragma mark event sinks'#10#10
+  +'//// <%%% START EVENT_SINKS %%%>'#10'//// /* I%EVENT_SINK_NAME% */'#10'////'
+  +' <%%% END EVENT_SINKS %%%>'#10#10'void Initialize%LIBRARY_NAME%();'#10#10'#'
+  +'endif // %LIBRARY_NAME%_INTF__H'#10#10
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.rc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.rc
new file mode 100644
index 0000000..b06790a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.rc	
@@ -0,0 +1,25 @@
+TEMPLATE_INTF_PAS          RCDATA "template.intf.pas"
+TEMPLATE_INVK_PAS          RCDATA "template.invk.pas"
+TEMPLATE_IMPL_PAS          RCDATA "template.impl.pas"
+TEMPLATE_ASYNC_PAS         RCDATA "template.async.pas"
+TEMPLATE_WRAPPER_INTF_PAS  RCDATA "template.wrapper_intf.pas"
+TEMPLATE_WRAPPER_INVK_PAS  RCDATA "template.wrapper_invk.pas"
+TEMPLATE_WRAPPER_ASYNC_PAS RCDATA "template.wrapper_async.pas"
+
+TEMPLATE_IMPL_DFM          RCDATA "template.impl.dfm"
+
+TEMPLATE_INTF_CPP          RCDATA "template.intf.cpp"
+TEMPLATE_INTF_H            RCDATA "template.intf.h"
+TEMPLATE_INVK_CPP          RCDATA "template.invk.cpp"
+TEMPLATE_INVK_H            RCDATA "template.invk.h"
+TEMPLATE_IMPL_CPP          RCDATA "template.impl.cpp"
+TEMPLATE_IMPL_H            RCDATA "template.impl.h"
+TEMPLATE_ASYNC_CPP         RCDATA "template.async.cpp"
+TEMPLATE_ASYNC_H           RCDATA "template.async.h"
+TEMPLATE_WRAPPER_INTF_H    RCDATA "template.wrapper_intf.h"
+TEMPLATE_WRAPPER_INVK_H    RCDATA "template.wrapper_invk.h"
+TEMPLATE_WRAPPER_ASYNC_H   RCDATA "template.wrapper_async.h"
+
+TEMPLATE_OBJC_INTF_M      RCDATA "template.Obj-C.intf.m_"
+TEMPLATE_OBJC_INTF_H      RCDATA "template.Obj-C.intf.h_"
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.res
new file mode 100644
index 0000000..a160053
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/Templates.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.cpp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.cpp
new file mode 100644
index 0000000..54697e9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.cpp	
@@ -0,0 +1,162 @@
+// %UNIT_NAME%
+//
+/*---------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project.                                }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{---------------------------------------------------------------------------*/
+
+// Implementation of %UNIT_NAME%
+#include "%UNIT_NAME%.h"
+
+// <%%% START SERVICES %%%>
+// <%%% START FUNCTION_OPERATIONS %%%>
+void __fastcall T%SERVICE_NAME%_AsyncProxy::Invoke_%OPERATION_NAME%(
+            // <%%% START IN_PARAMS %%%>
+            // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+            %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+            // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+            // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+            %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+            // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+            // <%%% END IN_PARAMS %%%>
+            )
+{
+  __AssertProxyNotBusy("%OPERATION_NAME%");
+
+  __Message->InitializeRequestMessage(__TransportChannel, "%LIBRARY_NAME%", __InterfaceName, "%OPERATION_NAME%");
+  // <%%% START IN_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END IN_PARAMS_NO_STRIP %%%>
+
+  __DispatchAsyncRequest("%OPERATION_NAME%", __Message);
+}
+
+// <%%% START IF_RESULT_SIMPLE %%%>
+%OPERATION_RESULT% __fastcall T%SERVICE_NAME%_AsyncProxy::Retrieve_%OPERATION_NAME%(
+// <%%% END IF_RESULT_SIMPLE %%%>
+// <%%% START IF_RESULT_COMPLEX %%%>
+%OPERATION_RESULT%* __fastcall T%SERVICE_NAME%_AsyncProxy::Retrieve_%OPERATION_NAME%(
+// <%%% END IF_RESULT_COMPLEX %%%>
+            // <%%% START OUT_PARAMS %%%>
+            // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+            %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+            // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+            // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+            %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+            // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+            // <%%% END OUT_PARAMS %%%>
+            )
+{
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  %OPERATION_RESULT% result;
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  %OPERATION_RESULT%* result;
+  // <%%% END IF_RESULT_COMPLEX %%%>
+
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% = NULL;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  result = NULL;
+  // <%%% END IF_RESULT_COMPLEX %%%>
+
+  TStream* __response = __RetrieveAsyncResponse("%OPERATION_NAME%");
+  __Message->ReadFromStream(__response);
+
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  __Message->Read("Result", __Get%OPERATION_RESULT%Info, &result, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  __Message->Read("Result", __typeinfo(%OPERATION_RESULT%), result, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));
+  // <%%% END IF_RESULT_COMPLEX %%%>
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  __Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  __Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+
+  delete __response;
+  return result;
+}
+
+// <%%% END FUNCTION_OPERATIONS %%%>
+// <%%% START PROCEDURE_OPERATIONS %%%>
+void _fastcall T%SERVICE_NAME%_AsyncProxy::Invoke_%OPERATION_NAME%(
+            // <%%% START IN_PARAMS %%%>
+            // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+            %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+            // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+            // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+            %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+            // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+            // <%%% END IN_PARAMS %%%>
+            )
+{
+  __AssertProxyNotBusy("%OPERATION_NAME%");
+  TStream* __request = new TMemoryStream();
+
+  __Message->InitializeRequestMessage(__TransportChannel, "%LIBRARY_NAME%", __InterfaceName, "%OPERATION_NAME%");
+  // <%%% START IN_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END IN_PARAMS_NO_STRIP %%%>
+  __Message->Finalize();
+
+  __Message->WriteToStream(__request);
+  __DispatchAsyncRequest("%OPERATION_NAME%", __request, False);
+}
+
+// <%%% START IF_OUT_PARAMS %%%>
+void _fastcall T%SERVICE_NAME%_AsyncProxy::Retrieve_%OPERATION_NAME%(
+            // <%%% START OUT_PARAMS %%%>
+            // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+            %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+            // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+            // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+            %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+            // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+            // <%%% END OUT_PARAMS %%%>
+            )
+{
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% = NULL;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+
+  TStream* __response = __RetrieveAsyncResponse("%OPERATION_NAME%");
+  __Message->ReadFromStream(__response);
+
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  __Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  __Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+
+  delete __response;
+}
+
+// <%%% END IF_OUT_PARAMS %%%>
+// <%%% END PROCEDURE_OPERATIONS %%%>
+// <%%% END SERVICES %%%>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.h b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.h
new file mode 100644
index 0000000..161e698
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.h	
@@ -0,0 +1,223 @@
+// %UNIT_NAME%
+//
+/*---------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project.                                }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{---------------------------------------------------------------------------*/
+
+#ifndef %UNIT_NAME%H
+#define %UNIT_NAME%H
+
+#pragma delphiheader begin
+#pragma option push
+#pragma option -w-      		  // All warnings off
+#pragma option -Vx      		  // Zero-length empty class member functions
+#pragma pack(push,8)
+
+#include <System.hpp>			    // Pascal unit
+#include <Uroasync.hpp>
+// <%%% START REQUIRED_UNITS %%%>
+#include <%REQUIRED_UNIT_NAME%.hpp>
+// <%%% END REQUIRED_UNITS %%%>
+#include "%LIBRARY_NAME%_Intf.h"
+
+
+namespace %NAMESPACE_NAME%
+{
+// Forward declarations
+// <%%% START SERVICES %%%>
+__interface I%SERVICE_NAME%_Async; // = interface;
+class DELPHICLASS Co%SERVICE_NAME%_Async;
+class DELPHICLASS T%SERVICE_NAME%_AsyncProxy;
+// <%%% END SERVICES %%%>
+
+// <%%% START SERVICES %%%>
+__interface I%SERVICE_NAME%_Async;
+typedef System::DelphiInterface<I%SERVICE_NAME%_Async> _di_I%SERVICE_NAME%_Async;
+__interface INTERFACE_UUID("%SERVICE_UID%") I%SERVICE_NAME%_Async : public %SERVICE_ANCESTOR_NAME%
+{
+public:
+  // <%%% START FUNCTION_OPERATIONS %%%>
+  virtual void __fastcall Invoke_%OPERATION_NAME%(
+              // <%%% START IN_PARAMS %%%>
+              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+              // <%%% END IN_PARAMS %%%>
+              ) = 0; // pure virtual function - interface only
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  virtual %OPERATION_RESULT% __fastcall Retrieve_%OPERATION_NAME%(
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  virtual %OPERATION_RESULT%* __fastcall Retrieve_%OPERATION_NAME%(
+  // <%%% END IF_RESULT_COMPLEX %%%>
+              // <%%% START OUT_PARAMS %%%>
+              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+              // <%%% END OUT_PARAMS %%%>
+              ) = 0; // pure virtual function - interface only
+  // <%%% END FUNCTION_OPERATIONS %%%>
+
+  // <%%% START PROCEDURE_OPERATIONS %%%>
+  virtual void _fastcall Invoke_%OPERATION_NAME%(
+              // <%%% START IN_PARAMS %%%>
+              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+              // <%%% END IN_PARAMS %%%>
+              ) = 0; // pure virtual function - interface only
+  // <%%% START IF_OUT_PARAMS %%%>
+  virtual void _fastcall Retrieve_%OPERATION_NAME%(
+              // <%%% START OUT_PARAMS %%%>
+              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+              // <%%% END OUT_PARAMS %%%>
+              ) = 0; // pure virtual function - interface only
+  // <%%% END IF_OUT_PARAMS %%%>
+  // <%%% END PROCEDURE_OPERATIONS %%%>
+};
+
+// Co%SERVICE_NAME%_Async
+class DELPHICLASS Co%SERVICE_NAME%_Async;
+class Co%SERVICE_NAME%_Async : public System::TObject
+{
+	typedef System::TObject inherited;
+
+public:
+	static _di_I%SERVICE_NAME%_Async __fastcall Create(const Uroclientintf::_di_IROMessage aMessage,
+                        Uroclientintf::_di_IROTransportChannel aTransportChannel)
+  {
+    _di_I%SERVICE_NAME%_Async result;
+    T%SERVICE_NAME%_AsyncProxy* proxy = new T%SERVICE_NAME%_AsyncProxy(aMessage, aTransportChannel);
+    if (proxy->QueryInterface(I%SERVICE_NAME%_IID, reinterpret_cast<void**>(&result)) != S_OK)
+    {
+      delete proxy;
+      throw EIntfCastError::EIntfCastError("I%SERVICE_NAME%_Async not supported");
+    }
+    return result;
+  };
+
+  static _di_I%SERVICE_NAME%_Async __fastcall Create(Uroclient::TROMessage* aMessage,
+                        Uroclient::TROTransportChannel *aTransportChannel)
+  {
+    _di_IROMessage __Message;
+    _di_IROTransportChannel __TransportChannel;
+
+    if (aMessage->GetInterface(__Message))
+    {
+      if (aTransportChannel->GetInterface(__TransportChannel))
+        return Create(__Message, __TransportChannel);
+      else
+        throw EIntfCastError::EIntfCastError("IROTransportChannel not supported");
+    }
+    else
+    {
+      throw EIntfCastError::EIntfCastError("IROMessage not supported");
+    }
+  };
+};
+
+class DELPHICLASS T%SERVICE_NAME%_AsyncProxy;
+class T%SERVICE_NAME%_AsyncProxy : public %SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%_Async
+{
+	typedef %SERVICE_PROXY_ANCESTOR_NAME% inherited;
+	
+protected:
+	virtual AnsiString __fastcall __GetInterfaceName()
+    { return "%SERVICE_NAME%"; }
+
+  // <%%% START FUNCTION_OPERATIONS %%%>
+  virtual void __fastcall Invoke_%OPERATION_NAME%(
+              // <%%% START IN_PARAMS %%%>
+              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+              // <%%% END IN_PARAMS %%%>
+              );
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  virtual %OPERATION_RESULT% __fastcall Retrieve_%OPERATION_NAME%(
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  virtual %OPERATION_RESULT%* __fastcall Retrieve_%OPERATION_NAME%(
+  // <%%% END IF_RESULT_COMPLEX %%%>
+              // <%%% START OUT_PARAMS %%%>
+              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+              // <%%% END OUT_PARAMS %%%>
+              );
+  // <%%% END FUNCTION_OPERATIONS %%%>
+
+  // <%%% START PROCEDURE_OPERATIONS %%%>
+  virtual void _fastcall Invoke_%OPERATION_NAME%(
+              // <%%% START IN_PARAMS %%%>
+              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+              // <%%% END IN_PARAMS %%%>
+              );
+  // <%%% START IF_OUT_PARAMS %%%>
+  virtual void _fastcall Retrieve_%OPERATION_NAME%(
+              // <%%% START OUT_PARAMS %%%>
+              // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+              // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+              // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+              // <%%% END OUT_PARAMS %%%>
+              );
+  // <%%% END IF_OUT_PARAMS %%%>
+  // <%%% END PROCEDURE_OPERATIONS %%%>
+public:
+	#pragma option push -w-inl
+	/* TROProxy.Create */ inline __fastcall virtual T%SERVICE_NAME%_AsyncProxy(const Uroclientintf::_di_IROMessage aMessage, const Uroclientintf::_di_IROTransportChannel aTransportChannel)/* overload */ :
+    %SERVICE_PROXY_ANCESTOR_NAME%(aMessage, aTransportChannel) {}
+	#pragma option pop
+	
+  virtual HRESULT __stdcall QueryInterface(const GUID& IID, void **Obj) {
+    return inherited::QueryInterface(IID, (void *)Obj); }
+
+  virtual ULONG __stdcall AddRef() {
+    return inherited::_AddRef();  }
+
+  virtual ULONG __stdcall Release() {
+    return inherited::_Release(); }
+};
+// <%%% END SERVICES %%%>
+
+}	// namespace %NAMESPACE_NAME%
+
+using namespace %NAMESPACE_NAME%;
+#pragma pack(pop)
+#pragma option pop
+
+#pragma delphiheader end.
+#endif	// %UNIT_NAME%H
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.pas
new file mode 100644
index 0000000..27c96d2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.pas	
@@ -0,0 +1,249 @@
+unit %UNIT_NAME%;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf, uROAsync,
+  // <%%% START REQUIRED_UNITS %%%>
+  {Required:} %REQUIRED_UNIT_NAME%,
+  // <%%% END REQUIRED_UNITS %%%>
+  {Generated:} %LIBRARY_NAME%_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  // <%%% START SERVICES %%%>
+  I%SERVICE_NAME%_Async = interface;
+  Co%SERVICE_NAME%_Async = class;
+  T%SERVICE_NAME%_AsyncProxy = class;
+  // <%%% END SERVICES %%%>
+
+  // <%%% START SERVICES %%%>
+  { I%SERVICE_NAME%_Async }
+  // <%%% START DOCUMENTATION %%%>
+
+  { Description:
+      %CONTENT% }
+  // <%%% END DOCUMENTATION %%%>
+  I%SERVICE_NAME%_Async = interface%SERVICE_ANCESTOR_NAME%
+    ['%ASYNC_SERVICE_UID%']
+    // <%%% START FUNCTION_OPERATIONS %%%>
+    procedure Invoke_%OPERATION_NAME%(
+               // <%%% START IN_PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END IN_PARAMS %%%>
+               );
+    function Retrieve_%OPERATION_NAME%(
+               // <%%% START OUT_PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END OUT_PARAMS %%%>
+               ): %OPERATION_RESULT%;
+    // <%%% END FUNCTION_OPERATIONS %%%>
+    // <%%% START PROCEDURE_OPERATIONS %%%>
+    procedure Invoke_%OPERATION_NAME%(
+                // <%%% START IN_PARAMS %%%>
+                %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+                // <%%% END IN_PARAMS %%%>
+                );
+    // <%%% START IF_OUT_PARAMS %%%>
+    procedure Retrieve_%OPERATION_NAME%(
+               // <%%% START OUT_PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END OUT_PARAMS %%%>
+               );
+    // <%%% END IF_OUT_PARAMS %%%>
+    // <%%% END PROCEDURE_OPERATIONS %%%>
+  end;
+
+  { Co%SERVICE_NAME%_Async }
+  Co%SERVICE_NAME%_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): I%SERVICE_NAME%_Async;
+  end;
+
+  { T%SERVICE_NAME%_Proxy }
+  T%SERVICE_NAME%_AsyncProxy = class(%SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%_Async)
+  protected
+    function __GetInterfaceName:string; override;
+
+    // <%%% START FUNCTION_OPERATIONS %%%>
+    procedure Invoke_%OPERATION_NAME%(
+               // <%%% START IN_PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END IN_PARAMS %%%>
+               );
+    function Retrieve_%OPERATION_NAME%(
+               // <%%% START OUT_PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END OUT_PARAMS %%%>
+               ): %OPERATION_RESULT%;
+    // <%%% END FUNCTION_OPERATIONS %%%>
+    // <%%% START PROCEDURE_OPERATIONS %%%>
+    procedure Invoke_%OPERATION_NAME%(
+                // <%%% START IN_PARAMS %%%>
+                %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+                // <%%% END IN_PARAMS %%%>
+                );
+    // <%%% START IF_OUT_PARAMS %%%>
+    procedure Retrieve_%OPERATION_NAME%(
+               // <%%% START OUT_PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END OUT_PARAMS %%%>
+               );
+    // <%%% END IF_OUT_PARAMS %%%>
+    // <%%% END PROCEDURE_OPERATIONS %%%>
+  end;
+
+  // <%%% END SERVICES %%%>
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+// <%%% START SERVICES %%%>
+{ Co%SERVICE_NAME%_Async }
+
+class function Co%SERVICE_NAME%_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): I%SERVICE_NAME%_Async;
+begin
+  result := T%SERVICE_NAME%_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ T%SERVICE_NAME%_AsyncProxy }
+
+function T%SERVICE_NAME%_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := '%SERVICE_NAME%';
+end;
+
+// <%%% START FUNCTION_OPERATIONS %%%>
+procedure T%SERVICE_NAME%_AsyncProxy.Invoke_%OPERATION_NAME%(
+           // <%%% START IN_PARAMS %%%>
+           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+           // <%%% END IN_PARAMS %%%>
+           );
+begin
+  __AssertProxyNotBusy('%OPERATION_NAME%');
+  // <%%% START IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  // <%%% START OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  __Message.SetAttributes(__TransportChannel, [
+    %OPERATION_ATTRIBUTE_NAMES%
+    ], 
+    [
+    %OPERATION_ATTRIBUTE_VALUES%
+    ]);
+  // <%%% END OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  // <%%% END IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  __Message.InitializeRequestMessage(__TransportChannel, '%LIBRARY_NAME%', __InterfaceName, '%OPERATION_NAME%');
+  // <%%% START IN_PARAMS_NO_STRIP %%%>
+  __Message.Write('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+  // <%%% END IN_PARAMS_NO_STRIP %%%>
+
+  __DispatchAsyncRequest('%OPERATION_NAME%',__Message);
+end;
+
+function T%SERVICE_NAME%_AsyncProxy.Retrieve_%OPERATION_NAME%(
+           // <%%% START OUT_PARAMS %%%>
+           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+           // <%%% END OUT_PARAMS %%%>
+           ): %OPERATION_RESULT%;
+var
+  __response:TStream;
+begin
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% := nil;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  Result := nil;
+  // <%%% END IF_RESULT_COMPLEX %%%>
+
+  __response := __RetrieveAsyncResponse('%OPERATION_NAME%');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(%OPERATION_RESULT_TYPE%), Result, [%OPERATION_RESULT_ATTRIBUTE%]);
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  __Message.Read('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+
+  __response.Free();
+end;
+
+// <%%% END FUNCTION_OPERATIONS %%%>
+// <%%% START PROCEDURE_OPERATIONS %%%>
+procedure T%SERVICE_NAME%_AsyncProxy.Invoke_%OPERATION_NAME%(
+           // <%%% START IN_PARAMS %%%>
+           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+           // <%%% END IN_PARAMS %%%>
+           );
+var
+  __request:TStream;
+begin
+  __AssertProxyNotBusy('%OPERATION_NAME%');
+  // <%%% START IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  // <%%% START OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  __Message.SetAttributes(__TransportChannel, [
+    %OPERATION_ATTRIBUTE_NAMES%
+    ], 
+    [
+    %OPERATION_ATTRIBUTE_VALUES%
+    ]);
+  // <%%% END OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  // <%%% END IF_HAS_OPEARTION_ATTRIBUTES %%%>
+
+  __request := TMemoryStream.Create;
+
+  __Message.InitializeRequestMessage(__TransportChannel, '%LIBRARY_NAME%', __InterfaceName, '%OPERATION_NAME%');
+  // <%%% START IN_PARAMS_NO_STRIP %%%>
+  __Message.Write('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+  // <%%% END IN_PARAMS_NO_STRIP %%%>
+  __Message.Finalize;
+
+  __Message.WriteToStream(__request);
+  __DispatchAsyncRequest('%OPERATION_NAME%', __request, False);
+end;
+
+// <%%% START IF_OUT_PARAMS %%%>
+procedure T%SERVICE_NAME%_AsyncProxy.Retrieve_%OPERATION_NAME%(
+           // <%%% START OUT_PARAMS %%%>
+           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+           // <%%% END OUT_PARAMS %%%>
+           );
+var
+  __response:TStream;
+begin
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% := nil;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+
+  __response := __RetrieveAsyncResponse('%OPERATION_NAME%');
+  __Message.ReadFromStream(__response);
+
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  __Message.Read('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+
+  __response.Free();
+end;
+
+// <%%% END IF_OUT_PARAMS %%%>
+// <%%% END PROCEDURE_OPERATIONS %%%>
+// <%%% END SERVICES %%%>
+initialization
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.cpp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.cpp
new file mode 100644
index 0000000..04b5dbb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.cpp	
@@ -0,0 +1,93 @@
+// <%%% START SERVICES %%%>
+// unit %UNIT_NAME%
+//
+/*---------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Modify this unit to provide implementation for your service.              */
+
+// Interface of %LIBRARY_NAME%
+#include "%LIBRARY_NAME%_Intf.h"
+
+// Our header file
+#include "%UNIT_NAME%.h"
+
+// Invoker interface
+#include "%LIBRARY_NAME%_Invk.h"
+
+// <%%% START IF_DATA_MODULE %%%>
+#pragma link "Uroremotedatamodule"
+// <%%% END IF_DATA_MODULE %%%>
+#pragma link "Uroserver"
+
+// <%%% START IF_DATA_MODULE %%%>
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"    
+T%SERVICE_NAME% *%SERVICE_NAME%;
+//---------------------------------------------------------------------------
+// <%%% END IF_DATA_MODULE %%%>
+void __fastcall Create_%SERVICE_NAME%(/*out*/ _di_IInterface& anInstance)
+{
+  anInstance = new T%SERVICE_NAME%(
+    // <%%% START IF_DATA_MODULE %%%>
+    NULL
+    // <%%% END IF_DATA_MODULE %%%>
+    )->operator IROObjectRetainer *();
+}
+
+// %SERVICE_NAME%
+// <%%% START IF_DATA_MODULE %%%>
+
+__fastcall T%SERVICE_NAME%::T%SERVICE_NAME%(Classes::TComponent* aOwner)
+    : TRORemoteDataModule(aOwner)
+{
+}
+// <%%% END IF_DATA_MODULE %%%>
+// <%%% START FUNCTION_OPERATIONS %%%>
+// <%%% START IF_RESULT_SIMPLE %%%>
+%OPERATION_RESULT% __fastcall T%SERVICE_NAME%::%OPERATION_NAME%(
+// <%%% END IF_RESULT_SIMPLE %%%>
+// <%%% START IF_RESULT_COMPLEX %%%>
+%OPERATION_RESULT%* __fastcall T%SERVICE_NAME%::%OPERATION_NAME%(
+// <%%% END IF_RESULT_COMPLEX %%%>
+  // <%%% START PARAMS %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS %%%>
+  )
+{
+  // Insert your implementation code for %SERVICE_NAME%::%OPERATION_NAME% here
+}
+// <%%% END FUNCTION_OPERATIONS %%%>
+
+// <%%% START PROCEDURE_OPERATIONS %%%>
+void __fastcall T%SERVICE_NAME%::%OPERATION_NAME%(
+  // <%%% START PARAMS %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS %%%>
+  )
+{
+  // Insert your implementation code for %SERVICE_NAME%::%OPERATION_NAME% here
+}
+// <%%% END PROCEDURE_OPERATIONS %%%>
+
+void __initialization_%UNIT_NAME%();
+
+#pragma startup __initialization_%UNIT_NAME%
+
+void __initialization_%UNIT_NAME%()
+{
+  new TROClassFactory("%SERVICE_NAME%", Create_%SERVICE_NAME%, __classid(T%SERVICE_NAME%_Invoker));
+}
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.dfm
new file mode 100644
index 0000000..63e0a45
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.dfm	
@@ -0,0 +1,7 @@
+// <%%% START SERVICES %%%>
+object %SERVICE_NAME%: T%SERVICE_NAME%
+  OldCreateOrder = False
+  Height = 150
+  Width = 150
+end
+// <%%% END SERVICES %%%>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.h b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.h
new file mode 100644
index 0000000..dfda313
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.h	
@@ -0,0 +1,90 @@
+// <%%% START SERVICES %%%>
+// unit %UNIT_NAME%
+//
+/*---------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile your project.                }
+{                                                                            }
+{ Modify the %UNIT_NAME%.cpp file to change the implementation details of    }
+{ this service.                                                              }
+{---------------------------------------------------------------------------*/
+
+#ifndef %UNIT_NAME%H
+#define %UNIT_NAME%H
+
+#include <System.hpp>	          // Pascal unit
+// <%%% START IF_DATA_MODULE %%%>
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include <uRORemoteDataModule.hpp>  // Pascal unit
+// <%%% END IF_DATA_MODULE %%%>
+#include <Uroserver.hpp>        // Pascal unit
+#include "%LIBRARY_NAME%_intf.h"
+
+// T%SERVICE_NAME%
+class T%SERVICE_NAME% : public %SERVICE_ANCESTOR_NAME%, I%SERVICE_NAME%  // implements I%SERVICE_NAME%
+{
+  typedef %SERVICE_ANCESTOR_NAME% inherited;
+
+// <%%% START IF_DATA_MODULE %%%>
+__published:   // this line is required or the IDE will consider the declaration of the datamodule is incorrect.	
+// <%%% END IF_DATA_MODULE %%%>
+protected:
+  // I%SERVICE_NAME% methods
+  // <%%% START FUNCTION_OPERATIONS %%%>
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  virtual %OPERATION_RESULT% __fastcall %OPERATION_NAME%(
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  virtual %OPERATION_RESULT%* __fastcall %OPERATION_NAME%(
+  // <%%% END IF_RESULT_COMPLEX %%%>
+    // <%%% START PARAMS %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS %%%>
+    );
+  // <%%% END FUNCTION_OPERATIONS %%%>
+  // <%%% START PROCEDURE_OPERATIONS %%%>
+  virtual void __fastcall %OPERATION_NAME%(
+    // <%%% START PARAMS %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS %%%>
+    );
+  // <%%% END PROCEDURE_OPERATIONS %%%>
+
+public:
+  // <%%% START IF_DATA_MODULE %%%>
+  __fastcall T%SERVICE_NAME%(Classes::TComponent* aOwner);
+
+  // <%%% END IF_DATA_MODULE %%%>
+  virtual HRESULT __stdcall QueryInterface(const GUID& IID, void **Obj) {
+    return inherited::QueryInterface(IID, (void *)Obj); }
+
+  virtual ULONG __stdcall AddRef() {
+    return inherited::_AddRef();  }
+
+  virtual ULONG __stdcall Release() {
+    return inherited::_Release(); }
+};
+// <%%% START IF_DATA_MODULE %%%>
+//---------------------------------------------------------------------------
+extern PACKAGE T%SERVICE_NAME% *%SERVICE_NAME%;
+//---------------------------------------------------------------------------
+// <%%% END IF_DATA_MODULE %%%>
+
+#endif	// %UNIT_NAME%H
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.pas
new file mode 100644
index 0000000..a2541b8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.impl.pas	
@@ -0,0 +1,92 @@
+unit %UNIT_NAME%;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  // <%%% START REQUIRED_UNITS %%%>
+  {Required:} %REQUIRED_UNIT_NAME%,
+  // <%%% END REQUIRED_UNITS %%%>
+  {Generated:} %LIBRARY_NAME%_Intf;
+
+// <%%% START SERVICES %%%>
+type
+  { T%SERVICE_NAME% }
+  T%SERVICE_NAME% = class(%SERVICE_ANCESTOR_NAME%, I%SERVICE_NAME%)
+  private
+  protected
+    { I%SERVICE_NAME% methods }
+    // <%%% START FUNCTION_OPERATIONS %%%>
+    function %OPERATION_NAME%(
+               // <%%% START PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END PARAMS %%%>
+               ): %OPERATION_RESULT%;
+    // <%%% END FUNCTION_OPERATIONS %%%>
+    // <%%% START PROCEDURE_OPERATIONS %%%>
+    procedure %OPERATION_NAME%(
+               // <%%% START PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END PARAMS %%%>
+               );
+    // <%%% END PROCEDURE_OPERATIONS %%%>
+  end;
+// <%%% END SERVICES %%%>
+
+implementation
+
+// <%%% START IF_DATA_MODULE %%%>
+{$R *.dfm}
+
+// <%%% END IF_DATA_MODULE %%%>
+uses
+  {Generated:} %LIBRARY_NAME%_Invk;
+
+// <%%% START SERVICES %%%>
+procedure Create_%SERVICE_NAME%(out anInstance : IUnknown);
+begin
+  anInstance := T%SERVICE_NAME%.Create(
+    // <%%% START IF_DATA_MODULE %%%>
+    nil
+    // <%%% END IF_DATA_MODULE %%%>
+    );
+end;
+
+{ %SERVICE_NAME% }
+// <%%% START FUNCTION_OPERATIONS %%%>
+function T%SERVICE_NAME%.%OPERATION_NAME%(
+           // <%%% START PARAMS %%%>
+           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+           // <%%% END PARAMS %%%>
+           ): %OPERATION_RESULT%;
+begin
+end;
+
+// <%%% END FUNCTION_OPERATIONS %%%>
+// <%%% START PROCEDURE_OPERATIONS %%%>
+procedure T%SERVICE_NAME%.%OPERATION_NAME%(
+           // <%%% START PARAMS %%%>
+           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+           // <%%% END PARAMS %%%>
+           );
+begin
+end;
+
+// <%%% END PROCEDURE_OPERATIONS %%%>
+initialization
+  TROClassFactory.Create('%SERVICE_NAME%', Create_%SERVICE_NAME%, T%SERVICE_NAME%_Invoker);
+
+finalization
+
+// <%%% END SERVICES %%%>
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.cpp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.cpp
new file mode 100644
index 0000000..b361e18
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.cpp	
@@ -0,0 +1,1316 @@
+// %UNIT_NAME%
+//
+/*---------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project.                                }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{---------------------------------------------------------------------------*/
+
+void __initialization_%UNIT_NAME%();
+void __finalization_%UNIT_NAME%();
+
+#pragma startup __initialization_%UNIT_NAME%
+#pragma exit    __finalization_%UNIT_NAME%
+
+#include "%LIBRARY_NAME%_Intf.h"
+#include <uROEventRepository.hpp>
+#include <uRORes.hpp>
+
+// Implementation of %UNIT_NAME%
+
+// <%%% START ARRAYS %%%>
+// %ARRAY_NAME%
+void __fastcall %ARRAY_NAME%::Assign(Classes::TPersistent* iSource)
+{
+  %ARRAY_NAME%* lSource = dynamic_cast<%ARRAY_NAME%*>(iSource);
+  if (lSource)
+  {
+    Clear();
+    Resize(lSource->Count);
+    for (int i = 0 ; i < Count ; i++)
+    {
+      // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+      if (lSource->Items[i] != NULL)
+      {
+        Items[i]->Assign(lSource->Items[i]);
+      }
+      // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+      // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+      Items[i] = lSource->Items[i];
+      // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+    }
+  }
+  else
+  {
+    inherited::Assign(iSource);
+  }
+}
+
+void __fastcall %ARRAY_NAME%::ReadComplex(TObject* ASerializer)
+{
+  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  %ARRAY_TYPE% lval;
+  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  %ARRAY_TYPE%* lval;
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  TROSerializer* Serializer = dynamic_cast<TROSerializer*>(ASerializer);
+  for (int i = 0; i < Count; i++)
+  {
+    // <%%% START IF_ARRAY_BINARY_TYPE %%%>
+    Serializer->ReadBinary(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_BINARY_TYPE %%%>
+    // <%%% START IF_ARRAY_BOOLEAN_TYPE %%%>
+    Serializer->ReadEnumerated(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), __GetboolInfo, &lval, i);
+    // <%%% END IF_ARRAY_BOOLEAN_TYPE %%%>
+    // <%%% START IF_ARRAY_CURRENCY_TYPE %%%>
+    Serializer->ReadDouble(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), ftCurr, &lval, i);
+    // <%%% END IF_ARRAY_CURRENCY_TYPE %%%>
+    // <%%% START IF_ARRAY_DATETIME_TYPE %%%>
+    Serializer->ReadDateTime(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_DATETIME_TYPE %%%>
+    // <%%% START IF_ARRAY_DECIMAL_TYPE %%%>
+    Serializer->ReadDecimal(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_DECIMAL_TYPE %%%>
+    // <%%% START IF_ARRAY_DOUBLE_TYPE %%%>
+    Serializer->ReadDouble(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), ftDouble, &lval, i);
+    // <%%% END IF_ARRAY_DOUBLE_TYPE %%%>
+    // <%%% START IF_ARRAY_GUID_TYPE %%%>
+    Serializer->ReadGuid(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_GUID_TYPE %%%>
+    // <%%% START IF_ARRAY_INT64_TYPE %%%>
+    Serializer->ReadInt64(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_INT64_TYPE %%%>
+    // <%%% START IF_ARRAY_INTEGER_TYPE %%%>
+    Serializer->ReadInteger(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), otSLong, &lval, i);
+    // <%%% END IF_ARRAY_INTEGER_TYPE %%%>
+    // <%%% START IF_ARRAY_ANSISTRING_TYPE %%%>
+    Serializer->ReadUTF8String(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_ANSISTRING_TYPE %%%>
+    // <%%% START IF_ARRAY_UTF8STRING_TYPE %%%>
+    Serializer->ReadUTF8String(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_UTF8STRING_TYPE %%%>
+    // <%%% START IF_ARRAY_VARIANT_TYPE %%%>
+    Serializer->ReadVariant(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_VARIANT_TYPE %%%>
+    // <%%% START IF_ARRAY_WIDESTRING_TYPE %%%>
+    Serializer->ReadWideString(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_WIDESTRING_TYPE %%%>
+    // <%%% START IF_ARRAY_XML_TYPE %%%>
+    Serializer->ReadXml(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &lval, i);
+    // <%%% END IF_ARRAY_XML_TYPE %%%>
+    // <%%% START IF_ARRAY_ARRAY_TYPE %%%>
+    Serializer->ReadArray(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), __classid(%ARRAY_TYPE%), &lval, i);
+    // <%%% END IF_ARRAY_ARRAY_TYPE %%%>
+    // <%%% START IF_ARRAY_ENUM_TYPE %%%>
+    Serializer->ReadEnumerated(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), __Get%ARRAY_TYPE%Info, &lval, i);
+    // <%%% END IF_ARRAY_ENUM_TYPE %%%>
+    // <%%% START IF_ARRAY_STRUCT_TYPE %%%>
+    Serializer->ReadStruct(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), __classid(%ARRAY_TYPE%), &lval, i);
+    // <%%% END IF_ARRAY_STRUCT_TYPE %%%>
+    Items[i] = lval;
+  }
+}
+
+void __fastcall  %ARRAY_NAME%::WriteComplex(TObject* ASerializer)
+{
+  TROSerializer* Serializer = dynamic_cast<TROSerializer*>(ASerializer);
+  for(int i = 0; i < Count; i++)
+    // <%%% START IF_ARRAY_BINARY_TYPE %%%>
+    Serializer->WriteBinary(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_BINARY_TYPE %%%>
+    // <%%% START IF_ARRAY_BOOLEAN_TYPE %%%>
+    Serializer->WriteEnumerated(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), __GetboolInfo, &(fItems[i]), i);
+    // <%%% END IF_ARRAY_BOOLEAN_TYPE %%%>
+    // <%%% START IF_ARRAY_CURRENCY_TYPE %%%>
+    Serializer->WriteDouble(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), ftCurr, &(fItems[i]), i);
+    // <%%% END IF_ARRAY_CURRENCY_TYPE %%%>
+    // <%%% START IF_ARRAY_DATETIME_TYPE %%%>
+    Serializer->WriteDateTime(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_DATETIME_TYPE %%%>
+    // <%%% START IF_ARRAY_DECIMAL_TYPE %%%>
+    Serializer->WriteDecimal(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_DECIMAL_TYPE %%%>
+    // <%%% START IF_ARRAY_DOUBLE_TYPE %%%>
+    Serializer->WriteDouble(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), ftDouble, &(fItems[i]), i);
+    // <%%% END IF_ARRAY_DOUBLE_TYPE %%%>
+    // <%%% START IF_ARRAY_GUID_TYPE %%%>
+    Serializer->WriteGuid(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_GUID_TYPE %%%>
+    // <%%% START IF_ARRAY_INT64_TYPE %%%>
+    Serializer->WriteInt64(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_INT64_TYPE %%%>
+    // <%%% START IF_ARRAY_INTEGER_TYPE %%%>
+    Serializer->WriteInteger(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), otSLong, &(fItems[i]), i);
+    // <%%% END IF_ARRAY_INTEGER_TYPE %%%>
+    // <%%% START IF_ARRAY_ANSISTRING_TYPE %%%>
+    Serializer->WriteUTF8String(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_ANSISTRING_TYPE %%%>
+    // <%%% START IF_ARRAY_UTF8STRING_TYPE %%%>
+    Serializer->WriteUTF8String(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_UTF8STRING_TYPE %%%>
+    // <%%% START IF_ARRAY_VARIANT_TYPE %%%>
+    Serializer->WriteVariant(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_VARIANT_TYPE %%%>
+    // <%%% START IF_ARRAY_WIDESTRING_TYPE %%%>
+    Serializer->WriteWideString(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_WIDESTRING_TYPE %%%>
+    // <%%% START IF_ARRAY_XML_TYPE %%%>
+    Serializer->WriteXml(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_XML_TYPE %%%>
+    // <%%% START IF_ARRAY_ARRAY_TYPE %%%>
+    Serializer->WriteArray(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), i);
+    // <%%% END IF_ARRAY_ARRAY_TYPE %%%>
+    // <%%% START IF_ARRAY_ENUM_TYPE %%%>
+    Serializer->WriteEnumerated(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), __Get%ARRAY_TYPE%Info, &(fItems[i]), i);
+    // <%%% END IF_ARRAY_ENUM_TYPE %%%>
+    // <%%% START IF_ARRAY_STRUCT_TYPE %%%>
+    Serializer->WriteStruct(Serializer->GetArrayElementName(GetItemType(__classid(%ARRAY_NAME%)), GetItemRef(i)), &(fItems[i]), __classid(%ARRAY_TYPE%), i);
+    // <%%% END IF_ARRAY_STRUCT_TYPE %%%>
+}
+
+void __fastcall %ARRAY_NAME%::Grow()
+{
+  int Delta;
+  int Capacity = fItems.Length;
+  if (Capacity > 64) 
+  {
+    Delta = Capacity / 4;
+  }
+  else
+  {
+    if (Capacity > 8) 
+      Delta = 16;
+    else
+      Delta = 4;
+  }
+  fItems.set_length(Capacity + Delta);
+}
+
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+%ARRAY_TYPE%* __fastcall %ARRAY_NAME%::GetItems(const int Index)
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+%ARRAY_TYPE% __fastcall %ARRAY_NAME%::GetItems(const int Index)
+// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+{
+  if ((Index < 0) || (Index >= Count))
+  {
+    RaiseError(LoadResourceString(&_err_ArrayIndexOutOfBounds), ARRAYOFCONST((Index)));
+  }
+  return fItems[Index];
+}
+
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+void __fastcall %ARRAY_NAME%::SetItems(const int Index, %ARRAY_TYPE%* Value)
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+void __fastcall %ARRAY_NAME%::SetItems(const int Index, %ARRAY_TYPE% Value)
+// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+{
+  if ((Index < 0) || (Index >= Count))
+  {
+    RaiseError(LoadResourceString(&_err_ArrayIndexOutOfBounds), ARRAYOFCONST((Index)));
+  }
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  delete fItems[Index];
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  fItems[Index] = Value;
+}
+
+int __fastcall %ARRAY_NAME%::GetCount()
+{
+  return fCount;
+}
+
+void* __fastcall %ARRAY_NAME%::GetItemRef(const int Index)
+{
+  if ((Index < 0) || (Index >= Count))
+  {
+    RaiseError(LoadResourceString(&_err_ArrayIndexOutOfBounds), ARRAYOFCONST((Index)));
+  }
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  return fItems[Index];
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  return &fItems[Index];
+// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+}
+
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+void __fastcall %ARRAY_NAME%::SetItemRef(const int Index, void* Ref)
+{
+  if ((Index < 0) || (Index >= Count))
+  {
+    RaiseError(LoadResourceString(&_err_ArrayIndexOutOfBounds), ARRAYOFCONST((Index)));
+  }
+
+  if (Ref != fItems[Index])
+  {
+    delete fItems[Index];
+    fItems[Index] = reinterpret_cast<%ARRAY_TYPE%*>(Ref);
+  }
+}
+
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+void __fastcall %ARRAY_NAME%::Clear()
+{
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  for (int i = 0; i < Count; i++)
+    delete fItems[i];
+
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  fItems.set_length(0);
+  fCount = 0;
+}
+
+void __fastcall %ARRAY_NAME%::Delete(const int Index)
+{
+  if (Index >= Count)
+  {
+    RaiseError(LoadResourceString(&_err_InvalidIndex), ARRAYOFCONST((Index)));
+  }
+
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  delete fItems[Index];
+
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  if (Index < Count - 1)
+    for (int i = Index; i < Count - 1 ; i++)
+      fItems[i] = fItems[i + 1];
+
+  fItems.set_length(Count - 1);
+  fCount--;
+}
+
+void __fastcall %ARRAY_NAME%::Resize(const int ElementCount)
+{
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  int i;
+  for(i = fCount -1; i >= ElementCount; --i)
+    delete fItems[i];
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  fItems.set_length(ElementCount);
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  for(i = fCount; i <= ElementCount -1; ++i)
+    fItems[i] = new %ARRAY_TYPE%();
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  fCount = ElementCount;
+}
+
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+%ARRAY_TYPE%* __fastcall %ARRAY_NAME%::Add()
+{
+  %ARRAY_TYPE%* result = new %ARRAY_TYPE%();
+  Add(result);
+  return result;
+}
+
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+int __fastcall %ARRAY_NAME%::Add(%ARRAY_TYPE%* Value)
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+int __fastcall %ARRAY_NAME%::Add(%ARRAY_TYPE% Value)
+// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+{
+  int result = Count;
+  if (fItems.Length == result)
+    Grow();
+
+  fItems[result] = Value;
+  fCount++;
+  return result;
+}
+// <%%% END ARRAYS %%%>
+// <%%% START EXCEPTIONS %%%>
+// %EXCEPTION_NAME%
+
+%EXCEPTION_NAME%::%EXCEPTION_NAME%(AnsiString anExceptionMessage
+                   // <%%% START ANCESTOR_FIELDS %%%>
+                   // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+                   , %FIELD_TYPE% a%FIELD_NAME% 
+                   // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+                   // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+                   , %FIELD_TYPE%* a%FIELD_NAME% 
+                   // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+                   // <%%% END ANCESTOR_FIELDS %%%>
+                   // <%%% START FIELDS_NO_STRIP %%%>
+                   // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+                   , %FIELD_TYPE% a%FIELD_NAME% 
+                   // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+                   // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+                   , %FIELD_TYPE%* a%FIELD_NAME% 
+                   // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+                   // <%%% END FIELDS_NO_STRIP %%%>
+                   ): %EXCEPTION_ANCESTOR_NAME%(anExceptionMessage
+                     // <%%% START ANCESTOR_FIELDS %%%>
+                     , a%FIELD_NAME% 
+                     // <%%% END ANCESTOR_FIELDS %%%>
+                     )
+{
+  // <%%% START FIELDS_NO_STRIP %%%>
+  f%FIELD_NAME% = a%FIELD_NAME%;
+  // <%%% END FIELDS_NO_STRIP %%%>
+}
+
+// <%%% START IF_HAS_FIELDS %%%>
+void __fastcall %EXCEPTION_NAME%::ReadException(TObject* ASerializer)
+{
+  if (dynamic_cast<TROSerializer*>(ASerializer)->RecordStrictOrder)
+  {
+    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>
+    inherited::ReadException(ASerializer);
+    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadBinary("%FIELD_NAME%", &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadGuid("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadInt64("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadVariant("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadWideString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadXml("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadArray("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadStruct("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    %FIELD_NAME% = l_%FIELD_NAME%;
+    // <%%% END FIELDS_NO_STRIP %%%>
+  }
+  else
+  {
+    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadBinary("%FIELD_NAME%", &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadGuid("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadInt64("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadVariant("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadWideString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadXml("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadArray("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadStruct("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    %FIELD_NAME% = l_%FIELD_NAME%;
+    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+  }
+}
+
+void __fastcall %EXCEPTION_NAME%::WriteException(TObject* ASerializer)
+{
+  if (dynamic_cast<TROSerializer*>(ASerializer)->RecordStrictOrder)
+  {
+    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>
+    inherited::WriteException(ASerializer);
+    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteBinary("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteGuid("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteInt64("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteVariant("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteWideString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteXml("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteArray("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteStruct("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% END FIELDS_NO_STRIP %%%>
+  }
+  else
+  {
+    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteBinary("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteGuid("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteInt64("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteVariant("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteWideString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteXml("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteArray("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteStruct("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+  }
+}
+
+// <%%% END IF_HAS_FIELDS %%%>
+// <%%% END EXCEPTIONS %%%>
+// <%%% START STRUCTS %%%>
+// %STRUCT_NAME%
+
+void __fastcall %STRUCT_NAME%::Assign(Classes::TPersistent* iSource)
+{
+  inherited::Assign(iSource);  // inherited typedef
+  // <%%% START IF_HAS_FIELDS %%%>
+
+  %STRUCT_NAME%* lSource = dynamic_cast<%STRUCT_NAME%*>(iSource);
+  if (lSource)
+  {
+  // <%%% END IF_HAS_FIELDS %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_NAME% = lSource->%FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_NOT_AUTO_CREATE_FIELDS %%%>
+    if (f%FIELD_NAME% != NULL)
+    {
+      if (lSource->%FIELD_NAME% != NULL) 
+      {
+        %FIELD_NAME%->Assign(lSource->%FIELD_NAME%);
+      }
+      else
+      {
+        delete f%FIELD_NAME%;
+        f%FIELD_NAME% = NULL;
+      }
+    }
+    // <%%% END IF_NOT_AUTO_CREATE_FIELDS %%%>
+    // <%%% START IF_AUTO_CREATE_FIELDS %%%>
+    %FIELD_NAME%->Assign(lSource->%FIELD_NAME%);
+    // <%%% END IF_AUTO_CREATE_FIELDS %%%>
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% END FIELDS_NO_STRIP %%%>
+  // <%%% START IF_HAS_FIELDS %%%>
+  }
+  // <%%% END IF_HAS_FIELDS %%%>
+}
+
+// <%%% START FIELDS_NO_STRIP %%%>
+// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+%FIELD_TYPE%* __fastcall %STRUCT_NAME%::Get%FIELD_NAME%()
+{
+  // <%%% START IF_AUTO_CREATE_FIELDS %%%>
+  if (f%FIELD_NAME% == NULL) 
+    f%FIELD_NAME% = new %FIELD_TYPE%();
+  // <%%% END IF_AUTO_CREATE_FIELDS %%%>
+  return f%FIELD_NAME%;
+}
+
+// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+// <%%% END FIELDS_NO_STRIP %%%>
+// <%%% START IF_HAS_FIELDS %%%>
+void __fastcall %STRUCT_NAME%::ReadComplex(TObject* ASerializer)
+{
+  if (dynamic_cast<TROSerializer*>(ASerializer)->RecordStrictOrder)
+  {
+    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>
+    inherited::ReadException(ASerializer);
+    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadBinary("%FIELD_NAME%", &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadGuid("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadInt64("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadVariant("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadWideString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadXml("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadArray("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadStruct("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    %FIELD_NAME% = l_%FIELD_NAME%;
+    // <%%% END FIELDS_NO_STRIP %%%>
+  }
+  else
+  {
+    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadBinary("%FIELD_NAME%", &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadGuid("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadInt64("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadVariant("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadWideString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadXml("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadArray("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->ReadStruct("%FIELD_NAME%", __classid(%FIELD_TYPE%), &l_%FIELD_NAME%);
+    if (%FIELD_NAME% != l_%FIELD_NAME%) delete %FIELD_NAME%;
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    %FIELD_NAME% = l_%FIELD_NAME%;
+    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+  }
+}
+
+void __fastcall %STRUCT_NAME%::WriteComplex(TObject* ASerializer)
+{
+  if (dynamic_cast<TROSerializer*>(ASerializer)->RecordStrictOrder)
+  {
+    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>
+    inherited::WriteException(ASerializer);
+    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteBinary("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteGuid("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteInt64("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteVariant("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteWideString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteXml("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteArray("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteStruct("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% END FIELDS_NO_STRIP %%%>
+  }
+  else
+  {
+    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_TYPE% l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    %FIELD_TYPE%* l_%FIELD_NAME% = %FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteBinary("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __GetboolInfo, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftCurr, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDateTime("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDecimal("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteDouble("%FIELD_NAME%", ftDouble, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteGuid("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteInt64("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteInteger("%FIELD_NAME%", otSLong, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteAnsiString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteUTF8String("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteVariant("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteWideString("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteXml("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteArray("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteEnumerated("%FIELD_NAME%", __Get%FIELD_TYPE%Info, &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    dynamic_cast<TROSerializer*>(ASerializer)->WriteStruct("%FIELD_NAME%", &l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+  }
+}
+
+// <%%% END IF_HAS_FIELDS %%%>
+//%STRUCT_COLLECTION_NAME%
+%STRUCT_NAME%* __fastcall %STRUCT_COLLECTION_NAME%::Add()
+{
+  return dynamic_cast<%STRUCT_NAME%*>(inherited::Add());
+}
+
+%STRUCT_NAME%* __fastcall %STRUCT_COLLECTION_NAME%::GetItems(const int Index)
+{
+  return dynamic_cast<%STRUCT_NAME%*>(inherited::Items[Index]);
+}
+
+void __fastcall %STRUCT_COLLECTION_NAME%::SetItems(const int Index, %STRUCT_NAME%* Value)
+{
+  dynamic_cast<%STRUCT_NAME%*>(inherited::Items[Index])->Assign(Value);
+}
+
+// <%%% START ARRAYS_IS_FOUND %%%>
+void %STRUCT_COLLECTION_NAME%::LoadFromArray(%ARRAY_NAME%* anArray)
+{
+  Clear();
+  
+  for(int i = 0; i <= anArray->Count-1; ++i)
+    Add()->Assign((*anArray)[i]);
+}
+
+void %STRUCT_COLLECTION_NAME%::SaveToArray(%ARRAY_NAME%* anArray)
+{
+  anArray->Clear();
+  anArray->Resize(Count);
+  for(int i = 0; i <= Count-1; ++i)
+  {
+    anArray->Items[i] = new %STRUCT_NAME%;
+    anArray->Items[i]->Assign(Items[i]);
+  }
+}
+
+// <%%% END ARRAYS_IS_FOUND %%%>
+// <%%% END STRUCTS %%%>
+// <%%% START SERVICES %%%>
+// <%%% START FUNCTION_OPERATIONS %%%>
+// <%%% START IF_RESULT_SIMPLE %%%>
+%OPERATION_RESULT% __fastcall T%SERVICE_NAME%_Proxy::%OPERATION_NAME%(
+// <%%% END IF_RESULT_SIMPLE %%%>
+// <%%% START IF_RESULT_COMPLEX %%%>
+%OPERATION_RESULT%* __fastcall T%SERVICE_NAME%_Proxy::%OPERATION_NAME%(
+// <%%% END IF_RESULT_COMPLEX %%%>
+  // <%%% START PARAMS %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS %%%>
+  )
+{
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  %OPERATION_RESULT% result;
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  %OPERATION_RESULT%* result;
+  // <%%% END IF_RESULT_COMPLEX %%%>
+
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% = NULL;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  result = NULL;
+  // <%%% END IF_RESULT_COMPLEX %%%>
+  try
+  {
+    __Message->InitializeRequestMessage(__TransportChannel, "%LIBRARY_NAME%", __InterfaceName, "%OPERATION_NAME%");
+    // <%%% START IN_PARAMS_NO_STRIP %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END IN_PARAMS_NO_STRIP %%%>
+    __Message->Finalize();
+
+    __TransportChannel->Dispatch(__Message);
+
+    // <%%% START IF_RESULT_SIMPLE %%%>
+    __Message->Read("Result", __Get%OPERATION_RESULT%Info, &result, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));
+    // <%%% END IF_RESULT_SIMPLE %%%>
+    // <%%% START IF_RESULT_COMPLEX %%%>
+    __Message->Read("Result", __typeinfo(%OPERATION_RESULT%), &result, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));
+    // <%%% END IF_RESULT_COMPLEX %%%>
+    // <%%% START OUT_PARAMS_NO_STRIP %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    __Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    __Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  }
+  __finally
+  {
+    __Message->FreeStream();
+  }
+  return result;
+}
+
+// <%%% END FUNCTION_OPERATIONS %%%>
+// <%%% START PROCEDURE_OPERATIONS %%%>
+void __fastcall T%SERVICE_NAME%_Proxy::%OPERATION_NAME%(
+  // <%%% START PARAMS %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS %%%>
+  )
+{
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% = NULL;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  try
+  {
+    __Message->InitializeRequestMessage(__TransportChannel, "%LIBRARY_NAME%", __InterfaceName, "%OPERATION_NAME%");
+    // <%%% START IN_PARAMS_NO_STRIP %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END IN_PARAMS_NO_STRIP %%%>
+    __Message->Finalize();
+
+    __TransportChannel->Dispatch(__Message);
+
+    // <%%% START OUT_PARAMS_NO_STRIP %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    __Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    __Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  }
+  __finally
+  {
+    __Message->FreeStream();
+  }
+}
+
+// <%%% END PROCEDURE_OPERATIONS %%%>
+// <%%% END SERVICES %%%>
+// <%%% START EVENT_SINKS %%%>
+
+namespace %NAMESPACE_NAME%
+{
+// T%EVENT_SINK_NAME%_Writer
+class DELPHICLASS T%EVENT_SINK_NAME%_Writer;
+class T%EVENT_SINK_NAME%_Writer : public T%EVENT_SINK_WRITER_ANCESTOR_NAME%, I%EVENT_SINK_NAME%_Writer
+{
+  typedef T%EVENT_SINK_WRITER_ANCESTOR_NAME% inherited;
+protected:
+  // <%%% START OPERATIONS %%%>
+  void __fastcall %OPERATION_NAME%(const GUID __Sender
+					// <%%% START PARAMS %%%>
+					// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+					, %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%
+					// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+					// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+					, %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%
+					// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+					// <%%% END PARAMS %%%>
+					);
+  // <%%% END OPERATIONS %%%>
+public:
+  virtual HRESULT __stdcall QueryInterface(const GUID& IID, void **Obj) {
+	return inherited::QueryInterface(IID, (void *)Obj); }
+
+  virtual ULONG __stdcall AddRef() {
+	return inherited::_AddRef();  }
+
+  virtual ULONG __stdcall Release() {
+	return inherited::_Release(); }
+};
+
+}  // namespace %NAMESPACE_NAME%
+
+// <%%% START OPERATIONS %%%>
+void __fastcall T%EVENT_SINK_NAME%_Writer::%OPERATION_NAME%(const GUID __Sender
+  // <%%% START PARAMS %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  , %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  , %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS %%%>
+  )
+{
+  Binary* __eventdata = new Binary("");
+  try
+  {
+    __Message->InitializeEventMessage(NULL, "%LIBRARY_NAME%", EID_%EVENT_SINK_NAME%, "%OPERATION_NAME%");
+    // <%%% START PARAMS_NO_STRIP %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS_NO_STRIP %%%>
+    __Message->Finalize();
+
+    __Message->WriteToStream(__eventdata);
+
+    Repository->StoreEventData(__Sender, __eventdata, TROEventWriter::ExcludeSender, TROEventWriter::ExcludeSessionList, TROEventWriter::SessionList->CommaText);
+  }
+  __finally
+  {
+    delete __eventdata;
+  }
+}
+
+// <%%% END OPERATIONS %%%>
+/* T%EVENT_SINK_NAME%_Invoker */
+namespace %NAMESPACE_NAME%
+{
+class DELPHICLASS T%EVENT_SINK_NAME%_Invoker;
+class T%EVENT_SINK_NAME%_Invoker : public T%EVENT_SINK_INVOKER_ANCESTOR_NAME%
+{
+__published:
+  // <%%% START OPERATIONS %%%>
+  void __fastcall Invoke_%OPERATION_NAME%(TROEventReceiver* __EventReceiver, IROMessage* __Message, IUnknown* __Target);
+  // <%%% END OPERATIONS %%%>
+};
+} // namespace %NAMESPACE_NAME%
+
+// <%%% START OPERATIONS %%%>
+void __fastcall T%EVENT_SINK_NAME%_Invoker::Invoke_%OPERATION_NAME%(TROEventReceiver* __EventReceiver, IROMessage* __Message, IUnknown* __Target)
+{
+  // <%%% START PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  %PARAM_TYPE% %PARAM_NAME%;
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_TYPE%* %PARAM_NAME%;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS_NO_STRIP %%%>
+  // <%%% START IF_HAS_COMPLEX_TYPE %%%>
+  TROObjectDisposer* __lObjectDisposer;
+  // <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  _di_I%EVENT_SINK_NAME% __%EVENT_SINK_NAME%Instance;
+
+  // <%%% START PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% = NULL;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS_NO_STRIP %%%>
+  try
+  {
+    // <%%% START IN_PARAMS_NO_STRIP %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    __Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    __Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END IN_PARAMS_NO_STRIP %%%>
+
+    if (__Target->QueryInterface(I%EVENT_SINK_NAME%_IID, reinterpret_cast<void**>(&__%EVENT_SINK_NAME%Instance)) == S_OK)
+    {
+      __%EVENT_SINK_NAME%Instance->%OPERATION_NAME%(
+                                      // <%%% START PARAMS %%%>
+                                      %PARAM_NAME%,
+                                      // <%%% END PARAMS %%%>
+                                    );
+    }
+    else
+    {
+      throw EIntfCastError::EIntfCastError("I%EVENT_SINK_NAME% not supported");
+    }
+
+    // <%%% START OUT_PARAMS_NO_STRIP %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  }
+  __finally
+  {
+    // <%%% START IF_HAS_COMPLEX_TYPE %%%>
+    __lObjectDisposer = new TROObjectDisposer(__EventReceiver->operator IInterface *());
+    try
+    {
+      // <%%% START PARAMS_NO_STRIP %%%>
+      // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+      __lObjectDisposer->Add(%PARAM_NAME%);
+      // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+      // <%%% END PARAMS_NO_STRIP %%%>
+    }
+    __finally
+    {
+      delete __lObjectDisposer;
+    }
+    // <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  }
+}
+
+// <%%% END OPERATIONS %%%>
+// <%%% END EVENT_SINKS %%%>
+void __initialization_%UNIT_NAME%()
+{
+  // <%%% START STRUCTS %%%>
+  RegisterROClass(__classid(%STRUCT_NAME%));
+  // <%%% END STRUCTS %%%>
+  // <%%% START ARRAYS %%%>
+  RegisterROClass(__classid(%ARRAY_NAME%));
+  // <%%% END ARRAYS %%%>
+  // <%%% START EXCEPTIONS %%%>
+  RegisterExceptionClass(__classid(%EXCEPTION_NAME%));
+  // <%%% END EXCEPTIONS %%%>
+  // <%%% START SERVICES %%%>
+  RegisterProxyClass(I%SERVICE_NAME%_IID, __classid(T%SERVICE_NAME%_Proxy));
+  // <%%% END SERVICES %%%>
+  // <%%% START EVENT_SINKS %%%>
+  RegisterEventWriterClass(I%EVENT_SINK_NAME%_IID, __classid(T%EVENT_SINK_NAME%_Writer));
+  RegisterEventInvokerClass(EID_%EVENT_SINK_NAME%, __classid(T%EVENT_SINK_NAME%_Invoker));
+  // <%%% END EVENT_SINKS %%%>     
+}
+
+void __finalization_%UNIT_NAME%()
+{
+  // <%%% START STRUCTS %%%>
+  UnregisterROClass(__classid(%STRUCT_NAME%));
+  // <%%% END STRUCTS %%%>
+  // <%%% START ARRAYS %%%>
+  UnregisterROClass(__classid(%ARRAY_NAME%));
+  // <%%% END ARRAYS %%%>
+  // <%%% START EXCEPTIONS %%%>
+  UnregisterExceptionClass(__classid(%EXCEPTION_NAME%));
+  // <%%% END EXCEPTIONS %%%>
+  // <%%% START SERVICES %%%>
+  UnregisterProxyClass(I%SERVICE_NAME%_IID);
+  // <%%% END SERVICES %%%>
+  // <%%% START EVENT_SINKS %%%>
+  UnregisterEventWriterClass(I%EVENT_SINK_NAME%_IID);
+  UnregisterEventInvokerClass(EID_%EVENT_SINK_NAME%);
+  // <%%% END EVENT_SINKS %%%>     
+}
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.h b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.h
new file mode 100644
index 0000000..667037c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.h	
@@ -0,0 +1,519 @@
+// %UNIT_NAME%
+//
+/*---------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project.                                }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{---------------------------------------------------------------------------*/
+
+#ifndef %UNIT_NAME%H
+#define %UNIT_NAME%H
+
+#pragma delphiheader begin
+#pragma option push
+#pragma option -w-            // All warnings off
+#pragma option -Vx            // Zero-length empty class member functions
+#pragma pack(push,8)
+
+#include <System.hpp>         // Pascal unit
+#include <Classes.hpp>        // Pascal unit
+#include <Urotypes.hpp>       // Pascal unit
+#include <Uroclient.hpp>      // Pascal unit
+#include <Uroclientintf.hpp>  // Pascal unit
+#include <Uroxmlintf.hpp>     // Pascal unit
+// <%%% START REQUIRED_UNITS %%%>
+#include <%REQUIRED_UNIT_NAME%.hpp>
+// <%%% END REQUIRED_UNITS %%%>
+
+namespace %NAMESPACE_NAME%
+{
+// Library ID
+#define LibraryUID "%LIBRARY_UID%"
+#define TargetNamespace "%NAMESPACE_NAME%"
+
+// Service Interface ID's
+// <%%% START SERVICES %%%>
+const GUID I%SERVICE_NAME%_IID = Sysutils::StringToGUID("%SERVICE_UID%");
+// <%%% END SERVICES %%%>
+
+// Event ID's
+// <%%% START EVENT_SINKS %%%>
+#define EID_%EVENT_SINK_NAME% "%EVENT_SINK_NAME%"
+const GUID I%EVENT_SINK_NAME%_IID = Sysutils::StringToGUID("%EVENT_SINK_UID%");
+// <%%% END EVENT_SINKS %%%>
+
+// Forward declarations
+// <%%% START SERVICES %%%>
+__interface I%SERVICE_NAME%; // = interface;
+// <%%% END SERVICES %%%>
+// <%%% START ARRAYS %%%>
+class DELPHICLASS %ARRAY_NAME%;
+// <%%% END ARRAYS %%%>
+// <%%% START STRUCTS %%%>
+class DELPHICLASS %STRUCT_NAME%;
+// <%%% END STRUCTS %%%>
+// <%%% START EXCEPTIONS %%%>
+class DELPHICLASS %EXCEPTION_NAME%;
+// <%%% END EXCEPTIONS %%%>
+// <%%% START EVENT_SINKS %%%>
+__interface I%EVENT_SINK_NAME%; // = interface;
+// <%%% END EVENT_SINKS %%%>
+
+/* Enumerateds */
+// <%%% START ENUMS %%%>
+// <%%% START DOCUMENTATION %%%>
+
+/* Description:
+    %CONTENT% */
+// <%%% END DOCUMENTATION %%%>
+#pragma option push -b-
+enum %ENUM_NAME% {
+                 // <%%% START VALUES %%%>
+                 %VALUE_NAME%,                
+                 // <%%% END VALUES %%%>                
+                 };
+#pragma option pop
+              
+// <%%% END ENUMS %%%>
+/* Simple type holders */
+// Note: In order to get type info for a simple type, we MUST have it from the
+// published property of a Delphi class. There is no other way as __typeinfo
+// requires the type to actually derive from TObject. Hence the reason why
+// we create these dummy classes with a simple property of the correct type.
+// <%%% START SIMPLE_TYPES %%%>
+#ifndef __Get%TYPE_NAME%Info
+class DELPHICLASS %TYPE_NAME%TypeHolder;
+class %TYPE_NAME%TypeHolder : public TPersistent
+{
+private:
+  %TYPE_NAME% FHolderField;
+__published:
+  __property %TYPE_NAME% HolderField = {read=FHolderField, write=FHolderField};
+};
+#define __Get%TYPE_NAME%Info *::GetPropInfo(__typeinfo(%TYPE_NAME%TypeHolder), "HolderField")->PropType
+#endif  // __Get%TYPE_NAME%Info
+
+// <%%% END SIMPLE_TYPES %%%>
+// <%%% START STRUCTS %%%>
+// %STRUCT_NAME%
+class DELPHICLASS %STRUCT_NAME%;
+class %STRUCT_NAME% : public Urotypes::TROComplexType
+{
+  // Allow the use of "inherited" in our class as Delphi allows
+  typedef Urotypes::TROComplexType inherited;
+  
+private:
+  // <%%% START FIELDS_NO_STRIP %%%>
+  // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+  %FIELD_TYPE% f%FIELD_NAME%;
+  // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+  %FIELD_TYPE%* f%FIELD_NAME%;
+  // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+  // <%%% END FIELDS_NO_STRIP %%%>
+
+  // <%%% START FIELDS_NO_STRIP %%%>
+  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+  %FIELD_TYPE%* __fastcall Get%FIELD_NAME%();
+  // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+  // <%%% END FIELDS_NO_STRIP %%%>
+public:
+  virtual void __fastcall Assign(Classes::TPersistent* iSource);
+  // <%%% START IF_HAS_FIELDS %%%>
+  virtual void __fastcall ReadComplex(TObject* ASerializer);
+  virtual void __fastcall WriteComplex(TObject* ASerializer);
+  // <%%% END IF_HAS_FIELDS %%%>
+
+__published:
+  // <%%% START FIELDS_NO_STRIP %%%>
+  // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+  __property %FIELD_TYPE% %FIELD_NAME% = {read=f%FIELD_NAME%, write=f%FIELD_NAME%}; 
+  // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+  __property %FIELD_TYPE%* %FIELD_NAME% = {read=Get%FIELD_NAME%, write=f%FIELD_NAME%};
+  // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+  // <%%% END FIELDS_NO_STRIP %%%>
+public:
+  // Pascal constructor/destructor
+  #pragma option push -w-inl
+  /* TROComplexType.Create */ inline __fastcall virtual %STRUCT_NAME%()/* overload */ : Urotypes::TROComplexType() {}
+  #pragma option pop
+  #pragma option push -w-inl
+  /* TROComplexType.Destroy */ inline __fastcall virtual ~%STRUCT_NAME%() {}
+  #pragma option pop
+};
+
+// %STRUCT_COLLECTION_NAME%
+class DELPHICLASS %STRUCT_COLLECTION_NAME%;
+class %STRUCT_COLLECTION_NAME% : public Uroclasses::TROCollection
+{
+  typedef Uroclasses::TROCollection inherited;
+
+public:
+  %STRUCT_NAME%* operator[](int Index) { return Items[Index]; }
+
+protected:
+  __fastcall %STRUCT_COLLECTION_NAME%(TMetaClass* aItemClass) : Uroclasses::TROCollection(aItemClass) {} /*overload*/
+  %STRUCT_NAME%* __fastcall GetItems(const int Index);
+  void __fastcall SetItems(const int Index, %STRUCT_NAME%* Value);
+
+public:
+  __fastcall %STRUCT_COLLECTION_NAME%() : Uroclasses::TROCollection(__classid(%STRUCT_NAME%)) {} /*overload*/
+  HIDESBASE %STRUCT_NAME%* __fastcall Add(); /*reintroduce*/
+  // <%%% START ARRAYS_IS_FOUND %%%>
+  void SaveToArray(%ARRAY_NAME%* anArray);
+  void LoadFromArray(%ARRAY_NAME%* anArray);
+  // <%%% END ARRAYS_IS_FOUND %%%>
+  __property %STRUCT_NAME%* Items[int Index] = {read=GetItems, write=SetItems /*default*/};
+  #pragma option push -w-inl
+  /* TCollection.Destroy */ inline __fastcall virtual ~%STRUCT_COLLECTION_NAME%() {}
+  #pragma option pop
+};
+
+typedef DynamicArray<%STRUCT_NAME%* > %UNIT_NAME%_%STRUCT_NAME%__4;
+
+// <%%% END STRUCTS %%%>
+// <%%% START ARRAYS %%%>
+// %ARRAY_NAME%
+
+// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+typedef DynamicArray<%ARRAY_TYPE%> %ARRAY_NAME%_%ARRAY_TYPE%;
+// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+typedef DynamicArray<%ARRAY_TYPE%* > %ARRAY_NAME%_%ARRAY_TYPE%;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+
+class DELPHICLASS %ARRAY_NAME%;
+class %ARRAY_NAME% : public Urotypes::TROArray
+{
+  typedef Urotypes::TROArray inherited;
+
+public:
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  %ARRAY_TYPE%* operator[](const int Index) { return Items[Index]; }
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  %ARRAY_TYPE% operator[](const int Index) { return Items[Index]; }
+  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+
+private:
+  int fCount;
+  %ARRAY_NAME%_%ARRAY_TYPE% fItems;
+
+protected:
+  virtual void __fastcall Grow();
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  %ARRAY_TYPE%* __fastcall GetItems(const int Index);
+  void __fastcall SetItems(const int Index, %ARRAY_TYPE%* Value);
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  %ARRAY_TYPE% __fastcall GetItems(const int Index);
+  void __fastcall SetItems(const int Index, %ARRAY_TYPE% Value);
+  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+  virtual int __fastcall GetCount();
+
+public:
+  /* virtual class method */ 
+  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  virtual Typinfo::PTypeInfo __fastcall GetItemType(const TMetaClass* vmt) { return __Get%ARRAY_TYPE%Info; }
+  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  virtual Typinfo::PTypeInfo __fastcall GetItemType(const TMetaClass* vmt) { return __typeinfo(%ARRAY_TYPE%); }
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  /* virtual class method */ 
+  virtual TMetaClass* __fastcall GetItemClass(const TMetaClass* vmt) { return __classid(%ARRAY_TYPE%); }
+  
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  /* virtual class method */  
+  virtual int __fastcall GetItemSize(const TMetaClass* vmt) { return sizeof(%ARRAY_TYPE%); }
+    
+  virtual void * __fastcall GetItemRef(const int Index);
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  virtual void __fastcall SetItemRef(const int Index, void* Ref);
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  virtual void __fastcall Clear();
+  virtual void __fastcall Delete(const int Index);
+  virtual void __fastcall Resize(const int ElementCount);
+  virtual void __fastcall Assign(Classes::TPersistent* iSource);
+  virtual void __fastcall ReadComplex(TObject* ASerializer);
+  virtual void __fastcall WriteComplex(TObject* ASerializer);
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  %ARRAY_TYPE%* __fastcall Add()/* overload */;
+  int __fastcall Add(%ARRAY_TYPE%* Value)/* overload */;
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  int __fastcall Add(%ARRAY_TYPE% Value)/* overload */;
+  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+  __property int Count = {read=GetCount, nodefault};
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  __property %ARRAY_TYPE%* Items[int Index] = {read=GetItems, write=SetItems/*, default*/};
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  __property %ARRAY_TYPE% Items[int Index] = {read=GetItems, write=SetItems/*, default*/};
+  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+  __property %ARRAY_NAME%_%ARRAY_TYPE% InnerArray = {read=fItems, nodefault};
+public:
+  #pragma option push -w-inl
+  /* TROArray.Destroy */ inline __fastcall virtual ~%ARRAY_NAME%() {Clear();}
+  #pragma option pop
+
+public:
+  #pragma option push -w-inl
+  /* TROComplexType.Create */ inline __fastcall virtual %ARRAY_NAME%()/* overload */ : Urotypes::TROArray() {}
+  #pragma option pop
+};
+
+// <%%% END ARRAYS %%%>
+// <%%% START EXCEPTIONS %%%>
+// <%%% START DOCUMENTATION %%%>
+
+/* Description:
+    %CONTENT% */
+// <%%% END DOCUMENTATION %%%>
+class DELPHICLASS %EXCEPTION_NAME%;
+class %EXCEPTION_NAME% : public %EXCEPTION_ANCESTOR_NAME%
+{
+  typedef %EXCEPTION_ANCESTOR_NAME% inherited;
+  
+private:
+  // <%%% START FIELDS_NO_STRIP %%%>
+  // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+  %FIELD_TYPE% f%FIELD_NAME%;
+  // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+  %FIELD_TYPE%* f%FIELD_NAME%;
+  // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+  // <%%% END FIELDS_NO_STRIP %%%>
+public:
+  %EXCEPTION_NAME%(AnsiString anExceptionMessage
+                   // <%%% START ANCESTOR_FIELDS %%%>
+                   // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+                   , %FIELD_TYPE% a%FIELD_NAME% 
+                   // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+                   // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+                   , %FIELD_TYPE%* a%FIELD_NAME% 
+                   // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+                   // <%%% END ANCESTOR_FIELDS %%%>
+                   // <%%% START FIELDS_NO_STRIP %%%>
+                   // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+                   , %FIELD_TYPE% a%FIELD_NAME% 
+                   // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+                   // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+                   , %FIELD_TYPE%* a%FIELD_NAME% 
+                   // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+                   // <%%% END FIELDS_NO_STRIP %%%>
+                   );
+  // <%%% START IF_HAS_FIELDS %%%>
+  virtual void __fastcall ReadException(TObject* ASerializer);
+  virtual void __fastcall WriteException(TObject* ASerializer);
+  // <%%% END IF_HAS_FIELDS %%%>
+__published:
+  // <%%% START FIELDS_NO_STRIP %%%>
+  // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+  __property %FIELD_TYPE% %FIELD_NAME% = {read=f%FIELD_NAME%, write=f%FIELD_NAME%}; 
+  // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+  // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+  __property %FIELD_TYPE%* %FIELD_NAME% = {read=f%FIELD_NAME%, write=f%FIELD_NAME%}; 
+  // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+  // <%%% END FIELDS_NO_STRIP %%%>
+};
+
+// <%%% END EXCEPTIONS %%%>
+// <%%% START SERVICES %%%>
+__interface I%SERVICE_NAME%;
+typedef System::DelphiInterface<I%SERVICE_NAME%> _di_I%SERVICE_NAME%;
+__interface INTERFACE_UUID("%SERVICE_UID%") I%SERVICE_NAME% : public %SERVICE_ANCESTOR_NAME%
+{
+public:
+  // <%%% START FUNCTION_OPERATIONS %%%>
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  virtual %OPERATION_RESULT% __fastcall %OPERATION_NAME%(
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  virtual %OPERATION_RESULT%* __fastcall %OPERATION_NAME%(
+  // <%%% END IF_RESULT_COMPLEX %%%>
+    // <%%% START PARAMS %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS %%%>
+    ) = 0; // pure virtual function - interface only
+  // <%%% END FUNCTION_OPERATIONS %%%>
+  // <%%% START PROCEDURE_OPERATIONS %%%>
+  virtual void __fastcall %OPERATION_NAME%(
+    // <%%% START PARAMS %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS %%%>
+    ) = 0; // pure virtual function - interface only
+  // <%%% END PROCEDURE_OPERATIONS %%%>
+};
+
+class DELPHICLASS T%SERVICE_NAME%_Proxy;
+class T%SERVICE_NAME%_Proxy : public %SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%
+{
+  typedef %SERVICE_PROXY_ANCESTOR_NAME% inherited;
+  
+protected:
+  virtual AnsiString __fastcall __GetInterfaceName()
+    { return "%SERVICE_NAME%"; }
+
+  // <%%% START FUNCTION_OPERATIONS %%%>
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  virtual %OPERATION_RESULT% __fastcall %OPERATION_NAME%(
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  virtual %OPERATION_RESULT%* __fastcall %OPERATION_NAME%(
+  // <%%% END IF_RESULT_COMPLEX %%%>
+    // <%%% START PARAMS %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS %%%>
+    );
+  // <%%% END FUNCTION_OPERATIONS %%%>
+  // <%%% START PROCEDURE_OPERATIONS %%%>
+  virtual void __fastcall %OPERATION_NAME%(
+    // <%%% START PARAMS %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS %%%>
+    );
+  // <%%% END PROCEDURE_OPERATIONS %%%>
+  
+public:
+  #pragma option push -w-inl
+  /* TROProxy.Create */ inline __fastcall virtual T%SERVICE_NAME%_Proxy(const Uroclientintf::_di_IROMessage aMessage, const Uroclientintf::_di_IROTransportChannel aTransportChannel)/* overload */ :
+    %SERVICE_PROXY_ANCESTOR_NAME%(aMessage, aTransportChannel) {}
+  #pragma option pop
+  
+  virtual HRESULT __stdcall QueryInterface(const GUID& IID, void **Obj) {
+    return inherited::QueryInterface(IID, (void *)Obj); }
+
+  virtual ULONG __stdcall AddRef() {
+    return inherited::_AddRef();  }
+
+  virtual ULONG __stdcall Release() {
+    return inherited::_Release(); }
+};
+
+// Co%SERVICE_NAME%
+class DELPHICLASS Co%SERVICE_NAME%;
+class Co%SERVICE_NAME% : public System::TObject
+{
+  typedef System::TObject inherited;
+
+public:
+  static _di_I%SERVICE_NAME% __fastcall Create(const Uroclientintf::_di_IROMessage aMessage,
+                        Uroclientintf::_di_IROTransportChannel aTransportChannel)
+  {
+    _di_I%SERVICE_NAME% result;
+    T%SERVICE_NAME%_Proxy* proxy = new T%SERVICE_NAME%_Proxy(aMessage, aTransportChannel);
+    if (proxy->QueryInterface(I%SERVICE_NAME%_IID, reinterpret_cast<void**>(&result)) != S_OK)
+    {
+      delete proxy;
+      throw EIntfCastError::EIntfCastError("I%SERVICE_NAME% not supported");
+    }
+    return result;
+  };
+
+  static _di_I%SERVICE_NAME% __fastcall Create( Uroclient::TROMessage* aMessage,
+                        Uroclient::TROTransportChannel *aTransportChannel)
+  {
+    _di_IROMessage __Message;
+    _di_IROTransportChannel __TransportChannel;
+
+    if (aMessage->GetInterface(__Message))
+    {
+      if (aTransportChannel->GetInterface(__TransportChannel))
+        return Create(__Message, __TransportChannel);
+      else
+        throw EIntfCastError::EIntfCastError("IROTransportChannel not supported");
+    }
+    else
+    {
+      throw EIntfCastError::EIntfCastError("IROMessage not supported");
+    }
+  };
+};
+
+// <%%% END SERVICES %%%>
+// <%%% START EVENT_SINKS %%%>
+/* I%EVENT_SINK_NAME% */
+// <%%% START DOCUMENTATION %%%>
+
+/* Description:
+    %CONTENT% */
+// <%%% END DOCUMENTATION %%%>
+__interface I%EVENT_SINK_NAME%;
+typedef System::DelphiInterface<I%EVENT_SINK_NAME%> _di_I%EVENT_SINK_NAME%;
+__interface INTERFACE_UUID("%EVENT_SINK_UID%") I%EVENT_SINK_NAME% : public %EVENT_SINK_ANCESTOR_NAME%
+{
+public:
+  // <%%% START OPERATIONS %%%>
+  virtual void __fastcall %OPERATION_NAME%(
+    // <%%% START PARAMS %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS %%%>
+    ) = 0; // pure virtual function - interface only
+  // <%%% END OPERATIONS %%%>
+};
+
+/* I%EVENT_SINK_NAME%_Writer */
+// <%%% START DOCUMENTATION %%%>
+
+/* Description:
+    %CONTENT% */
+// <%%% END DOCUMENTATION %%%>
+__interface I%EVENT_SINK_NAME%_Writer;
+typedef System::DelphiInterface<I%EVENT_SINK_NAME%_Writer> _di_I%EVENT_SINK_NAME%_Writer;
+__interface INTERFACE_UUID("%EVENT_SINK_UID%") I%EVENT_SINK_NAME%_Writer : public I%EVENT_SINK_WRITER_ANCESTOR_NAME%
+{
+public:
+  // <%%% START OPERATIONS %%%>
+  virtual void __fastcall %OPERATION_NAME%(GUID __Sender 
+    // <%%% START PARAMS %%%>
+    // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+    , %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%
+    // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+    // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+    , %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%
+    // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+    // <%%% END PARAMS %%%>
+    ) = 0; // pure virtual function - interface only
+  // <%%% END OPERATIONS %%%>
+};
+
+// <%%% END EVENT_SINKS %%%>
+}  // namespace %NAMESPACE_NAME%
+
+using namespace %NAMESPACE_NAME%;
+#pragma pack(pop)
+#pragma option pop
+
+#pragma delphiheader end.
+#endif  // %UNIT_NAME%H
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.pas
new file mode 100644
index 0000000..c33d6fd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.intf.pas	
@@ -0,0 +1,1670 @@
+unit %UNIT_NAME%;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  // <%%% START REQUIRED_UNITS %%%>
+  {Required:} %REQUIRED_UNIT_NAME%,
+  // <%%% END REQUIRED_UNITS %%%>
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '%LIBRARY_UID%';
+  TargetNamespace = '%NAMESPACE_NAME%';
+
+  { Service Interface ID's }
+  // <%%% START SERVICES %%%>
+  I%SERVICE_NAME%_IID : TGUID = '%SERVICE_UID%';
+  // <%%% END SERVICES %%%>
+  
+  { Event ID's }
+  // <%%% START EVENT_SINKS %%%>
+  EID_%EVENT_SINK_NAME% = '%EVENT_SINK_NAME%';
+  // <%%% END EVENT_SINKS %%%>
+  
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  // <%%% START SERVICES %%%>
+  I%SERVICE_NAME% = interface;
+  // <%%% END SERVICES %%%>
+  // <%%% START ARRAYS %%%>
+  %ARRAY_NAME% = class;
+  // <%%% END ARRAYS %%%>
+  // <%%% START STRUCTS %%%>
+  %STRUCT_NAME% = class;
+  // <%%% END STRUCTS %%%>
+  // <%%% START EXCEPTIONS %%%>
+  %EXCEPTION_NAME% = class;
+  // <%%% END EXCEPTIONS %%%>
+  // <%%% START EVENT_SINKS %%%>
+  I%EVENT_SINK_NAME% = interface;
+  // <%%% END EVENT_SINKS %%%>
+
+  { Enumerateds }
+  // <%%% START ENUMS %%%>
+  // <%%% START DOCUMENTATION %%%>
+
+  { Description:
+      %CONTENT% }
+  // <%%% END DOCUMENTATION %%%>
+  %ENUM_NAME% = (
+                // <%%% START VALUES %%%>
+                %VALUE_NAME%,
+                // <%%% END VALUES %%%>
+                );
+
+  // <%%% END ENUMS %%%>
+  // <%%% START STRUCTS %%%>
+  { %STRUCT_NAME% }
+  // <%%% START DOCUMENTATION %%%>
+
+  { Description:
+      %CONTENT% }
+  // <%%% END DOCUMENTATION %%%>
+  %STRUCT_NAME% = class(%STRUCT_ANCESTOR_NAME%)
+  private
+    FDestroying: Boolean;
+
+    // <%%% START FIELDS_NO_STRIP %%%>
+    f%FIELD_NAME%: %FIELD_TYPE%;
+    // <%%% END FIELDS_NO_STRIP %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    function Get%FIELD_NAME%: %FIELD_TYPE%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% END FIELDS_NO_STRIP %%%>
+  public
+    // <%%% START STRUCT_GENERATE_DEFAULT_VALUES %%%>
+    constructor Create(aCollection : TCollection); override;
+    // <%%% END STRUCT_GENERATE_DEFAULT_VALUES %%%>
+    // <%%% START IF_STRUCT_HAS_ATTRIBUTES %%%>
+    class function GetAttributeCount: Integer; override;
+    class function GetAttributeName(aIndex: Integer): string; override;
+    class function GetAttributeValue(aIndex: Integer): string; override;
+    // <%%% END IF_STRUCT_HAS_ATTRIBUTES %%%>
+    procedure Assign(iSource: TPersistent); override;
+    destructor Destroy; override;
+    // <%%% START IF_HAS_FIELDS %%%>
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    // <%%% END IF_HAS_FIELDS %%%>
+  published
+    // Fields must be published for the ancestor destructor to find and destroy them.
+    // <%%% START FIELDS_NO_STRIP %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    property %FIELD_NAME%:%FIELD_TYPE% read f%FIELD_NAME% write f%FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    property %FIELD_NAME%:%FIELD_TYPE% read Get%FIELD_NAME% write f%FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% END FIELDS_NO_STRIP %%%>
+  end;
+
+  { %STRUCT_COLLECTION_NAME% }
+  %STRUCT_COLLECTION_NAME% = class(%STRUCT_ANCESTOR_COLLECTION_NAME%)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): %STRUCT_NAME%;
+    procedure SetItems(aIndex: integer; const Value: %STRUCT_NAME%);
+  public
+    constructor Create; overload;
+    function Add: %STRUCT_NAME%; reintroduce;
+    // <%%% START ARRAYS_IS_FOUND %%%>
+    procedure SaveToArray(anArray: %ARRAY_NAME%); overload;
+    procedure LoadFromArray(anArray: %ARRAY_NAME%); overload;
+    // <%%% END ARRAYS_IS_FOUND %%%>
+    property Items[Index: integer]:%STRUCT_NAME% read GetItems write SetItems; default;
+  end;
+
+  // <%%% END STRUCTS %%%>
+  // <%%% START ARRAYS %%%>
+  { %ARRAY_NAME% }
+  // <%%% START DOCUMENTATION %%%>
+
+  { Description:
+      %CONTENT% }
+  // <%%% END DOCUMENTATION %%%>
+  %ARRAY_NAME%_%ARRAY_TYPE% = array of %ARRAY_TYPE%;
+  %ARRAY_NAME% = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : %ARRAY_NAME%_%ARRAY_TYPE%;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): %ARRAY_TYPE%;
+    procedure SetItems(aIndex: integer; const Value: %ARRAY_TYPE%);
+    function GetCount: integer; override;
+  public
+    // <%%% START IF_ARRAY_HAS_ATTRIBUTES %%%>
+    class function GetAttributeCount: Integer; override;
+    class function GetAttributeName(aIndex: Integer): string; override;
+    class function GetAttributeValue(aIndex: Integer): string; override;
+    // <%%% END IF_ARRAY_HAS_ATTRIBUTES %%%>
+    class function GetItemType: PTypeInfo; override;
+    // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+    class function GetItemClass: TClass; override;
+    // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+    function Add: %ARRAY_TYPE%; overload;
+    // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+    function Add(const Value: %ARRAY_TYPE%):integer; overload;
+    // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+    // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:%ARRAY_TYPE% read GetItems write SetItems; default;
+    property InnerArray: %ARRAY_NAME%_%ARRAY_TYPE% read fItems;
+  end;
+
+  // <%%% END ARRAYS %%%>
+  { Exceptions }
+  // <%%% START EXCEPTIONS %%%>
+  // <%%% START DOCUMENTATION %%%>
+
+  { Description:
+      %CONTENT% }
+  // <%%% END DOCUMENTATION %%%>
+  %EXCEPTION_NAME% = class(%EXCEPTION_ANCESTOR_NAME%)
+  private
+    // <%%% START FIELDS_NO_STRIP %%%>
+    f%FIELD_NAME%: %FIELD_TYPE%;
+    // <%%% END FIELDS_NO_STRIP %%%>
+  public
+    // <%%% START IF_EXCEPTION_HAS_ATTRIBUTES %%%>
+    class function GetAttributeCount: Integer; override;
+    class function GetAttributeName(aIndex: Integer): string; override;
+    class function GetAttributeValue(aIndex: Integer): string; override;
+    // <%%% END IF_EXCEPTION_HAS_ATTRIBUTES %%%>
+    constructor Create(anExceptionMessage : string
+                       // <%%% START ANCESTOR_FIELDS %%%>
+                       ; a%FIELD_NAME%: %FIELD_TYPE%
+                       // <%%% END ANCESTOR_FIELDS %%%>
+                       // <%%% START FIELDS_NO_STRIP %%%>
+                       ; a%FIELD_NAME%: %FIELD_TYPE%
+                       // <%%% END FIELDS_NO_STRIP %%%>
+                       );
+    // <%%% START IF_HAS_FIELDS %%%>
+    procedure ReadException(ASerializer: TObject); override;
+    procedure WriteException(ASerializer: TObject); override;
+    // <%%% END IF_HAS_FIELDS %%%>
+  published
+    // <%%% START FIELDS_NO_STRIP %%%>
+    property %FIELD_NAME%: %FIELD_TYPE% read f%FIELD_NAME% write f%FIELD_NAME%;
+    // <%%% END FIELDS_NO_STRIP %%%>
+  end;
+
+  // <%%% END EXCEPTIONS %%%>
+  // <%%% START SERVICES %%%>
+  { I%SERVICE_NAME% }
+  // <%%% START DOCUMENTATION %%%>
+
+  { Description:
+      %CONTENT% }
+  // <%%% END DOCUMENTATION %%%>
+  I%SERVICE_NAME% = interface%SERVICE_ANCESTOR_NAME%
+    ['%SERVICE_UID%']
+    // <%%% START FUNCTION_OPERATIONS %%%>
+    function %OPERATION_NAME%(
+               // <%%% START PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END PARAMS %%%>
+               ): %OPERATION_RESULT%;
+    // <%%% END FUNCTION_OPERATIONS %%%>
+    // <%%% START PROCEDURE_OPERATIONS %%%>
+    procedure %OPERATION_NAME%(
+                // <%%% START PARAMS %%%>
+                %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+                // <%%% END PARAMS %%%>
+                );
+    // <%%% END PROCEDURE_OPERATIONS %%%>
+  end;
+
+  { Co%SERVICE_NAME% }
+  Co%SERVICE_NAME% = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): I%SERVICE_NAME%;
+  end;
+
+  { T%SERVICE_NAME%_Proxy }
+  T%SERVICE_NAME%_Proxy = class(%SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%)
+  protected
+    function __GetInterfaceName:string; override;
+
+    // <%%% START FUNCTION_OPERATIONS %%%>
+    function %OPERATION_NAME%(
+               // <%%% START PARAMS %%%>
+               %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+               // <%%% END PARAMS %%%>
+               ): %OPERATION_RESULT%;
+    // <%%% END FUNCTION_OPERATIONS %%%>
+    // <%%% START PROCEDURE_OPERATIONS %%%>
+    procedure %OPERATION_NAME%(
+                // <%%% START PARAMS %%%>
+                %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+                // <%%% END PARAMS %%%>
+                );
+    // <%%% END PROCEDURE_OPERATIONS %%%>
+  end;
+
+  // <%%% END SERVICES %%%>
+  // <%%% START EVENT_SINKS %%%>
+  { I%EVENT_SINK_NAME% }
+  // <%%% START DOCUMENTATION %%%>
+
+  { Description:
+      %CONTENT% }
+  // <%%% END DOCUMENTATION %%%>
+  I%EVENT_SINK_NAME% = interface%EVENT_SINK_ANCESTOR_NAME%
+    ['%EVENT_SINK_UID%']
+    // <%%% START OPERATIONS %%%>
+    procedure %OPERATION_NAME%(
+                // <%%% START PARAMS %%%>
+                %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+                // <%%% END PARAMS %%%>
+                );
+    // <%%% END OPERATIONS %%%>
+  end;
+
+  { I%EVENT_SINK_NAME%_Writer }
+  // <%%% START DOCUMENTATION %%%>
+
+  { Description:
+      %CONTENT% }
+  // <%%% END DOCUMENTATION %%%>
+  I%EVENT_SINK_NAME%_Writer = interface(I%EVENT_SINK_WRITER_ANCESTOR_NAME%)
+    ['%EVENT_SINK_UID%']
+    // <%%% START OPERATIONS %%%>
+    procedure %OPERATION_NAME%(const __Sender : TGUID
+                // <%%% START PARAMS %%%>
+                ; %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%
+                // <%%% END PARAMS %%%>
+                );
+    // <%%% END OPERATIONS %%%>
+  end;
+
+  // <%%% END EVENT_SINKS %%%>
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+// <%%% START EXCEPTIONS %%%>
+{ %EXCEPTION_NAME% }
+
+// <%%% START IF_EXCEPTION_HAS_ATTRIBUTES %%%>
+class function %EXCEPTION_NAME%.GetAttributeCount: Integer;
+begin
+  Result := %ATTRIBUTES_COUNT%;
+end;
+
+class function %EXCEPTION_NAME%.GetAttributeName(aIndex: Integer): string;
+begin
+  case aIndex of
+// <%%% START ATTRIBUTES_NO_STRIP %%%>
+    %ATTRIBUTE_INDEX%: Result := %ATTRIBUTE_NAME%;
+// <%%% END ATTRIBUTES_NO_STRIP %%%>
+  end;
+end;
+
+class function %EXCEPTION_NAME%.GetAttributeValue(aIndex: Integer): string;
+begin
+  case aIndex of
+// <%%% START ATTRIBUTES_NO_STRIP %%%>
+    %ATTRIBUTE_INDEX%: Result := %ATTRIBUTE_VALUE%;
+// <%%% END ATTRIBUTES_NO_STRIP %%%>
+  end;
+end;
+// <%%% END IF_EXCEPTION_HAS_ATTRIBUTES %%%>
+constructor %EXCEPTION_NAME%.Create(anExceptionMessage : string
+  // <%%% START ANCESTOR_FIELDS %%%>
+  ; a%FIELD_NAME%: %FIELD_TYPE%
+  // <%%% END ANCESTOR_FIELDS %%%>
+  // <%%% START FIELDS_NO_STRIP %%%>
+  ; a%FIELD_NAME%: %FIELD_TYPE%
+  // <%%% END FIELDS_NO_STRIP %%%>
+  );
+begin
+  inherited Create(anExceptionMessage
+                   // <%%% START ANCESTOR_FIELDS %%%>
+                   , a%FIELD_NAME%
+                   // <%%% END ANCESTOR_FIELDS %%%>
+                  );
+
+  // <%%% START FIELDS_NO_STRIP %%%>
+  f%FIELD_NAME% := a%FIELD_NAME%;
+  // <%%% END FIELDS_NO_STRIP %%%>
+end;
+
+// <%%% START IF_HAS_FIELDS %%%>
+procedure %EXCEPTION_NAME%.ReadException(ASerializer: TObject);
+var
+  // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+  l_%FIELD_NAME%: %FIELD_TYPE%;
+  // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>
+    inherited;
+    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    l_%FIELD_NAME% := %FIELD_NAME%;
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    TROSerializer(ASerializer).ReadBinary('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    TROSerializer(ASerializer).ReadEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(boolean), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    TROSerializer(ASerializer).ReadDouble('%FIELD_ORIGINALNAME%', ftCurr, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    TROSerializer(ASerializer).ReadDateTime('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    TROSerializer(ASerializer).ReadDecimal('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    TROSerializer(ASerializer).ReadDouble('%FIELD_ORIGINALNAME%', ftDouble, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    TROSerializer(ASerializer).ReadGuid('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    TROSerializer(ASerializer).ReadInt64('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    TROSerializer(ASerializer).ReadInteger('%FIELD_ORIGINALNAME%', otSLong, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadAnsiString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadUTF8String('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    TROSerializer(ASerializer).ReadVariant('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadWideString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    TROSerializer(ASerializer).ReadXml('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    TROSerializer(ASerializer).ReadArray('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    TROSerializer(ASerializer).ReadEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    TROSerializer(ASerializer).ReadStruct('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>
+    TROSerializer(ASerializer).ReadStruct('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>
+    %FIELD_NAME% := l_%FIELD_NAME%;
+    // <%%% END FIELDS_NO_STRIP %%%>
+  end
+  else begin
+    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+    l_%FIELD_NAME% := %FIELD_NAME%;
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    TROSerializer(ASerializer).ReadBinary('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    TROSerializer(ASerializer).ReadEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(boolean), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    TROSerializer(ASerializer).ReadDouble('%FIELD_ORIGINALNAME%', ftCurr, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    TROSerializer(ASerializer).ReadDateTime('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    TROSerializer(ASerializer).ReadDecimal('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    TROSerializer(ASerializer).ReadDouble('%FIELD_ORIGINALNAME%', ftDouble, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    TROSerializer(ASerializer).ReadGuid('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    TROSerializer(ASerializer).ReadInt64('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    TROSerializer(ASerializer).ReadInteger('%FIELD_ORIGINALNAME%', otSLong, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadAnsiString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadUTF8String('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    TROSerializer(ASerializer).ReadVariant('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadWideString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    TROSerializer(ASerializer).ReadXml('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    TROSerializer(ASerializer).ReadArray('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    TROSerializer(ASerializer).ReadEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    TROSerializer(ASerializer).ReadStruct('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>
+    TROSerializer(ASerializer).ReadStruct('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>
+    %FIELD_NAME% := l_%FIELD_NAME%;
+    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+  end;
+end;
+
+procedure %EXCEPTION_NAME%.WriteException(ASerializer: TObject);
+var
+  // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+  l_%FIELD_NAME%: %FIELD_TYPE%;
+  // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>
+    inherited;
+    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    l_%FIELD_NAME% := %FIELD_NAME%;
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    TROSerializer(ASerializer).WriteBinary('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    TROSerializer(ASerializer).WriteEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(boolean), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    TROSerializer(ASerializer).WriteDouble('%FIELD_ORIGINALNAME%', ftCurr, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    TROSerializer(ASerializer).WriteDateTime('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    TROSerializer(ASerializer).WriteDecimal('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    TROSerializer(ASerializer).WriteDouble('%FIELD_ORIGINALNAME%', ftDouble, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    TROSerializer(ASerializer).WriteGuid('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    TROSerializer(ASerializer).WriteInt64('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    TROSerializer(ASerializer).WriteInteger('%FIELD_ORIGINALNAME%', otSLong, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteAnsiString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteUTF8String('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    TROSerializer(ASerializer).WriteVariant('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteWideString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    TROSerializer(ASerializer).WriteXml('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    TROSerializer(ASerializer).WriteArray('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    TROSerializer(ASerializer).WriteEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    TROSerializer(ASerializer).WriteStruct('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>
+    TROSerializer(ASerializer).WriteStruct('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>
+    // <%%% END FIELDS_NO_STRIP %%%>
+  end
+  else begin
+    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+    l_%FIELD_NAME% := %FIELD_NAME%;
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    TROSerializer(ASerializer).WriteBinary('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    TROSerializer(ASerializer).WriteEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(boolean), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    TROSerializer(ASerializer).WriteDouble('%FIELD_ORIGINALNAME%', ftCurr, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    TROSerializer(ASerializer).WriteDateTime('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    TROSerializer(ASerializer).WriteDecimal('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    TROSerializer(ASerializer).WriteDouble('%FIELD_ORIGINALNAME%', ftDouble, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    TROSerializer(ASerializer).WriteGuid('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    TROSerializer(ASerializer).WriteInt64('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    TROSerializer(ASerializer).WriteInteger('%FIELD_ORIGINALNAME%', otSLong, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteAnsiString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteUTF8String('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    TROSerializer(ASerializer).WriteVariant('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteWideString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    TROSerializer(ASerializer).WriteXml('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    TROSerializer(ASerializer).WriteArray('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    TROSerializer(ASerializer).WriteEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    TROSerializer(ASerializer).WriteStruct('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>
+    TROSerializer(ASerializer).WriteStruct('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>
+    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+  end;
+end;
+
+// <%%% END IF_HAS_FIELDS %%%>
+// <%%% END EXCEPTIONS %%%>
+// <%%% START ARRAYS %%%>
+{ %ARRAY_NAME% }
+
+// <%%% START IF_ARRAY_HAS_ATTRIBUTES %%%>
+class function %ARRAY_NAME%.GetAttributeCount: Integer;
+begin
+  Result := %ATTRIBUTES_COUNT%;
+end;
+
+class function %ARRAY_NAME%.GetAttributeName(aIndex: Integer): string;
+begin
+  case aIndex of
+// <%%% START ATTRIBUTES_NO_STRIP %%%>
+    %ATTRIBUTE_INDEX%: Result := %ATTRIBUTE_NAME%;
+// <%%% END ATTRIBUTES_NO_STRIP %%%>
+  end;
+end;
+
+class function %ARRAY_NAME%.GetAttributeValue(aIndex: Integer): string;
+begin
+  case aIndex of
+// <%%% START ATTRIBUTES_NO_STRIP %%%>
+    %ATTRIBUTE_INDEX%: Result := %ATTRIBUTE_VALUE%;
+// <%%% END ATTRIBUTES_NO_STRIP %%%>
+  end;
+end;
+// <%%% END IF_ARRAY_HAS_ATTRIBUTES %%%>
+
+procedure %ARRAY_NAME%.Assign(iSource: TPersistent);
+var lSource:%ARRAY_NAME%;
+    i: integer;
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+    lItem: %ARRAY_TYPE%;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>    
+begin
+  if (iSource is %ARRAY_NAME%) then begin
+    lSource := %ARRAY_NAME%(iSource);
+    Clear();
+    
+    // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+    for i := 0 to lSource.Count-1 do 
+      if Assigned(lSource.Items[i]) then begin
+        lItem := %ARRAY_TYPE%(lSource.Items[i].ClassType.Create);
+        lItem.Assign(lSource.Items[i]);
+        Add(lItem);
+      end
+      else begin
+        Add(nil);
+      end;
+    // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+    // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+    Resize(lSource.Count);
+    for i := 0 to Count-1 do    
+      Items[i] := lSource.Items[i];
+    // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function %ARRAY_NAME%.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(%ARRAY_TYPE%);
+end;
+
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+class function %ARRAY_NAME%.GetItemClass: TClass;
+begin
+  result := %ARRAY_TYPE%;
+end;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+
+class function %ARRAY_NAME%.GetItemSize: integer;
+begin
+  result := SizeOf(%ARRAY_TYPE%);
+end;
+
+function %ARRAY_NAME%.GetItems(aIndex: integer): %ARRAY_TYPE%;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function %ARRAY_NAME%.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  result := fItems[aIndex];
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  result := @fItems[aIndex];
+  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+end;
+
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+procedure %ARRAY_NAME%.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+
+procedure %ARRAY_NAME%.Clear;
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+var i: integer;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+begin
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  for i := 0 to (Count-1) do fItems[i].Free();
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure %ARRAY_NAME%.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  fItems[aIndex].Free();
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure %ARRAY_NAME%.SetItems(aIndex: integer; const Value: %ARRAY_TYPE%);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  // <%%% START IF_ARRAY_TYPE_COMPLEX %%%>  
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;    
+    fItems[aIndex] := Value;
+  end;
+  // <%%% END IF_ARRAY_TYPE_COMPLEX %%%>  
+  // <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+  fItems[aIndex] := Value;  
+  // <%%% END IF_ARRAY_TYPE_SIMPLE %%%>  
+end;
+
+procedure %ARRAY_NAME%.Resize(ElementCount: integer);
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+var i: Integer;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+begin
+  if fCount = ElementCount then Exit;
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  SetLength(fItems, ElementCount);
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+  for i := FCount to ElementCount -1 do
+    FItems[i] := %ARRAY_TYPE%.Create;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+  FCount := ElementCount;
+end;
+
+function %ARRAY_NAME%.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure %ARRAY_NAME%.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
+function %ARRAY_NAME%.Add: %ARRAY_TYPE%;
+begin
+  result := %ARRAY_TYPE%.Create;
+  Add(Result);
+end;
+// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
+
+function %ARRAY_NAME%.Add(const Value:%ARRAY_TYPE%): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
+function %ARRAY_NAME%.GetIndex(const aPropertyName : string;
+  const aPropertyValue : Variant; StartFrom : integer;
+  Options : TROSearchOptions) : integer;
+begin
+  result := -1;
+end;
+// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
+
+procedure %ARRAY_NAME%.ReadComplex(ASerializer: TObject);
+var
+  lval: %ARRAY_TYPE%;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do begin
+      // <%%% START IF_ARRAY_BINARY_TYPE %%%>
+      ReadBinary(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_BINARY_TYPE %%%>
+      // <%%% START IF_ARRAY_BOOLEAN_TYPE %%%>
+      ReadEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)), TypeInfo(boolean), lval, i);
+      // <%%% END IF_ARRAY_BOOLEAN_TYPE %%%>
+      // <%%% START IF_ARRAY_CURRENCY_TYPE %%%>
+      ReadDouble(GetArrayElementName(GetItemType, GetItemRef(i)), ftCurr, lval, i);
+      // <%%% END IF_ARRAY_CURRENCY_TYPE %%%>
+      // <%%% START IF_ARRAY_DATETIME_TYPE %%%>
+      ReadDateTime(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_DATETIME_TYPE %%%>
+      // <%%% START IF_ARRAY_DECIMAL_TYPE %%%>
+      ReadDecimal(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_DECIMAL_TYPE %%%>
+      // <%%% START IF_ARRAY_DOUBLE_TYPE %%%>
+      ReadDouble(GetArrayElementName(GetItemType, GetItemRef(i)), ftDouble, lval, i);
+      // <%%% END IF_ARRAY_DOUBLE_TYPE %%%>
+      // <%%% START IF_ARRAY_GUID_TYPE %%%>
+      ReadGuid(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_GUID_TYPE %%%>
+      // <%%% START IF_ARRAY_INT64_TYPE %%%>
+      ReadInt64(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_INT64_TYPE %%%>
+      // <%%% START IF_ARRAY_INTEGER_TYPE %%%>
+      ReadInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, lval, i);
+      // <%%% END IF_ARRAY_INTEGER_TYPE %%%>
+      // <%%% START IF_ARRAY_ANSISTRING_TYPE %%%>
+      ReadUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_ANSISTRING_TYPE %%%>
+      // <%%% START IF_ARRAY_UTF8STRING_TYPE %%%>
+      ReadUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_UTF8STRING_TYPE %%%>
+      // <%%% START IF_ARRAY_VARIANT_TYPE %%%>
+      ReadVariant(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_VARIANT_TYPE %%%>
+      // <%%% START IF_ARRAY_WIDESTRING_TYPE %%%>
+      ReadWideString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_WIDESTRING_TYPE %%%>
+      // <%%% START IF_ARRAY_XML_TYPE %%%>
+      ReadXml(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+      // <%%% END IF_ARRAY_XML_TYPE %%%>
+      // <%%% START IF_ARRAY_ARRAY_TYPE %%%>
+      lval := nil;      
+      ReadArray(GetArrayElementName(GetItemType, GetItemRef(i)), %ARRAY_TYPE%, lval, i);
+      // <%%% END IF_ARRAY_ARRAY_TYPE %%%>
+      // <%%% START IF_ARRAY_ENUM_TYPE %%%>
+      ReadEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)), TypeInfo(%ARRAY_TYPE%), lval, i);
+      // <%%% END IF_ARRAY_ENUM_TYPE %%%>
+      // <%%% START IF_ARRAY_STRUCT_TYPE %%%>
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), %ARRAY_TYPE%, lval, i);
+      // <%%% END IF_ARRAY_STRUCT_TYPE %%%>
+    end;  
+    Items[i] := lval;
+  end;
+end;
+
+procedure %ARRAY_NAME%.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      // <%%% START IF_ARRAY_BINARY_TYPE %%%>
+      WriteBinary(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_BINARY_TYPE %%%>
+      // <%%% START IF_ARRAY_BOOLEAN_TYPE %%%>
+      WriteEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)), TypeInfo(boolean), fItems[i], i);
+      // <%%% END IF_ARRAY_BOOLEAN_TYPE %%%>
+      // <%%% START IF_ARRAY_CURRENCY_TYPE %%%>
+      WriteDouble(GetArrayElementName(GetItemType, GetItemRef(i)), ftCurr, fItems[i], i);
+      // <%%% END IF_ARRAY_CURRENCY_TYPE %%%>
+      // <%%% START IF_ARRAY_DATETIME_TYPE %%%>
+      WriteDateTime(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_DATETIME_TYPE %%%>
+      // <%%% START IF_ARRAY_DECIMAL_TYPE %%%>
+      WriteDecimal(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_DECIMAL_TYPE %%%>
+      // <%%% START IF_ARRAY_DOUBLE_TYPE %%%>
+      WriteDouble(GetArrayElementName(GetItemType, GetItemRef(i)), ftDouble, fItems[i], i);
+      // <%%% END IF_ARRAY_DOUBLE_TYPE %%%>
+      // <%%% START IF_ARRAY_GUID_TYPE %%%>
+      WriteGuid(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_GUID_TYPE %%%>
+      // <%%% START IF_ARRAY_INT64_TYPE %%%>
+      WriteInt64(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_INT64_TYPE %%%>
+      // <%%% START IF_ARRAY_INTEGER_TYPE %%%>
+      WriteInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, fItems[i], i);
+      // <%%% END IF_ARRAY_INTEGER_TYPE %%%>
+      // <%%% START IF_ARRAY_ANSISTRING_TYPE %%%>
+      WriteUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_ANSISTRING_TYPE %%%>
+      // <%%% START IF_ARRAY_UTF8STRING_TYPE %%%>
+      WriteUTF8String(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_UTF8STRING_TYPE %%%>
+      // <%%% START IF_ARRAY_VARIANT_TYPE %%%>
+      WriteVariant(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_VARIANT_TYPE %%%>
+      // <%%% START IF_ARRAY_WIDESTRING_TYPE %%%>
+      WriteWideString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_WIDESTRING_TYPE %%%>
+      // <%%% START IF_ARRAY_XML_TYPE %%%>
+      WriteXml(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+      // <%%% END IF_ARRAY_XML_TYPE %%%>
+      // <%%% START IF_ARRAY_ARRAY_TYPE %%%>
+      WriteArray(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], , %ARRAY_TYPE%, i);
+      // <%%% END IF_ARRAY_ARRAY_TYPE %%%>
+      // <%%% START IF_ARRAY_ENUM_TYPE %%%>
+      WriteEnumerated(GetArrayElementName(GetItemType, GetItemRef(i)), TypeInfo(%ARRAY_TYPE%), fItems[i], i);
+      // <%%% END IF_ARRAY_ENUM_TYPE %%%>
+      // <%%% START IF_ARRAY_STRUCT_TYPE %%%>
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], %ARRAY_TYPE%, i);
+      // <%%% END IF_ARRAY_STRUCT_TYPE %%%>
+end;
+
+// <%%% END ARRAYS %%%>
+// <%%% START STRUCTS %%%>
+{ %STRUCT_NAME% }
+// <%%% START IF_STRUCT_HAS_ATTRIBUTES %%%>
+class function %STRUCT_NAME%.GetAttributeCount: Integer;
+begin
+  Result := %ATTRIBUTES_COUNT%;
+end;
+
+class function %STRUCT_NAME%.GetAttributeName(aIndex: Integer): string;
+begin
+  case aIndex of
+// <%%% START ATTRIBUTES_NO_STRIP %%%>
+    %ATTRIBUTE_INDEX%: Result := %ATTRIBUTE_NAME%;
+// <%%% END ATTRIBUTES_NO_STRIP %%%>
+  end;
+end;
+
+class function %STRUCT_NAME%.GetAttributeValue(aIndex: Integer): string;
+begin
+  case aIndex of
+// <%%% START ATTRIBUTES_NO_STRIP %%%>
+    %ATTRIBUTE_INDEX%: Result := %ATTRIBUTE_VALUE%;
+// <%%% END ATTRIBUTES_NO_STRIP %%%>
+  end;
+end;
+// <%%% END IF_STRUCT_HAS_ATTRIBUTES %%%>
+
+procedure %STRUCT_NAME%.Assign(iSource: TPersistent);
+// <%%% START IF_HAS_FIELDS %%%>
+var
+  lSource: %STRUCT_NAME%;
+// <%%% END IF_HAS_FIELDS %%%>
+begin
+  inherited Assign(iSource);
+  // <%%% START IF_HAS_FIELDS %%%>
+  if (iSource is %STRUCT_NAME%) then begin
+    lSource := %STRUCT_NAME%(iSource);
+
+  // <%%% END IF_HAS_FIELDS %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    // <%%% START IF_FIELD_TYPE_SIMPLE %%%>
+    %FIELD_NAME% := lSource.%FIELD_NAME%;
+    // <%%% END IF_FIELD_TYPE_SIMPLE %%%>
+    // <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% START IF_NOT_AUTO_CREATE_FIELDS %%%>
+    if Assigned(f%FIELD_NAME%) then begin
+      if Assigned(lSource.%FIELD_NAME%) then
+        %FIELD_NAME%.Assign(lSource.%FIELD_NAME%)
+      else
+        FreeAndNil(f%FIELD_NAME%);
+    end;
+    // <%%% END IF_NOT_AUTO_CREATE_FIELDS %%%>
+    // <%%% START IF_AUTO_CREATE_FIELDS %%%>
+    %FIELD_NAME%.Assign(lSource.%FIELD_NAME%);
+    // <%%% END IF_AUTO_CREATE_FIELDS %%%>
+    // <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+    // <%%% END FIELDS_NO_STRIP %%%>
+  // <%%% START IF_HAS_FIELDS %%%>
+  end;
+  // <%%% END IF_HAS_FIELDS %%%>
+end;
+
+// <%%% START STRUCT_GENERATE_DEFAULT_VALUES %%%>
+constructor %STRUCT_NAME%.Create(aCollection : TCollection);
+begin
+  inherited Create(aCollection);
+  // <%%% START FIELDS_NO_STRIP %%%>
+  // <%%% START IF_FIELD_HAS_DEFAULT_VALUE %%%>
+  // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+  f%FIELD_NAME% := %DEFAULT_VALUE%;
+  // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+  // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+  f%FIELD_NAME% := %DEFAULT_VALUE%;
+  // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+  // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+  f%FIELD_NAME% := StrToDateTimeDef('%DEFAULT_VALUE%',0);
+  // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+  // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+  f%FIELD_NAME% := %DEFAULT_VALUE%;
+  // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+  // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+  f%FIELD_NAME% := %DEFAULT_VALUE%;
+  // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+  // <%%% START IF_FIELD_GUID_TYPE %%%>
+  f%FIELD_NAME% := '%DEFAULT_VALUE%';
+  // <%%% END IF_FIELD_GUID_TYPE %%%>
+  // <%%% START IF_FIELD_INT64_TYPE %%%>
+  f%FIELD_NAME% := %DEFAULT_VALUE%;
+  // <%%% END IF_FIELD_INT64_TYPE %%%>
+  // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+  f%FIELD_NAME% := %DEFAULT_VALUE%;
+  // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+  // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+  f%FIELD_NAME% := '%DEFAULT_VALUE%';
+  // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+  // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+  f%FIELD_NAME% := '%DEFAULT_VALUE%';
+  // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+  // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+  f%FIELD_NAME% := '%DEFAULT_VALUE%';
+  // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+  // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+  f%FIELD_NAME% := '%DEFAULT_VALUE%';
+  // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+  // <%%% END IF_FIELD_HAS_DEFAULT_VALUE %%%>
+  // <%%% END FIELDS_NO_STRIP %%%>
+end;
+// <%%% END STRUCT_GENERATE_DEFAULT_VALUES %%%>
+
+destructor %STRUCT_NAME%.Destroy;
+begin
+  FDestroying := True;
+  try
+    inherited Destroy;
+  finally
+    FDestroying := False;
+  end;
+end;
+
+// <%%% START FIELDS_NO_STRIP %%%>
+// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
+function %STRUCT_NAME%.Get%FIELD_NAME%: %FIELD_TYPE%;
+begin
+  // <%%% START IF_AUTO_CREATE_FIELDS %%%>
+  if not Assigned(f%FIELD_NAME%) and not FDestroying then
+    f%FIELD_NAME% := %FIELD_TYPE%.Create();
+  // <%%% END IF_AUTO_CREATE_FIELDS %%%>
+  Result := f%FIELD_NAME%;
+end;
+// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
+// <%%% END FIELDS_NO_STRIP %%%>
+
+// <%%% START IF_HAS_FIELDS %%%>
+procedure %STRUCT_NAME%.ReadComplex(ASerializer: TObject);
+var
+  // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+  l_%FIELD_NAME%: %FIELD_TYPE%;
+  // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>
+    inherited;
+    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>
+    // <%%% START FIELDS_NO_STRIP %%%>
+    l_%FIELD_NAME% := %FIELD_NAME%;
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    TROSerializer(ASerializer).ReadBinary('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    TROSerializer(ASerializer).ReadEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(boolean), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    TROSerializer(ASerializer).ReadDouble('%FIELD_ORIGINALNAME%', ftCurr, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    TROSerializer(ASerializer).ReadDateTime('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    TROSerializer(ASerializer).ReadDecimal('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    TROSerializer(ASerializer).ReadDouble('%FIELD_ORIGINALNAME%', ftDouble, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    TROSerializer(ASerializer).ReadGuid('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    TROSerializer(ASerializer).ReadInt64('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    TROSerializer(ASerializer).ReadInteger('%FIELD_ORIGINALNAME%', otSLong, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadAnsiString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadUTF8String('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    TROSerializer(ASerializer).ReadVariant('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadWideString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    TROSerializer(ASerializer).ReadXml('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    TROSerializer(ASerializer).ReadArray('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    TROSerializer(ASerializer).ReadEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    TROSerializer(ASerializer).ReadStruct('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>
+    TROSerializer(ASerializer).ReadStruct('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>
+    %FIELD_NAME% := l_%FIELD_NAME%;
+    // <%%% END FIELDS_NO_STRIP %%%>
+  end
+  else begin
+    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+    l_%FIELD_NAME% := %FIELD_NAME%;
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    TROSerializer(ASerializer).ReadBinary('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    TROSerializer(ASerializer).ReadEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(boolean), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    TROSerializer(ASerializer).ReadDouble('%FIELD_ORIGINALNAME%', ftCurr, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    TROSerializer(ASerializer).ReadDateTime('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    TROSerializer(ASerializer).ReadDecimal('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    TROSerializer(ASerializer).ReadDouble('%FIELD_ORIGINALNAME%', ftDouble, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    TROSerializer(ASerializer).ReadGuid('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    TROSerializer(ASerializer).ReadInt64('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    TROSerializer(ASerializer).ReadInteger('%FIELD_ORIGINALNAME%', otSLong, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadAnsiString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadUTF8String('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    TROSerializer(ASerializer).ReadVariant('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    TROSerializer(ASerializer).ReadWideString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    TROSerializer(ASerializer).ReadXml('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    TROSerializer(ASerializer).ReadArray('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    TROSerializer(ASerializer).ReadEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    TROSerializer(ASerializer).ReadStruct('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>
+    TROSerializer(ASerializer).ReadStruct('%FIELD_ORIGINALNAME%', %FIELD_TYPE%, l_%FIELD_NAME%);
+    if %FIELD_NAME% <> l_%FIELD_NAME% then %FIELD_NAME%.Free;
+    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>
+    %FIELD_NAME% := l_%FIELD_NAME%;
+    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+  end;
+end;
+
+procedure %STRUCT_NAME%.WriteComplex(ASerializer: TObject);
+var
+  // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+  l_%FIELD_NAME%: %FIELD_TYPE%;
+  // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    // <%%% START IF_STRUCT_HAS_ANCESTOR %%%>
+    inherited;
+    // <%%% END IF_STRUCT_HAS_ANCESTOR %%%>
+    TROSerializer(ASerializer).ChangeClass(%STRUCT_NAME%);
+    // <%%% START FIELDS_NO_STRIP %%%>
+    l_%FIELD_NAME% := %FIELD_NAME%;
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    TROSerializer(ASerializer).WriteBinary('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    TROSerializer(ASerializer).WriteEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(boolean), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    TROSerializer(ASerializer).WriteDouble('%FIELD_ORIGINALNAME%', ftCurr, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    TROSerializer(ASerializer).WriteDateTime('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    TROSerializer(ASerializer).WriteDecimal('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    TROSerializer(ASerializer).WriteDouble('%FIELD_ORIGINALNAME%', ftDouble, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    TROSerializer(ASerializer).WriteGuid('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    TROSerializer(ASerializer).WriteInt64('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    TROSerializer(ASerializer).WriteInteger('%FIELD_ORIGINALNAME%', otSLong, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteAnsiString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteUTF8String('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    TROSerializer(ASerializer).WriteVariant('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteWideString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    TROSerializer(ASerializer).WriteXml('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    TROSerializer(ASerializer).WriteArray('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    TROSerializer(ASerializer).WriteEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    TROSerializer(ASerializer).WriteStruct('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>
+    TROSerializer(ASerializer).WriteStruct('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>
+    // <%%% END FIELDS_NO_STRIP %%%>
+  end
+  else begin
+    // <%%% START ENTIRE_HIERARCHY_FIELDS %%%>
+    l_%FIELD_NAME% := %FIELD_NAME%;
+    // <%%% START IF_FIELD_BINARY_TYPE %%%>
+    TROSerializer(ASerializer).WriteBinary('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BINARY_TYPE %%%>
+    // <%%% START IF_FIELD_BOOLEAN_TYPE %%%>
+    TROSerializer(ASerializer).WriteEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(boolean), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_BOOLEAN_TYPE %%%>
+    // <%%% START IF_FIELD_CURRENCY_TYPE %%%>
+    TROSerializer(ASerializer).WriteDouble('%FIELD_ORIGINALNAME%', ftCurr, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_CURRENCY_TYPE %%%>
+    // <%%% START IF_FIELD_DATETIME_TYPE %%%>
+    TROSerializer(ASerializer).WriteDateTime('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DATETIME_TYPE %%%>
+    // <%%% START IF_FIELD_DECIMAL_TYPE %%%>
+    TROSerializer(ASerializer).WriteDecimal('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DECIMAL_TYPE %%%>
+    // <%%% START IF_FIELD_DOUBLE_TYPE %%%>
+    TROSerializer(ASerializer).WriteDouble('%FIELD_ORIGINALNAME%', ftDouble, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_DOUBLE_TYPE %%%>
+    // <%%% START IF_FIELD_GUID_TYPE %%%>
+    TROSerializer(ASerializer).WriteGuid('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_GUID_TYPE %%%>
+    // <%%% START IF_FIELD_INT64_TYPE %%%>
+    TROSerializer(ASerializer).WriteInt64('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INT64_TYPE %%%>
+    // <%%% START IF_FIELD_INTEGER_TYPE %%%>
+    TROSerializer(ASerializer).WriteInteger('%FIELD_ORIGINALNAME%', otSLong, l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_INTEGER_TYPE %%%>
+    // <%%% START IF_FIELD_ANSISTRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteAnsiString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ANSISTRING_TYPE %%%>
+    // <%%% START IF_FIELD_UTF8STRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteUTF8String('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_UTF8STRING_TYPE %%%>
+    // <%%% START IF_FIELD_VARIANT_TYPE %%%>
+    TROSerializer(ASerializer).WriteVariant('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_VARIANT_TYPE %%%>
+    // <%%% START IF_FIELD_WIDESTRING_TYPE %%%>
+    TROSerializer(ASerializer).WriteWideString('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_WIDESTRING_TYPE %%%>
+    // <%%% START IF_FIELD_XML_TYPE %%%>
+    TROSerializer(ASerializer).WriteXml('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_XML_TYPE %%%>
+    // <%%% START IF_FIELD_ARRAY_TYPE %%%>
+    TROSerializer(ASerializer).WriteArray('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_ARRAY_TYPE %%%>
+    // <%%% START IF_FIELD_ENUM_TYPE %%%>
+    TROSerializer(ASerializer).WriteEnumerated('%FIELD_ORIGINALNAME%', TypeInfo(%FIELD_TYPE%), l_%FIELD_NAME%);
+    // <%%% END IF_FIELD_ENUM_TYPE %%%>
+    // <%%% START IF_FIELD_STRUCT_TYPE %%%>
+    TROSerializer(ASerializer).WriteStruct('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_STRUCT_TYPE %%%>
+    // <%%% START IF_FIELD_XSDATETIME_TYPE %%%>
+    TROSerializer(ASerializer).WriteStruct('%FIELD_ORIGINALNAME%', l_%FIELD_NAME%, %FIELD_TYPE%);
+    // <%%% END IF_FIELD_XSDATETIME_TYPE %%%>
+    // <%%% END ENTIRE_HIERARCHY_FIELDS %%%>
+  end;
+end;
+
+// <%%% END IF_HAS_FIELDS %%%>
+{ %STRUCT_COLLECTION_NAME% }
+constructor %STRUCT_COLLECTION_NAME%.Create;
+begin
+  inherited Create(%STRUCT_NAME%);
+end;
+
+constructor %STRUCT_COLLECTION_NAME%.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function %STRUCT_COLLECTION_NAME%.Add: %STRUCT_NAME%;
+begin
+  result := %STRUCT_NAME%(inherited Add);
+end;
+
+function %STRUCT_COLLECTION_NAME%.GetItems(aIndex: integer): %STRUCT_NAME%;
+begin
+  result := %STRUCT_NAME%(inherited Items[aIndex]);
+end;
+
+// <%%% START ARRAYS_IS_FOUND %%%>
+procedure %STRUCT_COLLECTION_NAME%.LoadFromArray(anArray: %ARRAY_NAME%);
+var
+  i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    anArray[i].Clone.Collection := Self;
+end;
+
+procedure %STRUCT_COLLECTION_NAME%.SaveToArray(anArray: %ARRAY_NAME%);
+var
+  i : integer;
+begin
+  anArray.Clear;
+  for i := 0 to (Count-1) do begin  
+    if Assigned(Items[i]) then
+      anArray.Add(%STRUCT_NAME%(Items[i].Clone))
+    else
+      anArray.Add(nil);    
+  end;
+end;
+
+// <%%% END ARRAYS_IS_FOUND %%%>
+
+procedure %STRUCT_COLLECTION_NAME%.SetItems(aIndex: integer; const Value: %STRUCT_NAME%);
+begin
+  %STRUCT_NAME%(inherited Items[aIndex]).Assign(Value);
+end;
+
+// <%%% END STRUCTS %%%>
+// <%%% START SERVICES %%%>
+{ Co%SERVICE_NAME% }
+
+class function Co%SERVICE_NAME%.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): I%SERVICE_NAME%;
+begin
+  result := T%SERVICE_NAME%_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ T%SERVICE_NAME%_Proxy }
+
+function T%SERVICE_NAME%_Proxy.__GetInterfaceName:string;
+begin
+  result := '%SERVICE_NAME%';
+end;
+
+// <%%% START FUNCTION_OPERATIONS %%%>
+function T%SERVICE_NAME%_Proxy.%OPERATION_NAME%(
+           // <%%% START PARAMS %%%>
+           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+           // <%%% END PARAMS %%%>
+           ): %OPERATION_RESULT%;
+begin
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% := nil;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  Result := nil;
+  // <%%% END IF_RESULT_COMPLEX %%%>
+  // <%%% START IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  // <%%% START OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  __Message.SetAttributes(__TransportChannel, [
+    %OPERATION_ATTRIBUTE_NAMES%
+    ], 
+    [
+    %OPERATION_ATTRIBUTE_VALUES%
+    ]);
+  // <%%% END OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  // <%%% END IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, '%LIBRARY_NAME%', __InterfaceName, '%OPERATION_NAME%');
+    // <%%% START IN_PARAMS_NO_STRIP %%%>
+    __Message.Write('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END IN_PARAMS_NO_STRIP %%%>
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(%OPERATION_RESULT%), result, [%OPERATION_RESULT_ATTRIBUTE%]);
+    // <%%% START OUT_PARAMS_NO_STRIP %%%>
+    __Message.Read('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+// <%%% END FUNCTION_OPERATIONS %%%>
+// <%%% START PROCEDURE_OPERATIONS %%%>
+procedure T%SERVICE_NAME%_Proxy.%OPERATION_NAME%(
+           // <%%% START PARAMS %%%>
+           %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+           // <%%% END PARAMS %%%>
+           );
+begin
+  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% := nil;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  // <%%% START IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  // <%%% START OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  __Message.SetAttributes(__TransportChannel, [
+    %OPERATION_ATTRIBUTE_NAMES%
+    ], 
+    [
+    %OPERATION_ATTRIBUTE_VALUES%
+    ]);
+  // <%%% END OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  // <%%% END IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, '%LIBRARY_NAME%', __InterfaceName, '%OPERATION_NAME%');
+    // <%%% START IN_PARAMS_NO_STRIP %%%>
+    __Message.Write('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END IN_PARAMS_NO_STRIP %%%>
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    // <%%% START OUT_PARAMS_NO_STRIP %%%>
+    __Message.Read('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END OUT_PARAMS_NO_STRIP %%%>
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+// <%%% END PROCEDURE_OPERATIONS %%%>
+// <%%% END SERVICES %%%>
+// <%%% START EVENT_SINKS %%%>
+type
+  { T%EVENT_SINK_NAME%_Writer }
+  T%EVENT_SINK_NAME%_Writer = class(T%EVENT_SINK_WRITER_ANCESTOR_NAME%, I%EVENT_SINK_NAME%_Writer)
+  protected
+    // <%%% START OPERATIONS %%%>
+    procedure %OPERATION_NAME%(const __Sender : TGUID
+                // <%%% START PARAMS %%%>
+                ; %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%
+                // <%%% END PARAMS %%%>
+                );
+    // <%%% END OPERATIONS %%%>
+  end;
+
+// <%%% START OPERATIONS %%%>
+procedure T%EVENT_SINK_NAME%_Writer.%OPERATION_NAME%(const __Sender : TGUID
+  // <%%% START PARAMS %%%>
+  ; %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%
+  // <%%% END PARAMS %%%>
+  );
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, '%LIBRARY_NAME%', EID_%EVENT_SINK_NAME%, '%OPERATION_NAME%');
+    // <%%% START PARAMS_NO_STRIP %%%>
+    __Message.Write('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END PARAMS_NO_STRIP %%%>
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+// <%%% END OPERATIONS %%%>
+type
+  { T%EVENT_SINK_NAME%_Invoker }
+  T%EVENT_SINK_NAME%_Invoker = class(T%EVENT_SINK_INVOKER_ANCESTOR_NAME%)
+  published
+    // <%%% START OPERATIONS %%%>
+    procedure Invoke_%OPERATION_NAME%(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    // <%%% END OPERATIONS %%%>
+  end;
+
+// <%%% START OPERATIONS %%%>
+procedure T%EVENT_SINK_NAME%_Invoker.Invoke_%OPERATION_NAME%(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  // <%%% START PARAMS_NO_STRIP %%%>
+  %PARAM_NAME%: %PARAM_TYPE%;
+  // <%%% END PARAMS_NO_STRIP %%%>
+  // <%%% START IF_HAS_COMPLEX_TYPE %%%>
+  __lObjectDisposer: TROObjectDisposer;
+  // <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  __%EVENT_SINK_NAME%Instance: I%EVENT_SINK_NAME%;
+begin
+  // <%%% START PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% := nil;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS_NO_STRIP %%%>
+  try
+    // <%%% START PARAMS_NO_STRIP %%%>
+    __Message.Read('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END PARAMS_NO_STRIP %%%>
+
+    __%EVENT_SINK_NAME%Instance := (__Target as I%EVENT_SINK_NAME%);
+    __%EVENT_SINK_NAME%Instance.%OPERATION_NAME%(
+                                  // <%%% START PARAMS %%%>
+                                  %PARAM_NAME%,
+                                  // <%%% END PARAMS %%%>
+                                  );
+
+  finally
+    // <%%% START IF_HAS_COMPLEX_TYPE %%%>
+    __lObjectDisposer := TROObjectDisposer.Create(__EventReceiver);
+    try
+      // <%%% START PARAMS_NO_STRIP %%%>
+      // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+      __lObjectDisposer.Add(%PARAM_NAME%);
+      // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+      // <%%% END PARAMS_NO_STRIP %%%>
+    finally
+      __lObjectDisposer.Free();
+    end;
+    // <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  end
+end;
+
+// <%%% END OPERATIONS %%%>
+// <%%% END EVENT_SINKS %%%>
+initialization
+  // <%%% START STRUCTS %%%>
+  RegisterROClass(%STRUCT_NAME%);
+  // <%%% END STRUCTS %%%>
+  // <%%% START ARRAYS %%%>
+  RegisterROClass(%ARRAY_NAME%);
+  // <%%% END ARRAYS %%%>
+  // <%%% START EXCEPTIONS %%%>
+  RegisterExceptionClass(%EXCEPTION_NAME%);
+  // <%%% END EXCEPTIONS %%%>
+  // <%%% START SERVICES %%%>
+  RegisterProxyClass(I%SERVICE_NAME%_IID, T%SERVICE_NAME%_Proxy);
+  // <%%% END SERVICES %%%>     
+  // <%%% START EVENT_SINKS %%%>
+  RegisterEventWriterClass(I%EVENT_SINK_NAME%_Writer, T%EVENT_SINK_NAME%_Writer);
+  RegisterEventInvokerClass(EID_%EVENT_SINK_NAME%, T%EVENT_SINK_NAME%_Invoker);
+  // <%%% END EVENT_SINKS %%%>     
+
+  // <%%% START ENUMS %%%>
+  // <%%% START REGISTER_ENUMS_MAPPINGS %%%>
+  RegisterEnumMapping(TROEnumMapping.Create('%ENUM_NAME%', '%VALUE_NAME%', '%SOAP_VALUE%'));
+  // <%%% END REGISTER_ENUMS_MAPPINGS %%%>
+  // <%%% END ENUMS %%%>
+
+finalization
+  // <%%% START STRUCTS %%%>
+  UnregisterROClass(%STRUCT_NAME%);
+  // <%%% END STRUCTS %%%>
+  // <%%% START ARRAYS %%%>
+  UnregisterROClass(%ARRAY_NAME%);
+  // <%%% END ARRAYS %%%>
+  // <%%% START EXCEPTIONS %%%>
+  UnregisterExceptionClass(%EXCEPTION_NAME%);
+  // <%%% END EXCEPTIONS %%%>
+  // <%%% START SERVICES %%%>
+  UnregisterProxyClass(I%SERVICE_NAME%_IID);
+  // <%%% END SERVICES %%%>
+  // <%%% START EVENT_SINKS %%%>
+  UnregisterEventWriterClass(I%EVENT_SINK_NAME%_Writer);
+  UnregisterEventInvokerClass(EID_%EVENT_SINK_NAME%);
+  // <%%% END EVENT_SINKS %%%>
+  // <%%% START ENUMS %%%>
+  // <%%% START UNREGISTER_ENUMS_MAPPINGS %%%>
+  UnRegisterEnumMappings();
+  // <%%% END UNREGISTER_ENUMS_MAPPINGS %%%>
+  // <%%% END ENUMS %%%>
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.cpp b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.cpp
new file mode 100644
index 0000000..68a139b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.cpp	
@@ -0,0 +1,216 @@
+// %UNIT_NAME%
+//
+/*---------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project.                                }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{---------------------------------------------------------------------------*/
+
+// RemObjects:
+#include <uRORes.HPP>
+#include <uROClient.HPP>
+
+// Interface of %LIBRARY_NAME%
+#include "%LIBRARY_NAME%_Intf.h"
+
+// Implementation of %LIBRARY_NAME%
+#include "%LIBRARY_NAME%_Invk.h"
+
+// <%%% START SERVICES %%%>
+// T%SERVICE_NAME%_Invoker
+
+// <%%% START FUNCTION_OPERATIONS %%%>
+void __fastcall T%SERVICE_NAME%_Invoker::Invoke_%OPERATION_NAME%(
+		const System::_di_IInterface __Instance,
+		const Uroclientintf::_di_IROMessage __Message,
+		const Uroclientintf::_di_IROTransport __Transport,
+		/* out */ Uroserverintf::TROResponseOptions& __oResponseOptions)
+{
+// <%%% START IF_RESULT_SIMPLE %%%>
+// virtual %OPERATION_RESULT% __fastcall %OPERATION_NAME%(
+// <%%% END IF_RESULT_SIMPLE %%%>
+// <%%% START IF_RESULT_COMPLEX %%%>
+// virtual %OPERATION_RESULT%* __fastcall %OPERATION_NAME%(
+// <%%% END IF_RESULT_COMPLEX %%%>
+// <%%% START PARAMS %%%>
+// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+//   %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+//   %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+// <%%% END PARAMS %%%>
+//   );
+
+  // <%%% START PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  %PARAM_TYPE% %PARAM_NAME%;
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_TYPE%* %PARAM_NAME% = NULL;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS_NO_STRIP %%%>
+  // <%%% START IF_RESULT_SIMPLE %%%>
+  %OPERATION_RESULT% lResult;
+  // <%%% END IF_RESULT_SIMPLE %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  %OPERATION_RESULT%* lResult = NULL;
+  // <%%% END IF_RESULT_COMPLEX %%%>
+  try
+  {
+	_di_I%SERVICE_NAME% __%SERVICE_NAME%Instance;
+	if (__Instance->Supports(__%SERVICE_NAME%Instance))
+	{
+	  // <%%% START IN_PARAMS_NO_STRIP %%%>
+	  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+	  __Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+	  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+	  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+	  __Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+	  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+	  // <%%% END IN_PARAMS_NO_STRIP %%%>
+
+	  lResult = __%SERVICE_NAME%Instance->%OPERATION_NAME%(
+											// <%%% START PARAMS %%%>
+											%PARAM_NAME%,
+											// <%%% END PARAMS %%%>
+											);
+
+	  __Message->InitializeResponseMessage(__Transport, "%LIBRARY_NAME%", "%SERVICE_NAME%", "%OPERATION_NAME%Response");
+	  // <%%% START IF_RESULT_SIMPLE %%%>
+	  __Message->Write("Result", __Get%OPERATION_RESULT%Info, &lResult, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));
+	  // <%%% END IF_RESULT_SIMPLE %%%>
+	  // <%%% START IF_RESULT_COMPLEX %%%>
+	  __Message->Write("Result", __typeinfo(%OPERATION_RESULT%), &lResult, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));
+	  // <%%% END IF_RESULT_COMPLEX %%%>
+	  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+	  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+	  __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+	  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+	  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+	  __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+	  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+	  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+	  __Message->Finalize();
+	  __Message->UnsetAttributes(__Transport);
+	}
+	else
+	{
+	  throw new EIntfCastError("Critical error in Invoker: Instance does not support I%SERVICE_NAME% interface");
+	}
+  }
+  __finally
+  {
+	// <%%% START IF_HAS_COMPLEX_TYPE %%%>
+	TROObjectDisposer* __lObjectDisposer = new TROObjectDisposer(__Instance);
+	try
+	{
+	  // <%%% START PARAMS_NO_STRIP %%%>
+	  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+	  __lObjectDisposer->Add(%PARAM_NAME%);
+	  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+	  // <%%% END PARAMS_NO_STRIP %%%>
+	  // <%%% START IF_RESULT_COMPLEX %%%>
+	  __lObjectDisposer->Add(lResult);
+	  // <%%% END IF_RESULT_COMPLEX %%%>
+	}
+	__finally
+	{
+	  delete __lObjectDisposer;
+	}
+	// <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  }
+}
+
+// <%%% END FUNCTION_OPERATIONS %%%>
+// <%%% START PROCEDURE_OPERATIONS %%%>
+void __fastcall T%SERVICE_NAME%_Invoker::Invoke_%OPERATION_NAME%(
+		const System::_di_IInterface __Instance,
+		const Uroclientintf::_di_IROMessage __Message,
+		const Uroclientintf::_di_IROTransport __Transport,
+		/* out */ Uroserverintf::TROResponseOptions& __oResponseOptions)
+{
+// virtual void __fastcall %OPERATION_NAME%(
+// <%%% START PARAMS %%%>
+// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+//   %PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+//   %PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
+// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+// <%%% END PARAMS %%%>
+//   );
+
+  // <%%% START PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+  %PARAM_TYPE% %PARAM_NAME%;
+  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_TYPE%* %PARAM_NAME%;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS_NO_STRIP %%%>
+  try
+  {
+	_di_I%SERVICE_NAME% __%SERVICE_NAME%Instance;
+	if (__Instance->Supports(__%SERVICE_NAME%Instance))
+	{
+	  // <%%% START IN_PARAMS_NO_STRIP %%%>
+	  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+	  __Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+	  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+	  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+	  __Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+	  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+	  // <%%% END IN_PARAMS_NO_STRIP %%%>
+
+	  __%SERVICE_NAME%Instance->%OPERATION_NAME%(
+								  // <%%% START PARAMS %%%>
+								  %PARAM_NAME%,
+								  // <%%% END PARAMS %%%>
+								  );
+
+	  __Message->InitializeResponseMessage(__Transport, "%LIBRARY_NAME%", "%SERVICE_NAME%", "%OPERATION_NAME%Response");
+	  // <%%% START OUT_PARAMS_NO_STRIP %%%>
+	  // <%%% START IF_PARAM_TYPE_SIMPLE %%%>
+	  __Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+	  // <%%% END IF_PARAM_TYPE_SIMPLE %%%>
+	  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+	  __Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
+	  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+	  // <%%% END OUT_PARAMS_NO_STRIP %%%>
+	  __Message->Finalize();
+	  __Message->UnsetAttributes(__Transport);
+	  // <%%% START IF_NO_OUT_PARAMS %%%>
+
+	  __oResponseOptions = TROResponseOptions() << roNoResponse;
+	  // <%%% END IF_NO_OUT_PARAMS %%%>
+	}
+	else
+	{
+	  throw new EIntfCastError("Critical error in Invoker: Instance does not support %SERVICE_NAME% interface");
+	}
+  }
+  __finally
+  {
+	// <%%% START IF_HAS_COMPLEX_TYPE %%%>
+	TROObjectDisposer* __lObjectDisposer = new TROObjectDisposer(__Instance);
+	try
+	{
+	  // <%%% START PARAMS_NO_STRIP %%%>
+	  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+	  __lObjectDisposer->Add(%PARAM_NAME%);
+	  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+	  // <%%% END PARAMS_NO_STRIP %%%>
+	}
+	__finally
+	{
+	  delete __lObjectDisposer;
+	}
+	// <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  }
+}
+// <%%% END PROCEDURE_OPERATIONS %%%>
+// <%%% END SERVICES %%%>
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.h b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.h
new file mode 100644
index 0000000..099b939
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.h	
@@ -0,0 +1,73 @@
+// %UNIT_NAME%
+//
+/*---------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project.                                }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{---------------------------------------------------------------------------*/
+
+#ifndef %UNIT_NAME%H
+#define %UNIT_NAME%H
+
+#pragma delphiheader begin
+#pragma option push
+#pragma option -w-      // All warnings off
+#pragma option -Vx      // Zero-length empty class member functions
+#pragma pack(push,8)
+
+#include <System.hpp>			    // Pascal unit
+#include <Uroserver.hpp>	    // Pascal unit
+// <%%% START REQUIRED_UNITS %%%>
+#include <%REQUIRED_UNIT_NAME%.hpp>
+// <%%% END REQUIRED_UNITS %%%>
+
+#include "%LIBRARY_NAME%_Intf.h"
+
+namespace %NAMESPACE_NAME%
+{
+//-- type declarations -------------------------------------------------------
+typedef Classes::TSeekOrigin TSeekOrigin;   // Fake declaration 
+
+// <%%% START SERVICES %%%>
+class DELPHICLASS T%SERVICE_NAME%_Invoker : public TROInvoker
+{
+  typedef Uroserver::TROInvoker inherited;
+
+  __published:
+    // <%%% START FUNCTION_OPERATIONS %%%>
+    void __fastcall Invoke_%OPERATION_NAME%(
+        const System::_di_IInterface __Instance,
+        const Uroclientintf::_di_IROMessage __Message,
+        const Uroclientintf::_di_IROTransport __Transport,
+        /* out */ Uroserverintf::TROResponseOptions& __oResponseOptions);
+    // <%%% END FUNCTION_OPERATIONS %%%>
+    // <%%% START PROCEDURE_OPERATIONS %%%>
+    void __fastcall Invoke_%OPERATION_NAME%(
+        const System::_di_IInterface __Instance,
+        const Uroclientintf::_di_IROMessage __Message,
+        const Uroclientintf::_di_IROTransport __Transport,
+        /* out */ Uroserverintf::TROResponseOptions& __oResponseOptions);
+    // <%%% END PROCEDURE_OPERATIONS %%%>
+  public:
+	#pragma option push -w-inl
+	/* TROInvoker.Create */ inline __fastcall virtual T%SERVICE_NAME%_Invoker(): Uroserver::TROInvoker() {}
+	#pragma option pop
+	#pragma option push -w-inl
+	/* TROInvoker.Destroy */ inline __fastcall virtual ~T%SERVICE_NAME%_Invoker() {}
+	#pragma option pop
+
+  protected:
+  private:
+};
+// <%%% END SERVICES %%%>
+
+}	// namespace %NAMESPACE_NAME%
+using namespace %NAMESPACE_NAME%;
+#pragma pack(pop)
+#pragma option pop
+#pragma delphiheader end.
+//-- end H ----------------------------------------------------------------
+#endif	// %UNIT_NAME%H
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.pas
new file mode 100644
index 0000000..93bc25e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.invk.pas	
@@ -0,0 +1,208 @@
+unit %UNIT_NAME%;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  // <%%% START REQUIRED_UNITS %%%>
+  {Required:} %REQUIRED_UNIT_NAME%,
+  // <%%% END REQUIRED_UNITS %%%>
+  {Generated:} %LIBRARY_NAME%_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+
+  // <%%% START SERVICES %%%>
+  T%SERVICE_NAME%_Invoker = class(T%SERVICE_INVOKER_ANCESTOR_NAME%)
+  private
+  public
+    constructor Create; override;
+  published
+    // <%%% START FUNCTION_OPERATIONS %%%>
+    procedure Invoke_%OPERATION_NAME%(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    // <%%% END FUNCTION_OPERATIONS %%%>
+    // <%%% START PROCEDURE_OPERATIONS %%%>
+    procedure Invoke_%OPERATION_NAME%(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    // <%%% END PROCEDURE_OPERATIONS %%%>
+  end;
+
+  // <%%% END SERVICES %%%>
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+// <%%% START SERVICES %%%>
+{ T%SERVICE_NAME%_Invoker }
+
+constructor T%SERVICE_NAME%_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := %IS_ABSTRACT%;
+end;
+
+// <%%% START FUNCTION_OPERATIONS %%%>
+procedure T%SERVICE_NAME%_Invoker.Invoke_%OPERATION_NAME%(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function %OPERATION_NAME%(
+              // <%%% START PARAMS %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+              // <%%% END PARAMS %%%>
+              ): %OPERATION_RESULT%; }
+var
+  // <%%% START PARAMS_NO_STRIP %%%>
+  %PARAM_NAME%: %PARAM_TYPE%;
+  // <%%% END PARAMS_NO_STRIP %%%>
+  lResult: %OPERATION_RESULT%;
+  // <%%% START IF_HAS_COMPLEX_TYPE %%%>
+  __lObjectDisposer: TROObjectDisposer;
+  // <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  __%SERVICE_NAME%Instance: I%SERVICE_NAME%;
+begin
+  // <%%% START PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% := nil;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS_NO_STRIP %%%>
+  // <%%% START IF_RESULT_COMPLEX %%%>
+  lResult := nil;
+  // <%%% END IF_RESULT_COMPLEX %%%>
+  // <%%% START IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  // <%%% START OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  __Message.SetAttributes(__Transport, [
+    %OPERATION_ATTRIBUTE_NAMES%
+    ], 
+    [
+    %OPERATION_ATTRIBUTE_VALUES%
+    ]);
+  // <%%% END OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  // <%%% END IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  try
+    // <%%% START IN_PARAMS_NO_STRIP %%%>
+    __Message.Read('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END IN_PARAMS_NO_STRIP %%%>
+
+    __%SERVICE_NAME%Instance := __Instance as I%SERVICE_NAME%; 
+    lResult := __%SERVICE_NAME%Instance.%OPERATION_NAME%(
+                                          // <%%% START PARAMS %%%>
+                                          %PARAM_NAME%,
+                                          // <%%% END PARAMS %%%>
+                                          );
+
+    __Message.InitializeResponseMessage(__Transport, '%LIBRARY_NAME%', '%SERVICE_NAME%', '%OPERATION_NAME%Response');
+    __Message.Write('Result', TypeInfo(%OPERATION_RESULT%), lResult, [%OPERATION_RESULT_ATTRIBUTE%]);
+    // <%%% START OUT_PARAMS_NO_STRIP %%%>
+    __Message.Write('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END OUT_PARAMS_NO_STRIP %%%>
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+    
+  finally
+    // <%%% START IF_HAS_COMPLEX_TYPE %%%>
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      // <%%% START PARAMS_NO_STRIP %%%>
+      // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+      __lObjectDisposer.Add(%PARAM_NAME%);
+      // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+      // <%%% END PARAMS_NO_STRIP %%%>
+      // <%%% START IF_RESULT_COMPLEX %%%>
+      __lObjectDisposer.Add(lResult);
+      // <%%% END IF_RESULT_COMPLEX %%%>
+    finally
+      __lObjectDisposer.Free();
+    end;
+    // <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  end;
+end;
+
+// <%%% END FUNCTION_OPERATIONS %%%>
+// <%%% START PROCEDURE_OPERATIONS %%%>
+procedure T%SERVICE_NAME%_Invoker.Invoke_%OPERATION_NAME%(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure %OPERATION_NAME%(
+              // <%%% START PARAMS %%%>
+              %PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
+              // <%%% END PARAMS %%%>
+              ); }
+var
+  // <%%% START PARAMS_NO_STRIP %%%>
+  %PARAM_NAME%: %PARAM_TYPE%;
+  // <%%% END PARAMS_NO_STRIP %%%>
+  // <%%% START IF_HAS_COMPLEX_TYPE %%%>
+  __lObjectDisposer: TROObjectDisposer;
+  // <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  __%SERVICE_NAME%Instance: I%SERVICE_NAME%;
+begin
+  // <%%% START PARAMS_NO_STRIP %%%>
+  // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+  %PARAM_NAME% := nil;
+  // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+  // <%%% END PARAMS_NO_STRIP %%%>
+  // <%%% START IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  // <%%% START OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  __Message.SetAttributes(__Transport, [
+    %OPERATION_ATTRIBUTE_NAMES%
+    ], 
+    [
+    %OPERATION_ATTRIBUTE_VALUES%
+    ]);
+  // <%%% END OPEARTION_ATTRIBUTES_NO_STRIP %%%>
+  // <%%% END IF_HAS_OPEARTION_ATTRIBUTES %%%>
+  try
+    // <%%% START IN_PARAMS_NO_STRIP %%%>
+    __Message.Read('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END IN_PARAMS_NO_STRIP %%%>
+
+    __%SERVICE_NAME%Instance := __Instance as I%SERVICE_NAME%; 
+    __%SERVICE_NAME%Instance.%OPERATION_NAME%(
+                               // <%%% START PARAMS %%%>
+                               %PARAM_NAME%,
+                               // <%%% END PARAMS %%%>
+                               );
+
+    __Message.InitializeResponseMessage(__Transport, '%LIBRARY_NAME%', '%SERVICE_NAME%', '%OPERATION_NAME%Response');
+    // <%%% START OUT_PARAMS_NO_STRIP %%%>
+    __Message.Write('%PARAM_NAME%', TypeInfo(%PARAM_TYPE%), %PARAM_NAME%, [%PARAM_ATTRIBUTE%]);
+    // <%%% END OUT_PARAMS_NO_STRIP %%%>
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+    
+    // <%%% START IF_NO_OUT_PARAMS %%%>
+    __oResponseOptions := [roNoResponse];
+
+    // <%%% END IF_NO_OUT_PARAMS %%%>
+  finally
+    // <%%% START IF_HAS_COMPLEX_TYPE %%%>
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      // <%%% START PARAMS_NO_STRIP %%%>
+      // <%%% START IF_PARAM_TYPE_COMPLEX %%%>
+      __lObjectDisposer.Add(%PARAM_NAME%);
+      // <%%% END IF_PARAM_TYPE_COMPLEX %%%>
+      // <%%% END PARAMS_NO_STRIP %%%>
+    finally
+      __lObjectDisposer.Free();
+    end;
+    // <%%% END IF_HAS_COMPLEX_TYPE %%%>
+  end;
+end;
+
+// <%%% END PROCEDURE_OPERATIONS %%%>
+// <%%% END SERVICES %%%>
+// <%%% START IF_HAS_SERVICE_ATTRIBUTES %%%>
+initialization
+// <%%% START SERVICE_ATTRIBUTES %%%>
+  RegisterServiceAttribute('%SERVICE_NAME%', %ATTRIBUTE_NAME%, %ATTRIBUTE_VALUE%);
+// <%%% END SERVICE_ATTRIBUTES %%%>
+// <%%% END IF_HAS_SERVICE_ATTRIBUTES %%%>
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_async.h b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_async.h
new file mode 100644
index 0000000..cc1b1bb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_async.h	
@@ -0,0 +1,15 @@
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+#ifndef %UNIT_NAME%_H
+#define %UNIT_NAME%_H
+
+// <%%% START USES %%%>
+#include "%USED_UNIT_NAME%.h"
+// <%%% END USES %%%>
+
+#endif
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_async.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_async.pas
new file mode 100644
index 0000000..f8fdd7a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_async.pas	
@@ -0,0 +1,26 @@
+unit %UNIT_NAME%;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  // <%%% START USES %%%>
+  %USED_UNIT_NAME%,
+  // <%%% END USES %%%>
+  ;
+
+type
+  // <%%% START TYPES %%%>
+  %TYPE_NAME% = %TYPE_UNIT_NAME%.%TYPE_NAME%;
+  // <%%% END TYPES %%%>
+  
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_intf.h b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_intf.h
new file mode 100644
index 0000000..cc1b1bb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_intf.h	
@@ -0,0 +1,15 @@
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+#ifndef %UNIT_NAME%_H
+#define %UNIT_NAME%_H
+
+// <%%% START USES %%%>
+#include "%USED_UNIT_NAME%.h"
+// <%%% END USES %%%>
+
+#endif
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_intf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_intf.pas
new file mode 100644
index 0000000..f8fdd7a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_intf.pas	
@@ -0,0 +1,26 @@
+unit %UNIT_NAME%;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  // <%%% START USES %%%>
+  %USED_UNIT_NAME%,
+  // <%%% END USES %%%>
+  ;
+
+type
+  // <%%% START TYPES %%%>
+  %TYPE_NAME% = %TYPE_UNIT_NAME%.%TYPE_NAME%;
+  // <%%% END TYPES %%%>
+  
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_invk.h b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_invk.h
new file mode 100644
index 0000000..cc1b1bb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_invk.h	
@@ -0,0 +1,15 @@
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+#ifndef %UNIT_NAME%_H
+#define %UNIT_NAME%_H
+
+// <%%% START USES %%%>
+#include "%USED_UNIT_NAME%.h"
+// <%%% END USES %%%>
+
+#endif
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_invk.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_invk.pas
new file mode 100644
index 0000000..57fa4a2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.wrapper_invk.pas	
@@ -0,0 +1,26 @@
+unit %UNIT_NAME%;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  // <%%% START USES %%%>
+  %USED_UNIT_NAME%,
+  // <%%% END USES %%%>
+  ;
+
+type
+  // <%%% START TYPES %%%>
+  %TYPE_NAME%_Invoker = %TYPE_UNIT_NAME%.%TYPE_NAME%_Invoker;
+  // <%%% END TYPES %%%>
+  
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLAsyncConverter.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLAsyncConverter.pas
new file mode 100644
index 0000000..d67f978
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLAsyncConverter.pas	
@@ -0,0 +1,104 @@
+unit uRODLAsyncConverter;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  uRODL, uRODLTemplateBasedConverter, uRODLIntfConverter;
+
+type
+  TRODLAsyncConverter = class (TRODLIntfConverter)
+  protected
+    function GetServicesSectionClass: TServicesSectionClass; override;
+    function GetUsedFileRequiredUnits(const UsedRODLFileName: string): string; override;
+  end;
+
+
+type
+  TAsyncServicesSection = class (TIntfServicesSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+    function GetProxyAncestorName(const aService: TRODLBaseService): string; override;
+    function GetProxySuffix: string; override;
+
+    procedure DoReplacements(var curLine: string; const aService: TRODLBaseService; const aLibrary: TRODLLibrary); override;
+  end;
+
+implementation
+
+uses
+  uROClasses, uRODLTemplateBasedConverterUtils;
+
+{ TRODLAsyncConverter }
+
+function TRODLAsyncConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TAsyncServicesSection;
+end;
+
+function TRODLAsyncConverter.GetUsedFileRequiredUnits(
+  const UsedRODLFileName: string): string;
+begin
+  Result := inherited GetUsedFileRequiredUnits(UsedRODLFileName);
+
+  if Result <> '' then
+    Result := Result + ',';
+
+  Result := Result + UsedRODLFileName + DEFAULT_ASYNC_SUFFIX;
+end;
+
+{ TAsyncServicesSection }
+
+procedure TAsyncServicesSection.DoReplacements(var curLine: string;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary);
+begin
+  inherited DoReplacements(curLine, aService, aLibrary);
+
+  MacroReplace(curLine, '%',
+               ['ASYNC_SERVICE_UID', NewGuidAsString
+               ]);
+end;
+
+function TAsyncServicesSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+
+  if Length(Result) > 0 then
+    Result := Result + DEFAULT_ASYNC_SUFFIX
+  else
+    Result := DEFAULT_SERVICE_ASYNC_ANCESTOR_NAME;
+end;
+
+function TAsyncServicesSection.GetProxyAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetProxyAncestorName(aService);
+
+  if (Length(Result) = 0) or (Result = DEFAULT_SERVICE_PROXY_ANCESTOR_NAME)  then
+    Result := DEFAULT_SERVICE_ASYNC_PROXY_ANCESTOR_NAME;
+end;
+
+function TAsyncServicesSection.GetProxySuffix: string;
+begin
+  Result := DEFAULT_ASYNC_PROXY_SUFFIX;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLConvertersUtils.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLConvertersUtils.pas
new file mode 100644
index 0000000..8d2898e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLConvertersUtils.pas	
@@ -0,0 +1,937 @@
+unit uRODLConvertersUtils;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  Classes, uRODLImplConverter, uRODLToXML, uRODL;
+
+const
+  DEFAULT_DELPHI_INTF_TEMPLATE_FILENAME = 'template.intf.pas';
+  DEFAULT_DELPHI_INVK_TEMPLATE_FILENAME = 'template.invk.pas';
+  DEFAULT_DELPHI_IMPL_TEMPLATE_FILENAME = 'template.impl.pas';
+  DEFAULT_DELPHI_ASYNC_TEMPLATE_FILENAME = 'template.async.pas';
+  DEFAULT_DELPHI_INTF_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_intf.pas';
+  DEFAULT_DELPHI_INVK_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_invk.pas';
+  DEFAULT_DELPHI_ASYNC_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_async.pas';
+
+  DEFAULT_CPP_INTF_TEMPLATE_FILENAME = 'template.intf.cpp';
+  DEFAULT_CPP_INVK_TEMPLATE_FILENAME = 'template.invk.cpp';
+  DEFAULT_CPP_IMPL_TEMPLATE_FILENAME = 'template.impl.cpp';
+  DEFAULT_CPP_ASYNC_TEMPLATE_FILENAME = 'template.async.cpp';
+  DEFAULT_CPP_INTF_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_intf.h';
+  DEFAULT_CPP_INVK_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_invk.h';
+  DEFAULT_CPP_ASYNC_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_async.h';
+
+{$IFNDEF FPC}
+  {$R Templates\Templates.res}
+{$ENDIF}  
+
+type
+  TROCodeGenLanguage = (cglDelphiWin32, cglCppBuilder, cglCpp, cglObjectiveC);
+  TROCodeGenType = (cgtIntf, cgtInvk, cgtImpl, cgtAsync, cgtRes);
+
+
+// Delphi
+procedure GenerateDelphiIntf(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateDelphiInvk(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateDelphiImpl(const LibraryFileName: string; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
+procedure GenerateDelphiAsync(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+
+procedure GenerateDelphiIntf(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateDelphiInvk(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateDelphiImpl(const aLibrary: TRODLLibrary; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
+procedure GenerateDelphiAsync(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+
+procedure GenerateDelphiIntf(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateDelphiInvk(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateDelphiImpl(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputDFMStream: TStream; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
+procedure GenerateDelphiAsync(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+
+// Cpp
+procedure GenerateCppIntf(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateCppInvk(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateCppImpl(const LibraryFileName: string; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
+procedure GenerateCppAsync(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+
+procedure GenerateCppIntf(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateCppInvk(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateCppImpl(const aLibrary: TRODLLibrary; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
+procedure GenerateCppAsync(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+
+procedure GenerateCppIntf(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateCppInvk(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateCppImpl(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const OutputDFMStream: TStream; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
+procedure GenerateCppAsync(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+
+procedure GenerateUnitToStream(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aStream, aStream2: TStream; aAncestorName: string = ''; aUnitname: string = ''; aRequiredUnits: string = ''; GenerateUsedRODLS: Boolean = False);
+procedure GenerateUnitToFile(aLibraryFileName: string; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aAncestorName: string = ''; aFilename: string = ''; aRequiredUnits: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+procedure GenerateUnitToFile(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aAncestorName: string = ''; aFilename: string = ''; aRequiredUnits: string = ''; GenerateUsedRODLS: Boolean = False); overload;
+
+// Misc.
+function GetTargetFileName(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage): string;
+
+implementation
+
+uses
+  SysUtils,
+  uRODLTemplateBasedConverterUtils,
+  uRODLDelphiConverters, uRODLCppConverters;
+
+// Delphi
+procedure GenerateDelphiIntf(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  lib: TRODLLibrary;
+begin
+  lib :=  ReadRODLFromFile(TXMLToRODL, LibraryFileName);
+  try
+    GenerateDelphiIntf(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+  finally
+    lib.Free;
+  end;
+end;
+
+procedure GenerateDelphiInvk(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  lib: TRODLLibrary;
+begin
+  lib :=  ReadRODLFromFile(TXMLToRODL, LibraryFileName);
+  try
+    GenerateDelphiInvk(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+  finally
+    lib.Free;
+  end;
+end;
+
+procedure GenerateDelphiImpl(const LibraryFileName: string; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
+var
+  lib: TRODLLibrary;
+begin
+  lib :=  ReadRODLFromFile(TXMLToRODL, LibraryFileName);
+  try
+    GenerateDelphiImpl(lib, ServiceName, TemplateFileName, AncestorName, OutputFileName, aRequiredUnits);
+  finally
+    lib.Free;
+  end;
+end;
+
+procedure GenerateDelphiAsync(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  lib: TRODLLibrary;
+begin
+  lib :=  ReadRODLFromFile(TXMLToRODL, LibraryFileName);
+  try
+    GenerateDelphiAsync(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+  finally
+    lib.Free;
+  end;
+end;
+
+procedure GenerateDelphiIntf(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  outputName: string;
+  outputStream: TMemoryStream;
+begin
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_INTF_SUFFIX + '.pas'
+  else
+    outputName := OutputFileName;
+
+  outputStream := TMemoryStream.Create;
+  try
+    GenerateDelphiIntf(aLibrary, outputStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, Entities, GenerateUsedRODLS);
+
+    outputStream.SaveToFile(outputName);
+  finally
+    outputStream.Free;
+  end;
+end;
+
+procedure GenerateDelphiInvk(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  outputName: string;
+  outputStream: TMemoryStream;
+begin
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_INVK_SUFFIX + '.pas'
+  else
+    outputName := OutputFileName;
+
+  outputStream := TMemoryStream.Create;
+  try
+    GenerateDelphiInvk(aLibrary, outputStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, Entities, GenerateUsedRODLS);
+
+    outputStream.SaveToFile(outputName);
+  finally
+    outputStream.Free;
+  end;
+end;
+
+procedure GenerateDelphiImpl(const aLibrary: TRODLLibrary; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
+var
+  outputName: string;
+  outputStream: TMemoryStream;
+  outputDFMStream: TMemoryStream;
+begin
+  if Length(OutputFileName) = 0 then
+    outputName := ServiceName + DEFAULT_IMPL_SUFFIX + '.pas'
+  else
+    outputName := OutputFileName;
+
+  outputStream := TMemoryStream.Create;
+  outputDFMStream := TMemoryStream.Create;
+  try
+    GenerateDelphiImpl(aLibrary, outputStream, outputDFMStream, ServiceName, TemplateFileName, AncestorName, OutputFileName, aRequiredUnits);
+
+    outputStream.SaveToFile(outputName);
+    if outputDFMStream.Size > 0 then
+      outputDFMStream.SaveToFile(ChangeFileExt(outputName, '.dfm'));
+  finally
+    outputDFMStream.Free;
+    outputStream.Free;
+  end;
+end;
+
+procedure GenerateDelphiAsync(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  outputName: string;
+  outputStream: TMemoryStream;
+begin
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_ASYNC_SUFFIX + '.pas'
+  else
+    outputName := OutputFileName;
+
+  outputStream := TMemoryStream.Create;
+  try
+    GenerateDelphiAsync(aLibrary, outputStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+
+    outputStream.SaveToFile(outputName);
+  finally
+    outputStream.Free;
+  end;
+end;
+
+procedure GenerateDelphiIntf(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  gen: TRODLDelphiIntfConverter;
+  templateName: string;
+  outputName: string;
+  unitName: string;
+  wrapperTemplateName: string;
+  i: Integer;
+  TmpSplit: Boolean;
+  RODLToUse: string;
+begin
+  if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
+    templateName := DEFAULT_DELPHI_INTF_TEMPLATE_FILENAME
+  else
+    templateName := TemplateFileName;
+
+  if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
+    wrapperTemplateName := DEFAULT_DELPHI_INTF_WRAPPER_TEMPLATE_FILENAME
+  else
+    wrapperTemplateName := AWrapperTemplateName;
+
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_INTF_SUFFIX + '.pas'
+  else
+    outputName := OutputFileName;
+    
+  unitName := ChangeFileExt(ExtractFileName(outputName), '');
+
+  ClearAllCaches;
+  gen := TRODLDelphiIntfConverter.Create(aLibrary, templateName, unitName,
+                                         ASplit, ExtractFilePath(outputName),
+                                         wrapperTemplateName, entities);
+  try
+    gen.SaveResultToStream(OutputStream);
+  finally
+    gen.Free;
+  end;
+
+  if GenerateUsedRODLs then
+  begin
+    for i := 0 to aLibrary.UseCount-1 do
+    begin
+      if (aLibrary.Use[i].GenerateCode) then
+      begin
+        case aLibrary.Use[i].SplitMode of
+          usmNever:
+            TmpSplit := False;
+          usmAlways:
+            TmpSplit := True;
+          else
+            TmpSplit := ASplit;
+        end;
+
+        RODLToUse := ExpandVariables(aLibrary.Use[i].RodlFile);
+        if not FileExists(RODLTouse) then
+          RODLToUse := aLibrary.Use[i].AbsoluteRodlFile;
+
+        GenerateDelphiIntf(RODLToUse, TemplateFileName, ChangeFileExt(RODLToUse, '') + DEFAULT_INTF_SUFFIX + '.pas', TmpSplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+      end;
+    end;
+  end;
+end;
+
+procedure GenerateDelphiInvk(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  gen: TRODLDelphiInvkConverter;
+  templateName: string;
+  outputName: string;
+  unitName: string;
+  wrapperTemplateName: string;
+  i: Integer;
+  TmpSplit: Boolean;
+  RODLToUse: string;
+begin
+  if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
+    templateName := DEFAULT_DELPHI_INVK_TEMPLATE_FILENAME
+  else
+    templateName := TemplateFileName;
+
+  if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
+    wrapperTemplateName := DEFAULT_DELPHI_INVK_WRAPPER_TEMPLATE_FILENAME
+  else
+    wrapperTemplateName := AWrapperTemplateName;
+
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_INVK_SUFFIX + '.pas'
+  else
+    outputName := OutputFileName;
+
+  unitName := ChangeFileExt(ExtractFileName(outputName), '');
+
+  ClearAllCaches;
+  gen := TRODLDelphiInvkConverter.Create(aLibrary, templateName, unitName,
+                                         ASplit, ExtractFilePath(outputName),
+                                         wrapperTemplateName, entities);
+  try
+    gen.SaveResultToStream(OutputStream);
+  finally
+    gen.Free;
+  end;
+
+  if GenerateUsedRODLs then
+  begin
+    for i := 0 to aLibrary.UseCount-1 do
+    begin
+      if (aLibrary.Use[i].GenerateCode) then
+      begin
+        case aLibrary.Use[i].SplitMode of
+          usmNever:
+            TmpSplit := False;
+          usmAlways:
+            TmpSplit := True;
+          else
+            TmpSplit := ASplit;
+        end;
+
+        RODLToUse := ExpandVariables(aLibrary.Use[i].RodlFile);
+        if not FileExists(RODLTouse) then
+          RODLToUse := aLibrary.Use[i].AbsoluteRodlFile;
+
+        GenerateDelphiInvk(RODLToUse, TemplateFileName, ChangeFileExt(RODLToUse, '') + DEFAULT_INVK_SUFFIX + '.pas', TmpSplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+      end;
+    end;
+  end;
+end;
+
+procedure GenerateDelphiImpl(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputDFMStream: TStream; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
+var
+  gen: TRODLDelphiImplConverter;
+  templateName: string;
+  outputName: string;
+  unitName: string;
+begin
+  if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
+    templateName := DEFAULT_DELPHI_IMPL_TEMPLATE_FILENAME
+  else
+    templateName := TemplateFileName;
+
+  if Length(OutputFileName) = 0 then
+    outputName := ServiceName + DEFAULT_IMPL_SUFFIX + '.pas'
+  else
+    outputName := OutputFileName;
+
+  unitName := ChangeFileExt(ExtractFileName(outputName), '');
+
+  ClearAllCaches;
+  gen := TRODLDelphiImplConverter.Create(aLibrary, templateName, unitName, AncestorName, ServiceName, aRequiredUnits);
+  try
+    gen.SaveResultToStream(OutputStream);
+
+    // If datamodule then generate DFM
+    if gen.WriteDataModule then
+    begin
+      gen.TemplateFileName := ChangeFileExt(templateName, '.dfm');
+      gen.FileExtension := '.dfm';
+      gen.Convert(aLibrary, ServiceName);
+      gen.SaveResultToStream(OutputDFMStream);
+    end;
+  finally
+    gen.Free;
+  end;
+end;
+
+procedure GenerateDelphiAsync(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  gen: TRODLDelphiAsyncConverter;
+  templateName: string;
+  outputName: string;
+  unitName: string;
+  wrapperTemplateName: string;
+  i: Integer;
+  TmpSplit: Boolean;
+  RODLToUse: string;
+begin
+  if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
+    templateName := DEFAULT_DELPHI_ASYNC_TEMPLATE_FILENAME
+  else
+    templateName := TemplateFileName;
+
+  if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
+    wrapperTemplateName := DEFAULT_DELPHI_ASYNC_WRAPPER_TEMPLATE_FILENAME
+  else
+    wrapperTemplateName := AWrapperTemplateName;
+
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_ASYNC_SUFFIX + '.pas'
+  else
+    outputName := OutputFileName;
+    
+  unitName := ChangeFileExt(ExtractFileName(outputName), '');
+
+  ClearAllCaches;
+  gen := TRODLDelphiAsyncConverter.Create(aLibrary, templateName, unitName,
+                                          ASplit, ExtractFilePath(outputName),
+                                          wrapperTemplateName, entities);
+  try
+    gen.SaveResultToStream(outputStream);
+  finally
+    gen.Free;
+  end;
+
+  if GenerateUsedRODLs then
+  begin
+    for i := 0 to aLibrary.UseCount-1 do
+    begin
+      if (aLibrary.Use[i].GenerateCode) then
+      begin
+        case aLibrary.Use[i].SplitMode of
+          usmNever:
+            TmpSplit := False;
+          usmAlways:
+            TmpSplit := True;
+          else
+            TmpSplit := ASplit;
+        end;
+
+        RODLToUse := ExpandVariables(aLibrary.Use[i].RodlFile);
+        if not FileExists(RODLTouse) then
+          RODLToUse := aLibrary.Use[i].AbsoluteRodlFile;
+
+        GenerateDelphiAsync(RODLToUse, TemplateFileName, ChangeFileExt(RODLToUse, '') + DEFAULT_ASYNC_SUFFIX + '.pas', TmpSplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+      end;
+    end;
+  end;
+end;
+
+// Cpp
+procedure GenerateCppIntf(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  lib: TRODLLibrary;
+begin
+  lib :=  ReadRODLFromFile(TXMLToRODL, LibraryFileName);
+  try
+    GenerateCppIntf(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+  finally
+    lib.Free;
+  end;
+end;
+
+procedure GenerateCppInvk(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  lib: TRODLLibrary;
+begin
+  lib :=  ReadRODLFromFile(TXMLToRODL, LibraryFileName);
+  try
+    GenerateCppInvk(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+  finally
+    lib.Free;
+  end;
+end;
+
+procedure GenerateCppImpl(const LibraryFileName: string; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
+var
+  lib: TRODLLibrary;
+begin
+  lib :=  ReadRODLFromFile(TXMLToRODL, LibraryFileName);
+  try
+    GenerateCppImpl(lib, ServiceName, TemplateFileName, AncestorName, OutputFileName, aRequiredUnits);
+  finally
+    lib.Free;
+  end;
+end;
+
+procedure GenerateCppAsync(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  lib: TRODLLibrary;
+begin
+  lib :=  ReadRODLFromFile(TXMLToRODL, LibraryFileName);
+  try
+    GenerateCppAsync(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+  finally
+    lib.Free;
+  end;
+end;
+
+procedure GenerateCppIntf(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  outputName: string;
+  outputStream: TMemoryStream;
+  outputHStream: TMemoryStream;
+begin
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_INTF_SUFFIX + '.cpp'
+  else
+    outputName := OutputFileName;
+
+  outputStream := TMemoryStream.Create;
+  outputHStream := TMemoryStream.Create;
+  try
+    GenerateCppIntf(aLibrary, outputStream, outputHStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+
+    outputStream.SaveToFile(outputName);
+    outputHStream.SaveToFile(ChangeFileExt(outputName, '.h'));
+  finally
+    outputHStream.Free;
+    outputStream.Free;
+  end;
+end;
+
+procedure GenerateCppInvk(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  outputName: string;
+  outputStream: TMemoryStream;
+  outputHStream: TMemoryStream;
+begin
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_INVK_SUFFIX + '.cpp'
+  else
+    outputName := OutputFileName;
+
+  outputStream := TMemoryStream.Create;
+  outputHStream := TMemoryStream.Create;
+  try
+    GenerateCppInvk(aLibrary, outputStream, outputHStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+
+    outputStream.SaveToFile(outputName);
+    outputHStream.SaveToFile(ChangeFileExt(outputName, '.h'));
+  finally
+    outputHStream.Free;
+    outputStream.Free;
+  end;
+end;
+
+procedure GenerateCppImpl(const aLibrary: TRODLLibrary; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
+var
+  outputName: string;
+  outputStream: TMemoryStream;
+  outputHStream: TMemoryStream;
+  outputDFMStream: TMemoryStream;
+begin
+  if Length(OutputFileName) = 0 then
+    outputName := ServiceName + DEFAULT_IMPL_SUFFIX + '.cpp'
+  else
+    outputName := OutputFileName;
+
+  outputStream := TMemoryStream.Create;
+  outputHStream := TMemoryStream.Create;
+  outputDFMStream := TMemoryStream.Create;
+  try
+    GenerateCppImpl(aLibrary, outputStream, outputHStream, outputDFMStream, ServiceName, TemplateFileName, AncestorName, OutputFileName, aRequiredUnits);
+
+    outputStream.SaveToFile(outputName);
+    outputHStream.SaveToFile(ChangeFileExt(outputName, '.h'));
+    if outputDFMStream.Size > 0 then
+      outputDFMStream.SaveToFile(ChangeFileExt(outputName, '.dfm'));
+  finally
+    outputDFMStream.Free;
+    outputHStream.Free;
+    outputStream.Free;
+  end;
+end;
+
+procedure GenerateCppAsync(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  outputName: string;
+  outputStream: TMemoryStream;
+  outputHStream: TMemoryStream;
+begin
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_ASYNC_SUFFIX + '.cpp'
+  else
+    outputName := OutputFileName;
+
+  outputStream := TMemoryStream.Create;
+  outputHStream := TMemoryStream.Create;
+  try
+    GenerateCppAsync(aLibrary, outputStream, outputHStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+
+    outputStream.SaveToFile(outputName);
+    outputHStream.SaveToFile(ChangeFileExt(outputName, '.h'));
+  finally
+    outputHStream.Free;
+    outputStream.Free;
+  end;
+end;
+
+procedure GenerateCppIntf(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  templateName: string;
+  gen: TRODLCppIntfConverter;
+  outputName: string;
+  unitName: string;
+  wrapperTemplateName: string;
+  i: Integer;
+  TmpSplit: Boolean;
+  RODLToUse: string;
+begin
+  if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
+    templateName := DEFAULT_CPP_INTF_TEMPLATE_FILENAME
+  else
+    templateName := TemplateFileName;
+
+  if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
+    wrapperTemplateName := DEFAULT_CPP_INTF_WRAPPER_TEMPLATE_FILENAME
+  else
+    wrapperTemplateName := AWrapperTemplateName;
+
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_INTF_SUFFIX + '.cpp'
+  else
+    outputName := OutputFileName;
+
+  unitName := ChangeFileExt(ExtractFileName(outputName), '');
+
+  ClearAllCaches;
+  gen := TRODLCppIntfConverter.Create(aLibrary, templateName, unitName,
+                                      ASplit, ExtractFilePath(outputName),
+                                      wrapperTemplateName, entities);
+  try
+    gen.SaveResultToStream(OutputStream);
+    gen.TemplateFileName := ChangeFileExt(templateName, '.h');
+    gen.FileExtension := '.h';
+    gen.Convert(aLibrary);
+    gen.SaveResultToStream(OutputHStream);
+  finally
+    gen.Free;
+  end;
+
+  if GenerateUsedRODLs then
+  begin
+    for i := 0 to aLibrary.UseCount-1 do
+    begin
+      if (aLibrary.Use[i].GenerateCode) then
+      begin
+        case aLibrary.Use[i].SplitMode of
+          usmNever:
+            TmpSplit := False;
+          usmAlways:
+            TmpSplit := True;
+          else
+            TmpSplit := ASplit;
+        end;
+
+        RODLToUse := ExpandVariables(aLibrary.Use[i].RodlFile);
+        if not FileExists(RODLTouse) then
+          RODLToUse := aLibrary.Use[i].AbsoluteRodlFile;
+
+        GenerateCppIntf(RODLToUse, TemplateFileName, ChangeFileExt(RODLToUse, '') + DEFAULT_INTF_SUFFIX + '.cpp', TmpSplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+      end;
+    end;
+  end;
+end;
+
+procedure GenerateCppInvk(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  gen: TRODLCppInvkConverter;
+  templateName: string;
+  unitName: string;
+  outputName: string;
+  wrapperTemplateName: string;
+  i: Integer;
+  TmpSplit: Boolean;
+  RODLToUse: string;
+begin
+  if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
+    templateName := DEFAULT_CPP_INVK_TEMPLATE_FILENAME
+  else
+    templateName := TemplateFileName;
+
+  if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
+    wrapperTemplateName := DEFAULT_CPP_INVK_WRAPPER_TEMPLATE_FILENAME
+  else
+    wrapperTemplateName := AWrapperTemplateName;
+
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_INVK_SUFFIX + '.cpp'
+  else
+    outputName := OutputFileName;
+
+  unitName := ChangeFileExt(ExtractFileName(outputName), '');
+
+  ClearAllCaches;
+  gen := TRODLCppInvkConverter.Create(aLibrary, templateName, unitName,
+                                      ASplit, ExtractFilePath(outputName),
+                                      wrapperTemplateName, entities);
+  try
+    gen.SaveResultToStream(OutputStream);
+    gen.TemplateFileName := ChangeFileExt(templateName, '.h');
+    gen.FileExtension := '.h';
+    gen.Convert(aLibrary);
+    gen.SaveResultToStream(OutputHStream);
+  finally
+    gen.Free;
+  end;
+
+  if GenerateUsedRODLs then
+  begin
+    for i := 0 to aLibrary.UseCount-1 do
+    begin
+      if (aLibrary.Use[i].GenerateCode) then
+      begin
+        case aLibrary.Use[i].SplitMode of
+          usmNever:
+            TmpSplit := False;
+          usmAlways:
+            TmpSplit := True;
+          else
+            TmpSplit := ASplit;
+        end;
+
+        RODLToUse := ExpandVariables(aLibrary.Use[i].RodlFile);
+        if not FileExists(RODLTouse) then
+          RODLToUse := aLibrary.Use[i].AbsoluteRodlFile;
+
+        GenerateCppInvk(RODLToUse, TemplateFileName, ChangeFileExt(RODLToUse, '') + DEFAULT_INVK_SUFFIX + '.cpp', TmpSplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+      end;
+    end;
+  end;
+end;
+
+procedure GenerateCppImpl(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const OutputDFMStream: TStream; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
+var
+  gen: TRODLCppImplConverter;
+  templateName: string;
+  outputName: string;
+  unitName: string;
+begin
+  if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
+    templateName := DEFAULT_CPP_IMPL_TEMPLATE_FILENAME
+  else
+    templateName := TemplateFileName;
+
+  if Length(OutputFileName) = 0 then
+    outputName := ServiceName + DEFAULT_IMPL_SUFFIX + '.cpp'
+  else
+    outputName := OutputFileName;
+
+  unitName := ChangeFileExt(ExtractFileName(outputName), '');
+
+  ClearAllCaches;
+  gen := TRODLCppImplConverter.Create(aLibrary, templateName, unitName, AncestorName, ServiceName, aRequiredUnits);
+  try
+    gen.SaveResultToStream(outputStream);
+    gen.TemplateFileName := ChangeFileExt(templateName, '.h');
+    gen.FileExtension := '.h';
+    gen.Convert(aLibrary, ServiceName);
+    gen.SaveResultToStream(outputHStream);
+
+    // If datamodule then generate DFM
+    if gen.WriteDataModule then
+    begin
+      gen.TemplateFileName := ChangeFileExt(templateName, '.dfm');
+      gen.FileExtension := '.dfm';
+      gen.Convert(aLibrary, ServiceName);
+      gen.SaveResultToStream(outputDFMStream);
+    end;
+  finally
+    gen.Free;
+  end;
+end;
+
+procedure GenerateCppAsync(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  templateName: string;
+  gen: TRODLCppAsyncConverter;
+  outputName: string;
+  unitName: string;
+  wrapperTemplateName: string;
+  i: Integer;
+  TmpSplit: Boolean;
+  RODLToUse: string;
+begin
+  if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
+    templateName := DEFAULT_CPP_ASYNC_TEMPLATE_FILENAME
+  else
+    templateName := TemplateFileName;
+
+  if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
+    wrapperTemplateName := DEFAULT_CPP_ASYNC_WRAPPER_TEMPLATE_FILENAME
+  else
+    wrapperTemplateName := AWrapperTemplateName;
+
+  if Length(OutputFileName) = 0 then
+    outputName := aLibrary.Name + DEFAULT_ASYNC_SUFFIX + '.cpp'
+  else
+    outputName := OutputFileName;
+
+  unitName := ChangeFileExt(ExtractFileName(outputName), '');
+
+  ClearAllCaches;
+  gen := TRODLCppAsyncConverter.Create(aLibrary, templateName, unitName,
+                                       ASplit, ExtractFilePath(outputName),
+                                       wrapperTemplateName, entities);
+  try
+    gen.SaveResultToStream(OutputStream);
+    gen.TemplateFileName := ChangeFileExt(templateName, '.h');
+    gen.FileExtension := '.h';
+    gen.Convert(aLibrary);
+    gen.SaveResultToStream(OutputHStream);
+  finally
+    gen.Free;
+  end;
+
+  if GenerateUsedRODLs then
+  begin
+    for i := 0 to aLibrary.UseCount-1 do
+    begin
+      if (aLibrary.Use[i].GenerateCode) then
+      begin
+        case aLibrary.Use[i].SplitMode of
+          usmNever:
+            TmpSplit := False;
+          usmAlways:
+            TmpSplit := True;
+          else
+            TmpSplit := ASplit;
+        end;
+
+        RODLToUse := ExpandVariables(aLibrary.Use[i].RodlFile);
+        if not FileExists(RODLTouse) then
+          RODLToUse := aLibrary.Use[i].AbsoluteRodlFile;
+
+        GenerateCppAsync(RODLToUse, TemplateFileName, ChangeFileExt(RODLToUse, '') + DEFAULT_ASYNC_SUFFIX + '.cpp', TmpSplit, AWrapperTemplateName, entities, GenerateUsedRODLS);
+      end;
+    end;
+  end;
+end;
+
+procedure GenerateUnitToStream(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aStream, aStream2: TStream; aAncestorName: string = ''; aUnitname: string = ''; aRequiredUnits: string = ''; GenerateUsedRODLS: Boolean = False);
+begin
+  if aUnitname = '' then aUnitname := GetTargetFileName(aLibrary, aService, aType, aLanguage);
+  if aAncestorName = '' then aAncestorName := 'TRORemotable';
+
+  case aLanguage of
+    cglDelphiWin32: begin
+        case aType of
+          cgtIntf : GenerateDelphiIntf(aLibrary, aStream, '', aUnitname, False, '', '', GenerateUsedRODLS);
+          cgtInvk : GenerateDelphiInvk(aLibrary, aStream, '', aUnitname, False, '', '', GenerateUsedRODLS);
+          cgtImpl : GenerateDelphiImpl(aLibrary, aStream,aStream2, aService.Name, '',aAncestorName, aUnitname, aRequiredUnits);
+                    //raise Exception.Create('not supported.');
+          cgtAsync: GenerateDelphiAsync(aLibrary, aStream, '', aUnitname, False, '', '', GenerateUsedRODLS);
+        end;
+      end;
+    cglCppBuilder: begin
+        case aType of
+          cgtIntf   : GenerateCppIntf(aLibrary, aStream, aStream2, '', aUnitname, False, '', '', GenerateUsedRODLS);
+          cgtInvk : GenerateCppInvk(aLibrary, aStream, aStream2, '', aUnitname, False, '', '', GenerateUsedRODLS);
+          cgtImpl : raise Exception.Create('not supported.');
+          cgtAsync: GenerateCppAsync(aLibrary, aStream, aStream2, '', aUnitname, False, '', '', GenerateUsedRODLS);
+        end;
+      end;
+  end;
+end;
+
+procedure GenerateUnitToFile(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aAncestorName: string = ''; aFilename: string=''; aRequiredUnits: string = ''; GenerateUsedRODLS: Boolean = False);
+begin
+  if aFilename = '' then aFilename := GetTargetFileName(aLibrary, aService, aType, aLanguage);
+  if aAncestorName = '' then aAncestorName := 'TRORemotable';
+
+  case aLanguage of
+    cglDelphiWin32: begin
+        case aType of
+          cgtIntf : GenerateDelphiIntf(aLibrary, '', aFilename, False, '', '', GenerateUsedRODLS);
+          cgtInvk : GenerateDelphiInvk(aLibrary, '', aFilename, False, '', '', GenerateUsedRODLS);
+          cgtImpl : GenerateDelphiImpl(aLibrary, aService.Name, '', aAncestorName, aFilename, aRequiredUnits);
+          cgtAsync: GenerateDelphiAsync(aLibrary, '', aFilename, False, '', '', GenerateUsedRODLS);
+        end;
+      end;
+    cglCppBuilder: begin
+        case aType of
+          cgtIntf   : GenerateCppIntf(aLibrary, '', aFilename, False, '', '', GenerateUsedRODLS);
+          cgtInvk : GenerateCppInvk(aLibrary, '', aFilename, False, '', '', GenerateUsedRODLS);
+          cgtImpl : GenerateCppImpl(aLibrary, aService.Name, '', aAncestorName, aFilename, aRequiredUnits);
+          cgtAsync: GenerateCppAsync(aLibrary, '', aFilename, False, '', '', GenerateUsedRODLS);
+        end;
+      end;
+  end;
+end;
+
+procedure GenerateUnitToFile(aLibraryFileName: string; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aAncestorName: string = ''; aFilename: string = ''; aRequiredUnits: string = ''; GenerateUsedRODLS: Boolean = False);
+var
+  lLibrary: TRODLLibrary;
+begin
+  lLibrary := LoadLibraryFromXml(aLibraryFileName);
+  try
+    GenerateUnitToFile(lLibrary, aService, aType, aLanguage, aAncestorName, aFileName, aRequiredUnits);
+  finally
+    lLibrary.Free();
+  end;
+end;
+
+function GetTargetFileName(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage): string;
+begin
+  case aType of
+    cgtIntf : result := aLibrary.Name + DEFAULT_INTF_SUFFIX;
+    cgtInvk : result := aLibrary.Name + DEFAULT_INVK_SUFFIX;
+    cgtImpl : result := aService.Name + DEFAULT_IMPL_SUFFIX;
+    cgtAsync: result := aLibrary.Name + DEFAULT_ASYNC_SUFFIX;
+  end;
+  case aLanguage of
+    cglDelphiWin32: result := result+'.pas';
+    cglCpp, cglCppBuilder: result := result+'.cpp';
+    cglObjectiveC: result := result+'.m';
+  end;
+end;
+
+{$IFDEF FPC}
+initialization
+{$IFDEF MSWINDOWS}
+  {$I Templates\Templates.lrs}
+{$ELSE}  
+  {$I Templates/Templates.lrs}
+{$ENDIF}  
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLCppConverters.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLCppConverters.pas
new file mode 100644
index 0000000..3394c92
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLCppConverters.pas	
@@ -0,0 +1,472 @@
+unit uRODLCppConverters;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  uRODLTemplateBasedConverter,
+  uRODLImplConverter, uRODLIntfConverter, uRODLInvkConverter, uRODLAsyncConverter,
+  uRODL, Classes;
+
+type
+  TRODLCppImplConverter = class(TRODLImplConverter)
+  protected
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; override;
+    function GetParamBackModifier(flag: TRODLParamFlag): string; override;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string; const aServerClassName: string; const aTargetEntity: string = ''; const aRequiredUnits: string = ''); override;
+  end;
+
+  TRODLCppIntfConverter = class(TRODLIntfConverter)
+  private
+    FSimpleTypes: TStringList;
+    procedure PreProcessLibrary(const aLibrary: TRODLLibrary);
+  protected
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; override;
+    function GetParamBackModifier(flag: TRODLParamFlag): string; override;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; override;
+
+    function GetServicesSectionClass: TServicesSectionClass; override;
+    function GetEventSinksSectionClass: TEventSinksSectionClass; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const Split: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntity: string = ''); override;
+    destructor Destroy; override;
+
+    procedure SaveResultToFile(const FileName: string); override;
+  end;
+
+  TRODLCppInvkConverter = class(TRODLInvkConverter)
+  protected
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; override;
+    function GetParamBackModifier(flag: TRODLParamFlag): string; override;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; override;
+
+    function GetServicesSectionClass: TServicesSectionClass; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const ASplit: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntity: string = ''); override;
+
+    procedure SaveResultToFile(const FileName: string); override;
+  end;
+
+  TRODLCppAsyncConverter = class(TRODLAsyncConverter)
+  protected
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; override;
+    function GetParamBackModifier(flag: TRODLParamFlag): string; override;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; override;
+
+    function GetServicesSectionClass: TServicesSectionClass; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const Split: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntity: string = ''); override;
+
+    procedure SaveResultToFile(const FileName: string); override;
+  end;
+
+implementation
+
+uses
+  SysUtils, uRODLTemplateBasedConverterUtils, uROClasses;
+
+const
+  CppFrontFlagNames : array[TRODLParamFlag] of string = (
+    'const', '', '', 'result');
+  CppBackFlagNames : array[TRODLParamFlag] of string = (
+    '', '&', '&', 'result');
+
+  DEFAULT_CPP_INTF_SERVICE_ANCESTOR = 'IInterface';
+  DEFAULT_CPP_INVK_SERVICE_ANCESTOR = 'System::TObject';
+  DEFAULT_CPP_INTF_EVENT_SINK_ANCESTOR = 'IInterface';
+  DEFAULT_CPP_ASYNC_SERVICE_ANCESTOR = 'IInterface';
+
+
+type
+  TCppIntfServicesSection = class (TIntfServicesSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+  TCppIntfEventSinksSection = class (TIntfEventSinksSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+  TCppInvkServicesSection = class (TServicesSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+  TCppAsyncServicesSection = class (TAsyncServicesSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+  // SIMPLE_TYPES
+  TSimpleTypesSection = class (TRODLGeneratorSection)
+  protected
+    procedure DoReplacements(var curLine: string; const TypeName: string; const aLibrary: TRODLLibrary); dynamic;
+  public
+    constructor Create(AParent: TRODLCppIntfConverter); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary); override;
+  end;
+
+{ TRODLCppImplConverter }
+
+constructor TRODLCppImplConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName, aServerClassName, aTargetEntity: string;
+  const aRequiredUnits: string);
+begin
+  FileExtension := '.cpp';
+
+  inherited Create(aLibrary, aTemplateFileName, aUnitName, aServerClassName, aTargetEntity, aRequiredUnits);
+end;
+
+function TRODLCppImplConverter.GetParamBackModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := CppBackFlagNames[Flag];
+end;
+
+function TRODLCppImplConverter.GetParamFrontModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := CppFrontFlagNames[Flag];
+end;
+
+function TRODLCppImplConverter.GetTypeIdentifier(
+  const originalType: string; aDecorateIfNeeded: boolean=true): string;
+begin
+  Result := CachedDataTypeToCppType(originalType, FLibrary);
+end;
+
+{ TRODLCppIntfConverter }
+
+constructor TRODLCppIntfConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName: string;
+  const Split: Boolean = False; const AOutputDir: string = '';
+  const AWrapperTemplateName: string = ''; const aTargetEntity: string = '');
+begin
+  // Call inherited with nil so that convert is not called, allowing us
+  // to setup the optional sections. Setting up the optional sections before
+  // calling the inherited Create is not an option, the section list would
+  // not have been created
+  inherited Create(nil, aTemplateFileName, aUnitName, Split, AOutputDir, AWrapperTemplateName, aTargetEntity);
+
+  FileExtension := '.cpp';
+
+  FSimpleTypes := TStringList.Create;
+  FSimpleTypes.Sorted := True;
+  FSimpleTypes.Duplicates := dupIgnore;
+  PreProcessLibrary(aLibrary);
+
+  Sections.Add(TSimpleTypesSection.Create(Self));
+
+  // Now that everything is done, call convert if need be.
+  if (aLibrary <> nil) then Convert(aLibrary);
+end;
+
+destructor TRODLCppIntfConverter.Destroy;
+begin
+  FSimpleTypes.Free;
+
+  inherited Destroy;
+end;
+
+function TRODLCppIntfConverter.GetEventSinksSectionClass: TEventSinksSectionClass;
+begin
+  Result := TCppIntfEventSinksSection;
+end;
+
+function TRODLCppIntfConverter.GetParamBackModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := CppBackFlagNames[Flag];
+end;
+
+function TRODLCppIntfConverter.GetParamFrontModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := CppFrontFlagNames[Flag];
+end;
+
+function TRODLCppIntfConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TCppIntfServicesSection;
+end;
+
+function TRODLCppIntfConverter.GetTypeIdentifier(
+  const originalType: string; aDecorateIfNeeded: boolean=true): string;
+begin
+  Result := CachedDataTypeToCppType(originalType, FLibrary);
+end;
+
+procedure TRODLCppIntfConverter.PreProcessLibrary(const aLibrary: TRODLLibrary);
+var
+  I, J, K: Integer;
+  DataType: string;
+  CurInterface: TRODLServiceInterface;
+  CurOp: TRODLOperation;
+begin
+  // In order to fill the SIMPLE_TYPES section, we need to go through all
+  // potential types and note if they are simple or complex (implemented as
+  // a class).
+
+  for I := 0 to aLibrary.StructCount - 1 do
+  begin
+    for J := 0 to aLibrary.Structs[I].Count - 1 do
+    begin
+      DataType := aLibrary.Structs[I].Items[J].DataType;
+      if not SameText(DataType, DataTypeNames[rtXML]) and not CachedIsImplementedAsClass(DataType, aLibrary) then
+        FSimpleTypes.Add(DataType);
+    end;
+  end;
+
+  for I := 0 to aLibrary.ArrayCount - 1 do
+  begin
+    DataType := aLibrary.Arrays[I].ElementType;
+    if not CachedIsImplementedAsClass(DataType, aLibrary) then
+      FSimpleTypes.Add(DataType);
+  end;
+
+  for I := 0 to aLibrary.ServiceCount - 1 do
+  begin
+    CurInterface := aLibrary.Services[I].Default;
+
+    for J := 0 to CurInterface.Count - 1 do
+    begin
+      CurOp := CurInterface.Items[J];
+      if Assigned(CurOp.Result) and (Length(CurOp.Result.DataType) > 0) then
+      begin
+        DataType := CurOp.Result.DataType;
+        if not CachedIsImplementedAsClass(DataType, aLibrary) then
+          FSimpleTypes.Add(DataType);
+      end;
+      for K := 0 to CurOp.Count - 1 do
+      begin
+        DataType := CurOp.Items[K].DataType;
+        if not CachedIsImplementedAsClass(DataType, aLibrary) then
+          FSimpleTypes.Add(DataType);
+      end;
+    end;      
+  end;
+
+  for I := 0 to aLibrary.ExceptionCount - 1 do
+  begin
+    for J := 0 to aLibrary.Exceptions[I].Count - 1 do
+    begin
+      DataType := aLibrary.Exceptions[I].Items[J].DataType;
+      if not CachedIsImplementedAsClass(DataType, aLibrary) then
+        FSimpleTypes.Add(DataType);
+    end;
+  end;
+
+  for I := 0 to aLibrary.EventSinkCount - 1 do
+  begin
+    CurInterface := aLibrary.EventSinks[I].Default;
+
+    for J := 0 to CurInterface.Count - 1 do
+    begin
+      CurOp := CurInterface.Items[J];
+      if Assigned(CurOp.Result) and (Length(CurOp.Result.DataType) > 0) then
+      begin
+        DataType := CurOp.Result.DataType;
+        if not CachedIsImplementedAsClass(DataType, aLibrary) then
+          FSimpleTypes.Add(DataType);
+      end;
+      for K := 0 to CurOp.Count - 1 do
+      begin
+        DataType := CurOp.Items[K].DataType;
+        if not CachedIsImplementedAsClass(DataType, aLibrary) then
+          FSimpleTypes.Add(DataType);
+      end;
+    end;      
+  end;
+end;
+
+procedure TRODLCppIntfConverter.SaveResultToFile(const FileName: string);
+begin
+  if Split then
+    inherited SaveResultToFile(ChangeFileExt(FileName, '.h'))
+  else
+    inherited SaveResultToFile(FileName);
+end;
+
+{ TRODLCppInvkConverter }
+
+constructor TRODLCppInvkConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName: string; const ASplit: Boolean = False;
+  const AOutputDir: string = ''; const AWrapperTemplateName: string = '';
+  const aTargetEntity: string = '');
+begin
+  FileExtension := '.cpp';
+
+  inherited Create(aLibrary, aTemplateFileName, aUnitName, ASplit, AOutputDir, AWrapperTemplateName, aTargetEntity);
+end;
+
+function TRODLCppInvkConverter.GetParamBackModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := CppBackFlagNames[Flag];
+end;
+
+function TRODLCppInvkConverter.GetParamFrontModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := CppFrontFlagNames[Flag];
+end;
+
+function TRODLCppInvkConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TCppInvkServicesSection;
+end;
+
+function TRODLCppInvkConverter.GetTypeIdentifier(
+  const originalType: string; aDecorateIfNeeded: boolean=true): string;
+begin
+  Result := CachedDataTypeToCppType(originalType, FLibrary);
+end;
+
+procedure TRODLCppInvkConverter.SaveResultToFile(const FileName: string);
+begin
+  if Split then
+    inherited SaveResultToFile(ChangeFileExt(FileName, '.h'))
+  else
+    inherited SaveResultToFile(FileName);
+end;
+
+{ TCppIntfServicesSection }
+
+function TCppIntfServicesSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+  if Length(Result) = 0 then
+    Result := DEFAULT_CPP_INTF_SERVICE_ANCESTOR;
+end;
+
+{ TCppInvkServicesSection }
+
+function TCppInvkServicesSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+  if Length(Result) = 0 then
+    Result := DEFAULT_CPP_INVK_SERVICE_ANCESTOR;
+end;
+
+{ TCppEventSinksSection }
+
+function TCppIntfEventSinksSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+  if Length(Result) = 0 then
+    Result := DEFAULT_CPP_INTF_EVENT_SINK_ANCESTOR;
+end;
+
+{ TRODLCppAsyncConverter }
+
+constructor TRODLCppAsyncConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName: string; const Split: Boolean;
+  const AOutputDir, AWrapperTemplateName, aTargetEntity: string);
+begin
+  FileExtension := '.cpp';
+
+  inherited Create(aLibrary, aTemplateFileName, aUnitName, Split, AOutputDir, AWrapperTemplateName, aTargetEntity);
+end;
+
+function TRODLCppAsyncConverter.GetParamBackModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := CppBackFlagNames[Flag];
+end;
+
+function TRODLCppAsyncConverter.GetParamFrontModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := CppFrontFlagNames[Flag];
+end;
+
+function TRODLCppAsyncConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TCppAsyncServicesSection;
+end;
+
+function TRODLCppAsyncConverter.GetTypeIdentifier(
+  const originalType: string; aDecorateIfNeeded: boolean=true): string;
+begin
+  Result := CachedDataTypeToCppType(originalType, FLibrary);
+end;
+
+procedure TRODLCppAsyncConverter.SaveResultToFile(const FileName: string);
+begin
+  if Split then
+    inherited SaveResultToFile(ChangeFileExt(FileName, '.h'))
+  else
+    inherited SaveResultToFile(FileName);
+end;
+
+{ TCppAsyncServicesSection }
+
+function TCppAsyncServicesSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+  if Length(Result) = 0 then
+    Result := DEFAULT_CPP_ASYNC_SERVICE_ANCESTOR;
+end;
+
+{ TSimpleTypesSection }
+
+constructor TSimpleTypesSection.Create(AParent: TRODLCppIntfConverter);
+begin
+  inherited Create(AParent, 'SIMPLE_TYPES');
+end;
+
+procedure TSimpleTypesSection.DoReplacements(var curLine: string;
+  const TypeName: string; const aLibrary: TRODLLibrary);
+begin
+  MacroReplace(curLine, '%',
+               ['TYPE_NAME', CachedDataTypeToCppType(TypeName, aLibrary)
+               ]);
+end;
+
+procedure TSimpleTypesSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary);
+var
+  I: Integer;
+  curLine: string;
+begin
+  for I := 0 to (Parent as TRODLCppIntfConverter).FSimpleTypes.Count - 1 do
+  begin
+    curLine := sectionText;
+    
+    DoReplacements(curLine, (Parent as TRODLCppIntfConverter).FSimpleTypes[I], aLibrary);
+    Write(curLine);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLDelphiConverters.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLDelphiConverters.pas
new file mode 100644
index 0000000..8939af8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLDelphiConverters.pas	
@@ -0,0 +1,233 @@
+unit uRODLDelphiConverters;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  uRODLTemplateBasedConverter,
+  uRODLImplConverter, uRODLIntfConverter, uRODLInvkConverter, uRODLAsyncConverter,
+  uRODL;
+
+type
+  TRODLDelphiImplConverter = class(TRODLImplConverter)
+  protected
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; override;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string; const aServerClassName: string; const aTargetEntity: string = ''; const aRequiredUnits: string = ''); override;
+  end;
+
+  TRODLDelphiIntfConverter = class(TRODLIntfConverter)
+  protected
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; override;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; override;
+
+    function GetServicesSectionClass: TServicesSectionClass; override;
+    function GetEventSinksSectionClass: TEventSinksSectionClass; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const ASplit: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntity: string = ''); override;
+  end;
+
+  TRODLDelphiInvkConverter = class(TRODLInvkConverter)
+  protected
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; override;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const ASplit: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntity: string = ''); override;
+  end;
+
+  TRODLDelphiAsyncConverter = class(TRODLAsyncConverter)
+  protected
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; override;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; override;
+
+    function GetServicesSectionClass: TServicesSectionClass; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const ASplit: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntity: string = ''); override;
+  end;
+
+implementation
+
+uses
+  uRODLGenTools, uRODLTemplateBasedConverterUtils;
+
+type
+  TDelphiIntfServicesSection = class (TIntfServicesSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+  TDelphiIntfEventSinksSection = class (TIntfEventSinksSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+  TDelphiAsyncServicesSection = class (TAsyncServicesSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+
+{ TRODLDelphiConverter }
+
+constructor TRODLDelphiImplConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName, aServerClassName, aTargetEntity: string;
+  const aRequiredUnits: string);
+begin
+  FileExtension := '.pas';
+  
+  inherited Create(aLibrary, aTemplateFileName, aUnitName, aServerClassName, aTargetEntity, aRequiredUnits);
+end;
+
+function TRODLDelphiImplConverter.GetParamFrontModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := DelphiFlagNames[Flag];
+end;
+
+function TRODLDelphiImplConverter.GetTypeIdentifier(
+  const originalType: string; aDecorateIfNeeded: boolean=true): string;
+begin
+  Result := CachedDataTypeToDelphiType(originalType, FLibrary);
+end;
+
+{ TRODLDelphiIntfConverter }
+
+constructor TRODLDelphiIntfConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName: string;
+  const ASplit: Boolean = False; const AOutputDir: string = '';
+  const AWrapperTemplateName: string = ''; const aTargetEntity: string = '');
+begin
+  FileExtension := '.pas';
+
+  inherited Create(aLibrary, aTemplateFileName, aUnitName, ASplit, AOutputDir, AWrapperTemplateName, aTargetEntity);
+end;
+
+function TRODLDelphiIntfConverter.GetEventSinksSectionClass: TEventSinksSectionClass;
+begin
+  Result := TDelphiIntfEventSinksSection;
+end;
+
+function TRODLDelphiIntfConverter.GetParamFrontModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := DelphiFlagNames[Flag];
+end;
+
+function TRODLDelphiIntfConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TDelphiIntfServicesSection;
+end;
+
+function TRODLDelphiIntfConverter.GetTypeIdentifier(
+  const originalType: string; aDecorateIfNeeded: boolean=true): string;
+begin
+  Result := CachedDataTypeToDelphiType(originalType, FLibrary);
+end;
+
+{ TRODLDelphiInvkConverter }
+
+constructor TRODLDelphiInvkConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName: string; const ASplit: Boolean = False;
+  const AOutputDir: string = ''; const AWrapperTemplateName: string = '';
+  const aTargetEntity: string = '');
+begin
+  FileExtension := '.pas';
+
+  inherited Create(aLibrary, aTemplateFileName, aUnitName, ASplit, AOutputDir, AWrapperTemplateName, aTargetEntity);
+end;
+
+function TRODLDelphiInvkConverter.GetParamFrontModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := DelphiFlagNames[Flag];
+end;
+
+function TRODLDelphiInvkConverter.GetTypeIdentifier(
+  const originalType: string; aDecorateIfNeeded: boolean=true): string;
+begin
+  Result := CachedDataTypeToDelphiType(originalType, FLibrary);
+end;
+
+{ TDelphiIntfServicesSection }
+
+function TDelphiIntfServicesSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+  if Length(Result) > 0 then
+    Result := '(' + Result + ')';
+end;
+
+{ TDelphiIntfEventSinksSection }
+
+function TDelphiIntfEventSinksSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+  if Length(Result) > 0 then
+    Result := '(' + Result + ')';
+end;
+
+{ TRODLDelphiAsyncConverter }
+
+constructor TRODLDelphiAsyncConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName: string; const ASplit: Boolean;
+  const AOutputDir, AWrapperTemplateName, aTargetEntity: string);
+begin
+  FileExtension := '.pas';
+
+  inherited Create(aLibrary, aTemplateFileName, aUnitNAme, ASplit, AOutputDir, AWrapperTemplateName, aTargetEntity);
+end;
+
+function TRODLDelphiAsyncConverter.GetParamFrontModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := DelphiFlagNames[Flag];
+end;
+
+function TRODLDelphiAsyncConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TDelphiAsyncServicesSection;
+end;
+
+function TRODLDelphiAsyncConverter.GetTypeIdentifier(
+  const originalType: string; aDecorateIfNeeded: boolean=true): string;
+begin
+  Result := CachedDataTypeToDelphiType(originalType, FLibrary);
+end;
+
+{ TDelphiAsyncServicesSection }
+
+function TDelphiAsyncServicesSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+  if Length(Result) > 0 then
+    Result := '(' + Result + ')';
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLImplConverter.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLImplConverter.pas
new file mode 100644
index 0000000..195576f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLImplConverter.pas	
@@ -0,0 +1,163 @@
+unit uRODLImplConverter;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  uRODLTemplateBasedConverter, uRODL;
+
+const
+  DEFAULT_IMPL_SERVICE_ANCESTOR = 'TRORemotable';
+  
+type
+  TRODLImplConverter = class (TRODLTemplateBasedConverter)
+  private
+    FService: TRODLService;
+    FAncestorService: TRODLService;
+    function GetAncestorUnitName: string;
+
+    property AncestorUnitName: string read GetAncestorUnitName;
+  protected
+    procedure IntConvert(const aLibrary : TRODLLIbrary; const aTargetEntity : string = ''); override;
+    procedure SetupServices(const aLibrary: TRODLLibrary; const aTargetEntity : string = ''); override;
+    procedure SetupRequiredUnits; override;
+    function ValidateTargetEntity(const aLibrary : TRODLLIbrary; const aTargetEntity : string) : boolean; override;
+
+    function GetServicesSectionClass: TServicesSectionClass; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string; const aServerClassName: string; const aTargetEntity: string = ''; const aRequiredUnits: string = ''); reintroduce; virtual;
+  end;
+
+implementation
+
+uses
+  SysUtils, uRODLTemplateBasedConverterUtils, uROServer;
+
+type
+  TImplServicesSection = class (TServicesSection)
+  protected  
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+{ TRODLDelphiImplConverter }
+
+constructor TRODLImplConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName: string; const aUnitName: string; const aServerClassName: string;
+  const aTargetEntity: string; const aRequiredUnits: string);
+begin
+  // Call inherited with nil so that convert is not called, allowing us
+  // to setup the optional sections. Setting up the optional sections before
+  // calling the inherited Create is not an option, the section list would
+  // not have been created
+  inherited Create(nil, aTemplateFileName, aUnitName, aTargetEntity);
+
+  FServerClassName := aServerClassName;
+  FRequiredUnits := aRequiredUnits;
+
+  // Now that everything is done, call convert if need be.
+  if (aLibrary <> nil) then Convert(aLibrary, aTargetEntity);
+end;
+
+function TRODLImplConverter.GetAncestorUnitName: string;
+begin
+  Result := ''; 
+  if Assigned(FService) then
+  begin
+    if FService.Ancestor <> '' then
+    begin
+      if Assigned(FAncestorService) and (FAncestorService.ImplUnit <> '') then
+        Result := FAncestorService.ImplUnit
+      else
+        Result := FService.Ancestor+'_Impl';
+    end;
+  end;
+end;
+
+function TRODLImplConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TImplServicesSection;
+end;
+
+procedure TRODLImplConverter.IntConvert(const aLibrary: TRODLLIbrary;
+  const aTargetEntity: string);
+begin
+  if Assigned(fService) and Assigned(fService.Default) then
+    inherited IntConvert(aLibrary, aTargetEntity);
+end;
+
+procedure TRODLImplConverter.SetupRequiredUnits;
+var
+  ancestorUnit: string;
+begin
+  inherited SetupRequiredUnits;
+
+  ancestorUnit := AncestorUnitName;
+  if Pos(ancestorUnit, RequiredUnits) = 0 then
+    RequiredUnits := RequiredUnits + ',' + ancestorUnit;
+end;
+
+procedure TRODLImplConverter.SetupServices(const aLibrary: TRODLLibrary;
+  const aTargetEntity: string);
+begin
+  inherited SetupServices(aLibrary, aTargetEntity);
+  
+  // For the impl section, only one service is of interest, the one
+  // indicated to us
+  FOrderedServices.Clear;
+  FOrderedServices.AddObject(FService.Name, FService);
+end;
+
+function TRODLImplConverter.ValidateTargetEntity(
+  const aLibrary: TRODLLIbrary; const aTargetEntity: string): boolean;
+var
+  i : integer;
+begin
+  Result := FALSE;
+
+  for i := 0 to (aLibrary.ServiceCount-1) do
+    if (CompareText(aLibrary.Services[i].Info.Name, aTargetEntity)=0) then
+    begin
+      FService := aLibrary.Services[i]; // Will be used later
+      if FService.Ancestor <> '' then
+        FAncestorService := aLibrary.FindService(FService.Ancestor);
+      Result := TRUE;
+      Exit;
+    end;
+end;
+
+{ TImplServicesSection }
+
+function TImplServicesSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+  
+  if Result = '' then
+  begin
+    if not (Parent as TRODLImplConverter).UseDefaultAncestor then
+      Result := (Parent as TRODLImplConverter).ServerClassName
+    else
+      Result := DEFAULT_IMPL_SERVICE_ANCESTOR;
+  end;
+end;
+
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLIntfConverter.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLIntfConverter.pas
new file mode 100644
index 0000000..12885a6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLIntfConverter.pas	
@@ -0,0 +1,219 @@
+unit uRODLIntfConverter;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, IniFiles, Contnrs, uRODLTemplateBasedConverter, uRODLSplitableConverter, uRODL, uROClasses, uRODLLineStream;
+
+type
+  TRODLIntfConverter = class (TRODLSplitableConverter)
+  private
+  protected
+    function GetSplitFilesSuffix: string; override;
+    procedure AddEntityTypes(Types: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF}; const AEntity: TRODLEntity; const unitName: string); override;
+    procedure SetupFiles(const aLibrary: TRODLLibrary); override;
+    function ValidateTargetEntity(const aLibrary: TRODLLibrary; const aTargetEntity: string): boolean; override;
+
+    function GetServicesSectionClass: TServicesSectionClass; override;
+    function GetEventSinksSectionClass: TEventSinksSectionClass; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const ASplit: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntities: string = ''); override;
+  end;
+
+  TIntfServicesSection = class (TServicesSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+    function GetProxyAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+  TIntfEventSinksSection = class (TEventSinksSection)
+  protected
+    function GetAncestorName(const aService: TRODLBaseService): string; override;
+  end;
+
+implementation
+
+uses
+  SysUtils, uRODLTemplateBasedConverterUtils;
+
+{ TRODLIntfConverter }
+
+procedure TRODLIntfConverter.AddEntityTypes(Types: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF};
+  const AEntity: TRODLEntity; const unitName: string);
+{var
+  enum: TRODLEnum;
+  I: Integer;}
+begin
+  if AEntity is TRODLService then
+  begin
+    Types.Values['I' + AEntity.Name] := unitName;
+    Types.Values['T' + AEntity.Name + '_Proxy'] := unitName;
+    Types.Values['Co' + AEntity.Name] := unitName;
+  end
+  else
+  if AEntity is TRODLEnum then
+  begin
+    Types.Values[AEntity.Name] := unitName;
+    // Not sure if there is a way to do something here for the enums
+{    enum := AEntity as TRODLEnum;
+    for I := 0 to enum.Count - 1 do
+    begin
+      Types.Values[GetEnumsSectionClass.GetEnumValueName(enum, I)] := unitName;
+    end;}      
+  end
+  else
+  begin
+    inherited AddEntityTypes(Types, AEntity, unitName);
+  end;
+end;
+
+constructor TRODLIntfConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName: string; const aUnitName: string;
+  const ASplit: Boolean = False; const AOutputDir: string = '';
+  const AWrapperTemplateName: string = ''; const aTargetEntities: string = '');
+begin
+  // Call inherited with nil so that convert is not called, allowing us
+  // to setup the optional sections. Setting up the optional sections before
+  // calling the inherited Create is not an option, the section list would
+  // not have been created
+  inherited Create(nil, aTemplateFileName, aUnitName, ASplit, AOutputDir, AWrapperTemplateName, aTargetEntities);
+
+  // Setup the optional section
+  Sections.Add(TIfWSDLSection.Create(Self));
+
+  // Now that everything is done, call convert if need be.
+  if (aLibrary <> nil) then Convert(aLibrary);
+end;
+
+function TRODLIntfConverter.GetEventSinksSectionClass: TEventSinksSectionClass;
+begin
+  Result := TIntfEventSinksSection;
+end;
+
+function TRODLIntfConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TIntfServicesSection;
+end;
+
+function TRODLIntfConverter.GetSplitFilesSuffix: string;
+begin
+  Result := DEFAULT_INTF_SUFFIX;
+end;
+
+procedure TRODLIntfConverter.SetupFiles(const aLibrary: TRODLLibrary);
+var
+  I: Integer;
+  newFile: TRODLSplitableConverterFile;
+begin
+  FFiles.Clear;
+
+  // one file per service
+  for I := 0 to FOrderedServices.Count - 1 do
+  begin
+    newFile := TRODLSplitableConverterFile.Create(aLibrary, Self);
+    newFile.Services.Add(FOrderedServices.Objects[I]);
+    FFiles.Add(newFile);
+  end;
+
+  // one file for all enums
+  newFile := TRODLSplitableConverterFile.Create(aLibrary, Self);
+  for I := 0 to FOrderedEnums.Count-1 do // aLibrary.EnumCount - 1 do
+    newFile.Enums.Add(FOrderedEnums.Objects[I]);
+  if newFile.Enums.Count > 0 then
+  begin
+    FFiles.Add(newFile);
+    // because we put all enums in one file, we set the file name to "Enums"
+    newFile.ROUnitName := FLibrary.Name + '_Enums' + SplitFilesSuffix;
+  end;
+
+  // one file per array
+  for I := 0 to FOrderedArrays.Count-1 do //aLibrary.ArrayCount - 1 do
+  begin
+    newFile := TRODLSplitableConverterFile.Create(aLibrary, Self);
+    newFile.Arrays.Add(FOrderedArrays.Objects[I]);
+    FFiles.Add(newFile);
+  end;
+
+  // one file per struct
+  for I := 0 to FOrderedStructs.Count-1 do // aLibrary.StructCount - 1 do
+  begin
+    newFile := TRODLSplitableConverterFile.Create(aLibrary, Self);
+    newFile.Structs.Add(FOrderedStructs.Objects[I]);
+    FFiles.Add(newFile);
+  end;
+
+  // one file per event sink
+  for I := 0 to FOrderedEventSinks.Count-1 do // aLibrary.EventSinkCount - 1 do
+  begin
+    newFile := TRODLSplitableConverterFile.Create(aLibrary, Self);
+    newFile.EventSinks.Add(FOrderedEventSinks.Objects[I]);
+    FFiles.Add(newFile);
+  end;
+
+  // one file per exception
+  for I := 0 to FOrderedExceptions.Count-1 do // aLibrary.ExceptionCount - 1 do
+  begin
+    newFile := TRODLSplitableConverterFile.Create(aLibrary, Self);
+    newFile.Exceptions.Add(FOrderedExceptions.Objects[I]);
+    FFiles.Add(newFile);
+  end;
+end;
+
+function TRODLIntfConverter.ValidateTargetEntity(const aLibrary: TRODLLibrary;
+  const aTargetEntity: string): boolean;
+begin
+  Result := True;
+end;
+
+{ TIntfServicesSection }
+
+function TIntfServicesSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+
+  if Length(Result) > 0 then
+    Result := 'I' + Result;
+end;
+
+function TIntfServicesSection.GetProxyAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetProxyAncestorName(aService);
+
+  if (Length(Result) > 0) and (Result <> Parent.GetDefaultServiceProxyAncestorName) then
+    Result := Parent.GetDefaultClassPrefix + Result;
+end;
+
+{ TIntfEventSinksSection }
+
+function TIntfEventSinksSection.GetAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  Result := inherited GetAncestorName(aService);
+
+  if Length(Result) > 0 then
+    Result := 'I' + Result;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLInvkConverter.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLInvkConverter.pas
new file mode 100644
index 0000000..f8d25ec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLInvkConverter.pas	
@@ -0,0 +1,123 @@
+unit uRODLInvkConverter;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, IniFiles, uRODLTemplateBasedConverter, uRODLSplitableConverter, uRODLLineStream, uRODL;
+
+type
+  {$M+}
+  TRODLInvkConverter = class (TRODLSplitableConverter)
+  private
+    function GetLibrary: TRODLLibrary;
+  protected
+    procedure SetupFiles(const aLibrary: TRODLLibrary); override;
+    function GetSplitFilesSuffix: string; override;
+    procedure AddEntityTypes(Types: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF}; const AEntity: TRODLEntity; const unitName: string); override;
+    function ValidateTargetEntity(const aLibrary: TRODLLibrary; const aTargetEntity: string): boolean; override;
+    property ROLibrary: TRODLLibrary read GetLibrary;
+    function GetUsedFileRequiredUnits(const UsedRODLFileName: string): string; override;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const ASplit: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntities: string = ''); override;
+  end;
+  {$M-}  
+
+implementation
+
+uses
+  Contnrs, uROTypes, uROClasses, uRODLTemplateBasedConverterUtils;
+
+{ TRODLInvkConverter }
+
+procedure TRODLInvkConverter.AddEntityTypes(Types: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF};
+  const AEntity: TRODLEntity; const unitName: string);
+begin
+  if AEntity is TRODLService then
+  begin
+    Types.Values['T' + AEntity.Name] := unitName;
+  end
+  else
+    inherited AddEntityTypes(Types, AEntity, unitName);
+end;
+
+constructor TRODLInvkConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName: string; const aUnitName: string;
+  const ASplit: Boolean = False; const AOutputDir: string = '';
+  const AWrapperTemplateName: string = ''; const aTargetEntities: string = '');
+begin
+  // Call inherited with nil so that convert is not called, allowing us
+  // to setup the optional sections. Setting up the optional sections before
+  // calling the inherited Create is not an option, the section list would
+  // not have been created
+  inherited Create(nil, aTemplateFileName, aUnitName, ASplit, AOutputDir, AWrapperTemplateName, aTargetEntities);
+
+  // Setup the optional sections
+
+  // Now that everything is done, call convert if need be.
+  if (aLibrary <> nil) then Convert(aLibrary);
+end;
+
+function TRODLInvkConverter.GetLibrary: TRODLLibrary;
+begin
+  Result := FLibrary; 
+end;
+
+function TRODLInvkConverter.GetSplitFilesSuffix: string;
+begin
+  Result := DEFAULT_INVK_SUFFIX;
+end;
+
+function TRODLInvkConverter.GetUsedFileRequiredUnits(
+  const UsedRODLFileName: string): string;
+begin
+  Result := inherited GetUsedFileRequiredUnits(UsedRODLFileName);
+  
+  if Result <> '' then
+    Result := Result + ',';
+
+  Result := Result + UsedRODLFileName + DEFAULT_INVK_SUFFIX;
+end;
+
+procedure TRODLInvkConverter.SetupFiles(const aLibrary: TRODLLibrary);
+var
+  I: Integer;
+  newFile: TRODLSplitableConverterFile;
+begin
+  FFiles.Clear;
+
+  // For the invoker, we only want files for the services.
+  for I := 0 to FOrderedServices.Count - 1 do
+  begin
+    newFile := TRODLSplitableConverterFile.Create(aLibrary, Self);
+    newFile.Services.Add(FOrderedServices.Objects[I]);
+    FFiles.Add(newFile);
+  end;
+end;
+
+function TRODLInvkConverter.ValidateTargetEntity(const aLibrary: TRODLLibrary;
+  const aTargetEntity: string): boolean;
+begin
+  Result := True;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLLineStream.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLLineStream.pas
new file mode 100644
index 0000000..612a659
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLLineStream.pas	
@@ -0,0 +1,159 @@
+unit uRODLLineStream;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+{$IFDEF UNICODE}
+  TROStringStream = class(TStream)
+  private
+    FDataString: string;
+    FPosition: Integer;
+  protected
+    procedure SetSize(NewSize: Longint); override;
+  public
+    constructor Create(const AString: string);
+    function Read(var Buffer; Count: Longint): Longint; override;
+    function ReadString(Count: Longint): string;
+    function Seek(Offset: Longint; Origin: Word): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+    procedure WriteString(const AString: string);
+    property DataString: string read FDataString;
+  end;
+{$ELSE}
+  TROStringStream = TStringStream;
+{$ENDIF}
+
+  TLineStream = class(TROStringStream)
+  private
+    function GetEof: Boolean;
+  public
+    function ReadLine: string;
+    procedure WriteLine(const line: string);
+
+    procedure Clear;
+
+    property Eof: Boolean read GetEof;
+  end;
+
+implementation
+
+{$IFDEF UNICODE}
+{ TROStringStream }
+
+constructor TROStringStream.Create(const AString: string);
+begin
+  inherited Create;
+  FDataString := AString;
+end;
+
+function TROStringStream.Read(var Buffer; Count: Integer): Longint;
+begin
+  Result := Length(FDataString) - FPosition;
+  if Result > Count then Result := Count;
+  Move(PChar(@FDataString[FPosition + 1])^, Buffer, Result * SizeOf(Char));
+  Inc(FPosition, Result);
+end;
+
+function TROStringStream.ReadString(Count: Integer): string;
+var
+  Len: Integer;
+begin
+  Len := Length(FDataString) - FPosition;
+  if Len > Count then Len := Count;
+  SetString(Result, PChar(@FDataString[FPosition + 1]), Len);
+  Inc(FPosition, Len);
+end;
+
+function TROStringStream.Seek(Offset: Integer; Origin: Word): Longint;
+begin
+  case Origin of
+    soFromBeginning: FPosition := Offset;
+    soFromCurrent: FPosition := FPosition + Offset;
+    soFromEnd: FPosition := Length(FDataString) - Offset;
+  end;
+  if FPosition > Length(FDataString) then
+    FPosition := Length(FDataString)
+  else if FPosition < 0 then FPosition := 0;
+  Result := FPosition;
+end;
+
+procedure TROStringStream.SetSize(NewSize: Integer);
+begin
+  SetLength(FDataString, NewSize);
+  if FPosition > NewSize then FPosition := NewSize;
+end;
+
+function TROStringStream.Write(const Buffer; Count: Integer): Longint;
+begin
+  Result := Count;
+  SetLength(FDataString, (FPosition + Result));
+  Move(Buffer, PChar(@FDataString[FPosition + 1])^, Result * SizeOf(Char));
+  Inc(FPosition, Result);
+end;
+
+procedure TROStringStream.WriteString(const AString: string);
+begin
+  Write(PChar(AString)^, Length(AString));
+end;
+{$ENDIF}
+
+{ TLineStream }
+
+procedure TLineStream.Clear;
+begin
+  Size := 0;
+end;
+
+function TLineStream.GetEof: Boolean;
+begin
+  Result := Position = Size;
+end;
+
+function TLineStream.ReadLine: string;
+var
+  I: Integer;
+begin
+  I := Position;
+  
+  while (I < Size-1) and (DataString[I+1] <> #13) and (DataString[I+2] <> #10) do
+    Inc(I);
+
+  if I = Size-1 then
+  begin
+    Result := ReadString(I-Position+1);
+  end
+  else
+  begin
+    Result := ReadString(I-Position+2); // Do not eat the carriage return
+  end;
+  Result := TrimRight(Result);
+  if Pos('////',Trim(Result)) = 1 then Result := ReadLine;
+end;
+
+procedure TLineStream.WriteLine(const line: string);
+begin
+  WriteString(line + #13#10);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLSplitableConverter.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLSplitableConverter.pas
new file mode 100644
index 0000000..c4fc089
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLSplitableConverter.pas	
@@ -0,0 +1,589 @@
+unit uRODLSplitableConverter;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, IniFiles, Contnrs, uRODL, uROClasses, uRODLLineStream, uRODLTemplateBasedConverter;
+
+type
+  TRODLSplitableConverterFileList = class;
+
+  TRODLSplitableConverter = class (TRODLTemplateBasedConverter)
+  private
+    FTargetEntities: TStringList;
+    FOutputDir: string;
+  protected
+    FWrapperTemplateName: string;
+    FSplit: Boolean;
+    FFiles: TRODLSplitableConverterFileList;
+
+    procedure ProcessTemplate(const aLibrary: TRODLLibrary; template: TLineStream); override;
+    procedure SetupFiles(const aLibrary: TRODLLibrary); virtual; abstract;
+    procedure WriteWrapper(TypesList: TStringList; UsesList: TStringList); virtual;
+    function GetSplitFilesSuffix: string; virtual; abstract;
+    procedure AddEntityTypes(Types: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF}; const AEntity: TRODLEntity; const unitName: string); virtual;
+    procedure ResolveRequiredUnits;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string;
+                       const ASplit: Boolean = False; const AOutputDir: string = '';
+                       const AWrapperTemplateName: string = ''; const aTargetEntities: string = ''); reintroduce; virtual;
+    destructor Destroy; override;
+
+    property Split: Boolean read FSplit;
+    property SplitFilesSuffix: string read GetSplitFilesSuffix;
+    property OutputDir: string read FOutputDir;
+  end;
+
+  TRODLSplitableConverterFile = class
+  private
+    FEnums: TObjectList;
+    FArrays: TObjectList;
+    FStructs: TObjectList;
+    FEventSinks: TObjectList;
+    FExceptions: TObjectList;
+    FUnitName: string;
+    FServices: TObjectList;
+    FLibrary: TRODLLibrary;
+    FActiveList: TObjectList;
+    FLibraryList: IROStrings;
+    FConverter: TRODLSplitableConverter;
+    FRequiredUnits: TStringList;
+    function GetServices: TObjectList;
+    function GetUnitName: string;
+    function GetExceptions: TObjectList;
+    function GetEventSinks: TObjectList;
+    function GetStructs: TObjectList;
+    function GetArrays: TObjectList;
+    function GetEnums: TObjectList;
+    procedure SetupLists;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aConverter: TRODLSplitableConverter);
+    destructor Destroy; override;
+
+    function GetActiveList: TObjectList;
+    function GetLibraryList: IROStrings;
+
+    property Services: TObjectList read GetServices;
+    property Enums: TObjectList read GetEnums;
+    property Arrays: TObjectList read GetArrays;
+    property Structs: TObjectList read GetStructs;
+    property EventSinks: TObjectList read GetEventSinks;
+    property Exceptions: TObjectList read GetExceptions;
+
+    property ROUnitName: string read GetUnitName write FUnitName;
+    property RequiredUnits: TStringList read FRequiredUnits write FRequiredUnits;
+  end;
+
+  TRODLSplitableConverterFileList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TRODLSplitableConverterFile;
+    procedure SetItem(Index: Integer; const Value: TRODLSplitableConverterFile);
+  public
+    property Items[Index: Integer]: TRODLSplitableConverterFile read GetItem write SetItem; default;
+  end;
+
+
+implementation
+
+uses
+  SysUtils, uRODLTemplateBasedConverterUtils;
+
+{ TRODLSplitableConverter }
+
+procedure TRODLSplitableConverter.AddEntityTypes(Types: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF};
+  const AEntity: TRODLEntity; const unitName: string);
+begin
+  if AEntity is TRODLEventSink then begin
+    Types.Values['I' + AEntity.Name] := unitName;
+    Types.Values['I' + AEntity.Name + EVENT_SINK_WRITER_SUFFIX] := unitName;
+  end
+  else begin
+    Types.Values[AEntity.Name] := unitName;
+  end;
+end;
+
+constructor TRODLSplitableConverter.Create(const aLibrary: TRODLLibrary;
+  const aTemplateFileName, aUnitName: string; const ASplit: Boolean;
+  const AOutputDir, AWrapperTemplateName, aTargetEntities: string);
+begin
+  // Call inherited with nil so that convert is not called, allowing us
+  // to setup the optional sections. Setting up the optional sections before
+  // calling the inherited Create is not an option, the section list would
+  // not have been created
+  inherited Create(nil, aTemplateFileName, aUnitName, '');
+  FSplit := ASplit;
+  FFiles := TRODLSplitableConverterFileList.Create(True);
+  FOutputDir := AOutputDir;
+  if Length(FOutputDir) = 0 then
+    FOutputDir := '.';
+  FWrapperTemplateName := AWrapperTemplateName;
+  FTargetEntities := TStringList.Create;
+  FTargetEntities.Sorted := True;
+  FTargetEntities.Delimiter := ',';
+  FTargetEntities.DelimitedText := aTargetEntities;
+
+  // Setup the optional sections
+
+  // Now that everything is done, call convert if need be.
+  if (aLibrary <> nil) then Convert(aLibrary);
+end;
+
+destructor TRODLSplitableConverter.Destroy;
+begin
+  FTargetEntities.Free;
+  FFiles.Free;
+
+  inherited Destroy;
+end;
+
+procedure TRODLSplitableConverter.ProcessTemplate(const aLibrary: TRODLLibrary;
+  template: TLineStream);
+var
+  I: Integer;
+  curFile: TRODLSplitableConverterFile;
+  J: Integer;
+  UsesList: TStringList;
+  TypesList: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF};
+  curEntity: TRODLEntity;
+  originalUnitName: string;
+  originalRequiredUnits: string;
+  oneEntitySelected: Boolean;
+begin
+  if Split then
+  begin
+    SetupFiles(aLibrary);
+    ResolveRequiredUnits;
+
+    UsesList := TStringList.Create;
+    TypesList := {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF}.Create;
+    originalUnitName := ROUnitName;
+    originalRequiredUnits := RequiredUnits; 
+    try
+      for I := 0 to FFiles.Count - 1 do
+      begin
+        curFile := FFiles[I];
+
+        UsesList.Add(curFile.ROUnitName);
+
+        FOrderedServices.Clear;
+        FOrderedArrays.Clear;
+        FOrderedStructs.Clear;
+        FOrderedEnums.Clear;
+        FOrderedExceptions.Clear;
+        FOrderedEventSinks.Clear;
+
+        oneEntitySelected := False;
+        for J := 0 to curFile.GetActiveList.Count - 1 do
+        begin
+          curEntity := curFile.GetActiveList[J] as TRODLEntity;
+          curFile.GetLibraryList.AddObject(curEntity.Name, curEntity);
+          AddEntityTypes(TypesList, curEntity, curFile.ROUnitName);
+          oneEntitySelected := oneEntitySelected or (FTargetEntities.IndexOf(curEntity.Name) > -1);          
+        end;
+
+        // Only generate if no entities were indicated or if at least one
+        // of the entities in the current file was found earlier in the list.
+        if (FTargetEntities.Count = 0) or oneEntitySelected then
+        begin
+          Buffer.Clear;
+          template.Position := 0;
+          ROUnitName := curFile.ROUnitName;
+          RequiredUnits := originalRequiredUnits;
+          if curFile.RequiredUnits.Count > 0 then
+          begin
+            if Length(RequiredUnits) > 0 then
+              RequiredUnits := RequiredUnits + ',';
+            RequiredUnits := RequiredUnits + curFile.RequiredUnits.DelimitedText;
+          end;
+          inherited ProcessTemplate(aLibrary, template);
+          Buffer.SaveToFile(StrEnsureSuffix('\', OutputDir)+ curFile.ROUnitName + FileExtension);
+        end;
+      end;
+
+      ROUnitName := originalUnitName;
+      RequiredUnits := originalRequiredUnits;
+      WriteWrapper(TypesList, UsesList);
+    finally
+      UsesList.Free;
+      TypesList.Free;
+    end;
+  end
+  else
+  begin
+    inherited ProcessTemplate(aLibrary, template);
+  end;
+end;
+
+procedure TRODLSplitableConverter.ResolveRequiredUnits;
+var
+  curFileIndex: Integer;
+  curFile: TRODLSplitableConverterFile;
+  curEntityIndex: Integer;
+  curEntity: TRODLEntity;
+  curService: TRODLBaseService;
+  curArray: TRODLArray;
+  curStruct: TRODLBaseStruct;
+  typesCache: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF};
+  curFieldIndex: Integer;
+  curOpIndex: Integer;
+  curOp: TRODLOperation;
+  curParamIndex: Integer;
+  notFounds: TStringList;
+  Index: Integer;
+
+  procedure AddRequiredUnit(const typeName: string);
+  var
+    resultIndex: Integer;
+  begin
+    resultIndex := notFounds.IndexOf(typeName);
+    if resultIndex = -1 then
+    begin
+      ROunitName := typesCache.Values[typeName];
+      if Length(ROunitName) > 0 then
+      begin
+        if ROunitName <> curFile.ROUnitName then
+          curFile.RequiredUnits.Add(ROunitName);
+      end
+      else
+      begin
+        notFounds.Add(typeName);
+      end;  
+    end;
+  end;
+
+begin
+  // In order to find out if a splitted file requires other files, we need
+  // to know which types are where. So we fill in the typesCache list with
+  // Name/Value pairs, where the name is the type and the value the unit
+  // where it is located.
+  // Once this is done, we go look at all the types in all the files, and
+  // we look for them in the cache. If the type is found, then the unit it
+  // resides in is added to the list of required units. If it is not found
+  // it is added to the notFounds list. This second list allows to speed
+  // the process a lot because looking through the typesCache list is slow
+  // and many regular types (Integer, String...) are used a lot but there are
+  // not many of them. Hence the second list allows to know very fast for these
+  // that they were not found in any unit.
+  typesCache := {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF}.Create;
+  notFounds := TStringList.Create;
+  try
+    notFounds.Sorted := True;
+    
+    for curFileIndex := 0 to FFiles.Count - 1 do
+    begin
+      curFile := FFiles[curFileIndex];
+
+      for curEntityIndex := 0 to curFile.GetActiveList.Count - 1 do
+      begin
+        curEntity := curFile.GetActiveList[curEntityIndex] as TRODLEntity;
+        typesCache.Values[curEntity.Name] := curFile.ROUnitName;
+      end;
+    end;
+
+    for curFileIndex := 0 to FFiles.Count - 1 do
+    begin
+      curFile := FFiles[curFileIndex];
+
+      curFile.RequiredUnits.Clear;
+      for curEntityIndex := 0 to curFile.GetActiveList.Count - 1 do
+      begin
+        curEntity := curFile.GetActiveList[curEntityIndex] as TRODLEntity;
+        if curEntity is TRODLBaseService then
+        begin
+          curService := curEntity as TRODLBaseService;
+
+          AddRequiredUnit(curService.Ancestor);
+          
+          for curOpIndex := 0 to curService.Default.Count - 1 do
+          begin
+            curOp := curService.Default.Items[curOpIndex];
+            if Assigned(curOp.Result) then
+              AddRequiredUnit(curOp.Result.DataType);
+
+            for curParamIndex := 0 to curOp.Count - 1 do
+              AddRequiredUnit(curOp.Items[curParamIndex].DataType);
+          end;
+        end
+        else
+        if curEntity is TRODLArray then
+        begin
+          curArray := curEntity as TRODLArray;
+          AddRequiredUnit(curArray.ElementType);
+        end
+        else
+        if curEntity is TRODLBaseStruct then
+        begin
+          curStruct := curEntity as TRODLBaseStruct;
+
+          AddRequiredUnit(curStruct.Ancestor);
+
+          // The structures have ReadComplex/WriteComplex methods that will
+          // actually use all fields from all ancestors. As a result, they will
+          // require to have access to all the types for all these fields, hence
+          // the reason why we do a loop until there is no ancestor anymore
+          while Assigned(curStruct) do
+          begin
+            for curFieldIndex := 0 to curStruct.Count - 1 do
+              AddRequiredUnit(curStruct.Items[curFieldIndex].DataType);
+
+            Index := GlobalOrderedStructs.IndexOf(curStruct.Ancestor);
+            if Index >= 0 then
+              curStruct := GlobalOrderedStructs.Objects[Index] as TRODLBaseStruct
+            else
+              curStruct := nil;
+          end;
+        end;
+      end;
+      curFile.RequiredUnits.Delimiter := ',';
+    end;
+  finally
+    notFounds.Free;
+    typesCache.Free;
+  end;
+end;
+
+procedure TRODLSplitableConverter.WriteWrapper(TypesList,
+  UsesList: TStringList);
+var
+  template: TLineStream;
+  content: TStringList;
+  curLine: string;
+  sectionContent: string;
+  I: Integer;
+  typeUnitName: string;
+begin
+  template := TLineStream.Create('');
+  try
+    content := TStringList.Create;
+    try
+      if FileExists(FWrapperTemplateName) then
+        content.LoadFromFile(FWrapperTemplateName)
+      else
+        LoadTemplateFromResource(content, FWrapperTemplateName);
+
+      template.WriteString(content.Text);
+      template.Position := 0;
+    finally
+      content.Free;
+    end;
+
+    Buffer.Clear;
+    while not template.Eof do
+    begin
+      curLine := template.ReadLine;
+
+      MacroReplace(curLine, '%',
+                   ['UNIT_NAME', FLibrary.Name + SplitFilesSuffix
+                   ]);
+
+      if SectionStart(curLine, 'USES') then
+      begin
+        sectionContent := FinishSection('USES', template);
+
+        for I := 0 to UsesList.Count - 1 do
+        begin
+          curLine := sectionContent;
+          MacroReplace(curLine, '%',
+                       ['USED_UNIT_NAME', UsesList[I]
+                       ]);
+
+          if I = UsesList.Count-1 then
+            curLine := StrEnsureNoSuffix(',', curLine);
+          Write(curLine);
+        end;
+      end
+      else
+      if SectionStart(curLine, 'TYPES') then
+      begin
+        sectionContent := FinishSection('TYPES', template);
+
+        for I := 0 to TypesList.Count - 1 do
+        begin
+          curLine := sectionContent;
+          typeUnitName := TypesList[I];
+          typeUnitName := Copy(typeUnitName, Pos('=', typeUnitName)+1, MAXINT);
+          MacroReplace(curLine, '%',
+                       ['TYPE_UNIT_NAME', typeUnitName,
+                        'TYPE_NAME', TypesList.Names[I] 
+                       ]);
+          Write(curLine);
+        end;
+      end
+      else
+      begin
+        Write(curLine);
+      end;
+    end;
+  finally
+    template.Free;
+  end;
+end;
+
+{ TRODLIntfConverterFileList }
+
+function TRODLSplitableConverterFileList.GetItem(
+  Index: Integer): TRODLSplitableConverterFile;
+begin
+  Result := inherited Items[Index] as TRODLSplitableConverterFile;
+end;
+
+procedure TRODLSplitableConverterFileList.SetItem(Index: Integer;
+  const Value: TRODLSplitableConverterFile);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TRODLIntfConverterFile }
+
+constructor TRODLSplitableConverterFile.Create(const aLibrary: TRODLLibrary; const aConverter: TRODLSplitableConverter);
+begin
+  inherited Create;
+
+  FLibrary := aLibrary;
+  FConverter := aConverter;
+  FRequiredUnits := TStringList.Create;
+  FRequiredUnits.Sorted := True;
+  FRequiredUnits.Duplicates := dupIgnore;
+end;
+
+destructor TRODLSplitableConverterFile.Destroy;
+begin
+  FRequiredUnits.Free;
+  FEnums.Free;
+  FArrays.Free;
+  FStructs.Free;
+  FEventSinks.Free;
+  FExceptions.Free;
+  FServices.Free;
+    
+  inherited Destroy;
+end;
+
+function TRODLSplitableConverterFile.GetActiveList: TObjectList;
+begin
+  if FActiveList = nil then
+  begin
+    SetupLists;
+  end;
+  Result := FActiveList;
+end;
+
+procedure TRODLSplitableConverterFile.SetupLists;
+begin
+  if Services.Count > 0 then
+  begin
+    FActiveList := Services;
+    FLibraryList := FConverter.OrderedServices;
+  end
+  else if Arrays.Count > 0 then
+  begin
+    FActiveList := Arrays;
+    FLibraryList := FConverter.OrderedArrays;
+  end
+  else if Structs.Count > 0 then
+  begin
+    FActiveList := Structs;
+    FLibraryList := FConverter.OrderedStructs;
+  end
+  else if Enums.Count > 0 then
+  begin
+    FActiveList := Enums;
+    FLibraryList := FConverter.OrderedEnums;
+  end
+  else if EventSinks.Count > 0 then
+  begin
+    FActiveList := EventSinks;
+    FLibraryList := FConverter.OrderedEventSinks;
+  end
+  else if Exceptions.Count > 0 then
+  begin
+    FActiveList := Exceptions;
+    FLibraryList := FConverter.OrderedExceptions;
+  end;
+end;
+
+function TRODLSplitableConverterFile.GetArrays: TObjectList;
+begin
+  if not Assigned(FArrays) then
+    FArrays := TObjectList.Create(False);
+  Result := FArrays;
+end;
+
+function TRODLSplitableConverterFile.GetEnums: TObjectList;
+begin
+  if not Assigned(FEnums) then
+    FEnums := TObjectList.Create(False);
+  Result := FEnums;
+end;
+
+function TRODLSplitableConverterFile.GetEventSinks: TObjectList;
+begin
+  if not Assigned(FEventSinks) then
+    FEventSinks := TObjectList.Create(False);
+  Result := FEventSinks;
+end;
+
+function TRODLSplitableConverterFile.GetExceptions: TObjectList;
+begin
+  if not Assigned(FExceptions) then
+    FExceptions := TObjectList.Create(False);
+  Result := FExceptions;
+end;
+
+function TRODLSplitableConverterFile.GetLibraryList: IROStrings;
+begin
+  if FLibraryList = nil then
+  begin
+    SetupLists;
+  end;
+  Result := FLibraryList;
+end;
+
+function TRODLSplitableConverterFile.GetServices: TObjectList;
+begin
+  if not Assigned(FServices) then
+    FServices := TObjectList.Create(False);
+  Result := FServices;
+end;
+
+function TRODLSplitableConverterFile.GetStructs: TObjectList;
+begin
+  if not Assigned(FStructs) then
+    FStructs := TObjectList.Create(False);
+  Result := FStructs;
+end;
+
+function TRODLSplitableConverterFile.GetUnitName: string;
+var
+  list: TObjectList;
+  I: Integer;
+begin
+  if FUnitName = '' then
+  begin
+    list := GetActiveList;
+    for I := 0 to list.Count - 1 do
+      FUnitName := FUnitName + (list[i] as TRODLEntity).Name + '_';
+    FUnitName := FLibrary.Name + '_' + Copy(FUnitName, 1, Length(FUnitName)-1) + FConverter.SplitFilesSuffix;
+  end;
+  Result := FUnitName;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLTemplateBasedConverter.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLTemplateBasedConverter.pas
new file mode 100644
index 0000000..8a02022
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLTemplateBasedConverter.pas	
@@ -0,0 +1,5059 @@
+unit uRODLTemplateBasedConverter;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  Classes, Contnrs,
+  uRODLLineStream, uRODL, uROClasses;
+
+type
+  // forward declarations
+  TRODLTemplateBasedConverter = class;
+  TServicesSectionClass = class of TServicesSection;
+  TEventSinksSectionClass = class of TEventSinksSection;
+  TBaseServiceSection = class;
+  TBaseOperationSection = class;
+  TParamsSection = class;
+  TBaseStructSection = class;
+  TFieldsSection = class;
+  TAttributesSection = class;
+  TArraysSection = class;
+  TOutParamsSection = class;
+  TOutParamsNoStripSection = class;
+  TFieldSubSectionList = class;
+  TAllOperationsSectionClass = class of TAllOperationsSection;
+  TProcedureOperationsSectionClass = class of TProcedureOperationsSection;
+  TFunctionOperationsSectionClass = class of TFunctionOperationsSection;
+  TOperationsSectionClass = class of TOperationsSection;
+  TParamsNoStripSectionClass = class of TParamsNoStripSection;
+  TStructsSectionClass = class of TStructsSection;
+  TExceptionsSectionClass = class of TExceptionsSection;
+
+  TRODLGeneratorSection = class
+  private
+    FParent: TRODLTemplateBasedConverter;
+  protected
+    FName: string;
+
+    procedure Write(const line: string);
+    procedure ProcessDocumentation(entity: TRODLEntity; const template: string);
+    class procedure DoRODLEntityReplacements(var curLine: string; const aEntity: TRODLEntity; const Prefix: string);
+
+    function CanUse(const aLibrary: TRODLLibrary): Boolean; virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AName: string); virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary); virtual;
+
+    property Name: string read FName;
+    property Parent: TRODLTemplateBasedConverter read FParent;
+  end;
+
+  TRODLGeneratorSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TRODLGeneratorSection;
+    procedure SetItem(Index: Integer; const Value: TRODLGeneratorSection);
+  public
+    function Add(AObject: TRODLGeneratorSection): Integer;
+    property Items[Index: Integer]: TRODLGeneratorSection read GetItem write SetItem; default;
+  end;
+
+  TRODLTemplateBasedConverter = class (TRODLConverter)
+  private
+    FTemplateFileName: string;
+    FSections: TRODLGeneratorSectionList;
+    FUnitName: string;
+    FFileExtension: string;
+
+    function GetService(Index: Integer): TRODLService;
+    function InternalSectionStart(const line: string; var section: TRODLGeneratorSection): Boolean;
+    procedure SetupOrderedLists(const aLibrary: TRODLLibrary);
+    function GetWriteDataModule: boolean;
+    function GetUseDefaultAncestor: Boolean;
+  protected
+    FOrderedServices: IROStrings;
+    FOrderedStructs: IROStrings;
+    FOrderedExceptions: IROStrings;
+    FOrderedEventSinks: IROStrings;
+    FOrderedArrays: IROStrings;
+    FOrderedEnums: IROStrings;
+
+    FGlobalOrderedArrays: IROStrings;
+    FGlobalOrderedEnums: IROStrings;
+    FGlobalOrderedStructs: IROStrings;
+
+    FLibrary: TRODLLibrary;
+
+    FServerClassName: string;
+    FRequiredUnits: string;
+
+    procedure IntConvert(const aLibrary : TRODLLIbrary; const aTargetEntity : string = ''); override;
+
+    function GetParamFrontModifier(flag: TRODLParamFlag): string; virtual; abstract;
+    function GetParamBackModifier(flag: TRODLParamFlag): string; virtual;
+    function GetTypeIdentifier(const originalType: string; aDecorateIfNeeded: boolean=true): string; virtual; abstract;
+
+    procedure LoadTemplateFromResource(aTemplateStrings: TStrings; const AlternateTemplateName: string = '');
+    function GetTemplateResourceName(const aFileName: string): string; virtual;
+    function GetUnitName: string; virtual;
+    function GetNamespaceName(const aLibrary: TRODLLibrary): string; virtual;
+    function GetFileExtension: string; virtual;
+
+    function GetServicesSectionClass: TServicesSectionClass; virtual;
+    function GetEventSinksSectionClass: TEventSinksSectionClass; virtual;
+    function GetStructsSectionClass: TStructsSectionClass; virtual;
+    function GetExceptionsSectionClass: TExceptionsSectionClass; virtual;
+
+    procedure DoDefaultReplacements(var curLine: string; const aLibrary: TRODLLibrary); virtual;
+    procedure SetupServices(const aLibrary: TRODLLibrary; const aTargetEntity : string = ''); virtual;
+    procedure SetupRequiredUnits; virtual;
+    function GetUsedFileRequiredUnits(const UsedRODLFileName: string): string; virtual;
+    procedure ProcessTemplate(const aLibrary: TRODLLibrary; template: TLineStream); virtual;
+
+    property Sections: TRODLGeneratorSectionList read FSections;
+    property Services[Index: Integer]: TRODLService read GetService;
+  public
+    constructor Create(const aLibrary: TRODLLibrary; const aTemplateFileName: string; const aUnitName: string; const aTargetEntity: string = ''); reintroduce; virtual;
+    destructor Destroy; override;
+
+    procedure SaveResultToFile(const FileName: string); virtual;
+    procedure SaveResultToStream(const Stream: TStream); virtual;
+
+    function GetDefaultExceptionAncestorName: string; virtual;
+    function GetDefaultStructAncestorName: string; virtual;
+    function GetDefaultServiceProxyAncestorName: string; virtual;
+    function IsImplementedAsClass(const aTypeName: string; aLibrary: TRODLLibrary): Boolean; virtual;
+    function GetDefaultClassPrefix: String; virtual;
+
+    function ResolveUnitName(const aUnitName: string): string; virtual;
+
+    property TemplateFileName: string read FTemplateFileName write FTemplateFileName;
+    property ROUnitName: string read GetUnitName write FUnitName;
+    property FileExtension: string read GetFileExtension write FFileExtension;
+    property RequiredUnits: string read FRequiredUnits write FRequiredUnits;
+    property WriteDataModule: Boolean read GetWriteDataModule;
+    property UseDefaultAncestor: Boolean read GetUseDefaultAncestor;
+    property ServerClassName: string read FServerClassName write FServerClassName;
+
+    // These ones apply to the current file. In split mode, they may well be empty
+    property OrderedServices: IROStrings read FOrderedServices;
+    property OrderedStructs: IROStrings read FOrderedStructs;
+    property OrderedExceptions: IROStrings read FOrderedExceptions;
+    property OrderedEventSinks: IROStrings read FOrderedEventSinks;
+    property OrderedArrays: IROStrings read FOrderedArrays;
+    property OrderedEnums: IROStrings read FOrderedEnums;
+
+    // These ones apply to the entire library. In split mode, they may contain more than what's in the currently generated file
+    property GlobalOrderedArrays: IROStrings read FGlobalOrderedArrays;
+    property GlobalOrderedEnums: IROStrings read FGlobalOrderedEnums;
+    property GlobalOrderedStructs: IROStrings read FGlobalOrderedStructs;
+  end;
+
+  TTemplatedSection = class (TRODLGeneratorSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary); virtual; abstract;
+  public
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary); override;
+  end;
+
+  TTemplatedSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TTemplatedSection;
+    procedure SetItem(Index: Integer; const Value: TTemplatedSection);
+  public
+    function Add(AObject: TTemplatedSection): Integer;
+    property Items[Index: Integer]: TTemplatedSection read GetItem write SetItem; default;
+  end;
+
+  TBaseServiceSubSection = class (TRODLGeneratorSection)
+  private
+    FParentSection: TBaseServiceSection;
+  protected
+    function CanUse(const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; reintroduce; virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection; const AName: string); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aService: TRODLBaseService); reintroduce; virtual;
+
+    property ParentSection: TBaseServiceSection read FParentSection;
+  end;
+
+  TTemplatedBaseServiceSubSection = class (TBaseServiceSubSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aService: TRODLBaseService); virtual; abstract;
+  public
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aService: TRODLBaseService); override;
+  end;
+
+  TBaseServiceSubSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TBaseServiceSubSection;
+    procedure SetItem(Index: Integer; const Value: TBaseServiceSubSection);
+  public
+    function Add(AObject: TBaseServiceSubSection): Integer;
+    property Items[Index: Integer]: TBaseServiceSubSection read GetItem write SetItem; default;
+  end;
+
+  TBaseProcedureSubSection = class (TRODLGeneratorSection)
+  private
+    FParentSection: TBaseOperationSection;
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; reintroduce; virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection; const AName: string); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService); reintroduce; virtual;
+
+    property ParentSection: TBaseOperationSection read FParentSection;
+  end;
+
+  TTemplatedBaseProcedureSubSection = class (TBaseProcedureSubSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService); virtual; abstract;
+  public
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService); override;
+  end;
+
+  TBaseProcedureSubSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TBaseProcedureSubSection;
+    procedure SetItem(Index: Integer; const Value: TBaseProcedureSubSection);
+  public
+    function Add(AObject: TBaseProcedureSubSection): Integer;
+    property Items[Index: Integer]: TBaseProcedureSubSection read GetItem write SetItem; default;
+  end;
+
+  TParamSubSection = class (TRODLGeneratorSection)
+  private
+    FParentSection: TParamsSection;
+  protected
+    function CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean; reintroduce; virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TParamsSection; const AName: string); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary;
+                      const aParameter: TRODLOperationParam; const IsLastParam: Boolean); reintroduce; virtual;
+
+    property ParentSection: TParamsSection read FParentSection;
+  end;
+
+  TParamSubSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TParamSubSection;
+    procedure SetItem(Index: Integer; const Value: TParamSubSection);
+  public
+    function Add(AObject: TParamSubSection): Integer;
+    property Items[Index: Integer]: TParamSubSection read GetItem write SetItem; default;
+  end;
+
+  TBaseStructSubSection = class (TRODLGeneratorSection)
+  private
+    FParentSection: TBaseStructSection;
+  protected
+    function CanUse(const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; reintroduce; virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection; const AName: string); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary;
+                      const aStruct: TRODLBaseStruct); reintroduce; virtual;
+
+    property ParentSection: TBaseStructSection read FParentSection;
+  end;
+
+  TTemplatedBaseStructSubSection = class (TBaseStructSubSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); virtual; abstract;
+  public
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); override;
+  end;
+
+  TBaseStructSubSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TBaseStructSubSection;
+    procedure SetItem(Index: Integer; const Value: TBaseStructSubSection);
+  public
+    function Add(AObject: TBaseStructSubSection): Integer;
+    property Items[Index: Integer]: TBaseStructSubSection read GetItem write SetItem; default;
+  end;
+
+  TArraySubSection = class (TRODLGeneratorSection)
+  private
+    FParentSection: TArraysSection;
+  protected
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; reintroduce; virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TArraysSection; const AName: string); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary;
+                      const aArray: TRODLArray); reintroduce; virtual;
+
+    property ParentSection: TArraysSection read FParentSection;
+  end;
+
+  TArraySubSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TArraySubSection;
+    procedure SetItem(Index: Integer; const Value: TArraySubSection);
+  public
+    function Add(AObject: TArraySubSection): Integer;
+    property Items[Index: Integer]: TArraySubSection read GetItem write SetItem; default;
+  end;
+
+  TFieldSubSection = class (TRODLGeneratorSection)
+  private
+    FParentSection: TFieldsSection;
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; reintroduce; virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TFieldsSection; const AName: string); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary;
+                      const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const IsLastField: Boolean); reintroduce; virtual;
+
+    property ParentSection: TFieldsSection read FParentSection;
+  end;
+
+  TTemplatedFieldSubSection = class (TFieldSubSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+                      const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const IsLastField: Boolean); virtual; abstract;
+  public
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary;
+                      const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const IsLastField: Boolean); override;
+  end;
+
+  TFieldSubSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TFieldSubSection;
+    procedure SetItem(Index: Integer; const Value: TFieldSubSection);
+  public
+    function Add(AObject: TFieldSubSection): Integer;
+    property Items[Index: Integer]: TFieldSubSection read GetItem write SetItem; default;
+  end;
+
+  // Base classes
+  TBaseStructSection = class (TTemplatedSection)
+  private
+  protected
+    FSections: TBaseStructSubSectionList;
+
+    property Sections: TBaseStructSubSectionList read FSections;
+    function InternalSectionStart(const line: string; var section: TBaseStructSubSection): Boolean;
+
+    function GetAncestorName(const aStruct: TRODLBaseStruct): string; virtual; abstract;
+    function GetEntityPrefix: string; virtual; abstract;
+    function GetStructList: IROStrings; virtual; abstract;
+
+    function GetAncestorCollectionName(const aStruct: TRODLBaseStruct): string;
+
+    procedure DoReplacements(var curLine: string; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary); virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AName: string); override;
+    destructor Destroy; override;
+  end;
+  
+  TBaseServiceSection = class (TTemplatedSection)
+  protected
+    FSections: TBaseServiceSubSectionList;
+    function InternalSectionStart(const line: string; var section: TBaseServiceSubSection): Boolean;
+    property Sections: TBaseServiceSubSectionList read FSections;
+
+    function GetAncestorName(const aService: TRODLBaseService): string; virtual;
+    function GetEntityPrefix: string; virtual; abstract;
+    function GetServiceList: IROStrings; virtual; abstract;
+
+    procedure DoReplacements(var curLine: string; const aService: TRODLBaseService; const aLibrary: TRODLLibrary); virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AName: string); override;
+    destructor Destroy; override;
+  end;
+
+  TBaseOperationSection = class (TTemplatedBaseServiceSubSection)
+  protected
+    FSections: TBaseProcedureSubSectionList;
+
+    function InternalSectionStart(const line: string; var section: TBaseProcedureSubSection): Boolean;
+    property Sections: TBaseProcedureSubSectionList read FSections;
+    function GetParamsNoStripSectionClass: TParamsNoStripSectionClass; virtual;
+
+    function OperationApplies(aOperation: TRODLOperation): Boolean; virtual; abstract;
+
+    procedure DoReplacements(var curLine: string; const aOperation: TRODLOperation;
+                             const aService: TRODLBaseService; const aLibrary: TRODLLibrary); virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aService: TRODLBaseService); override;
+    procedure ProcessOperation(sectionText: string; const aLibrary: TRODLLibrary; const aService: TRODLBaseService; const aOperation: TRODLOperation); virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection; const AName: string); override;
+    destructor Destroy; override;
+  end;
+
+  // REQUIRED_UNITS
+  TRequiredUnitsSection = class (TRODLGeneratorSection)
+  protected
+    fMultipass: Boolean;
+    procedure DoReplacements(var curLine: string; const unitName: string; const aLibrary: TRODLLibrary); dynamic;
+    property Multipass: Boolean read fMultipass write fMultipass;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary); override;
+  end;
+
+  // USED_RODLS
+  TUsedRODLsSection = class (TRODLGeneratorSection)
+  protected
+    procedure DoReplacements(var curLine: string; unitName: string; const aLibrary: TRODLLibrary); dynamic;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary); override;
+  end;
+
+  // SERVICES
+  TServicesSection = class (TBaseServiceSection)
+  protected
+    function GetEntityPrefix: string; override;
+    function GetServiceList: IROStrings; override;
+
+    function IsSOAPService(const aService : TRODLBaseService) : Boolean;
+    function GetProxyAncestorName(const aService: TRODLBaseService): string; virtual;
+    function GetInvokerAncestorName(const aService: TRODLBaseService): string; virtual;
+    function GetProxySuffix: string; virtual;
+    function GetAllOperationsSectionClass: TAllOperationsSectionClass; virtual;
+    function GetProcedureOperationsSectionClass: TProcedureOperationsSectionClass; virtual;
+    function GetFunctionOperationsSectionClass: TFunctionOperationsSectionClass; virtual;
+
+    procedure DoReplacements(var curLine: string; const aService: TRODLBaseService; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+  end;
+  
+  // ENUMS
+  TEnumsSection = class (TTemplatedSection)
+  protected
+    procedure ProcessValues(enum: TRODLEnum; const template: string; aStripLastSeparator: Boolean=true);
+    procedure DoReplacements(var curLine: string; aEnum: TRODLEnum; const aLibrary: TRODLLibrary); dynamic;
+    procedure ProcessMappings(enum: TRODLEnum; const template: string);
+
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+
+    class function GetEnumValueName(const enum: TRODLEnum; const ValueIndex: Integer): string;
+  end;
+
+  // EVENT_SINKS
+  TEventSinksSection = class (TBaseServiceSection)
+  protected
+    function GetEntityPrefix: string; override;
+    function GetServiceList: IROStrings; override;
+
+    function GetEventSinkWriterAncestorName(const aEventSink: TRODLEventSink): string; dynamic;
+    function GetEventSinkInvokerAncestorName(const aEventSink: TRODLEventSink): string; dynamic;
+    function GetOperationsSectionClass: TOperationsSectionClass; virtual;
+
+    procedure DoReplacements(var curLine: string; const aService: TRODLBaseService; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+  end;
+
+  // ARRAYS
+  TArraysSection = class (TTemplatedSection)
+  protected
+    FSections: TArraySubSectionList;
+
+    function InternalSectionStart(const line: string; var section: TArraySubSection): Boolean;
+    property Sections: TArraySubSectionList read FSections;
+
+    procedure DoReplacements(var curLine: string; const aArray: TRODLArray; const aLibrary: TRODLLibrary); virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // STRUCTS
+  TStructsSection = class (TBaseStructSection)
+  protected
+    function GetEntityPrefix: string; override;
+    function GetAncestorName(const aStruct: TRODLBaseStruct): string; override;
+    function GetStructList: IROStrings; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+  end;
+
+  // EXCEPTIONS
+  TExceptionsSection = class (TBaseStructSection)
+  protected
+    function GetEntityPrefix: string; override;
+    function GetAncestorName(const aStruct: TRODLBaseStruct): string; override;
+    function GetStructList: IROStrings; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+  end;
+
+  // OPERATIONS
+  TOperationsSection = class (TBaseOperationSection)
+  protected
+    function OperationApplies(aOperation: TRODLOperation): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection); reintroduce; virtual;
+  end;
+
+  TIfOperationHasResult = class (TBaseProcedureSubSection)
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+  end;
+
+  TIfOperationHasInParams = class (TBaseProcedureSubSection)
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+  end;
+
+  TIfOperationHasOutParams = class (TBaseProcedureSubSection)
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+  end;
+
+  // PROCEDURE_OPERATIONS
+  TAllOperationsSection = class (TBaseOperationSection)
+  protected
+    function OperationApplies(aOperation: TRODLOperation): Boolean; override;
+    procedure DoReplacements(var curLine: string; const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection); reintroduce; virtual;
+  end;
+
+  // PROCEDURE_OPERATIONS
+  TProcedureOperationsSection = class (TBaseOperationSection)
+  protected
+    function OperationApplies(aOperation: TRODLOperation): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection); reintroduce; virtual;
+  end;
+
+  // FUNCTION_OPERATIONS
+  TFunctionOperationsSection = class (TBaseOperationSection)
+  protected
+    function OperationApplies(aOperation: TRODLOperation): Boolean; override;
+    procedure DoReplacements(var curLine: string; const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection); reintroduce; virtual;
+  end;
+
+  // PARAMS
+  TParamsSection = class (TTemplatedBaseProcedureSubSection)
+  private
+  protected
+    FSections: TParamSubSectionList;
+
+    function InternalSectionStart(const line: string; var section: TParamSubSection): Boolean;
+    property Sections: TParamSubSectionList read FSections;
+
+    procedure EnsureStripping(var curLine: string; IsLastParam: Boolean);
+    
+    procedure DoReplacements(var curLine: string; const aParameter: TRODLOperationParam;
+                             const aLibrary: TRODLLibrary); virtual;
+
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService); override;
+    function CanStrip: Boolean; virtual;
+    function CanUse(const AParam: TRODLOperationParam): Boolean; reintroduce; virtual;
+    class function GetAttributeReplacement(const dataType: string): string; virtual;
+  public
+    class procedure DoAttributeReplacements(var curLine: string; const dataType: string; const prefix: string);
+
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TBaseOperationSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // PARAMS_NO_STRIP
+  TParamsNoStripSection = class (TParamsSection)
+  protected
+    function CanStrip: Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TBaseOperationSection); override;
+  end;
+
+  // IF_PARAM_TYPE_COMPLEX
+  TIfParamTypeComplexSection = class (TParamSubSection)
+  protected
+    function CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean; override;  
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection); reintroduce; virtual;
+  end;
+
+  // IF_PARAM_TYPE_SIMPLE
+  TIfParamTypeSimpleSection = class (TParamSubSection)
+  protected
+    function CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean; override;  
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection); reintroduce; virtual;
+  end;
+
+  // IF_PARAM_TYPE_SIMPLE
+  TIfParamTypeEnumSection = class (TParamSubSection)
+  protected
+    function CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean; override;  
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection); reintroduce; virtual;
+  end;
+
+  // IF_PARAM_XXXX_TYPE
+  TIfParamXXXTypeSection = class (TParamSubSection)
+  protected
+    FDataType: string;
+    function CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection; const DataType: string); reintroduce; virtual;
+  end;
+
+  // IF_PARAM_OTHER_TYPE
+  TIfParamOtherTypeSection = class (TParamSubSection)
+  protected
+    function CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection); reintroduce; virtual;
+  end;
+
+  // OPERATION_ATTRIBUTES
+  TOperationAttributesSection = class (TTemplatedBaseProcedureSubSection)
+  private
+    FSections: TParamSubSectionList;
+  protected
+    property Sections: TParamSubSectionList read FSections;
+
+    procedure DoReplacements(var curLine: string; const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary); virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService); override;
+    function CanStrip: Boolean; virtual;
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TBaseOperationSection); reintroduce; virtual;
+  end;
+
+  // OPERATION_ATTRIBUTES_NO_STRIP
+  TOperationAttributesNostripSection = class (TOperationAttributesSection)
+  protected
+    function CanStrip: Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TBaseOperationSection); override;
+  end;
+
+  // IF_STRUCT_HAS_ANCESTOR
+  TIfStructHasAncestor = class(TBaseStructSubSection)
+  protected
+    function CanUse(const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); reintroduce; virtual;
+  end;
+
+  // FIELDS
+  TFieldsSection = class (TTemplatedBaseStructSubSection)
+  private
+  protected
+    FSections: TFieldSubSectionList;
+
+    function InternalSectionStart(const line: string; var section: TFieldSubSection): Boolean;
+    property Sections: TFieldSubSectionList read FSections;
+
+    function CanStrip: Boolean; virtual;
+    procedure EnsureStripping(var curLine: string; IsLastField: Boolean);
+
+    procedure DoReplacements(var curLine: string; curField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary);
+
+    procedure ProcessField(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; AField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; IsLastField: Boolean); virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // FIELDS_NO_STRIP
+  TFieldsNoStripSection = class (TFieldsSection)
+  protected
+    function CanStrip: Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); override;
+  end;
+
+  // ANCESTOR_FIELDS
+  TAncestorFieldsSection = class (TFieldsSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); override;
+    function CanStrip: Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); override;
+  end;
+
+  // ENTIRE_HIERARCHY_FIELDS
+  TEntireHierarchyFieldsSection = class (TFieldsSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); override;
+    function CanStrip: Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); override;
+  end;
+
+  // IF_FIELD_XXXX_TYPE
+  TIfFieldXXXTypeSection = class (TFieldSubSection)
+  protected
+    FDataType: string;
+
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection; const DataType: string); reintroduce; virtual;
+  end;
+
+  // IF_FIELD_ARRAY_TYPE
+  TIfFieldArrayTypeSection = class (TFieldSubSection)
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_FIELD_ENUM_TYPE
+  TIfFieldEnumTypeSection = class (TFieldSubSection)
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_FIELD_STRUCT_TYPE
+  TIfFieldStructTypeSection = class (TFieldSubSection)
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_FIELD_TYPE_COMPLEX
+  TIfFieldTypeComplexSection = class (TTemplatedFieldSubSection)
+  protected
+    FSections: TFieldSubSectionList;
+
+    function InternalSectionStart(const line: string; var section: TFieldSubSection): Boolean;
+    property Sections: TFieldSubSectionList read FSections;
+
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+                      const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const IsLastField: Boolean); override;
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // IF_AUTO_CREATE_FIELDS
+  TIfAutoCreateFieldsSection = class (TFieldSubSection)
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_NOT_AUTO_CREATE_FIELDS
+  TIfNotAutoCreateFieldsSection = class (TFieldSubSection)
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_FIELD_TYPE_SIMPLE
+  TIfFieldTypeSimpleSection = class (TFieldSubSection)
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_FIELD_TYPE_SIMPLE
+  TIfFieldTypeEnumSection = class (TFieldSubSection)
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_STRING_FIELD
+  TIfStringFieldSection = class (TIfFieldXXXTypeSection)
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_CURRENCY_FIELD
+  TIfCurrencyFieldSection = class (TIfFieldXXXTypeSection)
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_DECIMAL_FIELD
+  TIfDecimalFieldSection = class (TIfFieldXXXTypeSection)
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  // IF_VARIANT_FIELD
+  TIfVariantFieldSection = class (TIfFieldXXXTypeSection)
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+  end;
+
+  TAttributeSubSection = class (TRODLGeneratorSection)
+  private
+    FParentSection: TTemplatedSection;
+  protected
+    function CanUse(const aAttribute: TRODLTypedEntity; const aStruct: TRODLBaseStruct): Boolean; reintroduce; virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TTemplatedSection; const AName: string); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aEntry: TRODLEntity); reintroduce; virtual;
+
+    property ParentSection: TTemplatedSection read FParentSection;
+  end;
+
+  TTemplatedAttributeSubSection = class (TAttributeSubSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aEntry: TRODLEntity); virtual; abstract;
+  public
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aEntry: TRODLEntity); override;
+  end;
+
+  TAttributeSubSectionList = class (TObjectList)
+  private
+    function GetItem(Index: Integer): TAttributeSubSection;
+    procedure SetItem(Index: Integer; const Value: TAttributeSubSection);
+  public
+    function Add(AObject: TAttributeSubSection): Integer;
+    property Items[Index: Integer]: TAttributeSubSection read GetItem write SetItem; default;
+  end;
+
+
+  // Attributes
+  TAttributesSection = class (TTemplatedAttributeSubSection)
+  private
+  protected
+    function CanStrip: Boolean; virtual;
+    procedure DoReplacements(var curLine: string; curAttributeIndex: integer; const aEntry: TRODLEntity; const aLibrary: TRODLLibrary);
+
+    procedure ProcessAttribute(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; AAtribututeIndex: integer; const aEntry: TRODLEntity); virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aEntry: TRODLEntity); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TTemplatedSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // ATTRIBUTES_NO_STRIP
+  TAttributesNoStripSection = class (TAttributesSection)
+  protected
+    function CanStrip: Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TTemplatedSection); override;
+  end;
+
+  // IF_STRUCT_HAS_ATTRIBUTES
+  TIfStructHasAttributesSection = class (TTemplatedBaseStructSubSection)
+  private
+    FSections: TAttributeSubSectionList;
+    function InternalSectionStart(const line: string; var section: TAttributeSubSection): Boolean;
+  protected
+    procedure DoReplacements(var curLine: string; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary);
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); override;
+    function CanUse(const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // IF_EXCEPTION_HAS_ATTRIBUTES
+  TIfExceptionHasAttributesSection = class (TIfStructHasAttributesSection)
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); override;
+  end;
+
+  // IF_ARRAY_HAS_ATTRIBUTES
+  TIfArrayHasAttributesSection = class (TArraySubSection)
+  private
+    FSections: TAttributeSubSectionList;
+    function InternalSectionStart(const line: string; var section: TAttributeSubSection): Boolean;
+  protected
+    procedure DoReplacements(var curLine: string; const aArray: TRODLArray; const aLibrary: TRODLLibrary);
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aArray: TRODLArray);virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection); reintroduce; virtual;
+    destructor Destroy; override;
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aArray: TRODLArray); override;
+  end;
+
+  // IF_HAS_FIELDS
+  TIfHasFieldsSection = class (TTemplatedBaseStructSubSection)
+  private
+    FSections: TBaseStructSubSectionList;
+    function InternalSectionStart(const line: string; var section: TBaseStructSubSection): Boolean;
+  protected
+    procedure DoReplacements(var curLine: string; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary);
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); override;
+    function CanUse(const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;    
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // IF_DATA_MODULE
+  TIfDataModuleSection = class (TRODLGeneratorSection)
+  protected
+    function CanUse(const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+  end;
+
+  // IF_DATA_MODULE  (inside a SERVICES section)
+  TIfDataModuleServiceSection = class (TBaseServiceSubSection)
+  protected
+    function CanUse(const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection); reintroduce; virtual;
+  end;
+
+  // IF_HYDRA
+  TIfHydraSection = class (TRODLGeneratorSection)
+  private
+    FIsHydraModule: Boolean;
+  protected
+    function CanUse(const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+  end;
+
+  // IF_WSDL
+  TIfWSDLSection = class (TRODLGeneratorSection)
+  protected
+    function CanUse(const aLibrary: TRODLLibrary): Boolean; override;  
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary); override;
+  end;
+
+  // ANCESTOR_SERVICES
+  TAncestorServicesSection = class (TBaseServiceSubSection)
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection); reintroduce; virtual;
+
+    procedure Process(const sectionText: string; const aLibrary: TRODLLibrary; const aService: TRODLBaseService); override;
+  end;
+
+  // IF_HAS_COMPLEX_TYPE
+  TIfHasComplexTypeSection = class (TTemplatedBaseProcedureSubSection)
+  private
+    FSections: TBaseProcedureSubSectionList;
+
+    function InternalSectionStart(const line: string; var section: TBaseProcedureSubSection): Boolean;
+    property Sections: TBaseProcedureSubSectionList read FSections;
+
+    function OperationHasComplexType(const aOperation: TRODLOperation; const aLibrary: TRODLLibrary): Boolean;
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService); override;
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // IF_HAS_OPEARTION_ATTRIBUTES
+  TIfHasOperationAttributesSection = class (TTemplatedBaseProcedureSubSection)
+  private
+    FSections: TBaseProcedureSubSectionList;
+  protected
+    property Sections: TBaseProcedureSubSectionList read FSections;
+
+    function InternalSectionStart(const line: string; var section: TBaseProcedureSubSection): Boolean;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService); override;
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // IF_ARRAY_TYPE_SIMPLE
+  TIfArrayTypeSimpleSection = class (TArraySubSection)
+  protected
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TArraysSection); reintroduce; virtual;
+  end;
+
+  // IF_ARRAY_TYPE_ENUM
+  TIfArrayTypeEnumSection = class (TArraySubSection)
+  protected
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TArraysSection); reintroduce; virtual;
+  end;
+
+  // IF_ARRAY_TYPE_COMPLEX
+  TIfArrayTypeComplexSection = class (TArraySubSection)
+  protected
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TArraysSection); reintroduce; virtual;
+  end;
+
+  // IF_ARRAY_XXXX_TYPE
+  TIfArrayXXXTypeSection = class (TArraySubSection)
+  protected
+    FDataType: string;
+
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection; const DataType: string); reintroduce; virtual;
+  end;
+
+  // IF_ARRAY_NOT_XXXX_TYPE
+  TIfArrayNOTXXXTypeSection = class (TArraySubSection)
+  protected
+    FDataType: string;
+
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection; const DataType: string); reintroduce; virtual;
+  end;
+
+  // IF_ARRAY_ARRAY_TYPE
+  TIfArrayArrayTypeSection = class (TArraySubSection)
+  protected
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection); reintroduce; virtual;
+  end;
+
+  // IF_ARRAY_ENUM_TYPE
+  TIfArrayEnumTypeSection = class (TArraySubSection)
+  protected
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection); reintroduce; virtual;
+  end;
+
+  // IF_ARRAY_STRUCT_TYPE
+  TIfArrayStructTypeSection = class (TArraySubSection)
+  protected
+    function CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection); reintroduce; virtual;
+  end;
+
+  // IN_PARAMS
+  TInParamsSection = class (TParamsSection)
+  protected
+    function CanUse(const AParam: TRODLOperationParam): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TBaseOperationSection); override;
+  end;
+
+  // IN_PARAMS_NO_STRIP
+  TInParamsNoStripSection = class (TInParamsSection)
+  protected
+    function CanStrip: Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TBaseOperationSection); override;
+  end;
+
+  // OUT_PARAMS
+  TOutParamsSection = class (TParamsSection)
+  protected
+    function CanUse(const AParam: TRODLOperationParam): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TBaseOperationSection); override;
+  end;
+
+  // OUT_PARAMS_NO_STRIP
+  TOutParamsNoStripSection = class (TOutParamsSection)
+  protected
+    function CanStrip: Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TBaseOperationSection); override;
+  end;
+
+  // IF_OUT_PARAMS
+  TIfOutParamsSection = class (TTemplatedBaseProcedureSubSection)
+  protected
+    FSections: TBaseProcedureSubSectionList;
+
+    function InternalSectionStart(const line: string; var section: TBaseProcedureSubSection): Boolean;
+    property Sections: TBaseProcedureSubSectionList read FSections;
+
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // IF_NO_OUT_PARAMS
+  TIfNoOutParamsSection = class (TIfOutParamsSection)
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); override;
+  end;
+
+  // IF_RESULT_COMPLEX
+  TIfResultComplexSection = class (TBaseProcedureSubSection)
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+  end;
+
+  // IF_RESULT_SIMPLE
+  TIfResultSimpleSection = class (TBaseProcedureSubSection)
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+  end;
+
+  // IF_RESULT_ENUM
+  TIfResultEnumSection = class (TBaseProcedureSubSection)
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+  end;
+
+  // IF_RESULT_XXXX_TYPE
+  TIfResultXXXTypeSection = class (TBaseProcedureSubSection)
+  protected
+    FDataType: string;
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection; const DataType: string); reintroduce; virtual;
+  end;
+
+  // IF_RESULT_OTHER_TYPE
+  TIfResultOtherTypeSection = class (TBaseProcedureSubSection)
+  protected
+    function CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean; override;  
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection); reintroduce; virtual;
+  end;
+
+  // ARRAYS_IS_FOUND
+  TArraysIsFound = class (TTemplatedBaseStructSubSection)
+  protected
+    procedure DoReplacements(var curLine: string; const aArrayName: string; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary);
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); reintroduce; virtual;
+  end;
+
+  // STRUCT_GENERATE_DEFAULT_VALUES
+  TStructGenerateDefaultValues = class (TTemplatedBaseStructSubSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection); reintroduce; virtual;
+  end;
+
+  //IF_FIELD_HAS_DEFAULT_VALUE
+  TIfFieldHasDefaultValue = class (TTemplatedFieldSubSection)
+  protected
+    function CanUse(const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean; override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection); reintroduce; virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+                      const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const IsLastField: Boolean); override;
+  end;
+
+  // IF_HAS_SERVICE_ATTRIBUTES
+  TIfHasServiceAttributes = class(TTemplatedSection)
+  private
+    FSections: TTemplatedSectionList;
+  protected
+    property Sections: TTemplatedSectionList read FSections;
+    function InternalSectionStart(const line: string; var section: TTemplatedSection): Boolean; virtual;
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary); override;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+    destructor Destroy; override;
+  end;
+
+  // SERVICE_ATTRIBUTES
+  TServiceAttributesSection = class(TTemplatedSection)
+  protected
+    procedure ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary); override;
+    function CanUse(const aLibrary: TRODLLibrary): boolean; override;
+    procedure DoReplacements(var curLine: string; const aService: TRODLService;
+      const aName: string; const aValue: string); virtual;
+  public
+    constructor Create(AParent: TRODLTemplateBasedConverter); reintroduce; virtual;
+  end;
+
+implementation
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  {$IFDEF HYDRA_DESIGNTIME}uEWOTAHelpers,{$ENDIF}
+  uRODLTemplateBasedConverterUtils, SysUtils, StrUtils,
+  uROServer, uROSerializer;
+
+function IsHydraModule : boolean;
+{$IFDEF HYDRA_DESIGNTIME}
+var
+  lSource: string;
+{$ENDIF HYDRA_DESIGNTIME}
+begin
+  Result := False;
+  {$IFDEF HYDRA_DESIGNTIME}
+  if (CurrentProject<>NIL) then begin
+    lSource := UpperCase(ReadModuleSource(CurrentProject));
+    Result := Pos('{#HYDRAMODULE}', lSource)>0;
+  end;
+  {$ENDIF HYDRA_DESIGNTIME}
+end;
+
+{ TRODLTemplateBasedConverter }
+
+constructor TRODLTemplateBasedConverter.Create(const aLibrary: TRODLLibrary;
+   const aTemplateFileName: string; const aUnitName: string; const aTargetEntity: string);
+begin
+  inherited Create(aLibrary, aTargetEntity);
+
+  FTemplateFileName := ATemplateFileName;
+  FUnitName := aUnitName;
+  FSections := TRODLGeneratorSectionList.Create(True);
+
+  // Adding the generic sections
+  FSections.Add(TRequiredUnitsSection.Create(Self));
+  FSections.Add(TUsedRODLsSection.Create(Self));
+  FSections.Add(GetServicesSectionClass.Create(Self));
+  FSections.Add(TEnumsSection.Create(Self));
+  FSections.Add(GetEventSinksSectionClass.Create(Self));
+  FSections.Add(TArraysSection.Create(Self));
+  FSections.Add(GetStructsSectionClass.Create(Self));
+  FSections.Add(GetExceptionsSectionClass.Create(Self));
+  FSections.Add(TIfDataModuleSection.Create(Self));
+  FSections.Add(TIfHydraSection.Create(Self));
+  FSections.Add(TIfHasServiceAttributes.Create(Self));
+end;
+
+destructor TRODLTemplateBasedConverter.Destroy;
+begin
+  FSections.Free;
+
+  inherited Destroy;
+end;
+
+procedure TRODLTemplateBasedConverter.ProcessTemplate(const aLibrary: TRODLLibrary; template: TLineStream);
+var
+  curLine: string;
+  section: TRODLGeneratorSection;
+begin
+  while not Template.Eof do
+  begin
+    curLine := Template.ReadLine;
+
+    DoDefaultReplacements(curLine, aLibrary);
+
+    // Line that start a section
+    if InternalSectionStart(curLine, section) then begin
+      section.Process(FinishSection(section.Name, template), aLibrary);
+    end
+    else
+    // regular line
+    begin
+      Write(curLine);
+    end;
+  end;
+end;
+
+function TRODLTemplateBasedConverter.ResolveUnitName(
+  const aUnitName: string): string;
+begin
+  result := aUnitName;
+end;
+
+procedure TRODLTemplateBasedConverter.DoDefaultReplacements(var curLine: string; const aLibrary: TRODLLibrary);
+begin
+  // Default macros
+  TRODLGeneratorSection.DoRODLEntityReplacements(curLine, aLibrary, 'LIBRARY');
+  MacroReplace(curLine, '%',
+               ['UNIT_NAME', GetUnitName,
+                'NAMESPACE_NAME', GetNamespaceName(aLibrary)
+               ]);
+end;
+
+function TRODLTemplateBasedConverter.InternalSectionStart(const line: string;
+  var section: TRODLGeneratorSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+function TRODLTemplateBasedConverter.IsImplementedAsClass(
+  const aTypeName: string; aLibrary: TRODLLibrary): Boolean;
+begin
+  result := CachedIsImplementedAsClass(aTypename, aLibrary);
+end;
+
+procedure TRODLTemplateBasedConverter.LoadTemplateFromResource(aTemplateStrings: TStrings; const AlternateTemplateName: string = '');
+var
+  {$IFDEF FPC}
+  templateStream: TLazarusResourceStream;
+  {$ELSE}
+  templateStream: TResourceStream;
+  {$ENDIF}
+  usedTemplateName: string;
+begin
+  if Assigned(aTemplateStrings) then
+  begin
+    if Length(AlternateTemplateName) > 0 then
+      usedTemplateName := AlternateTemplateName
+    else
+      usedTemplateName := TemplateFileName;
+    {$IFDEF FPC}
+    templateStream := TLazarusResourceStream.Create(GetTemplateResourceName(usedTemplateName), 'RCDATA');
+    {$ELSE}
+    templateStream := TResourceStream.Create(hInstance, GetTemplateResourceName(usedTemplateName), RT_RCDATA);
+    {$ENDIF}
+    try
+      aTemplateStrings.LoadFromStream(templateStream);
+    finally
+      templateStream.Free;
+    end;
+  end;
+end;
+
+function TRODLTemplateBasedConverter.GetDefaultClassPrefix: String;
+begin
+  result := 'T';
+end;
+
+function TRODLTemplateBasedConverter.GetDefaultExceptionAncestorName: string;
+begin
+  result := DEFAULT_EXCEPTION_ANCESTOR;
+end;
+
+function TRODLTemplateBasedConverter.GetDefaultServiceProxyAncestorName: string;
+begin
+  result := DEFAULT_SERVICE_PROXY_ANCESTOR_NAME;
+end;
+
+function TRODLTemplateBasedConverter.GetDefaultStructAncestorName: string;
+begin
+  result := DEFAULT_STRUCT_ANCESTOR;
+end;
+
+function TRODLTemplateBasedConverter.GetEventSinksSectionClass: TEventSinksSectionClass;
+begin
+  Result := TEventSinksSection;
+end;
+
+function TRODLTemplateBasedConverter.GetExceptionsSectionClass: TExceptionsSectionClass;
+begin
+  Result := TExceptionsSection;
+end;
+
+function TRODLTemplateBasedConverter.GetFileExtension: string;
+begin
+  Result := FFileExtension;
+end;
+
+function TRODLTemplateBasedConverter.GetNamespaceName(
+  const aLibrary: TRODLLibrary): string;
+begin
+  Result := aLibrary.Namespace;
+  if Length(Result) = 0 then
+    Result := aLibrary.Name;
+end;
+
+function TRODLTemplateBasedConverter.GetParamBackModifier(
+  flag: TRODLParamFlag): string;
+begin
+  Result := '';
+end;
+
+function TRODLTemplateBasedConverter.GetService(Index: Integer): TRODLService;
+begin
+  Result := FOrderedServices.Objects[Index] as TRODLService;
+end;
+
+function TRODLTemplateBasedConverter.GetServicesSectionClass: TServicesSectionClass;
+begin
+  Result := TServicesSection;
+end;
+
+function TRODLTemplateBasedConverter.GetStructsSectionClass: TStructsSectionClass;
+begin
+  Result := TStructsSection;
+end;
+
+function TRODLTemplateBasedConverter.GetTemplateResourceName(
+  const aFileName: string): string;
+begin
+  // By default, return the file name without its path part replacing dots
+  // and spaces by an underscore, all this uppercased
+  Result := ExtractFileName(aFileName);
+  Result := StringReplace(Result, '.', '_', [rfReplaceAll]);
+  Result := StringReplace(Result, ' ', '_', [rfReplaceAll]);
+  Result := UpperCase(Result);
+end;
+
+function TRODLTemplateBasedConverter.GetUnitName: string;
+begin
+  Result := FUnitName;
+end;
+
+function TRODLTemplateBasedConverter.GetUseDefaultAncestor: Boolean;
+begin
+  Result := SameText(ServerClassName, TRORemotable.ClassName);
+end;
+
+function TRODLTemplateBasedConverter.GetUsedFileRequiredUnits(const UsedRODLFileName: string): string;
+begin
+  Result := UsedRODLFileName + DEFAULT_INTF_SUFFIX;
+end;
+
+function TRODLTemplateBasedConverter.GetWriteDataModule: boolean;
+begin
+  Result := not UseDefaultAncestor;
+end;
+
+procedure TRODLTemplateBasedConverter.IntConvert(const aLibrary: TRODLLIbrary;
+  const aTargetEntity: string);
+var
+  templateContent: TStringList;
+  template: TLineStream;
+begin
+  FLibrary := aLibrary;
+  
+  SetupServices(aLibrary);
+  SetupOrderedLists(aLibrary);
+  SetupRequiredUnits;
+
+  template := TLineStream.Create('');
+  try
+    // Read template content
+    templateContent := TStringList.Create;
+    try
+      if FileExists(TemplateFileName) then
+        templateContent.LoadFromFile(TemplateFileName)
+      {$IFNDEF FPC}
+      else
+        LoadTemplateFromResource(templateContent)
+      {$ENDIF}
+      ;
+      template.WriteString(templateContent.Text);
+      template.Position := 0;
+    finally
+      templateContent.Free;
+    end;
+
+    // Process it
+    ProcessTemplate(aLibrary, template);
+  finally
+    template.Free;
+  end;
+end;
+
+procedure TRODLTemplateBasedConverter.SaveResultToFile(const FileName: string);
+begin
+  Buffer.SaveToFile(FileName);
+end;
+
+procedure TRODLTemplateBasedConverter.SaveResultToStream(const Stream: TStream);
+begin
+  Buffer.SaveToStream(Stream);
+end;
+
+procedure TRODLTemplateBasedConverter.SetupOrderedLists(const aLibrary: TRODLLibrary);
+var
+  I: Integer;
+begin
+  FOrderedStructs := aLibrary.CalcStructOrder;
+  FOrderedExceptions := aLibrary.CalcExceptionOrder;
+  FOrderedEventSinks := aLibrary.CalcEventSinkOrder;
+
+  //ToDo : This should use a CalcArraysOrder method which is currently not present in uRODL.pas
+  FOrderedArrays := NewROStrings();
+  FGlobalOrderedArrays := NewROStrings();
+  for I := 0 to aLibrary.ArrayCount-1 do
+  begin
+    if not aLibrary.Arrays[i].IsFromUsedRodl then
+      FOrderedArrays.AddObject(aLibrary.Arrays[i].Info.Name, aLibrary.Arrays[i]);
+    FGlobalOrderedArrays.AddObject(aLibrary.Arrays[i].Info.Name, aLibrary.Arrays[i]);      
+  end;
+
+  //ToDo : This should use a CalcEnumsOrder method which is currently not present in uRODL.pas
+  FOrderedEnums := NewROStrings();
+  FGlobalOrderedEnums := NewROStrings();
+  for I := 0 to aLibrary.EnumCount-1 do
+  begin
+    if not aLibrary.Enums[i].IsFromUsedRodl then
+      FOrderedEnums.AddObject(aLibrary.Enums[i].Info.Name, aLibrary.Enums[i]);
+    FGlobalOrderedEnums.AddObject(aLibrary.Enums[i].Info.Name, aLibrary.Enums[i]);      
+  end;
+
+  FGlobalOrderedStructs := NewROStrings();
+  FGlobalOrderedStructs.AddStrings(FOrderedStructs.Strings);
+  for I := 0 to aLibrary.StructCount-1 do 
+  begin
+    FGlobalOrderedStructs.AddObject(aLibrary.Structs[i].Info.Name, aLibrary.Structs[i]);
+  end; 
+end;
+
+procedure TRODLTemplateBasedConverter.SetupRequiredUnits;
+var
+  I: Integer;
+begin
+  // by default, add the used files.
+  for I := 0 to FLibrary.UseCount - 1 do
+  begin
+    if Length(RequiredUnits) > 0 then
+      RequiredUnits := RequiredUnits + ',';
+
+    if FLibrary.Use[i].LoadedRodlLibraryName <> '' then
+      RequiredUnits := RequiredUnits + GetUsedFileRequiredUnits(FLibrary.Use[i].LoadedRodlLibraryName)
+    else
+      RequiredUnits := RequiredUnits + GetUsedFileRequiredUnits(ChangeFileExt(ExtractFilename(FLibrary.Use[i].RodlFile), ''));
+  end;
+end;
+
+procedure TRODLTemplateBasedConverter.SetupServices(
+  const aLibrary: TRODLLibrary; const aTargetEntity : string = '');
+var
+  I: Integer;
+  orderedServices: IROStrings;
+  curService: TRODLService;
+begin
+  if not Assigned(FOrderedServices) then
+    FOrderedServices := NewROStrings()
+  else
+    FOrderedServices.Clear;
+    
+  // By default, all the services of the library are of interest to us
+  orderedServices := aLibrary.CalcServiceOrder;
+  for I := 0 to orderedServices.Count - 1 do
+  begin
+    curService := orderedServices.Objects[I] as TRODLService;
+    if not curService.IsFromUsedRodl then
+      FOrderedServices.AddObject(curService.Name, curService);
+  end;
+end;
+
+{ TRODLGeneratorSection }
+
+constructor TRODLGeneratorSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AName: string);
+begin
+  inherited Create;
+  
+  FParent := AParent;
+  FName := AName;
+end;
+
+function PascalCase(aString: string): String;
+begin
+  result := aString;
+  if length(aString) >- 1 then begin
+    result := UpperCase(aString[1])+Copy(aString,2,length(aString));
+  end;
+end;
+
+class procedure TRODLGeneratorSection.DoRODLEntityReplacements(var curLine: string;
+  const aEntity: TRODLEntity; const Prefix: string);
+begin
+  MacroReplace(curLine, '%',
+               [Prefix + '_NAME', aEntity.Name,
+                Prefix + '_NAME_PASCAL_CASED', PascalCase(aEntity.Name),
+                Prefix + '_ORIGINALNAME', aEntity.OriginalName,
+                Prefix + '_UID', GUIDToString(aEntity.UID)
+               ]);
+end;
+
+procedure TRODLGeneratorSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary);
+begin
+  if CanUse(aLibrary) then
+    Write(RemoveSectionElse(Name, sectionText))
+  else
+    Write(ExtractSectionElse(Name, sectionText));
+end;
+
+procedure TRODLGeneratorSection.ProcessDocumentation(entity: TRODLEntity;
+  const template: string);
+var
+  curLine: string;
+  content: string;
+begin
+  content := Trim(entity.Documentation);
+  if Length(content) > 0 then
+  begin
+    curLine := template;
+    MacroReplace(curLine, '%',
+                 ['CONTENT', content
+                 ]);
+    Write(curLine);
+  end;
+end;
+
+procedure TRODLGeneratorSection.Write(const line: string);
+begin
+  Parent.Write(line);
+end;
+
+function TRODLGeneratorSection.CanUse(const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := true;
+end;
+
+{ TRODLGeneratorSectionList }
+
+function TRODLGeneratorSectionList.Add(AObject: TRODLGeneratorSection): Integer;
+begin
+  Result := inherited Add(AObject); 
+end;
+
+function TRODLGeneratorSectionList.GetItem(Index: Integer): TRODLGeneratorSection;
+begin
+  Result := inherited Items[Index] as TRODLGeneratorSection;
+end;
+
+procedure TRODLGeneratorSectionList.SetItem(Index: Integer;
+  const Value: TRODLGeneratorSection);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TTemplatedSection }
+
+procedure TTemplatedSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary);
+var
+  sectionTemplate: TLineStream;
+begin
+  sectionTemplate := TLineStream.Create(sectionText);
+  try
+    ProcessTemplate(sectionTemplate, aLibrary);
+  finally
+    sectionTemplate.Free;
+  end;
+end;
+
+{ TServiceSection }
+
+function TBaseServiceSubSection.CanUse(const aService: TRODLBaseService;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := true;
+end;
+
+constructor TBaseServiceSubSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseServiceSection; const AName: string);
+begin
+  inherited Create(AParent, AName);
+  
+  FParentSection := AParentSection;
+end;
+
+procedure TBaseServiceSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aService: TRODLBaseService);
+var
+  curLine: string;
+begin
+  if CanUse(aService, aLibrary) then begin
+    curLine := RemoveSectionElse(Name, sectionText);
+    inherited Process(sectionText, aLibrary)
+  end
+  else begin
+    curLine := ExtractSectionElse(Name, sectionText);
+    ParentSection.Process(curLine, aLibrary);
+  end;
+end;
+
+{ TTemplatedServiceSection }
+
+procedure TTemplatedBaseServiceSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aService: TRODLBaseService);
+var
+  sectionTemplate: TLineStream;
+begin
+  if CanUse(aService, aLibrary) then begin
+    sectionTemplate := TLineStream.Create(RemoveSectionElse(Name, sectionText));
+    try
+      ProcessTemplate(sectionTemplate, aLibrary, aService);
+    finally
+      sectionTemplate.Free;
+    end;
+  end else begin
+    ParentSection.Process(ExtractSectionElse(Name, sectionText), aLibrary);
+  end;
+end;
+
+{ TServiceSectionList }
+
+function TBaseServiceSubSectionList.Add(AObject: TBaseServiceSubSection): Integer;
+begin
+  Result := inherited Add(AObject);
+end;
+
+function TBaseServiceSubSectionList.GetItem(Index: Integer): TBaseServiceSubSection;
+begin
+  Result := inherited Items[Index] as TBaseServiceSubSection;
+end;
+
+procedure TBaseServiceSubSectionList.SetItem(Index: Integer;
+  const Value: TBaseServiceSubSection);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TProcedureSubSection }
+
+function TBaseProcedureSubSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := true;
+end;
+
+constructor TBaseProcedureSubSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection; const AName: string);
+begin
+  inherited Create(AParent, AName);
+  
+  FParentSection := AParentSection;
+end;
+
+procedure TBaseProcedureSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService);
+var
+  curSectionText: string;
+begin
+  if CanUse(aOperation, aService, aLibrary) then
+    curSectionText := RemoveSectionElse(Name, sectionText)
+  else
+    curSectionText := ExtractSectionElse(Name, sectionText);
+
+  ParentSection.ProcessOperation(curSectionText, aLibrary, aService, aOperation);
+end;
+
+{ TTemplatedProcedureSubSection }
+
+procedure TTemplatedBaseProcedureSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService);
+var
+  sectionTemplate: TLineStream;
+begin
+  if CanUse(aOperation, aService, aLibrary) then begin
+    sectionTemplate := TLineStream.Create(RemoveSectionElse(Name, sectionText));
+    try
+      ProcessTemplate(sectionTemplate, aLibrary, aOperation, aService);
+    finally
+      sectionTemplate.Free;
+    end;
+  end else begin
+    ParentSection.Process(ExtractSectionElse(Name, sectionText), aLibrary, aService);
+  end;
+
+end;
+
+{ TProcedureSubSectionList }
+
+function TBaseProcedureSubSectionList.Add(AObject: TBaseProcedureSubSection): Integer;
+begin
+  Result := inherited Add(AObject);
+end;
+
+function TBaseProcedureSubSectionList.GetItem(Index: Integer): TBaseProcedureSubSection;
+begin
+  Result := inherited Items[Index] as TBaseProcedureSubSection;
+end;
+
+procedure TBaseProcedureSubSectionList.SetItem(Index: Integer;
+  const Value: TBaseProcedureSubSection);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TParamSubSection }
+
+function TParamSubSection.CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := true;
+end;
+
+constructor TParamSubSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TParamsSection; const AName: string);
+begin
+  inherited Create(AParent, AName);
+  
+  FParentSection := AParentSection;
+end;
+
+procedure TParamSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aParameter: TRODLOperationParam; const IsLastParam: Boolean);
+var
+  curLine: string;
+begin
+  if CanUse(aParameter, aLibrary) then
+  begin
+    curLine := RemoveSectionElse(Name, sectionText);
+
+    ParentSection.DoReplacements(curLine, aParameter, aLibrary);
+    ParentSection.EnsureStripping(curLine, IsLastParam);
+
+    inherited Process(curLine, aLibrary);
+  end
+  else begin
+    curLine := ExtractSectionElse(Name, sectionText);
+    ParentSection.ParentSection.ParentSection.Process(curLine, aLibrary);
+  end;
+end;
+
+{ TParamSubSectionList }
+
+function TParamSubSectionList.Add(AObject: TParamSubSection): Integer;
+begin
+  Result := inherited Add(AObject);
+end;
+
+function TParamSubSectionList.GetItem(Index: Integer): TParamSubSection;
+begin
+  Result := inherited Items[Index] as TParamSubSection;
+end;
+
+procedure TParamSubSectionList.SetItem(Index: Integer;
+  const Value: TParamSubSection);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TStructSubSection }
+
+function TBaseStructSubSection.CanUse(const aStruct: TRODLBaseStruct;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := true;
+end;
+
+constructor TBaseStructSubSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection; const AName: string);
+begin
+  inherited Create(AParent, AName);
+
+  FParentSection := AParentSection;
+end;
+
+procedure TBaseStructSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct);
+var
+  curLine: string;
+begin
+  if CanUse(aStruct, aLibrary) then begin
+    curLine := RemoveSectionElse(Name, sectionText);
+    inherited Process(sectionText, aLibrary)
+  end
+  else begin
+    curLine := ExtractSectionElse(Name, sectionText);
+    ParentSection.Process(curLine, aLibrary);
+  end;
+end;
+
+{ TTemplatedStructSubSection }
+
+procedure TTemplatedBaseStructSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct);
+var
+  sectionTemplate: TLineStream;
+begin
+  if CanUse(aStruct, aLibrary) then begin
+    sectionTemplate := TLineStream.Create(RemoveSectionElse(Name, sectionText));
+    try
+      ProcessTemplate(sectionTemplate, aLibrary, aStruct);
+    finally
+      sectionTemplate.Free;
+    end;
+  end else begin
+    ParentSection.Process(ExtractSectionElse(Name, sectionText), aLibrary);
+  end;
+end;
+
+{ TStructSubSectionList }
+
+function TBaseStructSubSectionList.Add(AObject: TBaseStructSubSection): Integer;
+begin
+  Result := inherited Add(AObject);
+end;
+
+function TBaseStructSubSectionList.GetItem(Index: Integer): TBaseStructSubSection;
+begin
+  Result := inherited Items[Index] as TBaseStructSubSection;
+end;
+
+procedure TBaseStructSubSectionList.SetItem(Index: Integer;
+  const Value: TBaseStructSubSection);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TFieldSubSection }
+
+function TFieldSubSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := True;
+end;
+
+constructor TFieldSubSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TFieldsSection; const AName: string);
+begin
+  inherited Create(AParent, AName);
+
+  FParentSection := AParentSection;
+end;
+
+procedure TFieldSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const IsLastField: Boolean);
+var
+  curLine: string;
+begin
+  if CanUse(aField, aStruct, aLibrary) then
+  begin
+    curLine := RemoveSectionElse(Name, sectionText);
+
+    ParentSection.DoReplacements(curLine, aField, aStruct, aLibrary);
+
+    ParentSection.EnsureStripping(curLine, IsLastField);
+    inherited Process(curLine, aLibrary);
+  end
+  else begin
+    curLine := ExtractSectionElse(Name, sectionText);
+    ParentSection.Process(curLine, aLibrary, aStruct);
+ end;
+end;
+
+{ TTemplatedFieldSubSection }
+
+procedure TTemplatedFieldSubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const IsLastField: Boolean);
+var
+  sectionTemplate: TLineStream;
+begin
+  if CanUse(aField, aStruct, aLibrary) then
+  begin
+    sectionTemplate := TLineStream.Create(sectionText);
+    try
+      ProcessTemplate(sectionTemplate, aLibrary, aField, aStruct, IsLastField);
+    finally
+      sectionTemplate.Free;
+    end;
+  end;
+end;
+
+{ TFieldSubSectionList }
+
+function TFieldSubSectionList.Add(AObject: TFieldSubSection): Integer;
+begin
+  Result := inherited Add(AObject);
+end;
+
+function TFieldSubSectionList.GetItem(Index: Integer): TFieldSubSection;
+begin
+  Result := inherited Items[Index] as TFieldSubSection;
+end;
+
+procedure TFieldSubSectionList.SetItem(Index: Integer;
+  const Value: TFieldSubSection);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TArraySubSection }
+
+function TArraySubSection.CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := True;
+end;
+
+constructor TArraySubSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TArraysSection; const AName: string);
+begin
+  inherited Create(AParent, AName);
+
+  FParentSection := AParentSection;
+end;
+
+procedure TArraySubSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aArray: TRODLArray);
+var
+  curLine: string;
+begin
+  if CanUse(aArray, aLibrary) then
+  begin
+    curLine := RemoveSectionElse(Name, sectionText);
+
+    ParentSection.DoReplacements(curLine, aArray, aLibrary);
+
+    inherited Process(curLine, aLibrary);
+  end
+  else begin
+    curLine := ExtractSectionElse(Name, sectionText);
+    ParentSection.Process(curLine, aLibrary);
+  end;
+end;
+
+{ TArraySubSectionList }
+
+function TArraySubSectionList.Add(AObject: TArraySubSection): Integer;
+begin
+  Result := inherited Add(AObject);
+end;
+
+function TArraySubSectionList.GetItem(Index: Integer): TArraySubSection;
+begin
+  Result := inherited Items[Index] as TArraySubSection;
+end;
+
+procedure TArraySubSectionList.SetItem(Index: Integer;
+  const Value: TArraySubSection);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TBaseStructSection }
+
+constructor TBaseStructSection.Create(AParent: TRODLTemplateBasedConverter; const AName: string);
+begin
+  inherited Create(AParent, AName);
+
+  FSections := TBaseStructSubSectionList.Create(True);
+
+  FSections.Add(TIfStructHasAncestor.Create(AParent, Self));
+  FSections.Add(TFieldsSection.Create(AParent, Self));
+  FSections.Add(TFieldsNoStripSection.Create(AParent, Self));
+  FSections.Add(TIfHasFieldsSection.Create(AParent, Self));
+  FSections.Add(TAncestorFieldsSection.Create(AParent, Self));
+  FSections.Add(TEntireHierarchyFieldsSection.Create(AParent, Self));
+
+  FSections.Add(TIfStructHasAttributesSection.Create(AParent, Self));
+end;
+
+destructor TBaseStructSection.Destroy;
+begin
+  FSections.Free;
+
+  inherited Destroy;
+end;
+
+function TBaseStructSection.InternalSectionStart(const line: string;
+  var section: TBaseStructSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TBaseStructSection.DoReplacements(var curLine: string;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary);
+begin
+  Parent.DoDefaultReplacements(curLine, aLibrary);
+  DoRODLEntityReplacements(curLine, aStruct, GetEntityPrefix);
+
+  MacroReplace(curLine, '%',
+               [GetEntityPrefix + '_ANCESTOR_NAME', GetAncestorName(aStruct)
+               ]);
+
+  // Note: this might be better moved to the "Delphi" classes as Collection
+  // is a Delphi specific, AFAIK
+  MacroReplace(curLine, '%',
+               [GetEntityPrefix + '_COLLECTION_NAME', aStruct.Name + COLLECTION_SUFFIX,
+                GetEntityPrefix + '_ANCESTOR_COLLECTION_NAME', GetAncestorCollectionName(aStruct)
+               ]);
+end;
+
+function TBaseStructSection.GetAncestorCollectionName(
+  const aStruct: TRODLBaseStruct): string;
+begin
+  Result := aStruct.Ancestor;
+  if Length(Result) = 0 then
+    Result := DEFAULT_STRUCT_COLLECTION_ANCESTOR
+  else
+    Result := Result + COLLECTION_SUFFIX;
+end;
+
+procedure TBaseStructSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary);
+var
+  I: Integer;
+  curStruct: TRODLBaseStruct;
+  curLine: string;
+  section: TBaseStructSubSection;
+begin
+  for I := 0 to GetStructList.Count - 1 do
+  begin
+    curStruct := GetStructList.Objects[I] as TRODLBaseStruct;
+    if not curStruct.IsFromUsedRodl then
+    begin
+      sectionTemplate.Position := 0;
+      while not sectionTemplate.Eof do
+      begin
+        curLine := sectionTemplate.ReadLine;
+
+        DoReplacements(curLine, curStruct, aLibrary);
+
+        if InternalSectionStart(curLine, section) then
+        begin
+          section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, curStruct);
+        end
+        else
+        if SectionStart(curLine, 'DOCUMENTATION') then
+          ProcessDocumentation(curStruct, FinishSection('DOCUMENTATION', sectionTemplate))
+        else
+          Write(curLine);
+      end;
+    end;
+  end;
+end;
+
+{ TBaseServiceSection }
+
+constructor TBaseServiceSection.Create(AParent: TRODLTemplateBasedConverter; const AName: string);
+begin
+  inherited Create(AParent, AName);
+
+  FSections := TBaseServiceSubSectionList.Create(True);
+  
+  // Adding the sub sections
+  FSections.Add(TIfDataModuleServiceSection.Create(AParent, Self));
+  FSections.Add(TAncestorServicesSection.Create(AParent, Self));
+end;
+
+destructor TBaseServiceSection.Destroy;
+begin
+  FSections.Free;
+  
+  inherited Destroy;
+end;
+
+procedure TBaseServiceSection.DoReplacements(var curLine: string;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary);
+begin
+  MacroReplace(curLine, '%',
+               [GetEntityPrefix + '_UID', GUIDToString(aService.Default.Info.UID)
+               ]);
+  Parent.DoDefaultReplacements(curLine, aLibrary);
+  DoRODLEntityReplacements(curLine, aService, GetEntityPrefix);
+
+  MacroReplace(curLine, '%',
+               [GetEntityPrefix + '_ANCESTOR_NAME', GetAncestorName(aService)
+               ]);
+end;
+
+function TBaseServiceSection.GetAncestorName(const aService: TRODLBaseService): string;
+begin
+  Result := aService.Ancestor;
+end;
+
+function TBaseServiceSection.InternalSectionStart(const line: string;
+  var section: TBaseServiceSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TBaseServiceSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary);
+var
+  I: Integer;
+  curService: TRODLBaseService;
+  curLine: string;
+  section: TBaseServiceSubSection;
+begin
+  for I := 0 to GetServiceList.Count - 1 do
+  begin
+    curService := GetServiceList.Objects[I] as TRODLBaseService;
+    if Assigned(curService.Default) then
+    begin
+      sectionTemplate.Position := 0;
+      while not sectionTemplate.Eof do
+      begin
+        curLine := sectionTemplate.ReadLine;
+
+        DoReplacements(curLine, curService, aLibrary);
+
+        if InternalSectionStart(curLine, section) then
+        begin
+          section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, curService);
+        end
+        else
+        if SectionStart(curLine, 'DOCUMENTATION') then
+        begin
+          ProcessDocumentation(curService, FinishSection('DOCUMENTATION', sectionTemplate))
+        end
+        else
+        begin
+          Write(curLine);
+        end;
+      end;
+    end;
+  end;
+end;
+
+{ TBaseOperationSection }
+
+constructor TBaseOperationSection.Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection; const AName: string);
+var
+  DataType: TRODataType;
+begin
+  inherited Create(AParent, AParentSection, AName);
+
+  FSections := TBaseProcedureSubSectionList.Create(True);
+
+  // Add subsections
+  FSections.Add(TParamsSection.Create(AParent, Self));
+  FSections.Add(GetParamsNoStripSectionClass.Create(AParent, Self));
+  FSections.Add(TInParamsSection.Create(AParent, Self));
+  FSections.Add(TInParamsNoStripSection.Create(AParent, Self));
+  FSections.Add(TOutParamsSection.Create(AParent, Self));
+  FSections.Add(TOutParamsNoStripSection.Create(AParent, Self));
+  FSections.Add(TIfHasComplexTypeSection.Create(AParent, Self));
+  FSections.Add(TIfOutParamsSection.Create(AParent, Self));
+  FSections.Add(TIfNoOutParamsSection.Create(AParent, Self));
+  FSections.Add(TIfResultComplexSection.Create(AParent, Self));
+  FSections.Add(TIfResultSimpleSection.Create(AParent, Self));
+  FSections.Add(TIfResultEnumSection.Create(AParent, Self));
+  FSections.Add(TIfResultOtherTypeSection.Create(Parent, Self));
+  FSections.Add(TIfOperationHasResult.Create(Parent, Self));
+  FSections.Add(TIfOperationHasInParams.Create(Parent, Self));
+  FSections.Add(TIfOperationHasOutParams.Create(Parent, Self));
+  FSections.Add(TIfHasOperationAttributesSection.Create(Parent, Self));
+  for DataType := Low(DataTypeNames) to High(DataTypeNames) do
+    FSections.Add(TIfResultXXXTypeSection.Create(Parent, Self, DataTypeNames[DataType]));
+end;
+
+destructor TBaseOperationSection.Destroy;
+begin
+  FSections.Free;
+
+  inherited Destroy;
+end;
+
+procedure TBaseOperationSection.DoReplacements(var curLine: string;
+  const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary);
+begin
+  DoRODLEntityReplacements(curLine, aOperation, 'OPERATION');
+  // Next call will also call Parent.DoDefaultReplacements
+  ParentSection.DoReplacements(curLine, aService, aLibrary);
+end;
+
+function TBaseOperationSection.GetParamsNoStripSectionClass: TParamsNoStripSectionClass;
+begin
+  Result := TParamsNoStripSection;
+end;
+
+function TBaseOperationSection.InternalSectionStart(const line: string;
+  var section: TBaseProcedureSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TBaseOperationSection.ProcessOperation(sectionText: string;
+  const aLibrary: TRODLLibrary; const aService: TRODLBaseService; const aOperation: TRODLOperation);
+var
+  sectionTemplate: TLineStream;
+  curLine: string;
+  section: TBaseProcedureSubSection;  
+begin
+  if OperationApplies(aOperation) then begin
+    sectionTemplate := TLineStream.Create(sectionText);
+    try
+      while not sectionTemplate.Eof do begin
+        curLine := sectionTemplate.ReadLine;
+
+        DoReplacements(curLine, aOperation, aService, aLibrary);
+
+        if InternalSectionStart(curLine, section) then
+          section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, aOperation, aService)
+        else
+          Write(curLine);
+      end;
+    finally
+      sectionTemplate.Free;
+    end;
+  end;
+end;
+
+procedure TBaseOperationSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aService: TRODLBaseService);
+var
+  curOpIndex: Integer;
+begin
+  for curOpIndex := 0 to aService.Default.Count - 1 do
+    ProcessOperation(sectionTemplate.DataString, aLibrary, aService, aService.Default.Items[curOpIndex]);
+end;
+
+{ TRequiredUnitsSection }
+
+constructor TRequiredUnitsSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'REQUIRED_UNITS');
+
+  fMultipass := Parent.FileExtension <> '.pas';
+end;
+
+procedure TRequiredUnitsSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary);
+var
+  tmpStringList: TStringList;
+  curLine: string;
+  I: Integer;
+  MarkerPos: Integer;
+  curUnits: string;
+const
+  CutoffLength = 80;
+begin
+  if Length(Trim(Parent.RequiredUnits)) = 0 then Exit;
+
+  tmpStringList := TStringList.Create;
+  try
+    tmpStringList.Delimiter := ',';
+    tmpStringList.DelimitedText := Parent.RequiredUnits;
+    if Multipass then begin
+      for I := 0 to tmpStringList.Count - 1 do
+      begin
+        curLine := sectionText;
+        DoReplacements(curLine, Parent.ResolveUnitName(tmpStringList[I]), aLibrary);
+        Write(curLine);
+      end;
+    end
+    else begin
+      MarkerPos := Pos('%REQUIRED_UNIT_NAME%', sectionText);
+      if MarkerPos > 0 then
+      begin
+        while (tmpStringList.Count > 0) do
+        begin
+          curUnits := '';
+          while (tmpStringList.Count > 0) and (Length(curUnits) + MarkerPos < CutoffLength) do
+          begin
+            curUnits := curUnits + tmpStringList[0] + ', ';
+            tmpStringList.Delete(0);
+          end;
+
+          curLine := sectionText;
+          DoReplacements(curLine, StrEnsureNoSuffix(', ', curUnits), aLibrary);
+          Write(curLine);
+        end;
+      end;
+    end;
+  finally
+    tmpStringList.Free;
+  end;
+end;
+
+procedure TRequiredUnitsSection.DoReplacements(var curLine: string; const unitName: string; const aLibrary: TRODLLibrary);
+begin
+  Parent.DoDefaultReplacements(curLine, aLibrary);
+  MacroReplace(curLine, '%',
+               ['REQUIRED_UNIT_NAME', unitName
+               ]);
+end;
+
+{ TUsedRODLsSection }
+
+constructor TUsedRODLsSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'USED_RODLS');
+end;
+
+procedure TUsedRODLsSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary);
+var
+  i: Integer;
+  unitName: string;
+  curLine: string;
+begin
+  for i := 0 to aLibrary.UseCount-1 do
+  begin
+    if aLibrary.Use[i].LoadedRodlLibraryName <> '' then
+      unitName := aLibrary.Use[i].LoadedRodlLibraryName + '_Intf'
+    else
+      unitName := ChangeFileExt(ExtractFilename(aLibrary.Use[i].RodlFile),'')+'_Intf';
+
+    curLine := sectionText;
+    DoReplacements(curLine, unitName, aLibrary);
+    Write(curLine);
+  end;
+end;
+
+procedure TUsedRODLsSection.DoReplacements(var curLine: string; unitName: string; const aLibrary: TRODLLibrary);
+begin
+  Parent.DoDefaultReplacements(curLine, aLibrary);
+  MacroReplace(curLine, '%',
+               ['USED_RODL_UNIT_NAME', unitName
+               ]);
+end;
+
+{ TServicesSection }
+
+constructor TServicesSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'SERVICES');
+
+  FSections.Add(GetAllOperationsSectionClass.Create(AParent, Self));
+  FSections.Add(GetProcedureOperationsSectionClass.Create(AParent, Self));
+  FSections.Add(GetFunctionOperationsSectionClass.Create(AParent, Self));
+end;
+
+procedure TServicesSection.DoReplacements(var curLine: string;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary);
+var
+  urn: string;
+begin
+  inherited DoReplacements(curLine, aService, aLibrary);
+
+  MacroReplace(curLine, '%',
+               ['SERVICE_PROXY_ANCESTOR_NAME', GetProxyAncestorName(aService),
+                'SERVICE_INVOKER_ANCESTOR_NAME', GetInvokerAncestorName(aService),
+                'IS_ABSTRACT', BoolToStr(aService.Abstract, True)
+               ]);
+
+  // Write additional SOAP information
+  if IsSOAPService(aService) then
+  begin
+    MacroReplace(curLine, '%',
+                 [GetEntityPrefix + '_LOCATION', aService.Info.Attributes.Values['Location']
+                 ]);
+
+    if (aService.Default.Count>0) then
+    begin
+      urn := aService.Default.Items[0].Info.Attributes.Values['Action'];
+      if (urn='') then
+        urn := aService.Default.Items[0].Info.Attributes.Values['InputNamespace']; // Apache ones...
+
+      if (Pos('#', urn)>0) then
+        Delete(urn, Pos('#', urn), Length(urn));
+      MacroReplace(curLine, '%',
+                   [GetEntityPrefix + '_URN', urn
+                   ]);
+    end;
+  end;
+end;
+
+function TServicesSection.GetAllOperationsSectionClass: TAllOperationsSectionClass;
+begin
+  result := TAllOperationsSection;
+end;
+
+function TServicesSection.GetEntityPrefix: string;
+begin
+  Result := 'SERVICE';
+end;
+
+function TServicesSection.GetFunctionOperationsSectionClass: TFunctionOperationsSectionClass;
+begin
+  Result := TFunctionOperationsSection;
+end;
+
+function TServicesSection.GetInvokerAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  if Length(aService.Ancestor) = 0 then
+    Result := DEFAULT_SERVICE_INVOKER_ANCESTOR_NAME
+  else
+    Result := aService.Ancestor + SERVICE_INVOKER_SUFFIX;
+end;
+
+function TServicesSection.GetProcedureOperationsSectionClass: TProcedureOperationsSectionClass;
+begin
+  Result := TProcedureOperationsSection;
+end;
+
+function TServicesSection.GetProxyAncestorName(
+  const aService: TRODLBaseService): string;
+begin
+  if Length(aService.Ancestor) = 0 then
+    Result := Parent.GetDefaultServiceProxyAncestorName
+  else
+    Result := aService.Ancestor + GetProxySuffix;
+end;
+
+function TServicesSection.GetProxySuffix: string;
+begin
+  Result := SERVICE_PROXY_SUFFIX;;
+end;
+
+function TServicesSection.GetServiceList: IROStrings;
+begin
+  Result := Parent.FOrderedServices;
+end;
+
+function TServicesSection.IsSOAPService(const aService: TRODLBaseService): Boolean;
+begin
+  Result := aService.Attributes.Values['Type'] = 'SOAP';
+end;
+
+{ TEnumsSection }
+
+constructor TEnumsSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'ENUMS');
+end;
+
+procedure TEnumsSection.DoReplacements(var curLine: string; aEnum: TRODLEnum;
+  const aLibrary: TRODLLibrary);
+begin
+  Parent.DoDefaultReplacements(curLine, aLibrary);
+  DoRODLEntityReplacements(curLine, aEnum, 'ENUM');
+end;
+
+class function TEnumsSection.GetEnumValueName(const enum: TRODLEnum;
+  const ValueIndex: Integer): string;
+begin
+  Result := enum[ValueIndex].Name;
+  if enum.PrefixEnumValues then
+    Result := enum.Name + '_' + Result;
+end;
+
+procedure TEnumsSection.ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary);
+var
+  I: Integer;
+  curEnum: TRODLEnum;
+  curLine: string;
+  unregDone: boolean;
+begin
+  unregDone := false;
+  for I := 0 to Parent.FOrderedEnums.Count - 1 do
+  begin
+    curEnum := Parent.FOrderedEnums.Objects[I] as TRODLEnum;
+    if not curEnum.IsFromUsedRodl then
+    begin
+      sectionTemplate.Position := 0;
+      while not sectionTemplate.Eof do
+      begin
+        curLine := sectionTemplate.ReadLine;
+        DoReplacements(curLine, curEnum, aLibrary);
+
+        if SectionStart(curLine, 'VALUES') then
+          ProcessValues(curEnum, FinishSection('VALUES', sectionTemplate), true)
+        else if SectionStart(curLine, 'VALUES_NO_STRIP') then
+          ProcessValues(curEnum, FinishSection('VALUES_NO_STRIP', sectionTemplate), false)
+        else if SectionStart(curLine, 'VALUES_FROM_STRING') then
+          ProcessValues(curEnum, FinishSection('VALUES_FROM_STRING', sectionTemplate), false)
+        else if SectionStart(curLine, 'DOCUMENTATION') then
+          ProcessDocumentation(curEnum, FinishSection('DOCUMENTATION', sectionTemplate))
+        else if SectionStart(curLine, 'REGISTER_ENUMS_MAPPINGS') then
+          ProcessMappings(curEnum, FinishSection('REGISTER_ENUMS_MAPPINGS', sectionTemplate))
+        else if SectionStart(curLine, 'UNREGISTER_ENUMS_MAPPINGS') then
+          if not unregDone then
+          begin
+            unregDone := true;
+            Write(FinishSection('UNREGISTER_ENUMS_MAPPINGS', sectionTemplate));
+          end
+          else FinishSection('UNREGISTER_ENUMS_MAPPINGS', sectionTemplate)
+        else
+          Write(curLine);
+      end;
+    end;
+  end;
+end;
+
+procedure TEnumsSection.ProcessValues(enum: TRODLEnum; const template: string; aStripLastSeparator: Boolean=true);
+var
+  I: Integer;
+  curLine: string;
+begin
+  for I := 0 to enum.Count - 1 do
+  begin
+    curLine := template;
+
+    MacroReplace(curLine, '%',
+                ['VALUE_NAME', GetEnumValueName(enum, I)
+                ]);
+
+    if aStripLastSeparator and (I = enum.Count - 1) then begin
+      curLine := StrEnsureNoSuffix(';', TrimRight(curLine));
+      curLine := StrEnsureNoSuffix(',', TrimRight(curLine));
+    end;
+    Write(curLine);
+  end;
+end;
+
+procedure TEnumsSection.ProcessMappings(enum: TRODLEnum; const template: string);
+var
+  I: Integer;
+  curLine: string;
+begin
+  for I := 0 to enum.Count - 1 do
+  begin
+    curLine := template;
+
+    MacroReplace(curLine, '%',
+                ['VALUE_NAME', enum[I].Name
+                ]);
+
+    MacroReplace(curLine, '%',
+                ['SOAP_VALUE', enum[I].OriginalName
+                ]);
+
+    DoRODLEntityReplacements(curLine, enum, 'ENUM');
+
+    Write(curLine);
+  end;
+end;
+
+{ TEventSinksSection }
+
+constructor TEventSinksSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'EVENT_SINKS');
+
+  FSections.Add(GetOperationsSectionClass.Create(AParent, Self));
+end;
+
+procedure TEventSinksSection.DoReplacements(var curLine: string;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary);
+var
+  eventSink: TRODLEventSink;
+begin
+  inherited DoReplacements(curLine, aService, aLibrary);
+
+  eventSink := aService as TRODLEventSink;
+  MacroReplace(curLine, '%',
+               ['EVENT_SINK_WRITER_ANCESTOR_NAME', GetEventSinkWriterAncestorName(eventSink),
+                'EVENT_SINK_INVOKER_ANCESTOR_NAME', GetEventSinkInvokerAncestorName(eventSink)
+               ]);
+end;
+
+function TEventSinksSection.GetEntityPrefix: string;
+begin
+  Result := 'EVENT_SINK';
+end;
+
+function TEventSinksSection.GetEventSinkInvokerAncestorName(
+  const aEventSink: TRODLEventSink): string;
+begin
+  Result := aEventSink.Ancestor;
+  if Length(Result) = 0 then
+    Result := DEFAULT_EVENT_SINK_INVOKER_ANCESTOR_NAME
+  else
+    Result := Result + EVENT_SINK_INVOKER_SUFFIX;
+end;
+
+function TEventSinksSection.GetEventSinkWriterAncestorName(
+  const aEventSink: TRODLEventSink): string;
+begin
+  Result := aEventSink.Ancestor;
+  if Length(Result) = 0 then
+    Result := DEFAULT_EVENT_SINK_WRITER_ANCESTOR_NAME
+  else
+    Result := Result + EVENT_SINK_WRITER_SUFFIX;
+end;
+
+function TEventSinksSection.GetOperationsSectionClass: TOperationsSectionClass;
+begin
+  Result := TOperationsSection;
+end;
+
+function TEventSinksSection.GetServiceList: IROStrings;
+begin
+  Result := Parent.FOrderedEventSinks;
+end;
+
+{ TArraysSection }
+
+constructor TArraysSection.Create(AParent: TRODLTemplateBasedConverter);
+var
+  DataType: TRODataType;
+begin
+  inherited Create(AParent, 'ARRAYS');
+
+  FSections := TArraySubSectionList.Create(True);
+
+  FSections.Add(TIfArrayTypeSimpleSection.Create(AParent, Self));
+  FSections.Add(TIfArrayTypeEnumSection.Create(AParent, Self));
+  FSections.Add(TIfArrayTypeComplexSection.Create(AParent, Self));
+  FSections.Add(TIfArrayArrayTypeSection.Create(AParent, Self));
+  FSections.Add(TIfArrayEnumTypeSection.Create(AParent, Self));
+  FSections.Add(TIfArrayStructTypeSection.Create(AParent, Self));
+  for DataType := Low(TRODataType) to High(TRODataType) do
+    FSections.Add(TIfArrayXXXTypeSection.Create(AParent, Self, DataTypeNames[DataType]));
+  FSections.Add(TIfArrayXXXTypeSection.Create(AParent, Self, 'Utf8String'));
+
+  for DataType := Low(TRODataType) to High(TRODataType) do
+    FSections.Add(TIfArrayNOTXXXTypeSection.Create(AParent, Self, DataTypeNames[DataType]));
+  FSections.Add(TIfArrayNOTXXXTypeSection.Create(AParent, Self, 'Utf8String'));
+
+  FSections.Add(TIfArrayHasAttributesSection.Create(AParent, Self));
+end;
+
+destructor TArraysSection.Destroy;
+begin
+  FSections.Free;
+
+  inherited;
+end;
+
+procedure TArraysSection.DoReplacements(var curLine: string;
+  const aArray: TRODLArray; const aLibrary: TRODLLibrary);
+begin
+  Parent.DoDefaultReplacements(curLine, aLibrary);
+  DoRODLEntityReplacements(curLine, aArray, 'ARRAY');
+  MacroReplace(curLine, '%',
+               ['ARRAY_TYPE', Parent.GetTypeIdentifier(aArray.ElementType),
+                'ARRAY_TYPE_RAW', aArray.ElementType,
+                'ARRAY_TYPE_READER_WRITER', CachedDataTypeToObjCReaderWriterFn(aArray.ElementType, aLibrary),  // todo: asbtract?
+                'ARRAY_TYPE_CODING_READER_WRITER', CachedDataTypeToObjCCodingReaderWriterFn(aArray.ElementType, aLibrary),  // todo: asbtract?
+                'ARRAY_TYPE_NAME', Parent.GetTypeIdentifier(aArray.ElementType, false),
+                'ARRAY_TYPE_NSNUMBER', CachedDataTypeToObjCNSNumberFn(aArray.ElementType, aLibrary)
+               ]);
+end;
+
+function TArraysSection.InternalSectionStart(const line: string;
+  var section: TArraySubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TArraysSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary);
+var
+  I: Integer;
+  curArray: TRODLArray;
+  curLine: string;
+  section: TArraySubSection;
+begin
+  for I := 0 to FParent.FOrderedArrays.Count - 1 do
+  begin
+    curArray := FParent.FOrderedArrays.Objects[I] as TRODLArray;
+    if not curArray.IsFromUsedRodl then
+    begin
+      sectionTemplate.Position := 0;
+      while not sectionTemplate.Eof do
+      begin
+        curLine := sectionTemplate.ReadLine;
+
+        DoReplacements(curLine, curArray, aLibrary);
+
+        if InternalSectionStart(curLine, section) then
+        begin
+          section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, curArray)
+        end
+        else
+        if SectionStart(curLine, 'DOCUMENTATION') then
+        begin
+          ProcessDocumentation(curArray, FinishSection('DOCUMENTATION', sectionTemplate))
+        end
+        else
+        begin
+          Write(curLine);
+        end;
+      end;
+    end;
+  end;
+end;
+
+{ TStructsSection }
+
+constructor TStructsSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'STRUCTS');
+
+  FSections.Add(TArraysIsFound.Create(AParent, Self));
+  FSections.Add(TStructGenerateDefaultValues.Create(AParent, Self));
+end;
+
+function TStructsSection.GetAncestorName(
+  const aStruct: TRODLBaseStruct): string;
+begin
+  Result := aStruct.Ancestor;
+  if Length(Result) = 0 then
+    Result := Parent.GetDefaultStructAncestorName;
+end;
+
+function TStructsSection.GetEntityPrefix: string;
+begin
+  Result := 'STRUCT';
+end;
+
+function TStructsSection.GetStructList: IROStrings;
+begin
+  Result := Parent.FOrderedStructs;
+end;
+
+{ TExceptionsSection }
+
+constructor TExceptionsSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'EXCEPTIONS');
+  FSections.Add(TIfExceptionHasAttributesSection.Create(AParent, Self));
+end;
+
+function TExceptionsSection.GetEntityPrefix: string;
+begin
+  Result := 'EXCEPTION';
+end;
+
+function TExceptionsSection.GetStructList: IROStrings;
+begin
+  Result := Parent.FOrderedExceptions;
+end;
+
+function TExceptionsSection.GetAncestorName(
+  const aStruct: TRODLBaseStruct): string;
+begin
+  Result := aStruct.Ancestor;
+  if Length(Result) = 0 then
+    Result := Parent.GetDefaultExceptionAncestorName;
+end;
+
+{ TOperationsSection }
+
+constructor TOperationsSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseServiceSection);
+begin
+  inherited Create(AParent, AParentSection, 'OPERATIONS');
+end;
+
+function TOperationsSection.OperationApplies(
+  aOperation: TRODLOperation): Boolean;
+begin
+  Result := True;
+end;
+
+{ TAllOperationsSection }
+
+constructor TAllOperationsSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseServiceSection);
+begin
+  inherited Create(AParent, AParentSection, 'OPERATIONS');
+end;
+
+procedure TAllOperationsSection.DoReplacements(var curLine: string;
+  const aOperation: TRODLOperation; const aService: TRODLBaseService;
+  const aLibrary: TRODLLibrary);
+begin
+  inherited DoReplacements(curLine, aOperation, aService, aLibrary);
+
+  if not Assigned(aOperation.Result) or (aOperation.Result.DataType = '') then begin
+    //ToDo: extract "void" string to be provided by language
+    GetParamsNoStripSectionClass.DoAttributeReplacements(curLine, 'void', 'OPERATION_RESULT');
+    GetParamsNoStripSectionClass.DoAttributeReplacements(curLine, 'void', 'OPERATION_RESULT_TYPE');
+    MacroReplace(curLine, '%',
+                 ['OPERATION_RESULT', 'void', // deprecated
+                  'OPERATION_RESULT_TYPE', 'void',
+                  'OPERATION_RESULT_TYPE_NAME', 'void'
+                 ]);
+  end
+  else begin
+    GetParamsNoStripSectionClass.DoAttributeReplacements(curLine, aOperation.Result.DataType, 'OPERATION_RESULT');
+    GetParamsNoStripSectionClass.DoAttributeReplacements(curLine, aOperation.Result.DataType, 'OPERATION_RESULT_TYPE');
+    MacroReplace(curLine, '%',
+                 ['OPERATION_RESULT', Parent.GetTypeIdentifier(aOperation.Result.DataType), // deprecated!
+                  'OPERATION_RESULT_TYPE', Parent.GetTypeIdentifier(aOperation.Result.DataType),
+                  'OPERATION_RESULT_TYPE_NAME', Parent.GetTypeIdentifier(aOperation.Result.DataType, false),
+                  'OPERATION_RESULT_TYPE_RAW', aOperation.Result.DataType,
+                  'OPERATION_RESULT_READER_WRITER', CachedDataTypeToObjCReaderWriterFn(aOperation.Result.DataType, aLibrary),  // todo: asbtract?
+                  'OPERATION_RESULT_NAME', aOperation.Result.Name  
+                 ]);
+  end;
+end;
+
+function TAllOperationsSection.OperationApplies(
+  aOperation: TRODLOperation): Boolean;
+begin
+  Result := true;
+end;
+
+{ TProcedureOperationsSection }
+
+constructor TProcedureOperationsSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection);
+begin
+  inherited Create(AParent, AParentSection, 'PROCEDURE_OPERATIONS');
+end;
+
+function TProcedureOperationsSection.OperationApplies(
+  aOperation: TRODLOperation): Boolean;
+begin
+  Result := not Assigned(aOperation.Result) or (aOperation.Result.DataType = '');
+end;
+
+{ TFunctionOperationsSection }
+
+constructor TFunctionOperationsSection.Create(AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection);
+begin
+  inherited Create(AParent, AParentSection, 'FUNCTION_OPERATIONS');
+end;
+
+procedure TFunctionOperationsSection.DoReplacements(var curLine: string;
+  const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary);
+begin
+  inherited DoReplacements(curLine, aOperation, aService, aLibrary);
+
+  GetParamsNoStripSectionClass.DoAttributeReplacements(curLine, aOperation.Result.DataType, 'OPERATION_RESULT');
+
+  MacroReplace(curLine, '%',
+               ['OPERATION_RESULT', Parent.GetTypeIdentifier(aOperation.Result.DataType), // deprecated
+                'OPERATION_RESULT_TYPE', Parent.GetTypeIdentifier(aOperation.Result.DataType),
+                'OPERATION_RESULT_TYPE_NAME', Parent.GetTypeIdentifier(aOperation.Result.DataType, false)
+               ]);
+end;
+
+function TFunctionOperationsSection.OperationApplies(
+  aOperation: TRODLOperation): Boolean;
+begin
+  Result := Assigned(aOperation.Result) and (aOperation.Result.DataType <> '');
+end;
+
+{ TParamsSection }
+
+function TParamsSection.CanStrip: Boolean;
+begin
+  Result := True;
+end;
+
+function TParamsSection.CanUse(const AParam: TRODLOperationParam): Boolean;
+begin
+  Result := True;
+end;
+
+constructor TParamsSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TBaseOperationSection);
+var
+  DataType: TRODataType;
+begin
+  inherited Create(AParent, AParentSection, 'PARAMS');
+
+  FSections := TParamSubSectionList.Create(True);
+
+  FSections.Add(TIfParamTypeComplexSection.Create(Parent, Self));
+  FSections.Add(TIfParamTypeSimpleSection.Create(Parent, Self));
+  FSections.Add(TIfParamTypeEnumSection.Create(Parent, Self));
+  FSections.Add(TIfParamOtherTypeSection.Create(Parent, Self));
+  for DataType := Low(DataTypeNames) to High(DataTypeNames) do
+    FSections.Add(TIfParamXXXTypeSection.Create(Parent, Self, DataTypeNames[DataType]));
+end;
+
+destructor TParamsSection.Destroy;
+begin
+  FSections.Free;
+  
+  inherited Destroy;
+end;
+
+procedure TParamsSection.EnsureStripping(var curLine: string; IsLastParam: Boolean);
+begin
+  if IsLastParam and CanStrip then
+  begin
+    curLine := StrEnsureNoSuffix(';', TrimRight(curLine));
+    curLine := StrEnsureNoSuffix(',', TrimRight(curLine));
+  end;
+end;
+
+class function TParamsSection.GetAttributeReplacement(const dataType: string): string;
+begin
+  Result := '';
+  if LowerCase(dataType) = 'datetime' then
+    Result := 'paIsDateTime';
+end;
+
+class procedure TParamsSection.DoAttributeReplacements(var curLine: string;
+  const dataType, prefix: string);
+var
+  replacement: string;
+begin
+  replacement := GetAttributeReplacement(dataType);
+
+  MacroReplace(curLine, '%',
+               [prefix  + '_ATTRIBUTE', replacement
+               ])
+end;
+
+procedure TParamsSection.DoReplacements(var curLine: string;
+  const aParameter: TRODLOperationParam;
+  const aLibrary: TRODLLibrary);
+begin
+  Parent.DoDefaultReplacements(curLine, aLibrary);
+  DoRODLEntityReplacements(curLine, aParameter, 'PARAM');
+  DoAttributeReplacements(curLine, aParameter.DataType, 'PARAM');
+  MacroReplace(curLine, '%',
+               ['PARAM_FRONT_MODIFIER', Parent.GetParamFrontModifier(aParameter.Flag),
+                'PARAM_BACK_MODIFIER', Parent.GetParamBackModifier(aParameter.Flag),
+                'PARAM_TYPE', Parent.GetTypeIdentifier(aParameter.DataType),
+                'PARAM_TYPE_RAW', aParameter.DataType,
+                'PARAM_READER_WRITER', CachedDataTypeToObjCReaderWriterFn(aParameter.DataType, aLibrary),  // todo: asbtract?
+                'PARAM_TYPE_NAME', Parent.GetTypeIdentifier(aParameter.DataType, false)
+               ]);
+end;
+
+function TParamsSection.InternalSectionStart(const line: string;
+  var section: TParamSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TParamsSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService);
+var
+  I, J: Integer;
+  curLine: string;
+  curParam: TRODLOperationParam;
+  section: TParamSubSection;
+  IsLastParam: Boolean;
+begin
+  for I := 0 to aOperation.Count - 1 do
+  begin
+    curParam := aOperation.Items[I];
+    if CanUse(curParam) then
+    begin
+      sectionTemplate.Position := 0;
+      while not sectionTemplate.Eof do
+      begin
+        curLine := sectionTemplate.ReadLine;
+
+        DoReplacements(curLine, curParam, aLibrary);
+
+        IsLastParam := (I = aOperation.Count-1);
+        // it may happen that no parameters after the current one is usable,
+        // hence making it effectively the last one.
+        if not IsLastParam then
+        begin
+          J := I + 1;
+          while (J < aOperation.Count) and not CanUse(aOperation.Items[J]) do
+            Inc(J);
+
+          IsLastParam := J = aOperation.Count;
+        end;
+
+        if InternalSectionStart(curLine, section) then
+        begin
+          section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, curParam, IsLastParam);
+        end
+        else
+        begin
+          EnsureStripping(curLine, sectionTemplate.Eof and IsLastParam);
+
+          Write(curLine);
+        end;
+      end;
+    end;
+  end;
+end;
+
+{ TParamsNoStripSection }
+
+function TParamsNoStripSection.CanStrip: Boolean;
+begin
+  Result := False;
+end;
+
+constructor TParamsNoStripSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'PARAMS_NO_STRIP';
+end;
+
+{ TIfParamTypeComplexSection }
+
+function TIfParamTypeComplexSection.CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := Parent.IsImplementedAsClass(aParameter.DataType, aLibrary);
+end;
+
+constructor TIfParamTypeComplexSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_PARAM_TYPE_COMPLEX');
+end;
+
+{ TIfParamTypeSimpleSection }
+
+function TIfParamTypeSimpleSection.CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := not Parent.IsImplementedAsClass(aParameter.DataType, aLibrary) and
+     (Parent.GlobalOrderedEnums.IndexOf(aParameter.DataType) < 0);
+end;
+
+constructor TIfParamTypeSimpleSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_PARAM_TYPE_SIMPLE');
+end;
+
+{ TIfParamTypeEnumSection }
+
+function TIfParamTypeEnumSection.CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := Parent.GlobalOrderedEnums.IndexOf(aParameter.DataType) > -1;
+end;
+
+constructor TIfParamTypeEnumSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_PARAM_TYPE_ENUM');
+end;
+
+{ TIfStructHasAncestor }
+
+function TIfStructHasAncestor.CanUse(const aStruct: TRODLBaseStruct;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := aStruct.Ancestor <> '';
+end;
+
+constructor TIfStructHasAncestor.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_STRUCT_HAS_ANCESTOR');
+end;
+
+{ TFieldsSection }
+
+function TFieldsSection.CanStrip: Boolean;
+begin
+  Result := True;
+end;
+
+constructor TFieldsSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection);
+var
+  DataType: TRODataType;
+begin
+  inherited Create(AParent, AParentSection, 'FIELDS');
+
+  FSections := TFieldSubSectionList.Create(True);
+  
+  FSections.Add(TIfFieldTypeComplexSection.Create(AParent, Self));
+  FSections.Add(TIfFieldTypeSimpleSection.Create(AParent, Self));
+  FSections.Add(TIfFieldTypeEnumSection.Create(AParent, Self));
+  FSections.Add(TIfStringFieldSection.Create(AParent, Self));
+  FSections.Add(TIfCurrencyFieldSection.Create(AParent, Self));
+  FSections.Add(TIfDecimalFieldSection.Create(AParent, Self));
+  FSections.Add(TIfVariantFieldSection.Create(AParent, Self));
+  FSections.Add(TIfFieldArrayTypeSection.Create(AParent, Self));
+  FSections.Add(TIfFieldEnumTypeSection.Create(AParent, Self));
+  FSections.Add(TIfFieldStructTypeSection.Create(AParent, Self));
+  FSections.Add(TIfFieldHasDefaultValue.Create(AParent, Self));
+  for DataType := Low(DataType) to High(DataType) do
+    FSections.Add(TIfFieldXXXTypeSection.Create(AParent, Self, DataTypeNames[DataType]));
+  FSections.Add(TIfFieldXXXTypeSection.Create(AParent, Self, 'Utf8String'));
+end;
+
+destructor TFieldsSection.Destroy;
+begin
+  FSections.Free;
+  
+  inherited Destroy;
+end;
+
+procedure TFieldsSection.ProcessField(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; AField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; IsLastField: Boolean);
+var
+  section: TFieldSubSection;
+  curLine: string;
+begin
+  sectionTemplate.Position := 0;
+  while not sectionTemplate.Eof do
+  begin
+    curLine := sectionTemplate.ReadLine;
+    DoReplacements(curLine, AField, aStruct, aLibrary);
+    if InternalSectionStart(curLine, section) then
+    begin
+      section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, AField, aStruct, IsLastField);
+    end
+    else
+    begin
+      EnsureStripping(curLine, sectionTemplate.Eof and IsLastField);
+      Write(curLine);
+    end;
+  end;
+end;
+
+procedure TFieldsSection.DoReplacements(var curLine: string;
+  curField: TRODLTypedEntity; const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary);
+begin
+  DoRODLEntityReplacements(curLine, curField, 'FIELD');
+  DoRODLEntityReplacements(curLine, curField, 'ORIGINALFIELD');
+  MacroReplace(curLine, '%', ['FIELD_TYPE', Parent.GetTypeIdentifier(curField.DataType),
+                              'FIELD_TYPE_NAME', Parent.GetTypeIdentifier(curField.DataType, false),
+                              'FIELD_TYPE_RAW', curField.DataType,
+                              'FIELD_READER_WRITER', CachedDataTypeToObjCReaderWriterFn(curField.DataType, aLibrary),  // todo: asbtract?
+                              'FIELD_TYPE_READER_WRITER', CachedDataTypeToObjCReaderWriterFn(curField.DataType, aLibrary),  // todo: asbtract?
+                              'FIELD_TYPE_CODING_READER_WRITER', CachedDataTypeToObjCCodingReaderWriterFn(curField.DataType, aLibrary)  // todo: asbtract?
+]);
+  MacroReplace(curLine, '%', ['DEFAULT_VALUE',curField.Attributes.Values['Default']]);
+
+  ParentSection.DoReplacements(curLine, aStruct, aLibrary);
+end;
+
+procedure TFieldsSection.EnsureStripping(var curLine: string;
+  IsLastField: Boolean);
+begin
+  if IsLastField and CanStrip then
+  begin
+    curLine := StrEnsureNoSuffix(';', TrimRight(curLine));
+    curLine := StrEnsureNoSuffix(',', TrimRight(curLine));
+  end;
+end;
+
+function TFieldsSection.InternalSectionStart(const line: string;
+  var section: TFieldSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TFieldsSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct);
+var
+  I: Integer;
+begin
+  for I := 0 to aStruct.Count - 1 do
+  begin
+    ProcessField(sectionTemplate, aLibrary, aStruct.Items[I], aStruct, I = aStruct.Count - 1);
+  end;
+end;
+
+{ TFieldsNoStripSection }
+
+function TFieldsNoStripSection.CanStrip: Boolean;
+begin
+  Result := False;
+end;
+
+constructor TFieldsNoStripSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'FIELDS_NO_STRIP';
+end;
+
+{ TAncestorFieldsSection }
+
+function TAncestorFieldsSection.CanStrip: Boolean;
+begin
+  Result := False;
+end;
+
+constructor TAncestorFieldsSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'ANCESTOR_FIELDS';
+end;
+
+procedure TAncestorFieldsSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct);
+var
+  I: Integer;
+  ancestorStruct: TRODLBaseStruct;
+begin
+  ancestorStruct := aLibrary.FindBaseStruct(aStruct.Ancestor);
+  if Assigned(ancestorStruct) then
+  begin
+    for I := 0 to ancestorStruct.Count - 1 do
+    begin
+      ProcessField(sectionTemplate, aLibrary, ancestorStruct.Items[I], ancestorStruct, I = ancestorStruct.Count - 1);
+    end;
+  end;
+end;
+
+{ TEntireHierarchyFieldsSection }
+
+function TEntireHierarchyFieldsSection.CanStrip: Boolean;
+begin
+  Result := False;
+end;
+
+constructor TEntireHierarchyFieldsSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'ENTIRE_HIERARCHY_FIELDS';
+end;
+
+procedure TEntireHierarchyFieldsSection.ProcessTemplate(
+  sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+  const aStruct: TRODLBaseStruct);
+var
+  I: Integer;
+  List: IROStrings;
+begin
+  List := aStruct.CalcItemsMarshalingOrder(True);
+
+  // remove duplicates
+  I := 0;
+  while I < List.Count - 1 do
+  begin
+    if List[I] = List[I + 1] then
+      List.Delete(I)
+    else
+      Inc(I);
+  end;
+    
+  // process
+  for I := 0 to List.Count - 1 do
+    ProcessField(sectionTemplate, aLibrary, TRODLTypedEntity(List.objects[i]), aStruct, I = List.Count - 1);
+  List:=nil;
+end;
+
+{ TIfFieldXXXTypeSection }
+
+function TIfFieldXXXTypeSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := SameText(aField.DataType, FDataType);
+end;
+
+constructor TIfFieldXXXTypeSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TFieldsSection; const DataType: string);
+begin
+  FDataType := DataType;
+  inherited Create(AParent, AParentSection, 'IF_FIELD_' + UpperCase(FDataType) + '_TYPE');
+end;
+
+{ TIfFieldArrayTypeSection }
+
+function TIfFieldArrayTypeSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.GlobalOrderedArrays.Find(aField.DataType) >= 0;
+end;
+
+constructor TIfFieldArrayTypeSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_FIELD_ARRAY_TYPE');
+end;
+
+{ TIfFieldEnumTypeSection }
+
+function TIfFieldEnumTypeSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.GlobalOrderedEnums.Find(aField.DataType) >= 0;
+end;
+
+constructor TIfFieldEnumTypeSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_FIELD_ENUM_TYPE');
+end;
+
+{ TIfFieldStructTypeSection }
+
+function TIfFieldStructTypeSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.GlobalOrderedStructs.Find(aField.DataType) >= 0;
+end;
+
+constructor TIfFieldStructTypeSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_FIELD_STRUCT_TYPE');
+end;
+
+{ TIfFieldTypeComplexSection }
+
+function TIfFieldTypeComplexSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := Parent.IsImplementedAsClass(aField.DataType, aLibrary);
+end;
+
+constructor TIfFieldTypeComplexSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_FIELD_TYPE_COMPLEX');
+
+  FSections := TFieldSubSectionList.Create(True);
+  FSections.Add(TIfAutoCreateFieldsSection.Create(Parent, ParentSection)); 
+  FSections.Add(TIfNotAutoCreateFieldsSection.Create(Parent, ParentSection));
+end;
+
+destructor TIfFieldTypeComplexSection.Destroy;
+begin
+  FSections.Free;
+
+  inherited Destroy;
+end;
+
+function TIfFieldTypeComplexSection.InternalSectionStart(const line: string;
+  var section: TFieldSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TIfFieldTypeComplexSection.ProcessTemplate(
+  sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+  const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct;
+  const IsLastField: Boolean);
+var
+  curLine: string;
+  section: TFieldSubSection;
+begin
+  if Parent.IsImplementedAsClass(aField.DataType, aLibrary) then
+  begin
+    sectionTemplate.Position := 0;
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+
+      ParentSection.DoReplacements(curLine, aField, aStruct, aLibrary);
+      ParentSection.EnsureStripping(curLine, IsLastField);
+
+      if InternalSectionStart(curLine, section) then
+      begin
+        section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, aField, aStruct, IsLastField);
+      end
+      else
+      begin
+        Write(curLine);
+      end;
+    end;
+  end;
+end;
+
+{ TIfAutoCreateFieldsSection }
+
+function TIfAutoCreateFieldsSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := aStruct.AutoCreateParams;
+end;
+
+constructor TIfAutoCreateFieldsSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_AUTO_CREATE_FIELDS');
+end;
+
+{ TIfNotAutoCreateFieldsSection }
+
+function TIfNotAutoCreateFieldsSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := not aStruct.AutoCreateParams;
+end;
+
+constructor TIfNotAutoCreateFieldsSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_NOT_AUTO_CREATE_FIELDS');
+end;
+
+{ TIfFieldTypeSimpleSection }
+
+function TIfFieldTypeSimpleSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := not Parent.IsImplementedAsClass(aField.DataType, Parent.FLibrary) and
+            (Parent.GlobalOrderedEnums.IndexOf(aField.DataType) < 0);
+end;
+
+constructor TIfFieldTypeSimpleSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_FIELD_TYPE_SIMPLE');
+end;
+
+{ TIfFieldTypeEnumSection }
+
+function TIfFieldTypeEnumSection.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.GlobalOrderedEnums.IndexOf(aField.DataType) > -1;
+end;
+
+constructor TIfFieldTypeEnumSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_FIELD_TYPE_ENUM');
+end;
+
+{ TIfStringFieldSection }
+
+constructor TIfStringFieldSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, DataTypeNames[rtString]);
+  FName := 'IF_STRING_FIELD';
+end;
+
+{ TIfCurrencyFieldSection }
+
+constructor TIfCurrencyFieldSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, DataTypeNames[rtCurrency]);
+  FName := 'IF_CURRENCY_FIELD';
+end;
+
+{ TIfDecimalFieldSection }
+
+constructor TIfDecimalFieldSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, DataTypeNames[rtDecimal]);
+  FName := 'IF_DECIMAL_FIELD';
+end;
+
+{ TIfVariantFieldSection }
+
+constructor TIfVariantFieldSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, DataTypeNames[rtVariant]);
+  FName := 'IF_VARIANT_FIELD';
+end;
+
+{ TIfHasFieldsSection }
+
+function TIfHasFieldsSection.CanUse(const aStruct: TRODLBaseStruct;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := aStruct.Count > 0;
+end;
+
+constructor TIfHasFieldsSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_HAS_FIELDS');
+
+  FSections := TBaseStructSubSectionList.Create(True);
+
+  FSections.Add(TIfStructHasAncestor.Create(AParent, AParentSection));
+  FSections.Add(TFieldsSection.Create(AParent, AParentSection));
+  FSections.Add(TFieldsNoStripSection.Create(AParent, AParentSection));
+  FSections.Add(TAncestorFieldsSection.Create(AParent, AParentSection));
+  FSections.Add(TEntireHierarchyFieldsSection.Create(AParent, AParentSection));
+end;
+
+destructor TIfHasFieldsSection.Destroy;
+begin
+  FSections.Free;
+
+  inherited Destroy;
+end;
+
+procedure TIfHasFieldsSection.DoReplacements(var curLine: string;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary);
+begin
+  ParentSection.DoReplacements(curLine, aStruct, aLibrary);
+end;
+
+function TIfHasFieldsSection.InternalSectionStart(const line: string;
+  var section: TBaseStructSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < FSections.Count) and not Result do
+  begin
+    if SectionStart(line, FSections[I].Name) then
+    begin
+      Result := True;
+      section := FSections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TIfHasFieldsSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct);
+var
+  curLine: string;
+  section: TBaseStructSubSection;
+begin
+  if aStruct.Count > 0 then
+  begin
+    sectionTemplate.Position := 0;
+
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+
+      DoReplacements(curLine, aStruct, aLibrary);
+
+      if InternalSectionStart(curLine, section) then
+        section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, aStruct)
+      else
+        Write(curLine);
+    end;
+  end;
+end;
+
+{ TIfDataModuleSection }
+
+function TIfDataModuleSection.CanUse(const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := Parent.WriteDataModule;
+end;
+
+constructor TIfDataModuleSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'IF_DATA_MODULE');
+end;
+
+{ TIfDataModuleServiceSection }
+
+function TIfDataModuleServiceSection.CanUse(
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := Parent.WriteDataModule;
+end;
+
+constructor TIfDataModuleServiceSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_DATA_MODULE');
+end;
+
+{ TIfHydraSection }
+
+function TIfHydraSection.CanUse(const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := FIsHydraModule;
+end;
+
+constructor TIfHydraSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'IF_HYDRA');
+
+  FIsHydraModule := IsHydraModule; // put value in cache
+end;
+
+{ TIfWSDLSection }
+
+function TIfWSDLSection.CanUse(const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := aLibrary.Info.Attributes.Values['Wsdl'] <> '';
+end;
+
+constructor TIfWSDLSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'IF_WSDL');
+end;
+
+procedure TIfWSDLSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary);
+var
+  curLine: string;
+begin
+  if CanUse(aLibrary) then begin
+    curLine := RemoveSectionElse(Name, sectionText);
+    MacroReplace(curLine, '%',
+                 ['WSDL_LOCATION', aLibrary.Info.Attributes.Values['Wsdl']
+                 ]);
+  end
+  else begin
+    curLine := ExtractSectionElse(Name, sectionText);
+  end;
+  Write(curLine);
+end;
+
+{ TAncestorServicesSection }
+
+constructor TAncestorServicesSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TBaseServiceSection);
+begin
+  inherited Create(AParent, AParentSection, 'ANCESTOR_SERVICES');
+end;
+
+procedure TAncestorServicesSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aService: TRODLBaseService);
+var
+  ancestors: TStringList;
+  curService: TRODLBaseService;
+  I: Integer;
+  curLine: string;
+begin
+  ancestors := TStringList.Create;
+  try
+    // build the ancestor's list
+    curService := aService;
+    while Assigned(curService) and (Length(curService.Ancestor) > 0) do
+    begin
+      ancestors.Add(curService.Ancestor);
+      curService := aLibrary.FindService(curService.Ancestor);
+    end;
+
+    // process it
+    for I := 0 to ancestors.Count - 1 do
+    begin
+      curLine := sectionText;
+
+      MacroReplace(curLine, '%',
+                   ['ANCESTOR_SERVICE_NAME', ancestors[I]
+                   ]);
+
+      inherited Process(curLine, aLibrary, aService);
+    end;
+  finally
+    ancestors.Free;
+  end;
+end;
+
+{ TIfHasComplexTypeSection }
+
+function TIfHasComplexTypeSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := OperationHasComplexType(aOperation, aLibrary);
+end;
+
+constructor TIfHasComplexTypeSection.Create(
+  AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_HAS_COMPLEX_TYPE');
+
+  FSections := TBaseProcedureSubSectionList.Create(True);
+
+  FSections.Add(TIfResultComplexSection.Create(AParent, AParentSection));
+  FSections.Add(TIfResultSimpleSection.Create(AParent, AParentSection));
+  FSections.Add(TIfResultEnumSection.Create(AParent, AParentSection));
+  FSections.Add(TParamsNoStripSection.Create(AParent, AParentSection));
+  FSections.Add(TOutParamsNoStripSection.Create(AParent, AParentSection));
+end;
+
+destructor TIfHasComplexTypeSection.Destroy;
+begin
+  FSections.Free;
+
+  inherited Destroy;
+end;
+
+function TIfHasComplexTypeSection.InternalSectionStart(const line: string;
+  var section: TBaseProcedureSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+function TIfHasComplexTypeSection.OperationHasComplexType(
+  const aOperation: TRODLOperation; const aLibrary: TRODLLibrary): Boolean;
+var
+  I: Integer;
+begin
+  Result := (Assigned(aOperation.Result) and Parent.IsImplementedAsClass(aOperation.Result.DataType, aLibrary));
+  I := 0;
+  while not Result and (I < aOperation.Count) do
+  begin
+    Result := Parent.IsImplementedAsClass(aOperation.Items[I].DataType, aLibrary);
+    Inc(I);
+  end;
+end;
+
+procedure TIfHasComplexTypeSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService);
+var
+  curLine: string;
+  section: TBaseProcedureSubSection;
+begin
+  if OperationHasComplexType(aOperation, aLibrary) then
+  begin
+    sectionTemplate.Position := 0;
+
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+
+      if InternalSectionStart(curLine, section) then
+        section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, aOperation, aService)
+      else
+        Write(curLine);
+    end;
+  end;
+end;
+
+{ TIfArrayTypeSimple }
+
+function TIfArrayTypeSimpleSection.CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := not Parent.IsImplementedAsClass(aArray.ElementType, aLibrary) and
+            (Parent.GlobalOrderedEnums.IndexOf(aArray.ElementType) < 0);
+end;
+
+constructor TIfArrayTypeSimpleSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TArraysSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_TYPE_SIMPLE');
+end;
+
+{ TIfArrayTypeEnum }
+
+function TIfArrayTypeEnumSection.CanUse(const aArray: TRODLArray; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.GlobalOrderedEnums.IndexOf(aArray.ElementType) > -1;
+end;
+
+constructor TIfArrayTypeEnumSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TArraysSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_TYPE_ENUM');
+end;
+
+{ TIfArrayTypeComplex }
+
+function TIfArrayTypeComplexSection.CanUse(const aArray: TRODLArray;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.IsImplementedAsClass(aArray.ElementType, aLibrary);
+end;
+
+constructor TIfArrayTypeComplexSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TArraysSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_TYPE_COMPLEX');
+end;
+
+{ TIfArrayXXXTypeSection }
+
+function TIfArrayXXXTypeSection.CanUse(const aArray: TRODLArray;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := SameText(aArray.ElementType, FDataType);
+end;
+
+constructor TIfArrayXXXTypeSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TArraysSection; const DataType: string);
+begin
+  FDataType := DataType;
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_' + UpperCase(DataType) + '_TYPE');
+end;
+
+{ TIfArrayArrayTypeSection }
+
+function TIfArrayArrayTypeSection.CanUse(const aArray: TRODLArray;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.GlobalOrderedArrays.Find(aArray.ElementType) >= 0;
+end;
+
+constructor TIfArrayArrayTypeSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_ARRAY_TYPE');
+end;
+
+{ TIfArrayEnumTypeSection }
+
+function TIfArrayEnumTypeSection.CanUse(const aArray: TRODLArray;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.GlobalOrderedEnums.Find(aArray.ElementType) >= 0;
+end;
+
+constructor TIfArrayEnumTypeSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TArraysSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_ENUM_TYPE');
+end;
+
+{ TIfArrayStructTypeSection }
+
+function TIfArrayStructTypeSection.CanUse(const aArray: TRODLArray;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := Parent.GlobalOrderedStructs.Find(aArray.ElementType) >= 0;
+end;
+
+constructor TIfArrayStructTypeSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_STRUCT_TYPE');
+end;
+
+{ TInParamsSection }
+
+function TInParamsSection.CanUse(const AParam: TRODLOperationParam): Boolean;
+begin
+  Result := AParam.Flag in IN_FLAGS;
+end;
+
+constructor TInParamsSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'IN_PARAMS';
+end;
+
+{ TInParamsNoStripSection }
+
+function TInParamsNoStripSection.CanStrip: Boolean;
+begin
+  Result := False;
+end;
+
+constructor TInParamsNoStripSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'IN_PARAMS_NO_STRIP';
+end;
+
+{ TOutParamsSection }
+
+function TOutParamsSection.CanUse(const AParam: TRODLOperationParam): Boolean;
+begin
+  Result := AParam.Flag in OUT_FLAGS;
+end;
+
+constructor TOutParamsSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'OUT_PARAMS';
+end;
+
+{ TOutParamsNoStripSection }
+
+function TOutParamsNoStripSection.CanStrip: Boolean;
+begin
+  Result := False;
+end;
+
+constructor TOutParamsNoStripSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'OUT_PARAMS_NO_STRIP';
+end;
+
+{ TIfOutParamsSection }
+
+function TIfOutParamsSection.CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  I := 0;
+  while not Result and (I < aOperation.Count) do
+  begin
+    if aOperation.Items[I].Flag in OUT_FLAGS then
+      Result := True;
+    Inc(I);
+  end;
+end;
+
+constructor TIfOutParamsSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_OUT_PARAMS');
+
+  FSections := TBaseProcedureSubSectionList.Create(True);
+  
+  FSections.Add(TOutParamsSection.Create(AParent, AParentSection));
+  FSections.Add(TOutParamsNoStripSection.Create(AParent, AParentSection));
+end;
+
+destructor TIfOutParamsSection.Destroy;
+begin
+  FSections.Free;
+
+  inherited Destroy;
+end;
+
+function TIfOutParamsSection.InternalSectionStart(const line: string;
+  var section: TBaseProcedureSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < Sections.Count) and not Result do
+  begin
+    if SectionStart(line, Sections[I].Name) then
+    begin
+      Result := True;
+      section := Sections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TIfOutParamsSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aOperation: TRODLOperation; const aService: TRODLBaseService);
+var
+  curLine: string;
+  section: TBaseProcedureSubSection;
+begin
+  if CanUse(aOperation, aService, aLibrary) then
+  begin
+    sectionTemplate.Position := 0;
+
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+
+      ParentSection.DoReplacements(curLine, aOperation, aService, aLibrary);
+
+      if InternalSectionStart(curLine, section) then
+        section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, aOperation, aService)
+      else
+        Write(curLine);
+    end;
+  end;
+end;
+
+{ TIfNoOutParamsSection }
+
+constructor TIfNoOutParamsSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'IF_NO_OUT_PARAMS';
+end;
+
+function TIfNoOutParamsSection.CanUse(const aOperation: TRODLOperation; const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := not inherited CanUse(aOperation, aService, aLibrary);
+end;
+
+{ TResultSection }
+
+function TIfResultComplexSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := assigned(aOperation.Result) and Parent.IsImplementedAsClass(aOperation.Result.DataType, aLibrary);
+end;
+
+constructor TIfResultComplexSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_RESULT_COMPLEX');
+end;
+
+{ TIfResultSimpleSection }
+
+function TIfResultSimpleSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := assigned(aOperation.Result) and
+    not Parent.IsImplementedAsClass(aOperation.Result.DataType, aLibrary) and
+   (Parent.GlobalOrderedEnums.IndexOf(aOperation.Result.DataType) = -1)
+end;
+
+constructor TIfResultSimpleSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_RESULT_SIMPLE');
+end;
+
+{ TIfResultEnumSection }
+
+function TIfResultEnumSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := assigned(aOperation.Result) and (Parent.GlobalOrderedEnums.IndexOf(aOperation.Result.DataType) > -1);
+end;
+
+constructor TIfResultEnumSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_RESULT_ENUM');
+end;
+
+{ TArraysIsFound }
+
+constructor TArraysIsFound.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection);
+begin
+  inherited Create(AParent, AParentSection, 'ARRAYS_IS_FOUND');
+end;
+
+procedure TArraysIsFound.DoReplacements(var curLine: string;
+  const aArrayName: string; const aStruct: TRODLBaseStruct;
+  const aLibrary: TRODLLibrary);
+begin
+  MacroReplace(curLine, '%',
+               ['ARRAY_NAME', aArrayName
+               ]);
+  ParentSection.DoReplacements(curLine, aStruct, aLibrary);
+end;
+
+procedure TArraysIsFound.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct);
+var
+  curIndex: Integer;
+  curLine: string;
+  aList: TStringList;
+  s: string;
+begin
+  aList := TStringList.Create;
+  try
+    aLibrary.GetArraysByElement(AStruct.Name,aList);
+    AList.Sorted := True;
+    s:='';
+    for curIndex := 0 to aList.Count - 1 do begin
+      if aList[curIndex] = s then Continue;
+      s := aList[curIndex];
+      sectionTemplate.Position := 0;
+      while not sectionTemplate.Eof do begin
+        curLine := sectionTemplate.ReadLine;
+        DoReplacements(curLine, aList[curIndex], aStruct, aLibrary);
+        Write(curLine);
+      end;
+    end;
+  finally
+    aList.Free;
+  end;
+end;
+
+{ TIfParamTypeSection }
+
+function TIfParamXXXTypeSection.CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := SameText(aParameter.DataType, FDataType);
+end;
+
+constructor TIfParamXXXTypeSection.Create(AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TParamsSection; const DataType: string);
+begin
+  FDataType := DataType;
+  inherited Create(AParent, AParentSection, 'IF_PARAM_' + UpperCase(FDataType) + '_TYPE');
+end;
+
+{ TIfParamOtherTypeSection }
+
+function TIfParamOtherTypeSection.CanUse(const aParameter: TRODLOperationParam; const aLibrary: TRODLLibrary): Boolean;
+var
+  DataType: TRODataType;
+  Found: Boolean;
+begin
+  Found := False;
+  DataType := Low(DataTypeNames);
+  while not Found and (DataType <> High(DataTypeNames)) do
+  begin
+    Found := SameText(DataTypeNames[DataType], aParameter.DataType);
+    DataType := Succ(DataType);
+  end;
+  result := not Found;
+end;
+
+constructor TIfParamOtherTypeSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TParamsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_PARAM_OTHER_TYPE');
+end;
+
+{ TIfResultXXXTypeSection }
+
+function TIfResultXXXTypeSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := Assigned(aOperation.Result) and SameText(aOperation.Result.DataType, FDataType);
+end;
+
+constructor TIfResultXXXTypeSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection; const DataType: string);
+begin
+  FDataType := DataType;
+
+  inherited Create(AParent, AParentSection, 'IF_RESULT_' + UpperCase(FDataType) + '_TYPE');
+end;
+
+{ TIfResultOtherTypeSection }
+
+function TIfResultOtherTypeSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+var
+  DataType: TRODataType;
+  Found: Boolean;
+begin
+  result := False;
+  if Assigned(aOperation.Result) then
+  begin
+    Found := False;
+    DataType := Low(DataTypeNames);
+    while not Found and (DataType <> High(DataTypeNames)) do
+    begin
+      Found := SameText(DataTypeNames[DataType], aOperation.Result.DataType);
+      DataType := Succ(DataType);
+    end;
+    result := not Found;
+  end;
+end;
+
+constructor TIfResultOtherTypeSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_RESULT_OTHER_TYPE');
+end;
+
+{ TIfArrayNOTXXXTypeSection }
+
+function TIfArrayNOTXXXTypeSection.CanUse(const aArray: TRODLArray;
+  const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := not SameText(aArray.ElementType, FDataType);
+end;
+
+constructor TIfArrayNOTXXXTypeSection.Create(
+  AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TArraysSection; const DataType: string);
+begin
+  FDataType := DataType;
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_NOT_' + UpperCase(DataType) + '_TYPE');
+end;
+
+{ TIfOperationHasResult }
+
+function TIfOperationHasResult.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := assigned(aOperation.Result) and (aOperation.Result.DataType <> '');
+end;
+
+constructor TIfOperationHasResult.Create(
+  AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_OPERATION_HAS_RESULT');
+end;
+
+{ TIfOperationHasInParams }
+
+function TIfOperationHasInParams.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+var i: Integer;
+begin
+  result := false;
+  for i := 0 to aOperation.Count-1 do begin
+    if aOperation.Items[i].Flag in [fIn, fInOut] then begin
+      result := true;
+      exit;
+    end;
+  end;
+end;
+
+constructor TIfOperationHasInParams.Create(
+  AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_OPERATION_HAS_IN_PARAMS');
+end;
+
+{ TIfOperationHasOutParams }
+
+function TIfOperationHasOutParams.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+var i: Integer;
+begin
+  result := false;
+  for i := 0 to aOperation.Count-1 do begin
+    if aOperation.Items[i].Flag in [fOut, fInOut] then begin
+      result := true;
+      exit;
+    end;
+  end;
+end;
+
+constructor TIfOperationHasOutParams.Create(
+  AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_OPERATION_HAS_OUT_PARAMS');
+end;
+
+{ TStructGenerateDefaultValues }
+
+constructor TStructGenerateDefaultValues.Create(
+  AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection);
+begin
+  inherited Create(AParent, AParentSection, 'STRUCT_GENERATE_DEFAULT_VALUES');
+end;
+
+
+procedure TStructGenerateDefaultValues.ProcessTemplate(
+  sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+  const aStruct: TRODLBaseStruct);
+var
+  temp: Boolean;
+  i: integer;
+  curLine: String;
+  section: TBaseStructSubSection;
+begin
+  temp := False;
+  For i:=0 to aStruct.Count-1 do begin
+    if (not Parent.IsImplementedAsClass(aStruct.Items[i].DataType, aLibrary)) and
+       (aStruct.Items[i].Attributes.IndexOfName('Default') <> -1) then begin
+         temp := True;
+         Break;
+       end;
+  end;
+
+  if temp then begin
+    sectionTemplate.Position := 0;
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+      ParentSection.DoReplacements(curLine, aStruct, aLibrary);
+      if ParentSection.InternalSectionStart(curLine, section) then
+        section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, aStruct)
+      else
+        Write(curLine);
+    end;
+  end;
+end;
+
+{ TIfFieldHasDefaultValue }
+
+function TIfFieldHasDefaultValue.CanUse(const aField: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := not Parent.IsImplementedAsClass(aField.DataType, Parent.FLibrary) and
+            (aField.Attributes.IndexOfName('Default') <> -1);
+end;
+
+constructor TIfFieldHasDefaultValue.Create(
+  AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TFieldsSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_FIELD_HAS_DEFAULT_VALUE');
+end;
+
+procedure TIfFieldHasDefaultValue.ProcessTemplate(
+  sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+  const aField: TRODLTypedEntity; const aStruct: TRODLBaseStruct;
+  const IsLastField: Boolean);
+var
+  curLine: string;
+  section: TFieldSubSection;
+begin
+  if not Parent.IsImplementedAsClass(aField.DataType, Parent.FLibrary) and
+            (aField.Attributes.IndexOfName('Default') <> -1) then begin
+    sectionTemplate.Position := 0;
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+
+      ParentSection.DoReplacements(curLine, aField, aStruct, aLibrary);
+      ParentSection.EnsureStripping(curLine, IsLastField);
+
+      if ParentSection.InternalSectionStart(curLine, section) then
+        section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, aField, aStruct, IsLastField)
+      else
+        Write(curLine);
+    end;
+  end;
+end;
+
+{ TIfStructHasAttributesSection }
+
+function TIfStructHasAttributesSection.CanUse(
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary): Boolean;
+begin
+  result := aStruct.Attributes.Count > 0
+end;
+
+constructor TIfStructHasAttributesSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TBaseStructSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_STRUCT_HAS_ATTRIBUTES');
+
+  FSections := TAttributeSubSectionList.Create(True);
+  FSections.Add(TAttributesSection.Create(AParent, AParentSection));
+  FSections.Add(TAttributesNoStripSection.Create(AParent, AParentSection));
+end;
+
+destructor TIfStructHasAttributesSection.Destroy;
+begin
+  FSections.Free;
+  inherited Destroy;
+end;
+
+procedure TIfStructHasAttributesSection.DoReplacements(var curLine: string;
+  const aStruct: TRODLBaseStruct; const aLibrary: TRODLLibrary);
+begin
+  MacroReplace(curLine, '%',['ATTRIBUTES_COUNT', IntToStr(aStruct.Attributes.Count)]);
+  ParentSection.DoReplacements(curLine, aStruct, aLibrary);
+end;
+
+function TIfStructHasAttributesSection.InternalSectionStart(const line: string;
+  var section: TAttributeSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < FSections.Count) and not Result do
+  begin
+    if SectionStart(line, FSections[I].Name) then
+    begin
+      Result := True;
+      section := FSections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+
+procedure TIfStructHasAttributesSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aStruct: TRODLBaseStruct);
+var
+  curLine: string;
+  section: TAttributeSubSection;
+begin
+  if aStruct.Attributes.Count > 0 then
+  begin
+    sectionTemplate.Position := 0;
+
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+
+      DoReplacements(curLine, aStruct, aLibrary);
+
+      if InternalSectionStart(curLine, section) then
+        section.Process(FinishSection(section.Name, sectionTemplate),aLibrary, aStruct)
+      else
+        Write(curLine);
+    end;
+  end;
+end;
+
+{ TAttributeSubSectionList }
+
+function TAttributeSubSectionList.Add(AObject: TAttributeSubSection): Integer;
+begin
+  Result := inherited Add(AObject);
+end;
+
+function TAttributeSubSectionList.GetItem(Index: Integer): TAttributeSubSection;
+begin
+  Result := inherited Items[Index] as TAttributeSubSection;
+end;
+
+procedure TAttributeSubSectionList.SetItem(Index: Integer;
+  const Value: TAttributeSubSection);
+begin
+  inherited Items[Index] := Value;
+end;
+
+{ TAttributeSubSection }
+
+function TAttributeSubSection.CanUse(const aAttribute: TRODLTypedEntity;
+  const aStruct: TRODLBaseStruct): Boolean;
+begin
+  Result := True;
+end;
+
+constructor TAttributeSubSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TTemplatedSection; const AName: string);
+begin
+  inherited Create(AParent, AName);
+
+  FParentSection := AParentSection;
+end;
+
+procedure TAttributeSubSection.Process(const sectionText: string; const aLibrary: TRODLLibrary;
+   const aEntry: TRODLEntity);
+var
+  curLine: string;
+begin
+  curLine := sectionText;
+
+//  ParentSection.DoReplacements(curLine, aEntry, aLibrary);
+
+  inherited Process(curLine, aLibrary);
+end;
+
+{ TTemplatedAttributeSubSection }
+
+procedure TTemplatedAttributeSubSection.Process(const sectionText: string; const aLibrary: TRODLLibrary;
+   const aEntry: TRODLEntity);
+var
+  sectionTemplate: TLineStream;
+begin
+  sectionTemplate := TLineStream.Create(sectionText);
+  try
+    ProcessTemplate(sectionTemplate, aLibrary, aEntry);
+  finally
+    sectionTemplate.Free;
+  end;
+end;
+
+{ TAttributesSection }
+
+function TAttributesSection.CanStrip: Boolean;
+begin
+  Result := True;
+end;
+
+constructor TAttributesSection.Create(AParent: TRODLTemplateBasedConverter;
+  AParentSection: TTemplatedSection);
+begin
+  inherited Create(AParent, AParentSection, 'ATTRIBUTES');
+end;
+
+destructor TAttributesSection.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TAttributesSection.DoReplacements(var curLine: string; curAttributeIndex: integer; const aEntry: TRODLEntity; const aLibrary: TRODLLibrary);
+var
+  aName: string;
+  aValue: string;
+begin
+  aName := aEntry.Attributes.Names[curAttributeIndex];
+  aValue := aEntry.Attributes.Values[aName];
+  MacroReplace(curLine, '%', ['ATTRIBUTE_INDEX', IntToStr(curAttributeIndex),
+                              'ATTRIBUTE_NAME', QuotedStr(aName),
+                              'ATTRIBUTE_VALUE', QuotedStr(AValue)
+                              ]);
+end;
+
+procedure TAttributesSection.ProcessAttribute(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; AAtribututeIndex: integer; const aEntry: TRODLEntity);
+var
+  curLine: string;
+begin
+  sectionTemplate.Position := 0;
+  while not sectionTemplate.Eof do begin
+    curLine := sectionTemplate.ReadLine;
+    DoReplacements(curLine, AAtribututeIndex, aEntry, aLibrary);
+    Write(curLine);
+  end;
+end;
+
+procedure TAttributesSection.ProcessTemplate(sectionTemplate: TLineStream; const aLibrary: TRODLLibrary; const aEntry: TRODLEntity);
+var
+  i: integer;
+begin
+  for i := 0 to aEntry.Attributes.Count - 1 do
+    ProcessAttribute(sectionTemplate, aLibrary, i, aEntry);
+end;
+
+{ TAttributesNoStripSection }
+
+function TAttributesNoStripSection.CanStrip: Boolean;
+begin
+  Result := False;
+end;
+
+constructor TAttributesNoStripSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TTemplatedSection);
+begin
+  inherited Create(AParent, AParentSection);
+
+  FName := 'ATTRIBUTES_NO_STRIP';
+end;
+
+{ TIfArrayHasAttributesSection }
+
+constructor TIfArrayHasAttributesSection.Create(
+  AParent: TRODLTemplateBasedConverter; const AParentSection: TArraysSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_ARRAY_HAS_ATTRIBUTES');
+
+  FSections := TAttributeSubSectionList.Create(True);
+  FSections.Add(TAttributesSection.Create(AParent, AParentSection));
+  FSections.Add(TAttributesNoStripSection.Create(AParent, AParentSection));
+end;
+
+destructor TIfArrayHasAttributesSection.Destroy;
+begin
+  FSections.Free;
+  inherited Destroy;
+end;
+
+procedure TIfArrayHasAttributesSection.DoReplacements(var curLine: string;
+  const aArray: TRODLArray; const aLibrary: TRODLLibrary);
+begin
+  MacroReplace(curLine, '%',['ATTRIBUTES_COUNT', IntToStr(aArray.Attributes.Count)]);
+  ParentSection.DoReplacements(curLine, aArray, aLibrary);
+end;
+
+function TIfArrayHasAttributesSection.InternalSectionStart(const line: string;
+  var section: TAttributeSubSection): Boolean;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := False;
+  while (I < FSections.Count) and not Result do
+  begin
+    if SectionStart(line, FSections[I].Name) then
+    begin
+      Result := True;
+      section := FSections[I];
+    end;
+    Inc(I);
+  end;
+end;
+
+procedure TIfArrayHasAttributesSection.Process(const sectionText: string;
+  const aLibrary: TRODLLibrary; const aArray: TRODLArray);
+var
+  sectionTemplate: TLineStream;
+begin
+  sectionTemplate := TLineStream.Create(sectionText);
+  try
+    ProcessTemplate(sectionTemplate, aLibrary, aArray);
+  finally
+    sectionTemplate.Free;
+  end;
+end;
+
+procedure TIfArrayHasAttributesSection.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary; const aArray: TRODLArray);
+var
+  curLine: string;
+  section: TAttributeSubSection;
+begin
+  if aArray.Attributes.Count > 0 then
+  begin
+    sectionTemplate.Position := 0;
+
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+
+      DoReplacements(curLine, aArray, aLibrary);
+
+      if InternalSectionStart(curLine, section) then
+        section.Process(FinishSection(section.Name, sectionTemplate), aLibrary, aArray)
+      else
+        Write(curLine);
+    end;
+  end;
+end;
+
+{ TIfExceptionHasAttributesSection }
+
+constructor TIfExceptionHasAttributesSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TBaseStructSection);
+begin
+  inherited;
+  FName := 'IF_EXCEPTION_HAS_ATTRIBUTES';
+end;
+
+{ TIfHasOperationAttributesTypeSection }
+
+function TIfHasOperationAttributesSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := (aOperation.Attributes.Count > 0) or (aService.Attributes.Count > 0);
+end;
+
+constructor TIfHasOperationAttributesSection.Create(
+  AParent: TRODLTemplateBasedConverter; AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'IF_HAS_OPEARTION_ATTRIBUTES');
+  FSections := TBaseProcedureSubSectionList.Create;
+  FSections.Add(TOperationAttributesSection.Create(AParent, AParentSection));
+  FSections.Add(TOperationAttributesNostripSection.Create(AParent, AParentSection));
+end;
+
+destructor TIfHasOperationAttributesSection.Destroy;
+begin
+  FSections.Free;
+  inherited;
+end;
+
+function TIfHasOperationAttributesSection.InternalSectionStart(
+  const line: string; var section: TBaseProcedureSubSection): Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  for I := 0 to FSections.Count - 1 do
+    if SectionStart(line, FSections[I].Name) then
+    begin
+      Result := True;
+      section := FSections[I];
+      break;
+    end;
+end;
+
+procedure TIfHasOperationAttributesSection.ProcessTemplate(
+  sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+  const aOperation: TRODLOperation; const aService: TRODLBaseService);
+var
+  curLine: string;
+  section: TBaseProcedureSubSection;
+begin
+  if CanUse(aOperation, aService, aLibrary) then
+  begin
+    sectionTemplate.Position := 0;
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+      if InternalSectionStart(curLine, section) then
+        section.Process(FinishSection(section.Name, sectionTemplate), aLibrary,
+          aOperation, aService)
+      else Write(curLine);
+    end;
+  end;
+end;
+
+{ TOperationAttributesSection }
+
+function TOperationAttributesSection.CanStrip: Boolean;
+begin
+  Result := True;
+end;
+
+function TOperationAttributesSection.CanUse(const aOperation: TRODLOperation;
+  const aService: TRODLBaseService; const aLibrary: TRODLLibrary): Boolean;
+begin
+  Result := (aService.Attributes.Count > 0) or (aLibrary.Attributes.Count > 0) or
+  (aOperation.Attributes.Count > 0);
+end;
+
+constructor TOperationAttributesSection.Create(
+  AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TBaseOperationSection);
+begin
+  inherited Create(AParent, AParentSection, 'OPEARTION_ATTRIBUTES');
+end;
+
+procedure TOperationAttributesSection.DoReplacements(var curLine: string;
+  const aOperation: TRODLOperation; const aService: TRODLBaseService;
+  const aLibrary: TRODLLibrary);
+var
+ lNames, lValues, fill: string;
+ i, p: integer;
+begin
+  p := AnsiPos('%', curLine);
+  if p > 0 then
+  begin
+      fill := DupeString(' ', p - 1);
+      lNames := '';
+      with aLibrary.Attributes do
+        for i := 0 to Count - 1 do
+          lNames := lNames + fill + QuotedStr(Names[i]) + ','#13#10;
+      with aService.Attributes do
+        for i := 0 to Count - 1 do
+          lNames := lNames + fill + QuotedStr(Names[i]) + ','#13#10;
+      with aOperation.Attributes do
+        for i := 0 to Count - 1 do
+          lNames := lNames + fill + QuotedStr(Names[i]) + ','#13#10;
+      lNames := StrEnsureNoSuffix(','#13#10, lNames);
+
+      lValues := '';
+      with aLibrary.Attributes do
+        for i := 0 to Count - 1 do
+          lValues := lValues + fill + QuotedStr(Values[Names[i]]) + ','#13#10;
+      with aService.Attributes do
+        for i := 0 to Count - 1 do
+          lValues := lValues + fill + QuotedStr(Values[Names[i]]) + ','#13#10;
+      with aOperation.Attributes do
+        for i := 0 to Count - 1 do
+          lValues := lValues + fill + QuotedStr(Values[Names[i]]) + ','#13#10;
+      lValues := StrEnsureNoSuffix(','#13#10, lValues);
+
+      MacroReplace(curLine, '%',['OPERATION_ATTRIBUTE_NAMES', lNames,
+        'OPERATION_ATTRIBUTE_VALUES', lValues]);
+  end;
+end;
+
+procedure TOperationAttributesSection.ProcessTemplate(
+  sectionTemplate: TLineStream; const aLibrary: TRODLLibrary;
+  const aOperation: TRODLOperation; const aService: TRODLBaseService);
+var
+  curLine: string;
+begin
+  if CanUse(aOperation, aService, aLibrary) then
+  begin
+    sectionTemplate.Position := 0;
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+      DoReplacements(curLine, aOperation, aService, aLibrary);
+      Write(curLine);
+    end;
+  end;
+end;
+
+{ TOperationAttributesNostripSection }
+
+function TOperationAttributesNostripSection.CanStrip: Boolean;
+begin
+  Result := false;
+end;
+
+constructor TOperationAttributesNostripSection.Create(
+  AParent: TRODLTemplateBasedConverter;
+  const AParentSection: TBaseOperationSection);
+begin
+  inherited;
+  FName := 'OPEARTION_ATTRIBUTES_NO_STRIP';
+end;
+
+{ TTemplatedSectionList }
+
+function TTemplatedSectionList.Add(AObject: TTemplatedSection): Integer;
+begin
+  Result := inherited Add(AObject);
+end;
+
+function TTemplatedSectionList.GetItem(Index: Integer): TTemplatedSection;
+begin
+  Result := inherited GetItem(Index) as TTemplatedSection;
+end;
+
+procedure TTemplatedSectionList.SetItem(Index: Integer;
+  const Value: TTemplatedSection);
+begin
+  inherited SetItem(Index, Value);
+end;
+
+{ TIfHasServiceAttributes }
+
+constructor TIfHasServiceAttributes.Create(
+  AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'IF_HAS_SERVICE_ATTRIBUTES');
+  FSections := TTemplatedSectionList.Create;
+  FSections.Add(TServiceAttributesSection.Create(AParent));
+end;
+
+destructor TIfHasServiceAttributes.Destroy;
+begin
+  FSections.Free;
+  inherited;
+end;
+
+function TIfHasServiceAttributes.InternalSectionStart(const line: string;
+  var section: TTemplatedSection): Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  for I := 0 to FSections.Count - 1 do
+    if SectionStart(line, FSections[I].Name) then
+    begin
+      Result := True;
+      section := FSections[I];
+      break;
+    end;
+end;
+
+procedure TIfHasServiceAttributes.ProcessTemplate(sectionTemplate: TLineStream;
+  const aLibrary: TRODLLibrary);
+var
+  curLine: string;
+  section: TTemplatedSection;
+begin
+  sectionTemplate.Position := 0;
+  while not sectionTemplate.Eof do
+  begin
+    curLine := sectionTemplate.ReadLine;
+    if InternalSectionStart(curLine, section) then
+      section.Process(FinishSection(section.Name, sectionTemplate), aLibrary)
+    else Write(curLine);
+  end;
+end;
+
+{ TServiceAttributesSection }
+
+function TServiceAttributesSection.CanUse(const aLibrary: TRODLLibrary): boolean;
+var
+  i: integer;
+begin
+  Result := aLibrary.Attributes.Count > 0;
+  if not Result then
+    for i := 0 to aLibrary.ServiceCount - 1 do
+      if aLibrary.Services[i].Attributes.Count > 0 then
+      begin
+        Result := true;
+        break;
+      end;
+end;
+
+constructor TServiceAttributesSection.Create(AParent: TRODLTemplateBasedConverter);
+begin
+  inherited Create(AParent, 'SERVICE_ATTRIBUTES');
+end;
+
+procedure TServiceAttributesSection.DoReplacements(var curLine: string;
+  const aService: TRODLService; const aName: string; const aValue: string);
+var
+  lServ: string;
+begin
+  if Assigned(aService) then lServ := aService.Name else lServ := '';
+  MacroReplace(curLine, '%', ['SERVICE_NAME', lServ,
+    'ATTRIBUTE_NAME', QuotedStr(aName),
+    'ATTRIBUTE_VALUE', QuotedStr(aValue)]);
+end;
+
+procedure TServiceAttributesSection.ProcessTemplate(
+  sectionTemplate: TLineStream; const aLibrary: TRODLLibrary);
+var
+  curLine, resLine: string;
+  i, j: integer;
+begin
+  if CanUse(aLibrary) then
+  begin
+    sectionTemplate.Position := 0;
+    while not sectionTemplate.Eof do
+    begin
+      curLine := sectionTemplate.ReadLine;
+      with aLibrary.Attributes do
+        for i := 0 to Count - 1 do begin
+          resLine := curLine;
+          DoReplacements(resLine, nil, Names[i], Values[Names[i]]);
+          if resLine <> curLine then Write(resLine);
+        end;
+      for i := 0 to aLibrary.ServiceCount - 1 do
+        with aLibrary.Services[i].Attributes do
+          for j := 0 to Count - 1 do begin
+            resLine := curLine;
+            DoReplacements(resLine, aLibrary.Services[i], Names[j], Values[Names[j]]);
+            if resLine <> curLine then Write(resLine);
+          end;
+      if resLine = curLine then Write(curLine);
+    end;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLTemplateBasedConverterUtils.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLTemplateBasedConverterUtils.pas
new file mode 100644
index 0000000..6c5a4ec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/CodeGen2/uRODLTemplateBasedConverterUtils.pas	
@@ -0,0 +1,956 @@
+unit uRODLTemplateBasedConverterUtils;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen2                                          }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  uRODLLineStream, uRODL;
+
+const
+  COLLECTION_SUFFIX = 'Collection';
+
+  DEFAULT_STRUCT_ANCESTOR = 'TROComplexType';
+  DEFAULT_STRUCT_COLLECTION_ANCESTOR = 'TROCollection';
+  DEFAULT_EXCEPTION_ANCESTOR = 'EROException';
+  DEFAULT_SERVICE_PROXY_ANCESTOR_NAME = 'TROProxy';
+  DEFAULT_SERVICE_INVOKER_ANCESTOR_NAME = 'ROInvoker';
+  DEFAULT_EVENT_SINK_WRITER_ANCESTOR_NAME = 'ROEventWriter';
+  DEFAULT_EVENT_SINK_INVOKER_ANCESTOR_NAME = 'ROEventInvoker';
+  DEFAULT_SERVICE_ASYNC_ANCESTOR_NAME = 'IROAsyncInterface';
+  DEFAULT_SERVICE_ASYNC_PROXY_ANCESTOR_NAME = 'TROAsyncProxy';
+
+  SERVICE_PROXY_SUFFIX = '_Proxy';
+  SERVICE_INVOKER_SUFFIX = '_Invoker';
+  EVENT_SINK_WRITER_SUFFIX = '_Writer';
+  EVENT_SINK_INVOKER_SUFFIX = '_Invoker';
+
+  DEFAULT_INTF_SUFFIX = '_Intf';
+  DEFAULT_INVK_SUFFIX = '_Invk';
+  DEFAULT_IMPL_SUFFIX = '_Impl';
+  DEFAULT_ASYNC_SUFFIX = '_Async';
+  DEFAULT_ASYNC_PROXY_SUFFIX = '_AsyncProxy';
+
+  IN_FLAGS = [fIn, fInOut];
+  OUT_FLAGS = [fOut, fInOut, fResult];
+
+function MacroReplace(var Text: string; MacroChar: Char;
+  const Macros: array of string; CaseSensitive: Boolean = True): Boolean;
+function SectionStart(const Line: string; SectionName: string): Boolean;
+function SectionEnd(const Line: string; SectionName: string): Boolean;
+function SectionElse(const Line: string; SectionName: string): Boolean;
+function FinishSection(const SectionName: string; SourceTemplate: TLineStream): string; overload;
+procedure FinishSection(const SectionName: string; SourceTemplate: TLineStream; DestTemplate: TLineStream); overload;
+function StrEnsureNoSuffix(const Suffix, Text: string): string;
+function StrEnsureSuffix(const Suffix, Text: string): string;
+function RemoveSectionElse(const SectionName: string; const SectionText: string): string;
+function ExtractSectionElse(const SectionName: string; const SectionText: string): string;
+
+// The functions below should be moved to uRODLGenTools
+function CachedIsImplementedAsClass(const aTypeName: string; aLibrary: TRODLLibrary): Boolean;
+function CachedDataTypeToCSharpType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function CachedDataTypeToDelphiType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function CachedDataTypeToDelphiDotNetType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function CachedDataTypeToCppType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function CachedDataTypeToObjCType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aDecorateIfNeeded: Boolean=true):string;
+function CachedDataTypeToObjCReaderWriterFn(const aTypeName:string; aLibrary:TRODLLibrary=nil):string;
+function CachedDataTypeToObjCCodingReaderWriterFn(const aTypeName:string; aLibrary:TRODLLibrary=nil):string;
+function CachedDataTypeToObjCNSNumberFn(const aTypeName:string; aLibrary:TRODLLibrary=nil):string;
+function CachedArrayExists(const aArrayName: string; aLibrary:TRODLLibrary): Boolean;
+
+procedure ClearIsImplementedAsClassCache(aLibrary: TRODLLibrary = nil);
+procedure ClearArrayExistsCache(aLibrary:TRODLLibrary = nil);
+procedure ClearDataTypeCaches(aLibrary: TRODLLibrary = nil);
+procedure ClearAllCaches(aLibrary: TRODLLibrary = nil);
+
+function DataTypeToCSharpType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function DataTypeToCppType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function DataTypeToObjCType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function DataTypeToObjCReaderWriterFn(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function DataTypeToObjCCodingReaderWriterFn(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function DataTypeToObjCNSNumberFn(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function DataTypeToDelphiType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+function ArrayExists(const aArrayName: string; aLibrary:TRODLLibrary): Boolean;
+
+
+implementation
+
+uses
+  SysUtils, Classes, Contnrs, IniFiles, uROTypes, uROClasses, uRODLGenTools;
+
+type
+  TBooleanCacheElement = class
+  private
+    FLibrary: TRODLLibrary;
+    FCachedTypes: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF};
+  protected
+    function GetUncachedIsSet(const aTypeName: string): Boolean; virtual; abstract;
+  public
+    constructor Create(aLibrary: TRODLLibrary);
+    destructor Destroy; override;
+
+    function IsSet(const aTypeName: string): Boolean;
+    procedure Clear;
+  end;
+
+  TBooleanCacheElementClass = class of TBooleanCacheElement;
+
+  TBooleanCacheList = class(TObjectList)
+  private
+    function GetItemByLibrary(
+      aLibrary: TRODLLibrary): TBooleanCacheElement;
+    function GetItem(Index: Integer): TBooleanCacheElement;
+  protected
+    function GetElementType: TBooleanCacheElementClass; virtual; abstract;
+  public
+    property ItemsByLibrary[aLibrary: TRODLLibrary]: TBooleanCacheElement read GetItemByLibrary;
+    property Items[Index: Integer]: TBooleanCacheElement read GetItem; default;
+  end;
+
+  TIdentifierTypeCacheList = class;
+  TIdentifierTypeCacheElement = class
+  private
+    FLibrary: TRODLLibrary;
+    FCachedTypes: {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF};
+    FParent: TIdentifierTypeCacheList;
+  public
+    constructor Create(aParent: TIdentifierTypeCacheList; aLibrary: TRODLLibrary);
+    destructor Destroy; override;
+
+    function TypeIdentifier(const aTypeName: string; const AForNew: Boolean): string;
+    procedure Clear;
+  end;
+
+  TGetTypeIdentifier = function (const iType:string; iLibrary:TRODLLibrary=nil; iForNew:boolean=false):string;
+  TIdentifierTypeCacheList = class (TObjectList)
+  private
+    FGetTypeIdentifier: TGetTypeIdentifier;
+    
+    function GetItem(Index: Integer): TIdentifierTypeCacheElement;
+    function GetItemByLibrary(
+      aLibrary: TRODLLibrary): TIdentifierTypeCacheElement;
+  public
+    constructor Create(aGetTypeIdentifier: TGetTypeIdentifier; AOwnsObjects: Boolean = True);
+    
+    property ItemsByLibrary[aLibrary: TRODLLibrary]: TIdentifierTypeCacheElement read GetItemByLibrary;
+    property Items[Index: Integer]: TIdentifierTypeCacheElement read GetItem; default;
+  end;
+
+  TIsImplementedAsClassCacheElement = class(TBooleanCacheElement)
+  protected
+    function GetUncachedIsSet(const aTypeName: string): Boolean; override;
+  end;
+
+  TIsImplementedAsClassCacheList = class(TBooleanCacheList)
+  protected
+    function GetElementType: TBooleanCacheElementClass; override;
+  end;
+
+  TArrayExistsCacheElement = class(TBooleanCacheElement)
+  protected
+    function GetUncachedIsSet(const aTypeName: string): Boolean; override;
+  end;
+
+  TArrayExistsCacheList = class(TBooleanCacheList)
+  protected
+    function GetElementType: TBooleanCacheElementClass; override;
+  end;
+
+var
+  FIsImplementedAsClassCache: TIsImplementedAsClassCacheList;
+  FArrayExistsCache: TArrayExistsCacheList;
+  FDataTypeToCSharpTypeCache: TIdentifierTypeCacheList;
+  FDataTypeToDelphiTypeCache: TIdentifierTypeCacheList;
+  FDataTypeToDelphiDotNetTypeCache: TIdentifierTypeCacheList;
+  FDataTypeToCppTypeCache: TIdentifierTypeCacheList;
+  FDataTypeToObjCTypeCache: TIdentifierTypeCacheList;
+  FDataTypeToObjcReaderWriterFnCache: TIdentifierTypeCacheList;
+  FDataTypeToObjcCodingReaderWriterFnCache: TIdentifierTypeCacheList;
+  FDataTypeToObjcNSNumberFnCache: TIdentifierTypeCacheList;
+
+type 
+  CmpFunc = function(const Str1, Str2: PChar; MaxLen: {$IFDEF FPC}LongInt{$ELSE}Cardinal{$ENDIF}): Integer;  
+ 
+function MacroReplace(var Text: string; MacroChar: Char;
+  const Macros: array of string; CaseSensitive: Boolean = True): Boolean;
+const
+  Delta = 1024;
+var
+  Index, i, Count, Len, SLen, MacroHigh: Integer;
+  S: string;
+  Found: Boolean;
+  Cmp: CmpFunc;
+begin
+  Result := False;
+  if CaseSensitive then
+    Cmp := {$IFDEF FPC}@{$ENDIF}StrLComp
+  else
+    Cmp := {$IFDEF FPC}@{$ENDIF}StrLIComp;
+
+  MacroHigh := Length(Macros) div 2 - 1;
+  Len := Length(Text);
+  i := 1;
+  SetLength(S, Delta);
+  SLen := 0;
+  while i <= Len do
+  begin
+    Count := 0;
+   // add normal chars in one step
+    while (i <= Len) and (Text[i] <> MacroChar) do
+    begin
+      Inc(Count);
+      Inc(i);
+    end;
+    if Count > 0 then
+    begin
+      if SLen + Count > Length(S) then
+        SetLength(S, SLen + Count + Delta);
+      Move(Text[i - Count], S[SLen + 1], Count*SizeOf(char));
+      Inc(SLen, Count);
+    end;
+
+    if i <= Len then
+    begin
+     // replace macros
+      Found := False;
+      for Index := 0 to MacroHigh do
+      begin
+        Count := Length(Macros[Index * 2]) + 1;  // Plus one to eat the trailing macro char
+        if Cmp(PChar(Pointer(Text)) + i, PChar(Macros[Index * 2] + MacroChar), Count) = 0 then
+        begin
+          Inc(i, Count);
+          Count := Length(Macros[Index * 2 + 1]);
+          if Count > 0 then
+          begin
+            if SLen + Count > Length(S) then
+              SetLength(S, SLen + Count + Delta);
+            Move(Macros[Index * 2 + 1][1], S[SLen + 1], Count*SizeOf(Char));
+            Inc(SLen, Count);
+          end;
+          Result := True;
+          Found := True;
+          Break;
+        end;
+      end;
+      if not Found then
+      begin
+        // copy macro-text
+        if Macros[0][Length(Macros[0])] = MacroChar then
+        begin
+          Count := 1;
+          while (i + Count <= Len) and (Text[i + Count] <> MacroChar) do
+            Inc(Count);
+        end
+        else
+        begin
+          Count := 0;
+        end;
+        
+        Inc(Count);
+        if SLen + Count > Length(S) then
+          SetLength(S, SLen + Count + Delta);
+        Move(Text[i], S[SLen + 1], Count*SizeOf(Char));
+        Inc(SLen, Count);
+        Inc(i, Count - 1);
+      end;
+    end;
+    Inc(i);
+  end;
+  SetLength(S, SLen);
+  Text := S;
+end;
+
+function SectionStart(const Line: string; SectionName: string): Boolean;
+begin
+  Result := Trim(Line) = '// <%%% START ' + SectionName + ' %%%>';
+end;
+
+function SectionEnd(const Line: string; SectionName: string): Boolean;
+begin
+  Result := Trim(Line) = '// <%%% END ' + SectionName + ' %%%>';
+end;
+
+function SectionElse(const Line: string; SectionName: string): Boolean;
+begin
+  Result := Trim(Line) = '// <%%% ELSE ' + SectionName + ' %%%>';
+end;
+
+function FinishSection(const SectionName: string; SourceTemplate: TLineStream): string; overload;
+var
+  curLine: string;
+  prevLine: string;
+begin
+  Result := '';
+  prevLine := '';
+  curLine := SourceTemplate.ReadLine;
+  while not SourceTemplate.Eof and not SectionEnd(curLine, SectionName) do
+  begin
+    Result := Result + curLine + #13#10;
+    prevLine := curLine;
+    curLine := SourceTemplate.ReadLine;
+  end;
+  if SourceTemplate.Eof and not SectionEnd(curLine, SectionName) then
+    Result := Result + curLine + #13#10;
+
+  if Length(prevLine) <> 0 then
+    Result := StrEnsureNoSuffix(#13#10, Result);
+end;
+
+procedure FinishSection(const SectionName: string; SourceTemplate: TLineStream; DestTemplate: TLineStream); overload;
+var
+  content: string;
+begin
+  content := FinishSection(SectionName, SourceTemplate);
+
+  DestTemplate.Position := 0;
+  DestTemplate.Size := Length(content);
+  DestTemplate.WriteString(content);
+  DestTemplate.Position := 0;
+end;
+
+// Extracted from the JCL (under MPL licence)
+function StrEnsureNoSuffix(const Suffix, Text: string): string;
+var
+  SuffixLen : Integer;
+  StrLength : Integer;
+begin
+  SuffixLen := Length(Suffix);
+  StrLength := Length(Text);
+  if Copy(Text, StrLength - SuffixLen + 1, SuffixLen) = Suffix then
+    Result := Copy(Text, 1, StrLength - SuffixLen)
+  else
+    Result := Text;
+end;
+
+// Extracted from the JCL (under MPL licence)
+function StrEnsureSuffix(const Suffix, Text: string): string;
+var
+  SuffixLen: Integer;
+begin
+  SuffixLen := Length(Suffix);
+  if Copy(Text, Length(Text) - SuffixLen + 1, SuffixLen) = Suffix then
+    Result := Text
+  else
+    Result := Text + Suffix;
+end;
+
+function RemoveSectionElse(const SectionName: string; const SectionText: string): string;
+var
+  section: TLineStream;
+  curLine: string;
+  prevLine: string;
+begin
+  if Length(SectionText) = 0 then exit;
+
+  section := TLineStream.Create(SectionText);
+  try
+    result := '';
+    prevLine := '';
+    curLine := section.ReadLine;
+    while not section.Eof and not SectionEnd(curLine, SectionName) and
+      not SectionElse(curLine, SectionName) do
+    begin
+      Result := Result + curLine + #13#10;
+      prevLine := curLine;
+      curLine := section.ReadLine;
+    end;
+    if section.Eof and not SectionEnd(curLine, SectionName) and not SectionElse(curLine, SectionName) then
+      Result := Result + curLine + #13#10;
+
+    if Length(curLine) <> 0 then
+      Result := StrEnsureNoSuffix(#13#10, Result);
+  finally
+    section.Free;
+  end;
+end;
+
+function ExtractSectionElse(const SectionName: string; const SectionText: string): string;
+var
+  section: TLineStream;
+  curLine: string;
+  prevLine: string;
+begin
+  if Length(SectionText) = 0 then exit;
+
+  section := TLineStream.Create(SectionText);
+  try
+    result := '';
+    prevLine := '';
+    curLine := section.ReadLine;
+    while not section.Eof and not SectionEnd(curLine, SectionName) and
+      not SectionElse(curLine, SectionName) do
+    begin
+      prevLine := curLine;
+      curLine := section.ReadLine;
+    end;
+
+    while not section.Eof and not SectionEnd(curLine, SectionName) do
+    begin
+      prevLine := curLine;
+      curLine := section.ReadLine;
+      Result := Result + curLine + #13#10;
+    end;
+
+  finally
+    section.Free;
+  end;
+end;
+
+{ TBooleanCacheElement }
+
+procedure TBooleanCacheElement.Clear;
+begin
+  FCachedTypes.Clear;
+end;
+
+constructor TBooleanCacheElement.Create(aLibrary: TRODLLibrary);
+begin
+  inherited Create;
+
+  FLibrary := aLibrary;
+  FCachedTypes := {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF}.Create;
+  FCachedTypes.CaseSensitive := True;
+  FCachedTypes.Capacity := 20;
+  FCachedTypes.Sorted := True;
+end;
+
+destructor TBooleanCacheElement.Destroy;
+begin
+  FCachedTypes.Free;
+  
+  inherited Destroy;
+end;
+
+function TBooleanCacheElement.IsSet(
+  const aTypeName: string): Boolean;
+var
+  typeNameIndex: Integer;
+begin
+  typeNameIndex := FCachedTypes.IndexOf(aTypeName);
+  if typeNameIndex > -1 then
+  begin
+    Result := Boolean(cardinal(FCachedTypes.Objects[typeNameIndex]));
+  end
+  else
+  begin
+    Result := GetUncachedIsSet(aTypeName);
+    FCachedTypes.AddObject(aTypeName, TObject(Result));
+  end;
+end;
+
+{ TBooleanCacheList }
+
+function TBooleanCacheList.GetItemByLibrary(
+  aLibrary: TRODLLibrary): TBooleanCacheElement;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := nil;
+  while not Assigned(Result) and (I < Count) do
+  begin
+    if Items[I].FLibrary = aLibrary then
+      Result := Items[I];
+    Inc(I);
+  end;
+
+  if not Assigned(Result) then
+  begin
+    Result := GetElementType.Create(aLibrary);
+    Add(Result);
+  end;
+end;
+
+function TBooleanCacheList.GetItem(
+  Index: Integer): TBooleanCacheElement;
+begin
+  Result := inherited Items[Index] as TBooleanCacheElement;
+end;
+
+{ TIdentifierTypeCacheElement }
+
+procedure TIdentifierTypeCacheElement.Clear;
+begin
+  FCachedTypes.Clear;
+end;
+
+constructor TIdentifierTypeCacheElement.Create(aParent: TIdentifierTypeCacheList; aLibrary: TRODLLibrary);
+begin
+  inherited Create;
+
+  FLibrary := aLibrary;
+  FParent := aParent;
+  FCachedTypes := {$IFDEF FPC}TStringList{$ELSE}THashedStringList{$ENDIF}.Create;
+  FCachedTypes.CaseSensitive := True;
+  FCachedTypes.Capacity := 20;
+end;
+
+destructor TIdentifierTypeCacheElement.Destroy;
+begin
+  FCachedTypes.Free;
+
+  inherited Destroy;
+end;
+
+function TIdentifierTypeCacheElement.TypeIdentifier(
+  const aTypeName: string; const AForNew: Boolean): string;
+begin
+  Result := FCachedTypes.Values[aTypeName + ',' + BoolToStr(AForNew)];
+
+  if Length(Result) = 0 then
+  begin
+    Result := FParent.FGetTypeIdentifier(aTypeName, FLibrary, AForNew);
+    FCachedTypes.Values[aTypeName + ',' + BoolToStr(AForNew)] := Result;
+  end;
+end;
+
+{ TIdentifierTypeCacheList }
+
+constructor TIdentifierTypeCacheList.Create(
+  aGetTypeIdentifier: TGetTypeIdentifier; AOwnsObjects: Boolean);
+begin
+  inherited Create(AOwnsObjects);
+
+  FGetTypeIdentifier := aGetTypeIdentifier;
+end;
+
+function TIdentifierTypeCacheList.GetItem(
+  Index: Integer): TIdentifierTypeCacheElement;
+begin
+  Result := inherited Items[Index] as TIdentifierTypeCacheElement;
+end;
+
+function TIdentifierTypeCacheList.GetItemByLibrary(
+  aLibrary: TRODLLibrary): TIdentifierTypeCacheElement;
+var
+  I: Integer;
+begin
+  I := 0;
+  Result := nil;
+  while not Assigned(Result) and (I < Count) do
+  begin
+    if Items[I].FLibrary = aLibrary then
+      Result := Items[I];
+    Inc(I);
+  end;
+
+  if not Assigned(Result) then
+  begin
+    Result := TIdentifierTypeCacheElement.Create(Self, aLibrary);
+    Add(Result);
+  end;
+end;
+
+{ TIsImplementedAsClassCacheElement }
+
+function TIsImplementedAsClassCacheElement.GetUncachedIsSet(
+  const aTypeName: string): Boolean;
+begin
+  Result := IsImplementedAsClass(aTypeName, FLibrary);
+end;
+
+{ TIsImplementedAsClassCacheList }
+
+function TIsImplementedAsClassCacheList.GetElementType: TBooleanCacheElementClass;
+begin
+  Result := TIsImplementedAsClassCacheElement;
+end;
+
+{ TArrayExistsCacheElement }
+
+function TArrayExistsCacheElement.GetUncachedIsSet(
+  const aTypeName: string): Boolean;
+begin
+  Result := ArrayExists(aTypeName, FLibrary);
+end;
+
+{ TArrayExistsCacheList }
+
+function TArrayExistsCacheList.GetElementType: TBooleanCacheElementClass;
+begin
+  Result := TArrayExistsCacheElement;
+end;
+
+function CachedIsImplementedAsClass(const aTypeName:string; aLibrary:TRODLLibrary):boolean;
+begin
+  if not Assigned(FIsImplementedAsClassCache) then
+  begin
+    FIsImplementedAsClassCache := TIsImplementedAsClassCacheList.Create(True);
+  end;
+
+  result := FIsImplementedAsClassCache.ItemsByLibrary[aLibrary].IsSet(aTypeName);
+end;
+
+procedure ClearIsImplementedAsClassCache(aLibrary: TRODLLibrary);
+begin
+  if Assigned(FIsImplementedAsClassCache) then
+  begin
+    if Assigned(aLibrary) then
+      FIsImplementedAsClassCache.ItemsByLibrary[aLibrary].Clear
+    else
+      FIsImplementedAsClassCache.Clear;
+  end;
+end;
+
+function CachedDataTypeToCSharpType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+begin
+  if not Assigned(FDataTypeToCSharpTypeCache) then
+  begin
+    FDataTypeToCSharpTypeCache := TIdentifierTypeCacheList.Create(DataTypeToCSharpType, True);
+  end;
+
+  Result := FDataTypeToCSharpTypeCache.ItemsByLibrary[aLibrary].TypeIdentifier(aTypeName, aForNew);
+end;
+
+function CachedDataTypeToDelphiType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+begin
+  if not Assigned(FDataTypeToDelphiTypeCache) then
+  begin
+    FDataTypeToDelphiTypeCache := TIdentifierTypeCacheList.Create(DataTypeToDelphiType, True);
+  end;
+
+  Result := FDataTypeToDelphiTypeCache.ItemsByLibrary[aLibrary].TypeIdentifier(aTypeName, aForNew);
+end;
+
+function DataTypeToDelphiType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+begin
+  case StrToDataType(aTypeName) of
+    rtXML: Result:= 'IXmlNode';
+  else
+    Result := aTypeName;
+  end;
+end;
+
+function CachedDataTypeToDelphiDotNetType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+begin
+  if not Assigned(FDataTypeToDelphiDotNetTypeCache) then
+  begin
+    FDataTypeToDelphiDotNetTypeCache := TIdentifierTypeCacheList.Create(uRODLGenTools.DataTypeToDelphiDotNetType, True);
+  end;
+
+  Result := FDataTypeToDelphiDotNetTypeCache.ItemsByLibrary[aLibrary].TypeIdentifier(aTypeName, aForNew);
+end;
+
+function CachedDataTypeToCppType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+begin
+  if not Assigned(FDataTypeToCppTypeCache) then
+  begin
+    FDataTypeToCppTypeCache := TIdentifierTypeCacheList.Create(DataTypeToCppType, True);
+  end;
+
+  Result := FDataTypeToCppTypeCache.ItemsByLibrary[aLibrary].TypeIdentifier(aTypeName, aForNew);
+end;
+
+function CachedDataTypeToObjCType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aDecorateIfNeeded: Boolean=true):string;
+begin
+  if not Assigned(FDataTypeToObjcTypeCache) then begin
+    FDataTypeToObjcTypeCache := TIdentifierTypeCacheList.Create(DataTypeToObjCType, True);
+  end;
+
+  Result := FDataTypeToObjCTypeCache.ItemsByLibrary[aLibrary].TypeIdentifier(aTypeName, aDecorateIfNeeded);
+
+  if not aDecorateIfNeeded then begin
+    if result[length(result)] = '*' then SetLength(result,length(result)-1);
+  end;
+end;
+
+function CachedDataTypeToObjCReaderWriterFn(const aTypeName:string; aLibrary:TRODLLibrary=nil):string;
+begin
+  if not Assigned(FDataTypeToObjcReaderWriterFnCache) then begin
+    FDataTypeToObjcReaderWriterFnCache := TIdentifierTypeCacheList.Create(DataTypeToObjCReaderWriterFn, True);
+  end;
+
+  Result := FDataTypeToObjCReaderWriterFnCache.ItemsByLibrary[aLibrary].TypeIdentifier(aTypeName, True);
+end;
+
+function CachedDataTypeToObjCCodingReaderWriterFn(const aTypeName:string; aLibrary:TRODLLibrary=nil):string;
+begin
+  if not Assigned(FDataTypeToObjcCodingReaderWriterFnCache) then begin
+    FDataTypeToObjcCodingReaderWriterFnCache := TIdentifierTypeCacheList.Create(DataTypeToObjCCodingReaderWriterFn, True);
+  end;
+
+  Result := FDataTypeToObjCCodingReaderWriterFnCache.ItemsByLibrary[aLibrary].TypeIdentifier(aTypeName, True);
+end;
+
+function CachedDataTypeToObjCNSNumberFn(const aTypeName:string; aLibrary:TRODLLibrary=nil):string;
+begin
+  if not Assigned(FDataTypeToObjcNSNumberFnCache) then begin
+    FDataTypeToObjcNSNumberFnCache := TIdentifierTypeCacheList.Create(DataTypeToObjCNSNumberFn, True);
+  end;
+
+  Result := FDataTypeToObjcNSNumberFnCache.ItemsByLibrary[aLibrary].TypeIdentifier(aTypeName, True);
+end;
+
+function DataTypeToCppType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+
+const                                                   
+  CppSimpleTypes: array[TRODataType] of string =
+    ('int', 'TDateTime', 'double', 'Currency', 'WideString', 'AnsiString', '__int64', 'bool', 'Variant', 'Binary', '_di_IXMLNode', 'TGuidString','TDecimalVariant','UTF8String', 'XsDateTime','');
+
+  // TRODataType =
+  // (rtInteger, rtDateTime, rtDouble, rtCurrency, rtWidestring, rtString, rtInt64, rtBoolean, rtVariant, rtBinary, rtUserDefined);
+
+// TODO: Need to finish these if possible - in their proper place - if needed- else we need something
+// in the Macros like %IFCONST% that is replaced by "const" and %IFVAR% and/or %IFOUT% that is replaced with "&"
+//  PasFlagNames : array[TRODLParamFlag] of string =
+//    ('const', 'out', 'var', 'result');
+
+// Also these must be translated to "False" and "True" - case sensitively
+//  BoolStr : array[boolean] of string = ('false','true');
+
+var
+  aType: TRODataType;
+
+begin
+  for aType := Low(DataTypeNames) to High(DataTypeNames) do
+    if SameText(aTypeName, DataTypeNames[aType]) and (aType in [Low(CppSimpletypes)..High(CppSimpleTypes)]) then
+    begin
+      Result:= CppSimpleTypes[aType];
+      exit;
+    end;
+  // Not found case
+  Result:= aTypeName;
+end;
+
+function DataTypeToObjCType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+
+const
+  ObjCSimpleTypes: array[TRODataType] of string =
+    ('int32', 'NSDate*', 'double', 'NSDecimalNumber*', 'NSString*', 'NSString*',
+     'int64', 'BOOL', 'ROVariant*', 'NSData*', 'ROXml *', 'ROGuid *','NSDecimalNumber*',
+     'NSString*', 'NSDate*','');
+
+{ type TRODataType = (rtInteger, rtDateTime, rtDouble, rtCurrency, rtWidestring, rtString,
+                    rtInt64, rtBoolean, rtVariant, rtBinary, rtXML, rtGuid, rtDecimal,
+                    rtUTF8String, rtXsDateTime, rtUserDefined); }
+
+// TODO: Need to finish these if possible - in their proper place - if needed- else we need something
+// in the Macros like %IFCONST% that is replaced by "const" and %IFVAR% and/or %IFOUT% that is replaced with "&"
+//  PasFlagNames : array[TRODLParamFlag] of string =
+//    ('const', 'out', 'var', 'result');
+
+// Also these must be translated to "False" and "True" - case sensitively
+//  BoolStr : array[boolean] of string = ('false','true');
+
+var
+  aType: TRODataType;
+
+begin
+  for aType := Low(DataTypeNames) to High(DataTypeNames) do
+    if SameText(aTypeName, DataTypeNames[aType]) and (aType in [Low(ObjCSimpletypes)..High(ObjCSimpleTypes)]) then
+    begin
+      Result:= ObjCSimpleTypes[aType];
+      exit;
+    end;
+
+  if assigned(aLibrary) and assigned(aLibrary.FindEnum(aTypeName)) then begin
+    Result := 'enum '+aTypeName;
+    exit;
+  end;
+
+  // Not found case
+  Result:= aTypeName+'*'; // all other types are pointers
+end;
+
+function DataTypeToObjCReaderWriterFn(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+const
+  ObjCSimpleTypes: array[TRODataType] of string =
+      ('Int32', 'DateTime', 'Double', 'Currency', 'WideString', 'AnsiString',
+       'Int64', 'Boolean', 'Variant', 'Binary', 'Xml', 'Guid', 'Decimal',
+       'Utf8String', 'XsDateTime', '');
+var
+  aType: TRODataType;
+begin
+  for aType := Low(DataTypeNames) to High(DataTypeNames) do
+    if SameText(aTypeName, DataTypeNames[aType]) and (aType in [Low(ObjCSimpletypes)..High(ObjCSimpleTypes)]) then
+    begin
+      Result:= ObjCSimpleTypes[aType];
+      exit;
+    end;
+
+  if assigned(aLibrary) and assigned(aLibrary.FindEnum(aTypeName)) then begin
+    result:= 'Enum'; // all other types are objects
+    exit;
+  end;
+
+  if assigned(aLibrary) and assigned(aLibrary.FindArray(aTypeName)) then begin
+    result:= 'Array'; // all other types are objects
+    exit;
+  end;
+
+  // Not found case
+  Result:= 'Complex'; // all other types are objects
+end;
+
+function DataTypeToObjCCodingReaderWriterFn(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+const
+  ObjCCodingReaderWriters: array[TRODataType] of string =
+      ('Int32', 'Object', 'Double', 'Object', 'Object', 'Object',
+       'Int64', 'Bool', 'Object', 'Object', 'Object', 'Object', 'Object',
+       'Object', 'Object', '');
+var
+  aType: TRODataType;
+begin
+  for aType := Low(DataTypeNames) to High(DataTypeNames) do
+    if SameText(aTypeName, DataTypeNames[aType]) and (aType in [Low(ObjCCodingReaderWriters)..High(ObjCCodingReaderWriters)]) then
+    begin
+      Result:= ObjCCodingReaderWriters[aType];
+      exit;
+    end;
+  if assigned(aLibrary) and assigned(aLibrary.FindEnum(aTypeName)) then begin
+    result:= 'Enum';
+    exit;
+  end;
+  Result:= 'Object'; // all other types are objects
+end;
+
+function DataTypeToObjCNSNumberFn(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+const
+  ObjCCodingReaderWriters: array[TRODataType] of string =
+      ('Int', '-', 'Double', '-', '-', '-',
+       'LongLong', 'Bool', '-', '-', '-', '-', '-',
+       '-', '-', '');
+var
+  aType: TRODataType;
+begin
+  for aType := Low(DataTypeNames) to High(DataTypeNames) do
+    if SameText(aTypeName, DataTypeNames[aType]) and (aType in [Low(ObjCCodingReaderWriters)..High(ObjCCodingReaderWriters)]) then
+    begin
+      Result:= ObjCCodingReaderWriters[aType];
+      exit;
+    end;
+  if assigned(aLibrary) and assigned(aLibrary.FindEnum(aTypeName)) then begin
+    result:= 'Int';
+    exit;
+  end;
+  Result:= '-'; // all other types are objects
+end;
+
+function DataTypeToCSharpType(const aTypeName:string; aLibrary:TRODLLibrary=nil; aForNew:boolean=false):string;
+const
+  CSharpSimpleTypes: array[TRODataType] of string =
+    ('int', 'System.DateTime', 'double', 'decimal', 'string', 'string', 'Int64', 'bool', 'Variant', 'Binary', 'IXMLNode', 'TGuidString','TDecimalVariant', 'string', 'XsDateTime', '');
+var
+  aType: TRODataType;
+begin
+  for aType := Low(DataTypeNames) to High(DataTypeNames) do
+    if SameText(aTypeName, DataTypeNames[aType]) and (aType in [Low(CSharpSimpleTypes)..High(CSharpSimpleTypes)]) then
+    begin
+      Result := CSharpSimpleTypes[aType];
+      Exit;
+    end;
+
+  // Not found case
+  Result := uRODLGenTools.DataTypeToCSharpType(aTypeName, aLibrary, aForNew);
+end;
+
+function ArrayExists(const aArrayName: string; aLibrary:TRODLLibrary): Boolean;
+begin
+  Result := Assigned(aLibrary.FindArray(aArrayName));
+end;
+
+function CachedArrayExists(const aArrayName: string; aLibrary:TRODLLibrary): Boolean;
+begin
+  if not Assigned(FArrayExistsCache) then
+  begin
+    FArrayExistsCache := TArrayExistsCacheList.Create(True);
+  end;
+
+  Result := FArrayExistsCache.ItemsByLibrary[aLibrary].IsSet(aArrayName);
+end;
+
+procedure ClearArrayExistsCache(aLibrary:TRODLLibrary = nil);
+begin
+  if Assigned(FArrayExistsCache) then
+  begin
+    if Assigned(aLibrary) then
+      FArrayExistsCache.ItemsByLibrary[aLibrary].Clear
+    else
+      FArrayExistsCache.Clear;
+  end;
+end;
+
+procedure ClearDataTypeCaches(aLibrary: TRODLLibrary = nil);
+begin
+  if Assigned(FDataTypeToCSharpTypeCache) then
+  begin
+    if Assigned(aLibrary) then
+      FDataTypeToCSharpTypeCache.ItemsByLibrary[aLibrary].Clear
+    else
+      FDataTypeToCSharpTypeCache.Clear;
+  end;
+  
+  if Assigned(FDataTypeToDelphiTypeCache) then
+  begin
+    if Assigned(aLibrary) then
+      FDataTypeToDelphiTypeCache.ItemsByLibrary[aLibrary].Clear
+    else
+      FDataTypeToDelphiTypeCache.Clear;
+  end;
+
+  if Assigned(FDataTypeToDelphiDotNetTypeCache) then
+  begin
+    if Assigned(aLibrary) then
+      FDataTypeToDelphiDotNetTypeCache.ItemsByLibrary[aLibrary].Clear
+    else
+      FDataTypeToDelphiDotNetTypeCache.Clear;
+  end;
+
+  if Assigned(FDataTypeToCppTypeCache) then
+  begin
+    if Assigned(aLibrary) then
+      FDataTypeToCppTypeCache.ItemsByLibrary[aLibrary].Clear
+    else
+      FDataTypeToCppTypeCache.Clear;
+  end;
+
+  if Assigned(FDataTypeToObjCTypeCache) then
+  begin
+    if Assigned(aLibrary) then
+      FDataTypeToObjCTypeCache.ItemsByLibrary[aLibrary].Clear
+    else
+      FDataTypeToObjCTypeCache.Clear;
+  end;
+
+  if Assigned(FDataTypeToObjcReaderWriterFnCache) then
+  begin
+    if not Assigned(aLibrary) then
+      FDataTypeToObjcReaderWriterFnCache.Clear;
+  end;
+end;
+
+procedure ClearAllCaches(aLibrary: TRODLLibrary = nil);
+begin
+  ClearDataTypeCaches(aLibrary);
+  ClearIsImplementedAsClassCache(aLibrary);
+  ClearArrayExistsCache(aLibrary);
+end;
+
+initialization
+
+finalization
+  FIsImplementedAsClassCache.Free;
+  FArrayExistsCache.Free;
+  FDataTypeToCSharpTypeCache.Free;
+  FDataTypeToDelphiTypeCache.Free;
+  FDataTypeToDelphiDotNetTypeCache.Free;
+  FDataTypeToCppTypeCache.Free;
+  FDataTypeToObjCTypeCache.Free;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.bdsproj
new file mode 100644
index 0000000..fd0dc20
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.bdsproj	
@@ -0,0 +1,180 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{34B49BD5-2A10-4E93-8208-7657BD895C31}</Option>
+		</Option>
+	</PersonalityInfo> 
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_DataSnap_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">0</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects SDK - DataSnap Integration Pack</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\;..\..\Dcu\D10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String">REMOBJECTS_DESIGNTIME</Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">4</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">404</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName" Type="String">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion" Type="String">4.0.0.404</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName" Type="String">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion" Type="String">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+	</Delphi.Personality>
+	<ModelSupport>False</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.cfg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.cfg
new file mode 100644
index 0000000..f67d1c8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.cfg	
@@ -0,0 +1,53 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\;..\..\Dcu\D10"
+-O"..\;..\..\Dcu\D10"
+-I"..\;..\..\Dcu\D10"
+-R"..\;..\..\Dcu\D10"
+-DREMOBJECTS_DESIGNTIME
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.dpk
new file mode 100644
index 0000000..3ec74a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.dpk	
@@ -0,0 +1,53 @@
+package RemObjects_DataSnap_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - DataSnap Integration Pack'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE REMOBJECTS_DESIGNTIME}
+
+requires
+  rtl,
+  designide,
+  dbrtl,
+  dsnap,
+  vcl,
+  inet,
+  RemObjects_Core_D10;
+
+contains
+  uRODataSnapConnection in 'uRODataSnapConnection.pas',
+  RemObjects_DataSnap_Reg in 'RemObjects_DataSnap_Reg.pas',
+  uRODataSnap_Async in 'uRODataSnap_Async.pas',
+  uRODataSnap_Intf in 'uRODataSnap_Intf.pas',
+  uRODataSnap_Invk in 'uRODataSnap_Invk.pas',
+  uRODataSnapBaseAppServer in 'uRODataSnapBaseAppServer.pas',
+  uRODataSnapProviderManager in 'uRODataSnapProviderManager.pas',
+  uRODataSnapProviderPublisher in 'uRODataSnapProviderPublisher.pas',
+  uRODataSnapModule in 'uRODataSnapModule.pas',
+  uRODataSnapNewServerModuleWizard in 'uRODataSnapNewServerModuleWizard.pas',
+  uRODataSnapPublishedProvidersCollection in 'uRODataSnapPublishedProvidersCollection.pas',
+  uRODataSnapRes in 'uRODataSnapRes.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.res
new file mode 100644
index 0000000..fe0f936
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D10.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.dpk
new file mode 100644
index 0000000..f9a9071
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.dpk	
@@ -0,0 +1,53 @@
+package RemObjects_DataSnap_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - DataSnap Integration Pack'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE REMOBJECTS_DESIGNTIME}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  designide,
+  dsnap,
+  vcl,
+  inet,
+  RemObjects_Core_D11;
+
+contains
+  uRODataSnapConnection in 'uRODataSnapConnection.pas',
+  RemObjects_DataSnap_Reg in 'RemObjects_DataSnap_Reg.pas',
+  uRODataSnap_Async in 'uRODataSnap_Async.pas',
+  uRODataSnap_Intf in 'uRODataSnap_Intf.pas',
+  uRODataSnap_Invk in 'uRODataSnap_Invk.pas',
+  uRODataSnapBaseAppServer in 'uRODataSnapBaseAppServer.pas',
+  uRODataSnapProviderManager in 'uRODataSnapProviderManager.pas',
+  uRODataSnapProviderPublisher in 'uRODataSnapProviderPublisher.pas',
+  uRODataSnapModule in 'uRODataSnapModule.pas',
+  uRODataSnapNewServerModuleWizard in 'uRODataSnapNewServerModuleWizard.pas',
+  uRODataSnapPublishedProvidersCollection in 'uRODataSnapPublishedProvidersCollection.pas',
+  uRODataSnapRes in 'uRODataSnapRes.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.dproj
new file mode 100644
index 0000000..a292bf9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.dproj	
@@ -0,0 +1,591 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c00123bd-dbb4-4671-b2ea-4cb563880662}</ProjectGuid>
+    <MainSource>RemObjects_DataSnap_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_DataSnap_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>REMOBJECTS_DESIGNTIME;RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>REMOBJECTS_DESIGNTIME</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects SDK - DataSnap Integration Pack</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemObjects_DataSnap_D11.dpk</Source></Source><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\bin\dclbde100.bpl">CodeGear BDE DB Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+    </Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_DataSnap_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\designide.dcp" />
+    <DCCReference Include="..\dsnap.dcp" />
+    <DCCReference Include="..\inet.dcp" />
+    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="RemObjects_DataSnap_Reg.pas" />
+    <DCCReference Include="uRODataSnapBaseAppServer.pas" />
+    <DCCReference Include="uRODataSnapConnection.pas" />
+    <DCCReference Include="uRODataSnapModule.pas" />
+    <DCCReference Include="uRODataSnapNewServerModuleWizard.pas" />
+    <DCCReference Include="uRODataSnapProviderManager.pas" />
+    <DCCReference Include="uRODataSnapProviderPublisher.pas" />
+    <DCCReference Include="uRODataSnapPublishedProvidersCollection.pas" />
+    <DCCReference Include="uRODataSnapRes.pas" />
+    <DCCReference Include="uRODataSnap_Async.pas" />
+    <DCCReference Include="uRODataSnap_Intf.pas" />
+    <DCCReference Include="uRODataSnap_Invk.pas" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.dpk
new file mode 100644
index 0000000..92f2539
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.dpk	
@@ -0,0 +1,52 @@
+package RemObjects_DataSnap_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - DataSnap Integration Pack'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE REMOBJECTS_DESIGNTIME}
+
+requires
+  rtl,
+  designide,
+  dsnap,
+  vcl,
+  inet,
+  RemObjects_Core_D12;
+
+contains
+  uRODataSnapConnection in 'uRODataSnapConnection.pas',
+  RemObjects_DataSnap_Reg in 'RemObjects_DataSnap_Reg.pas',
+  uRODataSnap_Async in 'uRODataSnap_Async.pas',
+  uRODataSnap_Intf in 'uRODataSnap_Intf.pas',
+  uRODataSnap_Invk in 'uRODataSnap_Invk.pas',
+  uRODataSnapBaseAppServer in 'uRODataSnapBaseAppServer.pas',
+  uRODataSnapProviderManager in 'uRODataSnapProviderManager.pas',
+  uRODataSnapProviderPublisher in 'uRODataSnapProviderPublisher.pas',
+  uRODataSnapModule in 'uRODataSnapModule.pas',
+  uRODataSnapNewServerModuleWizard in 'uRODataSnapNewServerModuleWizard.pas',
+  uRODataSnapPublishedProvidersCollection in 'uRODataSnapPublishedProvidersCollection.pas',
+  uRODataSnapRes in 'uRODataSnapRes.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.dproj
new file mode 100644
index 0000000..5837df2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.dproj	
@@ -0,0 +1,109 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{c00123bd-dbb4-4671-b2ea-4cb563880662}</ProjectGuid>
+			<MainSource>RemObjects_DataSnap_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_DataSnap_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\RemObjects_DataSnap_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\..\Dcu\D12;..;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - DataSnap Integration Pack</DCC_Description>
+			<DCC_Define>REMOBJECTS_DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_DataSnap_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="dsnap.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="inet.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="uRODataSnapConnection.pas"/>
+			<DCCReference Include="RemObjects_DataSnap_Reg.pas"/>
+			<DCCReference Include="uRODataSnap_Async.pas"/>
+			<DCCReference Include="uRODataSnap_Intf.pas"/>
+			<DCCReference Include="uRODataSnap_Invk.pas"/>
+			<DCCReference Include="uRODataSnapBaseAppServer.pas"/>
+			<DCCReference Include="uRODataSnapProviderManager.pas"/>
+			<DCCReference Include="uRODataSnapProviderPublisher.pas"/>
+			<DCCReference Include="uRODataSnapModule.pas"/>
+			<DCCReference Include="uRODataSnapNewServerModuleWizard.pas"/>
+			<DCCReference Include="uRODataSnapPublishedProvidersCollection.pas"/>
+			<DCCReference Include="uRODataSnapRes.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_DataSnap_D12.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D12.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.dof
new file mode 100644
index 0000000..34bc30c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.dof	
@@ -0,0 +1,97 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - DataSnap Integration Pack
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6
+Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;ibxpress;dsnap;cds;dsnapcrba;dsnapcon;VclSmp;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k;CDK;ES_CodeSite20;CDKSmp;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;CDKDesignTimeSupport;ESVsCp;bdertl;vcldbx;CDKHCC60;addict3_d6;addict3db_d6;dxdborD6;dxorgcD6;dxdbtrD6;dxEdtrD6;dxELibD6;dxExELD6;EQGridD6;dxExRwD6;dxcomnd6;dxDBEdD6;dxInsD6;dxFlowChartD6;dxForumLibD6;dxGrEdD6;ECQDBCD6;EQTLD6;EQDBTLD6;dxMasterViewD6;dxmdsd6;dxObjInsD6;dxPageControlD6;dxPSCoreD6;dxsbD6;dxtrmdD6;delphiwarnexpert;eBrazilClientComponents_60;eBrazilContentEditor1_60;tb2kComplete;Rz252N60;eDebugServer2_60;SynEdit_D6;CR_Designer;eBrazilDesigntime_60;eBrazilHtmlEdit2_60;eKorzhQueryPackEnhancements;sq6;kprocs6;Rz252D60;ThemeManager;TravityDevComponents;ESSampleCompositeEditors6;ESSampleComposites60;cxWebD6;cxWebSnapD6;cxWebTeeChartD6;tee;teedb;teeui;DXSockD6;DXAddonsD6;AstaIOD6;Asta_SOAPD6
+Conditionals=REMOBJECTS_DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+L:\Packages\addict3db_d6.bpl=Addict 3.2 for Delphi 6 (DB Aware Components)
+L:\Packages\X255PD60.bpl=TurboPower XMLPartner Professional 2.55 Designtime package - VCL60
+l:\Packages\dclcxLibraryVCLD6.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxEditorsVCLD6.bpl=ExpressEditors Library 4 (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxGridUtilsVCLD6.bpl=ExpressQuantumGrid 4 Utils (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxGridVCLD6.bpl=ExpressQuantumGrid 4 (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxSpreadSheetVCLD6.bpl=ExpressSpreadSheet (VCL Edition) by Developer Express Inc.
+[HistoryLists\hlConditionals]
+Count=1
+Item0=Development
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.dpk
new file mode 100644
index 0000000..1d877bd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.dpk	
@@ -0,0 +1,53 @@
+package RemObjects_DataSnap_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - DataSnap Integration Pack'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE REMOBJECTS_DESIGNTIME}
+
+requires
+  rtl,
+  designide,
+  RemObjects_Core_D6,
+  dbrtl,
+  dsnap,
+  vcl,
+  inet;
+
+contains
+  uRODataSnapConnection in 'uRODataSnapConnection.pas',
+  RemObjects_DataSnap_Reg in 'RemObjects_DataSnap_Reg.pas',
+  uRODataSnap_Async in 'uRODataSnap_Async.pas',
+  uRODataSnap_Intf in 'uRODataSnap_Intf.pas',
+  uRODataSnap_Invk in 'uRODataSnap_Invk.pas',
+  uRODataSnapBaseAppServer in 'uRODataSnapBaseAppServer.pas',
+  uRODataSnapProviderManager in 'uRODataSnapProviderManager.pas',
+  uRODataSnapProviderPublisher in 'uRODataSnapProviderPublisher.pas',
+  uRODataSnapModule in 'uRODataSnapModule.pas',
+  uRODataSnapNewServerModuleWizard in 'uRODataSnapNewServerModuleWizard.pas',
+  uRODataSnapPublishedProvidersCollection in 'uRODataSnapPublishedProvidersCollection.pas',
+  uRODataSnapRes in 'uRODataSnapRes.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.res
new file mode 100644
index 0000000..940698e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D6.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.dof
new file mode 100644
index 0000000..274862e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.dof	
@@ -0,0 +1,139 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - DataSnap Integration Pack
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;cxWebD7;cxWebTeeChartD7;cxWebSnapD7
+Conditionals=REMOBJECTS_DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=2
+MinorVer=0
+Release=0
+Build=122
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.122
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+[Excluded Packages]
+L:\Packages\eBrazil_70.bpl=elitedevelopments Library - Brazil - FOR INTERNAL USE ONLY
+L:\Packages\eBrazilComponents_70.bpl=elitedevelopments Library - Brazil Components - FOR INTERNAL USE ONLY
+L:\Packages\eBrazilContentEditor_70.bpl=elitedevelopments Library - Brazil Content Editor 2.0 - FOR INTERNAL USE ONLY
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.dpk
new file mode 100644
index 0000000..57f695b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.dpk	
@@ -0,0 +1,53 @@
+package RemObjects_DataSnap_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - DataSnap Integration Pack'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE REMOBJECTS_DESIGNTIME}
+
+requires
+  rtl,
+  designide,
+  RemObjects_Core_D7,
+  dbrtl,
+  dsnap,
+  vcl,
+  inet;
+
+contains
+  uRODataSnapConnection in 'uRODataSnapConnection.pas',
+  RemObjects_DataSnap_Reg in 'RemObjects_DataSnap_Reg.pas',
+  uRODataSnap_Async in 'uRODataSnap_Async.pas',
+  uRODataSnap_Intf in 'uRODataSnap_Intf.pas',
+  uRODataSnap_Invk in 'uRODataSnap_Invk.pas',
+  uRODataSnapBaseAppServer in 'uRODataSnapBaseAppServer.pas',
+  uRODataSnapProviderManager in 'uRODataSnapProviderManager.pas',
+  uRODataSnapProviderPublisher in 'uRODataSnapProviderPublisher.pas',
+  uRODataSnapModule in 'uRODataSnapModule.pas',
+  uRODataSnapNewServerModuleWizard in 'uRODataSnapNewServerModuleWizard.pas',
+  uRODataSnapPublishedProvidersCollection in 'uRODataSnapPublishedProvidersCollection.pas',
+  uRODataSnapRes in 'uRODataSnapRes.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_D7.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_Glyphs.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_Glyphs.res
new file mode 100644
index 0000000..0578e6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_Reg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_Reg.pas
new file mode 100644
index 0000000..731fad5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_Reg.pas	
@@ -0,0 +1,51 @@
+unit RemObjects_DataSnap_Reg;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - CodeGen
+{
+{ compiler: Delphi 5 and up, Kylix 2 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the RemObjects SDK
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+{$R RemObjects_DataSnap_Glyphs.res}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses Classes, uROClasses,
+     {$IFNDEF DELPHI5}DesignIntf, DesignEditors, DMForm, {$ELSE} DsgnIntf, DmDesigner, {$ENDIF}
+     uRORes,
+     uRODataSnapModule,
+     uRODataSnapConnection, uRODataSnapProviderPublisher;
+
+procedure Register;
+begin
+  RegisterComponents(str_ProductName,[TRODataSnapConnection,
+                                      TRODataSnapProviderPublisher]);
+
+  { if we don't register this, we get a property editor registered for
+    TCustomRemoteServer that's useless to us. }
+  RegisterPropertyEditor(TypeInfo(string), TRODataSnapConnection, 'ServerName', TStringProperty);
+
+  {$IFDEF DELPHI5}
+  RegisterCustomModule(TRODataSnapModule,TDataModuleDesignerCustomModule);
+  {$ELSE}
+  RegisterCustomModule(TRODataSnapModule,TCustomModule);
+  {$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.dpk
new file mode 100644
index 0000000..c4dbb29
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.dpk	
@@ -0,0 +1,52 @@
+package RemObjects_DataSnap_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - DataSnap Integration Pack'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE REMOBJECTS_DESIGNTIME}
+
+requires
+  rtl,
+  designide,
+  dsnap,
+  vcl,
+  inet,
+  RemObjects_Core_D14;
+
+contains
+  uRODataSnapConnection in 'uRODataSnapConnection.pas',
+  RemObjects_DataSnap_Reg in 'RemObjects_DataSnap_Reg.pas',
+  uRODataSnap_Async in 'uRODataSnap_Async.pas',
+  uRODataSnap_Intf in 'uRODataSnap_Intf.pas',
+  uRODataSnap_Invk in 'uRODataSnap_Invk.pas',
+  uRODataSnapBaseAppServer in 'uRODataSnapBaseAppServer.pas',
+  uRODataSnapProviderManager in 'uRODataSnapProviderManager.pas',
+  uRODataSnapProviderPublisher in 'uRODataSnapProviderPublisher.pas',
+  uRODataSnapModule in 'uRODataSnapModule.pas',
+  uRODataSnapNewServerModuleWizard in 'uRODataSnapNewServerModuleWizard.pas',
+  uRODataSnapPublishedProvidersCollection in 'uRODataSnapPublishedProvidersCollection.pas',
+  uRODataSnapRes in 'uRODataSnapRes.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.dproj
new file mode 100644
index 0000000..ec2b9e7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.dproj	
@@ -0,0 +1,115 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{c00123bd-dbb4-4671-b2ea-4cb563880662}</ProjectGuid>
+			<MainSource>RemObjects_DataSnap_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_DataSnap_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\RemObjects_DataSnap_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\..\Dcu\D14;..;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - DataSnap Integration Pack</DCC_Description>
+			<DCC_Define>REMOBJECTS_DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_DataSnap_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="dsnap.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="inet.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="uRODataSnapConnection.pas"/>
+			<DCCReference Include="RemObjects_DataSnap_Reg.pas"/>
+			<DCCReference Include="uRODataSnap_Async.pas"/>
+			<DCCReference Include="uRODataSnap_Intf.pas"/>
+			<DCCReference Include="uRODataSnap_Invk.pas"/>
+			<DCCReference Include="uRODataSnapBaseAppServer.pas"/>
+			<DCCReference Include="uRODataSnapProviderManager.pas"/>
+			<DCCReference Include="uRODataSnapProviderPublisher.pas"/>
+			<DCCReference Include="uRODataSnapModule.pas"/>
+			<DCCReference Include="uRODataSnapNewServerModuleWizard.pas"/>
+			<DCCReference Include="uRODataSnapPublishedProvidersCollection.pas"/>
+			<DCCReference Include="uRODataSnapRes.pas"/>
+			<DCCReference Include="RemObjects_Core_D13.dcp"/>
+			<DCCReference Include="RemObjects_Core_D1.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_DataSnap_D14.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+					<isVersionControl>
+						<isVersionControl Name="isVersionControlID"/>
+					</isVersionControl>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/RemObjects_DataSnap_d14.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap.rodl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap.rodl
new file mode 100644
index 0000000..5271bf2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap.rodl	
@@ -0,0 +1,109 @@
+<Library Name="uRODataSnap" UID="{9EC7C50C-DAC2-48A9-9A0F-CBAA29A11EF7}" Version="3.0">
+<Services>
+<Service Name="AppServer" UID="{C7A0ADB7-2DE1-4AD6-A518-D64B1D9CB236}" ImplUnit="uRODataSnapModule" ImplClass="TRODataSnapModule">
+<Interfaces>
+<Interface Name="Default" UID="{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}">
+<Operations>
+<Operation Name="AS_ApplyUpdates" UID="{C6FC4450-1E8F-4088-B589-3EF7CAE3F116}">
+<Parameters>
+<Parameter Name="Result" DataType="binary" Flag="Result">
+</Parameter>
+<Parameter Name="ProviderName" DataType="WideString" Flag="In" >
+</Parameter>
+<Parameter Name="Delta" DataType="Binary" Flag="In" >
+</Parameter>
+<Parameter Name="MaxErrors" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="ErrorCount" DataType="Integer" Flag="Out" >
+</Parameter>
+<Parameter Name="OwnerData" DataType="String" Flag="InOut" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="AS_GetRecords" UID="{E6FDDD1C-4BF7-49B8-A113-36041E8135D2}">
+<Parameters>
+<Parameter Name="Result" DataType="binary" Flag="Result">
+</Parameter>
+<Parameter Name="ProviderName" DataType="WideString" Flag="In" >
+</Parameter>
+<Parameter Name="Count" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="RecsOut" DataType="Integer" Flag="Out" >
+</Parameter>
+<Parameter Name="Options" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="CommandText" DataType="WideString" Flag="In" >
+</Parameter>
+<Parameter Name="Params" DataType="Binary" Flag="InOut" >
+</Parameter>
+<Parameter Name="OwnerData" DataType="String" Flag="InOut" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="AS_DataRequest" UID="{E0E88556-1DA8-4025-AF70-B5240A5F8F7A}">
+<Parameters>
+<Parameter Name="Result" DataType="binary" Flag="Result">
+</Parameter>
+<Parameter Name="ProviderName" DataType="WideString" Flag="In" >
+</Parameter>
+<Parameter Name="Data" DataType="Binary" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="AS_GetProviderNames" UID="{B90907BB-07EB-43FE-80E2-FC519AFF6E2B}">
+<Parameters>
+<Parameter Name="Result" DataType="TProviderNames" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="AS_GetParams" UID="{75A73D48-E132-4065-8304-FE408C74FAA6}">
+<Parameters>
+<Parameter Name="Result" DataType="binary" Flag="Result">
+</Parameter>
+<Parameter Name="ProviderName" DataType="WideString" Flag="In" >
+</Parameter>
+<Parameter Name="OwnerData" DataType="String" Flag="InOut" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="AS_RowRequest" UID="{C130225A-AE9B-4070-B40C-C58EB2A2AE5D}">
+<Parameters>
+<Parameter Name="Result" DataType="binary" Flag="Result">
+</Parameter>
+<Parameter Name="ProviderName" DataType="WideString" Flag="In" >
+</Parameter>
+<Parameter Name="Row" DataType="Binary" Flag="In" >
+</Parameter>
+<Parameter Name="RequestType" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="OwnerData" DataType="String" Flag="InOut" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="AS_Execute" UID="{6D3093D6-EAD4-4671-A1CF-CD03BB33DFF7}">
+<Parameters>
+<Parameter Name="ProviderName" DataType="WideString" Flag="In" >
+</Parameter>
+<Parameter Name="CommandText" DataType="WideString" Flag="In" >
+</Parameter>
+<Parameter Name="Params" DataType="Binary" Flag="InOut" >
+</Parameter>
+<Parameter Name="OwnerData" DataType="String" Flag="InOut" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+<Array Name="TProviderNames" UID="{7DF5C761-593D-4FB2-B636-0FB35AF4DEDE}">
+<ElementType DataType="string" />
+</Array>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapBaseAppServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapBaseAppServer.pas
new file mode 100644
index 0000000..e01b8ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapBaseAppServer.pas	
@@ -0,0 +1,188 @@
+unit uRODataSnapBaseAppServer;
+
+interface
+
+uses Classes, Provider, 
+     {$IFDEF MSWINDOWS}
+     Windows, { for InterlocIncrement/Decrement }
+     {$ENDIF MSWINDOWS}
+     uROTypes, uRORemoteDataModule, uRODataSnap_Intf;
+
+type TRODataSnapBaseAppServer = class(TRORemoteDataModule, IUnknown, uRODataSnap_Intf.IAppServer)
+     private
+       fRefCount: Integer;
+
+     protected { uRODataSnap_Intf.IAppServer }
+       function AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: AnsiString): binary;
+       function AS_GetRecords(const ProviderName: WideString; const Count: Integer; out RecsOut: Integer; const Options: Integer; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString): binary;
+       function AS_DataRequest(const ProviderName: WideString; const Data: Binary): binary;
+       function AS_GetProviderNames: TProviderNames;
+       function AS_GetParams(const ProviderName: WideString; var OwnerData: AnsiString): binary;
+       function AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; var OwnerData: AnsiString): binary;
+       procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString);
+
+       { we need to reimplement AdRef/Release to provide reference counting }
+       function _AddRef: Integer; override; stdcall;
+       function _Release: Integer; override; stdcall;
+       function IUnknown._AddRef = _AddRef;
+       function IUnknown._Release = _Release;
+
+     protected
+       function GetProviderByName(const iProviderName:string):TCustomProvider; virtual; abstract;
+       function GetProviderNames:TProviderNames; virtual; abstract;
+     end;
+
+implementation
+
+uses SysUtils,
+     {$IFDEF DEBUG_REMOBJECTS_DATASNAP}eDebugServer,{$ENDIF}
+     uROBinaryHelpers, uROClasses;
+
+function TRODataSnapBaseAppServer.AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: AnsiString): binary;
+var
+  lProvider:TCustomProvider;
+  lOwnerData:OleVariant;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'IAppServer.AS_ApplyUpdates(ProviderName=%s,MaxErrors=%d)',[ProviderName,MaxErrors]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  lProvider := GetProviderByName(ProviderName);
+  lOwnerData := OwnerData;
+  result := BinaryFromVariant(lProvider.ApplyUpdates(VariantFromBinary(Delta),MaxErrors,ErrorCount,lOwnerData));
+  OwnerData := VarToAnsiStr(lOwnerData);
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'IAppServer.AS_ApplyUpdates(ErrorCount=%s)',[ErrorCount]); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TRODataSnapBaseAppServer.AS_GetRecords(const ProviderName: WideString; const Count: Integer; out RecsOut: Integer; const Options: Integer; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString): binary;
+var lProvider:TCustomProvider;
+    lOwnerData,lParams:OleVariant;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'IAppServer.AS_GetRecords(ProviderName=%s,Count=%d,Options=%d,CommandText=%s)',[string(ProviderName),Count,Options,CommandText]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  lProvider := GetProviderByName(ProviderName);
+  //result := BinaryFromVariant(lProvider.GetRecords(Count, RecsOut, Options));
+  lOwnerData := OwnerData;
+  lParams := VariantFromBinary(Params);
+  result := BinaryFromVariant(lProvider.GetRecords(Count, RecsOut, Options, CommandText, lParams, lOwnerData));
+  FreeAndNil(Params);
+  Params := BinaryFromVariant(lParams);
+  OwnerData := VarToAnsiStr(lOwnerData);
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'IAppServer.AS_GetRecords(RecsOut=%d)',[RecsOut]); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TRODataSnapBaseAppServer.AS_DataRequest(const ProviderName: WideString; const Data: Binary): binary;
+var lProvider:TCustomProvider;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'IAppServer.AS_DataRequest(ProviderName=%s)',[ProviderName]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  lProvider := GetProviderByName(ProviderName);
+  result := BinaryFromVariant(lProvider.DataRequest(VariantFromBinary(Data)));
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'IAppServer.AS_DataRequest()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TRODataSnapBaseAppServer.AS_GetProviderNames: TProviderNames;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'IAppServer.AS_GetProviderNames()'); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  result := GetProviderNames();
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'IAppServer.AS_GetProviderNames()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TRODataSnapBaseAppServer.AS_GetParams(const ProviderName: WideString; var OwnerData: AnsiString): binary;
+var lProvider:TCustomProvider;
+    lOwnerData:OleVariant;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'IAppServer.AS_GetParams(ProviderName=%s)',[ProviderName]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  lProvider := GetProviderByName(ProviderName);
+  lOwnerData := OwnerData;
+  result := BinaryFromVariant(lProvider.GetParams(lOwnerData));
+  OwnerData := VarToAnsiStr(lOwnerData);
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'IAppServer.AS_GetParams()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TRODataSnapBaseAppServer.AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; var OwnerData: AnsiString): binary;
+var lProvider:TCustomProvider;
+    lOwnerData:OleVariant;
+begin
+  lProvider := GetProviderByName(ProviderName);
+  lOwnerData := OwnerData;
+  result := BinaryFromVariant(lProvider.RowRequest(VariantFromBinary(Row),RequestType,lOwnerData));
+  OwnerData := VarToAnsiStr(lOwnerData);
+end;
+
+procedure TRODataSnapBaseAppServer.AS_Execute(const ProviderName: WideString; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString);
+var lProvider:TCustomProvider;
+    lParams,lOwnerData:OleVariant;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'IAppServer.AS_Execute(ProviderName=%s,CommandText=%s)',[string(ProviderName),CommandText]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  lProvider := GetProviderByName(ProviderName);
+  lOwnerData := OwnerData;
+  lParams := VariantFromBinary(Params);
+  lProvider.Execute(Commandtext,lParams,lOwnerData);
+  FreeAndNil(Params);
+  Params := BinaryFromVariant(lParams);
+  OwnerData := VarToAnsiStr(lOwnerData);
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'IAppServer.AS_Execute()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TRODataSnapBaseAppServer._AddRef: Integer;
+begin
+  if not (csDesigning in ComponentState) then begin
+    result := InterlockedIncrement(fRefCount);
+  end
+  else Result := 0; { To keep the warning away }
+end;
+
+function TRODataSnapBaseAppServer._Release: Integer;
+begin
+  if not (csDesigning in ComponentState) then begin
+    result := InterlockedDecrement(fRefCount);
+    if result = 0 then Destroy;
+  end
+  else Result := 0; { To keep the warning away }
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapConnection.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapConnection.pas
new file mode 100644
index 0000000..7e707ae
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapConnection.pas	
@@ -0,0 +1,454 @@
+unit uRODataSnapConnection;
+
+interface
+
+uses DBClient, Classes, Midas,
+     {$IFDEF MSWINDOWS}
+     ActiveX, ComObj,{ for ISupportErrorInfo }
+     {$ENDIF MSWINDOWS}
+     uROClient, 
+     uRODataSnap_Intf;
+
+type
+  TROCustomDataSnapConnection = class;
+
+  TRODataSnapConnectionAssignProxyEvent = procedure(Sender : TROCustomDataSnapConnection; var aProxy: IAppServer) of object;
+
+  TROCustomDataSnapConnection = class(TCustomRemoteServer, Midas.IAppServer{$IFDEF MSWINDOWS}, ISupportErrorInfo{$ENDIF MSWINDOWS})
+  private
+    fMessage: TROMessage;
+    fChannel: TRoTransportChannel;
+    fStoreConnected: boolean;
+    fProxy:uRODataSnap_Intf.IAppServer;
+    fServerName: string;
+
+    fOnAssignProxy: TRODataSnapConnectionAssignProxyEvent;
+    procedure SetMessage(const Value: TROMessage);
+    procedure SetChannel(const Value: TRoTransportChannel);
+    procedure SetServerName(const Value: string);
+
+    procedure TriggerAfterConnect;
+
+  private
+
+    { IAppServer }
+    function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; safecall;
+    function AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; safecall;
+    procedure AS_Execute(const ProviderName, CommandText: WideString; var Params, OwnerData: OleVariant); safecall;
+    function AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; safecall;
+    function AS_GetProviderNames: OleVariant; safecall;
+    function AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; Options: Integer; const CommandText: WideString; var Params, OwnerData: OleVariant): OleVariant; safecall;
+    function AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; var OwnerData: OleVariant): OleVariant; safecall;
+
+    { ISupportErrorInfo }
+    {$IFDEF MSWINDOWS}
+    function InterfaceSupportsErrorInfo(const iid: TIID): HResult; stdcall;
+    {$ENDIF MSWINDOWS}
+
+  protected
+    function GetConnected: boolean; override;
+    procedure SetConnected(Value: boolean); override;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure DoAssignProxy; virtual;
+  public
+    constructor Create(iOwner:TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    function GetServer: Midas.IAppServer; override;
+
+    procedure GetProviderNames(Proc: TGetStrProc); override;
+
+    property StoreConnected:boolean read fStoreConnected write fStoreConnected default false;
+
+    { ToDo: Connected property is not always properly set to "false"? }
+    property Connected:boolean read GetConnected write SetConnected stored fStoreConnected default false;
+    property Message:TROMessage read fMessage write SetMessage;
+    property Channel:TRoTransportChannel read fChannel write SetChannel;
+
+    { ToDo: create a proper property editor for this }
+    property ServerName:string read fServerName write SetServerName;
+
+
+    {$IFDEF MSWINDOWS}
+    function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; override;
+    {$ENDIF}
+    property OnAssignProxy: TRODataSnapConnectionAssignProxyEvent read fOnAssignProxy write fOnAssignProxy;
+  end;
+
+  TRODataSnapConnection = class(TROCustomDataSnapConnection)
+  published
+    property Message;
+    property Channel;
+    property StoreConnected;
+    property Connected;
+    property ServerName;
+
+    property OnAssignProxy;
+  end;
+
+implementation
+
+uses DB, SysUtils, Variants,
+     {$IFDEF REMOBJECTS_DESIGNTIME}Forms, Controls, {$ENDIF}
+     {$IFDEF DEBUG_REMOBJECTS_DATASNAP}eDebugServer,{$ENDIF}
+     uROTypes, uROBinaryHelpers, uROClasses;
+
+{ TROCustomDataSnapConnection }
+
+constructor TROCustomDataSnapConnection.Create(iOwner: TComponent);
+begin
+  inherited;
+  ServerName := 'IAppServer';
+end;
+
+procedure TROCustomDataSnapConnection.Assign(Source: TPersistent);
+var
+  lSource: TROCustomDataSnapConnection;
+begin
+  inherited;
+  if Source is TROCustomDataSnapConnection then begin
+    lSource := TROCustomDataSnapConnection(Source);
+
+    Connected := False;
+    Channel := lSource.Channel;
+    Message := lSource.Message;
+    OnAssignProxy := lSource.OnAssignProxy;
+    ServerName := lSource.ServerName;
+    StoreConnected := lSource.StoreConnected;
+    Connected := lSource.Connected;
+  end;
+end;
+
+function TROCustomDataSnapConnection.AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; MaxErrors: Integer;  out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant;
+var lDelta,lResult:Binary;
+    lOwnerData:Ansistring;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'TROCustomDataSnapConnection.AS_ApplyUpdates(ProviderName=%s,MaxErrors=%d)',[ProviderName,MaxErrors]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  Connected := true;
+  lOwnerData := VarToAnsiStr(OwnerData);
+  lDelta := BinaryFromVariant(Delta);
+  try
+    lResult := fProxy.AS_ApplyUpdates(ProviderName,lDelta,MaxErrors,ErrorCount,lOwnerData);
+    try
+      result := VariantFromBinary(lResult);
+    finally
+      FreeAndNil(lResult);
+    end;
+  finally
+    FreeAndNil(lDelta);
+  end;
+  OwnerData := lOwnerData;
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'TROCustomDataSnapConnection.AS_ApplyUpdates(ErrorCount=%d)',[ErrorCount]); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TROCustomDataSnapConnection.AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant;
+var lResult, tmp:Binary;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'TROCustomDataSnapConnection.AS_DataRequest(ProviderName=%s)',[ProviderName]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  Connected := true;
+  tmp:=BinaryFromVariant(Data);
+  try
+    lResult := fProxy.AS_DataRequest(ProviderName,tmp);
+  finally
+    FreeAndNil(tmp);
+  end;
+
+  try
+    result := VariantFromBinary(lResult);
+  finally
+    FreeAndNil(lResult);
+  end;
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'TROCustomDataSnapConnection.AS_DataRequest()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+procedure TROCustomDataSnapConnection.AS_Execute(const ProviderName,CommandText: WideString; var Params, OwnerData: OleVariant);
+var lParams,lInParams:Binary;
+    lOwnerData:Ansistring;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'TROCustomDataSnapConnection.AS_Execute(ProviderName=%s,CommandText=%s)',[ProviderName,CommandText]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  Connected := true;
+  lOwnerData := VarToAnsiStr(OwnerData);
+  lParams := BinaryFromVariant(Params);
+  lInParams := lParams;
+  try
+    fProxy.AS_Execute(ProviderName,CommandText,lParams,lOwnerData);
+    Params := VariantFromBinary(lParams);
+  finally
+    if (lParams <> lInParams) then FreeAndNil(lParams);
+    freeAndNil(lInParams);
+  end;
+  OwnerData := lOwnerData;
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'TROCustomDataSnapConnection.AS_Execute()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TROCustomDataSnapConnection.AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant;
+var lResult:Binary;
+    lOwnerData:Ansistring;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'TROCustomDataSnapConnection.AS_GetParams(ProviderName=%s)',[ProviderName]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  Connected := true;
+  lOwnerData := VarToAnsiStr(OwnerData);
+  lResult := fProxy.AS_GetParams(ProviderName,lOwnerData);
+  try
+    result := VariantFromBinary(lResult);
+  finally
+    FreeAndNil(lResult);
+  end;
+  OwnerData := lOwnerData;
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'TROCustomDataSnapConnection.AS_GetParams()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TROCustomDataSnapConnection.AS_GetProviderNames: OleVariant;
+var lProviderNames:TProviderNames;
+    i:integer;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'TROCustomDataSnapConnection.AS_GetProviderNames()'); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  Connected := true;
+  lProviderNames := fProxy.AS_GetProviderNames();
+  try
+    result := VarArrayCreate([0,lProviderNames.Count-1],varString);
+    for i := 0 to lProviderNames.Count-1 do begin
+      result[i] := lProviderNames[i];
+    end;    { for }
+  finally
+    lProviderNames.Free();
+  end;
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'TROCustomDataSnapConnection.AS_GetProviderNames()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TROCustomDataSnapConnection.AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; Options: Integer; const CommandText: WideString; var Params, OwnerData: OleVariant): OleVariant;
+var lParams,lInParams,lResult:Binary;
+    lOwnerData:Ansistring;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'TROCustomDataSnapConnection.AS_GetRecords(ProviderName=%s,Count=%d,Options=%d)',[ProviderName,Count,Options]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  Connected := true;
+  lOwnerData := VarToAnsiStr(OwnerData);
+  lParams := BinaryFromVariant(Params);
+  lInParams := lParams;
+  try
+    lResult := fProxy.AS_GetRecords(ProviderName,Count,RecsOut,Options,CommandText,lParams,lOwnerData);
+    try
+      result := VariantFromBinary(lResult);
+    finally
+      FreeAndNil(lResult);
+    end;
+    Params := VariantFromBinary(lParams);
+  finally
+    if (lParams <> lInParams) then FreeAndNil(lParams);
+    FreeAndNil(lInParams);
+  end;
+  OwnerData := lOwnerData;
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'TROCustomDataSnapConnection.AS_GetRecords(RecsOut=%d)',[RecsOut]); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TROCustomDataSnapConnection.AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; var OwnerData: OleVariant): OleVariant;
+var lRow,lResult:Binary;
+    lOwnerData:Ansistring;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  DebugServer.EnterMethodEx(self,'TROCustomDataSnapConnection.AS_RowRequest(ProviderName=%s,RequestType=%d)',[ProviderName,RequestType]); try
+  try
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+
+  Connected := true;
+  lOwnerData := VarToAnsiStr(OwnerData);
+  lRow := BinaryFromVariant(Row);
+  try
+    lResult := fProxy.AS_RowRequest(ProviderName,lRow,RequestType,lOwnerData);
+    try
+      result := VariantFromBinary(lResult);
+    finally
+      FreeAndNil(lResult);
+    end;
+  finally
+    FreeAndNil(lRow);
+  end;
+  OwnerData := lOwnerData;
+
+  {$IFDEF DEBUG_REMOBJECTS_DATASNAP}
+  except DebugServer.WriteException(); raise; end;
+  finally DebugServer.ExitMethodEx(self,'TROCustomDataSnapConnection.AS_RowRequest()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_DATASNAP}
+end;
+
+function TROCustomDataSnapConnection.GetConnected: boolean;
+begin
+  result := Assigned(fProxy);
+end;
+
+function TROCustomDataSnapConnection.GetServer: Midas.IAppServer;
+begin
+  result := self;
+end;
+
+procedure TROCustomDataSnapConnection.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if Operation = opRemove then begin
+    if AComponent = fMessage then begin
+      Message := nil;
+      Connected := False;
+    end
+    else if AComponent = Channel then begin
+      Channel := nil;
+      Connected := False;
+    end;
+  end;
+end;
+
+procedure TROCustomDataSnapConnection.SetChannel(const Value:TRoTransportChannel);
+begin
+  if Value <> fChannel then begin
+    if Assigned(fChannel) then fChannel.RORemoveFreeNotification(self);
+    fChannel := Value;
+    if Assigned(fChannel) then fChannel.ROFreeNotification(self);
+    Connected := False;
+  end;
+end;
+
+procedure TROCustomDataSnapConnection.SetConnected(Value: boolean);
+begin
+  if Value = Connected then exit;
+
+  if Value then begin
+
+    if not Assigned(fMessage) then raise Exception.Create('Cannot connect: No Message assigned.');
+    if not Assigned(fChannel) then raise Exception.Create('Cannot connect: No TransportChannel assigned.');
+    DoAssignProxy;
+
+    TriggerAfterConnect();
+
+  end
+  else begin
+
+    fProxy := nil;
+
+  end;
+end;
+
+procedure TROCustomDataSnapConnection.SetMessage(const Value:TROMessage);
+begin
+  if Value <> fMessage then begin
+    if Assigned(fMessage) then fMessage.RORemoveFreeNotification(self);
+    fMessage := Value;
+    if Assigned(fMessage) then fMessage.ROFreeNotification(self);
+    Connected := False;
+  end;
+end;
+
+
+procedure TROCustomDataSnapConnection.GetProviderNames(Proc: TGetStrProc);
+var lProviderNames:TProviderNames;
+    i:integer;
+begin
+  { This version is a bit optimized over the default one, because we can
+    skip converting to a variant array first. }
+
+  {$IFDEF REMOBJECTS_DESIGNTIME}
+  Screen.Cursor := crHourGlass;
+  try
+  {$ENDIF REMOBJECTS_DESIGNTIME}
+    Connected := True;
+    lProviderNames := fProxy.AS_GetProviderNames();
+    try
+      for i := 0 to lProviderNames.Count-1 do begin
+        Proc({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(lProviderNames[i]));
+      end;    { for }
+    finally
+      lProviderNames.Free();
+    end;
+  {$IFDEF REMOBJECTS_DESIGNTIME}
+  finally
+  	Screen.Cursor := crDefault;
+  end;  { try/finally }
+  {$ENDIF REMOBJECTS_DESIGNTIME}
+
+end;
+
+{$IFDEF MSWINDOWS}
+function TROCustomDataSnapConnection.InterfaceSupportsErrorInfo(const iid: TIID): HResult;
+begin
+  if GetInterfaceEntry(iid) <> nil then result := S_OK else result := S_FALSE;
+end;
+
+function TROCustomDataSnapConnection.SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult;
+const lErrorGuid : TGUID = '{00000000-0000-0000-0000-000000000000}';
+begin
+  Result := HandleSafeCallException(ExceptObject, ExceptAddr, lErrorGuid, '', '');
+end;
+{$ENDIF MSWINDOWS}
+
+procedure TROCustomDataSnapConnection.SetServerName(const Value: string);
+begin
+  Connected := False;
+  fServerName := Value;
+end;
+
+procedure TROCustomDataSnapConnection.TriggerAfterConnect;
+begin
+  if Assigned(AfterConnect) then AfterConnect(self);
+end;
+
+destructor TROCustomDataSnapConnection.Destroy;
+begin
+  Message := nil;
+  Channel := nil;
+  inherited;
+end;
+
+procedure TROCustomDataSnapConnection.DoAssignProxy;
+begin
+  if Assigned(fOnAssignProxy) then OnAssignProxy(Self, fProxy);
+  if not Assigned(fProxy) then fProxy := CoAppServer.Create(fServerName, fMessage, fChannel);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapModule.pas
new file mode 100644
index 0000000..a2cb0bb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapModule.pas	
@@ -0,0 +1,188 @@
+unit uRODataSnapModule;
+
+interface
+
+uses Classes, Provider, Contnrs,
+     uRODataSnap_Intf, uRODataSnapPublishedProvidersCollection,
+     uRODataSnapBaseAppServer;
+
+
+type
+  TRODataSnapModule = class(TRODataSnapBaseAppServer)
+  private
+    fProviders: TPublishedProviders;
+    fInternalRegisteredProviders:TObjectList;
+    fUseProviders: boolean;
+    procedure SetProviders(const Value: TPublishedProviders);
+  protected
+    function GetProviderByName(const iProviderName:string):TCustomProvider; override;
+    function GetProviderNames:TProviderNames; override;
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+
+    procedure RegisterProvider(iProvider:TCustomProvider; const iName:string); overload;
+    procedure UnRegisterProvider(iProvider:TCustomProvider; const iName:string); overload;
+    procedure RegisterProvider(iProvider:TCustomProvider); overload;
+    procedure UnRegisterProvider(iProvider:TCustomProvider); overload;
+
+  published
+    property Providers:TPublishedProviders read fProviders write SetProviders;
+    property UseProviders:boolean read fUseProviders write fUseProviders default false;
+  end;
+
+implementation
+
+uses SysUtils, uROClasses,
+     uRODataSnapRes;
+
+{ TRODataSnapModule }
+
+procedure TRODataSnapModule.Assign(Source: TPersistent);
+var
+  lSource: TRODataSnapModule;
+begin
+  inherited;
+  if Source is TRODataSnapModule then begin
+    lSource := TRODataSnapModule(Source);
+
+    Providers := lSource.Providers;
+    UseProviders := lSource.UseProviders;
+  end;
+end;
+
+constructor TRODataSnapModule.Create(AOwner: TComponent);
+begin
+  fProviders := TPublishedProviders.Create(self);
+  fInternalRegisteredProviders := TObjectList.Create();
+  fInternalRegisteredProviders.OwnsObjects := False;
+  inherited;
+end;
+
+destructor TRODataSnapModule.Destroy;
+begin
+  FreeAndNil(fProviders);
+  FreeAndNil(fInternalRegisteredProviders);
+  inherited;
+end;
+
+function TRODataSnapModule.GetProviderByName(const iProviderName: string): TCustomProvider;
+var lPublishedProvider: TPublishedProvider;
+    lProvider:TCustomProvider;
+    i:integer;
+begin
+  if UseProviders then begin
+    lPublishedProvider := Providers.GetProviderByName(iProviderName);
+    if not Assigned(lPublishedProvider) then raise Exception.CreateFmt(sProviderNotExported,[iProviderName]);
+    result := lPublishedProvider.Provider;
+    if not Assigned(result) then raise Exception.CreateFmt(sProviderNotExported,[iProviderName]);
+  end
+  else begin
+    result := nil;
+
+    { find provider on datamodule }
+    for i := 0 to ComponentCount-1 do begin
+      if Components[i] is TCustomProvider then begin
+        lProvider := TCustomProvider(Components[i]);
+        if lProvider.Exported and (lProvider.Name = iProviderName) then begin
+          result := lProvider;
+          Exit;
+        end;
+      end;
+    end;
+
+    { if not, find it in list of explicitely registered list }
+    for i := 0 to fInternalRegisteredProviders.Count-1 do begin
+      lProvider := (fInternalRegisteredProviders[i] as TCustomProvider);
+      if lProvider.Exported and (lProvider.Name = iProviderName) then begin
+        result := lProvider;
+        Exit;
+      end;
+    end;
+
+    if not Assigned(result) then raise Exception.CreateFmt(sProviderNotExported,[iProviderName]);
+  end;
+end;
+
+function TRODataSnapModule.GetProviderNames: TProviderNames;
+var i:integer;
+begin
+  result := TProviderNames.Create();
+
+  if UseProviders then begin
+    for i := 0 to Providers.Count-1 do begin
+      if (Providers[i].Name <> '') and Assigned(Providers[i].Provider) then result.Add({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(Providers[i].Name));
+    end;
+  end
+  else begin
+    { list providers on form }
+    for i := 0 to ComponentCount-1 do begin
+      if Components[i] is TCustomProvider then
+        with TCustomProvider(Components[i]) do begin
+          if Exported then result.Add({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(Name));
+      end;
+    end;
+    { list explicitely regsitered providers }
+    for i := 0 to fInternalRegisteredProviders.Count-1 do begin
+      with (fInternalRegisteredProviders[i] as TCustomProvider) do begin
+        if Exported then result.Add({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(Name));
+      end;
+    end;
+  end;
+end;
+
+procedure TRODataSnapModule.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  inherited;
+  if Operation = opRemove then begin
+    if (AComponent is TCustomProvider) and Assigned(Providers) then begin
+      Providers.UnlinkProvider(AComponent as TCustomProvider);
+      fInternalRegisteredProviders.Remove(AComponent);
+    end;
+  end;
+end;
+
+procedure TRODataSnapModule.RegisterProvider(iProvider:TCustomProvider; const iName:string);
+begin
+  if not Assigned(iProvider) then Exit;
+
+  if not fProviders.ContainsProvider(iProvider) then
+    with fProviders.Add() as TPublishedProvider do begin
+      Provider := iProvider;
+      if iName <> '' then Name := iName;
+    end;
+
+  if fInternalRegisteredProviders.IndexOf(iProvider) = -1 then
+    fInternalRegisteredProviders.Add(iProvider);
+
+end;
+
+procedure TRODataSnapModule.UnRegisterProvider(iProvider:TCustomProvider; const iName:string);
+begin
+  if not Assigned(iProvider) then Exit;
+  fProviders.RemoveProvider(iProvider);
+
+  fInternalRegisteredProviders.Remove(iProvider);
+end;
+
+
+procedure TRODataSnapModule.RegisterProvider(iProvider: TCustomProvider);
+begin
+  RegisterProvider(iProvider,'');
+end;
+
+procedure TRODataSnapModule.UnRegisterProvider(iProvider: TCustomProvider);
+begin
+  UnRegisterProvider(iProvider,'');
+end;
+
+
+procedure TRODataSnapModule.SetProviders(const Value: TPublishedProviders);
+begin
+  fProviders.Assign(Value);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapNewServerModuleWizard.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapNewServerModuleWizard.pas
new file mode 100644
index 0000000..9b8229c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapNewServerModuleWizard.pas	
@@ -0,0 +1,374 @@
+unit uRODataSnapNewServerModuleWizard;
+
+{$I ..\RemObjects.inc}
+
+interface
+
+uses DesignEditors, ToolsAPI, Windows, ActnList, Menus, Classes;
+
+const CRLF = #13#10;		// Carriage-return line-feed.
+
+resourcestring
+  sBasicDfmSource =
+    'object %0:s: T%0:s'                                       + crlf +
+    '  Left = 200'                                             + crlf +
+    '  Top = 200'                                              + crlf +
+    '  Height = 300'                                           + crlf +
+    '  Width = 300'                                            + crlf +
+    'end';
+
+
+  sBasicFormSource =
+    'unit %0:s;' 					       + crlf +
+                                                                 crlf +
+    'interface'  					       + crlf +
+                                                                 crlf +
+    'uses {vcl:} SysUtils, Classes, DB, DBClient, '            + crlf +
+    '     {RemObjects:} %3:s;'                                 + crlf +
+                                                                 crlf +
+    'type'                                                     + crlf +
+    '  T%1:s = class(%2:s)'  				       + crlf +
+    '  private' 	 				       + crlf +
+    '    { Private declarations }'                             + crlf +
+    '  public'  			                       + crlf +
+    '    { Public declarations }' 		               + crlf +
+    '  end;'	 					       + crlf +
+                                                                 crlf +
+    'var'  						       + crlf +
+    '  %1:s: T%1:s;'                                           + crlf +
+                                                                 crlf +
+    'implementation'                                           + crlf +
+                                                                 crlf +
+    'uses {RemObjects:} uROServer, uRODataSnap_Invk;'          + crlf +
+                                                                 crlf +
+    '{$R *.DFM}'                                               + crlf +
+                                                                 crlf +
+    'procedure Create_DataSnapModule(out oInstance:IUnknown);' + crlf +
+    'begin'                                                    + crlf +
+    '  oInstance := T%1:s.Create(nil);'                         + crlf +
+    'end;'                                                     + crlf +
+                                                                 crlf +
+    'initialization'                                           + crlf +
+    '  { To adjust scalability of the DataSnapModule and avoid recreation of'   + crlf +
+    '    instances for each roundtrip, you might want to choose a  different'   + crlf +
+    '    ClassFactory type.'                                           + crlf +
+    crlf +
+    '    Make sure to check the following url for more information:'+ crlf+
+    '    http://www.remobjects.com?ro16 }'+ crlf +
+    crlf +
+    '  //TROPooledClassFactory.Create(''IAppServer'', Create_DataSnapModule, TAppServer_Invoker, 25);' + crlf +
+    '  TROClassFactory.Create(''IAppServer'', Create_DataSnapModule, TAppServer_Invoker);' + crlf +
+    'end.' 																																			+ crlf;
+
+type TSourceFile = class(TInterfacedObject, IOTAFile)
+     private
+       fAge: TDateTime;
+       fSource:string;
+     public
+       function GetSource: string;
+       function GetAge: TDateTime;
+       constructor Create(const iSource:string);
+     end;
+
+     TBaseFormCreator = class(TInterfacedObject, IOTAModuleCreator)
+     public
+       function GetCreatorType: string;
+       function GetExisting: Boolean;
+       function GetFileSystem: string;
+       function GetOwner: IOTAModule;
+       function GetUnnamed: Boolean;
+
+       function GetAncestorName: string;
+       function GetImplFileName: string;
+       function GetIntfFileName: string;
+       function GetFormName: string;
+       function GetMainForm: Boolean;
+       function GetShowForm: Boolean;
+       function GetShowSource: Boolean;
+       function NewFormFile(const FormIdent, AncestorIdent: string): IOTAFile;
+       function NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+       function NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: string): IOTAFile;
+
+       procedure FormCreated(const FormEditor: IOTAFormEditor);
+     end;		{ TBaseFormCreator }
+
+     TNewModuleExpert = class(TInterfacedObject,
+       IOTAWizard,
+       IOTARepositoryWizard,
+       IOTAFormWizard,
+       {$IFDEF BDS}
+       IOTARepositoryWizard80,
+       {$ENDIF}
+       IOTARepositoryWizard60)
+     public
+
+       constructor Create();
+       destructor Destroy(); override;
+
+       procedure AfterSave;
+       procedure BeforeSave;
+       procedure Destroyed;
+       procedure Modified;
+
+       procedure Execute;
+       function GetAuthor: String;
+       function GetComment: String;
+       function GetGlyph: Cardinal;
+       function GetIDString: String;
+       function GetName: String;
+       function GetPage: String;
+       function GetState: TWizardState;
+       function GetDesigner: String;
+
+       {$IFDEF BDS}
+       function GetGalleryCategory: IOTAGalleryCategory;
+       function GetPersonality: string;
+       {$ENDIF}
+
+     end;
+
+procedure Register;
+
+implementation
+
+uses SysUtils, Graphics,
+     uRORes;
+
+{ TBaseFormCreator }
+
+procedure TBaseFormCreator.FormCreated(const FormEditor: IOTAFormEditor);
+begin
+
+end;
+
+function TBaseFormCreator.GetAncestorName: string;
+begin
+  result := 'TRODataSnapModule';
+end;
+
+function TBaseFormCreator.GetCreatorType: string;
+begin
+  result := sForm;
+end;
+
+function TBaseFormCreator.GetExisting: Boolean;
+begin
+  result := false;
+end;
+
+function TBaseFormCreator.GetFileSystem: string;
+begin
+  result := '';
+end;
+
+function TBaseFormCreator.GetFormName: string;
+begin
+  result := '';
+end;
+
+function TBaseFormCreator.GetImplFileName: string;
+begin
+  result := '';
+end;
+
+function TBaseFormCreator.GetIntfFileName: string;
+begin
+  result := '';
+end;
+
+function TBaseFormCreator.GetMainForm: Boolean;
+begin
+  result := false;
+end;
+{$WARNINGS OFF}
+function TBaseFormCreator.GetOwner: IOTAModule;
+var
+  ModuleServices: IOTAModuleServices;
+  Module: IOTAModule;
+  NewModule: IOTAModule;
+begin
+  Result := nil;
+  if BorlandIDEServices.QueryInterface(IOTAModuleServices, ModuleServices) =
+S_OK then
+  begin
+    Module := ModuleServices.CurrentModule;
+    if Module <> nil then
+      if Module.GetOwnerCount > 0 then
+      begin
+         NewModule := Module.GetOwner(0);
+         if NewModule <> nil then
+            if NewModule.QueryInterface(IOTAProject, Result) <> S_OK then
+               Result := nil;
+      end;
+  end;
+end;
+{$WARNINGS ON}
+
+function TBaseFormCreator.GetShowForm: Boolean;
+begin
+  result := true;
+end;
+
+function TBaseFormCreator.GetShowSource: Boolean;
+begin
+  result := true;
+end;
+
+function TBaseFormCreator.GetUnnamed: Boolean;
+begin
+  result := true;
+end;
+
+function RemoveInitialT(const iString:string):string;
+begin
+  result := iString;
+  if (result <> '') and (result[1] = 'T') then Delete(result,1,1);
+  //ShowMessage(iString+' '+result);
+end;
+
+function TBaseFormCreator.NewFormFile(const FormIdent,
+  AncestorIdent: string): IOTAFile;
+begin
+  result := TSourceFile.Create(Format(sBasicDfmSource,[RemoveInitialT(FormIdent)]));
+end;
+
+function TBaseFormCreator.NewImplSource(const ModuleIdent, FormIdent,
+  AncestorIdent: string): IOTAFile;
+begin
+  result := TSourceFile.Create(Format(sBasicFormSource,[ModuleIdent,RemoveInitialT(FormIdent),AncestorIdent,'uRODataSnapModule']));
+end;
+
+function TBaseFormCreator.NewIntfSource(const ModuleIdent, FormIdent,
+  AncestorIdent: string): IOTAFile;
+begin
+
+end;
+
+{ TSourceFile }
+
+constructor TSourceFile.Create(const iSource: string);
+begin
+  inherited Create();
+  fSource := iSource;
+  fAge := Now;
+end;
+
+function TSourceFile.GetAge: TDateTime;
+begin
+  result := fAge;
+end;
+
+function TSourceFile.GetSource: string;
+begin
+  result := fSource;
+end;
+
+{ TNewModuleExpert }
+
+constructor TNewModuleExpert.Create;
+begin
+  inherited;
+end;
+
+destructor TNewModuleExpert.Destroy;
+begin
+  inherited;
+end;
+
+procedure TNewModuleExpert.Execute;
+var
+  ModuleServices: IOTAModuleServices;
+  ModuleCreator: IOTAModuleCreator;
+begin
+  if BorlandIDEServices.QueryInterface(IOTAModuleServices, ModuleServices) = S_OK then
+  begin
+    ModuleCreator := TBaseFormCreator.Create;
+    ModuleServices.CreateModule(ModuleCreator);
+  end;
+end;
+
+function TNewModuleExpert.GetAuthor: String;
+begin
+  result := 'RemObjects Software';
+end;
+
+function TNewModuleExpert.GetComment: String;
+begin
+  result := 'RemObjects DataSnap Server Module';
+end;
+
+function TNewModuleExpert.GetGlyph: Cardinal;
+begin
+  result := LoadIcon(hInstance,'NewDataSnapModule');
+end;
+
+function TNewModuleExpert.GetIDString: String;
+begin
+  result := 'RemObjectsDataSnapModule';
+end;
+
+function TNewModuleExpert.GetName: String;
+begin
+  result := 'RemObjects DataSnap Server Module';
+end;
+
+function TNewModuleExpert.GetPage: String;
+begin
+  result := 'RemObjects SDK';
+end;
+
+{$IFDEF BDS}
+function TNewModuleExpert.GetGalleryCategory: IOTAGalleryCategory;
+var
+  lGalleryManager: IOTAGalleryCategoryManager;
+begin
+  lGalleryManager := BorlandIDEServices as IOTAGalleryCategoryManager;
+  result := lGalleryManager.FindCategory('RemObjectsSdkDelphi');
+end;
+
+function TNewModuleExpert.GetPersonality: string;
+begin
+  result := sDelphiPersonality;
+end;
+{$ENDIF}
+
+function TNewModuleExpert.GetState: TWizardState;
+begin
+  result := [wsEnabled];
+end;
+
+procedure TNewModuleExpert.AfterSave;
+begin
+
+end;
+
+procedure TNewModuleExpert.BeforeSave;
+begin
+
+end;
+
+procedure TNewModuleExpert.Destroyed;
+begin
+
+end;
+
+procedure TNewModuleExpert.Modified;
+begin
+
+end;
+
+procedure Register;
+begin
+  RegisterPackageWizard(TNewModuleExpert.Create as IOTAFormWizard);
+end;
+
+{$R 'uRODataSnapNewServerModuleWizard.res' 'uRODataSnapNewServerModuleWizard.rc'}
+
+function TNewModuleExpert.GetDesigner: String;
+begin
+  Result := dAny;
+end;
+
+initialization
+finalization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapNewServerModuleWizard.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapNewServerModuleWizard.res
new file mode 100644
index 0000000..e3a9d19
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapNewServerModuleWizard.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderManager.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderManager.pas
new file mode 100644
index 0000000..98c0e81
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderManager.pas	
@@ -0,0 +1,72 @@
+unit uRODataSnapProviderManager;
+
+interface
+
+uses Contnrs, Provider,
+     uRODataSnapProviderPublisher, uRODataSnap_Intf;
+
+type TProviderManager = class(TObjectList)
+     public
+       constructor Create(); 
+       procedure RegisterPublisher(iPublisher:TROCustomDataSnapProviderPublisher);
+       procedure UnregisterPublisher(iPublisher:TROCustomDataSnapProviderPublisher);
+       function GetProviderNames:TProviderNames;
+       function GetProviderByName(const iProviderName:string):TCustomProvider;
+     end;
+
+var ProviderManager:TProviderManager;
+
+implementation
+
+uses SysUtils, Classes,
+     uRODataSnapRes;
+
+{ TProviderManager }
+
+constructor TProviderManager.Create;
+begin
+  inherited Create(false);
+end;
+
+function TProviderManager.GetProviderByName(const iProviderName:string): TCustomProvider;
+var i:integer;
+begin
+  //ToDo: protect by CriticalSection;
+
+  result := nil;
+  for i := 0 to Count-1 do begin
+    result := (Items[i] as TRODataSnapProviderPublisher).GetProviderByName(iProviderName);
+    if Assigned(result) then break;
+  end; { for }
+  if not Assigned(result) then raise Exception.CreateFmt(sProviderNotExported,[iProviderName]);
+end;
+
+function TProviderManager.GetProviderNames: TProviderNames;
+var i:integer;
+begin
+  //ToDo: protect by CriticalSection;
+  result := TProviderNames.Create();
+  for i := 0 to Count-1 do begin
+    (Items[i] as TRODataSnapProviderPublisher).AddNamesToTProviderNames(result);
+  end; { for }
+end;
+
+procedure TProviderManager.RegisterPublisher(iPublisher: TROCustomDataSnapProviderPublisher);
+begin
+  //ToDo: protect by CriticalSection;
+  if IndexOf(iPublisher) = -1 then Add(iPublisher);
+end;
+
+procedure TProviderManager.UnregisterPublisher(iPublisher: TROCustomDataSnapProviderPublisher);
+var lIndex:integer;
+begin
+  lIndex := IndexOf(iPublisher);
+  if IndexOf(iPublisher) <> -1 then Delete(lIndex);
+end;
+
+initialization
+  ProviderManager := TProviderManager.Create();
+finalization
+  FreeAndNil(ProviderManager);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderPublisher.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderPublisher.dfm
new file mode 100644
index 0000000..63c080f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderPublisher.dfm	
@@ -0,0 +1,2 @@
+object RODataSnapSimpleAppServer: TRODataSnapSimpleAppServer
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderPublisher.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderPublisher.pas
new file mode 100644
index 0000000..4f07ebd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapProviderPublisher.pas	
@@ -0,0 +1,125 @@
+unit uRODataSnapProviderPublisher;
+
+interface
+
+uses Classes, Provider,
+     uRODataSnap_Intf,
+     uRODataSnapPublishedProvidersCollection, uRODataSnapBaseAppServer;
+
+type
+  TROCustomDataSnapProviderPublisher = class(TComponent)
+  private
+    fProviders: TPublishedProviders;
+    procedure SetProviders(const Value: TPublishedProviders);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure AddNamesToTProviderNames(iProviderNames:TProviderNames);
+    function GetProviderByName(const iProviderName:string):TCustomProvider;
+    property Providers:TPublishedProviders read fProviders write SetProviders;
+  end;
+
+  TRODataSnapProviderPublisher = class(TROCustomDataSnapProviderPublisher)
+  published
+    property Providers;
+  end;
+
+implementation
+
+uses
+  SysUtils,
+  uROServer, uRODataSnapProviderManager, uRODataSnap_Invk, uROClasses;
+
+type TRODataSnapSimpleAppServer = class(TRODataSnapBaseAppServer)
+       function GetProviderByName(const iProviderName:string):TCustomProvider; override;
+       function GetProviderNames:TProviderNames; override;
+     end;
+
+procedure Create_AppServer(out anInstance : IUnknown);
+begin
+  anInstance := TRODataSnapSimpleAppServer.Create(nil);
+end;
+
+{ TROCustomDataSnapProviderPublisher }
+
+procedure TROCustomDataSnapProviderPublisher.AddNamesToTProviderNames(iProviderNames: TProviderNames);
+var i:integer;
+begin
+  //ToDo: protect by CriticalSection;
+
+  for I := 0 to Providers.Count-1 do begin
+    if (Providers[i].Name <> '') and Assigned(Providers[i].Provider) then
+      iProviderNames.Add({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(Providers[i].Name));
+  end;    { for }
+end;
+
+procedure TROCustomDataSnapProviderPublisher.Assign(Source: TPersistent);
+var
+  lSource: TROCustomDataSnapProviderPublisher;
+begin
+  inherited;
+  if Source is TROCustomDataSnapProviderPublisher then begin
+    lSource := TROCustomDataSnapProviderPublisher(Source);
+    Providers := lSource.Providers;
+  end;
+end;
+
+constructor TROCustomDataSnapProviderPublisher.Create(AOwner: TComponent);
+begin
+  inherited;
+  fProviders := TPublishedProviders.Create(self);
+  ProviderManager.RegisterPublisher(self);
+  if not IsClassFactoryRegistered('IAppServer') then
+    TROClassFactory.Create('IAppServer', Create_AppServer, TAppServer_Invoker);
+end;
+
+destructor TROCustomDataSnapProviderPublisher.Destroy;
+begin
+  ProviderManager.UnregisterPublisher(self);
+  FreeAndNil(fProviders);
+  inherited;
+end;
+
+function TROCustomDataSnapProviderPublisher.GetProviderByName(const iProviderName:string): TCustomProvider;
+var lPublishedProvider:TPublishedProvider;
+begin
+  //ToDo: protect by CriticalSection;
+  lPublishedProvider := fProviders.GetProviderByName(iProviderName);
+  if Assigned(lPublishedProvider) then result := lPublishedProvider.Provider
+  else result := nil;
+end;
+
+procedure TROCustomDataSnapProviderPublisher.Notification(
+  AComponent: TComponent; Operation: TOperation);
+begin
+  inherited;
+  if Operation = opRemove then begin
+    if AComponent is TCustomProvider then Providers.UnlinkProvider(AComponent as TCustomProvider);
+  end;
+end;
+
+procedure TROCustomDataSnapProviderPublisher.SetProviders(
+  const Value: TPublishedProviders);
+begin
+  fProviders.Assign(Value);
+end;
+
+function TRODataSnapSimpleAppServer.GetProviderByName(const iProviderName:string):TCustomProvider;
+begin
+  result := ProviderManager.GetProviderByName(iProviderName);
+end;
+
+function TRODataSnapSimpleAppServer.GetProviderNames: TProviderNames;
+begin
+  result := ProviderManager.GetProviderNames();
+end;
+
+{$R *.dfm}
+
+initialization
+  //ToDo: maybe postpone this registration and move it to the constructor of the component?
+  //TROClassFactory.Create('AppServer', Create_AppServer, TAppServer_Invoker);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapPublishedProvidersCollection.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapPublishedProvidersCollection.pas
new file mode 100644
index 0000000..f46461e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapPublishedProvidersCollection.pas	
@@ -0,0 +1,126 @@
+unit uRODataSnapPublishedProvidersCollection;
+
+interface
+
+uses Classes, Provider;
+
+type TPublishedProvider = class(TCollectionItem)
+     private
+       fProvider:TCustomProvider;
+       fName: string;
+       procedure SetProvider(const iValue:TCustomProvider);
+       procedure SetName(const iValue:string);
+     protected
+       function GetDisplayName: string; override;
+     published
+       property Provider:TCustomProvider read fProvider write SetProvider;
+       property Name:string read fName write SetName;
+     end;
+
+     TPublishedProviders = class(TCollection)
+     private
+       fOwner:TComponent;
+       function GetItems(iIndex: integer): TPublishedProvider;
+     protected
+       function GetOwner: TPersistent; override;
+     public
+       constructor Create(iOwner:TComponent);
+       property Items[iIndex:integer]:TPublishedProvider read GetItems; default;
+       function GetProviderByName(iName:string):TPublishedProvider;
+       procedure UnlinkProvider(iProvider:TCustomProvider);
+       procedure RemoveProvider(iProvider:TCustomProvider);
+       function ContainsProvider(iProvider:TCustomProvider):Boolean;
+     end;
+
+implementation
+
+{ TPublishedProviders }
+
+constructor TPublishedProviders.Create(iOwner: TComponent);
+begin
+  inherited Create(TPublishedProvider);
+  fOwner := iOwner;
+end;
+
+function TPublishedProviders.GetItems(iIndex: integer): TPublishedProvider;
+begin
+  result := (inherited Items[iIndex]) as TPublishedProvider;
+end;
+
+function TPublishedProviders.GetOwner: TPersistent;
+begin
+  result := fOwner;
+end;
+
+function TPublishedProviders.GetProviderByName(iName:string):TPublishedProvider;
+var i:Integer;
+begin
+  result := nil;
+  i := 0;
+  while (i < Count) and (result = nil) do begin
+    if Items[i].Name = iName then result := Items[i];
+    Inc(i);
+  end;    { while }
+end;
+
+function TPublishedProviders.ContainsProvider(iProvider: TCustomProvider): Boolean;
+var i:Integer;
+begin
+  Result := False;
+  for i := 0 to Count-1 do begin
+    if Items[i].Provider = iProvider then begin
+      Result := True;
+      break;
+    end;
+  end;
+end;
+
+procedure TPublishedProviders.RemoveProvider(iProvider: TCustomProvider);
+var i:Integer;
+begin
+  for i := 0 to Count-1 do
+    if Items[i].Provider = iProvider then begin
+      Delete(i);
+      break;
+    end;
+end;
+
+procedure TPublishedProviders.UnlinkProvider(iProvider: TCustomProvider);
+var i:Integer;
+begin
+  for i := 0 to Count-1 do
+    if Items[i].Provider = iProvider then begin
+      Items[i].Provider := nil;
+      break;
+    end;
+end;
+
+{ TPublishedProvider }
+
+function TPublishedProvider.GetDisplayName: string;
+begin
+  if Name <> '' then result := Name
+  else if Assigned(fProvider) then result := fProvider.Name
+  else result := ClassName;
+end;
+
+procedure TPublishedProvider.SetName(const iValue: string);
+begin
+  fName := iValue;
+end;
+
+procedure TPublishedProvider.SetProvider(const iValue: TCustomProvider);
+begin
+  if fProvider <> iValue then begin
+    if Assigned(fProvider) and (Collection.Owner is TComponent) then
+      iValue.RemoveFreeNotification(Collection.Owner as TComponent);
+    fProvider := iValue;
+    if Assigned(fProvider) and (Collection.Owner is TComponent) then
+      iValue.FreeNotification(Collection.Owner as TComponent);
+  end;
+  if (fName = '') and Assigned(fProvider) then fName := fProvider.Name;
+end;
+
+
+end.
+ 
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapRes.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapRes.pas
new file mode 100644
index 0000000..c02ec8d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnapRes.pas	
@@ -0,0 +1,11 @@
+unit uRODataSnapRes;
+
+interface
+
+resourcestring
+  sProviderNotExported = 'Provider "%s" is not exported.';
+
+implementation
+
+end.
+ 
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Async.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Async.pas
new file mode 100644
index 0000000..f32a3c5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Async.pas	
@@ -0,0 +1,257 @@
+unit uRODataSnap_Async;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROTypes, uROClientIntf, uROAsync,
+  {Project:} uRODataSnap_Intf;
+
+type
+  { IAppServer_Async }
+  IAppServer_Async = interface(IROAsyncInterface)
+    ['{4F6AC4BD-0AAA-4621-9868-D26D32CC9E27}']
+    procedure Invoke_AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; const OwnerData: AnsiString);
+    procedure Invoke_AS_GetRecords(const ProviderName: WideString; const Count: Integer; const Options: Integer; const CommandText: WideString; const Params: Binary; const OwnerData: AnsiString);
+    procedure Invoke_AS_DataRequest(const ProviderName: WideString; const Data: Binary);
+    procedure Invoke_AS_GetProviderNames;
+    procedure Invoke_AS_GetParams(const ProviderName: WideString; const OwnerData: AnsiString);
+    procedure Invoke_AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; const OwnerData: AnsiString);
+    procedure Invoke_AS_Execute(const ProviderName: WideString; const CommandText: WideString; const Params: Binary; const OwnerData: AnsiString);
+    function Retrieve_AS_ApplyUpdates(out ErrorCount: Integer; out OwnerData: AnsiString): binary;
+    function Retrieve_AS_GetRecords(out RecsOut: Integer; out Params: Binary; out OwnerData: AnsiString): binary;
+    function Retrieve_AS_DataRequest: binary;
+    function Retrieve_AS_GetProviderNames: TProviderNames;
+    function Retrieve_AS_GetParams(out OwnerData: AnsiString): binary;
+    function Retrieve_AS_RowRequest(out OwnerData: AnsiString): binary;
+    procedure Retrieve_AS_Execute(out Params: Binary; out OwnerData: AnsiString);
+  end;
+
+  { CoAppServer_Async }
+  CoAppServer_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IAppServer_Async;
+  end;
+
+  { TAppServer_AsyncProxy }
+  TAppServer_AsyncProxy = class(TROAsyncProxy, IAppServer_Async)
+  private
+  protected
+    function __GetInterfaceName:String; override;
+
+    procedure Invoke_AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; const OwnerData: AnsiString);
+    procedure Invoke_AS_GetRecords(const ProviderName: WideString; const Count: Integer; const Options: Integer; const CommandText: WideString; const Params: Binary; const OwnerData: AnsiString);
+    procedure Invoke_AS_DataRequest(const ProviderName: WideString; const Data: Binary);
+    procedure Invoke_AS_GetProviderNames;
+    procedure Invoke_AS_GetParams(const ProviderName: WideString; const OwnerData: AnsiString);
+    procedure Invoke_AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; const OwnerData: AnsiString);
+    procedure Invoke_AS_Execute(const ProviderName: WideString; const CommandText: WideString; const Params: Binary; const OwnerData: AnsiString);
+    function Retrieve_AS_ApplyUpdates(out ErrorCount: Integer; out OwnerData: AnsiString): binary;
+    function Retrieve_AS_GetRecords(out RecsOut: Integer; out Params: Binary; out OwnerData: AnsiString): binary;
+    function Retrieve_AS_DataRequest: binary;
+    function Retrieve_AS_GetProviderNames: TProviderNames;
+    function Retrieve_AS_GetParams(out OwnerData: AnsiString): binary;
+    function Retrieve_AS_RowRequest(out OwnerData: AnsiString): binary;
+    procedure Retrieve_AS_Execute(out Params: Binary; out OwnerData: AnsiString);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils;
+
+{ CoAppServer }
+
+class function CoAppServer_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IAppServer_Async;
+begin
+  result := TAppServer_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TAppServer_AsyncProxy }
+
+function TAppServer_AsyncProxy.__GetInterfaceName:String;
+begin
+  result := 'AppServer';
+end;
+
+procedure TAppServer_AsyncProxy.Invoke_AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; const OwnerData: AnsiString);
+begin
+  __AssertProxyNotBusy('AS_ApplyUpdates');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'uRODataSnap', __InterfaceName, 'AS_ApplyUpdates');
+  __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+  __Message.Write('Delta', TypeInfo(Binary), Delta, []);
+  __Message.Write('MaxErrors', TypeInfo(Integer), MaxErrors, []);
+  __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+  __DispatchAsyncRequest('AS_ApplyUpdates',__Message);
+end;
+
+function TAppServer_AsyncProxy.Retrieve_AS_ApplyUpdates(out ErrorCount: Integer; out OwnerData: AnsiString): binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('AS_ApplyUpdates');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(binary), Result, []);
+  __Message.Read('ErrorCount', TypeInfo(Integer), ErrorCount, []);
+  __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+  __response.Free();
+end;
+
+procedure TAppServer_AsyncProxy.Invoke_AS_GetRecords(const ProviderName: WideString; const Count: Integer; const Options: Integer; const CommandText: WideString; const Params: Binary; const OwnerData: AnsiString);
+begin
+  __AssertProxyNotBusy('AS_GetRecords');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'uRODataSnap', __InterfaceName, 'AS_GetRecords');
+  __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+  __Message.Write('Count', TypeInfo(Integer), Count, []);
+  __Message.Write('Options', TypeInfo(Integer), Options, []);
+  __Message.Write('CommandText', TypeInfo(WideString), CommandText, []);
+  __Message.Write('Params', TypeInfo(Binary), Params, []);
+  __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+  __DispatchAsyncRequest('AS_GetRecords',__Message);
+end;
+
+function TAppServer_AsyncProxy.Retrieve_AS_GetRecords(out RecsOut: Integer; out Params: Binary; out OwnerData: AnsiString): binary;
+var __response:TStream;
+begin
+  Params := nil;
+  result := nil;
+  __response := __RetrieveAsyncResponse('AS_GetRecords');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(binary), Result, []);
+  __Message.Read('RecsOut', TypeInfo(Integer), RecsOut, []);
+  __Message.Read('Params', TypeInfo(Binary), Params, []);
+  __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+  __response.Free();
+end;
+
+procedure TAppServer_AsyncProxy.Invoke_AS_DataRequest(const ProviderName: WideString; const Data: Binary);
+begin
+  __AssertProxyNotBusy('AS_DataRequest');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'uRODataSnap', __InterfaceName, 'AS_DataRequest');
+  __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+  __Message.Write('Data', TypeInfo(Binary), Data, []);
+  __DispatchAsyncRequest('AS_DataRequest',__Message);
+end;
+
+function TAppServer_AsyncProxy.Retrieve_AS_DataRequest: binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('AS_DataRequest');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(binary), Result, []);
+
+  __response.Free();
+end;
+
+procedure TAppServer_AsyncProxy.Invoke_AS_GetProviderNames;
+begin
+  __AssertProxyNotBusy('AS_GetProviderNames');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'uRODataSnap', __InterfaceName, 'AS_GetProviderNames');
+  __DispatchAsyncRequest('AS_GetProviderNames',__Message);
+end;
+
+function TAppServer_AsyncProxy.Retrieve_AS_GetProviderNames: TProviderNames;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('AS_GetProviderNames');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(TProviderNames), Result, []);
+
+  __response.Free();
+end;
+
+procedure TAppServer_AsyncProxy.Invoke_AS_GetParams(const ProviderName: WideString; const OwnerData: AnsiString);
+begin
+  __AssertProxyNotBusy('AS_GetParams');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'uRODataSnap', __InterfaceName, 'AS_GetParams');
+  __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+  __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+  __DispatchAsyncRequest('AS_GetParams',__Message);
+end;
+
+function TAppServer_AsyncProxy.Retrieve_AS_GetParams(out OwnerData: AnsiString): binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('AS_GetParams');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(binary), Result, []);
+  __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+  __response.Free();
+end;
+
+procedure TAppServer_AsyncProxy.Invoke_AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; const OwnerData: AnsiString);
+begin
+  __AssertProxyNotBusy('AS_RowRequest');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'uRODataSnap', __InterfaceName, 'AS_RowRequest');
+  __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+  __Message.Write('Row', TypeInfo(Binary), Row, []);
+  __Message.Write('RequestType', TypeInfo(Integer), RequestType, []);
+  __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+  __DispatchAsyncRequest('AS_RowRequest',__Message);
+end;
+
+function TAppServer_AsyncProxy.Retrieve_AS_RowRequest(out OwnerData: AnsiString): binary;
+var __response:TStream;
+begin
+  result := nil;
+  __response := __RetrieveAsyncResponse('AS_RowRequest');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(binary), Result, []);
+  __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+  __response.Free();
+end;
+
+procedure TAppServer_AsyncProxy.Invoke_AS_Execute(const ProviderName: WideString; const CommandText: WideString; const Params: Binary; const OwnerData: AnsiString);
+begin
+  __AssertProxyNotBusy('AS_Execute');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'uRODataSnap', __InterfaceName, 'AS_Execute');
+  __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+  __Message.Write('CommandText', TypeInfo(WideString), CommandText, []);
+  __Message.Write('Params', TypeInfo(Binary), Params, []);
+  __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+  __DispatchAsyncRequest('AS_Execute',__Message);
+end;
+
+procedure TAppServer_AsyncProxy.Retrieve_AS_Execute(out Params: Binary; out OwnerData: AnsiString);
+var __response:TStream;
+begin
+  Params := nil;
+  __response := __RetrieveAsyncResponse('AS_Execute');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Params', TypeInfo(Binary), Params, []);
+  __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+  __response.Free();
+end;
+
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Intf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Intf.pas
new file mode 100644
index 0000000..c8fe016
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Intf.pas	
@@ -0,0 +1,319 @@
+unit uRODataSnap_Intf;
+
+interface
+
+uses Classes, TypInfo, uROClient, uROTypes, uROClientIntf;
+
+const
+  LibraryUID = '{9EC7C50C-DAC2-48A9-9A0F-CBAA29A11EF7}';
+
+  IAppServer_IID : TGUID = '{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}';
+
+type
+   { Forward declarations }
+   IAppServer = interface;
+   TProviderNames = class;
+
+   { TProviderNames }
+   TProviderNames = class(TROArray)
+   private
+     fItems : array of AnsiString;
+   protected
+     function GetItems(Index : integer) : AnsiString;
+     procedure SetItems(Index : integer; const Value : AnsiString);
+    function GetCount : integer; override;
+   public
+     class function GetItemType : PTypeInfo; override;
+     class function GetItemSize : integer; override;
+     function GetItemRef(Index : integer) : pointer; override;
+     procedure Clear; override;
+    procedure Delete(Index : integer); override;
+     procedure Resize(ElementCount : integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    function Add(const Value:AnsiString):integer;
+
+    property Count : integer read GetCount;
+     property Items[Index : integer] : AnsiString read GetItems write SetItems; default;
+   end;
+
+   { IAppServer }
+   IAppServer = interface
+      ['{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}']
+      function AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: AnsiString): binary;
+      function AS_GetRecords(const ProviderName: WideString; const Count: Integer; out RecsOut: Integer; const Options: Integer; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString): binary;
+      function AS_DataRequest(const ProviderName: WideString; const Data: Binary): binary;
+      function AS_GetProviderNames: TProviderNames;
+      function AS_GetParams(const ProviderName: WideString; var OwnerData: AnsiString): binary;
+      function AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; var OwnerData: AnsiString): binary;
+      procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString);
+   end;
+
+   { CoIAppServer }
+   CoAppServer = class
+      class function Create(const iAppServerName:String; const aMessage : IROMessage; aTransportChannel : IROTransportChannel) : IAppServer;
+   end;
+
+   TAppServer_Proxy = class(TROProxy, IAppServer)
+   private
+     fIAppServerName:String;
+   protected
+     constructor Create(const iAppServerName:String; const aMessage : IROMessage; const aTransportChannel : IROTransportChannel); reintroduce; overload;
+     constructor Create(const aMessage : IROMessage; const aTransportChannel : IROTransportChannel); reintroduce; overload;
+     // Internal
+     function __GetInterfaceName:String; override;
+
+     // IAppServer     
+     function AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: AnsiString): binary; virtual;
+     function AS_GetRecords(const ProviderName: WideString; const Count: Integer; out RecsOut: Integer; const Options: Integer; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString): binary; virtual;
+     function AS_DataRequest(const ProviderName: WideString; const Data: Binary): binary; virtual;
+     function AS_GetProviderNames: TProviderNames; virtual;
+     function AS_GetParams(const ProviderName: WideString; var OwnerData: AnsiString): binary; virtual;
+     function AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; var OwnerData: AnsiString): binary; virtual;
+     procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString); virtual;
+   end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uRORes, uROClasses;
+
+{ TProviderNames }
+
+procedure TProviderNames.Assign(iSource:TPersistent); 
+var lSource:TProviderNames;
+    i:integer;
+begin
+  if (iSource is TProviderNames) then begin
+    lSource := TProviderNames(iSource);
+    Clear();
+    Resize(lSource.Count);
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TProviderNames.GetItemType : PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function TProviderNames.GetItemSize : integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function TProviderNames.GetItems(Index : integer) : AnsiString;
+begin
+  if (Index < 0) or (Index >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[Index]);
+  result := fItems[Index];
+end;
+
+function TProviderNames.GetItemRef(Index : integer) : pointer;
+begin
+  result := @fItems[Index];
+end;
+
+procedure TProviderNames.Clear;
+begin
+  SetLength(fItems, 0);
+end;
+
+procedure TProviderNames.Delete(Index : integer);
+var i : integer;
+begin
+  if (Index>=Count) then RaiseError(err_InvalidIndex, [Index]);
+
+  if (Index<Count-1) then
+    for i := Index to Count-1 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1)
+end;
+
+procedure TProviderNames.SetItems(Index : integer; const Value : AnsiString);
+begin
+  fItems[Index] := Value;
+end;
+
+procedure TProviderNames.Resize(ElementCount : integer);
+begin
+  SetLength(fItems, ElementCount);
+end;
+
+function TProviderNames.GetCount: integer;
+begin
+  result := Length(fItems);
+end;
+
+function TProviderNames.Add(const Value:AnsiString):integer;
+begin
+  SetLength(fItems, Length(fItems)+1);
+  result := Length(fItems)-1;
+  fItems[result] := Value;
+end;
+
+{ CoIAppServer }
+
+class function CoAppServer.Create(const iAppServerName:String; const aMessage : IROMessage; aTransportChannel : IROTransportChannel) : IAppServer;
+begin
+  result := TAppServer_Proxy.Create(iAppServerName, aMessage, aTransportChannel);
+end;
+
+{ TAppServer_Proxy }
+
+constructor TAppServer_Proxy.Create(const iAppServerName: String; const aMessage : IROMessage; const aTransportChannel : IROTransportChannel);
+begin
+  inherited Create(aMessage,aTransportChannel);
+  fIAppServerName := iAppServerName;
+end;
+
+constructor TAppServer_Proxy.Create(const aMessage : IROMessage; const aTransportChannel : IROTransportChannel);
+begin
+  Create('', aMessage, aTransportChannel);
+end;
+
+function TAppServer_Proxy.__GetInterfaceName: String;
+begin
+  result := fIAppServerName;
+end;
+
+function TAppServer_Proxy.AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: AnsiString): binary;
+begin
+   try
+     __Message.InitializeRequestMessage(__TransportChannel, '', fIAppServerName, 'AS_ApplyUpdates');
+     __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+     __Message.Write('Delta', TypeInfo(Binary), Delta, []);
+     __Message.Write('MaxErrors', TypeInfo(Integer), MaxErrors, []);
+     __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('ErrorCount', TypeInfo(Integer), ErrorCount, []);
+     __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Read('Result', TypeInfo(binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TAppServer_Proxy.AS_GetRecords(const ProviderName: WideString; const Count: Integer; out RecsOut: Integer; const Options: Integer; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString): binary;
+begin
+   try
+     __Message.InitializeRequestMessage(__TransportChannel, '', fIAppServerName, 'AS_GetRecords');
+     __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+     __Message.Write('Count', TypeInfo(Integer), Count, []);
+     __Message.Write('Options', TypeInfo(Integer), Options, []);
+     __Message.Write('CommandText', TypeInfo(WideString), CommandText, []);
+     __Message.Write('Params', TypeInfo(Binary), Params, []);
+     __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('RecsOut', TypeInfo(Integer), RecsOut, []);
+     __Message.Read('Params', TypeInfo(Binary), Params, []);
+     __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Read('Result', TypeInfo(binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TAppServer_Proxy.AS_DataRequest(const ProviderName: WideString; const Data: Binary): binary;
+begin
+   try
+     __Message.InitializeRequestMessage(__TransportChannel, '', fIAppServerName, 'AS_DataRequest');
+     __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+     __Message.Write('Data', TypeInfo(Binary), Data, []);
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('Result', TypeInfo(binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TAppServer_Proxy.AS_GetProviderNames: TProviderNames;
+begin
+   try
+     __Message.InitializeRequestMessage(__TransportChannel, '', fIAppServerName, 'AS_GetProviderNames');
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('Result', TypeInfo(TProviderNames), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TAppServer_Proxy.AS_GetParams(const ProviderName: WideString; var OwnerData: AnsiString): binary;
+begin
+   try
+     __Message.InitializeRequestMessage(__TransportChannel, '', fIAppServerName, 'AS_GetParams');
+     __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+     __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Read('Result', TypeInfo(binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TAppServer_Proxy.AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; var OwnerData: AnsiString): binary;
+begin
+   try
+     __Message.InitializeRequestMessage(__TransportChannel, '', fIAppServerName, 'AS_RowRequest');
+     __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+     __Message.Write('Row', TypeInfo(Binary), Row, []);
+     __Message.Write('RequestType', TypeInfo(Integer), RequestType, []);
+     __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Read('Result', TypeInfo(binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TAppServer_Proxy.AS_Execute(const ProviderName: WideString; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString);
+begin
+   try
+     __Message.InitializeRequestMessage(__TransportChannel, '', fIAppServerName, 'AS_Execute');
+     __Message.Write('ProviderName', TypeInfo(WideString), ProviderName, []);
+     __Message.Write('CommandText', TypeInfo(WideString), CommandText, []);
+     __Message.Write('Params', TypeInfo(Binary), Params, []);
+     __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('Params', TypeInfo(Binary), Params, []);
+     __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TProviderNames);
+  RegisterProxyClass(IAppServer_IID, TAppServer_Proxy);
+
+finalization
+  UnregisterProxyClass(IAppServer_IID);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Invk.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Invk.pas
new file mode 100644
index 0000000..dc4da47
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/DataSnap/uRODataSnap_Invk.pas	
@@ -0,0 +1,212 @@
+unit uRODataSnap_Invk;
+
+interface
+
+uses Classes, uROServer, uROClientIntf, uROServerIntf;
+
+type
+  TAppServer_Invoker = class(TROInvoker)
+  published
+    procedure Invoke_AS_ApplyUpdates(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_AS_GetRecords(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_AS_DataRequest(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_AS_GetProviderNames(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_AS_GetParams(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_AS_RowRequest(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_AS_Execute(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses {$IFDEF DEBUG_REMOBJECTS_DATASNAP}eDebugServer, uROBinMessage,{$ENDIF}
+     uROTypes, uRODataSnap_Intf;
+
+procedure TAppServer_Invoker.Invoke_AS_ApplyUpdates(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function AS_ApplyUpdates(const ProviderName: WideString; const Delta: Binary; const MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: AnsiString): binary; }
+var
+    ProviderName: WideString;
+    Delta: Binary;
+    MaxErrors: Integer;
+    ErrorCount: Integer;
+    OwnerData: AnsiString;
+    Result: binary;
+begin
+  Delta := NIL;
+  Result := NIL;
+  try
+    __Message.Read('ProviderName', TypeInfo(WideString), ProviderName, []);
+    __Message.Read('Delta', TypeInfo(Binary), Delta, []);
+    __Message.Read('MaxErrors', TypeInfo(Integer), MaxErrors, []);
+    __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+    Result := (__Instance as IAppServer).AS_ApplyUpdates(ProviderName, Delta, MaxErrors, ErrorCount, OwnerData);
+
+    __Message.InitializeResponseMessage(__Transport, '', 'IAppServer', 'AS_ApplyUpdatesResponse');
+    __Message.Write('ErrorCount', TypeInfo(Integer), ErrorCount, []);
+    __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+    __Message.Write('Result', TypeInfo(binary), Result, []);
+    __Message.Finalize;
+
+  finally
+    Delta.Free;
+    Result.Free;
+  end;
+end;
+procedure TAppServer_Invoker.Invoke_AS_GetRecords(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function AS_GetRecords(const ProviderName: WideString; const Count: Integer; out RecsOut: Integer; const Options: Integer; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString): binary; }
+var
+    ProviderName: WideString;
+    Count: Integer;
+    RecsOut: Integer;
+    Options: Integer;
+    CommandText: WideString;
+    Params: Binary;
+    OwnerData: AnsiString;
+    Result: binary;
+begin
+  Params := NIL;
+  Result := NIL;
+  try
+    __Message.Read('ProviderName', TypeInfo(WideString), ProviderName, []);
+    __Message.Read('Count', TypeInfo(Integer), Count, []);
+    __Message.Read('Options', TypeInfo(Integer), Options, []);
+    __Message.Read('CommandText', TypeInfo(WideString), CommandText, []);
+    __Message.Read('Params', TypeInfo(Binary), Params, []);
+    __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+    Result := (__Instance as uRODataSnap_Intf.IAppServer).AS_GetRecords(ProviderName, Count, RecsOut, Options, CommandText, Params, OwnerData);
+
+    __Message.InitializeResponseMessage(__Transport, '', 'IAppServer', 'AS_GetRecordsResponse');
+    __Message.Write('RecsOut', TypeInfo(Integer), RecsOut, []);
+    __Message.Write('Params', TypeInfo(Binary), Params, []);
+    __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+    __Message.Write('Result', TypeInfo(binary), Result, []);
+    __Message.Finalize;
+
+  finally
+    Params.Free;
+    Result.Free;
+  end;
+end;
+procedure TAppServer_Invoker.Invoke_AS_DataRequest(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function AS_DataRequest(const ProviderName: WideString; const Data: Binary): binary; }
+var
+    ProviderName: WideString;
+    Data: Binary;
+    Result: binary;
+begin
+  Data := NIL;
+  Result := NIL;
+  try
+    __Message.Read('ProviderName', TypeInfo(WideString), ProviderName, []);
+    __Message.Read('Data', TypeInfo(Binary), Data, []);
+
+    Result := (__Instance as IAppServer).AS_DataRequest(ProviderName, Data);
+
+    __Message.InitializeResponseMessage(__Transport, '', 'IAppServer', 'AS_DataRequestResponse');
+    __Message.Write('Result', TypeInfo(binary), Result, []);
+    __Message.Finalize;
+
+  finally
+    Data.Free;
+    Result.Free;
+  end;
+end;
+procedure TAppServer_Invoker.Invoke_AS_GetProviderNames(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function AS_GetProviderNames: TProviderNames; }
+var
+    Result: TProviderNames;
+begin
+  Result := NIL;
+  try
+
+    Result := (__Instance as IAppServer).AS_GetProviderNames;
+
+    __Message.InitializeResponseMessage(__Transport, '', 'IAppServer', 'AS_GetProviderNamesResponse');
+    __Message.Write('Result', TypeInfo(TProviderNames), Result, []);
+    __Message.Finalize;
+
+  finally
+    Result.Free;
+  end;
+end;
+procedure TAppServer_Invoker.Invoke_AS_GetParams(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function AS_GetParams(const ProviderName: WideString; var OwnerData: AnsiString): binary; }
+var
+    ProviderName: WideString;
+    OwnerData: AnsiString;
+    Result: binary;
+begin
+  Result := NIL;
+  try
+    __Message.Read('ProviderName', TypeInfo(WideString), ProviderName, []);
+    __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+    Result := (__Instance as IAppServer).AS_GetParams(ProviderName, OwnerData);
+
+    __Message.InitializeResponseMessage(__Transport, '', 'IAppServer', 'AS_GetParamsResponse');
+    __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+    __Message.Write('Result', TypeInfo(binary), Result, []);
+    __Message.Finalize;
+
+  finally
+    Result.Free;
+  end;
+end;
+procedure TAppServer_Invoker.Invoke_AS_RowRequest(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function AS_RowRequest(const ProviderName: WideString; const Row: Binary; const RequestType: Integer; var OwnerData: AnsiString): binary; }
+var
+    ProviderName: WideString;
+    Row: Binary;
+    RequestType: Integer;
+    OwnerData: AnsiString;
+    Result: binary;
+begin
+  Row := NIL;
+  Result := NIL;
+  try
+    __Message.Read('ProviderName', TypeInfo(WideString), ProviderName, []);
+    __Message.Read('Row', TypeInfo(Binary), Row, []);
+    __Message.Read('RequestType', TypeInfo(Integer), RequestType, []);
+    __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+    Result := (__Instance as IAppServer).AS_RowRequest(ProviderName, Row, RequestType, OwnerData);
+
+    __Message.InitializeResponseMessage(__Transport, '', 'IAppServer', 'AS_RowRequestResponse');
+    __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+    __Message.Write('Result', TypeInfo(binary), Result, []);
+    __Message.Finalize;
+
+  finally
+    Row.Free;
+    Result.Free;
+  end;
+end;
+procedure TAppServer_Invoker.Invoke_AS_Execute(const __Instance : IInterface; const __Message : IROMessage; const __Transport : IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; var Params: Binary; var OwnerData: AnsiString); }
+var
+    ProviderName: WideString;
+    CommandText: WideString;
+    Params: Binary;
+    OwnerData: AnsiString;
+begin
+  Params := NIL;
+  try
+    __Message.Read('ProviderName', TypeInfo(WideString), ProviderName, []);
+    __Message.Read('CommandText', TypeInfo(WideString), CommandText, []);
+    __Message.Read('Params', TypeInfo(Binary), Params, []);
+    __Message.Read('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+
+    (__Instance as IAppServer).AS_Execute(ProviderName, CommandText, Params, OwnerData);
+
+    __Message.InitializeResponseMessage(__Transport, '', 'IAppServer', 'AS_ExecuteResponse');
+    __Message.Write('Params', TypeInfo(Binary), Params, []);
+    __Message.Write('OwnerData', TypeInfo(AnsiString), OwnerData, []);
+    __Message.Finalize;
+
+  finally
+    Params.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/NewRORemoteDataModule.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/NewRORemoteDataModule.ico
new file mode 100644
index 0000000..863d859
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/NewRORemoteDataModule.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.bdsproj
new file mode 100644
index 0000000..8177724
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.bdsproj	
@@ -0,0 +1,180 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{ED80B945-1838-48EB-9D77-FD634984C25F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_IDE_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">1</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects SDK - IDE Integration for Win32</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String">HYDRA_DESIGNTIME</Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName" Type="String">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion" Type="String">0.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName" Type="String">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion" Type="String">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+	</Delphi.Personality>
+	<ModelSupport>True</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.cfg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.cfg
new file mode 100644
index 0000000..9309b0b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.cfg	
@@ -0,0 +1,53 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10"
+-O"..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10"
+-I"..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10"
+-R"..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10"
+-DHYDRA_DESIGNTIME
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.dpk
new file mode 100644
index 0000000..9b51098
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.dpk	
@@ -0,0 +1,82 @@
+package RemObjects_IDE_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - IDE Integration for Win32'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE HYDRA_DESIGNTIME}
+{%File '..\RemObjects.inc'}
+{%TogetherDiagram 'ModelSupport_RemObjects_IDE_D10\default.txaPackage'}
+
+requires
+  designide,
+  vclx,
+  inet,
+  vcl,
+  rtl,
+  RemObjects_Core_D10,
+  RemObjects_Everwood_D10,
+  dbrtl;
+
+contains
+  uROIDEPrjWizard in 'uROIDEPrjWizard.pas',
+  uROIDEMenu in 'uROIDEMenu.pas',
+  uRORODLNotifier in 'uRORODLNotifier.pas',
+  uROIDETools in 'uROIDETools.pas',
+  uRODLGenTools in '..\CodeGen\uRODLGenTools.pas',
+  uRODLToPascalImpl in '..\CodeGen\uRODLToPascalImpl.pas',
+  uRODLToPascalIntf in '..\CodeGen\uRODLToPascalIntf.pas',
+  uRODLToPascalInvk in '..\CodeGen\uRODLToPascalInvk.pas',
+  fServerProjectOptions in 'fServerProjectOptions.pas' {ServerProjectOptions},
+  fCustomIDEMessagesForm in 'fCustomIDEMessagesForm.pas' {CustomIDEMessagesForm},
+  RemObjects_IDE_Reg in 'RemObjects_IDE_Reg.pas',
+  uROResWriter in 'uROResWriter.pas',
+  fDispatchersEditorForm in 'fDispatchersEditorForm.pas' {DispatchersEditorForm},
+  uROIDEData in 'uROIDEData.pas' {IdeData: TDataModule},
+  uRODLToPascal in '..\CodeGen\uRODLToPascal.pas',
+  fROAbout in 'fROAbout.pas' {AboutForm},
+  uROIDEEditors in 'uROIDEEditors.pas',
+  uROProductVersionInfoForm in 'uROProductVersionInfoForm.pas' {ProductVersionInfoForm},
+  uROProductVersionInfo in 'uROProductVersionInfo.pas',
+  uROProductVersionInfo_Intf in 'uROProductVersionInfo_Intf.pas',
+  fROServerClassForm in 'fROServerClassForm.pas' {ROServerClassForm},
+  uRODECReg in '..\RODEC\uRODECReg.pas',
+  uROEncKeyPropEditor in '..\RODEC\uROEncKeyPropEditor.pas' {CryptoKeyGenForm},
+  uROExtraEditors in 'uROExtraEditors.pas',
+  fNewProjectForm in 'fNewProjectForm.pas' {NewProjectForm},
+  uRODLToPascalAsync in '..\CodeGen\uRODLToPascalAsync.pas',
+  uROLoginNeededForm in 'uROLoginNeededForm.pas' {ROLoginNeededForm},
+  uRODLTemplateBasedConverterUtils in '..\CodeGen2\uRODLTemplateBasedConverterUtils.pas',
+  uRODLAsyncConverter in '..\CodeGen2\uRODLAsyncConverter.pas',
+  uRODLConvertersUtils in '..\CodeGen2\uRODLConvertersUtils.pas',
+  uRODLCppConverters in '..\CodeGen2\uRODLCppConverters.pas',
+  uRODLDelphiConverters in '..\CodeGen2\uRODLDelphiConverters.pas',
+  uRODLImplConverter in '..\CodeGen2\uRODLImplConverter.pas',
+  uRODLIntfConverter in '..\CodeGen2\uRODLIntfConverter.pas',
+  uRODLInvkConverter in '..\CodeGen2\uRODLInvkConverter.pas',
+  uRODLSplitableConverter in '..\CodeGen2\uRODLSplitableConverter.pas',
+  uRODLTemplateBasedConverter in '..\CodeGen2\uRODLTemplateBasedConverter.pas',
+  uRODLLineStream in '..\CodeGen2\uRODLLineStream.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.res
new file mode 100644
index 0000000..19c5296
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D10.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.dpk
new file mode 100644
index 0000000..29e7c89
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.dpk	
@@ -0,0 +1,80 @@
+package RemObjects_IDE_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - IDE Integration for Win32'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE HYDRA_DESIGNTIME}
+{$DEFINE RELEASE}
+
+requires
+  designide,
+  vclx,
+  inet,
+  vcl,
+  rtl,
+  RemObjects_Core_D11,
+  RemObjects_Everwood_D11;
+
+contains
+  uROIDEPrjWizard in 'uROIDEPrjWizard.pas',
+  uROIDEMenu in 'uROIDEMenu.pas',
+  uRORODLNotifier in 'uRORODLNotifier.pas',
+  uROIDETools in 'uROIDETools.pas',
+  uRODLGenTools in '..\CodeGen\uRODLGenTools.pas',
+  uRODLToPascalImpl in '..\CodeGen\uRODLToPascalImpl.pas',
+  uRODLToPascalIntf in '..\CodeGen\uRODLToPascalIntf.pas',
+  uRODLToPascalInvk in '..\CodeGen\uRODLToPascalInvk.pas',
+  fServerProjectOptions in 'fServerProjectOptions.pas' {ServerProjectOptions},
+  fCustomIDEMessagesForm in 'fCustomIDEMessagesForm.pas' {CustomIDEMessagesForm},
+  RemObjects_IDE_Reg in 'RemObjects_IDE_Reg.pas',
+  uROResWriter in 'uROResWriter.pas',
+  fDispatchersEditorForm in 'fDispatchersEditorForm.pas' {DispatchersEditorForm},
+  uROIDEData in 'uROIDEData.pas' {IdeData: TDataModule},
+  uRODLToPascal in '..\CodeGen\uRODLToPascal.pas',
+  fROAbout in 'fROAbout.pas' {AboutForm},
+  uROIDEEditors in 'uROIDEEditors.pas',
+  uROProductVersionInfoForm in 'uROProductVersionInfoForm.pas' {ProductVersionInfoForm},
+  uROProductVersionInfo in 'uROProductVersionInfo.pas',
+  uROProductVersionInfo_Intf in 'uROProductVersionInfo_Intf.pas',
+  fROServerClassForm in 'fROServerClassForm.pas' {ROServerClassForm},
+  uRODECReg in '..\RODEC\uRODECReg.pas',
+  uROEncKeyPropEditor in '..\RODEC\uROEncKeyPropEditor.pas' {CryptoKeyGenForm},
+  uROExtraEditors in 'uROExtraEditors.pas',
+  fNewProjectForm in 'fNewProjectForm.pas' {NewProjectForm},
+  uRODLToPascalAsync in '..\CodeGen\uRODLToPascalAsync.pas',
+  uROLoginNeededForm in 'uROLoginNeededForm.pas' {ROLoginNeededForm},
+  uRODLTemplateBasedConverterUtils in '..\CodeGen2\uRODLTemplateBasedConverterUtils.pas',
+  uRODLAsyncConverter in '..\CodeGen2\uRODLAsyncConverter.pas',
+  uRODLConvertersUtils in '..\CodeGen2\uRODLConvertersUtils.pas',
+  uRODLCppConverters in '..\CodeGen2\uRODLCppConverters.pas',
+  uRODLDelphiConverters in '..\CodeGen2\uRODLDelphiConverters.pas',
+  uRODLImplConverter in '..\CodeGen2\uRODLImplConverter.pas',
+  uRODLIntfConverter in '..\CodeGen2\uRODLIntfConverter.pas',
+  uRODLInvkConverter in '..\CodeGen2\uRODLInvkConverter.pas',
+  uRODLSplitableConverter in '..\CodeGen2\uRODLSplitableConverter.pas',
+  uRODLTemplateBasedConverter in '..\CodeGen2\uRODLTemplateBasedConverter.pas',
+  uRODLLineStream in '..\CodeGen2\uRODLLineStream.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.dproj
new file mode 100644
index 0000000..f3ebf6a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.dproj	
@@ -0,0 +1,651 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{fe71e26f-b3f6-4155-b226-b778db554247}</ProjectGuid>
+    <MainSource>RemObjects_IDE_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D10\RemObjects_IDE_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D10</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D10</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D10</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D10</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D10</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D10;..\..\..\Everwood\Dcu\D10</DCC_IncludePath>
+    <DCC_Define>HYDRA_DESIGNTIME;RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11;..\..\..\Everwood\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11;..\..\..\Everwood\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11;..\..\..\Everwood\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11;..\..\..\Everwood\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>HYDRA_DESIGNTIME</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects SDK - IDE Integration for Win32</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemObjects_IDE_D11.dpk</Source></Source><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D11\RemObjects_Indy_D11.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IDE_D11.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages>
+      <Excluded_Packages Name="C:\PROGRA~2\RemObjects Software\RemObjects SDK for Delphi\Dcu\D11\RemObjects_IDE_D11.bpl">RemObjects SDK - IDE Integration for Win32</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+    </Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_IDE_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\CodeGen2\uRODLAsyncConverter.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLConvertersUtils.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLCppConverters.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLDelphiConverters.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLImplConverter.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLIntfConverter.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLInvkConverter.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLLineStream.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLSplitableConverter.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLTemplateBasedConverter.pas" />
+    <DCCReference Include="..\CodeGen2\uRODLTemplateBasedConverterUtils.pas" />
+    <DCCReference Include="..\CodeGen\uRODLGenTools.pas" />
+    <DCCReference Include="..\CodeGen\uRODLToPascal.pas" />
+    <DCCReference Include="..\CodeGen\uRODLToPascalAsync.pas" />
+    <DCCReference Include="..\CodeGen\uRODLToPascalImpl.pas" />
+    <DCCReference Include="..\CodeGen\uRODLToPascalIntf.pas" />
+    <DCCReference Include="..\CodeGen\uRODLToPascalInvk.pas" />
+    <DCCReference Include="..\designide.dcp" />
+    <DCCReference Include="..\inet.dcp" />
+    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\RemObjects_Everwood_D11.dcp" />
+    <DCCReference Include="..\RODEC\uRODECReg.pas" />
+    <DCCReference Include="..\RODEC\uROEncKeyPropEditor.pas">
+      <Form>CryptoKeyGenForm</Form>
+    </DCCReference>
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="..\vclx.dcp" />
+    <DCCReference Include="fCustomIDEMessagesForm.pas">
+      <Form>CustomIDEMessagesForm</Form>
+    </DCCReference>
+    <DCCReference Include="fDispatchersEditorForm.pas">
+      <Form>DispatchersEditorForm</Form>
+    </DCCReference>
+    <DCCReference Include="fNewProjectForm.pas">
+      <Form>NewProjectForm</Form>
+    </DCCReference>
+    <DCCReference Include="fROAbout.pas">
+      <Form>AboutForm</Form>
+    </DCCReference>
+    <DCCReference Include="fROServerClassForm.pas">
+      <Form>ROServerClassForm</Form>
+    </DCCReference>
+    <DCCReference Include="fServerProjectOptions.pas">
+      <Form>ServerProjectOptions</Form>
+    </DCCReference>
+    <DCCReference Include="RemObjects_IDE_Reg.pas" />
+    <DCCReference Include="uROExtraEditors.pas" />
+    <DCCReference Include="uROIDEData.pas">
+      <Form>IdeData</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uROIDEEditors.pas" />
+    <DCCReference Include="uROIDEMenu.pas" />
+    <DCCReference Include="uROIDEPrjWizard.pas" />
+    <DCCReference Include="uROIDETools.pas" />
+    <DCCReference Include="uROLoginNeededForm.pas">
+      <Form>ROLoginNeededForm</Form>
+    </DCCReference>
+    <DCCReference Include="uROProductVersionInfo.pas" />
+    <DCCReference Include="uROProductVersionInfoForm.pas">
+      <Form>ProductVersionInfoForm</Form>
+    </DCCReference>
+    <DCCReference Include="uROProductVersionInfo_Intf.pas" />
+    <DCCReference Include="uROResWriter.pas" />
+    <DCCReference Include="uRORODLNotifier.pas" />
+    <None Include="..\RemObjects.inc" />
+    <None Include="ModelSupport_RemObjects_IDE_D10\default.txaPackage" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.dpk
new file mode 100644
index 0000000..80a6be6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.dpk	
@@ -0,0 +1,79 @@
+package RemObjects_IDE_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - IDE Integration for Win32'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE HYDRA_DESIGNTIME}
+
+requires
+  designide,
+  vclx,
+  inet,
+  vcl,
+  rtl,
+  RemObjects_Core_D12,
+  RemObjects_Everwood_D12;
+
+contains
+  uROIDEPrjWizard in 'uROIDEPrjWizard.pas',
+  uROIDEMenu in 'uROIDEMenu.pas',
+  uRORODLNotifier in 'uRORODLNotifier.pas',
+  uROIDETools in 'uROIDETools.pas',
+  uRODLGenTools in '..\CodeGen\uRODLGenTools.pas',
+  uRODLToPascalImpl in '..\CodeGen\uRODLToPascalImpl.pas',
+  uRODLToPascalIntf in '..\CodeGen\uRODLToPascalIntf.pas',
+  uRODLToPascalInvk in '..\CodeGen\uRODLToPascalInvk.pas',
+  fServerProjectOptions in 'fServerProjectOptions.pas' {ServerProjectOptions},
+  fCustomIDEMessagesForm in 'fCustomIDEMessagesForm.pas' {CustomIDEMessagesForm},
+  RemObjects_IDE_Reg in 'RemObjects_IDE_Reg.pas',
+  uROResWriter in 'uROResWriter.pas',
+  fDispatchersEditorForm in 'fDispatchersEditorForm.pas' {DispatchersEditorForm},
+  uROIDEData in 'uROIDEData.pas' {IdeData: TDataModule},
+  uRODLToPascal in '..\CodeGen\uRODLToPascal.pas',
+  fROAbout in 'fROAbout.pas' {AboutForm},
+  uROIDEEditors in 'uROIDEEditors.pas',
+  uROProductVersionInfoForm in 'uROProductVersionInfoForm.pas' {ProductVersionInfoForm},
+  uROProductVersionInfo in 'uROProductVersionInfo.pas',
+  uROProductVersionInfo_Intf in 'uROProductVersionInfo_Intf.pas',
+  fROServerClassForm in 'fROServerClassForm.pas' {ROServerClassForm},
+  uRODECReg in '..\RODEC\uRODECReg.pas',
+  uROEncKeyPropEditor in '..\RODEC\uROEncKeyPropEditor.pas' {CryptoKeyGenForm},
+  uROExtraEditors in 'uROExtraEditors.pas',
+  fNewProjectForm in 'fNewProjectForm.pas' {NewProjectForm},
+  uRODLToPascalAsync in '..\CodeGen\uRODLToPascalAsync.pas',
+  uROLoginNeededForm in 'uROLoginNeededForm.pas' {ROLoginNeededForm},
+  uRODLTemplateBasedConverterUtils in '..\CodeGen2\uRODLTemplateBasedConverterUtils.pas',
+  uRODLAsyncConverter in '..\CodeGen2\uRODLAsyncConverter.pas',
+  uRODLConvertersUtils in '..\CodeGen2\uRODLConvertersUtils.pas',
+  uRODLCppConverters in '..\CodeGen2\uRODLCppConverters.pas',
+  uRODLDelphiConverters in '..\CodeGen2\uRODLDelphiConverters.pas',
+  uRODLImplConverter in '..\CodeGen2\uRODLImplConverter.pas',
+  uRODLIntfConverter in '..\CodeGen2\uRODLIntfConverter.pas',
+  uRODLInvkConverter in '..\CodeGen2\uRODLInvkConverter.pas',
+  uRODLSplitableConverter in '..\CodeGen2\uRODLSplitableConverter.pas',
+  uRODLTemplateBasedConverter in '..\CodeGen2\uRODLTemplateBasedConverter.pas',
+  uRODLLineStream in '..\CodeGen2\uRODLLineStream.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.dproj
new file mode 100644
index 0000000..1779850
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.dproj	
@@ -0,0 +1,154 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{fe71e26f-b3f6-4155-b226-b778db554247}</ProjectGuid>
+			<MainSource>RemObjects_IDE_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_IDE_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\RemObjects_IDE_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\..\Dcu\D12;..;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - IDE Integration for Win32</DCC_Description>
+			<DCC_Define>HYDRA_DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_IDE_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="vclx.dcp"/>
+			<DCCReference Include="inet.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="RemObjects_Everwood_D12.dcp"/>
+			<DCCReference Include="uROIDEPrjWizard.pas"/>
+			<DCCReference Include="uROIDEMenu.pas"/>
+			<DCCReference Include="uRORODLNotifier.pas"/>
+			<DCCReference Include="uROIDETools.pas"/>
+			<DCCReference Include="..\CodeGen\uRODLGenTools.pas"/>
+			<DCCReference Include="..\CodeGen\uRODLToPascalImpl.pas"/>
+			<DCCReference Include="..\CodeGen\uRODLToPascalIntf.pas"/>
+			<DCCReference Include="..\CodeGen\uRODLToPascalInvk.pas"/>
+			<DCCReference Include="fServerProjectOptions.pas">
+				<Form>ServerProjectOptions</Form>
+			</DCCReference>
+			<DCCReference Include="fCustomIDEMessagesForm.pas">
+				<Form>CustomIDEMessagesForm</Form>
+			</DCCReference>
+			<DCCReference Include="RemObjects_IDE_Reg.pas"/>
+			<DCCReference Include="uROResWriter.pas"/>
+			<DCCReference Include="fDispatchersEditorForm.pas">
+				<Form>DispatchersEditorForm</Form>
+			</DCCReference>
+			<DCCReference Include="uROIDEData.pas">
+				<Form>IdeData</Form>
+				<DesignClass>TDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="..\CodeGen\uRODLToPascal.pas"/>
+			<DCCReference Include="fROAbout.pas">
+				<Form>AboutForm</Form>
+			</DCCReference>
+			<DCCReference Include="uROIDEEditors.pas"/>
+			<DCCReference Include="uROProductVersionInfoForm.pas">
+				<Form>ProductVersionInfoForm</Form>
+			</DCCReference>
+			<DCCReference Include="uROProductVersionInfo.pas"/>
+			<DCCReference Include="uROProductVersionInfo_Intf.pas"/>
+			<DCCReference Include="fROServerClassForm.pas">
+				<Form>ROServerClassForm</Form>
+			</DCCReference>
+			<DCCReference Include="uROExtraEditors.pas"/>
+			<DCCReference Include="fNewProjectForm.pas">
+				<Form>NewProjectForm</Form>
+			</DCCReference>
+			<DCCReference Include="..\CodeGen\uRODLToPascalAsync.pas"/>
+			<DCCReference Include="uROLoginNeededForm.pas">
+				<Form>ROLoginNeededForm</Form>
+			</DCCReference>
+			<DCCReference Include="..\CodeGen2\uRODLTemplateBasedConverterUtils.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLAsyncConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLConvertersUtils.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLCppConverters.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLDelphiConverters.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLImplConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLIntfConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLInvkConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLSplitableConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLTemplateBasedConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLLineStream.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">0</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">0.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_IDE_D12.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D12.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.dof
new file mode 100644
index 0000000..8ba533b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.dof	
@@ -0,0 +1,108 @@
+[Compiler]
+A=1
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - IDE Integration
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D5
+PackageDLLOutputDir=..\..\Dcu\D5
+PackageDCPOutputDir=..\..\Dcu\D5
+SearchPath=..\..\Dcu\D5;..\
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+[Language]
+ActiveLang=
+ProjectLang=$00000409
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=2
+MinorVer=0
+Release=0
+Build=106
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.0.106
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+[Excluded Packages]
+L:\Others\Async Professional 4.0\A405_D50.BPL=Async Professional components
+[HistoryLists\hlConditionals]
+Count=1
+Item0=DESIGNTIME
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=3
+Item0=..\Dcu\D5
+Item1=..\Dcu\D6
+Item2=..\Dcu\D7
+[HistoryLists\hlUnitOutputDirectory]
+Count=3
+Item0=..\Dcu\D5
+Item1=..\Dcu\D6
+Item2=..\Dcu\D7
+[HistoryLists\hlBPLOutput]
+Count=2
+Item0=..\Dcu\D5
+Item1=..\Dcu\D6
+[HistoryLists\hlDCPOutput]
+Count=3
+Item0=..\Dcu\D5
+Item1=..\Dcu\D6
+Item2=..\Dcu\D7
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.dpk
new file mode 100644
index 0000000..9a3ed4d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.dpk	
@@ -0,0 +1,67 @@
+package RemObjects_IDE_D5;
+
+{$R *.RES}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - IDE Integration'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  Vcl50,
+  Vclx50,
+  Inet50,
+  RemObjects_Core_D5,
+  dsnide50;
+
+{%File '..\RemObjects.inc'}
+
+contains
+  uROIDEPrjWizard in 'uROIDEPrjWizard.pas',
+  uROIDEMenu in 'uROIDEMenu.pas',
+  uRORODLNotifier in 'uRORODLNotifier.pas',
+  uROIDETools in 'uROIDETools.pas',
+  uRODLGenTools in '..\CodeGen\uRODLGenTools.pas',
+  uRODLToPascalImpl in '..\CodeGen\uRODLToPascalImpl.pas',
+  uRODLToPascalIntf in '..\CodeGen\uRODLToPascalIntf.pas',
+  uRODLToPascalInvk in '..\CodeGen\uRODLToPascalInvk.pas',
+  fServerProjectOptions in 'fServerProjectOptions.pas' {ServerProjectOptions},
+  fCustomIDEMessagesForm in 'fCustomIDEMessagesForm.pas' {CustomIDEMessagesForm},
+  RemObjects_IDE_Reg in 'RemObjects_IDE_Reg.pas',
+  uROResWriter in 'uROResWriter.pas',
+  fDispatchersEditorForm in 'fDispatchersEditorForm.pas' {DispatchersEditorForm},
+  uROIDEData in 'uROIDEData.pas' {IdeData: TDataModule},
+  uRODLToPascal in '..\CodeGen\uRODLToPascal.pas',
+  fROAbout in 'fROAbout.pas' {AboutForm},
+  uROIDEEditors in 'uROIDEEditors.pas',
+  uROProductVersionInfoForm in 'uROProductVersionInfoForm.pas' {ProductVersionInfoForm},
+  uROProductVersionInfo in 'uROProductVersionInfo.pas',
+  uROProductVersionInfo_Intf in 'uROProductVersionInfo_Intf.pas',
+  fROServerClassForm in 'fROServerClassForm.pas' {ROServerClassForm},
+  uRODECReg in '..\RODEC\uRODECReg.pas',
+  uROEncKeyPropEditor in '..\RODEC\uROEncKeyPropEditor.pas' {CryptoKeyGenForm},
+  uROExtraEditors in 'uROExtraEditors.pas',
+  fNewProjectForm in 'fNewProjectForm.pas' {NewProjectForm},
+  uRODLToPascalAsync in '..\CodeGen\uRODLToPascalAsync.pas',
+  uROLoginNeededForm in 'uROLoginNeededForm.pas' {ROLoginNeededForm};
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.res
new file mode 100644
index 0000000..a2de886
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D5.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.dof
new file mode 100644
index 0000000..29ede00
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.dof	
@@ -0,0 +1,127 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - IDE Integration
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50
+Conditionals=HYDRA_DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\WINDOWS\System32\CrTb2k_60.bpl=Toolbar 2000 and TBX for CodeRush 6
+L:\Packages\dcldxLayoutControlD6.bpl=ExpressLayout Control by Developer Express Inc.
+L:\Packages\dclcxSpreadSheetVCLD6.bpl=ExpressSpreadSheet (VCL Edition) by Developer Express Inc.
+l:\Packages\dclcxLibraryVCLD6.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxGridUtilsVCLD6.bpl=ExpressQuantumGrid 4 Utils (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxEditorsVCLD6.bpl=ExpressEditors Library 4 (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxGridVCLD6.bpl=ExpressQuantumGrid 4 (VCL Edition) by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSLnksD6.bpl=ExpressPrinting System ReportLinks (Standard) by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSTLLnkD6.bpl=ExpressPrinting System ReportLink for ExpressQuantumTreeList by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxDBTLLnkD6.bpl=ExpressPrinting System ReportLink for ExpressQuantumDBTreeList by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxDBGrLnkD6.bpl=ExpressPrinting System ReportLink for ExpressQuantumGrid by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSTeeChartD6.bpl=ExpressPrinting System ReportLink for TeeChart by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSDBTeeChartD6.bpl=ExpressPrinting System ReportLink for DBTeeChart by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxDBTVLnkD6.bpl=ExpressPrinting System ReportLink for ExpressDBTree by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxInsLnkD6.bpl=ExpressPrinting System ReportLink for ExpressInspector by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxOILnkD6.bpl=ExpressPrinting System ReportLink for ExpressRTTIInspector by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxMVLnkD6.bpl=ExpressPrinting System ReportLink for ExpressMasterView by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxOCLnkD6.bpl=ExpressPrinting System ReportLinks for ExpressOrgChart by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxDBOCLnkD6.bpl=ExpressPrinting System ReportLinks for ExpressDBOrgChart by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSdxFCLnkD6.bpl=ExpressPrinting System ReportLinks for ExpressFlowChart by Developer Express Inc.
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPScxSSLnkD6.bpl=ExpressPrinting System ReportLink for ExpressSpreadSheet by Developer Express Inc.
+C:\Raize\BizComps\Bin\RzBizDcl60.bpl=Raize Business Component Architecture v4.0
+L:\Packages\CR_SuperPalette6.bpl=Super Palette
+l:\Others\DevEx\ExpressPrinting System\Delphi 6\Lib\dxPSPrVwAdvD6.bpl=ExpressPrinting System Advanced Preview Window by Developer Express Inc.
+[HistoryLists\hlConditionals]
+Count=1
+Item0=xDEBUG_EVERWOOD_SHOW_NEW_MODULE_CODE
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=..\..\Dcu\D6
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=..\..\Dcu\D6
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=..\..\Dcu\D6
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.dpk
new file mode 100644
index 0000000..141dfec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.dpk	
@@ -0,0 +1,79 @@
+package RemObjects_IDE_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - IDE Integration'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE HYDRA_DESIGNTIME}
+
+requires
+  vcl,
+  designide,
+  RemObjects_Core_D6,
+  RemObjects_Everwood_D6,
+  vclx;
+
+{%File '..\RemObjects.inc'}
+
+contains
+  uROIDEPrjWizard in 'uROIDEPrjWizard.pas',
+  uROIDEMenu in 'uROIDEMenu.pas',
+  uRORODLNotifier in 'uRORODLNotifier.pas',
+  uROIDETools in 'uROIDETools.pas',
+  uRODLGenTools in '..\CodeGen\uRODLGenTools.pas',
+  uRODLToPascalImpl in '..\CodeGen\uRODLToPascalImpl.pas',
+  uRODLToPascalIntf in '..\CodeGen\uRODLToPascalIntf.pas',
+  uRODLToPascalInvk in '..\CodeGen\uRODLToPascalInvk.pas',
+  fServerProjectOptions in 'fServerProjectOptions.pas' {ServerProjectOptions},
+  fCustomIDEMessagesForm in 'fCustomIDEMessagesForm.pas' {CustomIDEMessagesForm},
+  RemObjects_IDE_Reg in 'RemObjects_IDE_Reg.pas',
+  uROResWriter in 'uROResWriter.pas',
+  fDispatchersEditorForm in 'fDispatchersEditorForm.pas' {DispatchersEditorForm},
+  uROIDEData in 'uROIDEData.pas' {IdeData: TDataModule},
+  uRODLToPascal in '..\CodeGen\uRODLToPascal.pas',
+  fROAbout in 'fROAbout.pas' {AboutForm},
+  uROIDEEditors in 'uROIDEEditors.pas',
+  uROProductVersionInfoForm in 'uROProductVersionInfoForm.pas' {ProductVersionInfoForm},
+  uROProductVersionInfo in 'uROProductVersionInfo.pas',
+  uROProductVersionInfo_Intf in 'uROProductVersionInfo_Intf.pas',
+  fROServerClassForm in 'fROServerClassForm.pas' {ROServerClassForm},
+  uRODECReg in '..\RODEC\uRODECReg.pas',
+  uROEncKeyPropEditor in '..\RODEC\uROEncKeyPropEditor.pas' {CryptoKeyGenForm},
+  uROExtraEditors in 'uROExtraEditors.pas',
+  fNewProjectForm in 'fNewProjectForm.pas' {NewProjectForm},
+  uRODLToPascalAsync in '..\CodeGen\uRODLToPascalAsync.pas',
+  uROLoginNeededForm in 'uROLoginNeededForm.pas' {ROLoginNeededForm},
+  uRODLTemplateBasedConverterUtils in '..\CodeGen2\uRODLTemplateBasedConverterUtils.pas',
+  uRODLAsyncConverter in '..\CodeGen2\uRODLAsyncConverter.pas',
+  uRODLConvertersUtils in '..\CodeGen2\uRODLConvertersUtils.pas',
+  uRODLCppConverters in '..\CodeGen2\uRODLCppConverters.pas',
+  uRODLDelphiConverters in '..\CodeGen2\uRODLDelphiConverters.pas',
+  uRODLImplConverter in '..\CodeGen2\uRODLImplConverter.pas',
+  uRODLIntfConverter in '..\CodeGen2\uRODLIntfConverter.pas',
+  uRODLInvkConverter in '..\CodeGen2\uRODLInvkConverter.pas',
+  uRODLSplitableConverter in '..\CodeGen2\uRODLSplitableConverter.pas',
+  uRODLTemplateBasedConverter in '..\CodeGen2\uRODLTemplateBasedConverter.pas',
+  uRODLLineStream in '..\CodeGen2\uRODLLineStream.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.res
new file mode 100644
index 0000000..2bb69d3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D6.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.dof
new file mode 100644
index 0000000..53b6208
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.dof	
@@ -0,0 +1,160 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - IDE Integration
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7;..\
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50
+Conditionals=HYDRA_DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=2
+Build=284
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.2.284
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+[Excluded Packages]
+l:\Packages\SchemaModelerUtils_d7.bpl=RemObjects Data Abstract - Schema Modeler Components (PRIVATE)
+R:\NexusDB Pack\Dcu\D7\RemObjects_NexusDB_IDE_D7.bpl=RemObjects SDK - NexusDB IDE Integration
+R:\Data Abstract\Dcu\D7\DataAbstract_IDE_D7.bpl=RemObjects Data Abstract - IDE Package
+R:\Data Abstract\Dcu\D7\DataAbstract_DBXDriver_D7.bpl=RemObjects Data Abstract - dbExpress Driver
+R:\Data Abstract\Dcu\D7\DataAbstract_IBXDriver_D7.bpl=RemObjects Data Abstract - InterBase Express Driver
+R:\Data Abstract\Dcu\D7\DataAbstract_ADODriver_D7.bpl=RemObjects Data Abstract - ADOExpress/dbGo Driver
+[HistoryLists\hlConditionals]
+Count=1
+Item0=DESIGNTIME
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=1
+Item0=..\Dcu\D7
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=..\Dcu\D7
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=..\Dcu\D7
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=..\Dcu\D7
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.dpk
new file mode 100644
index 0000000..d880190
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.dpk	
@@ -0,0 +1,82 @@
+package RemObjects_IDE_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - IDE Integration'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE HYDRA_DESIGNTIME}
+
+requires
+  designide,
+  vclx,
+  inet,
+  vcl,
+  rtl,
+  RemObjects_Core_D7,
+  RemObjects_Everwood_D7,
+  dbrtl;
+
+{%File '..\RemObjects.inc'}
+
+contains
+  uROIDEPrjWizard in 'uROIDEPrjWizard.pas',
+  uROIDEMenu in 'uROIDEMenu.pas',
+  uRORODLNotifier in 'uRORODLNotifier.pas',
+  uROIDETools in 'uROIDETools.pas',
+  uRODLGenTools in '..\CodeGen\uRODLGenTools.pas',
+  uRODLToPascalImpl in '..\CodeGen\uRODLToPascalImpl.pas',
+  uRODLToPascalIntf in '..\CodeGen\uRODLToPascalIntf.pas',
+  uRODLToPascalInvk in '..\CodeGen\uRODLToPascalInvk.pas',
+  fServerProjectOptions in 'fServerProjectOptions.pas' {ServerProjectOptions},
+  fCustomIDEMessagesForm in 'fCustomIDEMessagesForm.pas' {CustomIDEMessagesForm},
+  RemObjects_IDE_Reg in 'RemObjects_IDE_Reg.pas',
+  uROResWriter in 'uROResWriter.pas',
+  fDispatchersEditorForm in 'fDispatchersEditorForm.pas' {DispatchersEditorForm},
+  uROIDEData in 'uROIDEData.pas' {IdeData: TDataModule},
+  uRODLToPascal in '..\CodeGen\uRODLToPascal.pas',
+  fROAbout in 'fROAbout.pas' {AboutForm},
+  uROIDEEditors in 'uROIDEEditors.pas',
+  uROProductVersionInfoForm in 'uROProductVersionInfoForm.pas' {ProductVersionInfoForm},
+  uROProductVersionInfo in 'uROProductVersionInfo.pas',
+  uROProductVersionInfo_Intf in 'uROProductVersionInfo_Intf.pas',
+  fROServerClassForm in 'fROServerClassForm.pas' {ROServerClassForm},
+  uRODECReg in '..\RODEC\uRODECReg.pas',
+  uROEncKeyPropEditor in '..\RODEC\uROEncKeyPropEditor.pas' {CryptoKeyGenForm},
+  uROExtraEditors in 'uROExtraEditors.pas',
+  fNewProjectForm in 'fNewProjectForm.pas' {NewProjectForm},
+  uRODLToPascalAsync in '..\CodeGen\uRODLToPascalAsync.pas',
+  uROLoginNeededForm in 'uROLoginNeededForm.pas' {ROLoginNeededForm},
+  uRODLTemplateBasedConverterUtils in '..\CodeGen2\uRODLTemplateBasedConverterUtils.pas',
+  uRODLAsyncConverter in '..\CodeGen2\uRODLAsyncConverter.pas',
+  uRODLConvertersUtils in '..\CodeGen2\uRODLConvertersUtils.pas',
+  uRODLCppConverters in '..\CodeGen2\uRODLCppConverters.pas',
+  uRODLDelphiConverters in '..\CodeGen2\uRODLDelphiConverters.pas',
+  uRODLImplConverter in '..\CodeGen2\uRODLImplConverter.pas',
+  uRODLIntfConverter in '..\CodeGen2\uRODLIntfConverter.pas',
+  uRODLInvkConverter in '..\CodeGen2\uRODLInvkConverter.pas',
+  uRODLSplitableConverter in '..\CodeGen2\uRODLSplitableConverter.pas',
+  uRODLTemplateBasedConverter in '..\CodeGen2\uRODLTemplateBasedConverter.pas',
+  uRODLLineStream in '..\CodeGen2\uRODLLineStream.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_D7.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Mac.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Mac.lpk
new file mode 100644
index 0000000..82d0133
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Mac.lpk	
@@ -0,0 +1,144 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="RemObjects_IDE_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="$(LazarusDir)/lcl/units/$(TargetCPU)-$(TargetOS)/;../CodeGen2/"/>
+        <UnitOutputDirectory Value="../units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - IDE Integration"/>
+    <Files Count="25">
+      <Item1>
+        <Filename Value="fCustomIDEMessagesForm.pas"/>
+        <UnitName Value="fCustomIDEMessagesForm"/>
+      </Item1>
+      <Item2>
+        <Filename Value="fCustomIDEMessagesForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item2>
+      <Item3>
+        <Filename Value="fCustomIDEMessagesForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item3>
+      <Item4>
+        <Filename Value="fDispatchersEditorForm.pas"/>
+        <UnitName Value="fDispatchersEditorForm"/>
+      </Item4>
+      <Item5>
+        <Filename Value="fDispatchersEditorForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item5>
+      <Item6>
+        <Filename Value="fDispatchersEditorForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item6>
+      <Item7>
+        <Filename Value="fROAbout.pas"/>
+        <UnitName Value="fROAbout"/>
+      </Item7>
+      <Item8>
+        <Filename Value="fROAbout.lfm"/>
+        <Type Value="LFM"/>
+      </Item8>
+      <Item9>
+        <Filename Value="fROAbout.lrs"/>
+        <Type Value="LRS"/>
+      </Item9>
+      <Item10>
+        <Filename Value="fROServerClassForm.pas"/>
+        <UnitName Value="fROServerClassForm"/>
+      </Item10>
+      <Item11>
+        <Filename Value="fROServerClassForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item11>
+      <Item12>
+        <Filename Value="fROServerClassForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item12>
+      <Item13>
+        <Filename Value="RemObjects_IDE_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_IDE_Reg"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROExtraEditors.pas"/>
+        <UnitName Value="uROExtraEditors"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROIDEData.pas"/>
+        <UnitName Value="uROIDEData"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROIDEData.lfm"/>
+        <Type Value="LFM"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROIDEData.lrs"/>
+        <Type Value="LRS"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROIDEEditors.pas"/>
+        <UnitName Value="uROIDEEditors"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROIDEMenu_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uROIDEMenu_laz"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROIDETools_laz.pas"/>
+        <UnitName Value="uROIDETools_laz"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uROLoginNeededForm.pas"/>
+        <UnitName Value="uROLoginNeededForm"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROLoginNeededForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uROLoginNeededForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uROResWriter.pas"/>
+        <UnitName Value="uROResWriter"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uRORODLNotifier.pas"/>
+        <UnitName Value="uRORODLNotifier"/>
+      </Item25>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="5">
+      <Item1>
+        <PackageName Value="RemObjects_Everwood_Lazarus_Mac"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Mac"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="IDEIntf"/>
+      </Item5>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Unix.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Unix.lpk
new file mode 100644
index 0000000..c34b874
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Unix.lpk	
@@ -0,0 +1,144 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="RemObjects_IDE_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="$(LazarusDir)/lcl/units/$(TargetCPU)-$(TargetOS)/;../CodeGen2/"/>
+        <UnitOutputDirectory Value="../units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - IDE Integration"/>
+    <Files Count="25">
+      <Item1>
+        <Filename Value="fCustomIDEMessagesForm.pas"/>
+        <UnitName Value="fCustomIDEMessagesForm"/>
+      </Item1>
+      <Item2>
+        <Filename Value="fCustomIDEMessagesForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item2>
+      <Item3>
+        <Filename Value="fCustomIDEMessagesForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item3>
+      <Item4>
+        <Filename Value="fDispatchersEditorForm.pas"/>
+        <UnitName Value="fDispatchersEditorForm"/>
+      </Item4>
+      <Item5>
+        <Filename Value="fDispatchersEditorForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item5>
+      <Item6>
+        <Filename Value="fDispatchersEditorForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item6>
+      <Item7>
+        <Filename Value="fROAbout.pas"/>
+        <UnitName Value="fROAbout"/>
+      </Item7>
+      <Item8>
+        <Filename Value="fROAbout.lfm"/>
+        <Type Value="LFM"/>
+      </Item8>
+      <Item9>
+        <Filename Value="fROAbout.lrs"/>
+        <Type Value="LRS"/>
+      </Item9>
+      <Item10>
+        <Filename Value="fROServerClassForm.pas"/>
+        <UnitName Value="fROServerClassForm"/>
+      </Item10>
+      <Item11>
+        <Filename Value="fROServerClassForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item11>
+      <Item12>
+        <Filename Value="fROServerClassForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item12>
+      <Item13>
+        <Filename Value="RemObjects_IDE_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_IDE_Reg"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROExtraEditors.pas"/>
+        <UnitName Value="uROExtraEditors"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROIDEData.pas"/>
+        <UnitName Value="uROIDEData"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROIDEData.lfm"/>
+        <Type Value="LFM"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROIDEData.lrs"/>
+        <Type Value="LRS"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROIDEEditors.pas"/>
+        <UnitName Value="uROIDEEditors"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROIDEMenu_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uROIDEMenu_laz"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROIDETools_laz.pas"/>
+        <UnitName Value="uROIDETools_laz"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uROLoginNeededForm.pas"/>
+        <UnitName Value="uROLoginNeededForm"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROLoginNeededForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uROLoginNeededForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uROResWriter.pas"/>
+        <UnitName Value="uROResWriter"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uRORODLNotifier.pas"/>
+        <UnitName Value="uRORODLNotifier"/>
+      </Item25>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="5">
+      <Item1>
+        <PackageName Value="RemObjects_Everwood_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Unix"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="IDEIntf"/>
+      </Item5>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Windows.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Windows.lpk
new file mode 100644
index 0000000..a5f1e3c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Lazarus_Windows.lpk	
@@ -0,0 +1,146 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_IDE_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="..\CodeGen2\"/>
+        <UnitOutputDirectory Value="..\..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - IDE Integration"/>
+    <Files Count="25">
+      <Item1>
+        <Filename Value="fCustomIDEMessagesForm.pas"/>
+        <UnitName Value="fCustomIDEMessagesForm"/>
+      </Item1>
+      <Item2>
+        <Filename Value="fCustomIDEMessagesForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item2>
+      <Item3>
+        <Filename Value="fCustomIDEMessagesForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item3>
+      <Item4>
+        <Filename Value="fDispatchersEditorForm.pas"/>
+        <UnitName Value="fDispatchersEditorForm"/>
+      </Item4>
+      <Item5>
+        <Filename Value="fDispatchersEditorForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item5>
+      <Item6>
+        <Filename Value="fDispatchersEditorForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item6>
+      <Item7>
+        <Filename Value="fROAbout.pas"/>
+        <UnitName Value="fROAbout"/>
+      </Item7>
+      <Item8>
+        <Filename Value="fROAbout.lfm"/>
+        <Type Value="LFM"/>
+      </Item8>
+      <Item9>
+        <Filename Value="fROAbout.lrs"/>
+        <Type Value="LRS"/>
+      </Item9>
+      <Item10>
+        <Filename Value="fROServerClassForm.pas"/>
+        <UnitName Value="fROServerClassForm"/>
+      </Item10>
+      <Item11>
+        <Filename Value="fROServerClassForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item11>
+      <Item12>
+        <Filename Value="fROServerClassForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item12>
+      <Item13>
+        <Filename Value="RemObjects_IDE_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_IDE_Reg"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROExtraEditors.pas"/>
+        <UnitName Value="uROExtraEditors"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROIDEData.pas"/>
+        <UnitName Value="uROIDEData"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROIDEData.lfm"/>
+        <Type Value="LFM"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROIDEData.lrs"/>
+        <Type Value="LRS"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROIDEEditors.pas"/>
+        <UnitName Value="uROIDEEditors"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROIDEMenu_laz.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="uROIDEMenu_laz"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROIDETools_laz.pas"/>
+        <UnitName Value="uROIDETools_laz"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uROLoginNeededForm.pas"/>
+        <UnitName Value="uROLoginNeededForm"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROLoginNeededForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uROLoginNeededForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uROResWriter.pas"/>
+        <UnitName Value="uROResWriter"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uRORODLNotifier.pas"/>
+        <UnitName Value="uRORODLNotifier"/>
+      </Item25>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="5">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="RemObjects_Everwood_Lazarus_Windows"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="IDEIntf"/>
+      </Item5>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Reg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Reg.pas
new file mode 100644
index 0000000..8946b85
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_Reg.pas	
@@ -0,0 +1,168 @@
+unit RemObjects_IDE_Reg;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  {Designtime:}fROAbout, uROIDEEditors,  {$IFNDEF FPC}uROProductVersionInfo,{$ENDIF}
+  uROServer, uRORemoteDataModule, uRODynamicRequest, uROEventRepository, uRODLGenTools,
+  uRORemoteService, uROServerMultiMessage,
+  {$IFDEF FPC}
+    PropEdits,FormEditingIntf,ComponentEditors
+  {$ELSE}
+    {vcl:}Classes,
+    {components:}
+    uROSOAPMessage,
+    uROExtraEditors,
+
+    {$IFDEF MSWINDOWS}
+    uROWinMessageChannel,
+    uROWinMessageServer,
+    uROWinInetHttpChannel,
+    uRODLLChannel,
+    uRONamedPipeChannel, uRONamedPipeServer,
+    {$ENDIF MSWINDOWS}
+    uROBinMessage,
+    uROPostMessage,
+    {$IFDEF VER140UP}
+    uROSessions,
+    {$ENDIF}
+    uROPoweredByRemObjectsButton,
+    uRODBSessionManager,
+    uROMasterServerSessionManager,
+    uROMasterServerEventRepository,
+
+    uROClient,
+    {$IFDEF DELPHI5}DsgnIntf, DMDesigner, DesignIntf{$ELSE}DesignIntf, DesignEditors{$ENDIF}
+  {$ENDIF}
+    ;
+
+{ Register }
+
+procedure Register;
+begin
+  RegisterPropertyEditor(TypeInfo(TROMessageDispatchers), TROServer, prop_Dispatchers, TDispatchersProperty);
+  RegisterPropertyEditor(TypeInfo(string), TRORemoteService, prop_ServiceName, TROServiceNameProperty);
+  RegisterPropertyEditor(TypeInfo(string), TROEventReceiver, prop_ServiceName, TROServiceNameProperty);  
+  {$IFDEF VER140UP}
+  RegisterComponentEditor(TRORemoteService, TRORemoteServiceEditor);
+  RegisterComponentEditor(TROServer, TROServerEditor);
+  RegisterPropertyEditor(TypeInfo(string), TRODynamicRequest, prop_ServiceName, TRODynRequestServiceNameProperty);
+  RegisterPropertyEditor(TypeInfo(string), TRODynamicRequest, prop_OperationName, TRODynRequestOperationNameProperty);
+  RegisterComponentEditor(TRODynamicRequest, TRODynamicRequestEditor);
+  {$ENDIF VER140UP}
+  RegisterComponentEditor(TRODesigntimeCall, TRODesigntimeCallEditor);
+  RegisterComponentEditor(TROServerMultiMessage,TROServerMultiMessageEditor);
+
+  RegisterRODataModuleClass(TRORemoteDataModule,
+    'RemObjects SDK &Remote Datamodule',
+    'Standard RemObjects SDK datamodule. '+
+    'This is the preferred server type when you need to use Delphi components (i.e. datasets, database connections) at design time.',
+    'uRORemoteDataModule'
+  );
+
+  {$IFDEF FPC}
+  FormEditingHook.RegisterDesignerBaseClass(TRORemoteDataModule);
+  {$ELSE}
+  {$IFDEF DELPHI6UP}
+  RegisterCustomModule(TRORemoteDataModule,TCustomModule);
+  {$ELSE}
+  RegisterCustomModule(TRORemoteDataModule,TDataModuleDesignerCustomModule);
+  {$ENDIF}
+
+  { TROBinMessage }
+  RegisterPropertiesInCategory('Message', TROBinMessage, ['UseCompression', 'CompressionBufferSize', 'MinSizeForCompression']);
+  RegisterPropertiesInCategory('Message', TROPostMessage, ['BinaryType']);
+  RegisterPropertiesInCategory('Message', TROSoapMessage, ['SerializationOptions', 'CustomLocation']);
+
+  { TROTransportChannel }
+  RegisterPropertiesInCategory('Load Balancing', TROTransportChannel, ['ProbeFrequency', 'ProbeServers', 'ServerLocators', 'SynchronizedProbing', 'DispatchOptions']);
+  RegisterPropertiesInCategory('Connection', TROTransportChannel, ['Encryption', 'Busy']);
+
+  { TROWinInetHTTPChannel }
+  RegisterPropertiesInCategory('Client', TROWinInetHTTPChannel, ['UserAgent', 'TargetURL', 'Login']);
+  RegisterPropertiesInCategory('Connection', TROWinInetHTTPChannel, ['StoreConnected', 'Connected', 'KeepConnection']);
+
+  { TROWinMessageChannel }
+  RegisterPropertiesInCategory('Client', TROWinMessageChannel, ['ServerID']);
+  RegisterPropertiesInCategory('AutoStart', TROWinMessageChannel, ['DefaultDirectory', 'Filename', 'Parameters', 'StartServer', 'Delay']);
+
+  { TRODLLChannel }
+  RegisterPropertiesInCategory('Client', TRODLLChannel, ['DLLName', 'KeepDLLLoaded']);
+
+  { TRONamedPipeChannel }
+  RegisterPropertiesInCategory('Client', TRONamedPipeChannel, ['ActivateOnDemand', 'Active', 'ServerID', 'ServerName']);
+
+
+  { TROServer }
+  RegisterPropertiesInCategory('Server', TROServer, ['Dispatchers']);
+  RegisterPropertiesInCategory('Connection', TROServer, ['Encryption', 'Active', 'StoreActive']);
+
+  { TROWinMessageServer }
+  RegisterPropertiesInCategory('Server', TROWinMessageServer, ['ServerID']);
+
+  { TRONamedPipeServer }
+  RegisterPropertiesInCategory('Server', TRONamedPipeServer, ['ServerID']);
+
+
+  { TROCustomSessionManager }
+  RegisterPropertiesInCategory('Sessions', TROCustomSessionManager, ['MaxSessions', 'SessionDuration']);
+
+  { TRODBSessionManager }
+  RegisterPropertiesInCategory('Sessions', TRODBSessionManager, ['ClearSessionsOnCreate', 'ClearSessionsOnDestroy',
+                                                                 'FieldNameCreated', 'FieldNameData', 'FieldNameLastAccessed', 'FieldNameSessionID']);
+
+  { TRODynamicRequest }
+  RegisterPropertiesInCategory('Request', TRODynamicRequest, ['OperationName', 'ServiceName', 'Params']);
+
+  { TROEventReceiver }
+  RegisterPropertiesInCategory('EventReceiver', TROEventReceiver, ['Active', 'Interval', 'ServiceName', 'SynchronizedProbing']);
+
+  { TROPoweredByButton }
+  RegisterPropertiesInCategory('Powered By Button', TROPoweredByRemObjectsButton, ['ApplicationType']);
+
+
+
+  { TROEmailChannel }
+  //RegisterPropertiesInCategory('Client', TROEmailChannel, ['ClientEmail', 'DeleteOldResponses', 'ServerEmail', 'Pp3ServerAddress', 'SmtpServerAddress']);
+
+  { TROIndyHTTPChannel }
+  //RegisterPropertiesInCategory('Client', TROIndyHTTPChannel, ['KeepAlive', 'TargetURL']);
+
+  { TROIndyTCPChannel }
+  //RegisterPropertiesInCategory('Client', TROIndyTCPChannel, ['DisableNagle', 'Host', 'Port', 'KeepAlive']);
+
+  { TROIndyUDPChannel }
+  //RegisterPropertiesInCategory('Client', TROIndyUDPChannel, ['AsyncTimeout', 'Host', 'Port', 'Retrys']);    //todo
+  {$ENDIF}
+end;
+{$IFNDEF FPC}
+{$IFDEF MSWINDOWS}
+initialization
+  RegisterProduct('{154FA67E-DC1B-4784-BF27-EC81D5AEBCF2}',VersionBuildNo(hInstance));
+finalization
+  UnregisterProduct('{154FA67E-DC1B-4784-BF27-EC81D5AEBCF2}');
+{$ENDIF MSWINDOWS}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.dpk
new file mode 100644
index 0000000..fc1bbf7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.dpk	
@@ -0,0 +1,79 @@
+package RemObjects_IDE_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - IDE Integration for Win32'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE HYDRA_DESIGNTIME}
+
+requires
+  designide,
+  vclx,
+  inet,
+  vcl,
+  rtl,
+  RemObjects_Core_D14,
+  RemObjects_Everwood_D14;
+
+contains
+  uROIDEPrjWizard in 'uROIDEPrjWizard.pas',
+  uROIDEMenu in 'uROIDEMenu.pas',
+  uRORODLNotifier in 'uRORODLNotifier.pas',
+  uROIDETools in 'uROIDETools.pas',
+  uRODLGenTools in '..\CodeGen\uRODLGenTools.pas',
+  uRODLToPascalImpl in '..\CodeGen\uRODLToPascalImpl.pas',
+  uRODLToPascalIntf in '..\CodeGen\uRODLToPascalIntf.pas',
+  uRODLToPascalInvk in '..\CodeGen\uRODLToPascalInvk.pas',
+  fServerProjectOptions in 'fServerProjectOptions.pas' {ServerProjectOptions},
+  fCustomIDEMessagesForm in 'fCustomIDEMessagesForm.pas' {CustomIDEMessagesForm},
+  RemObjects_IDE_Reg in 'RemObjects_IDE_Reg.pas',
+  uROResWriter in 'uROResWriter.pas',
+  fDispatchersEditorForm in 'fDispatchersEditorForm.pas' {DispatchersEditorForm},
+  uROIDEData in 'uROIDEData.pas' {IdeData: TDataModule},
+  uRODLToPascal in '..\CodeGen\uRODLToPascal.pas',
+  fROAbout in 'fROAbout.pas' {AboutForm},
+  uROIDEEditors in 'uROIDEEditors.pas',
+  uROProductVersionInfoForm in 'uROProductVersionInfoForm.pas' {ProductVersionInfoForm},
+  uROProductVersionInfo in 'uROProductVersionInfo.pas',
+  uROProductVersionInfo_Intf in 'uROProductVersionInfo_Intf.pas',
+  fROServerClassForm in 'fROServerClassForm.pas' {ROServerClassForm},
+  uRODECReg in '..\RODEC\uRODECReg.pas',
+  uROEncKeyPropEditor in '..\RODEC\uROEncKeyPropEditor.pas' {CryptoKeyGenForm},
+  uROExtraEditors in 'uROExtraEditors.pas',
+  fNewProjectForm in 'fNewProjectForm.pas' {NewProjectForm},
+  uRODLToPascalAsync in '..\CodeGen\uRODLToPascalAsync.pas',
+  uROLoginNeededForm in 'uROLoginNeededForm.pas' {ROLoginNeededForm},
+  uRODLTemplateBasedConverterUtils in '..\CodeGen2\uRODLTemplateBasedConverterUtils.pas',
+  uRODLAsyncConverter in '..\CodeGen2\uRODLAsyncConverter.pas',
+  uRODLConvertersUtils in '..\CodeGen2\uRODLConvertersUtils.pas',
+  uRODLCppConverters in '..\CodeGen2\uRODLCppConverters.pas',
+  uRODLDelphiConverters in '..\CodeGen2\uRODLDelphiConverters.pas',
+  uRODLImplConverter in '..\CodeGen2\uRODLImplConverter.pas',
+  uRODLIntfConverter in '..\CodeGen2\uRODLIntfConverter.pas',
+  uRODLInvkConverter in '..\CodeGen2\uRODLInvkConverter.pas',
+  uRODLSplitableConverter in '..\CodeGen2\uRODLSplitableConverter.pas',
+  uRODLTemplateBasedConverter in '..\CodeGen2\uRODLTemplateBasedConverter.pas',
+  uRODLLineStream in '..\CodeGen2\uRODLLineStream.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.dproj
new file mode 100644
index 0000000..ecd2cea
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.dproj	
@@ -0,0 +1,167 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{fe71e26f-b3f6-4155-b226-b778db554247}</ProjectGuid>
+			<MainSource>RemObjects_IDE_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_IDE_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\RemObjects_IDE_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\..\Dcu\D14;..;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - IDE Integration for Win32</DCC_Description>
+			<DCC_Define>HYDRA_DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_IDE_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="vclx.dcp"/>
+			<DCCReference Include="inet.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="RemObjects_Everwood_D14.dcp"/>
+			<DCCReference Include="uROIDEPrjWizard.pas"/>
+			<DCCReference Include="uROIDEMenu.pas"/>
+			<DCCReference Include="uRORODLNotifier.pas"/>
+			<DCCReference Include="uROIDETools.pas"/>
+			<DCCReference Include="..\CodeGen\uRODLGenTools.pas"/>
+			<DCCReference Include="..\CodeGen\uRODLToPascalImpl.pas"/>
+			<DCCReference Include="..\CodeGen\uRODLToPascalIntf.pas"/>
+			<DCCReference Include="..\CodeGen\uRODLToPascalInvk.pas"/>
+			<DCCReference Include="fServerProjectOptions.pas">
+				<Form>ServerProjectOptions</Form>
+			</DCCReference>
+			<DCCReference Include="fCustomIDEMessagesForm.pas">
+				<Form>CustomIDEMessagesForm</Form>
+			</DCCReference>
+			<DCCReference Include="RemObjects_IDE_Reg.pas"/>
+			<DCCReference Include="uROResWriter.pas"/>
+			<DCCReference Include="fDispatchersEditorForm.pas">
+				<Form>DispatchersEditorForm</Form>
+			</DCCReference>
+			<DCCReference Include="uROIDEData.pas">
+				<Form>IdeData</Form>
+				<DesignClass>TDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="..\CodeGen\uRODLToPascal.pas"/>
+			<DCCReference Include="fROAbout.pas">
+				<Form>AboutForm</Form>
+			</DCCReference>
+			<DCCReference Include="uROIDEEditors.pas"/>
+			<DCCReference Include="uROProductVersionInfoForm.pas">
+				<Form>ProductVersionInfoForm</Form>
+			</DCCReference>
+			<DCCReference Include="uROProductVersionInfo.pas"/>
+			<DCCReference Include="uROProductVersionInfo_Intf.pas"/>
+			<DCCReference Include="fROServerClassForm.pas">
+				<Form>ROServerClassForm</Form>
+			</DCCReference>
+			<DCCReference Include="..\RODEC\uRODECReg.pas"/>
+			<DCCReference Include="..\RODEC\uROEncKeyPropEditor.pas">
+				<Form>CryptoKeyGenForm</Form>
+			</DCCReference>
+			<DCCReference Include="uROExtraEditors.pas"/>
+			<DCCReference Include="fNewProjectForm.pas">
+				<Form>NewProjectForm</Form>
+			</DCCReference>
+			<DCCReference Include="..\CodeGen\uRODLToPascalAsync.pas"/>
+			<DCCReference Include="uROLoginNeededForm.pas">
+				<Form>ROLoginNeededForm</Form>
+			</DCCReference>
+			<DCCReference Include="..\CodeGen2\uRODLTemplateBasedConverterUtils.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLAsyncConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLConvertersUtils.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLCppConverters.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLDelphiConverters.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLImplConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLIntfConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLInvkConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLSplitableConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLTemplateBasedConverter.pas"/>
+			<DCCReference Include="..\CodeGen2\uRODLLineStream.pas"/>
+			<DCCReference Include="RemObjects_Core_D13.dcp"/>
+			<DCCReference Include="RemObjects_Everwood_D13.dcp"/>
+			<DCCReference Include="RemObjects_Everwood_D1.dcp"/>
+			<DCCReference Include="RemObjects_Everwood_D12.dcp"/>
+			<DCCReference Include="RemObjects_Core_D1.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">0</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">0.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_IDE_D14.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+					<isVersionControl>
+						<isVersionControl Name="isVersionControlID"/>
+					</isVersionControl>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/RemObjects_IDE_d14.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/Resources.BDS.RES b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/Resources.BDS.RES
new file mode 100644
index 0000000..048522e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/Resources.BDS.RES differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.dfm
new file mode 100644
index 0000000..0b107ca
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.dfm	
@@ -0,0 +1,184 @@
+object CustomIDEMessagesForm: TCustomIDEMessagesForm
+  Left = 570
+  Top = 352
+  Width = 472
+  Height = 169
+  ActiveControl = ListView
+  Caption = 'RemObjects Preprocessor'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = True
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ListView: TListView
+    Left = 0
+    Top = 0
+    Width = 464
+    Height = 142
+    Align = alClient
+    Columns = <
+      item
+        AutoSize = True
+        Caption = 'Message'
+      end>
+    ColumnClick = False
+    ReadOnly = True
+    PopupMenu = PopupMenu1
+    SmallImages = ImageList
+    TabOrder = 0
+    ViewStyle = vsReport
+  end
+  object ImageList: TImageList
+    Left = 40
+    Top = 64
+    Bitmap = {
+      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000001000000001002000000000000010
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000DFBCAD00CCB6AD00C4ABA200D5B2A400000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000E1BCAC00D9CDCA00C7CACE00B2B0B400B3A39D00E1BCAC000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003E3E3E003E3E3E003E3E3E003E3E3E003E3E3E003E3E3E003E3E
+      3E00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000E1C0AF00E8DCD900E3E5E800D0A79600C49B8A00B4AFB100B4A49F00D4B2
+      A300000000000000000000000000000000000000000000000000000000003E3E
+      3E003A3A3B003737380036363600363736003738370037383700373838003839
+      39003B3B3B003E3E3E0000000000000000000000000000000000000000000000
+      00000000000000000000000000000975A700075C84000C6F9D00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000E1BC
+      AC00EFE6E200F5FEFF00D3957800BA3C0800BC3D0A00C27F6300B6B3B600B2A1
+      9E00E1BCAC000000000000000000000000000000000000000000000000003838
+      380046463F00535348005A594D005B5A4E005F5B4F0059564A0057544900514F
+      440046453D003A3B380000000000000000000000000000000000000000000000
+      000000000000000000000670A4003F9AB8006E533B001521260018769F000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E1BCAC00F3E8
+      E200FEFFFF00D99E8400C55C2E00E5B39A00E5B29900C85D2E00C1795A00B5B2
+      B600B2A29E00D3B1A2000000000000000000000000000000000000000000726F
+      6B00828086006C6B97006461A00056529D004C4699004F499600585295005D58
+      8B00706A7B006762610000000000000000000000000000000000000000000000
+      0000000000000670A40031CDFF0050A8BF00FFDAA0007C5F45001B3B4C000000
+      0000005286000052860000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000E1BCAC00F5E9E500FFFF
+      FF00DFA58B00BA421000BF502000F8EBE400F7E8E000BF502000BE461300C27C
+      5E00B6B2B500B2A19E00E1BCAC00000000000000000000000000000000008D8A
+      A6003838AF001615A6000807A6000000A5000000A5000000A6000504A700100F
+      A8002926A7007B72950000000000000000000000000000000000000000000670
+      A4002FBFF00028ACDF0059D2FE0078C9E700E3BB8F00D7A87900283239001D7B
+      AB0000528600005286000A587E00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000E1BCAB00F5E8E300FFFFFF00E8B9
+      9F00C4552000C14F1F00C0501F00F5E1D800F4DED400BF4C1D00BE4A1B00BF46
+      1300C1795A00B4ADB000AE9F9C00D4B2A2000000000000000000000000000000
+      00000018E100001FE7000020E900001EE400001ADC000012CE00000ABD000002
+      AC000001AB0000000000000000000000000000000000000000000670A40043D0
+      FE006CDEFF005CB4DB00AEDDF300F1FFFF00DEDBD5009B8873002C5F76005FBD
+      E60065BFE000837561001716150004557F000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000E7C9BC00FFFFFF00F6E2D200D378
+      3E00CE6F3800CA653000C65C2A00F6E4DA00F4DFD500BF4D1E00BE4B1C00BF4E
+      1E00BF441200C4978400B3B2B500C2AAA2000000000000000000000000000000
+      0000002AF6000130FF000030FF00002EFF000029F8000021E8000016D5000009
+      BC000004AE000000000000000000000000000C7BAE002998C80077DDFF00A3E5
+      FF00CFF1FF00DBF0F9005AA9C800B1D8E9008BCAE500379AC6001AABDA004AD0
+      FF002EB8E700D0BE9D007C563900023B57000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000E7C9BC00FFFFFF00F8E6D700DD8F
+      5000D8834800D3784000CE6F3800F8EAE100F5E3D900C0512000BE4B1B00BE4B
+      1C00BD471500D0AC9E00C8CACE00CFB6AD000000000000000000000000000000
+      00000C3DFE00174CFF001246FF000A40FF000236FF00002CFB000021E9000013
+      CC000009B900000000000000000000000000086C9F000670A400CDEBF900FAFF
+      FF00F2FCFF00DBF5FF0060BDE0000697C600008EBC000089B8000BA9D50034C7
+      FA0033CFFF007EB8BF008B6B4C00014262000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000E1BCAB00F5E8E200FFFFFF00F3D7
+      BA00DF955500D9894A00DD946100F5DECD00EDC9B300C8602D00C1511F00BC46
+      1400D69F8700E3E8EB00DACBC600DFBAA9000000000000000000000000000000
+      00002354FF003666FF003363FF002759FF001248FF000237FF000029F900001A
+      DC00000DC3000000000000000000000000000670A400BCDBEA000670A400A1D2
+      E60093D9F70072DBFF0053D6FF0033C0F100189CCE00058CBC0000A0CB001FB5
+      E40037CBFC0023B1E5001A668700025F8F000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000E1BCAC00F3E5DF00FFFF
+      FF00F6DEC300E4A16000DF965800E1A07000DB926300CE6F3700CA622B00E0AF
+      9700F4FEFF00E7DAD500E1BCAC00000000000000000000000000000000000000
+      0000517AFF007097FD005985FD003F6EFF002156FF00073FFF00002DFE00001E
+      E6000010C900000000000000000000000000000000000670A4000670A4000670
+      A40026A1D20026ADE00031C2F50037C9FB0034C4F7002AB5E700128DBE000172
+      A1000F7BAF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E0BAA900F2E5
+      DE00FFFFFF00F8E0C600E7A86500FBEFE300F9E7DB00D57E4000E8B79A00FEFF
+      FF00EEE4E000E0BCAC0000000000000000000000000000000000000000000000
+      00005F85FE00A2C0FD007AA1FD005681FE00265AFF000A42FF00002FFE000020
+      EA000011CA000000000000000000000000000000000000000000000000000000
+      0000000000000E85B8000C7EB2001393C5000B8DC000006C9F00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000E1BC
+      AC00F2E3DB00FFFFFF00F8E4CA00F4D2A500EFC19200F0CBA900FFFFFF00F4E9
+      E300E1BCAC000000000000000000000000000000000000000000000000000000
+      0000000000007698FD0092B1FE00638CFF001D55FF00063EFF00002EFC00001D
+      E300000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000E0B9A700F2E2DB00FFFFFF00FBEFDD00F8E7D300FFFFFF00F7EBE600E1BF
+      AE00000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000587DFE00254FFE000A38FC00002BF4000025F0000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000E1BCAC00F2E2DA00FFFFFF00FFFFFF00F6ECE700E1BCAC000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000E1BCAB00E7C9BC00E7C9BC00E1BCAB00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000100000000100010000000000800000000000000000000000
+      000000000000000000000000FFFFFF00FC3FFFFFFFFF0000F81FF80FFFFF0000
+      F00FE003FE3F0000E007E003FC1F0000C003E003F81300008001E003E0010000
+      0000F007C00000000000F007000000000000F007000000000000F00700000000
+      8001F00780070000C003F007F83F0000E007F80FFFFF0000F00FFC1FFFFF0000
+      F81FFFFFFFFF0000FC3FFFFFFFFF000000000000000000000000000000000000
+      000000000000}
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 88
+    Top = 16
+    object CopytoClipboard1: TMenuItem
+      Caption = 'Copy to Clipboard'
+      OnClick = CopytoClipboard1Click
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.lfm
new file mode 100644
index 0000000..743e231
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.lfm	
@@ -0,0 +1,147 @@
+object CustomIDEMessagesForm: TCustomIDEMessagesForm
+  Left = 570
+  Height = 142
+  Top = 352
+  Width = 276
+  HorzScrollBar.Page = 275
+  VertScrollBar.Page = 141
+  ActiveControl = ListView
+  Caption = 'RemObjects Preprocessor'
+  ClientHeight = 142
+  ClientWidth = 276
+  Font.Height = 11
+  Font.Name = 'MS Sans Serif'
+  Font.Pitch = fpVariable
+  OnClose = FormClose
+  OnShow = FormShow
+  LCLVersion = '0.9.25'
+  object ListView: TListView
+    Height = 142
+    Width = 276
+    Align = alClient
+    Columns = <    
+      item
+        AutoSize = True
+        Caption = 'Message'
+        Width = 270
+      end>
+    ColumnClick = False
+    PopupMenu = PopupMenu1
+    ReadOnly = True
+    SmallImages = ImageList
+    TabOrder = 0
+    ViewStyle = vsReport
+  end
+  object ImageList: TImageList
+    BkColor = clForeground
+    left = 48
+    top = 32
+    Bitmap = {
+      4C69030000001000000010000000000000000000000000000000000000000000
+      000000000000E1BCABFFE7C9BCFFE7C9BCFFE1BCABFF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000E1BCACFFF2E2DAFFFFFFFFFFFFFFFFFFF6ECE7FFE1BCACFF000000000000
+      000000000000000000000000000000000000000000000000000000000000E0B9
+      A7FFF2E2DBFFFFFFFFFFFBEFDDFFF8E7D3FFFFFFFFFFF7EBE6FFE1BFAEFF0000
+      0000000000000000000000000000000000000000000000000000E1BCACFFF2E3
+      DBFFFFFFFFFFF8E4CAFFF4D2A5FFEFC192FFF0CBA9FFFFFFFFFFF4E9E3FFE1BC
+      ACFF0000000000000000000000000000000000000000E0BAA9FFF2E5DEFFFFFF
+      FFFFF8E0C6FFE7A865FFFBEFE3FFF9E7DBFFD57E40FFE8B79AFFFEFFFFFFEEE4
+      E0FFE0BCACFF000000000000000000000000E1BCACFFF3E5DFFFFFFFFFFFF6DE
+      C3FFE4A160FFDF9658FFE1A070FFDB9263FFCE6F37FFCA622BFFE0AF97FFF4FE
+      FFFFE7DAD5FFE1BCACFF00000000E1BCABFFF5E8E2FFFFFFFFFFF3D7BAFFDF95
+      55FFD9894AFFDD9461FFF5DECDFFEDC9B3FFC8602DFFC1511FFFBC4614FFD69F
+      87FFE3E8EBFFDACBC6FFDFBAA9FFE7C9BCFFFFFFFFFFF8E6D7FFDD8F50FFD883
+      48FFD37840FFCE6F38FFF8EAE1FFF5E3D9FFC05120FFBE4B1BFFBE4B1CFFBD47
+      15FFD0AC9EFFC8CACEFFCFB6ADFFE7C9BCFFFFFFFFFFF6E2D2FFD3783EFFCE6F
+      38FFCA6530FFC65C2AFFF6E4DAFFF4DFD5FFBF4D1EFFBE4B1CFFBF4E1EFFBF44
+      12FFC49784FFB3B2B5FFC2AAA2FFE1BCABFFF5E8E3FFFFFFFFFFE8B99FFFC455
+      20FFC14F1FFFC0501FFFF5E1D8FFF4DED4FFBF4C1DFFBE4A1BFFBF4613FFC179
+      5AFFB4ADB0FFAE9F9CFFD4B2A2FF00000000E1BCACFFF5E9E5FFFFFFFFFFDFA5
+      8BFFBA4210FFBF5020FFF8EBE4FFF7E8E0FFBF5020FFBE4613FFC27C5EFFB6B2
+      B5FFB2A19EFFE1BCACFF000000000000000000000000E1BCACFFF3E8E2FFFEFF
+      FFFFD99E84FFC55C2EFFE5B39AFFE5B299FFC85D2EFFC1795AFFB5B2B6FFB2A2
+      9EFFD3B1A2FF0000000000000000000000000000000000000000E1BCACFFEFE6
+      E2FFF5FEFFFFD39578FFBA3C08FFBC3D0AFFC27F63FFB6B3B6FFB2A19EFFE1BC
+      ACFF00000000000000000000000000000000000000000000000000000000E1C0
+      AFFFE8DCD9FFE3E5E8FFD0A796FFC49B8AFFB4AFB1FFB4A49FFFD4B2A3FF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000E1BCACFFD9CDCAFFC7CACEFFB2B0B4FFB3A39DFFE1BCACFF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000DFBCADFFCCB6ADFFC4ABA2FFD5B2A4FF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000587DFEFF254FFEFF0A38FCFF002BF4FF0025F0FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00007698FDFF92B1FEFF638CFFFF1D55FFFF063EFFFF002EFCFF001DE3FF0000
+      0000000000000000000000000000000000000000000000000000000000005F85
+      FEFFA2C0FDFF7AA1FDFF5681FEFF265AFFFF0A42FFFF002FFEFF0020EAFF0011
+      CAFF00000000000000000000000000000000000000000000000000000000517A
+      FFFF7097FDFF5985FDFF3F6EFFFF2156FFFF073FFFFF002DFEFF001EE6FF0010
+      C9FF000000000000000000000000000000000000000000000000000000002354
+      FFFF3666FFFF3363FFFF2759FFFF1248FFFF0237FFFF0029F9FF001ADCFF000D
+      C3FF000000000000000000000000000000000000000000000000000000000C3D
+      FEFF174CFFFF1246FFFF0A40FFFF0236FFFF002CFBFF0021E9FF0013CCFF0009
+      B9FF00000000000000000000000000000000000000000000000000000000002A
+      F6FF0130FFFF0030FFFF002EFFFF0029F8FF0021E8FF0016D5FF0009BCFF0004
+      AEFF000000000000000000000000000000000000000000000000000000000018
+      E1FF001FE7FF0020E9FF001EE4FF001ADCFF0012CEFF000ABDFF0002ACFF0001
+      ABFF0000000000000000000000000000000000000000000000008D8AA6FF3838
+      AFFF1615A6FF0807A6FF0000A5FF0000A5FF0000A6FF0504A7FF100FA8FF2926
+      A7FF7B7295FF0000000000000000000000000000000000000000726F6BFF8280
+      86FF6C6B97FF6461A0FF56529DFF4C4699FF4F4996FF585295FF5D588BFF706A
+      7BFF676261FF0000000000000000000000000000000000000000383838FF4646
+      3FFF535348FF5A594DFF5B5A4EFF5F5B4FFF59564AFF575449FF514F44FF4645
+      3DFF3A3B38FF00000000000000000000000000000000000000003E3E3EFF3A3A
+      3BFF373738FF363636FF363736FF373837FF373837FF373838FF383939FF3B3B
+      3BFF3E3E3EFF0000000000000000000000000000000000000000000000000000
+      00003E3E3EFF3E3E3EFF3E3E3EFF3E3E3EFF3E3E3EFF3E3E3EFF3E3E3EFF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000E85B8FF0C7EB2FF1393C5FF0B8DC0FF006C9FFF00000000000000000000
+      0000000000000000000000000000000000000670A4FF0670A4FF0670A4FF26A1
+      D2FF26ADE0FF31C2F5FF37C9FBFF34C4F7FF2AB5E7FF128DBEFF0172A1FF0F7B
+      AFFF0000000000000000000000000670A4FFBCDBEAFF0670A4FFA1D2E6FF93D9
+      F7FF72DBFFFF53D6FFFF33C0F1FF189CCEFF058CBCFF00A0CBFF1FB5E4FF37CB
+      FCFF23B1E5FF1A6687FF025F8FFF086C9FFF0670A4FFCDEBF9FFFAFFFFFFF2FC
+      FFFFDBF5FFFF60BDE0FF0697C6FF008EBCFF0089B8FF0BA9D5FF34C7FAFF33CF
+      FFFF7EB8BFFF8B6B4CFF014262FF0C7BAEFF2998C8FF77DDFFFFA3E5FFFFCFF1
+      FFFFDBF0F9FF5AA9C8FFB1D8E9FF8BCAE5FF379AC6FF1AABDAFF4AD0FFFF2EB8
+      E7FFD0BE9DFF7C5639FF023B57FF00000000000000000670A4FF43D0FEFF6CDE
+      FFFF5CB4DBFFAEDDF3FFF1FFFFFFDEDBD5FF9B8873FF2C5F76FF5FBDE6FF65BF
+      E0FF837561FF171615FF04557FFF0000000000000000000000000670A4FF2FBF
+      F0FF28ACDFFF59D2FEFF78C9E7FFE3BB8FFFD7A879FF283239FF1D7BABFF0052
+      86FF005286FF0A587EFF00000000000000000000000000000000000000000000
+      00000670A4FF31CDFFFF50A8BFFFFFDAA0FF7C5F45FF1B3B4CFF000000000052
+      86FF005286FF0000000000000000000000000000000000000000000000000000
+      0000000000000670A4FF3F9AB8FF6E533BFF152126FF18769FFF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000975A7FF075C84FF0C6F9DFF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000
+    }
+  end
+  object PopupMenu1: TPopupMenu
+    left = 72
+    top = 32
+    object CopytoClipboard1: TMenuItem
+      Caption = 'Copy to Clipboard'
+      OnClick = CopytoClipboard1Click
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.lrs
new file mode 100644
index 0000000..e492f7f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.lrs	
@@ -0,0 +1,137 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TCustomIDEMessagesForm','FORMDATA',[
+  'TPF0'#22'TCustomIDEMessagesForm'#21'CustomIDEMessagesForm'#4'Left'#3':'#2#6
+  +'Height'#3#142#0#3'Top'#3'`'#1#5'Width'#3#20#1#18'HorzScrollBar.Page'#3#19#1
+  +#18'VertScrollBar.Page'#3#141#0#13'ActiveControl'#7#8'ListView'#7'Caption'#6
+  +#23'RemObjects Preprocessor'#12'ClientHeight'#3#142#0#11'ClientWidth'#3#20#1
+  +#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7#10'f'
+  +'pVariable'#7'OnClose'#7#9'FormClose'#6'OnShow'#7#8'FormShow'#10'LCLVersion'
+  +#6#6'0.9.25'#0#9'TListView'#8'ListView'#6'Height'#3#142#0#5'Width'#3#20#1#5
+  +'Align'#7#8'alClient'#7'Columns'#14#1#8'AutoSize'#9#7'Caption'#6#7'Message'#5
+  +'Width'#3#14#1#0#0#11'ColumnClick'#8#9'PopupMenu'#7#10'PopupMenu1'#8'ReadOnl'
+  +'y'#9#11'SmallImages'#7#9'ImageList'#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsRepo'
+  +'rt'#0#0#10'TImageList'#9'ImageList'#7'BkColor'#7#12'clForeground'#4'left'#2
+  +'0'#3'top'#2' '#6'Bitmap'#10#14#12#0#0'Li'#3#0#0#0#16#0#0#0#16#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#225#188#171#255#231#201#188#255#231
+  +#201#188#255#225#188#171#255#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#225#188#172#255#242#226#218#255#255
+  +#255#255#255#255#255#255#255#246#236#231#255#225#188#172#255#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#224#185#167#255#242
+  +#226#219#255#255#255#255#255#251#239#221#255#248#231#211#255#255#255#255#255
+  +#247#235#230#255#225#191#174#255#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#225#188#172#255#242#227#219#255#255#255#255#255#248#228#202#255
+  +#244#210#165#255#239#193#146#255#240#203#169#255#255#255#255#255#244#233#227
+  +#255#225#188#172#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#224#186#169#255
+  +#242#229#222#255#255#255#255#255#248#224#198#255#231#168'e'#255#251#239#227
+  +#255#249#231#219#255#213'~@'#255#232#183#154#255#254#255#255#255#238#228#224
+  +#255#224#188#172#255#0#0#0#0#0#0#0#0#0#0#0#0#225#188#172#255#243#229#223#255
+  +#255#255#255#255#246#222#195#255#228#161'`'#255#223#150'X'#255#225#160'p'#255
+  +#219#146'c'#255#206'o7'#255#202'b+'#255#224#175#151#255#244#254#255#255#231
+  +#218#213#255#225#188#172#255#0#0#0#0#225#188#171#255#245#232#226#255#255#255
+  +#255#255#243#215#186#255#223#149'U'#255#217#137'J'#255#221#148'a'#255#245#222
+  +#205#255#237#201#179#255#200'`-'#255#193'Q'#31#255#188'F'#20#255#214#159#135
+  +#255#227#232#235#255#218#203#198#255#223#186#169#255#231#201#188#255#255#255
+  +#255#255#248#230#215#255#221#143'P'#255#216#131'H'#255#211'x@'#255#206'o8'
+  +#255#248#234#225#255#245#227#217#255#192'Q '#255#190'K'#27#255#190'K'#28#255
+  +#189'G'#21#255#208#172#158#255#200#202#206#255#207#182#173#255#231#201#188
+  +#255#255#255#255#255#246#226#210#255#211'x>'#255#206'o8'#255#202'e0'#255#198
+  +'\*'#255#246#228#218#255#244#223#213#255#191'M'#30#255#190'K'#28#255#191'N'
+  +#30#255#191'D'#18#255#196#151#132#255#179#178#181#255#194#170#162#255#225#188
+  +#171#255#245#232#227#255#255#255#255#255#232#185#159#255#196'U '#255#193'O'
+  +#31#255#192'P'#31#255#245#225#216#255#244#222#212#255#191'L'#29#255#190'J'#27
+  +#255#191'F'#19#255#193'yZ'#255#180#173#176#255#174#159#156#255#212#178#162
+  +#255#0#0#0#0#225#188#172#255#245#233#229#255#255#255#255#255#223#165#139#255
+  +#186'B'#16#255#191'P '#255#248#235#228#255#247#232#224#255#191'P '#255#190'F'
+  +#19#255#194'|^'#255#182#178#181#255#178#161#158#255#225#188#172#255#0#0#0#0#0
+  +#0#0#0#0#0#0#0#225#188#172#255#243#232#226#255#254#255#255#255#217#158#132
+  +#255#197'\.'#255#229#179#154#255#229#178#153#255#200'].'#255#193'yZ'#255#181
+  +#178#182#255#178#162#158#255#211#177#162#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#225#188#172#255#239#230#226#255#245#254#255#255#211#149'x'#255#186
+  +'<'#8#255#188'='#10#255#194'c'#255#182#179#182#255#178#161#158#255#225#188
+  +#172#255#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#225#192#175
+  +#255#232#220#217#255#227#229#232#255#208#167#150#255#196#155#138#255#180#175
+  +#177#255#180#164#159#255#212#178#163#255#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#225#188#172#255#217#205#202#255#199#202
+  +#206#255#178#176#180#255#179#163#157#255#225#188#172#255#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#223#188
+  +#173#255#204#182#173#255#196#171#162#255#213#178#164#255#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#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#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'X}'#254#255'%O'#254#255#10'8'#252#255#0'+'#244
+  +#255#0'%'#240#255#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'v'#152#253#255#146#177#254#255'c'#140#255#255#29'U'#255
+  +#255#6'>'#255#255#0'.'#252#255#0#29#227#255#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'_'#133#254#255#162#192#253#255'z'#161#253#255
+  ,'V'#129#254#255'&Z'#255#255#10'B'#255#255#0'/'#254#255#0' '#234#255#0#17#202
+  +#255#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'Qz'#255#255'p'
+  +#151#253#255'Y'#133#253#255'?n'#255#255'!V'#255#255#7'?'#255#255#0'-'#254#255
+  +#0#30#230#255#0#16#201#255#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'#T'#255#255'6f'#255#255'3c'#255#255'''Y'#255#255#18'H'#255#255#2'7'
+  +#255#255#0')'#249#255#0#26#220#255#0#13#195#255#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#12'='#254#255#23'L'#255#255#18'F'#255#255#10'@'
+  +#255#255#2'6'#255#255#0','#251#255#0'!'#233#255#0#19#204#255#0#9#185#255#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'*'#246#255#1'0'#255
+  +#255#0'0'#255#255#0'.'#255#255#0')'#248#255#0'!'#232#255#0#22#213#255#0#9#188
+  +#255#0#4#174#255#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#24
+  +#225#255#0#31#231#255#0' '#233#255#0#30#228#255#0#26#220#255#0#18#206#255#0
+  +#10#189#255#0#2#172#255#0#1#171#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#141#138#166#255'88'#175#255#22#21#166#255#8#7#166#255#0#0#165#255#0#0
+  +#165#255#0#0#166#255#5#4#167#255#16#15#168#255')&'#167#255'{r'#149#255#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'rok'#255#130#128#134#255'lk'#151#255'da'
+  +#160#255'VR'#157#255'LF'#153#255'OI'#150#255'XR'#149#255']X'#139#255'pj{'#255
+  +'gba'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'888'#255'FF?'#255'SSH'#255
+  +'ZYM'#255'[ZN'#255'_[O'#255'YVJ'#255'WTI'#255'QOD'#255'FE='#255':;8'#255#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'>>>'#255'::;'#255'778'#255'666'#255'676'
+  +#255'787'#255'787'#255'788'#255'899'#255';;;'#255'>>>'#255#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'>>>'#255'>>>'#255'>>>'#255'>>>'#255'>'
+  +'>>'#255'>>>'#255'>>>'#255#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#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#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#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#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#14#133#184#255#12'~'
+  +#178#255#19#147#197#255#11#141#192#255#0'l'#159#255#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#6'p'#164#255#6'p'#164#255#6'p'#164#255'&'#161
+  +#210#255'&'#173#224#255'1'#194#245#255'7'#201#251#255'4'#196#247#255'*'#181
+  +#231#255#18#141#190#255#1'r'#161#255#15'{'#175#255#0#0#0#0#0#0#0#0#0#0#0#0#6
+  +'p'#164#255#188#219#234#255#6'p'#164#255#161#210#230#255#147#217#247#255'r'
+  +#219#255#255'S'#214#255#255'3'#192#241#255#24#156#206#255#5#140#188#255#0#160
+  +#203#255#31#181#228#255'7'#203#252#255'#'#177#229#255#26'f'#135#255#2'_'#143
+  +#255#8'l'#159#255#6'p'#164#255#205#235#249#255#250#255#255#255#242#252#255
+  +#255#219#245#255#255'`'#189#224#255#6#151#198#255#0#142#188#255#0#137#184#255
+  +#11#169#213#255'4'#199#250#255'3'#207#255#255'~'#184#191#255#139'kL'#255#1'B'
+  +'b'#255#12'{'#174#255')'#152#200#255'w'#221#255#255#163#229#255#255#207#241
+  +#255#255#219#240#249#255'Z'#169#200#255#177#216#233#255#139#202#229#255'7'
+  +#154#198#255#26#171#218#255'J'#208#255#255'.'#184#231#255#208#190#157#255'|V'
+  +'9'#255#2';W'#255#0#0#0#0#0#0#0#0#6'p'#164#255'C'#208#254#255'l'#222#255#255
+  +'\'#180#219#255#174#221#243#255#241#255#255#255#222#219#213#255#155#136's'
+  +#255',_v'#255'_'#189#230#255'e'#191#224#255#131'ua'#255#23#22#21#255#4'U'
+  +#255#0#0#0#0#0#0#0#0#0#0#0#0#6'p'#164#255'/'#191#240#255'('#172#223#255'Y'
+  +#210#254#255'x'#201#231#255#227#187#143#255#215#168'y'#255'(29'#255#29'{'#171
+  +#255#0'R'#134#255#0'R'#134#255#10'X~'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#6'p'#164#255'1'#205#255#255'P'#168#191#255#255#218#160#255'|_E'
+  +#255#27';L'#255#0#0#0#0#0'R'#134#255#0'R'#134#255#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#6'p'#164#255'?'#154#184#255'nS;'#255#21
+  +'!&'#255#24'v'#159#255#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#9'u'#167#255#7'\'#132#255#12'o'
+  +#157#255#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#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#0#0#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#2'H'#3'top'#2' '#0#9'TMen'
+  +'uItem'#16'CopytoClipboard1'#7'Caption'#6#17'Copy to Clipboard'#7'OnClick'#7
+  +#21'CopytoClipboard1Click'#0#0#0#0
+]);
+
+LazarusResources.Add('TListView','FORMDATA',[
+  'TPF0'#9'TListView'#8'ListView'#4'Left'#3' '#1#6'Height'#3#142#0#3'Top'#3#219
+  +#0#5'Width'#3#30#1#18'HorzScrollBar.Page'#3#29#1#18'VertScrollBar.Page'#3#141
+  +#0#5'Align'#7#8'alClient'#7'Caption'#6#8'ListView'#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.pas
new file mode 100644
index 0000000..ea64264
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fCustomIDEMessagesForm.pas	
@@ -0,0 +1,138 @@
+unit fCustomIDEMessagesForm;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,uROIDETools_laz, {$ELSE}uROIDETools, {$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  ComCtrls, ImgList, Menus;
+
+
+type
+  TCustomIDEMessagesForm = class(TForm)
+    ListView: TListView;
+    ImageList: TImageList;
+    PopupMenu1: TPopupMenu;
+    CopytoClipboard1: TMenuItem;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormShow(Sender: TObject);
+    procedure CopytoClipboard1Click(Sender: TObject);
+  private
+
+  public
+    destructor Destroy; override;
+
+    procedure FillList(aMessageList : TIDEMessageList);
+  end;
+
+var DisplayIDEMessageForm : boolean = TRUE;
+
+function IDEMessageForm : TCustomIDEMessagesForm;
+
+implementation
+
+uses ClipBrd;
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF FPC}
+
+var
+  _CustomIDEMessagesForm: TCustomIDEMessagesForm;
+
+function IDEMessageForm : TCustomIDEMessagesForm;
+begin
+  if (_CustomIDEMessagesForm=NIL) then
+    _CustomIDEMessagesForm := TCustomIDEMessagesForm.Create(Application);
+
+  if DisplayIDEMessageForm then _CustomIDEMessagesForm.Show;
+  
+  result := _CustomIDEMessagesForm;
+end;
+
+destructor TCustomIDEMessagesForm.Destroy;
+begin
+  _CustomIDEMessagesForm := NIL;
+  inherited;
+end;
+
+procedure TCustomIDEMessagesForm.FillList(aMessageList: TIDEMessageList);
+var i    : integer;
+    item : TListItem;
+    s : string;
+begin
+  Caption := 'RemObjects Preprocessor';
+  ListView.Items.Clear;
+  if (aMessageLIst=NIL) then Exit;
+
+  with aMessageList do begin
+    for i := 0 to (Count-1) do begin
+      item := ListView.Items.Add;
+      with Items[i] do begin
+        if (PrefixStr<>'') then s := PrefixStr+': ' else s := '';
+        if (FileName<>'') then s := s+'('+Filename+')';
+        s := s+MessageStr;
+
+        item.Caption := s;
+        item.ImageIndex := Ord(MessageType);
+        {$IFNDEF FPC}
+        item.StateIndex := Ord(MessageType);
+        {$ENDIF FPC}
+      end;
+    end;
+
+    if (Count>0) then ListView.Items[Count-1].Selected := TRUE;
+    Caption := Caption+' ('+ IntToStr(Count)+' messages)';
+  end;
+end;
+
+procedure TCustomIDEMessagesForm.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+procedure TCustomIDEMessagesForm.FormShow(Sender: TObject);
+begin
+  Height := 150;
+  Width := 400;
+  Left := Screen.Width-Width;
+  Top := Screen.Height-Height;
+end;
+
+procedure TCustomIDEMessagesForm.CopytoClipboard1Click(Sender: TObject);
+var i : integer;
+    s : string;
+begin
+  s := '';
+  for i := 0 to (ListView.Items.Count-1) do
+    s := s+ListView.Items[i].Caption+#13#10;
+
+  Clipboard.AsText := s;
+end;
+
+initialization
+{$IFDEF FPC}
+  {$I fCustomIDEMessagesForm.lrs}
+{$ENDIF FPC}
+  _CustomIDEMessagesForm := NIL;
+finalization
+  _CustomIDEMessagesForm.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.dfm
new file mode 100644
index 0000000..c18c16b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.dfm	
@@ -0,0 +1,238 @@
+object DispatchersEditorForm: TDispatchersEditorForm
+  Left = 433
+  Top = 253
+  BorderStyle = bsToolWindow
+  Caption = 'Dispatchers Editor'
+  ClientHeight = 276
+  ClientWidth = 342
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 4
+    Top = 207
+    Width = 46
+    Height = 13
+    Caption = 'Message:'
+  end
+  object Label3: TLabel
+    Left = 8
+    Top = 231
+    Width = 42
+    Height = 13
+    Caption = 'Enabled:'
+  end
+  object lblPathInfo: TLabel
+    Left = 4
+    Top = 255
+    Width = 49
+    Height = 13
+    Caption = 'Path Info:'
+  end
+  object ListView: TListView
+    Left = 4
+    Top = 5
+    Width = 332
+    Height = 156
+    Anchors = [akLeft, akTop, akRight]
+    Columns = <
+      item
+        Caption = 'Enabled'
+        Width = 70
+      end
+      item
+        Caption = 'Message'
+        Width = 150
+      end
+      item
+        AutoSize = True
+        Caption = 'Path Info'
+      end>
+    ColumnClick = False
+    HideSelection = False
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 0
+    ViewStyle = vsReport
+    OnSelectItem = ListViewSelectItem
+  end
+  object bAdd: TBitBtn
+    Left = 181
+    Top = 170
+    Width = 75
+    Height = 25
+    Action = ac_Add
+    Anchors = [akTop, akRight]
+    Caption = '&Add'
+    TabOrder = 1
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF68
+      6868686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDF808080686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79105950E035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDF848484686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDF838383686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79106950F035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDF858585686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
+      05035D05FF00FFFF00FFFF00FFFF00FF686868686868686868686868686868DF
+      DFDF8C8C8C686868686868686868686868686868FF00FFFF00FFFF00FF035D05
+      5BF7913BDA6930CF572AC64D21B83C17A62B119F210D9E1C0A9A1506920E0593
+      0D058B0D035D05FF00FFFF00FF686868DFDFDFC4C4C4B9B9B9B2B2B2A7A7A799
+      99999292928F8F8F8A8A8A8383838383837F7F7F686868FF00FFFF00FF035D05
+      5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
+      915BF791035D05FF00FFFF00FF686868DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF
+      DFDF9B9B9BDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF686868FF00FFFF00FFFF00FF
+      035D05035D05035D05035D05035D055BF79125BC42035D05035D05035D05035D
+      05035D05FF00FFFF00FFFF00FFFF00FF686868686868686868686868686868DF
+      DFDFABABAB686868686868686868686868686868FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDFB9B9B9686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF7913BD968035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDFC3C3C3686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDFD1D1D1686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF7915BF791035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDFDFDFDF686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF68
+      6868686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object bDelete: TBitBtn
+    Left = 260
+    Top = 170
+    Width = 75
+    Height = 25
+    Action = ac_Remove
+    Caption = '&Remove'
+    TabOrder = 2
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF0104A20104A20104A20104A20104A20104A20104A20104A20104A20104
+      A2FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF79797979797979797979797979
+      7979797979797979797979797979797979FF00FFFF00FFFF00FFFF00FFFF00FF
+      0104A25983FF0026FF0030FF0030FB002FF2002FE9002EE10030D80031D00034
+      CB0104A2FF00FFFF00FFFF00FFFF00FF797979D4D4D4A7A7A7A7A7A7A5A5A5A1
+      A1A19C9C9C9898989494949090908D8D8D797979FF00FFFF00FFFF00FFFF00FF
+      0104A2ABC2FF6480FF6688FF6688FF6687FA6787F56787F05779E94D70E44D74
+      E20104A2FF00FFFF00FFFF00FFFF00FF797979FDFDFDD9D9D9DADADADADADAD8
+      D8D8D6D6D6D3D3D3C8C8C8C0C0C0BFBFBF797979FF00FFFF00FFFF00FFFF00FF
+      FF00FF0104A20104A20104A20104A20104A20104A20104A20104A20104A20104
+      A2FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF79797979797979797979797979
+      7979797979797979797979797979797979FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object cbMessage: TComboBox
+    Left = 57
+    Top = 203
+    Width = 280
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 3
+    OnChange = cbMessageChange
+  end
+  object ePathInfo: TEdit
+    Left = 57
+    Top = 251
+    Width = 280
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 4
+    Text = 'ePathInfo'
+    OnChange = ePathInfoChange
+  end
+  object cbEnabled: TComboBox
+    Left = 57
+    Top = 227
+    Width = 280
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 5
+    OnChange = cbEnabledChange
+    Items.Strings = (
+      'False'
+      'True')
+  end
+  object ActionList1: TActionList
+    OnUpdate = ActionList1Update
+    Left = 48
+    Top = 168
+    object ac_Add: TAction
+      Caption = '&Add'
+      OnExecute = bAddClick
+    end
+    object ac_Remove: TAction
+      Caption = '&Remove'
+      OnExecute = bDeleteClick
+    end
+    object ac_Close: TAction
+      Caption = 'ac_Close'
+      ShortCut = 27
+      OnExecute = ac_CloseExecute
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.lfm
new file mode 100644
index 0000000..cbacfab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.lfm	
@@ -0,0 +1,253 @@
+object DispatchersEditorForm: TDispatchersEditorForm
+  Left = 378
+  Height = 253
+  Top = 245
+  Width = 288
+  HorzScrollBar.Page = 287
+  VertScrollBar.Page = 252
+  ActiveControl = ListView
+  BorderStyle = bsToolWindow
+  Caption = 'Dispatchers Editor'
+  ClientHeight = 253
+  ClientWidth = 288
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Position = poScreenCenter
+  object Label1: TLabel
+    Left = 4
+    Height = 16
+    Top = 183
+    Width = 50
+    Anchors = [akLeft, akBottom]
+    Caption = 'Message:'
+    ParentColor = False
+  end
+  object Label3: TLabel
+    Left = 4
+    Height = 16
+    Top = 207
+    Width = 46
+    Anchors = [akLeft, akBottom]
+    Caption = 'Enabled:'
+    ParentColor = False
+  end
+  object lblPathInfo: TLabel
+    Left = 4
+    Height = 16
+    Top = 231
+    Width = 52
+    Anchors = [akLeft, akBottom]
+    Caption = 'Path Info:'
+    ParentColor = False
+  end
+  object ListView: TListView
+    Left = 4
+    Height = 132
+    Top = 5
+    Width = 279
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Columns = <    
+      item
+        Caption = 'Enabled'
+        Width = 70
+      end    
+      item
+        Caption = 'Message'
+        Width = 150
+      end    
+      item
+        AutoSize = True
+        Caption = 'Path Info'
+      end>
+    ColumnClick = False
+    HideSelection = False
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 0
+    ViewStyle = vsReport
+    OnSelectItem = ListViewSelectItem
+  end
+  object bAdd: TBitBtn
+    Left = 120
+    Height = 25
+    Top = 146
+    Width = 75
+    Action = ac_Add
+    Anchors = [akRight, akBottom]
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF68
+      6868686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF791058C0D035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDF808080686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79105950E035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDF848484686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79105920D035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDF838383686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79106950F035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDF858585686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      035D05035D05035D05035D05035D055BF7910C9C18035D05035D05035D05035D
+      05035D05FF00FFFF00FFFF00FFFF00FF686868686868686868686868686868DF
+      DFDF8C8C8C686868686868686868686868686868FF00FFFF00FFFF00FF035D05
+      5BF7913BDA6930CF572AC64D21B83C17A62B119F210D9E1C0A9A1506920E0593
+      0D058B0D035D05FF00FFFF00FF686868DFDFDFC4C4C4B9B9B9B2B2B2A7A7A799
+      99999292928F8F8F8A8A8A8383838383837F7F7F686868FF00FFFF00FF035D05
+      5BF7915BF7915BF7915BF7915BF7915BF79118A92F5BF7915BF7915BF7915BF7
+      915BF791035D05FF00FFFF00FF686868DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF
+      DFDF9B9B9BDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF686868FF00FFFF00FFFF00FF
+      035D05035D05035D05035D05035D055BF79125BC42035D05035D05035D05035D
+      05035D05FF00FFFF00FFFF00FFFF00FF686868686868686868686868686868DF
+      DFDFABABAB686868686868686868686868686868FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79130CE57035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDFB9B9B9686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF7913BD968035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDFC3C3C3686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF79148EB7F035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDFD1D1D1686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF035D055BF7915BF791035D05FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF686868DF
+      DFDFDFDFDF686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF035D05035D05FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF68
+      6868686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+    }
+    NumGlyphs = 2
+    TabOrder = 1
+  end
+  object bDelete: TBitBtn
+    Left = 199
+    Height = 25
+    Top = 146
+    Width = 84
+    Action = ac_Remove
+    Anchors = [akRight, akBottom]
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF0104A20104A20104A20104A20104A20104A20104A20104A20104A20104
+      A2FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF79797979797979797979797979
+      7979797979797979797979797979797979FF00FFFF00FFFF00FFFF00FFFF00FF
+      0104A25983FF0026FF0030FF0030FB002FF2002FE9002EE10030D80031D00034
+      CB0104A2FF00FFFF00FFFF00FFFF00FF797979D4D4D4A7A7A7A7A7A7A5A5A5A1
+      A1A19C9C9C9898989494949090908D8D8D797979FF00FFFF00FFFF00FFFF00FF
+      0104A2ABC2FF6480FF6688FF6688FF6687FA6787F56787F05779E94D70E44D74
+      E20104A2FF00FFFF00FFFF00FFFF00FF797979FDFDFDD9D9D9DADADADADADAD8
+      D8D8D6D6D6D3D3D3C8C8C8C0C0C0BFBFBF797979FF00FFFF00FFFF00FFFF00FF
+      FF00FF0104A20104A20104A20104A20104A20104A20104A20104A20104A20104
+      A2FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF79797979797979797979797979
+      7979797979797979797979797979797979FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+    }
+    NumGlyphs = 2
+    TabOrder = 2
+  end
+  object cbMessage: TComboBox
+    Left = 60
+    Height = 21
+    Top = 179
+    Width = 223
+    Anchors = [akLeft, akRight, akBottom]
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    ItemHeight = 13
+    OnChange = cbMessageChange
+    Style = csDropDownList
+    TabOrder = 3
+  end
+  object ePathInfo: TEdit
+    Left = 60
+    Height = 21
+    Top = 227
+    Width = 223
+    Anchors = [akLeft, akRight, akBottom]
+    OnChange = ePathInfoChange
+    TabOrder = 4
+    Text = 'ePathInfo'
+  end
+  object cbEnabled: TComboBox
+    Left = 60
+    Height = 21
+    Top = 203
+    Width = 223
+    Anchors = [akLeft, akRight, akBottom]
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    ItemHeight = 13
+    Items.Strings = (
+      'False'
+      'True'
+    )
+    OnChange = cbEnabledChange
+    Style = csDropDownList
+    TabOrder = 5
+  end
+  object ActionList1: TActionList
+    OnUpdate = ActionList1Update
+    left = 24
+    top = 40
+    object ac_Add: TAction
+      Caption = '&Add'
+      DisableIfNoHandler = True
+      OnExecute = bAddClick
+    end
+    object ac_Remove: TAction
+      Caption = '&Remove'
+      DisableIfNoHandler = True
+      OnExecute = bDeleteClick
+    end
+    object ac_Close: TAction
+      Caption = 'ac_Close'
+      DisableIfNoHandler = True
+      OnExecute = ac_CloseExecute
+      ShortCut = 27
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.lrs
new file mode 100644
index 0000000..95bac1a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.lrs	
@@ -0,0 +1,178 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TDispatchersEditorForm','FORMDATA',[
+  'TPF0'#22'TDispatchersEditorForm'#21'DispatchersEditorForm'#4'Left'#3'z'#1#6
+  +'Height'#3#253#0#3'Top'#3#245#0#5'Width'#3' '#1#18'HorzScrollBar.Page'#3#31#1
+  +#18'VertScrollBar.Page'#3#252#0#13'ActiveControl'#7#8'ListView'#11'BorderSty'
+  +'le'#7#12'bsToolWindow'#7'Caption'#6#18'Dispatchers Editor'#12'ClientHeight'
+  +#3#253#0#11'ClientWidth'#3' '#1#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahom'
+  +'a'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#6'Label1'#4'Left'#2#4#6'Hei'
+  +'ght'#2#16#3'Top'#3#183#0#5'Width'#2'2'#7'Anchors'#11#6'akLeft'#8'akBottom'#0
+  +#7'Caption'#6#8'Message:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2
+  +#4#6'Height'#2#16#3'Top'#3#207#0#5'Width'#2'.'#7'Anchors'#11#6'akLeft'#8'akB'
+  +'ottom'#0#7'Caption'#6#8'Enabled:'#11'ParentColor'#8#0#0#6'TLabel'#11'lblPat'
+  +'hInfo'#4'Left'#2#4#6'Height'#2#16#3'Top'#3#231#0#5'Width'#2'4'#7'Anchors'#11
+  +#6'akLeft'#8'akBottom'#0#7'Caption'#6#10'Path Info:'#11'ParentColor'#8#0#0#9
+  +'TListView'#8'ListView'#4'Left'#2#4#6'Height'#3#132#0#3'Top'#2#5#5'Width'#3
+  +#23#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Columns'#14
+  +#1#7'Caption'#6#7'Enabled'#5'Width'#2'F'#0#1#7'Caption'#6#7'Message'#5'Width'
+  +#3#150#0#0#1#8'AutoSize'#9#7'Caption'#6#9'Path Info'#0#0#11'ColumnClick'#8#13
+  +'HideSelection'#8#8'ReadOnly'#9#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7
+  +#8'vsReport'#12'OnSelectItem'#7#18'ListViewSelectItem'#0#0#7'TBitBtn'#4'bAdd'
+  +#4'Left'#2'x'#6'Height'#2#25#3'Top'#3#146#0#5'Width'#2'K'#6'Action'#7#6'ac_A'
+  +'dd'#7'Anchors'#11#7'akRight'#8'akBottom'#0#10'Glyph.Data'#10':'#6#0#0'6'#6#0
+  +#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0
+  +#6#0#0'"'#11#0#0'"'#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5#3']'#5#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhhhhh'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#5#140#13
+  +#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhh'#223#223#223#128#128
+  +#128'hhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145#5
+  +#149#14#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhh'#223#223#223
+  +#132#132#132'hhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247
+  +#145#5#146#13#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhh'#223#223
+  +#223#131#131#131'hhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['
+  +#247#145#6#149#15#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhh'
+  +#223#223#223#133#133#133'hhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#3']'#5#3']'#5#3']'#5#3']'#5#3']'#5'['#247
+  +#145#12#156#24#3']'#5#3']'#5#3']'#5#3']'#5#3']'#5#255#0#255#255#0#255#255#0
+  +#255#255#0#255'hhhhhhhhhhhhhhh'#223#223#223#140#140#140'hhhhhhhhhhhhhhh'#255
+  +#0#255#255#0#255#255#0#255#3']'#5'['#247#145';'#218'i0'#207'W*'#198'M!'#184
+  +'<'#23#166'+'#17#159'!'#13#158#28#10#154#21#6#146#14#5#147#13#5#139#13#3']'#5
+  +#255#0#255#255#0#255'hhh'#223#223#223#196#196#196#185#185#185#178#178#178#167
+  +#167#167#153#153#153#146#146#146#143#143#143#138#138#138#131#131#131#131#131
+  +#131'hhh'#255#0#255#255#0#255#3']'#5'['#247#145'['#247#145'['#247#145'['
+  +#247#145'['#247#145'['#247#145#24#169'/['#247#145'['#247#145'['#247#145'['
+  +#247#145'['#247#145#3']'#5#255#0#255#255#0#255'hhh'#223#223#223#223#223#223
+  +#223#223#223#223#223#223#223#223#223#223#223#223#155#155#155#223#223#223#223
+  +#223#223#223#223#223#223#223#223#223#223#223'hhh'#255#0#255#255#0#255#255#0
+  +#255#3']'#5#3']'#5#3']'#5#3']'#5#3']'#5'['#247#145'%'#188'B'#3']'#5#3']'#5#3
+  +']'#5#3']'#5#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255'hhhhhhhhhhhhhhh'
+  +#223#223#223#171#171#171'hhhhhhhhhhhhhhh'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145'0'#206'W'#3']'
+  +#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhh'#223#223#223#185#185#185
+  ,'hhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145';'#217
+  +'h'#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhh'#223#223#223#195
+  +#195#195'hhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247#145'H'
+  +#235''#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhh'#223#223#223
+  +#209#209#209'hhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#3']'#5'['#247
+  +#145'['#247#145#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhh'#223
+  +#223#223#223#223#223'hhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#3']'#5#3']'#5#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'hhhhhh'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#2#8'TabOrder'#2#1#0#0#7'TB'
+  +'itBtn'#7'bDelete'#4'Left'#3#199#0#6'Height'#2#25#3'Top'#3#146#0#5'Width'#2
+  +'T'#6'Action'#7#9'ac_Remove'#7'Anchors'#11#7'akRight'#8'akBottom'#0#10'Glyph'
+  +'.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16
+  +#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0'"'#11#0#0'"'#11#0#0#0#0#0#0#0#0#0#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#1#4#162#1#4
+  +#162#1#4#162#1#4#162#1#4#162#1#4#162#1#4#162#1#4#162#1#4#162#1#4#162#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'yyyyyyyyyyyyyyyyyyyyy'
+  +'yyyyyyyyy'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#1#4#162'Y'#131
+  +#255#0'&'#255#0'0'#255#0'0'#251#0'/'#242#0'/'#233#0'.'#225#0'0'#216#0'1'#208
+  +#0'4'#203#1#4#162#255#0#255#255#0#255#255#0#255#255#0#255'yyy'#212#212#212
+  +#167#167#167#167#167#167#165#165#165#161#161#161#156#156#156#152#152#152#148
+  +#148#148#144#144#144#141#141#141'yyy'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#1#4#162#171#194#255'd'#128#255'f'#136#255'f'#136#255'f'#135#250'g'#135#245
+  +'g'#135#240'Wy'#233'Mp'#228'Mt'#226#1#4#162#255#0#255#255#0#255#255#0#255#255
+  +#0#255'yyy'#253#253#253#217#217#217#218#218#218#218#218#218#216#216#216#214
+  +#214#214#211#211#211#200#200#200#192#192#192#191#191#191'yyy'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#1#4#162#1#4#162#1#4#162#1#4#162#1#4#162#1
+  ,#4#162#1#4#162#1#4#162#1#4#162#1#4#162#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyy'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#2#8'Ta'
+  +'bOrder'#2#2#0#0#9'TComboBox'#9'cbMessage'#4'Left'#2'<'#6'Height'#2#21#3'Top'
+  +#3#179#0#5'Width'#3#223#0#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#16
+  +'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0
+  +#10'ItemHeight'#2#13#8'OnChange'#7#15'cbMessageChange'#5'Style'#7#14'csDropD'
+  +'ownList'#8'TabOrder'#2#3#0#0#5'TEdit'#9'ePathInfo'#4'Left'#2'<'#6'Height'#2
+  +#21#3'Top'#3#227#0#5'Width'#3#223#0#7'Anchors'#11#6'akLeft'#7'akRight'#8'akB'
+  +'ottom'#0#8'OnChange'#7#15'ePathInfoChange'#8'TabOrder'#2#4#4'Text'#6#9'ePat'
+  +'hInfo'#0#0#9'TComboBox'#9'cbEnabled'#4'Left'#2'<'#6'Height'#2#21#3'Top'#3
+  +#203#0#5'Width'#3#223#0#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#16
+  +'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0
+  +#10'ItemHeight'#2#13#13'Items.Strings'#1#6#5'False'#6#4'True'#0#8'OnChange'#7
+  +#15'cbEnabledChange'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#5#0#0#11'TA'
+  +'ctionList'#11'ActionList1'#8'OnUpdate'#7#17'ActionList1Update'#4'left'#2#24
+  +#3'top'#2'('#0#7'TAction'#6'ac_Add'#7'Caption'#6#4'&Add'#18'DisableIfNoHandl'
+  +'er'#9#9'OnExecute'#7#9'bAddClick'#0#0#7'TAction'#9'ac_Remove'#7'Caption'#6#7
+  +'&Remove'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'bDeleteClick'#0#0#7'TAc'
+  +'tion'#8'ac_Close'#7'Caption'#6#8'ac_Close'#18'DisableIfNoHandler'#9#9'OnExe'
+  +'cute'#7#15'ac_CloseExecute'#8'ShortCut'#2#27#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.pas
new file mode 100644
index 0000000..ac431b9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fDispatchersEditorForm.pas	
@@ -0,0 +1,271 @@
+unit fDispatchersEditorForm;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Messages, SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, Buttons, ComCtrls,
+  uROClient, uROServer, uROHTTPDispatch, ActnList;
+
+type
+  TDispatchersEditorForm = class(TForm)
+    ListView: TListView;
+    bAdd: TBitBtn;
+    bDelete: TBitBtn;
+    cbMessage: TComboBox;
+    Label1: TLabel;
+    Label3: TLabel;
+    lblPathInfo: TLabel;
+    ePathInfo: TEdit;
+    cbEnabled: TComboBox;
+    ActionList1: TActionList;
+    ac_Add: TAction;
+    ac_Remove: TAction;
+    ac_Close: TAction;
+    procedure bDeleteClick(Sender: TObject);
+    procedure bAddClick(Sender: TObject);
+    procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
+    procedure cbMessageChange(Sender: TObject);
+    procedure cbEnabledChange(Sender: TObject);
+    procedure ePathInfoChange(Sender: TObject);
+    procedure ActionList1Update(Action: TBasicAction;
+      var Handled: Boolean);
+    procedure ac_CloseExecute(Sender: TObject);
+  private
+    fInChange: boolean;
+    fServer : TROServer;
+    fShowPathInfo,
+    fSelectingItem : boolean;
+
+    procedure LoadMessages;
+    procedure RefreshDispatchers;
+    procedure SetShowPathInfo(const Value: boolean);
+    function GetDispatchers: TROMessageDispatchers;
+    procedure SetServer(const Value: TROServer);
+    function GetDispatcher: TROMessageDispatcher;
+
+  public
+    constructor Create(aServer : TROServer); reintroduce;
+    destructor Destroy; override;
+
+    property Server : TROServer read fServer write SetServer;
+    property Dispatchers : TROMessageDispatchers read GetDispatchers;
+    property Dispatcher : TROMessageDispatcher read GetDispatcher;
+  end;
+
+var
+  DispatchersEditorForm: TDispatchersEditorForm;
+
+implementation
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF}
+
+const BoolStrs : array[boolean] of string = ('False', 'True');
+
+{ TDispatchersEditorForm }
+
+constructor TDispatchersEditorForm.Create(aServer : TROServer);
+begin
+  inherited Create(NIL);
+
+  fSelectingItem := FALSE;
+  Server := aServer;
+  RefreshDispatchers;
+
+  if ListView.Items.Count > 0 then
+    ListView.Items[0].Selected := true;
+end;
+
+destructor TDispatchersEditorForm.Destroy;
+begin
+  inherited;
+end;
+
+procedure TDispatchersEditorForm.RefreshDispatchers;
+var idx, i : integer;
+    item   : TListItem;
+begin
+  if fSelectingItem then Exit;
+
+  if (ListView.Selected<>NIL)
+    then idx := ListView.Selected.Index
+    else idx := -1;
+
+  ListView.Items.Clear;
+  for i := 0 to (Dispatchers.Count-1) do begin
+    item := ListView.Items.Add;
+    item.Caption := BoolStrs[Dispatchers[i].Enabled];
+    item.SubItems.Add(Dispatchers[i].Name);
+
+    if fShowPathInfo
+      then item.SubItems.Add(TROHTTPDispatcher(Dispatchers[i]).PathInfo);
+  end;
+
+  if (idx>=0) and (idx<ListView.Items.Count)
+    then ListView.Items[idx].Selected := TRUE
+end;
+
+procedure TDispatchersEditorForm.SetShowPathInfo(const Value: boolean);
+begin
+  ePathInfo.Visible := Value;
+  lblPathInfo.Visible := Value;
+  if not Value then ListView.Columns[ListView.Columns.Count-1].Free;
+
+  fShowPathInfo := Value;
+end;
+
+procedure TDispatchersEditorForm.bDeleteClick(Sender: TObject);
+begin
+  if (ListView.Selected=NIL) then Exit;
+  Dispatchers.Delete(ListView.Selected.Index);
+  RefreshDispatchers;
+end;
+
+procedure TDispatchersEditorForm.bAddClick(Sender: TObject);
+begin
+  if (Dispatchers.Count>0) and not Dispatchers.SupportsMultipleDispatchers
+    then MessageDlg(Server.ClassName+' only supports one dispatcher', mtWarning, [mbOK],0)
+
+  else begin
+    Dispatchers.Add;
+    RefreshDispatchers;
+    ListView.Items[ListView.Items.Count-1].Selected := true;
+  end;
+end;
+
+procedure TDispatchersEditorForm.ListViewSelectItem(Sender: TObject;
+  Item: TListItem; Selected: Boolean);
+begin
+  fSelectingItem := TRUE;
+  try
+    if (Dispatcher<>NIL) then
+      with Dispatcher do begin
+        cbEnabled.ItemIndex := Ord(Enabled);
+
+        if (Message<>NIL)
+          then cbMessage.ItemIndex := cbMessage.Items.IndexOf(Message.Name)
+          else cbMessage.ItemIndex := 0;
+
+        if fShowPathInfo
+          then ePathInfo.Text := TROHTTPDispatcher(Dispatcher).PathInfo;
+      end;
+
+  finally
+    fSelectingItem := FALSE;
+  end;
+end;
+
+function TDispatchersEditorForm.GetDispatchers: TROMessageDispatchers;
+begin
+  result := fServer.Dispatchers;
+end;
+
+procedure TDispatchersEditorForm.LoadMessages;
+var i : integer;
+begin
+  cbMessage.Items.Clear;
+
+  cbMessage.Items.Add('-');  
+  with fServer.Owner do
+    for i := 0 to (ComponentCount-1) do begin
+      if (Components[i] is TROMessage) then cbMessage.Items.Add(TROMessage(Components[i]).Name);
+    end;
+end;
+
+procedure TDispatchersEditorForm.SetServer(const Value: TROServer);
+begin
+  fServer := Value;
+  if (Value=NIL) then Exit; // Just in case...
+
+  Caption := fServer.Name+' Dispatchers';
+
+  SetShowPathInfo(Dispatchers is TROHTTPMessageDispatchers);
+  LoadMessages;
+end;
+
+procedure TDispatchersEditorForm.cbMessageChange(Sender: TObject);
+begin
+  if (Dispatcher=NIL) then Exit;
+
+  if (cbMessage.Text<>'-')
+    then Dispatcher.Message := TROMessage(fServer.Owner.FindComponent(cbMessage.Text))
+    else Dispatcher.Message := NIL;
+
+  RefreshDispatchers;
+end;
+
+procedure TDispatchersEditorForm.cbEnabledChange(Sender: TObject);
+begin
+  if (Dispatcher=NIL) then Exit;
+
+  Dispatcher.Enabled := boolean(Ord(cbEnabled.ItemIndex));
+
+  RefreshDispatchers;
+end;
+
+procedure TDispatchersEditorForm.ePathInfoChange(Sender: TObject);
+begin
+  if fInChange then exit;
+
+  fInChange := true;
+  try
+
+    if (Dispatcher=NIL) then Exit;
+    TROHTTPDispatcher(Dispatcher).PathInfo := ePathInfo.Text;
+    //ePathInfo.Text := TROHTTPDispatcher(Dispatcher).PathInfo;
+    //1.0.4: read back PathInfo value, because the Dispatcher might adjust it.
+
+    RefreshDispatchers;
+  finally
+    fInChange := false;
+  end;
+end;
+
+function TDispatchersEditorForm.GetDispatcher: TROMessageDispatcher;
+begin
+  if (ListView.Selected=NIL)
+    then result := NIL
+    else result := Dispatchers[ListView.Selected.Index];
+end;
+
+procedure TDispatchersEditorForm.ActionList1Update(Action: TBasicAction;
+  var Handled: Boolean);
+begin
+  ac_Remove.Enabled := Assigned(ListView.Selected);
+  cbMessage.Enabled := ac_Remove.Enabled;
+  ePathInfo.Enabled := ac_Remove.Enabled;
+  cbEnabled.Enabled := ac_Remove.Enabled;
+end;
+
+procedure TDispatchersEditorForm.ac_CloseExecute(Sender: TObject);
+begin
+  Close();
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I fDispatchersEditorForm.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.dfm
new file mode 100644
index 0000000..29e2169
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.dfm	
@@ -0,0 +1,3385 @@
+object NewProjectForm: TNewProjectForm
+  Left = 339
+  Top = 174
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'New RemObjects SDK Server'
+  ClientHeight = 412
+  ClientWidth = 500
+  Color = clBtnFace
+  Constraints.MinHeight = 238
+  Constraints.MinWidth = 300
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Bevel1: TBevel
+    Left = 4
+    Top = 372
+    Width = 494
+    Height = 2
+    Anchors = [akLeft, akRight, akBottom]
+  end
+  object Image2: TImage
+    Left = 0
+    Top = 0
+    Width = 500
+    Height = 64
+    Align = alTop
+    AutoSize = True
+    Picture.Data = {
+      07544269746D617036770100424D36770100000000003600000028000000F401
+      000040000000010018000000000000770100120B0000120B0000000000000000
+      00000000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B6000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E4444AC
+      7777C36666BB00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      95000095000095000095000095000095000095000095000095FFFFFFFFFFFFFF
+      FFFFDDDDF12222A3000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B5555BC00009B5555BCFFFF
+      FFAAAADE00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B0000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B0CCCCEFEEEEFA
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000A80000A80000A80000A80000A80000A80000A80000A8FFFFFFBBBBE8
+      0000A80000A80000A80000A8BBBBE8FFFFFF7777D10000A80000A80000A80000
+      A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999DC0000A800
+      00A80000A80000A80000A80000A8AAAAE2FFFFFF2222B40000A80000A80000A8
+      4444BF9999DC0000A80000A80000A80000A8FFFFFFEEEEF90000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A84444BFAAAAE2EEEEF9FF
+      FFFFEEEEF9AAAAE24444BF0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFDDDDF38888D61111AE0000
+      A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF0000A800
+      00A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A80000A80000A80000
+      A80000A81111AE8888D6CCCCEEFFFFFFFFFFFFDDDDF39999DC3333B90000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A83333
+      B9AAAAE2DDDDF3FFFFFFCCCCEE4444BF0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFCCCCEE7777D10000A80000A80000
+      A80000A80000A80000A80000A80000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFAAAAE26666CB0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A8FFFFFFFFFFFFFFFFFF7777D10000A80000A81111
+      AEEEEEF9FFFFFFFFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      B10000B10000B10000B10000B10000B10000B10000B1FFFFFFBBBBEA0000B100
+      00B10000B17777D5FFFFFF9999E00000B10000B10000B10000B10000B10000B1
+      0000B1BBBBEAFFFFFF7777D57777D57777D57777D54444C60000B10000B10000
+      B10000B10000B10000B17777D5FFFFFF3333C10000B10000B10000B1BBBBEAFF
+      FFFF1111B60000B10000B10000B1FFFFFFBBBBEA0000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B19999E0FFFFFFEEEEFA9999E07777D59999
+      E0EEEEFAFFFFFF9999E00000B10000B10000B10000B10000B10000B10000B100
+      00B10000B1BBBBEAFFFFFF7777D57777D5AAAAE5FFFFFFDDDDF51111B60000B1
+      0000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000
+      B10000B10000B10000B10000B10000B1BBBBEAFFFFFF7777D57777D57777D577
+      77D54444C60000B10000B10000B10000B10000B10000B10000B10000B15555CB
+      EEEEFAFFFFFFBBBBEA8888DB7777D5AAAAE5EEEEFA7777D50000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B16666D0EEEEFA
+      8888DB6666D0BBBBEAFFFFFF4444C60000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCEF0000B10000B10000B1
+      0000B10000B10000B10000B10000B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFBBBBEA1111B60000B10000B10000B10000B10000B10000B100
+      00B10000B10000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B1AAAAE5FFFFFF
+      FFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000A60000A6
+      0000A60000A60000A60000A60000A60000A6FFFFFFBBBBE70000A60000A63333
+      B8FFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000A6BB
+      BBE7FFFFFF0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A65555C4FFFFFF4444BE0000A60000A63333B8FFFFFFFFFFFF7777
+      D00000A60000A62222B2FFFFFF9999DB0000A60000A60000A60000A60000A600
+      00A60000A60000A69999DBFFFFFF9999DB0000A60000A60000A60000A60000A6
+      9999DBFFFFFF9999DB0000A60000A60000A60000A60000A60000A60000A60000
+      A6BBBBE7FFFFFF0000A60000A60000A66666CAFFFFFF7777D00000A60000A600
+      00A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A6
+      0000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BEFFFFFFDDDDF333
+      33B80000A60000A60000A60000A61111AC3333B80000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BE1111AC0000A600
+      00A61111ACFFFFFFCCCCED0000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A63333B8FFFF
+      FFFFFFFFBBBBE7DDDDF3FFFFFFFFFFFFFFFFFF6666CA0000A60000A60000A600
+      00A60000A60000A60000A6FFFFFFFFFFFFFFFFFFDDDDF3BBBBE7EEEEF9FFFFFF
+      FFFFFFFFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000
+      A60000A6FFFFFFFFFFFFFFFFFF7777D00000A65555C4FFFFFFFFFFFFFFFFFFEE
+      EEF91111AC0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000B30000B30000B300
+      00B30000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B3DDDDF5EEEEFA
+      2222BD0000B30000B30000B30000B30000B30000B30000B30000B3BBBBEBFFFF
+      FF0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B33333C2FFFFFF6666D10000B30000B39999E1DDDDF56666D1EEEEFA0000B3
+      0000B33333C2FFFFFF7777D60000B30000B30000B30000B30000B30000B30000
+      B34444C7FFFFFFAAAAE60000B30000B30000B30000B30000B30000B30000B3AA
+      AAE6FFFFFF4444C70000B30000B30000B30000B30000B30000B30000B3BBBBEB
+      FFFFFF0000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B30000B30000
+      B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B300
+      00B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B31111B8EEEEFADDDDF51111B80000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B3DDDDF5FFFFFF0000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B34444C78888DC1111B8
+      0000B31111B8FFFFFFFFFFFFFFFFFFAAAAE60000B30000B30000B30000B30000
+      B30000B30000B3FFFFFFFFFFFFFFFFFF7777D60000B31111B89999E1FFFFFFFF
+      FFFFFFFFFF5555CC0000B30000B30000B30000B30000B30000B30000B30000B3
+      FFFFFFFFFFFFFFFFFF7777D61111B8EEEEFAFFFFFFFFFFFFFFFFFF5555CC0000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B10000B10000B10000B10000
+      B10000B10000B10000B1FFFFFFBBBBEA0000B18888DBFFFFFF4444C60000B100
+      00B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B11111
+      B6FFFFFF8888DB0000B11111B6FFFFFF7777D50000B1EEEEFA6666D00000B144
+      44C6FFFFFF6666D00000B10000B10000B10000B10000B10000B10000B1AAAAE5
+      FFFFFF2222BB0000B10000B10000B10000B10000B10000B10000B12222BBFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF00
+      00B10000B10000B12222BBFFFFFF9999E00000B10000B10000B10000B10000B1
+      0000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000
+      B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B16666D0FFFFFF6666D00000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B13333C1FFFFFF
+      DDDDF50000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B11111B60000B10000B10000B177
+      77D5FFFFFFFFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B1
+      0000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B11111B6EEEEFAFFFFFFFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B10000B1FFFFFFFF
+      FFFFFFFFFF7777D5BBBBEAFFFFFFFFFFFFFFFFFF8888DB0000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADFFFFFFFFFFFFFFFFFFFFFFFFDDDDF43333BD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFA
+      AAAAE40000AD7777D3EEEEFA1111B20000AD7777D3CCCCEF0000AD6666CEFFFF
+      FF4444C30000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFADDDDF400
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADDDDDF4EEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000
+      AD3333BDCCCCEFEEEEFA3333BD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      BBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000ADAAAAE4FFFFFF1111B20000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD3333BDEEEEFAFFFFFF6666CE00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD1111B2AAAAE4FFFFFFFFFF
+      FFFFFFFFFFFFFF7777D30000AD0000AD0000AD0000AD0000AD0000AD0000ADFF
+      FFFFFFFFFFFFFFFF7777D30000AD0000AD0000AD9999DEFFFFFFFFFFFFEEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADFFFFFFFFFFFFFFFF
+      FFDDDDF4FFFFFFFFFFFFFFFFFFCCCCEF1111B20000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABFFFFFFCCCCEE4444C15555C7DDDDF4FFFFFF3333BC0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FF4444C10000AB0000AB0000AB0000AB0000AB0000AB0000ABCCCCEECCCCEE00
+      00ABEEEEF98888D80000AB0000AB1111B1FFFFFF4444C17777D2FFFFFF3333BC
+      0000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFBBBBE90000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      DDDDF43333BC0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBB
+      E9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFF4444C10000AB0000AB0000AB0000AB0000AB
+      0000ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB6666CDFFFFFFFFFFFF8888D80000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      EEEEF91111B10000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFF
+      FFFFFFFF7777D20000AB0000AB0000AB7777D2FFFFFFFFFFFFFFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF3333BC0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000B50000B50000B50000B50000B50000B50000B50000B5FFFF
+      FFBBBBEB0000B50000B52222BFFFFFFFBBBBEB0000B50000B50000B50000B500
+      00B50000B50000B50000B5BBBBEBFFFFFF7777D87777D87777D87777D82222BF
+      0000B50000B50000B50000B50000B50000B50000B5AAAAE6DDDDF55555CEFFFF
+      FF2222BF0000B50000B50000B59999E1AAAAE69999E1FFFFFF1111BA0000B500
+      00B50000B50000B50000B50000B50000B5EEEEFADDDDF50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B5DDDDF5EEEEFA0000B50000B50000
+      B50000B50000B50000B50000B5BBBBEBFFFFFF4444C94444C9CCCCF0EEEEFA22
+      22BF0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF
+      0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF7777
+      D87777D87777D87777D82222BF0000B50000B50000B50000B50000B50000B5AA
+      AAE6FFFFFF2222BF0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5BBBB
+      EBFFFFFF0000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B55555CEFFFFFFEEEEFA5555CE0000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B54444C9FFFFFFFFFFFFFFFFFFFFFFFFDDDDF53333C400
+      00B50000B50000B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFF
+      7777D80000B50000B50000B59999E1FFFFFFFFFFFFEEEEFA0000B50000B50000
+      B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFFBBBBEBFFFFFFFF
+      FFFFFFFFFF5555CE0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B500009F00009F00009F00009F00009F00009F00009F00009FFFFFFFBBBBE5
+      00009F00009F00009FCCCCECFFFFFF00009F00009F00009F00009F00009F0000
+      9F00009F00009FBBBBE5FFFFFF00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F8888D2FFFFFFCCCCECAAAADF00009F
+      00009F00009F00009F2222ACFFFFFFCCCCECFFFFFF00009F00009F00009F0000
+      9F00009F00009F00009F00009FAAAADFFFFFFF2222AC00009F00009F00009F00
+      009F00009F00009F00009F2222ACFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009FBBBBE5FFFFFF00009F00009F2222ACFFFFFF8888D20000
+      9F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00
+      009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F6666C5FFFF
+      FF7777CC00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9FCCCCECFFFFFF3333B200009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F7777CCFFFFFFFFFFFFFFFFFFAAAADF1111A500009F00009F0000
+      9F00009F00009F00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CC00
+      009F00009F1111A5EEEEF9FFFFFFFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CCAAAADFFFFFFFFFFF
+      FFEEEEF91111A500009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      8E00008E00008E00008E00008E00008E00008E00008EFFFFFFBBBBE100008E00
+      008E00008ECCCCE8EEEEF700008E00008E00008E00008E00008E00008E00008E
+      00008EBBBBE1FFFFFF00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E6666BBFFFFFFFFFFFF3333A500008E00008E00
+      008E00008E00008EAAAAD9FFFFFFDDDDF000008E00008E00008E00008E00008E
+      00008E00008E00008E4444ACFFFFFFAAAAD900008E00008E00008E00008E0000
+      8E00008E00008EAAAAD9FFFFFF4444AC00008E00008E00008E00008E00008E00
+      008E00008EBBBBE1FFFFFF00008E00008E00008EFFFFFFBBBBE100008E00008E
+      00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E0000
+      8E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E111196EEEEF7EEEEF7
+      11119600008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008EFFFFFF
+      CCCCE800008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E7777C3FFFFFFFFFFFFFFFFFF00008E00008E22229D3333A500008E00008E
+      00008E00008E00008E00008E00008EFFFFFFFFFFFFFFFFFF7777C300008E1111
+      969999D2FFFFFFFFFFFFFFFFFF6666BB00008E00008E00008E00008E00008E00
+      008E00008E00008EFFFFFFFFFFFFFFFFFF7777C3111196EEEEF7FFFFFFFFFFFF
+      8888CA00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E000091000091
+      000091000091000091000091000091000091FFFFFFBBBBE20000910000913333
+      A7FFFFFFBBBBE2000091000091000091000091000091000091000091000091BB
+      BBE2FFFFFF000091000091000091000091000091000091000091000091000091
+      0000910000910000914444AEFFFFFFBBBBE20000910000910000910000910000
+      910000914444AEFFFFFFBBBBE200009100009100009100009100009100009100
+      00910000910000919999D3FFFFFF9999D3000091000091000091000091000091
+      9999D3FFFFFF9999D30000910000910000910000910000910000910000910000
+      91BBBBE2FFFFFF0000910000914444AEFFFFFF9999D300009100009100009100
+      0091000091000091000091000091BBBBE2FFFFFF000091000091000091000091
+      000091000091000091000091BBBBE2FFFFFF0000910000910000910000910000
+      910000910000910000910000910000910000910000914444AEFFFFFFDDDDF044
+      44AE0000910000910000910000912222A03333A7000091000091000091000091
+      000091000091000091000091000091000091BBBBE2FFFFFF0000910000910000
+      91000091000091000091000091000091000091000091000091DDDDF0DDDDF000
+      00910000910000912222A0000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000913333
+      A7FFFFFFFFFFFFFFFFFFCCCCE9BBBBE2FFFFFF4444AE00009100009100009100
+      0091000091000091000091FFFFFFFFFFFFFFFFFFDDDDF0BBBBE2EEEEF8FFFFFF
+      FFFFFFFFFFFFBBBBE20000910000910000910000910000910000910000910000
+      91000091FFFFFFFFFFFFFFFFFF7777C40000916666BDFFFFFFFFFFFFFFFFFF44
+      44AE000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100007800007800007800
+      0078000078000078000078000078FFFFFFDDDDED6666AE8888C0EEEEF6EEEEF6
+      333393000078000078000078000078000078000078000078000078BBBBDBFFFF
+      FF7777B77777B77777B77777B744449C00007800007800007800007800007800
+      007800007822228AFFFFFF5555A5000078000078000078000078000078000078
+      000078CCCCE4AAAAD20000780000780000780000780000780000780000780000
+      780000780000789999C9FFFFFFEEEEF69999C97777B79999C9EEEEF6FFFFFF99
+      99C9000078000078000078000078000078000078000078000078000078BBBBDB
+      FFFFFF6666AE7777B7EEEEF6FFFFFF3333930000780000780000780000780000
+      78000078000078000078BBBBDBFFFFFF00007800007800007800007800007800
+      0078000078000078BBBBDBFFFFFF7777B77777B77777B77777B744449C000078
+      0000780000780000780000780000780000780000785555A5EEEEF6FFFFFFCCCC
+      E49999C99999C9BBBBDBFFFFFF6666AE00007800007800007800007800007811
+      11817777B77777B77777B77777B7DDDDEDFFFFFF7777B77777B77777B77777B7
+      3333930000780000780000780000780000780000786666AEFFFFFFAAAAD26666
+      AE9999C99999C900007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078AAAAD2
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF44449C0000780000780000780000780000
+      78000078000078FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBB
+      BBDB111181000078000078000078000078000078000078000078000078000078
+      FFFFFFFFFFFFFFFFFF7777B7000078000078BBBBDBFFFFFFFFFFFFDDDDED1111
+      8100007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      00007800007800007800007800007800007800007A00007A00007A00007A0000
+      7A00007A00007A00007AFFFFFFFFFFFFFFFFFFDDDDEDAAAAD322228C00007A00
+      007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF7777B800007A00007A00007A00007A00007A00007A0000
+      7A00007ACCCCE400007A00007A00007A00007A00007A00007A00007A00007A44
+      449D8888C100007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A44449DAAAAD3EEEEF6FFFFFFEEEEF6AAAAD344449D00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFF
+      FFFFEEEEF6BBBBDC44449D00007A00007A00007A00007A00007A00007A00007A
+      00007A00007ABBBBDCFFFFFF00007A00007A00007A00007A00007A00007A0000
+      7A00007ABBBBDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777B800007A00007A00
+      007A00007A00007A00007A00007A00007A00007A1111838888C1CCCCE4FFFFFF
+      FFFFFFDDDDED9999CA33339500007A00007A00007A00007A00007A22228CFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555A600
+      007A00007A00007A00007A00007A00007A00007A6666AFDDDDEDFFFFFFBBBBDC
+      22228C00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A7777B8CC
+      CCE4FFFFFFFFFFFFFFFFFF44449D00007A00007A00007A00007A00007A00007A
+      00007AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAAAAD36666AF00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007AFFFFFFFF
+      FFFFFFFFFF7777B800007A00007A44449DFFFFFFFFFFFFFFFFFF9999CA00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      970000970000970000970000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A600009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      007900006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      00005100005100005100005100005100005100004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      005800005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      006000006000006000006000006000006000006000006000006000005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      00005500005500005500005500005500005500005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      006400005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069}
+  end
+  object Bevel2: TBevel
+    Left = 0
+    Top = 64
+    Width = 500
+    Height = 2
+    Align = alTop
+    Shape = bsTopLine
+  end
+  object Bevel3: TBevel
+    Left = 0
+    Top = 369
+    Width = 500
+    Height = 2
+    Align = alBottom
+    Shape = bsTopLine
+  end
+  object Label1: TLabel
+    Left = 8
+    Top = 80
+    Width = 291
+    Height = 13
+    Caption = 'You are about to create your RemObjects SDK Server Project'
+  end
+  object lbl_CreateClientAndGroup: TLabel
+    Left = 44
+    Top = 225
+    Width = 374
+    Height = 26
+    Caption = 
+      'In addition to the Server project, RemObjects SDK will create a ' +
+      'client project to connect to your server.'
+    WordWrap = True
+  end
+  object lbl_GuideWizard: TLabel
+    Left = 44
+    Top = 289
+    Width = 382
+    Height = 26
+    Caption = 
+      'After creating your project(s), a template-specific wizard will ' +
+      'guide you through the further steps needed to complete your appl' +
+      'ication.'
+    WordWrap = True
+  end
+  object Label5: TLabel
+    Left = 16
+    Top = 99
+    Width = 82
+    Height = 13
+    Caption = 'Project Folder:'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 16
+    Top = 147
+    Width = 79
+    Height = 13
+    Caption = 'Project Name:'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 371
+    Width = 500
+    Height = 41
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 6
+    DesignSize = (
+      500
+      41)
+    object btn_Ok: TBitBtn
+      Left = 341
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = 'OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+        6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+        9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+        9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+        4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+        65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+        00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+        00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object btn_Cancel: TBitBtn
+      Left = 420
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+  end
+  object cb_CreateClientAndGroup: TCheckBox
+    Left = 16
+    Top = 203
+    Width = 369
+    Height = 17
+    Caption = 'Also create a matching client application and a project group'
+    Checked = True
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    State = cbChecked
+    TabOrder = 3
+    OnClick = cb_CreateClientAndGroupClick
+  end
+  object cb_GuideWizard: TCheckBox
+    Left = 16
+    Top = 267
+    Width = 441
+    Height = 17
+    Caption = 
+      'Run the New Server Wizard to guide you through the setup of your' +
+      ' project'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 4
+  end
+  object btn_AdvancedOptions: TBitBtn
+    Left = 16
+    Top = 336
+    Width = 177
+    Height = 25
+    Caption = 'Advanced Project Options...'
+    TabOrder = 5
+    OnClick = btn_AdvancedOptionsClick
+    Glyph.Data = {
+      36050000424D3605000000000000360400002800000010000000100000000100
+      0800000000000001000000000000000000000001000000010000FF00FF002423
+      25002D2A2A00383435003A3A3A00413B3B00413D3D003733470021346A002A3B
+      6900273F7300484343004D4948005C47420045465B005A5757005B5959005F5E
+      5E007E5F5800737373007676770089575300895754009A7E65009C7F6600AD70
+      6B00B4766D00BB7D6E0082807F0091847800AC8C6F00C4866F00CA8C7200D193
+      7300D7997400DA9D7500E7AB7900244283003B5781003B528E0041628E00787D
+      83004F7EAF004074B7003481DC007FB1CE004397E2004398E3004399E50053AC
+      EA0053AFED0062B4E000918B80008890A400D19D8000D79F8000D8A18100C1AF
+      9D00D4B79700C6B6A700EEC29800F3C99F00F6CA9D00D4C2B100D1C9B700F6CB
+      A200F8CBA100F3CFAA00E1CAB500E1CDB900E2CFBC00E7D5BD00EED5BA00F7D5
+      B200F6D5B500F3D7B800F3D9BC008FE2F000B4E5F300BCEAF300E1D4C600E7D5
+      C400EDDDC700EDDECA00F4DAC000F6DCC200EFE1CE00F0E3CB00F6E2CC00F3E6
+      CE00F6E7CE00EFE3D300F2E6D700F8EEDD00EDEDED00F7EFE300F6EBE600F8EE
+      E700F7F3EA00FAF6EE00FBF7F200FBFBFA00FBFBFC00FEFEFE00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000015151515151515151515000000000000155146464444
+      44444715000000000000195D5C5B565352525A150000000000001A5F49424141
+      3E435A150000000000001B625A55554B4B4856150000000000001F63493E4142
+      3C3A40150000000000002064513B3F46391D341200000000000021663517171E
+      26280E0D000000060202226626261C26332609070014040601062366264F2633
+      2633260A081429060306246666264F263326332F2C145E060C0B24635F5F264D
+      2633312E2C145E060F102437373737262D4E312F25145E061414000000000000
+      002A2B2700141406141000000000000000000000000000060406}
+  end
+  object ed_ProjectFolder: TComboBox
+    Left = 44
+    Top = 118
+    Width = 367
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 0
+    OnChange = ed_ProjectFolderChange
+  end
+  object btn_Browse: TBitBtn
+    Left = 417
+    Top = 116
+    Width = 75
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = '&Browse'
+    TabOrder = 1
+    OnClick = btn_BrowseClick
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF1C99CE2BA5D51C9DD10A8AC6FF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFBFA5A34D5A72FF00FFFF00FF249CCFA6EEF7
+      6CEBF85DD9F04AC7E739B8E020A0D40F91CA0F91C9FF00FFFF00FFBFA5A35766
+      831276E23C91DCFF00FF0C8CC799DDEF8BFFFF80FCFF82FBFF7FFAFF79F3FF65
+      E1F74ECEED3CBAE07591A05B66811170D833A1FF2A9AFEFF00FF1296CC59BADE
+      9FFEFF75F7FF78F6FF77F2FC89D9E087D7DE7BE2EA91BCC05168891370D531A0
+      FF319EFBFF00FFFF00FF26A5D448C1E69FEFF879F6FB87D8DCBACABCDABCA5D0
+      B59EAF9A8C817A734179AF32A3FF3DACFE1B9CD4FF00FFFF00FF27AFDE8B97A1
+      88CFE28BD1D3CBB4ADF7F0DDFFFFD8FFFFD9FAF8C5CFB08CC4A9A34DC1FC55D0
+      FB41C1E3FF00FFFF00FF25AFE1AD706B5DBCDDB5A69EF7F4EEFFFFFFFFFFE3FF
+      FFD4FFF7C1FFE6A5D8A0826FD4EB59D7FB68E2F80E90C9FF00FF26AFE1B5776D
+      A4CFD9CEB69EFFFFEAFFFFF3FFFFEAFFFFD7F7DCA9F6C986E1B89191C0C753D3
+      FB7EF3FF28AAD8FF00FF28B0E0BC7F6EFFF4EBD5BCA1FFFFDDFFFFDDFFFFE0FF
+      FACAEFBD81F4BD77E7C49A93C0C44FD3FB7DF4FF56D5EFFF00FF28AFE1C58870
+      FFFCF8CAAA99FEFFCEFFFFC9F8E1ADF0C78CF3CA96FFEBB5D5AF959AC9D37AE0
+      FE9DFBFF96F8FF23A1D328B0E1CE9173FFFAF7D8C4BDDCC59EFCE5A7FAC782FB
+      D08BFFF7E0E7DCCE8CA5AA6BC9E65FBCE060BBDE6CC4E329A1D12DB2E2D59975
+      FFF8F3FCFBFAE5D1C9E9CAA6E7C599E1C298CCB59FB18B8875E7F86DEDFE179D
+      D1FF00FFFF00FFFF00FF1FA1D9DDA077FFFBF6FFFFFFFFFFFFFFFFFEFBF4EBB4
+      8379BF7849B16F5350C0E550C4E71C9DD0FF00FFFF00FFFF00FFFF00FFE2A678
+      FFFFFFFFFFFFFFFFFFFFFFFFF8FAFCB6877AE29955FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFE7AB79D1926DD1926DD1926DD1926DD1926DB4
+      7E6FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+  end
+  object ed_ProjectName: TEdit
+    Left = 44
+    Top = 166
+    Width = 367
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 2
+    OnChange = ed_ProjectNameChange
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.lfm
new file mode 100644
index 0000000..e8be68a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.lfm	
@@ -0,0 +1,3385 @@
+object NewProjectForm: TNewProjectForm
+  Left = 337
+  Height = 418
+  Top = 177
+  Width = 499
+  ActiveControl = ed_ProjectFolder
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'New RemObjects SDK Server'
+  ClientHeight = 418
+  ClientWidth = 499
+  Constraints.MinHeight = 238
+  Constraints.MinWidth = 300
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Position = poScreenCenter
+  LCLVersion = '0.9.27'
+  object Bevel1: TBevel
+    Left = 4
+    Height = 2
+    Top = 550
+    Width = 673
+    Anchors = [akLeft, akRight, akBottom]
+  end
+  object Image2: TImage
+    Left = 0
+    Height = 64
+    Top = 0
+    Width = 499
+    Align = alTop
+    AutoSize = True
+    Picture.Data = {
+      07544269746D617036770100424D38770100000000003600000028000000F401
+      000040000000010018000000000002770100120B0000120B0000000000000000
+      00000000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B6000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E4444AC
+      7777C36666BB00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      95000095000095000095000095000095000095000095000095FFFFFFFFFFFFFF
+      FFFFDDDDF12222A3000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B5555BC00009B5555BCFFFF
+      FFAAAADE00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B0000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B0CCCCEFEEEEFA
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000A80000A80000A80000A80000A80000A80000A80000A8FFFFFFBBBBE8
+      0000A80000A80000A80000A8BBBBE8FFFFFF7777D10000A80000A80000A80000
+      A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999DC0000A800
+      00A80000A80000A80000A80000A8AAAAE2FFFFFF2222B40000A80000A80000A8
+      4444BF9999DC0000A80000A80000A80000A8FFFFFFEEEEF90000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A84444BFAAAAE2EEEEF9FF
+      FFFFEEEEF9AAAAE24444BF0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFDDDDF38888D61111AE0000
+      A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF0000A800
+      00A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A80000A80000A80000
+      A80000A81111AE8888D6CCCCEEFFFFFFFFFFFFDDDDF39999DC3333B90000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A83333
+      B9AAAAE2DDDDF3FFFFFFCCCCEE4444BF0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFCCCCEE7777D10000A80000A80000
+      A80000A80000A80000A80000A80000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFAAAAE26666CB0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A8FFFFFFFFFFFFFFFFFF7777D10000A80000A81111
+      AEEEEEF9FFFFFFFFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      B10000B10000B10000B10000B10000B10000B10000B1FFFFFFBBBBEA0000B100
+      00B10000B17777D5FFFFFF9999E00000B10000B10000B10000B10000B10000B1
+      0000B1BBBBEAFFFFFF7777D57777D57777D57777D54444C60000B10000B10000
+      B10000B10000B10000B17777D5FFFFFF3333C10000B10000B10000B1BBBBEAFF
+      FFFF1111B60000B10000B10000B1FFFFFFBBBBEA0000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B19999E0FFFFFFEEEEFA9999E07777D59999
+      E0EEEEFAFFFFFF9999E00000B10000B10000B10000B10000B10000B10000B100
+      00B10000B1BBBBEAFFFFFF7777D57777D5AAAAE5FFFFFFDDDDF51111B60000B1
+      0000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000
+      B10000B10000B10000B10000B10000B1BBBBEAFFFFFF7777D57777D57777D577
+      77D54444C60000B10000B10000B10000B10000B10000B10000B10000B15555CB
+      EEEEFAFFFFFFBBBBEA8888DB7777D5AAAAE5EEEEFA7777D50000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B16666D0EEEEFA
+      8888DB6666D0BBBBEAFFFFFF4444C60000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCEF0000B10000B10000B1
+      0000B10000B10000B10000B10000B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFBBBBEA1111B60000B10000B10000B10000B10000B10000B100
+      00B10000B10000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B1AAAAE5FFFFFF
+      FFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000A60000A6
+      0000A60000A60000A60000A60000A60000A6FFFFFFBBBBE70000A60000A63333
+      B8FFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000A6BB
+      BBE7FFFFFF0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A65555C4FFFFFF4444BE0000A60000A63333B8FFFFFFFFFFFF7777
+      D00000A60000A62222B2FFFFFF9999DB0000A60000A60000A60000A60000A600
+      00A60000A60000A69999DBFFFFFF9999DB0000A60000A60000A60000A60000A6
+      9999DBFFFFFF9999DB0000A60000A60000A60000A60000A60000A60000A60000
+      A6BBBBE7FFFFFF0000A60000A60000A66666CAFFFFFF7777D00000A60000A600
+      00A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A6
+      0000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BEFFFFFFDDDDF333
+      33B80000A60000A60000A60000A61111AC3333B80000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BE1111AC0000A600
+      00A61111ACFFFFFFCCCCED0000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A63333B8FFFF
+      FFFFFFFFBBBBE7DDDDF3FFFFFFFFFFFFFFFFFF6666CA0000A60000A60000A600
+      00A60000A60000A60000A6FFFFFFFFFFFFFFFFFFDDDDF3BBBBE7EEEEF9FFFFFF
+      FFFFFFFFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000
+      A60000A6FFFFFFFFFFFFFFFFFF7777D00000A65555C4FFFFFFFFFFFFFFFFFFEE
+      EEF91111AC0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000B30000B30000B300
+      00B30000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B3DDDDF5EEEEFA
+      2222BD0000B30000B30000B30000B30000B30000B30000B30000B3BBBBEBFFFF
+      FF0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B33333C2FFFFFF6666D10000B30000B39999E1DDDDF56666D1EEEEFA0000B3
+      0000B33333C2FFFFFF7777D60000B30000B30000B30000B30000B30000B30000
+      B34444C7FFFFFFAAAAE60000B30000B30000B30000B30000B30000B30000B3AA
+      AAE6FFFFFF4444C70000B30000B30000B30000B30000B30000B30000B3BBBBEB
+      FFFFFF0000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B30000B30000
+      B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B300
+      00B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B31111B8EEEEFADDDDF51111B80000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B3DDDDF5FFFFFF0000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B34444C78888DC1111B8
+      0000B31111B8FFFFFFFFFFFFFFFFFFAAAAE60000B30000B30000B30000B30000
+      B30000B30000B3FFFFFFFFFFFFFFFFFF7777D60000B31111B89999E1FFFFFFFF
+      FFFFFFFFFF5555CC0000B30000B30000B30000B30000B30000B30000B30000B3
+      FFFFFFFFFFFFFFFFFF7777D61111B8EEEEFAFFFFFFFFFFFFFFFFFF5555CC0000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B10000B10000B10000B10000
+      B10000B10000B10000B1FFFFFFBBBBEA0000B18888DBFFFFFF4444C60000B100
+      00B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B11111
+      B6FFFFFF8888DB0000B11111B6FFFFFF7777D50000B1EEEEFA6666D00000B144
+      44C6FFFFFF6666D00000B10000B10000B10000B10000B10000B10000B1AAAAE5
+      FFFFFF2222BB0000B10000B10000B10000B10000B10000B10000B12222BBFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF00
+      00B10000B10000B12222BBFFFFFF9999E00000B10000B10000B10000B10000B1
+      0000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000
+      B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B16666D0FFFFFF6666D00000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B13333C1FFFFFF
+      DDDDF50000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B11111B60000B10000B10000B177
+      77D5FFFFFFFFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B1
+      0000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B11111B6EEEEFAFFFFFFFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B10000B1FFFFFFFF
+      FFFFFFFFFF7777D5BBBBEAFFFFFFFFFFFFFFFFFF8888DB0000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADFFFFFFFFFFFFFFFFFFFFFFFFDDDDF43333BD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFA
+      AAAAE40000AD7777D3EEEEFA1111B20000AD7777D3CCCCEF0000AD6666CEFFFF
+      FF4444C30000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFADDDDF400
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADDDDDF4EEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000
+      AD3333BDCCCCEFEEEEFA3333BD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      BBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000ADAAAAE4FFFFFF1111B20000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD3333BDEEEEFAFFFFFF6666CE00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD1111B2AAAAE4FFFFFFFFFF
+      FFFFFFFFFFFFFF7777D30000AD0000AD0000AD0000AD0000AD0000AD0000ADFF
+      FFFFFFFFFFFFFFFF7777D30000AD0000AD0000AD9999DEFFFFFFFFFFFFEEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADFFFFFFFFFFFFFFFF
+      FFDDDDF4FFFFFFFFFFFFFFFFFFCCCCEF1111B20000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABFFFFFFCCCCEE4444C15555C7DDDDF4FFFFFF3333BC0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FF4444C10000AB0000AB0000AB0000AB0000AB0000AB0000ABCCCCEECCCCEE00
+      00ABEEEEF98888D80000AB0000AB1111B1FFFFFF4444C17777D2FFFFFF3333BC
+      0000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFBBBBE90000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      DDDDF43333BC0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBB
+      E9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFF4444C10000AB0000AB0000AB0000AB0000AB
+      0000ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB6666CDFFFFFFFFFFFF8888D80000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      EEEEF91111B10000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFF
+      FFFFFFFF7777D20000AB0000AB0000AB7777D2FFFFFFFFFFFFFFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF3333BC0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000B50000B50000B50000B50000B50000B50000B50000B5FFFF
+      FFBBBBEB0000B50000B52222BFFFFFFFBBBBEB0000B50000B50000B50000B500
+      00B50000B50000B50000B5BBBBEBFFFFFF7777D87777D87777D87777D82222BF
+      0000B50000B50000B50000B50000B50000B50000B5AAAAE6DDDDF55555CEFFFF
+      FF2222BF0000B50000B50000B59999E1AAAAE69999E1FFFFFF1111BA0000B500
+      00B50000B50000B50000B50000B50000B5EEEEFADDDDF50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B5DDDDF5EEEEFA0000B50000B50000
+      B50000B50000B50000B50000B5BBBBEBFFFFFF4444C94444C9CCCCF0EEEEFA22
+      22BF0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF
+      0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF7777
+      D87777D87777D87777D82222BF0000B50000B50000B50000B50000B50000B5AA
+      AAE6FFFFFF2222BF0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5BBBB
+      EBFFFFFF0000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B55555CEFFFFFFEEEEFA5555CE0000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B54444C9FFFFFFFFFFFFFFFFFFFFFFFFDDDDF53333C400
+      00B50000B50000B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFF
+      7777D80000B50000B50000B59999E1FFFFFFFFFFFFEEEEFA0000B50000B50000
+      B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFFBBBBEBFFFFFFFF
+      FFFFFFFFFF5555CE0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B500009F00009F00009F00009F00009F00009F00009F00009FFFFFFFBBBBE5
+      00009F00009F00009FCCCCECFFFFFF00009F00009F00009F00009F00009F0000
+      9F00009F00009FBBBBE5FFFFFF00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F8888D2FFFFFFCCCCECAAAADF00009F
+      00009F00009F00009F2222ACFFFFFFCCCCECFFFFFF00009F00009F00009F0000
+      9F00009F00009F00009F00009FAAAADFFFFFFF2222AC00009F00009F00009F00
+      009F00009F00009F00009F2222ACFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009FBBBBE5FFFFFF00009F00009F2222ACFFFFFF8888D20000
+      9F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00
+      009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F6666C5FFFF
+      FF7777CC00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9FCCCCECFFFFFF3333B200009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F7777CCFFFFFFFFFFFFFFFFFFAAAADF1111A500009F00009F0000
+      9F00009F00009F00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CC00
+      009F00009F1111A5EEEEF9FFFFFFFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CCAAAADFFFFFFFFFFF
+      FFEEEEF91111A500009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      8E00008E00008E00008E00008E00008E00008E00008EFFFFFFBBBBE100008E00
+      008E00008ECCCCE8EEEEF700008E00008E00008E00008E00008E00008E00008E
+      00008EBBBBE1FFFFFF00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E6666BBFFFFFFFFFFFF3333A500008E00008E00
+      008E00008E00008EAAAAD9FFFFFFDDDDF000008E00008E00008E00008E00008E
+      00008E00008E00008E4444ACFFFFFFAAAAD900008E00008E00008E00008E0000
+      8E00008E00008EAAAAD9FFFFFF4444AC00008E00008E00008E00008E00008E00
+      008E00008EBBBBE1FFFFFF00008E00008E00008EFFFFFFBBBBE100008E00008E
+      00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E0000
+      8E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E111196EEEEF7EEEEF7
+      11119600008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008EFFFFFF
+      CCCCE800008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E7777C3FFFFFFFFFFFFFFFFFF00008E00008E22229D3333A500008E00008E
+      00008E00008E00008E00008E00008EFFFFFFFFFFFFFFFFFF7777C300008E1111
+      969999D2FFFFFFFFFFFFFFFFFF6666BB00008E00008E00008E00008E00008E00
+      008E00008E00008EFFFFFFFFFFFFFFFFFF7777C3111196EEEEF7FFFFFFFFFFFF
+      8888CA00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E000091000091
+      000091000091000091000091000091000091FFFFFFBBBBE20000910000913333
+      A7FFFFFFBBBBE2000091000091000091000091000091000091000091000091BB
+      BBE2FFFFFF000091000091000091000091000091000091000091000091000091
+      0000910000910000914444AEFFFFFFBBBBE20000910000910000910000910000
+      910000914444AEFFFFFFBBBBE200009100009100009100009100009100009100
+      00910000910000919999D3FFFFFF9999D3000091000091000091000091000091
+      9999D3FFFFFF9999D30000910000910000910000910000910000910000910000
+      91BBBBE2FFFFFF0000910000914444AEFFFFFF9999D300009100009100009100
+      0091000091000091000091000091BBBBE2FFFFFF000091000091000091000091
+      000091000091000091000091BBBBE2FFFFFF0000910000910000910000910000
+      910000910000910000910000910000910000910000914444AEFFFFFFDDDDF044
+      44AE0000910000910000910000912222A03333A7000091000091000091000091
+      000091000091000091000091000091000091BBBBE2FFFFFF0000910000910000
+      91000091000091000091000091000091000091000091000091DDDDF0DDDDF000
+      00910000910000912222A0000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000913333
+      A7FFFFFFFFFFFFFFFFFFCCCCE9BBBBE2FFFFFF4444AE00009100009100009100
+      0091000091000091000091FFFFFFFFFFFFFFFFFFDDDDF0BBBBE2EEEEF8FFFFFF
+      FFFFFFFFFFFFBBBBE20000910000910000910000910000910000910000910000
+      91000091FFFFFFFFFFFFFFFFFF7777C40000916666BDFFFFFFFFFFFFFFFFFF44
+      44AE000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100007800007800007800
+      0078000078000078000078000078FFFFFFDDDDED6666AE8888C0EEEEF6EEEEF6
+      333393000078000078000078000078000078000078000078000078BBBBDBFFFF
+      FF7777B77777B77777B77777B744449C00007800007800007800007800007800
+      007800007822228AFFFFFF5555A5000078000078000078000078000078000078
+      000078CCCCE4AAAAD20000780000780000780000780000780000780000780000
+      780000780000789999C9FFFFFFEEEEF69999C97777B79999C9EEEEF6FFFFFF99
+      99C9000078000078000078000078000078000078000078000078000078BBBBDB
+      FFFFFF6666AE7777B7EEEEF6FFFFFF3333930000780000780000780000780000
+      78000078000078000078BBBBDBFFFFFF00007800007800007800007800007800
+      0078000078000078BBBBDBFFFFFF7777B77777B77777B77777B744449C000078
+      0000780000780000780000780000780000780000785555A5EEEEF6FFFFFFCCCC
+      E49999C99999C9BBBBDBFFFFFF6666AE00007800007800007800007800007811
+      11817777B77777B77777B77777B7DDDDEDFFFFFF7777B77777B77777B77777B7
+      3333930000780000780000780000780000780000786666AEFFFFFFAAAAD26666
+      AE9999C99999C900007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078AAAAD2
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF44449C0000780000780000780000780000
+      78000078000078FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBB
+      BBDB111181000078000078000078000078000078000078000078000078000078
+      FFFFFFFFFFFFFFFFFF7777B7000078000078BBBBDBFFFFFFFFFFFFDDDDED1111
+      8100007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      00007800007800007800007800007800007800007A00007A00007A00007A0000
+      7A00007A00007A00007AFFFFFFFFFFFFFFFFFFDDDDEDAAAAD322228C00007A00
+      007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF7777B800007A00007A00007A00007A00007A00007A0000
+      7A00007ACCCCE400007A00007A00007A00007A00007A00007A00007A00007A44
+      449D8888C100007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A44449DAAAAD3EEEEF6FFFFFFEEEEF6AAAAD344449D00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFF
+      FFFFEEEEF6BBBBDC44449D00007A00007A00007A00007A00007A00007A00007A
+      00007A00007ABBBBDCFFFFFF00007A00007A00007A00007A00007A00007A0000
+      7A00007ABBBBDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777B800007A00007A00
+      007A00007A00007A00007A00007A00007A00007A1111838888C1CCCCE4FFFFFF
+      FFFFFFDDDDED9999CA33339500007A00007A00007A00007A00007A22228CFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555A600
+      007A00007A00007A00007A00007A00007A00007A6666AFDDDDEDFFFFFFBBBBDC
+      22228C00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A7777B8CC
+      CCE4FFFFFFFFFFFFFFFFFF44449D00007A00007A00007A00007A00007A00007A
+      00007AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAAAAD36666AF00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007AFFFFFFFF
+      FFFFFFFFFF7777B800007A00007A44449DFFFFFFFFFFFFFFFFFF9999CA00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      970000970000970000970000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A600009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      007900006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      00005100005100005100005100005100005100004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      005800005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      006000006000006000006000006000006000006000006000006000005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      00005500005500005500005500005500005500005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      006400005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069
+    }
+  end
+  object Bevel2: TBevel
+    Left = 0
+    Height = 2
+    Top = 64
+    Width = 499
+    Align = alTop
+    Shape = bsTopLine
+  end
+  object Bevel3: TBevel
+    Left = 0
+    Height = 2
+    Top = 375
+    Width = 499
+    Align = alBottom
+    Shape = bsTopLine
+  end
+  object Label1: TLabel
+    Left = 8
+    Height = 14
+    Top = 80
+    Width = 296
+    Caption = 'You are about to create your RemObjects SDK Server Project'
+    ParentColor = False
+  end
+  object lbl_CreateClientAndGroup: TLabel
+    Left = 44
+    Height = 27
+    Top = 225
+    Width = 334
+    Caption = 'In addition to the Server project, RemObjects SDK will create a client project to connect to your server.'
+    ParentColor = False
+    WordWrap = True
+  end
+  object lbl_GuideWizard: TLabel
+    Left = 44
+    Height = 27
+    Top = 289
+    Width = 344
+    Caption = 'After creating your project(s), a template-specific wizard will guide you through the further steps needed to complete your application.'
+    ParentColor = False
+    WordWrap = True
+  end
+  object Label5: TLabel
+    Left = 16
+    Height = 14
+    Top = 99
+    Width = 83
+    Caption = 'Project Folder:'
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 16
+    Height = 14
+    Top = 147
+    Width = 80
+    Caption = 'Project Name:'
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentColor = False
+    ParentFont = False
+  end
+  object Panel1: TPanel
+    Left = 0
+    Height = 41
+    Top = 377
+    Width = 499
+    Align = alBottom
+    BevelOuter = bvNone
+    ClientHeight = 41
+    ClientWidth = 499
+    TabOrder = 6
+    object btn_Ok: TBitBtn
+      Left = 340
+      Height = 25
+      Top = 8
+      Width = 75
+      Anchors = [akRight, akBottom]
+      Caption = 'OK'
+      Default = True
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+        6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+        9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+        9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+        4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+        65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+        00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+        00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 1
+      NumGlyphs = 2
+      TabOrder = 0
+    end
+    object btn_Cancel: TBitBtn
+      Left = 419
+      Height = 25
+      Top = 8
+      Width = 75
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = 'Cancel'
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 2
+      NumGlyphs = 2
+      TabOrder = 1
+    end
+  end
+  object cb_CreateClientAndGroup: TCheckBox
+    Left = 16
+    Height = 21
+    Top = 203
+    Width = 371
+    Caption = 'Also create a matching client application and a project group'
+    Checked = True
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    OnClick = cb_CreateClientAndGroupClick
+    ParentFont = False
+    State = cbChecked
+    TabOrder = 3
+  end
+  object cb_GuideWizard: TCheckBox
+    Left = 16
+    Height = 21
+    Top = 267
+    Width = 446
+    Caption = 'Run the New Server Wizard to guide you through the setup of your project'
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 4
+  end
+  object btn_AdvancedOptions: TBitBtn
+    Left = 16
+    Height = 25
+    Top = 336
+    Width = 177
+    Caption = 'Advanced Project Options...'
+    Glyph.Data = {
+      36050000424D3605000000000000360400002800000010000000100000000100
+      0800000000000001000000000000000000000001000000010000FF00FF002423
+      25002D2A2A00383435003A3A3A00413B3B00413D3D003733470021346A002A3B
+      6900273F7300484343004D4948005C47420045465B005A5757005B5959005F5E
+      5E007E5F5800737373007676770089575300895754009A7E65009C7F6600AD70
+      6B00B4766D00BB7D6E0082807F0091847800AC8C6F00C4866F00CA8C7200D193
+      7300D7997400DA9D7500E7AB7900244283003B5781003B528E0041628E00787D
+      83004F7EAF004074B7003481DC007FB1CE004397E2004398E3004399E50053AC
+      EA0053AFED0062B4E000918B80008890A400D19D8000D79F8000D8A18100C1AF
+      9D00D4B79700C6B6A700EEC29800F3C99F00F6CA9D00D4C2B100D1C9B700F6CB
+      A200F8CBA100F3CFAA00E1CAB500E1CDB900E2CFBC00E7D5BD00EED5BA00F7D5
+      B200F6D5B500F3D7B800F3D9BC008FE2F000B4E5F300BCEAF300E1D4C600E7D5
+      C400EDDDC700EDDECA00F4DAC000F6DCC200EFE1CE00F0E3CB00F6E2CC00F3E6
+      CE00F6E7CE00EFE3D300F2E6D700F8EEDD00EDEDED00F7EFE300F6EBE600F8EE
+      E700F7F3EA00FAF6EE00FBF7F200FBFBFA00FBFBFC00FEFEFE00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000015151515151515151515000000000000155146464444
+      44444715000000000000195D5C5B565352525A150000000000001A5F49424141
+      3E435A150000000000001B625A55554B4B4856150000000000001F63493E4142
+      3C3A40150000000000002064513B3F46391D341200000000000021663517171E
+      26280E0D000000060202226626261C26332609070014040601062366264F2633
+      2633260A081429060306246666264F263326332F2C145E060C0B24635F5F264D
+      2633312E2C145E060F102437373737262D4E312F25145E061414000000000000
+      002A2B2700141406141000000000000000000000000000060406
+    }
+    NumGlyphs = 0
+    OnClick = btn_AdvancedOptionsClick
+    TabOrder = 5
+  end
+  object ed_ProjectFolder: TComboBox
+    Left = 44
+    Height = 21
+    Top = 118
+    Width = 448
+    Anchors = [akTop, akLeft, akRight]
+    AutoComplete = False
+    Ctl3D = False
+    ItemHeight = 13
+    ItemWidth = 0
+    OnChange = ed_ProjectFolderChange
+    TabOrder = 0
+  end
+  object btn_Browse: TBitBtn
+    Left = 596
+    Height = 25
+    Top = 116
+    Width = 75
+    Anchors = [akTop, akRight]
+    Caption = '&Browse'
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF1C99CE2BA5D51C9DD10A8AC6FF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFBFA5A34D5A72FF00FFFF00FF249CCFA6EEF7
+      6CEBF85DD9F04AC7E739B8E020A0D40F91CA0F91C9FF00FFFF00FFBFA5A35766
+      831276E23C91DCFF00FF0C8CC799DDEF8BFFFF80FCFF82FBFF7FFAFF79F3FF65
+      E1F74ECEED3CBAE07591A05B66811170D833A1FF2A9AFEFF00FF1296CC59BADE
+      9FFEFF75F7FF78F6FF77F2FC89D9E087D7DE7BE2EA91BCC05168891370D531A0
+      FF319EFBFF00FFFF00FF26A5D448C1E69FEFF879F6FB87D8DCBACABCDABCA5D0
+      B59EAF9A8C817A734179AF32A3FF3DACFE1B9CD4FF00FFFF00FF27AFDE8B97A1
+      88CFE28BD1D3CBB4ADF7F0DDFFFFD8FFFFD9FAF8C5CFB08CC4A9A34DC1FC55D0
+      FB41C1E3FF00FFFF00FF25AFE1AD706B5DBCDDB5A69EF7F4EEFFFFFFFFFFE3FF
+      FFD4FFF7C1FFE6A5D8A0826FD4EB59D7FB68E2F80E90C9FF00FF26AFE1B5776D
+      A4CFD9CEB69EFFFFEAFFFFF3FFFFEAFFFFD7F7DCA9F6C986E1B89191C0C753D3
+      FB7EF3FF28AAD8FF00FF28B0E0BC7F6EFFF4EBD5BCA1FFFFDDFFFFDDFFFFE0FF
+      FACAEFBD81F4BD77E7C49A93C0C44FD3FB7DF4FF56D5EFFF00FF28AFE1C58870
+      FFFCF8CAAA99FEFFCEFFFFC9F8E1ADF0C78CF3CA96FFEBB5D5AF959AC9D37AE0
+      FE9DFBFF96F8FF23A1D328B0E1CE9173FFFAF7D8C4BDDCC59EFCE5A7FAC782FB
+      D08BFFF7E0E7DCCE8CA5AA6BC9E65FBCE060BBDE6CC4E329A1D12DB2E2D59975
+      FFF8F3FCFBFAE5D1C9E9CAA6E7C599E1C298CCB59FB18B8875E7F86DEDFE179D
+      D1FF00FFFF00FFFF00FF1FA1D9DDA077FFFBF6FFFFFFFFFFFFFFFFFEFBF4EBB4
+      8379BF7849B16F5350C0E550C4E71C9DD0FF00FFFF00FFFF00FFFF00FFE2A678
+      FFFFFFFFFFFFFFFFFFFFFFFFF8FAFCB6877AE29955FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFE7AB79D1926DD1926DD1926DD1926DD1926DB4
+      7E6FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+    }
+    NumGlyphs = 0
+    OnClick = btn_BrowseClick
+    TabOrder = 1
+  end
+  object ed_ProjectName: TEdit
+    Left = 44
+    Height = 21
+    Top = 166
+    Width = 448
+    Anchors = [akTop, akLeft, akRight]
+    OnChange = ed_ProjectNameChange
+    TabOrder = 2
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.lrs
new file mode 100644
index 0000000..0b80197
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.lrs	
@@ -0,0 +1,3473 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TNewProjectForm','FORMDATA',[
+  'TPF0'#15'TNewProjectForm'#14'NewProjectForm'#4'Left'#3'Q'#1#6'Height'#3#162#1
+  +#3'Top'#3#177#0#5'Width'#3#243#1#13'ActiveControl'#7#16'ed_ProjectFolder'#11
+  +'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'
+  +#6#25'New RemObjects SDK Server'#12'ClientHeight'#3#162#1#11'ClientWidth'#3
+  +#243#1#21'Constraints.MinHeight'#3#238#0#20'Constraints.MinWidth'#3','#1#11
+  +'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#8'Position'#7#14'poScreenCenter'
+  +#10'LCLVersion'#6#6'0.9.27'#0#6'TBevel'#6'Bevel1'#4'Left'#2#4#6'Height'#2#2#3
+  +'Top'#3'&'#2#5'Width'#3#161#2#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'
+  +#0#0#0#6'TImage'#6'Image2'#4'Left'#2#0#6'Height'#2'@'#3'Top'#2#0#5'Width'#3
+  +#243#1#5'Align'#7#5'alTop'#8'AutoSize'#9#12'Picture.Data'#10'Bw'#1#0#7'TBitm'
+  +'ap6w'#1#0'BM8w'#1#0#0#0#0#0'6'#0#0#0'('#0#0#0#244#1#0#0'@'#0#0#0#1#0#24#0#0
+  +#0#0#0#2'w'#1#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#0#0#188#0#0#188#0#0#188#0
+  +#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  ,#0#0#188#0#0#188#0#0#188#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  ,#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  ,#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142'DD'#172'ww'#195'ff'#187#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  ,#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#255#255#255#255#255#255#255#255#255#221#221#241'""'#163#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  ,#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155'UU'#188#0#0#155'UU'#188#255#255#255#170#170#222#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  ,#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#204#204#239#238#238#250#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#255#255#255#187#187#232#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255
+  +#255'ww'#209#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#153#153#220#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#170#170#226#255#255#255'""'#180#0#0
+  +#168#0#0#168#0#0#168'DD'#191#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168#255
+  +#255#255#238#238#249#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168'DD'#191#170#170#226#238#238#249#255#255#255#238#238
+  +#249#170#170#226'DD'#191#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255#255#255#255#255#255#255#255
+  +#221#221#243#136#136#214#17#17#174#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0
+  +#0#168#0#0#168#0#0#168#187#187#232#255#255#255#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#17#17#174#136#136#214#204#204#238
+  ,#255#255#255#255#255#255#221#221#243#153#153#220'33'#185#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255
+  +#255#255#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168'33'#185#170#170#226#221#221#243#255#255#255#204#204#238'DD'#191
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#255#255
+  +#255#255#255#255#255#255#255#255#255#255#204#204#238'ww'#209#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#170#170#226'ff'#203#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#255#255#255#255#255#255#255#255#255'ww'#209#0#0#168#0#0#168#17#17
+  +#174#238#238#249#255#255#255#255#255#255#255#255#255#153#153#220#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#255#255#255#187#187#234#0#0#177#0#0#177#0#0#177
+  +'ww'#213#255#255#255#153#153#224#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#187#187#234#255#255#255'ww'#213'ww'#213'ww'#213'ww'#213'DD'#198
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177'ww'#213#255#255#255'33'#193
+  +#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#17#17#182#0#0#177#0#0#177#0
+  +#0#177#255#255#255#187#187#234#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#153#153#224#255#255#255#238#238#250#153#153#224
+  +'ww'#213#153#153#224#238#238#250#255#255#255#153#153#224#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255
+  +'ww'#213'ww'#213#170#170#229#255#255#255#221#221#245#17#17#182#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255
+  +#255'ww'#213'ww'#213'ww'#213'ww'#213'DD'#198#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177'UU'#203#238#238#250#255#255#255#187#187#234
+  +#136#136#219'ww'#213#170#170#229#238#238#250'ww'#213#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255
+  +#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177'ff'#208#238#238#250#136#136#219'ff'#208#187#187#234#255#255#255'DD'
+  +#198#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#204#204#239#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255#255#255
+  ,#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#187#187#234#17#17#182#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0
+  +#0#177#0#0#177#0#0#177#255#255#255#255#255#255#255#255#255'ww'#213#0#0#177#0
+  +#0#177#170#170#229#255#255#255#255#255#255#255#255#255#187#187#234#0#0#177#0
+  +#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#255#255#255#187#187#231#0#0#166#0#0
+  +#166'33'#184#255#255#255#187#187#231#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166'UU'#196#255#255
+  +#255'DD'#190#0#0#166#0#0#166'33'#184#255#255#255#255#255#255'ww'#208#0#0#166
+  +#0#0#166'""'#178#255#255#255#153#153#219#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#153#153#219#255#255#255#153#153#219#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#153#153#219#255#255#255#153#153#219#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#187#187#231#255#255#255
+  +#0#0#166#0#0#166#0#0#166'ff'#202#255#255#255'ww'#208#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#187#187#231#255#255#255#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166'DD'#190#255#255#255#221#221#243'33'#184#0#0#166#0#0#166#0#0#166
+  +#0#0#166#17#17#172'33'#184#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0
+  +#0#166#0#0#166#0#0#166#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166'DD'#190#17#17
+  +#172#0#0#166#0#0#166#17#17#172#255#255#255#204#204#237#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166'33'#184#255#255#255#255#255#255#187#187#231
+  +#221#221#243#255#255#255#255#255#255#255#255#255'ff'#202#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#255#255#255#255#255#255#255#255#255#221
+  +#221#243#187#187#231#238#238#249#255#255#255#255#255#255#255#255#255#187#187
+  +#231#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#255#255#255#255#255#255#255#255#255'ww'#208#0#0#166'UU'#196#255#255#255#255
+  +#255#255#255#255#255#238#238#249#17#17#172#0#0#166#0#0#166#0#0#166#0#0#166#0
+  +#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  ,#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#255#255#255#187#187#235#0#0#179#0#0#179#221#221#245#238#238
+  +#250'""'#189#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#187#187#235#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179'33'#194#255#255#255'ff'#209#0#0#179#0#0
+  +#179#153#153#225#221#221#245'ff'#209#238#238#250#0#0#179#0#0#179'33'#194#255
+  +#255#255'ww'#214#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179'DD'
+  +#199#255#255#255#170#170#230#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#170#170#230#255#255#255'DD'#199#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#187#187#235#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179
+  +#255#255#255#187#187#235#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#187#187#235#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#187#187#235#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#17#17#184#238#238#250
+  +#221#221#245#17#17#184#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#187#187#235#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#221#221#245#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +'DD'#199#136#136#220#17#17#184#0#0#179#17#17#184#255#255#255#255#255#255#255
+  +#255#255#170#170#230#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#255#255#255#255#255#255#255#255#255'ww'#214#0#0#179#17#17#184#153#153#225
+  +#255#255#255#255#255#255#255#255#255'UU'#204#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#255#255#255#255#255#255#255#255#255'ww'#214
+  +#17#17#184#238#238#250#255#255#255#255#255#255#255#255#255'UU'#204#0#0#179#0
+  +#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  ,#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255#255#187#187#234#0#0
+  +#177#136#136#219#255#255#255'DD'#198#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#17#17
+  +#182#255#255#255#136#136#219#0#0#177#17#17#182#255#255#255'ww'#213#0#0#177
+  +#238#238#250'ff'#208#0#0#177'DD'#198#255#255#255'ff'#208#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#170#170#229#255#255#255'""'#187#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177'""'#187#255#255#255#170#170
+  +#229#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255
+  +#255#255#0#0#177#0#0#177#0#0#177'""'#187#255#255#255#153#153#224#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255
+  +#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177'ff'#208#255#255#255'ff'#208#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177'33'#193#255#255#255#221#221#245#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#17#17#182#0#0#177#0#0#177#0#0#177'ww'#213#255
+  +#255#255#255#255#255#255#255#255#187#187#234#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#255#255#255#255#255#255#255#255#255'ww'#213#0#0#177
+  +#0#0#177#17#17#182#238#238#250#255#255#255#255#255#255#170#170#229#0#0#177#0
+  +#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255#255#255#255
+  +#255#255#255#255'ww'#213#187#187#234#255#255#255#255#255#255#255#255#255#136
+  +#136#219#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  ,#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#255
+  +#255#255#255#255#255#255#255#255#255#255#255#221#221#244'33'#189#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255
+  +#255#255#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#238#238#250#170#170#228#0#0#173'ww'#211#238#238
+  +#250#17#17#178#0#0#173'ww'#211#204#204#239#0#0#173'ff'#206#255#255#255'DD'
+  +#195#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#238#238#250#221
+  +#221#244#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#221#221#244#238#238#250#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#187#187#233#255#255#255#0#0#173#0#0#173'33'#189#204#204#239#238#238
+  +#250'33'#189#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187
+  +#233#255#255#255#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#187#187#233#255#255#255#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#170#170#228#255#255#255#17#17#178#0
+  +#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187
+  +#233#255#255#255#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173'33'#189#238#238#250#255#255#255
+  +'ff'#206#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#17#17#178#170#170#228#255#255#255#255#255#255#255#255#255#255#255#255'ww'
+  +#211#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#255#255#255#255
+  +#255#255#255#255#255'ww'#211#0#0#173#0#0#173#0#0#173#153#153#222#255#255#255
+  +#255#255#255#238#238#250#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#255#255#255#255#255#255#255#255#255#221#221#244#255#255#255#255
+  +#255#255#255#255#255#204#204#239#17#17#178#0#0#173#0#0#173#0#0#173#0#0#173#0
+  +#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#171#0#0#171#0#0#171#0#0#171
+  ,#0#0#171#0#0#171#0#0#171#0#0#171#255#255#255#204#204#238'DD'#193'UU'#199#221
+  +#221#244#255#255#255'33'#188#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#187#187#233#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255'DD'#193#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#204#204#238#204#204#238#0#0#171#238#238#249#136#136#216#0#0#171#0#0#171#17
+  +#17#177#255#255#255'DD'#193'ww'#210#255#255#255'33'#188#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#255#255#255#187#187#233#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255
+  +#255#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255
+  +#255#255#255#255#255#255#255#255#255#255#255#221#221#244'33'#188#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'DD'#193#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233
+  +#255#255#255#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171'ff'#205#255#255#255#255#255#255#136#136#216
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#187#187#233#255#255#255#255#255#255#255#255#255#255#255#255#238#238#249#17
+  +#17#177#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#255#255#255
+  +#255#255#255#255#255#255'ww'#210#0#0#171#0#0#171#0#0#171'ww'#210#255#255#255
+  +#255#255#255#255#255#255#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255'33'#188#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#255#255#255#187#187#235#0#0#181#0#0#181'""'#191#255
+  +#255#255#187#187#235#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#187#187#235#255#255#255'ww'#216'ww'#216'ww'#216'ww'#216'""'#191#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#170#170#230#221#221#245
+  +'UU'#206#255#255#255'""'#191#0#0#181#0#0#181#0#0#181#153#153#225#170#170#230
+  +#153#153#225#255#255#255#17#17#186#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0
+  +#0#181#0#0#181#238#238#250#221#221#245#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#221#221#245#238#238#250#0#0#181#0#0#181
+  ,#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#187#187#235#255#255#255'DD'#201'DD'
+  +#201#204#204#240#238#238#250'""'#191#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#187#187#235#255#255#255#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#187#187#235#255#255#255'ww'#216'ww'#216
+  +'ww'#216'ww'#216'""'#191#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#170
+  +#170#230#255#255#255'""'#191#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#187#187#235#255#255#255#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181'UU'#206#255#255#255
+  +#238#238#250'UU'#206#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181'DD'#201#255#255#255#255#255#255#255#255#255#255#255#255
+  +#221#221#245'33'#196#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#255#255#255#255#255#255#255#255#255'ww'#216#0#0#181#0#0#181#0#0#181
+  +#153#153#225#255#255#255#255#255#255#238#238#250#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#255#255#255#255#255#255#255#255#255#187
+  +#187#235#255#255#255#255#255#255#255#255#255'UU'#206#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#255#255#255#187#187#229#0#0
+  +#159#0#0#159#0#0#159#204#204#236#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#187#187#229#255#255#255#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#136#136#210#255#255#255#204#204#236#170#170#223#0#0#159#0#0#159#0#0#159#0#0
+  +#159'""'#172#255#255#255#204#204#236#255#255#255#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#170#170#223#255#255#255'""'#172#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159'""'#172#255#255#255#170#170
+  +#223#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#187#187#229#255
+  +#255#255#0#0#159#0#0#159'""'#172#255#255#255#136#136#210#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#187#187#229#255#255#255#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#187#187#229#255#255
+  +#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159'ff'#197#255#255#255'ww'#204#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#187#187#229#255#255#255#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#204
+  ,#204#236#255#255#255'33'#178#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159'ww'#204#255#255#255#255#255#255#255#255
+  +#255#170#170#223#17#17#165#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0
+  +#0#159#0#0#159#0#0#159#255#255#255#255#255#255#255#255#255'ww'#204#0#0#159#0
+  +#0#159#17#17#165#238#238#249#255#255#255#255#255#255#170#170#223#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#255#255#255#255#255#255
+  +#255#255#255'ww'#204#170#170#223#255#255#255#255#255#255#238#238#249#17#17
+  +#165#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255
+  +#255#187#187#225#0#0#142#0#0#142#0#0#142#204#204#232#238#238#247#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142'ff'#187#255#255#255#255#255#255'33'#165#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#170#170#217#255#255#255#221#221#240#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142'DD'#172#255#255#255#170#170
+  +#217#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#170#170#217#255
+  +#255#255'DD'#172#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187
+  +#187#225#255#255#255#0#0#142#0#0#142#0#0#142#255#255#255#187#187#225#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255
+  +#255#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187#187
+  +#225#255#255#255#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#17#17#150#238#238#247#238#238#247#17#17#150#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255
+  +#255#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#255#255#255#204#204#232#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142'ww'#195#255#255#255
+  +#255#255#255#255#255#255#0#0#142#0#0#142'""'#157'33'#165#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255#255#255#255#255#255#255#255'ww'
+  +#195#0#0#142#17#17#150#153#153#210#255#255#255#255#255#255#255#255#255'ff'
+  +#187#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255
+  +#255#255#255#255#255#255#255'ww'#195#17#17#150#238#238#247#255#255#255#255
+  +#255#255#136#136#202#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  ,#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#255#255#255#187#187#226#0#0#145#0#0#145'33'#167#255#255#255#187#187
+  +#226#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187
+  +#226#255#255#255#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145'DD'#174#255#255#255#187#187#226#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145'DD'#174#255#255#255#187#187#226#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#153#153
+  +#211#255#255#255#153#153#211#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#153#153
+  +#211#255#255#255#153#153#211#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#187#187#226#255#255#255#0#0#145#0#0#145'DD'#174#255#255#255
+  +#153#153#211#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#187#187#226#255#255#255#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#187#187#226#255#255#255#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145'DD'#174#255#255#255
+  +#221#221#240'DD'#174#0#0#145#0#0#145#0#0#145#0#0#145'""'#160'33'#167#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187
+  +#187#226#255#255#255#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#221#221#240#221#221#240#0#0#145#0#0#145#0#0
+  +#145'""'#160#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145'33'
+  +#167#255#255#255#255#255#255#255#255#255#204#204#233#187#187#226#255#255#255
+  +'DD'#174#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#255#255#255
+  +#255#255#255#255#255#255#221#221#240#187#187#226#238#238#248#255#255#255#255
+  +#255#255#255#255#255#187#187#226#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#255#255#255#255#255#255#255#255#255'ww'#196#0#0
+  +#145'ff'#189#255#255#255#255#255#255#255#255#255'DD'#174#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  ,#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#255#255#255#221#221#237'ff'#174#136#136#192#238
+  +#238#246#238#238#246'33'#147#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#187#187#219#255#255#255'ww'#183'ww'#183'ww'#183'ww'#183'DD'#156#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x""'#138#255#255#255'UU'#165#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#204#204#228#170#170#210#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#153#153#201
+  +#255#255#255#238#238#246#153#153#201'ww'#183#153#153#201#238#238#246#255#255
+  +#255#153#153#201#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#187#187#219#255#255#255'ff'#174'ww'#183#238#238#246#255#255#255'33'#147#0
+  +#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255
+  +#255#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255
+  +#255#255'ww'#183'ww'#183'ww'#183'ww'#183'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'xUU'#165#238#238#246#255#255#255#204#204#228#153
+  +#153#201#153#153#201#187#187#219#255#255#255'ff'#174#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#17#17#129'ww'#183'ww'#183'ww'#183'ww'#183#221#221#237#255#255#255
+  +'ww'#183'ww'#183'ww'#183'ww'#183'33'#147#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0
+  +#0'xff'#174#255#255#255#170#170#210'ff'#174#153#153#201#153#153#201#0#0'x'#0
+  +#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0
+  +#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#170#170#210#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#187#187#219#17#17#129#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#255#255#255#255#255#255#255#255
+  +#255'ww'#183#0#0'x'#0#0'x'#187#187#219#255#255#255#255#255#255#221#221#237#17
+  +#17#129#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  ,#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#255#255#255#255#255#255#255#255
+  +#255#221#221#237#170#170#211'""'#140#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#187#187#220#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255'ww'#184#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#204#204#228#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zDD'
+  +#157#136#136#193#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'zDD'#157#170#170#211#238#238#246#255#255#255#238#238#246#170
+  +#170#211'DD'#157#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#187#187#220#255#255#255#255#255#255#238#238#246#187#187#220'DD'
+  +#157#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187#187
+  +#220#255#255#255#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187
+  +#187#220#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'ww'#184
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#17#17#131#136
+  +#136#193#204#204#228#255#255#255#255#255#255#221#221#237#153#153#202'33'#149
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z""'#140#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'UU'#166#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zff'#175#221
+  +#221#237#255#255#255#187#187#220'""'#140#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'zww'#184#204#204#228#255#255#255#255#255#255#255#255#255'DD'
+  +#157#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#170#170#211'ff'#175#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#255#255
+  +#255#255#255#255#255#255#255'ww'#184#0#0'z'#0#0'zDD'#157#255#255#255#255#255
+  +#255#255#255#255#153#153#202#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  ,#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'
+  +#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0#138#0#0#138#0#0#138#0#0#138#0
+  +#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  ,#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  ,#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  ,#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#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#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''#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#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''#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#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''#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#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''#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#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''#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#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''#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#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
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  ,#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  ,#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  ,#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  ,#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  ,#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  ,#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  ,#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  ,#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  ,#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  ,#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  ,#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  ,#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'
+  +#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  ,#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'
+  +#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  ,#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  ,#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'
+  +#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  ,#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#0#0'T'#0#0'T'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  ,#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'
+  +#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  ,#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'
+  +#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#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#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'`'#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#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'`'#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#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'`'
+  +#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#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'`'#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#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'`'#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#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'`'#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#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'_'#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#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'_'#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#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'_'#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#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'_'#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#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'_'#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#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'_'#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#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'_'#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'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  ,#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'
+  +#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'
+  +#0#0'U'#0#0'U'#0#0'U'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  ,#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'
+  +#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#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#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'\'#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#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'\'#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#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'\'#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#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'\'
+  +#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#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'\'#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#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'\'#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#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'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  ,#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  ,#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'
+  +#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  ,#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'
+  +#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  ,#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  ,#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'
+  +#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#0#6'Height'#2
+  +#2#3'Top'#2'@'#5'Width'#3#243#1#5'Align'#7#5'alTop'#5'Shape'#7#9'bsTopLine'#0
+  +#0#6'TBevel'#6'Bevel3'#4'Left'#2#0#6'Height'#2#2#3'Top'#3'w'#1#5'Width'#3#243
+  +#1#5'Align'#7#8'alBottom'#5'Shape'#7#9'bsTopLine'#0#0#6'TLabel'#6'Label1'#4
+  +'Left'#2#8#6'Height'#2#14#3'Top'#2'P'#5'Width'#3'('#1#7'Caption'#6':You are '
+  +'about to create your RemObjects SDK Server Project'#11'ParentColor'#8#0#0#6
+  +'TLabel'#24'lbl_CreateClientAndGroup'#4'Left'#2','#6'Height'#2#27#3'Top'#3
+  +#225#0#5'Width'#3'N'#1#7'Caption'#6'iIn addition to the Server project, RemO'
+  +'bjects SDK will create a client project to connect to your server.'#11'Pare'
+  +'ntColor'#8#8'WordWrap'#9#0#0#6'TLabel'#15'lbl_GuideWizard'#4'Left'#2','#6'H'
+  +'eight'#2#27#3'Top'#3'!'#1#5'Width'#3'X'#1#7'Caption'#6#136'After creating y'
+  +'our project(s), a template-specific wizard will guide you through the furth'
+  +'er steps needed to complete your application.'#11'ParentColor'#8#8'WordWrap'
+  +#9#0#0#6'TLabel'#6'Label5'#4'Left'#2#16#6'Height'#2#14#3'Top'#2'c'#5'Width'#2
+  +'S'#7'Caption'#6#15'Project Folder:'#11'Font.Height'#2#245#9'Font.Name'#6#6
+  +'Tahoma'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0
+  +#6'TLabel'#6'Label2'#4'Left'#2#16#6'Height'#2#14#3'Top'#3#147#0#5'Width'#2'P'
+  +#7'Caption'#6#13'Project Name:'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahom'
+  +'a'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'T'
+  +'Panel'#6'Panel1'#4'Left'#2#0#6'Height'#2')'#3'Top'#3'y'#1#5'Width'#3#243#1#5
+  +'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2')'#11'Cl'
+  +'ientWidth'#3#243#1#8'TabOrder'#2#6#0#7'TBitBtn'#6'btn_Ok'#4'Left'#3'T'#1#6
+  +'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0
+  +#7'Caption'#6#2'OK'#7'Default'#9#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0
+  +#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#196
+  +#14#0#0#196#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#30#178'1'#31#177'3'#0'f'#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'eee'#154#154#154#154#154#154'ee'
+  +'e'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0'f'#0'1'#194'O"'#183'8'#26#176'-!'#180
+  +'7'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'eee'#171#171#171#158#158#158#151#151#151
+  +#156#156#156'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0'f'#0'G'#211'm;'#203'^%'#168';'#0'f'#0#27#169
+  +'.'#29#177'2'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#191#191#191#181#181#181#152#152#152'eee'#148
+  +#148#148#153#153#153'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0'f'#0'O'#214'yS'#222'1'#181'M'#0'f'#0#255#0#255#0'f'#0
+  +#23#157''''#30#174'1'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'eee'#196#196#196#202#202#202#165#165#165'eee'#255#0#255'eee'
+  +#140#140#140#152#152#152'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0'f'#0'A'#197'c'#0'f'#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0'f'#0#25#170'+'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#181#181#181'eee'#255#0#255#255#0#255#255#0#255
+  ,#255#0#255'eee'#147#147#147'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#0'f'#0#20#157'!'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'eee'#138#138#138'eee'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#11'ModalResult'#2#1#9'NumGlyphs'#2#2#8'TabOrder'#2#0#0#0
+  +#7'TBitBtn'#10'btn_Cancel'#4'Left'#3#163#1#6'Height'#2#25#3'Top'#2#8#5'Width'
+  +#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Caption'#6#6'Canc'
+  +'el'#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0
+  +' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#196#14#0#0#196#14#0#0#0#0#0#0#0#0
+  +#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'k'
+  +'kkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#23'J'#253#16';'
+  +#244#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#0','#248#0'0'
+  +#252#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#168#168#168#160#160
+  +#160'kkk'#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#154#154#154#156#156
+  +#156'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#26'G'#248#26'L'#255
+  +#18';'#241#0#0#154#255#0#255#255#0#255#0#0#154#1'-'#246#1'2'#255#0'*'#243#0#0
+  +#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167#167#167#170#170#170#159
+  +#159#159'kkk'#255#0#255#255#0#255'kkk'#153#153#153#158#158#158#151#151#151'k'
+  +'kk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#28'G'#246#27
+  +'M'#255#20'>'#244#0#0#154#0#0#154#0'-'#248#1'4'#255#3'+'#242#0#0#154#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167#167#167#171
+  +#171#171#162#162#162'kkkkkk'#154#154#154#158#158#158#152#152#152'kkk'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#29
+  ,'H'#246#29'P'#255#16'='#251#4'1'#254#1'2'#255#0','#246#0#0#154#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167
+  +#167#167#172#172#172#163#163#163#159#159#159#158#158#158#153#153#153'kkk'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#154#26'H'#249#19'B'#255#12'<'#255#7'3'#246#0#0#154#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'kkk'#167#167#167#167#167#167#163#163#163#156#156#156'kkk'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154'!N'#252#29'K'#255#24'G'#255#23'C'#246#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'kkk'#172#172#172#172#172#172#169#169#169#164#164#164
+  +'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154'.['#249',_'#255'"M'#248' K'#248'#U'#255#27'F'
+  +#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'kkk'#177#177#177#179#179#179#171#171#171#170#170#170#175#175
+  +#175#166#166#166'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#154'6d'#250'8k'#255'-Y'#244#0#0#154#0#0#154'"L'#244'%X'
+  +#255#29'I'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255'kkk'#182#182#182#185#185#185#174#174#174'kkkkkk'#169#169#169#176#176
+  +#176#167#167#167'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+  +#154'@q'#250'Bt'#255'2]'#241#0#0#154#255#0#255#255#0#255#0#0#154'"M'#241'''Z'
+  +#255' L'#248#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#187#187#187
+  +#190#190#190#175#175#175'kkk'#255#0#255#255#0#255'kkk'#167#167#167#177#177
+  +#177#170#170#170'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154'Iz'#252
+  +';f'#243#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154'%P'#244'&U'
+  +#250#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#192#192#192#181#181
+  +#181'kkk'#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#170#170#170#174#174
+  +#174'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#11'ModalResult'#2#2#9
+  +'NumGlyphs'#2#2#8'TabOrder'#2#1#0#0#0#9'TCheckBox'#23'cb_CreateClientAndGrou'
+  +'p'#4'Left'#2#16#6'Height'#2#21#3'Top'#3#203#0#5'Width'#3's'#1#7'Caption'#6
+  +'=Also create a matching client application and a project group'#7'Checked'#9
+  +#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#6'fsBold'#0
+  +#7'OnClick'#7#28'cb_CreateClientAndGroupClick'#10'ParentFont'#8#5'State'#7#9
+  +'cbChecked'#8'TabOrder'#2#3#0#0#9'TCheckBox'#14'cb_GuideWizard'#4'Left'#2#16
+  +#6'Height'#2#21#3'Top'#3#11#1#5'Width'#3#190#1#7'Caption'#6'HRun the New Ser'
+  +'ver Wizard to guide you through the setup of your project'#11'Font.Height'#2
+  +#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#6'fsBold'#0#10'ParentFont'#8
+  +#8'TabOrder'#2#4#0#0#7'TBitBtn'#19'btn_AdvancedOptions'#4'Left'#2#16#6'Heigh'
+  +'t'#2#25#3'Top'#3'P'#1#5'Width'#3#177#0#7'Caption'#6#27'Advanced Project Opt'
+  +'ions...'#10'Glyph.Data'#10':'#5#0#0'6'#5#0#0'BM6'#5#0#0#0#0#0#0'6'#4#0#0'('
+  +#0#0#0#16#0#0#0#16#0#0#0#1#0#8#0#0#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1
+  +#0#0#255#0#255#0'$#%'#0'-**'#0'845'#0':::'#0'A;;'#0'A=='#0'73G'#0'!4j'#0'*;i'
+  +#0'''?s'#0'HCC'#0'MIH'#0'\GB'#0'EF['#0'ZWW'#0'[YY'#0'_^^'#0'~_X'#0'sss'#0'vv'
+  +'w'#0#137'WS'#0#137'WT'#0#154'~e'#0#156'f'#0#173'pk'#0#180'vm'#0#187'}n'#0
+  +#130#128''#0#145#132'x'#0#172#140'o'#0#196#134'o'#0#202#140'r'#0#209#147's'
+  +#0#215#153't'#0#218#157'u'#0#231#171'y'#0'$B'#131#0';W'#129#0';R'#142#0'Ab'
+  +#142#0'x}'#131#0'O~'#175#0'@t'#183#0'4'#129#220#0''#177#206#0'C'#151#226#0
+  +'C'#152#227#0'C'#153#229#0'S'#172#234#0'S'#175#237#0'b'#180#224#0#145#139#128
+  +#0#136#144#164#0#209#157#128#0#215#159#128#0#216#161#129#0#193#175#157#0#212
+  +#183#151#0#198#182#167#0#238#194#152#0#243#201#159#0#246#202#157#0#212#194
+  +#177#0#209#201#183#0#246#203#162#0#248#203#161#0#243#207#170#0#225#202#181#0
+  +#225#205#185#0#226#207#188#0#231#213#189#0#238#213#186#0#247#213#178#0#246
+  ,#213#181#0#243#215#184#0#243#217#188#0#143#226#240#0#180#229#243#0#188#234
+  +#243#0#225#212#198#0#231#213#196#0#237#221#199#0#237#222#202#0#244#218#192#0
+  +#246#220#194#0#239#225#206#0#240#227#203#0#246#226#204#0#243#230#206#0#246
+  +#231#206#0#239#227#211#0#242#230#215#0#248#238#221#0#237#237#237#0#247#239
+  +#227#0#246#235#230#0#248#238#231#0#247#243#234#0#250#246#238#0#251#247#242#0
+  +#251#251#250#0#251#251#252#0#254#254#254#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#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#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#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#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#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#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#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#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#21
+  +#21#21#21#21#21#21#21#21#21#0#0#0#0#0#0#21'QFFDDDDG'#21#0#0#0#0#0#0#25']\[VS'
+  +'RRZ'#21#0#0#0#0#0#0#26'_IBAA>CZ'#21#0#0#0#0#0#0#27'bZUUKKHV'#21#0#0#0#0#0#0
+  +#31'cI>AB<:@'#21#0#0#0#0#0#0' dQ;?F9'#29'4'#18#0#0#0#0#0#0'!f5'#23#23#30'&('
+  +#14#13#0#0#0#6#2#2'"f&&'#28'&3&'#9#7#0#20#4#6#1#6'#f&O&3&3&'#10#8#20')'#6#3#6
+  +'$ff&O&3&3/,'#20'^'#6#12#11'$c__&M&31.,'#20'^'#6#15#16'$7777&-N1/%'#20'^'#6
+  +#20#20#0#0#0#0#0#0#0'*+'''#0#20#20#6#20#16#0#0#0#0#0#0#0#0#0#0#0#0#0#6#4#6#9
+  +'NumGlyphs'#2#0#7'OnClick'#7#24'btn_AdvancedOptionsClick'#8'TabOrder'#2#5#0#0
+  +#9'TComboBox'#16'ed_ProjectFolder'#4'Left'#2','#6'Height'#2#21#3'Top'#2'v'#5
+  +'Width'#3#192#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComplet'
+  +'e'#8#5'Ctl3D'#8#10'ItemHeight'#2#13#9'ItemWidth'#2#0#8'OnChange'#7#22'ed_Pr'
+  +'ojectFolderChange'#8'TabOrder'#2#0#0#0#7'TBitBtn'#10'btn_Browse'#4'Left'#3
+  +'T'#2#6'Height'#2#25#3'Top'#2't'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRi'
+  +'ght'#0#7'Caption'#6#7'&Browse'#10'Glyph.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0
+  +#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0#18#11
+  +#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#28#153#206'+'#165#213#28#157#209#10
+  +#138#198#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#191#165#163'MZr'#255#0#255#255#0#255'$'#156#207#166#238#247'l'
+  +#235#248']'#217#240'J'#199#231'9'#184#224' '#160#212#15#145#202#15#145#201
+  +#255#0#255#255#0#255#191#165#163'Wf'#131#18'v'#226'<'#145#220#255#0#255#12
+  +#140#199#153#221#239#139#255#255#128#252#255#130#251#255''#250#255'y'#243
+  +#255'e'#225#247'N'#206#237'<'#186#224'u'#145#160'[f'#129#17'p'#216'3'#161#255
+  +'*'#154#254#255#0#255#18#150#204'Y'#186#222#159#254#255'u'#247#255'x'#246#255
+  +'w'#242#252#137#217#224#135#215#222'{'#226#234#145#188#192'Qh'#137#19'p'#213
+  +'1'#160#255'1'#158#251#255#0#255#255#0#255'&'#165#212'H'#193#230#159#239#248
+  +'y'#246#251#135#216#220#186#202#188#218#188#165#208#181#158#175#154#140#129
+  +'zsAy'#175'2'#163#255'='#172#254#27#156#212#255#0#255#255#0#255''''#175#222
+  +#139#151#161#136#207#226#139#209#211#203#180#173#247#240#221#255#255#216#255
+  +#255#217#250#248#197#207#176#140#196#169#163'M'#193#252'U'#208#251'A'#193#227
+  +#255#0#255#255#0#255'%'#175#225#173'pk]'#188#221#181#166#158#247#244#238#255
+  +#255#255#255#255#227#255#255#212#255#247#193#255#230#165#216#160#130'o'#212
+  +#235'Y'#215#251'h'#226#248#14#144#201#255#0#255'&'#175#225#181'wm'#164#207
+  +#217#206#182#158#255#255#234#255#255#243#255#255#234#255#255#215#247#220#169
+  +#246#201#134#225#184#145#145#192#199'S'#211#251'~'#243#255'('#170#216#255#0
+  +#255'('#176#224#188'n'#255#244#235#213#188#161#255#255#221#255#255#221#255
+  +#255#224#255#250#202#239#189#129#244#189'w'#231#196#154#147#192#196'O'#211
+  +#251'}'#244#255'V'#213#239#255#0#255'('#175#225#197#136'p'#255#252#248#202
+  +#170#153#254#255#206#255#255#201#248#225#173#240#199#140#243#202#150#255#235
+  +#181#213#175#149#154#201#211'z'#224#254#157#251#255#150#248#255'#'#161#211'('
+  +#176#225#206#145's'#255#250#247#216#196#189#220#197#158#252#229#167#250#199
+  +#130#251#208#139#255#247#224#231#220#206#140#165#170'k'#201#230'_'#188#224'`'
+  ,#187#222'l'#196#227')'#161#209'-'#178#226#213#153'u'#255#248#243#252#251#250
+  +#229#209#201#233#202#166#231#197#153#225#194#152#204#181#159#177#139#136'u'
+  +#231#248'm'#237#254#23#157#209#255#0#255#255#0#255#255#0#255#31#161#217#221
+  +#160'w'#255#251#246#255#255#255#255#255#255#255#255#254#251#244#235#180#131
+  +'y'#191'xI'#177'oSP'#192#229'P'#196#231#28#157#208#255#0#255#255#0#255#255#0
+  +#255#255#0#255#226#166'x'#255#255#255#255#255#255#255#255#255#255#255#255#248
+  +#250#252#182#135'z'#226#153'U'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#231#171'y'#209#146'm'#209#146'm'#209#146
+  +'m'#209#146'm'#209#146'm'#180'~o'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#0#7'OnClick'#7#15'btn_Br'
+  +'owseClick'#8'TabOrder'#2#1#0#0#5'TEdit'#14'ed_ProjectName'#4'Left'#2','#6'H'
+  +'eight'#2#21#3'Top'#3#166#0#5'Width'#3#192#1#7'Anchors'#11#5'akTop'#6'akLeft'
+  +#7'akRight'#0#8'OnChange'#7#20'ed_ProjectNameChange'#8'TabOrder'#2#2#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.pas
new file mode 100644
index 0000000..880ecc0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fNewProjectForm.pas	
@@ -0,0 +1,216 @@
+unit fNewProjectForm;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Messages, SysUtils,{$IFDEF DELPHI6UP} Variants, {$ENDIF}
+  Classes, Graphics, Controls, Forms, ExtCtrls,
+  Dialogs, StdCtrls, Buttons, ComCtrls, ImgList,
+  {$IFDEF FPC}uROIDEPrjWizard_laz,{$ELSE} uROIDEPrjWizard,{$ENDIF}  
+  fServerProjectOptions;
+
+type
+  TNewProjectForm = class(TForm)
+    Bevel1: TBevel;
+    Image2: TImage;
+    Bevel2: TBevel;
+    Panel1: TPanel;
+    btn_Ok: TBitBtn;
+    btn_Cancel: TBitBtn;
+    Bevel3: TBevel;
+    cb_CreateClientAndGroup: TCheckBox;
+    Label1: TLabel;
+    cb_GuideWizard: TCheckBox;
+    btn_AdvancedOptions: TBitBtn;
+    lbl_CreateClientAndGroup: TLabel;
+    lbl_GuideWizard: TLabel;
+    Label5: TLabel;
+    ed_ProjectFolder: TComboBox;
+    btn_Browse: TBitBtn;
+    Label2: TLabel;
+    ed_ProjectName: TEdit;
+    procedure btn_AdvancedOptionsClick(Sender: TObject);
+    procedure cb_CreateClientAndGroupClick(Sender: TObject);
+    procedure ed_ProjectFolderChange(Sender: TObject);
+    procedure btn_BrowseClick(Sender: TObject);
+    procedure ed_ProjectNameChange(Sender: TObject);
+  private
+    fOptions: TServerProjectOptions;
+  public
+    constructor Create(const aTemplateDir : string); reintroduce;
+    destructor Destroy; override;
+  end;
+
+var
+  NewProjectForm: TNewProjectForm;
+
+function PromptProjectOptions(
+  const aTemplateDir : string;
+  out someProjectOptions : TROIDEProjectOptions) : boolean;
+
+implementation
+
+uses
+  {$IFDEF FPC}uROIDETools_laz,{$ELSE}uROIDETools,{$ENDIF}
+  IniFiles, uRODLGenTools, uROClient, uROServer, uEWHelpers;
+  
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF FPC}
+
+const MAX_FOLDER_HISTORY = 10;
+
+function PromptProjectOptions(const aTemplateDir : string; out someProjectOptions : TROIDEProjectOptions) : boolean;
+var
+  i: integer;
+begin
+  with TNewProjectForm.Create(aTemplateDir) do try
+    cb_GuideWizard.Enabled := fOptions.fWizardAvailable;
+    cb_GuideWizard.Checked := fOptions.fWizardAvailable;
+    lbl_GuideWizard.Enabled := fOptions.fWizardAvailable;
+
+    cb_CreateClientAndGroup.Enabled := fOptions.cbCreateClientAndGroup.Enabled;
+    lbl_CreateClientAndGroup.Enabled := fOptions.cbCreateClientAndGroup.Enabled;
+    if not cb_CreateClientAndGroup.Enabled then cb_CreateClientAndGroup.Checked := false;
+
+    ed_ProjectFolder.Text := fOptions.ePrjDir.Text;
+    ed_ProjectFolder.Items := fOptions.fProjectFolders;
+    ed_ProjectName.Text := fOptions.ePrjName.Text;
+    ed_ProjectFolderChange(nil);
+    ed_ProjectNameChange(nil);
+
+    result := (ShowModal=mrOK);
+
+    if result then with someProjectOptions do begin
+      TemplateDir := aTemplateDir;
+
+      ServiceLibraryName := StringReplace(fOptions.eSvcLibName.Text, ' ', '_', [rfReplaceAll]);
+      ServiceName := StringReplace(fOptions.eSvcName.Text, ' ', '_', [rfReplaceAll]);
+      ProjectName := StringReplace(ChangeFileExt(ExtractFileName(fOptions.ePrjName.Text), ''), ' ', '_', [rfReplaceAll]);
+
+      ProjectDir := IncludeTrailingPathDelimiter(fOptions.ePrjDir.Text);
+      MessageClassName := Copy(fOptions.cbMessageClass.Text,4,Length(fOptions.cbMessageClass.Text));
+      ServerClassName := Copy(fOptions.cbServerClass.Text,4,Length(fOptions.cbServerClass.Text));
+
+      with TMemIniFile.Create(GetTemplateOptionsFileName) do
+      try
+        if fOptions.fFixedChannel <> '' then begin
+          ChannelClassName := fOptions.fFixedChannel;
+        end
+        else begin
+          ChannelClassName := StringReplace(someProjectOptions.ServerClassName, 'Server', 'Channel', []);
+          ChannelClassName := ReadString('ServerToChannelMapping',ServerClassName,ChannelClassName);
+        end;
+        ServerUnitName := ReadString('ComponentToUnitMapping', ServerClassName, 'uRO'+ServerClassName);
+        ChannelUnitName := ReadString('ComponentToUnitMapping', ChannelClassName, 'uRO'+ChannelClassName);
+        MessageUnitName := ReadString('ComponentToUnitMapping', MessageClassName, 'uRO'+MessageClassName);
+      finally
+        Free;
+      end;
+
+      CreateClientAndGroup := cb_CreateClientAndGroup.Checked;
+      WizardEnabled := cb_GuideWizard.Checked;
+
+      // Update Project Folder History
+      i := fOptions.fProjectFolders.IndexOf(ed_ProjectFolder.Text);
+      case i of
+        -1: begin
+            if fOptions.fProjectFolders.Count >= MAX_FOLDER_HISTORY then
+              fOptions.fProjectFolders.Delete(fOptions.fProjectFolders.Count-1);
+            fOptions.fProjectFolders.Insert(0, ed_ProjectFolder.Text);
+          end;
+        0: { noop }
+        else begin
+            fOptions.fProjectFolders.Delete(i);
+            fOptions.fProjectFolders.Insert(0, ed_ProjectFolder.Text);
+          end;
+      end;
+
+      // Saves last path entered
+      with TIniFile.Create(GetTemplateConfigFileName) do try
+        WriteString(sect_ProjectGeneration, id_PrjDir, ExtractFilePath(ProjectDir));
+        EraseSection(sect_ProjectFolderHistory);
+        for i := 0 to fOptions.fProjectFolders.Count-1 do
+          WriteString(sect_ProjectFolderHistory, fOptions.fProjectFolders[i], IntToStr(i));
+      finally
+        Free;
+      end;
+      
+    end;
+  finally
+    Free;
+  end;
+end;
+
+{ TNewProjectForm }
+constructor TNewProjectForm.Create(const aTemplateDir: string);
+begin
+  inherited Create(nil);
+  fOptions := TServerProjectOptions.Create(aTemplateDir);
+end;
+
+destructor TNewProjectForm.Destroy;
+begin
+  FreeAndnil(fOptions);
+  inherited;
+end;
+
+procedure TNewProjectForm.btn_AdvancedOptionsClick(Sender: TObject);
+begin
+  fOptions.ShowModal();
+  cb_CreateClientAndGroup.Checked := fOptions.cbCreateClientAndGroup.Checked;
+  ed_ProjectFolder.Text := fOptions.ePrjDir.Text;
+  ed_ProjectName.Text := fOptions.ePrjName.Text;
+end;
+
+procedure TNewProjectForm.cb_CreateClientAndGroupClick(Sender: TObject);
+begin
+  fOptions.cbCreateClientAndGroup.Checked := cb_CreateClientAndGroup.Checked;
+end;
+
+procedure TNewProjectForm.ed_ProjectFolderChange(Sender: TObject);
+begin
+  fOptions.ePrjDir.Text := ed_ProjectFolder.Text;
+  btn_Ok.Enabled := (ed_ProjectFolder.Text <> '') and (ed_ProjectName.Text <> '');
+end;
+
+procedure TNewProjectForm.ed_ProjectNameChange(Sender: TObject);
+begin
+  fOptions.ePrjName.Text := ed_ProjectName.Text;
+  btn_Ok.Enabled := (ed_ProjectFolder.Text <> '') and (ed_ProjectName.Text <> '');
+end;
+
+procedure TNewProjectForm.btn_BrowseClick(Sender: TObject);
+var dir : string;
+begin
+  dir := ed_ProjectFolder.Text;
+  if SelectDirectory({$IFDEF FPC}0{$ELSE}Application.Handle{$ENDIF}, 'Select Project Folder','', Dir) then
+    ed_ProjectFolder.Text := Dir;
+  ed_ProjectFolderChange(nil);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I fNewProjectForm.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.dfm
new file mode 100644
index 0000000..cf55674
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.dfm	
@@ -0,0 +1,14167 @@
+object AboutForm: TAboutForm
+  Left = 366
+  Top = 242
+  BorderIcons = []
+  BorderStyle = bsNone
+  Caption = 'About RemObjects SDK'
+  ClientHeight = 300
+  ClientWidth = 500
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnClick = OnCloseClick
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Image1: TImage
+    Left = 0
+    Top = 0
+    Width = 500
+    Height = 300
+    AutoSize = True
+    Picture.Data = {
+      07544269746D617006DE0600424D06DE0600000000003600000028000000F401
+      00002C0100000100180000000000D0DD0600C01E0000C01E0000000000000000
+      0000303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F2F302F302F30302F302F30
+      30303030302F2F302F302F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2E2F2F2E2E2E2F2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D
+      2D2D2D2D2D2E2E2D2E2D2D2E2D2E2D2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2D2C
+      2D2C2C2C2C2C2C2D2D2C2C2C2C2C2C2C2B2C2C2C2C2C2C2B2B2B2B2B2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A
+      2A292A2A2A2A2A2A2A2A2A292929292929292929292A29292928292929292829
+      2829292829282828282828282828282827272727272728282827272827272728
+      2727272727272727272727272B2B2B2F2F2F3131313333333434342D2C2D2626
+      262625262625262625262626272C2A2B2B2A2A2C2B2A2B2A2A2B2A2A2B2A2A2A
+      2A2A2A2A2A2A292A292A29292929292929292928292929282929282928282829
+      2828282828282828282728282827272727272727272727272627262627272727
+      27262626262626262626252626262626252525252525222222202020201F201F
+      201F2020202120212D2D2D343434363535353536353434303030222222222222
+      1E1E1F1D1D1E1E1D1E1D1D1D1D1D1D1D1D1D1D1C1D1C1C1C1D1D1C1D1C1C1C1C
+      1C1C1C1C1C1B1B1F1F202525252525252626262827272929292A2B2A2120211A
+      1A1B1A1A1B1A191A1A1A1B1A1A1A1A191A1B1B1B1D1D1C1D1C1D1D1C1D1C1D1C
+      1C1C1C1C1C1C1C1B1C1C1B1B1B1C1C1B1B1B1B1B1B1A1B1B1B1A1B1B1A1B1A1B
+      1A1A1A1A1A1A1A1A1A191A191A191919191A1919191919191919191918181818
+      1819181818181818181818181717171717171716151414141414141314131314
+      1615152525263232323838383D3D3D4243422827271111111111111111111110
+      10101110101111101010101011101010101010100F101010100F0F0F0F0F0F0F
+      0F0F0F0F0F0F0E0F0F0F0E0E0E0F0F0E0F0E0E0E0E0E0E0E0E0E0D0D0E0D0E0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0C0D0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C
+      0B0C0B0C0B0C0C0B0B0B0B0B0B0B0B0B0A0B0B0B0B0B0B0B0B0A0B0B0A0A0A0A
+      0A0A0A0A0A0A0A0A090A090909090909090A0A09090909090909080909080909
+      0908090808080808080808080808080807080808070808070808070807070707
+      0707070707070607070607070606070706070706060606060606060606060606
+      0606060606050606060506050505050506050505050505050504040505040504
+      0405040505040405040404040404040404040404040404040404030404040304
+      0403040303030303030303030303030303020303030302030302030202030203
+      0202030202020202020202020202020202020202010201020102020201020202
+      0102020101010201020101010101010101010101010101010101000001000000
+      0100000000000100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979767976797976797679797976
+      7679767979767676767676797976767676767676767676737676767676737676
+      7676767676767673737373737673737373737373737373737373737373737373
+      737371737171717171717371717171717171717171717171717171716E716E6E
+      6E6E716E6E6E71716E6E6E6E6E6E6E6E6E6C6E6C6C6E6E6C6C6E6C6E6C6C6C6E
+      6C6E6E6C6C6C6C6C6C6C6969696C6C6C6C6C69696C6C69696969696969696969
+      6769676967696767676769676967676767676767676767676767676567676567
+      6765656765656565676565656565656565656565626262626262626262626562
+      62626262626262626E6E6E7676767B7B7B808080838383676969606060605D62
+      605D60605D606565656E6C6C6C6C6C6C69696C6C696C69696C69696C69696969
+      6969676967676969676967696767676767676767676765676567656765656565
+      6565656562656262626565656265626562626262626262626262606262606262
+      6260606060605D6060605D5D606060605D5D605D5D505053505050505050504E
+      5050505058585B8080808380837E80807E7E8079797B7676797173737171716E
+      6C6E6C6E6C6262626262625D5B5D5B585B5053534B4B4E464946464646434646
+      4B4B495D5D5D6060606262626565656767676C6C6C555555434343414143413E
+      43414143414141413E4343434649494949494946494949494646464946464646
+      4646464643464646464643434343434343434343414341434143414343414141
+      4141414141413E4141413E4141413E3E413E41413E3D3E3E3E3E3D3D3D3E3E3D
+      3E3D3D3D3D3D3D3D3A3A3D3A3A3838383532323232323232323032323A3A3865
+      67678380808F8F909C9C9CA9A9A94B4E4E2D2B2D2B2B2B2D2B2B2B2B2B2B2828
+      2B2B2B282B28282B282B28282828282828282826282826262626282626262626
+      2626232626262623232623232323232326232323232320232323232023202020
+      202020202020202020201E20201E1E201E1E1E1E1E1E1E1E1E1E1E1E1B1E1E1E
+      1E1B1E1B1B1E1B1B1B1B1B1B1B1B1B1B1B1B1B1B191B1B1919191919191B1919
+      1919191919191916161919161616161616161616161616161614141416141614
+      1414141414141414141414141414121412141414121412121412121412121412
+      12121212121212121212120F0F0F1212120F0F0F120F0F120F0F0F0F0F0F0F0F
+      0F0D0F0F0F0D0F0D0F0D0D0D0D0D0D0D0D0D0D0D0D0A0D0D0D0A0D0D0A0A0D0A
+      0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A080A0A080808080A0A
+      0808080A08080808080808080808080805080808080508080508050508080508
+      0805080505050505080805050505050305050505030503050305050303050503
+      0303050303030503050303030303030303030303030303030303030003000300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030302F30302F30302F2F2F30
+      302F2F302F2F2F2F2F2F2F30302F2F2F302F2F2F2F2F2E2F2F2F2F2E2E2E2F2F
+      2E2F2F2F2E2F2F2E2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2E2E
+      2D2E2D2D2D2D2D2E2E2E2D2D2D2E2E2D2D2D2D2D2D2D2D2C2C2C2D2D2C2D2C2C
+      2D2D2D2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2C2C2B2B2B2C2C2C2C2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2A2A2B2B2B2B2B2A2B2B2A2B2A2A2A2B2A2A2A2A2A2A29
+      2A292A2A2A292A292A29292929292A2929292A29292929292928292929292928
+      2828282829282828282828282828282727272828282727282827272727272727
+      272727272C2C2C2F2F2F3131313333333535352A2A2A26262626262726262626
+      25272A29292C2B2B2C2B2B2C2A2B2C2B2B2B2A2A2B2A2A2B2A2A2A292A2A2A2A
+      292A29292A2A2929292929292929282829292929282829292929282828292828
+      2827282828282828272827282727272727272727272727262727262626272626
+      2726262626262626262626262625252526232223202020201F20201F1F202120
+      2021212929293232323132323131303031312F2F2F2E2E2E2E2E2E2D2D2C2C2D
+      2C2B2B2B2B2B2B2B2B2B2B2B2B2A2B2B2A292A2A292926262723232326262628
+      2828282827282828292A2A2B2B2B2525251B1A1C1B1A1C1B1A1B1A1A1C1A1A1B
+      1A1A1B1B1A1A1D1D1E1D1D1D1D1D1D1D1D1D1D1D1D1D1C1D1D1D1C1C1C1C1C1C
+      1C1C1C1C1C1C1C1B1B1C1B1C1C1B1B1B1B1B1B1B1B1A1B1B1B1A1A1B1A1A1B1B
+      1A1A1A1A1A1A1A1A1A191A19191A191919191919191919191818181919181819
+      1818181818181817171716171415151414141414141515151818182F2E2F3434
+      343A3A3A40404045454515141512121211111111111211111211111111111111
+      1010111111101110101010101010100F100F0F0F0F0F100F0F0F0F100F0F0F0F
+      0E0F0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0D0D0D0D
+      0D0E0D0D0D0D0D0C0C0D0D0D0D0D0C0C0C0D0D0C0C0C0C0C0C0C0C0C0C0C0B0C
+      0B0B0C0C0C0B0B0B0B0B0B0B0B0B0A0A0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A
+      0A0A0A0A090A090A090909090A090909090A0909090909090909090909080808
+      0808090809080808080808080808080708080708080807070707070708070707
+      0707070707070706070607060707060707060706060606060606060506060606
+      0605060606050506060506060505050505050505050505050505050404050504
+      0505040404040505040404040404040404040403040404040404030403040303
+      0303030303030303030303020203030303030302030203030202030203030203
+      0202020203020202020202020202020101020102020201020201010202010101
+      0101010101010201010101010101010101010101000100010101010001000000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F30302F303030303030302F2F2F30
+      2F2F2F2F2F2F2F2F2F2F2F302F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2E2E
+      2E2F2F2F2E2F2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2E2D2D2E2D
+      2E2D2D2E2D2E2E2D2E2E2D2D2D2D2D2D2D2D2D2D2D2D2C2C2D2C2C2C2D2D2E33
+      33322F2F2F2C2C2C2C2C2C2C2C2B2B2C2C2C2B2B2B2B2C2C2C2B2B2B2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2B2B2A2A2A2A2A2A2A2A2A2A
+      292A2A2A2A292A292A2929292929292929292929292929292929292829282929
+      2829282928282828282828282728272828272727282827272727272727272727
+      2E2E2E2F2F2F3131313333333535352726272626272625272626262625272A29
+      292C2B2B2C2B2B2C2A2B2C2B2B2C2A2B2B2B2A2B2B2B2B2B2A2A2A292A2A2A29
+      292A292929292929292929292929292829282828282929282828282928282828
+      2827282828282828272828282727282727272727272627272727262627272626
+      26262626262626262526262525262525202021202020202020201F2020212021
+      21213030313031313130303031312F2F302E2E2E2E2E2F2E2E2E2D2D2D2C2D2D
+      2C2C2D2C2C2C2C2C2C2B2B2B2A2B2B2A2B2A2A2A29292A292929292929282A2A
+      2A2A2A2B2C2B2B2625251B1B1C1B1B1C1A1A1B1B1B1B1A1B1B1A1B1B1B1B1B1E
+      1E1D1E1E1E1E1D1D1D1D1D1D1D1D1D1D1C1D1D1D1D1C1D1D1C1C1D1C1C1C1C1C
+      1C1C1C1C1C1B1B1C1B1B1C1C1B1B1B1B1B1B1B1B1B1A1A1A1B1B1B1A1B1A1A1A
+      1A1A1A191A191A1A1A1A19191A1A191919191919191918191818181918181818
+      18181817171615151415141415141414141516151A1A1A2F2F2E3435353A3B3A
+      4040414242421212121212121212121211111112121211111111111111101110
+      11101110101111101010101010101010100F0F0F0F100F100F0F0F100F0F0F0F
+      0F0F0F0E0F0E0F0E0F0E0E0F0E0F0E0E0E0E0D0E0E0D0E0D0E0E0E0D0D0D0D0D
+      0D0D0D0C0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0D0C0C0C0C0C0B0C0B0C0C0B
+      0C0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0A0A0A0A0A0A0A0B0A0A0A0A0A0A09
+      0A0A0A090A0A0909090A090909090A0909090909080809090909080808080908
+      0808080809080808080808070808080708070808070708070707070707070707
+      0707070606070607060607060606060706070606060606060606060606050606
+      0605060505050506060605050505050505050505050505040405050504040405
+      0405040504040404050404040404040404040404040304030303030304030303
+      0303040303030303030303030303020302020302020303030302030203020202
+      0202030202020202020202020201020202020202020202020101020101010201
+      0101010101010101010101010101010001000001010001010100010001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F3030303030302F30303030302F30
+      3030302F2F30302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2F2F2E
+      2E2E2F2E2F2E2E2F2E2E2E2E2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D
+      2D2D2D2D2D2E2D2D2D2E2D2D2D2D2D2D2D2D2D2D2C2E2D2E3333343535353737
+      373535353030302C2C2C2B2B2C2B2C2B2B2C2C2B2B2B2B2C2C2B2C2B2B2B2C2B
+      2B2B2B2B2B2B2B2B2A2B2A2B2B2A2A2A2B2B2B2A2A2B2B2A2A2A2A2A2A292A2A
+      292A2A2A2A2A2A292929292A2929292929292929292928292928292928292828
+      282928282928282828272728282827272728282727272727272727272E2E2E2F
+      2F2F3131313333333535352525262626272626262626272625262B2A2B2C2B2B
+      2C2C2B2C2B2B2B2A2B2C2B2B2C2A2B2B2A2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A
+      29292A2A292A2A29292929292928292928292929292828282828282828282827
+      2828282827272727272827282727272727272626262727262726272727262626
+      2626262526252526262626262323232020202020202020202020201F20202829
+      283131313131313030312F2F302F30302E2E2E2E2F2E2E2E2E2D2E2E2D2D2E2D
+      2D2D2D2E2D2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C
+      2929291C1C1D1C1C1C1B1B1C1B1A1C1B1B1B1B1B1B1C1B1C1E1E1E1E1E1E1D1E
+      1E1E1E1E1E1D1D1D1E1D1D1D1D1D1D1C1D1C1D1D1C1D1C1C1D1C1C1C1C1C1C1C
+      1C1C1B1C1C1B1C1C1B1B1B1C1B1B1B1B1B1B1A1B1B1A1B1A1A1A1B1A1A1A1A1A
+      1A1A1A191A19191A1A191A191919191919191819181919191818181818181818
+      171616161514151415151415151515151D1D1E3030303636363B3C3B41414138
+      3838121212121212121212111112121211111111111111111111111011101010
+      1111111011101010101010101010100F10100F0F0F10100F0F100F0F0F0F0F0F
+      0F0E0E0F0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0C0D0C0C0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0B0C0B0B0B
+      0B0B0C0C0B0C0B0B0B0B0B0A0B0B0B0A0A0B0B0A0A0A0A0A0A0A0B0A0A0A0A09
+      0A0A0A0A0A090A0A09090A090909090909090909090908080809080809080809
+      0808080808080808080808070807080708070807080707070708070707070707
+      0607070706070707070707060606060706060606060606060606060606050605
+      0606060506050605050505050505050505040505050405050504040504050404
+      0404050404040404040404030404030304040304040404030304030403030303
+      0303030403030303030303030303030302030302030202020203030303030202
+      0202020202020202020202020201020102020202010202010202020201010201
+      0201010201010101010101010101010101010101000000010000000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F30303030302F2F302F
+      2F2F2F30302F302F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2F2E
+      2E2E2E2F2E2F2E2E2E2E2E2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2D2E2E2D2E2D
+      2E2D2D2D2D2D2E2D2D2D2D2D2D2D2F2F2F333333343434363636373737393939
+      3A3A3A3737373030302C2C2C2C2B2C2C2C2C2B2C2B2C2C2C2C2C2B2B2B2B2B2C
+      2B2B2B2B2B2B2B2B2A2B2B2A2B2A2B2A2B2B2A2B2A2A2A2A2A2A2A2A29292A2A
+      2A292A2929292A2A292929292929292929292929292929292829282828292829
+      2828292828282827282728272827282728282727272828282F2E2E3030303232
+      323434343434342525262626272626272626272625262B2B2B2C2C2B2C2B2B2C
+      2B2B2C2B2B2B2B2B2C2B2B2B2A2B2B2B2A2B2A2A2A2A2A292A2A29292A29292A
+      29292A2929292929292929292928292929292928282828282828292828272828
+      2828272827272727272727272727272727272726272626272627272626272626
+      2626262626252526252525202021202020202020202020201F1F202020292928
+      2B2A2A2C2C2C2A2A2B2A2A2B2F2F302F2F302F2F2F2F2E2F2E2F2F2E2E2E2D2D
+      2D2D2E2D2D2D2D2C2D2C2D2D2D2D2D2C2C2C2C2C2C2C2D2D2D2A2A291D1C1E1B
+      1B1C1B1B1C1B1B1C1B1B1B1B1B1C1B1C1B1F1E1E1E1E1F1E1E1E1E1E1E1D1E1E
+      1E1D1E1D1D1D1E1D1D1D1D1D1C1D1D1D1D1D1D1D1C1C1C1C1C1C1C1C1C1C1C1C
+      1C1B1B1C1B1B1C1B1B1B1B1B1B1B1B1B1A1B1B1A1B1B1A1B1B1A1A1B1A1A1A19
+      1A1A191A1A191A19191919191919191919191919181819191818181818161616
+      1515151514151414141516162323233131313737373E3E3E4343423333321312
+      1213121211121212111212111111121111121111111111111111111011101010
+      1010101010101010101010100F10101010100F100F0F0F100F100F0F0F0F0F0F
+      0E0E0F0E0F0E0F0E0E0F0F0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D0D
+      0E0D0D0D0D0D0D0D0C0C0D0C0D0C0D0D0C0C0C0C0C0C0C0C0C0B0C0B0B0B0C0C
+      0B0B0C0B0C0B0B0B0B0B0B0B0A0B0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A090A
+      0A090A0A0A0A0A09090A0909090A090909090909090809090809080909080808
+      0809080808080808080807080707080807070807080707070708070707070707
+      0707070607060606060607060606070706060606060606060606050605060505
+      0605060606060505050505050505050505050405040405040505050504040405
+      0404040504040404040404040404040403040404030403030304030303030303
+      0403030303030303030303030303030302020302030302020202030202020202
+      0202020302020202020202020202020202020202010101010101020102010102
+      0101010101010101010201010001010100010100010100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F30303030302F2F2F302F2F
+      2F2F30302F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2E2F2E2E2E2F
+      2E2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E2E2D2E2E2E2D2D2E2D2D2D2D
+      2D2E2D2D2D2D2E2F2F2F3232323333333535353737373838383939393A3A3A3B
+      3B3B3B3B3B3737373030302C2C2C2C2C2C2C2B2B2B2B2C2C2B2B2B2C2B2B2B2B
+      2B2B2B2A2B2B2A2B2A2A2A2A2A2B2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29
+      2A2A292A292A292A292929292929292929292929292929292929292928282928
+      2828282828282828272728272827282727292A2A2E2E2E303030323232343434
+      3232322525262626272626272626272626272C2C2B2D2C2C2C2B2B2C2C2B2C2B
+      2B2C2B2B2C2B2B2C2A2B2B2B2B2B2B2B2A2A2A2A2A2A292A2A2A2A2A29292A29
+      292929292A2A2929292929292929292929282829282829282828282828272828
+      2828282827272728272827272727272727262726262626272627262626262626
+      262626252626262322232121202020212020201F20201F201F201F1F201F201F
+      201F1F1F1F1F1F1E1E1E1E1E1F1E1F1F202322232222232525252726272A2929
+      2E2E2D2E2E2E2D2D2E2E2E2D2D2D2D2E2D2D2C2D2C1D1D1E1B1C1D1C1C1C1B1C
+      1C1C1B1C1B1B1C1C1C1C1F1F1E1E1E1F1F1E1E1E1E1E1E1E1E1E1E1E1E1E1E1D
+      1E1D1E1E1D1D1E1D1E1D1D1C1D1C1C1D1D1D1D1D1D1C1D1C1C1D1C1C1C1C1C1C
+      1C1C1B1B1B1C1B1C1C1B1B1B1B1A1B1B1B1B1A1A1B1A1A1B1B1B1A1A1A1A1A1A
+      1A19191A191A191919191A191919191919181919181819181815161515151515
+      15151514141616162525253232323939393E3E3E4443432D2C2D121212121312
+      1213121212121212121211111112111212111112111111111111111010101011
+      101010101011101010100F101010100F100F1010100F0F0F0F0E0F0F0E0F0F0F
+      0F0E0E0F0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0D0D0D0D0D0E0E0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0B0B
+      0C0B0B0B0B0C0B0B0B0B0B0B0B0B0A0A0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A
+      090A0A0A09090A0A090909090909090909090908080809080808090808080908
+      0908080808080807080808080707080707070807070707070707070707070707
+      0707070706070707060706060606060606060606060506060606060505050506
+      0605060505050605050605050505050505040505050404040404050504050504
+      0404050404040404040404040403030403040404040404040403040403030303
+      0303030303030303030302020303030202030203030302020302030202020202
+      0302030202020202020202020201020201010202020102010101010101010101
+      0101010101010101010101010001010000010000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F303030303030302F2F302F
+      302F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2F2F2E2F2F2F2E2F2F2F2F
+      2E2E2E2E2E2E2F2F2E2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2D2D2D2E2D2D2D2D
+      2F30303232323333333434343636363838383939393A3A3A3B3B3B3B3B3B3C3C
+      3C3B3B3B3B3B3B3635362E2D2E2B2C2B2B2B2C2B2C2C2C2B2B2B2B2C2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2A2B2B2A2A2A2A2A2A2A292A2A2A2A2A
+      29292A292929292A2A2929292929292929292929292928292929292829282828
+      282828282728282727282828272929292F2E2F30303133323234343432323226
+      26272626272626272626272626272D2C2C2C2C2B2D2B2B2C2C2B2C2B2C2C2B2B
+      2C2B2B2C2B2A2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A292A2929292929
+      2929292929292929292829292928292928282828282928282828282728272728
+      2727272827282727272827272727272727272727272627262626272626262626
+      252626262525202121202120202020202020201F1F201F1F20201F1F1F201F1F
+      1F1F1E1F1F1F1F1E1F1E1E1E1E1F1E1E1E1E1E1E1E1E1E1E1E1D1D1D1D1D1D1E
+      1E1F222222252524272827292A292020201C1D1D1C1C1D1C1B1D1C1B1C1B1C1D
+      1C1B1C1E1E1E1F1F1F1F1F1E1F1F1F1E1E1E1E1E1E1E1E1E1E1E1E1D1E1E1D1D
+      1E1E1D1D1D1D1D1D1D1D1D1D1D1D1D1D1C1D1C1D1C1C1C1C1C1C1C1B1B1C1B1B
+      1C1B1B1C1C1C1B1B1B1B1B1B1B1B1B1B1A1B1B1A1A1A1B1A1A1A1A1A1A1A1A1A
+      1A1A1A1A1A191A19191919191919191918181818171615151515151516151515
+      1518181729282834343439393940404045444520202012121212131313131212
+      1212121212121212111211121111121211111111111111111111111111101111
+      101011101010100F0F0F101010101010100F0F100F0F0F0F0F0F0F0F0F0F0F0F
+      0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0D0D0D0D0E0D0D0D0D
+      0D0D0C0C0C0D0D0C0D0C0D0C0C0D0C0C0C0C0C0C0B0C0C0C0B0C0C0C0B0C0B0B
+      0B0B0B0B0B0B0B0A0B0B0B0B0A0A0B0A0A0A0B0A0A0A0A0A0A0A0A090A0A0A0A
+      09090A0A09090A0909090A090909090908090908090908090908090908090808
+      0808080808070808080708070808070708070707070707070707070707070707
+      0707060706070607060606060606060606060606060606060606060506060506
+      0506050506050505060505050505050505050505050504050504050405040404
+      0404040404040404040403040404040404030403030303040303030404030304
+      0303030303030303030303030303030302020303020202030202020202030202
+      0202020202020202020202020202020201020201020101020102020101010101
+      0101010102010101000101000000010001000001000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030302F3030303030303030303030302F302F3030303030
+      2F2F2F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2F2E2E2F2F2E
+      2E2E2F2E2E2E2F2F2E2E2E2E2E2E2E2E2E2E2D2D2E2E2D2E2D302F3032323234
+      33333534343636363838383939393B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C
+      3C3C3C3B3B3B3B3B3B3535342E2E2E2C2C2C2B2C2B2B2B2B2B2B2B2B2C2B2B2B
+      2B2B2B2A2A2A2B2B2B2A2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A2929
+      29292A292A2929292A2929292929292929292929282929282928292829282828
+      2828282828282827282B2A2B2E2E2F3031303332333434342D2D2D2626272626
+      272626272626272727272D2C2C2C2C2B2D2B2C2D2B2B2C2B2B2D2B2B2C2B2B2C
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2B2A2A2A2A292A2A292A2A2929292929
+      2929292929292929292929292828292829292828282828282828282827282827
+      2728272727272727272827272727262727272726262626262627262626252626
+      25252322232021212020202120212020201F202020202020201F201F1F1F1F1F
+      1F1F1F1F1F1F1E1E1F1F1F1F1E1F1F1E1E1E1E1E1D1D1E1D1D1E1D1D1D1E1D1D
+      1E1D1D1D1D1D1D1D1D1D1D1D1D1C1D1D1C1C1D1C1C1D1C1C1C1B1B1C1E1E1F1F
+      20201F1F201F1F1F1F1F1E1F1F1F1F1E1E1F1E1F1E1E1E1E1E1E1E1E1D1E1E1E
+      1E1D1D1D1D1E1D1D1D1C1D1D1D1C1D1C1C1C1C1C1D1C1C1C1C1C1C1C1B1C1C1C
+      1C1C1C1B1B1C1C1B1B1B1A1B1B1B1B1A1B1B1A1B1B1B1A1A1B1A1A1A1A191A1A
+      1A1A191919191919191919191919181818161516161515151515161617191919
+      2E2D2E3434343A3A3A4040404545451919191213131313131213131212121212
+      1212121212121212111111121111121111111111111110101010111110101011
+      101010101010101010101010101010100F0F0F100F0F0F0F0F0F0E0F0F0F0F0E
+      0F0F0E0E0E0E0E0E0E0D0E0E0E0E0D0D0D0E0D0D0E0E0D0E0D0E0D0D0D0D0D0D
+      0C0D0D0D0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0B0C0B0C0B0B0C0B0B0B0B0B
+      0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A
+      0A0A0A090A090A090A0909090909090909090909090908090909090808080808
+      0808080808080808070707080707080707080807070807070706070707060707
+      0606070707060707060706060706060606060606060606050605050605050505
+      0606060505050605050504050404040505050405050504050505040404050404
+      0404040504040404040403040304030304040404030304040403040303040303
+      0304030302020303030203030303030202030303030203020202020302030203
+      0202020202020202020202020202010202020102010101020201010101010101
+      0101010101010100010100010101000001000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030302F30302F2F30302F30303030302F3030
+      2F2F2F302F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2E2E2F
+      2F2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D3131303333323334343534343636
+      373938383B3A3A3737373231323A3A3A3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C
+      3C3C3C3C3C3A3B3B3B3B3B3534342E2E2E2B2B2B2B2B2C2C2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2A2A2A2B2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2929292A
+      2A292A2A292929292A2929292929292929292929292928282928282828282828
+      28282828282B2B2B2F2F2F3131313333333434342E2E2E262627262627262627
+      2626272828282D2C2C2D2C2C2D2C2C2C2C2B2C2C2C2C2B2B2C2B2C2C2B2B2C2B
+      2A2B2B2A2B2B2A2A2A2A2B2A2A2B2A2A2A2A2A2A29292A292A292A2A2A2A2929
+      2A29292929292929282829282828282828292928282828282828282828282827
+      2828272828282727272727272726272726262627262626262626262626262625
+      252121212020202020212020202020202020201F202020201F1F1F1F1F20201F
+      1F1F1F1E1E1F1F1F1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D
+      1D1D1D1D1C1D1D1D1D1C1C1D1C1D1D1C1C1D1C1C1D1E1D1E2020201F1F1F1F1F
+      1F1F1F1F1F1F1F1F1F1F1F1F1E1F1E1E1F1E1E1E1E1E1E1E1E1D1E1E1E1D1E1D
+      1E1D1D1D1D1D1D1D1D1D1D1D1D1D1C1C1C1D1D1C1C1C1C1C1C1C1C1B1B1C1C1B
+      1C1B1B1B1B1C1B1B1B1B1B1B1B1B1B1A1B1A1A1B1A1A1A1A1A1A1A1A1A1A1A1A
+      191A1A1919191919191A1717171516161615161616161617161A1B1A2F2F2F35
+      35353B3B3B404040454545131313121313121313131213121213121212121312
+      1212121211121112121112111112111112111110111111111011101010101011
+      111010101010100F10100F100F100F10100F100F0F0F0F0F0F0F0F0F0E0E0F0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0E0E0D0E0E0E0D0D0D0D0D0D0D0C0D0D
+      0D0D0D0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0B0B0C0B0C0B0B0B
+      0B0B0B0B0B0B0A0B0B0B0B0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A
+      090A0A0909090909090A09090909090808090908090809090908080908080808
+      0808080707080708070708070807080707070707070707070707070707070707
+      0606060607060706070606060606060606060506050605060606060606050605
+      0506050506050505050505050505050404050504040504040404040505040404
+      0404040404040304040304040404040304030304040304040303030303030303
+      0302030303030303030303030202020203020302030202030203030302020202
+      0202020201020202020201020202020201010201010102010101020201010101
+      0101010101010101010101000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F2F302F2F30302F2F302F2F
+      2F2F2F2F2F2F302F2F2F2E2F2F2F2F2E2E2F2F2F2F2F2F2F2F2F2E2F2E2E2E2F
+      2E2F2E2E2E2E2E2E2E2E2E3131303233333433343535353737373938383A3A3A
+      3535362B2B2B2C2C2C2C2C2C3232323B3B3A3D3D3D3D3D3D3C3C3C3C3C3C3C3C
+      3C3C3C3C3C3C3C3B3A3B3B3A3A3535352E2D2D2B2C2B2B2B2B2B2B2B2A2B2B2B
+      2B2B2B2B2B2B2A2B2A2B2A2A2A2B2B2A2A2A2A2A2A2A2A2A2A2A2A292929292A
+      2929292929292929292929292929292929292828292928282828292828282828
+      282C2C2B302F303132323333343636362C2C2C26262726262726262726262728
+      28282D2C2C2D2C2C2D2C2C2C2C2C2D2C2B2C2B2C2C2B2C2C2B2B2C2B2B2B2B2B
+      2B2B2B2B2A2B2A2B2A2A2A2A2A2A2A2A2A292A292A2A292A292A292A292A292A
+      2929292929292928292928292928292928292828282927282828282827282827
+      2827272727272827272727272727272726262727262726262626262626242324
+      222122222122212121212121202021202020201F201F1F1F1F1F1F1F1F1F1E1E
+      1F1F1E1F1E1F1E1E1E1E1F1E1E1E1E1E1E1E1E1E1E1D1D1D1E1D1E1D1D1D1E1D
+      1D1D1C1D1D1C1C1D1D1D1D1D1D1D1E1E1E2020201F202020201F1F1F1F1F201F
+      1F1F1F1F1F1F1F1F1F1E1F1F1F1E1E1F1E1E1E1E1E1E1E1E1D1E1E1E1D1D1D1D
+      1D1D1D1D1D1D1D1D1D1D1D1D1D1C1C1D1C1D1D1D1C1C1C1C1C1C1B1C1B1C1C1B
+      1C1C1B1B1C1B1B1B1B1B1A1B1A1A1A1A1B1B1B1A1A1A1A1A1A1A1A1A191A1A1A
+      1A191A19191A1718171616161616151515151617171E1E1E3131303636363C3C
+      3C4242423C3C3C14141313131313131212131313131312121312121212121212
+      1212111212111211121212111111111111111111101110111011101010101110
+      1010101010100F10100F10100F0F0F0F100F0F0F0F0F0F0F0F0F0E0E0F0E0F0E
+      0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0B0C0C0B0B0B0B0B
+      0B0B0B0B0A0B0B0A0B0A0B0A0B0A0B0A0A0A0A0A0A0A0A0A090A0A0A09090909
+      0A090A090A090909090909090909090908090908080908080809090808080808
+      0808080808080708080808080707070707070807070707070707070707060607
+      0706060606070606060606060606060606060606050605050606060506050505
+      0505050505050505050505050504050405040405050404040404040404040404
+      0404040404040404040304040304040403030304030403030303030404030303
+      0303030303030303030303020203020203020202020202030202030202020202
+      0202020202020202020102020101020101020201010101010101010101010101
+      0100000101000000000001000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F30302F302F2F2F2F2F2F302F3030
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2E2F2F2E2F2E2F2F2E2F2E2F
+      2E2F2E2F3131313333333434343636363737373839393B3B3B3434332B2B2C2C
+      2C2C2C2C2C2C2C2C2B2C2C2C2C2C3232333A3B3A3D3D3D3D3D3D3C3C3C3C3C3C
+      3C3C3C3C3C3C3B3B3B3A3A3A3B3A3B3434352D2D2D2B2B2B2B2B2B2B2B2B2A2B
+      2B2B2A2A2B2B2A2A2B2A2B2A2B2A2B2A2A2A2A292A2A29292A292A2A292A2A2A
+      2A29292A292A29292929292929292928282929282828292828282828282D2D2D
+      3131313332323435343636362B2B2A2626282626272626272626272A292A2D2C
+      2C2D2C2C2D2C2C2D2C2C2C2C2C2D2B2B2C2C2B2C2B2B2C2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2A2A2B2A2A2B2A2B2A2A2A2A2A2A2A2A2A2A292A2A292A2A29292A29
+      2929292929292929292828282828292929292828282728282828282828272727
+      2827272727282727272726262626262626272626262726272626262625262626
+      2526262626252526252525252525242525242424242223232223222222212121
+      202021201F201E1F1E1E1E1E1E1E1E1E1D1E1E1D1E1E1D1D1E1D1D1D1D1D1D1D
+      1D1D1D1D1C1C1D1F1E1F2020202020202020201F1F201F1F201F1F201F20201F
+      1F1F1F1F1F1E1F1F1F1F1F1E1F1E1E1E1E1E1E1E1E1E1E1E1E1E1D1D1E1D1D1D
+      1D1D1D1D1D1C1C1C1D1C1D1D1C1C1D1C1C1D1C1C1D1C1C1C1C1C1C1C1C1B1B1B
+      1C1C1B1B1B1B1B1B1B1B1B1B1B1A1B1B1A1A1A1A1A1A1A1A1A1A191A1A191A19
+      191A1716181616161616161616161717172322223132313837373D3D3D434343
+      3636361314131313131313131313131212121212131312131312121212121212
+      1211111212111212121111111111111111111011101010111111101010101010
+      1010101010101010100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0C
+      0D0C0D0C0C0C0D0C0C0C0C0C0D0C0C0C0C0B0C0C0C0C0C0B0C0C0B0B0B0B0B0B
+      0B0B0B0B0B0A0B0B0B0B0A0B0A0A0A0A0B0A0A0A0A0A0A0A0A0A0A09090A0A09
+      09090909090A0A09090909090909090909080809080908080809080808080808
+      0808070808080807070708070808070707070807070707070707070707070706
+      0607060607060606060606060606060606060606060505050606050605050606
+      0605050505050505050504050505050505040504050405050504040404040404
+      0404040404040404040403040304040303040304030404030303030303030303
+      0303030303030302020302020302030203020202020302020302030202020202
+      0202020202010202020202020101010101020101010101010101010101010101
+      0101000101000101000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030302F30302F3030302F30302F30302F3030302F2F2F3030302F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2F2F2F2E2F2E2E2E2E313131
+      3333333535343636363838383939383B3B3A3232322C2B2C2D2D2D2D2D2C2C2C
+      2C2C2C2C2C2C2C2B2B2C2C2C2C2C2C2C3332323A3B3B3D3D3D3C3C3C3C3C3C3C
+      3C3B3C3C3C3C3C3C3B3B3A3A3A3A3A3B3A3434352D2D2D2B2B2B2B2B2A2B2B2B
+      2B2B2A2B2A2A2A2A2B2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2929292929292A
+      292A292A2A29292929292929292929292928292928282C2C2C2F2F2F31313134
+      34333534353736362B2A2A2727272626272626272626272A2A2A2D2C2C2D2C2C
+      2D2C2C2D2C2C2D2C2C2D2B2C2C2B2B2C2C2C2C2C2C2C2C2C2B2C2B2B2B2B2B2A
+      2A2B2B2B2A2B2A2A2A2A2A2A2A2A2A2A2A292A2A2A29292A2A29292A292A2929
+      2929292829292829282929282928282828282828282828282828282827272728
+      2727272727272727272727262727262626262626262626262626252626262626
+      2525262525262525252525252525252524252524242424252424242424242423
+      23232323232222232221212121212020201F1F1F1E1D1E1D1E1D1D1E1D1D1D1D
+      1E1D1D202121202120202020202021202020201F201F1F201F1F1F1F1F1F1F1F
+      1F1F1F1E1F1F1E1E1F1E1E1E1E1E1F1E1E1E1E1E1E1D1D1D1D1D1E1D1E1E1D1D
+      1D1D1D1D1D1D1D1D1D1D1D1D1D1C1C1C1D1C1C1D1C1C1B1C1C1B1B1B1B1B1B1C
+      1B1C1B1B1B1B1B1A1B1B1B1B1B1B1B1A1A1A1B1B1A1A1A1A1A1A1A19191A1616
+      161616161616161616161818182524253233323838383E3E3E4444442D2D2D13
+      1414131314131313131313131313121312121312121212131312121212121212
+      1111121211111212111111121111111011111111101111111011101011101010
+      1010101010100F0F100F0F0F10100F0F0F0F0F0F0F0F0F0F0E0E0F0F0E0E0E0F
+      0F0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C
+      0D0C0D0D0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0C0B0B0C0B0B0B0B0B0B
+      0B0B0B0B0A0A0B0B0A0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A090A0A0A090A0A
+      0A0A090909090909090909080909080909080808090908080908080808080808
+      0807070808070707080707070708070707070707070707070706060707070707
+      0707070606060706060606060605050606060606060505050605060605060505
+      0505050506050505050505040405050404040405050405050404040404040404
+      0403040404030403040403040403040404030303040303030303030303030303
+      0203030202030303030303020302020303030302030203020202020202020202
+      0202010201020202010202010202010102020101010101010101010101010101
+      0001000000000000010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      2F30303030303030303030302F30302F2F2F2F2F302F302F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2E2F2F2E2F2F2E2F2F2E2E2E32323133333334343436
+      37363838383A3A3A3A3A3A3231332C2C2C2D2D2D2C2C2D2C2D2C2C2C2C2C2C2D
+      2D2C2C2C2C2C2B2C2C2C2C2C2C2B2B2C2B2B3333333B3B3B3D3D3D3C3C3C3C3C
+      3C3C3C3B3B3C3C3C3C3C3C3C3B3A3A3B3B3A3A3333332C2C2C2B2B2A2B2B2A2A
+      2A2A2A2B2B2A2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A29292A2A2A29292929292A
+      2929292A29292929292928292D2D2D2F2F303030303131313333333535353636
+      363736372727272627282627272726272626272A2A2A2D2D2C2D2C2C2D2C2C2D
+      2C2C2D2C2C2D2C2C2D2B2B2D2C2C2C2C2C2C2B2B2B2C2B2B2B2B2B2B2B2B2B2B
+      2A2B2B2A2A2B2A2A2A2A2A2B292A292A292A292A292A292A2929292929292929
+      2929282929292928282828282829282928282928272828282828282827272827
+      2727272727272727272627272726262726262627262626262625262625252626
+      2525252525252525252525252524242525242524242424242424242423232423
+      23232323242223232222232222232221222221212121201F20201F1F21212121
+      2120212121202120202020202020202020201F201F1F201F1F201F1F1F1F1F1F
+      1F1F1F1F1F1F1E1F1E1F1E1F1E1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D1E1D1D1D
+      1D1D1D1D1C1C1D1C1C1C1C1D1D1C1C1C1C1C1C1C1C1C1C1B1C1C1C1C1B1B1B1B
+      1B1B1B1B1B1B1B1B1A1B1A1A1A1A1B1A1A1B1A1A1A1A1A191919161617161617
+      1616161616161919192A2A2A3334343A3A393F3F3F4545452423241314141414
+      1313141313131313131313131313131312131312131212121212121212121212
+      1212121111121211111111111111111111101010111110111111101010101010
+      10101010100F100F100F10100F100F0F0F0F0F0F0F0E0F0F0E0F0E0E0F0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0D0D0E0D0E0D0D0D0E0D0D0D0D0D0D0C0D0D0D0C0D0C
+      0D0D0C0D0C0D0C0C0C0C0C0B0C0C0C0C0B0C0C0B0B0C0B0B0B0B0B0B0C0B0B0B
+      0A0B0B0B0B0A0B0A0A0B0A0A0B0A0B0A0A0A0A0A0A0A090A09090A090A0A0A09
+      0909090909090909090908090909080908090808080908080908090808080808
+      0808070808070808070708080807070707070707070607070707060707060606
+      0606070606060606060706060606060606060506060505050605050505050505
+      0505050505050504050504050504040404040505040504040504040404040404
+      0404040404030404030403040303040304030404030303030303030303030303
+      0303030203030303030202030302020202030202020202020202020202020201
+      0202020201020102020201020201010101020101010101010100010101010101
+      0100010000000101000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F3030302F302F2F302F302F2F302F302F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F3132323333333534353637373838383A3A
+      3B3A3A3A2F2F2F2C2C2C2C2C2D2D2D2D2C2D2C2C2C2D2D2C2C2C2D2C2D2D2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2B2C2D2C2C3434353B3C3C3D3D3D3C3C3C
+      3C3C3C3C3C3B3B3C3C3C3B3B3B3B3C3B3A3A39393A3333332C2C2C2B2B2A2B2B
+      2A2B2B2B2A2B2B2A2A2A2A2A2A2A2A2A2A2A292A2A292A2A2A29292A2A2A2929
+      292A2D2D2E303030303030313030313131333333353535363637373737383838
+      2727282627282727282626272626282B2B2B2D2D2C2D2C2C2D2C2C2D2C2C2D2C
+      2C2D2C2C2D2C2C2D2B2C2C2C2C2C2B2C2B2B2C2B2B2B2B2B2B2B2B2A2B2B2A2A
+      2A2B2A2B2B2A2B2B2A2A2A2A2A2A2A2A2A292A292929292A2A2A292929282929
+      2928292828292829292828282828282828282828282828282827272828272727
+      2827272727272727272727262626262626262626262626262626262626252626
+      2625252525252525252525242525252424242424242424242323242323242323
+      2423232422222322222322222322222322222222212221212221212120212121
+      212121202120202021202020202020201F20201F1F201F2020201F1F1F1F1F1F
+      1F1F1F1E1F1F1E1E1E1F1E1E1E1E1E1E1E1E1E1E1E1E1E1E1D1D1D1E1D1E1D1D
+      1D1D1D1D1D1D1D1D1D1C1D1C1C1C1C1C1D1C1C1C1C1B1B1C1C1C1B1B1B1B1B1B
+      1C1B1B1B1B1A1A1B1B1B1A1A1B1A1A1A1A1A1A19191916161617161717161617
+      1717191A192D2D2D3435353A3A3A4041404545451D1D1D141414141414141413
+      1413131313131313131313121313131313131212121212121212121212121112
+      1111121111111112111111111111111111111010111010101010101010101010
+      10100F0F0F0F10101010100F0F0F0F0F0F0F0F0E0E0F0F0F0E0F0E0E0E0F0E0E
+      0E0E0E0E0E0E0E0D0E0E0D0E0D0E0D0E0E0E0D0D0D0D0D0D0D0C0D0C0C0D0C0C
+      0C0C0D0D0C0C0C0C0C0C0C0C0C0C0C0B0B0C0C0B0B0B0C0B0B0C0B0B0B0B0B0B
+      0B0A0B0B0B0B0A0B0A0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A090A0A0A09090A09
+      09090909090A0909090909090809090908080908080808080808090808080807
+      0807080808080708070707070707070707070707070707060707070607060706
+      0706060606060606060606060606060506060606050506060606050505050506
+      0505050505050505050405040404040405040404050504050404040404040404
+      0404040404040404030304040303040303030404030303030303030303030303
+      0203020203020303020203030202020202020302020202020202020202020202
+      0201020202020101010101010201010102010101010101010101010101010000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030302F302F302F303030302F2F302F2F302F2F302F
+      2F2F2F2F2F2F2F2F3232323333333534343736363838383A3A3A3A3B3A2F302F
+      2C2D2C2D2D2D2D2D2D2D2D2D2D2D2C2D2D2C2D2E2D2D2D2D2C2C2D2C2D2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2B2C2C2C2B2C2B2B2B2D2C2D3435343B3B3B3D3D3D3C
+      3C3C3C3B3C3B3B3C3C3B3B3B3C3B3B3C3C3A3A3B3939393333332C2C2C2A2A2B
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292A292A2A2D2D2D2F30303130
+      3031323132323133333233343336353637373737373838393831313127272826
+      27272727272627282726272B2B2B2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C
+      2D2C2C2D2C2C2C2C2C2C2B2C2C2C2C2C2B2C2B2B2B2B2B2B2B2B2B2A2B2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A292A29292A2929292929292929
+      2929292828282828282828282828282828282828272727272728282727272727
+      2727272627272727272727262626262626272626262626262626262525262525
+      2525252525252525242525252524242524242424242424232324232324232324
+      2222242222232222232222232222232122222222222122212121212121212021
+      2120212020202020212021201F20202020201F201F1F1F20201F201F1F1F1F1F
+      1F1F1E1E1F1F1F1F1E1E1E1E1E1E1D1E1E1E1E1D1E1D1D1E1D1D1D1D1D1D1D1C
+      1D1D1D1D1C1D1D1D1D1C1C1C1C1D1D1C1C1C1C1C1B1C1C1B1B1C1B1B1B1B1B1B
+      1B1B1B1B1B1B1B1A1A1A1B1A1A1A1A1919191717171717171717171717181B1A
+      1A2F2F2F3435353B3C3C40404046454515141514141514141414141313141313
+      1413131313131313131312131313121312121313121212121212121212121211
+      1111121211111111111111111111111111111111101010101010101010101010
+      100F0F100F10100F0F100F0F0F0F0F0F0F0F0F0E0F0E0F0F0F0F0E0F0E0E0E0E
+      0E0E0E0D0E0E0E0E0E0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D0D0C0D0D0C0D0D0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0B0C0B0B0B0C0B0B0B0A0B0B
+      0B0A0B0B0B0A0B0A0A0B0A0A0A0A0A0A090A0A090A0A0A0A0909090A09090A09
+      0909090909090809090909090909080809080809090808080808080808070807
+      0708080708080808070707070708070707070707060607060707070607060706
+      0707060706060606060606060606050605050605050505050606060606050505
+      0505050405050504050405050505040505040404050404040404040404040404
+      0404040404040404040403030403030304030303030303030303030302030303
+      0303030302030303030202020203030303020202020203020202020202020201
+      0202010201020101010101020102010101010101010001000100010100000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030302F3030302F30302F302F302F302F302F2F2F302F2F30302F2F2F2F2F2F
+      2F3232323333333534343637373939383B3B3A3B3A3A302F302C2C2C2D2D2D2D
+      2D2D2D2D2D2C2D2C2D2D2D2D2E2F3433333534343131312E2E2E2C2C2C2C2C2C
+      2C2C2B2C2C2C2B2C2C2C2C2B2B2B2B2B2B2B2B2C2B2C2C2C3434343B3B3B3D3D
+      3D3D3D3D3B3B3C3C3C3B3C3B3C3B3B3B3A3A3A3A3A3A3938393332332C2B2B2A
+      2A2B2A2B2A2A2B2A2A2A2A2A2A2A2C2C2C2F2E2F303030323132323232333333
+      3434343535353636353636373737383131322A292A2727282727282727282627
+      282727272727272D2D2C2D2D2C2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D
+      2C2C2D2C2C2C2C2B2C2B2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2B2B
+      2A2A2B2A2A2A2A2A2A2A292A2A2A2A292A2A2A29292A292A2929292929292928
+      2929292928292928282828282828282828282827272727272727282827272727
+      2727262727272626272726262626262726262626262626262526252526252525
+      2525252525252525252525252524242424242424232423232423232423232422
+      2323232223222223212223222222222122222222222121212121212120202121
+      212020202120202020202020201F201F201F1F201F201F1F1F1F1F1F1F1F1F1F
+      1F1F1E1E1F1F1E1E1F1E1F1E1E1E1E1E1E1E1D1D1D1D1D1D1D1D1D1D1D1D1D1D
+      1D1D1C1C1D1C1D1C1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1B1C1C1C1C1B1C1B1B
+      1B1B1A1B1B1A1B1B1A1A1B1918181717171716171716171717171E1E1F313030
+      3737373C3C3B4343433F40401514141414141514141414141414131414131313
+      1413131313131313131313121212121312131212121212121212121112121212
+      1212111112111111111111111111101111101011111010111010101010101010
+      100F0F0F0F0F0F0F0F0F0F100F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0F0E0E0E
+      0E0E0D0E0E0E0D0E0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0D0D
+      0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0C0C0B0B0B0B0B0B0B0B0B0B0A
+      0A0B0A0A0B0A0A0B0A0A0A0A0B0A0A0A0A0A0A090A090A09090A0A0A090A0909
+      0A09090909090909080909080908080909080809080808090808080807080807
+      0707070808070808080707070707070707070707070607070607070606060607
+      0607060606060606060605060605050506050605060506050506060505050505
+      0505050505040505040505050405050505040505040405040404040404040403
+      0304040403040404030304030303030303030303030303030303030303030303
+      0302030203020202030202030302030202020203020202020202020202020102
+      0201010102010201020101010101010201010101000101000101010101000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F3030
+      302F302F303030303030302F30302F2F2F2F2F2F2F2F2F2F2F30323232333333
+      3535353636373938393B3A3B3B3B3B2F302F2C2C2D2E2D2E2E2D2D2D2D2D2D2D
+      2D2D2D2D2E2E2F3534343434353435353535343435353232312E2E2D2C2C2C2C
+      2C2C2C2C2C2C2C2C2B2C2B2B2B2C2C2B2B2B2B2C2B2C2B2D2C2C3434343B3B3B
+      3C3D3D3B3C3B3B3C3B3C3B3B3B3B3B3B3B3B3A3A3A3A3A3A3738373231322C2C
+      2C2A2B2A2B2C2B2F2F2F32323232323132323233333234343436353536363638
+      3737383838303030282828272828282728272728272728272728272628262728
+      2726282E2D2C2E2D2C2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C
+      2C2C2C2B2C2C2C2C2B2B2B2C2C2B2B2B2B2B2C2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2A2B2B2B2A2A2A2A2A2A2A2A2A2A292A2A29292A29292929292A282929292828
+      2928292828282829282828282828282828282828282728272727272827272727
+      2727272726272727262626262627272626262625262625262525252526262526
+      2525252525252524252424252424252424252323242323242323242323232322
+      2322222322222322222221222222222222212122212121212121212121212021
+      21202021202121202020202020201F20202020201F1F201F201F1F1F1F1F1F1F
+      1E1F1F1F1F1E1E1E1E1E1E1E1E1E1E1E1D1E1E1E1D1E1D1D1D1D1D1E1D1D1D1D
+      1D1C1C1C1D1D1C1D1D1C1C1D1C1C1C1C1C1C1C1B1C1C1B1B1B1B1B1B1B1B1B1B
+      1B1B1B1A1B1A1B1717191717181717171717171818172122223233323737373E
+      3E3E4444443A3A3A141515141414141414141414141413131414131314131313
+      1313131313131313121312121212121212131212131212121112121211121112
+      1111111111121111111111111111101111111010111011101010101010101010
+      10100F100F0F0F100F0F0F0F0F0F0F0F0F0E0F0F0F0F0F0E0F0E0F0E0E0E0E0E
+      0E0E0E0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0C0C0D0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0B0B0C0C0C0B0B0C0B0B0C0C0B0B0B0B0B0B0B0B0B0B
+      0B0B0B0B0A0A0A0A0B0A0A0A0A0A0A0A0A090A0A09090A0A0A0A090909090909
+      0909090908090909090809090909080908080809080808080808080808070808
+      0707070708070807080707070707070707070606070706060706060607060606
+      0606060606060606060606060606050606060506050505060505050505050505
+      0504050504050504040504040405050404050404040404040404040404040304
+      0404040404030403030404040303030303030303030303030303030303020203
+      0203020303030203020202020202020202020202020202020202020202010202
+      0102020201010101020101010101010101010101000000010100000101000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F30302F2F3030302F2F30302F32323233333435353537373739
+      39393B3B3B3B3B3A3030302D2D2D2D2D2D2D2D2D2D2D2D2D2D2E2D2E2D2F2F2F
+      3534343535343435353535353534343434353434353434343231312E2D2D2C2C
+      2C2C2C2C2C2C2C2C2C2B2C2C2C2B2B2B2B2B2B2B2C2C2B2B2B2C2C2C3434343B
+      3B3B3D3C3D3C3B3C3B3B3B3B3B3C3B3B3B3A3A3A393939383838363636313030
+      3333333333333333333433343433343435353535353738383737373131312929
+      2A2828282828292728292727282728292727282727292727282727282928292D
+      2D2C2D2D2D2D2D2C2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C
+      2C2C2B2C2C2C2C2C2C2B2B2C2B2C2B2B2B2B2B2B2B2B2B2B2B2A2B2B2A2A2B2A
+      2A2A2A2A2A2B2A292A2A2A2A2A29292A2A292929292929292929292929292928
+      2928292928292828282828282828282828272827272728282728272727272727
+      2627272626272726262726262726262626262626262626252625252525252525
+      2525252525242425242425242424232324232324232323232324232323222223
+      2222232222222222222222222222212122212221222121212121212121212121
+      20202120202020202020202020202020201F1F20201F1F1F1F1F1F1F1F1F1F1F
+      1E1E1E1F1F1F1E1E1E1E1E1E1E1E1D1E1E1E1E1D1E1D1E1D1D1D1D1D1D1D1C1D
+      1D1D1C1C1C1D1D1C1C1C1C1C1C1C1C1B1C1C1C1C1C1B1B1B1B1B1B1B1B1B1B1B
+      1A1B1A1817181817171717171717171919192625263333323939393F3F3F4444
+      442E2D2D15151415151414141414151414141414141413141413141313141313
+      1314131313131313131313131312121213121212121212121112121211111212
+      1211111111111111111111111010111010101010101010101010101010101010
+      10100F100F0F0F0F0F0F0F0E0F0F0F0F0F0F0E0F0E0E0F0E0F0E0E0F0E0E0E0E
+      0E0E0E0E0E0D0D0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0C0C0D0C0C0D
+      0C0D0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B
+      0B0B0A0B0A0A0A0A0A0A0A0A0A090A0A09090A09090A09090A0A0A0909090909
+      0909090908080808080809090908080809080808090808070807080707080808
+      0707080808070708070807080707070707070706070607070707070606070606
+      0606070606060606050506060606050505060505060605050505050505050505
+      0505050505050504050405040505040405040404040404040404040403040404
+      0404040404040403030403030303040303030303030303030303030202030303
+      0202020203030303030202020302020202020202020202020202020202020202
+      0102010101010101010101010101010100010000010100000001000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303030303030302F
+      2F3030302F3030302F302F303132323334343534353737373939393B3B3B3B3B
+      3B3030302D2D2D2E2E2E2E2E2E2D2E2D2E2D2D2D2E2D30313036353535353535
+      35353534353535343535353434353535353434343434333434333131312D2C2D
+      2C2C2C2B2C2C2C2C2B2C2B2C2B2C2B2B2B2B2B2B2C2B2B2B2A2B2B2C2C2C3334
+      343D3D3C3D3D3D3B3B3C3C3C3B3A3A3A3A3A3A39393938373836373735363635
+      353535363536363636363637363738383833333229292B272828282829282829
+      2728292828292827282728282728292728282727292928292C2C2B2D2D2D2E2D
+      2C2E2D2D2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C
+      2C2C2C2C2C2B2B2C2C2B2C2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2A2A
+      2A2A2A2A2A2A2A292A292A2A292A292929292A292A2929292929292928292828
+      2929282928282928282828272828282828272727282727272727272727272727
+      2727262727272626262726262726252626262626262625252525252525252525
+      2525252524242524242523242524232423242423232423222322222322222322
+      2323222222222222222222212221212121222221212121212121202020202120
+      2020202120202020202020201F201F1F201F1F1F1F1F1F1F1F1F1F1F1F1F1E1F
+      1E1E1E1F1E1E1E1F1E1E1E1E1D1D1E1E1E1E1D1D1E1E1D1D1D1D1D1D1D1D1D1D
+      1D1C1C1D1C1C1D1C1D1C1C1C1C1C1B1B1B1C1C1C1B1C1B1B1B1B1B1B1B1B1B18
+      1818171818171717181717191A192A2A2A3534353A3B3B404040454545282828
+      1514151415151414151515141414141414141414141314141413131313131313
+      1313131312121313121312131212121213121212121212121211121112111111
+      111111111110111111101111111110111010101010101010101010100F101010
+      0F0F0F0F0F0F0F100F0F0F0F0F0F0F0E0F0F0F0F0F0E0E0E0E0E0F0E0E0E0D0E
+      0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0D0D0C0D0D0C0D0C
+      0D0C0C0C0C0C0C0C0B0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0B0A
+      0A0A0A0A0B0A0A0A0B0A0A0A09090A0A090A0A0A09090A090909090909090909
+      0909090909090908090808090908080808090808080808080808070808070708
+      0807070707070708080707070707070707070707070606060706060606060607
+      0606060606060605060606060505060505050606050505050505050505050505
+      0505050505050505050505050405050504040404040404040404040404040404
+      0404030403030304040303030403030303030303030303030303030203020203
+      0202020303030302030202030202020202030202020202020202020101020101
+      0101010102010201010101010101010100010001000101000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030302F3131313333333434353636373838383A3A3A3B3B3B3030302D2D2D
+      2E2E2E2E2E2E2E2E2E2E2D2E2D2E2D3031313635363535353535353535353535
+      353534353535353535353435353535353534333434333434333433333030302C
+      2C2D2C2B2C2C2C2C2C2B2B2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2B2B2B2D2C2D
+      3536353C3C3D3B3B3C3B3B3B3A3A3A3A3A3A3939383838383838383737383737
+      373838383838383535352D2D2D28272829292928282928292929282928282928
+      28292728292828292829282A2A2B2D2E2D2E2E2D2E2E2D2E2D2D2D2D2D2E2D2C
+      2D2D2C2E2C2D2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C
+      2C2C2B2C2C2C2B2B2C2B2C2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2B2A
+      2A2B2A2A2A2A2A2A2A292A2929292A29292929292A292A292929292929282929
+      2829292828282828282828272727282828272728282828272728272726272727
+      2727262627272726262726262626262626262626262526262525252525252525
+      2424252424242424242423242324242323242323232223232223232323232222
+      2322222222222222222121222122212221212121212121212121202020212021
+      202121202020201F201F1F20202020201F201F1F201F1F1F1F1F1F1F1F1E1F1E
+      1F1F1F1E1E1E1E1E1E1E1E1D1D1E1D1E1E1E1E1E1D1D1D1D1D1D1D1D1D1D1C1D
+      1C1D1C1C1C1C1C1C1D1C1C1C1B1C1C1C1B1C1B1C1B1B1B1B1A1B1B1818181818
+      181817181717171A1B1A2D2E2D3535353B3B3B41404147474723222215151515
+      1515151414151415151515141414141314141414131314131314131313131313
+      1313131313131312131212131213121212121212121212121211111111111111
+      11111111111111101111111011101111101110101010101010100F1010101010
+      0F0F100F100F0F0F0F0F0F0F0F0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0E0D0D0D0D0D0D0D0D0C0D0D0D0D0D0C0D0C0C0D0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0B0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0B0A0A0A
+      0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0909090A09090A0909090A09090909
+      0909090809090809090908080808090808080908080708080708080808080707
+      0807080807070807070707070707060707070706070706070706070606060606
+      0607060606060506050606060506050606060605050505050505050505050505
+      0505050504050405050404050404040404040404040404040404030404040403
+      0403040404030304030303030303030303040303030303030303030302030302
+      0303030203020302020202020203020202020202020202020202020201010101
+      0201010101010101010101010101000001010000010000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030302F2F30303131
+      313433343535343737373838393B3A3A3C3D3C3131312E2D2D2E2E2E2E2E2E2D
+      2E2E2E2E2D2E2D2E313031353636353535353535353536353535353635353534
+      3535343535343435353534353534343434333434343433333433333333333030
+      302C2C2D2B2C2B2C2B2C2C2B2B2B2B2B2B2C2B2B2B2B2A2B2B2A2B2B2A2B2A2C
+      2C2D3635353C3B3B3B3B3C3B3B3B3A3A3A3A3A393839383938383A3A39383839
+      3130302828282928292928292928292929292828292828292828292828292929
+      292C2B2C2E2E2D2E2E2E2E2E2E2E2E2D2E2E2D2E2D2D2E2D2D2D2D2C2D2D2D2D
+      2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2B2C2C2B2B2C2B2C2C2B2C2B2B2B2B2A2B2B2B2B2B2B2B2B2B2A2B2B2A2A2A2A
+      2A2A2A2A2A292A2A2A2929292A29292A29292929292929282928292829292929
+      2828282828282828282828282827282827272827272728272727272727272727
+      2727262627272727262626262626262626252525252525252525252525252524
+      2425242425232324232424232324232324232223232224222323232223222222
+      2222222222212222212122212221212122212121212121202021212120202020
+      202020202020202020201F20201F1F1F201F201F1F1F1F1F1F1E1E1F1F1F1E1E
+      1E1E1E1E1E1E1E1E1E1E1E1D1E1D1E1E1D1D1D1D1D1D1D1D1D1D1D1C1C1D1D1C
+      1C1D1C1C1C1C1D1D1C1C1C1C1C1C1B1C1B1C1B1C1B1A1A181819181818181818
+      1818191C1C1B3030303636363C3C3B4141424747461918181516151515151515
+      1414151414151414141414141414141413131414141413141313131313131313
+      1313131313131312131212121213131312121212121212111211111212111111
+      1111111011111111101010111011101010101010110F1010101010100F0F100F
+      100F0F0F0F0F0F0F0F0E0F0F0F0E0F0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0C0D0D0D0C0C0C0C0C0C0C0D
+      0C0C0B0B0C0C0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A
+      0B0A0B0A0A0A0B0A0A0A0A0A090A090A090A0A090A0909090909090909090909
+      0909090909080808080908090908080808080808080808080708080808070807
+      0808080707070807070707070707070707060706060607070606070606060606
+      0606060606060606060505060605050605050605060505050505050505050505
+      0504040505050504050405040505040404040404040404040404040403040404
+      0304030303030303030403030303040303040203030303030202030303020302
+      0303020302020203020202020202020202020202020202020101010101010101
+      0101010101010101010101010101010000000100000001000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030313030343433353535
+      3637373938393B3B3B3D3D3D3333342D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2D2E
+      2E31313136353636363535353535353536363535363535363535353535353534
+      3534353435353535343434343434343433353433343333343333333333323333
+      30302F2C2B2C2C2B2C2B2B2B2B2B2B2C2B2B2B2B2B2B2B2A2A2B2A2A2B2B2B2A
+      2B2C2D2D3535353B3B3B3B3B3B3B3B3B3A3A3B3B3B3B3433332A292A29292A29
+      2A292A292929292928292929282928282928282929292A2C2C2C2E2E2E2F2F2F
+      2F2F2F2F2E2E2E2E2E2F2E2E2F2E2D2E2E2D2E2D2D2E2D2D2E2D2C2D2D2D2D2C
+      2C2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2B2C2C2C
+      2C2C2C2C2C2B2B2C2C2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2B2B2B2A2A2A2A
+      2A2A2A2A2A2A2A292A2A2A2A29292A2A29292929292929292829292829282928
+      2828282828282828282828282828272727272827282727272827262726272727
+      2626262726262626272626262626252525252525262525252525262424252424
+      2524232424242423242423232423232423232422232323232322232322222223
+      2222212222222222212121212121212121212121212121212021202020202020
+      20202020202020202020201F201F1F1F1F1F1F1F1F1F1F1E1F1F1F1F1F1E1E1E
+      1E1E1E1E1E1F1E1E1E1E1D1D1E1E1D1D1D1D1D1E1D1D1D1D1D1C1C1D1C1D1C1C
+      1D1C1C1C1C1C1C1C1C1C1C1C1C1B1C1B191A191918191818181817181918191F
+      1F1E3232313737373D3D3D434342444443161516161615161615151515151414
+      1415151414151414141415141414141414131414141414141314141313131313
+      1212121312121212131312121312121212121211121212121111121112111111
+      1111111110111111101011101010101010101010101010101010100F10100F0F
+      0F0F0F0F100F0F0F0F0F0F0E0F0E0F0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0C0C0D0C0C0D0C0C0C0C0C
+      0B0C0C0C0C0B0C0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0A0A0B0A0A
+      0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0909090909090909090909090909
+      0909090808080808080809080808080808080808080808080807080808070807
+      0807080807070707070707060707070707060707060607060606060606060606
+      0606060605060606050606060506050505050505050605050505050505050405
+      0504050504050504050504040404050404040404040404040403040403040404
+      0404040303030304030303030303030303030302030303030203020303030303
+      0303030302030202020203020202020202020202020201020101020201010102
+      0101010101010100010101010100000100010000000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303131313333333434343636363838383B
+      3A3B3C3C3D3434342E2D2D2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E313131363635
+      3636363635363635363636363536353535363535353535353535353535353535
+      3535353435353434353435343434343335343334333334333334333333333332
+      33332F30302C2C2C2B2B2B2C2B2C2B2B2B2B2B2B2B2B2B2B2A2B2B2B2B2A2B2B
+      2B2A2B2D2C2D3535353C3C3C39393A2F2E2F2929292A29292A29292A2A29292A
+      292A29292929292829292929292C2B2C2F2F2E2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2E2E2E2E2F2E2E2F2E2D2E2E2D2E2D2D2E2D2D2E2D2C2E2D2C2D2D2C2E2C2C
+      2D2C2D2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C
+      2C2C2C2B2B2B2B2C2B2B2B2B2B2B2B2B2A2A2B2B2A2A2A2B2B2A2A2A2A2A2B2A
+      2A2A2A2A2A2A2A2A292A292A2A29292929292929292929292929292829292929
+      2928282828282828282828282828272727272727272727272727272727262727
+      2727262726262626262626262526262525252525252525252525242425242425
+      2324242324242323242323242323242323242223232222232322222222222222
+      2222222122222122222221212222212121212121212120202121212120202020
+      211F20201F2020201F1F201F1F201F1F1F1F1F1F1F1F1F1F1F1E1F1E1E1F1F1E
+      1E1E1E1E1E1E1D1E1E1E1E1D1E1E1E1D1E1D1D1D1D1D1D1D1C1D1D1C1C1D1C1D
+      1C1C1C1C1C1C1C1C1C1C1B1B1A191A191818181818181818191919201F203333
+      323838383D3D3D4343433A3B3A16161615161516151616161615151515151514
+      1514141414141514151514141414131314141313131314131314131313131313
+      1312131213121312121213121212121212121212111112121111111112111111
+      111111101110111110111111111010101010110F101010101010100F100F0F0F
+      0F0F0F0F0F0F0E0E0F0E0F0F0F0E0F0E0E0E0F0E0E0E0E0E0E0D0E0E0E0E0E0E
+      0D0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C
+      0C0B0C0B0B0C0C0B0B0C0B0B0B0B0C0B0B0B0B0A0B0B0B0A0A0B0A0B0B0A0A0A
+      0A0B0A0A0A0A0A0A0A0A0A0A0A09090A0A090A090A09090A0909080909090909
+      0809090809080908080809080808080808080708080808070708080707070708
+      0707070707070707070707060707060706060707070707060606060606060606
+      0505060606060506060606050506060505050605050505050505050505050405
+      0504040505040504050504040405040504040404040404040403040304040404
+      0303030404040303030303030403030303030302030303030302030303030202
+      0203020302030302020202020202020202010201020201020102010201010101
+      0101010101000100010101010001010000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303333333434343635363838383A3A3A3C3C3C3838
+      382D2D2E2F2F2E2E2E2F2E2E2E2E2F2F2F2F2E2F2F3036363636363636363635
+      3636363635353536363536363636353535353535353535353535353535343435
+      3535343535343434343534333433333433333434343433333333333333333333
+      33333332302F302C2B2C2B2B2B2B2B2B2B2B2B2B2A2B2B2B2B2B2B2A2A2B2A2B
+      2B2A2A2A2A2C2C2D2B2B2B2A2A292A2A29292A2A29292A2A2A2A2A29292A2929
+      2929292B2B2B2F2F2F302F30302F2F2F2F2F2F2F2F2F302F2F2F2F2F2F2F2E2E
+      2E2F2F2E2F2E2E2F2E2E2E2E2D2E2D2D2D2D2D2E2D2C2D2D2C2D2C2C2D2C2D2D
+      2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2B
+      2C2B2C2B2C2B2B2B2B2B2B2B2B2B2B2B2B2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2929292A2A2A29292929292929292929292929282928282928
+      2828282828282828282728272828272727272728272827272727272626262726
+      2626262726262626252626252525252625252525252524242524242524242424
+      2324242424242324232324232424232323232223232222232322222222222322
+      2222222222222221212122212121212121212120212121212120202120202020
+      2020201F201F1F2020202020201F1F1F1F1F1F1F1F1F1E1F1F1F1F1F1E1F1E1E
+      1E1E1E1E1E1D1E1E1D1E1E1E1E1E1E1D1D1E1D1D1D1D1D1D1D1D1D1C1C1C1D1C
+      1C1C1C1D1C1C1C1C181919181919181819191918191919242425333332393939
+      3E3D3D4243423131311616161616161515151615151516151514151515151514
+      1515141514141514141413141414141414131413141413131413131313131313
+      1313131212121312121312121212121212111212121112111112121111111111
+      10111110101010101010101010101010101010101010100F0F0F1010100F0F0F
+      100F0F0F0F0F0F0F0F0F0E0F0E0E0E0E0E0E0E0E0E0E0D0D0E0E0E0E0D0E0E0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0D0D0C0C0C0C0C0C0C0C0C0C
+      0C0B0C0B0C0B0B0B0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0A0A0A
+      0A0A0A0A0A0A0A0A0A090A090A090A0A09090909090909090909090808080808
+      0909080908090908080808080808080808080808080708070808080707070808
+      0707080707070607060607070606070707060707060606060706060606060606
+      0606060505050606050506060506060505060505050505050505050504050505
+      0505050404040405040404040404040404040404040404030304040303030303
+      0404030303030303030303030303030303030302030303030302020202020302
+      0302020202020202020202020202020201010202020201010102010101010101
+      0101010101010101000101000000000001000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303232323434343636363838383A3A3A3C3C3C3837382E2E2E2E2F2F
+      2F2F2E2F2F2F2F2E2E2E2E2E2F2F303636363636363636363636363636363636
+      3636353636353535363635353635353535363536353535353535353535353535
+      3534343433353433343434343333343333343333343333333333333333323332
+      33323233323230302F2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2A2B2A2B2B2A2B
+      2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292A2A29292A2B2B2E2E2E30
+      3030303030302F30302F2F2F2F302F2F2F30302F2F2F2F2F2F2F2F2F2E2F2F2E
+      2F2E2E2E2E2E2E2E2D2E2D2D2E2D2D2E2D2D2E2D2D2D2D2C2D2C2C2D2C2C2D2C
+      2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2B2B
+      2C2C2B2B2B2B2B2B2B2B2B2B2B2B2A2B2A2A2B2B2B2A2A2B2B2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2929292A292A292929292929292829292928282828282828
+      2828282828282827282827272728272828272727272727272727272727262726
+      2726262626262625262625252525252525252524262424252424252424252424
+      2424242423242423232423232323232323222323222222222222222222222222
+      2222222222212122212121212120212121212121212120212020202021212020
+      20201F2020201F1F20201F1F1F201F1F201F1F1F1F1F1F1F1F1F1F1E1E1E1E1F
+      1E1E1E1E1E1D1E1E1D1D1E1E1E1D1E1D1D1D1D1D1D1D1D1D1D1D1D1C1D1C1C1C
+      1C1C1C1C191919191919191919191818191A1A2727273232323737373C3C3B41
+      42422A2A2A161616161616151616161616151516151515151515151515141415
+      1514151414141414141414141414131313141314131313131313141313131213
+      1213131213121212121212121212121212111111121212111111121111111111
+      101110111110111011101110101010101010101010101010100F0F100F100F0F
+      0F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0E0E0E0E0E0E0D0E0D0E0E0E0D0E0E0D0E
+      0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0B0A0B0A0B0A0B0B0A0B0A0A0B
+      0A0A0A090A0A0A0A090A0A0A0A0A0A0909090909090909090909090908090908
+      0909090909080808080808080808080808080807080707070808080807070707
+      0707070707070707070707060606060606060607060606060607060606060606
+      0606060606060506060606050506050505050505050505050404050505040405
+      0405040404040405040404040404050404040404040304040404040303030404
+      0303030303040304030303040304030303030303030302030302020302020203
+      0202020202020302020202020202010201020201010201010101010001010101
+      0101010001010100000101000001000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303232
+      323434343535353737373A3A3A3C3C3C3B3B3B2F2F2F2F2F2F2F2E2F2F2F2F2E
+      2F2E2E2E2F302F31363636363636363636363736363636363636363636363635
+      3636363535353635363535353535353535353535353535353535353535353534
+      3434343334343435343334343334343334333333333333323333323332323332
+      32323333323233322E2E2E2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A
+      2A2B2A2A2A2A2A2A2A2A292A292A2A2B2A2A2E2E2E3131313131303030303030
+      303030303030302F302F2F2F302F2F2F2F2F2F302F2F2F2F2F2E2E2E2F2F2E2E
+      2E2E2E2E2D2E2D2D2E2E2D2E2D2D2D2D2D2D2C2D2E2D2D2D2C2D2D2C2C2D2C2C
+      2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C
+      2C2B2B2B2B2C2B2B2B2B2B2B2B2B2A2B2A2A2A2A2A2B2B2A2A2A2A2B2A2A2A2A
+      2929292A2A292929292929292929292929292929282929292928292928282828
+      2828282828282827282727272827282727272727272727272727272726262726
+      2626262526262526252525252526252526242425242425242425242424232424
+      2423242323242324242323232323232222232223222222222222222222222222
+      2122212122222122212121212121212121212121202021212020202020202020
+      201F201F1F20201F20201F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1E1F1F1F1F1E1E
+      1F1E1E1D1E1E1E1D1E1E1D1D1E1E1E1D1D1D1D1D1D1D1D1D1C1D1C1C1C1B1B1C
+      19191918191919191918191919191A2A29293132313636363B3B3B3F3F3F2121
+      2117161616161616161615161516161515151515151515141514151514141515
+      1515151414141414141413131414141313131313131314131313131313121313
+      1313131212131212121212121212111212111112121111111111111111111111
+      111111111011111110101110101010101010100F100F0F0F100F0F0F100F100F
+      0F0F0F0F0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0E0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0C0C0D0C0C0C0C0C0C0C0C0B0C0C0C
+      0B0B0C0B0C0B0B0C0C0B0B0B0B0B0B0B0A0B0B0B0B0A0B0B0B0A0A0A0B0A0A0A
+      0A0B0A0A0A090A0A0A090A090A09090A09090909090909090909090809080908
+      0808080908080808080808080808080808080807070807070708070807070807
+      0707070707070707070707070707070606060706060607060606060606060606
+      0605060605060605050505050505050505050505050505050505040505040505
+      0405050404040405040504050404050404040303040404030303040404030304
+      0304030303030304030303030303030303030203030303020202030202020202
+      0303020202020202020202010202020202010202010101010101010101010101
+      0101010000000001010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030313131343434353535
+      3737373939393B3B3B3C3C3C2F2F2F2E2E2E2F2F2F2F2F2F2F2E2F2F2F2F2F2F
+      2F35353537363637373636363636363636363636363636353636363636363635
+      3635363635363636353636353535353535353635353535353535353534343434
+      3534343434343433333433333433333333333333333333333233333333333332
+      323333333332323131322E2E2E2B2B2B2A2B2B2B2A2B2B2B2B2B2A2A2B2A2A2B
+      2B2A2A2A2B2A2A2A2C2C2C302F30313131313130303130303031303030303030
+      30303030303030302F2F30302F30302F2F2F2F2F2F2F2E2E2F2F2E2F2E2E2F2E
+      2D2E2E2D2E2D2E2E2D2D2E2D2D2E2D2D2E2D2C2E2D2D2D2C2C2D2C2C2D2C2C2D
+      2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2B2B
+      2B2B2C2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2B2A2A2A2A2A2A2A2A2A29
+      2A292A2929292929292929292929292929292828282829292929282928282828
+      2828282728282828282728272727272827272727262727272726272726272625
+      2626252625252625252625252625242525252524252524242424242423242423
+      2424232324232323232323232323222223232222222222222222222222222222
+      2222222121222121212121212121212121212121202121202020202020201F20
+      2020202020201F1F201F1F201F1F1F1F1F1E1F1F1F1F1E1F1E1E1E1E1E1E1E1E
+      1E1E1E1E1E1E1D1E1D1E1E1E1E1D1D1D1C1D1D1D1C1D1C1D1D1B1B1C1A191919
+      1919191919191819191A192C2C2C3131323434343838383B3B3B1C1B1B161616
+      1717161616161616161616161616161515161615151515141515151415151515
+      1514141414141414141414131314131313131413131313131313131212131312
+      1312121313121212121212121212111112121211111111111111111111111111
+      101110111111101111101010101010100F101010100F0F0F0F0F100F0F0F0F0F
+      0F0E0F0F0F0F0E0F0F0E0F0E0F0E0E0E0F0E0E0E0D0E0E0E0E0E0D0E0D0D0D0D
+      0D0E0E0D0D0D0D0D0D0C0D0D0D0D0C0C0D0C0C0C0D0D0C0C0C0C0C0C0C0B0C0B
+      0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0A0A0A0A0A0A0B0A0A
+      0A0A0A0A09090A09090A09090909090909090909090909090908090909090908
+      0909090808080908090808080808070808070808070707070708080708080707
+      0707070707070707070607070607060607070706060607060606060605060606
+      0605060505060506050505050505060505050505050504050405050405040504
+      0404050404040405040404040404040404040404040404040404040303040304
+      0303030303040303030303030303030303020303030202030202020202030203
+      0202020302020202020202010101010202010101010101010101010101000101
+      0101000001000000000100000000000001000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303131313333333434343636363939393B
+      3B3B3D3D3D3131312E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2E2F30363635373736
+      3736363736363636363636363636363636363636363636363536363636363635
+      3636353535353535363635363536353536363535353535353535343335343435
+      3434343434353433343333343333333333333333333233333333333333323332
+      3333323232323232323131312E2E2E2B2B2B2B2B2A2B2A2B2A2B2A2A2A2A2C2A
+      2B2F2F2F31313131313131313130313130313030303030303030313030303030
+      302F3030302F2F302F30302F2F2F2F2F2F2F2F2F2F2F2E2F2E2E2F2E2E2F2E2E
+      2F2D2D2F2D2D2E2D2D2E2D2D2E2D2D2D2D2D2E2C2C2D2D2D2D2C2D2D2C2C2D2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2B2C2B2B2B2B2B2B2C
+      2C2B2B2C2C2B2B2B2B2B2B2B2B2B2A2B2B2B2B2A2A2A2A2A2A2B2A2A2A2A2A2A
+      2A2A2A2929292929292929292929292829292928282828292928292828282828
+      2828282827282727282728282727282727272727272726272627272626262627
+      2625262525262525262525262524252425252524252424242324242424242424
+      2424242323232323232323232323222322232322222222222222222222222222
+      2222212121212121212121212121212121202021212120202020202020202020
+      202020201F1F201F201F1F1F1F1F1F1F1E1F1F1F1F1F1F1F1F1E1E1E1E1E1E1E
+      1E1D1E1E1E1D1E1D1D1D1D1D1E1D1D1D1D1D1D1C1D1B1A1B19191A1919191919
+      191919191C1C1C2D2C2D2F2F303231313434343737372C2C2C19191916171617
+      1616161616161615161516151515161515151615151515151515151414141415
+      1415141414141414131414141314131413141314131313131313131213121313
+      1212121313131312121212121211121112111211111111111111111111111111
+      1110101011111110111110101010101010100F1010100F0F0F0F0F0F0F0F0F0F
+      0F0F0F0F0F0F0F0E0E0E0E0F0E0E0F0E0E0E0E0D0E0E0D0D0E0D0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0C0D0C0D0C0C0C0D0D0C0C0C0C0C0D0C0C0C0C0C0C0B0C
+      0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0A0A0B0A0B0A0A0A
+      0A0A0A0A0A090A0A0A09090A09090A090A0A0909090909090809090909080808
+      0908080808080909080808080807080808080808080808070807070807070707
+      0707060706070607070707070607060607060706060607060606060606060506
+      0506060605060505050505060605060605050505050405050505050504040405
+      0505040404040504040404040404040303040403030304040403030403040304
+      0303030403030303030303030303030303020303030303030302020202020202
+      0202020202020201020101010202020101010102020101010101010101010101
+      0100000101000000010001000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303333333434343636363838383A3A3A3D3D3D3434
+      342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F34343438363737363637373737
+      3737363636363637363636363636363636363636363636363636363636353636
+      3635363635353635353535353635353535353535353535343434343534343434
+      3435343334343434333434343333333333333333323232333332333332323232
+      32323333333232323232323131312E2E2D2B2B2A2B2A2B2D2C2D313130313232
+      313131313131313131313130313131313131303130303031303030303030302F
+      30303030302F2F302F2F2F302F2F302F2F2F2E2F2F2E2F2E2E2F2E2E2F2E2E2F
+      2D2D2F2D2E2E2D2D2E2D2D2E2D2D2E2C2D2D2C2C2D2C2C2D2D2C2D2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2C2C2C2C2B2C2C2B2B2B2B
+      2B2C2B2B2B2B2B2B2A2B2A2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A
+      292A292A292A292A292929292929292929292928282928282929282828282828
+      2828282728272827272828272728272727272727262627262626262626262626
+      2526252526252526252525242525242425252424242424242324242424232424
+      2424232323232323232323232223232223222222232322212222222222212122
+      2221212221212121212121212121212120212120212021202120202020201F1F
+      201F1F1F2020201F1F1F1F1F1F1F1F1E1E1F1E1F1F1F1E1E1E1E1E1E1E1E1E1E
+      1E1E1E1D1E1D1E1D1D1D1D1D1D1D1D1D1D1A1A1B1A191A1A1A1A1A1A1A1A1A1A
+      1F1F1F2D2D2D2D2E2E303031323233353535353635302F30191A191817171817
+      1717171617171717171716161616171616161615161616161616161615161615
+      1515151515141515141414141415141414151414141415141414141313141313
+      1413141414131313131312131312131212131213121213121212121212121112
+      1111111010101010111010101010101010100F0F10100F100F0F100F0F0F0F0F
+      0F0F0F0E0E0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0E0E0E
+      0D0D0E0D0D0D0D0D0D0D0C0D0D0C0D0C0D0C0C0C0D0C0C0C0C0B0C0C0C0C0B0C
+      0B0B0C0B0B0C0C0B0B0B0B0B0B0A0B0B0A0A0A0B0B0A0B0A0B0B0B0A0A0A0A0A
+      0A0A090A0A0A090A090A09090A09090A09090909090809090809090909080908
+      0909080809080808080808070708070808080708070808080707070707070807
+      0707070707070707060606060706070706060606070606060606060605060606
+      0606050505050505050505050605050505050505040405050405050404040405
+      0505050404040404040404040404040304040304040403030304030304040303
+      0303040303030303030303030303030303030303030202020202020202020202
+      0202010202020202020202020201010102010101010101010101010101010000
+      0001010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303232323434343535353737373A3A3A3C3C3C3838382E2E2E2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3434343737373837373837373736363736363736
+      3636363636363737363736373636373636363636363636353636363536363635
+      3635353535353536363535353535353535353534353434343434353433353434
+      3533333433343333333333333333333333333333333333333333333333323232
+      3232323232323232323232323230313130303032323231323232313231313231
+      31313131313131313031313131313131313031313030303130303030302F302F
+      3030302F302F302F2F302F2F2F2F2E2F2F2E2F2E2E2F2E2E2E2E2D2F2D2E2F2E
+      2D2E2E2D2E2D2E2E2D2D2E2D2C2D2D2D2D2C2C2D2C2D2D2C2C2D2C2D2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2B2B2C2C2C2B2C2C2C2B2C2C2B
+      2B2B2B2B2B2B2B2A2B2A2A2B2A2B2A2C2B2B2B2B2B2B2B2B2B2B2B2D2C2B2C2B
+      2C2D2B2C2D2B2B2D2B2B2C2B2B2C2C2B2B2C2A2B2A2B2A2929292A2929292929
+      2828282728272727282727272727272726272726272626272625272626262525
+      2625252625252625242524242525242424242424242423242423232423242324
+      2323232423232323232323232323222323222222222222222222222222222222
+      21222121212121212121212121212020212021212120212020201F2020201F20
+      201F202020201F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1F1E1E1F1F1F1F1F1F1F1F
+      1F1E1F1E1E1E1F1E1E1E1E1E1F1B1B1B1B1A1B1B1A1B1B1A1B1A1A1B1C1C1C27
+      26272E2E2E2E2D2E3130303131313232323232322C2C2D1D1D1C181717181717
+      1717171617171616171717171616161616161616161516161615161515161516
+      1515151514151514151414151515141415141514141414141413141414131413
+      1313131313131313131313121313121212121213121312121112121212121211
+      1111111111111111111111111111111010101111111011100F0F0F0F0F0F0F0F
+      0F0F0F0F0F0F0E0E0F0F0E0E0F0E0E0E0D0E0E0D0D0E0E0D0E0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B
+      0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0B0A0A0A0A0A0A0A0A0A0A09
+      0A0A090A09090909090909090909090909090909090909080809090908080908
+      0908080909080808080808070807070707080807070807070707070707070707
+      0706070607070707060707070606060606060607060606060605060605050606
+      0505050606050506060505050605050505050504050405040505050405040405
+      0405040404040404040404040404040404040404030404040303030303030303
+      0303030303030303030303030302030303030303020203030203020202020202
+      0202020202010202010101010101010101010101010101010101010100010101
+      0001000100000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303232
+      323434343535353737373939393B3B3B3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F323232373737383737383737383737383636373737373736363636
+      3736373636363636363637363636363636363636363636363636363535353635
+      3635353535363535363535363535353535343435343435343435333435343434
+      3333343334333433333334333333333333333333323333333332323232323233
+      3232323333323232323232323132323232313231313232313131313131313131
+      313131313130313031303131303130313131313030313030303030302F30302F
+      2F2F2F302F2F2F2F302F2E2F2F2F2F2F2E2F2E2E2F2E2E2E2E2E2E2E2E2E2D2E
+      2F2E2E2E2D2D2E2D2D2E2D2D2D2D2C2D2D2D2D2C2C2D2C2C2D2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2C2C2B2D2D2D2E2D2D2D2D2D2E
+      2E2E2E2E2E2F2E2E302F2F302E2F2F2F2E2F2F2E2F2F2E2F2F2F2F2F2F2F2E2F
+      2E2E2F2E2E2F2E2E2E2E2E2E2F2D2E2F2E2E2E2D2E2E2E2E2E2F2D2E2E2D2E2E
+      2E2E2D2D2C2B2B2C2C2C2A2A2A29292928282827262626262527252526252526
+      2525262525262524252525252425242424242424242424242423242323242423
+      2323232323232223232323232222222223222222222222222222222122212122
+      212122212121212121212121212021212120212020202020211F201F201F1F21
+      21202020202120202020202020201F2020201F20201F201F1F1F1F1F1F1E1F1F
+      1F1E1E1E1F1E1F1E1F1B1A1B1B1A1B1B1A1B1B1A1A1B1A1B1A1A1A1B1B1B2323
+      232F2F2F2F2F2F2F2F2F3031303131313131312F2E2E1D1E1E18181819181818
+      1818181718181818181717181717171717171717171716171616161716161617
+      1616161616161616161515161516151515151515151515141514151415151514
+      1415141414141413131213121212131212131213121312121213121316161619
+      1A1A1E1D1E212122222222121212111011101010101010101010101010101010
+      100F0F100F100F100F0F0E0E0E0E0E0E0E0E0D0D0E0E0D0D0D0D0D0D0D0D0D0D
+      0E0D0D0D0D0D0D0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B
+      0B0C0B0B0B0B0B0B0B0B0B0B0A0B0B0B0B0B0B0A0A0A0A0B0B0A0A0A0A0A0A0A
+      0A090909090A0909090909090909090909090909090909090808090808090809
+      0808080808080808080807080708080808070707070808080807070707070707
+      0707060707070607070607060706070606060606060606060606060606060605
+      0505060506050506050505050505050505050405040504050405040404040504
+      0404040405040404040404040404040404030403040404030304030304040303
+      0403040303030303030303030303030202030302020202020202020202020202
+      0202010201020101010101010101010101010101010101000101000001000100
+      0000010100000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030313131343434353535
+      3636363838383A3A3A3C3C3C3030302E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3030
+      3137373738373738373738373738373738363737373637363737363736373636
+      3636363636363637363636363636363636353635363536353636363636363635
+      3635363536353536353636353535343534343534343433343534343433343434
+      3433343334333333333333333333333333333333323333323232333232323333
+      3232323232323332323232313232313232323132313131323232313131313131
+      3131313131313131303031303131303130303030303031303030302F30302F30
+      2F302F2F30302F2F2F2E2F2F2E2F2E2E2F2E2E2E2E2E2F2E2D2E2E2E2E2E2E2F
+      2D2D2E2D2D2E2D2D2D2D2D2D2D2D2D2C2D2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2D2D2D2E2E2E2F2E2E302F2F3030302F30303030302F302F302F2F2F2F
+      2F2F2F2F2F2F2F302F2F302F2E2F2F2E302F2E2F2F2E2F2F2F2E2E2F2E2F2F2E
+      2F2F2E2F2F2F2E2E2E2E2E2F2D2D2E2D2E2F2D2E2F2E2D2E2E2D2E2D2D2E2E2E
+      2E2E2D2E2D2E2D2E2E2D2E2E2D2D2D2D2D2D2B2B2B2B2A2B2928292827272625
+      2526252525252525242424252524242424242424232424242423232423232423
+      2323232323222323232223222322222223222222222222222222222222222121
+      2121212121212121212021212121222222222221222121212120212121212020
+      202020212020202020201F20202020201F1F1F1F1F1F201F201E1F1F1F1E1E1F
+      20201F1F1F1D1C1C1C1B1C1C1B1C1C1B1B1B1B1C1B1B1C1C1C1D1C1C1C212222
+      2D2E2E2E2E2E2F2F2E2E2E2E2F2F2F302F302F2F2F1E1F1E1A19191919191919
+      1919191919181918181919181918191818181817181817171718171817171817
+      1717171617171716171716161717161616161616151616161615161615151515
+      1515141414141414131718171919191D1D1E1F20202121202222222221212222
+      232322222323231F1F1F1011111010101110101011101010100F101010101010
+      0F100F0F0F100F0F0F0F0F0F0F0F0F0F0F0E0E0E0D0E0E0E0D0D0D0E0D0D0D0D
+      0D0D0D0C0D0D0C0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0C0C0C0C0C0B0C0B
+      0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0A0A0B0B0B0A0B0A0A0A0A0A0A090A090A
+      090A090A0A09090A0A0909090A09090909090909090908080908080908090908
+      0808080808090808080808080808080708080707070708070707070707070707
+      0706070706070607060606060706060607060606050605060606060505050606
+      0505060506050605060505050505050505050505050405040504040404040404
+      0405040404040404040403040404040303040403030403030304030403030303
+      0303030303030303030303030203020202020303020202020202020202020201
+      0101010102010102010101010101010101010101010001010000000100000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303034343435353536363637373739
+      39393B3B3B3333332E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F30373736383837
+      3837373837373837373837373837373737373736363737363736373737373637
+      3636373636363737363636363636363636363636363635353636353636353635
+      3635353535363535353534353434353434353434353434353434343333343333
+      3333333333333333333333333333333233333333333333323232333332333232
+      3332323232323332323232323132313231323132313131313131313131313131
+      31313031303131313031313130313131303130303030303030303030302F302F
+      30302F2F2F2F2F2F2E2F2E2E2F2E2E2F2E2E2E2E2E2F2E2E2F2E2D2E2D2D2E2D
+      2D2E2D2D2E2D2D2D2D2C2D2D2D2D2C2C2D2C2C2D2E2D2E2F2E2F2F2E302F2F30
+      302F30302F30302F3030303030303030302F303030303030302F2F30302F2F2F
+      2F2F2F2F2F2F302F2F2F2E2E2F2F2E2F2F2E2F302E2F2F2F2F2F2F2E2F2F2E2F
+      2E2F2E2E2E2E2E2E2E2E2F2E2E2F2E2E2E2D2D2F2E2D2E2E2D2E2E2D2E2E2E2E
+      2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2D2C2C2D2C2C2A2A2A
+      2928282626262424252524252424242424242424242424242424232323242323
+      2323232323232322232323222322232222222222222222222222222123232322
+      2322222322222122222221222221212121212121212121202121202121202120
+      20202020202020202021212121212021202020202120212020202020201F2020
+      202021211E1E1E1D1C1D1D1C1D1D1C1D1C1C1C1C1C1D1C1C1D1E1E1E2020202C
+      2D2C2F2E2F302F2F2F2F2F302F303131313030301F1F1F1B1A1A1A1A1A1A1A1A
+      1A1A191919191A191A1919191919191919191918191919191818181818181818
+      18181718181818181818181718171718171617171717191A1A1B1B1C1E1E1E20
+      2120232223232223222322222222232423232323232323232323242324242524
+      2625262828281A1A1A111212121212111010101010101111101010101010100F
+      100F0F0F100F100F0F0F0F0F0F0E0F0F0F0E0F0E0F0E0F0F0E0E0E0E0D0D0D0D
+      0D0D0D0C0D0C0D0D0D0D0C0C0C0D0D0C0C0C0C0C0C0C0B0B0C0C0C0C0B0C0B0B
+      0B0B0B0B0B0B0B0B0B0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A
+      0A0A0A090909090A090909090909090909090909090908080809080909080808
+      0809080808080808080808080807080708080808070708070707070707070707
+      0707070707060606060606060606060606060606060506060505060606060606
+      0605050506060505050505050504050504050505050405050505040404040404
+      0404040404040404040404040404040404040303030303040403040303030303
+      0403040303030303030302030302020302020303020202020202020101010202
+      0102020101020101010101010101010101010100010101010101000100000001
+      0000000001000000000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303131313636363737373838383A3A3A3C3C
+      3C3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F30303038383738383738383738
+      3737383737383737383737383737373737373737363637373736363637363636
+      3636363636363636363636363636363636363635363536353635363536363535
+      3535353535353535353435343435343435343435343334333434343333333434
+      3334333334333333333333333333323333333333333232333232323332333232
+      3233323232323232323232313232323131323231323131313231313131313131
+      31313131303131303130313030313030303030313030302F3030302F2F2F2F30
+      2F2E302F2E2F2F2E2F2E2F2F2E2E2F2E2E2F2D2E2F2D2D2E2E2D2E2E2D2E2D2D
+      2E2D2D2D2D2D2E2E2E2F2F2E30302F2F302F302F2F302F2F302F2F302F2F3030
+      2F30302F30302F30303030303030303030303030302F30302F2F2F2F2F2F2F2F
+      2F2F2F2F2F302E2F2F2E2F302F2E2F2F2E2F2F2E2F2F2F2F2E2F2E2E2E2F2E2F
+      2E2E2E2E2E2E2E2E2E2F2E2E2F2D2E2E2D2D2E2E2E2E2E2D2E2E2D2E2E2D2D2E
+      2D2D2D2D2D2E2D2D2D2E2D2D2C2C2C2D2D2D2C2D2C2D2D2C2D2D2C2C2D2C2C2D
+      2D2C2B2C2C2A2829262726242424242424242424232423232424232323232323
+      2323232222232323222222222324232323232323232323232223232222222222
+      2222222222222221222121212121222121212121212122222221222121222221
+      2222212221212121222222222221222221212121212121212120212121202121
+      202020201F201E1E1E1E1D1E1D1D1D1D1D1E1E1D1D1E1D1D1D1D1D2020202B2C
+      2C2E2E2E2F2F2F2F303030302F3130303031311E1F1E1B1B1B1B1B1B1B1B1A1A
+      1B1A1A1B1A1A1A1A1B1A1B1A1A1A1A1A1A1A1A1A1A1A1A1A1A1919191A191919
+      1817171818181B1B1B1E1F1E2020202323232423242324232324232424242424
+      242424242324232424242424242425242424242425252525242526262727282A
+      2B2A2C2C2D151515121212121111111111111211111111111111101010101010
+      0F100F0F0F100F100F0F0F0F0E0F0F0F0E0E0E0F0F0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0B0C0B0C0C0C0B0C0C0B0B0B0B
+      0B0B0B0B0B0B0B0A0A0B0A0A0A0A0A0B0A0B0A0A0A0B0A0A0A0A090A0A0A0A0A
+      0A090A090909090A0A090A090909090909090808090809090908090808080808
+      0808080908080808080708080807080707070707070807070707070707070707
+      0707070707070707070606060606060606060606060606050506060505050505
+      0606050505050605050505050505050505050504050405040404040405040405
+      0404040404040404040403030404040304040403030404030303030303030303
+      0403030303030303030203030303020202020202020202020101010101020201
+      0202010201010101010101010101010101010001010100010000000001000000
+      0100000100010001000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303434343737373939393A3A3A3C3C3C3D3D3D
+      3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3333333838373838373837373837
+      3738373738373738373737363737373737373737363737363737373736363636
+      3637363637363637363636363636363636353635363635363636353536353535
+      3636353535343534343534343533343534343433343434343333333334343333
+      3434343333333334333333333332333332333233323332333232323232323332
+      3232323232323231323232313132313232313131313132313132313131313131
+      31313131313130313130303030303030303030303030303030302F2F302F2F2F
+      2F2F2F2E2F2E2E2F2E2E2F2E2E2F2E2E2F2D2E2F2E2E2F2E2D2E2F2F2F2F2F30
+      30303030303030302F2F30302F302F2F2F303030302F2F302F2F302F2F30302F
+      30302F30302F3030303030303030302F2F302F30302F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F302E2F2F2F2E2F2F2E2F2F2E2F2F2E2E2E2E2F2E2F2F2E2F2F2F2E2E
+      2E2E2E2E2E2E2D2E2E2E2E2E2E2D2E2D2D2F2E2D2E2E2E2E2E2D2D2E2E2E2D2D
+      2D2D2D2E2D2E2D2D2D2D2D2D2C2D2D2C2D2D2D2D2C2D2C2D2D2C2C2D2C2C2D2D
+      2C2D2C2C2D2D2C2B2C2B29292826262624232424242324232323232323232324
+      2424242324232424242323232324232323232323222323232323232223222322
+      2222222222222323232323222222232222222222222221222323222322232322
+      2322222222222222212222212221222221212121212121212121202021212020
+      20202020201E1E1E1E1D1E1E1D1E1E1D1E1E1D1E1D1D1D1E1D1E1F1F202D2D2D
+      3031313131313131313232323130302F30301F1E1E1B1B1B1B1B1B1B1B1B1B1A
+      1B1B1B1A1B1B1B1A1A1B1A1A1A1A1A1A1A1A1A1D1C1D1F1F1F21212124242426
+      2626262626262626262626262626262626262626262626262626272626262626
+      252525242425242525262525262526262626262626262726292A292E2D2D3031
+      3028282813131313131313121212121211111111111110111111111110111111
+      10101010110F0F0F0F0F0F0E0F0E0E0F0F0F0F0F0F0E0E0E0E0E0E0E0E0E0D0E
+      0D0D0E0E0D0D0E0D0E0C0C0C0C0C0D0C0C0C0B0C0C0C0C0B0B0B0C0C0C0B0B0B
+      0B0B0B0B0B0B0B0B0B0A0B0B0B0A0B0A0A0A0B0A0A0A0A0A0A0A0A0909090A09
+      0A0A09090909090A090909090909080909090808090909080908080808080808
+      0808080808080807080708080707070807080707080707070707070706070707
+      0707060706070706070606060706060606060606050606060605060505050505
+      0605050505050505050505050505050405050405050405040504040404040404
+      0404040404040404040404040304030304030403030303040303030403030303
+      0303030303020302020303030202020202020202020202020201010202010101
+      0102010202010101010101010101010100010001010000010000000001000000
+      0000010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303737373939393A3A3A3C3C3C3D3D3D3D3D3D2E
+      2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F30373737383837383737383737383737
+      3837373837373737373736373737373737363737373736373736363737373637
+      3736373636363636363636363636363636363636363635353536363535363535
+      3534363434353434353434343434353434343434343334333433333334333333
+      3333333433333333333333323233333333333233333232333232323232333232
+      3232323232323132313232323232313232313131323232313131313131313131
+      303131313130313031313030303031313030303030302F30302F302F2F302F2E
+      2F2F2F302E2E2F2F2E2F2E2E2F2F2F303030312F303030313030303130303030
+      303030302F3030303030302F2F2F2F2F302F2F302F30302F2F302F2F30302F30
+      302F30302F303030303030303030303030302F2F2F2F2F2F2F302E2E2D2E2E2E
+      2D2D2E2D2C2D2C2B2B2B2C2B2B2B2B2C2B2B2B2B2B2A2A2B2A2B2B2B2B2B2C2C
+      2C2C2C2C2D2D2D2F2E2E2E2E2D2F2D2E2E2E2D2E2F2D2E2E2D2D2D2E2D2E2D2E
+      2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C
+      2D2D2C2D2C2C2C2C2C2D2C2C2B2B2B2828272625262424252424242424242324
+      2423242424242324232423242323232323232323232323242323232323232323
+      2323232323242423232324242323232323232323222223232323222322222222
+      2222222222222222222221212121212223222222222222222221212222212223
+      222221211F1F1F1F1E1F1F1E1F1F1F1F1F1F1F1F1F1F2020202121212E2E2E31
+      32313233323232323232323030302D2E2D1F201F1C1C1D1C1C1C1B1C1C1C1C1C
+      1E1D1D2020202222222424242828282827282827272828272727272828282828
+      2828282828282828282829292929292929292928272828282929282828292828
+      28282726272727272323231F1F1F242323282828292A2A2E2F2E323231333333
+      2121211414141314131413141312131212121212121212111112121111101010
+      101011101010101010100F0E0F0F0F0F0E0F0E0E0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0D0D0D0D0E0E0E0D0D0D0D0D0C0C0C0C0C0C0C0C0B0B0B0C0C0C0B0B0B0B
+      0B0B0B0B0B0B0B0A0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A
+      0909090A0A0909090A0909090908090908090808090909090809080808080808
+      0808070808080808070807070807080707070708070707070706070707060707
+      0607060607060607070607060606060606060606060506050605060506060505
+      0505050505050505050505050505050404050504040404040404040404040404
+      0404040404040404040404040304030404030303030304030303030303030303
+      0303030203020303030302030203020202020202020202020201020101010101
+      0101010101010101010101010001010100010100000101000001010000000101
+      0001000001000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303333333939393A3A3A3B3B3B3D3D3D3E3E3E3736372F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F32323238383738383738373738373738373738
+      3737383737373737373737363637373736373637373637373637373637363736
+      3636363636363636363636363635353636363535363635353535353635353535
+      3435343435343435343435343435333434343333333334343433333433333333
+      3433333334333333333333333333333333323233323332323232323232323232
+      3232323232323231323232323131323232313131313131313131313130313131
+      3131313131313031303030313030303030302F30302F30302F302F2F302F2F30
+      2E2F2F2F2F30303031302F313130303030303130313130313030313030303030
+      30303030302F302F2F2F2F2F2F302F302F2F302F2F302F2F302F2F30302F2F2F
+      2F2E2E2E2D2D2D2D2C2C2B2B2A2B2B2B29292A2A292929292929292929292928
+      2829292929282829292828292828282828282728272727272627272626272626
+      2726262626262625262727272727272A292A2A2A2A2C2B2A2D2E2E2D2E2E2D2D
+      2E2D2D2D2D2D2D2D2D2D2D2D2C2C2D2C2D2C2C2D2D2D2D2C2C2D2C2C2D2D2B2D
+      2C2C2D2D2C2E2D2E2D2D2D2D2D2D2D2D2C2A2929272626242424242424242424
+      2424232424242424252425242424242323242423242423242424252425242424
+      2424232424232423232323232423232323232323232322222222232324232323
+      2323232323232322232323232324232323232323242424242324242424242323
+      232222212121201F20201F1F2120212020202020202121212221222E2E2F3332
+      32333333313131302F302F2F2F2F2E2E2323242626262828282A29292A2A2A2A
+      2B2B2B2A2A2A2A2A2A2A2A2A2B2B2A2B2A2A2B2A2A2A2B2B2B2B2A2A2A2A2A2A
+      2A2A2A2A2A2A2B2B2B2B2B2B2A2A2A292A292B2A2B2728282524242020211D1D
+      1D1919191818181818181818192A2A2A2C2C2C2E2E2F32323233333432323316
+      1616141414131413141313141314131314131413121212121111111211111212
+      1110101010101010100F0F101010100F100F0E0E0F0E0E0E0E0E0E0D0E0E0E0D
+      0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0C0C0B0C0C0C0C0C0B0B0B0B0B0B
+      0B0B0B0B0A0A0A0B0B0B0B0B0A0A0A0A0B0A0A0B0A0A0A0A0A0A0A090909090A
+      09090A0909090A0A090909090908090909080808090908080908080809080808
+      0808080708080808080707070707070707080707070707070707070607070606
+      0707060607070706070606060606060506060606060506060606060506050605
+      0506060506050505050505050505050504040404050404040404050404040404
+      0404040404040403040304040304040403030303040403030303030303030303
+      0303020203020302020202020302020202020202020101020102020202010102
+      0101010101010001010101010100010101000101000000010100010000000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303737373939393A3A3A3C3C3C3D3D3D3E3E3E2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3635353838373837373837373837373837373837
+      3737373737373737373737373736373736373637373636363736363636363636
+      3636363636363636363536363636363636353536353635363635353535353435
+      3535343534343534343534343434343434343433343334343434333334343334
+      3333333333333333323332333333333232323333323232333232323232323232
+      3232323232313232323131323131313231313231313131323131313131313031
+      30303031303030303030303030303030302F30302F302F2F302F303030313130
+      3131303131303031303031313030313030303131303030313030313030303030
+      2F30303030303030302F2F302F302E2F2F2D2D2D2C2C2C2B2B2B2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A292A2A292A2A292A2929292929292929292928
+      2929282928292929282829282828282828282828272727262727262627272626
+      2626262525262526252626252625252525252526252525262625282827292A29
+      2B2B2B2D2D2D2D2D2D2C2C2D2D2D2C2D2D2D2E2C2C2E2C2C2D2C2C2D2E2C2E2D
+      2D2E2D2D2E2E2E2D2D2D2D2D2D2D2D2D2C2D2D2B2B2B27282724242425252525
+      2525252425242524252525252525252525242525252425242424252424242424
+      2424232423232423242423242524242424242324242525242424242524242525
+      2525252525242425242424242424242424242425252525252425242524242425
+      2525232323222122222122222223222222222222232323232324303030323333
+      32323231313130303030302F2F2E2F2E2E2D2D2D2D2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2C2C2C2C2C2C2C2D
+      2D2D2D2D2D2828282425242121211E1E1E1A1B1B1A1A1B1A1B1A1A1A1A191919
+      191919181918191A192021202D2D2D3030303232323334343637362C2B2C1515
+      1515151514141414141313131313131313131413131313131211111111121212
+      11111111111111110F100F101010100F100F0F0F0E0E0E0E0E0E0D0E0D0D0E0E
+      0D0D0D0D0E0E0D0E0D0D0D0D0D0D0D0D0C0D0D0D0C0B0C0B0B0B0B0B0B0B0B0B
+      0B0B0B0B0B0A0A0B0B0B0A0A0B0A0A0A0A0A0A0A0A0A0A090A0A0A090A090A0A
+      09090909090A0909090909090909090808090809080908080908080808080808
+      0808070707080808080807070808080707070707070707070707070706070706
+      0607070706060607060706060606060506060605050605060606050606050606
+      0505050505050505050505050504040505040404040405040404040404040404
+      0404040404040404040404040403040303030303040303030303030303030303
+      0303020202020302020202020202020202020202020101010101010101010101
+      0101010101000101010100010101000000010100000001010000000000010000
+      0001000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303232323939393A3A3A3B3B3B3C3C3C3E3E3E3939392F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F313131383837383737383737383737383737383737373737
+      3737373737373637363737373637363637373737373736373636373736363636
+      3636363636363636363636363536353536363535353536363536353536343535
+      3534353434353434343334343434343334343334343333343334333433333334
+      3333333333333333333332333332323332333332323232323232323232323232
+      3232323232323232323232313131323132323131323131313131313130303031
+      3130313130303130313030303030303030313131313131313130303131313030
+      3131303130313130303131303131303130313131303030303031303030302F2F
+      2F2E2E2E2D2C2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292A292A2A2929292929292929282929
+      2928282929282829292828282827282828282826272726272726262726262626
+      2626262626262625252525262625252625252525242525252524252424242525
+      25252727282929292C2B2C2C2C2D2D2D2C2F2D2D2E2D2D2E2D2D2E2E2C2D2D2D
+      2E2E2D2D2D2D2D2D2D2C2D2D2C2C2D2E2D2D2D2D2E2D2C2C2828282525252626
+      2625262626252625252525252525242425242525242524242424242425252525
+      2425252525262626262525252525262625252625262626252526252625252525
+      2626262626262626262627262626262626262727272726272626262626262625
+      2624242424232424232323232323232323232325252526252631313233343433
+      33343232323232323132323231323030313030303030303030303030302F2F2F
+      2F2E2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2C2C2C2929292524252222221F1F
+      1E1F1E1E1D1D1E1D1D1D1D1D1D1C1D1C1D1D1C1D1C1C1B1C1B1B1B1B1B1B1B1A
+      191A1A1A1B1A1B1B2727272E2E2E313131333332363536383837202021161616
+      1616161515151514151414151313131313131313131312121213131312121112
+      111111111111111110100F0F10100F100F100F0F0F0F0F0F0F0E0D0E0E0E0E0D
+      0E0D0D0E0E0D0D0D0D0D0D0D0D0C0D0C0D0D0D0C0D0C0C0B0B0B0B0B0B0B0B0B
+      0B0B0B0B0A0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A0A0A0A0A0A0A09
+      0A0A0A0909090909090909090909090909090908080908090808080808080808
+      0708080707080808070708080808070708070707070707060607060607060706
+      0606060607070607060606060606060606060506050606060605060506050605
+      0505050505050504050504050504050404040404040404040504040404040404
+      0404040403030403040404030303030403030303030303030303030303030303
+      0302020302020202020202020202010202020201020102010101010101010101
+      0101010001010101010101010001010100000000010001000100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303535353939393A3A3A3C3C3C3D3D3D3E3E3E3232322F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F34343438383738373738373738373738373738373737373737
+      3637373637373737373737373737373737363736373737363636373636363636
+      3636363636363636363636363636353636353636353535353534343634343534
+      3435343435343434343434333434343434333434343334333333333333343333
+      3333333333333333323232323233333232333233333232323232323232323232
+      3232323231323232323132313231313232313131313131313131313131303131
+      3030303130313132313131313131313131313131313130313131303131313031
+      30313130303130303031303131303131312F302F2E2E2E2C2C2C2C2B2B2B2B2B
+      2B2B2B2A2A2A2B2B2A2B2A2B2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A292A2A2A2A29292A2929292A292929292929292928292929
+      2928282929282829282828282828272728272727272727272726272626262626
+      2626262625262526252625262525262525252524252525252524242524242524
+      252424242424242726272828282C2B2B2E2D2D2E2D2D2E2D2D2E2E2D2D2E2D2D
+      2E2D2F2E2E2E2E2E2E2E2E2E2E2D2D2E2E2E2D2E2D2D2E2C2C2C282929262625
+      2526262525262525262525252525252626262526252525252726262626262727
+      2726262727262726272626262627272727272727272627272827272728282927
+      2828272728272728272828282829282828282828282727282727272727292728
+      2626262625252525262525252525252525252626262626263332323535363535
+      3534343434343433323333323332323232323232323232313232323132313231
+      30302D2D2D2A2A2A252525212122212221222121212121212121212121202020
+      202021201F201F1F1F1F1F1E1D1D1D1E1E1E1D1D1E1C1C1C1C1C1C1B1C1C1B1C
+      1B1C1C1C1D1C1D2E2E2E30303034343435353537383736363618181816161616
+      1616151616161515141414141414141414131313121213121312131212121213
+      121212111111101111101011101110100F0F0F0F0F0F0F0F0F0F0F0F0F0F0D0D
+      0D0D0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0C0D0C0C0C0C0B0B0B0B0B0B0B
+      0B0A0A0B0A0B0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A09090A0A090A0A09
+      09090A090A090909090908090809080809080808090808090808080808080708
+      0808070807070807070807070707080708070707070707060707060606070706
+      0706060706060606060606060606060606060606060506050505060605050505
+      0506050505050505050404050404040504050404040404040404040404040404
+      0403040404040404040403040304030403030303030303030303030303020302
+      0303020203020202020202020202010202020101010102020102010101010101
+      0101010001010100010100010101000001000000010000000000000000010100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303031
+      31313838383A3A3A3B3B3B3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F303737373837373837373837373837373837373737373737373737
+      3737373736363736373636373637363736363637363736363636363636363636
+      3636363636363636363635353535353635363534363535353435353434353435
+      3534343434343434343334343333333434343433343433333333333333343433
+      3333333333333233323333333333323332323332323233333232333232313232
+      3232323232323132323131313231313231323131313131313130313131313131
+      3231313132313131313132323131313131303030313030313030313130313130
+      303131303030302E2E2E2C2D2D2D2C2B2C2B2B2C2B2C2C2B2C2C2B2B2B2B2A2B
+      2B2A2B2B2B2A2A2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A29292A2A292929292929292929292929292829
+      2929292828292829282828282827272827262728272727262727272626262626
+      2626262526252526252525252525252525252525242425252424242424252525
+      2525252525252525252425242526252929292C2C2C2E2D2D2E2F2E2E2F2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2D2E2D2D2D2F2F2E2E2F2F2E2E2E2E2D2D28282926
+      2625262727262626262626262726272626272828282727282728272726262727
+      2728282828272829292828282929292928292929292928292929292929292929
+      292929292929292A292A2929292929292929292928282929292A292829282828
+      2828272627272627262626272727272727272727282828333334363736353535
+      3535353535353435353534353434343131312D2C2D2929292727272524242424
+      2424242424242424242423242323242424232323232323232322222221212222
+      2221202021202021201F2020202020201F1E1F1E1E1E1E1D1D1D1C1D1D1C1C1D
+      1C1C1D2423242F302F3232323433343636363738382B2B2B1616161616161616
+      1616161616161615151515151514141414141414141412131313121312121212
+      12121212121212121110111010101010101010100F0F0F0F0E0F0E0F0E0E0E0F
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0C0C0C0C0D0C0C0C0C0D0C0C0C0C0B0B0B0B0B
+      0B0B0A0A0A0A0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A090A0A0A0A0A090A0909
+      090A090909090909090909080908080809080808080808080808070808080808
+      0708080808080707080707070707070707070607070707070707060707060607
+      0606060606060606060706060606060606060506060605060605050505050505
+      0505050505050405040404040504050404040404040404040404040404040404
+      0404040404040404030303030303030303030403030303030202020302020203
+      0202020202020202020202020102010201010201020201010101010101010101
+      0101000001010100010100010101010000010001010001000000000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303434
+      343939393A3A3A3B3B3B3D3D3D3E3E3E3434342F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F333333383737383737383737383737383737383737373737373737373737
+      3737373736373737373737373737373636363737363636363636363636363636
+      3636363636363636363536353536363535353435353435343535343435343535
+      3434343434343434333434333434333434343334343434333433343433333333
+      3333333333333333333333333232333232323232333332333232323232323232
+      3232323232313231323131323131323131323132313132313131323132323232
+      3232323131323131313131313131313131313031303031313131302F302D2D2D
+      2D2D2D2D2D2C2D2D2C2D2C2C2D2C2B2C2B2C2C2B2C2C2B2B2C2B2B2B2B2B2B2B
+      2B2A2B2A2B2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A292A2A2A2A2A2A292929292929292929292929292929292829
+      2928292928282828282828282727282826272727272726272727262626262625
+      2526262625252525252525262525252525242425262526262525252526252525
+      25252424252525252525242525252525252828282C2A2B2E2F2E2F2F2E2F2E2E
+      2E2E2F2E2E2E2F2F2F2E2E2E2E2F2E2E2E2E2F2E2E2F2F2F302E2F2D2D2D2929
+      292728272828282828282728282828282829282829282929292929292A2A292A
+      2A2A2929292929292929292929292A2A2A2A292A2A2B2A2A2A2A2A2B2A2A2A2A
+      2B2A2B2A2A2A2A2A2A2C2B2B2B2B2B2C2B2B2C2B2B2C2A2B2B2B2A2B2A2A2A2A
+      2A2828282828282828282929292929292929292A2B2A3737373A3A3A36363633
+      33332F2F2F2C2C2C282828292828282828282828282728262727262727262626
+      2626262626262525252424252424252524242323232323232323232323232323
+      232322232222222121212121222222211F1F1F201F201F1F1F1F1F1F1F1E1F1E
+      1F1E2B2B2A3232333434343737363A3A393A3B3B1F1F1F181918171717171716
+      1616161616161616161616161515151515151414141314131313131213121212
+      121212111212111211121010101010101110101010100F0F0E0F0F0F0F0F0F0E
+      0F0E0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0C0C0D0C0D0C0C0D0C0C0C0C0B0B0B
+      0A0A0B0B0B0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A090A0A090A0A090909090909
+      0909090909090909090908080908080808080908080808080808080808080808
+      0808080807070708080708070807070707070607070607060606060706070606
+      0706060606060606060605060506060606050506060606060606050505060605
+      0505040505050505050504040404040404040404040404040404040404040404
+      0404030404030403030303030403030303030303030303030303020302020202
+      0202020202020201010102020202020201020102020101010101010101010101
+      0101010101010101000000010000000000000000000100000100010000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030373737
+      3A3A3A3B3B3B3C3C3C3D3D3D3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F37363638373738373738373738373738373737373737373737373737373737
+      3737363736373736363737373737363737363737373637363637363636363636
+      3636363636353636353636353635343634353635343534343534343535343434
+      3434343434343434343433343433343333333333343434333434343333333333
+      3333323333333332333332333332323232323233333233323232323232323232
+      3231323132323132313232323231313231323231313231313231313132313232
+      313231313131313131313131313131302E2F2F2E2E2E2E2D2E2D2D2D2D2E2D2D
+      2D2D2D2D2D2D2D2C2D2C2B2D2C2C2C2B2B2C2B2B2C2B2B2C2B2B2B2A2A2B2B2A
+      2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A292A29292A292A2929292A29292929292928292928292929282828
+      2828282928282828282828282828282727272627272626272626262626262526
+      2526252625262625252626272626262626252526262626262526262526252525
+      252525252625262525252525252525252626262727272A2A2A2F2F2F2F302F2F
+      2F2F2F2F2F2F2F2F2F2F2F30302F2F2F2F3130303030303230313131302D2E2D
+      2928282929292929292A292A2A292A2B2B2A2A2A2B2A2A2A2A292A2A2A2A2929
+      292A2B2B2B2C2B2B2B2B2B2B2B2B2B2A2C2C2B2B2B2B2C2C2D2D2D2D2D2D2D2C
+      2D2C2D2D2C2D2D2D2E2D2D2D2C2C2E2D2D2E2D2D2E2E2E2E2D2E2E2D2D2C2B2C
+      2B2A2B2B2A2B2B2B2B2B2B2B2B2B2B2B2B2B2E2D2E2B2B2C2B2B2B2B2B2C2B2B
+      2B2B2B2B2B2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292829292828292828
+      2828262727272627272726262627262626262626252525252525242525242424
+      2424242323242323232323232323232122212120212020201F1E1F2020202222
+      233131313434343636363939393A393A32323219191919191918181817181717
+      1716171616161616161616161616161616151514141414141313141313121212
+      1212121211121212121211111111111010101010101010100F0E0E0F0F0F0E0E
+      0E0E0E0F0D0D0D0D0D0D0D0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0B0C0B0B
+      0B0A0A0A0A0A0B0B0A0A0A0A0A0A0A0A0A090A090A0A0909090A0A0A09090A09
+      0909090909090909090909080808090908080808080808080708080807080808
+      0708080708070808080707070707070707070707070606060607070706060606
+      0607060606060606060606060605060605050605050505060505060505050505
+      0504050504050504050404050405040404040404040404040404040404040304
+      0404040304040303030303030303030303020302030303030202020202020202
+      0202020202010201010202020201010202010101010101010101010101010101
+      0101010101000100000101000000000100010000010001000001010000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303232323939393A
+      3A3A3B3B3B3D3D3D3E3E3E3736372F2F2F2F2F2F2F2F2F2F2F2F2F2F2F313131
+      3837373837373837373837373837373737373737373737373737373736373736
+      3637363737373636363636373736363737363737373736363637373736363636
+      3636363535363635363535363535353535363534353435353434343434343434
+      3434343333343334343434343434343434343333333334333433333333333333
+      3333333333333333323233323233333232323232323232323232323132323232
+      3231313132323132323231323131323131323131323131313231323132323132
+      3131313130312F2F2F2E2E2E2D2E2D2E2D2E2E2D2E2D2E2D2D2D2E2D2D2D2D2D
+      2D2D2C2D2D2D2C2D2C2C2C2C2B2C2C2B2C2B2C2C2B2B2C2B2A2B2B2B2B2B2B2B
+      2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A292A2A292A2A2A2A292A292929292A2929292929292929292928282929
+      2828282828282828282828282828272728272727262627262626262626262627
+      2627272627262627262626262626262625262526252626252526262726262626
+      2526262625262626262726262626262626262625262625252829292E2E2D3031
+      31303030302F2F3031313030313231323132313131313231313331313132312D
+      2D2D2B2B2B2B2B2B2B2B2B2A2B2A2B2B2A2B2B2B2B2B2C2C2C2C2B2C2B2C2B2B
+      2D2C2C2D2C2C2D2E2D2D2E2D2D2E2D2E2D2E2E2E2E2E2F2E2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2E2E2F2E2E302F2E2F2E2F2F2F2F2F2F2F2E2E2E2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2C2D2C2D2D2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2B2B2A2A2B2A2A2B2A2A2B
+      2A2A2A29292A2A2B2A2B292A292A292929282929282927272827272726272726
+      27272525252425252424242323232222222222232222222021212021202A2A2B
+      3433333636373939393C3C3C3D3D3D272727191A191A191A1919191819191817
+      1816161616161716161615161616161616161614141414151513131313131313
+      1313111111111211111112111111111111101010100F10100F0F0F0F0E0F0E0E
+      0E0E0E0E0E0E0C0D0D0C0C0D0D0D0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0B
+      0C0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A09090909090A090A0909090909
+      0909090908080909090808080808080808090808080808080708080808080807
+      0807080707070707070707070707070607070707070606070607070606060606
+      0606060606060605060606060606050606050505060505050505050505050505
+      0505050505040505040505040404040404040404040404040404040404040404
+      0404040403040403040303030303030303030203030303030202020202030202
+      0201020201020202010101010101020102010201010101010101010101010100
+      0101010000010101000100000000000101010101000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303636363939393A3A
+      3A3C3C3C3D3D3D3E3E3E3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F35353538
+      3737383737383737383737383737373737373737373737373737373737373737
+      3737363637363737373737373737363736373637373636363636363636363636
+      3536363536363536353536353436353535353435353435343535343434343434
+      3434343434333334333433343433343334333433333333333333333333333333
+      3333333332333332323332323233323232323232323232323232323232323232
+      323131323231313232313231323232313231313231303232313131313030302E
+      2E2F2E2E2F2F2E2E2E2E2E2D2D2E2E2E2D2D2E2E2D2D2E2E2D2D2D2D2E2D2D2D
+      2D2D2D2D2D2C2D2C2B2D2C2B2C2C2B2C2B2B2C2B2B2C2B2B2B2B2B2B2B2B2A2A
+      2A2B2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A29292A2A2929292929292929292929292929292929282929292829
+      2929282828282828282828282727272727272726262726262727272726262626
+      2727262626272626262726262626262627272727272627262626262627272727
+      27272727262726272627272626262626262625262726262625272A2B2A30302F
+      3232323232323131323132313232323332323232323331323432333333333030
+      302C2B2B2C2C2C2C2B2C2D2C2C2D2C2D2C2C2C2D2D2E2E2E2E2E2D2E2F2E2E2F
+      2F2E2F2F2F2F2F2F303030302F302F2F30303030303030303030313131313131
+      3131313131313130303130303231313131303231313231313232323131312F2F
+      2F2F2F2F2F2F302F2F2F2F2F2F2F2F2F2F30302F2F30302F2F2F2F2F2F2F2F2E
+      2E2F2F2F2F2F2E2F2D2D2D2D2E2D2D2D2D2D2D2D2D2D2E2E2D2D2D2D2D2E2E2E
+      2D2D2D2D2D2D2C2C2D2C2C2C2B2A2B2B2A2B2A2A2B2A2A2B2829292929292727
+      2727272726262626262624252523232323232323232323232323232332313236
+      36363838383A3A3A3D3D3D3A3A3A1E1D1E1B1B1B1A1A1B191919191919181919
+      1717171818181716161616161516161616161615151515151514141414151313
+      131213131112121112111111111112111111111010100F0F0F100F100E0E0F0E
+      0E0E0E0E0E0D0E0E0D0C0D0C0D0D0D0C0C0C0C0C0C0C0C0C0B0C0C0C0C0B0B0C
+      0A0A0B0A0A0A0A0A0B0A0A0A0A0A0A090A090A090A090A090909090909090909
+      0909090908080908080908080908080808080808080808080808080808070808
+      0808070807070707070707070707070607070607070707060707060606060706
+      0606060606060606060606060606060605050506050506050505050505050505
+      0505050505050404040404040404040404040404040404040404040404040404
+      0403030403030403030303030303030302020303030202020203020202020202
+      0202020202020201020202010201020101020101010101010101010101010101
+      0001000100010001000001010100000100000000000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303131313939393A3A3A3B3B3B
+      3C3C3C3E3E3E3A3A3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030303837373837
+      3738373738373738373737373737373737373737373737373737373737373736
+      3736373737363637363636363737363636363636363637373636363636363635
+      3536353635353635353535343534343635343534353434343435343434353434
+      3434343334343433333434343433343434343333333333333333333333333333
+      3333333332333332323232333332333233323232323232323232323132323231
+      323232323131323231323131323131313131302F2F2F2F2E2F2F2F2E2E2F2E2E
+      2E2E2E2E2E2E2E2E2E2E2D2E2E2D2E2E2D2E2D2E2D2D2D2D2E2D2D2D2D2D2D2D
+      2D2D2D2D2C2D2C2B2D2C2C2C2B2B2C2B2B2C2B2B2C2B2B2B2B2B2B2B2B2B2A2B
+      2A2B2B2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A292A2A292A292A29292A292929292A29292929292929282928282928292928
+      2828282828282828282827272727292728282827282727272727272727272727
+      2727272627262727272727272727272727272728282727272828282727272627
+      272627272626272627262827272727272827282727282827282827282C2C2C31
+      3131333332333233323332333334333333333333353334363435353534353535
+      3030302D2D2D2D2E2E2E2F2E302F2F302F302F2F2F2F30303030303030303031
+      3030303031313131313131313233323232323332323233333333333334333335
+      3434343434343334343333343433343333343534343434353535343333333233
+      3232333232333332323232323132323132323332333233323332323232323131
+      313131313232313131313232333232323232323232313231313030303030302F
+      2F2E2F2E2E2D2D2E2D2D2E2D2D2E2D2D2D2C2C2D2B2A2C2B2A2B29292A2A2929
+      2929292828282627262626262425242424252323232424242828293535363939
+      383B3B3B3E3E3E3E3E3E2E2D2D1C1D1D1D1D1C1C1B1B1B1B1B1A1A1919181819
+      1918191819171817171717161616151616161615151515151516141414141413
+      1313131212121111121111111111111111111111110F100F0F0F0F0F100F0E0E
+      0E0E0E0E0E0E0D0E0E0D0D0C0D0D0C0C0C0C0C0C0C0D0B0C0C0B0C0C0C0C0C0C
+      0C0C0B0A0A0B0A0A0A0A0A0A0A090A0A0A0A0A0A09090A0A0909090909090909
+      0909090809090909080809080908080908080808080808070808080808070808
+      0807070707070707070707070707060607070707060707060606060606060706
+      0606060606050606050606060505060605050505050505050505050505040505
+      0505050504040405040404040404040404040404040404040404040404040404
+      0403030303030303030303030303030302030302020202020202020202020202
+      0201020102020102010101020101010102010202010101010101010001010100
+      0000000001010100000001000000010101000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303535353939393A3A3A3C3C3C3D
+      3D3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F343434383737383737
+      3837373837373737373737373737373737373737373737373737373737373736
+      3737373737363637373736373637363637373636363636363636363536363535
+      3535353535363434363535353435353535343435343434343434343434343434
+      3434343434343334343334343433333334333333333333343333333333333333
+      3333333232333332323232323232333233323232323232323232323232323131
+      32313132313131313130302F2F2F2F2F2F2F2F2E2F2F2E2E2E2F2F2E2F2F2F2F
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2E2D2D2D2D2E2D2D2D2D2D2D2D2D2D
+      2D2D2D2C2D2C2C2C2C2C2C2B2B2C2B2B2C2C2C2C2B2B2B2B2B2B2A2B2A2A2A2A
+      2A2A2A2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A292A2A2A2A292A292A2A2A29292929292929292929292928292928282829
+      2828282828282828292929272828282828272728272727272727272727272627
+      2728272728282727282828272828272827282827272727282727272727272727
+      27282727272828282828292829292929282929282928272829292A2A2A2A2F2F
+      2F34343434343434343434343435353536363637363637363637373637373634
+      3434303030303030313030313130313231313131313131323232333333333333
+      3333333333333334343434353635353535353535353636363635353636363636
+      3636353636363536353537353636363637363636363737373735353635353535
+      3535353535353535353535353435353535353535353535353535353535353535
+      3535353535353535353535353535343534353433333333333232323232323131
+      31313030313031312F312F2E2F2D2D2E2D2D2E2D2D2D2C2D2D2C2C2C2B2B2B2A
+      2A2A2929282727282728272626262525252525252525253233333839383B3B3C
+      3C3C3C4040403F3F3F2021211D1E1D1C1D1C1C1C1C1C1C1C1B1A1A1A1A1A1919
+      1918181818181817171717171716151515151615161515151515151514131414
+      14131212121212131212121111111111101011111111110F100F0F0F100F0F0F
+      0E0E0E0E0E0D0E0E0D0D0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0B0C0B0C0C0B
+      0C0B0A0A0A0A0A0A0A0A09090A0909090A090A09090A09090909090909090908
+      0908080808080908080908090808080808080808080808080807080707070707
+      0707080708070707070707060707070706070606070706060706070707060606
+      0606060606060606060506060505050505050605050505050505050505040404
+      0504040405040404040404040404040404040404040404040304030303040304
+      0303030303030303030303020303030303020202030203020202020202020102
+      0202020201010201020201010101010201010101010101010101010101010100
+      0101000101000001010000000000000000000100010000010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303131313838383A3A3A3B3B3B3C3C3C3D3D
+      3D3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3037373738373738373738
+      3737383737373737373737373737373737373737373737363737373636373736
+      3637373737363737373736363636373736363636363636363636353636353535
+      3536353436353536343435353435343434353434343434343434343434343434
+      3334343433333434333334333333343333343334333334343333333332333332
+      3333323332323332333332323332323232323232323232323231323232323231
+      302F2F30302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2E2E2F2E2E2F2F2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2D2D2D2D2D2D2E2E2E2E2D2D2D2D2D
+      2D2D2C2D2C2C2C2C2B2D2B2C2C2B2B2C2B2B2C2B2B2B2A2B2B2B2A2B2B2A2A2B
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A
+      2A2A292A2A2A292929292A292929292928282929282929292928282828292929
+      2929292928292928292927282928282827282827272828282828282828272727
+      2728282828282828282828282828282728272827282728282828282828292829
+      28292A292A292929292A292929292A292A2A2A2B2A292A2B2A2B2B2B2B2C2C2C
+      3232313635353737363636363737373737373737373937373938373939383838
+      3834333332323233333333323233333334343433343434353535363636363636
+      36363636363636363737363737373838383837373838383938383938383A3838
+      3939383938383A3939393939393A393A393A3A3A3A3B3A3A3837373838373838
+      383838393939393939393A3A3A3A3A3939393A3A393939383838383838383838
+      3838373737373737373737373737363636363636353535353535343434343334
+      3333343232333231333131312F2F302F2F2F2E2F2F2E2D2E2D2D2D2C2C2C2C2C
+      2C2C2C2C29292928282827272727272727272729292A3939393B3B3C3D3D3D40
+      414141404134343420201F1E1E1F1D1D1D1D1D1D1C1C1C1B1B1C1A1B1A191A19
+      19191A1818181818181717171716171616151515161515161515151514151413
+      141313141213131213121111111111111111101011111110100F0F0F0F0F0F0D
+      0E0E0E0D0E0D0E0D0E0E0D0D0C0C0D0D0D0C0C0C0C0B0C0C0B0C0C0B0B0B0B0B
+      0B0B0B0A0A0A0A0A0A0A0A0A09090A09090A09090A090A090A09090909090908
+      0909080908090909090909080809080808080808080807080708070807070707
+      0708070808070807070707070707070607070707060607070707070607060606
+      0606060606050606050606050505060505050505060505050505050505050405
+      0404040504040404040404040404040404040404040404040403030403030303
+      0303030303030303030303030303020303020202020202010202010202020102
+      0201010202020101010101010101010201010101010100010101010001000001
+      0101010101000101010101000000010001010000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303333333939393A3A3A3B3B3B3D3D3D3E3E3E
+      3535362F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3232323837373837373837373837
+      3737373737373737373737373737373737373737373737373737373736363736
+      3636373636363637373637363736363736373736363635363635363535353535
+      3535353534353535353535353534343434343434353534343434343434343433
+      3434343333333334343433333434333333333334333333333333333333333333
+      33333233333333333332323332323232333232323232323031312F302F303030
+      3030302F2F302F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2E2E2F2F2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2D2E2E2E2D2E2E2D2E2E2D2E2D2D2D2E2D2D2D2D2D2D
+      2D2C2C2C2B2C2C2B2D2B2B2C2B2B2C2B2B2C2A2A2B2B2B2B2B2A2A2B2B2A2B2A
+      2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      29292A29292A29292A29292929292929282829292829292A2929292A29292A29
+      2929292829282929292728282728292829292828282828292929292829282829
+      2828282829282728282828272829292829282A292A2929292A2A2A2A292A292A
+      2A2A2A292A2A2A2B2B2C2C2C2C2C2B2B2B2B2B2C2A2C2C2B2C2B2B2C2C2C2C30
+      2F303736363737373838383938383939393B393A3C3B3B3C3B3A3B3B3B3A3A3A
+      3636373535343535353535363636363636363636363736363737383838383938
+      38393939393A3A39393A3A3A3B3B3A3A3B3B3B3C3B3B3C3B3B3C3C3C3C3C3C3C
+      3B3B3C3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D3D3D3D3C3C3D3C3D3D3C3D3D
+      3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3C3D3D3C3D3C3C3C3C3B3B3B3B3B3B3A3A
+      3B3A3B3A3A3B3A3A3A3A38393939393838373837373836363636363636363636
+      35363634363434343232333232333131313131312F30302E2E2E2E2E2E2D2D2D
+      2C2C2D2B2B2B2B2A2B29292A2929292828273332333B3B3B3E3D3D3F3F3F4242
+      424343432525262021201F201F1F201F1E1E1E1D1D1D1C1C1C1C1C1B1B1B1A1A
+      1B1A191919181818181818181717161716151515151615151515151515151415
+      1413141314131213121212121111111110111010111110100F0F0F0F0F0F0F0F
+      0F0E0E0E0E0E0E0E0E0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0C0B0C0B0B
+      0B0C0A0A0A0A0A0A0A0A0A0A090A0A0A090A0909090A09090A09090909090909
+      0908090909090909090908080808080808080708080808080807080807080707
+      0708080707070707070707070607070706060706060606060606070606060706
+      0506060605060605050505050505050505050505050505040405050404040404
+      0404040404040404040404040404040404040404040404040303030303040303
+      0303030303030303030303020202020202030302020202020202020202020201
+      0202010102020101010101010101010101010101010101010100000101010000
+      0000000000000001010000000000000001000001000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303737373A3A3A3A3A3A3C3C3C3D3D3D3E3E3E2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F363636383737383737383737373737
+      3737373737373737373737373737373737373737373637373737373737373737
+      3737363636373736373736363736363636363636363536363536343436353536
+      3535363534353434353435343435343434353435353434343434343433343434
+      3433333434343334343333343333333333333333323333323233333333333233
+      32323333333333333332323232313131303030303030302F302F2F30302F302F
+      302F2F302F2F302F2F2F2F2F2F2F2F2E2F2F2F2F2E2F2F2F2E2F2F2E2E2E2E2E
+      2E2E2E2E2E2E2E2D2E2D2D2E2D2D2D2E2E2E2D2D2E2D2E2D2D2D2D2D2D2C2D2D
+      2C2D2C2B2C2C2B2C2C2B2C2B2B2C2B2B2C2B2B2B2A2B2B2A2A2A2A2B2A2A2B2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A2A2A2A2A
+      2A2A2A2A2A292929292A29292929292A2A2A292A2A29292A292A2A2929292929
+      292929292A29292A29292929292A29292A292929292829292829282929292828
+      29282828282929292929292A2A2A2A2B2B2A2A2A2A2A2A2A2A2A2B2B2A2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2D2C2D2D2D2E2E2C2E2D2C2D2E2D2E2E2E2E3030
+      2F3535363A393A3A3A3A3B3B3B3B3B3B3C3B3B3C3B3B3D3D3C3D3D3C3E3E3E3A
+      3B3B373737373637373737383938393939393939393A393A3A3B3C3B3B3B3B3B
+      3C3C3C3C3C3C3D3C3D3C3C3C3D3D3D3E3D3D3E3D3D3F3E3E3F3D3D3E3D3D3F3F
+      3E403F3F3E3F3F40403F3F3F403F3F3F403F403F3F3F404040403F3F3F3F403F
+      3F3F403F3F3F3F3F3F3F3F3E3E3E3E3E3E3E3F3F3E3E3E3E3E3E3D3D3D3D3D3D
+      3D3D3D3D3D3D3D3D3D3C3C3C3C3C3C3A3A3B393A3939393A3938393837383737
+      383736363535363535363434343333333131313231313030312F2F2F2E2E2E2D
+      2D2D2D2C2C2C2C2B2A2A2A2B2B2B2C2C2C3939393E3D3D404040434443444444
+      373737232323212221212020201F1F1F1F1F1D1E1E1D1D1D1B1B1C1B1B1B1C1B
+      1B1A1A1A19191918181818171818171717171615161515151515151415141514
+      15141413131212121212121111111111111010111011101010110F0F0F0F0F0F
+      0F0F0F0D0D0E0D0D0E0D0D0D0C0C0D0C0C0C0C0C0C0C0C0B0C0C0C0B0C0B0C0B
+      0C0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A09090909090909090909090909
+      0809090909090809080808080808080808080808080807080708070708080707
+      0707070707070707060707070707070607070707060606070606060606060506
+      0605060606050606060605050505050505050505050505050505050404040404
+      0405040404040404040404040404040404040403040303030404040303030303
+      0303030303020302030203020202020202020202020202020202020202010102
+      0101020102010201010101010101020101010100010101010101010101010000
+      0101010001000000010101000000000101000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303232323939393A3A3A3B3B3B3D3D3D3E3E3E3838382F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F31313138373738373738373738373737373737
+      3737373737373737373737373737373737373737373737373636373737373736
+      3737373636363737363636363636353736353636363635353635353635353535
+      3435353435343535343434343535353434343434343534343433343434333434
+      3333343333343433343332333232333333333332333332333333323333333332
+      333333323332323131303031303030303030303030303030302F2F2F302F2F30
+      30302F2F302F2F2F302F2F2F2F2E2F2F2F2E2E2E2E2E2F2E2F2E2E2E2E2E2E2E
+      2E2E2E2E2E2D2E2E2D2D2E2D2D2D2E2E2E2E2E2D2E2D2D2D2D2D2D2D2D2D2D2C
+      2D2C2C2D2C2B2C2B2B2D2C2B2C2B2B2C2B2B2B2B2B2B2B2B2B2A2A2A2A2B2A2A
+      2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2929
+      2A2A29292A2A2A2A2A2A2A2A2A2A292A2A29292A29292A29292A292A292A2A2A
+      2A2A2A2A2A292A292A2A292A2A2A292A292A2929292928292828282A29292A2A
+      2A2A2A2A2A2A2A2B2B2A2B2A2B2A2A2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D
+      2C2C2D2E2D2E2E2E2E2E2D2E2D2E2F2E2E2F2F2F3030312F2F30303030303030
+      3535343B3A3B3C3C3C3D3D3D3D3D3D3F3E3E3F3E3E40404040403F40403F3F3F
+      3F3A3A3A3B3B3B3C3B3B3D3C3C3C3C3C3C3C3C3C3D3D3D3D3E3D3E3E3E3E3E3F
+      3F3F3F403F404040414040414141424141424141424141424142424141434242
+      4343434343434243424342424343434343434343434444444344444344434344
+      434344434343434242424343424343424242424141414141414140403F403F40
+      3F3F3F3F403F3F403E3E3E3D3D3D3D3D3D3C3C3C3C3B3C3C3B3B3B3A3B3A383A
+      3837383737383636373635363535353434353433343332323131313030312F2F
+      2F2D2E2E2D2D2D2D2D2D2C2C2C3535353E3E3F41414143424244454446464628
+      29292323232323232122222020201F1F1F1F1F1F1E1E1E1C1C1D1B1C1C1C1B1B
+      1B1C1B1A1A1A1919181817171718171717161616171515151415151515151414
+      151314131413131212121211121011111011101011101110100F0F0F0F0F0F0F
+      0F0F0E0E0E0D0E0D0E0D0D0D0C0D0C0C0C0C0C0C0C0C0B0C0C0C0B0C0B0C0B0B
+      0B0B0B0A090A0A090A0A090A0A0A090A0A090A09090909090909090908090909
+      0908090809090808080808080808080808080808070808080807080708070807
+      0708080707060707060707070707060706070707060606060606060606060606
+      0606060606060506050505050505050505050504050505050505040404040404
+      0404040404040404040404040404040404040403040404030303030303030303
+      0303030202020302020302020202020202020202020202020202020201010102
+      0102010201020102010102010101010001010101010100000101000101000100
+      0100000100010001000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303636363939393A3A3A3C3C3C3D3D3D3E3E3E3131312F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3434343837373837373837373737373737373737
+      3737373737373737373737373737373737373736373737373737373737373737
+      3737363637363636363736363635363635363535363535363435363535353435
+      3535353435353434343534343535343434343434343434343434343434343434
+      3434323333333333323334333233323233333233333233333333323232323132
+      31313131313030303030303030303030303030303030303030302F2F2F302F2F
+      2F2F2F30302F2F2F2F2F2E2F2F2F2F2F2F2E2E2F2E2E2F2E2E2E2F2E2E2E2E2E
+      2E2E2D2E2D2E2E2E2E2D2D2E2E2E2D2D2D2E2E2D2E2D2D2D2D2D2D2D2D2D2C2C
+      2C2C2D2C2B2D2B2B2D2B2B2C2B2B2C2B2A2B2A2B2B2B2A2A2B2B2B2A2A2B2A2B
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A2929292A2B
+      2A2A2A2A2A2B2A2A2A2A2A2A2A2929292A292A2B2B2A2A2B2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2B292A2A2A2A2A2A2A2A29292929292A29292B2A2A2B2A2B2C2B2B
+      2C2B2B2B2B2B2B2B2C2C2C2C2D2C2C2D2D2C2C2C2C2D2D2D2E2E2D2E2D2E2E2F
+      2F2E2E2E2F2F2F302F3031303130303131303132323231313231323233333334
+      34353B3B3B3F3F3F404040404040414040424140424242444342444443434343
+      3D3D3D3D3E3D3E3E3E3F3E3E3F3F3F40403F4140414041404141414242424343
+      4342434243434343434344434344444344444445434446444446464546454646
+      4545464646464546454646464646464646464646474746474747464747464646
+      4746474646464546454646464545454545454545454444434444444344444343
+      424242424242424141414040403F403F3E3E3E3E3E3E3E3D3E3D3C3D3B3B3B3A
+      3A3B39393A383838373737373737363636353535343534343434323232303030
+      2F2F2F2E2E2F2F2E2E2F2F2F3D3D3D4141404343424647474747473A3A3A2425
+      252424232323232223232222222121211F1F1E1E1F1F1E1E1E1C1C1C1B1B1B1B
+      1B1B191A1A1A191A191818171718181718161616151515151515151414141414
+      1415151313131313131212121111111110111010111010101010100F0F0F0F0F
+      0F0E0D0E0E0D0E0D0D0D0D0D0D0C0C0C0C0C0C0C0C0C0C0B0C0B0B0C0B0B0B0B
+      0B0B0A0A0A0A0A09090A090A0A0A0A09090A0909090909090909090909080909
+      0809090908080809090808080808080808080808080708080708070808070808
+      0707080707070707070707060707070606070707070706060606060606060606
+      0506060505050505050506050505050505050505040404050405040404040404
+      0404040404040404040404040404040404040403030303030304030303030302
+      0303030303020302030303030202020202020202020202020201020101020201
+      0201020102010101010101010101010101010101010101010101010101000100
+      0101000001000100010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303131313838383A3A3A3B3B3B3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F303030373737383737383737383737373737373737373737
+      3737373737373737373737373737373637373737373737363637373736373636
+      3636373636363636363636363536363536353536353536353536353535353535
+      3535353435343434353535343534343434343435353434343434333333333332
+      3332323332323432333433333332323333323332323232323130313131303231
+      31313130303031303031303030303030302F30303030302F30302F2F2F2F2F30
+      2F2F2F2F2F2F2F2F2F2F2F2F2E2F2E2F2F2E2F2F2F2F2E2E2E2E2E2E2F2E2E2E
+      2E2E2E2E2D2E2D2E2E2D2D2D2D2E2D2D2D2D2D2E2D2D2D2D2D2D2D2D2D2C2C2C
+      2C2C2C2C2D2B2C2D2B2B2C2B2B2C2B2B2B2A2B2B2A2B2A2A2B2A2A2B2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2A2B2B2B2A2A
+      2A2B2B2A2A2A2A2A2A2A2A2A2A2A2B2A2B2B2A2A2A2B2A2A2A2A2A2A2A2A2B2B
+      2B2A2A2B2A2A2A2A2A2A2B2A2A2B2A2A2B2B2A2B2B2A2B2C2B2B2B2B2D2C2D2C
+      2C2C2D2D2D2C2C2D2D2D2C2C2C2C2D2D2D2E2E2E2E2F2F2E2F2F2F302F313131
+      3131323131313232323232333332333333333433343434353535353636363636
+      363C3D3D41414142424242414245444445454545454447464547474646464641
+      4041414242424141424242424242434343434343444444454546464545464646
+      4746464847474847474947484847474948484948494949484949484949494949
+      49494A4A4A4A494A4A4A4A4A4A4A4A4A4A4A4A4A494A49494A4A4A49494A4A49
+      4949494949494948484848494948484849474747474747464646464646454545
+      454545454545444343434242434243414042414041403F403F3F3F3D3E3E3D3E
+      3E3C3D3D3A3A3A3A3A3A39393837383837373737373735343533333333333332
+      31322F302F303030393939414141444444464746484848494A4A2C2C2C262526
+      2425252424232323232322222222222120211F1F1E1E1F1F1D1D1E1C1D1C1B1B
+      1B1B1B1A1A1A1A18191917171717181717171716161615151514151414151414
+      14151313131313131212121112121111101110111010101010100F0F0F0F0F0F
+      0F0F0E0E0D0E0D0D0E0D0D0D0C0C0C0C0C0B0B0C0C0C0C0B0B0B0C0C0C0B0B0B
+      0B0A0A0A0A0A0A0A0A09090A0A09090A0A09090A090909090908090908090908
+      0909090808080808080808080808080808080708080808080808070707070708
+      0707070707070707070707070606060706060606070606060606060606060606
+      0605050606060506050505050505050504040404040404040404040404040404
+      0404040404040404040404040404040403030403030303030303030303030303
+      0303020302030302030202020202020202020202020201010202020101020201
+      0202010201010201020101010101010101010101010001010001010101000100
+      0000010001000101000000000000000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303535353939393A3A3A3B3B3B3D3D3D3E3E3E3333332F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F33333338373738373738373737373737373737373737373737
+      3737373737373737373737373737373737363737373737373737373736363737
+      3636363636353637363636353735353635353635353635353635353535353435
+      3534343535353434343434343435353434343433333333333332333333333333
+      3332333232333332333232333233323232323231323131323131313031323130
+      31313130313131303030303030303030303030302F3030302F302F2F30302F2F
+      2F2F2F302F2F2F2F2F2F2E2F2F2E2F2E2E2F2E2E2E2F2E2F2E2E2F2E2E2E2E2E
+      2E2E2D2E2E2E2E2E2D2E2D2E2E2D2D2E2D2D2D2D2D2D2D2D2D2D2C2D2C2D2C2C
+      2C2C2C2D2B2B2D2B2B2C2B2B2C2B2B2B2B2B2B2A2A2A2B2B2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2A2A2B2B2B
+      2A2B2A2B2A2B2B2B2B2A2B2B2B2A2B2A2B2A2B2A2B2C2B2B2B2B2B2B2B2B2A2B
+      2B2A2A2C2B2B2C2B2C2C2B2B2D2C2C2C2B2B2C2C2C2D2D2D2E2D2D2E2D2D2D2D
+      2D2D2D2D2E2E2E2F2E2F302F2F2F2F2F30303031313031323232323232313233
+      3334333334343434353434353536363537373637363637373737383838383839
+      3D3D3C4444434545454545454646464746464848474949494949484949484545
+      454344434444444545454645464746474747484848494848484949494949494A
+      49494949494A4A4A4B4A4A4C4B4B4C4B4B4C4C4C4C4C4B4C4C4C4D4D4D4D4D4D
+      4D4D4D4D4D4C4D4D4D4D4D4D4D4D4D4D4D4D4D4C4C4C4D4D4D4D4D4C4C4C4C4C
+      4C4C4C4C4C4C4C4B4B4C4B4B4B4B4B4B4B4B4B4B4B4B4A4A4A49484948484847
+      47474747474646464645454444454443444343434241424040403F3F403F3F3F
+      3E3E3F3D3D3D3C3C3C3A3B3B393A3A3A39393737373636363636363433343332
+      323232323333334040404445454747474949484949493F3E3E28282827272726
+      26262525242323232323232222222221222121211F1F1F1E1E1E1D1E1D1C1C1C
+      1A1B1A1A1A1B1A1A191819181717171717171717171616151515151515141415
+      141414141313131313131211121011101010111010101010101010100F0E0F0F
+      0F0E0E0E0D0D0D0D0D0D0E0C0C0C0B0C0C0C0C0C0C0C0C0C0B0B0B0B0B0B0B0B
+      0A0A0A090A0A0A0A0A090A0A0A0A09090909090A090909090908090809090909
+      0808080809080808080808080808080808080807080808080707080707070707
+      0707070707060607070706060707060606070606060606060606050606050605
+      0505060505050505050505050504050404050404050404040404040404040404
+      0404040404040404040403040404040404030304030303030303030302030303
+      0302020203030202020202020202010202010202020102020202020202010102
+      0101020101010101010101020100010101010101010101010100010100010001
+      0000000001010100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303838383A3A3A3B3B3B3C3C3C3D3D3D3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F303736363837373837373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373736373736363637363636
+      3636373635363636363535363535363535363535363535353535353434353435
+      3535343535343434343434343333333333333333333333333333333332333332
+      3233333232323332323232323132323132323132313132313131313132303131
+      3030303031303030303130303030303030302F302F303030302F2F302F302F2F
+      2F2F2F302F2F2F2F2F2E2E2F2F2F2E2F2E2F2E2F2E2E2E2F2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2D2D2D2E2D2E2D2D2D2E2D2D2D2D2D2D2D2C2D2C2D2C2D2C2C2D
+      2C2C2C2B2C2C2B2C2C2B2B2C2B2B2B2A2B2B2B2A2B2B2A2A2A2A2A2B2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2A2B2A2B2B2A2A2A2C2B
+      2B2B2B2C2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2B2B2B2B2B2B2C2C2C2C2C2B2D
+      2D2D2C2B2C2D2C2D2D2C2C2E2D2D2D2D2D2E2E2E2D2E2D2D2E2E2E2E2E2F2F2F
+      30303030302F3031303131313232323232323232323333343334333434343535
+      363636363737373737373837383838383A393A39393A3A3A3A3B3C3C3B3C3B3E
+      3E3F4546454848484949494949484B4A4A4C4C4B4C4C4B4D4D4C4D4D4D484848
+      4848484949494949494949494B4A4A4A4B4B4B4B4B4C4C4C4D4D4D4D4C4C4E4D
+      4D4F4E4E4F4E4E4F4E4F504F4F50505050505050505050505051515151515151
+      5151515151515151515151525252525252525151525151525251515152505050
+      4F504F4F504F4F4E4F4E4F4E4E4F4E4D4D4D4D4D4D4D4D4D4C4C4C4C4C4C4A4A
+      4A4A4A4A4948494847484746464646474646464544454343434342434140403F
+      3F3F3F3F3F3F3F3E3C3D3D3D3D3D3A3A3B393A39383938373637363536343534
+      3434343D3C3C4646464747474A4B4B4B4C4B4D4C4D2F2F302929292828272626
+      272626262424242324232323232222212222211F1F1F1F1E1F1F1E1E1D1D1D1C
+      1C1C1B1A1A1B1B1B1A1A1A181819171717171717161516151514141414141514
+      1414141213131213131112111111111110101010101010101010100E0F0E0E0F
+      0E0D0D0D0E0D0D0D0D0D0C0C0C0C0C0C0C0C0C0B0B0C0B0B0B0B0B0C0C0B0B0A
+      0A0A090A0A090A0A090A090A0909090909090909080909090909090908090809
+      0809090808080808080808080807080807070808080708080707070707070707
+      0707070707070707060707070606060606060706060606060606060606060605
+      0505060505050505050505040505050404040404040404040404040404040404
+      0404040404040404040404040403030304040403030303030303030303020302
+      0202030202020302030202020202020202020102010202010201010102020101
+      0102010101020101010101010101000101000001010001000100010000000101
+      0000010001000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303232
+      323939393A3A3A3B3B3B3D3D3D3E3E3E3736372F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F323132383737383737383737373737373737373737373737373737373737
+      3737373737373737373737373637373737373737373737373736363636363736
+      3636363536363536353536353536353536353535353435353535353535343535
+      3534343534343333333433333433333334333333333233333333333332323333
+      3233323232323232313332313232313232313231303231313130313130303130
+      3130303130303030303030303030303030303030302F2F30302F2F2F2F302F2F
+      2F302F2F2F2F2F2F2F2E2F2F2F2F2F2E2E2E2E2F2E2F2F2E2F2E2E2E2E2E2D2E
+      2E2E2D2D2E2D2D2D2D2D2D2E2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2C2C2B2C2C
+      2C2C2B2C2C2B2B2C2B2B2C2B2B2B2B2B2B2A2A2A2A2A2A2B2A2A2A2A2A2A2A2A
+      2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2B2B2B2C2B2C2C2B2B
+      2B2B2C2B2B2B2C2C2C2C2B2B2B2C2B2B2C2B2C2C2C2D2C2C2D2D2D2D2E2E2E2D
+      2E2D2D2D2E2D2E2F2E2E2F2E2E2E2D2E2E2D2E2E2F2E302F2F30303030303031
+      3131323232323232323332333333343434353535363636373637373737373838
+      3838383939393B3A3B3B3A3B3C3B3D3D3C3D3C3C3D3D3D3D3D3E3E3F3F3F4141
+      424848484B4B4B4C4B4C4E4D4D4E4E4D4F4E4D50504F5151505150514C4C4C4C
+      4C4B4C4C4D4D4D4D4E4E4E4F4F4F4F4F4F504F4F4F4F4F515050525151525151
+      5352515452525453535453535352535454545454535554545555555555555555
+      5554545554545454545454545454545454545453535353535453535353535353
+      535353535353535352525351515151515150504F50505050504F4E4E4F4E4E4E
+      4D4D4D4D4C4D4C4A4C4A49494949494847484747474545464544454343444242
+      424141414040403F3F3F3F3F3F3C3D3C3C3B3B39393938383837373737373737
+      37374343434949494B4B4B4C4D4C4E4E4D3F3F402B2C2B2B2B2B292929282828
+      2627272526252524242323232223222221222021211F1F1F1E1E1F1E1E1E1C1C
+      1C1B1A1B1A1A1B19191918191817171717171717161715151614141415141415
+      14151414131213131112121211111011111010101010101010100E0F0F0E0E0F
+      0F0E0E0E0D0D0D0D0D0D0D0D0B0C0C0C0B0B0C0C0C0B0C0B0B0B0B0B0B0B090A
+      0A090A0A0A090A0A0A09090A090A090909090909090909080909090908080909
+      0808090808090808080808080808080808070707070808070807070807070707
+      0707070607070707070606060606060706060607060606060505050506050605
+      0506060505050504050504050405040504040404040404040405040404040404
+      0404040404040404040304030303030303030303030303030303020203020303
+      0203020202020202020202020202010202020202020102010201020102020101
+      0201010101010101010100010101010101010001010000000100010100010100
+      0101010101000100010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030373737
+      3939393A3A3A3C3C3C3D3D3D3D3D3D3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F35353538373738373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373637373636373736363636
+      3636353636353635353635353635363635353535353535353535353535343434
+      3434333333343433333334333333343333333333333333333333323232323333
+      3232333232323232323231323231323231323131313131313031313131313130
+      30313030303030313030303030302F3030302F2F30302F302F2F30302F2F2F30
+      2F2F2F2F2E2E2F2F2F2F2F2F2F2F2E2F2F2E2E2F2E2E2E2F2E2E2E2E2E2E2D2D
+      2D2E2D2E2E2E2D2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2D2C2C2C2C2B
+      2C2B2C2C2B2B2C2B2B2C2B2A2B2A2B2B2B2B2A2A2B2B2B2A2A2A2A2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2B2C2C2C2C2C2C2B2B2B2B2B2C
+      2C2C2C2C2C2C2C2C2C2B2B2C2C2D2D2D2E2D2D2D2E2E2E2E2E2E2E2F2E2E2E2E
+      2F2E2F2F2F2F2F2E2E302F2F3030303131313031313131313232323232323333
+      333334343434353536353636363737373737373838373938383A39393B3C3B3B
+      3B3B3D3D3C3D3D3D3E3D3D403E3F3F3E3F404041414141424242434343434343
+      4A4B4A4E4E4E4F4E4F5250515251525353525353525454535454554F4E4E4F4F
+      4F50515051515152525253525353545355545455555555545455555556565556
+      5656575656575757585757585858585858585858585858585858585858595959
+      5959595959595959595959595959595959595958585858595958585757575757
+      565655565556565555555555565454545454545353535252535151525050504F
+      4F4F4F4F4F4E4E4E4D4D4D4C4B4C4A4A4B494949484848474747454545464545
+      4343434242424141414040403F3F3F3C3C3C3B3B3B3A3A393838393839384141
+      424949494B4B4B4E4E4E504F4F4E4F4F2F2F2F2D2D2D2B2B2B2B2B2B29282927
+      28272626262525262424242323232322222122212021211F1F1F1E1E1E1D1D1D
+      1C1C1B1B1B1B1A1A1A1919191818181617171617171516151514151514151415
+      141414141312131213131111121110111010101010101010100F0F0F0F0E0E0E
+      0E0E0E0D0D0D0D0D0D0D0C0C0C0B0C0C0B0B0C0C0B0B0C0B0B0B0B0B0B0A0A0A
+      090A09090A0909090A0909090A090909090A0909090909090909090809090908
+      0909080808080807080808080707080808080707070807070707070707070707
+      0707070607060707060606060606060606060606060606050606050606060505
+      0505050405050505050405050404040404040504050404040404040404040404
+      0404040404040304030303030303030303030303030303030303020303030203
+      0203020203020202020202020202020102020201020201020102020102010201
+      0101010201010101010101010101010101010101010101010101000101010001
+      0100010000000000000100010000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303131313939393A
+      3A3A3B3B3B3C3C3C3D3D3D3939392F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303031
+      3837373837373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373637373636363536
+      3636363535363536363536363536353535343535343535343434343434343433
+      3334343433333433333334333333333333333333333233333232323333323232
+      3233323232323132323133323132323132313132313032303131303131303030
+      3030313030303030303030303030303030302F2F2F302F302F2F2F302F2F2F2F
+      2F2F2F2F2F2F2F2F2E2F2F2F2E2F2F2F2F2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D
+      2E2D2E2D2E2D2D2D2E2D2D2D2D2E2D2E2C2D2D2D2D2D2C2D2C2C2C2B2C2C2C2C
+      2B2C2C2B2B2C2B2B2C2B2B2B2B2A2B2B2B2B2A2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2B2C2C2B2C2C2D2C2D2C2D2D2C2C2C2C
+      2C2D2D2D2C2D2C2D2E2D2F2E2F2E2F2F2E2E2E2F2F2F2F2F2F2F2F2F302F3030
+      2E2F313030313030323131323232333333333232323232333334353535353534
+      353536373737373737383839393939393A3A3C3C3C3B3C3B3D3D3D3E3D3D3E3E
+      3E4040404140414141424241424343434343444443444645464646474847474D
+      4D4D535353535353555354575556575756575756585857585858545454535353
+      5555555555555656565757575857575757575958595A59595A59595A595A5C5B
+      5A5C5B5C5C5B5B5B5B5B5C5C5C5C5D5D5D5C5D5D5D5D5D5E5D5D5D5D5D5C5D5D
+      5D5D5D5C5C5C5C5D5C5C5C5C5C5C5C5C5C5B5B5C5C5B5C5B5B5C5B5B5B5B5B5B
+      5B5B5B5A5A595859585858585858585757575656565555555555555454545251
+      525151515150514F4F4F4F4E4F4D4D4D4B4B4B4B4B4B49494948484847474746
+      46464545454343434242414040403E3E3E3D3D3D3C3C3C3C3B3B3C3C3C484948
+      4D4E4D4E4E4E5050505152524142422E2E2E2E2E2E2D2D2D2B2B2B2A2B2B2928
+      282727272627262324242323242323222122222121211F1F1F1E1E1E1E1E1E1D
+      1D1D1C1C1B1A1A1A19191A181818171716171617161515151515151414141414
+      1413141414141313121112111111111010101010101010100F0F0F0E0F0E0E0E
+      0F0D0D0E0D0E0D0D0D0D0B0C0B0C0C0C0B0C0B0C0C0B0B0B0B0B0B0B0A0A0909
+      09090A0A0A0A090A090909090909090909090909090909090808080808080808
+      0908080808080808080808080807080807080707070707070707070707070707
+      0707070706060706060706060606060606060605060605060606050605060505
+      0505050505050404040505040504040404040504040505050405040404040404
+      0404040304030303030403030303030303030303030303030302030302030202
+      0202020202020202020201020202010202020101010202020201010101010102
+      0102010101010101010101010001010101010001000100000001000001000000
+      0001000000000100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303434343939393A3A
+      3A3B3B3B3D3D3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F34343438
+      3737383737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737363637373737373737363737363736363636353635
+      3636353536353536353536353535353534343434343433343434343434343433
+      3333343333333433333333333333333333333333333333333233323232323232
+      3333323332313232313232313132313231313131313131313130313130303031
+      3030303130303030303030303030302F30302F2F30302F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2E2F2E2F2E2E2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2D2D2E2D2D2D2E2D2E2D2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2B2C2C2B2C2B
+      2C2C2B2B2C2B2B2C2B2B2B2A2B2C2C2B2B2C2B2B2C2B2B2B2B2B2B2B2B2B2B2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2C2D2D2D2D2C2D2C2D2D2D2D2E2D2D
+      2E2E2E2F2F2F2E2F2E2F2E2F2F302F2F302F3030303030303131313131323232
+      3232313233323234333333323334343334343436353536363637373738383838
+      37373A3A393A3A3A3B3B3B3C3C3C3D3D3D3E3D3E3E3E3E414040414141424242
+      4242424443434544444645464746474747484849494949494B4A4B4B4C4C4F4F
+      4F5656565756575858575B595A5B5B5B5C5C5B5C5D5C5C5C5B58585959595859
+      59595A5A5A5B5B5B5B5B5B5C5C5C5C5C5C5D5D5D5E5D5D5F5E5E5F5E5E5F5E5F
+      605F5F6060606060606060606161616060606262616162616161616161616262
+      626261616161626161616160616160616060606060615F5F5F5F5F5F5E5E5E5E
+      5D5D5E5D5E5C5C5D5C5C5C5B5B5B5B5B5B5A5A59585859575757575656565556
+      5554545353535251525050505050504E4E4E4D4E4E4B4B4C4A4B4A4949494848
+      484747474544444443444141424141413F3F3F3E3E3E3C3C3C4646464E4E4E4F
+      4F4F5252525353535050503132313130302E2E2E2E2E2E2D2D2D2A2B2A2A2A29
+      2928282727272525252424242323232222222221212020201F1F1F1E1D1E1D1C
+      1D1C1B1B1A1A1A1A1B1A19191918171817161717171615161514141414141414
+      1414141414131213111111111111101010101010100F1010100F0F0F0F0F0E0F
+      0D0D0D0D0D0D0D0D0D0B0C0C0B0B0C0C0B0C0B0B0C0B0B0B0B0B0B0A0A0A0A0A
+      0A0A0A09090A0A09090909090A09090909090908080809090808090808090908
+      0808080808080808070807080708070808070707070707070707070707060706
+      0706070706060606060606060606060506060605060605050505050505050505
+      0505050505050504050505050504040404040404040404040504050404040404
+      0404040303030403030303030303030303030303030203030302030202020202
+      0202020202020202020202020202020201020202010101020201020102010102
+      0101010101010101010001010001000101010001010101000000000100010000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303131313737373939393A3A3A
+      3C3C3C3D3D3D3C3C3C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303737373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373736363736373636363636363536373536
+      3635353635363635353434343434343434343434343434343434343433333333
+      3334343333333333333333333333333333333333333233333232333332333233
+      3332323231323231333232323131323131323031323130313130313030303031
+      3030303030303030303030303030302F2F2F30302F2F2F2F2F2F2F2F2F2F2F2F
+      2F2E2F2E2F2F2F2F2F2F2F2F2F2E2E2F2E2E2F2E2E2F2E2E2E2D2D2E2E2E2D2E
+      2E2E2D2D2E2D2D2D2D2D2D2D2D2D2D2C2D2D2D2D2D2C2C2D2C2C2C2C2C2C2B2B
+      2C2B2B2C2B2B2D2C2C2C2B2C2C2C2B2B2B2C2B2B2B2B2C2B2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2E2D2E2F2E2E2E2E2E2F2F302F
+      2F2F2F2F2F2F2F302F2F30303030303030313131323132333232323233343434
+      3433343433333534343636363636363737373838383838383939393A3A3A3C3B
+      3C3C3C3D3D3D3D3E3F3E3F3F3F41414041414142424242434244444445454547
+      47474747474848484A49494B4A4B4B4B4C4D4D4D4D4D4E4E4F4E504F4F535353
+      5B5B5B5C5B5C5D5C5D5D5D5C5F5F5F60605F6161606060605C5C5C5D5C5C5E5D
+      5D5E5E5E5F6060605F5F60606062616162616162626263636364636363636364
+      6464656565656565656565656565656565656565666666666666666666656565
+      6666656566656565666565656464646464636364646463636262626262626262
+      626061616060615F5F5F5E5E5E5D5D5D5D5D5D5B5B5B5A5A5A5A595A58575857
+      57575655565455555353535252525050505050504E4E4D4D4E4D4B4B4B4A4A4A
+      4949494748474544454343434242424141414040404140414F4F4F5151515353
+      535454545556564141413333333130303030302E2E2E2E2E2E2B2B2B2A2B2A29
+      29292727272626262525242423232323232121212121211F1F1F1E1E1E1D1E1D
+      1D1D1D1A1A1A1A1A1A1919191818181717171617161516151514141414141414
+      14141414131313131312111111101110101010101010100F100E0F0F0F0F0F0D
+      0E0D0D0D0D0D0D0D0C0B0C0B0B0C0B0B0B0B0C0B0B0B0B0B0B0B0A0A090A0909
+      0A09090A0A090909090A09090909090909090908090809090809080808080808
+      0808090808080807080808070808070707070707080707070707070707070607
+      0606070606070607060606060606060606060606050606050505050505050405
+      0405050505050405050405040405040405050405040404040404040404040404
+      0304040403040303030303030303030303030303020303020202020202020202
+      0202020202020202020202020201020102020201020102020102010201010101
+      0102010101010101010001010101010100010000000100000101010001000100
+      0000000000000000000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303333333737373939393B3B3B3D
+      3D3D3E3E3E3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F333333383737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373637373637373637363637363636353636363536
+      3536343534343534343434343434343433343434343434343334343434333433
+      3433333333333333333333333332333332333233333332333233323332323232
+      3232323133323232323132323132313132313131313132303031313130313030
+      3030303030303030303030302F302F302F302F302F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2E2F2F2F2F2E2F2F2E2E2E2E2E2F2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E
+      2E2E2D2E2D2E2D2D2D2D2D2D2D2D2C2D2D2D2D2C2C2C2D2C2B2C2C2B2C2B2B2D
+      2C2C2D2C2C2C2C2C2C2C2B2C2B2C2B2B2B2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2D2D2D2D2D2D2D2D2D2D2D2D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3130313030
+      3030303031313031313131313233333433333334343434343434353535353536
+      35363736363837373838373838383939393A3B3A3B3B3B3D3D3D3D3D3D3D3D3D
+      3F3E3E4040404141424242424342434444454546454847484848484949494A4A
+      4A4B4B4C4D4C4D4E4D4E4E4E4E4F4F50504F505252525252525455555858585F
+      5F5F606060616061626162636362656564656564656565606060616161626262
+      6463636463636464646664646665666766666766666767666868686969686969
+      68696969696969696A6A6B6B6B6B6A6B6A6A6A6A6A6A6A6A6A6A6A6A6A696A6A
+      69696A6969696969696969696969686868676867676768666666666666646564
+      646464636363636363626262606061605F605E5E5E5E5D5E5D5C5D5C5B5C5959
+      595959595757575656565454545253535252525050504F4F4F4D4D4D4C4C4C4A
+      4A4A4948494747464545454343434343434141414C4B4B525352545454565656
+      5858584F4E4F3635363433343232323031302F2F2F2E2E2E2C2C2C2B2C2B2A2A
+      2A2828282727272625262324242323232222232122212020201E1F1F1D1E1D1C
+      1C1D1C1C1C1A1A1A1A1A1A181818171717171716151516151515141414131414
+      1414141212131312121111111011100F1010100F10100F100E0F0F0F0E0E0D0D
+      0D0D0D0D0D0D0D0C0C0C0B0C0C0C0B0B0B0B0B0C0B0B0B0B0B0A0A0A0A0A0A0A
+      0A0A09090909090A0A0A09090909080909080809090809090908080808080808
+      0908090808080808080708070707080707070707070707070707070706070606
+      0606070606060606060606060606060605060505050506050505050505040505
+      0405050505040505050405050505050405040405040404040404040403040404
+      0404030403030303030303030303030303030303020203030203020203020202
+      0202020202020202020201020201010102020101020102020101010101010201
+      0101010101010101010100000101000100000000010101010100010000000000
+      0001000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303535353838383A3A3A3C3C3C3E3E
+      3E3F3F3F3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F36363638373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373637373737363737363637363636353735363636353434343434
+      3435343434343434343434343434343434343433343334333433343334333334
+      3334333333333433333333333332333333333233323233333333333332323332
+      3232313232323232313232313131313230313231303230313131303030303130
+      30303030303030303030302F302F2F302F2F302F302F2F302F2F2F2F2F2F2F2F
+      2F2E2F2F2E2E2F2E2E2F2E2E2E2E2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E
+      2D2E2E2E2D2D2D2D2D2D2D2D2D2D2D2C2D2D2D2C2C2C2C2B2E2D2C2D2C2C2D2C
+      2C2D2C2C2D2C2B2C2C2B2D2C2D2D2C2D2C2D2C2C2C2D2C2C2C2D2D2D2D2D2D2D
+      2D2D2D2D2D2E2E2E2F2F2F2F2F2F2F30302F2F2F313130313031313131313131
+      3132323233333433333333333435343535353535353635363837383737373938
+      393938383A39393B3B3A3B3B3A3C3D3C3D3D3D3E3E3E3F3F3F41414141414143
+      43434344434546454646464848484848484949494A4B4A4C4C4C4D4D4D4E4E4E
+      504F505151515251525453545454545555555655565757585858585E5E5E6363
+      636565656564646766666968686A6A696A6A6967686866656567676767676768
+      68686868686969696A6A6A6B6B6A6C6B6B6C6B6B6C6B6C6D6C6C6E6D6E6D6D6E
+      6D6D6D6E6E6E6E6E6D6F6F6F6F6F6E6F6F6E6E6E6E6F6F6F6F6F6F6E6E6E6E6E
+      6E6E6E6E6E6E6E6D6D6D6C6D6D6C6C6C6C6B6B6B6B6B6A6A6A696A6A69686968
+      68686867686666666565656464646463636262636160615F5F5F5E5E5E5D5D5D
+      5C5B5C5959595959595757575656565454545352525151515050504E4E4E4D4D
+      4D4A4A4A49494A4747474647464545444847495353545556565757575959595B
+      5B5B3D3D3D363736363536333333313131302F302F2F2F2E2E2E2D2D2C2B2B2A
+      2929292727272627262525252323242323232121212121211E1F1F1E1E1D1E1D
+      1D1B1B1B1A1B1A1A1A1A19191918181816161616161615151514141414141414
+      141313121312131211111111101010101010101010100F0F0E0E0E0F0F0D0D0D
+      0D0D0D0D0D0D0C0C0C0C0C0C0B0B0B0C0B0B0B0B0B0B0B0B0A0A0A090A090A09
+      0A0A0A090A090A09090A09090909090809090809080909090808080808080808
+      0808080808080708070707070708070707070707070707070707070707070607
+      0707070606060606060606060606060605060506050505050505040505050505
+      0505050505050505050504050405040504040404040404040404040403040404
+      0403030303030303030303030303030302020203030203020203020202020202
+      0202020102020202020201010201010102010202010102010101010101020101
+      0101010101010101000100010101010100010101000000010100010000000001
+      0000010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303535353838383A3A3A3C3C3C3E3E3E3D3D3D
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303737373837373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373736373636373736373635373636353535353434343434343534
+      3434343434343434343434343434343434343434343333343434343433333433
+      3333343333333333333333333332333333333333323332333332323232323232
+      3231323232323231323231313131323030323131313030313030303030313030
+      303030303030302F303030302F30302F2F2F2F2F302F302F2F2F2F2F2F2F2F2F
+      2F2F2F2F2E2E2E2F2E2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2D2E2E
+      2E2D2D2E2D2E2D2D2D2D2D2D2D2D2D2D2C2D2E2D2D2D2C2D2D2C2D2D2C2D2C2C
+      2D2C2C2E2D2D2D2C2D2D2C2D2C2D2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2E2E
+      2E2F2F2F30303030303030303031313131303031313231313132323232333334
+      33343433343434343535353535353737373837383939393939393A39393B3A3B
+      3C3C3B3D3C3C3D3D3D3E3D3E3F3F3F4040404243424343434344444545444646
+      464847474848484A4A4A4B4B4B4D4D4D4D4D4D4F504F50515052525253525254
+      54545555565655565858585858595B5A5B5B5B5B5C5D5C5D5D5D656464686868
+      6A6A6A6A6A696C6C6C6D6D6C6F6F6E6F6F6E6C6C6C6A6A6A6C6C6C6D6D6D6D6D
+      6D6E6E6E6F6E6F6F6F6F70707071707071707071717172727272727273727272
+      7272727272737373737373737373747474747474747474737473727273727273
+      7272737171717171717171717070707070706F6F6F6E6E6E6E6D6E6D6C6D6C6C
+      6C6B6B6B6A6A6A696969686767676667656565646364636263616161605F605E
+      5E5E5D5C5C5B5B5B5959595959585657565555565353535252525151514E4E4F
+      4C4C4C4B4B4B4949494848484848485353525958595959595B5C5B5D5D5D4E4E
+      4E393939383838373637343434343333313131302F302E2E2E2E2E2D2C2B2B2A
+      2A2A2828282626272625262324242323232222222120212020201D1D1D1D1D1D
+      1C1C1C1A1A1A1A1A1A1919191717171717171616161515151414141414141414
+      13141314131213111211101110101010100F101010100F0E0E0F0F0E0E0E0D0D
+      0D0D0D0C0D0C0B0C0C0C0C0C0B0C0C0B0C0B0B0B0B0B0B0A0A0A0A0A0A09090A
+      090A0A0909090909090909090909090908090908080808090809080808080808
+      0808080807080708070707070807080807070707070707070707070706060606
+      0706070606060606060506050505060506050505050505050505050504050505
+      0505050505050505050505050405040504040404050404030404040404030303
+      0303030303030203030303030203020302030302020202020302020202020302
+      0202020201020202010202010201020102020101010101010101010102010101
+      0101010101010101010100010100010101010100010001010001000100010000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303232323535353737373A3A3A3C3C3C3E3E3E3333332F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F343434383737383737383737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373637373637363636363635333435343335343434343434343434
+      3434343434343435343433343434343434343433343333333434343333343333
+      3333333433343333333332333333333333333233333333323332323233323232
+      3232323232323132323131313131313132313032303031303030303130313130
+      30303030302F2F3030302F302F2F2F302F2F302F302F302F2F2F2F2F2F2F2F2F
+      2F2F2F2F2E2F2E2F2F2F2E2E2E2E2F2E2E2E2E2E2E2D2E2E2D2E2D2E2E2E2E2E
+      2E2E2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2D2D2D2D2E2D2C2D2C2C2E2D2D2E
+      2D2D2E2D2D2D2D2D2D2D2C2E2D2D2D2D2D2D2D2D2D2D2D2E2E2E2F2F2F303030
+      3030303030303131313131313131323232323333323333333434343535353535
+      353635353636363737373838383939393A39393B3B3A3B3B3C3C3B3C3E3D3E3E
+      3E3D403F3F403F3F4242424242424343434444444646464848484948494A4949
+      4B4C4B4D4D4D4E4E4E4F4E4F5151505352525454545455545656565858585959
+      595A5A5A5B5B5B5D5D5D5D5D5E5F5E5F6161616262626362626969696D6D6D6F
+      6E6E6F6E6F7271707272717373727474737170716F6F6F717171727171737272
+      7373727474747574747575757676767676767777767777777777777878787878
+      7878787878787779787879787879787878787878787878787876777677767776
+      76767676767675767576757474757373737373737272727171717070706F6F6F
+      6E6E6E6D6D6E6C6C6C6A6A6B6A696A6868686767676565656464646262626161
+      615F605F5F5E5F5C5C5C5B5B5B5959595857585556555454555252524F50504F
+      4F4E4D4C4C4C4B4B4A4A4A5050505B5B5B5E5D5E5F5F5F6161606060603F3F3F
+      3A3A3A3939393738373536353333333131322F30302F2F2F2E2D2D2C2C2C2B2A
+      2A29292926272726252525242523232322222221202120201F1F1F1F1E1D1E1C
+      1D1D1C1B1B1A1A1A191919181718161716161616151515141414131414141414
+      1414141213121211121010111010100F101010100F0E0F0E0F0E0E0E0D0E0D0D
+      0D0D0D0D0C0C0C0C0B0B0B0C0B0B0B0C0B0B0B0B0B0B0A0A0A0A090A09090909
+      0A09090909090909090909090909090909080809090808080908080908080808
+      0808080807080808080807070807070707080707070707070706060606060606
+      0606060606060605050506050605050505050505050505050405050505050505
+      0505050505050505040405040404040404040404030404030304030303030304
+      0303030303030303030302030303020302020202020202030202020202020202
+      0202020102020202020202020101020201010102010201020101010101010101
+      0101010101000001010101010100010001010000010001010001000000000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303333333535353838383A3A3A3C3C3C3A3A3A2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F30303138373738373738373738373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737363737363636363433343434343533333434343434343435343435343434
+      3434343534343434343434333434343434333434343433343334333433333333
+      3333333333333333333333333233333333333333323233323232333232323232
+      3232323232313232313231313131313131303231303131303030303031303030
+      30303030303030302F2F2F2F2F2F2F2F2F2F302F30302F2F2F2F2F2F2F2E2E2F
+      2E2F2F2E2F2E2E2E2F2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2D2D2E
+      2E2D2D2E2E2E2E2E2E2E2E2E2D2E2E2E2E2D2D2D2C2E2E2E2E2D2D2E2D2D2E2D
+      2C2D2D2D2E2E2E2E2D2E2D2D2D2E2E2E2E2E2E2F2F2F30303030303030303031
+      3131313131323232323132333332343433343534363536353535353636363736
+      39383838383939393A3B3A3A3B3B3B3D3D3D3E3E3E3F3E3E3F3F3F4140414241
+      414343434343434545444545454747474848484949494C4C4C4C4D4D4E4E4E4F
+      4F4F5050505253535353535454555756565958585959595B5B5B5C5C5B5E5E5F
+      5F5F5F6060606261626262636564656565666767676868686F6F6F7373737372
+      7376757476767578787778787778787874747576757577767677767678777779
+      79797978797A79797B7B7A7B7B7B7B7B7B7C7C7C7D7C7D7C7D7C7D7D7D7D7D7D
+      7D7D7D7D7D7D7D7D7D7D7D7C7D7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7B7B
+      7B7B7B7B7A7A7A79797979797978787877777776767675767674747473737372
+      7272717171706F706E6E6E6D6D6D6C6C6C696969686868676767666566636364
+      6262626161615F5F5F5E5E5E5B5B5B5A5A5A5859585555555454545251525051
+      504F4F4F4F4E4E5050505E5E5D6060606363636566656667664D4D4D3D3D3D3C
+      3C3C3939393839383636363434343233323131302F30302E2E2E2D2E2D2B2B2B
+      2A2A2A2828282726272525252323232323232121212021211F1F1E1D1E1E1C1D
+      1D1B1B1B1A1A1A19181817181816161617171715161514141413141414141314
+      131312131211111111111110101010100F100F100E0E0E0F0E0E0E0D0D0D0D0D
+      0D0D0D0C0C0C0C0C0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A090A0A0A0A0A090A
+      0A090909090A0909090909090909090909090908080808090808080808080808
+      0807080707080708070808070707070707070707070707070607060606060606
+      0606060606060606060506060505060505050505050505050505050505050505
+      0504050404050505040405040404040404040404040404040403030303030403
+      0303030303030303030303020302030302030302030202020202020202020201
+      0202020101020201020101020102020101020101010201010101010101010100
+      0101010001010101010101000101000101000000000100000100000000010000
+      0001000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303031313134
+      34343636363838383B3B3B3D3D3D3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3535353837373837373837373837373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3636353534343434343434343434353434343433343434353435343435353534
+      3435343434343434343434343433343434343434343434343433343433333333
+      3333333333333333333332333333323333333232323333333232323232323132
+      3232323231323231323131323031323131313031313130303031303031303030
+      303030302F30302F2F2F2F2F2F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2E2F2F2F2F2E2F2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2D2E2E2D2E2E2F
+      2E2E2E2E2E2E2E2E2E2D2E2E2D2E2E2F2E2F2E2E2E2E2D2E2E2D2E2D2D2F2E2E
+      2F2D2E2E2D2E2E2E2E2F2F2E2F2F303030303030303030303131313131313232
+      323232323333333535353534353635363636363636363737373939393A3A3A39
+      3A3A3A3A3A3C3C3C3E3D3D3E3E3E3F3F3F404040424142434243444343454444
+      4645454847484848484A4A494B4B4B4C4C4C4E4E4E4F4E4F5051505252525353
+      535555555757575959595A5A595C5B5B5D5D5D5F5F5F60606060606164636465
+      646566656667676768686969696A6A6A6B6C6D6D6F6E6E757575787878787778
+      7B7A7A7B7B7A7D7D7C7D7D7C7D7D7D7A79797B7A7A7C7C7B7D7C7C7E7D7D7F7E
+      7E7E7D7E80807F81808180808180808080818182828282818182828283828282
+      8282828282828282828282828282828282828282828282818181818180807F80
+      7E7E7E7E7E7E7E7E7E7E7E7D7B7B7C7B7B7B7A7A7A7979787879797676767575
+      757474747372737171716F6F6F6E6E6E6C6C6C6B6B6B69696968686866666665
+      6464636463626262605F605E5E5D5B5B5B5A5B5B575757565656555555535353
+      5354535959596363636666666868686A6A6A6A6A6B6161614040403F3F3F3B3C
+      3B3B3A3B3939393737373636363333333132312F30302F2F2F2D2D2E2B2B2B2A
+      2A2A2727282627272525252323232323232222212020201F1E1F1E1D1E1E1D1D
+      1B1B1C1A1A1A1A1A191717181716171616161516151414141314141314141413
+      141212121212121010101010101010101010100F0F0E0E0E0E0D0D0D0D0D0D0D
+      0D0D0C0C0C0B0C0B0B0B0C0B0B0B0B0B0B0A0A0A09090A0A0909090A0A090A0A
+      090A090909090809090909090909080908090808080808080808090808080808
+      0808070807080808070707070707070707070706060606070706060706060606
+      0506060606050605060605060505050505050505050505050505050505050405
+      0504050404050405040404050404040304040404030304040403030403030303
+      0303030303030203020203030302030202020202020202020202020202020201
+      0101020202020102020102020101010201020201010102010201010101010101
+      0101010100000101000001000100010001000000000000000100000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303333333434343737
+      373939393C3C3C3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F31313138383738
+      3737383737383737383737383737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373535353434
+      3434343334343434343335343434343334343435343435343434343534343434
+      3434343434343434343434343433343333333434333433333433333433333433
+      3333333333333233323333333233333333333332333333323333323232323232
+      3132323132313131313131313032313132313131303130303030303030303030
+      30303030302F302F302F303030302F302F2F2F2F2F2F2F2F2F2E2F2F2F2E2E2F
+      2E2F2F2E2E2F2E2E2E2E2E2E2E2E2E2E2D2D2D2E2E2D2E2D2E2E2E2E2E2E2E2D
+      2D2D2E2D2D2D2D2D2D2C2E2C2D2D2D2C2D2C2C2C2C2D2D2D2D2D2D2D2D2D2C2D
+      2D2C2E2E2E2E2E2E2F2F30302F30303030313131313131323232323232343434
+      3535353535353636353637363636363839383A39393A3A3A3B3B3B3A3B3B3D3D
+      3D3E3D3E3E3E3E3F3F3F4141414242424444444444444645464746474848484A
+      49494B4A4B4D4D4C4D4E4D4F4E4F515251535353535353565556585757585858
+      5A5A5A5C5C5C5E5E5E5F5F5F6061606362626464646565656666676868686A6A
+      6A6B6A6B6D6D6D6D6D6D6F6F6F7171717372737675767C7C7B7C7D7C7E7E7E80
+      807F8180818282818383828181817F7F7F818080828181828181848383848383
+      8484848585858586858585858686868787878787868887878788888787878787
+      8787878787878787878787878787878787878786868685858685858584848484
+      84848382828281828180808080817F7F7F7E7E7E7D7C7D7B7B7B7B7B7B797879
+      7877787676767575757373737272717070706F6F6F6D6C6D6B6B6B6969696767
+      67666666636363616261605F605E5D5D5C5C5C5B5B5B5959595959595D5D5D66
+      66666A6A6A6C6C6C6D6D6D7070706F6F6F5E5D5E4444444242423F3F3F3E3E3E
+      3C3C3B3A3A3A38383837363633343433333331313030302F2D2D2D2C2C2C2A2A
+      2A292929272727262525232323232323212221212121201F1F1E1E1D1D1D1D1C
+      1B1B1A1A1A1A1A1A191819161617161616151516141414141413141314131413
+      131212111111101010101010100F0F0F100F0E0F0F0E0E0E0D0D0E0D0D0D0C0C
+      0C0C0B0C0C0C0C0B0B0B0B0B0B0B0C0B0A0A0A0A0A0A0A0A09090A0A0A090A09
+      0A09090909090909080909080908090808080808080908080808080808080808
+      0808070808070807070707080707070607070707060707070706060606060606
+      0506050606060605050505050505050505050505050505050505050504050504
+      0504040504040404040404040304040403040404040303040303030304030303
+      0302020303030303030203020302020203020202030203020203020202020202
+      0201020102020202020101010102010101010101010101010101010101010101
+      0101010001010100010100000001010100010000010100010001000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303131313434343535353838383A3A3A
+      3D3D3D3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3635353838373837373837
+      3738373738373738373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737363636343434343434343434
+      3433333433343434343534343434353535353534353434343434343434353435
+      3434343434343434343434343434333333343434333333333334333433333333
+      3333333333333333323333323233323333333332333232323232333232323232
+      32323132323132313131313132303032303131303030303030313030302F3030
+      30302F302F2F302F3030302F2F302F302F2F2F302F2F2E2F2F2F2F2F2F2E2F2F
+      2F2E2F2E2E2E2E2E2F2F2E2E2D2D2D2D2C2E2D2E2D2D2D2D2E2D2D2D2E2D2E2E
+      2D2D2D2E2E2E2E2D2D2E2C2D2D2C2C2E2E2D2D2D2E2D2D2D2D2D2D2E2D2E2F2E
+      2F2F2F30302F2F302F2F303030302F3031303131313133333335353535353536
+      36363737373737373939383A3A3A3A3A3A3B3B3C3C3C3C3E3E3E3F3E3E3F3F40
+      4041414242424343434444444546464646474848484949494B4A4B4D4C4C4E4D
+      4D4F4F4E5151515252525353545555555757575858585B5B5B5B5B5B5D5D5D5F
+      5F5F6161616263636464646665666767676969696B6B6B6C6C6C6D6D6D707070
+      7171717272727373747575757677777978797B7B7B8281818383828584848686
+      868887878888878A8A898585858685858686868787878888888988888989898A
+      8A8A8B8A8A8A8A8A8B8B8B8C8C8C8C8C8C8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D
+      8D8D8C8D8D8D8C8C8D8C8C8D8C8C8C8B8B8B8B8B8B8A8A8A8989898989898888
+      888787878686868585858585848383848282828080808080807F7E7F7D7D7D7B
+      7B7B7A797A787878767676747474737373717171706F706E6D6E6B6C6B6A6A6A
+      6868686565656464646363626060615E5F5E5E5E5E6262626B6B6B6D6D6D7070
+      707272727474747575756363634848484646464444444343434141413F3F3F3C
+      3C3C3A3B3A3939393737373435353332323132322F2F2F2E2E2E2D2D2D2B2B2B
+      2A2A29272728272726242424232323212222212020201F1F1E1D1E1D1D1D1D1C
+      1C1A1A1A1A191918191817171616171615151514141414141314141413131412
+      1213111111101010101010100F0F1010100E0F0E0E0E0E0E0D0D0D0D0D0C0C0C
+      0C0B0C0C0B0B0B0B0C0B0B0B0C0B0B0A090A0A0A0A09090A0909090909090A09
+      0A09090908090909090809090809090808080808080908080808080808080808
+      0708070707070707070707070707060706070706060606060606060606060606
+      0606060605060605050505050505050505050505050505050505050504050505
+      0505040404050404040404040403040304040404030404030403040403030302
+      0303030303020203030203020302020202020202020202020202020202010202
+      0202010102010101020202010201020101020101010101010101010101010100
+      0101010001010100010100010001010001010100000000000001000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303232323434343636363939393B3B3B3A3A3A2E
+      2E2E2F2F2F2F2F2F2F2F2F2F2F2F323232383837383837383737383737383737
+      3837373837373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373634343434343434343434343434343434
+      3434343334343535353435353535343534343435343534343434353534343434
+      3434343434333434343434333434343334333434333333343333343333333433
+      3333333333333333333233333333333333323333323233333232323132323132
+      3231323231323130323130313031323030313030303030303030303030303030
+      303030302F302F2F2F2F2F2F2F2F2F302F2F2F2F2F2E2F2F2F2F2F2F2F2E2E2E
+      2D2E2D2E2D2D2D2D2E2D2E2E2E2E2D2E2D2D2E2D2D2E2E2E2D2D2D2E2F2E2E2E
+      2E2E2E2E2E2E2D2D2F2E2D2F2D2D2E2E2E2D2D2D2E2E2E2F2F2F303030302F30
+      3030303030303031303231313231323332333333333333333434343636363737
+      373939393A3A3A3B3A3A3B3C3B3C3C3C3E3E3E3F3F3F403F3F40414143434343
+      44434444444646464848484949484A4A4A4C4D4C4D4D4D4F4E4F515050525252
+      5353535555555757565858585A5A5A5C5C5C5D5D5D605F5F6262616363636464
+      646666666768676969696B6C6B6E6D6E6F6F6F70707072727274737475757677
+      777778787879797A7B7B7B7C7D7D7E7F7E8484848787878989898A8A898B8B8A
+      8D8C8B8E8E8E8D8D8D8B8B8B8B8B8B8C8C8C8D8D8D8E8E8E8E8E8E8F8F8F9090
+      9090909091919191919191919192929292929292929292929292929291919291
+      92929292929191919191919090909090909090908F8F8F8E8F8F8D8D8D8C8C8C
+      8C8C8C8B8A8B898989888888888888868686858485838383828182807F807E7E
+      7E7D7D7D7C7C7C79797A7878787676767474747272727171716D6D6D6C6C6C6B
+      6B6B686868676667656565656565676768707070717171747474767676797979
+      7A7A7A6969694E4E4E4D4D4C4A4B4B4747484545464444444242423F3F403D3E
+      3D3C3C3B3A3A3A3838383635363434333231312F2F302F2F2F2D2D2D2B2B2B29
+      292A2828282626262425242323242323222121212020201E1E1F1D1D1D1C1C1C
+      1A191A1A1A1A1818191717181616161515151414141414141313141314141212
+      12111112101011101010101010100F0F0F0E0E0E0F0E0D0D0D0D0D0D0C0B0C0C
+      0B0B0B0B0C0B0B0B0B0C0B0B0B0B0A0A0A090A090A0A0A0909090A090A09090A
+      0909090909090909090909080909080908090808080808080808080807070807
+      0708070707070707070706070707070606060706060706060606060606060606
+      0506050506050505050505050505050505050505050505050505050404050404
+      0404040404040404040404040403040404040303040303030303030303030303
+      0303030203020303030202030302020303030302020202020202020202020202
+      0202020102020102010101020202010101020101020102010101000101010101
+      0100000101000001010101010000010000000000010101000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303131313434343535353838383A3A3A3C3C3C3232322F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F37373638383738383738383738373738373738373738
+      3737383737373737373737373737373737373737373737373737373737373737
+      3737373737373737373535353434343434343434343434343434343434343535
+      3435353535343435343535353435353534343435343435343434343434343434
+      3434343434343434343334343434343333333334333434333333333333333333
+      3333333333333333333233333233323233323233323232323332313232323232
+      31323231323131323131313030323030313030303030303030303030302F3030
+      302F2F3030302F303030302F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2E2E2D2E
+      2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2E2E2F2F2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2D2E2D2E2F2F2E2F2F2F30303030303030302F30303131
+      3030313131323232333333343335343334343434353535363636373737383838
+      3A3A3A3B3A3A3C3C3D3F3F3F3F3F3F4040404242434243424444444645454747
+      484848484949494C4C4C4D4D4D4E4D4E51515052515253525355535457575758
+      58585A5A595B5B5B5D5D5D5F5F5F616161626362656464676666686868696969
+      6B6C6C6D6D6E6F6F6F7170707473737575757676767877787B7A7B7C7C7C7D7D
+      7D7F7F7F8080818181818484848585858B8B8B8E8E8E8F8F8F90909091909093
+      9292949493929292919190929292939393939393949494949494959595959595
+      9696969797979797979797979797979797979797979797979797979797979797
+      9797979797979797979796969695959593949493949493939392929291919190
+      91918F8F8F8E8E8E8D8D8D8B8B8B8A8A8A888888878788858585848484828282
+      8080807F7F7F7C7C7D7C7C7B7A797A7777777575757373737071706E6E6F6D6D
+      6D6B6B6B6B6B6B6D6D6D7575757777777878787B7B7B7D7D7D7E7E7E6E6E6E55
+      555552525250504F4D4D4D4B4C4C494A494747474444444343434140413F3F3F
+      3C3C3C3A3A3A3939393636363535353333323030302F2F2F2D2D2D2C2C2C292A
+      2A2727272626262424252323232323222121211F1F1F1E1F1E1D1E1D1C1C1C1A
+      1A1A19191A181918171818161616151515141414141314141414131314131212
+      111112111010100F1010100F0F0E0F0E0F0E0D0E0D0D0D0D0D0D0D0C0C0C0C0B
+      0B0B0B0C0B0C0B0B0B0C0B0A0A0A0A0A0A090A090A090A09090A0A0A090A0A09
+      0909090909080909090909080808090908080809080808080808080808070708
+      0707070807070707070707060606070606060606060606060606060606060605
+      0605050505050505050505050505050505050505050505050504050505040404
+      0404040404040404040404040304040404030303030303030303030303020303
+      0302030202020203030303030202020202020202020202020202020102010202
+      0201010202020101010101010201010101010102010101010201010001010101
+      0101000000000100000000010000010000010000010000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303232323434343737373939393B3B3B3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F
+      2F2F2F3231323838383838373838373838373837373837373837373837373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737363636343434343434343434343434343434343434343434353535363535
+      3635353535343535353535353434353434343534343435353434343434343434
+      3434343434343434333334343334333434343333343333333333343333333333
+      3333333333333333323333323333333233333332323232323231323231323231
+      323231323131313131323131313131313030303130303030303030302F30302F
+      303030302F302F2F302F2F2F2E2F2E2E2F2E2E2F2E2E2E2E2E2D2E2E2E2D2E2E
+      2F2E2E2E2F2E2E2E2E2E2E2D2E2E2E2E2F2F2F2F2F2E2E2F2E2E2E2E2E2F2F2F
+      2F2F2F2F2E2E302E2F30302F3030303130313030303131313130313132313132
+      323333333435343435343534363636363636363737373838383939393A3A3A3C
+      3C3C3D3D3D3F3E3E4141414242434343434545454646464747484948484B4A4B
+      4C4C4C4E4E4E4F4F4F5151515253535554545755565757575A59595C5B5B5D5D
+      5D5F5E5E6060606363636464646666666868686A6A696C6D6C6E6E6E6F6F6F72
+      72717474747676767877787979797B7B7B7D7D7D7E7E7F808081828282838384
+      8585858686878888888A8A8A8D8D8C9393939494949595959696959897989999
+      989A9A999797979797979898989898989A9A9A9B9B9B9B9B9B9B9B9B9C9C9C9D
+      9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9E9D9D9E9D9D9D9E9D9D9D9D9D9D9C9C9C
+      9C9C9C9C9C9C9C9C9C9B9B9B9A9A9A9999999999999898989696969696969494
+      949393939292939090908F8F8F8E8D8E8D8C8D8B8A8B8A898A87878786868684
+      84848282828080807E7E7E7C7C7C7A7A79777778767676737474727272727272
+      7474757B7B7B7D7D7D7D7D7D8080808282828282827474745959595858585656
+      565353535150514E4E4E4D4D4D4A4B4A4747474545454444444241413F3F3F3C
+      3C3D3C3B3B3939393736373434353232323030302F2F2F2D2D2D2C2B2C292A29
+      282828262727252525232323232323212121201F201E1F1E1D1D1E1C1C1C1A1A
+      1A191A1918181916171616161615151514141414131414141412121213131211
+      11111010101010100F0F100E0E0E0F0F0F0D0E0D0D0D0D0D0D0D0C0C0C0B0C0C
+      0B0B0B0C0C0B0B0C0B0A0A0A0A0A0A090A0A0A0A0A0A0A090A09090909090909
+      0909090909090809080909080808090808080808080808080807080807080707
+      0807070707070707070606070706060606060606060606050506060605050506
+      0505050505050505050505050505050505050505040405050505040404040405
+      0404040404040404040404040304040303030303030303030303030303030302
+      0202020302030202020203030202020203020302020202020202020202010201
+      0102020202020202010201010201010101010101010101010101010101010101
+      0100000100000100010101000000010000010000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303131313434
+      343636363838383A3A3A3C3C3C3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F36
+      3535383838383838383837383837383737383737383737383737383737373737
+      3737373737373737373737373737373737373737373737373737373737373434
+      3434343434343434343434343434343434343435353536353536353536353535
+      3535353534353534353534353434343434343534353434343434343434343434
+      3434343434343433333334343434343333343333333334343333333333333333
+      3333333333333333333233333232333332333232323232323132323132323132
+      32313231303231313231303131303130303131303030303030303030302F302F
+      302F302F2F302F2F2F2F2E2E2F2E2E2F2E2E2F2E2E2E2D2E2F2F2E2F2E2F2E2E
+      2E2F2F2E2E2F2E2E2E2E2F2E2F2F2F2F2F2E2F2F2F2F30303030303030303031
+      3131323232323232333232323232333233323232323231323232343334353534
+      3435343635353736363736373938393838393939393A3A3A3C3C3C3D3D3D3E3E
+      3E3F3F3F4140404343434545454747474848484A4A4A4C4B4C4D4D4D4F4F4F51
+      50505252525352535656555757575A5A5A5B5B5B5C5C5C5F5E5E615F60626262
+      6463636565656868686A6A6A6C6C6C6E6E6E7070707271717474747676767778
+      787979797C7C7C7D7E7D8080808181818383838485848787878989898A8A8A8C
+      8B8C8D8D8D8E8E8F9090919494959999999A9A9A9B9A9B9D9D9D9E9C9DA09F9E
+      9E9E9E9D9D9D9E9D9E9E9E9E9F9F9FA0A0A0A1A1A1A1A1A1A2A2A2A2A2A2A2A2
+      A2A3A3A3A3A3A3A3A3A3A3A4A4A4A3A3A3A4A3A3A3A3A2A2A2A2A2A2A2A2A2A1
+      A1A1A1A1A1A1A1A1A0A0A09F9F9F9E9E9E9D9E9E9C9C9D9B9B9B9A9A9A999899
+      9898979696969595959393939292929090908F8F8F8D8D8D8B8B8B8989898787
+      878685858383838181817E7E7E7C7C7C7B7B7B7979797979787A7B7C81818183
+      83828484848585858687868787877A797A6060605F5F5F5B5C5C585858575757
+      5555555353534F4F504D4D4D4B4B4B4949494646464444444242424040403D3D
+      3E3B3B3C3A3A3A3838383636363233323131312F2F2F2E2E2E2B2C2C2A292A29
+      28292626272525252323232323232121212120211E1E1E1D1D1E1C1C1C1A1A1A
+      1A1A191819181616161616161615151414141314141413131312121213121111
+      1110101010100F10100F0F0E0E0E0E0E0D0D0D0D0D0D0C0C0C0C0B0C0C0C0C0C
+      0B0C0B0B0B0C0B0C0A0A0A0A0A0A0A090A0A0A0A0A09090A0A0A090A09090909
+      0909090909090809090809080808080908080808080808070807070707070707
+      0807070707070706070706060706060606060606060606060606050605060505
+      0505050505050505050505050505050505050505050405050404040404040404
+      0404040404040404040304040303030303030304030303030303030303020303
+      0203020303030202030202020202030202020202020202020202020201020201
+      0202020102020201010101010201010201010201010101010101010101010101
+      0101010101010001010000010101010100010000000001000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030333333363636373737
+      3939393B3B3B3C3C3C2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3131313838383838
+      3838383838383738383738383738373738373738373738373738373737373737
+      3737373737373737373737373737373737373737373737353535343434343434
+      3434343434343434343434343535343635353635353635353635353635353635
+      3535353435353434353534353434353535353534343434343534343434343434
+      3434333434333434343334343334333333333433333333333333333333333333
+      3333333332323332333332333232333233323332323232313232313232313232
+      313231313231313230303131303130303131303030302F30303030302F30302F
+      302F2F2F2F302F2F2F2E2E2F2E2E2F2E2E2F2E2E2F2F2E2E2E2E2E2F2F2F2F30
+      2F302F3131303131313130303130303231313131323131313232323232323333
+      3334333434343434343434343535353535353537373737373736353637373736
+      37373838383A3A3939383A3A3A3A3A3A3A3C3D3D3D3D3D3E3E3E3F3F3F424241
+      4343424344434646454848484A4A4A4C4C4C4D4D4D4F4F4F5251515253525555
+      545656565858585B5B5B5C5C5C5E5F5E6060606161616363636666666868686A
+      6A6A6B6B6B6E6E6E6F6F6F7272727474747777777878787A7A7A7C7C7C7E7E7E
+      8080808383838484848686868787878A8A8A8D8D8D8D8D8D8F8F8F9191919392
+      939494959596969897989C9C9CA0A0A0A1A1A1A2A2A2A3A2A2A5A4A4A6A5A6A4
+      A3A3A3A3A3A4A4A4A5A5A5A5A5A5A6A6A6A7A7A7A7A7A7A7A7A7A8A8A8A9A9A9
+      A9A9A9A9A9A9AAAAAAAAAAAAA9AAA9A9AAA9A8A9A8A8A8A8A8A8A8A8A8A8A6A7
+      A6A6A6A7A5A5A5A5A5A5A4A3A4A4A4A3A3A2A2A1A1A1A0A0A09F9F9F9E9E9E9C
+      9C9C9B9B9B9999999898989695969494949392939090908F8F8F8D8D8D8A8A8A
+      8788888787868484848282828080808080808181828787878888888A8A8A8C8C
+      8C8C8C8C8C8D8D7F7F7F6767676464646262625F605F5E5E5E5B5C5B58585856
+      56565353535051514F4F4F4C4C4C4A4A4A4747474444444243424040403E3F3E
+      3B3B3B3A3A3A3838383635363334343131312F2F2F2E2E2E2D2D2D2A292A2928
+      292626262525262323232323232120202120201E1E1E1D1D1D1C1C1C1A1A1A1A
+      1A19181818161616161616151515141414141414141414131212111211121111
+      10101010101010100F0E0E0E0E0F0E0D0D0D0D0D0D0C0C0C0B0C0C0C0C0B0C0B
+      0C0C0C0B0A0A0A0A0A0A090A0A0A0A0A0A0A0A090A0A090A0909090909090909
+      0908090809080809080809090809080808080808080808080808070808070707
+      0707070707060607070607070606060605060606060606060606060506060505
+      0505050505050505050505050505050505050505040505040404040404040404
+      0404040404030304040303030403030403030303030303030303030203020302
+      0303020202020202030302030202020202020202020202020201020202020101
+      0201020102010102020201020101010201010101010100010101010101000101
+      0101010101010000010001000101000000000001000000000100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303131313232323333333434343434343636363737373939393B3B3B3D
+      3D3D3635362E2E2E2F2F2F2F2F2F2F2F2F2F2F2F353535383838383838383838
+      3838383838373838373837373837373837373837373837373737373737373737
+      3737373737373737373737373737373737373634343434343434343434343434
+      3434343434343434363535363535363535363535363535363535363535353535
+      3535353535353434353435343434343434343534343434343434353434343434
+      3433343334343433343434343434333333333333333333333433333333333333
+      3233333233333333333332323332323332333232323231323231323231323231
+      32313032313131313131303031303030303030303030303030302F2F2F302F2F
+      302F2F2F302F2F2F2F2E2F2E2E30303030302F30313130313130313132313131
+      3131313131313131323232323232323232313131323232333433343434343434
+      3434343535353536363635363636363838383838383938393A3A3A3B3B3B3C3B
+      3C3B3A3B3B3A3B3C3A3C3D3C3D3D3D3D3E3E3E40404042434243434344444447
+      47474847474848494B4C4C4D4E4D505050525252535454555656575757595A59
+      5B5B5B5D5D5D6060606161616363636564656767676A69696B6B6B6D6D6D7070
+      707272727574757676767878787A7A7A7C7D7D7E7E7E80808083838385858587
+      87878988888B8B8B8D8D8D8F8F8F9191919292929494949696979898989A999A
+      9B9B9B9D9D9D9F9F9FA5A5A5A6A6A6A7A7A7A8A8A9AAA9A9ACABABABABACA9A9
+      A9ABAAAAAAAAAAABABABACACACADADADADAEADADADADAEAEAEAFAFAFAFAFAFAF
+      AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAEAEAEAEADACACADACAC
+      ACACACABABABAAAAAAA9A9A9A9A9A9A7A7A7A6A6A6A5A5A5A3A3A3A2A2A2A1A0
+      A19E9E9E9E9D9E9C9B9C9A999A9897989696969494949292928F8F8F8D8D8D8B
+      8B8B8A8A8A8787878787878888888E8E8E8F8F8F909090919191919191929292
+      8585856E6E6F6B6C6C6A6A6A6767676463646161615E5F5E5C5D5D5959595757
+      57555555525152504F4F4D4D4D4A4A4A4848484646464443444242413F3E3E3C
+      3C3C3A3A3A393839363535333333323232302F2F2E2E2E2D2C2D2B2B2B292829
+      2726262525252323232323232120212120201E1E1E1D1D1D1C1C1C1A1A191A19
+      1A18171816161616161615151514141414131414141412131212111111101010
+      10101010101010100F0F0E0D0E0D0D0D0E0D0D0D0C0B0B0B0C0C0C0C0C0C0C0B
+      0B0C0B0A0A0A0A0A0A0A0A0A0A0A0A090A090A090A090909090A090909090909
+      0909090909080908090908080808080808080808080807080707080707070706
+      0707060607060606060607060606060606060606060606060506060605050505
+      0505050505050505050505050504050505050404040405040404040404040404
+      0404040404040404040403040304030303030303030303030303020203030302
+      0302020303020202020202020202020202020202020202020202020201010101
+      0101020101020101020102010101010102010101010101010100000100010100
+      0101010001010101000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030323232333333343434353535363636373737
+      3737373737373737373737373838383838383A3A3A3B3B3B3D3D3D3E3E3E3030
+      302F2F2F2F2F2F2F2F2F2F2F2F30303038383838383838383838383838383838
+      3837383837383737383737383737383737383737383737373737373737373737
+      3737373737373737373737373535343434343434343434343434343434343434
+      3435353536363536353536353536353536353536353536353536353536353535
+      3535353534343434343434343534343434353434343434343434343434333434
+      3333343434333434343333333433333333333333343433333334333333333333
+      3333333333323233323232323332323233323232323132323132323132313131
+      31313131313130313031313131313030303030303030302F3030302F302F2F30
+      2F2F2F30302F3131323131313131313131313031313130313132313132323132
+      3131313132323232323232323233333234333334353434343434343434353536
+      36363535353737363938393838383939393A3A3A3B3B3B3C3C3B3C3C3C3E3E3D
+      3F3F3E404040404040403F404041404342424343434445444747474848484949
+      494B4B4C4D4D4D4E4E4F5151515454545757575858575B5B5A5C5C5C5E5E5E60
+      60606262626465656767676969696B6A6B6D6C6D706F6F727172737373767675
+      7878787A7B7A7C7C7C7E7E7E8181818383838585858888888A8A8A8C8C8C8E8D
+      8E908F8F9292929594949695969898989A9A9A9B9B9C9D9D9E9F9E9FA1A0A1A3
+      A2A3A3A3A4A8A7A8ABABABACACACAFAFAFB0B0B0B1B1B1B2B1B1ACACACA1A1A1
+      8B8B8B7474746363635353534242423434342929292020201414141414141313
+      131313131313131313131313131111111D1D1D2626263131313E3E3E4F4F4F60
+      60607171718888889E9E9EA8A8A8ABABABACABABA9A9A9A9A9A9A6A6A6A5A5A5
+      A3A3A3A1A1A1A0A0A09D9D9D9B9B9B9999999797979695969292929191918F8F
+      8F8E8E8E8F8F8F9494949595959696969797979998989797978B8B8B75747472
+      72727070706D6E6E6B6A6A6868686666666262636060605D5D5D5C5B5B585858
+      5655565253534F4F4F4E4E4E4B4B4B4949494646464444444141423F3F3F3D3C
+      3C3A3A3A3938393635353434353232322F2F2F2F2F2F2C2D2D2A2A2A29292827
+      26262625252323232323232120211F1F1F1E1E1E1E1D1D1C1C1C1A1A1A191A1A
+      1718181717161617161515151414141414141413141312121111111011101010
+      101010100E0E0E0E0F0F0D0D0D0E0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B
+      0B0C0A0A0A0A0A0A090A0A0A0A090A0A09090909090909090909090909090809
+      0809090808090808080808080808080808080807070707070707080707070707
+      0707070706070706060606060606060606050506060606050505050505050505
+      0505050505050505050505050405050504040405050505040404040404040404
+      0403040404040404040403030303030303030303030303030302030303030303
+      0303030203020202020302030202020202020202020202020202010201010201
+      0102020201020101020101010101010101010101010101010101010101010101
+      0101010101000000000000000100010000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303232323333333434
+      3435353536363637373738383838383838383838383839393939393939393939
+      39393939393939393A3A3A3A3A3A3C3C3C3D3D3D3E3E3E3939392E2E2E2F2F2F
+      2F2F2F2F2F2F2F2F2F3434343838383838383838383838383838383838373838
+      3738383738373738373738373738373738373737373737373737373737373737
+      3737373737363636343434343434343434343434343434343434353434363636
+      3636353636353635353635353635353635353635353635353635353635343534
+      3535343535343535353535343535343434343435343434343534343433343434
+      3433343434343334333433343333333333333333333333333333333333333332
+      3333333232323332333333323232323232323232313232313131313131313031
+      31303031313031313131303031313030303030302F3030303031303031313130
+      3030323132313131313131313131313131323132313232323131323131323232
+      3232323232323333333434343434353534353534343535353636363636363636
+      373837383938383939393A3A3A3B3B3B3B3C3C3C3C3C3E3E3E3F3F3E41414041
+      41404443434544444544454544454444444747474848484A4A4A4C4C4C4D4E4D
+      504F4F5151515353545555555858585B5B5B5C5D5C60605F6161626464636666
+      666868686A6A6A6B6B6B6E6E6E7170717372737675757877777A7A797C7C7C7E
+      7E7E8181818383838686868888878A8A8A8C8D8C8F8F8F909090939393949594
+      9797979999999B9B9B9E9E9E9F9F9FA1A1A1A3A3A3A5A5A5A7A6A7A8A8A8AAAA
+      AAABABABB1B0B1B1B1B1A4A4A48686866868684B4B4B2B2B2B1616160F0F0F0D
+      0D0D0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0B0B0B0A0A0A0B0B0B0B0B0B0A0A0A
+      0A0A0A0909090909090909090707070808080707070707070707070606060505
+      050707070E0E0E2323234242426160617F7F7F9E9E9EABABABABABABA9A9A9A7
+      A7A7A6A6A6A3A3A3A1A1A19F9F9F9D9C9C9B9B9B999999979697969696979697
+      9B9B9B9C9C9C9C9C9C9D9D9D9E9E9E9D9E9D9191927D7E7D7A7A7A7878787574
+      74727272706F706C6C6C6A6A6A6767676463646161615F5F5F5B5C5B59595957
+      57575454545151514F4F4F4C4C4C4A4A4A474747444444434242403F3F3D3D3D
+      3B3B3B3939393736373534353232322F302F2F2F2F2C2D2D2A2B2B292A2A2626
+      272525252323232323232020211F1F1F1F1E1E1D1D1E1B1B1B191A1A18191917
+      1718171617161616151515141414141414141314121312111211101010101010
+      100F100F0E0F0E0E0E0D0D0D0D0E0D0C0C0C0C0C0C0B0C0C0B0C0B0C0C0C0B0A
+      0B0A0A0A0A0A0A0A0A0A0A090A0A0A0A0A090909090909090A09090909090909
+      0808080808080808080808080808080808080807070707070707070607070706
+      0707060606060606060606060606050506050606060506050506050506060505
+      0505050505050505050504050504040504050504040404040404040403040404
+      0404040404040304030403030303030303030303030303030203030203030202
+      0302030203020202030302020302020202020202020201020201020201010101
+      0101010101010101020101020101010101010101010100010101010101010001
+      0100010000000000000100000000000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303031
+      3131323232343434343434353535373737383838383838383838383838383838
+      3939393939393939393939393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3B3B3B3B3B
+      3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3F3F3F3333332F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F30383737383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373737373737373737373737373737373737
+      3734343434343434343434343434343434343434343436353536363636363636
+      3635363635363535363535363535363535363535353435363534363534353535
+      3534353435353434343535343534353534343434343434343434343334343333
+      3433343334343334333334343333333334333333333333333333333333333333
+      3332333232323233333333323332333231323131323131313131313131313131
+      3131303031303030303030313030303131313131313130313031313132313131
+      3232323132313231313232323232323232323232323233333333323232333233
+      3333333333343434353534343534353435353635363636373737383838393938
+      3939393A3A3A3A3B3A3C3C3D3C3C3C3E3E3E3F3F3F4141404141404343424544
+      4446454548474749494949494A4A4A4A4A4A4A4C4C4C4E4E4E50505052525254
+      53545657565757575A5A5A5D5C5D606060626363646464666667696A696B6B6B
+      6D6E6E7070707273737575757777777A797A7C7B7C7F7E7E8180818383838685
+      858888888A8A8A8D8D8C8F8F8F919190939393969696989898999A9A9C9C9C9E
+      9E9FA1A1A1A3A3A3A4A4A4A6A6A6A9A8A9AAAAAAACACACADADADA7A7A7858585
+      5F5F5F3939391919190E0E0E0F0F0F0F0F0F0E0E0E0E0E0E0D0D0D0E0E0E0E0E
+      0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C0C0C0C0B0B0B0B0B0B0B0B0B0A
+      0A0A0909090A0A0A090909090909080808070707070707070707060606050505
+      0505050505050505050404040303030D0D0D2E2E2E575757818080A4A4A4AAAA
+      AAA9A8A8A7A7A7A5A5A5A2A2A2A0A0A09F9F9F9E9E9E9E9E9EA3A3A3A2A2A2A3
+      A3A3A3A3A3A4A4A4A3A3A39899998484848282827F7F7F7C7C7C7A7A7A777676
+      7474747171716E6E6E6B6B6B6969686566656362626060605D5D5D5A5A5A5758
+      585554555252534F4F4F4D4D4D4A4A4A4747474545454243424140403D3D3E3B
+      3B3B3838393737363535343233323130302F2F2F2D2D2D2A2B2A282928262626
+      2525262323232323232121211F1F1F1D1D1D1D1D1D1B1B1B1A1A191918181717
+      1817171715151614141414141414131412131311121112121210101010101010
+      10100E0F0E0F0E0F0D0D0D0D0E0D0C0C0C0C0C0C0B0C0C0B0C0C0B0B0B0A0B0A
+      0A0A0A0A0A0A0A0A0A090A0A0A0909090A090A09090A09090909090909090809
+      0908080808080808080808080808080708070707080707070807070707070606
+      0707060606060606060606060605050606050606060505050505050505050505
+      0505050505050505050504050505040504040404050404040404040404030404
+      0304040303040303040304030303030303030303030303030303030303020203
+      0302030302020203020302020202020202020201020202020102010102010201
+      0201010101020101010101010101020101010101010101010101010100010100
+      0000010000010000010000000000010000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303232323333333434343535353636363737373838383838
+      383838383838383838383939393939393939393939393A3A3A3A3A3A3A3A3A3A
+      3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D
+      3D3D3D3E3E3E3E3E3E3B3B3B3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3232
+      3238383838383838383838383838383838383838383838383738383738383738
+      3737383737383737383737383737373737373737373737373737363636343434
+      3434343434343434343434343434343535343636363636363636363636363636
+      3536363536353536353536353536353536353536353536343436343435353435
+      3434343434343535353534343435343435343434343434343434343434343434
+      3333343434343433343433333334343333333433333333333333333333333333
+      3232323333323332333232323132313132313132313131313131313131313130
+      3131303130313131313132313232313131313130313131313132323232323131
+      3131313132313232323232323132323231323332323233333232333333333434
+      343435353535353535353536363636363837383938383939393939393A3B3B3B
+      3B3A3C3D3D3C3C3D3E3F3E3F3F3F414141414141434342454544464545484747
+      4A49494B4A4A4C4C4C4E4D4E4E4E4E504F4F5151515252525554555757575858
+      595A5A5A5C5C5C5F5F606161616565656768676A6A6A6C6D6C6F6F6F71717174
+      74747676767878797B7B7B7D7C7D807F808382828585858787878A8A898C8C8C
+      8E8E8E9191919393939696969998999B9B9B9C9C9C9F9F9FA1A1A1A4A3A3A6A6
+      A6A8A8A8AAAAAAACACACAEAEAEA5A5A57C7C7C4E4E4E22222210101010101010
+      10101010101010100F0F0F1010101010100F0F0F1010100F0F0F0F0F0F0F0F0F
+      0F0F0F0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0A0A
+      0A0A0A0A0A0A0A0A0A0A09090909090908080808080807070707070706060606
+      0606060606050505050505030303030303030303030303161616444445757575
+      A1A1A1AAAAAAA9A9A9A7A7A7A5A5A5A6A6A6AAAAAAA9A9A9A9A9A9AAAAA9AAAA
+      AAAAAAAA9F9F9F8C8C8C8989898787878484848181817E7E7E7B7B7B78797975
+      75757272726F706F6C6C6C6A69696766666464636161615E5E5E5B5B5B585858
+      5656565253525050504D4D4D494A4A4847484545454444444141413E3E3E3B3B
+      3B3939393737373434343232333030302E2E2F2C2D2D2A2B2A29292926262725
+      25252323232323232020212020201D1D1D1D1D1D1B1B1B1A1A19191918171717
+      1616161515151414141414141414131212121211121111101010101010100E0F
+      0E0F0E0E0D0E0E0E0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0A0A0A0B0A0A0A
+      0A0A0A0A0A0A0A0A0A0A090A090A090909090909090909090909080809080808
+      0808080808080808080707070707080707070707070707060707070706070706
+      0606070606060606060605060605060606050605060505050605050605050505
+      0505050505050405050504050505050404040404040404040404030403030303
+      0304030304030404040304040303030303030303030303020303020203030302
+      0303020302020302020202020202020202010202010201020101020202010201
+      0101010101020101010201010102000101010101000101010101010101000000
+      0101000000010000000000010000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303032323234343434
+      34343636363737373737373838383838383939393939393939393939393A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C
+      3C3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3A3A3A37373737363732323230
+      30302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F363636383838
+      3838383838383838383838383838383838383838373838373838373837373837
+      3738373738373738373737373737373737373737373734343434343334343434
+      3434343434343434343434363636363636363636363636363636363636363635
+      3636353635353635353635353635353635353635353635353635353535343535
+      3534353535353535343434353534343434343535343434343334343434343434
+      3334343434343433333333333434343333333434333333333333333233323332
+      3333323232323232323232323231323231313231313130313131313232313232
+      3132323132323231313132323131313132323232323232323231323231313233
+      3332323232323232323232333333323333333332343334353534353535353535
+      353535363536373737373737383838393A3A393A393A3A3A3B3B3B3D3D3D3D3D
+      3C3E3F3F3F3F3F4141414141414343434545444646454848474A49494B4A4A4D
+      4C4C4E4E4E504E4E5252515453535554545555555757575859595B5C5C5E5D5E
+      6161616362626565656767676B6B6B6E6D6E7070707272737574747878787A7A
+      7A7D7D7D7F7F7F8383828584858787878A88898C8C8C8E8E8E91919093939395
+      95959899989B9B9B9D9D9DA0A0A0A1A1A1A4A4A4A6A6A6A9A9A9ABABABAEAEAE
+      ABACAC8282824E4E4E2020201111111212121212121111111111111111111111
+      1112121211111111111111111111111111111111111110101010101010101010
+      10100F0F0F0F0F0F0F0F0F0E0E0E0E0E0E0D0D0D0C0C0C0D0D0D0C0C0C0B0B0B
+      0B0B0B0B0B0B0A0A0A0A0A0A0909090808080808080808080707070606060606
+      0606060605050505050503030303030303030303030303030302020213131344
+      44447B7B7BA8A8A8AEAEAEB1B1B1B1B1B1B0B0B0B0B0B0B0B0B0B0B0B0A6A6A6
+      9594949292928E8D8E8B8B8B8889898586858383838080807D7D7D7A7A7A7777
+      787474747171716E6E6E6B6B6B686867646564626262605F5F5C5C5C59595956
+      57575353535051504E4E4E4B4B4B4848484646464343444040403E3E3E3B3B3B
+      3939383636373534343232323030302F2F2F2C2C2D2A2B2A2829282626272525
+      252323232323222021211F1F201D1D1E1C1C1D1B1B1B1A191A18191816161616
+      16161515151414141414141413141212121211111010101010111010100E0E0F
+      0F0F0E0E0D0E0D0E0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0A0A0B0B0A0A0A0A
+      0A0A0A0A0A0A0A0A0A0A090A090A0A0909090909090909080908090908090808
+      0808080808080808070808080707070808070707070707070707070606060706
+      0606060606060606060606050605060505050505050505050605050505050505
+      0505050505050505050405050504040505040404040404040404040404040403
+      0403030404030303030303030303030303030303030203030202020202020302
+      0203030202020202020202020202020202010102010102010102020202010201
+      0201020102010101010101010101010101010101010001010101010001000001
+      0000000001010001010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303333333535353535353636
+      363737373939393A3A3A3A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C
+      3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D3D3D3D3D3D3D3E3E3E3C3C3C3A3A3A
+      3736373434343232322F2F2F2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30303038383838383838383838
+      3838383838383838383838383838383838383837383837383737383737383737
+      3837373837373737373737373737373636363434333434333434333434343434
+      3434343435353536363636363636363636363636363636363636363636363536
+      3635363535363535363535363535363535363535363535353534353435353435
+      3435343435343435343434343434343434343434343434343433343434343434
+      3434343333333334343333343433333333333333333333333332333333323333
+      3333333232333232333232323131323231323231323232323232313232313131
+      3131323132313131313131313232323231323232313131323233333233323232
+      3332323233333333333332333334343435353434343435353535353536363637
+      3737373637373838393A3A39393A3B3A3A3B3B3C3C3C3C3D3D3D3E3D3D403F3F
+      4040404141414343434444444646454848474949484B4A4A4D4C4C4E4E4E504F
+      4F5351525554535757565858575A5A5A5B5B5B5C5C5C5E5E5E61616063626366
+      65656868686B6B6B6D6D6C7070707474747776777979797B7B7B7E7E7E808080
+      8383838585858989898B8B8B8E8D8E9191919493939696969898989B9A9A9D9D
+      9D9F9F9FA1A2A1A4A4A4A6A7A6A9A9A9ACACACAEAEAE9B9A9A6767672F2F2F12
+      1212131313121212121212131313131313141414141414141414131313131313
+      1414141313131313131313131212121212121212121111111111111111111010
+      101010101010101010100F0F0F0E0E0E0E0E0E0D0D0D0E0E0E0D0D0D0C0C0C0B
+      0B0B0C0C0C0B0B0B0A0A0A090909090909090909080808070707070707060606
+      0606060505050404040404040404040404040404040303030202020202020202
+      022121216261629F9F9FB7B7B7B7B7B7B7B7B7B6B6B6ACACAC9B9B9C99999996
+      96969393939091918D8E8E8B8B8B8888888584848282827F7E7F7B7B7B787878
+      7575757272726F6F6F6C6C6C6969696667676262626060605C5D5D5A5A5A5657
+      565453545150504E4E4E4B4B4B4849494646464443444141413E3E3E3B3B3B3A
+      3A3A3637373435343232332F2F2F2F2F2E2D2C2D292929292829262727252424
+      2323232222222120211E1E1E1E1E1D1C1C1C1A1A191A19191818171717171617
+      161516151414141413141313121313131211111111101010101010100F0F0F0D
+      0D0D0E0D0D0E0E0E0C0C0C0C0C0C0C0C0C0C0C0B0B0A0B0A0B0B0A0A0A0A0A0A
+      0A0A0A090A0A090A090A0A0A090A09090A090909090909090909080809080808
+      0808080808080707080707070707070807070707070707070707070607060606
+      0606060606060606060605050506050506050505050505050505050505050505
+      0405050505050505050404040404040404040404040404040404040404040304
+      0403030303030303040303030303030303020303030303030303020302020203
+      0202020202020202020202020202010202020202020202010202020102020101
+      0101020101010102010101010101010101010100010100010001010101010000
+      0100000000010100000000000000010000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030343434353535363636373737393939
+      3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D3D3D3D3D3D
+      3D3E3E3E3A3A3A3838383736373333333131312E2E2E2E2E2E2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3434343838383838383838383838383838
+      3838383838383838383838383838383738383738383738373738373738373738
+      3737383737373737373737353434343333343433343433343433343434343434
+      3636363636363636363636363636363636363636363636363636363636353636
+      3536353536353536353536353536353436353535353436343535343435343435
+      3535343435343434353434353434343434343434343434343334343434343434
+      3434343333333333343334343333333333333333333333333332333333333232
+      3332323232323232323232333233323232323232323232313231313231323131
+      3131323131323232323232323232323232313232333333333333323233323232
+      3334343333333333333434343333343534353332323333333333333434343535
+      353737373736373939383B3A393C3B3B3E3D3D3E3E3E40404041404142414244
+      43434444444647464747474949484B4B4A4D4C4C4E4E4E504F4F535252555454
+      5757575957585B5B5A5D5D5C605F5F6160616161616463646666666968686B6B
+      6B6E6E6E71717173737377767679797A7C7C7D7F7F7F8282828585858888878A
+      8A8A8D8C8D8F90909392939595959897979B9B9B9D9D9DA09F9FA2A2A2A4A4A4
+      A7A7A7A9A9A9ACACACAEAEAE8D8D8D4F4F4F1D1D1D1313131414141414141414
+      1414141415151515151516161616161616161616161615151515151515151516
+      1616151515141414141414151515141414141414131313121212121212121212
+      1111111111111111111010100F0F0F0E0E0E0E0E0E0E0E0E0D0D0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0B0B0B0A0A0A09090909090909090908080807070707070706
+      0606060606050505050505040404040404040404020202020202020202020202
+      0101010C0C0C484848929292BCBDBDB3B3B3A4A4A4A1A1A19F9E9E9C9B9B9999
+      9996969693939390908F8D8D8D8A8A8A8686868383837F807F7D7D7D7A7A7A76
+      76767474747070706D6D6D6A696A6666666463636161615D5E5E5A5A5A585858
+      5455545151514F4F4F4C4C4C4849494646464343434141413E3E3E3B3B3B3838
+      393636363434343232322F2F2F2E2E2E2D2D2D292A2928282827262624242423
+      23232222222020201F1E1F1D1D1D1C1C1C1A1A1A1A1919181717171716161615
+      1414141414141414141313121112111010101010101010100F0F0F0F0E0F0E0E
+      0D0D0E0D0C0C0C0C0C0C0C0C0C0C0C0C0B0B0B0A0B0B0B0B0B0A0A0A0A0A0A0A
+      0A0A0A0A0A0A090A0A090A0A090A090909090909090909090908080808080808
+      0808080808080708070707080707070707070607070607060607060607070606
+      0606060606060606060605050606050605060505060505050505050505050505
+      0505050505050404050504040404040404040404040404040404040404030403
+      0403040303030303040303030303030302030303030303020202020302030202
+      0202020202020202020202020202020202020101020102010201010102010201
+      0202010201010201010101010101010101000101010100000001010101010101
+      0100000000010000000100000001000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303131313434343535353737373838383A3A3A3C3C3C3D
+      3D3D3D3D3D3D3D3D3D3D3D3D3D3D3A3A3A3737373535363232323030302E2E2E
+      2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F373737383838383838383838383838383838383838
+      3838383838383838383838373838373838373837373837373837373837373837
+      3737373736363634333334333334333334343334343334343335353536363636
+      3636363636363636363636363636363636363636363636363636363635363635
+      3635353635353635353635353635353635353635353535343534343535353435
+      3535343435343434343434353434343434343434343433343433343334343433
+      3334333433343433343333333333333333333333333333333333323332323233
+      3332323332333333323332323332323232323232323232323232323132313231
+      323333333232323232323232323333323333323332333333333332323131312F
+      2F2F2F2F2F2E2F2F30303030302F303130313031313131333232333433343434
+      35353536363636363738393939393A3C3C3C3E3E3E4040404243434544454545
+      45484747494A494B4B4A4D4D4C4E4E4E504F4F5352525554545757575958585B
+      5B5B5D5D5D60605F6262616464656665656767676A6A696B6C6C6E6F6F717171
+      7474747676767A7A7A7E7E7E8180818383838686868888888C8C8C8F8F8F9292
+      929494949797979999999D9C9D9F9F9FA3A2A2A5A5A5A7A7A7A9A9A9ACACACAE
+      AEAE8D8D8D494949161616141414151515161616161616171717161616171717
+      1717171818181818181818181818181818181717171616161717171717171717
+      1716161616161616161616161615151514141414141413131314141413131313
+      13131313131414141313131212121111111010101010100F0F0F0D0D0D0D0D0D
+      0D0D0D0C0C0C0A0A0A0A0A0A0909090909090909090808080707070707070707
+      0706060606060604040404040404040404040402020202020202020202020201
+      01010101010303033E3E3E848484A9A9A9A7A7A7A4A4A4A1A1A19E9E9F9B9B9B
+      9898989595959292928F8F8F8B8B8B8888888585858281817E7E7E7B7B7B7777
+      777474747172726E6D6D6A6A6A6768686363636161615E5E5E5B5A5B58585854
+      54545151524F4F4F4C4C4C4849494646464443434241413E3E3E3B3B3B393938
+      3636363534343232332F2F2F2E2E2E2C2C2B292A2A2727282626262424242323
+      232221222120201F1E1E1D1D1D1B1B1B1A1A1A19181918171717161715161514
+      14151414141413141213131212111010111110101010100F0F0F0F0F0F0E0E0E
+      0E0E0D0C0C0C0C0C0C0C0C0C0C0C0C0A0A0B0A0B0B0A0A0B0A0A0A0A0A0A0A0A
+      0A090A0A0A090A0909090A090909090909090909080908080809080809080807
+      0808080708080707070707070707070707070707060706060606070606060606
+      0606060605060605060505060505060605050506060505050505050505050405
+      0505040504040504040504040405040504040404040404040404040304030303
+      0304030303040303030303030303030303030203030302020302020302020203
+      0202030202030202020202020202020102010102020102010201010101010101
+      0201020201010201010101010001010101000001000101000000010101000001
+      0100010000000001000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303232323434343636363838383A3A3A3A3A3A3A3A3A3635363434
+      343232322E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3130313232
+      3234333435353538383838383838383838383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737373737
+      3535343333333433333433333433333434333434343636363636363636363636
+      3636363636363636363636363636363636363636363636363636363536363536
+      3535363535363535363535363535363535363535353535353535353434343435
+      3434353534343535343435343434343434343434343434333434343333343334
+      3333333434333333333333343434333333333333333233333332333333333333
+      3333343232333232333232333232323232313232323232323132323332323233
+      3232323332323232323333333232323030312F2E2F2E2D2D2D2D2D2E2F2E2F2F
+      2F2F2F2F30303030313131313132323232313133333334353435353536363636
+      353637383839393939393A3A3A3B3D3D3E3E3E3F3F4040434342454545494949
+      4B4C4B4D4D4D4E4E4E50504F5352525554545757575958585B5B5B5E5D5D6060
+      606262626564656767676A6A6A6C6C6C6D6D6D6F6F6F7272717575757778777B
+      7B7B7D7D7D8080808483838787878B8B8B8D8D8D909090929292969596999999
+      9C9B9B9E9E9EA1A1A1A4A4A4A6A6A6AAAAAAACACACAFAEAE8D8D8D4949491616
+      161515151616161616161717171717171818181818181919191A1A1A1A1A1A1A
+      1A1A1A1A1A1A1A1A1919191A1A1A191919191919181818181818181818171717
+      1717171717171717171717171818181919191A1A1A1B1B1B1C1C1C1C1C1C1D1D
+      1D1E1E1E1E1E1E1D1D1D1D1D1D1B1B1B1A1A1A19191918181816161614141413
+      13131010100E0E0E0D0D0D0A0A0A0A0A0A090909080808080808070707070707
+      0606060505050404040404040404040404040202020202020202020202020101
+      010101010101010101013A3A3A848484A9A9A9A6A6A7A4A4A4A0A0A09E9D9D9A
+      9A9A9696969393939091918D8D8D8989898686868383837F80807C7C7C797879
+      7575757272726F6F6F6B6B6B6868686464646262625E5D5E5A5B5A5858585656
+      565151514F4F4F4C4C4C4849494646464343434141423E3F3E3B3B3B38383937
+      36373534343232322F2F2F2E2D2E2C2C2B292929282827262626232323232323
+      2120201F201F1D1D1D1D1D1D1B1B1B191A1A1919191716161716161515161414
+      141414141213131213121212121111111010101010100F0F0F0E0E0E0D0E0E0C
+      0C0D0D0C0C0D0C0C0C0C0C0C0C0C0B0A0A0B0A0A0A0A0A0A0A0B0A0A0A0A0A0A
+      0A0A0A0A0A090909090909090909090809090809090809090808080808080708
+      0807070707070707070707070707070707070706070606060706060606060606
+      0606060606050505060505050505050506060505050605050505050504040505
+      0504050504040404040404050404040404040404040304030403040404040403
+      0404030403040403030303030303030203020302030202020302020302020203
+      0202020203020202020202020202010202020102010201010202020201010101
+      0101010101010101010101010101010101010001000100000001000001000000
+      0000010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303232323535353737373939393B3B3B3333332E2E2E2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F313131333233343434363636373737393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383738383738373738373738373738373737373733333333
+      3333333333343333343333343333353535363636363636363636363636363636
+      3636363636363636363636363636363636363636363636363636353636353635
+      3536353536353536353536343536353536353536353535353435353534353435
+      3534343534343435343434343434343434343434343434343433343333333433
+      3433333334343333343333333333333333333333333433333432323432323432
+      3333323233323233323232323232323232313232323233333332333332323232
+      32323232322F2F2F2D2D2D2D2D2D2E2E2D2D2D2E2E2D2E2F2E2E2F302F303030
+      3030303130313232323232323332323434343434343535353636363838383939
+      393A3A3A3B3B3B3D3D3D3E3E3F3F3F404141424242434444444646474A49494D
+      4D4E50504F5353525554545756565958585B5B5B5E5D5D606060636262656565
+      6868686A6A6A6C6D6C6F6F6F7272727373737676767978787B7B7B7E7E7E8281
+      818585858787878B8A8B8E8E8F9191919595949797979A9A9A9D9D9DA1A0A0A3
+      A3A3A5A6A5A9A8A8ACABACAFAFAF9A9999515151161616161616161616181818
+      1919191919191919191A1A1A1B1B1B1B1B1B1B1B1B1C1C1C1C1C1C1C1C1C1B1B
+      1B1B1B1B1B1B1B1B1B1B1B1B1B1A1A1A19191919191918181819191919191918
+      18181919191B1B1B1D1D1D1F1F1F212121232323252525262626272727282828
+      2828282828282828282727272525252525252424242323232121211F1F1F1E1E
+      1E1A1A1A1818181515151212120F0F0F0C0C0C0A0A0A08080807070707070707
+      0707060606040404040404040404040404020202020202020202020202010101
+      010101010101000000010101424242929292A9A9A9A6A5A5A2A2A29F9F9F9B9B
+      9B9999999595959291918E8D8E8B8B8B8787878484848180817D7D7D7A7A7A76
+      76767273736F6F6F6C6C6C696A6A6665656262625E5E5E5B5B5B585858555656
+      5352524F4F4F4C4B4B4949494646464443434040403E3E3E3B3B3B3938393635
+      363434333131312F2F2F2D2D2D2C2B2B292A2A27272825252623232323222221
+      212120201F1D1E1E1C1C1C1A1A1A191A1A181818171716171616141414141415
+      1414141312131111121110111011101010100F0F0F0F0F0F0E0E0E0E0D0E0D0D
+      0C0C0D0C0C0C0C0C0C0C0B0B0B0B0B0B0A0B0A0A0A0B0A0A0A0A0A0A0A0A0A09
+      0A0A09090A090909090909090909090909080808080808080808080808070808
+      0807080708070707070707070607070707060607060607070606070606060606
+      0606060606060606050506050605060605060505050505050505050505050505
+      0405040404040404040404040404040404040403040304040304040404030403
+      0304040303030303030303030303030303020302030303030203020202020202
+      0202030202020202020202020102020202020201020101010101010201010101
+      0101020101010101010101000101010101000001010000010100010001000100
+      0001000100000100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303434
+      343535353838383A3A3A3C3C3C3131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3030303131313333333534343636363838383939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373535353333333333333333
+      3333333334333334333336363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363636363635363635363535
+      3635353635353635353635353635353534353534353535343535353435353434
+      3435343534343434343434343434333433343434343434343334343433343434
+      3433333333343334333334333333343333343333333333343333343332333332
+      3332323332323232333233323232323333333332323333323031312E2D2D2E2D
+      2D2D2D2D2D2D2D2E2E2E2D2E2E2E2E2E2F2F2E302F2F30313131303031313131
+      31313232313434343435353635353536363736363738373939393A3A3A3B3B3B
+      3C3D3D3D3E3E403F4041404142424344444546464748484849494A4B4B4C4F4F
+      4F5353545757565958585B5B5B5E5D5D6060606362626665656968686A6A6A6D
+      6D6D706F6F7373737575757878787979797C7C7C7F7F7F838283858585888888
+      8B8B8B8F8F8F9292929595959998999C9C9C9E9E9EA1A1A1A4A5A5A8A8A8AAAB
+      AAADAEAEAAAAAA6868682222221717171818181919191919191B1B1B1B1B1B1C
+      1C1C1C1C1C1C1C1C1D1D1D1E1E1E1E1E1E1D1D1D1D1D1D1E1E1E1D1D1D1C1C1C
+      1C1C1C1C1C1C1C1C1C1B1B1B1B1B1B1A1A1A1919191919191919191818181919
+      191B1B1B1E1E1E2121212424242727272828282B2B2B2C2C2C2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B292929282828272727
+      2525252222221F1F1F1C1C1C1818181515151111110C0C0C0909090808080707
+      0706060605050504040405050503030302020202020202020201010101010101
+      01010000000000000000000D0D0D5B5B5BA3A3A3A7A8A7A4A4A4A1A1A19D9D9D
+      999A9A9696969393938F8F908C8C8C8888888585858182817E7E7E7A7A7A7777
+      77747474706F6F6C6C6C696A696566656262625F5F5F5B5A5A58585856555552
+      52534F4F4F4C4C4C4849494646464343434140403D3D3D3B3B3B393938353636
+      3333343131312F2F2F2D2C2D2B2A2A2A29292727262526252323232222222121
+      201F1E1F1D1D1E1C1C1C1A1A1A19191918181817171616151614151414141414
+      14141313131211111011101010111010100F0F0F0E0E0E0D0E0E0C0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0B0B0B0B0B0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A090A
+      0A0A090A09090909090908080909080808080808080808080807080808080808
+      0807070707070707070707070707060707060706060606060606060606060605
+      0506060505050605060606050606050605050505050505050505050505050505
+      0505040405040404040404050404040403040404040403030403030303030304
+      0403030303030303030303030302030302030303030202030303020203020202
+      0202020202020202020102020202020202020102010101020201020201010102
+      0201010101010101010100010101010101000001010100000000000000000000
+      0100000100000101010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030313131343434363636
+      3838383A3A3A3C3C3C2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31313132323234343435
+      3535373736393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383737383737383737383737343333333333333333333333333333
+      3333333534343736363736363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363636363536363536353536
+      3535363535363535363535353435363535353535353434353435353534343535
+      3435343434343534343434343434343334343434343433343333343434333433
+      3334333333343334333334333334333333333334333334323333333333323233
+      33323233333232323232323333333132322F2E2F2D2D2C2E2D2E2D2E2E2D2E2E
+      2E2D2E2E2E2E2E2E2E2E2F2F2F302F3030303132313333333333333434343636
+      373A3A3B3B3A3A3C3B3B3E3D3D3E3D3D3E3E3E3A3A3A3C3C3C3D3C3D3E3E3E3E
+      3E3F40414142434343444445454647474848494A4C4C4C4D4D4E4F5050525252
+      5656565B5B5B5E5D5D6060606362626565656968686B6A6A6D6D6D706F6F7373
+      737777767978797C7C7C7F7F7F8181818383828586858989898C8C8D8F8F8F93
+      93939696969A9A9A9D9C9CA0A0A0A3A3A3A6A6A6A9A9A9ACACACAFB0B0898989
+      3737371818181818181919191B1B1B1C1C1C1C1C1C1D1D1D1E1E1E1E1E1E1F1F
+      1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1E1E1E1F1F1F1F1F1F1E1E1E1D
+      1D1D1C1C1C1C1C1C1C1C1C1A1A1A191919191919181818181818181818191919
+      1C1C1C2020202424242828282B2B2B2E2E2E3030303232323333333333333333
+      333333333434343434343434343434343333333232323131313030302F2F2F2D
+      2D2D2B2B2B2828282424242121211E1E1E1919191515151010100C0C0C080808
+      0606060505050505050505050404040303030303030202020202020101010101
+      010000000000000000000000002323237E7E7EA9A9A9A5A5A5A2A2A29E9E9E9B
+      9B9B9898989494949090908D8D8D8A8A8A8585858283827F7E7F7B7B7B777777
+      7474747170716D6D6D6A696A6666676262625F5F5F5B5B5A5858585655555151
+      514F4F4F4C4B4B4948494646464343434040403D3D3D3A3A3A39393935353532
+      32323031302F2F2F2D2D2D2B2B2B292829262727242424232323222222202121
+      1F1F1F1D1D1E1C1B1B1A1A1A1919191717171616161515151414141414141313
+      131212121212121010101110100F0F0F0F0F0F0D0E0E0E0D0E0D0D0D0C0D0C0C
+      0C0C0C0C0C0A0B0B0B0B0A0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0909090A09
+      09090A0909090909090908090809080908080808080808080808080708080707
+      0807070707070707070607070707070607070706070606060606060606060605
+      0506050506050506050505050505050505050505050505050505050505040505
+      0404050504040404040404040404040404040404040404040304030403040303
+      0403030303030303030203030303030302030303030202020302020202020202
+      0302020202020201020202010101020102020201010102010201010101010101
+      0101010101010001010100010101010101010101010100000001000100010100
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303030303030303030303232323434343737373939393B
+      3B3B3939392E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3231323333333434343737373837373A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      3738383738373738373736363633333333333333333333333333333333333336
+      3636373636373636373636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363636353636353635353635
+      3536353536353536353536353536353535343535343435353535353534343434
+      3434343435343535343434353434353434343433343433343434343334343433
+      3434333434343433333433333433333433333433323433333332333332333332
+      323232333333333030312D2D2D2D2D2D2D2D2C2D2D2D2D2D2D2D2D2E2E2E2F2F
+      2F2F2F2F2F3030303231323536363B3B3B40403F4444444948484949494B4B4B
+      4B4B4B4B4B4A4B4C4B4C4B4C4C4D4C4D4D4D4D4D4D4B4B4B4848484747474545
+      4543444445454648474849494A4B4B4C4D4D4E4F4F5052515254545557575759
+      595A5F5F5F6362626565656968686B6A6A6D6D6D707070737373767777797879
+      7C7C7C80807F8282828585858787878A8A8A8D8D8D9090909494949696969999
+      999E9E9EA1A1A1A4A4A4A7A8A8ABABABAEAEAEA6A6A65B5B5B1818181919191B
+      1B1B1A1A1A1C1C1C1D1D1D1E1E1E1F1F1F1F1F1F1F1F1F202020212121212121
+      2121212020202020202020202020201F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1D1D
+      1D1C1C1C1C1C1C1A1A1A1A1A1A1919191818181818181818181818181919191D
+      1D1D2424232929282E2E2C323230343431373634383836393936393937393937
+      3A3A393A3A393A3A393A3A3A3939393939393939393838383737373636363434
+      343232322F2F2F2D2D2D2A2A2A2626262222221D1D1D1919191414140F0F0F09
+      0909060606050505050505050505040404030303030303020202020202010101
+      0000000000000000000000000000004B4B4A9E9E9EA7A8A7A4A4A4A0A0A09C9C
+      9C9899989696969191928D8D8D8B8B8B868686838383807F7F7C7C7C77777874
+      74747171706D6D6D69696A6666666262625F5F5E5A5A5B585858555655515151
+      4F4F4F4B4B4B484848454545424242403F3F3B3C3C3A3A3A3838383535353332
+      333130302F2F2F2D2D2D292A29282727262626252425232323212121201F201E
+      1D1D1C1C1C1B1B1C1A1A1A181818161717161617141415141414141414131213
+      1212121110111110101010100F0F0F0E0E0E0E0E0E0C0D0D0D0C0D0C0D0D0C0D
+      0C0C0C0C0B0B0B0B0A0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A09090909
+      090909090A090809090908090808080808080808080808070807070807080707
+      0707080707070707070707070707060707070706060606070606060606060606
+      0505050505060606050606060505050505050505050505050405050405050404
+      0404040404050404040404040404040404040304030404030403040404030303
+      0303040303030303030302030203020303020302020203020203030202020202
+      0202020202020202020202010101020102010102020202010102010101010101
+      0101010101010101010101010000010100010101010001000000010100010000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303232323535353737373939393C3C3C3635
+      362F2F2F2F2F2F2F2F2F2F2F2F2F2F303535353737373939393A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373534343333333333333333333333333333333434343737363736
+      3637363637363637363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363635363635363535363535
+      3635353635353535353635353535353635353534343534343535343434353434
+      3534353435343435343435343435343434343434333333343334343335343434
+      3433343333343333343333343333343333333332333232333333333232323131
+      2E2E2E2D2D2E2D2D2D2C2D2D2E2E2E2E2D2E2F2F2E2F2F2F2F2F303130303536
+      363E3E3E4444444747474949494A4B4A4B4C4B4D4C4D4D4D4E4D4D4D4F4F4F4F
+      4E4F4E4E4E4F4F4F5050504F4F4F515050515151525252545454545354505150
+      4D4E4E49494A4B4C4C4D4D4D4F4F505252525454545756575958595B5B5C5D5D
+      5E6363636867676B6A6A6D6D6D7170707473737777777979797C7C7C7F807F82
+      83828686868989898C8C8C8D8D8D9191909494949797979B9B9B9E9E9EA1A1A1
+      A5A5A6A8A8A8ABACACB0B0B08B8B8B3232321919191A1A1A1B1B1B1D1D1D1E1E
+      1E1F1F1F20202021212122222222222222222222222222222223232322222222
+      22222121212121212121212121211F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1D1D1D
+      1B1B1B1B1B1B1A1A1B19191919191718181518171219181019180D1B1A0F2020
+      192727242D2D2C30313434343936373B39393E393A3F3A3B3F3C3C3B3E3E3C40
+      3F3942413743423742423941403B40403D3F3F3E3E3E3D3D3D3D3D3D3D3B3B3B
+      3939393737373434343131312E2E2E2929292525252020201B1B1B1616161010
+      100A0A0A06060605050504040403030303030303030303030302020201010100
+      00000000000000000000000000001E1E1E818181A9A9A9A5A5A5A1A1A19E9E9E
+      9A99999696969393938E8E8E8A8B8B8787878383837F7F807C7C7C7878787474
+      747171716D6D6D6A69696666666262625F5F5F5B5B5B5858585554545151514E
+      4E4E4B4A4A4747484545454243433F3F3F3C3C3C3A3A3A373837353534323233
+      2F2F2F2E2E2E2B2C2C2A2A2A2828272525252323232323232121211F1E1F1D1D
+      1D1D1C1C1A1A1A19191918181816171716161615141414141414141413131312
+      12111111111011100F10100F0F0F0E0E0E0D0D0E0D0D0C0C0C0C0C0D0C0C0C0C
+      0B0B0B0A0B0B0B0B0B0B0A0A0B0A0B0A0A0A0A0A0A0A0A090909090A0A0A0A09
+      0909090909090908090808090808080808080808070807070808080807070707
+      0708070707070707070707070607060706060606060606060606060606050606
+      0505050505060506050505050505050505050405050504040404040405040504
+      0504050404040504050404040404030403030304030303030404030303030303
+      0303030303020303030302020303030203030303020302030203030202020202
+      0202020202020202010102010201020201020102010201020102010102010101
+      0101010100010101010100010101010100010001000100010100010000000000
+      0101000001000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303030303030303030303333333535353737373A3A3A3C3C3C3232322F2F2F
+      2F2F2F2F2F2F2F2F2F3232323A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738383737
+      3737333333333333333333333333333333333333353535373736373736373636
+      3736363736363736363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363536363536353536353536
+      3535363535363535363535353534353435353535353434343435343434353534
+      3534343535343534343534343534343433343534333434343534333534343434
+      333434333433333433333433333433323333333332333030312E2D2F2D2D2D2D
+      2D2D2D2D2D2D2D2D2F2F2F2F2F2F2F3030313031393839424241474747494949
+      4A4A4A4C4C4C4D4C4C4F4F4F4E4F4E5151505150515051505151515151515252
+      5253535353535253525353535354545454545454545457575756575759595959
+      59595656575050515151525253545656565857585B5A5B5D5D5E606061646364
+      6868686D6D6D706F6F7473737777777979797C7C7C8080808383838686868A8A
+      8A8D8C8C9090909494949594959898989C9B9B9F9F9EA3A3A3A5A5A5A9A9A9AD
+      ADADAEAEAE6969691D1D1D1A1A1A1C1C1C1D1D1D1E1E1E202020212121222222
+      2323232424242424242424242424242323232323232323232323232323232323
+      232121212121212121212121211F1F1F1F1F1F1F1F1F1E1E1E1D1D1D1C1C1C1B
+      1B1B1A1A1A19191B17181E16172113173510184D0E18620B17730B18830B1A93
+      0C1C9A0A1AA5091AAB0A1AA90A1AA90A1AA90C1AA6111D9A121E9618238C1E26
+      81242B742D31673538573F3F4943434447463D47463C45443F43434142424140
+      40403E3E3E3A3A3A3838383535353030302C2C2C2727272222221C1C1C171717
+      1111110A0A0A0606060404040303030303030303030303030202020101010000
+      00000000000000000000000000040404595959A6A6A6A6A6A6A3A3A39E9E9E9B
+      9B9B9797979393938F8F8F8C8C8C8888888484847F7F7F7D7D7D787878747474
+      7171706D6D6D6969696766666262625E5D5E5B5B5B5858585454545050504E4E
+      4D4A494A4646474444444241413E3E3E3B3B3B3A3A3A3737363434343131312F
+      2F2F2D2D2D2B2B2B2A29292626262526252323242222212021211F1E1F1E1E1D
+      1C1B1C1B1B1B1919191716171717161414151414141415151313141212121110
+      111011111111100F100F0F0E0E0E0E0E0D0D0C0D0D0D0C0C0D0C0C0C0C0C0C0B
+      0B0B0B0B0B0B0B0B0A0A0B0B0A0A0A0A0A0A0A0A0A090A0A090A090A0A090909
+      0909090909090908080908080808080808080808080707080708080707070707
+      0707070707060707060607060606070706060606070706060606050506060605
+      0506060606060605050506050505050505050505050405040405050405050405
+      0405040405040404040403040403030304030303030403030404030304030303
+      0303030303030303030203030202030203030302030202020202020203020202
+      0202020102020202010102020201020201010102020102010102010101020101
+      0101010101010100010001010100010001010000000001000000000100000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303434343636363838383A3A3A3D3D3D2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F3434343A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373838373635353333
+      3333333333333333333333333333333337363637373737373637373637363637
+      3636373636373636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636353636353635353635353635
+      3536353536353535343436353536343435353535343435343536363535353435
+      3434353435353434353433353434353433353434353434343434343334343333
+      3533333433333433333433333333333030302C2C2D2D2D2E2D2D2D2D2D2D2F2E
+      2E2F2F2F2F2F2F3030303636374342434747474949494B4B4B4E4E4E4F4F4F51
+      5151515151525252535353545454545454555555535353555555555555555555
+      5555545555555655565555565656575757575858585959595A595A5B5B5B5E5E
+      5D605F5F5D5C5C5757575858595A5B5B5C5D5E60616162626366666769696A6C
+      6C6C7272727676767A79797C7C7C8080808383838686868A8A8A8D8D8D909090
+      9494949797979A9A9A9C9C9BA0A09FA3A3A3A6A6A6AAAAAAADADADA0A0A04949
+      491A1A1A1B1B1B1D1D1D1F1F1F20202021212123232324242425252525252525
+      2525252525252525252525252525252525242424242424242424232323232323
+      2121212121212121212121211F1F1F1F1F1F1F1F1F1D1D1D1C1C1C1B1B1B1919
+      1818191D0B1977021AC30019CD0019CC0018D20018D40017D10015CE0015CC00
+      15CA0014C80013C60013C50012C40012C30011C4000FC3000EC3000EC3000EC0
+      000FBB0110B60613AD101B9A1E26862B30703A3C594444494949424A49404646
+      434444434141413F3F3F3B3B3B3737373333332E2E2E2828282323231D1D1D17
+      17171010100A0A0A050505030303030303030303030303020202010101000000
+      000000000000000000000000000000333333989898A7A7A7A4A4A49F9F9F9B9B
+      9B9898979494949090908C8C8C888888848484807F807D7D7D78787874747471
+      71716D6D6D6A69696565656262625D5D5D5B5A5B5757575353535050504D4D4D
+      4A49494646474444444241423E3E3E3B3B3B3938393536363334333232322F2F
+      2F2D2C2D2B2B2B2829282627272425242323232121212020201E1D1D1C1C1D1A
+      1A1A1A1A1A181818171716161616141415141514141414131313121212111111
+      1111100F10100F0F0F0E0F0E0E0E0E0D0D0C0D0C0D0D0C0D0D0D0C0B0B0B0B0B
+      0B0A0B0B0B0B0A0A0A0A0A0A0B0A0A0A0A0A090A0A0A0909090A090909090909
+      0909080909090809090908080808080708080708070807070707070708070707
+      0707070607070707070607060606060707070606060606060605060605050605
+      0506060505050505050505050505050505050505050405050505050404040505
+      0404040404040404040404030404040404030304040404030303030303030303
+      0303030303030303030303030303030302020203020302020202020203030202
+      0202020202020102010102020101010101010202010102010101010101010101
+      0101010101010101010101000000000000010000000101010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3131313434343636363838383B3B3B3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F2F2F
+      2F3737373A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383837383837343434333333333333
+      3333333333333333333534343737373737373737373737363737363736363736
+      3637363637363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363635363635363535363535363535
+      3635353635353535353535353635343635353535363635363535353635343534
+      3435343535343435353435353435343335343335343434343334343334343334
+      33333433333433332F2F2F2D2C2C2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E303030
+      3333334040404747474949494B4B4B4E4E4E5050505353535353535555555757
+      575656555656575757575556565051514F4F4F50505150505050505053535358
+      5857575757595958585858585858595959595A5A5D5D5D5D5D5E5F5F5F626261
+      6464646565656161615D5D5E6060606363636665666968696B6B6C6F6F6F7373
+      737978787D7C7C8080808383838686868A8A8A8D8D8D9190919494949898989B
+      9B9B9E9E9FA1A1A1A4A4A3A7A7A7AAABABAEAFAE9191913232321B1B1B1D1D1D
+      1E1E1E2020202222222323232424242525252626262727272727272727272626
+      2627272726262626262626262625252524242424242424242423232323232321
+      21212121212121212121212020201F1F1F1E1E1E1D1D1D1B1B1B191919181816
+      1617220D18640319B80019CF0019CB0018CA0018C90017C70016C60016C60016
+      C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA00
+      0FBA000EBA000DBB000BBD000BB9020EB20B15A21D238830346D4243524A4A45
+      4C4B424848444444444141413D3D3D3939393434342F2F2F2929292323231C1C
+      1C17171710101008080804040403030303030303030302020201010100000000
+      00000000000000000000000000001C1C1B878787A8A8A8A3A4A4A0A0A09C9C9C
+      9999989494949090908D8D8D8888888484847F7F7F7D7D7D7878787474747171
+      706D6D6D6969696565656262625E5D5E5A5A5A5656565353534F4F504D4D4D4A
+      4A4A4646464443434040403D3D3E3B3B3B3939393535363333333031302F2F2F
+      2D2D2D2A2A2A2727272626272323242323232121211F1E1F1D1E1E1C1B1B1A1A
+      1A191A1917171717171716161614151414141413141312121211111010111110
+      1011100F100E0E0F0E0E0E0D0D0D0D0C0D0D0C0C0C0C0C0C0B0B0B0B0B0B0B0B
+      0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0909090909090909090908
+      0909090808090908080808080808080808080807070807080707070707070707
+      0707070707060607070607070606060606060606060606060605050606050606
+      0506050505060606050605060505050505050505050504050404040404040404
+      0404040404040404040404040304040304030404040303030303030303030303
+      0303030303030303020302030203020302020202020202030202020202020202
+      0102020102020202020201010102010202020202010101020101010101010101
+      0101010101010101000101000101010100010100000000010000000000000000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303032323234
+      34343737373939393B3B3B3939392E2E2E2F2F2F2F2F2F2F2F2F2F2F2F393939
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383738373733333333333333333333333333
+      3333333333363636373737373737373737373737373736373736373636373636
+      3736363736363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363536363536353536353536353536
+      3535363435363535363535363535363536353535353636363535353534353534
+      3535343535343435343534333534343534343434333433343433333534343433
+      332F2F2F2D2D2D2D2D2D2D2E2E2D2D2E2F2F2F2E2E2E3030313A3B3A44454448
+      48484B4B4B4E4E4E5151515454545656565757575757575858584F4F4F474747
+      3F3F3F3737373839383A3A393B3B3B3C3B3B3D3D3D3F403F4040404142424646
+      464B4B4B5151515959585B5B5C5C5C5C5D5C5D5F5F5F60616163636366656568
+      68686A6A6A6A6A6A64646565666669686A6C6B6C6F6F6F717272767676797979
+      807F7F8383838686868A8A8A8D8D8D9191919494949898989B9B9BA0A0A0A3A2
+      A3A6A6A6A8A8A8ABABABAFB0B07C7C7C2525251C1C1C1E1E1E20202022222223
+      2323252525262626272727282828282828292929282828282828282828282828
+      2727272727272626262626262525252424242424242424242323232323232121
+      212121212121212020201F1F1F1E1E1E1D1D1D1B1B1B191A1A18181816161316
+      1507101638001AC80019CE0019CB0018CA0018C90017C70016C60016C60016C5
+      0015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010
+      B9000FB8000FB7000EB6000DB6000BB70009B9000AB50510A919208E30346E46
+      46524E4D454B4B444646454343433F3F3F3939393535352E2E2E282828212121
+      1B1B1B1414140C0C0C0606060303030303030303030202020101010000000000
+      000000000000000000000000000B0B0B6F6F6FA9A9A9A5A5A5A1A1A19C9C9C98
+      99999595959090908D8D8D8888888484847F807F7D7D7D787878747474717071
+      6C6C6C69696A6464646061615E5E5E5A5A5A5756575252534F4F504C4B4B4849
+      494545454342433F3F403C3C3C3A3A3A3838373535353233322F302F2E2E2E2C
+      2C2C292A2A2626262625252323242222222121211F1F1F1E1E1D1B1C1B1A1A1B
+      181818171717161516151415141514151414141313121212111111111111100F
+      0F0F100F0F0E0E0E0E0E0D0D0D0D0C0D0C0D0D0C0D0C0C0B0C0B0B0B0B0B0B0A
+      0B0A0A0A0B0A0A0B0A0A0A0A0A0A090A0A0A090A0A0909090909090909090909
+      0809090908090808080808080808080708080708080708070808070707070707
+      0707070706060706070706060606060606060606060606060605060506050505
+      0506060505050505050505050505050505050505050504050404040404050405
+      0404040404040404040304040304040303040403040403030303040303030303
+      0303030203020302030302030302020303020202020302020303020202020202
+      0102020102020201020102010101010102010101010102010101010101010101
+      0101000101000001010101010100010000010101010001000101000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303232323535353737
+      373939393B3B3B3635362F2F2F2F2F2F2F2F2F2F2F2F3030303A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383838373636363333333333333333333333333333333333
+      3337373737373737373737373737373737373737373637373637363637363637
+      3636373636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636353636353635353635353635353635
+      3436353535363536363635363635363636363535363636353535353535353536
+      3534353534353434353433353433353434353434343333343434302F2F2D2D2D
+      2E2D2D2D2D2D2E2E2E2F2F2F2F2F303131323F3F3F4747464A4A4A4E4E4E5151
+      515353535555555959595A5A5A52525242424337363635353536363637373738
+      38383939393A3A3A3C3B3C3D3D3D3F3E3E404040414141434343444545464747
+      4948484A494A4F4F4F5858585D5D5D6060606161626464636767666969696C6C
+      6C706F6F7171716D6C6D6B6B6B6F6E6F7171727575757878797B7B7C80808085
+      85858A89898D8D8D9191919494949898989B9B9BA0A0A0A3A2A3A7A7A7AAAAAA
+      AEAEADB0B0B06C6C6C1B1B1B1D1D1D1F1F1F2222222323232525252626262727
+      272828282929292929292929292929292A2A2A29292929292929292927272727
+      2727272727262626262626252525242424242424242424232323232323212121
+      2121212121212020201E1E1E1D1D1D1B1B1B1A1A1A17171716161615140C0F15
+      40001ACD001ACF0019CB0019CB0018CA0018C90017C70016C60016C60016C500
+      15C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9
+      000FB8000FB7000EB6000EB5000DB4000CB3000BB30008B60008B30811A52126
+      843C3E5F4C4C494E4E454848464343433F3F3F3939393434342D2D2D2525251F
+      1F1F191919111111090909040404030303020202020202010101000000000000
+      0000000000000000000000000000005C5C5CA9A9A9A5A5A5A1A1A19D9D9D9898
+      989595959090908D8D8C8888888484847F7F7F7C7C7C77777774747470706F6C
+      6C6C6869696463636161615C5D5D5959595556555253524F4F4F4B4B4B484848
+      4444444142413E3E3E3B3B3B3A3A3A3736373334333131312F2F2F2D2E2D2B2B
+      2B2828292726272424252323232122212020201E1D1E1D1D1C1A1A1B1A191918
+      1818171717151616151414141514141413121212111111111111111110101010
+      0E0E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B
+      0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A09090909090A09090909090909090908
+      0908080808080808080808080808080808080807070707070707070707070706
+      0607070607070707060606060606070606060606060606050606060606060605
+      0605060505060505050505050404050504050404040404050505050405040404
+      0405040304040404040404040403040403030403030303030403030303030303
+      0203030303030303020303020203020302030303020202020202020202020202
+      0102020101010102010201020201020101010201010101010101010101010001
+      0101010101010001000000010000000001000100000000000001000100000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      30303030303030303030303030303030303030303333333535353737373A3A3A
+      3C3C3C3333332F2F2F2F2F2F2F2F2F2F2F2F3231323A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838343434333333333333333333333333333333353434373737
+      3737373737373737373737373737373737373737363737363736363736363736
+      3637363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363635363635363535363535363535363435
+      3636363636353636353535363636363535363636353535353535353535353535
+      343535343534343434343434343434343533343132312D2E2D2E2D2E2D2D2D2D
+      2D2D2F2F2F2F30303232314141414646464C4C4B4F4F4F535353565656585959
+      5B5B5B5151513C3C3C3434343433333434343636363737373737373939393A3A
+      3A3C3B3C3C3B3C3E3D3E403F404040404343424545454646464747484949484B
+      4B4B4D4D4E5051505353535C5C5C6362636666666969696B6C6B6E6F6E707070
+      7373737676767474747171727474747878787B7B7B7F7F7F8282838787878D8D
+      8D9191919494949898989B9B9BA0A0A0A2A2A3A7A7A7AAAAAAAEAEAEB1B1B161
+      61611C1C1C1F1F1F2020202222222525252626262828282929292A2A2A2B2B2B
+      2B2B2B2B2B2B2A2A2A2A2A2A2B2B2B2A2A2A2A2A2A2929292929292727272727
+      2727272726262626262625252524242424242424242423232323232322222221
+      21212020201F1F1F1D1D1D1B1B1B1A1A1A1818181515151513080B165C001BD6
+      001ACF001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015
+      C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B900
+      0FB8000FB7000EB6000EB5000DB4000CB2000CB1000BB10009B10007B5010AAD
+      161C9335376C4D4D4D4F4F464848464343433F3F3F3838383232322B2B2B2323
+      231C1C1C1515150D0D0D05050503030302020202020201010100000000000000
+      00000000000000000000000000004F4F4FA9A9A9A5A5A5A1A1A19D9D9D989898
+      9595959090908D8D8D8888888484847F7F7F7C7C7C7777777473746E6E6F6B6B
+      6B6767676363636060605C5B5C5858585454555251514E4E4E4A4A4A47474744
+      44444241423E3F3E3B3B3B3939383636363233333031312F2F2F2D2D2D2A2A2A
+      2827272625252324242222222121211F1F1F1E1E1E1C1C1C1A1A1A1A19191717
+      171616161415141515141415151313131212121111111111111010100F100F0F
+      0E0E0D0D0D0D0D0D0D0D0D0D0D0D0B0C0B0B0C0C0B0B0B0B0B0B0B0B0B0B0A0A
+      0B0B0A0A0A0A0A0A0A0A0A0A0A0A0909090A09090A0909090909090908080808
+      0808080808080808080708070807070807070808070707070707070707070707
+      0706070706070706070706060606060706060606060606050605060506050606
+      0505060506050505050505050505040504050405050505040504040505040404
+      0404040404040404030404040404040403030303040404040303030303030303
+      0303030302030303020202020203020203030302030202020202020202010202
+      0102010102020201020201010102010201010201010101010101020001010001
+      0101010101010101010101000000000000010001000101010000000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303030303030303333333636363838383A3A3A3C3C3C31
+      31312F2F2F2F2F2F2F2F2F2F2F2F3534343A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383833333333333333333333333333333333333336353537373737373737
+      3737373737373737373737373737373737373736373736373636373636373636
+      3736363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363536363536353536353536363636363636
+      3636363636353636363635353536363636363535353535353534353534353535
+      3534343534343534333534343332322E2D2D2D2E2E2E2D2D2E2E2E2F2F2F3030
+      303434344243434848474B4B4C5050515555555958585A5B5A5656563D3D3D33
+      33333333333334343535343536353636363837373838383939393B3B3B3C3C3C
+      3E3E3E3F3F3F4040404342434444444645454747474949494C4C4C4E4E4E5050
+      4F5352525555555656565A5A5A636363696A6A6C6C6C6F6F7072737276757579
+      79797C7C7C7B7B7B7777787B7B7B7E7E7E8282838585868A8A8A8E8E8E949494
+      9797979B9B9BA0A0A0A3A3A3A7A7A7AAAAAAAEAEAEAEAEAD5655551D1D1D1F1F
+      1F2121212424242626262727272929292A2A2A2B2B2B2C2C2C2C2C2C2C2C2C2C
+      2C2C2B2B2B2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929292929272727272727
+      2727272626262626262525252424242424242424242323232323232121212020
+      201F1F1F1E1E1E1B1B1B191919171717151515151308091879001CDD001ACE00
+      1ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C3
+      0015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000F
+      B8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000AB00007B200
+      07B013189735386C4D4D4D4E4E464848474242423C3C3C3636362E2E2E272727
+      1F1F1F1919191010100808080303030202020202020101010000000000000000
+      00000000000000000000000000414141A5A5A5A5A5A5A1A1A19D9D9D98999895
+      95959090908C8C8C888888848383807F807B7B7B7777777273726F6F6E6A6A6A
+      6666666262625E5F5F5A5B5B5858585354534F504F4D4D4D4A494A4646464444
+      444140413D3D3D3B3A3B3838383635353232332F302F2E2E2E2C2C2C2A292A26
+      27272424252324232222222020201D1E1E1D1D1D1B1A1A1A1919181818171717
+      1516161514141515151314131212121111121111111010100F0F100E0F0E0F0E
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0B0C0B0B0B0C0B0B0B0B0B0B0B0A0B0A0B0A0A
+      0A0A0A0A0A0A0A0A0A0A0A090A09090909090909090909090909080909080808
+      0808080708080808080808080808080708070807070707070707070707060707
+      0706070706070606060606060606060606060606060606060605060505060506
+      0605050505050505050505040505040505040504050404050404040405040404
+      0404040404040303040304040403030303030304030303030303030303030203
+      0302030303020302030203030303030302030202020202020302020202020202
+      0202020101020202010201010101010101010101010101020101010101010101
+      0001010001010100010001010100000101000100000001000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303434343636363838383A3A3A3D3D3D2E2E2E2F2F
+      2F2F2F2F2F2F2F2F2F2F3636363A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373636
+      3333333333333333333333333333333333333737373737373737373737373737
+      3737373737373737373737373737373737373637373637363637363637363637
+      3636363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636353636353635353636363736363636363636
+      3636353636363636363636353536363536363536353535353435353436343435
+      34343534343434342E2E2E2E2E2D2E2D2E2D2E2D2E2E2E313130343434444444
+      4949494D4C4D5151505657565B5B5A5C5C5C4A4A4B3535353333333333333434
+      343535353534353636363838383738383939393A3A3A3C3C3C3D3D3D3E3D3E40
+      40404242424444444545454747474A49494A4A4A4D4D4D4F4F4F525251545353
+      5756575858595B5B5C5E5E5E6464646D6D6D7172727574757878777A7A7A7F7F
+      7F8181818181817D7E7E81818285858589898A8C8C8D9090919696969B9B9B9F
+      9F9FA3A3A3A7A7A7AAAAAAAEAEAEAEAEAE5353531F1F1F202020222222242424
+      2727272828282A2A2A2B2B2B2D2D2D2D2D2D2E2E2E2D2D2D2D2D2D2D2D2D2C2C
+      2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929292927272727272727
+      27272626262626262525252424242424242424242323232222222121211F1F1F
+      1E1E1E1C1C1C191919161616151513141311061994001CDA001BD0001ACE001A
+      CE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C300
+      15C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8
+      000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE0007
+      B10007AF121896383A684F4F4A4D4D464646464040403A3A3A3232322B2B2B22
+      22221C1C1C1313130A0A0A040404020202020202010101000000000000000000
+      0000000000000000000000003E3E3EA6A6A6A5A5A5A1A1A19D9D9D9898989494
+      949090908C8C8C8787878283837E7F7E7A7A7A7676767272716E6E6D696A6A66
+      66666262625E5E5E5A5A5A575757535253504F4F4C4C4C494949454545434242
+      3F3F3F3C3C3C3A3A3A3736373434343231312F302F2D2D2E2B2B2B2929292726
+      272323242323232222211F1F1F1E1E1E1C1B1C1A1B1A19191917171817171715
+      15151514151515151413131312121111111111111010100F0E0F0E0E0E0D0D0E
+      0D0E0D0D0D0D0D0D0C0C0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0A0A
+      0A0A0A0A0A0A0A0A0A0909090909090909090909090808090908090908080808
+      0809080808080808070807080708070707070807070707070607070707060607
+      0707060706070606070606060706060606060606060506050605060606060505
+      0505050505050505050505050505050405050404040504040404040404040404
+      0404040403040403040403030303040404040303030303030403030303030303
+      0303030302020203020303030302030302020302020202020202020202020201
+      0101010201020101010201010101010201010101010101010101010101010001
+      0001010001010001010101010100000000000100000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303030303131313434343636363939393B3B3B3B3B3B2E2E2E2F2F2F2F2F2F
+      2F2F2F2F2F2F3737373A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383835353533333333
+      3333333333333333333333343434373737373737373737373737373737373737
+      3737373737373737373737373737373737363737363736363736363736363736
+      3636363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363635363636373636373636373636363636363636
+      3635353636363535363536353535353535353535353535353535343534343534
+      343030302E2D2E2E2E2D2D2D2E2E2E2E3030303332334242414A49494D4D4D52
+      52525757575A5A5A5B5B5B3E3E3F313232333233333433333334353434353535
+      3636363838383837373838383939393C3C3C3C3C3C3F3E3E4040404141414243
+      43454544474647484948494A494C4C4C4E4E4E5151515352525655555858575B
+      5A5B5D5D5E6061606363636767677170717776777979797C7C7C818181848484
+      8888888585858585868888888C8C8D8F8F909494949898989D9D9DA3A3A3A6A6
+      A6AAAAAAAEAEAEAEAEAE5454541F1F1F2121212323232626262828282A2A2A2C
+      2C2C2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2C2C2C
+      2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929292929292727272727272727
+      272626262626262525252424242424242424242323232222222020201E1E1E1B
+      1B1B1A1A1A171717151412131417031AAE001CD8001CD1001BD0001ACE001ACE
+      001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015
+      C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB800
+      0FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAD0009AD
+      0006AF0007AC191E8D42425E5151474A4A474343433D3D3D3636362D2D2D2626
+      261E1E1E1515150D0D0D05050502020202020201010100000000000000000000
+      00000000000000000000003E3E3EA5A5A5A5A5A5A1A1A19C9C9C989899939393
+      8F8F8F8B8B8B8686868283827E7E7E7A7A7A7575757271716D6D6D6A69696564
+      646161615D5C5D5959595556555151514F4F4F4B4B4B4747474444444242423E
+      3F3E3B3B3B3939393636353332323031312F2F2F2C2C2C2A2B2A272828262526
+      2423242222232121211E1E1E1D1D1D1B1B1B1A1B1A1818181717171616161515
+      15141414141313121212121111111111101010100F100F0F0F0D0E0E0D0D0D0D
+      0D0D0D0D0D0B0B0C0B0C0C0B0B0B0B0B0B0B0B0B0B0A0B0B0A0B0A0A0A0B0A0A
+      0A0A0A0A0A0A090A09090A090909090909090909090909090909080908090808
+      0808080808080807080708070807070807080707070707070707070706060707
+      0607070606060606060606070606060606060605050605060605050606050505
+      0505050605050505050405050504050505050504040505050504050404040304
+      0404040404040404040403030403030303030303030303030303030203030303
+      0203020202020203020302020302020202020202020202020202020202020202
+      0202010201010102010101010101010201020101010101010001010101010101
+      0001000100010101010001000001000000000000000000000000010100000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      303131313434343737373939393B3B3B3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F
+      2F2F3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383434343333333333333333
+      3333333333333335353537373737373737373737373737373737373737373737
+      3737373737373737373737373737373736373736373636373636373636373636
+      3636363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363637363637373637363637363637363636363636363636
+      36363535353636363636353636353635353535353635343534343332322E2E2E
+      2E2E2E2D2E2E2E2F2F2F2E2F3132324242424848494D4D4E5252525656565B5B
+      5B5C5B5C3A3A3A31313132323233333434333434343434343436353537373738
+      38383837373A3A3A3B3B3A3C3C3C3D3D3E3F3F3F404040424242444444454545
+      4848484A494A4B4C4B4E4E4E5050505353535555555757575A5B5A5D5D5C5F5F
+      5F6262626565656969696B6B6B7576757C7B7C7E7F7F8283838686868A8A8A8E
+      8E8E8A8B8B8C8C8C8F8F8F9494959797979C9B9CA0A0A0A6A6A6AAAAAAAEAEAE
+      B2B2B25757571F1F1F2121212424242727272929292B2B2B2D2D2D2E2E2E2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C
+      2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929292929272727272727272727
+      2626262626262525252424242424242323232222222121211E1E1E1B1B1B1919
+      19181818161511121423011CC9001DD6001CD2001CD1001BD0001ACE001ACE00
+      1ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C2
+      0014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000F
+      B7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAC00
+      08AC0005AF050AA6292C7B4D4D4F4E4E47454545404040393939303030272727
+      2020201717170E0E0E0707070202020202020101010000000000000000000000
+      00000000000000000000414141A9A9A9A5A5A5A1A1A19C9C9C9898979393938E
+      8E8E8B8B8B8585858182827D7D7D7878787474747070706C6C6C676767646363
+      6060605B5B5B5858585455545051504D4D4D4A4A4A4747464444444041403E3E
+      3D3A3A3A3838383535353332333030302E2D2E2C2C2C29292927272725252423
+      23232221211F1F1F1E1E1E1C1C1C1B1B1B19191A171817161616151515151515
+      1515151313121111121112121111111010100E0E0F0F0F0E0E0D0D0D0D0D0D0D
+      0D0D0D0D0B0C0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0B0B0A0A0A0A0A0A
+      0A0A0A090A0A0A09090909090909090909080908090809090808080808080808
+      0808080807080808080808080707070707070707070707070607070607070606
+      0607060706070707060606060606060605050606050606060605050505050505
+      0506050505050505040505040504040505050404040404050404040404040404
+      0403040403040304030404040403030304030303030303030303030303030303
+      0302030303030302030202030202020203020203020202020202020102020202
+      0102020202020202010101010202010201010101010101010101010101010101
+      0001010100010001010100000100000000000000010000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030323232
+      3535353737373939393B3B3B3737372E2E2E2F2F2F2F2F2F2F2F2F2F2F303A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838333333333333333333333333333333
+      3333333636363837373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373637373637363637363637363637363636
+      3636363636363636363636363636363636363636363636363636363636363636
+      3636363636363737373737373737363736363736363636363636363636363636
+      363636363636363636353636353535353535353435342E2F2E2E2E2E2E2E2E2E
+      2E2E2F2F2F3030303D3D3D4847474D4D4C5252525756565C5B5B5B5B5B3A3A3A
+      3130313132323332333333333333333434343536363636363838383838383938
+      39393A393C3C3C3D3C3D3E3F3E4040404141414343444545454647474949494A
+      4B4A4E4D4E4E4F4F5151515353535757575859595B5C5C5F5F5F616162646464
+      6768676B6B6B6E6E6E7272727A7A7A8182818584848989898C8C8D9090909494
+      949090919393949697979B9B9C9F9E9FA3A3A3A8A8A8ADADADB2B2B263636320
+      20202222222525252828282A2A2A2C2C2C2E2E2E2F2F2F2F2F2F313131313131
+      3131313030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C
+      2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929292927272727272727272726
+      26262626262525252424242424242323232121211F1F1F1C1C1C191919171717
+      16150F0F163C001ED2001DD6001DD3001CD2001CD1001BD0001ACE001ACE001A
+      CD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C200
+      14C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7
+      000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009
+      AB0007AC0003AF1216963E40625150474848464242423A3A3A3232322A2A2A22
+      2222181818101010070707020202010101010101000000000000000000000000
+      0000000000000000004E4E4EA9A9A9A5A5A5A0A0A09B9B9B9797979393938D8D
+      8D8A898A8585858081817C7C7C7777777474746F6E6F6B6B6B6667666262625E
+      5E5E5B5B5B5757575253524F4F4F4C4C4D4949494545454342433F3E3F3C3B3B
+      3939393737373434343031302F2F2F2D2D2D2A2A2A2828282625262424242323
+      232121211E1E1E1D1D1D1B1A1B1B1A1B18181818171716171615151515151414
+      14141213131112111111111010100F0F0F0F0F0F0E0D0D0D0D0D0D0D0D0D0D0D
+      0C0C0C0C0C0B0B0B0C0B0B0B0B0B0B0B0B0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A
+      090A0A0A09090A09090909090909090809090908090909080908080908080808
+      0808080808070808080808070707070708070707070707070707070706070707
+      0707060606070606070606060606060605060505060606060505050606050505
+      0505050505050505050504050505050505050404050404040404040404040403
+      0403040304030304030404030303030303040303030303030303030303030302
+      0302030302030202020302030302020202020202020202020202020202020202
+      0202020101010102010101020101020101010101010101010101010101010101
+      0001010101010001010100000000000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303032323235353537
+      37373A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F3232323A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383838383838383838383838383838383838383838
+      3838383838383838383837373733323233333333333333333333333333333338
+      3737383737383737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737363737363736363736363736363736363636
+      3636363636363636363636363636363636363636363636363636363636363637
+      3636373737373737373737373736373636363636363636363636363636363535
+      3535363635353635353635343635353131322E2E2E2F2E2E2E2E2E2F2F2F3030
+      303635364847474C4C4C5151515757575B5C5C5C5B5B39393931313131313132
+      32323332323433333434343534353635353838383838383838383A3A3A3B3C3C
+      3C3C3C3E3E3D403F404140414344434545454646474848484A4A494D4D4D4F4F
+      4F5252515353535656575958585B5B5B5E5E5E6161606464636766666969696D
+      6E6D7070707474747777778080808787878A8B8A8F8F8F939393979797989898
+      9797979A9A9A9E9E9EA3A3A3A6A6A7ABABABB2B2B27070702020202323232626
+      262828282B2B2B2D2D2D2F2F2F30303031313132323232323232323232323232
+      32323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C
+      2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929292929292727272727272727272626
+      262626262525252424242323232222222020201D1D1D1A1A1A17171717150B0D
+      1858001EDB001ED6001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD
+      0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C20014
+      C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB700
+      0EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB
+      0008AA0004AE0208A72A2D794F4F4B4B4B464343433C3C3C3434342B2B2B2323
+      2319191911111108080802020201010101010100000000000000000000000000
+      00000000000000005D5D5DA9A9A9A4A4A49F9F9F9B9B9B9696969191918D8D8D
+      888888848484807F807B7B7B7676767272726E6E6E6A6A6A6565666161615D5D
+      5D5959595656565152524E4E4E4B4C4B4747474444444242423F3E3E3B3C3B39
+      3939363636333233302F2F2E2E2E2C2D2C2A2A2A272727242525232323222121
+      2020211E1E1E1C1C1C1B1A1B1A191A1817181717171516161515151414141312
+      131112111111121010111010100F0F0F0E0D0E0D0D0D0D0D0D0D0D0D0C0C0C0C
+      0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A
+      0A0909090A090909090909090909090808090908090808080808080808080808
+      0808080808080808070708070707080707070706070706070707060606070707
+      0707060607060706060606060606060606060605050505060505050505050505
+      0505050505050405050405040504050405040504040404040404040404040403
+      0404040304030404030304040303030404030304030303030303030303030302
+      0202030203020303020202020202020202020202020202020202010102010102
+      0102020101020102010101010101020101010101010101010101010101000101
+      0100000000000001000000000000000100010000000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303333333535353737373A3A
+      3A3C3C3C3333332F2F2F2F2F2F2F2F2F2F2F2F3232323A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383635353332323332323333333333333333333434343837373837
+      3738373738373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373736373736373636373636373636373636363636
+      3636363636363636363636363636363636363636363636363636363737373737
+      3737373737373737373737373636363636363636363636363636353636363635
+      36363536353636353434342F2F2E2F2E2F2E2F2E2E2E2E2F2F2F323232434343
+      4B4B4B504F505656565A5A5B5D5E5E3D3C3C3131313131313232323233333434
+      343434343435343636353736363737373839393939393A3A3A3C3C3C3D3D3D3F
+      3F3F4040414242414343444545454848484A4A4A4C4C4C4E4E4E505050535252
+      5454545758575B5A5A5D5D5E60606063636265666669696A6C6C6D6F706F7273
+      727878777A7A7A7E7E7E8686868D8D8D9191919595959A99999D9D9D9D9D9D9E
+      9E9EA1A1A1A6A5A6AAABABAFAEAF7F7F7F2222222323232626262929292C2C2C
+      2E2E2E3030303131313232323434343333333333333333333333333232323232
+      323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C
+      2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929292929272727272727272727262626
+      2626262525252323232222222020201E1E1E1B1B1B1818181715090B1A77001F
+      E4001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD00
+      19CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C20014C1
+      0014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000E
+      B6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB00
+      09AA0006AB0003AD191D8D4648554D4D454545443D3D3D3535352C2C2C232323
+      1B1B1B1212120909090202020101010101010000000000000000000000000000
+      00000000010101707070A8A8A8A3A4A49E9E9E9A99999696969091908C8C8B87
+      87878382837E7E7E7A7A7A7474747071706C6C6C6869686464636060605C5C5C
+      5858585554555050514D4D4D4A4A4A4646464344444040403D3D3C3A3A3A3737
+      373535353132323030302E2E2D2A2A2A2829282626252424242223232222221E
+      1E1E1D1D1D1B1B1B1A1A1A191918181717161616151515151515141414131313
+      1111121112111010100F0F0F0F0F0F0E0D0E0D0D0D0D0D0D0C0C0C0C0C0C0C0C
+      0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0A0A0A0A0A090A0A0A0A0A0A
+      0A09090909090909090909090909090808080809090808080808080808070808
+      0808080708070808070807070807070707070607060707060606060706070707
+      0706060706060606060605060605060605050506050506050605050606050505
+      0505050504050504050404050405050404050404040404040404040404040304
+      0404040404030303040403030303030303030303030303030303030203020203
+      0202030302020202020202030302020202020202020202020201020102020202
+      0202010201010201010101010101010101010101010101010101010001010100
+      0101000101010001000000000001010100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      30303030303030303030303030303030303333333636363838383A3A3A3C3C3C
+      3232322F2F2F2F2F2F2F2F2F2F2F2F3534353A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838353434333232333232333232333333333333353535383737383737383737
+      3837373837373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373637373637363637363637363637363636363636
+      3636363636363636363636363636363636363636363636373737373737373737
+      3737373737373736363636363636363636363636363636363536363636353536
+      353636353231312E2E2E2E2E2E2E2F2E2F2F2F3030303C3C3C4949494D4E4E54
+      54545A5A595E5E5E454546303131323231313231323232333334343434343434
+      3534353636363736363938393838393A3A3B3D3C3C3C3C3D3E3E3E4040404141
+      414443444545454747464848484A4A4B4D4D4D4F4F4F52515253545456565758
+      59585C5C5C6060606262626564656868676C6C6C6F6E6F737273757576797979
+      7C7C7C8080808686858E8F8F9493949898989C9C9CA1A1A0A4A4A4A1A1A1A5A6
+      A6AAA9AAADAEAE9393932929292323232727272929292C2C2C2F2F2F30303032
+      3232333333343434343434343434343434333333333333333333323232323232
+      3030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C
+      2C2B2B2B2B2B2B2A2A2A2A2A2A29292929292927272727272727272726262625
+      25252424242222222020201E1E1E1B1B1B191918171610071C940020E3001FD7
+      001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD0019
+      CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C20014C100
+      14C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6
+      000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009
+      AA0007AA0003AE0B109D3C3D614F4E454545443E3E3E3535352D2D2D2424241B
+      1B1B121212090909020202010101010101000000000000000000000000000000
+      0000000A0A0A888888A7A7A7A3A3A39E9E9E9999989494948F8F8F8B8B8B8686
+      868182817D7D7D7878787474746F6E6E6B6B6B6767676362625E5E5E5B5B5B57
+      56575252534F4F4F4C4C4D4949484444444242413F3F3F3B3C3C393939363636
+      3333332F2F302E2E2E2D2D2C2A2A2B2827272525252323232121222020211E1F
+      1E1C1C1C1B1B1B19191917181817171616151516151514141413121212121212
+      12121110101011100F0F0F0E0E0E0D0D0E0D0D0D0D0D0D0C0C0C0C0C0C0C0C0C
+      1211111312131313131313121312121212131212121212121112121212111111
+      120E0E0F0D0D0D0D0D0D0D0D0C0A0A0B09080908080809080808080808080807
+      0808080808070807070807070708070707070707070706060707060707060706
+      0606070606060606060606060605060606050605050506050506050505050505
+      0505050505050505050505050404050405050404040504040404030404030404
+      0304040403040403040403040403030303030303030303030303030303030203
+      0202020303020202020202020202020202020101020102020202020202020201
+      0201020101020101010101020101010201010101010101010101010100010001
+      0101000000000001010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303030303434343636363838383A3A3A3C3C3C3030302F
+      2F2F2F2F2F2F2F2F2F2F2F3534353A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383434
+      3433323233323233323233323233333336363638383738373738373738373738
+      3737383737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737363737363736363736363736363736363636363636
+      3636363636363636363636363636363637373737373737373737373737373737
+      3737363636363636363636363636363636363636353636363535353635353535
+      2E2F2F2F2F2F2E2E2F2E2E2E2F302F3333334545454C4C4C5151515757575C5D
+      5D53535230313030303132323132313232323334343434343434343436363635
+      3536383837383939393A393A3A3A3C3D3C3D3D3D3F3F3F414141424242444443
+      4646464948494A4A4A4D4D4D4E4F4E5151515353535656565858585B5B5C5E5E
+      5E6161616464646767676A6A6A6E6E6E7171707474757878787C7C7D807F7F84
+      84848787878D8D8D969696999A999E9E9EA3A3A3A7A7A7A9A9A9A8A8A8ADADAD
+      A3A3A43737372424242727272929292D2D2D2E2E2E3131313333333434343535
+      3535353535353535353535353534343433333333333333333332323232323230
+      30303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C
+      2B2B2B2B2B2B2A2A2A2A2A2A2929292929292727272727272727272626262525
+      252323232121211F1F1F1D1D1D1A1A18171716061DA40020E7001FD8001FD700
+      1ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD0019CB
+      0019CB0018CA0018C90017C70016C60016C60016C50015C30015C20014C10014
+      C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB600
+      0EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA
+      0008A90004AC0509A532346C4E4E454646443E3E3E3535352D2D2D2424241B1B
+      1B12121208080802020201010101010100000000000000000000000000000000
+      00001A1A1A9B9B9BA6A6A6A1A1A19C9C9C9898979393938D8D8D898988858585
+      80807F7B7B7B7777777272726E6E6E6969696566666161615D5D5D5858585656
+      565152514E4E4E4B4B4A4747474444444141403E3E3E3B3B3A38393935353532
+      3232302F302E2E2E2A2A2A2829282626262424242323222222221E1F1F1D1D1E
+      1B1B1B1A1A1A1818171818181616161516151515151313131212121212111010
+      101110100F0F0F0E0E0E0E0E0E0D0E0D0E0D0D0C0C0C0C0C0C0F0F0F191A1919
+      191A1A1A1A1A1A1A1A1A1A1B1B1A1A1A1A1B1A1A1A191A1A1A1A1A19191A1A19
+      191A191919191919191918181919191819191615151414141313131111110D0C
+      0D0C0B0C08070707070807080707070707070707060707060606070607060706
+      0606060607060606060506060506060505050505060605050505050505050505
+      0505050505050404040404040405040405040404040404040304040404030403
+      0303030403030304030303030303040303030303030303020303020202030303
+      0303020202020202020202020202020202020201020202010102020201010201
+      0101010101020102020201010201010101010101010101010101010101010001
+      0000010001010100000000000000010001000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303434343636363838383A3A3A3D3D3D2E2E2E2F2F2F2F2F
+      2F2F2F2F2F2F2F3837373A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838323232323232
+      3332323332323332323332323737373838373838373837373837373837373837
+      3738373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373736373736373636373636373636373636363636363636
+      3636363636363636363636363737373837373737373737373737373737373636
+      363636363636363636363636363636363636363636363535363232332F2F2F2F
+      2E2E2F2F2E2F30303030303E3E3F4949494F504F5555555B5B5B5E5E5D373737
+      3130303231323232323332323333333434343434343536353536363736373939
+      383939393B3A3B3B3B3C3C3C3C3E3F3E4040404141414344444545454747464A
+      494A4B4A4B4D4D4E504F505252525454545757575A5A5A5D5D5D606060636363
+      6565666969696C6C6C6F6F6F7372737677767A7B7A7E7E7F8182818686868A8A
+      8A8D8E8D9696969D9C9DA1A1A0A5A5A5AAAAAAAFAEAEACACACADADAD4D4D4D24
+      24242626262929292D2D2D303030323232343434353535363636363636363636
+      3636363636363535353535353434343333333333333333333232323232323030
+      303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B
+      2B2B2B2B2B2A2A2A2A2A2A292929292929272727272727272727252525242424
+      2222222020201E1E1E1B1B1B191814131733041EB10020E5001FD8001FD7001E
+      D6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD0019CB00
+      19CB0018CA0018C90017C70016C60016C60016C50015C30015C20014C10014C0
+      0013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000E
+      B5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA00
+      08A90005AB0005AA292C764D4C474646433E3E3E3535352D2D2D2424241B1B1B
+      1111110808080202020101010101010000000000000000000000000000000000
+      00343434A6A6A6A5A5A5A0A0A09B9B9B9696969191918D8D8D8888888282827F
+      7F7E7A7A7A7574747171716C6C6C6768686363635F5F5F5C5C5B585858545454
+      50504F4D4D4D4A49494545454242423F3F3F3B3C3B3939393736363433333131
+      312E2E2E2C2C2C2B2A2A2727272526252323232222221F20201E1F1E1C1C1C1B
+      1B1B191919181817161617161516161515141415131313121211121111101010
+      0F0F0F0F0F0F0E0E0E0D0E0D0E0E0D0C0D0C0C0C0C141414191919191A1A1A1A
+      1A1A1A1A1B1B1B1B1B1B1B1B1C1B1B1B1B1B1B1B1B1B1A1B1B1A1A1B1A1B1A1A
+      1A1A1A1A1A1A1A1A19191A1A1A1919191A1A1919191919191919191919191918
+      1918191616161415141010100C0C0C0909090707060707070606070607060607
+      0607060706060606050606060605050605050505050505050505050505050505
+      0505050505040405040405050505040504040405040404040404040404040303
+      0303040303040403030303030303030303030303020302020303030203030302
+      0202020203020202030202020202020202020201020202020202010102010101
+      0102010201010101010101010201010101010101010101010100010001010101
+      0001010000010100000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303030303434343636363939393B3B3B3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F
+      2F2F2F3837373A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383837373732323232323232323233
+      3232333232333232383838383838383837383837383737383737383737383737
+      3837373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373637373637363637363637363637363636363636363636
+      3636363636373636383737383737383737373737373737373737363636363636
+      3636363636363636363636363636363635363536362F30302F2F2F2F2F2F2E2E
+      2F30302F3332334646464C4B4C5252525859585D5D5D48484731313131313032
+      3232323131333333333333343434343434353535363636383837393939393A3A
+      3B3B3A3D3C3D3D3D3D3F403F4141414342434444444646464949494A4A4A4C4D
+      4D4F4F4E5151515353535656565959595C5C5C5D5D5E6161616565656868686A
+      6A6B6F6F6F7272727676767979797C7D7D8081818586858989898D8D8D919191
+      9696969F9F9FA4A4A3A8A8A8ACADACB1B1B1B4B4B46D6D6D2323232727272929
+      292D2D2D30303033333335353536363637373737373737373737373737373736
+      3636363636353535353535343434333333333333333333323232323232303030
+      3030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B
+      2B2B2B2B2A2A2A2A2A2A29292929292928282827272726262625252523232321
+      21211E1E1E1C1C1C1A191A19170F14161E071C9C0020E4001FD9001FD7001ED6
+      001ED5001DD4001DD3001CD2001CD1001BD0001ACF001AD0001AD00019D30019
+      CE0018C90018C90017C70016C60016C60016C50015C30015C20014C10014C000
+      13BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5
+      000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0008
+      A90006AA0004AC22257E4B4B464646433D3D3E3535352C2C2C2323231A1A1A10
+      1010070707020202020202010101000000000000000000000000000000000000
+      595959A9A9A9A4A4A39E9E9E9999999595959190908B8B8B8686868282827D7D
+      7D7978787474746F6F6F6A6A6A6767676262625F5F5F5959595655565352534E
+      4E4E4A4B4B4747474444444141413D3E3D3B3A3A393838353635323232303030
+      2E2E2E2B2B2A2929282626272424242323232120211E1F1F1D1E1E1B1B1B1A1B
+      1A181818171717161616151615141414131313121212121212111111100F0F0F
+      0F0F0E0E0E0E0E0E0E0D0D0C0C0C0E0D0D1818181A1A1A1A1A1A1A1B1B1B1B1B
+      1C1C1C1C1C1C1B1C1C1C1B1C1C1B1B1B1B1B1B1B1B1A1A1B1B1A1A1A1A1A1A1A
+      1A1A1A1A1A1A1A1A1A191A1A191A191919191A19191919191919191919191818
+      19181919191818191818181918181818181414141011110E0D0D070606070706
+      0606060606060606050606060606050605050505060505050505060505050505
+      0505050505050505050504050405040504040404040404030403040404040304
+      0403030403040403030403040303030303030203030302030303030303020303
+      0202020202020202020202030202020202020202020202020102020202010202
+      0102010101010101010201010101010101010101010001000101010100010101
+      0100000001010000000000000000000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303131
+      313434343737373939393B3B3B3939392E2E2E2F2F2F2F2F2F2F2F2F2F2F2F39
+      39393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383737363232323232323232323232323332
+      3234333338383838383838383838383738383738373738373738373738373738
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737363737363736363736363736363736363636363636363636
+      3637373738383738373738373738373737373737363636363636363636363636
+      36363636363636363636363636363535352F2F2F2F2F2E2F2E2E2F3030313031
+      3B3B3C4848494E4E4E5655555B5A5A5C5C5B3434343131313131303131313231
+      323233333535353434343435343637363737373939393939393B3B3B3B3C3C3D
+      3C3C3F3E3F4040414142414544454545454747474A4A4A4B4B4B4D4E4D4F5050
+      5353535554555757585B5A5A5D5D5D6060606263636767676A6A6A6D6D6D7071
+      707373737878787C7C7C8080808384848787878B8C8B8F8F8F9493939898989F
+      9F9FA6A6A6ABABABAFAFAFB4B4B49494942727272626262929292D2D2D303030
+      3333333535353737373838383838383838383838383838383838383636363636
+      3636363635353535353534343433333333333333333332323232323230303030
+      30303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B
+      2B2B2B2A2A2A2A2A2A2929292929292727272727272525252424242222222020
+      201D1D1D1B1B1B191A1A181710161513081C950020E5001FD9001FD7001ED600
+      1ED5001DD5001DD6001CD7001CDB001CDB001ACF0119C20417A10119BD0019CF
+      0018C90018C90017C70016C60016C60016C50015C30015C20014C10014C00013
+      BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB500
+      0DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A9
+      0006AA0003AC21257D4B4A454544413C3C3D3434342B2B2B2222221919190F0F
+      0F06060602020202020201010100000000000000000000000000000005050582
+      8282A8A7A7A2A1A29D9D9D9999999393938F8E8E8989898484847F807F7B7B7B
+      7677777272726D6D6D6A696A6363646060605D5C5C58585855555550504F4D4D
+      4D4A4A4A4545464343433F3F3F3C3C3C3939393636363333333131312E2E2E2C
+      2C2D2A2A2B2728282525262323232222222020201F1F1E1D1D1C1B1C1B191919
+      1818181516151615151615161313131212121212121111111110100F0F0F0E0E
+      0E0E0E0E0E0E0D0D0E0E1111111919191A1A1A1B1A1A1B1C1C1C1C1C1C1C1C1D
+      1D1D1C1D1D1D1D1C1C1C1C1C1C1C1C1C1C1C1C1C1C1B1C1C1C1B1C1B1B1B1B1B
+      1B1B1B1B1B1B1B1B1A1A1B1B1B1A1B1A1B1A1A1A1A1A1A1A1A1A1A19191A1918
+      19181819191919191A191919191A1A1A1B1B1B2020200A0B0B07060607070606
+      0606060606060606050605050605050505060605050505050505050505050505
+      0505050405050504040404040404050404040404040404040404030404030304
+      0404030303040404030403030303030303030303030202020303020302020203
+      0202020303020202020202020202020202020202010202020202020101010101
+      0202010101010101010101010101010101010100000100010001010100010000
+      0101000100010100010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030313131353535
+      3737373939393B3B3B3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3B3A3A3B3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838363535323232323232323232323232323232343434
+      3838383838383838383838383838373838373837373837373837373837373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373736373736373636373636373636373636363636363636373737
+      3838383838373837373837373837373636363636363636363636363636363636
+      363636363636363636363333332F2F2F2F2E2F2F2F2F2F302F3031304443434B
+      4A4B5151515757575D5D5D4A4A4A313131313131323232323231333333333434
+      3535343534353635363736363839393939393939393B3B3B3D3D3C3E3E3E3F3F
+      404141414242434445454647464949494A4A4A4D4D4D4F4F4F52525254545457
+      57575A595A5C5C5C605F5F6262626565656768686C6C6C6F6F6F737373777676
+      7A7A7A7E7E7E8282828685868A8B8A8F8E8F9494939897979B9B9BA0A0A0A8A8
+      A8AEAEADB2B2B2AEAEAE3A3A3A2626262929292D2D2D30303034343435353537
+      37373838383A3A3A393939393939393939383838383838383838363636363636
+      3636363535353535353434343333333333333333333232323232323030303030
+      303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B
+      2B2B2A2A2A2A2A2A2929292929292727272626262525252424242222221F1F1F
+      1D1D1D1B1B1B191919181712161515081C950020E4001FDD001FE0001FE3001E
+      DA011DCE031BB60619910916690C13440F11221010090A1352001AD10019CC00
+      18C90018C90017C70016C60016C60016C50015C30015C20014C10014C00013BF
+      0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000D
+      B4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A900
+      06AA0003AC20247C4A49444443413C3C3C3333332A2A2A2121211717170D0D0D
+      0404040202020202020101010000000000000000000000000000001B1B1BA0A0
+      A0A6A5A5A1A1A19B9B9B9696969191918D8D8D8888888383837E7E7E7A7A7A74
+      74757070706B6B6B6767666363635E5F5E5A5A5A5656565353534F4F4F4C4C4C
+      4747474445454242423E3E3E3B3B3A3839393536363232333030302E2E2E2B2B
+      2B2928292626262424242323232121211F1E1E1D1C1D1C1B1C1A1A1A18181817
+      17171616161616161515151313131212121212121110110F100F0F0F0F0F0E0E
+      0E0E0E0D0E0D1818171A19191A1B1A1B1B1B1D1C1D1A1A1A1414151515161515
+      161515151515151515151514151818181818181718181718171B1A1A1B1B1B1B
+      1B1B1A1B1B1B1B1B1A1B1A1B1B1B1A1A1A1A1A1A1A1A1A1A191A1A1A1A1A1A19
+      1919191A1A191A1A1A1B1B1B2020202626261211110607070607060606060606
+      0606060606060606050606060605060505060506050505050505050505050505
+      0505040505050404050404040404040404040404040404040404040404040304
+      0404030303030303030303030303030303030203030303030303030203030302
+      0202020202020202020302010202020202020202010101010102020202020202
+      0101010101010101010102010101010101010100000100000100000001010000
+      0001010000010000010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303031313135353537373739
+      39393B3B3B3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3B3A3A3B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383835353532323232323232323232323232323235353538383838
+      3838383838383838383838383837383837383737383737383737383737383737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373637373637363637363637363637363636363638383838383838
+      3838383837383737373737363636363636363636363636363636363636363636
+      3636363636363130312F2F2F2F2F2F2F2F2F3030303435354747474D4D4D5453
+      545A5A5A5E5E5E37373731313231313132323232323233333334343434353434
+      353536373637363638383839393A3A3A3B3C3C3C3D3D3D3F3F3E404040424141
+      4443444645454748484A49494B4B4B4E4E4E4F4F505253525455545857585A5A
+      5A5D5D5E6060606464646767676A6A6A6E6E6E7272727474747878797D7D7D80
+      80808585858989898D8C8D9090919695969999999E9F9EA2A2A2A9A9A9B0B0B0
+      B5B4B56464642626262929292C2C2C3030303232323636363838383939393939
+      393A3A3A3A3A3A3A3A3A3A3A3A38383838383838383838383836363636363636
+      3636353535353535343434333333333333333333323232323232303030303030
+      3030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B
+      2B2A2A2A2A2A2A2929292828282727272626262525252323232121211F1F1F1C
+      1C1C1B1B1B191919181712161616071D9D021FCE061CA1091A7D0D1755101430
+      12131913120E13110512100910100C10100D100F0905168E001AD60019CA0018
+      CA0018C90017C70016C60016C60016C50015C30015C20014C10014C00013BF00
+      13BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4
+      000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A90006
+      AA0003AC20247C49484242424039393A3131312828281F1F1F1515150B0B0B04
+      04040202020202020101010000000000000000000000000000004A4A4AA9A9A9
+      A4A4A49E9E9E99999A959595908F908B8B8B8585858181817C7C7C7777777272
+      726F6E6E6A6A6A6565656161615C5D5D5858595555565151514D4D4D49494946
+      46464343433F3F403B3C3C3939393637363433343030302E2E2E2C2C2C292A2A
+      282727252425232323222222201F201E1D1E1C1C1B1B1A1A1818181818181616
+      1616161514141413141312121212121211111110100F100F0F0F0E0E0E0E0E10
+      10101A19191A1A1A1C1B1C1C1C1C1D1D1C0F0F100D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0C0D0D0D0D0C0C0C0C0C0C0C0C0C0B0C0B0B0B0B0B0C0B0B0B0B0B0F0F
+      0F0E0F0F1212131313131718171818181A1A1A1A1A1A1A1A1A19191A191A191A
+      1B1B1B1B1C1F1F1F2424242929291B1B1B070707060606060606060606060606
+      0606060606050606050505060605060605050505050505050505050504050505
+      0505050505040404040404040404040404040404040404040404040404040304
+      0403030303030403030303030303030303020303030303020203030302030202
+      0302020202020202020202020102020201020102010101020202010202020102
+      0102010102010101010101010101010101010101010001010100010000000001
+      0000000000010000000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303232323535353737373939393B3B
+      3B3838382E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383434343232323232323232323232323232323635353838383838383838
+      3838383838383838383838383738383738373738373738373738373738373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737363737363736363736363736363736363838383838383838383838
+      3838383737373736363636363636363636363636363636363636363636363636
+      36362F2F2F2F2F2F2F2F2F2F2F2F3131313D3C3C4A4A4A4F4F4E5555555B5B5B
+      5253533132313132323231313232323232323333333535353434343636353736
+      373738373A39393A3A393B3B3B3D3D3D3D3D3D40404041414143434345444447
+      46464849494B4A4B4D4D4D504F505252525453545757575A5A5A5C5C5C5F5F5F
+      6363626565656969696C6C6C6F6F6F7373737677777B7C7B7F7E7E8382828788
+      878B8B8B8F8F8F9493949999999C9C9CA1A2A1A6A7A6ABABABB3B3B391919127
+      27272929292C2C2C3030303333333636363737373A3A3A3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3A3A3A3A3A3A3838383838383838383838383636363636363636
+      3635353535353534343433333333333333333332323232323230303030303030
+      30302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B
+      2A2A2A2A2A2A2929292828282626262626262424242323232121211F1F1F1D1D
+      1D1C1C1C1A1A1A18181416171D15172316151417150A16140B15140F15141215
+      14131313131212121111111111111110090E112A0119C30019CF0019CA0018CA
+      0018C90017C70016C60016C60016C50015C30015C20014C10014C00013BF0013
+      BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB400
+      0CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A90006AA
+      0004AB26297348474040403F3838382F2F2F2626261D1D1D1313130909090303
+      030202020202020101010000000000000000000000000101017F7F7FA7A7A7A2
+      A2A29D9D9D9798979393938E8D8D8888888484837F7F7F7A7A7A757575707070
+      6C6C6C6767676363635F5F5F5A5B5A5757575353534F4F4F4B4C4C4848484544
+      444141413E3E3E3B3B3B3839393535363333322F2F2F2E2E2E2B2B2B29292926
+      27272424242222222121211F1F1F1D1D1D1C1B1B1A1919181818171717161616
+      161616131414121312121212111111111111100F100F0E0E0E0E0E1616161919
+      1A1B1A1B1B1C1C1D1E1D1A191A0E0D0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0C0C
+      0D0D0D0C0C0C0C0C0C0C0C0C0C0C0B0B0C0C0B0B0B0B0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0B0B0B0A0A0A0A0A0A0A0A0A0D0D0D1010111414131716171A1B1B1E1E
+      1E2223232827272D2D2D23232307070606070707070707060706060606060706
+      0606050606050606050606050606050605050505050505050505050505050504
+      0405050504050404040404040504050404040303040404040303040404030403
+      0403030404030303030303030303030303020303030203020302020203020203
+      0303020202020202020202020202020102010202010102010202020201010102
+      0101010102010101010101000101010101010101000101010001000000010100
+      0101000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      30303030303030303030303030303232323535353737373939393B3B3B363536
+      2F2F2F2F2F2F2F2F2F2F2F2F3232323B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383838383838383838383838383838383834
+      3434323232323232323232323232323232373737383838383838383838383838
+      3838383838383838383838373838373837373837373837373837373837373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373736373736373636373636373737383838383838383838383838383838
+      3737373636363636363636363636363636363636363636363636363434342F2F
+      2F2F2F2F2F2F2F3030303131314141424B4B4B5050505757575D5D5C41424231
+      3131323131323232323332333334343434353535343535363635373737393938
+      393A3A3A3A3A3B3C3B3D3D3D3E3F3E4040404242424444444546464746474A49
+      494B4B4B4E4E4E5050505353535555555858585B5B5A5D5E5E61616164646467
+      68686B6A6B6E6E6E7272727575757879797D7D7D8181818585858A8A8A8E8E8E
+      9292929596969B9B9AA0A09FA5A5A5A9A8A9ADADAEB0B0B04242422929292C2C
+      2C2F2F2F3333333636363838383A3A3A3B3B3B3C3C3C3C3C3C3C3C3C3B3B3B3B
+      3B3B3B3B3B3A3A3A3A3A3A383838383838383838383838363636363636363636
+      3535353535353434343333333333333333333232323232323030303030303030
+      302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A
+      2A2A2A2A2A2929292828282626262626262424242323232121211F1F1F1D1D1D
+      1C1C1C1B1B1B1A19171919151817161817171818181717171616161616161515
+      15151515131313121212111111110F04081570001AD80019CB0019CB0018CA00
+      18C90017C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE
+      0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000C
+      B2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0008A90006AA00
+      05AA2D2F6947473D3D3D3D3636362C2C2C2323231A1A1A101010060606030303
+      020202020202010101000000000000000000000000212121A4A4A4A5A5A5A0A0
+      A09B9B9B9696969090918B8B8B8686868282827D7D7D7877777373736E6F6F6A
+      6A6A6565656161615D5C5C5858595655565453534D4D4D4A4A4A464646434343
+      403F3F3C3C3D3939393636373333333130302E2E2E2C2C2C2A2A2A2727282424
+      242323232222221F1F1F1E1E1D1B1C1C1A1A1A19181917181716161615161615
+      15141313141212121212121111111010100E0F0F0F0F101B1B1B1A1A1A1B1C1C
+      1C1D1D1D1D1E1313130E0D0E0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0B0B0C0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0A0B0B0A0A0B0A0A0A0A0A0A0B0A090A0A0A0A0A0F0F10212020252525
+      2929292F2F2F2D2D2D0607070707060706070607060606070706060606060606
+      0606050606050505060505060505050505050505050505050505050505040505
+      0504050404040404040504040404040303040404040404030304030303030304
+      0304040304040303030303030303020203020303030303030202030203020302
+      0202020202020202020201010202010102020101010102010202020101020101
+      0101010101010101010101000101010100000100010000000001000101000100
+      0100000000000000000001000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303232323535353737373A3A3A3C3C3C3635362F2F2F2F
+      2F2F2F2F2F2F2F2F3232323B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383838383838383838383838383838383333333232
+      3232323232323232323232323237373738383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373637373637363637373738383838383838383838383838383837363636
+      36363636363636363636363636363636363636363636363333332F2F2F2F2F2F
+      2F2F2F3030303232324747474C4C4B5353535857585D5D5D3737373131323231
+      323232333232323333333434343535353535353636373737373938393A3A393C
+      3B3B3C3C3C3D3D3D3F3F3F4141424242424545454546464949494A4A4A4C4C4D
+      4F4F4F5251515455545757575A595A5C5C5C60605F6262626566666969696D6C
+      6D6F6F707373737777777C7C7C7F80808382828787888C8C8C91919194949499
+      99999D9D9DA2A2A2A6A6A6ABABACB0B0B07272722727272B2B2B2F2F2F323232
+      3535353838383B3B3B3C3C3C3D3D3D3C3C3C3D3D3D3D3D3D3C3C3C3B3B3B3B3B
+      3B3B3B3B3A3A3A3A3A3A38383838383838383838383836363636363636363635
+      3535353535343434333333333333333333323232323232303030303030303030
+      2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A
+      2A2A2A2A2929292828282626262525252424242323232222222020201E1E1E1D
+      1D1D1C1C1C1B1B1B1A1A1A1919191919191A1A1A191919181818171717171717
+      15151513131312121212100C0F101D0219B7001AD30019CB0019CB0018CA0018
+      C90017C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE00
+      11BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2
+      000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0008A90005AB0409
+      A435365B44443B3B3B3B3333332A2A2A2121211717170E0E0E04040403030303
+      03030202020101010000000000000000000000005B5B5BA9A9A9A4A4A49E9E9E
+      9999989393938D8E8D8989898484847F7F7F7A7A7A7575757171716D6C6C6868
+      686262635F5F5E5D5D5D5E5E5E5F5F5F5757574C4C4C4848484544454241423E
+      3E3E3A3A3A3838383435353131312F2F2F2D2D2D2B2B2B282828252625242424
+      2322232020201F1F1F1C1C1C1B1B1A1918181818191616171616161515151314
+      141312121313131211111010100E0E0F1414141B1B1B1C1C1C1C1C1C1D1C1D1D
+      1D1D0E0D0E0E0D0E0E0D0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0D0C0C0C0D
+      0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0C0B0B0B0C0C0B0B0B0B0B0B0B0A0A0B0B
+      0B0A0A0B0B0A0A0B0A0B0A0A0A0A0A0A0B0B0B0C0C0D2020202726262C2C2C30
+      30303333330A0A0A070707060706070707060606060606070707060606060606
+      0606060606050505050606060506060505050505050505050405040505050505
+      0404050404040404040404040404040404040403040404030304040303040304
+      0303040303030303030303030303020303030303020302030202020303030202
+      0202020202020202010202020102020201010202020202010102020101020101
+      0101010101010101010101000101010000010101000101010101000001010000
+      0000000000000101000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303232323535353737373A3A3A3C3C3C3635362F2F2F2F2F2F2F2F
+      2F2F2F2F3232323B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838323232323232323232
+      3232323232323232323838383838383838383838383838383838383838383838
+      3838383838383838383738383738373738373738373738373738373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737363737363837373838383838383838383838383838383636363636363636
+      363636363636363636363636363636363636363232322F2F2F2F2F2F2F2F2F30
+      30303636364848484D4D4D5454545A5A5A575757323132313132313231323332
+      323332343334353635353635363636373736383838393A39393A393C3C3C3E3E
+      3D3E3D3D4040414141414343434545454747464A4A494B4C4B4E4E4E51515153
+      53535556555757575B5B5B5E5E5E6161616364636868686B6B6B6E6E6E727272
+      7575767979797D7D7D8181818585858A8A8A8E8E8E9393939797979C9C9CA0A0
+      A0A5A5A4A9AAAAAFAFAEA0A0A13232322B2B2B2E2E2E3232323535353939393A
+      3A3A3C3C3C3D3D3D3E3E3E3E3E3E3E3E3E3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B
+      3B3B3B3A3A3A3A3A3A3838383838383838383838383636363636363636363535
+      353535353434343333333333333232323232323232323030303030303030302F
+      2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A
+      2A2A2A2929292828282727272626262424242323232222222121211F1F1F1F1F
+      1F1E1E1E1D1D1D1C1C1C1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A19191916161615
+      1515141414121212121005091463001BD8001ACD0019CB0019CB0018CA0018C9
+      0017C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE0011
+      BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB200
+      0CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0008A90004AD090E9A
+      3D3D4C41403C3838393030302727271E1E1E1515150B0B0B0303030303030303
+      030202020101010000000000000000000C0C0C949494A7A7A6A1A1A19B9B9B96
+      96969192928C8C8C8787878282827D7D7D7878787373736F6F6F6A6A6A686868
+      6868686666666363636060605D5D5D5757574B4B4B4646464242433F3F403C3C
+      3C3939393736373434343131312E2E2E2B2B2B29292927272724252522222322
+      21211F1F1F1D1D1D1C1C1C1A1A19181819171717161616161616141414121212
+      1313121112111010101010101919191B1B1C1C1C1C1D1D1D1E1E1E1617170E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0C0C0C0C
+      0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0B0C0C0B0B0B0C0C0B0B0B0B0B0B0B
+      0B0B0B0A0B0B0B0A0A0A0A0A0A0A0A0C0C0C1D1D1E2726272A2B2A2F2F2F3433
+      3313131307070707070607070607060607070606060606060606060606060605
+      0605060606050506060505050506050505050505050505050505050505040505
+      0505050404040404050404050304040404040403030404040303030304030303
+      0404030303030303030303030303030303030303030302030203030202020202
+      0202020202020202020201010202020101010202010102010202010101010102
+      0101010101010101010001000101010101010101010001000001010000000001
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303232323535353737373A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F
+      3232323B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383832323232323232323232323232
+      3232323232383838383838383838383838383838383838383838383838383838
+      3838383838383838373838373837373837373837373837373837373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3736383838393838383838383838383838383838363636363636363636363636
+      3636363636363636363636363636363130312F2F2F2F2F2F2F2F2F3030303A3A
+      3B4949494E4E4E5555555A5A5A4F4F4F31323232323231313133333333323234
+      34343635363635363636363737373939393A3A3A3A3B3B3C3B3B3D3D3E3E3E3E
+      4040414242424444444646464848484A4A4A4D4D4D4F4F4E5251525453545757
+      575A5A5A5D5C5C5F5F5F6262626666656969696C6C6D6F6F6F7374747777777C
+      7C7C7F7F7F8383838888888C8C8D9091919595949A999A9E9E9EA2A2A2A7A7A7
+      ACACACB0B1B15E5E5E2B2B2B2E2E2E3131313535353838383A3A3A3C3C3C3E3E
+      3E3F3F3F3F3F3F3F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B
+      3B3B3A3A3A3A3A3A383838383838383838383838363636363636363636353535
+      3535353434343333333333333333333232323232323030303030303030302F2F
+      2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A
+      2A2A292929282828262626262626252525232323232323222222202020202020
+      1F1F1F1F1F1F1E1E1E1D1D1D1D1D1D1D1D1D1C1C1C1B1B1B1919191717171515
+      1513131312120E0F111B0219B6001AD4001ACD0019CB0019CB0018CA0018C900
+      17C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD
+      0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000C
+      B2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A90003AE14198A42
+      423F3D3D3B3535362D2D2D2424241B1B1B121212070707030303030303030303
+      020202010101000000000000000000424242A9A9A9A4A4A49E9E9E9999999494
+      948F8E8E8989898484858080807A7A7A7475757373737272726F6F6F6C6C6C67
+      67676565656262626060605C5C5C5757574949494444444141413D3D3D3A3A3B
+      3838383535343232312F2F2F2D2D2D2A2A2A2828282425252323232323231F20
+      1F1E1E1E1C1C1C1B1A1B18191818181716161616161615151513131313131211
+      11111010111313131C1C1C1D1D1D1D1E1D1D1D1D1E1E1E1111110E0D0E0E0D0E
+      0E0D0E0E0D0D0E0E0E1211111112111111111111111111111011101010101111
+      100F0F100F0F0F0E0E0E0D0E0E0C0D0D0C0C0C0B0B0C0B0B0B0B0B0B0B0B0B0B
+      0B0B0A0B0B0A0B0A0A0A0B0B0B0B1B1B1A2525252929282F2F2F3433341E1F1F
+      0707070707070707070707070707060706070707060606060606060605060605
+      0606050606060505060606050605050605050505040404050505050405040504
+      0504040504040404040404040404040404040304030304040304030304030303
+      0303030303030303030303030203030302030303020303020202020202020202
+      0202020201020202020202020201010101010102020202020201020202010101
+      0102010101010101010101010100000000000001010001000101010000010001
+      0000010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303232
+      323636363838383A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31
+      31313636363B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3938383938383838383838383838383232323232323232323232323232323232
+      3239383838383838383838383838383838383838383838383838383838383838
+      3838383838383837383837383737383737383737383737383737373737373737
+      3737373737373737373737373737373737373737373737373737373737373838
+      3839383839383838383838383838383836363636363636363636363636363636
+      36363636363636363636363130312F2F2F2F2F2F2F2F2F3030303D3C3D4A4A4A
+      4F4F4F5555555A5A5A4747473232323232323332333333323333343435343536
+      353536353737373737373939393A3A3A3C3C3C3D3D3D3E3E3E403F3F42414142
+      42424545454747474949494B4B4B4E4E4E504F505353525556555858575B5B5A
+      5D5D5D6160616464646767676B6B6B6E6E6E727272767676797A797D7D7D8182
+      818585858A8A8A8E8E8E9393939797979C9C9CA1A1A1A5A5A5AAAAAAAFAFAF96
+      96962D2D2D2E2E2E3131313434343737373B3B3B3D3D3D3E3E3E3F3F3F3F3F3F
+      4040404040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B
+      3B3A3A3A39393938383838383839393938383838383837373737373736363636
+      36363535353434343434343333333232323232323030303030303030302F2F2F
+      2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A
+      2A29292928282827272726262625252525252524242423232321212121212121
+      21212020202020201F1F1F1F1F1F1E1E1E1C1C1C1A1A1A181818161616141414
+      131313131107081670001BD8001ACE001ACD0019CB0019CB0018CA0018C90017
+      C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD00
+      11BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2
+      000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007AA0004AD2326714242
+      393A3A393232322929292020201717170D0D0D05050503030303030303030302
+      0202010101000000000000030303888888A6A6A6A1A1A19B9B9C979797929192
+      8C8C8C878787828282807F7F7D7D7D7A7A7A7676767272726E6E6E6B6B6B6767
+      676464646161615E5E5E5C5C5C5757574646454343423F3F3F3B3B3B39393936
+      36363332332F2F302E2E2E2B2B2C2828282626262424242223232120201F1F1F
+      1C1C1C1B1B1B1819191918191617171616161615151414141213131213121112
+      111717171B1C1C1C1C1D1D1E1E1E1E1F1B1B1B0E0E0F0E0D0F0E0D0E0E0D0E0E
+      0D0E101010121212111212111111111111111111111111111111101110101011
+      1011101010100F1010100F0F1010100F0F0F0F0F0F0E0E0E0C0D0D0A0A0C0B0B
+      0B0A0B0B0A0B0A0C0B0B1615162424242928292D2E2E33323228272707070707
+      0707070707070706070707070606060606060607060607060606060606060606
+      0506060505050506050605050505050505050405050505040505050404050405
+      0404050504040404040404040403040404040403030404030303030304040303
+      0303030303030303020203030302030302030203020303020202030202020202
+      0202020202020202020202020102020102010102020101010101010102010101
+      0102010101010101000100010101010101000101010001000000010000010000
+      0000000000000001000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030323232363636
+      3838383A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F3030303534353A3A393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838323232323232323232323232323232323232393838
+      3938383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383738373738373738373738373738373737373737373737
+      3737373737373737373737373737373737373737373737373737383838393938
+      3938383938383838383838383636363636363636363636363636363636363636
+      363636363636362F2F2F2F2F2F2F2F2F2F2F2F3131313F3F3F4A4A4A4F4F4F56
+      56565A5A5A424242323232323232333333333232333433353434353635363536
+      3737383938383A3A3A3A3A3A3C3C3C3E3E3E3F3F3E4141414142414343444646
+      464747474A4A4A4C4C4C4E4E4E5151515353535757575958585C5B5C605F5F61
+      61616566656969696C6C6C7070707273737777777B7B7B7F7F7F838383888888
+      8C8C8C9091919495959A9A9A9E9F9EA4A4A3A8A7A7ADACACB1B2B15757572D2D
+      2D3030303434343737373A3A3A3D3D3D3E3E3E40404040404040404040404040
+      40404040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3A3A3A3A3A3939393939393939393939393939393838383838383737
+      373636363636363535353434343434343232323131313030303030302F2F2F2F
+      2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A
+      2929292929292727272626262626262525252525252424242323232323232323
+      232222222121212020201F1F1F1E1E1E1C1C1C19191917171715151513141413
+      120D101223011BC2001AD2001ACE001ACD0019CB0019CB0018CA0018C90017C7
+      0016C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011
+      BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB200
+      0CB0000BAF000BAF000AAE000AAD0009AB0009AA0006AB0208A73234553F3F38
+      3737372F2F2F2525251D1D1D1414140A0A0A0303030303030303030303030202
+      02010101000000000000383838A9A9A9A4A4A49E9E9F9A9A9A9494948F8F8F8B
+      8B8B8A8A8A8585858181817C7C7C7878787575747070706C6C6C696969666666
+      6363636060605D5D5D5B5B5B5656564645464141403D3C3D3939393737373434
+      343131312E2E2E2D2C2C2A292A272727242525232323212222201F1F1D1D1D1C
+      1C1C1A1A1A1918191717171616161515151414141313131313121213131D1D1D
+      1C1C1C1E1E1E1F1F1E1E1E1E1414140E0E0F0E0D0F0E0D0F0E0D0E0E0D0E1212
+      1212121211121211121211111111111111111111111111101110111110101010
+      10101010100F0F100F1010101010100F0F0F100F0F0F0F0C0C0C0A0B0B0A0A0A
+      0A0A0B0B0C0B1212122323232828282D2D2D3031312C2D2C0707070807070707
+      0707070707070706060607060707060607060607060606060606060606060506
+      0506060606050605060506060505050505040405040504050505040504040405
+      0404050404040404040403040404040404040403030303030403030303040403
+      0303030303030302030302030303030302020302020303020203020203020202
+      0202020202020202010201010202020201010102020102010101010101010102
+      0101010101010101010100010101010100010001010001000101000000000001
+      0100000000000100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      303030303030303030303030303030303030303030303333333636363838383A
+      3A3A3C3C3C3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F303333333939393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383837373732323232323232323232323232323233323239383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373837373737373737373737
+      3737373737373737373737373737373737373737373738383839393839393839
+      3838393838383838363636363636363636363636363636363636363636363636
+      3636362F2F2F2F2F2F2F2F2F2F2F2F3131314141414A4A4A5050505656565A5A
+      5A3C3C3C32323232323233333333333333343435363535353637373637383738
+      39393A3A3A3B3B3B3C3C3C3E3E3E3F3F3F4040414242434545464746464A4949
+      4A4A4A4D4E4D4F4F4F5152525555555757575B5B5B5C5D5D6060606464646766
+      676A6A6A6D6D6D7272727475757879787D7C7C8080818585868989898E8E8E93
+      92929797979C9C9CA0A0A0A5A5A5AAAAAAAFAFAF9696962E2E2E2F2F2F333333
+      3737373A3A3A3D3D3D3F3F3F4040404141414141414141414141414040404040
+      404040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3C3C3C3C3C3C3B
+      3B3B3B3B3B3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3D3D3D3C3C3C3B3B3B
+      3A3A3A3838383737373636363434343333333232323131313030302F2F2F2F2F
+      2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29
+      2929292929282828272727262626262626262626252525242424232323232323
+      2222222121212020201E1E1E1D1D1D1A1A1A1818181616161514141412070E15
+      43011BC9001BD3001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C700
+      16C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC
+      0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000C
+      B0000BAF000BAF000AAE000AAD0009AB0009AA0005AF0D12923C3C3E3A3A3733
+      33332B2B2B222222191919101010060606030303030303030303030303020202
+      010101010101020202878787A7A7A6A1A1A19B9C9B9797979696969291928D8C
+      8C8787878484848080807B7B7B7676777373736F6F6F6A6A6A67676765656561
+      61616060605C5C5C5A5A5A5757574646463F3E3E3A3A3B383838353535323232
+      3030302D2E2D2B2C2B2828282525252323232323232020201E1F1E1C1D1C1A1A
+      1A1919191818181616161616161414141313131312131617171D1D1D1D1D1D1E
+      1E1E1F1F1E1E1E1E0E0E100E0E0F0E0E0E0E0E0F0E0D0F0F0F0F121212121212
+      1212111111121111111111121111111111111111101011101010101110101010
+      10101010100F10101010100F0F10100F10100F0D0D0D0B0B0B0B0A0A0B0A0B0C
+      0B0C0D0E0D2222232727272C2C2C303131353435080807080807070707070707
+      0707070607070707070707070706060606060606060606060506060606060506
+      0606060605050505060505050505050505050505050405040405050404050504
+      0504040404050404040404040404040403030304030303040403030304030303
+      0303030303030303030303030303020203020302030203030303020202020202
+      0202020202020202010202010201010102010101010202010201010101010101
+      0101010101000100010101000100000001000000000101010100000100000000
+      0001000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303434343737373939393B3B3B3D3D
+      3D3939393232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F3232323737373A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3737373232323232323232323232323232323434343938383938383938383938
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383837383837383737383737383737383737383737373737373737373737
+      3737373737373737373737373737373737373939393939393939383939383938
+      383838383636363636363636363636363636363636363636363636363636362F
+      2F2F2F2F2F2F2F2F2F2F2F3131314141414A4A4A4F4F4F5555555A5A5A3D3D3D
+      323232323232333333333333343534353536363535363637383738393A393A3A
+      3A3B3B3B3D3D3D3E3E3E4040404242424343434546464847474A4A4A4D4C4C4F
+      4F4E5151515453545656565858585B5B5B5F5F5F6162626564656868686B6B6B
+      6F6F6F7273727777777A7A7A7F7F7F8383838788888B8C8C9090919494949999
+      999E9E9EA3A2A2A7A7A7ADADADB2B2B25A5A5A2F2F2F3333333636363939393D
+      3D3D3F3F3F414141414141424242414141424242424242404040404040404040
+      4040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3C3C3C3C3C3C3D3D
+      3D3D3D3D3D3D3D3E3E3E4040404040404040404242424141414040403F3F3F3E
+      3E3E3B3B3B3A3A3A3838383636363333333232323131313030303030302F2F2F
+      2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929
+      2929292927272727272727272726262626262625252524242423232323232322
+      22222020201E1E1E1C1C1C1B1B1B1919191616161614080E1645011CCA001CD7
+      001CD1001BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016
+      C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC00
+      11BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0
+      000BAF000BAF000AAE000AAD0009AB0009AA0004AF1E22723D3D343636362F2F
+      2F2727271E1E1E1515150B0B0B05050503030303030303030302020201010101
+      0101010101393939A9A9A9A4A4A4A2A1A29E9E9E9999999494948F8F8F8B8B8B
+      8686868282827E7E7E7979797373736A6A696262636060606565656363636161
+      615E5E5E5B5B5B5858585454544344443D3C3C393A3A3737373434343131312E
+      2E2E2C2B2B2829292626272424242223232121211F1F1F1C1C1D1B1B1B191919
+      1818181717171616161515151314141313131C1C1C1E1D1E1E1E1E1F1F1F1F1F
+      201818170E0F0F0E0E100E0E0F0E0E0F0E0E0F12111213121212121212121212
+      1212111112111112111111111111111111101110101110101110101010101010
+      1010100F101010100F10100F100F0F0E0E0E0B0B0B0B0A0B0B0B0B0A0B0A0D0D
+      0D1F1F1F2827282B2B2B30303034343314131307080808070807070707070707
+      0707070707070706060607060607060607060706060606060606060606060605
+      0505060505050605050505060505050505050405050405050405040405040405
+      0404040404040404030404030404030403030404030303030403030304030303
+      0303030303020303030303030202020303030302020202020202020202020202
+      0202010202020102010202020101010201010101020101010101010101010101
+      0101010101010100010001010100000001000001010100000100000000000000
+      0101000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      30303030303030303030303030303535353838383A3A3A3B3B3B3D3D3D3E3E3E
+      4040403C3C3C3434342F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F3131313636363A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383837373732
+      3232323232323232323232323232343434393938393838393838393838393838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383738383738373738373738373738373738373737373737373737373737
+      3737373737373737373737373737393939393939393939393938393938383838
+      3636363636363636363636363636363636363636363636363636362F2F2F2F2F
+      2F2F2F2F2F2F2F3131314141414A4A4A5050505454545A5A5A3D3D3D32323232
+      32323333333334343535353636353536363837373839383A3A3A3B3B3B3C3C3D
+      3E3E3E3E3E3E4141414242424444444646464847474A4A4A4C4C4C4F4E4F5252
+      515454545757575A5A5A5D5D5D60605F626363676766696A696E6D6D71717175
+      75757878787C7C7C8181818585858989898D8D8D9292929797979B9B9BA1A0A0
+      A5A5A5AAAAAAAFAFAF9898983131313232323535353939393C3C3C3F3F3F4141
+      4143434343434342424243434342424242424242424240404040404040404040
+      40403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3E3E3E3F3F3F
+      4040404242424444444545454747474747474848484747474646464444444242
+      423F3F3F3C3C3C3A3A3A3737373535353333333232323131313030302F2F2F2E
+      2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929
+      2929292727272727272727272626262626262424242424242323232222222020
+      201E1E1E1C1C1C1A1A1A18191818160A0F1746011DCD001DDB001DD3001CD200
+      1CD1001BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C6
+      0016C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011
+      BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB000
+      0BAF000BAF000AAE000AAD0009AB0007AC020AA531324C3A39333333332B2B2B
+      2323231A1A1A1111110707070404040404040303030202020101010101010101
+      01030303898989ABABABA5A5A6A1A1A19C9C9C9797979292928D8E8E88888884
+      85847D7D7D7373736D6D6D6969686565656060605F605F6464646262625F5F5F
+      5B5B5B5959595656565252524242413A39393738373434343131312E2E2E2C2D
+      2C2A2A2A2727272525252323232222222020201E1D1E1C1C1C1A1B1A19191917
+      17171616161515151414141616161E1E1E1F1F1F1F1F201F1F1F202020131313
+      0E0F100F0E0F0E0E0F0E0E0F0F0F0F1312121312121212121212121212121212
+      1112121111111211111111111011111111101011101111101010101010101010
+      1010100F0F1010100F10100F0E0E0B0B0C0B0B0B0B0B0B0B0B0A0C0C0B1B1B1C
+      2625252A2A2A2F2F2F3434341C1C1C0807080807070708070807070707070706
+      0707070706060607070706060606060606060606060605060606060606060606
+      0505050505050506050505050505040505050505040504050405050404040405
+      0505040404040404040404030404030304030404030303040303030403030303
+      0303030303030202030302030202020202030302020302020202020202020201
+      0202020202010202020202020201020101010102020201010101010101010101
+      0101010001010001010000010101000000000001000001000000010000000001
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303636363939393B3B3B3C3C3C3D3D3D3F3F3F40404040
+      40404040403E3E3E3535353030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3030303434343939393A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383737373232323232
+      3232323232323232323234343439393839393839383839383839383839383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838373838373837373837373837373837373837373737373737373737373737
+      3737373737373737373739393939393939393939393939393838383836363636
+      36363636363636363636363636363636363636363636362F2F2F2F2F2F2F2F2F
+      2F2F2F3131314141414A4A4A4F4F4F5454545858583C3C3C3232323333333333
+      333434343535353535353535363837383839393A3A3A3B3B3B3C3C3D3E3E3E3F
+      3F404141414343434545454746474A4A494A4B4A4E4E4E4F4F4F535353555555
+      5858585B5B5B5E5E5E6161616464646867686C6B6B6E6F6E7272737676767A7A
+      7A7F7F7F8383838787878B8B8B9090909494959999999E9E9EA3A3A3A8A8A8AD
+      ADADB2B1B26362623131313434343838383C3C3C3F3F3F414141424242434343
+      4444444444444444444242424242424242424242424040404040404040404040
+      403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3E3E3E40404043434345
+      45454747474A4A4A4D4D4D4E4E4E4F4F4F4E4E4E4E4E4E4B4B4B494949464646
+      4242423F3F3F3B3B3B3838383636363333333131313131313030302F2F2F2E2E
+      2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929
+      29292727272727272727272626262525252424242222222121212020201E1E1E
+      1C1C1C1A1A1A19180C111948021ECF001EDD001ED5001DD4001DD3001CD2001C
+      D1001BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C600
+      16C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB
+      0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000B
+      AF000BAF000AAE000AAD0009AB0006B01217873939353535342F2F2F2727271E
+      1E1E1616160C0C0C050505040404040404030303020202010101010101010101
+      444444AEAEADA9A9A9A3A3A49F9F9F9A9A9A9595969191918989887E7F7F7979
+      797575757070706B6B6B6666666362625E5E5F5D5D5D6262626060605D5D5D5A
+      5A5A5757575555555151514343423838383535353232323030302E2D2E2A2B2B
+      2929292625252423232222222020201D1D1D1C1D1D1A1A1B1919191717171616
+      161516151414141B1A1A2020202020201F201F2020201D1D1D1010110F0F100E
+      0E100E0E0F0E0E0F111111131312121313121312121212121212121212121212
+      1111111111121111111011111111111110111111101011111010111010101010
+      100F0F0F10100F100F0F0C0C0C0B0B0B0B0B0B0B0A0B0C0B0C18191924242429
+      29292F2F30333333252525080707080807070707070707080707070707070707
+      0607070606060707070707070606070606060606060605060606060506050506
+      0605050505060505050504050505050505050505050405040505050504050404
+      0404040404040404040403040404040403030404030304030303030304030303
+      0202030203030203030203020302020202020202020202020202020202020202
+      0202020202020201020101010201010101010101020201020201010101010101
+      0101010100010101010000010100000001000001000101000100000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303535353B3B3B3C3C3C3D3D3D3E3E3E3F3F3F4040404040404040
+      404040404040403F3F3F3837383131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3333333938383A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838373736323232323232323232
+      3232323232323434343939393939383939383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383737383737383737383737383737373737373737373737373737
+      3737373737373939393939393939393939393939393838383636363636363636
+      363636363636363636363636363636363636362F2F2F2F2F2F2F2F2F2F2F2F30
+      30304141414949494E4E4E5353535757573F3F3F323232333333333333343434
+      363636353636363637373838393A393A3A3A3B3C3C3E3D3E3E3E3E4041404242
+      424343434646464848484A4A4A4D4D4D4F4F4E525252535453565757595A5A5C
+      5C5C6060606262626565656969696D6D6D7170707474747777777B7B7B7F7F80
+      8383848888888D8D8D9292929696969B9B9BA0A0A0A5A5A6AAAAAAAFAFAFA3A3
+      A33939393434343737373B3B3B3E3E3E40404042424244444444444445454545
+      45454444444444444242424242424242424242424040404040404040403F3F3F
+      3E3E3E3E3E3E3D3D3D3D3D3D3D3D3D3D3D3D3E3E3E4040404444444747474A4A
+      4A4E4E4E5151515353535555555656565555555454545151514E4E4E49494944
+      44444040403C3C3C3939393636363333333131313131313030302E2E2E2E2E2E
+      2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929292929
+      292828282727272626262525252424242222222121211F1F1F1E1E1E1B1B1B1B
+      190D121B4A011FD1001FDF001FD7001ED6001ED5001DD4001DD3001CD2001CD1
+      001BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016
+      C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB00
+      10BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF
+      000BAF000AAE000AAD0008AC0007AD2729583838303131312A2A2A2222221A1A
+      1A1111110707070505050505050303030202020202020202020101010B0B0B9B
+      9B9BACACACA7A7A7A2A2A29C9C9C9696968C8C8C8686868180817B7C7C767676
+      7171716D6D6D6868676463635F605F5B5B5B5A5A5A5E5E5E5D5D5D5B5B5B5858
+      585555555252525150514141413837373434343231312E2E2E2C2C2C28292926
+      26272424242323232121211F1F1F1D1C1D1B1C1C191919181818161616161616
+      151615201F1F2020202020202121212020211616161010110F0F100E0F0F0F0E
+      100E0E1013131313131313121313131212121312121212121212121212121111
+      111211111111121111111111101111101111111011111011101010101010100F
+      1010100F100F0C0D0D0B0B0B0B0C0B0B0B0B0C0C0C1312132324242828292D2D
+      2E3232322D2D2D08080807070807070807070707080707070707070707060707
+      0707060707070706070607060606060606060606060606050605050605050605
+      0506060505050505050505050505050505040405040404050404040404040404
+      0504040407070704040403040304030404030304040403030303030303030303
+      0302020302020302020303020302020302020203020202020202020202020202
+      0202010102020102020202020201010101010101010101010101010101000101
+      0101000101010101000101010100000001000100010100000000000000000000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303030303131313737373D3D3D3F3F3F3F3F3F404040404040404040404040
+      4040404040404040404040403A3A3A3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3231323737373A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383837373632313232323232323232323232
+      3232323232393939393939393938393938393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3738383738373738373738373738373738373737373737373737373737373737
+      3737393939393939393939393939393939383838363636363636363636363636
+      3636363636363636363636363636363030302F2F2F2F2F2F2F2F2F3030303C3B
+      3C4848484E4E4E52525256565645454532323233333333333334343436363636
+      36353737373838383A3A393A3A3A3D3D3D3D3E3E3E3E3E414142424342444445
+      4646464848484A4A4A4D4D4C4F4F4E5251525555545757575B5A5B5E5D5D6060
+      606464646767676A696A6E6E6E7171717575757979797D7D7D8181818686868A
+      8A8A8F8F8F9393939898979C9D9DA2A2A2A7A7A7ACACACB2B2B2777777333333
+      3737373A3A3A3D3D3D4040404242424444444545454545454545454545454545
+      454444444444444242424242424242424242424040403F3F3F3F3F3F3E3E3E3D
+      3D3D3D3D3D3C3C3C3C3C3C3C3C3C3D3D3D3F3F3F4343434848474D4C4951514D
+      56544F5A59555C5B585D5D5C5C5C5C5C5C5C5959595555555151514C4C4C4747
+      474242423D3D3D3939393636363333333131313030303030302E2E2E2E2E2E2E
+      2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929292929
+      2727272626262525252424242222222020201E1E1E1C1C1C1C1A0E121C4B0120
+      D30021E1001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD100
+      1BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C6
+      0016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010
+      BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF00
+      0BAF000AAE000AAC0007B00B13913535353333312D2D2D2626261E1E1E161616
+      0C0C0C0505050505050404040202020202020202020202020101015F5F5FAFAF
+      AFA9A9A9A3A3A39A9A9A9292928D8D8D8787878383837D7D7D7878797373736E
+      6F6E6A6A6A6565656060615D5D5D5959595756565C5C5C5B5B5B595959565656
+      5252525151514E4E4E3F3E3F3434343231322E2F2F2C2C2C2A2A2A2828282525
+      252323232121222020201D1D1C1C1B1C191A1A1818181616161616161A1A1A20
+      20202020202121222121212020201110111011110F0F100F0F100F0F0F101110
+      1313131313131312121313131313121212121212121212121212121212121111
+      1212111111111111111110111110111011101010101110101010101010101010
+      0F0F0D0E0E0B0C0C0B0B0C0B0B0B0C0C0C0F0E0F2323232727272D2C2D313131
+      3535350808080808080808080808070808070807070708070707070707070707
+      0706060706060706070606060606060606060606050506060606050505050505
+      0505050505050505050505050405050504050404040505050404080808131313
+      1616160D0D0D0404040304040404040303030303030303040303030303030303
+      0303030303030202030202020203020202020202020202020202020202020202
+      0201020201020102010102020101020101010201010101010101010101010100
+      0101000101010101000101000100000000000001000000010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303636363E3E3E40404040404040404040404040404040
+      40404040404040404040404040403C3C3C3434342F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030303636363A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383838383231323231323232323232323232323232
+      3239393939393939393939393839393839383839383839383839383838383838
+      3838383838383838383838383838383838383838383838383838383838383837
+      3838373837373837373837373837373837373737373737373737373737373939
+      3939393939393939393939393938383836363636363636363636363636363636
+      36363636363636363636363130312F2F2F2F2F2F2F2F2F3030303B3A3B474747
+      4D4D4D5151515555554949493232323333333333333535353636363636363838
+      383938393A3A3A3B3A3B3D3D3C3E3E3E3F3F3F41414244434345454546464649
+      49494B4B4B4E4E4E504F4F5353535655555859595B5B5B5F5E5F616161646464
+      6868686C6C6C6F6F6F7373737776767B7B7A7F7F7F8383838888888C8C8C9191
+      919595959999999F9F9FA4A4A4A9A9A9AFAEAEB0B0B04A4A4A3636363838383D
+      3D3D3F3F3F424242444444454545464646464646464646454545454545454545
+      4444444444444242424242424242424141413F3F3F3E3E3E3E3E3E3D3D3D3C3C
+      3C3B3B3B3B3B3B3B3B3B3C3C3B3E3D3A4340354746404A4B514C4F5C4A526F54
+      58695B5D6464635F68655A65645F6161605E5E5E5959595454544D4D4D474747
+      4242423D3D3D3939393535353333333232323131312F2F2F2E2E2E2E2E2E2E2E
+      2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292928282826
+      26262525252323232121211F1F1F1D1D1C1C1A0F131C4C0121D50022E30021DB
+      0021DA001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001B
+      D0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C600
+      16C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA
+      0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000B
+      AF000AAE0009AD0008B024265B35352C2F2F2F2929292121211A1A1A11111107
+      07070505050505050404040202020202020202020202021F1F1FACACACA8A8A8
+      A0A0A09B9A9B9595958F8F8F8989898585857F7F7F7B7A7B7575757070706C6C
+      6C6767676363635D5E5E5A5A5B57565653535359595959595957575754545451
+      51514F4F4F4D4C4D3D3D3D3332332F2F2F2D2D2D2B2B2B292929262625242324
+      2222222020201E1E1E1D1D1D1A1B1A19191A1717171616161F1F1F2020202020
+      202222222222221A1A191111111011110F0F100E0E100F0E1012131313131313
+      1313131313131313131212131212121213121212121212111211111111111211
+      111111111111111111111110101010101110101011101010101010100F100F0F
+      0E0B0C0C0B0C0B0B0B0B0B0B0B0D0D0D2020202827282C2C2B31313034343514
+      1414080808080708080708070808080707080707070807070707060707070607
+      0707070707070606060606060606060606060505050606060506050606050505
+      060506050505050505050505050505050606050F0E0F15151515151516161616
+      1616121212060707040303040303030304030303030303030303030303030303
+      0302030202030202020302030303030202020203020202020202020202020202
+      0202010201020201020201010202010101010101010101010101010101010101
+      0101000101000000000000000101000001000001010100000100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303434343C3C3C4040404040404040404040404040
+      404040404040404040404040404040403E3E3E3636373030302F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30343434393939
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838323131323132323132323232323232323232393939
+      3939393939393939393939383939383938383938383938383938383838383838
+      3838383838383838383838383838383838383838383838383838383838383738
+      38373837373837373837373837373837373737373737373737373939393A3939
+      3939393939393939393939393736363636363636363636363636363636363636
+      363636363636363131312F2F2F2F2F2F2F2F2F3030303636364747474B4B4B4F
+      4F4F545454505050323232333333343434353535363636363636383838393939
+      3A3A3A3B3B3B3C3D3D3E3F3F4040404241414343444647474847474B4B4A4D4C
+      4C4F4F4F5151515454545757575958595B5B5C6060606262626565656969696D
+      6D6D7171717575757778777D7D7D8181818584858988898E8E8D929292979797
+      9C9C9CA1A1A1A6A5A5AAAAAAB0B0B09090903636363838383B3B3B3F3F3F4141
+      4144444445454546464646464647474747474746464645454545454545454544
+      44444444444242424141414141413F3F3F3E3E3E3D3D3D3B3B3B3B3B3B3A3A3A
+      3A3A3A3A39373D3A2F393C472B3D841E3FBB143DE20C3CF50A3AF90A3BF6113D
+      EB2346CC3E53A45E62766C695F6665616060605B5B5B5555554D4D4D47474742
+      42423C3C3C3838383535353232323131313030302F2F2F2F2F2F2E2E2E2E2E2E
+      2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2929292828282727272525
+      252323232121211E1F1E1D1C17131D500122D60023E50022DD0022DC0021DB00
+      21DA001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0
+      001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016
+      C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA00
+      10B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF
+      000AAD0007B20B129133333231312F2B2B2B2525251D1D1D1515150B0B0B0505
+      050505050404040303030202020202020202020202027C7C7CA8A8A8A2A2A29C
+      9C9C9797979191918C8C8C8687868181817C7C7B7878787676756F6F6F686868
+      646464605F5F5B5B5B5857575353535050505858585656565353535252524F4F
+      4F4D4D4D4A4B4B4040413131302E2E2E2C2C2C29292925262624242323232320
+      20201E1E1E1D1D1D1B1A1B191A1A171817191919212121212121222221222222
+      2222221414151011111110110F0F100F0F100F10101414131413131313131313
+      1313121313121312121212121212121312121212121212111211121112111111
+      1211111111111111111110111111101010101110101011101010100E0F0C0B0C
+      0C0C0C0C0B0B0B0B0C0D0D0D1D1D1D2727272B2A2B2F2F2F3434341919190808
+      0808080808080707080807070707070707070707080707070706070607070706
+      0706070607060606060606060606060606060606060606050505050606050506
+      0505050505050505050A0B0B1413131514151615151515161616161717171717
+      171717170A0A0A03040304040404030403030303030303030303030303030302
+      0303020203030203020302030202020202020202020202020202020202010201
+      0201020201020101020202010201010101010101020101010101010101010101
+      0101000101010100010101010000000000000000000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303232323A3A3A404040404040404040404040
+      4040404040404040404040404040404040403F3F3F3939393131312F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F33333338
+      38383A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383832313132313132313232313232323232323239393939393939
+      3939393939393939393938393938393838393838393838393838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      373837373837373837373837373837373737373737373938383A39393A393939
+      3939393939393939373636363636363636363636363636363636363636363636
+      3636363232322F2F2F2F2F2F2F2F2F3030303232324545454B4B4B4E4E4E5252
+      525656563434343333333434343535353636363636363838383939393A3A3A3C
+      3C3B3E3E3E3E3F3F4140414242424343444746474948484A4A4A4D4D4D4F4F4F
+      5252525454545757575B5B5B5E5E5E6060606464646767676B6B6B6E6E6E7171
+      717575757979797E7E7E8281828686868B8B8B8F8F8F9494949999999E9E9EA2
+      A2A2A8A8A8ADADADB2B2B26565663737373B3B3B3E3E3E404040434343454545
+      4646464848484848484848484747474747474646464545454545454545454444
+      444343434141414040403F3F3F3D3D3D3B3B3B3A3A3A39393938383839373037
+      3839263B8C123DE3083DFF073CFF073BFF083BFF073AFF0639FF0438FF0136FF
+      0035FF0C3BF2354FB563666F6A675E6061605A5A5A5353534C4C4C4545454040
+      403B3B3B3737373434343232323131313030302F2F2F2F2F2F2E2E2E2E2E2E2D
+      2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A292929272727252525232323
+      2020201E1E1B1A1C210422C60024EA0023DF0023DE0022DD0022DC0021DB0021
+      DA001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD000
+      1ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C5
+      0015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010
+      B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF00
+      09AE0008B121245933322A2C2C2D272727202020181818101010070707050505
+      050505040404040404020202020202020202434343AAAAAAA4A4A49F9F9F9998
+      999393938E8E8E8988898484848282817D7C7C7777777272726B6C6B65656561
+      61615D5D5D5858595455545152514D4D4D5353535454545252524F4F4F4D4D4D
+      4B4B4B4848483E3E3E2F2E2E2C2C2C29292A2727272525242323232122211F1F
+      201D1D1D1B1B1B1919191717171D1D1D2222222222222222222323241F1E1F12
+      12131111121110110F10110F0F10121212141314141413131414131313131313
+      1213131312131313121212121213121212121212111212111112111211111111
+      121111111011111010101011111110101010101010101010100C0C0C0C0C0C0C
+      0C0B0B0B0B0D0C0C19191925252529292A302F2F333434222222080809080808
+      0808080808080708080808070707080708070707070707070706070707070706
+      0607060606060706060706060605060606060506050606060506060505050508
+      0707101010151515151515151616151516161616161616171717171717181818
+      1818180F0F0F0505050303030303030403040303030304030303030303030303
+      0302020302030303030203030203020202020203020202020202020202010201
+      0102010201020101020101020101020101010101010101010101010101010101
+      0100010100010101000001010100010100000100010100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303131313838383F3F3F40404040404040
+      40404040404040404040404040404040404040404040403A3A3A3333332F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131
+      323636363A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3938383131313231313231313231323231323232323938383939393939393939
+      3939393939393939393839393839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373737373938383A3A393A39393A39393939
+      3939393937373736363636363636363636363636363636363636363636363634
+      34342F2F2F2F2F2F2F2F2F2F2F2F3131314343434848484D4D4D515151555555
+      3E3E3E3333333434343535353636363737373838383A3A3A3A3A3A3D3D3D3E3E
+      3E3F3F3E4242424242424545444647464848494B4A4A4E4D4D4F4F4F53535355
+      55555858585B5B5B5D5E5D6262616465656868686C6C6C70706F737373777777
+      7A7A7A7F7F7F8383838888888C8C8C9191919596959A9A9A9F9F9FA4A4A4AAAA
+      AAAFAFAFABABAB4444443A3A3A3D3D3D40404043434345454547474748484849
+      4949494949484848474747474747474747464646454545454545444444434343
+      4141414040403E3E3E3C3C3C3A3A3A38383836363637352C31374B183EC90B40
+      FF0B3FFF0B3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0638FF02
+      37FF0034FF153FE4545E8469665C5F5F5F5858585151514A4A4A4343433D3D3D
+      3939393636363333333131313131312F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D
+      2D2C2C2C2C2C2C2C2C2C2B2B2B2A2A2A2929292727272525252323232020201D
+      1D1C1B1B170821A30025EC0024E00023DF0023DE0022DD0022DC0021DB0021DA
+      001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001A
+      CE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C500
+      15C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9
+      000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAE0008
+      B30C138C2F2F2C2E2E2C2929292222221B1B1B1414140A0A0A06060606060604
+      0404040404040404020202020202121212A0A0A1A7A6A7A1A1A19B9B9B959595
+      9090918C8D8C8988888382827F7E7E7978797474746F6F6F6A696A6363635E5E
+      5E5B5A5B5556555252524E4E4E4A4A4A4F50505252525050504D4D4D4A4A4A48
+      48484545453C3B3C2D2D2D2A2A2A2828282626262323232222222120201D1D1D
+      1C1C1C1A1A1A191A192323232323232323232323232423231919191213131111
+      121110121010100F0F1014141415141414141413141413131313131313131313
+      1213131213121213121212121212121212111112121111111111111211111111
+      1111111110111011101110111110101011101010110D0D0D0C0B0C0C0C0C0C0C
+      0C0C0C0C1414142525252929292E2D2E3231322B2B2B08090908080808080807
+      0807080808080707070808080707070707070707070707070706070607060707
+      0606060707070606060606060606060606060505060505050E0E0D1515151515
+      1515151515161616161616161716161717171717171718181818181818181819
+      1919151515070708030304040303030303030303030303030303030202020302
+      0303020302020203030202020302020202020202020202020202020201010201
+      0201020201020201010101010101020101010101010101010101010101010101
+      0001010101000100000101000100000000010001000001000100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303636363D3D3D4040404040
+      404040404040404040404040404040404040404040404040403C3C3C3535352F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3030303535353939383939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383833
+      3333313131323131323131323132323132373737393939393939393939393939
+      3939393939393939383939383938383938383938383938383838383838383838
+      3838383838383838383838383838383838383838383838383838383738383738
+      37373837373837373837373837373838383A3A393A3A393A39393A3939393939
+      3737373736363636363636363636363636363636363636363636363635352F2F
+      2F2F2F2F2F2F2F2F2F2F3030303D3D3D4848484B4B4B4F4F4F53535349494933
+      33333434343636363636363737373838383A3A3A3B3B3B3D3D3D3E3E3E403F3F
+      4241424344444546464847484A49494B4C4B4E4F4F5152515353535757575959
+      595C5C5C5F5F5F6362626665666A6A696D6D6D7171717474747878787C7C7C80
+      80808585858989898E8E8E9393939798989C9C9CA1A1A1A6A6A6ABABABB0B0B0
+      8D8D8D3A3A3A3C3C3C3E3E3E4242424545454646464848484949494949494A4A
+      4A4949494848484747474747474747474646464545454444444343434141413F
+      3F3F3D3D3D3A3A3A3737373636363533292D35541440E20C41FF0E40FF0E40FF
+      0D3FFF0C3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0438
+      FF0035FF0939F44C598D6663585B5B5B5454544D4D4D4646464040403B3B3B37
+      37373434343333333131313030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D
+      2C2C2C2C2C2C2C2C2C2B2B2B2929292828282525252323232020201D1D1D1C1A
+      0E0E1F780025EE0024E10024E10023DF0023DE0022DD0022DC0021DB0021DA00
+      1FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE
+      001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015
+      C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B900
+      0FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000AB0010AAD
+      2225482E2E2729292A2424241D1D1D1717170E0E0E0707070606060505050404
+      04040404040404020202020202757675A8A8A8A3A3A39D9C9D99999995949490
+      8F8F8A8A8A858485807F7F7B7B7B7575757071716C6C6C6666666060605B5B5B
+      5758575353534F4F4F4B4B4B4949494E4D4E5050504D4D4D4C4C4C4848484646
+      464242423938392C2C2D2929292626262424242223232121201E1E1F1E1E1E1E
+      1E1E222222242424252525242424242424232222131314121213111112111112
+      1010111112121514141514141414141414141414131313141313131313131313
+      1313131312131312121212121212121211121212121212111211111111111111
+      11111111111011111010111111111011100E0E0E0C0C0C0C0C0C0C0B0B0C0C0D
+      1211122323232828282D2C2D3030303333340908090809090808090808080808
+      0808080808070707080707080707070707070707070707060706060707060606
+      07070606060606060606060606060A090A131212161615151615151515161616
+      1717171617171818181717171415151818181818181819181818181919191819
+      191718180B0C0C03030403030304030303030303030303030302030303020303
+      0203030203020302020202020202020202020202020202020202020102010102
+      0101010102010102020101010101010101020101010101010001010001000000
+      0000010100010001010000000000000001010000010000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303434343B3B3B404040
+      4040404040404040404040404040404040404040404040404040403E3E3E3636
+      373030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F30363636393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383333333131
+      3131313132313132313132313237373739393939393939393939393939393939
+      3939393939393938393938393838393838393838393838383838383838383838
+      3838383838383838383838383838383838383838383838383838373838373837
+      373837373837373837373838383A3A3A3A3A393A3A393A39393A393938383837
+      36363636363636363636363636363636363636363636363636363030302F2F2F
+      2F2F2F2F2F2F3030303838384646464A4A4A4D4D4D5252525353533333333434
+      343636363636363737373939393A3A3A3B3B3B3D3D3D3E3E3E40404042424144
+      44434746474747484A4B4A4D4D4D4F4F4F5352525454545757575A5A5A5D5D5D
+      6060606464646666676A69696D6D6E72727175767579797A7D7D7D8282828686
+      868B8B8B8F8F8F9494949999999E9E9EA2A3A2A9A8A8ADADADB2B2B26868683C
+      3C3C3E3E3E4141414444444646464848484949494949494A4A4A4A4A4A4A4A4A
+      4949494848484747474747474747474646464444444343434141413E3E3E3B3B
+      3B37373735353534322D2F323F1740DB0F43FF1041FF0F40FF0E40FF0E40FF0D
+      3FFF0C3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0538FF
+      0035FF0A3AF3525A7A5F5D565656565050504949494242423C3C3C3838383535
+      353434343232323131313030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C
+      2C2C2C2C2C2B2B2B2929292828282525252323232121211E1E1E1C1A11111C54
+      0025E50024E40024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001F
+      D9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE00
+      1ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C3
+      0015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000F
+      B8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF0008B61117782C
+      2C24292929262626202020191919111111090909070707060606040404040404
+      040404030303030303424242AAAAAAA6A6A6A2A1A29C9B9B9796969191918C8C
+      8B8786868181817D7D7C7777777272716E6E6E6969696464645C5C5C58585854
+      54545050504C4D4C4949494646464949494D4D4D4C4C4C494949464646424242
+      3E3E3E3A393A2B2B2A262626272728282828292A2A292A292A29292929292727
+      272727272626262525252424241D1D1D14141412131311121211111211111214
+      1414161414151414151414141413141414131314131313131313131313131313
+      1312131213121212121212121212121112121211121111111112111111121111
+      111111111111101110101010110F0F0E0C0D0C0C0C0C0C0B0C0C0B0B0F0E0E22
+      22222727272A2A2A2E2E2F323231111011090909080808080808080808080807
+      0708070808080808080707070707080707070707070707070706070707060607
+      070706070707080F0F0F15151515161615151617171616171617181718181718
+      1818121212080808070808131212181819181818191A1A191919181919191919
+      1A1A1A100F100303040403030304040303030303030203030302030203030203
+      0203030302020202030202020203020202020202020202020202020202020202
+      0101020201010201010101020102010101010101010101010101010100010100
+      0001010100010000010000010100010100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303232323A3A3A3F
+      3F3F4040404040404040404040404040404040404040404040404040403F3F3F
+      3939393131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F34343439393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838333333313131313131
+      3131313231313231313636363939393939393939393939393939393939393939
+      3939393939393839393839383839383839383839383838383838383838383838
+      3838383838383838383838383838383838383838383838383837383837383737
+      3837373837373837373A3A3A3A3A3A3A3A393A3A393A39393938383736363636
+      363636363636363636363636363636363636363636363232322F2F2F2F2F2F2F
+      2F2F3030303232324444444848484B4B4B4F4F4F5353533F3F3F353535363636
+      3636363838383939393A3A3A3B3B3B3D3D3D3F3F3F4141414242424444434747
+      474949494A4B4A4E4E4D5050505253525554545757575B5B5B5E5E5E61616164
+      64646868686C6B6B6F6E6E7373727677777A7A7A7E7F7E8382828787878B8B8B
+      9090909595959A9A999E9E9EA4A4A4A9A9A9AFAFAFADADAD4747473D3D3D4141
+      414444444646464747474949494A4A4A4B4B4B4A4A4A4A4A4A4A4A4A4A4A4A49
+      49494848484747474747474646464444444242423F3F3F3D3D3D393939363636
+      323231302F291C3DB41045FF1243FF1042FF1041FF0F40FF0E40FF0E40FF0D3F
+      FF0C3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0538FF00
+      35FF183FDB595A5C5756545050504A4A4A4343433E3E3E3A3A3A363636343434
+      3333333232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C
+      2C2C2C2C2A2A2A2828282626262323232121211E1E1E1B1A16151A320125DD00
+      25E70024E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9
+      001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001A
+      CE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C300
+      15C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8
+      000FB7000EB6000EB5000DB4000CB2000CB2000CB0000AB3030DA22425312929
+      252626262222221B1B1B1414140B0B0B08080807070705050504040404040403
+      0303030303161616A6A6A6A9A9A8A3A3A29E9E9D9797979292928D8D8D878787
+      8282827E7D7D7878787474746F6F6F6A6B6A6666666060605A5A5A5554555251
+      524D4E4D4A4A4A4646464343434544454B4B4B4848484646464343433F3F3F3D
+      3D3D3636373535353334333131312F2F2F2B2B2C2B2C2B292929292929282728
+      2827272626262525251717181414141312131112121111121212121515151514
+      1415141515141414141414131413131413131313131313131313131212121313
+      1313131212121212121212121212121212121111121111111112111111111111
+      1111111011101011100F0F100C0C0C0C0C0C0C0C0C0C0B0C0E0D0D1E1D1E2525
+      262828282C2C2C2F2E2F17171608080908080908090808080808080808080808
+      08070808080807070707070707080707070707070707060607070707060B0B0B
+      1414141616161616161616161717171818181818171818181615150C0B0C0707
+      070706070707070706070E0E0E1818171919191A19191919191919191A191A1B
+      1A1A151515050506030403030403030303030303030303030303030302030302
+      0303020202020303020202020202020202020202020202020202020201010201
+      0201010201010101020101010101010101010100010101010101010101000000
+      0101010100000100000001010001000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303131313838
+      383E3E3E40404040404040404040404040404040404040404040404040404040
+      40403B3B3B3333332F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F323232
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383835353531313131313131313131
+      3131323131353535393939393939393939393939393939393939393939393939
+      3939393939383939383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738373738
+      37373837373A39393A3A3A3A3A3A3A3A393A3A39393939373636373636363636
+      3636363636363636363636363636363636363434342F2F2F2F2F2F2F2F2F2F2F
+      2F3131313E3E3E4646464949494E4E4E5151514F4F4F35353536363636363638
+      38383939393A3A3A3C3C3C3E3E3E3F3F3F414141424242454545474747494849
+      4A4B4B4E4E4D4F4F505353535555565858585B5B5B5F5F5F6262626565656868
+      686C6C6C7070707473737878787B7B7C7F7F7F8585858989898D8D8D92929197
+      97979C9C9CA1A1A1A6A6A6ABABABB0B1B09595953D3D3D3F3F3F434343454545
+      4848484949494A4A4A4B4B4B4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A4949
+      494848484747474646464545454242423F3F3F3C3C3C383838343434312F2627
+      34661345FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF
+      0C3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0537FF0035
+      FF374B9758554A4E4F4E4A4A4A4343433F3F3F3B3B3B37373735353533333332
+      32323232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C
+      2B2B2B2929292727272525252222221F1F1F1C1B19191A210324CB0026EA0025
+      E30024E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD900
+      1FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE
+      001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015
+      C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB800
+      0FB7000EB6000EB5000DB4000CB2000CB2000BB1000AB5171B5729281F262626
+      2222221D1D1D1616160E0E0E0808080707070606060606060505050303030303
+      03030303828282ABABAAA4A4A4A09F9F9A9A9A9494948F8E8E89898984838480
+      7F807A7A7A7474747070706C6D6D6767676364635E5E5E5656565252524F4E4E
+      4A4A4A4747474343434040404343434848484545454343433F3F3F3D3D3D3A3A
+      3A3737373434343232323030302E2E2E2C2D2D2B2A2A2A2A2A29292927282828
+      2727202020151515141414131313111112111112141414161514161415151414
+      1514141414141414141414141314131313141413131313131313131213121313
+      1213121312121212121212121211121211121212111112121111111111111111
+      11111111111111110D0C0C0C0C0D0D0D0C0C0C0B0D0D0C181819232223262627
+      2829292A2A2A1A1A1A0809080909090808080808090808090808090807070708
+      0807080808080808080807070707070707070709090911111116161616161616
+      1616171717171717181818171818191819101110080909080807070807070707
+      0707070707070606070A090A1515151A19191A19191919191A1A1A1B1B1B1B1A
+      1A16171707060703040303030303030303030303030303030303030303030303
+      0302030302030202020202020202020202020202020202020102020202010102
+      0202020102010101010101010101010101010101010101010101010101010100
+      0100000000000001010000000001000000010000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3636363D3D3D4040404040404040404040404040404040403F3F3F3F3F3F3F3F
+      3F3F3F3F3D3D3D3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31313139393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383535353131313131313131313131313131
+      3134343439393939393939393939393939393939393939393939393939393939
+      3939393938393938393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838373838373837373837
+      373939393A3A3A3A3A3A3A3A3A3A3A393A3A3937373737363636363636363636
+      36363636363636363636363636363636363030302F2F2F2F2F2F2F2F2F313131
+      3535354545454848484C4C4C4F4F4F5151514040403636363636363838383A3A
+      3A3A3A3A3C3C3C3E3E3E3F3F3F4242424343434545454747474A4A4A4C4C4C4F
+      4E4F505151545353565756595A595C5B5C5F5F5F6363636666666A6A6A6D6D6D
+      7171717575757979787D7D7D8181818585858A8A8A8E8E8E9393939898989C9C
+      9CA2A2A2A7A7A7ACACADB2B2B27979793E3E3E4141414444444747474949494B
+      4B4B4B4B4B4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A494949
+      4747474646464444444242423E3E3E3A3A3A3737373232312F2E281C3EBD1347
+      FF1445FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C
+      3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0236FF123CE0
+      4E4F524D4C4A4848484343433F3F3F3B3B3B3838383535353434343232323232
+      323232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2C2C2C2C2C2C2A
+      2A2A2828282626262323232020201D1D1B1B1A1C0623B80027EF0026E40025E3
+      0024E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9001F
+      D8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE00
+      1ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C2
+      0014C10014C00013C10013C00012BF0011BD0011BC0010BA0010B9000FB8000F
+      B7000EB6000EB5000DB4000CB2000CB1000AB80B128025251F2525242323231E
+      1E1E181818111111090909080808070707060606060606040404030303030303
+      585858ADACACA7A6A6A1A0A09B9B9A959494908F8F8A8A8A8585848080807B7B
+      7B7676767272726D6D6D6968686464656060605B5B5B535353504F504C4C4C48
+      48474444444040403F3F3F4140414646464343434141413D3D3D3B3B3B383838
+      3737373333333131313030302D2E2D2C2C2D2B2B2B2A2A2A2929282828271C1B
+      1B15151514141413131312121211121216171716151516151516151515141415
+      1414141414141414141414141314131413141313131313131313131312121313
+      1212131212121212121212111211121212111111121211121111111111111011
+      111111110E0D0D0C0C0C0C0C0C0C0C0C0C0D0D14151522212224232426262526
+      27262121210B0A0A080809090909090809080808080808080808080707080707
+      0808070808080807080707070E0E0E1414141616161616161717171717171818
+      181818181919191414140B0B0B08080807070808070807080807080807070707
+      07070707070607070807081212121919191919191919191A1A1A1A1A1A1B1C1C
+      19191A0808090303030303040303040304030303020203030202020203030302
+      0203030202020202020202020202020202020202020102020202010202020102
+      0102010201010102010101010101010101010101010101010101010100000101
+      0000000100010100000000000101000000000000010000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303434343B3B3B4040404040403F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F
+      3F3F3F3F3F3F3837382F2F2F2F2F2F2F2F2F2F2F2F3030303939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838373736313131313131313131313131313131333333
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839383839383839383839383838383838383838383838383838
+      3838383838383838383838383838383838383838383837383837383737393838
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A393838383736363636363636363636363636
+      363636363636363636363636363232322F2F2F2F2F2F2F2F2F31313131313140
+      40404646464949494D4D4D5050504D4D4D3636363737373838383A3A3A3A3A3A
+      3D3D3D3E3E3E3F3F3F4242424444444646464848484A4B4B4D4D4D4F4F4F5252
+      52555554575757595A595D5D5D6061606363636767676A6A6A6E6E6E72727276
+      7676797A797E7E7E8282828686868B8C8B8F8F8F9494949999999E9E9EA3A4A4
+      A9A8A9ADADADB3B3B35C5C5D4141414444444646464848484B4B4B4C4C4C4D4D
+      4D4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A48484847
+      47474444444141413E3E3E39393935353531302B2A30471646F61447FF1546FF
+      1446FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3E
+      FF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0538FF0437FF3745794A
+      483F4545454242423E3E3E3B3B3B383838363636353535333333323232323232
+      3232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2C2C2C2A2A2A2929
+      292626262424242121211F1E1E1D1B160A22980028F70027EE0026E60025E300
+      24E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD8
+      001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001A
+      CD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C200
+      14C30014C20013C00013BF0012C00011C30011C70010C30010BF000FB9000FB7
+      000EB6000EB5000DB4000CB2000CB4020CA61E1F2E2424212323231F1F1F1919
+      191313130C0C0C0808080707070707070606060505050303030303032E2E2EAD
+      ACACA7A7A7A2A2A19D9C9D9796979191918C8C8C8786868382827D7C7D787778
+      7373736E6E6E6A6A6A6666656161615C5C5C5858585050504D4D4D4949494444
+      444141413F3F3F3B3B3B3C3C3C4342424242423E3E3E3C3C3C3A3A3A37383834
+      34343131313232322F2F2F2828292424252121221D1C1D181718171717151615
+      1415141313131211121414131717161615151615151615141515151515141514
+      1414141413141414131414131313131313131313131313121313131213121213
+      1213121312121212121212121211121212111112121111111111111111111111
+      0E0F0E0D0C0D0D0C0C0D0C0D0D0D0D1011102020212120202122222322222222
+      212020201515140E0E0D09090809080809080808080808080808080808080808
+      08070B0B0C121212161616161616161616171717171717181818181818171717
+      1010100808080808080808080708080708070708080707070708070707070707
+      070707070606070707060F0F101919191919191A1A1A1B1B1B1C1C1C1C1B1C1B
+      1A1A0C0C0B040403030304030403030303020303020303030302030302030303
+      0202020303020303020302020202020202020201020101020102020201010201
+      0201010101010201010101010101010101000101010100010101010000000100
+      0101000100000001000000010001000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303232323939393E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3F
+      3F3F3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      383938383938383838373131313131313131313131313131313131313A393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383838383838383838383838383838
+      383838383838383838383838383838383838383838373838373838383A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A393939373636373636363636363636363636363636
+      3636363636363636363535352F2F2F2F2F2F2F2F2F3030303131313636364545
+      454747474B4B4B4E4E4E5050504343433737373838383A3A3A3B3B3B3D3D3D3E
+      3E3E4040404242424444444747474848484B4B4B4D4D4D504F50525353555455
+      5757575B5A5A5E5F5E6161606564646868686B6B6B6F6F6F7273737677777B7B
+      7B7F7F7F8282828787888C8C8B9090909595969A9A9A9F9F9FA4A5A5AAAAAAB0
+      B0B0A9A9A94747474343434545454747474A4A4A4B4B4B4D4D4D4E4E4E4E4E4E
+      4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4949494747474444
+      444040403D3D3D393939333333302D232436771649FF1647FF1547FF1546FF14
+      46FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF
+      0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0238FF233CA04542364040
+      403E3E3E3D3D3D3A3A3A38383836363635353534343433333333333332323232
+      32323030303030303030302F2F2F2F2F2F2E2E2E2D2D2D2C2C2C2A2A2A282828
+      2525252323232121211F1E1C1A1C25101F660623B90026EA0027F00025E60024
+      E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD800
+      1FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD
+      0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C60114B4080E
+      47090E3C090E3D080E45070E51050E65040E79020F930010B5000FB9000FB700
+      0EB6000EB5000DB4000CB3000BB71317542322192222221F1F1F1A1A1A151515
+      0E0E0E0909090808080707070707070505050404040303030E0D0D9F9F9FAAAA
+      AAA4A3A49E9E9E9897979292928D8D8D8887878382827E7E7D7979787474746F
+      6F6F6B6B6B6666666162625E5D5D59595A5555554E4E4E4A4A4A464546424142
+      3F3F3F3C3C3C3939393838384041413F3F3F3D3D3D3A3A3A363636302F302A2A
+      2A2525262020201E1D1E1C1B1C1A1B1B18181818181817171716161514141413
+      1314121212161616171617161615161515161515161515151415141414141514
+      1414141314131413141314131414131413131313131312131312121313131312
+      121312121212121212111212121112111112111211121111111111110F0E0F0C
+      0C0D0D0D0D0C0C0C0C0C0C0D0D0D1F1F1F1F20202120212120201F201F1D1E1E
+      1C1D1C1B1B1B17181710100F0909080809090808080808080909090F100F1616
+      16161717161716181817171717181818181818191919141414090A0A08080808
+      0908080807070808080808080808070808080708070707070708070707060707
+      0707070607070606070D0C0D1819181919191A1A1A1B1B1B1B1B1B1C1B1C1C1D
+      1D0C0C0D03040304040303030303030303020302030302030303030303020303
+      0202020202020203020202020202010202010202020102010201020202010102
+      0101020101010201010101010101010101000101010101000101010101010001
+      0001000001000000000101000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303131313636363B3B3B3C3C3C3C3C3C3D3D3D3D3D3D3E3E3E3C3C
+      3C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F38373739393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383131313131313131313131313131313131313838383A39393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3938393938393838393838393838393838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A37373737363636363636363636363636363636363636
+      36363636363636363130312F2F2F2F2F2F3030303131313232323F3F3F474747
+      4949494C4C4C4F4F4F5050503C3C3C3838383A3A3A3B3B3B3D3D3D3E3E3E4040
+      404242424444444747474949494B4B4B4D4E4E5050505253535655565858585B
+      5B5B5F5E5F6162616665656968686C6C6C7070707474747878787C7C7C80807F
+      8584858989898D8E8E9292929797979C9C9CA0A0A0A6A6A6ABABABB1B1B19595
+      954141414444444747474A4A4A4B4B4B4D4D4D4D4D4D4E4E4E4F4F4F4E4E4E4E
+      4E4E4C4C4C4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A494949474747444444414141
+      3C3C3C373737333333302C21213C9C164BFF1748FF1648FF1547FF1546FF1446
+      FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B
+      3EFF0A3DFF093CFF093BFF083BFF073AFF0339FF1738BE3B39353B3B3A3B3B3B
+      3A3A3A3939393838383636363636363535353333333333333333333232323232
+      323030303030303030302F2F2F2F2F2F2E2E2E2D2D2D2B2B2B29292927272725
+      25252222222020201E1D1B1D1B0F1A1A19121D500822A30026E20026EF0024E6
+      0024E20024E00023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD8001F
+      D7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD00
+      19CB0019CB0018CA0018C90017C70016C60016C50016CF0512780E0C000D0C03
+      0C0C040D0C030C0B010C0B000B0A040A0A09030E840010C1000FB8000FB7000E
+      B6000EB5000DB4000CBC0910781E1E1720201F1E1E1E1A1A1A1515150F0F0F0A
+      0A0A090909070707070707060606050505050505040404818181ABABABA5A4A4
+      A09F9F9A99999494948F8F8E8A89898484847F7F7F7A7A7A7574747071706C6C
+      6C6767676363625F5F5F5B5A5A5757585252524B4B4B4747464343434040403C
+      3C3C3939393737373636363C3D3D3737362E2E2F282828252626232424222223
+      2020201F1F1F1C1B1B1A1B1A1818191818181717171615161515151313131414
+      1418171718171716151516151516151516141515151515151414141414141514
+      1414141414141314131313131413131313131313131313131212121312121212
+      1212121212121212121212111212121111121111111111111010100D0C0D0D0D
+      0D0C0D0C0C0C0D0D0D0E1A1A1A1E1E1E1E1D1E1D1E1D1E1E1D1C1C1C1C1C1C1B
+      1B1B1B1B1B1B1B1A1918191111110909090D0D0D161616171717171716171717
+      1717171818181818181919191717170D0D0E0809090909090808080808080808
+      090808080808080708080708080A090A08080807070707070707070707070706
+      06070607060706070B0A0B161617191A191A1A1A1C1C1C1C1C1C1D1D1D1D1C1C
+      0D0D0D0303040304030303030303030303030302030303020303020202030302
+      0302030302020202020202020202020201020201010202020201010201020101
+      0101020101010101010101010101010101010001010000010101010100010000
+      0001010000000001000000000000000100000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303434343B3B3B3C3C3C3D3D3D3D3D3D3E3E3E2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3737373939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      38383332323131313131313131313131313131313737373A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3839393839383839383839383839383838383838383838383838383838383838
+      38383838383838383838383838383838383838373939393A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3838383736363736363636363636363636363636363636363636
+      363636363434342F2F2F2F2F2F3030303030303232323535354646464747474B
+      4B4B4D4D4D5050504D4D4D3B3B3B3A3A3A3B3B3B3D3D3D3F3F3F414141424242
+      4444444747474949494B4B4B4E4E4E5050505353535656555959595C5C5B5F5F
+      5F6362636665666969696C6C6C7070707474747979797C7D7D80808184858489
+      89898E8E8E9393939898989C9D9DA1A1A1A7A7A7ADADADB2B2B2808080444444
+      4646464949494B4B4B4D4D4D4E4E4E4F4F4F4E4E4E4F4F4F4F4F4F4E4E4E4E4E
+      4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4949494848484545454141413C3C3C37
+      37373332312E2D26203EAD174BFF1749FF1748FF1648FF1547FF1546FF1446FF
+      1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3E
+      FF0A3DFF093CFF093BFF083BFF053AFF1338C837363637373537373738383837
+      3737373737373737363636353535343434333333333333333333323232323232
+      3030303030303030302F2F2F2F2F2F2D2D2D2C2C2C2B2B2B2929292626262424
+      242121212020201E1E1F1C1B191C1A101A1912131A3D091F8E0224D60025EE00
+      24E80024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD8001FD7
+      001ED5001ED7001EDC001DD5001CD2001CD1001BD0001ACE001ACE001ACD0019
+      CB0019CB0018CA0018C90017C70016C80016C40A0F330E0D060D0D0D0D0D0D0C
+      0C0C0C0C0C0C0B0B0B0B0A0B0A00050D660011C60010B9000FB8000FB7000EB6
+      000EB5000DB8020D9C16161C1C1C191C1C1C1919191616161010100A0A0A0909
+      09080808070707060606060606050505040404616161ADADACA7A6A7A1A0A09B
+      9A9A9595959090908A8A8A8585858080807A7A7A7576757172726D6D6D696868
+      6464645F5F5F5B5C5C5758575353535050504848484444444040403D3D3D3939
+      393737373434343131312E2D2D2B2B2C2A29292727272425252223232020201F
+      1F1F1D1D1D1A1B1A191919191818171717161616161616151414161616181716
+      1717171716151715151615161615151515151515151414141414141514151314
+      1414141414141413141313131313131413131313121212121313131213131212
+      12121212121212121212121211121211121111121111110D0D0D0C0C0D0C0D0D
+      0D0D0C0C0C0D1212121C1C1C1E1D1E1D1D1C1D1D1D1C1D1C1C1C1C1B1B1B1B1B
+      1B1B1A1B191A1A1A191A18191818181919181918181818171817181818191818
+      18191919191212120A0A0A090909080808090809080808080809080809080808
+      0808080909080A0A0A0A0A0A0909090909090707080707070707070706070706
+      07070607060707080909151515191A191B1B1B1C1C1C1C1D1D1D1C1D1E1E1E0D
+      0E0D030403030303030303030303030303030203020302030302030203020202
+      0302020202020202020202020202010202020101010202020201010201020101
+      0101010201010101010101010101010101010100000101010100010101000001
+      0101000000010101010000000001000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303939393A3A3A3B3B3B3D3D3D3E3E3E3030302F2F2F2F
+      2F2F2F2F2F2F2F2F343434393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383434
+      343131313131313131313131313131313535353A39393A39393A393939393939
+      3939393939393939393939393939393939393939393939393939393939393938
+      3939383938383938383938383938383838383838383838383838383838383838
+      383838383838383838383838383838383838383B3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A393939373636373636363636363636363636363636363636363636363636
+      3636363130312F2F2F3030303030303232323232323D3C3D4646464848484B4B
+      4B4D4D4D4F4F4F4949493A3A3A3C3C3C3D3D3D3F3F3F41414142424245454547
+      47474949494B4B4B4E4E4E5151515353535757575A5A5A5C5C5B5F6060636363
+      6767666A6B6B6D6D6D7171717576757979797D7D7D8282828686868A8A8A8F8F
+      8F9394939898999D9D9DA3A3A3A8A8A8ADADADB2B2B26C6C6C4545454848484A
+      4A4A4D4D4D4E4E4E4F4F4F5050505050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E
+      4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A4848484545454141413D3D3D3838383332
+      312E2D26203FAF184CFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF13
+      45FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF
+      0A3DFF093CFF093BFF063AFF1438C73635343636343636363737373737373737
+      3737373737373736363635353534343433333333333333333332323232323230
+      30303030303030302F2F2F2E2E2E2D2D2D2C2C2C2A2A2A292929272727242424
+      2222222020201E1E1E1C1C1D1B1B1A1A191219170D14182C0B1D760322C60025
+      E80024E20023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD9001FE200
+      1ED2041BA7001DD2001DD7001CD2001CD1001BD0001ACE001ACE001ACD0019CB
+      0019CB0018CA0018C80018D00314990E0E0B0E0E0D0E0E0E0E0E0E0E0E0E0C0C
+      0C0C0C0C0C0C0C0B0A02060C490011C00010BA0010B9000FB8000FB7000EB600
+      0EB7000DB10D0F2F15150F1818181717171515151010100B0B0B090909090909
+      080808070707060606060606040404414141ADADACA8A7A7A1A1A19C9C9C9696
+      969190908B8B8B8686868180807D7C7C7878777272726D6D6D69696A65656560
+      60605C5D5D5858585454555151514D4C4C4646464141413E3E3E3B3A3B373737
+      3434343131312D2D2E2C2C2D2929292727272525252222222122211F1F201D1D
+      1D1B1C1C19191918181817171716161616161616161618181918171718171717
+      1615171615161616161615161515151515151415151514141414141414141414
+      1413141413131314141413131313131313131313121213121212121312121212
+      121212121211121112111111111111111111120E0E0E0D0D0D0C0C0D0D0D0D0D
+      0C0D0C0D0C0C0C0C100F0F1616161C1B1C1C1C1D1C1D1C1C1C1C1B1B1B1B1B1B
+      1B1B1B1A1A191A19191A1919191919191919191919191919191A1A1615160C0D
+      0D0A09090909090909090909090909080909080908080809080908090A0A0A0A
+      0A0A0A0A0A0A0A0A0A09090A090A090909080709070707070707070707060607
+      0706060606070809091415141A1A1B1B1B1B1C1C1C1D1D1C1E1E1E1E1D1E0D0D
+      0D03040303030403030303030303030303030303030302030303020302020202
+      0203020202020202020202020202010202020201020102020201020102010101
+      0101010101010101010101010101010101010101010001010100000101000001
+      0100010101000000000000000001000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303636363939393A3A3A3C3C3C3D3D3D3232322F2F2F2F2F2F2F2F
+      2F2F2F2F3333333A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838353535313131
+      3131313131313131313131313333333A39393A39393A39393A39393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393838393838393838393838383838383838383838383838383838383838
+      3838383838383838383838383838383A3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A37373737363636363636363636363636363636363636363636363636363635
+      34342F2F2F3030303030303131313232323333334242424747474949494B4B4B
+      4E4E4E4F4F4F4848483C3C3C3E3E3E3F3F3F4242424343434545454747474A4A
+      4A4C4C4C4F4F4F515151545454575757595A5A5D5D5D6160616363636767676A
+      6B6A6E6F6E7171717676767A7A7A7E7E7E8282828787878B8C8C909090959495
+      9A9A9A9F9F9FA4A4A4A9A9A9AEAEAEB2B2B25A5A5A4747474949494C4C4C4D4D
+      4D4F4F4F5050505151515151515050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E4C
+      4C4C4C4C4C4C4C4C4B4B4B4848484545454242423E3E3E3838383333332F2C23
+      223EA3184DFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345
+      FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF0A
+      3DFF093CFF073CFF1538C1333330353433363636363636373737373737373737
+      3636363636363535353535353434343333333333333333333232323232323030
+      303030303030302F2F2F2E2E2E2D2D2D2C2C2C2A2A2A29292927272725252523
+      23232121211F1F1F1C1C1C1B1B1B19191918171217150914151B0C1B700124E1
+      0024E20023DF0023DE0022DD0022DC0021DB0021E20020DF061C9D0E153B1212
+      0C0B165B001DD4001DD8001CD2001CD1001BD0001ACE001ACE001ACD0019CB00
+      19CB0018CA0018D10A1155100E040F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0D0D0D
+      0C0C0C0C0B06090C2B0011B90011BD0010BA0010B9000FB8000FB7000EB6000D
+      BC080D53100F051212121313131313131010100C0C0C0A0A0A09090909090908
+      0808060606060606050505242424ACABABA8A8A8A3A2A29D9D9D989797939292
+      8C8C8C8786878382827D7D7D7878787373736E6E6F6B6A6A6565656161615D5D
+      5D5959595455545252524D4D4D4A4A4A4444443F3E3F3B3A3A37373735353532
+      32322F2F2F2C2D2D2B2B2A2828282525252323232222211F1F1F1D1D1D1E1D1E
+      1D1C1D1B1B1C1B1B1C1B1B1B1C1C1B1B1B1A1919191818171817171716161716
+      1617161516151516151515151515151514141414141414141414141414141414
+      1414141413131414131313131314131313131313131213121213121212121312
+      1212121212111212111112111211120E0E0F0D0D0D0C0D0D0D0D0D0D0C0D0C0C
+      0C0C0D0D0C0C0D0C0C0C0B0C0C1112121919191C1D1C1C1C1C1B1B1B1B1B1B1B
+      1B1B1A1B1B191A1A1A1A191A1A1A1A1A1A1919191211120A09090909090A0A0A
+      0909090909090909090909090909080808080909090B0B0A0A0A0A0A0A0A0A0A
+      0A0A0A0A0A090A0A0A0A0A090A09090909080807070707070706070707070606
+      07060606070707081212121A1A1B1B1B1B1C1C1C1D1C1D1D1E1D1D1E1D0D0E0D
+      0303030303040303030303030303030303030302020203030303020202020202
+      0203020202020202020202010102020101010201020201010201010101020101
+      0201010201010101010101010101010101010101010100000101010101000001
+      0000010000000001010000000001000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303434343838383939393B3B3B3D3D3D3635362F2F2F2F2F2F2F2F2F2F2F2F
+      3131313A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383837373631313131313131
+      31313131313131313131313A3A393A39393A39393A39393A3939393939393939
+      3939393939393939393939393939393939393939393939393939393939383939
+      3839383839383839383839383838383838383838383838383838383838383838
+      38383838383838383838383939393B3A3A3B3A3A3A3A3A3A3A3A3A3A3A393938
+      3736363736363636363636363636363636363636363636363636363636363232
+      323030303030303131313131313333333535354545454848484A4A4A4C4C4C4D
+      4D4D4E4E4E4747473E3E3E3F3F3F4242424343434646464747474A4A4A4C4C4C
+      4F4F4F5252525555555757575B5B5B5E5E5E6161616464646868686B6B6B6F6F
+      707372737776767B7B7C7F7F7F8383838787878C8C8C9191919596969A9A9A9F
+      9F9FA5A5A5AAAAAAB0B0B0ABABAB4C4C4C4949494B4B4B4D4D4D4F4F4F505050
+      5050505252525252525151515050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E4D4D
+      4D4C4C4C4B4B4B4949494646464242423E3E3E3A3A3A343434312D222539841A
+      4DFF194BFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF
+      1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF0A3D
+      FF073DFF1A37A534312634333335353536363637373737373737373736363636
+      3636363636353535353535343434333333333333333333323232323232303030
+      3030303030302F2F2F2E2E2E2D2D2D2C2C2C2B2B2B2929292828282525252424
+      242222221F1F1F1C1C1C1B1B1B18181817171616140B12162E0124DC0024E400
+      24E10023DF0023DE0022E00022E7041FB70D175014130E14130A131210131206
+      0C1555011DD3001DD9001CD2001CD1001BD0001ACE001ACE001ACD0019CB0019
+      CF0217B70F101C10100C1010101111111111111111111010100E0E0E0D0D0D0C
+      0C0A0B0C130111A80011C00011BB0010BA0010B9000FB8000FB7000EC0050E72
+      0E0E060E0D0D0E0E0E0F0F0F0E0E0E0C0C0C0B0B0B0909090909090808080707
+      070606060505050D0D0DA09F9FAAAAAAA4A4A49E9E9E9897979392928D8D8D88
+      88888383837D7D7D7979797474747070706A6B6A6666666262635E5E5E5A5A5A
+      5555565252524F4E4E4B4B4B4747474141413C3C3C3838393536353232322F2F
+      2F2D2D2D2B2A2A2829282525262525252424242524252323232222222020201E
+      1E1E1D1D1D1C1C1C1C1C1B1B1B1A191919181718181717171616171616171616
+      1715151616161616151515141514151415141514151414141414141414141413
+      1414141314131313131313141313131313131213131312121213121312131212
+      12121212121112111212110F10100E0D0E0D0D0D0D0D0D0C0D0C0D0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0F0F0E1717161C1C1C1B1C1C1B1B1B1B1B
+      1A1A1A1A1A1B1A1A1A1B1615160B0C0B0A090A090A0A09090A0A090A09090A0A
+      0909090909090909090A0A0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A0A0A0A
+      0A0A0A0A0A0A0A0A090A090A0909090808080707070707070707070707070607
+      060706060807081212121A1A1A1B1B1B1C1C1C1C1C1D1D1E1E1D1E1E0D0E0D03
+      0403030304030303030303030203030303030302020203020202030302020202
+      0202020202020202020202010102010201020201020201020101020102010101
+      0201010101010101010101010101000101010000000101010101000101010000
+      0000000101000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303333
+      333737373939393A3A3A3C3C3C3838382F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383131313131313131313131
+      313131313131313838373A3A393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393938393938
+      3938383938383938383938383838383838383838383838383838383838383838
+      383838383838383838383B3B3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A37373737
+      3636363636363636363636363636363636363636363636363636363535313131
+      3030303131313131313232323333333939394646464949494A4A4A4C4C4C4D4D
+      4D4E4E4E4C4C4C4040404242424444444646464848484B4B4B4D4D4D4F4F4F53
+      53535555555757575B5B5B5F5F5F6161616565656868686C6C6C706F70737474
+      7778787B7B7C8080808484848989898D8D8C9291929696969B9B9BA1A1A1A6A6
+      A5ABABABB0B0B09D9D9D4A4A4A4A4A4A4C4C4C4E4E4E50505051515152525252
+      52525252525252525151515050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E4C4C4C
+      4B4B4B4A4A4A4747474343433F3F3F3B3B3B35353531302A2A33561B4CFD1A4C
+      FF1A4BFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF12
+      44FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3DFF093DFF
+      223373322F253333333535353636363737373737373838383838383636363636
+      3636363635353535353534343433333333333333333332323232323230303030
+      30303030302F2F2F2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A282828262626242424
+      2222221F1F1F1D1D1D1A1A1A18181816150E0F18440025E20024E50024E20023
+      E00023E40022DC0B1C7A15161C16140A1515131414141414141313131312070D
+      1545011DCC001DDA001CD2001CD1001BD0001ACE001ACE001ACC001AD607157B
+      1210071211111212121212121212121212121111111010100F0F0F0D0D0B0C0C
+      0B03108C0012C50011BC0011BB0010BA0010B9000FB8000FBD030E900E0E100E
+      0E0C0E0E0E0D0D0D0D0D0D0D0D0D0C0C0C0A0A0A090909090909080808060606
+      050505070707888888AAAAAAA5A5A59F9F9F9A99999493938E8E8E8989898483
+      847F7F7F7979797575756F70706B6B6B6666666262625F5F5F5A5A5A57575752
+      52524F50504B4B4B4848474444443E3E3E3939393636363334343030302E2E2E
+      2E2D2E2D2D2D2B2B2B2929292727272626252324232222222020201F1F1F1E1E
+      1D1C1C1C1C1C1C1B1B1A19191918181719171817161617161617161617151516
+      1616161515151515151515151515141515141414151414141414131414141414
+      1313131413141314131413131313131312131313121312121212121312121212
+      121112121211121111110D0D0F0D0D0D0D0D0E0C0D0D0D0D0D0D0C0D0C0C0C0D
+      0C0C0C0D0C0C0C0C0C0B0C0B0B0B0C0B0B0E0E0D1617171C1C1C1C1C1C1C1C1C
+      191A1A0F0F0E0A0A0A0A0A0B0A0A0A0A0A0A0A0A0A0A0909090909090A0A0909
+      090B0B0C0C0C0C0C0C0C0C0B0B0B0B0B0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A
+      0A0A0A0909090A0909090909090A080808080707070607070607070707070706
+      0606070808071212131A1A1B1B1B1B1C1C1C1D1D1D1D1D1E1F1E1F0F0F0F0403
+      0304030303030303030303030303030303030303020202020203020203030303
+      0202020202020202020202020101020202010202020201010201020101010101
+      0101010101010101010101010101010101010100010101000100000001000100
+      0000000100000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030323232373737
+      3838383A3A3A3C3C3C3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3737373A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838333333313131313131313131313131
+      3131313635353A3A393A3A393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393839393839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383A3A393B3B3A3B3A3A3B3A3A3A3A3A3A3A3A3939393736363636
+      3636363636363636363636363636363636363636363636363635353530303031
+      31313131313232323232323535353B3B3B4747474949494B4B4B4C4C4C4E4E4E
+      4E4E4E4D4D4D4444444444444747474848484B4B4B4D4D4D5050505353535555
+      555858585B5B5B5E5F5F6262626666666868686D6C6D7070707474747878787C
+      7C7C8080808585858989898E8E8E9292929797979C9C9CA2A1A2A6A6A7ABABAB
+      B1B1B18F8F8F4A4A4A4C4C4C4E4E4E4F4F4F5151515252525353535252525252
+      525252525252525151515050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E4C4C4C4B
+      4B4B4848484545454040403B3B3B3737373232302E2E301F46D41B4EFF1A4CFF
+      1A4BFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244
+      FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0B3FFF0E3CEB2B2E3B30
+      2F2B323232353535373737373737383838383838383838383838363636363636
+      3636363535353535353434343333333333333333333232323232323030303030
+      303030302F2F2F2E2E2E2D2D2D2C2C2C2C2C2C2A2A2A28282827272724242421
+      21211E1E1E1C1C1C19191918160D0F1B540026E70025E50024E20024E50222CD
+      111A4918160B1817141717181717171616161515151515151414131412070D15
+      43021CC7001DDB001CD2001CD2001BD2001AD3001AD9001AD30E133713120A13
+      13131414141414141313131313131212121111111010100E0E0E0D0C03050F6F
+      0013CA0011BD0011BC0011BB0010BA0010B9000FBB010FAB0D0D190E0E0A0E0E
+      0E0E0E0E0D0D0D0D0D0D0C0C0C0B0B0B0A0A0A09090908080807070706060605
+      0505727272ABABABA5A5A5A0A0A09B9A9A9494948F8F8F8A8A8A848484808080
+      7B7A7A7575757171716C6C6C6868686364645F5F5F5A5A5A5858585353535050
+      504B4B4C4848494444444242423D3C3D3838373736363535353434343131312D
+      2E2D2B2B2B2929292828282625262425242322222020201F1F1F1E1E1E1C1D1C
+      1C1C1C1B1B1A1A1A191818181918181717161716161716161716161616161615
+      1515161515151514151514151515151514141414141414141414141314141414
+      1314131314131313131313131313131313121212121212131213131212121212
+      11121212111111121110101110100F0D0D0E0C0D0D0C0D0C0C0D0C0C0C0C0D0C
+      0C0C0C0C0C0C0C0C0B0C0B0C0C0C0C0C0C0C0B0C0C0C1616161515150C0C0B0B
+      0A0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A090A0A0A0A090A0A0B0D0C0D0C0C0C
+      0C0C0C0C0C0C0B0B0B0C0B0B0B0B0A0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A
+      0A0A09090A0A0A09090A09090908080907070707070706060706060707070707
+      06060708071212121A1A1A1C1C1C1D1D1D1D1E1E1F1F1E2021200E0E0E040303
+      0303030303030303030303030303030303030203020302030202020302020202
+      0202020202020202020202020202010202020201010101020201010201010201
+      0101010101010101010100010000010001010101010100000100010000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303636363838383A
+      3A3A3B3B3B3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3535353A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383835353531313131313131313131313131313133
+      33333A3A393A3A393A3A393A39393A39393A39393A3939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383938
+      3839383839383839383838383838383838383838383838383838383838383838
+      38383838383B3B3B3B3B3A3B3A3A3B3A3A3A3A3A3A3A3A373737373636363636
+      3636363636363636363636363636363636363636363737373333333131313131
+      313232323232323434343636363D3D3D4848484A4A4A4B4B4B4D4D4D4E4E4E4F
+      4F4F5050504B4B4B4747474949494B4B4B4E4E4E505050535353565656585858
+      5C5C5C5F5F5F6262626566666969686C6D6D7170717474747979797D7D7D8181
+      818585858989898F8E8E9394939898989C9D9DA2A1A2A7A7A7ADADADB3B3B384
+      84844B4B4B4E4E4E4F4F4F515151525252525252535353535353535353525252
+      5252525252525151515050504F4F4F4F4F4F4F4F4F4E4E4E4D4D4D4B4B4B4949
+      494646464242423D3D3D393939353535312E25273A7D1B4FFF1B4DFF1A4CFF1A
+      4BFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF
+      1143FF1042FF1041FF0F40FF0E40FF0D40FF0B40FF1A35A02E2C23302F2F3232
+      3235353537373738383839393938383838383838383838383836363636363636
+      3636353535353535343434333333333333333333323232323232303030303030
+      3030302F2F2F2E2E2E2D2D2D2D2D2D2B2B2B2A2A2A2929292626262323232020
+      201E1E1E1A1A1A1A170C0E1D670027ED0026E50025E30025E90422BC1918151A
+      19161A1A1A1A1A1A1A1A1A1919191818181616161616161514141413090F1436
+      021CBF001EE2001DDC001CCE021ABA0518990A166C1313131313131515151515
+      151515151616161414141414141313131111111010100F0D03080F510013CB00
+      13C10011BD0011BC0011BB0010BA0010BB000FB60B0D310E0E080E0E0E0E0E0E
+      0E0E0E0D0D0D0D0D0D0C0C0C0B0B0B0A0A0A0808080808080707070606066060
+      60ACACACA6A6A6A1A1A19B9B9B9595959090908A8A8A8585858080807B7B7B76
+      76767272726D6D6D686868646564605F5F5B5B5C5858585353535050504D4D4C
+      4949484645454243423F3F3F3D3D3D393A3A3636363434343131312E2E2E2D2D
+      2D2A2A2A2828282626262525252222232121211F1F1F1E1E1E1D1C1C1D1D1C1B
+      1B1A1A1A19191818191818171717181616171616171516171616161616161516
+      1516151515151515151515151515141414141415141414141413141314141414
+      1313131313141313131313121312131312121313131313121212121212121212
+      12121111121211111111111110101010100F0E0F0D0D0D0D0C0C0C0D0C0C0C0D
+      0C0C0C0C0C0C0C0B0C0B0B0C0C0C0C0C0C0C0B0B0B0B0B0B0B0A0B0A0B0B0A0A
+      0A0A0A0B0A0A0A0B0A0A0A0A0B0A0A0B0C0B0C0D0C0C0D0D0D0D0D0C0C0D0C0D
+      0C0C0C0B0B0C0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A
+      0A090909090A0A0909090A0A0808090707070707070707070706060606070607
+      060708071212121A1A1A1C1C1C1D1D1D1E1E1E2222222323240A0A0903030303
+      0303030303030303030303020303020203030303020302020302020303020202
+      0202020202020102020202020201020202010101010102010101010101010101
+      0101010101010101010101000101000101010000010001010001010001000000
+      0100000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303535353737373939393B3B
+      3B3D3D3D3232322F2F2F2F2F2F2F2F2F2F2F2F3333333A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383737363131313131313131313131313131313131313939
+      393A3A393A3A393A3A393A39393A39393A39393A393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383838383838383838383838383838383838383838383838
+      383A3A3A3B3B3B3B3B3A3B3A3A3B3A3A3A3A3A39393937363636363636363636
+      3636363636363636363636363636363636373737373737333233313131323232
+      3232323434343535353737373E3E3E4A4A4A4B4B4B4D4D4D4E4E4E4F4F4F5050
+      505252525252524D4D4D4B4B4B4E4E4E5050505353535656565959595C5C5C5F
+      5F5F6363636666666A6A6A6C6D6D7171707475757979797D7D7D818281858585
+      898A8A8F8E8E9493949898989C9D9DA3A3A3A9A9A9AFAFAFB4B4B47B7B7B4D4D
+      4D4F4F4F51515152525253535354545454545454545454545452525252525252
+      52525252525151515050504F4F4F4F4F4F4F4F4F4D4D4D4C4C4C4A4A4A474747
+      4444444040403B3B3B3636363332302E2F322047D31B4FFF1B4CFF1A4CFF1A4B
+      FF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF11
+      43FF1042FF1041FF0F40FF0D41FF103DE9282C3D2E2C27303131333333353535
+      3737373939393939393939393939393838383838383838383636363636363636
+      3635353535353534343433333333333333333332323232323231313131313131
+      31313131313030302F2F2F2E2E2E2C2C2C2A2A2A2828282525252222221F1F1F
+      1D1D1D1C190C0C1F7D0028F40026E60026E50025E60024DD161C3B1D1C161D1D
+      1D1D1D1D1D1D1D1C1C1C1B1B1B19191919191917171715151615140A0F153807
+      1A920B17680F143712131A13121014130C151414161616161616161616171717
+      1717171717171515151414141313131111110F0F0A0C0F290212A20013C30013
+      C80012C00011BC0011BB0010BE000FC3090E460E0E050E0E0E0E0E0E0E0E0E0E
+      0E0E0D0D0D0C0C0C0C0C0C0A0A0A0909090808080707070707074F4F4FADADAD
+      A7A7A7A2A1A19C9B9B9695959090908B8A8B8585858080807C7B7B7777777272
+      726D6D6D6969696565656060605C5C5D5858585454545050504D4D4D494A4A45
+      46464242423F3F3F3D3D3D3A3A3A3636363534343132312E2E2E2D2D2C2B2A2B
+      2928282626262525252323232122211F1F1F1E1D1E1C1D1C1C1D1C1B1B1B1A1A
+      1919181819181817171618171617161617161617161616161616151515161615
+      1515151515151415151515141414141414141414141414141414131314131313
+      1414141313131313131313131313121313121212121312121212121212121212
+      1212111212111112111111111011101011100F0F0E0F0E0D0D0D0C0D0D0C0C0C
+      0C0C0C0C0B0C0C0C0B0C0C0C0C0B0B0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0A0A
+      0B0A0B0B0A0A0B0B0C0D0D0D0D0D0D0D0C0D0D0D0D0C0D0C0C0C0C0C0C0C0C0C
+      0C0B0B0B0C0B0B0B0B0B0A0B0B0A0A0A0A0B0A0B0A0B0A0A0B0A090A0A0A090A
+      0A090A0A090A0909090909090909070707070707070706060607070607070607
+      0708071312121B1B1B1D1D1D2020202323222626262526260A0B0A0303030303
+      0303030303030303030303030203030303030302030202030302030302030202
+      0202020202020202010102020101010201020201010101010102010102010101
+      0101010101010101010101010100010001010101000000010000000000010000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303333333737373939393A3A3A3D3D3D
+      3535362F2F2F2F2F2F2F2F2F2F2F2F3030303A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      39383939383938383131313131313131313131313131313131313737373A3A3A
+      3A3A393A3A393A3A393A39393A39393A39393A39393939393939393939393939
+      3939393939393939393939393939393939393939393939393839393839383839
+      3838393838393838383838383838383838383838383838383838383838393938
+      3B3B3B3B3B3B3B3B3A3B3A3A3B3A3A3A3A3A3837373636363636363636363636
+      3636363636363636363636363637373737373738373732323232323233333334
+      34343535353636363737373D3D3D4A4A4A4D4D4D4D4D4D4F4F4F505050525252
+      5454545555555656565252525151515353535656565959595C5C5C5F5F5F6363
+      636666666A6A6A6E6D6E7172727475747979797D7D7E8182828687868B8A8A8F
+      8F8F949494999999A0A0A0A6A6A6ABABABB0B0B0B6B6B67171714E4E4E4F4F4F
+      5151515454545454545555555555555454545454545454545252525252525252
+      525252525151515050504F4F4F4F4F4F4F4F4F4D4D4D4B4B4B49494945454542
+      42423E3E3E393939343535312F272B35581D4DF31C4EFF1B4CFF1A4CFF1A4BFF
+      194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF1143
+      FF1042FF1042FF0E41FF20306F2C291F2E2E2E31313134343437373738383839
+      39393A3A3A3A3A3A3A3A3A383838383838383838383838363636363636363636
+      3535353535353434343333333333333232323232323232323232323232323232
+      323333333333333232322F2F2F2C2C2C2A2A2A2727272424242121211E1E1D1C
+      1B130A22950028F40027E60026E60026E50025EB12206A201E131F1F1F202020
+      1F1F1F1E1E1E1D1D1D1C1C1C1B1B1B19191917171717171716151015140E1614
+      0915140E15141215141316151516161617171718181818181818181817171717
+      17171616161515151313131212121111110F0F0D0D0E12090F3D04107F0012B7
+      0012C70011C50111B7070F670E0E170E0E0C0E0E0E0E0E0E0E0E0E0F0F0F0D0D
+      0D0C0C0C0C0C0C0B0B0B0A0A0A0909090707070707073E3E3EAEADAEA8A7A7A3
+      A2A29D9C9C9796969191918C8C8B8686868181817D7D7D7777777273726D6D6D
+      6969696565656161615D5C5C5858585555555151514D4D4D4A4A4A4645454343
+      433F40403D3D3D3A3A3A3636373435353131312E2E2E2D2D2D2B2B2B28292826
+      2726252525232323222222201F1F1E1E1E1D1D1D1C1D1C1B1B1B1A1A19191918
+      1918181817171817171716161716161716161616161615161515161615161515
+      1515151515151515151514141515151414141414141414141413141413141413
+      1314131313131313131312131312131312121213131212121212121112111212
+      121111121111111010111010111010101010100F100F0F0F0D0E0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0B0C0B0C0B0B0C0B0B0B0B0C0B0B0B0B0B0B0B0B0B0C0B0D
+      0D0E0D0E0D0E0D0D0D0D0D0D0D0D0C0D0D0D0C0C0C0C0C0D0C0C0D0C0C0C0B0B
+      0C0B0B0B0B0A0B0A0A0A0B0B0A0A0A0A0A0A0A0B0B0A0A0A0A0A0A0A0A0A0A09
+      09090A0909090A0A090909090907070706070606060707070707060707060607
+      07071414141D1D1D2121212525252829292C2B2B2B2A2B0C0C0C030304030304
+      0303030303020303030203020203030303020302020202020202020202020202
+      0201020202020101020101010201020101010102010202020102010101010101
+      0101010101000101010100010101000000000101000000010101010100010100
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303232323636363838383A3A3A3C3C3C3939392F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F3838383A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      383938383333333131313131313131313131313131313434343A3A3A3A3A3A3A
+      3A393A3A393A3A393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939383939383938383938
+      383938383938383838383838383838383838383838383838383838383A3A3A3B
+      3B3B3B3B3B3B3B3A3B3A3A3B3A3A3A3939373636363636363636363636363636
+      3636363636363636363737373737373838383737373333333333333434343535
+      353636363737373939393C3C3C4949494D4D4D4F4F4F51515152525254545455
+      55555757575959595B5B5B5A5A5A5B5B5B5B5B5B5C5C5C5F5F5F636363676767
+      6B6B6B6E6E6E727172767675797A7A7D7D7D8382838787878C8C8C9292929798
+      979D9D9DA2A2A2A7A7A7ACACACB1B1B1B7B7B769696950505051515153535354
+      5454555555555555555555555555545454545454545454525252525252525252
+      5252525151515050504F4F4F4F4F4F4E4E4E4D4D4D4A4A4A4747474545454141
+      413C3C3C373737333333312E252838761D4EFB1C4EFF1B4CFF1A4CFF1A4BFF19
+      4AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF1144FF
+      1043FF1D32882B29202D2C2C3030303232323535353838383939393939393B3B
+      3B3B3B3B3A3A3A3A3A3A38383838383838383838383836363636363636363635
+      3535353535343434333333333333323232323232323232323232333333353535
+      3636363535353232322D2D2D2B2B2B2828282525252222221F1F1D1C1C1C0725
+      B40028F10027E70027E70026E50026F00B239C21201A22222122222221212121
+      21212020201F1F1F1D1D1D1C1C1C1A1A1A1A1A1A181818171716161616171717
+      1717171717171818181717171818181919191919191919191919191818181818
+      181616161515151313131212121010100F0F0D0F0E050D0D060B0E2606107703
+      11900B0E2E0F0E040F0F0C0F0F0F0F0F0F0E0E0E0F0F0F0F0F0F0F0F0F0D0D0D
+      0C0C0C0B0B0B0A0A0A090909080808070707313131AEAEAEA8A8A7A3A3A29E9D
+      9E9897979291918D8C8C8787878282827D7D7D7878787373736F6E6E6A6A6A66
+      65656161615E5E5E5959595655555151514E4D4D4A4A4A474747434343403F40
+      3D3D3D3A3A3A3737373435343232322F302F2D2D2D2A2B2A2929292626262525
+      25232323222222201F1F1E1E1E1D1D1D1D1D1D1C1C1B1B1A1A19191819181818
+      1717181716181717171616171616171616161616161616161515151515151515
+      1515151515151515141515151514151414141414141414141414131314131314
+      1314131413131313131213131313121312121312121213121212121211121212
+      11111210111111111110101110101010101010101010101010100E0D0E0C0C0C
+      0C0C0C0B0C0C0C0C0C0C0B0B0C0B0C0B0B0B0B0B0B0D0D0D0E0D0E0D0D0E0D0E
+      0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0C0C0C0D0C0B0C0B0B0B
+      0B0B0B0B0B0A0B0B0A0A0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A
+      0A0A0909090A090A090908090707070706070707070606060706060707070A09
+      0A1A1A1A2222222726272C2C2C30303031313117181803040304030403030303
+      0303030303030303030303030302030202020202030303020302020202020202
+      0202020202020202010102020102020102010101020101010101010102010101
+      0101010101010101000100000100010001000001000100000000000100000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303131313636363838383A3A3A3C3C3C3D3D3D2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F3535353A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3535353131313131313131313131313131313131313A3A3A3A3A3A3A3A3A3A3A
+      393A3A393A3A393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393938393938393838393838
+      3938383938383838383838383838383838383838383838383938383B3B3B3B3B
+      3B3B3B3B3B3B3A3B3A3A3B3A3A38383836363636363636363636363636363636
+      3636363636373737373737383838383838383838343434343434353535363636
+      3737373939393A3A3A3C3C3C4645464F4F4F5151515252525454545656565757
+      575A5A5A5C5C5C5E5E5E6060606363636464646666666767676A6A6A6C6C6C70
+      70707373737979797D7D7C8080808685868B8B8B908F909494949999999D9E9D
+      A3A3A3A8A8A8ADADADB3B3B3B9B8B86363635151515353535454545555555656
+      5656565656565656565654545454545454545454545452525252525252525252
+      52525151515050504F4F4F4F4F4F4E4E4E4C4C4C4949494747474343433F3F3F
+      3B3B3B363737333332312E252838711E4CED1B4FFF1B4CFF1A4CFF1A4BFF194A
+      FF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1246FF1243F91E33822A
+      281F2D2C2A2F2F303232323535353737373939393A3A3A3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3A3A3A3A3A3838383838383838383838383636363636363636363535
+      3535353534343433333333333332323232323233333333333335353536363636
+      36363333332F2F2F2C2C2C292929262626232323201F1C1B1D260327D50028EF
+      0028E90027E70027E70026EB0425CA2021282322202424242323232323232121
+      212121212020201E1E1E1D1D1D1C1C1C1B1B1B1A1A1A1919191919191A1A1A1A
+      1A1A1A1A1A1A1A1A1919191A1A1A1A1A1A1A1A1A191919191919181818171717
+      1616161515151313131212121010101010100F0F0E0E0E080E0E090E0E0E0F0E
+      080E0E0E0F0F0F1010100F0F0F1010100F0F0F0F0F0F0F0F0F0E0E0E0C0C0C0C
+      0C0C0B0B0B0A0A0A090909080808262626AFAFAFA9A9A8A3A2A39E9D9D989898
+      9292928D8D8D8888888282827D7D7D7878787373736E6E6F6B6B6B6566656161
+      615E5E5E5959595656565152514D4E4E4A4A4A4747474343434140403D3D3D3A
+      3A3A3737373535353231322F302F2E2E2E2B2B2B292929272627252525232323
+      2122221F20201F1F1E1D1D1D1D1D1D1C1B1B1B1B1A1A19181918181817171817
+      1718161717171717161617161616161616161616161616161615151515151515
+      1515151414141415151414141414141414141414141414131413131314131413
+      1413141313131313131213121212131212131312121212121212121211111111
+      11111110111010111010101010100F100F0F10100F0F0F100F0F0F100E0D0F0C
+      0C0C0C0C0C0C0C0B0B0B0B0C0C0C0E0E0E0E0E0E0E0E0E0D0E0D0E0E0E0E0E0E
+      0D0E0D0E0D0D0D0D0D0D0D0D0C0D0D0D0D0C0C0C0C0D0C0C0C0B0C0C0B0B0B0B
+      0B0B0B0B0B0B0A0A0B0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A09090A0A0A09
+      0A090909090A09090908090707070707070707070607060708080A0909161616
+      2424242A2A2A3030303434343737370707070303030303040403030303030303
+      0303030303030303030203030203030203020302020202020202020202020202
+      0202020102020201010102020102020101020201010101010202010201010101
+      0101010001010101000101010100010000000100000000000003000001003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303636363838383A3A3A3C3C3C3E3E3E3131312F2F2F2F2F2F
+      2F2F2F2F2F2F3333333A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393838373731
+      31313131313131313131313131313131313737373A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A39393A39393A39393A39393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839383839383839
+      38383938383838383838383838383838383838383838383A39393B3B3B3B3B3B
+      3B3B3B3B3B3A3B3A3A3B3A3A3737373636363636363636363636363636363636
+      3637373737373738383838383839393939393935353535353536363637373739
+      39393A3A3A3C3C3C3E3E3E4242424C4C4C5353535454545656565858585A5A5A
+      5D5D5D5F5F5F6161616363636666666969696C6C6C6F6F6F7272727676767878
+      787D7D7D8080808484848888888C8C8C9191919596959B9A9A9F9F9FA4A4A4A9
+      A9A9AFAFAFB4B4B4BAB9BA5E5E5E525252535353565656565656565656575757
+      5757575656565656565454545454545454545454545252525252525252525252
+      525151515050504F4F4F4F4F4F4D4D4D4B4B4B4949494545454242423E3E3E3A
+      3A3A363636333332312E242C334E2145C11C4DFF1A4EFF1A4DFF1A4BFF194BFF
+      1849FF1749FF1748FF1548FF1448FF1447FF183FCD232F5C2B281F2C2C2A2F2F
+      2F3232323535353737373939393A3A3A3B3B3B3C3C3C3C3C3C3B3B3B3B3B3B3B
+      3B3B3A3A3A3A3A3A383838383838383838383838363636363636363636353535
+      3434343333333232323232323232323131313232323434343636363636363333
+      332F2F2F2C2C2C292929262626222222201F17171F460029E90029ED0028EA00
+      28E90027E70027E90026E31B234724231D242424242424242424232323222222
+      2222222121211F1F1F1D1D1D1C1C1C1D1D1D1C1C1C1B1B1B1B1B1B1B1B1B1C1C
+      1C1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A1A1A19191918181817171716
+      1616141414141414121212111111111111101010100F0F100F0E101010101010
+      1010101010101111111010101010101010100F0F0F0E0E0E0E0E0E0C0C0C0B0B
+      0B0A0A0A0909090808081D1D1DB0B0B0AAAAA9A4A4A39E9E9E9898989393938E
+      8E8E8888888383837D7D7D7878787474747070706B6B6B6665656262635E5E5E
+      5A5A5A5656565151514E4E4E4A4A4A4747474444444141413D3D3D3A3A3A3737
+      373535353232322F2F2F2E2E2E2C2C2C29292927272626252523232322222220
+      1F201F1F1F1D1D1D1D1D1D1C1C1B1B1B1A191919191918181717181717171717
+      1717171717171716161716161616161616161616161615151515161515151515
+      1515141514151515151414141514141414141414141413141313141413141313
+      1314131313131313131313121313131212121212121212121111111111121110
+      1111101110111010101010101010100F0F0F101010100F0F100F0F0F0F0F0D0D
+      0D0B0C0D0E0E0D0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0D0E0E0E0E0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0D0D0C0D0C0C0C0C0B0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0B0B0A0A0A0B0A0B0A0A0B0A0A0A0A0A0A0A0A0A0A090A090A0909090A
+      090909090A09090707080707070706070706060808070B0A0B1E1E1F2627262E
+      2E2E343434393939252626030303040303040304040404030403030403030303
+      0303030302020303030303020202020302020302020202020202020202020202
+      0202020202010102020201010201020101010101010101010201010101010001
+      0001010001000001010001000100000001000000030300010000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303232323636363838383B3B3B3D3D3D3E3E3E3535352F2F2F2F2F2F2F2F2F2F
+      2F2F3030303A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383232323131
+      313131313131313131313131313434343A3A3A3A3A3A3A3A3A3A3A3A3A3A393A
+      3A393A3A393A39393A39393A39393A3939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      383938383838383838383838383838383838383838383B3B3A3B3B3B3B3B3B3B
+      3B3B3B3B3A3B3A3A3A3A39373636363636363636363636363636363636373737
+      3737373838383838383939393A3A3A3A3A3A3737373636363737373A3A3A3A3A
+      3A3C3C3C3E3E3E4040404242424848485151515656565858585B5B5B5D5D5D60
+      60606262626464646767676969696C6C6C6F6F6F7373737676767979797D7D7D
+      8181818584858988898D8D8D9292929797979C9C9CA0A1A0A5A5A5AAAAAAAFAF
+      AFB2B2B2B5B5B558585853535354545456565657575758585858585857575757
+      5757565656565656545454545454545454545454525252525252525252525252
+      5151515050504F4F4F4E4E4E4D4D4D4B4B4B4747474545454141413E3E3E3B3B
+      3B37373733333332302A302F2B2937642241B01D49EA1A4CFC194CFF184CFF18
+      4AFF1748FD1845EF1B3EBC22336E29292A2C2A212E2E2D303030323232353535
+      3838383A3A3A3B3B3B3C3C3C3C3C3C3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B
+      3B3A3A3A3A3A3A38383838383838383838383837373736363635353534343434
+      343432323232323231313131313131313132323232323232323231302F2F2E2C
+      2D2C292A292328261C252215221D0911226F002BF50029ED0029EA0028EA0028
+      E90027E80027F014247426231725252525252525252524242423232323232322
+      22222121212020201F1F1F1E1E1E1E1E1E1E1E1E1D1D1D1D1D1D1D1D1D1D1D1D
+      1D1D1D1C1C1C1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A1818181818181717171616
+      1615151514141413131312121212121211111111111111111111111111111111
+      11111111111111111111111111111010100F0F0F0E0E0E0D0D0D0C0C0C0A0A0A
+      090909080808111111B0B0B0AAAAAAA4A3A49E9E9E9898989393938E8E8E8888
+      888383837D7E7E7879787474747070706B6B6B6767676263625E5E5E5A5A5A56
+      56565252524F4F4E4B4B4A4848494444444141413D3E3D3A3A3A373737353535
+      333333302F302E2E2E2D2C2C2929292627262626262323232222222020201F1E
+      1F1E1E1E1D1E1D1C1C1C1B1B1A1A1A1919191918171718181718171718171617
+      1616171616171617161616161516151616151516151515151616151515151515
+      1514151414151415141414141414141414141414141414141313141413141413
+      1413131312131213121212131212131212121212121212111112111111111111
+      10111111111010101010101010101010100F10100F100F0F100F0F0F0F0F0F0F
+      0F0F0E0F0F0F0E0F0F0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0E0D
+      0E0D0D0D0D0D0D0C0D0C0D0C0C0D0C0C0C0B0C0C0B0C0C0B0B0C0B0B0A0B0B0B
+      0B0B0B0B0B0B0B0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0909
+      0908080707080707070707070808070909091515152425242A2B2A3131313838
+      373B3B3B0B0B0B04040404030404040404030404040404030304030303030303
+      0303030302030203020302030303030303020202020202020202020202020202
+      0202020202010201020102020201010201010101010102010101010101010101
+      0101010101010101000101010100010103000300010130303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030323232353535
+      3737373939393B3B3B3D3D3D3F3F3F3434342F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F3837373A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838353535313031313131
+      3131313131313131313131313A39393A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A
+      393A3A393A39393A39393A39393A393939393939393939393939393939393939
+      3939393939393939393939393939393939393938393938393838393838393838
+      3938383838383838383838383838383838383939393B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3B3A3A39393936363636363636363636363636363637373737373738
+      38383838383939393A3A3A3B3B3B3B3B3B3939393737373A3A3A3A3A3A3C3C3C
+      3E3E3E4040404242424444444646464A4A4A5353535A5A5A5E5E5E6161616363
+      636565656868686B6B6B6D6D6D7171717373737777777B7B7B7F7F7F82828286
+      86868B8B8B8E8E8E9393929898989D9D9CA1A1A1A4A4A4A7A7A7A9A9A9AFAFAF
+      B5B5B55959595555555555555656565757575959595858585757575757575757
+      5756565656565654545454545454545454545452525252525252525252525251
+      51515050504F4F4F4E4E4E4D4D4D4A4A4A4747474545454141413F3F3F3B3B3B
+      383838353535323230312F272F2E272D303A29345B2637782538802536792732
+      5E292D3C2C2B272E2B212E2E2C2F2F2F3131313434343636363838383A3A3A3C
+      3C3C3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B
+      3A3A3A3A3A3A3838383838383838383737373636363535353434343333333232
+      3231313130303030302F31302C323029323025333023302F292D2D2F292C3722
+      2A4D1927661226810D26960428D2002BF3002AED0029EC0029EA0028EA0028E9
+      0027F20B25A424231E2424232525252525252525252424242323232323232222
+      222222222121212020201F1F1F2020201F1F1F1E1E1E1E1E1E1E1E1E1E1E1E1D
+      1D1D1D1D1D1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A191919181818181818161616
+      1515151515151414141313131313131313131212121212121212121212121111
+      111212121212121111111111110F0F0F0E0E0E0E0E0E0C0C0C0B0B0B0A0A0A09
+      0909131313B0B0B0AAAAAAA4A4A49E9E9E9998989393938E8E8E888888838383
+      7D7E7E7979797474747070706B6B6B6767676363635E5E5E5A5A5B5656565353
+      534F4F4F4A4A4B4949484445444141413E3E3E3B3A3A3837373535353333332F
+      30302E2E2E2D2C2C2929292727272626262423242223222020201F1F1F1E1E1E
+      1E1E1D1C1C1C1B1B1A191A191A19191818181918171817171817171717171716
+      1617171716161616161616161616161616161616151515151515151515151514
+      1515151514151514141414141414141414141414131414141414131314131314
+      1313131312131213131212121312121212121211111211111210111111101110
+      10111111101010101010100F0F10101010100F0F0F0F0F0F100F0F0F0F0F0E0F
+      0F0F0F0F0E0E0E0F0E0E0F0E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0D0D0C0C0D0C0C0C0B0C0C0C0C0B0B0B0C0B0B0B0B0B0A0B
+      0B0B0B0B0A0B0B0A0B0B0A0A0B0A0A0A0A0A0A090A0A090A090A0A0A09080808
+      07070708080707070807080B0B0B1E1E1E2627262F2F2E3535343A3A3B272727
+      0404040404040404040404040304040304040303030303030303030303030303
+      0302030303030302030302030302030302030202020203030302020202010202
+      0202020201010202020101010101020101010102010101010101010101010101
+      0001010101010000010101000303030100003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303232323434343636363838383A
+      3A3A3C3C3C3E3E3E3434342F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F353535
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393838373731303131303131313131
+      31313131313131313737363A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A39
+      3A3A393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393839393839383839383839383839
+      38383838383838383838383838383838383A3A3A3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3A3B3A3A3838383636363636363636363636363737373737373838383838
+      383939393A3A3A3B3B3B3B3B3B3D3D3D3C3C3C3A3A3A3A3A3A3C3C3C3E3E3E40
+      40404242424444444646464848484B4B4B4E4E4E5353535C5C5C616161666666
+      6868686C6C6C6E6E6E7272727474747878787B7B7B7F7F7F8383838888888B8B
+      8B8F8F8F9493939695959999999B9B9A9F9E9FA5A5A5AAAAAAB0B0B0B5B5B55B
+      5B5B565656565656575757595959595959595959585858585858575757575757
+      5656565656565454545454545454545454545252525252525252525252525151
+      515050504E4E4E4D4D4D4D4D4D4A4A4A4848484545454242423F3F3F3D3D3D39
+      393936363634343434333232312E312F28302D24302D23302D23302E272F2E2A
+      302F2E3131313333333434343535353838383939393B3B3B3C3C3C3D3D3D3E3E
+      3E3E3E3E3E3E3E3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B3A
+      3A3A3A3A3A383838383838373737363636343434333333323232313131303030
+      2F2E2E2F2E2C2B2E3E242F5D1E2F79182F94102FB00A2EC9032EE4012DF0002D
+      F6002DFE002DFE002CF5002AEE002AEE002AED0029EC0029EA0028EA0028F407
+      25BB232323242422252525252525252525252525252525242424242424232323
+      2222222222222121212020202020201F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1E
+      1E1D1D1D1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A18181818181818181817171716
+      1616151515151515151515141414141414131313131313131313121212121212
+      1212121212121111111010100E0E0E0E0E0E0C0C0C0B0B0B0A0A0A0909091313
+      13B0B0B0ABAAAAA5A4A49F9E9E9898989493938E8E8E8988888383837E7E7D79
+      79797575757070706B6B6B6767676363635E5E5E5B5A5B5656565353534F4F4F
+      4B4B4B4949494444454141413E3E3E3C3B3C3837383535353333333030302E2E
+      2E2D2D2C29292A2727272626262423232322222120201F1F1F1E1E1E1E1E1E1D
+      1D1C1B1B1A1A1A191A1918191818181718181718181717171717171717171717
+      1716161616161617161616161616161616151616161515151515151515151415
+      1415151514151514141414141414141314141414141413131314141313131413
+      1312131312131312131212121212121111121111121111121010111111101011
+      10111010101010101010101010101010100F0F10100F0F0F0F0F0F0E0F0F0E0E
+      0E0E0E0E0F0F0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0E0D0E0D0D0D0E0E0D0D
+      0D0D0D0D0D0D0C0D0D0C0C0C0B0B0C0C0B0C0B0B0B0B0B0B0B0C0B0B0B0A0B0B
+      0B0B0B0B0A0B0B0A0A0A0B0A0A0A0A0A0A090A0A0A0908090808070707070708
+      07080808090909141414242424292A2A3232313838383C3C3C0F0F0F04040404
+      0404040404030304030404030303030304040303030303030303030303030303
+      0303030303030302030203020202020202020303020203020202020201020202
+      0201010202010102020102010101010201010101010102010101010101010101
+      0101010101010001000300000101303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303232323434343535353737373A3A3A3C3C3C3D3D
+      3D3434342F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303837373A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383332323130313130313131313131
+      313131313333333A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A39393A39393A39393A3939393939393939393939393939393939393939
+      3939393939393939393939393939393939383939383938383938383938383938
+      383838383838383838383838383838383B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3A3B3A3A383838363636363636363636373737373737383838383838393939
+      3A3A3A3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F3D3D3D3C3C3C3E3E3E4040404242
+      424444444646464848484B4B4B4E4E4E5050505353535757575959595F5F5F64
+      64646968696D6C6D7373737777777A7A7A7D7D7D807F80848384858585888888
+      8B8B8B9191919696959A9A9A9F9F9FA5A5A5AAABAAB0B0B0B5B5B55C5C5C5757
+      575858585959595A5A5A5959595959595A5A5A59595957575757575757575756
+      5656565656545454545454545454545454525252525252525252525252515151
+      5050504E4E4E4D4D4D4D4D4D4A4A4A4848484545454343434141413E3E3E3C3C
+      3C39393938383836363635353534343433333333333333333334343434343435
+      35353737373838383A3A3A3B3B3B3C3C3C3E3E3E3F3F3F3F3F3F3F3F3F3F3F3F
+      4040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B3A3A
+      3A3A3A3A3838383737373636363434343232323030302F2F2F2E2E2E2F2C2322
+      2D5D0331F00031FB0031FF0030FF002FFF002FFE002FFA002EF8002EF5002DF3
+      002DF2002CF1002CF0002AEF002AEE002AED0029EB0029F20327D71A22472322
+      1D24242425252525252526262626262626262625252524242424242424242423
+      23232222222121212121212121212020201F1F1F1F1F1F1F1F1F1F1F1F1E1E1E
+      1D1D1D1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A1919191919191818181717171616
+      1616161616161615151515151514141414141414141413131313131312121212
+      12121212121111110F0F0F0E0E0E0D0D0D0C0C0C0B0B0B0A0A0A121212B0B0B0
+      ABAAABA5A4A49F9E9E9998989493938E8E8E8988888383837E7E7E7A7A7A7575
+      757071706B6B6C6767676363635E5E5E5B5B5A5656565453534F4F4F4B4B4B48
+      48494444444142413E3E3E3C3C3C3838383535363334333030302E2E2E2D2D2D
+      2A292A2727272626262423242322222021201F1F1F1E1E1E1E1E1E1D1C1C1C1C
+      1B1A1A191A1A1919181819181818181718181718171817171717171617171716
+      1616161616161617161616151616161516151515161515151515151515151415
+      1514141414151415141414141414141414141314131413141314141313141313
+      1313131313131212121213121212111112111111111111111111111110111111
+      11101011101010100F0F10100F10100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F
+      0E0F0F0E0F0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0E0D0D0D0D0D
+      0E0D0D0D0C0C0C0D0C0C0C0B0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A
+      0B0B0A0A0B0A0B0A0A0A0B0A0A0A0A0A0A090909080808080807070707080909
+      0C0B0B1C1C1C2627272E2E2E3535353A3A3A2F2F300505040404040404050404
+      0404040403040404040403030303030304030403040303030303030303030303
+      0303020203020303020202020202020202020303020202020202010202010201
+      0202020201020201020201020202020102010101010101010101010101010100
+      0101010103000301010130303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303232323434343535353737373939393B3B3B3D3D3D3434342E2E2E
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303837373A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938363535303030313031313031313131313131
+      3131313939393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3838383838383838383838383939383B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3A3B3A3A3737373636363636363737373737373838383838383939393A3A3A3B
+      3B3B3B3B3B3D3D3D3E3E3E404040414141424242404040404040424242444444
+      4646464848484B4B4B4E4E4E5050505353535757575959595C5C5C6060606363
+      636767676A6A6A6F6F6F7272727676767B7B7B7F7F7F8383838787878C8C8C91
+      91919696969A9A9A9F9F9FA5A5A5ABABABB0B0B0B5B5B55C5C5C575757595959
+      5A5A5A5A5A5A5B5B5B5A5A5A5A5A5A5A5A5A5858585757575757575757575656
+      5656565654545454545454545454545452525252525252525252525251515150
+      50504E4E4E4E4E4E4D4D4D4B4B4B4949494646464545454343434040403E3E3E
+      3C3C3C3B3B3B3939393939393838383737373838383838383939393A3A3A3B3B
+      3B3C3C3C3D3D3D3E3E3E3F3F3F40404041414140404040404040404040404040
+      40403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B3A3A3A
+      3939393737373636363434343232322F2F2F2E2E2E2B2B2B2C291F102FAD0033
+      FF0032FF0031FC0031FA0030F9002FF8002FF7002FFF002FFF002EFB002DF700
+      2DF4002CF3002CF1002AEF002AEE002AF20229E5172151222014232323242424
+      2525252626262626262626262626262626262525252424242424242424242323
+      232323232121212121212121212121211F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1D
+      1D1D1C1C1C1C1C1C1C1C1C1B1B1B1B1B1B1A1A1A191919191919181818171717
+      1616161717171616161515151515151414141414141414141313131212121212
+      121111111010100E0E0E0D0D0D0C0C0C0B0B0B0A0A0A121212B0B0B0ABAAAAA5
+      A5A49F9E9E9998989393938E8E8E8988888383837E7E7D7A7A7A757575717171
+      6C6C6C6867676463635E5E5E5B5B5B56565653535350504F4B4B4B4949494544
+      454142423E3E3E3C3C3C3838383536363334333030312E2E2E2C2D2D2A292928
+      27272626262424232222222121201F1F1F1E1E1E1E1E1E1C1D1C1B1C1B1A1A19
+      1A1A191A1A1A1A1A1A1A1A1A1919191A191919191A1919191918181818191818
+      1916161616161616161615161615161615151515151515151515151515151515
+      1515151414141414141414131414131414131414131413131314131413131313
+      1313121312121212121211121212111211111211111111111010101010101011
+      101010101010100F10101010100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0F
+      0E0E0E0F0F0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0E0E0D0D0E0D0D0D0D0D0D
+      0D0C0D0D0C0C0C0B0C0C0C0B0C0C0C0B0B0B0B0C0B0B0B0B0A0B0A0B0B0B0B0B
+      0A0B0A0B0A0A0A0A0A0A0A0A0A0808080808070707070809080A0A0912121324
+      24242A2A2A3131313839383C3D3C121213050405040404050404040404040404
+      0404040404030303040303030304030303030303030303030303030303030303
+      0302020302030303030302030302020302030202020201020202020201020202
+      0202020102010202020201010202010201010101010101010101000101010100
+      0003030100003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303232
+      323434343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F303838373A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393838383831313130303031303131303131313131313134
+      34343A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A39
+      3A39393A39393A39393A39393939393939393939393939393939393939393939
+      3939393939393939393939393939393839393839383839383839383839383838
+      38383838383838383838383939393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A
+      3A3A3A3737373636363737373737373838383838383939393A3A3A3B3B3B3B3B
+      3B3D3D3D3E3E3E40404041414142424245454445454543434344444446464648
+      48484B4B4B4E4E4E5050505353535757575959595C5C5C606060636363676767
+      6A6A6A6F6F6F7272727676767A7A7A7F7F7F8383838787878C8C8C9191919596
+      969A9A9A9F9F9FA5A5A5AAAAAAB0B0B0B5B5B55D5D5D5858585959595B5B5B5B
+      5B5B5C5C5C5B5B5B5A5A5A5A5A5A595959585858575757575757575757565656
+      5656565454545454545454545454545252525252525252525252525151515050
+      504F4F4F4E4E4E4D4D4D4B4B4B4A4A4A4848484646464444444343434141413F
+      3F3F3E3E3E3D3D3D3C3C3C3D3D3D3D3D3D3D3D3D3E3E3E3E3E3E3F3F3F3F3F3F
+      4141414141414141414141414141414242424242424141414040404040404040
+      403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B39393937
+      37373535353333333131312F2F2F2B2B2B2A29222329430232F20033FF0032FD
+      0032FD0031FB0031FA0030FA002FFB0A2BB80A2AB6052BD1022CE6012CEC002C
+      F2002DF8002DFE002CFE002BF5132268211E1221212123232324242425252527
+      2727262626272727272727262626262626252525242424242424242424232323
+      2323232121212121212121212121211F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1D1D
+      1D1C1C1C1C1C1C1C1C1C1B1B1B1B1B1B19191919191919191919191918181817
+      1717171717171717161616151515141414141414141414131313131313121212
+      1111110F0F0F0E0E0E0C0C0C0B0B0B0A0A0A131313B0B0B0ABABABA5A4A49F9F
+      9E9998989493938F8E8E8989888483837E7E7E7A7A797575757070706C6C6C68
+      68686364635E5F5E5B5B5B565656545454504F4F4B4B4B494949454445414141
+      3F3F3E3C3C3C3838383636353433333030302E2E2E2D2D2D2A2A2A2728282626
+      2624242422232320202121201F20201F20201F20201F1F1F1F1F1E1E1E1E1E1E
+      1D1E1D1D1D1D1C1D1E1C1C1E1D1C1D1D1C1D1D1D1D1D1D1C1C1D1D1D1C1C1C1C
+      1D1C1D1C1C1C1B1B1B1A1A1A1919181817171616171515151515151515141415
+      1515141514141414141414141414141314131314131313131313131313131213
+      1312131212121112121111121111121111111111111111111011101011101010
+      1010101010101010100F100F101010100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D
+      0C0C0D0C0C0C0C0C0B0B0B0C0B0C0B0B0C0B0C0B0B0B0B0B0A0B0A0B0B0A0B0A
+      0A0A0B0B0B0A09090A0808080808080808080908090C0B0C1B1C1B2727272E2F
+      2E3535353A3A3A30303005050504050405050505040404040505040504040404
+      0403040403040304040403030403030304030303030303030303030303030303
+      0302020302030203020303020302020202020202020201020202010201010202
+      0201010201010202020202010202020101010101010101010101010103030301
+      0001303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030323232343434353535
+      3737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F303838383A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383433333030303030303130313130313131313131313A3A
+      393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939383939383938383938383938383938383838
+      383838383838383838383A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3A
+      3A3A3737373737373737373838383838383939393A3A3A3B3B3B3B3B3B3D3D3D
+      3E3E3E4040404141414242424545444646454847474949494848484949494A4A
+      4A4E4E4E5050505353535757575959595C5C5C6060606363636767676A6A6A6E
+      6E6E7272727676767A7A7A7E7E7E8383838787878C8C8C9191919696959A9A9A
+      9F9F9FA5A5A5AAAAAAB1B1B1B7B7B75F5F5F5A5A5A5A5A5A5B5B5B5D5D5D5D5D
+      5D5C5C5C5B5B5B5A5A5A59595959595958585857575757575757575756565656
+      5656545454545454545454545454525252525252525252525252515151505050
+      4F4F4F4E4E4E4E4E4E4C4C4C4A4A4A4949494747474646464545454444444343
+      4342424242424241414141414141414141414142424242424242424243434343
+      4343434343434343424242424242424242424242404040404040404040404040
+      3F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3A3A3A3838383535
+      353232323030302C2C2C29292929261B112EA00035FF0033FF0032FF0032FE00
+      32FD0031FB0032FF072ECF22222421201C1E1F251C1E2B181F3E14205511226C
+      0E24830B26A210237C201E1721201F2223232424242626262727272727272727
+      2727272727272727272726262626262625252524242424242424242423232323
+      23232222222121212222222222222020202020202020201F1F1F1E1E1E1D1D1D
+      1D1D1D1C1C1C1C1C1C1B1B1B1A1A1A1919191919191919191919191717171717
+      1717171717171716161615151514141414141414141413131312121211111110
+      10100F0F0F0D0D0D0C0C0C0A0A0A141414B0B0B0AAAAAAA4A4A49F9E9F999898
+      9493938F8E8E8988898483837E7E7E7A7A7A7575757070706C6C6C6868686363
+      635E5E5F5C5B5B5656565454544F504F4B4B4C4949494545454242423E3F3F3B
+      3B3B3838383535353434333030302E2E2E2D2D2D2A2A2A282828272828272626
+      2626262424242422232322222121202121202020201F1F1F1E1E1F1D1E1E1D1D
+      1D1D1C1D1D1D1D1D1C1D1D1D1D1E1D1C1D1D1D1D1D1D1C1C1D1C1D1C1C1C1C1D
+      1C1C1C1C1C1C1B1C1D1C1C1D1C1C1C1C1B1B1B1C1A1A1A181718161615151414
+      1414141514141414141413131414141313131314141314131313131313121312
+      1212121213121113121112111111111111101011111111111010111111101110
+      10101010101010101010100F0F0F0F10100F0F0F0F0F0F0F0F0F0E0F0F0F0F0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0E0D0E0E0D0E0E0D0D0D0C0C0D0C
+      0C0C0C0C0C0C0B0B0C0B0B0C0C0C0C0C0B0B0C0B0B0B0B0B0A0B0B0B0B0B0B0B
+      0A0A090808080808090808090809090A0A1111122423232B2B2A313232383838
+      3D3D3D1717170505040404050404040504040405040504040404050404040404
+      0403030404030304030303040303040303030303030303030303030303020302
+      0203020302030203030302020302020202020202020202020201010202010202
+      0101020201010101020201010101010101010101010001010300030101013030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303232323434343535353737373939393B
+      3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30383838
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      39383939383837373030303030303030303130313130313131313635353A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393938393938393838393838393838393838383838
+      3838383838383838383A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3A
+      3A3939393737373838383838383939393A3A3A3B3B3B3B3B3B3D3D3D3E3E3E40
+      40404141414242424545444646454848474A49494C4B4B4E4D4D4F4F4F505050
+      5151525353535757575959595C5C5C5F5F5F6363636767676A6A6A6E6E6E7272
+      727676767A7A7A7E7E7E8282828787878C8C8C9191919696969B9B9BA1A1A1A7
+      A6A6ACACACB2B2B2B7B7B75F5F5F5B5B5B5C5C5C5C5C5C5D5D5D5D5D5D5D5D5D
+      5C5C5C5B5B5B5959595959595959595858585757575757575757575656565656
+      565454545454545454545454545252525252525252525252525151515050504F
+      4F4F4E4E4E4E4E4E4C4C4C4C4C4C4A4A4A494949494949474747464646454545
+      4545454545454444444444444444444444444545454545454444444444444444
+      444444444444444242424242424242424242424040404040404040404040403F
+      3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3A3A3A383838353535323232
+      2E2E2E2B2B2B2927212127400434F20135FF0134FF0034FF0032FF0032FE0032
+      FE0032FF17276A25221623222121201E201F1C1F1E181F1D151F1D121F1C0F20
+      1E16211F1921201F222222242424252525262626282828282828282828282828
+      2828282727272727272626262626262525252525252525252525252424242424
+      242323232323232323232323232222222222222222222121211F1F1F1F1F1F1D
+      1D1D1D1D1D1C1C1C1C1C1C1A1A1A191919191919191919191919171717171717
+      1717171717171616161515151414141414141414141212121111111010100F0F
+      0F0E0E0E0C0C0C0B0B0B131313B0B0B0AAAAAAA4A4A49E9E9E9998989493938E
+      8E8E8989898483847F7E7E7979797575757070706C6C6C6868686363635E5F5F
+      5B5C5B5656565353535050504C4B4B4949494545454242423E3F3F3B3B3C3838
+      383535353433343131312F2F2F2F2F2E2D2C2C2A2B2B2A292927272826262624
+      232423232323212121212021212020201F1E1F1F1F1E1F1D1E1D1D1D1D1D1D1D
+      1D1D1D1D1D1C1D1C1C1D1D1C1D1D1C1D1D1D1D1D1C1D1D1D1C1D1C1C1C1C1C1C
+      1C1C1C1C1C1C1C1D1B1B1D1C1B1D1C1B1C1C1C1C1D1C1C1C1C1C1B1B19191817
+      1716141415141414141414141414131414131313131313131313131312131212
+      1312121311121211111211111111111111101111111010101011111010101010
+      10101010100F101010101010100F0F0F0F100F0F0F0F0F0F0F0E0E0F0E0E0E0E
+      0F0F0F0E0E0E0E0E0E0E0E0E0E0E0D0D0E0D0D0E0D0D0D0E0C0D0D0C0C0C0C0C
+      0C0C0B0C0C0B0C0C0C0C0B0B0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B090A090809
+      080809080808080A09090B0B0B1919192627272D2D2D3635353B3A3B38383705
+      0505050504050404040505050405040405040405040404050404040304040404
+      0404040303030304030303030403030304030304030303030303020203030303
+      0202020202020203020202020203020202020202020202020202020201020102
+      0201010201020202010201010201010202020101030303010101303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303232323434343535353737373939393B3B3B3D3D3D3434
+      342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      383938383232323030303030303030303130313130313131313A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3939
+      3A39393A39393A39393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839383839383839383839383838383838
+      38383838383838383B3A3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3C3B3B
+      3939393838383838383939393A3A3A3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F4141
+      414242424545454646454848474A49494C4B4B4E4D4D51505053525256555559
+      58585A5A5A5C5B5C5F5F5F6060616363646767676A6A6A6E6E6E717171767676
+      7B7B7B7F7F7F8383838989898E8E8E9393939999999D9D9DA2A2A2A7A7A7ACAC
+      ACB2B1B1B7B7B76767675C5C5C5D5D5D5D5D5D5E5E5E5D5D5D5D5D5D5D5D5D5C
+      5C5C5B5B5B595959595959595959585858575757575757575757565656565656
+      5454545454545454545454545252525252525252525252525151515050504F4F
+      4F4F4F4F4E4E4E4D4D4D4C4C4C4B4B4B4A4A4A4A4A4A49494948484848484848
+      4848474747474747464646464646464646464646464646454545454545454545
+      4444444444444242424242424242424242424040404040404040404040403F3F
+      3F3E3E3E3D3D3D3D3D3D3D3D3D3B3B3B3A3A3A3838383535353232322E2E2E2A
+      2A2928261E112FA50137FF0335FF0235FF0134FF0034FF0032FF0033FF062FD7
+      2324292524212424242424242222222222222121212121212121212222212323
+      2223232324242425252527272728282829292928282828282829292929292927
+      2727272727272727262626262626262626252525252525262626252525252525
+      2525252626262626262626262525252424242424242323232121212020201E1E
+      1E1D1D1D1D1D1D1B1B1B1B1B1B19191919191919191919191917171717171717
+      17171717171616161515151414141414141313131212121111110F0F0F0E0E0E
+      0D0D0D0B0B0B1F1F1FB1B0B0AAAAAAA4A4A49E9E9E9999999493938F8E8E8989
+      898483847F7E7E7979797575757070716C6C6C6767676363635E5F5F5B5C5C56
+      56565353535050504C4C4C4848484545454242423D3E3E3B3B3C383938363635
+      3534333232323230312F2F2F2D2D2C2B2B2A2929282728282626262424242323
+      2322222222202121212020201F1F1F1E1F1E1F1E1E1D1E1D1E1E1D1D1D1D1D1D
+      1D1D1D1C1D1D1C1C1D1D1C1D1D1C1D1D1D1D1D1D1C1D1D1C1D1C1D1C1C1D1C1C
+      1C1C1C1C1C1B1C1C1C1D1C1C1D1C1C1C1C1C1C1C1C1C1C1B1B1C1C1B1B1C1B1B
+      1C191A1917171614141413141313131314131313131313131312121213121212
+      1211121212121111111111111111111011111010111011101010101010101010
+      1010101010101010100F10100F100F0F0F100F0F0F0F0F0F0E0F0E0E0F0E0E0E
+      0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0E0D0C0C0D0C0C0C0C0C0C
+      0B0C0C0B0C0B0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B090809090808090809
+      0A09090909090F0F0F2323232A2A2A3131313939393D3D3D1A1A1A0605050505
+      0505050405050405050504040504050405040404040404050404040404040404
+      0404040304040403030304030303030303030303030303020303020303030202
+      0302020202020302020202030202020202020201020202020201020202020101
+      0101010201020102010101010101010103030301010130303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303232323434343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3636363030303030303030303030303130313130313737373A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A
+      39393A39393A3939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383838383838
+      383838383938383B3B3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3C3C3B3C3B3B3B
+      3B3B3838383939393A3A3A3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F414141424242
+      4444444646454848474A49494C4B4B4E4D4D5150505352525655555858585B5B
+      5B5F5E5E6160606464646767676A6A6A6E6E6E7272727575757A7A7A7D7D7D81
+      81818686868A8A8A8E8E8E9393939898989D9D9DA2A2A2A7A7A7ABABABB1B1B1
+      B6B6B66D6D6D5D5D5D5E5E5E5F5F5F5F5F5F5F5F5F5E5E5E5D5D5D5D5D5D5B5B
+      5B5A5A5A59595959595959595958585857575757575757575756565656565654
+      54545454545454545454545252525252525252525252525151515050504F4F4F
+      4F4F4F4F4F4F4E4E4E4D4D4D4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A4949494A4A
+      4A49494948484848484847474747474747474746464645454545454545454544
+      44444444444242424242424242424242424040404040404040404040403F3F3F
+      3E3E3E3D3D3D3D3D3D3D3D3D3B3B3B3838383636363232322E2E2E2B29232128
+      490537FC0337FF0436FF0335FF0235FF0134FF0034FF0033FF152B8229251927
+      2727272727272727272727252525252525252525252525252525262626262626
+      2727272828282929292929292A2A2A2A2A2A2A2A2A2A2A2A2929292929292727
+      272727272727272626262626262626262626262727272828282828282929292A
+      2A2A2B2B2B2B2B2B2A2A2A2A2A2A2828282727272525252323232121211F1F1F
+      1D1D1D1D1D1D1C1C1C1B1B1B1919191919191919191919191717171717171717
+      171717171616161515151414141313131212121111111010100E0E0E0D0D0D0C
+      0C0C292929AFAFAFA9A9A9A3A3A39E9E9E9998989392928E8D8D898888838382
+      7F7F7E7979797474746F6F6F6C6C6C6767676262625F5F5F5A5B5B5657575353
+      534F4F4F4C4B4C4849494445454242423E3E3E3C3C3C3B3B3A37383735353533
+      33333131302F2F2E2D2D2C2B2B2A292928282728272627242425232323222122
+      21212020201F1E1E1D1C1B1B1C1B1B1919191919181918181818191918181818
+      181817181718181818171718171919191919191A191A1A1A1B1C1D1D1C1D1C1C
+      1C1C1C1B1C1C1C1B1C1C1B1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1B1B1B1B1B
+      1B1B1B1B1B1B1818181515151414131413131313121312121312121311121211
+      1112111112111111111111101111111111101111111011101010101010101010
+      101010100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0E0F0F0F0F0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0D0E0E0C0C0D0C0C0C0D0C0C0C0C0C0C
+      0C0B0B0C0C0C0C0C0B0B0B0B0B0B0B0B0A0A0A0909090809090908090A0A090B
+      0B0C1919192727272D2E2E3535343B3B3B383837050606050505050506050505
+      0505050404050505050504050404050405040404040404040404040404030404
+      0403030303040403030403040403030403030303030302030303030302030203
+      0302020303020203020202030202020202020202020202020202020202010201
+      0101020201020101010101020303050101013030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303232323434
+      343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F303838383A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383831
+      31313030303030303030303030303130313232323A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39
+      393A39393A393939393939393939393939393939393939393939393939393939
+      3939393939393939393938393938393838393838393838393838383838383838
+      3838383938383B3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C3C3C3B3D3C3C3C3C
+      3C3A3A3A3A3A3A3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F41414142424244444446
+      46464848474A4A494C4B4B4E4D4D5150505352525554545858585B5B5B5F5E5E
+      6160606363636767676A6A6A6E6E6E7171717575757979797D7D7D8181818686
+      868A8A8A8E8E8E9393939898989D9D9DA1A1A1A7A7A7ABABABB0B0B0B6B6B574
+      74745E5E5E6060606060606161616161615F5F5F5D5D5D5D5D5D5C5C5C5B5B5B
+      5A5A5A5959595959595959595858585757575757575757575656565656565454
+      545454545454545454545252525252525252525252525151515050504F4F4F4F
+      4F4F4F4F4F4E4E4E4E4E4E4D4D4D4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A4A4A4A
+      4A4A4A4949494848484747474747474747474646464545454545454545454444
+      444444444242424242424242424242424040404040404040404040403F3F3F3E
+      3E3E3D3D3D3D3D3D3B3B3B3939393636363232322F2F2F2A29262426300B34D5
+      0439FF0437FF0436FF0335FF0235FF0034FF0332F124293E2A29242A2A2A2B2B
+      2B2B2B2B2A2A2A2A2A2A2929292929292828282828282828282929292A2A2A2A
+      2A2A2A2A2A2A2A2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A292929292929272727
+      2727272727272626262727272727272828282A2A2A2C2C2C2E2E2E2F2F2F3030
+      303131313131313030302F2F2F2D2D2D2A2A2A2828282525252222222020201E
+      1E1E1D1D1D1C1C1C1B1B1B191919191919191919191919171717171717171717
+      1717171616161515151313131313131111111010100E0E0E0D0D0D0C0C0C3534
+      34AFAFAEA9A8A9A3A3A39E9E9E9898989393928E8E8D8988888383837E7E7E79
+      797974747470706F6C6C6C6767676262625F5F5F5B5B5B5756575252524F4F4F
+      4C4C4C4949494544454242434040403D3C3D3A3B3A373837353535333333302F
+      302F2E2F2D2C2C2B2B2A2928282828272625252221211F1F1F1D1D1D1C1C1C1C
+      1B1B1A1A19191818181818171716161717161717161617161616161616161516
+      1615151515151515151516151515151515151415151514151515151716161818
+      181A1A1A1C1B1C1C1C1B1D1C1B1C1C1C1C1C1C1C1B1C1B1C1B1B1B1C1B1B1B1C
+      1B1B1C1B1B1C1B1B1A1918151515131312131312131212131212131212121111
+      1211111112121111111111111111111011111011111010101011101010101010
+      101010100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0E0F0F0F0F0E0F0F0F
+      0F0F0E0E0E0D0E0E0D0E0E0D0D0E0D0D0D0D0C0C0C0D0C0C0C0C0B0C0C0C0B0B
+      0C0C0B0B0B0C0B0B0B0B0B0C0A09090909090909090808080A09090E0F0E2323
+      232929293030303939393D3D3C1E1E1E06050506060505050605050505050505
+      0405050504050404050404040504050404040504040404040404040404040304
+      0403030403040403040303030303030303030303030303020303020202020302
+      0203030202020302020202020202020202020102020102020102010202010101
+      0101010101010101030303020102303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030323232343434353535373737
+      3939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      303838383A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383635353030
+      303030303030303030303030303130313635353A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393839393839383839383839383839383838383838383838
+      38383838383A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3D3D3C3D3C3C3E3D3D
+      3D3C3C3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F4141414242424444444646464747
+      464A4A494C4B4B4E4D4D5150505352525554545858585B5A5A5E5D5D61606063
+      63636767676A6A6A6D6D6D7171717575757878787C7C7C8181818585858A8A8A
+      8E8E8E9292929797979C9C9CA0A0A0A6A6A6ABABABB0B0B0B6B6B67D7D7D6060
+      606161616161616262626262626060605F5F5F5D5D5D5D5D5D5B5B5B5B5B5B5A
+      5A5A595959595959595959585858575757575757575757565656565656545454
+      5454545454545454545252525252525252525252525151515050504F4F4F4F4F
+      4F4F4F4F4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A
+      4A4A494949484848474747474747474747464646454545454545454545444444
+      4444444242424242424242424242424040404040404040404040403F3F3F3E3E
+      3E3D3D3D3C3C3C3939393636363333332F2F2F2B2B2B28251B1B29610539FE05
+      38FF0437FF0436FF0335FF0035FF0F30B22C2A222D2D2C2E2E2E2F2F2F2F2F2F
+      2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C
+      2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A29292929292928282827
+      27272727272626262727272929292B2B2B2D2D2D323232343434363636383838
+      3939393939393838383535353131312E2E2E2A2A2A2626262323232020201F1F
+      1F1D1D1D1C1C1C1A1A1A19191919191919191919191917171717171717171717
+      17171616161414141313131212121010100F0F0F0D0D0D0C0C0C424242AFAFAF
+      A9A8A8A3A3A39E9D9D9797979292928D8D8D8887878382827E7E7E7979797474
+      746F6F6F6B6B6B6767676262625E5E5E5A5A5A5757575352524F4F4F4B4B4B49
+      494846464643434340403F3D3D3D3A3B3B3738383535353232323030302F2F2E
+      2C2C2B2A292826262623232322212220201F1E1E1F1D1D1D1D1C1C1C1B1A1A1A
+      1919181819181917171717171717171717171717171616161616161616161616
+      1616151616161615151515151515151515141415141415141415141314141314
+      1313131415141817181A1A1A1C1C1C1C1C1C1C1C1C1B1C1C1B1B1C1B1B1B1B1B
+      1B1C1B1B1C1A1B1C1B1B1A1A1915161513131213121212111213121212121111
+      1211111111111111111111111011101011101010111110101110101010101010
+      0F0F1010100F0F1010100F0F0F0F0F0E0F0F0F0F0E0F0F0F0F0E0E0F0F0F0E0E
+      0E0E0F0E0E0E0E0E0D0D0D0D0E0D0C0C0D0D0D0D0C0C0C0C0C0C0C0C0B0B0C0C
+      0C0C0C0C0C0B0A0B0909090909090909090A0A090C0C0C1918182626262D2D2D
+      3434343B3B3B3B3B3B0A0A0A0506060606050505050605050505050505050405
+      0505050504050405050504050505040504040404040404040304040404040404
+      0303030303040303040303040303030303030303030303030202020202030303
+      0202020303020202030202030202020202020202020202020202010202010101
+      0101010203030301010130303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303232323434343535353737373939393B3B3B3D
+      3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838313131303030
+      3030303030303030303030303131313A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A
+      39393A3939393939393939393939393939393939393939393939393939393939
+      3939393939393939383939383938383938383938383938383838383838383838
+      383838383A3A393B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3D3D3C3E3D3D3E3D3D3F
+      3F3F3C3C3C3D3D3D3E3E3E3F3F3F4040404242424444444646464747464A4A49
+      4C4B4B4E4D4D5150505352525554545857575B5A5A5E5D5D6160606362626666
+      666A6A6A6D6D6D7171717575757878787C7C7C8080808585858989898D8D8D92
+      92929696969B9B9BA0A0A0A5A5A5ABABABAFAFAFB5B5B5868686626262626262
+      6363636363636262626161616060605D5D5D5D5D5D5C5C5C5C5C5C5B5B5B5A5A
+      5A59595959595959595958585857575757575757575756565656565654545454
+      54545454545454545252525252525252525252525151515050504F4F4F4F4F4F
+      4F4F4F4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A
+      4A49494948484847474747474747474746464645454545454545454544444444
+      44444242424242424242424242424040404040404040404040403F3F3F3D3D3D
+      3C3C3C3A3A3A3838383333333030302B2B2B27272624231C0F31B5043AFF0538
+      FF0437FF0336FF0235FF202E6A312E2031313133333333333334343434343432
+      32323030303030302E2E2E2D2D2D2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D
+      2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2929292929292828282727272727
+      272626262727272828282C2C2C2F2F2F3333333838383C3C3C3E3E3E40404040
+      40404040403D3D3D3939393535353030302C2C2C2727272323232020201F1F1F
+      1D1D1D1C1C1C1B1B1B1919191919191919191919191717171717171717171616
+      161515151414141212121010100F0F0F0E0E0E0C0C0C525252AEAEADA8A8A7A3
+      A3A29D9C9C9796969291918D8B8C8786868281817D7D7D7979797373736F6F6F
+      6B6B6B6666666262625E5E5E5A5A5A5656565252514F4F504C4C4C4949494545
+      4543424341403F3D3D3C3B3B3B3738383535363131312E2E2E2C2B2B28292926
+      26262625252323232222221F201F1F1E1E1D1D1D1D1D1D1C1B1B1B1A1A1A1919
+      1918181817171717171716171716161616171616171616161616161616161515
+      1616161615161516151515151515151515151414141415141514141414131413
+      13131213121213121413141616161A1A1A1C1C1C1C1C1C1C1C1B1B1C1B1B1B1B
+      1C1B1B1C1B1A1B1B1A1B1B1B191A1A1515151312121312111212121211111211
+      121211111112111111101111111110101010111010101010101010100F100F10
+      0F100F10100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0E0E0F0E0E0E0F0E0E
+      0E0E0E0E0D0E0E0D0D0D0C0D0E0C0D0C0C0C0C0D0C0C0C0C0B0B0C0C0C0C0C0B
+      0C0A090909090909090A0909090A0A0A0E0E0D2221222929293030303838383D
+      3D3D232323050606050506050606050606060506060505050505050505050505
+      0505050404040405050404040504040404040404040404040404040404030303
+      0403030403030403030403030303030303030302030302030303030202020202
+      0203030203020302020202020202020202020102010201020202010101010101
+      0503050102013030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303232323434343535353737373939393B3B3B3D3D3D3434342E2E
+      2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383835353530303030303030
+      30303030303030303030303635353B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39
+      393A393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393838393838393838393838383838383838383838
+      3838383939393B3B3B3C3C3C3C3C3C3D3D3D3D3D3D3E3E3D3E3D3D403F3F3F3F
+      3F4040403F3F3F3F3F3F4040404242424444444646464747474A4A494C4C4B4E
+      4D4D5150505352525554545857575B5A5A5D5C5C6160606362626666666A6A6A
+      6D6D6D7171717575757878787C7C7C8080808484848888888D8D8D9292929696
+      969B9B9BA0A0A0A4A4A4AAAAAAAFAFAFB4B4B48F909063636364646464646463
+      63636363636262626060605F5F5F5D5D5D5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A
+      5959595959595959595858585757575757575757575656565656565454545454
+      545454545454545252525252525252525252525151515050504F4F4F4F4F4F4F
+      4F4F4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A
+      4949494848484747474747474747474646464545454545454545454444444343
+      434242424242424242424242424040404040404040403F3F3F3E3E3E3D3D3D3B
+      3B3B3838383636363131312D2D2D29292926251D1F26450838F30539FF0538FF
+      0437FF0236FF16329F32322F36352E3A3A3A3F3F3F4141413F3F3F3C3C3C3939
+      393434343232323030303030302F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2C
+      2C2C2C2C2C2C2C2C2B2B2B2A2A2A292929282828282828272727262626262626
+      2626262626262A2A2A2F2F2F3434333B3A3841413E4545424848464848484747
+      484545454141413C3C3C3737373232322C2C2C2727272323232020201E1E1E1D
+      1D1D1C1C1C1A1A1A191919191919191919191919171717171717161616151515
+      1414141212121010100F0F0F0E0E0E0C0C0C646464ADADADA7A7A7A2A2A19C9B
+      9B9797969291918D8C8C8787868281817D7C7C7878787373736F6F6F6A696A66
+      66666262625D5E5D5A5A5A56565553525250504F4B4C4B494949454545434243
+      413F3F3E3D3C3B3A3A3736353233332F2F2E2D2D2D2B2B2B2928292626262525
+      2623232422222220201F1F1F1F1D1E1E1E1D1D1C1C1C1B1A1A1A19191A191918
+      1817181817171717171717171616171616161616161617161616161616151616
+      1516151615151515151515151514151515151515151414141413141413141313
+      131212131212131212121312121313131718181B1B1A1B1C1B1B1B1C1C1B1B1C
+      1B1B1B1B1B1C1B1A1B1B1B1B1B1B1A191A141313121212121112111212111111
+      111111111111111111111010111110111011101010101010101010101010100F
+      0F10100F0F10100F0F0F0F0F0F0F0F0F0F0F0E0E0F0E0F0F0E0E0E0F0E0E0E0E
+      0E0E0E0D0E0E0D0D0D0C0D0D0D0C0C0C0D0C0C0C0C0C0C0C0C0C0B0B0B0A0A09
+      0A0A090909090A0A0A0C0C0C1919192626262D2D2D3434343A3A3A3A3A3A0A0A
+      0A06060606060606060606060505050606050605060505050505050505040504
+      0504040504050405050404040404050404040404040404040404040404040404
+      0404040403040403030303030303030303030303030302020303020303030302
+      0302020202020202020202020202020202010202020102010102010203030501
+      0102303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303032
+      32323434343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F303838383A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383131313030303030303030
+      303030303030303030303939393B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A3939
+      3A39393939393939393939393939393939393939393939393939393939393939
+      3939393939393839393839383839383839383839383838383838383838383838
+      38383939383C3C3B3C3C3C3D3D3D3D3D3D3E3E3E3E3E3D403F3F403F3F404040
+      4242424241414141414242424343434545454747474A4A494C4C4B4D4D4D504F
+      4F5251515554545857575A59595D5C5C605F5F6362626666666A6A6A6C6C6C70
+      70707474747878787C7C7C8080808383838888888D8D8D9191919595959A9A9A
+      9F9F9FA4A4A4A9A9A9AEAEAEB3B3B39A9A9A6464646565656666666666666565
+      656262626262626060605E5E5E5D5D5D5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A59
+      5959595959595959585858575757575757575757565656565656545454545454
+      5454545454545252525252525252525252525151515050504F4F4F4F4F4F4F4F
+      4F4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A49
+      4949484848474747474747474747464646454545454545454545454545444444
+      4444444343434343434242424242424141414040404040403E3E3E3B3B3B3939
+      393737373333332F2F2F2A2A2A272727262418152E95053AFF0638FF0538FF04
+      37FF0137FF1234BD38394447443C4A4A4A4C4C4C4A4A4A4646464141413C3C3C
+      3838383434343131313030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C
+      2C2C2C2C2B2B2B2A2A2A29292929292927272727272726262625252525252525
+      25252726232E2C2133332E39393E3F404646474C4E4D4A53514651504B4D4D4C
+      4949494444443E3E3E3737373131312B2B2B2626262222221F1F1F1D1D1D1D1D
+      1D1B1B1B1A1A1A19191919191919191919191918181817171716161615151513
+      13131111110F0F0F0E0E0E0D0D0D757575ACACACA6A6A6A1A1A19C9B9C969695
+      9190908C8B8B8786868281827D7D7C7777777373736E6E6F6A6A6A6666666262
+      625D5C5D5B5B5B5656565353534F4F4F4B4B4C4848484545454343433E3F3E3B
+      3A3A3636363535353131322F2F2E2D2C2C2A2A2A282929262626262626232423
+      2121212020201F1F1F1D1D1E1E1E1D1C1C1C1B1B1B1A19191919191818171917
+      1818171817171717171717171716161616161616161616161616161616151515
+      1516151516151515151515151515141515141414151414141314141313131313
+      1313131213121212121212121212121212121616151B1B1A1B1C1C1B1C1C1C1B
+      1B1C1A1B1C1B1B1B1C1B1C1B1B1C1B1B17171712121111121212121211111112
+      11111111111111111111101111111110101110111010101010100F1010100F10
+      0F0F0F0F0F0F100F0F0F0F0F0F0F0F0F0F0E0E0E0E0F0E0F0E0F0E0E0E0E0E0D
+      0E0E0D0D0E0C0D0D0D0C0C0D0D0C0C0D0C0C0D0C0C0C0A0A0A0A090A090A0909
+      09090B0B0A0E0F0E2121212828283030303737373D3D3D2A2A2A060706060606
+      0606060606060506060606050506050506060505050505050505050505050505
+      0505050504050404050405050504040404040404040304040404040304040403
+      0304040303030304030403030303020303020302030302020202020302020203
+      0302020202020202020202020102020101020202010202010303030201013030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303232323434343535
+      353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F303838383A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838363636303030303030303030303030
+      3030303030303433343B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939383939383938383938383938383938383838383838383838383838
+      383939393B3B3B3D3D3D3D3D3D3E3E3E3E3E3E40403F403F3F41404042424242
+      42424444444545454444444545454747474A4A494B4B4A4D4D4D504F4F525151
+      5454545857575A59595C5B5B5F5F5F6362626665656969696C6C6C7070707373
+      737777777B7B7B7F7F7F8383838787878C8C8C9090909595959999999E9E9EA4
+      A4A4A8A8A8AEAEAEB2B2B2A5A5A5666666676767676767676767666666646464
+      6363636161615F5F5F5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5959
+      5959595959595958585857575757575757575756565656565654545454545454
+      54545454545252525252525252525252525151515050504F4F4F4F4F4F4F4F4F
+      4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A4949
+      4948484847474747474747474746464646464646464646464645454545454544
+      44444444444444444343434242424242424141413F3F3F3E3E3E3B3B3B383838
+      3535353030302D2D2D29292A2726212327320B37E1053AFF0639FF0538FF0437
+      FF0036FF0F37D93F46605350445251515050504C4C4C4747474141413B3B3B38
+      38383434343232323030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C
+      2B2B2B2A2A2A29292928282827272726262625252525252525252327251B2325
+      301827721028A80B28C30B28C60C29C41930B12D3C904A4E6257554B50504D4A
+      4A4B4444443D3D3D3636362F2F2F2A2A2A2525252121211E1E1E1D1D1D1C1C1C
+      1B1B1B1B1B1B1919191919191919191919191717171616161515151313131111
+      110F0F0F0E0E0E0F0F0F8C8C8BACACABA6A6A6A0A0A09B9B9B9695959090908B
+      8A8A8685858181817C7C7C7777777272726D6D6D6969696565656261615D5D5D
+      5A5A5A5555555353534F4E4F4B4A4A4848494645454140403C3C3C3A393A3636
+      363434343232322F2F2F2D2D2D2A2B2A28282826262624252524242421212120
+      20201F1F1F1E1E1E1E1D1E1D1C1D1B1B1B1A1A1A1A1919191817191817181817
+      1817171717171716171717171716161716161616161616161616151516161616
+      1615151515151515151515151515141415151514141514131414131413131313
+      13121313131212131212121212121212121111121414151919191B1C1B1C1B1B
+      1C1A1B1C1B1B1C1B1B1B1C1C1B1B1B1A1A1A1514141112121211121111111211
+      1111111111101110101110111110111010111111101010100F10100F100F1010
+      10100F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0E0E0E0E0E0E0E0E0D0E
+      0E0D0D0E0D0D0D0C0C0D0C0C0C0D0D0D0B0C0A0A0A0A090A0A0A0A0B0A0B0C0B
+      0B1616172526252B2B2B3333333939393E3E3E0E0D0D06060607060606060606
+      0606060506060606050606050605050506050505060506050504050505040504
+      0405050405050405040404050404040404040404040404040404030403040304
+      0403040403030303030303030303020303030303030202030303030202020302
+      0302020302020202020202020102020202010201050505020202303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030323232343434353535373737393939
+      3B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838
+      383A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383832323230303030303030303030303030
+      30303030303737373B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393938393938393838393838393838393838383838383838383838393939
+      3939393B3B3B3D3D3D3E3E3E3E3E3E40404040403F4140404342424242424444
+      444545454747474949484949494A49494B4B4A4D4D4C4F4E4E51505054545457
+      56565A59595C5B5B5F5F5F6262626665656868686C6C6C6F6F6F737373767676
+      7A7A7A7F7F7F8383838787878A8A8A8F8F8F9494949999999D9D9DA2A2A2A8A8
+      A8ADADADB2B2B2B0B0B06B6B6B68686868686868686867676765656563636361
+      61615F5F5F5E5E5E5D5D5D5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A595959
+      5959595959595858585757575757575757575656565656565454545454545454
+      545454545252525252525252525252525151515050504F4F4F4F4F4F4F4F4F4E
+      4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A494949
+      4848484747474747474848484747474646464646464747474747474747474747
+      474747474747474646464444444343434141413F3F3F3D3D3D39393936363633
+      33332F2F2F2B2B2B2828282825191B2D76063BFF0639FF0639FF0538FF0437FF
+      0035FF0B37E83C48795653465151504D4D4D4848484141413C3C3C3939393535
+      353333333232323131313030302F2F2F2F2F2F2E2E2E2E2E2E2C2C2C2B2B2B2A
+      2A2A29292928282826262625252523242424231F24231D16256E0526CD0025EE
+      0023EC0023E70023E50022E40020E5001FE50725D42C3B9652535450504A4949
+      494242423A3A3A3232322C2C2C2727272323232020201D1D1D1D1D1D1C1C1C1B
+      1B1B1B1B1B191919191919191919181818161616151515131313121212101010
+      0E0E0E151515A1A1A1ACACABA6A5A5A09F9F9A9999959494908F8F8A89898584
+      84807F7F7B7B7B7777777272726D6D6D6868686666656161615D5D5D59595856
+      55555252524F4F4F4A4A4A4747474342423F403F3B3B3C383938353535353434
+      3131312F2F2E2C2D2C2A2A2A2828282626262525252424232221222020201F1F
+      1F1E1E1E1E1D1E1D1D1D1B1B1C1A1A1B1A1A1A19181819181718181819171718
+      1717171717171717171717161617171616161616161616161616161616161516
+      1615151515151515151515151414141414151514141414141413141313131313
+      121212131212121212121212121212111212111112111515151A1A1A1C1B1B1C
+      1B1B1B1B1B1B1C1B1B1B1B1B1B1B1B1B1B161717111112121112111212111112
+      1211111111111110111110111010101011101010101010101010101010100F0F
+      10100F100F0F0F0F0F0F0F0E0F0F0E0F0E0F0E0F0E0E0E0E0E0E0D0E0E0D0D0E
+      0C0D0D0D0D0D0D0C0C0C0C0B0A0B0B0A0A0A0A0A0A0A0A0B0A0B0D0D0D1F1E1E
+      2727272E2E2E3535353B3B3B2929290707070706060606070706060606060606
+      0606060606060606060505050605050505060505050505050505050505050405
+      0505040505040404050504040404040404040404040404040304030303040303
+      0303030403030303030303030203030302030303020303020302030303030203
+      0202020202030202020102020102020203050301020230303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303232323434343535353737373939393B3B3B3D3D3D34
+      34342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383736363030303030303030303030303030303030
+      303232323A3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A3939
+      3939393939393939393939393939393939393939393939393939393939393939
+      393939383939383938383938383938383938383838383838383939393939393A
+      3A3A3A3A3A3D3C3C3E3E3E404040404040414140434242434242444444454545
+      4747474949494B4B4B4C4C4C4D4D4D4E4E4E5050505151515453535655555958
+      585C5B5B5F5E5E6261616665656867676B6B6B6E6E6E7272727575757A7A7A7E
+      7E7E8282828686868A8A8A8F8F8F9393939898989D9D9DA2A2A2A7A7A7ACACAC
+      B2B2B2B5B5B57777776969696969696969696868686666666464646262626161
+      615F5F5F5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A59595959
+      5959595959585858575757575757575757565656565656545454545454545454
+      5454545252525252525252525252525151515050504F4F4F4F4F4F4F4F4F4E4E
+      4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A49494948
+      48484747474848484848484747474848484949494A4A4A4A4A4A4B4B4B4B4B4B
+      4A4A4A4A4A4A4949494747474444444242423E3E3E3C3C3C3939393535353131
+      312D2D2D2A2A2A2827252726251036CB063BFF0639FF0639FF0538FF0437FF00
+      36FF0435F7314390504E444B4B494747474242423C3C3C393939363636343434
+      3333333131313030303030302F2F2F2F2F2F2E2E2E2D2D2D2C2C2C2A2A2A2929
+      2927272725252523232423221F2222210E25960027EF0026EC0026E50025E300
+      24E20024E20024E10023DF0022DE0021E0001EE51930B34C4E574D4C47444445
+      3C3C3C3535352E2E2E2929292424242121211F1F1F1D1D1D1C1C1C1C1C1C1B1B
+      1B1B1B1B1A1A1A1919191818181717171515151313131212121010100E0E0E2B
+      2B2BADADADAAAAAAA4A4A39F9E9E9A99999594948F8E8E89898985848480807F
+      7B7A7A7676767272726D6D6D6767676564646060605D5C5C5858585655555250
+      504D4D4D4949494544454241413F3E3F3C3C3C3939393635353333333131312F
+      2F2F2D2D2D2B2B2B2828292626262425252424242222222121201F201F1E1E1E
+      1E1E1D1D1D1D1B1C1B1A1B1A1A1A1A1919191918181918181818181817171817
+      1717171717171617171616161616161617161616161616161616161616151615
+      1615151515151515141515151515151414141414151314131314131313131212
+      1213121213131212121212121112121212121211121111111615151B1A1B1C1B
+      1B1C1B1A1C1B1B1C1B1B1B1B1B1B1B1B19191914131312111111121112121111
+      111111111111111011101011101010101010101010101010101010100F10100F
+      0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0E0E0F0E0D0E0E0D0E0E0D0D0D0D
+      0D0D0C0C0C0C0D0A0A0B0A0A0B0A0A0A0A090A0A0A0B14141423222328292830
+      2F303636363B3B3B0E0E0E070706060706070707060707060706060606060606
+      0605060605050605050505050606050605050505050505050505040504050405
+      0404040504050405040404040404040404040304030403030303040303030304
+      0303030403030304030203030302030203030302030203030303020202020202
+      0202020202020202020202010505050102023030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303232323434343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F302F303838383B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838333333303030303030303030303030303030303030
+      3535353B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383838383939393939393A3A3A3A3A
+      3A3B3B3B3B3B3B3E3E3E40404041414143434243424245444445454546464649
+      49494A4A4A4C4C4C4E4E4E4F4F4F5252515453535555555858585A59595C5B5B
+      5F5F5F6160606564646867676A6A6A6E6E6E7171717575757979797D7D7D8181
+      818686868A8A8A8F8E8E9393939898989D9D9DA2A1A1A7A7A7ABABABB1B1B1B6
+      B6B68686866B6B6B6B6B6B6B6B6B696969676767656565626262616161606060
+      5F5F5F5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5959595959
+      5959595958585857575757575757575756565655555554545454545454545454
+      54545252525252525252525151515151515050504F4F4F4F4F4F4F4F4F4E4E4E
+      4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A4949494848
+      484848484848484848484A4A4A4B4B4B4C4C4C4E4E4E4F4F4F50505050505050
+      50504F4F4F4D4D4D4A4A4A4646464242423E3E3E3B3B3B3737373232322E2E2E
+      2B2B2B29282928251C202B58083AF9073AFF0639FF0639FF0538FF0437FF0236
+      FF0034FF243DA44545464343423F3F3F3B3B3B38383835353534343433333332
+      32323030303030303030302F2F2F2E2E2E2D2D2D2C2C2C2A2A2A282828262626
+      2424242222212221190E258F0028F60027E90027E60026E60026E50025E30024
+      E20024E20024E10023DF0023DE0022DE001EE6182FAF4A49494544423E3E3E36
+      36362F2F2F2A2A2A2626262222222020201E1E1E1C1C1C1C1C1C1C1C1C1B1B1B
+      1B1B1B1919191818181717171616161414141212121010100E0E0E484848AEAE
+      AEA9A9A9A3A3A39E9E9E9898989392928E8D8D8888888383837F7E7F7B7B7A75
+      75757171716C6C6C6768686363636060605C5B5B5958585555554F4F4F4C4C4B
+      4949484444444342423E3E3E3C3B3B3838383535353333333030302E2E2E2D2D
+      2D2A2A2A2929282726272525252424242122222020201E1F1E1E1F1E1E1E1E1D
+      1D1D1B1B1C1B1A1A1A1A1B191919191919191818191818181818181717181718
+      1716171716171717161716171617161616171616161616161615161515151515
+      1515151515151514151415151414141414141414131414131413121313131312
+      13121312131212121212121212111211111112111111111211121817171B1B1A
+      1C1B1B1B1C1B1B1C1B1B1B1C1B1B1B1A1A1A1515151112121111121111111111
+      111011111111111110111011111010111010101010100F1010101010100F0F0F
+      10100F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D
+      0B0B0C0A0A0A0B0A0B0A0B0A0A0A0A0B0B0B1D1D1D2322232928282F2F2F3536
+      3529292A07070706070706060707070607070707070606070606060606060606
+      0605050605050605060506050505050506050505050505040405040504040505
+      0504040404040404040504040404040404040304040304040403040303040303
+      0303040403030303030303030203030203020203020303030202020202020202
+      0302020202020202050505020202303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303032323234
+      34343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F302F303838383B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383838383831303130303030303030303030303030303030303038
+      38383B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A39393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      39383939383938383938383938383938383939393939393A3A3A3A3A3A3B3B3B
+      3B3B3B3C3C3C3D3D3D4040404242424343424544444645454646464949494A4A
+      4A4C4C4C4D4D4D4F4F4F5252515454535655555958585B5B5B5D5D5D60606063
+      63636666666969696C6C6C7070707373737777767A7A7A7E7E7E828282868686
+      8A8A8A8F8F8F9393939898979C9C9CA1A1A1A6A5A5ABABABB0B0B0B6B6B69595
+      956C6C6C6C6C6C6C6C6C6B6B6B6969696666666363636161616161615F5F5F5E
+      5E5E5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A595959595959
+      5959595858585757575757575757575757575656565555555555555555555454
+      545454545353535252525252525151515050505050504F4F4F4F4F4F4E4E4E4E
+      4E4E4C4C4C4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A4A4A4A494949484848484848
+      4848484949494A4A4A4C4C4C4E4E4E5151515454545555555757575656565656
+      565454545151514D4D4D4747474141413C3C3C3939393535353030302C2C2C29
+      29292727262724181334B2063CFF073AFF0639FF0639FF0538FF0437FF0236FF
+      0234FF333B5B3F3D383B3B3B3939393737373535353434343434343333333131
+      313030303030303030302E2E2E2D2D2D2B2B2B2A2A2A27272725252523232322
+      201616235C0029F10028EC0028E80027E70027E70026E60026E50025E30024E2
+      0024E20024E10023DF0023DE0022DE001FE52735874543393C3C3C3636363030
+      302A2A2A2626262323232121211F1F1F1D1D1D1C1C1C1C1C1C1C1C1C1B1B1B1A
+      1A1A1919191717171616161414141111111010100E0E0E676767AEAEAEA9A9A8
+      A3A2A29D9C9C9797979292928D8D8D8887878282827D7D7D7878787474747070
+      706C6C6C6767676362635F60605B5B5B5656565352534F4F4F4B4B4B49484745
+      45444241403F3D3D3C3B3C3938383535353333333131312E2F2F2D2D2D2A2A2A
+      2827282626272625262323232222222121211E1E1F1E1E1E1E1E1F1D1D1D1B1C
+      1C1B1B1B1B1A1A191A1919191919191919181819181818181819171718171717
+      1717171617171717171617161716161616161616161516161515151615151515
+      1515151515151515141415141415141414151413141413141313131313131213
+      121212121212121212121212121211121212111111121111111313131A1A1A1C
+      1B1B1B1C1B1B1B1B1C1B1B1B1B1B1B1A1B161617111212111111111111111111
+      10111011111011101011111010101010101010101010100F0F10100F10100F10
+      0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0F0E0D0E0F0D0E0E0D0E0D0D0D0B0B0B0B
+      0B0A0A0B0A0A0A0B0A0A0B0F0F0F1F1F1F2322232928292E2E2E333433131313
+      0807070707070707070706070706070606060607060706070606060506060606
+      0605060506060606050505050505050605050505050505050504050405040405
+      0505040404040404040404040404040404040304040304040303040403040303
+      0303030303030303030203030303030303030302030203020202030302030202
+      0202020205050502020230303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303232323434343535353737
+      373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30
+      2F303838383B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383535353030303030303030303030303030303030303232323A3A
+      3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      383939383938383938383938383A39393939393A3A3A3A3A3A3B3B3B3B3B3B3C
+      3C3C3D3D3D3D3D3D3F3F3F4141414444444645454746464848484949494B4B4B
+      4D4D4D4F4F4F5252525454535656555958585B5A5A5D5D5D5F5F5F6363636666
+      666969696C6C6C70706F7373737676767A7A7A7E7E7E8181818585858A8A8A8E
+      8E8E9292929797979C9C9BA0A0A0A5A4A4AAAAAAAFAFAFB4B4B4A4A4A46D6D6D
+      6E6E6E6D6D6D6C6C6C6B6B6B6868686565656363636161616060605F5F5F5F5F
+      5F5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A59595959595959
+      5959585858585858585858585858575757575757565656565656565656555555
+      5454545353535454545353535252525151515050505050504F4F4F4E4E4E4E4E
+      4E4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A49494949494948484848484847474748
+      48484A4A4A4D4D4D5151515454545858585C5C5C5E5E5E5E5E5E5E5E5E5C5C5C
+      5959595454544E4E4E4646463F3F3F3B3B3B3636363232322D2D2D2929292826
+      1E2228400E39E0083CFF083BFF073AFF0639FF0639FF0538FF0337FF0736F033
+      3542373733373737363636353535353535343434343434333333323232323232
+      3131313030302F2F2F2D2D2D2B2B2B29292926262624242422211F1F1F1F0627
+      C0002AF50029EA0028EA0028E90027E70027E70026E60026E50025E30024E200
+      24E20024E10023DF0023DE0021E20624CC373A463838343333332F2F2F2A2A2A
+      2626262323232121211F1F1F1E1E1E1D1D1D1C1C1C1C1C1C1C1C1C1A1A1A1919
+      191717171616161414141212121010100F0F0F858585ADADADA7A7A6A2A2A19C
+      9B9B9696969191918C8C8C8787878182817D7D7D7877787473746F6F6F6B6B6B
+      6666666363635F5E5F5A5A5A5555565252524F4F4E4B4A4B4948484444434142
+      413F3E3D3C3B3B393838363535333333302F302E2E2E2C2C2C2A2A2A28282827
+      27272525252323232121212121211F1F1F1E1E1E1F1F1E1C1C1C1C1C1C1B1B1B
+      1B1B1B19191A1919191919191919181918181918181818181817181817181717
+      1717171717171616161717161616161616161616161615161615151515151515
+      1515151515151415141415141415141414141314141314131313131212121312
+      1312121212121212121212121112121111111111111111111111111717181C1B
+      1B1C1B1B1B1C1C1B1B1B1B1B1B1B1B1B18181713131211111111111111111111
+      11111110111110111010101010111010101010100F100F100F0F100F100F100F
+      0F0F100F0F0F0F0E0F0E0E0F0E0E0F0E0D0E0E0D0D0C0C0C0B0B0B0B0B0B0B0B
+      0A0B0B0B0A0A0B1615151F201F2222222627272C2C2C30303116151508070708
+      0707070707060707060706060706060707060606070606060606060606060605
+      0606050605050606050505050505060505050505050505050505040405040504
+      0404050404040404040504040404040403030304030404040303030403030303
+      0303030303030303030303030203030202030202020202020203030202030202
+      0505050202023030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303232323434343535353737373939393B3B3B
+      3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F303938383B3B
+      3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      38383938383232323030303030303030303030303030303030303433343B3B3A
+      3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A393939393939
+      3939393939393939393939393939393939393939393939393939393939393938
+      3939383938383938383A39393A39393939393A3A3A3A3A3A3B3B3B3C3C3C3D3D
+      3D3D3D3D3F3F3F4040404141414444434646454948484949494B4B4B4D4D4D4F
+      4F4F5151515353535656555959585B5A5A5D5C5C5F5F5F626262666666686868
+      6C6C6C6F6F6F7272717676757A79797D7D7D8181818484848888888D8D8D9191
+      919595959A9A9A9F9F9EA3A3A3A9A8A8AEAEAEB3B3B3B1B1B17373736F6F6F6E
+      6E6E6E6E6E6C6C6C6969696666666464646262626161615F5F5F5F5F5F5F5F5F
+      5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5959595959595959
+      5959595958585858585858585858585858585858585858585858585858585856
+      56565656565555555454545252525151515050505050504F4F4F4E4E4E4E4E4E
+      4D4D4D4C4C4C4B4B4B4A4A4A4949494848484848484747474646464646464848
+      484B4B4B5151515756515F5C5162615A6464636666666666666464646161615C
+      5C5C5555554C4C4C4242423D3D3D3838383333332E2E2E2B292325282F1039D0
+      093EFF093BFF093BFF083BFF073AFF0639FF0639FF0438FF0C36DD3333393534
+      3135353535353535353535353534343434343433333332323232323232323230
+      30302F2F2F2D2D2D2B2B2B29292926262623232321201817214D002AEF002AEF
+      0029EC0029EA0028EA0028E90027E70027E70026E60026E50025E30024E20024
+      E20024E10023DF0022DF0021E4202C713432272E2E2E2B2B2B29292925252523
+      23232121212020201F1F1F1E1E1E1D1D1D1C1C1C1C1C1C1B1B1B1A1A1A181818
+      161616131313121212101010191919A2A2A2ACACACA6A6A6A0A0A09A9A9A9595
+      959090908B8A8A8585858181817C7C7C7777777373736E6E6E6A6A6A66666661
+      61615D5D5D5959595555555252524D4E4E4A4A494747484444444141413E3E3D
+      3C3B3B3937373635353433333030302E2E2E2C2C2C2A2A2A2828282727272525
+      252323242221212020201F1F1F1F1E1E1D1E1D1D1D1C1C1B1B1B1B1B1B1B1B19
+      1A1A191A1919191A191919191919181818191817191818181718181717171717
+      1716171617161616161616161616161516161615151616151516151615161515
+      1514151514151514141414151514141414131414131413131312131312121212
+      12121212121212121111121111111111121111111111111111111515151B1B1A
+      1C1B1B1B1C1B1B1B1B1B1B1B1B1B1B1918191312121111121211111011111110
+      1010111111101010101110111010101010101010100F0F100F0F1010100F0F10
+      0F0F0F0F0F0F0E0E0F0E0E0F0E0E0E0E0E0D0D0D0B0B0C0B0B0B0A0B0A0A0A0B
+      0B0B0B0C0D0C1D1D1D2121212525252928292E2F2F2E2E2D0A0A0B0707070707
+      0707070707070707070707060706060707060706070706060606060605060605
+      0605060606060505050506050605050505050505050405040504050505040405
+      0504050404040404040404040404040404030404040303040403040303030303
+      0303030302030303020303020302030303030302030302030303030205050502
+      0202303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303232323434343535353737373939393B3B3B3D3D3D3434342E
+      2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F303938383B3B3B3B3B3B3B3B3A
+      3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      383837373130313030303030303030303030303030303030303737373B3B3A3B
+      3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A39393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      39383938383A39393A39393A39393A3A3A3A3A3A3B3B3B3C3C3C3D3D3D3D3D3D
+      3F3F3F4040404141414242424444444545454848474A4A4A4D4D4D4F4F4F5151
+      515353535656565858575A5A595D5C5C5F5F5F6161616565656868686A6A6A6E
+      6E6E7171717575747979787D7C7C8080808484848888888C8C8C919191959595
+      9999999E9E9EA3A3A2A8A8A8ACACACB1B1B1B6B6B68181817070707070706F6F
+      6F6D6D6D6A6A6A6868686464646262626262626161615F5F5F5F5F5F5F5F5F5E
+      5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A595959595959595959
+      5959595858585A5A5A5B5B5B5B5B5B5B5B5B5B5B5B5C5C5C5C5C5C5B5B5B5959
+      595858585757575555555353535151515050505050504F4F4F4E4E4E4D4D4D4C
+      4C4C4B4B4B4A4A4A494949474747454545464646454545454545464646494845
+      514E434C536D3953B1505C886A69636F6D656D6D6C6B6B6B6969696464645D5D
+      5D5454544848483E3E3E393939343435302F2B2B2B2A1537B70A3FFF0B3DFF0A
+      3DFF093CFF093BFF083BFF073AFF0639FF0438FF1035CB323133333331343434
+      3535353535353535353535353434343333333333333333333232323131312F2F
+      2F2E2E2E2B2B2B292929262626222222211E11102480002BFC002AEE002AED00
+      29EC0029EA0028EA0028E90027E70027E70026E60026E50025E30024E20024E2
+      0024E10023DF0021E90F24982A29212828262626262525252424242323232121
+      212020201F1F1F1E1E1E1E1E1E1D1D1D1C1C1C1B1B1B1A1A1A18181816161613
+      1313121212101010373737AEAEAEAAA9AAA4A4A49F9F9F9999999494948F8F8F
+      8A898A8585858080807B7B7B7676767272726E6E6D6969696464646060605C5C
+      5C5858585555555151514D4D4D494A494848484343434141413E3E3D3C3C3B38
+      38383635363433333130302E2E2D2C2B2C2A2A2A272727272727252525242424
+      2121212020211F1F1F1F1E1F1E1D1D1C1C1C1B1C1B1B1B1B1B1B1B191A1A191A
+      191A1A19191A1919191919191919181819181718181818171718171717171717
+      1717171716161616171617161616161616161616151616151616151516161515
+      1515151415151415151415141414141413141413141313131212131312121212
+      121212121212121111121111111111111112111111111111111312131A1A191B
+      1B1B1B1B1B1B1B1B1B1B1B1B1B1A191918121213121211121111111111111111
+      1011111111101010101010101010101010100F10101010101010100F0F0F0F0F
+      0F0F0F0F0F0E0E0F0E0E0E0D0E0E0D0D0B0B0C0B0B0B0B0B0B0B0B0B0A0B0B0C
+      0B0C1211121F1F1F2323242726272B2B2B2E2E2E1E1D1E070808070707070707
+      0707070707070707070707060606070606070607070606060606060505060606
+      0606060605060606060605050505050505050405050504050504040404040404
+      0404040404040404040404040303040403040304040304030404040304030303
+      0303040303030303030203030203030303030303020202030505050202033030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3232323434343535353636363838383A3A3A3D3D3D3434342E2E2E2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F302F303939383B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B
+      3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3535353030303030303030303030303030303030303131313939393B3B3A3B3A
+      3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A3939393939393939
+      3939393939393939393939393939393939393939393939393939393939383939
+      383A39393A39393A39393B3A3A3A3A3A3B3B3B3C3C3C3D3D3D3D3D3D3E3E3E40
+      40404141414242424444444545454747464949484B4A4A4C4C4C4F4F4E525252
+      5554545757575959595C5C5C5F5E5E6261616363636767676A6A6A6D6D6D7171
+      717474747878777C7C7B7F7E7E8483838787878B8B8B8F8F8F9393939897979C
+      9C9CA1A0A0A6A6A6AAAAAAB0B0B0B5B5B59494947272727272727171716F6F6F
+      6C6C6C6969696666666363636262626161616060605F5F5F5F5F5F5F5F5F5E5E
+      5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5959595959595A5A5A5A
+      5A5A5B5B5B5C5C5C5E5E5E5F5F5F6060606060606060606060605E5E5E5C5C5C
+      5A5A5A5858585656565353535252525050505050504F4F4F4E4E4E4C4C4C4B4B
+      4B49494948484847474744444443434343434344434047443945464E354B9C1F
+      4CEF154AFF194AFE3354CD5C668E75736B75736B6F6F6E6A6A6A626262595959
+      4D4D4D4141413B3B3B3635323230281A38A90C41FF0C3FFF0C3EFF0B3EFF0A3D
+      FF093CFF093BFF083BFF073AFF033AFF1036C9302F2D33313034343434343435
+      35353535353535353535353434343333333333333333333232323030302E2E2E
+      2B2B2B282828252525222221201E150B269B002CFD002AEF002AEE002AED0029
+      EC0029EA0028EA0028E90027E70027E70026E60026E50025E30024E20024E200
+      24E10023E70923AD232323232221222222232323222222222222212121212121
+      1F1F1F1F1F1F1F1F1F1E1E1E1D1D1D1B1B1B1919191818181616161414141111
+      110F0F0F5F5F5FAFAFAFA9A9A9A3A3A39E9E9E9898979392928E8D8D88888884
+      83837E7E7E7A7A7A7676767070706D6D6D6768686363646060605B5B5B585858
+      5554544F4F4F4D4D4D4949494746464343434040403D3D3D3B3B3A3838373535
+      353332323130302F2E2E2C2B2C29292927282727272725252523232321212121
+      20211F1F1F1F1F1F1E1E1E1C1D1D1B1C1C1C1C1B1B1B1B1A1A1A1A1A1A19191A
+      191919191919191A191919191818181918181918171817171817171717161717
+      1617171717171617161616161616151616151616161615161515151515151515
+      1515151515141415141514141414141314141314131313121312131213131212
+      1212121212121212121112111112111111111111111111111111111A19191B1B
+      1B1B1B1B1B1B1B1B1B1A1A1B1B19191812121211111111111111101110111011
+      11111110111011101010101010101010100F0F100F10100F0F100F0F0F0F0F0F
+      0F0E0F0E0E0F0E0E0E0E0D0D0E0E0E0B0B0C0B0B0B0A0B0B0B0B0A0B0B0A0B0C
+      0C1A1B1B2121212424242828282A2A2A2C2C2C10101108070808080707070707
+      0607070707060707060607070606060607060606060706060606060605060605
+      0506050505050505050505050505050505050405050505050505050505050504
+      0504040405040404040404040404040403040403030404040403030303030303
+      0303030303030303030303030303020303030203080805020202303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303031313135353534
+      34343636363737373A3A3A3C3C3C3333332E2E2E2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F302F303939393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A
+      3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383833
+      33333030303030303030303030303030303030303231323A3A3A3B3B3A3B3A3A
+      3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A393939393939393939
+      39393939393939393939393939393939393939393939393939393939383A3A39
+      3A39393A39393B3A3A3B3A3A3B3B3B3B3B3B3D3D3D3D3D3D3E3E3E4040404040
+      404242424444444545454747474848474A4A494C4B4B4E4D4D504F4F52515155
+      54545757575A5A5A5D5C5C5F5F5F6362626666666969696C6C6C706F6F737373
+      7777777A7A7A7E7E7E8181818585858989898E8D8D9291919696969B9B9B9F9F
+      9FA5A5A5A9A9A9AEAEAEB4B4B4A6A6A67373737373737272727171716E6E6E6A
+      6A6A6767676565656262626262626161616060605F5F5F5F5F5F5F5F5F5E5E5E
+      5E5E5E5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5A5A5A5959595959595A5A5A5B5B
+      5B5D5D5D5F5F5F6262626464646565656565656464646363636161615E5E5E5B
+      5B5B5959595656565454545151515050505050504E4E4E4D4D4D4B4B4B494949
+      464646454545424343404040413F3740414735478A244DDD1A4DFF1A4CFF1A4C
+      FF194BFF1449FF1849FE3A59C9646C8C76746B716F686666655C5C5C51515143
+      43433D3C383836301F3AA30D41FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF0A3DFF
+      093CFF083CFF073BFF0D37D62130692F2F2B3131303434343434343535353535
+      353636363535353535353434343333333333333232323030302E2E2E2B2B2B29
+      2929252525222221201E180B26A1002DFD002CF0002AEF002AEE002AED0029EC
+      0029EA0028EA0028E90027E70027E70026E60026E50025E30024E20024E20024
+      E70722B62121242322202222222222222222222121212121212121212020201F
+      1F1F1F1F1F1E1E1E1D1D1D1C1C1C1919191818181616161414141111110F0F0F
+      878787ADADADA7A7A7A2A2A29D9D9D9797979291918C8C8C8787878382827E7D
+      7D7879787474747070706B6B6B6767676362635E5E5E5B5B5B57575753545450
+      4F4F4C4D4C494949464646434342403F3F3C3C3C3A3A3A373736353535323231
+      302F2F2F2E2E2D2C2C2A2A2A2727282727262525252323232221212121211F1F
+      1F1F1F1F1E1E1E1C1C1D1C1C1B1C1C1B1B1B1B1A1B1A1A1A191A1A1A1A1A1919
+      191A191919191919191919181818191818181818181817181717171717171717
+      1717161716161717161616161616161616151615161616161616151515151515
+      1515151514141415141514141414131414131413121312121312121313121212
+      12121212121212111111111112111111121111111111101111101817171C1B1B
+      1B1B1B1B1B1C1A1B1B1A1B1B1919191313121211111111111111111111101110
+      111111111010111110101010101010101010100F100F10100F0F0F0F100E0F0F
+      0E0F0F0E0E0F0E0D0E0E0D0D0C0C0B0B0B0B0B0B0B0A0B0A0A0A0C0C0C0E0D0D
+      1F1E1E2121222525252727272828281F20200808080708070707070707070707
+      0707070606070706070606070606060606060606060605050606060506050605
+      0506060506050605050505050505050505050505050505050504040405040504
+      0404040404040404040404030404040403030403030404030403030303030303
+      0303030303030303020303030202030305050502030230303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303333333535353737
+      373838383A3A3A3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F3039
+      39393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A
+      3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383838383030
+      313030303030303030303030303030303030303333333B3B3A3B3B3A3B3A3A3B
+      3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A393A3A393A3A393A39393A39393A39393A39393939393939393939
+      393939393939393939393939393939393939393939393939393A3A393A3A393A
+      39393B3A3A3B3A3A3C3B3B3B3B3B3D3D3D3D3D3D3E3E3E404040404040424242
+      4343434444444747474848484A4A494B4B4A4E4D4D504F4F5251515554545756
+      565858585B5B5B5E5E5E6161616464646767676A6A6A6D6D6D71717174747478
+      78787C7C7C80807F8484838887878C8C8C9090909594949999999E9E9EA2A2A2
+      A8A8A8ADADADB2B2B2B4B4B47C7C7C7575757474747272726F6F6F6C6C6C6969
+      696666666464646363636262626161616060605F5F5F5F5F5F5F5F5F5E5E5E5E
+      5E5E5D5D5D5B5B5B5B5B5B5A5A5A5959595959595858585959595B5B5B5D5D5D
+      6161616464646767676969696A6A6A6A6A6A6969696767676464645F5F5F5C5C
+      5C5959595656565454545151515050504E4E4E4D4D4D4B4B4B47474745454543
+      434340403F3F3E3A334484234EE01D50FF1C4FFF1C4EFF1C4DFF1B4CFF1A4CFF
+      1A4BFF184AFF1347FF1A4AFB3A58C95F68886B69616160585353524645413E3D
+      37223EA60E43FF0F41FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF093EFF0C
+      39E21A2F7E2A2A2E2E2C232F2F2F313132333333343434363636363636363636
+      3636363535353535353434343333333333333131312E2E2E2C2C2C2929292626
+      26232322211E130C2695002EFF002CF1002CF0002AEF002AEE002AED0029EC00
+      29EA0028EA0028E90027E70027E70026E60026E50025E30024E20024EA0922A6
+      20201D21211F2222222222222222222222222121212121212121211F1F1F1F1F
+      1F1F1F1F1D1D1D1C1C1C1A1A1A181818151515141414111111212121A9A8A9AB
+      ABABA6A6A6A1A1A19B9B9A9695959090908A8A8A8585858181817C7B7C787777
+      7372726F6E6E6A6A6A6666666161625D5E5D5A5A5A5656565253534F4F4F4B4B
+      4C4848484545454343433F40403D3C3C3A3A3A3737373535343333323030302F
+      2E2E2C2B2B292929282827272626252525232323222222212120201F201F1F1F
+      1E1E1E1D1D1D1C1C1B1C1C1C1B1C1C1A1B1A1A1A1A1A1A1A1A1A1A1A1A191A1A
+      1919191919191919191919181818181718181818171818171717171717171617
+      1616171616161617161616161616161516151516151616151515151515151515
+      1514141414151414151414141413141413141313131313131313131213121212
+      121212121212121212111111121111111111111111111011101717171B1B1B1B
+      1B1B1C1B1B1B1B1B1B1B1B181819121212111111111111111111111110111011
+      101110101011101010101010100F10100F100F100F0F0F0F0F0F0F0F0E0F0F0E
+      0E0E0E0E0E0E0E0E0E0E0B0C0D0B0B0B0B0B0B0B0B0B0B0B0B0B0C0C1514151F
+      1F20222222252424262626252424121213070808070707070807070707070707
+      0707070607060706060607060606060606060706060606060506060606060605
+      0505060605050505050605050505050405050505050505040405050505040404
+      0404040405040404040404040403040303030303030403030403030303030303
+      0303030303030303030302030805080302023030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030323232363636373737393939
+      3B3B3B3D3D3D3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3939393B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3B3A3B3A3A3B3A3A3B
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838363636303030
+      3030303030303030303030303030303030303434343B3B3A3B3B3A3B3A3A3B3A
+      3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A39393A39393A39393A3939393939393939393939
+      3939393939393939393939393939393939393939393A3A3A3A3A393A3A393B3A
+      3A3B3A3A3C3B3B3C3B3B3C3C3C3D3D3D3E3E3E3F3F3F40404042424243434344
+      44444646464747474949494B4B4A4E4E4D4F4E4E515151545353565555595858
+      5B5B5B5D5D5D6060606363636666666969696D6D6D7070707474747777777B7B
+      7B7F7F7F8282828787868C8B8B908F8F9494949998989D9D9DA2A2A2A6A6A6AC
+      ACACB1B1B1B5B5B58F8F8F7676767676767474747272726F6F6F6A6A6A676767
+      6565656363636363636161616161616060605F5F5F5F5F5F5F5F5F5E5E5E5D5D
+      5D5C5C5C5A5A5A5959595959595858585858585757575959595C5C5B62615D66
+      65636969676D6D6D6F6F6F7070706E6E6E6C6C6C6969696565656060605B5B5B
+      5858585656565353535050504E4E4E4D4D4D4A4A4A4747474444444141413E3D
+      3B3B3C3E254DDE1D52FF1F50FF1F4FFF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A
+      4BFF194AFF1748FF1246FF1949FB3554C5525B7A5754494646462342B51044FF
+      1143FF1042FF1041FF0F40FF0E40FF0D40FF0B40FF0D3DF11832952428382926
+      1B2B2B282E2E2E30303032323234343435353536363637373736363636363636
+      36363535353535353434343333333131313030302D2D2D2A2A2A262626232323
+      211E13122370002EFC002CF2002CF1002CF0002AEF002AEE002AED0029EC0029
+      EA0028EA0028E90027E70027E70026E60026E50025E30025EF0E2287211F1420
+      201F2121212222222222222222222222222121212121212121212020201F1F1F
+      1E1E1E1C1C1C1A1A1A1818181515151414141111114D4D4DAFAFAFAAAAAAA5A5
+      A59F9F9F9A9A999494948F8F8E8A8A898484848080807B7B7B7676767272726E
+      6D6D696A696565656060605C5D5D5959595556555252524F4F4F4A4B4A484948
+      4545454242423F3F3E3C3C3C39393937373735353532323130302F2E2E2D2C2B
+      2B2A292928282827272725252423232322232220202020201F1F201F1E1F1E1D
+      1D1D1C1B1C1C1C1C1B1B1C1A1A1A1B1A1B1A1A1B1A1A1A1A1A1A1A1A1A19191A
+      1919191919191919191918181918171818171817181817171717161717161617
+      1716161616161616161616161616151516161516151515151515151515141515
+      1414141515151414141414141314141313131313131313131213131212121212
+      1212121212121112111111111111111111111111111010111716171B1C1B1C1B
+      1C1B1B1B1B1B1B1B1B1A19181913121211111111111111111011101110111110
+      1010101111101010100F100F10100F0F0F0F100F100F10100E0F0F0E0F0F0E0E
+      0E0E0E0E0E0E0E0D0E0B0C0B0B0B0B0B0B0B0B0B0B0B0C0C0B0C0B1C1C1D2020
+      202121212222222222221D1D1D07080808080707070707070707070706070707
+      0707070706070706060606070706060607060606050606060606060506050505
+      0506050605050505050505050505050505050404040505040505050404050404
+      0404040404040404030403040403040403040304030303030403030303030303
+      0303030303030302080808020203303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303636363838383939393B3B3B3D
+      3D3D3838382F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3736363B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383834343430303030
+      30303030303030303030303030303030303737373B3B3A3B3B3A3B3A3A3B3A3A
+      3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A393939393939393939393939
+      39393939393939393939393939393939393939393A3A3A3A3A393B3B3A3B3A3A
+      3C3B3B3C3B3B3D3C3C3D3D3D3D3D3D3F3F3F4040404141414343434444444646
+      464747474949494B4B4B4D4D4C4F4F4E5150505352525555555858585B5A5A5D
+      5D5D5F5F5F6262626666666969696C6C6C7070707373737777777A7A7A7E7E7E
+      8282828585858A8A8A8E8D8D9392929797979C9B9BA0A0A0A5A5A5A9A9A9AFAF
+      AFB4B4B4A3A3A37777777777777676767474747070706D6D6D68686865656564
+      64646363636262626161616161616060606060605F5F5F5E5E5E5D5D5D5C5C5C
+      5959595858585858585757575656565656565756555A5A5A59607563646B6A6A
+      69716F6776736877756B77756D7272716D6D6D6969696565655F5F5F5B5B5B57
+      57575454545151514E4E4E4C4C4C4949494646464343433E3E3E3B3A37373941
+      234FEB2052FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4B
+      FF194AFF1849FF1648FF1247FF1848FA2F4BB42547C71145FF1245FF1244FF11
+      43FF1042FF1041FF0E41FF0F3FFB1736AB23294329261B2A28232B2B2B2D2D2D
+      3030303333333434343535353636363636363737373737373737373636363636
+      363535353535353333333232323030302E2E2E2B2B2B28282824242421211B1A
+      2039022DEA002DF7002DF1002CF1002CF0002AEF002AEE002AED0029EC0029EA
+      0028EA0028E90027E70027E70026E50026E70025E7171F4F201E162020202121
+      212222222323232222222222222121212121212121212020201F1F1F1E1E1E1C
+      1C1C1A1A1A1818181515151313131111117D7D7DADADADA8A8A8A3A2A29D9D9D
+      9898989292928D8D8D8888888382837E7E7F7A79797575757070706C6C6C6868
+      686464646060605B5C5C5859585555555151514D4E4E4B4A4A47474844444441
+      41413E3E3E3C3B3B3A393A37363635353532323230302F2F2F2E2C2C2B2A2929
+      28272726252625252522232323222220202020201F201F201E1E1F1E1D1D1C1C
+      1C1C1C1C1B1B1B1A1A1B1B1A1B1B1A1A1A1A1A1A1A1A1A1A1A191A1A1A1A1919
+      1919191919191919191818191818191817181717181717171617171717171616
+      1717171716171516161516151616151616161516151515151515151415151515
+      1414141414141414141414131414131313121312131312131212121212121212
+      12111212121111111112111111111111111111111110101817171C1C1B1B1B1B
+      1B1B1B1A1B1B1B1A1B1817171111121112111111111110101110111111101010
+      1010101111111110101010100F0F10101010100F0F0F0F0E0F0F0E0E0F0D0E0E
+      0E0D0E0E0D0D0D0C0B0B0B0B0B0C0B0B0B0B0B0B0C0C0B111011201F20201F1F
+      1F1F1F1F1F1F1C1C1D1112110D0C0D0C0C0D0C0B0B0707080707070607070606
+      0606070606070607060606060606060606060606060506060605060605050605
+      0605050505050505050505050405040505050404050505050505040404040404
+      0404040404040404040304040404040403030303040303030303030303030303
+      0303020305080502020330303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303333333838383939393B3B3B3C3C3C3D3D
+      3D2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383332333030303030
+      303030303030303030303030303030303737373B3B3A3B3B3A3B3A3A3B3A3A3B
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A393A3A393A3A393A39393A39393A39393A39393939393939393939393939
+      393939393939393939393939393939393A3A3A3A3A3A3B3B3A3B3B3A3C3B3B3C
+      3B3B3D3C3C3E3D3D3D3D3D3F3F3F404040414141424242444444454545474747
+      4949494B4B4B4C4C4C4E4E4E50504F5251515554545756565A59595C5B5B5F5F
+      5F6262626464646868686B6B6B6E6E6E7272727575757979797D7D7D80808085
+      85858989888D8D8D9191919695959A9A9A9F9F9FA3A3A3A8A8A8ADADADB2B2B2
+      B3B3B37E7E7E7979797878787676767171716F6F6F6B6B6B6767676464646363
+      636363636161616161616161616060605F5F5F5E5E5E5C5C5C5B5B5B59595957
+      575755555554545453545454535256544D455DAF3564F93A63EB4365D54B67C2
+      546AB65A6DAD6170A07676757272726D6D6D6969696464645E5E5E5959595757
+      575252524F4F4F4C4C4C4949494545454141413D3D3D39383434394A2352F721
+      52FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF
+      194AFF1849FF1749FF1648FF1247FF1347FF1546FF1446FF1345FF1244FF1143
+      FF1043FF143EE025305B2B2A202B2A232C2C2C2D2D2D2F2F2F30303032323234
+      3434363636363636373737383838383838383838373737363636363636363636
+      3535353535353333333131312F2F2F2C2C2C292929262626222221201E160B27
+      A1002EFF002DF3002DF2002CF1002CF0002AEF002AEE002AED0029EC0029EA00
+      28EA0028E90027E70027E60027F00724B31D1D1C1F1E1D202020222222222222
+      2323232323232323232323232121212121212020201F1F1F1E1E1E1C1C1C1A1A
+      1A181818151515131313202020A7A7A7ACACACA7A7A7A1A1A19B9B9B96969690
+      90908B8B8B8686868182827D7D7D7978797373737070706B6B6B666667636364
+      5F5F5F5B5B5B5858585354535050504D4D4D4949494747474343434040403D3D
+      3D3B3B3B3839393636363435343232322F2F2F2E2E2D2C2D2C29292828272727
+      26252625252322222221222020202020201F20201F1F1E1D1E1D1C1C1C1C1C1C
+      1B1B1B1A1B1A1A1B1A1A1A1A1B1A1A1A1A1A1A1A1A1A1A19191A191919191919
+      1A19191919191918181818181819181818171718171717171617171717161716
+      1616171616161616161516161516151515151515161616151515151515151415
+      1414141414141414141413141313141313131213121213121212121212121211
+      121211121112111212121111111111111111111011111717171B1C1B1B1B1C1B
+      1B1B1A1B1B1B1B1A171617111211111112111111111111111110111110101111
+      11101010101010101010100F10100F0F0F0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E
+      0D0E0E0E0B0C0B0B0B0C0B0B0B0B0B0B0C0C0C0C0B0C1B1A1B1E1E1E1F1F1F1D
+      1D1D1B1B1B1B1B1B1A1A1A191919181918181818171817171718161616131313
+      1313131313131010100F0F0F0F0F0F0F0F0F0A0A0A0A0A0A0A0A0A0809090506
+      0605050505050505050504050504050505050504040504050404040404040404
+      0404040404040404040404040403040304030304030303030304030303030203
+      0805080303033030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303131313737373939393A3A3A3C3C3C3D3D3D343434
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3838383B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838313131303030303030
+      3030303030303030303030303030303837373B3B3A3B3B3A3B3A3A3B3A3A3B3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A393A3A393A3A393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393A3A3A3A3A3A3B3B3B3B3B3A3B3B3A3C3B3B3D3C
+      3C3E3D3D3E3D3D3E3E3E4040404040404242424444444545454747474848484A
+      4A4A4B4B4B4E4E4E50504F5252515554545756565958585C5B5B5F5E5E616161
+      6464646666666A6A6A6D6D6D7070707474747777777B7B7B7F7F7F8383838787
+      878C8C8B9090909494949998989D9D9DA2A2A2A6A6A6ACACACB1B1B1B5B5B592
+      92927A7A7A7979797777777474747171716D6D6D6A6A6A676767646464646464
+      6262626161616161616060605E5E5E5D5D5D5B5B5B5959595757575454545252
+      5251515150504F524F47465B9F3566FF3565FF3464FF3263FF3062FF2E60FF2F
+      60FF2F60FF65729C79776F7272726D6D6D6767676262625D5D5D585858555555
+      5050504D4D4D4949494444444040403B3B3B383731313A5B2353FB2253FF2152
+      FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF19
+      4AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF1044FF
+      183ECB312F2A302F2C3031313131313232323333333535353636363737373838
+      3839393939393939393939393938383839393938383837373736363636363635
+      35353434343232323030302D2D2D2A2A2A28282824242422201B1B2034032DE0
+      002EFD002DF3002DF2002CF1002CF0002AEF002AEE002AED0029EC0029EA0028
+      EA0028E80027ED0127E4151E451F1D151F1F1F21212122222222222223232323
+      23232424242323232323232222222020202020201E1E1E1C1C1C1A1A1A171717
+      1515151212124E4E4EAFAFAFAAAAAAA5A5A59F9F9F9999999494948F8F8F8A8A
+      8A8585858080807C7B7B7876767372726E6E6E6A6A696666666162615F5E5E5A
+      5A5A5556565354544F4F504C4C4C4949494646464343434040413D3D3D3B3B3B
+      3838383635363433333131312F2F2F2E2E2E2B2C2B2929292928282726262523
+      232423232221222121202020201F1F1F1E1D1E1D1E1E1C1D1C1C1C1D1B1B1B1B
+      1B1B1B1B1B1B1B1A1B1A1B1B1B1A1A1A1B1A1A1A1A191A1A1A1A1A191A191919
+      1919191919181918181918171818181818171817171717171717171717161617
+      1616161616161616161515151516151615151515161515151514141515141414
+      1515151415141414141313141314131213121212131213131212121211121212
+      1211111212111111111111121111111010111110101717161B1C1B1B1B1B1B1B
+      1B1B1B1B1A1B1B15151511111211111111111111111110111111111110111010
+      1110101010101010100F100F1010100F0F100E0F0F0F0E0E0E0E0E0E0E0D0E0E
+      0D0D0E0B0C0C0C0B0B0B0B0B0B0B0B0C0B0C0E0E0D1C1D1C1D1D1C1C1C1C1B1B
+      1B1B1B1B1A1A1A1A1A1A19181918181819181818181818181818181818181818
+      1818181818181818181818181818181818171717171717171717171717171717
+      1717171414141312131414140E0E0E0505040405040404040504040405040404
+      0404040403040304030404040304030303030303030303030303030308080802
+      0303303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303535353838383A3A3A3B3B3B3D3D3D3C3C3C2E2E2E2F
+      2F2F2F2F2F2F2F2F2F2F2F3232323B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383838383837373730303030303030303030
+      30303030303030303030303131313939393B3B3A3B3B3A3B3A3A3B3A3A3B3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      393A3A393A3A393A39393A39393A39393A393939393939393939393939393939
+      39393939393939393A3A3A3A3A3A3B3B3B3B3B3B3B3B3A3C3C3B3D3C3C3E3D3D
+      3E3D3D3F3E3E4040404040404242424343434444444747474747474949494B4B
+      4B4E4E4E4F4F4F5151515454535655555858585C5B5B5E5D5D605F5F62626266
+      66666969696C6C6C7070707373737777777B7B7B7E7E7E8282828686868A8A8A
+      8E8E8D9393929797979C9B9BA1A0A0A5A5A5A9A9A9AEAEAEB4B4B4A6A6A67B7B
+      7B7B7B7B7979797777777272726E6E6E6B6B6B68686865656564646463636362
+      62626161616060605E5E5E5D5D5D5A5A5A5757575555555252524F4F4F4D4D4D
+      4E4B4146568C3767FD3667FF3666FF3665FF3564FF3464FF3363FF3261FF2E5F
+      FF4467DB7A79767675747070706B6B6B6666666060605B5B5B5656565151514D
+      4D4D4949494444443F3F3F3A3A3A36342D2F3C6D2455FF2354FF2253FF2152FF
+      2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194A
+      FF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1144FF1542EC34
+      363F3736323737373737373838383838383939393A3A3A3B3B3B3B3B3B3B3B3B
+      3C3C3C3B3B3B3B3B3B3A3A3A3939393939393838383737373636363636363434
+      343333333131312F2F2F2C2C2C292929262626232323211F16172254022EEC00
+      2EFE002DF3002DF1002CF1002CF0002AEF002AEE002AED0029EC0029EA0028F0
+      0028F110206D1D1B101E1D1E2020202121212222222424242424242323232424
+      242424242323232222222020201F1F1F1E1E1E1C1C1C19191917171714141412
+      1212848584AEAEAEA8A8A8A3A3A39D9D9D9898979392938E8D8E888888838383
+      7F7E7F7A7A7A7776767270716E6D6D6969696565656160615C5C5C5959595656
+      565252524E4E4E4B4B4C4949494545454242423F3F403C3C3C3A3A3A38383836
+      36363333323030302F2F2F2D2D2D2B2B2B292A29282928272726252424242223
+      2321212121202020201F1F201E1E1E1E1E1E1D1C1C1D1C1C1B1C1B1B1B1B1A1B
+      1B1A1B1B1B1A1A1A1B1A1A1B1A1A1A1A1A1A191919191A1A1A1A191A19191919
+      1919191919191818181817181817181717181717171716171717161716171616
+      1616161616161616161615161616151615151515151515151415151515141514
+      1414151414141514131413131313121312131312121212121212121212121211
+      11121211121111121111111111111010111011101919191C1B1B1B1B1B1B1B1B
+      1A1A1B1A1A191314131211111111111111111111111010111011111111101110
+      111010100F10100F1010100F0F0F0F0F0F0E0E0F0E0F0E0E0E0E0E0E0D0D0D0B
+      0B0D0B0C0B0B0C0B0B0B0B0C0C0C0C0C0C1717171C1B1C1C1C1B1B1B1C1B1B1C
+      1A1A1A1A191A1A191A1A191A1919191819181918191818181818181818181818
+      1818181818181818181818181818181818181718181818181817181817171719
+      18181918181919191B1B1B050505040405050504040405040405040404040404
+      0404030403030403040403040304040303040403030303030808080303033030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303131313838383939393A3A3A3C3C3C3E3E3E3333332F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F3838383B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383938383838383737373030303030303030303030
+      303030303030303030303131313939393B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A39393A39393A39393A39393939393939393939393939393939
+      393939393A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C3B3C3C3B3E3D3D3E3D3D3F
+      3E3E4140404040404242424343434444444646464747474949494B4B4B4D4D4D
+      4E4E4E5151515353525555555857575B5A5A5D5C5C605F5F6262626565656868
+      686B6B6B6E6E6E7272727575757979797D7D7D8181818585858989898D8D8D91
+      91919696959A99999E9E9EA4A3A3A8A8A8ADADADB2B2B2B6B6B68787877C7C7C
+      7B7B7B7979797575757070706C6C6C6969696767676565656363636363636161
+      615F5F5F5E5E5E5C5C5C5959595555555151514E4E4E4B4B4B4A473F45517939
+      68FA3868FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF3262FF3061FE
+      66739D7B79717374746F6F6F6969696565656060605959595353534E4E4E4949
+      494545453F3F3F3A3A3A37342A2D40822456FF2455FF2354FF2253FF2152FF21
+      52FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF
+      1849FF1749FF1748FF1648FF1547FF1546FF1446FF1245FF1343FC343C5E3C3B
+      353C3C3C3D3D3D3E3E3E3F3F3F3F3F3F40404042424241414142424241414140
+      40403E3E3E3D3D3D3B3B3B3A3A3A393939383838363636363636353535343434
+      3333333131312E2E2E2B2B2B282828252525222222221F13172254042CDD002E
+      FF002DF8002DF3002CF1002CF0002AEF002AEF002AF1002AF90228DF1120681C
+      1B131E1D1C1F1F1F202020222222242424242424252525252525242424242424
+      2424242222222121211F1F1F1D1D1D1B1B1B1919191616161313132D2D2DADAD
+      ADACACACA6A6A6A1A0A09B9B9B9595959090908C8B8B8687868382827E7E7D79
+      79797574747170706C6B6B6867666463645F5F5F5B5C5B585858545454515151
+      4E4E4E4A4B4A4848484444444242423E3F3E3C3C3C3939393737373636363333
+      333131312F2F2F2D2D2D2B2B2B2A2A2A29282827272726252424232323222221
+      20202020201F1F1F1E1E1E1D1D1D1C1D1D1D1D1C1C1B1B1C1B1B1B1C1B1A1A1A
+      1B1A191A19191A191A19191A1919191918191A191819191919191A1919191919
+      1919191918181819181719181718171718171717171717161717161617161616
+      1616161616161616161516151615151515151516151515151415141514151415
+      1514151414141413131313141313131212121212121213131212121212121112
+      1111111111111111111211111111111111111119191A1B1B1B1B1B1B1B1B1B1B
+      1B1B191918121112111211111111111111111111111111111111111110101110
+      101010101010100F0F0F0F0F100E0F0F0F0E0E0E0E0E0E0E0E0E0E0D0E0E0C0C
+      0B0B0B0B0B0C0C0B0C0B0A0B0B0D0D0D1B1C1B1C1B1B1B1B1B1B1B1B1A1A1B1A
+      1A1A1A1A1A1A191A191A1A191A19191919191919191919191919191919191919
+      1919191919191818181818181818181817181817181818181819181919181A19
+      1A1D1D1D2323230B0B0B05050505040405040404040404050404040404040404
+      0404030404040303040303030304030403040303080808030303303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303636363939393A3A3A3B3B3B3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F3333333B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838363635303030303030303030303030
+      3030303030303030303131313939393B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A
+      3A393A3A393A39393A39393A39393A3939393939393939393939393939393939
+      3A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3B3D3D3C3E3D3D3E3D3D403F
+      3F4140404141414242424444444545454747474949494B4B4B4C4C4C4E4E4E50
+      50505252525555545757565958585C5B5B5F5E5E6261616564646666666A6A6A
+      6D6D6D7070707474747777777B7B7B7F7F7F8383838787878C8C8C9090909494
+      949898989D9C9CA1A1A1A7A6A6ABABABB0B0B0B5B5B59D9D9D7E7E7E7D7D7D7A
+      7A7A7777777373736F6F6F6C6C6C686868666666656565636363626262606060
+      5E5E5E5B5B5B5757575353534E4E4E4B4A4B48453E434D683B68F23A6AFF3A68
+      FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3463FF2F60FF4467DD79
+      79777776757272726D6D6D6969696464645E5E5E5656564F4F4F4B4B4B464646
+      4040403B3B3B3734282D43922458FF2455FF2455FF2354FF2253FF2152FF2152
+      FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF18
+      49FF1749FF1748FF1648FF1547FF1546FF1446FF1145FF2F4185454136444545
+      4848484B4B4B4C4C4C4C4C4C4C4C4C4C4C4C4B4B4B4949494747474545454242
+      424040403D3D3D3B3B3B39393939393938383836363636363635353534343432
+      32323030302D2D2D2B2B2B282828252525222222211F161C1F300E2795032CE2
+      002DF8002DFF002DFF002DFE002BF50229E00A249D171D391E1B111E1E1D1F20
+      2021212123232324242424242425252525252526262625252525252524242423
+      23232121211F1F1F1D1D1D1B1B1B181818161616131313686868B0B0B0AAAAA9
+      A4A4A49E9E9E9999999393938E8E8E8A8A8A8685858181817C7C7B7778777373
+      736F6F6F6A6A6A6766666362625F5F5F5B5A5B5757565454545050504D4D4C49
+      4A4A4746474343434141413D3E3E3C3C3B3838393636363535353333332F3030
+      2E2E2E2D2D2D2A2A2A2929292828272727262524242424232221212120202120
+      2020201F1F1F1E1D1D1D1D1D1D1D1C1C1A1B1B1B1B1A1A1A1B1A1A1A1A1A1A1A
+      1A19191A1A191A19191919191818171818181818171818181718181818181817
+      1818171818181918181918181817171817171717171717161617161717161616
+      1716161616151616151616151516161515151515151515151415151514141414
+      1414141414141314141314131213131312121212121212121212111212111112
+      1112111112111211111110111111101213131A1A1A1B1C1B1B1B1C1B1A1B1B1B
+      1B17161712111111111111121111111111111111101110101010111010101010
+      101010100F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0F0E0E0E0D0D0D0C0C0C
+      0C0B0C0B0B0B0B0B0B0B0B0B1111121313141313141616161817171817171717
+      171A1A1A1A1A1A1A191A191A1A1A191A19191919191919191919191919191919
+      191919191919191919191919191819191919191919191919191A1C1C1C202020
+      2726261A1A1A0504050505040405040405040404040404040405040404040404
+      0404040404030404040403030303030408080A03030330303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303232323838383939393B3B3B3C3C3C3E3E3E3232322F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F3A39393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A
+      3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383835353530303030303030303030303030
+      30303030303030303030303737373B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A
+      393A3A393A39393A39393A39393A39393939393939393939393939393A3A3A3A
+      3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3C3E3E3D3E3D3D403F3F414040
+      4241414242424444444545454747474848484A4A4A4B4B4B4E4E4E5050505252
+      525555555757565959585C5B5B5E5D5D6160606463636766666969696C6C6C70
+      70707373737777777A7A7A7E7E7E8282828585858989898E8E8E939393979797
+      9B9B9BA09F9FA4A4A4AAA9A9AFAEAEB3B3B3B1B1B18282827E7E7E7D7D7D7A7A
+      7A7575757171716E6E6E6969696767676565656464646262625F5F5F5D5D5D59
+      59595555555050504B4B4B47453E42495C3D66E83B6CFF3B69FF3A69FF3A69FF
+      3968FF3867FF3767FF3666FF3665FF3564FF3464FF3362FF3061FF6272A57D7A
+      727676767373736E6E6E6969696363635B5B5B5252524D4D4D4848484242423D
+      3D3C38352C2D48A42559FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF
+      2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849
+      FF1749FF1748FF1648FF1547FF1546FF1045FF2B47AF4F4D4251515054545457
+      57575858585757575656565555555353535151514D4D4D4A4A4A464646434343
+      4040403D3D3D3A3A3A3939393939393838383737373535353535353333333131
+      312F2F2F2C2C2C2A2A2A27272725252524242421201B201E151B1F2E14225F0F
+      25830E24890E2484122164191D321D1C141E1D161F1F1F212121222222232323
+      2424242525252525252626262626262626262626262525252424242323232121
+      211F1F1F1D1D1D1A1A1A1818181515151C1C1C9E9E9EADADADA8A8A8A2A1A29C
+      9C9C9797969292928E8E8E8888888384837F7E7E7B7A7A7676757172716E6D6C
+      6969696565656261615E5D5D5959595757575353534F4F4F4C4C4C4949494746
+      464344434141413E3E3E3B3C3C3839393636363434343232323030302F2F2F2D
+      2D2C2B2A2A2929292828282626262525242425242222212020202020201F2020
+      1F1E1E1D1D1C1D1C1D1C1C1C1B1A1B1B1A1A1A1A1B1A1B1A1A1A1A1A1A1A1A19
+      1A1A191919191919191919181817181818181818171818171717171717171717
+      1717171717181718191818191717181717171616171617161716161716161616
+      1615151516151515151615151515161515151515151514151415141414151414
+      1514141414131414131413131312121212121212121212121211121111111111
+      11111111111112111111111010111415151B1B1B1C1B1B1C1B1B1B1B1B1B1B1B
+      1414141112121112111111111111111111111110111011101111101110101010
+      10100F0F100E0F0F0E0F0F0E0E0E0E0E0E0E0F0E0E0E0E0E0E0C0C0B0B0C0C0B
+      0C0B0B0B0B0C0B0B0B0B0B0B0B0B0A0B0A0B0A0B0B0B0B0A0A0A0A0A0A0A0A0A
+      0A0A090A0A090C0B0C0E0E0E0E0D0E0D0D0E1111111212121111121112111616
+      151515151515151616161919191919181A1A191B1B1A1E1E1E24242528292828
+      2828050505050505050505040505050404040404040405040404040404040403
+      0304040403040303040403030808080304033030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3636363939393A3A3A3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F3333333B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B
+      3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383535353030303030303030303030303030
+      303030303030303030303737373B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A39
+      3A3A393A39393A39393A39393A39393939393939393939393A3A3A3A3A3A3A3A
+      3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3D3E3E3D3F3E3E41404041404043
+      42424343434444444646464747474949494B4B4B4D4D4D4F4F4F515151535353
+      5555555858575B5B5A5D5C5C605F5F6262626665656968686B6B6B6E6E6E7272
+      727575757979797C7C7C8080808585858989898C8C8C9090909595959A9A999E
+      9E9EA3A2A2A8A7A7ACACACB1B1B1B5B5B59696968080807F7F7F7D7D7D787878
+      7474746F6F6F6C6C6C6868686666666565656262625F5F5F5C5C5C5858585353
+      534E4E4E4847414347523E65DC3D6EFF3C6BFF3B6BFF3B6AFF3A69FF3A69FF39
+      68FF3867FF3767FF3666FF3665FF3564FF3464FF3061FF4267E37B7B7B7B7A78
+      7777777373736E6E6E6868686060605656564E4E4E4949494444443E3E3D3939
+      332D4CB82659FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF20
+      51FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF
+      1749FF1748FF1648FF1547FF1345FF2048DD5555585B5A585D5D5D6060606161
+      616060605F5F5F5C5C5C5A5A5A5656565353534F4F4F4A4A4A47474743434340
+      40403D3D3D3A3A3A393939383838373737373737353535343434333333313131
+      2F2F2F2D2D2D2A2A2A28282826262624242422222121211D211F15201D10201D
+      0F201D0F201E131F1F1A1F1F1E20202022222222222224242424242425252526
+      26262727272626262727272727272626262525252424242323232121211F1F1F
+      1D1D1D1A1A1A171717141414515151B0B0B0ABABABA5A5A59F9F9F9A9A9A9695
+      959090908B8B8B8787878282827E7E7E7A79797474746F706F6D6D6C68686864
+      6464605F5F5D5C5C5959595554555251514E4E4E4B4B4B484848454444424242
+      3F3F3F3D3D3D3B3B3B3838383636363334333131312F30302E2E2E2C2B2C2A2A
+      2A2929292828282626262525242223222121222020202020202020201E1F1F1D
+      1D1D1D1C1D1D1C1C1B1B1B1B1A1B1A1A1B1A1B1A1A1A1A1A1B1A1A1A1A1A1A19
+      1A1A1A19191A1919191918181818181718171717171817171717181717171716
+      1617161717161717161717171718171717161717161717171716171616161716
+      1616151616161616161515151515151515151515141514141515151414141414
+      1414141413141313141312131212121312121212121212121212121211121112
+      111112121111111110101011111718181C1B1A1B1B1B1B1C1B1B1B1B1A1A1A13
+      1112111111111111111211111111101111111010111110101010101010100F10
+      100F0F100F0F0F0F0F0E0E0F0F0E0F0E0E0F0E0E0E0D0D0C0C0C0C0C0C0C0B0B
+      0B0B0B0B0C0B0B0B0B0B0A0B0B0B0A0A0B0B0A0B0A0A0A0A0A0A0B0A0A0A0A09
+      090A0A0A0A0A0A090A09090909090A090A090909080909090909090908080908
+      0809080809080808080808080808091E1D1E2122212626272B2A2B2F2F300D0D
+      0D05050505040505040504040505040405050404050404040404040404040403
+      0404030404040303080A0A030403303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303033333338
+      38383A3A3A3B3B3B3D3D3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3838383B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A
+      3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838353535303030303030303030303030303030
+      3030303030303030303535353B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A39393A39393A39393A39393939393939393A3A3A3A3A3A3A3A3A3B3B3B
+      3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3D3F3F3E4140404140404342424443
+      434444444646464747474949494B4B4B4C4C4C4E4E4E50505052525255555557
+      57575959585C5C5B5F5E5E6261616564646766666A69696D6D6D707070747474
+      7777777B7B7B7E7E7E8282828787878B8B8B8F8F8F9393939797979C9C9BA1A1
+      A0A5A5A5AAA9A9AFAEAEB3B3B3ACACAC8282828181817F7F7F7B7B7B77777772
+      72726E6E6E6A6A6A6868686565656262625F5F5F5B5B5B5757575151514B4B48
+      4549544063CF3E70FF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968
+      FF3867FF3767FF3666FF3665FF3564FF3463FF3162FF6372A67F7C747A7A7A76
+      76767272726B6B6B6262625959595151514A4A4A45454540403E3C3B3B2D50CB
+      2759FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051
+      FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF17
+      49FF1748FF1648FF1447FF1647FB51587366625367655E696762696864686764
+      66656364636160605E5C5B5A5858585353534F4F4F4A4A4A4545454242423E3E
+      3E3C3C3C3A3A3A3939393838383838383636363535353434343333333232322F
+      2F2F2D2D2D2B2B2B292929272727262626242424232323222222222222212121
+      2121212222222222222323232424242525252626262727272727272828282828
+      282828282727272727272727272626262424242323232121211F1F1F1C1C1C19
+      1919161616161616909090ADADADA8A8A8A2A2A29D9D9D9898989392938E8E8D
+      898A898585858181817C7C7C777777737373706F6F6B6B6A686867636362605F
+      5F5B5A5A5857575554545150504E4D4D4A4A4A4747474444444242423F3E3F3C
+      3C3C3A3A3A3637373636363434333030303030302E2E2D2B2C2B2A2A2B292929
+      2828282625252424232323222222212020202120202020201F1E1F1D1E1E1D1D
+      1D1E1C1C1C1B1B1B1B1B1B1C1B1C1C1C1B1B1C1B1B1B1C1B1B1A1A1A1B1A1A1A
+      1A1A191919191919191818171818181817171717171717171817171717171717
+      1616171615171616171616171717171717171717171617171716171616161615
+      1616151515151615161515161515151515151515151515141514141415141414
+      1414141314141314131313121212121212121212121212121112121212121112
+      1111111111111111101211111A19191C1B1A1B1B1B1B1B1B1B1B1B1616161112
+      11121112111112111111111111111011111110101010101010101010100F0F10
+      0F0F0F0F0F0F0F0F0E0E0E0E0F0E0E0E0E0E0E0E0B0C0C0C0B0B0C0B0C0B0C0B
+      0B0B0C0B0B0B0B0B0B0A0B0B0A0A0B0A0B0A0A0B0B0A0B0A0A0A0A0A0A0A0A0A
+      0A0A0A090A0909090A0909090909090909090909090809090909080909080908
+      08080808080808080909091919192323232727272A2B2A2F302F1D1D1D050506
+      0505050505050405050405040404050405040405040404040404040304040404
+      040303040A0A0803030430303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303737373939
+      393A3A3A3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3232323B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A
+      3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383835353530303030303030303030303030303030
+      30303030303030303434343A3A3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393939393939393A3A3A3A3A3A3B3B3B3B3B3B3B
+      3B3B3C3C3C3C3C3C3E3E3E3E3E3E3F3F3E40403F414040424141434242454444
+      4545454747474848484A4A4A4B4B4B4E4E4E5050505252525555555757575959
+      595C5C5B5E5E5D605F5F6362626666666969696D6C6C6F6F6F72727276767679
+      79797E7E7E8181818585858989898D8D8D9191919696969A9A9A9E9E9EA3A3A2
+      A8A7A7ACACACB1B1B1B6B5B59595958383838181817D7D7D7A7A7A7575757171
+      716D6D6D6969696666666363636060605B5B5B5656565151514A484043538340
+      72FF3F6FFF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF
+      3867FF3767FF3666FF3665FF3564FF3162FF4368E27A7B7A7C7B797878787474
+      746E6E6E6666665C5C5C5352524E4D4C4847454441383F3E392C54DE2859FF28
+      58FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF
+      1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749
+      FF1748FF1648FF1346FF3350BC4E5B89535E885A628161657763667064666C63
+      6469626262605F5C5B5B5A5656565151514C4C4C4747474242423F3F3F3D3D3D
+      3A3A3A3A3A3A3838383838383838383636363535353434343333333131312F2F
+      2F2E2E2E2D2D2D2A2A2A29292928282826262625252525252525252525252525
+      2525262626262626262626282828282828282828292929292929292929292929
+      2929292828282727272626262424242323232020201E1E1E1C1C1C1919191616
+      16494949B0B0B0ABABABA5A5A4A09FA09A9A9A9595959090908C8C8C87878883
+      83847F7F7F797A797576767272726D6D6D6969696565646262615E5E5D5B5959
+      5756565353534F4F4E4D4D4C4A49494747474443444241423E3F3E3D3C3C3939
+      39363636353535323232303130302F2F2D2D2D2B2B2A292A2A29292827262625
+      25252424242323232120212020212020201F1F1F1F1F1F1E1E1D1E1E1E1D1E1E
+      1D1D1D1E1E1D1E1D1D1E1D1D1D1C1D1D1C1C1D1D1C1D1C1C1D1C1C1C1C1B1C1B
+      1C1B1C1C1C1B1B1A1A1A19191919191818171717181717171717171717171617
+      1716161516151516161516161616161717171716161616161617161616161616
+      1615151616151616151515161515151415151514151415141514141414141414
+      1414131414131413121313121212131312121211121112121212111112121211
+      12121111111111111313131C1B1B1B1B1A1B1B1B1B1B1B1B1B1B131213111111
+      121112111112111111111111111111101111101110111010100F0F100F0F0F0F
+      0F0F0F0E0E0F0F0F0F0E0E0E0E0E0E0E0D0D0D0B0C0C0C0C0C0C0B0B0B0B0C0B
+      0B0B0C0B0B0B0B0B0B0B0B0A0B0A0A0A0A0A0B0B0B0A0A0A0A0B0A0A0A090A0A
+      09090A0A0A09090A0A090A0A0A09090909090809080909090809090809080809
+      090908080909091313132121212526262A2A2A2F2E2E2B2B2C05050505050504
+      0505050405050505040404050404040404040404040404040404040403040404
+      0A080A0403043030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303333333939393A3A3A
+      3B3B3B3D3D3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3838383B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3B3A3B3A3A3B3A3A3B
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383535353030303030303030303030303030303030
+      303030303030303232323939393B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A39
+      3A39393A39393A39393A39393939393A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C
+      3C3C3C3C3D3D3D3E3E3E3E3E3E40403F41414041404043424245444445444447
+      47474747474949494B4B4B4E4E4E4F4F4F5151515353535555555858585A5A5A
+      5D5D5C5F5F5F6262626564646867676C6B6B6E6D6D7171717474747878787B7B
+      7B7F7F7F8383838787878C8C8C9090909393939898989D9D9DA1A1A1A5A5A5AA
+      A9A9AFAEAEB3B3B3ADADAD8585858484848181817D7D7D7878787474746F6F6F
+      6B6B6B6767676464646060605C5C5C5656565151514A49484343444062CB4072
+      FF406EFF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF38
+      67FF3767FF3666FF3665FF3464FF3162FF6373A57E7B727A797877767471706D
+      6A6964615F5657544A504F4C494A513F4A6E354EA22A59F7295AFF2958FF2858
+      FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F
+      50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF
+      1748FF1547FF1447FF1446FF1546FD1546FA1645F71745F51D48E81F48E32449
+      D6314EB95A5A5A5656545151514C4C4C4747474343434040403D3D3D3C3C3C3A
+      3A3A393939383838383838373737363636353535343434333333323232313131
+      2F2F2F2E2E2E2C2C2C2A2A2A2A2A2A2929292828282828282828282929292828
+      282929292929292A2A2A2A2A2A2A2A2A2A2A2A2929292A2A2A2A2A2A29292928
+      28282727272626262424242222222020201D1D1D1A1A1A181818181818909090
+      ADADADA8A8A7A2A2A29D9D9D9999999393938F8F8E8A8A8A8686868181817C7C
+      7C7878787373747070706C6C6C68686864646460605F5D5D5D59595855545453
+      52524F4E4E4C4C4C4848484645454242424040403E3E3E3C3C3B3A393A363636
+      3434343132323130312E2E2E2E2D2D2B2B2B2929292928282826262524252424
+      2422222220202121202020212121202020201F20202020201F1F1E1D1E1E1E1E
+      1E1D1E1E1D1E1D1D1E1D1D1D1C1C1D1D1C1D1C1C1D1C1C1D1C1B1C1C1C1C1B1B
+      1B1C1C1B1B1B1B1B1B1A1A1B1B1A1A19191A1817181717171717161717171716
+      1716161615161615151516151616171717161617161616161616161616161616
+      1516161615161516151515151515141515151515141514151514141414141414
+      1413141413141313131312121212121212121212121111121112121211111211
+      111111111111111817171C1A1A1C1B1A1B1B1B1B1B1C19191812121212121111
+      1111111211111111111111111111111111101010101010100F0F100F0F0F0F0E
+      0E0F0F0E0E0F0E0E0E0E0E0F0E0E0E0D0D0C0D0C0D0C0C0C0B0C0D0B0B0C0C0B
+      0C0B0B0C0B0B0B0B0B0A0A0B0B0A0B0B0A0B0B0A0A0B0A0A0A0A0A0A090A0A0A
+      090A0A09090A0909090A09090909090909080909080808090909080909090909
+      090A090D0C0C2020202525252928282D2E2D3031300B0B0B0505050505050504
+      04040505050505040405050504050404050404040404040404040404080A0A04
+      0404303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303737373939393A3A3A3C
+      3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838353535303030303030303030303030303030303030
+      3030303030303131313837373B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A
+      39393A39393A39393A39393A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C
+      3D3D3D3E3E3E3E3E3E3F3F3F4141404141404342424443434544444746464747
+      474949494B4B4B4C4C4C4E4E4E5050505252525555555757575959595C5C5C5F
+      5F5E6161606463636766666969696D6D6D7070707373737777777A7A7A7E7E7E
+      8282828585858989898E8E8E9292929797979A9A9A9F9F9FA4A4A3A8A8A8ACAC
+      ACB1B1B1B6B5B59696968585858383838080807B7B7B7676767272726D6D6D69
+      69696565656161615D5D5D5757575151514A4B4B44423D3E455A406DF24071FF
+      406EFF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867
+      FF3767FF3666FF3665FF3263FF4368E27878787878757374786C6F795F678550
+      6096425BAD3959C6315BEA2C5CFE2A5CFF2A5BFF2A5AFF2959FF2958FF2858FF
+      2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50
+      FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF17
+      48FF1547FF1447FF1446FF1345FF1144FF1043FF0F42FF0D41FF0C3FFF0C3FFF
+      42508757544A4F4F4F4B4B4B4848484343434040403D3D3D3C3C3C3B3B3B3A3A
+      3A38383838383838383838383836363635353534343434343433333331313130
+      30302F2F2F2E2E2E2D2D2D2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2B2B2B2B2B2B
+      2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2828282727
+      272626262424242222221F1F1F1D1D1D1A1A1A171717484848B0B0B0ABABABA5
+      A5A5A1A0A19B9B9B9696969191918E8E8E89898985858580807F7B7B7B777777
+      7272726E6E6E6B6B6A6767666363635F5F5F5B5A5A5858585554545150504E4E
+      4E4B4A494847474544444242423F3F3F3D3D3D3B3B3B38373836363634343431
+      32323030302E2E2F2C2C2C2B2B2B292929292828262625262425242323222223
+      22222222222223222221222121202021202020201F1F1F1E1F1E1E1E1E1D1F1E
+      1D1E1D1D1E1D1D1D1D1D1D1D1D1D1C1D1D1C1C1D1C1C1C1C1C1C1C1C1B1C1C1B
+      1B1B1B1B1B1B1B1B1B1A1B1A1A1B1A1B1A191A19181818171617171617171717
+      1615161515161515151515151616161716161616161616161616161516161616
+      1616161515161615161515151515151514151515151415141514151414141414
+      1314141314131313131212121212121212111212121211111211121111111111
+      1111111211121B1B1B1B1B1A1C1B1A1C1B1B1B1B1B1414141212111212121112
+      1112111111111110101111101110101111101010100F100F0F0F0F0F0F0F0E0F
+      0E0F0F0F0E0E0F0E0F0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0B0C0C0B0C0C0C0B0C0B0B0B0B0C0C0B0B0B0A0B0B0A0A
+      0A0A0A0A090A0A09090A0909090909090908090909090809080808080808080A
+      0A0A1B1B1B2322232828282C2C2D303030181818050505050605050505050505
+      0505050505050405040405040504040405040404040304040A0A0A0304043030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303333333939393A3A3A3B3B3B3D3D
+      3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3736363B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383837363630303030303030303030303030303030303030
+      30303030303030303535353B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39
+      393A39393A39393B3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E
+      3E3E3E3E3E3F3F3F414141414140424241434242454444464545484747484848
+      4A4A4A4B4B4B4E4E4E5050505151515454545656565858585B5B5B5E5E5E6060
+      5F6262626665656968686C6B6B6F6E6E7372727575757979797C7C7C80808084
+      84848888888C8C8C9090909494949999999D9D9DA1A1A1A6A6A6AAAAA9AFAEAE
+      B3B3B3ADADAD8787878686868383837F7F7F7979797575757171716B6B6B6767
+      676262625E5E5E5959595353534C4C4C4545453F3C333D4F854171FF4070FF40
+      6FFF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF
+      3767FF3666FF3665FF3464FF4769D84768D73D65E73662F63261FC2E60FF2C60
+      FF2D5FFF2D5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF27
+      58FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF
+      1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748
+      FF1648FF1547FF1546FF1446FF1345FF1244FF1143FF1042FF0D40FF1C44DD4D
+      4D504C4C484848484545454343434040403D3D3D3C3C3C3C3C3C3A3A3A393939
+      3838383838383838383838383636363636363535353434343434343232323131
+      313131313030302E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A292929272727262626
+      2424242121211E1E1E1C1C1C191919191919929192ADAEADA8A8A8A2A2A29E9E
+      9E9999999394939090908B8B8C8787878181827E7E7D7A797A7575757171716D
+      6D6D6868696565656161615D5D5D5A595A56575653535350504F4E4D4D4A4949
+      4847464543444241413F3E3E3D3D3D3A393A373737353635333333313131302F
+      302F2F2F2C2C2B2B2A2A29292A29292926272625252524252425242323232423
+      232323232321212120212121202021201F1F1F1E1E1E1E1F1E1D1F1E1E1F1E1D
+      1E1D1D1E1D1D1D1D1D1D1C1C1D1D1D1D1C1C1C1C1C1C1C1C1C1C1B1B1C1C1C1B
+      1C1B1B1B1B1B1B1A1B1B1B1B1B1A1B1A1A1A1A1A1A1A18181817171716161616
+      1616151616151515151515161516171617171616161616161616151616151516
+      1515161515161516151515151515151515141414141414141414141414141413
+      1414131413121313121213131212121212121212121112111211111111111111
+      11111615151C1B1B1B1A1B1C1B1A1B1C1B191918121211121212121111111211
+      111212111111111111111111111010100F10100F0F0F0F0F0F0F0F0F0F0F0E0E
+      0E0F0F0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0C0D0D0C0C0D0C0D0C0C0B0C0C0C0C0C0C0C0B0B0C0B0A0B0A0B0A
+      0A0B0A0A0A0B0B0A0A0A0A0A0A0A0A080909080908090808090908090A0A1414
+      142222222627272A2B2A30303025252405060605050505060505050505050505
+      05050505040404040404040504040404050404050A0A0A040404303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303838383939393A3A3A3C3C3C3D3D3D
+      3C3C3C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F303A3A3A3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383736363131313030303030303030303030303030303030
+      303030303030303232323939393B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3939
+      3A39393B3A3A3B3A3A3A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3E3E3E3E3E
+      3E3E3E3E4040404141414242414343424544444544444847474847474949494B
+      4B4B4D4D4D4F4F4F5151515353535555555858585A5A5A5C5C5C5F5F5F626261
+      6565646766666A69696E6D6D7070707474747777777B7B7B7E7E7E8282828585
+      858989898E8E8E9393939797979A9A9A9F9F9FA4A4A4A8A8A7ACACACB1B1B1B6
+      B5B59A9A9A8787878686868282827D7D7D7979797373736E6E6E696969656565
+      6060605B5B5B5555554F4F4F4848484241403C3A363F5BB34173FF406FFF406F
+      FF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF37
+      67FF3666FF3565FF3263FF3163FF3162FF3161FF3161FF3161FF3060FF2F5FFF
+      2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758
+      FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F
+      50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF
+      1648FF1547FF1546FF1446FF1345FF1244FF1143FF1043FF0D41FF2D439C4745
+      3D4344434242424040403F3F3F3D3D3D3C3C3C3C3C3C3B3B3B3A3A3A3A3A3A38
+      3838383838383838383838373737363636353535343434343434333333323232
+      3131313131313030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D
+      2D2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2A2A2A29292927272726262623232320
+      20201E1E1E1B1B1B181818525252B0B0B0ABABABA5A5A5A0A0A09B9B9B969696
+      9191918E8E8E8A8A8A85858580807F7B7B7B7877787272726F6F6F6B6B6B6767
+      676363636060615C5C5C58585856565653525250504F4C4C4C49484846464644
+      43434141403E3E3D3D3C3D3939393737373435353232323232312F2F2F2E2E2E
+      2B2B2C2A2B2A2929292828282626262726262526252423242423242323232222
+      222222212121202121202020201F1F1E1F1E1E1F1E1E1E1E1E1E1E1D1E1D1E1E
+      1D1D1D1D1D1D1C1C1D1D1C1D1C1C1D1C1C1C1C1C1B1C1C1C1C1B1C1B1B1B1C1B
+      1B1B1B1B1B1B1A1B1A1B1A1B1B1A1B1A1A1A1A1A1A1919191616171716161715
+      1616151615151515151515151417161616161616171616161616151516151616
+      1616151515151515151515141515151515141414141414141414131414141314
+      1413141312131213121312121212121212121212121111121111111111111111
+      111A1A1A1C1B1B1B1B1B1B1B1A1B1B1B15151512121211121212121111111111
+      1111111111111111111010111010100F0F10100F0F100F0F0F0F0F0F0F0F0E0E
+      0E0E0E0F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0D0E0D0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0C0D0D0D0D0C0D0D0C0C0C0B0C0C0B0C0C0B0C0B0B0B0B0B0B0B0B0A0A
+      0A0A0A0B0B0A0B0A0A0A0A09090A080909090908090909090A09100F0F212121
+      2626262B2B2B2F2F2E3232320605050506050505060505050505050505050505
+      050404050404040404040504040404040A0A0A04040430303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303333333939393A3A3A3B3B3B3D3D3D3E3E3E34
+      34342F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3535353B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383737323232303030303030303030303030303030303030
+      3030303030303131313636363B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393B
+      3A3A3B3A3A3B3A3A3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E
+      4040404141414141414343424444434544444746464847474A49494B4B4B4C4C
+      4C4E4E4E5050505252525555555757575959595C5C5C5E5E5E60606063636266
+      66666969696C6B6B706F6F7372727675757979797C7C7C808080848484888888
+      8C8C8C9090909494949999999D9D9DA1A1A1A5A5A5AAAAA9AFAFAEB3B3B3B1B1
+      B18C8B8B8888888585858181817C7C7C7676767171716C6C6C6666666262625D
+      5D5D5858585252524B4B4B4545453F3E3B3C3E444066D84172FF406FFF406FFF
+      3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767
+      FF3666FF3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F
+      5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF
+      2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50
+      FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF16
+      48FF1547FF1546FF1446FF1345FF1244FF1143FF0F42FF1141F7383F5A403F3A
+      3F3F3F3D3D3D3E3E3E3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3A3A3A3939393838
+      3838383838383837373736363636363636363635353534343434343433333333
+      33333232323232323131313030303030303030302F2F2F2F2F2F2E2E2E2E2E2E
+      2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A2929292727272525252222222020201D1D
+      1D1A1A1A2323239D9D9DAEAEAEA8A8A7A2A3A29D9D9D9999999494949090908C
+      8C8C8787888282827E7E7E7A7A7A7676767171716D6D6E696969666666626262
+      5E5D5D5B5B5C5858585453545150514E4E4E4B4B4B4848484645454342424040
+      403D3D3D3B3A3A3938383737363535353232323130302F2F2F2D2D2D2B2C2C29
+      292A29292A292829272727272727252525242424232324242323222222222222
+      2121212021202120201F1F1E1F1F1F1D1D1D1C1B1C1C1B1B1B1B1B1A191A1919
+      19191A1A1B1A1A1B1A1B1A1B1B1B1B1B1C1C1C1B1C1C1B1B1B1C1B1C1B1B1B1B
+      1B1B1B1B1B1B1B1A1B1B1B1A1B1B1B1B1A1A1A1A1A1A1A181818171717161616
+      1515161515151515151515151616161616161616161616161516161616151516
+      1615151515161515151515151515151414141414141515141414141414131414
+      1313131213121313121212121212111212121211111112111212111111141414
+      1B1B1A1B1B1B1C1A1B1B1B1A1919191212121112121211121211111111121211
+      12111111111110111010110F0F100F0F0F10100F0F0F0F0F0F0F0F0F0F0F0F0F
+      0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0B0D0C0B0C0C0B0C0B0B0B0B0B0B0A0B0B0B0B0B0B0A
+      0A0B0B0A0A0B0A0A0A0A0909090809090909090A09090A0B0B1F1E1E25252529
+      29292E2E2E313232101110060605060605050605050505050505050505050504
+      0405050505050404050405040A0A0A0404043030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303737373939393A3A3A3C3C3C3D3D3D3D3D3D2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3939393B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393836363634343431313135
+      3535393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      3838383838383838383833333330303030303030303030303030303030303030
+      30303030303030303333333939383B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393B3A3A3B3A
+      3A3B3A3A3B3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F41
+      41414141414242424343424545444645454847474948484B4A4A4B4B4B4E4E4E
+      4F4F4F5151515353535555555858585A5A5A5D5D5D5F5F5F6262626565646868
+      676B6A6A6E6D6D7170707474747777777B7B7B7E7E7E8282828686868989898E
+      8E8E9292929797979A9A9A9E9E9EA3A3A3A8A8A8ACACACB1B1B1B6B5B5A2A2A2
+      8989898787878484848080807A7A7A7575756F6F6F6A6A6A6565656060605B5B
+      5B5656564F4F4F4949494344443E3C363C435A416CEC4172FF406FFF406FFF3F
+      6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF
+      3666FF3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5F
+      FF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF26
+      57FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF
+      1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1648
+      FF1547FF1546FF1446FF1345FF1244FF1043FF1741E1393C473E3D3A3D3D3D3D
+      3D3D3D3D3D3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B3A3A3A393939
+      3838383939393838383636363636363636363535353535353434343333333333
+      333333333232323232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D
+      2D2D2C2C2C2B2B2B2A2A2A2828282727272424242222221F1F1F1C1C1C1A1A1A
+      696969B1B0B0ABABABA5A5A5A0A0A09B9B9B9696969191918E8E8E8989898585
+      858080807D7C7C787878747474706F706B6B6B6767676464646160605D5D5D59
+      59595657575353535050504D4D4D4A4949484747444443414141403F3F3D3C3D
+      3C3A3A3837383736363434343232323130312F2F302D2D2C2B2B2B2A2A292B2B
+      2A2929292727272626262525252424232424242423232322222121222121211F
+      1E1F1D1D1C1A1A1A191919191919191919191818191918191918191818181818
+      1818181718171717171817171717171818181919181B1B1A1C1B1B1C1C1B1B1B
+      1B1B1A1B1B1B1B1A1B1A1A1A1A1A1A1A1A1A1A1A1A1919191916161616151615
+      1616151515151515151515171616161616161617161616151616161616161515
+      1615151515151515151514151515141415151514141414151414141413141413
+      141313131313121212121212121112121211121111111111111111111919191B
+      1A1B1B1B1B1B1A1A1B1B1B141414121212121212111111121212111111121111
+      11111111101010101010100F100F0F100F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0E
+      0F0F0F0F0F0E0E0E0E0E0E0E0E0E0D0D0E0E0D0E0D0D0D0D0E0D0D0D0D0D0D0D
+      0C0D0D0D0D0C0B0D0C0B0C0C0C0C0B0B0C0B0B0B0B0B0B0A0B0B0B0B0B0B0B0B
+      0A0A0B0B0B0A090909090909090909090809090A0A1818192323232828282D2D
+      2D3131311D1D1D06050505050605060505050505050505050504050405050504
+      05050504040405050A0A0A040404303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303232323939393A3A3A3B3B3B3D3D3D3E3E3E3736372F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3232323B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393737373535353232323030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3535
+      3539393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383535353030313030303030303030303030303030303030
+      303030303030303030303635353A3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393B3A3A3B3A3A
+      3B3A3A3C3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F4040404141
+      414242424343434545444545444847474847474A49494C4B4B4D4D4D4E4E4E50
+      50505252525555555757575959595C5C5C5E5E5E616161636363666666696969
+      6D6C6C706F6F7372727675757A79797C7C7C8080808484848888888C8C8C9090
+      909494949898989C9C9CA1A1A1A5A5A5AAAAAAAEAEADB2B2B2B4B4B49393938A
+      8A8A8787878383837F7F7F7979797373736E6E6E6868686363635E5E5E595959
+      5454544E4E4E4848484243433E3B333E4A714270F94171FF406FFF406FFF3F6E
+      FF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF36
+      66FF3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF
+      2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657
+      FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E
+      4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1648FF
+      1547FF1546FF1446FF1345FF1044FF283E8F3D3A2F3C3C3C3D3D3D3D3D3D3D3D
+      3D3D3D3D3D3D3D3E3E3E3D3D3D3D3D3D3C3C3C3C3C3C3C3C3C3B3B3B3A3A3A39
+      3939393939383838373737363636363636353535353535343434333333333333
+      3333333232323232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2C2C
+      2C2B2B2B2A2A2A2828282626262424242121211E1E1E1B1B1B363636ADADACAE
+      ADADA7A7A7A3A2A29E9D9D989998939393908F8F8C8C8C8888888283837E7E7E
+      7A7A7A7676767171716E6E6D6A696A6666666262625F5F5F5C5C5C5858585455
+      545252524E4E4E4C4C4C4849494646464343434141403E3D3D3D3C3C3B3A3A39
+      3737373535343333333132302F302F2F2E2D2D2C2C2C2B2B2B2B2A2A2A282829
+      2728272726262525252424242424242324242222221F1E1F1B1B1B1B1A1A1A19
+      1A19191A1A19191A191919191919191918191918191919181818181818181818
+      18181818181817181718181817171717171717171717181A18191B1B1C1B1B1B
+      1B1B1B1B1B1B1A1A1B1B1A1B1A1A1A1A1A1A1A1A1A1A191A1716171615161515
+      1615151515151415141516161616171616161616161615161615161616151515
+      1516151515151515151514151414151415151414141414141414141314141313
+      1313131212121212121112121212121112121111111111121413141B1B1B1B1B
+      1B1C1B1B1B1B1B19181812121312121211121211121212121111111111111111
+      10101110101010101010100F0F100F0F0F0F0F0F0F0F0F0E0F0F0F0E0E0E0E0F
+      0E0E0E0E0F0E0E0E0E0E0E0E0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0B0C0C0C0C0C0B0C0B0B0C0B0B0B0A0B0B0B0A0B0B0B0B0B0A0B0A
+      0A0B0909090909090909090808090A09091313142323232727272C2C2C303030
+      2828280506060505050605050606050505050505050505050505050505040505
+      050504050A0D0D04040430303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303636363939393A3A3A3C3C3C3D3D3D3E3E3E3030302F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F3737373B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A
+      3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3938383636363433343131322F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F373636
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838373737313131303030303030303030303030303030303030
+      3030303030303030303232323737373B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393B3B3A3B3A3A3B3A3A3C
+      3B3B3C3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E404040414141414141
+      4343434444444545444747464847474A49494B4B4B4D4C4C4E4E4E5050505151
+      515454545656565858585B5B5B5D5D5D5F5F5F6262626565656868676B6B6A6E
+      6D6D7170707474747777777B7B7B7E7E7E8282828585858989898E8E8E929292
+      9696969A9A9A9E9E9EA3A3A3A7A7A7ABABABAFAFAFB4B4B4ACACAC8B8B8B8B8B
+      8B8787878383837D7D7D7777777171716C6C6C6666666262625D5D5D58585853
+      53534C4C4C4747474242413E3B333F50864272FF4171FF406FFF406FFF3F6EFF
+      3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666
+      FF3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E
+      5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF
+      2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4F
+      FF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1648FF15
+      47FF1546FF1246FF1743E63639443A39363B3B3B3C3C3C3D3D3D3E3E3E3E3E3E
+      3E3E3E3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3E3E3E3D3D3D3B3B3B3A3A
+      3A39393939393937373737373736363635353535353534343433333333333333
+      33333232323232323030303030303030302F2F2F2F2F2F2E2E2E2D2D2D2B2B2B
+      2A2A2A2828282525252323232020201D1D1D1C1C1C8A8989B0AFB0ABABAAA4A4
+      A49F9F9F9B9B9B9696969191918E8E8D8989898585858080807B7C7C78787873
+      73737070706B6B6B6868686564646161615D5D5D5A5A5A565757545453505151
+      4D4D4D4B4B4B4848484546464343424040403F3E3D3B3B3B3A39383737373737
+      363433323231313130302E2E2E2E2D2C2C2B2C2B2B2B2A2A2A28282728282726
+      25262424242424242423232121201C1D1D1B1A1B1B1B1B1B1A1B1A191A1A191A
+      1A191A1919191919191919191819191919191918181919181819181818181718
+      181817181817171717171717171717171717161717171716161918191B1B1B1B
+      1B1B1B1B1B1B1A1B1A1B1B1A1A1A1A1A1A191A191A1A19181717161516151516
+      1515151515151414151716161617171616161616161616161516161516161515
+      1516151515151515151514141514141414141414141414141414131314131413
+      13131212121212121212121112121211111211111112121A1A1A1B1B1B1A1B1B
+      1B1A1A1C1A1B1314131212131212121212121211121112121111111211111110
+      10110F0F10100F0F100F0F0F0F0F0F0F0F0F100F0F0F0F0F0F0F0E0E0E0F0E0E
+      0F0E0F0E0E0E0E0E0E0E0E0D0D0E0E0E0D0D0E0E0D0D0E0D0E0D0D0D0D0D0D0C
+      0D0C0D0C0C0D0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0A0B0A0A0B0A0A0A0B0909
+      0A0909090909090909090A0A090F0F0F2121212626262B2B2B30303033333306
+      0506050606060606050505050605050505060605050505050505050505040505
+      0A0D0D0404043030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303131313939393A3A3A3B3B3B3C3C3C3E3E3E3A3A3A2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F302F303A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B
+      3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393939
+      3737373434343231322F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3037373739
+      3939393939393939393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383834343430303030303030303030303030303030303030
+      30303030303030303030303333333838383A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393B3B3A3B3B3A3B3A3A3C3B3B3C3B
+      3B3C3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F41414141414142424243
+      43434545454646454848474948484A49494C4B4B4E4D4D4E4E4E515151525252
+      5555555757575959595C5C5C5E5E5E6161616464646666666969696D6D6C706F
+      6F7372727675757A79797D7C7C8080808484848787878C8C8C90909093939397
+      97979C9C9CA0A0A0A4A4A4A8A8A8ACACACB1B1B1B6B6B59F9F9F8C8C8C8B8B8B
+      8686868181817C7C7C7676767070706B6B6B6565656161615C5C5C5757575252
+      524B4B4B4647474141403D3B353F53934272FF4171FF406FFF406FFF3F6EFF3E
+      6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF
+      3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5E
+      FF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF25
+      56FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF
+      1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1648FF1547
+      FF1247FF263E9A3A382D3A3A3A3B3B3B3C3C3C3E3E3E3E3E3E3E3E3E40404040
+      40404141414242424242424343434242424141414040403E3E3E3D3D3D3B3B3B
+      3A3A3A3939393838383737373535353535353535353434343333333333333333
+      333232323232323030303030303030302F2F2F2E2E2E2D2D2D2B2B2B29292927
+      27272525252222221F1F1F1D1D1D5C5C5CB1B1B1ADACACA7A7A7A1A1A19C9C9C
+      9897979393938F8F8F8C8B8B8887878383837E7E7E7A7A7A7676767172716E6E
+      6E6A6A6A6666666363635F605F5C5C5C5858585656565252524F4E4E4C4C4C49
+      49494747474444444141413F3F3F3D3D3D3B3B3A393938363736353535333333
+      313131302F2F2D2E2E2D2D2C2B2C2B2B2B2B292A292828282727272626262424
+      242121211E1E1F1C1C1D1C1C1D1B1B1B1B1A1C1B1A1B1A191B1A191A19191A1A
+      191A1919191A1A1A1A1A1A191A1A191A19191A1A181818181818181818181818
+      1718171717171817171717171717171717171616161716171716161919191B1B
+      1B1A1B1A1B1A1A1A1A1A1B1A1B1A1A1A1A1A1A1A191A18171716151615151615
+      1515151515141515161617161617161616161616151516161616161516151515
+      1515151515151415151515141415151514141414141414141413141313141312
+      131312121312121211121112121211111212111515151B1C1B1B1B1B1A1B1B1C
+      1B1B171717121213121213121212121211121212121112121111111011111010
+      101010101010100F100F10100F0F0F0F0F100F0F0F0F0E0F0E0F0F0F0F0F0E0E
+      0F0E0E0E0E0E0E0E0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0C0D0C0C0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0A0B0A090909
+      0909090909090A0A0A0A0A0B1F1F1E2626262A2A2A2F2F2F3333330E0F0F0506
+      050606060505060606050605050506050505060505050505050405050A0A0A05
+      0505303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303535353939393A3A3A3C3C3C3D3D3D3E3E3E3333332F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F3434343B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A
+      3A3B3A3A3B3A3A3B3A3A3A3A3A3837373535353333333030302F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303737373939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383636363131313030303030303030303030303030303030
+      303030303030303030303130313333333838383A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3B3B3A3B3B3A3B3B3A3C3B3B3C3B3B3C3B3B
+      3D3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F4040404141414242424343434444
+      444545454747464848474A49494B4B4B4D4C4C4F4E4E50505052525254545456
+      56565858585B5B5B5D5D5D6060606262626565656868686B6B6A6E6E6D707070
+      7474747777777B7B7B7E7E7E8282828585858989898D8D8D9191919595959A9A
+      9A9D9D9DA1A1A1A5A5A5AAAAAAAFAFAFB2B2B2B4B4B49494948D8D8D89898985
+      85858181817B7B7B7575756F6F6F6969696464646060605B5B5B565656515151
+      4B4B4B45454641403F3D3A343E53934272FF4171FF406FFF406FFF3F6EFF3E6D
+      FF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF36
+      65FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF
+      2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556
+      FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D
+      4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1548FF1845ED
+      34394A3938343B3B3B3D3D3D3E3E3E3E3E3E3F3F3F4040404242424343434444
+      444545454747474747474646464646464545454242424040403E3E3E3C3C3C3A
+      3A3A383838373737373737363636353535353535343434333333333333333333
+      3232323232323131313030302F2F2F2E2E2E2D2D2D2B2B2B2929292626262424
+      242121211F1F1F333333A9A9A9AEAEAEAAAAAAA3A3A39E9D9E99999995959591
+      91918E8D8D8A89888584848180817C7C7C7878777473737070706B6B6C686868
+      6464646161615D5D5E5B5A5A5757575454545152524E4E4E4C4B4B4848484646
+      464343434142423F3E3E3D3C3C3A3A3A38383837373734353532333231313130
+      2F2F2E2E2E2D2D2D2C2C2C2B2A2A2A2A2A2828282727272524242020201F1E1F
+      1D1D1F1C1D1E1C1C1D1B1B1C1B1B1C1C1C1D1B1B1C1B1A1B1B1A1B1C1B1C1C1B
+      1B1F1F1F2020202222222322231F201F1E1D1E1D1D1E19191919191918171818
+      18171818171717171717171717171617171717171717161616161717171A1A1A
+      1B1B1B1A1B1B1B1B1B1A1B1A1A1A1A1A1A1A1A1A1A1718171615171516161515
+      1515141415151516171716171616161616161615161616161515161515151515
+      1515151515141415141514141415151414141414141414141313131313131213
+      1213131212121212121111121211121112111B1A1A1B1B1B1B1B1B1B1B1B1B1A
+      1B13121312121212121212121212121211121112111111111011101010101010
+      101010100F0F10100F0F100F100F0F0F0F0F0F0F0F0F0F0F0E0E0F0E0E0E0E0F
+      0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0E0D0D0D0D0D0C0D0C0C0D0D0C
+      0D0C0B0C0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0B090A0A0A090909
+      09090909090B0B0A1B1A1B2424242929292E2E2E3333331A1A1A060606060606
+      0606060506060506060605050505050505050505050505050A0A0D0405053030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303131
+      313838383A3A3A3B3B3B3C3C3C3D3D3D3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F3838383B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A393939363636
+      3434343232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30373737393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838373737343434303030303030303030303030303030303030
+      3030303030303030303130313130313333333838383A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3B3B3B3B3B3A3B3B3A3B3B3A3C3B3B3C3B3B3C3B3B3D
+      3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F414141414141434343444444454545
+      4646464848474949484B4A4A4C4B4B4F4E4E504F4F5151515353535555555757
+      575959595C5C5C5E5E5E6161616363636666666969696C6C6B70706F73727276
+      75757978787C7B7B8180808383838787878B8B8B8F8F8F9393939797979B9B9B
+      9F9F9FA3A3A3A8A8A8ABABABAFAFAFB4B4B4AEAEAE8E8E8E8D8D8D8989898585
+      857F7F7F7A7A7A7474746E6E6E6868686464645F5F5F5A5A5A5656565050504A
+      4A4A45454541413F3D3A343E53934272FF4171FF406FFF406FFF3F6EFF3E6DFF
+      3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665
+      FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D
+      5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF
+      2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4E
+      FF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1549FF2641A73C3A303C
+      3C3C3D3D3D3F3F3F3F3F3F3F3F3F414141434343454545464646474747484848
+      4A4A4A4A4A4A4A4A4A4949494848484646464343434040403D3D3D3B3B3B3A3A
+      3A39393937373736363636363635353535353534343433333333333333333332
+      32323131313030302F2F2F2E2E2E2C2C2C2A2A2A282828262626232323202020
+      2121218F8F8FB0B0B0ABABABA7A6A6A0A0A09B9B9B9797979292928E8E8E8B8B
+      8B8787878382827E7E7E7A79797676767171716E6E6D6A6A6B6666666263635F
+      5F5E5C5C5C5959585655555253524F4F4F4D4D4D494A4A474847444444434343
+      403F403E3E3E3C3C3C393A3A3837373636363434333232323232312F2F302E2F
+      2E2C2C2C2C2C2C2A2A2A2928282828282424242020201E1F201E1D1E1D1D1E1D
+      1C1D1B1C1C1C1C1D1C1C1C1C1C1C1D1C1D2323232626272C2B2B303030303030
+      313030302F2F2F2F2F2E2E2E2D2D2D2D2C2D2C2B2B2727272323231E1D1D1718
+      181817181817171717171717171717171716161616171616171616161919191B
+      1B1B1B1A1B1A1A1A1B1A1A1A1A1A1A1A191A191A171718161516151516151515
+      1515151516151717171617161616161616161615161515161515161515151515
+      1514141515151515151514141514151414141414141414131413131413131312
+      12121212121112121212111212111817181B1B1B1B1B1B1B1B1B1B1A1A151616
+      1313131212121212121212121212121211111111111211101110101010101010
+      1010101010100F0F0F0F0F10100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0E0F0F0E
+      0E0E0E0E0E0E0E0E0D0D0E0D0D0D0E0D0E0D0D0D0D0D0D0D0C0D0D0C0D0C0C0C
+      0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A090909090A09
+      090A0A0A1717172323232828282E2E2E32323223232306060606060606060605
+      06060606060606050505050505050505050505050D0D0D040405303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030333333
+      3939393A3A3A3B3B3B3D3D3D3E3E3E3838382F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F3030303A3A3A3A3A3A383838353535323232302F302F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F3030303030303030303030303030303030303434343737383C3C3C3F3F
+      3F3A3A3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3037373739393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383736363632323230303030303030303030303030303030
+      30303030303030303130313130313131313332323737373A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3B3B3B3B3B3A3B3B3A3C3C3B3C3B3B3C3B3B3D3C3C3D3C
+      3C3D3D3D3E3E3E3E3E3E3F3F3F40404041414142424243434345454545454547
+      47474848474A4A494B4B4B4D4C4C4F4E4E515050525252545454565656585858
+      5B5B5B5D5D5D5F5F5F6262626565656767676A6A6A6E6E6D7070707373737777
+      777A7A7A7E7E7E8181818585858989898C8C8C9090909494949898989C9C9CA1
+      A1A1A4A4A4A8A8A8ACACACB1B1B1B6B6B5A4A4A48E8E8E8D8D8D898989848484
+      7E7E7E7979797373736D6D6D6868686363635F5F5F5A5A5A5555555050504A4A
+      4A45454541413F3D3A343F54934272FF4171FF406FFF406FFF3F6EFF3E6DFF3E
+      6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF
+      3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5D
+      FF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF24
+      55FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF
+      1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1948F33A3F57403E394040404141
+      414242424343434343434444444545454646464747474848484A4A4A4B4B4B4C
+      4C4C4D4D4D4B4B4B4A4A4A4747474545454242423E3E3E3C3C3C3A3A3A393939
+      3838383636363636363636363535353535353434343333333333333232323131
+      313030302F2F2F2E2E2E2C2C2C2A2A2A2727272525252222221F1F1F6C6C6CB2
+      B2B2ADACADA8A7A7A2A2A29D9D9D9898989494938F8F8F8C8C8C898989858584
+      8080807C7B7B7878777474746F6F6F6C6B6C6768686465646161625D5D5D5A5A
+      595757575554555151524E4E4E4C4B4C4949494647464344444242423F3F3F3C
+      3D3D3B3A3B3838393737373535363333333232313131302F2E2F2E2E2E2C2C2C
+      2B2B2B2A292A292828252425202021201F201F1F201E1D1F1C1D1D1D1E1E1C1C
+      1D1D1D1E22222228282831313033323232333233333333333333333332333332
+      33333232323030302F2F302E2E2D2D2C2C2D2C2D2B2B2A2A2A2A292829222221
+      1A1A191817171717171716171717171616161617161616161616161919191A1B
+      1B1A1A1A1A1A1A1A1A1A1A1A1A191A1A19191917161616161715151615151515
+      1514171617171616161617171716161616161616161615151515151515161515
+      1414151515141515151415141415141414141314141413131313131313131212
+      131212121212121212121212131C1C1B1B1B1B1B1B1C1B1B1B19191812131313
+      13121312121212121212121212121111111110111110111110101010100F100F
+      10100F0F10100F10100F100F0F0F0F0F0F0F0E0F0F0F0F0F0E0F0E0F0F0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0D0E0D0E0D0E0D0D0D0D0C0D0D0C0D0C0C0C0C0C0C0B
+      0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A09090A09090A09090A0A0A0A
+      1111122323232727272C2C2C3131312C2C2C0607060606070606060606050605
+      060506060506050505050505050505050D0D0D05050530303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303030303737373A
+      3A3A3B3B3B3C3C3C3D3D3D3E3E3E3131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      302F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30303030303030303030303031313131
+      31313434343838383C3C3C414141434343434343434343414141414141414141
+      3A3A3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303737373939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373535353131313030303030303030303030303030
+      303030303030303130313130313131313131313131313635353939393A3A3A3A
+      3A3A3A3A3A3B3B3B3B3B3B3B3B3A3C3C3B3C3C3B3C3B3B3D3C3C3D3C3C3E3D3D
+      3E3E3E3E3E3E3E3E3E4040404141414141414343434444444545454646464848
+      484949484B4B4A4C4B4B4F4E4E504F4F5251515353535555555757575959595C
+      5C5C5E5E5E6060606363636666666969696C6C6C6F6F6E727271757474787777
+      7C7B7B7F7E7E8382828686868989898E8E8E9292929595959A9A9A9D9D9DA1A1
+      A1A5A5A5AAAAAAAEAEAEB2B2B2B4B4B49B9B9B8F8F8F8D8D8D8989898484847E
+      7E7E7878787373736C6C6C6868686363635F5F5F5A5A5A5555554F4F4F4A4A4A
+      45454541403F3D3B343E51874270FA4172FF406FFF406FFF3F6EFF3E6DFF3E6C
+      FF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF35
+      64FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF
+      2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455
+      FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C
+      4DFF1B4CFF1A4CFF1A4BFF174BFF2946B44542374444444646464949494A4A4A
+      4A4A4A4A4A4A4848484747474747474747474949494A4A474D4B454C4C4A4D4D
+      4D4C4C4C4A4A4A4848484646464242423F3F3F3D3D3D3A3A3A39393939393938
+      3838363636363636363636353535353535343434343434333333323232303030
+      2F2F2F2D2D2D2B2B2B2929292626262424242222224B4B4BAFAFAFAEAEADA9A9
+      A9A6A5A59E9E9E9999999595959191918C8D8D8B8A8A8686868181817E7E7D7A
+      79797575747271726E6D6D6A6A6A6666666262625F5F605C5C5C595958565656
+      52525250504F4D4D4D4A4A4A4848484545454343434040403E3F3E3D3D3D393A
+      393738383636363435353233323232323030302F2E2F2C2D2C2C2C2C2B2B2B29
+      2929252525212122201F20201F201F1F201F1F201E1E1F1F1E20212022292929
+      3333333434343635363637363737373938383838383838383737373536353534
+      3532323332323230302F2D2D2E2D2D2D2B2B2B2A2B2A2A2A2929292829292821
+      21211918181717171717171617171616161717161716171616161818181B1B1A
+      1B1A1B1B1A1A1A1A1A1A1A1A191A1A1819191617161615161515161515151515
+      1517161717171716171616161616161516161516161515151616151515151515
+      1415151415151415151414141414141414141414131313141314131213121212
+      1212121212121212121A191A1B1C1C1B1B1B1B1B1B1B1B1B1312131312121213
+      1312131312121212121211111112111111101111101011101010101010101010
+      10100F1010100F100F100F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0F0E0E0E0E0E0F
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0D0D0D0C0D0D0C0D0D0C0D0C0B0C0C0B0B0B0C
+      0C0B0B0B0C0B0B0B0C0B0B0B0B0B0A0B0909090909090A090A0B0B0A0E0F0E21
+      21212727272B2B2B303030353535060606060606060606060606060606060505
+      0505060505050505060505050D0D0D0505053030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303131313838383A3A
+      3A3B3B3B3C3C3C3E3E3E3C3C3C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3030303030303030303030303131313232323737373B3A3B4040404444444545
+      454646464747474747474646464545454444444242424141414040404040403A
+      3A3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30363636393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383837383737373737343434313131303030303030303030303030
+      3030303030303130313130313131313131313131313131313333333737363A39
+      393B3B3B3B3B3B3B3B3B3B3B3A3C3C3B3C3C3B3C3B3B3D3C3C3D3C3C3E3D3D3E
+      3E3E3E3E3E3F3F3F414141414141424242434343454545454545484848484848
+      4A4A494B4B4B4D4C4C4F4E4E5150505352525454545656565858585B5B5B5D5D
+      5D5F5F5F6262626565656767676A6A6A6D6D6D7070707373727776767A79797E
+      7D7D8180808484848787878C8C8C8F8F8F9393939797979A9A9A9E9E9EA3A3A3
+      A7A7A6AAAAAAADADADB2B2B2B2B2B29696968F8F8F8C8C8C8888888383837D7D
+      7D7878787171716C6C6C6767676363635F5F5F5A5A5A5555555050504A4A4A45
+      46464141403E3B333E4B74416CED4172FF406FFF406EFF3F6EFF3E6DFF3E6CFF
+      3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564
+      FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D
+      5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF
+      2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4D
+      FF1B4CFF1A4CFF184BFF2349D6484A53514F485252535454545454545252524E
+      4E4E4C4C4C49494947474745454448463C45474F3C476F4A4A494D4B414B4A48
+      4A4A494747474545454242424040403D3D3D3B3B3B3A3A3A3939393838383838
+      383636363636363636363535353535353434343232323232323030302F2F2F2D
+      2D2D2A2A2A282828252525232323353535A5A5A4B0B0AFABABAAA6A6A6A1A1A1
+      9B9B9B9696969292928E8F8F8B8B8B8788878484847F7F7F7C7C7C7777777473
+      736F6F6F6C6B6B6867676564656161615E5E5D5A5A5A5758575454545252524F
+      4E4F4C4D4C494949474747444444424243403F403D3D3D3B3B3B393939383738
+      3636363435343232323131312F2F2F2E2E2D2C2C2C2C2C2C2A2A2A2626262222
+      23202020202020201F201F1F201F1F2020202026252532333335353538383839
+      39393B3B3B3C3C3B3D3D3C3C3D3C3C3D3C3C3C3C3B3A3B393939373838353536
+      3433333232322F30302D2C2D2C2C2C2A2A2A2929292929292828292828292728
+      271C1C1C1717171716171717161617171717161716161616161819191A1A1A1B
+      1B1A1A1B1A1A1A1A1A1A1A1A1A1A181818171617161616161516151515151615
+      1716171716161616161616171616151615151616161516151515151515151515
+      1515151515141414141415141414141413141413131413131313131312121212
+      12121212121615151B1C1C1C1C1B1B1B1B1B1B1B161616131313121313121212
+      12121212121212111112111112101111111110101010101010100F100F100F10
+      1010100F0F0F100F0F0F0F100F0F0F0F0E0F0F0F0E0E0F0F0E0E0E0E0E0E0F0E
+      0E0E0E0E0E0E0D0D0E0D0D0E0D0D0D0C0D0D0C0D0C0C0C0B0C0C0C0B0C0B0C0B
+      0C0C0B0C0C0B0B0B0B0B0B0B0A090A0A0A0A090A090A0A090C0C0C1E1E1F2626
+      262B2B2B303030343434100F1006060606060606060606060606060505060606
+      06060505060506050D0F0D050505303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303535353A3A3A3A3A3A
+      3C3C3C3D3D3D3E3E3E3736372F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F30303030303030303030303031313131313136
+      363639393A3F3F3F4343434545454646464747474747474848484A4A4A4A4A4A
+      4A4A4A4A4A4A4949494747474545454343434141414040403F3F3F3F3F3F3A3A
+      3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F35353539393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      3738383738373738373738373737373733333330303030303030303030303030
+      3030303030313031313031313131313131313131313131313131313131353535
+      3838373A3A3A3B3B3B3C3C3B3C3C3B3C3C3B3D3C3C3D3C3C3E3D3D3F3E3E3E3E
+      3E3F3F3F4040404141414141414343434444444545454747474848484949494B
+      4B4A4C4C4B4F4E4E504F4F5251515352525555555757575959595C5C5C5E5E5E
+      6060606262626666666969696C6C6C6E6E6E7171707575747777777B7B7B7E7E
+      7E8282828585858989898C8C8C9090909494949898989B9B9B9E9E9EA2A2A2A6
+      A6A6ABABABAFAFAFB3B3B3AEAEAE9292929090908C8C8C8888888383837E7E7E
+      7777777272726B6B6B6767676363635F5F5F5A5A5A5555555050504B4B4B4646
+      464242413E3B333D455C4066D84173FF4070FF406EFF3F6EFF3E6DFF3E6CFF3C
+      6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF
+      3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5C
+      FF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF24
+      55FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF
+      1B4CFF1A4BFF174BFF284DD35558625F5D555E5D5E5B5B5B5656565151514C4C
+      4C47474745433E43413735416E1A42D60E40FC1D42CC36447B46464749463B46
+      46444444444242423F3F3F3D3D3D3C3C3C3B3B3B393939383838383838383838
+      3636363636363636363535353434343333333131313030302E2E2E2C2C2C2A2A
+      2A2727272525252A2A2A959495B0B1B0ACACACA8A8A8A3A3A39D9D9D98989894
+      94948F8F8F8B8B8B8988898586868080807C7C7C7979797575747271716D6E6D
+      6B6A6A66666663626260605F5C5C5C5858585555555252525050504D4D4D4B4A
+      4A4848484545454343434141413F3E3F3D3D3D3C3A3A38383837373735353534
+      3434323232303031302F2F2D2D2D2C2C2C2C2C2C282828222323212122202020
+      201F202020202021212423242D2D2D3535353939393A3B3B3E3E3E3E3E3E4141
+      414242424242424242424040403A3A3A3434342F2F2F2929292D2E2E2F2E2E2F
+      2F2F3130312F2E2F2C2D2C2A2A2A2929292A2929292929292929292929292828
+      2223231818181717171617171616171616161616161616161919181A1B1B1A1A
+      1A1A1A1B1B1A1A1A1A1A1A191A17171717161617151616151615151517171717
+      1717171616161616161616161516161616151616151516151615151515151515
+      1414151415151514141515141414141414141313141313131312131212121212
+      121413131C1B1C1B1C1C1B1B1B1B1B1B19181812131313121213121312131212
+      1212121212121111121110121110111010111010101110101010100F0F0F1010
+      0F0F100F0F0F0F100F0F0F0F0F0F0E0F0F0F0F0F0F0E0F0F0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0D0C0D0D0C0D0C0C0D0C0C0C0B0C0B0C0B0B0B0B0B0C
+      0B0B0B0B0B0B0B0B0A0A0A0A090A0A0A090A0A0A0C0B0C1C1C1C2626262A2A2A
+      3030303434341616150606070706060607060606060606050606060606060505
+      060505060D0D0D05060530303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303737373A3A3A3B3B3B3C
+      3C3C3D3D3D3E3E3E3131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303030303030
+      3030303030303131313131313434343838383D3D3D4242424545454646464747
+      474747474848484949494A4A4A4A4A4A4B4B4B4C4C4C4D4D4D4D4D4D4E4E4E4D
+      4D4D4C4C4C4A4A4A4747474343434040403F3F3F3F3F3F3F3F3F3F3F3F3A3A3A
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3535353939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373736363333333131313030303030303030
+      3030303031303131303131313131313131313131313131313131313132323232
+      32323434343838383A3A3A3C3C3B3D3D3C3D3C3C3E3D3D3F3E3E3F3E3E3E3E3E
+      4040404141414141414242424343434545454545454848484848484A4A4A4B4B
+      4B4D4D4C4F4E4E5150505352525554545656565858585A5A5A5C5C5C5F5F5F62
+      62626464646767676969696D6D6D7070707373727676757978787C7B7B807F7F
+      8382828786868989898D8D8D8F8F8F9393939797979B9B9B9F9F9FA3A3A3A7A7
+      A7ABABABAFAFAFB3B3B3AAAAAA9191919090908C8C8C8888888484847D7D7D77
+      77777171716B6B6B6767676363635F5F5F5A5A5A5656565151514B4B4B474747
+      4242433F3D363D3F463F5DB74172FF4070FF406EFF3F6EFF3E6DFF3E6CFF3C6C
+      FF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF34
+      64FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF
+      2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455
+      FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B
+      4CFF1A4CFF164AFF274FE0585E736562585E5E5E585858515151494948454338
+      3D404E2541AC1143FD0E42FF0F41FF0C40FF0C40FF1841D72B40944041444241
+      404040403E3E3E3D3D3D3C3C3C3B3B3B3A3A3A39393938383838383838383837
+      37373636363535353434343333333131312F2F2F2D2D2D2B2B2B292929262626
+      252525818181B1B1B2ADADADA8A8A8A4A4A4A1A1A09999999494959192928C8C
+      8C8888888687878282827E7F7E7A7A7A7777777272726F6F6F6C6C6B69686865
+      64646161615E5D5D5B5B5A5757575454545152514E4E4E4C4C4C484949484848
+      4444444343434040403D3D3D3D3B3C3A393A3938383636363535353232323132
+      312F2F302E2E2E2E2D2D2C2C2C2B2B2B24232322222321212220212120202121
+      21222424253332323737373A3A3A3E3E3E414041424243444545464746464646
+      3435352727261D1C1C1A19191919191919191918191819181819181819181A1A
+      1A1F1F1F2525242A2A2B2A292929292928282828282827282828272729282825
+      26251818181617171716171616171717161616161616161A19191B1A1A1A1A1A
+      1A1A1A1A1A1A1A1A1A1919191717161616161615161615161616161817161716
+      1717161616161616161616161616161615161615151515151515151514151514
+      1414141515141514151414141414131314131313141314131313121212121212
+      1A1A1A1C1C1C1B1C1C1B1B1B1B1A1A1313131213131212131313131312121212
+      121211111111111211101111111011101010101010100F10100F1010100F1010
+      100F0F100F0F0F0F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0E0F0E0E0E0E0E0E0E0D
+      0D0E0E0E0D0D0E0D0E0D0C0D0D0D0D0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B0B0C
+      0C0B0B0B0A0A0A0A0A0A0A0A0A0A09090A0B0B1918182424242929292F2F2F33
+      33331E1F1F070606070607060607060706060606060606050606060506050606
+      0D0D0D0505053030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303232323A3A3A3A3A3A3B3B3B3D3D
+      3D3E3E3E3C3C3C3030302F2F2F3030303030303030303131313232323737373B
+      3A3B4040404444444545454747474747474747474949494A4A4A4A4A4A4B4B4B
+      4C4C4C4D4D4D4D4D4D4E4E4E4F4F4F5050505050505151515151515050504E4E
+      4E4848484040403B3B3B4040403F3F3F3E3E3E3E3E3E3E3E3E3F3F3F3A3A3A2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F333233393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738383738
+      3737383737383737383737383737373737373737343434313131303030303030
+      3030303130313130313131313131313131313131313131313232323232323232
+      323232323333333434343636363939393B3A3A3E3D3D3F3E3E3F3E3E3F3F3F40
+      40404141414242424343434444444545454747474848484949494B4B4B4C4C4B
+      4F4F4E504F4F5251515352525555555757575959595C5C5C5E5E5E6060606262
+      626565656868686A6A6A6D6D6D7070707373737676767878787C7C7C7E7E7E81
+      81818585858989898D8D8D9090909494949898989C9C9CA0A0A0A3A3A3A8A8A8
+      ABABABAFAFAFB4B4B4A6A6A69292929090908C8C8C8888888484847D7D7D7878
+      787171716B6B6B6767676464645F5F5F5B5B5B5656565151514D4D4D48484843
+      4444403F3A3D3C373E5089406DF14072FF406FFF3F6EFF3E6DFF3E6CFF3C6CFF
+      3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464
+      FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B
+      5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF
+      2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4C
+      FF1A4CFF164AFF234DE9525C80605D525656544E4C4645443F31427F1944E310
+      45FF1144FF1143FF1042FF1041FF0E40FF0B40FF0B3FFF323D693F3D363D3D3D
+      3D3D3D3C3C3C3C3C3C3C3C3C3B3B3B3A3A3A3838383838383838383737373636
+      363535353434343333333131312E2E2E2C2C2C2A2A2A282828252525717171B2
+      B2B2ADADADA9A9A9A6A6A5A1A1A09C9C9C9797969192918E8E8E8A8A8A878787
+      8484847F80807D7D7D7777787474747070706E6E6E696969666665636463605F
+      605C5C5C5958585656565352535050504D4D4D4B4B4B48484845464543434341
+      42413F3F3F3D3D3D3C3C3C3A3A39393737363535353434323232313130303030
+      2F2F2F2C2D2C2C2C2B2525252323232122222120212020212122222424253333
+      333A393A3B3B3B4140404444444848474748474646463132321D1D1D1A1A1A1A
+      1A1A1A1A1919191919191A1A1919191919191919181919181918181918181818
+      1818171819182020202727282828282828282828282828282727272728272526
+      251818181617161717171617161616171616161717171B1A1A1B1B1B1B1A1A1A
+      1A1B1A1A1A1A1A1A181818171616161716161516151516171717181717171616
+      1716171616161616161616161616151516161516151615151515151415151514
+      151415151414141514141414141313141413141313131312131212121717171C
+      1C1B1C1C1C1C1B1C1B1B1B141414131313131313131313131212121212121212
+      1211111211111110111111111010111010101011101010100F100F1010100F0F
+      100F0F0F100F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0D0E0D0D0D0D0C0D0C0C0D0C0C0C0C0C0C0B0C0B0B0B0B0C0C0B0C0C0B
+      0A0B0A0A0A0A0A0A0909090A0B0A0B1716162324232928282E2E2E3333332727
+      270606070607060606060606060606060606060506050506060505060F0F0D05
+      0505303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303535353A3A3A3B3B3B3C3C3C3D3D3D
+      3E3E3E39393930303035353539393A3F3F3F4343434545454646464747474747
+      474848484A4A4A4A4A4A4A4A4A4C4C4C4C4C4C4D4D4D4E4E4E4E4E4E50505050
+      50505050505151515252525353535151514A4A4A4242423A3A3A323232303030
+      3030303030303939393E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3F3F3F3939392F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31313138383839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373838373837373837
+      3738373738373738373737373737373737373737373735343532313230303030
+      3030313031313031313131313131313131313131323232323232323232323232
+      3333333333333333333434343434343535353838383A3A3A3B3A3A3E3E3E3F3F
+      3F4141414343434343434545454545454848484848484A4A4A4B4B4B4D4D4C4F
+      4F4E5150505251515453535655555858585959595C5C5C5E5E5E616161636363
+      6666656767676A6A6A6B6B6B6E6E6E7272727474747878787B7B7B7F7F7F8282
+      828686868989898D8D8D9191919595959999999C9C9CA1A1A1A4A4A4A8A8A8AC
+      ACACB0B0B0B4B4B4A3A3A39292929090908C8C8C8989898383837D7D7D787878
+      7272726D6D6D6868686363636060605B5B5B5757575353534E4E4E4949494445
+      4541403F3E3B323D455D3F62CD4071FF4070FF3F6EFF3E6DFF3E6CFF3C6CFF3B
+      6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF
+      3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5B
+      FF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF23
+      54FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF
+      1A4CFF174AFF1D4BF4405193504E4540475E2445C01446FF1346FF1446FF1345
+      FF1244FF1143FF1042FF1041FF0E41FF0A40FF2A3D853E3B303C3C3C3C3C3C3C
+      3C3C3C3C3C3B3B3B3B3B3B3A3A3A3A3A3A393939383838373737363636353535
+      3434343232323030302E2E2E2C2C2C292929262626666666B2B2B2AEAEAEAAAA
+      AAA6A6A6A2A2A29E9E9E9999999393938F8F8F8A8B8A8786878484848181817D
+      7D7D7A7A7A7675767272726F6E6F6B6B6B6767676463646061605E5D5D5B5A5A
+      5757575554545151514D4E4E4C4B4B4949494747474444444242424140403E3D
+      3D3D3D3C3B3B3B3938393838373735353232323232323030303030302E2D2D2D
+      2D2D2828282323242323232221222221222121222524253333333A3A3A3F3F3F
+      4142414746464949494C4C4D3C3C3C1E1E1E1A1A1A1A1B1A1A1A1A1A1A1A1A19
+      1A191A1A191A1919191919191919191919191918191819191818181818181817
+      1818181818191819232424282828272727262727282827272728272827242424
+      1818181716171717171716161716161616161818181B1B1B1A1A1B1A1A1A1A1A
+      1B1A1A1A1A191917171717161716171616151616161618171717161717161617
+      1616161616161616161616151616151515161516151515151515151515141414
+      1415141414141414141414141314141313141413131313131514141C1C1B1C1C
+      1B1C1C1C1C1C1C18171813131313131313131313131313121213121212111112
+      11111211101111111111111110111110111111100F1010100F10101010100F10
+      100F0F0F0F0F0F0F0F0E0E0E0F0E0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0D0D
+      0E0D0D0E0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0B0C0B0C0C0C0B0C0B0B0A0C0B
+      0B0B0A0A0A0A0A0A0A0B0B1211122324242929282E2E2E3232332A2A2A070707
+      0706070606060606060606070606060606060606050606050D0F0F0605053030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303838383A3A3A3C3C3C3D3D3D3E3E3E40
+      40404343434545454646464747474848484949494A4A4A4A4A4A4B4B4B4C4C4C
+      4D4D4D4E4E4E4E4E4E4F4F4F5050505050505151515252525353535353534C4C
+      4C4444443D3D3D37373730303030303030303030303030303030303030303030
+      30303030303939393D3D3D3D3D3D3D3D3D3E3E3E3E3E3E3F3F3F3B3B3B303030
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313737373938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383837383837383737383737383737
+      3837373837373737373737373737373737373737373737373636363333333131
+      3131303131303131313131313131313132323232323232323232323233333333
+      33333333333434343434343434343535353737373737373737373938383A3939
+      3C3B3C3E3D3D3F3E3E4140404242424444444545454747474949494A4A4A4C4C
+      4C4D4D4D5050505252525454545555555757575A59595B5B5B5D5D5D60606063
+      63636665656968686C6B6B6F6F6F7272727676767979797C7C7C808080838383
+      8787878A8A8A8E8E8E9292929595959A9A9A9D9D9DA1A1A1A5A5A5A9A9A9AEAE
+      ADB2B2B2B5B5B5A1A1A19393939090908D8D8D8989898383837E7E7E78787872
+      72726D6D6D6868686464646161615D5D5D5858585353534F4F4F4B4B4B464646
+      4242423F3D373D3C3B3E528E406BEC4071FF3F6FFF3E6DFF3E6CFF3C6CFF3B6B
+      FF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF33
+      63FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF
+      2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354
+      FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A
+      4CFF184BFF184AFF2748C61B48ED1448FF1548FF1547FF1546FF1446FF1345FF
+      1244FF1143FF0F43FF1141F4243C98383A413B3B393B3B3B3C3C3C3C3C3C3C3C
+      3C3B3B3B3B3B3B3B3B3B3A3A3A39393938383837373736363635353533333331
+      31313030302D2D2D2B2B2B2828285A5B5AB3B3B2AFAFAFABABABA7A7A7A3A3A2
+      9E9F9E9B9B9A9595958F8F8F8C8C8C8888878383838282837E7E7E7B7B7B7777
+      777273737070706D6C6D69696A6565656262625F5F5F5B5C5B5A5A5956555553
+      52525150504D4D4D4B4A4B4848484646464343434141413E3E3E3D3E3E3C3C3C
+      3A3A3A3939393637363434333332333131313030302F2F2F2D2C2D2C2B2B2525
+      242423232323232222222020212323243232313A3A3A3F3F3F4343434848484C
+      4B4C4949492E2E2E1B1B1B1B1B1B1B1A1B1A1B1A1A1A1A1A1A1A1A1A1A1A191A
+      1A1A191919191A191919191A1919191919181819181918181818181818181818
+      181718181817181E1D1E26262627272727272626272728272727272723222217
+      17171617161716171617171616161616161A1A1A1B1B1B1B1B1B1A1A1A1A1A1A
+      1A1A1A1818181617161717161717161615161817171817171716171716161716
+      1616161616161616161616161615151515151615151515151515151414141514
+      15141414141414141414141414141413131313141312131B1B1B1C1C1B1C1C1B
+      1C1B1C1919181313131313141313131313131312121212121212121211111211
+      111111111111101111111010101010101010100F10100F10100F100F100F1010
+      0F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0F0E0F0F0E0E0E0E0E0E0D0E0E0D0E
+      0D0D0D0D0C0D0D0C0C0C0C0C0D0C0C0C0C0B0C0C0B0B0C0C0B0B0C0A0A0A0B0A
+      0A0A0A0A0A0B0B0F100F2222232728282E2D2D32323333333307070707070706
+      07070706070706060606060607060606060606060F0F0F050506303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303232323A3A3A3C3C3C3D3D3D3F3F3F4141414545
+      454747474A4A4A4B4B4B4C4C4C4D4D4D4D4D4D4E4E4E4F4F4F50505050505051
+      51515252525353535353534F4F4F4848483F3F3F393939303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303535353C3C3C3D3D3D3D3D3D3D3D3D3E3E3E3F3F3F3C3C3C3030302F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30363535393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383738383738383738373738373738373738
+      3737383737373737373737373737373737373737373737373737373736353434
+      3332333130313131313131313131313232323232323232323232323333333333
+      333333333434343434343535353636363737373737373838383A39393B3A3A3C
+      3B3C3C3B3C3E3E3E3F3F3F4141414242424444444545454747474848484A4A4A
+      4C4C4C4E4E4E4F4F4F5252525454545757575959595B5B5B5E5E5E6060606463
+      636767676A69696D6C6C7070707373737676767A7A7A7D7D7D81818185858588
+      88888C8C8C8F8F8F9393939696969A9A9A9E9E9EA3A3A3A7A7A7AAAAAAAEAEAE
+      B2B2B2B4B4B4A2A2A19494949191918D8D8D8989898484847F7F7F7878787373
+      736E6E6E6969696565656161615D5D5D5959595555555050504C4C4C47474743
+      434340403E3D3B323D42533E5CB5406FFF3F70FF3E6DFF3E6CFF3C6CFF3B6BFF
+      3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363
+      FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A
+      5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF
+      2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4C
+      FF194BFF174AFF1749FF1749FF1748FF1648FF1547FF1546FF1446FF1146FF11
+      44FF1C3EBC2F37563A362B3A39363A3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C
+      3B3B3B3B3B3B3B3B3B3939393838383737373636363434343333333030302E2E
+      2E2C2C2C2A2A2A5B5A5BAFB0B0AFAFAFABABABA7A7A7A4A4A4A0A0A09B9C9C98
+      98979090908D8C8C8888888585858181818080807C7C7C787878747474717171
+      6E6E6D6A69696667666363636060605C5D5D5A5A5A5757575454545251514F4E
+      4E4C4C4C4949494747474545444343434040403E3E3E3E3D3D3B3B3B3A393A38
+      38393737373233333233333031303030312F2F2E2D2D2D282828232323242324
+      2222232222222323232D2E2E3938393D3E3E4443434848484D4D4C4C4B4C2727
+      261B1B1C1B1B1B1B1B1B1B1B1B1B1A1B1A1B1B1A1A1A1B1A1A1A1A1A1A191A1A
+      1A191A1A1A19191919191A191819191819191919191818181918181818181718
+      1718181717181A1A1B2525252626262726262727272828272827271E1E1F1717
+      171716171616171716161617161717171A1A1B1B1B1B1B1A1B1B1A1A1A1A1A19
+      1919171717161617171716161617171817181817181717171716171616171616
+      1617161616161616161516161515161515151515151515151515151515151414
+      151515141414141414141414141413141313131919191C1B1B1C1C1B1C1C1B1A
+      1B1B141414131313131313131313121313131212131212121112121112111111
+      1011101011111011101010101010101010101010101010100F100F10100F0F10
+      0F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0E0E0E0E0E0E0E0E0D0E0D0D0D0D
+      0D0D0D0C0C0D0C0C0C0D0C0C0C0C0C0C0C0B0B0C0C0B0B0B0B0A0B0A0A0A0B0A
+      0A0A0A0D0D0D2222212728272D2D2D3131313636360707070707070707070706
+      070706070606070706060606060606060D0F0D06060630303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303535353C3C3C3D3D3D3F3F3F4343434747474A4A4A
+      4D4D4D4E4E4E5050505050505050505151515252525353535151514A4A4A4242
+      423B3B3B32323230303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303535353C3C3C3C3C3C3D3D3D3D3D3D3E3E3E3E3E3E3D3D3D3232322F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31313139383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838373838373837373837373837373837373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3636353434333333313131323232323232323232323232333333333333333333
+      3434343434343535353636363737373737373737373939393A39393C3B3B3C3B
+      3C3D3C3D3F3F3F4040404141414343434444444646464747474949494B4B4B4D
+      4D4D4F4F4F5050505353535555555757575A5A5A5C5C5C5F5F5F626262656464
+      6867676A6A6A6E6D6D7171717474747777777B7B7B7D7D7D8181818585858989
+      898C8C8C9090909494949898989C9C9CA0A0A0A3A3A3A7A7A7ABABABAEAEAEB2
+      B2B2B5B5B5A2A2A19494949292928E8E8E8A8A8A8585857F7F7F797979747474
+      6E6E6E6A6A6A6565656262625E5E5E5A5A5A5656565151514E4E4E4949494545
+      454242423F3E393D3B343D486B3E61C73F6FFF3E6FFF3E6DFF3C6BFF3B6BFF3B
+      6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF
+      3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5B
+      FF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF22
+      53FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF
+      1A4BFF194AFF1849FF1749FF1748FF1548FF1448FF1347FF1A40CE2836693332
+      2D35342C3736363939393A3A3A3B3B3B3C3C3C3C3C3C3D3D3D3D3D3D3C3C3C3B
+      3B3B3B3B3B3A3A3A3838383737373535353333333232323030302D2D2D2B2B2B
+      5C5C5CB0B0B0AFAFAFABABABA8A8A8A4A4A4A0A0A09C9C9C9898989494948C8D
+      8D8989898585858281817F7F7E7E7D7D7979797776777272726F6F6F6B6B6B68
+      67686565656161625E5F5E5B5B5B5858585556565353525150504E4D4D4B4A49
+      48484846464544434441424240403F3E3E3E3D3D3D3A3A3A3939393737383535
+      353333323232323030302F2F302D2D2D2C2C2C25252524242423242323232323
+      24232626263939393D3C3C4142414848484D4D4D4D4D4D2727271C1D1D1B1C1C
+      1B1B1C1B1B1C1B1B1B1A1B1B1B1B1B1B1A1A1B1A1A1A1A1A1A1A1A1A1A1A1919
+      1A1A191919191919191919191918191919191918181819181818181918181818
+      18171818171A1A1A252525262626262626272727272728262627191919171717
+      1717171616171717161617171A191A1B1B1B1A1B1A1B1A1B1A1B1A1A1A191818
+      1817171717171617171716161618181718181718171718171717161717161616
+      1717151616151516151616151616161515151515151515141515151515151415
+      1414141414141314141314131413141717171C1C1B1C1B1B1C1C1B1C1C1B1414
+      1513131413131313131313131313121212121212111112111212111111111111
+      11111111111011101111101010111010101010100F1010100F1010100F0F0F10
+      0F0F0F0F0F0F0F0F0E0F0F0F0F0F0E0E0E0E0E0E0F0E0D0E0D0D0E0D0D0D0D0D
+      0D0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0B0A0B0A0A0B0A0B0B0B0A0A0A0A0B0D
+      0D0D2020202728282D2C2D323131363636101010070707070707070707060706
+      0607070606070707060606060F0F0F0606063030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303A3A3A3E3E3E4040404545454A4A4A4D4D4D50505052
+      52525353535353534C4C4C4444443D3D3D373737303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303434343B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3E3E3E3434342F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3434343938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737383737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373736363634343433333332323233333333333333333333333334
+      34343434343535353636363737373737373838383939393B3A3A3C3B3B3C3B3C
+      3E3D3E3F3F3F4040404242424444444444444646464848484A4A4A4B4B4B4D4D
+      4D4F4F4F5252525353535656565858585B5B5B5D5D5D5F5F5F63636366656568
+      67676B6B6B6E6E6E7272727575757878787B7B7B7F7F7F8383838787878A8A8A
+      8E8E8E9292929595959999999C9C9CA0A0A0A4A4A4A7A7A7ABABABAEAEAEB2B2
+      B2B4B4B3A3A3A29595959292928E8E8E8A8A8A8585858080807B7B7B75757570
+      70706B6B6B6666666363636060605C5C5C5858585454545050504C4C4C474747
+      4444454242413F3D363C3C393D4A713E60C73E6EFF3E6FFF3C6CFF3B6BFF3B6A
+      FF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF32
+      62FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF
+      2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF2253
+      FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A
+      4BFF194AFF1849FF164AFF1649FF1B42CE2536702F2F2E322F26333231353535
+      3737373838383A3A3A3C3C3C3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3B3B3B3A3A
+      3A3A3A3A3939393737373535353333333131313030302D2D2D5D5D5DB0B0B0AF
+      AFAFABABABA8A8A8A4A4A4A1A1A19C9C9C9898989595959190908A8A8A858586
+      8382827E7E7E7D7D7D7A7A7A777776747373706F6F6C6C6C6969696465656262
+      625F60605C5C5C5959595656565454545152514E4F4E4C4C4C4A494948474745
+      44444343434040413E3F3E3D3C3C3C3B3B3B3A39393839363737343333333333
+      31303130302F2F2E2E2D2D2E2A2A2A2424242424232223232323232324233333
+      343C3C3C4140414747464C4C4B5151502D2D2D1D1D1D1C1D1D1C1C1C1C1B1B1C
+      1B1B1B1B1B1B1B1B1B1B1B1A1B1A1A1B1A1A1A1A1A1A1A1A1A1A1A1A191A1A1A
+      1919191A19191919191819191919181818181918181818181818181818181818
+      181817181B1B1B25252526262626262627262727272723232417171717171717
+      17161617171617161818181B1B1B1B1B1A1B1A1B1B1B1A1A1A1A191919171717
+      1617171716171617161717171818181818171817171817171717161716161716
+      1616161616161615151616151516151615151615151515151515151514141414
+      14141414141414141414131616151B1B1C1C1C1B1C1B1B1C1C1B161515141413
+      1413141313131313131312121212121211111212111211111111111111111011
+      1111111010101110101010111110101010100F0F0F10100F100F10100F100F0F
+      0F0F0F0F0F0F0E0F0F0F0F0F0E0F0F0E0E0E0D0E0E0D0E0D0D0D0D0C0D0D0D0C
+      0D0D0D0C0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0B0B0B0C0D0D0D1F1F
+      1F2828282E2D2E33323238383814141407070707070707070606070607070606
+      07070606070706070F0F0F060606303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303131313E3E3E4242424747474C4C4C4C4C4C4747473F3F3F3939
+      3930303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303333333939393A3A3A3B3B3B3D3D3D3E3E3E3F3F3F3F3F3F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F353535393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383738383738373738373738373738373738373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373838383838373737373636363636363434343333333434343434
+      343535353636363737373737373737373838383939393C3B3B3C3B3B3D3C3D3F
+      3E3F4040404141414242424444444545454747474848484B4B4B4C4C4C4E4E4E
+      4F4F4F5252525454545757575959595B5B5B5E5E5E6060606363636666666A6A
+      6A6C6C6C7070707473737777777A7A7A7D7D7D8080808383838787878A8A8A8E
+      8E8E9292929595959999999D9D9DA0A0A0A4A4A4A7A7A7ABABABAEAEAEB2B2B1
+      B5B5B4A5A5A59595959393938F8F8F8C8C8C8787878181817C7C7C7777777272
+      726D6D6D6868686464646060605E5E5E5959595656565252524E4E4E4A4A4A46
+      464743434341403F3E3C353D3C3A3D49703D5DC03D6BFB3C6EFF3B6CFF3B6AFF
+      3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF3262
+      FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A
+      5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF
+      2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4DFF194D
+      FF194AFC1E41C126366D2E2E2F302D2331302E3131323434343636363838383A
+      3A3A3B3B3B3D3D3D3E3E3E3E3E3E3D3D3D3D3D3D3C3C3C3C3C3C3A3A3A393939
+      3838383737373535353232323030302D2D2D6B6B6BB3B3B3B0AFB0ABABABA8A8
+      A8A4A4A4A0A0A19C9D9D99999A9596959292928D8D8D8687878382837F7F7F7B
+      7B7B7B7A7A7878777574747171716E6D6D6A6A6A6666666464646161615C5D5D
+      5A5B5A57585855555552525250504F4D4D4D4B4A4A4848484645454443434342
+      423F3F3E3D3D3E3D3C3C3B3B3A3A393939373836363533333433323331313230
+      30302E2D2E2D2C2D25262624252424242523232323232229292A3B3A3A3F3F3F
+      454545494A4A504F503738371E1E1D1D1D1D1D1C1C1B1C1C1C1B1C1C1B1B1B1B
+      1B1B1C1B1B1B1B1B1B1B1B1B1B1A1A1B1B1A1B1A1A1A1A1A1A1A1A1A191A1919
+      1A19191A19191919191919191919191819181919181818181818181818181818
+      1717182020202625252626262526262727272828281B1B1B1717171717171717
+      171617171617171B1B1A1B1B1B1A1B1B1A1A1A1B1A1A1A1A1A17171717171717
+      1717171716171817181818181817181817181717181617171716171616161616
+      1616161615161616161615151516151515151515151515151514151414141414
+      141514141414141515151C1C1B1C1C1B1C1B1B1C1B1B18181713141314141414
+      1413131313141313121212131212121211121111121112111111111111111110
+      11111010111011101011101110101010101010100F0F0F0F10100F0F100F0F0F
+      0F0F0F0F0F0F0F0E0E0F0F0E0E0E0E0E0E0D0E0D0D0D0D0D0D0D0D0D0B0B0B0B
+      0C0B0C0B0B0B0B0B0B0B0B0A0B0B0B0B0A0C0C0B0C0B0C0F0E0E2020202A2A2A
+      3030303434353939391B1A1A0707070707080707070707060606070706060606
+      060606070F0F0F06060630303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303535353A3A3A383838343434303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3232323838383A3A3A3B3B3B3D3D3D3E3E3E3D3D3D2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F36363639393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373837373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737383838383838383837383837393838393838393838393938383838373737
+      3737373837373837373737373838383939393A3A3A3C3B3B3C3B3B3E3D3E3F3E
+      3F4040404141414343434444444646464747474949494B4B4B4D4D4D4F4F4F50
+      50505353535555555757575A5A5A5D5C5C5F5F5F6363636666666969696C6C6C
+      6E6E6E7171717575757878787A7A7A7E7E7E8181818484848888888A8A8A8E8E
+      8E9292929595959999999D9D9DA0A0A0A4A4A4A7A7A7ABABABAEAEAEB2B2B1B5
+      B5B4A7A7A79595959494949090908D8D8D8888888383837D7D7D787878737373
+      6E6E6E6969696565656262625F5F5F5B5B5B5858585555555151514C4C4C4949
+      4945454543434340403F3F3C353D3C373C445E3D56A53C66E63C6CFF3B6CFF3A
+      6AFF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF3262FF
+      3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5A
+      FF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF21
+      52FF2152FF2051FF1F50FF1E50FF1E50FF1C50FF1C4EFF1D49E92340A62B3559
+      2F2E2A302D2430302E3131313333333434343636363838383A3A3A3C3C3C3D3D
+      3D3D3D3D3E3E3E3E3E3E3E3E3E3D3D3D3C3C3C3C3C3C3A3A3A39393937373735
+      35353434343232322F2F2F757474B3B3B3B0B0AFACABACA8A8A9A4A4A4A1A1A1
+      9D9C9D9A9A999695969292928E8E8E8989898383838080807B7C7C7878787979
+      797575747272726F6E6E6C6B6B6867686565656161615E5E5E5C5C5C58585855
+      55555352525050504D4E4E4C4C4C4949484748474645454342424140403F3E3E
+      3D3D3C3C3C3B3A3A3A3939383837373534343334333132313031302F2F2F2E2E
+      2E2B2A2B2524252425242324232323232424243433343D3D3E4342424848484D
+      4D4D4A4B4B1E1E1E1D1E1D1D1E1D1C1C1D1C1C1C1C1B1C1B1C1B1C1C1B1B1B1C
+      1B1B1B1B1A1B1B1B1B1A1B1B1B1A1A1B1A1A1A1A1A1A191A1A1A1A191A1A191A
+      191A191919191919191919191819191918181818181818181818181818181818
+      1919232323252525262626272726272727242424171717171717171717161717
+      1616161A191A1B1B1B1B1B1B1B1A1B1A1B1A1B1A1A1818181717181717171717
+      1718171818191918181818181718181718171718161717171617161616161616
+      1616151616151515151516151516151515141514151415151415151514141414
+      1415151414141B1C1C1C1C1B1C1C1B1C1B1B1918181414141414141414131313
+      1314131313121213121213111212121112111211111111111111111010111110
+      1111101110101010101010101010101010100F10100F101010100F0F0F0F0F10
+      0F0F0F0F0F0F0E0E0F0E0E0E0E0E0E0D0D0E0C0D0C0C0C0C0C0C0C0C0B0C0B0C
+      0C0B0B0B0B0B0C0C0C0C0C0C0C0D0D0E1110101D1D1C2828282E2E2E33333338
+      38383C3C3C222221080707070708070807070707070707060707060706070706
+      0F120F0606063030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303033
+      33333939393A3A3A3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383837383737383737383737383737383737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373838
+      383838383838373838373938383938383938383938383A39393939393A3A3A3B
+      3B3B3B3B3B3B3B3B3C3B3B3C3C3C3D3D3D3D3D3D3E3E3E3F3F3F414141414141
+      4343434444444545454747474848484A4A4A4C4C4C4D4D4D5050505252525454
+      545756565958585B5A5A5D5C5C5F5F5F6262626464646666666A6A6A6C6C6C6F
+      6F6F7272727575757878787B7B7B7F7F7F8181818585858888888B8B8B8F8F8F
+      9292929595959999999D9D9DA0A0A0A4A4A4A7A7A7AAAAAAAEAEADB1B1B1B5B5
+      B4ACACAC9797979494949191918E8E8E8A8A8A8585857F7F7F7A7A7A75757570
+      70706C6C6C6767676363636161615D5D5D5A5A5A5656565353534F4F4F4C4C4C
+      4848484646464343444141403F3D383D3B333C3F463C4B7B3B59B53B66ED3A6A
+      FF396BFF3969FF3868FF3767FF3666FF3665FF3564FF3464FF3363FF3262FF32
+      61FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF
+      2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152
+      FF2153FF1F53FF1F51FF1F4DF02344B9293A792E323E302E25312F2831313032
+      32323333333434343636363737373939393B3B3B3D3D3D3D3D3D3E3E3E3E3E3E
+      3E3E3E3F3F3F3F3F3F3E3E3E3C3C3C3B3B3B3A3A3A3939393737373434343333
+      333A3A3A868686B3B3B3AFAFAFABACACA8A8A8A4A4A4A1A1A19D9D9D9A9A9A95
+      96969292928E8E8E8B8B8B8584848080807D7D7D787878777677767676727272
+      70706F6C6D6C696968666565636262605F5F5C5C5C5A5A5A5757565353545252
+      51504F4F4D4D4D4A4A4A484848464646444343434242403F3F3E3D3D3C3C3C3C
+      3B3B3A3A3A3939393838363535353332333232313030302E2F2E2E2E2E282828
+      2525252525242423232323242626273B3B3B3F3F3F4545464B4C4B5050513131
+      311D1E1E1E1E1E1D1D1D1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1C1C1B1B1B1C1B
+      1B1B1B1B1B1B1A1B1B1B1A1A1B1A1A1A1A1A1A1A1A1A1A1A191A191A19191919
+      1A19191919191918191919191818181918181818181818181818181817171D1D
+      1C24242425252526262627272627272819191918171717171717171717171618
+      17171C1C1B1B1B1B1B1B1B1B1B1A1A1B1A1A1919171717171818171717161717
+      1818191819181918181818181818171717171817161716171716161616161616
+      1616161616161516151515151515151515151515151515151414141514141414
+      14141A1A191C1C1C1C1C1C1B1B1B1B1919141414141414131414141414141313
+      1312131312121312121311121211111112121111111111111111111110111110
+      111011111010101010101010101010100F0F100F0F0F1010100F0F0F0F0F0F0F
+      0F0F0F0E0E0E0E0E0D0C0E0C0D0C0C0C0C0C0C0C0C0C0C0B0C0B0C0C0B0C0D0D
+      0C0C0C0D0E0D1010101A1A192424242827272C2C2C3131313737373A3A3A3C3B
+      3C212221080807070707080707070707070707070707060706070706120F0F06
+      0606303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303333333838
+      383939393B3B3B3D3D3D3736372F2F2F2F2F2F2F2F2F2F2F2F2F2F3039393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      3738383738373738373738373738373738373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737383838
+      3838373838373838373938383938383938383A39393A39393939393A3A3A3B3B
+      3B3B3B3B3B3B3B3D3D3D3E3E3E3E3E3E3F3F3F40404041414142424243434345
+      45454646464747474A4A494A4A494C4C4B4E4D4D504F4F515050535252555454
+      5857575A59595B5B5B5E5D5D5F5F5F6262626565656767676A6A6A6D6D6D6F6F
+      6F7272727575757878787C7C7C7F7F7F8282828585858888888B8B8B8F8F8F92
+      92929595959999999D9D9DA0A0A0A3A3A3A7A7A7AAAAAAADADADB0B0B0B4B4B4
+      B0B0B09B9B9B9595959292928F8F8F8B8B8B8686868181817C7C7C7878787373
+      736E6E6E6A6A6A6565656262626060605C5C5C5959595656565252524F4F4F4B
+      4B4B4848484646464444444242423F3E3C3E3B343C3A353B3F4A3B4A793A55AD
+      3960DE3967F93869FF3669FF3668FF3566FF3565FF3464FF3363FF3262FF3261
+      FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF29
+      59FF2958FF2858FF2658FF2657FF2556FF2457FF2357FF2355FF2251F9234CDD
+      2643AA2A3A752E3242312F2A32302632312E3333323333333535353636363737
+      373838383A3A3A3B3B3B3D3D3D3E3E3E3F3F3F3F3F3F4040404040403F3F3F3F
+      3F3F3F3F3F3E3E3E3C3C3C3B3B3B393939373737363636343434464646999898
+      B3B2B2AFAEAEABABABA8A8A8A4A5A5A1A1A09D9D9D9A9A9A9696969292928E8E
+      8E8C8B8C8787878181817D7D7D7979797676767373737473747170706D6D6D69
+      69696767666363636060605E5D5E5B5A5A5757575554555352535150504E4E4D
+      4B4B4B4848494746474545454444444140403F3F3F3E3D3D3B3B3A3A3B3B393A
+      3A3838373637373433333232313131312E2F2F2F2F2E2F2E2F25262525252524
+      2424222223242423302F2F3D3D3D4140414748484D4D4D4B4B4B1F1E1E1E1E1E
+      1E1E1E1D1D1D1D1D1D1C1D1C1D1C1C1C1C1C1C1C1B1C1C1C1B1B1B1B1C1B1B1B
+      1C1B1B1B1B1B1B1B1A1B1A1A1B1B1B1A1A1A1A1A191A1A191A191A1919191919
+      19191A1919181919181919181918181818181918181818181818171818222222
+      2424252525252526262627271D1E1E1718181818171717171717171717171B1B
+      1B1C1C1B1B1C1B1B1B1B1B1B1A1A1A1917181818181817171717171719181918
+      1919181819181818181817181817181717181617171617171716161616161616
+      1616161515151615151516151515151515141515141514141414151514141919
+      191C1C1C1C1C1C1C1C1C1C1B1B14141414141414141413141413131313131313
+      1212131212131212121212121112111112121111111111111111111110101110
+      111010111011101110101010101010100F10100F101010100F100F0F0E0F0E0E
+      0E0D0D0D0D0C0C0D0C0C0C0D0C0D0C0C0C0C0C0D0D0D0D0D0D0E0D0E100F0F19
+      19192222222626262828282D2D2D3131323736363939393C3C3C3D3D3D282727
+      08070807080707080708070707070707070707070706070712120F0706073030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030333333373737393939
+      3B3B3B3D3D3D3434342F2F2F2F2F2F2F2F2F2F2F2F3131313939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373738383838383838
+      38373838373938383938383938383938383A39393939393A3A3A3B3B3B3B3B3B
+      3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F4040404040404242424242424444444545
+      454646464848484A4A494B4B4A4D4C4C4E4D4D51505052515154535355545458
+      57575A59595C5B5B5E5E5E6060606262626565656767676A6A6A6D6D6D707070
+      7373737575757878787C7C7C7F7F7F8282828585858888888B8B8B8F8F8F9292
+      929595959999999C9C9CA0A0A0A3A3A3A6A6A6A9A9A9ACACACB0B0B0B3B3B3B2
+      B2B2A0A0A09595959393939090908C8C8C8888888383837F7F7F797979757575
+      7171716C6C6C6868686565656161615E5E5E5B5B5B5858585555555252524F4F
+      4F4C4C4C4949494747474545454242424040403F3E3B3E3B343D3B343B3C403A
+      425B3A4C853954AA375BCF3761EB3564F93565FF3465FF3366FF3264FF3263FF
+      3162FF2F61FF2F60FF2E60FF2E5FFF2D5EFF2C5EFF2B5DFF2A5DFF295CFF285C
+      FF285AFF2859FF2757FA2754ED284DCD2945A52B3D802D36542F3035312E2732
+      2F2532312D3333323434343535353636363737373939393A3A3A3B3B3B3C3C3C
+      3D3D3D3F3F3F4040404040404141414141414141414141414141413F3F3F3E3E
+      3E3E3E3E3C3C3C3B3B3B3939393737373535355A5A5AA5A4A5B2B1B1AFAEAFAB
+      AAABA7A7A7A4A3A4A1A1A19D9D9D9999999696969292928E8E8E8C8C8C888888
+      8485847D7D7D7979797676767373737171707071716D6D6D6A6B6A6767676464
+      646161605E5E5D5C5C5C5A58585756565353535151514E4E4D4B4C4C4A494948
+      48484646464444434242423F40403F3E3E3C3D3C3B3A3A3A3A3A393939373636
+      3535363232333232323030302F2E2E2E2F2F2C2B2C2525252525252424242423
+      232425253536363D3D3D4444444949494F4F4F3534351E1E1F1E1E1E1E1E1E1D
+      1D1D1D1D1D1D1C1C1D1C1D1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1B1B1C1B1B1B
+      1B1B1B1B1B1B1B1A1B1A1B1B1A1A1A1A1A1B1A1A1A1A191A19191919191A191A
+      191919191819191919191919181918191818181818181818181D1D1D24252425
+      25262626262727272525251817181718171717171717171717171B1A1A1B1C1C
+      1C1C1B1B1B1B1B1B1A1A1B1A1917171818171718181717171818181819191818
+      1818181819181818181717171718171718161717161617161616161616161616
+      16161616161616151515151515151515151515151415141414151818181C1C1C
+      1C1C1C1C1C1B1B1B1C1514151414151414141413141314141313131312131312
+      1213131213121212121112111212111111111211111111111111111110101111
+      10101110101010101010101010100F0F0F0F10100F0E0F0D0D0D0E0D0D0C0D0D
+      0D0D0D0D0C0C0D0C0D0D0E0E0D0D0D0E0E0E0F0F0E1617172121212525252829
+      282B2B2C3030303232323737373A39393D3D3D35353515151508080808080708
+      0807080707070807070708070707070707070706120F12060707303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303434343636363838383A3A3A3D
+      3D3D3232322F2F2F2F2F2F2F2F2F2F2F2F333333393939393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738383738
+      3737383737383737383737383737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373838383838383838373838
+      373838373938383938383938383A39393939393939393A3A3A3B3B3B3B3B3B3B
+      3B3B3C3C3C3E3E3E3E3E3E3F3F3F404040414141424242434343454545464646
+      4747474949484A4A494C4B4B4D4C4C4E4D4D5150505251515454545655555858
+      585A59595C5B5B5E5E5E6060606262626565656868686A6A6A6D6D6D71717173
+      73737575757979797C7C7C7F7F7F8282828585858888888B8B8B8F8F8F929292
+      9595959999999C9C9C9F9F9FA2A2A2A5A5A5A9A9A9ABABABAFAFAFB2B2B2B4B4
+      B4A7A7A79696969494949292928E8E8E8A8A8A8686868181817C7C7C78787874
+      74747070706B6B6B6767676464646161615E5E5E5B5B5B595959555555525252
+      5050504D4D4D4A4A4A4848484646464343434242424141403F3F3D3E3C383D3A
+      313C3A323C3C3D3B3D453A425B394776374B8C374FA03553B13454C13456C933
+      59D93159DD3058DD3058DD2F57DD2E56DB2F51C92E4FC22E4CB12E489F2F448B
+      2F3E74313A5931343D32323332302733302633322C3332303333333535353636
+      363737373838383939393B3B3B3C3C3C3D3D3D3E3E3E3F3F3F40404041414141
+      41414343434343434343434242424242424141414141414040403E3E3E3D3D3D
+      3C3C3C3A3A3A383838393939757576ADADAEAFAFAFAEADAEAAA9A9A7A7A7A3A3
+      A3A0A0A09D9D9D9999999696969392928F8E8E8C8C8C88888885858581818179
+      79797677767474747070706F6F6F6E6E6D6B6C6C6868686564646262625F5F5E
+      5C5C5C5A59595757565453535251514F4F4F4D4D4D4B4B4B4949494747474444
+      444242424041413F3F3E3E3E3D3C3B3B3B3A3A3B3A3A38383737373735353533
+      33333131312F2F2F2F2F2F2D2E2E29292A252626242424232323232323262626
+      3B3C3B3F3F404444444B4B4B5050502425251F1F1E1F1E1F1E1E1E1D1D1D1D1C
+      1D1C1C1D1D1D1C1D1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1C1B1B1C1B
+      1B1B1B1A1B1A1A1A1A1A1B1B1B1A1A1A1A1A1A1A1A1A1A19191A1919191A1A19
+      191919191919181918181818181818181818181818191A1A2424242524252525
+      252626262728281819181717181717171717171717171919191B1B1B1C1B1B1B
+      1B1B1B1B1B1B1B1A191919191717171817181717191818191919181919181818
+      1818191918181818171818171817171717171717161716161617161616161616
+      151515151615161616151515151415151515141414141819181D1C1C1C1C1C1B
+      1C1B1C1C1B151415141414151414141414141414141313141313141312131212
+      1312121211111212121112111111121111111111111111111111101111101010
+      111011101010101010100F0F0F0D0D0D0E0D0E0E0D0E0D0D0E0D0D0D0C0D0C0E
+      0E0D0E0E0E0D0D0D100F0F1414141F1F1F2526262929292C2C2B2F3030333232
+      3535353838383A3A3A3839391C1C1D0908080808080808080807080808070808
+      0808070707080808070707070707070712121206060730303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303434343636363838383A3A3A3D3D3D2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F35343439393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373838373837373837
+      3738373738373738373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737383838383837383837383837
+      3938383938383938383938383A39393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C
+      3C3D3D3D3E3E3E3F3F3F3F3F3F40404042424242424243434345454546464647
+      47474949484A4A494C4B4B4D4D4D4F4E4E515050535252545454575656585858
+      5B5A5A5C5C5C5F5F5F6161616363636666666868686B6B6B6D6D6D7171717373
+      737676767979797C7C7C7F7F7F8282828585858888888B8B8B8E8E8E92929295
+      95959898989B9B9B9E9E9EA2A2A2A4A4A4A8A8A7ABABABAEAEADB1B1B1B5B4B4
+      AEAEAE9B9B9B9595959393939090908C8C8C8989898484847F7F7F7B7B7B7777
+      777373736E6E6E6A6A6A6666666363636161615E5E5E5B5B5B58585856565653
+      53535151514E4E4E4C4C4C494949484848464646444444424242414141403F3F
+      3F3E3D3E3D3B3E3C373C3A333C392F3C392F3B39333A3A383A3939393A3E393A
+      3F38393E37393D37393D37383C36363636353436342F37342937332936342C36
+      352F3635323635343636353737373737373737373838383939393B3B3B3C3C3C
+      3C3C3C3E3E3E3F3F3F4040404141414242424343434343434444444444444444
+      444444444545454444444242424242424040404040403E3E3E3C3C3C3B3B3B3A
+      3A3A4D4D4D939393AFB0B0ABABABABAAAAAAAAAAA6A5A5A3A2A2A0A0A09C9C9C
+      9999999595959292928E8E8E8C8B8B8888888585858181817E7E7E7676777474
+      747070706D6D6E6C6C6C6C6C6C6868686566666362626060605D5D5D5B5B5A58
+      5857565554535252504F4F4E4E4E4B4B4B494949474746444444444343414241
+      3F3F3F3E3E3E3C3C3B3A3A3A3A3A3A3938383837373636363534343132323031
+      3130302F2F2F2F2E2D2E28282826262525242523232323242429292A3C3C3C42
+      42424546454C4C4C4848481F1F1F1F1E1F1E1F1E1D1D1E1D1D1D1D1D1D1D1D1D
+      1D1C1D1D1D1C1D1C1C1C1C1C1C1C1C1C1B1C1B1C1B1B1B1B1B1B1B1B1B1B1B1B
+      1B1B1B1A1A1A1A1B1B1B1B1A1B1A1A1A1A1A1A1A191A1A1A1A19191A19191919
+      1919181919181919191918191918181818181818222122252525262525262626
+      2727271C1C1C1817181818181817171717181818181C1C1C1C1B1B1C1C1B1C1B
+      1B1B1B1A19191919191918181718181818181819191919191919191918191918
+      1918191818181817181817181717181617171716171716161616161616161616
+      1516151616151515161515151515141515151717161D1D1C1D1C1C1C1C1C1C1C
+      1C16171615141514141414141414141413131313131314121213131213121212
+      1212121212121212121212121111111111121211111111101111111111111111
+      1010110F0E0E0E0D0E0E0D0E0D0D0E0E0D0E0D0D0D0D0D0D0F0E0E0E0D0E100F
+      0F1312131E1F1E2626262929292B2B2B2E2F2E323232343534383838393A3A37
+      37372222220C0C0C080809090808090809080808080808080808080808070808
+      0707080708080707070707071212120707073030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303131313434343636363838383B3B3B3C3C3C2E2E2E2F2F2F
+      2F2F2F2F2F2F2F2F2F3636363939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383837383837383737383737383737
+      3837373837373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373738383838383838383738383738373739
+      38383938383938383A39393939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C
+      3E3E3E3E3E3E3F3F3F4040404141414242424242424444444545454646464848
+      474A4A494A49494C4B4B4E4D4D504F4F5150505352525554545756565958585A
+      5A5A5C5C5C5F5F5F6161616363636666666969696B6B6B6E6E6E717171737373
+      7676767979797C7C7C7F7F7F8282828585858888888A8A8A8E8E8E9292929494
+      949797979B9B9B9D9D9DA0A0A0A4A4A4A7A7A6AAAAA9ADADADB0B0B0B3B3B3B4
+      B4B4A5A4A49595959494949191918F8F8F8B8B8B8787878282827E7E7E7A7A7A
+      7676767272726E6E6E6A6A6A6666666363636161615E5E5E5B5B5B5959595757
+      575454545252524F4F4F4D4D4D4C4C4C4A4A4A47474746464645454544444443
+      43434242424040404040403F3F3F3F3E3E3E3E3D3D3D3B3C3B393C3B393C3B39
+      3B3A383B3A383B3A383A3A383A3A383A3A393A3A3A3A3A3A3A3A3A3A3A3A3B3B
+      3B3B3B3B3B3B3B3C3C3C3D3D3D3D3D3D3E3E3E3F3F3F40404041414141414142
+      4242434343444444454545454545454545454545464646474747464646454545
+      4545454444444343434242424040403F3F3F3E3E3E3C3C3C3A3A3A6E6E6EA8A8
+      A9ADADAEAAABABA7A7A7A7A6A6A5A5A5A3A3A29F9F9F9B9B9B99999994949491
+      91918F8F8E8C8C8C8887878585858281817E7E7F7A7A7A7474747171716D6D6D
+      6A6A6A6A6A6A6969696666666364646060605D5D5E5B5B5B5859585656555353
+      535151504E4E4E4E4C4C4A4949484848464646444544424142403F403F3F3F3D
+      3D3D3B3A3B3A3A3A393A3A383837373636373636343433303131302F30302F30
+      2E2F2E2D2E2D2828272525252424242323232324243030303D3C3D4141414748
+      474D4D4D3E3E3E1F1F1F1E1F1F1E1F1E1D1D1D1E1D1D1D1D1D1D1D1D1D1D1D1C
+      1D1C1C1C1D1C1C1C1C1D1C1C1C1C1C1B1B1C1C1B1B1B1B1B1B1C1B1B1C1B1B1B
+      1A1B1B1A1A1B1A1A1B1A1A1A1A1A1A191A1A191A1919191919191A1A1A1A1919
+      191919191919191818181819181818181E1F1F2424232524252626262728271F
+      1F201818181818181818181717171818191C1C1C1C1C1C1C1C1B1B1B1B1B1B1A
+      1A1A1A1919191819191918171918191A19191919191919191819191919191919
+      1918181818181718181717171717161717161717161616161616161616161615
+      15161515151515151515151515151717171C1D1C1D1C1D1C1C1C1C1C1C171616
+      1415151515141414141414141414141413131413131412121313121312131212
+      121212121211121212121212111112111111111111111011110F0E0F0E0E0F0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0E0E0E0F100F0F1213121C1D1D252626
+      2928292C2B2B2E2E2E3131313535353838383839393A3B3A2828290C0D0C0909
+      0909090809090909090908090808080908080808080808070807080808070708
+      0707080807080707121212070707303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303131313434343737373939393B3B3B3A3A3A2E2E2E2F2F2F2F2F2F2F
+      2F2F2F2F2F383837393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383738383738383738373738373738373738
+      3737383737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373838383838373838373838373938383938
+      383938383938383939393939393A3A3A3A3A3A3B3B3B3B3B3B3C3C3C3D3D3D3E
+      3E3E3E3E3E3F3F3F404040414141424242434343454545464646474746484847
+      4A49494B4A4A4D4C4C4E4D4D504F4F5150505352525554545857575958585B5B
+      5B5D5D5D5F5F5F6262626464646666666969696B6B6B6E6E6E71717173737376
+      76767979797C7C7C7F7F7F8282828585858888888A8A8A8E8E8E919191949494
+      9696969A9A9A9D9D9DA0A09FA3A3A2A6A6A6A9A9A9ABABABAFAEAEB2B1B1B4B4
+      B4ADADAD9C9C9C9595959393939090908D8D8D8A8A8A8585858282827E7E7E7A
+      7A7A7676767272726E6E6E6B6B6B6868686464646161615E5E5E5C5C5C5A5A5A
+      5858585656565353535151514F4F4F4E4E4E4D4D4D4A4A4A4949494848484747
+      4746464645454544444443434343434343434341414141414140404040404040
+      40403F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F404040404040404040
+      4040404040404242424343434343434444444444444545454646464646464747
+      4747474748484848484848484848484847474748484848484846464645454544
+      44444343434242424141413F3F3F3D3D3D555555959595B2B2B2ACACADA8A8A9
+      A5A6A6A3A3A3A2A2A2A1A1A19E9E9E9C9B9B9998989494949191928E8E8E8B8B
+      8B8888888585858282827E7E7E7B7C7B7878777171716E6E6E6A6A6A68676869
+      69696666666464646160605F5F5E5C5C5C595A5957575754545452525150504F
+      4D4D4C4A4949494848474646454545434343414140403F403D3E3D3C3C3C3A3A
+      3A3A3A3A3939393939383737363635353433333030303030302F2F2F2E2E2F2D
+      2D2D2626262424242324242222222324232F2F2F3E3E3E4241424747484D4D4D
+      3938382020201F1F1F1D1E1E1D1E1E1E1D1D1D1E1E1D1D1D1D1D1D1D1D1D1D1D
+      1D1C1C1C1D1C1D1C1D1C1C1C1C1C1C1C1B1C1B1B1B1B1B1B1C1B1C1C1B1B1B1B
+      1A1B1A1B1A1B1A1B1A1A1A1A1A1A1A1A1A191A1A191A1919191A1A1A19191919
+      1819191919191818191819181E1E1E2424242525252626262728281F1F201818
+      181817181817181717181817181C1C1C1C1C1C1B1C1B1C1B1B1B1B1B1B1B1A19
+      191A1919191919191818191A1A1A19191A191919191919181919181818181919
+      1818181818171818171717171816161716171716161616161616151616161515
+      161515161516161515151717171C1D1C1D1D1B1C1C1D1C1C1C17171615151415
+      1415141414141414141414141313131313131212141212131212121213121212
+      1211121111121112111211121111111010100F0F0F0E0E0F0E0D0F0E0D0E0E0D
+      0F0E0D0F0F0E0F0F0E0F0F0F0F1213131B1B1B2424252828282B2B2B2E2F2F30
+      31313534343738373939393B3B3B2E2F2F10100F0A0A09090A090909090A0909
+      0909090809080808090809080908090909080908080808080807080708080707
+      0807070712121207070730303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3232323535353737373939393B3B3B3737372E2E2E2F2F2F2F2F2F2F2F2F2F2F
+      2F39393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838373838373837373837373837373837373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737383838383837383837383837383737393838393838
+      3938383A39393939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E
+      3E3F3F3F3F3F3F4040404242424242424343434545454646464747464949484A
+      49494C4B4B4D4C4C4E4D4D5150505251515453535554545857575959595B5B5B
+      5D5D5D5F5F5F6262626464646666666969696C6C6C6E6E6E7171717373737676
+      767979797C7C7C7F7F7F8181818484848787878A8A8A8D8D8D90909093939396
+      96969999999C9C9B9F9F9EA2A2A2A4A4A4A8A7A7AAAAAAACACACAEAEAEB1B1B1
+      B2B2B2A7A7A79898989494949292928F8F8F8C8C8C8888888585858181817E7E
+      7E7A7A7A7676767373736F6F6F6C6C6C6868686565656262626060605E5E5E5C
+      5C5C5A5A5A5858585555555454545353535151514F4F4F4D4D4D4D4D4D4B4B4B
+      4A4A4A4949494848484747474747474747474646464545454545454545454444
+      4444444444444443434344444444444444444444444445454545454546464646
+      46464646464747474848484848484949494949494949494A4A4A4A4A4A4A4A4A
+      4A4A4A4B4B4B4B4B4B4A4A4A4A4A4A4949494848484848484646464444444444
+      444242424040404848487E7E7EB1B1B1B1B1B1ABABABA8A8A8A5A4A5A1A1A29E
+      9E9E9E9E9E9D9D9D9A9A9A9797969594949191908D8D8E8A8A8B888888848484
+      8181817E7E7E7B7B7B7878787574746E6E6E6A6A6A6867686565656666666464
+      646161615F5F5F5C5C5C5A5A5A5757575454555353535050504E4E4D4B4B4B4A
+      4A4A48474845454544434342424240403F3E3F3F3C3C3C3B3A3A3A3A3A383838
+      3938383838373636363635353332323030302F2F2F2F2F2F2D2E2E2E2D2E2525
+      252424242323232323232423233535343E3E3E4242424848484D4D4D2F2E2F20
+      1F201F201F1E1E1E1E1E1E1E1E1E1D1D1E1E1D1E1D1D1D1C1D1D1D1C1D1D1D1C
+      1D1C1C1C1C1C1D1C1C1C1C1C1B1C1C1C1B1C1C1C1C1B1B1C1B1B1B1A1B1B1A1A
+      1B1B1A1A1A1A1B1A1A1A1A1A1A1A1A191A19191A191A19191919191919191919
+      19191918181918191C1B1C232423252525262626272727242524181819181818
+      1818171718171718181C1C1C1C1C1C1C1C1C1B1C1B1C1C1B1A1B1B19191A1A19
+      191919191919191A1A19191A1A1A191919191919191919191918181919181918
+      1818181817181817181717171617171716171617161616161616161616151616
+      1515161615161717171D1C1B1D1D1C1D1D1C1C1C1C1717161515151515151514
+      1414141515141415141314131314121314131313121212121212121212121212
+      12111112111211110F0F0F0E0E0F0E0E0F0E0E0F0E0E0F0E0D0E0F0E0F0F0E10
+      1010101211121819182323232827282A2A2A2E2E2F3131313334343737373839
+      393B3C3B3232331616160A0A0A0A0A0A0A0A0A0A09090A0A0A090A0909090909
+      0909080908090809080808090808080909080808080808080708080708070807
+      1412140707073030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303032323235
+      35353737373A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F313131393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737383737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373738383838383738383738373739383839383839383839
+      38383939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3E3E3E3E3E3E
+      3F3F3F4040404040404242424242424444444545454646454747464948484A49
+      494C4B4B4D4D4D4E4D4D5150505251515453535554545757575959595B5B5B5D
+      5D5D5F5F5F6262626464646666666969696C6C6C6E6E6E717171737373757575
+      7878787C7C7C7F7F7F8181818383838787878A8A8A8D8D8D8F8F8F9292929595
+      959999989B9B9A9D9D9DA0A0A0A2A2A2A4A4A4A7A7A7AAAAAAACACACAFAFAFB3
+      B3B3B0B0B0A2A2A29595959393939191918E8E8E8B8B8B888888848484818181
+      7D7D7D7A7A7A7777777373737070706D6D6D6A6A6A6767676464646161616060
+      605D5D5D5C5C5C5A5A5A5858585656565656565454545252525151515050504F
+      4F4F4E4E4E4D4D4D4C4C4C4B4B4B4B4B4B4A4A4A4A4A4A4949494A4A4A494949
+      4949494949494949494949494949494949494A4A4A4A4A4A4B4B4B4B4B4B4B4B
+      4B4B4B4B4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4D4D4D4D4D4D4E4E4E4E4E4E4D
+      4D4D4D4D4D4D4D4D4C4C4C4A4A4A484848474747464646444444424242434343
+      6E6E6EA5A5A5B3B3B3ACACADA9A9A9A6A6A7A3A3A3A0A1A19D9D9E99999A9A99
+      999999999797979493939190908E8D8D8B8A8A8787878484848080807D7E7D7C
+      7C7B7878787475747170706A6A6A6868686565656363636464646261615F5F5F
+      5C5C5C5A5A5A5757575656565353535050514E4E4E4C4C4C4A4A4A4948474645
+      454545444343424140403F3F3F3D3D3D3B3C3C3A3A3A39393A37373738373736
+      37373737363434343232313030302F2F2F2E2E2D2D2E2E2D2C2D242424232323
+      2323232323232424243535353E3E3E4141414747474D4D4D2C2B2C201F1F1F1E
+      1E1E1E1E1E1D1E1E1E1E1E1E1D1D1E1D1D1D1D1D1D1D1D1D1D1D1D1D1C1C1C1C
+      1C1C1D1C1C1D1C1C1C1C1C1B1C1C1C1B1B1B1C1B1B1B1B1B1B1B1A1B1B1A1B1B
+      1A1B1A1A1B1A1A1A1A1A1A1A1A191A1A19191A191A19191A1919191919191919
+      181919191C1C1B24242325252525262626272624242518181819181818181818
+      18181718181D1D1D1C1C1C1C1C1C1C1C1B1B1C1B1B1A1B1919191A191A191919
+      1919191A19191A1919191A1A1A19191919191919191919191818191818181818
+      1818181718181718171718161617171617161616161616161616151615151615
+      15151718171D1C1B1D1B1C1C1C1C1C1D1C171616151515151515151515141514
+      1514141414141513131412131313131313131313121313121312121212121212
+      111111110E0E100E0E100E0E0F0E0E0F0E0E0F0F0F0F0F0E0F11101117171622
+      23222828282A2A2A2D2E2D3131313434353738373939393B3B3A3636361D1E1D
+      0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A0909090A0A0909090909090909090909
+      0909090909090809080808080908090908080808080708080808080814141408
+      0708303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303333333535353838
+      383A3A3A3C3C3C3232322F2F2F2F2F2F2F2F2F2F2F2F33333339393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383738383738373738373738373738373738373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373838383838373838373838373837373938383938383938383939
+      393939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F
+      3F3F4040404141414242424242424444444545444646454747464A49494A4949
+      4C4B4B4D4D4D4F4E4E5150505352525454545655555757575959595B5B5B5E5E
+      5E5F5F5F6262626464646666666969696B6B6B6E6E6E71717173737375757578
+      78787B7B7B7E7E7E8080808383838686868989898B8B8B8E8E8E929292949493
+      9696969797979A9A9A9D9D9D9F9F9FA2A2A2A5A5A5A8A8A8ABABABAEAEAEB1B1
+      B1B3B3B3AFAFAFA3A3A39494949292929090908D8D8D8B8B8B88888885858581
+      81817F7F7F7B7B7B7878787575757272726F6F6F6D6D6D696969676767646464
+      6262626060605E5E5E5C5C5C5B5B5B5A5A5A5858585757575656565555555353
+      535353535252525151515050505050505050504F4F4F4F4F4F5050504E4E4E4E
+      4E4E4E4E4E4E4E4E4F4F4F4F4F4F4E4E4E4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F
+      4F4F4F5050505151515050505151515151515050505151515151515050504F4F
+      4F4E4E4E4C4C4C4A4A4A4848484646464646464545456A6A6A9D9D9DB4B3B4AD
+      ADAEABABABA8A7A8A5A5A5A1A1A29E9E9E9C9B9C999999959696969595969695
+      929292908F8F8D8C8C8989898787868383838080817D7D7D7B7B7B7878787575
+      757172726E6E6D6868676565656262626060606161615F5F5F5D5C5D5A5A5A58
+      58585656565353535150504F4F4F4D4D4E4B4B4B494949474746454544434342
+      4140404040403E3D3D3C3C3C3B3B3B3A3A3A3837373737373738373737373536
+      363434333332312F2F2F302F2F2E2E2E2D2D2D2C2C2C25242423242423232323
+      23232423243534353E3E3E4141414646464B4A4B2B2B2B2020201F1F1E1E1E1F
+      1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D1D1D1D1D1D1D1D1C1D1C1D1D1C1C1D1D1D
+      1D1D1C1C1C1C1C1C1C1C1C1C1C1B1B1C1C1B1B1B1B1B1B1B1B1A1B1B1B1A1B1B
+      1A1B1A1A1A1A1B1A1A1A1A1A1A19191A1A1919191919191A1A19191919191919
+      1B1B1B2323242425242626262626272524251919181918191818181818181817
+      181D1D1D1D1D1C1C1D1C1D1C1C1C1C1B1B1B1B1A1A1A191A191919191A19191A
+      1A1A1A1A19191A19191A19191919191919191918181919181919181918191818
+      1818171817171717171717161717161716161616161616161616151515151818
+      181C1C1D1D1C1C1D1C1C1D1C1C18161715161515151614151515141515141414
+      1414141413141314141313141313131313121212131312121213121212101011
+      0E0F0F0E0E0F0F0E0F0E0E0F0F0F100F0F0F141314201F202726272A2A2A2D2D
+      2D303030343434383737393A393B3B3B3939392424240B0B0B0B0B0B0A0A0A0B
+      0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A090909090A09090909090909080909
+      0909090808080808080808080809080808080808080707081212140807073030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303434343636363838383A3A3A
+      3C3C3C3030302F2F2F2F2F2F2F2F2F2F2F2F3434343939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373837373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737383838383837383837383737393838393838393838393838393939
+      3939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F3F3F
+      3F4040404141414242424343434545454646454747464847474A49494A49494C
+      4B4B4E4D4D4F4E4E5150505352525454545555555757575959595B5B5B5E5E5E
+      5F5F5F6262626464646666666969696B6B6B6D6D6D7171717373737575757878
+      787A7A7A7D7D7D8080808383838686868888888A8A8A8D8D8D8D8D8D90909093
+      93939696969898989B9B9B9E9E9EA1A1A1A4A4A4A7A7A7AAAAAAADADADB4B4B4
+      B9B9B9BCBCBCB6B6B6A2A2A29494949191918F8F8F8D8D8D8B8B8B8888888585
+      858383837F7F7F7D7D7D7A7A7A7777777474747272726F6F6F6D6D6D6B6B6B68
+      68686666666464646262626060605E5E5E5D5D5D5B5B5B5B5B5B5A5A5A595959
+      5757575656565555555555555555555555555454545454545353535353535353
+      5353535353535353535353535353535353535353535354545455555554545455
+      55555555555555555555555454545353535353535353535151514F4F4F4E4E4E
+      4C4C4C4A4A4A4848484747476C6C6C9E9E9EB4B4B4AEAEAFABABABA8A8A8A6A6
+      A6A3A3A3A0A0A09D9E9E9A9A9A9797989494959494949494949292918F8E8E8C
+      8B8B8988888686868383838080807D7D7C7B7A7A777777747474727272706F70
+      6C6C6C6565646261616060605D5D5D5E5F5F5E5C5D5B5A5B5959585656565353
+      535151514F4F4F4D4E4D4C4B4C4949494747474646464444434241414040403F
+      3E3F3E3E3D3C3B3B3B3B3B393939383838373636373737363636353535333434
+      3132312F2F2F2E2E2F2E2E2E2D2D2D2C2C2C2324232323232424232323232424
+      243233323D3D3D4141414545454A4A4A3131311F1F1F1E1F1E1E1F1F1F1E1E1E
+      1E1E1E1E1E1E1E1E1E1E1E1E1E1D1D1D1D1D1D1D1D1D1D1D1D1C1D1D1C1C1C1C
+      1C1C1C1C1C1C1B1C1C1C1C1C1C1B1C1B1C1C1C1B1B1B1B1B1B1B1B1B1B1A1B1A
+      1B1A1A1A1A1A1A1A1A1A1A1A1A1A19191A1919191A191919191819191C1D1D24
+      23242524242726262727272323231918191818191819181818181818181D1D1D
+      1C1D1C1C1C1C1C1D1C1C1C1B1A1B1A1A1A191A1A1A191A1A1919191A1A1A1A1A
+      1A1A191A1A19191A1A191A1919191A1919181918191919191819191919181818
+      18171817171817171816171717161716161616161616161616161818171C1C1C
+      1C1C1C1D1C1C1C1C1C1716171516151615151516151515151515151514141414
+      131413141413141413131312131313131213131212121212121011110F0F0F0F
+      0E0F0E0F100E0E101111111B1B1C2424242727272B2A2B2F2E2E323232373736
+      3839393B3C3C3C3C3D2827270F0E0E0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0B
+      0B0B0A0A0A0A0A0A090A090A0A0A0A0A09090A090A0909090909090909090909
+      0909080908080909080908090808080808080808141414070808303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303434343636363838383A3A3A3D3D3D2E
+      2E2E2F2F2F2F2F2F2F2F2F2F2F2F373636393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383837383737383737383737383737383737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3738383838383738383738373738373739383839383839383838383839393939
+      39393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F404040
+      4040404242424242424343434545444646454746464847474A49494B4A4A4C4B
+      4B4E4D4D4F4E4E5150505352525454545555555757575959595B5B5B5E5E5E5F
+      5F5F6262626464646666666969696B6B6B6D6D6D707070727272757575787878
+      7A7A7A7C7C7C7F7F7F8282828484848787878888888989898C8C8C8E8E8E9191
+      919494949797979A9A9A9D9D9DA0A0A0A4A4A4ABABABB1B1B1B4B4B4B6B6B6BA
+      BABABDBDBDBFBFBFB7B7B7A5A5A59595959191918E8E8E8C8C8C8A8A8A888888
+      8585858383838181817F7F7F7C7C7C7A7A7A7777777474747373737070706F6F
+      6F6C6C6C6A6A6A6969696666666565656363636262626060606060605F5F5F5E
+      5E5E5C5C5C5C5C5C5B5B5B5B5B5B5A5A5A5A5A5A5A5A5A5A5A5A595959595959
+      5959595959595959595959595A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5959595858
+      585858585858585757575656565454545353535151514F4F4F4C4C4C4A4A4A50
+      50507373739F9F9EB5B4B5B0B0B0ABABABA8A8A8A6A6A6A3A3A3A1A1A19E9E9E
+      9C9C9C9998999696969595959494949494949090908E8E8D8B8B8B8887888685
+      86828282807F7F7C7C7C797A797777777474757372736F6F6F6C6C6C68686862
+      6261605F5F5D5C5C5B5B5B5C5C5C5B5B5B5958595757565453535151514F4F4F
+      4E4E4E4C4C4C4A494A48484746464644444443434341414040403E3E3E3D3C3B
+      3B3C3B3B3A39393838383737373635363737373736353434343333333131312F
+      2F2E2E2E2E2D2D2E2C2C2C2B2A2B2525252423242323242324232324232F2F2F
+      3A3A3A3F3F3F4444444949493636361F1F1F1F1F1F1F1F1E1E1E1F1E1E1E1E1E
+      1E1D1E1E1E1E1E1D1D1E1D1D1E1D1D1D1D1D1D1D1D1D1D1D1C1D1D1C1C1C1D1C
+      1C1C1C1C1C1C1B1C1B1C1B1B1C1B1B1C1C1B1B1B1B1B1B1B1B1B1A1B1B1A1A1B
+      1A1A1A1A1A1A1A1A1A1A1A191A1A1A1A191A1A191A1919191E1E1D2423242525
+      2427262627272820202018191919191919181818181919191A1D1D1D1D1C1C1D
+      1C1D1D1D1C1D1C1B1B1B1B1A1A1A1A1A191A191919191A1A1A1A1A1A1A1A1A1A
+      1A1919191A19191A1A1919191919191918191919191919181818181818181818
+      171818171817171816161716161716161616161616161818181C1D1C1C1C1C1D
+      1C1C1D1C1C181717161616161516161515151515151515141414151414151413
+      1413131413131312131313121213121313121212121111120F0F100F0F100F0E
+      100F0F0F1514152323232626262A2A2A2F30303434343838393C3C3C3E3E3E2F
+      2E2F1212120C0C0B0C0C0C0C0B0B0B0B0B0B0B0B0B0A0A0B0A0A0A0A0A0B0B0A
+      0A0A0A0A0A0A0A0A0A09090A0A090A090A0A0A09090909090909090909090808
+      0808080808080808080808090808080814141408080830303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303131313434343636363939393B3B3B3939392E2E2E2F2F
+      2F2F2F2F2F2F2F2F2F2F37373739393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      3738383738373738373738373738373738373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3838373838373838373837373938383938383938383938383939393939393939
+      393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40404040
+      40404242424242424343424545444646454746464847474A49494B4A4A4C4B4B
+      4E4D4D504F4F5150505352525454545555555858585959595B5B5B5E5E5E5F5F
+      5F6262626464646666666868686A6A6A6D6D6D6F6F6F72727275757577777779
+      79797C7C7C7F7F7F8181818383838484848585858888888A8A8A8E8E8E909090
+      9393939797979A9A9AA2A2A2A8A8A8ABABABAEAEAEB1B1B1B4B4B4B8B8B8BABA
+      BABCBCBCBEBEBEBCBCBCB3B3B3A6A6A69898989090908E8E8E8C8C8C8A8A8A88
+      88888686868484848282827F7F7F7D7D7D7B7B7B797979787878767676747474
+      7272727070706F6F6F6D6D6D6C6C6C6A6A6A6969696868686767676565656565
+      656464646363636363636363636262626161616161616161616060606060605F
+      5F5F5F5F5F5F5F5F5F5F5F5F5F5F5E5E5E5E5E5E5D5D5D5C5C5C5B5B5B595959
+      5959595858585656565454545252525050504E4E4E606060858585AAAAAAB6B6
+      B6B0B0B0ABABABA9A9A8A6A6A6A3A4A3A1A1A19E9E9E9C9C9C999A9A97979795
+      95969696969696959293939090908D8D8C8A8A8A8786868583848281817F7F7F
+      7D7C7D7A7A7A7777777474747171726F6F6F6B6B6B696A696666665F5F5F5C5C
+      5C5B5B5A5857585959585A5A59575757545354535353504F4F4E4F4E4C4C4C4A
+      4A4A4849494746474444454343434142414040403F3E3E3C3C3C3C3C3C3A3A39
+      3938383837373636363636363635353534343634343333333232322F2F2F2E2E
+      2E2E2E2D2D2C2C2B2B2B2626262424242423242223232424232D2D2D3939393E
+      3E3E4242424646463B3B3B20201F1F1F1F1F1F1F1E1F1E1E1E1E1E1E1F1E1E1E
+      1E1E1E1E1E1D1E1E1E1D1E1D1E1D1E1D1D1D1D1D1C1D1D1D1D1C1D1C1C1D1C1C
+      1D1C1C1C1C1C1C1B1C1C1C1B1C1B1B1B1B1B1C1B1B1B1B1B1B1A1B1B1B1A1B1A
+      1A1A1A1A1A1A1A1A1A1A1A1A1A1A191A19191919202020242424252525272726
+      2828281E1E1F1919191919191918191919191A19191E1D1D1D1D1D1D1D1D1D1D
+      1C1C1C1C1C1C1B1B1A1A1A1A1A191A1A1A1A1A1A1A1A1B1B1A1A1A1A1A1A1A1A
+      1A1A191A1A19191919191A191919191919181919181918181819191818181817
+      1717171817171716161716161716161616161817181D1D1D1C1C1D1C1C1C1C1C
+      1C18171616151616161615151515151515151515151515141415131314131314
+      14141414131313131213131313121313121211110F10110F0F100F0F0F0F1011
+      151515252525292A292E2E2E3434343A3A3A3D3D3E333333191A190C0C0C0C0C
+      0C0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0B0B0B0B0B0A0A0A
+      0A0A0A0A0A090A0A09090A0A090A0A090A090909090909090909090909080809
+      0909090808080909080808091414140808083030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303232323535353737373939393B3B3B3838382E2E2E2F2F2F2F2F2F
+      2F2F2F2F2F2F3939393939393939393939393939393939393939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373738383838
+      3837383837383737383737393838393838393838383838393939393939393939
+      3A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F4040404141
+      414242424242424444434545444645454746464948484A49494B4A4A4D4C4C4E
+      4D4D504F4F5150505252525454545555555757575959595B5B5B5D5D5D5F5F5F
+      6262626363636666666868686A6A6A6D6D6D6F6F6F7171717474747676767878
+      787B7B7B7D7D7D8080808080808181818484848787878989898C8C8C92929298
+      98989E9E9EA2A2A2A5A5A5A9A9A9ADADADB0B0B0B3B3B3B6B6B6B8B8B8B8B8B8
+      B1B1B1AEAEAEB1B1B1B3B3B3B4B4B4ACACACA1A1A19494948E8E8E8C8C8C8A8A
+      8A8888888686868484848383838181817E7E7E7D7D7D7B7B7B79797978787876
+      76767474747373737272727070706F6F6F6E6E6E6C6C6C6C6C6C6B6B6B6A6A6A
+      6969696868686868686767676666666565656565656565656464646464646363
+      636262626262626161616060605F5F5F5F5F5F5D5D5D5C5C5C5B5B5B59595958
+      58585656565454545C5C5C787878999999B5B5B5B6B6B6B1B1B1ABABABA9A9A9
+      A6A6A6A3A4A4A2A2A29F9F9F9D9D9D9A9A9B9797979595959696959596959393
+      939190918F8E8F8C8C8C8989898686868484838181817F7E7E7B7B7B79787876
+      76767373737171716F6F6F6C6B6C6A69696767676464645C5C5C5A5A59585857
+      56555556565657575755555452535151504F4F4E4E4D4C4D4A4A4A4949494747
+      474646464444444241414141413F3F3F3E3E3E3C3C3C3C3C3B39393838383837
+      37373736363535353534343635353434333433333231312F2F2F2E2E2E2D2D2C
+      2C2B2B2C2B2B2727282424242423242223232424232829293838383D3D3D4141
+      414545454444441F1F1F1F201F1F1F1F1E1F1F1F1F1F1E1E1E1E1E1E1E1E1E1E
+      1E1E1E1E1D1D1E1E1D1E1D1E1D1E1D1D1D1D1D1D1C1D1C1C1C1D1C1C1D1D1C1C
+      1C1C1C1C1C1B1C1B1C1B1B1C1B1C1B1B1B1B1B1B1B1B1A1B1B1A1B1A1A1A1A1A
+      1A1A1A1A1A1A1A191A1A1A1A1A191A1A2323222424242626262627262828291B
+      1C1B1919191919191919191819191B1A1B1D1D1E1D1D1D1D1D1D1D1D1C1C1D1C
+      1C1C1B1B1A1B1A1A1B1A1A1A1B1B1B1B1A1A1A1B1A1A1A1B1A1A1A1A1A1A1A1A
+      1A1A191A191919191A1919191918181819181919191819191818181818181718
+      18171717171816161716161716161918181D1D1D1D1D1D1C1C1D1D1C1D181717
+      1616161616161516151516161615151515151514141514141514131413141413
+      13131313131313131313121313111112100F100F0F100F0F1010101118181827
+      27282B2C2C3132313838383B3B3B2021210D0D0C0C0C0C0D0C0C0C0C0C0C0B0B
+      0C0B0B0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0B0B0B0B0A0A0A0A
+      0A0B0A0A0A0A0A090A0A0A090A09090909090909090909090909090809090909
+      0909090809090808141414080808303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303232323535353737373939393C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F31
+      3131393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738383738
+      3737383737383737383737383737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373838373838
+      373838373837373837373938383938383838383838383939393939393939393A
+      3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F3F3F3F404040414141
+      4242424242424444434544444645454746464948484A49494B4A4A4D4C4C4E4D
+      4D504F4F5150505252525454545555555757575959595B5B5B5D5D5D5F5F5F61
+      61616363636565656767676A6A6A6C6C6C6E6E6E717171737373757575787878
+      7A7A7A7C7C7C7C7C7C7D7D7D8080808282828585858C8C8D9595959999999C9C
+      9CA0A0A0A4A4A4A8A8A8ABABABAEAEAEB1B1B1B2B2B2AAAAAAA5A5A5A7A7A7A9
+      A9A9ACACACADADADB0B0B0B1B1B1B3B3B3B3B3B3ABABABA0A0A09292928B8B8B
+      8A8A8A8888888686868585858383838181817F7F7F7E7E7E7C7C7C7B7B7B7979
+      797777777676767474747272727272727070706F6F6F6E6E6E6D6D6D6C6C6C6B
+      6B6B6A6A6A6A6A6A696969686868686868676767676767666666656565646464
+      6363636363636262626060605F5F5F5F5F5F5D5D5D5B5B5B5959596262627C7C
+      7C979797B1B1B1B6B7B7B5B5B5B1B1B1ABAAABA9A9A9A6A7A6A4A5A4A1A1A19F
+      9F9E9D9D9D9B9B9B9898989595959696969796969494949192928F8F8F8D8D8D
+      8B8A8B8787878585858282827F807F7D7D7D7A7A7A7877787675767373737070
+      706E6E6E6B6B6B6968696667666363646161615A5A5A57575756565653525354
+      54545555555353525151504F4F4F4D4C4D4B4B4B4A494A474847464646444444
+      414242414141403F3F3F3E3E3C3C3C3C3C3B3939393A39393837373837363636
+      353534343434343534353434333433323232322F2E2E2D2D2D2C2B2B2C2B2B2C
+      2B2B2928282424242323232323222323232323233737383A3A3A3F3F3F414141
+      454545262727201F201F1F1F1F1F1F1F1E1F1E1F1F1E1F1E1E1E1F1E1E1E1E1E
+      1E1D1E1D1D1E1E1D1E1D1E1D1E1D1D1D1D1D1D1D1D1D1C1D1D1D1C1D1C1C1C1C
+      1C1C1C1C1C1B1C1B1C1C1B1B1C1B1C1B1C1B1B1B1B1A1B1B1A1B1A1A1A1A1A1A
+      1A1A1A1A1A1A191A1A1C1C1C2323242425242626262827272728281919191A19
+      191919191919191919191C1B1C1E1D1D1D1E1D1D1D1D1D1D1D1D1C1C1C1C1B1B
+      1A1A1A1A1B1A1A1A1B1B1B1B1B1B1B1B1A1A1A1B1A1B1A1A1B1A1A1A1A1A191A
+      1A19191919191A19191919191919181918181818191918181918181818171818
+      171817171716171717161A1A191D1C1D1D1D1C1C1C1D1C1C1C17161616161716
+      1616161615161615151515161515151414151414151413141313141313141313
+      1313131313131313131112121010110F0F100F0F1010101117181829292A2E2E
+      2F3434353B3B3B3333330D0C0D0C0C0D0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0B0C0C0C0B0C0B0B0B0B0B0A0B0B0B0B0B0B0A0B0A0B0B0A0A0A0A0A0A
+      0A0A0A090A0A0A0A0A0A0A0A090A090A09090A09090909090809090909080808
+      0808080916141608090830303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030333333
+      3535353737373A3A3A3C3C3C3333332F2F2F2F2F2F2F2F2F2F2F2F3232323939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373838373837373837
+      3738373738373738373737373737373737373737373737373737373736353532
+      3232343434363636373737373737373737373737373737383837383837383837
+      3837373837373938383938383938383838383939393939393939393A3A3A3A3A
+      3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F3F3F3F40404041414142
+      42424242424444434544444645454746464948484A49494B4A4A4D4C4C4E4D4D
+      504F4F5050505252525454545555555757575959595B5B5B5D5D5D5F5F5F6161
+      616262626565656767676A6A6A6C6C6C6D6D6D70707072727275757577777779
+      79797878787A7A7A7D7D7D7F7F7F8282828A8A8A9292929696969B9B9B9F9F9F
+      A3A3A3A7A7A7AAAAAAAAAAAAA4A4A49D9D9D9E9E9EA0A0A0A2A2A2A5A5A5A7A7
+      A7A9A9A9AAAAAAACACACAEAEAEB0B0B0B1B1B1B4B4B4B7B7B7AFAFAFA3A3A397
+      97978C8C8C8888888686868585858484848282828181817F7F7F7D7D7D7C7C7C
+      7979797878787676767575757474747272727171717171717070706E6E6E6E6E
+      6E6D6D6D6C6C6C6C6C6C6B6B6B6A6A6A69696969696968686867676765656564
+      64646363636161616060606464647474748A8A8A9F9F9FB3B3B3B6B6B6B5B5B5
+      B4B4B4B0B0B0AAAAAAA7A7A7A7A7A6A4A5A4A1A1A2A09F9F9C9C9C9B9B9B9898
+      989695969596969797979595959393939090908E8E8E8B8B8B89898986878784
+      84848182817F7F7E7D7D7C7A7A7A787777767575727272706F6F6D6D6D6B6B6B
+      6969696667676364646162625F5F5F5858575555555353535151515152515353
+      535151514F4F4F4E4E4D4C4C4B4B4A4A48474846464644454442424241414140
+      3F403E3F3E3C3C3C3D3C3C3A3B3A3A3A3A383837373736363635353534343333
+      3333333434343434343334333231312E2E2D2D2D2D2C2C2C2B2C2C2B2C2B2A2A
+      2A2424242323232323232221222323233030303A393A3D3D3D40404043434336
+      36361F20201F1F201F1F1F1F1F1E1E1F1F1E1F1E1F1F1F1E1F1E1E1E1E1E1E1E
+      1E1E1E1D1D1E1E1D1E1E1D1E1D1D1D1C1D1D1D1C1C1C1D1C1C1D1C1C1C1C1C1C
+      1C1C1C1C1C1B1C1B1B1B1C1B1C1B1B1C1B1B1B1B1A1B1B1B1A1B1B1A1A1B1A1A
+      1B1A1A1A1A1F1F1F2424232526252827282829282525251A19191A191A191919
+      1919191919191D1D1D1E1E1E1D1E1D1D1D1E1D1D1D1D1C1C1C1B1B1C1A1B1B1A
+      1B1B1A1A1C1B1B1A1B1B1B1B1B1B1B1B1B1B1A1A1A1B1A1A1A1A1A1A1A1A191A
+      1A1A191919191919191819191819191919181818181818181818181817181817
+      1817171717171A1A191E1E1D1D1D1D1C1D1D1D1D1C1716161616161616161616
+      1616151616151515151515151515141415131415141314141414141413131313
+      1313121213101111101010100F100F0F101010121B1C1C2B2A2B323131363636
+      3E3F3E2E2E2E0D0D0D0D0D0D0D0C0D0D0C0D0D0C0C0C0D0C0C0C0C0C0B0C0B0C
+      0C0C0C0C0B0B0C0B0B0B0B0B0B0A0B0B0A0B0B0B0B0B0B0B0B0B0A0A0A0A0A0A
+      0A0A0A0A0A0A0A0A0A0A0909090A090909090909090909080909090908080809
+      1416140808083030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303034343436363638
+      38383A3A3A3C3C3C3131312F2F2F2F2F2F2F2F2F2F2F2F343434393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383837383837383737383737383737
+      3837373837373737373737373737373737373737373737363030302F2F2F2F2F
+      2F2F2F2F2F2F2F31313133333334343435353537373738383738383738373738
+      37373837373938383938383838383838383939393939393939393A3A3A3B3B3B
+      3B3B3B3B3B3B3B3B3B3D3D3D3E3E3E3E3E3E3F3F3F3F3F3F4040404141414242
+      424343424443434544444645454746464948484A49494C4B4B4D4C4C4E4D4D4F
+      4F4F5050505252525454545555555757575959595B5B5B5C5C5C5F5F5F606060
+      6262626565656666666969696B6B6B6D6D6D6F6F6F7171717474747575757474
+      747676767979797B7B7B7E7E7E8A8A8A9090909494949999999E9E9EA2A2A2A3
+      A3A39C9C9C9494949595959797979999999B9B9B9D9D9DA0A0A0A1A1A1A4A4A4
+      A5A5A5A7A7A7A9A9A9ABABABADADADAEAEAEB0B0B0B2B2B2B6B6B6B9B9B9B6B6
+      B6ADADADA4A4A49A999A8F8F8F8787878484848181818080807F7F7F7D7D7D7C
+      7C7C7A7A7A7878787777777676767474747373737373737171717070706F6F6F
+      6F6F6F6E6E6E6D6D6D6C6C6C6B6B6B6969696969696868686B6B6B7474748383
+      83909090A1A1A1B0B0B0B7B7B7B6B6B6B5B5B5B4B4B4B2B2B2AFAFAFAAAAAAA6
+      A6A6A5A5A5A3A3A3A2A2A19F9E9F9C9C9D9A9A9A989898969696959595979796
+      9695959393939190918F8F8F8C8C8C8A8A8A8888888585858383838080807E7E
+      7D7C7B7B7979787676767473737272726F6F6F6D6C6D6B6B6A68696866666663
+      63636262625F5F5F5C5D5C5757575252525151514F4F4E4E4E4E52515250504F
+      4E4E4E4B4B4A4B4B4A4949484646464645454342424141424040403F3F3F3D3D
+      3D3C3C3C3B3C3B3B3A3A39383938383836363636363434343434343333323234
+      34343334333433343233322F2E2F2D2D2C2C2C2C2B2C2C2A2B2B2B2B2B232324
+      2323232222222121222323232B2B2C383939393A393D3D3D4040404040402221
+      22201F201F1F201F1F1F1F1F1F1E1E1F1F1E1F1E1F1E1E1E1E1E1E1F1E1E1E1D
+      1E1E1E1E1E1D1D1E1D1D1E1D1D1D1D1C1D1C1D1D1C1C1D1D1C1C1C1C1C1C1C1C
+      1C1C1C1C1B1C1B1C1B1B1B1B1C1C1B1B1B1B1B1B1B1B1A1A1B1A1B1B1B1A1B1B
+      1B2424242424242626262728272929291F1F1F1A191A1A191A19191A19191919
+      19191E1E1E1E1E1E1D1E1E1D1E1D1D1E1D1C1C1C1C1C1C1C1B1B1C1A1B1B1B1B
+      1B1B1B1C1B1C1B1B1B1A1B1B1B1B1A1A1B1B1A1B1A1A1A1A1A1A1A1A19191919
+      1A1919191A191919191919191918191919181818181818181818181717181718
+      17171C1C1B1D1D1D1D1D1D1D1D1D1C1B1C171717161617161616161716151616
+      1515151515151515151514141514141514141414141414141314141313131313
+      13111111101011100F110F10111011111D1D1D2C2C2B3231313938393F3F3F28
+      28290D0D0D0D0D0D0D0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0A0A0A0A0A0A0B0A0A0A0A0A
+      0A0A0A0A090A0A09090A090A0A090909090A0909090908090909090916141409
+      0808303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303434343636363838383A3A
+      3A3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F35353539393939393939393939
+      3939393939393939393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383738383738383738373738373738373738
+      37373837373737373737373737373737373030302F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313232323434343434343635
+      353635353838383838383838383838383939393939393939393A3A3A3B3B3B3B
+      3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F404040404040424241424242
+      4342424443434544444645454746464948484A49494B4A4A4D4C4C4E4D4D4F4F
+      4F5050505252525454545454545757575858585A5A5A5C5C5C5E5E5E60606062
+      62626464646666666868686A6A6A6C6C6C6E6E6E717171737373717171737373
+      7575757878787B7B7B8787878E8E8E9393939797979C9C9C9595958C8C8C8C8C
+      8C8F8F8F9090909393939494949696969999999B9B9B9D9D9D9E9E9EA1A1A1A2
+      A2A2A4A4A4A5A5A5A7A7A7A9A9A9AAAAAAACACACADADADAFAFAFB4B4B4B7B7B7
+      B8B8B8B8B8B8B9B9B9B6B6B6AFAFAEA7A7A7A0A0A09A9A9A9393938C8C8C8686
+      868181817C7C7C7B7B7B7A7A7A7878787777777676767676767474747979797D
+      7D7D828282888888919191989898A0A0A0A8A8A8AEADAEB5B5B5B7B7B7B6B6B6
+      B4B5B4B4B4B4B2B2B2B1B1B1B0B0B0AEADAEA9A9A9A5A4A4A4A4A3A2A2A2A09F
+      A09E9D9E9C9C9B9A9A9A9899989595969494959696969695959493939292928F
+      8F8F8C8C8C8A8A8A8888888585868484848181817F7F7F7D7D7D7A7A7B797878
+      7676757474737271716F6E6F6D6C6C6A6A6A6767676565656363636161615F5F
+      5F5D5D5D5B5A5B5454545151504F4E4E4D4D4D4C4C4C50504F4E4E4F4B4B4B4B
+      4B4B4949484746464645444343424341424140404040403D3D3D3D3D3D3C3C3C
+      3A3B3A3939393938383838393636363435343535343433333432323533333434
+      343333333232312E2E2E2D2C2D2D2C2D2B2B2B2B2B2B2B2B2A27272622222222
+      22222222222323232525253534343737373B3B3B3E3E3E40404032323220201F
+      1F1F2020201F201F1F1F1F1F1F1E1F1E1E1F1E1E1E1E1E1F1E1E1E1E1E1E1E1E
+      1E1D1D1D1E1E1D1D1D1E1D1D1D1D1D1D1D1D1D1D1C1C1C1D1D1C1C1C1C1C1C1C
+      1C1C1C1B1B1B1C1C1B1B1B1B1B1B1B1B1B1B1B1B1B1A1B1B1B1A1F1F1F242425
+      2525252627272828282828281A191A1A191A1A19191A191A1A19191C1B1C1E1E
+      1E1E1E1E1D1D1E1E1E1D1E1E1D1C1D1C1C1C1C1C1C1C1B1B1B1B1C1B1C1B1B1B
+      1B1B1B1B1C1B1B1B1A1B1B1B1B1B1B1A1B1A1A1A1A1A1A1A1A191A1A191A1919
+      19191A1919191919191919191819191918181819181818181818171818171B1B
+      1B1D1D1C1D1D1C1D1D1D1B1B1B17161616161716171616161616161616161616
+      1515151515161414151414151414151414141314141413131313131313121211
+      0F1010100F11100F111111121E1E1E2C2C2C3232323938393F3F3F2827280D0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0C
+      0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0A0B0B0A0A0A0A0A0A0A0A0A
+      0A0A0A0A0A0A0A0A090A090909090A0909090909090909081616140809093030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303131313434343636363939393B3B3B3A3A3A
+      2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3737363939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838373838373837373837373837373837373837
+      373737373737373737373131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303030303030303030303030303030
+      3131313131313131313232323434343434343434343939393A3A3A3B3B3B3B3B
+      3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40404040404042424142424243
+      42424544444544444645454746464948484A49494B4A4A4D4C4C4D4D4D4E4E4E
+      5050505252525353535454545757575858585A5A5A5B5B5B5E5E5E5F5F5F6262
+      626363636565656767676A6A6A6B6B6B6D6D6D6E6E6E6D6D6D70707071717174
+      74747777778585858C8C8C9090909696969A9A9A8888888585858888888A8A8A
+      8C8C8C8E8E8E9090909292929494949696969898989999999B9B9B9D9D9D9F9F
+      9FA1A1A1A2A2A2A4A4A4A5A5A5A7A7A7A8A8A8A9A9A9ABABABADADADB1B1B1B4
+      B4B4B5B5B5B6B6B6B6B6B6B7B7B7B8B8B8B8B8B8BAB9BAB9B9BABAB9B9B7B7B7
+      B5B5B5B5B5B5B5B5B5B4B5B5B5B5B5B5B5B5B6B6B6BBBBBBBDBDBEBFBFBEBFBF
+      BFC0C0C0C0C0C0BFBFBFB7B8B8B0B0B0B0B0B0B1B1B1B1B1B2B1B1B1AFAFAFAF
+      AEAEADADADACACACA8A7A8A3A2A3A2A2A2A0A0A09E9E9E9D9D9D9B9B9B999999
+      969797959594949494959495959695939393929191908F8F8D8D8D8A8A8A8888
+      888786878484848383838080807E7E7E7C7C7C79797977777675757473727270
+      706F6E6E6E6C6B6B6A69696767676665646362636061605F5F5F5C5C5C5B5A5B
+      5757585353534E4E4F4D4D4D4A4A4A4848484F4F4E4B4C4B4A4A4B49494A4748
+      47474645444443424341424140413F3F3E3D3D3D3E3D3C3C3C3B3B3B3A3A3A39
+      3939393938363637353535353535343333333433323231343333333333323232
+      313131312F302D2D2C2D2C2D2B2B2C2B2B2B2B2B2A2829292222222222222222
+      222222222323222C2C2D3737363838383B3B3B3D3D3D3E3E3E262625201F201F
+      1F1F201F1F1F1F1F1F1F1E1E1F1F1E1E1F1F1F1E1E1E1E1E1E1E1E1E1E1D1E1E
+      1E1E1E1D1E1E1D1D1E1D1D1D1D1D1D1D1D1C1C1C1C1D1C1D1C1C1C1C1C1C1B1C
+      1C1B1C1C1B1C1C1B1C1C1C1B1B1A1B1B1B1A1A1C1C1D24242425252526262628
+      27282929292122211A191A1A191B1A191A1A191A19191A1C1C1C1F1E1E1E1E1E
+      1E1E1E1D1E1E1E1D1E1C1C1D1C1C1C1C1D1C1C1C1C1C1B1C1C1B1C1C1B1C1B1B
+      1B1B1B1B1B1B1B1B1B1B1A1B1B1A1A1B1A1B1A1A191A1A1A1A1A1919191A1A1A
+      1A191919191919191919191919191819191818191818181818171D1D1D1D1D1D
+      1E1E1C1D1D1C1B1A1A1617171716171617171716171616161616161616161515
+      151615151514151514141514141413141414141413131313131010111010110F
+      10100F10101111132323232D2D2C3232323939393F3E3F1E1E1E0D0E0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0C0C0D0D0C0D0C0D0C0C0C0C0B0C0C0C0B0B0C0B
+      0C0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0A0B0B0A0A0A0A0A0A0A0B0A0A0A0A0A
+      0A0A0A0A090A0A0A090909090909090909080909161616080909303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303232323434343737373939393B3B3B3A3A3A2E2E2E2F
+      2F2F2F2F2F2F2F2F2F2F2F393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737383737
+      3737373232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30303030303030303030303030303031
+      31313131313131313131313232323232323636363A3A3A3A3A3A3B3B3B3B3B3B
+      3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40404040403F4242414242424342
+      424544444544444645454746464948484A49494B4A4A4B4B4B4D4D4D4E4E4E50
+      50505151515353535454545656565858585959595B5B5B5D5D5D5F5F5F606060
+      6262626565656666666969696A6A6A6A6A6A6A6A6A6C6C6C6F6F6F7070707373
+      738484848888888E8E8E9494949999998080808282828484848585858888888A
+      8A8A8C8C8C8D8D8D8F8F8F9191919494949494949696969999999A9A9A9C9C9C
+      9D9D9D9F9F9FA0A0A0A2A2A2A3A3A3A5A5A5A5A5A5A7A7A7A8A8A8A9A9A9ADAD
+      ADB1B1B1B2B2B2B2B2B2B2B2B2B3B3B3B4B4B4B4B4B4B5B5B5B5B5B5B5B5B5B1
+      B1B2B0B0B0B0B0B0B1B1B0B2B2B2B6B7B7B9B9B9BBBABABCBCBBBCBDBCBEBEBE
+      BDBDBDB4B4B4ABABABABABABAAAAAAAAABABABACABABABABAAAAAAA9A9A9A8A8
+      A8A1A1A1A0A0A09D9E9E9D9D9D9B9B9B99999A98989897969694949492929294
+      9494949494939392919190908F8E8D8D8D8B8B8A898888878787858585838382
+      8080817E7E7F7C7C7C79797978787875757574747472727270706F6D6E6D6A6A
+      6A69686867676765636463626260605F5D5E5D5B5B5B5A5A5A58585856565651
+      52524D4C4D4B4B4A4848494747474A4A4A4B4B4B4A4A49474747464747444444
+      4343424242414141403F3D3D3F3D3E3D3C3D3B3B3C3A3A3A3939393838393838
+      3736363536353534343434343433333232333231313233323332323231313130
+      31312D2E2D2C2C2B2C2C2C2B2B2B2B2B2B2A2A29242424232223232223222223
+      222222242424343434373737393A3A3B3B3C3C3C3C373737202020201F201F20
+      1F1F1F1F1F1F1F1F1F1F1F1E1F1E1F1E1E1E1E1F1E1F1E1E1E1E1E1E1E1E1D1E
+      1D1E1E1D1E1D1D1D1D1D1D1D1D1D1C1C1D1C1C1D1C1C1C1C1C1C1C1C1C1C1C1C
+      1C1C1C1C1C1C1B1B1C1B1B1B1C1C1C2122222525242626262727272929292929
+      291A1A1B1A1A1B1A191A1A191A1A191A191A191F1E1F1F1E1F1F1E1E1E1E1E1E
+      1D1E1D1E1D1D1C1D1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1B1B
+      1B1B1B1B1A1B1B1A1B1A1B1A1A1A1A1A1A1A1A1A1A1A1A19191A1A191A1A191A
+      191919191919191919191919181918181819181818181D1D1D1E1C1D1D1C1C1D
+      1E1C1A1A1A171717171717171717161716171616161616161616161515161515
+      1514151614141515141414141413141314141314131011111010111010111010
+      111111122323242C2C2C3232323737373C3C3C1A1A190D0E0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0C0D0C0C0D0D0C0D0C0C0C0C0D0C0C0B0B0C0C0C0B0B0C0C0B0C0C
+      0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A0A0A0B0A0A0A090A
+      0A0A090A090A090A090909090A09090916161609080830303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303232323535353737373939393C3C3C3635362F2F2F2F2F2F2F2F
+      2F2F2F2F30303039393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      383838383838373838373838373837373837373837373837373837373332332F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3030303030303030303030303030303030303131
+      313131313131313131313232323232323938383A3A3A3B3B3B3B3B3B3B3B3B3B
+      3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40403F40403F424241424242434242
+      4544444544444645454746464948484A49494B4A4A4B4B4B4D4D4D4E4E4E5050
+      505151515252525454545656565858585959595B5B5B5C5C5C5E5E5E60606062
+      62626464646666666767676868686868686969696B6B6B6D6D6D717171828282
+      8686868C8C8C9191919595957C7C7C7E7E7E8080808181818484848585858888
+      888989898B8B8B8C8C8C8F8F8F9090909292929494949595959797979999999A
+      9A9A9B9B9B9D9D9D9D9D9D9F9F9FA0A0A0A1A1A1A2A2A2A4A4A4A5A5A5A6A6A6
+      AAAAAAADADADAEAEAEAFAFAFB0B0B0B0B0B0B0B0B0B0B1B0B0B0B0B1B0B0B1B1
+      B1ADADAEADADADB3B3B3B4B4B4B6B6B6B8B8B8B8B8B8BBBABBBBBBBBAEAFAEA7
+      A7A7A6A6A6A5A5A5A5A5A5A5A5A5A6A6A6A5A5A5A4A4A4A4A4A4A2A2A29B9B9B
+      9B9B9B9999999898989796969495949393939191919292929393939393939090
+      908F8E8E8D8D8D8B8B8B8989888787878584848383838181817F7E7F7C7C7C7B
+      7A7B7979797776777575757272727070706E6E6E6C6D6C6A6B6A696867666666
+      646363626262605F5F5E5D5E5B5B5B595A595757575656565354545252514A4B
+      4B4848484848474546454848474A4A4947474746464745444544444342424241
+      41403F3E3E3F3F3D3E3D3D3C3C3B3B3A3A393939393939383738363536363635
+      3535343434343333333333323232313132313233323131313131313131312E2D
+      2E2C2C2C2C2C2C2B2B2B2A2A2A2A2A2A27262723232222222223222321212122
+      22222C2D2D3534353738373838393939393A3A3A303030201F1F1F201F1F201F
+      1F1F1F1F1F1F1E1F1F1F1F1E1E1E1E1F1E1F1E1E1E1E1E1E1E1E1E1E1D1E1E1E
+      1E1D1D1D1D1D1D1D1D1D1D1C1D1D1D1D1D1D1D1D1C1D1C1C1D1C1B1C1B1C1C1B
+      1C1C1B1B1C1B1B1B2122212524252625252727272828282A2A2A2222221A1A1B
+      1A191B1A191B1A191A1A191A1C1C1C1F1E1E1E1F1F1E1E1F1F1E1E1E1E1E1D1D
+      1D1C1D1D1C1D1D1D1C1C1C1C1C1D1C1C1D1B1C1C1B1C1C1C1C1C1B1B1B1B1B1B
+      1B1B1B1B1A1A1A1B1B1A1B1A1A1B1A1A1A1A1A1A191A1A1A191A19191A191919
+      1919191919181919191919181919191A1A191E1D1D1D1C1D1D1C1C1E1C1C1818
+      1817181717171716171717171716171717161616161616161616151516151515
+      1414151415151414141414141314131313111111101011101011101011121213
+      2728272B2B2B3030303434343939391414140E0E0D0E0D0D0E0D0E0E0D0D0D0D
+      0D0C0C0D0D0D0D0D0D0D0C0C0C0D0D0C0C0C0C0C0C0C0B0C0C0B0C0C0C0C0B0C
+      0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0B0A0A0A0A0A0A0A0A0A0A0A090A09
+      0A0A0A0A0A090909090A090A1616160909093030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303333333535353737373A3A3A3C3C3C3434342F2F2F2F2F2F2F2F2F2F2F2F
+      3131313939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373434342F2F2F2F2F2F2F2F
+      2F2F2F2F3030303030303333333D3D3D39383935353532323230303030303030
+      30303030302F2F2F2F2F2F303030303030303030303030303030313131313131
+      3131313131313131313232323635353939393A3A3A3B3B3B3B3B3B3B3B3B3B3B
+      3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40403F40403F42414142424243424244
+      43434544444645454746464948484A49494A4A4A4B4B4B4D4D4D4D4D4D505050
+      5050505252525454545555555757575959595A5A5A5B5B5B5E5E5E5F5F5F6161
+      616262626565656464646464646666666868686B6B6B7171717F7F7F8484848A
+      8A8A8F8F8F8E8E8E7878787A7A7A7C7C7C7E7E7E808080818181838383858585
+      8787878888888A8A8A8C8C8C8D8D8D8F8F8F9090909292929494949595959696
+      969898989999999A9A9A9B9B9B9D9D9D9D9D9D9E9E9EA0A0A0A0A0A0A1A1A1A4
+      A4A4A7A7A7AAAAAAAAAAAAABABABABABABABABABABABABACACACADADADADADAD
+      AEAEAEB0B0B0B2B2B2B3B3B3B5B5B5B6B6B6B8B8B8AAAAABA2A2A2A1A1A1A1A1
+      A1A0A0A09F9F9FA0A09FA0A1A0A0A0A0A0A0A09FA0A09E9F9F96969696969694
+      9494939393929292909090908F909292929191919090908E8E8E8C8C8C8B8B8B
+      8989898786868585858383838281827F7F7F7E7D7D7B7B7A7979797878787575
+      757473737171716F6F6F6E6E6E6B6B6B6A6A696868676565656363636160605F
+      5F5F5E5C5C5C5B5B595959575757565657535353525252505050484848474746
+      4545464343434545454747474747474545454344434242434242413F3F3F3E3E
+      3E3E3E3C3D3D3C3C3B3B3A393A3A393938393836363636363634353534343433
+      343333333332323332313231313032313132323131313130303130302F2C2B2B
+      2C2C2C2B2B2C2B2A2B2A2A2A2A2A2A2322232223222122212121222223222222
+      223031313434343737373737383838383838382E2E2E201F201F20201F20201F
+      1F1F1F1F1F1F1E1F1F1F1F1E1E1E1E1E1E1F1F1E1E1E1E1E1E1E1E1E1D1D1D1E
+      1E1D1E1D1D1D1D1D1D1D1D1D1C1C1D1C1D1C1C1C1C1C1C1C1C1C1B1C1C1C1C1B
+      1B2121222526252627262727272929282A29292828291A1A1C1A1A1B1A191B1A
+      1A1B1A1A1A1A1B1B1F1E1E1F1F1F1E1F1E1E1E1E1E1E1F1E1F1F1D1D1D1D1D1D
+      1C1D1D1D1D1C1C1C1D1D1C1D1D1C1C1C1C1C1C1C1C1C1B1B1B1B1B1B1B1B1B1B
+      1B1B1A1B1B1B1A1B1A1A1B1B1A1B1A1A1A1A1A1A1A191A1A191A1A1919191919
+      19191919191919191919181B1B1A1D1E1D1D1D1D1D1D1D1D1D1D181718171717
+      1717181717171717171717161617171616161616161615151515151614151515
+      141514141414141414141313131111111011111011111010111212132626262B
+      2B2A2D2D2E3232323636370E0E0E0D0E0E0E0E0E0E0D0E0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0C0D0C0D0C0D0C0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0C0B0C
+      0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0B0A0B0A0A0A0A0A0A0A0A0A090A0A
+      0A0A0A0A0A0A0A0A191616090909303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303333
+      333636363838383A3A3A3C3C3C3232322F2F2F2F2F2F2F2F2F2F2F2F34343439
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      38373838373838373837373837373434342F2F2F2F2F2F2F2F2F2F2F2F303030
+      3030303434344141414343434343434343434343434343433E3E3E3D3D3D3A39
+      3A36363634343432323231313131313130303030303030303031313131313131
+      31313131313131313232323938383939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B
+      3C3C3C3D3D3D3E3E3E3F3F3F3F3F3E40403F403F3F4241414242424342424443
+      434544444645454746464847474A49494949494B4B4B4D4D4D4D4D4D4F4F4F50
+      50505252525454545454545757575858585959595B5B5B5D5D5D5F5F5F606060
+      6262626262626161616363636565656767676E6E6E7D7D7D8282828787878C8C
+      8C8888887474747676767878787979797C7C7C7D7D7D7F7F7F80808083838384
+      84848585858888888989898A8A8A8C8C8C8D8D8D8F8F8F909090919191939393
+      9494949595959696969898989999999999999B9B9B9A9A9A9B9A9B9C9C9C9C9C
+      9C9E9E9EA2A2A2A5A5A5A6A6A6A6A6A6A6A6A6A6A6A6A6A7A6A9A9A9ABABABAD
+      ADADAFAFAFB1B1B1B3B3B3B2B2B2A2A3A39D9D9D9C9C9C9C9C9C9C9C9C9B9B9B
+      9A9A9A9A9A9A9C9C9B9B9B9B9B9B9C9A9A9B9A9A9B9192919191918F8F8F8E8E
+      8E8D8D8D8F8F8F9090918F8E8F8E8E8D8C8C8C89898989898987878784858482
+      83828181817F7F7F7D7D7C7B7B7B7A7979787878757575737374717172707171
+      6E6E6E6C6D6D6A6A6A6969696666666565646363626161615F5E5F5D5C5C5B5B
+      5B5A59595757575655565354535251525050504F4F4F48474844444444444443
+      43424141414746464545454343434343434142413F3F3F3E3F3E3F3F3E3D3E3C
+      3C3C3B3A3A393A3A3A3938383838373636373535353434343434343334343333
+      33323232313131303030302F303232313130303030303030302E2D2E2C2C2C2B
+      2B2B2A2A2B2A2A2B2A2B2B272627222222212221212222212121222222252525
+      3434343534353536363737363737373636362C2C2C201F201F1F1F1F20201F1F
+      1F1F1F1F1E1E1F1F1E1E1E1E1E1F1E1E1E1E1E1E1E1E1E1D1E1E1E1D1E1D1E1E
+      1D1E1D1E1D1C1D1D1D1D1D1D1D1C1C1C1D1C1C1C1C1C1C1C1C1C212222262525
+      2727272727272929292A292A2A2A291D1E1E1A1B1B1A1A1B1A1A1B1A1A1B1A1A
+      1A1D1C1D1F20201F1F1F1F1F1F1F1F1F1E1F1E1E1E1E1D1D1E1D1D1D1D1D1D1D
+      1D1D1D1C1D1E1D1C1D1C1C1D1C1C1D1B1B1C1B1C1C1B1B1B1B1C1B1B1B1B1B1B
+      1B1B1B1A1A1B1A1B1A1B1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A191A191A19
+      191918191819181C1D1C1E1D1D1D1D1D1D1D1D1C1C1C18171818171718181817
+      1717171717171717161716161616171616161516161515151515161515151415
+      1514141414141313131111111111111010111110111716162525252828282C2C
+      2B2F2F2E3232321515150E0E0E0E0E0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0C0D0D0C0C0C0D0D0D0C0D0C0C0C0C0C0C0B0C0B0B0C0B0B0B0B0B0C
+      0B0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A090A090A09090A
+      0A090A0A1916190A0A0930303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030343434363636
+      3838383A3A3A3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3535353939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      373838373837373636362F2F2F2F2F2F2F2F2F2F2F2F30303031313134343443
+      4343454545464646464646464646454545454545444444444444434343434343
+      4343434242424242424141413E3E3E3D3D3D3D3D3D3535353131313131313131
+      313131313232323535353939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C
+      3C3C3D3D3D3E3E3E3F3F3E3F3F3E40403F403F3F424141424242434242444343
+      4544444645454746464847474949494949494B4B4B4C4C4C4D4D4D4F4F4F5050
+      505151515353535454545656565858585959595B5B5B5C5C5C5E5E5E5F5F5F5D
+      5D5D5E5E5E6060606262626464646D6D6D7B7B7B7F7F7F8484848A8A8A848484
+      7070707272727474747676767878787979797C7C7C7C7C7C7E7E7E8080808181
+      818383838484848686868888888989898A8A8A8C8C8C8C8C8C8E8E8E8F8F8F90
+      9090919191929292939393939393949494959595969696979797979898979898
+      9898989B9B9B9E9E9EA1A1A2A1A1A2A2A2A2A3A3A3A5A5A5A7A7A7A9A9A9ACAC
+      ACAEAEAEADADAD9D9D9D99999999999998989898989897979796969695959594
+      94949796979797979697979695969696968D8D8D8C8C8C8B8A8A898989888888
+      8A8A8A8C8C8C8B8A8B89898988888785858585858582828281818180807F7E7D
+      7D7C7B7B7B79797878787676757474747272727171706E6E6E6D6D6D6C6C6B69
+      696A676867666666646464626261605F5F5F5F5D5D5B5B5B5A5A595858575757
+      5555555353535151524F4F4F4F4E4E4D4C4C4948484443444141424141403F3F
+      3F45444444444343444341424240403F3E3F3E3F3E3E3D3D3D3C3C3C3A3A3A3A
+      3A3A3A3938393738373637363635343435343434343434333433333333313231
+      3031303030303030303132323230303130303030302F2F2F2B2B2B2B2B2A2B2A
+      2A2A2B2A2A2A2A2A2A2A23232322222221222221212121222122222229282934
+      33343534353534343434353435343333332D2D2D2221211F1F1F1F1F1F1F2020
+      1F1F1F1F1F1E1E1F1F1F1E1F1E1E1E1E1E1E1E1E1E1D1E1D1E1E1E1D1E1D1E1E
+      1D1D1D1D1D1D1D1D1D1C1D1C1C1C1C1D1D1E1D24242426262626272628282829
+      29292A2A2A2B2B2B2121211A1B1B1A1B1C1B1B1B1A1A1B1A1A1A1A1B1A201E1F
+      1F20201F201F1F1F201F1F1F1F1F1E1F1D1E1D1D1D1E1D1D1D1D1D1C1D1D1D1E
+      1E1E1D1D1E1D1D1D1C1C1D1C1C1D1C1C1C1B1C1C1B1B1B1C1B1B1B1B1B1B1B1B
+      1B1B1B1B1A1B1B1A1A1A1A1A1A1A1A1A1A19191A1A1A1A19191A191919191919
+      1918191E1D1D1D1E1E1D1E1D1D1E1D1C1B1B1818181718181818181718171717
+      1717171717161716171717161616161616151516151516151515141415141514
+      14141212121111111011111111111011111818182525252626262929282A2B2A
+      2C2C2C2D2E2D1919190E0E0E0E0E0E0D0D0E0E0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0C0D0C0C0C0C0C0D0C0C0C0C0C0B0B0B0B0B0B0C0C0C0B0B0C0B0B
+      0B0C0B0B0B0B0B0B0A0B0B0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A
+      1619160A09093030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303131313434343636363838383B
+      3B3B3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F373737393939393939393939
+      3939393939393939393939393939393939393939393939393939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3636362F2F302F2F2F2F2F2F2F2F2F3030303131313333334242424747474848
+      484A4A4A4A4A4A4A4A4A49494947474747474745454545454544444444444443
+      4343424242424242414141414141414141404040313131313131313131313131
+      3131313232323938383939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C
+      3C3D3D3D3E3E3E3E3E3D3F3F3E403F3F403F3F42414142424242424244434345
+      44444645454746464747474949494949494B4B4B4C4C4C4D4D4D4E4E4E505050
+      5151515252525454545555555757575858585A5A5A5B5B5B5D5D5D5B5B5B5B5B
+      5B5D5D5D5F5F5F6161616D6C6D7878787D7D7D8282828787877B7B7B6D6D6D6F
+      6F6F7070707272727474747575757777777979797A7A7A7C7C7C7D7D7D7F7F7F
+      8080808282828383838484848686868888888888888A8A8A8A8A8A8B8B8B8B8B
+      8B8D8D8D8E8E8E8F8F8F8F8F8F90909091919192929291929291929292929293
+      93939393939696969A9A9A9E9E9E9F9F9FA1A1A1A4A4A4A6A6A6A8A8A8A6A6A6
+      9696969394949493939494939393939393939292929292919090908F8F8F9191
+      909292919292919191919292928A8A8B88888887868685858584848485858588
+      88888787878585858483848282828080807E7E7E7E7E7E7B7B7B7A7A79787878
+      777576757474737272717171706F6F6D6D6D6B6C6C6A6A6A6768676667666464
+      646363636161615F5F5F5E5E5C5B5C5B5A5A5959575757565655545453535351
+      51514F4F4F4F4E4E4D4C4C4B4B4B4848484141414140413F3F3F3E3F3E414241
+      4443434242414040403F3F3F3E3D3D3E3E3E3D3C3C3A3A3A3B3B3A3A3B393838
+      3738383737353635343535353534353434343433323331323130313030313130
+      30303030303030303232313230303130302F2F2F2C2C2D2B2B2B2B2B2B2B2B2A
+      2B2A2A2A2A292727272222222221222121212221222322222322222B2B2B3434
+      3434333434343333333332323231313130303027272620201F1F1F1F1F1F1F1E
+      1F1F1F1E1E1F1F1E1F1E1F1E1E1E1F1E1E1E1E1E1E1D1D1D1E1D1E1E1D1D1E1D
+      1D1D1D1D1D1D1D1D1C2222222525262626272727272828282929292B2A2A2B2C
+      2C2324231B1B1C1B1B1C1B1B1B1A1B1B1B1A1B1A1A1B1F1E1E1F1F2020202020
+      1F1F1F1F1F1F1F1F1F1F1F1F1D1E1E1D1E1D1D1D1D1E1D1E1D1D1E1E1D1E1E1D
+      1D1E1D1D1D1D1D1D1C1D1C1C1D1C1C1C1B1C1C1B1B1B1C1B1B1C1B1B1B1B1B1A
+      1B1A1B1B1A1A1A1A1B1A1A1A1A1A1A1A1A1A191A1A1919191919191A1A1A1A1E
+      1E1E1E1E1E1D1D1E1E1D1D1A1A1A181818181818181718171717181718171717
+      1717171717171716161716161615151615161615151615151515141415141111
+      111112111111111111111010111717162423242525262626262828282A2A2A2A
+      2A2A2A29291D1D1D0E0E0E0E0E0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0C
+      0C0C0D0D0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B0B0B0B0B0B
+      0B0B0B0B0A0B0B0A0A0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A1619190A
+      0A09303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303131313434343737373939393B3B3B3A3A
+      3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F39393839393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      383838383838383838383838383838383838383838383838373736362F2F302F
+      2F2F2F2F2F2F2F2F3030303131313333334242424848484B4B4B4D4D4D4F4F4F
+      4F4F4F4E4E4E4C4C4C4A4A4A4949494747474747474646464545454343434242
+      4241414141414140404040404040404039383930303031313131313131313131
+      31313535353939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C
+      3D3D3D3E3E3D3E3E3D3F3E3E403F3F403F3F4140404242424242424443434544
+      444645454746464646464848484949494A4A4A4B4B4B4D4D4D4D4D4D50505050
+      50505252525353535454545656565858585959595B5B5B5757575959595B5B5B
+      5B5B5B5F5F5F6B6B6B7575757B7B7B8080808585857878786A6A6A6B6B6B6D6D
+      6D6F6F6F7070707272727474747474747777777878787979797B7B7B7C7C7C7E
+      7E7E7F7F7F808080818181838383838383848484858585878787878787888888
+      8989898989898A8A8A8A8A8A8B8B8B8C8C8C8D8D8D8D8D8D8D8D8D8D8D8D8D8D
+      8D8F8F8F8F8F8F9292919797989D9C9D9F9F9FA1A1A19C9C9C90909090908F8E
+      8F8F8F8E8F8E8E8E8D8D8D8E8E8E8D8D8D8C8C8C8C8C8B8B8B8C8C8D8C8D8D8D
+      8D8D8D8E8D8E8D8D8E8888888383838282828080807F7F7F8080808484848383
+      8381818180807F7E7E7E7D7D7C7B7B7B79797978787877777674747474727372
+      71717070706E6D6D6C6C6C6A6A6A696969676666656465646464626262605F60
+      5F5F5F5D5D5D5B5B5A5A5A59585757565556545353535252515050504F4F4E4E
+      4E4D4C4D4B4B4A4949494747473F3F403E3E3E3E3D3E3C3B3C3F3F3F43424141
+      4140403F3F3E3E3E3E3E3D3B3B3B3A3B3B3A3B3B3A3A3B383838383837373736
+      363534363435363434353535333333323232313130303031303030303130302F
+      2F2F2F2F323131313231302F2F302F2F2F2F302C2B2B2B2B2B2B2A2A29292A29
+      29292A29292525252222222221212121222221222121212222222B2C2C323233
+      3333333332323231313131313030303030302D2D2D2626272021211F1F1F1F1F
+      1F1E1F1F1E1F1F1E1E1F1E1E1E1E1F1E1E1E1E1E1E1E1E1E1E1E1D1D1E1E1E21
+      21212626262727272827282828292A29292A2A2A2B2A2B2C2C2C2524251B1C1D
+      1B1C1C1B1B1C1B1A1C1B1B1C1A1A1C1E1E1D2020202020202020201F1F201F1F
+      201F1F1F1F1F1F1F1E1E1F1E1E1E1D1E1E1E1D1F1E1E1E1E1E1E1E1E1D1E1D1E
+      1D1D1D1D1C1D1D1C1D1C1C1D1B1B1C1C1C1C1B1C1B1C1B1C1B1B1B1B1B1B1B1B
+      1A1B1B1A1B1B1B1A1A1A1A1A191A1A1A19191A1A1A1A19191D1C1B1E1E1D1E1E
+      1E1E1E1E1E1D1E19191918181818181818171817181817171817171717171716
+      1617171717171616161615161515161515161515151415141515111112111212
+      1111111111111111111111121515152222222526252525252727272627262727
+      262726261E1E1E0E0F0F0E0E0D0E0D0E0E0D0E0D0E0E0E0E0D0D0D0D0D0D0D0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0B0B0B0B0B0B0C0B0B
+      0B0B0B0A0B0B0B0A0A0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A19191609090A3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303232323535353737373939393B3B3B3737372F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F303A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383737373030312F2F2F2F2F2F2F2F
+      2F3030303030303232324040404949494D4D4D50505053535354545451515149
+      49494E4E4E4D4D4D4B4B4B4A4A4A484848474747454545444444414141404040
+      3F3F3F4040404040404040403F3F3F3131313131313131313131313131313131
+      313938383939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C3D
+      3D3D3E3E3D3E3E3D3F3E3E403F3F403F3F414040424242424242434242454444
+      4645454545454646464848484949494949494B4B4B4C4C4C4D4D4D4F4F4F5050
+      505151515252525454545555555757575858585454545757575757575959595C
+      5C5C6B6B6B7373737979797E7E7E8383836D6D6D6767676868686A6A6A6B6B6B
+      6D6D6D6E6E6E7070707171717373737474747575757777777878787979797B7B
+      7B7C7C7C7D7D7D7E7E7E7F7F7F7F7F7F81818182828283838383838383838385
+      8585858585858585868686878787878787868686878787888888888788888888
+      8989898989898989898D8C8D9696969292928A8A8A8A8A8A8B8B8B8A8A8A8A8A
+      8A89898988888888888888888889898887878687868687878788888889898988
+      88888989898584847F7E7F7D7E7D7C7C7C7B7B7B7A7A7A8080807E7E7E7D7E7E
+      7B7B7B7A7A7A7A7979787778767776747474737372727271706F6E6F6E6E6D6C
+      6D6B6A6A6969696767676666666464646262626161615F5F5F5D5D5E5C5B5C5B
+      5B5B585858575757565655545353535353504F50504F4F4E4D4D4C4C4C4A4A4B
+      4848494748484747464040403E3D3D3B3B3B3B3A3B3A3A3A424141403F3F3F3F
+      3E3F3E3F3C3C3C3B3B3B3B3B3B39393938383838393837373736373536363536
+      3534363434343434333232313131313131313131313031302F2F3030302F302F
+      30303032323231313030302F302F2F2D2D2D2B2B2B2A2A2A2A2A292A29292A29
+      2929292823232322222222212222222221212121222122222228282933333332
+      33333231323131323030303030303030302F2F2F2F2F2F2A2A2A262626232323
+      2121211F1E1F1E1F1F1F1E1E2020202121212424232526262828282828282828
+      28292829282828292A2A2B2B2A2B2B2B2C2C2C2222221C1B1D1C1B1C1C1B1D1B
+      1B1D1B1B1C1B1B1B1C1B1D212021202121202020202020201F20201F1F1F201F
+      1F1F1F1F1F1E1F1E1E1F1E1E1E1E1E1F1E1F1F1E1E1E1E1E1D1D1E1D1D1E1E1E
+      1D1D1D1D1D1C1C1D1C1C1D1C1C1C1B1B1C1C1C1C1B1B1B1B1B1B1B1B1B1B1B1B
+      1A1B1B1B1A1A1A1B1A1A1A1A1A1A191A1A1A1A191E1D1E1E1D1D1E1E1D1D1E1E
+      1D1D1C1918191918181818181818181818181818181818171718171717171717
+      1717161616161616151617151516151515151515151511121211121111111111
+      1111111111111011121212121213202020242424252524242525252425242525
+      2424242020211111110E0D0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0C0D0D0C
+      0C0C0C0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0C0C0B0C0B0B0B0B0C0B0B0B
+      0B0B0B0B0B0A0B0B0B0A0A0B0B0B0A0A0A0A0A0A1916160A0A0A303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303333333535353737373A3A3A3C3C3C3535352F2F2F2F2F2F2F
+      2F2F2F2F2F3131323A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      38383838383838383838383737373030312F2F2F2F2F2F2F2F2F303030303030
+      3232323F3F3F4949494D4D4D5252525555555858585656563737373030303030
+      303232323737373B3B3B3D3D3D4040404040404343434141413F3F3F3E3E3E3F
+      3F3F3F3F3F3F3F3F3F3F3F383738303030313131313131313131313131343434
+      3939393939393939393A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C3D3D
+      3C3E3E3D3E3D3D3F3E3E3F3E3E403F3F41404042414142424243424245444444
+      44444545454646464747474949494949494B4B4B4C4C4C4D4D4D4E4E4E505050
+      5050505252525353535454545655555252525454545555555757575A5A5A6868
+      687171717676767C7C7C8080806A6A6A6363636565656666666868686969696B
+      6B6B6C6C6C6D6D6D707070707070727272737373747474767676777777787878
+      7979797B7B7B7C7C7C7B7B7B7D7D7D7E7E7E7E7E7E7E7E7E7E7E7E8080807F7F
+      7F80808080808080808080808081818182828282828283828383838382828383
+      8383848483848384838383848484848485858585858585858585858585858585
+      8484848384848483848383838283828282828383838484848484848484848585
+      848283827A797A7A797A7879787777777676767B7B7B7B7B7B7A7A7A77787877
+      777775767674757572727271717170706F6E6E6D6D6D6D6B6A6A6A6A6A686868
+      6666666465646263626161616060605E5D5E5D5D5D5B5B5B5A5A595858585657
+      555555555453535151515150504F4F4F4E4D4D4C4B4C4B4C4B49494948484747
+      47474645464140403B3B3B3A3B3A39393939393A3D3E3D3F3F3F3F3E3D3E3D3D
+      3C3B3B3B3C3B3A3A3A3939393838383738373636363636363636353536353534
+      3434323233323232313131313131313130302F2F302F302F2F2F2F302F2F2F31
+      3030303131313030302F302F2F2F2C2D2D2A2A2A2A2A2A292A29292A292A2929
+      2928292222222122222222212222212222222221212121222525253030303132
+      313131313031313030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C
+      2B2C2C2C2C2B2B2B2A2A2B2A2A2A2A2A2A2A292A292A2A29292A2A2A2A2A2A2A
+      2B2B2B2B2B2C2C2C2D2B2B2A1F1F1F1C1C1D1C1C1D1C1B1D1C1B1D1B1B1D1B1B
+      1D1C1C1C2021202120212121202121202121202020201F20201F201F201F1F1F
+      201F1F1F1E1F1E1E1F1F1E1F1E1F1E1E1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D1D
+      1E1D1D1D1C1C1D1C1C1D1C1B1C1C1C1C1C1C1B1B1B1B1B1B1B1B1B1B1A1A1A1A
+      1B1A1A1A1A1B1A1A1A1A1A1A1A1A1A191E1D1D1E1D1D1E1D1D1E1E1D1C1C1C19
+      1919181919181818181818181818181818171718171717171717171717171616
+      1716161716161616151615151615151515151514151213131111121112111111
+      111111111111111112121112121C1C1C23242324242424242424242524242425
+      24242323231212120E0D0D0E0E0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0C0D0D0D
+      0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0B0B0C0B0C0B0C0B0B0B0C0B0B0B0B0B
+      0B0B0B0B0A0A0B0A0A0B0A0A0A0B0A0A191919090A0A30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303333333535353838383A3A3A3C3C3C3232322F2F2F2F2F2F2F2F2F2F2F
+      2F3232323A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      383838383838383232322F2F2F2F2F2F2F2F2F3030303030303232323E3E3E48
+      48484D4D4D525252565656595959595959383838303030303030303030303030
+      3030303030303030303030303030303030303030303131313939393D3D3D3E3E
+      3E3E3E3E3F3F3F3F3F3F30303030303031313131313131313131313138373739
+      39393939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3B3D3D3C
+      3E3D3D3E3D3D3F3E3E3F3E3E403F3F4140404241414242424342424443434444
+      444545454646464747474848484949494A4A4A4B4B4B4D4D4D4D4D4D4F4F4F50
+      50505151515252525352525050505252525353535454545757576969696F6F6F
+      7474747A7A7A7F7F7F6363636060606262626363636464646666666767676868
+      686A6A6A6B6B6B6D6D6D6E6E6E70707070707072727273737374747475757576
+      76767777777878787878787979797A7A7A7979797A7A7A7A7A7A7B7B7B7B7B7B
+      7A7A7A7A7A7A7B7B7B7C7C7C7B7B7B7C7C7C7C7C7C7D7D7D7C7D7C7E7E7E7E7E
+      7D7F7E7F7F7F7F7F807F7F7F7F7F7F7F807F7F8180808080807F7F7F80808080
+      7F7F7F7F7F7F7F7F7E7E7F7E7E7E7D7D7E808080808180818181818181808080
+      7777777676757574747372727272727576757778777676767575757373737273
+      737171716F706F6D6D6D6D6D6C6B6B6A69696969686867666665656563626262
+      62626061605F5F5F5D5E5D5B5B5B5A5B5B595859585858565657555454535352
+      5151505050504F4E4E4D4C4D4C4C4B4B4A4A4849484747474646464545454344
+      444342423A3A3A3A39393838383737373A3A393F3F3E3D3D3D3D3B3C3C3B3B3B
+      3A3A393939383939373738373637363737373636363636353534343433323331
+      323132333232323131303130302F30302F2F302F2F30302F2E2E2E2F2F2F3131
+      3131303131313030302F2E2E2E2A2A2A2A2A2A2A292A2A2A2A2A2A2A2A2A2A28
+      28282222222222222222222121212121222121212121212222222B2B2B323232
+      3231323030303031303030302F2F2F2F2F2F2F2F2F2E2E2E2D2D2D2D2D2D2D2D
+      2D2B2B2C2C2C2C2B2B2B2B2C2B2B2A2B2B2B2B2C2B2B2B2C2B2D2D2C2D2D2D2D
+      2D2D2526261D1E1F1C1D1D1C1C1D1C1C1D1B1C1C1C1C1D1B1C1C1C1C1C202020
+      2121212021202121212121202021202020201F202020201F1F202020201F201F
+      1F1F1F1F1F1F1F1E1F1F1F1F1E1E1F1E1E1E1E1E1E1E1E1E1E1E1E1D1E1E1D1E
+      1D1D1D1C1C1D1C1C1D1C1B1C1C1C1C1C1B1C1B1C1C1B1B1B1B1B1A1B1B1B1A1B
+      1A1B1B1A1A1A1A1A1A1C1B1C1E1D1E1E1E1E1E1E1D1E1D1D1B1A1A1919191919
+      1818191819191818181918181817181817171717181718171717171717161617
+      1615161615161515161515151515151515151515131312121212111212111111
+      1010111011111111111111121919192323232323232323232424242425252424
+      242424241616160E0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0C0C0C0B0C0B0B0B0B0B0B0C0B0B0B
+      0B0B0B0B0A0B0B0A0B0B0A0A19191B0A0A0A3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303034
+      34343636363838383A3A3A3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3232323838383939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3232322F2F2F2F2F2F2F2F2F3030303030303131313A3A3A4848484D4D4D5252
+      525757575B5B5B5D5D5D41414130303030303030303030303030303030303030
+      30303030303030303030303030303030303030303232323B3B3B3B3B3B3D3D3D
+      3E3E3E3F3F3F3837383030303030303131313131313131313434343838383939
+      393939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3B3D3D3C3E
+      3D3D3E3D3D3F3E3E3F3E3E403F3F403F3F424141424242424242434343444444
+      4545454545454646464848484949494949494B4B4B4C4C4C4D4D4D4E4E4E5050
+      505050505150504E4E4E4F4F4F5050505353535656566868686D6D6D72727278
+      78787D7D7D5C5C5C5D5D5D5F5F5F606060616161636363646464666666676767
+      6868686969696B6B6B6B6B6B6D6D6D6E6E6E7070707070707171717272727373
+      7372727274747474747475757574747475757575757575757576767675757575
+      7575757575757575767676767676767676777777777677787877797978797979
+      7A7A797A7A7A7979797A7A7A7B7B7B7B7A7A7B7B7B7B7B7B7C7C7C7C7B7C7B7B
+      7A7B7B7B7A7B7B7A7A7A7979797C7C7C7C7C7C7D7D7D7D7D7D7D7D7D73737371
+      727171707170706F6E6E6E7171727474737373737171717070706F6F6F6D6E6E
+      6D6D6D6B6C6B696A696869676766666665656463636262616161615F5F5F5E5F
+      5E5B5B5B5B5B5B59595958585757575755555454545452535251515050504F4F
+      4F4E4C4C4C4C4B4B4A4A4A494949484847464646454546444444434343424241
+      3B3B3B3839383736373637363637363D3D3C3D3C3B3C3C3C3B3B3A3A39393A39
+      3A38383837363736363736363637363735353534343433333233333132323233
+      323231303131313030303030303030302F2F2F2E2E2F2E2F2E2F313030313131
+      31313130302F2F2F2E2C2D2C2A2A2A2A2A2A2A2A2A2A2A292A292A2929292827
+      272222222222212122222222212121212121212121212120212223222C2C2B32
+      31323030313030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2E2D
+      2D2D2C2C2D2C2C2C2C2D2D2D2D2D2D2D2D2C2D2E2D2E2D2D2727271E1E1F1D1D
+      1D1C1D1D1D1D1D1C1D1D1C1C1D1C1C1D1C1C1D1C1C1D21212021212121212121
+      2121212121202021212120202021202020202020201F2020201F1F1F201F201F
+      1F1F1F1E1F1F1E1E1F1E1F1E1F1E1E1E1E1E1E1E1E1D1E1E1E1E1E1E1D1D1D1D
+      1C1D1C1C1D1C1C1D1C1B1C1C1B1C1B1B1C1C1B1B1B1B1B1B1A1B1A1A1B1B1A1B
+      1B1A1A1B1A1E1E1D1E1E1E1E1E1D1E1D1D1D1D1D191919191919191919191819
+      1819181818181818181818181818181818171817171717171716161716161716
+      1517151616151615151515151515151515151413131312111111121111111111
+      1111111111111111101111171717222222232322232322232324242424242424
+      2424241A1A1A0E0E0E0D0E0E0E0D0D0D0D0E0D0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0C0C0C0C0D0C0C0C0C0B0C0C0C0B0C0B0B0B0B0C0B0C0B0B0B0B0B0B0B0B0A
+      0B0B0B0B0A0A0A0B1B1B190A0A0A303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303131313535353737
+      373939393B3B3B3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F343434393938393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      383838383838383838383838383838383838383838383838383333332F2F2F2F
+      2F2F2F2F2F3030303030303131313A3A3A4747474C4C4C5151515656565B5B5B
+      5E5E5E4141413030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303636363A3A3A3B3B3B3D3D3D3E
+      3E3E3E3E3E303030303030303030313131313131313131383737383838393939
+      3939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3A3C3C3B3D3C3C3E3D
+      3D3E3D3D3F3E3E3F3E3E403F3F403F3F41404042424242424242424244444444
+      44444545454646464747474949494949494A4A4A4B4B4B4D4D4D4D4D4D4F4F4F
+      4D4D4D4B4B4B4D4D4D4F4F4F5050505454546666666C6C6C7171717676767B7B
+      7B5959595B5B5B5C5C5C5D5D5D5F5F5F5F5F5F61616162626263636364646466
+      66666767676868686969696B6B6B6B6B6B6C6C6C6D6D6D6E6E6E6E6E6E6F6F6F
+      6F6F6F6F6F6F7070706F6F6F6F6F6F7070707070707070707070706F6F6F7070
+      7070707070707070707070707071717172727272727272727174747475757474
+      7373747474757576757675757575767676777777777777787878777777767676
+      76767675757675757576777678787879787879797979797A7272726D6D6D6C6D
+      6C6C6B6C6A6B6A6B6B6B7070706F6F6F6E6E6E6D6D6D6C6C6C69696A69696968
+      6767666766666564656463636262626161605F5F5E5E5E5C5C5C5B5B5B5A5959
+      5858585757585656565454545454545252525050504F4F4E4E4E4E4C4C4C4C4B
+      4B4A49494948484746464747474544454444444344444141414141413C3B3B37
+      36363637363635363434343A3A3A3D3C3C3B3C3A3B3A3A3A3A39393838383737
+      3737373737373635363535363435353433343333333333323333313231313230
+      313130303131313030302F2F2F2F2F2F2E2E2E2E2F2F2E2E2E3131313030302F
+      302F2F302F302E2F2D2B2C2B2A2A2A2A2A292A2A2A2A2A2A292A292A29282828
+      2323232222222122222122212121222121212121212121212020212322232B2A
+      2A2E2F2F3030303030303030302F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2F2F2F
+      2F2F2E2E2F2E2F2E2E2E2E2C2C2C2627271F1F1F1E1D1E1D1D1D1D1D1D1D1D1D
+      1D1D1D1C1D1D1C1C1D1C1D1D1D1D1E2021212122212222212221222121212121
+      2121212121212021212121202020202020202020202020201F1F1F1F1F1F1F1F
+      1F1F1F1E1F1F1F1F1F1F1F1E1E1E1E1E1E1E1E1E1E1E1E1E1E1D1D1D1D1E1D1D
+      1D1C1C1D1C1C1C1C1C1C1B1B1C1B1B1B1B1C1B1B1B1B1B1A1B1B1B1A1A1A1B1C
+      1B1E1F1E1E1E1E1E1E1E1E1D1E1C1D1C19191A19191919191919191819181919
+      1919181819181818181818181817181717181717181717171616171616171616
+      1616151616151515151515151515141514151414131112121211111111111110
+      1111111111111111101115151621212123232322232224242423242424242424
+      24241D1D1D0F0F0F0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0C0C0C0C
+      0C0C0D0D0C0C0C0C0C0C0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0B
+      0B0B0B0A1B1B190A0A0A30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030323232363636373737393939
+      3B3B3B3B3B3B3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F3035353539393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383534342F2F2F2F2F2F2F2F2F2F2F
+      2F3030303131313636364747474C4C4C5050505656565B5B5B5E5E5E48484830
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303131313838383A3A3A3B3B3B3D3D3D3E3E
+      3E38373830303030303030303031313131313134343438383838383839393939
+      39393939393939393A3A3A3B3B3B3B3B3B3B3B3A3B3B3A3C3C3B3D3C3C3D3C3C
+      3E3D3D3E3D3D3F3E3E403F3F403F3F4140404241414242424242424343434444
+      444545454545454646464848484949494949494B4B4B4C4C4C4D4D4D4B4B4B4A
+      4A4A4A4A4A4C4C4C4E4E4E5555556464646A6A6A707070757575707070575757
+      5757575959595A5A5A5B5B5B5C5C5C5E5E5E5F5F5F6060606161616363636363
+      636565656666666767676767676868686A6A6A6969696A6A6A6A6A6A6B6B6B6B
+      6B6B6B6B6B6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6969696A6A6A
+      6A6A6A6A6A6A6B6B6B6B6B6B6C6C6C6C6C6C6D6D6D6D6E6E6E6E6E6E6F6E706F
+      7070707070707172727271727170707171727172727272727272717271717170
+      70707171717272727474747575747575757676767171716A6A6A686969696969
+      6767666667666D6D6D6C6C6C6B6C6B6969696969696666676666666464646363
+      63626261616160605F5F5F5E5E5D5C5C5B5B5B5A595A59585958575857565654
+      54545454545252525151515050504F4F4F4D4D4C4C4C4B4B4B4A4A4A49484848
+      4846474646464444444444444342434141424040404040403E3D3D3536363636
+      363435343435343535353B3B3A3B3A3A393A393A393839373738383738373736
+      3636363636343435333434343333333333333433323231323230313230323130
+      323130302F2F2F2F302F2F2F2F2F2F2F2E2F2E2E2E2F2E2E3030302F30303030
+      3030302F2E2F2E2B2B2B2A2B2A2A2A2A292A2A292A2A2A29292A292A29282924
+      2424222222222222212121212121222121212121212121212121202020202020
+      2323232828282A2A2A2C2C2B2E2D2E3030303030303030302E2E2E2B2A2A2829
+      292625252020221E1E1E1E1D1E1E1D1E1D1D1D1E1E1E1D1D1D1D1D1D1D1C1D1C
+      1D1D1C1D1D1F1F20222222222222212222222222212122212121212122212121
+      212121202121212020202120202020201F20201F2020201F1F1F201F1F1F1F1F
+      1F1F1F1F1F1E1F1F1F1F1F1E1E1E1E1E1E1E1E1E1D1D1D1D1E1E1E1D1E1D1C1D
+      1C1C1D1C1C1C1C1B1C1C1B1C1B1B1B1B1C1B1B1B1B1B1B1B1B1B1E1C1D1F1E1F
+      1E1E1E1E1E1E1E1D1E1B1A1A191A1A1919191919191919191919191818181819
+      1818191818181818181718181717171717171717161717161617161616161516
+      1515161516151515151615151515141515141414121212111111121211111111
+      1110111010111010111212142020202323232323232423232324232425242424
+      242020200F0F0F0E0E0E0D0D0E0E0D0E0D0D0D0D0D0D0D0D0D0C0D0D0C0D0D0D
+      0C0C0C0C0C0C0C0C0C0C0B0C0B0C0B0B0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B
+      191B1B0A0B0B3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303434343737373838383A3A3A3C3C3C3D
+      3D3D3E3E3E3636372F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F3030303535353939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      38383838383838383838383534342F2F2F2F2F2F2F2F2F2F2F2F303030313131
+      3636364646464B4B4B5050505555555A5A5A5E5E5E4D4D4D3030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303535353939393A3A3A3B3B3B3E3E3E3E3E3E
+      3131313030303030303030303131313131313837373838383838383939393939
+      393939393939393A3A3A3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3C3B3B3D3C3C3E
+      3D3D3E3D3D3F3E3E3F3E3E403F3F403F3F414141424242424242424242444444
+      4444444545454646464747474848484949494A4A4A4B4B4B4848484848484949
+      494A4A4A4B4B4B5353536363636969696E6E6E7474746E6E6E54545455555557
+      57575757575959595A5A5A5B5B5B5C5C5C5D5D5D5F5F5F5F5F5F616161616161
+      6363636262626464646565656565656565656565656565656767676666666565
+      6566666665656565656565656565656565656564646465656564646465656565
+      6565656565656565666666666666676767676867696968696A6A6A6A6A6B6A6B
+      6B6A6B6C6B6B6D6D6C6D6D6D6D6D6C6E6D6D6E6E6E6D6D6D6E6E6E6D6D6D6C6C
+      6C6D6C6D7171717070707070707272726F6F6F65656565656564646464646463
+      636369686969696967686767676766666665656563626362626261606060605F
+      5F5F5E5E5D5D5C5B5B5B5A5A5A59595858585757565455555454545353525151
+      514F4F504F4F4F4D4D4D4D4D4D4B4B4B4B4B4949494848484848464646454544
+      44444443434242424141414040403F3F3F3F3F3F3E3E3E373636353534333434
+      3332333131323B3A393A3A393939383938383938383837373736373737363535
+      35343434343433343434343334323333323232323231323231323130312F3031
+      2F2F302F2F2F2F2F2E2F2F2F2E2E2E2E2D2D2E2E2F2F2F303031303030303030
+      30302F2E2E2E2B2B2C2A2A2B2A2A2A292A2A2A2A292A2A2A2A2929292A292727
+      2722222221222122212222212221212221212121212021212020212021212021
+      20202020201F2020201F201F1F1F1F20201F1F201F1F1F1F1F1F1F1E1F1F1E1F
+      1E1F1F1E1F1E1E1E1E1D1D1E1E1E1E1D1D1D1D1D1E1D1D1D1D1D1D1E1E1E2120
+      2123222223222222222222222222222221212122212122212122212122212121
+      2021212020202020202021202020201F1F1F20201F20201F1F201F1F1F1F1F1F
+      1F1F1F1F1F1E1E1E1E1F1E1E1E1E1E1E1E1E1D1E1E1E1E1D1E1D1D1D1D1C1D1C
+      1C1D1C1C1C1B1C1C1B1B1C1B1B1B1B1B1B1B1B1C1B1B1F1E1D1F1E1E1F1F1E1E
+      1E1E1E1E1D191A1919191A1A191A1A1919191919191919181819191819191819
+      1818181818181818171817171817171716161716161716161616161616151516
+      1515151515151615151515151515141515141512131212111111111111111111
+      10111111111111111111121C1C1C232223232223232323242323242424242424
+      2322231212120E0D0D0D0D0E0D0D0E0D0D0D0D0C0D0C0C0C0C0D0D0D0C0C0C0C
+      0C0C0C0C0B0C0C0B0C0C0B0C0B0B0B0C0C0C0B0B0B0C0B0B0B0B0B0B1B1B1B0A
+      0B0B303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303434343838383A3A3A3B3B3B3C3C3C3E3E3E3F3F
+      3F4040403D3D3D3333332F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F303030353535393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      383838383736362F2F302F2F2F2F2F2F2F2F2F3030303131313333334646464A
+      4A4A5050505555555959595C5C5C4F4F4F303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303131313838383838383A3A3A3B3B3B3D3D3D3939392F
+      2F2F2F2F2F2F2F2F2F2F2F303030333333383838383838383838393939393939
+      3939393939393A3A3A3A3A3A3B3B3A3B3B3A3B3A3A3B3A3A3C3B3B3D3C3C3E3D
+      3D3E3D3D3F3E3E3F3E3E3F3F3F3F3F3F3F3F3F40404041414141414142424243
+      4343444444444444454545464646484848484848454545454545464646474747
+      4949495655566262626767676C6C6C7171716464645151515252525252525454
+      545555555656565757575858585959595A5A5A5B5B5B5D5D5D5E5E5E5E5E5E60
+      60605F5F5F616161616161616161616161626262626262616161616161616161
+      6060606161616060605F5F5F5F5F5F5F5F5F5E5E5E5E5E5E5F5F5F5F5F5F6060
+      6060606060606061616162626263636363646465656465656466666567666767
+      6768686767676767676768686868696969696969696969686867696869696968
+      6C6C6C6C6C6C6C6D6C6D6D6E6D6D6D616161616161605F605F5F5F5E5D5E6363
+      636565656564646463646161616161615F5E5F5E5E5E5D5E5D5C5C5C5A5B5A5A
+      5A5A595858575757575656545454535353525251505151504F4F50504F4D4D4D
+      4C4C4C4C4C4C4A4A4A4948494747474747474545444444434444434342424141
+      414040403F3F3F3F3F3F3E3E3F3D3E3D3C3C3C3A3A3A34343332323332323231
+      3231343434383938383837383837373737373635353435353435343333333333
+      33323333323331323131313232333232323232323131313030313030302F3030
+      2F302F302F2F2F2E2E2E2E2E2E2D2D2E2D2D2D2F2F2F3030303030302F302F30
+      302F2F2F2F2B2B2B2A2A2B2A2A2A292A2A29292A29292A292A2A292A29292828
+      2423252221222221212121212121212121212121212121212121212020212020
+      202020202020201F1F1F1F201F201F1F1F1F1F201F1F1E1F1F1F1F1E1F1F1F1E
+      1E1E1E1F1E1E1E1E1D1E1E1E1E1E1E1E1D1E1D1D201F20232323232323222323
+      2223222323232222222122222121222222222321212222212221212221212120
+      2120202020212020202020202120201F1F2020201F1F1F1F1F1F1F1F1F1F1F1F
+      1F1F1E1F1E1E1E1F1F1F1E1E1E1E1E1E1E1E1E1D1E1E1E1E1D1D1D1D1C1D1C1C
+      1C1C1C1D1C1C1C1C1C1C1C1B1B1B1B1D1D1D1F1F1F1F1F1F1F1E1F1F1E1F1C1C
+      1C1A1A1A1A1A1A1A1A1A1A19191A1919191A1919191919181918191919181918
+      1818181817181817181717171717181616171716171616161616161516161615
+      1516151516161515151515151515151415151212121112111111111011111111
+      111010111110111111121A1A1B23222323232224232323232425242424242423
+      23231616160E0E0E0E0D0D0D0E0D0D0D0D0C0D0D0D0C0C0D0D0C0D0D0D0D0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B1B1B1B0B0B0B3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303131313737373B3B3B3C3C3C3D3D3D3E3E3E3F3F3F3F3F3F
+      3F3F3F4040403B3B3B3131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F30303035353539393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838373636
+      2F2F302F2F2F2F2F2F2F2F2F3030303131313333334343434949494E4E4E5353
+      535858585C5C5C5555553232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F3333333838383939393A3A3A3C3C3C3E3E3E3030302F2F
+      2F2F2F2F2F2F2F2F2F2F30303036363637373737373737373738383838383838
+      38383838383939393939393A3A393A3A393A39393A39393B3A3A3C3B3B3C3B3B
+      3D3C3C3D3C3C3E3D3D3E3D3D3E3E3E3F3F3F4040404141414141414141414343
+      4343434344444445454545454547474743434343434345454545454547474753
+      52535E5E5E6464646A6A6A6E6E6E5F5F5F4E4E4E4F4F4F505050525252525252
+      5353535454545656565656565757575959595A5A5A5A5A5A5B5B5B5B5B5B5D5D
+      5D5C5C5C5D5D5D5D5D5D5D5D5D5E5E5E5D5D5D5C5C5C5C5C5C5C5C5C5B5B5B5B
+      5B5B5A5A5A5A5A5A5959595959595959595959595959595A5A5A5A5A5A5A5A5A
+      5B5B5B5B5B5B5C5C5C5D5D5D5E5E5E5E5E5E5F5E5F6060606160616262626363
+      6363626364646464646364646464646465656565656464646463626268686868
+      68686868686869686A696A5F5F5F5E5E5E5D5D5D5B5B5B5B5B5B5C5D5C616061
+      6061615F5F605E5E5E5E5E5E5D5D5D5C5C5C5B5A5B5A59595959585858575756
+      555554555453535252525151515050505050504D4D4C4B4B4C4B4B4B4A4A4A4B
+      4B4A4848484848484647464544434544444443424241414241413F3F3F3F3F3F
+      3F3F3E3E3E3D3D3C3C3B3C3C3B3B3B3A3939313131313131303030302F303131
+      3037373738383838383737373636363535353434333434343434333333333332
+      323232323232313232313231313130303030302F30302F2F302F302E2F2F2F2E
+      2E2D2D2D2D2D2C2D2D2D2D2D2D2D2D2C2D2D302F2E2F2F2F2F2F2F2F2F2F2E2E
+      2E2D2E2E2B2A2A29292929292929292929292929282828282828282828282827
+      2627242324222221212121212221212121212121202021212121202121202020
+      20202020202020201F201F2020201F1F1F1F1F1F1F1F1F1F1E1F1F1F1E1F1F1E
+      1E1E1E1E1E1E1E1E1E1E201F2123232223232323242323232323232222222323
+      2223222222222322222222232322222322222222222222222121222121212121
+      2021202021202021202020202020202020201F20201F201F1F1F201F1F1F1F1F
+      1F1E1F1F1F1F1E1E1E1E1E1E1E1E1E1E1E1D1E1E1E1D1D1D1D1D1D1C1D1C1C1D
+      1C1C1D1B1C1C1C1B1C1C1C1F1E1F1F1F1E1E1F1E1E1E1F1E1F1E1B1B1B1A1A1A
+      1A1A1A1A1A1A1A191A1A191A19191A1919191819191919181918191918181818
+      1818181718171717171717161718171717161617161616161616151616151515
+      1515161515151515151515151414151415121312111211111111101111111011
+      1010111011111010111818182222212323222323222423242424242424242424
+      241918180E0E0E0D0D0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0C0D0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0B0B0C0C0B0C0C0B0B0B1B1B1B0A0B0B303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303434343C3C3C3D3D3D3E3E3E3F3F3F3F3F3F3F3F3F3F
+      3F3F4040404040403837383030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F3030303535353838383939393939393939393939383939
+      383938383938383938383938383938383838383838383838383030302F2F2F2F
+      2F2F2F2F2F3030303131313333334141414949494D4D4D5252525858585B5B5B
+      5555553232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F3030303636363838383939393B3B3B3C3C3C3939392F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F3232333737373737373737373737373737373838383838
+      383838383838383939383A3A393A39393A39393A39393B3A3A3B3A3A3C3B3B3D
+      3C3C3D3C3C3E3D3D3D3D3D3E3E3E3E3E3E3E3E3E3F3F3F404040414141424242
+      4343434444444444444545454141414141414141414242424545455252525D5D
+      5D6363636868686C6C6C5959594B4B4B4C4C4C4D4D4D4E4E4E4F4F4F50505051
+      5151515151535353545454555555555555565656585858585858585858595959
+      5959595959595959595959595858585858585757575757575757575656565555
+      5555555555555555555555555554545454545455555555555555555556565656
+      56565656565757575858585959595A5A5A5B5B5B5C5C5C5D5D5D5D5E5E5D5E5D
+      5F5F5E60605F60616060606060606060606060605F5F5F5F6262626464646465
+      656665656766676060605A59595959595858585657575656565E5F5F5D5D5D5C
+      5C5D5C5B5B5A5A5A5A5A5A585858575757565656565655555454535352525152
+      5250504F4F4F4F4F4F4D4D4D4C4B4B4B4B4B494A4949494A4747474847474746
+      46454545444443434342434242414140414140413F3F403F3F3E3E3E3D3D3D3C
+      3B3C3C3B3B3B3B3C3A3B3B393A3A34343430303030302F2F302F2F2F2F343434
+      3636373636363535353535343535343534343433343332323332323232323232
+      3232323231323230303030303030303030302F2F302F30302E2E2E2D2E2D2D2E
+      2D2E2D2D2D2D2D2D2D2C2C2C2C2C2C2D2C2F2F2E2F2F2F2F2F2F2F2E2E2E2E2E
+      2F2D2D2B2B2C2929292929292929292829282828282928282828282828282828
+      27272727252425222221202021202020201F1F20212020212020212021202020
+      2020201F201F1F1F201F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1F1F1E1E201F20
+      2222222424242424242424242423232424242324232323232323232323222223
+      2223222223232423232323232323222223222222222222212121212121212120
+      212020202120202021202020201F202020201F201F1F1F201F1F1F1F1F1F1F1F
+      1E1F1F1F1E1F1E1E1F1E1E1E1E1D1E1E1D1E1E1E1E1D1E1D1D1D1C1D1C1C1D1C
+      1C1D1C1C1D1D1C201E1E1F1E1E1F1F1E1E1F1E1D1D1D1A1A1B1A1B1A1A1A1A1A
+      1A1A191A191A1A19191919191919191919191919191919191818191818181817
+      1818171817171816171817171717161716171616161616161515151516151616
+      1516151515151515151514151515151413131411111111111111111110101111
+      1011101011101111151515222222232323232323242323242424242424252524
+      1E1E1D0F0F0F0D0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0B0B0C0C0C0C0C0B1B1B1E0B0B0B30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303131313838383E3E3E3F3F3F3F3F3F3F3F3F3F3F3F3F3F
+      3F4040404040403F3F3F3636372F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F30343434383837393939393938393938393838
+      3938383938383938383938383938383838383130312F2F2F2F2F2F2F2F2F3030
+      303030303232323F3F3F4949494D4D4D5252525757575A5A5A5A5A5A3535352F
+      2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E3232323737373838383939393B3B3B3C3C3C2F2F2F2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E353535363636363636363636363636363636373737373737
+      3737373737363838373837373938383938383938383938383A39393B3A3A3C3B
+      3B3C3B3B3C3B3B3C3C3C3C3C3C3D3D3D3D3D3D3E3E3E40404040404040404041
+      41414242424343433E3E3E3F3F3F4040404040404343435252525C5C5C606060
+      6565656A6A6A5050504848484848484949494B4B4B4C4C4C4D4D4D4D4D4D4E4E
+      4E50505050505051515152525253535354545454545454545455555555555555
+      5555555555545454535353545454545454535353525252525252525252515151
+      5050505050505050505050505050505050505050505050505050505151515252
+      525252525353535454545555555656565757575858585959595A5A5A5B5B5B5A
+      5B5A5C5B5C5C5B5B5C5B5B5B5B5C5B5B5B5B5B5B5D5D5D605F60616061616061
+      6262615E5F5F5655565454555454545353535252525959585A595A5959595859
+      58565656575657555555545454535352525252525251504F4F4E4E4E4E4D4D4D
+      4C4C4B4B4B4A4A4A494949494849474746474746454646454444434343434443
+      4343434242414141403F3F3E3F3E3E403F3F3D3D3C3B3C3C3B3B3B3B3A3B3A3A
+      393839393839393939383636362F2F2F2E2E2E2D2E2E2E2E2D2E2E2E34343535
+      3535343434343433343433343332323232323131323231323131313131313031
+      2F3030302F2F302F2F2F2F302F2F2F2F2F2E2E2E2E2E2E2D2E2E2D2E2D2E2E2D
+      2E2D2D2D2C2C2D2D2C2D2D2D2D2D2C2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2D2D2C2D2C292929292929292829282829282828282929282828282828282828
+      272727272727272726242425232223212122202020201F1F2020212020202020
+      20201F1F2020201F201F1F1F2020202022212222232325242425242524252425
+      2424242424232423232324232324232324232323232323222323242324242424
+      2323232323232322232323222322222321212221212221212121212121212021
+      2020202020202020202020202020201F1F201F1F1F1F1F1F1F1F1F1F1F1F1F1E
+      1F1F1E1E1F1E1E1E1E1E1E1E1E1D1E1D1E1D1E1E1D1D1D1D1D1C1D1C1C1D1C1C
+      1F1F1F1F1E1F1F1E1E201E1F1F1F1E1C1C1B1A1A1A1A1A1A1A1B1B1A1A1A1A1A
+      1A1A1A191A1A1A19191919191919191919181919191819181818181818181718
+      1717181717171716171716171617171617161616161616151616151515151615
+      1515151515151514151415141514141313131111121110111111111111111010
+      1110101110111112121320202022232222232223232324242427272729292925
+      24250F10100E0E0D0D0D0D0D0E0D0D0D0D0D0C0D0C0C0C0C0D0D0C0C0C0C0C0C
+      0C0C0B0C0C0C0C0C0B0C0C0B1E1B1B0C0B0B3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303333333B3B3B3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F
+      3F3F3F4040404040403E3E3E3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F33323336363639393839393839383839
+      38383938383938383938383130312F2F2F2F2F2F2F2F2F303030303030323232
+      3E3E3E4848484C4C4C5151515656565A5A5A5959593737372E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2F2F2F3434343636363737373939393A3A3A3636362E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E30303034343435353535353535353535353535353536363636363636
+      36363737363737363736363837373837373837373837373938383938383A3939
+      3B3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3F3F3F3F3F3F3F3F
+      3F4040403B3B3B3C3C3C3D3D3D3E3E3E4040405151515959595D5D5D63636367
+      67674D4D4D4646464646464747474747474848484A4A4A4B4B4B4C4C4C4D4D4D
+      4D4D4D4E4E4E4F4F4F4F4F4F5050505151515050505151515151515151515050
+      505151515050504F4F4F4F4F4F4E4E4E4E4E4E4D4D4D4D4D4D4D4D4D4D4D4D4C
+      4C4C4C4C4C4C4C4C4B4B4B4B4B4B4C4C4C4C4C4C4D4D4D4E4E4E4E4E4E4F4F4F
+      5050505151515151515252525353535454535454545555555656565757565758
+      575757575757575757575656575656565757575B5B5B5B5B5B5D5D5D5E5E5D5D
+      5E5D515051515252504F4F4F4F4F4F4F4F535353565656565556555455535353
+      5453535151515151515050504F4F4E4E4E4D4D4D4D4B4B4A4C4B4B4A4A494848
+      484848484646464646454545454443444243424241414242424141414141413F
+      3F3E3F3F3E3F3E3D3E3D3D3C3B3C3C3C3B3B3C3B3B3B3B3A3A3A393939393939
+      3737383636373636363131312E2E2E2D2D2D2D2D2D2C2C2C3130313333333334
+      333333333333333333323333313232323232313332313130302F302F30303030
+      30302F302F2F302F2F2F302E2E2E2E2E2D2E2E2D2E2D2C2E2D2D2D2C2C2D2C2C
+      2C2C2C2C2C2C2C2C2B2B2C2B2B2B2C2E2E2D2E2E2E2E2E2D2D2E2E2D2E2D2D2D
+      2D2C2C2C29292928282828282827282727272728272727272727272727272726
+      2626282727282727272727272726272726272625242425242524252525252525
+      2524252726262625262626252625252525252525252424242525242425252524
+      2524242424232423232424242324232324232324242424242323242324242423
+      2324232323232323232222232221222121222121222121212121212021202121
+      2021212020202020202020202020201F201F1F1F1F1F1F1F1F1F1F1F1F1E1E1F
+      1E1E1E1E1E1E1E1E1E1E1E1E1D1E1E1E1E1E1D1D1D1D1D1D1C1E1D1D1F1F1F1F
+      1F1E1F1F1F1F1E1E1E1E1E1B1B1B1B1B1B1B1B1B1B1A1A1A1A1A1A1A1A1A1A1A
+      1A1A1A1A1A1A1919191A1A191919191919191918181818181818171818171817
+      1718171718161717171717161616161616161615161616151615161515151515
+      1515151415151515141514151515141314121112111111111111111111111011
+      1010111010111212131C1C1C2322222324242525252828282B2B2B2E2E2E2D2D
+      2E1414150E0E0E0D0D0D0D0D0D0D0C0D0D0C0C0D0C0D0C0D0D0C0D0C0C0C0C0C
+      0C0C0C0B0C0B0C0C1B1B1B0B0B0B303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303636363E3E3E3F3F3F3F3F3F3F3F3F3F3F3F3F
+      3F3F4040404040404040403E3E3E3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313434343838383938383938
+      383938383232322F2F2F2F2F2F2F2F2F3030303030303232323B3B3B4747474C
+      4C4C5151515555555959595B5B5B3737372E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D31
+      31313535353636363737373939393A3A3A2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D3333333434343535353535353535353535353535353636363636363636
+      3536363536353537363638373738373738373738373738373738383839383839
+      39393939393939393A3A3A3B3B3B3C3C3C3C3C3C3C3C3C3D3D3D3E3E3E3D3C3C
+      3B3B3B3B3B3B3B3B3B3C3C3C3E3E3E5252525656565B5B5B6060606565654343
+      434343434343434343434545454646464747474747474848484A4A4A4A4A4A4B
+      4B4B4C4C4C4C4C4C4C4C4C4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4C4C4C4D4D4D
+      4C4C4C4B4B4B4A4A4A4A4A4A4A4A4A4A4A4A4949494949494848484848484949
+      494848484848484848484848484949494949494949494A4A4A4A4A4A4B4B4B4C
+      4C4C4D4D4D4E4E4E4E4E4E4E4F4F505050505051525151535353525252525252
+      535353525352535453525252525252575757575858595959595959595A5A5151
+      514D4E4D4D4D4D4C4B4C4A4A4A4B4B4B5252525252525150515050505050504E
+      4E4E4D4D4D4D4C4C4C4C4B4B4B4A4A4A49494949484747474747464545454545
+      4445444343434242424040404040404040404141403F40403E3E3E3E3E3D3D3D
+      3C3C3C3C3C3B3B3B3B3B3B3A3A3A3A3938383938383838383737373736353536
+      35363636353434342C2C2C2C2C2C2B2A2B2A2A2A2A2A2B333232333334333433
+      323233323231323231313131323130302F2F312F3030302F2F2F2F2F2E2F2F2F
+      2E2F2F2F2E2D2D2D2D2D2D2D2D2D2D2C2C2C2C2D2D2C2C2B2B2C2B2B2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2D2D2D2D2D2D2D2D2D2C2D2C2D2C2C
+      2C2B2B2A2A2A2828282827282828282728282727272727272727272727272726
+      2626272626262627272627272627262626262626252526262527262627262627
+      2526262526262525262526252625252525252425252424242424242424242424
+      2424242424232423232424242424242424242424242424242424242423232324
+      2323232223222223222123212122212122222122212121212121212120202020
+      202020202120202020201F1F20201F1F1F20201F1F1F201F1F1F1F1F1F1E1F1E
+      1E1E1F1E1F1E1E1E1E1E1E1E1D1D1E1E1D1E1E1E1D201F1F1F1F1F1F1F1F1F1F
+      1F1F1E1E1C1D1C1B1C1B1B1B1B1B1B1B1B1A1B1A1B1A1B1B1A1A1A1A1A1A1A1A
+      19191A191A1A1919191919191919191818191818191817181818181717181717
+      1817171716161716171616161616161616161615151616161515151516161515
+      1615151515141514151414151414141412121211111111111111101110101110
+      10111010111111111A1A1A2525242626262B2B2A2E2E2E323232343535303031
+      0E0D0D0D0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0C0C0D0C0C0C0C0B
+      0B0C0B0C1E1E1E0C0C0C30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303131313838383E3E3E3F3F3F3F3F3F3F3F3F3F3F
+      3F4040404040404040404040403E3E3E3535352F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F333233363535323232
+      2F2F2F2F2F2F2F2F2F3030303030303131313939394646464B4B4B5050505555
+      555959595A5A5A3F3F3F2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D3333
+      333535353535353737373838383535352B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2E
+      2E2E333333333333343434343434343434343434343434343434353534353534
+      3534343534343635353635353736363736363736363736363837373837373838
+      383838383838383939393A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3B3B3B38383838
+      38383A3A3A3B3B3B3C3C3C4F4F4F5454545959595E5E5E6262623F3F3F404040
+      4141414141414242424343434444444444444646464646464646464747474848
+      484848484949494949494949494949494A4A4A4A4A4A49494949494948484848
+      4848474747474747464646464646464646454545444444454545444444454545
+      4545454545454646464646464646464646464646464747474747474848484949
+      494A4A4A4B4B4B4C4C4C4D4D4C4C4D4D4D4D4D4E4E4E4D4D4D4E4E4E4F4F4F4F
+      4F4F4F4F4F4E4E4E4F4F4F515151545555555555565656565656525151494A4A
+      4848484848484747474646464F4F4E4E4E4E4D4C4C4C4C4C4C4C4C4C4C4B4A4A
+      4B4B4A4A49494849484748484747464646454444444444444343434241414241
+      41414040403F3F3F3F3F3F3E3E3E3D3D3D3D3D3D3C3D3C3B3B3B3B3A393B3B3A
+      3939393A38393938373838383837373637363535353535353534353534353334
+      333333342D2D2D2B2B2B2929292929292929292C2C2C32313232313131313131
+      313131313031313030302E302F2E2F2E2E2F2E2E2F2E2F2E2E2E2E2E2E2D2D2C
+      2C2C2C2D2C2D2D2D2D2D2D2D2D2D2C2D2D2C2D2D2B2C2B2C2C2B2B2C2B2B2B2B
+      2B2B2B2B2B2B2A2A2A2A2A2A2A2C2B2B2D2D2D2D2C2D2C2C2C2C2B2B2B2B2B2B
+      2B2B2B2B2B2A292A272828272626272626262726262626262626272726262726
+      2627262626262626252727262726252626252726252626252625252726262626
+      2626262626252526252526262525252525252525252525242524242425252425
+      2525252425252524252424242425242424232424242324242424232423242323
+      2323222322222322212222212222212222212221212121212121212021212120
+      202020202020202020201F1F201F201F1F1F201F1F1F1E1F1F1E1F1E1F1F1F1F
+      1E1E1F1E1E1E1E1E1E1E1E1D1E1E1E1E1F1F1F1F201F1F1E1F1F1F1F1F1F1D1D
+      1B1C1B1C1B1B1C1B1B1B1B1B1B1A1B1A1A1B1A1B1A1A1B1A1A1A1A1A1A191A1A
+      1A1A19191A1A1919191919191918181818181719181719171819181718171717
+      1716171616161717161617161616161616151516161516161515161615151516
+      1415151515141414141514141415141213121011111111111011111110111010
+      11101011111112191A1A2726262C2C2D3232323636363939392929290E0E0D0D
+      0E0D0E0E0E0D0E0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0C0C0C0C0C0C0C0C0C0C
+      1E1E1E0B0C0B3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303232323939393F3F3F3F3F3F3F3F3F3F3F3F
+      4040404040404040404040404040403F3F3F3837383030302F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F3030303030303131313838384646464B4B4B4F4F4F5353535757575A5A5A
+      3F3F3F2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2F2F2F333333
+      3434343535353737373838382B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B3131
+      3132323232323233333333333333333333333333333333333334343334343334
+      3333343333343333353434363535363535363535363535363535363636363636
+      3737373737373737373939393939393939393A3A3A3737373535353636363737
+      373737373C3C3C4D4D4D5252525757575B5B5B5D5D5D3C3C3C3C3C3C3E3E3E3E
+      3E3E3F3F3F404040414141414141424242434343434343454545454545454545
+      4545454646464646464646464646464545454545454545454545454444444444
+      4444444443434342424242424242424242424241414142424241414141414142
+      4242424242424242434343434343434343444444444444454545454545464646
+      474747484848494948494948494A494A4949494A4A4B4B4A4A4A4B4A4A4A4B4B
+      4B4B4B4B4A4A4A4C4C4C4F4F4F50504F51515151515150505145454544454445
+      4544434343434343454545474747484747474747464646464646474747474847
+      464646454544444443444443444343424141424040403F3F3F3F403E3E3F3F3E
+      3E3D3D3D3C3C3C3C3C3C3C3C3C3B3B3A3939393A393938383738383739383838
+      3737373637373635353434343534343434343435343434333232333333313131
+      2F2F2F2A292A292929292A292829292828282F2E2D3030313031313030303130
+      302F2F2E2F2F2E2F2E2D2F2E2E2F2D2D2F2D2E2E2D2D2C2C2C2C2C2C2D2C2D2D
+      2C2C2D2C2C2C2C2C2C2C2C2C2C2B2C2C2B2C2C2B2C2A2B2C2A2B2B2B2A2A2A2A
+      2A292A2A2A2A2A292A2A29292A29292B2B2B2B2B2B2C2B2C2C2C2B2C2A2A2B2A
+      2A2A2A2A2A2A2928292927272726252626262626262626262626262525262526
+      2626262625262625262525272626272626262626262525262525272626262625
+      2626252626252525262525252525252525252625252626262626262626262625
+      2526252525252524242424242425242424242424232423232324232323232223
+      2322232222232222232221222122222121222121212121212021202021202021
+      2020212020202020201F201F201F201F1F1F1F1F1F1F1F1F1F1F1E1E1F1F1E1F
+      1E1E1E1E1E1E1E1E1E1E202020201F1F1F1F201F1F1F1F1F1F1D1C1C1C1B1C1C
+      1B1C1B1B1B1B1B1B1B1B1B1A1A1B1B1B1A1B1A1B1B1A1A1A1A1A1A1A1A1A1A1A
+      19191A1919191A19191918181918181918181818171817171817171817171717
+      1617161617171716161716161616161615161615161515151516151615151515
+      1515151515151515141414141414131313111111101111101111111011101011
+      1111121414152A2A2A2F2F303435343939393E3E3E1D1D1D0E0E0E0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0D0D0C0C0C0C0C0C0D0C0C0C1B1E1E0B
+      0C0B303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303232323A3A3A3F3F3F3F3F3F3F3F3F40
+      40404040404040404040404040404040403F3F3F3A3A3A3131312F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030
+      303131313535354646464B4B4B4E4E4E5353535656565A5A5A4646462D2D2D2D
+      2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B31313132323233
+      33333535353636363232322A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2C2C2C313131
+      3131313131313131313232323232323232323232323232313232313332323332
+      3233323233323234333334333335343435343435343435343434343435353536
+      3636363636373737373737373737373737363636343434343434343434353535
+      3C3C3C4B4B4B5050505454545858585353533939393A3A3A3A3A3A3A3A3A3C3C
+      3C3D3D3D3D3D3D3E3E3E3F3F3F40404040404041414142424241414142424242
+      4242424242424242424242424242424242424242424242414141414141404040
+      3F3F3F4040403F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3E3E3E3E3E3E3E3E
+      3E3F3F3F40404040404040404041414141414142424242424243434343434343
+      4343444444454545464645464646474747484748474647464646464646464647
+      4646474647464B4B4B4C4C4C4C4C4C4E4E4D4F4E4F4243434141414242414041
+      403F403F3E3F3E3E3E3E3D3D3D3D3D3D3C3C3B3C3C3C3A3A3A393939393A3A39
+      39393A3A3A3A3A3A3A3A3A3939393A3A3A383938383838393839393838383838
+      3838383939393838383838383938383838373737373737363736363635353535
+      3535343434343333333333343332333232323231313130313130302F302F302B
+      2C2B2828282828272727272727272928293030302F2F302E2E2E2E2E2E2E2E2E
+      2E2D2D2D2E2D2D2E2D2D2D2C2D2D2C2C2B2B2C2B2B2C2C2C2C2C2C2B2C2C2B2B
+      2B2B2B2B2B2C2B2B2B2B2B2B2A2B2A2A2A2A2A2A2A2A2A29292A292A29292929
+      29292929282828292828282828282929292B2A2B2B2B2B2A2A2A2A2A292A2A2A
+      2929292929292929292928282828272626272525252525252625252626252625
+      2426262527262526252527262626252626252626252526252526262626252626
+      2525262625262626272727272727272726272727262626272626262626262524
+      2525252525242524252425242424242424242323242323232423232323222323
+      2223222223222123212122212222212222212121202021212121212020202021
+      20202020201F1F1F1F1F20201F1F201F201F1F1F1F1F1E1F1F1F1F1F1E1E1E1E
+      1E1E1E1F1F1F202020201F1F202020201F1F1E1E1E1C1C1C1C1C1C1C1C1C1B1B
+      1C1B1B1C1C1B1B1B1B1B1B1B1B1B1B1A1A1B1A1A1A1A1B1A1B1A1A1A1A1A1A19
+      1A191A1919191818191818191818191818181818181717181718171717171717
+      1616161717161716171616171616161616161515161615151516151515151515
+      1515151515141514151514141513131311111110101111111110101111121219
+      19192C2C2C3232323938393D3D3E4141411111110E0E0E0E0E0E0D0E0D0D0D0E
+      0E0D0E0D0D0D0D0C0D0D0D0D0C0C0D0C0C0D0C0C0D0C0C0C1E1E1E0C0C0C3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303434343B3B3B3F3F3F4040404040
+      404040404040404040404040404040404040404040403B3B3B3434342F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303030313131353535
+      4545454A4A4A4E4E4E5252525555555959594848482D2D2D2C2C2C2C2C2C2B2B
+      2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2929292929292D2D2D3131313232323333
+      333535353535352929292929292929292929292A2A2A2A2A2A2F2F2F30303030
+      3030303030303030313131313131313131313130313130313130313131313131
+      3131313131313231313232323232323332323332323232323232323232323434
+      343434343535353535353535353333333232323333333333333232323B3B3B4A
+      4A4A4D4D4D515151565656505050363636363636373737383838393939393939
+      3939393B3B3B3B3B3B3B3B3B3D3D3D3D3D3D3E3E3E3E3E3E3E3E3E3E3E3E3F3F
+      3F3F3F3F3F3F3F3F3F3F3F3F3F3E3E3E3E3E3E3E3E3E3D3D3D3D3D3D3D3D3D3D
+      3D3D3D3D3D3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D
+      3D3D3D3D3D3D3D3D3D3E3E3E3E3E3E3E3E3E3F3F3F3F3F3F4040404040404040
+      4041414142414242424143434243434343434343444442424242424243434442
+      42424747474747474848484949494A4A494343443D3D3D3D3E3E3D3C3C3D3D3C
+      3B3B3B3B3B3B3A3A3A3939393838383838373838383737373737363636373536
+      353434343434343434343333323132323031313031302F2F2F2F2F2F2E2E2E2F
+      2F2F2F2F2F2E2D2E2E2E2F2F2F2F363535353634343434343333333333333333
+      3333333333323232313031303130302F2F2F2F2F2F2F2F2F2F2E2E2E2D2D2726
+      282626262726262626262626262A2A2A2E2E2E2E2D2E2E2D2D2D2D2D2D2D2D2C
+      2D2C2D2D2C2C2C2B2B2B2A2B2A2A2C2B2A2B2A2A2A2B2B2B2B2A2B2B2A2A2A2B
+      2B2A2B2A2A2B2A2A2A2A2A292A29292A29292A29292929282928282828282828
+      282827282828282727282727272727272928282A2A292A292929282929292929
+      2828272828272828282828292929282828272727282727272625272627272525
+      2625252726262626262626262726262627262827262828282828282929282829
+      2829282828272728272726262727262727262726262626262726262525252524
+      2525252525252424242425242424242424242424232424242423232322232322
+      2222222322222221222221212221222221212121212121202020212120212020
+      202020201F201F201F201F1F1F1F1F1F1F1F1F1E1F1F1F1F1F1E1F1F20201F20
+      201F2020202020201F20201F1F1F1C1C1C1C1C1C1C1C1C1B1C1C1C1B1B1B1C1B
+      1B1B1C1B1B1B1B1B1B1B1B1A1B1B1B1A1B1B1A1A1A1A1A1A1A1A191A1A191A19
+      1919191919181819181818181819171719181818171818171717171717161717
+      1716171616161616161716161616161616151515161516151516151515151515
+      1514151514151414141414131111111111111110111212121212132120202E2F
+      2E3435353A3A3A4140413232320E0E0E0E0E0E0E0E0E0E0D0E0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0C0C0C0D0C0C0C0C1E1E1E0C0C0C303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303434343C3C3C404040404040
+      4040404040404040404040404040404040404040404040403E3E3E3837383131
+      312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030303131313232324444444949494E
+      4E4E5252525555555858584E4E4E2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A
+      2A2A2A2A2A2A2929292929292929292929292929292929292929292929292929
+      2929292929292929292929292929292929292929292929292929292929292929
+      29292929292828282828282828282828282929292F2F2F303030313131333333
+      3333333030302828282828282828282828282929292A2A2A2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F2F30
+      2F2F302F2F302F2F313030313030323131313131313131313131313131313131
+      3131313030302F2F2F2F2F2F2F2F2F3030303131313131313C3C3C4646464B4B
+      4B4F4F4F53535344444434343434343435353535353535353536363637373738
+      38383838383838383A3A3A3A3A3A3A3A3A3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C
+      3C3C3C3B3B3B3C3C3C3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3A3A3939393A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3B3B3B3B
+      3B3B3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D3D3D3D3E3E3E3E3E3E
+      3F3F3F3F3F3F3F3F3E3F3F3F3E3F3F3F3F3F3F3E3E3E3E3E404040403F3F4241
+      414444444444444646464747474545453B3B3B3A3A3A3A3A3A3A393938383838
+      3737373737373737363636353534353535353435333434333333333333333333
+      3232323131313030303030302F2F2E2E2E2E2E2D2D2E2E2D2C2C2D2C2C2C2C2C
+      2C2B2B2B2B2B2B2B2B2A31313132323232323232323232323232323231313131
+      31313030302F2F2F2E2F2F2F2E2E2E2E2E2E2E2E2D2C2C2C2C2C2A2A2A252425
+      2525252625252424242324242B2A2B2D2C2C2C2D2C2C2D2D2C2D2C2C2C2C2A2B
+      2A2B2B2A2B2B292A2A2A2A2A2A2A2A2A2A2A2A292A2A292A29292A29292A292A
+      2A2A292929292928292928292927292928282827282727282728272727262726
+      2727262726262627272726262626262526262727262828272828272827272727
+      2727272728282827282728282828282728272728262728282827282729282928
+      2928292A29292928292828292929282829282829292929292929292929292928
+      2828272927272827272727272627262627272626262525262525252425252524
+      2524242425242524252424242424242423242323232323242323232223232222
+      2222232222232222232121222121212020212121212121212021212020202020
+      20201F1F2020201F201F1F1F1F1F1F1F1F1F1F1F1F1F1F1E21202021201F2020
+      1F20202020201F1D1E1E1C1C1C1D1D1D1D1C1C1C1C1C1C1C1C1B1B1C1C1C1C1C
+      1B1C1B1B1B1B1B1B1B1B1B1A1B1B1A1A1A1A1A1A1B1A1A191A1A1A1A19191919
+      1919191918181918181918181918171817171817171717171717171617171717
+      1616161617161716161616161616161615161516151515151615151515151515
+      1415151415131313121211111111111111121212151415292929313131383838
+      3E3E3D4343432323230F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C1E1E1E0C0C0C30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303232323A3A3A40404040
+      40404040404040404040404040404141414141414141414141414141413C3C3C
+      3535352F2F2F2F2F2F3030303131313333334242424949494D4D4D5151515656
+      565858585151512F2F2F2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929292929
+      2929282828282828282828282828282828282828282828282828282828282828
+      2828282828282828282828282828282828282828282828282828282828282828
+      282828282828282828282828282828282B2B2B2F2F2F30303031313132323233
+      33332828282727272727272727272727272828282D2D2D2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2F2F2F2F2F2E2F2F2E2F2E2E2F2E2E2F2E2E2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F302F2F2F2F2F2F2F2F2D2D2D2D2C2D2C2C2C2C2C2C2C
+      2C2C2C2C2C2D2D2D2D2D2D2E2E2E2E2E2E3030303939394444444A4A4A4E4E4E
+      5151514242423131313232323232323333333333333434343434343535353535
+      353636363737373737373737373838383939393939393838383939393939393A
+      3A3A393939393939383838383838383838383838383838383838383838383838
+      3838383838383838387C7C7C9393939393938C8C8C6E6E6E4040403838383939
+      393939393939393A3A3A3939393939393A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3C
+      3C3C3C3C3C3D3D3D3C3C3C3C3D3D3B3C3B3B3B3C3C3C3C3B3B3B3C3C3C414141
+      4141414242424343434343433938393737363738383737373636363635353534
+      343434343333333232323232323232323232323132313030302F2F2F2F2F2F2E
+      2E2E2D2D2D2D2D2D2D2C2D2D2D2D2C2C2C2B2C2B2C2C2C2A2B2A2A2A2A292929
+      292929292A2A2A2B2B313030313030303030313030313030302F2F2F2F2E2E2E
+      2D2D2D2E2D2D2E2E2D2D2D2E2E2C2C2C2B2C2C2B2C2C2B2B2C27262624242423
+      23232323232323232525252C2B2B2C2B2C2B2B2B2C2C2B2A2A2A2A2A2A292929
+      2929292A2A292929292929292A2A292A29292928292928292829292829292929
+      2828282828282828282728282628282628262727262627262626262626252625
+      2526252526252625252525252525252525252525252526272725272626262626
+      2727272726272626272827272727262827272727272828282828282828282828
+      292929292928282929292928282928282828282A292929292929282929292828
+      2827282727272727272626262626262626262526252525252525252525242525
+      2524242424242424252424242424242423242424232323232423222323222322
+      2123222223212122222122212121202121212021212021202120202020202120
+      20201F1F1F201F1F201F20201F1F1F1F1F20201F201F2020201F21201F20201F
+      1F1F1F1D1C1C1C1C1D1D1C1D1C1C1C1C1C1C1B1C1C1B1B1C1C1C1C1C1B1B1C1B
+      1B1B1B1B1B1B1B1B1A1B1A1A1A1A1A1A1B1A1A1A1A1A1A1A1A1919191919191A
+      1918191918191818191818181818181718181717171717171717171717171717
+      1616161616161616161615151616161516151516161515151515151515151415
+      1512111311111212111111111112121219191A2C2D2D3232323A3A3A3F3F3F45
+      45451212120E0F0E0E0F0E0E0F0F0E0E0E0D0E0E0E0E0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0C0D0D1E20200D0C0D3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303232323939393F3F
+      3F40404040404041414141414141414141414141414141414141414141414140
+      40403B3B3B3636363232324141414949494C4C4C515151565656585858515151
+      2F2F2F2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929292929292828282828282828
+      2828282827272727272727272727272727272727272727272727272727272727
+      2727272727272727272727272727272727272727272727272727272727272727
+      2727272727272727272727272727272D2D2D2E2E2E2F2F2F3030303131312E2E
+      2E2626262626262626262626262626262828282D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C
+      2B2B2B29292A2929292929292A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2C2C2C2C2C2C2E2E2E3A3A3A4343434747474B4B4B4F4F4F3D
+      3D3D2F2F2F303030303030323232323232323232333333333333333333343434
+      3434343434343535353636363636363636363535353636363636363636363636
+      3636363636363636363637373736363636363635353535353535353536363636
+      3636363636B3B3B3B3B3B3B3B3B3B3B3B3B3B3B39B9B9B3E3E3E363636363636
+      3737373737373737373737373838383838383838383939393939393939393939
+      3939393939383939393939393939393939393A3939393938383C3C3C3E3E3E3F
+      3F3F4040404141403D3D3D3B3C3B3A393A383838383838363636343334323232
+      3232323232323232323131312F303030303030302F2E2E2E2D2D2D2D2D2D2D2D
+      2D2C2C2C2C2B2B2A2A2B2A2A2A292A2A29292A29282928282828282828282828
+      28282828272E2E2E2F2F2E3030302F2E2E302E2E2E2D2D2D2D2D2D2D2D2D2D2C
+      2C2C2D2C2C2B2B2B2C2B2B2C2B2B2B2B2B2B2B2B2B2828292423242423242423
+      232423232323232626252B2B2B2A2A2A292A2A2A292929292929292929292929
+      2929292928292929292828292828292828282828282827272827282827272727
+      2727272727272727272727262626262626262726262626262626262526252626
+      2525252525252525252524252524252525252524252424252425252526252526
+      2625262626262726262626272726272626282727282828282828282828282828
+      2929292929282929292A28292829292A2A292929292929292827282728272726
+      2726262626262626262625252625252626252525252525252525252524252424
+      2525252524242424242424242424242423242423242323232322232322232222
+      2222212222212221212222212221212121212120212120212020202120202020
+      202020201F201F1F201F20202020202020202021201F201F2020201F1D1E1D1D
+      1D1D1D1D1D1C1C1D1D1D1C1C1C1D1C1C1C1B1C1C1C1C1C1C1C1B1C1C1B1C1C1B
+      1B1B1B1B1B1B1B1B1B1A1B1A1B1A1B1A1A1A1A1A1A1A19191A19191A18191918
+      1819191819181819181818171818181817181717171717161716161716161616
+      1616161616171616151616161615151515151515161615151516141414121212
+      1211121211111212121414142222222F2F2F3635353D3D3C4343423434340F0F
+      0F0F0F0F0E0F0E0E0E0E0F0E0E0E0E0E0E0E0D0E0D0D0E0D0E0D0D0E0D0D0E0E
+      0D0D0D0D0D0C0C0C1E20200D0C0C303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030313131373737
+      3F3F3F4141414141414141414141414141414141414141414141414141414141
+      414343434444444848484C4C4C5151515555555858585757573535352C2C2C2B
+      2B2B2B2B2B2A2A2A292929292929282828282828282828272727272727272727
+      2727272727272626262626262626262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      26262626262626262626262828282D2D2D2E2E2E2F2F2F303030313131272727
+      2525252525252525252525252525252A2A2A2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2A2A2A2A292929292929292928282927272727272727272727272728
+      28282828282828282828282828282929292929292A2A2A2A2A2A2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2E2E2E3C3C3C4343434848484B4B4B4E4E4E3636362E2E
+      2E2E2E2E2E2E2E2E2E2E2F2F2F30303031313131313131313132323232323232
+      3232333333333333333333333333343434343434343434343434343434333333
+      3434343434343434343333333333333434343434343434343434343535353535
+      35B5B5B5B5B5B5B5B5B5B5B5B5B5B5B5B5B5B595959535353535353535353535
+      3535353535353535363636363636363636363636373737373737373737373737
+      3737373636363737373536353635353536363636363839383B3B3B3D3D3D3E3E
+      3E3E3E3E3E3F3F40404041404141404040403F403F3F3E3F3E3F3E3E3E3E3E3D
+      3D3D3A3A3A3A3A3A3939383636373535353534353334333030313030302E2E2F
+      2C2C2C2A2A29292A2A2828282828282828282727272727272727272727272626
+      262929292F2F2E2E2E2D2D2D2D2D2D2D2D2D2C2D2C2C2C2C2C2B2B2B2B2B2B2B
+      2B2B2A2B2A2B2A2A2A2A2A2A2A2A292929292929272727222123232222222222
+      2222222222222626262828292828292828292828282929292929292929282929
+      2829282829282828282729272728272727262727272727272727272727272727
+      2727272727272726272726262625262626262525262525252525252524252524
+      2425252424242424242424242423242424242423232423232424242423232423
+      2424242426252526252626262627262628272628282828282829282828282829
+      2928282828282928282828272828282828282727272727272726272627262726
+      2626262626262626262626262626252626252626252525252525252425252424
+      2424242524242424242424242424232424232323232323232223232223222123
+      2221232122222221222121222120212121212020202020202120202021201F1F
+      1F201F21201F202020212020202020201F1F2120201F1F1E1E1E1D1D1D1D1D1D
+      1D1D1C1D1C1D1D1C1D1D1C1C1D1C1C1C1C1B1C1C1C1C1B1B1B1B1C1B1B1B1B1C
+      1B1B1B1B1B1A1A1B1A1B1B1A1A1A1A1A1A1A1A1A1919191919181A1919191918
+      1919181918181818181818171718181717171717171717171717161616161716
+      1716161616161616161616161516151615151515151613131312121212121212
+      11111212131516152B2B2B3132323839383F3F3F4444442324230F0F0F0F0F0F
+      0E0F0E0E0E0E0F0F0F0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0C0D2020200D0D0D30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303035
+      35353C3C3C414141414141414141414141414141414141424242434343454545
+      4747474B4B4B5050505454545858585656563535352C2C2C2C2C2C2B2B2B2A2A
+      2A2A2A2A29292928282828282827272727272727272726262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262525252525252525252525
+      252525252525252525252B2B2B2C2C2C2D2D2D2F2F2F3030302E2E2E25252525
+      2525252525252525252525262626272727272727272627272627262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      262727272727272727272727272727272929292929292A2A2A2B2B2B2B2B2B2F
+      2F2F3434343A3A3A4040404343434747474A4A4A4C4C4C3434342C2C2C2C2C2C
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2F2F2F2F2F2F2F2F2F3030303030303131
+      3131313131313131313131313131313132323231313132323232323232323232
+      3232323232323232313131313131323232323232333333323232323232535353
+      3232323A3A3A848484B6B6B6B6B6B6B6B6B65454543333333333333333333434
+      3434343433333333333333333334343434343434343434343435353534343334
+      34343434343434343433343433343433343534353A3A3A3B3A3B3B3B3B3C3C3D
+      3D3D3D404040404040403F403F3F3F3F3F3E3E3E3E3E3E3E3E3D3D3D3D3D3C3C
+      3C3C3C3C3C3C3C3B3B3B3B3B3B3B3B3B39393939383938373738373737373737
+      37373535353535353232313030302A2A2A262626262626262626252525252425
+      2B2A2A2D2D2B2D2C2C2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2A2B2A2A2B2B
+      2B2A2A2A292A2A29292929292929292929292825242522222222212222212121
+      2121212121272727292928292928282928292829282828282828282827282827
+      2727272727272826272727272727272726272726272727272726262627272626
+      2626262626262526262525252525252426252425242424242424232324242424
+      2323242323232323232323232323232323232323232323242322232323232222
+      2423232423242424242424242525252425252626262727262626272828282727
+      2728282827272728272729282728272728272727272727272627272726262626
+      2727262626262626262626262526252526252526252525252525242524252425
+      2524252524242424242424242424242424242324232423232323222322222322
+      2122212122212122222122212121212121202120202021202021202020202020
+      20202121202120212020202020202020201D1D1D1D1D1D1D1E1D1D1D1E1D1D1D
+      1D1D1D1D1C1C1D1C1C1C1D1D1D1C1C1C1C1C1C1B1C1B1C1B1B1B1C1C1B1B1B1B
+      1B1B1B1B1B1A1B1B1B1A1A1A1A1A1A1A1A19191A19191A181919181919181819
+      1818191818181818181818181718171717181717171716171717161716161617
+      1616171616161616161616161516151616151212121212121212121213131414
+      141C1C1C2E2E2E3434343B3A3B4140414342421213130F0F0F0F0F0F0F0F0F0E
+      0F0E0E0F0E0F0F0F0E0E0F0E0E0E0E0E0D0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D
+      2020200D0D0D3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303232323939393F3F3F4141414242424242424343434444444646464949494E
+      4E4E5353535656565858583939392D2D2D2C2C2C2B2B2B2A2A2A2A2A2A292929
+      2828282828282727272727272626262626262626262525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252727272C2C2C2D2D2D2E2E2E2F2F2F3030302727272424242424
+      2424242424242424242424242424242424242425252525252525252525252525
+      2525252525252525252525252525262626262626262626262626262626262626
+      2727272828282828282828282828282B2B2B2F2F303535353838383A3A3A3A3A
+      3A3D3D3D4040404444444646464949494B4B4B2A2A2A2B2B2B2B2B2B2B2B2B2B
+      2B2B2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2F2F2F2F2F2F
+      2F2F2F2F2F2F3030303030303030302F2F2F3030303030303030302F2F2F3030
+      3030303031313130303031313131313131313131313131313131313131313131
+      3131313131A7A7A7B8B8B8B8B8B87D7D7D313131313131313131313131313131
+      3131313131313232323232323232323232323232323232323232323333333232
+      323232323131313131313130313031313738383939393A3A3A3B3B3B3C3C3C3F
+      3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3E3F3E3E3D3C3D3C3C3C3C3C3D3C3C3C3C
+      3C3C3C3B3B3B3A3B3A3A3A3A3A3A3A3838393838393737383636363434343333
+      333333333333333333332F302F2424242424242524252424242424242424252C
+      2B2B2C2C2C2C2A2B2B2B2A2C2A2A2B2A2A2A2A2A2A2A2A2A2A29292929292829
+      2828282928292828292828282827282727272323232020212020202021202020
+      2020202027272628282827282827272727282727272727272727272727272727
+      2727272727272626272627272625262526262625252526262526262525262525
+      2425252525242525242525242424242424242424242424232424242324242323
+      2324232323232323232322232323232222232223232223232223222224232324
+      2323242424242423242425252525252425262526272627262726272727272727
+      2828282827282727272828272827282827272727272726272627262726262626
+      2626262626262626262626262526262525252525252525242525252424242524
+      2424242424242424242424232424232424232323232322232322232222232221
+      2222212321222221212220212121212120202120212020202121212121212120
+      212020212020202020201E1E1E1D1E1D1E1E1D1E1D1D1D1E1D1D1D1D1D1D1D1D
+      1D1D1D1D1C1C1C1C1D1C1C1C1C1C1B1C1C1C1C1C1C1B1B1C1C1C1B1B1B1B1B1B
+      1A1B1B1A1B1B1B1A1A1A1A1A1A1A191A19191A18191A19191A18181918191918
+      1818181818181718181817171717181717171717171717171717161616171716
+      1616161616161616151616151515121312121213121212131313151514242425
+      3231313737373E3E3E4243433231320F0F0F100F0F0F0F100F0F0F0F0F0F0E0F
+      0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0D0D0E0E0D0D0D0D0D0E0D0D0D2020200D
+      0D0D303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303535353B3B3B4242424343434545454747474B4B4B4E4E4E5454
+      545757573E3E3E2D2D2D2C2C2C2B2B2B2B2B2B2A2A2A29292928282828282827
+      2727272727262626262626252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      25252525252A2A2A2B2B2B2C2C2C2E2E2E2E2E2E2D2D2D242424242424242424
+      2424242424242424242424242424242424242424242525252525252525252525
+      252525252525252525252525252525252626262626262626262727272727272A
+      2A2A2D2D2E3232323636363838383939393939393A3A3A3C3C3C3C3C3C3F3F3F
+      4242424444444747474848484949492929292929292A2A2A2A2A2A2B2B2B2B2B
+      2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D
+      2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030
+      306D6D6DBABABABABABA97979730303030303030303030303030303030303030
+      30303030303030303030303030302F2F2F303030303030303030303030303030
+      2F2F2F2F2F2F2F2F2F2F2F2F3232323838383939393B3A3A3D3D3D3F3F3F3F3F
+      3F3F3F3F3E3E3E3E3E3E3D3E3E3E3E3E3D3E3E3C3C3D3C3C3C3B3B3B3B3C3B3B
+      3B3B3B3B3B3A3A393A3A3939393A383939363737353636343434333433323232
+      3232323131313131312828282423232324242324232323232323232626262B2A
+      2A2A2A2A2A2A2A2B2A2A2A2A2A2A2A2A29292929292928292928282928292928
+      2828282828282828282828272727252525212120202021202020202021202120
+      2121212828272827272728282828272827272727272727272727262627262626
+      2627262627252626252526252525252525252525252525252525252525252525
+      2525242524252424252524242423242323242323232323232223222223222322
+      2222222222222222222323232223222222222323222323222322222323232423
+      2224242325252424242425252526262627262727272728282727272828282828
+      2828282828282827292828282727282727272627272726272726272626262626
+      2626262626262625252526252526262625252525252525252524242525252524
+      2425242424242424242424242423232323232323232223232223222223222222
+      2121222121222121222121212121212120222122222121212121212121212021
+      2020211F1F1E1E1E1F1E1E1E1E1D1E1D1E1E1D1D1D1D1D1D1D1D1D1C1D1D1D1C
+      1C1C1C1D1C1C1D1C1C1C1C1C1C1C1B1C1B1B1B1C1C1B1B1B1B1B1B1B1B1B1B1B
+      1A1B1B1B1B1B1A1A1A1A1A1A19191A19191A19191A1919191819191818191818
+      1818181817181718171818171817171717171717171717161616171616161616
+      1716161616161613121313121212131212121213131318191A2C2C2C34333439
+      3A3A4040414645461E1E1D100F100F100F0F0F0F0F10100F0F0F0F0F0F0F0F0E
+      0F0E0F0F0F0E0E0E0E0E0E0E0D0E0E0D0D0E0D0D0E0D0D0E2020200D0D0D3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303636363E3E3E4848484C4C4C4F4F4F5353533F3F3F
+      2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A2A2A2A2929292828282727272727272626
+      2626262625252525252525252525252524242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242626262B2B2B2C2C2C2C2C2C2E2E2E2F2F2F26262623232323232323232323
+      2323232323232323232323232323242424242424232323252525252525252525
+      2525252525252626262626262727272A2A2A2E2D2E3232323535353535353737
+      373737373838383A3A3A3A3A3A3C3C3C3D3D3D3D3D3D3F3F3F40404043434344
+      44444646464747474242422929292929292929292929292929292929292A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E525252
+      BCBCBCBCBCBCAAAAAA2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F2F2E2E2E2E2E2D2E2E2E2E
+      2E2D2E2E2E2D2D2D2E2E2D2F2F2F303030333333343435353536383838393939
+      3939393839393E3E3E3E3E3E3C3D3D3C3D3C3C3C3C3C3C3D3B3B3C3B3B3B3B3B
+      3B3B3B3B3A3A393A393A3838383738383535353332323131313030303030302F
+      2F2F2F2F2F2E2E2D2323232424232322222222222222222323222929282B2A29
+      2B2A2A2A2A2A2928282828282828282828282828282828282728282827282727
+      272626272626262626262626262324241F202020202020202020202020202021
+      2121272726272727262727272626272626262626272727272626272726272725
+      2626252625252625252625252425252425242524242524252424242424242424
+      2424242424242424242324232324232324232323232323232323232322222322
+      2223222222222222222222222222222322222222232322232222232323242323
+      2423232524242625252626262525262727272827272827282828282828282827
+      2829292828282729282728272728272727272727272727262727272726272626
+      2626262626262526262625252525252525252524252425252425242524252425
+      2424242424242424242323242324242324232323222323222222212322222222
+      212221212221212221212222212122222121212122212121212120211F20201E
+      1E1F1F1E1E1E1E1E1E1E1E1D1E1D1E1E1E1D1E1E1E1D1D1D1D1D1D1D1D1D1D1D
+      1C1C1C1D1C1D1C1D1C1C1C1C1C1C1B1C1C1C1B1B1C1C1B1B1B1B1B1B1B1B1B1B
+      1B1A1A1A1A1A1A1A191A1A19191A19191A191819191919181819191818181818
+      1818171817181718171717171718171717171717161617161616161717171616
+      1515151313121313121212131414141515152021212F2E2F3636373D3D3D4344
+      443F3F3F1010100F100F10100F100F0F0F0F100F0F0F0E0F0F0F0F0E0F0F0E0F
+      0F0F0F0E0F0E0E0F0E0E0E0E0E0E0D0E0D0D0D0D2023230D0D0E303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303232323A3A3A4444444242422E2E2E2D2D2D2D
+      2D2D2C2C2C2B2B2B2A2A2A292929282828282828272727262626262626252525
+      2525252525252424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2929292B2B2B2B2B2B2D2D2D2E2E2E2C2C2C2323232323232323232424242424
+      242424242424242424242424242424242525252525252626262929292D2C2D2F
+      2F2F313131343434343434353535363636363636373737383838383838393939
+      3A3A3A3B3B3B3C3C3C3D3D3D3E3E3E4040404040404242424343433E3E3E3434
+      342D2D2D27272728282828282828282828282828282828282828282828282828
+      28282929292929292A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D515151BEBEBEBE
+      BEBEBEBEBE2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2A2A29292929
+      29292929292929282828282929292C2C2D2C2C2C2B2C2B2E2E2E313131313031
+      3031313434343434333332333131313332333030302E2E2E2E2E2E2E2E2E2E2E
+      2E2F2F2F2828282222222222222222222223222222222424242A292929292829
+      2829292928292829282829282828282828282828272828272627262726272626
+      2626262626262626262626252323231F1F1F1F1F1F1F1F1F1F1F1F1F1F1F2121
+      2127272627262727262726272726262626262626262626262525262525252525
+      2525252525262525262525252525242525242525252524242424242524242423
+      2424232323232423232322222322222322222222222222222222222222222222
+      2222222222222122212222222223232222222223232223232224232325232425
+      2424252424252525262626272727262726282728292828282828282728292928
+      2929282828272828272828272827272727272727262627262726262626262626
+      2626262526262625262626252626262525242525252425252424242525242524
+      2424242424242424242324242324232323232322232322222222222222222221
+      2221212222212222222222212222222221222121212020201F1F1F1F1F1E1F1E
+      1E1E1E1E1E1E1E1E1E1D1E1D1E1D1E1D1E1D1D1E1E1E1E1D1D1D1D1D1D1D1C1C
+      1D1C1C1C1C1C1C1C1C1C1C1B1C1C1C1B1C1C1B1C1B1B1B1B1B1B1B1B1B1B1B1B
+      1B1A1A1B191A1A19191A19191A19191A19191A19191918181819181818181718
+      1818181818181717171717171817171717171716171716171617161614151413
+      13131213131312131314131616172C2C2C3333333939394040404545452B2C2B
+      1010101010100F1010101010100F10100F100F0F0F0F0F0F0F0F0F0F0E0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0E2020200D0D0E30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B
+      2B2B2B2B2A2A2A29292928282827272727272726262625252525252525252524
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424242424242424242626262A
+      2A2A2B2B2B2C2C2C2D2D2D2E2E2E262626242424252525252525272727272727
+      2A2A2A2C2B2C2D2D2D3030303030303333333333333333333434343636363636
+      363636363737373838383838383939393939393A3A3A3B3B3B3C3C3C3C3C3C3D
+      3D3D3F3F3F3F3F3F4040403F3F3F363636303030272727262626262626262626
+      2626262727272727272727272727272727272828282828282828282828282828
+      282828282828282828282929292929292A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C515151C0C0C0C0C0C0C0C0
+      C02C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2B2B2B
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2929292A29292A29292828282828282727
+      2727272727272727272727272727272727272727272726262626272625252525
+      25252525252424242524252524252525242B2B2B2D2E2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2222222222222222222222222222222121212626262928282928282828
+      2828282827282727272827272727272727272727262727272626272726272727
+      26262626262626262626252222221F1F1F1F1F20201F1F1F1F201F1F1F212121
+      2727262727262627272626262626262626262625262525252626252626252525
+      2525252525252525242525252525242525252524242424252424242424242423
+      2423232323232422232222232222232222222222222222222222222222222222
+      2222222221222221222222222222222323222323222423232424242424232525
+      2526262526262727262727272728282828282828282828282829292929292928
+      2828282828282827282727282727272727272727272727262626262726262626
+      2526262626262525252526252525252525242525252424242424252524242424
+      2424242424242423232324232424242323232222232222222123222122222223
+      22212222212222222122222222222020201F1F1F1F1F1F1F1E1F1E1F1F1E1F1F
+      1E1E1E1E1E1E1E1D1E1D1E1E1D1D1E1D1D1D1D1D1D1D1D1D1D1D1D1D1D1C1D1D
+      1D1C1C1D1D1C1C1C1C1C1B1C1C1B1B1C1C1C1C1B1B1B1C1B1B1B1B1B1B1A1A1B
+      1A1A1A1A191A1A191A19191A19191A1919191819191819181818181818181818
+      1817181818171717171717181717171717171717171616151313131413131313
+      131414141514151F1E1F2F2F303535353C3C3C43434246464613141310101010
+      10101010100F1010100F100F0F0F100F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0F0F
+      0E0F0E0E0F0F0E0E0E0E0D0D2023230D0D0E3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A
+      2929292828282828282727272626262626262525252525252424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424243838384C4C4C4C4C4C4C4C4C4C4C4C2E2E2E2A2A2A2B2B
+      2B2C2C2C2D2D2D2E2E2E2F2F2F31313132323232323233333333333333333334
+      3434353535353535353535353535353535363636373737373737383838393939
+      3939393A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E3E3E3E3939
+      393333332A2A2A25252525252525252525252525252526262643434357575774
+      74747474747474745858583A3A3A272727272727272727272727282828282828
+      2828282828282828282828282828282828282828282929292929292929292A2A
+      2A2A2A2A2A2A2A2A2A2A4747475050505050504747472A2A2A2A2A2A2A2A2A2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B515151C2C2C2C2C2C2C2C2C22B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B5151515151
+      515050505050503D3D3D2A2A2A2A2A2A2A2A2A2A2A2A292A2A2A2A2A2A2A2A2A
+      2A2A2929292829292929292727272827284F4E4F4E4E4E4E4F4E4E4E4E272727
+      2727272727272726262626272626262525252525262525253838384C4C4C4C4C
+      4C2424242424242424242324242424243E3E3E6464647777777777775C5C5C34
+      3434212221222221212221212121212121222222282827292827292828282828
+      2728282727272727272727272727273A3A3A4E4E4D7575747474756B6B6B4343
+      432626262626252626252121211F1F1F1F1E201F1F1F1F1F1F1F1F1F21212126
+      2726262726262726262626262626262626262626262625252625252525262525
+      2525252525252525252424242424242424242424242424242424242424232423
+      2324242224242223232223222223222222222221212122222222222222222222
+      2222212222212222222322222222242422242424242323242323262525262526
+      2726262727272727272827282728282928282828282929292929292929292828
+      2928282828282728272828272727272727272627262726262626262626262626
+      2625252526252525252525252525252525252425242524252525242424242424
+      2424242324242324242323232423232423222322222322222222222222212222
+      21222221222222212121201F201F1F1F1F201F1F1F1F1F1F1F1F1E1E1F1F1E1E
+      1E1E1E1E1E1E1E1E1E1E1E1D1E1E1E1E1E1E1D1E1D1D1D1C1D1C1C1D1D1D1D1D
+      1C1D1C1C1C1C1C1C1C1C1C1B1C1B1C1B1B1C1C1C1B1B1B1B1B1A1A1A1A1A1A1A
+      191A191A1A1A191A19191A191919181919191918181918181818181817181818
+      1818181717171718171817171717171717151415131413131313131313141314
+      1717172A292A3333333A393A3F403F4545453232331110111110101010101010
+      100F1010100F10100F100F10100F0F0F0F0F100F0F0F0F0F0F0E0F0E0E0E0F0F
+      0F0F0E0E0E0E0E0E2320230E0D0D303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A29292928
+      28282828282727272626262525252525252525252424242424242424249C9C9C
+      C4C4C4C4C4C49C9C9C2424242424242424242424242424242424242424242424
+      242E2E2EB0B0B0C4C4C4C4C4C4C4C4C460606024242424242424242424242460
+      6060A6A6A6C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4A6A6A67878782C2C2C
+      2D2D2D2F2F2F303030323232C4C4C4C4C4C4C4C4C45959593636363636363737
+      373737373737377E7E7EC4C4C4C4C4C49898983939393A3A3A3B3B3B3B3B3B3C
+      3C3C4E4E4EC4C4C4C4C4C4C4C4C43636363232322B2B2B242424242424242424
+      2525252525252525252525252F2F2F757575B0B0B0C4C4C4C4C4C4C4C4C4C4C4
+      C4C4C4C4C4C4C4C4C4C4B0B0B075757531313127272727272727272727272727
+      27272828282828282828282828282828289D9D9DC4C4C4C4C4C44F4F4F282828
+      6D6D6DB1B1B1C4C4C4C4C4C4C4C4C4C4C4C4B1B1B17777773434342A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A515151C4C4C4C4C4C4C4C4C42A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A4747478A8A8AC4C4C4C4C4C4C4C4C4C4C4C4
+      C4C4C4C4C4C4B1B1B18A8A8A5050502929292929292828282828272828282728
+      27282728454545898989C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C493939226
+      26262525262626252424242424254242429C9C9CC4C4C4C4C4C4C4C4C4C4C4C4
+      242424232323565656A6A6A6C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4BABABA6060
+      6021212121212121212121212121212123232328282829272828272727272727
+      27272727276C6C6CA6A6A6C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4B0B0B0
+      4E4E4D2626252625242121211E1E1F1F1F1FC4C4C4C4C4C4C4C4C4C4C4C4C4C4
+      C4C4C4C4C4C4C4B0B0B089898958585826252626252526252525252425252525
+      2424252424252424242424747474C4C4C4C4C4C49C9C9C242424242424232423
+      2323222424222422222D2C2CBABABAC4C4C4C4C4C4C4C4C45F5F5F2222222222
+      2222222123222222222324232324242324242325242426252527262627272627
+      2727272727282828282828292928292829292A2A292929292829292929292928
+      2828282828272827272827272726272726272627262626262726262626262625
+      2626252625252625252525252525252525242525242424242524242424242524
+      2424242323242323242423232322232222222222222122222122232222222221
+      2221212020202020201F201F1F201F1F1F1F1F1F1F1F1F1F1E1F1E1E1E1E1F1E
+      1E1E1E1E1E1E1E1D1E1D1D1D1D1D1D1E1D1D1D1D1D1D1D1D1D1C1D1D1D1C1D1D
+      1C1C1C1C1C1C1C1C1B1B1C1C1C1C1C1B1C1B1B1B1B1B1B1B1A1A1B1A1A1B191A
+      1A19191A19191A19191919191919191819191818181818181818181818181818
+      181718181818181717171616161414131414141314141414141515151C1C1D2F
+      2F2F3535353D3C3C4242424646461B1B1B111011101111111011101010101011
+      101010100F100F10100F0F0F101010100F0F0F0F0F0E0E0F0F0F0F0F0E0E0E0E
+      0E0E0E0E2323230E0E0D30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F2F2F
+      2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A2929292828282727
+      272727272626262525252525252424242424242424242424249E9E9EC7C7C7C7
+      C7C79E9E9E2424242424242424242424242424242424242424242424248A8A8A
+      C7C7C7C7C7C7C7C7C77F7F7F2424242424242424242E2E2E9E9E9EC7C7C7C7C7
+      C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C72C2C2C2D2D2D2F
+      2F2F323232353535C7C7C7C7C7C7C7C7C75C5C5C383838383838393939393939
+      393939818181C7C7C7C7C7C78181813B3B3B3C3C3C3D3D3D3C3C3C3737373232
+      32C7C7C7C7C7C7C7C7C724242424242424242424242424242424242424242424
+      24242525256C6C6CBDBDBDC7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7
+      C7C7C7C7C7C7C7C7C7C7C7C7BDBDBD5959592626262626262727272727272727
+      272727272727272727272727279F9F9FC7C7C7C7C7C75050508B8B8BC7C7C7C7
+      C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7B3B3B3464646292929292929
+      292929292929292929515151C7C7C7C7C7C7C7C7C72929292929292929292929
+      29292929292929646464C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7
+      C7C7C7C7C7C7C7C77878782828282828282828282828282828282828286E6E6E
+      C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C79E9E9E2525252524
+      252525252525252F2E2EBDBDBDC7C7C7C7C7C7C7C7C7C7C7C7C7C7C724232424
+      2424767676C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7555655
+      2121212121212121212121212121212524252827272827272727272727272727
+      279F9F9FC7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C74E
+      4E4E2626252525242121211F1F1FC7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7
+      C7C7C7C7C7C7C7C7C7C7C7C7B3B3B34E4E4E2626252625252625252625252624
+      24252424252424767676C7C7C7C7C7C79E9E9E24242424242424232424232324
+      2423232323A8A8A8C7C7C7C7C7C7C7C7C7606060222222222222222222222222
+      2323232323232424242424242425232525242625242626262727262727272827
+      282828282827282829292828282A292A29292929292929292929292828282929
+      2828282827282827272727272727272726272726262626262626262626262625
+      2625262526262525252525252525252525252425252425242424252424242424
+      2423242324242322222323222222222222212222212122212221212121202020
+      20202020201F1F201F1F1F1F201F1F1F1F1F1F1F1F1E1F1F1E1E1F1E1E1E1F1E
+      1E1E1E1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D1D1D1D1D1D1C1C1C1C1B1C1C1B1C
+      1C1C1C1C1C1C1B1C1C1C1C1C1C1C1B1B1B1B1B1B1A1A1B1A1A1B1A1A1A191A1A
+      1A191A1A1A1A1919191919191919181918191918181819181818181817171817
+      1817171717171515151414141414141313131514151818182727273232323939
+      39403F404544443A393911111111111110111111111110101011101010101010
+      10100F10100F10101010100F10100F0F100F0F0F0E0E0F0E0F0F0E0E0E0E0E0E
+      2323230E0E0E3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030302F2F2F2F2F2F2E
+      2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A292929282828272727272727
+      262626252525252525242424242424242424242424818181C9C9C9C9C9C97777
+      77242424242424242424242424242424242424242424585858C9C9C9C9C9C9C9
+      C9C99595952424242424242424242E2E2EAAAAAAC9C9C9C9C9C9C9C9C9B4B4B4
+      7777774D4D4D4D4D4D626262818181BFBFBFC9C9C92D2D2D2E2E2E2F2F2F3333
+      33363636C9C9C9C9C9C9C9C9C93A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3B3B3B82
+      8282C9C9C9C9C9C97E7E7E3030302A2A2A272727242424242424242424C9C9C9
+      C9C9C9C9C9C92424242424242424242424242424242424242424242424248B8B
+      8BC9C9C9C9C9C9C9C9C9C9C9C9BFBFBF8B8B8B777777777777777777969696BF
+      BFBFC9C9C9C9C9C9C9C9C9C9C9C98C8C8C262626262626262626262626262626
+      262626272727272727A0A0A0C9C9C9C9C9C9ABABABC9C9C9C9C9C9BFBFBF8282
+      82797979797979B5B5B5C9C9C9C9C9C9C9C9C9BFBFBF3C3C3C28282828282828
+      2828282828505050C9C9C9C9C9C9C9C9C9282828282828282828282828282828
+      656565C9C9C9C9C9C9C9C9C9BFBFBF8C8C8C6565655050505B5B5B797979ABAB
+      ABC9C9C9797979272727272727272727272727272727787878C9C9C9C9C9C9C9
+      C9C9C9C9C99696967778787878788B8B8CBFBFBFA0A0A0252525252525252525
+      242424818181C9C9C9C9C9C9C9C9C9A0A0A0777777B4B4B42424242424247676
+      76C9C9C98B8A8A4343442828283434348D8D8DC9C9C9C9C9C9B5B5B521212121
+      2121202020212020202020212121272727282727272727272727272727A0A0A0
+      C9C9C9A0A0A06464643B3B3B3B3B3A6E6E6EBFBFBFC9C9C9C9C9C9B5B5B42626
+      25262525252525212121C9C9C9C9C9C9C9C9C9A9A9A99E9E9E9E9E9EBFBFBFC9
+      C9C9C9C9C9C9C9C9C9C9C9C9C9C9636363262525262625262625262524252424
+      252424777777C9C9C9C9C9C9A0A0A02424242424242424242424242324238B8B
+      8AC9C9C9C9C9C9C9C9C976767622222222222222222223232322222223232323
+      2323242424242424242424262624262625272626282726282727282828292928
+      2928282929292929282A29292A2A292A292A292A292929292928292829292928
+      2728282728272728272727272627272726262626262626262626262526262625
+      2626252525252525252625252525252525252424242524252424242424242323
+      2222232223232222232222222222222222222221212120202021202020202020
+      2020202020201F1F1F1F1F1F20201F1F1F1F1F1F1F1F1E1F1F1F1F1E1F1E1E1E
+      1E1E1E1E1D1E1E1D1E1E1D1D1E1D1D1D1D1C1C1C181818191919191818191818
+      181819191819191918191A1A191A1A1B1A1B1A1B1A1A1A1A1B19191A1A1A1A1A
+      191A191919191919191819181919191818181818181918181718171818171817
+      16171415141414141414141515151616161C1D1E2F2F2E3535353C3C3C424241
+      4647472322221111111111111111111111111111101110111010101010101010
+      10101010100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0E0E2323260E
+      0E0E303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E
+      2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A29292928282827272726262626262625
+      2525252525242424242424242424242424787878CBCBCBCBCBCB787878242424
+      2424242424242424242424242424242E2E2EC1C1C1CBCBCBCBCBCBB6B6B62E2E
+      2E242424242424242424787878CBCBCBCBCBCBCBCBCB6D6D6D24242424242424
+      24242424242424242424242424247878782C2C2C2F2F2F323232353535383838
+      CBCBCBCBCBCBCBCBCB3535353434342F2F2F2F2F2F2A2A2A2A2A2A787878CBCB
+      CBCBCBCB787878242424242424242424242424242424242424CBCBCBCBCBCBCB
+      CBCB2424242424242424242424242424242424242424248C8C8CCBCBCBCBCBCB
+      CBCBCBC1C1C16363632424242424242525252525252525252525252525256E6E
+      6EC1C1C1CBCBCBCBCBCBCBCBCB8D8D8D25252526262626262626262626262626
+      2626262626A2A2A2CBCBCBCBCBCBCBCBCBCBCBCB8D8D8D313131272727272727
+      2727272727276F6F6FCBCBCBCBCBCBCBCBCBA2A2A22727272727272727272727
+      27505050CBCBCBCBCBCBCBCBCB272727272727272727272727464646CBCBCBCB
+      CBCBCBCBCBA2A2A2313131272727272727272727272727272727272727505050
+      6565652727272727272727272626264F4F4FCBCBCBCBCBCBCBCBCBACACAC3A3A
+      3B2526252625252525262525252E2F2E6D6D6D242424242424242424242424B6
+      B6B6CBCBCBCBCBCB828282242424242424232323232323232323777777626262
+      222223222323272727292A29343534CBCBCBCBCBCBCBCBCB4041412120212021
+      212020212020202121212827272827272827272727272727279898985A5A5A27
+      2727272727272727272727272727646565CBCBCBCBCBCBCBCBCB454544262525
+      262525262525CBCBCBCBCBCBCBCBCB4B494A1F1F1F1F1F1F1F1E1F3637368D8D
+      8DCBCBCBCBCBCBCBCBCBCBCBCB64646426252525252526252525252425252478
+      7878CBCBCBCBCBCBA1A1A1242424242424242424242424787778CBCBCBCBCBCB
+      CBCBCB8C8B8C2322222322222222222222222322222222232323232323232424
+      242424242525242626252626252727262827272727272827282929282928282A
+      29292928292A292A292A2A29292A29292A292929292928292928292928292827
+      2828272827282827272727272726272627262726272726272626262626262525
+      2626262625252525252525242525252524252424242423232323232323232323
+      2322232323222323222222222222222021212121212020212120202020202020
+      1F20201F1F1F1F1F201F1F201F1F201F1F1F1F1F1F1F1F1E1F1E1F1E1E1E1E1E
+      1E1E1E1E1E1E1E1D1E1E1D1D1E19191A19191919191918191918181818181918
+      1818181718171818181717171718171718171717171717171818181818181818
+      1818181918191919191919181819181919181818191818181818181615161415
+      1514141414141515151518181728282833333239393940404045454440414012
+      1212121212111212111111111110101011101110101110101010101010101010
+      1010101010100F0F10100F100F0F0F0F0F0F0F0F0E0F0F0F2626260E0E0E3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D
+      2D2D2D2C2C2C2B2B2B2A2A2A2929292828282727272626262626262525252525
+      25242424242424242424242424797979CECECECECECE79797924242424242424
+      2424242424242424242424A3A3A3CECECECECECECECECE444444242424242424
+      2424242F2F2FCECECECECECECECECE6F6F6F2424242424242424242424242424
+      24242424242424242424242424252525272727272727272727242424CECECECE
+      CECECECECE242424242424242424242424242424242424797979CECECECECECE
+      797979242424242424242424242424242424242424CECECECECECECECECE2424
+      24242424242424242424242424242424838383CECECECECECECECECEA3A3A32F
+      2F2F242424242424242424242424242424242424242424242424252525303030
+      AEAEAECECECECECECECECECE7A7A7A2525252525252525252525252525252525
+      25A4A4A4CECECECECECECECECE8F8F8F26262626262626262626262626262626
+      2626262626656565CECECECECECECECECE505050272727272727272727515151
+      CECECECECECECECECE2727272727272727272727279A9A9ACECECECECECEAFAF
+      AF27272726262626262626262626262626262626262626262626262626262626
+      2626262626262626262626A4A4A4CECECECECECEAEAEAE302F30242524252525
+      242424242424252425242524242524242424242424242424242424CECECECECE
+      CECECECE39383823242323242323232323232323242338383823232322232322
+      22232727272929292A292AAFAFAFCECECECECECE4C4C4C212121202020202120
+      2021202424242827282827272827272727272727274646462727272727272727
+      27272727272727272727262727CECECECECECECECECE51514F27262526252525
+      2424CECECECECECECECECE4B4B4B1F1E1F1F1F1F1F1F1F1F1F1F1F1F1F444544
+      C3C3C3CECECECECECEC3C3C33B3B3A2526252526252626242525257A7979CECE
+      CECECECEA3A3A3242424242424242424646464CECECECECECECECECEA3A3A323
+      2322232222242222222222222222222323232223242323242323242424252525
+      2525252626262626262727262828272928282928272A29282929292A29292929
+      29292A2A292A2A2A2A292A29292A292929292929282929292929282928282728
+      2828282727282727272727272626262726272627262626262525262526252625
+      2626252525252525252525252425242323242323232323232323232323232222
+      2323232322232222212222212121212121212121212020202020212020201F20
+      20201F1F201F1F1F1F20201F1F1F1E1F1F1F1F1F1F1E1F1F1E1F1E1E1E1E1E1E
+      1E1E1E1E1E1E1A1B1A1919191919191919191819191819181818191818181818
+      1818181817171818181817181818181717171717171717161716161617171616
+      1616161616161516161616171717161716171717161616151415151414141515
+      1615151616161D1D1E2F2E2F3536363C3C3C4342424747472626261111121211
+      1211111111111211111111111111111011101010111110101010101010101010
+      100F10100F0F0F100F0F0F0F0F0F0F0F0F0E0F0F2326230E0E0E303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C
+      2C2C2B2B2B2A2A2A292929282828272727262626262626252525252525242424
+      2424242424242424247A7A7AD0D0D0D0D0D07A7A7A2424242424242424242424
+      24242424656565D0D0D0D0D0D0D0D0D07A7A7A24242424242424242424242470
+      7070D0D0D0D0D0D0A5A5A5242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424242424D0D0D0D0D0D0D0D0
+      D02424242424242424242424242424242424247A7A7AD0D0D0D0D0D07A7A7A24
+      2424242424242424242424242424242424D0D0D0D0D0D0D0D0D0242424242424
+      2424242424242424244F4F4FD0D0D0D0D0D0D0D0D0A5A5A52424242424242424
+      242424242424242424242424242424242424242424242424242424242F2F2FB0
+      B0B0D0D0D0D0D0D0D0D0D0454545252525252525252525252525252525A5A5A5
+      D0D0D0D0D0D0C5C5C53030302525252525252525252626262626262626262626
+      26262626A5A5A5D0D0D0D0D0D09B9B9B262626262626262626515151D0D0D0D0
+      D0D0D0D0D0262626262626262626313131D0D0D0D0D0D0D0D0D03B3B3B262626
+      2626262626262626262626262626262626262626262626262626262525252525
+      25252525454545D0D0D0D0D0D0D0D0D03A3A3A25252525252424252525242425
+      2425252525242424242424242424242424242424242424D0D0D0D0D0D0D0D0D0
+      2324232323232323242323232423232423232323232323232122222424242626
+      27282727535453D0D0D0D0D0D0D0D0D037373721212120202120212021212128
+      2728282727282727282727282727272727272727272727272727272727272727
+      2727272727273C3B3CD0D0D0D0D0D0D0D0D0515151262626272526262525D0D0
+      D0D0D0D0D0D0D04B4C4B1F1E1F1F1F201F1F1F1F1F1F1F1F1F1E1F1F434443D0
+      D0D0D0D0D0D0D0D09090902626262626252626252525247B7B7AD0D0D0D0D0D0
+      A5A5A5242424242424444444D0D0D0D0D0D0D0D0D0B0B0AF2F2F2E2423222424
+      2323222323222223222223222222222323232424232324242425252525252526
+      26262627272727272828272929282928282929292A29292A2A2A2A29292A2A2A
+      2A2A2A292A2A292A292A2A2929292A2929292929292828292828292828272828
+      2728272728272727262727262626262726272626262625262626262526262525
+      2525252525242424242423242323242423232323232323232323232223222323
+      222222222122222121222121212121212121212020212020202020201F1F2020
+      202020201F201F1F201F1F1F1F1F1F1F1F1F1E1E1E1F1F1E1E1E1E1E1E1E1E1C
+      1C1B1A191919191919191A19191A191919191919191819191819191818181818
+      1818171717181717171817181717171717171717171716171616161616161616
+      1616161616161616151615161515161615151515151515151514141515161518
+      18182828283333333A393A404040454545414141121212111112121212111211
+      111211121111111111111111111011111111101110111010101010101010100F
+      0F0F100F0F0F100F0F0F0F0F0F0E0F0F2626230F0E0F30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B
+      2B2A2A2A29292928282827272726262626262625252525252524242424242424
+      24242424247C7C7CD3D3D3D3D3D37C7C7C2424242424242424242424242F2F2F
+      C8C8C8D3D3D3D3D3D3B2B2B22424242424242424242424242424249C9C9CD3D3
+      D3D3D3D366666624242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424D3D3D3D3D3D3D3D3D3242424
+      2424242424242424242424242424247C7C7CD3D3D3D3D3D37C7C7C2424242424
+      24242424242424242424242424D3D3D3D3D3D3D3D3D324242424242424242424
+      2424242424BDBDBDD3D3D3D3D3D3BDBDBD2F2F2F242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242F2F2FC8C8
+      C8D3D3D3D3D3D3A7A7A7242424242424242424252525252525A7A7A7D3D3D3D3
+      D3D3878787252525252525252525252525252525252525252525252525252525
+      5C5C5CD3D3D3D3D3D3C8C8C8252525252525252525515151D3D3D3D3D3D3D3D3
+      D3252525252525252525515151D3D3D3D3D3D3B2B2B225252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      7C7C7CD3D3D3D3D3D39C9C9C2525252525242525252424242424242424242424
+      24242424242424242424242424242424242424D3D3D3D3D3D3D3D3D324242324
+      23242323232323232223222222222222222222222122222424242626275E5D5E
+      C8C8C8D3D3D3D3D3D3BDBDBD2121212121212121212121212424242928282927
+      2728272728282728272727272727272727272727272727272727272727272727
+      27279D9D9DD3D3D3D3D3D3D3D3D3515251262626262525262526D3D3D3D3D3D3
+      D3D3D35050502121201F1E1F1F1E1F1F1F1F1F1F1F1F1F1F1F1F1F7A797AD3D3
+      D3D3D3D3D3D3D33131312625262626252525257C7D7CD3D3D3D3D3D3A7A7A725
+      2424454545C8C8C8D3D3D3D3D3D3C8C8C82F2F2E242423242423242322242322
+      2323222323232422232322232424242423232525242525252626262625262727
+      272728272828282929292929282A29292929292A2A292A2A292B2A2A2A2A2A2A
+      2A2A2A2A2A2A292A29292A292929292929292929292928282928292828282827
+      2827272827272727272727272727272627262626262625262625262625262524
+      2524232324232324242324242424242423232323242423232223222223222222
+      222122212122212221212121212120212121202021202020202020202020201F
+      201F201F2020201F1F1F1F1F1F1F1F1E1F1E1F1F1E1E1E1E1E1D1E1A191A1A19
+      1A19191919191A19191919191919191919181919181918181819191918181818
+      1818181818181818181817171717171717161716161717171617161616161716
+      1616161615161616161615151615151515151515151616151617171E1E1E3030
+      303636363E3E3E42434347474827262612121212131212121212121112111211
+      1212111112111111111110111011111011111010101011101010100F10100F10
+      0F100F0F100F0F100F0F0F0F2623260F0F0F3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A
+      2929292828282727272626262626262525252525252424242424242424242424
+      247D7D7DD5D5D5D5D5D57D7D7D2424242424242424242424249D9D9DD5D5D5D5
+      D5D5CACACA3A3A3A242424242424242424242424242424A9A9A9D5D5D5D5D5D5
+      D5D5D5B4B4B4A9A9A97D7D7D7272725050503A3A3A2424242424242424242424
+      24242424242424242424242424242424D5D5D5D5D5D5D5D5D524242424242424
+      24242424242424242424247D7D7DD5D5D5D5D5D57D7D7D242424242424242424
+      242424242424242424D5D5D5D5D5D5D5D5D52424242424242424242424245C5C
+      5CD5D5D5D5D5D5D5D5D55C5C5C24242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424676767D5D5D5
+      D5D5D5D5D5D5454545242424242424242424242424A9A9A9D5D5D5D5D5D55050
+      50242424242424242424242424252525252525252525252525252525252525D5
+      D5D5D5D5D5D5D5D5252525252525252525515151D5D5D5D5D5D5D5D5D5252525
+      2525252525257D7D7DD5D5D5D5D5D5D5D5D5BFBFBFA9A9A98888887D7D7D5151
+      51464646252525252525252525252525252525242424242424242424878787D5
+      D5D5D5D5D57D7D7D242424242424242424242424242424242424242424242424
+      242424242424242424242424242424D5D5D5D5D5D5D5D5D52223232323222322
+      23222223232222232222222222222222242424303030898889D5D5D5D5D5D5D5
+      D5D5D5D5D5595959212121212121212121212121282728292928282827292728
+      292727282728272727272727272727272727272727272727272727939393D5D5
+      D5D5D5D5D5D5D5BFBFBF262726262725262626272525D5D5D5D5D5D5D5D5D551
+      51512525242221221F1E20201E1F1F1F1F1F1F1F1F1E1F363636D5D5D5D5D5D5
+      D5D5D55252522625262625262526257D7D7DD5D5D5D5D5D5A9A9A9302F2FB4B4
+      B4D5D5D5D5D5D5CACACA45454524242424242424242424242324242223242324
+      2323242423242323242423242424252425252525262626272727272727282828
+      2829282A2A292A2A292A2A292B2A2A2B2A2A2A2A2A2B2A2A2B2A2A2A2A2A2A2A
+      2A2A2A2A292A2929292929292929292928292928282928282829282728282728
+      2727282727272726272627272627262626262626252525242423232423242323
+      2524232423232424232424232323232423222323222322222321222221222221
+      222221212121212121212121212120212121202020202020202020201F201F20
+      1F20201F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1A1A1A1A191A1A191A1A191A
+      1A1A1B1B1A1A1D1D1D2728272323242323231F201F1E1E1D1A1A1A1919191919
+      1919191819191819181817171717171717171716171617161617171616161615
+      16161616151515161516161516151515151616161919192B2C2C3434343A3A3A
+      4040404645464241411312131313121212121212121212121212121211111111
+      121111111111111111111111101011111010101010101010101010100F100F0F
+      100F0F0F0F0F100F2626260F0F0F303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A29292928
+      28282727272626262626262525252525252424242424242424242424247E7E7E
+      D8D8D8D8D8D87E7E7E242424242424242424515151D8D8D8D8D8D8D8D8D87373
+      73242424242424242424242424242424242424ABABABD8D8D8D8D8D8D8D8D8D8
+      D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8B6B6B6ABABAB7E7E7E737373
+      3B3B3B242424242424242424D8D8D8D8D8D8D8D8D82424242424242424242424
+      242424242424247E7E7ED8D8D8D8D8D87E7E7E24242424242424242424242424
+      2424242424D8D8D8D8D8D8D8D8D8242424242424242424242424949494D8D8D8
+      D8D8D8B6B6B62424242424242424242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424242424C1C1C1D8D8D8D8
+      D8D8898989242424242424242424242424ABABABD8D8D8D8D8D8515151242424
+      242424242424242424242424242424242424242424242424242424D8D8D8D8D8
+      D8D8D8D8515151242424242424515151D8D8D8D8D8D8D8D8D824242424242424
+      24247E7E7ED8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8
+      D8D8D8CDCDCDABABAB9494947E7E7E5C5C5C242424242424ABABABD8D8D8D8D8
+      D868686824242424242424242424242424242424242424242424242424232423
+      2324242323242323242323D8D8D8D8D8D8D8D8D8232323232223232222232323
+      222223222323222322232322464647C2C2C2D8D8D8D8D8D8D8D8D8D8D8D86566
+      6521212121212121212121212124242429292829282729282728272828272729
+      2827282727272727272727272727272727484848B7B7B7D8D8D8D8D8D8D8D8D8
+      D8D8D85F5F5E272726262726262626262625D8D8D8D8D8D8D8D8D85252522424
+      25252424232324201F20201E1F1F1F1F1F1F1F1F1E1FC1C1C1D8D8D8D8D8D87D
+      7D7D2525252626262526267F7F7FD8D8D8D8D8D8ABABABABABABD8D8D8D8D8D8
+      D8D8D85C5C5C2424242424242424242424242324232324232323222423232423
+      232423232524242424242424252626252626262728272828282828282828282A
+      29292A2A2A2A2A292B2B2A2B2A292A2A2A2B2B2A2B2A2B2B2A2A2B2A2A2A2929
+      2A2A292A2A2A29292A2929292929292929292929282829292928272928272827
+      2728272727272726262625252624252524242424242324242324242424232325
+      2324242323242423242323232323232322232222232222222222222122222122
+      2221212121212121212120212120202120202020202020202020202020201F20
+      201F201F1F20201F1F1F1F1F1F1B1B1A1A191B1A191A1A191A1B1A1B1A1A1B1D
+      1D1C2B2C2B2D2D2E2E2E2E2E2E2E2E2E2E2D2C2D2D2D2C2C2C2D292929282728
+      2423242221221E1E1F1C1D1D1919191818181717181718171717181717171616
+      161615161516161615151617161818182323233131313737373E3E3E44444448
+      4848212120131312131313121213121312121212111212111212111211121111
+      1111111111111110111011111111111110101110101010101010100F100F0F0F
+      100F0F0F2626260F0F0F30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F2F2F
+      2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A2929292828282727
+      27262626262626252525252525242424242424242424242424808080DBDBDBDB
+      DBDB808080242424242424242424C4C4C4DBDBDBDBDBDBA2A2A2242424242424
+      242424242424242424242424242424ADADADDBDBDBDBDBDB8B8B8B8B8B8BADAD
+      ADB9B9B9DBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDB80808024
+      2424242424242424DBDBDBDBDBDBDBDBDB242424242424242424242424242424
+      242424808080DBDBDBDBDBDB8080802424242424242424242424242424242424
+      24DBDBDBDBDBDBDBDBDB242424242424242424242424D0D0D0DBDBDBDBDBDB74
+      7474242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424248B8B8BDBDBDBDBDBDBC4C4
+      C4242424242424242424242424ADADADDBDBDBDBDBDB52525224242424242424
+      2424242424242424242424242424242424242424242424DBDBDBDBDBDBDBDBDB
+      2F2F2F242424242424525252DBDBDBDBDBDBDBDBDB2424242424242424248080
+      80DBDBDBDBDBDBADADAD808080A2A2A2ADADADDBDBDBDBDBDBDBDBDBDBDBDBDB
+      DBDBDBDBDBDBDBDBDBDBDBB9B9B92424242424248B8B8BDBDBDBDBDBDB808080
+      2424242424242424242424242324242423242424242424232424232323232324
+      23232423242423DBDBDBDBDBDBDBDBDB23232322232323232223222223232223
+      2223232222464646D0D0D0DBDBDBDBDBDBDBDBDBC5C5C5525252212121212121
+      2121212121212121212827272929282929282929282828272828282827282828
+      27272727272727272727767676DBDBDBDBDBDBDBDBDBDBDBDBDBDBDB97979727
+      2727272726262726262725272525DBDBDBDBDBDBDBDBDB535353242525242525
+      2424242424242121211F1E201F1F1F1F1F1FACACACDBDBDBDBDBDB7D7D7D201F
+      1F232222252525808181DBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDB69696924
+      2424242424242424242424242424242424242424232423242423242423242424
+      2524242525252525252525262726262727272828282929292829292A2A292B2A
+      2B2A2A2A2C2B2A2B2B2A2B2A2A2C2B2A2C2A2A2B2A2A2B2A2A2A2A2A2A2A292A
+      2A2A2A292A292929292A29292929282929292929292829282827292827282727
+      2626262425242425242425252424242424242424242423242323242424232424
+      2423242324242324232323232223232223222223222222222222222122222122
+      222121212121212021212021212120212020202020212020202020201F20201F
+      201F1F201F1F1B1B1B1A1A1A1A1A1B1A1A1A1B1A1B1B1A1C1D1C1D2A2A293030
+      31313232323332323232323232303130302F2F2F2F2F2D2D2D2D2D2E2B2C2C2B
+      2C2C2C2B2B2B2C2B2B2B2B2B2B2B2828282627272323232121211D1E1E1B1B1B
+      1818171617161919181B1B1B2E2E2E3434343B3B3B4141414747473C3B3C1313
+      1313121312121313131313121212121212121212121112111212121211121111
+      1111111111111110101111111110111010101010101010100F0F100F0F0F100F
+      2626260F0F0F3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030302F2F2F2F2F2F2E
+      2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A292929282828272727262626
+      262626252525252525242424242424242424242424818181DDDDDDDDDDDD9797
+      97525252525252818181DDDDDDDDDDDDD1D1D130303024242424242424242424
+      2424242424242424242424A3A3A3DDDDDDDDDDDD525252242424242424242424
+      2424243B3B3B525252757575818181D1D1D1DDDDDDDDDDDD6A6A6A2424242424
+      24242424DDDDDDDDDDDDDDDDDD30303024242424242424242424242424242481
+      8181DDDDDDDDDDDD818181242424242424242424242424242424242424DDDDDD
+      DDDDDDDDDDDD2424242424242424243B3B3BDDDDDDDDDDDDDDDDDD4747472424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424525252DDDDDDDDDDDDDDDDDD303030
+      242424242424242424AFAFAFDDDDDDDDDDDD8181812424242424242424242424
+      242424242424242424242424242424245E5E5EDDDDDDDDDDDDDDDDDD24242424
+      2424242424525252DDDDDDDDDDDDDDDDDD2424242424242424245E5E5EDDDDDD
+      DDDDDD9797972424242424242424242424243030305252525E5E5E818181A3A3
+      A3DDDDDDDDDDDDAFAFAF242424242424757575DDDDDDDDDDDDA3A3A324242424
+      2424242424242424242424242324232324232324242424242324232424242424
+      232423DDDDDDDDDDDDDDDDDD2323232323232323222323232322232323232323
+      23AFAFAFDDDDDDDDDDDDDDDDDD8E8E8E35353521212021212121212121212121
+      21212424242A2929292928292928292928292828282828292827282727272727
+      272727989898DDDDDDDDDDDDDDDDDDDDDDDDD2D2D26C6C6C2727272727272727
+      26272726272726262626DDDDDDDDDDDDDDDDDD54535325252525252524252424
+      2424242524232324201F201F1F1FADADADDDDDDDDDDDDD7E7E7E1F1E1E1F1E1E
+      1E1E1E7F7F7FDDDDDDDDDDDDD2D2D1DDDDDDDDDDDDD1D1D13C3B3B2524242424
+      2424242424242424242424242424242424242423242324242324242425242425
+      25252625252626262626272727272829282929292929292A2A292B2A2A2B2B2A
+      2B2C2B2B2B2A2B2B2A2C2B2B2C2B2B2C2B2B2B2A2A2B2A2A2A2A2A292A2A2A2A
+      292A292A2A292A29292929292929292829292828282727262725252525252525
+      2525252525252425242424252424242424232424252423242424242424242423
+      2424232423232423232323222323222322222222222222222221212121212121
+      2121212121212021212120202020202120202020202020201F1F20202020201C
+      1C1B1A1A1B1A1A1B1A1A1B1B1B1C1B1A1C1E1D1F29292A323232343434373637
+      373737373737353535343434313132313132303030302F2F2F2F2F2F2F2E2F2F
+      2E2D2E2E2E2D2E2C2C2D2C2C2C2C2C2C2B2A2B2B2A2B2A2A2A2A2A2A2A2A2A29
+      2A2A2828292C2B2C3333333939393F3F3F4545454848481D1D1D131313141313
+      1313131312121313121213121212121212121212121112121112111211121211
+      1111111111111110101110111110101110101010101010100F1010102826260F
+      100F303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E
+      2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A29292928282827272726262626262625
+      2525252525242424242424242424242424828282E0E0E0E0E0E0E0E0E0E0E0E0
+      E0E0E0E0E0E0E0E0E0E0E0E0B1B1B15353532424242424242424242424242424
+      24242424242424777777E0E0E0E0E0E08D8D8D24242424242424242424242424
+      2424242424242424242424C8C8C8E0E0E0E0E0E0474747242424242424242424
+      E0E0E0E0E0E0E0E0E05353532424242424242424242424242424248D8D8DE0E0
+      E0E0E0E0A5A5A52424242424242424242424242424243C3C3CE0E0E0E0E0E0E0
+      E0E0242424242424242424535353E0E0E0E0E0E0E0E0E0242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24242424242424242424242424242424E0E0E0E0E0E0E0E0E053535324242424
+      2424242424B1B1B1E0E0E0E0E0E0C8C8C8242424242424242424242424242424
+      242424242424242424242424A5A5A5E0E0E0E0E0E0B1B1B12424242424242424
+      24535353E0E0E0E0E0E0E0E0E0242424242424242424303030E0E0E0E0E0E0D4
+      D4D4242424242424242424242424242424242424242424242424777777E0E0E0
+      E0E0E08D8D8D242424242424474747E0E0E0E0E0E0E0E0E04747472424242424
+      24242424242424242424242423242423242424232424242423232424242423E0
+      E0E0E0E0E0E0E0E02323232323232323222323232223232322233C3B3CE0E0E0
+      E0E0E0E0E0E07A7A7A2C2C2C2324242121212121212121212121212121212828
+      28292929292929292928292928292827282727282828282828282827848484E0
+      E0E0E0E0E0E0E0E0E0E0E0A6A6A63E3E3E272727272727272727272726272726
+      272626262626E0E0E0E0E0E0E0E0E05554542525252525252525242524252525
+      25242525242424222121E0E0E0E0E0E0E0E0E06868681F1F1F1E1E1F1E1E1E7F
+      7F7FE0E0E0E0E0E0B0B1B1999A9AE0E0E0E0E0E0BDBDBD303030252424242424
+      2424242424242424242424242424242424242525242425242525252525252625
+      252626252727272728282829292929292929292A2A2A2B2A2B2A2A2B2C2C2B2B
+      2B2B2B2B2A2C2C2B2C2B2B2C2B2B2B2A2A2B2A2A2B2A2A2A2A2A2A2A2A2A2929
+      2929292929292929292828272625262625252525252526252525262525252524
+      2525242424252425252525242425252524252525242424252424242424242324
+      2323242323232322232222232223232223222222222122222122212222212122
+      2122212121212021212021202121212020202020202020201C1C1C1A1B1B1A1B
+      1B1A1A1B1B1B1C1B1B1C1E1D1E2727283333333737373A3A3A3C3C3C3C3D3C3C
+      3C3C3B3A3A37373836363633343332313232323231313131313131313130302F
+      302F2F2F2F302E2E2E2E2E2E2E2D2E2E2D2D2D2D2D2C2C2C2C2D2C2D2D2D2F2F
+      2E3232323636363D3C3C43444347474735353513131313131413141313131312
+      1313121313121313121212121212121212121212111211111211121111111111
+      1111111110111110101011101011111010111010101010102828260F0F103030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D
+      2C2C2C2C2C2C2B2B2B2A2A2A2929292828282727272626262626262525252525
+      25242424242424242424242424838383E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2
+      E2E2E2E2E2E2E2E2E2E2E2E2E2E28F8F8F242424242424242424242424242424
+      2424243C3C3CE2E2E2E2E2E2D6D6D63C3C3C2424242424242424242424242424
+      24242424545454E2E2E2E2E2E2CACACA242424242424242424242424E2E2E2E2
+      E2E2E2E2E2838383242424242424242424242424242424BEBEBEE2E2E2E2E2E2
+      D6D6D63030302424242424242424242424246C6C6CE2E2E2E2E2E2CACACA2424
+      24242424242424545454E2E2E2E2E2E2E2E2E224242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424E2E2E2E2E2E2E2E2E25454542424242424242424
+      24B2B2B2E2E2E2E2E2E2E2E2E283838324242424242424242424242424242424
+      24242424246C6C6CE2E2E2E2E2E2E2E2E26C6C6C242424242424242424545454
+      E2E2E2E2E2E2E2E2E2242424242424242424242424A6A6A6E2E2E2E2E2E27777
+      77242424242424242424242424242424242424303030CACACAE2E2E2E2E2E248
+      4848242424242424242424B2B2B2E2E2E2E2E2E2BEBEBE303030242424242424
+      242424242324242424242424232424242424242424232324232423E2E2E2E2E2
+      E2E2E2E2242324242323232323232323232322222322545454E2E2E2E2E2E2CB
+      CBCB2A2A2A2B2B2B2121212121212121212121212121212324242A292A292929
+      2929292A29282A2928292928292828282828282727343434D6D6D6E2E2E2E2E2
+      E2E2E2E26D6D6D27272727272727272727272727272727272727272727272627
+      2626E2E2E2E2E2E2E2E2E2555555252525252525252525252425252425252524
+      252425606060E2E2E2E2E2E2E2E2E24443431E1E1F1F1F1E1E1F1F808080E2E2
+      E2E2E2E2B1B1B11F1E1EBEBEBEE2E2E2E2E2E2A7A6A624242424242424242424
+      2424242424242424242425242324242524242424252625252525262625272626
+      2827272828282829292929292929292A2A2A2B2B2B2A2A2B2B2B2B2B2B2B2B2B
+      2B2C2C2B2C2C2B2C2B2B2C2B2B2B2A2A2B2A2B2B2A2A2A2A2A292A2A28282927
+      2827262626252525262525262425262525252525252525262525252525252424
+      2525252525252625252525252525252525252425242525242424242424232423
+      2324232324222223222323222222222222222222222122222222222221212121
+      21212121212121212021212020212020201C1C1C1B1B1C1B1B1C1A1A1B1B1B1C
+      1B1B1C1D1D1E2625263433343938393C3C3C4140404242424242422E2E2E3434
+      3433323238383835363635343434343334333332323232323231313130303130
+      3131313130303030303030303030302F302E2E2E2E2E2E302F2F313130343535
+      3A3A3A3F3F3F4544444545451716171314131314141413141313141313131313
+      1313121313121312121313121212121212121212111211111211111111121111
+      11111111101011111011101110111010101010102826280F1010303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C
+      2C2C2B2B2B2A2A2A292929282828272727262626262626252525252525242424
+      242424242424242424858585E5E5E5E5E5E59C9C9C5454545454545454547979
+      79CDCDCDE5E5E5E5E5E5E5E5E590909024242424242424242424242424242424
+      2424909090E5E5E5E5E5E5C1C1C1303030242424242424242424242424484848
+      D9D9D9E5E5E5E5E5E56D6D6D242424242424242424242424E5E5E5E5E5E5E5E5
+      E5D9D9D93C3C3C242424242424242424545454E5E5E5E5E5E5E5E5E5E5E5E585
+      8585242424242424242424242424C1C1C1E5E5E5E5E5E59C9C9C242424242424
+      242424545454E5E5E5E5E5E5E5E5E52424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424E5E5E5E5E5E5E5E5E5545454242424242424242424B5B5B5
+      E5E5E5E5E5E5E5E5E5E5E5E58585852424242424242424242424242424246D6D
+      6DE5E5E5E5E5E5E5E5E5CDCDCD242424242424242424242424545454E5E5E5E5
+      E5E5E5E5E5242424242424242424242424545454E5E5E5E5E5E5D9D9D9484848
+      2424242424242424242424242424249C9C9CE5E5E5E5E5E5B5B5B52424242424
+      24242424242424545454E5E5E5E5E5E5E5E5E5C1C1C13C3C3C24242424242424
+      2424242424242424616060232424242424232324242423E5E5E5E5E5E5E5E5E5
+      2424232324232324232323232323232323234A4A4AE5E5E5E5E5E5D9D9D92B2B
+      2C2525262121212121212121217777772121212727272A29292A2A2A292A2929
+      2928292928292928292828292728292827585757E5E5E5E5E5E5E5E5E5868686
+      272727272727272727272727272727272727272727272726272726272726E5E5
+      E5E5E5E5E5E5E5565555262525252525252525252425252425252424252424C1
+      C1C1E5E5E5E5E5E5CDCDCD2121211F1F1F1E1F1F1F1F1F828282E5E5E5E5E5E5
+      B3B3B31E1E1E2A2A2AD9D9D9E5E5E5E5E5E58484842424242524242424242424
+      2424252524252424242425252524252526252526252526262528272628272729
+      2728292928292929292A2A2B2A2A2B2B2B2B2B2B2C2C2C2C2C2B2B2B2C2C2C2C
+      2C2C2C2C2C2B2C2B2B2C2B2B2B2B2B29292A2727272626262525262525262625
+      2525252625252526252526252426252525262526252525252526262626262626
+      2526262626252625252525252525252425242424252423242423242323242323
+      2323232323222323222222222222222222222221222221222221222121212121
+      212121212021212121201C1C1D1B1B1C1B1B1C1A1B1C1A1B1C1C1B1D1E1D1E25
+      25253434343938393D3E3E4342424546464747482A2A2A191819181918181819
+      1818181818181F1F1F1E1E1F2627262627272D2E2D2C2D2D3434343334343333
+      3232323232323231313131313030302F2F302F3131323434343736373C3B3C40
+      40414444442D2E2D141414141414141414141413131413131313131313131313
+      1313131213131212121212121212121212111212121112111111111111111111
+      11111111101011101011101011101010282828100F1030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B
+      2B2A2A2A29292928282827272726262626262625252525252524242424242424
+      2424242424868686E7E7E7E7E7E7868686242424242424242424242424303030
+      9E9E9EE7E7E7E7E7E7E7E7E75555552424242424242424242424242424243030
+      30C2C2C2E7E7E7E7E7E7CFCFCF6D6D6D3030303C3C3C868686DBDBDBE7E7E7E7
+      E7E7B6B6B6242424242424242424242424242424E7E7E7E7E7E7E7E7E7E7E7E7
+      DBDBDB6D6D6D555555868686DBDBDBE7E7E7E7E7E7CFCFCFE7E7E7E7E7E79E9E
+      9E555555616161B6B6B6E7E7E7E7E7E7E7E7E755555524242424242424242455
+      5555E7E7E7E7E7E7E7E7E7242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24303030E7E7E7E7E7E7E7E7E7555555242424242424242424B6B6B6E7E7E7E7
+      E7E7B6B6B6E7E7E7E7E7E7CFCFCF868686555555868686C2C2C2E7E7E7E7E7E7
+      E7E7E7E7E7E7494949242424242424242424242424555555E7E7E7E7E7E7E7E7
+      E7242424242424242424242424242424919191E7E7E7E7E7E7E7E7E786868649
+      4949303030616161C2C2C2E7E7E7E7E7E7DBDBDB494949242424242424242424
+      242424242424919191E7E7E7E7E7E7E7E7E7E7E7E79E9E9E8686868686869191
+      91CFCFCFB6B6B6242424555555858686868686E7E7E7E7E7E7E7E7E785858685
+      8685858585858585545454242424262626DBDBDBE7E7E7E7E7E7A0A0A02D2D2D
+      2121215F5F5FC2C2C2B5B5B52424232A2A2A2A2A2A2A2A292929292929282929
+      28292929292828292828282827595757E7E7E7E7E7E7E7E7E733343328272827
+      2727272727272727272727272727272727272726272726272726E7E7E7E7E7E7
+      E7E7E75756562626262526252525262525252525252525259E9E9EE7E7E7E7E7
+      E7E7E7E76D6D6D242424242424212121202020838383E7E7E7E7E7E7B5B5B51E
+      1E1E1E1E1E444444E7E7E7E7E7E7E7E7E76A6A6A1E1E1E212020212121222322
+      2423232424242525252525252525252526252626262727272827272928282929
+      292A29292A2A2A2A2B2A2B2B2B2B2B2B2B2C2B2B2C2B2C2B2C2C2C2B2B2A2A29
+      2929282728272727272727262727262626262626262626262625262626262525
+      2525252525252625252626252526262726262626262726262626262626252525
+      2626252525252525252525252525252424242425242325242324232423232324
+      2323232223232222222322222222222222212221212122222122212121212121
+      2121211D1C1D1C1B1D1B1B1C1B1B1C1B1B1C1C1C1C1C1B1C2323233434333838
+      383D3D3D4343424647474A4A4A35343519191A19191919191818191918181819
+      18181818181818181718171717171718181717171717171617171D1E1E1D1D1E
+      2625252525252C2C2C2C2C2C3232333334333535363A3A3B3D3D3D4040403E3D
+      3D14141415141414141414141413131314131313131413131313131312131313
+      1212131312121212121212121212121112121111111111111211111111111111
+      1111111011101110101110102828280F10103030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A
+      2929292828282727272626262626262525252525252424242424242424242424
+      24878787E9E9E9E9E9E9878787242424242424242424242424242424303030D0
+      D0D0E9E9E9E9E9E99F9F9F242424242424242424242424242424242424494949
+      C4C4C4E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9C4C4C43030
+      302424242424242424246E6E6EE9E9E9E9E9E9E9E9E9E9E9E9929292E9E9E9E9
+      E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9626262878787E9E9E9E9E9E9E9E9E9
+      E9E9E9E9E9E9E9E9E9E9E9E9ABABAB2424242424242424242424243D3D3DE9E9
+      E9E9E9E9E9E9E949494924242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424555555
+      E9E9E9E9E9E9E9E9E9242424242424242424242424B8B8B8E9E9E9E9E9E95555
+      559F9F9FE9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9DDDDDD6E
+      6E6E2424242424242424242424249F9F9FE9E9E9E9E9E9E9E9E9E9E9E9242424
+      2424242424242424242424242424249F9F9FE9E9E9E9E9E9E9E9E9E9E9E9E9E9
+      E9E9E9E9E9E9E9E9E9E9DDDDDD49494924242424242424242424242424242424
+      2424242424878787E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9
+      B8B8B8242424878787E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9
+      E9E9E9E98787872626262726277D7C7CE9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9
+      E9E9E9E9E9B7B7B72727272A2A2A2929292A2A2A2A2A2A2A2929292A28292929
+      292928292828292828595858E9E9E9E9E9E9E9E9E94C4C4C2727282827282727
+      27272727272727585858272727272727272727272726E9E9E9E9E9E9E9E9E957
+      5757272525262626252625252625313131ACACACE9E9E9E9E9E9E9E9E9C4C4C4
+      252525242424242424242424242424868686E9E9E9E9E9E9B6B6B61E1E1E1E1E
+      1E1E1E1E6A6A6AE9E9E9E9E9E9DCDCDC4444441E1E1E1E1E1E1E1F1F1F1E1E1E
+      1F1F212020202020222121232322242324232324262525282727282828282827
+      2828282728272828282827272828282726272727272727262727262827272727
+      2727272727272726272726272727262627262626262626262626252626252626
+      2626262626272727272727262727272627262726262626262626252626262626
+      2626252526252525252525242525242524242424232423242423232422222322
+      222323232323232322222222222222222122222221212221222222211F1E1F1C
+      1C1C1C1C1D1C1B1C1B1C1C1B1B1C1C1C1D2222223030303636353B3B3B414141
+      4747474B4B4B3839391A1A19191A191919191919191819191919191918181818
+      1918181818181818181817181817181817171717171717171716171717161717
+      16161616161616161516151615161D1D1E1E1E1E2828282A2A2A202020151514
+      1514141414141414141414131314141314131313131313131313131312121213
+      1312121312121212121212121212121211111212121111121111121211111110
+      1111111111101011282B28101010303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A29292928
+      2828272727262626262626252525252525242424242424242424242424888888
+      ECECECECECEC8888882424242424242424242424242424242424247C7C7CECEC
+      ECECECECDFDFDF24242424242424242424242424242424242424242431313194
+      9494ECECECECECECECECECECECECECECECDFDFDF888888242424242424242424
+      242424242424242424D3D3D3ECECECECECECECECEC242424949494ECECECECEC
+      ECECECECECECECECECEC888888242424242424888888ECECECECECECECECECEC
+      ECECECECECA1A1A1313131242424242424242424242424242424DFDFDFECECEC
+      ECECEC7C7C7C2424242424242424242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424242424949494ECECECEC
+      ECECD3D3D3242424242424242424242424BABABAECECECECECEC565656242424
+      7C7C7CDFDFDFECECECECECECECECECECECECECECECA1A1A13D3D3D2424242424
+      242424242424242424243D3D3DECECECECECECECECECECECEC24242424242424
+      2424242424242424242424242424636363D3D3D3ECECECECECECECECECECECEC
+      ECECECA1A1A13D3D3D2424242424242424242424242424242424242424242424
+      24242424565656ADADADECECECECECECECECECECECECECECECECECECBABABA24
+      2424888888ECECECECECECECECECECECECECECECECECECECECECECECECECECEC
+      8888882626262727272929297F8080E0E0E0ECECECECECECECECECECECECECEC
+      EC9393932A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292929292A2929292829292829
+      2829292828353434ECECECECECECECECECAEAEAF272828272728272727333333
+      959595BBBBBB272727272727272726272727ECECECECECECECECEC7D7D7D5858
+      58585858717170A1A1A1E0E0E0ECECECECECECECECECC7C6C731313124242524
+      2424242424242424242424888888ECECECECECECB9B9B9201F1F1E1E1E1E1E1E
+      1E1E1E9E9E9EECECECECECECD2D2D22B2B2B1E1E1E1F1F1F1F1E1F1F1E1F1F1E
+      1F1F1F1F1F1F1F20202020202021222122222323232323232324242424252525
+      2524252625252526262627262626272727262627272627282626272727272727
+      2627272726272727272627272626262626262626262727272727282728282827
+      2727282727272727272627272626272727272626262726262625262626262525
+      2525252625262525252524252424242424242323242423242323232323232223
+      2323222323232223222222222222222222212122222121212020211C1C1D1C1C
+      1D1C1C1C1B1B1C1C1B1C2222222F2F2F3434343938393F3E3E4546454B4A4A3D
+      3D3D191A191A1A19191919191919191919191919191819191819181918191818
+      1818181818181718181718181817181717171717171717161617171716161717
+      1716161616161616161616161616151616161515151515151515141514151514
+      1415141414141414131314131313141313131313131413131312131313131313
+      1313131212121212121212121212121212111111121211111111111111111111
+      11101111282B2810101030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F2F2F
+      2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A2929292828282727
+      27262626262626252525252525242424242424242424242424898989EEEEEEEE
+      EEEE898989242424242424242424242424242424242424575757EEEEEEEEEEEE
+      EEEEEE2424242424242424242424242424242424242424242424242424243131
+      315757577D7D7D70707057575724242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424243D3D3D636363898989
+      5757573131312424242424242424242424243131315757578989896363633D3D
+      3D242424242424242424242424242424242424242424A2A2A2EEEEEEEEEEEED5
+      D5D5242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424D5D5D5EEEEEEEEEEEE9595
+      95242424242424242424242424BBBBBBEEEEEEEEEEEE57575724242424242424
+      24245757577070707D7D7D575757313131242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424244A4A4A70707089898957575731313124
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424313131636363EEEEEEEEEEEEEEEEEE7D7D7D2424242424242424
+      24242424242324EEEEEEEEEEEEEEEEEE24232423232323232323232426262627
+      27272828282A2A2A2C2C2C2727275454547C7C7C7B7C7C545455212122272727
+      2A2A2A2A2A2A2A2A2A2A2A29292A2A2A29292929292A2A282929282928282929
+      282928288C8B8BEEEEEEEEEEEEEEEEEED5D5D5BCBCBCBCBCBCEEEEEEEEEEEEBC
+      BCBC272727272727272727272727EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
+      EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBCBCBC3232312425252524242524252425
+      25242424242424898989EEEEEEEEEEEEBBBBBB242423232322212121201F201E
+      1E1EC7C7C7EEEEEEEEEEEEC7C7C71E1E1E1F1F1F1E1E1F1F1F1E1F1F1E201F1F
+      1F1F1F2020202120202221212322222323232424232424242525252525252626
+      2626252526262726262727272726272727272727272727272627272727272727
+      2727272627272726272728282828282828282728282728272828272728272728
+      2727282727272727272727272727262626262626262626262625262626252625
+      2525252525252425252424242425242324242324232424232323232323222322
+      23232323222222232222222222222222212221212221221C1C1D1C1C1D1C1C1D
+      1B1C1D1B1B1D2827283130303535353A3A394140414647474242431D1D1D1A1A
+      1A1A1A1A1A1A191A191A1A191919191919191919181818181918181818181818
+      1818181818171718171817171717171817171717161717171617161716161616
+      1616161616161616161615161515151516151515151515151515151414151415
+      1414141514141414141314141313141413131313141313131312131213131313
+      1212121212121212121212121212121112111111121211111111111111111011
+      2B28281110103030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030302F2F2F2F2F2F2E
+      2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A292929282828272727262626
+      2626262525252525252424242424242424242424248A8A8AF0F0F0F0F0F08A8A
+      8A242424242424242424242424242424242424575757F0F0F0F0F0F0F0F0F024
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424575757F0F0F0F0F0F0F0F0F07171
+      7124242424242424242424242424242424242424242424242424242424242424
+      24242424242424242424242424247E7E7EF0F0F0F0F0F0F0F0F04A4A4A242424
+      242424242424242424BDBDBDF0F0F0F0F0F05757572424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424717171F0F0F0F0F0F0969696242424242424242424242424242424
+      242424F0F0F0F0F0F0F0F0F02324232324242323232525242626262727282A29
+      292B2B2B2C2C2C2222222122222222222222222222222222222A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A292A2A2A2A292A2929292928292928292828292828
+      292828A5A5A5F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0BEBEBE2727
+      27272727272727272727F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
+      F0F0F0F0F0D7D7D7727171252525252525242525242525242525242425242424
+      2424248A8A8AF0F0F0F0F0F0BDBDBD2423242424232423232323232323223B3B
+      3BE3E3E3F0F0F0F0F0F0A1A1A11F1F1F1F1F1F1F1F1F1F1F1E1F20201F1F1F20
+      2020202020212120232222232323232324242424252525252525252625252526
+      2726272626262727272727272726262627262727272727282828282928282929
+      2929292928282929282829282828282828282828282828272727272827272827
+      2727272727272727262727272727262626262626262625252625262625262625
+      2525252525242524232524242524242523242423242323232323232323222323
+      232323222222222222222222212222222122211D1D1E1D1D1D1C1C1D1C1B1D1C
+      1B1D2324243132313736363C3C3C4242414545451D1D1D1A1B1A1A1A1A1A191A
+      1A191A1A1A1A1A19191919191919191919181819181918191918181818181818
+      1818181818171818181717171717171717171617161617171617171616161616
+      1716161616161516151516151615151515151515151515151514151415151514
+      1414151414141414141413131314131313141313131313121313131213131212
+      131212121212121212121211111211111211121211121111111111112B282B11
+      1111303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E
+      2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A29292928282827272726262626262625
+      25252525252424242424242424242424248B8B8BF2F2F2F2F2F28B8B8B242424
+      242424242424242424242424242424656565F2F2F2F2F2F2F2F2F22424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424BEBEBEF2F2F2F2F2F2E5E5E5313131
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424243E3E3EE5E5E5F2F2F2F2F2F2BEBEBE24242424242424242424
+      2424242424BEBEBEF2F2F2F2F2F2585858242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      248B8B8BF2F2F2F2F2F2585858242424242424242424242424242424242424F2
+      F2F2F2F2F2F2F2F22424242424242423232626262727272828292A2A2A2C2C2C
+      2828282222222222222222222222222222222626272A2A2A2A2A2A2A2A2A2A2B
+      2A2A2A2A292A2A2A2A2A2A29292929292929292929292928282A282829292829
+      28285B5B5BA6A6A6BFBFBFF2F2F2BFBFBFB2B3B28080804D4D4D272727272727
+      2727272727278D8D8D8D8D8C8D8C8D8D8C8D8D8C8C8D8C8C8C8C8C7373733F3F
+      4026252525262525252525252525252525242525242425252425242425242458
+      58588B8B8B8B8B8B727272242324242424242423232324232323232323646464
+      8B8B8A8B8B8A8A8A8A3C3C3B212121202020201F20202020201F1F2020202020
+      2021212123222223232323232325242525252525252526262626252527272728
+      28282A28282A292A2A29292A2A292929292A2A2A292A2A292929292929292929
+      2828282929292929282829282828282828272828282728282827272727282727
+      2727272626272727272627272626262626262626262525262526262525262526
+      2524252424252424242323242324242323242324232323232322232323232322
+      2223232222222222222222222122221F1F1F1D1C1D1D1C1D1C1C1D1C1C1D201F
+      203332323737363C3C3C4142424747471E1D1D1B1A1B1A1A1A1B1A1A1A191A1A
+      1A1A19191919191A191919191919191919191819191919181818181818181818
+      1818181817181817181717171717171717171717161617161716171716161616
+      1616161615161616161615161515151615151515151515141514151414141514
+      1414131414131413141413141413131413131313131313131213131312121313
+      1313121212121212121212111211121111111211111111112B282B1011113030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D
+      2D2D2D2C2C2C2B2B2B2A2A2A2929292828282727272626262626262525252525
+      252424242424242424242424248C8C8CF4F4F4F4F4F48C8C8C24242424242424
+      2424242424242424242424C0C0C0F4F4F4F4F4F4CDCDCD242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24242424242424242424242424585858F4F4F4F4F4F4F4F4F4CDCDCD31313124
+      2424242424242424242424242424242424242424242424242424242424242424
+      313131CDCDCDF4F4F4F4F4F4F4F4F44B4B4B2424242424242424242424242424
+      24C0C0C0F4F4F4F4F4F458585824242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      999999C0C0C06565652424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424242424242424248C8C8C
+      F4F4F4F4F4F45858582424242424242424242424242424243E3E3EF4F4F4F4F4
+      F4F4F4F423242424242324242426262628272829292A2B2B2B2D2D2D23232322
+      22222222222222222222222323232A29292A2A2A2A2B2A2A2B2A2A2A2A2A2A2A
+      2A2A2A292A2A292A29292A29292A282929282929292929282928282928282828
+      2828282828282828272827282828272727282827282827272727272727272727
+      2727272726272726272726272626272726272626262626252526262525262625
+      2626252526252525252525252525252525252525252525252525252525252525
+      2425252425242425242424232424232323232323242323232323232323222322
+      2322232222232222232323232323232222242423242423252524252524252524
+      2626252726262827262928282929292928282A29292A29292B2A292A292A2A2A
+      2A2B2B2B2A2B2A2A2A2A2A2A2A292A2A2A292929292A29292929292929292829
+      2929292828282929282928282828282828282828272828272727282727272727
+      2627272727262726272727262626262626262626252626252626252625242525
+      2426242425242324242424242424232323232323232323232323232322222322
+      23232222222222222222222121201D1C1D1C1C1D1C1D1D1C1C1D1D1D1E30302F
+      3637373B3B3B4141414747472929281B1A1B1B1A1A1B1B1A1A1A1A1A1A1A1A1A
+      1A1A19191A1A1919191919191919191919181918191918191818181818171818
+      1818171718171717181817171717161716171717161617161717161616161616
+      1616161616161616151515161515151515151515151514141415141414141514
+      1414141414141314131413141313131313131313131312131213131312121312
+      12121213121112121211121211111112111111122D2B2B111111303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C
+      2C2C2B2B2B2A2A2A292929282828272727262626262626252525252525242424
+      2424242424242424248D8D8DF6F6F6F6F6F68D8D8D2424242424242424242424
+      24242424737373F6F6F6F6F6F6F6F6F68D8D8D24242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252524242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424248D8D8DF6F6F6F6F6F6F6F6F6CECECE3131312424
+      242424242424242424242424242424242424242424242424243E3E3ECECECEF6
+      F6F6F6F6F6F6F6F6808080242424242424242424242424242424242424C1C1C1
+      F6F6F6F6F6F65959592424242424242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424242424737373F6F6F6F6
+      F6F6E9E9E9242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424242424248D8D8DF6F6F6F6
+      F6F6808080242424242424242424242424242424808080F6F6F6F6F6F6C1C1C1
+      2424242424242526252727272929282A2A2A2D2D2C292A292222222323232323
+      232322232322232727272B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2A2A2A2A2A292A2A292A29292A29292A2929292828282828282828
+      2828282827282728272727282828282727272727272727272727272727272727
+      2627272627272727262627262727262627262626262626262625262626262525
+      2625252525252525252525252525252525252525252525252525252524252524
+      2524242523242523232424242424232323232323232323232323232323232323
+      2323232323232423232323232324242423242425242425252525252526262527
+      27262827272928282A29292929282A292A2A29292B2A2A2A2A2A2A2A2A2B2A2A
+      2B2B2A2A2A2A2A292A2A292A2A2A2A292A2A2A292A29292A2929292928282829
+      2929292828282928282828282827272828272827272827282827272727272727
+      2727272727262726272626262626262625262625252625262525262524252524
+      2524242524242424242424242324232323232323232222232222232323232323
+      232223232222222221221D1D1D1C1D1D1C1C1D1C1C1D1D1D1E2A2B2B3635363A
+      3B3B3F3F3F4544453334341B1A1B1A1B1B1A1A1B1A1B1A1A1A1A1A191A1A1A19
+      191A191A1A191919191919191919191918191919181818191818181818181817
+      1818171717181717171717171817171716161717161717161717161616161615
+      1516151616151615151516151515151515151415151414151415141415141414
+      1314141313141414131414131313131313131313131313131212121313131312
+      121212131112121212121111111111112D2B2D11111130303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B
+      2B2A2A2A29292928282827272726262626262625252525252524242424242424
+      24242424248E8E8EF8F8F8F8F8F88E8E8E2424242424242424243131318E8E8E
+      F8F8F8F8F8F8F8F8F8EBEBEB3131312424242424242424242424242424242424
+      2424242424242424242424242425252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252524242424242424242424242424242424242424
+      2424242424242424242424A8A8A8F8F8F8F8F8F8F8F8F8EBEBEB8E8E8E313131
+      2424242424242424242424242424243131318E8E8EEBEBEBF8F8F8F8F8F8F8F8
+      F8A8A8A8242424242424242424242424242424242424242424C3C3C3F8F8F8F8
+      F8F8595959242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424818181F8F8F8F8F8F8F8F8
+      F824242424242424242424242424242424242424242424242424242424242424
+      2424252525252525252525252525252525252525252525242424242424242424
+      2424242424242424242424242424242424242424244C4C4CF8F8F8F8F8F8EBEB
+      EB4C4C4C2424242424242424244C4C4CEBEBEBF8F8F8F8F8F881818124242425
+      25242727272727272A292A2B2B2B2D2D2D232323232323232323232323232323
+      2423242B2C2B2C2C2B2C2C2C2B2B2B2C2C2B2B2B2C2C2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2A2B2A2A2B2A292B2A2A2A292A2A2A292A292929292929292929292929
+      2929282828282828282828282828282828282828282828282827282827282827
+      2827262726272726262726262726262626262626262626262626262626262626
+      2626262626262626262626262625262625262525262525252425252426242425
+      2424252424242324242423232324232323232323232323232323242423242323
+      2323232324232424242324242525252524252626252626252626262727262828
+      272928282928292A28282A2A292A29292B2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B
+      2A2B2A2A2B2A2A2A292A2A292929292A292A2A29292929292929282829292928
+      2829282828292829282828282827282727282828272728282727272727272727
+      2726262627272726262626262526262525252526262526252426252425252425
+      2424252323242424242324242323242323232323222323222323222323222222
+      2222222222221D1E1E1D1C1D1D1C1D1C1C1D1D1E1E2626263534353A3A393E3D
+      3D4242423E3E3E1B1B1B1B1B1B1B1B1B1B1B1B1A1A1A1A1A1A191A1A1A1A191A
+      1A191A19191A1919191919191918191919181819181918181818181818181818
+      1718181717171718171717171717171717171617161616161616171616161516
+      1616161615161616151515151515151515151515141414141514141414141413
+      1414141414131413131413131313131413131313131313131312121212121312
+      1212121212121111121211112D2B2B1111113030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A
+      2929292828282727272727272626262525252525252424242424242424242424
+      249C9C9CFAFAFAFAFAFADFDFDFC4C4C4C4C4C4D2D2D2FAFAFAFAFAFAFAFAFAFA
+      FAFAEDEDED5A5A5A242424242424242424242424242424242424242424242424
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252526262625252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252424242424242424242424242424
+      24242424242424242424A9A9A9FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAB7B7B78F
+      8F8F8F8F8F8F8F8FC4C4C4FAFAFAFAFAFAFAFAFAFAFAFAFAFAFA9C9C9C242424
+      242424242424242424242424242424242424242424C4C4C4FAFAFAFAFAFA5A5A
+      5A24242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424313131C4C4C4FAFAFA8F8F8F242424
+      2424242424242424242424242424242424242424242525252525252525252525
+      2525252525252525252525252525252525252525252525252525252524242424
+      2424242424242424242424242424242424242424C4C4C4FAFAFAFAFAFAEDEDED
+      9C9C9C5A5A5A9C9C9CEDEDEDFAFAFAFAFAFAEDEDED3131312424242625262727
+      272828292A2B2A2C2C2C2A2A2A2222222323232323232323232424242727272D
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2C2D2C2C2C2C2C2C2C2C2C2C2B2B2B
+      2B2B2B2B2B2A2B2A2A2B2A2A2A292A2B2A2A2A29292929292929292929292929
+      2928292928292928282828282929282929282828282828282728282727282727
+      2727272727282727272727272727272727272727262726262727272626262626
+      2627262726262626262526252626252625252525252625252525252525252524
+      2425242424242424242424242424242424242524242423242424242423242424
+      2424242424242424252525252626252625272626272726282827282828292828
+      2A29292B292A2A29292B2B2A2B2B2A2B2A2A2B2B2B2B2B2B2B2B2B2B2A2A2A2A
+      2A2B2A2A2A2A2A2A2A2A2A2A2A292A292A292A2A292929292928282928292828
+      2929282928282829282828272828282828272728282827272727272727272626
+      2727272626262727262626252626252626252525252625252524242524252524
+      2424242424232423242423232323232322232322232323232222232323222222
+      22221F1F1F1D1C1D1D1D1D1D1C1D1D1D1E2221223434343938393D3E3E414241
+      4545441E1E1E1B1B1B1B1B1B1A1A1B1A1A1B1A1A1A1A1A1A1A1A1A191A1A1A19
+      19191A1919191919191919181918181918191818181819181818181818181818
+      1818171717171717171717171617171617171616171716161616161616161616
+      1515161516161515161515151515151514151515151415141414151414141414
+      1414131414141314131413141313131413131313131312121212121213121212
+      12121212121211122B2D2D111111303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A29292928
+      2828272727272727262626252525252525242424242424242424242424C5C5C5
+      FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBE0E0E04C4C
+      4C24242424242424242424242424242424242424242425252525252525252525
+      2525252525252525252525262626262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262626262626262625252525
+      2525252525252525252525252525252525252525242424242424242424242424
+      242424242424242424676767EEEEEEFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFB
+      FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBE0E0E067676724242424242424242424
+      2424242424242424242424242424242424C5C5C5FBFBFBFBFBFB5A5A5A242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252424
+      242424242424242424242424242424243F3F3FE0E0E0FBFBFBFBFBFBFBFBFBFB
+      FBFBFBFBFBFBFBFBFBFBFBEEEEEE6767672424242525252627272828282A292A
+      2C2C2B2D2D2D2525262424242323242424242424242424242C2C2C2E2D2D2E2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2C2C2C2C2C2B2B2B
+      2C2B2B2B2B2B2B2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A292929292929292929
+      2929292929292929292929292929292929292929282829272928282928282726
+      2727272828282728272827272727272727272727272727272727272727272727
+      2727272727272727262626262626262626262626262625262526262525252525
+      2625242525242424242525252424242425242424242424242424252524242424
+      242525252626262626262627262726262827272828282929292929292A29282B
+      2A2A2B2A2A2B2A2B2B2A2A2B2A2B2B2B2B2B2B2B2B2B2A2B2A2B2A2B2A2A2A2A
+      2A2B2A2A2A2A2A2A2A2A2A2A292929292A292929292929292929292929282828
+      2829282828282828282828282828282827282828282727282727272726262727
+      2727262626262625262625262625262625262525262524252524252424252424
+      2424232324232323242423242323232323232323232223232322222222222221
+      221D1D1D1D1D1D1C1D1D1C1D1D1E1E1F3232323838373B3B3C40403F43444429
+      28281B1B1B1B1A1B1A1B1A1B1A1A1B1B1B1A1A1A1A1A1A1A1A1A1A1A1A1A1A19
+      191A1919191A1919191819181919181819181819181818191818181818181717
+      1717171817171817171717171717171717161716161616161616161616161616
+      1515151515151515151515151515151515141514141515141515141414141414
+      1314141314141413131313131313131313131313131212121212131312131212
+      121112122D2B2D11111130303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F2F2F
+      2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A2929292828282828
+      28272727262626252525252525252525242424242424242424C7C7C7FDFDFDFD
+      FDFDFDFDFDFDFDFDFDFDFDFDFDFDD4D4D4ABABAB686868242424242424242424
+      2424242424242424242424242525252525252525252525252525252626262626
+      2626262626262626262626262627272727272727272727272727272727272727
+      2727272727272727272727272727272727272727272727272727272727272727
+      2727272727272727272727272727272727272626262626262626262626262626
+      2626262625252525252525252525252525252524242424242424242424242424
+      2424242424242424323232838383D4D4D4FDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
+      FDFDFDFDFDFDD4D4D47676762424242424242424242424242424242424242424
+      242424242424243232325A5A5AD4D4D4FDFDFDFDFDFD5A5A5A24242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2425252525252525252525252525252525252526262626262626262626262626
+      2626262626262626262626262626252525252525252525252525252525252525
+      242424242424242424242424242424323232ABABABFDFDFDFDFDFDFDFDFDFDFD
+      FDFDFDFDC7C7C74D4D4D2424242424242626262828282929292B2B2B2D2C2D2C
+      2C2C2323232424242424252424252525242627262E2E2D2E2E2E2F2E2E2E2E2E
+      2D2E2E2D2E2D2E2E2D2E2D2E2E2E2D2D2D2D2D2E2D2D2D2D2D2D2D2D2D2B2C2C
+      2C2C2B2B2C2B2B2C2A2B2B2A2B2B2B2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A2929
+      2A292A2A29292A292A2A2A2929292929292A2928282828242424212121222122
+      2425252928282829282828282828282728282828282727272727272727272728
+      2727272727272726262627262627262526262627262626252526252526242525
+      2524252525252525252525252525252525252525242525252525262626262626
+      2726262727272727272828272928282928282929282A2A292A29292A2A2A2B2A
+      2A2C2B2B2B2B2B2B2A2B2C2B2B2B2B2B2B2B2B2B2A2B2A2A2B2B2B2A2A2B2A2A
+      2A2A2A2A2A2A2A29292A2A2A29292A292929292A292929282929282929282929
+      2829282829282828282728282727282827282727282727282727272727272626
+      2626262527262526262526262525252526252526242425252425242424242424
+      23242323232324232424232323232323232323232222222322222222231D1D1D
+      1D1D1D1D1C1D1D1D1D1D1E1E2B2B2B3636363B3B3B3F3F3E4342423333331B1B
+      1B1B1B1B1B1A1B1A1B1B1A1A1A1B1A1A1A1A1B1A1A1A1A1A191A1A1A19191A19
+      191A191919191919181818191819181918181918181818181818171817171718
+      1717181717171717171717161616171617161717171616161616161615161516
+      1515161616151615151515151515151514151414141514141414141414141414
+      1414141413131413131313131313131312131313121213131313121212121212
+      2D2D2D1212123030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030302F2F2F2F2F2F2F
+      2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A292929282828282828272727
+      2626262626262525252525252424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424252525252525252525252525252525262626262626262626262626272727
+      2727272727272727272727272828282828282828282828282828282828282828
+      2828282828282828282828282828282828282828282828282828282827272727
+      2727272727272727272727272727272727272727272727272727262626262626
+      2626262626262525252525252525252525252525252424242424242424242424
+      242424242424242424242424243F3F3F5B5B5B8484849191918484845B5B5B32
+      3232242424242424242424242424242424242424242424242424242424242424
+      2424243F3F3FFEFEFEFEFEFEFEFEFEFEFEFE5B5B5B2424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424252525252525252525
+      2525252525252626262626262626262626262727272727272727272727272727
+      2727272727272726262626262626262625252525252525252525252525252524
+      24242424242424242424242424242424243232325B5B5B5B5B5B5B5B5B323232
+      2424242424242424242525252828282929292A2A2A2C2C2C2E2E2E2727272324
+      232524242524252525252525262525252929292F2E2E302F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2E2E2F2E2E2E2E2E2F2E2E2E2E2E2E2E2E2E2D2D2D2D2D2C2D2C2C
+      2D2C2C2C2B2C2D2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2B
+      2A2A2A2A2B2B2A2A2B2A2A2A2A27272723232322212221222222222122222223
+      2322262626282928282928282828292828292928282829292828292928282829
+      2828282828282828272827272827262827262726272726262726272726262626
+      2626262625262625262625252526262626262626262527272726272727272727
+      27272828282828282929282A29282A29292B2A292B2B2A2B2A2B2C2B2A2C2B2B
+      2C2A2A2B2A2A2C2B2B2B2C2B2B2B2B2B2B2B2A2B2A2A2A2B2B2A2A2A2B2A2A2A
+      2A2A2A2A2A2A2A2A2929292A2A29292A29292929292928292929292928282828
+      2828292828282828282828272828272727272827272727272727272726262626
+      2726252726252626252625252625242525242525242524242524242424242323
+      242424242324232323232423232323232323232323222322221E1E1F1E1E1D1D
+      1D1D1D1D1D1D1E1E2627273535353939393D3E3E4242423C3C3C1B1C1B1B1B1B
+      1B1B1C1A1B1B1A1B1B1B1A1A1B1A1B1A1A1A1A1A1A1A1A191A1A1A191A1A1919
+      1919191919191919191819181918191819181818181818181818181817181817
+      1717171717171717171617171717161616161616161617161616161615151615
+      1616161615161515151515151515151415151414151414141414141414141314
+      141314131314131314131313131313121313131212121212121213122D2D2D12
+      1212303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F2F2F2F2F2F2F2F2E2E
+      2E2E2E2E2D2D2D2C2C2C2B2B2B2B2B2B2A2A2A29292928282827272727272726
+      2626252525252525252525242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242525252525
+      2525252525252526262626262626262627272727272727272727272728282828
+      2828282828282828282828282828282828282828292929282828282828282828
+      2828282828282828282828282828282828282828282828282828282828282828
+      2828282828282828282828282828282828282827272727272727272727272726
+      2626262626262626252525252525252525252525252525242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424848484C8C8C8C8C8C8C8C8C85B5B5B242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242525
+      2525252525252525252525252525252525252525252525252525252526262626
+      2626262626272727272727272727272727272727272727282828282828272727
+      2727272727272727272626262626262626262525252525252525252525252424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24242424242626262A2A2A2A2A2A2C2C2C2D2D2D2F2F2F303030272726252525
+      2526262526252626262627262726272A2A2A3030303130303030303030303030
+      303030303030302F302F30302F2F302F2F2F2F2E2E2E2E2E2D2E2D2D2E2D2C2D
+      2D2D2D2C2C2C2C2C2C2B2C2B2B2C2B2B2C2B2C2B2B2B2B2B2A2B2B2B2B2A2B2A
+      2B2B2B2A2A292524262323232323232323232323232223232323232322232223
+      2224232327272729292929292929292929292929292929292928292828292828
+      2828282828282828282828272727272727282727272727272727272727272626
+      2727262726272626262627262727272726272727272728272728272928292828
+      282929282929292929292B2A2A2B2B2A2B2B2A2B2A2A2C2B2B2C2B2A2B2B2B2D
+      2B2C2C2B2C2B2C2B2B2C2C2B2B2B2B2B2B2B2B2B2B2B2B2A2B2B2A2A2A2A2A2A
+      2A2A2A292A29292A2A292929292A292929292829292929292929292929282828
+      2928282828282828282727282728272727272727272727272727272626262626
+      2625272626272625262525252525252525252524252424242424242424232323
+      2424242324232323242323232323232223232223231F1F201D1D1D1D1D1D1C1D
+      1D1E1D1E222122343534393A393D3D3D4141414545451E1E1F1B1B1C1B1B1B1B
+      1B1B1B1B1B1A1B1A1B1B1B1B1B1B1A1A1B1A1A1A19191A191A1A1A191A1A1A19
+      1919191919191819191918181818191818181818181817181817171718181717
+      1717171717171716171617161716161616161617161616161615161616161615
+      1515151615151515151515151515151514151514141415141414141413131414
+      1413131413141313131313131313131313121312121313132D2D2D1212123030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E
+      2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A2929292828282828282727272626262626
+      2625252525252525252524242424242424242424242424242424242424242424
+      2424242424242424242424242424242424252525252525252525252525252525
+      2626262626262727272727272727272828282828282828282828282929292929
+      292929292929292929292929292A2A2A2A2A2A2A2A2A2A2A2A29292929292929
+      2929292929292929292929292929292929292929292929292929292929292929
+      2929292929292929292929292828282828282828282828282727272727272727
+      2726262626262626262625252525252525252525252525252524242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252626262626262626262727272727
+      2727272728282828282828282828282828282828282828282828282828282828
+      2828272727272727272727262626262626262626252525252525252525252525
+      2424242424242424242424242424242424242424242424242424242424242424
+      242525252929292B2B2B2C2C2C2E2E2E2F2F2F31313131323228282826262626
+      26262626262727272727272727272B2B2B323131313131313131313131313131
+      3131303131313130313130303030302F302F302F2E2F2F2E2F2E2E2F2E2E2D2D
+      2D2D2D2D2D2D2D2D2C2C2C2D2C2C2D2C2D2D2C2C2C2C2C2B2C2C2C2C28282825
+      2525232424232323232423232323232323232323232323222323232323232323
+      2323232423232727272A29292A2A2929292A2A29292A292A292A292A29292929
+      2929292829282829282828282728272728272728282727272727272728272828
+      28282727282727272828272828282828282828282929292829292A29292A2929
+      2A2A292B2A2A2B2A2A2B2B2B2B2B2A2D2B2B2C2B2C2C2B2B2C2B2B2C2C2C2C2C
+      2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A29
+      2A2A292A2A292A29292A2A292929292929292929292928282928282828282828
+      2828282828282727282728272727272728272728272727262727262726262626
+      2526262526252526252525252425252425252524252424252424242423242324
+      24242323232323242423232323232323232222221E1D1D1D1D1D1D1D1D1D1D1D
+      1F1F1F3332323737373C3C3D4040404444442929291B1B1B1B1B1C1B1B1B1B1B
+      1B1B1B1B1B1A1B1B1B1A1A1B1A1A1A1B1A1A1A1A1A1A19191A1A191A191A1A19
+      1919191819191918191918181819181818181818181817181718171817181817
+      1718171717171717171716161717171616161616161616161615161615151516
+      1615161515151515151515141415151514141414141514141413141414141413
+      1314131413131413131313131213121312121212302D2D121212303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D
+      2D2D2C2C2C2B2B2B2A2A2A2A2A2A292929282828272727272727262626262626
+      2525252525252525252525252424242424242424242424242424242424242424
+      2424242425252525252525252525252525252525252526262626262626262627
+      27272727272828282828282828282929292929292929292A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A292929292929292929282828282828282828272727272727
+      2727272626262626262626262525252525252525252525252525252424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525262626262626262626262626262626272727272727272727282828282828
+      2828282929292929292929292929292929292929292929292929292929292828
+      2828282827272727272727272726262626262625252525252525252525252525
+      2525252525242424242424242424242424242424242424252525252525252525
+      2525252B2B2B2D2D2D2F2F2F303030313131333333333233292A2A2828282727
+      282828282828292828282828292C2D2C33323232323233333333333332313232
+      313231313132313131313131313130303030302F302F2F2F2F2F2F2E2E2F2E2E
+      2E2E2D2E2E2E2E2D2E2D2D2D2E2D2E2D2D2D2B2B2B2626262524252525252525
+      2425242425252524242524242424242424242424242424242323232324242324
+      23232323232423232726272828292B2B2B2B2B2B2A2B2A2B2B2A2A2A2A2A2A29
+      292A292929292A29282A29292928282928282928282828282828282828282928
+      292929282928292929292929292929292929292929292A2B2B2B2A2A2B2B2A2B
+      2B2A2C2B2B2C2B2B2C2C2B2C2B2B2D2C2B2C2B2B2D2C2C2D2C2C2C2C2B2C2C2C
+      2C2B2C2B2B2B2B2B2B2B2B2B2B2A2B2A2B2B2A2A2B2B2A2A2A2B2A2A2A2A2A2A
+      2A2A292929292929292929292929292929292929282829292829282828292929
+      2828282828282828272727282828272827272727272726272626272625262626
+      2625252725252625252625252525242524242424242524242424242423242424
+      242423242323232323232323222322231D1D1E1E1D1D1D1D1D1D1D1D1E1E1E2C
+      2B2B3736363B3B3B3F3F3F4343433333331C1C1C1C1B1B1B1B1B1B1C1B1B1B1B
+      1B1B1A1A1B1B1B1A1B1B1B1A1B1A1A1A1A1A191A1A1A191A19191919191A1919
+      1919191919191918181818181918181918181817181718171717171718171717
+      1717171717171716171617161716161617161616161616161616161616161615
+      1515161515151515151515141415141414151414141414141414141413141413
+      141314131314131313131313121313122D302D12131230303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C
+      2C2B2B2B2B2B2B2A2A2A29292928282828282827272727272726262626262625
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252626262626262626262727272727272828282828
+      282828282929292929292A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2A2A2A2A2A2A2A2A2A29292929292929292928282828282827272727
+      2727272727262626262626262626252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252524242424242424242424242424242424242424242424242424242424
+      2424242424242424252525252525252525252525252525252525252525252525
+      2626262626262626262626262626262626262626262626262626262626262626
+      262626262727272727272727272727272828282828282828282929292929292A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292929292929292929
+      2828282828282727272727272626262626262626262525252525252525252525
+      2525252525252525252525252525252525252525252525252525252526262627
+      27272D2D2D2F2F2F313131323232343433343434353535282929282829282829
+      292929292A2A292A292929292D2D2D3333333434343434343333333333333232
+      32323332333232313231313130313130313030313030302F2F302F2F2F2F2E2F
+      2E2F2F2E2F2E2E2E2E2D2E2A292A252525252525252525252525252525262526
+      2526252525252626262525252525252525252525252525252525252524242424
+      242424242424242424242424252928292A2A2A2C2C2C2B2B2B2C2B2A2B2B2A2B
+      2A2A2B2A2A2B292A2A2A292A29292A2A29292A292929292929292A2A2A2A292A
+      2929292A29292A2A2A2A2A2A2A2A2A2B2A2B2A2B2A2B2C2B2C2B2B2C2C2B2C2B
+      2B2C2B2A2C2C2C2D2C2B2C2B2C2D2B2C2D2C2C2D2C2C2D2C2C2C2B2B2C2C2B2C
+      2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A
+      292A292A2A292A292A292A292929292929292929292829292929282928282828
+      2828282828282827282827272727272727272627262627262626262626262526
+      2625262525262525252425252425242424252424252425242423232423232424
+      2423232324232323232323231F1F1F1D1E1E1D1D1E1E1D1D1E1E1E2727273535
+      36393A3A3E3E3E4342423D3D3D1C1C1B1B1C1B1B1C1C1B1B1C1B1B1B1B1B1B1B
+      1B1A1B1B1A1A1A1A1A1A1B1B1A1A1A1A1A191A1A1A191A1A1A191A1A19191919
+      1919191919191818181819181819181818181818181718181717171718181717
+      1717171717171717171717161616171716161616161616161516151616161515
+      1515151515151515151415151515141415151414141414141314131414131413
+      1413131313131313131313133030301212123030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C
+      2B2B2B2A2A2A2A2A2A2929292828282828282727272727272626262626262626
+      2625252525252525252525252525252525252525252525252525252525252526
+      2626262626262626262626272727272727272727282828282828292929292929
+      2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2929292929292828282828282828282727
+      2727272727272726262626262626262625252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252526262626262626262626262626262626
+      2626272727272727272727272727272727272727272727272727272727272727
+      2727272828282828282828282828282929292929292A2A2A2A2A2A2A2A2A2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A29292929292928
+      2828282828282828272727272727262626262626262626252525252525252525
+      2525252525252525252525252525252525252626262626262626262727272828
+      282F2F2F3131313232323434343535353636363434352B2B2B2A292A292A292B
+      2B2B2B2A2A2A2B2B2A2B2A2D2D2D353434353535353535343434343433343434
+      3334333333333232323233313332313231313131313130303030303030302F30
+      302D2D2D2727272627272627262626262626262626262727272726272627272A
+      2A2B3534353434352D2D2D272727262526262626262526252626252625262526
+      2525252525252525252525252425252626262A2A2A2C2C2C2C2C2B2C2C2B2C2B
+      2B2C2B2B2C2A2B2B2A2B2B2B2A2B2A2A2A2A2A2A2A2A2B2B2B2B2A2B2B2B2B2A
+      2B2A2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2B2C2C2C2D2C2D2C2B2C2B2B2D2C2C
+      2D2C2B2D2C2B2C2B2C2D2C2C2E2C2C2D2C2C2D2C2C2C2C2B2C2C2C2B2C2C2B2C
+      2C2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A29
+      2A29282929262627262626292929292929282929282828292829282828282828
+      2828282828272727272728272727262727262726262726262626262625252625
+      2526252526252525252524242525242524252424242424242424232323242324
+      2323232323232323201F201E1D1E1D1D1E1E1E1D1F1E1E2222233535353A3939
+      3D3E3E4141414545461F1F1F1C1C1C1B1C1C1C1C1B1B1B1B1B1B1B1B1B1B1B1A
+      1B1B1B1B1B1A1B1B1A1A1A1B1A1A1A19191A19191A1A19191A191A1A1A191919
+      1919191919191819181819181818181818171818171817181817181817171817
+      1717171716161616161616171617161616161615151515161616151615151515
+      1615151515151514151414141414151414141413141413141414141313131313
+      1413131313131313303030131213303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030302F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B
+      2B2B2A2A2A2A2A2A292929282828282828272727272727262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      262727272727272727272828282828282929292929292A2A2A2A2A2A2A2A2A2B
+      2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2C
+      2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A292929292929282828282828282828
+      2727272727272727272626262626262626262626262626262626262525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252626262626262626262626262626262727272727272727272727272727
+      2727272727272727272727272727272728282828282828282828282828282828
+      28282929292929292929292A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2929292929
+      2928282828282827272727272727272726262626262626262626262626262626
+      2626262626262626262626262626262626272727272727272727282828292929
+      3131313333333434343535353737373837383737372D2D2D2B2B2B2B2B2B2C2B
+      2C2C2B2B2B2C2B2C2C2B2D2D2E35343435353535353535353535343435353434
+      35343433333333323333323332323332323231313231313030302B2A2B282827
+      272727272827272828272727282828282828292929292A2A3535343939393939
+      3939393939393935353530303028282826272726272626272626272726272627
+      26272726262626262626262625262929292D2D2D2D2D2C2D2D2D2D2C2C2D2C2C
+      2D2C2C2C2C2C2C2B2B2C2B2B2C2B2B2B2B2B2B2B2B2B2B2B2C2C2C2B2C2C2B2C
+      2B2B2C2B2C2C2C2C2C2C2C2C2C2D2D2D2C2D2C2D2C2B2D2D2C2D2C2C2D2C2C2D
+      2C2C2E2D2D2D2D2D2D2C2C2E2D2C2D2C2C2D2C2C2C2B2C2C2C2B2C2B2C2B2B2C
+      2C2B2C2B2B2C2B2B2A2B2A2A2B2B2B2A2A2B2B2B2A2828282726272424252424
+      2324242323232326252529292929292929292928292928282828282828282828
+      2827282728282727272727272726272626262626262626272626262525262625
+      2625252525252525252424252425252524242524242424242424242423232324
+      242423232222221D1E1E1D1E1D1E1D1D1E1D1D1F1F1F3333333838383D3D3D40
+      41404444452929291C1C1C1C1B1C1C1C1C1B1C1C1C1B1C1B1B1B1B1B1B1B1A1B
+      1B1A1A1B1A1B1A1A1A1A1A1A1A1A1A1A19191A191A1A19191919191919191919
+      1919181919191818181818181818181817181718181817181717171718181717
+      1717171717161716161616161716161616161516151516161515151515151516
+      1515151515151514151415141514141414141414141414141414131314141313
+      1313141330303013131230303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2B2B
+      2B2A2A2A29292929292928282828282828282827272727272727272726262626
+      2626262626262626262626262626262626272727272727272727272727282828
+      2828282828282828282929292929292A2A2A2A2A2A2B2B2B2B2B2B2C2C2C2C2C
+      2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C
+      2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A29292929292928282828282828
+      2828272727272727272727272727262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      2626262626262625252525252525252525252525252526262626262626262626
+      2626262626272727272727272727272727282828282828282828282828282828
+      2828282828282828282828282828282828282828282929292929292929292929
+      292A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D
+      2D2D2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A292929292929
+      2828282828282828282727272727272727272727272626262626262626262626
+      262626262727272727272727272727272828282828282828282929292B2B2B33
+      3333353535363636373737383837393A3A3938382F2E2F2C2C2B2B2B2C2C2C2D
+      2C2C2C2D2C2C2C2C2C2D2C2E3434343636363636363636353535363535353535
+      343535343534343433333433333332322E2E2E2A292A29292929292929282929
+      28292A2A292929292A2A2A2B2B2B3333333B3B3B3C3C3C3D3D3D3D3D3D3D3D3D
+      3B3B3B3A3A3A3939393737373131312929292728282727282828272827272727
+      272727272727272726272929292F2E2E2E2F2D2E2E2E2F2E2D2E2D2D2E2D2D2E
+      2D2D2D2C2C2D2C2D2C2C2C2C2C2D2C2C2C2C2C2C2D2D2D2D2C2C2D2C2D2C2C2C
+      2C2C2C2E2D2D2D2D2D2D2C2D2E2E2D2D2E2D2E2D2C2D2C2C2D2C2C2E2D2D2E2D
+      2D2E2C2D2E2D2D2D2C2C2D2D2C2D2C2C2C2C2C2C2C2C2C2B2C2C2C2C2C2B2B2B
+      2B2B2A2A2A292929282727262626242524242424242424242424232324232323
+      2424232323232525252929292829292928292828292828282828282828282828
+      2828272727272727272727262627262626262627262527262526252626252525
+      2525252425242524252524252424242524242424242424242424232423232324
+      2323231E1E1E1E1E1E1D1E1E1D1E1E1E1E1E2C2C2C3737373C3B3C3F3F404444
+      433433331D1C1C1C1C1C1C1C1C1B1C1B1B1C1C1B1C1B1B1B1B1B1B1B1B1B1B1B
+      1B1B1A1A1A1A1A1A1A1A1A1A1A1A1A191A1A191A191A191A1A19191919191919
+      1818181918181918181919181818171818181718181718181717171817171717
+      1716171616171616161716161617161616161616151616161515151515161515
+      1515151514151514141514151414141415141414131414131313131414141313
+      3030301312133030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303030303030302F
+      2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2B2B2B
+      2A2A2A2A2A2A2929292929292828282828282828282727272727272727272727
+      2727272727272727272727272727272728282828282828282828282829292929
+      29292929292A2A2A2A2A2A2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D
+      2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D
+      2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2929292929292828282828
+      2828282828282827272727272727272727272727272727272727272727272727
+      2727272727272727272727272727272727272727272727272727262626262626
+      2626262626262626262626262626262626262626262626262727272727272727
+      2727272728282828282828282828282829292929292929292929292929292929
+      29292929292929292929292929292929292A2A2A2A2A2A2A2A2A2A2A2A2B2B2B
+      2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929
+      2929282828282828282828282828272727272727272727272727272727272727
+      2727272828282828282828282828282929292929292A2A2A2A2A2A2C2C2C3535
+      3536363638383838383839393A3A3B3A3A3B3B2F2F2F2D2D2D2C2D2C2D2C2D2D
+      2C2D2C2C2D2C2D2C2D2C2D333333373737373737363636363535363636353535
+      3535353534343433322C2C2D2A2A2A2A2A2A2A2A2A2A292A2A292A2B2A2B2A2B
+      2A2C2B2B2F2E2E3A3B3A4040404040404242424242424141414040403E3E3E3C
+      3C3C3B3B3B3939393939393939393433342E2D2D282828272727282728272727
+      272727272727262627303030302F2F302F2F302F2E2F2E2E2F2E2E2F2E2E2F2E
+      2D2E2E2E2D2E2E2D2D2D2D2E2D2D2D2D2D2D2D2D2D2D2E2E2E2D2D2D2E2D2D2E
+      2E2E2E2E2E2E2E2E2E2D2E2E2D2D2E2D2D2E2D2C2E2E2D2E2D2D2E2D2D2D2D2D
+      2D2C2D2D2D2D2D2D2C2D2C2C2B2B2B2B2B2B2929292828272726272525262625
+      2625252625242424252524242424242424242424242424242424242324242323
+      2423232324252525292929282929292929292829282828282828282828282828
+      2727272827272727262726272726262626262726252725262626252625262525
+      2524252525242425242524242524242424242424242423242424232423232320
+      1F201E1E1E1D1E1E1D1E1E1E1F1E2728283636363A3A3A3E3E3E4242423D3D3D
+      1C1C1D1C1C1C1C1C1C1B1C1C1B1C1B1C1C1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A
+      1A1A1B1B1A1A1A1A1B1A1A1A1A191A1A191A1919191919191919191919191919
+      1818191818181918191818181818171718181717181817171717171817171717
+      1717161616161616161617161616161616161615161515161515151515151515
+      1514141515141414141414151414141414141414131413141314131332303013
+      1413303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030302F2F
+      2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2B2B2B2A
+      2A2A2A2A2A292929292929292929282828282828282828282828282828282828
+      2828282828282828282828282828282929292929292929292929292A2A2A2A2A
+      2A2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2D
+      2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A292929292929292929
+      2828282828282828282828282828282828282828282828282828282828282828
+      2828282828282828282828282827272727272727272727272727272727272727
+      2727272727272727272727272727272727272727272727282828282828282828
+      2828282929292929292929292A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C
+      2C2C2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2D2D2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2929
+      2929292929292928282828282828282828282828282828282828282828282828
+      28282929292929292929292A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2E2E2E363636
+      3838383939393A3A3A3B3B3B3D3C3D3C3C3C3131302E2E2E2E2E2D2E2D2D2E2E
+      2D2D2D2E2E2E2D2D2D2D32313137373737373737373737363736373635353531
+      30302B2B2B2B2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2B2C2E2D2D383738
+      4141414344434545454747474747474747474545454343434141413E3E3E3C3C
+      3C3A3A3A3A3A3A39393938393939393A36373731313128292928292828282828
+      28282828282E2E2E30302F302F2F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2E2F2E2E2E2F2E2F2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2E2E2E2F2E2E
+      2E2E2E2E2E2E2E2E2E2D2D2D2D2F2E2E2E2D2D2F2D2D2F2D2E2E2D2D2E2D2D2E
+      2D2D2B2B2B262526262526262526262526262526262526262525252525262526
+      2525252525252525252524252524252424242424242424242323242424232324
+      2423242325252428282829292929292928292829282828282828282828282727
+      2827272727272626272626272626272626272626262626262526252525252525
+      2524252425252425242525252424242424242424242424242424232020201E1E
+      1E1E1E1E1E1E1E1F1E1E2323233536353A3A3A3E3E3E4242424546451F1F201C
+      1D1C1C1C1C1C1C1C1B1C1C1C1B1C1B1B1C1B1B1B1B1B1B1B1B1B1B1B1B1A1B1B
+      1A1A1A1A1B1A1A1A1A1A1A1A1A1A1A1A191A191A19191A191819191919191918
+      1918181818191819181818181818171817171817181818171717171817171717
+      1717161716171617161616161616151616161516151616151515151515151515
+      1415151515151514151414141414141414141414141314143030321413133030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030302F2F2F2F2F2F
+      2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B
+      2B2A2A2A2A2A2A2A2A2A29292929292929292929292929292929292929292929
+      29292929292929292929292929292A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B
+      2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2D
+      2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A29292929
+      2929292929292929292929282828282828282828282828282828282828282828
+      2828282828282828282828282828282828282828282828282828282828282828
+      282828282828282828282828282828282828282828282929292929292929292A
+      2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D
+      2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2D2D2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A
+      2A2A2A2929292929292929292929292929292929292929292929292929292929
+      292A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2C2C2C2C2C2C2D2D2D2F2F2F38383839
+      39393B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3433342D2D2E2E2D2E2D2E2D2D2E2D
+      2E2E2E2D2E2E2D2D2D3030303737373737363737363333322D2D2D2B2C2B2B2B
+      2C2C2B2B2B2B2B2C2B2B2C2C2C2C2C2C2D2D2D3333333E3E3E43434346454648
+      49484B4C4B4D4D4D4D4D4D4C4C4C4848483C3C3C4242423E3E3E3C3C3C3B3B3B
+      3A3A3A3A3A3A3A3A3A3A393A3A39393A3B3B2929292929292929292929292828
+      282D2D2D313131313030313030313030302F2F30302F302F2F2F2F2F2F2E2F2E
+      2E2E2F2F2F2F2E2E2F2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2E2E2E
+      2E2E2E2F2F2E2E2E2E2F2E2D2E2D2D2F2D2D2E2D2D2E2D2D2E2D2D2E2D2D2928
+      2926252626262626262626252626252626252626252626252625252625252525
+      2525252524242524252425242424242425242424242424242424242424232323
+      2423232425242828282928292829292928282929282828282828272828272827
+      2727262727262728262627262627262626262526262526252525252525252525
+      25252525242525242425242424242424242424242423242222221F1E1E1F1E1E
+      1E1E1E1E1D1E201F203333343939393D3D3D4141414545452A2A2A1C1C1D1D1D
+      1C1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1B1B1B1B1B1B1B1B1B1A1B1B1B1A1A1A
+      1A1B1A1A1A1A1A1A1A1A1A1A1A19191919191A191A1919191919191918191919
+      1818191818181818181818181818181818171817181717181717171717161716
+      1716161617161616161616161616151616151615161515161515151515151514
+      1515151415141414141514141415141414141414323230141313303030797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797978787878787877777777
+      77777676767575757474747373737272727171717070706F6F6F6E6E6E6D6D6D
+      6C6C6C6B6B6B6A6A6A6A6A6A6A6A6A6969696969696969696969696969696A6A
+      6A6A6A6A6A6A6A6B6B6B6C6C6C6C6C6C6D6D6D6E6E6E6F6F6F70707070707071
+      7171727272737373747474757575757575767676767676777777777777777777
+      7878787878787878787878787878787878787878787878787878787878787878
+      7878787878787878787878787878787878787878787878787878787878787877
+      7777777777777777777777767676767676757575747474747474737373727272
+      7171717070706F6F6F6E6E6E6E6E6E6D6D6D6C6C6C6B6B6B6A6A6A6A6A6A6969
+      6969696969696968686868686868686868686868686868686868686868686868
+      6868686868686868686868676767676767666666666666666666666666666666
+      6666666666666666666767676767676868686969696969696A6A6A6B6B6B6C6C
+      6C6D6D6D6D6D6D6E6E6E6E6E6E6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F70
+      7070707070707070707070707070717171717171727272737373747474747474
+      7575757575757676767676767676767676767676767676767575757575757474
+      747373737272727171717070707070706F6F6F6E6E6E6D6D6D6C6C6C6B6B6B6A
+      6A6A6A6A6A6A6A6A6969696969696969696969696A6A6A6A6A6A6B6B6B6C6C6C
+      6C6C6C6D6D6D6E6E6E6F6F6F7070707171717272727373737979798B8B8B9292
+      929393939494949794979A989A989A9A8B8D8D72757575757272727575727572
+      7272727275717171747474858282797979707070706E70706E706E7070707070
+      6F6F726F6F6F727275777777959595A6A6A6AAAAAAAEAEAEB5B5B5B9BAB9BBBB
+      BBBEBEBEBCBCBC9E9E9E7272726B6E6E767676898B8B9191919191918F8F8F90
+      90909090908D90909191919191907373766769676967676669666666696E6E6E
+      7C7C7C7C7C7B7C7C7B7B7B7B7B78787B78787B78787B78787876787876767678
+      7678767676767679777777777777777777777778757878787875787575757575
+      7575767673767373767373767173737373737171737171717171606062606062
+      606062605D60606062605D60605D60605D60605D606060626260606260606060
+      60606060626262696C6C7979796262625D5B5B5B5B5B5B585B585B58585B5B5B
+      5B585B5D5B656265676767676765656565676565656565656562656262656260
+      65606265626065606062606062606060606060605D605D5D5D5D5D5D5D5D5D5D
+      5D5D5D5D5D5D5D5D5B5B5B5D5B5B5B5B5B5B5B5B585B4B4E4B4E4B4B4B4E4B4B
+      4B4B4E4E4E6E6E718D8D8D9597959E9E9EA7A7A7808383464946494946464646
+      4649464646464646464343434343434643434343434343434343434341414141
+      41414141414141413E413E413E413E41413E3E3E3E3E3E3E3E3D3E3D3D3E3D3E
+      3D3D3D3D3D3D3D3D3A3D3D3D3D3A3D3D3A3D3A3D3D3A3A3A3A3A3A383A3A383A
+      3838383838383838383838383835383838383835353535353535353535353535
+      3532323232323232323232323230323232323213141330303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030302F2F2F2F2F2F2F2F
+      2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2E2E2E2E2E
+      2E2E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2D
+      2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292929292929292929292929
+      29292A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E
+      2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C
+      2C2C2C2C2C2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E3030303939393C3C3C
+      3C3C3C3C3C3C3E3E3E3F3F3F3F3F3F3B3B3B2F302F2E2F2E2E2E2E2E2F2E2E2F
+      2E2E2E2E2D2D2D2D2E2D2D2D2D2D2D2D2D2D2D2C2C2D2E2E2D2D2E2E2E2E2E2F
+      2F2F3938394242424746464949494B4B4B4F4F4F5151515354535655564D4D4D
+      3636362C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D3232323737373838383939
+      393939393A393A3A393A303030292A292A292A2A29292929292C2B2B32313232
+      3231323231323131323131323131313031313030302F303030303030302F2F30
+      2F2F2F302F2F2F302F2F2F2F2F2F2F302F30302F302F302F2F30302F302F302F
+      2E2F2E2E2F2E2E2F2E2D2F2E2E2E2D2D2E2D2E2A2A2A26262726262726262726
+      25262625262726272726272726272827282727282B2A2A2D2E2D313132353535
+      3838383736373736363535362727272525242424232424242324242423242324
+      2424252528282829292829292828292829282828282728282727272628262727
+      2727272626272626272626262626262625252526252526262625252525242525
+      242424242525252424252424242424242424201F1F1F1F1E1E1F1E1E1E1E1F1F
+      1F2828283838383C3B3C4041404444443F3F3F1C1D1D1D1D1C1C1C1C1C1C1C1C
+      1C1C1C1C1C1B1C1C1B1B1B1C1B1C1C1B1B1B1B1B1B1B1B1B1B1B1B1A1B1A1B1B
+      1A1A1A1A1A1A1A1A1A191A1A191A1A191A191919191919191919191819191818
+      1818181918181818181818171818171718181717171717171717171717171717
+      1617171616161616161616151615161615161616151515151515151515141515
+      141515151414151514141414141414141414}
+    OnClick = OnCloseClick
+  end
+  object Label1: TLabel
+    Left = 8
+    Top = 264
+    Width = 312
+    Height = 13
+    Caption = 'Copyright RemObjects Software, 2002-2009. All rights reserved.'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Transparent = True
+    OnClick = OnCloseClick
+  end
+  object lbl_Version: TLabel
+    Left = 253
+    Top = 40
+    Width = 10
+    Height = 16
+    Caption = '[]'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Transparent = True
+  end
+  object Label7: TLabel
+    Left = 8
+    Top = 280
+    Width = 91
+    Height = 13
+    Caption = 'Visit our website at'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Transparent = True
+  end
+  object Label3: TLabel
+    Left = 102
+    Top = 280
+    Width = 150
+    Height = 13
+    Cursor = crHandPoint
+    Caption = 'http://www.remobjects.com/ro'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsUnderline]
+    ParentFont = False
+    Transparent = True
+    OnClick = Label3Click
+  end
+  object btn_Cancel: TButton
+    Left = 418
+    Top = 272
+    Width = 77
+    Height = 25
+    Cancel = True
+    Caption = 'btn_Cancel'
+    Default = True
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    OnClick = OnCloseClick
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.lfm
new file mode 100644
index 0000000..594c5e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.lfm	
@@ -0,0 +1,14157 @@
+object AboutForm: TAboutForm
+  Left = 366
+  Height = 299
+  Top = 242
+  Width = 497
+  HorzScrollBar.Page = 496
+  VertScrollBar.Page = 298
+  ActiveControl = btn_Cancel
+  BorderIcons = []
+  BorderStyle = bsNone
+  Caption = 'About RemObjects SDK'
+  ClientHeight = 299
+  ClientWidth = 497
+  Font.Color = clWhite
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  OnClick = OnCloseClick
+  OnCreate = FormCreate
+  Position = poMainFormCenter
+  LCLVersion = '0.9.25'
+  object Image1: TImage
+    Height = 300
+    Width = 500
+    AutoSize = True
+    OnClick = OnCloseClick
+    Picture.Data = {
+      07544269746D617006DE0600424D06DE0600000000003600000028000000F401
+      00002C0100000100180000000000D0DD0600C01E0000C01E0000000000000000
+      0000303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F2F302F302F30302F302F30
+      30303030302F2F302F302F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2E2F2F2E2E2E2F2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D
+      2D2D2D2D2D2E2E2D2E2D2D2E2D2E2D2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2D2C
+      2D2C2C2C2C2C2C2D2D2C2C2C2C2C2C2C2B2C2C2C2C2C2C2B2B2B2B2B2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A
+      2A292A2A2A2A2A2A2A2A2A292929292929292929292A29292928292929292829
+      2829292829282828282828282828282827272727272728282827272827272728
+      2727272727272727272727272B2B2B2F2F2F3131313333333434342D2C2D2626
+      262625262625262625262626272C2A2B2B2A2A2C2B2A2B2A2A2B2A2A2B2A2A2A
+      2A2A2A2A2A2A292A292A29292929292929292928292929282929282928282829
+      2828282828282828282728282827272727272727272727272627262627272727
+      27262626262626262626252626262626252525252525222222202020201F201F
+      201F2020202120212D2D2D343434363535353536353434303030222222222222
+      1E1E1F1D1D1E1E1D1E1D1D1D1D1D1D1D1D1D1D1C1D1C1C1C1D1D1C1D1C1C1C1C
+      1C1C1C1C1C1B1B1F1F202525252525252626262827272929292A2B2A2120211A
+      1A1B1A1A1B1A191A1A1A1B1A1A1A1A191A1B1B1B1D1D1C1D1C1D1D1C1D1C1D1C
+      1C1C1C1C1C1C1C1B1C1C1B1B1B1C1C1B1B1B1B1B1B1A1B1B1B1A1B1B1A1B1A1B
+      1A1A1A1A1A1A1A1A1A191A191A191919191A1919191919191919191918181818
+      1819181818181818181818181717171717171716151414141414141314131314
+      1615152525263232323838383D3D3D4243422827271111111111111111111110
+      10101110101111101010101011101010101010100F101010100F0F0F0F0F0F0F
+      0F0F0F0F0F0F0E0F0F0F0E0E0E0F0F0E0F0E0E0E0E0E0E0E0E0E0D0D0E0D0E0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0C0C0D0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C
+      0B0C0B0C0B0C0C0B0B0B0B0B0B0B0B0B0A0B0B0B0B0B0B0B0B0A0B0B0A0A0A0A
+      0A0A0A0A0A0A0A0A090A090909090909090A0A09090909090909080909080909
+      0908090808080808080808080808080807080808070808070808070807070707
+      0707070707070607070607070606070706070706060606060606060606060606
+      0606060606050606060506050505050506050505050505050504040505040504
+      0405040505040405040404040404040404040404040404040404030404040304
+      0403040303030303030303030303030303020303030302030302030202030203
+      0202030202020202020202020202020202020202010201020102020201020202
+      0102020101010201020101010101010101010101010101010101000001000000
+      0100000000000100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979767976797976797679797976
+      7679767979767676767676797976767676767676767676737676767676737676
+      7676767676767673737373737673737373737373737373737373737373737373
+      737371737171717171717371717171717171717171717171717171716E716E6E
+      6E6E716E6E6E71716E6E6E6E6E6E6E6E6E6C6E6C6C6E6E6C6C6E6C6E6C6C6C6E
+      6C6E6E6C6C6C6C6C6C6C6969696C6C6C6C6C69696C6C69696969696969696969
+      6769676967696767676769676967676767676767676767676767676567676567
+      6765656765656565676565656565656565656565626262626262626262626562
+      62626262626262626E6E6E7676767B7B7B808080838383676969606060605D62
+      605D60605D606565656E6C6C6C6C6C6C69696C6C696C69696C69696C69696969
+      6969676967676969676967696767676767676767676765676567656765656565
+      6565656562656262626565656265626562626262626262626262606262606262
+      6260606060605D6060605D5D606060605D5D605D5D505053505050505050504E
+      5050505058585B8080808380837E80807E7E8079797B7676797173737171716E
+      6C6E6C6E6C6262626262625D5B5D5B585B5053534B4B4E464946464646434646
+      4B4B495D5D5D6060606262626565656767676C6C6C555555434343414143413E
+      43414143414141413E4343434649494949494946494949494646464946464646
+      4646464643464646464643434343434343434343414341434143414343414141
+      4141414141413E4141413E4141413E3E413E41413E3D3E3E3E3E3D3D3D3E3E3D
+      3E3D3D3D3D3D3D3D3A3A3D3A3A3838383532323232323232323032323A3A3865
+      67678380808F8F909C9C9CA9A9A94B4E4E2D2B2D2B2B2B2D2B2B2B2B2B2B2828
+      2B2B2B282B28282B282B28282828282828282826282826262626282626262626
+      2626232626262623232623232323232326232323232320232323232023202020
+      202020202020202020201E20201E1E201E1E1E1E1E1E1E1E1E1E1E1E1B1E1E1E
+      1E1B1E1B1B1E1B1B1B1B1B1B1B1B1B1B1B1B1B1B191B1B1919191919191B1919
+      1919191919191916161919161616161616161616161616161614141416141614
+      1414141414141414141414141414121412141414121412121412121412121412
+      12121212121212121212120F0F0F1212120F0F0F120F0F120F0F0F0F0F0F0F0F
+      0F0D0F0F0F0D0F0D0F0D0D0D0D0D0D0D0D0D0D0D0D0A0D0D0D0A0D0D0A0A0D0A
+      0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A080A0A080808080A0A
+      0808080A08080808080808080808080805080808080508080508050508080508
+      0805080505050505080805050505050305050505030503050305050303050503
+      0303050303030503050303030303030303030303030303030303030003000300
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030302F30302F30302F2F2F30
+      302F2F302F2F2F2F2F2F2F30302F2F2F302F2F2F2F2F2E2F2F2F2F2E2E2E2F2F
+      2E2F2F2F2E2F2F2E2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2E2E
+      2D2E2D2D2D2D2D2E2E2E2D2D2D2E2E2D2D2D2D2D2D2D2D2C2C2C2D2D2C2D2C2C
+      2D2D2D2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2C2C2B2B2B2C2C2C2C2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2A2A2B2B2B2B2B2A2B2B2A2B2A2A2A2B2A2A2A2A2A2A29
+      2A292A2A2A292A292A29292929292A2929292A29292929292928292929292928
+      2828282829282828282828282828282727272828282727282827272727272727
+      272727272C2C2C2F2F2F3131313333333535352A2A2A26262626262726262626
+      25272A29292C2B2B2C2B2B2C2A2B2C2B2B2B2A2A2B2A2A2B2A2A2A292A2A2A2A
+      292A29292A2A2929292929292929282829292929282829292929282828292828
+      2827282828282828272827282727272727272727272727262727262626272626
+      2726262626262626262626262625252526232223202020201F20201F1F202120
+      2021212929293232323132323131303031312F2F2F2E2E2E2E2E2E2D2D2C2C2D
+      2C2B2B2B2B2B2B2B2B2B2B2B2B2A2B2B2A292A2A292926262723232326262628
+      2828282827282828292A2A2B2B2B2525251B1A1C1B1A1C1B1A1B1A1A1C1A1A1B
+      1A1A1B1B1A1A1D1D1E1D1D1D1D1D1D1D1D1D1D1D1D1D1C1D1D1D1C1C1C1C1C1C
+      1C1C1C1C1C1C1C1B1B1C1B1C1C1B1B1B1B1B1B1B1B1A1B1B1B1A1A1B1A1A1B1B
+      1A1A1A1A1A1A1A1A1A191A19191A191919191919191919191818181919181819
+      1818181818181817171716171415151414141414141515151818182F2E2F3434
+      343A3A3A40404045454515141512121211111111111211111211111111111111
+      1010111111101110101010101010100F100F0F0F0F0F100F0F0F0F100F0F0F0F
+      0E0F0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0D0D0D0D
+      0D0E0D0D0D0D0D0C0C0D0D0D0D0D0C0C0C0D0D0C0C0C0C0C0C0C0C0C0C0C0B0C
+      0B0B0C0C0C0B0B0B0B0B0B0B0B0B0A0A0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A
+      0A0A0A0A090A090A090909090A090909090A0909090909090909090909080808
+      0808090809080808080808080808080708080708080807070707070708070707
+      0707070707070706070607060707060707060706060606060606060506060606
+      0605060606050506060506060505050505050505050505050505050404050504
+      0505040404040505040404040404040404040403040404040404030403040303
+      0303030303030303030303020203030303030302030203030202030203030203
+      0202020203020202020202020202020101020102020201020201010202010101
+      0101010101010201010101010101010101010101000100010101010001000000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F30302F303030303030302F2F2F30
+      2F2F2F2F2F2F2F2F2F2F2F302F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2E2E
+      2E2F2F2F2E2F2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2E2D2D2E2D
+      2E2D2D2E2D2E2E2D2E2E2D2D2D2D2D2D2D2D2D2D2D2D2C2C2D2C2C2C2D2D2E33
+      33322F2F2F2C2C2C2C2C2C2C2C2B2B2C2C2C2B2B2B2B2C2C2C2B2B2B2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2B2B2A2A2A2A2A2A2A2A2A2A
+      292A2A2A2A292A292A2929292929292929292929292929292929292829282929
+      2829282928282828282828282728272828272727282827272727272727272727
+      2E2E2E2F2F2F3131313333333535352726272626272625272626262625272A29
+      292C2B2B2C2B2B2C2A2B2C2B2B2C2A2B2B2B2A2B2B2B2B2B2A2A2A292A2A2A29
+      292A292929292929292929292929292829282828282929282828282928282828
+      2827282828282828272828282727282727272727272627272727262627272626
+      26262626262626262526262525262525202021202020202020201F2020212021
+      21213030313031313130303031312F2F302E2E2E2E2E2F2E2E2E2D2D2D2C2D2D
+      2C2C2D2C2C2C2C2C2C2B2B2B2A2B2B2A2B2A2A2A29292A292929292929282A2A
+      2A2A2A2B2C2B2B2625251B1B1C1B1B1C1A1A1B1B1B1B1A1B1B1A1B1B1B1B1B1E
+      1E1D1E1E1E1E1D1D1D1D1D1D1D1D1D1D1C1D1D1D1D1C1D1D1C1C1D1C1C1C1C1C
+      1C1C1C1C1C1B1B1C1B1B1C1C1B1B1B1B1B1B1B1B1B1A1A1A1B1B1B1A1B1A1A1A
+      1A1A1A191A191A1A1A1A19191A1A191919191919191918191818181918181818
+      18181817171615151415141415141414141516151A1A1A2F2F2E3435353A3B3A
+      4040414242421212121212121212121211111112121211111111111111101110
+      11101110101111101010101010101010100F0F0F0F100F100F0F0F100F0F0F0F
+      0F0F0F0E0F0E0F0E0F0E0E0F0E0F0E0E0E0E0D0E0E0D0E0D0E0E0E0D0D0D0D0D
+      0D0D0D0C0D0D0D0D0D0D0C0C0D0C0C0C0C0C0C0C0D0C0C0C0C0C0B0C0B0C0C0B
+      0C0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0A0A0A0A0A0A0A0B0A0A0A0A0A0A09
+      0A0A0A090A0A0909090A090909090A0909090909080809090909080808080908
+      0808080809080808080808070808080708070808070708070707070707070707
+      0707070606070607060607060606060706070606060606060606060606050606
+      0605060505050506060605050505050505050505050505040405050504040405
+      0405040504040404050404040404040404040404040304030303030304030303
+      0303040303030303030303030303020302020302020303030302030203020202
+      0202030202020202020202020201020202020202020202020101020101010201
+      0101010101010101010101010101010001000001010001010100010001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F3030303030302F30303030302F30
+      3030302F2F30302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2F2F2E
+      2E2E2F2E2F2E2E2F2E2E2E2E2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D
+      2D2D2D2D2D2E2D2D2D2E2D2D2D2D2D2D2D2D2D2D2C2E2D2E3333343535353737
+      373535353030302C2C2C2B2B2C2B2C2B2B2C2C2B2B2B2B2C2C2B2C2B2B2B2C2B
+      2B2B2B2B2B2B2B2B2A2B2A2B2B2A2A2A2B2B2B2A2A2B2B2A2A2A2A2A2A292A2A
+      292A2A2A2A2A2A292929292A2929292929292929292928292928292928292828
+      282928282928282828272728282827272728282727272727272727272E2E2E2F
+      2F2F3131313333333535352525262626272626262626272625262B2A2B2C2B2B
+      2C2C2B2C2B2B2B2A2B2C2B2B2C2A2B2B2A2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A
+      29292A2A292A2A29292929292928292928292929292828282828282828282827
+      2828282827272727272827282727272727272626262727262726272727262626
+      2626262526252526262626262323232020202020202020202020201F20202829
+      283131313131313030312F2F302F30302E2E2E2E2F2E2E2E2E2D2E2E2D2D2E2D
+      2D2D2D2E2D2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C
+      2929291C1C1D1C1C1C1B1B1C1B1A1C1B1B1B1B1B1B1C1B1C1E1E1E1E1E1E1D1E
+      1E1E1E1E1E1D1D1D1E1D1D1D1D1D1D1C1D1C1D1D1C1D1C1C1D1C1C1C1C1C1C1C
+      1C1C1B1C1C1B1C1C1B1B1B1C1B1B1B1B1B1B1A1B1B1A1B1A1A1A1B1A1A1A1A1A
+      1A1A1A191A19191A1A191A191919191919191819181919191818181818181818
+      171616161514151415151415151515151D1D1E3030303636363B3C3B41414138
+      3838121212121212121212111112121211111111111111111111111011101010
+      1111111011101010101010101010100F10100F0F0F10100F0F100F0F0F0F0F0F
+      0F0E0E0F0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0D0E0D0D0D
+      0D0D0D0D0D0D0D0C0D0C0C0C0D0C0D0C0D0C0C0C0C0C0C0C0C0C0C0B0C0B0B0B
+      0B0B0C0C0B0C0B0B0B0B0B0A0B0B0B0A0A0B0B0A0A0A0A0A0A0A0B0A0A0A0A09
+      0A0A0A0A0A090A0A09090A090909090909090909090908080809080809080809
+      0808080808080808080808070807080708070807080707070708070707070707
+      0607070706070707070707060606060706060606060606060606060606050605
+      0606060506050605050505050505050505040505050405050504040504050404
+      0404050404040404040404030404030304040304040404030304030403030303
+      0303030403030303030303030303030302030302030202020203030303030202
+      0202020202020202020202020201020102020202010202010202020201010201
+      0201010201010101010101010101010101010101000000010000000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F30303030302F2F302F
+      2F2F2F30302F302F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2F2E
+      2E2E2E2F2E2F2E2E2E2E2E2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2D2E2E2D2E2D
+      2E2D2D2D2D2D2E2D2D2D2D2D2D2D2F2F2F333333343434363636373737393939
+      3A3A3A3737373030302C2C2C2C2B2C2C2C2C2B2C2B2C2C2C2C2C2B2B2B2B2B2C
+      2B2B2B2B2B2B2B2B2A2B2B2A2B2A2B2A2B2B2A2B2A2A2A2A2A2A2A2A29292A2A
+      2A292A2929292A2A292929292929292929292929292929292829282828292829
+      2828292828282827282728272827282728282727272828282F2E2E3030303232
+      323434343434342525262626272626272626272625262B2B2B2C2C2B2C2B2B2C
+      2B2B2C2B2B2B2B2B2C2B2B2B2A2B2B2B2A2B2A2A2A2A2A292A2A29292A29292A
+      29292A2929292929292929292928292929292928282828282828292828272828
+      2828272827272727272727272727272727272726272626272627272626272626
+      2626262626252526252525202021202020202020202020201F1F202020292928
+      2B2A2A2C2C2C2A2A2B2A2A2B2F2F302F2F302F2F2F2F2E2F2E2F2F2E2E2E2D2D
+      2D2D2E2D2D2D2D2C2D2C2D2D2D2D2D2C2C2C2C2C2C2C2D2D2D2A2A291D1C1E1B
+      1B1C1B1B1C1B1B1C1B1B1B1B1B1C1B1C1B1F1E1E1E1E1F1E1E1E1E1E1E1D1E1E
+      1E1D1E1D1D1D1E1D1D1D1D1D1C1D1D1D1D1D1D1D1C1C1C1C1C1C1C1C1C1C1C1C
+      1C1B1B1C1B1B1C1B1B1B1B1B1B1B1B1B1A1B1B1A1B1B1A1B1B1A1A1B1A1A1A19
+      1A1A191A1A191A19191919191919191919191919181819191818181818161616
+      1515151514151414141516162323233131313737373E3E3E4343423333321312
+      1213121211121212111212111111121111121111111111111111111011101010
+      1010101010101010101010100F10101010100F100F0F0F100F100F0F0F0F0F0F
+      0E0E0F0E0F0E0F0E0E0F0F0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D0D
+      0E0D0D0D0D0D0D0D0C0C0D0C0D0C0D0D0C0C0C0C0C0C0C0C0C0B0C0B0B0B0C0C
+      0B0B0C0B0C0B0B0B0B0B0B0B0A0B0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A090A
+      0A090A0A0A0A0A09090A0909090A090909090909090809090809080909080808
+      0809080808080808080807080707080807070807080707070708070707070707
+      0707070607060606060607060606070706060606060606060606050605060505
+      0605060606060505050505050505050505050405040405040505050504040405
+      0404040504040404040404040404040403040404030403030304030303030303
+      0403030303030303030303030303030302020302030302020202030202020202
+      0202020302020202020202020202020202020202010101010101020102010102
+      0101010101010101010201010001010100010100010100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F30303030302F2F2F302F2F
+      2F2F30302F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2E2F2E2E2E2F
+      2E2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E2E2D2E2E2E2D2D2E2D2D2D2D
+      2D2E2D2D2D2D2E2F2F2F3232323333333535353737373838383939393A3A3A3B
+      3B3B3B3B3B3737373030302C2C2C2C2C2C2C2B2B2B2B2C2C2B2B2B2C2B2B2B2B
+      2B2B2B2A2B2B2A2B2A2A2A2A2A2B2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29
+      2A2A292A292A292A292929292929292929292929292929292929292928282928
+      2828282828282828272728272827282727292A2A2E2E2E303030323232343434
+      3232322525262626272626272626272626272C2C2B2D2C2C2C2B2B2C2C2B2C2B
+      2B2C2B2B2C2B2B2C2A2B2B2B2B2B2B2B2A2A2A2A2A2A292A2A2A2A2A29292A29
+      292929292A2A2929292929292929292929282829282829282828282828272828
+      2828282827272728272827272727272727262726262626272627262626262626
+      262626252626262322232121202020212020201F20201F201F201F1F201F201F
+      201F1F1F1F1F1F1E1E1E1E1E1F1E1F1F202322232222232525252726272A2929
+      2E2E2D2E2E2E2D2D2E2E2E2D2D2D2D2E2D2D2C2D2C1D1D1E1B1C1D1C1C1C1B1C
+      1C1C1B1C1B1B1C1C1C1C1F1F1E1E1E1F1F1E1E1E1E1E1E1E1E1E1E1E1E1E1E1D
+      1E1D1E1E1D1D1E1D1E1D1D1C1D1C1C1D1D1D1D1D1D1C1D1C1C1D1C1C1C1C1C1C
+      1C1C1B1B1B1C1B1C1C1B1B1B1B1A1B1B1B1B1A1A1B1A1A1B1B1B1A1A1A1A1A1A
+      1A19191A191A191919191A191919191919181919181819181815161515151515
+      15151514141616162525253232323939393E3E3E4443432D2C2D121212121312
+      1213121212121212121211111112111212111112111111111111111010101011
+      101010101011101010100F101010100F100F1010100F0F0F0F0E0F0F0E0F0F0F
+      0F0E0E0F0F0E0E0E0E0E0E0E0E0E0E0D0E0E0E0D0D0D0D0D0E0E0D0D0D0D0D0D
+      0D0D0D0D0D0C0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0B0B
+      0C0B0B0B0B0C0B0B0B0B0B0B0B0B0A0A0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A
+      090A0A0A09090A0A090909090909090909090908080809080808090808080908
+      0908080808080807080808080707080707070807070707070707070707070707
+      0707070706070707060706060606060606060606060506060606060505050506
+      0605060505050605050605050505050505040505050404040404050504050504
+      0404050404040404040404040403030403040404040404040403040403030303
+      0303030303030303030302020303030202030203030302020302030202020202
+      0302030202020202020202020201020201010202020102010101010101010101
+      0101010101010101010101010001010000010000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F303030303030302F2F302F
+      302F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2F2F2E2F2F2F2E2F2F2F2F
+      2E2E2E2E2E2E2F2F2E2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2D2D2D2E2D2D2D2D
+      2F30303232323333333434343636363838383939393A3A3A3B3B3B3B3B3B3C3C
+      3C3B3B3B3B3B3B3635362E2D2E2B2C2B2B2B2C2B2C2C2C2B2B2B2B2C2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2A2B2B2A2A2A2A2A2A2A292A2A2A2A2A
+      29292A292929292A2A2929292929292929292929292928292929292829282828
+      282828282728282727282828272929292F2E2F30303133323234343432323226
+      26272626272626272626272626272D2C2C2C2C2B2D2B2B2C2C2B2C2B2C2C2B2B
+      2C2B2B2C2B2A2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A292A2929292929
+      2929292929292929292829292928292928282828282928282828282728272728
+      2727272827282727272827272727272727272727272627262626272626262626
+      252626262525202121202120202020202020201F1F201F1F20201F1F1F201F1F
+      1F1F1E1F1F1F1F1E1F1E1E1E1E1F1E1E1E1E1E1E1E1E1E1E1E1D1D1D1D1D1D1E
+      1E1F222222252524272827292A292020201C1D1D1C1C1D1C1B1D1C1B1C1B1C1D
+      1C1B1C1E1E1E1F1F1F1F1F1E1F1F1F1E1E1E1E1E1E1E1E1E1E1E1E1D1E1E1D1D
+      1E1E1D1D1D1D1D1D1D1D1D1D1D1D1D1D1C1D1C1D1C1C1C1C1C1C1C1B1B1C1B1B
+      1C1B1B1C1C1C1B1B1B1B1B1B1B1B1B1B1A1B1B1A1A1A1B1A1A1A1A1A1A1A1A1A
+      1A1A1A1A1A191A19191919191919191918181818171615151515151516151515
+      1518181729282834343439393940404045444520202012121212131313131212
+      1212121212121212111211121111121211111111111111111111111111101111
+      101011101010100F0F0F101010101010100F0F100F0F0F0F0F0F0F0F0F0F0F0F
+      0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0D0D0D0D0E0D0D0D0D
+      0D0D0C0C0C0D0D0C0D0C0D0C0C0D0C0C0C0C0C0C0B0C0C0C0B0C0C0C0B0C0B0B
+      0B0B0B0B0B0B0B0A0B0B0B0B0A0A0B0A0A0A0B0A0A0A0A0A0A0A0A090A0A0A0A
+      09090A0A09090A0909090A090909090908090908090908090908090908090808
+      0808080808070808080708070808070708070707070707070707070707070707
+      0707060706070607060606060606060606060606060606060606060506060506
+      0506050506050505060505050505050505050505050504050504050405040404
+      0404040404040404040403040404040404030403030303040303030404030304
+      0303030303030303030303030303030302020303020202030202020202030202
+      0202020202020202020202020202020201020201020101020102020101010101
+      0101010102010101000101000000010001000001000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030302F3030303030303030303030302F302F3030303030
+      2F2F2F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2F2E2E2F2F2E
+      2E2E2F2E2E2E2F2F2E2E2E2E2E2E2E2E2E2E2D2D2E2E2D2E2D302F3032323234
+      33333534343636363838383939393B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C
+      3C3C3C3B3B3B3B3B3B3535342E2E2E2C2C2C2B2C2B2B2B2B2B2B2B2B2C2B2B2B
+      2B2B2B2A2A2A2B2B2B2A2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A2929
+      29292A292A2929292A2929292929292929292929282929282928292829282828
+      2828282828282827282B2A2B2E2E2F3031303332333434342D2D2D2626272626
+      272626272626272727272D2C2C2C2C2B2D2B2C2D2B2B2C2B2B2D2B2B2C2B2B2C
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2B2A2A2A2A292A2A292A2A2929292929
+      2929292929292929292929292828292829292828282828282828282827282827
+      2728272727272727272827272727262727272726262626262627262626252626
+      25252322232021212020202120212020201F202020202020201F201F1F1F1F1F
+      1F1F1F1F1F1F1E1E1F1F1F1F1E1F1F1E1E1E1E1E1D1D1E1D1D1E1D1D1D1E1D1D
+      1E1D1D1D1D1D1D1D1D1D1D1D1D1C1D1D1C1C1D1C1C1D1C1C1C1B1B1C1E1E1F1F
+      20201F1F201F1F1F1F1F1E1F1F1F1F1E1E1F1E1F1E1E1E1E1E1E1E1E1D1E1E1E
+      1E1D1D1D1D1E1D1D1D1C1D1D1D1C1D1C1C1C1C1C1D1C1C1C1C1C1C1C1B1C1C1C
+      1C1C1C1B1B1C1C1B1B1B1A1B1B1B1B1A1B1B1A1B1B1B1A1A1B1A1A1A1A191A1A
+      1A1A191919191919191919191919181818161516161515151515161617191919
+      2E2D2E3434343A3A3A4040404545451919191213131313131213131212121212
+      1212121212121212111111121111121111111111111110101010111110101011
+      101010101010101010101010101010100F0F0F100F0F0F0F0F0F0E0F0F0F0F0E
+      0F0F0E0E0E0E0E0E0E0D0E0E0E0E0D0D0D0E0D0D0E0E0D0E0D0E0D0D0D0D0D0D
+      0C0D0D0D0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0B0C0B0C0B0B0C0B0B0B0B0B
+      0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A
+      0A0A0A090A090A090A0909090909090909090909090908090909090808080808
+      0808080808080808070707080707080707080807070807070706070707060707
+      0606070707060707060706060706060606060606060606050605050605050505
+      0606060505050605050504050404040505050405050504050505040404050404
+      0404040504040404040403040304030304040404030304040403040303040303
+      0304030302020303030203030303030202030303030203020202020302030203
+      0202020202020202020202020202010202020102010101020201010101010101
+      0101010101010100010100010101000001000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030302F30302F2F30302F30303030302F3030
+      2F2F2F302F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2E2E2F
+      2F2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D3131303333323334343534343636
+      373938383B3A3A3737373231323A3A3A3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C
+      3C3C3C3C3C3A3B3B3B3B3B3534342E2E2E2B2B2B2B2B2C2C2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2A2A2A2B2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2929292A
+      2A292A2A292929292A2929292929292929292929292928282928282828282828
+      28282828282B2B2B2F2F2F3131313333333434342E2E2E262627262627262627
+      2626272828282D2C2C2D2C2C2D2C2C2C2C2B2C2C2C2C2B2B2C2B2C2C2B2B2C2B
+      2A2B2B2A2B2B2A2A2A2A2B2A2A2B2A2A2A2A2A2A29292A292A292A2A2A2A2929
+      2A29292929292929282829282828282828292928282828282828282828282827
+      2828272828282727272727272726272726262627262626262626262626262625
+      252121212020202020212020202020202020201F202020201F1F1F1F1F20201F
+      1F1F1F1E1E1F1F1F1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D
+      1D1D1D1D1C1D1D1D1D1C1C1D1C1D1D1C1C1D1C1C1D1E1D1E2020201F1F1F1F1F
+      1F1F1F1F1F1F1F1F1F1F1F1F1E1F1E1E1F1E1E1E1E1E1E1E1E1D1E1E1E1D1E1D
+      1E1D1D1D1D1D1D1D1D1D1D1D1D1D1C1C1C1D1D1C1C1C1C1C1C1C1C1B1B1C1C1B
+      1C1B1B1B1B1C1B1B1B1B1B1B1B1B1B1A1B1A1A1B1A1A1A1A1A1A1A1A1A1A1A1A
+      191A1A1919191919191A1717171516161615161616161617161A1B1A2F2F2F35
+      35353B3B3B404040454545131313121313121313131213121213121212121312
+      1212121211121112121112111112111112111110111111111011101010101011
+      111010101010100F10100F100F100F10100F100F0F0F0F0F0F0F0F0F0E0E0F0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0E0E0D0E0E0E0D0D0D0D0D0D0D0C0D0D
+      0D0D0D0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0B0B0C0B0C0B0B0B
+      0B0B0B0B0B0B0A0B0B0B0B0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A
+      090A0A0909090909090A09090909090808090908090809090908080908080808
+      0808080707080708070708070807080707070707070707070707070707070707
+      0606060607060706070606060606060606060506050605060606060606050605
+      0506050506050505050505050505050404050504040504040404040505040404
+      0404040404040304040304040404040304030304040304040303030303030303
+      0302030303030303030303030202020203020302030202030203030302020202
+      0202020201020202020201020202020201010201010102010101020201010101
+      0101010101010101010101000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F2F302F2F30302F2F302F2F
+      2F2F2F2F2F2F302F2F2F2E2F2F2F2F2E2E2F2F2F2F2F2F2F2F2F2E2F2E2E2E2F
+      2E2F2E2E2E2E2E2E2E2E2E3131303233333433343535353737373938383A3A3A
+      3535362B2B2B2C2C2C2C2C2C3232323B3B3A3D3D3D3D3D3D3C3C3C3C3C3C3C3C
+      3C3C3C3C3C3C3C3B3A3B3B3A3A3535352E2D2D2B2C2B2B2B2B2B2B2B2A2B2B2B
+      2B2B2B2B2B2B2A2B2A2B2A2A2A2B2B2A2A2A2A2A2A2A2A2A2A2A2A292929292A
+      2929292929292929292929292929292929292828292928282828292828282828
+      282C2C2B302F303132323333343636362C2C2C26262726262726262726262728
+      28282D2C2C2D2C2C2D2C2C2C2C2C2D2C2B2C2B2C2C2B2C2C2B2B2C2B2B2B2B2B
+      2B2B2B2B2A2B2A2B2A2A2A2A2A2A2A2A2A292A292A2A292A292A292A292A292A
+      2929292929292928292928292928292928292828282927282828282827282827
+      2827272727272827272727272727272726262727262726262626262626242324
+      222122222122212121212121202021202020201F201F1F1F1F1F1F1F1F1F1E1E
+      1F1F1E1F1E1F1E1E1E1E1F1E1E1E1E1E1E1E1E1E1E1D1D1D1E1D1E1D1D1D1E1D
+      1D1D1C1D1D1C1C1D1D1D1D1D1D1D1E1E1E2020201F202020201F1F1F1F1F201F
+      1F1F1F1F1F1F1F1F1F1E1F1F1F1E1E1F1E1E1E1E1E1E1E1E1D1E1E1E1D1D1D1D
+      1D1D1D1D1D1D1D1D1D1D1D1D1D1C1C1D1C1D1D1D1C1C1C1C1C1C1B1C1B1C1C1B
+      1C1C1B1B1C1B1B1B1B1B1A1B1A1A1A1A1B1B1B1A1A1A1A1A1A1A1A1A191A1A1A
+      1A191A19191A1718171616161616151515151617171E1E1E3131303636363C3C
+      3C4242423C3C3C14141313131313131212131313131312121312121212121212
+      1212111212111211121212111111111111111111101110111011101010101110
+      1010101010100F10100F10100F0F0F0F100F0F0F0F0F0F0F0F0F0E0E0F0E0F0E
+      0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0B0C0C0B0B0B0B0B
+      0B0B0B0B0A0B0B0A0B0A0B0A0B0A0B0A0A0A0A0A0A0A0A0A090A0A0A09090909
+      0A090A090A090909090909090909090908090908080908080809090808080808
+      0808080808080708080808080707070707070807070707070707070707060607
+      0706060606070606060606060606060606060606050605050606060506050505
+      0505050505050505050505050504050405040405050404040404040404040404
+      0404040404040404040304040304040403030304030403030303030404030303
+      0303030303030303030303020203020203020202020202030202030202020202
+      0202020202020202020102020101020101020201010101010101010101010101
+      0100000101000000000001000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F30302F302F2F2F2F2F2F302F3030
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2E2F2F2E2F2E2F2F2E2F2E2F
+      2E2F2E2F3131313333333434343636363737373839393B3B3B3434332B2B2C2C
+      2C2C2C2C2C2C2C2C2B2C2C2C2C2C3232333A3B3A3D3D3D3D3D3D3C3C3C3C3C3C
+      3C3C3C3C3C3C3B3B3B3A3A3A3B3A3B3434352D2D2D2B2B2B2B2B2B2B2B2B2A2B
+      2B2B2A2A2B2B2A2A2B2A2B2A2B2A2B2A2A2A2A292A2A29292A292A2A292A2A2A
+      2A29292A292A29292929292929292928282929282828292828282828282D2D2D
+      3131313332323435343636362B2B2A2626282626272626272626272A292A2D2C
+      2C2D2C2C2D2C2C2D2C2C2C2C2C2D2B2B2C2C2B2C2B2B2C2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2A2A2B2A2A2B2A2B2A2A2A2A2A2A2A2A2A2A292A2A292A2A29292A29
+      2929292929292929292828282828292929292828282728282828282828272727
+      2827272727282727272726262626262626272626262726272626262625262626
+      2526262626252526252525252525242525242424242223232223222222212121
+      202021201F201E1F1E1E1E1E1E1E1E1E1D1E1E1D1E1E1D1D1E1D1D1D1D1D1D1D
+      1D1D1D1D1C1C1D1F1E1F2020202020202020201F1F201F1F201F1F201F20201F
+      1F1F1F1F1F1E1F1F1F1F1F1E1F1E1E1E1E1E1E1E1E1E1E1E1E1E1D1D1E1D1D1D
+      1D1D1D1D1D1C1C1C1D1C1D1D1C1C1D1C1C1D1C1C1D1C1C1C1C1C1C1C1C1B1B1B
+      1C1C1B1B1B1B1B1B1B1B1B1B1B1A1B1B1A1A1A1A1A1A1A1A1A1A191A1A191A19
+      191A1716181616161616161616161717172322223132313837373D3D3D434343
+      3636361314131313131313131313131212121212131312131312121212121212
+      1211111212111212121111111111111111111011101010111111101010101010
+      1010101010101010100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0C
+      0D0C0D0C0C0C0D0C0C0C0C0C0D0C0C0C0C0B0C0C0C0C0C0B0C0C0B0B0B0B0B0B
+      0B0B0B0B0B0A0B0B0B0B0A0B0A0A0A0A0B0A0A0A0A0A0A0A0A0A0A09090A0A09
+      09090909090A0A09090909090909090909080809080908080809080808080808
+      0808070808080807070708070808070707070807070707070707070707070706
+      0607060607060606060606060606060606060606060505050606050605050606
+      0605050505050505050504050505050505040504050405050504040404040404
+      0404040404040404040403040304040303040304030404030303030303030303
+      0303030303030302020302020302030203020202020302020302030202020202
+      0202020202010202020202020101010101020101010101010101010101010101
+      0101000101000101000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030302F30302F3030302F30302F30302F3030302F2F2F3030302F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2F2F2F2E2F2E2E2E2E313131
+      3333333535343636363838383939383B3B3A3232322C2B2C2D2D2D2D2D2C2C2C
+      2C2C2C2C2C2C2C2B2B2C2C2C2C2C2C2C3332323A3B3B3D3D3D3C3C3C3C3C3C3C
+      3C3B3C3C3C3C3C3C3B3B3A3A3A3A3A3B3A3434352D2D2D2B2B2B2B2B2A2B2B2B
+      2B2B2A2B2A2A2A2A2B2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2929292929292A
+      292A292A2A29292929292929292929292928292928282C2C2C2F2F2F31313134
+      34333534353736362B2A2A2727272626272626272626272A2A2A2D2C2C2D2C2C
+      2D2C2C2D2C2C2D2C2C2D2B2C2C2B2B2C2C2C2C2C2C2C2C2C2B2C2B2B2B2B2B2A
+      2A2B2B2B2A2B2A2A2A2A2A2A2A2A2A2A2A292A2A2A29292A2A29292A292A2929
+      2929292829292829282929282928282828282828282828282828282827272728
+      2727272727272727272727262727262626262626262626262626252626262626
+      2525262525262525252525252525252524252524242424252424242424242423
+      23232323232222232221212121212020201F1F1F1E1D1E1D1E1D1D1E1D1D1D1D
+      1E1D1D202121202120202020202021202020201F201F1F201F1F1F1F1F1F1F1F
+      1F1F1F1E1F1F1E1E1F1E1E1E1E1E1F1E1E1E1E1E1E1D1D1D1D1D1E1D1E1E1D1D
+      1D1D1D1D1D1D1D1D1D1D1D1D1D1C1C1C1D1C1C1D1C1C1B1C1C1B1B1B1B1B1B1C
+      1B1C1B1B1B1B1B1A1B1B1B1B1B1B1B1A1A1A1B1B1A1A1A1A1A1A1A19191A1616
+      161616161616161616161818182524253233323838383E3E3E4444442D2D2D13
+      1414131314131313131313131313121312121312121212131312121212121212
+      1111121211111212111111121111111011111111101111111011101011101010
+      1010101010100F0F100F0F0F10100F0F0F0F0F0F0F0F0F0F0E0E0F0F0E0E0E0F
+      0F0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C
+      0D0C0D0D0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0C0B0B0C0B0B0B0B0B0B
+      0B0B0B0B0A0A0B0B0A0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A090A0A0A090A0A
+      0A0A090909090909090909080909080909080808090908080908080808080808
+      0807070808070707080707070708070707070707070707070706060707070707
+      0707070606060706060606060605050606060606060505050605060605060505
+      0505050506050505050505040405050404040405050405050404040404040404
+      0403040404030403040403040403040404030303040303030303030303030303
+      0203030202030303030303020302020303030302030203020202020202020202
+      0202010201020202010202010202010102020101010101010101010101010101
+      0001000000000000010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      2F30303030303030303030302F30302F2F2F2F2F302F302F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2E2F2F2E2F2F2E2F2F2E2E2E32323133333334343436
+      37363838383A3A3A3A3A3A3231332C2C2C2D2D2D2C2C2D2C2D2C2C2C2C2C2C2D
+      2D2C2C2C2C2C2B2C2C2C2C2C2C2B2B2C2B2B3333333B3B3B3D3D3D3C3C3C3C3C
+      3C3C3C3B3B3C3C3C3C3C3C3C3B3A3A3B3B3A3A3333332C2C2C2B2B2A2B2B2A2A
+      2A2A2A2B2B2A2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A29292A2A2A29292929292A
+      2929292A29292929292928292D2D2D2F2F303030303131313333333535353636
+      363736372727272627282627272726272626272A2A2A2D2D2C2D2C2C2D2C2C2D
+      2C2C2D2C2C2D2C2C2D2B2B2D2C2C2C2C2C2C2B2B2B2C2B2B2B2B2B2B2B2B2B2B
+      2A2B2B2A2A2B2A2A2A2A2A2B292A292A292A292A292A292A2929292929292929
+      2929282929292928282828282829282928282928272828282828282827272827
+      2727272727272727272627272726262726262627262626262625262625252626
+      2525252525252525252525252524242525242524242424242424242423232423
+      23232323242223232222232222232221222221212121201F20201F1F21212121
+      2120212121202120202020202020202020201F201F1F201F1F201F1F1F1F1F1F
+      1F1F1F1F1F1F1E1F1E1F1E1F1E1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D1E1D1D1D
+      1D1D1D1D1C1C1D1C1C1C1C1D1D1C1C1C1C1C1C1C1C1C1C1B1C1C1C1C1B1B1B1B
+      1B1B1B1B1B1B1B1B1A1B1A1A1A1A1B1A1A1B1A1A1A1A1A191919161617161617
+      1616161616161919192A2A2A3334343A3A393F3F3F4545452423241314141414
+      1313141313131313131313131313131312131312131212121212121212121212
+      1212121111121211111111111111111111101010111110111111101010101010
+      10101010100F100F100F10100F100F0F0F0F0F0F0F0E0F0F0E0F0E0E0F0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0D0D0E0D0E0D0D0D0E0D0D0D0D0D0D0C0D0D0D0C0D0C
+      0D0D0C0D0C0D0C0C0C0C0C0B0C0C0C0C0B0C0C0B0B0C0B0B0B0B0B0B0C0B0B0B
+      0A0B0B0B0B0A0B0A0A0B0A0A0B0A0B0A0A0A0A0A0A0A090A09090A090A0A0A09
+      0909090909090909090908090909080908090808080908080908090808080808
+      0808070808070808070708080807070707070707070607070707060707060606
+      0606070606060606060706060606060606060506060505050605050505050505
+      0505050505050504050504050504040404040505040504040504040404040404
+      0404040404030404030403040303040304030404030303030303030303030303
+      0303030203030303030202030302020202030202020202020202020202020201
+      0202020201020102020201020201010101020101010101010100010101010101
+      0100010000000101000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F3030302F302F2F302F302F2F302F302F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2E2F2F3132323333333534353637373838383A3A
+      3B3A3A3A2F2F2F2C2C2C2C2C2D2D2D2D2C2D2C2C2C2D2D2C2C2C2D2C2D2D2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2B2C2D2C2C3434353B3C3C3D3D3D3C3C3C
+      3C3C3C3C3C3B3B3C3C3C3B3B3B3B3C3B3A3A39393A3333332C2C2C2B2B2A2B2B
+      2A2B2B2B2A2B2B2A2A2A2A2A2A2A2A2A2A2A292A2A292A2A2A29292A2A2A2929
+      292A2D2D2E303030303030313030313131333333353535363637373737383838
+      2727282627282727282626272626282B2B2B2D2D2C2D2C2C2D2C2C2D2C2C2D2C
+      2C2D2C2C2D2C2C2D2B2C2C2C2C2C2B2C2B2B2C2B2B2B2B2B2B2B2B2A2B2B2A2A
+      2A2B2A2B2B2A2B2B2A2A2A2A2A2A2A2A2A292A292929292A2A2A292929282929
+      2928292828292829292828282828282828282828282828282827272828272727
+      2827272727272727272727262626262626262626262626262626262626252626
+      2625252525252525252525242525252424242424242424242323242323242323
+      2423232422222322222322222322222322222222212221212221212120212121
+      212121202120202021202020202020201F20201F1F201F2020201F1F1F1F1F1F
+      1F1F1F1E1F1F1E1E1E1F1E1E1E1E1E1E1E1E1E1E1E1E1E1E1D1D1D1E1D1E1D1D
+      1D1D1D1D1D1D1D1D1D1C1D1C1C1C1C1C1D1C1C1C1C1B1B1C1C1C1B1B1B1B1B1B
+      1C1B1B1B1B1A1A1B1B1B1A1A1B1A1A1A1A1A1A19191916161617161717161617
+      1717191A192D2D2D3435353A3A3A4041404545451D1D1D141414141414141413
+      1413131313131313131313121313131313131212121212121212121212121112
+      1111121111111112111111111111111111111010111010101010101010101010
+      10100F0F0F0F10101010100F0F0F0F0F0F0F0F0E0E0F0F0F0E0F0E0E0E0F0E0E
+      0E0E0E0E0E0E0E0D0E0E0D0E0D0E0D0E0E0E0D0D0D0D0D0D0D0C0D0C0C0D0C0C
+      0C0C0D0D0C0C0C0C0C0C0C0C0C0C0C0B0B0C0C0B0B0B0C0B0B0C0B0B0B0B0B0B
+      0B0A0B0B0B0B0A0B0A0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A090A0A0A09090A09
+      09090909090A0909090909090809090908080908080808080808090808080807
+      0807080808080708070707070707070707070707070707060707070607060706
+      0706060606060606060606060606060506060606050506060606050505050506
+      0505050505050505050405040404040405040404050504050404040404040404
+      0404040404040404030304040303040303030404030303030303030303030303
+      0203020203020303020203030202020202020302020202020202020202020202
+      0201020202020101010101010201010102010101010101010101010101010000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030302F302F302F303030302F2F302F2F302F2F302F
+      2F2F2F2F2F2F2F2F3232323333333534343736363838383A3A3A3A3B3A2F302F
+      2C2D2C2D2D2D2D2D2D2D2D2D2D2D2C2D2D2C2D2E2D2D2D2D2C2C2D2C2D2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2B2C2C2C2B2C2B2B2B2D2C2D3435343B3B3B3D3D3D3C
+      3C3C3C3B3C3B3B3C3C3B3B3B3C3B3B3C3C3A3A3B3939393333332C2C2C2A2A2B
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292A292A2A2D2D2D2F30303130
+      3031323132323133333233343336353637373737373838393831313127272826
+      27272727272627282726272B2B2B2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C
+      2D2C2C2D2C2C2C2C2C2C2B2C2C2C2C2C2B2C2B2B2B2B2B2B2B2B2B2A2B2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A292A29292A2929292929292929
+      2929292828282828282828282828282828282828272727272728282727272727
+      2727272627272727272727262626262626272626262626262626262525262525
+      2525252525252525242525252524242524242424242424232324232324232324
+      2222242222232222232222232222232122222222222122212121212121212021
+      2120212020202020212021201F20202020201F201F1F1F20201F201F1F1F1F1F
+      1F1F1E1E1F1F1F1F1E1E1E1E1E1E1D1E1E1E1E1D1E1D1D1E1D1D1D1D1D1D1D1C
+      1D1D1D1D1C1D1D1D1D1C1C1C1C1D1D1C1C1C1C1C1B1C1C1B1B1C1B1B1B1B1B1B
+      1B1B1B1B1B1B1B1A1A1A1B1A1A1A1A1919191717171717171717171717181B1A
+      1A2F2F2F3435353B3C3C40404046454515141514141514141414141313141313
+      1413131313131313131312131313121312121313121212121212121212121211
+      1111121211111111111111111111111111111111101010101010101010101010
+      100F0F100F10100F0F100F0F0F0F0F0F0F0F0F0E0F0E0F0F0F0F0E0F0E0E0E0E
+      0E0E0E0D0E0E0E0E0E0D0E0D0D0D0D0E0D0E0D0D0D0D0D0D0D0C0D0D0C0D0D0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0C0B0B0C0B0B0B0C0B0B0B0A0B0B
+      0B0A0B0B0B0A0B0A0A0B0A0A0A0A0A0A090A0A090A0A0A0A0909090A09090A09
+      0909090909090809090909090909080809080809090808080808080808070807
+      0708080708080808070707070708070707070707060607060707070607060706
+      0707060706060606060606060606050605050605050505050606060606050505
+      0505050405050504050405050505040505040404050404040404040404040404
+      0404040404040404040403030403030304030303030303030303030302030303
+      0303030302030303030202020203030303020202020203020202020202020201
+      0202010201020101010101020102010101010101010001000100010100000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030302F3030302F30302F302F302F302F302F2F2F302F2F30302F2F2F2F2F2F
+      2F3232323333333534343637373939383B3B3A3B3A3A302F302C2C2C2D2D2D2D
+      2D2D2D2D2D2C2D2C2D2D2D2D2E2F3433333534343131312E2E2E2C2C2C2C2C2C
+      2C2C2B2C2C2C2B2C2C2C2C2B2B2B2B2B2B2B2B2C2B2C2C2C3434343B3B3B3D3D
+      3D3D3D3D3B3B3C3C3C3B3C3B3C3B3B3B3A3A3A3A3A3A3938393332332C2B2B2A
+      2A2B2A2B2A2A2B2A2A2A2A2A2A2A2C2C2C2F2E2F303030323132323232333333
+      3434343535353636353636373737383131322A292A2727282727282727282627
+      282727272727272D2D2C2D2D2C2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D
+      2C2C2D2C2C2C2C2B2C2B2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2B2B
+      2A2A2B2A2A2A2A2A2A2A292A2A2A2A292A2A2A29292A292A2929292929292928
+      2929292928292928282828282828282828282827272727272727282827272727
+      2727262727272626272726262626262726262626262626262526252526252525
+      2525252525252525252525252524242424242424232423232423232423232422
+      2323232223222223212223222222222122222222222121212121212120202121
+      212020202120202020202020201F201F201F1F201F201F1F1F1F1F1F1F1F1F1F
+      1F1F1E1E1F1F1E1E1F1E1F1E1E1E1E1E1E1E1D1D1D1D1D1D1D1D1D1D1D1D1D1D
+      1D1D1C1C1D1C1D1C1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1B1C1C1C1C1B1C1B1B
+      1B1B1A1B1B1A1B1B1A1A1B1918181717171716171716171717171E1E1F313030
+      3737373C3C3B4343433F40401514141414141514141414141414131414131313
+      1413131313131313131313121212121312131212121212121212121112121212
+      1212111112111111111111111111101111101011111010111010101010101010
+      100F0F0F0F0F0F0F0F0F0F100F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0F0E0E0E
+      0E0E0D0E0E0E0D0E0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0D0D0D
+      0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0C0C0B0B0B0B0B0B0B0B0B0B0A
+      0A0B0A0A0B0A0A0B0A0A0A0A0B0A0A0A0A0A0A090A090A09090A0A0A090A0909
+      0A09090909090909080909080908080909080809080808090808080807080807
+      0707070808070808080707070707070707070707070607070607070606060607
+      0607060606060606060605060605050506050605060506050506060505050505
+      0505050505040505040505050405050505040505040405040404040404040403
+      0304040403040404030304030303030303030303030303030303030303030303
+      0302030203020202030202030302030202020203020202020202020202020102
+      0201010102010201020101010101010201010101000101000101010101000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F3030
+      302F302F303030303030302F30302F2F2F2F2F2F2F2F2F2F2F30323232333333
+      3535353636373938393B3A3B3B3B3B2F302F2C2C2D2E2D2E2E2D2D2D2D2D2D2D
+      2D2D2D2D2E2E2F3534343434353435353535343435353232312E2E2D2C2C2C2C
+      2C2C2C2C2C2C2C2C2B2C2B2B2B2C2C2B2B2B2B2C2B2C2B2D2C2C3434343B3B3B
+      3C3D3D3B3C3B3B3C3B3C3B3B3B3B3B3B3B3B3A3A3A3A3A3A3738373231322C2C
+      2C2A2B2A2B2C2B2F2F2F32323232323132323233333234343436353536363638
+      3737383838303030282828272828282728272728272728272728272628262728
+      2726282E2D2C2E2D2C2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C
+      2C2C2C2B2C2C2C2C2B2B2B2C2C2B2B2B2B2B2C2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2A2B2B2B2A2A2A2A2A2A2A2A2A2A292A2A29292A29292929292A282929292828
+      2928292828282829282828282828282828282828282728272727272827272727
+      2727272726272727262626262627272626262625262625262525252526262526
+      2525252525252524252424252424252424252323242323242323242323232322
+      2322222322222322222221222222222222212122212121212121212121212021
+      21202021202121202020202020201F20202020201F1F201F201F1F1F1F1F1F1F
+      1E1F1F1F1F1E1E1E1E1E1E1E1E1E1E1E1D1E1E1E1D1E1D1D1D1D1D1E1D1D1D1D
+      1D1C1C1C1D1D1C1D1D1C1C1D1C1C1C1C1C1C1C1B1C1C1B1B1B1B1B1B1B1B1B1B
+      1B1B1B1A1B1A1B1717191717181717171717171818172122223233323737373E
+      3E3E4444443A3A3A141515141414141414141414141413131414131314131313
+      1313131313131313121312121212121212131212131212121112121211121112
+      1111111111121111111111111111101111111010111011101010101010101010
+      10100F100F0F0F100F0F0F0F0F0F0F0F0F0E0F0F0F0F0F0E0F0E0F0E0E0E0E0E
+      0E0E0E0E0D0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0C0C0D0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0C0C0B0B0C0C0C0B0B0C0B0B0C0C0B0B0B0B0B0B0B0B0B0B
+      0B0B0B0B0A0A0A0A0B0A0A0A0A0A0A0A0A090A0A09090A0A0A0A090909090909
+      0909090908090909090809090909080908080809080808080808080808070808
+      0707070708070807080707070707070707070606070706060706060607060606
+      0606060606060606060606060606050606060506050505060505050505050505
+      0504050504050504040504040405050404050404040404040404040404040304
+      0404040404030403030404040303030303030303030303030303030303020203
+      0203020303030203020202020202020202020202020202020202020202010202
+      0102020201010101020101010101010101010101000000010100000101000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F30302F2F3030302F2F30302F32323233333435353537373739
+      39393B3B3B3B3B3A3030302D2D2D2D2D2D2D2D2D2D2D2D2D2D2E2D2E2D2F2F2F
+      3534343535343435353535353534343434353434353434343231312E2D2D2C2C
+      2C2C2C2C2C2C2C2C2C2B2C2C2C2B2B2B2B2B2B2B2C2C2B2B2B2C2C2C3434343B
+      3B3B3D3C3D3C3B3C3B3B3B3B3B3C3B3B3B3A3A3A393939383838363636313030
+      3333333333333333333433343433343435353535353738383737373131312929
+      2A2828282828292728292727282728292727282727292727282727282928292D
+      2D2C2D2D2D2D2D2C2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C
+      2C2C2B2C2C2C2C2C2C2B2B2C2B2C2B2B2B2B2B2B2B2B2B2B2B2A2B2B2A2A2B2A
+      2A2A2A2A2A2B2A292A2A2A2A2A29292A2A292929292929292929292929292928
+      2928292928292828282828282828282828272827272728282728272727272727
+      2627272626272726262726262726262626262626262626252625252525252525
+      2525252525242425242425242424232324232324232323232324232323222223
+      2222232222222222222222222222212122212221222121212121212121212121
+      20202120202020202020202020202020201F1F20201F1F1F1F1F1F1F1F1F1F1F
+      1E1E1E1F1F1F1E1E1E1E1E1E1E1E1D1E1E1E1E1D1E1D1E1D1D1D1D1D1D1D1C1D
+      1D1D1C1C1C1D1D1C1C1C1C1C1C1C1C1B1C1C1C1C1C1B1B1B1B1B1B1B1B1B1B1B
+      1A1B1A1817181817171717171717171919192625263333323939393F3F3F4444
+      442E2D2D15151415151414141414151414141414141413141413141313141313
+      1314131313131313131313131312121213121212121212121112121211111212
+      1211111111111111111111111010111010101010101010101010101010101010
+      10100F100F0F0F0F0F0F0F0E0F0F0F0F0F0F0E0F0E0E0F0E0F0E0E0F0E0E0E0E
+      0E0E0E0E0E0D0D0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0C0C0D0C0C0D
+      0C0D0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B
+      0B0B0A0B0A0A0A0A0A0A0A0A0A090A0A09090A09090A09090A0A0A0909090909
+      0909090908080808080809090908080809080808090808070807080707080808
+      0707080808070708070807080707070707070706070607070707070606070606
+      0606070606060606050506060606050505060505060605050505050505050505
+      0505050505050504050405040505040405040404040404040404040403040404
+      0404040404040403030403030303040303030303030303030303030202030303
+      0202020203030303030202020302020202020202020202020202020202020202
+      0102010101010101010101010101010100010000010100000001000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303030303030302F
+      2F3030302F3030302F302F303132323334343534353737373939393B3B3B3B3B
+      3B3030302D2D2D2E2E2E2E2E2E2D2E2D2E2D2D2D2E2D30313036353535353535
+      35353534353535343535353434353535353434343434333434333131312D2C2D
+      2C2C2C2B2C2C2C2C2B2C2B2C2B2C2B2B2B2B2B2B2C2B2B2B2A2B2B2C2C2C3334
+      343D3D3C3D3D3D3B3B3C3C3C3B3A3A3A3A3A3A39393938373836373735363635
+      353535363536363636363637363738383833333229292B272828282829282829
+      2728292828292827282728282728292728282727292928292C2C2B2D2D2D2E2D
+      2C2E2D2D2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C
+      2C2C2C2C2C2B2B2C2C2B2C2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2A2A
+      2A2A2A2A2A2A2A292A292A2A292A292929292A292A2929292929292928292828
+      2929282928282928282828272828282828272727282727272727272727272727
+      2727262727272626262726262726252626262626262625252525252525252525
+      2525252524242524242523242524232423242423232423222322222322222322
+      2323222222222222222222212221212121222221212121212121202020202120
+      2020202120202020202020201F201F1F201F1F1F1F1F1F1F1F1F1F1F1F1F1E1F
+      1E1E1E1F1E1E1E1F1E1E1E1E1D1D1E1E1E1E1D1D1E1E1D1D1D1D1D1D1D1D1D1D
+      1D1C1C1D1C1C1D1C1D1C1C1C1C1C1B1B1B1C1C1C1B1C1B1B1B1B1B1B1B1B1B18
+      1818171818171717181717191A192A2A2A3534353A3B3B404040454545282828
+      1514151415151414151515141414141414141414141314141413131313131313
+      1313131312121313121312131212121213121212121212121211121112111111
+      111111111110111111101111111110111010101010101010101010100F101010
+      0F0F0F0F0F0F0F100F0F0F0F0F0F0F0E0F0F0F0F0F0E0E0E0E0E0F0E0E0E0D0E
+      0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0D0D0C0D0D0C0D0C
+      0D0C0C0C0C0C0C0C0B0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0B0A
+      0A0A0A0A0B0A0A0A0B0A0A0A09090A0A090A0A0A09090A090909090909090909
+      0909090909090908090808090908080808090808080808080808070808070708
+      0807070707070708080707070707070707070707070606060706060606060607
+      0606060606060605060606060505060505050606050505050505050505050505
+      0505050505050505050505050405050504040404040404040404040404040404
+      0404030403030304040303030403030303030303030303030303030203020203
+      0202020303030302030202030202020202030202020202020202020101020101
+      0101010102010201010101010101010100010001000101000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030302F3131313333333434353636373838383A3A3A3B3B3B3030302D2D2D
+      2E2E2E2E2E2E2E2E2E2E2D2E2D2E2D3031313635363535353535353535353535
+      353534353535353535353435353535353534333434333434333433333030302C
+      2C2D2C2B2C2C2C2C2C2B2B2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2B2B2B2D2C2D
+      3536353C3C3D3B3B3C3B3B3B3A3A3A3A3A3A3939383838383838383737383737
+      373838383838383535352D2D2D28272829292928282928292929282928282928
+      28292728292828292829282A2A2B2D2E2D2E2E2D2E2E2D2E2D2D2D2D2D2E2D2C
+      2D2D2C2E2C2D2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C
+      2C2C2B2C2C2C2B2B2C2B2C2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2B2A
+      2A2B2A2A2A2A2A2A2A292A2929292A29292929292A292A292929292929282929
+      2829292828282828282828272727282828272728282828272728272726272727
+      2727262627272726262726262626262626262626262526262525252525252525
+      2424252424242424242423242324242323242323232223232223232323232222
+      2322222222222222222121222122212221212121212121212121202020212021
+      202121202020201F201F1F20202020201F201F1F201F1F1F1F1F1F1F1F1E1F1E
+      1F1F1F1E1E1E1E1E1E1E1E1D1D1E1D1E1E1E1E1E1D1D1D1D1D1D1D1D1D1D1C1D
+      1C1D1C1C1C1C1C1C1D1C1C1C1B1C1C1C1B1C1B1C1B1B1B1B1A1B1B1818181818
+      181817181717171A1B1A2D2E2D3535353B3B3B41404147474723222215151515
+      1515151414151415151515141414141314141414131314131314131313131313
+      1313131313131312131212131213121212121212121212121211111111111111
+      11111111111111101111111011101111101110101010101010100F1010101010
+      0F0F100F100F0F0F0F0F0F0F0F0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0D0E
+      0E0E0E0E0D0E0E0E0D0D0D0D0D0D0D0D0C0D0D0D0D0D0C0D0C0C0D0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0B0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0B0A0A0A
+      0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0909090A09090A0909090A09090909
+      0909090809090809090908080808090808080908080708080708080808080707
+      0807080807070807070707070707060707070706070706070706070606060606
+      0607060606060506050606060506050606060605050505050505050505050505
+      0505050504050405050404050404040404040404040404040404030404040403
+      0403040404030304030303030303030303040303030303030303030302030302
+      0303030203020302020202020203020202020202020202020202020201010101
+      0201010101010101010101010101000001010000010000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030302F2F30303131
+      313433343535343737373838393B3A3A3C3D3C3131312E2D2D2E2E2E2E2E2E2D
+      2E2E2E2E2D2E2D2E313031353636353535353535353536353535353635353534
+      3535343535343435353534353534343434333434343433333433333333333030
+      302C2C2D2B2C2B2C2B2C2C2B2B2B2B2B2B2C2B2B2B2B2A2B2B2A2B2B2A2B2A2C
+      2C2D3635353C3B3B3B3B3C3B3B3B3A3A3A3A3A393839383938383A3A39383839
+      3130302828282928292928292928292929292828292828292828292828292929
+      292C2B2C2E2E2D2E2E2E2E2E2E2E2E2D2E2E2D2E2D2D2E2D2D2D2D2C2D2D2D2D
+      2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2B2C2C2B2B2C2B2C2C2B2C2B2B2B2B2A2B2B2B2B2B2B2B2B2B2A2B2B2A2A2A2A
+      2A2A2A2A2A292A2A2A2929292A29292A29292929292929282928292829292929
+      2828282828282828282828282827282827272827272728272727272727272727
+      2727262627272727262626262626262626252525252525252525252525252524
+      2425242425232324232424232324232324232223232224222323232223222222
+      2222222222212222212122212221212122212121212121202021212120202020
+      202020202020202020201F20201F1F1F201F201F1F1F1F1F1F1E1E1F1F1F1E1E
+      1E1E1E1E1E1E1E1E1E1E1E1D1E1D1E1E1D1D1D1D1D1D1D1D1D1D1D1C1C1D1D1C
+      1C1D1C1C1C1C1D1D1C1C1C1C1C1C1B1C1B1C1B1C1B1A1A181819181818181818
+      1818191C1C1B3030303636363C3C3B4141424747461918181516151515151515
+      1414151414151414141414141414141413131414141413141313131313131313
+      1313131313131312131212121213131312121212121212111211111212111111
+      1111111011111111101010111011101010101010110F1010101010100F0F100F
+      100F0F0F0F0F0F0F0F0E0F0F0F0E0F0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D
+      0E0E0E0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0C0D0C0D0D0D0C0C0C0C0C0C0C0D
+      0C0C0B0B0C0C0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A
+      0B0A0B0A0A0A0B0A0A0A0A0A090A090A090A0A090A0909090909090909090909
+      0909090909080808080908090908080808080808080808080708080808070807
+      0808080707070807070707070707070707060706060607070606070606060606
+      0606060606060606060505060605050605050605060505050505050505050505
+      0504040505050504050405040505040404040404040404040404040403040404
+      0304030303030303030403030303040303040203030303030202030303020302
+      0303020302020203020202020202020202020202020202020101010101010101
+      0101010101010101010101010101010000000100000001000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030313030343433353535
+      3637373938393B3B3B3D3D3D3333342D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2D2E
+      2E31313136353636363535353535353536363535363535363535353535353534
+      3534353435353535343434343434343433353433343333343333333333323333
+      30302F2C2B2C2C2B2C2B2B2B2B2B2B2C2B2B2B2B2B2B2B2A2A2B2A2A2B2B2B2A
+      2B2C2D2D3535353B3B3B3B3B3B3B3B3B3A3A3B3B3B3B3433332A292A29292A29
+      2A292A292929292928292929282928282928282929292A2C2C2C2E2E2E2F2F2F
+      2F2F2F2F2E2E2E2E2E2F2E2E2F2E2D2E2E2D2E2D2D2E2D2D2E2D2C2D2D2D2D2C
+      2C2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2B2C2C2C
+      2C2C2C2C2C2B2B2C2C2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2B2B2B2A2A2A2A
+      2A2A2A2A2A2A2A292A2A2A2A29292A2A29292929292929292829292829282928
+      2828282828282828282828282828272727272827282727272827262726272727
+      2626262726262626272626262626252525252525262525252525262424252424
+      2524232424242423242423232423232423232422232323232322232322222223
+      2222212222222222212121212121212121212121212121212021202020202020
+      20202020202020202020201F201F1F1F1F1F1F1F1F1F1F1E1F1F1F1F1F1E1E1E
+      1E1E1E1E1E1F1E1E1E1E1D1D1E1E1D1D1D1D1D1E1D1D1D1D1D1C1C1D1C1D1C1C
+      1D1C1C1C1C1C1C1C1C1C1C1C1C1B1C1B191A191918191818181817181918191F
+      1F1E3232313737373D3D3D434342444443161516161615161615151515151414
+      1415151414151414141415141414141414131414141414141314141313131313
+      1212121312121212131312121312121212121211121212121111121112111111
+      1111111110111111101011101010101010101010101010101010100F10100F0F
+      0F0F0F0F100F0F0F0F0F0F0E0F0E0F0F0E0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0D0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0C0C0D0C0C0D0C0C0C0C0C
+      0B0C0C0C0C0B0C0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0A0A0B0A0A
+      0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0909090909090909090909090909
+      0909090808080808080809080808080808080808080808080807080808070807
+      0807080807070707070707060707070707060707060607060606060606060606
+      0606060605060606050606060506050505050505050605050505050505050405
+      0504050504050504050504040404050404040404040404040403040403040404
+      0404040303030304030303030303030303030302030303030203020303030303
+      0303030302030202020203020202020202020202020201020101020201010102
+      0101010101010100010101010100000100010000000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303131313333333434343636363838383B
+      3A3B3C3C3D3434342E2D2D2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E313131363635
+      3636363635363635363636363536353535363535353535353535353535353535
+      3535353435353434353435343434343335343334333334333334333333333332
+      33332F30302C2C2C2B2B2B2C2B2C2B2B2B2B2B2B2B2B2B2B2A2B2B2B2B2A2B2B
+      2B2A2B2D2C2D3535353C3C3C39393A2F2E2F2929292A29292A29292A2A29292A
+      292A29292929292829292929292C2B2C2F2F2E2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2E2E2E2E2F2E2E2F2E2D2E2E2D2E2D2D2E2D2D2E2D2C2E2D2C2D2D2C2E2C2C
+      2D2C2D2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C
+      2C2C2C2B2B2B2B2C2B2B2B2B2B2B2B2B2A2A2B2B2A2A2A2B2B2A2A2A2A2A2B2A
+      2A2A2A2A2A2A2A2A292A292A2A29292929292929292929292929292829292929
+      2928282828282828282828282828272727272727272727272727272727262727
+      2727262726262626262626262526262525252525252525252525242425242425
+      2324242324242323242323242323242323242223232222232322222222222222
+      2222222122222122222221212222212121212121212120202121212120202020
+      211F20201F2020201F1F201F1F201F1F1F1F1F1F1F1F1F1F1F1E1F1E1E1F1F1E
+      1E1E1E1E1E1E1D1E1E1E1E1D1E1E1E1D1E1D1D1D1D1D1D1D1C1D1D1C1C1D1C1D
+      1C1C1C1C1C1C1C1C1C1C1B1B1A191A191818181818181818191919201F203333
+      323838383D3D3D4343433A3B3A16161615161516151616161615151515151514
+      1514141414141514151514141414131314141313131314131314131313131313
+      1312131213121312121213121212121212121212111112121111111112111111
+      111111101110111110111111111010101010110F101010101010100F100F0F0F
+      0F0F0F0F0F0F0E0E0F0E0F0F0F0E0F0E0E0E0F0E0E0E0E0E0E0D0E0E0E0E0E0E
+      0D0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C0C0D0C0C0C0C0C0C0C0C0C
+      0C0B0C0B0B0C0C0B0B0C0B0B0B0B0C0B0B0B0B0A0B0B0B0A0A0B0A0B0B0A0A0A
+      0A0B0A0A0A0A0A0A0A0A0A0A0A09090A0A090A090A09090A0909080909090909
+      0809090809080908080809080808080808080708080808070708080707070708
+      0707070707070707070707060707060706060707070707060606060606060606
+      0505060606060506060606050506060505050605050505050505050505050405
+      0504040505040504050504040405040504040404040404040403040304040404
+      0303030404040303030303030403030303030302030303030302030303030202
+      0203020302030302020202020202020202010201020201020102010201010101
+      0101010101000100010101010001010000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303333333434343635363838383A3A3A3C3C3C3838
+      382D2D2E2F2F2E2E2E2F2E2E2E2E2F2F2F2F2E2F2F3036363636363636363635
+      3636363635353536363536363636353535353535353535353535353535343435
+      3535343535343434343534333433333433333434343433333333333333333333
+      33333332302F302C2B2C2B2B2B2B2B2B2B2B2B2B2A2B2B2B2B2B2B2A2A2B2A2B
+      2B2A2A2A2A2C2C2D2B2B2B2A2A292A2A29292A2A29292A2A2A2A2A29292A2929
+      2929292B2B2B2F2F2F302F30302F2F2F2F2F2F2F2F2F302F2F2F2F2F2F2F2E2E
+      2E2F2F2E2F2E2E2F2E2E2E2E2D2E2D2D2D2D2D2E2D2C2D2D2C2D2C2C2D2C2D2D
+      2C2C2D2C2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2B
+      2C2B2C2B2C2B2B2B2B2B2B2B2B2B2B2B2B2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2929292A2A2A29292929292929292929292929282928282928
+      2828282828282828282728272828272727272728272827272727272626262726
+      2626262726262626252626252525252625252525252524242524242524242424
+      2324242424242324232324232424232323232223232222232322222222222322
+      2222222222222221212122212121212121212120212121212120202120202020
+      2020201F201F1F2020202020201F1F1F1F1F1F1F1F1F1E1F1F1F1F1F1E1F1E1E
+      1E1E1E1E1E1D1E1E1D1E1E1E1E1E1E1D1D1E1D1D1D1D1D1D1D1D1D1C1C1C1D1C
+      1C1C1C1D1C1C1C1C181919181919181819191918191919242425333332393939
+      3E3D3D4243423131311616161616161515151615151516151514151515151514
+      1515141514141514141413141414141414131413141413131413131313131313
+      1313131212121312121312121212121212111212121112111112121111111111
+      10111110101010101010101010101010101010101010100F0F0F1010100F0F0F
+      100F0F0F0F0F0F0F0F0F0E0F0E0E0E0E0E0E0E0E0E0E0D0D0E0E0E0E0D0E0E0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0D0D0C0C0C0C0C0C0C0C0C0C
+      0C0B0C0B0C0B0B0B0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0A0A0A
+      0A0A0A0A0A0A0A0A0A090A090A090A0A09090909090909090909090808080808
+      0909080908090908080808080808080808080808080708070808080707070808
+      0707080707070607060607070606070707060707060606060706060606060606
+      0606060505050606050506060506060505060505050505050505050504050505
+      0505050404040405040404040404040404040404040404030304040303030303
+      0404030303030303030303030303030303030302030303030302020202020302
+      0302020202020202020202020202020201010202020201010102010101010101
+      0101010101010101000101000000000001000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303232323434343636363838383A3A3A3C3C3C3837382E2E2E2E2F2F
+      2F2F2E2F2F2F2F2E2E2E2E2E2F2F303636363636363636363636363636363636
+      3636353636353535363635353635353535363536353535353535353535353535
+      3534343433353433343434343333343333343333343333333333333333323332
+      33323233323230302F2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2A2B2A2B2B2A2B
+      2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292A2A29292A2B2B2E2E2E30
+      3030303030302F30302F2F2F2F302F2F2F30302F2F2F2F2F2F2F2F2F2E2F2F2E
+      2F2E2E2E2E2E2E2E2D2E2D2D2E2D2D2E2D2D2E2D2D2D2D2C2D2C2C2D2C2C2D2C
+      2C2D2C2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2B2B
+      2C2C2B2B2B2B2B2B2B2B2B2B2B2B2A2B2A2A2B2B2B2A2A2B2B2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2929292A292A292929292929292829292928282828282828
+      2828282828282827282827272728272828272727272727272727272727262726
+      2726262626262625262625252525252525252524262424252424252424252424
+      2424242423242423232423232323232323222323222222222222222222222222
+      2222222222212122212121212120212121212121212120212020202021212020
+      20201F2020201F1F20201F1F1F201F1F201F1F1F1F1F1F1F1F1F1F1E1E1E1E1F
+      1E1E1E1E1E1D1E1E1D1D1E1E1E1D1E1D1D1D1D1D1D1D1D1D1D1D1D1C1D1C1C1C
+      1C1C1C1C191919191919191919191818191A1A2727273232323737373C3C3B41
+      42422A2A2A161616161616151616161616151516151515151515151515141415
+      1514151414141414141414141414131313141314131313131313141313131213
+      1213131213121212121212121212121212111111121212111111121111111111
+      101110111110111011101110101010101010101010101010100F0F100F100F0F
+      0F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0E0E0E0E0E0E0D0E0D0E0E0E0D0E0E0D0E
+      0E0D0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0B0A0B0A0B0A0B0B0A0B0A0A0B
+      0A0A0A090A0A0A0A090A0A0A0A0A0A0909090909090909090909090908090908
+      0909090909080808080808080808080808080807080707070808080807070707
+      0707070707070707070707060606060606060607060606060607060606060606
+      0606060606060506060606050506050505050505050505050404050505040405
+      0405040404040405040404040404050404040404040304040404040303030404
+      0303030303040304030303040304030303030303030302030302020302020203
+      0202020202020302020202020202010201020201010201010101010001010101
+      0101010001010100000101000001000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303232
+      323434343535353737373A3A3A3C3C3C3B3B3B2F2F2F2F2F2F2F2E2F2F2F2F2E
+      2F2E2E2E2F302F31363636363636363636363736363636363636363636363635
+      3636363535353635363535353535353535353535353535353535353535353534
+      3434343334343435343334343334343334333333333333323333323332323332
+      32323333323233322E2E2E2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A
+      2A2B2A2A2A2A2A2A2A2A292A292A2A2B2A2A2E2E2E3131313131303030303030
+      303030303030302F302F2F2F302F2F2F2F2F2F302F2F2F2F2F2E2E2E2F2F2E2E
+      2E2E2E2E2D2E2D2D2E2E2D2E2D2D2D2D2D2D2C2D2E2D2D2D2C2D2D2C2C2D2C2C
+      2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C
+      2C2B2B2B2B2C2B2B2B2B2B2B2B2B2A2B2A2A2A2A2A2B2B2A2A2A2A2B2A2A2A2A
+      2929292A2A292929292929292929292929292929282929292928292928282828
+      2828282828282827282727272827282727272727272727272727272726262726
+      2626262526262526252525252526252526242425242425242425242424232424
+      2423242323242324242323232323232222232223222222222222222222222222
+      2122212122222122212121212121212121212121202021212020202020202020
+      201F201F1F20201F20201F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1E1F1F1F1F1E1E
+      1F1E1E1D1E1E1E1D1E1E1D1D1E1E1E1D1D1D1D1D1D1D1D1D1C1D1C1C1C1B1B1C
+      19191918191919191918191919191A2A29293132313636363B3B3B3F3F3F2121
+      2117161616161616161615161516161515151515151515141514151514141515
+      1515151414141414141413131414141313131313131314131313131313121313
+      1313131212131212121212121212111212111112121111111111111111111111
+      111111111011111110101110101010101010100F100F0F0F100F0F0F100F100F
+      0F0F0F0F0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0E0D0E
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D0C0C0D0C0C0C0C0C0C0C0C0B0C0C0C
+      0B0B0C0B0C0B0B0C0C0B0B0B0B0B0B0B0A0B0B0B0B0A0B0B0B0A0A0A0B0A0A0A
+      0A0B0A0A0A090A0A0A090A090A09090A09090909090909090909090809080908
+      0808080908080808080808080808080808080807070807070708070807070807
+      0707070707070707070707070707070606060706060607060606060606060606
+      0605060605060605050505050505050505050505050505050505040505040505
+      0405050404040405040504050404050404040303040404030303040404030304
+      0304030303030304030303030303030303030203030303020202030202020202
+      0303020202020202020202010202020202010202010101010101010101010101
+      0101010000000001010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030313131343434353535
+      3737373939393B3B3B3C3C3C2F2F2F2E2E2E2F2F2F2F2F2F2F2E2F2F2F2F2F2F
+      2F35353537363637373636363636363636363636363636353636363636363635
+      3635363635363636353636353535353535353635353535353535353534343434
+      3534343434343433333433333433333333333333333333333233333333333332
+      323333333332323131322E2E2E2B2B2B2A2B2B2B2A2B2B2B2B2B2A2A2B2A2A2B
+      2B2A2A2A2B2A2A2A2C2C2C302F30313131313130303130303031303030303030
+      30303030303030302F2F30302F30302F2F2F2F2F2F2F2E2E2F2F2E2F2E2E2F2E
+      2D2E2E2D2E2D2E2E2D2D2E2D2D2E2D2D2E2D2C2E2D2D2D2C2C2D2C2C2D2C2C2D
+      2C2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2B2B
+      2B2B2C2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2B2A2A2A2A2A2A2A2A2A29
+      2A292A2929292929292929292929292929292828282829292929282928282828
+      2828282728282828282728272727272827272727262727272726272726272625
+      2626252625252625252625252625242525252524252524242424242423242423
+      2424232324232323232323232323222223232222222222222222222222222222
+      2222222121222121212121212121212121212121202121202020202020201F20
+      2020202020201F1F201F1F201F1F1F1F1F1E1F1F1F1F1E1F1E1E1E1E1E1E1E1E
+      1E1E1E1E1E1E1D1E1D1E1E1E1E1D1D1D1C1D1D1D1C1D1C1D1D1B1B1C1A191919
+      1919191919191819191A192C2C2C3131323434343838383B3B3B1C1B1B161616
+      1717161616161616161616161616161515161615151515141515151415151515
+      1514141414141414141414131314131313131413131313131313131212131312
+      1312121313121212121212121212111112121211111111111111111111111111
+      101110111111101111101010101010100F101010100F0F0F0F0F100F0F0F0F0F
+      0F0E0F0F0F0F0E0F0F0E0F0E0F0E0E0E0F0E0E0E0D0E0E0E0E0E0D0E0D0D0D0D
+      0D0E0E0D0D0D0D0D0D0C0D0D0D0D0C0C0D0C0C0C0D0D0C0C0C0C0C0C0C0B0C0B
+      0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0A0A0A0A0A0A0B0A0A
+      0A0A0A0A09090A09090A09090909090909090909090909090908090909090908
+      0909090808080908090808080808070808070808070707070708080708080707
+      0707070707070707070607070607060607070706060607060606060605060606
+      0605060505060506050505050505060505050505050504050405050405040504
+      0404050404040405040404040404040404040404040404040404040303040304
+      0303030303040303030303030303030303020303030202030202020202030203
+      0202020302020202020202010101010202010101010101010101010101000101
+      0101000001000000000100000000000001000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303131313333333434343636363939393B
+      3B3B3D3D3D3131312E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2E2F30363635373736
+      3736363736363636363636363636363636363636363636363536363636363635
+      3636353535353535363635363536353536363535353535353535343335343435
+      3434343434353433343333343333333333333333333233333333333333323332
+      3333323232323232323131312E2E2E2B2B2B2B2B2A2B2A2B2A2B2A2A2A2A2C2A
+      2B2F2F2F31313131313131313130313130313030303030303030313030303030
+      302F3030302F2F302F30302F2F2F2F2F2F2F2F2F2F2F2E2F2E2E2F2E2E2F2E2E
+      2F2D2D2F2D2D2E2D2D2E2D2D2E2D2D2D2D2D2E2C2C2D2D2D2D2C2D2D2C2C2D2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2B2C2B2B2B2B2B2B2C
+      2C2B2B2C2C2B2B2B2B2B2B2B2B2B2A2B2B2B2B2A2A2A2A2A2A2B2A2A2A2A2A2A
+      2A2A2A2929292929292929292929292829292928282828292928292828282828
+      2828282827282727282728282727282727272727272726272627272626262627
+      2625262525262525262525262524252425252524252424242324242424242424
+      2424242323232323232323232323222322232322222222222222222222222222
+      2222212121212121212121212121212121202021212120202020202020202020
+      202020201F1F201F201F1F1F1F1F1F1F1E1F1F1F1F1F1F1F1F1E1E1E1E1E1E1E
+      1E1D1E1E1E1D1E1D1D1D1D1D1E1D1D1D1D1D1D1C1D1B1A1B19191A1919191919
+      191919191C1C1C2D2C2D2F2F303231313434343737372C2C2C19191916171617
+      1616161616161615161516151515161515151615151515151515151414141415
+      1415141414141414131414141314131413141314131313131313131213121313
+      1212121313131312121212121211121112111211111111111111111111111111
+      1110101011111110111110101010101010100F1010100F0F0F0F0F0F0F0F0F0F
+      0F0F0F0F0F0F0F0E0E0E0E0F0E0E0F0E0E0E0E0D0E0E0D0D0E0D0D0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0C0D0C0D0C0C0C0D0D0C0C0C0C0C0D0C0C0C0C0C0C0B0C
+      0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0A0A0B0A0B0A0A0A
+      0A0A0A0A0A090A0A0A09090A09090A090A0A0909090909090809090909080808
+      0908080808080909080808080807080808080808080808070807070807070707
+      0707060706070607070707070607060607060706060607060606060606060506
+      0506060605060505050505060605060605050505050405050505050504040405
+      0505040404040504040404040404040303040403030304040403030403040304
+      0303030403030303030303030303030303020303030303030302020202020202
+      0202020202020201020101010202020101010102020101010101010101010101
+      0100000101000000010001000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303333333434343636363838383A3A3A3D3D3D3434
+      342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F34343438363737363637373737
+      3737363636363637363636363636363636363636363636363636363636353636
+      3635363635353635353535353635353535353535353535343434343534343434
+      3435343334343434333434343333333333333333323232333332333332323232
+      32323333333232323232323131312E2E2D2B2B2A2B2A2B2D2C2D313130313232
+      313131313131313131313130313131313131303130303031303030303030302F
+      30303030302F2F302F2F2F302F2F302F2F2F2E2F2F2E2F2E2E2F2E2E2F2E2E2F
+      2D2D2F2D2E2E2D2D2E2D2D2E2D2D2E2C2D2D2C2C2D2C2C2D2D2C2D2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2C2C2C2C2B2C2C2B2B2B2B
+      2B2C2B2B2B2B2B2B2A2B2A2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A
+      292A292A292A292A292929292929292929292928282928282929282828282828
+      2828282728272827272828272728272727272727262627262626262626262626
+      2526252526252526252525242525242425252424242424242324242424232424
+      2424232323232323232323232223232223222222232322212222222222212122
+      2221212221212121212121212121212120212120212021202120202020201F1F
+      201F1F1F2020201F1F1F1F1F1F1F1F1E1E1F1E1F1F1F1E1E1E1E1E1E1E1E1E1E
+      1E1E1E1D1E1D1E1D1D1D1D1D1D1D1D1D1D1A1A1B1A191A1A1A1A1A1A1A1A1A1A
+      1F1F1F2D2D2D2D2E2E303031323233353535353635302F30191A191817171817
+      1717171617171717171716161616171616161615161616161616161615161615
+      1515151515141515141414141415141414151414141415141414141313141313
+      1413141414131313131312131312131212131213121213121212121212121112
+      1111111010101010111010101010101010100F0F10100F100F0F100F0F0F0F0F
+      0F0F0F0E0E0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0E0E0E
+      0D0D0E0D0D0D0D0D0D0D0C0D0D0C0D0C0D0C0C0C0D0C0C0C0C0B0C0C0C0C0B0C
+      0B0B0C0B0B0C0C0B0B0B0B0B0B0A0B0B0A0A0A0B0B0A0B0A0B0B0B0A0A0A0A0A
+      0A0A090A0A0A090A090A09090A09090A09090909090809090809090909080908
+      0909080809080808080808070708070808080708070808080707070707070807
+      0707070707070707060606060706070706060606070606060606060605060606
+      0606050505050505050505050605050505050505040405050405050404040405
+      0505050404040404040404040404040304040304040403030304030304040303
+      0303040303030303030303030303030303030303030202020202020202020202
+      0202010202020202020202020201010102010101010101010101010101010000
+      0001010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303232323434343535353737373A3A3A3C3C3C3838382E2E2E2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3434343737373837373837373736363736363736
+      3636363636363737363736373636373636363636363636353636363536363635
+      3635353535353536363535353535353535353534353434343434353433353434
+      3533333433343333333333333333333333333333333333333333333333323232
+      3232323232323232323232323230313130303032323231323232313231313231
+      31313131313131313031313131313131313031313030303130303030302F302F
+      3030302F302F302F2F302F2F2F2F2E2F2F2E2F2E2E2F2E2E2E2E2D2F2D2E2F2E
+      2D2E2E2D2E2D2E2E2D2D2E2D2C2D2D2D2D2C2C2D2C2D2D2C2C2D2C2D2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2B2B2C2C2C2B2C2C2C2B2C2C2B
+      2B2B2B2B2B2B2B2A2B2A2A2B2A2B2A2C2B2B2B2B2B2B2B2B2B2B2B2D2C2B2C2B
+      2C2D2B2C2D2B2B2D2B2B2C2B2B2C2C2B2B2C2A2B2A2B2A2929292A2929292929
+      2828282728272727282727272727272726272726272626272625272626262525
+      2625252625252625242524242525242424242424242423242423232423242324
+      2323232423232323232323232323222323222222222222222222222222222222
+      21222121212121212121212121212020212021212120212020201F2020201F20
+      201F202020201F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1F1E1E1F1F1F1F1F1F1F1F
+      1F1E1F1E1E1E1F1E1E1E1E1E1F1B1B1B1B1A1B1B1A1B1B1A1B1A1A1B1C1C1C27
+      26272E2E2E2E2D2E3130303131313232323232322C2C2D1D1D1C181717181717
+      1717171617171616171717171616161616161616161516161615161515161516
+      1515151514151514151414151515141415141514141414141413141414131413
+      1313131313131313131313121313121212121213121312121112121212121211
+      1111111111111111111111111111111010101111111011100F0F0F0F0F0F0F0F
+      0F0F0F0F0F0F0E0E0F0F0E0E0F0E0E0E0D0E0E0D0D0E0E0D0E0D0E0D0D0D0D0D
+      0D0D0D0D0D0D0C0D0C0C0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B
+      0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0B0A0A0A0A0A0A0A0A0A0A09
+      0A0A090A09090909090909090909090909090909090909080809090908080908
+      0908080909080808080808070807070707080807070807070707070707070707
+      0706070607070707060707070606060606060607060606060605060605050606
+      0505050606050506060505050605050505050504050405040505050405040405
+      0405040404040404040404040404040404040404030404040303030303030303
+      0303030303030303030303030302030303030303020203030203020202020202
+      0202020202010202010101010101010101010101010101010101010100010101
+      0001000100000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303232
+      323434343535353737373939393B3B3B3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F323232373737383737383737383737383636373737373736363636
+      3736373636363636363637363636363636363636363636363636363535353635
+      3635353535363535363535363535353535343435343435343435333435343434
+      3333343334333433333334333333333333333333323333333332323232323233
+      3232323333323232323232323132323232313231313232313131313131313131
+      313131313130313031303131303130313131313030313030303030302F30302F
+      2F2F2F302F2F2F2F302F2E2F2F2F2F2F2E2F2E2E2F2E2E2E2E2E2E2E2E2E2D2E
+      2F2E2E2E2D2D2E2D2D2E2D2D2D2D2C2D2D2D2D2C2C2D2C2C2D2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2C2C2C2C2B2D2D2D2E2D2D2D2D2D2E
+      2E2E2E2E2E2F2E2E302F2F302E2F2F2F2E2F2F2E2F2F2E2F2F2F2F2F2F2F2E2F
+      2E2E2F2E2E2F2E2E2E2E2E2E2F2D2E2F2E2E2E2D2E2E2E2E2E2F2D2E2E2D2E2E
+      2E2E2D2D2C2B2B2C2C2C2A2A2A29292928282827262626262527252526252526
+      2525262525262524252525252425242424242424242424242423242323242423
+      2323232323232223232323232222222223222222222222222222222122212122
+      212122212121212121212121212021212120212020202020211F201F201F1F21
+      21202020202120202020202020201F2020201F20201F201F1F1F1F1F1F1E1F1F
+      1F1E1E1E1F1E1F1E1F1B1A1B1B1A1B1B1A1B1B1A1A1B1A1B1A1A1A1B1B1B2323
+      232F2F2F2F2F2F2F2F2F3031303131313131312F2E2E1D1E1E18181819181818
+      1818181718181818181717181717171717171717171716171616161716161617
+      1616161616161616161515161516151515151515151515141514151415151514
+      1415141414141413131213121212131212131213121312121213121316161619
+      1A1A1E1D1E212122222222121212111011101010101010101010101010101010
+      100F0F100F100F100F0F0E0E0E0E0E0E0E0E0D0D0E0E0D0D0D0D0D0D0D0D0D0D
+      0E0D0D0D0D0D0D0D0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B
+      0B0C0B0B0B0B0B0B0B0B0B0B0A0B0B0B0B0B0B0A0A0A0A0B0B0A0A0A0A0A0A0A
+      0A090909090A0909090909090909090909090909090909090808090808090809
+      0808080808080808080807080708080808070707070808080807070707070707
+      0707060707070607070607060706070606060606060606060606060606060605
+      0505060506050506050505050505050505050405040504050405040404040504
+      0404040405040404040404040404040404030403040404030304030304040303
+      0403040303030303030303030303030202030302020202020202020202020202
+      0202010201020101010101010101010101010101010101000101000001000100
+      0000010100000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030313131343434353535
+      3636363838383A3A3A3C3C3C3030302E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3030
+      3137373738373738373738373738373738363737373637363737363736373636
+      3636363636363637363636363636363636353635363536353636363636363635
+      3635363536353536353636353535343534343534343433343534343433343434
+      3433343334333333333333333333333333333333323333323232333232323333
+      3232323232323332323232313232313232323132313131323232313131313131
+      3131313131313131303031303131303130303030303031303030302F30302F30
+      2F302F2F30302F2F2F2E2F2F2E2F2E2E2F2E2E2E2E2E2F2E2D2E2E2E2E2E2E2F
+      2D2D2E2D2D2E2D2D2D2D2D2D2D2D2D2C2D2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2D2D2D2E2E2E2F2E2E302F2F3030302F30303030302F302F302F2F2F2F
+      2F2F2F2F2F2F2F302F2F302F2E2F2F2E302F2E2F2F2E2F2F2F2E2E2F2E2F2F2E
+      2F2F2E2F2F2F2E2E2E2E2E2F2D2D2E2D2E2F2D2E2F2E2D2E2E2D2E2D2D2E2E2E
+      2E2E2D2E2D2E2D2E2E2D2E2E2D2D2D2D2D2D2B2B2B2B2A2B2928292827272625
+      2526252525252525242424252524242424242424232424242423232423232423
+      2323232323222323232223222322222223222222222222222222222222222121
+      2121212121212121212021212121222222222221222121212120212121212020
+      202020212020202020201F20202020201F1F1F1F1F1F201F201E1F1F1F1E1E1F
+      20201F1F1F1D1C1C1C1B1C1C1B1C1C1B1B1B1B1C1B1B1C1C1C1D1C1C1C212222
+      2D2E2E2E2E2E2F2F2E2E2E2E2F2F2F302F302F2F2F1E1F1E1A19191919191919
+      1919191919181918181919181918191818181817181817171718171817171817
+      1717171617171716171716161717161616161616151616161615161615151515
+      1515141414141414131718171919191D1D1E1F20202121202222222221212222
+      232322222323231F1F1F1011111010101110101011101010100F101010101010
+      0F100F0F0F100F0F0F0F0F0F0F0F0F0F0F0E0E0E0D0E0E0E0D0D0D0E0D0D0D0D
+      0D0D0D0C0D0D0C0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0C0C0C0C0C0B0C0B
+      0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0A0A0B0B0B0A0B0A0A0A0A0A0A090A090A
+      090A090A0A09090A0A0909090A09090909090909090908080908080908090908
+      0808080808090808080808080808080708080707070708070707070707070707
+      0706070706070607060606060706060607060606050605060606060505050606
+      0505060506050605060505050505050505050505050405040504040404040404
+      0405040404040404040403040404040303040403030403030304030403030303
+      0303030303030303030303030203020202020303020202020202020202020201
+      0101010102010102010101010101010101010101010001010000000100000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303034343435353536363637373739
+      39393B3B3B3333332E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F30373736383837
+      3837373837373837373837373837373737373736363737363736373737373637
+      3636373636363737363636363636363636363636363635353636353636353635
+      3635353535363535353534353434353434353434353434353434343333343333
+      3333333333333333333333333333333233333333333333323232333332333232
+      3332323232323332323232323132313231323132313131313131313131313131
+      31313031303131313031313130313131303130303030303030303030302F302F
+      30302F2F2F2F2F2F2E2F2E2E2F2E2E2F2E2E2E2E2E2F2E2E2F2E2D2E2D2D2E2D
+      2D2E2D2D2E2D2D2D2D2C2D2D2D2D2C2C2D2C2C2D2E2D2E2F2E2F2F2E302F2F30
+      302F30302F30302F3030303030303030302F303030303030302F2F30302F2F2F
+      2F2F2F2F2F2F302F2F2F2E2E2F2F2E2F2F2E2F302E2F2F2F2F2F2F2E2F2F2E2F
+      2E2F2E2E2E2E2E2E2E2E2F2E2E2F2E2E2E2D2D2F2E2D2E2E2D2E2E2D2E2E2E2E
+      2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2D2C2C2D2C2C2A2A2A
+      2928282626262424252524252424242424242424242424242424232323242323
+      2323232323232322232323222322232222222222222222222222222123232322
+      2322222322222122222221222221212121212121212121202121202121202120
+      20202020202020202021212121212021202020202120212020202020201F2020
+      202021211E1E1E1D1C1D1D1C1D1D1C1D1C1C1C1C1C1D1C1C1D1E1E1E2020202C
+      2D2C2F2E2F302F2F2F2F2F302F303131313030301F1F1F1B1A1A1A1A1A1A1A1A
+      1A1A191919191A191A1919191919191919191918191919191818181818181818
+      18181718181818181818181718171718171617171717191A1A1B1B1C1E1E1E20
+      2120232223232223222322222222232423232323232323232323242324242524
+      2625262828281A1A1A111212121212111010101010101111101010101010100F
+      100F0F0F100F100F0F0F0F0F0F0E0F0F0F0E0F0E0F0E0F0F0E0E0E0E0D0D0D0D
+      0D0D0D0C0D0C0D0D0D0D0C0C0C0D0D0C0C0C0C0C0C0C0B0B0C0C0C0C0B0C0B0B
+      0B0B0B0B0B0B0B0B0B0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A
+      0A0A0A090909090A090909090909090909090909090908080809080909080808
+      0809080808080808080808080807080708080808070708070707070707070707
+      0707070707060606060606060606060606060606060506060505060606060606
+      0605050506060505050505050504050504050505050405050505040404040404
+      0404040404040404040404040404040404040303030303040403040303030303
+      0403040303030303030302030302020302020303020202020202020101010202
+      0102020101020101010101010101010101010100010101010101000100000001
+      0000000001000000000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303131313636363737373838383A3A3A3C3C
+      3C3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F30303038383738383738383738
+      3737383737383737383737383737373737373737363637373736363637363636
+      3636363636363636363636363636363636363635363536353635363536363535
+      3535353535353535353435343435343435343435343334333434343333333434
+      3334333334333333333333333333323333333333333232333232323332333232
+      3233323232323232323232313232323131323231323131313231313131313131
+      31313131303131303130313030313030303030313030302F3030302F2F2F2F30
+      2F2E302F2E2F2F2E2F2E2F2F2E2E2F2E2E2F2D2E2F2D2D2E2E2D2E2E2D2E2D2D
+      2E2D2D2D2D2D2E2E2E2F2F2E30302F2F302F302F2F302F2F302F2F302F2F3030
+      2F30302F30302F30303030303030303030303030302F30302F2F2F2F2F2F2F2F
+      2F2F2F2F2F302E2F2F2E2F302F2E2F2F2E2F2F2E2F2F2F2F2E2F2E2E2E2F2E2F
+      2E2E2E2E2E2E2E2E2E2F2E2E2F2D2E2E2D2D2E2E2E2E2E2D2E2E2D2E2E2D2D2E
+      2D2D2D2D2D2E2D2D2D2E2D2D2C2C2C2D2D2D2C2D2C2D2D2C2D2D2C2C2D2C2C2D
+      2D2C2B2C2C2A2829262726242424242424242424232423232424232323232323
+      2323232222232323222222222324232323232323232323232223232222222222
+      2222222222222221222121212121222121212121212122222221222121222221
+      2222212221212121222222222221222221212121212121212120212121202121
+      202020201F201E1E1E1E1D1E1D1D1D1D1D1E1E1D1D1E1D1D1D1D1D2020202B2C
+      2C2E2E2E2F2F2F2F303030302F3130303031311E1F1E1B1B1B1B1B1B1B1B1A1A
+      1B1A1A1B1A1A1A1A1B1A1B1A1A1A1A1A1A1A1A1A1A1A1A1A1A1919191A191919
+      1817171818181B1B1B1E1F1E2020202323232423242324232324232424242424
+      242424242324232424242424242425242424242425252525242526262727282A
+      2B2A2C2C2D151515121212121111111111111211111111111111101010101010
+      0F100F0F0F100F100F0F0F0F0E0F0F0F0E0E0E0F0F0F0E0E0E0E0E0E0E0E0E0E
+      0E0E0E0E0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0B0C0B0C0C0C0B0C0C0B0B0B0B
+      0B0B0B0B0B0B0B0A0A0B0A0A0A0A0A0B0A0B0A0A0A0B0A0A0A0A090A0A0A0A0A
+      0A090A090909090A0A090A090909090909090808090809090908090808080808
+      0808080908080808080708080807080707070707070807070707070707070707
+      0707070707070707070606060606060606060606060606050506060505050505
+      0606050505050605050505050505050505050504050405040404040405040405
+      0404040404040404040403030404040304040403030404030303030303030303
+      0403030303030303030203030303020202020202020202020101010101020201
+      0202010201010101010101010101010101010001010100010000000001000000
+      0100000100010001000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303434343737373939393A3A3A3C3C3C3D3D3D
+      3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3333333838373838373837373837
+      3738373738373738373737363737373737373737363737363737373736363636
+      3637363637363637363636363636363636353635363635363636353536353535
+      3636353535343534343534343533343534343433343434343333333334343333
+      3434343333333334333333333332333332333233323332333232323232323332
+      3232323232323231323232313132313232313131313132313132313131313131
+      31313131313130313130303030303030303030303030303030302F2F302F2F2F
+      2F2F2F2E2F2E2E2F2E2E2F2E2E2F2E2E2F2D2E2F2E2E2F2E2D2E2F2F2F2F2F30
+      30303030303030302F2F30302F302F2F2F303030302F2F302F2F302F2F30302F
+      30302F30302F3030303030303030302F2F302F30302F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F302E2F2F2F2E2F2F2E2F2F2E2F2F2E2E2E2E2F2E2F2F2E2F2F2F2E2E
+      2E2E2E2E2E2E2D2E2E2E2E2E2E2D2E2D2D2F2E2D2E2E2E2E2E2D2D2E2E2E2D2D
+      2D2D2D2E2D2E2D2D2D2D2D2D2C2D2D2C2D2D2D2D2C2D2C2D2D2C2C2D2C2C2D2D
+      2C2D2C2C2D2D2C2B2C2B29292826262624232424242324232323232323232324
+      2424242324232424242323232324232323232323222323232323232223222322
+      2222222222222323232323222222232222222222222221222323222322232322
+      2322222222222222212222212221222221212121212121212121202021212020
+      20202020201E1E1E1E1D1E1E1D1E1E1D1E1E1D1E1D1D1D1E1D1E1F1F202D2D2D
+      3031313131313131313232323130302F30301F1E1E1B1B1B1B1B1B1B1B1B1B1A
+      1B1B1B1A1B1B1B1A1A1B1A1A1A1A1A1A1A1A1A1D1C1D1F1F1F21212124242426
+      2626262626262626262626262626262626262626262626262626272626262626
+      252525242425242525262525262526262626262626262726292A292E2D2D3031
+      3028282813131313131313121212121211111111111110111111111110111111
+      10101010110F0F0F0F0F0F0E0F0E0E0F0F0F0F0F0F0E0E0E0E0E0E0E0E0E0D0E
+      0D0D0E0E0D0D0E0D0E0C0C0C0C0C0D0C0C0C0B0C0C0C0C0B0B0B0C0C0C0B0B0B
+      0B0B0B0B0B0B0B0B0B0A0B0B0B0A0B0A0A0A0B0A0A0A0A0A0A0A0A0909090A09
+      0A0A09090909090A090909090909080909090808090909080908080808080808
+      0808080808080807080708080707070807080707080707070707070706070707
+      0707060706070706070606060706060606060606050606060605060505050505
+      0605050505050505050505050505050405050405050405040504040404040404
+      0404040404040404040404040304030304030403030303040303030403030303
+      0303030303020302020303030202020202020202020202020201010202010101
+      0102010202010101010101010101010100010001010000010000000001000000
+      0000010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303737373939393A3A3A3C3C3C3D3D3D3D3D3D2E
+      2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F30373737383837383737383737383737
+      3837373837373737373736373737373737363737373736373736363737373637
+      3736373636363636363636363636363636363636363635353536363535363535
+      3534363434353434353434343434353434343434343334333433333334333333
+      3333333433333333333333323233333333333233333232333232323232333232
+      3232323232323132313232323232313232313131323232313131313131313131
+      303131313130313031313030303031313030303030302F30302F302F2F302F2E
+      2F2F2F302E2E2F2F2E2F2E2E2F2F2F303030312F303030313030303130303030
+      303030302F3030303030302F2F2F2F2F302F2F302F30302F2F302F2F30302F30
+      302F30302F303030303030303030303030302F2F2F2F2F2F2F302E2E2D2E2E2E
+      2D2D2E2D2C2D2C2B2B2B2C2B2B2B2B2C2B2B2B2B2B2A2A2B2A2B2B2B2B2B2C2C
+      2C2C2C2C2D2D2D2F2E2E2E2E2D2F2D2E2E2E2D2E2F2D2E2E2D2D2D2E2D2E2D2E
+      2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2C2D2C2C2D2C2C2D2C2C
+      2D2D2C2D2C2C2C2C2C2D2C2C2B2B2B2828272625262424252424242424242324
+      2423242424242324232423242323232323232323232323242323232323232323
+      2323232323242423232324242323232323232323222223232323222322222222
+      2222222222222222222221212121212223222222222222222221212222212223
+      222221211F1F1F1F1E1F1F1E1F1F1F1F1F1F1F1F1F1F2020202121212E2E2E31
+      32313233323232323232323030302D2E2D1F201F1C1C1D1C1C1C1B1C1C1C1C1C
+      1E1D1D2020202222222424242828282827282827272828272727272828282828
+      2828282828282828282829292929292929292928272828282929282828292828
+      28282726272727272323231F1F1F242323282828292A2A2E2F2E323231333333
+      2121211414141314131413141312131212121212121212111112121111101010
+      101011101010101010100F0E0F0F0F0F0E0F0E0E0E0E0E0E0E0E0E0E0E0D0E0E
+      0E0E0D0D0D0D0E0E0E0D0D0D0D0D0C0C0C0C0C0C0C0C0B0B0B0C0C0C0B0B0B0B
+      0B0B0B0B0B0B0B0A0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A
+      0909090A0A0909090A0909090908090908090808090909090809080808080808
+      0808070808080808070807070807080707070708070707070706070707060707
+      0607060607060607070607060606060606060606060506050605060506060505
+      0505050505050505050505050505050404050504040404040404040404040404
+      0404040404040404040404040304030404030303030304030303030303030303
+      0303030203020303030302030203020202020202020202020201020101010101
+      0101010101010101010101010001010100010100000101000001010000000101
+      0001000001000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303333333939393A3A3A3B3B3B3D3D3D3E3E3E3736372F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F32323238383738383738373738373738373738
+      3737383737373737373737363637373736373637373637373637373637363736
+      3636363636363636363636363635353636363535363635353535353635353535
+      3435343435343435343435343435333434343333333334343433333433333333
+      3433333334333333333333333333333333323233323332323232323232323232
+      3232323232323231323232323131323232313131313131313131313130313131
+      3131313131313031303030313030303030302F30302F30302F302F2F302F2F30
+      2E2F2F2F2F30303031302F313130303030303130313130313030313030303030
+      30303030302F302F2F2F2F2F2F302F302F2F302F2F302F2F302F2F30302F2F2F
+      2F2E2E2E2D2D2D2D2C2C2B2B2A2B2B2B29292A2A292929292929292929292928
+      2829292929282829292828292828282828282728272727272627272626272626
+      2726262626262625262727272727272A292A2A2A2A2C2B2A2D2E2E2D2E2E2D2D
+      2E2D2D2D2D2D2D2D2D2D2D2D2C2C2D2C2D2C2C2D2D2D2D2C2C2D2C2C2D2D2B2D
+      2C2C2D2D2C2E2D2E2D2D2D2D2D2D2D2D2C2A2929272626242424242424242424
+      2424232424242424252425242424242323242423242423242424252425242424
+      2424232424232423232323232423232323232323232322222222232324232323
+      2323232323232322232323232324232323232323242424242324242424242323
+      232222212121201F20201F1F2120212020202020202121212221222E2E2F3332
+      32333333313131302F302F2F2F2F2E2E2323242626262828282A29292A2A2A2A
+      2B2B2B2A2A2A2A2A2A2A2A2A2B2B2A2B2A2A2B2A2A2A2B2B2B2B2A2A2A2A2A2A
+      2A2A2A2A2A2A2B2B2B2B2B2B2A2A2A292A292B2A2B2728282524242020211D1D
+      1D1919191818181818181818192A2A2A2C2C2C2E2E2F32323233333432323316
+      1616141414131413141313141314131314131413121212121111111211111212
+      1110101010101010100F0F101010100F100F0E0E0F0E0E0E0E0E0E0D0E0E0E0D
+      0D0D0D0E0D0D0D0D0D0E0D0D0D0D0D0D0D0D0C0C0B0C0C0C0C0C0B0B0B0B0B0B
+      0B0B0B0B0A0A0A0B0B0B0B0B0A0A0A0A0B0A0A0B0A0A0A0A0A0A0A090909090A
+      09090A0909090A0A090909090908090909080808090908080908080809080808
+      0808080708080808080707070707070707080707070707070707070607070606
+      0707060607070706070606060606060506060606060506060606060506050605
+      0506060506050505050505050505050504040404050404040404050404040404
+      0404040404040403040304040304040403030303040403030303030303030303
+      0303020203020302020202020302020202020202020101020102020202010102
+      0101010101010001010101010100010101000101000000010100010000000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303737373939393A3A3A3C3C3C3D3D3D3E3E3E2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3635353838373837373837373837373837373837
+      3737373737373737373737373736373736373637373636363736363636363636
+      3636363636363636363536363636363636353536353635363635353535353435
+      3535343534343534343534343434343434343433343334343434333334343334
+      3333333333333333323332333333333232323333323232333232323232323232
+      3232323232313232323131323131313231313231313131323131313131313031
+      30303031303030303030303030303030302F30302F302F2F302F303030313130
+      3131303131303031303031313030313030303131303030313030313030303030
+      2F30303030303030302F2F302F302E2F2F2D2D2D2C2C2C2B2B2B2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A292A2A292A2A292A2929292929292929292928
+      2929282928292929282829282828282828282828272727262727262627272626
+      2626262525262526252626252625252525252526252525262625282827292A29
+      2B2B2B2D2D2D2D2D2D2C2C2D2D2D2C2D2D2D2E2C2C2E2C2C2D2C2C2D2E2C2E2D
+      2D2E2D2D2E2E2E2D2D2D2D2D2D2D2D2D2C2D2D2B2B2B27282724242425252525
+      2525252425242524252525252525252525242525252425242424252424242424
+      2424232423232423242423242524242424242324242525242424242524242525
+      2525252525242425242424242424242424242425252525252425242524242425
+      2525232323222122222122222223222222222222232323232324303030323333
+      32323231313130303030302F2F2E2F2E2E2D2D2D2D2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2C2C2C2C2C2C2C2D
+      2D2D2D2D2D2828282425242121211E1E1E1A1B1B1A1A1B1A1B1A1A1A1A191919
+      191919181918191A192021202D2D2D3030303232323334343637362C2B2C1515
+      1515151514141414141313131313131313131413131313131211111111121212
+      11111111111111110F100F101010100F100F0F0F0E0E0E0E0E0E0D0E0D0D0E0E
+      0D0D0D0D0E0E0D0E0D0D0D0D0D0D0D0D0C0D0D0D0C0B0C0B0B0B0B0B0B0B0B0B
+      0B0B0B0B0B0A0A0B0B0B0A0A0B0A0A0A0A0A0A0A0A0A0A090A0A0A090A090A0A
+      09090909090A0909090909090909090808090809080908080908080808080808
+      0808070707080808080807070808080707070707070707070707070706070706
+      0607070706060607060706060606060506060605050605060606050606050606
+      0505050505050505050505050504040505040404040405040404040404040404
+      0404040404040404040404040403040303030303040303030303030303030303
+      0303020202020302020202020202020202020202020101010101010101010101
+      0101010101000101010100010101000000010100000001010000000000010000
+      0001000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303232323939393A3A3A3B3B3B3C3C3C3E3E3E3939392F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F313131383837383737383737383737383737383737373737
+      3737373737373637363737373637363637373737373736373636373736363636
+      3636363636363636363636363536353536363535353536363536353536343535
+      3534353434353434343334343434343334343334343333343334333433333334
+      3333333333333333333332333332323332333332323232323232323232323232
+      3232323232323232323232313131323132323131323131313131313130303031
+      3130313130303130313030303030303030313131313131313130303131313030
+      3131303130313130303131303131303130313131303030303031303030302F2F
+      2F2E2E2E2D2C2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292A292A2A2929292929292929282929
+      2928282929282829292828282827282828282826272726272726262726262626
+      2626262626262625252525262625252625252525242525252524252424242525
+      25252727282929292C2B2C2C2C2D2D2D2C2F2D2D2E2D2D2E2D2D2E2E2C2D2D2D
+      2E2E2D2D2D2D2D2D2D2C2D2D2C2C2D2E2D2D2D2D2E2D2C2C2828282525252626
+      2625262626252625252525252525242425242525242524242424242425252525
+      2425252525262626262525252525262625252625262626252526252625252525
+      2626262626262626262627262626262626262727272726272626262626262625
+      2624242424232424232323232323232323232325252526252631313233343433
+      33343232323232323132323231323030313030303030303030303030302F2F2F
+      2F2E2F2F2F2F2F2F2F2F2F2F2E2F2F2F2F2F2C2C2C2929292524252222221F1F
+      1E1F1E1E1D1D1E1D1D1D1D1D1D1C1D1C1D1D1C1D1C1C1B1C1B1B1B1B1B1B1B1A
+      191A1A1A1B1A1B1B2727272E2E2E313131333332363536383837202021161616
+      1616161515151514151414151313131313131313131312121213131312121112
+      111111111111111110100F0F10100F100F100F0F0F0F0F0F0F0E0D0E0E0E0E0D
+      0E0D0D0E0E0D0D0D0D0D0D0D0D0C0D0C0D0D0D0C0D0C0C0B0B0B0B0B0B0B0B0B
+      0B0B0B0B0A0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A0A0A0A0A0A0A09
+      0A0A0A0909090909090909090909090909090908080908090808080808080808
+      0708080707080808070708080808070708070707070707060607060607060706
+      0606060607070607060606060606060606060506050606060605060506050605
+      0505050505050504050504050504050404040404040404040504040404040404
+      0404040403030403040404030303030403030303030303030303030303030303
+      0302020302020202020202020202010202020201020102010101010101010101
+      0101010001010101010101010001010100000000010001000100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303535353939393A3A3A3C3C3C3D3D3D3E3E3E3232322F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F34343438383738373738373738373738373738373737373737
+      3637373637373737373737373737373737363736373737363636373636363636
+      3636363636363636363636363636353636353636353535353534343634343534
+      3435343435343434343434333434343434333434343334333333333333343333
+      3333333333333333323232323233333232333233333232323232323232323232
+      3232323231323232323132313231313232313131313131313131313131303131
+      3030303130313132313131313131313131313131313130313131303131313031
+      30313130303130303031303131303131312F302F2E2E2E2C2C2C2C2B2B2B2B2B
+      2B2B2B2A2A2A2B2B2A2B2A2B2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A292A2A2A2A29292A2929292A292929292929292928292929
+      2928282929282829282828282828272728272727272727272726272626262626
+      2626262625262526252625262525262525252524252525252524242524242524
+      252424242424242726272828282C2B2B2E2D2D2E2D2D2E2D2D2E2E2D2D2E2D2D
+      2E2D2F2E2E2E2E2E2E2E2E2E2E2D2D2E2E2E2D2E2D2D2E2C2C2C282929262625
+      2526262525262525262525252525252626262526252525252726262626262727
+      2726262727262726272626262627272727272727272627272827272728282927
+      2828272728272728272828282829282828282828282727282727272727292728
+      2626262625252525262525252525252525252626262626263332323535363535
+      3534343434343433323333323332323232323232323232313232323132313231
+      30302D2D2D2A2A2A252525212122212221222121212121212121212121202020
+      202021201F201F1F1F1F1F1E1D1D1D1E1E1E1D1D1E1C1C1C1C1C1C1B1C1C1B1C
+      1B1C1C1C1D1C1D2E2E2E30303034343435353537383736363618181816161616
+      1616151616161515141414141414141414131313121213121312131212121213
+      121212111111101111101011101110100F0F0F0F0F0F0F0F0F0F0F0F0F0F0D0D
+      0D0D0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0C0D0C0C0C0C0B0B0B0B0B0B0B
+      0B0A0A0B0A0B0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A09090A0A090A0A09
+      09090A090A090909090908090809080809080808090808090808080808080708
+      0808070807070807070807070707080708070707070707060707060606070706
+      0706060706060606060606060606060606060606060506050505060605050505
+      0506050505050505050404050404040504050404040404040404040404040404
+      0403040404040404040403040304030403030303030303030303030303020302
+      0303020203020202020202020202010202020101010102020102010101010101
+      0101010001010100010100010101000001000000010000000000000000010100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303031
+      31313838383A3A3A3B3B3B3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F303737373837373837373837373837373837373737373737373737
+      3737373736363736373636373637363736363637363736363636363636363636
+      3636363636363636363635353535353635363534363535353435353434353435
+      3534343434343434343334343333333434343433343433333333333333343433
+      3333333333333233323333333333323332323332323233333232333232313232
+      3232323232323132323131313231313231323131313131313130313131313131
+      3231313132313131313132323131313131303030313030313030313130313130
+      303131303030302E2E2E2C2D2D2D2C2B2C2B2B2C2B2C2C2B2C2C2B2B2B2B2A2B
+      2B2A2B2B2B2A2A2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A29292A2A292929292929292929292929292829
+      2929292828292829282828282827272827262728272727262727272626262626
+      2626262526252526252525252525252525252525242425252424242424252525
+      2525252525252525252425242526252929292C2C2C2E2D2D2E2F2E2E2F2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2D2E2D2D2D2F2F2E2E2F2F2E2E2E2E2D2D28282926
+      2625262727262626262626262726272626272828282727282728272726262727
+      2728282828272829292828282929292928292929292928292929292929292929
+      292929292929292A292A2929292929292929292928282929292A292829282828
+      2828272627272627262626272727272727272727282828333334363736353535
+      3535353535353435353534353434343131312D2C2D2929292727272524242424
+      2424242424242424242423242323242424232323232323232322222221212222
+      2221202021202021201F2020202020201F1E1F1E1E1E1E1D1D1D1C1D1D1C1C1D
+      1C1C1D2423242F302F3232323433343636363738382B2B2B1616161616161616
+      1616161616161615151515151514141414141414141412131313121312121212
+      12121212121212121110111010101010101010100F0F0F0F0E0F0E0F0E0E0E0F
+      0D0D0D0E0D0D0D0D0D0D0D0D0D0C0C0C0C0D0C0C0C0C0D0C0C0C0C0B0B0B0B0B
+      0B0B0A0A0A0A0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A090A0A0A0A0A090A0909
+      090A090909090909090909080908080809080808080808080808070808080808
+      0708080808080707080707070707070707070607070707070707060707060607
+      0606060606060606060706060606060606060506060605060605050505050505
+      0505050505050405040404040504050404040404040404040404040404040404
+      0404040404040404030303030303030303030403030303030202020302020203
+      0202020202020202020202020102010201010201020201010101010101010101
+      0101000001010100010100010101010000010001010001000000000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303434
+      343939393A3A3A3B3B3B3D3D3D3E3E3E3434342F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F333333383737383737383737383737383737383737373737373737373737
+      3737373736373737373737373737373636363737363636363636363636363636
+      3636363636363636363536353536363535353435353435343535343435343535
+      3434343434343434333434333434333434343334343434333433343433333333
+      3333333333333333333333333232333232323232333332333232323232323232
+      3232323232313231323131323131323131323132313132313131323132323232
+      3232323131323131313131313131313131313031303031313131302F302D2D2D
+      2D2D2D2D2D2C2D2D2C2D2C2C2D2C2B2C2B2C2C2B2C2C2B2B2C2B2B2B2B2B2B2B
+      2B2A2B2A2B2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A292A2A2A2A2A2A292929292929292929292929292929292829
+      2928292928282828282828282727282826272727272726272727262626262625
+      2526262625252525252525262525252525242425262526262525252526252525
+      25252424252525252525242525252525252828282C2A2B2E2F2E2F2F2E2F2E2E
+      2E2E2F2E2E2E2F2F2F2E2E2E2E2F2E2E2E2E2F2E2E2F2F2F302E2F2D2D2D2929
+      292728272828282828282728282828282829282829282929292929292A2A292A
+      2A2A2929292929292929292929292A2A2A2A292A2A2B2A2A2A2A2A2B2A2A2A2A
+      2B2A2B2A2A2A2A2A2A2C2B2B2B2B2B2C2B2B2C2B2B2C2A2B2B2B2A2B2A2A2A2A
+      2A2828282828282828282929292929292929292A2B2A3737373A3A3A36363633
+      33332F2F2F2C2C2C282828292828282828282828282728262727262727262626
+      2626262626262525252424252424252524242323232323232323232323232323
+      232322232222222121212121222222211F1F1F201F201F1F1F1F1F1F1F1E1F1E
+      1F1E2B2B2A3232333434343737363A3A393A3B3B1F1F1F181918171717171716
+      1616161616161616161616161515151515151414141314131313131213121212
+      121212111212111211121010101010101110101010100F0F0E0F0F0F0F0F0F0E
+      0F0E0D0D0D0D0D0D0D0D0D0C0D0D0D0D0C0C0C0D0C0D0C0C0D0C0C0C0C0B0B0B
+      0A0A0B0B0B0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A090A0A090A0A090909090909
+      0909090909090909090908080908080808080908080808080808080808080808
+      0808080807070708080708070807070707070607070607060606060706070606
+      0706060606060606060605060506060606050506060606060606050505060605
+      0505040505050505050504040404040404040404040404040404040404040404
+      0404030404030403030303030403030303030303030303030303020302020202
+      0202020202020201010102020202020201020102020101010101010101010101
+      0101010101010101000000010000000000000000000100000100010000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030373737
+      3A3A3A3B3B3B3C3C3C3D3D3D3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F37363638373738373738373738373738373737373737373737373737373737
+      3737363736373736363737373737363737363737373637363637363636363636
+      3636363636353636353636353635343634353635343534343534343535343434
+      3434343434343434343433343433343333333333343434333434343333333333
+      3333323333333332333332333332323232323233333233323232323232323232
+      3231323132323132313232323231313231323231313231313231313132313232
+      313231313131313131313131313131302E2F2F2E2E2E2E2D2E2D2D2D2D2E2D2D
+      2D2D2D2D2D2D2D2C2D2C2B2D2C2C2C2B2B2C2B2B2C2B2B2C2B2B2B2A2A2B2B2A
+      2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A292A29292A292A2929292A29292929292928292928292929282828
+      2828282928282828282828282828282727272627272626272626262626262526
+      2526252625262625252626272626262626252526262626262526262526252525
+      252525252625262525252525252525252626262727272A2A2A2F2F2F2F302F2F
+      2F2F2F2F2F2F2F2F2F2F2F30302F2F2F2F3130303030303230313131302D2E2D
+      2928282929292929292A292A2A292A2B2B2A2A2A2B2A2A2A2A292A2A2A2A2929
+      292A2B2B2B2C2B2B2B2B2B2B2B2B2B2A2C2C2B2B2B2B2C2C2D2D2D2D2D2D2D2C
+      2D2C2D2D2C2D2D2D2E2D2D2D2C2C2E2D2D2E2D2D2E2E2E2E2D2E2E2D2D2C2B2C
+      2B2A2B2B2A2B2B2B2B2B2B2B2B2B2B2B2B2B2E2D2E2B2B2C2B2B2B2B2B2C2B2B
+      2B2B2B2B2B2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292829292828292828
+      2828262727272627272726262627262626262626252525252525242525242424
+      2424242323242323232323232323232122212120212020201F1E1F2020202222
+      233131313434343636363939393A393A32323219191919191918181817181717
+      1716171616161616161616161616161616151514141414141313141313121212
+      1212121211121212121211111111111010101010101010100F0E0E0F0F0F0E0E
+      0E0E0E0F0D0D0D0D0D0D0D0C0D0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0B0C0B0B
+      0B0A0A0A0A0A0B0B0A0A0A0A0A0A0A0A0A090A090A0A0909090A0A0A09090A09
+      0909090909090909090909080808090908080808080808080708080807080808
+      0708080708070808080707070707070707070707070606060607070706060606
+      0607060606060606060606060605060605050605050505060505060505050505
+      0504050504050504050404050405040404040404040404040404040404040304
+      0404040304040303030303030303030303020302030303030202020202020202
+      0202020202010201010202020201010202010101010101010101010101010101
+      0101010101000100000101000000000100010000010001000001010000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303232323939393A
+      3A3A3B3B3B3D3D3D3E3E3E3736372F2F2F2F2F2F2F2F2F2F2F2F2F2F2F313131
+      3837373837373837373837373837373737373737373737373737373736373736
+      3637363737373636363636373736363737363737373736363637373736363636
+      3636363535363635363535363535353535363534353435353434343434343434
+      3434343333343334343434343434343434343333333334333433333333333333
+      3333333333333333323233323233333232323232323232323232323132323232
+      3231313132323132323231323131323131323131323131313231323132323132
+      3131313130312F2F2F2E2E2E2D2E2D2E2D2E2E2D2E2D2E2D2D2D2E2D2D2D2D2D
+      2D2D2C2D2D2D2C2D2C2C2C2C2B2C2C2B2C2B2C2C2B2B2C2B2A2B2B2B2B2B2B2B
+      2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A292A2A292A2A2A2A292A292929292A2929292929292929292928282929
+      2828282828282828282828282828272728272727262627262626262626262627
+      2627272627262627262626262626262625262526252626252526262726262626
+      2526262625262626262726262626262626262625262625252829292E2E2D3031
+      31303030302F2F3031313030313231323132313131313231313331313132312D
+      2D2D2B2B2B2B2B2B2B2B2B2A2B2A2B2B2A2B2B2B2B2B2C2C2C2C2B2C2B2C2B2B
+      2D2C2C2D2C2C2D2E2D2D2E2D2D2E2D2E2D2E2E2E2E2E2F2E2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2E2E2F2E2E302F2E2F2E2F2F2F2F2F2F2F2E2E2E2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2C2D2C2D2D2C2D2C2C2D2C2C2C2C2C2C2C2C2C2C2C2B2B2A2A2B2A2A2B2A2A2B
+      2A2A2A29292A2A2B2A2B292A292A292929282929282927272827272726272726
+      27272525252425252424242323232222222222232222222021212021202A2A2B
+      3433333636373939393C3C3C3D3D3D272727191A191A191A1919191819191817
+      1816161616161716161615161616161616161614141414151513131313131313
+      1313111111111211111112111111111111101010100F10100F0F0F0F0E0F0E0E
+      0E0E0E0E0E0E0C0D0D0C0C0D0D0D0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0B
+      0C0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A09090909090A090A0909090909
+      0909090908080909090808080808080808090808080808080708080808080807
+      0807080707070707070707070707070607070707070606070607070606060606
+      0606060606060605060606060606050606050505060505050505050505050505
+      0505050505040505040505040404040404040404040404040404040404040404
+      0404040403040403040303030303030303030203030303030202020202030202
+      0201020201020202010101010101020102010201010101010101010101010100
+      0101010000010101000100000000000101010101000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303636363939393A3A
+      3A3C3C3C3D3D3D3E3E3E3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F35353538
+      3737383737383737383737383737373737373737373737373737373737373737
+      3737363637363737373737373737363736373637373636363636363636363636
+      3536363536363536353536353436353535353435353435343535343434343434
+      3434343434333334333433343433343334333433333333333333333333333333
+      3333333332333332323332323233323232323232323232323232323232323232
+      323131323231313232313231323232313231313231303232313131313030302E
+      2E2F2E2E2F2F2E2E2E2E2E2D2D2E2E2E2D2D2E2E2D2D2E2E2D2D2D2D2E2D2D2D
+      2D2D2D2D2D2C2D2C2B2D2C2B2C2C2B2C2B2B2C2B2B2C2B2B2B2B2B2B2B2B2A2A
+      2A2B2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A29292A2A2929292929292929292929292929292929282929292829
+      2929282828282828282828282727272727272726262726262727272726262626
+      2727262626272626262726262626262627272727272627262626262627272727
+      27272727262726272627272626262626262625262726262625272A2B2A30302F
+      3232323232323131323132313232323332323232323331323432333333333030
+      302C2B2B2C2C2C2C2B2C2D2C2C2D2C2D2C2C2C2D2D2E2E2E2E2E2D2E2F2E2E2F
+      2F2E2F2F2F2F2F2F303030302F302F2F30303030303030303030313131313131
+      3131313131313130303130303231313131303231313231313232323131312F2F
+      2F2F2F2F2F2F302F2F2F2F2F2F2F2F2F2F30302F2F30302F2F2F2F2F2F2F2F2E
+      2E2F2F2F2F2F2E2F2D2D2D2D2E2D2D2D2D2D2D2D2D2D2E2E2D2D2D2D2D2E2E2E
+      2D2D2D2D2D2D2C2C2D2C2C2C2B2A2B2B2A2B2A2A2B2A2A2B2829292929292727
+      2727272726262626262624252523232323232323232323232323232332313236
+      36363838383A3A3A3D3D3D3A3A3A1E1D1E1B1B1B1A1A1B191919191919181919
+      1717171818181716161616161516161616161615151515151514141414151313
+      131213131112121112111111111112111111111010100F0F0F100F100E0E0F0E
+      0E0E0E0E0E0D0E0E0D0C0D0C0D0D0D0C0C0C0C0C0C0C0C0C0B0C0C0C0C0B0B0C
+      0A0A0B0A0A0A0A0A0B0A0A0A0A0A0A090A090A090A090A090909090909090909
+      0909090908080908080908080908080808080808080808080808080808070808
+      0808070807070707070707070707070607070607070707060707060606060706
+      0606060606060606060606060606060605050506050506050505050505050505
+      0505050505050404040404040404040404040404040404040404040404040404
+      0403030403030403030303030303030302020303030202020203020202020202
+      0202020202020201020202010201020101020101010101010101010101010101
+      0001000100010001000001010100000100000000000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303131313939393A3A3A3B3B3B
+      3C3C3C3E3E3E3A3A3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030303837373837
+      3738373738373738373737373737373737373737373737373737373737373736
+      3736373737363637363636363737363636363636363637373636363636363635
+      3536353635353635353535343534343635343534353434343435343434353434
+      3434343334343433333434343433343434343333333333333333333333333333
+      3333333332333332323232333332333233323232323232323232323132323231
+      323232323131323231323131323131313131302F2F2F2F2E2F2F2F2E2E2F2E2E
+      2E2E2E2E2E2E2E2E2E2E2D2E2E2D2E2E2D2E2D2E2D2D2D2D2E2D2D2D2D2D2D2D
+      2D2D2D2D2C2D2C2B2D2C2C2C2B2B2C2B2B2C2B2B2C2B2B2B2B2B2B2B2B2B2A2B
+      2A2B2B2A2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A292A2A292A292A29292A292929292A29292929292929282928282928292928
+      2828282828282828282827272727292728282827282727272727272727272727
+      2727272627262727272727272727272727272728282727272828282727272627
+      272627272626272627262827272727272827282727282827282827282C2C2C31
+      3131333332333233323332333334333333333333353334363435353534353535
+      3030302D2D2D2D2E2E2E2F2E302F2F302F302F2F2F2F30303030303030303031
+      3030303031313131313131313233323232323332323233333333333334333335
+      3434343434343334343333343433343333343534343434353535343333333233
+      3232333232333332323232323132323132323332333233323332323232323131
+      313131313232313131313232333232323232323232313231313030303030302F
+      2F2E2F2E2E2D2D2E2D2D2E2D2D2E2D2D2D2C2C2D2B2A2C2B2A2B29292A2A2929
+      2929292828282627262626262425242424252323232424242828293535363939
+      383B3B3B3E3E3E3E3E3E2E2D2D1C1D1D1D1D1C1C1B1B1B1B1B1A1A1919181819
+      1918191819171817171717161616151616161615151515151516141414141413
+      1313131212121111121111111111111111111111110F100F0F0F0F0F100F0E0E
+      0E0E0E0E0E0E0D0E0E0D0D0C0D0D0C0C0C0C0C0C0C0D0B0C0C0B0C0C0C0C0C0C
+      0C0C0B0A0A0B0A0A0A0A0A0A0A090A0A0A0A0A0A09090A0A0909090909090909
+      0909090809090909080809080908080908080808080808070808080808070808
+      0807070707070707070707070707060607070707060707060606060606060706
+      0606060606050606050606060505060605050505050505050505050505040505
+      0505050504040405040404040404040404040404040404040404040404040404
+      0403030303030303030303030303030302030302020202020202020202020202
+      0201020102020102010101020101010102010202010101010101010001010100
+      0000000001010100000001000000010101000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303535353939393A3A3A3C3C3C3D
+      3D3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F343434383737383737
+      3837373837373737373737373737373737373737373737373737373737373736
+      3737373737363637373736373637363637373636363636363636363536363535
+      3535353535363434363535353435353535343435343434343434343434343434
+      3434343434343334343334343433333334333333333333343333333333333333
+      3333333232333332323232323232333233323232323232323232323232323131
+      32313132313131313130302F2F2F2F2F2F2F2F2E2F2F2E2E2E2F2F2E2F2F2F2F
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2E2D2D2D2D2E2D2D2D2D2D2D2D2D2D
+      2D2D2D2C2D2C2C2C2C2C2C2B2B2C2B2B2C2C2C2C2B2B2B2B2B2B2A2B2A2A2A2A
+      2A2A2A2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A292A2A2A2A292A292A2A2A29292929292929292929292928292928282829
+      2828282828282828292929272828282828272728272727272727272727272627
+      2728272728282727282828272828272827282827272727282727272727272727
+      27282727272828282828292829292929282929282928272829292A2A2A2A2F2F
+      2F34343434343434343434343435353536363637363637363637373637373634
+      3434303030303030313030313130313231313131313131323232333333333333
+      3333333333333334343434353635353535353535353636363635353636363636
+      3636353636363536353537353636363637363636363737373735353635353535
+      3535353535353535353535353435353535353535353535353535353535353535
+      3535353535353535353535353535343534353433333333333232323232323131
+      31313030313031312F312F2E2F2D2D2E2D2D2E2D2D2D2C2D2D2C2C2C2B2B2B2A
+      2A2A2929282727282728272626262525252525252525253233333839383B3B3C
+      3C3C3C4040403F3F3F2021211D1E1D1C1D1C1C1C1C1C1C1C1B1A1A1A1A1A1919
+      1918181818181817171717171716151515151615161515151515151514131414
+      14131212121212131212121111111111101011111111110F100F0F0F100F0F0F
+      0E0E0E0E0E0D0E0E0D0D0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0C0B0C0B0C0C0B
+      0C0B0A0A0A0A0A0A0A0A09090A0909090A090A09090A09090909090909090908
+      0908080808080908080908090808080808080808080808080807080707070707
+      0707080708070707070707060707070706070606070706060706070707060606
+      0606060606060606060506060505050505050605050505050505050505040404
+      0504040405040404040404040404040404040404040404040304030303040304
+      0303030303030303030303020303030303020202030203020202020202020102
+      0202020201010201020201010101010201010101010101010101010101010100
+      0101000101000001010000000000000000000100010000010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303131313838383A3A3A3B3B3B3C3C3C3D3D
+      3D3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3037373738373738373738
+      3737383737373737373737373737373737373737373737363737373636373736
+      3637373737363737373736363636373736363636363636363636353636353535
+      3536353436353536343435353435343434353434343434343434343434343434
+      3334343433333434333334333333343333343334333334343333333332333332
+      3333323332323332333332323332323232323232323232323231323232323231
+      302F2F30302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2F2E2E2F2E2E2F2F2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2D2D2D2D2D2D2E2E2E2E2D2D2D2D2D
+      2D2D2C2D2C2C2C2C2B2D2B2C2C2B2B2C2B2B2C2B2B2B2A2B2B2B2A2B2B2A2A2B
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A
+      2A2A292A2A2A292929292A292929292928282929282929292928282828292929
+      2929292928292928292927282928282827282827272828282828282828272727
+      2728282828282828282828282828282728272827282728282828282828292829
+      28292A292A292929292A292929292A292A2A2A2B2A292A2B2A2B2B2B2B2C2C2C
+      3232313635353737363636363737373737373737373937373938373939383838
+      3834333332323233333333323233333334343433343434353535363636363636
+      36363636363636363737363737373838383837373838383938383938383A3838
+      3939383938383A3939393939393A393A393A3A3A3A3B3A3A3837373838373838
+      383838393939393939393A3A3A3A3A3939393A3A393939383838383838383838
+      3838373737373737373737373737363636363636353535353535343434343334
+      3333343232333231333131312F2F302F2F2F2E2F2F2E2D2E2D2D2D2C2C2C2C2C
+      2C2C2C2C29292928282827272727272727272729292A3939393B3B3C3D3D3D40
+      414141404134343420201F1E1E1F1D1D1D1D1D1D1C1C1C1B1B1C1A1B1A191A19
+      19191A1818181818181717171716171616151515161515161515151514151413
+      141313141213131213121111111111111111101011111110100F0F0F0F0F0F0D
+      0E0E0E0D0E0D0E0D0E0E0D0D0C0C0D0D0D0C0C0C0C0B0C0C0B0C0C0B0B0B0B0B
+      0B0B0B0A0A0A0A0A0A0A0A0A09090A09090A09090A090A090A09090909090908
+      0909080908090909090909080809080808080808080807080708070807070707
+      0708070808070807070707070707070607070707060607070707070607060606
+      0606060606050606050606050505060505050505060505050505050505050405
+      0404040504040404040404040404040404040404040404040403030403030303
+      0303030303030303030303030303020303020202020202010202010202020102
+      0201010202020101010101010101010201010101010100010101010001000001
+      0101010101000101010101000000010001010000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303333333939393A3A3A3B3B3B3D3D3D3E3E3E
+      3535362F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3232323837373837373837373837
+      3737373737373737373737373737373737373737373737373737373736363736
+      3636373636363637373637363736363736373736363635363635363535353535
+      3535353534353535353535353534343434343434353534343434343434343433
+      3434343333333334343433333434333333333334333333333333333333333333
+      33333233333333333332323332323232333232323232323031312F302F303030
+      3030302F2F302F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2F2E2E2F2F2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2D2E2E2E2D2E2E2D2E2E2D2E2D2D2D2E2D2D2D2D2D2D
+      2D2C2C2C2B2C2C2B2D2B2B2C2B2B2C2B2B2C2A2A2B2B2B2B2B2A2A2B2B2A2B2A
+      2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      29292A29292A29292A29292929292929282829292829292A2929292A29292A29
+      2929292829282929292728282728292829292828282828292929292829282829
+      2828282829282728282828272829292829282A292A2929292A2A2A2A292A292A
+      2A2A2A292A2A2A2B2B2C2C2C2C2C2B2B2B2B2B2C2A2C2C2B2C2B2B2C2C2C2C30
+      2F303736363737373838383938383939393B393A3C3B3B3C3B3A3B3B3B3A3A3A
+      3636373535343535353535363636363636363636363736363737383838383938
+      38393939393A3A39393A3A3A3B3B3A3A3B3B3B3C3B3B3C3B3B3C3C3C3C3C3C3C
+      3B3B3C3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D3D3D3D3C3C3D3C3D3D3C3D3D
+      3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3C3D3D3C3D3C3C3C3C3B3B3B3B3B3B3A3A
+      3B3A3B3A3A3B3A3A3A3A38393939393838373837373836363636363636363636
+      35363634363434343232333232333131313131312F30302E2E2E2E2E2E2D2D2D
+      2C2C2D2B2B2B2B2A2B29292A2929292828273332333B3B3B3E3D3D3F3F3F4242
+      424343432525262021201F201F1F201F1E1E1E1D1D1D1C1C1C1C1C1B1B1B1A1A
+      1B1A191919181818181818181717161716151515151615151515151515151415
+      1413141314131213121212121111111110111010111110100F0F0F0F0F0F0F0F
+      0F0E0E0E0E0E0E0E0E0D0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0B0C0C0B0C0B0B
+      0B0C0A0A0A0A0A0A0A0A0A0A090A0A0A090A0909090A09090A09090909090909
+      0908090909090909090908080808080808080708080808080807080807080707
+      0708080707070707070707070607070706060706060606060606070606060706
+      0506060605060605050505050505050505050505050505040405050404040404
+      0404040404040404040404040404040404040404040404040303030303040303
+      0303030303030303030303020202020202030302020202020202020202020201
+      0202010102020101010101010101010101010101010101010100000101010000
+      0000000000000001010000000000000001000001000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303737373A3A3A3A3A3A3C3C3C3D3D3D3E3E3E2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F363636383737383737383737373737
+      3737373737373737373737373737373737373737373637373737373737373737
+      3737363636373736373736363736363636363636363536363536343436353536
+      3535363534353434353435343435343434353435353434343434343433343434
+      3433333434343334343333343333333333333333323333323233333333333233
+      32323333333333333332323232313131303030303030302F302F2F30302F302F
+      302F2F302F2F302F2F2F2F2F2F2F2F2E2F2F2F2F2E2F2F2F2E2F2F2E2E2E2E2E
+      2E2E2E2E2E2E2E2D2E2D2D2E2D2D2D2E2E2E2D2D2E2D2E2D2D2D2D2D2D2C2D2D
+      2C2D2C2B2C2C2B2C2C2B2C2B2B2C2B2B2C2B2B2B2A2B2B2A2A2A2A2B2A2A2B2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A2A2A2A2A
+      2A2A2A2A2A292929292A29292929292A2A2A292A2A29292A292A2A2929292929
+      292929292A29292A29292929292A29292A292929292829292829282929292828
+      29282828282929292929292A2A2A2A2B2B2A2A2A2A2A2A2A2A2A2B2B2A2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2D2C2D2D2D2E2E2C2E2D2C2D2E2D2E2E2E2E3030
+      2F3535363A393A3A3A3A3B3B3B3B3B3B3C3B3B3C3B3B3D3D3C3D3D3C3E3E3E3A
+      3B3B373737373637373737383938393939393939393A393A3A3B3C3B3B3B3B3B
+      3C3C3C3C3C3C3D3C3D3C3C3C3D3D3D3E3D3D3E3D3D3F3E3E3F3D3D3E3D3D3F3F
+      3E403F3F3E3F3F40403F3F3F403F3F3F403F403F3F3F404040403F3F3F3F403F
+      3F3F403F3F3F3F3F3F3F3F3E3E3E3E3E3E3E3F3F3E3E3E3E3E3E3D3D3D3D3D3D
+      3D3D3D3D3D3D3D3D3D3C3C3C3C3C3C3A3A3B393A3939393A3938393837383737
+      383736363535363535363434343333333131313231313030312F2F2F2E2E2E2D
+      2D2D2D2C2C2C2C2B2A2A2A2B2B2B2C2C2C3939393E3D3D404040434443444444
+      373737232323212221212020201F1F1F1F1F1D1E1E1D1D1D1B1B1C1B1B1B1C1B
+      1B1A1A1A19191918181818171818171717171615161515151515151415141514
+      15141413131212121212121111111111111010111011101010110F0F0F0F0F0F
+      0F0F0F0D0D0E0D0D0E0D0D0D0C0C0D0C0C0C0C0C0C0C0C0B0C0C0C0B0C0B0C0B
+      0C0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A09090909090909090909090909
+      0809090909090809080808080808080808080808080807080708070708080707
+      0707070707070707060707070707070607070707060606070606060606060506
+      0605060606050606060605050505050505050505050505050505050404040404
+      0405040404040404040404040404040404040403040303030404040303030303
+      0303030303020302030203020202020202020202020202020202020202010102
+      0101020102010201010101010101020101010100010101010101010101010000
+      0101010001000000010101000000000101000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303232323939393A3A3A3B3B3B3D3D3D3E3E3E3838382F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F31313138373738373738373738373737373737
+      3737373737373737373737373737373737373737373737373636373737373736
+      3737373636363737363636363636353736353636363635353635353635353535
+      3435353435343535343434343535353434343434343534343433343434333434
+      3333343333343433343332333232333333333332333332333333323333333332
+      333333323332323131303031303030303030303030303030302F2F2F302F2F30
+      30302F2F302F2F2F302F2F2F2F2E2F2F2F2E2E2E2E2E2F2E2F2E2E2E2E2E2E2E
+      2E2E2E2E2E2D2E2E2D2D2E2D2D2D2E2E2E2E2E2D2E2D2D2D2D2D2D2D2D2D2D2C
+      2D2C2C2D2C2B2C2B2B2D2C2B2C2B2B2C2B2B2B2B2B2B2B2B2B2A2A2A2A2B2A2A
+      2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2929
+      2A2A29292A2A2A2A2A2A2A2A2A2A292A2A29292A29292A29292A292A292A2A2A
+      2A2A2A2A2A292A292A2A292A2A2A292A292A2929292928292828282A29292A2A
+      2A2A2A2A2A2A2A2B2B2A2B2A2B2A2A2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D
+      2C2C2D2E2D2E2E2E2E2E2D2E2D2E2F2E2E2F2F2F3030312F2F30303030303030
+      3535343B3A3B3C3C3C3D3D3D3D3D3D3F3E3E3F3E3E40404040403F40403F3F3F
+      3F3A3A3A3B3B3B3C3B3B3D3C3C3C3C3C3C3C3C3C3D3D3D3D3E3D3E3E3E3E3E3F
+      3F3F3F403F404040414040414141424141424141424141424142424141434242
+      4343434343434243424342424343434343434343434444444344444344434344
+      434344434343434242424343424343424242424141414141414140403F403F40
+      3F3F3F3F403F3F403E3E3E3D3D3D3D3D3D3C3C3C3C3B3C3C3B3B3B3A3B3A383A
+      3837383737383636373635363535353434353433343332323131313030312F2F
+      2F2D2E2E2D2D2D2D2D2D2C2C2C3535353E3E3F41414143424244454446464628
+      29292323232323232122222020201F1F1F1F1F1F1E1E1E1C1C1D1B1C1C1C1B1B
+      1B1C1B1A1A1A1919181817171718171717161616171515151415151515151414
+      151314131413131212121211121011111011101011101110100F0F0F0F0F0F0F
+      0F0F0E0E0E0D0E0D0E0D0D0D0C0D0C0C0C0C0C0C0C0C0B0C0C0C0B0C0B0C0B0B
+      0B0B0B0A090A0A090A0A090A0A0A090A0A090A09090909090909090908090909
+      0908090809090808080808080808080808080808070808080807080708070807
+      0708080707060707060707070707060706070707060606060606060606060606
+      0606060606060506050505050505050505050504050505050505040404040404
+      0404040404040404040404040404040404040403040404030303030303030303
+      0303030202020302020302020202020202020202020202020202020201010102
+      0102010201020102010102010101010001010101010100000101000101000100
+      0100000100010001000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303636363939393A3A3A3C3C3C3D3D3D3E3E3E3131312F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3434343837373837373837373737373737373737
+      3737373737373737373737373737373737373736373737373737373737373737
+      3737363637363636363736363635363635363535363535363435363535353435
+      3535353435353434343534343535343434343434343434343434343434343434
+      3434323333333333323334333233323233333233333233333333323232323132
+      31313131313030303030303030303030303030303030303030302F2F2F302F2F
+      2F2F2F30302F2F2F2F2F2E2F2F2F2F2F2F2E2E2F2E2E2F2E2E2E2F2E2E2E2E2E
+      2E2E2D2E2D2E2E2E2E2D2D2E2E2E2D2D2D2E2E2D2E2D2D2D2D2D2D2D2D2D2C2C
+      2C2C2D2C2B2D2B2B2D2B2B2C2B2B2C2B2A2B2A2B2B2B2A2A2B2B2B2A2A2B2A2B
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292A2929292A2B
+      2A2A2A2A2A2B2A2A2A2A2A2A2A2929292A292A2B2B2A2A2B2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2B292A2A2A2A2A2A2A2A29292929292A29292B2A2A2B2A2B2C2B2B
+      2C2B2B2B2B2B2B2B2C2C2C2C2D2C2C2D2D2C2C2C2C2D2D2D2E2E2D2E2D2E2E2F
+      2F2E2E2E2F2F2F302F3031303130303131303132323231313231323233333334
+      34353B3B3B3F3F3F404040404040414040424140424242444342444443434343
+      3D3D3D3D3E3D3E3E3E3F3E3E3F3F3F40403F4140414041404141414242424343
+      4342434243434343434344434344444344444445434446444446464546454646
+      4545464646464546454646464646464646464646474746474747464747464646
+      4746474646464546454646464545454545454545454444434444444344444343
+      424242424242424141414040403F403F3E3E3E3E3E3E3E3D3E3D3C3D3B3B3B3A
+      3A3B39393A383838373737373737363636353535343534343434323232303030
+      2F2F2F2E2E2F2F2E2E2F2F2F3D3D3D4141404343424647474747473A3A3A2425
+      252424232323232223232222222121211F1F1E1E1F1F1E1E1E1C1C1C1B1B1B1B
+      1B1B191A1A1A191A191818171718181718161616151515151515151414141414
+      1415151313131313131212121111111110111010111010101010100F0F0F0F0F
+      0F0E0D0E0E0D0E0D0D0D0D0D0D0C0C0C0C0C0C0C0C0C0C0B0C0B0B0C0B0B0B0B
+      0B0B0A0A0A0A0A09090A090A0A0A0A09090A0909090909090909090909080909
+      0809090908080809090808080808080808080808080708080708070808070808
+      0707080707070707070707060707070606070707070706060606060606060606
+      0506060505050505050506050505050505050505040404050405040404040404
+      0404040404040404040404040404040404040403030303030304030303030302
+      0303030303020302030303030202020202020202020202020201020101020201
+      0201020102010101010101010101010101010101010101010101010101000100
+      0101000001000100010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303131313838383A3A3A3B3B3B3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F303030373737383737383737383737373737373737373737
+      3737373737373737373737373737373637373737373737363637373736373636
+      3636373636363636363636363536363536353536353536353536353535353535
+      3535353435343434353535343534343434343435353434343434333333333332
+      3332323332323432333433333332323333323332323232323130313131303231
+      31313130303031303031303030303030302F30303030302F30302F2F2F2F2F30
+      2F2F2F2F2F2F2F2F2F2F2F2F2E2F2E2F2F2E2F2F2F2F2E2E2E2E2E2E2F2E2E2E
+      2E2E2E2E2D2E2D2E2E2D2D2D2D2E2D2D2D2D2D2E2D2D2D2D2D2D2D2D2D2C2C2C
+      2C2C2C2C2D2B2C2D2B2B2C2B2B2C2B2B2B2A2B2B2A2B2A2A2B2A2A2B2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2A2B2B2B2A2A
+      2A2B2B2A2A2A2A2A2A2A2A2A2A2A2B2A2B2B2A2A2A2B2A2A2A2A2A2A2A2A2B2B
+      2B2A2A2B2A2A2A2A2A2A2B2A2A2B2A2A2B2B2A2B2B2A2B2C2B2B2B2B2D2C2D2C
+      2C2C2D2D2D2C2C2D2D2D2C2C2C2C2D2D2D2E2E2E2E2F2F2E2F2F2F302F313131
+      3131323131313232323232333332333333333433343434353535353636363636
+      363C3D3D41414142424242414245444445454545454447464547474646464641
+      4041414242424141424242424242434343434343444444454546464545464646
+      4746464847474847474947484847474948484948494949484949484949494949
+      49494A4A4A4A494A4A4A4A4A4A4A4A4A4A4A4A4A494A49494A4A4A49494A4A49
+      4949494949494948484848494948484849474747474747464646464646454545
+      454545454545444343434242434243414042414041403F403F3F3F3D3E3E3D3E
+      3E3C3D3D3A3A3A3A3A3A39393837383837373737373735343533333333333332
+      31322F302F303030393939414141444444464746484848494A4A2C2C2C262526
+      2425252424232323232322222222222120211F1F1E1E1F1F1D1D1E1C1D1C1B1B
+      1B1B1B1A1A1A1A18191917171717181717171716161615151514151414151414
+      14151313131313131212121112121111101110111010101010100F0F0F0F0F0F
+      0F0F0E0E0D0E0D0D0E0D0D0D0C0C0C0C0C0B0B0C0C0C0C0B0B0B0C0C0C0B0B0B
+      0B0A0A0A0A0A0A0A0A09090A0A09090A0A09090A090909090908090908090908
+      0909090808080808080808080808080808080708080808080808070707070708
+      0707070707070707070707070606060706060606070606060606060606060606
+      0605050606060506050505050505050504040404040404040404040404040404
+      0404040404040404040404040404040403030403030303030303030303030303
+      0303020302030302030202020202020202020202020201010202020101020201
+      0202010201010201020101010101010101010101010001010001010101000100
+      0000010001000101000000000000000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303535353939393A3A3A3B3B3B3D3D3D3E3E3E3333332F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F33333338373738373738373737373737373737373737373737
+      3737373737373737373737373737373737363737373737373737373736363737
+      3636363636353637363636353735353635353635353635353635353535353435
+      3534343535353434343434343435353434343433333333333332333333333333
+      3332333232333332333232333233323232323231323131323131313031323130
+      31313130313131303030303030303030303030302F3030302F302F2F30302F2F
+      2F2F2F302F2F2F2F2F2F2E2F2F2E2F2E2E2F2E2E2E2F2E2F2E2E2F2E2E2E2E2E
+      2E2E2D2E2E2E2E2E2D2E2D2E2E2D2D2E2D2D2D2D2D2D2D2D2D2D2C2D2C2D2C2C
+      2C2C2C2D2B2B2D2B2B2C2B2B2C2B2B2B2B2B2B2A2A2A2B2B2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2A2A2B2B2B
+      2A2B2A2B2A2B2B2B2B2A2B2B2B2A2B2A2B2A2B2A2B2C2B2B2B2B2B2B2B2B2A2B
+      2B2A2A2C2B2B2C2B2C2C2B2B2D2C2C2C2B2B2C2C2C2D2D2D2E2D2D2E2D2D2D2D
+      2D2D2D2D2E2E2E2F2E2F302F2F2F2F2F30303031313031323232323232313233
+      3334333334343434353434353536363537373637363637373737383838383839
+      3D3D3C4444434545454545454646464746464848474949494949484949484545
+      454344434444444545454645464746474747484848494848484949494949494A
+      49494949494A4A4A4B4A4A4C4B4B4C4B4B4C4C4C4C4C4B4C4C4C4D4D4D4D4D4D
+      4D4D4D4D4D4C4D4D4D4D4D4D4D4D4D4D4D4D4D4C4C4C4D4D4D4D4D4C4C4C4C4C
+      4C4C4C4C4C4C4C4B4B4C4B4B4B4B4B4B4B4B4B4B4B4B4A4A4A49484948484847
+      47474747474646464645454444454443444343434241424040403F3F403F3F3F
+      3E3E3F3D3D3D3C3C3C3A3B3B393A3A3A39393737373636363636363433343332
+      323232323333334040404445454747474949484949493F3E3E28282827272726
+      26262525242323232323232222222221222121211F1F1F1E1E1E1D1E1D1C1C1C
+      1A1B1A1A1A1B1A1A191819181717171717171717171616151515151515141415
+      141414141313131313131211121011101010111010101010101010100F0E0F0F
+      0F0E0E0E0D0D0D0D0D0D0E0C0C0C0B0C0C0C0C0C0C0C0C0C0B0B0B0B0B0B0B0B
+      0A0A0A090A0A0A0A0A090A0A0A0A09090909090A090909090908090809090909
+      0808080809080808080808080808080808080807080808080707080707070707
+      0707070707060607070706060707060606070606060606060606050606050605
+      0505060505050505050505050504050404050404050404040404040404040404
+      0404040404040404040403040404040404030304030303030303030302030303
+      0302020203030202020202020202010202010202020102020202020202010102
+      0101020101010101010101020100010101010101010101010100010100010001
+      0000000001010100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303838383A3A3A3B3B3B3C3C3C3D3D3D3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F303736363837373837373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373736373736363637363636
+      3636373635363636363535363535363535363535363535353535353434353435
+      3535343535343434343434343333333333333333333333333333333332333332
+      3233333232323332323232323132323132323132313132313131313132303131
+      3030303031303030303130303030303030302F302F303030302F2F302F302F2F
+      2F2F2F302F2F2F2F2F2E2E2F2F2F2E2F2E2F2E2F2E2E2E2F2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2D2D2D2E2D2E2D2D2D2E2D2D2D2D2D2D2D2C2D2C2D2C2D2C2C2D
+      2C2C2C2B2C2C2B2C2C2B2B2C2B2B2B2A2B2B2B2A2B2B2A2A2A2A2A2B2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2A2B2A2B2B2A2A2A2C2B
+      2B2B2B2C2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2B2B2B2B2B2B2C2C2C2C2C2B2D
+      2D2D2C2B2C2D2C2D2D2C2C2E2D2D2D2D2D2E2E2E2D2E2D2D2E2E2E2E2E2F2F2F
+      30303030302F3031303131313232323232323232323333343334333434343535
+      363636363737373737373837383838383A393A39393A3A3A3A3B3C3C3B3C3B3E
+      3E3F4546454848484949494949484B4A4A4C4C4B4C4C4B4D4D4C4D4D4D484848
+      4848484949494949494949494B4A4A4A4B4B4B4B4B4C4C4C4D4D4D4D4C4C4E4D
+      4D4F4E4E4F4E4E4F4E4F504F4F50505050505050505050505051515151515151
+      5151515151515151515151525252525252525151525151525251515152505050
+      4F504F4F504F4F4E4F4E4F4E4E4F4E4D4D4D4D4D4D4D4D4D4C4C4C4C4C4C4A4A
+      4A4A4A4A4948494847484746464646474646464544454343434342434140403F
+      3F3F3F3F3F3F3F3E3C3D3D3D3D3D3A3A3B393A39383938373637363536343534
+      3434343D3C3C4646464747474A4B4B4B4C4B4D4C4D2F2F302929292828272626
+      272626262424242324232323232222212222211F1F1F1F1E1F1F1E1E1D1D1D1C
+      1C1C1B1A1A1B1B1B1A1A1A181819171717171717161516151514141414141514
+      1414141213131213131112111111111110101010101010101010100E0F0E0E0F
+      0E0D0D0D0E0D0D0D0D0D0C0C0C0C0C0C0C0C0C0B0B0C0B0B0B0B0B0C0C0B0B0A
+      0A0A090A0A090A0A090A090A0909090909090909080909090909090908090809
+      0809090808080808080808080807080807070808080708080707070707070707
+      0707070707070707060707070606060606060706060606060606060606060605
+      0505060505050505050505040505050404040404040404040404040404040404
+      0404040404040404040404040403030304040403030303030303030303020302
+      0202030202020302030202020202020202020102010202010201010102020101
+      0102010101020101010101010101000101000001010001000100010000000101
+      0000010001000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303232
+      323939393A3A3A3B3B3B3D3D3D3E3E3E3736372F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F323132383737383737383737373737373737373737373737373737373737
+      3737373737373737373737373637373737373737373737373736363636363736
+      3636363536363536353536353536353536353535353435353535353535343535
+      3534343534343333333433333433333334333333333233333333333332323333
+      3233323232323232313332313232313232313231303231313130313130303130
+      3130303130303030303030303030303030303030302F2F30302F2F2F2F302F2F
+      2F302F2F2F2F2F2F2F2E2F2F2F2F2F2E2E2E2E2F2E2F2F2E2F2E2E2E2E2E2D2E
+      2E2E2D2D2E2D2D2D2D2D2D2E2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2C2C2B2C2C
+      2C2C2B2C2C2B2B2C2B2B2C2B2B2B2B2B2B2A2A2A2A2A2A2B2A2A2A2A2A2A2A2A
+      2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2B2B2B2C2B2C2C2B2B
+      2B2B2C2B2B2B2C2C2C2C2B2B2B2C2B2B2C2B2C2C2C2D2C2C2D2D2D2D2E2E2E2D
+      2E2D2D2D2E2D2E2F2E2E2F2E2E2E2D2E2E2D2E2E2F2E302F2F30303030303031
+      3131323232323232323332333333343434353535363636373637373737373838
+      3838383939393B3A3B3B3A3B3C3B3D3D3C3D3C3C3D3D3D3D3D3E3E3F3F3F4141
+      424848484B4B4B4C4B4C4E4D4D4E4E4D4F4E4D50504F5151505150514C4C4C4C
+      4C4B4C4C4D4D4D4D4E4E4E4F4F4F4F4F4F504F4F4F4F4F515050525151525151
+      5352515452525453535453535352535454545454535554545555555555555555
+      5554545554545454545454545454545454545453535353535453535353535353
+      535353535353535352525351515151515150504F50505050504F4E4E4F4E4E4E
+      4D4D4D4D4C4D4C4A4C4A49494949494847484747474545464544454343444242
+      424141414040403F3F3F3F3F3F3C3D3C3C3B3B39393938383837373737373737
+      37374343434949494B4B4B4C4D4C4E4E4D3F3F402B2C2B2B2B2B292929282828
+      2627272526252524242323232223222221222021211F1F1F1E1E1F1E1E1E1C1C
+      1C1B1A1B1A1A1B19191918191817171717171717161715151614141415141415
+      14151414131213131112121211111011111010101010101010100E0F0F0E0E0F
+      0F0E0E0E0D0D0D0D0D0D0D0D0B0C0C0C0B0B0C0C0C0B0C0B0B0B0B0B0B0B090A
+      0A090A0A0A090A0A0A09090A090A090909090909090909080909090908080909
+      0808090808090808080808080808080808070707070808070807070807070707
+      0707070607070707070606060606060706060607060606060505050506050605
+      0506060505050504050504050405040504040404040404040405040404040404
+      0404040404040404040304030303030303030303030303030303020203020303
+      0203020202020202020202020202010202020202020102010201020102020101
+      0201010101010101010100010101010101010001010000000100010100010100
+      0101010101000100010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030373737
+      3939393A3A3A3C3C3C3D3D3D3D3D3D3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F35353538373738373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373637373636373736363636
+      3636353636353635353635353635363635353535353535353535353535343434
+      3434333333343433333334333333343333333333333333333333323232323333
+      3232333232323232323231323231323231323131313131313031313131313130
+      30313030303030313030303030302F3030302F2F30302F302F2F30302F2F2F30
+      2F2F2F2F2E2E2F2F2F2F2F2F2F2F2E2F2F2E2E2F2E2E2E2F2E2E2E2E2E2E2D2D
+      2D2E2D2E2E2E2D2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2D2C2C2C2C2B
+      2C2B2C2C2B2B2C2B2B2C2B2A2B2A2B2B2B2B2A2A2B2B2B2A2A2A2A2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2B2C2C2C2C2C2C2B2B2B2B2B2C
+      2C2C2C2C2C2C2C2C2C2B2B2C2C2D2D2D2E2D2D2D2E2E2E2E2E2E2E2F2E2E2E2E
+      2F2E2F2F2F2F2F2E2E302F2F3030303131313031313131313232323232323333
+      333334343434353536353636363737373737373838373938383A39393B3C3B3B
+      3B3B3D3D3C3D3D3D3E3D3D403E3F3F3E3F404041414141424242434343434343
+      4A4B4A4E4E4E4F4E4F5250515251525353525353525454535454554F4E4E4F4F
+      4F50515051515152525253525353545355545455555555545455555556565556
+      5656575656575757585757585858585858585858585858585858585858595959
+      5959595959595959595959595959595959595958585858595958585757575757
+      565655565556565555555555565454545454545353535252535151525050504F
+      4F4F4F4F4F4E4E4E4D4D4D4C4B4C4A4A4B494949484848474747454545464545
+      4343434242424141414040403F3F3F3C3C3C3B3B3B3A3A393838393839384141
+      424949494B4B4B4E4E4E504F4F4E4F4F2F2F2F2D2D2D2B2B2B2B2B2B29282927
+      28272626262525262424242323232322222122212021211F1F1F1E1E1E1D1D1D
+      1C1C1B1B1B1B1A1A1A1919191818181617171617171516151514151514151415
+      141414141312131213131111121110111010101010101010100F0F0F0F0E0E0E
+      0E0E0E0D0D0D0D0D0D0D0C0C0C0B0C0C0B0B0C0C0B0B0C0B0B0B0B0B0B0A0A0A
+      090A09090A0909090A0909090A090909090A0909090909090909090809090908
+      0909080808080807080808080707080808080707070807070707070707070707
+      0707070607060707060606060606060606060606060606050606050606060505
+      0505050405050505050405050404040404040504050404040404040404040404
+      0404040404040304030303030303030303030303030303030303020303030203
+      0203020203020202020202020202020102020201020201020102020102010201
+      0101010201010101010101010101010101010101010101010101000101010001
+      0100010000000000000100010000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303131313939393A
+      3A3A3B3B3B3C3C3C3D3D3D3939392F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303031
+      3837373837373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373637373636363536
+      3636363535363536363536363536353535343535343535343434343434343433
+      3334343433333433333334333333333333333333333233333232323333323232
+      3233323232323132323133323132323132313132313032303131303131303030
+      3030313030303030303030303030303030302F2F2F302F302F2F2F302F2F2F2F
+      2F2F2F2F2F2F2F2F2E2F2F2F2E2F2F2F2F2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D
+      2E2D2E2D2E2D2D2D2E2D2D2D2D2E2D2E2C2D2D2D2D2D2C2D2C2C2C2B2C2C2C2C
+      2B2C2C2B2B2C2B2B2C2B2B2B2B2A2B2B2B2B2A2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2B2C2C2B2C2C2D2C2D2C2D2D2C2C2C2C
+      2C2D2D2D2C2D2C2D2E2D2F2E2F2E2F2F2E2E2E2F2F2F2F2F2F2F2F2F302F3030
+      2E2F313030313030323131323232333333333232323232333334353535353534
+      353536373737373737383839393939393A3A3C3C3C3B3C3B3D3D3D3E3D3D3E3E
+      3E4040404140414141424241424343434343444443444645464646474847474D
+      4D4D535353535353555354575556575756575756585857585858545454535353
+      5555555555555656565757575857575757575958595A59595A59595A595A5C5B
+      5A5C5B5C5C5B5B5B5B5B5C5C5C5C5D5D5D5C5D5D5D5D5D5E5D5D5D5D5D5C5D5D
+      5D5D5D5C5C5C5C5D5C5C5C5C5C5C5C5C5C5B5B5C5C5B5C5B5B5C5B5B5B5B5B5B
+      5B5B5B5A5A595859585858585858585757575656565555555555555454545251
+      525151515150514F4F4F4F4E4F4D4D4D4B4B4B4B4B4B49494948484847474746
+      46464545454343434242414040403E3E3E3D3D3D3C3C3C3C3B3B3C3C3C484948
+      4D4E4D4E4E4E5050505152524142422E2E2E2E2E2E2D2D2D2B2B2B2A2B2B2928
+      282727272627262324242323242323222122222121211F1F1F1E1E1E1E1E1E1D
+      1D1D1C1C1B1A1A1A19191A181818171716171617161515151515151414141414
+      1413141414141313121112111111111010101010101010100F0F0F0E0F0E0E0E
+      0F0D0D0E0D0E0D0D0D0D0B0C0B0C0C0C0B0C0B0C0C0B0B0B0B0B0B0B0A0A0909
+      09090A0A0A0A090A090909090909090909090909090909090808080808080808
+      0908080808080808080808080807080807080707070707070707070707070707
+      0707070706060706060706060606060606060605060605060606050605060505
+      0505050505050404040505040504040404040504040505050405040404040404
+      0404040304030303030403030303030303030303030303030302030302030202
+      0202020202020202020201020202010202020101010202020201010101010102
+      0102010101010101010101010001010101010001000100000001000001000000
+      0001000000000100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303434343939393A3A
+      3A3B3B3B3D3D3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F34343438
+      3737383737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737363637373737373737363737363736363636353635
+      3636353536353536353536353535353534343434343433343434343434343433
+      3333343333333433333333333333333333333333333333333233323232323232
+      3333323332313232313232313132313231313131313131313130313130303031
+      3030303130303030303030303030302F30302F2F30302F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2E2F2E2F2E2E2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2D2D2E2D2D2D2E2D2E2D2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2B2C2C2B2C2B
+      2C2C2B2B2C2B2B2C2B2B2B2A2B2C2C2B2B2C2B2B2C2B2B2B2B2B2B2B2B2B2B2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2C2D2D2D2D2C2D2C2D2D2D2D2E2D2D
+      2E2E2E2F2F2F2E2F2E2F2E2F2F302F2F302F3030303030303131313131323232
+      3232313233323234333333323334343334343436353536363637373738383838
+      37373A3A393A3A3A3B3B3B3C3C3C3D3D3D3E3D3E3E3E3E414040414141424242
+      4242424443434544444645464746474747484849494949494B4A4B4B4C4C4F4F
+      4F5656565756575858575B595A5B5B5B5C5C5B5C5D5C5C5C5B58585959595859
+      59595A5A5A5B5B5B5B5B5B5C5C5C5C5C5C5D5D5D5E5D5D5F5E5E5F5E5E5F5E5F
+      605F5F6060606060606060606161616060606262616162616161616161616262
+      626261616161626161616160616160616060606060615F5F5F5F5F5F5E5E5E5E
+      5D5D5E5D5E5C5C5D5C5C5C5B5B5B5B5B5B5A5A59585859575757575656565556
+      5554545353535251525050505050504E4E4E4D4E4E4B4B4C4A4B4A4949494848
+      484747474544444443444141424141413F3F3F3E3E3E3C3C3C4646464E4E4E4F
+      4F4F5252525353535050503132313130302E2E2E2E2E2E2D2D2D2A2B2A2A2A29
+      2928282727272525252424242323232222222221212020201F1F1F1E1D1E1D1C
+      1D1C1B1B1A1A1A1A1B1A19191918171817161717171615161514141414141414
+      1414141414131213111111111111101010101010100F1010100F0F0F0F0F0E0F
+      0D0D0D0D0D0D0D0D0D0B0C0C0B0B0C0C0B0C0B0B0C0B0B0B0B0B0B0A0A0A0A0A
+      0A0A0A09090A0A09090909090A09090909090908080809090808090808090908
+      0808080808080808070807080708070808070707070707070707070707060706
+      0706070706060606060606060606060506060605060605050505050505050505
+      0505050505050504050505050504040404040404040404040504050404040404
+      0404040303030403030303030303030303030303030203030302030202020202
+      0202020202020202020202020202020201020202010101020201020102010102
+      0101010101010101010001010001000101010001010101000000000100010000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303131313737373939393A3A3A
+      3C3C3C3D3D3D3C3C3C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303737373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373736363736373636363636363536373536
+      3635353635363635353434343434343434343434343434343434343433333333
+      3334343333333333333333333333333333333333333233333232333332333233
+      3332323231323231333232323131323131323031323130313130313030303031
+      3030303030303030303030303030302F2F2F30302F2F2F2F2F2F2F2F2F2F2F2F
+      2F2E2F2E2F2F2F2F2F2F2F2F2F2E2E2F2E2E2F2E2E2F2E2E2E2D2D2E2E2E2D2E
+      2E2E2D2D2E2D2D2D2D2D2D2D2D2D2D2C2D2D2D2D2D2C2C2D2C2C2C2C2C2C2B2B
+      2C2B2B2C2B2B2D2C2C2C2B2C2C2C2B2B2B2C2B2B2B2B2C2B2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2E2D2E2F2E2E2E2E2E2F2F302F
+      2F2F2F2F2F2F2F302F2F30303030303030313131323132333232323233343434
+      3433343433333534343636363636363737373838383838383939393A3A3A3C3B
+      3C3C3C3D3D3D3D3E3F3E3F3F3F41414041414142424242434244444445454547
+      47474747474848484A49494B4A4B4B4B4C4D4D4D4D4D4E4E4F4E504F4F535353
+      5B5B5B5C5B5C5D5C5D5D5D5C5F5F5F60605F6161606060605C5C5C5D5C5C5E5D
+      5D5E5E5E5F6060605F5F60606062616162616162626263636364636363636364
+      6464656565656565656565656565656565656565666666666666666666656565
+      6666656566656565666565656464646464636364646463636262626262626262
+      626061616060615F5F5F5E5E5E5D5D5D5D5D5D5B5B5B5A5A5A5A595A58575857
+      57575655565455555353535252525050505050504E4E4D4D4E4D4B4B4B4A4A4A
+      4949494748474544454343434242424141414040404140414F4F4F5151515353
+      535454545556564141413333333130303030302E2E2E2E2E2E2B2B2B2A2B2A29
+      29292727272626262525242423232323232121212121211F1F1F1E1E1E1D1E1D
+      1D1D1D1A1A1A1A1A1A1919191818181717171617161516151514141414141414
+      14141414131313131312111111101110101010101010100F100E0F0F0F0F0F0D
+      0E0D0D0D0D0D0D0D0C0B0C0B0B0C0B0B0B0B0C0B0B0B0B0B0B0B0A0A090A0909
+      0A09090A0A090909090A09090909090909090908090809090809080808080808
+      0808090808080807080808070808070707070707080707070707070707070607
+      0606070606070607060606060606060606060606050606050505050505050405
+      0405050505050405050405040405040405050405040404040404040404040404
+      0304040403040303030303030303030303030303020303020202020202020202
+      0202020202020202020202020201020102020201020102020102010201010101
+      0102010101010101010001010101010100010000000100000101010001000100
+      0000000000000000000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303333333737373939393B3B3B3D
+      3D3D3E3E3E3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F333333383737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373637373637373637363637363636353636363536
+      3536343534343534343434343434343433343434343434343334343434333433
+      3433333333333333333333333332333332333233333332333233323332323232
+      3232323133323232323132323132313132313131313132303031313130313030
+      3030303030303030303030302F302F302F302F302F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2E2F2F2F2F2E2F2F2E2E2E2E2E2F2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E
+      2E2E2D2E2D2E2D2D2D2D2D2D2D2D2C2D2D2D2D2C2C2C2D2C2B2C2C2B2C2B2B2D
+      2C2C2D2C2C2C2C2C2C2C2B2C2B2C2B2B2B2C2D2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2D2D2D2D2D2D2D2D2D2D2D2D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3130313030
+      3030303031313031313131313233333433333334343434343434353535353536
+      35363736363837373838373838383939393A3B3A3B3B3B3D3D3D3D3D3D3D3D3D
+      3F3E3E4040404141424242424342434444454546454847484848484949494A4A
+      4A4B4B4C4D4C4D4E4D4E4E4E4E4F4F50504F505252525252525455555858585F
+      5F5F606060616061626162636362656564656564656565606060616161626262
+      6463636463636464646664646665666766666766666767666868686969686969
+      68696969696969696A6A6B6B6B6B6A6B6A6A6A6A6A6A6A6A6A6A6A6A6A696A6A
+      69696A6969696969696969696969686868676867676768666666666666646564
+      646464636363636363626262606061605F605E5E5E5E5D5E5D5C5D5C5B5C5959
+      595959595757575656565454545253535252525050504F4F4F4D4D4D4C4C4C4A
+      4A4A4948494747464545454343434343434141414C4B4B525352545454565656
+      5858584F4E4F3635363433343232323031302F2F2F2E2E2E2C2C2C2B2C2B2A2A
+      2A2828282727272625262324242323232222232122212020201E1F1F1D1E1D1C
+      1C1D1C1C1C1A1A1A1A1A1A181818171717171716151516151515141414131414
+      1414141212131312121111111011100F1010100F10100F100E0F0F0F0E0E0D0D
+      0D0D0D0D0D0D0D0C0C0C0B0C0C0C0B0B0B0B0B0C0B0B0B0B0B0A0A0A0A0A0A0A
+      0A0A09090909090A0A0A09090909080909080809090809090908080808080808
+      0908090808080808080708070707080707070707070707070707070706070606
+      0606070606060606060606060606060605060505050506050505050505040505
+      0405050505040505050405050505050405040405040404040404040403040404
+      0404030403030303030303030303030303030303020203030203020203020202
+      0202020202020202020201020201010102020101020102020101010101010201
+      0101010101010101010100000101000100000000010101010100010000000000
+      0001000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303535353838383A3A3A3C3C3C3E3E
+      3E3F3F3F3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F36363638373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373637373737363737363637363636353735363636353434343434
+      3435343434343434343434343434343434343433343334333433343334333334
+      3334333333333433333333333332333333333233323233333333333332323332
+      3232313232323232313232313131313230313231303230313131303030303130
+      30303030303030303030302F302F2F302F2F302F302F2F302F2F2F2F2F2F2F2F
+      2F2E2F2F2E2E2F2E2E2F2E2E2E2E2E2E2E2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E
+      2D2E2E2E2D2D2D2D2D2D2D2D2D2D2D2C2D2D2D2C2C2C2C2B2E2D2C2D2C2C2D2C
+      2C2D2C2C2D2C2B2C2C2B2D2C2D2D2C2D2C2D2C2C2C2D2C2C2C2D2D2D2D2D2D2D
+      2D2D2D2D2D2E2E2E2F2F2F2F2F2F2F30302F2F2F313130313031313131313131
+      3132323233333433333333333435343535353535353635363837383737373938
+      393938383A39393B3B3A3B3B3A3C3D3C3D3D3D3E3E3E3F3F3F41414141414143
+      43434344434546454646464848484848484949494A4B4A4C4C4C4D4D4D4E4E4E
+      504F505151515251525453545454545555555655565757585858585E5E5E6363
+      636565656564646766666968686A6A696A6A6967686866656567676767676768
+      68686868686969696A6A6A6B6B6A6C6B6B6C6B6B6C6B6C6D6C6C6E6D6E6D6D6E
+      6D6D6D6E6E6E6E6E6D6F6F6F6F6F6E6F6F6E6E6E6E6F6F6F6F6F6F6E6E6E6E6E
+      6E6E6E6E6E6E6E6D6D6D6C6D6D6C6C6C6C6B6B6B6B6B6A6A6A696A6A69686968
+      68686867686666666565656464646463636262636160615F5F5F5E5E5E5D5D5D
+      5C5B5C5959595959595757575656565454545352525151515050504E4E4E4D4D
+      4D4A4A4A49494A4747474647464545444847495353545556565757575959595B
+      5B5B3D3D3D363736363536333333313131302F302F2F2F2E2E2E2D2D2C2B2B2A
+      2929292727272627262525252323242323232121212121211E1F1F1E1E1D1E1D
+      1D1B1B1B1A1B1A1A1A1A19191918181816161616161615151514141414141414
+      141313121312131211111111101010101010101010100F0F0E0E0E0F0F0D0D0D
+      0D0D0D0D0D0D0C0C0C0C0C0C0B0B0B0C0B0B0B0B0B0B0B0B0A0A0A090A090A09
+      0A0A0A090A090A09090A09090909090809090809080909090808080808080808
+      0808080808080708070707070708070707070707070707070707070707070607
+      0707070606060606060606060606060605060506050505050505040505050505
+      0505050505050505050504050405040504040404040404040404040403040404
+      0403030303030303030303030303030302020203030203020203020202020202
+      0202020102020202020201010201010102010202010102010101010101020101
+      0101010101010101000100010101010100010101000000010100010000000001
+      0000010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303535353838383A3A3A3C3C3C3E3E3E3D3D3D
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303737373837373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373736373636373736373635373636353535353434343434343534
+      3434343434343434343434343434343434343434343333343434343433333433
+      3333343333333333333333333332333333333333323332333332323232323232
+      3231323232323231323231313131323030323131313030313030303030313030
+      303030303030302F303030302F30302F2F2F2F2F302F302F2F2F2F2F2F2F2F2F
+      2F2F2F2F2E2E2E2F2E2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2D2E2E
+      2E2D2D2E2D2E2D2D2D2D2D2D2D2D2D2D2C2D2E2D2D2D2C2D2D2C2D2D2C2D2C2C
+      2D2C2C2E2D2D2D2C2D2D2C2D2C2D2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2E2E
+      2E2F2F2F30303030303030303031313131303031313231313132323232333334
+      33343433343434343535353535353737373837383939393939393A39393B3A3B
+      3C3C3B3D3C3C3D3D3D3E3D3E3F3F3F4040404243424343434344444545444646
+      464847474848484A4A4A4B4B4B4D4D4D4D4D4D4F504F50515052525253525254
+      54545555565655565858585858595B5A5B5B5B5B5C5D5C5D5D5D656464686868
+      6A6A6A6A6A696C6C6C6D6D6C6F6F6E6F6F6E6C6C6C6A6A6A6C6C6C6D6D6D6D6D
+      6D6E6E6E6F6E6F6F6F6F70707071707071707071717172727272727273727272
+      7272727272737373737373737373747474747474747474737473727273727273
+      7272737171717171717171717070707070706F6F6F6E6E6E6E6D6E6D6C6D6C6C
+      6C6B6B6B6A6A6A696969686767676667656565646364636263616161605F605E
+      5E5E5D5C5C5B5B5B5959595959585657565555565353535252525151514E4E4F
+      4C4C4C4B4B4B4949494848484848485353525958595959595B5C5B5D5D5D4E4E
+      4E393939383838373637343434343333313131302F302E2E2E2E2E2D2C2B2B2A
+      2A2A2828282626272625262324242323232222222120212020201D1D1D1D1D1D
+      1C1C1C1A1A1A1A1A1A1919191717171717171616161515151414141414141414
+      13141314131213111211101110101010100F101010100F0E0E0F0F0E0E0E0D0D
+      0D0D0D0C0D0C0B0C0C0C0C0C0B0C0C0B0C0B0B0B0B0B0B0A0A0A0A0A0A09090A
+      090A0A0909090909090909090909090908090908080808090809080808080808
+      0808080807080708070707070807080807070707070707070707070706060606
+      0706070606060606060506050505060506050505050505050505050504050505
+      0505050505050505050505050405040504040404050404030404040404030303
+      0303030303030203030303030203020302030302020202020302020202020302
+      0202020201020202010202010201020102020101010101010101010102010101
+      0101010101010101010100010100010101010100010001010001000100010000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303232323535353737373A3A3A3C3C3C3E3E3E3333332F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F343434383737383737383737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373637373637363636363635333435343335343434343434343434
+      3434343434343435343433343434343434343433343333333434343333343333
+      3333333433343333333332333333333333333233333333323332323233323232
+      3232323232323132323131313131313132313032303031303030303130313130
+      30303030302F2F3030302F302F2F2F302F2F302F302F302F2F2F2F2F2F2F2F2F
+      2F2F2F2F2E2F2E2F2F2F2E2E2E2E2F2E2E2E2E2E2E2D2E2E2D2E2D2E2E2E2E2E
+      2E2E2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2D2D2D2D2E2D2C2D2C2C2E2D2D2E
+      2D2D2E2D2D2D2D2D2D2D2C2E2D2D2D2D2D2D2D2D2D2D2D2E2E2E2F2F2F303030
+      3030303030303131313131313131323232323333323333333434343535353535
+      353635353636363737373838383939393A39393B3B3A3B3B3C3C3B3C3E3D3E3E
+      3E3D403F3F403F3F4242424242424343434444444646464848484948494A4949
+      4B4C4B4D4D4D4E4E4E4F4E4F5151505352525454545455545656565858585959
+      595A5A5A5B5B5B5D5D5D5D5D5E5F5E5F6161616262626362626969696D6D6D6F
+      6E6E6F6E6F7271707272717373727474737170716F6F6F717171727171737272
+      7373727474747574747575757676767676767777767777777777777878787878
+      7878787878787779787879787879787878787878787878787876777677767776
+      76767676767675767576757474757373737373737272727171717070706F6F6F
+      6E6E6E6D6D6E6C6C6C6A6A6B6A696A6868686767676565656464646262626161
+      615F605F5F5E5F5C5C5C5B5B5B5959595857585556555454555252524F50504F
+      4F4E4D4C4C4C4B4B4A4A4A5050505B5B5B5E5D5E5F5F5F6161606060603F3F3F
+      3A3A3A3939393738373536353333333131322F30302F2F2F2E2D2D2C2C2C2B2A
+      2A29292926272726252525242523232322222221202120201F1F1F1F1E1D1E1C
+      1D1D1C1B1B1A1A1A191919181718161716161616151515141414131414141414
+      1414141213121211121010111010100F101010100F0E0F0E0F0E0E0E0D0E0D0D
+      0D0D0D0D0C0C0C0C0B0B0B0C0B0B0B0C0B0B0B0B0B0B0A0A0A0A090A09090909
+      0A09090909090909090909090909090909080809090808080908080908080808
+      0808080807080808080807070807070707080707070707070706060606060606
+      0606060606060605050506050605050505050505050505050405050505050505
+      0505050505050505040405040404040404040404030404030304030303030304
+      0303030303030303030302030303020302020202020202030202020202020202
+      0202020102020202020202020101020201010102010201020101010101010101
+      0101010101000001010101010100010001010000010001010001000000000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303333333535353838383A3A3A3C3C3C3A3A3A2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F30303138373738373738373738373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737363737363636363433343434343533333434343434343435343435343434
+      3434343534343434343434333434343434333434343433343334333433333333
+      3333333333333333333333333233333333333333323233323232333232323232
+      3232323232313232313231313131313131303231303131303030303031303030
+      30303030303030302F2F2F2F2F2F2F2F2F2F302F30302F2F2F2F2F2F2F2E2E2F
+      2E2F2F2E2F2E2E2E2F2F2E2E2E2F2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2D2D2E
+      2E2D2D2E2E2E2E2E2E2E2E2E2D2E2E2E2E2D2D2D2C2E2E2E2E2D2D2E2D2D2E2D
+      2C2D2D2D2E2E2E2E2D2E2D2D2D2E2E2E2E2E2E2F2F2F30303030303030303031
+      3131313131323232323132333332343433343534363536353535353636363736
+      39383838383939393A3B3A3A3B3B3B3D3D3D3E3E3E3F3E3E3F3F3F4140414241
+      414343434343434545444545454747474848484949494C4C4C4C4D4D4E4E4E4F
+      4F4F5050505253535353535454555756565958585959595B5B5B5C5C5B5E5E5F
+      5F5F5F6060606261626262636564656565666767676868686F6F6F7373737372
+      7376757476767578787778787778787874747576757577767677767678777779
+      79797978797A79797B7B7A7B7B7B7B7B7B7C7C7C7D7C7D7C7D7C7D7D7D7D7D7D
+      7D7D7D7D7D7D7D7D7D7D7D7C7D7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7B7B
+      7B7B7B7B7A7A7A79797979797978787877777776767675767674747473737372
+      7272717171706F706E6E6E6D6D6D6C6C6C696969686868676767666566636364
+      6262626161615F5F5F5E5E5E5B5B5B5A5A5A5859585555555454545251525051
+      504F4F4F4F4E4E5050505E5E5D6060606363636566656667664D4D4D3D3D3D3C
+      3C3C3939393839383636363434343233323131302F30302E2E2E2D2E2D2B2B2B
+      2A2A2A2828282726272525252323232323232121212021211F1F1E1D1E1E1C1D
+      1D1B1B1B1A1A1A19181817181816161617171715161514141413141414141314
+      131312131211111111111110101010100F100F100E0E0E0F0E0E0E0D0D0D0D0D
+      0D0D0D0C0C0C0C0C0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A090A0A0A0A0A090A
+      0A090909090A0909090909090909090909090908080808090808080808080808
+      0807080707080708070808070707070707070707070707070607060606060606
+      0606060606060606060506060505060505050505050505050505050505050505
+      0504050404050505040405040404040404040404040404040403030303030403
+      0303030303030303030303020302030302030302030202020202020202020201
+      0202020101020201020101020102020101020101010201010101010101010100
+      0101010001010101010101000101000101000000000100000100000000010000
+      0001000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303031313134
+      34343636363838383B3B3B3D3D3D3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3535353837373837373837373837373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3636353534343434343434343434353434343433343434353435343435353534
+      3435343434343434343434343433343434343434343434343433343433333333
+      3333333333333333333332333333323333333232323333333232323232323132
+      3232323231323231323131323031323131313031313130303031303031303030
+      303030302F30302F2F2F2F2F2F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2E2F2F2F2F2E2F2F2E2E2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2D2E2E2D2E2E2F
+      2E2E2E2E2E2E2E2E2E2D2E2E2D2E2E2F2E2F2E2E2E2E2D2E2E2D2E2D2D2F2E2E
+      2F2D2E2E2D2E2E2E2E2F2F2E2F2F303030303030303030303131313131313232
+      323232323333333535353534353635363636363636363737373939393A3A3A39
+      3A3A3A3A3A3C3C3C3E3D3D3E3E3E3F3F3F404040424142434243444343454444
+      4645454847484848484A4A494B4B4B4C4C4C4E4E4E4F4E4F5051505252525353
+      535555555757575959595A5A595C5B5B5D5D5D5F5F5F60606060606164636465
+      646566656667676768686969696A6A6A6B6C6D6D6F6E6E757575787878787778
+      7B7A7A7B7B7A7D7D7C7D7D7C7D7D7D7A79797B7A7A7C7C7B7D7C7C7E7D7D7F7E
+      7E7E7D7E80807F81808180808180808080818182828282818182828283828282
+      8282828282828282828282828282828282828282828282818181818180807F80
+      7E7E7E7E7E7E7E7E7E7E7E7D7B7B7C7B7B7B7A7A7A7979787879797676767575
+      757474747372737171716F6F6F6E6E6E6C6C6C6B6B6B69696968686866666665
+      6464636463626262605F605E5E5D5B5B5B5A5B5B575757565656555555535353
+      5354535959596363636666666868686A6A6A6A6A6B6161614040403F3F3F3B3C
+      3B3B3A3B3939393737373636363333333132312F30302F2F2F2D2D2E2B2B2B2A
+      2A2A2727282627272525252323232323232222212020201F1E1F1E1D1E1E1D1D
+      1B1B1C1A1A1A1A1A191717181716171616161516151414141314141314141413
+      141212121212121010101010101010101010100F0F0E0E0E0E0D0D0D0D0D0D0D
+      0D0D0C0C0C0B0C0B0B0B0C0B0B0B0B0B0B0A0A0A09090A0A0909090A0A090A0A
+      090A090909090809090909090909080908090808080808080808090808080808
+      0808070807080808070707070707070707070706060606070706060706060606
+      0506060606050605060605060505050505050505050505050505050505050405
+      0504050404050405040404050404040304040404030304040403030403030303
+      0303030303030203020203030302030202020202020202020202020202020201
+      0101020202020102020102020101010201020201010102010201010101010101
+      0101010100000101000001000100010001000000000000000100000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303333333434343737
+      373939393C3C3C3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F31313138383738
+      3737383737383737383737383737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373535353434
+      3434343334343434343335343434343334343435343435343434343534343434
+      3434343434343434343434343433343333333434333433333433333433333433
+      3333333333333233323333333233333333333332333333323333323232323232
+      3132323132313131313131313032313132313131303130303030303030303030
+      30303030302F302F302F303030302F302F2F2F2F2F2F2F2F2F2E2F2F2F2E2E2F
+      2E2F2F2E2E2F2E2E2E2E2E2E2E2E2E2E2D2D2D2E2E2D2E2D2E2E2E2E2E2E2E2D
+      2D2D2E2D2D2D2D2D2D2C2E2C2D2D2D2C2D2C2C2C2C2D2D2D2D2D2D2D2D2D2C2D
+      2D2C2E2E2E2E2E2E2F2F30302F30303030313131313131323232323232343434
+      3535353535353636353637363636363839383A39393A3A3A3B3B3B3A3B3B3D3D
+      3D3E3D3E3E3E3E3F3F3F4141414242424444444444444645464746474848484A
+      49494B4A4B4D4D4C4D4E4D4F4E4F515251535353535353565556585757585858
+      5A5A5A5C5C5C5E5E5E5F5F5F6061606362626464646565656666676868686A6A
+      6A6B6A6B6D6D6D6D6D6D6F6F6F7171717372737675767C7C7B7C7D7C7E7E7E80
+      807F8180818282818383828181817F7F7F818080828181828181848383848383
+      8484848585858586858585858686868787878787868887878788888787878787
+      8787878787878787878787878787878787878786868685858685858584848484
+      84848382828281828180808080817F7F7F7E7E7E7D7C7D7B7B7B7B7B7B797879
+      7877787676767575757373737272717070706F6F6F6D6C6D6B6B6B6969696767
+      67666666636363616261605F605E5D5D5C5C5C5B5B5B5959595959595D5D5D66
+      66666A6A6A6C6C6C6D6D6D7070706F6F6F5E5D5E4444444242423F3F3F3E3E3E
+      3C3C3B3A3A3A38383837363633343433333331313030302F2D2D2D2C2C2C2A2A
+      2A292929272727262525232323232323212221212121201F1F1E1E1D1D1D1D1C
+      1B1B1A1A1A1A1A1A191819161617161616151516141414141413141314131413
+      131212111111101010101010100F0F0F100F0E0F0F0E0E0E0D0D0E0D0D0D0C0C
+      0C0C0B0C0C0C0C0B0B0B0B0B0B0B0C0B0A0A0A0A0A0A0A0A09090A0A0A090A09
+      0A09090909090909080909080908090808080808080908080808080808080808
+      0808070808070807070707080707070607070707060707070706060606060606
+      0506050606060605050505050505050505050505050505050505050504050504
+      0504040504040404040404040304040403040404040303040303030304030303
+      0302020303030303030203020302020203020202030203020203020202020202
+      0201020102020202020101010102010101010101010101010101010101010101
+      0101010001010100010100000001010100010000010100010001000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303131313434343535353838383A3A3A
+      3D3D3D3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3635353838373837373837
+      3738373738373738373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737363636343434343434343434
+      3433333433343434343534343434353535353534353434343434343434353435
+      3434343434343434343434343434333333343434333333333334333433333333
+      3333333333333333323333323233323333333332333232323232333232323232
+      32323132323132313131313132303032303131303030303030313030302F3030
+      30302F302F2F302F3030302F2F302F302F2F2F302F2F2E2F2F2F2F2F2F2E2F2F
+      2F2E2F2E2E2E2E2E2F2F2E2E2D2D2D2D2C2E2D2E2D2D2D2D2E2D2D2D2E2D2E2E
+      2D2D2D2E2E2E2E2D2D2E2C2D2D2C2C2E2E2D2D2D2E2D2D2D2D2D2D2E2D2E2F2E
+      2F2F2F30302F2F302F2F303030302F3031303131313133333335353535353536
+      36363737373737373939383A3A3A3A3A3A3B3B3C3C3C3C3E3E3E3F3E3E3F3F40
+      4041414242424343434444444546464646474848484949494B4A4B4D4C4C4E4D
+      4D4F4F4E5151515252525353545555555757575858585B5B5B5B5B5B5D5D5D5F
+      5F5F6161616263636464646665666767676969696B6B6B6C6C6C6D6D6D707070
+      7171717272727373747575757677777978797B7B7B8281818383828584848686
+      868887878888878A8A898585858685858686868787878888888988888989898A
+      8A8A8B8A8A8A8A8A8B8B8B8C8C8C8C8C8C8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D
+      8D8D8C8D8D8D8C8C8D8C8C8D8C8C8C8B8B8B8B8B8B8A8A8A8989898989898888
+      888787878686868585858585848383848282828080808080807F7E7F7D7D7D7B
+      7B7B7A797A787878767676747474737373717171706F706E6D6E6B6C6B6A6A6A
+      6868686565656464646363626060615E5F5E5E5E5E6262626B6B6B6D6D6D7070
+      707272727474747575756363634848484646464444444343434141413F3F3F3C
+      3C3C3A3B3A3939393737373435353332323132322F2F2F2E2E2E2D2D2D2B2B2B
+      2A2A29272728272726242424232323212222212020201F1F1E1D1E1D1D1D1D1C
+      1C1A1A1A1A191918191817171616171615151514141414141314141413131412
+      1213111111101010101010100F0F1010100E0F0E0E0E0E0E0D0D0D0D0D0C0C0C
+      0C0B0C0C0B0B0B0B0C0B0B0B0C0B0B0A090A0A0A0A09090A0909090909090A09
+      0A09090908090909090809090809090808080808080908080808080808080808
+      0708070707070707070707070707060706070706060606060606060606060606
+      0606060605060605050505050505050505050505050505050505050504050505
+      0505040404050404040404040403040304040404030404030403040403030302
+      0303030303020203030203020302020202020202020202020202020202010202
+      0202010102010101020202010201020101020101010101010101010101010100
+      0101010001010100010100010001010001010100000000000001000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303232323434343636363939393B3B3B3A3A3A2E
+      2E2E2F2F2F2F2F2F2F2F2F2F2F2F323232383837383837383737383737383737
+      3837373837373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373634343434343434343434343434343434
+      3434343334343535353435353535343534343435343534343434353534343434
+      3434343434333434343434333434343334333434333333343333343333333433
+      3333333333333333333233333333333333323333323233333232323132323132
+      3231323231323130323130313031323030313030303030303030303030303030
+      303030302F302F2F2F2F2F2F2F2F2F302F2F2F2F2F2E2F2F2F2F2F2F2F2E2E2E
+      2D2E2D2E2D2D2D2D2E2D2E2E2E2E2D2E2D2D2E2D2D2E2E2E2D2D2D2E2F2E2E2E
+      2E2E2E2E2E2E2D2D2F2E2D2F2D2D2E2E2E2D2D2D2E2E2E2F2F2F303030302F30
+      3030303030303031303231313231323332333333333333333434343636363737
+      373939393A3A3A3B3A3A3B3C3B3C3C3C3E3E3E3F3F3F403F3F40414143434343
+      44434444444646464848484949484A4A4A4C4D4C4D4D4D4F4E4F515050525252
+      5353535555555757565858585A5A5A5C5C5C5D5D5D605F5F6262616363636464
+      646666666768676969696B6C6B6E6D6E6F6F6F70707072727274737475757677
+      777778787879797A7B7B7B7C7D7D7E7F7E8484848787878989898A8A898B8B8A
+      8D8C8B8E8E8E8D8D8D8B8B8B8B8B8B8C8C8C8D8D8D8E8E8E8E8E8E8F8F8F9090
+      9090909091919191919191919192929292929292929292929292929291919291
+      92929292929191919191919090909090909090908F8F8F8E8F8F8D8D8D8C8C8C
+      8C8C8C8B8A8B898989888888888888868686858485838383828182807F807E7E
+      7E7D7D7D7C7C7C79797A7878787676767474747272727171716D6D6D6C6C6C6B
+      6B6B686868676667656565656565676768707070717171747474767676797979
+      7A7A7A6969694E4E4E4D4D4C4A4B4B4747484545464444444242423F3F403D3E
+      3D3C3C3B3A3A3A3838383635363434333231312F2F302F2F2F2D2D2D2B2B2B29
+      292A2828282626262425242323242323222121212020201E1E1F1D1D1D1C1C1C
+      1A191A1A1A1A1818191717181616161515151414141414141313141314141212
+      12111112101011101010101010100F0F0F0E0E0E0F0E0D0D0D0D0D0D0C0B0C0C
+      0B0B0B0B0C0B0B0B0B0C0B0B0B0B0A0A0A090A090A0A0A0909090A090A09090A
+      0909090909090909090909080909080908090808080808080808080807070807
+      0708070707070707070706070707070606060706060706060606060606060606
+      0506050506050505050505050505050505050505050505050505050404050404
+      0404040404040404040404040403040404040303040303030303030303030303
+      0303030203020303030202030302020303030302020202020202020202020202
+      0202020102020102010101020202010101020101020102010101000101010101
+      0100000101000001010101010000010000000000010101000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303131313434343535353838383A3A3A3C3C3C3232322F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F37373638383738383738383738373738373738373738
+      3737383737373737373737373737373737373737373737373737373737373737
+      3737373737373737373535353434343434343434343434343434343434343535
+      3435353535343435343535353435353534343435343435343434343434343434
+      3434343434343434343334343434343333333334333434333333333333333333
+      3333333333333333333233333233323233323233323232323332313232323232
+      31323231323131323131313030323030313030303030303030303030302F3030
+      302F2F3030302F303030302F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2E2E2D2E
+      2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2D2E2E2E2F2F2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2D2E2D2E2F2F2E2F2F2F30303030303030302F30303131
+      3030313131323232333333343335343334343434353535363636373737383838
+      3A3A3A3B3A3A3C3C3D3F3F3F3F3F3F4040404242434243424444444645454747
+      484848484949494C4C4C4D4D4D4E4D4E51515052515253525355535457575758
+      58585A5A595B5B5B5D5D5D5F5F5F616161626362656464676666686868696969
+      6B6C6C6D6D6E6F6F6F7170707473737575757676767877787B7A7B7C7C7C7D7D
+      7D7F7F7F8080818181818484848585858B8B8B8E8E8E8F8F8F90909091909093
+      9292949493929292919190929292939393939393949494949494959595959595
+      9696969797979797979797979797979797979797979797979797979797979797
+      9797979797979797979796969695959593949493949493939392929291919190
+      91918F8F8F8E8E8E8D8D8D8B8B8B8A8A8A888888878788858585848484828282
+      8080807F7F7F7C7C7D7C7C7B7A797A7777777575757373737071706E6E6F6D6D
+      6D6B6B6B6B6B6B6D6D6D7575757777777878787B7B7B7D7D7D7E7E7E6E6E6E55
+      555552525250504F4D4D4D4B4C4C494A494747474444444343434140413F3F3F
+      3C3C3C3A3A3A3939393636363535353333323030302F2F2F2D2D2D2C2C2C292A
+      2A2727272626262424252323232323222121211F1F1F1E1F1E1D1E1D1C1C1C1A
+      1A1A19191A181918171818161616151515141414141314141414131314131212
+      111112111010100F1010100F0F0E0F0E0F0E0D0E0D0D0D0D0D0D0D0C0C0C0C0B
+      0B0B0B0C0B0C0B0B0B0C0B0A0A0A0A0A0A090A090A090A09090A0A0A090A0A09
+      0909090909080909090909080808090908080809080808080808080808070708
+      0707070807070707070707060606070606060606060606060606060606060605
+      0605050505050505050505050505050505050505050505050504050505040404
+      0404040404040404040404040304040404030303030303030303030303020303
+      0302030202020203030303030202020202020202020202020202020102010202
+      0201010202020101010101010201010101010102010101010201010001010101
+      0101000000000100000000010000010000010000010000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303232323434343737373939393B3B3B3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F
+      2F2F2F3231323838383838373838373838373837373837373837373837373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737363636343434343434343434343434343434343434343434353535363535
+      3635353535343535353535353434353434343534343435353434343434343434
+      3434343434343434333334343334333434343333343333333333343333333333
+      3333333333333333323333323333333233333332323232323231323231323231
+      323231323131313131323131313131313030303130303030303030302F30302F
+      303030302F302F2F302F2F2F2E2F2E2E2F2E2E2F2E2E2E2E2E2D2E2E2E2D2E2E
+      2F2E2E2E2F2E2E2E2E2E2E2D2E2E2E2E2F2F2F2F2F2E2E2F2E2E2E2E2E2F2F2F
+      2F2F2F2F2E2E302E2F30302F3030303130313030303131313130313132313132
+      323333333435343435343534363636363636363737373838383939393A3A3A3C
+      3C3C3D3D3D3F3E3E4141414242434343434545454646464747484948484B4A4B
+      4C4C4C4E4E4E4F4F4F5151515253535554545755565757575A59595C5B5B5D5D
+      5D5F5E5E6060606363636464646666666868686A6A696C6D6C6E6E6E6F6F6F72
+      72717474747676767877787979797B7B7B7D7D7D7E7E7F808081828282838384
+      8585858686878888888A8A8A8D8D8C9393939494949595959696959897989999
+      989A9A999797979797979898989898989A9A9A9B9B9B9B9B9B9B9B9B9C9C9C9D
+      9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9E9D9D9E9D9D9D9E9D9D9D9D9D9D9C9C9C
+      9C9C9C9C9C9C9C9C9C9B9B9B9A9A9A9999999999999898989696969696969494
+      949393939292939090908F8F8F8E8D8E8D8C8D8B8A8B8A898A87878786868684
+      84848282828080807E7E7E7C7C7C7A7A79777778767676737474727272727272
+      7474757B7B7B7D7D7D7D7D7D8080808282828282827474745959595858585656
+      565353535150514E4E4E4D4D4D4A4B4A4747474545454444444241413F3F3F3C
+      3C3D3C3B3B3939393736373434353232323030302F2F2F2D2D2D2C2B2C292A29
+      282828262727252525232323232323212121201F201E1F1E1D1D1E1C1C1C1A1A
+      1A191A1918181916171616161615151514141414131414141412121213131211
+      11111010101010100F0F100E0E0E0F0F0F0D0E0D0D0D0D0D0D0D0C0C0C0B0C0C
+      0B0B0B0C0C0B0B0C0B0A0A0A0A0A0A090A0A0A0A0A0A0A090A09090909090909
+      0909090909090809080909080808090808080808080808080807080807080707
+      0807070707070707070606070706060606060606060606050506060605050506
+      0505050505050505050505050505050505050505040405050505040404040405
+      0404040404040404040404040304040303030303030303030303030303030302
+      0202020302030202020203030202020203020302020202020202020202010201
+      0102020202020202010201010201010101010101010101010101010101010101
+      0100000100000100010101000000010000010000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303131313434
+      343636363838383A3A3A3C3C3C3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F36
+      3535383838383838383837383837383737383737383737383737383737373737
+      3737373737373737373737373737373737373737373737373737373737373434
+      3434343434343434343434343434343434343435353536353536353536353535
+      3535353534353534353534353434343434343534353434343434343434343434
+      3434343434343433333334343434343333343333333334343333333333333333
+      3333333333333333333233333232333332333232323232323132323132323132
+      32313231303231313231303131303130303131303030303030303030302F302F
+      302F302F2F302F2F2F2F2E2E2F2E2E2F2E2E2F2E2E2E2D2E2F2F2E2F2E2F2E2E
+      2E2F2F2E2E2F2E2E2E2E2F2E2F2F2F2F2F2E2F2F2F2F30303030303030303031
+      3131323232323232333232323232333233323232323231323232343334353534
+      3435343635353736363736373938393838393939393A3A3A3C3C3C3D3D3D3E3E
+      3E3F3F3F4140404343434545454747474848484A4A4A4C4B4C4D4D4D4F4F4F51
+      50505252525352535656555757575A5A5A5B5B5B5C5C5C5F5E5E615F60626262
+      6463636565656868686A6A6A6C6C6C6E6E6E7070707271717474747676767778
+      787979797C7C7C7D7E7D8080808181818383838485848787878989898A8A8A8C
+      8B8C8D8D8D8E8E8F9090919494959999999A9A9A9B9A9B9D9D9D9E9C9DA09F9E
+      9E9E9E9D9D9D9E9D9E9E9E9E9F9F9FA0A0A0A1A1A1A1A1A1A2A2A2A2A2A2A2A2
+      A2A3A3A3A3A3A3A3A3A3A3A4A4A4A3A3A3A4A3A3A3A3A2A2A2A2A2A2A2A2A2A1
+      A1A1A1A1A1A1A1A1A0A0A09F9F9F9E9E9E9D9E9E9C9C9D9B9B9B9A9A9A999899
+      9898979696969595959393939292929090908F8F8F8D8D8D8B8B8B8989898787
+      878685858383838181817E7E7E7C7C7C7B7B7B7979797979787A7B7C81818183
+      83828484848585858687868787877A797A6060605F5F5F5B5C5C585858575757
+      5555555353534F4F504D4D4D4B4B4B4949494646464444444242424040403D3D
+      3E3B3B3C3A3A3A3838383636363233323131312F2F2F2E2E2E2B2C2C2A292A29
+      28292626272525252323232323232121212120211E1E1E1D1D1E1C1C1C1A1A1A
+      1A1A191819181616161616161615151414141314141413131312121213121111
+      1110101010100F10100F0F0E0E0E0E0E0D0D0D0D0D0D0C0C0C0C0B0C0C0C0C0C
+      0B0C0B0B0B0C0B0C0A0A0A0A0A0A0A090A0A0A0A0A09090A0A0A090A09090909
+      0909090909090809090809080808080908080808080808070807070707070707
+      0807070707070706070706060706060606060606060606060606050605060505
+      0505050505050505050505050505050505050505050405050404040404040404
+      0404040404040404040304040303030303030304030303030303030303020303
+      0203020303030202030202020202030202020202020202020202020201020201
+      0202020102020201010101010201010201010201010101010101010101010101
+      0101010101010001010000010101010100010000000001000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030333333363636373737
+      3939393B3B3B3C3C3C2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3131313838383838
+      3838383838383738383738383738373738373738373738373738373737373737
+      3737373737373737373737373737373737373737373737353535343434343434
+      3434343434343434343434343535343635353635353635353635353635353635
+      3535353435353434353534353434353535353534343434343534343434343434
+      3434333434333434343334343334333333333433333333333333333333333333
+      3333333332323332333332333232333233323332323232313232313232313232
+      313231313231313230303131303130303131303030302F30303030302F30302F
+      302F2F2F2F302F2F2F2E2E2F2E2E2F2E2E2F2E2E2F2F2E2E2E2E2E2F2F2F2F30
+      2F302F3131303131313130303130303231313131323131313232323232323333
+      3334333434343434343434343535353535353537373737373736353637373736
+      37373838383A3A3939383A3A3A3A3A3A3A3C3D3D3D3D3D3E3E3E3F3F3F424241
+      4343424344434646454848484A4A4A4C4C4C4D4D4D4F4F4F5251515253525555
+      545656565858585B5B5B5C5C5C5E5F5E6060606161616363636666666868686A
+      6A6A6B6B6B6E6E6E6F6F6F7272727474747777777878787A7A7A7C7C7C7E7E7E
+      8080808383838484848686868787878A8A8A8D8D8D8D8D8D8F8F8F9191919392
+      939494959596969897989C9C9CA0A0A0A1A1A1A2A2A2A3A2A2A5A4A4A6A5A6A4
+      A3A3A3A3A3A4A4A4A5A5A5A5A5A5A6A6A6A7A7A7A7A7A7A7A7A7A8A8A8A9A9A9
+      A9A9A9A9A9A9AAAAAAAAAAAAA9AAA9A9AAA9A8A9A8A8A8A8A8A8A8A8A8A8A6A7
+      A6A6A6A7A5A5A5A5A5A5A4A3A4A4A4A3A3A2A2A1A1A1A0A0A09F9F9F9E9E9E9C
+      9C9C9B9B9B9999999898989695969494949392939090908F8F8F8D8D8D8A8A8A
+      8788888787868484848282828080808080808181828787878888888A8A8A8C8C
+      8C8C8C8C8C8D8D7F7F7F6767676464646262625F605F5E5E5E5B5C5B58585856
+      56565353535051514F4F4F4C4C4C4A4A4A4747474444444243424040403E3F3E
+      3B3B3B3A3A3A3838383635363334343131312F2F2F2E2E2E2D2D2D2A292A2928
+      292626262525262323232323232120202120201E1E1E1D1D1D1C1C1C1A1A1A1A
+      1A19181818161616161616151515141414141414141414131212111211121111
+      10101010101010100F0E0E0E0E0F0E0D0D0D0D0D0D0C0C0C0B0C0C0C0C0B0C0B
+      0C0C0C0B0A0A0A0A0A0A090A0A0A0A0A0A0A0A090A0A090A0909090909090909
+      0908090809080809080809090809080808080808080808080808070808070707
+      0707070707060607070607070606060605060606060606060606060506060505
+      0505050505050505050505050505050505050505040505040404040404040404
+      0404040404030304040303030403030403030303030303030303030203020302
+      0303020202020202030302030202020202020202020202020201020202020101
+      0201020102010102020201020101010201010101010100010101010101000101
+      0101010101010000010001000101000000000001000000000100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303131313232323333333434343434343636363737373939393B3B3B3D
+      3D3D3635362E2E2E2F2F2F2F2F2F2F2F2F2F2F2F353535383838383838383838
+      3838383838373838373837373837373837373837373837373737373737373737
+      3737373737373737373737373737373737373634343434343434343434343434
+      3434343434343434363535363535363535363535363535363535363535353535
+      3535353535353434353435343434343434343534343434343434353434343434
+      3433343334343433343434343434333333333333333333333433333333333333
+      3233333233333333333332323332323332333232323231323231323231323231
+      32313032313131313131303031303030303030303030303030302F2F2F302F2F
+      302F2F2F302F2F2F2F2E2F2E2E30303030302F30313130313130313132313131
+      3131313131313131323232323232323232313131323232333433343434343434
+      3434343535353536363635363636363838383838383938393A3A3A3B3B3B3C3B
+      3C3B3A3B3B3A3B3C3A3C3D3C3D3D3D3D3E3E3E40404042434243434344444447
+      47474847474848494B4C4C4D4E4D505050525252535454555656575757595A59
+      5B5B5B5D5D5D6060606161616363636564656767676A69696B6B6B6D6D6D7070
+      707272727574757676767878787A7A7A7C7D7D7E7E7E80808083838385858587
+      87878988888B8B8B8D8D8D8F8F8F9191919292929494949696979898989A999A
+      9B9B9B9D9D9D9F9F9FA5A5A5A6A6A6A7A7A7A8A8A9AAA9A9ACABABABABACA9A9
+      A9ABAAAAAAAAAAABABABACACACADADADADAEADADADADAEAEAEAFAFAFAFAFAFAF
+      AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAEAEAEAEADACACADACAC
+      ACACACABABABAAAAAAA9A9A9A9A9A9A7A7A7A6A6A6A5A5A5A3A3A3A2A2A2A1A0
+      A19E9E9E9E9D9E9C9B9C9A999A9897989696969494949292928F8F8F8D8D8D8B
+      8B8B8A8A8A8787878787878888888E8E8E8F8F8F909090919191919191929292
+      8585856E6E6F6B6C6C6A6A6A6767676463646161615E5F5E5C5D5D5959595757
+      57555555525152504F4F4D4D4D4A4A4A4848484646464443444242413F3E3E3C
+      3C3C3A3A3A393839363535333333323232302F2F2E2E2E2D2C2D2B2B2B292829
+      2726262525252323232323232120212120201E1E1E1D1D1D1C1C1C1A1A191A19
+      1A18171816161616161615151514141414131414141412131212111111101010
+      10101010101010100F0F0E0D0E0D0D0D0E0D0D0D0C0B0B0B0C0C0C0C0C0C0C0B
+      0B0C0B0A0A0A0A0A0A0A0A0A0A0A0A090A090A090A090909090A090909090909
+      0909090909080908090908080808080808080808080807080707080707070706
+      0707060607060606060607060606060606060606060606060506060605050505
+      0505050505050505050505050504050505050404040405040404040404040404
+      0404040404040404040403040304030303030303030303030303020203030302
+      0302020303020202020202020202020202020202020202020202020201010101
+      0101020101020101020102010101010102010101010101010100000100010100
+      0101010001010101000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030323232333333343434353535363636373737
+      3737373737373737373737373838383838383A3A3A3B3B3B3D3D3D3E3E3E3030
+      302F2F2F2F2F2F2F2F2F2F2F2F30303038383838383838383838383838383838
+      3837383837383737383737383737383737383737383737373737373737373737
+      3737373737373737373737373535343434343434343434343434343434343434
+      3435353536363536353536353536353536353536353536353536353536353535
+      3535353534343434343434343534343434353434343434343434343434333434
+      3333343434333434343333333433333333333333343433333334333333333333
+      3333333333323233323232323332323233323232323132323132323132313131
+      31313131313130313031313131313030303030303030302F3030302F302F2F30
+      2F2F2F30302F3131323131313131313131313031313130313132313132323132
+      3131313132323232323232323233333234333334353434343434343434353536
+      36363535353737363938393838383939393A3A3A3B3B3B3C3C3B3C3C3C3E3E3D
+      3F3F3E404040404040403F404041404342424343434445444747474848484949
+      494B4B4C4D4D4D4E4E4F5151515454545757575858575B5B5A5C5C5C5E5E5E60
+      60606262626465656767676969696B6A6B6D6C6D706F6F727172737373767675
+      7878787A7B7A7C7C7C7E7E7E8181818383838585858888888A8A8A8C8C8C8E8D
+      8E908F8F9292929594949695969898989A9A9A9B9B9C9D9D9E9F9E9FA1A0A1A3
+      A2A3A3A3A4A8A7A8ABABABACACACAFAFAFB0B0B0B1B1B1B2B1B1ACACACA1A1A1
+      8B8B8B7474746363635353534242423434342929292020201414141414141313
+      131313131313131313131313131111111D1D1D2626263131313E3E3E4F4F4F60
+      60607171718888889E9E9EA8A8A8ABABABACABABA9A9A9A9A9A9A6A6A6A5A5A5
+      A3A3A3A1A1A1A0A0A09D9D9D9B9B9B9999999797979695969292929191918F8F
+      8F8E8E8E8F8F8F9494949595959696969797979998989797978B8B8B75747472
+      72727070706D6E6E6B6A6A6868686666666262636060605D5D5D5C5B5B585858
+      5655565253534F4F4F4E4E4E4B4B4B4949494646464444444141423F3F3F3D3C
+      3C3A3A3A3938393635353434353232322F2F2F2F2F2F2C2D2D2A2A2A29292827
+      26262625252323232323232120211F1F1F1E1E1E1E1D1D1C1C1C1A1A1A191A1A
+      1718181717161617161515151414141414141413141312121111111011101010
+      101010100E0E0E0E0F0F0D0D0D0E0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B
+      0B0C0A0A0A0A0A0A090A0A0A0A090A0A09090909090909090909090909090809
+      0809090808090808080808080808080808080807070707070707080707070707
+      0707070706070706060606060606060606050506060606050505050505050505
+      0505050505050505050505050405050504040405050505040404040404040404
+      0403040404040404040403030303030303030303030303030302030303030303
+      0303030203020202020302030202020202020202020202020202010201010201
+      0102020201020101020101010101010101010101010101010101010101010101
+      0101010101000000000000000100010000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303232323333333434
+      3435353536363637373738383838383838383838383839393939393939393939
+      39393939393939393A3A3A3A3A3A3C3C3C3D3D3D3E3E3E3939392E2E2E2F2F2F
+      2F2F2F2F2F2F2F2F2F3434343838383838383838383838383838383838373838
+      3738383738373738373738373738373738373737373737373737373737373737
+      3737373737363636343434343434343434343434343434343434353434363636
+      3636353636353635353635353635353635353635353635353635353635343534
+      3535343535343535353535343535343434343435343434343534343433343434
+      3433343434343334333433343333333333333333333333333333333333333332
+      3333333232323332333333323232323232323232313232313131313131313031
+      31303031313031313131303031313030303030302F3030303031303031313130
+      3030323132313131313131313131313131323132313232323131323131323232
+      3232323232323333333434343434353534353534343535353636363636363636
+      373837383938383939393A3A3A3B3B3B3B3C3C3C3C3C3E3E3E3F3F3E41414041
+      41404443434544444544454544454444444747474848484A4A4A4C4C4C4D4E4D
+      504F4F5151515353545555555858585B5B5B5C5D5C60605F6161626464636666
+      666868686A6A6A6B6B6B6E6E6E7170717372737675757877777A7A797C7C7C7E
+      7E7E8181818383838686868888878A8A8A8C8D8C8F8F8F909090939393949594
+      9797979999999B9B9B9E9E9E9F9F9FA1A1A1A3A3A3A5A5A5A7A6A7A8A8A8AAAA
+      AAABABABB1B0B1B1B1B1A4A4A48686866868684B4B4B2B2B2B1616160F0F0F0D
+      0D0D0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0B0B0B0A0A0A0B0B0B0B0B0B0A0A0A
+      0A0A0A0909090909090909090707070808080707070707070707070606060505
+      050707070E0E0E2323234242426160617F7F7F9E9E9EABABABABABABA9A9A9A7
+      A7A7A6A6A6A3A3A3A1A1A19F9F9F9D9C9C9B9B9B999999979697969696979697
+      9B9B9B9C9C9C9C9C9C9D9D9D9E9E9E9D9E9D9191927D7E7D7A7A7A7878787574
+      74727272706F706C6C6C6A6A6A6767676463646161615F5F5F5B5C5B59595957
+      57575454545151514F4F4F4C4C4C4A4A4A474747444444434242403F3F3D3D3D
+      3B3B3B3939393736373534353232322F302F2F2F2F2C2D2D2A2B2B292A2A2626
+      272525252323232323232020211F1F1F1F1E1E1D1D1E1B1B1B191A1A18191917
+      1718171617161616151515141414141414141314121312111211101010101010
+      100F100F0E0F0E0E0E0D0D0D0D0E0D0C0C0C0C0C0C0B0C0C0B0C0B0C0C0C0B0A
+      0B0A0A0A0A0A0A0A0A0A0A090A0A0A0A0A090909090909090A09090909090909
+      0808080808080808080808080808080808080807070707070707070607070706
+      0707060606060606060606060606050506050606060506050506050506060505
+      0505050505050505050504050504040504050504040404040404040403040404
+      0404040404040304030403030303030303030303030303030203030203030202
+      0302030203020202030302020302020202020202020201020201020201010101
+      0101010101010101020101020101010101010101010100010101010101010001
+      0100010000000000000100000000000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303031
+      3131323232343434343434353535373737383838383838383838383838383838
+      3939393939393939393939393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3B3B3B3B3B
+      3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3F3F3F3333332F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F30383737383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373737373737373737373737373737373737
+      3734343434343434343434343434343434343434343436353536363636363636
+      3635363635363535363535363535363535363535353435363534363534353535
+      3534353435353434343535343534353534343434343434343434343334343333
+      3433343334343334333334343333333334333333333333333333333333333333
+      3332333232323233333333323332333231323131323131313131313131313131
+      3131303031303030303030313030303131313131313130313031313132313131
+      3232323132313231313232323232323232323232323233333333323232333233
+      3333333333343434353534343534353435353635363636373737383838393938
+      3939393A3A3A3A3B3A3C3C3D3C3C3C3E3E3E3F3F3F4141404141404343424544
+      4446454548474749494949494A4A4A4A4A4A4A4C4C4C4E4E4E50505052525254
+      53545657565757575A5A5A5D5C5D606060626363646464666667696A696B6B6B
+      6D6E6E7070707273737575757777777A797A7C7B7C7F7E7E8180818383838685
+      858888888A8A8A8D8D8C8F8F8F919190939393969696989898999A9A9C9C9C9E
+      9E9FA1A1A1A3A3A3A4A4A4A6A6A6A9A8A9AAAAAAACACACADADADA7A7A7858585
+      5F5F5F3939391919190E0E0E0F0F0F0F0F0F0E0E0E0E0E0E0D0D0D0E0E0E0E0E
+      0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C0C0C0C0B0B0B0B0B0B0B0B0B0A
+      0A0A0909090A0A0A090909090909080808070707070707070707060606050505
+      0505050505050505050404040303030D0D0D2E2E2E575757818080A4A4A4AAAA
+      AAA9A8A8A7A7A7A5A5A5A2A2A2A0A0A09F9F9F9E9E9E9E9E9EA3A3A3A2A2A2A3
+      A3A3A3A3A3A4A4A4A3A3A39899998484848282827F7F7F7C7C7C7A7A7A777676
+      7474747171716E6E6E6B6B6B6969686566656362626060605D5D5D5A5A5A5758
+      585554555252534F4F4F4D4D4D4A4A4A4747474545454243424140403D3D3E3B
+      3B3B3838393737363535343233323130302F2F2F2D2D2D2A2B2A282928262626
+      2525262323232323232121211F1F1F1D1D1D1D1D1D1B1B1B1A1A191918181717
+      1817171715151614141414141414131412131311121112121210101010101010
+      10100E0F0E0F0E0F0D0D0D0D0E0D0C0C0C0C0C0C0B0C0C0B0C0C0B0B0B0A0B0A
+      0A0A0A0A0A0A0A0A0A090A0A0A0909090A090A09090A09090909090909090809
+      0908080808080808080808080808080708070707080707070807070707070606
+      0707060606060606060606060605050606050606060505050505050505050505
+      0505050505050505050504050505040504040404050404040404040404030404
+      0304040303040303040304030303030303030303030303030303030303020203
+      0302030302020203020302020202020202020201020202020102010102010201
+      0201010101020101010101010101020101010101010101010101010100010100
+      0000010000010000010000000000010000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303232323333333434343535353636363737373838383838
+      383838383838383838383939393939393939393939393A3A3A3A3A3A3A3A3A3A
+      3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D
+      3D3D3D3E3E3E3E3E3E3B3B3B3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3232
+      3238383838383838383838383838383838383838383838383738383738383738
+      3737383737383737383737383737373737373737373737373737363636343434
+      3434343434343434343434343434343535343636363636363636363636363636
+      3536363536353536353536353536353536353536353536343436343435353435
+      3434343434343535353534343435343435343434343434343434343434343434
+      3333343434343433343433333334343333333433333333333333333333333333
+      3232323333323332333232323132313132313132313131313131313131313130
+      3131303130313131313132313232313131313130313131313132323232323131
+      3131313132313232323232323132323231323332323233333232333333333434
+      343435353535353535353536363636363837383938383939393939393A3B3B3B
+      3B3A3C3D3D3C3C3D3E3F3E3F3F3F414141414141434342454544464545484747
+      4A49494B4A4A4C4C4C4E4D4E4E4E4E504F4F5151515252525554555757575858
+      595A5A5A5C5C5C5F5F606161616565656768676A6A6A6C6D6C6F6F6F71717174
+      74747676767878797B7B7B7D7C7D807F808382828585858787878A8A898C8C8C
+      8E8E8E9191919393939696969998999B9B9B9C9C9C9F9F9FA1A1A1A4A3A3A6A6
+      A6A8A8A8AAAAAAACACACAEAEAEA5A5A57C7C7C4E4E4E22222210101010101010
+      10101010101010100F0F0F1010101010100F0F0F1010100F0F0F0F0F0F0F0F0F
+      0F0F0F0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0A0A
+      0A0A0A0A0A0A0A0A0A0A09090909090908080808080807070707070706060606
+      0606060606050505050505030303030303030303030303161616444445757575
+      A1A1A1AAAAAAA9A9A9A7A7A7A5A5A5A6A6A6AAAAAAA9A9A9A9A9A9AAAAA9AAAA
+      AAAAAAAA9F9F9F8C8C8C8989898787878484848181817E7E7E7B7B7B78797975
+      75757272726F706F6C6C6C6A69696766666464636161615E5E5E5B5B5B585858
+      5656565253525050504D4D4D494A4A4847484545454444444141413E3E3E3B3B
+      3B3939393737373434343232333030302E2E2F2C2D2D2A2B2A29292926262725
+      25252323232323232020212020201D1D1D1D1D1D1B1B1B1A1A19191918171717
+      1616161515151414141414141414131212121211121111101010101010100E0F
+      0E0F0E0E0D0E0E0E0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0A0A0A0B0A0A0A
+      0A0A0A0A0A0A0A0A0A0A090A090A090909090909090909090909080809080808
+      0808080808080808080707070707080707070707070707060707070706070706
+      0606070606060606060605060605060606050605060505050605050605050505
+      0505050505050405050504050505050404040404040404040404030403030303
+      0304030304030404040304040303030303030303030303020303020203030302
+      0303020302020302020202020202020202010202010201020101020202010201
+      0101010101020101010201010102000101010101000101010101010101000000
+      0101000000010000000000010000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303032323234343434
+      34343636363737373737373838383838383939393939393939393939393A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C
+      3C3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3A3A3A37373737363732323230
+      30302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F363636383838
+      3838383838383838383838383838383838383838373838373838373837373837
+      3738373738373738373737373737373737373737373734343434343334343434
+      3434343434343434343434363636363636363636363636363636363636363635
+      3636353635353635353635353635353635353635353635353635353535343535
+      3534353535353535343434353534343434343535343434343334343434343434
+      3334343434343433333333333434343333333434333333333333333233323332
+      3333323232323232323232323231323231313231313130313131313232313232
+      3132323132323231313132323131313132323232323232323231323231313233
+      3332323232323232323232333333323333333332343334353534353535353535
+      353535363536373737373737383838393A3A393A393A3A3A3B3B3B3D3D3D3D3D
+      3C3E3F3F3F3F3F4141414141414343434545444646454848474A49494B4A4A4D
+      4C4C4E4E4E504E4E5252515453535554545555555757575859595B5C5C5E5D5E
+      6161616362626565656767676B6B6B6E6D6E7070707272737574747878787A7A
+      7A7D7D7D7F7F7F8383828584858787878A88898C8C8C8E8E8E91919093939395
+      95959899989B9B9B9D9D9DA0A0A0A1A1A1A4A4A4A6A6A6A9A9A9ABABABAEAEAE
+      ABACAC8282824E4E4E2020201111111212121212121111111111111111111111
+      1112121211111111111111111111111111111111111110101010101010101010
+      10100F0F0F0F0F0F0F0F0F0E0E0E0E0E0E0D0D0D0C0C0C0D0D0D0C0C0C0B0B0B
+      0B0B0B0B0B0B0A0A0A0A0A0A0909090808080808080808080707070606060606
+      0606060605050505050503030303030303030303030303030302020213131344
+      44447B7B7BA8A8A8AEAEAEB1B1B1B1B1B1B0B0B0B0B0B0B0B0B0B0B0B0A6A6A6
+      9594949292928E8D8E8B8B8B8889898586858383838080807D7D7D7A7A7A7777
+      787474747171716E6E6E6B6B6B686867646564626262605F5F5C5C5C59595956
+      57575353535051504E4E4E4B4B4B4848484646464343444040403E3E3E3B3B3B
+      3939383636373534343232323030302F2F2F2C2C2D2A2B2A2829282626272525
+      252323232323222021211F1F201D1D1E1C1C1D1B1B1B1A191A18191816161616
+      16161515151414141414141413141212121211111010101010111010100E0E0F
+      0F0F0E0E0D0E0D0E0D0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0A0A0B0B0A0A0A0A
+      0A0A0A0A0A0A0A0A0A0A090A090A0A0909090909090909080908090908090808
+      0808080808080808070808080707070808070707070707070707070606060706
+      0606060606060606060606050605060505050505050505050605050505050505
+      0505050505050505050405050504040505040404040404040404040404040403
+      0403030404030303030303030303030303030303030203030202020202020302
+      0203030202020202020202020202020202010102010102010102020202010201
+      0201020102010101010101010101010101010101010001010101010001000001
+      0000000001010001010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303333333535353535353636
+      363737373939393A3A3A3A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C
+      3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D3D3D3D3D3D3D3E3E3E3C3C3C3A3A3A
+      3736373434343232322F2F2F2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30303038383838383838383838
+      3838383838383838383838383838383838383837383837383737383737383737
+      3837373837373737373737373737373636363434333434333434333434343434
+      3434343435353536363636363636363636363636363636363636363636363536
+      3635363535363535363535363535363535363535363535353534353435353435
+      3435343435343435343434343434343434343434343434343433343434343434
+      3434343333333334343333343433333333333333333333333332333333323333
+      3333333232333232333232323131323231323231323232323232313232313131
+      3131323132313131313131313232323231323232313131323233333233323232
+      3332323233333333333332333334343435353434343435353535353536363637
+      3737373637373838393A3A39393A3B3A3A3B3B3C3C3C3C3D3D3D3E3D3D403F3F
+      4040404141414343434444444646454848474949484B4A4A4D4C4C4E4E4E504F
+      4F5351525554535757565858575A5A5A5B5B5B5C5C5C5E5E5E61616063626366
+      65656868686B6B6B6D6D6C7070707474747776777979797B7B7B7E7E7E808080
+      8383838585858989898B8B8B8E8D8E9191919493939696969898989B9A9A9D9D
+      9D9F9F9FA1A2A1A4A4A4A6A7A6A9A9A9ACACACAEAEAE9B9A9A6767672F2F2F12
+      1212131313121212121212131313131313141414141414141414131313131313
+      1414141313131313131313131212121212121212121111111111111111111010
+      101010101010101010100F0F0F0E0E0E0E0E0E0D0D0D0E0E0E0D0D0D0C0C0C0B
+      0B0B0C0C0C0B0B0B0A0A0A090909090909090909080808070707070707060606
+      0606060505050404040404040404040404040404040303030202020202020202
+      022121216261629F9F9FB7B7B7B7B7B7B7B7B7B6B6B6ACACAC9B9B9C99999996
+      96969393939091918D8E8E8B8B8B8888888584848282827F7E7F7B7B7B787878
+      7575757272726F6F6F6C6C6C6969696667676262626060605C5D5D5A5A5A5657
+      565453545150504E4E4E4B4B4B4849494646464443444141413E3E3E3B3B3B3A
+      3A3A3637373435343232332F2F2F2F2F2E2D2C2D292929292829262727252424
+      2323232222222120211E1E1E1E1E1D1C1C1C1A1A191A19191818171717171617
+      161516151414141413141313121313131211111111101010101010100F0F0F0D
+      0D0D0E0D0D0E0E0E0C0C0C0C0C0C0C0C0C0C0C0B0B0A0B0A0B0B0A0A0A0A0A0A
+      0A0A0A090A0A090A090A0A0A090A09090A090909090909090909080809080808
+      0808080808080707080707070707070807070707070707070707070607060606
+      0606060606060606060605050506050506050505050505050505050505050505
+      0405050505050505050404040404040404040404040404040404040404040304
+      0403030303030303040303030303030303020303030303030303020302020203
+      0202020202020202020202020202010202020202020202010202020102020101
+      0101020101010102010101010101010101010100010100010001010101010000
+      0100000000010100000000000000010000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030343434353535363636373737393939
+      3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D3D3D3D3D3D
+      3D3E3E3E3A3A3A3838383736373333333131312E2E2E2E2E2E2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3434343838383838383838383838383838
+      3838383838383838383838383838383738383738383738373738373738373738
+      3737383737373737373737353434343333343433343433343433343434343434
+      3636363636363636363636363636363636363636363636363636363636353636
+      3536353536353536353536353536353436353535353436343535343435343435
+      3535343435343434353434353434343434343434343434343334343434343434
+      3434343333333333343334343333333333333333333333333332333333333232
+      3332323232323232323232333233323232323232323232313231313231323131
+      3131323131323232323232323232323232313232333333333333323233323232
+      3334343333333333333434343333343534353332323333333333333434343535
+      353737373736373939383B3A393C3B3B3E3D3D3E3E3E40404041404142414244
+      43434444444647464747474949484B4B4A4D4C4C4E4E4E504F4F535252555454
+      5757575957585B5B5A5D5D5C605F5F6160616161616463646666666968686B6B
+      6B6E6E6E71717173737377767679797A7C7C7D7F7F7F8282828585858888878A
+      8A8A8D8C8D8F90909392939595959897979B9B9B9D9D9DA09F9FA2A2A2A4A4A4
+      A7A7A7A9A9A9ACACACAEAEAE8D8D8D4F4F4F1D1D1D1313131414141414141414
+      1414141415151515151516161616161616161616161615151515151515151516
+      1616151515141414141414151515141414141414131313121212121212121212
+      1111111111111111111010100F0F0F0E0E0E0E0E0E0E0E0E0D0D0D0C0C0C0C0C
+      0C0C0C0C0C0C0C0B0B0B0A0A0A09090909090909090908080807070707070706
+      0606060606050505050505040404040404040404020202020202020202020202
+      0101010C0C0C484848929292BCBDBDB3B3B3A4A4A4A1A1A19F9E9E9C9B9B9999
+      9996969693939390908F8D8D8D8A8A8A8686868383837F807F7D7D7D7A7A7A76
+      76767474747070706D6D6D6A696A6666666463636161615D5E5E5A5A5A585858
+      5455545151514F4F4F4C4C4C4849494646464343434141413E3E3E3B3B3B3838
+      393636363434343232322F2F2F2E2E2E2D2D2D292A2928282827262624242423
+      23232222222020201F1E1F1D1D1D1C1C1C1A1A1A1A1919181717171716161615
+      1414141414141414141313121112111010101010101010100F0F0F0F0E0F0E0E
+      0D0D0E0D0C0C0C0C0C0C0C0C0C0C0C0C0B0B0B0A0B0B0B0B0B0A0A0A0A0A0A0A
+      0A0A0A0A0A0A090A0A090A0A090A090909090909090909090908080808080808
+      0808080808080708070707080707070707070607070607060607060607070606
+      0606060606060606060605050606050605060505060505050505050505050505
+      0505050505050404050504040404040404040404040404040404040404030403
+      0403040303030303040303030303030302030303030303020202020302030202
+      0202020202020202020202020202020202020101020102010201010102010201
+      0202010201010201010101010101010101000101010100000001010101010101
+      0100000000010000000100000001000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303131313434343535353737373838383A3A3A3C3C3C3D
+      3D3D3D3D3D3D3D3D3D3D3D3D3D3D3A3A3A3737373535363232323030302E2E2E
+      2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F373737383838383838383838383838383838383838
+      3838383838383838383838373838373838373837373837373837373837373837
+      3737373736363634333334333334333334343334343334343335353536363636
+      3636363636363636363636363636363636363636363636363636363635363635
+      3635353635353635353635353635353635353635353535343534343535353435
+      3535343435343434343434353434343434343434343433343433343334343433
+      3334333433343433343333333333333333333333333333333333323332323233
+      3332323332333333323332323332323232323232323232323232323132313231
+      323333333232323232323232323333323333323332333333333332323131312F
+      2F2F2F2F2F2E2F2F30303030302F303130313031313131333232333433343434
+      35353536363636363738393939393A3C3C3C3E3E3E4040404243434544454545
+      45484747494A494B4B4A4D4D4C4E4E4E504F4F5352525554545757575958585B
+      5B5B5D5D5D60605F6262616464656665656767676A6A696B6C6C6E6F6F717171
+      7474747676767A7A7A7E7E7E8180818383838686868888888C8C8C8F8F8F9292
+      929494949797979999999D9C9D9F9F9FA3A2A2A5A5A5A7A7A7A9A9A9ACACACAE
+      AEAE8D8D8D494949161616141414151515161616161616171717161616171717
+      1717171818181818181818181818181818181717171616161717171717171717
+      1716161616161616161616161615151514141414141413131314141413131313
+      13131313131414141313131212121111111010101010100F0F0F0D0D0D0D0D0D
+      0D0D0D0C0C0C0A0A0A0A0A0A0909090909090909090808080707070707070707
+      0706060606060604040404040404040404040402020202020202020202020201
+      01010101010303033E3E3E848484A9A9A9A7A7A7A4A4A4A1A1A19E9E9F9B9B9B
+      9898989595959292928F8F8F8B8B8B8888888585858281817E7E7E7B7B7B7777
+      777474747172726E6D6D6A6A6A6768686363636161615E5E5E5B5A5B58585854
+      54545151524F4F4F4C4C4C4849494646464443434241413E3E3E3B3B3B393938
+      3636363534343232332F2F2F2E2E2E2C2C2B292A2A2727282626262424242323
+      232221222120201F1E1E1D1D1D1B1B1B1A1A1A19181918171717161715161514
+      14151414141413141213131212111010111110101010100F0F0F0F0F0F0E0E0E
+      0E0E0D0C0C0C0C0C0C0C0C0C0C0C0C0A0A0B0A0B0B0A0A0B0A0A0A0A0A0A0A0A
+      0A090A0A0A090A0909090A090909090909090909080908080809080809080807
+      0808080708080707070707070707070707070707060706060606070606060606
+      0606060605060605060505060505060605050506060505050505050505050405
+      0505040504040504040504040405040504040404040404040404040304030303
+      0304030303040303030303030303030303030203030302020302020302020203
+      0202030202030202020202020202020102010102020102010201010101010101
+      0201020201010201010101010001010101000001000101000000010101000001
+      0100010000000001000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303232323434343636363838383A3A3A3A3A3A3A3A3A3635363434
+      343232322E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3130313232
+      3234333435353538383838383838383838383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737373737
+      3535343333333433333433333433333434333434343636363636363636363636
+      3636363636363636363636363636363636363636363636363636363536363536
+      3535363535363535363535363535363535363535353535353535353434343435
+      3434353534343535343435343434343434343434343434333434343333343334
+      3333333434333333333333343434333333333333333233333332333333333333
+      3333343232333232333232333232323232313232323232323132323332323233
+      3232323332323232323333333232323030312F2E2F2E2D2D2D2D2D2E2F2E2F2F
+      2F2F2F2F30303030313131313132323232313133333334353435353536363636
+      353637383839393939393A3A3A3B3D3D3E3E3E3F3F4040434342454545494949
+      4B4C4B4D4D4D4E4E4E50504F5352525554545757575958585B5B5B5E5D5D6060
+      606262626564656767676A6A6A6C6C6C6D6D6D6F6F6F7272717575757778777B
+      7B7B7D7D7D8080808483838787878B8B8B8D8D8D909090929292969596999999
+      9C9B9B9E9E9EA1A1A1A4A4A4A6A6A6AAAAAAACACACAFAEAE8D8D8D4949491616
+      161515151616161616161717171717171818181818181919191A1A1A1A1A1A1A
+      1A1A1A1A1A1A1A1A1919191A1A1A191919191919181818181818181818171717
+      1717171717171717171717171818181919191A1A1A1B1B1B1C1C1C1C1C1C1D1D
+      1D1E1E1E1E1E1E1D1D1D1D1D1D1B1B1B1A1A1A19191918181816161614141413
+      13131010100E0E0E0D0D0D0A0A0A0A0A0A090909080808080808070707070707
+      0606060505050404040404040404040404040202020202020202020202020101
+      010101010101010101013A3A3A848484A9A9A9A6A6A7A4A4A4A0A0A09E9D9D9A
+      9A9A9696969393939091918D8D8D8989898686868383837F80807C7C7C797879
+      7575757272726F6F6F6B6B6B6868686464646262625E5D5E5A5B5A5858585656
+      565151514F4F4F4C4C4C4849494646464343434141423E3F3E3B3B3B38383937
+      36373534343232322F2F2F2E2D2E2C2C2B292929282827262626232323232323
+      2120201F201F1D1D1D1D1D1D1B1B1B191A1A1919191716161716161515161414
+      141414141213131213121212121111111010101010100F0F0F0E0E0E0D0E0E0C
+      0C0D0D0C0C0D0C0C0C0C0C0C0C0C0B0A0A0B0A0A0A0A0A0A0A0B0A0A0A0A0A0A
+      0A0A0A0A0A090909090909090909090809090809090809090808080808080708
+      0807070707070707070707070707070707070706070606060706060606060606
+      0606060606050505060505050505050506060505050605050505050504040505
+      0504050504040404040404050404040404040404040304030403040404040403
+      0404030403040403030303030303030203020302030202020302020302020203
+      0202020203020202020202020202010202020102010201010202020201010101
+      0101010101010101010101010101010101010001000100000001000001000000
+      0000010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303232323535353737373939393B3B3B3333332E2E2E2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F313131333233343434363636373737393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383738383738373738373738373738373737373733333333
+      3333333333343333343333343333353535363636363636363636363636363636
+      3636363636363636363636363636363636363636363636363636353636353635
+      3536353536353536353536343536353536353536353535353435353534353435
+      3534343534343435343434343434343434343434343434343433343333333433
+      3433333334343333343333333333333333333333333433333432323432323432
+      3333323233323233323232323232323232313232323233333332333332323232
+      32323232322F2F2F2D2D2D2D2D2D2E2E2D2D2D2E2E2D2E2F2E2E2F302F303030
+      3030303130313232323232323332323434343434343535353636363838383939
+      393A3A3A3B3B3B3D3D3D3E3E3F3F3F404141424242434444444646474A49494D
+      4D4E50504F5353525554545756565958585B5B5B5E5D5D606060636262656565
+      6868686A6A6A6C6D6C6F6F6F7272727373737676767978787B7B7B7E7E7E8281
+      818585858787878B8A8B8E8E8F9191919595949797979A9A9A9D9D9DA1A0A0A3
+      A3A3A5A6A5A9A8A8ACABACAFAFAF9A9999515151161616161616161616181818
+      1919191919191919191A1A1A1B1B1B1B1B1B1B1B1B1C1C1C1C1C1C1C1C1C1B1B
+      1B1B1B1B1B1B1B1B1B1B1B1B1B1A1A1A19191919191918181819191919191918
+      18181919191B1B1B1D1D1D1F1F1F212121232323252525262626272727282828
+      2828282828282828282727272525252525252424242323232121211F1F1F1E1E
+      1E1A1A1A1818181515151212120F0F0F0C0C0C0A0A0A08080807070707070707
+      0707060606040404040404040404040404020202020202020202020202010101
+      010101010101000000010101424242929292A9A9A9A6A5A5A2A2A29F9F9F9B9B
+      9B9999999595959291918E8D8E8B8B8B8787878484848180817D7D7D7A7A7A76
+      76767273736F6F6F6C6C6C696A6A6665656262625E5E5E5B5B5B585858555656
+      5352524F4F4F4C4B4B4949494646464443434040403E3E3E3B3B3B3938393635
+      363434333131312F2F2F2D2D2D2C2B2B292A2A27272825252623232323222221
+      212120201F1D1E1E1C1C1C1A1A1A191A1A181818171716171616141414141415
+      1414141312131111121110111011101010100F0F0F0F0F0F0E0E0E0E0D0E0D0D
+      0C0C0D0C0C0C0C0C0C0C0B0B0B0B0B0B0A0B0A0A0A0B0A0A0A0A0A0A0A0A0A09
+      0A0A09090A090909090909090909090909080808080808080808080808070808
+      0807080708070707070707070607070707060607060607070606070606060606
+      0606060606060606050506050605060605060505050505050505050505050505
+      0405040404040404040404040404040404040403040304040304040404030403
+      0304040303030303030303030303030303020302030303030203020202020202
+      0202030202020202020202020102020202020201020101010101010201010101
+      0101020101010101010101000101010101000001010000010100010001000100
+      0001000100000100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303434
+      343535353838383A3A3A3C3C3C3131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3030303131313333333534343636363838383939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373535353333333333333333
+      3333333334333334333336363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363636363635363635363535
+      3635353635353635353635353635353534353534353535343535353435353434
+      3435343534343434343434343434333433343434343434343334343433343434
+      3433333333343334333334333333343333343333333333343333343332333332
+      3332323332323232333233323232323333333332323333323031312E2D2D2E2D
+      2D2D2D2D2D2D2D2E2E2E2D2E2E2E2E2E2F2F2E302F2F30313131303031313131
+      31313232313434343435353635353536363736363738373939393A3A3A3B3B3B
+      3C3D3D3D3E3E403F4041404142424344444546464748484849494A4B4B4C4F4F
+      4F5353545757565958585B5B5B5E5D5D6060606362626665656968686A6A6A6D
+      6D6D706F6F7373737575757878787979797C7C7C7F7F7F838283858585888888
+      8B8B8B8F8F8F9292929595959998999C9C9C9E9E9EA1A1A1A4A5A5A8A8A8AAAB
+      AAADAEAEAAAAAA6868682222221717171818181919191919191B1B1B1B1B1B1C
+      1C1C1C1C1C1C1C1C1D1D1D1E1E1E1E1E1E1D1D1D1D1D1D1E1E1E1D1D1D1C1C1C
+      1C1C1C1C1C1C1C1C1C1B1B1B1B1B1B1A1A1A1919191919191919191818181919
+      191B1B1B1E1E1E2121212424242727272828282B2B2B2C2C2C2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B292929282828272727
+      2525252222221F1F1F1C1C1C1818181515151111110C0C0C0909090808080707
+      0706060605050504040405050503030302020202020202020201010101010101
+      01010000000000000000000D0D0D5B5B5BA3A3A3A7A8A7A4A4A4A1A1A19D9D9D
+      999A9A9696969393938F8F908C8C8C8888888585858182817E7E7E7A7A7A7777
+      77747474706F6F6C6C6C696A696566656262625F5F5F5B5A5A58585856555552
+      52534F4F4F4C4C4C4849494646464343434140403D3D3D3B3B3B393938353636
+      3333343131312F2F2F2D2C2D2B2A2A2A29292727262526252323232222222121
+      201F1E1F1D1D1E1C1C1C1A1A1A19191918181817171616151614151414141414
+      14141313131211111011101010111010100F0F0F0E0E0E0D0E0E0C0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0B0B0B0B0B0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A090A
+      0A0A090A09090909090908080909080808080808080808080807080808080808
+      0807070707070707070707070707060707060706060606060606060606060605
+      0506060505050605060606050606050605050505050505050505050505050505
+      0505040405040404040404050404040403040404040403030403030303030304
+      0403030303030303030303030302030302030303030202030303020203020202
+      0202020202020202020102020202020202020102010101020201020201010102
+      0201010101010101010100010101010101000001010100000000000000000000
+      0100000100000101010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030313131343434363636
+      3838383A3A3A3C3C3C2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31313132323234343435
+      3535373736393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383737383737383737383737343333333333333333333333333333
+      3333333534343736363736363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363636363536363536353536
+      3535363535363535363535353435363535353535353434353435353534343535
+      3435343434343534343434343434343334343434343433343333343434333433
+      3334333333343334333334333334333333333334333334323333333333323233
+      33323233333232323232323333333132322F2E2F2D2D2C2E2D2E2D2E2E2D2E2E
+      2E2D2E2E2E2E2E2E2E2E2F2F2F302F3030303132313333333333333434343636
+      373A3A3B3B3A3A3C3B3B3E3D3D3E3D3D3E3E3E3A3A3A3C3C3C3D3C3D3E3E3E3E
+      3E3F40414142434343444445454647474848494A4C4C4C4D4D4E4F5050525252
+      5656565B5B5B5E5D5D6060606362626565656968686B6A6A6D6D6D706F6F7373
+      737777767978797C7C7C7F7F7F8181818383828586858989898C8C8D8F8F8F93
+      93939696969A9A9A9D9C9CA0A0A0A3A3A3A6A6A6A9A9A9ACACACAFB0B0898989
+      3737371818181818181919191B1B1B1C1C1C1C1C1C1D1D1D1E1E1E1E1E1E1F1F
+      1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1E1E1E1F1F1F1F1F1F1E1E1E1D
+      1D1D1C1C1C1C1C1C1C1C1C1A1A1A191919191919181818181818181818191919
+      1C1C1C2020202424242828282B2B2B2E2E2E3030303232323333333333333333
+      333333333434343434343434343434343333333232323131313030302F2F2F2D
+      2D2D2B2B2B2828282424242121211E1E1E1919191515151010100C0C0C080808
+      0606060505050505050505050404040303030303030202020202020101010101
+      010000000000000000000000002323237E7E7EA9A9A9A5A5A5A2A2A29E9E9E9B
+      9B9B9898989494949090908D8D8D8A8A8A8585858283827F7E7F7B7B7B777777
+      7474747170716D6D6D6A696A6666676262625F5F5F5B5B5A5858585655555151
+      514F4F4F4C4B4B4948494646464343434040403D3D3D3A3A3A39393935353532
+      32323031302F2F2F2D2D2D2B2B2B292829262727242424232323222222202121
+      1F1F1F1D1D1E1C1B1B1A1A1A1919191717171616161515151414141414141313
+      131212121212121010101110100F0F0F0F0F0F0D0E0E0E0D0E0D0D0D0C0D0C0C
+      0C0C0C0C0C0A0B0B0B0B0A0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0909090A09
+      09090A0909090909090908090809080908080808080808080808080708080707
+      0807070707070707070607070707070607070706070606060606060606060605
+      0506050506050506050505050505050505050505050505050505050505040505
+      0404050504040404040404040404040404040404040404040304030403040303
+      0403030303030303030203030303030302030303030202020302020202020202
+      0302020202020201020202010101020102020201010102010201010101010101
+      0101010101010001010100010101010101010101010100000001000100010100
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303030303030303030303232323434343737373939393B
+      3B3B3939392E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3231323333333434343737373837373A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      3738383738373738373736363633333333333333333333333333333333333336
+      3636373636373636373636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363636353636353635353635
+      3536353536353536353536353536353535343535343435353535353534343434
+      3434343435343535343434353434353434343433343433343434343334343433
+      3434333434343433333433333433333433333433323433333332333332333332
+      323232333333333030312D2D2D2D2D2D2D2D2C2D2D2D2D2D2D2D2D2E2E2E2F2F
+      2F2F2F2F2F3030303231323536363B3B3B40403F4444444948484949494B4B4B
+      4B4B4B4B4B4A4B4C4B4C4B4C4C4D4C4D4D4D4D4D4D4B4B4B4848484747474545
+      4543444445454648474849494A4B4B4C4D4D4E4F4F5052515254545557575759
+      595A5F5F5F6362626565656968686B6A6A6D6D6D707070737373767777797879
+      7C7C7C80807F8282828585858787878A8A8A8D8D8D9090909494949696969999
+      999E9E9EA1A1A1A4A4A4A7A8A8ABABABAEAEAEA6A6A65B5B5B1818181919191B
+      1B1B1A1A1A1C1C1C1D1D1D1E1E1E1F1F1F1F1F1F1F1F1F202020212121212121
+      2121212020202020202020202020201F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1D1D
+      1D1C1C1C1C1C1C1A1A1A1A1A1A1919191818181818181818181818181919191D
+      1D1D2424232929282E2E2C323230343431373634383836393936393937393937
+      3A3A393A3A393A3A393A3A3A3939393939393939393838383737373636363434
+      343232322F2F2F2D2D2D2A2A2A2626262222221D1D1D1919191414140F0F0F09
+      0909060606050505050505050505040404030303030303020202020202010101
+      0000000000000000000000000000004B4B4A9E9E9EA7A8A7A4A4A4A0A0A09C9C
+      9C9899989696969191928D8D8D8B8B8B868686838383807F7F7C7C7C77777874
+      74747171706D6D6D69696A6666666262625F5F5E5A5A5B585858555655515151
+      4F4F4F4B4B4B484848454545424242403F3F3B3C3C3A3A3A3838383535353332
+      333130302F2F2F2D2D2D292A29282727262626252425232323212121201F201E
+      1D1D1C1C1C1B1B1C1A1A1A181818161717161617141415141414141414131213
+      1212121110111110101010100F0F0F0E0E0E0E0E0E0C0D0D0D0C0D0C0D0D0C0D
+      0C0C0C0C0B0B0B0B0A0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A09090909
+      090909090A090809090908090808080808080808080808070807070807080707
+      0707080707070707070707070707060707070706060606070606060606060606
+      0505050505060606050606060505050505050505050505050405050405050404
+      0404040404050404040404040404040404040304030404030403040404030303
+      0303040303030303030302030203020303020302020203020203030202020202
+      0202020202020202020202010101020102010102020202010102010101010101
+      0101010101010101010101010000010100010101010001000000010100010000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303232323535353737373939393C3C3C3635
+      362F2F2F2F2F2F2F2F2F2F2F2F2F2F303535353737373939393A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373534343333333333333333333333333333333434343737363736
+      3637363637363637363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363635363635363535363535
+      3635353635353535353635353535353635353534343534343535343434353434
+      3534353435343435343435343435343434343434333333343334343335343434
+      3433343333343333343333343333343333333332333232333333333232323131
+      2E2E2E2D2D2E2D2D2D2C2D2D2E2E2E2E2D2E2F2F2E2F2F2F2F2F303130303536
+      363E3E3E4444444747474949494A4B4A4B4C4B4D4C4D4D4D4E4D4D4D4F4F4F4F
+      4E4F4E4E4E4F4F4F5050504F4F4F515050515151525252545454545354505150
+      4D4E4E49494A4B4C4C4D4D4D4F4F505252525454545756575958595B5B5C5D5D
+      5E6363636867676B6A6A6D6D6D7170707473737777777979797C7C7C7F807F82
+      83828686868989898C8C8C8D8D8D9191909494949797979B9B9B9E9E9EA1A1A1
+      A5A5A6A8A8A8ABACACB0B0B08B8B8B3232321919191A1A1A1B1B1B1D1D1D1E1E
+      1E1F1F1F20202021212122222222222222222222222222222223232322222222
+      22222121212121212121212121211F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1D1D1D
+      1B1B1B1B1B1B1A1A1B19191919191718181518171219181019180D1B1A0F2020
+      192727242D2D2C30313434343936373B39393E393A3F3A3B3F3C3C3B3E3E3C40
+      3F3942413743423742423941403B40403D3F3F3E3E3E3D3D3D3D3D3D3D3B3B3B
+      3939393737373434343131312E2E2E2929292525252020201B1B1B1616161010
+      100A0A0A06060605050504040403030303030303030303030302020201010100
+      00000000000000000000000000001E1E1E818181A9A9A9A5A5A5A1A1A19E9E9E
+      9A99999696969393938E8E8E8A8B8B8787878383837F7F807C7C7C7878787474
+      747171716D6D6D6A69696666666262625F5F5F5B5B5B5858585554545151514E
+      4E4E4B4A4A4747484545454243433F3F3F3C3C3C3A3A3A373837353534323233
+      2F2F2F2E2E2E2B2C2C2A2A2A2828272525252323232323232121211F1E1F1D1D
+      1D1D1C1C1A1A1A19191918181816171716161615141414141414141413131312
+      12111111111011100F10100F0F0F0E0E0E0D0D0E0D0D0C0C0C0C0C0D0C0C0C0C
+      0B0B0B0A0B0B0B0B0B0B0A0A0B0A0B0A0A0A0A0A0A0A0A090909090A0A0A0A09
+      0909090909090908090808090808080808080808070807070808080807070707
+      0708070707070707070707070607060706060606060606060606060606050606
+      0505050505060506050505050505050505050405050504040404040405040504
+      0504050404040504050404040404030403030304030303030404030303030303
+      0303030303020303030302020303030203030303020302030203030202020202
+      0202020202020202010102010201020201020102010201020102010102010101
+      0101010100010101010100010101010100010001000100010100010000000000
+      0101000001000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303030303030303030303333333535353737373A3A3A3C3C3C3232322F2F2F
+      2F2F2F2F2F2F2F2F2F3232323A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738383737
+      3737333333333333333333333333333333333333353535373736373736373636
+      3736363736363736363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636363536363536353536353536
+      3535363535363535363535353534353435353535353434343435343434353534
+      3534343535343534343534343534343433343534333434343534333534343434
+      333434333433333433333433333433323333333332333030312E2D2F2D2D2D2D
+      2D2D2D2D2D2D2D2D2F2F2F2F2F2F2F3030313031393839424241474747494949
+      4A4A4A4C4C4C4D4C4C4F4F4F4E4F4E5151505150515051505151515151515252
+      5253535353535253525353535354545454545454545457575756575759595959
+      59595656575050515151525253545656565857585B5A5B5D5D5E606061646364
+      6868686D6D6D706F6F7473737777777979797C7C7C8080808383838686868A8A
+      8A8D8C8C9090909494949594959898989C9B9B9F9F9EA3A3A3A5A5A5A9A9A9AD
+      ADADAEAEAE6969691D1D1D1A1A1A1C1C1C1D1D1D1E1E1E202020212121222222
+      2323232424242424242424242424242323232323232323232323232323232323
+      232121212121212121212121211F1F1F1F1F1F1F1F1F1E1E1E1D1D1D1C1C1C1B
+      1B1B1A1A1A19191B17181E16172113173510184D0E18620B17730B18830B1A93
+      0C1C9A0A1AA5091AAB0A1AA90A1AA90A1AA90C1AA6111D9A121E9618238C1E26
+      81242B742D31673538573F3F4943434447463D47463C45443F43434142424140
+      40403E3E3E3A3A3A3838383535353030302C2C2C2727272222221C1C1C171717
+      1111110A0A0A0606060404040303030303030303030303030202020101010000
+      00000000000000000000000000040404595959A6A6A6A6A6A6A3A3A39E9E9E9B
+      9B9B9797979393938F8F8F8C8C8C8888888484847F7F7F7D7D7D787878747474
+      7171706D6D6D6969696766666262625E5D5E5B5B5B5858585454545050504E4E
+      4D4A494A4646474444444241413E3E3E3B3B3B3A3A3A3737363434343131312F
+      2F2F2D2D2D2B2B2B2A29292626262526252323242222212021211F1E1F1E1E1D
+      1C1B1C1B1B1B1919191716171717161414151414141415151313141212121110
+      111011111111100F100F0F0E0E0E0E0E0D0D0C0D0D0D0C0C0D0C0C0C0C0C0C0B
+      0B0B0B0B0B0B0B0B0A0A0B0B0A0A0A0A0A0A0A0A0A090A0A090A090A0A090909
+      0909090909090908080908080808080808080808080707080708080707070707
+      0707070707060707060607060606070706060606070706060606050506060605
+      0506060606060605050506050505050505050505050405040405050405050405
+      0405040405040404040403040403030304030303030403030404030304030303
+      0303030303030303030203030202030203030302030202020202020203020202
+      0202020102020202010102020201020201010102020102010102010101020101
+      0101010101010100010001010100010001010000000001000000000100000100
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303434343636363838383A3A3A3D3D3D2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F3434343A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373838373635353333
+      3333333333333333333333333333333337363637373737373637373637363637
+      3636373636373636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363636353636353635353635353635
+      3536353536353535343436353536343435353535343435343536363535353435
+      3434353435353434353433353434353433353434353434343434343334343333
+      3533333433333433333433333333333030302C2C2D2D2D2E2D2D2D2D2D2D2F2E
+      2E2F2F2F2F2F2F3030303636374342434747474949494B4B4B4E4E4E4F4F4F51
+      5151515151525252535353545454545454555555535353555555555555555555
+      5555545555555655565555565656575757575858585959595A595A5B5B5B5E5E
+      5D605F5F5D5C5C5757575858595A5B5B5C5D5E60616162626366666769696A6C
+      6C6C7272727676767A79797C7C7C8080808383838686868A8A8A8D8D8D909090
+      9494949797979A9A9A9C9C9BA0A09FA3A3A3A6A6A6AAAAAAADADADA0A0A04949
+      491A1A1A1B1B1B1D1D1D1F1F1F20202021212123232324242425252525252525
+      2525252525252525252525252525252525242424242424242424232323232323
+      2121212121212121212121211F1F1F1F1F1F1F1F1F1D1D1D1C1C1C1B1B1B1919
+      1818191D0B1977021AC30019CD0019CC0018D20018D40017D10015CE0015CC00
+      15CA0014C80013C60013C50012C40012C30011C4000FC3000EC3000EC3000EC0
+      000FBB0110B60613AD101B9A1E26862B30703A3C594444494949424A49404646
+      434444434141413F3F3F3B3B3B3737373333332E2E2E2828282323231D1D1D17
+      17171010100A0A0A050505030303030303030303030303020202010101000000
+      000000000000000000000000000000333333989898A7A7A7A4A4A49F9F9F9B9B
+      9B9898979494949090908C8C8C888888848484807F807D7D7D78787874747471
+      71716D6D6D6A69696565656262625D5D5D5B5A5B5757575353535050504D4D4D
+      4A49494646474444444241423E3E3E3B3B3B3938393536363334333232322F2F
+      2F2D2C2D2B2B2B2829282627272425242323232121212020201E1D1D1C1C1D1A
+      1A1A1A1A1A181818171716161616141415141514141414131313121212111111
+      1111100F10100F0F0F0E0F0E0E0E0E0D0D0C0D0C0D0D0C0D0D0D0C0B0B0B0B0B
+      0B0A0B0B0B0B0A0A0A0A0A0A0B0A0A0A0A0A090A0A0A0909090A090909090909
+      0909080909090809090908080808080708080708070807070707070708070707
+      0707070607070707070607060606060707070606060606060605060605050605
+      0506060505050505050505050505050505050505050405050505050404040505
+      0404040404040404040404030404040404030304040404030303030303030303
+      0303030303030303030303030303030302020203020302020202020203030202
+      0202020202020102010102020101010101010202010102010101010101010101
+      0101010101010101010101000000000000010000000101010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3131313434343636363838383B3B3B3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F2F2F
+      2F3737373A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383837383837343434333333333333
+      3333333333333333333534343737373737373737373737363737363736363736
+      3637363637363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363635363635363535363535363535
+      3635353635353535353535353635343635353535363635363535353635343534
+      3435343535343435353435353435343335343335343434343334343334343334
+      33333433333433332F2F2F2D2C2C2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E303030
+      3333334040404747474949494B4B4B4E4E4E5050505353535353535555555757
+      575656555656575757575556565051514F4F4F50505150505050505053535358
+      5857575757595958585858585858595959595A5A5D5D5D5D5D5E5F5F5F626261
+      6464646565656161615D5D5E6060606363636665666968696B6B6C6F6F6F7373
+      737978787D7C7C8080808383838686868A8A8A8D8D8D9190919494949898989B
+      9B9B9E9E9FA1A1A1A4A4A3A7A7A7AAABABAEAFAE9191913232321B1B1B1D1D1D
+      1E1E1E2020202222222323232424242525252626262727272727272727272626
+      2627272726262626262626262625252524242424242424242423232323232321
+      21212121212121212121212020201F1F1F1E1E1E1D1D1D1B1B1B191919181816
+      1617220D18640319B80019CF0019CB0018CA0018C90017C70016C60016C60016
+      C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA00
+      0FBA000EBA000DBB000BBD000BB9020EB20B15A21D238830346D4243524A4A45
+      4C4B424848444444444141413D3D3D3939393434342F2F2F2929292323231C1C
+      1C17171710101008080804040403030303030303030302020201010100000000
+      00000000000000000000000000001C1C1B878787A8A8A8A3A4A4A0A0A09C9C9C
+      9999989494949090908D8D8D8888888484847F7F7F7D7D7D7878787474747171
+      706D6D6D6969696565656262625E5D5E5A5A5A5656565353534F4F504D4D4D4A
+      4A4A4646464443434040403D3D3E3B3B3B3939393535363333333031302F2F2F
+      2D2D2D2A2A2A2727272626272323242323232121211F1E1F1D1E1E1C1B1B1A1A
+      1A191A1917171717171716161614151414141413141312121211111010111110
+      1011100F100E0E0F0E0E0E0D0D0D0D0C0D0D0C0C0C0C0C0C0B0B0B0B0B0B0B0B
+      0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0909090909090909090908
+      0909090808090908080808080808080808080807070807080707070707070707
+      0707070707060607070607070606060606060606060606060605050606050606
+      0506050505060606050605060505050505050505050504050404040404040404
+      0404040404040404040404040304040304030404040303030303030303030303
+      0303030303030303020302030203020302020202020202030202020202020202
+      0102020102020202020201010102010202020202010101020101010101010101
+      0101010101010101000101000101010100010100000000010000000000000000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303032323234
+      34343737373939393B3B3B3939392E2E2E2F2F2F2F2F2F2F2F2F2F2F2F393939
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383738373733333333333333333333333333
+      3333333333363636373737373737373737373737373736373736373636373636
+      3736363736363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636363536363536353536353536353536
+      3535363435363535363535363535363536353535353636363535353534353534
+      3535343535343435343534333534343534343434333433343433333534343433
+      332F2F2F2D2D2D2D2D2D2D2E2E2D2D2E2F2F2F2E2E2E3030313A3B3A44454448
+      48484B4B4B4E4E4E5151515454545656565757575757575858584F4F4F474747
+      3F3F3F3737373839383A3A393B3B3B3C3B3B3D3D3D3F403F4040404142424646
+      464B4B4B5151515959585B5B5C5C5C5C5D5C5D5F5F5F60616163636366656568
+      68686A6A6A6A6A6A64646565666669686A6C6B6C6F6F6F717272767676797979
+      807F7F8383838686868A8A8A8D8D8D9191919494949898989B9B9BA0A0A0A3A2
+      A3A6A6A6A8A8A8ABABABAFB0B07C7C7C2525251C1C1C1E1E1E20202022222223
+      2323252525262626272727282828282828292929282828282828282828282828
+      2727272727272626262626262525252424242424242424242323232323232121
+      212121212121212020201F1F1F1E1E1E1D1D1D1B1B1B191A1A18181816161316
+      1507101638001AC80019CE0019CB0018CA0018C90017C70016C60016C60016C5
+      0015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010
+      B9000FB8000FB7000EB6000DB6000BB70009B9000AB50510A919208E30346E46
+      46524E4D454B4B444646454343433F3F3F3939393535352E2E2E282828212121
+      1B1B1B1414140C0C0C0606060303030303030303030202020101010000000000
+      000000000000000000000000000B0B0B6F6F6FA9A9A9A5A5A5A1A1A19C9C9C98
+      99999595959090908D8D8D8888888484847F807F7D7D7D787878747474717071
+      6C6C6C69696A6464646061615E5E5E5A5A5A5756575252534F4F504C4B4B4849
+      494545454342433F3F403C3C3C3A3A3A3838373535353233322F302F2E2E2E2C
+      2C2C292A2A2626262625252323242222222121211F1F1F1E1E1D1B1C1B1A1A1B
+      181818171717161516151415141514151414141313121212111111111111100F
+      0F0F100F0F0E0E0E0E0E0D0D0D0D0C0D0C0D0D0C0D0C0C0B0C0B0B0B0B0B0B0A
+      0B0A0A0A0B0A0A0B0A0A0A0A0A0A090A0A0A090A0A0909090909090909090909
+      0809090908090808080808080808080708080708080708070808070707070707
+      0707070706060706070706060606060606060606060606060605060506050505
+      0506060505050505050505050505050505050505050504050404040404050405
+      0404040404040404040304040304040303040403040403030303040303030303
+      0303030203020302030302030302020303020202020302020303020202020202
+      0102020102020201020102010101010102010101010102010101010101010101
+      0101000101000001010101010100010000010101010001000101000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303232323535353737
+      373939393B3B3B3635362F2F2F2F2F2F2F2F2F2F2F2F3030303A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383838373636363333333333333333333333333333333333
+      3337373737373737373737373737373737373737373637373637363637363637
+      3636373636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363636353636353635353635353635353635
+      3436353535363536363635363635363636363535363636353535353535353536
+      3534353534353434353433353433353434353434343333343434302F2F2D2D2D
+      2E2D2D2D2D2D2E2E2E2F2F2F2F2F303131323F3F3F4747464A4A4A4E4E4E5151
+      515353535555555959595A5A5A52525242424337363635353536363637373738
+      38383939393A3A3A3C3B3C3D3D3D3F3E3E404040414141434343444545464747
+      4948484A494A4F4F4F5858585D5D5D6060606161626464636767666969696C6C
+      6C706F6F7171716D6C6D6B6B6B6F6E6F7171727575757878797B7B7C80808085
+      85858A89898D8D8D9191919494949898989B9B9BA0A0A0A3A2A3A7A7A7AAAAAA
+      AEAEADB0B0B06C6C6C1B1B1B1D1D1D1F1F1F2222222323232525252626262727
+      272828282929292929292929292929292A2A2A29292929292929292927272727
+      2727272727262626262626252525242424242424242424232323232323212121
+      2121212121212020201E1E1E1D1D1D1B1B1B1A1A1A17171716161615140C0F15
+      40001ACD001ACF0019CB0019CB0018CA0018C90017C70016C60016C60016C500
+      15C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9
+      000FB8000FB7000EB6000EB5000DB4000CB3000BB30008B60008B30811A52126
+      843C3E5F4C4C494E4E454848464343433F3F3F3939393434342D2D2D2525251F
+      1F1F191919111111090909040404030303020202020202010101000000000000
+      0000000000000000000000000000005C5C5CA9A9A9A5A5A5A1A1A19D9D9D9898
+      989595959090908D8D8C8888888484847F7F7F7C7C7C77777774747470706F6C
+      6C6C6869696463636161615C5D5D5959595556555253524F4F4F4B4B4B484848
+      4444444142413E3E3E3B3B3B3A3A3A3736373334333131312F2F2F2D2E2D2B2B
+      2B2828292726272424252323232122212020201E1D1E1D1D1C1A1A1B1A191918
+      1818171717151616151414141514141413121212111111111111111110101010
+      0E0E0F0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B
+      0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A09090909090A09090909090909090908
+      0908080808080808080808080808080808080807070707070707070707070706
+      0607070607070707060606060606070606060606060606050606060606060605
+      0605060505060505050505050404050504050404040404050505050405040404
+      0405040304040404040404040403040403030403030303030403030303030303
+      0203030303030303020303020203020302030303020202020202020202020202
+      0102020101010102010201020201020101010201010101010101010101010001
+      0101010101010001000000010000000001000100000000000001000100000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      30303030303030303030303030303030303030303333333535353737373A3A3A
+      3C3C3C3333332F2F2F2F2F2F2F2F2F2F2F2F3231323A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838343434333333333333333333333333333333353434373737
+      3737373737373737373737373737373737373737363737363736363736363736
+      3637363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363635363635363535363535363535363435
+      3636363636353636353535363636363535363636353535353535353535353535
+      343535343534343434343434343434343533343132312D2E2D2E2D2E2D2D2D2D
+      2D2D2F2F2F2F30303232314141414646464C4C4B4F4F4F535353565656585959
+      5B5B5B5151513C3C3C3434343433333434343636363737373737373939393A3A
+      3A3C3B3C3C3B3C3E3D3E403F404040404343424545454646464747484949484B
+      4B4B4D4D4E5051505353535C5C5C6362636666666969696B6C6B6E6F6E707070
+      7373737676767474747171727474747878787B7B7B7F7F7F8282838787878D8D
+      8D9191919494949898989B9B9BA0A0A0A2A2A3A7A7A7AAAAAAAEAEAEB1B1B161
+      61611C1C1C1F1F1F2020202222222525252626262828282929292A2A2A2B2B2B
+      2B2B2B2B2B2B2A2A2A2A2A2A2B2B2B2A2A2A2A2A2A2929292929292727272727
+      2727272726262626262625252524242424242424242423232323232322222221
+      21212020201F1F1F1D1D1D1B1B1B1A1A1A1818181515151513080B165C001BD6
+      001ACF001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015
+      C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B900
+      0FB8000FB7000EB6000EB5000DB4000CB2000CB1000BB10009B10007B5010AAD
+      161C9335376C4D4D4D4F4F464848464343433F3F3F3838383232322B2B2B2323
+      231C1C1C1515150D0D0D05050503030302020202020201010100000000000000
+      00000000000000000000000000004F4F4FA9A9A9A5A5A5A1A1A19D9D9D989898
+      9595959090908D8D8D8888888484847F7F7F7C7C7C7777777473746E6E6F6B6B
+      6B6767676363636060605C5B5C5858585454555251514E4E4E4A4A4A47474744
+      44444241423E3F3E3B3B3B3939383636363233333031312F2F2F2D2D2D2A2A2A
+      2827272625252324242222222121211F1F1F1E1E1E1C1C1C1A1A1A1A19191717
+      171616161415141515141415151313131212121111111111111010100F100F0F
+      0E0E0D0D0D0D0D0D0D0D0D0D0D0D0B0C0B0B0C0C0B0B0B0B0B0B0B0B0B0B0A0A
+      0B0B0A0A0A0A0A0A0A0A0A0A0A0A0909090A09090A0909090909090908080808
+      0808080808080808080708070807070807070808070707070707070707070707
+      0706070706070706070706060606060706060606060606050605060506050606
+      0505060506050505050505050505040504050405050505040504040505040404
+      0404040404040404030404040404040403030303040404040303030303030303
+      0303030302030303020202020203020203030302030202020202020202010202
+      0102010102020201020201010102010201010201010101010101020001010001
+      0101010101010101010101000000000000010001000101010000000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303030303030303333333636363838383A3A3A3C3C3C31
+      31312F2F2F2F2F2F2F2F2F2F2F2F3534343A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383833333333333333333333333333333333333336353537373737373737
+      3737373737373737373737373737373737373736373736373636373636373636
+      3736363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636363536363536353536353536363636363636
+      3636363636353636363635353536363636363535353535353534353534353535
+      3534343534343534333534343332322E2D2D2D2E2E2E2D2D2E2E2E2F2F2F3030
+      303434344243434848474B4B4C5050515555555958585A5B5A5656563D3D3D33
+      33333333333334343535343536353636363837373838383939393B3B3B3C3C3C
+      3E3E3E3F3F3F4040404342434444444645454747474949494C4C4C4E4E4E5050
+      4F5352525555555656565A5A5A636363696A6A6C6C6C6F6F7072737276757579
+      79797C7C7C7B7B7B7777787B7B7B7E7E7E8282838585868A8A8A8E8E8E949494
+      9797979B9B9BA0A0A0A3A3A3A7A7A7AAAAAAAEAEAEAEAEAD5655551D1D1D1F1F
+      1F2121212424242626262727272929292A2A2A2B2B2B2C2C2C2C2C2C2C2C2C2C
+      2C2C2B2B2B2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929292929272727272727
+      2727272626262626262525252424242424242424242323232323232121212020
+      201F1F1F1E1E1E1B1B1B191919171717151515151308091879001CDD001ACE00
+      1ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C3
+      0015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000F
+      B8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000AB00007B200
+      07B013189735386C4D4D4D4E4E464848474242423C3C3C3636362E2E2E272727
+      1F1F1F1919191010100808080303030202020202020101010000000000000000
+      00000000000000000000000000414141A5A5A5A5A5A5A1A1A19D9D9D98999895
+      95959090908C8C8C888888848383807F807B7B7B7777777273726F6F6E6A6A6A
+      6666666262625E5F5F5A5B5B5858585354534F504F4D4D4D4A494A4646464444
+      444140413D3D3D3B3A3B3838383635353232332F302F2E2E2E2C2C2C2A292A26
+      27272424252324232222222020201D1E1E1D1D1D1B1A1A1A1919181818171717
+      1516161514141515151314131212121111121111111010100F0F100E0F0E0F0E
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0B0C0B0B0B0C0B0B0B0B0B0B0B0A0B0A0B0A0A
+      0A0A0A0A0A0A0A0A0A0A0A090A09090909090909090909090909080909080808
+      0808080708080808080808080808080708070807070707070707070707060707
+      0706070706070606060606060606060606060606060606060605060505060506
+      0605050505050505050505040505040505040504050404050404040405040404
+      0404040404040303040304040403030303030304030303030303030303030203
+      0302030303020302030203030303030302030202020202020302020202020202
+      0202020101020202010201010101010101010101010101020101010101010101
+      0001010001010100010001010100000101000100000001000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303434343636363838383A3A3A3D3D3D2E2E2E2F2F
+      2F2F2F2F2F2F2F2F2F2F3636363A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373636
+      3333333333333333333333333333333333333737373737373737373737373737
+      3737373737373737373737373737373737373637373637363637363637363637
+      3636363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363636353636353635353636363736363636363636
+      3636353636363636363636353536363536363536353535353435353436343435
+      34343534343434342E2E2E2E2E2D2E2D2E2D2E2D2E2E2E313130343434444444
+      4949494D4C4D5151505657565B5B5A5C5C5C4A4A4B3535353333333333333434
+      343535353534353636363838383738383939393A3A3A3C3C3C3D3D3D3E3D3E40
+      40404242424444444545454747474A49494A4A4A4D4D4D4F4F4F525251545353
+      5756575858595B5B5C5E5E5E6464646D6D6D7172727574757878777A7A7A7F7F
+      7F8181818181817D7E7E81818285858589898A8C8C8D9090919696969B9B9B9F
+      9F9FA3A3A3A7A7A7AAAAAAAEAEAEAEAEAE5353531F1F1F202020222222242424
+      2727272828282A2A2A2B2B2B2D2D2D2D2D2D2E2E2E2D2D2D2D2D2D2D2D2D2C2C
+      2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929292927272727272727
+      27272626262626262525252424242424242424242323232222222121211F1F1F
+      1E1E1E1C1C1C191919161616151513141311061994001CDA001BD0001ACE001A
+      CE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C300
+      15C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8
+      000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE0007
+      B10007AF121896383A684F4F4A4D4D464646464040403A3A3A3232322B2B2B22
+      22221C1C1C1313130A0A0A040404020202020202010101000000000000000000
+      0000000000000000000000003E3E3EA6A6A6A5A5A5A1A1A19D9D9D9898989494
+      949090908C8C8C8787878283837E7F7E7A7A7A7676767272716E6E6D696A6A66
+      66666262625E5E5E5A5A5A575757535253504F4F4C4C4C494949454545434242
+      3F3F3F3C3C3C3A3A3A3736373434343231312F302F2D2D2E2B2B2B2929292726
+      272323242323232222211F1F1F1E1E1E1C1B1C1A1B1A19191917171817171715
+      15151514151515151413131312121111111111111010100F0E0F0E0E0E0D0D0E
+      0D0E0D0D0D0D0D0D0C0C0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0A0A
+      0A0A0A0A0A0A0A0A0A0909090909090909090909090808090908090908080808
+      0809080808080808070807080708070707070807070707070607070707060607
+      0707060706070606070606060706060606060606060506050605060606060505
+      0505050505050505050505050505050405050404040504040404040404040404
+      0404040403040403040403030303040404040303030303030403030303030303
+      0303030302020203020303030302030302020302020202020202020202020201
+      0101010201020101010201010101010201010101010101010101010101010001
+      0001010001010001010101010100000000000100000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303030303131313434343636363939393B3B3B3B3B3B2E2E2E2F2F2F2F2F2F
+      2F2F2F2F2F2F3737373A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383835353533333333
+      3333333333333333333333343434373737373737373737373737373737373737
+      3737373737373737373737373737373737363737363736363736363736363736
+      3636363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363636363635363636373636373636373636363636363636
+      3635353636363535363536353535353535353535353535353535343534343534
+      343030302E2D2E2E2E2D2D2D2E2E2E2E3030303332334242414A49494D4D4D52
+      52525757575A5A5A5B5B5B3E3E3F313232333233333433333334353434353535
+      3636363838383837373838383939393C3C3C3C3C3C3F3E3E4040404141414243
+      43454544474647484948494A494C4C4C4E4E4E5151515352525655555858575B
+      5A5B5D5D5E6061606363636767677170717776777979797C7C7C818181848484
+      8888888585858585868888888C8C8D8F8F909494949898989D9D9DA3A3A3A6A6
+      A6AAAAAAAEAEAEAEAEAE5454541F1F1F2121212323232626262828282A2A2A2C
+      2C2C2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2C2C2C
+      2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929292929292727272727272727
+      272626262626262525252424242424242424242323232222222020201E1E1E1B
+      1B1B1A1A1A171717151412131417031AAE001CD8001CD1001BD0001ACE001ACE
+      001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015
+      C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB800
+      0FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAD0009AD
+      0006AF0007AC191E8D42425E5151474A4A474343433D3D3D3636362D2D2D2626
+      261E1E1E1515150D0D0D05050502020202020201010100000000000000000000
+      00000000000000000000003E3E3EA5A5A5A5A5A5A1A1A19C9C9C989899939393
+      8F8F8F8B8B8B8686868283827E7E7E7A7A7A7575757271716D6D6D6A69696564
+      646161615D5C5D5959595556555151514F4F4F4B4B4B4747474444444242423E
+      3F3E3B3B3B3939393636353332323031312F2F2F2C2C2C2A2B2A272828262526
+      2423242222232121211E1E1E1D1D1D1B1B1B1A1B1A1818181717171616161515
+      15141414141313121212121111111111101010100F100F0F0F0D0E0E0D0D0D0D
+      0D0D0D0D0D0B0B0C0B0C0C0B0B0B0B0B0B0B0B0B0B0A0B0B0A0B0A0A0A0B0A0A
+      0A0A0A0A0A0A090A09090A090909090909090909090909090909080908090808
+      0808080808080807080708070807070807080707070707070707070706060707
+      0607070606060606060606070606060606060605050605060605050606050505
+      0505050605050505050405050504050505050504040505050504050404040304
+      0404040404040404040403030403030303030303030303030303030203030303
+      0203020202020203020302020302020202020202020202020202020202020202
+      0202010201010102010101010101010201020101010101010001010101010101
+      0001000100010101010001000001000000000000000000000000010100000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      303131313434343737373939393B3B3B3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F
+      2F2F3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383434343333333333333333
+      3333333333333335353537373737373737373737373737373737373737373737
+      3737373737373737373737373737373736373736373636373636373636373636
+      3636363636363636363636363636363636363636363636363636363636363636
+      3636363636363636363637363637373637363637363637363636363636363636
+      36363535353636363636353636353635353535353635343534343332322E2E2E
+      2E2E2E2D2E2E2E2F2F2F2E2F3132324242424848494D4D4E5252525656565B5B
+      5B5C5B5C3A3A3A31313132323233333434333434343434343436353537373738
+      38383837373A3A3A3B3B3A3C3C3C3D3D3E3F3F3F404040424242444444454545
+      4848484A494A4B4C4B4E4E4E5050505353535555555757575A5B5A5D5D5C5F5F
+      5F6262626565656969696B6B6B7576757C7B7C7E7F7F8283838686868A8A8A8E
+      8E8E8A8B8B8C8C8C8F8F8F9494959797979C9B9CA0A0A0A6A6A6AAAAAAAEAEAE
+      B2B2B25757571F1F1F2121212424242727272929292B2B2B2D2D2D2E2E2E2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C
+      2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929292929272727272727272727
+      2626262626262525252424242424242323232222222121211E1E1E1B1B1B1919
+      19181818161511121423011CC9001DD6001CD2001CD1001BD0001ACE001ACE00
+      1ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C2
+      0014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000F
+      B7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAC00
+      08AC0005AF050AA6292C7B4D4D4F4E4E47454545404040393939303030272727
+      2020201717170E0E0E0707070202020202020101010000000000000000000000
+      00000000000000000000414141A9A9A9A5A5A5A1A1A19C9C9C9898979393938E
+      8E8E8B8B8B8585858182827D7D7D7878787474747070706C6C6C676767646363
+      6060605B5B5B5858585455545051504D4D4D4A4A4A4747464444444041403E3E
+      3D3A3A3A3838383535353332333030302E2D2E2C2C2C29292927272725252423
+      23232221211F1F1F1E1E1E1C1C1C1B1B1B19191A171817161616151515151515
+      1515151313121111121112121111111010100E0E0F0F0F0E0E0D0D0D0D0D0D0D
+      0D0D0D0D0B0C0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0B0B0A0A0A0A0A0A
+      0A0A0A090A0A0A09090909090909090909080908090809090808080808080808
+      0808080807080808080808080707070707070707070707070607070607070606
+      0607060706070707060606060606060605050606050606060605050505050505
+      0506050505050505040505040504040505050404040404050404040404040404
+      0403040403040304030404040403030304030303030303030303030303030303
+      0302030303030302030202030202020203020203020202020202020102020202
+      0102020202020202010101010202010201010101010101010101010101010101
+      0001010100010001010100000100000000000000010000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030323232
+      3535353737373939393B3B3B3737372E2E2E2F2F2F2F2F2F2F2F2F2F2F303A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838333333333333333333333333333333
+      3333333636363837373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373637373637363637363637363637363636
+      3636363636363636363636363636363636363636363636363636363636363636
+      3636363636363737373737373737363736363736363636363636363636363636
+      363636363636363636353636353535353535353435342E2F2E2E2E2E2E2E2E2E
+      2E2E2F2F2F3030303D3D3D4847474D4D4C5252525756565C5B5B5B5B5B3A3A3A
+      3130313132323332333333333333333434343536363636363838383838383938
+      39393A393C3C3C3D3C3D3E3F3E4040404141414343444545454647474949494A
+      4B4A4E4D4E4E4F4F5151515353535757575859595B5C5C5F5F5F616162646464
+      6768676B6B6B6E6E6E7272727A7A7A8182818584848989898C8C8D9090909494
+      949090919393949697979B9B9C9F9E9FA3A3A3A8A8A8ADADADB2B2B263636320
+      20202222222525252828282A2A2A2C2C2C2E2E2E2F2F2F2F2F2F313131313131
+      3131313030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C
+      2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929292927272727272727272726
+      26262626262525252424242424242323232121211F1F1F1C1C1C191919171717
+      16150F0F163C001ED2001DD6001DD3001CD2001CD1001BD0001ACE001ACE001A
+      CD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C200
+      14C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7
+      000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009
+      AB0007AC0003AF1216963E40625150474848464242423A3A3A3232322A2A2A22
+      2222181818101010070707020202010101010101000000000000000000000000
+      0000000000000000004E4E4EA9A9A9A5A5A5A0A0A09B9B9B9797979393938D8D
+      8D8A898A8585858081817C7C7C7777777474746F6E6F6B6B6B6667666262625E
+      5E5E5B5B5B5757575253524F4F4F4C4C4D4949494545454342433F3E3F3C3B3B
+      3939393737373434343031302F2F2F2D2D2D2A2A2A2828282625262424242323
+      232121211E1E1E1D1D1D1B1A1B1B1A1B18181818171716171615151515151414
+      14141213131112111111111010100F0F0F0F0F0F0E0D0D0D0D0D0D0D0D0D0D0D
+      0C0C0C0C0C0B0B0B0C0B0B0B0B0B0B0B0B0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A
+      090A0A0A09090A09090909090909090809090908090909080908080908080808
+      0808080808070808080808070707070708070707070707070707070706070707
+      0707060606070606070606060606060605060505060606060505050606050505
+      0505050505050505050504050505050505050404050404040404040404040403
+      0403040304030304030404030303030303040303030303030303030303030302
+      0302030302030202020302030302020202020202020202020202020202020202
+      0202020101010102010101020101020101010101010101010101010101010101
+      0001010101010001010100000000000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303032323235353537
+      37373A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F3232323A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383838383838383838383838383838383838383838
+      3838383838383838383837373733323233333333333333333333333333333338
+      3737383737383737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737363737363736363736363736363736363636
+      3636363636363636363636363636363636363636363636363636363636363637
+      3636373737373737373737373736373636363636363636363636363636363535
+      3535363635353635353635343635353131322E2E2E2F2E2E2E2E2E2F2F2F3030
+      303635364847474C4C4C5151515757575B5C5C5C5B5B39393931313131313132
+      32323332323433333434343534353635353838383838383838383A3A3A3B3C3C
+      3C3C3C3E3E3D403F404140414344434545454646474848484A4A494D4D4D4F4F
+      4F5252515353535656575958585B5B5B5E5E5E6161606464636766666969696D
+      6E6D7070707474747777778080808787878A8B8A8F8F8F939393979797989898
+      9797979A9A9A9E9E9EA3A3A3A6A6A7ABABABB2B2B27070702020202323232626
+      262828282B2B2B2D2D2D2F2F2F30303031313132323232323232323232323232
+      32323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C
+      2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929292929292727272727272727272626
+      262626262525252424242323232222222020201D1D1D1A1A1A17171717150B0D
+      1858001EDB001ED6001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD
+      0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C20014
+      C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB700
+      0EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB
+      0008AA0004AE0208A72A2D794F4F4B4B4B464343433C3C3C3434342B2B2B2323
+      2319191911111108080802020201010101010100000000000000000000000000
+      00000000000000005D5D5DA9A9A9A4A4A49F9F9F9B9B9B9696969191918D8D8D
+      888888848484807F807B7B7B7676767272726E6E6E6A6A6A6565666161615D5D
+      5D5959595656565152524E4E4E4B4C4B4747474444444242423F3E3E3B3C3B39
+      3939363636333233302F2F2E2E2E2C2D2C2A2A2A272727242525232323222121
+      2020211E1E1E1C1C1C1B1A1B1A191A1817181717171516161515151414141312
+      131112111111121010111010100F0F0F0E0D0E0D0D0D0D0D0D0D0D0D0C0C0C0C
+      0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A
+      0A0909090A090909090909090909090808090908090808080808080808080808
+      0808080808080808070708070707080707070706070706070707060606070707
+      0707060607060706060606060606060606060605050505060505050505050505
+      0505050505050405050405040504050405040504040404040404040404040403
+      0404040304030404030304040303030404030304030303030303030303030302
+      0202030203020303020202020202020202020202020202020202010102010102
+      0102020101020102010101010101020101010101010101010101010101000101
+      0100000000000001000000000000000100010000000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303333333535353737373A3A
+      3A3C3C3C3333332F2F2F2F2F2F2F2F2F2F2F2F3232323A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383635353332323332323333333333333333333434343837373837
+      3738373738373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373736373736373636373636373636373636363636
+      3636363636363636363636363636363636363636363636363636363737373737
+      3737373737373737373737373636363636363636363636363636353636363635
+      36363536353636353434342F2F2E2F2E2F2E2F2E2E2E2E2F2F2F323232434343
+      4B4B4B504F505656565A5A5B5D5E5E3D3C3C3131313131313232323233333434
+      343434343435343636353736363737373839393939393A3A3A3C3C3C3D3D3D3F
+      3F3F4040414242414343444545454848484A4A4A4C4C4C4E4E4E505050535252
+      5454545758575B5A5A5D5D5E60606063636265666669696A6C6C6D6F706F7273
+      727878777A7A7A7E7E7E8686868D8D8D9191919595959A99999D9D9D9D9D9D9E
+      9E9EA1A1A1A6A5A6AAABABAFAEAF7F7F7F2222222323232626262929292C2C2C
+      2E2E2E3030303131313232323434343333333333333333333333333232323232
+      323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C
+      2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929292929272727272727272727262626
+      2626262525252323232222222020201E1E1E1B1B1B1818181715090B1A77001F
+      E4001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD00
+      19CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C20014C1
+      0014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000E
+      B6000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB00
+      09AA0006AB0003AD191D8D4648554D4D454545443D3D3D3535352C2C2C232323
+      1B1B1B1212120909090202020101010101010000000000000000000000000000
+      00000000010101707070A8A8A8A3A4A49E9E9E9A99999696969091908C8C8B87
+      87878382837E7E7E7A7A7A7474747071706C6C6C6869686464636060605C5C5C
+      5858585554555050514D4D4D4A4A4A4646464344444040403D3D3C3A3A3A3737
+      373535353132323030302E2E2D2A2A2A2829282626252424242223232222221E
+      1E1E1D1D1D1B1B1B1A1A1A191918181717161616151515151515141414131313
+      1111121112111010100F0F0F0F0F0F0E0D0E0D0D0D0D0D0D0C0C0C0C0C0C0C0C
+      0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0A0A0A0A0A090A0A0A0A0A0A
+      0A09090909090909090909090909090808080809090808080808080808070808
+      0808080708070808070807070807070707070607060707060606060706070707
+      0706060706060606060605060605060605050506050506050605050606050505
+      0505050504050504050404050405050404050404040404040404040404040304
+      0404040404030303040403030303030303030303030303030303030203020203
+      0202030302020202020202030302020202020202020202020201020102020202
+      0202010201010201010101010101010101010101010101010101010001010100
+      0101000101010001000000000001010100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      30303030303030303030303030303030303333333636363838383A3A3A3C3C3C
+      3232322F2F2F2F2F2F2F2F2F2F2F2F3534353A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838353434333232333232333232333333333333353535383737383737383737
+      3837373837373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373637373637363637363637363637363636363636
+      3636363636363636363636363636363636363636363636373737373737373737
+      3737373737373736363636363636363636363636363636363536363636353536
+      353636353231312E2E2E2E2E2E2E2F2E2F2F2F3030303C3C3C4949494D4E4E54
+      54545A5A595E5E5E454546303131323231313231323232333334343434343434
+      3534353636363736363938393838393A3A3B3D3C3C3C3C3D3E3E3E4040404141
+      414443444545454747464848484A4A4B4D4D4D4F4F4F52515253545456565758
+      59585C5C5C6060606262626564656868676C6C6C6F6E6F737273757576797979
+      7C7C7C8080808686858E8F8F9493949898989C9C9CA1A1A0A4A4A4A1A1A1A5A6
+      A6AAA9AAADAEAE9393932929292323232727272929292C2C2C2F2F2F30303032
+      3232333333343434343434343434343434333333333333333333323232323232
+      3030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C
+      2C2B2B2B2B2B2B2A2A2A2A2A2A29292929292927272727272727272726262625
+      25252424242222222020201E1E1E1B1B1B191918171610071C940020E3001FD7
+      001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD0019
+      CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C20014C100
+      14C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6
+      000EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009
+      AA0007AA0003AE0B109D3C3D614F4E454545443E3E3E3535352D2D2D2424241B
+      1B1B121212090909020202010101010101000000000000000000000000000000
+      0000000A0A0A888888A7A7A7A3A3A39E9E9E9999989494948F8F8F8B8B8B8686
+      868182817D7D7D7878787474746F6E6E6B6B6B6767676362625E5E5E5B5B5B57
+      56575252534F4F4F4C4C4D4949484444444242413F3F3F3B3C3C393939363636
+      3333332F2F302E2E2E2D2D2C2A2A2B2827272525252323232121222020211E1F
+      1E1C1C1C1B1B1B19191917181817171616151516151514141413121212121212
+      12121110101011100F0F0F0E0E0E0D0D0E0D0D0D0D0D0D0C0C0C0C0C0C0C0C0C
+      1211111312131313131313121312121212131212121212121112121212111111
+      120E0E0F0D0D0D0D0D0D0D0D0C0A0A0B09080908080809080808080808080807
+      0808080808070807070807070708070707070707070706060707060707060706
+      0606070606060606060606060605060606050605050506050506050505050505
+      0505050505050505050505050404050405050404040504040404030404030404
+      0304040403040403040403040403030303030303030303030303030303030203
+      0202020303020202020202020202020202020101020102020202020202020201
+      0201020101020101010101020101010201010101010101010101010100010001
+      0101000000000001010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303030303434343636363838383A3A3A3C3C3C3030302F
+      2F2F2F2F2F2F2F2F2F2F2F3534353A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383434
+      3433323233323233323233323233333336363638383738373738373738373738
+      3737383737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737363737363736363736363736363736363636363636
+      3636363636363636363636363636363637373737373737373737373737373737
+      3737363636363636363636363636363636363636353636363535353635353535
+      2E2F2F2F2F2F2E2E2F2E2E2E2F302F3333334545454C4C4C5151515757575C5D
+      5D53535230313030303132323132313232323334343434343434343436363635
+      3536383837383939393A393A3A3A3C3D3C3D3D3D3F3F3F414141424242444443
+      4646464948494A4A4A4D4D4D4E4F4E5151515353535656565858585B5B5C5E5E
+      5E6161616464646767676A6A6A6E6E6E7171707474757878787C7C7D807F7F84
+      84848787878D8D8D969696999A999E9E9EA3A3A3A7A7A7A9A9A9A8A8A8ADADAD
+      A3A3A43737372424242727272929292D2D2D2E2E2E3131313333333434343535
+      3535353535353535353535353534343433333333333333333332323232323230
+      30303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C
+      2B2B2B2B2B2B2A2A2A2A2A2A2929292929292727272727272727272626262525
+      252323232121211F1F1F1D1D1D1A1A18171716061DA40020E7001FD8001FD700
+      1ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD0019CB
+      0019CB0018CA0018C90017C70016C60016C60016C50015C30015C20014C10014
+      C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB600
+      0EB5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA
+      0008A90004AC0509A532346C4E4E454646443E3E3E3535352D2D2D2424241B1B
+      1B12121208080802020201010101010100000000000000000000000000000000
+      00001A1A1A9B9B9BA6A6A6A1A1A19C9C9C9898979393938D8D8D898988858585
+      80807F7B7B7B7777777272726E6E6E6969696566666161615D5D5D5858585656
+      565152514E4E4E4B4B4A4747474444444141403E3E3E3B3B3A38393935353532
+      3232302F302E2E2E2A2A2A2829282626262424242323222222221E1F1F1D1D1E
+      1B1B1B1A1A1A1818171818181616161516151515151313131212121212111010
+      101110100F0F0F0E0E0E0E0E0E0D0E0D0E0D0D0C0C0C0C0C0C0F0F0F191A1919
+      191A1A1A1A1A1A1A1A1A1A1B1B1A1A1A1A1B1A1A1A191A1A1A1A1A19191A1A19
+      191A191919191919191918181919191819191615151414141313131111110D0C
+      0D0C0B0C08070707070807080707070707070707060707060606070607060706
+      0606060607060606060506060506060505050505060605050505050505050505
+      0505050505050404040404040405040405040404040404040304040404030403
+      0303030403030304030303030303040303030303030303020303020202030303
+      0303020202020202020202020202020202020201020202010102020201010201
+      0101010101020102020201010201010101010101010101010101010101010001
+      0000010001010100000000000000010001000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303434343636363838383A3A3A3D3D3D2E2E2E2F2F2F2F2F
+      2F2F2F2F2F2F2F3837373A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838323232323232
+      3332323332323332323332323737373838373838373837373837373837373837
+      3738373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373736373736373636373636373636373636363636363636
+      3636363636363636363636363737373837373737373737373737373737373636
+      363636363636363636363636363636363636363636363535363232332F2F2F2F
+      2E2E2F2F2E2F30303030303E3E3F4949494F504F5555555B5B5B5E5E5D373737
+      3130303231323232323332323333333434343434343536353536363736373939
+      383939393B3A3B3B3B3C3C3C3C3E3F3E4040404141414344444545454747464A
+      494A4B4A4B4D4D4E504F505252525454545757575A5A5A5D5D5D606060636363
+      6565666969696C6C6C6F6F6F7372737677767A7B7A7E7E7F8182818686868A8A
+      8A8D8E8D9696969D9C9DA1A1A0A5A5A5AAAAAAAFAEAEACACACADADAD4D4D4D24
+      24242626262929292D2D2D303030323232343434353535363636363636363636
+      3636363636363535353535353434343333333333333333333232323232323030
+      303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B
+      2B2B2B2B2B2A2A2A2A2A2A292929292929272727272727272727252525242424
+      2222222020201E1E1E1B1B1B191814131733041EB10020E5001FD8001FD7001E
+      D6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD0019CB00
+      19CB0018CA0018C90017C70016C60016C60016C50015C30015C20014C10014C0
+      0013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000E
+      B5000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA00
+      08A90005AB0005AA292C764D4C474646433E3E3E3535352D2D2D2424241B1B1B
+      1111110808080202020101010101010000000000000000000000000000000000
+      00343434A6A6A6A5A5A5A0A0A09B9B9B9696969191918D8D8D8888888282827F
+      7F7E7A7A7A7574747171716C6C6C6768686363635F5F5F5C5C5B585858545454
+      50504F4D4D4D4A49494545454242423F3F3F3B3C3B3939393736363433333131
+      312E2E2E2C2C2C2B2A2A2727272526252323232222221F20201E1F1E1C1C1C1B
+      1B1B191919181817161617161516161515141415131313121211121111101010
+      0F0F0F0F0F0F0E0E0E0D0E0D0E0E0D0C0D0C0C0C0C141414191919191A1A1A1A
+      1A1A1A1A1B1B1B1B1B1B1B1B1C1B1B1B1B1B1B1B1B1B1A1B1B1A1A1B1A1B1A1A
+      1A1A1A1A1A1A1A1A19191A1A1A1919191A1A1919191919191919191919191918
+      1918191616161415141010100C0C0C0909090707060707070606070607060607
+      0607060706060606050606060605050605050505050505050505050505050505
+      0505050505040405040405050505040504040405040404040404040404040303
+      0303040303040403030303030303030303030303020302020303030203030302
+      0202020203020202030202020202020202020201020202020202010102010101
+      0102010201010101010101010201010101010101010101010100010001010101
+      0001010000010100000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303030303434343636363939393B3B3B3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F
+      2F2F2F3837373A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383837373732323232323232323233
+      3232333232333232383838383838383837383837383737383737383737383737
+      3837373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373637373637363637363637363637363636363636363636
+      3636363636373636383737383737383737373737373737373737363636363636
+      3636363636363636363636363636363635363536362F30302F2F2F2F2F2F2E2E
+      2F30302F3332334646464C4B4C5252525859585D5D5D48484731313131313032
+      3232323131333333333333343434343434353535363636383837393939393A3A
+      3B3B3A3D3C3D3D3D3D3F403F4141414342434444444646464949494A4A4A4C4D
+      4D4F4F4E5151515353535656565959595C5C5C5D5D5E6161616565656868686A
+      6A6B6F6F6F7272727676767979797C7D7D8081818586858989898D8D8D919191
+      9696969F9F9FA4A4A3A8A8A8ACADACB1B1B1B4B4B46D6D6D2323232727272929
+      292D2D2D30303033333335353536363637373737373737373737373737373736
+      3636363636353535353535343434333333333333333333323232323232303030
+      3030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B
+      2B2B2B2B2A2A2A2A2A2A29292929292928282827272726262625252523232321
+      21211E1E1E1C1C1C1A191A19170F14161E071C9C0020E4001FD9001FD7001ED6
+      001ED5001DD4001DD3001CD2001CD1001BD0001ACF001AD0001AD00019D30019
+      CE0018C90018C90017C70016C60016C60016C50015C30015C20014C10014C000
+      13BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5
+      000DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0008
+      A90006AA0004AC22257E4B4B464646433D3D3E3535352C2C2C2323231A1A1A10
+      1010070707020202020202010101000000000000000000000000000000000000
+      595959A9A9A9A4A4A39E9E9E9999999595959190908B8B8B8686868282827D7D
+      7D7978787474746F6F6F6A6A6A6767676262625F5F5F5959595655565352534E
+      4E4E4A4B4B4747474444444141413D3E3D3B3A3A393838353635323232303030
+      2E2E2E2B2B2A2929282626272424242323232120211E1F1F1D1E1E1B1B1B1A1B
+      1A181818171717161616151615141414131313121212121212111111100F0F0F
+      0F0F0E0E0E0E0E0E0E0D0D0C0C0C0E0D0D1818181A1A1A1A1A1A1A1B1B1B1B1B
+      1C1C1C1C1C1C1B1C1C1C1B1C1C1B1B1B1B1B1B1B1B1A1A1B1B1A1A1A1A1A1A1A
+      1A1A1A1A1A1A1A1A1A191A1A191A191919191A19191919191919191919191818
+      19181919191818191818181918181818181414141011110E0D0D070606070706
+      0606060606060606050606060606050605050505060505050505060505050505
+      0505050505050505050504050405040504040404040404030403040404040304
+      0403030403040403030403040303030303030203030302030303030303020303
+      0202020202020202020202030202020202020202020202020102020202010202
+      0102010101010101010201010101010101010101010001000101010100010101
+      0100000001010000000000000000000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303131
+      313434343737373939393B3B3B3939392E2E2E2F2F2F2F2F2F2F2F2F2F2F2F39
+      39393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383737363232323232323232323232323332
+      3234333338383838383838383838383738383738373738373738373738373738
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737363737363736363736363736363736363636363636363636
+      3637373738383738373738373738373737373737363636363636363636363636
+      36363636363636363636363636363535352F2F2F2F2F2E2F2E2E2F3030313031
+      3B3B3C4848494E4E4E5655555B5A5A5C5C5B3434343131313131303131313231
+      323233333535353434343435343637363737373939393939393B3B3B3B3C3C3D
+      3C3C3F3E3F4040414142414544454545454747474A4A4A4B4B4B4D4E4D4F5050
+      5353535554555757585B5A5A5D5D5D6060606263636767676A6A6A6D6D6D7071
+      707373737878787C7C7C8080808384848787878B8C8B8F8F8F9493939898989F
+      9F9FA6A6A6ABABABAFAFAFB4B4B49494942727272626262929292D2D2D303030
+      3333333535353737373838383838383838383838383838383838383636363636
+      3636363635353535353534343433333333333333333332323232323230303030
+      30303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B
+      2B2B2B2A2A2A2A2A2A2929292929292727272727272525252424242222222020
+      201D1D1D1B1B1B191A1A181710161513081C950020E5001FD9001FD7001ED600
+      1ED5001DD5001DD6001CD7001CDB001CDB001ACF0119C20417A10119BD0019CF
+      0018C90018C90017C70016C60016C60016C50015C30015C20014C10014C00013
+      BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB500
+      0DB4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A9
+      0006AA0003AC21257D4B4A454544413C3C3D3434342B2B2B2222221919190F0F
+      0F06060602020202020201010100000000000000000000000000000005050582
+      8282A8A7A7A2A1A29D9D9D9999999393938F8E8E8989898484847F807F7B7B7B
+      7677777272726D6D6D6A696A6363646060605D5C5C58585855555550504F4D4D
+      4D4A4A4A4545464343433F3F3F3C3C3C3939393636363333333131312E2E2E2C
+      2C2D2A2A2B2728282525262323232222222020201F1F1E1D1D1C1B1C1B191919
+      1818181516151615151615161313131212121212121111111110100F0F0F0E0E
+      0E0E0E0E0E0E0D0D0E0E1111111919191A1A1A1B1A1A1B1C1C1C1C1C1C1C1C1D
+      1D1D1C1D1D1D1D1C1C1C1C1C1C1C1C1C1C1C1C1C1C1B1C1C1C1B1C1B1B1B1B1B
+      1B1B1B1B1B1B1B1B1A1A1B1B1B1A1B1A1B1A1A1A1A1A1A1A1A1A1A19191A1918
+      19181819191919191A191919191A1A1A1B1B1B2020200A0B0B07060607070606
+      0606060606060606050605050605050505060605050505050505050505050505
+      0505050405050504040404040404050404040404040404040404030404030304
+      0404030303040404030403030303030303030303030202020303020302020203
+      0202020303020202020202020202020202020202010202020202020101010101
+      0202010101010101010101010101010101010100000100010001010100010000
+      0101000100010100010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030313131353535
+      3737373939393B3B3B3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3B3A3A3B3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838363535323232323232323232323232323232343434
+      3838383838383838383838383838373838373837373837373837373837373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373736373736373636373636373636373636363636363636373737
+      3838383838373837373837373837373636363636363636363636363636363636
+      363636363636363636363333332F2F2F2F2E2F2F2F2F2F302F3031304443434B
+      4A4B5151515757575D5D5D4A4A4A313131313131323232323231333333333434
+      3535343534353635363736363839393939393939393B3B3B3D3D3C3E3E3E3F3F
+      404141414242434445454647464949494A4A4A4D4D4D4F4F4F52525254545457
+      57575A595A5C5C5C605F5F6262626565656768686C6C6C6F6F6F737373777676
+      7A7A7A7E7E7E8282828685868A8B8A8F8E8F9494939897979B9B9BA0A0A0A8A8
+      A8AEAEADB2B2B2AEAEAE3A3A3A2626262929292D2D2D30303034343435353537
+      37373838383A3A3A393939393939393939383838383838383838363636363636
+      3636363535353535353434343333333333333333333232323232323030303030
+      303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B
+      2B2B2A2A2A2A2A2A2929292929292727272626262525252424242222221F1F1F
+      1D1D1D1B1B1B191919181712161515081C950020E4001FDD001FE0001FE3001E
+      DA011DCE031BB60619910916690C13440F11221010090A1352001AD10019CC00
+      18C90018C90017C70016C60016C60016C50015C30015C20014C10014C00013BF
+      0013BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000D
+      B4000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A900
+      06AA0003AC20247C4A49444443413C3C3C3333332A2A2A2121211717170D0D0D
+      0404040202020202020101010000000000000000000000000000001B1B1BA0A0
+      A0A6A5A5A1A1A19B9B9B9696969191918D8D8D8888888383837E7E7E7A7A7A74
+      74757070706B6B6B6767666363635E5F5E5A5A5A5656565353534F4F4F4C4C4C
+      4747474445454242423E3E3E3B3B3A3839393536363232333030302E2E2E2B2B
+      2B2928292626262424242323232121211F1E1E1D1C1D1C1B1C1A1A1A18181817
+      17171616161616161515151313131212121212121110110F100F0F0F0F0F0E0E
+      0E0E0E0D0E0D1818171A19191A1B1A1B1B1B1D1C1D1A1A1A1414151515161515
+      161515151515151515151514151818181818181718181718171B1A1A1B1B1B1B
+      1B1B1A1B1B1B1B1B1A1B1A1B1B1B1A1A1A1A1A1A1A1A1A1A191A1A1A1A1A1A19
+      1919191A1A191A1A1A1B1B1B2020202626261211110607070607060606060606
+      0606060606060606050606060605060505060506050505050505050505050505
+      0505040505050404050404040404040404040404040404040404040404040304
+      0404030303030303030303030303030303030203030303030303030203030302
+      0202020202020202020302010202020202020202010101010102020202020202
+      0101010101010101010102010101010101010100000100000100000001010000
+      0001010000010000010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303031313135353537373739
+      39393B3B3B3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3B3A3A3B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383835353532323232323232323232323232323235353538383838
+      3838383838383838383838383837383837383737383737383737383737383737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373637373637363637363637363637363636363638383838383838
+      3838383837383737373737363636363636363636363636363636363636363636
+      3636363636363130312F2F2F2F2F2F2F2F2F3030303435354747474D4D4D5453
+      545A5A5A5E5E5E37373731313231313132323232323233333334343434353434
+      353536373637363638383839393A3A3A3B3C3C3C3D3D3D3F3F3E404040424141
+      4443444645454748484A49494B4B4B4E4E4E4F4F505253525455545857585A5A
+      5A5D5D5E6060606464646767676A6A6A6E6E6E7272727474747878797D7D7D80
+      80808585858989898D8C8D9090919695969999999E9F9EA2A2A2A9A9A9B0B0B0
+      B5B4B56464642626262929292C2C2C3030303232323636363838383939393939
+      393A3A3A3A3A3A3A3A3A3A3A3A38383838383838383838383836363636363636
+      3636353535353535343434333333333333333333323232323232303030303030
+      3030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B
+      2B2A2A2A2A2A2A2929292828282727272626262525252323232121211F1F1F1C
+      1C1C1B1B1B191919181712161616071D9D021FCE061CA1091A7D0D1755101430
+      12131913120E13110512100910100C10100D100F0905168E001AD60019CA0018
+      CA0018C90017C70016C60016C60016C50015C30015C20014C10014C00013BF00
+      13BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4
+      000CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A90006
+      AA0003AC20247C49484242424039393A3131312828281F1F1F1515150B0B0B04
+      04040202020202020101010000000000000000000000000000004A4A4AA9A9A9
+      A4A4A49E9E9E99999A959595908F908B8B8B8585858181817C7C7C7777777272
+      726F6E6E6A6A6A6565656161615C5D5D5858595555565151514D4D4D49494946
+      46464343433F3F403B3C3C3939393637363433343030302E2E2E2C2C2C292A2A
+      282727252425232323222222201F201E1D1E1C1C1B1B1A1A1818181818181616
+      1616161514141413141312121212121211111110100F100F0F0F0E0E0E0E0E10
+      10101A19191A1A1A1C1B1C1C1C1C1D1D1C0F0F100D0D0D0D0D0D0D0D0D0D0D0D
+      0D0C0D0C0D0D0D0D0C0C0C0C0C0C0C0C0C0B0C0B0B0B0B0B0C0B0B0B0B0B0F0F
+      0F0E0F0F1212131313131718171818181A1A1A1A1A1A1A1A1A19191A191A191A
+      1B1B1B1B1C1F1F1F2424242929291B1B1B070707060606060606060606060606
+      0606060606050606050505060605060605050505050505050505050504050505
+      0505050505040404040404040404040404040404040404040404040404040304
+      0403030303030403030303030303030303020303030303020203030302030202
+      0302020202020202020202020102020201020102010101020202010202020102
+      0102010102010101010101010101010101010101010001010100010000000001
+      0000000000010000000100000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303232323535353737373939393B3B
+      3B3838382E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383434343232323232323232323232323232323635353838383838383838
+      3838383838383838383838383738383738373738373738373738373738373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737363737363736363736363736363736363838383838383838383838
+      3838383737373736363636363636363636363636363636363636363636363636
+      36362F2F2F2F2F2F2F2F2F2F2F2F3131313D3C3C4A4A4A4F4F4E5555555B5B5B
+      5253533132313132323231313232323232323333333535353434343636353736
+      373738373A39393A3A393B3B3B3D3D3D3D3D3D40404041414143434345444447
+      46464849494B4A4B4D4D4D504F505252525453545757575A5A5A5C5C5C5F5F5F
+      6363626565656969696C6C6C6F6F6F7373737677777B7C7B7F7E7E8382828788
+      878B8B8B8F8F8F9493949999999C9C9CA1A2A1A6A7A6ABABABB3B3B391919127
+      27272929292C2C2C3030303333333636363737373A3A3A3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3A3A3A3A3A3A3838383838383838383838383636363636363636
+      3635353535353534343433333333333333333332323232323230303030303030
+      30302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B
+      2A2A2A2A2A2A2929292828282626262626262424242323232121211F1F1F1D1D
+      1D1C1C1C1A1A1A18181416171D15172316151417150A16140B15140F15141215
+      14131313131212121111111111111110090E112A0119C30019CF0019CA0018CA
+      0018C90017C70016C60016C60016C50015C30015C20014C10014C00013BF0013
+      BE0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB400
+      0CB2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A90006AA
+      0004AB26297348474040403F3838382F2F2F2626261D1D1D1313130909090303
+      030202020202020101010000000000000000000000000101017F7F7FA7A7A7A2
+      A2A29D9D9D9798979393938E8D8D8888888484837F7F7F7A7A7A757575707070
+      6C6C6C6767676363635F5F5F5A5B5A5757575353534F4F4F4B4C4C4848484544
+      444141413E3E3E3B3B3B3839393535363333322F2F2F2E2E2E2B2B2B29292926
+      27272424242222222121211F1F1F1D1D1D1C1B1B1A1919181818171717161616
+      161616131414121312121212111111111111100F100F0E0E0E0E0E1616161919
+      1A1B1A1B1B1C1C1D1E1D1A191A0E0D0D0E0D0E0E0D0D0D0D0D0D0D0D0D0D0C0C
+      0D0D0D0C0C0C0C0C0C0C0C0C0C0C0B0B0C0C0B0B0B0B0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0B0B0B0A0A0A0A0A0A0A0A0A0D0D0D1010111414131716171A1B1B1E1E
+      1E2223232827272D2D2D23232307070606070707070707060706060606060706
+      0606050606050606050606050606050605050505050505050505050505050504
+      0405050504050404040404040504050404040303040404040303040404030403
+      0403030404030303030303030303030303020303030203020302020203020203
+      0303020202020202020202020202020102010202010102010202020201010102
+      0101010102010101010101000101010101010101000101010001000000010100
+      0101000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      30303030303030303030303030303232323535353737373939393B3B3B363536
+      2F2F2F2F2F2F2F2F2F2F2F2F3232323B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383838383838383838383838383838383834
+      3434323232323232323232323232323232373737383838383838383838383838
+      3838383838383838383838373838373837373837373837373837373837373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373736373736373636373636373737383838383838383838383838383838
+      3737373636363636363636363636363636363636363636363636363434342F2F
+      2F2F2F2F2F2F2F3030303131314141424B4B4B5050505757575D5D5C41424231
+      3131323131323232323332333334343434353535343535363635373737393938
+      393A3A3A3A3A3B3C3B3D3D3D3E3F3E4040404242424444444546464746474A49
+      494B4B4B4E4E4E5050505353535555555858585B5B5A5D5E5E61616164646467
+      68686B6A6B6E6E6E7272727575757879797D7D7D8181818585858A8A8A8E8E8E
+      9292929596969B9B9AA0A09FA5A5A5A9A8A9ADADAEB0B0B04242422929292C2C
+      2C2F2F2F3333333636363838383A3A3A3B3B3B3C3C3C3C3C3C3C3C3C3B3B3B3B
+      3B3B3B3B3B3A3A3A3A3A3A383838383838383838383838363636363636363636
+      3535353535353434343333333333333333333232323232323030303030303030
+      302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A
+      2A2A2A2A2A2929292828282626262626262424242323232121211F1F1F1D1D1D
+      1C1C1C1B1B1B1A19171919151817161817171818181717171616161616161515
+      15151515131313121212111111110F04081570001AD80019CB0019CB0018CA00
+      18C90017C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE
+      0011BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000C
+      B2000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0008A90006AA00
+      05AA2D2F6947473D3D3D3D3636362C2C2C2323231A1A1A101010060606030303
+      020202020202010101000000000000000000000000212121A4A4A4A5A5A5A0A0
+      A09B9B9B9696969090918B8B8B8686868282827D7D7D7877777373736E6F6F6A
+      6A6A6565656161615D5C5C5858595655565453534D4D4D4A4A4A464646434343
+      403F3F3C3C3D3939393636373333333130302E2E2E2C2C2C2A2A2A2727282424
+      242323232222221F1F1F1E1E1D1B1C1C1A1A1A19181917181716161615161615
+      15141313141212121212121111111010100E0F0F0F0F101B1B1B1A1A1A1B1C1C
+      1C1D1D1D1D1E1313130E0D0E0E0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D
+      0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0B0B0C0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0A0B0B0A0A0B0A0A0A0A0A0A0B0A090A0A0A0A0A0F0F10212020252525
+      2929292F2F2F2D2D2D0607070707060706070607060606070706060606060606
+      0606050606050505060505060505050505050505050505050505050505040505
+      0504050404040404040504040404040303040404040404030304030303030304
+      0304040304040303030303030303020203020303030303030202030203020302
+      0202020202020202020201010202010102020101010102010202020101020101
+      0101010101010101010101000101010100000100010000000001000101000100
+      0100000000000000000001000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303232323535353737373A3A3A3C3C3C3635362F2F2F2F
+      2F2F2F2F2F2F2F2F3232323B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383838383838383838383838383838383333333232
+      3232323232323232323232323237373738383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373637373637363637373738383838383838383838383838383837363636
+      36363636363636363636363636363636363636363636363333332F2F2F2F2F2F
+      2F2F2F3030303232324747474C4C4B5353535857585D5D5D3737373131323231
+      323232333232323333333434343535353535353636373737373938393A3A393C
+      3B3B3C3C3C3D3D3D3F3F3F4141424242424545454546464949494A4A4A4C4C4D
+      4F4F4F5251515455545757575A595A5C5C5C60605F6262626566666969696D6C
+      6D6F6F707373737777777C7C7C7F80808382828787888C8C8C91919194949499
+      99999D9D9DA2A2A2A6A6A6ABABACB0B0B07272722727272B2B2B2F2F2F323232
+      3535353838383B3B3B3C3C3C3D3D3D3C3C3C3D3D3D3D3D3D3C3C3C3B3B3B3B3B
+      3B3B3B3B3A3A3A3A3A3A38383838383838383838383836363636363636363635
+      3535353535343434333333333333333333323232323232303030303030303030
+      2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A
+      2A2A2A2A2929292828282626262525252424242323232222222020201E1E1E1D
+      1D1D1C1C1C1B1B1B1A1A1A1919191919191A1A1A191919181818171717171717
+      15151513131312121212100C0F101D0219B7001AD30019CB0019CB0018CA0018
+      C90017C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE00
+      11BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2
+      000CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0008A90005AB0409
+      A435365B44443B3B3B3B3333332A2A2A2121211717170E0E0E04040403030303
+      03030202020101010000000000000000000000005B5B5BA9A9A9A4A4A49E9E9E
+      9999989393938D8E8D8989898484847F7F7F7A7A7A7575757171716D6C6C6868
+      686262635F5F5E5D5D5D5E5E5E5F5F5F5757574C4C4C4848484544454241423E
+      3E3E3A3A3A3838383435353131312F2F2F2D2D2D2B2B2B282828252625242424
+      2322232020201F1F1F1C1C1C1B1B1A1918181818191616171616161515151314
+      141312121313131211111010100E0E0F1414141B1B1B1C1C1C1C1C1C1D1C1D1D
+      1D1D0E0D0E0E0D0E0E0D0E0E0D0D0E0D0D0D0D0D0D0D0D0D0D0D0C0D0C0C0C0D
+      0C0C0D0C0C0C0C0C0C0C0C0C0B0C0C0C0B0B0B0C0C0B0B0B0B0B0B0B0A0A0B0B
+      0B0A0A0B0B0A0A0B0A0B0A0A0A0A0A0A0B0B0B0C0C0D2020202726262C2C2C30
+      30303333330A0A0A070707060706070707060606060606070707060606060606
+      0606060606050505050606060506060505050505050505050405040505050505
+      0404050404040404040404040404040404040403040404030304040303040304
+      0303040303030303030303030303020303030303020302030202020303030202
+      0202020202020202010202020102020201010202020202010102020101020101
+      0101010101010101010101000101010000010101000101010101000001010000
+      0000000000000101000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303232323535353737373A3A3A3C3C3C3635362F2F2F2F2F2F2F2F
+      2F2F2F2F3232323B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838323232323232323232
+      3232323232323232323838383838383838383838383838383838383838383838
+      3838383838383838383738383738373738373738373738373738373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737363737363837373838383838383838383838383838383636363636363636
+      363636363636363636363636363636363636363232322F2F2F2F2F2F2F2F2F30
+      30303636364848484D4D4D5454545A5A5A575757323132313132313231323332
+      323332343334353635353635363636373736383838393A39393A393C3C3C3E3E
+      3D3E3D3D4040414141414343434545454747464A4A494B4C4B4E4E4E51515153
+      53535556555757575B5B5B5E5E5E6161616364636868686B6B6B6E6E6E727272
+      7575767979797D7D7D8181818585858A8A8A8E8E8E9393939797979C9C9CA0A0
+      A0A5A5A4A9AAAAAFAFAEA0A0A13232322B2B2B2E2E2E3232323535353939393A
+      3A3A3C3C3C3D3D3D3E3E3E3E3E3E3E3E3E3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B
+      3B3B3B3A3A3A3A3A3A3838383838383838383838383636363636363636363535
+      353535353434343333333333333232323232323232323030303030303030302F
+      2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A
+      2A2A2A2929292828282727272626262424242323232222222121211F1F1F1F1F
+      1F1E1E1E1D1D1D1C1C1C1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A19191916161615
+      1515141414121212121005091463001BD8001ACD0019CB0019CB0018CA0018C9
+      0017C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE0011
+      BD0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB200
+      0CB2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0008A90004AD090E9A
+      3D3D4C41403C3838393030302727271E1E1E1515150B0B0B0303030303030303
+      030202020101010000000000000000000C0C0C949494A7A7A6A1A1A19B9B9B96
+      96969192928C8C8C8787878282827D7D7D7878787373736F6F6F6A6A6A686868
+      6868686666666363636060605D5D5D5757574B4B4B4646464242433F3F403C3C
+      3C3939393736373434343131312E2E2E2B2B2B29292927272724252522222322
+      21211F1F1F1D1D1D1C1C1C1A1A19181819171717161616161616141414121212
+      1313121112111010101010101919191B1B1C1C1C1C1D1D1D1E1E1E1617170E0D
+      0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0C0C0C0C
+      0C0C0C0D0C0C0C0C0C0C0C0C0C0C0C0B0C0B0C0C0B0B0B0C0C0B0B0B0B0B0B0B
+      0B0B0B0A0B0B0B0A0A0A0A0A0A0A0A0C0C0C1D1D1E2726272A2B2A2F2F2F3433
+      3313131307070707070607070607060607070606060606060606060606060605
+      0605060606050506060505050506050505050505050505050505050505040505
+      0505050404040404050404050304040404040403030404040303030304030303
+      0404030303030303030303030303030303030303030302030203030202020202
+      0202020202020202020201010202020101010202010102010202010101010102
+      0101010101010101010001000101010101010101010001000001010000000001
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303232323535353737373A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F
+      3232323B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383832323232323232323232323232
+      3232323232383838383838383838383838383838383838383838383838383838
+      3838383838383838373838373837373837373837373837373837373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3736383838393838383838383838383838383838363636363636363636363636
+      3636363636363636363636363636363130312F2F2F2F2F2F2F2F2F3030303A3A
+      3B4949494E4E4E5555555A5A5A4F4F4F31323232323231313133333333323234
+      34343635363635363636363737373939393A3A3A3A3B3B3C3B3B3D3D3E3E3E3E
+      4040414242424444444646464848484A4A4A4D4D4D4F4F4E5251525453545757
+      575A5A5A5D5C5C5F5F5F6262626666656969696C6C6D6F6F6F7374747777777C
+      7C7C7F7F7F8383838888888C8C8D9091919595949A999A9E9E9EA2A2A2A7A7A7
+      ACACACB0B1B15E5E5E2B2B2B2E2E2E3131313535353838383A3A3A3C3C3C3E3E
+      3E3F3F3F3F3F3F3F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B
+      3B3B3A3A3A3A3A3A383838383838383838383838363636363636363636353535
+      3535353434343333333333333333333232323232323030303030303030302F2F
+      2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A
+      2A2A292929282828262626262626252525232323232323222222202020202020
+      1F1F1F1F1F1F1E1E1E1D1D1D1D1D1D1D1D1D1C1C1C1B1B1B1919191717171515
+      1513131312120E0F111B0219B6001AD4001ACD0019CB0019CB0018CA0018C900
+      17C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD
+      0011BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000C
+      B2000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007A90003AE14198A42
+      423F3D3D3B3535362D2D2D2424241B1B1B121212070707030303030303030303
+      020202010101000000000000000000424242A9A9A9A4A4A49E9E9E9999999494
+      948F8E8E8989898484858080807A7A7A7475757373737272726F6F6F6C6C6C67
+      67676565656262626060605C5C5C5757574949494444444141413D3D3D3A3A3B
+      3838383535343232312F2F2F2D2D2D2A2A2A2828282425252323232323231F20
+      1F1E1E1E1C1C1C1B1A1B18191818181716161616161615151513131313131211
+      11111010111313131C1C1C1D1D1D1D1E1D1D1D1D1E1E1E1111110E0D0E0E0D0E
+      0E0D0E0E0D0D0E0E0E1211111112111111111111111111111011101010101111
+      100F0F100F0F0F0E0E0E0D0E0E0C0D0D0C0C0C0B0B0C0B0B0B0B0B0B0B0B0B0B
+      0B0B0A0B0B0A0B0A0A0A0B0B0B0B1B1B1A2525252929282F2F2F3433341E1F1F
+      0707070707070707070707070707060706070707060606060606060605060605
+      0606050606060505060606050605050605050505040404050505050405040504
+      0504040504040404040404040404040404040304030304040304030304030303
+      0303030303030303030303030203030302030303020303020202020202020202
+      0202020201020202020202020201010101010102020202020201020202010101
+      0102010101010101010101010100000000000001010001000101010000010001
+      0000010000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303232
+      323636363838383A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31
+      31313636363B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3938383938383838383838383838383232323232323232323232323232323232
+      3239383838383838383838383838383838383838383838383838383838383838
+      3838383838383837383837383737383737383737383737383737373737373737
+      3737373737373737373737373737373737373737373737373737373737373838
+      3839383839383838383838383838383836363636363636363636363636363636
+      36363636363636363636363130312F2F2F2F2F2F2F2F2F3030303D3C3D4A4A4A
+      4F4F4F5555555A5A5A4747473232323232323332333333323333343435343536
+      353536353737373737373939393A3A3A3C3C3C3D3D3D3E3E3E403F3F42414142
+      42424545454747474949494B4B4B4E4E4E504F505353525556555858575B5B5A
+      5D5D5D6160616464646767676B6B6B6E6E6E727272767676797A797D7D7D8182
+      818585858A8A8A8E8E8E9393939797979C9C9CA1A1A1A5A5A5AAAAAAAFAFAF96
+      96962D2D2D2E2E2E3131313434343737373B3B3B3D3D3D3E3E3E3F3F3F3F3F3F
+      4040404040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B
+      3B3A3A3A39393938383838383839393938383838383837373737373736363636
+      36363535353434343434343333333232323232323030303030303030302F2F2F
+      2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A
+      2A29292928282827272726262625252525252524242423232321212121212121
+      21212020202020201F1F1F1F1F1F1E1E1E1C1C1C1A1A1A181818161616141414
+      131313131107081670001BD8001ACE001ACD0019CB0019CB0018CA0018C90017
+      C70016C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD00
+      11BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2
+      000CB0000BAF000BAF000AAE000AAD0009AB0009AA0007AA0004AD2326714242
+      393A3A393232322929292020201717170D0D0D05050503030303030303030302
+      0202010101000000000000030303888888A6A6A6A1A1A19B9B9C979797929192
+      8C8C8C878787828282807F7F7D7D7D7A7A7A7676767272726E6E6E6B6B6B6767
+      676464646161615E5E5E5C5C5C5757574646454343423F3F3F3B3B3B39393936
+      36363332332F2F302E2E2E2B2B2C2828282626262424242223232120201F1F1F
+      1C1C1C1B1B1B1819191918191617171616161615151414141213131213121112
+      111717171B1C1C1C1C1D1D1E1E1E1E1F1B1B1B0E0E0F0E0D0F0E0D0E0E0D0E0E
+      0D0E101010121212111212111111111111111111111111111111101110101011
+      1011101010100F1010100F0F1010100F0F0F0F0F0F0E0E0E0C0D0D0A0A0C0B0B
+      0B0A0B0B0A0B0A0C0B0B1615162424242928292D2E2E33323228272707070707
+      0707070707070706070707070606060606060607060607060606060606060606
+      0506060505050506050605050505050505050405050505040505050404050405
+      0404050504040404040404040403040404040403030404030303030304040303
+      0303030303030303020203030302030302030203020303020202030202020202
+      0202020202020202020202020102020102010102020101010101010102010101
+      0102010101010101000100010101010101000101010001000000010000010000
+      0000000000000001000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030323232363636
+      3838383A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F3030303534353A3A393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838323232323232323232323232323232323232393838
+      3938383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383738373738373738373738373738373737373737373737
+      3737373737373737373737373737373737373737373737373737383838393938
+      3938383938383838383838383636363636363636363636363636363636363636
+      363636363636362F2F2F2F2F2F2F2F2F2F2F2F3131313F3F3F4A4A4A4F4F4F56
+      56565A5A5A424242323232323232333333333232333433353434353635363536
+      3737383938383A3A3A3A3A3A3C3C3C3E3E3E3F3F3E4141414142414343444646
+      464747474A4A4A4C4C4C4E4E4E5151515353535757575958585C5B5C605F5F61
+      61616566656969696C6C6C7070707273737777777B7B7B7F7F7F838383888888
+      8C8C8C9091919495959A9A9A9E9F9EA4A4A3A8A7A7ADACACB1B2B15757572D2D
+      2D3030303434343737373A3A3A3D3D3D3E3E3E40404040404040404040404040
+      40404040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3A3A3A3A3A3939393939393939393939393939393838383838383737
+      373636363636363535353434343434343232323131313030303030302F2F2F2F
+      2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A
+      2929292929292727272626262626262525252525252424242323232323232323
+      232222222121212020201F1F1F1E1E1E1C1C1C19191917171715151513141413
+      120D101223011BC2001AD2001ACE001ACD0019CB0019CB0018CA0018C90017C7
+      0016C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011
+      BC0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB200
+      0CB0000BAF000BAF000AAE000AAD0009AB0009AA0006AB0208A73234553F3F38
+      3737372F2F2F2525251D1D1D1414140A0A0A0303030303030303030303030202
+      02010101000000000000383838A9A9A9A4A4A49E9E9F9A9A9A9494948F8F8F8B
+      8B8B8A8A8A8585858181817C7C7C7878787575747070706C6C6C696969666666
+      6363636060605D5D5D5B5B5B5656564645464141403D3C3D3939393737373434
+      343131312E2E2E2D2C2C2A292A272727242525232323212222201F1F1D1D1D1C
+      1C1C1A1A1A1918191717171616161515151414141313131313121213131D1D1D
+      1C1C1C1E1E1E1F1F1E1E1E1E1414140E0E0F0E0D0F0E0D0F0E0D0E0E0D0E1212
+      1212121211121211121211111111111111111111111111101110111110101010
+      10101010100F0F100F1010101010100F0F0F100F0F0F0F0C0C0C0A0B0B0A0A0A
+      0A0A0B0B0C0B1212122323232828282D2D2D3031312C2D2C0707070807070707
+      0707070707070706060607060707060607060607060606060606060606060506
+      0506060606050605060506060505050505040405040504050505040504040405
+      0404050404040404040403040404040404040403030303030403030303040403
+      0303030303030302030302030303030302020302020303020203020203020202
+      0202020202020202010201010202020201010102020102010101010101010102
+      0101010101010101010100010101010100010001010001000101000000000001
+      0100000000000100000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      303030303030303030303030303030303030303030303333333636363838383A
+      3A3A3C3C3C3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F303333333939393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383837373732323232323232323232323232323233323239383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373837373737373737373737
+      3737373737373737373737373737373737373737373738383839393839393839
+      3838393838383838363636363636363636363636363636363636363636363636
+      3636362F2F2F2F2F2F2F2F2F2F2F2F3131314141414A4A4A5050505656565A5A
+      5A3C3C3C32323232323233333333333333343435363535353637373637383738
+      39393A3A3A3B3B3B3C3C3C3E3E3E3F3F3F4040414242434545464746464A4949
+      4A4A4A4D4E4D4F4F4F5152525555555757575B5B5B5C5D5D6060606464646766
+      676A6A6A6D6D6D7272727475757879787D7C7C8080818585868989898E8E8E93
+      92929797979C9C9CA0A0A0A5A5A5AAAAAAAFAFAF9696962E2E2E2F2F2F333333
+      3737373A3A3A3D3D3D3F3F3F4040404141414141414141414141414040404040
+      404040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3C3C3C3C3C3C3B
+      3B3B3B3B3B3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3D3D3D3C3C3C3B3B3B
+      3A3A3A3838383737373636363434343333333232323131313030302F2F2F2F2F
+      2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29
+      2929292929282828272727262626262626262626252525242424232323232323
+      2222222121212020201E1E1E1D1D1D1A1A1A1818181616161514141412070E15
+      43011BC9001BD3001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C700
+      16C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC
+      0011BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000C
+      B0000BAF000BAF000AAE000AAD0009AB0009AA0005AF0D12923C3C3E3A3A3733
+      33332B2B2B222222191919101010060606030303030303030303030303020202
+      010101010101020202878787A7A7A6A1A1A19B9C9B9797979696969291928D8C
+      8C8787878484848080807B7B7B7676777373736F6F6F6A6A6A67676765656561
+      61616060605C5C5C5A5A5A5757574646463F3E3E3A3A3B383838353535323232
+      3030302D2E2D2B2C2B2828282525252323232323232020201E1F1E1C1D1C1A1A
+      1A1919191818181616161616161414141313131312131617171D1D1D1D1D1D1E
+      1E1E1F1F1E1E1E1E0E0E100E0E0F0E0E0E0E0E0F0E0D0F0F0F0F121212121212
+      1212111111121111111111121111111111111111101011101010101110101010
+      10101010100F10101010100F0F10100F10100F0D0D0D0B0B0B0B0A0A0B0A0B0C
+      0B0C0D0E0D2222232727272C2C2C303131353435080807080807070707070707
+      0707070607070707070707070706060606060606060606060506060606060506
+      0606060605050505060505050505050505050505050405040405050404050504
+      0504040404050404040404040404040403030304030303040403030304030303
+      0303030303030303030303030303020203020302030203030303020202020202
+      0202020202020202010202010201010102010101010202010201010101010101
+      0101010101000100010101000100000001000000000101010100000100000000
+      0001000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303434343737373939393B3B3B3D3D
+      3D3939393232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F3232323737373A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3737373232323232323232323232323232323434343938383938383938383938
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383837383837383737383737383737383737383737373737373737373737
+      3737373737373737373737373737373737373939393939393939383939383938
+      383838383636363636363636363636363636363636363636363636363636362F
+      2F2F2F2F2F2F2F2F2F2F2F3131314141414A4A4A4F4F4F5555555A5A5A3D3D3D
+      323232323232333333333333343534353536363535363637383738393A393A3A
+      3A3B3B3B3D3D3D3E3E3E4040404242424343434546464847474A4A4A4D4C4C4F
+      4F4E5151515453545656565858585B5B5B5F5F5F6162626564656868686B6B6B
+      6F6F6F7273727777777A7A7A7F7F7F8383838788888B8C8C9090919494949999
+      999E9E9EA3A2A2A7A7A7ADADADB2B2B25A5A5A2F2F2F3333333636363939393D
+      3D3D3F3F3F414141414141424242414141424242424242404040404040404040
+      4040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3C3C3C3C3C3C3D3D
+      3D3D3D3D3D3D3D3E3E3E4040404040404040404242424141414040403F3F3F3E
+      3E3E3B3B3B3A3A3A3838383636363333333232323131313030303030302F2F2F
+      2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929
+      2929292927272727272727272726262626262625252524242423232323232322
+      22222020201E1E1E1C1C1C1B1B1B1919191616161614080E1645011CCA001CD7
+      001CD1001BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016
+      C60016C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC00
+      11BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0
+      000BAF000BAF000AAE000AAD0009AB0009AA0004AF1E22723D3D343636362F2F
+      2F2727271E1E1E1515150B0B0B05050503030303030303030302020201010101
+      0101010101393939A9A9A9A4A4A4A2A1A29E9E9E9999999494948F8F8F8B8B8B
+      8686868282827E7E7E7979797373736A6A696262636060606565656363636161
+      615E5E5E5B5B5B5858585454544344443D3C3C393A3A3737373434343131312E
+      2E2E2C2B2B2829292626272424242223232121211F1F1F1C1C1D1B1B1B191919
+      1818181717171616161515151314141313131C1C1C1E1D1E1E1E1E1F1F1F1F1F
+      201818170E0F0F0E0E100E0E0F0E0E0F0E0E0F12111213121212121212121212
+      1212111112111112111111111111111111101110101110101110101010101010
+      1010100F101010100F10100F100F0F0E0E0E0B0B0B0B0A0B0B0B0B0A0B0A0D0D
+      0D1F1F1F2827282B2B2B30303034343314131307080808070807070707070707
+      0707070707070706060607060607060607060706060606060606060606060605
+      0505060505050605050505060505050505050405050405050405040405040405
+      0404040404040404030404030404030403030404030303030403030304030303
+      0303030303020303030303030202020303030302020202020202020202020202
+      0202010202020102010202020101010201010101020101010101010101010101
+      0101010101010100010001010100000001000001010100000100000000000000
+      0101000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      30303030303030303030303030303535353838383A3A3A3B3B3B3D3D3D3E3E3E
+      4040403C3C3C3434342F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F3131313636363A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383837373732
+      3232323232323232323232323232343434393938393838393838393838393838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383738383738373738373738373738373738373737373737373737373737
+      3737373737373737373737373737393939393939393939393938393938383838
+      3636363636363636363636363636363636363636363636363636362F2F2F2F2F
+      2F2F2F2F2F2F2F3131314141414A4A4A5050505454545A5A5A3D3D3D32323232
+      32323333333334343535353636353536363837373839383A3A3A3B3B3B3C3C3D
+      3E3E3E3E3E3E4141414242424444444646464847474A4A4A4C4C4C4F4E4F5252
+      515454545757575A5A5A5D5D5D60605F626363676766696A696E6D6D71717175
+      75757878787C7C7C8181818585858989898D8D8D9292929797979B9B9BA1A0A0
+      A5A5A5AAAAAAAFAFAF9898983131313232323535353939393C3C3C3F3F3F4141
+      4143434343434342424243434342424242424242424240404040404040404040
+      40403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3E3E3E3F3F3F
+      4040404242424444444545454747474747474848484747474646464444444242
+      423F3F3F3C3C3C3A3A3A3737373535353333333232323131313030302F2F2F2E
+      2E2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929
+      2929292727272727272727272626262626262424242424242323232222222020
+      201E1E1E1C1C1C1A1A1A18191818160A0F1746011DCD001DDB001DD3001CD200
+      1CD1001BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C6
+      0016C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011
+      BB0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB000
+      0BAF000BAF000AAE000AAD0009AB0007AC020AA531324C3A39333333332B2B2B
+      2323231A1A1A1111110707070404040404040303030202020101010101010101
+      01030303898989ABABABA5A5A6A1A1A19C9C9C9797979292928D8E8E88888884
+      85847D7D7D7373736D6D6D6969686565656060605F605F6464646262625F5F5F
+      5B5B5B5959595656565252524242413A39393738373434343131312E2E2E2C2D
+      2C2A2A2A2727272525252323232222222020201E1D1E1C1C1C1A1B1A19191917
+      17171616161515151414141616161E1E1E1F1F1F1F1F201F1F1F202020131313
+      0E0F100F0E0F0E0E0F0E0E0F0F0F0F1312121312121212121212121212121212
+      1112121111111211111111111011111111101011101111101010101010101010
+      1010100F0F1010100F10100F0E0E0B0B0C0B0B0B0B0B0B0B0B0A0C0C0B1B1B1C
+      2625252A2A2A2F2F2F3434341C1C1C0807080807070708070807070707070706
+      0707070706060607070706060606060606060606060605060606060606060606
+      0505050505050506050505050505040505050505040504050405050404040405
+      0505040404040404040404030404030304030404030303040303030403030303
+      0303030303030202030302030202020202030302020302020202020202020201
+      0202020202010202020202020201020101010102020201010101010101010101
+      0101010001010001010000010101000000000001000001000000010000000001
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      303030303030303030303636363939393B3B3B3C3C3C3D3D3D3F3F3F40404040
+      40404040403E3E3E3535353030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3030303434343939393A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383737373232323232
+      3232323232323232323234343439393839393839383839383839383839383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838373838373837373837373837373837373837373737373737373737373737
+      3737373737373737373739393939393939393939393939393838383836363636
+      36363636363636363636363636363636363636363636362F2F2F2F2F2F2F2F2F
+      2F2F2F3131314141414A4A4A4F4F4F5454545858583C3C3C3232323333333333
+      333434343535353535353535363837383839393A3A3A3B3B3B3C3C3D3E3E3E3F
+      3F404141414343434545454746474A4A494A4B4A4E4E4E4F4F4F535353555555
+      5858585B5B5B5E5E5E6161616464646867686C6B6B6E6F6E7272737676767A7A
+      7A7F7F7F8383838787878B8B8B9090909494959999999E9E9EA3A3A3A8A8A8AD
+      ADADB2B1B26362623131313434343838383C3C3C3F3F3F414141424242434343
+      4444444444444444444242424242424242424242424040404040404040404040
+      403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3E3E3E40404043434345
+      45454747474A4A4A4D4D4D4E4E4E4F4F4F4E4E4E4E4E4E4B4B4B494949464646
+      4242423F3F3F3B3B3B3838383636363333333131313131313030302F2F2F2E2E
+      2E2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929
+      29292727272727272727272626262525252424242222222121212020201E1E1E
+      1C1C1C1A1A1A19180C111948021ECF001EDD001ED5001DD4001DD3001CD2001C
+      D1001BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C600
+      16C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB
+      0010BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000B
+      AF000BAF000AAE000AAD0009AB0006B01217873939353535342F2F2F2727271E
+      1E1E1616160C0C0C050505040404040404030303020202010101010101010101
+      444444AEAEADA9A9A9A3A3A49F9F9F9A9A9A9595969191918989887E7F7F7979
+      797575757070706B6B6B6666666362625E5E5F5D5D5D6262626060605D5D5D5A
+      5A5A5757575555555151514343423838383535353232323030302E2D2E2A2B2B
+      2929292625252423232222222020201D1D1D1C1D1D1A1A1B1919191717171616
+      161516151414141B1A1A2020202020201F201F2020201D1D1D1010110F0F100E
+      0E100E0E0F0E0E0F111111131312121313121312121212121212121212121212
+      1111111111121111111011111111111110111111101011111010111010101010
+      100F0F0F10100F100F0F0C0C0C0B0B0B0B0B0B0B0A0B0C0B0C18191924242429
+      29292F2F30333333252525080707080807070707070707080707070707070707
+      0607070606060707070707070606070606060606060605060606060506050506
+      0605050505060505050504050505050505050505050405040505050504050404
+      0404040404040404040403040404040403030404030304030303030304030303
+      0202030203030203030203020302020202020202020202020202020202020202
+      0202020202020201020101010201010101010101020201020201010101010101
+      0101010100010101010000010100000001000001000101000100000001000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303535353B3B3B3C3C3C3D3D3D3E3E3E3F3F3F4040404040404040
+      404040404040403F3F3F3837383131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3333333938383A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838373736323232323232323232
+      3232323232323434343939393939383939383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383737383737383737383737383737373737373737373737373737
+      3737373737373939393939393939393939393939393838383636363636363636
+      363636363636363636363636363636363636362F2F2F2F2F2F2F2F2F2F2F2F30
+      30304141414949494E4E4E5353535757573F3F3F323232333333333333343434
+      363636353636363637373838393A393A3A3A3B3C3C3E3D3E3E3E3E4041404242
+      424343434646464848484A4A4A4D4D4D4F4F4E525252535453565757595A5A5C
+      5C5C6060606262626565656969696D6D6D7170707474747777777B7B7B7F7F80
+      8383848888888D8D8D9292929696969B9B9BA0A0A0A5A5A6AAAAAAAFAFAFA3A3
+      A33939393434343737373B3B3B3E3E3E40404042424244444444444445454545
+      45454444444444444242424242424242424242424040404040404040403F3F3F
+      3E3E3E3E3E3E3D3D3D3D3D3D3D3D3D3D3D3D3E3E3E4040404444444747474A4A
+      4A4E4E4E5151515353535555555656565555555454545151514E4E4E49494944
+      44444040403C3C3C3939393636363333333131313131313030302E2E2E2E2E2E
+      2E2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929292929
+      292828282727272626262525252424242222222121211F1F1F1E1E1E1B1B1B1B
+      190D121B4A011FD1001FDF001FD7001ED6001ED5001DD4001DD3001CD2001CD1
+      001BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016
+      C60016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB00
+      10BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF
+      000BAF000AAE000AAD0008AC0007AD2729583838303131312A2A2A2222221A1A
+      1A1111110707070505050505050303030202020202020202020101010B0B0B9B
+      9B9BACACACA7A7A7A2A2A29C9C9C9696968C8C8C8686868180817B7C7C767676
+      7171716D6D6D6868676463635F605F5B5B5B5A5A5A5E5E5E5D5D5D5B5B5B5858
+      585555555252525150514141413837373434343231312E2E2E2C2C2C28292926
+      26272424242323232121211F1F1F1D1C1D1B1C1C191919181818161616161616
+      151615201F1F2020202020202121212020211616161010110F0F100E0F0F0F0E
+      100E0E1013131313131313121313131212121312121212121212121212121111
+      111211111111121111111111101111101111111011111011101010101010100F
+      1010100F100F0C0D0D0B0B0B0B0C0B0B0B0B0C0C0C1312132324242828292D2D
+      2E3232322D2D2D08080807070807070807070707080707070707070707060707
+      0707060707070706070607060606060606060606060606050605050605050605
+      0506060505050505050505050505050505040405040404050404040404040404
+      0504040407070704040403040304030404030304040403030303030303030303
+      0302020302020302020303020302020302020203020202020202020202020202
+      0202010102020102020202020201010101010101010101010101010101000101
+      0101000101010101000101010100000001000100010100000000000000000000
+      0100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      30303030303131313737373D3D3D3F3F3F3F3F3F404040404040404040404040
+      4040404040404040404040403A3A3A3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3231323737373A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383837373632313232323232323232323232
+      3232323232393939393939393938393938393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3738383738373738373738373738373738373737373737373737373737373737
+      3737393939393939393939393939393939383838363636363636363636363636
+      3636363636363636363636363636363030302F2F2F2F2F2F2F2F2F3030303C3B
+      3C4848484E4E4E52525256565645454532323233333333333334343436363636
+      36353737373838383A3A393A3A3A3D3D3D3D3E3E3E3E3E414142424342444445
+      4646464848484A4A4A4D4D4C4F4F4E5251525555545757575B5A5B5E5D5D6060
+      606464646767676A696A6E6E6E7171717575757979797D7D7D8181818686868A
+      8A8A8F8F8F9393939898979C9D9DA2A2A2A7A7A7ACACACB2B2B2777777333333
+      3737373A3A3A3D3D3D4040404242424444444545454545454545454545454545
+      454444444444444242424242424242424242424040403F3F3F3F3F3F3E3E3E3D
+      3D3D3D3D3D3C3C3C3C3C3C3C3C3C3D3D3D3F3F3F4343434848474D4C4951514D
+      56544F5A59555C5B585D5D5C5C5C5C5C5C5C5959595555555151514C4C4C4747
+      474242423D3D3D3939393636363333333131313030303030302E2E2E2E2E2E2E
+      2E2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A292929292929
+      2727272626262525252424242222222020201E1E1E1C1C1C1C1A0E121C4B0120
+      D30021E1001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD100
+      1BD0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C6
+      0016C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010
+      BA0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF00
+      0BAF000AAE000AAC0007B00B13913535353333312D2D2D2626261E1E1E161616
+      0C0C0C0505050505050404040202020202020202020202020101015F5F5FAFAF
+      AFA9A9A9A3A3A39A9A9A9292928D8D8D8787878383837D7D7D7878797373736E
+      6F6E6A6A6A6565656060615D5D5D5959595756565C5C5C5B5B5B595959565656
+      5252525151514E4E4E3F3E3F3434343231322E2F2F2C2C2C2A2A2A2828282525
+      252323232121222020201D1D1C1C1B1C191A1A1818181616161616161A1A1A20
+      20202020202121222121212020201110111011110F0F100F0F100F0F0F101110
+      1313131313131312121313131313121212121212121212121212121212121111
+      1212111111111111111110111110111011101010101110101010101010101010
+      0F0F0D0E0E0B0C0C0B0B0C0B0B0B0C0C0C0F0E0F2323232727272D2C2D313131
+      3535350808080808080808080808070808070807070708070707070707070707
+      0706060706060706070606060606060606060606050506060606050505050505
+      0505050505050505050505050405050504050404040505050404080808131313
+      1616160D0D0D0404040304040404040303030303030303040303030303030303
+      0303030303030202030202020203020202020202020202020202020202020202
+      0201020201020102010102020101020101010201010101010101010101010100
+      0101000101010101000101000100000000000001000000010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303636363E3E3E40404040404040404040404040404040
+      40404040404040404040404040403C3C3C3434342F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030303636363A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383838383231323231323232323232323232323232
+      3239393939393939393939393839393839383839383839383839383838383838
+      3838383838383838383838383838383838383838383838383838383838383837
+      3838373837373837373837373837373837373737373737373737373737373939
+      3939393939393939393939393938383836363636363636363636363636363636
+      36363636363636363636363130312F2F2F2F2F2F2F2F2F3030303B3A3B474747
+      4D4D4D5151515555554949493232323333333333333535353636363636363838
+      383938393A3A3A3B3A3B3D3D3C3E3E3E3F3F3F41414244434345454546464649
+      49494B4B4B4E4E4E504F4F5353535655555859595B5B5B5F5E5F616161646464
+      6868686C6C6C6F6F6F7373737776767B7B7A7F7F7F8383838888888C8C8C9191
+      919595959999999F9F9FA4A4A4A9A9A9AFAEAEB0B0B04A4A4A3636363838383D
+      3D3D3F3F3F424242444444454545464646464646464646454545454545454545
+      4444444444444242424242424242424141413F3F3F3E3E3E3E3E3E3D3D3D3C3C
+      3C3B3B3B3B3B3B3B3B3B3C3C3B3E3D3A4340354746404A4B514C4F5C4A526F54
+      58695B5D6464635F68655A65645F6161605E5E5E5959595454544D4D4D474747
+      4242423D3D3D3939393535353333333232323131312F2F2F2E2E2E2E2E2E2E2E
+      2E2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292928282826
+      26262525252323232121211F1F1F1D1D1C1C1A0F131C4C0121D50022E30021DB
+      0021DA001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001B
+      D0001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C600
+      16C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA
+      0010B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000B
+      AF000AAE0009AD0008B024265B35352C2F2F2F2929292121211A1A1A11111107
+      07070505050505050404040202020202020202020202021F1F1FACACACA8A8A8
+      A0A0A09B9A9B9595958F8F8F8989898585857F7F7F7B7A7B7575757070706C6C
+      6C6767676363635D5E5E5A5A5B57565653535359595959595957575754545451
+      51514F4F4F4D4C4D3D3D3D3332332F2F2F2D2D2D2B2B2B292929262625242324
+      2222222020201E1E1E1D1D1D1A1B1A19191A1717171616161F1F1F2020202020
+      202222222222221A1A191111111011110F0F100E0E100F0E1012131313131313
+      1313131313131313131212131212121213121212121212111211111111111211
+      111111111111111111111110101010101110101011101010101010100F100F0F
+      0E0B0C0C0B0C0B0B0B0B0B0B0B0D0D0D2020202827282C2C2B31313034343514
+      1414080808080708080708070808080707080707070807070707060707070607
+      0707070707070606060606060606060606060505050606060506050606050505
+      060506050505050505050505050505050606050F0E0F15151515151516161616
+      1616121212060707040303040303030304030303030303030303030303030303
+      0302030202030202020302030303030202020203020202020202020202020202
+      0202010201020201020201010202010101010101010101010101010101010101
+      0101000101000000000000000101000001000001010100000100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303434343C3C3C4040404040404040404040404040
+      404040404040404040404040404040403E3E3E3636373030302F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30343434393939
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838323131323132323132323232323232323232393939
+      3939393939393939393939383939383938383938383938383938383838383838
+      3838383838383838383838383838383838383838383838383838383838383738
+      38373837373837373837373837373837373737373737373737373939393A3939
+      3939393939393939393939393736363636363636363636363636363636363636
+      363636363636363131312F2F2F2F2F2F2F2F2F3030303636364747474B4B4B4F
+      4F4F545454505050323232333333343434353535363636363636383838393939
+      3A3A3A3B3B3B3C3D3D3E3F3F4040404241414343444647474847474B4B4A4D4C
+      4C4F4F4F5151515454545757575958595B5B5C6060606262626565656969696D
+      6D6D7171717575757778777D7D7D8181818584858988898E8E8D929292979797
+      9C9C9CA1A1A1A6A5A5AAAAAAB0B0B09090903636363838383B3B3B3F3F3F4141
+      4144444445454546464646464647474747474746464645454545454545454544
+      44444444444242424141414141413F3F3F3E3E3E3D3D3D3B3B3B3B3B3B3A3A3A
+      3A3A3A3A39373D3A2F393C472B3D841E3FBB143DE20C3CF50A3AF90A3BF6113D
+      EB2346CC3E53A45E62766C695F6665616060605B5B5B5555554D4D4D47474742
+      42423C3C3C3838383535353232323131313030302F2F2F2F2F2F2E2E2E2E2E2E
+      2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2929292828282727272525
+      252323232121211E1F1E1D1C17131D500122D60023E50022DD0022DC0021DB00
+      21DA001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0
+      001ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016
+      C50015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA00
+      10B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF
+      000AAD0007B20B129133333231312F2B2B2B2525251D1D1D1515150B0B0B0505
+      050505050404040303030202020202020202020202027C7C7CA8A8A8A2A2A29C
+      9C9C9797979191918C8C8C8687868181817C7C7B7878787676756F6F6F686868
+      646464605F5F5B5B5B5857575353535050505858585656565353535252524F4F
+      4F4D4D4D4A4B4B4040413131302E2E2E2C2C2C29292925262624242323232320
+      20201E1E1E1D1D1D1B1A1B191A1A171817191919212121212121222221222222
+      2222221414151011111110110F0F100F0F100F10101414131413131313131313
+      1313121313121312121212121212121312121212121212111211121112111111
+      1211111111111111111110111111101010101110101011101010100E0F0C0B0C
+      0C0C0C0C0B0B0B0B0C0D0D0D1D1D1D2727272B2A2B2F2F2F3434341919190808
+      0808080808080707080807070707070707070707080707070706070607070706
+      0706070607060606060606060606060606060606060606050505050606050506
+      0505050505050505050A0B0B1413131514151615151515161616161717171717
+      171717170A0A0A03040304040404030403030303030303030303030303030302
+      0303020203030203020302030202020202020202020202020202020202010201
+      0201020201020101020202010201010101010101020101010101010101010101
+      0101000101010100010101010000000000000000000100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303232323A3A3A404040404040404040404040
+      4040404040404040404040404040404040403F3F3F3939393131312F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F33333338
+      38383A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383832313132313132313232313232323232323239393939393939
+      3939393939393939393938393938393838393838393838393838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      373837373837373837373837373837373737373737373938383A39393A393939
+      3939393939393939373636363636363636363636363636363636363636363636
+      3636363232322F2F2F2F2F2F2F2F2F3030303232324545454B4B4B4E4E4E5252
+      525656563434343333333434343535353636363636363838383939393A3A3A3C
+      3C3B3E3E3E3E3F3F4140414242424343444746474948484A4A4A4D4D4D4F4F4F
+      5252525454545757575B5B5B5E5E5E6060606464646767676B6B6B6E6E6E7171
+      717575757979797E7E7E8281828686868B8B8B8F8F8F9494949999999E9E9EA2
+      A2A2A8A8A8ADADADB2B2B26565663737373B3B3B3E3E3E404040434343454545
+      4646464848484848484848484747474747474646464545454545454545454444
+      444343434141414040403F3F3F3D3D3D3B3B3B3A3A3A39393938383839373037
+      3839263B8C123DE3083DFF073CFF073BFF083BFF073AFF0639FF0438FF0136FF
+      0035FF0C3BF2354FB563666F6A675E6061605A5A5A5353534C4C4C4545454040
+      403B3B3B3737373434343232323131313030302F2F2F2F2F2F2E2E2E2E2E2E2D
+      2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A292929272727252525232323
+      2020201E1E1B1A1C210422C60024EA0023DF0023DE0022DD0022DC0021DB0021
+      DA001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD000
+      1ACE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C5
+      0015C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010
+      B9000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAF00
+      09AE0008B121245933322A2C2C2D272727202020181818101010070707050505
+      050505040404040404020202020202020202434343AAAAAAA4A4A49F9F9F9998
+      999393938E8E8E8988898484848282817D7C7C7777777272726B6C6B65656561
+      61615D5D5D5858595455545152514D4D4D5353535454545252524F4F4F4D4D4D
+      4B4B4B4848483E3E3E2F2E2E2C2C2C29292A2727272525242323232122211F1F
+      201D1D1D1B1B1B1919191717171D1D1D2222222222222222222323241F1E1F12
+      12131111121110110F10110F0F10121212141314141413131414131313131313
+      1213131312131313121212121213121212121212111212111112111211111111
+      121111111011111010101011111110101010101010101010100C0C0C0C0C0C0C
+      0C0B0B0B0B0D0C0C19191925252529292A302F2F333434222222080809080808
+      0808080808080708080808070707080708070707070707070706070707070706
+      0607060606060706060706060605060606060506050606060506060505050508
+      0707101010151515151515151616151516161616161616171717171717181818
+      1818180F0F0F0505050303030303030403040303030304030303030303030303
+      0302020302030303030203030203020202020203020202020202020202010201
+      0102010201020101020101020101020101010101010101010101010101010101
+      0100010100010101000001010100010100000100010100000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303131313838383F3F3F40404040404040
+      40404040404040404040404040404040404040404040403A3A3A3333332F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131
+      323636363A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3938383131313231313231313231323231323232323938383939393939393939
+      3939393939393939393839393839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373737373938383A3A393A39393A39393939
+      3939393937373736363636363636363636363636363636363636363636363634
+      34342F2F2F2F2F2F2F2F2F2F2F2F3131314343434848484D4D4D515151555555
+      3E3E3E3333333434343535353636363737373838383A3A3A3A3A3A3D3D3D3E3E
+      3E3F3F3E4242424242424545444647464848494B4A4A4E4D4D4F4F4F53535355
+      55555858585B5B5B5D5E5D6262616465656868686C6C6C70706F737373777777
+      7A7A7A7F7F7F8383838888888C8C8C9191919596959A9A9A9F9F9FA4A4A4AAAA
+      AAAFAFAFABABAB4444443A3A3A3D3D3D40404043434345454547474748484849
+      4949494949484848474747474747474747464646454545454545444444434343
+      4141414040403E3E3E3C3C3C3A3A3A38383836363637352C31374B183EC90B40
+      FF0B3FFF0B3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0638FF02
+      37FF0034FF153FE4545E8469665C5F5F5F5858585151514A4A4A4343433D3D3D
+      3939393636363333333131313131312F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D
+      2D2C2C2C2C2C2C2C2C2C2B2B2B2A2A2A2929292727272525252323232020201D
+      1D1C1B1B170821A30025EC0024E00023DF0023DE0022DD0022DC0021DB0021DA
+      001FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001A
+      CE001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C500
+      15C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9
+      000FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000BAE0008
+      B30C138C2F2F2C2E2E2C2929292222221B1B1B1414140A0A0A06060606060604
+      0404040404040404020202020202121212A0A0A1A7A6A7A1A1A19B9B9B959595
+      9090918C8D8C8988888382827F7E7E7978797474746F6F6F6A696A6363635E5E
+      5E5B5A5B5556555252524E4E4E4A4A4A4F50505252525050504D4D4D4A4A4A48
+      48484545453C3B3C2D2D2D2A2A2A2828282626262323232222222120201D1D1D
+      1C1C1C1A1A1A191A192323232323232323232323232423231919191213131111
+      121110121010100F0F1014141415141414141413141413131313131313131313
+      1213131213121213121212121212121212111112121111111111111211111111
+      1111111110111011101110111110101011101010110D0D0D0C0B0C0C0C0C0C0C
+      0C0C0C0C1414142525252929292E2D2E3231322B2B2B08090908080808080807
+      0807080808080707070808080707070707070707070707070706070607060707
+      0606060707070606060606060606060606060505060505050E0E0D1515151515
+      1515151515161616161616161716161717171717171718181818181818181819
+      1919151515070708030304040303030303030303030303030303030202020302
+      0303020302020203030202020302020202020202020202020202020201010201
+      0201020201020201010101010101020101010101010101010101010101010101
+      0001010101000100000101000100000000010001000001000100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303636363D3D3D4040404040
+      404040404040404040404040404040404040404040404040403C3C3C3535352F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3030303535353939383939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383833
+      3333313131323131323131323132323132373737393939393939393939393939
+      3939393939393939383939383938383938383938383938383838383838383838
+      3838383838383838383838383838383838383838383838383838383738383738
+      37373837373837373837373837373838383A3A393A3A393A39393A3939393939
+      3737373736363636363636363636363636363636363636363636363635352F2F
+      2F2F2F2F2F2F2F2F2F2F3030303D3D3D4848484B4B4B4F4F4F53535349494933
+      33333434343636363636363737373838383A3A3A3B3B3B3D3D3D3E3E3E403F3F
+      4241424344444546464847484A49494B4C4B4E4F4F5152515353535757575959
+      595C5C5C5F5F5F6362626665666A6A696D6D6D7171717474747878787C7C7C80
+      80808585858989898E8E8E9393939798989C9C9CA1A1A1A6A6A6ABABABB0B0B0
+      8D8D8D3A3A3A3C3C3C3E3E3E4242424545454646464848484949494949494A4A
+      4A4949494848484747474747474747474646464545454444444343434141413F
+      3F3F3D3D3D3A3A3A3737373636363533292D35541440E20C41FF0E40FF0E40FF
+      0D3FFF0C3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0438
+      FF0035FF0939F44C598D6663585B5B5B5454544D4D4D4646464040403B3B3B37
+      37373434343333333131313030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D
+      2C2C2C2C2C2C2C2C2C2B2B2B2929292828282525252323232020201D1D1D1C1A
+      0E0E1F780025EE0024E10024E10023DF0023DE0022DD0022DC0021DB0021DA00
+      1FD9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE
+      001ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015
+      C30015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B900
+      0FB8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF000AB0010AAD
+      2225482E2E2729292A2424241D1D1D1717170E0E0E0707070606060505050404
+      04040404040404020202020202757675A8A8A8A3A3A39D9C9D99999995949490
+      8F8F8A8A8A858485807F7F7B7B7B7575757071716C6C6C6666666060605B5B5B
+      5758575353534F4F4F4B4B4B4949494E4D4E5050504D4D4D4C4C4C4848484646
+      464242423938392C2C2D2929292626262424242223232121201E1E1F1E1E1E1E
+      1E1E222222242424252525242424242424232222131314121213111112111112
+      1010111112121514141514141414141414141414131313141313131313131313
+      1313131312131312121212121212121211121212121212111211111111111111
+      11111111111011111010111111111011100E0E0E0C0C0C0C0C0C0C0B0B0C0C0D
+      1211122323232828282D2C2D3030303333340908090809090808090808080808
+      0808080808070707080707080707070707070707070707060706060707060606
+      07070606060606060606060606060A090A131212161615151615151515161616
+      1717171617171818181717171415151818181818181819181818181919191819
+      191718180B0C0C03030403030304030303030303030303030302030303020303
+      0203030203020302020202020202020202020202020202020202020102010102
+      0101010102010102020101010101010101020101010101010001010001000000
+      0000010100010001010000000000000001010000010000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303434343B3B3B404040
+      4040404040404040404040404040404040404040404040404040403E3E3E3636
+      373030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F30363636393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383333333131
+      3131313132313132313132313237373739393939393939393939393939393939
+      3939393939393938393938393838393838393838393838383838383838383838
+      3838383838383838383838383838383838383838383838383838373838373837
+      373837373837373837373838383A3A3A3A3A393A3A393A39393A393938383837
+      36363636363636363636363636363636363636363636363636363030302F2F2F
+      2F2F2F2F2F2F3030303838384646464A4A4A4D4D4D5252525353533333333434
+      343636363636363737373939393A3A3A3B3B3B3D3D3D3E3E3E40404042424144
+      44434746474747484A4B4A4D4D4D4F4F4F5352525454545757575A5A5A5D5D5D
+      6060606464646666676A69696D6D6E72727175767579797A7D7D7D8282828686
+      868B8B8B8F8F8F9494949999999E9E9EA2A3A2A9A8A8ADADADB2B2B26868683C
+      3C3C3E3E3E4141414444444646464848484949494949494A4A4A4A4A4A4A4A4A
+      4949494848484747474747474747474646464444444343434141413E3E3E3B3B
+      3B37373735353534322D2F323F1740DB0F43FF1041FF0F40FF0E40FF0E40FF0D
+      3FFF0C3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0538FF
+      0035FF0A3AF3525A7A5F5D565656565050504949494242423C3C3C3838383535
+      353434343232323131313030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C
+      2C2C2C2C2C2B2B2B2929292828282525252323232121211E1E1E1C1A11111C54
+      0025E50024E40024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001F
+      D9001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE00
+      1ACE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C3
+      0015C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000F
+      B8000FB7000EB6000EB5000DB4000CB2000CB2000CB0000BAF0008B61117782C
+      2C24292929262626202020191919111111090909070707060606040404040404
+      040404030303030303424242AAAAAAA6A6A6A2A1A29C9B9B9796969191918C8C
+      8B8786868181817D7D7C7777777272716E6E6E6969696464645C5C5C58585854
+      54545050504C4D4C4949494646464949494D4D4D4C4C4C494949464646424242
+      3E3E3E3A393A2B2B2A262626272728282828292A2A292A292A29292929292727
+      272727272626262525252424241D1D1D14141412131311121211111211111214
+      1414161414151414151414141413141414131314131313131313131313131313
+      1312131213121212121212121212121112121211121111111112111111121111
+      111111111111101110101010110F0F0E0C0D0C0C0C0C0C0B0C0C0B0B0F0E0E22
+      22222727272A2A2A2E2E2F323231111011090909080808080808080808080807
+      0708070808080808080707070707080707070707070707070706070707060607
+      070706070707080F0F0F15151515161615151617171616171617181718181718
+      1818121212080808070808131212181819181818191A1A191919181919191919
+      1A1A1A100F100303040403030304040303030303030203030302030203030203
+      0203030302020202030202020203020202020202020202020202020202020202
+      0101020201010201010101020102010101010101010101010101010100010100
+      0001010100010000010000010100010100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303232323A3A3A3F
+      3F3F4040404040404040404040404040404040404040404040404040403F3F3F
+      3939393131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F34343439393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838333333313131313131
+      3131313231313231313636363939393939393939393939393939393939393939
+      3939393939393839393839383839383839383839383838383838383838383838
+      3838383838383838383838383838383838383838383838383837383837383737
+      3837373837373837373A3A3A3A3A3A3A3A393A3A393A39393938383736363636
+      363636363636363636363636363636363636363636363232322F2F2F2F2F2F2F
+      2F2F3030303232324444444848484B4B4B4F4F4F5353533F3F3F353535363636
+      3636363838383939393A3A3A3B3B3B3D3D3D3F3F3F4141414242424444434747
+      474949494A4B4A4E4E4D5050505253525554545757575B5B5B5E5E5E61616164
+      64646868686C6B6B6F6E6E7373727677777A7A7A7E7F7E8382828787878B8B8B
+      9090909595959A9A999E9E9EA4A4A4A9A9A9AFAFAFADADAD4747473D3D3D4141
+      414444444646464747474949494A4A4A4B4B4B4A4A4A4A4A4A4A4A4A4A4A4A49
+      49494848484747474747474646464444444242423F3F3F3D3D3D393939363636
+      323231302F291C3DB41045FF1243FF1042FF1041FF0F40FF0E40FF0E40FF0D3F
+      FF0C3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0538FF00
+      35FF183FDB595A5C5756545050504A4A4A4343433E3E3E3A3A3A363636343434
+      3333333232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C
+      2C2C2C2C2A2A2A2828282626262323232121211E1E1E1B1A16151A320125DD00
+      25E70024E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9
+      001FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001A
+      CE001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C300
+      15C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB8
+      000FB7000EB6000EB5000DB4000CB2000CB2000CB0000AB3030DA22425312929
+      252626262222221B1B1B1414140B0B0B08080807070705050504040404040403
+      0303030303161616A6A6A6A9A9A8A3A3A29E9E9D9797979292928D8D8D878787
+      8282827E7D7D7878787474746F6F6F6A6B6A6666666060605A5A5A5554555251
+      524D4E4D4A4A4A4646464343434544454B4B4B4848484646464343433F3F3F3D
+      3D3D3636373535353334333131312F2F2F2B2B2C2B2C2B292929292929282728
+      2827272626262525251717181414141312131112121111121212121515151514
+      1415141515141414141414131413131413131313131313131313131212121313
+      1313131212121212121212121212121212121111121111111112111111111111
+      1111111011101011100F0F100C0C0C0C0C0C0C0C0C0C0B0C0E0D0D1E1D1E2525
+      262828282C2C2C2F2E2F17171608080908080908090808080808080808080808
+      08070808080807070707070707080707070707070707060607070707060B0B0B
+      1414141616161616161616161717171818181818171818181615150C0B0C0707
+      070706070707070706070E0E0E1818171919191A19191919191919191A191A1B
+      1A1A151515050506030403030403030303030303030303030303030302030302
+      0303020202020303020202020202020202020202020202020202020201010201
+      0201010201010101020101010101010101010100010101010101010101000000
+      0101010100000100000001010001000100000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303131313838
+      383E3E3E40404040404040404040404040404040404040404040404040404040
+      40403B3B3B3333332F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F323232
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383835353531313131313131313131
+      3131323131353535393939393939393939393939393939393939393939393939
+      3939393939383939383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738373738
+      37373837373A39393A3A3A3A3A3A3A3A393A3A39393939373636373636363636
+      3636363636363636363636363636363636363434342F2F2F2F2F2F2F2F2F2F2F
+      2F3131313E3E3E4646464949494E4E4E5151514F4F4F35353536363636363638
+      38383939393A3A3A3C3C3C3E3E3E3F3F3F414141424242454545474747494849
+      4A4B4B4E4E4D4F4F505353535555565858585B5B5B5F5F5F6262626565656868
+      686C6C6C7070707473737878787B7B7C7F7F7F8585858989898D8D8D92929197
+      97979C9C9CA1A1A1A6A6A6ABABABB0B1B09595953D3D3D3F3F3F434343454545
+      4848484949494A4A4A4B4B4B4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A4949
+      494848484747474646464545454242423F3F3F3C3C3C383838343434312F2627
+      34661345FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF
+      0C3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0537FF0035
+      FF374B9758554A4E4F4E4A4A4A4343433F3F3F3B3B3B37373735353533333332
+      32323232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C
+      2B2B2B2929292727272525252222221F1F1F1C1B19191A210324CB0026EA0025
+      E30024E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD900
+      1FD8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE
+      001ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015
+      C20014C10014C00013BF0013BE0011BD0011BC0011BB0010BA0010B9000FB800
+      0FB7000EB6000EB5000DB4000CB2000CB2000BB1000AB5171B5729281F262626
+      2222221D1D1D1616160E0E0E0808080707070606060606060505050303030303
+      03030303828282ABABAAA4A4A4A09F9F9A9A9A9494948F8E8E89898984838480
+      7F807A7A7A7474747070706C6D6D6767676364635E5E5E5656565252524F4E4E
+      4A4A4A4747474343434040404343434848484545454343433F3F3F3D3D3D3A3A
+      3A3737373434343232323030302E2E2E2C2D2D2B2A2A2A2A2A29292927282828
+      2727202020151515141414131313111112111112141414161514161415151414
+      1514141414141414141414141314131313141413131313131313131213121313
+      1213121312121212121212121211121211121212111112121111111111111111
+      11111111111111110D0C0C0C0C0D0D0D0C0C0C0B0D0D0C181819232223262627
+      2829292A2A2A1A1A1A0809080909090808080808090808090808090807070708
+      0807080808080808080807070707070707070709090911111116161616161616
+      1616171717171717181818171818191819101110080909080807070807070707
+      0707070707070606070A090A1515151A19191A19191919191A1A1A1B1B1B1B1A
+      1A16171707060703040303030303030303030303030303030303030303030303
+      0302030302030202020202020202020202020202020202020102020202010102
+      0202020102010101010101010101010101010101010101010101010101010100
+      0100000000000001010000000001000000010000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3636363D3D3D4040404040404040404040404040404040403F3F3F3F3F3F3F3F
+      3F3F3F3F3D3D3D3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31313139393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383535353131313131313131313131313131
+      3134343439393939393939393939393939393939393939393939393939393939
+      3939393938393938393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838373838373837373837
+      373939393A3A3A3A3A3A3A3A3A3A3A393A3A3937373737363636363636363636
+      36363636363636363636363636363636363030302F2F2F2F2F2F2F2F2F313131
+      3535354545454848484C4C4C4F4F4F5151514040403636363636363838383A3A
+      3A3A3A3A3C3C3C3E3E3E3F3F3F4242424343434545454747474A4A4A4C4C4C4F
+      4E4F505151545353565756595A595C5B5C5F5F5F6363636666666A6A6A6D6D6D
+      7171717575757979787D7D7D8181818585858A8A8A8E8E8E9393939898989C9C
+      9CA2A2A2A7A7A7ACACADB2B2B27979793E3E3E4141414444444747474949494B
+      4B4B4B4B4B4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A494949
+      4747474646464444444242423E3E3E3A3A3A3737373232312F2E281C3EBD1347
+      FF1445FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C
+      3EFF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0639FF0236FF123CE0
+      4E4F524D4C4A4848484343433F3F3F3B3B3B3838383535353434343232323232
+      323232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2C2C2C2C2C2C2A
+      2A2A2828282626262323232020201D1D1B1B1A1C0623B80027EF0026E40025E3
+      0024E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9001F
+      D8001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE00
+      1ACD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C2
+      0014C10014C00013C10013C00012BF0011BD0011BC0010BA0010B9000FB8000F
+      B7000EB6000EB5000DB4000CB2000CB1000AB80B128025251F2525242323231E
+      1E1E181818111111090909080808070707060606060606040404030303030303
+      585858ADACACA7A6A6A1A0A09B9B9A959494908F8F8A8A8A8585848080807B7B
+      7B7676767272726D6D6D6968686464656060605B5B5B535353504F504C4C4C48
+      48474444444040403F3F3F4140414646464343434141413D3D3D3B3B3B383838
+      3737373333333131313030302D2E2D2C2C2D2B2B2B2A2A2A2929282828271C1B
+      1B15151514141413131312121211121216171716151516151516151515141415
+      1414141414141414141414141314131413141313131313131313131312121313
+      1212131212121212121212111211121212111111121211121111111111111011
+      111111110E0D0D0C0C0C0C0C0C0C0C0C0C0D0D14151522212224232426262526
+      27262121210B0A0A080809090909090809080808080808080808080707080707
+      0808070808080807080707070E0E0E1414141616161616161717171717171818
+      181818181919191414140B0B0B08080807070808070807080807080807070707
+      07070707070607070807081212121919191919191919191A1A1A1A1A1A1B1C1C
+      19191A0808090303030303040303040304030303020203030202020203030302
+      0203030202020202020202020202020202020202020102020202010202020102
+      0102010201010102010101010101010101010101010101010101010100000101
+      0000000100010100000000000101000000000000010000000000000000000000
+      0000000000000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303434343B3B3B4040404040403F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F
+      3F3F3F3F3F3F3837382F2F2F2F2F2F2F2F2F2F2F2F3030303939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838373736313131313131313131313131313131333333
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839383839383839383839383838383838383838383838383838
+      3838383838383838383838383838383838383838383837383837383737393838
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A393838383736363636363636363636363636
+      363636363636363636363636363232322F2F2F2F2F2F2F2F2F31313131313140
+      40404646464949494D4D4D5050504D4D4D3636363737373838383A3A3A3A3A3A
+      3D3D3D3E3E3E3F3F3F4242424444444646464848484A4B4B4D4D4D4F4F4F5252
+      52555554575757595A595D5D5D6061606363636767676A6A6A6E6E6E72727276
+      7676797A797E7E7E8282828686868B8C8B8F8F8F9494949999999E9E9EA3A4A4
+      A9A8A9ADADADB3B3B35C5C5D4141414444444646464848484B4B4B4C4C4C4D4D
+      4D4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A48484847
+      47474444444141413E3E3E39393935353531302B2A30471646F61447FF1546FF
+      1446FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3E
+      FF0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0538FF0437FF3745794A
+      483F4545454242423E3E3E3B3B3B383838363636353535333333323232323232
+      3232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2C2C2C2A2A2A2929
+      292626262424242121211F1E1E1D1B160A22980028F70027EE0026E60025E300
+      24E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD8
+      001FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001A
+      CD0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C30015C200
+      14C30014C20013C00013BF0012C00011C30011C70010C30010BF000FB9000FB7
+      000EB6000EB5000DB4000CB2000CB4020CA61E1F2E2424212323231F1F1F1919
+      191313130C0C0C0808080707070707070606060505050303030303032E2E2EAD
+      ACACA7A7A7A2A2A19D9C9D9796979191918C8C8C8786868382827D7C7D787778
+      7373736E6E6E6A6A6A6666656161615C5C5C5858585050504D4D4D4949494444
+      444141413F3F3F3B3B3B3C3C3C4342424242423E3E3E3C3C3C3A3A3A37383834
+      34343131313232322F2F2F2828292424252121221D1C1D181718171717151615
+      1415141313131211121414131717161615151615151615141515151515141514
+      1414141413141414131414131313131313131313131313121313131213121213
+      1213121312121212121212121211121212111112121111111111111111111111
+      0E0F0E0D0C0D0D0C0C0D0C0D0D0D0D1011102020212120202122222322222222
+      212020201515140E0E0D09090809080809080808080808080808080808080808
+      08070B0B0C121212161616161616161616171717171717181818181818171717
+      1010100808080808080808080708080708070708080707070708070707070707
+      070707070606070707060F0F101919191919191A1A1A1B1B1B1C1C1C1C1B1C1B
+      1A1A0C0C0B040403030304030403030303020303020303030302030302030303
+      0202020303020303020302020202020202020201020101020102020201010201
+      0201010101010201010101010101010101000101010100010101010000000100
+      0101000100000001000000010001000000000000000000000000000000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303232323939393E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3F
+      3F3F3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      383938383938383838373131313131313131313131313131313131313A393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383838383838383838383838383838
+      383838383838383838383838383838383838383838373838373838383A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A393939373636373636363636363636363636363636
+      3636363636363636363535352F2F2F2F2F2F2F2F2F3030303131313636364545
+      454747474B4B4B4E4E4E5050504343433737373838383A3A3A3B3B3B3D3D3D3E
+      3E3E4040404242424444444747474848484B4B4B4D4D4D504F50525353555455
+      5757575B5A5A5E5F5E6161606564646868686B6B6B6F6F6F7273737677777B7B
+      7B7F7F7F8282828787888C8C8B9090909595969A9A9A9F9F9FA4A5A5AAAAAAB0
+      B0B0A9A9A94747474343434545454747474A4A4A4B4B4B4D4D4D4E4E4E4E4E4E
+      4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4949494747474444
+      444040403D3D3D393939333333302D232436771649FF1647FF1547FF1546FF14
+      46FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF
+      0B3EFF0A3DFF093CFF093BFF083BFF073AFF0639FF0238FF233CA04542364040
+      403E3E3E3D3D3D3A3A3A38383836363635353534343433333333333332323232
+      32323030303030303030302F2F2F2F2F2F2E2E2E2D2D2D2C2C2C2A2A2A282828
+      2525252323232121211F1E1C1A1C25101F660623B90026EA0027F00025E60024
+      E20024E20024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD800
+      1FD7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD
+      0019CB0019CB0018CA0018C90017C70016C60016C60016C50015C60114B4080E
+      47090E3C090E3D080E45070E51050E65040E79020F930010B5000FB9000FB700
+      0EB6000EB5000DB4000CB3000BB71317542322192222221F1F1F1A1A1A151515
+      0E0E0E0909090808080707070707070505050404040303030E0D0D9F9F9FAAAA
+      AAA4A3A49E9E9E9897979292928D8D8D8887878382827E7E7D7979787474746F
+      6F6F6B6B6B6666666162625E5D5D59595A5555554E4E4E4A4A4A464546424142
+      3F3F3F3C3C3C3939393838384041413F3F3F3D3D3D3A3A3A363636302F302A2A
+      2A2525262020201E1D1E1C1B1C1A1B1B18181818181817171716161514141413
+      1314121212161616171617161615161515161515161515151415141414141514
+      1414141314131413141314131414131413131313131312131312121313131312
+      121312121212121212111212121112111112111211121111111111110F0E0F0C
+      0C0D0D0D0D0C0C0C0C0C0C0D0D0D1F1F1F1F20202120212120201F201F1D1E1E
+      1C1D1C1B1B1B17181710100F0909080809090808080808080909090F100F1616
+      16161717161716181817171717181818181818191919141414090A0A08080808
+      0908080807070808080808080808070808080708070707070708070707060707
+      0707070607070606070D0C0D1819181919191A1A1A1B1B1B1B1B1B1C1B1C1C1D
+      1D0C0C0D03040304040303030303030303020302030302030303030303020303
+      0202020202020203020202020202010202010202020102010201020202010102
+      0101020101010201010101010101010101000101010101000101010101010001
+      0001000001000000000101000000000000000000000000000000000000000000
+      0000000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303131313636363B3B3B3C3C3C3C3C3C3D3D3D3D3D3D3E3E3E3C3C
+      3C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F38373739393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383131313131313131313131313131313131313838383A39393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3938393938393838393838393838393838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A37373737363636363636363636363636363636363636
+      36363636363636363130312F2F2F2F2F2F3030303131313232323F3F3F474747
+      4949494C4C4C4F4F4F5050503C3C3C3838383A3A3A3B3B3B3D3D3D3E3E3E4040
+      404242424444444747474949494B4B4B4D4E4E5050505253535655565858585B
+      5B5B5F5E5F6162616665656968686C6C6C7070707474747878787C7C7C80807F
+      8584858989898D8E8E9292929797979C9C9CA0A0A0A6A6A6ABABABB1B1B19595
+      954141414444444747474A4A4A4B4B4B4D4D4D4D4D4D4E4E4E4F4F4F4E4E4E4E
+      4E4E4C4C4C4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A494949474747444444414141
+      3C3C3C373737333333302C21213C9C164BFF1748FF1648FF1547FF1546FF1446
+      FF1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B
+      3EFF0A3DFF093CFF093BFF083BFF073AFF0339FF1738BE3B39353B3B3A3B3B3B
+      3A3A3A3939393838383636363636363535353333333333333333333232323232
+      323030303030303030302F2F2F2F2F2F2E2E2E2D2D2D2B2B2B29292927272725
+      25252222222020201E1D1B1D1B0F1A1A19121D500822A30026E20026EF0024E6
+      0024E20024E00023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD8001F
+      D7001ED6001ED5001DD4001DD3001CD2001CD1001BD0001ACE001ACE001ACD00
+      19CB0019CB0018CA0018C90017C70016C60016C50016CF0512780E0C000D0C03
+      0C0C040D0C030C0B010C0B000B0A040A0A09030E840010C1000FB8000FB7000E
+      B6000EB5000DB4000CBC0910781E1E1720201F1E1E1E1A1A1A1515150F0F0F0A
+      0A0A090909070707070707060606050505050505040404818181ABABABA5A4A4
+      A09F9F9A99999494948F8F8E8A89898484847F7F7F7A7A7A7574747071706C6C
+      6C6767676363625F5F5F5B5A5A5757585252524B4B4B4747464343434040403C
+      3C3C3939393737373636363C3D3D3737362E2E2F282828252626232424222223
+      2020201F1F1F1C1B1B1A1B1A1818191818181717171615161515151313131414
+      1418171718171716151516151516151516141515151515151414141414141514
+      1414141414141314131313131413131313131313131313131212121312121212
+      1212121212121212121212111212121111121111111111111010100D0C0D0D0D
+      0D0C0D0C0C0C0D0D0D0E1A1A1A1E1E1E1E1D1E1D1E1D1E1E1D1C1C1C1C1C1C1B
+      1B1B1B1B1B1B1B1A1918191111110909090D0D0D161616171717171716171717
+      1717171818181818181919191717170D0D0E0809090909090808080808080808
+      090808080808080708080708080A090A08080807070707070707070707070706
+      06070607060706070B0A0B161617191A191A1A1A1C1C1C1C1C1C1D1D1D1D1C1C
+      0D0D0D0303040304030303030303030303030302030303020303020202030302
+      0302030302020202020202020202020201020201010202020201010201020101
+      0101020101010101010101010101010101010001010000010101010100010000
+      0001010000000001000000000000000100000000000000000000000000000000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303434343B3B3B3C3C3C3D3D3D3D3D3D3E3E3E2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3737373939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      38383332323131313131313131313131313131313737373A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3839393839383839383839383839383838383838383838383838383838383838
+      38383838383838383838383838383838383838373939393A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3838383736363736363636363636363636363636363636363636
+      363636363434342F2F2F2F2F2F3030303030303232323535354646464747474B
+      4B4B4D4D4D5050504D4D4D3B3B3B3A3A3A3B3B3B3D3D3D3F3F3F414141424242
+      4444444747474949494B4B4B4E4E4E5050505353535656555959595C5C5B5F5F
+      5F6362636665666969696C6C6C7070707474747979797C7D7D80808184858489
+      89898E8E8E9393939898989C9D9DA1A1A1A7A7A7ADADADB2B2B2808080444444
+      4646464949494B4B4B4D4D4D4E4E4E4F4F4F4E4E4E4F4F4F4F4F4F4E4E4E4E4E
+      4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4949494848484545454141413C3C3C37
+      37373332312E2D26203EAD174BFF1749FF1748FF1648FF1547FF1546FF1446FF
+      1345FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3E
+      FF0A3DFF093CFF093BFF083BFF053AFF1338C837363637373537373738383837
+      3737373737373737363636353535343434333333333333333333323232323232
+      3030303030303030302F2F2F2F2F2F2D2D2D2C2C2C2B2B2B2929292626262424
+      242121212020201E1E1F1C1B191C1A101A1912131A3D091F8E0224D60025EE00
+      24E80024E10023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD8001FD7
+      001ED5001ED7001EDC001DD5001CD2001CD1001BD0001ACE001ACE001ACD0019
+      CB0019CB0018CA0018C90017C70016C80016C40A0F330E0D060D0D0D0D0D0D0C
+      0C0C0C0C0C0C0B0B0B0B0A0B0A00050D660011C60010B9000FB8000FB7000EB6
+      000EB5000DB8020D9C16161C1C1C191C1C1C1919191616161010100A0A0A0909
+      09080808070707060606060606050505040404616161ADADACA7A6A7A1A0A09B
+      9A9A9595959090908A8A8A8585858080807A7A7A7576757172726D6D6D696868
+      6464645F5F5F5B5C5C5758575353535050504848484444444040403D3D3D3939
+      393737373434343131312E2D2D2B2B2C2A29292727272425252223232020201F
+      1F1F1D1D1D1A1B1A191919191818171717161616161616151414161616181716
+      1717171716151715151615161615151515151515151414141414141514151314
+      1414141414141413141313131313131413131313121212121313131213131212
+      12121212121212121212121211121211121111121111110D0D0D0C0C0D0C0D0D
+      0D0D0C0C0C0D1212121C1C1C1E1D1E1D1D1C1D1D1D1C1D1C1C1C1C1B1B1B1B1B
+      1B1B1A1B191A1A1A191A18191818181919181918181818171817181818191818
+      18191919191212120A0A0A090909080808090809080808080809080809080808
+      0808080909080A0A0A0A0A0A0909090909090707080707070707070706070706
+      07070607060707080909151515191A191B1B1B1C1C1C1C1D1D1D1C1D1E1E1E0D
+      0E0D030403030303030303030303030303030203020302030302030203020202
+      0302020202020202020202020202010202020101010202020201010201020101
+      0101010201010101010101010101010101010100000101010100010101000001
+      0101000000010101010000000001000000000000000000000000000000000000
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303939393A3A3A3B3B3B3D3D3D3E3E3E3030302F2F2F2F
+      2F2F2F2F2F2F2F2F343434393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383434
+      343131313131313131313131313131313535353A39393A39393A393939393939
+      3939393939393939393939393939393939393939393939393939393939393938
+      3939383938383938383938383938383838383838383838383838383838383838
+      383838383838383838383838383838383838383B3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A393939373636373636363636363636363636363636363636363636363636
+      3636363130312F2F2F3030303030303232323232323D3C3D4646464848484B4B
+      4B4D4D4D4F4F4F4949493A3A3A3C3C3C3D3D3D3F3F3F41414142424245454547
+      47474949494B4B4B4E4E4E5151515353535757575A5A5A5C5C5B5F6060636363
+      6767666A6B6B6D6D6D7171717576757979797D7D7D8282828686868A8A8A8F8F
+      8F9394939898999D9D9DA3A3A3A8A8A8ADADADB2B2B26C6C6C4545454848484A
+      4A4A4D4D4D4E4E4E4F4F4F5050505050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E
+      4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A4848484545454141413D3D3D3838383332
+      312E2D26203FAF184CFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF13
+      45FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF
+      0A3DFF093CFF093BFF063AFF1438C73635343636343636363737373737373737
+      3737373737373736363635353534343433333333333333333332323232323230
+      30303030303030302F2F2F2E2E2E2D2D2D2C2C2C2A2A2A292929272727242424
+      2222222020201E1E1E1C1C1D1B1B1A1A191219170D14182C0B1D760322C60025
+      E80024E20023DF0023DE0022DD0022DC0021DB0021DA001FD9001FD9001FE200
+      1ED2041BA7001DD2001DD7001CD2001CD1001BD0001ACE001ACE001ACD0019CB
+      0019CB0018CA0018C80018D00314990E0E0B0E0E0D0E0E0E0E0E0E0E0E0E0C0C
+      0C0C0C0C0C0C0C0B0A02060C490011C00010BA0010B9000FB8000FB7000EB600
+      0EB7000DB10D0F2F15150F1818181717171515151010100B0B0B090909090909
+      080808070707060606060606040404414141ADADACA8A7A7A1A1A19C9C9C9696
+      969190908B8B8B8686868180807D7C7C7878777272726D6D6D69696A65656560
+      60605C5D5D5858585454555151514D4C4C4646464141413E3E3E3B3A3B373737
+      3434343131312D2D2E2C2C2D2929292727272525252222222122211F1F201D1D
+      1D1B1C1C19191918181817171716161616161616161618181918171718171717
+      1615171615161616161615161515151515151415151514141414141414141414
+      1413141413131314141413131313131313131313121213121212121312121212
+      121212121211121112111111111111111111120E0E0E0D0D0D0C0C0D0D0D0D0D
+      0C0D0C0D0C0C0C0C100F0F1616161C1B1C1C1C1D1C1D1C1C1C1C1B1B1B1B1B1B
+      1B1B1B1A1A191A19191A1919191919191919191919191919191A1A1615160C0D
+      0D0A09090909090909090909090909080909080908080809080908090A0A0A0A
+      0A0A0A0A0A0A0A0A0A09090A090A090909080709070707070707070707060607
+      0706060606070809091415141A1A1B1B1B1B1C1C1C1D1D1C1E1E1E1E1D1E0D0D
+      0D03040303030403030303030303030303030303030302030303020302020202
+      0203020202020202020202020202010202020201020102020201020102010101
+      0101010101010101010101010101010101010101010001010100000101000001
+      0100010101000000000000000001000000000000000000000000000000000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303636363939393A3A3A3C3C3C3D3D3D3232322F2F2F2F2F2F2F2F
+      2F2F2F2F3333333A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838353535313131
+      3131313131313131313131313333333A39393A39393A39393A39393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393838393838393838393838383838383838383838383838383838383838
+      3838383838383838383838383838383A3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A37373737363636363636363636363636363636363636363636363636363635
+      34342F2F2F3030303030303131313232323333334242424747474949494B4B4B
+      4E4E4E4F4F4F4848483C3C3C3E3E3E3F3F3F4242424343434545454747474A4A
+      4A4C4C4C4F4F4F515151545454575757595A5A5D5D5D6160616363636767676A
+      6B6A6E6F6E7171717676767A7A7A7E7E7E8282828787878B8C8C909090959495
+      9A9A9A9F9F9FA4A4A4A9A9A9AEAEAEB2B2B25A5A5A4747474949494C4C4C4D4D
+      4D4F4F4F5050505151515151515050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E4C
+      4C4C4C4C4C4C4C4C4B4B4B4848484545454242423E3E3E3838383333332F2C23
+      223EA3184DFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345
+      FF1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF0A
+      3DFF093CFF073CFF1538C1333330353433363636363636373737373737373737
+      3636363636363535353535353434343333333333333333333232323232323030
+      303030303030302F2F2F2E2E2E2D2D2D2C2C2C2A2A2A29292927272725252523
+      23232121211F1F1F1C1C1C1B1B1B19191918171217150914151B0C1B700124E1
+      0024E20023DF0023DE0022DD0022DC0021DB0021E20020DF061C9D0E153B1212
+      0C0B165B001DD4001DD8001CD2001CD1001BD0001ACE001ACE001ACD0019CB00
+      19CB0018CA0018D10A1155100E040F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0D0D0D
+      0C0C0C0C0B06090C2B0011B90011BD0010BA0010B9000FB8000FB7000EB6000D
+      BC080D53100F051212121313131313131010100C0C0C0A0A0A09090909090908
+      0808060606060606050505242424ACABABA8A8A8A3A2A29D9D9D989797939292
+      8C8C8C8786878382827D7D7D7878787373736E6E6F6B6A6A6565656161615D5D
+      5D5959595455545252524D4D4D4A4A4A4444443F3E3F3B3A3A37373735353532
+      32322F2F2F2C2D2D2B2B2A2828282525252323232222211F1F1F1D1D1D1E1D1E
+      1D1C1D1B1B1C1B1B1C1B1B1B1C1C1B1B1B1A1919191818171817171716161716
+      1617161516151516151515151515151514141414141414141414141414141414
+      1414141413131414131313131314131313131313131213121213121212121312
+      1212121212111212111112111211120E0E0F0D0D0D0C0D0D0D0D0D0D0C0D0C0C
+      0C0C0D0D0C0C0D0C0C0C0B0C0C1112121919191C1D1C1C1C1C1B1B1B1B1B1B1B
+      1B1B1A1B1B191A1A1A1A191A1A1A1A1A1A1919191211120A09090909090A0A0A
+      0909090909090909090909090909080808080909090B0B0A0A0A0A0A0A0A0A0A
+      0A0A0A0A0A090A0A0A0A0A090A09090909080807070707070706070707070606
+      07060606070707081212121A1A1B1B1B1B1C1C1C1D1C1D1D1E1D1D1E1D0D0E0D
+      0303030303040303030303030303030303030302020203030303020202020202
+      0203020202020202020202010102020101010201020201010201010101020101
+      0201010201010101010101010101010101010101010100000101010101000001
+      0000010000000001010000000001000000000000000000000000000000003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303434343838383939393B3B3B3D3D3D3635362F2F2F2F2F2F2F2F2F2F2F2F
+      3131313A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383837373631313131313131
+      31313131313131313131313A3A393A39393A39393A39393A3939393939393939
+      3939393939393939393939393939393939393939393939393939393939383939
+      3839383839383839383839383838383838383838383838383838383838383838
+      38383838383838383838383939393B3A3A3B3A3A3A3A3A3A3A3A3A3A3A393938
+      3736363736363636363636363636363636363636363636363636363636363232
+      323030303030303131313131313333333535354545454848484A4A4A4C4C4C4D
+      4D4D4E4E4E4747473E3E3E3F3F3F4242424343434646464747474A4A4A4C4C4C
+      4F4F4F5252525555555757575B5B5B5E5E5E6161616464646868686B6B6B6F6F
+      707372737776767B7B7C7F7F7F8383838787878C8C8C9191919596969A9A9A9F
+      9F9FA5A5A5AAAAAAB0B0B0ABABAB4C4C4C4949494B4B4B4D4D4D4F4F4F505050
+      5050505252525252525151515050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E4D4D
+      4D4C4C4C4B4B4B4949494646464242423E3E3E3A3A3A343434312D222539841A
+      4DFF194BFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF
+      1244FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF0A3D
+      FF073DFF1A37A534312634333335353536363637373737373737373736363636
+      3636363636353535353535343434333333333333333333323232323232303030
+      3030303030302F2F2F2E2E2E2D2D2D2C2C2C2B2B2B2929292828282525252424
+      242222221F1F1F1C1C1C1B1B1B18181817171616140B12162E0124DC0024E400
+      24E10023DF0023DE0022E00022E7041FB70D175014130E14130A131210131206
+      0C1555011DD3001DD9001CD2001CD1001BD0001ACE001ACE001ACD0019CB0019
+      CF0217B70F101C10100C1010101111111111111111111010100E0E0E0D0D0D0C
+      0C0A0B0C130111A80011C00011BB0010BA0010B9000FB8000FB7000EC0050E72
+      0E0E060E0D0D0E0E0E0F0F0F0E0E0E0C0C0C0B0B0B0909090909090808080707
+      070606060505050D0D0DA09F9FAAAAAAA4A4A49E9E9E9897979392928D8D8D88
+      88888383837D7D7D7979797474747070706A6B6A6666666262635E5E5E5A5A5A
+      5555565252524F4E4E4B4B4B4747474141413C3C3C3838393536353232322F2F
+      2F2D2D2D2B2A2A2829282525262525252424242524252323232222222020201E
+      1E1E1D1D1D1C1C1C1C1C1B1B1B1A191919181718181717171616171616171616
+      1715151616161616151515141514151415141514151414141414141414141413
+      1414141314131313131313141313131313131213131312121213121312131212
+      12121212121112111212110F10100E0D0E0D0D0D0D0D0D0C0D0C0D0C0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0F0F0E1717161C1C1C1B1C1C1B1B1B1B1B
+      1A1A1A1A1A1B1A1A1A1B1615160B0C0B0A090A090A0A09090A0A090A09090A0A
+      0909090909090909090A0A0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A0A0A0A
+      0A0A0A0A0A0A0A0A090A090A0909090808080707070707070707070707070607
+      060706060807081212121A1A1A1B1B1B1C1C1C1C1C1D1D1E1E1D1E1E0D0E0D03
+      0403030304030303030303030203030303030302020203020202030302020202
+      0202020202020202020202010102010201020201020201020101020102010101
+      0201010101010101010101010101000101010000000101010101000101010000
+      0000000101000000000000000000000000000000000000000000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303333
+      333737373939393A3A3A3C3C3C3838382F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383131313131313131313131
+      313131313131313838373A3A393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393938393938
+      3938383938383938383938383838383838383838383838383838383838383838
+      383838383838383838383B3B3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A37373737
+      3636363636363636363636363636363636363636363636363636363535313131
+      3030303131313131313232323333333939394646464949494A4A4A4C4C4C4D4D
+      4D4E4E4E4C4C4C4040404242424444444646464848484B4B4B4D4D4D4F4F4F53
+      53535555555757575B5B5B5F5F5F6161616565656868686C6C6C706F70737474
+      7778787B7B7C8080808484848989898D8D8C9291929696969B9B9BA1A1A1A6A6
+      A5ABABABB0B0B09D9D9D4A4A4A4A4A4A4C4C4C4E4E4E50505051515152525252
+      52525252525252525151515050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E4C4C4C
+      4B4B4B4A4A4A4747474343433F3F3F3B3B3B35353531302A2A33561B4CFD1A4C
+      FF1A4BFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF12
+      44FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3DFF093DFF
+      223373322F253333333535353636363737373737373838383838383636363636
+      3636363635353535353534343433333333333333333332323232323230303030
+      30303030302F2F2F2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A282828262626242424
+      2222221F1F1F1D1D1D1A1A1A18181816150E0F18440025E20024E50024E20023
+      E00023E40022DC0B1C7A15161C16140A1515131414141414141313131312070D
+      1545011DCC001DDA001CD2001CD1001BD0001ACE001ACE001ACC001AD607157B
+      1210071211111212121212121212121212121111111010100F0F0F0D0D0B0C0C
+      0B03108C0012C50011BC0011BB0010BA0010B9000FB8000FBD030E900E0E100E
+      0E0C0E0E0E0D0D0D0D0D0D0D0D0D0C0C0C0A0A0A090909090909080808060606
+      050505070707888888AAAAAAA5A5A59F9F9F9A99999493938E8E8E8989898483
+      847F7F7F7979797575756F70706B6B6B6666666262625F5F5F5A5A5A57575752
+      52524F50504B4B4B4848474444443E3E3E3939393636363334343030302E2E2E
+      2E2D2E2D2D2D2B2B2B2929292727272626252324232222222020201F1F1F1E1E
+      1D1C1C1C1C1C1C1B1B1A19191918181719171817161617161617161617151516
+      1616161515151515151515151515141515141414151414141414131414141414
+      1313131413141314131413131313131312131313121312121212121312121212
+      121112121211121111110D0D0F0D0D0D0D0D0E0C0D0D0D0D0D0D0C0D0C0C0C0D
+      0C0C0C0D0C0C0C0C0C0B0C0B0B0B0C0B0B0E0E0D1617171C1C1C1C1C1C1C1C1C
+      191A1A0F0F0E0A0A0A0A0A0B0A0A0A0A0A0A0A0A0A0A0909090909090A0A0909
+      090B0B0C0C0C0C0C0C0C0C0B0B0B0B0B0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A
+      0A0A0A0909090A0909090909090A080808080707070607070607070707070706
+      0606070808071212131A1A1B1B1B1B1C1C1C1D1D1D1D1D1E1F1E1F0F0F0F0403
+      0304030303030303030303030303030303030303020202020203020203030303
+      0202020202020202020202020101020202010202020201010201020101010101
+      0101010101010101010101010101010101010100010101000100000001000100
+      0000000100000000000000000000000000000000000030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030323232373737
+      3838383A3A3A3C3C3C3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3737373A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838333333313131313131313131313131
+      3131313635353A3A393A3A393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393839393839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383A3A393B3B3A3B3A3A3B3A3A3A3A3A3A3A3A3939393736363636
+      3636363636363636363636363636363636363636363636363635353530303031
+      31313131313232323232323535353B3B3B4747474949494B4B4B4C4C4C4E4E4E
+      4E4E4E4D4D4D4444444444444747474848484B4B4B4D4D4D5050505353535555
+      555858585B5B5B5E5F5F6262626666666868686D6C6D7070707474747878787C
+      7C7C8080808585858989898E8E8E9292929797979C9C9CA2A1A2A6A6A7ABABAB
+      B1B1B18F8F8F4A4A4A4C4C4C4E4E4E4F4F4F5151515252525353535252525252
+      525252525252525151515050504F4F4F4F4F4F4F4F4F4E4E4E4E4E4E4C4C4C4B
+      4B4B4848484545454040403B3B3B3737373232302E2E301F46D41B4EFF1A4CFF
+      1A4BFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244
+      FF1143FF1042FF1041FF0F40FF0E40FF0E40FF0D3FFF0B3FFF0E3CEB2B2E3B30
+      2F2B323232353535373737373737383838383838383838383838363636363636
+      3636363535353535353434343333333333333333333232323232323030303030
+      303030302F2F2F2E2E2E2D2D2D2C2C2C2C2C2C2A2A2A28282827272724242421
+      21211E1E1E1C1C1C19191918160D0F1B540026E70025E50024E20024E50222CD
+      111A4918160B1817141717181717171616161515151515151414131412070D15
+      43021CC7001DDB001CD2001CD2001BD2001AD3001AD9001AD30E133713120A13
+      13131414141414141313131313131212121111111010100E0E0E0D0C03050F6F
+      0013CA0011BD0011BC0011BB0010BA0010B9000FBB010FAB0D0D190E0E0A0E0E
+      0E0E0E0E0D0D0D0D0D0D0C0C0C0B0B0B0A0A0A09090908080807070706060605
+      0505727272ABABABA5A5A5A0A0A09B9A9A9494948F8F8F8A8A8A848484808080
+      7B7A7A7575757171716C6C6C6868686364645F5F5F5A5A5A5858585353535050
+      504B4B4C4848494444444242423D3C3D3838373736363535353434343131312D
+      2E2D2B2B2B2929292828282625262425242322222020201F1F1F1E1E1E1C1D1C
+      1C1C1C1B1B1A1A1A191818181918181717161716161716161716161616161615
+      1515161515151514151514151515151514141414141414141414141314141414
+      1314131314131313131313131313131313121212121212131213131212121212
+      11121212111111121110101110100F0D0D0E0C0D0D0C0D0C0C0D0C0C0C0C0D0C
+      0C0C0C0C0C0C0C0C0B0C0B0C0C0C0C0C0C0C0B0C0C0C1616161515150C0C0B0B
+      0A0B0A0B0B0A0B0A0A0A0A0A0A0A0A0A0A090A0A0A0A090A0A0B0D0C0D0C0C0C
+      0C0C0C0C0C0C0B0B0B0C0B0B0B0B0A0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A
+      0A0A09090A0A0A09090A09090908080907070707070706060706060707070707
+      06060708071212121A1A1A1C1C1C1D1D1D1D1E1E1F1F1E2021200E0E0E040303
+      0303030303030303030303030303030303030203020302030202020302020202
+      0202020202020202020202020202010202020201010101020201010201010201
+      0101010101010101010100010000010001010101010100000100010000000000
+      0000000000000000000000000000000000003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303636363838383A
+      3A3A3B3B3B3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3535353A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383835353531313131313131313131313131313133
+      33333A3A393A3A393A3A393A39393A39393A39393A3939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383938
+      3839383839383839383838383838383838383838383838383838383838383838
+      38383838383B3B3B3B3B3A3B3A3A3B3A3A3A3A3A3A3A3A373737373636363636
+      3636363636363636363636363636363636363636363737373333333131313131
+      313232323232323434343636363D3D3D4848484A4A4A4B4B4B4D4D4D4E4E4E4F
+      4F4F5050504B4B4B4747474949494B4B4B4E4E4E505050535353565656585858
+      5C5C5C5F5F5F6262626566666969686C6D6D7170717474747979797D7D7D8181
+      818585858989898F8E8E9394939898989C9D9DA2A1A2A7A7A7ADADADB3B3B384
+      84844B4B4B4E4E4E4F4F4F515151525252525252535353535353535353525252
+      5252525252525151515050504F4F4F4F4F4F4F4F4F4E4E4E4D4D4D4B4B4B4949
+      494646464242423D3D3D393939353535312E25273A7D1B4FFF1B4DFF1A4CFF1A
+      4BFF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF
+      1143FF1042FF1041FF0F40FF0E40FF0D40FF0B40FF1A35A02E2C23302F2F3232
+      3235353537373738383839393938383838383838383838383836363636363636
+      3636353535353535343434333333333333333333323232323232303030303030
+      3030302F2F2F2E2E2E2D2D2D2D2D2D2B2B2B2A2A2A2929292626262323232020
+      201E1E1E1A1A1A1A170C0E1D670027ED0026E50025E30025E90422BC1918151A
+      19161A1A1A1A1A1A1A1A1A1919191818181616161616161514141413090F1436
+      021CBF001EE2001DDC001CCE021ABA0518990A166C1313131313131515151515
+      151515151616161414141414141313131111111010100F0D03080F510013CB00
+      13C10011BD0011BC0011BB0010BA0010BB000FB60B0D310E0E080E0E0E0E0E0E
+      0E0E0E0D0D0D0D0D0D0C0C0C0B0B0B0A0A0A0808080808080707070606066060
+      60ACACACA6A6A6A1A1A19B9B9B9595959090908A8A8A8585858080807B7B7B76
+      76767272726D6D6D686868646564605F5F5B5B5C5858585353535050504D4D4C
+      4949484645454243423F3F3F3D3D3D393A3A3636363434343131312E2E2E2D2D
+      2D2A2A2A2828282626262525252222232121211F1F1F1E1E1E1D1C1C1D1D1C1B
+      1B1A1A1A19191818191818171717181616171616171516171616161616161516
+      1516151515151515151515151515141414141415141414141413141314141414
+      1313131313141313131313121312131312121313131313121212121212121212
+      12121111121211111111111110101010100F0E0F0D0D0D0D0C0C0C0D0C0C0C0D
+      0C0C0C0C0C0C0C0B0C0B0B0C0C0C0C0C0C0C0B0B0B0B0B0B0B0A0B0A0B0B0A0A
+      0A0A0A0B0A0A0A0B0A0A0A0A0B0A0A0B0C0B0C0D0C0C0D0D0D0D0D0C0C0D0C0D
+      0C0C0C0B0B0C0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A
+      0A090909090A0A0909090A0A0808090707070707070707070706060606070607
+      060708071212121A1A1A1C1C1C1D1D1D1E1E1E2222222323240A0A0903030303
+      0303030303030303030303020303020203030303020302020302020303020202
+      0202020202020102020202020201020202010101010102010101010101010101
+      0101010101010101010101000101000101010000010001010001010001000000
+      0100000000000000000000000000303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303535353737373939393B3B
+      3B3D3D3D3232322F2F2F2F2F2F2F2F2F2F2F2F3333333A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383737363131313131313131313131313131313131313939
+      393A3A393A3A393A3A393A39393A39393A39393A393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383838383838383838383838383838383838383838383838
+      383A3A3A3B3B3B3B3B3A3B3A3A3B3A3A3A3A3A39393937363636363636363636
+      3636363636363636363636363636363636373737373737333233313131323232
+      3232323434343535353737373E3E3E4A4A4A4B4B4B4D4D4D4E4E4E4F4F4F5050
+      505252525252524D4D4D4B4B4B4E4E4E5050505353535656565959595C5C5C5F
+      5F5F6363636666666A6A6A6C6D6D7171707475757979797D7D7D818281858585
+      898A8A8F8E8E9493949898989C9D9DA3A3A3A9A9A9AFAFAFB4B4B47B7B7B4D4D
+      4D4F4F4F51515152525253535354545454545454545454545452525252525252
+      52525252525151515050504F4F4F4F4F4F4F4F4F4D4D4D4C4C4C4A4A4A474747
+      4444444040403B3B3B3636363332302E2F322047D31B4FFF1B4CFF1A4CFF1A4B
+      FF194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF11
+      43FF1042FF1041FF0F40FF0D41FF103DE9282C3D2E2C27303131333333353535
+      3737373939393939393939393939393838383838383838383636363636363636
+      3635353535353534343433333333333333333332323232323231313131313131
+      31313131313030302F2F2F2E2E2E2C2C2C2A2A2A2828282525252222221F1F1F
+      1D1D1D1C190C0C1F7D0028F40026E60026E50025E60024DD161C3B1D1C161D1D
+      1D1D1D1D1D1D1D1C1C1C1B1B1B19191919191917171715151615140A0F153807
+      1A920B17680F143712131A13121014130C151414161616161616161616171717
+      1717171717171515151414141313131111110F0F0A0C0F290212A20013C30013
+      C80012C00011BC0011BB0010BE000FC3090E460E0E050E0E0E0E0E0E0E0E0E0E
+      0E0E0D0D0D0C0C0C0C0C0C0A0A0A0909090808080707070707074F4F4FADADAD
+      A7A7A7A2A1A19C9B9B9695959090908B8A8B8585858080807C7B7B7777777272
+      726D6D6D6969696565656060605C5C5D5858585454545050504D4D4D494A4A45
+      46464242423F3F3F3D3D3D3A3A3A3636363534343132312E2E2E2D2D2C2B2A2B
+      2928282626262525252323232122211F1F1F1E1D1E1C1D1C1C1D1C1B1B1B1A1A
+      1919181819181817171618171617161617161617161616161616151515161615
+      1515151515151415151515141414141414141414141414141414131314131313
+      1414141313131313131313131313121313121212121312121212121212121212
+      1212111212111112111111111011101011100F0F0E0F0E0D0D0D0C0D0D0C0C0C
+      0C0C0C0C0B0C0C0C0B0C0C0C0C0B0B0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0A0A
+      0B0A0B0B0A0A0B0B0C0D0D0D0D0D0D0D0C0D0D0D0D0C0D0C0C0C0C0C0C0C0C0C
+      0C0B0B0B0C0B0B0B0B0B0A0B0B0A0A0A0A0B0A0B0A0B0A0A0B0A090A0A0A090A
+      0A090A0A090A0909090909090909070707070707070706060607070607070607
+      0708071312121B1B1B1D1D1D2020202323222626262526260A0B0A0303030303
+      0303030303030303030303030203030303030302030202030302030302030202
+      0202020202020202010102020101010201020201010101010102010102010101
+      0101010101010101010101010100010001010101000000010000000000010000
+      0000000000000000000030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303333333737373939393A3A3A3D3D3D
+      3535362F2F2F2F2F2F2F2F2F2F2F2F3030303A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      39383939383938383131313131313131313131313131313131313737373A3A3A
+      3A3A393A3A393A3A393A39393A39393A39393A39393939393939393939393939
+      3939393939393939393939393939393939393939393939393839393839383839
+      3838393838393838383838383838383838383838383838383838383838393938
+      3B3B3B3B3B3B3B3B3A3B3A3A3B3A3A3A3A3A3837373636363636363636363636
+      3636363636363636363636363637373737373738373732323232323233333334
+      34343535353636363737373D3D3D4A4A4A4D4D4D4D4D4D4F4F4F505050525252
+      5454545555555656565252525151515353535656565959595C5C5C5F5F5F6363
+      636666666A6A6A6E6D6E7172727475747979797D7D7E8182828687868B8A8A8F
+      8F8F949494999999A0A0A0A6A6A6ABABABB0B0B0B6B6B67171714E4E4E4F4F4F
+      5151515454545454545555555555555454545454545454545252525252525252
+      525252525151515050504F4F4F4F4F4F4F4F4F4D4D4D4B4B4B49494945454542
+      42423E3E3E393939343535312F272B35581D4DF31C4EFF1B4CFF1A4CFF1A4BFF
+      194AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF1143
+      FF1042FF1042FF0E41FF20306F2C291F2E2E2E31313134343437373738383839
+      39393A3A3A3A3A3A3A3A3A383838383838383838383838363636363636363636
+      3535353535353434343333333333333232323232323232323232323232323232
+      323333333333333232322F2F2F2C2C2C2A2A2A2727272424242121211E1E1D1C
+      1B130A22950028F40027E60026E60026E50025EB12206A201E131F1F1F202020
+      1F1F1F1E1E1E1D1D1D1C1C1C1B1B1B19191917171717171716151015140E1614
+      0915140E15141215141316151516161617171718181818181818181817171717
+      17171616161515151313131212121111110F0F0D0D0E12090F3D04107F0012B7
+      0012C70011C50111B7070F670E0E170E0E0C0E0E0E0E0E0E0E0E0E0F0F0F0D0D
+      0D0C0C0C0C0C0C0B0B0B0A0A0A0909090707070707073E3E3EAEADAEA8A7A7A3
+      A2A29D9C9C9796969191918C8C8B8686868181817D7D7D7777777273726D6D6D
+      6969696565656161615D5C5C5858585555555151514D4D4D4A4A4A4645454343
+      433F40403D3D3D3A3A3A3636373435353131312E2E2E2D2D2D2B2B2B28292826
+      2726252525232323222222201F1F1E1E1E1D1D1D1C1D1C1B1B1B1A1A19191918
+      1918181817171817171716161716161716161616161615161515161615161515
+      1515151515151515151514141515151414141414141414141413141413141413
+      1314131313131313131312131312131312121213131212121212121112111212
+      121111121111111010111010111010101010100F100F0F0F0D0E0D0C0C0D0C0C
+      0C0C0C0C0C0C0C0C0B0C0B0C0B0B0C0B0B0B0B0C0B0B0B0B0B0B0B0B0B0C0B0D
+      0D0E0D0E0D0E0D0D0D0D0D0D0D0D0C0D0D0D0C0C0C0C0C0D0C0C0D0C0C0C0B0B
+      0C0B0B0B0B0A0B0A0A0A0B0B0A0A0A0A0A0A0A0B0B0A0A0A0A0A0A0A0A0A0A09
+      09090A0909090A0A090909090907070706070606060707070707060707060607
+      07071414141D1D1D2121212525252829292C2B2B2B2A2B0C0C0C030304030304
+      0303030303020303030203020203030303020302020202020202020202020202
+      0201020202020101020101010201020101010102010202020102010101010101
+      0101010101000101010100010101000000000101000000010101010100010100
+      0000000000003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303232323636363838383A3A3A3C3C3C3939392F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F3838383A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      383938383333333131313131313131313131313131313434343A3A3A3A3A3A3A
+      3A393A3A393A3A393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939383939383938383938
+      383938383938383838383838383838383838383838383838383838383A3A3A3B
+      3B3B3B3B3B3B3B3A3B3A3A3B3A3A3A3939373636363636363636363636363636
+      3636363636363636363737373737373838383737373333333333333434343535
+      353636363737373939393C3C3C4949494D4D4D4F4F4F51515152525254545455
+      55555757575959595B5B5B5A5A5A5B5B5B5B5B5B5C5C5C5F5F5F636363676767
+      6B6B6B6E6E6E727172767675797A7A7D7D7D8382838787878C8C8C9292929798
+      979D9D9DA2A2A2A7A7A7ACACACB1B1B1B7B7B769696950505051515153535354
+      5454555555555555555555555555545454545454545454525252525252525252
+      5252525151515050504F4F4F4F4F4F4E4E4E4D4D4D4A4A4A4747474545454141
+      413C3C3C373737333333312E252838761D4EFB1C4EFF1B4CFF1A4CFF1A4BFF19
+      4AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF1144FF
+      1043FF1D32882B29202D2C2C3030303232323535353838383939393939393B3B
+      3B3B3B3B3A3A3A3A3A3A38383838383838383838383836363636363636363635
+      3535353535343434333333333333323232323232323232323232333333353535
+      3636363535353232322D2D2D2B2B2B2828282525252222221F1F1D1C1C1C0725
+      B40028F10027E70027E70026E50026F00B239C21201A22222122222221212121
+      21212020201F1F1F1D1D1D1C1C1C1A1A1A1A1A1A181818171716161616171717
+      1717171717171818181717171818181919191919191919191919191818181818
+      181616161515151313131212121010100F0F0D0F0E050D0D060B0E2606107703
+      11900B0E2E0F0E040F0F0C0F0F0F0F0F0F0E0E0E0F0F0F0F0F0F0F0F0F0D0D0D
+      0C0C0C0B0B0B0A0A0A090909080808070707313131AEAEAEA8A8A7A3A3A29E9D
+      9E9897979291918D8C8C8787878282827D7D7D7878787373736F6E6E6A6A6A66
+      65656161615E5E5E5959595655555151514E4D4D4A4A4A474747434343403F40
+      3D3D3D3A3A3A3737373435343232322F302F2D2D2D2A2B2A2929292626262525
+      25232323222222201F1F1E1E1E1D1D1D1D1D1D1C1C1B1B1A1A19191819181818
+      1717181716181717171616171616171616161616161616161515151515151515
+      1515151515151515141515151514151414141414141414141414131314131314
+      1314131413131313131213131313121312121312121213121212121211121212
+      11111210111111111110101110101010101010101010101010100E0D0E0C0C0C
+      0C0C0C0B0C0C0C0C0C0C0B0B0C0B0C0B0B0B0B0B0B0D0D0D0E0D0E0D0D0E0D0E
+      0D0D0D0D0D0D0E0D0D0D0D0D0D0D0D0C0D0D0D0C0D0D0C0C0C0D0C0B0C0B0B0B
+      0B0B0B0B0B0A0B0B0A0A0B0B0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A
+      0A0A0909090A090A090908090707070706070707070606060706060707070A09
+      0A1A1A1A2222222726272C2C2C30303031313117181803040304030403030303
+      0303030303030303030303030302030202020202030303020302020202020202
+      0202020202020202010102020102020102010101020101010101010102010101
+      0101010101010101000100000100010001000001000100000000000100000000
+      0000303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303131313636363838383A3A3A3C3C3C3D3D3D2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F3535353A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3535353131313131313131313131313131313131313A3A3A3A3A3A3A3A3A3A3A
+      393A3A393A3A393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393938393938393838393838
+      3938383938383838383838383838383838383838383838383938383B3B3B3B3B
+      3B3B3B3B3B3B3A3B3A3A3B3A3A38383836363636363636363636363636363636
+      3636363636373737373737383838383838383838343434343434353535363636
+      3737373939393A3A3A3C3C3C4645464F4F4F5151515252525454545656565757
+      575A5A5A5C5C5C5E5E5E6060606363636464646666666767676A6A6A6C6C6C70
+      70707373737979797D7D7C8080808685868B8B8B908F909494949999999D9E9D
+      A3A3A3A8A8A8ADADADB3B3B3B9B8B86363635151515353535454545555555656
+      5656565656565656565654545454545454545454545452525252525252525252
+      52525151515050504F4F4F4F4F4F4E4E4E4C4C4C4949494747474343433F3F3F
+      3B3B3B363737333332312E252838711E4CED1B4FFF1B4CFF1A4CFF1A4BFF194A
+      FF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1246FF1243F91E33822A
+      281F2D2C2A2F2F303232323535353737373939393A3A3A3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3A3A3A3A3A3838383838383838383838383636363636363636363535
+      3535353534343433333333333332323232323233333333333335353536363636
+      36363333332F2F2F2C2C2C292929262626232323201F1C1B1D260327D50028EF
+      0028E90027E70027E70026EB0425CA2021282322202424242323232323232121
+      212121212020201E1E1E1D1D1D1C1C1C1B1B1B1A1A1A1919191919191A1A1A1A
+      1A1A1A1A1A1A1A1A1919191A1A1A1A1A1A1A1A1A191919191919181818171717
+      1616161515151313131212121010101010100F0F0E0E0E080E0E090E0E0E0F0E
+      080E0E0E0F0F0F1010100F0F0F1010100F0F0F0F0F0F0F0F0F0E0E0E0C0C0C0C
+      0C0C0B0B0B0A0A0A090909080808262626AFAFAFA9A9A8A3A2A39E9D9D989898
+      9292928D8D8D8888888282827D7D7D7878787373736E6E6F6B6B6B6566656161
+      615E5E5E5959595656565152514D4E4E4A4A4A4747474343434140403D3D3D3A
+      3A3A3737373535353231322F302F2E2E2E2B2B2B292929272627252525232323
+      2122221F20201F1F1E1D1D1D1D1D1D1C1B1B1B1B1A1A19181918181817171817
+      1718161717171717161617161616161616161616161616161615151515151515
+      1515151414141415151414141414141414141414141414131413131314131413
+      1413141313131313131213121212131212131312121212121212121211111111
+      11111110111010111010101010100F100F0F10100F0F0F100F0F0F100E0D0F0C
+      0C0C0C0C0C0C0C0B0B0B0B0C0C0C0E0E0E0E0E0E0E0E0E0D0E0D0E0E0E0E0E0E
+      0D0E0D0E0D0D0D0D0D0D0D0D0C0D0D0D0D0C0C0C0C0D0C0C0C0B0C0C0B0B0B0B
+      0B0B0B0B0B0B0A0A0B0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A09090A0A0A09
+      0A090909090A09090908090707070707070707070607060708080A0909161616
+      2424242A2A2A3030303434343737370707070303030303040403030303030303
+      0303030303030303030203030203030203020302020202020202020202020202
+      0202020102020201010102020102020101020201010101010202010201010101
+      0101010001010101000101010100010000000100000000000003000001003030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303636363838383A3A3A3C3C3C3E3E3E3131312F2F2F2F2F2F
+      2F2F2F2F2F2F3333333A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393838373731
+      31313131313131313131313131313131313737373A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A39393A39393A39393A39393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839383839383839
+      38383938383838383838383838383838383838383838383A39393B3B3B3B3B3B
+      3B3B3B3B3B3A3B3A3A3B3A3A3737373636363636363636363636363636363636
+      3637373737373738383838383839393939393935353535353536363637373739
+      39393A3A3A3C3C3C3E3E3E4242424C4C4C5353535454545656565858585A5A5A
+      5D5D5D5F5F5F6161616363636666666969696C6C6C6F6F6F7272727676767878
+      787D7D7D8080808484848888888C8C8C9191919596959B9A9A9F9F9FA4A4A4A9
+      A9A9AFAFAFB4B4B4BAB9BA5E5E5E525252535353565656565656565656575757
+      5757575656565656565454545454545454545454545252525252525252525252
+      525151515050504F4F4F4F4F4F4D4D4D4B4B4B4949494545454242423E3E3E3A
+      3A3A363636333332312E242C334E2145C11C4DFF1A4EFF1A4DFF1A4BFF194BFF
+      1849FF1749FF1748FF1548FF1448FF1447FF183FCD232F5C2B281F2C2C2A2F2F
+      2F3232323535353737373939393A3A3A3B3B3B3C3C3C3C3C3C3B3B3B3B3B3B3B
+      3B3B3A3A3A3A3A3A383838383838383838383838363636363636363636353535
+      3434343333333232323232323232323131313232323434343636363636363333
+      332F2F2F2C2C2C292929262626222222201F17171F460029E90029ED0028EA00
+      28E90027E70027E90026E31B234724231D242424242424242424232323222222
+      2222222121211F1F1F1D1D1D1C1C1C1D1D1D1C1C1C1B1B1B1B1B1B1B1B1B1C1C
+      1C1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A1A1A19191918181817171716
+      1616141414141414121212111111111111101010100F0F100F0E101010101010
+      1010101010101111111010101010101010100F0F0F0E0E0E0E0E0E0C0C0C0B0B
+      0B0A0A0A0909090808081D1D1DB0B0B0AAAAA9A4A4A39E9E9E9898989393938E
+      8E8E8888888383837D7D7D7878787474747070706B6B6B6665656262635E5E5E
+      5A5A5A5656565151514E4E4E4A4A4A4747474444444141413D3D3D3A3A3A3737
+      373535353232322F2F2F2E2E2E2C2C2C29292927272626252523232322222220
+      1F201F1F1F1D1D1D1D1D1D1C1C1B1B1B1A191919191918181717181717171717
+      1717171717171716161716161616161616161616161615151515161515151515
+      1515141514151515151414141514141414141414141413141313141413141313
+      1314131313131313131313121313131212121212121212121111111111121110
+      1111101110111010101010101010100F0F0F101010100F0F100F0F0F0F0F0D0D
+      0D0B0C0D0E0E0D0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0D0D0E0E0E0E0D
+      0D0D0D0D0D0D0D0D0C0D0D0D0D0D0D0C0D0C0C0C0C0B0B0C0B0B0B0B0B0B0B0B
+      0B0B0B0B0B0A0A0A0B0A0B0A0A0B0A0A0A0A0A0A0A0A0A0A090A090A0909090A
+      090909090A09090707080707070706070706060808070B0A0B1E1E1F2627262E
+      2E2E343434393939252626030303040303040304040404030403030403030303
+      0303030302020303030303020202020302020302020202020202020202020202
+      0202020202010102020201010201020101010101010101010201010101010001
+      0001010001000001010001000100000001000000030300010000303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303232323636363838383B3B3B3D3D3D3E3E3E3535352F2F2F2F2F2F2F2F2F2F
+      2F2F3030303A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383232323131
+      313131313131313131313131313434343A3A3A3A3A3A3A3A3A3A3A3A3A3A393A
+      3A393A3A393A39393A39393A39393A3939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      383938383838383838383838383838383838383838383B3B3A3B3B3B3B3B3B3B
+      3B3B3B3B3A3B3A3A3A3A39373636363636363636363636363636363636373737
+      3737373838383838383939393A3A3A3A3A3A3737373636363737373A3A3A3A3A
+      3A3C3C3C3E3E3E4040404242424848485151515656565858585B5B5B5D5D5D60
+      60606262626464646767676969696C6C6C6F6F6F7373737676767979797D7D7D
+      8181818584858988898D8D8D9292929797979C9C9CA0A1A0A5A5A5AAAAAAAFAF
+      AFB2B2B2B5B5B558585853535354545456565657575758585858585857575757
+      5757565656565656545454545454545454545454525252525252525252525252
+      5151515050504F4F4F4E4E4E4D4D4D4B4B4B4747474545454141413E3E3E3B3B
+      3B37373733333332302A302F2B2937642241B01D49EA1A4CFC194CFF184CFF18
+      4AFF1748FD1845EF1B3EBC22336E29292A2C2A212E2E2D303030323232353535
+      3838383A3A3A3B3B3B3C3C3C3C3C3C3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B
+      3B3A3A3A3A3A3A38383838383838383838383837373736363635353534343434
+      343432323232323231313131313131313132323232323232323231302F2F2E2C
+      2D2C292A292328261C252215221D0911226F002BF50029ED0029EA0028EA0028
+      E90027E80027F014247426231725252525252525252524242423232323232322
+      22222121212020201F1F1F1E1E1E1E1E1E1E1E1E1D1D1D1D1D1D1D1D1D1D1D1D
+      1D1D1D1C1C1C1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A1818181818181717171616
+      1615151514141413131312121212121211111111111111111111111111111111
+      11111111111111111111111111111010100F0F0F0E0E0E0D0D0D0C0C0C0A0A0A
+      090909080808111111B0B0B0AAAAAAA4A3A49E9E9E9898989393938E8E8E8888
+      888383837D7E7E7879787474747070706B6B6B6767676263625E5E5E5A5A5A56
+      56565252524F4F4E4B4B4A4848494444444141413D3E3D3A3A3A373737353535
+      333333302F302E2E2E2D2C2C2929292627262626262323232222222020201F1E
+      1F1E1E1E1D1E1D1C1C1C1B1B1A1A1A1919191918171718181718171718171617
+      1616171616171617161616161516151616151516151515151616151515151515
+      1514151414151415141414141414141414141414141414141313141413141413
+      1413131312131213121212131212131212121212121212111112111111111111
+      10111111111010101010101010101010100F10100F100F0F100F0F0F0F0F0F0F
+      0F0F0E0F0F0F0E0F0F0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0E0D0E0E0E0D
+      0E0D0D0D0D0D0D0C0D0C0D0C0C0D0C0C0C0B0C0C0B0C0C0B0B0C0B0B0A0B0B0B
+      0B0B0B0B0B0B0B0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A0909
+      0908080707080707070707070808070909091515152425242A2B2A3131313838
+      373B3B3B0B0B0B04040404030404040404030404040404030304030303030303
+      0303030302030203020302030303030303020202020202020202020202020202
+      0202020202010201020102020201010201010101010102010101010101010101
+      0101010101010101000101010100010103000300010130303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030323232353535
+      3737373939393B3B3B3D3D3D3F3F3F3434342F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F3837373A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838353535313031313131
+      3131313131313131313131313A39393A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A
+      393A3A393A39393A39393A39393A393939393939393939393939393939393939
+      3939393939393939393939393939393939393938393938393838393838393838
+      3938383838383838383838383838383838383939393B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3B3A3A39393936363636363636363636363636363637373737373738
+      38383838383939393A3A3A3B3B3B3B3B3B3939393737373A3A3A3A3A3A3C3C3C
+      3E3E3E4040404242424444444646464A4A4A5353535A5A5A5E5E5E6161616363
+      636565656868686B6B6B6D6D6D7171717373737777777B7B7B7F7F7F82828286
+      86868B8B8B8E8E8E9393929898989D9D9CA1A1A1A4A4A4A7A7A7A9A9A9AFAFAF
+      B5B5B55959595555555555555656565757575959595858585757575757575757
+      5756565656565654545454545454545454545452525252525252525252525251
+      51515050504F4F4F4E4E4E4D4D4D4A4A4A4747474545454141413F3F3F3B3B3B
+      383838353535323230312F272F2E272D303A29345B2637782538802536792732
+      5E292D3C2C2B272E2B212E2E2C2F2F2F3131313434343636363838383A3A3A3C
+      3C3C3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B
+      3A3A3A3A3A3A3838383838383838383737373636363535353434343333333232
+      3231313130303030302F31302C323029323025333023302F292D2D2F292C3722
+      2A4D1927661226810D26960428D2002BF3002AED0029EC0029EA0028EA0028E9
+      0027F20B25A424231E2424232525252525252525252424242323232323232222
+      222222222121212020201F1F1F2020201F1F1F1E1E1E1E1E1E1E1E1E1E1E1E1D
+      1D1D1D1D1D1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A191919181818181818161616
+      1515151515151414141313131313131313131212121212121212121212121111
+      111212121212121111111111110F0F0F0E0E0E0E0E0E0C0C0C0B0B0B0A0A0A09
+      0909131313B0B0B0AAAAAAA4A4A49E9E9E9998989393938E8E8E888888838383
+      7D7E7E7979797474747070706B6B6B6767676363635E5E5E5A5A5B5656565353
+      534F4F4F4A4A4B4949484445444141413E3E3E3B3A3A3837373535353333332F
+      30302E2E2E2D2C2C2929292727272626262423242223222020201F1F1F1E1E1E
+      1E1E1D1C1C1C1B1B1A191A191A19191818181918171817171817171717171716
+      1617171716161616161616161616161616161616151515151515151515151514
+      1515151514151514141414141414141414141414131414141414131314131314
+      1313131312131213131212121312121212121211111211111210111111101110
+      10111111101010101010100F0F10101010100F0F0F0F0F0F100F0F0F0F0F0E0F
+      0F0F0F0F0E0E0E0F0E0E0F0E0E0F0E0E0E0D0E0D0E0D0E0D0E0D0E0E0D0D0E0D
+      0D0E0D0D0D0D0D0D0D0D0C0C0D0C0C0C0B0C0C0C0C0B0B0B0C0B0B0B0B0B0A0B
+      0B0B0B0B0A0B0B0A0B0B0A0A0B0A0A0A0A0A0A090A0A090A090A0A0A09080808
+      07070708080707070807080B0B0B1E1E1E2627262F2F2E3535343A3A3B272727
+      0404040404040404040404040304040304040303030303030303030303030303
+      0302030303030302030302030302030302030202020203030302020202010202
+      0202020201010202020101010101020101010102010101010101010101010101
+      0001010101010000010101000303030100003030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303232323434343636363838383A
+      3A3A3C3C3C3E3E3E3434342F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F353535
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393838373731303131303131313131
+      31313131313131313737363A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A39
+      3A3A393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393839393839383839383839383839
+      38383838383838383838383838383838383A3A3A3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3A3B3A3A3838383636363636363636363636363737373737373838383838
+      383939393A3A3A3B3B3B3B3B3B3D3D3D3C3C3C3A3A3A3A3A3A3C3C3C3E3E3E40
+      40404242424444444646464848484B4B4B4E4E4E5353535C5C5C616161666666
+      6868686C6C6C6E6E6E7272727474747878787B7B7B7F7F7F8383838888888B8B
+      8B8F8F8F9493939695959999999B9B9A9F9E9FA5A5A5AAAAAAB0B0B0B5B5B55B
+      5B5B565656565656575757595959595959595959585858585858575757575757
+      5656565656565454545454545454545454545252525252525252525252525151
+      515050504E4E4E4D4D4D4D4D4D4A4A4A4848484545454242423F3F3F3D3D3D39
+      393936363634343434333232312E312F28302D24302D23302D23302E272F2E2A
+      302F2E3131313333333434343535353838383939393B3B3B3C3C3C3D3D3D3E3E
+      3E3E3E3E3E3E3E3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B3A
+      3A3A3A3A3A383838383838373737363636343434333333323232313131303030
+      2F2E2E2F2E2C2B2E3E242F5D1E2F79182F94102FB00A2EC9032EE4012DF0002D
+      F6002DFE002DFE002CF5002AEE002AEE002AED0029EC0029EA0028EA0028F407
+      25BB232323242422252525252525252525252525252525242424242424232323
+      2222222222222121212020202020201F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1E
+      1E1D1D1D1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A18181818181818181817171716
+      1616151515151515151515141414141414131313131313131313121212121212
+      1212121212121111111010100E0E0E0E0E0E0C0C0C0B0B0B0A0A0A0909091313
+      13B0B0B0ABAAAAA5A4A49F9E9E9898989493938E8E8E8988888383837E7E7D79
+      79797575757070706B6B6B6767676363635E5E5E5B5A5B5656565353534F4F4F
+      4B4B4B4949494444454141413E3E3E3C3B3C3837383535353333333030302E2E
+      2E2D2D2C29292A2727272626262423232322222120201F1F1F1E1E1E1E1E1E1D
+      1D1C1B1B1A1A1A191A1918191818181718181718181717171717171717171717
+      1716161616161617161616161616161616151616161515151515151515151415
+      1415151514151514141414141414141314141414141413131314141313131413
+      1312131312131312131212121212121111121111121111121010111111101011
+      10111010101010101010101010101010100F0F10100F0F0F0F0F0F0E0F0F0E0E
+      0E0E0E0E0F0F0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0E0E0D0E0D0D0D0E0E0D0D
+      0D0D0D0D0D0D0C0D0D0C0C0C0B0B0C0C0B0C0B0B0B0B0B0B0B0C0B0B0B0A0B0B
+      0B0B0B0B0A0B0B0A0A0A0B0A0A0A0A0A0A090A0A0A0908090808070707070708
+      07080808090909141414242424292A2A3232313838383C3C3C0F0F0F04040404
+      0404040404030304030404030303030304040303030303030303030303030303
+      0303030303030302030203020202020202020303020203020202020201020202
+      0201010202010102020102010101010201010101010102010101010101010101
+      0101010101010001000300000101303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303232323434343535353737373A3A3A3C3C3C3D3D
+      3D3434342F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303837373A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383332323130313130313131313131
+      313131313333333A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A39393A39393A39393A3939393939393939393939393939393939393939
+      3939393939393939393939393939393939383939383938383938383938383938
+      383838383838383838383838383838383B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3A3B3A3A383838363636363636363636373737373737383838383838393939
+      3A3A3A3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F3D3D3D3C3C3C3E3E3E4040404242
+      424444444646464848484B4B4B4E4E4E5050505353535757575959595F5F5F64
+      64646968696D6C6D7373737777777A7A7A7D7D7D807F80848384858585888888
+      8B8B8B9191919696959A9A9A9F9F9FA5A5A5AAABAAB0B0B0B5B5B55C5C5C5757
+      575858585959595A5A5A5959595959595A5A5A59595957575757575757575756
+      5656565656545454545454545454545454525252525252525252525252515151
+      5050504E4E4E4D4D4D4D4D4D4A4A4A4848484545454343434141413E3E3E3C3C
+      3C39393938383836363635353534343433333333333333333334343434343435
+      35353737373838383A3A3A3B3B3B3C3C3C3E3E3E3F3F3F3F3F3F3F3F3F3F3F3F
+      4040403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B3A3A
+      3A3A3A3A3838383737373636363434343232323030302F2F2F2E2E2E2F2C2322
+      2D5D0331F00031FB0031FF0030FF002FFF002FFE002FFA002EF8002EF5002DF3
+      002DF2002CF1002CF0002AEF002AEE002AED0029EB0029F20327D71A22472322
+      1D24242425252525252526262626262626262625252524242424242424242423
+      23232222222121212121212121212020201F1F1F1F1F1F1F1F1F1F1F1F1E1E1E
+      1D1D1D1C1C1C1C1C1C1C1C1C1B1B1B1A1A1A1919191919191818181717171616
+      1616161616161615151515151514141414141414141413131313131312121212
+      12121212121111110F0F0F0E0E0E0D0D0D0C0C0C0B0B0B0A0A0A121212B0B0B0
+      ABAAABA5A4A49F9E9E9998989493938E8E8E8988888383837E7E7E7A7A7A7575
+      757071706B6B6C6767676363635E5E5E5B5B5A5656565453534F4F4F4B4B4B48
+      48494444444142413E3E3E3C3C3C3838383535363334333030302E2E2E2D2D2D
+      2A292A2727272626262423242322222021201F1F1F1E1E1E1E1E1E1D1C1C1C1C
+      1B1A1A191A1A1919181819181818181718181718171817171717171617171716
+      1616161616161617161616151616161516151515161515151515151515151415
+      1514141414151415141414141414141414141314131413141314141313141313
+      1313131313131212121213121212111112111111111111111111111110111111
+      11101011101010100F0F10100F10100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F
+      0E0F0F0E0F0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0E0D0D0D0D0D
+      0E0D0D0D0C0C0C0D0C0C0C0B0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A
+      0B0B0A0A0B0A0B0A0A0A0B0A0A0A0A0A0A090909080808080807070707080909
+      0C0B0B1C1C1C2627272E2E2E3535353A3A3A2F2F300505040404040404050404
+      0404040403040404040403030303030304030403040303030303030303030303
+      0303020203020303020202020202020202020303020202020202010202010201
+      0202020201020201020201020202020102010101010101010101010101010100
+      0101010103000301010130303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303232323434343535353737373939393B3B3B3D3D3D3434342E2E2E
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303837373A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938363535303030313031313031313131313131
+      3131313939393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3838383838383838383838383939383B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3A3B3A3A3737373636363636363737373737373838383838383939393A3A3A3B
+      3B3B3B3B3B3D3D3D3E3E3E404040414141424242404040404040424242444444
+      4646464848484B4B4B4E4E4E5050505353535757575959595C5C5C6060606363
+      636767676A6A6A6F6F6F7272727676767B7B7B7F7F7F8383838787878C8C8C91
+      91919696969A9A9A9F9F9FA5A5A5ABABABB0B0B0B5B5B55C5C5C575757595959
+      5A5A5A5A5A5A5B5B5B5A5A5A5A5A5A5A5A5A5858585757575757575757575656
+      5656565654545454545454545454545452525252525252525252525251515150
+      50504E4E4E4E4E4E4D4D4D4B4B4B4949494646464545454343434040403E3E3E
+      3C3C3C3B3B3B3939393939393838383737373838383838383939393A3A3A3B3B
+      3B3C3C3C3D3D3D3E3E3E3F3F3F40404041414140404040404040404040404040
+      40403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B3A3A3A
+      3939393737373636363434343232322F2F2F2E2E2E2B2B2B2C291F102FAD0033
+      FF0032FF0031FC0031FA0030F9002FF8002FF7002FFF002FFF002EFB002DF700
+      2DF4002CF3002CF1002AEF002AEE002AF20229E5172151222014232323242424
+      2525252626262626262626262626262626262525252424242424242424242323
+      232323232121212121212121212121211F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1D
+      1D1D1C1C1C1C1C1C1C1C1C1B1B1B1B1B1B1A1A1A191919191919181818171717
+      1616161717171616161515151515151414141414141414141313131212121212
+      121111111010100E0E0E0D0D0D0C0C0C0B0B0B0A0A0A121212B0B0B0ABAAAAA5
+      A5A49F9E9E9998989393938E8E8E8988888383837E7E7D7A7A7A757575717171
+      6C6C6C6867676463635E5E5E5B5B5B56565653535350504F4B4B4B4949494544
+      454142423E3E3E3C3C3C3838383536363334333030312E2E2E2C2D2D2A292928
+      27272626262424232222222121201F1F1F1E1E1E1E1E1E1C1D1C1B1C1B1A1A19
+      1A1A191A1A1A1A1A1A1A1A1A1919191A191919191A1919191918181818191818
+      1916161616161616161615161615161615151515151515151515151515151515
+      1515151414141414141414131414131414131414131413131314131413131313
+      1313121312121212121211121212111211111211111111111010101010101011
+      101010101010100F10101010100F100F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0F
+      0E0E0E0F0F0E0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0E0E0D0D0E0D0D0D0D0D0D
+      0D0C0D0D0C0C0C0B0C0C0C0B0C0C0C0B0B0B0B0C0B0B0B0B0A0B0A0B0B0B0B0B
+      0A0B0A0B0A0A0A0A0A0A0A0A0A0808080808070707070809080A0A0912121324
+      24242A2A2A3131313839383C3D3C121213050405040404050404040404040404
+      0404040404030303040303030304030303030303030303030303030303030303
+      0302020302030303030302030302020302030202020201020202020201020202
+      0202020102010202020201010202010201010101010101010101000101010100
+      0003030100003030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303232
+      323434343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F303838373A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393838383831313130303031303131303131313131313134
+      34343A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A39
+      3A39393A39393A39393A39393939393939393939393939393939393939393939
+      3939393939393939393939393939393839393839383839383839383839383838
+      38383838383838383838383939393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A
+      3A3A3A3737373636363737373737373838383838383939393A3A3A3B3B3B3B3B
+      3B3D3D3D3E3E3E40404041414142424245454445454543434344444446464648
+      48484B4B4B4E4E4E5050505353535757575959595C5C5C606060636363676767
+      6A6A6A6F6F6F7272727676767A7A7A7F7F7F8383838787878C8C8C9191919596
+      969A9A9A9F9F9FA5A5A5AAAAAAB0B0B0B5B5B55D5D5D5858585959595B5B5B5B
+      5B5B5C5C5C5B5B5B5A5A5A5A5A5A595959585858575757575757575757565656
+      5656565454545454545454545454545252525252525252525252525151515050
+      504F4F4F4E4E4E4D4D4D4B4B4B4A4A4A4848484646464444444343434141413F
+      3F3F3E3E3E3D3D3D3C3C3C3D3D3D3D3D3D3D3D3D3E3E3E3E3E3E3F3F3F3F3F3F
+      4141414141414141414141414141414242424242424141414040404040404040
+      403F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B39393937
+      37373535353333333131312F2F2F2B2B2B2A29222329430232F20033FF0032FD
+      0032FD0031FB0031FA0030FA002FFB0A2BB80A2AB6052BD1022CE6012CEC002C
+      F2002DF8002DFE002CFE002BF5132268211E1221212123232324242425252527
+      2727262626272727272727262626262626252525242424242424242424232323
+      2323232121212121212121212121211F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1D1D
+      1D1C1C1C1C1C1C1C1C1C1B1B1B1B1B1B19191919191919191919191918181817
+      1717171717171717161616151515141414141414141414131313131313121212
+      1111110F0F0F0E0E0E0C0C0C0B0B0B0A0A0A131313B0B0B0ABABABA5A4A49F9F
+      9E9998989493938F8E8E8989888483837E7E7E7A7A797575757070706C6C6C68
+      68686364635E5F5E5B5B5B565656545454504F4F4B4B4B494949454445414141
+      3F3F3E3C3C3C3838383636353433333030302E2E2E2D2D2D2A2A2A2728282626
+      2624242422232320202121201F20201F20201F20201F1F1F1F1F1E1E1E1E1E1E
+      1D1E1D1D1D1D1C1D1E1C1C1E1D1C1D1D1C1D1D1D1D1D1D1C1C1D1D1D1C1C1C1C
+      1D1C1D1C1C1C1B1B1B1A1A1A1919181817171616171515151515151515141415
+      1515141514141414141414141414141314131314131313131313131313131213
+      1312131212121112121111121111121111111111111111111011101011101010
+      1010101010101010100F100F101010100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0D0E0D0D0D0D0D0D0D0D
+      0C0C0D0C0C0C0C0C0B0B0B0C0B0C0B0B0C0B0C0B0B0B0B0B0A0B0A0B0B0A0B0A
+      0A0A0B0B0B0A09090A0808080808080808080908090C0B0C1B1C1B2727272E2F
+      2E3535353A3A3A30303005050504050405050505040404040505040504040404
+      0403040403040304040403030403030304030303030303030303030303030303
+      0302020302030203020303020302020202020202020201020202010201010202
+      0201010201010202020202010202020101010101010101010101010103030301
+      0001303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030323232343434353535
+      3737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F303838383A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383433333030303030303130313130313131313131313A3A
+      393A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939383939383938383938383938383938383838
+      383838383838383838383A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3A
+      3A3A3737373737373737373838383838383939393A3A3A3B3B3B3B3B3B3D3D3D
+      3E3E3E4040404141414242424545444646454847474949494848484949494A4A
+      4A4E4E4E5050505353535757575959595C5C5C6060606363636767676A6A6A6E
+      6E6E7272727676767A7A7A7E7E7E8383838787878C8C8C9191919696959A9A9A
+      9F9F9FA5A5A5AAAAAAB1B1B1B7B7B75F5F5F5A5A5A5A5A5A5B5B5B5D5D5D5D5D
+      5D5C5C5C5B5B5B5A5A5A59595959595958585857575757575757575756565656
+      5656545454545454545454545454525252525252525252525252515151505050
+      4F4F4F4E4E4E4E4E4E4C4C4C4A4A4A4949494747474646464545454444444343
+      4342424242424241414141414141414141414142424242424242424243434343
+      4343434343434343424242424242424242424242404040404040404040404040
+      3F3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3A3A3A3838383535
+      353232323030302C2C2C29292929261B112EA00035FF0033FF0032FF0032FE00
+      32FD0031FB0032FF072ECF22222421201C1E1F251C1E2B181F3E14205511226C
+      0E24830B26A210237C201E1721201F2223232424242626262727272727272727
+      2727272727272727272726262626262625252524242424242424242423232323
+      23232222222121212222222222222020202020202020201F1F1F1E1E1E1D1D1D
+      1D1D1D1C1C1C1C1C1C1B1B1B1A1A1A1919191919191919191919191717171717
+      1717171717171716161615151514141414141414141413131312121211111110
+      10100F0F0F0D0D0D0C0C0C0A0A0A141414B0B0B0AAAAAAA4A4A49F9E9F999898
+      9493938F8E8E8988898483837E7E7E7A7A7A7575757070706C6C6C6868686363
+      635E5E5F5C5B5B5656565454544F504F4B4B4C4949494545454242423E3F3F3B
+      3B3B3838383535353434333030302E2E2E2D2D2D2A2A2A282828272828272626
+      2626262424242422232322222121202121202020201F1F1F1E1E1F1D1E1E1D1D
+      1D1D1C1D1D1D1D1D1C1D1D1D1D1E1D1C1D1D1D1D1D1D1C1C1D1C1D1C1C1C1C1D
+      1C1C1C1C1C1C1B1C1D1C1C1D1C1C1C1C1B1B1B1C1A1A1A181718161615151414
+      1414141514141414141413131414141313131314141314131313131313121312
+      1212121213121113121112111111111111101011111111111010111111101110
+      10101010101010101010100F0F0F0F10100F0F0F0F0F0F0F0F0F0E0F0F0F0F0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0E0D0E0E0D0E0E0D0D0D0C0C0D0C
+      0C0C0C0C0C0C0B0B0C0B0B0C0C0C0C0C0B0B0C0B0B0B0B0B0A0B0B0B0B0B0B0B
+      0A0A090808080808090808090809090A0A1111122423232B2B2A313232383838
+      3D3D3D1717170505040404050404040504040405040504040404050404040404
+      0403030404030304030303040303040303030303030303030303030303020302
+      0203020302030203030302020302020202020202020202020201010202010202
+      0101020201010101020201010101010101010101010001010300030101013030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303232323434343535353737373939393B
+      3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30383838
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      39383939383837373030303030303030303130313130313131313635353A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393938393938393838393838393838393838383838
+      3838383838383838383A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3A
+      3A3939393737373838383838383939393A3A3A3B3B3B3B3B3B3D3D3D3E3E3E40
+      40404141414242424545444646454848474A49494C4B4B4E4D4D4F4F4F505050
+      5151525353535757575959595C5C5C5F5F5F6363636767676A6A6A6E6E6E7272
+      727676767A7A7A7E7E7E8282828787878C8C8C9191919696969B9B9BA1A1A1A7
+      A6A6ACACACB2B2B2B7B7B75F5F5F5B5B5B5C5C5C5C5C5C5D5D5D5D5D5D5D5D5D
+      5C5C5C5B5B5B5959595959595959595858585757575757575757575656565656
+      565454545454545454545454545252525252525252525252525151515050504F
+      4F4F4E4E4E4E4E4E4C4C4C4C4C4C4A4A4A494949494949474747464646454545
+      4545454545454444444444444444444444444545454545454444444444444444
+      444444444444444242424242424242424242424040404040404040404040403F
+      3F3F3E3E3E3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3A3A3A383838353535323232
+      2E2E2E2B2B2B2927212127400434F20135FF0134FF0034FF0032FF0032FE0032
+      FE0032FF17276A25221623222121201E201F1C1F1E181F1D151F1D121F1C0F20
+      1E16211F1921201F222222242424252525262626282828282828282828282828
+      2828282727272727272626262626262525252525252525252525252424242424
+      242323232323232323232323232222222222222222222121211F1F1F1F1F1F1D
+      1D1D1D1D1D1C1C1C1C1C1C1A1A1A191919191919191919191919171717171717
+      1717171717171616161515151414141414141414141212121111111010100F0F
+      0F0E0E0E0C0C0C0B0B0B131313B0B0B0AAAAAAA4A4A49E9E9E9998989493938E
+      8E8E8989898483847F7E7E7979797575757070706C6C6C6868686363635E5F5F
+      5B5C5B5656565353535050504C4B4B4949494545454242423E3F3F3B3B3C3838
+      383535353433343131312F2F2F2F2F2E2D2C2C2A2B2B2A292927272826262624
+      232423232323212121212021212020201F1E1F1F1F1E1F1D1E1D1D1D1D1D1D1D
+      1D1D1D1D1D1C1D1C1C1D1D1C1D1D1C1D1D1D1D1D1C1D1D1D1C1D1C1C1C1C1C1C
+      1C1C1C1C1C1C1C1D1B1B1D1C1B1D1C1B1C1C1C1C1D1C1C1C1C1C1B1B19191817
+      1716141415141414141414141414131414131313131313131313131312131212
+      1312121311121211111211111111111111101111111010101011111010101010
+      10101010100F101010101010100F0F0F0F100F0F0F0F0F0F0F0E0E0F0E0E0E0E
+      0F0F0F0E0E0E0E0E0E0E0E0E0E0E0D0D0E0D0D0E0D0D0D0E0C0D0D0C0C0C0C0C
+      0C0C0B0C0C0B0C0C0C0C0B0B0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B090A090809
+      080809080808080A09090B0B0B1919192627272D2D2D3635353B3A3B38383705
+      0505050504050404040505050405040405040405040404050404040304040404
+      0404040303030304030303030403030304030304030303030303020203030303
+      0202020202020203020202020203020202020202020202020202020201020102
+      0201010201020202010201010201010202020101030303010101303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303232323434343535353737373939393B3B3B3D3D3D3434
+      342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      383938383232323030303030303030303130313130313131313A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3939
+      3A39393A39393A39393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839383839383839383839383838383838
+      38383838383838383B3A3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3C3B3B
+      3939393838383838383939393A3A3A3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F4141
+      414242424545454646454848474A49494C4B4B4E4D4D51505053525256555559
+      58585A5A5A5C5B5C5F5F5F6060616363646767676A6A6A6E6E6E717171767676
+      7B7B7B7F7F7F8383838989898E8E8E9393939999999D9D9DA2A2A2A7A7A7ACAC
+      ACB2B1B1B7B7B76767675C5C5C5D5D5D5D5D5D5E5E5E5D5D5D5D5D5D5D5D5D5C
+      5C5C5B5B5B595959595959595959585858575757575757575757565656565656
+      5454545454545454545454545252525252525252525252525151515050504F4F
+      4F4F4F4F4E4E4E4D4D4D4C4C4C4B4B4B4A4A4A4A4A4A49494948484848484848
+      4848474747474747464646464646464646464646464646454545454545454545
+      4444444444444242424242424242424242424040404040404040404040403F3F
+      3F3E3E3E3D3D3D3D3D3D3D3D3D3B3B3B3A3A3A3838383535353232322E2E2E2A
+      2A2928261E112FA50137FF0335FF0235FF0134FF0034FF0032FF0033FF062FD7
+      2324292524212424242424242222222222222121212121212121212222212323
+      2223232324242425252527272728282829292928282828282829292929292927
+      2727272727272727262626262626262626252525252525262626252525252525
+      2525252626262626262626262525252424242424242323232121212020201E1E
+      1E1D1D1D1D1D1D1B1B1B1B1B1B19191919191919191919191917171717171717
+      17171717171616161515151414141414141313131212121111110F0F0F0E0E0E
+      0D0D0D0B0B0B1F1F1FB1B0B0AAAAAAA4A4A49E9E9E9999999493938F8E8E8989
+      898483847F7E7E7979797575757070716C6C6C6767676363635E5F5F5B5C5C56
+      56565353535050504C4C4C4848484545454242423D3E3E3B3B3C383938363635
+      3534333232323230312F2F2F2D2D2C2B2B2A2929282728282626262424242323
+      2322222222202121212020201F1F1F1E1F1E1F1E1E1D1E1D1E1E1D1D1D1D1D1D
+      1D1D1D1C1D1D1C1C1D1D1C1D1D1C1D1D1D1D1D1D1C1D1D1C1D1C1D1C1C1D1C1C
+      1C1C1C1C1C1B1C1C1C1D1C1C1D1C1C1C1C1C1C1C1C1C1C1B1B1C1C1B1B1C1B1B
+      1C191A1917171614141413141313131314131313131313131312121213121212
+      1211121212121111111111111111111011111010111011101010101010101010
+      1010101010101010100F10100F100F0F0F100F0F0F0F0F0F0E0F0E0E0F0E0E0E
+      0F0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0E0D0C0C0D0C0C0C0C0C0C
+      0B0C0C0B0C0B0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B090809090808090809
+      0A09090909090F0F0F2323232A2A2A3131313939393D3D3D1A1A1A0605050505
+      0505050405050405050504040504050405040404040404050404040404040404
+      0404040304040403030304030303030303030303030303020303020303030202
+      0302020202020302020202030202020202020201020202020201020202020101
+      0101010201020102010101010101010103030301010130303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303232323434343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3636363030303030303030303030303130313130313737373A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A
+      39393A39393A3939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383838383838
+      383838383938383B3B3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3C3C3B3C3B3B3B
+      3B3B3838383939393A3A3A3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F414141424242
+      4444444646454848474A49494C4B4B4E4D4D5150505352525655555858585B5B
+      5B5F5E5E6160606464646767676A6A6A6E6E6E7272727575757A7A7A7D7D7D81
+      81818686868A8A8A8E8E8E9393939898989D9D9DA2A2A2A7A7A7ABABABB1B1B1
+      B6B6B66D6D6D5D5D5D5E5E5E5F5F5F5F5F5F5F5F5F5E5E5E5D5D5D5D5D5D5B5B
+      5B5A5A5A59595959595959595958585857575757575757575756565656565654
+      54545454545454545454545252525252525252525252525151515050504F4F4F
+      4F4F4F4F4F4F4E4E4E4D4D4D4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A4949494A4A
+      4A49494948484848484847474747474747474746464645454545454545454544
+      44444444444242424242424242424242424040404040404040404040403F3F3F
+      3E3E3E3D3D3D3D3D3D3D3D3D3B3B3B3838383636363232322E2E2E2B29232128
+      490537FC0337FF0436FF0335FF0235FF0134FF0034FF0033FF152B8229251927
+      2727272727272727272727252525252525252525252525252525262626262626
+      2727272828282929292929292A2A2A2A2A2A2A2A2A2A2A2A2929292929292727
+      272727272727272626262626262626262626262727272828282828282929292A
+      2A2A2B2B2B2B2B2B2A2A2A2A2A2A2828282727272525252323232121211F1F1F
+      1D1D1D1D1D1D1C1C1C1B1B1B1919191919191919191919191717171717171717
+      171717171616161515151414141313131212121111111010100E0E0E0D0D0D0C
+      0C0C292929AFAFAFA9A9A9A3A3A39E9E9E9998989392928E8D8D898888838382
+      7F7F7E7979797474746F6F6F6C6C6C6767676262625F5F5F5A5B5B5657575353
+      534F4F4F4C4B4C4849494445454242423E3E3E3C3C3C3B3B3A37383735353533
+      33333131302F2F2E2D2D2C2B2B2A292928282728272627242425232323222122
+      21212020201F1E1E1D1C1B1B1C1B1B1919191919181918181818191918181818
+      181817181718181818171718171919191919191A191A1A1A1B1C1D1D1C1D1C1C
+      1C1C1C1B1C1C1C1B1C1C1B1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1B1B1B1B1B
+      1B1B1B1B1B1B1818181515151414131413131313121312121312121311121211
+      1112111112111111111111101111111111101111111011101010101010101010
+      101010100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0E0F0F0F0F0E
+      0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0D0E0E0C0C0D0C0C0C0D0C0C0C0C0C0C
+      0C0B0B0C0C0C0C0C0B0B0B0B0B0B0B0B0A0A0A0909090809090908090A0A090B
+      0B0C1919192727272D2E2E3535343B3B3B383837050606050505050506050505
+      0505050404050505050504050404050405040404040404040404040404030404
+      0403030303040403030403040403030403030303030302030303030302030203
+      0302020303020203020202030202020202020202020202020202020202010201
+      0101020201020101010101020303050101013030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303232323434
+      343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F303838383A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383831
+      31313030303030303030303030303130313232323A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39
+      393A39393A393939393939393939393939393939393939393939393939393939
+      3939393939393939393938393938393838393838393838393838383838383838
+      3838383938383B3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C3C3C3B3D3C3C3C3C
+      3C3A3A3A3A3A3A3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F41414142424244444446
+      46464848474A4A494C4B4B4E4D4D5150505352525554545858585B5B5B5F5E5E
+      6160606363636767676A6A6A6E6E6E7171717575757979797D7D7D8181818686
+      868A8A8A8E8E8E9393939898989D9D9DA1A1A1A7A7A7ABABABB0B0B0B6B6B574
+      74745E5E5E6060606060606161616161615F5F5F5D5D5D5D5D5D5C5C5C5B5B5B
+      5A5A5A5959595959595959595858585757575757575757575656565656565454
+      545454545454545454545252525252525252525252525151515050504F4F4F4F
+      4F4F4F4F4F4E4E4E4E4E4E4D4D4D4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A4A4A4A
+      4A4A4A4949494848484747474747474747474646464545454545454545454444
+      444444444242424242424242424242424040404040404040404040403F3F3F3E
+      3E3E3D3D3D3D3D3D3B3B3B3939393636363232322F2F2F2A29262426300B34D5
+      0439FF0437FF0436FF0335FF0235FF0034FF0332F124293E2A29242A2A2A2B2B
+      2B2B2B2B2A2A2A2A2A2A2929292929292828282828282828282929292A2A2A2A
+      2A2A2A2A2A2A2A2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A292929292929272727
+      2727272727272626262727272727272828282A2A2A2C2C2C2E2E2E2F2F2F3030
+      303131313131313030302F2F2F2D2D2D2A2A2A2828282525252222222020201E
+      1E1E1D1D1D1C1C1C1B1B1B191919191919191919191919171717171717171717
+      1717171616161515151313131313131111111010100E0E0E0D0D0D0C0C0C3534
+      34AFAFAEA9A8A9A3A3A39E9E9E9898989393928E8E8D8988888383837E7E7E79
+      797974747470706F6C6C6C6767676262625F5F5F5B5B5B5756575252524F4F4F
+      4C4C4C4949494544454242434040403D3C3D3A3B3A373837353535333333302F
+      302F2E2F2D2C2C2B2B2A2928282828272625252221211F1F1F1D1D1D1C1C1C1C
+      1B1B1A1A19191818181818171716161717161717161617161616161616161516
+      1615151515151515151516151515151515151415151514151515151716161818
+      181A1A1A1C1B1C1C1C1B1D1C1B1C1C1C1C1C1C1C1B1C1B1C1B1B1B1C1B1B1B1C
+      1B1B1C1B1B1C1B1B1A1918151515131312131312131212131212131212121111
+      1211111112121111111111111111111011111011111010101011101010101010
+      101010100F100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0E0F0F0F0F0E0F0F0F
+      0F0F0E0E0E0D0E0E0D0E0E0D0D0E0D0D0D0D0C0C0C0D0C0C0C0C0B0C0C0C0B0B
+      0C0C0B0B0B0C0B0B0B0B0B0C0A09090909090909090808080A09090E0F0E2323
+      232929293030303939393D3D3C1E1E1E06050506060505050605050505050505
+      0405050504050404050404040504050404040504040404040404040404040304
+      0403030403040403040303030303030303030303030303020303020202020302
+      0203030202020302020202020202020202020102020102020102010202010101
+      0101010101010101030303020102303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030323232343434353535373737
+      3939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      303838383A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383635353030
+      303030303030303030303030303130313635353A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393839393839383839383839383839383838383838383838
+      38383838383A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3D3D3C3D3C3C3E3D3D
+      3D3C3C3B3B3B3B3B3B3D3D3D3E3E3E3F3F3F4141414242424444444646464747
+      464A4A494C4B4B4E4D4D5150505352525554545858585B5A5A5E5D5D61606063
+      63636767676A6A6A6D6D6D7171717575757878787C7C7C8181818585858A8A8A
+      8E8E8E9292929797979C9C9CA0A0A0A6A6A6ABABABB0B0B0B6B6B67D7D7D6060
+      606161616161616262626262626060605F5F5F5D5D5D5D5D5D5B5B5B5B5B5B5A
+      5A5A595959595959595959585858575757575757575757565656565656545454
+      5454545454545454545252525252525252525252525151515050504F4F4F4F4F
+      4F4F4F4F4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A
+      4A4A494949484848474747474747474747464646454545454545454545444444
+      4444444242424242424242424242424040404040404040404040403F3F3F3E3E
+      3E3D3D3D3C3C3C3939393636363333332F2F2F2B2B2B28251B1B29610539FE05
+      38FF0437FF0436FF0335FF0035FF0F30B22C2A222D2D2C2E2E2E2F2F2F2F2F2F
+      2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C
+      2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A29292929292928282827
+      27272727272626262727272929292B2B2B2D2D2D323232343434363636383838
+      3939393939393838383535353131312E2E2E2A2A2A2626262323232020201F1F
+      1F1D1D1D1C1C1C1A1A1A19191919191919191919191917171717171717171717
+      17171616161414141313131212121010100F0F0F0D0D0D0C0C0C424242AFAFAF
+      A9A8A8A3A3A39E9D9D9797979292928D8D8D8887878382827E7E7E7979797474
+      746F6F6F6B6B6B6767676262625E5E5E5A5A5A5757575352524F4F4F4B4B4B49
+      494846464643434340403F3D3D3D3A3B3B3738383535353232323030302F2F2E
+      2C2C2B2A292826262623232322212220201F1E1E1F1D1D1D1D1C1C1C1B1A1A1A
+      1919181819181917171717171717171717171717171616161616161616161616
+      1616151616161615151515151515151515141415141415141415141314141314
+      1313131415141817181A1A1A1C1C1C1C1C1C1C1C1C1B1C1C1B1B1C1B1B1B1B1B
+      1B1C1B1B1C1A1B1C1B1B1A1A1915161513131213121212111213121212121111
+      1211111111111111111111111011101011101010111110101110101010101010
+      0F0F1010100F0F1010100F0F0F0F0F0E0F0F0F0F0E0F0F0F0F0E0E0F0F0F0E0E
+      0E0E0F0E0E0E0E0E0D0D0D0D0E0D0C0C0D0D0D0D0C0C0C0C0C0C0C0C0B0B0C0C
+      0C0C0C0C0C0B0A0B0909090909090909090A0A090C0C0C1918182626262D2D2D
+      3434343B3B3B3B3B3B0A0A0A0506060606050505050605050505050505050405
+      0505050504050405050504050505040504040404040404040304040404040404
+      0303030303040303040303040303030303030303030303030202020202030303
+      0202020303020202030202030202020202020202020202020202010202010101
+      0101010203030301010130303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303232323434343535353737373939393B3B3B3D
+      3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838313131303030
+      3030303030303030303030303131313A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A
+      39393A3939393939393939393939393939393939393939393939393939393939
+      3939393939393939383939383938383938383938383938383838383838383838
+      383838383A3A393B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3D3D3C3E3D3D3E3D3D3F
+      3F3F3C3C3C3D3D3D3E3E3E3F3F3F4040404242424444444646464747464A4A49
+      4C4B4B4E4D4D5150505352525554545857575B5A5A5E5D5D6160606362626666
+      666A6A6A6D6D6D7171717575757878787C7C7C8080808585858989898D8D8D92
+      92929696969B9B9BA0A0A0A5A5A5ABABABAFAFAFB5B5B5868686626262626262
+      6363636363636262626161616060605D5D5D5D5D5D5C5C5C5C5C5C5B5B5B5A5A
+      5A59595959595959595958585857575757575757575756565656565654545454
+      54545454545454545252525252525252525252525151515050504F4F4F4F4F4F
+      4F4F4F4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A
+      4A49494948484847474747474747474746464645454545454545454544444444
+      44444242424242424242424242424040404040404040404040403F3F3F3D3D3D
+      3C3C3C3A3A3A3838383333333030302B2B2B27272624231C0F31B5043AFF0538
+      FF0437FF0336FF0235FF202E6A312E2031313133333333333334343434343432
+      32323030303030302E2E2E2D2D2D2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D
+      2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2929292929292828282727272727
+      272626262727272828282C2C2C2F2F2F3333333838383C3C3C3E3E3E40404040
+      40404040403D3D3D3939393535353030302C2C2C2727272323232020201F1F1F
+      1D1D1D1C1C1C1B1B1B1919191919191919191919191717171717171717171616
+      161515151414141212121010100F0F0F0E0E0E0C0C0C525252AEAEADA8A8A7A3
+      A3A29D9C9C9796969291918D8B8C8786868281817D7D7D7979797373736F6F6F
+      6B6B6B6666666262625E5E5E5A5A5A5656565252514F4F504C4C4C4949494545
+      4543424341403F3D3D3C3B3B3B3738383535363131312E2E2E2C2B2B28292926
+      26262625252323232222221F201F1F1E1E1D1D1D1D1D1D1C1B1B1B1A1A1A1919
+      1918181817171717171716171716161616171616171616161616161616161515
+      1616161615161516151515151515151515151414141415141514141414131413
+      13131213121213121413141616161A1A1A1C1C1C1C1C1C1C1C1B1B1C1B1B1B1B
+      1C1B1B1C1B1A1B1B1A1B1B1B191A1A1515151312121312111212121211111211
+      121211111112111111101111111110101010111010101010101010100F100F10
+      0F100F10100F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0E0E0F0E0E0E0F0E0E
+      0E0E0E0E0D0E0E0D0D0D0C0D0E0C0D0C0C0C0C0D0C0C0C0C0B0B0C0C0C0C0C0B
+      0C0A090909090909090A0909090A0A0A0E0E0D2221222929293030303838383D
+      3D3D232323050606050506050606050606060506060505050505050505050505
+      0505050404040405050404040504040404040404040404040404040404030303
+      0403030403030403030403030303030303030302030302030303030202020202
+      0203030203020302020202020202020202020102010201020202010101010101
+      0503050102013030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303232323434343535353737373939393B3B3B3D3D3D3434342E2E
+      2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383835353530303030303030
+      30303030303030303030303635353B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39
+      393A393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393838393838393838393838383838383838383838
+      3838383939393B3B3B3C3C3C3C3C3C3D3D3D3D3D3D3E3E3D3E3D3D403F3F3F3F
+      3F4040403F3F3F3F3F3F4040404242424444444646464747474A4A494C4C4B4E
+      4D4D5150505352525554545857575B5A5A5D5C5C6160606362626666666A6A6A
+      6D6D6D7171717575757878787C7C7C8080808484848888888D8D8D9292929696
+      969B9B9BA0A0A0A4A4A4AAAAAAAFAFAFB4B4B48F909063636364646464646463
+      63636363636262626060605F5F5F5D5D5D5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A
+      5959595959595959595858585757575757575757575656565656565454545454
+      545454545454545252525252525252525252525151515050504F4F4F4F4F4F4F
+      4F4F4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A
+      4949494848484747474747474747474646464545454545454545454444444343
+      434242424242424242424242424040404040404040403F3F3F3E3E3E3D3D3D3B
+      3B3B3838383636363131312D2D2D29292926251D1F26450838F30539FF0538FF
+      0437FF0236FF16329F32322F36352E3A3A3A3F3F3F4141413F3F3F3C3C3C3939
+      393434343232323030303030302F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2C
+      2C2C2C2C2C2C2C2C2B2B2B2A2A2A292929282828282828272727262626262626
+      2626262626262A2A2A2F2F2F3434333B3A3841413E4545424848464848484747
+      484545454141413C3C3C3737373232322C2C2C2727272323232020201E1E1E1D
+      1D1D1C1C1C1A1A1A191919191919191919191919171717171717161616151515
+      1414141212121010100F0F0F0E0E0E0C0C0C646464ADADADA7A7A7A2A2A19C9B
+      9B9797969291918D8C8C8787868281817D7C7C7878787373736F6F6F6A696A66
+      66666262625D5E5D5A5A5A56565553525250504F4B4C4B494949454545434243
+      413F3F3E3D3C3B3A3A3736353233332F2F2E2D2D2D2B2B2B2928292626262525
+      2623232422222220201F1F1F1F1D1E1E1E1D1D1C1C1C1B1A1A1A19191A191918
+      1817181817171717171717171616171616161616161617161616161616151616
+      1516151615151515151515151514151515151515151414141413141413141313
+      131212131212131212121312121313131718181B1B1A1B1C1B1B1B1C1C1B1B1C
+      1B1B1B1B1B1C1B1A1B1B1B1B1B1B1A191A141313121212121112111212111111
+      111111111111111111111010111110111011101010101010101010101010100F
+      0F10100F0F10100F0F0F0F0F0F0F0F0F0F0F0E0E0F0E0F0F0E0E0E0F0E0E0E0E
+      0E0E0E0D0E0E0D0D0D0C0D0D0D0C0C0C0D0C0C0C0C0C0C0C0C0C0B0B0B0A0A09
+      0A0A090909090A0A0A0C0C0C1919192626262D2D2D3434343A3A3A3A3A3A0A0A
+      0A06060606060606060606060505050606050605060505050505050505040504
+      0504040504050405050404040404050404040404040404040404040404040404
+      0404040403040403030303030303030303030303030302020303020303030302
+      0302020202020202020202020202020202010202020102010102010203030501
+      0102303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303032
+      32323434343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F303838383A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383131313030303030303030
+      303030303030303030303939393B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A3939
+      3A39393939393939393939393939393939393939393939393939393939393939
+      3939393939393839393839383839383839383839383838383838383838383838
+      38383939383C3C3B3C3C3C3D3D3D3D3D3D3E3E3E3E3E3D403F3F403F3F404040
+      4242424241414141414242424343434545454747474A4A494C4C4B4D4D4D504F
+      4F5251515554545857575A59595D5C5C605F5F6362626666666A6A6A6C6C6C70
+      70707474747878787C7C7C8080808383838888888D8D8D9191919595959A9A9A
+      9F9F9FA4A4A4A9A9A9AEAEAEB3B3B39A9A9A6464646565656666666666666565
+      656262626262626060605E5E5E5D5D5D5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A59
+      5959595959595959585858575757575757575757565656565656545454545454
+      5454545454545252525252525252525252525151515050504F4F4F4F4F4F4F4F
+      4F4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A49
+      4949484848474747474747474747464646454545454545454545454545444444
+      4444444343434343434242424242424141414040404040403E3E3E3B3B3B3939
+      393737373333332F2F2F2A2A2A272727262418152E95053AFF0638FF0538FF04
+      37FF0137FF1234BD38394447443C4A4A4A4C4C4C4A4A4A4646464141413C3C3C
+      3838383434343131313030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C
+      2C2C2C2C2B2B2B2A2A2A29292929292927272727272726262625252525252525
+      25252726232E2C2133332E39393E3F404646474C4E4D4A53514651504B4D4D4C
+      4949494444443E3E3E3737373131312B2B2B2626262222221F1F1F1D1D1D1D1D
+      1D1B1B1B1A1A1A19191919191919191919191918181817171716161615151513
+      13131111110F0F0F0E0E0E0D0D0D757575ACACACA6A6A6A1A1A19C9B9C969695
+      9190908C8B8B8786868281827D7D7C7777777373736E6E6F6A6A6A6666666262
+      625D5C5D5B5B5B5656565353534F4F4F4B4B4C4848484545454343433E3F3E3B
+      3A3A3636363535353131322F2F2E2D2C2C2A2A2A282929262626262626232423
+      2121212020201F1F1F1D1D1E1E1E1D1C1C1C1B1B1B1A19191919191818171917
+      1818171817171717171717171716161616161616161616161616161616151515
+      1516151516151515151515151515141515141414151414141314141313131313
+      1313131213121212121212121212121212121616151B1B1A1B1C1C1B1C1C1C1B
+      1B1C1A1B1C1B1B1B1C1B1C1B1B1C1B1B17171712121111121212121211111112
+      11111111111111111111101111111110101110111010101010100F1010100F10
+      0F0F0F0F0F0F100F0F0F0F0F0F0F0F0F0F0E0E0E0E0F0E0F0E0F0E0E0E0E0E0D
+      0E0E0D0D0E0C0D0D0D0C0C0D0D0C0C0D0C0C0D0C0C0C0A0A0A0A090A090A0909
+      09090B0B0A0E0F0E2121212828283030303737373D3D3D2A2A2A060706060606
+      0606060606060506060606050506050506060505050505050505050505050505
+      0505050504050404050405050504040404040404040304040404040304040403
+      0304040303030304030403030303020303020302030302020202020302020203
+      0302020202020202020202020102020101020202010202010303030201013030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303232323434343535
+      353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F303838383A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838363636303030303030303030303030
+      3030303030303433343B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939383939383938383938383938383938383838383838383838383838
+      383939393B3B3B3D3D3D3D3D3D3E3E3E3E3E3E40403F403F3F41404042424242
+      42424444444545454444444545454747474A4A494B4B4A4D4D4D504F4F525151
+      5454545857575A59595C5B5B5F5F5F6362626665656969696C6C6C7070707373
+      737777777B7B7B7F7F7F8383838787878C8C8C9090909595959999999E9E9EA4
+      A4A4A8A8A8AEAEAEB2B2B2A5A5A5666666676767676767676767666666646464
+      6363636161615F5F5F5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5959
+      5959595959595958585857575757575757575756565656565654545454545454
+      54545454545252525252525252525252525151515050504F4F4F4F4F4F4F4F4F
+      4E4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A4949
+      4948484847474747474747474746464646464646464646464645454545454544
+      44444444444444444343434242424242424141413F3F3F3E3E3E3B3B3B383838
+      3535353030302D2D2D29292A2726212327320B37E1053AFF0639FF0538FF0437
+      FF0036FF0F37D93F46605350445251515050504C4C4C4747474141413B3B3B38
+      38383434343232323030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C
+      2B2B2B2A2A2A29292928282827272726262625252525252525252327251B2325
+      301827721028A80B28C30B28C60C29C41930B12D3C904A4E6257554B50504D4A
+      4A4B4444443D3D3D3636362F2F2F2A2A2A2525252121211E1E1E1D1D1D1C1C1C
+      1B1B1B1B1B1B1919191919191919191919191717171616161515151313131111
+      110F0F0F0E0E0E0F0F0F8C8C8BACACABA6A6A6A0A0A09B9B9B9695959090908B
+      8A8A8685858181817C7C7C7777777272726D6D6D6969696565656261615D5D5D
+      5A5A5A5555555353534F4E4F4B4A4A4848494645454140403C3C3C3A393A3636
+      363434343232322F2F2F2D2D2D2A2B2A28282826262624252524242421212120
+      20201F1F1F1E1E1E1E1D1E1D1C1D1B1B1B1A1A1A1A1919191817191817181817
+      1817171717171716171717171716161716161616161616161616151516161616
+      1615151515151515151515151515141415151514141514131414131413131313
+      13121313131212131212121212121212121111121414151919191B1C1B1C1B1B
+      1C1A1B1C1B1B1C1B1B1B1C1C1B1B1B1A1A1A1514141112121211121111111211
+      1111111111101110101110111110111010111111101010100F10100F100F1010
+      10100F0F0F0F0F0F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0E0E0E0E0E0E0E0E0D0E
+      0E0D0D0E0D0D0D0C0C0D0C0C0C0D0D0D0B0C0A0A0A0A090A0A0A0A0B0A0B0C0B
+      0B1616172526252B2B2B3333333939393E3E3E0E0D0D06060607060606060606
+      0606060506060606050606050605050506050505060506050504050505040504
+      0405050405050405040404050404040404040404040404040404030403040304
+      0403040403030303030303030303020303030303030202030303030202020302
+      0302020302020202020202020102020202010201050505020202303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030323232343434353535373737393939
+      3B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838
+      383A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383832323230303030303030303030303030
+      30303030303737373B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393938393938393838393838393838393838383838383838383838393939
+      3939393B3B3B3D3D3D3E3E3E3E3E3E40404040403F4140404342424242424444
+      444545454747474949484949494A49494B4B4A4D4D4C4F4E4E51505054545457
+      56565A59595C5B5B5F5F5F6262626665656868686C6C6C6F6F6F737373767676
+      7A7A7A7F7F7F8383838787878A8A8A8F8F8F9494949999999D9D9DA2A2A2A8A8
+      A8ADADADB2B2B2B0B0B06B6B6B68686868686868686867676765656563636361
+      61615F5F5F5E5E5E5D5D5D5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A595959
+      5959595959595858585757575757575757575656565656565454545454545454
+      545454545252525252525252525252525151515050504F4F4F4F4F4F4F4F4F4E
+      4E4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A494949
+      4848484747474747474848484747474646464646464747474747474747474747
+      474747474747474646464444444343434141413F3F3F3D3D3D39393936363633
+      33332F2F2F2B2B2B2828282825191B2D76063BFF0639FF0639FF0538FF0437FF
+      0035FF0B37E83C48795653465151504D4D4D4848484141413C3C3C3939393535
+      353333333232323131313030302F2F2F2F2F2F2E2E2E2E2E2E2C2C2C2B2B2B2A
+      2A2A29292928282826262625252523242424231F24231D16256E0526CD0025EE
+      0023EC0023E70023E50022E40020E5001FE50725D42C3B9652535450504A4949
+      494242423A3A3A3232322C2C2C2727272323232020201D1D1D1D1D1D1C1C1C1B
+      1B1B1B1B1B191919191919191919181818161616151515131313121212101010
+      0E0E0E151515A1A1A1ACACABA6A5A5A09F9F9A9999959494908F8F8A89898584
+      84807F7F7B7B7B7777777272726D6D6D6868686666656161615D5D5D59595856
+      55555252524F4F4F4A4A4A4747474342423F403F3B3B3C383938353535353434
+      3131312F2F2E2C2D2C2A2A2A2828282626262525252424232221222020201F1F
+      1F1E1E1E1E1D1E1D1D1D1B1B1C1A1A1B1A1A1A19181819181718181819171718
+      1717171717171717171717161617171616161616161616161616161616161516
+      1615151515151515151515151414141414151514141414141413141313131313
+      121212131212121212121212121212111212111112111515151A1A1A1C1B1B1C
+      1B1B1B1B1B1B1C1B1B1B1B1B1B1B1B1B1B161717111112121112111212111112
+      1211111111111110111110111010101011101010101010101010101010100F0F
+      10100F100F0F0F0F0F0F0F0E0F0F0E0F0E0F0E0F0E0E0E0E0E0E0D0E0E0D0D0E
+      0C0D0D0D0D0D0D0C0C0C0C0B0A0B0B0A0A0A0A0A0A0A0A0B0A0B0D0D0D1F1E1E
+      2727272E2E2E3535353B3B3B2929290707070706060606070706060606060606
+      0606060606060606060505050605050505060505050505050505050505050405
+      0505040505040404050504040404040404040404040404040304030303040303
+      0303030403030303030303030203030302030303020303020302030303030203
+      0202020202030202020102020102020203050301020230303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303232323434343535353737373939393B3B3B3D3D3D34
+      34342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303838383B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383736363030303030303030303030303030303030
+      303232323A3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A3939
+      3939393939393939393939393939393939393939393939393939393939393939
+      393939383939383938383938383938383938383838383838383939393939393A
+      3A3A3A3A3A3D3C3C3E3E3E404040404040414140434242434242444444454545
+      4747474949494B4B4B4C4C4C4D4D4D4E4E4E5050505151515453535655555958
+      585C5B5B5F5E5E6261616665656867676B6B6B6E6E6E7272727575757A7A7A7E
+      7E7E8282828686868A8A8A8F8F8F9393939898989D9D9DA2A2A2A7A7A7ACACAC
+      B2B2B2B5B5B57777776969696969696969696868686666666464646262626161
+      615F5F5F5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A59595959
+      5959595959585858575757575757575757565656565656545454545454545454
+      5454545252525252525252525252525151515050504F4F4F4F4F4F4F4F4F4E4E
+      4E4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A49494948
+      48484747474848484848484747474848484949494A4A4A4A4A4A4B4B4B4B4B4B
+      4A4A4A4A4A4A4949494747474444444242423E3E3E3C3C3C3939393535353131
+      312D2D2D2A2A2A2827252726251036CB063BFF0639FF0639FF0538FF0437FF00
+      36FF0435F7314390504E444B4B494747474242423C3C3C393939363636343434
+      3333333131313030303030302F2F2F2F2F2F2E2E2E2D2D2D2C2C2C2A2A2A2929
+      2927272725252523232423221F2222210E25960027EF0026EC0026E50025E300
+      24E20024E20024E10023DF0022DE0021E0001EE51930B34C4E574D4C47444445
+      3C3C3C3535352E2E2E2929292424242121211F1F1F1D1D1D1C1C1C1C1C1C1B1B
+      1B1B1B1B1A1A1A1919191818181717171515151313131212121010100E0E0E2B
+      2B2BADADADAAAAAAA4A4A39F9E9E9A99999594948F8E8E89898985848480807F
+      7B7A7A7676767272726D6D6D6767676564646060605D5C5C5858585655555250
+      504D4D4D4949494544454241413F3E3F3C3C3C3939393635353333333131312F
+      2F2F2D2D2D2B2B2B2828292626262425252424242222222121201F201F1E1E1E
+      1E1E1D1D1D1D1B1C1B1A1B1A1A1A1A1919191918181918181818181817171817
+      1717171717171617171616161616161617161616161616161616161616151615
+      1615151515151515141515151515151414141414151314131314131313131212
+      1213121213131212121212121112121212121211121111111615151B1A1B1C1B
+      1B1C1B1A1C1B1B1C1B1B1B1B1B1B1B1B19191914131312111111121112121111
+      111111111111111011101011101010101010101010101010101010100F10100F
+      0F0F0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0E0E0F0E0D0E0E0D0E0E0D0D0D0D
+      0D0D0C0C0C0C0D0A0A0B0A0A0B0A0A0A0A090A0A0A0B14141423222328292830
+      2F303636363B3B3B0E0E0E070706060706070707060707060706060606060606
+      0605060605050605050505050606050605050505050505050505040504050405
+      0404040504050405040404040404040404040304030403030303040303030304
+      0303030403030304030203030302030203030302030203030303020202020202
+      0202020202020202020202010505050102023030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303232323434343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F302F303838383B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838333333303030303030303030303030303030303030
+      3535353B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383838383939393939393A3A3A3A3A
+      3A3B3B3B3B3B3B3E3E3E40404041414143434243424245444445454546464649
+      49494A4A4A4C4C4C4E4E4E4F4F4F5252515453535555555858585A59595C5B5B
+      5F5F5F6160606564646867676A6A6A6E6E6E7171717575757979797D7D7D8181
+      818686868A8A8A8F8E8E9393939898989D9D9DA2A1A1A7A7A7ABABABB1B1B1B6
+      B6B68686866B6B6B6B6B6B6B6B6B696969676767656565626262616161606060
+      5F5F5F5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5959595959
+      5959595958585857575757575757575756565655555554545454545454545454
+      54545252525252525252525151515151515050504F4F4F4F4F4F4F4F4F4E4E4E
+      4E4E4E4C4C4C4C4C4C4C4C4C4C4C4C4A4A4A4A4A4A4A4A4A4A4A4A4949494848
+      484848484848484848484A4A4A4B4B4B4C4C4C4E4E4E4F4F4F50505050505050
+      50504F4F4F4D4D4D4A4A4A4646464242423E3E3E3B3B3B3737373232322E2E2E
+      2B2B2B29282928251C202B58083AF9073AFF0639FF0639FF0538FF0437FF0236
+      FF0034FF243DA44545464343423F3F3F3B3B3B38383835353534343433333332
+      32323030303030303030302F2F2F2E2E2E2D2D2D2C2C2C2A2A2A282828262626
+      2424242222212221190E258F0028F60027E90027E60026E60026E50025E30024
+      E20024E20024E10023DF0023DE0022DE001EE6182FAF4A49494544423E3E3E36
+      36362F2F2F2A2A2A2626262222222020201E1E1E1C1C1C1C1C1C1C1C1C1B1B1B
+      1B1B1B1919191818181717171616161414141212121010100E0E0E484848AEAE
+      AEA9A9A9A3A3A39E9E9E9898989392928E8D8D8888888383837F7E7F7B7B7A75
+      75757171716C6C6C6768686363636060605C5B5B5958585555554F4F4F4C4C4B
+      4949484444444342423E3E3E3C3B3B3838383535353333333030302E2E2E2D2D
+      2D2A2A2A2929282726272525252424242122222020201E1F1E1E1F1E1E1E1E1D
+      1D1D1B1B1C1B1A1A1A1A1B191919191919191818191818181818181717181718
+      1716171716171717161716171617161616171616161616161615161515151515
+      1515151515151514151415151414141414141414131414131413121313131312
+      13121312131212121212121212111211111112111111111211121817171B1B1A
+      1C1B1B1B1C1B1B1C1B1B1B1C1B1B1B1A1A1A1515151112121111121111111111
+      111011111111111110111011111010111010101010100F1010101010100F0F0F
+      10100F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D
+      0B0B0C0A0A0A0B0A0B0A0B0A0A0A0A0B0B0B1D1D1D2322232928282F2F2F3536
+      3529292A07070706070706060707070607070707070606070606060606060606
+      0605050605050605060506050505050506050505050505040405040504040505
+      0504040404040404040504040404040404040304040304040403040303040303
+      0303040403030303030303030203030203020203020303030202020202020202
+      0302020202020202050505020202303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303032323234
+      34343535353737373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F302F303838383B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383838383831303130303030303030303030303030303030303038
+      38383B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A39393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      39383939383938383938383938383938383939393939393A3A3A3A3A3A3B3B3B
+      3B3B3B3C3C3C3D3D3D4040404242424343424544444645454646464949494A4A
+      4A4C4C4C4D4D4D4F4F4F5252515454535655555958585B5B5B5D5D5D60606063
+      63636666666969696C6C6C7070707373737777767A7A7A7E7E7E828282868686
+      8A8A8A8F8F8F9393939898979C9C9CA1A1A1A6A5A5ABABABB0B0B0B6B6B69595
+      956C6C6C6C6C6C6C6C6C6B6B6B6969696666666363636161616161615F5F5F5E
+      5E5E5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A595959595959
+      5959595858585757575757575757575757575656565555555555555555555454
+      545454545353535252525252525151515050505050504F4F4F4F4F4F4E4E4E4E
+      4E4E4C4C4C4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A4A4A4A494949484848484848
+      4848484949494A4A4A4C4C4C4E4E4E5151515454545555555757575656565656
+      565454545151514D4D4D4747474141413C3C3C3939393535353030302C2C2C29
+      29292727262724181334B2063CFF073AFF0639FF0639FF0538FF0437FF0236FF
+      0234FF333B5B3F3D383B3B3B3939393737373535353434343434343333333131
+      313030303030303030302E2E2E2D2D2D2B2B2B2A2A2A27272725252523232322
+      201616235C0029F10028EC0028E80027E70027E70026E60026E50025E30024E2
+      0024E20024E10023DF0023DE0022DE001FE52735874543393C3C3C3636363030
+      302A2A2A2626262323232121211F1F1F1D1D1D1C1C1C1C1C1C1C1C1C1B1B1B1A
+      1A1A1919191717171616161414141111111010100E0E0E676767AEAEAEA9A9A8
+      A3A2A29D9C9C9797979292928D8D8D8887878282827D7D7D7878787474747070
+      706C6C6C6767676362635F60605B5B5B5656565352534F4F4F4B4B4B49484745
+      45444241403F3D3D3C3B3C3938383535353333333131312E2F2F2D2D2D2A2A2A
+      2827282626272625262323232222222121211E1E1F1E1E1E1E1E1F1D1D1D1B1C
+      1C1B1B1B1B1A1A191A1919191919191919181819181818181819171718171717
+      1717171617171717171617161716161616161616161516161515151615151515
+      1515151515151515141415141415141414151413141413141313131313131213
+      121212121212121212121212121211121212111111121111111313131A1A1A1C
+      1B1B1B1C1B1B1B1B1C1B1B1B1B1B1B1A1B161617111212111111111111111111
+      10111011111011101011111010101010101010101010100F0F10100F10100F10
+      0F0F0F0F0F0F0F0F0F0F0E0F0E0F0E0F0E0D0E0F0D0E0E0D0E0D0D0D0B0B0B0B
+      0B0A0A0B0A0A0A0B0A0A0B0F0F0F1F1F1F2322232928292E2E2E333433131313
+      0807070707070707070706070706070606060607060706070606060506060606
+      0605060506060606050505050505050605050505050505050504050405040405
+      0505040404040404040404040404040404040304040304040303040403040303
+      0303030303030303030203030303030303030302030203020202030302030202
+      0202020205050502020230303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303232323434343535353737
+      373939393B3B3B3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30
+      2F303838383B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383535353030303030303030303030303030303030303232323A3A
+      3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      383939383938383938383938383A39393939393A3A3A3A3A3A3B3B3B3B3B3B3C
+      3C3C3D3D3D3D3D3D3F3F3F4141414444444645454746464848484949494B4B4B
+      4D4D4D4F4F4F5252525454535656555958585B5A5A5D5D5D5F5F5F6363636666
+      666969696C6C6C70706F7373737676767A7A7A7E7E7E8181818585858A8A8A8E
+      8E8E9292929797979C9C9BA0A0A0A5A4A4AAAAAAAFAFAFB4B4B4A4A4A46D6D6D
+      6E6E6E6D6D6D6C6C6C6B6B6B6868686565656363636161616060605F5F5F5F5F
+      5F5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A59595959595959
+      5959585858585858585858585858575757575757565656565656565656555555
+      5454545353535454545353535252525151515050505050504F4F4F4E4E4E4E4E
+      4E4C4C4C4C4C4C4C4C4C4B4B4B4A4A4A49494949494948484848484847474748
+      48484A4A4A4D4D4D5151515454545858585C5C5C5E5E5E5E5E5E5E5E5E5C5C5C
+      5959595454544E4E4E4646463F3F3F3B3B3B3636363232322D2D2D2929292826
+      1E2228400E39E0083CFF083BFF073AFF0639FF0639FF0538FF0337FF0736F033
+      3542373733373737363636353535353535343434343434333333323232323232
+      3131313030302F2F2F2D2D2D2B2B2B29292926262624242422211F1F1F1F0627
+      C0002AF50029EA0028EA0028E90027E70027E70026E60026E50025E30024E200
+      24E20024E10023DF0023DE0021E20624CC373A463838343333332F2F2F2A2A2A
+      2626262323232121211F1F1F1E1E1E1D1D1D1C1C1C1C1C1C1C1C1C1A1A1A1919
+      191717171616161414141212121010100F0F0F858585ADADADA7A7A6A2A2A19C
+      9B9B9696969191918C8C8C8787878182817D7D7D7877787473746F6F6F6B6B6B
+      6666666363635F5E5F5A5A5A5555565252524F4F4E4B4A4B4948484444434142
+      413F3E3D3C3B3B393838363535333333302F302E2E2E2C2C2C2A2A2A28282827
+      27272525252323232121212121211F1F1F1E1E1E1F1F1E1C1C1C1C1C1C1B1B1B
+      1B1B1B19191A1919191919191919181918181918181818181817181817181717
+      1717171717171616161717161616161616161616161615161615151515151515
+      1515151515151415141415141415141414141314141314131313131212121312
+      1312121212121212121212121112121111111111111111111111111717181C1B
+      1B1C1B1B1B1C1C1B1B1B1B1B1B1B1B1B18181713131211111111111111111111
+      11111110111110111010101010111010101010100F100F100F0F100F100F100F
+      0F0F100F0F0F0F0E0F0E0E0F0E0E0F0E0D0E0E0D0D0C0C0C0B0B0B0B0B0B0B0B
+      0A0B0B0B0A0A0B1615151F201F2222222627272C2C2C30303116151508070708
+      0707070707060707060706060706060707060606070606060606060606060605
+      0606050605050606050505050505060505050505050505050505040405040504
+      0404050404040404040504040404040403030304030404040303030403030303
+      0303030303030303030303030203030202030202020202020203030202030202
+      0505050202023030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303232323434343535353737373939393B3B3B
+      3D3D3D3434342E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F303938383B3B
+      3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      38383938383232323030303030303030303030303030303030303433343B3B3A
+      3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A393939393939
+      3939393939393939393939393939393939393939393939393939393939393938
+      3939383938383938383A39393A39393939393A3A3A3A3A3A3B3B3B3C3C3C3D3D
+      3D3D3D3D3F3F3F4040404141414444434646454948484949494B4B4B4D4D4D4F
+      4F4F5151515353535656555959585B5A5A5D5C5C5F5F5F626262666666686868
+      6C6C6C6F6F6F7272717676757A79797D7D7D8181818484848888888D8D8D9191
+      919595959A9A9A9F9F9EA3A3A3A9A8A8AEAEAEB3B3B3B1B1B17373736F6F6F6E
+      6E6E6E6E6E6C6C6C6969696666666464646262626161615F5F5F5F5F5F5F5F5F
+      5E5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5959595959595959
+      5959595958585858585858585858585858585858585858585858585858585856
+      56565656565555555454545252525151515050505050504F4F4F4E4E4E4E4E4E
+      4D4D4D4C4C4C4B4B4B4A4A4A4949494848484848484747474646464646464848
+      484B4B4B5151515756515F5C5162615A6464636666666666666464646161615C
+      5C5C5555554C4C4C4242423D3D3D3838383333332E2E2E2B292325282F1039D0
+      093EFF093BFF093BFF083BFF073AFF0639FF0639FF0438FF0C36DD3333393534
+      3135353535353535353535353534343434343433333332323232323232323230
+      30302F2F2F2D2D2D2B2B2B29292926262623232321201817214D002AEF002AEF
+      0029EC0029EA0028EA0028E90027E70027E70026E60026E50025E30024E20024
+      E20024E10023DF0022DF0021E4202C713432272E2E2E2B2B2B29292925252523
+      23232121212020201F1F1F1E1E1E1D1D1D1C1C1C1C1C1C1B1B1B1A1A1A181818
+      161616131313121212101010191919A2A2A2ACACACA6A6A6A0A0A09A9A9A9595
+      959090908B8A8A8585858181817C7C7C7777777373736E6E6E6A6A6A66666661
+      61615D5D5D5959595555555252524D4E4E4A4A494747484444444141413E3E3D
+      3C3B3B3937373635353433333030302E2E2E2C2C2C2A2A2A2828282727272525
+      252323242221212020201F1F1F1F1E1E1D1E1D1D1D1C1C1B1B1B1B1B1B1B1B19
+      1A1A191A1919191A191919191919181818191817191818181718181717171717
+      1716171617161616161616161616161516161615151616151516151615161515
+      1514151514151514141414151514141414131414131413131312131312121212
+      12121212121212121111121111111111121111111111111111111515151B1B1A
+      1C1B1B1B1C1B1B1B1B1B1B1B1B1B1B1918191312121111121211111011111110
+      1010111111101010101110111010101010101010100F0F100F0F1010100F0F10
+      0F0F0F0F0F0F0E0E0F0E0E0F0E0E0E0E0E0D0D0D0B0B0C0B0B0B0A0B0A0A0A0B
+      0B0B0B0C0D0C1D1D1D2121212525252928292E2F2F2E2E2D0A0A0B0707070707
+      0707070707070707070707060706060707060706070706060606060605060605
+      0605060606060505050506050605050505050505050405040504050505040405
+      0504050404040404040404040404040404030404040303040403040303030303
+      0303030302030303020303020302030303030302030302030303030205050502
+      0202303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303232323434343535353737373939393B3B3B3D3D3D3434342E
+      2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F303938383B3B3B3B3B3B3B3B3A
+      3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      383837373130313030303030303030303030303030303030303737373B3B3A3B
+      3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A39393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      39383938383A39393A39393A39393A3A3A3A3A3A3B3B3B3C3C3C3D3D3D3D3D3D
+      3F3F3F4040404141414242424444444545454848474A4A4A4D4D4D4F4F4F5151
+      515353535656565858575A5A595D5C5C5F5F5F6161616565656868686A6A6A6E
+      6E6E7171717575747979787D7C7C8080808484848888888C8C8C919191959595
+      9999999E9E9EA3A3A2A8A8A8ACACACB1B1B1B6B6B68181817070707070706F6F
+      6F6D6D6D6A6A6A6868686464646262626262626161615F5F5F5F5F5F5F5F5F5E
+      5E5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A595959595959595959
+      5959595858585A5A5A5B5B5B5B5B5B5B5B5B5B5B5B5C5C5C5C5C5C5B5B5B5959
+      595858585757575555555353535151515050505050504F4F4F4E4E4E4D4D4D4C
+      4C4C4B4B4B4A4A4A494949474747454545464646454545454545464646494845
+      514E434C536D3953B1505C886A69636F6D656D6D6C6B6B6B6969696464645D5D
+      5D5454544848483E3E3E393939343435302F2B2B2B2A1537B70A3FFF0B3DFF0A
+      3DFF093CFF093BFF083BFF073AFF0639FF0438FF1035CB323133333331343434
+      3535353535353535353535353434343333333333333333333232323131312F2F
+      2F2E2E2E2B2B2B292929262626222222211E11102480002BFC002AEE002AED00
+      29EC0029EA0028EA0028E90027E70027E70026E60026E50025E30024E20024E2
+      0024E10023DF0021E90F24982A29212828262626262525252424242323232121
+      212020201F1F1F1E1E1E1E1E1E1D1D1D1C1C1C1B1B1B1A1A1A18181816161613
+      1313121212101010373737AEAEAEAAA9AAA4A4A49F9F9F9999999494948F8F8F
+      8A898A8585858080807B7B7B7676767272726E6E6D6969696464646060605C5C
+      5C5858585555555151514D4D4D494A494848484343434141413E3E3D3C3C3B38
+      38383635363433333130302E2E2D2C2B2C2A2A2A272727272727252525242424
+      2121212020211F1F1F1F1E1F1E1D1D1C1C1C1B1C1B1B1B1B1B1B1B191A1A191A
+      191A1A19191A1919191919191919181819181718181818171718171717171717
+      1717171716161616171617161616161616161616151616151616151516161515
+      1515151415151415151415141414141413141413141313131212131312121212
+      121212121212121111121111111111111112111111111111111312131A1A191B
+      1B1B1B1B1B1B1B1B1B1B1B1B1B1A191918121213121211121111111111111111
+      1011111111101010101010101010101010100F10101010101010100F0F0F0F0F
+      0F0F0F0F0F0E0E0F0E0E0E0D0E0E0D0D0B0B0C0B0B0B0B0B0B0B0B0B0A0B0B0C
+      0B0C1211121F1F1F2323242726272B2B2B2E2E2E1E1D1E070808070707070707
+      0707070707070707070707060606070606070607070606060606060505060606
+      0606060605060606060605050505050505050405050504050504040404040404
+      0404040404040404040404040303040403040304040304030404040304030303
+      0303040303030303030203030203030303030303020202030505050202033030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3232323434343535353636363838383A3A3A3D3D3D3434342E2E2E2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F302F303939383B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B
+      3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393838393838393838393838
+      3535353030303030303030303030303030303030303131313939393B3B3A3B3A
+      3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A3939393939393939
+      3939393939393939393939393939393939393939393939393939393939383939
+      383A39393A39393A39393B3A3A3A3A3A3B3B3B3C3C3C3D3D3D3D3D3D3E3E3E40
+      40404141414242424444444545454747464949484B4A4A4C4C4C4F4F4E525252
+      5554545757575959595C5C5C5F5E5E6261616363636767676A6A6A6D6D6D7171
+      717474747878777C7C7B7F7E7E8483838787878B8B8B8F8F8F9393939897979C
+      9C9CA1A0A0A6A6A6AAAAAAB0B0B0B5B5B59494947272727272727171716F6F6F
+      6C6C6C6969696666666363636262626161616060605F5F5F5F5F5F5F5F5F5E5E
+      5E5E5E5E5C5C5C5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5959595959595A5A5A5A
+      5A5A5B5B5B5C5C5C5E5E5E5F5F5F6060606060606060606060605E5E5E5C5C5C
+      5A5A5A5858585656565353535252525050505050504F4F4F4E4E4E4C4C4C4B4B
+      4B49494948484847474744444443434343434344434047443945464E354B9C1F
+      4CEF154AFF194AFE3354CD5C668E75736B75736B6F6F6E6A6A6A626262595959
+      4D4D4D4141413B3B3B3635323230281A38A90C41FF0C3FFF0C3EFF0B3EFF0A3D
+      FF093CFF093BFF083BFF073AFF033AFF1036C9302F2D33313034343434343435
+      35353535353535353535353434343333333333333333333232323030302E2E2E
+      2B2B2B282828252525222221201E150B269B002CFD002AEF002AEE002AED0029
+      EC0029EA0028EA0028E90027E70027E70026E60026E50025E30024E20024E200
+      24E10023E70923AD232323232221222222232323222222222222212121212121
+      1F1F1F1F1F1F1F1F1F1E1E1E1D1D1D1B1B1B1919191818181616161414141111
+      110F0F0F5F5F5FAFAFAFA9A9A9A3A3A39E9E9E9898979392928E8D8D88888884
+      83837E7E7E7A7A7A7676767070706D6D6D6768686363646060605B5B5B585858
+      5554544F4F4F4D4D4D4949494746464343434040403D3D3D3B3B3A3838373535
+      353332323130302F2E2E2C2B2C29292927282727272725252523232321212121
+      20211F1F1F1F1F1F1E1E1E1C1D1D1B1C1C1C1C1B1B1B1B1A1A1A1A1A1A19191A
+      191919191919191A191919191818181918181918171817171817171717161717
+      1617171717171617161616161616151616151616161615161515151515151515
+      1515151515141415141514141414141314141314131313121312131213131212
+      1212121212121212121112111112111111111111111111111111111A19191B1B
+      1B1B1B1B1B1B1B1B1B1A1A1B1B19191812121211111111111111101110111011
+      11111110111011101010101010101010100F0F100F10100F0F100F0F0F0F0F0F
+      0F0E0F0E0E0F0E0E0E0E0D0D0E0E0E0B0B0C0B0B0B0A0B0B0B0B0A0B0B0A0B0C
+      0C1A1B1B2121212424242828282A2A2A2C2C2C10101108070808080707070707
+      0607070707060707060607070606060607060606060706060606060605060605
+      0506050505050505050505050505050505050405050505050505050505050504
+      0504040405040404040404040404040403040403030404040403030303030303
+      0303030303030303030303030303020303030203080805020202303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303031313135353534
+      34343636363737373A3A3A3C3C3C3333332E2E2E2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F302F303939393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A
+      3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383833
+      33333030303030303030303030303030303030303231323A3A3A3B3B3A3B3A3A
+      3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A393A3A393A3A393A39393A39393A39393A393939393939393939
+      39393939393939393939393939393939393939393939393939393939383A3A39
+      3A39393A39393B3A3A3B3A3A3B3B3B3B3B3B3D3D3D3D3D3D3E3E3E4040404040
+      404242424444444545454747474848474A4A494C4B4B4E4D4D504F4F52515155
+      54545757575A5A5A5D5C5C5F5F5F6362626666666969696C6C6C706F6F737373
+      7777777A7A7A7E7E7E8181818585858989898E8D8D9291919696969B9B9B9F9F
+      9FA5A5A5A9A9A9AEAEAEB4B4B4A6A6A67373737373737272727171716E6E6E6A
+      6A6A6767676565656262626262626161616060605F5F5F5F5F5F5F5F5F5E5E5E
+      5E5E5E5C5C5C5C5C5C5C5C5C5B5B5B5A5A5A5A5A5A5959595959595A5A5A5B5B
+      5B5D5D5D5F5F5F6262626464646565656565656464646363636161615E5E5E5B
+      5B5B5959595656565454545151515050505050504E4E4E4D4D4D4B4B4B494949
+      464646454545424343404040413F3740414735478A244DDD1A4DFF1A4CFF1A4C
+      FF194BFF1449FF1849FE3A59C9646C8C76746B716F686666655C5C5C51515143
+      43433D3C383836301F3AA30D41FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF0A3DFF
+      093CFF083CFF073BFF0D37D62130692F2F2B3131303434343434343535353535
+      353636363535353535353434343333333333333232323030302E2E2E2B2B2B29
+      2929252525222221201E180B26A1002DFD002CF0002AEF002AEE002AED0029EC
+      0029EA0028EA0028E90027E70027E70026E60026E50025E30024E20024E20024
+      E70722B62121242322202222222222222222222121212121212121212020201F
+      1F1F1F1F1F1E1E1E1D1D1D1C1C1C1919191818181616161414141111110F0F0F
+      878787ADADADA7A7A7A2A2A29D9D9D9797979291918C8C8C8787878382827E7D
+      7D7879787474747070706B6B6B6767676362635E5E5E5B5B5B57575753545450
+      4F4F4C4D4C494949464646434342403F3F3C3C3C3A3A3A373736353535323231
+      302F2F2F2E2E2D2C2C2A2A2A2727282727262525252323232221212121211F1F
+      1F1F1F1F1E1E1E1C1C1D1C1C1B1C1C1B1B1B1B1A1B1A1A1A191A1A1A1A1A1919
+      191A191919191919191919181818191818181818181817181717171717171717
+      1717161716161717161616161616161616151615161616161616151515151515
+      1515151514141415141514141414131414131413121312121312121313121212
+      12121212121212111111111112111111121111111111101111101817171C1B1B
+      1B1B1B1B1B1C1A1B1B1A1B1B1919191313121211111111111111111111101110
+      111111111010111110101010101010101010100F100F10100F0F0F0F100E0F0F
+      0E0F0F0E0E0F0E0D0E0E0D0D0C0C0B0B0B0B0B0B0B0A0B0A0A0A0C0C0C0E0D0D
+      1F1E1E2121222525252727272828281F20200808080708070707070707070707
+      0707070606070706070606070606060606060606060605050606060506050605
+      0506060506050605050505050505050505050505050505050504040405040504
+      0404040404040404040404030404040403030403030404030403030303030303
+      0303030303030303020303030202030305050502030230303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303333333535353737
+      373838383A3A3A3A3A3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F3039
+      39393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A
+      3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383838383030
+      313030303030303030303030303030303030303333333B3B3A3B3B3A3B3A3A3B
+      3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A393A3A393A3A393A39393A39393A39393A39393939393939393939
+      393939393939393939393939393939393939393939393939393A3A393A3A393A
+      39393B3A3A3B3A3A3C3B3B3B3B3B3D3D3D3D3D3D3E3E3E404040404040424242
+      4343434444444747474848484A4A494B4B4A4E4D4D504F4F5251515554545756
+      565858585B5B5B5E5E5E6161616464646767676A6A6A6D6D6D71717174747478
+      78787C7C7C80807F8484838887878C8C8C9090909594949999999E9E9EA2A2A2
+      A8A8A8ADADADB2B2B2B4B4B47C7C7C7575757474747272726F6F6F6C6C6C6969
+      696666666464646363636262626161616060605F5F5F5F5F5F5F5F5F5E5E5E5E
+      5E5E5D5D5D5B5B5B5B5B5B5A5A5A5959595959595858585959595B5B5B5D5D5D
+      6161616464646767676969696A6A6A6A6A6A6969696767676464645F5F5F5C5C
+      5C5959595656565454545151515050504E4E4E4D4D4D4B4B4B47474745454543
+      434340403F3F3E3A334484234EE01D50FF1C4FFF1C4EFF1C4DFF1B4CFF1A4CFF
+      1A4BFF184AFF1347FF1A4AFB3A58C95F68886B69616160585353524645413E3D
+      37223EA60E43FF0F41FF0F40FF0E40FF0E40FF0D3FFF0C3EFF0B3EFF093EFF0C
+      39E21A2F7E2A2A2E2E2C232F2F2F313132333333343434363636363636363636
+      3636363535353535353434343333333333333131312E2E2E2C2C2C2929292626
+      26232322211E130C2695002EFF002CF1002CF0002AEF002AEE002AED0029EC00
+      29EA0028EA0028E90027E70027E70026E60026E50025E30024E20024EA0922A6
+      20201D21211F2222222222222222222222222121212121212121211F1F1F1F1F
+      1F1F1F1F1D1D1D1C1C1C1A1A1A181818151515141414111111212121A9A8A9AB
+      ABABA6A6A6A1A1A19B9B9A9695959090908A8A8A8585858181817C7B7C787777
+      7372726F6E6E6A6A6A6666666161625D5E5D5A5A5A5656565253534F4F4F4B4B
+      4C4848484545454343433F40403D3C3C3A3A3A3737373535343333323030302F
+      2E2E2C2B2B292929282827272626252525232323222222212120201F201F1F1F
+      1E1E1E1D1D1D1C1C1B1C1C1C1B1C1C1A1B1A1A1A1A1A1A1A1A1A1A1A1A191A1A
+      1919191919191919191919181818181718181818171818171717171717171617
+      1616171616161617161616161616161516151516151616151515151515151515
+      1514141414151414151414141413141413141313131313131313131213121212
+      121212121212121212111111121111111111111111111011101717171B1B1B1B
+      1B1B1C1B1B1B1B1B1B1B1B181819121212111111111111111111111110111011
+      101110101011101010101010100F10100F100F100F0F0F0F0F0F0F0F0E0F0F0E
+      0E0E0E0E0E0E0E0E0E0E0B0C0D0B0B0B0B0B0B0B0B0B0B0B0B0B0C0C1514151F
+      1F20222222252424262626252424121213070808070707070807070707070707
+      0707070607060706060607060606060606060706060606060506060606060605
+      0505060605050505050605050505050405050505050505040405050505040404
+      0404040405040404040404040403040303030303030403030403030303030303
+      0303030303030303030302030805080302023030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030323232363636373737393939
+      3B3B3B3D3D3D3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3939393B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3B3A3B3A3A3B3A3A3B
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838363636303030
+      3030303030303030303030303030303030303434343B3B3A3B3B3A3B3A3A3B3A
+      3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A39393A39393A39393A3939393939393939393939
+      3939393939393939393939393939393939393939393A3A3A3A3A393A3A393B3A
+      3A3B3A3A3C3B3B3C3B3B3C3C3C3D3D3D3E3E3E3F3F3F40404042424243434344
+      44444646464747474949494B4B4A4E4E4D4F4E4E515151545353565555595858
+      5B5B5B5D5D5D6060606363636666666969696D6D6D7070707474747777777B7B
+      7B7F7F7F8282828787868C8B8B908F8F9494949998989D9D9DA2A2A2A6A6A6AC
+      ACACB1B1B1B5B5B58F8F8F7676767676767474747272726F6F6F6A6A6A676767
+      6565656363636363636161616161616060605F5F5F5F5F5F5F5F5F5E5E5E5D5D
+      5D5C5C5C5A5A5A5959595959595858585858585757575959595C5C5B62615D66
+      65636969676D6D6D6F6F6F7070706E6E6E6C6C6C6969696565656060605B5B5B
+      5858585656565353535050504E4E4E4D4D4D4A4A4A4747474444444141413E3D
+      3B3B3C3E254DDE1D52FF1F50FF1F4FFF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A
+      4BFF194AFF1748FF1246FF1949FB3554C5525B7A5754494646462342B51044FF
+      1143FF1042FF1041FF0F40FF0E40FF0D40FF0B40FF0D3DF11832952428382926
+      1B2B2B282E2E2E30303032323234343435353536363637373736363636363636
+      36363535353535353434343333333131313030302D2D2D2A2A2A262626232323
+      211E13122370002EFC002CF2002CF1002CF0002AEF002AEE002AED0029EC0029
+      EA0028EA0028E90027E70027E70026E60026E50025E30025EF0E2287211F1420
+      201F2121212222222222222222222222222121212121212121212020201F1F1F
+      1E1E1E1C1C1C1A1A1A1818181515151414141111114D4D4DAFAFAFAAAAAAA5A5
+      A59F9F9F9A9A999494948F8F8E8A8A898484848080807B7B7B7676767272726E
+      6D6D696A696565656060605C5D5D5959595556555252524F4F4F4A4B4A484948
+      4545454242423F3F3E3C3C3C39393937373735353532323130302F2E2E2D2C2B
+      2B2A292928282827272725252423232322232220202020201F1F201F1E1F1E1D
+      1D1D1C1B1C1C1C1C1B1B1C1A1A1A1B1A1B1A1A1B1A1A1A1A1A1A1A1A1A19191A
+      1919191919191919191918181918171818171817181817171717161717161617
+      1716161616161616161616161616151516161516151515151515151515141515
+      1414141515151414141414141314141313131313131313131213131212121212
+      1212121212121112111111111111111111111111111010111716171B1C1B1C1B
+      1C1B1B1B1B1B1B1B1B1A19181913121211111111111111111011101110111110
+      1010101111101010100F100F10100F0F0F0F100F100F10100E0F0F0E0F0F0E0E
+      0E0E0E0E0E0E0E0D0E0B0C0B0B0B0B0B0B0B0B0B0B0B0C0C0B0C0B1C1C1D2020
+      202121212222222222221D1D1D07080808080707070707070707070706070707
+      0707070706070706060606070706060607060606050606060606060506050505
+      0506050605050505050505050505050505050404040505040505050404050404
+      0404040404040404030403040403040403040304030303030403030303030303
+      0303030303030302080808020203303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303636363838383939393B3B3B3D
+      3D3D3838382F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3736363B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383834343430303030
+      30303030303030303030303030303030303737373B3B3A3B3B3A3B3A3A3B3A3A
+      3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A393939393939393939393939
+      39393939393939393939393939393939393939393A3A3A3A3A393B3B3A3B3A3A
+      3C3B3B3C3B3B3D3C3C3D3D3D3D3D3D3F3F3F4040404141414343434444444646
+      464747474949494B4B4B4D4D4C4F4F4E5150505352525555555858585B5A5A5D
+      5D5D5F5F5F6262626666666969696C6C6C7070707373737777777A7A7A7E7E7E
+      8282828585858A8A8A8E8D8D9392929797979C9B9BA0A0A0A5A5A5A9A9A9AFAF
+      AFB4B4B4A3A3A37777777777777676767474747070706D6D6D68686865656564
+      64646363636262626161616161616060606060605F5F5F5E5E5E5D5D5D5C5C5C
+      5959595858585858585757575656565656565756555A5A5A59607563646B6A6A
+      69716F6776736877756B77756D7272716D6D6D6969696565655F5F5F5B5B5B57
+      57575454545151514E4E4E4C4C4C4949494646464343433E3E3E3B3A37373941
+      234FEB2052FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4B
+      FF194AFF1849FF1648FF1247FF1848FA2F4BB42547C71145FF1245FF1244FF11
+      43FF1042FF1041FF0E41FF0F3FFB1736AB23294329261B2A28232B2B2B2D2D2D
+      3030303333333434343535353636363636363737373737373737373636363636
+      363535353535353333333232323030302E2E2E2B2B2B28282824242421211B1A
+      2039022DEA002DF7002DF1002CF1002CF0002AEF002AEE002AED0029EC0029EA
+      0028EA0028E90027E70027E70026E50026E70025E7171F4F201E162020202121
+      212222222323232222222222222121212121212121212020201F1F1F1E1E1E1C
+      1C1C1A1A1A1818181515151313131111117D7D7DADADADA8A8A8A3A2A29D9D9D
+      9898989292928D8D8D8888888382837E7E7F7A79797575757070706C6C6C6868
+      686464646060605B5C5C5859585555555151514D4E4E4B4A4A47474844444441
+      41413E3E3E3C3B3B3A393A37363635353532323230302F2F2F2E2C2C2B2A2929
+      28272726252625252522232323222220202020201F201F201E1E1F1E1D1D1C1C
+      1C1C1C1C1B1B1B1A1A1B1B1A1B1B1A1A1A1A1A1A1A1A1A1A1A191A1A1A1A1919
+      1919191919191919191818191818191817181717181717171617171717171616
+      1717171716171516161516151616151616161516151515151515151415151515
+      1414141414141414141414131414131313121312131312131212121212121212
+      12111212121111111112111111111111111111111110101817171C1C1B1B1B1B
+      1B1B1B1A1B1B1B1A1B1817171111121112111111111110101110111111101010
+      1010101111111110101010100F0F10101010100F0F0F0F0E0F0F0E0E0F0D0E0E
+      0E0D0E0E0D0D0D0C0B0B0B0B0B0C0B0B0B0B0B0B0C0C0B111011201F20201F1F
+      1F1F1F1F1F1F1C1C1D1112110D0C0D0C0C0D0C0B0B0707080707070607070606
+      0606070606070607060606060606060606060606060506060605060605050605
+      0605050505050505050505050405040505050404050505050505040404040404
+      0404040404040404040304040404040403030303040303030303030303030303
+      0303020305080502020330303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303333333838383939393B3B3B3C3C3C3D3D
+      3D2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383332333030303030
+      303030303030303030303030303030303737373B3B3A3B3B3A3B3A3A3B3A3A3B
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A393A3A393A3A393A39393A39393A39393A39393939393939393939393939
+      393939393939393939393939393939393A3A3A3A3A3A3B3B3A3B3B3A3C3B3B3C
+      3B3B3D3C3C3E3D3D3D3D3D3F3F3F404040414141424242444444454545474747
+      4949494B4B4B4C4C4C4E4E4E50504F5251515554545756565A59595C5B5B5F5F
+      5F6262626464646868686B6B6B6E6E6E7272727575757979797D7D7D80808085
+      85858989888D8D8D9191919695959A9A9A9F9F9FA3A3A3A8A8A8ADADADB2B2B2
+      B3B3B37E7E7E7979797878787676767171716F6F6F6B6B6B6767676464646363
+      636363636161616161616161616060605F5F5F5E5E5E5C5C5C5B5B5B59595957
+      575755555554545453545454535256544D455DAF3564F93A63EB4365D54B67C2
+      546AB65A6DAD6170A07676757272726D6D6D6969696464645E5E5E5959595757
+      575252524F4F4F4C4C4C4949494545454141413D3D3D39383434394A2352F721
+      52FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF
+      194AFF1849FF1749FF1648FF1247FF1347FF1546FF1446FF1345FF1244FF1143
+      FF1043FF143EE025305B2B2A202B2A232C2C2C2D2D2D2F2F2F30303032323234
+      3434363636363636373737383838383838383838373737363636363636363636
+      3535353535353333333131312F2F2F2C2C2C292929262626222221201E160B27
+      A1002EFF002DF3002DF2002CF1002CF0002AEF002AEE002AED0029EC0029EA00
+      28EA0028E90027E70027E60027F00724B31D1D1C1F1E1D202020222222222222
+      2323232323232323232323232121212121212020201F1F1F1E1E1E1C1C1C1A1A
+      1A181818151515131313202020A7A7A7ACACACA7A7A7A1A1A19B9B9B96969690
+      90908B8B8B8686868182827D7D7D7978797373737070706B6B6B666667636364
+      5F5F5F5B5B5B5858585354535050504D4D4D4949494747474343434040403D3D
+      3D3B3B3B3839393636363435343232322F2F2F2E2E2D2C2D2C29292828272727
+      26252625252322222221222020202020201F20201F1F1E1D1E1D1C1C1C1C1C1C
+      1B1B1B1A1B1A1A1B1A1A1A1A1B1A1A1A1A1A1A1A1A1A1A19191A191919191919
+      1A19191919191918181818181819181818171718171717171617171717161716
+      1616171616161616161516161516151515151515161616151515151515151415
+      1414141414141414141413141313141313131213121213121212121212121211
+      121211121112111212121111111111111111111011111717171B1C1B1B1B1C1B
+      1B1B1A1B1B1B1B1A171617111211111112111111111111111110111110101111
+      11101010101010101010100F10100F0F0F0F0F0E0F0F0E0E0F0E0E0E0E0E0E0E
+      0D0E0E0E0B0C0B0B0B0C0B0B0B0B0B0B0C0C0C0C0B0C1B1A1B1E1E1E1F1F1F1D
+      1D1D1B1B1B1B1B1B1A1A1A191919181918181818171817171718161616131313
+      1313131313131010100F0F0F0F0F0F0F0F0F0A0A0A0A0A0A0A0A0A0809090506
+      0605050505050505050504050504050505050504040504050404040404040404
+      0404040404040404040404040403040304030304030303030304030303030203
+      0805080303033030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303131313737373939393A3A3A3C3C3C3D3D3D343434
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3838383B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838313131303030303030
+      3030303030303030303030303030303837373B3B3A3B3B3A3B3A3A3B3A3A3B3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A393A3A393A3A393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393A3A3A3A3A3A3B3B3B3B3B3A3B3B3A3C3B3B3D3C
+      3C3E3D3D3E3D3D3E3E3E4040404040404242424444444545454747474848484A
+      4A4A4B4B4B4E4E4E50504F5252515554545756565958585C5B5B5F5E5E616161
+      6464646666666A6A6A6D6D6D7070707474747777777B7B7B7F7F7F8383838787
+      878C8C8B9090909494949998989D9D9DA2A2A2A6A6A6ACACACB1B1B1B5B5B592
+      92927A7A7A7979797777777474747171716D6D6D6A6A6A676767646464646464
+      6262626161616161616060605E5E5E5D5D5D5B5B5B5959595757575454545252
+      5251515150504F524F47465B9F3566FF3565FF3464FF3263FF3062FF2E60FF2F
+      60FF2F60FF65729C79776F7272726D6D6D6767676262625D5D5D585858555555
+      5050504D4D4D4949494444444040403B3B3B383731313A5B2353FB2253FF2152
+      FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF19
+      4AFF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1244FF1044FF
+      183ECB312F2A302F2C3031313131313232323333333535353636363737373838
+      3839393939393939393939393938383839393938383837373736363636363635
+      35353434343232323030302D2D2D2A2A2A28282824242422201B1B2034032DE0
+      002EFD002DF3002DF2002CF1002CF0002AEF002AEE002AED0029EC0029EA0028
+      EA0028E80027ED0127E4151E451F1D151F1F1F21212122222222222223232323
+      23232424242323232323232222222020202020201E1E1E1C1C1C1A1A1A171717
+      1515151212124E4E4EAFAFAFAAAAAAA5A5A59F9F9F9999999494948F8F8F8A8A
+      8A8585858080807C7B7B7876767372726E6E6E6A6A696666666162615F5E5E5A
+      5A5A5556565354544F4F504C4C4C4949494646464343434040413D3D3D3B3B3B
+      3838383635363433333131312F2F2F2E2E2E2B2C2B2929292928282726262523
+      232423232221222121202020201F1F1F1E1D1E1D1E1E1C1D1C1C1C1D1B1B1B1B
+      1B1B1B1B1B1B1B1A1B1A1B1B1B1A1A1A1B1A1A1A1A191A1A1A1A1A191A191919
+      1919191919181918181918171818181818171817171717171717171717161617
+      1616161616161616161515151516151615151515161515151514141515141414
+      1515151415141414141313141314131213121212131213131212121211121212
+      1211111212111111111111121111111010111110101717161B1C1B1B1B1B1B1B
+      1B1B1B1B1A1B1B15151511111211111111111111111110111111111110111010
+      1110101010101010100F100F1010100F0F100E0F0F0F0E0E0E0E0E0E0E0D0E0E
+      0D0D0E0B0C0C0C0B0B0B0B0B0B0B0B0C0B0C0E0E0D1C1D1C1D1D1C1C1C1C1B1B
+      1B1B1B1B1A1A1A1A1A1A19181918181819181818181818181818181818181818
+      1818181818181818181818181818181818171717171717171717171717171717
+      1717171414141312131414140E0E0E0505040405040404040504040405040404
+      0404040403040304030404040304030303030303030303030303030308080802
+      0303303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303535353838383A3A3A3B3B3B3D3D3D3C3C3C2E2E2E2F
+      2F2F2F2F2F2F2F2F2F2F2F3232323B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939383939383939
+      3839383839383839383839383839383838383837373730303030303030303030
+      30303030303030303030303131313939393B3B3A3B3B3A3B3A3A3B3A3A3B3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      393A3A393A3A393A39393A39393A39393A393939393939393939393939393939
+      39393939393939393A3A3A3A3A3A3B3B3B3B3B3B3B3B3A3C3C3B3D3C3C3E3D3D
+      3E3D3D3F3E3E4040404040404242424343434444444747474747474949494B4B
+      4B4E4E4E4F4F4F5151515454535655555858585C5B5B5E5D5D605F5F62626266
+      66666969696C6C6C7070707373737777777B7B7B7E7E7E8282828686868A8A8A
+      8E8E8D9393929797979C9B9BA1A0A0A5A5A5A9A9A9AEAEAEB4B4B4A6A6A67B7B
+      7B7B7B7B7979797777777272726E6E6E6B6B6B68686865656564646463636362
+      62626161616060605E5E5E5D5D5D5A5A5A5757575555555252524F4F4F4D4D4D
+      4E4B4146568C3767FD3667FF3666FF3665FF3564FF3464FF3363FF3261FF2E5F
+      FF4467DB7A79767675747070706B6B6B6666666060605B5B5B5656565151514D
+      4D4D4949494444443F3F3F3A3A3A36342D2F3C6D2455FF2354FF2253FF2152FF
+      2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194A
+      FF1849FF1749FF1748FF1648FF1547FF1546FF1446FF1345FF1144FF1542EC34
+      363F3736323737373737373838383838383939393A3A3A3B3B3B3B3B3B3B3B3B
+      3C3C3C3B3B3B3B3B3B3A3A3A3939393939393838383737373636363636363434
+      343333333131312F2F2F2C2C2C292929262626232323211F16172254022EEC00
+      2EFE002DF3002DF1002CF1002CF0002AEF002AEE002AED0029EC0029EA0028F0
+      0028F110206D1D1B101E1D1E2020202121212222222424242424242323232424
+      242424242323232222222020201F1F1F1E1E1E1C1C1C19191917171714141412
+      1212848584AEAEAEA8A8A8A3A3A39D9D9D9898979392938E8D8E888888838383
+      7F7E7F7A7A7A7776767270716E6D6D6969696565656160615C5C5C5959595656
+      565252524E4E4E4B4B4C4949494545454242423F3F403C3C3C3A3A3A38383836
+      36363333323030302F2F2F2D2D2D2B2B2B292A29282928272726252424242223
+      2321212121202020201F1F201E1E1E1E1E1E1D1C1C1D1C1C1B1C1B1B1B1B1A1B
+      1B1A1B1B1B1A1A1A1B1A1A1B1A1A1A1A1A1A191919191A1A1A1A191A19191919
+      1919191919191818181817181817181717181717171716171717161716171616
+      1616161616161616161615161616151615151515151515151415151515141514
+      1414151414141514131413131313121312131312121212121212121212121211
+      11121211121111121111111111111010111011101919191C1B1B1B1B1B1B1B1B
+      1A1A1B1A1A191314131211111111111111111111111010111011111111101110
+      111010100F10100F1010100F0F0F0F0F0F0E0E0F0E0F0E0E0E0E0E0E0D0D0D0B
+      0B0D0B0C0B0B0C0B0B0B0B0C0C0C0C0C0C1717171C1B1C1C1C1B1B1B1C1B1B1C
+      1A1A1A1A191A1A191A1A191A1919191819181918191818181818181818181818
+      1818181818181818181818181818181818181718181818181817181817171719
+      18181918181919191B1B1B050505040405050504040405040405040404040404
+      0404030403030403040403040304040303040403030303030808080303033030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303131313838383939393A3A3A3C3C3C3E3E3E3333332F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F3838383B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383938383838383737373030303030303030303030
+      303030303030303030303131313939393B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A39393A39393A39393A39393939393939393939393939393939
+      393939393A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C3B3C3C3B3E3D3D3E3D3D3F
+      3E3E4140404040404242424343434444444646464747474949494B4B4B4D4D4D
+      4E4E4E5151515353525555555857575B5A5A5D5C5C605F5F6262626565656868
+      686B6B6B6E6E6E7272727575757979797D7D7D8181818585858989898D8D8D91
+      91919696959A99999E9E9EA4A3A3A8A8A8ADADADB2B2B2B6B6B68787877C7C7C
+      7B7B7B7979797575757070706C6C6C6969696767676565656363636363636161
+      615F5F5F5E5E5E5C5C5C5959595555555151514E4E4E4B4B4B4A473F45517939
+      68FA3868FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF3262FF3061FE
+      66739D7B79717374746F6F6F6969696565656060605959595353534E4E4E4949
+      494545453F3F3F3A3A3A37342A2D40822456FF2455FF2354FF2253FF2152FF21
+      52FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF
+      1849FF1749FF1748FF1648FF1547FF1546FF1446FF1245FF1343FC343C5E3C3B
+      353C3C3C3D3D3D3E3E3E3F3F3F3F3F3F40404042424241414142424241414140
+      40403E3E3E3D3D3D3B3B3B3A3A3A393939383838363636363636353535343434
+      3333333131312E2E2E2B2B2B282828252525222222221F13172254042CDD002E
+      FF002DF8002DF3002CF1002CF0002AEF002AEF002AF1002AF90228DF1120681C
+      1B131E1D1C1F1F1F202020222222242424242424252525252525242424242424
+      2424242222222121211F1F1F1D1D1D1B1B1B1919191616161313132D2D2DADAD
+      ADACACACA6A6A6A1A0A09B9B9B9595959090908C8B8B8687868382827E7E7D79
+      79797574747170706C6B6B6867666463645F5F5F5B5C5B585858545454515151
+      4E4E4E4A4B4A4848484444444242423E3F3E3C3C3C3939393737373636363333
+      333131312F2F2F2D2D2D2B2B2B2A2A2A29282827272726252424232323222221
+      20202020201F1F1F1E1E1E1D1D1D1C1D1D1D1D1C1C1B1B1C1B1B1B1C1B1A1A1A
+      1B1A191A19191A191A19191A1919191918191A191819191919191A1919191919
+      1919191918181819181719181718171718171717171717161717161617161616
+      1616161616161616161516151615151515151516151515151415141514151415
+      1514151414141413131313141313131212121212121213131212121212121112
+      1111111111111111111211111111111111111119191A1B1B1B1B1B1B1B1B1B1B
+      1B1B191918121112111211111111111111111111111111111111111110101110
+      101010101010100F0F0F0F0F100E0F0F0F0E0E0E0E0E0E0E0E0E0E0D0E0E0C0C
+      0B0B0B0B0B0C0C0B0C0B0A0B0B0D0D0D1B1C1B1C1B1B1B1B1B1B1B1B1A1A1B1A
+      1A1A1A1A1A1A191A191A1A191A19191919191919191919191919191919191919
+      1919191919191818181818181818181817181817181818181819181919181A19
+      1A1D1D1D2323230B0B0B05050505040405040404040404050404040404040404
+      0404030404040303040303030304030403040303080808030303303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303636363939393A3A3A3B3B3B3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F3333333B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393A39393A39393A39393A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838363635303030303030303030303030
+      3030303030303030303131313939393B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A
+      3A393A3A393A39393A39393A39393A3939393939393939393939393939393939
+      3A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3B3D3D3C3E3D3D3E3D3D403F
+      3F4140404141414242424444444545454747474949494B4B4B4C4C4C4E4E4E50
+      50505252525555545757565958585C5B5B5F5E5E6261616564646666666A6A6A
+      6D6D6D7070707474747777777B7B7B7F7F7F8383838787878C8C8C9090909494
+      949898989D9C9CA1A1A1A7A6A6ABABABB0B0B0B5B5B59D9D9D7E7E7E7D7D7D7A
+      7A7A7777777373736F6F6F6C6C6C686868666666656565636363626262606060
+      5E5E5E5B5B5B5757575353534E4E4E4B4A4B48453E434D683B68F23A6AFF3A68
+      FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3463FF2F60FF4467DD79
+      79777776757272726D6D6D6969696464645E5E5E5656564F4F4F4B4B4B464646
+      4040403B3B3B3734282D43922458FF2455FF2455FF2354FF2253FF2152FF2152
+      FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF18
+      49FF1749FF1748FF1648FF1547FF1546FF1446FF1145FF2F4185454136444545
+      4848484B4B4B4C4C4C4C4C4C4C4C4C4C4C4C4B4B4B4949494747474545454242
+      424040403D3D3D3B3B3B39393939393938383836363636363635353534343432
+      32323030302D2D2D2B2B2B282828252525222222211F161C1F300E2795032CE2
+      002DF8002DFF002DFF002DFE002BF50229E00A249D171D391E1B111E1E1D1F20
+      2021212123232324242424242425252525252526262625252525252524242423
+      23232121211F1F1F1D1D1D1B1B1B181818161616131313686868B0B0B0AAAAA9
+      A4A4A49E9E9E9999999393938E8E8E8A8A8A8685858181817C7C7B7778777373
+      736F6F6F6A6A6A6766666362625F5F5F5B5A5B5757565454545050504D4D4C49
+      4A4A4746474343434141413D3E3E3C3C3B3838393636363535353333332F3030
+      2E2E2E2D2D2D2A2A2A2929292828272727262524242424232221212120202120
+      2020201F1F1F1E1D1D1D1D1D1D1D1C1C1A1B1B1B1B1A1A1A1B1A1A1A1A1A1A1A
+      1A19191A1A191A19191919191818171818181818171818181718181818181817
+      1818171818181918181918181817171817171717171717161617161717161616
+      1716161616151616151616151516161515151515151515151415151514141414
+      1414141414141314141314131213131312121212121212121212111212111112
+      1112111112111211111110111111101213131A1A1A1B1C1B1B1B1C1B1A1B1B1B
+      1B17161712111111111111121111111111111111101110101010111010101010
+      101010100F0F0F0F0F0F0F0F0F0E0F0E0F0E0E0F0E0E0F0E0E0E0D0D0D0C0C0C
+      0C0B0C0B0B0B0B0B0B0B0B0B1111121313141313141616161817171817171717
+      171A1A1A1A1A1A1A191A191A1A1A191A19191919191919191919191919191919
+      191919191919191919191919191819191919191919191919191A1C1C1C202020
+      2726261A1A1A0504050505040405040405040404040404040405040404040404
+      0404040404030404040403030303030408080A03030330303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303232323838383939393B3B3B3C3C3C3E3E3E3232322F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F3A39393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A
+      3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A
+      39393A39393A39393A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383835353530303030303030303030303030
+      30303030303030303030303737373B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A
+      393A3A393A39393A39393A39393A39393939393939393939393939393A3A3A3A
+      3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3C3E3E3D3E3D3D403F3F414040
+      4241414242424444444545454747474848484A4A4A4B4B4B4E4E4E5050505252
+      525555555757565959585C5B5B5E5D5D6160606463636766666969696C6C6C70
+      70707373737777777A7A7A7E7E7E8282828585858989898E8E8E939393979797
+      9B9B9BA09F9FA4A4A4AAA9A9AFAEAEB3B3B3B1B1B18282827E7E7E7D7D7D7A7A
+      7A7575757171716E6E6E6969696767676565656464646262625F5F5F5D5D5D59
+      59595555555050504B4B4B47453E42495C3D66E83B6CFF3B69FF3A69FF3A69FF
+      3968FF3867FF3767FF3666FF3665FF3564FF3464FF3362FF3061FF6272A57D7A
+      727676767373736E6E6E6969696363635B5B5B5252524D4D4D4848484242423D
+      3D3C38352C2D48A42559FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF
+      2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849
+      FF1749FF1748FF1648FF1547FF1546FF1045FF2B47AF4F4D4251515054545457
+      57575858585757575656565555555353535151514D4D4D4A4A4A464646434343
+      4040403D3D3D3A3A3A3939393939393838383737373535353535353333333131
+      312F2F2F2C2C2C2A2A2A27272725252524242421201B201E151B1F2E14225F0F
+      25830E24890E2484122164191D321D1C141E1D161F1F1F212121222222232323
+      2424242525252525252626262626262626262626262525252424242323232121
+      211F1F1F1D1D1D1A1A1A1818181515151C1C1C9E9E9EADADADA8A8A8A2A1A29C
+      9C9C9797969292928E8E8E8888888384837F7E7E7B7A7A7676757172716E6D6C
+      6969696565656261615E5D5D5959595757575353534F4F4F4C4C4C4949494746
+      464344434141413E3E3E3B3C3C3839393636363434343232323030302F2F2F2D
+      2D2C2B2A2A2929292828282626262525242425242222212020202020201F2020
+      1F1E1E1D1D1C1D1C1D1C1C1C1B1A1B1B1A1A1A1A1B1A1B1A1A1A1A1A1A1A1A19
+      1A1A191919191919191919181817181818181818171818171717171717171717
+      1717171717181718191818191717181717171616171617161716161716161616
+      1615151516151515151615151515161515151515151514151415141414151414
+      1514141414131414131413131312121212121212121212121211121111111111
+      11111111111112111111111010111415151B1B1B1C1B1B1C1B1B1B1B1B1B1B1B
+      1414141112121112111111111111111111111110111011101111101110101010
+      10100F0F100E0F0F0E0F0F0E0E0E0E0E0E0E0F0E0E0E0E0E0E0C0C0B0B0C0C0B
+      0C0B0B0B0B0C0B0B0B0B0B0B0B0B0A0B0A0B0A0B0B0B0B0A0A0A0A0A0A0A0A0A
+      0A0A090A0A090C0B0C0E0E0E0E0D0E0D0D0E1111111212121111121112111616
+      151515151515151616161919191919181A1A191B1B1A1E1E1E24242528292828
+      2828050505050505050505040505050404040404040405040404040404040403
+      0304040403040303040403030808080304033030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3636363939393A3A3A3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F3333333B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B
+      3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39
+      393A39393A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383535353030303030303030303030303030
+      303030303030303030303737373B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A39
+      3A3A393A39393A39393A39393A39393939393939393939393A3A3A3A3A3A3A3A
+      3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3D3E3E3D3F3E3E41404041404043
+      42424343434444444646464747474949494B4B4B4D4D4D4F4F4F515151535353
+      5555555858575B5B5A5D5C5C605F5F6262626665656968686B6B6B6E6E6E7272
+      727575757979797C7C7C8080808585858989898C8C8C9090909595959A9A999E
+      9E9EA3A2A2A8A7A7ACACACB1B1B1B5B5B59696968080807F7F7F7D7D7D787878
+      7474746F6F6F6C6C6C6868686666666565656262625F5F5F5C5C5C5858585353
+      534E4E4E4847414347523E65DC3D6EFF3C6BFF3B6BFF3B6AFF3A69FF3A69FF39
+      68FF3867FF3767FF3666FF3665FF3564FF3464FF3061FF4267E37B7B7B7B7A78
+      7777777373736E6E6E6868686060605656564E4E4E4949494444443E3E3D3939
+      332D4CB82659FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF20
+      51FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF
+      1749FF1748FF1648FF1547FF1345FF2048DD5555585B5A585D5D5D6060606161
+      616060605F5F5F5C5C5C5A5A5A5656565353534F4F4F4A4A4A47474743434340
+      40403D3D3D3A3A3A393939383838373737373737353535343434333333313131
+      2F2F2F2D2D2D2A2A2A28282826262624242422222121211D211F15201D10201D
+      0F201D0F201E131F1F1A1F1F1E20202022222222222224242424242425252526
+      26262727272626262727272727272626262525252424242323232121211F1F1F
+      1D1D1D1A1A1A171717141414515151B0B0B0ABABABA5A5A59F9F9F9A9A9A9695
+      959090908B8B8B8787878282827E7E7E7A79797474746F706F6D6D6C68686864
+      6464605F5F5D5C5C5959595554555251514E4E4E4B4B4B484848454444424242
+      3F3F3F3D3D3D3B3B3B3838383636363334333131312F30302E2E2E2C2B2C2A2A
+      2A2929292828282626262525242223222121222020202020202020201E1F1F1D
+      1D1D1D1C1D1D1C1C1B1B1B1B1A1B1A1A1B1A1B1A1A1A1A1A1B1A1A1A1A1A1A19
+      1A1A1A19191A1919191918181818181718171717171817171717181717171716
+      1617161717161717161717171718171717161717161717171716171616161716
+      1616151616161616161515151515151515151515141514141515151414141414
+      1414141413141313141312131212121312121212121212121212121211121112
+      111112121111111110101011111718181C1B1A1B1B1B1B1C1B1B1B1B1A1A1A13
+      1112111111111111111211111111101111111010111110101010101010100F10
+      100F0F100F0F0F0F0F0E0E0F0F0E0F0E0E0F0E0E0E0D0D0C0C0C0C0C0C0C0B0B
+      0B0B0B0B0C0B0B0B0B0B0A0B0B0B0A0A0B0B0A0B0A0A0A0A0A0A0B0A0A0A0A09
+      090A0A0A0A0A0A090A09090909090A090A090909080909090909090908080908
+      0809080809080808080808080808091E1D1E2122212626272B2A2B2F2F300D0D
+      0D05050505040505040504040505040405050404050404040404040404040403
+      0404030404040303080A0A030403303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303033333338
+      38383A3A3A3B3B3B3D3D3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3838383B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A
+      3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A3939
+      3A39393A39393939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838353535303030303030303030303030303030
+      3030303030303030303535353B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A39393A39393A39393A39393939393939393A3A3A3A3A3A3A3A3A3B3B3B
+      3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3D3F3F3E4140404140404342424443
+      434444444646464747474949494B4B4B4C4C4C4E4E4E50505052525255555557
+      57575959585C5C5B5F5E5E6261616564646766666A69696D6D6D707070747474
+      7777777B7B7B7E7E7E8282828787878B8B8B8F8F8F9393939797979C9C9BA1A1
+      A0A5A5A5AAA9A9AFAEAEB3B3B3ACACAC8282828181817F7F7F7B7B7B77777772
+      72726E6E6E6A6A6A6868686565656262625F5F5F5B5B5B5757575151514B4B48
+      4549544063CF3E70FF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968
+      FF3867FF3767FF3666FF3665FF3564FF3463FF3162FF6372A67F7C747A7A7A76
+      76767272726B6B6B6262625959595151514A4A4A45454540403E3C3B3B2D50CB
+      2759FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051
+      FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF17
+      49FF1748FF1648FF1447FF1647FB51587366625367655E696762696864686764
+      66656364636160605E5C5B5A5858585353534F4F4F4A4A4A4545454242423E3E
+      3E3C3C3C3A3A3A3939393838383838383636363535353434343333333232322F
+      2F2F2D2D2D2B2B2B292929272727262626242424232323222222222222212121
+      2121212222222222222323232424242525252626262727272727272828282828
+      282828282727272727272727272626262424242323232121211F1F1F1C1C1C19
+      1919161616161616909090ADADADA8A8A8A2A2A29D9D9D9898989392938E8E8D
+      898A898585858181817C7C7C777777737373706F6F6B6B6A686867636362605F
+      5F5B5A5A5857575554545150504E4D4D4A4A4A4747474444444242423F3E3F3C
+      3C3C3A3A3A3637373636363434333030303030302E2E2D2B2C2B2A2A2B292929
+      2828282625252424232323222222212020202120202020201F1E1F1D1E1E1D1D
+      1D1E1C1C1C1B1B1B1B1B1B1C1B1C1C1C1B1B1C1B1B1B1C1B1B1A1A1A1B1A1A1A
+      1A1A191919191919191818171818181817171717171717171817171717171717
+      1616171615171616171616171717171717171717171617171716171616161615
+      1616151515151615161515161515151515151515151515141514141415141414
+      1414141314141314131313121212121212121212121212121112121212121112
+      1111111111111111101211111A19191C1B1A1B1B1B1B1B1B1B1B1B1616161112
+      11121112111112111111111111111011111110101010101010101010100F0F10
+      0F0F0F0F0F0F0F0F0E0E0E0E0F0E0E0E0E0E0E0E0B0C0C0C0B0B0C0B0C0B0C0B
+      0B0B0C0B0B0B0B0B0B0A0B0B0A0A0B0A0B0A0A0B0B0A0B0A0A0A0A0A0A0A0A0A
+      0A0A0A090A0909090A0909090909090909090909090809090909080909080908
+      08080808080808080909091919192323232727272A2B2A2F302F1D1D1D050506
+      0505050505050405050405040404050405040405040404040404040304040404
+      040303040A0A0803030430303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303737373939
+      393A3A3A3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3232323B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A
+      3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383835353530303030303030303030303030303030
+      30303030303030303434343A3A3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393939393939393A3A3A3A3A3A3B3B3B3B3B3B3B
+      3B3B3C3C3C3C3C3C3E3E3E3E3E3E3F3F3E40403F414040424141434242454444
+      4545454747474848484A4A4A4B4B4B4E4E4E5050505252525555555757575959
+      595C5C5B5E5E5D605F5F6362626666666969696D6C6C6F6F6F72727276767679
+      79797E7E7E8181818585858989898D8D8D9191919696969A9A9A9E9E9EA3A3A2
+      A8A7A7ACACACB1B1B1B6B5B59595958383838181817D7D7D7A7A7A7575757171
+      716D6D6D6969696666666363636060605B5B5B5656565151514A484043538340
+      72FF3F6FFF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF
+      3867FF3767FF3666FF3665FF3564FF3162FF4368E27A7B7A7C7B797878787474
+      746E6E6E6666665C5C5C5352524E4D4C4847454441383F3E392C54DE2859FF28
+      58FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF
+      1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749
+      FF1748FF1648FF1346FF3350BC4E5B89535E885A628161657763667064666C63
+      6469626262605F5C5B5B5A5656565151514C4C4C4747474242423F3F3F3D3D3D
+      3A3A3A3A3A3A3838383838383838383636363535353434343333333131312F2F
+      2F2E2E2E2D2D2D2A2A2A29292928282826262625252525252525252525252525
+      2525262626262626262626282828282828282828292929292929292929292929
+      2929292828282727272626262424242323232020201E1E1E1C1C1C1919191616
+      16494949B0B0B0ABABABA5A5A4A09FA09A9A9A9595959090908C8C8C87878883
+      83847F7F7F797A797576767272726D6D6D6969696565646262615E5E5D5B5959
+      5756565353534F4F4E4D4D4C4A49494747474443444241423E3F3E3D3C3C3939
+      39363636353535323232303130302F2F2D2D2D2B2B2A292A2A29292827262625
+      25252424242323232120212020212020201F1F1F1F1F1F1E1E1D1E1E1E1D1E1E
+      1D1D1D1E1E1D1E1D1D1E1D1D1D1C1D1D1C1C1D1D1C1D1C1C1D1C1C1C1C1B1C1B
+      1C1B1C1C1C1B1B1A1A1A19191919191818171717181717171717171717171617
+      1716161516151516161516161616161717171716161616161617161616161616
+      1615151616151616151515161515151415151514151415141514141414141414
+      1414131414131413121313121212131312121211121112121212111112121211
+      12121111111111111313131C1B1B1B1B1A1B1B1B1B1B1B1B1B1B131213111111
+      121112111112111111111111111111101111101110111010100F0F100F0F0F0F
+      0F0F0F0E0E0F0F0F0F0E0E0E0E0E0E0E0D0D0D0B0C0C0C0C0C0C0B0B0B0B0C0B
+      0B0B0C0B0B0B0B0B0B0B0B0A0B0A0A0A0A0A0B0B0B0A0A0A0A0B0A0A0A090A0A
+      09090A0A0A09090A0A090A0A0A09090909090809080909090809090809080809
+      090908080909091313132121212526262A2A2A2F2E2E2B2B2C05050505050504
+      0505050405050505040404050404040404040404040404040404040403040404
+      0A080A0403043030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303333333939393A3A3A
+      3B3B3B3D3D3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3838383B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3B3A3B3A3A3B3A3A3B
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A39
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383535353030303030303030303030303030303030
+      303030303030303232323939393B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A39
+      3A39393A39393A39393A39393939393A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C
+      3C3C3C3C3D3D3D3E3E3E3E3E3E40403F41414041404043424245444445444447
+      47474747474949494B4B4B4E4E4E4F4F4F5151515353535555555858585A5A5A
+      5D5D5C5F5F5F6262626564646867676C6B6B6E6D6D7171717474747878787B7B
+      7B7F7F7F8383838787878C8C8C9090909393939898989D9D9DA1A1A1A5A5A5AA
+      A9A9AFAEAEB3B3B3ADADAD8585858484848181817D7D7D7878787474746F6F6F
+      6B6B6B6767676464646060605C5C5C5656565151514A49484343444062CB4072
+      FF406EFF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF38
+      67FF3767FF3666FF3665FF3464FF3162FF6373A57E7B727A797877767471706D
+      6A6964615F5657544A504F4C494A513F4A6E354EA22A59F7295AFF2958FF2858
+      FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F
+      50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF
+      1748FF1547FF1447FF1446FF1546FD1546FA1645F71745F51D48E81F48E32449
+      D6314EB95A5A5A5656545151514C4C4C4747474343434040403D3D3D3C3C3C3A
+      3A3A393939383838383838373737363636353535343434333333323232313131
+      2F2F2F2E2E2E2C2C2C2A2A2A2A2A2A2929292828282828282828282929292828
+      282929292929292A2A2A2A2A2A2A2A2A2A2A2A2929292A2A2A2A2A2A29292928
+      28282727272626262424242222222020201D1D1D1A1A1A181818181818909090
+      ADADADA8A8A7A2A2A29D9D9D9999999393938F8F8E8A8A8A8686868181817C7C
+      7C7878787373747070706C6C6C68686864646460605F5D5D5D59595855545453
+      52524F4E4E4C4C4C4848484645454242424040403E3E3E3C3C3B3A393A363636
+      3434343132323130312E2E2E2E2D2D2B2B2B2929292928282826262524252424
+      2422222220202121202020212121202020201F20202020201F1F1E1D1E1E1E1E
+      1E1D1E1E1D1E1D1D1E1D1D1D1C1C1D1D1C1D1C1C1D1C1C1D1C1B1C1C1C1C1B1B
+      1B1C1C1B1B1B1B1B1B1A1A1B1B1A1A19191A1817181717171717161717171716
+      1716161615161615151516151616171717161617161616161616161616161616
+      1516161615161516151515151515141515151515141514151514141414141414
+      1413141413141313131312121212121212121212121111121112121211111211
+      111111111111111817171C1A1A1C1B1A1B1B1B1B1B1C19191812121212121111
+      1111111211111111111111111111111111101010101010100F0F100F0F0F0F0E
+      0E0F0F0E0E0F0E0E0E0E0E0F0E0E0E0D0D0C0D0C0D0C0C0C0B0C0D0B0B0C0C0B
+      0C0B0B0C0B0B0B0B0B0A0A0B0B0A0B0B0A0B0B0A0A0B0A0A0A0A0A0A090A0A0A
+      090A0A09090A0909090A09090909090909080909080808090909080909090909
+      090A090D0C0C2020202525252928282D2E2D3031300B0B0B0505050505050504
+      04040505050505040405050504050404050404040404040404040404080A0A04
+      0404303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303737373939393A3A3A3C
+      3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A393A3A393A3A393A3A393A39393A39393A39393A39393A3939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838353535303030303030303030303030303030303030
+      3030303030303131313837373B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A
+      39393A39393A39393A39393A3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C
+      3D3D3D3E3E3E3E3E3E3F3F3F4141404141404342424443434544444746464747
+      474949494B4B4B4C4C4C4E4E4E5050505252525555555757575959595C5C5C5F
+      5F5E6161606463636766666969696D6D6D7070707373737777777A7A7A7E7E7E
+      8282828585858989898E8E8E9292929797979A9A9A9F9F9FA4A4A3A8A8A8ACAC
+      ACB1B1B1B6B5B59696968585858383838080807B7B7B7676767272726D6D6D69
+      69696565656161615D5D5D5757575151514A4B4B44423D3E455A406DF24071FF
+      406EFF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867
+      FF3767FF3666FF3665FF3263FF4368E27878787878757374786C6F795F678550
+      6096425BAD3959C6315BEA2C5CFE2A5CFF2A5BFF2A5AFF2959FF2958FF2858FF
+      2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50
+      FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF17
+      48FF1547FF1447FF1446FF1345FF1144FF1043FF0F42FF0D41FF0C3FFF0C3FFF
+      42508757544A4F4F4F4B4B4B4848484343434040403D3D3D3C3C3C3B3B3B3A3A
+      3A38383838383838383838383836363635353534343434343433333331313130
+      30302F2F2F2E2E2E2D2D2D2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2B2B2B2B2B2B
+      2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2828282727
+      272626262424242222221F1F1F1D1D1D1A1A1A171717484848B0B0B0ABABABA5
+      A5A5A1A0A19B9B9B9696969191918E8E8E89898985858580807F7B7B7B777777
+      7272726E6E6E6B6B6A6767666363635F5F5F5B5A5A5858585554545150504E4E
+      4E4B4A494847474544444242423F3F3F3D3D3D3B3B3B38373836363634343431
+      32323030302E2E2F2C2C2C2B2B2B292929292828262625262425242323222223
+      22222222222223222221222121202021202020201F1F1F1E1F1E1E1E1E1D1F1E
+      1D1E1D1D1E1D1D1D1D1D1D1D1D1D1C1D1D1C1C1D1C1C1C1C1C1C1C1C1B1C1C1B
+      1B1B1B1B1B1B1B1B1B1A1B1A1A1B1A1B1A191A19181818171617171617171717
+      1615161515161515151515151616161716161616161616161616161516161616
+      1616161515161615161515151515151514151515151415141514151414141414
+      1314141314131313131212121212121212111212121211111211121111111111
+      1111111211121B1B1B1B1B1A1C1B1A1C1B1B1B1B1B1414141212111212121112
+      1112111111111110101111101110101111101010100F100F0F0F0F0F0F0F0E0F
+      0E0F0F0F0E0E0F0E0F0F0E0E0E0E0E0E0E0E0D0E0E0E0E0E0D0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0B0C0C0B0C0C0C0B0C0B0B0B0B0C0C0B0B0B0A0B0B0A0A
+      0A0A0A0A090A0A09090A0909090909090908090909090809080808080808080A
+      0A0A1B1B1B2322232828282C2C2D303030181818050505050605050505050505
+      0505050505050405040405040504040405040404040304040A0A0A0304043030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303333333939393A3A3A3B3B3B3D3D
+      3D3E3E3E3232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3736363B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A393A3A393A3A393A39393A39393A39393A39393A393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383837363630303030303030303030303030303030303030
+      30303030303030303535353B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39
+      393A39393A39393B3A3A3A3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E
+      3E3E3E3E3E3F3F3F414141414140424241434242454444464545484747484848
+      4A4A4A4B4B4B4E4E4E5050505151515454545656565858585B5B5B5E5E5E6060
+      5F6262626665656968686C6B6B6F6E6E7372727575757979797C7C7C80808084
+      84848888888C8C8C9090909494949999999D9D9DA1A1A1A6A6A6AAAAA9AFAEAE
+      B3B3B3ADADAD8787878686868383837F7F7F7979797575757171716B6B6B6767
+      676262625E5E5E5959595353534C4C4C4545453F3C333D4F854171FF4070FF40
+      6FFF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF
+      3767FF3666FF3665FF3464FF4769D84768D73D65E73662F63261FC2E60FF2C60
+      FF2D5FFF2D5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF27
+      58FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF
+      1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748
+      FF1648FF1547FF1546FF1446FF1345FF1244FF1143FF1042FF0D40FF1C44DD4D
+      4D504C4C484848484545454343434040403D3D3D3C3C3C3C3C3C3A3A3A393939
+      3838383838383838383838383636363636363535353434343434343232323131
+      313131313030302E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A292929272727262626
+      2424242121211E1E1E1C1C1C191919191919929192ADAEADA8A8A8A2A2A29E9E
+      9E9999999394939090908B8B8C8787878181827E7E7D7A797A7575757171716D
+      6D6D6868696565656161615D5D5D5A595A56575653535350504F4E4D4D4A4949
+      4847464543444241413F3E3E3D3D3D3A393A373737353635333333313131302F
+      302F2F2F2C2C2B2B2A2A29292A29292926272625252524252425242323232423
+      232323232321212120212121202021201F1F1F1E1E1E1E1F1E1D1F1E1E1F1E1D
+      1E1D1D1E1D1D1D1D1D1D1C1C1D1D1D1D1C1C1C1C1C1C1C1C1C1C1B1B1C1C1C1B
+      1C1B1B1B1B1B1B1A1B1B1B1B1B1A1B1A1A1A1A1A1A1A18181817171716161616
+      1616151616151515151515161516171617171616161616161616151616151516
+      1515161515161516151515151515151515141414141414141414141414141413
+      1414131413121313121213131212121212121212121112111211111111111111
+      11111615151C1B1B1B1A1B1C1B1A1B1C1B191918121211121212121111111211
+      111212111111111111111111111010100F10100F0F0F0F0F0F0F0F0F0F0F0E0E
+      0E0F0F0F0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0D0E0D0D0D0D
+      0D0D0D0D0D0C0D0D0C0C0D0C0D0C0C0B0C0C0C0C0C0C0C0B0B0C0B0A0B0A0B0A
+      0A0B0A0A0A0B0B0A0A0A0A0A0A0A0A080909080908090808090908090A0A1414
+      142222222627272A2B2A30303025252405060605050505060505050505050505
+      05050505040404040404040504040404050404050A0A0A040404303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303838383939393A3A3A3C3C3C3D3D3D
+      3C3C3C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F303A3A3A3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A39
+      3A3A393A3A393A3A393A39393A39393A39393A39393A39393939393939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383736363131313030303030303030303030303030303030
+      303030303030303232323939393B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3939
+      3A39393B3A3A3B3A3A3A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3E3E3E3E3E
+      3E3E3E3E4040404141414242414343424544444544444847474847474949494B
+      4B4B4D4D4D4F4F4F5151515353535555555858585A5A5A5C5C5C5F5F5F626261
+      6565646766666A69696E6D6D7070707474747777777B7B7B7E7E7E8282828585
+      858989898E8E8E9393939797979A9A9A9F9F9FA4A4A4A8A8A7ACACACB1B1B1B6
+      B5B59A9A9A8787878686868282827D7D7D7979797373736E6E6E696969656565
+      6060605B5B5B5555554F4F4F4848484241403C3A363F5BB34173FF406FFF406F
+      FF3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF37
+      67FF3666FF3565FF3263FF3163FF3162FF3161FF3161FF3161FF3060FF2F5FFF
+      2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758
+      FF2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F
+      50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF
+      1648FF1547FF1546FF1446FF1345FF1244FF1143FF1043FF0D41FF2D439C4745
+      3D4344434242424040403F3F3F3D3D3D3C3C3C3C3C3C3B3B3B3A3A3A3A3A3A38
+      3838383838383838383838373737363636353535343434343434333333323232
+      3131313131313030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D
+      2D2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2A2A2A29292927272726262623232320
+      20201E1E1E1B1B1B181818525252B0B0B0ABABABA5A5A5A0A0A09B9B9B969696
+      9191918E8E8E8A8A8A85858580807F7B7B7B7877787272726F6F6F6B6B6B6767
+      676363636060615C5C5C58585856565653525250504F4C4C4C49484846464644
+      43434141403E3E3D3D3C3D3939393737373435353232323232312F2F2F2E2E2E
+      2B2B2C2A2B2A2929292828282626262726262526252423242423242323232222
+      222222212121202121202020201F1F1E1F1E1E1F1E1E1E1E1E1E1E1D1E1D1E1E
+      1D1D1D1D1D1D1C1C1D1D1C1D1C1C1D1C1C1C1C1C1B1C1C1C1C1B1C1B1B1B1C1B
+      1B1B1B1B1B1B1A1B1A1B1A1B1B1A1B1A1A1A1A1A1A1919191616171716161715
+      1616151615151515151515151417161616161616171616161616151516151616
+      1616151515151515151515141515151515141414141414141414131414141314
+      1413141312131213121312121212121212121212121111121111111111111111
+      111A1A1A1C1B1B1B1B1B1B1B1A1B1B1B15151512121211121212121111111111
+      1111111111111111111010111010100F0F10100F0F100F0F0F0F0F0F0F0F0E0E
+      0E0E0E0F0E0E0E0E0F0E0E0E0E0E0E0E0E0E0D0E0D0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0D0C0D0D0D0D0C0D0D0C0C0C0B0C0C0B0C0C0B0C0B0B0B0B0B0B0B0B0A0A
+      0A0A0A0B0B0A0B0A0A0A0A09090A080909090908090909090A09100F0F212121
+      2626262B2B2B2F2F2E3232320605050506050505060505050505050505050505
+      050404050404040404040504040404040A0A0A04040430303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303333333939393A3A3A3B3B3B3D3D3D3E3E3E34
+      34342F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3535353B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A
+      3A393A3A393A39393A39393A39393A39393A3939393939393939393939393939
+      3939393939393939393939393939393939393939393939393939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383737323232303030303030303030303030303030303030
+      3030303030303131313636363B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A39393B
+      3A3A3B3A3A3B3A3A3B3B3B3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E
+      4040404141414141414343424444434544444746464847474A49494B4B4B4C4C
+      4C4E4E4E5050505252525555555757575959595C5C5C5E5E5E60606063636266
+      66666969696C6B6B706F6F7372727675757979797C7C7C808080848484888888
+      8C8C8C9090909494949999999D9D9DA1A1A1A5A5A5AAAAA9AFAFAEB3B3B3B1B1
+      B18C8B8B8888888585858181817C7C7C7676767171716C6C6C6666666262625D
+      5D5D5858585252524B4B4B4545453F3E3B3C3E444066D84172FF406FFF406FFF
+      3F6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767
+      FF3666FF3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F
+      5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF
+      2657FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50
+      FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF16
+      48FF1547FF1546FF1446FF1345FF1244FF1143FF0F42FF1141F7383F5A403F3A
+      3F3F3F3D3D3D3E3E3E3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3A3A3A3939393838
+      3838383838383837373736363636363636363635353534343434343433333333
+      33333232323232323131313030303030303030302F2F2F2F2F2F2E2E2E2E2E2E
+      2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A2929292727272525252222222020201D1D
+      1D1A1A1A2323239D9D9DAEAEAEA8A8A7A2A3A29D9D9D9999999494949090908C
+      8C8C8787888282827E7E7E7A7A7A7676767171716D6D6E696969666666626262
+      5E5D5D5B5B5C5858585453545150514E4E4E4B4B4B4848484645454342424040
+      403D3D3D3B3A3A3938383737363535353232323130302F2F2F2D2D2D2B2C2C29
+      292A29292A292829272727272727252525242424232324242323222222222222
+      2121212021202120201F1F1E1F1F1F1D1D1D1C1B1C1C1B1B1B1B1B1A191A1919
+      19191A1A1B1A1A1B1A1B1A1B1B1B1B1B1C1C1C1B1C1C1B1B1B1C1B1C1B1B1B1B
+      1B1B1B1B1B1B1B1A1B1B1B1A1B1B1B1B1A1A1A1A1A1A1A181818171717161616
+      1515161515151515151515151616161616161616161616161516161616151516
+      1615151515161515151515151515151414141414141515141414141414131414
+      1313131213121313121212121212111212121211111112111212111111141414
+      1B1B1A1B1B1B1C1A1B1B1B1A1919191212121112121211121211111111121211
+      12111111111110111010110F0F100F0F0F10100F0F0F0F0F0F0F0F0F0F0F0F0F
+      0E0F0E0E0F0E0E0E0E0E0E0E0E0E0E0E0E0E0D0E0E0D0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0C0D0D0B0D0C0B0C0C0B0C0B0B0B0B0B0B0A0B0B0B0B0B0B0A
+      0A0B0B0A0A0B0A0A0A0A0909090809090909090A09090A0B0B1F1E1E25252529
+      29292E2E2E313232101110060605060605050605050505050505050505050504
+      0405050505050404050405040A0A0A0404043030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303737373939393A3A3A3C3C3C3D3D3D3D3D3D2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3939393B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A
+      393A39393A39393A39393A39393A39393A393939393836363634343431313135
+      3535393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      3838383838383838383833333330303030303030303030303030303030303030
+      30303030303030303333333939383B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393B3A3A3B3A
+      3A3B3A3A3B3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F41
+      41414141414242424343424545444645454847474948484B4A4A4B4B4B4E4E4E
+      4F4F4F5151515353535555555858585A5A5A5D5D5D5F5F5F6262626565646868
+      676B6A6A6E6D6D7170707474747777777B7B7B7E7E7E8282828686868989898E
+      8E8E9292929797979A9A9A9E9E9EA3A3A3A8A8A8ACACACB1B1B1B6B5B5A2A2A2
+      8989898787878484848080807A7A7A7575756F6F6F6A6A6A6565656060605B5B
+      5B5656564F4F4F4949494344443E3C363C435A416CEC4172FF406FFF406FFF3F
+      6EFF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF
+      3666FF3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5F
+      FF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF26
+      57FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF
+      1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1648
+      FF1547FF1546FF1446FF1345FF1244FF1043FF1741E1393C473E3D3A3D3D3D3D
+      3D3D3D3D3D3D3D3D3D3D3D3D3D3D3C3C3C3B3B3B3B3B3B3B3B3B3A3A3A393939
+      3838383939393838383636363636363636363535353535353434343333333333
+      333333333232323232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D
+      2D2D2C2C2C2B2B2B2A2A2A2828282727272424242222221F1F1F1C1C1C1A1A1A
+      696969B1B0B0ABABABA5A5A5A0A0A09B9B9B9696969191918E8E8E8989898585
+      858080807D7C7C787878747474706F706B6B6B6767676464646160605D5D5D59
+      59595657575353535050504D4D4D4A4949484747444443414141403F3F3D3C3D
+      3C3A3A3837383736363434343232323130312F2F302D2D2C2B2B2B2A2A292B2B
+      2A2929292727272626262525252424232424242423232322222121222121211F
+      1E1F1D1D1C1A1A1A191919191919191919191818191918191918191818181818
+      1818181718171717171817171717171818181919181B1B1A1C1B1B1C1C1B1B1B
+      1B1B1A1B1B1B1B1A1B1A1A1A1A1A1A1A1A1A1A1A1A1919191916161616151615
+      1616151515151515151515171616161616161617161616151616161616161515
+      1615151515151515151514151515141415151514141414151414141413141413
+      141313131313121212121212121112121211121111111111111111111919191B
+      1A1B1B1B1B1B1A1A1B1B1B141414121212121212111111121212111111121111
+      11111111101010101010100F100F0F100F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0E
+      0F0F0F0F0F0E0E0E0E0E0E0E0E0E0D0D0E0E0D0E0D0D0D0D0E0D0D0D0D0D0D0D
+      0C0D0D0D0D0C0B0D0C0B0C0C0C0C0B0B0C0B0B0B0B0B0B0A0B0B0B0B0B0B0B0B
+      0A0A0B0B0B0A090909090909090909090809090A0A1818192323232828282D2D
+      2D3131311D1D1D06050505050605060505050505050505050504050405050504
+      05050504040405050A0A0A040404303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303232323939393A3A3A3B3B3B3D3D3D3E3E3E3736372F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3232323B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B
+      3B3B3B3A3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393A3A39
+      3A39393737373535353232323030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3535
+      3539393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383535353030313030303030303030303030303030303030
+      303030303030303030303635353A3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393A3A393B3A3A3B3A3A
+      3B3A3A3C3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F4040404141
+      414242424343434545444545444847474847474A49494C4B4B4D4D4D4E4E4E50
+      50505252525555555757575959595C5C5C5E5E5E616161636363666666696969
+      6D6C6C706F6F7372727675757A79797C7C7C8080808484848888888C8C8C9090
+      909494949898989C9C9CA1A1A1A5A5A5AAAAAAAEAEADB2B2B2B4B4B49393938A
+      8A8A8787878383837F7F7F7979797373736E6E6E6868686363635E5E5E595959
+      5454544E4E4E4848484243433E3B333E4A714270F94171FF406FFF406FFF3F6E
+      FF3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF36
+      66FF3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF
+      2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657
+      FF2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E
+      4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1648FF
+      1547FF1546FF1446FF1345FF1044FF283E8F3D3A2F3C3C3C3D3D3D3D3D3D3D3D
+      3D3D3D3D3D3D3D3E3E3E3D3D3D3D3D3D3C3C3C3C3C3C3C3C3C3B3B3B3A3A3A39
+      3939393939383838373737363636363636353535353535343434333333333333
+      3333333232323232323030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2C2C
+      2C2B2B2B2A2A2A2828282626262424242121211E1E1E1B1B1B363636ADADACAE
+      ADADA7A7A7A3A2A29E9D9D989998939393908F8F8C8C8C8888888283837E7E7E
+      7A7A7A7676767171716E6E6D6A696A6666666262625F5F5F5C5C5C5858585455
+      545252524E4E4E4C4C4C4849494646464343434141403E3D3D3D3C3C3B3A3A39
+      3737373535343333333132302F302F2F2E2D2D2C2C2C2B2B2B2B2A2A2A282829
+      2728272726262525252424242424242324242222221F1E1F1B1B1B1B1A1A1A19
+      1A19191A1A19191A191919191919191918191918191919181818181818181818
+      18181818181817181718181817171717171717171717181A18191B1B1C1B1B1B
+      1B1B1B1B1B1B1A1A1B1B1A1B1A1A1A1A1A1A1A1A1A1A191A1716171615161515
+      1615151515151415141516161616171616161616161615161615161616151515
+      1516151515151515151514151414151415151414141414141414141314141313
+      1313131212121212121112121212121112121111111111121413141B1B1B1B1B
+      1B1C1B1B1B1B1B19181812121312121211121211121212121111111111111111
+      10101110101010101010100F0F100F0F0F0F0F0F0F0F0F0E0F0F0F0E0E0E0E0F
+      0E0E0E0E0F0E0E0E0E0E0E0E0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0B0C0C0C0C0C0B0C0B0B0C0B0B0B0A0B0B0B0A0B0B0B0B0B0A0B0A
+      0A0B0909090909090909090808090A09091313142323232727272C2C2C303030
+      2828280506060505050605050606050505050505050505050505050505040505
+      050504050A0D0D04040430303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303636363939393A3A3A3C3C3C3D3D3D3E3E3E3030302F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F3737373B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A
+      3B3B3A3B3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3938383636363433343131322F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F373636
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838373737313131303030303030303030303030303030303030
+      3030303030303030303232323737373B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393A3A393B3B3A3B3A3A3B3A3A3C
+      3B3B3C3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E404040414141414141
+      4343434444444545444747464847474A49494B4B4B4D4C4C4E4E4E5050505151
+      515454545656565858585B5B5B5D5D5D5F5F5F6262626565656868676B6B6A6E
+      6D6D7170707474747777777B7B7B7E7E7E8282828585858989898E8E8E929292
+      9696969A9A9A9E9E9EA3A3A3A7A7A7ABABABAFAFAFB4B4B4ACACAC8B8B8B8B8B
+      8B8787878383837D7D7D7777777171716C6C6C6666666262625D5D5D58585853
+      53534C4C4C4747474242413E3B333F50864272FF4171FF406FFF406FFF3F6EFF
+      3E6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666
+      FF3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E
+      5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF
+      2556FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4F
+      FF1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1648FF15
+      47FF1546FF1246FF1743E63639443A39363B3B3B3C3C3C3D3D3D3E3E3E3E3E3E
+      3E3E3E3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3E3E3E3D3D3D3B3B3B3A3A
+      3A39393939393937373737373736363635353535353534343433333333333333
+      33333232323232323030303030303030302F2F2F2F2F2F2E2E2E2D2D2D2B2B2B
+      2A2A2A2828282525252323232020201D1D1D1C1C1C8A8989B0AFB0ABABAAA4A4
+      A49F9F9F9B9B9B9696969191918E8E8D8989898585858080807B7C7C78787873
+      73737070706B6B6B6868686564646161615D5D5D5A5A5A565757545453505151
+      4D4D4D4B4B4B4848484546464343424040403F3E3D3B3B3B3A39383737373737
+      363433323231313130302E2E2E2E2D2C2C2B2C2B2B2B2A2A2A28282728282726
+      25262424242424242423232121201C1D1D1B1A1B1B1B1B1B1A1B1A191A1A191A
+      1A191A1919191919191919191819191919191918181919181819181818181718
+      181817181817171717171717171717171717161717171716161918191B1B1B1B
+      1B1B1B1B1B1B1A1B1A1B1B1A1A1A1A1A1A191A191A1A19181717161516151516
+      1515151515151414151716161617171616161616161616161516161516161515
+      1516151515151515151514141514141414141414141414141414131314131413
+      13131212121212121212121112121211111211111112121A1A1A1B1B1B1A1B1B
+      1B1A1A1C1A1B1314131212131212121212121211121112121111111211111110
+      10110F0F10100F0F100F0F0F0F0F0F0F0F0F100F0F0F0F0F0F0F0E0E0E0F0E0E
+      0F0E0F0E0E0E0E0E0E0E0E0D0D0E0E0E0D0D0E0E0D0D0E0D0E0D0D0D0D0D0D0C
+      0D0C0D0C0C0D0C0B0C0B0C0B0B0B0B0B0B0B0B0B0B0A0B0A0A0B0A0A0A0B0909
+      0A0909090909090909090A0A090F0F0F2121212626262B2B2B30303033333306
+      0506050606060606050505050605050505060605050505050505050505040505
+      0A0D0D0404043030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303131313939393A3A3A3B3B3B3C3C3C3E3E3E3A3A3A2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F302F303A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B
+      3A3A3B3A3A3B3A3A3B3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393939
+      3737373434343231322F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3037373739
+      3939393939393939393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383834343430303030303030303030303030303030303030
+      30303030303030303030303333333838383A3A3A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A393B3B3A3B3B3A3B3A3A3C3B3B3C3B
+      3B3C3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F41414141414142424243
+      43434545454646454848474948484A49494C4B4B4E4D4D4E4E4E515151525252
+      5555555757575959595C5C5C5E5E5E6161616464646666666969696D6D6C706F
+      6F7372727675757A79797D7C7C8080808484848787878C8C8C90909093939397
+      97979C9C9CA0A0A0A4A4A4A8A8A8ACACACB1B1B1B6B6B59F9F9F8C8C8C8B8B8B
+      8686868181817C7C7C7676767070706B6B6B6565656161615C5C5C5757575252
+      524B4B4B4647474141403D3B353F53934272FF4171FF406FFF406FFF3F6EFF3E
+      6DFF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF
+      3665FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5E
+      FF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF25
+      56FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF
+      1D4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1648FF1547
+      FF1247FF263E9A3A382D3A3A3A3B3B3B3C3C3C3E3E3E3E3E3E3E3E3E40404040
+      40404141414242424242424343434242424141414040403E3E3E3D3D3D3B3B3B
+      3A3A3A3939393838383737373535353535353535353434343333333333333333
+      333232323232323030303030303030302F2F2F2E2E2E2D2D2D2B2B2B29292927
+      27272525252222221F1F1F1D1D1D5C5C5CB1B1B1ADACACA7A7A7A1A1A19C9C9C
+      9897979393938F8F8F8C8B8B8887878383837E7E7E7A7A7A7676767172716E6E
+      6E6A6A6A6666666363635F605F5C5C5C5858585656565252524F4E4E4C4C4C49
+      49494747474444444141413F3F3F3D3D3D3B3B3A393938363736353535333333
+      313131302F2F2D2E2E2D2D2C2B2C2B2B2B2B292A292828282727272626262424
+      242121211E1E1F1C1C1D1C1C1D1B1B1B1B1A1C1B1A1B1A191B1A191A19191A1A
+      191A1919191A1A1A1A1A1A191A1A191A19191A1A181818181818181818181818
+      1718171717171817171717171717171717171616161716171716161919191B1B
+      1B1A1B1A1B1A1A1A1A1A1B1A1B1A1A1A1A1A1A1A191A18171716151615151615
+      1515151515141515161617161617161616161616151516161616161516151515
+      1515151515151415151515141415151514141414141414141413141313141312
+      131312121312121211121112121211111212111515151B1C1B1B1B1B1A1B1B1C
+      1B1B171717121213121213121212121211121212121112121111111011111010
+      101010101010100F100F10100F0F0F0F0F100F0F0F0F0E0F0E0F0F0F0F0F0E0E
+      0F0E0E0E0E0E0E0E0E0D0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0D
+      0C0D0C0C0C0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0A0B0A090909
+      0909090909090A0A0A0A0A0B1F1F1E2626262A2A2A2F2F2F3333330E0F0F0506
+      050606060505060606050605050506050505060505050505050405050A0A0A05
+      0505303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303535353939393A3A3A3C3C3C3D3D3D3E3E3E3333332F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F3434343B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A3B3A
+      3A3B3A3A3B3A3A3B3A3A3A3A3A3837373535353333333030302F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303737373939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383636363131313030303030303030303030303030303030
+      303030303030303030303130313333333838383A3A3A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3B3B3A3B3B3A3B3B3A3C3B3B3C3B3B3C3B3B
+      3D3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F4040404141414242424343434444
+      444545454747464848474A49494B4B4B4D4C4C4F4E4E50505052525254545456
+      56565858585B5B5B5D5D5D6060606262626565656868686B6B6A6E6E6D707070
+      7474747777777B7B7B7E7E7E8282828585858989898D8D8D9191919595959A9A
+      9A9D9D9DA1A1A1A5A5A5AAAAAAAFAFAFB2B2B2B4B4B49494948D8D8D89898985
+      85858181817B7B7B7575756F6F6F6969696464646060605B5B5B565656515151
+      4B4B4B45454641403F3D3A343E53934272FF4171FF406FFF406FFF3F6EFF3E6D
+      FF3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF36
+      65FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF
+      2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556
+      FF2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D
+      4EFF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1748FF1548FF1845ED
+      34394A3938343B3B3B3D3D3D3E3E3E3E3E3E3F3F3F4040404242424343434444
+      444545454747474747474646464646464545454242424040403E3E3E3C3C3C3A
+      3A3A383838373737373737363636353535353535343434333333333333333333
+      3232323232323131313030302F2F2F2E2E2E2D2D2D2B2B2B2929292626262424
+      242121211F1F1F333333A9A9A9AEAEAEAAAAAAA3A3A39E9D9E99999995959591
+      91918E8D8D8A89888584848180817C7C7C7878777473737070706B6B6C686868
+      6464646161615D5D5E5B5A5A5757575454545152524E4E4E4C4B4B4848484646
+      464343434142423F3E3E3D3C3C3A3A3A38383837373734353532333231313130
+      2F2F2E2E2E2D2D2D2C2C2C2B2A2A2A2A2A2828282727272524242020201F1E1F
+      1D1D1F1C1D1E1C1C1D1B1B1C1B1B1C1C1C1D1B1B1C1B1A1B1B1A1B1C1B1C1C1B
+      1B1F1F1F2020202222222322231F201F1E1D1E1D1D1E19191919191918171818
+      18171818171717171717171717171617171717171717161616161717171A1A1A
+      1B1B1B1A1B1B1B1B1B1A1B1A1A1A1A1A1A1A1A1A1A1718171615171516161515
+      1515141415151516171716171616161616161615161616161515161515151515
+      1515151515141415141514141415151414141414141414141313131313131213
+      1213131212121212121111121211121112111B1A1A1B1B1B1B1B1B1B1B1B1B1A
+      1B13121312121212121212121212121211121112111111111011101010101010
+      101010100F0F10100F0F100F100F0F0F0F0F0F0F0F0F0F0F0E0E0F0E0E0E0E0F
+      0E0F0E0E0E0E0E0E0E0E0E0E0D0E0D0E0D0D0D0E0D0D0D0D0D0C0D0C0C0D0D0C
+      0D0C0B0C0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0B090A0A0A090909
+      09090909090B0B0A1B1A1B2424242929292E2E2E3333331A1A1A060606060606
+      0606060506060506060605050505050505050505050505050A0A0D0405053030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303131
+      313838383A3A3A3B3B3B3C3C3C3D3D3D3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F3838383B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3B3B3A393939363636
+      3434343232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30373737393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838373737343434303030303030303030303030303030303030
+      3030303030303030303130313130313333333838383A3A3A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3A3B3B3B3B3B3A3B3B3A3B3B3A3C3B3B3C3B3B3C3B3B3D
+      3C3C3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F414141414141434343444444454545
+      4646464848474949484B4A4A4C4B4B4F4E4E504F4F5151515353535555555757
+      575959595C5C5C5E5E5E6161616363636666666969696C6C6B70706F73727276
+      75757978787C7B7B8180808383838787878B8B8B8F8F8F9393939797979B9B9B
+      9F9F9FA3A3A3A8A8A8ABABABAFAFAFB4B4B4AEAEAE8E8E8E8D8D8D8989898585
+      857F7F7F7A7A7A7474746E6E6E6868686464645F5F5F5A5A5A5656565050504A
+      4A4A45454541413F3D3A343E53934272FF4171FF406FFF406FFF3F6EFF3E6DFF
+      3E6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665
+      FF3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D
+      5DFF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF
+      2455FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4E
+      FF1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1749FF1549FF2641A73C3A303C
+      3C3C3D3D3D3F3F3F3F3F3F3F3F3F414141434343454545464646474747484848
+      4A4A4A4A4A4A4A4A4A4949494848484646464343434040403D3D3D3B3B3B3A3A
+      3A39393937373736363636363635353535353534343433333333333333333332
+      32323131313030302F2F2F2E2E2E2C2C2C2A2A2A282828262626232323202020
+      2121218F8F8FB0B0B0ABABABA7A6A6A0A0A09B9B9B9797979292928E8E8E8B8B
+      8B8787878382827E7E7E7A79797676767171716E6E6D6A6A6B6666666263635F
+      5F5E5C5C5C5959585655555253524F4F4F4D4D4D494A4A474847444444434343
+      403F403E3E3E3C3C3C393A3A3837373636363434333232323232312F2F302E2F
+      2E2C2C2C2C2C2C2A2A2A2928282828282424242020201E1F201E1D1E1D1D1E1D
+      1C1D1B1C1C1C1C1D1C1C1C1C1C1C1D1C1D2323232626272C2B2B303030303030
+      313030302F2F2F2F2F2E2E2E2D2D2D2D2C2D2C2B2B2727272323231E1D1D1718
+      181817181817171717171717171717171716161616171616171616161919191B
+      1B1B1B1A1B1A1A1A1B1A1A1A1A1A1A1A191A191A171718161516151516151515
+      1515151516151717171617161616161616161615161515161515161515151515
+      1514141515151515151514141514151414141414141414131413131413131312
+      12121212121112121212111212111817181B1B1B1B1B1B1B1B1B1B1A1A151616
+      1313131212121212121212121212121211111111111211101110101010101010
+      1010101010100F0F0F0F0F10100F0F0F0F0F0F0F0F0F0F0F0F0F0F0E0E0F0F0E
+      0E0E0E0E0E0E0E0E0D0D0E0D0D0D0E0D0E0D0D0D0D0D0D0D0C0D0D0C0D0C0C0C
+      0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A090909090A09
+      090A0A0A1717172323232828282E2E2E32323223232306060606060606060605
+      06060606060606050505050505050505050505050D0D0D040405303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030333333
+      3939393A3A3A3B3B3B3D3D3D3E3E3E3838382F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F3030303A3A3A3A3A3A383838353535323232302F302F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F3030303030303030303030303030303030303434343737383C3C3C3F3F
+      3F3A3A3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3037373739393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383736363632323230303030303030303030303030303030
+      30303030303030303130313130313131313332323737373A3A3A3A3A3A3A3A3A
+      3A3A3A3A3A3A3A3A3A3B3B3B3B3B3A3B3B3A3C3C3B3C3B3B3C3B3B3D3C3C3D3C
+      3C3D3D3D3E3E3E3E3E3E3F3F3F40404041414142424243434345454545454547
+      47474848474A4A494B4B4B4D4C4C4F4E4E515050525252545454565656585858
+      5B5B5B5D5D5D5F5F5F6262626565656767676A6A6A6E6E6D7070707373737777
+      777A7A7A7E7E7E8181818585858989898C8C8C9090909494949898989C9C9CA1
+      A1A1A4A4A4A8A8A8ACACACB1B1B1B6B6B5A4A4A48E8E8E8D8D8D898989848484
+      7E7E7E7979797373736D6D6D6868686363635F5F5F5A5A5A5555555050504A4A
+      4A45454541413F3D3A343F54934272FF4171FF406FFF406FFF3F6EFF3E6DFF3E
+      6CFF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF
+      3564FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5D
+      FF2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF24
+      55FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF
+      1C4DFF1B4CFF1A4CFF1A4BFF194AFF1849FF1948F33A3F57403E394040404141
+      414242424343434343434444444545454646464747474848484A4A4A4B4B4B4C
+      4C4C4D4D4D4B4B4B4A4A4A4747474545454242423E3E3E3C3C3C3A3A3A393939
+      3838383636363636363636363535353535353434343333333333333232323131
+      313030302F2F2F2E2E2E2C2C2C2A2A2A2727272525252222221F1F1F6C6C6CB2
+      B2B2ADACADA8A7A7A2A2A29D9D9D9898989494938F8F8F8C8C8C898989858584
+      8080807C7B7B7878777474746F6F6F6C6B6C6768686465646161625D5D5D5A5A
+      595757575554555151524E4E4E4C4B4C4949494647464344444242423F3F3F3C
+      3D3D3B3A3B3838393737373535363333333232313131302F2E2F2E2E2E2C2C2C
+      2B2B2B2A292A292828252425202021201F201F1F201E1D1F1C1D1D1D1E1E1C1C
+      1D1D1D1E22222228282831313033323232333233333333333333333332333332
+      33333232323030302F2F302E2E2D2D2C2C2D2C2D2B2B2A2A2A2A292829222221
+      1A1A191817171717171716171717171616161617161616161616161919191A1B
+      1B1A1A1A1A1A1A1A1A1A1A1A1A191A1A19191917161616161715151615151515
+      1514171617171616161617171716161616161616161615151515151515161515
+      1414151515141515151415141415141414141314141413131313131313131212
+      131212121212121212121212131C1C1B1B1B1B1B1B1C1B1B1B19191812131313
+      13121312121212121212121212121111111110111110111110101010100F100F
+      10100F0F10100F10100F100F0F0F0F0F0F0F0E0F0F0F0F0F0E0F0E0F0F0E0E0E
+      0E0E0E0E0E0E0D0E0E0E0D0E0D0E0D0E0D0D0D0D0C0D0D0C0D0C0C0C0C0C0C0B
+      0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A09090A09090A09090A0A0A0A
+      1111122323232727272C2C2C3131312C2C2C0607060606070606060606050605
+      060506060506050505050505050505050D0D0D05050530303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303030303737373A
+      3A3A3B3B3B3C3C3C3D3D3D3E3E3E3131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      302F302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30303030303030303030303031313131
+      31313434343838383C3C3C414141434343434343434343414141414141414141
+      3A3A3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303737373939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373535353131313030303030303030303030303030
+      303030303030303130313130313131313131313131313635353939393A3A3A3A
+      3A3A3A3A3A3B3B3B3B3B3B3B3B3A3C3C3B3C3C3B3C3B3B3D3C3C3D3C3C3E3D3D
+      3E3E3E3E3E3E3E3E3E4040404141414141414343434444444545454646464848
+      484949484B4B4A4C4B4B4F4E4E504F4F5251515353535555555757575959595C
+      5C5C5E5E5E6060606363636666666969696C6C6C6F6F6E727271757474787777
+      7C7B7B7F7E7E8382828686868989898E8E8E9292929595959A9A9A9D9D9DA1A1
+      A1A5A5A5AAAAAAAEAEAEB2B2B2B4B4B49B9B9B8F8F8F8D8D8D8989898484847E
+      7E7E7878787373736C6C6C6868686363635F5F5F5A5A5A5555554F4F4F4A4A4A
+      45454541403F3D3B343E51874270FA4172FF406FFF406FFF3F6EFF3E6DFF3E6C
+      FF3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF35
+      64FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF
+      2D5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455
+      FF2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C
+      4DFF1B4CFF1A4CFF1A4BFF174BFF2946B44542374444444646464949494A4A4A
+      4A4A4A4A4A4A4848484747474747474747474949494A4A474D4B454C4C4A4D4D
+      4D4C4C4C4A4A4A4848484646464242423F3F3F3D3D3D3A3A3A39393939393938
+      3838363636363636363636353535353535343434343434333333323232303030
+      2F2F2F2D2D2D2B2B2B2929292626262424242222224B4B4BAFAFAFAEAEADA9A9
+      A9A6A5A59E9E9E9999999595959191918C8D8D8B8A8A8686868181817E7E7D7A
+      79797575747271726E6D6D6A6A6A6666666262625F5F605C5C5C595958565656
+      52525250504F4D4D4D4A4A4A4848484545454343434040403E3F3E3D3D3D393A
+      393738383636363435353233323232323030302F2E2F2C2D2C2C2C2C2B2B2B29
+      2929252525212122201F20201F201F1F201F1F201E1E1F1F1E20212022292929
+      3333333434343635363637363737373938383838383838383737373536353534
+      3532323332323230302F2D2D2E2D2D2D2B2B2B2A2B2A2A2A2929292829292821
+      21211918181717171717171617171616161717161716171616161818181B1B1A
+      1B1A1B1B1A1A1A1A1A1A1A1A191A1A1819191617161615161515161515151515
+      1517161717171716171616161616161516161516161515151616151515151515
+      1415151415151415151414141414141414141414131313141314131213121212
+      1212121212121212121A191A1B1C1C1B1B1B1B1B1B1B1B1B1312131312121213
+      1312131312121212121211111112111111101111101011101010101010101010
+      10100F1010100F100F100F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0F0E0E0E0E0E0F
+      0E0E0E0E0D0E0E0E0E0D0E0E0E0D0D0D0C0D0D0C0D0D0C0D0C0B0C0C0B0B0B0C
+      0C0B0B0B0C0B0B0B0C0B0B0B0B0B0A0B0909090909090A090A0B0B0A0E0F0E21
+      21212727272B2B2B303030353535060606060606060606060606060606060505
+      0505060505050505060505050D0D0D0505053030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303131313838383A3A
+      3A3B3B3B3C3C3C3E3E3E3C3C3C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3030303030303030303030303131313232323737373B3A3B4040404444444545
+      454646464747474747474646464545454444444242424141414040404040403A
+      3A3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30363636393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383837383737373737343434313131303030303030303030303030
+      3030303030303130313130313131313131313131313131313333333737363A39
+      393B3B3B3B3B3B3B3B3B3B3B3A3C3C3B3C3C3B3C3B3B3D3C3C3D3C3C3E3D3D3E
+      3E3E3E3E3E3F3F3F414141414141424242434343454545454545484848484848
+      4A4A494B4B4B4D4C4C4F4E4E5150505352525454545656565858585B5B5B5D5D
+      5D5F5F5F6262626565656767676A6A6A6D6D6D7070707373727776767A79797E
+      7D7D8180808484848787878C8C8C8F8F8F9393939797979A9A9A9E9E9EA3A3A3
+      A7A7A6AAAAAAADADADB2B2B2B2B2B29696968F8F8F8C8C8C8888888383837D7D
+      7D7878787171716C6C6C6767676363635F5F5F5A5A5A5555555050504A4A4A45
+      46464141403E3B333E4B74416CED4172FF406FFF406EFF3F6EFF3E6DFF3E6CFF
+      3C6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564
+      FF3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D
+      5CFF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF
+      2455FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4D
+      FF1B4CFF1A4CFF184BFF2349D6484A53514F485252535454545454545252524E
+      4E4E4C4C4C49494947474745454448463C45474F3C476F4A4A494D4B414B4A48
+      4A4A494747474545454242424040403D3D3D3B3B3B3A3A3A3939393838383838
+      383636363636363636363535353535353434343232323232323030302F2F2F2D
+      2D2D2A2A2A282828252525232323353535A5A5A4B0B0AFABABAAA6A6A6A1A1A1
+      9B9B9B9696969292928E8F8F8B8B8B8788878484847F7F7F7C7C7C7777777473
+      736F6F6F6C6B6B6867676564656161615E5E5D5A5A5A5758575454545252524F
+      4E4F4C4D4C494949474747444444424243403F403D3D3D3B3B3B393939383738
+      3636363435343232323131312F2F2F2E2E2D2C2C2C2C2C2C2A2A2A2626262222
+      23202020202020201F201F1F201F1F2020202026252532333335353538383839
+      39393B3B3B3C3C3B3D3D3C3C3D3C3C3D3C3C3C3C3B3A3B393939373838353536
+      3433333232322F30302D2C2D2C2C2C2A2A2A2929292929292828292828292728
+      271C1C1C1717171716171717161617171717161716161616161819191A1A1A1B
+      1B1A1A1B1A1A1A1A1A1A1A1A1A1A181818171617161616161516151515151615
+      1716171716161616161616171616151615151616161516151515151515151515
+      1515151515141414141415141414141413141413131413131313131312121212
+      12121212121615151B1C1C1C1C1B1B1B1B1B1B1B161616131313121313121212
+      12121212121212111112111112101111111110101010101010100F100F100F10
+      1010100F0F0F100F0F0F0F100F0F0F0F0E0F0F0F0E0E0F0F0E0E0E0E0E0E0F0E
+      0E0E0E0E0E0E0D0D0E0D0D0E0D0D0D0C0D0D0C0D0C0C0C0B0C0C0C0B0C0B0C0B
+      0C0C0B0C0C0B0B0B0B0B0B0B0A090A0A0A0A090A090A0A090C0C0C1E1E1F2626
+      262B2B2B303030343434100F1006060606060606060606060606060505060606
+      06060505060506050D0F0D050505303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303535353A3A3A3A3A3A
+      3C3C3C3D3D3D3E3E3E3736372F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F30303030303030303030303031313131313136
+      363639393A3F3F3F4343434545454646464747474747474848484A4A4A4A4A4A
+      4A4A4A4A4A4A4949494747474545454343434141414040403F3F3F3F3F3F3A3A
+      3A2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F35353539393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      3738383738373738373738373737373733333330303030303030303030303030
+      3030303030313031313031313131313131313131313131313131313131353535
+      3838373A3A3A3B3B3B3C3C3B3C3C3B3C3C3B3D3C3C3D3C3C3E3D3D3F3E3E3E3E
+      3E3F3F3F4040404141414141414343434444444545454747474848484949494B
+      4B4A4C4C4B4F4E4E504F4F5251515352525555555757575959595C5C5C5E5E5E
+      6060606262626666666969696C6C6C6E6E6E7171707575747777777B7B7B7E7E
+      7E8282828585858989898C8C8C9090909494949898989B9B9B9E9E9EA2A2A2A6
+      A6A6ABABABAFAFAFB3B3B3AEAEAE9292929090908C8C8C8888888383837E7E7E
+      7777777272726B6B6B6767676363635F5F5F5A5A5A5555555050504B4B4B4646
+      464242413E3B333D455C4066D84173FF4070FF406EFF3F6EFF3E6DFF3E6CFF3C
+      6CFF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF
+      3464FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5C
+      FF2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF24
+      55FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF
+      1B4CFF1A4BFF174BFF284DD35558625F5D555E5D5E5B5B5B5656565151514C4C
+      4C47474745433E43413735416E1A42D60E40FC1D42CC36447B46464749463B46
+      46444444444242423F3F3F3D3D3D3C3C3C3B3B3B393939383838383838383838
+      3636363636363636363535353434343333333131313030302E2E2E2C2C2C2A2A
+      2A2727272525252A2A2A959495B0B1B0ACACACA8A8A8A3A3A39D9D9D98989894
+      94948F8F8F8B8B8B8988898586868080807C7C7C7979797575747271716D6E6D
+      6B6A6A66666663626260605F5C5C5C5858585555555252525050504D4D4D4B4A
+      4A4848484545454343434141413F3E3F3D3D3D3C3A3A38383837373735353534
+      3434323232303031302F2F2D2D2D2C2C2C2C2C2C282828222323212122202020
+      201F202020202021212423242D2D2D3535353939393A3B3B3E3E3E3E3E3E4141
+      414242424242424242424040403A3A3A3434342F2F2F2929292D2E2E2F2E2E2F
+      2F2F3130312F2E2F2C2D2C2A2A2A2929292A2929292929292929292929292828
+      2223231818181717171617171616171616161616161616161919181A1B1B1A1A
+      1A1A1A1B1B1A1A1A1A1A1A191A17171717161617151616151615151517171717
+      1717171616161616161616161516161616151616151516151615151515151515
+      1414151415151514141515141414141414141313141313131312131212121212
+      121413131C1B1C1B1C1C1B1B1B1B1B1B19181812131313121213121312131212
+      1212121212121111121110121110111010111010101110101010100F0F0F1010
+      0F0F100F0F0F0F100F0F0F0F0F0F0E0F0F0F0F0F0F0E0F0F0E0E0F0E0E0E0E0E
+      0E0E0E0E0E0E0E0E0D0E0D0C0D0D0C0D0C0C0D0C0C0C0B0C0B0C0B0B0B0B0B0C
+      0B0B0B0B0B0B0B0B0A0A0A0A090A0A0A090A0A0A0C0B0C1C1C1C2626262A2A2A
+      3030303434341616150606070706060607060606060606050606060606060505
+      060505060D0D0D05060530303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303737373A3A3A3B3B3B3C
+      3C3C3D3D3D3E3E3E3131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303030303030
+      3030303030303131313131313434343838383D3D3D4242424545454646464747
+      474747474848484949494A4A4A4A4A4A4B4B4B4C4C4C4D4D4D4D4D4D4E4E4E4D
+      4D4D4C4C4C4A4A4A4747474343434040403F3F3F3F3F3F3F3F3F3F3F3F3A3A3A
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3535353939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373736363333333131313030303030303030
+      3030303031303131303131313131313131313131313131313131313132323232
+      32323434343838383A3A3A3C3C3B3D3D3C3D3C3C3E3D3D3F3E3E3F3E3E3E3E3E
+      4040404141414141414242424343434545454545454848484848484A4A4A4B4B
+      4B4D4D4C4F4E4E5150505352525554545656565858585A5A5A5C5C5C5F5F5F62
+      62626464646767676969696D6D6D7070707373727676757978787C7B7B807F7F
+      8382828786868989898D8D8D8F8F8F9393939797979B9B9B9F9F9FA3A3A3A7A7
+      A7ABABABAFAFAFB3B3B3AAAAAA9191919090908C8C8C8888888484847D7D7D77
+      77777171716B6B6B6767676363635F5F5F5A5A5A5656565151514B4B4B474747
+      4242433F3D363D3F463F5DB74172FF4070FF406EFF3F6EFF3E6DFF3E6CFF3C6C
+      FF3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF34
+      64FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF
+      2B5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455
+      FF2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B
+      4CFF1A4CFF164AFF274FE0585E736562585E5E5E585858515151494948454338
+      3D404E2541AC1143FD0E42FF0F41FF0C40FF0C40FF1841D72B40944041444241
+      404040403E3E3E3D3D3D3C3C3C3B3B3B3A3A3A39393938383838383838383837
+      37373636363535353434343333333131312F2F2F2D2D2D2B2B2B292929262626
+      252525818181B1B1B2ADADADA8A8A8A4A4A4A1A1A09999999494959192928C8C
+      8C8888888687878282827E7F7E7A7A7A7777777272726F6F6F6C6C6B69686865
+      64646161615E5D5D5B5B5A5757575454545152514E4E4E4C4C4C484949484848
+      4444444343434040403D3D3D3D3B3C3A393A3938383636363535353232323132
+      312F2F302E2E2E2E2D2D2C2C2C2B2B2B24232322222321212220212120202121
+      21222424253332323737373A3A3A3E3E3E414041424243444545464746464646
+      3435352727261D1C1C1A19191919191919191918191819181819181819181A1A
+      1A1F1F1F2525242A2A2B2A292929292928282828282827282828272729282825
+      26251818181617171716171616171717161616161616161A19191B1A1A1A1A1A
+      1A1A1A1A1A1A1A1A1A1919191717161616161615161615161616161817161716
+      1717161616161616161616161616161615161615151515151515151514151514
+      1414141515141514151414141414131314131313141314131313121212121212
+      1A1A1A1C1C1C1B1C1C1B1B1B1B1A1A1313131213131212131313131312121212
+      121211111111111211101111111011101010101010100F10100F1010100F1010
+      100F0F100F0F0F0F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0E0F0E0E0E0E0E0E0E0D
+      0D0E0E0E0D0D0E0D0E0D0C0D0D0D0D0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B0B0C
+      0C0B0B0B0A0A0A0A0A0A0A0A0A0A09090A0B0B1918182424242929292F2F2F33
+      33331E1F1F070606070607060607060706060606060606050606060506050606
+      0D0D0D0505053030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303232323A3A3A3A3A3A3B3B3B3D3D
+      3D3E3E3E3C3C3C3030302F2F2F3030303030303030303131313232323737373B
+      3A3B4040404444444545454747474747474747474949494A4A4A4A4A4A4B4B4B
+      4C4C4C4D4D4D4D4D4D4E4E4E4F4F4F5050505050505151515151515050504E4E
+      4E4848484040403B3B3B4040403F3F3F3E3E3E3E3E3E3E3E3E3F3F3F3A3A3A2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F333233393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738383738
+      3737383737383737383737383737373737373737343434313131303030303030
+      3030303130313130313131313131313131313131313131313232323232323232
+      323232323333333434343636363939393B3A3A3E3D3D3F3E3E3F3E3E3F3F3F40
+      40404141414242424343434444444545454747474848484949494B4B4B4C4C4B
+      4F4F4E504F4F5251515352525555555757575959595C5C5C5E5E5E6060606262
+      626565656868686A6A6A6D6D6D7070707373737676767878787C7C7C7E7E7E81
+      81818585858989898D8D8D9090909494949898989C9C9CA0A0A0A3A3A3A8A8A8
+      ABABABAFAFAFB4B4B4A6A6A69292929090908C8C8C8888888484847D7D7D7878
+      787171716B6B6B6767676464645F5F5F5B5B5B5656565151514D4D4D48484843
+      4444403F3A3D3C373E5089406DF14072FF406FFF3F6EFF3E6DFF3E6CFF3C6CFF
+      3B6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464
+      FF3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B
+      5BFF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF
+      2354FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4C
+      FF1A4CFF164AFF234DE9525C80605D525656544E4C4645443F31427F1944E310
+      45FF1144FF1143FF1042FF1041FF0E40FF0B40FF0B3FFF323D693F3D363D3D3D
+      3D3D3D3C3C3C3C3C3C3C3C3C3B3B3B3A3A3A3838383838383838383737373636
+      363535353434343333333131312E2E2E2C2C2C2A2A2A282828252525717171B2
+      B2B2ADADADA9A9A9A6A6A5A1A1A09C9C9C9797969192918E8E8E8A8A8A878787
+      8484847F80807D7D7D7777787474747070706E6E6E696969666665636463605F
+      605C5C5C5958585656565352535050504D4D4D4B4B4B48484845464543434341
+      42413F3F3F3D3D3D3C3C3C3A3A39393737363535353434323232313130303030
+      2F2F2F2C2D2C2C2C2B2525252323232122222120212020212122222424253333
+      333A393A3B3B3B4140404444444848474748474646463132321D1D1D1A1A1A1A
+      1A1A1A1A1919191919191A1A1919191919191919181919181918181918181818
+      1818171819182020202727282828282828282828282828282727272728272526
+      251818181617161717171617161616171616161717171B1A1A1B1B1B1B1A1A1A
+      1A1B1A1A1A1A1A1A181818171616161716161516151516171717181717171616
+      1716171616161616161616161616151516161516151615151515151415151514
+      151415151414141514141414141313141413141313131312131212121717171C
+      1C1B1C1C1C1C1B1C1B1B1B141414131313131313131313131212121212121212
+      1211111211111110111111111010111010101011101010100F100F1010100F0F
+      100F0F0F100F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0E0E0E0E0E0E0E0E0E0E0E0E
+      0E0E0D0D0E0D0D0D0D0C0D0C0C0D0C0C0C0C0C0C0B0C0B0B0B0B0C0C0B0C0C0B
+      0A0B0A0A0A0A0A0A0909090A0B0A0B1716162324232928282E2E2E3333332727
+      270606070607060606060606060606060606060506050506060505060F0F0D05
+      0505303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303535353A3A3A3B3B3B3C3C3C3D3D3D
+      3E3E3E39393930303035353539393A3F3F3F4343434545454646464747474747
+      474848484A4A4A4A4A4A4A4A4A4C4C4C4C4C4C4D4D4D4E4E4E4E4E4E50505050
+      50505050505151515252525353535151514A4A4A4242423A3A3A323232303030
+      3030303030303939393E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3F3F3F3939392F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31313138383839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373838373837373837
+      3738373738373738373737373737373737373737373735343532313230303030
+      3030313031313031313131313131313131313131323232323232323232323232
+      3333333333333333333434343434343535353838383A3A3A3B3A3A3E3E3E3F3F
+      3F4141414343434343434545454545454848484848484A4A4A4B4B4B4D4D4C4F
+      4F4E5150505251515453535655555858585959595C5C5C5E5E5E616161636363
+      6666656767676A6A6A6B6B6B6E6E6E7272727474747878787B7B7B7F7F7F8282
+      828686868989898D8D8D9191919595959999999C9C9CA1A1A1A4A4A4A8A8A8AC
+      ACACB0B0B0B4B4B4A3A3A39292929090908C8C8C8989898383837D7D7D787878
+      7272726D6D6D6868686363636060605B5B5B5757575353534E4E4E4949494445
+      4541403F3E3B323D455D3F62CD4071FF4070FF3F6EFF3E6DFF3E6CFF3C6CFF3B
+      6BFF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF
+      3363FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5B
+      FF2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF23
+      54FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF
+      1A4CFF174AFF1D4BF4405193504E4540475E2445C01446FF1346FF1446FF1345
+      FF1244FF1143FF1042FF1041FF0E41FF0A40FF2A3D853E3B303C3C3C3C3C3C3C
+      3C3C3C3C3C3B3B3B3B3B3B3A3A3A3A3A3A393939383838373737363636353535
+      3434343232323030302E2E2E2C2C2C292929262626666666B2B2B2AEAEAEAAAA
+      AAA6A6A6A2A2A29E9E9E9999999393938F8F8F8A8B8A8786878484848181817D
+      7D7D7A7A7A7675767272726F6E6F6B6B6B6767676463646061605E5D5D5B5A5A
+      5757575554545151514D4E4E4C4B4B4949494747474444444242424140403E3D
+      3D3D3D3C3B3B3B3938393838373735353232323232323030303030302E2D2D2D
+      2D2D2828282323242323232221222221222121222524253333333A3A3A3F3F3F
+      4142414746464949494C4C4D3C3C3C1E1E1E1A1A1A1A1B1A1A1A1A1A1A1A1A19
+      1A191A1A191A1919191919191919191919191918191819191818181818181817
+      1818181818191819232424282828272727262727282827272728272827242424
+      1818181716171717171716161716161616161818181B1B1B1A1A1B1A1A1A1A1A
+      1B1A1A1A1A191917171717161716171616151616161618171717161717161617
+      1616161616161616161616151616151515161516151515151515151515141414
+      1415141414141414141414141314141313141413131313131514141C1C1B1C1C
+      1B1C1C1C1C1C1C18171813131313131313131313131313121213121212111112
+      11111211101111111111111110111110111111100F1010100F10101010100F10
+      100F0F0F0F0F0F0F0F0E0E0E0F0E0F0E0F0E0F0E0E0E0E0E0E0E0E0E0E0E0D0D
+      0E0D0D0E0D0C0D0C0C0C0C0C0C0C0C0C0C0C0C0B0C0B0C0C0C0B0C0B0B0A0C0B
+      0B0B0A0A0A0A0A0A0A0B0B1211122324242929282E2E2E3232332A2A2A070707
+      0706070606060606060606070606060606060606050606050D0F0F0605053030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303838383A3A3A3C3C3C3D3D3D3E3E3E40
+      40404343434545454646464747474848484949494A4A4A4A4A4A4B4B4B4C4C4C
+      4D4D4D4E4E4E4E4E4E4F4F4F5050505050505151515252525353535353534C4C
+      4C4444443D3D3D37373730303030303030303030303030303030303030303030
+      30303030303939393D3D3D3D3D3D3D3D3D3E3E3E3E3E3E3F3F3F3B3B3B303030
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313737373938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383837383837383737383737383737
+      3837373837373737373737373737373737373737373737373636363333333131
+      3131303131303131313131313131313132323232323232323232323233333333
+      33333333333434343434343434343535353737373737373737373938383A3939
+      3C3B3C3E3D3D3F3E3E4140404242424444444545454747474949494A4A4A4C4C
+      4C4D4D4D5050505252525454545555555757575A59595B5B5B5D5D5D60606063
+      63636665656968686C6B6B6F6F6F7272727676767979797C7C7C808080838383
+      8787878A8A8A8E8E8E9292929595959A9A9A9D9D9DA1A1A1A5A5A5A9A9A9AEAE
+      ADB2B2B2B5B5B5A1A1A19393939090908D8D8D8989898383837E7E7E78787872
+      72726D6D6D6868686464646161615D5D5D5858585353534F4F4F4B4B4B464646
+      4242423F3D373D3C3B3E528E406BEC4071FF3F6FFF3E6DFF3E6CFF3C6CFF3B6B
+      FF3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF33
+      63FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF
+      2A5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354
+      FF2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A
+      4CFF184BFF184AFF2748C61B48ED1448FF1548FF1547FF1546FF1446FF1345FF
+      1244FF1143FF0F43FF1141F4243C98383A413B3B393B3B3B3C3C3C3C3C3C3C3C
+      3C3B3B3B3B3B3B3B3B3B3A3A3A39393938383837373736363635353533333331
+      31313030302D2D2D2B2B2B2828285A5B5AB3B3B2AFAFAFABABABA7A7A7A3A3A2
+      9E9F9E9B9B9A9595958F8F8F8C8C8C8888878383838282837E7E7E7B7B7B7777
+      777273737070706D6C6D69696A6565656262625F5F5F5B5C5B5A5A5956555553
+      52525150504D4D4D4B4A4B4848484646464343434141413E3E3E3D3E3E3C3C3C
+      3A3A3A3939393637363434333332333131313030302F2F2F2D2C2D2C2B2B2525
+      242423232323232222222020212323243232313A3A3A3F3F3F4343434848484C
+      4B4C4949492E2E2E1B1B1B1B1B1B1B1A1B1A1B1A1A1A1A1A1A1A1A1A1A1A191A
+      1A1A191919191A191919191A1919191919181819181918181818181818181818
+      181718181817181E1D1E26262627272727272626272728272727272723222217
+      17171617161716171617171616161616161A1A1A1B1B1B1B1B1B1A1A1A1A1A1A
+      1A1A1A1818181617161717161717161615161817171817171716171716161716
+      1616161616161616161616161615151515151615151515151515151414141514
+      15141414141414141414141414141413131313141312131B1B1B1C1C1B1C1C1B
+      1C1B1C1919181313131313141313131313131312121212121212121211111211
+      111111111111101111111010101010101010100F10100F10100F100F100F1010
+      0F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0F0E0F0F0E0E0E0E0E0E0D0E0E0D0E
+      0D0D0D0D0C0D0D0C0C0C0C0C0D0C0C0C0C0B0C0C0B0B0C0C0B0B0C0A0A0A0B0A
+      0A0A0A0A0A0B0B0F100F2222232728282E2D2D32323333333307070707070706
+      07070706070706060606060607060606060606060F0F0F050506303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303232323A3A3A3C3C3C3D3D3D3F3F3F4141414545
+      454747474A4A4A4B4B4B4C4C4C4D4D4D4D4D4D4E4E4E4F4F4F50505050505051
+      51515252525353535353534F4F4F4848483F3F3F393939303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303535353C3C3C3D3D3D3D3D3D3D3D3D3E3E3E3F3F3F3C3C3C3030302F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30363535393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383738383738383738373738373738373738
+      3737383737373737373737373737373737373737373737373737373736353434
+      3332333130313131313131313131313232323232323232323232323333333333
+      333333333434343434343535353636363737373737373838383A39393B3A3A3C
+      3B3C3C3B3C3E3E3E3F3F3F4141414242424444444545454747474848484A4A4A
+      4C4C4C4E4E4E4F4F4F5252525454545757575959595B5B5B5E5E5E6060606463
+      636767676A69696D6C6C7070707373737676767A7A7A7D7D7D81818185858588
+      88888C8C8C8F8F8F9393939696969A9A9A9E9E9EA3A3A3A7A7A7AAAAAAAEAEAE
+      B2B2B2B4B4B4A2A2A19494949191918D8D8D8989898484847F7F7F7878787373
+      736E6E6E6969696565656161615D5D5D5959595555555050504C4C4C47474743
+      434340403E3D3B323D42533E5CB5406FFF3F70FF3E6DFF3E6CFF3C6CFF3B6BFF
+      3B6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363
+      FF3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A
+      5BFF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF
+      2253FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4C
+      FF194BFF174AFF1749FF1749FF1748FF1648FF1547FF1546FF1446FF1146FF11
+      44FF1C3EBC2F37563A362B3A39363A3B3B3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C
+      3B3B3B3B3B3B3B3B3B3939393838383737373636363434343333333030302E2E
+      2E2C2C2C2A2A2A5B5A5BAFB0B0AFAFAFABABABA7A7A7A4A4A4A0A0A09B9C9C98
+      98979090908D8C8C8888888585858181818080807C7C7C787878747474717171
+      6E6E6D6A69696667666363636060605C5D5D5A5A5A5757575454545251514F4E
+      4E4C4C4C4949494747474545444343434040403E3E3E3E3D3D3B3B3B3A393A38
+      38393737373233333233333031303030312F2F2E2D2D2D282828232323242324
+      2222232222222323232D2E2E3938393D3E3E4443434848484D4D4C4C4B4C2727
+      261B1B1C1B1B1B1B1B1B1B1B1B1B1A1B1A1B1B1A1A1A1B1A1A1A1A1A1A191A1A
+      1A191A1A1A19191919191A191819191819191919191818181918181818181718
+      1718181717181A1A1B2525252626262726262727272828272827271E1E1F1717
+      171716171616171716161617161717171A1A1B1B1B1B1B1A1B1B1A1A1A1A1A19
+      1919171717161617171716161617171817181817181717171716171616171616
+      1617161616161616161516161515161515151515151515151515151515151414
+      151515141414141414141414141413141313131919191C1B1B1C1C1B1C1C1B1A
+      1B1B141414131313131313131313121313131212131212121112121112111111
+      1011101011111011101010101010101010101010101010100F100F10100F0F10
+      0F0F0F0F0F0F0F0F0F0F0E0F0F0E0F0F0E0E0E0E0E0E0E0E0E0E0D0E0D0D0D0D
+      0D0D0D0C0C0D0C0C0C0D0C0C0C0C0C0C0C0B0B0C0C0B0B0B0B0A0B0A0A0A0B0A
+      0A0A0A0D0D0D2222212728272D2D2D3131313636360707070707070707070706
+      070706070606070706060606060606060D0F0D06060630303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303535353C3C3C3D3D3D3F3F3F4343434747474A4A4A
+      4D4D4D4E4E4E5050505050505050505151515252525353535151514A4A4A4242
+      423B3B3B32323230303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303535353C3C3C3C3C3C3D3D3D3D3D3D3E3E3E3E3E3E3D3D3D3232322F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F31313139383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838373838373837373837373837373837373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3636353434333333313131323232323232323232323232333333333333333333
+      3434343434343535353636363737373737373737373939393A39393C3B3B3C3B
+      3C3D3C3D3F3F3F4040404141414343434444444646464747474949494B4B4B4D
+      4D4D4F4F4F5050505353535555555757575A5A5A5C5C5C5F5F5F626262656464
+      6867676A6A6A6E6D6D7171717474747777777B7B7B7D7D7D8181818585858989
+      898C8C8C9090909494949898989C9C9CA0A0A0A3A3A3A7A7A7ABABABAEAEAEB2
+      B2B2B5B5B5A2A2A19494949292928E8E8E8A8A8A8585857F7F7F797979747474
+      6E6E6E6A6A6A6565656262625E5E5E5A5A5A5656565151514E4E4E4949494545
+      454242423F3E393D3B343D486B3E61C73F6FFF3E6FFF3E6DFF3C6BFF3B6BFF3B
+      6AFF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF
+      3262FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5B
+      FF2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF22
+      53FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF
+      1A4BFF194AFF1849FF1749FF1748FF1548FF1448FF1347FF1A40CE2836693332
+      2D35342C3736363939393A3A3A3B3B3B3C3C3C3C3C3C3D3D3D3D3D3D3C3C3C3B
+      3B3B3B3B3B3A3A3A3838383737373535353333333232323030302D2D2D2B2B2B
+      5C5C5CB0B0B0AFAFAFABABABA8A8A8A4A4A4A0A0A09C9C9C9898989494948C8D
+      8D8989898585858281817F7F7E7E7D7D7979797776777272726F6F6F6B6B6B68
+      67686565656161625E5F5E5B5B5B5858585556565353525150504E4D4D4B4A49
+      48484846464544434441424240403F3E3E3E3D3D3D3A3A3A3939393737383535
+      353333323232323030302F2F302D2D2D2C2C2C25252524242423242323232323
+      24232626263939393D3C3C4142414848484D4D4D4D4D4D2727271C1D1D1B1C1C
+      1B1B1C1B1B1C1B1B1B1A1B1B1B1B1B1B1A1A1B1A1A1A1A1A1A1A1A1A1A1A1919
+      1A1A191919191919191919191918191919191918181819181818181918181818
+      18171818171A1A1A252525262626262626272727272728262627191919171717
+      1717171616171717161617171A191A1B1B1B1A1B1A1B1A1B1A1B1A1A1A191818
+      1817171717171617171716161618181718181718171718171717161717161616
+      1717151616151516151616151616161515151515151515141515151515151415
+      1414141414141314141314131413141717171C1C1B1C1B1B1C1C1B1C1C1B1414
+      1513131413131313131313131313121212121212111112111212111111111111
+      11111111111011101111101010111010101010100F1010100F1010100F0F0F10
+      0F0F0F0F0F0F0F0F0E0F0F0F0F0F0E0E0E0E0E0E0F0E0D0E0D0D0E0D0D0D0D0D
+      0D0D0C0C0C0C0C0C0D0C0C0C0C0C0C0C0B0A0B0A0A0B0A0B0B0B0A0A0A0A0B0D
+      0D0D2020202728282D2C2D323131363636101010070707070707070707060706
+      0607070606070707060606060F0F0F0606063030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303A3A3A3E3E3E4040404545454A4A4A4D4D4D50505052
+      52525353535353534C4C4C4444443D3D3D373737303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303434343B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3E3E3E3434342F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3434343938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737383737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373736363634343433333332323233333333333333333333333334
+      34343434343535353636363737373737373838383939393B3A3A3C3B3B3C3B3C
+      3E3D3E3F3F3F4040404242424444444444444646464848484A4A4A4B4B4B4D4D
+      4D4F4F4F5252525353535656565858585B5B5B5D5D5D5F5F5F63636366656568
+      67676B6B6B6E6E6E7272727575757878787B7B7B7F7F7F8383838787878A8A8A
+      8E8E8E9292929595959999999C9C9CA0A0A0A4A4A4A7A7A7ABABABAEAEAEB2B2
+      B2B4B4B3A3A3A29595959292928E8E8E8A8A8A8585858080807B7B7B75757570
+      70706B6B6B6666666363636060605C5C5C5858585454545050504C4C4C474747
+      4444454242413F3D363C3C393D4A713E60C73E6EFF3E6FFF3C6CFF3B6BFF3B6A
+      FF3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF32
+      62FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF
+      2A5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF2253
+      FF2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4CFF1A
+      4BFF194AFF1849FF164AFF1649FF1B42CE2536702F2F2E322F26333231353535
+      3737373838383A3A3A3C3C3C3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3B3B3B3A3A
+      3A3A3A3A3939393737373535353333333131313030302D2D2D5D5D5DB0B0B0AF
+      AFAFABABABA8A8A8A4A4A4A1A1A19C9C9C9898989595959190908A8A8A858586
+      8382827E7E7E7D7D7D7A7A7A777776747373706F6F6C6C6C6969696465656262
+      625F60605C5C5C5959595656565454545152514E4F4E4C4C4C4A494948474745
+      44444343434040413E3F3E3D3C3C3C3B3B3B3A39393839363737343333333333
+      31303130302F2F2E2E2D2D2E2A2A2A2424242424232223232323232324233333
+      343C3C3C4140414747464C4C4B5151502D2D2D1D1D1D1C1D1D1C1C1C1C1B1B1C
+      1B1B1B1B1B1B1B1B1B1B1B1A1B1A1A1B1A1A1A1A1A1A1A1A1A1A1A1A191A1A1A
+      1919191A19191919191819191919181818181918181818181818181818181818
+      181817181B1B1B25252526262626262627262727272723232417171717171717
+      17161617171617161818181B1B1B1B1B1A1B1A1B1B1B1A1A1A1A191919171717
+      1617171716171617161717171818181818171817171817171717161716161716
+      1616161616161615151616151516151615151615151515151515151514141414
+      14141414141414141414131616151B1B1C1C1C1B1C1B1B1C1C1B161515141413
+      1413141313131313131312121212121211111212111211111111111111111011
+      1111111010101110101010111110101010100F0F0F10100F100F10100F100F0F
+      0F0F0F0F0F0F0E0F0F0F0F0F0E0F0F0E0E0E0D0E0E0D0E0D0D0D0D0C0D0D0D0C
+      0D0D0D0C0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0B0B0B0C0D0D0D1F1F
+      1F2828282E2D2E33323238383814141407070707070707070606070607070606
+      07070606070706070F0F0F060606303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303131313E3E3E4242424747474C4C4C4C4C4C4747473F3F3F3939
+      3930303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303333333939393A3A3A3B3B3B3D3D3D3E3E3E3F3F3F3F3F3F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F353535393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383738383738373738373738373738373738373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373838383838373737373636363636363434343333333434343434
+      343535353636363737373737373737373838383939393C3B3B3C3B3B3D3C3D3F
+      3E3F4040404141414242424444444545454747474848484B4B4B4C4C4C4E4E4E
+      4F4F4F5252525454545757575959595B5B5B5E5E5E6060606363636666666A6A
+      6A6C6C6C7070707473737777777A7A7A7D7D7D8080808383838787878A8A8A8E
+      8E8E9292929595959999999D9D9DA0A0A0A4A4A4A7A7A7ABABABAEAEAEB2B2B1
+      B5B5B4A5A5A59595959393938F8F8F8C8C8C8787878181817C7C7C7777777272
+      726D6D6D6868686464646060605E5E5E5959595656565252524E4E4E4A4A4A46
+      464743434341403F3E3C353D3C3A3D49703D5DC03D6BFB3C6EFF3B6CFF3B6AFF
+      3A69FF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF3262
+      FF3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A
+      5AFF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF
+      2152FF2152FF2051FF1F50FF1F50FF1E4FFF1D4EFF1C4DFF1B4CFF1A4DFF194D
+      FF194AFC1E41C126366D2E2E2F302D2331302E3131323434343636363838383A
+      3A3A3B3B3B3D3D3D3E3E3E3E3E3E3D3D3D3D3D3D3C3C3C3C3C3C3A3A3A393939
+      3838383737373535353232323030302D2D2D6B6B6BB3B3B3B0AFB0ABABABA8A8
+      A8A4A4A4A0A0A19C9D9D99999A9596959292928D8D8D8687878382837F7F7F7B
+      7B7B7B7A7A7878777574747171716E6D6D6A6A6A6666666464646161615C5D5D
+      5A5B5A57585855555552525250504F4D4D4D4B4A4A4848484645454443434342
+      423F3F3E3D3D3E3D3C3C3B3B3A3A393939373836363533333433323331313230
+      30302E2D2E2D2C2D25262624252424242523232323232229292A3B3A3A3F3F3F
+      454545494A4A504F503738371E1E1D1D1D1D1D1C1C1B1C1C1C1B1C1C1B1B1B1B
+      1B1B1C1B1B1B1B1B1B1B1B1B1B1A1A1B1B1A1B1A1A1A1A1A1A1A1A1A191A1919
+      1A19191A19191919191919191919191819181919181818181818181818181818
+      1717182020202625252626262526262727272828281B1B1B1717171717171717
+      171617171617171B1B1A1B1B1B1A1B1B1A1A1A1B1A1A1A1A1A17171717171717
+      1717171716171817181818181817181817181717181617171716171616161616
+      1616161615161616161615151516151515151515151515151514151414141414
+      141514141414141515151C1C1B1C1C1B1C1B1B1C1B1B18181713141314141414
+      1413131313141313121212131212121211121111121112111111111111111110
+      11111010111011101011101110101010101010100F0F0F0F10100F0F100F0F0F
+      0F0F0F0F0F0F0F0E0E0F0F0E0E0E0E0E0E0D0E0D0D0D0D0D0D0D0D0D0B0B0B0B
+      0C0B0C0B0B0B0B0B0B0B0B0A0B0B0B0B0A0C0C0B0C0B0C0F0E0E2020202A2A2A
+      3030303434353939391B1A1A0707070707080707070707060606070706060606
+      060606070F0F0F06060630303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303535353A3A3A383838343434303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3232323838383A3A3A3B3B3B3D3D3D3E3E3E3D3D3D2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F36363639393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373837373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737383838383838383837383837393838393838393838393938383838373737
+      3737373837373837373737373838383939393A3A3A3C3B3B3C3B3B3E3D3E3F3E
+      3F4040404141414343434444444646464747474949494B4B4B4D4D4D4F4F4F50
+      50505353535555555757575A5A5A5D5C5C5F5F5F6363636666666969696C6C6C
+      6E6E6E7171717575757878787A7A7A7E7E7E8181818484848888888A8A8A8E8E
+      8E9292929595959999999D9D9DA0A0A0A4A4A4A7A7A7ABABABAEAEAEB2B2B1B5
+      B5B4A7A7A79595959494949090908D8D8D8888888383837D7D7D787878737373
+      6E6E6E6969696565656262625F5F5F5B5B5B5858585555555151514C4C4C4949
+      4945454543434340403F3F3C353D3C373C445E3D56A53C66E63C6CFF3B6CFF3A
+      6AFF3A69FF3968FF3867FF3767FF3666FF3665FF3564FF3464FF3363FF3262FF
+      3261FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5A
+      FF2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF21
+      52FF2152FF2051FF1F50FF1E50FF1E50FF1C50FF1C4EFF1D49E92340A62B3559
+      2F2E2A302D2430302E3131313333333434343636363838383A3A3A3C3C3C3D3D
+      3D3D3D3D3E3E3E3E3E3E3E3E3E3D3D3D3C3C3C3C3C3C3A3A3A39393937373735
+      35353434343232322F2F2F757474B3B3B3B0B0AFACABACA8A8A9A4A4A4A1A1A1
+      9D9C9D9A9A999695969292928E8E8E8989898383838080807B7C7C7878787979
+      797575747272726F6E6E6C6B6B6867686565656161615E5E5E5C5C5C58585855
+      55555352525050504D4E4E4C4C4C4949484748474645454342424140403F3E3E
+      3D3D3C3C3C3B3A3A3A3939383837373534343334333132313031302F2F2F2E2E
+      2E2B2A2B2524252425242324232323232424243433343D3D3E4342424848484D
+      4D4D4A4B4B1E1E1E1D1E1D1D1E1D1C1C1D1C1C1C1C1B1C1B1C1B1C1C1B1B1B1C
+      1B1B1B1B1A1B1B1B1B1A1B1B1B1A1A1B1A1A1A1A1A1A191A1A1A1A191A1A191A
+      191A191919191919191919191819191918181818181818181818181818181818
+      1919232323252525262626272726272727242424171717171717171717161717
+      1616161A191A1B1B1B1B1B1B1B1A1B1A1B1A1B1A1A1818181717181717171717
+      1718171818191918181818181718181718171718161717171617161616161616
+      1616151616151515151516151516151515141514151415151415151514141414
+      1415151414141B1C1C1C1C1B1C1C1B1C1B1B1918181414141414141414131313
+      1314131313121213121213111212121112111211111111111111111010111110
+      1111101110101010101010101010101010100F10100F101010100F0F0F0F0F10
+      0F0F0F0F0F0F0E0E0F0E0E0E0E0E0E0D0D0E0C0D0C0C0C0C0C0C0C0C0B0C0B0C
+      0C0B0B0B0B0B0C0C0C0C0C0C0C0D0D0E1110101D1D1C2828282E2E2E33333338
+      38383C3C3C222221080707070708070807070707070707060707060706070706
+      0F120F0606063030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303033
+      33333939393A3A3A3C3C3C3D3D3D3B3B3B2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383837383737383737383737383737383737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373838
+      383838383838373838373938383938383938383938383A39393939393A3A3A3B
+      3B3B3B3B3B3B3B3B3C3B3B3C3C3C3D3D3D3D3D3D3E3E3E3F3F3F414141414141
+      4343434444444545454747474848484A4A4A4C4C4C4D4D4D5050505252525454
+      545756565958585B5A5A5D5C5C5F5F5F6262626464646666666A6A6A6C6C6C6F
+      6F6F7272727575757878787B7B7B7F7F7F8181818585858888888B8B8B8F8F8F
+      9292929595959999999D9D9DA0A0A0A4A4A4A7A7A7AAAAAAAEAEADB1B1B1B5B5
+      B4ACACAC9797979494949191918E8E8E8A8A8A8585857F7F7F7A7A7A75757570
+      70706C6C6C6767676363636161615D5D5D5A5A5A5656565353534F4F4F4C4C4C
+      4848484646464343444141403F3D383D3B333C3F463C4B7B3B59B53B66ED3A6A
+      FF396BFF3969FF3868FF3767FF3666FF3665FF3564FF3464FF3363FF3262FF32
+      61FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF
+      2959FF2958FF2858FF2758FF2657FF2556FF2455FF2455FF2354FF2253FF2152
+      FF2153FF1F53FF1F51FF1F4DF02344B9293A792E323E302E25312F2831313032
+      32323333333434343636363737373939393B3B3B3D3D3D3D3D3D3E3E3E3E3E3E
+      3E3E3E3F3F3F3F3F3F3E3E3E3C3C3C3B3B3B3A3A3A3939393737373434343333
+      333A3A3A868686B3B3B3AFAFAFABACACA8A8A8A4A4A4A1A1A19D9D9D9A9A9A95
+      96969292928E8E8E8B8B8B8584848080807D7D7D787878777677767676727272
+      70706F6C6D6C696968666565636262605F5F5C5C5C5A5A5A5757565353545252
+      51504F4F4D4D4D4A4A4A484848464646444343434242403F3F3E3D3D3C3C3C3C
+      3B3B3A3A3A3939393838363535353332333232313030302E2F2E2E2E2E282828
+      2525252525242423232323242626273B3B3B3F3F3F4545464B4C4B5050513131
+      311D1E1E1E1E1E1D1D1D1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1C1C1B1B1B1C1B
+      1B1B1B1B1B1B1A1B1B1B1A1A1B1A1A1A1A1A1A1A1A1A1A1A191A191A19191919
+      1A19191919191918191919191818181918181818181818181818181817171D1D
+      1C24242425252526262627272627272819191918171717171717171717171618
+      17171C1C1B1B1B1B1B1B1B1B1B1A1A1B1A1A1919171717171818171717161717
+      1818191819181918181818181818171717171817161716171716161616161616
+      1616161616161516151515151515151515151515151515151414141514141414
+      14141A1A191C1C1C1C1C1C1B1B1B1B1919141414141414131414141414141313
+      1312131312121312121311121211111112121111111111111111111110111110
+      111011111010101010101010101010100F0F100F0F0F1010100F0F0F0F0F0F0F
+      0F0F0F0E0E0E0E0E0D0C0E0C0D0C0C0C0C0C0C0C0C0C0C0B0C0B0C0C0B0C0D0D
+      0C0C0C0D0E0D1010101A1A192424242827272C2C2C3131313737373A3A3A3C3B
+      3C212221080807070707080707070707070707070707060706070706120F0F06
+      0606303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303333333838
+      383939393B3B3B3D3D3D3736372F2F2F2F2F2F2F2F2F2F2F2F2F2F3039393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      3738383738373738373738373738373738373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737383838
+      3838373838373838373938383938383938383A39393A39393939393A3A3A3B3B
+      3B3B3B3B3B3B3B3D3D3D3E3E3E3E3E3E3F3F3F40404041414142424243434345
+      45454646464747474A4A494A4A494C4C4B4E4D4D504F4F515050535252555454
+      5857575A59595B5B5B5E5D5D5F5F5F6262626565656767676A6A6A6D6D6D6F6F
+      6F7272727575757878787C7C7C7F7F7F8282828585858888888B8B8B8F8F8F92
+      92929595959999999D9D9DA0A0A0A3A3A3A7A7A7AAAAAAADADADB0B0B0B4B4B4
+      B0B0B09B9B9B9595959292928F8F8F8B8B8B8686868181817C7C7C7878787373
+      736E6E6E6A6A6A6565656262626060605C5C5C5959595656565252524F4F4F4B
+      4B4B4848484646464444444242423F3E3C3E3B343C3A353B3F4A3B4A793A55AD
+      3960DE3967F93869FF3669FF3668FF3566FF3565FF3464FF3363FF3262FF3261
+      FF3161FF3060FF2F5FFF2F5FFF2E5EFF2D5DFF2D5CFF2B5BFF2A5BFF2A5AFF29
+      59FF2958FF2858FF2658FF2657FF2556FF2457FF2357FF2355FF2251F9234CDD
+      2643AA2A3A752E3242312F2A32302632312E3333323333333535353636363737
+      373838383A3A3A3B3B3B3D3D3D3E3E3E3F3F3F3F3F3F4040404040403F3F3F3F
+      3F3F3F3F3F3E3E3E3C3C3C3B3B3B393939373737363636343434464646999898
+      B3B2B2AFAEAEABABABA8A8A8A4A5A5A1A1A09D9D9D9A9A9A9696969292928E8E
+      8E8C8B8C8787878181817D7D7D7979797676767373737473747170706D6D6D69
+      69696767666363636060605E5D5E5B5A5A5757575554555352535150504E4E4D
+      4B4B4B4848494746474545454444444140403F3F3F3E3D3D3B3B3A3A3B3B393A
+      3A3838373637373433333232313131312E2F2F2F2F2E2F2E2F25262525252524
+      2424222223242423302F2F3D3D3D4140414748484D4D4D4B4B4B1F1E1E1E1E1E
+      1E1E1E1D1D1D1D1D1D1C1D1C1D1C1C1C1C1C1C1C1B1C1C1C1B1B1B1B1C1B1B1B
+      1C1B1B1B1B1B1B1B1A1B1A1A1B1B1B1A1A1A1A1A191A1A191A191A1919191919
+      19191A1919181919181919181918181818181918181818181818171818222222
+      2424252525252526262627271D1E1E1718181818171717171717171717171B1B
+      1B1C1C1B1B1C1B1B1B1B1B1B1A1A1A1917181818181817171717171719181918
+      1919181819181818181817181817181717181617171617171716161616161616
+      1616161515151615151516151515151515141515141514141414151514141919
+      191C1C1C1C1C1C1C1C1C1C1B1B14141414141414141413141413131313131313
+      1212131212131212121212121112111112121111111111111111111110101110
+      111010111011101110101010101010100F10100F101010100F100F0F0E0F0E0E
+      0E0D0D0D0D0C0C0D0C0C0C0D0C0D0C0C0C0C0C0D0D0D0D0D0D0E0D0E100F0F19
+      19192222222626262828282D2D2D3131323736363939393C3C3C3D3D3D282727
+      08070807080707080708070707070707070707070706070712120F0706073030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030333333373737393939
+      3B3B3B3D3D3D3434342F2F2F2F2F2F2F2F2F2F2F2F3131313939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373738383838383838
+      38373838373938383938383938383938383A39393939393A3A3A3B3B3B3B3B3B
+      3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F4040404040404242424242424444444545
+      454646464848484A4A494B4B4A4D4C4C4E4D4D51505052515154535355545458
+      57575A59595C5B5B5E5E5E6060606262626565656767676A6A6A6D6D6D707070
+      7373737575757878787C7C7C7F7F7F8282828585858888888B8B8B8F8F8F9292
+      929595959999999C9C9CA0A0A0A3A3A3A6A6A6A9A9A9ACACACB0B0B0B3B3B3B2
+      B2B2A0A0A09595959393939090908C8C8C8888888383837F7F7F797979757575
+      7171716C6C6C6868686565656161615E5E5E5B5B5B5858585555555252524F4F
+      4F4C4C4C4949494747474545454242424040403F3E3B3E3B343D3B343B3C403A
+      425B3A4C853954AA375BCF3761EB3564F93565FF3465FF3366FF3264FF3263FF
+      3162FF2F61FF2F60FF2E60FF2E5FFF2D5EFF2C5EFF2B5DFF2A5DFF295CFF285C
+      FF285AFF2859FF2757FA2754ED284DCD2945A52B3D802D36542F3035312E2732
+      2F2532312D3333323434343535353636363737373939393A3A3A3B3B3B3C3C3C
+      3D3D3D3F3F3F4040404040404141414141414141414141414141413F3F3F3E3E
+      3E3E3E3E3C3C3C3B3B3B3939393737373535355A5A5AA5A4A5B2B1B1AFAEAFAB
+      AAABA7A7A7A4A3A4A1A1A19D9D9D9999999696969292928E8E8E8C8C8C888888
+      8485847D7D7D7979797676767373737171707071716D6D6D6A6B6A6767676464
+      646161605E5E5D5C5C5C5A58585756565353535151514E4E4D4B4C4C4A494948
+      48484646464444434242423F40403F3E3E3C3D3C3B3A3A3A3A3A393939373636
+      3535363232333232323030302F2E2E2E2F2F2C2B2C2525252525252424242423
+      232425253536363D3D3D4444444949494F4F4F3534351E1E1F1E1E1E1E1E1E1D
+      1D1D1D1D1D1D1C1C1D1C1D1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1B1B1C1B1B1B
+      1B1B1B1B1B1B1B1A1B1A1B1B1A1A1A1A1A1B1A1A1A1A191A19191919191A191A
+      191919191819191919191919181918191818181818181818181D1D1D24252425
+      25262626262727272525251817181718171717171717171717171B1A1A1B1C1C
+      1C1C1B1B1B1B1B1B1A1A1B1A1917171818171718181717171818181819191818
+      1818181819181818181717171718171718161717161617161616161616161616
+      16161616161616151515151515151515151515151415141414151818181C1C1C
+      1C1C1C1C1C1B1B1B1C1514151414151414141413141314141313131312131312
+      1213131213121212121112111212111111111211111111111111111110101111
+      10101110101010101010101010100F0F0F0F10100F0E0F0D0D0D0E0D0D0C0D0D
+      0D0D0D0D0C0C0D0C0D0D0E0E0D0D0D0E0E0E0F0F0E1617172121212525252829
+      282B2B2C3030303232323737373A39393D3D3D35353515151508080808080708
+      0807080707070807070708070707070707070706120F12060707303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303434343636363838383A3A3A3D
+      3D3D3232322F2F2F2F2F2F2F2F2F2F2F2F333333393939393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738383738
+      3737383737383737383737383737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373838383838383838373838
+      373838373938383938383938383A39393939393939393A3A3A3B3B3B3B3B3B3B
+      3B3B3C3C3C3E3E3E3E3E3E3F3F3F404040414141424242434343454545464646
+      4747474949484A4A494C4B4B4D4C4C4E4D4D5150505251515454545655555858
+      585A59595C5B5B5E5E5E6060606262626565656868686A6A6A6D6D6D71717173
+      73737575757979797C7C7C7F7F7F8282828585858888888B8B8B8F8F8F929292
+      9595959999999C9C9C9F9F9FA2A2A2A5A5A5A9A9A9ABABABAFAFAFB2B2B2B4B4
+      B4A7A7A79696969494949292928E8E8E8A8A8A8686868181817C7C7C78787874
+      74747070706B6B6B6767676464646161615E5E5E5B5B5B595959555555525252
+      5050504D4D4D4A4A4A4848484646464343434242424141403F3F3D3E3C383D3A
+      313C3A323C3C3D3B3D453A425B394776374B8C374FA03553B13454C13456C933
+      59D93159DD3058DD3058DD2F57DD2E56DB2F51C92E4FC22E4CB12E489F2F448B
+      2F3E74313A5931343D32323332302733302633322C3332303333333535353636
+      363737373838383939393B3B3B3C3C3C3D3D3D3E3E3E3F3F3F40404041414141
+      41414343434343434343434242424242424141414141414040403E3E3E3D3D3D
+      3C3C3C3A3A3A383838393939757576ADADAEAFAFAFAEADAEAAA9A9A7A7A7A3A3
+      A3A0A0A09D9D9D9999999696969392928F8E8E8C8C8C88888885858581818179
+      79797677767474747070706F6F6F6E6E6D6B6C6C6868686564646262625F5F5E
+      5C5C5C5A59595757565453535251514F4F4F4D4D4D4B4B4B4949494747474444
+      444242424041413F3F3E3E3E3D3C3B3B3B3A3A3B3A3A38383737373735353533
+      33333131312F2F2F2F2F2F2D2E2E29292A252626242424232323232323262626
+      3B3C3B3F3F404444444B4B4B5050502425251F1F1E1F1E1F1E1E1E1D1D1D1D1C
+      1D1C1C1D1D1D1C1D1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1C1B1B1C1B
+      1B1B1B1A1B1A1A1A1A1A1B1B1B1A1A1A1A1A1A1A1A1A1A19191A1919191A1A19
+      191919191919181918181818181818181818181818191A1A2424242524252525
+      252626262728281819181717181717171717171717171919191B1B1B1C1B1B1B
+      1B1B1B1B1B1B1B1A191919191717171817181717191818191919181919181818
+      1818191918181818171818171817171717171717161716161617161616161616
+      151515151615161616151515151415151515141414141819181D1C1C1C1C1C1B
+      1C1B1C1C1B151415141414151414141414141414141313141313141312131212
+      1312121211111212121112111111121111111111111111111111101111101010
+      111011101010101010100F0F0F0D0D0D0E0D0E0E0D0E0D0D0E0D0D0D0C0D0C0E
+      0E0D0E0E0E0D0D0D100F0F1414141F1F1F2526262929292C2C2B2F3030333232
+      3535353838383A3A3A3839391C1C1D0908080808080808080807080808070808
+      0808070707080808070707070707070712121206060730303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303434343636363838383A3A3A3D3D3D2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F35343439393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373838373837373837
+      3738373738373738373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737383838383837383837383837
+      3938383938383938383938383A39393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C
+      3C3D3D3D3E3E3E3F3F3F3F3F3F40404042424242424243434345454546464647
+      47474949484A4A494C4B4B4D4D4D4F4E4E515050535252545454575656585858
+      5B5A5A5C5C5C5F5F5F6161616363636666666868686B6B6B6D6D6D7171717373
+      737676767979797C7C7C7F7F7F8282828585858888888B8B8B8E8E8E92929295
+      95959898989B9B9B9E9E9EA2A2A2A4A4A4A8A8A7ABABABAEAEADB1B1B1B5B4B4
+      AEAEAE9B9B9B9595959393939090908C8C8C8989898484847F7F7F7B7B7B7777
+      777373736E6E6E6A6A6A6666666363636161615E5E5E5B5B5B58585856565653
+      53535151514E4E4E4C4C4C494949484848464646444444424242414141403F3F
+      3F3E3D3E3D3B3E3C373C3A333C392F3C392F3B39333A3A383A3939393A3E393A
+      3F38393E37393D37393D37383C36363636353436342F37342937332936342C36
+      352F3635323635343636353737373737373737373838383939393B3B3B3C3C3C
+      3C3C3C3E3E3E3F3F3F4040404141414242424343434343434444444444444444
+      444444444545454444444242424242424040404040403E3E3E3C3C3C3B3B3B3A
+      3A3A4D4D4D939393AFB0B0ABABABABAAAAAAAAAAA6A5A5A3A2A2A0A0A09C9C9C
+      9999999595959292928E8E8E8C8B8B8888888585858181817E7E7E7676777474
+      747070706D6D6E6C6C6C6C6C6C6868686566666362626060605D5D5D5B5B5A58
+      5857565554535252504F4F4E4E4E4B4B4B494949474746444444444343414241
+      3F3F3F3E3E3E3C3C3B3A3A3A3A3A3A3938383837373636363534343132323031
+      3130302F2F2F2F2E2D2E28282826262525242523232323242429292A3C3C3C42
+      42424546454C4C4C4848481F1F1F1F1E1F1E1F1E1D1D1E1D1D1D1D1D1D1D1D1D
+      1D1C1D1D1D1C1D1C1C1C1C1C1C1C1C1C1B1C1B1C1B1B1B1B1B1B1B1B1B1B1B1B
+      1B1B1B1A1A1A1A1B1B1B1B1A1B1A1A1A1A1A1A1A191A1A1A1A19191A19191919
+      1919181919181919191918191918181818181818222122252525262525262626
+      2727271C1C1C1817181818181817171717181818181C1C1C1C1B1B1C1C1B1C1B
+      1B1B1B1A19191919191918181718181818181819191919191919191918191918
+      1918191818181817181817181717181617171716171716161616161616161616
+      1516151616151515161515151515141515151717161D1D1C1D1C1C1C1C1C1C1C
+      1C16171615141514141414141414141413131313131314121213131213121212
+      1212121212121212121212121111111111121211111111101111111111111111
+      1010110F0E0E0E0D0E0E0D0E0D0D0E0E0D0E0D0D0D0D0D0D0F0E0E0E0D0E100F
+      0F1312131E1F1E2626262929292B2B2B2E2F2E323232343534383838393A3A37
+      37372222220C0C0C080809090808090809080808080808080808080808070808
+      0707080708080707070707071212120707073030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303131313434343636363838383B3B3B3C3C3C2E2E2E2F2F2F
+      2F2F2F2F2F2F2F2F2F3636363939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383837383837383737383737383737
+      3837373837373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373738383838383838383738383738373739
+      38383938383938383A39393939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C
+      3E3E3E3E3E3E3F3F3F4040404141414242424242424444444545454646464848
+      474A4A494A49494C4B4B4E4D4D504F4F5150505352525554545756565958585A
+      5A5A5C5C5C5F5F5F6161616363636666666969696B6B6B6E6E6E717171737373
+      7676767979797C7C7C7F7F7F8282828585858888888A8A8A8E8E8E9292929494
+      949797979B9B9B9D9D9DA0A0A0A4A4A4A7A7A6AAAAA9ADADADB0B0B0B3B3B3B4
+      B4B4A5A4A49595959494949191918F8F8F8B8B8B8787878282827E7E7E7A7A7A
+      7676767272726E6E6E6A6A6A6666666363636161615E5E5E5B5B5B5959595757
+      575454545252524F4F4F4D4D4D4C4C4C4A4A4A47474746464645454544444443
+      43434242424040404040403F3F3F3F3E3E3E3E3D3D3D3B3C3B393C3B393C3B39
+      3B3A383B3A383B3A383A3A383A3A383A3A393A3A3A3A3A3A3A3A3A3A3A3A3B3B
+      3B3B3B3B3B3B3B3C3C3C3D3D3D3D3D3D3E3E3E3F3F3F40404041414141414142
+      4242434343444444454545454545454545454545464646474747464646454545
+      4545454444444343434242424040403F3F3F3E3E3E3C3C3C3A3A3A6E6E6EA8A8
+      A9ADADAEAAABABA7A7A7A7A6A6A5A5A5A3A3A29F9F9F9B9B9B99999994949491
+      91918F8F8E8C8C8C8887878585858281817E7E7F7A7A7A7474747171716D6D6D
+      6A6A6A6A6A6A6969696666666364646060605D5D5E5B5B5B5859585656555353
+      535151504E4E4E4E4C4C4A4949484848464646444544424142403F403F3F3F3D
+      3D3D3B3A3B3A3A3A393A3A383837373636373636343433303131302F30302F30
+      2E2F2E2D2E2D2828272525252424242323232324243030303D3C3D4141414748
+      474D4D4D3E3E3E1F1F1F1E1F1F1E1F1E1D1D1D1E1D1D1D1D1D1D1D1D1D1D1D1C
+      1D1C1C1C1D1C1C1C1C1D1C1C1C1C1C1B1B1C1C1B1B1B1B1B1B1C1B1B1C1B1B1B
+      1A1B1B1A1A1B1A1A1B1A1A1A1A1A1A191A1A191A1919191919191A1A1A1A1919
+      191919191919191818181819181818181E1F1F2424232524252626262728271F
+      1F201818181818181818181717171818191C1C1C1C1C1C1C1C1B1B1B1B1B1B1A
+      1A1A1A1919191819191918171918191A19191919191919191819191919191919
+      1918181818181718181717171717161717161717161616161616161616161615
+      15161515151515151515151515151717171C1D1C1D1C1D1C1C1C1C1C1C171616
+      1415151515141414141414141414141413131413131412121313121312131212
+      121212121211121212121212111112111111111111111011110F0E0F0E0E0F0E
+      0D0E0E0D0E0E0D0E0E0D0E0E0D0E0E0E0E0E0E0F100F0F1213121C1D1D252626
+      2928292C2B2B2E2E2E3131313535353838383839393A3B3A2828290C0D0C0909
+      0909090809090909090908090808080908080808080808070807080808070708
+      0707080807080707121212070707303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303131313434343737373939393B3B3B3A3A3A2E2E2E2F2F2F2F2F2F2F
+      2F2F2F2F2F383837393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383738383738383738373738373738373738
+      3737383737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737373737373838383838373838373838373938383938
+      383938383938383939393939393A3A3A3A3A3A3B3B3B3B3B3B3C3C3C3D3D3D3E
+      3E3E3E3E3E3F3F3F404040414141424242434343454545464646474746484847
+      4A49494B4A4A4D4C4C4E4D4D504F4F5150505352525554545857575958585B5B
+      5B5D5D5D5F5F5F6262626464646666666969696B6B6B6E6E6E71717173737376
+      76767979797C7C7C7F7F7F8282828585858888888A8A8A8E8E8E919191949494
+      9696969A9A9A9D9D9DA0A09FA3A3A2A6A6A6A9A9A9ABABABAFAEAEB2B1B1B4B4
+      B4ADADAD9C9C9C9595959393939090908D8D8D8A8A8A8585858282827E7E7E7A
+      7A7A7676767272726E6E6E6B6B6B6868686464646161615E5E5E5C5C5C5A5A5A
+      5858585656565353535151514F4F4F4E4E4E4D4D4D4A4A4A4949494848484747
+      4746464645454544444443434343434343434341414141414140404040404040
+      40403F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F404040404040404040
+      4040404040404242424343434343434444444444444545454646464646464747
+      4747474748484848484848484848484847474748484848484846464645454544
+      44444343434242424141413F3F3F3D3D3D555555959595B2B2B2ACACADA8A8A9
+      A5A6A6A3A3A3A2A2A2A1A1A19E9E9E9C9B9B9998989494949191928E8E8E8B8B
+      8B8888888585858282827E7E7E7B7C7B7878777171716E6E6E6A6A6A68676869
+      69696666666464646160605F5F5E5C5C5C595A5957575754545452525150504F
+      4D4D4C4A4949494848474646454545434343414140403F403D3E3D3C3C3C3A3A
+      3A3A3A3A3939393939383737363635353433333030303030302F2F2F2E2E2F2D
+      2D2D2626262424242324242222222324232F2F2F3E3E3E4241424747484D4D4D
+      3938382020201F1F1F1D1E1E1D1E1E1E1D1D1D1E1E1D1D1D1D1D1D1D1D1D1D1D
+      1D1C1C1C1D1C1D1C1D1C1C1C1C1C1C1C1B1C1B1B1B1B1B1B1C1B1C1C1B1B1B1B
+      1A1B1A1B1A1B1A1B1A1A1A1A1A1A1A1A1A191A1A191A1919191A1A1A19191919
+      1819191919191818191819181E1E1E2424242525252626262728281F1F201818
+      181817181817181717181817181C1C1C1C1C1C1B1C1B1C1B1B1B1B1B1B1B1A19
+      191A1919191919191818191A1A1A19191A191919191919181919181818181919
+      1818181818171818171717171816161716171716161616161616151616161515
+      161515161516161515151717171C1D1C1D1D1B1C1C1D1C1C1C17171615151415
+      1415141414141414141414141313131313131212141212131212121213121212
+      1211121111121112111211121111111010100F0F0F0E0E0F0E0D0F0E0D0E0E0D
+      0F0E0D0F0F0E0F0F0E0F0F0F0F1213131B1B1B2424252828282B2B2B2E2F2F30
+      31313534343738373939393B3B3B2E2F2F10100F0A0A09090A090909090A0909
+      0909090809080808090809080908090909080908080808080807080708080707
+      0807070712121207070730303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3232323535353737373939393B3B3B3737372E2E2E2F2F2F2F2F2F2F2F2F2F2F
+      2F39393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838373838373837373837373837373837373837
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373737383838383837383837383837383737393838393838
+      3938383A39393939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E
+      3E3F3F3F3F3F3F4040404242424242424343434545454646464747464949484A
+      49494C4B4B4D4C4C4E4D4D5150505251515453535554545857575959595B5B5B
+      5D5D5D5F5F5F6262626464646666666969696C6C6C6E6E6E7171717373737676
+      767979797C7C7C7F7F7F8181818484848787878A8A8A8D8D8D90909093939396
+      96969999999C9C9B9F9F9EA2A2A2A4A4A4A8A7A7AAAAAAACACACAEAEAEB1B1B1
+      B2B2B2A7A7A79898989494949292928F8F8F8C8C8C8888888585858181817E7E
+      7E7A7A7A7676767373736F6F6F6C6C6C6868686565656262626060605E5E5E5C
+      5C5C5A5A5A5858585555555454545353535151514F4F4F4D4D4D4D4D4D4B4B4B
+      4A4A4A4949494848484747474747474747474646464545454545454545454444
+      4444444444444443434344444444444444444444444445454545454546464646
+      46464646464747474848484848484949494949494949494A4A4A4A4A4A4A4A4A
+      4A4A4A4B4B4B4B4B4B4A4A4A4A4A4A4949494848484848484646464444444444
+      444242424040404848487E7E7EB1B1B1B1B1B1ABABABA8A8A8A5A4A5A1A1A29E
+      9E9E9E9E9E9D9D9D9A9A9A9797969594949191908D8D8E8A8A8B888888848484
+      8181817E7E7E7B7B7B7878787574746E6E6E6A6A6A6867686565656666666464
+      646161615F5F5F5C5C5C5A5A5A5757575454555353535050504E4E4D4B4B4B4A
+      4A4A48474845454544434342424240403F3E3F3F3C3C3C3B3A3A3A3A3A383838
+      3938383838373636363635353332323030302F2F2F2F2F2F2D2E2E2E2D2E2525
+      252424242323232323232423233535343E3E3E4242424848484D4D4D2F2E2F20
+      1F201F201F1E1E1E1E1E1E1E1E1E1D1D1E1E1D1E1D1D1D1C1D1D1D1C1D1D1D1C
+      1D1C1C1C1C1C1D1C1C1C1C1C1B1C1C1C1B1C1C1C1C1B1B1C1B1B1B1A1B1B1A1A
+      1B1B1A1A1A1A1B1A1A1A1A1A1A1A1A191A19191A191A19191919191919191919
+      19191918181918191C1B1C232423252525262626272727242524181819181818
+      1818171718171718181C1C1C1C1C1C1C1C1C1B1C1B1C1C1B1A1B1B19191A1A19
+      191919191919191A1A19191A1A1A191919191919191919191918181919181918
+      1818181817181817181717171617171716171617161616161616161616151616
+      1515161615161717171D1C1B1D1D1C1D1D1C1C1C1C1717161515151515151514
+      1414141515141415141314131314121314131313121212121212121212121212
+      12111112111211110F0F0F0E0E0F0E0E0F0E0E0F0E0E0F0E0D0E0F0E0F0F0E10
+      1010101211121819182323232827282A2A2A2E2E2F3131313334343737373839
+      393B3C3B3232331616160A0A0A0A0A0A0A0A0A0A09090A0A0A090A0909090909
+      0909080908090809080808090808080909080808080808080708080708070807
+      1412140707073030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303032323235
+      35353737373A3A3A3C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F313131393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737383737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373737373738383838383738383738373739383839383839383839
+      38383939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3E3E3E3E3E3E
+      3F3F3F4040404040404242424242424444444545454646454747464948484A49
+      494C4B4B4D4D4D4E4D4D5150505251515453535554545757575959595B5B5B5D
+      5D5D5F5F5F6262626464646666666969696C6C6C6E6E6E717171737373757575
+      7878787C7C7C7F7F7F8181818383838787878A8A8A8D8D8D8F8F8F9292929595
+      959999989B9B9A9D9D9DA0A0A0A2A2A2A4A4A4A7A7A7AAAAAAACACACAFAFAFB3
+      B3B3B0B0B0A2A2A29595959393939191918E8E8E8B8B8B888888848484818181
+      7D7D7D7A7A7A7777777373737070706D6D6D6A6A6A6767676464646161616060
+      605D5D5D5C5C5C5A5A5A5858585656565656565454545252525151515050504F
+      4F4F4E4E4E4D4D4D4C4C4C4B4B4B4B4B4B4A4A4A4A4A4A4949494A4A4A494949
+      4949494949494949494949494949494949494A4A4A4A4A4A4B4B4B4B4B4B4B4B
+      4B4B4B4B4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4D4D4D4D4D4D4E4E4E4E4E4E4D
+      4D4D4D4D4D4D4D4D4C4C4C4A4A4A484848474747464646444444424242434343
+      6E6E6EA5A5A5B3B3B3ACACADA9A9A9A6A6A7A3A3A3A0A1A19D9D9E99999A9A99
+      999999999797979493939190908E8D8D8B8A8A8787878484848080807D7E7D7C
+      7C7B7878787475747170706A6A6A6868686565656363636464646261615F5F5F
+      5C5C5C5A5A5A5757575656565353535050514E4E4E4C4C4C4A4A4A4948474645
+      454545444343424140403F3F3F3D3D3D3B3C3C3A3A3A39393A37373738373736
+      37373737363434343232313030302F2F2F2E2E2D2D2E2E2D2C2D242424232323
+      2323232323232424243535353E3E3E4141414747474D4D4D2C2B2C201F1F1F1E
+      1E1E1E1E1E1D1E1E1E1E1E1E1D1D1E1D1D1D1D1D1D1D1D1D1D1D1D1D1C1C1C1C
+      1C1C1D1C1C1D1C1C1C1C1C1B1C1C1C1B1B1B1C1B1B1B1B1B1B1B1A1B1B1A1B1B
+      1A1B1A1A1B1A1A1A1A1A1A1A1A191A1A19191A191A19191A1919191919191919
+      181919191C1C1B24242325252525262626272624242518181819181818181818
+      18181718181D1D1D1C1C1C1C1C1C1C1C1B1B1C1B1B1A1B1919191A191A191919
+      1919191A19191A1919191A1A1A19191919191919191919191818191818181818
+      1818181718181718171718161617171617161616161616161616151615151615
+      15151718171D1C1B1D1B1C1C1C1C1C1D1C171616151515151515151515141514
+      1514141414141513131412131313131313131313121313121312121212121212
+      111111110E0E100E0E100E0E0F0E0E0F0E0E0F0F0F0F0F0E0F11101117171622
+      23222828282A2A2A2D2E2D3131313434353738373939393B3B3A3636361D1E1D
+      0A0A0A0B0A0A0A0A0A0A0A0A0A0A0A0A0909090A0A0909090909090909090909
+      0909090909090809080808080908090908080808080708080808080814141408
+      0708303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303333333535353838
+      383A3A3A3C3C3C3232322F2F2F2F2F2F2F2F2F2F2F2F33333339393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383738383738383738373738373738373738373738373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737373838383838373838373838373837373938383938383938383939
+      393939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F
+      3F3F4040404141414242424242424444444545444646454747464A49494A4949
+      4C4B4B4D4D4D4F4E4E5150505352525454545655555757575959595B5B5B5E5E
+      5E5F5F5F6262626464646666666969696B6B6B6E6E6E71717173737375757578
+      78787B7B7B7E7E7E8080808383838686868989898B8B8B8E8E8E929292949493
+      9696969797979A9A9A9D9D9D9F9F9FA2A2A2A5A5A5A8A8A8ABABABAEAEAEB1B1
+      B1B3B3B3AFAFAFA3A3A39494949292929090908D8D8D8B8B8B88888885858581
+      81817F7F7F7B7B7B7878787575757272726F6F6F6D6D6D696969676767646464
+      6262626060605E5E5E5C5C5C5B5B5B5A5A5A5858585757575656565555555353
+      535353535252525151515050505050505050504F4F4F4F4F4F5050504E4E4E4E
+      4E4E4E4E4E4E4E4E4F4F4F4F4F4F4E4E4E4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F
+      4F4F4F5050505151515050505151515151515050505151515151515050504F4F
+      4F4E4E4E4C4C4C4A4A4A4848484646464646464545456A6A6A9D9D9DB4B3B4AD
+      ADAEABABABA8A7A8A5A5A5A1A1A29E9E9E9C9B9C999999959696969595969695
+      929292908F8F8D8C8C8989898787868383838080817D7D7D7B7B7B7878787575
+      757172726E6E6D6868676565656262626060606161615F5F5F5D5C5D5A5A5A58
+      58585656565353535150504F4F4F4D4D4E4B4B4B494949474746454544434342
+      4140404040403E3D3D3C3C3C3B3B3B3A3A3A3837373737373738373737373536
+      363434333332312F2F2F302F2F2E2E2E2D2D2D2C2C2C25242423242423232323
+      23232423243534353E3E3E4141414646464B4A4B2B2B2B2020201F1F1E1E1E1F
+      1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D1D1D1D1D1D1D1D1C1D1C1D1D1C1C1D1D1D
+      1D1D1C1C1C1C1C1C1C1C1C1C1C1B1B1C1C1B1B1B1B1B1B1B1B1A1B1B1B1A1B1B
+      1A1B1A1A1A1A1B1A1A1A1A1A1A19191A1A1919191919191A1A19191919191919
+      1B1B1B2323242425242626262626272524251919181918191818181818181817
+      181D1D1D1D1D1C1C1D1C1D1C1C1C1C1B1B1B1B1A1A1A191A191919191A19191A
+      1A1A1A1A19191A19191A19191919191919191918181919181919181918191818
+      1818171817171717171717161717161716161616161616161616151515151818
+      181C1C1D1D1C1C1D1C1C1D1C1C18161715161515151614151515141515141414
+      1414141413141314141313141313131313121212131312121213121212101011
+      0E0F0F0E0E0F0F0E0F0E0E0F0F0F100F0F0F141314201F202726272A2A2A2D2D
+      2D303030343434383737393A393B3B3B3939392424240B0B0B0B0B0B0A0A0A0B
+      0B0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A090909090A09090909090909080909
+      0909090808080808080808080809080808080808080707081212140807073030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303434343636363838383A3A3A
+      3C3C3C3030302F2F2F2F2F2F2F2F2F2F2F2F3434343939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373837373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3737373737383838383837383837383737393838393838393838393838393939
+      3939393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F3F3F
+      3F4040404141414242424343434545454646454747464847474A49494A49494C
+      4B4B4E4D4D4F4E4E5150505352525454545555555757575959595B5B5B5E5E5E
+      5F5F5F6262626464646666666969696B6B6B6D6D6D7171717373737575757878
+      787A7A7A7D7D7D8080808383838686868888888A8A8A8D8D8D8D8D8D90909093
+      93939696969898989B9B9B9E9E9EA1A1A1A4A4A4A7A7A7AAAAAAADADADB4B4B4
+      B9B9B9BCBCBCB6B6B6A2A2A29494949191918F8F8F8D8D8D8B8B8B8888888585
+      858383837F7F7F7D7D7D7A7A7A7777777474747272726F6F6F6D6D6D6B6B6B68
+      68686666666464646262626060605E5E5E5D5D5D5B5B5B5B5B5B5A5A5A595959
+      5757575656565555555555555555555555555454545454545353535353535353
+      5353535353535353535353535353535353535353535354545455555554545455
+      55555555555555555555555454545353535353535353535151514F4F4F4E4E4E
+      4C4C4C4A4A4A4848484747476C6C6C9E9E9EB4B4B4AEAEAFABABABA8A8A8A6A6
+      A6A3A3A3A0A0A09D9E9E9A9A9A9797989494959494949494949292918F8E8E8C
+      8B8B8988888686868383838080807D7D7C7B7A7A777777747474727272706F70
+      6C6C6C6565646261616060605D5D5D5E5F5F5E5C5D5B5A5B5959585656565353
+      535151514F4F4F4D4E4D4C4B4C4949494747474646464444434241414040403F
+      3E3F3E3E3D3C3B3B3B3B3B393939383838373636373737363636353535333434
+      3132312F2F2F2E2E2F2E2E2E2D2D2D2C2C2C2324232323232424232323232424
+      243233323D3D3D4141414545454A4A4A3131311F1F1F1E1F1E1E1F1F1F1E1E1E
+      1E1E1E1E1E1E1E1E1E1E1E1E1E1D1D1D1D1D1D1D1D1D1D1D1D1C1D1D1C1C1C1C
+      1C1C1C1C1C1C1B1C1C1C1C1C1C1B1C1B1C1C1C1B1B1B1B1B1B1B1B1B1B1A1B1A
+      1B1A1A1A1A1A1A1A1A1A1A1A1A1A19191A1919191A191919191819191C1D1D24
+      23242524242726262727272323231918191818191819181818181818181D1D1D
+      1C1D1C1C1C1C1C1D1C1C1C1B1A1B1A1A1A191A1A1A191A1A1919191A1A1A1A1A
+      1A1A191A1A19191A1A191A1919191A1919181918191919191819191919181818
+      18171817171817171816171717161716161616161616161616161818171C1C1C
+      1C1C1C1D1C1C1C1C1C1716171516151615151516151515151515151514141414
+      131413141413141413131312131313131213131212121212121011110F0F0F0F
+      0E0F0E0F100E0E101111111B1B1C2424242727272B2A2B2F2E2E323232373736
+      3839393B3C3C3C3C3D2827270F0E0E0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0B
+      0B0B0A0A0A0A0A0A090A090A0A0A0A0A09090A090A0909090909090909090909
+      0909080908080909080908090808080808080808141414070808303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303434343636363838383A3A3A3D3D3D2E
+      2E2E2F2F2F2F2F2F2F2F2F2F2F2F373636393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3837383837383837383737383737383737383737383737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3738383838383738383738373738373739383839383839383838383839393939
+      39393939393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F404040
+      4040404242424242424343434545444646454746464847474A49494B4A4A4C4B
+      4B4E4D4D4F4E4E5150505352525454545555555757575959595B5B5B5E5E5E5F
+      5F5F6262626464646666666969696B6B6B6D6D6D707070727272757575787878
+      7A7A7A7C7C7C7F7F7F8282828484848787878888888989898C8C8C8E8E8E9191
+      919494949797979A9A9A9D9D9DA0A0A0A4A4A4ABABABB1B1B1B4B4B4B6B6B6BA
+      BABABDBDBDBFBFBFB7B7B7A5A5A59595959191918E8E8E8C8C8C8A8A8A888888
+      8585858383838181817F7F7F7C7C7C7A7A7A7777777474747373737070706F6F
+      6F6C6C6C6A6A6A6969696666666565656363636262626060606060605F5F5F5E
+      5E5E5C5C5C5C5C5C5B5B5B5B5B5B5A5A5A5A5A5A5A5A5A5A5A5A595959595959
+      5959595959595959595959595A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5959595858
+      585858585858585757575656565454545353535151514F4F4F4C4C4C4A4A4A50
+      50507373739F9F9EB5B4B5B0B0B0ABABABA8A8A8A6A6A6A3A3A3A1A1A19E9E9E
+      9C9C9C9998999696969595959494949494949090908E8E8D8B8B8B8887888685
+      86828282807F7F7C7C7C797A797777777474757372736F6F6F6C6C6C68686862
+      6261605F5F5D5C5C5B5B5B5C5C5C5B5B5B5958595757565453535151514F4F4F
+      4E4E4E4C4C4C4A494A48484746464644444443434341414040403E3E3E3D3C3B
+      3B3C3B3B3A39393838383737373635363737373736353434343333333131312F
+      2F2E2E2E2E2D2D2E2C2C2C2B2A2B2525252423242323242324232324232F2F2F
+      3A3A3A3F3F3F4444444949493636361F1F1F1F1F1F1F1F1E1E1E1F1E1E1E1E1E
+      1E1D1E1E1E1E1E1D1D1E1D1D1E1D1D1D1D1D1D1D1D1D1D1D1C1D1D1C1C1C1D1C
+      1C1C1C1C1C1C1B1C1B1C1B1B1C1B1B1C1C1B1B1B1B1B1B1B1B1B1A1B1B1A1A1B
+      1A1A1A1A1A1A1A1A1A1A1A191A1A1A1A191A1A191A1919191E1E1D2423242525
+      2427262627272820202018191919191919181818181919191A1D1D1D1D1C1C1D
+      1C1D1D1D1C1D1C1B1B1B1B1A1A1A1A1A191A191919191A1A1A1A1A1A1A1A1A1A
+      1A1919191A19191A1A1919191919191918191919191919181818181818181818
+      171818171817171816161716161716161616161616161818181C1D1C1C1C1C1D
+      1C1C1D1C1C181717161616161516161515151515151515141414151414151413
+      1413131413131312131313121213121313121212121111120F0F100F0F100F0E
+      100F0F0F1514152323232626262A2A2A2F30303434343838393C3C3C3E3E3E2F
+      2E2F1212120C0C0B0C0C0C0C0B0B0B0B0B0B0B0B0B0A0A0B0A0A0A0A0A0B0B0A
+      0A0A0A0A0A0A0A0A0A09090A0A090A090A0A0A09090909090909090909090808
+      0808080808080808080808090808080814141408080830303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303131313434343636363939393B3B3B3939392E2E2E2F2F
+      2F2F2F2F2F2F2F2F2F2F37373739393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      3738383738373738373738373738373738373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373737373737
+      3838373838373838373837373938383938383938383938383939393939393939
+      393A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40404040
+      40404242424242424343424545444646454746464847474A49494B4A4A4C4B4B
+      4E4D4D504F4F5150505352525454545555555858585959595B5B5B5E5E5E5F5F
+      5F6262626464646666666868686A6A6A6D6D6D6F6F6F72727275757577777779
+      79797C7C7C7F7F7F8181818383838484848585858888888A8A8A8E8E8E909090
+      9393939797979A9A9AA2A2A2A8A8A8ABABABAEAEAEB1B1B1B4B4B4B8B8B8BABA
+      BABCBCBCBEBEBEBCBCBCB3B3B3A6A6A69898989090908E8E8E8C8C8C8A8A8A88
+      88888686868484848282827F7F7F7D7D7D7B7B7B797979787878767676747474
+      7272727070706F6F6F6D6D6D6C6C6C6A6A6A6969696868686767676565656565
+      656464646363636363636363636262626161616161616161616060606060605F
+      5F5F5F5F5F5F5F5F5F5F5F5F5F5F5E5E5E5E5E5E5D5D5D5C5C5C5B5B5B595959
+      5959595858585656565454545252525050504E4E4E606060858585AAAAAAB6B6
+      B6B0B0B0ABABABA9A9A8A6A6A6A3A4A3A1A1A19E9E9E9C9C9C999A9A97979795
+      95969696969696959293939090908D8D8C8A8A8A8786868583848281817F7F7F
+      7D7C7D7A7A7A7777777474747171726F6F6F6B6B6B696A696666665F5F5F5C5C
+      5C5B5B5A5857585959585A5A59575757545354535353504F4F4E4F4E4C4C4C4A
+      4A4A4849494746474444454343434142414040403F3E3E3C3C3C3C3C3C3A3A39
+      3938383837373636363636363635353534343634343333333232322F2F2F2E2E
+      2E2E2E2D2D2C2C2B2B2B2626262424242423242223232424232D2D2D3939393E
+      3E3E4242424646463B3B3B20201F1F1F1F1F1F1F1E1F1E1E1E1E1E1E1F1E1E1E
+      1E1E1E1E1E1D1E1E1E1D1E1D1E1D1E1D1D1D1D1D1C1D1D1D1D1C1D1C1C1D1C1C
+      1D1C1C1C1C1C1C1B1C1C1C1B1C1B1B1B1B1B1C1B1B1B1B1B1B1A1B1B1B1A1B1A
+      1A1A1A1A1A1A1A1A1A1A1A1A1A1A191A19191919202020242424252525272726
+      2828281E1E1F1919191919191918191919191A19191E1D1D1D1D1D1D1D1D1D1D
+      1C1C1C1C1C1C1B1B1A1A1A1A1A191A1A1A1A1A1A1A1A1B1B1A1A1A1A1A1A1A1A
+      1A1A191A1A19191919191A191919191919181919181918181819191818181817
+      1717171817171716161716161716161616161817181D1D1D1C1C1D1C1C1C1C1C
+      1C18171616151616161615151515151515151515151515141415131314131314
+      14141414131313131213131313121313121211110F10110F0F100F0F0F0F1011
+      151515252525292A292E2E2E3434343A3A3A3D3D3E333333191A190C0C0C0C0C
+      0C0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0B0B0B0B0B0A0A0A
+      0A0A0A0A0A090A0A09090A0A090A0A090A090909090909090909090909080809
+      0909090808080909080808091414140808083030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303232323535353737373939393B3B3B3838382E2E2E2F2F2F2F2F2F
+      2F2F2F2F2F2F3939393939393939393939393939393939393939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3837373837373837373837373837373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373738383838
+      3837383837383737383737393838393838393838383838393939393939393939
+      3A3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F4040404141
+      414242424242424444434545444645454746464948484A49494B4A4A4D4C4C4E
+      4D4D504F4F5150505252525454545555555757575959595B5B5B5D5D5D5F5F5F
+      6262626363636666666868686A6A6A6D6D6D6F6F6F7171717474747676767878
+      787B7B7B7D7D7D8080808080808181818484848787878989898C8C8C92929298
+      98989E9E9EA2A2A2A5A5A5A9A9A9ADADADB0B0B0B3B3B3B6B6B6B8B8B8B8B8B8
+      B1B1B1AEAEAEB1B1B1B3B3B3B4B4B4ACACACA1A1A19494948E8E8E8C8C8C8A8A
+      8A8888888686868484848383838181817E7E7E7D7D7D7B7B7B79797978787876
+      76767474747373737272727070706F6F6F6E6E6E6C6C6C6C6C6C6B6B6B6A6A6A
+      6969696868686868686767676666666565656565656565656464646464646363
+      636262626262626161616060605F5F5F5F5F5F5D5D5D5C5C5C5B5B5B59595958
+      58585656565454545C5C5C787878999999B5B5B5B6B6B6B1B1B1ABABABA9A9A9
+      A6A6A6A3A4A4A2A2A29F9F9F9D9D9D9A9A9B9797979595959696959596959393
+      939190918F8E8F8C8C8C8989898686868484838181817F7E7E7B7B7B79787876
+      76767373737171716F6F6F6C6B6C6A69696767676464645C5C5C5A5A59585857
+      56555556565657575755555452535151504F4F4E4E4D4C4D4A4A4A4949494747
+      474646464444444241414141413F3F3F3E3E3E3C3C3C3C3C3B39393838383837
+      37373736363535353534343635353434333433333231312F2F2F2E2E2E2D2D2C
+      2C2B2B2C2B2B2727282424242423242223232424232829293838383D3D3D4141
+      414545454444441F1F1F1F201F1F1F1F1E1F1F1F1F1F1E1E1E1E1E1E1E1E1E1E
+      1E1E1E1E1D1D1E1E1D1E1D1E1D1E1D1D1D1D1D1D1C1D1C1C1C1D1C1C1D1D1C1C
+      1C1C1C1C1C1B1C1B1C1B1B1C1B1C1B1B1B1B1B1B1B1B1A1B1B1A1B1A1A1A1A1A
+      1A1A1A1A1A1A1A191A1A1A1A1A191A1A2323222424242626262627262828291B
+      1C1B1919191919191919191819191B1A1B1D1D1E1D1D1D1D1D1D1D1D1C1C1D1C
+      1C1C1B1B1A1B1A1A1B1A1A1A1B1B1B1B1A1A1A1B1A1A1A1B1A1A1A1A1A1A1A1A
+      1A1A191A191919191A1919191918181819181919191819191818181818181718
+      18171717171816161716161716161918181D1D1D1D1D1D1C1C1D1D1C1D181717
+      1616161616161516151516161615151515151514141514141514131413141413
+      13131313131313131313121313111112100F100F0F100F0F1010101118181827
+      27282B2C2C3132313838383B3B3B2021210D0D0C0C0C0C0D0C0C0C0C0C0C0B0B
+      0C0B0B0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0B0A0B0B0A0B0B0B0B0A0A0A0A
+      0A0B0A0A0A0A0A090A0A0A090A09090909090909090909090909090809090909
+      0909090809090808141414080808303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303232323535353737373939393C3C3C3635362F2F2F2F2F2F2F2F2F2F2F2F31
+      3131393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383738383738383738
+      3737383737383737383737383737373737373737373737373737373737373737
+      3737373737373737373737373737373737373737373737373737373838373838
+      373838373837373837373938383938383838383838383939393939393939393A
+      3A3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F3F3F3F404040414141
+      4242424242424444434544444645454746464948484A49494B4A4A4D4C4C4E4D
+      4D504F4F5150505252525454545555555757575959595B5B5B5D5D5D5F5F5F61
+      61616363636565656767676A6A6A6C6C6C6E6E6E717171737373757575787878
+      7A7A7A7C7C7C7C7C7C7D7D7D8080808282828585858C8C8D9595959999999C9C
+      9CA0A0A0A4A4A4A8A8A8ABABABAEAEAEB1B1B1B2B2B2AAAAAAA5A5A5A7A7A7A9
+      A9A9ACACACADADADB0B0B0B1B1B1B3B3B3B3B3B3ABABABA0A0A09292928B8B8B
+      8A8A8A8888888686868585858383838181817F7F7F7E7E7E7C7C7C7B7B7B7979
+      797777777676767474747272727272727070706F6F6F6E6E6E6D6D6D6C6C6C6B
+      6B6B6A6A6A6A6A6A696969686868686868676767676767666666656565646464
+      6363636363636262626060605F5F5F5F5F5F5D5D5D5B5B5B5959596262627C7C
+      7C979797B1B1B1B6B7B7B5B5B5B1B1B1ABAAABA9A9A9A6A7A6A4A5A4A1A1A19F
+      9F9E9D9D9D9B9B9B9898989595959696969796969494949192928F8F8F8D8D8D
+      8B8A8B8787878585858282827F807F7D7D7D7A7A7A7877787675767373737070
+      706E6E6E6B6B6B6968696667666363646161615A5A5A57575756565653525354
+      54545555555353525151504F4F4F4D4C4D4B4B4B4A494A474847464646444444
+      414242414141403F3F3F3E3E3C3C3C3C3C3B3939393A39393837373837363636
+      353534343434343534353434333433323232322F2E2E2D2D2D2C2B2B2C2B2B2C
+      2B2B2928282424242323232323222323232323233737383A3A3A3F3F3F414141
+      454545262727201F201F1F1F1F1F1F1F1E1F1E1F1F1E1F1E1E1E1F1E1E1E1E1E
+      1E1D1E1D1D1E1E1D1E1D1E1D1E1D1D1D1D1D1D1D1D1D1C1D1D1D1C1D1C1C1C1C
+      1C1C1C1C1C1B1C1B1C1C1B1B1C1B1C1B1C1B1B1B1B1A1B1B1A1B1A1A1A1A1A1A
+      1A1A1A1A1A1A191A1A1C1C1C2323242425242626262827272728281919191A19
+      191919191919191919191C1B1C1E1D1D1D1E1D1D1D1D1D1D1D1D1C1C1C1C1B1B
+      1A1A1A1A1B1A1A1A1B1B1B1B1B1B1B1B1A1A1A1B1A1B1A1A1B1A1A1A1A1A191A
+      1A19191919191A19191919191919181918181818191918181918181818171818
+      171817171716171717161A1A191D1C1D1D1D1C1C1C1D1C1C1C17161616161716
+      1616161615161615151515161515151414151414151413141313141313141313
+      1313131313131313131112121010110F0F100F0F1010101117181829292A2E2E
+      2F3434353B3B3B3333330D0C0D0C0C0D0C0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C
+      0C0C0C0B0C0C0C0B0C0B0B0B0B0B0A0B0B0B0B0B0B0A0B0A0B0B0A0A0A0A0A0A
+      0A0A0A090A0A0A0A0A0A0A0A090A090A09090A09090909090809090909080808
+      0808080916141608090830303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030333333
+      3535353737373A3A3A3C3C3C3333332F2F2F2F2F2F2F2F2F2F2F2F3232323939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383838373838373838373837373837
+      3738373738373738373737373737373737373737373737373737373736353532
+      3232343434363636373737373737373737373737373737383837383837383837
+      3837373837373938383938383938383838383939393939393939393A3A3A3A3A
+      3A3B3B3B3B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3F3F3F3F3F3F40404041414142
+      42424242424444434544444645454746464948484A49494B4A4A4D4C4C4E4D4D
+      504F4F5050505252525454545555555757575959595B5B5B5D5D5D5F5F5F6161
+      616262626565656767676A6A6A6C6C6C6D6D6D70707072727275757577777779
+      79797878787A7A7A7D7D7D7F7F7F8282828A8A8A9292929696969B9B9B9F9F9F
+      A3A3A3A7A7A7AAAAAAAAAAAAA4A4A49D9D9D9E9E9EA0A0A0A2A2A2A5A5A5A7A7
+      A7A9A9A9AAAAAAACACACAEAEAEB0B0B0B1B1B1B4B4B4B7B7B7AFAFAFA3A3A397
+      97978C8C8C8888888686868585858484848282828181817F7F7F7D7D7D7C7C7C
+      7979797878787676767575757474747272727171717171717070706E6E6E6E6E
+      6E6D6D6D6C6C6C6C6C6C6B6B6B6A6A6A69696969696968686867676765656564
+      64646363636161616060606464647474748A8A8A9F9F9FB3B3B3B6B6B6B5B5B5
+      B4B4B4B0B0B0AAAAAAA7A7A7A7A7A6A4A5A4A1A1A2A09F9F9C9C9C9B9B9B9898
+      989695969596969797979595959393939090908E8E8E8B8B8B89898986878784
+      84848182817F7F7E7D7D7C7A7A7A787777767575727272706F6F6D6D6D6B6B6B
+      6969696667676364646162625F5F5F5858575555555353535151515152515353
+      535151514F4F4F4E4E4D4C4C4B4B4A4A48474846464644454442424241414140
+      3F403E3F3E3C3C3C3D3C3C3A3B3A3A3A3A383837373736363635353534343333
+      3333333434343434343334333231312E2E2D2D2D2D2C2C2C2B2C2C2B2C2B2A2A
+      2A2424242323232323232221222323233030303A393A3D3D3D40404043434336
+      36361F20201F1F201F1F1F1F1F1E1E1F1F1E1F1E1F1F1F1E1F1E1E1E1E1E1E1E
+      1E1E1E1D1D1E1E1D1E1E1D1E1D1D1D1C1D1D1D1C1C1C1D1C1C1D1C1C1C1C1C1C
+      1C1C1C1C1C1B1C1B1B1B1C1B1C1B1B1C1B1B1B1B1A1B1B1B1A1B1B1A1A1B1A1A
+      1B1A1A1A1A1F1F1F2424232526252827282829282525251A19191A191A191919
+      1919191919191D1D1D1E1E1E1D1E1D1D1D1E1D1D1D1D1C1C1C1B1B1C1A1B1B1A
+      1B1B1A1A1C1B1B1A1B1B1B1B1B1B1B1B1B1B1A1A1A1B1A1A1A1A1A1A1A1A191A
+      1A1A191919191919191819191819191919181818181818181818181817181817
+      1817171717171A1A191E1E1D1D1D1D1C1D1D1D1D1C1716161616161616161616
+      1616151616151515151515151515141415131415141314141414141413131313
+      1313121213101111101010100F100F0F101010121B1C1C2B2A2B323131363636
+      3E3F3E2E2E2E0D0D0D0D0D0D0D0C0D0D0C0D0D0C0C0C0D0C0C0C0C0C0B0C0B0C
+      0C0C0C0C0B0B0C0B0B0B0B0B0B0A0B0B0A0B0B0B0B0B0B0B0B0B0A0A0A0A0A0A
+      0A0A0A0A0A0A0A0A0A0A0909090A090909090909090909080909090908080809
+      1416140808083030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303034343436363638
+      38383A3A3A3C3C3C3131312F2F2F2F2F2F2F2F2F2F2F2F343434393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383837383837383737383737383737
+      3837373837373737373737373737373737373737373737363030302F2F2F2F2F
+      2F2F2F2F2F2F2F31313133333334343435353537373738383738383738373738
+      37373837373938383938383838383838383939393939393939393A3A3A3B3B3B
+      3B3B3B3B3B3B3B3B3B3D3D3D3E3E3E3E3E3E3F3F3F3F3F3F4040404141414242
+      424343424443434544444645454746464948484A49494C4B4B4D4C4C4E4D4D4F
+      4F4F5050505252525454545555555757575959595B5B5B5C5C5C5F5F5F606060
+      6262626565656666666969696B6B6B6D6D6D6F6F6F7171717474747575757474
+      747676767979797B7B7B7E7E7E8A8A8A9090909494949999999E9E9EA2A2A2A3
+      A3A39C9C9C9494949595959797979999999B9B9B9D9D9DA0A0A0A1A1A1A4A4A4
+      A5A5A5A7A7A7A9A9A9ABABABADADADAEAEAEB0B0B0B2B2B2B6B6B6B9B9B9B6B6
+      B6ADADADA4A4A49A999A8F8F8F8787878484848181818080807F7F7F7D7D7D7C
+      7C7C7A7A7A7878787777777676767474747373737373737171717070706F6F6F
+      6F6F6F6E6E6E6D6D6D6C6C6C6B6B6B6969696969696868686B6B6B7474748383
+      83909090A1A1A1B0B0B0B7B7B7B6B6B6B5B5B5B4B4B4B2B2B2AFAFAFAAAAAAA6
+      A6A6A5A5A5A3A3A3A2A2A19F9E9F9C9C9D9A9A9A989898969696959595979796
+      9695959393939190918F8F8F8C8C8C8A8A8A8888888585858383838080807E7E
+      7D7C7B7B7979787676767473737272726F6F6F6D6C6D6B6B6A68696866666663
+      63636262625F5F5F5C5D5C5757575252525151514F4F4E4E4E4E52515250504F
+      4E4E4E4B4B4A4B4B4A4949484646464645454342424141424040403F3F3F3D3D
+      3D3C3C3C3B3C3B3B3A3A39383938383836363636363434343434343333323234
+      34343334333433343233322F2E2F2D2D2C2C2C2C2B2C2C2A2B2B2B2B2B232324
+      2323232222222121222323232B2B2C383939393A393D3D3D4040404040402221
+      22201F201F1F201F1F1F1F1F1F1E1E1F1F1E1F1E1F1E1E1E1E1E1E1F1E1E1E1D
+      1E1E1E1E1E1D1D1E1D1D1E1D1D1D1D1C1D1C1D1D1C1C1D1D1C1C1C1C1C1C1C1C
+      1C1C1C1C1B1C1B1C1B1B1B1B1C1C1B1B1B1B1B1B1B1B1A1A1B1A1B1B1B1A1B1B
+      1B2424242424242626262728272929291F1F1F1A191A1A191A19191A19191919
+      19191E1E1E1E1E1E1D1E1E1D1E1D1D1E1D1C1C1C1C1C1C1C1B1B1C1A1B1B1B1B
+      1B1B1B1C1B1C1B1B1B1A1B1B1B1B1A1A1B1B1A1B1A1A1A1A1A1A1A1A19191919
+      1A1919191A191919191919191918191919181818181818181818181717181718
+      17171C1C1B1D1D1D1D1D1D1D1D1D1C1B1C171717161617161616161716151616
+      1515151515151515151514141514141514141414141414141314141313131313
+      13111111101011100F110F10111011111D1D1D2C2C2B3231313938393F3F3F28
+      28290D0D0D0D0D0D0D0D0D0C0D0C0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
+      0C0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0A0A0A0A0A0A0B0A0A0A0A0A
+      0A0A0A0A090A0A09090A090A0A090909090A0909090908090909090916141409
+      0808303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303434343636363838383A3A
+      3A3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F35353539393939393939393939
+      3939393939393939393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838383738383738383738373738373738373738
+      37373837373737373737373737373737373030302F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313232323434343434343635
+      353635353838383838383838383838383939393939393939393A3A3A3B3B3B3B
+      3B3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F404040404040424241424242
+      4342424443434544444645454746464948484A49494B4A4A4D4C4C4E4D4D4F4F
+      4F5050505252525454545454545757575858585A5A5A5C5C5C5E5E5E60606062
+      62626464646666666868686A6A6A6C6C6C6E6E6E717171737373717171737373
+      7575757878787B7B7B8787878E8E8E9393939797979C9C9C9595958C8C8C8C8C
+      8C8F8F8F9090909393939494949696969999999B9B9B9D9D9D9E9E9EA1A1A1A2
+      A2A2A4A4A4A5A5A5A7A7A7A9A9A9AAAAAAACACACADADADAFAFAFB4B4B4B7B7B7
+      B8B8B8B8B8B8B9B9B9B6B6B6AFAFAEA7A7A7A0A0A09A9A9A9393938C8C8C8686
+      868181817C7C7C7B7B7B7A7A7A7878787777777676767676767474747979797D
+      7D7D828282888888919191989898A0A0A0A8A8A8AEADAEB5B5B5B7B7B7B6B6B6
+      B4B5B4B4B4B4B2B2B2B1B1B1B0B0B0AEADAEA9A9A9A5A4A4A4A4A3A2A2A2A09F
+      A09E9D9E9C9C9B9A9A9A9899989595969494959696969695959493939292928F
+      8F8F8C8C8C8A8A8A8888888585868484848181817F7F7F7D7D7D7A7A7B797878
+      7676757474737271716F6E6F6D6C6C6A6A6A6767676565656363636161615F5F
+      5F5D5D5D5B5A5B5454545151504F4E4E4D4D4D4C4C4C50504F4E4E4F4B4B4B4B
+      4B4B4949484746464645444343424341424140404040403D3D3D3D3D3D3C3C3C
+      3A3B3A3939393938383838393636363435343535343433333432323533333434
+      343333333232312E2E2E2D2C2D2D2C2D2B2B2B2B2B2B2B2B2A27272622222222
+      22222222222323232525253534343737373B3B3B3E3E3E40404032323220201F
+      1F1F2020201F201F1F1F1F1F1F1E1F1E1E1F1E1E1E1E1E1F1E1E1E1E1E1E1E1E
+      1E1D1D1D1E1E1D1D1D1E1D1D1D1D1D1D1D1D1D1D1C1C1C1D1D1C1C1C1C1C1C1C
+      1C1C1C1B1B1B1C1C1B1B1B1B1B1B1B1B1B1B1B1B1B1A1B1B1B1A1F1F1F242425
+      2525252627272828282828281A191A1A191A1A19191A191A1A19191C1B1C1E1E
+      1E1E1E1E1D1D1E1E1E1D1E1E1D1C1D1C1C1C1C1C1C1C1B1B1B1B1C1B1C1B1B1B
+      1B1B1B1B1C1B1B1B1A1B1B1B1B1B1B1A1B1A1A1A1A1A1A1A1A191A1A191A1919
+      19191A1919191919191919191819191918181819181818181818171818171B1B
+      1B1D1D1C1D1D1C1D1D1D1B1B1B17161616161716171616161616161616161616
+      1515151515161414151414151414151414141314141413131313131313121211
+      0F1010100F11100F111111121E1E1E2C2C2C3232323938393F3F3F2827280D0D
+      0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0C
+      0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0A0B0B0A0A0A0A0A0A0A0A0A
+      0A0A0A0A0A0A0A0A090A090909090A0909090909090909081616140809093030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303131313434343636363939393B3B3B3A3A3A
+      2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3737363939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383838383838373838373837373837373837373837373837
+      373737373737373737373131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303030303030303030303030303030
+      3131313131313131313232323434343434343434343939393A3A3A3B3B3B3B3B
+      3B3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40404040404042424142424243
+      42424544444544444645454746464948484A49494B4A4A4D4C4C4D4D4D4E4E4E
+      5050505252525353535454545757575858585A5A5A5B5B5B5E5E5E5F5F5F6262
+      626363636565656767676A6A6A6B6B6B6D6D6D6E6E6E6D6D6D70707071717174
+      74747777778585858C8C8C9090909696969A9A9A8888888585858888888A8A8A
+      8C8C8C8E8E8E9090909292929494949696969898989999999B9B9B9D9D9D9F9F
+      9FA1A1A1A2A2A2A4A4A4A5A5A5A7A7A7A8A8A8A9A9A9ABABABADADADB1B1B1B4
+      B4B4B5B5B5B6B6B6B6B6B6B7B7B7B8B8B8B8B8B8BAB9BAB9B9BABAB9B9B7B7B7
+      B5B5B5B5B5B5B5B5B5B4B5B5B5B5B5B5B5B5B6B6B6BBBBBBBDBDBEBFBFBEBFBF
+      BFC0C0C0C0C0C0BFBFBFB7B8B8B0B0B0B0B0B0B1B1B1B1B1B2B1B1B1AFAFAFAF
+      AEAEADADADACACACA8A7A8A3A2A3A2A2A2A0A0A09E9E9E9D9D9D9B9B9B999999
+      969797959594949494959495959695939393929191908F8F8D8D8D8A8A8A8888
+      888786878484848383838080807E7E7E7C7C7C79797977777675757473727270
+      706F6E6E6E6C6B6B6A69696767676665646362636061605F5F5F5C5C5C5B5A5B
+      5757585353534E4E4F4D4D4D4A4A4A4848484F4F4E4B4C4B4A4A4B49494A4748
+      47474645444443424341424140413F3F3E3D3D3D3E3D3C3C3C3B3B3B3A3A3A39
+      3939393938363637353535353535343333333433323231343333333333323232
+      313131312F302D2D2C2D2C2D2B2B2C2B2B2B2B2B2A2829292222222222222222
+      222222222323222C2C2D3737363838383B3B3B3D3D3D3E3E3E262625201F201F
+      1F1F201F1F1F1F1F1F1F1E1E1F1F1E1E1F1F1F1E1E1E1E1E1E1E1E1E1E1D1E1E
+      1E1E1E1D1E1E1D1D1E1D1D1D1D1D1D1D1D1C1C1C1C1D1C1D1C1C1C1C1C1C1B1C
+      1C1B1C1C1B1C1C1B1C1C1C1B1B1A1B1B1B1A1A1C1C1D24242425252526262628
+      27282929292122211A191A1A191B1A191A1A191A19191A1C1C1C1F1E1E1E1E1E
+      1E1E1E1D1E1E1E1D1E1C1C1D1C1C1C1C1D1C1C1C1C1C1B1C1C1B1C1C1B1C1B1B
+      1B1B1B1B1B1B1B1B1B1B1A1B1B1A1A1B1A1B1A1A191A1A1A1A1A1919191A1A1A
+      1A191919191919191919191919191819191818191818181818171D1D1D1D1D1D
+      1E1E1C1D1D1C1B1A1A1617171716171617171716171616161616161616161515
+      151615151514151514141514141413141414141413131313131010111010110F
+      10100F10101111132323232D2D2C3232323939393F3E3F1E1E1E0D0E0D0E0D0D
+      0D0D0D0D0D0D0D0D0D0D0C0D0C0C0D0D0C0D0C0D0C0C0C0C0B0C0C0C0B0B0C0B
+      0C0B0B0C0B0B0C0B0B0B0B0B0B0B0B0B0A0B0B0A0A0A0A0A0A0A0B0A0A0A0A0A
+      0A0A0A0A090A0A0A090909090909090909080909161616080909303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303232323434343737373939393B3B3B3A3A3A2E2E2E2F
+      2F2F2F2F2F2F2F2F2F2F2F393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838383838383837383837383737383737383737383737383737383737
+      3737373232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30303030303030303030303030303031
+      31313131313131313131313232323232323636363A3A3A3A3A3A3B3B3B3B3B3B
+      3B3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40404040403F4242414242424342
+      424544444544444645454746464948484A49494B4A4A4B4B4B4D4D4D4E4E4E50
+      50505151515353535454545656565858585959595B5B5B5D5D5D5F5F5F606060
+      6262626565656666666969696A6A6A6A6A6A6A6A6A6C6C6C6F6F6F7070707373
+      738484848888888E8E8E9494949999998080808282828484848585858888888A
+      8A8A8C8C8C8D8D8D8F8F8F9191919494949494949696969999999A9A9A9C9C9C
+      9D9D9D9F9F9FA0A0A0A2A2A2A3A3A3A5A5A5A5A5A5A7A7A7A8A8A8A9A9A9ADAD
+      ADB1B1B1B2B2B2B2B2B2B2B2B2B3B3B3B4B4B4B4B4B4B5B5B5B5B5B5B5B5B5B1
+      B1B2B0B0B0B0B0B0B1B1B0B2B2B2B6B7B7B9B9B9BBBABABCBCBBBCBDBCBEBEBE
+      BDBDBDB4B4B4ABABABABABABAAAAAAAAABABABACABABABABAAAAAAA9A9A9A8A8
+      A8A1A1A1A0A0A09D9E9E9D9D9D9B9B9B99999A98989897969694949492929294
+      9494949494939392919190908F8E8D8D8D8B8B8A898888878787858585838382
+      8080817E7E7F7C7C7C79797978787875757574747472727270706F6D6E6D6A6A
+      6A69686867676765636463626260605F5D5E5D5B5B5B5A5A5A58585856565651
+      52524D4C4D4B4B4A4848494747474A4A4A4B4B4B4A4A49474747464747444444
+      4343424242414141403F3D3D3F3D3E3D3C3D3B3B3C3A3A3A3939393838393838
+      3736363536353534343434343433333232333231313233323332323231313130
+      31312D2E2D2C2C2B2C2C2C2B2B2B2B2B2B2A2A29242424232223232223222223
+      222222242424343434373737393A3A3B3B3C3C3C3C373737202020201F201F20
+      1F1F1F1F1F1F1F1F1F1F1F1E1F1E1F1E1E1E1E1F1E1F1E1E1E1E1E1E1E1E1D1E
+      1D1E1E1D1E1D1D1D1D1D1D1D1D1D1C1C1D1C1C1D1C1C1C1C1C1C1C1C1C1C1C1C
+      1C1C1C1C1C1C1B1B1C1B1B1B1C1C1C2122222525242626262727272929292929
+      291A1A1B1A1A1B1A191A1A191A1A191A191A191F1E1F1F1E1F1F1E1E1E1E1E1E
+      1D1E1D1E1D1D1C1D1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1B1B
+      1B1B1B1B1A1B1B1A1B1A1B1A1A1A1A1A1A1A1A1A1A1A1A19191A1A191A1A191A
+      191919191919191919191919181918181819181818181D1D1D1E1C1D1D1C1C1D
+      1E1C1A1A1A171717171717171717161716171616161616161616161515161515
+      1514151614141515141414141413141314141314131011111010111010111010
+      111111122323242C2C2C3232323737373C3C3C1A1A190D0E0D0D0E0D0D0D0D0D
+      0D0D0D0D0D0C0D0C0C0D0D0C0D0C0C0C0C0D0C0C0B0B0C0C0C0B0B0C0C0B0C0C
+      0B0C0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A0A0A0B0A0A0A090A
+      0A0A090A090A090A090909090A09090916161609080830303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303232323535353737373939393C3C3C3635362F2F2F2F2F2F2F2F
+      2F2F2F2F30303039393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      383838383838373838373838373837373837373837373837373837373332332F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F3030303030303030303030303030303030303131
+      313131313131313131313232323232323938383A3A3A3B3B3B3B3B3B3B3B3B3B
+      3B3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40403F40403F424241424242434242
+      4544444544444645454746464948484A49494B4A4A4B4B4B4D4D4D4E4E4E5050
+      505151515252525454545656565858585959595B5B5B5C5C5C5E5E5E60606062
+      62626464646666666767676868686868686969696B6B6B6D6D6D717171828282
+      8686868C8C8C9191919595957C7C7C7E7E7E8080808181818484848585858888
+      888989898B8B8B8C8C8C8F8F8F9090909292929494949595959797979999999A
+      9A9A9B9B9B9D9D9D9D9D9D9F9F9FA0A0A0A1A1A1A2A2A2A4A4A4A5A5A5A6A6A6
+      AAAAAAADADADAEAEAEAFAFAFB0B0B0B0B0B0B0B0B0B0B1B0B0B0B0B1B0B0B1B1
+      B1ADADAEADADADB3B3B3B4B4B4B6B6B6B8B8B8B8B8B8BBBABBBBBBBBAEAFAEA7
+      A7A7A6A6A6A5A5A5A5A5A5A5A5A5A6A6A6A5A5A5A4A4A4A4A4A4A2A2A29B9B9B
+      9B9B9B9999999898989796969495949393939191919292929393939393939090
+      908F8E8E8D8D8D8B8B8B8989888787878584848383838181817F7E7F7C7C7C7B
+      7A7B7979797776777575757272727070706E6E6E6C6D6C6A6B6A696867666666
+      646363626262605F5F5E5D5E5B5B5B595A595757575656565354545252514A4B
+      4B4848484848474546454848474A4A4947474746464745444544444342424241
+      41403F3E3E3F3F3D3E3D3D3C3C3B3B3A3A393939393939383738363536363635
+      3535343434343333333333323232313132313233323131313131313131312E2D
+      2E2C2C2C2C2C2C2B2B2B2A2A2A2A2A2A27262723232222222223222321212122
+      22222C2D2D3534353738373838393939393A3A3A303030201F1F1F201F1F201F
+      1F1F1F1F1F1F1E1F1F1F1F1E1E1E1E1F1E1F1E1E1E1E1E1E1E1E1E1E1D1E1E1E
+      1E1D1D1D1D1D1D1D1D1D1D1C1D1D1D1D1D1D1D1D1C1D1C1C1D1C1B1C1B1C1C1B
+      1C1C1B1B1C1B1B1B2122212524252625252727272828282A2A2A2222221A1A1B
+      1A191B1A191B1A191A1A191A1C1C1C1F1E1E1E1F1F1E1E1F1F1E1E1E1E1E1D1D
+      1D1C1D1D1C1D1D1D1C1C1C1C1C1D1C1C1D1B1C1C1B1C1C1C1C1C1B1B1B1B1B1B
+      1B1B1B1B1A1A1A1B1B1A1B1A1A1B1A1A1A1A1A1A191A1A1A191A19191A191919
+      1919191919181919191919181919191A1A191E1D1D1D1C1D1D1C1C1E1C1C1818
+      1817181717171716171717171716171717161616161616161616151516151515
+      1414151415151414141414141314131313111111101011101011101011121213
+      2728272B2B2B3030303434343939391414140E0E0D0E0D0D0E0D0E0E0D0D0D0D
+      0D0C0C0D0D0D0D0D0D0D0C0C0C0D0D0C0C0C0C0C0C0C0B0C0C0B0C0C0C0C0B0C
+      0B0B0B0B0B0B0B0B0B0B0B0B0B0A0B0A0A0B0A0A0A0A0A0A0A0A0A0A0A090A09
+      0A0A0A0A0A090909090A090A1616160909093030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303333333535353737373A3A3A3C3C3C3434342F2F2F2F2F2F2F2F2F2F2F2F
+      3131313939393939393939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      3838383838373838373837373837373837373837373434342F2F2F2F2F2F2F2F
+      2F2F2F2F3030303030303333333D3D3D39383935353532323230303030303030
+      30303030302F2F2F2F2F2F303030303030303030303030303030313131313131
+      3131313131313131313232323635353939393A3A3A3B3B3B3B3B3B3B3B3B3B3B
+      3B3C3C3C3D3D3D3E3E3E3E3E3E3F3F3F40403F40403F42414142424243424244
+      43434544444645454746464948484A49494A4A4A4B4B4B4D4D4D4D4D4D505050
+      5050505252525454545555555757575959595A5A5A5B5B5B5E5E5E5F5F5F6161
+      616262626565656464646464646666666868686B6B6B7171717F7F7F8484848A
+      8A8A8F8F8F8E8E8E7878787A7A7A7C7C7C7E7E7E808080818181838383858585
+      8787878888888A8A8A8C8C8C8D8D8D8F8F8F9090909292929494949595959696
+      969898989999999A9A9A9B9B9B9D9D9D9D9D9D9E9E9EA0A0A0A0A0A0A1A1A1A4
+      A4A4A7A7A7AAAAAAAAAAAAABABABABABABABABABABABABACACACADADADADADAD
+      AEAEAEB0B0B0B2B2B2B3B3B3B5B5B5B6B6B6B8B8B8AAAAABA2A2A2A1A1A1A1A1
+      A1A0A0A09F9F9FA0A09FA0A1A0A0A0A0A0A0A09FA0A09E9F9F96969696969694
+      9494939393929292909090908F909292929191919090908E8E8E8C8C8C8B8B8B
+      8989898786868585858383838281827F7F7F7E7D7D7B7B7A7979797878787575
+      757473737171716F6F6F6E6E6E6B6B6B6A6A696868676565656363636160605F
+      5F5F5E5C5C5C5B5B595959575757565657535353525252505050484848474746
+      4545464343434545454747474747474545454344434242434242413F3F3F3E3E
+      3E3E3E3C3D3D3C3C3B3B3A393A3A393938393836363636363634353534343433
+      343333333332323332313231313032313132323131313130303130302F2C2B2B
+      2C2C2C2B2B2C2B2A2B2A2A2A2A2A2A2322232223222122212121222223222222
+      223031313434343737373737383838383838382E2E2E201F201F20201F20201F
+      1F1F1F1F1F1F1E1F1F1F1F1E1E1E1E1E1E1F1F1E1E1E1E1E1E1E1E1E1D1D1D1E
+      1E1D1E1D1D1D1D1D1D1D1D1D1C1C1D1C1D1C1C1C1C1C1C1C1C1C1B1C1C1C1C1B
+      1B2121222526252627262727272929282A29292828291A1A1C1A1A1B1A191B1A
+      1A1B1A1A1A1A1B1B1F1E1E1F1F1F1E1F1E1E1E1E1E1E1F1E1F1F1D1D1D1D1D1D
+      1C1D1D1D1D1C1C1C1D1D1C1D1D1C1C1C1C1C1C1C1C1C1B1B1B1B1B1B1B1B1B1B
+      1B1B1A1B1B1B1A1B1A1A1B1B1A1B1A1A1A1A1A1A1A191A1A191A1A1919191919
+      19191919191919191919181B1B1A1D1E1D1D1D1D1D1D1D1D1D1D181718171717
+      1717181717171717171717161617171616161616161615151515151614151515
+      141514141414141414141313131111111011111011111010111212132626262B
+      2B2A2D2D2E3232323636370E0E0E0D0E0E0E0E0E0E0D0E0D0D0D0D0D0D0D0D0D
+      0D0C0D0D0C0D0C0D0C0D0C0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0C0B0C
+      0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0B0A0B0A0A0A0A0A0A0A0A0A090A0A
+      0A0A0A0A0A0A0A0A191616090909303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303333
+      333636363838383A3A3A3C3C3C3232322F2F2F2F2F2F2F2F2F2F2F2F34343439
+      3939393939393939393939393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838383838
+      38373838373838373837373837373434342F2F2F2F2F2F2F2F2F2F2F2F303030
+      3030303434344141414343434343434343434343434343433E3E3E3D3D3D3A39
+      3A36363634343432323231313131313130303030303030303031313131313131
+      31313131313131313232323938383939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B
+      3C3C3C3D3D3D3E3E3E3F3F3F3F3F3E40403F403F3F4241414242424342424443
+      434544444645454746464847474A49494949494B4B4B4D4D4D4D4D4D4F4F4F50
+      50505252525454545454545757575858585959595B5B5B5D5D5D5F5F5F606060
+      6262626262626161616363636565656767676E6E6E7D7D7D8282828787878C8C
+      8C8888887474747676767878787979797C7C7C7D7D7D7F7F7F80808083838384
+      84848585858888888989898A8A8A8C8C8C8D8D8D8F8F8F909090919191939393
+      9494949595959696969898989999999999999B9B9B9A9A9A9B9A9B9C9C9C9C9C
+      9C9E9E9EA2A2A2A5A5A5A6A6A6A6A6A6A6A6A6A6A6A6A6A7A6A9A9A9ABABABAD
+      ADADAFAFAFB1B1B1B3B3B3B2B2B2A2A3A39D9D9D9C9C9C9C9C9C9C9C9C9B9B9B
+      9A9A9A9A9A9A9C9C9B9B9B9B9B9B9C9A9A9B9A9A9B9192919191918F8F8F8E8E
+      8E8D8D8D8F8F8F9090918F8E8F8E8E8D8C8C8C89898989898987878784858482
+      83828181817F7F7F7D7D7C7B7B7B7A7979787878757575737374717172707171
+      6E6E6E6C6D6D6A6A6A6969696666666565646363626161615F5E5F5D5C5C5B5B
+      5B5A59595757575655565354535251525050504F4F4F48474844444444444443
+      43424141414746464545454343434343434142413F3F3F3E3F3E3F3F3E3D3E3C
+      3C3C3B3A3A393A3A3A3938383838373636373535353434343434343334343333
+      33323232313131303030302F303232313130303030303030302E2D2E2C2C2C2B
+      2B2B2A2A2B2A2A2B2A2B2B272627222222212221212222212121222222252525
+      3434343534353536363737363737373636362C2C2C201F201F1F1F1F20201F1F
+      1F1F1F1F1E1E1F1F1E1E1E1E1E1F1E1E1E1E1E1E1E1E1E1D1E1E1E1D1E1D1E1E
+      1D1E1D1E1D1C1D1D1D1D1D1D1D1C1C1C1D1C1C1C1C1C1C1C1C1C212222262525
+      2727272727272929292A292A2A2A291D1E1E1A1B1B1A1A1B1A1A1B1A1A1B1A1A
+      1A1D1C1D1F20201F1F1F1F1F1F1F1F1F1E1F1E1E1E1E1D1D1E1D1D1D1D1D1D1D
+      1D1D1D1C1D1E1D1C1D1C1C1D1C1C1D1B1B1C1B1C1C1B1B1B1B1C1B1B1B1B1B1B
+      1B1B1B1A1A1B1A1B1A1B1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A191A191A19
+      191918191819181C1D1C1E1D1D1D1D1D1D1D1D1C1C1C18171818171718181817
+      1717171717171717161716161616171616161516161515151515161515151415
+      1514141414141313131111111111111010111110111716162525252828282C2C
+      2B2F2F2E3232321515150E0E0E0E0E0E0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D
+      0D0D0D0C0C0D0D0C0C0C0D0D0D0C0D0C0C0C0C0C0C0B0C0B0B0C0B0B0B0B0B0C
+      0B0B0B0B0B0B0B0B0B0A0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A090A090A09090A
+      0A090A0A1916190A0A0930303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030343434363636
+      3838383A3A3A3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F3535353939393939
+      3939393939393939393939393939393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383838373838
+      373838373837373636362F2F2F2F2F2F2F2F2F2F2F2F30303031313134343443
+      4343454545464646464646464646454545454545444444444444434343434343
+      4343434242424242424141413E3E3E3D3D3D3D3D3D3535353131313131313131
+      313131313232323535353939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C
+      3C3C3D3D3D3E3E3E3F3F3E3F3F3E40403F403F3F424141424242434242444343
+      4544444645454746464847474949494949494B4B4B4C4C4C4D4D4D4F4F4F5050
+      505151515353535454545656565858585959595B5B5B5C5C5C5E5E5E5F5F5F5D
+      5D5D5E5E5E6060606262626464646D6D6D7B7B7B7F7F7F8484848A8A8A848484
+      7070707272727474747676767878787979797C7C7C7C7C7C7E7E7E8080808181
+      818383838484848686868888888989898A8A8A8C8C8C8C8C8C8E8E8E8F8F8F90
+      9090919191929292939393939393949494959595969696979797979898979898
+      9898989B9B9B9E9E9EA1A1A2A1A1A2A2A2A2A3A3A3A5A5A5A7A7A7A9A9A9ACAC
+      ACAEAEAEADADAD9D9D9D99999999999998989898989897979796969695959594
+      94949796979797979697979695969696968D8D8D8C8C8C8B8A8A898989888888
+      8A8A8A8C8C8C8B8A8B89898988888785858585858582828281818180807F7E7D
+      7D7C7B7B7B79797878787676757474747272727171706E6E6E6D6D6D6C6C6B69
+      696A676867666666646464626261605F5F5F5F5D5D5B5B5B5A5A595858575757
+      5555555353535151524F4F4F4F4E4E4D4C4C4948484443444141424141403F3F
+      3F45444444444343444341424240403F3E3F3E3F3E3E3D3D3D3C3C3C3A3A3A3A
+      3A3A3A3938393738373637363635343435343434343434333433333333313231
+      3031303030303030303132323230303130303030302F2F2F2B2B2B2B2B2A2B2A
+      2A2A2B2A2A2A2A2A2A2A23232322222221222221212121222122222229282934
+      33343534353534343434353435343333332D2D2D2221211F1F1F1F1F1F1F2020
+      1F1F1F1F1F1E1E1F1F1F1E1F1E1E1E1E1E1E1E1E1E1D1E1D1E1E1E1D1E1D1E1E
+      1D1D1D1D1D1D1D1D1D1C1D1C1C1C1C1D1D1E1D24242426262626272628282829
+      29292A2A2A2B2B2B2121211A1B1B1A1B1C1B1B1B1A1A1B1A1A1A1A1B1A201E1F
+      1F20201F201F1F1F201F1F1F1F1F1E1F1D1E1D1D1D1E1D1D1D1D1D1C1D1D1D1E
+      1E1E1D1D1E1D1D1D1C1C1D1C1C1D1C1C1C1B1C1C1B1B1B1C1B1B1B1B1B1B1B1B
+      1B1B1B1B1A1B1B1A1A1A1A1A1A1A1A1A1A19191A1A1A1A19191A191919191919
+      1918191E1D1D1D1E1E1D1E1D1D1E1D1C1B1B1818181718181818181718171717
+      1717171717161716171717161616161616151516151516151515141415141514
+      14141212121111111011111111111011111818182525252626262929282A2B2A
+      2C2C2C2D2E2D1919190E0E0E0E0E0E0D0D0E0E0D0E0D0D0E0D0D0D0D0D0D0D0D
+      0D0D0C0D0D0C0D0C0C0C0C0C0D0C0C0C0C0C0B0B0B0B0B0B0C0C0C0B0B0C0B0B
+      0B0C0B0B0B0B0B0B0A0B0B0B0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A090A
+      1619160A09093030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303131313434343636363838383B
+      3B3B3B3B3B2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F373737393939393939393939
+      3939393939393939393939393939393939393939393939393939393939383939
+      3839383839383839383839383839383838383838383838383838383838383838
+      3838383838383838383838383838383838383838383838383838383837383837
+      3636362F2F302F2F2F2F2F2F2F2F2F3030303131313333334242424747474848
+      484A4A4A4A4A4A4A4A4A49494947474747474745454545454544444444444443
+      4343424242424242414141414141414141404040313131313131313131313131
+      3131313232323938383939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C
+      3C3D3D3D3E3E3E3E3E3D3F3F3E403F3F403F3F42414142424242424244434345
+      44444645454746464747474949494949494B4B4B4C4C4C4D4D4D4E4E4E505050
+      5151515252525454545555555757575858585A5A5A5B5B5B5D5D5D5B5B5B5B5B
+      5B5D5D5D5F5F5F6161616D6C6D7878787D7D7D8282828787877B7B7B6D6D6D6F
+      6F6F7070707272727474747575757777777979797A7A7A7C7C7C7D7D7D7F7F7F
+      8080808282828383838484848686868888888888888A8A8A8A8A8A8B8B8B8B8B
+      8B8D8D8D8E8E8E8F8F8F8F8F8F90909091919192929291929291929292929293
+      93939393939696969A9A9A9E9E9E9F9F9FA1A1A1A4A4A4A6A6A6A8A8A8A6A6A6
+      9696969394949493939494939393939393939292929292919090908F8F8F9191
+      909292919292919191919292928A8A8B88888887868685858584848485858588
+      88888787878585858483848282828080807E7E7E7E7E7E7B7B7B7A7A79787878
+      777576757474737272717171706F6F6D6D6D6B6C6C6A6A6A6768676667666464
+      646363636161615F5F5F5E5E5C5B5C5B5A5A5959575757565655545453535351
+      51514F4F4F4F4E4E4D4C4C4B4B4B4848484141414140413F3F3F3E3F3E414241
+      4443434242414040403F3F3F3E3D3D3E3E3E3D3C3C3A3A3A3B3B3A3A3B393838
+      3738383737353635343535353534353434343433323331323130313030313130
+      30303030303030303232313230303130302F2F2F2C2C2D2B2B2B2B2B2B2B2B2A
+      2B2A2A2A2A292727272222222221222121212221222322222322222B2B2B3434
+      3434333434343333333332323231313130303027272620201F1F1F1F1F1F1F1E
+      1F1F1F1E1E1F1F1E1F1E1F1E1E1E1F1E1E1E1E1E1E1D1D1D1E1D1E1E1D1D1E1D
+      1D1D1D1D1D1D1D1D1C2222222525262626272727272828282929292B2A2A2B2C
+      2C2324231B1B1C1B1B1C1B1B1B1A1B1B1B1A1B1A1A1B1F1E1E1F1F2020202020
+      1F1F1F1F1F1F1F1F1F1F1F1F1D1E1E1D1E1D1D1D1D1E1D1E1D1D1E1E1D1E1E1D
+      1D1E1D1D1D1D1D1D1C1D1C1C1D1C1C1C1B1C1C1B1B1B1C1B1B1C1B1B1B1B1B1A
+      1B1A1B1B1A1A1A1A1B1A1A1A1A1A1A1A1A1A191A1A1919191919191A1A1A1A1E
+      1E1E1E1E1E1D1D1E1E1D1D1A1A1A181818181818181718171717181718171717
+      1717171717171716161716161615151615161615151615151515141415141111
+      111112111111111111111010111717162423242525262626262828282A2A2A2A
+      2A2A2A29291D1D1D0E0E0E0E0E0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0D0C
+      0C0C0D0D0D0C0C0C0C0C0D0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B0B0B0B0B0B
+      0B0B0B0B0A0B0B0A0A0B0A0B0A0A0A0A0A0A0A0A0A0A0A0A0A090A0A1619190A
+      0A09303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303131313434343737373939393B3B3B3A3A
+      3A2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F39393839393939393939393939393939
+      3939393939393939393939393939393939393939393939393938393938393838
+      3938383938383938383938383938383838383838383838383838383838383838
+      383838383838383838383838383838383838383838383838373736362F2F302F
+      2F2F2F2F2F2F2F2F3030303131313333334242424848484B4B4B4D4D4D4F4F4F
+      4F4F4F4E4E4E4C4C4C4A4A4A4949494747474747474646464545454343434242
+      4241414141414140404040404040404039383930303031313131313131313131
+      31313535353939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C
+      3D3D3D3E3E3D3E3E3D3F3E3E403F3F403F3F4140404242424242424443434544
+      444645454746464646464848484949494A4A4A4B4B4B4D4D4D4D4D4D50505050
+      50505252525353535454545656565858585959595B5B5B5757575959595B5B5B
+      5B5B5B5F5F5F6B6B6B7575757B7B7B8080808585857878786A6A6A6B6B6B6D6D
+      6D6F6F6F7070707272727474747474747777777878787979797B7B7B7C7C7C7E
+      7E7E7F7F7F808080818181838383838383848484858585878787878787888888
+      8989898989898A8A8A8A8A8A8B8B8B8C8C8C8D8D8D8D8D8D8D8D8D8D8D8D8D8D
+      8D8F8F8F8F8F8F9292919797989D9C9D9F9F9FA1A1A19C9C9C90909090908F8E
+      8F8F8F8E8F8E8E8E8D8D8D8E8E8E8D8D8D8C8C8C8C8C8B8B8B8C8C8D8C8D8D8D
+      8D8D8D8E8D8E8D8D8E8888888383838282828080807F7F7F8080808484848383
+      8381818180807F7E7E7E7D7D7C7B7B7B79797978787877777674747474727372
+      71717070706E6D6D6C6C6C6A6A6A696969676666656465646464626262605F60
+      5F5F5F5D5D5D5B5B5A5A5A59585757565556545353535252515050504F4F4E4E
+      4E4D4C4D4B4B4A4949494747473F3F403E3E3E3E3D3E3C3B3C3F3F3F43424141
+      4140403F3F3E3E3E3E3E3D3B3B3B3A3B3B3A3B3B3A3A3B383838383837373736
+      363534363435363434353535333333323232313130303031303030303130302F
+      2F2F2F2F323131313231302F2F302F2F2F2F302C2B2B2B2B2B2B2A2A29292A29
+      29292A29292525252222222221212121222221222121212222222B2C2C323233
+      3333333332323231313131313030303030302D2D2D2626272021211F1F1F1F1F
+      1F1E1F1F1E1F1F1E1E1F1E1E1E1E1F1E1E1E1E1E1E1E1E1E1E1E1D1D1E1E1E21
+      21212626262727272827282828292A29292A2A2A2B2A2B2C2C2C2524251B1C1D
+      1B1C1C1B1B1C1B1A1C1B1B1C1A1A1C1E1E1D2020202020202020201F1F201F1F
+      201F1F1F1F1F1F1F1E1E1F1E1E1E1D1E1E1E1D1F1E1E1E1E1E1E1E1E1D1E1D1E
+      1D1D1D1D1C1D1D1C1D1C1C1D1B1B1C1C1C1C1B1C1B1C1B1C1B1B1B1B1B1B1B1B
+      1A1B1B1A1B1B1B1A1A1A1A1A191A1A1A19191A1A1A1A19191D1C1B1E1E1D1E1E
+      1E1E1E1E1E1D1E19191918181818181818171817181817171817171717171716
+      1617171717171616161615161515161515161515151415141515111112111212
+      1111111111111111111111121515152222222526252525252727272627262727
+      262726261E1E1E0E0F0F0E0E0D0E0D0E0E0D0E0D0E0E0E0E0D0D0D0D0D0D0D0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0B0B0B0B0B0B0C0B0B
+      0B0B0B0A0B0B0B0A0A0A0B0B0A0A0A0A0A0A0A0A0A0A0A0A19191609090A3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303232323535353737373939393B3B3B3737372F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F303A39393939393939393939393939393939393939
+      3939393939393939393939393939393939393939393839393839393839383839
+      3838393838393838393838383838383838383838383838383838383838383838
+      3838383838383838383838383838383838383737373030312F2F2F2F2F2F2F2F
+      2F3030303030303232324040404949494D4D4D50505053535354545451515149
+      49494E4E4E4D4D4D4B4B4B4A4A4A484848474747454545444444414141404040
+      3F3F3F4040404040404040403F3F3F3131313131313131313131313131313131
+      313938383939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C3D
+      3D3D3E3E3D3E3E3D3F3E3E403F3F403F3F414040424242424242434242454444
+      4645454545454646464848484949494949494B4B4B4C4C4C4D4D4D4F4F4F5050
+      505151515252525454545555555757575858585454545757575757575959595C
+      5C5C6B6B6B7373737979797E7E7E8383836D6D6D6767676868686A6A6A6B6B6B
+      6D6D6D6E6E6E7070707171717373737474747575757777777878787979797B7B
+      7B7C7C7C7D7D7D7E7E7E7F7F7F7F7F7F81818182828283838383838383838385
+      8585858585858585868686878787878787868686878787888888888788888888
+      8989898989898989898D8C8D9696969292928A8A8A8A8A8A8B8B8B8A8A8A8A8A
+      8A89898988888888888888888889898887878687868687878788888889898988
+      88888989898584847F7E7F7D7E7D7C7C7C7B7B7B7A7A7A8080807E7E7E7D7E7E
+      7B7B7B7A7A7A7A7979787778767776747474737372727271706F6E6F6E6E6D6C
+      6D6B6A6A6969696767676666666464646262626161615F5F5F5D5D5E5C5B5C5B
+      5B5B585858575757565655545353535353504F50504F4F4E4D4D4C4C4C4A4A4B
+      4848494748484747464040403E3D3D3B3B3B3B3A3B3A3A3A424141403F3F3F3F
+      3E3F3E3F3C3C3C3B3B3B3B3B3B39393938383838393837373736373536363536
+      3534363434343434333232313131313131313131313031302F2F3030302F302F
+      30303032323231313030302F302F2F2D2D2D2B2B2B2A2A2A2A2A292A29292A29
+      2929292823232322222222212222222221212121222122222228282933333332
+      33333231323131323030303030303030302F2F2F2F2F2F2A2A2A262626232323
+      2121211F1E1F1E1F1F1F1E1E2020202121212424232526262828282828282828
+      28292829282828292A2A2B2B2A2B2B2B2C2C2C2222221C1B1D1C1B1C1C1B1D1B
+      1B1D1B1B1C1B1B1B1C1B1D212021202121202020202020201F20201F1F1F201F
+      1F1F1F1F1F1E1F1E1E1F1E1E1E1E1E1F1E1F1F1E1E1E1E1E1D1D1E1D1D1E1E1E
+      1D1D1D1D1D1C1C1D1C1C1D1C1C1C1B1B1C1C1C1C1B1B1B1B1B1B1B1B1B1B1B1B
+      1A1B1B1B1A1A1A1B1A1A1A1A1A1A191A1A1A1A191E1D1E1E1D1D1E1E1D1D1E1E
+      1D1D1C1918191918181818181818181818181818181818171718171717171717
+      1717161616161616151617151516151515151515151511121211121111111111
+      1111111111111011121212121213202020242424252524242525252425242525
+      2424242020211111110E0D0E0D0E0D0D0E0D0D0D0E0D0D0D0D0D0D0D0C0D0D0C
+      0C0C0C0D0D0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0C0C0B0C0B0B0B0B0C0B0B0B
+      0B0B0B0B0B0A0B0B0B0A0A0B0B0B0A0A0A0A0A0A1916160A0A0A303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303333333535353737373A3A3A3C3C3C3535352F2F2F2F2F2F2F
+      2F2F2F2F2F3131323A3939393939393939393939393939393939393939393939
+      3939393939393939393939393939393939393939383939383938383938383938
+      3839383839383838383838383838383838383838383838383838383838383838
+      38383838383838383838383737373030312F2F2F2F2F2F2F2F2F303030303030
+      3232323F3F3F4949494D4D4D5252525555555858585656563737373030303030
+      303232323737373B3B3B3D3D3D4040404040404343434141413F3F3F3E3E3E3F
+      3F3F3F3F3F3F3F3F3F3F3F383738303030313131313131313131313131343434
+      3939393939393939393A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3C3D3D
+      3C3E3E3D3E3D3D3F3E3E3F3E3E403F3F41404042414142424243424245444444
+      44444545454646464747474949494949494B4B4B4C4C4C4D4D4D4E4E4E505050
+      5050505252525353535454545655555252525454545555555757575A5A5A6868
+      687171717676767C7C7C8080806A6A6A6363636565656666666868686969696B
+      6B6B6C6C6C6D6D6D707070707070727272737373747474767676777777787878
+      7979797B7B7B7C7C7C7B7B7B7D7D7D7E7E7E7E7E7E7E7E7E7E7E7E8080807F7F
+      7F80808080808080808080808081818182828282828283828383838382828383
+      8383848483848384838383848484848485858585858585858585858585858585
+      8484848384848483848383838283828282828383838484848484848484848585
+      848283827A797A7A797A7879787777777676767B7B7B7B7B7B7A7A7A77787877
+      777775767674757572727271717170706F6E6E6D6D6D6D6B6A6A6A6A6A686868
+      6666666465646263626161616060605E5D5E5D5D5D5B5B5B5A5A595858585657
+      555555555453535151515150504F4F4F4E4D4D4C4B4C4B4C4B49494948484747
+      47474645464140403B3B3B3A3B3A39393939393A3D3E3D3F3F3F3F3E3D3E3D3D
+      3C3B3B3B3C3B3A3A3A3939393838383738373636363636363636353536353534
+      3434323233323232313131313131313130302F2F302F302F2F2F2F302F2F2F31
+      3030303131313030302F302F2F2F2C2D2D2A2A2A2A2A2A292A29292A292A2929
+      2928292222222122222222212222212222222221212121222525253030303132
+      313131313031313030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C
+      2B2C2C2C2C2B2B2B2A2A2B2A2A2A2A2A2A2A292A292A2A29292A2A2A2A2A2A2A
+      2B2B2B2B2B2C2C2C2D2B2B2A1F1F1F1C1C1D1C1C1D1C1B1D1C1B1D1B1B1D1B1B
+      1D1C1C1C2021202120212121202121202121202020201F20201F201F201F1F1F
+      201F1F1F1E1F1E1E1F1F1E1F1E1F1E1E1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D1D
+      1E1D1D1D1C1C1D1C1C1D1C1B1C1C1C1C1C1C1B1B1B1B1B1B1B1B1B1B1A1A1A1A
+      1B1A1A1A1A1B1A1A1A1A1A1A1A1A1A191E1D1D1E1D1D1E1D1D1E1E1D1C1C1C19
+      1919181919181818181818181818181818171718171717171717171717171616
+      1716161716161616151615151615151515151514151213131111121112111111
+      111111111111111112121112121C1C1C23242324242424242424242524242425
+      24242323231212120E0D0D0E0E0D0E0D0D0D0E0D0D0E0D0D0D0D0D0D0C0D0D0D
+      0C0C0C0C0D0C0D0C0C0C0C0C0C0C0C0C0B0B0C0B0C0B0C0B0B0B0C0B0B0B0B0B
+      0B0B0B0B0A0A0B0A0A0B0A0A0A0B0A0A191919090A0A30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303333333535353838383A3A3A3C3C3C3232322F2F2F2F2F2F2F2F2F2F2F
+      2F3232323A39393A393939393939393939393939393939393939393939393939
+      3939393939393939393939393939393938393938393938393838393838393838
+      3938383938383838383838383838383838383838383838383838383838383838
+      383838383838383232322F2F2F2F2F2F2F2F2F3030303030303232323E3E3E48
+      48484D4D4D525252565656595959595959383838303030303030303030303030
+      3030303030303030303030303030303030303030303131313939393D3D3D3E3E
+      3E3E3E3E3F3F3F3F3F3F30303030303031313131313131313131313138373739
+      39393939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3B3D3D3C
+      3E3D3D3E3D3D3F3E3E3F3E3E403F3F4140404241414242424342424443434444
+      444545454646464747474848484949494A4A4A4B4B4B4D4D4D4D4D4D4F4F4F50
+      50505151515252525352525050505252525353535454545757576969696F6F6F
+      7474747A7A7A7F7F7F6363636060606262626363636464646666666767676868
+      686A6A6A6B6B6B6D6D6D6E6E6E70707070707072727273737374747475757576
+      76767777777878787878787979797A7A7A7979797A7A7A7A7A7A7B7B7B7B7B7B
+      7A7A7A7A7A7A7B7B7B7C7C7C7B7B7B7C7C7C7C7C7C7D7D7D7C7D7C7E7E7E7E7E
+      7D7F7E7F7F7F7F7F807F7F7F7F7F7F7F807F7F8180808080807F7F7F80808080
+      7F7F7F7F7F7F7F7F7E7E7F7E7E7E7D7D7E808080808180818181818181808080
+      7777777676757574747372727272727576757778777676767575757373737273
+      737171716F706F6D6D6D6D6D6C6B6B6A69696969686867666665656563626262
+      62626061605F5F5F5D5E5D5B5B5B5A5B5B595859585858565657555454535352
+      5151505050504F4E4E4D4C4D4C4C4B4B4A4A4849484747474646464545454344
+      444342423A3A3A3A39393838383737373A3A393F3F3E3D3D3D3D3B3C3C3B3B3B
+      3A3A393939383939373738373637363737373636363636353534343433323331
+      323132333232323131303130302F30302F2F302F2F30302F2E2E2E2F2F2F3131
+      3131303131313030302F2E2E2E2A2A2A2A2A2A2A292A2A2A2A2A2A2A2A2A2A28
+      28282222222222222222222121212121222121212121212222222B2B2B323232
+      3231323030303031303030302F2F2F2F2F2F2F2F2F2E2E2E2D2D2D2D2D2D2D2D
+      2D2B2B2C2C2C2C2B2B2B2B2C2B2B2A2B2B2B2B2C2B2B2B2C2B2D2D2C2D2D2D2D
+      2D2D2526261D1E1F1C1D1D1C1C1D1C1C1D1B1C1C1C1C1D1B1C1C1C1C1C202020
+      2121212021202121212121202021202020201F202020201F1F202020201F201F
+      1F1F1F1F1F1F1F1E1F1F1F1F1E1E1F1E1E1E1E1E1E1E1E1E1E1E1E1D1E1E1D1E
+      1D1D1D1C1C1D1C1C1D1C1B1C1C1C1C1C1B1C1B1C1C1B1B1B1B1B1A1B1B1B1A1B
+      1A1B1B1A1A1A1A1A1A1C1B1C1E1D1E1E1E1E1E1E1D1E1D1D1B1A1A1919191919
+      1818191819191818181918181817181817171717181718171717171717161617
+      1615161615161515161515151515151515151515131312121212111212111111
+      1010111011111111111111121919192323232323232323232424242425252424
+      242424241616160E0D0E0D0D0D0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C0C
+      0C0D0C0C0C0C0C0C0C0C0C0C0C0C0B0C0C0C0C0C0B0C0B0B0B0B0B0B0C0B0B0B
+      0B0B0B0B0A0B0B0A0B0B0A0A19191B0A0A0A3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303034
+      34343636363838383A3A3A3D3D3D2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      3232323838383939393939393939393939393939393939393939393939393939
+      3939393939393939393939393839393839393839383839383839383839383839
+      3838383838383838383838383838383838383838383838383838383838383838
+      3232322F2F2F2F2F2F2F2F2F3030303030303131313A3A3A4848484D4D4D5252
+      525757575B5B5B5D5D5D41414130303030303030303030303030303030303030
+      30303030303030303030303030303030303030303232323B3B3B3B3B3B3D3D3D
+      3E3E3E3F3F3F3837383030303030303131313131313131313434343838383939
+      393939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3B3C3C3B3D3D3C3E
+      3D3D3E3D3D3F3E3E3F3E3E403F3F403F3F424141424242424242434343444444
+      4545454545454646464848484949494949494B4B4B4C4C4C4D4D4D4E4E4E5050
+      505050505150504E4E4E4F4F4F5050505353535656566868686D6D6D72727278
+      78787D7D7D5C5C5C5D5D5D5F5F5F606060616161636363646464666666676767
+      6868686969696B6B6B6B6B6B6D6D6D6E6E6E7070707070707171717272727373
+      7372727274747474747475757574747475757575757575757576767675757575
+      7575757575757575767676767676767676777777777677787877797978797979
+      7A7A797A7A7A7979797A7A7A7B7B7B7B7A7A7B7B7B7B7B7B7C7C7C7C7B7C7B7B
+      7A7B7B7B7A7B7B7A7A7A7979797C7C7C7C7C7C7D7D7D7D7D7D7D7D7D73737371
+      727171707170706F6E6E6E7171727474737373737171717070706F6F6F6D6E6E
+      6D6D6D6B6C6B696A696869676766666665656463636262616161615F5F5F5E5F
+      5E5B5B5B5B5B5B59595958585757575755555454545452535251515050504F4F
+      4F4E4C4C4C4C4B4B4A4A4A494949484847464646454546444444434343424241
+      3B3B3B3839383736373637363637363D3D3C3D3C3B3C3C3C3B3B3A3A39393A39
+      3A38383837363736363736363637363735353534343433333233333132323233
+      323231303131313030303030303030302F2F2F2E2E2F2E2F2E2F313030313131
+      31313130302F2F2F2E2C2D2C2A2A2A2A2A2A2A2A2A2A2A292A292A2929292827
+      272222222222212122222222212121212121212121212120212223222C2C2B32
+      31323030313030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2E2D
+      2D2D2C2C2D2C2C2C2C2D2D2D2D2D2D2D2D2C2D2E2D2E2D2D2727271E1E1F1D1D
+      1D1C1D1D1D1D1D1C1D1D1C1C1D1C1C1D1C1C1D1C1C1D21212021212121212121
+      2121212121202021212120202021202020202020201F2020201F1F1F201F201F
+      1F1F1F1E1F1F1E1E1F1E1F1E1F1E1E1E1E1E1E1E1E1D1E1E1E1E1E1E1D1D1D1D
+      1C1D1C1C1D1C1C1D1C1B1C1C1B1C1B1B1C1C1B1B1B1B1B1B1A1B1A1A1B1B1A1B
+      1B1A1A1B1A1E1E1D1E1E1E1E1E1D1E1D1D1D1D1D191919191919191919191819
+      1819181818181818181818181818181818171817171717171716161716161716
+      1517151616151615151515151515151515151413131312111111121111111111
+      1111111111111111101111171717222222232322232322232324242424242424
+      2424241A1A1A0E0E0E0D0E0E0E0D0D0D0D0E0D0D0D0D0C0D0D0D0C0D0D0D0C0D
+      0D0C0C0C0C0D0C0C0C0C0B0C0C0C0B0C0B0B0B0B0C0B0C0B0B0B0B0B0B0B0B0A
+      0B0B0B0B0A0A0A0B1B1B190A0A0A303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303131313535353737
+      373939393B3B3B3D3D3D2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F343434393938393939393939393939393939393939393939393939393939
+      3939393939393939393939383939383938383938383938383938383938383838
+      383838383838383838383838383838383838383838383838383333332F2F2F2F
+      2F2F2F2F2F3030303030303131313A3A3A4747474C4C4C5151515656565B5B5B
+      5E5E5E4141413030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303636363A3A3A3B3B3B3D3D3D3E
+      3E3E3E3E3E303030303030303030313131313131313131383737383838393939
+      3939393939393939393A3A3A3B3B3B3B3B3B3B3B3B3B3B3A3C3C3B3D3C3C3E3D
+      3D3E3D3D3F3E3E3F3E3E403F3F403F3F41404042424242424242424244444444
+      44444545454646464747474949494949494A4A4A4B4B4B4D4D4D4D4D4D4F4F4F
+      4D4D4D4B4B4B4D4D4D4F4F4F5050505454546666666C6C6C7171717676767B7B
+      7B5959595B5B5B5C5C5C5D5D5D5F5F5F5F5F5F61616162626263636364646466
+      66666767676868686969696B6B6B6B6B6B6C6C6C6D6D6D6E6E6E6E6E6E6F6F6F
+      6F6F6F6F6F6F7070706F6F6F6F6F6F7070707070707070707070706F6F6F7070
+      7070707070707070707070707071717172727272727272727174747475757474
+      7373747474757576757675757575767676777777777777787878777777767676
+      76767675757675757576777678787879787879797979797A7272726D6D6D6C6D
+      6C6C6B6C6A6B6A6B6B6B7070706F6F6F6E6E6E6D6D6D6C6C6C69696A69696968
+      6767666766666564656463636262626161605F5F5E5E5E5C5C5C5B5B5B5A5959
+      5858585757585656565454545454545252525050504F4F4E4E4E4E4C4C4C4C4B
+      4B4A49494948484746464747474544454444444344444141414141413C3B3B37
+      36363637363635363434343A3A3A3D3C3C3B3C3A3B3A3A3A3A39393838383737
+      3737373737373635363535363435353433343333333333323333313231313230
+      313130303131313030302F2F2F2F2F2F2E2E2E2E2F2F2E2E2E3131313030302F
+      302F2F302F302E2F2D2B2C2B2A2A2A2A2A292A2A2A2A2A2A292A292A29282828
+      2323232222222122222122212121222121212121212121212020212322232B2A
+      2A2E2F2F3030303030303030302F2F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2F2F2F
+      2F2F2E2E2F2E2F2E2E2E2E2C2C2C2627271F1F1F1E1D1E1D1D1D1D1D1D1D1D1D
+      1D1D1D1C1D1D1C1C1D1C1D1D1D1D1E2021212122212222212221222121212121
+      2121212121212021212121202020202020202020202020201F1F1F1F1F1F1F1F
+      1F1F1F1E1F1F1F1F1F1F1F1E1E1E1E1E1E1E1E1E1E1E1E1E1E1D1D1D1D1E1D1D
+      1D1C1C1D1C1C1C1C1C1C1B1B1C1B1B1B1B1C1B1B1B1B1B1A1B1B1B1A1A1A1B1C
+      1B1E1F1E1E1E1E1E1E1E1E1D1E1C1D1C19191A19191919191919191819181919
+      1919181819181818181818181817181717181717181717171616171616171616
+      1616151616151515151515151515141514151414131112121211111111111110
+      1111111111111111101115151621212123232322232224242423242424242424
+      24241D1D1D0F0F0F0E0E0E0E0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0D0C0C0C0C
+      0C0C0D0D0C0C0C0C0C0C0B0C0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0A0A0A0B
+      0B0B0B0A1B1B190A0A0A30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030323232363636373737393939
+      3B3B3B3B3B3B3030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F3035353539393939393939393939393939393939393939393939393939
+      3939393939393938393938393938393838393838393838393838393838383838
+      3838383838383838383838383838383838383534342F2F2F2F2F2F2F2F2F2F2F
+      2F3030303131313636364747474C4C4C5050505656565B5B5B5E5E5E48484830
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303131313838383A3A3A3B3B3B3D3D3D3E3E
+      3E38373830303030303030303031313131313134343438383838383839393939
+      39393939393939393A3A3A3B3B3B3B3B3B3B3B3A3B3B3A3C3C3B3D3C3C3D3C3C
+      3E3D3D3E3D3D3F3E3E403F3F403F3F4140404241414242424242424343434444
+      444545454545454646464848484949494949494B4B4B4C4C4C4D4D4D4B4B4B4A
+      4A4A4A4A4A4C4C4C4E4E4E5555556464646A6A6A707070757575707070575757
+      5757575959595A5A5A5B5B5B5C5C5C5E5E5E5F5F5F6060606161616363636363
+      636565656666666767676767676868686A6A6A6969696A6A6A6A6A6A6B6B6B6B
+      6B6B6B6B6B6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6969696A6A6A
+      6A6A6A6A6A6A6B6B6B6B6B6B6C6C6C6C6C6C6D6D6D6D6E6E6E6E6E6E6F6E706F
+      7070707070707172727271727170707171727172727272727272717271717170
+      70707171717272727474747575747575757676767171716A6A6A686969696969
+      6767666667666D6D6D6C6C6C6B6C6B6969696969696666676666666464646363
+      63626261616160605F5F5F5E5E5D5C5C5B5B5B5A595A59585958575857565654
+      54545454545252525151515050504F4F4F4D4D4C4C4C4B4B4B4A4A4A49484848
+      4846474646464444444444444342434141424040404040403E3D3D3536363636
+      363435343435343535353B3B3A3B3A3A393A393A393839373738383738373736
+      3636363636343435333434343333333333333433323231323230313230323130
+      323130302F2F2F2F302F2F2F2F2F2F2F2E2F2E2E2E2F2E2E3030302F30303030
+      3030302F2E2F2E2B2B2B2A2B2A2A2A2A292A2A292A2A2A29292A292A29282924
+      2424222222222222212121212121222121212121212121212121202020202020
+      2323232828282A2A2A2C2C2B2E2D2E3030303030303030302E2E2E2B2A2A2829
+      292625252020221E1E1E1E1D1E1E1D1E1D1D1D1E1E1E1D1D1D1D1D1D1D1C1D1C
+      1D1D1C1D1D1F1F20222222222222212222222222212122212121212122212121
+      212121202121212020202120202020201F20201F2020201F1F1F201F1F1F1F1F
+      1F1F1F1F1F1E1F1F1F1F1F1E1E1E1E1E1E1E1E1E1D1D1D1D1E1E1E1D1E1D1C1D
+      1C1C1D1C1C1C1C1B1C1C1B1C1B1B1B1B1C1B1B1B1B1B1B1B1B1B1E1C1D1F1E1F
+      1E1E1E1E1E1E1E1D1E1B1A1A191A1A1919191919191919191919191818181819
+      1818191818181818181718181717171717171717161717161617161616161516
+      1515161516151515151615151515141515141414121212111111121211111111
+      1110111010111010111212142020202323232323232423232324232425242424
+      242020200F0F0F0E0E0E0D0D0E0E0D0E0D0D0D0D0D0D0D0D0D0C0D0D0C0D0D0D
+      0C0C0C0C0C0C0C0C0C0C0B0C0B0C0B0B0B0C0B0C0B0B0B0B0B0B0B0B0B0B0B0B
+      191B1B0A0B0B3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303434343737373838383A3A3A3C3C3C3D
+      3D3D3E3E3E3636372F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F3030303535353939393939393939393939393939393939393939393939
+      3939393839393839393839383839383839383839383839383838383838383838
+      38383838383838383838383534342F2F2F2F2F2F2F2F2F2F2F2F303030313131
+      3636364646464B4B4B5050505555555A5A5A5E5E5E4D4D4D3030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303535353939393A3A3A3B3B3B3E3E3E3E3E3E
+      3131313030303030303030303131313131313837373838383838383939393939
+      393939393939393A3A3A3B3B3B3B3B3B3B3B3A3B3B3A3B3A3A3C3B3B3D3C3C3E
+      3D3D3E3D3D3F3E3E3F3E3E403F3F403F3F414141424242424242424242444444
+      4444444545454646464747474848484949494A4A4A4B4B4B4848484848484949
+      494A4A4A4B4B4B5353536363636969696E6E6E7474746E6E6E54545455555557
+      57575757575959595A5A5A5B5B5B5C5C5C5D5D5D5F5F5F5F5F5F616161616161
+      6363636262626464646565656565656565656565656565656767676666666565
+      6566666665656565656565656565656565656564646465656564646465656565
+      6565656565656565666666666666676767676867696968696A6A6A6A6A6B6A6B
+      6B6A6B6C6B6B6D6D6C6D6D6D6D6D6C6E6D6D6E6E6E6D6D6D6E6E6E6D6D6D6C6C
+      6C6D6C6D7171717070707070707272726F6F6F65656565656564646464646463
+      636369686969696967686767676766666665656563626362626261606060605F
+      5F5F5E5E5D5D5C5B5B5B5A5A5A59595858585757565455555454545353525151
+      514F4F504F4F4F4D4D4D4D4D4D4B4B4B4B4B4949494848484848464646454544
+      44444443434242424141414040403F3F3F3F3F3F3E3E3E373636353534333434
+      3332333131323B3A393A3A393939383938383938383837373736373737363535
+      35343434343433343434343334323333323232323231323231323130312F3031
+      2F2F302F2F2F2F2F2E2F2F2F2E2E2E2E2D2D2E2E2F2F2F303031303030303030
+      30302F2E2E2E2B2B2C2A2A2B2A2A2A292A2A2A2A292A2A2A2A2929292A292727
+      2722222221222122212222212221212221212121212021212020212021212021
+      20202020201F2020201F201F1F1F1F20201F1F201F1F1F1F1F1F1F1E1F1F1E1F
+      1E1F1F1E1F1E1E1E1E1D1D1E1E1E1E1D1D1D1D1D1E1D1D1D1D1D1D1E1E1E2120
+      2123222223222222222222222222222221212122212122212122212122212121
+      2021212020202020202021202020201F1F1F20201F20201F1F201F1F1F1F1F1F
+      1F1F1F1F1F1E1E1E1E1F1E1E1E1E1E1E1E1E1D1E1E1E1E1D1E1D1D1D1D1C1D1C
+      1C1D1C1C1C1B1C1C1B1B1C1B1B1B1B1B1B1B1B1C1B1B1F1E1D1F1E1E1F1F1E1E
+      1E1E1E1E1D191A1919191A1A191A1A1919191919191919181819191819191819
+      1818181818181818171817171817171716161716161716161616161616151516
+      1515151515151615151515151515141515141512131212111111111111111111
+      10111111111111111111121C1C1C232223232223232323242323242424242424
+      2322231212120E0D0D0D0D0E0D0D0E0D0D0D0D0C0D0C0C0C0C0D0D0D0C0C0C0C
+      0C0C0C0C0B0C0C0B0C0C0B0C0B0B0B0C0C0C0B0B0B0C0B0B0B0B0B0B1B1B1B0A
+      0B0B303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303434343838383A3A3A3B3B3B3C3C3C3E3E3E3F3F
+      3F4040403D3D3D3333332F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F303030353535393939393939393939393939393939393939393939
+      3939383939383938383938383938383938383938383838383838383838383838
+      383838383736362F2F302F2F2F2F2F2F2F2F2F3030303131313333334646464A
+      4A4A5050505555555959595C5C5C4F4F4F303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303131313838383838383A3A3A3B3B3B3D3D3D3939392F
+      2F2F2F2F2F2F2F2F2F2F2F303030333333383838383838383838393939393939
+      3939393939393A3A3A3A3A3A3B3B3A3B3B3A3B3A3A3B3A3A3C3B3B3D3C3C3E3D
+      3D3E3D3D3F3E3E3F3E3E3F3F3F3F3F3F3F3F3F40404041414141414142424243
+      4343444444444444454545464646484848484848454545454545464646474747
+      4949495655566262626767676C6C6C7171716464645151515252525252525454
+      545555555656565757575858585959595A5A5A5B5B5B5D5D5D5E5E5E5E5E5E60
+      60605F5F5F616161616161616161616161626262626262616161616161616161
+      6060606161616060605F5F5F5F5F5F5F5F5F5E5E5E5E5E5E5F5F5F5F5F5F6060
+      6060606060606061616162626263636363646465656465656466666567666767
+      6768686767676767676768686868696969696969696969686867696869696968
+      6C6C6C6C6C6C6C6D6C6D6D6E6D6D6D616161616161605F605F5F5F5E5D5E6363
+      636565656564646463646161616161615F5E5F5E5E5E5D5E5D5C5C5C5A5B5A5A
+      5A5A595858575757575656545454535353525251505151504F4F50504F4D4D4D
+      4C4C4C4C4C4C4A4A4A4948494747474747474545444444434444434342424141
+      414040403F3F3F3F3F3F3E3E3F3D3E3D3C3C3C3A3A3A34343332323332323231
+      3231343434383938383837383837373737373635353435353435343333333333
+      33323333323331323131313232333232323232323131313030313030302F3030
+      2F302F302F2F2F2E2E2E2E2E2E2D2D2E2D2D2D2F2F2F3030303030302F302F30
+      302F2F2F2F2B2B2B2A2A2B2A2A2A292A2A29292A29292A292A2A292A29292828
+      2423252221222221212121212121212121212121212121212121212020212020
+      202020202020201F1F1F1F201F201F1F1F1F1F201F1F1E1F1F1F1F1E1F1F1F1E
+      1E1E1E1F1E1E1E1E1D1E1E1E1E1E1E1E1D1E1D1D201F20232323232323222323
+      2223222323232222222122222121222222222321212222212221212221212120
+      2120202020212020202020202120201F1F2020201F1F1F1F1F1F1F1F1F1F1F1F
+      1F1F1E1F1E1E1E1F1F1F1E1E1E1E1E1E1E1E1E1D1E1E1E1E1D1D1D1D1C1D1C1C
+      1C1C1C1D1C1C1C1C1C1C1C1B1B1B1B1D1D1D1F1F1F1F1F1F1F1E1F1F1E1F1C1C
+      1C1A1A1A1A1A1A1A1A1A1A19191A1919191A1919191919181918191919181918
+      1818181817181817181717171717181616171716171616161616161516161615
+      1516151516161515151515151515151415151212121112111111111011111111
+      111010111110111111121A1A1B23222323232224232323232425242424242423
+      23231616160E0E0E0E0D0D0D0E0D0D0D0D0C0D0D0D0C0C0D0D0C0D0D0D0D0C0D
+      0C0C0C0C0C0C0C0C0C0C0C0B0C0C0B0B0B0B0B0B0B0B0B0B1B1B1B0B0B0B3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303131313737373B3B3B3C3C3C3D3D3D3E3E3E3F3F3F3F3F3F
+      3F3F3F4040403B3B3B3131312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F30303035353539393939393939393939393939393939393839
+      3938393938393838393838393838393838393838383838383838383838373636
+      2F2F302F2F2F2F2F2F2F2F2F3030303131313333334343434949494E4E4E5353
+      535858585C5C5C5555553232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F3333333838383939393A3A3A3C3C3C3E3E3E3030302F2F
+      2F2F2F2F2F2F2F2F2F2F30303036363637373737373737373738383838383838
+      38383838383939393939393A3A393A3A393A39393A39393B3A3A3C3B3B3C3B3B
+      3D3C3C3D3C3C3E3D3D3E3D3D3E3E3E3F3F3F4040404141414141414141414343
+      4343434344444445454545454547474743434343434345454545454547474753
+      52535E5E5E6464646A6A6A6E6E6E5F5F5F4E4E4E4F4F4F505050525252525252
+      5353535454545656565656565757575959595A5A5A5A5A5A5B5B5B5B5B5B5D5D
+      5D5C5C5C5D5D5D5D5D5D5D5D5D5E5E5E5D5D5D5C5C5C5C5C5C5C5C5C5B5B5B5B
+      5B5B5A5A5A5A5A5A5959595959595959595959595959595A5A5A5A5A5A5A5A5A
+      5B5B5B5B5B5B5C5C5C5D5D5D5E5E5E5E5E5E5F5E5F6060606160616262626363
+      6363626364646464646364646464646465656565656464646463626268686868
+      68686868686869686A696A5F5F5F5E5E5E5D5D5D5B5B5B5B5B5B5C5D5C616061
+      6061615F5F605E5E5E5E5E5E5D5D5D5C5C5C5B5A5B5A59595959585858575756
+      555554555453535252525151515050505050504D4D4C4B4B4C4B4B4B4A4A4A4B
+      4B4A4848484848484647464544434544444443424241414241413F3F3F3F3F3F
+      3F3F3E3E3E3D3D3C3C3B3C3C3B3B3B3A3939313131313131303030302F303131
+      3037373738383838383737373636363535353434333434343434333333333332
+      323232323232313232313231313130303030302F30302F2F302F302E2F2F2F2E
+      2E2D2D2D2D2D2C2D2D2D2D2D2D2D2D2C2D2D302F2E2F2F2F2F2F2F2F2F2F2E2E
+      2E2D2E2E2B2A2A29292929292929292929292929282828282828282828282827
+      2627242324222221212121212221212121212121202021212121202121202020
+      20202020202020201F201F2020201F1F1F1F1F1F1F1F1F1F1E1F1F1F1E1F1F1E
+      1E1E1E1E1E1E1E1E1E1E201F2123232223232323242323232323232222222323
+      2223222222222322222222232322222322222222222222222121222121212121
+      2021202021202021202020202020202020201F20201F201F1F1F201F1F1F1F1F
+      1F1E1F1F1F1F1E1E1E1E1E1E1E1E1E1E1E1D1E1E1E1D1D1D1D1D1D1C1D1C1C1D
+      1C1C1D1B1C1C1C1B1C1C1C1F1E1F1F1F1E1E1F1E1E1E1F1E1F1E1B1B1B1A1A1A
+      1A1A1A1A1A1A1A191A1A191A19191A1919191819191919181918191918181818
+      1818181718171717171717161718171717161617161616161616151616151515
+      1515161515151515151515151414151415121312111211111111101111111011
+      1010111011111010111818182222212323222323222423242424242424242424
+      241918180E0E0E0D0D0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0C0D0D0C0C0C
+      0C0C0C0C0C0C0C0C0C0C0B0B0C0C0B0C0C0B0B0B1B1B1B0A0B0B303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303434343C3C3C3D3D3D3E3E3E3F3F3F3F3F3F3F3F3F3F
+      3F3F4040404040403837383030302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F3030303535353838383939393939393939393939383939
+      383938383938383938383938383938383838383838383838383030302F2F2F2F
+      2F2F2F2F2F3030303131313333334141414949494D4D4D5252525858585B5B5B
+      5555553232322F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F3030303636363838383939393B3B3B3C3C3C3939392F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F3232333737373737373737373737373737373838383838
+      383838383838383939383A3A393A39393A39393A39393B3A3A3B3A3A3C3B3B3D
+      3C3C3D3C3C3E3D3D3D3D3D3E3E3E3E3E3E3E3E3E3F3F3F404040414141424242
+      4343434444444444444545454141414141414141414242424545455252525D5D
+      5D6363636868686C6C6C5959594B4B4B4C4C4C4D4D4D4E4E4E4F4F4F50505051
+      5151515151535353545454555555555555565656585858585858585858595959
+      5959595959595959595959595858585858585757575757575757575656565555
+      5555555555555555555555555554545454545455555555555555555556565656
+      56565656565757575858585959595A5A5A5B5B5B5C5C5C5D5D5D5D5E5E5D5E5D
+      5F5F5E60605F60616060606060606060606060605F5F5F5F6262626464646465
+      656665656766676060605A59595959595858585657575656565E5F5F5D5D5D5C
+      5C5D5C5B5B5A5A5A5A5A5A585858575757565656565655555454535352525152
+      5250504F4F4F4F4F4F4D4D4D4C4B4B4B4B4B494A4949494A4747474847474746
+      46454545444443434342434242414140414140413F3F403F3F3E3E3E3D3D3D3C
+      3B3C3C3B3B3B3B3C3A3B3B393A3A34343430303030302F2F302F2F2F2F343434
+      3636373636363535353535343535343534343433343332323332323232323232
+      3232323231323230303030303030303030302F2F302F30302E2E2E2D2E2D2D2E
+      2D2E2D2D2D2D2D2D2D2C2C2C2C2C2C2D2C2F2F2E2F2F2F2F2F2F2F2E2E2E2E2E
+      2F2D2D2B2B2C2929292929292929292829282828282928282828282828282828
+      27272727252425222221202021202020201F1F20212020212020212021202020
+      2020201F201F1F1F201F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1F1F1E1E201F20
+      2222222424242424242424242423232424242324232323232323232323222223
+      2223222223232423232323232323222223222222222222212121212121212120
+      212020202120202021202020201F202020201F201F1F1F201F1F1F1F1F1F1F1F
+      1E1F1F1F1E1F1E1E1F1E1E1E1E1D1E1E1D1E1E1E1E1D1E1D1D1D1C1D1C1C1D1C
+      1C1D1C1C1D1D1C201E1E1F1E1E1F1F1E1E1F1E1D1D1D1A1A1B1A1B1A1A1A1A1A
+      1A1A191A191A1A19191919191919191919191919191919191818191818181817
+      1818171817171816171817171717161716171616161616161515151516151616
+      1516151515151515151514151515151413131411111111111111111110101111
+      1011101011101111151515222222232323232323242323242424242424252524
+      1E1E1D0F0F0F0D0E0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0C0C0C0C0C0C
+      0C0C0C0C0C0C0C0C0B0B0C0C0C0C0C0B1B1B1E0B0B0B30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303131313838383E3E3E3F3F3F3F3F3F3F3F3F3F3F3F3F3F
+      3F4040404040403F3F3F3636372F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F30343434383837393939393938393938393838
+      3938383938383938383938383938383838383130312F2F2F2F2F2F2F2F2F3030
+      303030303232323F3F3F4949494D4D4D5252525757575A5A5A5A5A5A3535352F
+      2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E3232323737373838383939393B3B3B3C3C3C2F2F2F2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E353535363636363636363636363636363636373737373737
+      3737373737363838373837373938383938383938383938383A39393B3A3A3C3B
+      3B3C3B3B3C3B3B3C3C3C3C3C3C3D3D3D3D3D3D3E3E3E40404040404040404041
+      41414242424343433E3E3E3F3F3F4040404040404343435252525C5C5C606060
+      6565656A6A6A5050504848484848484949494B4B4B4C4C4C4D4D4D4D4D4D4E4E
+      4E50505050505051515152525253535354545454545454545455555555555555
+      5555555555545454535353545454545454535353525252525252525252515151
+      5050505050505050505050505050505050505050505050505050505151515252
+      525252525353535454545555555656565757575858585959595A5A5A5B5B5B5A
+      5B5A5C5B5C5C5B5B5C5B5B5B5B5C5B5B5B5B5B5B5D5D5D605F60616061616061
+      6262615E5F5F5655565454555454545353535252525959585A595A5959595859
+      58565656575657555555545454535352525252525251504F4F4E4E4E4E4D4D4D
+      4C4C4B4B4B4A4A4A494949494849474746474746454646454444434343434443
+      4343434242414141403F3F3E3F3E3E403F3F3D3D3C3B3C3C3B3B3B3B3A3B3A3A
+      393839393839393939383636362F2F2F2E2E2E2D2E2E2E2E2D2E2E2E34343535
+      3535343434343433343433343332323232323131323231323131313131313031
+      2F3030302F2F302F2F2F2F302F2F2F2F2F2E2E2E2E2E2E2D2E2E2D2E2D2E2E2D
+      2E2D2D2D2C2C2D2D2C2D2D2D2D2D2C2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2D2D2C2D2C292929292929292829282829282828282929282828282828282828
+      272727272727272726242425232223212122202020201F1F2020212020202020
+      20201F1F2020201F201F1F1F2020202022212222232325242425242524252425
+      2424242424232423232324232324232324232323232323222323242324242424
+      2323232323232322232323222322222321212221212221212121212121212021
+      2020202020202020202020202020201F1F201F1F1F1F1F1F1F1F1F1F1F1F1F1E
+      1F1F1E1E1F1E1E1E1E1E1E1E1E1D1E1D1E1D1E1E1D1D1D1D1D1C1D1C1C1D1C1C
+      1F1F1F1F1E1F1F1E1E201E1F1F1F1E1C1C1B1A1A1A1A1A1A1A1B1B1A1A1A1A1A
+      1A1A1A191A1A1A19191919191919191919181919191819181818181818181718
+      1717181717171716171716171617171617161616161616151616151515151615
+      1515151515151514151415141514141313131111121110111111111111111010
+      1110101110111112121320202022232222232223232324242427272729292925
+      24250F10100E0E0D0D0D0D0D0E0D0D0D0D0D0C0D0C0C0C0C0D0D0C0C0C0C0C0C
+      0C0C0B0C0C0C0C0C0B0C0C0B1E1B1B0C0B0B3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303333333B3B3B3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F
+      3F3F3F4040404040403E3E3E3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F33323336363639393839393839383839
+      38383938383938383938383130312F2F2F2F2F2F2F2F2F303030303030323232
+      3E3E3E4848484C4C4C5151515656565A5A5A5959593737372E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2F2F2F3434343636363737373939393A3A3A3636362E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E30303034343435353535353535353535353535353536363636363636
+      36363737363737363736363837373837373837373837373938383938383A3939
+      3B3A3A3A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3F3F3F3F3F3F3F3F
+      3F4040403B3B3B3C3C3C3D3D3D3E3E3E4040405151515959595D5D5D63636367
+      67674D4D4D4646464646464747474747474848484A4A4A4B4B4B4C4C4C4D4D4D
+      4D4D4D4E4E4E4F4F4F4F4F4F5050505151515050505151515151515151515050
+      505151515050504F4F4F4F4F4F4E4E4E4E4E4E4D4D4D4D4D4D4D4D4D4D4D4D4C
+      4C4C4C4C4C4C4C4C4B4B4B4B4B4B4C4C4C4C4C4C4D4D4D4E4E4E4E4E4E4F4F4F
+      5050505151515151515252525353535454535454545555555656565757565758
+      575757575757575757575656575656565757575B5B5B5B5B5B5D5D5D5E5E5D5D
+      5E5D515051515252504F4F4F4F4F4F4F4F535353565656565556555455535353
+      5453535151515151515050504F4F4E4E4E4D4D4D4D4B4B4A4C4B4B4A4A494848
+      484848484646464646454545454443444243424241414242424141414141413F
+      3F3E3F3F3E3F3E3D3E3D3D3C3B3C3C3C3B3B3C3B3B3B3B3A3A3A393939393939
+      3737383636373636363131312E2E2E2D2D2D2D2D2D2C2C2C3130313333333334
+      333333333333333333323333313232323232313332313130302F302F30303030
+      30302F302F2F302F2F2F302E2E2E2E2E2D2E2E2D2E2D2C2E2D2D2D2C2C2D2C2C
+      2C2C2C2C2C2C2C2C2B2B2C2B2B2B2C2E2E2D2E2E2E2E2E2D2D2E2E2D2E2D2D2D
+      2D2C2C2C29292928282828282827282727272728272727272727272727272726
+      2626282727282727272727272726272726272625242425242524252525252525
+      2524252726262625262626252625252525252525252424242525242425252524
+      2524242424232423232424242324232324232324242424242323242324242423
+      2324232323232323232222232221222121222121222121212121212021202121
+      2021212020202020202020202020201F201F1F1F1F1F1F1F1F1F1F1F1F1E1E1F
+      1E1E1E1E1E1E1E1E1E1E1E1E1D1E1E1E1E1E1D1D1D1D1D1D1C1E1D1D1F1F1F1F
+      1F1E1F1F1F1F1E1E1E1E1E1B1B1B1B1B1B1B1B1B1B1A1A1A1A1A1A1A1A1A1A1A
+      1A1A1A1A1A1A1919191A1A191919191919191918181818181818171818171817
+      1718171718161717171717161616161616161615161616151615161515151515
+      1515151415151515141514151515141314121112111111111111111111111011
+      1010111010111212131C1C1C2322222324242525252828282B2B2B2E2E2E2D2D
+      2E1414150E0E0E0D0D0D0D0D0D0D0C0D0D0C0C0D0C0D0C0D0D0C0D0C0C0C0C0C
+      0C0C0C0B0C0B0C0C1B1B1B0B0B0B303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303636363E3E3E3F3F3F3F3F3F3F3F3F3F3F3F3F
+      3F3F4040404040404040403E3E3E3535352F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3131313434343838383938383938
+      383938383232322F2F2F2F2F2F2F2F2F3030303030303232323B3B3B4747474C
+      4C4C5151515555555959595B5B5B3737372E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D31
+      31313535353636363737373939393A3A3A2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D3333333434343535353535353535353535353535353636363636363636
+      3536363536353537363638373738373738373738373738373738383839383839
+      39393939393939393A3A3A3B3B3B3C3C3C3C3C3C3C3C3C3D3D3D3E3E3E3D3C3C
+      3B3B3B3B3B3B3B3B3B3C3C3C3E3E3E5252525656565B5B5B6060606565654343
+      434343434343434343434545454646464747474747474848484A4A4A4A4A4A4B
+      4B4B4C4C4C4C4C4C4C4C4C4D4D4D4D4D4D4D4D4D4D4D4D4D4D4D4C4C4C4D4D4D
+      4C4C4C4B4B4B4A4A4A4A4A4A4A4A4A4A4A4A4949494949494848484848484949
+      494848484848484848484848484949494949494949494A4A4A4A4A4A4B4B4B4C
+      4C4C4D4D4D4E4E4E4E4E4E4E4F4F505050505051525151535353525252525252
+      535353525352535453525252525252575757575858595959595959595A5A5151
+      514D4E4D4D4D4D4C4B4C4A4A4A4B4B4B5252525252525150515050505050504E
+      4E4E4D4D4D4D4C4C4C4C4B4B4B4A4A4A49494949484747474747464545454545
+      4445444343434242424040404040404040404141403F40403E3E3E3E3E3D3D3D
+      3C3C3C3C3C3B3B3B3B3B3B3A3A3A3A3938383938383838383737373736353536
+      35363636353434342C2C2C2C2C2C2B2A2B2A2A2A2A2A2B333232333334333433
+      323233323231323231313131323130302F2F312F3030302F2F2F2F2F2E2F2F2F
+      2E2F2F2F2E2D2D2D2D2D2D2D2D2D2D2C2C2C2C2D2D2C2C2B2B2C2B2B2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2D2D2D2D2D2D2D2D2D2C2D2C2D2C2C
+      2C2B2B2A2A2A2828282827282828282728282727272727272727272727272726
+      2626272626262627272627272627262626262626252526262527262627262627
+      2526262526262525262526252625252525252425252424242424242424242424
+      2424242424232423232424242424242424242424242424242424242423232324
+      2323232223222223222123212122212122222122212121212121212120202020
+      202020202120202020201F1F20201F1F1F20201F1F1F201F1F1F1F1F1F1E1F1E
+      1E1E1F1E1F1E1E1E1E1E1E1E1D1D1E1E1D1E1E1E1D201F1F1F1F1F1F1F1F1F1F
+      1F1F1E1E1C1D1C1B1C1B1B1B1B1B1B1B1B1A1B1A1B1A1B1B1A1A1A1A1A1A1A1A
+      19191A191A1A1919191919191919191818191818191817181818181717181717
+      1817171716161716171616161616161616161615151616161515151516161515
+      1615151515141514151414151414141412121211111111111111101110101110
+      10111010111111111A1A1A2525242626262B2B2A2E2E2E323232343535303031
+      0E0D0D0D0D0E0E0D0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0D0C0C0D0C0C0C0C0B
+      0B0C0B0C1E1E1E0C0C0C30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303131313838383E3E3E3F3F3F3F3F3F3F3F3F3F3F
+      3F4040404040404040404040403E3E3E3535352F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F333233363535323232
+      2F2F2F2F2F2F2F2F2F3030303030303131313939394646464B4B4B5050505555
+      555959595A5A5A3F3F3F2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D3333
+      333535353535353737373838383535352B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2E
+      2E2E333333333333343434343434343434343434343434343434353534353534
+      3534343534343635353635353736363736363736363736363837373837373838
+      383838383838383939393A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3B3B3B38383838
+      38383A3A3A3B3B3B3C3C3C4F4F4F5454545959595E5E5E6262623F3F3F404040
+      4141414141414242424343434444444444444646464646464646464747474848
+      484848484949494949494949494949494A4A4A4A4A4A49494949494948484848
+      4848474747474747464646464646464646454545444444454545444444454545
+      4545454545454646464646464646464646464646464747474747474848484949
+      494A4A4A4B4B4B4C4C4C4D4D4C4C4D4D4D4D4D4E4E4E4D4D4D4E4E4E4F4F4F4F
+      4F4F4F4F4F4E4E4E4F4F4F515151545555555555565656565656525151494A4A
+      4848484848484747474646464F4F4E4E4E4E4D4C4C4C4C4C4C4C4C4C4C4B4A4A
+      4B4B4A4A49494849484748484747464646454444444444444343434241414241
+      41414040403F3F3F3F3F3F3E3E3E3D3D3D3D3D3D3C3D3C3B3B3B3B3A393B3B3A
+      3939393A38393938373838383837373637363535353535353534353534353334
+      333333342D2D2D2B2B2B2929292929292929292C2C2C32313232313131313131
+      313131313031313030302E302F2E2F2E2E2F2E2E2F2E2F2E2E2E2E2E2E2D2D2C
+      2C2C2C2D2C2D2D2D2D2D2D2D2D2D2C2D2D2C2D2D2B2C2B2C2C2B2B2C2B2B2B2B
+      2B2B2B2B2B2B2A2A2A2A2A2A2A2C2B2B2D2D2D2D2C2D2C2C2C2C2B2B2B2B2B2B
+      2B2B2B2B2B2A292A272828272626272626262726262626262626272726262726
+      2627262626262626252727262726252626252726252626252625252726262626
+      2626262626252526252526262525252525252525252525242524242425252425
+      2525252425252524252424242425242424232424242324242424232423242323
+      2323222322222322212222212222212222212221212121212121212021212120
+      202020202020202020201F1F201F201F1F1F201F1F1F1E1F1F1E1F1E1F1F1F1F
+      1E1E1F1E1E1E1E1E1E1E1E1D1E1E1E1E1F1F1F1F201F1F1E1F1F1F1F1F1F1D1D
+      1B1C1B1C1B1B1C1B1B1B1B1B1B1A1B1A1A1B1A1B1A1A1B1A1A1A1A1A1A191A1A
+      1A1A19191A1A1919191919191918181818181719181719171819181718171717
+      1716171616161717161617161616161616151516161516161515161615151516
+      1415151515141414141514141415141213121011111111111011111110111010
+      11101011111112191A1A2726262C2C2D3232323636363939392929290E0E0D0D
+      0E0D0E0E0E0D0E0D0D0D0D0D0D0D0D0D0D0C0D0D0D0C0C0C0C0C0C0C0C0C0C0C
+      1E1E1E0B0C0B3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303232323939393F3F3F3F3F3F3F3F3F3F3F3F
+      4040404040404040404040404040403F3F3F3837383030302F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F3030303030303131313838384646464B4B4B4F4F4F5353535757575A5A5A
+      3F3F3F2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2F2F2F333333
+      3434343535353737373838382B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B3131
+      3132323232323233333333333333333333333333333333333334343334343334
+      3333343333343333353434363535363535363535363535363535363636363636
+      3737373737373737373939393939393939393A3A3A3737373535353636363737
+      373737373C3C3C4D4D4D5252525757575B5B5B5D5D5D3C3C3C3C3C3C3E3E3E3E
+      3E3E3F3F3F404040414141414141424242434343434343454545454545454545
+      4545454646464646464646464646464545454545454545454545454444444444
+      4444444443434342424242424242424242424241414142424241414141414142
+      4242424242424242434343434343434343444444444444454545454545464646
+      474747484848494948494948494A494A4949494A4A4B4B4A4A4A4B4A4A4A4B4B
+      4B4B4B4B4A4A4A4C4C4C4F4F4F50504F51515151515150505145454544454445
+      4544434343434343454545474747484747474747464646464646474747474847
+      464646454544444443444443444343424141424040403F3F3F3F403E3E3F3F3E
+      3E3D3D3D3C3C3C3C3C3C3C3C3C3B3B3A3939393A393938383738383739383838
+      3737373637373635353434343534343434343435343434333232333333313131
+      2F2F2F2A292A292929292A292829292828282F2E2D3030313031313030303130
+      302F2F2E2F2F2E2F2E2D2F2E2E2F2D2D2F2D2E2E2D2D2C2C2C2C2C2C2D2C2D2D
+      2C2C2D2C2C2C2C2C2C2C2C2C2C2B2C2C2B2C2C2B2C2A2B2C2A2B2B2B2A2A2A2A
+      2A292A2A2A2A2A292A2A29292A29292B2B2B2B2B2B2C2B2C2C2C2B2C2A2A2B2A
+      2A2A2A2A2A2A2928292927272726252626262626262626262626262525262526
+      2626262625262625262525272626272626262626262525262525272626262625
+      2626252626252525262525252525252525252625252626262626262626262625
+      2526252525252524242424242425242424242424232423232324232323232223
+      2322232222232222232221222122222121222121212121212021202021202021
+      2020212020202020201F201F201F201F1F1F1F1F1F1F1F1F1F1F1E1E1F1F1E1F
+      1E1E1E1E1E1E1E1E1E1E202020201F1F1F1F201F1F1F1F1F1F1D1C1C1C1B1C1C
+      1B1C1B1B1B1B1B1B1B1B1B1A1A1B1B1B1A1B1A1B1B1A1A1A1A1A1A1A1A1A1A1A
+      19191A1919191A19191918181918181918181818171817171817171817171717
+      1617161617171716161716161616161615161615161515151516151615151515
+      1515151515151515141414141414131313111111101111101111111011101011
+      1111121414152A2A2A2F2F303435343939393E3E3E1D1D1D0E0E0E0D0E0D0D0D
+      0E0D0D0D0D0D0D0D0D0D0D0D0D0C0C0D0D0D0C0C0C0C0C0C0D0C0C0C1B1E1E0B
+      0C0B303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303232323A3A3A3F3F3F3F3F3F3F3F3F40
+      40404040404040404040404040404040403F3F3F3A3A3A3131312F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030
+      303131313535354646464B4B4B4E4E4E5353535656565A5A5A4646462D2D2D2D
+      2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B31313132323233
+      33333535353636363232322A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2C2C2C313131
+      3131313131313131313232323232323232323232323232313232313332323332
+      3233323233323234333334333335343435343435343435343434343435353536
+      3636363636373737373737373737373737363636343434343434343434353535
+      3C3C3C4B4B4B5050505454545858585353533939393A3A3A3A3A3A3A3A3A3C3C
+      3C3D3D3D3D3D3D3E3E3E3F3F3F40404040404041414142424241414142424242
+      4242424242424242424242424242424242424242424242414141414141404040
+      3F3F3F4040403F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3E3E3E3E3E3E3E3E
+      3E3F3F3F40404040404040404041414141414142424242424243434343434343
+      4343444444454545464645464646474747484748474647464646464646464647
+      4646474647464B4B4B4C4C4C4C4C4C4E4E4D4F4E4F4243434141414242414041
+      403F403F3E3F3E3E3E3E3D3D3D3D3D3D3C3C3B3C3C3C3A3A3A393939393A3A39
+      39393A3A3A3A3A3A3A3A3A3939393A3A3A383938383838393839393838383838
+      3838383939393838383838383938383838373737373737363736363635353535
+      3535343434343333333333343332333232323231313130313130302F302F302B
+      2C2B2828282828272727272727272928293030302F2F302E2E2E2E2E2E2E2E2E
+      2E2D2D2D2E2D2D2E2D2D2D2C2D2D2C2C2B2B2C2B2B2C2C2C2C2C2C2B2C2C2B2B
+      2B2B2B2B2B2C2B2B2B2B2B2B2A2B2A2A2A2A2A2A2A2A2A29292A292A29292929
+      29292929282828292828282828282929292B2A2B2B2B2B2A2A2A2A2A292A2A2A
+      2929292929292929292928282828272626272525252525252625252626252625
+      2426262527262526252527262626252626252626252526252526262626252626
+      2525262625262626272727272727272726272727262626272626262626262524
+      2525252525242524252425242424242424242323242323232423232323222323
+      2223222223222123212122212222212222212121202021212121212020202021
+      20202020201F1F1F1F1F20201F1F201F201F1F1F1F1F1E1F1F1F1F1F1E1E1E1E
+      1E1E1E1F1F1F202020201F1F202020201F1F1E1E1E1C1C1C1C1C1C1C1C1C1B1B
+      1C1B1B1C1C1B1B1B1B1B1B1B1B1B1B1A1A1B1A1A1A1A1B1A1B1A1A1A1A1A1A19
+      1A191A1919191818191818191818191818181818181717181718171717171717
+      1616161717161716171616171616161616161515161615151516151515151515
+      1515151515141514151514141513131311111110101111111110101111121219
+      19192C2C2C3232323938393D3D3E4141411111110E0E0E0E0E0E0D0E0D0D0D0E
+      0E0D0E0D0D0D0D0C0D0D0D0D0C0C0D0C0C0D0C0C0D0C0C0C1E1E1E0C0C0C3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303434343B3B3B3F3F3F4040404040
+      404040404040404040404040404040404040404040403B3B3B3434342F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F303030313131353535
+      4545454A4A4A4E4E4E5252525555555959594848482D2D2D2C2C2C2C2C2C2B2B
+      2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2929292929292D2D2D3131313232323333
+      333535353535352929292929292929292929292A2A2A2A2A2A2F2F2F30303030
+      3030303030303030313131313131313131313130313130313130313131313131
+      3131313131313231313232323232323332323332323232323232323232323434
+      343434343535353535353535353333333232323333333333333232323B3B3B4A
+      4A4A4D4D4D515151565656505050363636363636373737383838393939393939
+      3939393B3B3B3B3B3B3B3B3B3D3D3D3D3D3D3E3E3E3E3E3E3E3E3E3E3E3E3F3F
+      3F3F3F3F3F3F3F3F3F3F3F3F3F3E3E3E3E3E3E3E3E3E3D3D3D3D3D3D3D3D3D3D
+      3D3D3D3D3D3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D
+      3D3D3D3D3D3D3D3D3D3E3E3E3E3E3E3E3E3E3F3F3F3F3F3F4040404040404040
+      4041414142414242424143434243434343434343444442424242424243434442
+      42424747474747474848484949494A4A494343443D3D3D3D3E3E3D3C3C3D3D3C
+      3B3B3B3B3B3B3A3A3A3939393838383838373838383737373737363636373536
+      353434343434343434343333323132323031313031302F2F2F2F2F2F2E2E2E2F
+      2F2F2F2F2F2E2D2E2E2E2F2F2F2F363535353634343434343333333333333333
+      3333333333323232313031303130302F2F2F2F2F2F2F2F2F2F2E2E2E2D2D2726
+      282626262726262626262626262A2A2A2E2E2E2E2D2E2E2D2D2D2D2D2D2D2D2C
+      2D2C2D2D2C2C2C2B2B2B2A2B2A2A2C2B2A2B2A2A2A2B2B2B2B2A2B2B2A2A2A2B
+      2B2A2B2A2A2B2A2A2A2A2A292A29292A29292A29292929282928282828282828
+      282827282828282727282727272727272928282A2A292A292929282929292929
+      2828272828272828282828292929282828272727282727272625272627272525
+      2625252726262626262626262726262627262827262828282828282929282829
+      2829282828272728272726262727262727262726262626262726262525252524
+      2525252525252424242425242424242424242424232424242423232322232322
+      2222222322222221222221212221222221212121212121202020212120212020
+      202020201F201F201F201F1F1F1F1F1F1F1F1F1E1F1F1F1F1F1E1F1F20201F20
+      201F2020202020201F20201F1F1F1C1C1C1C1C1C1C1C1C1B1C1C1C1B1B1B1C1B
+      1B1B1C1B1B1B1B1B1B1B1B1A1B1B1B1A1B1B1A1A1A1A1A1A1A1A191A1A191A19
+      1919191919181819181818181819171719181818171818171717171717161717
+      1716171616161616161716161616161616151515161516151516151515151515
+      1514151514151414141414131111111111111110111212121212132120202E2F
+      2E3435353A3A3A4140413232320E0E0E0E0E0E0E0E0E0E0D0E0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0C0C0C0C0D0C0C0C0C1E1E1E0C0C0C303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303434343C3C3C404040404040
+      4040404040404040404040404040404040404040404040403E3E3E3837383131
+      312F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030303131313232324444444949494E
+      4E4E5252525555555858584E4E4E2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A
+      2A2A2A2A2A2A2929292929292929292929292929292929292929292929292929
+      2929292929292929292929292929292929292929292929292929292929292929
+      29292929292828282828282828282828282929292F2F2F303030313131333333
+      3333333030302828282828282828282828282929292A2A2A2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F302F2F30
+      2F2F302F2F302F2F313030313030323131313131313131313131313131313131
+      3131313030302F2F2F2F2F2F2F2F2F3030303131313131313C3C3C4646464B4B
+      4B4F4F4F53535344444434343434343435353535353535353536363637373738
+      38383838383838383A3A3A3A3A3A3A3A3A3B3B3B3C3C3C3C3C3C3C3C3C3C3C3C
+      3C3C3C3B3B3B3C3C3C3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3A3A3A3939393A3A
+      3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3B3B3B3B
+      3B3B3B3B3B3B3B3B3C3C3C3C3C3C3C3C3C3D3D3D3D3D3D3D3D3D3E3E3E3E3E3E
+      3F3F3F3F3F3F3F3F3E3F3F3F3E3F3F3F3F3F3F3E3E3E3E3E404040403F3F4241
+      414444444444444646464747474545453B3B3B3A3A3A3A3A3A3A393938383838
+      3737373737373737363636353534353535353435333434333333333333333333
+      3232323131313030303030302F2F2E2E2E2E2E2D2D2E2E2D2C2C2D2C2C2C2C2C
+      2C2B2B2B2B2B2B2B2B2A31313132323232323232323232323232323231313131
+      31313030302F2F2F2E2F2F2F2E2E2E2E2E2E2E2E2D2C2C2C2C2C2A2A2A252425
+      2525252625252424242324242B2A2B2D2C2C2C2D2C2C2D2D2C2D2C2C2C2C2A2B
+      2A2B2B2A2B2B292A2A2A2A2A2A2A2A2A2A2A2A292A2A292A29292A29292A292A
+      2A2A292929292928292928292927292928282827282727282728272727262726
+      2727262726262627272726262626262526262727262828272828272827272727
+      2727272728282827282728282828282728272728262728282827282729282928
+      2928292A29292928292828292929282829282829292929292929292929292928
+      2828272927272827272727272627262627272626262525262525252425252524
+      2524242425242524252424242424242423242323232323242323232223232222
+      2222232222232222232121222121212020212121212121212021212020202020
+      20201F1F2020201F201F1F1F1F1F1F1F1F1F1F1F1F1F1F1E21202021201F2020
+      1F20202020201F1D1E1E1C1C1C1D1D1D1D1C1C1C1C1C1C1C1C1B1B1C1C1C1C1C
+      1B1C1B1B1B1B1B1B1B1B1B1A1B1B1A1A1A1A1A1A1B1A1A191A1A1A1A19191919
+      1919191918181918181918181918171817171817171717171717171617171717
+      1616161617161716161616161616161615161516151515151615151515151515
+      1415151415131313121211111111111111121212151415292929313131383838
+      3E3E3D4343432323230F0E0E0F0E0E0E0E0E0E0E0E0E0E0D0E0E0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0D0D0D0D0D0D0C0C1E1E1E0C0C0C30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303232323A3A3A40404040
+      40404040404040404040404040404141414141414141414141414141413C3C3C
+      3535352F2F2F2F2F2F3030303131313333334242424949494D4D4D5151515656
+      565858585151512F2F2F2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929292929
+      2929282828282828282828282828282828282828282828282828282828282828
+      2828282828282828282828282828282828282828282828282828282828282828
+      282828282828282828282828282828282B2B2B2F2F2F30303031313132323233
+      33332828282727272727272727272727272828282D2D2D2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2F2F2F2F2F2E2F2F2E2F2E2E2F2E2E2F2E2E2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F302F2F2F2F2F2F2F2F2D2D2D2D2C2D2C2C2C2C2C2C2C
+      2C2C2C2C2C2D2D2D2D2D2D2E2E2E2E2E2E3030303939394444444A4A4A4E4E4E
+      5151514242423131313232323232323333333333333434343434343535353535
+      353636363737373737373737373838383939393939393838383939393939393A
+      3A3A393939393939383838383838383838383838383838383838383838383838
+      3838383838383838387C7C7C9393939393938C8C8C6E6E6E4040403838383939
+      393939393939393A3A3A3939393939393A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3C
+      3C3C3C3C3C3D3D3D3C3C3C3C3D3D3B3C3B3B3B3C3C3C3C3B3B3B3C3C3C414141
+      4141414242424343434343433938393737363738383737373636363635353534
+      343434343333333232323232323232323232323132313030302F2F2F2F2F2F2E
+      2E2E2D2D2D2D2D2D2D2C2D2D2D2D2C2C2C2B2C2B2C2C2C2A2B2A2A2A2A292929
+      292929292A2A2A2B2B313030313030303030313030313030302F2F2F2F2E2E2E
+      2D2D2D2E2D2D2E2E2D2D2D2E2E2C2C2C2B2C2C2B2C2C2B2B2C27262624242423
+      23232323232323232525252C2B2B2C2B2C2B2B2B2C2C2B2A2A2A2A2A2A292929
+      2929292A2A292929292929292A2A292A29292928292928292829292829292929
+      2828282828282828282728282628282628262727262627262626262626252625
+      2526252526252625252525252525252525252525252526272725272626262626
+      2727272726272626272827272727262827272727272828282828282828282828
+      292929292928282929292928282928282828282A292929292929282929292828
+      2827282727272727272626262626262626262526252525252525252525242525
+      2524242424242424252424242424242423242424232323232423222323222322
+      2123222223212122222122212121202121212021212021202120202020202120
+      20201F1F1F201F1F201F20201F1F1F1F1F20201F201F2020201F21201F20201F
+      1F1F1F1D1C1C1C1C1D1D1C1D1C1C1C1C1C1C1B1C1C1B1B1C1C1C1C1C1B1B1C1B
+      1B1B1B1B1B1B1B1B1A1B1A1A1A1A1A1A1B1A1A1A1A1A1A1A1A1919191919191A
+      1918191918191818191818181818181718181717171717171717171717171717
+      1616161616161616161615151616161516151516161515151515151515151415
+      1512111311111212111111111112121219191A2C2D2D3232323A3A3A3F3F3F45
+      45451212120E0F0E0E0F0E0E0F0F0E0E0E0D0E0E0E0E0E0D0D0D0D0D0D0D0D0D
+      0D0D0D0D0D0D0D0D0C0C0D0D1E20200D0C0D3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303232323939393F3F
+      3F40404040404041414141414141414141414141414141414141414141414140
+      40403B3B3B3636363232324141414949494C4C4C515151565656585858515151
+      2F2F2F2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A2929292929292828282828282828
+      2828282827272727272727272727272727272727272727272727272727272727
+      2727272727272727272727272727272727272727272727272727272727272727
+      2727272727272727272727272727272D2D2D2E2E2E2F2F2F3030303131312E2E
+      2E2626262626262626262626262626262828282D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C
+      2B2B2B29292A2929292929292A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2C2C2C2C2C2C2E2E2E3A3A3A4343434747474B4B4B4F4F4F3D
+      3D3D2F2F2F303030303030323232323232323232333333333333333333343434
+      3434343434343535353636363636363636363535353636363636363636363636
+      3636363636363636363637373736363636363635353535353535353536363636
+      3636363636B3B3B3B3B3B3B3B3B3B3B3B3B3B3B39B9B9B3E3E3E363636363636
+      3737373737373737373737373838383838383838383939393939393939393939
+      3939393939383939393939393939393939393A3939393938383C3C3C3E3E3E3F
+      3F3F4040404141403D3D3D3B3C3B3A393A383838383838363636343334323232
+      3232323232323232323131312F303030303030302F2E2E2E2D2D2D2D2D2D2D2D
+      2D2C2C2C2C2B2B2A2A2B2A2A2A292A2A29292A29282928282828282828282828
+      28282828272E2E2E2F2F2E3030302F2E2E302E2E2E2D2D2D2D2D2D2D2D2D2D2C
+      2C2C2D2C2C2B2B2B2C2B2B2C2B2B2B2B2B2B2B2B2B2828292423242423242423
+      232423232323232626252B2B2B2A2A2A292A2A2A292929292929292929292929
+      2929292928292929292828292828292828282828282827272827282827272727
+      2727272727272727272727262626262626262726262626262626262526252626
+      2525252525252525252524252524252525252524252424252425252526252526
+      2625262626262726262626272726272626282727282828282828282828282828
+      2929292929282929292A28292829292A2A292929292929292827282728272726
+      2726262626262626262625252625252626252525252525252525252524252424
+      2525252524242424242424242424242423242423242323232322232322232222
+      2222212222212221212222212221212121212120212120212020202120202020
+      202020201F201F1F201F20202020202020202021201F201F2020201F1D1E1D1D
+      1D1D1D1D1D1C1C1D1D1D1C1C1C1D1C1C1C1B1C1C1C1C1C1C1C1B1C1C1B1C1C1B
+      1B1B1B1B1B1B1B1B1B1A1B1A1B1A1B1A1A1A1A1A1A1A19191A19191A18191918
+      1819191819181819181818171818181817181717171717161716161716161616
+      1616161616171616151616161615151515151515161615151516141414121212
+      1211121211111212121414142222222F2F2F3635353D3D3C4343423434340F0F
+      0F0F0F0F0E0F0E0E0E0E0F0E0E0E0E0E0E0E0D0E0D0D0E0D0E0D0D0E0D0D0E0E
+      0D0D0D0D0D0C0C0C1E20200D0C0C303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030313131373737
+      3F3F3F4141414141414141414141414141414141414141414141414141414141
+      414343434444444848484C4C4C5151515555555858585757573535352C2C2C2B
+      2B2B2B2B2B2A2A2A292929292929282828282828282828272727272727272727
+      2727272727272626262626262626262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      26262626262626262626262828282D2D2D2E2E2E2F2F2F303030313131272727
+      2525252525252525252525252525252A2A2A2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2A2A2A2A292929292929292928282927272727272727272727272728
+      28282828282828282828282828282929292929292A2A2A2A2A2A2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2E2E2E3C3C3C4343434848484B4B4B4E4E4E3636362E2E
+      2E2E2E2E2E2E2E2E2E2E2F2F2F30303031313131313131313132323232323232
+      3232333333333333333333333333343434343434343434343434343434333333
+      3434343434343434343333333333333434343434343434343434343535353535
+      35B5B5B5B5B5B5B5B5B5B5B5B5B5B5B5B5B5B595959535353535353535353535
+      3535353535353535363636363636363636363636373737373737373737373737
+      3737373636363737373536353635353536363636363839383B3B3B3D3D3D3E3E
+      3E3E3E3E3E3F3F40404041404141404040403F403F3F3E3F3E3F3E3E3E3E3E3D
+      3D3D3A3A3A3A3A3A3939383636373535353534353334333030313030302E2E2F
+      2C2C2C2A2A29292A2A2828282828282828282727272727272727272727272626
+      262929292F2F2E2E2E2D2D2D2D2D2D2D2D2D2C2D2C2C2C2C2C2B2B2B2B2B2B2B
+      2B2B2A2B2A2B2A2A2A2A2A2A2A2A292929292929272727222123232222222222
+      2222222222222626262828292828292828292828282929292929292929282929
+      2829282829282828282729272728272727262727272727272727272727272727
+      2727272727272726272726262625262626262525262525252525252524252524
+      2425252424242424242424242423242424242423232423232424242423232423
+      2424242426252526252626262627262628272628282828282829282828282829
+      2928282828282928282828272828282828282727272727272726272627262726
+      2626262626262626262626262626252626252626252525252525252425252424
+      2424242524242424242424242424232424232323232323232223232223222123
+      2221232122222221222121222120212121212020202020202120202021201F1F
+      1F201F21201F202020212020202020201F1F2120201F1F1E1E1E1D1D1D1D1D1D
+      1D1D1C1D1C1D1D1C1D1D1C1C1D1C1C1C1C1B1C1C1C1C1B1B1B1B1C1B1B1B1B1C
+      1B1B1B1B1B1A1A1B1A1B1B1A1A1A1A1A1A1A1A1A1919191919181A1919191918
+      1919181918181818181818171718181717171717171717171717161616161716
+      1716161616161616161616161516151615151515151613131312121212121212
+      11111212131516152B2B2B3132323839383F3F3F4444442324230F0F0F0F0F0F
+      0E0F0E0E0E0E0F0F0F0E0E0E0E0E0E0E0E0E0E0E0E0D0D0D0E0D0D0D0D0D0D0D
+      0D0D0C0D2020200D0D0D30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303035
+      35353C3C3C414141414141414141414141414141414141424242434343454545
+      4747474B4B4B5050505454545858585656563535352C2C2C2C2C2C2B2B2B2A2A
+      2A2A2A2A29292928282828282827272727272727272726262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262525252525252525252525
+      252525252525252525252B2B2B2C2C2C2D2D2D2F2F2F3030302E2E2E25252525
+      2525252525252525252525262626272727272727272627272627262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      262727272727272727272727272727272929292929292A2A2A2B2B2B2B2B2B2F
+      2F2F3434343A3A3A4040404343434747474A4A4A4C4C4C3434342C2C2C2C2C2C
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2F2F2F2F2F2F2F2F2F3030303030303131
+      3131313131313131313131313131313132323231313132323232323232323232
+      3232323232323232313131313131323232323232333333323232323232535353
+      3232323A3A3A848484B6B6B6B6B6B6B6B6B65454543333333333333333333434
+      3434343433333333333333333334343434343434343434343435353534343334
+      34343434343434343433343433343433343534353A3A3A3B3A3B3B3B3B3C3C3D
+      3D3D3D404040404040403F403F3F3F3F3F3E3E3E3E3E3E3E3E3D3D3D3D3D3C3C
+      3C3C3C3C3C3C3C3B3B3B3B3B3B3B3B3B39393939383938373738373737373737
+      37373535353535353232313030302A2A2A262626262626262626252525252425
+      2B2A2A2D2D2B2D2C2C2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2A2B2A2A2B2B
+      2B2A2A2A292A2A29292929292929292929292825242522222222212222212121
+      2121212121272727292928292928282928292829282828282828282827282827
+      2727272727272826272727272727272726272726272727272726262627272626
+      2626262626262526262525252525252426252425242424242424232324242424
+      2323242323232323232323232323232323232323232323242322232323232222
+      2423232423242424242424242525252425252626262727262626272828282727
+      2728282827272728272729282728272728272727272727272627272726262626
+      2727262626262626262626262526252526252526252525252525242524252425
+      2524252524242424242424242424242424242324232423232323222322222322
+      2122212122212122222122212121212121202120202021202021202020202020
+      20202121202120212020202020202020201D1D1D1D1D1D1D1E1D1D1D1E1D1D1D
+      1D1D1D1D1C1C1D1C1C1C1D1D1D1C1C1C1C1C1C1B1C1B1C1B1B1B1C1C1B1B1B1B
+      1B1B1B1B1B1A1B1B1B1A1A1A1A1A1A1A1A19191A19191A181919181919181819
+      1818191818181818181818181718171717181717171716171717161716161617
+      1616171616161616161616161516151616151212121212121212121213131414
+      141C1C1C2E2E2E3434343B3A3B4140414342421213130F0F0F0F0F0F0F0F0F0E
+      0F0E0E0F0E0F0F0F0E0E0F0E0E0E0E0E0D0E0E0E0E0E0E0E0D0D0E0D0D0D0D0D
+      2020200D0D0D3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303232323939393F3F3F4141414242424242424343434444444646464949494E
+      4E4E5353535656565858583939392D2D2D2C2C2C2B2B2B2A2A2A2A2A2A292929
+      2828282828282727272727272626262626262626262525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252727272C2C2C2D2D2D2E2E2E2F2F2F3030302727272424242424
+      2424242424242424242424242424242424242425252525252525252525252525
+      2525252525252525252525252525262626262626262626262626262626262626
+      2727272828282828282828282828282B2B2B2F2F303535353838383A3A3A3A3A
+      3A3D3D3D4040404444444646464949494B4B4B2A2A2A2B2B2B2B2B2B2B2B2B2B
+      2B2B2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2F2F2F2F2F2F
+      2F2F2F2F2F2F3030303030303030302F2F2F3030303030303030302F2F2F3030
+      3030303031313130303031313131313131313131313131313131313131313131
+      3131313131A7A7A7B8B8B8B8B8B87D7D7D313131313131313131313131313131
+      3131313131313232323232323232323232323232323232323232323333333232
+      323232323131313131313130313031313738383939393A3A3A3B3B3B3C3C3C3F
+      3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3E3F3E3E3D3C3D3C3C3C3C3C3D3C3C3C3C
+      3C3C3C3B3B3B3A3B3A3A3A3A3A3A3A3838393838393737383636363434343333
+      333333333333333333332F302F2424242424242524252424242424242424252C
+      2B2B2C2C2C2C2A2B2B2B2A2C2A2A2B2A2A2A2A2A2A2A2A2A2A29292929292829
+      2828282928292828292828282827282727272323232020212020202021202020
+      2020202027272628282827282827272727282727272727272727272727272727
+      2727272727272626272627272625262526262625252526262526262525262525
+      2425252525242525242525242424242424242424242424232424242324242323
+      2324232323232323232322232323232222232223232223232223222224232324
+      2323242424242423242425252525252425262526272627262726272727272727
+      2828282827282727272828272827282827272727272726272627262726262626
+      2626262626262626262626262526262525252525252525242525252424242524
+      2424242424242424242424232424232424232323232322232322232222232221
+      2222212321222221212220212121212120202120212020202121212121212120
+      212020212020202020201E1E1E1D1E1D1E1E1D1E1D1D1D1E1D1D1D1D1D1D1D1D
+      1D1D1D1D1C1C1C1C1D1C1C1C1C1C1B1C1C1C1C1C1C1B1B1C1C1C1B1B1B1B1B1B
+      1A1B1B1A1B1B1B1A1A1A1A1A1A1A191A19191A18191A19191A18181918191918
+      1818181818181718181817171717181717171717171717171717161616171716
+      1616161616161616151616151515121312121213121212131313151514242425
+      3231313737373E3E3E4243433231320F0F0F100F0F0F0F100F0F0F0F0F0F0E0F
+      0E0E0F0E0F0E0E0E0E0E0E0E0E0E0E0D0D0E0E0D0D0D0D0D0E0D0D0D2020200D
+      0D0D303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303535353B3B3B4242424343434545454747474B4B4B4E4E4E5454
+      545757573E3E3E2D2D2D2C2C2C2B2B2B2B2B2B2A2A2A29292928282828282827
+      2727272727262626262626252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      25252525252A2A2A2B2B2B2C2C2C2E2E2E2E2E2E2D2D2D242424242424242424
+      2424242424242424242424242424242424242424242525252525252525252525
+      252525252525252525252525252525252626262626262626262727272727272A
+      2A2A2D2D2E3232323636363838383939393939393A3A3A3C3C3C3C3C3C3F3F3F
+      4242424444444747474848484949492929292929292A2A2A2A2A2A2B2B2B2B2B
+      2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D
+      2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3030
+      306D6D6DBABABABABABA97979730303030303030303030303030303030303030
+      30303030303030303030303030302F2F2F303030303030303030303030303030
+      2F2F2F2F2F2F2F2F2F2F2F2F3232323838383939393B3A3A3D3D3D3F3F3F3F3F
+      3F3F3F3F3E3E3E3E3E3E3D3E3E3E3E3E3D3E3E3C3C3D3C3C3C3B3B3B3B3C3B3B
+      3B3B3B3B3B3A3A393A3A3939393A383939363737353636343434333433323232
+      3232323131313131312828282423232324242324232323232323232626262B2A
+      2A2A2A2A2A2A2A2B2A2A2A2A2A2A2A2A29292929292928292928282928292928
+      2828282828282828282828272727252525212120202021202020202021202120
+      2121212828272827272728282828272827272727272727272727262627262626
+      2627262627252626252526252525252525252525252525252525252525252525
+      2525242524252424252524242423242323242323232323232223222223222322
+      2222222222222222222323232223222222222323222323222322222323232423
+      2224242325252424242425252526262627262727272728282727272828282828
+      2828282828282827292828282727282727272627272726272726272626262626
+      2626262626262625252526252526262625252525252525252524242525252524
+      2425242424242424242424242423232323232323232223232223222223222222
+      2121222121222121222121212121212120222122222121212121212121212021
+      2020211F1F1E1E1E1F1E1E1E1E1D1E1D1E1E1D1D1D1D1D1D1D1D1D1C1D1D1D1C
+      1C1C1C1D1C1C1D1C1C1C1C1C1C1C1B1C1B1B1B1C1C1B1B1B1B1B1B1B1B1B1B1B
+      1A1B1B1B1B1B1A1A1A1A1A1A19191A19191A19191A1919191819191818191818
+      1818181817181718171818171817171717171717171717161616171616161616
+      1716161616161613121313121212131212121213131318191A2C2C2C34333439
+      3A3A4040414645461E1E1D100F100F100F0F0F0F0F10100F0F0F0F0F0F0F0F0E
+      0F0E0F0F0F0E0E0E0E0E0E0E0D0E0E0D0D0E0D0D0E0D0D0E2020200D0D0D3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303636363E3E3E4848484C4C4C4F4F4F5353533F3F3F
+      2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A2A2A2A2929292828282727272727272626
+      2626262625252525252525252525252524242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242626262B2B2B2C2C2C2C2C2C2E2E2E2F2F2F26262623232323232323232323
+      2323232323232323232323232323242424242424232323252525252525252525
+      2525252525252626262626262727272A2A2A2E2D2E3232323535353535353737
+      373737373838383A3A3A3A3A3A3C3C3C3D3D3D3D3D3D3F3F3F40404043434344
+      44444646464747474242422929292929292929292929292929292929292A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E525252
+      BCBCBCBCBCBCAAAAAA2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F2F2E2E2E2E2E2D2E2E2E2E
+      2E2D2E2E2E2D2D2D2E2E2D2F2F2F303030333333343435353536383838393939
+      3939393839393E3E3E3E3E3E3C3D3D3C3D3C3C3C3C3C3C3D3B3B3C3B3B3B3B3B
+      3B3B3B3B3A3A393A393A3838383738383535353332323131313030303030302F
+      2F2F2F2F2F2E2E2D2323232424232322222222222222222323222929282B2A29
+      2B2A2A2A2A2A2928282828282828282828282828282828282728282827282727
+      272626272626262626262626262324241F202020202020202020202020202021
+      2121272726272727262727272626272626262626272727272626272726272725
+      2626252625252625252625252425252425242524242524252424242424242424
+      2424242424242424242324232324232324232323232323232323232322222322
+      2223222222222222222222222222222322222222232322232222232323242323
+      2423232524242625252626262525262727272827272827282828282828282827
+      2829292828282729282728272728272727272727272727262727272726272626
+      2626262626262526262625252525252525252524252425252425242524252425
+      2424242424242424242323242324242324232323222323222222212322222222
+      212221212221212221212222212122222121212122212121212120211F20201E
+      1E1F1F1E1E1E1E1E1E1E1E1D1E1D1E1E1E1D1E1E1E1D1D1D1D1D1D1D1D1D1D1D
+      1C1C1C1D1C1D1C1D1C1C1C1C1C1C1B1C1C1C1B1B1C1C1B1B1B1B1B1B1B1B1B1B
+      1B1A1A1A1A1A1A1A191A1A19191A19191A191819191919181819191818181818
+      1818171817181718171717171718171717171717161617161616161717171616
+      1515151313121313121212131414141515152021212F2E2F3636373D3D3D4344
+      443F3F3F1010100F100F10100F100F0F0F0F100F0F0F0E0F0F0F0F0E0F0F0E0F
+      0F0F0F0E0F0E0E0F0E0E0E0E0E0E0D0E0D0D0D0D2023230D0D0E303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303232323A3A3A4444444242422E2E2E2D2D2D2D
+      2D2D2C2C2C2B2B2B2A2A2A292929282828282828272727262626262626252525
+      2525252525252424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2929292B2B2B2B2B2B2D2D2D2E2E2E2C2C2C2323232323232323232424242424
+      242424242424242424242424242424242525252525252626262929292D2C2D2F
+      2F2F313131343434343434353535363636363636373737383838383838393939
+      3A3A3A3B3B3B3C3C3C3D3D3D3E3E3E4040404040404242424343433E3E3E3434
+      342D2D2D27272728282828282828282828282828282828282828282828282828
+      28282929292929292A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D515151BEBEBEBE
+      BEBEBEBEBE2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2A2A29292929
+      29292929292929282828282929292C2C2D2C2C2C2B2C2B2E2E2E313131313031
+      3031313434343434333332333131313332333030302E2E2E2E2E2E2E2E2E2E2E
+      2E2F2F2F2828282222222222222222222223222222222424242A292929292829
+      2829292928292829282829282828282828282828272828272627262726272626
+      2626262626262626262626252323231F1F1F1F1F1F1F1F1F1F1F1F1F1F1F2121
+      2127272627262727262726272726262626262626262626262525262525252525
+      2525252525262525262525252525242525242525252524242424242524242423
+      2424232323232423232322222322222322222222222222222222222222222222
+      2222222222222122212222222223232222222223232223232224232325232425
+      2424252424252525262626272727262726282728292828282828282728292928
+      2929282828272828272828272827272727272727262627262726262626262626
+      2626262526262625262626252626262525242525252425252424242525242524
+      2424242424242424242324242324232323232322232322222222222222222221
+      2221212222212222222222212222222221222121212020201F1F1F1F1F1E1F1E
+      1E1E1E1E1E1E1E1E1E1D1E1D1E1D1E1D1E1D1D1E1E1E1E1D1D1D1D1D1D1D1C1C
+      1D1C1C1C1C1C1C1C1C1C1C1B1C1C1C1B1C1C1B1C1B1B1B1B1B1B1B1B1B1B1B1B
+      1B1A1A1B191A1A19191A19191A19191A19191A19191918181819181818181718
+      1818181818181717171717171817171717171716171716171617161614151413
+      13131213131312131314131616172C2C2C3333333939394040404545452B2C2B
+      1010101010100F1010101010100F10100F100F0F0F0F0F0F0F0F0F0F0E0F0E0F
+      0E0E0E0E0E0E0E0E0E0E0E0E0D0D0E0E2020200D0D0E30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B
+      2B2B2B2B2A2A2A29292928282827272727272726262625252525252525252524
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424242424242424242626262A
+      2A2A2B2B2B2C2C2C2D2D2D2E2E2E262626242424252525252525272727272727
+      2A2A2A2C2B2C2D2D2D3030303030303333333333333333333434343636363636
+      363636363737373838383838383939393939393A3A3A3B3B3B3C3C3C3C3C3C3D
+      3D3D3F3F3F3F3F3F4040403F3F3F363636303030272727262626262626262626
+      2626262727272727272727272727272727272828282828282828282828282828
+      282828282828282828282929292929292A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C515151C0C0C0C0C0C0C0C0
+      C02C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2B2B2B
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2929292A29292A29292828282828282727
+      2727272727272727272727272727272727272727272726262626272625252525
+      25252525252424242524252524252525242B2B2B2D2E2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2222222222222222222222222222222121212626262928282928282828
+      2828282827282727272827272727272727272727262727272626272726272727
+      26262626262626262626252222221F1F1F1F1F20201F1F1F1F201F1F1F212121
+      2727262727262627272626262626262626262625262525252626252626252525
+      2525252525252525242525252525242525252524242424252424242424242423
+      2423232323232422232222232222232222222222222222222222222222222222
+      2222222221222221222222222222222323222323222423232424242424232525
+      2526262526262727262727272728282828282828282828282829292929292928
+      2828282828282827282727282727272727272727272727262626262726262626
+      2526262626262525252526252525252525242525252424242424252524242424
+      2424242424242423232324232424242323232222232222222123222122222223
+      22212222212222222122222222222020201F1F1F1F1F1F1F1E1F1E1F1F1E1F1F
+      1E1E1E1E1E1E1E1D1E1D1E1E1D1D1E1D1D1D1D1D1D1D1D1D1D1D1D1D1D1C1D1D
+      1D1C1C1D1D1C1C1C1C1C1B1C1C1B1B1C1C1C1C1B1B1B1C1B1B1B1B1B1B1A1A1B
+      1A1A1A1A191A1A191A19191A19191A1919191819191819181818181818181818
+      1817181818171717171717181717171717171717171616151313131413131313
+      131414141514151F1E1F2F2F303535353C3C3C43434246464613141310101010
+      10101010100F1010100F100F0F0F100F0F0F0F0F0F0F0F0F0F0F0F0E0E0E0F0F
+      0E0F0E0E0F0F0E0E0E0E0D0D2023230D0D0E3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A
+      2929292828282828282727272626262626262525252525252424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424243838384C4C4C4C4C4C4C4C4C4C4C4C2E2E2E2A2A2A2B2B
+      2B2C2C2C2D2D2D2E2E2E2F2F2F31313132323232323233333333333333333334
+      3434353535353535353535353535353535363636373737373737383838393939
+      3939393A3A3A3B3B3B3B3B3B3C3C3C3C3C3C3D3D3D3E3E3E3E3E3E3E3E3E3939
+      393333332A2A2A25252525252525252525252525252526262643434357575774
+      74747474747474745858583A3A3A272727272727272727272727282828282828
+      2828282828282828282828282828282828282828282929292929292929292A2A
+      2A2A2A2A2A2A2A2A2A2A4747475050505050504747472A2A2A2A2A2A2A2A2A2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B515151C2C2C2C2C2C2C2C2C22B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B5151515151
+      515050505050503D3D3D2A2A2A2A2A2A2A2A2A2A2A2A292A2A2A2A2A2A2A2A2A
+      2A2A2929292829292929292727272827284F4E4F4E4E4E4E4F4E4E4E4E272727
+      2727272727272726262626272626262525252525262525253838384C4C4C4C4C
+      4C2424242424242424242324242424243E3E3E6464647777777777775C5C5C34
+      3434212221222221212221212121212121222222282827292827292828282828
+      2728282727272727272727272727273A3A3A4E4E4D7575747474756B6B6B4343
+      432626262626252626252121211F1F1F1F1E201F1F1F1F1F1F1F1F1F21212126
+      2726262726262726262626262626262626262626262625252625252525262525
+      2525252525252525252424242424242424242424242424242424242424232423
+      2324242224242223232223222223222222222221212122222222222222222222
+      2222212222212222222322222222242422242424242323242323262525262526
+      2726262727272727272827282728282928282828282929292929292929292828
+      2928282828282728272828272727272727272627262726262626262626262626
+      2625252526252525252525252525252525252425242524252525242424242424
+      2424242324242324242323232423232423222322222322222222222222212222
+      21222221222222212121201F201F1F1F1F201F1F1F1F1F1F1F1F1E1E1F1F1E1E
+      1E1E1E1E1E1E1E1E1E1E1E1D1E1E1E1E1E1E1D1E1D1D1D1C1D1C1C1D1D1D1D1D
+      1C1D1C1C1C1C1C1C1C1C1C1B1C1B1C1B1B1C1C1C1B1B1B1B1B1A1A1A1A1A1A1A
+      191A191A1A1A191A19191A191919181919191918181918181818181817181818
+      1818181717171718171817171717171717151415131413131313131313141314
+      1717172A292A3333333A393A3F403F4545453232331110111110101010101010
+      100F1010100F10100F100F10100F0F0F0F0F100F0F0F0F0F0F0E0F0E0E0E0F0F
+      0F0F0E0E0E0E0E0E2320230E0D0D303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A29292928
+      28282828282727272626262525252525252525252424242424242424249C9C9C
+      C4C4C4C4C4C49C9C9C2424242424242424242424242424242424242424242424
+      242E2E2EB0B0B0C4C4C4C4C4C4C4C4C460606024242424242424242424242460
+      6060A6A6A6C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4A6A6A67878782C2C2C
+      2D2D2D2F2F2F303030323232C4C4C4C4C4C4C4C4C45959593636363636363737
+      373737373737377E7E7EC4C4C4C4C4C49898983939393A3A3A3B3B3B3B3B3B3C
+      3C3C4E4E4EC4C4C4C4C4C4C4C4C43636363232322B2B2B242424242424242424
+      2525252525252525252525252F2F2F757575B0B0B0C4C4C4C4C4C4C4C4C4C4C4
+      C4C4C4C4C4C4C4C4C4C4B0B0B075757531313127272727272727272727272727
+      27272828282828282828282828282828289D9D9DC4C4C4C4C4C44F4F4F282828
+      6D6D6DB1B1B1C4C4C4C4C4C4C4C4C4C4C4C4B1B1B17777773434342A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A515151C4C4C4C4C4C4C4C4C42A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A4747478A8A8AC4C4C4C4C4C4C4C4C4C4C4C4
+      C4C4C4C4C4C4B1B1B18A8A8A5050502929292929292828282828272828282728
+      27282728454545898989C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C493939226
+      26262525262626252424242424254242429C9C9CC4C4C4C4C4C4C4C4C4C4C4C4
+      242424232323565656A6A6A6C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4BABABA6060
+      6021212121212121212121212121212123232328282829272828272727272727
+      27272727276C6C6CA6A6A6C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4B0B0B0
+      4E4E4D2626252625242121211E1E1F1F1F1FC4C4C4C4C4C4C4C4C4C4C4C4C4C4
+      C4C4C4C4C4C4C4B0B0B089898958585826252626252526252525252425252525
+      2424252424252424242424747474C4C4C4C4C4C49C9C9C242424242424232423
+      2323222424222422222D2C2CBABABAC4C4C4C4C4C4C4C4C45F5F5F2222222222
+      2222222123222222222324232324242324242325242426252527262627272627
+      2727272727282828282828292928292829292A2A292929292829292929292928
+      2828282828272827272827272726272726272627262626262726262626262625
+      2626252625252625252525252525252525242525242424242524242424242524
+      2424242323242323242423232322232222222222222122222122232222222221
+      2221212020202020201F201F1F201F1F1F1F1F1F1F1F1F1F1E1F1E1E1E1E1F1E
+      1E1E1E1E1E1E1E1D1E1D1D1D1D1D1D1E1D1D1D1D1D1D1D1D1D1C1D1D1D1C1D1D
+      1C1C1C1C1C1C1C1C1B1B1C1C1C1C1C1B1C1B1B1B1B1B1B1B1A1A1B1A1A1B191A
+      1A19191A19191A19191919191919191819191818181818181818181818181818
+      181718181818181717171616161414131414141314141414141515151C1C1D2F
+      2F2F3535353D3C3C4242424646461B1B1B111011101111111011101010101011
+      101010100F100F10100F0F0F101010100F0F0F0F0F0E0E0F0F0F0F0F0E0E0E0E
+      0E0E0E0E2323230E0E0D30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F2F2F
+      2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A2929292828282727
+      272727272626262525252525252424242424242424242424249E9E9EC7C7C7C7
+      C7C79E9E9E2424242424242424242424242424242424242424242424248A8A8A
+      C7C7C7C7C7C7C7C7C77F7F7F2424242424242424242E2E2E9E9E9EC7C7C7C7C7
+      C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C72C2C2C2D2D2D2F
+      2F2F323232353535C7C7C7C7C7C7C7C7C75C5C5C383838383838393939393939
+      393939818181C7C7C7C7C7C78181813B3B3B3C3C3C3D3D3D3C3C3C3737373232
+      32C7C7C7C7C7C7C7C7C724242424242424242424242424242424242424242424
+      24242525256C6C6CBDBDBDC7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7
+      C7C7C7C7C7C7C7C7C7C7C7C7BDBDBD5959592626262626262727272727272727
+      272727272727272727272727279F9F9FC7C7C7C7C7C75050508B8B8BC7C7C7C7
+      C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7B3B3B3464646292929292929
+      292929292929292929515151C7C7C7C7C7C7C7C7C72929292929292929292929
+      29292929292929646464C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7
+      C7C7C7C7C7C7C7C77878782828282828282828282828282828282828286E6E6E
+      C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C79E9E9E2525252524
+      252525252525252F2E2EBDBDBDC7C7C7C7C7C7C7C7C7C7C7C7C7C7C724232424
+      2424767676C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7555655
+      2121212121212121212121212121212524252827272827272727272727272727
+      279F9F9FC7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C74E
+      4E4E2626252525242121211F1F1FC7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7
+      C7C7C7C7C7C7C7C7C7C7C7C7B3B3B34E4E4E2626252625252625252625252624
+      24252424252424767676C7C7C7C7C7C79E9E9E24242424242424232424232324
+      2423232323A8A8A8C7C7C7C7C7C7C7C7C7606060222222222222222222222222
+      2323232323232424242424242425232525242625242626262727262727272827
+      282828282827282829292828282A292A29292929292929292929292828282929
+      2828282827282827272727272727272726272726262626262626262626262625
+      2625262526262525252525252525252525252425252425242424252424242424
+      2423242324242322222323222222222222212222212122212221212121202020
+      20202020201F1F201F1F1F1F201F1F1F1F1F1F1F1F1E1F1F1E1E1F1E1E1E1F1E
+      1E1E1E1E1E1E1E1E1E1E1E1E1E1D1E1D1D1D1D1D1D1D1D1C1C1C1C1B1C1C1B1C
+      1C1C1C1C1C1C1B1C1C1C1C1C1C1C1B1B1B1B1B1B1A1A1B1A1A1B1A1A1A191A1A
+      1A191A1A1A1A1919191919191919181918191918181819181818181817171817
+      1817171717171515151414141414141313131514151818182727273232323939
+      39403F404544443A393911111111111110111111111110101011101010101010
+      10100F10100F10101010100F10100F0F100F0F0F0E0E0F0E0F0F0E0E0E0E0E0E
+      2323230E0E0E3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030302F2F2F2F2F2F2E
+      2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A292929282828272727272727
+      262626252525252525242424242424242424242424818181C9C9C9C9C9C97777
+      77242424242424242424242424242424242424242424585858C9C9C9C9C9C9C9
+      C9C99595952424242424242424242E2E2EAAAAAAC9C9C9C9C9C9C9C9C9B4B4B4
+      7777774D4D4D4D4D4D626262818181BFBFBFC9C9C92D2D2D2E2E2E2F2F2F3333
+      33363636C9C9C9C9C9C9C9C9C93A3A3A3A3A3A3B3B3B3B3B3B3B3B3B3B3B3B82
+      8282C9C9C9C9C9C97E7E7E3030302A2A2A272727242424242424242424C9C9C9
+      C9C9C9C9C9C92424242424242424242424242424242424242424242424248B8B
+      8BC9C9C9C9C9C9C9C9C9C9C9C9BFBFBF8B8B8B777777777777777777969696BF
+      BFBFC9C9C9C9C9C9C9C9C9C9C9C98C8C8C262626262626262626262626262626
+      262626272727272727A0A0A0C9C9C9C9C9C9ABABABC9C9C9C9C9C9BFBFBF8282
+      82797979797979B5B5B5C9C9C9C9C9C9C9C9C9BFBFBF3C3C3C28282828282828
+      2828282828505050C9C9C9C9C9C9C9C9C9282828282828282828282828282828
+      656565C9C9C9C9C9C9C9C9C9BFBFBF8C8C8C6565655050505B5B5B797979ABAB
+      ABC9C9C9797979272727272727272727272727272727787878C9C9C9C9C9C9C9
+      C9C9C9C9C99696967778787878788B8B8CBFBFBFA0A0A0252525252525252525
+      242424818181C9C9C9C9C9C9C9C9C9A0A0A0777777B4B4B42424242424247676
+      76C9C9C98B8A8A4343442828283434348D8D8DC9C9C9C9C9C9B5B5B521212121
+      2121202020212020202020212121272727282727272727272727272727A0A0A0
+      C9C9C9A0A0A06464643B3B3B3B3B3A6E6E6EBFBFBFC9C9C9C9C9C9B5B5B42626
+      25262525252525212121C9C9C9C9C9C9C9C9C9A9A9A99E9E9E9E9E9EBFBFBFC9
+      C9C9C9C9C9C9C9C9C9C9C9C9C9C9636363262525262625262625262524252424
+      252424777777C9C9C9C9C9C9A0A0A02424242424242424242424242324238B8B
+      8AC9C9C9C9C9C9C9C9C976767622222222222222222223232322222223232323
+      2323242424242424242424262624262625272626282726282727282828292928
+      2928282929292929282A29292A2A292A292A292A292929292928292829292928
+      2728282728272728272727272627272726262626262626262626262526262625
+      2626252525252525252625252525252525252424242524252424242424242323
+      2222232223232222232222222222222222222221212120202021202020202020
+      2020202020201F1F1F1F1F1F20201F1F1F1F1F1F1F1F1E1F1F1F1F1E1F1E1E1E
+      1E1E1E1E1D1E1E1D1E1E1D1D1E1D1D1D1D1C1C1C181818191919191818191818
+      181819191819191918191A1A191A1A1B1A1B1A1B1A1A1A1A1B19191A1A1A1A1A
+      191A191919191919191819181919191818181818181918181718171818171817
+      16171415141414141414141515151616161C1D1E2F2F2E3535353C3C3C424241
+      4647472322221111111111111111111111111111101110111010101010101010
+      10101010100F100F100F0F0F0F0F0F0F0F0F0F0E0F0F0F0F0E0E0E0E2323260E
+      0E0E303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E
+      2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A29292928282827272726262626262625
+      2525252525242424242424242424242424787878CBCBCBCBCBCB787878242424
+      2424242424242424242424242424242E2E2EC1C1C1CBCBCBCBCBCBB6B6B62E2E
+      2E242424242424242424787878CBCBCBCBCBCBCBCBCB6D6D6D24242424242424
+      24242424242424242424242424247878782C2C2C2F2F2F323232353535383838
+      CBCBCBCBCBCBCBCBCB3535353434342F2F2F2F2F2F2A2A2A2A2A2A787878CBCB
+      CBCBCBCB787878242424242424242424242424242424242424CBCBCBCBCBCBCB
+      CBCB2424242424242424242424242424242424242424248C8C8CCBCBCBCBCBCB
+      CBCBCBC1C1C16363632424242424242525252525252525252525252525256E6E
+      6EC1C1C1CBCBCBCBCBCBCBCBCB8D8D8D25252526262626262626262626262626
+      2626262626A2A2A2CBCBCBCBCBCBCBCBCBCBCBCB8D8D8D313131272727272727
+      2727272727276F6F6FCBCBCBCBCBCBCBCBCBA2A2A22727272727272727272727
+      27505050CBCBCBCBCBCBCBCBCB272727272727272727272727464646CBCBCBCB
+      CBCBCBCBCBA2A2A2313131272727272727272727272727272727272727505050
+      6565652727272727272727272626264F4F4FCBCBCBCBCBCBCBCBCBACACAC3A3A
+      3B2526252625252525262525252E2F2E6D6D6D242424242424242424242424B6
+      B6B6CBCBCBCBCBCB828282242424242424232323232323232323777777626262
+      222223222323272727292A29343534CBCBCBCBCBCBCBCBCB4041412120212021
+      212020212020202121212827272827272827272727272727279898985A5A5A27
+      2727272727272727272727272727646565CBCBCBCBCBCBCBCBCB454544262525
+      262525262525CBCBCBCBCBCBCBCBCB4B494A1F1F1F1F1F1F1F1E1F3637368D8D
+      8DCBCBCBCBCBCBCBCBCBCBCBCB64646426252525252526252525252425252478
+      7878CBCBCBCBCBCBA1A1A1242424242424242424242424787778CBCBCBCBCBCB
+      CBCBCB8C8B8C2322222322222222222222222322222222232323232323232424
+      242424242525242626252626252727262827272727272827282929282928282A
+      29292928292A292A292A2A29292A29292A292929292928292928292928292827
+      2828272827282827272727272726272627262726272726272626262626262525
+      2626262625252525252525242525252524252424242423232323232323232323
+      2322232323222323222222222222222021212121212020212120202020202020
+      1F20201F1F1F1F1F201F1F201F1F201F1F1F1F1F1F1F1F1E1F1E1F1E1E1E1E1E
+      1E1E1E1E1E1E1E1D1E1E1D1D1E19191A19191919191918191918181818181918
+      1818181718171818181717171718171718171717171717171818181818181818
+      1818181918191919191919181819181919181818191818181818181615161415
+      1514141414141515151518181728282833333239393940404045454440414012
+      1212121212111212111111111110101011101110101110101010101010101010
+      1010101010100F0F10100F100F0F0F0F0F0F0F0F0E0F0F0F2626260E0E0E3030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D
+      2D2D2D2C2C2C2B2B2B2A2A2A2929292828282727272626262626262525252525
+      25242424242424242424242424797979CECECECECECE79797924242424242424
+      2424242424242424242424A3A3A3CECECECECECECECECE444444242424242424
+      2424242F2F2FCECECECECECECECECE6F6F6F2424242424242424242424242424
+      24242424242424242424242424252525272727272727272727242424CECECECE
+      CECECECECE242424242424242424242424242424242424797979CECECECECECE
+      797979242424242424242424242424242424242424CECECECECECECECECE2424
+      24242424242424242424242424242424838383CECECECECECECECECEA3A3A32F
+      2F2F242424242424242424242424242424242424242424242424252525303030
+      AEAEAECECECECECECECECECE7A7A7A2525252525252525252525252525252525
+      25A4A4A4CECECECECECECECECE8F8F8F26262626262626262626262626262626
+      2626262626656565CECECECECECECECECE505050272727272727272727515151
+      CECECECECECECECECE2727272727272727272727279A9A9ACECECECECECEAFAF
+      AF27272726262626262626262626262626262626262626262626262626262626
+      2626262626262626262626A4A4A4CECECECECECEAEAEAE302F30242524252525
+      242424242424252425242524242524242424242424242424242424CECECECECE
+      CECECECE39383823242323242323232323232323242338383823232322232322
+      22232727272929292A292AAFAFAFCECECECECECE4C4C4C212121202020202120
+      2021202424242827282827272827272727272727274646462727272727272727
+      27272727272727272727262727CECECECECECECECECE51514F27262526252525
+      2424CECECECECECECECECE4B4B4B1F1E1F1F1F1F1F1F1F1F1F1F1F1F1F444544
+      C3C3C3CECECECECECEC3C3C33B3B3A2526252526252626242525257A7979CECE
+      CECECECEA3A3A3242424242424242424646464CECECECECECECECECEA3A3A323
+      2322232222242222222222222222222323232223242323242323242424252525
+      2525252626262626262727262828272928282928272A29282929292A29292929
+      29292A2A292A2A2A2A292A29292A292929292929282929292929282928282728
+      2828282727282727272727272626262726272627262626262525262526252625
+      2626252525252525252525252425242323242323232323232323232323232222
+      2323232322232222212222212121212121212121212020202020212020201F20
+      20201F1F201F1F1F1F20201F1F1F1E1F1F1F1F1F1F1E1F1F1E1F1E1E1E1E1E1E
+      1E1E1E1E1E1E1A1B1A1919191919191919191819191819181818191818181818
+      1818181817171818181817181818181717171717171717161716161617171616
+      1616161616161516161616171717161716171717161616151415151414141515
+      1615151616161D1D1E2F2E2F3536363C3C3C4342424747472626261111121211
+      1211111111111211111111111111111011101010111110101010101010101010
+      100F10100F0F0F100F0F0F0F0F0F0F0F0F0E0F0F2326230E0E0E303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C
+      2C2C2B2B2B2A2A2A292929282828272727262626262626252525252525242424
+      2424242424242424247A7A7AD0D0D0D0D0D07A7A7A2424242424242424242424
+      24242424656565D0D0D0D0D0D0D0D0D07A7A7A24242424242424242424242470
+      7070D0D0D0D0D0D0A5A5A5242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424242424D0D0D0D0D0D0D0D0
+      D02424242424242424242424242424242424247A7A7AD0D0D0D0D0D07A7A7A24
+      2424242424242424242424242424242424D0D0D0D0D0D0D0D0D0242424242424
+      2424242424242424244F4F4FD0D0D0D0D0D0D0D0D0A5A5A52424242424242424
+      242424242424242424242424242424242424242424242424242424242F2F2FB0
+      B0B0D0D0D0D0D0D0D0D0D0454545252525252525252525252525252525A5A5A5
+      D0D0D0D0D0D0C5C5C53030302525252525252525252626262626262626262626
+      26262626A5A5A5D0D0D0D0D0D09B9B9B262626262626262626515151D0D0D0D0
+      D0D0D0D0D0262626262626262626313131D0D0D0D0D0D0D0D0D03B3B3B262626
+      2626262626262626262626262626262626262626262626262626262525252525
+      25252525454545D0D0D0D0D0D0D0D0D03A3A3A25252525252424252525242425
+      2425252525242424242424242424242424242424242424D0D0D0D0D0D0D0D0D0
+      2324232323232323242323232423232423232323232323232122222424242626
+      27282727535453D0D0D0D0D0D0D0D0D037373721212120202120212021212128
+      2728282727282727282727282727272727272727272727272727272727272727
+      2727272727273C3B3CD0D0D0D0D0D0D0D0D0515151262626272526262525D0D0
+      D0D0D0D0D0D0D04B4C4B1F1E1F1F1F201F1F1F1F1F1F1F1F1F1E1F1F434443D0
+      D0D0D0D0D0D0D0D09090902626262626252626252525247B7B7AD0D0D0D0D0D0
+      A5A5A5242424242424444444D0D0D0D0D0D0D0D0D0B0B0AF2F2F2E2423222424
+      2323222323222223222223222222222323232424232324242425252525252526
+      26262627272727272828272929282928282929292A29292A2A2A2A29292A2A2A
+      2A2A2A292A2A292A292A2A2929292A2929292929292828292828292828272828
+      2728272728272727262727262626262726272626262625262626262526262525
+      2525252525242424242423242323242423232323232323232323232223222323
+      222222222122222121222121212121212121212020212020202020201F1F2020
+      202020201F201F1F201F1F1F1F1F1F1F1F1F1E1E1E1F1F1E1E1E1E1E1E1E1E1C
+      1C1B1A191919191919191A19191A191919191919191819191819191818181818
+      1818171717181717171817181717171717171717171716171616161616161616
+      1616161616161616151615161515161615151515151515151514141515161518
+      18182828283333333A393A404040454545414141121212111112121212111211
+      111211121111111111111111111011111111101110111010101010101010100F
+      0F0F100F0F0F100F0F0F0F0F0F0E0F0F2626230F0E0F30303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B
+      2B2A2A2A29292928282827272726262626262625252525252524242424242424
+      24242424247C7C7CD3D3D3D3D3D37C7C7C2424242424242424242424242F2F2F
+      C8C8C8D3D3D3D3D3D3B2B2B22424242424242424242424242424249C9C9CD3D3
+      D3D3D3D366666624242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424D3D3D3D3D3D3D3D3D3242424
+      2424242424242424242424242424247C7C7CD3D3D3D3D3D37C7C7C2424242424
+      24242424242424242424242424D3D3D3D3D3D3D3D3D324242424242424242424
+      2424242424BDBDBDD3D3D3D3D3D3BDBDBD2F2F2F242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242F2F2FC8C8
+      C8D3D3D3D3D3D3A7A7A7242424242424242424252525252525A7A7A7D3D3D3D3
+      D3D3878787252525252525252525252525252525252525252525252525252525
+      5C5C5CD3D3D3D3D3D3C8C8C8252525252525252525515151D3D3D3D3D3D3D3D3
+      D3252525252525252525515151D3D3D3D3D3D3B2B2B225252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      7C7C7CD3D3D3D3D3D39C9C9C2525252525242525252424242424242424242424
+      24242424242424242424242424242424242424D3D3D3D3D3D3D3D3D324242324
+      23242323232323232223222222222222222222222122222424242626275E5D5E
+      C8C8C8D3D3D3D3D3D3BDBDBD2121212121212121212121212424242928282927
+      2728272728282728272727272727272727272727272727272727272727272727
+      27279D9D9DD3D3D3D3D3D3D3D3D3515251262626262525262526D3D3D3D3D3D3
+      D3D3D35050502121201F1E1F1F1E1F1F1F1F1F1F1F1F1F1F1F1F1F7A797AD3D3
+      D3D3D3D3D3D3D33131312625262626252525257C7D7CD3D3D3D3D3D3A7A7A725
+      2424454545C8C8C8D3D3D3D3D3D3C8C8C82F2F2E242423242423242322242322
+      2323222323232422232322232424242423232525242525252626262625262727
+      272728272828282929292929282A29292929292A2A292A2A292B2A2A2A2A2A2A
+      2A2A2A2A2A2A292A29292A292929292929292929292928282928292828282827
+      2827272827272727272727272727272627262626262625262625262625262524
+      2524232324232324242324242424242423232323242423232223222223222222
+      222122212122212221212121212120212121202021202020202020202020201F
+      201F201F2020201F1F1F1F1F1F1F1F1E1F1E1F1F1E1E1E1E1E1D1E1A191A1A19
+      1A19191919191A19191919191919191919181919181918181819191918181818
+      1818181818181818181817171717171717161716161717171617161616161716
+      1616161615161616161615151615151515151515151616151617171E1E1E3030
+      303636363E3E3E42434347474827262612121212131212121212121112111211
+      1212111112111111111110111011111011111010101011101010100F10100F10
+      0F100F0F100F0F100F0F0F0F2623260F0F0F3030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A
+      2929292828282727272626262626262525252525252424242424242424242424
+      247D7D7DD5D5D5D5D5D57D7D7D2424242424242424242424249D9D9DD5D5D5D5
+      D5D5CACACA3A3A3A242424242424242424242424242424A9A9A9D5D5D5D5D5D5
+      D5D5D5B4B4B4A9A9A97D7D7D7272725050503A3A3A2424242424242424242424
+      24242424242424242424242424242424D5D5D5D5D5D5D5D5D524242424242424
+      24242424242424242424247D7D7DD5D5D5D5D5D57D7D7D242424242424242424
+      242424242424242424D5D5D5D5D5D5D5D5D52424242424242424242424245C5C
+      5CD5D5D5D5D5D5D5D5D55C5C5C24242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424676767D5D5D5
+      D5D5D5D5D5D5454545242424242424242424242424A9A9A9D5D5D5D5D5D55050
+      50242424242424242424242424252525252525252525252525252525252525D5
+      D5D5D5D5D5D5D5D5252525252525252525515151D5D5D5D5D5D5D5D5D5252525
+      2525252525257D7D7DD5D5D5D5D5D5D5D5D5BFBFBFA9A9A98888887D7D7D5151
+      51464646252525252525252525252525252525242424242424242424878787D5
+      D5D5D5D5D57D7D7D242424242424242424242424242424242424242424242424
+      242424242424242424242424242424D5D5D5D5D5D5D5D5D52223232323222322
+      23222223232222232222222222222222242424303030898889D5D5D5D5D5D5D5
+      D5D5D5D5D5595959212121212121212121212121282728292928282827292728
+      292727282728272727272727272727272727272727272727272727939393D5D5
+      D5D5D5D5D5D5D5BFBFBF262726262725262626272525D5D5D5D5D5D5D5D5D551
+      51512525242221221F1E20201E1F1F1F1F1F1F1F1F1E1F363636D5D5D5D5D5D5
+      D5D5D55252522625262625262526257D7D7DD5D5D5D5D5D5A9A9A9302F2FB4B4
+      B4D5D5D5D5D5D5CACACA45454524242424242424242424242324242223242324
+      2323242423242323242423242424252425252525262626272727272727282828
+      2829282A2A292A2A292A2A292B2A2A2B2A2A2A2A2A2B2A2A2B2A2A2A2A2A2A2A
+      2A2A2A2A292A2929292929292929292928292928282928282829282728282728
+      2727282727272726272627272627262626262626252525242423232423242323
+      2524232423232424232424232323232423222323222322222321222221222221
+      222221212121212121212121212120212121202020202020202020201F201F20
+      1F20201F1F1F1F1F1F1F1F1F1F1F1F1F1F1E1E1E1A1A1A1A191A1A191A1A191A
+      1A1A1B1B1A1A1D1D1D2728272323242323231F201F1E1E1D1A1A1A1919191919
+      1919191819191819181817171717171717171716171617161617171616161615
+      16161616151515161516161516151515151616161919192B2C2C3434343A3A3A
+      4040404645464241411312131313121212121212121212121212121211111111
+      121111111111111111111111101011111010101010101010101010100F100F0F
+      100F0F0F0F0F100F2626260F0F0F303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A29292928
+      28282727272626262626262525252525252424242424242424242424247E7E7E
+      D8D8D8D8D8D87E7E7E242424242424242424515151D8D8D8D8D8D8D8D8D87373
+      73242424242424242424242424242424242424ABABABD8D8D8D8D8D8D8D8D8D8
+      D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8B6B6B6ABABAB7E7E7E737373
+      3B3B3B242424242424242424D8D8D8D8D8D8D8D8D82424242424242424242424
+      242424242424247E7E7ED8D8D8D8D8D87E7E7E24242424242424242424242424
+      2424242424D8D8D8D8D8D8D8D8D8242424242424242424242424949494D8D8D8
+      D8D8D8B6B6B62424242424242424242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424242424C1C1C1D8D8D8D8
+      D8D8898989242424242424242424242424ABABABD8D8D8D8D8D8515151242424
+      242424242424242424242424242424242424242424242424242424D8D8D8D8D8
+      D8D8D8D8515151242424242424515151D8D8D8D8D8D8D8D8D824242424242424
+      24247E7E7ED8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8
+      D8D8D8CDCDCDABABAB9494947E7E7E5C5C5C242424242424ABABABD8D8D8D8D8
+      D868686824242424242424242424242424242424242424242424242424232423
+      2324242323242323242323D8D8D8D8D8D8D8D8D8232323232223232222232323
+      222223222323222322232322464647C2C2C2D8D8D8D8D8D8D8D8D8D8D8D86566
+      6521212121212121212121212124242429292829282729282728272828272729
+      2827282727272727272727272727272727484848B7B7B7D8D8D8D8D8D8D8D8D8
+      D8D8D85F5F5E272726262726262626262625D8D8D8D8D8D8D8D8D85252522424
+      25252424232324201F20201E1F1F1F1F1F1F1F1F1E1FC1C1C1D8D8D8D8D8D87D
+      7D7D2525252626262526267F7F7FD8D8D8D8D8D8ABABABABABABD8D8D8D8D8D8
+      D8D8D85C5C5C2424242424242424242424242324232324232323222423232423
+      232423232524242424242424252626252626262728272828282828282828282A
+      29292A2A2A2A2A292B2B2A2B2A292A2A2A2B2B2A2B2A2B2B2A2A2B2A2A2A2929
+      2A2A292A2A2A29292A2929292929292929292929282829292928272928272827
+      2728272727272726262625252624252524242424242324242324242424232325
+      2324242323242423242323232323232322232222232222222222222122222122
+      2221212121212121212120212120202120202020202020202020202020201F20
+      201F201F1F20201F1F1F1F1F1F1B1B1A1A191B1A191A1A191A1B1A1B1A1A1B1D
+      1D1C2B2C2B2D2D2E2E2E2E2E2E2E2E2E2E2D2C2D2D2D2C2C2C2D292929282728
+      2423242221221E1E1F1C1D1D1919191818181717181718171717181717171616
+      161615161516161615151617161818182323233131313737373E3E3E44444448
+      4848212120131312131313121213121312121212111212111212111211121111
+      1111111111111110111011111111111110101110101010101010100F100F0F0F
+      100F0F0F2626260F0F0F30303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F2F2F
+      2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A2929292828282727
+      27262626262626252525252525242424242424242424242424808080DBDBDBDB
+      DBDB808080242424242424242424C4C4C4DBDBDBDBDBDBA2A2A2242424242424
+      242424242424242424242424242424ADADADDBDBDBDBDBDB8B8B8B8B8B8BADAD
+      ADB9B9B9DBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDB80808024
+      2424242424242424DBDBDBDBDBDBDBDBDB242424242424242424242424242424
+      242424808080DBDBDBDBDBDB8080802424242424242424242424242424242424
+      24DBDBDBDBDBDBDBDBDB242424242424242424242424D0D0D0DBDBDBDBDBDB74
+      7474242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424248B8B8BDBDBDBDBDBDBC4C4
+      C4242424242424242424242424ADADADDBDBDBDBDBDB52525224242424242424
+      2424242424242424242424242424242424242424242424DBDBDBDBDBDBDBDBDB
+      2F2F2F242424242424525252DBDBDBDBDBDBDBDBDB2424242424242424248080
+      80DBDBDBDBDBDBADADAD808080A2A2A2ADADADDBDBDBDBDBDBDBDBDBDBDBDBDB
+      DBDBDBDBDBDBDBDBDBDBDBB9B9B92424242424248B8B8BDBDBDBDBDBDB808080
+      2424242424242424242424242324242423242424242424232424232323232324
+      23232423242423DBDBDBDBDBDBDBDBDB23232322232323232223222223232223
+      2223232222464646D0D0D0DBDBDBDBDBDBDBDBDBC5C5C5525252212121212121
+      2121212121212121212827272929282929282929282828272828282827282828
+      27272727272727272727767676DBDBDBDBDBDBDBDBDBDBDBDBDBDBDB97979727
+      2727272726262726262725272525DBDBDBDBDBDBDBDBDB535353242525242525
+      2424242424242121211F1E201F1F1F1F1F1FACACACDBDBDBDBDBDB7D7D7D201F
+      1F232222252525808181DBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDB69696924
+      2424242424242424242424242424242424242424232423242423242423242424
+      2524242525252525252525262726262727272828282929292829292A2A292B2A
+      2B2A2A2A2C2B2A2B2B2A2B2A2A2C2B2A2C2A2A2B2A2A2B2A2A2A2A2A2A2A292A
+      2A2A2A292A292929292A29292929282929292929292829282827292827282727
+      2626262425242425242425252424242424242424242423242323242424232424
+      2423242324242324232323232223232223222223222222222222222122222122
+      222121212121212021212021212120212020202020212020202020201F20201F
+      201F1F201F1F1B1B1B1A1A1A1A1A1B1A1A1A1B1A1B1B1A1C1D1C1D2A2A293030
+      31313232323332323232323232303130302F2F2F2F2F2D2D2D2D2D2E2B2C2C2B
+      2C2C2C2B2B2B2C2B2B2B2B2B2B2B2828282627272323232121211D1E1E1B1B1B
+      1818171617161919181B1B1B2E2E2E3434343B3B3B4141414747473C3B3C1313
+      1313121312121313131313121212121212121212121112111212121211121111
+      1111111111111110101111111110111010101010101010100F0F100F0F0F100F
+      2626260F0F0F3030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030302F2F2F2F2F2F2E
+      2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A292929282828272727262626
+      262626252525252525242424242424242424242424818181DDDDDDDDDDDD9797
+      97525252525252818181DDDDDDDDDDDDD1D1D130303024242424242424242424
+      2424242424242424242424A3A3A3DDDDDDDDDDDD525252242424242424242424
+      2424243B3B3B525252757575818181D1D1D1DDDDDDDDDDDD6A6A6A2424242424
+      24242424DDDDDDDDDDDDDDDDDD30303024242424242424242424242424242481
+      8181DDDDDDDDDDDD818181242424242424242424242424242424242424DDDDDD
+      DDDDDDDDDDDD2424242424242424243B3B3BDDDDDDDDDDDDDDDDDD4747472424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424525252DDDDDDDDDDDDDDDDDD303030
+      242424242424242424AFAFAFDDDDDDDDDDDD8181812424242424242424242424
+      242424242424242424242424242424245E5E5EDDDDDDDDDDDDDDDDDD24242424
+      2424242424525252DDDDDDDDDDDDDDDDDD2424242424242424245E5E5EDDDDDD
+      DDDDDD9797972424242424242424242424243030305252525E5E5E818181A3A3
+      A3DDDDDDDDDDDDAFAFAF242424242424757575DDDDDDDDDDDDA3A3A324242424
+      2424242424242424242424242324232324232324242424242324232424242424
+      232423DDDDDDDDDDDDDDDDDD2323232323232323222323232322232323232323
+      23AFAFAFDDDDDDDDDDDDDDDDDD8E8E8E35353521212021212121212121212121
+      21212424242A2929292928292928292928292828282828292827282727272727
+      272727989898DDDDDDDDDDDDDDDDDDDDDDDDD2D2D26C6C6C2727272727272727
+      26272726272726262626DDDDDDDDDDDDDDDDDD54535325252525252524252424
+      2424242524232324201F201F1F1FADADADDDDDDDDDDDDD7E7E7E1F1E1E1F1E1E
+      1E1E1E7F7F7FDDDDDDDDDDDDD2D2D1DDDDDDDDDDDDD1D1D13C3B3B2524242424
+      2424242424242424242424242424242424242423242324242324242425242425
+      25252625252626262626272727272829282929292929292A2A292B2A2A2B2B2A
+      2B2C2B2B2B2A2B2B2A2C2B2B2C2B2B2C2B2B2B2A2A2B2A2A2A2A2A292A2A2A2A
+      292A292A2A292A29292929292929292829292828282727262725252525252525
+      2525252525252425242424252424242424232424252423242424242424242423
+      2424232423232423232323222323222322222222222222222221212121212121
+      2121212121212021212120202020202120202020202020201F1F20202020201C
+      1C1B1A1A1B1A1A1B1A1A1B1B1B1C1B1A1C1E1D1F29292A323232343434373637
+      373737373737353535343434313132313132303030302F2F2F2F2F2F2F2E2F2F
+      2E2D2E2E2E2D2E2C2C2D2C2C2C2C2C2C2B2A2B2B2A2B2A2A2A2A2A2A2A2A2A29
+      2A2A2828292C2B2C3333333939393F3F3F4545454848481D1D1D131313141313
+      1313131312121313121213121212121212121212121112121112111211121211
+      1111111111111110101110111110101110101010101010100F1010102826260F
+      100F303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E
+      2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A29292928282827272726262626262625
+      2525252525242424242424242424242424828282E0E0E0E0E0E0E0E0E0E0E0E0
+      E0E0E0E0E0E0E0E0E0E0E0E0B1B1B15353532424242424242424242424242424
+      24242424242424777777E0E0E0E0E0E08D8D8D24242424242424242424242424
+      2424242424242424242424C8C8C8E0E0E0E0E0E0474747242424242424242424
+      E0E0E0E0E0E0E0E0E05353532424242424242424242424242424248D8D8DE0E0
+      E0E0E0E0A5A5A52424242424242424242424242424243C3C3CE0E0E0E0E0E0E0
+      E0E0242424242424242424535353E0E0E0E0E0E0E0E0E0242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24242424242424242424242424242424E0E0E0E0E0E0E0E0E053535324242424
+      2424242424B1B1B1E0E0E0E0E0E0C8C8C8242424242424242424242424242424
+      242424242424242424242424A5A5A5E0E0E0E0E0E0B1B1B12424242424242424
+      24535353E0E0E0E0E0E0E0E0E0242424242424242424303030E0E0E0E0E0E0D4
+      D4D4242424242424242424242424242424242424242424242424777777E0E0E0
+      E0E0E08D8D8D242424242424474747E0E0E0E0E0E0E0E0E04747472424242424
+      24242424242424242424242423242423242424232424242423232424242423E0
+      E0E0E0E0E0E0E0E02323232323232323222323232223232322233C3B3CE0E0E0
+      E0E0E0E0E0E07A7A7A2C2C2C2324242121212121212121212121212121212828
+      28292929292929292928292928292827282727282828282828282827848484E0
+      E0E0E0E0E0E0E0E0E0E0E0A6A6A63E3E3E272727272727272727272726272726
+      272626262626E0E0E0E0E0E0E0E0E05554542525252525252525242524252525
+      25242525242424222121E0E0E0E0E0E0E0E0E06868681F1F1F1E1E1F1E1E1E7F
+      7F7FE0E0E0E0E0E0B0B1B1999A9AE0E0E0E0E0E0BDBDBD303030252424242424
+      2424242424242424242424242424242424242525242425242525252525252625
+      252626252727272728282829292929292929292A2A2A2B2A2B2A2A2B2C2C2B2B
+      2B2B2B2B2A2C2C2B2C2B2B2C2B2B2B2A2A2B2A2A2B2A2A2A2A2A2A2A2A2A2929
+      2929292929292929292828272625262625252525252526252525262525252524
+      2525242424252425252525242425252524252525242424252424242424242324
+      2323242323232322232222232223232223222222222122222122212222212122
+      2122212121212021212021202121212020202020202020201C1C1C1A1B1B1A1B
+      1B1A1A1B1B1B1C1B1B1C1E1D1E2727283333333737373A3A3A3C3C3C3C3D3C3C
+      3C3C3B3A3A37373836363633343332313232323231313131313131313130302F
+      302F2F2F2F302E2E2E2E2E2E2E2D2E2E2D2D2D2D2D2C2C2C2C2D2C2D2D2D2F2F
+      2E3232323636363D3C3C43444347474735353513131313131413141313131312
+      1313121313121313121212121212121212121212111211111211121111111111
+      1111111110111110101011101011111010111010101010102828260F0F103030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D
+      2C2C2C2C2C2C2B2B2B2A2A2A2929292828282727272626262626262525252525
+      25242424242424242424242424838383E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2
+      E2E2E2E2E2E2E2E2E2E2E2E2E2E28F8F8F242424242424242424242424242424
+      2424243C3C3CE2E2E2E2E2E2D6D6D63C3C3C2424242424242424242424242424
+      24242424545454E2E2E2E2E2E2CACACA242424242424242424242424E2E2E2E2
+      E2E2E2E2E2838383242424242424242424242424242424BEBEBEE2E2E2E2E2E2
+      D6D6D63030302424242424242424242424246C6C6CE2E2E2E2E2E2CACACA2424
+      24242424242424545454E2E2E2E2E2E2E2E2E224242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424E2E2E2E2E2E2E2E2E25454542424242424242424
+      24B2B2B2E2E2E2E2E2E2E2E2E283838324242424242424242424242424242424
+      24242424246C6C6CE2E2E2E2E2E2E2E2E26C6C6C242424242424242424545454
+      E2E2E2E2E2E2E2E2E2242424242424242424242424A6A6A6E2E2E2E2E2E27777
+      77242424242424242424242424242424242424303030CACACAE2E2E2E2E2E248
+      4848242424242424242424B2B2B2E2E2E2E2E2E2BEBEBE303030242424242424
+      242424242324242424242424232424242424242424232324232423E2E2E2E2E2
+      E2E2E2E2242324242323232323232323232322222322545454E2E2E2E2E2E2CB
+      CBCB2A2A2A2B2B2B2121212121212121212121212121212324242A292A292929
+      2929292A29282A2928292928292828282828282727343434D6D6D6E2E2E2E2E2
+      E2E2E2E26D6D6D27272727272727272727272727272727272727272727272627
+      2626E2E2E2E2E2E2E2E2E2555555252525252525252525252425252425252524
+      252425606060E2E2E2E2E2E2E2E2E24443431E1E1F1F1F1E1E1F1F808080E2E2
+      E2E2E2E2B1B1B11F1E1EBEBEBEE2E2E2E2E2E2A7A6A624242424242424242424
+      2424242424242424242425242324242524242424252625252525262625272626
+      2827272828282829292929292929292A2A2A2B2B2B2A2A2B2B2B2B2B2B2B2B2B
+      2B2C2C2B2C2C2B2C2B2B2C2B2B2B2A2A2B2A2B2B2A2A2A2A2A292A2A28282927
+      2827262626252525262525262425262525252525252525262525252525252424
+      2525252525252625252525252525252525252425242525242424242424232423
+      2324232324222223222323222222222222222222222122222222222221212121
+      21212121212121212021212020212020201C1C1C1B1B1C1B1B1C1A1A1B1B1B1C
+      1B1B1C1D1D1E2625263433343938393C3C3C4140404242424242422E2E2E3434
+      3433323238383835363635343434343334333332323232323231313130303130
+      3131313130303030303030303030302F302E2E2E2E2E2E302F2F313130343535
+      3A3A3A3F3F3F4544444545451716171314131314141413141313141313131313
+      1313121313121312121313121212121212121212111211111211111111121111
+      11111111101011111011101110111010101010102826280F1010303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C
+      2C2C2B2B2B2A2A2A292929282828272727262626262626252525252525242424
+      242424242424242424858585E5E5E5E5E5E59C9C9C5454545454545454547979
+      79CDCDCDE5E5E5E5E5E5E5E5E590909024242424242424242424242424242424
+      2424909090E5E5E5E5E5E5C1C1C1303030242424242424242424242424484848
+      D9D9D9E5E5E5E5E5E56D6D6D242424242424242424242424E5E5E5E5E5E5E5E5
+      E5D9D9D93C3C3C242424242424242424545454E5E5E5E5E5E5E5E5E5E5E5E585
+      8585242424242424242424242424C1C1C1E5E5E5E5E5E59C9C9C242424242424
+      242424545454E5E5E5E5E5E5E5E5E52424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424E5E5E5E5E5E5E5E5E5545454242424242424242424B5B5B5
+      E5E5E5E5E5E5E5E5E5E5E5E58585852424242424242424242424242424246D6D
+      6DE5E5E5E5E5E5E5E5E5CDCDCD242424242424242424242424545454E5E5E5E5
+      E5E5E5E5E5242424242424242424242424545454E5E5E5E5E5E5D9D9D9484848
+      2424242424242424242424242424249C9C9CE5E5E5E5E5E5B5B5B52424242424
+      24242424242424545454E5E5E5E5E5E5E5E5E5C1C1C13C3C3C24242424242424
+      2424242424242424616060232424242424232324242423E5E5E5E5E5E5E5E5E5
+      2424232324232324232323232323232323234A4A4AE5E5E5E5E5E5D9D9D92B2B
+      2C2525262121212121212121217777772121212727272A29292A2A2A292A2929
+      2928292928292928292828292728292827585757E5E5E5E5E5E5E5E5E5868686
+      272727272727272727272727272727272727272727272726272726272726E5E5
+      E5E5E5E5E5E5E5565555262525252525252525252425252425252424252424C1
+      C1C1E5E5E5E5E5E5CDCDCD2121211F1F1F1E1F1F1F1F1F828282E5E5E5E5E5E5
+      B3B3B31E1E1E2A2A2AD9D9D9E5E5E5E5E5E58484842424242524242424242424
+      2424252524252424242425252524252526252526252526262528272628272729
+      2728292928292929292A2A2B2A2A2B2B2B2B2B2B2C2C2C2C2C2B2B2B2C2C2C2C
+      2C2C2C2C2C2B2C2B2B2C2B2B2B2B2B29292A2727272626262525262525262625
+      2525252625252526252526252426252525262526252525252526262626262626
+      2526262626252625252525252525252425242424252423242423242323242323
+      2323232323222323222222222222222222222221222221222221222121212121
+      212121212021212121201C1C1D1B1B1C1B1B1C1A1B1C1A1B1C1C1B1D1E1D1E25
+      25253434343938393D3E3E4342424546464747482A2A2A191819181918181819
+      1818181818181F1F1F1E1E1F2627262627272D2E2D2C2D2D3434343334343333
+      3232323232323231313131313030302F2F302F3131323434343736373C3B3C40
+      40414444442D2E2D141414141414141414141413131413131313131313131313
+      1313131213131212121212121212121212111212121112111111111111111111
+      11111111101011101011101011101010282828100F1030303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B
+      2B2A2A2A29292928282827272726262626262625252525252524242424242424
+      2424242424868686E7E7E7E7E7E7868686242424242424242424242424303030
+      9E9E9EE7E7E7E7E7E7E7E7E75555552424242424242424242424242424243030
+      30C2C2C2E7E7E7E7E7E7CFCFCF6D6D6D3030303C3C3C868686DBDBDBE7E7E7E7
+      E7E7B6B6B6242424242424242424242424242424E7E7E7E7E7E7E7E7E7E7E7E7
+      DBDBDB6D6D6D555555868686DBDBDBE7E7E7E7E7E7CFCFCFE7E7E7E7E7E79E9E
+      9E555555616161B6B6B6E7E7E7E7E7E7E7E7E755555524242424242424242455
+      5555E7E7E7E7E7E7E7E7E7242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24303030E7E7E7E7E7E7E7E7E7555555242424242424242424B6B6B6E7E7E7E7
+      E7E7B6B6B6E7E7E7E7E7E7CFCFCF868686555555868686C2C2C2E7E7E7E7E7E7
+      E7E7E7E7E7E7494949242424242424242424242424555555E7E7E7E7E7E7E7E7
+      E7242424242424242424242424242424919191E7E7E7E7E7E7E7E7E786868649
+      4949303030616161C2C2C2E7E7E7E7E7E7DBDBDB494949242424242424242424
+      242424242424919191E7E7E7E7E7E7E7E7E7E7E7E79E9E9E8686868686869191
+      91CFCFCFB6B6B6242424555555858686868686E7E7E7E7E7E7E7E7E785858685
+      8685858585858585545454242424262626DBDBDBE7E7E7E7E7E7A0A0A02D2D2D
+      2121215F5F5FC2C2C2B5B5B52424232A2A2A2A2A2A2A2A292929292929282929
+      28292929292828292828282827595757E7E7E7E7E7E7E7E7E733343328272827
+      2727272727272727272727272727272727272726272726272726E7E7E7E7E7E7
+      E7E7E75756562626262526252525262525252525252525259E9E9EE7E7E7E7E7
+      E7E7E7E76D6D6D242424242424212121202020838383E7E7E7E7E7E7B5B5B51E
+      1E1E1E1E1E444444E7E7E7E7E7E7E7E7E76A6A6A1E1E1E212020212121222322
+      2423232424242525252525252525252526252626262727272827272928282929
+      292A29292A2A2A2A2B2A2B2B2B2B2B2B2B2C2B2B2C2B2C2B2C2C2C2B2B2A2A29
+      2929282728272727272727262727262626262626262626262625262626262525
+      2525252525252625252626252526262726262626262726262626262626252525
+      2626252525252525252525252525252424242425242325242324232423232324
+      2323232223232222222322222222222222212221212122222122212121212121
+      2121211D1C1D1C1B1D1B1B1C1B1B1C1B1B1C1C1C1C1C1B1C2323233434333838
+      383D3D3D4343424647474A4A4A35343519191A19191919191818191918181819
+      18181818181818181718171717171718181717171717171617171D1E1E1D1D1E
+      2625252525252C2C2C2C2C2C3232333334333535363A3A3B3D3D3D4040403E3D
+      3D14141415141414141414141413131314131313131413131313131312131313
+      1212131312121212121212121212121112121111111111111211111111111111
+      1111111011101110101110102828280F10103030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A
+      2929292828282727272626262626262525252525252424242424242424242424
+      24878787E9E9E9E9E9E9878787242424242424242424242424242424303030D0
+      D0D0E9E9E9E9E9E99F9F9F242424242424242424242424242424242424494949
+      C4C4C4E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9C4C4C43030
+      302424242424242424246E6E6EE9E9E9E9E9E9E9E9E9E9E9E9929292E9E9E9E9
+      E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9626262878787E9E9E9E9E9E9E9E9E9
+      E9E9E9E9E9E9E9E9E9E9E9E9ABABAB2424242424242424242424243D3D3DE9E9
+      E9E9E9E9E9E9E949494924242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424555555
+      E9E9E9E9E9E9E9E9E9242424242424242424242424B8B8B8E9E9E9E9E9E95555
+      559F9F9FE9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9DDDDDD6E
+      6E6E2424242424242424242424249F9F9FE9E9E9E9E9E9E9E9E9E9E9E9242424
+      2424242424242424242424242424249F9F9FE9E9E9E9E9E9E9E9E9E9E9E9E9E9
+      E9E9E9E9E9E9E9E9E9E9DDDDDD49494924242424242424242424242424242424
+      2424242424878787E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9
+      B8B8B8242424878787E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9
+      E9E9E9E98787872626262726277D7C7CE9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9
+      E9E9E9E9E9B7B7B72727272A2A2A2929292A2A2A2A2A2A2A2929292A28292929
+      292928292828292828595858E9E9E9E9E9E9E9E9E94C4C4C2727282827282727
+      27272727272727585858272727272727272727272726E9E9E9E9E9E9E9E9E957
+      5757272525262626252625252625313131ACACACE9E9E9E9E9E9E9E9E9C4C4C4
+      252525242424242424242424242424868686E9E9E9E9E9E9B6B6B61E1E1E1E1E
+      1E1E1E1E6A6A6AE9E9E9E9E9E9DCDCDC4444441E1E1E1E1E1E1E1F1F1F1E1E1E
+      1F1F212020202020222121232322242324232324262525282727282828282827
+      2828282728272828282827272828282726272727272727262727262827272727
+      2727272727272726272726272727262627262626262626262626252626252626
+      2626262626272727272727262727272627262726262626262626252626262626
+      2626252526252525252525242525242524242424232423242423232422222322
+      222323232323232322222222222222222122222221212221222222211F1E1F1C
+      1C1C1C1C1D1C1B1C1B1C1C1B1B1C1C1C1D2222223030303636353B3B3B414141
+      4747474B4B4B3839391A1A19191A191919191919191819191919191918181818
+      1918181818181818181817181817181817171717171717171716171717161717
+      16161616161616161516151615161D1D1E1E1E1E2828282A2A2A202020151514
+      1514141414141414141414131314141314131313131313131313131312121213
+      1312121312121212121212121212121211111212121111121111121211111110
+      1111111111101011282B28101010303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A29292928
+      2828272727262626262626252525252525242424242424242424242424888888
+      ECECECECECEC8888882424242424242424242424242424242424247C7C7CECEC
+      ECECECECDFDFDF24242424242424242424242424242424242424242431313194
+      9494ECECECECECECECECECECECECECECECDFDFDF888888242424242424242424
+      242424242424242424D3D3D3ECECECECECECECECEC242424949494ECECECECEC
+      ECECECECECECECECECEC888888242424242424888888ECECECECECECECECECEC
+      ECECECECECA1A1A1313131242424242424242424242424242424DFDFDFECECEC
+      ECECEC7C7C7C2424242424242424242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424242424949494ECECECEC
+      ECECD3D3D3242424242424242424242424BABABAECECECECECEC565656242424
+      7C7C7CDFDFDFECECECECECECECECECECECECECECECA1A1A13D3D3D2424242424
+      242424242424242424243D3D3DECECECECECECECECECECECEC24242424242424
+      2424242424242424242424242424636363D3D3D3ECECECECECECECECECECECEC
+      ECECECA1A1A13D3D3D2424242424242424242424242424242424242424242424
+      24242424565656ADADADECECECECECECECECECECECECECECECECECECBABABA24
+      2424888888ECECECECECECECECECECECECECECECECECECECECECECECECECECEC
+      8888882626262727272929297F8080E0E0E0ECECECECECECECECECECECECECEC
+      EC9393932A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292929292A2929292829292829
+      2829292828353434ECECECECECECECECECAEAEAF272828272728272727333333
+      959595BBBBBB272727272727272726272727ECECECECECECECECEC7D7D7D5858
+      58585858717170A1A1A1E0E0E0ECECECECECECECECECC7C6C731313124242524
+      2424242424242424242424888888ECECECECECECB9B9B9201F1F1E1E1E1E1E1E
+      1E1E1E9E9E9EECECECECECECD2D2D22B2B2B1E1E1E1F1F1F1F1E1F1F1E1F1F1E
+      1F1F1F1F1F1F1F20202020202021222122222323232323232324242424252525
+      2524252625252526262627262626272727262627272627282626272727272727
+      2627272726272727272627272626262626262626262727272727282728282827
+      2727282727272727272627272626272727272626262726262625262626262525
+      2525252625262525252524252424242424242323242423242323232323232223
+      2323222323232223222222222222222222212122222121212020211C1C1D1C1C
+      1D1C1C1C1B1B1C1C1B1C2222222F2F2F3434343938393F3E3E4546454B4A4A3D
+      3D3D191A191A1A19191919191919191919191919191819191819181918191818
+      1818181818181718181718181817181717171717171717161617171716161717
+      1716161616161616161616161616151616161515151515151515141514151514
+      1415141414141414131314131313141313131313131413131312131313131313
+      1313131212121212121212121212121212111111121211111111111111111111
+      11101111282B2810101030303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F2F2F
+      2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A2929292828282727
+      27262626262626252525252525242424242424242424242424898989EEEEEEEE
+      EEEE898989242424242424242424242424242424242424575757EEEEEEEEEEEE
+      EEEEEE2424242424242424242424242424242424242424242424242424243131
+      315757577D7D7D70707057575724242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424243D3D3D636363898989
+      5757573131312424242424242424242424243131315757578989896363633D3D
+      3D242424242424242424242424242424242424242424A2A2A2EEEEEEEEEEEED5
+      D5D5242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424D5D5D5EEEEEEEEEEEE9595
+      95242424242424242424242424BBBBBBEEEEEEEEEEEE57575724242424242424
+      24245757577070707D7D7D575757313131242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424244A4A4A70707089898957575731313124
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424313131636363EEEEEEEEEEEEEEEEEE7D7D7D2424242424242424
+      24242424242324EEEEEEEEEEEEEEEEEE24232423232323232323232426262627
+      27272828282A2A2A2C2C2C2727275454547C7C7C7B7C7C545455212122272727
+      2A2A2A2A2A2A2A2A2A2A2A29292A2A2A29292929292A2A282929282928282929
+      282928288C8B8BEEEEEEEEEEEEEEEEEED5D5D5BCBCBCBCBCBCEEEEEEEEEEEEBC
+      BCBC272727272727272727272727EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
+      EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBCBCBC3232312425252524242524252425
+      25242424242424898989EEEEEEEEEEEEBBBBBB242423232322212121201F201E
+      1E1EC7C7C7EEEEEEEEEEEEC7C7C71E1E1E1F1F1F1E1E1F1F1F1E1F1F1E201F1F
+      1F1F1F2020202120202221212322222323232424232424242525252525252626
+      2626252526262726262727272726272727272727272727272627272727272727
+      2727272627272726272728282828282828282728282728272828272728272728
+      2727282727272727272727272727262626262626262626262625262626252625
+      2525252525252425252424242425242324242324232424232323232323222322
+      23232323222222232222222222222222212221212221221C1C1D1C1C1D1C1C1D
+      1B1C1D1B1B1D2827283130303535353A3A394140414647474242431D1D1D1A1A
+      1A1A1A1A1A1A191A191A1A191919191919191919181818181918181818181818
+      1818181818171718171817171717171817171717161717171617161716161616
+      1616161616161616161615161515151516151515151515151515151414151415
+      1414141514141414141314141313141413131313141313131312131213131313
+      1212121212121212121212121212121112111111121211111111111111111011
+      2B28281110103030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030302F2F2F2F2F2F2E
+      2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A292929282828272727262626
+      2626262525252525252424242424242424242424248A8A8AF0F0F0F0F0F08A8A
+      8A242424242424242424242424242424242424575757F0F0F0F0F0F0F0F0F024
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424575757F0F0F0F0F0F0F0F0F07171
+      7124242424242424242424242424242424242424242424242424242424242424
+      24242424242424242424242424247E7E7EF0F0F0F0F0F0F0F0F04A4A4A242424
+      242424242424242424BDBDBDF0F0F0F0F0F05757572424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424717171F0F0F0F0F0F0969696242424242424242424242424242424
+      242424F0F0F0F0F0F0F0F0F02324232324242323232525242626262727282A29
+      292B2B2B2C2C2C2222222122222222222222222222222222222A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A292A2A2A2A292A2929292928292928292828292828
+      292828A5A5A5F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0BEBEBE2727
+      27272727272727272727F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
+      F0F0F0F0F0D7D7D7727171252525252525242525242525242525242425242424
+      2424248A8A8AF0F0F0F0F0F0BDBDBD2423242424232423232323232323223B3B
+      3BE3E3E3F0F0F0F0F0F0A1A1A11F1F1F1F1F1F1F1F1F1F1F1E1F20201F1F1F20
+      2020202020212120232222232323232324242424252525252525252625252526
+      2726272626262727272727272726262627262727272727282828282928282929
+      2929292928282929282829282828282828282828282828272727272827272827
+      2727272727272727262727272727262626262626262625252625262625262625
+      2525252525242524232524242524242523242423242323232323232323222323
+      232323222222222222222222212222222122211D1D1E1D1D1D1C1C1D1C1B1D1C
+      1B1D2324243132313736363C3C3C4242414545451D1D1D1A1B1A1A1A1A1A191A
+      1A191A1A1A1A1A19191919191919191919181819181918191918181818181818
+      1818181818171818181717171717171717171617161617171617171616161616
+      1716161616161516151516151615151515151515151515151514151415151514
+      1414151414141414141413131314131313141313131313121313131213131212
+      131212121212121212121211111211111211121211121111111111112B282B11
+      1111303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E
+      2E2D2D2D2C2C2C2C2C2C2B2B2B2A2A2A29292928282827272726262626262625
+      25252525252424242424242424242424248B8B8BF2F2F2F2F2F28B8B8B242424
+      242424242424242424242424242424656565F2F2F2F2F2F2F2F2F22424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424BEBEBEF2F2F2F2F2F2E5E5E5313131
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424243E3E3EE5E5E5F2F2F2F2F2F2BEBEBE24242424242424242424
+      2424242424BEBEBEF2F2F2F2F2F2585858242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      248B8B8BF2F2F2F2F2F2585858242424242424242424242424242424242424F2
+      F2F2F2F2F2F2F2F22424242424242423232626262727272828292A2A2A2C2C2C
+      2828282222222222222222222222222222222626272A2A2A2A2A2A2A2A2A2A2B
+      2A2A2A2A292A2A2A2A2A2A29292929292929292929292928282A282829292829
+      28285B5B5BA6A6A6BFBFBFF2F2F2BFBFBFB2B3B28080804D4D4D272727272727
+      2727272727278D8D8D8D8D8C8D8C8D8D8C8D8D8C8C8D8C8C8C8C8C7373733F3F
+      4026252525262525252525252525252525242525242425252425242425242458
+      58588B8B8B8B8B8B727272242324242424242423232324232323232323646464
+      8B8B8A8B8B8A8A8A8A3C3C3B212121202020201F20202020201F1F2020202020
+      2021212123222223232323232325242525252525252526262626252527272728
+      28282A28282A292A2A29292A2A292929292A2A2A292A2A292929292929292929
+      2828282929292929282829282828282828272828282728282827272727282727
+      2727272626272727272627272626262626262626262525262526262525262526
+      2524252424252424242323242324242323242324232323232322232323232322
+      2223232222222222222222222122221F1F1F1D1C1D1D1C1D1C1C1D1C1C1D201F
+      203332323737363C3C3C4142424747471E1D1D1B1A1B1A1A1A1B1A1A1A191A1A
+      1A1A19191919191A191919191919191919191819191919181818181818181818
+      1818181817181817181717171717171717171717161617161716171716161616
+      1616161615161616161615161515151615151515151515141514151414141514
+      1414131414131413141413141413131413131313131313131213131312121313
+      1313121212121212121212111211121111111211111111112B282B1011113030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D
+      2D2D2D2C2C2C2B2B2B2A2A2A2929292828282727272626262626262525252525
+      252424242424242424242424248C8C8CF4F4F4F4F4F48C8C8C24242424242424
+      2424242424242424242424C0C0C0F4F4F4F4F4F4CDCDCD242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24242424242424242424242424585858F4F4F4F4F4F4F4F4F4CDCDCD31313124
+      2424242424242424242424242424242424242424242424242424242424242424
+      313131CDCDCDF4F4F4F4F4F4F4F4F44B4B4B2424242424242424242424242424
+      24C0C0C0F4F4F4F4F4F458585824242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      999999C0C0C06565652424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424242424242424248C8C8C
+      F4F4F4F4F4F45858582424242424242424242424242424243E3E3EF4F4F4F4F4
+      F4F4F4F423242424242324242426262628272829292A2B2B2B2D2D2D23232322
+      22222222222222222222222323232A29292A2A2A2A2B2A2A2B2A2A2A2A2A2A2A
+      2A2A2A292A2A292A29292A29292A282929282929292929282928282928282828
+      2828282828282828272827282828272727282827282827272727272727272727
+      2727272726272726272726272626272726272626262626252526262525262625
+      2626252526252525252525252525252525252525252525252525252525252525
+      2425252425242425242424232424232323232323242323232323232323222322
+      2322232222232222232323232323232222242423242423252524252524252524
+      2626252726262827262928282929292928282A29292A29292B2A292A292A2A2A
+      2A2B2B2B2A2B2A2A2A2A2A2A2A292A2A2A292929292A29292929292929292829
+      2929292828282929282928282828282828282828272828272727282727272727
+      2627272727262726272727262626262626262626252626252626252625242525
+      2426242425242324242424242424232323232323232323232323232322222322
+      23232222222222222222222121201D1C1D1C1C1D1C1D1D1C1C1D1D1D1E30302F
+      3637373B3B3B4141414747472929281B1A1B1B1A1A1B1B1A1A1A1A1A1A1A1A1A
+      1A1A19191A1A1919191919191919191919181918191918191818181818171818
+      1818171718171717181817171717161716171717161617161717161616161616
+      1616161616161616151515161515151515151515151514141415141414141514
+      1414141414141314131413141313131313131313131312131213131312121312
+      12121213121112121211121211111112111111122D2B2B111111303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C
+      2C2C2B2B2B2A2A2A292929282828272727262626262626252525252525242424
+      2424242424242424248D8D8DF6F6F6F6F6F68D8D8D2424242424242424242424
+      24242424737373F6F6F6F6F6F6F6F6F68D8D8D24242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252524242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424248D8D8DF6F6F6F6F6F6F6F6F6CECECE3131312424
+      242424242424242424242424242424242424242424242424243E3E3ECECECEF6
+      F6F6F6F6F6F6F6F6808080242424242424242424242424242424242424C1C1C1
+      F6F6F6F6F6F65959592424242424242424242424242424242424242424242424
+      24242424242424242424242424242424242424242424242424737373F6F6F6F6
+      F6F6E9E9E9242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424242424248D8D8DF6F6F6F6
+      F6F6808080242424242424242424242424242424808080F6F6F6F6F6F6C1C1C1
+      2424242424242526252727272929282A2A2A2D2D2C292A292222222323232323
+      232322232322232727272B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2A2A2A2A2A292A2A292A29292A29292A2929292828282828282828
+      2828282827282728272727282828282727272727272727272727272727272727
+      2627272627272727262627262727262627262626262626262625262626262525
+      2625252525252525252525252525252525252525252525252525252524252524
+      2524242523242523232424242424232323232323232323232323232323232323
+      2323232323232423232323232324242423242425242425252525252526262527
+      27262827272928282A29292929282A292A2A29292B2A2A2A2A2A2A2A2A2B2A2A
+      2B2B2A2A2A2A2A292A2A292A2A2A2A292A2A2A292A29292A2929292928282829
+      2929292828282928282828282827272828272827272827282827272727272727
+      2727272727262726272626262626262625262625252625262525262524252524
+      2524242524242424242424242324232323232323232222232222232323232323
+      232223232222222221221D1D1D1C1D1D1C1C1D1C1C1D1D1D1E2A2B2B3635363A
+      3B3B3F3F3F4544453334341B1A1B1A1B1B1A1A1B1A1B1A1A1A1A1A191A1A1A19
+      191A191A1A191919191919191919191918191919181818191818181818181817
+      1818171717181717171717171817171716161717161717161717161616161615
+      1516151616151615151516151515151515151415151414151415141415141414
+      1314141313141414131414131313131313131313131313131212121313131312
+      121212131112121212121111111111112D2B2D11111130303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B
+      2B2A2A2A29292928282827272726262626262625252525252524242424242424
+      24242424248E8E8EF8F8F8F8F8F88E8E8E2424242424242424243131318E8E8E
+      F8F8F8F8F8F8F8F8F8EBEBEB3131312424242424242424242424242424242424
+      2424242424242424242424242425252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252524242424242424242424242424242424242424
+      2424242424242424242424A8A8A8F8F8F8F8F8F8F8F8F8EBEBEB8E8E8E313131
+      2424242424242424242424242424243131318E8E8EEBEBEBF8F8F8F8F8F8F8F8
+      F8A8A8A8242424242424242424242424242424242424242424C3C3C3F8F8F8F8
+      F8F8595959242424242424242424242424242424242424242424242424242424
+      242424242424242424242424242424242424242424818181F8F8F8F8F8F8F8F8
+      F824242424242424242424242424242424242424242424242424242424242424
+      2424252525252525252525252525252525252525252525242424242424242424
+      2424242424242424242424242424242424242424244C4C4CF8F8F8F8F8F8EBEB
+      EB4C4C4C2424242424242424244C4C4CEBEBEBF8F8F8F8F8F881818124242425
+      25242727272727272A292A2B2B2B2D2D2D232323232323232323232323232323
+      2423242B2C2B2C2C2B2C2C2C2B2B2B2C2C2B2B2B2C2C2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2A2B2A2A2B2A292B2A2A2A292A2A2A292A292929292929292929292929
+      2929282828282828282828282828282828282828282828282827282827282827
+      2827262726272726262726262726262626262626262626262626262626262626
+      2626262626262626262626262625262625262525262525252425252426242425
+      2424252424242324242423232324232323232323232323232323242423242323
+      2323232324232424242324242525252524252626252626252626262727262828
+      272928282928292A28282A2A292A29292B2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B
+      2A2B2A2A2B2A2A2A292A2A292929292A292A2A29292929292929282829292928
+      2829282828292829282828282827282727282828272728282727272727272727
+      2726262627272726262626262526262525252526262526252426252425252425
+      2424252323242424242324242323242323232323222323222323222323222222
+      2222222222221D1E1E1D1C1D1D1C1D1C1C1D1D1E1E2626263534353A3A393E3D
+      3D4242423E3E3E1B1B1B1B1B1B1B1B1B1B1B1B1A1A1A1A1A1A191A1A1A1A191A
+      1A191A19191A1919191919191918191919181819181918181818181818181818
+      1718181717171718171717171717171717171617161616161616171616161516
+      1616161615161616151515151515151515151515141414141514141414141413
+      1414141414131413131413131313131413131313131313131312121212121312
+      1212121212121111121211112D2B2B1111113030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A
+      2929292828282727272727272626262525252525252424242424242424242424
+      249C9C9CFAFAFAFAFAFADFDFDFC4C4C4C4C4C4D2D2D2FAFAFAFAFAFAFAFAFAFA
+      FAFAEDEDED5A5A5A242424242424242424242424242424242424242424242424
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252526262625252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252424242424242424242424242424
+      24242424242424242424A9A9A9FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAB7B7B78F
+      8F8F8F8F8F8F8F8FC4C4C4FAFAFAFAFAFAFAFAFAFAFAFAFAFAFA9C9C9C242424
+      242424242424242424242424242424242424242424C4C4C4FAFAFAFAFAFA5A5A
+      5A24242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424313131C4C4C4FAFAFA8F8F8F242424
+      2424242424242424242424242424242424242424242525252525252525252525
+      2525252525252525252525252525252525252525252525252525252524242424
+      2424242424242424242424242424242424242424C4C4C4FAFAFAFAFAFAEDEDED
+      9C9C9C5A5A5A9C9C9CEDEDEDFAFAFAFAFAFAEDEDED3131312424242625262727
+      272828292A2B2A2C2C2C2A2A2A2222222323232323232323232424242727272D
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2C2D2C2C2C2C2C2C2C2C2C2C2B2B2B
+      2B2B2B2B2B2A2B2A2A2B2A2A2A292A2B2A2A2A29292929292929292929292929
+      2928292928292928282828282929282929282828282828282728282727282727
+      2727272727282727272727272727272727272727262726262727272626262626
+      2627262726262626262526252626252625252525252625252525252525252524
+      2425242424242424242424242424242424242524242423242424242423242424
+      2424242424242424252525252626252625272626272726282827282828292828
+      2A29292B292A2A29292B2B2A2B2B2A2B2A2A2B2B2B2B2B2B2B2B2B2B2A2A2A2A
+      2A2B2A2A2A2A2A2A2A2A2A2A2A292A292A292A2A292929292928282928292828
+      2929282928282829282828272828282828272728282827272727272727272626
+      2727272626262727262626252626252626252525252625252524242524252524
+      2424242424232423242423232323232322232322232323232222232323222222
+      22221F1F1F1D1C1D1D1D1D1D1C1D1D1D1E2221223434343938393D3E3E414241
+      4545441E1E1E1B1B1B1B1B1B1A1A1B1A1A1B1A1A1A1A1A1A1A1A1A191A1A1A19
+      19191A1919191919191919181918181918191818181819181818181818181818
+      1818171717171717171717171617171617171616171716161616161616161616
+      1515161516161515161515151515151514151515151415141414151414141414
+      1414131414141314131413141313131413131313131312121212121213121212
+      12121212121211122B2D2D111111303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A29292928
+      2828272727272727262626252525252525242424242424242424242424C5C5C5
+      FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBE0E0E04C4C
+      4C24242424242424242424242424242424242424242425252525252525252525
+      2525252525252525252525262626262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262626262626262625252525
+      2525252525252525252525252525252525252525242424242424242424242424
+      242424242424242424676767EEEEEEFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFB
+      FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBE0E0E067676724242424242424242424
+      2424242424242424242424242424242424C5C5C5FBFBFBFBFBFB5A5A5A242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252424
+      242424242424242424242424242424243F3F3FE0E0E0FBFBFBFBFBFBFBFBFBFB
+      FBFBFBFBFBFBFBFBFBFBFBEEEEEE6767672424242525252627272828282A292A
+      2C2C2B2D2D2D2525262424242323242424242424242424242C2C2C2E2D2D2E2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2D2C2C2C2C2C2C2B2B2B
+      2C2B2B2B2B2B2B2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A292929292929292929
+      2929292929292929292929292929292929292929282829272928282928282726
+      2727272828282728272827272727272727272727272727272727272727272727
+      2727272727272727262626262626262626262626262625262526262525252525
+      2625242525242424242525252424242425242424242424242424252524242424
+      242525252626262626262627262726262827272828282929292929292A29282B
+      2A2A2B2A2A2B2A2B2B2A2A2B2A2B2B2B2B2B2B2B2B2B2A2B2A2B2A2B2A2A2A2A
+      2A2B2A2A2A2A2A2A2A2A2A2A292929292A292929292929292929292929282828
+      2829282828282828282828282828282827282828282727282727272726262727
+      2727262626262625262625262625262625262525262524252524252424252424
+      2424232324232323242423242323232323232323232223232322222222222221
+      221D1D1D1D1D1D1C1D1D1C1D1D1E1E1F3232323838373B3B3C40403F43444429
+      28281B1B1B1B1A1B1A1B1A1B1A1A1B1B1B1A1A1A1A1A1A1A1A1A1A1A1A1A1A19
+      191A1919191A1919191819181919181819181819181818191818181818181717
+      1717171817171817171717171717171717161716161616161616161616161616
+      1515151515151515151515151515151515141514141515141515141414141414
+      1314141314141413131313131313131313131313131212121212131312131212
+      121112122D2B2D11111130303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030303030302F2F2F
+      2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A2929292828282828
+      28272727262626252525252525252525242424242424242424C7C7C7FDFDFDFD
+      FDFDFDFDFDFDFDFDFDFDFDFDFDFDD4D4D4ABABAB686868242424242424242424
+      2424242424242424242424242525252525252525252525252525252626262626
+      2626262626262626262626262627272727272727272727272727272727272727
+      2727272727272727272727272727272727272727272727272727272727272727
+      2727272727272727272727272727272727272626262626262626262626262626
+      2626262625252525252525252525252525252524242424242424242424242424
+      2424242424242424323232838383D4D4D4FDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
+      FDFDFDFDFDFDD4D4D47676762424242424242424242424242424242424242424
+      242424242424243232325A5A5AD4D4D4FDFDFDFDFDFD5A5A5A24242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2425252525252525252525252525252525252526262626262626262626262626
+      2626262626262626262626262626252525252525252525252525252525252525
+      242424242424242424242424242424323232ABABABFDFDFDFDFDFDFDFDFDFDFD
+      FDFDFDFDC7C7C74D4D4D2424242424242626262828282929292B2B2B2D2C2D2C
+      2C2C2323232424242424252424252525242627262E2E2D2E2E2E2F2E2E2E2E2E
+      2D2E2E2D2E2D2E2E2D2E2D2E2E2E2D2D2D2D2D2E2D2D2D2D2D2D2D2D2D2B2C2C
+      2C2C2B2B2C2B2B2C2A2B2B2A2B2B2B2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A2929
+      2A292A2A29292A292A2A2A2929292929292A2928282828242424212121222122
+      2425252928282829282828282828282728282828282727272727272727272728
+      2727272727272726262627262627262526262627262626252526252526242525
+      2524252525252525252525252525252525252525242525252525262626262626
+      2726262727272727272828272928282928282929282A2A292A29292A2A2A2B2A
+      2A2C2B2B2B2B2B2B2A2B2C2B2B2B2B2B2B2B2B2B2A2B2A2A2B2B2B2A2A2B2A2A
+      2A2A2A2A2A2A2A29292A2A2A29292A292929292A292929282929282929282929
+      2829282829282828282728282727282827282727282727282727272727272626
+      2626262527262526262526262525252526252526242425252425242424242424
+      23242323232324232424232323232323232323232222222322222222231D1D1D
+      1D1D1D1D1C1D1D1D1D1D1E1E2B2B2B3636363B3B3B3F3F3E4342423333331B1B
+      1B1B1B1B1B1A1B1A1B1B1A1A1A1B1A1A1A1A1B1A1A1A1A1A191A1A1A19191A19
+      191A191919191919181818191819181918181918181818181818171817171718
+      1717181717171717171717161616171617161717171616161616161615161516
+      1515161616151615151515151515151514151414141514141414141414141414
+      1414141413131413131313131313131312131313121213131313121212121212
+      2D2D2D1212123030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030302F2F2F2F2F2F2F
+      2F2F2E2E2E2E2E2E2D2D2D2C2C2C2B2B2B2A2A2A292929282828282828272727
+      2626262626262525252525252424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424252525252525252525252525252525262626262626262626262626272727
+      2727272727272727272727272828282828282828282828282828282828282828
+      2828282828282828282828282828282828282828282828282828282827272727
+      2727272727272727272727272727272727272727272727272727262626262626
+      2626262626262525252525252525252525252525252424242424242424242424
+      242424242424242424242424243F3F3F5B5B5B8484849191918484845B5B5B32
+      3232242424242424242424242424242424242424242424242424242424242424
+      2424243F3F3FFEFEFEFEFEFEFEFEFEFEFEFE5B5B5B2424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424252525252525252525
+      2525252525252626262626262626262626262727272727272727272727272727
+      2727272727272726262626262626262625252525252525252525252525252524
+      24242424242424242424242424242424243232325B5B5B5B5B5B5B5B5B323232
+      2424242424242424242525252828282929292A2A2A2C2C2C2E2E2E2727272324
+      232524242524252525252525262525252929292F2E2E302F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2E2E2F2E2E2E2E2E2F2E2E2E2E2E2E2E2E2E2D2D2D2D2D2C2D2C2C
+      2D2C2C2C2B2C2D2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2B
+      2A2A2A2A2B2B2A2A2B2A2A2A2A27272723232322212221222222222122222223
+      2322262626282928282928282828292828292928282829292828292928282829
+      2828282828282828272827272827262827262726272726262726272726262626
+      2626262625262625262625252526262626262626262527272726272727272727
+      27272828282828282929282A29282A29292B2A292B2B2A2B2A2B2C2B2A2C2B2B
+      2C2A2A2B2A2A2C2B2B2B2C2B2B2B2B2B2B2B2A2B2A2A2A2B2B2A2A2A2B2A2A2A
+      2A2A2A2A2A2A2A2A2929292A2A29292A29292929292928292929292928282828
+      2828292828282828282828272828272727272827272727272727272726262626
+      2726252726252626252625252625242525242525242524242524242424242323
+      242424242324232323232423232323232323232323222322221E1E1F1E1E1D1D
+      1D1D1D1D1D1D1E1E2627273535353939393D3E3E4242423C3C3C1B1C1B1B1B1B
+      1B1B1C1A1B1B1A1B1B1B1A1A1B1A1B1A1A1A1A1A1A1A1A191A1A1A191A1A1919
+      1919191919191919191819181918191819181818181818181818181817181817
+      1717171717171717171617171717161616161616161617161616161615151615
+      1616161615161515151515151515151415151414151414141414141414141314
+      141314131314131314131313131313121313131212121212121213122D2D2D12
+      1212303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030302F2F2F2F2F2F2F2F2F2E2E
+      2E2E2E2E2D2D2D2C2C2C2B2B2B2B2B2B2A2A2A29292928282827272727272726
+      2626252525252525252525242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242525252525
+      2525252525252526262626262626262627272727272727272727272728282828
+      2828282828282828282828282828282828282828292929282828282828282828
+      2828282828282828282828282828282828282828282828282828282828282828
+      2828282828282828282828282828282828282827272727272727272727272726
+      2626262626262626252525252525252525252525252525242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424848484C8C8C8C8C8C8C8C8C85B5B5B242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242525
+      2525252525252525252525252525252525252525252525252525252526262626
+      2626262626272727272727272727272727272727272727282828282828272727
+      2727272727272727272626262626262626262525252525252525252525252424
+      2424242424242424242424242424242424242424242424242424242424242424
+      24242424242626262A2A2A2A2A2A2C2C2C2D2D2D2F2F2F303030272726252525
+      2526262526252626262627262726272A2A2A3030303130303030303030303030
+      303030303030302F302F30302F2F302F2F2F2F2E2E2E2E2E2D2E2D2D2E2D2C2D
+      2D2D2D2C2C2C2C2C2C2B2C2B2B2C2B2B2C2B2C2B2B2B2B2B2A2B2B2B2B2A2B2A
+      2B2B2B2A2A292524262323232323232323232323232223232323232322232223
+      2224232327272729292929292929292929292929292929292928292828292828
+      2828282828282828282828272727272727282727272727272727272727272626
+      2727262726272626262627262727272726272727272728272728272928292828
+      282929282929292929292B2A2A2B2B2A2B2B2A2B2A2A2C2B2B2C2B2A2B2B2B2D
+      2B2C2C2B2C2B2C2B2B2C2C2B2B2B2B2B2B2B2B2B2B2B2B2A2B2B2A2A2A2A2A2A
+      2A2A2A292A29292A2A292929292A292929292829292929292929292929282828
+      2928282828282828282727282728272727272727272727272727272626262626
+      2625272626272625262525252525252525252524252424242424242424232323
+      2424242324232323242323232323232223232223231F1F201D1D1D1D1D1D1C1D
+      1D1E1D1E222122343534393A393D3D3D4141414545451E1E1F1B1B1C1B1B1B1B
+      1B1B1B1B1B1A1B1A1B1B1B1B1B1B1A1A1B1A1A1A19191A191A1A1A191A1A1A19
+      1919191919191819191918181818191818181818181817181817171718181717
+      1717171717171716171617161716161616161617161616161615161616161615
+      1515151615151515151515151515151514151514141415141414141413131414
+      1413131413141313131313131313131313121312121313132D2D2D1212123030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E
+      2D2D2D2D2D2D2C2C2C2B2B2B2A2A2A2929292828282828282727272626262626
+      2625252525252525252524242424242424242424242424242424242424242424
+      2424242424242424242424242424242424252525252525252525252525252525
+      2626262626262727272727272727272828282828282828282828282929292929
+      292929292929292929292929292A2A2A2A2A2A2A2A2A2A2A2A29292929292929
+      2929292929292929292929292929292929292929292929292929292929292929
+      2929292929292929292929292828282828282828282828282727272727272727
+      2726262626262626262625252525252525252525252525252524242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252626262626262626262727272727
+      2727272728282828282828282828282828282828282828282828282828282828
+      2828272727272727272727262626262626262626252525252525252525252525
+      2424242424242424242424242424242424242424242424242424242424242424
+      242525252929292B2B2B2C2C2C2E2E2E2F2F2F31313131323228282826262626
+      26262626262727272727272727272B2B2B323131313131313131313131313131
+      3131303131313130313130303030302F302F302F2E2F2F2E2F2E2E2F2E2E2D2D
+      2D2D2D2D2D2D2D2D2C2C2C2D2C2C2D2C2D2D2C2C2C2C2C2B2C2C2C2C28282825
+      2525232424232323232423232323232323232323232323222323232323232323
+      2323232423232727272A29292A2A2929292A2A29292A292A292A292A29292929
+      2929292829282829282828282728272728272728282727272727272728272828
+      28282727282727272828272828282828282828282929292829292A29292A2929
+      2A2A292B2A2A2B2A2A2B2B2B2B2B2A2D2B2B2C2B2C2C2B2B2C2B2B2C2C2C2C2C
+      2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2A2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A29
+      2A2A292A2A292A29292A2A292929292929292929292928282928282828282828
+      2828282828282727282728272727272728272728272727262727262726262626
+      2526262526252526252525252425252425252524252424252424242423242324
+      24242323232323242423232323232323232222221E1D1D1D1D1D1D1D1D1D1D1D
+      1F1F1F3332323737373C3C3D4040404444442929291B1B1B1B1B1C1B1B1B1B1B
+      1B1B1B1B1B1A1B1B1B1A1A1B1A1A1A1B1A1A1A1A1A1A19191A1A191A191A1A19
+      1919191819191918191918181819181818181818181817181718171817181817
+      1718171717171717171716161717171616161616161616161615161615151516
+      1615161515151515151515141415151514141414141514141413141414141413
+      1314131413131413131313131213121312121212302D2D121212303030797979
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030302F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D
+      2D2D2C2C2C2B2B2B2A2A2A2A2A2A292929282828272727272727262626262626
+      2525252525252525252525252424242424242424242424242424242424242424
+      2424242425252525252525252525252525252525252526262626262626262627
+      27272727272828282828282828282929292929292929292A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A292929292929292929282828282828282828272727272727
+      2727272626262626262626262525252525252525252525252525252424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242424242424242424242424
+      2424242424242424242424242424242424242424242525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525262626262626262626262626262626272727272727272727282828282828
+      2828282929292929292929292929292929292929292929292929292929292828
+      2828282827272727272727272726262626262625252525252525252525252525
+      2525252525242424242424242424242424242424242424252525252525252525
+      2525252B2B2B2D2D2D2F2F2F303030313131333333333233292A2A2828282727
+      282828282828292828282828292C2D2C33323232323233333333333332313232
+      313231313132313131313131313130303030302F302F2F2F2F2F2F2E2E2F2E2E
+      2E2E2D2E2E2E2E2D2E2D2D2D2E2D2E2D2D2D2B2B2B2626262524252525252525
+      2425242425252524242524242424242424242424242424242323232324242324
+      23232323232423232726272828292B2B2B2B2B2B2A2B2A2B2B2A2A2A2A2A2A29
+      292A292929292A29282A29292928282928282928282828282828282828282928
+      292929282928292929292929292929292929292929292A2B2B2B2A2A2B2B2A2B
+      2B2A2C2B2B2C2B2B2C2C2B2C2B2B2D2C2B2C2B2B2D2C2C2D2C2C2C2C2B2C2C2C
+      2C2B2C2B2B2B2B2B2B2B2B2B2B2A2B2A2B2B2A2A2B2B2A2A2A2B2A2A2A2A2A2A
+      2A2A292929292929292929292929292929292929282829292829282828292929
+      2828282828282828272727282828272827272727272726272626272625262626
+      2625252725252625252625252525242524242424242524242424242423242424
+      242423242323232323232323222322231D1D1E1E1D1D1D1D1D1D1D1D1E1E1E2C
+      2B2B3736363B3B3B3F3F3F4343433333331C1C1C1C1B1B1B1B1B1B1C1B1B1B1B
+      1B1B1A1A1B1B1B1A1B1B1B1A1B1A1A1A1A1A191A1A1A191A19191919191A1919
+      1919191919191918181818181918181918181817181718171717171718171717
+      1717171717171716171617161716161617161616161616161616161616161615
+      1515161515151515151515141415141414151414141414141414141413141413
+      141314131314131313131313121313122D302D12131230303079797930303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2C2C
+      2C2B2B2B2B2B2B2A2A2A29292928282828282827272727272726262626262625
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252626262626262626262727272727272828282828
+      282828282929292929292A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2A2A2A2A2A2A2A2A2A29292929292929292928282828282827272727
+      2727272727262626262626262626252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252524242424242424242424242424242424242424242424242424242424
+      2424242424242424252525252525252525252525252525252525252525252525
+      2626262626262626262626262626262626262626262626262626262626262626
+      262626262727272727272727272727272828282828282828282929292929292A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A292929292929292929
+      2828282828282727272727272626262626262626262525252525252525252525
+      2525252525252525252525252525252525252525252525252525252526262627
+      27272D2D2D2F2F2F313131323232343433343434353535282929282829282829
+      292929292A2A292A292929292D2D2D3333333434343434343333333333333232
+      32323332333232313231313130313130313030313030302F2F302F2F2F2F2E2F
+      2E2F2F2E2F2E2E2E2E2D2E2A292A252525252525252525252525252525262526
+      2526252525252626262525252525252525252525252525252525252524242424
+      242424242424242424242424252928292A2A2A2C2C2C2B2B2B2C2B2A2B2B2A2B
+      2A2A2B2A2A2B292A2A2A292A29292A2A29292A292929292929292A2A2A2A292A
+      2929292A29292A2A2A2A2A2A2A2A2A2B2A2B2A2B2A2B2C2B2C2B2B2C2C2B2C2B
+      2B2C2B2A2C2C2C2D2C2B2C2B2C2D2B2C2D2C2C2D2C2C2D2C2C2C2B2B2C2C2B2C
+      2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2B2A2A2A2A2A2A2A2A2A2A2A2A2A
+      292A292A2A292A292A292A292929292929292929292829292929282928282828
+      2828282828282827282827272727272727272627262627262626262626262526
+      2625262525262525252425252425242424252424252425242423232423232424
+      2423232324232323232323231F1F1F1D1E1E1D1D1E1E1D1D1E1E1E2727273535
+      36393A3A3E3E3E4342423D3D3D1C1C1B1B1C1B1B1C1C1B1B1C1B1B1B1B1B1B1B
+      1B1A1B1B1A1A1A1A1A1A1B1B1A1A1A1A1A191A1A1A191A1A1A191A1A19191919
+      1919191919191818181819181819181818181818181718181717171718181717
+      1717171717171717171717161616171716161616161616161516151616161515
+      1515151515151515151415151515141415151414141414141314131414131413
+      1413131313131313131313133030301212123030307979793030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C
+      2B2B2B2A2A2A2A2A2A2929292828282828282727272727272626262626262626
+      2625252525252525252525252525252525252525252525252525252525252526
+      2626262626262626262626272727272727272727282828282828292929292929
+      2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B
+      2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2929292929292828282828282828282727
+      2727272727272726262626262626262625252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252526262626262626262626262626262626
+      2626272727272727272727272727272727272727272727272727272727272727
+      2727272828282828282828282828282929292929292A2A2A2A2A2A2A2A2A2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A29292929292928
+      2828282828282828272727272727262626262626262626252525252525252525
+      2525252525252525252525252525252525252626262626262626262727272828
+      282F2F2F3131313232323434343535353636363434352B2B2B2A292A292A292B
+      2B2B2B2A2A2A2B2B2A2B2A2D2D2D353434353535353535343434343433343434
+      3334333333333232323233313332313231313131313130303030303030302F30
+      302D2D2D2727272627272627262626262626262626262727272726272627272A
+      2A2B3534353434352D2D2D272727262526262626262526252626252625262526
+      2525252525252525252525252425252626262A2A2A2C2C2C2C2C2B2C2C2B2C2B
+      2B2C2B2B2C2A2B2B2A2B2B2B2A2B2A2A2A2A2A2A2A2A2B2B2B2B2A2B2B2B2B2A
+      2B2A2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2B2C2C2C2D2C2D2C2B2C2B2B2D2C2C
+      2D2C2B2D2C2B2C2B2C2D2C2C2E2C2C2D2C2C2D2C2C2C2C2B2C2C2C2B2C2C2B2C
+      2C2B2B2B2B2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2B2A2A2A2A2A2A2A2A2A2A29
+      2A29282929262627262626292929292929282929282828292829282828282828
+      2828282828272727272728272727262727262726262726262626262625252625
+      2526252526252525252524242525242524252424242424242424232323242324
+      2323232323232323201F201E1D1E1D1D1E1E1E1D1F1E1E2222233535353A3939
+      3D3E3E4141414545461F1F1F1C1C1C1B1C1C1C1C1B1B1B1B1B1B1B1B1B1B1B1A
+      1B1B1B1B1B1A1B1B1A1A1A1B1A1A1A19191A19191A1A19191A191A1A1A191919
+      1919191919191819181819181818181818171818171817181817181817171817
+      1717171716161616161616171617161616161615151515161616151615151515
+      1615151515151514151414141414151414141413141413141414141313131313
+      1413131313131313303030131213303030797979303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030302F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D2D2C2C2C2C2C2C2B
+      2B2B2A2A2A2A2A2A292929282828282828272727272727262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      262727272727272727272828282828282929292929292A2A2A2A2A2A2A2A2A2B
+      2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2C
+      2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A292929292929282828282828282828
+      2727272727272727272626262626262626262626262626262626262525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252525252525252525252525252525252525252525252525252525252525
+      2525252626262626262626262626262626262727272727272727272727272727
+      2727272727272727272727272727272728282828282828282828282828282828
+      28282929292929292929292A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C
+      2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2929292929
+      2928282828282827272727272727272726262626262626262626262626262626
+      2626262626262626262626262626262626272727272727272727282828292929
+      3131313333333434343535353737373837383737372D2D2D2B2B2B2B2B2B2C2B
+      2C2C2B2B2B2C2B2C2C2B2D2D2E35343435353535353535353535343435353434
+      35343433333333323333323332323332323231313231313030302B2A2B282827
+      272727272827272828272727282828282828292929292A2A3535343939393939
+      3939393939393935353530303028282826272726272626272626272726272627
+      26272726262626262626262625262929292D2D2D2D2D2C2D2D2D2D2C2C2D2C2C
+      2D2C2C2C2C2C2C2B2B2C2B2B2C2B2B2B2B2B2B2B2B2B2B2B2C2C2C2B2C2C2B2C
+      2B2B2C2B2C2C2C2C2C2C2C2C2C2D2D2D2C2D2C2D2C2B2D2D2C2D2C2C2D2C2C2D
+      2C2C2E2D2D2D2D2D2D2C2C2E2D2C2D2C2C2D2C2C2C2B2C2C2C2B2C2B2C2B2B2C
+      2C2B2C2B2B2C2B2B2A2B2A2A2B2B2B2A2A2B2B2B2A2828282726272424252424
+      2324242323232326252529292929292929292928292928282828282828282828
+      2827282728282727272727272726272626262626262626272626262525262625
+      2625252525252525252424252425252524242524242424242424242423232324
+      242423232222221D1E1E1D1E1D1E1D1D1E1D1D1F1F1F3333333838383D3D3D40
+      41404444452929291C1C1C1C1B1C1C1C1C1B1C1C1C1B1C1B1B1B1B1B1B1B1A1B
+      1B1A1A1B1A1B1A1A1A1A1A1A1A1A1A1A19191A191A1A19191919191919191919
+      1919181919191818181818181818181817181718181817181717171718181717
+      1717171717161716161616161716161616161516151516161515151515151516
+      1515151515151514151415141514141414141414141414141414131314141313
+      1313141330303013131230303079797930303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030302F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2B2B
+      2B2A2A2A29292929292928282828282828282827272727272727272726262626
+      2626262626262626262626262626262626272727272727272727272727282828
+      2828282828282828282929292929292A2A2A2A2A2A2B2B2B2B2B2B2C2C2C2C2C
+      2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2C2C
+      2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A29292929292928282828282828
+      2828272727272727272727272727262626262626262626262626262626262626
+      2626262626262626262626262626262626262626262626262626262626262626
+      2626262626262625252525252525252525252525252526262626262626262626
+      2626262626272727272727272727272727282828282828282828282828282828
+      2828282828282828282828282828282828282828282929292929292929292929
+      292A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D
+      2D2D2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A292929292929
+      2828282828282828282727272727272727272727272626262626262626262626
+      262626262727272727272727272727272828282828282828282929292B2B2B33
+      3333353535363636373737383837393A3A3938382F2E2F2C2C2B2B2B2C2C2C2D
+      2C2C2C2D2C2C2C2C2C2D2C2E3434343636363636363636353535363535353535
+      343535343534343433333433333332322E2E2E2A292A29292929292929282929
+      28292A2A292929292A2A2A2B2B2B3333333B3B3B3C3C3C3D3D3D3D3D3D3D3D3D
+      3B3B3B3A3A3A3939393737373131312929292728282727282828272827272727
+      272727272727272726272929292F2E2E2E2F2D2E2E2E2F2E2D2E2D2D2E2D2D2E
+      2D2D2D2C2C2D2C2D2C2C2C2C2C2D2C2C2C2C2C2C2D2D2D2D2C2C2D2C2D2C2C2C
+      2C2C2C2E2D2D2D2D2D2D2C2D2E2E2D2D2E2D2E2D2C2D2C2C2D2C2C2E2D2D2E2D
+      2D2E2C2D2E2D2D2D2C2C2D2D2C2D2C2C2C2C2C2C2C2C2C2B2C2C2C2C2C2B2B2B
+      2B2B2A2A2A292929282727262626242524242424242424242424232324232323
+      2424232323232525252929292829292928292828292828282828282828282828
+      2828272727272727272727262627262626262627262527262526252626252525
+      2525252425242524252524252424242524242424242424242424232423232324
+      2323231E1E1E1E1E1E1D1E1E1D1E1E1E1E1E2C2C2C3737373C3B3C3F3F404444
+      433433331D1C1C1C1C1C1C1C1C1B1C1B1B1C1C1B1C1B1B1B1B1B1B1B1B1B1B1B
+      1B1B1A1A1A1A1A1A1A1A1A1A1A1A1A191A1A191A191A191A1A19191919191919
+      1818181918181918181919181818171818181718181718181717171817171717
+      1716171616171616161716161617161616161616151616161515151515161515
+      1515151514151514141514151414141415141414131414131313131414141313
+      3030301312133030307979793030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      303030303030303030303030303030303030303030303030303030303030302F
+      2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2B2B2B
+      2A2A2A2A2A2A2929292929292828282828282828282727272727272727272727
+      2727272727272727272727272727272728282828282828282828282829292929
+      29292929292A2A2A2A2A2A2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D
+      2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D
+      2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2929292929292828282828
+      2828282828282827272727272727272727272727272727272727272727272727
+      2727272727272727272727272727272727272727272727272727262626262626
+      2626262626262626262626262626262626262626262626262727272727272727
+      2727272728282828282828282828282829292929292929292929292929292929
+      29292929292929292929292929292929292A2A2A2A2A2A2A2A2A2A2A2A2B2B2B
+      2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2A2A2A2A2A2A29292929
+      2929282828282828282828282828272727272727272727272727272727272727
+      2727272828282828282828282828282929292929292A2A2A2A2A2A2C2C2C3535
+      3536363638383838383839393A3A3B3A3A3B3B2F2F2F2D2D2D2C2D2C2D2C2D2D
+      2C2D2C2C2D2C2D2C2D2C2D333333373737373737363636363535363636353535
+      3535353534343433322C2C2D2A2A2A2A2A2A2A2A2A2A292A2A292A2B2A2B2A2B
+      2A2C2B2B2F2E2E3A3B3A4040404040404242424242424141414040403E3E3E3C
+      3C3C3B3B3B3939393939393939393433342E2D2D282828272727282728272727
+      272727272727262627303030302F2F302F2F302F2E2F2E2E2F2E2E2F2E2E2F2E
+      2D2E2E2E2D2E2E2D2D2D2D2E2D2D2D2D2D2D2D2D2D2D2E2E2E2D2D2D2E2D2D2E
+      2E2E2E2E2E2E2E2E2E2D2E2E2D2D2E2D2D2E2D2C2E2E2D2E2D2D2E2D2D2D2D2D
+      2D2C2D2D2D2D2D2D2C2D2C2C2B2B2B2B2B2B2929292828272726272525262625
+      2625252625242424252524242424242424242424242424242424242324242323
+      2423232324252525292929282929292929292829282828282828282828282828
+      2727272827272727262726272726262626262726252725262626252625262525
+      2524252525242425242524242524242424242424242423242424232423232320
+      1F201E1E1E1D1E1E1D1E1E1E1F1E2728283636363A3A3A3E3E3E4242423D3D3D
+      1C1C1D1C1C1C1C1C1C1B1C1C1B1C1B1C1C1B1B1B1B1B1B1B1B1B1B1B1B1B1B1A
+      1A1A1B1B1A1A1A1A1B1A1A1A1A191A1A191A1919191919191919191919191919
+      1818191818181918191818181818171718181717181817171717171817171717
+      1717161616161616161617161616161616161615161515161515151515151515
+      1514141515141414141414151414141414141414131413141314131332303013
+      1413303030797979303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030302F2F
+      2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2B2B2B2B2B2B2A
+      2A2A2A2A2A292929292929292929282828282828282828282828282828282828
+      2828282828282828282828282828282929292929292929292929292A2A2A2A2A
+      2A2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2D
+      2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A292929292929292929
+      2828282828282828282828282828282828282828282828282828282828282828
+      2828282828282828282828282827272727272727272727272727272727272727
+      2727272727272727272727272727272727272727272727282828282828282828
+      2828282929292929292929292A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C
+      2C2C2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2D2D2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2929
+      2929292929292928282828282828282828282828282828282828282828282828
+      28282929292929292929292A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2E2E2E363636
+      3838383939393A3A3A3B3B3B3D3C3D3C3C3C3131302E2E2E2E2E2D2E2D2D2E2E
+      2D2D2D2E2E2E2D2D2D2D32313137373737373737373737363736373635353531
+      30302B2B2B2B2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2B2C2E2D2D383738
+      4141414344434545454747474747474747474545454343434141413E3E3E3C3C
+      3C3A3A3A3A3A3A39393938393939393A36373731313128292928292828282828
+      28282828282E2E2E30302F302F2F2F2F2F302F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2E2F2E2E2E2F2E2F2E2E2E2E2E2E2E2E2E2E2D2E2D2E2E2E2E2E2F2E2E
+      2E2E2E2E2E2E2E2E2E2D2D2D2D2F2E2E2E2D2D2F2D2D2F2D2E2E2D2D2E2D2D2E
+      2D2D2B2B2B262526262526262526262526262526262526262525252525262526
+      2525252525252525252524252524252424242424242424242323242424232324
+      2423242325252428282829292929292928292829282828282828282828282727
+      2827272727272626272626272626272626272626262626262526252525252525
+      2524252425252425242525252424242424242424242424242424232020201E1E
+      1E1E1E1E1E1E1E1F1E1E2323233536353A3A3A3E3E3E4242424546451F1F201C
+      1D1C1C1C1C1C1C1C1B1C1C1C1B1C1B1B1C1B1B1B1B1B1B1B1B1B1B1B1B1A1B1B
+      1A1A1A1A1B1A1A1A1A1A1A1A1A1A1A1A191A191A19191A191819191919191918
+      1918181818191819181818181818171817171817181818171717171817171717
+      1717161716171617161616161616151616161516151616151515151515151515
+      1415151515151514151414141414141414141414141314143030321413133030
+      3079797930303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      30303030303030303030303030303030303030303030303030302F2F2F2F2F2F
+      2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B
+      2B2A2A2A2A2A2A2A2A2A29292929292929292929292929292929292929292929
+      29292929292929292929292929292A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B
+      2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D2D2D2D2D
+      2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A29292929
+      2929292929292929292929282828282828282828282828282828282828282828
+      2828282828282828282828282828282828282828282828282828282828282828
+      282828282828282828282828282828282828282828282929292929292929292A
+      2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D
+      2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+      2E2E2E2E2E2D2D2D2D2D2D2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2A2A2A2A2A2A
+      2A2A2A2929292929292929292929292929292929292929292929292929292929
+      292A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2C2C2C2C2C2C2D2D2D2F2F2F38383839
+      39393B3B3B3B3B3B3C3C3C3D3D3D3E3E3E3433342D2D2E2E2D2E2D2E2D2D2E2D
+      2E2E2E2D2E2E2D2D2D3030303737373737363737363333322D2D2D2B2C2B2B2B
+      2C2C2B2B2B2B2B2C2B2B2C2C2C2C2C2C2D2D2D3333333E3E3E43434346454648
+      49484B4C4B4D4D4D4D4D4D4C4C4C4848483C3C3C4242423E3E3E3C3C3C3B3B3B
+      3A3A3A3A3A3A3A3A3A3A393A3A39393A3B3B2929292929292929292929292828
+      282D2D2D313131313030313030313030302F2F30302F302F2F2F2F2F2F2E2F2E
+      2E2E2F2F2F2F2E2E2F2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2E2F2F2E2E2E2E
+      2E2E2E2F2F2E2E2E2E2F2E2D2E2D2D2F2D2D2E2D2D2E2D2D2E2D2D2E2D2D2928
+      2926252626262626262626252626252626252626252626252625252625252525
+      2525252524242524252425242424242425242424242424242424242424232323
+      2423232425242828282928292829292928282929282828282828272828272827
+      2727262727262728262627262627262626262526262526252525252525252525
+      25252525242525242425242424242424242424242423242222221F1E1E1F1E1E
+      1E1E1E1E1D1E201F203333343939393D3D3D4141414545452A2A2A1C1C1D1D1D
+      1C1C1C1C1C1C1C1C1C1C1C1C1B1B1C1B1B1B1B1B1B1B1B1B1B1A1B1B1B1A1A1A
+      1A1B1A1A1A1A1A1A1A1A1A1A1A19191919191A191A1919191919191918191919
+      1818191818181818181818181818181818171817181717181717171717161716
+      1716161617161616161616161616151616151615161515161515151515151514
+      1515151415141414141514141415141414141414323230141313303030797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797979797979797979797979
+      7979797979797979797979797979797979797979797978787878787877777777
+      77777676767575757474747373737272727171717070706F6F6F6E6E6E6D6D6D
+      6C6C6C6B6B6B6A6A6A6A6A6A6A6A6A6969696969696969696969696969696A6A
+      6A6A6A6A6A6A6A6B6B6B6C6C6C6C6C6C6D6D6D6E6E6E6F6F6F70707070707071
+      7171727272737373747474757575757575767676767676777777777777777777
+      7878787878787878787878787878787878787878787878787878787878787878
+      7878787878787878787878787878787878787878787878787878787878787877
+      7777777777777777777777767676767676757575747474747474737373727272
+      7171717070706F6F6F6E6E6E6E6E6E6D6D6D6C6C6C6B6B6B6A6A6A6A6A6A6969
+      6969696969696968686868686868686868686868686868686868686868686868
+      6868686868686868686868676767676767666666666666666666666666666666
+      6666666666666666666767676767676868686969696969696A6A6A6B6B6B6C6C
+      6C6D6D6D6D6D6D6E6E6E6E6E6E6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F70
+      7070707070707070707070707070717171717171727272737373747474747474
+      7575757575757676767676767676767676767676767676767575757575757474
+      747373737272727171717070707070706F6F6F6E6E6E6D6D6D6C6C6C6B6B6B6A
+      6A6A6A6A6A6A6A6A6969696969696969696969696A6A6A6A6A6A6B6B6B6C6C6C
+      6C6C6C6D6D6D6E6E6E6F6F6F7070707171717272727373737979798B8B8B9292
+      929393939494949794979A989A989A9A8B8D8D72757575757272727575727572
+      7272727275717171747474858282797979707070706E70706E706E7070707070
+      6F6F726F6F6F727275777777959595A6A6A6AAAAAAAEAEAEB5B5B5B9BAB9BBBB
+      BBBEBEBEBCBCBC9E9E9E7272726B6E6E767676898B8B9191919191918F8F8F90
+      90909090908D90909191919191907373766769676967676669666666696E6E6E
+      7C7C7C7C7C7B7C7C7B7B7B7B7B78787B78787B78787B78787876787876767678
+      7678767676767679777777777777777777777778757878787875787575757575
+      7575767673767373767373767173737373737171737171717171606062606062
+      606062605D60606062605D60605D60605D60605D606060626260606260606060
+      60606060626262696C6C7979796262625D5B5B5B5B5B5B585B585B58585B5B5B
+      5B585B5D5B656265676767676765656565676565656565656562656262656260
+      65606265626065606062606062606060606060605D605D5D5D5D5D5D5D5D5D5D
+      5D5D5D5D5D5D5D5D5B5B5B5D5B5B5B5B5B5B5B5B585B4B4E4B4E4B4B4B4E4B4B
+      4B4B4E4E4E6E6E718D8D8D9597959E9E9EA7A7A7808383464946494946464646
+      4649464646464646464343434343434643434343434343434343434341414141
+      41414141414141413E413E413E413E41413E3E3E3E3E3E3E3E3D3E3D3D3E3D3E
+      3D3D3D3D3D3D3D3D3A3D3D3D3D3A3D3D3A3D3A3D3D3A3A3A3A3A3A383A3A383A
+      3838383838383838383838383835383838383835353535353535353535353535
+      3532323232323232323232323230323232323213141330303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030302F2F2F2F2F2F2F2F
+      2F2F2F2F2E2E2E2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2E2E2E2E2E
+      2E2E2E2E2E2E2E2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F30303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      3030303030303030303030303030303030303030303030303030303030303030
+      302F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E2E2E2E2E2E2E2D
+      2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A
+      2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A29292929292929292929292929
+      29292A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2B2B2B2B2B2B2B2B2B2C2C2C2C2C2C
+      2C2C2C2C2C2C2C2C2C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D
+      2D2D2D2D2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2F2F2F2F
+      2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2E2E2E2E2E2E
+      2E2E2E2E2E2E2D2D2D2D2D2D2D2D2D2C2C2C2C2C2C2C2C2C2B2B2B2B2B2B2B2B
+      2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2C2C2C2C
+      2C2C2C2C2C2D2D2D2D2D2D2E2E2E2E2E2E2E2E2E2E2E2E3030303939393C3C3C
+      3C3C3C3C3C3C3E3E3E3F3F3F3F3F3F3B3B3B2F302F2E2F2E2E2E2E2E2F2E2E2F
+      2E2E2E2E2D2D2D2D2E2D2D2D2D2D2D2D2D2D2D2C2C2D2E2E2D2D2E2E2E2E2E2F
+      2F2F3938394242424746464949494B4B4B4F4F4F5151515354535655564D4D4D
+      3636362C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D2D2D3232323737373838383939
+      393939393A393A3A393A303030292A292A292A2A29292929292C2B2B32313232
+      3231323231323131323131323131313031313030302F303030303030302F2F30
+      2F2F2F302F2F2F302F2F2F2F2F2F2F302F30302F302F302F2F30302F302F302F
+      2E2F2E2E2F2E2E2F2E2D2F2E2E2E2D2D2E2D2E2A2A2A26262726262726262726
+      25262625262726272726272726272827282727282B2A2A2D2E2D313132353535
+      3838383736373736363535362727272525242424232424242324242423242324
+      2424252528282829292829292828292829282828282728282727272628262727
+      2727272626272626272626262626262625252526252526262625252525242525
+      242424242525252424252424242424242424201F1F1F1F1E1E1F1E1E1E1E1F1F
+      1F2828283838383C3B3C4041404444443F3F3F1C1D1D1D1D1C1C1C1C1C1C1C1C
+      1C1C1C1C1C1B1C1C1B1B1B1C1B1C1C1B1B1B1B1B1B1B1B1B1B1B1B1A1B1A1B1B
+      1A1A1A1A1A1A1A1A1A191A1A191A1A191A191919191919191919191819191818
+      1818181918181818181818171818171718181717171717171717171717171717
+      1617171616161616161616151615161615161616151515151515151515141515
+      141515151414151514141414141414141414
+    }
+    Transparent = False
+  end
+  object Label1: TLabel
+    Left = 8
+    Height = 27
+    Top = 264
+    Width = 313
+    Caption = 'Copyright RemObjects Software, 2002-2008. All rights reserved.'#10
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    ParentColor = False
+    OnClick = OnCloseClick
+  end
+  object lbl_Version: TLabel
+    Left = 253
+    Height = 17
+    Top = 40
+    Width = 11
+    Caption = '[]'
+    Font.Color = clWhite
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    ParentColor = False
+  end
+  object Label7: TLabel
+    Left = 8
+    Height = 14
+    Top = 280
+    Width = 92
+    Caption = 'Visit our website at'
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    ParentColor = False
+  end
+  object Label3: TLabel
+    Cursor = crHandPoint
+    Left = 102
+    Height = 14
+    Top = 280
+    Width = 151
+    Caption = 'http://www.remobjects.com/ro'
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsUnderline]
+    ParentColor = False
+    OnClick = Label3Click
+  end
+  object btn_Cancel: TButton
+    Left = 418
+    Height = 25
+    Top = 272
+    Width = 77
+    Cancel = True
+    Caption = 'btn_Cancel'
+    Default = True
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    OnClick = OnCloseClick
+    TabOrder = 0
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.lrs
new file mode 100644
index 0000000..1c911a5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.lrs	
@@ -0,0 +1,10254 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TAboutForm','FORMDATA',[
+  'TPF0'#10'TAboutForm'#9'AboutForm'#4'Left'#3'n'#1#6'Height'#3'+'#1#3'Top'#3
+  +#242#0#5'Width'#3#241#1#18'HorzScrollBar.Page'#3#240#1#18'VertScrollBar.Page'
+  +#3'*'#1#13'ActiveControl'#7#10'btn_Cancel'#11'BorderIcons'#11#0#11'BorderSty'
+  +'le'#7#6'bsNone'#7'Caption'#6#20'About RemObjects SDK'#12'ClientHeight'#3'+'
+  +#1#11'ClientWidth'#3#241#1#10'Font.Color'#7#7'clWhite'#11'Font.Height'#2#245
+  +#9'Font.Name'#6#6'Tahoma'#7'OnClick'#7#12'OnCloseClick'#8'OnCreate'#7#10'For'
+  +'mCreate'#8'Position'#7#16'poMainFormCenter'#10'LCLVersion'#6#6'0.9.25'#0#6
+  +'TImage'#6'Image1'#6'Height'#3','#1#5'Width'#3#244#1#8'AutoSize'#9#7'OnClick'
+  +#7#12'OnCloseClick'#12'Picture.Data'#10#18#222#6#0#7'TBitmap'#6#222#6#0'BM'#6
+  +#222#6#0#0#0#0#0'6'#0#0#0'('#0#0#0#244#1#0#0','#1#0#0#1#0#24#0#0#0#0#0#208
+  +#221#6#0#192#30#0#0#192#30#0#0#0#0#0#0#0#0#0#0'00000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000//0/0/00/0/000000//0/0'
+  +'//0/////////////////////.//...//.../.................------..-.--.-.-------'
+  +'------,-,-,-,,,,,,--,,,,,,,+,,,,,,+++++,++++++++++++++++++**++++***********'
+  +'*)*********))))))))))*)))())))()())()(((((((((((''''''''''''(((''''(''''''('
+  +'''''''''''''''''''''''''+++///111333444-,-&&&&%&&%&&%&&&'',*++**,+*+**+**+*'
+  +'********)*)*)))))))))()))())()((()(((((((((''(((''''''''''''''''''''''&''&&'
+  +'''''''''''&&&&&&&&&%&&&&&%%%%%%"""    '#31' '#31' '#31'   ! !---44465555654'
+  +'4000""""""'#30#30#31#29#29#30#30#29#30#29#29#29#29#29#29#29#29#29#29#28#29
+  +#28#28#28#29#29#28#29#28#28#28#28#28#28#28#28#28#27#27#31#31' %%%%%%&&&('''''
+  +')))*+*! !'#26#26#27#26#26#27#26#25#26#26#26#27#26#26#26#26#25#26#27#27#27#29
+  +#29#28#29#28#29#29#28#29#28#29#28#28#28#28#28#28#28#28#27#28#28#27#27#27#28
+  +#28#27#27#27#27#27#27#26#27#27#27#26#27#27#26#27#26#27#26#26#26#26#26#26#26
+  +#26#26#25#26#25#26#25#25#25#25#26#25#25#25#25#25#25#25#25#25#25#24#24#24#24
+  +#24#25#24#24#24#24#24#24#24#24#24#24#23#23#23#23#23#23#23#22#21#20#20#20#20
+  +#20#20#19#20#19#19#20#22#21#21'%%&222888===BCB('''''#17#17#17#17#17#17#17#17
+  +#17#17#16#16#16#17#16#16#17#17#16#16#16#16#16#17#16#16#16#16#16#16#16#15#16
+  +#16#16#16#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#15#15#14#14#14#15#15
+  +#14#15#14#14#14#14#14#14#14#14#14#13#13#14#13#14#13#13#13#13#13#13#13#13#13
+  +#12#13#13#13#13#12#12#13#13#13#12#13#12#12#13#12#12#12#12#12#12#12#12#12#11
+  +#12#11#12#11#12#12#11#11#11#11#11#11#11#11#11#10#11#11#11#11#11#11#11#11#10
+  +#11#11#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#9#9#9#9#9#9#10#10#9#9#9#9#9
+  +#9#9#8#9#9#8#9#9#9#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#8#7#8#8#7#8#8#7#8#7#7
+  +#7#7#7#7#7#7#7#7#6#7#7#6#7#7#6#6#7#7#6#7#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6
+  +#6#5#6#6#6#5#6#5#5#5#5#5#6#5#5#5#5#5#5#5#5#4#4#5#5#4#5#4#4#5#4#5#5#4#4#5#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3#4#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#2#3#3#3#3#2#3#3#2#3#2#2#3#2#3#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2
+  +#1#2#1#2#2#2#1#2#2#2#1#2#2#1#1#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0
+  +#1#0#0#0#1#0#0#0#0#0#1#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#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#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#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#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'000yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy'
+  +'yyyyyyyyyyyyyyyyyyyyyyyvyvyyvyvyyyvvyvyyvvvvvvyyvvvvvvvvvvsvvvvvsvvvvvvvvvs'
+  +'ssssvsssssssssssssssssssssqsqqqqqqsqqqqqqqqqqqqqqqqqnqnnnnqnnnqqnnnnnnnnnln'
+  +'llnnllnlnlllnlnnllllllliiillllliilliiiiiiiiiigigigiggggigiggggggggggggggegg'
+  +'eggeegeeeegeeeeeeeeeeebbbbbbbbbbebbbbbbbbbnnnvvv{{{'#128#128#128#131#131#131
+  +'gii````]b`]``]`eeenlllllliilliliiliiliiiiiigiggiigigiggggggggggegegegeeeeee'
+  +'eebebbbeeebebebbbbbbbbbb`bb`bbb`````]```]]````]]`]]PPSPPPPPPPNPPPPXX['#128
+  +#128#128#131#128#131'~'#128#128'~~'#128'yy{vvyqssqqqnlnlnlbbbbbb][][X[PSSKKN'
+  +'FIFFFFCFFKKI]]]```bbbeeeggglllUUUCCCAACA>CAACAAAA>CCCFIIIIIIFIIIIFFFIFFFFFF'
+  +'FFCFFFFFCCCCCCCCCCACACACACCAAAAAAAAA>AAA>AAA>>A>AA>=>>>>===>>=>=======::=::'
+  +'888522222222022::8egg'#131#128#128#143#143#144#156#156#156#169#169#169'KNN-'
+  +'+-+++-++++++((+++(+((+(+(((((((((&((&&&&(&&&&&&&#&&&&##&######&##### #### #'
+  +'             '#30'  '#30#30' '#30#30#30#30#30#30#30#30#30#30#30#30#27#30#30
+  +#30#30#27#30#27#27#30#27#27#27#27#27#27#27#27#27#27#27#27#27#27#25#27#27#25
+  +#25#25#25#25#25#27#25#25#25#25#25#25#25#25#25#22#22#25#25#22#22#22#22#22#22
+  +#22#22#22#22#22#22#22#22#20#20#20#22#20#22#20#20#20#20#20#20#20#20#20#20#20
+  ,#20#20#20#20#18#20#18#20#20#20#18#20#18#18#20#18#18#20#18#18#20#18#18#18#18
+  +#18#18#18#18#18#18#18#18#15#15#15#18#18#18#15#15#15#18#15#15#18#15#15#15#15
+  +#15#15#15#15#15#13#15#15#15#13#15#13#15#13#13#13#13#13#13#13#13#13#13#13#13
+  +#10#13#13#13#10#13#13#10#10#13#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10
+  +#10#10#10#10#10#10#10#10#10#8#10#10#8#8#8#8#10#10#8#8#8#10#8#8#8#8#8#8#8#8#8
+  +#8#8#8#5#8#8#8#8#5#8#8#5#8#5#5#8#8#5#8#8#5#8#5#5#5#5#5#8#8#5#5#5#5#5#3#5#5#5
+  +#5#3#5#3#5#3#5#5#3#3#5#5#3#3#3#5#3#3#3#5#3#5#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#0#3#0#3#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#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#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#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#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#0#0#0#0'000yyy00000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000/00/00///00//0///////00///0/////.////...//.///./'
+  +'/..../.............-.-....-.-----...---..--------,,,--,-,,---,,,,,,,,,,,,,+'
+  +',,,,+++,,,,+++++++++++++**+++++*++*+***+******)*)***)*)*)))))*)))*))))))())'
+  +')))((((()((((((((((''''''(((''''(('''''''''''''''''''''',,,///111333555***&'
+  +'&&&&''&&&&%''*)),++,++,*+,+++**+**+***)****)*))**))))))))(())))(())))((()(('
+  +'(''((((((''(''(''''''''''''''''''''''&''''&&&''&&''&&&&&&&&&&&&%%%&#"#    '
+  +#31'  '#31#31' !  !!)))222122110011///......--,,-,++++++++++++*++*)**))&&''#'
+  +'##&&&(((((''((()**+++%%%'#27#26#28#27#26#28#27#26#27#26#26#28#26#26#27#26#26
+  +#27#27#26#26#29#29#30#29#29#29#29#29#29#29#29#29#29#29#29#29#28#29#29#29#28
+  +#28#28#28#28#28#28#28#28#28#28#28#28#27#27#28#27#28#28#27#27#27#27#27#27#27
+  +#27#26#27#27#27#26#26#27#26#26#27#27#26#26#26#26#26#26#26#26#26#25#26#25#25
+  +#26#25#25#25#25#25#25#25#25#25#25#24#24#24#25#25#24#24#25#24#24#24#24#24#24
+  +#24#23#23#23#22#23#20#21#21#20#20#20#20#20#20#21#21#21#24#24#24'/./444:::@@@'
+  +'EEE'#21#20#21#18#18#18#17#17#17#17#17#18#17#17#18#17#17#17#17#17#17#17#16#16
+  +#17#17#17#16#17#16#16#16#16#16#16#16#16#15#16#15#15#15#15#15#16#15#15#15#15
+  +#16#15#15#15#15#14#15#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#14#14#14#13#14#14#13#13#13#13#13#13#14#13#13#13#13#13#12#12#13#13#13#13
+  +#13#12#12#12#13#13#12#12#12#12#12#12#12#12#12#12#12#11#12#11#11#12#12#12#11
+  +#11#11#11#11#11#11#11#11#10#10#11#11#11#11#10#10#10#10#10#10#10#10#10#10#10
+  +#10#10#10#10#10#9#10#9#10#9#9#9#9#10#9#9#9#9#10#9#9#9#9#9#9#9#9#9#9#9#8#8#8#8
+  +#8#9#8#9#8#8#8#8#8#8#8#8#8#8#7#8#8#7#8#8#8#7#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7
+  +#6#7#6#7#6#7#7#6#7#7#6#7#6#6#6#6#6#6#6#6#5#6#6#6#6#6#5#6#6#6#5#5#6#6#5#6#6#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#5#4#5#5#4#4#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4
+  +#3#4#4#4#4#4#4#3#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#3#3#3#3#3#2#3#2#3#3#2
+  +#2#3#2#3#3#2#3#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#1#1#2#1#2#2#2#1#2#2#1#1#2#2#1#1
+  +#1#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#1#0#1#0#0#0#1#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#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#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#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#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'000yyy000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000000000000000/00/0'
+  +'000000///0///////////0////0/////////////...///./../...............-.-.--.-.'
+  +'--.-..-..------------,,-,,,--.332///,,,,,,,,++,,,++++,,,+++,+++++++++++++++'
+  +'+**+****++**********)****)*)*))))))))))))))))))()())()()((((((((''(''(('''''
+  +'''((''''''''''''''''''''...///111333555''&''&&''&%''&&&&%''*)),++,++,*+,++,'
+  +'*+++*+++++***)***))*)))))))))))))()(((())(((()(((((''((((((''(((''''('''''''
+  +'''''''&''''''''&&''''&&&&&&&&&&%&&%%&%%  !       '#31'  ! !!!001011100011//'
+  +'0...../...---,--,,-,,,,,,+++*++*+***))*))))))(*****+,++&%%'#27#27#28#27#27
+  +#28#26#26#27#27#27#27#26#27#27#26#27#27#27#27#27#30#30#29#30#30#30#30#29#29
+  +#29#29#29#29#29#29#29#29#28#29#29#29#29#28#29#29#28#28#29#28#28#28#28#28#28
+  ,#28#28#28#28#27#27#28#27#27#28#28#27#27#27#27#27#27#27#27#27#26#26#26#27#27
+  +#27#26#27#26#26#26#26#26#26#25#26#25#26#26#26#26#25#25#26#26#25#25#25#25#25
+  +#25#25#25#24#25#24#24#24#25#24#24#24#24#24#24#24#23#23#22#21#21#20#21#20#20
+  +#21#20#20#20#20#21#22#21#26#26#26'//.455:;:@@ABBB'#18#18#18#18#18#18#18#18#18
+  +#18#17#17#17#18#18#18#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#17#17#16
+  +#16#16#16#16#16#16#16#16#16#15#15#15#15#16#15#16#15#15#15#16#15#15#15#15#15
+  +#15#15#14#15#14#15#14#15#14#14#15#14#15#14#14#14#14#13#14#14#13#14#13#14#14
+  +#14#13#13#13#13#13#13#13#13#12#13#13#13#13#13#13#12#12#13#12#12#12#12#12#12
+  +#12#13#12#12#12#12#12#11#12#11#12#12#11#12#12#11#11#11#12#11#11#11#11#11#11
+  +#11#11#11#11#11#10#10#10#10#10#10#10#11#10#10#10#10#10#10#9#10#10#10#9#10#10
+  +#9#9#9#10#9#9#9#9#10#9#9#9#9#9#8#8#9#9#9#9#8#8#8#8#9#8#8#8#8#8#9#8#8#8#8#8#8
+  +#7#8#8#8#7#8#7#8#8#7#7#8#7#7#7#7#7#7#7#7#7#7#7#7#6#6#7#6#7#6#6#7#6#6#6#6#7#6
+  +#7#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#5#6#5#5#5#5#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5
+  +#4#4#5#5#5#4#4#4#5#4#5#4#5#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#3#3#3#4
+  +#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#2#3#2#2#3#2#2#3#3#3#3#2#3#2#3#2#2#2#2#2#3
+  +#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2#2#2#2#2#2#1#1#2#1#1#1#2#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#0#1#0#0#1#1#0#1#1#1#0#1#0#1#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#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#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#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#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'000yyy0000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000/000000/00000/0000//00///////'
+  +'///////////.//.//..././../..../.../............--------.---.----------,.-.3'
+  +'34555777555000,,,++,+,++,,++++,,+,+++,+++++++++*+*++***+++**++******)**)***'
+  +'***))))*))))))))))())())()((()(()((((''''(((''''''((''''''''''''''''''...//'
+  +'/111333555%%&&&''&&&&&''&%&+*+,++,,+,+++*+,++,*++*++*************))**)**)))'
+  +')))())())))((((((((((''((((''''''''''(''(''''''''''''&&&''''&''&''''''&&&&&'
+  +'&%&%%&&&&&###            '#31'  ()(111111001//0/00..../....-..--.----.-,,,,'
+  +',,,,+++++++++++++++++,,)))'#28#28#29#28#28#28#27#27#28#27#26#28#27#27#27#27
+  +#27#27#28#27#28#30#30#30#30#30#30#29#30#30#30#30#30#30#29#29#29#30#29#29#29
+  +#29#29#29#28#29#28#29#29#28#29#28#28#29#28#28#28#28#28#28#28#28#28#27#28#28
+  +#27#28#28#27#27#27#28#27#27#27#27#27#27#26#27#27#26#27#26#26#26#27#26#26#26
+  +#26#26#26#26#26#25#26#25#25#26#26#25#26#25#25#25#25#25#25#25#24#25#24#25#25
+  +#25#24#24#24#24#24#24#24#24#23#22#22#22#21#20#21#20#21#21#20#21#21#21#21#21
+  +#29#29#30'000666;<;AAA888'#18#18#18#18#18#18#18#18#18#17#17#18#18#18#17#17#17
+  +#17#17#17#17#17#17#17#17#16#17#16#16#16#17#17#17#16#17#16#16#16#16#16#16#16
+  +#16#16#16#15#16#16#15#15#15#16#16#15#15#16#15#15#15#15#15#15#15#14#14#15#15
+  +#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#12#13#12#12#12#13#12#13#12#13#12#12#12#12#12#12
+  +#12#12#12#12#11#12#11#11#11#11#11#12#12#11#12#11#11#11#11#11#10#11#11#11#10
+  +#10#11#11#10#10#10#10#10#10#10#11#10#10#10#10#9#10#10#10#10#10#9#10#10#9#9#10
+  +#9#9#9#9#9#9#9#9#9#9#9#8#8#8#9#8#8#9#8#8#9#8#8#8#8#8#8#8#8#8#8#8#7#8#7#8#7#8
+  +#7#8#7#8#7#7#7#7#8#7#7#7#7#7#7#6#7#7#7#6#7#7#7#7#7#7#6#6#6#6#7#6#6#6#6#6#6#6
+  +#6#6#6#6#6#6#5#6#5#6#6#6#5#6#5#6#5#5#5#5#5#5#5#5#5#5#4#5#5#5#4#5#5#5#4#4#5#4
+  +#5#4#4#4#4#5#4#4#4#4#4#4#4#4#3#4#4#3#3#4#4#3#4#4#4#4#3#3#4#3#4#3#3#3#3#3#3#3
+  +#4#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#3#2#2#2#2#3#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#1#2#1#2#2#2#2#1#2#2#1#2#2#2#2#1#1#2#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#0#0#0#1#0#0#0#0#1#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#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#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#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#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'000yyy000000000000000000000000000000000000000000000000000000000000000'
+  ,'0000000000000000000000000000000000//00000//0////00/0///0/////////////./////'
+  +'/...././...../.../..........-..-.-.-----.-------///333444666777999:::777000'
+  +',,,,+,,,,+,+,,,,,+++++,++++++++*++*+*+*++*+********))***)*)))**))))))))))))'
+  +'))))()((()()(()((((''(''(''(''(''((''''''(((/..000222444444%%&&&''&&''&&''&'
+  +'%&+++,,+,++,++,+++++,+++*+++*+*****)**))*))*))*))))))))))()))))((((((()(('''
+  +'((((''(''''''''''''''''''''''''''''''&''&&''&''''&&''&&&&&&&%%&%%%  !      '
+  +'    '#31#31'   ))(+**,,,**+**+//0//0////././/...----.----,-,-----,,,,,,,---'
+  +'**)'#29#28#30#27#27#28#27#27#28#27#27#28#27#27#27#27#27#28#27#28#27#31#30#30
+  +#30#30#31#30#30#30#30#30#30#29#30#30#30#29#30#29#29#29#30#29#29#29#29#29#28
+  +#29#29#29#29#29#29#29#28#28#28#28#28#28#28#28#28#28#28#28#28#27#27#28#27#27
+  +#28#27#27#27#27#27#27#27#27#27#26#27#27#26#27#27#26#27#27#26#26#27#26#26#26
+  +#25#26#26#25#26#26#25#26#25#25#25#25#25#25#25#25#25#25#25#25#25#24#24#25#25
+  +#24#24#24#24#24#22#22#22#21#21#21#21#20#21#20#20#20#21#22#22'###111777>>>CCB'
+  +'332'#19#18#18#19#18#18#17#18#18#18#17#18#18#17#17#17#18#17#17#18#17#17#17#17
+  +#17#17#17#17#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#16
+  +#16#16#16#15#16#15#15#15#16#15#16#15#15#15#15#15#15#14#14#15#14#15#14#15#14
+  +#14#15#15#14#14#14#14#14#14#14#14#14#14#14#14#13#13#14#13#13#13#13#13#13#14
+  +#13#13#13#13#13#13#13#12#12#13#12#13#12#13#13#12#12#12#12#12#12#12#12#12#11
+  +#12#11#11#11#12#12#11#11#12#11#12#11#11#11#11#11#11#11#10#11#11#10#11#11#10
+  +#11#10#10#10#10#10#10#10#10#10#10#9#10#10#9#10#10#10#10#10#9#9#10#9#9#9#10#9
+  +#9#9#9#9#9#9#8#9#9#8#9#8#9#9#8#8#8#8#9#8#8#8#8#8#8#8#8#7#8#7#7#8#8#7#7#8#7#8
+  +#7#7#7#7#8#7#7#7#7#7#7#7#7#7#6#7#6#6#6#6#6#7#6#6#6#7#7#6#6#6#6#6#6#6#6#6#6#5
+  +#6#5#6#5#5#6#5#6#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#4#5#4#5#5#5#5#4#4#4#5#4
+  +#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3#4#3#3#3#4#3#3#3#3#3#3#4#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#3#3#2#2#3#2#3#3#2#2#2#2#3#2#2#2#2#2#2#2#2#3#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#1#1#1#1#1#1#2#1#2#1#1#2#1#1#1#1#1#1#1#1#1#2#1#1#0#1#1#1#0#1#1
+  +#0#1#1#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#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#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
+  +#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#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'000yyy000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000/00000///0////00///0////////////./////./..././.../...'
+  +'.........-..-...--.-----.----.///222333555777888999:::;;;;;;777000,,,,,,,++'
+  +'++,,+++,+++++++*++*+*****+*+***************)**)*)*)*))))))))))))))))))))(()'
+  +'(((((((((''''(''(''('''')**...000222444222%%&&&''&&''&&''&&'',,+-,,,++,,+,+'
+  +'+,++,++,*+++++++******)*****))*)))))**)))))))))))(()(()((((((''(((((('''''''
+  +'(''(''''''''''''''&''&&&&''&''&&&&&&&&&%&&&#"#!!   !   '#31'  '#31' '#31' '
+  +#31#31' '#31' '#31' '#31#31#31#31#31#31#30#30#30#30#30#31#30#31#31' #"#""#%%'
+  +'%''&''*))..-...--...----.--,-,'#29#29#30#27#28#29#28#28#28#27#28#28#28#27#28
+  +#27#27#28#28#28#28#31#31#30#30#30#31#31#30#30#30#30#30#30#30#30#30#30#30#30
+  +#30#30#29#30#29#30#30#29#29#30#29#30#29#29#28#29#28#28#29#29#29#29#29#29#28
+  +#29#28#28#29#28#28#28#28#28#28#28#28#27#27#27#28#27#28#28#27#27#27#27#26#27
+  +#27#27#27#26#26#27#26#26#27#27#27#26#26#26#26#26#26#26#25#25#26#25#26#25#25
+  +#25#25#26#25#25#25#25#25#25#24#25#25#24#24#25#24#24#21#22#21#21#21#21#21#21
+  +#21#21#20#20#22#22#22'%%%222999>>>DCC-,-'#18#18#18#18#19#18#18#19#18#18#18#18
+  +#18#18#18#18#17#17#17#18#17#18#18#17#17#18#17#17#17#17#17#17#17#16#16#16#16
+  +#17#16#16#16#16#16#17#16#16#16#16#15#16#16#16#16#15#16#15#16#16#16#15#15#15
+  +#15#14#15#15#14#15#15#15#15#14#14#15#15#14#14#14#14#14#14#14#14#14#14#13#14
+  +#14#14#13#13#13#13#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#11#12#11#11#12#11#11
+  +#11#11#12#11#11#11#11#11#11#11#11#10#10#11#10#11#11#10#10#10#10#10#10#10#10
+  +#10#10#10#10#9#10#10#10#9#9#10#10#9#9#9#9#9#9#9#9#9#9#9#8#8#8#9#8#8#8#9#8#8#8
+  +#9#8#9#8#8#8#8#8#8#7#8#8#8#8#7#7#8#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7
+  +#6#7#7#7#6#7#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#6#6#5#5#5#5#6#6#5#6#5#5#5#6#5#5#6
+  +#5#5#5#5#5#5#5#4#5#5#5#4#4#4#4#4#5#5#4#5#5#4#4#4#5#4#4#4#4#4#4#4#4#4#4#3#3#4
+  +#3#4#4#4#4#4#4#4#4#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#3#3#2#2#3#2#3#3#3
+  +#2#2#3#2#3#2#2#2#2#2#3#2#3#2#2#2#2#2#2#2#2#2#2#1#2#2#1#1#2#2#2#1#2#1#1#1#1#1
+  +#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#0#1#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#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#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#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#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'000yyy00000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000/0000000//0/'
+  +'0////0///////////.//.//.///.////......//...........-.-..---.----/0022233344'
+  +'4666888999:::;;;;;;<<<;;;;;;656.-.+,+++,+,,,++++,++++++++++++++*******++***'
+  +'****)*****))*))))**)))))))))))))())))()(((((((''((''''((('')))/./0013224442'
+  +'22&&''&&''&&''&&''&&''-,,,,+-++,,+,+,,++,++,+*++++++*************)*))))))))'
+  +'))))))()))())((((()(((((''(''''(''''''(''(''''''(''''''''''''''''''''''&''&'
+  +'&&''&&&&&%&&&%% !! !        '#31#31' '#31#31'  '#31#31#31' '#31#31#31#31#30
+  +#31#31#31#31#30#31#30#30#30#30#31#30#30#30#30#30#30#30#30#30#30#30#29#29#29
+  +#29#29#29#30#30#31'"""%%$''('')*)   '#28#29#29#28#28#29#28#27#29#28#27#28#27
+  +#28#29#28#27#28#30#30#30#31#31#31#31#31#30#31#31#31#30#30#30#30#30#30#30#30
+  +#30#30#30#30#29#30#30#29#29#30#30#29#29#29#29#29#29#29#29#29#29#29#29#29#29
+  +#28#29#28#29#28#28#28#28#28#28#28#27#27#28#27#27#28#27#27#28#28#28#27#27#27
+  +#27#27#27#27#27#27#27#26#27#27#26#26#26#27#26#26#26#26#26#26#26#26#26#26#26
+  +#26#26#26#25#26#25#25#25#25#25#25#25#25#25#24#24#24#24#23#22#21#21#21#21#21
+  +#21#22#21#21#21#21#24#24#23')((444999@@@EDE   '#18#18#18#18#19#19#19#19#18#18
+  +#18#18#18#18#18#18#18#18#17#18#17#18#17#17#18#18#17#17#17#17#17#17#17#17#17
+  +#17#17#17#17#16#17#17#16#16#17#16#16#16#16#15#15#15#16#16#16#16#16#16#16#15
+  +#15#16#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#13#13#13#13#13#14#13#13#13#13#13#13#12#12
+  +#12#13#13#12#13#12#13#12#12#13#12#12#12#12#12#12#11#12#12#12#11#12#12#12#11
+  +#12#11#11#11#11#11#11#11#11#11#10#11#11#11#11#10#10#11#10#10#10#11#10#10#10
+  +#10#10#10#10#10#9#10#10#10#10#9#9#10#10#9#9#10#9#9#9#10#9#9#9#9#9#8#9#9#8#9#9
+  +#8#9#9#8#9#9#8#9#8#8#8#8#8#8#8#7#8#8#8#7#8#7#8#8#7#7#8#7#7#7#7#7#7#7#7#7#7#7
+  +#7#7#7#7#7#7#6#7#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#5#6#5#6
+  +#5#5#6#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#3#4#4#4#4#4#4#3#4#3#3#3#3#4#3#3#3#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#2#2#3#3#2#2#2#3#2#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1
+  +#2#1#1#2#1#2#2#1#1#1#1#1#1#1#1#1#2#1#1#1#0#1#1#0#0#0#1#0#1#0#0#1#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#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#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#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#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'000yyy000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000/00000000'
+  +'0000/0/00000//////0/////////////////../..//.../...//..........--..-.-0/0222'
+  +'433544666888999;;;;;;<<<<<<<<<<<<<<<;;;;;;554...,,,+,++++++++,++++++***+++*'
+  +'*+++**************)*))))*)*)))*)))))))))))())()()()((((((((((''(+*+../01032'
+  +'3444---&&''&&''&&''&&''''''''-,,,,+-+,-++,++-++,++,+++++++++++++***+****)**'
+  +')**)))))))))))))))))(()())((((((((((''((''''(''''''''''''''(''''''''&'''''''
+  +'''&&&&&&''&&&%&&%%#"# !!   ! !   '#31'       '#31' '#31#31#31#31#31#31#31#31
+  +#31#31#31#30#30#31#31#31#31#30#31#31#30#30#30#30#30#29#29#30#29#29#30#29#29
+  +#29#30#29#29#30#29#29#29#29#29#29#29#29#29#29#29#29#28#29#29#28#28#29#28#28
+  +#29#28#28#28#27#27#28#30#30#31#31'  '#31#31' '#31#31#31#31#31#30#31#31#31#31
+  +#30#30#31#30#31#30#30#30#30#30#30#30#30#29#30#30#30#30#29#29#29#29#30#29#29
+  +#29#28#29#29#29#28#29#28#28#28#28#28#29#28#28#28#28#28#28#28#27#28#28#28#28
+  +#28#28#27#27#28#28#27#27#27#26#27#27#27#27#26#27#27#26#27#27#27#26#26#27#26
+  +#26#26#26#25#26#26#26#26#25#25#25#25#25#25#25#25#25#25#25#25#24#24#24#22#21
+  +#22#22#21#21#21#21#21#22#22#23#25#25#25'.-.444:::@@@EEE'#25#25#25#18#19#19#19
+  +#19#19#18#19#19#18#18#18#18#18#18#18#18#18#18#18#18#18#17#17#17#18#17#17#18
+  ,#17#17#17#17#17#17#17#16#16#16#16#17#17#16#16#16#17#16#16#16#16#16#16#16#16
+  +#16#16#16#16#16#16#16#16#15#15#15#16#15#15#15#15#15#15#14#15#15#15#15#14#15
+  +#15#14#14#14#14#14#14#14#13#14#14#14#14#13#13#13#14#13#13#14#14#13#14#13#14
+  +#13#13#13#13#13#13#12#13#13#13#13#12#12#12#12#12#13#12#12#12#12#12#12#12#12
+  +#12#11#12#11#12#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11
+  +#11#11#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#10#10#10#10#9#10#9
+  +#10#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#9#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#7#7#7
+  +#8#7#7#8#7#7#8#8#7#7#8#7#7#7#6#7#7#7#6#7#7#6#6#7#7#7#6#7#7#6#7#6#6#7#6#6#6#6
+  +#6#6#6#6#6#6#5#6#5#5#6#5#5#5#5#6#6#6#5#5#5#6#5#5#5#4#5#4#4#4#5#5#5#4#5#5#5#4
+  +#5#5#5#4#4#4#5#4#4#4#4#4#5#4#4#4#4#4#4#3#4#3#4#3#3#4#4#4#4#3#3#4#4#4#3#4#3#3
+  +#4#3#3#3#4#3#3#2#2#3#3#3#2#3#3#3#3#3#2#2#3#3#3#3#2#3#2#2#2#2#3#2#3#2#3#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#2#1#1#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1
+  +#1#0#1#1#1#0#0#1#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#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#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#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#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'000yyy0000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000/00//00/00000/00///0/0/////////////////./////..//'
+  +'./............-.-110332344544667988;::777212:::<<<<<<<<<<<<<<<<<<<<<:;;;;;5'
+  +'44...+++++,,++++++++++++++++***+****+***********)))**)**))))*)))))))))))))('
+  +'()((((((((((((+++///111333444...&&''&&''&&''&&''(((-,,-,,-,,,,+,,,,++,+,,++'
+  +',+*++*++****+**+******))*)*)****))*)))))))(()(((((())((((((((((((''((''((('
+  +'''''''''''''''&''''&&&''&&&&&&&&&&&%%!!!     !         '#31'    '#31#31#31
+  +#31#31'  '#31#31#31#31#30#30#31#31#31#30#30#30#30#30#30#30#30#30#30#30#30#30
+  +#30#30#30#30#30#30#29#30#29#29#29#29#29#29#29#28#29#29#29#29#28#28#29#28#29
+  +#29#28#28#29#28#28#29#30#29#30'   '#31#31#31#31#31#31#31#31#31#31#31#31#31#31
+  +#31#31#31#30#31#30#30#31#30#30#30#30#30#30#30#30#29#30#30#30#29#30#29#30#29
+  +#29#29#29#29#29#29#29#29#29#29#29#29#28#28#28#29#29#28#28#28#28#28#28#28#28
+  +#27#27#28#28#27#28#27#27#27#27#28#27#27#27#27#27#27#27#27#27#26#27#26#26#27
+  +#26#26#26#26#26#26#26#26#26#26#26#26#25#26#26#25#25#25#25#25#25#26#23#23#23
+  +#21#22#22#22#21#22#22#22#22#22#23#22#26#27#26'///555;;;@@@EEE'#19#19#19#18#19
+  +#19#18#19#19#19#18#19#18#18#19#18#18#18#18#19#18#18#18#18#18#17#18#17#18#18
+  +#17#18#17#17#18#17#17#18#17#17#16#17#17#17#17#16#17#16#16#16#16#16#17#17#16
+  +#16#16#16#16#16#15#16#16#15#16#15#16#15#16#16#15#16#15#15#15#15#15#15#15#15
+  +#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#13#13#14#14#13#14
+  +#14#14#13#13#13#13#13#13#13#12#13#13#13#13#13#13#12#12#12#12#13#12#12#12#12
+  +#12#12#12#12#12#11#12#12#11#12#11#11#11#12#11#12#11#11#11#11#11#11#11#11#11
+  +#10#11#11#11#11#11#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#10
+  +#9#10#10#9#9#9#9#9#9#10#9#9#9#9#9#8#8#9#9#8#9#8#9#9#9#8#8#9#8#8#8#8#8#8#8#7#7
+  +#8#7#8#7#7#8#7#8#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#6#6#6#6#7#6#7#6#7#6#6
+  +#6#6#6#6#6#6#6#5#6#5#6#5#6#6#6#6#6#6#5#6#5#5#6#5#5#6#5#5#5#5#5#5#5#5#5#5#4#4
+  +#5#5#4#4#5#4#4#4#4#4#5#5#4#4#4#4#4#4#4#4#4#3#4#4#3#4#4#4#4#4#3#4#3#3#4#4#3#4
+  +#4#3#3#3#3#3#3#3#3#3#2#3#3#3#3#3#3#3#3#3#3#2#2#2#2#3#2#3#2#3#2#2#3#2#3#3#3#2
+  +#2#2#2#2#2#2#2#1#2#2#2#2#2#1#2#2#2#2#2#1#1#2#1#1#1#2#1#1#1#2#2#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#1#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#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#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#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#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'000yyy000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000//0//00//0////////0///.////..////////'
+  +'/./..././.........110233434555777988:::556+++,,,,,,222;;:======<<<<<<<<<<<<'
+  +'<<<;:;;::555.--+,+++++++*+++++++++*+*+***++************))))*)))))))))))))))'
+  ,')))(())(((()((((((,,+0/0122334666,,,&&''&&''&&''&&''(((-,,-,,-,,,,,-,+,+,,+'
+  +',,++,+++++++++*+*+*********)*)**)*)*)*)*)*)))))))())())())()((()''(((((''(('
+  +'''(''''''''''(''''''''''''''''''&&''''&''&&&&&&&$#$"!""!"!!!!!!  !    '#31
+  +' '#31#31#31#31#31#31#31#31#31#30#30#31#31#30#31#30#31#30#30#30#30#31#30#30
+  +#30#30#30#30#30#30#30#30#29#29#29#30#29#30#29#29#29#30#29#29#29#28#29#29#28
+  +#28#29#29#29#29#29#29#29#30#30#30'   '#31'    '#31#31#31#31#31' '#31#31#31#31
+  +#31#31#31#31#31#31#30#31#31#31#30#30#31#30#30#30#30#30#30#30#30#29#30#30#30
+  +#29#29#29#29#29#29#29#29#29#29#29#29#29#29#29#29#29#28#28#29#28#29#29#29#28
+  +#28#28#28#28#28#27#28#27#28#28#27#28#28#27#27#28#27#27#27#27#27#26#27#26#26
+  +#26#26#27#27#27#26#26#26#26#26#26#26#26#26#25#26#26#26#26#25#26#25#25#26#23
+  +#24#23#22#22#22#22#22#21#21#21#21#22#23#23#30#30#30'110666<<<BBB<<<'#20#20#19
+  +#19#19#19#19#19#18#18#19#19#19#19#19#18#18#19#18#18#18#18#18#18#18#18#18#17
+  +#18#18#17#18#17#18#18#18#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16
+  +#16#16#17#16#16#16#16#16#16#16#15#16#16#15#16#16#15#15#15#15#16#15#15#15#15
+  +#15#15#15#15#15#14#14#15#14#15#14#14#14#14#15#14#14#14#14#14#14#14#14#14#14
+  +#14#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#11#12#11#12#12#11#11#11#11#11
+  +#11#11#11#11#10#11#11#10#11#10#11#10#11#10#11#10#10#10#10#10#10#10#10#10#9#10
+  +#10#10#9#9#9#9#10#9#10#9#10#9#9#9#9#9#9#9#9#9#9#9#8#9#9#8#8#9#8#8#8#9#9#8#8#8
+  +#8#8#8#8#8#8#8#8#7#8#8#8#8#8#7#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7#6#6#7#7#6#6#6
+  +#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#5#5#6#6#6#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#4#5#4#5#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#4#4#4
+  +#3#3#3#4#3#4#3#3#3#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#2#2#3#2#2#2#2#2
+  +#2#3#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#1#2#1#1#2#2#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#0#0#1#1#0#0#0#0#0#1#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#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#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#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#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'000'
+  +'yyy000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000/00/0//////0/00///////////////'
+  +'/.//..//././/././././111333444666777899;;;443++,,,,,,,,,,+,,,,,223:;:======'
+  +'<<<<<<<<<<<<;;;:::;:;445---+++++++++*+++**++**+*+*+*+****)**))*)**)****))*)'
+  +'*)))))))))(())((()((((((---111322454666++*&&(&&''&&''&&''*)*-,,-,,-,,-,,,,,'
+  +'-++,,+,++,+++++++++++++**+**+*+**********)**)**))*))))))))))((((())))(((''('
+  +'((((((''''''(''''''''(''''''''&&&&&&&''&&&''&''&&&&%&&&%&&&&%%&%%%%%%$%%$$$'
+  +'$"##"#"""!!!  ! '#31' '#30#31#30#30#30#30#30#30#30#30#29#30#30#29#30#30#29
+  +#29#30#29#29#29#29#29#29#29#29#29#29#29#28#28#29#31#30#31'         '#31#31' '
+  +#31#31' '#31#31' '#31'  '#31#31#31#31#31#31#30#31#31#31#31#31#30#31#30#30#30
+  +#30#30#30#30#30#30#30#30#30#30#29#29#30#29#29#29#29#29#29#29#29#28#28#28#29
+  +#28#29#29#28#28#29#28#28#29#28#28#29#28#28#28#28#28#28#28#28#27#27#27#28#28
+  +#27#27#27#27#27#27#27#27#27#27#27#26#27#27#26#26#26#26#26#26#26#26#26#26#25
+  +#26#26#25#26#25#25#26#23#22#24#22#22#22#22#22#22#22#22#22#23#23#23'#""121877'
+  +'===CCC666'#19#20#19#19#19#19#19#19#19#19#19#19#18#18#18#18#18#19#19#18#19#19
+  +#18#18#18#18#18#18#18#18#17#17#18#18#17#18#18#18#17#17#17#17#17#17#17#17#17
+  +#16#17#16#16#16#17#17#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#15#15
+  +#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13
+  +#13#13#12#13#12#13#12#12#12#13#12#12#12#12#12#13#12#12#12#12#11#12#12#12#12
+  +#12#11#12#12#11#11#11#11#11#11#11#11#11#11#11#10#11#11#11#11#10#11#10#10#10
+  +#10#11#10#10#10#10#10#10#10#10#10#10#9#9#10#10#9#9#9#9#9#9#10#10#9#9#9#9#9#9
+  +#9#9#9#9#8#8#9#8#9#8#8#8#9#8#8#8#8#8#8#8#8#7#8#8#8#8#7#7#7#8#7#8#8#7#7#7#7#8
+  +#7#7#7#7#7#7#7#7#7#7#7#7#6#6#7#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#5#5#6
+  +#6#5#6#5#5#6#6#6#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#5#4#5#4#5#4#5#5#5#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#3#4#3#4#4#3#3#4#3#4#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#2#2#3#2#2#3#2#3#2#3#2#2#2#2#3#2#2#3#2#3#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2
+  +#2#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#1#1#0#1#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#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#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#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#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'000yyy00000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000/00/000/00'
+  +'/00/000///000///////////////.////////./....111333554666888998;;:222,+,-----'
+  +',,,,,,,,,,++,,,,,,,322:;;===<<<<<<<<;<<<<<<;;:::::;:445---+++++*+++++*+****'
+  +'+**+*************))))))*)*)**))))))))))))())((,,,///111443545766+**''''''&&'
+  +'''&&''&&''***-,,-,,-,,-,,-,,-+,,++,,,,,,,,,+,+++++**+++*+***********)***))*'
+  +'*))*)*)))))())()())()(((((((((((((((''''''(''''''''''''''''''''''&''''&&&&&'
+  +'&&&&&&&%&&&&&%%&%%&%%%%%%%%%%$%%$$$$%$$$$$$$######""#"!!!!!   '#31#31#31#30
+  +#29#30#29#30#29#29#30#29#29#29#29#30#29#29' !! !      !    '#31' '#31#31' '
+  +#31#31#31#31#31#31#31#31#31#31#31#30#31#31#30#30#31#30#30#30#30#30#31#30#30
+  +#30#30#30#30#29#29#29#29#29#30#29#30#30#29#29#29#29#29#29#29#29#29#29#29#29
+  +#29#29#29#28#28#28#29#28#28#29#28#28#27#28#28#27#27#27#27#27#27#28#27#28#27
+  +#27#27#27#27#26#27#27#27#27#27#27#27#26#26#26#27#27#26#26#26#26#26#26#26#25
+  +#25#26#22#22#22#22#22#22#22#22#22#22#22#22#24#24#24'%$%232888>>>DDD---'#19#20
+  +#20#19#19#20#19#19#19#19#19#19#19#19#19#18#19#18#18#19#18#18#18#18#19#19#18
+  +#18#18#18#18#18#18#17#17#18#18#17#17#18#18#17#17#17#18#17#17#17#16#17#17#17
+  +#17#16#17#17#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#15#15#16#15#15#15
+  +#16#16#15#15#15#15#15#15#15#15#15#15#14#14#15#15#14#14#14#15#15#14#14#14#14
+  +#14#14#14#14#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#12#12#13#12#13#13#13#13#13#12#12#12#12#12#12#12#12#12#12#12#12#11#12#12#12
+  +#11#11#12#11#11#11#11#11#11#11#11#11#11#10#10#11#11#10#10#10#10#11#10#10#10
+  +#10#10#10#10#10#10#10#10#10#9#10#10#10#9#10#10#10#10#9#9#9#9#9#9#9#9#9#8#9#9
+  +#8#9#9#8#8#8#9#9#8#8#9#8#8#8#8#8#8#8#8#7#7#8#8#7#7#7#8#7#7#7#7#8#7#7#7#7#7#7
+  +#7#7#7#7#7#6#6#7#7#7#7#7#7#7#7#6#6#6#7#6#6#6#6#6#6#5#5#6#6#6#6#6#6#5#5#5#6#5
+  +#6#6#5#6#5#5#5#5#5#5#6#5#5#5#5#5#5#4#4#5#5#4#4#4#4#5#5#4#5#5#4#4#4#4#4#4#4#4
+  +#4#3#4#4#4#3#4#3#4#4#3#4#4#3#4#4#4#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#2#3
+  +#3#3#3#3#3#2#3#2#2#3#3#3#3#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#1#2#1#2#2#2#1#2#2#1
+  +#2#2#1#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#0#0#0#0#0#1#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#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#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#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#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'000yyy000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000/00000000000/00/////0/0/'
+  +'//////////////////.//.//.//...221333444676888::::::213,,,---,,-,-,,,,,,--,,'
+  +',,,+,,,,,,++,++333;;;===<<<<<<<<;;<<<<<<<;::;;::333,,,++*++*****++*++******'
+  +'*******))***)))))*)))*))))))()---//0000111333555666767''''''&''(&''''''&''&'
+  +'&''***--,-,,-,,-,,-,,-,,-++-,,,,,,+++,++++++++++*++**+*****+)*)*)*)*)*)*)))'
+  +')))))))())))(((((()()(()(''(((((((''''(''''''''''''''''''''&''''''&&''&&&'''
+  +'&&&&&%&&%%&&%%%%%%%%%%%%%$$%%$%$$$$$$$$$##$#####$"##""#""#"!""!!!! '#31'  '
+  +#31#31'!!!!! !!! !           '#31' '#31#31' '#31#31' '#31#31#31#31#31#31#31
+  +#31#31#31#31#31#30#31#30#31#30#31#30#30#30#30#30#30#30#30#30#30#30#29#30#29
+  +#29#29#30#29#29#29#29#29#29#29#28#28#29#28#28#28#28#29#29#28#28#28#28#28#28
+  +#28#28#28#28#27#28#28#28#28#27#27#27#27#27#27#27#27#27#27#27#27#26#27#26#26
+  +#26#26#27#26#26#27#26#26#26#26#26#25#25#25#22#22#23#22#22#23#22#22#22#22#22
+  +#22#25#25#25'***344::9???EEE$#$'#19#20#20#20#20#19#19#20#19#19#19#19#19#19#19
+  +#19#19#19#19#19#19#18#19#19#18#19#18#18#18#18#18#18#18#18#18#18#18#18#18#18
+  +#17#17#18#18#17#17#17#17#17#17#17#17#17#17#16#16#16#17#17#16#17#17#17#16#16
+  +#16#16#16#16#16#16#16#16#16#15#16#15#16#15#16#16#15#16#15#15#15#15#15#15#15
+  +#14#15#15#14#15#14#14#15#15#14#15#14#14#14#14#14#14#14#14#14#14#13#13#14#13
+  +#14#13#13#13#14#13#13#13#13#13#13#12#13#13#13#12#13#12#13#13#12#13#12#13#12
+  +#12#12#12#12#11#12#12#12#12#11#12#12#11#11#12#11#11#11#11#11#11#12#11#11#11
+  ,#10#11#11#11#11#10#11#10#10#11#10#10#11#10#11#10#10#10#10#10#10#10#9#10#9#9
+  +#10#9#10#10#10#9#9#9#9#9#9#9#9#9#9#9#8#9#9#9#8#9#8#9#8#8#8#9#8#8#9#8#9#8#8#8
+  +#8#8#8#8#7#8#8#7#8#8#7#7#8#8#8#7#7#7#7#7#7#7#7#6#7#7#7#7#6#7#7#6#6#6#6#6#7#6
+  +#6#6#6#6#6#7#6#6#6#6#6#6#6#6#5#6#6#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5
+  +#4#5#5#4#4#4#4#4#5#5#4#5#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#4#3#4#3#3#4#3
+  +#4#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#3#3#2#2#3#3#2#2#2#2#3#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#1#2#2#2#2#1#2#1#2#2#2#1#2#2#1#1#1#1#2#1#1#1#1#1#1#1#0#1#1
+  +#1#1#1#1#1#0#1#0#0#0#1#1#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#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#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#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#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'000yyy000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000/000/0//0/0//0/0///////////////////////.//122333545677'
+  +'888::;:::///,,,,,----,-,,,--,,,-,--,,,,,,,,,,,,,,+,,+,-,,445;<<===<<<<<<<<;'
+  +';<<<;;;;<;::99:333,,,++*++*+++*++***********)**)***))***)))*--.000000100111'
+  +'333555667777888''''(&''(''''(&&''&&(+++--,-,,-,,-,,-,,-,,-,,-+,,,,,+,++,+++'
+  +'+++++*++***+*++*++*********)*))))***)))()))()(()())((((((((((((((((''''(('''
+  +'''''(''''''''''''''''''''&&&&&&&&&&&&&&&&&&%&&&%%%%%%%%%%$%%%$$$$$$$$$##$##'
+  +'$##$##$""#""#""#""#""""!"!!"!!! !!!!!! !   !       '#31'  '#31#31' '#31'   '
+  +#31#31#31#31#31#31#31#31#31#30#31#31#30#30#30#31#30#30#30#30#30#30#30#30#30
+  +#30#30#30#30#30#29#29#29#30#29#30#29#29#29#29#29#29#29#29#29#29#29#28#29#28
+  +#28#28#28#28#29#28#28#28#28#27#27#28#28#28#27#27#27#27#27#27#28#27#27#27#27
+  +#26#26#27#27#27#26#26#27#26#26#26#26#26#26#25#25#25#22#22#22#23#22#23#23#22
+  +#22#23#23#23#25#26#25'---455:::@A@EEE'#29#29#29#20#20#20#20#20#20#20#20#19#20
+  +#19#19#19#19#19#19#19#19#19#19#18#19#19#19#19#19#19#18#18#18#18#18#18#18#18
+  +#18#18#18#18#17#18#17#17#18#17#17#17#17#18#17#17#17#17#17#17#17#17#17#17#16
+  +#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#15#15#15#16#16#16#16#16#15
+  +#15#15#15#15#15#15#15#14#14#15#15#15#14#15#14#14#14#15#14#14#14#14#14#14#14
+  +#14#14#13#14#14#13#14#13#14#13#14#14#14#13#13#13#13#13#13#13#12#13#12#12#13
+  +#12#12#12#12#13#13#12#12#12#12#12#12#12#12#12#12#12#11#11#12#12#11#11#11#12
+  +#11#11#12#11#11#11#11#11#11#11#10#11#11#11#11#10#11#10#11#11#11#11#10#10#10
+  +#10#10#10#10#10#10#10#10#9#10#10#10#9#9#10#9#9#9#9#9#9#10#9#9#9#9#9#9#8#9#9#9
+  +#8#8#9#8#8#8#8#8#8#8#9#8#8#8#8#7#8#7#8#8#8#8#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7
+  +#7#6#7#7#7#6#7#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#6#5#5#6#6#6#6#5#5
+  +#5#5#5#6#5#5#5#5#5#5#5#5#5#4#5#4#4#4#4#4#5#4#4#4#5#5#4#5#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#3#3#4#4#3#3#4#3#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#2#3#2#3#3
+  +#2#2#3#3#2#2#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#1#1#1#1#1#1#2#1
+  +#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#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#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#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#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#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'000yyy0'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000/0/0/0000//0//0//0////'
+  +'/////222333544766888::::;:/0/,-,-----------,--,-.----,,-,-,,,,,,,,,,,,,+,,,'
+  +'+,+++-,-454;;;===<<<<;<;;<<;;;<;;<<::;999333,,,**+******************))*)**-'
+  +'--/00100121221332343656777778898111''''(&''''''''''&''(''&''+++--,-,,-,,-,,'
+  +'-,,-,,-,,-,,,,,,+,,,,,+,+++++++++*+********************)*)*))*)))))))))))(('
+  +'(((((((((((((((''''''''''((''''''''''''''''&''''''''''''''&&&&&&''&&&&&&&&&'
+  +'%%&%%%%%%%%%%$%%%%$$%$$$$$$$##$##$##$""$""#""#""#""#!"""""!"!!!!!!! !! !   '
+  +'  ! ! '#31'     '#31' '#31#31#31'  '#31' '#31#31#31#31#31#31#31#30#30#31#31
+  +#31#31#30#30#30#30#30#30#29#30#30#30#30#29#30#29#29#30#29#29#29#29#29#29#29
+  +#28#29#29#29#29#28#29#29#29#29#28#28#28#28#29#29#28#28#28#28#28#27#28#28#27
+  ,#27#28#27#27#27#27#27#27#27#27#27#27#27#27#27#26#26#26#27#26#26#26#26#25#25
+  +#25#23#23#23#23#23#23#23#23#23#23#23#24#27#26#26'///455;<<@@@FEE'#21#20#21#20
+  +#20#21#20#20#20#20#20#19#19#20#19#19#20#19#19#19#19#19#19#19#19#19#18#19#19
+  +#19#18#19#18#18#19#19#18#18#18#18#18#18#18#18#18#18#18#17#17#17#18#18#17#17
+  +#17#17#17#17#17#17#17#17#17#17#17#17#17#17#16#16#16#16#16#16#16#16#16#16#16
+  +#16#16#15#15#16#15#16#16#15#15#16#15#15#15#15#15#15#15#15#15#14#15#14#15#15
+  +#15#15#14#15#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#13#13#13#13#14#13
+  +#14#13#13#13#13#13#13#13#12#13#13#12#13#13#12#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#12#11#12#12#11#12#11#11#12#11#11#11#12#11#11#11#10#11#11#11#10#11
+  +#11#11#10#11#10#10#11#10#10#10#10#10#10#9#10#10#9#10#10#10#10#9#9#9#10#9#9#10
+  +#9#9#9#9#9#9#9#8#9#9#9#9#9#9#9#8#8#9#8#8#9#9#8#8#8#8#8#8#8#8#7#8#7#7#8#8#7#8
+  +#8#8#8#7#7#7#7#7#8#7#7#7#7#7#7#6#6#7#6#7#7#7#6#7#6#7#6#7#7#6#7#6#6#6#6#6#6#6
+  +#6#6#6#5#6#5#5#6#5#5#5#5#5#6#6#6#6#6#5#5#5#5#5#5#4#5#5#5#4#5#4#5#5#5#5#4#5#5
+  +#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#4#3#3#3#4#3#3#3#3#3#3
+  +#3#3#3#3#3#2#3#3#3#3#3#3#3#2#3#3#3#3#2#2#2#2#3#3#3#3#2#2#2#2#2#3#2#2#2#2#2#2
+  +#2#2#1#2#2#1#2#1#2#1#1#1#1#1#2#1#2#1#1#1#1#1#1#1#0#1#0#1#0#1#1#0#0#1#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#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#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#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#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'000yyy000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000/00'
+  +'0/00/0/0/0/0///0//00///////222333544677998;;:;::0/0,,,---------,-,----./433'
+  +'544111...,,,,,,,,+,,,+,,,,++++++++,+,,,444;;;======;;<<<;<;<;;;::::::989323'
+  +',++**+*+**+*******,,,/./000212222333444555665667778112*)*''''(''''(''''(&'''
+  +'(''''''''''''--,--,--,-,,-,,-,,-,,-,,-,,-,,,,+,+,,+++++++++++++++++*++**+**'
+  +'*****)****)***))*)*)))))))())))())((((((((((((''''''''''''''((''''''''''''&'
+  +'''''''&&''''&&&&&''&&&&&&&&%&%%&%%%%%%%%%%%%%%%%$$$$$$$#$##$##$##$"###"#""#'
+  +'!"#""""!"""""!!!!!!!  !!!   !        '#31' '#31' '#31#31' '#31' '#31#31#31
+  +#31#31#31#31#31#31#31#31#31#30#30#31#31#30#30#31#30#31#30#30#30#30#30#30#30
+  +#29#29#29#29#29#29#29#29#29#29#29#29#29#29#29#29#28#28#29#28#29#28#28#28#28
+  +#28#28#28#28#28#28#28#28#27#27#28#27#27#28#28#28#28#27#28#27#27#27#27#26#27
+  +#27#26#27#27#26#26#27#25#24#24#23#23#23#23#22#23#23#22#23#23#23#23#30#30#31
+  +'100777<<;CCC?@@'#21#20#20#20#20#20#21#20#20#20#20#20#20#20#19#20#20#19#19#19
+  +#20#19#19#19#19#19#19#19#19#19#19#18#18#18#18#19#18#19#18#18#18#18#18#18#18
+  +#18#18#17#18#18#18#18#18#18#17#17#18#17#17#17#17#17#17#17#17#17#16#17#17#16
+  +#16#17#17#16#16#17#16#16#16#16#16#16#16#16#16#15#15#15#15#15#15#15#15#15#15
+  +#16#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#15#15#14#14#14#14#14#13#14
+  +#14#14#13#14#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#13#13#13#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#12#12#11
+  +#11#11#11#11#11#11#11#11#11#10#10#11#10#10#11#10#10#11#10#10#10#10#11#10#10
+  +#10#10#10#10#9#10#9#10#9#9#10#10#10#9#10#9#9#10#9#9#9#9#9#9#9#8#9#9#8#9#8#8#9
+  +#9#8#8#9#8#8#8#9#8#8#8#8#7#8#8#7#7#7#7#8#8#7#8#8#8#7#7#7#7#7#7#7#7#7#7#7#7#6
+  +#7#7#6#7#7#6#6#6#6#7#6#7#6#6#6#6#6#6#6#6#5#6#6#5#5#5#6#5#6#5#6#5#6#5#5#6#6#5
+  +#5#5#5#5#5#5#5#5#5#4#5#5#4#5#5#5#4#5#5#5#5#4#5#5#4#4#5#4#4#4#4#4#4#4#4#3#3#4
+  +#4#4#3#4#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#2#2#2
+  +#3#2#2#3#3#2#3#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#1#2#2#1#1#1#2#1#2#1#2#1#1#1#1#1
+  +#1#2#1#1#1#1#0#1#1#0#1#1#1#1#1#0#1#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#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#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#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#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'000yyy00000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000/000/0/0000000/00///////////0222333555667989;:'
+  ,';;;;/0/,,-.-..-----------../544445455554455221..-,,,,,,,,,,,,+,+++,,++++,+,'
+  +'+-,,444;;;<==;<;;<;<;;;;;;;;::::::787212,,,*+*+,+///22222122233244465566687'
+  +'7888000(((''(((''(''''(''''(''''(''&(&''(''&(.-,.-,--,-,,-,,-,,-,,-,,-,,-,,'
+  +',,+,,,,+++,,+++++,+++++++++++++*+++**********)**))*)))))*()))(()()(((()(((('
+  +'(((((((((''(''''''''(''''''''''''''''&''''''&&&&&''''&&&&%&&%&%%%%&&%&%%%%%'
+  +'%%$%$$%$$%$$%##$##$##$####"#""#""#"""!""""""!!"!!!!!!!!!! !!  ! !!       '
+  +#31'     '#31#31' '#31' '#31#31#31#31#31#31#31#30#31#31#31#31#30#30#30#30#30
+  +#30#30#30#30#30#30#29#30#30#30#29#30#29#29#29#29#29#30#29#29#29#29#29#28#28
+  +#28#29#29#28#29#29#28#28#29#28#28#28#28#28#28#28#27#28#28#27#27#27#27#27#27
+  +#27#27#27#27#27#27#27#26#27#26#27#23#23#25#23#23#24#23#23#23#23#23#23#24#24
+  +#23'!""232777>>>DDD:::'#20#21#21#20#20#20#20#20#20#20#20#20#20#20#19#19#20#20
+  +#19#19#20#19#19#19#19#19#19#19#19#19#19#19#18#19#18#18#18#18#18#18#18#19#18
+  +#18#19#18#18#18#17#18#18#18#17#18#17#18#17#17#17#17#17#18#17#17#17#17#17#17
+  +#17#17#16#17#17#17#16#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#15#16#15
+  +#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#15#15#15#14#15#14#15#14#14#14
+  +#14#14#14#14#14#14#13#13#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#12
+  +#12#12#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#11#11#12#12#12#11
+  +#11#12#11#11#12#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#10#10#10#11
+  +#10#10#10#10#10#10#10#10#9#10#10#9#9#10#10#10#10#9#9#9#9#9#9#9#9#9#9#8#9#9#9
+  +#9#8#9#9#9#9#8#9#8#8#8#9#8#8#8#8#8#8#8#8#8#7#8#8#7#7#7#7#8#7#8#7#8#7#7#7#7#7
+  +#7#7#7#7#6#6#7#7#6#6#7#6#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#5#6
+  +#5#5#5#6#5#5#5#5#5#5#5#5#5#4#5#5#4#5#5#4#4#5#4#4#4#5#5#4#4#5#4#4#4#4#4#4#4#4
+  +#4#4#4#4#3#4#4#4#4#4#4#3#4#3#3#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3
+  +#2#3#2#3#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#2#2#2#1#1
+  +#1#1#2#1#1#1#1#1#1#1#1#1#1#1#0#0#0#1#1#0#0#1#1#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#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#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#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#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'000yyy000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000//00//000//00/222334555777'
+  +'999;;;;;:000--------------.-.-///544554455555544445445444211.--,,,,,,,,,,,+'
+  +',,,+++++++,,+++,,,444;;;=<=<;<;;;;;<;;;:::999888666100333333333434434455555'
+  +'788777111))*((((()''()''''(''()''''('''')''''(''''()()--,-----,--,-,,-,,-,,'
+  +'-,,-,,-,,,,,,,+,,,,,,++,+,+++++++++++*++**+******+*)*****))**))))))))))))))'
+  +'()())()(((((((((((''(''''''((''(''''''''''''&''''&&''''&&''&&''&&&&&&&&&&%&'
+  +'%%%%%%%%%%%%$$%$$%$$$##$##$#####$###""#""#"""""""""""!!"!"!"!!!!!!!!!!!  ! '
+  +'             '#31#31'  '#31#31#31#31#31#31#31#31#31#31#31#30#30#30#31#31#31
+  +#30#30#30#30#30#30#30#30#29#30#30#30#30#29#30#29#30#29#29#29#29#29#29#29#28
+  +#29#29#29#28#28#28#29#29#28#28#28#28#28#28#28#28#27#28#28#28#28#28#27#27#27
+  +#27#27#27#27#27#27#27#27#26#27#26#24#23#24#24#23#23#23#23#23#23#23#23#25#25
+  +#25'&%&332999???DDD.--'#21#21#20#21#21#20#20#20#20#20#21#20#20#20#20#20#20#20
+  +#19#20#20#19#20#19#19#20#19#19#19#20#19#19#19#19#19#19#19#19#19#19#19#18#18
+  +#18#19#18#18#18#18#18#18#18#17#18#18#18#17#17#18#18#18#17#17#17#17#17#17#17
+  +#17#17#17#17#16#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16
+  +#16#15#16#15#15#15#15#15#15#15#14#15#15#15#15#15#15#14#15#14#14#15#14#15#14
+  +#14#15#14#14#14#14#14#14#14#14#14#13#13#14#14#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#12#13#12#12#13#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12
+  +#11#12#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#11#11#11#11#10#11#10
+  +#10#10#10#10#10#10#10#10#9#10#10#9#9#10#9#9#10#9#9#10#10#10#9#9#9#9#9#9#9#9#9
+  +#8#8#8#8#8#8#9#9#9#8#8#8#9#8#8#8#9#8#8#7#8#7#8#7#7#8#8#8#7#7#8#8#8#7#7#8#7#8
+  +#7#8#7#7#7#7#7#7#7#6#7#6#7#7#7#7#7#6#6#7#6#6#6#6#7#6#6#6#6#6#5#5#6#6#6#6#5#5
+  +#5#6#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#5#4#5#5#4#4#5#4#4#4#4#4
+  +#4#4#4#4#4#4#3#4#4#4#4#4#4#4#4#4#4#3#3#4#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#2
+  +#2#3#3#3#2#2#2#2#3#3#3#3#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2
+  +#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#0#1#1#0#0#0#1#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#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#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#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#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'000yyy000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000//000/000/0/0122344545777999'
+  +';;;;;;000---......-.-.---.-010655555555545554555445555444443443111-,-,,,+,,'
+  +',,+,+,+,++++++,+++*++,,,344==<===;;<<<;::::::999878677566555565666666767888'
+  +'332))+''(((()(()''()(()(''(''((''()''((''''))(),,+---.-,.----,-,,-,,-,,-,,-'
+  +',,-,,-,,,,,,,,,,,++,,+,++++++++++++**+*************)*)**)*))))*)*)))))))()('
+  +'())()(()((((''(((((''''''(''''''''''''''''''''''''''&''''''&&&''&&''&%&&&&&'
+  +'&&%%%%%%%%%%%%%%$$%$$%#$%$#$#$$##$#"#""#""#"##"""""""""!"!!!!""!!!!!!!    !'
+  +'    !        '#31' '#31#31' '#31#31#31#31#31#31#31#31#31#31#31#31#31#30#31
+  +#30#30#30#31#30#30#30#31#30#30#30#30#29#29#30#30#30#30#29#29#30#30#29#29#29
+  +#29#29#29#29#29#29#29#29#28#28#29#28#28#29#28#29#28#28#28#28#28#27#27#27#28
+  +#28#28#27#28#27#27#27#27#27#27#27#27#27#24#24#24#23#24#24#23#23#23#24#23#23
+  +#25#26#25'***545:;;@@@EEE((('#21#20#21#20#21#21#20#20#21#21#21#20#20#20#20#20
+  +#20#20#20#20#20#19#20#20#20#19#19#19#19#19#19#19#19#19#19#19#18#18#19#19#18
+  +#19#18#19#18#18#18#18#19#18#18#18#18#18#18#18#18#17#18#17#18#17#17#17#17#17
+  +#17#17#17#16#17#17#17#16#17#17#17#17#16#17#16#16#16#16#16#16#16#16#16#16#16
+  +#16#15#16#16#16#15#15#15#15#15#15#15#16#15#15#15#15#15#15#15#14#15#15#15#15
+  +#15#14#14#14#14#14#15#14#14#14#13#14#14#14#14#14#14#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#12#13#13#13#12#13#13#12#13#12#13#12#12#12#12#12
+  +#12#12#11#12#11#12#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#10#10#11
+  +#10#10#10#10#10#11#10#10#10#11#10#10#10#9#9#10#10#9#10#10#10#9#9#10#9#9#9#9#9
+  +#9#9#9#9#9#9#9#9#9#9#9#8#9#8#8#9#9#8#8#8#8#9#8#8#8#8#8#8#8#8#7#8#8#7#7#8#8#7
+  +#7#7#7#7#7#8#8#7#7#7#7#7#7#7#7#7#7#7#7#6#6#6#7#6#6#6#6#6#6#7#6#6#6#6#6#6#6#5
+  +#6#6#6#6#5#5#6#5#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5
+  +#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#3#4#4#3#3#3#4#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#2#3#2#2#3#2#2#2#3#3#3#3#2#3#2#2#3#2#2#2#2#2#3#2#2#2#2#2#2#2#2
+  +#2#1#1#2#1#1#1#1#1#1#2#1#2#1#1#1#1#1#1#1#1#1#0#1#0#1#0#1#1#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#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#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#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#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'000yyy0'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000000000/1113334456'
+  +'67888:::;;;000---..........-.-.-0116565555555555555455555554555555434434434'
+  +'33000,,-,+,,,,,++,,,,,+++++++++*+++-,-565<<=;;<;;;::::::9988888887787778888'
+  +'88555---(''()))(()()))()(()(()''()(()()(**+-.-..-..-.-----.-,--,.,--,,-,,-,'
+  +',-,,-,,-,,,,,,,,,,,,+,,,++,+,+++++++++++++**+***+**+*******)*)))*)))))*)*))'
+  +'))))())())((((((((''''''(((''''((((''''(''''&''''''''''&&''''''&&''&&&&&&&&'
+  +'&&&%&&%%%%%%%%$$%$$$$$$$#$#$$##$###"##"#####""#""""""""!!"!"!"!!!!!!!!!!   '
+  +'! ! !!    '#31' '#31#31'     '#31' '#31#31' '#31#31#31#31#31#31#31#31#30#31
+  +#30#31#31#31#30#30#30#30#30#30#30#30#29#29#30#29#30#30#30#30#30#29#29#29#29
+  +#29#29#29#29#29#29#28#29#28#29#28#28#28#28#28#28#29#28#28#28#27#28#28#28#27
+  +#28#27#28#27#27#27#27#26#27#27#24#24#24#24#24#24#24#23#24#23#23#23#26#27#26
+  +'-.-555;;;A@AGGG#""'#21#21#21#21#21#21#21#20#20#21#20#21#21#21#21#20#20#20#20
+  +#19#20#20#20#20#19#19#20#19#19#20#19#19#19#19#19#19#19#19#19#19#19#19#19#18
+  +#19#18#18#19#18#19#18#18#18#18#18#18#18#18#18#18#18#17#17#17#17#17#17#17#17
+  +#17#17#17#17#17#17#16#17#17#17#16#17#16#17#17#16#17#16#16#16#16#16#16#16#16
+  +#15#16#16#16#16#16#15#15#16#15#16#15#15#15#15#15#15#15#15#15#14#15#14#14#15
+  +#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14#14#13#13#13#13
+  +#13#13#13#13#12#13#13#13#13#13#12#13#12#12#13#12#13#12#12#12#12#12#12#12#12
+  +#12#12#12#11#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#10#11#11#11#10
+  +#10#10#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#9#9#10#9#9#10#9#9
+  +#9#10#9#9#9#9#9#9#9#8#9#9#8#9#9#9#8#8#8#8#9#8#8#8#9#8#8#7#8#8#7#8#8#8#8#8#7#7
+  ,#8#7#8#8#7#7#8#7#7#7#7#7#7#7#6#7#7#7#7#6#7#7#6#7#7#6#7#6#6#6#6#6#6#7#6#6#6#6
+  +#5#6#5#6#6#6#5#6#5#6#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#5#5#4#4#5
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#3#4#3#4#4#4#3#3#4#3#3#3#3#3#3#3#3#3#4
+  +#3#3#3#3#3#3#3#3#3#3#2#3#3#2#3#3#3#2#3#2#3#2#2#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#0#0#1#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#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#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#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#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'000yyy00000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000//00111434554777889;:'
+  +':<=<111.--......-....-.-.10156655555555655556555455455445554554444344443343'
+  +'3333000,,-+,+,+,,++++++,++++*++*++*+*,,-655<;;;;<;;;:::::9898988::9889100(('
+  +'()())())())))(()(()(()(()))),+,..-........-..-.--.----,-----,-,,-,,-,,-,,-,'
+  +',-,,,,,,,,,,,,,,+,,++,+,,+,++++*+++++++++*++*********)***)))*))*)))))))()()'
+  +'())))(((((((((((((''((''''(''''''(''''''''''''''''''''''&&''''''''&&&&&&&&&'
+  +'%%%%%%%%%%%%%%$$%$$%##$#$$##$##$#"##"$"###"#""""""""!""!!"!"!!!"!!!!!!  !!!'
+  +'              '#31'  '#31#31#31' '#31' '#31#31#31#31#31#31#30#30#31#31#31#30
+  +#30#30#30#30#30#30#30#30#30#30#30#30#29#30#29#30#30#29#29#29#29#29#29#29#29
+  +#29#29#29#28#28#29#29#28#28#29#28#28#28#28#29#29#28#28#28#28#28#28#27#28#27
+  +#28#27#28#27#26#26#24#24#25#24#24#24#24#24#24#24#24#25#28#28#27'000666<<;AAB'
+  +'GGF'#25#24#24#21#22#21#21#21#21#21#21#20#20#21#20#20#21#20#20#20#20#20#20#20
+  +#20#20#20#19#19#20#20#20#20#19#20#19#19#19#19#19#19#19#19#19#19#19#19#19#19
+  +#19#18#19#18#18#18#18#19#19#19#18#18#18#18#18#18#18#17#18#17#17#18#18#17#17
+  +#17#17#17#17#16#17#17#17#17#16#16#16#17#16#17#16#16#16#16#16#16#17#15#16#16
+  +#16#16#16#16#15#15#16#15#16#15#15#15#15#15#15#15#15#14#15#15#15#14#15#15#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14#14#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#12#13#13#13#12#12#12#12#12#12#12#13#12#12#11
+  +#11#12#12#11#11#12#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11
+  +#11#11#11#10#11#10#11#10#10#10#11#10#10#10#10#10#9#10#9#10#9#10#10#9#10#9#9#9
+  +#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#8#8#9#8#9#9#8#8#8#8#8#8#8#8#8#8#8#7#8#8#8#8#7
+  +#8#7#8#8#8#7#7#7#8#7#7#7#7#7#7#7#7#7#7#6#7#6#6#6#7#7#6#6#7#6#6#6#6#6#6#6#6#6
+  +#6#6#6#6#6#5#5#6#6#5#5#6#5#5#6#5#6#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#5#5#5#4#5#4
+  +#5#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3#4#3#3#3#3#3#3#3#4#3#3#3#3#4#3
+  +#3#4#2#3#3#3#3#3#2#2#3#3#3#2#3#2#3#3#2#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#0#1#0#0#0#1#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#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#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#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#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'000yyy000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000100443555677989;;;===334'
+  +'---............-..111656665555555665565565555555454545555444444443543433433'
+  +'33323300/,+,,+,++++++,+++++++**+**+++*+,--555;;;;;;;;;::;;;;433*)*))*)*)*))'
+  +')))()))()(()(()))*,,,...///////...../../.-..-.--.--.-,----,,--,-,,-,,-,,-,,'
+  +'-,,,,,,,,,,,+,,,,,,,,++,,++++++++++++****+++***********)****))**))))))))())'
+  +'()()(((((((((((((((''''''''(''(''''''(''&''&''''''&&&''&&&&''&&&&&%%%%%%&%%'
+  +'%%%&$$%$$%$#$$$$#$$##$##$##$"#####"##"""#""!"""""!!!!!!!!!!!!!!!! !        '
+  +'         '#31' '#31#31#31#31#31#31#31#31#31#31#30#31#31#31#31#31#30#30#30#30
+  +#30#30#30#30#31#30#30#30#30#29#29#30#30#29#29#29#29#29#30#29#29#29#29#29#28
+  +#28#29#28#29#28#28#29#28#28#28#28#28#28#28#28#28#28#28#28#27#28#27#25#26#25
+  +#25#24#25#24#24#24#24#23#24#25#24#25#31#31#30'221777===CCBDDC'#22#21#22#22#22
+  +#21#22#22#21#21#21#21#21#20#20#20#21#21#20#20#21#20#20#20#20#21#20#20#20#20
+  +#20#20#19#20#20#20#20#20#20#19#20#20#19#19#19#19#19#18#18#18#19#18#18#18#18
+  ,#19#19#18#18#19#18#18#18#18#18#18#17#18#18#18#18#17#17#18#17#18#17#17#17#17
+  +#17#17#17#16#17#17#17#16#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16
+  +#16#15#16#16#15#15#15#15#15#15#16#15#15#15#15#15#15#14#15#14#15#15#14#14#14
+  +#15#14#14#14#14#14#14#14#14#14#14#14#14#14#13#13#14#13#13#14#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#13#12#12#13#12#12#13#12#12#12#12#12#11#12#12#12#12
+  +#11#12#12#12#11#12#12#11#11#11#11#11#11#11#11#11#11#11#10#11#11#10#10#10#11
+  +#10#10#10#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#9#9#9#9#9#9#9
+  +#9#9#9#9#9#9#9#9#9#8#8#8#8#8#8#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#8#7#8#7
+  +#8#7#8#8#7#7#7#7#7#7#7#6#7#7#7#7#7#6#7#7#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6
+  +#6#6#5#6#6#6#5#6#5#5#5#5#5#5#5#6#5#5#5#5#5#5#5#5#4#5#5#4#5#5#4#5#5#4#5#5#4#4
+  +#4#4#5#4#4#4#4#4#4#4#4#4#4#3#4#4#3#4#4#4#4#4#4#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3
+  +#3#2#3#3#3#3#2#3#2#3#3#3#3#3#3#3#3#3#2#3#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#1#2
+  +#1#1#2#2#1#1#1#2#1#1#1#1#1#1#1#0#1#1#1#1#1#0#0#1#0#1#0#0#0#1#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#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#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#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#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'000yyy000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000111333444666888;:;<<=444.--../.........'
+  +'...111665666656656666565556555555555555555554554454544443543433433433333233'
+  +'/00,,,+++,+,++++++++++*++++*+++*+-,-555<<<99:/./)))*))*))**))*)*)))))()))))'
+  +',+,//.//////////////..../../.-..-.--.--.-,.-,--,.,,-,--,,-,,-,,-,,,,,,,,,,,'
+  +',,,,,+,,,,,++++,++++++++**++***++*****+*********)*)**))))))))))))))()))))(('
+  +'(((((((((((''''''''''''''''''''''''''''''&''''''''&''&&&&&&&&%&&%%%%%%%%%%%'
+  +'$$%$$%#$$#$$##$##$##$##$"##""##""""""""""!""!"""!!""!!!!!!!!  !!!!    !'#31
+  +'  '#31'   '#31#31' '#31#31' '#31#31#31#31#31#31#31#31#31#31#31#30#31#30#30
+  +#31#31#30#30#30#30#30#30#30#29#30#30#30#30#29#30#30#30#29#30#29#29#29#29#29
+  +#29#29#28#29#29#28#28#29#28#29#28#28#28#28#28#28#28#28#28#28#27#27#26#25#26
+  +#25#24#24#24#24#24#24#24#24#25#25#25' '#31' 332888===CCC:;:'#22#22#22#21#22
+  +#21#22#21#22#22#22#22#21#21#21#21#21#21#20#21#20#20#20#20#20#21#20#21#21#20
+  +#20#20#20#19#19#20#20#19#19#19#19#20#19#19#20#19#19#19#19#19#19#19#18#19#18
+  +#19#18#19#18#18#18#19#18#18#18#18#18#18#18#18#18#17#17#18#18#17#17#17#17#18
+  +#17#17#17#17#17#17#16#17#16#17#17#16#17#17#17#17#16#16#16#16#16#17#15#16#16
+  +#16#16#16#16#16#15#16#15#15#15#15#15#15#15#15#15#14#14#15#14#15#15#15#14#15
+  +#14#14#14#15#14#14#14#14#14#14#13#14#14#14#14#14#14#13#14#14#13#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12
+  +#11#12#11#11#12#12#11#11#12#11#11#11#11#12#11#11#11#11#10#11#11#11#10#10#11
+  +#10#11#11#10#10#10#10#11#10#10#10#10#10#10#10#10#10#10#10#9#9#10#10#9#10#9#10
+  +#9#9#10#9#9#8#9#9#9#9#9#8#9#9#8#9#8#9#8#8#8#9#8#8#8#8#8#8#8#7#8#8#8#8#7#7#8#8
+  +#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#6#7#7#6#7#6#6#7#7#7#7#7#6#6#6#6#6#6#6#6#6#5
+  +#5#6#6#6#6#5#6#6#6#6#5#5#6#6#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#4#5#5#4#5
+  +#4#5#5#4#4#4#5#4#5#4#4#4#4#4#4#4#4#4#3#4#3#4#4#4#4#3#3#3#4#4#4#3#3#3#3#3#3#4
+  +#3#3#3#3#3#3#2#3#3#3#3#3#2#3#3#3#3#2#2#2#3#2#3#2#3#3#2#2#2#2#2#2#2#2#2#2#1#2
+  +#1#2#2#1#2#1#2#1#2#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#1#0#1#1#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#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#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#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#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'000yyy0000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000333444656888:::<<<888--.//.../....///'
+  +'/.//06666666665666655566566665555555555555554455545544445434334334444333333'
+  +'333333320/0,+,++++++++++*++++++**+*++****,,-+++**)**))**))*****))*)))))+++/'
+  +'//0/00/////////0///////...//./../....-.-----.-,--,-,,-,--,,-,,-,,-,,-,,,,,,'
+  +',,,,,,,,,,,+,+,+,+,++++++++++++*+++******************)))***)))))))))))))()('
+  ,'()((((((((((''(''((''''''''''(''(''''''''''&&&''&&&&''&&&&%&&%%%%&%%%%%%$$%'
+  +'$$%$$$$#$$$$$#$##$#$$####"##""##"""""#""""""""!!!"!!!!!!!! !!!!!  !       '
+  +#31' '#31#31'      '#31#31#31#31#31#31#31#31#31#30#31#31#31#31#31#30#31#30#30
+  +#30#30#30#30#30#29#30#30#29#30#30#30#30#30#30#29#29#30#29#29#29#29#29#29#29
+  +#29#29#28#28#28#29#28#28#28#28#29#28#28#28#28#24#25#25#24#25#25#24#24#25#25
+  +#25#24#25#25#25'$$%332999>==BCB111'#22#22#22#22#22#22#21#21#21#22#21#21#21#22
+  +#21#21#20#21#21#21#21#21#20#21#21#20#21#20#20#21#20#20#20#19#20#20#20#20#20
+  +#20#19#20#19#20#20#19#19#20#19#19#19#19#19#19#19#19#19#19#18#18#18#19#18#18
+  +#19#18#18#18#18#18#18#18#17#18#18#18#17#18#17#17#18#18#17#17#17#17#17#16#17
+  +#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#15#15#15#16
+  +#16#16#15#15#15#16#15#15#15#15#15#15#15#15#15#14#15#14#14#14#14#14#14#14#14
+  +#14#14#13#13#14#14#14#14#13#14#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#12#12#13#13#13#12#12#12#12#12#12#12#12#12#12#12#11#12#11#12#11
+  +#11#11#11#11#12#11#11#12#11#11#11#11#11#11#11#11#11#11#11#10#11#10#10#10#10
+  +#10#10#10#10#10#10#10#10#10#10#9#10#9#10#9#10#10#9#9#9#9#9#9#9#9#9#9#9#8#8#8
+  +#8#8#9#9#8#9#8#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#7#8#8#8#7#7#7#8#8#7#7#8#7
+  +#7#7#6#7#6#6#7#7#6#6#7#7#7#6#7#7#6#6#6#6#7#6#6#6#6#6#6#6#6#6#6#5#5#5#6#6#5#5
+  +#6#6#5#6#6#5#5#6#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#5#4#4#4#4#5#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#3#3#4#4#3#3#3#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3
+  +#3#3#3#2#2#2#2#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#2#2#2#1#1#1#2#1#1
+  +#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#0#0#0#0#1#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#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#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#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#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'000yyy000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000222444666888:::<<<878....////.////.....//0666666666666666666656655'
+  +'56655655556565555555555555444354344443343343343333333323232232200/,,,++++++'
+  +'+++++++*+*++*++******************))**))*++...0000000/00////0///00/////////.'
+  +'//./.......-.--.--.--.----,-,,-,,-,,-,,-,,-,,,,,,,,,,,,,,,,,,,,+,++,,++++++'
+  +'++++++*+**+++**++***************)))*)*)))))))()))((((((((((((((''((''''''('
+  +'''((''''''''''''''''''''''''&''&''&&&&&&%&&%%%%%%%%%$&$$%$$%$$%$$$$$$#$$##$'
+  +'#######"##"""""""""""""""""!!"!!!!! !!!!!!!! !    !!    '#31'   '#31#31'  '
+  +#31#31#31' '#31#31' '#31#31#31#31#31#31#31#31#31#31#30#30#30#30#31#30#30#30
+  +#30#30#29#30#30#29#29#30#30#30#29#30#29#29#29#29#29#29#29#29#29#29#29#29#28
+  +#29#28#28#28#28#28#28#28#25#25#25#25#25#25#25#25#25#25#24#24#25#26#26''''''''
+  +'222777<<;ABB***'#22#22#22#22#22#22#21#22#22#22#22#22#21#21#22#21#21#21#21#21
+  +#21#21#21#21#20#20#21#21#20#21#20#20#20#20#20#20#20#20#20#20#20#19#19#19#20
+  +#19#20#19#19#19#19#19#19#20#19#19#19#18#19#18#19#19#18#19#18#18#18#18#18#18
+  +#18#18#18#18#18#18#17#17#17#18#18#18#17#17#17#18#17#17#17#17#17#16#17#16#17
+  +#17#16#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16#15#15#16#15
+  +#16#15#15#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#14#14#14#14#14#14#13
+  +#14#13#14#14#14#13#14#14#13#14#14#13#14#13#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#11#12#11#11#11#11
+  +#11#11#11#11#11#11#11#10#11#11#10#11#10#11#10#11#10#11#11#10#11#10#10#11#10
+  +#10#10#9#10#10#10#10#9#10#10#10#10#10#10#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#9#8#9
+  +#9#9#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#7#7#7#8#8#8#8#7#7#7#7#7#7#7#7#7#7#7
+  +#7#7#7#7#6#6#6#6#6#6#6#6#7#6#6#6#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#6#5#5
+  +#6#5#5#5#5#5#5#5#5#5#5#4#4#5#5#5#4#4#5#4#5#4#4#4#4#4#5#4#4#4#4#4#4#5#4#4#4#4
+  +#4#4#3#4#4#4#4#4#3#3#3#4#4#3#3#3#3#3#4#3#4#3#3#3#4#3#4#3#3#3#3#3#3#3#3#2#3#3
+  +#2#2#3#2#2#2#3#2#2#2#2#2#2#3#2#2#2#2#2#2#2#1#2#1#2#2#1#1#2#1#1#1#1#1#0#1#1#1
+  +#1#1#1#1#0#1#1#1#0#0#1#1#0#0#1#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#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#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#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#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'000yyy00000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000022244455'
+  +'5777:::<<<;;;///////.////./.../0/166666666667666666666666566655565655555555'
+  +'5555555555555544443444543443443433333323323223222332232...,++++++++++++++++'
+  +'+****+********)*)**+**...111110000000000000/0///0//////0/////...//......-.-'
+  +'-..-.------,-.---,--,,-,,-,,-,,,,,,,,,,,,,,,,,,,,,,,,,,+,,++++,++++++++*+**'
+  +'***++****+****)))**)))))))))))))))())))())(((((((((((''(''''''(''('''''''''
+  +'''''''''''''''''''&&''&&&&%&&%&%%%%%&%%&$$%$$%$$%$$$#$$$#$##$#$$######""#"#'
+  +'""""""""""""!"!!""!"!!!!!!!!!!!!  !!         '#31' '#31#31'  '#31'  '#31#31
+  +#31#31#31#31#31#31#31#31#31#31#31#31#30#30#31#31#31#31#30#30#31#30#30#29#30
+  +#30#30#29#30#30#29#29#30#30#30#29#29#29#29#29#29#29#29#29#28#29#28#28#28#27
+  +#27#28#25#25#25#24#25#25#25#25#25#24#25#25#25#25#26'*))121666;;;???!!!'#23#22
+  +#22#22#22#22#22#22#22#21#22#21#22#22#21#21#21#21#21#21#21#21#20#21#20#21#21
+  +#20#20#21#21#21#21#21#20#20#20#20#20#20#20#19#19#20#20#20#19#19#19#19#19#19
+  +#19#20#19#19#19#19#19#19#18#19#19#19#19#19#18#18#19#18#18#18#18#18#18#18#18
+  +#17#18#18#17#17#18#18#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#16#17#17
+  +#17#16#16#17#16#16#16#16#16#16#16#16#15#16#15#15#15#16#15#15#15#16#15#16#15
+  +#15#15#15#15#14#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#13#13#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#12
+  +#12#13#12#12#12#12#12#12#12#12#11#12#12#12#11#11#12#11#12#11#11#12#12#11#11
+  +#11#11#11#11#11#10#11#11#11#11#10#11#11#11#10#10#10#11#10#10#10#10#11#10#10
+  +#10#9#10#10#10#9#10#9#10#9#9#10#9#9#9#9#9#9#9#9#9#9#9#8#9#8#9#8#8#8#8#9#8#8#8
+  +#8#8#8#8#8#8#8#8#8#8#8#8#7#7#8#7#7#7#8#7#8#7#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7
+  +#7#7#6#6#6#7#6#6#6#7#6#6#6#6#6#6#6#6#6#6#5#6#6#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#5#5#4#5#5#4#5#5#4#5#5#4#4#4#4#5#4#5#4#5#4#4#5#4#4#4#3#3#4#4#4#3#3
+  +#3#4#4#4#3#3#4#3#4#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#2#3#3#3#3#2#2#2#3#2#2#2#2
+  +#2#3#3#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0
+  +#0#0#1#1#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#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#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#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
+  +#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'000yyy000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000111444555777999;;;<<<///...///'
+  +'////.///////555766776666666666666656666666565665666566555555565555555554444'
+  +'544444433433433333333333233333322333322112...+++*+++*+++++**+**++***+***,,,'
+  +'0/011111001000100000000000000//00/00///////..//./../.-..-.-..--.--.--.-,.--'
+  +'-,,-,,-,,-,,-,,,,,,,,,,,,,,,,,,,,,,,,+,,++++,+++++++++++**+****+*********)*'
+  +')*)))))))))))))))(((())))()(((((((''(((((''(''''''''(''''''''&''''''''&'''''
+  +'&''&%&&%&%%&%%&%%&%$%%%%$%%$$$$$$#$$#$$##$#########""##"""""""""""""""""!!"'
+  +'!!!!!!!!!!!!!! !!       '#31'       '#31#31' '#31#31' '#31#31#31#31#31#30#31
+  +#31#31#31#30#31#30#30#30#30#30#30#30#30#30#30#30#30#30#30#29#30#29#30#30#30
+  +#30#29#29#29#28#29#29#29#28#29#28#29#29#27#27#28#26#25#25#25#25#25#25#25#25
+  +#25#24#25#25#26#25',,,112444888;;;'#28#27#27#22#22#22#23#23#22#22#22#22#22#22
+  +#22#22#22#22#22#22#22#21#21#22#22#21#21#21#21#20#21#21#21#20#21#21#21#21#21
+  +#20#20#20#20#20#20#20#20#20#20#19#19#20#19#19#19#19#20#19#19#19#19#19#19#19
+  +#19#18#18#19#19#18#19#18#18#19#19#18#18#18#18#18#18#18#18#18#17#17#18#18#18
+  +#17#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#17#17#16#17#17#16#16#16
+  +#16#16#16#16#15#16#16#16#16#15#15#15#15#15#16#15#15#15#15#15#15#14#15#15#15
+  +#15#14#15#15#14#15#14#15#14#14#14#15#14#14#14#13#14#14#14#14#14#13#14#13#13
+  +#13#13#13#14#14#13#13#13#13#13#13#12#13#13#13#13#12#12#13#12#12#12#13#13#12
+  +#12#12#12#12#12#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11
+  +#11#11#11#10#11#11#10#10#10#10#10#10#10#11#10#10#10#10#10#10#9#9#10#9#9#10#9
+  +#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#9#9#9#9#8#9#9#9#8#8#8#9#8#9#8#8#8#8#8#7#8#8
+  +#7#8#8#7#7#7#7#7#8#8#7#8#8#7#7#7#7#7#7#7#7#7#7#7#6#7#7#6#7#6#6#7#7#7#6#6#6#7
+  +#6#6#6#6#6#5#6#6#6#6#5#6#5#5#6#5#6#5#5#5#5#5#5#6#5#5#5#5#5#5#5#4#5#4#5#5#4#5
+  +#4#5#4#4#4#5#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#4#3#4#3#3#3
+  +#3#3#4#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#2#3#2#2#2#2#2#3#2#3#2#2#2#3#2#2#2#2#2
+  +#2#2#1#1#1#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#0#0#1#0#0#0#0#1#0#0#0#0#0
+  ,#0#1#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#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
+  +#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#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#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000111333444666999;;;===111...////////////./06657767667666666666'
+  +'666666666665666666566555555665656556655555555435445444445434334333333333233'
+  +'33333232332222222111...+++++*+*+*+****,*+///11111111101101000000001000000/0'
+  +'00//0/00///////////./../../../--/--.--.--.-----.,,----,--,,-,,,,,,,,,,,,,,,'
+  +',,,,,,,+,+,++++++,,++,,+++++++++*++++******+*********))))))))))))()))(((())'
+  +'()(((((((((''(''''(''((''''(''''''''''''''&''&''''&&&&''&%&%%&%%&%%&%$%$%%%'
+  +'$%$$$#$$$$$$$$$$###########"#"##"""""""""""""""!!!!!!!!!!!!!!!  !!!        '
+  +'      '#31#31' '#31' '#31#31#31#31#31#31#31#30#31#31#31#31#31#31#31#31#30#30
+  +#30#30#30#30#30#30#29#30#30#30#29#30#29#29#29#29#29#30#29#29#29#29#29#29#28
+  +#29#27#26#27#25#25#26#25#25#25#25#25#25#25#25#25#28#28#28'-,-//0211444777,,,'
+  +#25#25#25#22#23#22#23#22#22#22#22#22#22#22#21#22#21#22#21#21#21#22#21#21#21
+  +#22#21#21#21#21#21#21#21#21#20#20#20#20#21#20#21#20#20#20#20#20#20#19#20#20
+  +#20#19#20#19#20#19#20#19#20#19#19#19#19#19#19#19#18#19#18#19#19#18#18#18#19
+  +#19#19#19#18#18#18#18#18#18#17#18#17#18#17#18#17#17#17#17#17#17#17#17#17#17
+  +#17#17#17#17#16#16#16#17#17#17#16#17#17#16#16#16#16#16#16#16#16#15#16#16#16
+  +#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#14#14#14#15#14#14#15
+  +#14#14#14#14#13#14#14#13#13#14#13#13#13#14#13#13#13#14#13#13#13#13#13#13#13
+  +#13#12#13#12#13#12#12#12#13#13#12#12#12#12#12#13#12#12#12#12#12#12#11#12#12
+  +#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#11#10#10#10#10
+  +#11#10#11#10#10#10#10#10#10#10#10#9#10#10#10#9#9#10#9#9#10#9#10#10#9#9#9#9#9
+  +#9#8#9#9#9#9#8#8#8#9#8#8#8#8#8#9#9#8#8#8#8#8#7#8#8#8#8#8#8#8#8#8#7#8#7#7#8#7
+  +#7#7#7#7#7#6#7#6#7#6#7#7#7#7#7#6#7#6#6#7#6#7#6#6#6#7#6#6#6#6#6#6#6#5#6#5#6#6
+  +#6#5#6#5#5#5#5#5#6#6#5#6#6#5#5#5#5#5#4#5#5#5#5#5#5#4#4#4#5#5#5#4#4#4#4#5#4#4
+  +#4#4#4#4#4#4#3#3#4#4#3#3#3#4#4#4#3#3#4#3#4#3#4#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#2#3#3#3#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#1#1#2#2#2#1#1#1#1#2#2
+  +#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#0#0#0#1#0#1#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0'000yyy000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000333444666888:::==='
+  +'444...///////////////444867766777777666667666666666666666666666566656655655'
+  +'555655555555554444544444543444434443333333322233233222222333222222111..-++*'
+  +'+*+-,-1101221111111111101111110100010000000/00000//0///0//0///.//./../../..'
+  +'/--/-..--.--.--.,--,,-,,--,-,,,,,,,,,,,,,,,,,,,,,,,+,,,,,,+,,+++++,++++++*+'
+  +'*+++++++++************)*)*)*)*)))))))))))(()(())(((((((((''(''(''''((''''('
+  +'''''''''''''&&''&&&&&&&&&%&%%&%%&%%%$%%$$%%$$$$$$#$$$$#$$$$##########"##"#"'
+  +'""##"!"""""!!""!!"!!!!!!!!!!!! !! ! ! !     '#31#31' '#31#31#31'   '#31#31
+  +#31#31#31#31#31#31#30#30#31#30#31#31#31#30#30#30#30#30#30#30#30#30#30#30#30
+  +#30#29#30#29#30#29#29#29#29#29#29#29#29#29#29#26#26#27#26#25#26#26#26#26#26
+  +#26#26#26#26#26#31#31#31'----..0012235555650/0'#25#26#25#24#23#23#24#23#23#23
+  +#23#22#23#23#23#23#23#23#22#22#22#22#23#22#22#22#22#21#22#22#22#22#22#22#22
+  +#22#21#22#22#21#21#21#21#21#21#20#21#21#20#20#20#20#20#21#20#20#20#21#20#20
+  +#20#20#21#20#20#20#20#19#19#20#19#19#20#19#20#20#20#19#19#19#19#19#18#19#19
+  +#18#19#18#18#19#18#19#18#18#19#18#18#18#18#18#18#18#17#18#17#17#17#16#16#16
+  +#16#16#17#16#16#16#16#16#16#16#16#16#15#15#16#16#15#16#15#15#16#15#15#15#15
+  +#15#15#15#15#14#14#14#14#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14
+  +#14#13#13#13#13#14#14#14#13#13#14#13#13#13#13#13#13#13#12#13#13#12#13#12#13
+  +#12#12#12#13#12#12#12#12#11#12#12#12#12#11#12#11#11#12#11#11#12#12#11#11#11
+  ,#11#11#11#10#11#11#10#10#10#11#11#10#11#10#11#11#11#10#10#10#10#10#10#10#9#10
+  +#10#10#9#10#9#10#9#9#10#9#9#10#9#9#9#9#9#8#9#9#8#9#9#9#9#8#9#8#9#9#8#8#9#8#8
+  +#8#8#8#8#7#7#8#7#8#8#8#7#8#7#8#8#8#7#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#6#6#6#6#7
+  +#6#7#7#6#6#6#6#7#6#6#6#6#6#6#6#5#6#6#6#6#6#5#5#5#5#5#5#5#5#5#5#6#5#5#5#5#5#5
+  +#5#4#4#5#5#4#5#5#4#4#4#4#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#4#4#4#3#3#3
+  +#4#3#3#4#4#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#1#2#2#2#2#2#2#2#2#2#2#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#0#1#1#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#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#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#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#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'000yyy000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000222444555777:::<<<888...///////////////444777877877766766766'
+  +'666667767676676666666656665666565555556655555555554544444543544533434333333'
+  +'333333333333333332222222222222222011000222122212112111111111011111111011000'
+  +'100000/0/000/0/0//0////.//./../....-/-./.-..-.-..--.-,----,,-,--,,-,-,,,,,,'
+  +',,,,,,,,,,,,,,,+,++,,,+,,,+,,++++++++*+**+*+*,+++++++++++-,+,+,-+,-++-++,++'
+  +',,++,*+*+*)))*)))))(((''(''''''(''''''''''''''&''''&''&&''&%''&&&%%&%%&%%&%'
+  +'$%$$%%$$$$$$$$#$$##$#$#$###$##########"##"""""""""""""""!"!!!!!!!!!!!!  ! !'
+  +'!! !   '#31'   '#31'  '#31'    '#31#31#31#31#31#31#31#31#31#31#31#31#31#31
+  +#30#31#30#30#31#31#31#31#31#31#31#31#31#30#31#30#30#30#31#30#30#30#30#30#31
+  +#27#27#27#27#26#27#27#26#27#27#26#27#26#26#27#28#28#28'''&''....-.1001112222'
+  +'22,,-'#29#29#28#24#23#23#24#23#23#23#23#23#22#23#23#22#22#23#23#23#23#22#22
+  +#22#22#22#22#22#22#22#21#22#22#22#21#22#21#21#22#21#22#21#21#21#21#20#21#21
+  +#20#21#20#20#21#21#21#20#20#21#20#21#20#20#20#20#20#20#19#20#20#20#19#20#19
+  +#19#19#19#19#19#19#19#19#19#19#19#18#19#19#18#18#18#18#18#19#18#19#18#18#17
+  +#18#18#18#18#18#18#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#16#16#16
+  +#17#17#17#16#17#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#14#15#15#14
+  +#14#15#14#14#14#13#14#14#13#13#14#14#13#14#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#12#12#13#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#11#12#12
+  +#11#11#11#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#10#11#10
+  +#10#10#10#10#10#10#10#10#10#9#10#10#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9
+  +#9#8#8#9#9#9#8#8#9#8#9#8#8#9#9#8#8#8#8#8#8#7#8#7#7#7#7#8#8#7#7#8#7#7#7#7#7#7
+  +#7#7#7#7#7#6#7#6#7#7#7#7#6#7#7#7#6#6#6#6#6#6#6#7#6#6#6#6#6#5#6#6#5#5#6#6#5#5
+  +#5#6#6#5#5#6#6#5#5#5#6#5#5#5#5#5#5#4#5#4#5#4#5#5#5#4#5#4#4#5#4#5#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2
+  +#3#3#3#3#3#3#2#2#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#1#0#1#1#1#0#1#0#1#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000222444555777999;;;;;;.../////////////'
+  +'//2227778778778778667777766667676666666766666666666666665556565555655655655'
+  +'555445445445345444334343433343333333332333322222232223322222221222212112211'
+  +'11111111111101010110101111001000000/00////0////0/./////./../.........-./...'
+  +'--.--.----,----,,-,,-,,,,,,,,,,,,,,,,,,,,,,,+,,,,+---.-----....../..0//0.//'
+  +'/.//.//.///////./../../....../-./...-...../-..-....--,++,,,***)))(((''&&&&%'
+  +'''%%&%%&%%&%%&%$%%%%$%$$$$$$$$$$$#$##$$#######"#####""""#""""""""""!"!!"!!"'
+  +'!!!!!!!!!! !!! !     !'#31' '#31' '#31#31'!!    !        '#31'   '#31'  '#31
+  +' '#31#31#31#31#31#31#30#31#31#31#30#30#30#31#30#31#30#31#27#26#27#27#26#27
+  +#27#26#27#27#26#26#27#26#27#26#26#26#27#27#27'###/////////010111111/..'#29#30
+  +#30#24#24#24#25#24#24#24#24#24#24#23#24#24#24#24#24#23#23#24#23#23#23#23#23
+  +#23#23#23#23#23#22#23#22#22#22#23#22#22#22#23#22#22#22#22#22#22#22#22#22#21
+  ,#21#22#21#22#21#21#21#21#21#21#21#21#21#20#21#20#21#20#21#21#21#20#20#21#20
+  +#20#20#20#20#19#19#18#19#18#18#18#19#18#18#19#18#19#18#19#18#18#18#19#18#19
+  +#22#22#22#25#26#26#30#29#30'!!""""'#18#18#18#17#16#17#16#16#16#16#16#16#16#16
+  +#16#16#16#16#16#16#16#16#15#15#16#15#16#15#16#15#15#14#14#14#14#14#14#14#14
+  +#13#13#14#14#13#13#13#13#13#13#13#13#13#13#14#13#13#13#13#13#13#13#13#12#13
+  +#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11#11#11#11#12#11#11
+  +#11#11#11#11#11#11#11#11#10#11#11#11#11#11#11#10#10#10#10#11#11#10#10#10#10
+  +#10#10#10#10#9#9#9#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#9#8#8#9#8#9#8
+  +#8#8#8#8#8#8#8#8#8#7#8#7#8#8#8#8#7#7#7#7#8#8#8#8#7#7#7#7#7#7#7#7#7#6#7#7#7#6
+  +#7#7#6#7#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#5#5#6#5#6#5#5#6#5#5#5#5#5
+  +#5#5#5#5#5#4#5#4#5#4#5#4#5#4#4#4#4#5#4#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4
+  +#3#4#4#4#3#3#4#3#3#4#4#3#3#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#3#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#0#1#0#1
+  +#0#0#0#1#1#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000111444555666888:::<<<000...////////////0017778778778778778677767677676'
+  +'766666666676666666665656565666666656565655656655545445444345444344443434333'
+  +'333333333333233222322233222222322221221222121112221111111111111100101101000'
+  +'00010000/00/0/0//00///.//./../...../.-....../--.--.---------,--,,,,,,,,,,,,'
+  +',,,,,---.../..0//000/00000/0/0///////////0//0/.//.0/.//.///.././/.//.///...'
+  +'../--.-./-./.-..-.--.....-.-.-..-..------++++*+)()(''''&%%&%%%%%%$$$%%$$$$$'
+  +'$$#$$$$##$##$######"###"#"#"""#"""""""""""""!!!!!!!!!!! !!!!"""""!"!!!! !!!'
+  +'!     !      '#31'     '#31#31#31#31#31#31' '#31' '#30#31#31#31#30#30#31'  '
+  +#31#31#31#29#28#28#28#27#28#28#27#28#28#27#27#27#27#28#27#27#28#28#28#29#28
+  +#28#28'!""-.....//....///0/0///'#30#31#30#26#25#25#25#25#25#25#25#25#25#25#25
+  +#25#24#25#24#24#25#25#24#25#24#25#24#24#24#24#23#24#24#23#23#23#24#23#24#23
+  +#23#24#23#23#23#23#22#23#23#23#22#23#23#22#22#23#23#22#22#22#22#22#22#21#22
+  +#22#22#22#21#22#22#21#21#21#21#21#21#20#20#20#20#20#20#19#23#24#23#25#25#25
+  +#29#29#30#31'  !! """"!!""##""###'#31#31#31#16#17#17#16#16#16#17#16#16#16#17
+  +#16#16#16#16#15#16#16#16#16#16#16#15#16#15#15#15#16#15#15#15#15#15#15#15#15
+  +#15#15#15#14#14#14#13#14#14#14#13#13#13#14#13#13#13#13#13#13#13#12#13#13#12
+  +#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12#11#11#12#12#12#12#12#11#12#11
+  +#12#11#11#12#11#11#11#11#11#11#11#11#11#11#11#10#10#11#11#11#10#11#10#10#10
+  +#10#10#10#9#10#9#10#9#10#9#10#10#9#9#10#10#9#9#9#10#9#9#9#9#9#9#9#9#9#8#8#9#8
+  +#8#9#8#9#9#8#8#8#8#8#8#9#8#8#8#8#8#8#8#8#8#7#8#8#7#7#7#7#8#7#7#7#7#7#7#7#7#7
+  +#7#6#7#7#6#7#6#7#6#6#6#6#7#6#6#6#7#6#6#6#5#6#5#6#6#6#6#5#5#5#6#6#5#5#6#5#6#5
+  +#6#5#6#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#5#4#4#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4#3#4
+  +#4#4#4#3#3#4#4#3#3#4#3#3#3#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#2#2#2
+  +#3#3#2#2#2#2#2#2#2#2#2#2#2#1#1#1#1#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1
+  +#0#0#0#1#0#0#1#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000444555666777999;;;333...//////////////07768878778778778778777777'
+  +'667767677776766766677666666666666665566566565655556555545445445445445444334'
+  +'333333333333333332333333322233232232222232222212121212111111111111110101110'
+  +'11101110100000000000/0/00//////./../../...../../.-.--.--.--.----,----,,-,,-'
+  +'.-././/.0//00/00/00/000000000/0000000//00/////////0///..//.//./0.//////.//.'
+  +'/./......../../...--/.-..-..-......-------------------,,-,,-,,***)((&&&$$%%'
+  +'$%$$$$$$$$$$$$$$###$#########"###"#"#""""""""""""!###"#""#""!"""!""!!!!!!!!'
+  ,'!! !! !! !          !!!!! !    ! !      '#31'    !!'#30#30#30#29#28#29#29#28
+  +#29#29#28#29#28#28#28#28#28#29#28#28#29#30#30#30'   ,-,/./0/////0/0111000'#31
+  +#31#31#27#26#26#26#26#26#26#26#26#26#26#25#25#25#25#26#25#26#25#25#25#25#25
+  +#25#25#25#25#25#24#25#25#25#25#24#24#24#24#24#24#24#24#24#24#23#24#24#24#24
+  +#24#24#24#24#23#24#23#23#24#23#22#23#23#23#23#25#26#26#27#27#28#30#30#30' ! '
+  +'#"##"#"#""""#$##########$#$$%$&%&((('#26#26#26#17#18#18#18#18#18#17#16#16#16
+  +#16#16#16#17#17#16#16#16#16#16#16#16#15#16#15#15#15#16#15#16#15#15#15#15#15
+  +#15#14#15#15#15#14#15#14#15#14#15#15#14#14#14#14#13#13#13#13#13#13#13#12#13
+  +#12#13#13#13#13#12#12#12#13#13#12#12#12#12#12#12#12#11#11#12#12#12#12#11#12
+  +#11#11#11#11#11#11#11#11#11#11#11#11#10#11#11#10#11#10#10#10#10#10#10#10#10
+  +#10#10#10#10#10#10#10#9#10#10#10#10#9#9#9#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8
+  +#8#8#9#8#9#9#8#8#8#8#9#8#8#8#8#8#8#8#8#8#8#8#7#8#7#8#8#8#8#7#7#8#7#7#7#7#7#7
+  +#7#7#7#7#7#7#7#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#5#5#6#6#6#6#6#6#6#5#5
+  +#5#6#6#5#5#5#5#5#5#5#4#5#5#4#5#5#5#5#4#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#3#3#3#3#3#4#4#3#4#3#3#3#3#3#4#3#4#3#3#3#3#3#3#3#2#3#3#2#2
+  +#3#2#2#3#3#2#2#2#2#2#2#2#1#1#1#2#2#1#2#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1
+  +#1#1#1#1#1#0#1#0#0#0#1#0#0#0#0#1#0#0#0#0#1#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#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#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#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#0#0#0#0'000yyy000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000111666777888:::<<<:::...////////////000887887887877877877877877777'
+  +'777667776667666666666666666666666656565656566555555555554544544544543434443'
+  +'334434334333333333233333322322232322232222222221222112212111211111111111011'
+  +'0101001000001000/000////0/.0/.//././/../../-./--..-..-.--.-----...//.00//0/'
+  +'0//0//0//0//00/00/00/00000000000000/00/////////////0.//./0/.//.//.////./...'
+  +'/./........./../-..--.....-..-..--.-----.---.--,,,---,-,--,--,,-,,--,+,,*()'
+  +'&''&$$$$$$$$$#$##$$#########""###""""#$##########"##""""""""""""!"!!!!!"!!!'
+  +'!!!!"""!"!!""!""!"!!!!"""""!""!!!!!!!!! !!! !!    '#31' '#30#30#30#30#29#30
+  +#29#29#29#29#29#30#30#29#29#30#29#29#29#29#29'   +,,...////0000/100011'#30#31
+  +#30#27#27#27#27#27#27#27#27#26#26#27#26#26#27#26#26#26#26#27#26#27#26#26#26
+  +#26#26#26#26#26#26#26#26#26#26#26#25#25#25#26#25#25#25#24#23#23#24#24#24#27
+  +#27#27#30#31#30'   ###$#$#$##$#$$$$$$$$$#$#$$$$$$$%$$$$$%%%%$%&&''''(*+*,,-'
+  +#21#21#21#18#18#18#18#17#17#17#17#17#17#18#17#17#17#17#17#17#17#16#16#16#16
+  +#16#16#15#16#15#15#15#16#15#16#15#15#15#15#14#15#15#15#14#14#14#15#15#15#14
+  +#14#14#14#14#14#14#14#14#14#14#14#14#14#12#12#12#12#12#13#12#12#12#12#12#12
+  +#12#12#12#11#12#11#12#12#12#11#12#12#11#11#11#11#11#11#11#11#11#11#11#10#10
+  +#11#10#10#10#10#10#11#10#11#10#10#10#11#10#10#10#10#9#10#10#10#10#10#10#9#10
+  +#9#9#9#9#10#10#9#10#9#9#9#9#9#9#9#8#8#9#8#9#9#9#8#9#8#8#8#8#8#8#8#8#9#8#8#8#8
+  +#8#7#8#8#8#7#8#7#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#6#6#6#6#6
+  +#6#6#6#6#6#6#6#6#6#5#5#6#6#5#5#5#5#5#6#6#5#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#4
+  +#5#4#5#4#4#4#4#4#5#4#4#5#4#4#4#4#4#4#4#4#4#4#3#3#4#4#4#3#4#4#4#3#3#4#4#3#3#3
+  +#3#3#3#3#3#3#4#3#3#3#3#3#3#3#3#2#3#3#3#3#2#2#2#2#2#2#2#2#2#2#1#1#1#1#1#2#2#1
+  +#2#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#1#0#0#0#0#1#0#0#0#1#0#0#1#0#1
+  +#0#1#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#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
+  +#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#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#0#0
+  +'000yyy000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000444777999:::<<<===222/////////'
+  +'//////333887887877877877877877767777777767767777666667667667666666666565665'
+  +'666556555665554544544534544434444333344334443333433333233232323232222223222'
+  +'22222122211212211111211211111111111101100000000000000000//0//////./../../..'
+  +'/../-./../.-./////000000000//00/0///0000//0//0//00/00/00/000000000//0/00///'
+  +'////////////0.///.//.//.//...././/.///........-......-.--/.-.....--...-----'
+  ,'.-.------,--,----,-,--,,-,,--,-,,--,+,+))(&&&$#$$$#$########$$$$#$#$$$####$'
+  +'######"######"#"#"""""""#####"""#"""""""!"##"#"##"#"""""""!""!"!""!!!!!!!!!'
+  +'!  !!       '#30#30#30#30#29#30#30#29#30#30#29#30#30#29#30#29#29#29#30#29#30
+  +#31#31' ---011111111222100/00'#31#30#30#27#27#27#27#27#27#27#27#27#27#26#27
+  +#27#27#26#27#27#27#26#26#27#26#26#26#26#26#26#26#26#26#29#28#29#31#31#31'!!!'
+  +'$$$&&&&&&&&&&&&&&&&&&&&&&&&&&&''&&&&&%%%$$%$%%&%%&%&&&&&&&&''&)*).--010((('
+  +#19#19#19#19#19#19#19#18#18#18#18#18#17#17#17#17#17#17#16#17#17#17#17#17#16
+  +#17#17#17#16#16#16#16#17#15#15#15#15#15#15#14#15#14#14#15#15#15#15#15#15#14
+  +#14#14#14#14#14#14#14#14#13#14#13#13#14#14#13#13#14#13#14#12#12#12#12#12#13
+  +#12#12#12#11#12#12#12#12#11#11#11#12#12#12#11#11#11#11#11#11#11#11#11#11#11
+  +#11#10#11#11#11#10#11#10#10#10#11#10#10#10#10#10#10#10#10#9#9#9#10#9#10#10#9
+  +#9#9#9#9#10#9#9#9#9#9#9#8#9#9#9#8#8#9#9#9#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8
+  +#7#8#8#7#7#7#8#7#8#7#7#8#7#7#7#7#7#7#7#6#7#7#7#7#7#6#7#6#7#7#6#7#6#6#6#7#6#6
+  +#6#6#6#6#6#5#6#6#6#6#5#6#5#5#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#5#5
+  +#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#4#3#4#3#3#3#3#4#3#3#3
+  +#4#3#3#3#3#3#3#3#3#3#2#3#2#2#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#2#1#1#1#1
+  +#2#1#2#2#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#0#0#1#0#0#0#0#1#0#0#0#0#0#1#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#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#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#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#0#0#0'000yyy000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000777999:::<<<======...//////////////0'
+  +'777887877877877877877777767777776777767766777677676666666666666666666555665'
+  +'565554644544544444544444434343334333333433333332233333233223222223222222221'
+  +'21222221221112221111111110111101011000011000000/00/0//0/.///0..//./..///000'
+  +'1/0001000100000000/000000/////0//0/00//0//00/00/00/0000000000000///////0..-'
+  +'...--.-,-,+++,++++,+++++**+*+++++,,,,,,---/....-/-...-./-..---.-.-....-----'
+  +'-----------,-,,-,,-,,-,,--,-,,,,,-,,+++((''&%&$$%$$$$$$#$$#$$$$#$#$#$######'
+  +'#####$#############$$###$$########""####"#""""""""""""""!!!!!"#""""""""!!""'
+  +'!"#""!!'#31#31#31#31#30#31#31#30#31#31#31#31#31#31#31#31#31#31'   !!!...121'
+  +'232222222000-.-'#31' '#31#28#28#29#28#28#28#27#28#28#28#28#28#30#29#29'   "'
+  +'""$$$((((''((''''((''''''''((((((((((((((()))))))))(''((())((()((((''&'''''
+  +'''''###'#31#31#31'$##((()**./.221333!!!'#20#20#20#19#20#19#20#19#20#19#18#19
+  +#18#18#18#18#18#18#18#18#17#17#18#18#17#17#16#16#16#16#16#17#16#16#16#16#16
+  +#16#16#15#14#15#15#15#15#14#15#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#13#13#13#13#14#14#14#13#13#13#13#13#12#12#12#12#12#12#12#12#11#11#11#12
+  +#12#12#11#11#11#11#11#11#11#11#11#11#11#10#10#11#11#10#10#10#10#10#10#10#10
+  +#10#10#10#10#10#10#10#10#10#10#10#9#10#9#9#9#10#10#9#9#9#10#9#9#9#9#8#9#9#8#9
+  +#8#8#9#9#9#9#8#9#8#8#8#8#8#8#8#8#7#8#8#8#8#8#7#8#7#7#8#7#8#7#7#7#7#8#7#7#7#7
+  +#7#6#7#7#7#6#7#7#6#7#6#6#7#6#6#7#7#6#7#6#6#6#6#6#6#6#6#6#6#5#6#5#6#5#6#5#6#6
+  +#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#3#4#3#4#4#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#3#3#3
+  +#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1
+  +#0#1#1#0#0#1#1#0#0#1#1#0#0#0#1#1#0#1#0#0#1#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#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#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#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'000yyy00000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0333999:::;;;===>>>767///////////////22288788787787787787787777777766777676'
+  +'776776776767666666666666665566655665555565555454454454454453444333344433433'
+  +'334333433333333333322323222222222222222221222211222111111111110111111111010'
+  +'001000000/00/00/0//0//0.////00010/11000001011010010000000000/0//////0/0//0/'
+  +'/0//0//00////...----,,++*+++))**)))))))))))(())))(())(()((((((''(''''''''&'
+  +'''''&&''&&''&&&&&&%&''''''''''''*)****,+*-..-..--.-----------,,-,-,,----,,-'
+  ,',,--+-,,--,.-.--------,*))''&&$$$$$$$$$$$#$$$$$%$%$$$$##$$#$$#$$$%$%$$$$$#$'
+  +'$#$#####$#########""""##$##########"#####$######$$$$#$$$$$###""!!! '#31'  '
+  +#31#31'! !      !!!"!"../3223331110/0////..##$&&&(((*))****+++*********++*+*'
+  +'*+***++++************++++++***)*)+*+''((%$$  !'#29#29#29#25#25#25#24#24#24
+  +#24#24#24#24#24#25'***,,,../222334223'#22#22#22#20#20#20#19#20#19#20#19#19#20
+  +#19#20#19#19#20#19#20#19#18#18#18#18#17#17#17#18#17#17#18#18#17#16#16#16#16
+  +#16#16#16#16#15#15#16#16#16#16#15#16#15#14#14#15#14#14#14#14#14#14#13#14#14
+  +#14#13#13#13#13#14#13#13#13#13#13#14#13#13#13#13#13#13#13#13#12#12#11#12#12
+  +#12#12#12#11#11#11#11#11#11#11#11#11#11#10#10#10#11#11#11#11#11#10#10#10#10
+  +#11#10#10#11#10#10#10#10#10#10#10#9#9#9#9#10#9#9#10#9#9#9#10#10#9#9#9#9#9#8#9
+  +#9#9#8#8#8#9#9#8#8#9#8#8#8#9#8#8#8#8#8#8#7#8#8#8#8#8#7#7#7#7#7#7#7#7#8#7#7#7
+  +#7#7#7#7#7#7#6#7#7#6#6#7#7#6#6#7#7#7#6#7#6#6#6#6#6#6#5#6#6#6#6#6#5#6#6#6#6#6
+  +#5#6#5#6#5#5#6#6#5#6#5#5#5#5#5#5#5#5#5#5#5#4#4#4#4#5#4#4#4#4#4#5#4#4#4#4#4#4
+  +#4#4#4#4#4#4#3#4#3#4#4#3#4#4#4#3#3#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#2#3
+  +#2#2#2#2#2#3#2#2#2#2#2#2#2#2#1#1#2#1#2#2#2#2#1#1#2#1#1#1#1#1#1#0#1#1#1#1#1#1
+  +#0#1#1#1#0#1#1#0#0#0#1#1#0#1#0#0#0#1#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#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#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#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'000yyy0000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00777999:::<<<===>>>//////////////////6558878778778778778777777777777776776'
+  +'767766676666666666666666566666665565656655555455545445445444444444343444433'
+  +'443433333333232333322233222322222222222221222112111211211112111111010001000'
+  +'0000000000/00/0//0/00011011011001001100100011000100100000/00000000//0/0.//-'
+  +'--,,,+++*******************)**)**)*))))))))))())()()))(()(((((((((''''''&'''
+  +'''&&''''&&&&&%%&%&%&&%&%%%%%%&%%%&&%(('')*)+++------,,---,---.,,.,,-,,-.,.-'
+  +'-.--...---------,--+++''(''$$$%%%%%%%$%$%$%%%%%%%%%$%%%$%$$$%$$$$$$$#$##$#$'
+  +'$#$%$$$$$#$$%%$$$$%$$%%%%%%%$$%$$$$$$$$$$$%%%%%$%$%$$$%%%###"!""!"""#""""""'
+  +'#####$00023322211100000//./..----,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,-,,,,,,,'
+  +'------((($%$!!!'#30#30#30#26#27#27#26#26#27#26#27#26#26#26#26#25#25#25#25#25
+  +#25#24#25#24#25#26#25' ! ---000222344676,+,'#21#21#21#21#21#21#20#20#20#20#20
+  +#19#19#19#19#19#19#19#19#19#20#19#19#19#19#19#18#17#17#17#17#18#18#18#17#17
+  +#17#17#17#17#17#17#15#16#15#16#16#16#16#15#16#15#15#15#14#14#14#14#14#14#13
+  +#14#13#13#14#14#13#13#13#13#14#14#13#14#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#10#11#11#11#10#10#11
+  +#10#10#10#10#10#10#10#10#10#10#9#10#10#10#9#10#9#10#10#9#9#9#9#9#10#9#9#9#9#9
+  +#9#9#9#9#8#8#9#8#9#8#9#8#8#9#8#8#8#8#8#8#8#8#8#7#7#7#8#8#8#8#8#7#7#8#8#8#7#7
+  +#7#7#7#7#7#7#7#7#7#7#7#6#7#7#6#6#7#7#7#6#6#6#7#6#7#6#6#6#6#6#5#6#6#6#5#5#6#5
+  +#6#6#6#5#6#6#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#5#4#4#4#4#4#5#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#2
+  +#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1
+  +#1#0#1#1#1#0#0#0#1#1#0#0#0#1#1#0#0#0#0#0#1#0#0#0#1#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#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#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#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'000yyy0000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00222999:::;;;<<<>>>999///////////////1118878778778778778777777777776767776'
+  +'766777777676677666666666666666656556655556656556455545445444344444344344334'
+  +'343433343333333333233223233222222222222222222222222111212211211111110001101'
+  +'10010100000000111111110011100110101100110110101110000010000///...-,++++****'
+  +'*********************************))*)**))))))))()))(())(())((((''(((((&'''''
+  +'&''''&&''&&&&&&&&&&&%%%%&&%%&%%%%$%%%%$%$$$%%%%''''())),+,,,---,/--.--.--..'
+  +',---..-------,--,,-.----.-,,(((%%%&&&%&&&%&%%%%%%%$$%$%%$%$$$$$$%%%%$%%%%&&'
+  +'&&%%%%%&&%%&%&&&%%&%&%%%%&&&&&&&&&&''&&&&&&&''''''''&''&&&&&&&%&$$$$#$$####'
+  ,'#######%%%&%&112344334222222122212001000000000000////.//////////./////,,,))'
+  +')%$%"""'#31#31#30#31#30#30#29#29#30#29#29#29#29#29#29#28#29#28#29#29#28#29
+  +#28#28#27#28#27#27#27#27#27#27#27#26#25#26#26#26#27#26#27#27'''''''...111332'
+  +'656887  !'#22#22#22#22#22#22#21#21#21#21#20#21#20#20#21#19#19#19#19#19#19#19
+  +#19#19#19#18#18#18#19#19#19#18#18#17#18#17#17#17#17#17#17#17#17#16#16#15#15
+  +#16#16#15#16#15#16#15#15#15#15#15#15#15#14#13#14#14#14#14#13#14#13#13#14#14
+  +#13#13#13#13#13#13#13#13#12#13#12#13#13#13#12#13#12#12#11#11#11#11#11#11#11
+  +#11#11#11#11#11#11#10#11#10#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10
+  +#10#10#10#10#10#10#10#9#10#10#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#9#8#9#8
+  +#8#8#8#8#8#8#8#7#8#8#7#7#8#8#8#7#7#8#8#8#8#7#7#8#7#7#7#7#7#7#6#6#7#6#6#7#6#7
+  +#6#6#6#6#6#7#7#6#7#6#6#6#6#6#6#6#6#6#6#5#6#5#6#6#6#6#5#6#5#6#5#6#5#5#5#5#5#5
+  +#5#5#4#5#5#4#5#5#4#5#4#4#4#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#3#3#4#3#4#4#4
+  +#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#2#2#2#2#2#2#2#2#2#2#1#2#2
+  +#2#2#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#1#1#1#1#0#1#1#1#0#0#0#0#1#0#1
+  +#0#1#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#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
+  +#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#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'000yyy000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000555999:::<<<===>>>222/////////'
+  +'//////444887877877877877877777767767777777777777676777666766666666666666666'
+  +'665665665555544644544544544444434444434443433333343333333333222223322323322'
+  +'222222222222212222121211221111111111110110001011211111111111111011101110101'
+  +'100100010110111/0/...,,,,++++++++***++*+*+**+*************************)****'
+  +'))*)))*))))))))())))(())(()((((((''''(''''''''''''''''&''&&&&&&&&&%&%&%&%&%'
+  +'%&%%%%$%%%%%$$%$$%$%$$$$$$''&''(((,++.--.--.--..--.--.-/..........--...-.--'
+  +'.,,,())&&%%&&%%&%%&%%%%%%&&&%&%%%%''&&&&&''''''&&''''&''&''&&&&'''''''''''''
+  +'''''&''''(''''''(()''((''''(''''(''(((()(((((((''''('''''''''')''(&&&&%%%%&'
+  +'%%%%%%%%%&&&&&&322556555444444323323222222222212221212100---***%%%!!"!"!"!!'
+  +'!!!!!!!!!     ! '#31' '#31#31#31#31#31#30#29#29#29#30#30#30#29#29#30#28#28
+  +#28#28#28#28#27#28#28#27#28#27#28#28#28#29#28#29'...000444555787666'#24#24#24
+  +#22#22#22#22#22#22#21#22#22#22#21#21#20#20#20#20#20#20#20#20#20#19#19#19#18
+  +#18#19#18#19#18#19#18#18#18#18#19#18#18#18#17#17#17#16#17#17#16#16#17#16#17
+  +#16#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#13#13#13#13#13#14#14#13#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#12#13#12#12#12#12#11#11#11#11#11#11#11
+  +#11#10#10#11#10#11#11#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#9
+  +#10#10#9#10#10#9#9#9#10#9#10#9#9#9#9#9#8#9#8#9#8#8#9#8#8#8#9#8#8#9#8#8#8#8#8
+  +#8#7#8#8#8#7#8#7#7#8#7#7#8#7#7#7#7#8#7#8#7#7#7#7#7#7#6#7#7#6#6#6#7#7#6#7#6#6
+  +#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#5#5#5#6#6#5#5#5#5#5#6#5#5#5#5#5#5#5
+  +#4#4#5#4#4#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#4#4#4#4#3#4#3#4#3
+  +#4#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#3#2#2#3#2#2#2#2#2#2#2#2#2#1#2#2#2#1#1#1
+  +#1#2#2#1#2#1#1#1#1#1#1#1#1#1#0#1#1#1#0#1#1#0#1#1#1#0#0#1#0#0#0#1#0#0#0#0#0#0
+  +#0#0#1#1#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#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#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#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'000yyy0000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000111888:::;;;<<<===;;;/////////////////07778778'
+  +'778778778777777777777776676766767676667676666666666666666666655555656546555'
+  +'455445455444444443443334444344333333344333333323233333232232223322322122222'
+  +'22212211121121211111110111111211121111122111110001001001101100110000...,---'
+  +',+,++,+,,+,,++++*++*+++******+*********************************))**))))))))'
+  +')))))())))(()()(((((''''(''&''(''''''&''''''&&&&&&&&%&%%&%%%%%%%%%%%%$$%%$$'
+  +'$$$%%%%%%%%%%%%$%$%&%))),,,.--./../..............-.---//..//....--(()&&%&'''
+  +'''&&&&&&&''&''&&''(((''''(''(''''&&''''''((((''())((())))()))))()))))))))))'
+  +')))))*)*))))))))))(()))*)()(((((''&''''&''&&&''''''''''''''''''(((334676555'
+  ,'555555455545444111-,-)))''''''%$$$$$$$$$$$$$$#$##$$$########"""!!"""!  !  !'
+  +' '#31'      '#31#30#31#30#30#30#30#29#29#29#28#29#29#28#28#29#28#28#29'$#$/'
+  +'0/222434666788+++'#22#22#22#22#22#22#22#22#22#22#22#22#22#22#22#21#21#21#21
+  +#21#21#20#20#20#20#20#20#20#20#20#18#19#19#19#18#19#18#18#18#18#18#18#18#18
+  +#18#18#18#18#17#16#17#16#16#16#16#16#16#16#16#16#15#15#15#15#14#15#14#15#14
+  +#14#14#15#13#13#13#14#13#13#13#13#13#13#13#13#13#12#12#12#12#13#12#12#12#12
+  +#13#12#12#12#12#11#11#11#11#11#11#11#10#10#10#10#11#10#11#11#10#11#10#10#10
+  +#10#10#10#10#10#10#10#9#10#10#10#10#10#9#10#9#9#9#10#9#9#9#9#9#9#9#9#9#8#9#8
+  +#8#8#9#8#8#8#8#8#8#8#8#8#7#8#8#8#8#8#7#8#8#8#8#8#7#7#8#7#7#7#7#7#7#7#7#7#6#7
+  +#7#7#7#7#7#7#6#7#7#6#6#7#6#6#6#6#6#6#6#6#6#7#6#6#6#6#6#6#6#6#5#6#6#6#5#6#6#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#4#4#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#3#3#3#3#3#3#3#3#3#3#4#3#3#3#3#3#2#2#2#3#2#2#2#3#2#2#2#2#2#2
+  +#2#2#2#2#2#2#1#2#1#2#1#1#2#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#1#0#1#1#0#1
+  +#1#1#1#0#0#1#0#1#1#0#1#0#0#0#0#0#1#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#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#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#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'000'
+  +'yyy000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000444999:::;;;===>>>444'
+  +'///////////////333877877877877877877777777777777767777777777666776666666666'
+  +'666666666665655665554554545544545544444444344344344434444343443333333333333'
+  +'333223222223323222222222222212121121121121211211121222222211211111111111101'
+  +'0011110/0--------,--,-,,-,+,+,,+,,++,++++++++*+*+****+*********************'
+  +'********)******))))))))))))))))())())((((((((''''((&''''''''''&''''''&&&&&%'
+  +'%&&&%%%%%%%&%%%%%$$%&%&&%%%%&%%%%%$$%%%%%%$%%%%%%(((,*+././/./..../...///..'
+  +'../..../..///0./---)))''(''((((((''(((((()(()())))))**)***))))))))))))****)'
+  +'**+*****+****+*+******,+++++,++,++,*+++*+*****((((((((()))))))))*+*777:::66'
+  +'6333///,,,((()(((((((((''(&''''&''''&&&&&&&&&%%%$$%$$%%$$################"#'
+  +'"""!!!!!"""!'#31#31#31' '#31' '#31#31#31#31#31#31#31#30#31#30#31#30'++*2234'
+  +'44776::9:;;'#31#31#31#24#25#24#23#23#23#23#23#22#22#22#22#22#22#22#22#22#22
+  +#22#22#22#21#21#21#21#21#21#20#20#20#19#20#19#19#19#19#18#19#18#18#18#18#18
+  +#18#17#18#18#17#18#17#18#16#16#16#16#16#16#17#16#16#16#16#16#15#15#14#15#15
+  +#15#15#15#15#14#15#14#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#12#12#13
+  +#12#13#12#12#13#12#12#12#12#11#11#11#10#10#11#11#11#10#10#10#11#10#10#10#10
+  +#10#10#10#10#10#10#10#9#10#10#9#10#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#9#8
+  +#8#8#8#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#7#7#8#8#7#8#7#8#7#7#7#7#7#6#7
+  +#7#6#7#6#6#6#6#7#6#7#6#6#7#6#6#6#6#6#6#6#6#6#5#6#5#6#6#6#6#5#5#6#6#6#6#6#6#6
+  +#5#5#5#6#6#5#5#5#4#5#5#5#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#3#4#4#3#4#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#2#2#2#2#2#2#2#2#2
+  +#2#1#1#1#2#2#2#2#2#2#1#2#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#0#1
+  +#0#0#0#0#0#0#0#0#0#1#0#0#1#0#1#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#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#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#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'000yyy00000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000777:::;;;<<<======////////'
+  +'//////////76687787787787787777777777777777767677667777767767776766766666666'
+  +'666566566565464565454454455444444444444434434333334443444333333323333233233'
+  +'2222223323222222222212122121222211212211211211121221211111111111110.//....-'
+  +'.----.---------,-,+-,,,++,++,++,+++**++*+++********************************'
+  +'**)*))*)*)))*))))))())()))(((((()(((((((((((''''''&''''&&''&&&&&&%&%&%&%&&%'
+  +'%&&''&&&&&%%&&&&&%&&%&%%%%%%%&%&%%%%%%%%%&&&''''''***////0/////////////00//'
+  +'//100000201110-.-)(())))))*)**)*++***+****)****)))*+++,+++++++++*,,++++,,--'
+  +'-----,-,--,---.---,,.--.--....-..--,+,+*++*+++++++++++++.-.++,+++++,+++++++'
+  +'*+***************))())(()((((&''''''&''''''&&&''&&&&&&%%%%%%$%%$$$$$$##$###'
+  +'######!"!! !   '#31#30#31'   ""#111444666999:9:222'#25#25#25#25#25#25#24#24
+  ,#24#23#24#23#23#23#22#23#22#22#22#22#22#22#22#22#22#22#22#22#22#22#21#21#20
+  +#20#20#20#20#19#19#20#19#19#18#18#18#18#18#18#18#17#18#18#18#18#18#17#17#17
+  +#17#17#16#16#16#16#16#16#16#16#16#15#14#14#15#15#15#14#14#14#14#14#15#13#13
+  +#13#13#13#13#13#12#13#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#11#12#11
+  +#11#11#10#10#10#10#10#11#11#10#10#10#10#10#10#10#10#10#9#10#9#10#10#9#9#9#10
+  +#10#10#9#9#10#9#9#9#9#9#9#9#9#9#9#9#9#8#8#8#9#9#8#8#8#8#8#8#8#8#7#8#8#8#7#8#8
+  +#8#7#8#8#7#8#7#8#8#8#7#7#7#7#7#7#7#7#7#7#7#7#6#6#6#6#7#7#7#6#6#6#6#6#7#6#6#6
+  +#6#6#6#6#6#6#6#6#5#6#6#5#5#6#5#5#5#5#6#5#5#6#5#5#5#5#5#5#4#5#5#4#5#5#4#5#4#4
+  +#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#3#4#4#3#3#3#3#3#3#3#3#3#3#3
+  +#2#3#2#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#1#2#2#2#2#1#1#2#2#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#0#1#1#0#0#0#0#1#0#1#0#0#1#0#1#0#0#1#1#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#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#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#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'000yyy00000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000222999:::;;;===>>>767///////////////11187787787787787777777777777776'
+  +'776676777666667766776777766677766666665566565565555565454554444444444433434'
+  +'444444444433334343333333333333332232233222222222222122222111221222121121121'
+  +'1211121212212111101///...-.-.-..-.-.---.-------,---,-,,,,+,,+,+,,++,+*+++++'
+  +'++***+*******************************)**)****)*))))*))))))))))(())((((((((('
+  +'(((((''''(''''''&&''&&&&&&&&''&''''&''&&''&&&&&&&&%&%&%&&%%&&''&&&&%&&&%&&&'
+  +'&''&&&&&&&&&%&&%%())..-0110000//011001212121111211311121---+++++++++*+*++*+'
+  +'++++,,,,+,+,++-,,-,,-.--.--.-.-....././//////////////////../..0/././//////.'
+  +'..---------------------------------,-,--,-,,-,,,,,,,,,,,++**+**+**+***))**+'
+  +'*+)*)*)))())()''''(''''''&''''&''''%%%$%%$$$###"""""#""" !! ! **+433667999<'
+  +'<<==='''''''#25#26#25#26#25#26#25#25#25#24#25#25#24#23#24#22#22#22#22#22#23
+  +#22#22#22#21#22#22#22#22#22#22#22#22#20#20#20#20#21#21#19#19#19#19#19#19#19
+  +#19#19#17#17#17#17#18#17#17#17#18#17#17#17#17#17#17#16#16#16#16#15#16#16#15
+  +#15#15#15#14#15#14#14#14#14#14#14#14#14#12#13#13#12#12#13#13#13#13#13#12#13
+  +#12#12#13#12#12#12#12#12#12#12#12#12#12#11#12#10#11#10#10#10#10#10#10#10#10
+  +#10#10#10#10#10#9#10#10#9#9#9#9#9#10#9#10#9#9#9#9#9#9#9#9#9#8#8#9#9#9#8#8#8#8
+  +#8#8#8#8#9#8#8#8#8#8#8#7#8#8#8#8#8#8#7#8#7#8#7#7#7#7#7#7#7#7#7#7#7#7#6#7#7#7
+  +#7#7#6#6#7#6#7#7#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#6#6#6#5#6#6#5#5#5#6#5#5#5#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#3#4#4#3#4#3#3#3#3#3#3#3#3#3#2#3#3#3#3#3#2#2#2#2#2#3#2#2#2#1#2#2#1
+  +#2#2#2#1#1#1#1#1#1#2#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#0#1#1#1#0#1#0
+  +#0#0#0#0#1#1#1#1#1#0#1#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#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#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#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'000yyy0000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000666999:::<<<===>>>000///////////////5'
+  +'558778778778778777777777777777777777766767777777767676776666666666656656656'
+  +'556546555545545455444444444443343434434343433333333333333333233223222322222'
+  +'22222222222222112211221212221211210221111000../..//.....--...--..--..----.-'
+  +'-------,-,+-,+,,+,++,++,++++++++***+*+++*******************************))**'
+  +')))))))))))))))))()))()))((((((((((''''''''''''''&&''&&''''''''&&&&''''&&&'
+  +'''&&&''&&&&&&''''''''''&''&&&&&''''''''''''''''&''&''&''''&&&&&&&%&''&&&%'''
+  +'*+*00/222222112121222322222312423333000,++,,,,+,-,,-,-,,,--.....-./..//.///'
+  +'///0000/0//0000000000111111111111100100211110211211222111////////0/////////'
+  +'/00//00////////../////./----.---------..-----...------,,-,,,+*++*+**+**+())'
+  +')))''''''''''''&&&&&&$%%###############212666888:::===:::'#30#29#30#27#27#27
+  +#26#26#27#25#25#25#25#25#25#24#25#25#23#23#23#24#24#24#23#22#22#22#22#22#21
+  +#22#22#22#22#22#22#21#21#21#21#21#21#20#20#20#20#21#19#19#19#18#19#19#17#18
+  +#18#17#18#17#17#17#17#17#18#17#17#17#17#16#16#16#15#15#15#16#15#16#14#14#15
+  ,#14#14#14#14#14#14#13#14#14#13#12#13#12#13#13#13#12#12#12#12#12#12#12#12#12
+  +#11#12#12#12#12#11#11#12#10#10#11#10#10#10#10#10#11#10#10#10#10#10#10#9#10#9
+  +#10#9#10#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#9#8#8#9#8#8#9#8#8#8#8#8#8#8#8#8#8
+  +#8#8#8#8#8#8#7#8#8#8#8#7#8#7#7#7#7#7#7#7#7#7#7#7#6#7#7#6#7#7#7#7#6#7#7#6#6#6
+  +#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#5#5#6#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#4#3#3#4#3#3
+  +#3#3#3#3#3#3#3#2#2#3#3#3#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#2#1#2
+  +#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#0#1#0#1#0#0#1#1#1#0#0#1#0#0#0#0#0
+  +#1#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
+  +#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#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#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'000yyy00000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000111999:::;;;<<<>>>:::///////////////00087787787787787777777777777'
+  +'777777777767677766766667766666666776666666556565565555454465454544445444544'
+  +'444344433444434444333333333333333333233222233232322222222221222122221122121'
+  +'12111110////.///../............-..-..-.-.----.-----------,-,+-,,,++,++,++,+'
+  +'++++++++*+*++***+**************************)**)*)*))*))))*)))))))()(()())(('
+  +'((((((((('''''''')''(((''(''''''''''''''''''''''''''''&''&'''''''''''''''''
+  +'''''''''''((''''''(((''''''&''''&''''&&''&''&(''''''''''(''(''''((''((''(,,'
+  +',111332323232334333333534645554555000----.../.0//0/0////0000000001000011111'
+  +'111232222322233333343354444443443344343345444455543332322322332222212212232'
+  +'3232322222111111221111223222222221211000000//./..--.--.--.---,,-+*,+*+))**)'
+  +'))))(((&''&&&&$%$$$%###$$$(()556998;;;>>>>>>.--'#28#29#29#29#29#28#28#27#27
+  +#27#27#27#26#26#25#25#24#24#25#25#24#25#24#25#23#24#23#23#23#23#22#22#22#21
+  +#22#22#22#22#21#21#21#21#21#21#22#20#20#20#20#20#19#19#19#19#18#18#18#17#17
+  +#18#17#17#17#17#17#17#17#17#17#17#17#17#15#16#15#15#15#15#15#16#15#14#14#14
+  +#14#14#14#14#14#13#14#14#13#13#12#13#13#12#12#12#12#12#12#12#13#11#12#12#11
+  +#12#12#12#12#12#12#12#12#11#10#10#11#10#10#10#10#10#10#10#9#10#10#10#10#10#10
+  +#9#9#10#10#9#9#9#9#9#9#9#9#9#9#9#8#9#9#9#9#8#8#9#8#9#8#8#9#8#8#8#8#8#8#8#7#8
+  +#8#8#8#8#7#8#8#8#7#7#7#7#7#7#7#7#7#7#7#7#7#6#6#7#7#7#7#6#7#7#6#6#6#6#6#6#6#7
+  +#6#6#6#6#6#6#5#6#6#5#6#6#6#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#5#4
+  +#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#3#3#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#2#2#1#2#1#1#1#2#1#1#1#1#2
+  +#1#2#2#1#1#1#1#1#1#1#0#1#1#1#0#0#0#0#0#1#1#1#0#0#0#1#0#0#0#1#1#1#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#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#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#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'000yyy00000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0555999:::<<<===>>>222///////////////44487787787787777777777777777777777777'
+  +'776777776677767676677666666666566555555564465554555544544444444444444444434'
+  +'4344433343333334333333333332233222222232322222222222221121121111100////////'
+  +'.//...//.////.............----.----.------------,-,,,,,,++,++,,,,++++++*+**'
+  +'*****++*****************************)****)*)***))))))))))))())((()(((((((()'
+  +'))''(((((''''(''''''''''''''''''''&''''(''''((''''(((''((''(''((''''''''('''
+  +'''''''''''''''''(''''''((((()())))())()(''())****///44444444444455566676676'
+  +'677677644400000010011012111111122233333333333334444565555555566665566666665'
+  +'666565575666676666777755655555555555555554555555555555555555555555555555555'
+  +'45454333332222221111001011/1/./--.--.---,--,,,+++***))(''''(''(''&&&%%%%%%%'
+  +'%%233898;;<<<<@@@??? !!'#29#30#29#28#29#28#28#28#28#28#28#28#27#26#26#26#26
+  +#26#25#25#25#24#24#24#24#24#24#23#23#23#23#23#23#22#21#21#21#21#22#21#22#21
+  +#21#21#21#21#21#21#20#19#20#20#20#19#18#18#18#18#18#19#18#18#18#17#17#17#17
+  +#17#16#16#17#17#17#17#17#15#16#15#15#15#16#15#15#15#14#14#14#14#14#13#14#14
+  +#13#13#13#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#11#12#11#12#12#11#12
+  +#11#10#10#10#10#10#10#10#10#9#9#10#9#9#9#10#9#10#9#9#10#9#9#9#9#9#9#9#9#9#8#9
+  ,#8#8#8#8#8#9#8#8#9#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#7#7#7#7#7#7#7#8#7#8#7#7
+  +#7#7#7#7#6#7#7#7#7#6#7#6#6#7#7#6#6#7#6#7#7#7#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#5
+  +#5#5#5#5#5#6#5#5#5#5#5#5#5#5#5#5#4#4#4#5#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#3#4#3#3#3#4#3#4#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#3#3#2#2#2#3#2#3#2#2
+  +#2#2#2#2#2#1#2#2#2#2#2#1#1#2#1#2#2#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1
+  +#0#1#1#0#1#1#0#0#1#1#0#0#0#0#0#0#0#0#0#1#0#1#0#0#1#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#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#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#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'000yyy0000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000111888:::;;;<<<======/////////////'
+  +'////07778778778778777777777777777777776777667766777767777666677666666666656'
+  +'655556546556445545444544444444444444344433443343334334343344333323323323223'
+  +'23322322222222222212222210//00/////////////////./../..//...............-.--'
+  +'-----....-------,-,,,,+-+,,++,++,+++*+++*++**+*****************************'
+  +'*)***)***))))*)))))(())())))(((()))))))())())''()(((''((''''(((((((('''''''
+  +'''((((((((((((((''(''(''(''((((((()()()*)*))))*))))*)***+*)*+*++++,,,221655'
+  +'776666777777777977987998888433222333322333444344455566666666666666776777888'
+  +'877888988988:88998988:999999:9:9::::;::877887888889999999:::::999::99988888'
+  +'888888777777777777666666555555444434334223213111//0///.//.-.---,,,,,,,,,)))'
+  +'(((''''''''''''''''''))*999;;<===@AAA@A444  '#31#30#30#31#29#29#29#29#29#29
+  +#28#28#28#27#27#28#26#27#26#25#26#25#25#25#26#24#24#24#24#24#24#23#23#23#23
+  +#22#23#22#22#21#21#21#22#21#21#22#21#21#21#21#20#21#20#19#20#19#19#20#18#19
+  +#19#18#19#18#17#17#17#17#17#17#17#17#16#16#17#17#17#16#16#15#15#15#15#15#15
+  +#13#14#14#14#13#14#13#14#13#14#14#13#13#12#12#13#13#13#12#12#12#12#11#12#12
+  +#11#12#12#11#11#11#11#11#11#11#11#10#10#10#10#10#10#10#10#10#9#9#10#9#9#10#9
+  +#9#10#9#10#9#10#9#9#9#9#9#9#8#9#9#8#9#8#9#9#9#9#9#9#8#8#9#8#8#8#8#8#8#8#8#7#8
+  +#7#8#7#8#7#7#7#7#7#8#7#8#8#7#8#7#7#7#7#7#7#7#7#6#7#7#7#7#6#6#7#7#7#7#7#6#7#6
+  +#6#6#6#6#6#6#6#5#6#6#5#6#6#5#5#5#6#5#5#5#5#5#6#5#5#5#5#5#5#5#5#5#4#5#4#4#4#5
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#3#2#3#3#2#2#2#2#2#2#1#2#2#1#2#2#2#1#2#2#1#1#2#2#2#1#1#1#1#1#1#1#1#1#2
+  +#1#1#1#1#1#1#0#1#1#1#1#0#1#0#0#1#1#1#1#1#1#0#1#1#1#1#1#0#0#0#1#0#1#1#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#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#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#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'000'
+  +'yyy000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000333999:::'
+  +';;;===>>>556///////////////222877877877877777777777777777777777777777667666'
+  +'766667767676676776665665655555555545555555544444445544444444434443333444334'
+  +'433333433333333333333233333322322223222222011/0/000000//0////////////.///..'
+  +'//................-...-..-..-.---.-------,,,+,,+-++,++,++,**+++++**++*+***+'
+  +'*****************************))*))*))*)))))))(())())*)))*))*))))()()))''(('
+  +'''()())((((())))()(()(((()(''((((''())()(*)*)))****)*)****)***++,,,,,+++++,'
+  +'*,,+,++,,,,0/0766777888988999;9:<;;<;:;;;:::6675545555566666666667667788889'
+  +'889999::99:::;;::;;;<;;<;;<<<<<<<;;<<<<<<<<<<<<=========<<=<==<============'
+  +'=====<==<=<<<<;;;;;;::;:;::;::::899998878778666666666656646444223223111111/'
+  +'00......---,,-++++*+))*)))((''323;;;>==???BBBCCC%%& ! '#31' '#31#31' '#31#30
+  +#30#30#29#29#29#28#28#28#28#28#27#27#27#26#26#27#26#25#25#25#24#24#24#24#24
+  +#24#24#23#23#22#23#22#21#21#21#21#22#21#21#21#21#21#21#21#21#20#21#20#19#20
+  +#19#20#19#18#19#18#18#18#18#17#17#17#17#16#17#16#16#17#17#16#16#15#15#15#15
+  +#15#15#15#15#15#14#14#14#14#14#14#14#14#13#12#12#13#12#12#12#12#12#12#12#12
+  +#12#11#12#12#11#12#12#11#12#11#11#11#12#10#10#10#10#10#10#10#10#10#10#9#10#10
+  +#10#9#10#9#9#9#10#9#9#10#9#9#9#9#9#9#9#9#8#9#9#9#9#9#9#9#9#8#8#8#8#8#8#8#8#7
+  +#8#8#8#8#8#8#7#8#8#7#8#7#7#7#8#8#7#7#7#7#7#7#7#7#7#6#7#7#7#6#6#7#6#6#6#6#6#6
+  +#6#7#6#6#6#7#6#5#6#6#6#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#5#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#3#3#3#4#3#3#3#3#3#3#3
+  ,#3#3#3#3#3#3#2#2#2#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#1#2#2#1#1#1#1#1
+  +#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#1#0#0#0#0#0#0#0#0#0#1#1#0#0#0#0#0#0#0#1
+  +#0#0#1#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#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#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
+  +#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'
+  +'00yyy0000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000000000777:'
+  +':::::<<<===>>>//////////////////6668778778777777777777777777777777776777777'
+  +'777777666776776676666666656656446556556545445454454445455444444434444334443'
+  +'443343333333323322333332322333333322221110000000/0//00/0/0//0//0////////.//'
+  +'//.///.//............-.--.---...--.-.------,--,-,+,,+,,+,++,++,+++*++****+*'
+  +'*+***************************)**********))))*)))))***)**))*)**)))))))))*))*'
+  +')))))*))*))))())()()))(()(((())))))****++*********++*,,,,,,,,,,,,,,,-,---..'
+  +',.-,-.-....00/556:9::::;;;;;;<;;<;;==<==<>>>:;;7777677778989999999:9::;<;;;'
+  +';;<<<<<<=<=<<<===>==>==?>>?==>==??>@??>??@@???@???@?@???@@@@????@???@??????'
+  +'??>>>>>>>??>>>>>>===============<<<<<<::;9:999:9898787787665565564443331112'
+  +'11001///...----,,,,+***+++,,,999>==@@@CDCDDD777###!"!!   '#31#31#31#31#31#29
+  +#30#30#29#29#29#27#27#28#27#27#27#28#27#27#26#26#26#25#25#25#24#24#24#24#23
+  +#24#24#23#23#23#23#22#21#22#21#21#21#21#21#21#20#21#20#21#20#21#20#20#19#19
+  +#18#18#18#18#18#18#17#17#17#17#17#17#16#16#17#16#17#16#16#16#17#15#15#15#15
+  +#15#15#15#15#15#13#13#14#13#13#14#13#13#13#12#12#13#12#12#12#12#12#12#12#12
+  +#11#12#12#12#11#12#11#12#11#12#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9
+  +#10#10#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#9#9#9#9#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8
+  +#7#8#7#8#7#7#8#8#7#7#7#7#7#7#7#7#7#7#6#7#7#7#7#7#7#6#7#7#7#7#6#6#6#7#6#6#6#6
+  +#6#6#5#6#6#5#6#6#6#5#6#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#4#4#4#4#5
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#3#4#4#4#3#3#3#3#3#3#3#3#3#3#2#3#2
+  +#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#1#1#2#1#2#1#2#1#1#1#1#1#1#1
+  +#2#1#1#1#1#0#1#1#1#1#1#1#1#1#1#1#0#0#1#1#1#0#1#0#0#0#1#1#1#0#0#0#0#1#1#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#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#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#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'000yyy000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000222999:::;;;===>>>'
+  +'888///////////////111877877877877777777777777777777777777777766777776777666'
+  +'776666665765666655655655554554545544445554444445444344434433433443432322333'
+  +'3323323332333323332322110010000000000000///0//000//0///0////.///....././...'
+  +'.........-..--.---.....-.----------,-,,-,+,++-,+,++,+++++++++****+**+******'
+  +'***********************))**))**********)**))*))*))*)*)********)*)**)***)*)*'
+  +'))))()(((*))*********++*+*+**++++,,,,,,,,,,,,-,,-.-.....-.-./..///001//0000'
+  +'000554;:;<<<======?>>?>>@@@@@?@@????:::;;;<;;=<<<<<<<<<====>=>>>>>????@?@@@'
+  +'A@@AAABAABAABAABABBAACBBCCCCCCBCBCBBCCCCCCCCCDDDCDDCDCCDCCDCCCCBBBCCBCCBBBB'
+  +'AAAAAAA@@?@?@????@??@>>>======<<<<;<<;;;:;:8:878778667656555445434322111001'
+  +'///-..------,,,555>>?AAACBBDEDFFF())######!""   '#31#31#31#31#31#31#30#30#30
+  +#28#28#29#27#28#28#28#27#27#27#28#27#26#26#26#25#25#24#24#23#23#23#24#23#23
+  +#23#22#22#22#23#21#21#21#20#21#21#21#21#21#20#20#21#19#20#19#20#19#19#18#18
+  +#18#18#17#18#16#17#17#16#17#16#16#17#16#17#16#16#15#15#15#15#15#15#15#15#15
+  +#14#14#14#13#14#13#14#13#13#13#12#13#12#12#12#12#12#12#12#12#11#12#12#12#11
+  +#12#11#12#11#11#11#11#11#10#9#10#10#9#10#10#9#10#10#10#9#10#10#9#10#9#9#9#9#9
+  +#9#9#9#9#8#9#9#9#9#8#9#8#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#8#8#7#8#7#8#7
+  +#8#7#7#8#8#7#7#6#7#7#6#7#7#7#7#7#6#7#6#7#7#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6
+  +#6#6#5#6#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#3#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2#3#2#2#3#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1#2#1#2#1#2#1#2#1#2#1#1#2#1#1#1#1#0#1#1#1#1#1#1
+  +#0#0#1#1#0#1#1#0#1#0#1#0#0#1#0#1#0#1#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#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#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#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'000yyy000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000666999:::<<<===>>>111///////////////444'
+  +'877877877777777777777777777777777777677777777777777667666676665665655655645'
+  +'655545555455444544554444444444444444444423333323432322332332333322221211111'
+  +'000000000000000000000///0/////00/////.//////../../.../.......-.-....--...--'
+  +'-..-.---------,,,,-,+-++-++,++,+*+*+++**+++**+*+*************************)*'
+  +')))*+*****+*******)))*)*++**+*************+)********)))))*))+**+*+,++,+++++'
+  +'++,,,,-,,--,,,,---..-.-..//...///0/0101001101222112122333445;;;???@@@@@@A@@'
+  +'BA@BBBDCBDDCCCC====>=>>>?>>???@@?A@A@A@AAABBBCCCBCBCCCCCCDCCDDCDDDECDFDDFFE'
+  +'FEFFEEFFFFEFEFFFFFFFFFFFGGFGGGFGGFFFGFGFFFEFEFFFEEEEEEEEEDDCDDDCDDCCBBBBBBB'
+  +'AAA@@@?@?>>>>>>>=>=<=;;;::;99:888777777666555454444222000///..//..///===AA@'
+  +'CCBFGGGGG:::$%%$$####"##"""!!!'#31#31#30#30#31#31#30#30#30#28#28#28#27#27#27
+  +#27#27#27#25#26#26#26#25#26#25#24#24#23#23#24#24#23#24#22#22#22#21#21#21#21
+  +#21#21#21#20#20#20#20#20#20#21#21#19#19#19#19#19#19#18#18#18#17#17#17#17#16
+  +#17#16#16#17#16#16#16#16#16#16#15#15#15#15#15#15#14#13#14#14#13#14#13#13#13
+  +#13#13#13#12#12#12#12#12#12#12#12#12#12#11#12#11#11#12#11#11#11#11#11#11#10
+  +#10#10#10#10#9#9#10#9#10#10#10#10#9#9#10#9#9#9#9#9#9#9#9#9#9#9#8#9#9#8#9#9#9
+  +#8#8#8#9#9#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#7#8#7#8#8#7#8#8#7#7#8#7#7#7#7#7#7#7
+  +#7#6#7#7#7#6#6#7#7#7#7#7#6#6#6#6#6#6#6#6#6#6#5#6#6#5#5#5#5#5#5#5#6#5#5#5#5#5
+  +#5#5#5#5#4#4#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#3
+  +#3#3#3#4#3#3#3#3#3#2#3#3#3#3#3#2#3#2#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1
+  +#1#2#2#1#2#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1
+  +#0#0#1#0#1#0#1#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#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#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#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'000yyy00000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000111888:::;;;<<<===;;;///////////////00077787787787777777777777777777777'
+  +'777767777777667776766667666666666566565565565565555555554544455545444444554'
+  +'44443333323223224234333223323222221011102111100010010000000/00000/00/////0/'
+  +'///////////././/.////....../.......-.-..----.-----.---------,,,,,,,-+,-++,+'
+  +'+,+++*++*+**+**+***************************+++*+++***++***********+*++***+*'
+  +'*******+++**+******+**+**++*++*+,++++-,-,,,---,,---,,,,---....//.///0/11111'
+  +'2111222223323333434445555666666<==AAABBBBABEDDEEEEEDGFEGGFFFFA@AABBBAABBBBB'
+  +'BCCCCCCDDDEEFFEEFFFGFFHGGHGGIGHHGGIHHIHIIIHIIHIIIIIIIJJJJIJJJJJJJJJJJJJIJII'
+  +'JJJIIJJIIIIIIIIHHHHIIHHHIGGGGGGFFFFFFEEEEEEEEEDCCCBBCBCA@BA@A@?@???=>>=>><='
+  +'=::::::998788777777545333333212/0/000999AAADDDFGFHHHIJJ,,,&%&$%%$$#####""""'
+  +'"! !'#31#31#30#30#31#31#29#29#30#28#29#28#27#27#27#27#27#26#26#26#26#24#25
+  +#25#23#23#23#23#24#23#23#23#23#22#22#22#21#21#21#20#21#20#20#21#20#20#20#21
+  +#19#19#19#19#19#19#18#18#18#17#18#18#17#17#16#17#16#17#16#16#16#16#16#16#15
+  +#15#15#15#15#15#15#15#14#14#13#14#13#13#14#13#13#13#12#12#12#12#12#11#11#12
+  +#12#12#12#11#11#11#12#12#12#11#11#11#11#10#10#10#10#10#10#10#10#9#9#10#10#9#9
+  +#10#10#9#9#10#9#9#9#9#9#8#9#9#8#9#9#8#9#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8
+  +#8#8#8#8#8#8#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#7#6#6#6#7#6#6#6#6#7#6#6#6#6#6
+  +#6#6#6#6#6#6#6#5#5#6#6#6#5#6#5#5#5#5#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3
+  +#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#2#2#1#1#2#2#1#2#2#1#2#1#1#2#1#2#1#1#1
+  +#1#1#1#1#1#1#1#1#1#0#1#1#0#1#1#1#1#0#1#0#0#0#1#0#1#0#1#1#0#0#0#0#0#0#0#1#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#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#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#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'000yyy00000000000000000000000000000'
+  ,'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000555999:::;;;===>>>333///////////'
+  +'////33387787787777777777777777777777777777777767777777777667766666567666575'
+  +'565565565565555545544555444444455444433333323333333232233232232322222121121'
+  +'110121011101110000000000000/000/0//00/////0//////.//./../..././../.......-.'
+  +'....-.-..--.----------,-,-,,,,,-++-++,++,++++++***++***********************'
+  +'*+++++++++++**+++*+*+*++++*+++*+*+*+*+,++++++++*++**,++,+,,++-,,,++,,,---.-'
+  +'-.--------..././0/////000110122222212334334444544556657767667777888889==<DD'
+  +'CEEEEEEFFFGFFHHGIIIIIHIIHEEECDCDDDEEEFEFGFGGGHHHIHHHIIIIIIJIIIIIJJJKJJLKKLK'
+  +'KLLLLLKLLLMMMMMMMMMMMLMMMMMMMMMMMMMLLLMMMMMLLLLLLLLLLLLKKLKKKKKKKKKKKKJJJIH'
+  +'IHHHGGGGGGFFFFEEDDEDCDCCCBAB@@@??@???>>?===<<<:;;9:::9977766666643432222233'
+  +'3@@@DEEGGGIIHIII?>>(((''''''&&&%%$######""""!"!!!'#31#31#31#30#30#30#29#30
+  +#29#28#28#28#26#27#26#26#26#27#26#26#25#24#25#24#23#23#23#23#23#23#23#23#23
+  +#22#22#21#21#21#21#21#21#20#20#21#20#20#20#20#19#19#19#19#19#19#18#17#18#16
+  +#17#16#16#16#17#16#16#16#16#16#16#16#16#16#15#14#15#15#15#14#14#14#13#13#13
+  +#13#13#13#14#12#12#12#11#12#12#12#12#12#12#12#12#12#11#11#11#11#11#11#11#11
+  +#10#10#10#9#10#10#10#10#10#9#10#10#10#10#9#9#9#9#9#10#9#9#9#9#9#8#9#8#9#9#9#9
+  +#8#8#8#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#8#8#7#7#8#7#7#7#7#7#7#7#7#7#7#6
+  +#6#7#7#7#6#6#7#7#6#6#6#7#6#6#6#6#6#6#6#6#5#6#6#5#6#5#5#5#6#5#5#5#5#5#5#5#5#5
+  +#5#4#5#4#4#5#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#4#4#3
+  +#3#4#3#3#3#3#3#3#3#3#2#3#3#3#3#2#2#2#3#3#2#2#2#2#2#2#2#2#1#2#2#1#2#2#2#1#2#2
+  +#2#2#2#2#2#1#1#2#1#1#2#1#1#1#1#1#1#1#1#2#1#0#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#1
+  +#0#1#0#0#0#0#1#1#1#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#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#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#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'000'
+  +'yyy000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000888:::;;;<<<======/////////////////0766877877777777777777777777777777777'
+  +'777777777777677666766666765666655655655655655555544545554554444444333333333'
+  +'3333333233223322232222212212212112111112011000010000100000000/0/0000//0/0//'
+  +'///0/////..///./././.../..............---.-.---.-------,-,-,-,,-,,,+,,+,,++'
+  +',+++*+++*++*****+*************+++++++++++++*+*++***,++++,++++++++++,,,,,+++'
+  +'+++,,,,,+---,+,-,--,,.-----...-.--.....///00000/010111222222222334343444556'
+  +'666777777878888:9:99::::;<<;<;>>?EFEHHHIIIIIHKJJLLKLLKMMLMMMHHHHHHIIIIIIIII'
+  +'KJJJKKKKKLLLMMMMLLNMMONNONNONOPOOPPPPPPPPPPPPQQQQQQQQQQQQQQQQQQRRRRRRRQQRQQ'
+  +'RRQQQRPPPOPOOPOONONONNONMMMMMMMMMLLLLLLJJJJJJIHIHGHGFFFFGFFFEDECCCCBCA@@???'
+  +'?????><=====::;9:9898767656454444=<<FFFGGGJKKKLKMLM//0)))((''&&''&&&$$$#$##'
+  +'##""!""!'#31#31#31#31#30#31#31#30#30#29#29#29#28#28#28#27#26#26#27#27#27#26
+  +#26#26#24#24#25#23#23#23#23#23#23#22#21#22#21#21#20#20#20#20#20#21#20#20#20
+  +#20#18#19#19#18#19#19#17#18#17#17#17#17#17#16#16#16#16#16#16#16#16#16#16#16
+  +#14#15#14#14#15#14#13#13#13#14#13#13#13#13#13#12#12#12#12#12#12#12#12#12#11
+  +#11#12#11#11#11#11#11#12#12#11#11#10#10#10#9#10#10#9#10#10#9#10#9#10#9#9#9#9
+  +#9#9#9#9#8#9#9#9#9#9#9#9#8#9#8#9#8#9#9#8#8#8#8#8#8#8#8#8#8#7#8#8#7#7#8#8#8#7
+  +#8#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#7#7#6#6#6#6#6#6#7#6#6#6#6#6#6#6#6#6
+  +#6#6#6#5#5#5#6#5#5#5#5#5#5#5#5#4#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#3#3#3#4#4#4#3#3#3#3#3#3#3#3#3#3#2#3#2#2#2#3#2#2#2#3#2
+  +#3#2#2#2#2#2#2#2#2#2#1#2#1#2#2#1#2#1#1#1#2#2#1#1#1#2#1#1#1#2#1#1#1#1#1#1#1#1
+  +#0#1#1#0#0#1#1#0#1#0#1#0#1#0#0#0#1#1#0#0#1#0#1#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#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#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#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'000yyy0000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000222999:::;;;===>>>767///////////////2128778778777'
+  +'777777777777777777777777777776777777777777666667666656656556556556555545555'
+  +'555455544544333433433343333233333322332322222213212212212102111011001010010'
+  +'0000000000000000//00////0///0///////./////...././/./.....-...--.------.----'
+  ,'--------,-,,,+,,,,+,,++,++,++++++******+**********+++++++++++++++++++,,+++,'
+  +'+,,++++,+++,,,,+++,++,+,,,-,,----...-.---.-./../...-..-../.0//0000001112222'
+  +'22232333444555666767777788888999;:;;:;<;==<=<<=====>>???AABHHHKKKLKLNMMNNMO'
+  +'NMPPOQQPQPQLLLLLKLLMMMMNNNOOOOOOPOOOOOQPPRQQRQQSRQTRRTSSTSSSRSTTTTTSUTTUUUU'
+  +'UUUUUTTUTTTTTTTTTTTTTTTSSSSSTSSSSSSSSSSSSSSSRRSQQQQQQPPOPPPPPONNONNNMMMMLML'
+  +'JLJIIIIIHGHGGGEEFEDECCDBBBAAA@@@??????<=<<;;999888777777777CCCIIIKKKLMLNNM?'
+  +'?@+,++++)))(((&''''%&%%$$###"#""!" !!'#31#31#31#30#30#31#30#30#30#28#28#28
+  +#27#26#27#26#26#27#25#25#25#24#25#24#23#23#23#23#23#23#23#22#23#21#21#22#20
+  +#20#20#21#20#20#21#20#21#20#20#19#18#19#19#17#18#18#18#17#17#16#17#17#16#16
+  +#16#16#16#16#16#16#16#14#15#15#14#14#15#15#14#14#14#13#13#13#13#13#13#13#13
+  +#11#12#12#12#11#11#12#12#12#11#12#11#11#11#11#11#11#11#9#10#10#9#10#10#10#9
+  +#10#10#10#9#9#10#9#10#9#9#9#9#9#9#9#9#9#8#9#9#9#9#8#8#9#9#8#8#9#8#8#9#8#8#8#8
+  +#8#8#8#8#8#8#8#7#7#7#7#8#8#7#8#7#7#8#7#7#7#7#7#7#7#6#7#7#7#7#7#6#6#6#6#6#6#7
+  +#6#6#6#7#6#6#6#6#5#5#5#5#6#5#6#5#5#6#6#5#5#5#5#4#5#5#4#5#4#5#4#5#4#4#4#4#4#4
+  +#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2
+  +#3#2#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2#2#1#2#1#2#1#2#1#2#2#1#1#2#1
+  +#1#1#1#1#1#1#1#1#0#1#1#1#1#1#1#1#0#1#1#0#0#0#1#0#1#1#0#1#1#0#1#1#1#1#1#0#1#0
+  +#1#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
+  +#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#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#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000777999:::<<<======000/////////'
+  +'//////555877877777777777777777777777777777777777777777777767766776666665665'
+  +'655655656655555555555554444433344333433343333333333322223322322222221221221'
+  +'21111110111111001000001000000/000//00/0//00///0////..////////.//../.../....'
+  +'..---.-...-..--------------,,,-,,,,+,+,,++,++,+*+*++++**+++****++++++++++++'
+  +'++++++,,,,,,+,,,,,,+++++,,,,,,,,,,++,,---.---......./...././////..0//000111'
+  +'011111222222333344445565666777777887988:99;<;;;;==<===>==@>??>?@@AAAABBBCCC'
+  +'CCCJKJNNNONORPQRQRSSRSSRTTSTTUONNOOOPQPQQQRRRSRSSTSUTTUUUUTTUUUVVUVVVWVVWWW'
+  +'XWWXXXXXXXXXXXXXXXXXXYYYYYYYYYYYYYYYYYYYYYYXXXXYYXXWWWWWVVUVUVVUUUUUVTTTTTT'
+  +'SSSRRSQQRPPPOOOOOONNNMMMLKLJJKIIIHHHGGGEEEFEECCCBBBAAA@@@???<<<;;;::9889898'
+  +'AABIIIKKKNNNPOONOO///---++++++)()''(''&&&%%&$$$####""!"! !!'#31#31#31#30#30
+  +#30#29#29#29#28#28#27#27#27#27#26#26#26#25#25#25#24#24#24#22#23#23#22#23#23
+  +#21#22#21#21#20#21#21#20#21#20#21#20#20#20#20#19#18#19#18#19#19#17#17#18#17
+  +#16#17#16#16#16#16#16#16#16#16#16#15#15#15#15#14#14#14#14#14#14#13#13#13#13
+  +#13#13#13#12#12#12#11#12#12#11#11#12#12#11#11#12#11#11#11#11#11#11#10#10#10#9
+  +#10#9#9#10#9#9#9#10#9#9#9#10#9#9#9#9#10#9#9#9#9#9#9#9#9#9#8#9#9#9#8#9#9#8#8#8
+  +#8#8#7#8#8#8#8#7#7#8#8#8#8#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#7#7#6#6#6
+  +#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#5#6#6#6#5#5#5#5#5#4#5#5#5#5#5#4#5#5#4#4#4#4#4
+  +#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#2#3#3#3#2#3#2#3#2#2#3#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#2#2#1#2#1#2#2#1#2
+  +#1#2#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#1#1#0#1
+  +#0#0#0#0#0#0#1#0#1#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000111999:::;;;<<<===999///////'
+  +'////////0018778777777777777777777777777777777777777777777777777777767766656'
+  +'666556566566565554554554444444433444334333433333333332332223322223222212213'
+  +'212212112102011011000001000000000000000///0/0///0////////////.///.////./...'
+  +'.........-.-.-.---.----.-.,-----,-,,,+,,,,+,,++,++,++++*++++*++++++++++++++'
+  +'+++++,,,,,,,,,,+,,+,,-,-,--,,,,,---,-,-.-/././/.../////////0/00./1001002112'
+  +'223333222223345555545567777778899999::<<<;<;===>==>>>@@@A@AAABBABCCCCCDDCDF'
+  +'EFFFGHGGMMMSSSSSSUSTWUVWWVWWVXXWXXXTTTSSSUUUUUUVVVWWWXWWWWWYXYZYYZYYZYZ\[Z\'
+  +'[\\[[[[[\\\\]]]\]]]]]^]]]]]\]]]]]\\\\]\\\\\\\\\[[\\[\[[\[[[[[[[[[ZZYXYXXXXX'
+  +'XXWWWVVVUUUUUUTTTRQRQQQQPQOOOONOMMMKKKKKKIIIHHHGGGFFFEEECCCBBA@@@>>>===<<<<'
+  ,';;<<<HIHMNMNNNPPPQRRABB......---+++*++)((''''''&''&#$$##$##"!""!!!'#31#31#31
+  +#30#30#30#30#30#30#29#29#29#28#28#27#26#26#26#25#25#26#24#24#24#23#23#22#23
+  +#22#23#22#21#21#21#21#21#21#20#20#20#20#20#20#19#20#20#20#20#19#19#18#17#18
+  +#17#17#17#17#16#16#16#16#16#16#16#16#16#15#15#15#14#15#14#14#14#15#13#13#14
+  +#13#14#13#13#13#13#11#12#11#12#12#12#11#12#11#12#12#11#11#11#11#11#11#11#10
+  +#10#9#9#9#9#10#10#10#10#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#8#8#8#8#8#8
+  +#9#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#6#6
+  +#7#6#6#7#6#6#6#6#6#6#6#6#6#5#6#6#5#6#6#6#5#6#5#6#5#5#5#5#5#5#5#5#4#4#4#5#5#4
+  +#5#4#4#4#4#4#5#4#4#5#5#5#4#5#4#4#4#4#4#4#4#4#4#3#4#3#3#3#3#4#3#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#2#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#2#2#2#1#1#1#2#2#2
+  +#2#1#1#1#1#1#1#2#1#2#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#1#0#1#0#1#0#0#0#1#0#0#1#0
+  +#0#0#0#1#0#0#0#0#1#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy00000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000444999:::;;;===>>>222//'
+  +'/////////////44487787777777777777777777777777777777777777777667777777677676'
+  +'666565665565565565555544444434444444433343334333333333333333332322222233232'
+  +'122122112121111111110110001000100000000000/00//00////////////////////././..'
+  +'//...............--.---.-.-------------,-,+,,+,+,,++,++,+++*+,,++,++,++++++'
+  +'++++,,,,,,,,,,,,,,,---,----,-,----.--...///./././/0//0/00000011111222221232'
+  +'2433323443444655666777888877::9:::;;;<<<===>=>>>>A@@AAABBBBBBDCCEDDFEFGFGGG'
+  +'HHIIIIIKJKKLLOOOVVVWVWXXW[YZ[[[\\[\]\\\[XXYYYXYYYZZZ[[[[[[\\\\\\]]]^]]_^^_^'
+  +'^_^_`__`````````aaa```bbaabaaaaaaabbbbaaaabaaaa`aa`a`````a______^^^^]]^]^\\'
+  +']\\\[[[[[[ZZYXXYWWWWVVVUVUTTSSSRQRPPPPPPNNNMNNKKLJKJIIIHHHGGGEDDDCDAABAAA??'
+  +'?>>><<<FFFNNNOOORRRSSSPPP121100......---*+***))((''''''%%%$$$###""""!!   '
+  +#31#31#31#30#29#30#29#28#29#28#27#27#26#26#26#26#27#26#25#25#25#24#23#24#23
+  +#22#23#23#23#22#21#22#21#20#20#20#20#20#20#20#20#20#20#20#20#19#18#19#17#17
+  +#17#17#17#17#16#16#16#16#16#16#16#15#16#16#16#15#15#15#15#15#14#15#13#13#13
+  +#13#13#13#13#13#13#11#12#12#11#11#12#12#11#12#11#11#12#11#11#11#11#11#11#10
+  +#10#10#10#10#10#10#10#9#9#10#10#9#9#9#9#9#10#9#9#9#9#9#9#8#8#8#9#9#8#8#9#8#8
+  +#9#9#8#8#8#8#8#8#8#8#8#7#8#7#8#7#8#7#8#8#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#7#6#7
+  +#7#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5
+  +#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#5#4#5#4#4#4#4#4#4#4#4#3#3#3#4#3#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#2#3#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1
+  +#1#1#2#2#1#2#1#2#1#1#2#1#1#1#1#1#1#1#1#1#0#1#1#0#1#0#1#1#1#0#1#1#1#1#0#0#0#0
+  +#1#0#1#0#0#1#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000111777999:::<<<===<<<////'
+  +'/////////////07778777777777777777777777777777777777777777777777777766767666'
+  +'666567566556566554444444444444444444333334433333333333333333323322332323322'
+  +'21221322211211201210110100001000000000000000///00/////////////././////////.'
+  +'./../../...--...-...--.----------,-----,,-,,,,,,++,++,++-,,,+,,,+++,++++,+,'
+  +',,,,,,,,,,,,,,------------.-./.....//0////////0//00000001112123222234444344'
+  +'33544666666777888888999:::<;<<<====>?>???AA@AAABBBBCBDDDEEEGGGGGGHHHJIIKJKK'
+  +'KLMMMMMNNONPOOSSS[[[\[\]\]]]\___``_aa````\\\]\\^]]^^^_```__```baabaabbbcccd'
+  +'cccccdddeeeeeeeeeeeeeeeeeefffffffffeeeffeefeeefeeedddddccdddccbbbbbbbbb`aa`'
+  +'`a___^^^]]]]]][[[ZZZZYZXWXWWWVUVTUUSSSRRRPPPPPPNNMMNMKKKJJJIIIGHGEDECCCBBBA'
+  +'AA@@@A@AOOOQQQSSSTTTUVVAAA333100000......+++*+*)))''''''&&&%%$$#####!!!!!!'
+  +#31#31#31#30#30#30#29#30#29#29#29#29#26#26#26#26#26#26#25#25#25#24#24#24#23
+  +#23#23#22#23#22#21#22#21#21#20#20#20#20#20#20#20#20#20#20#20#19#19#19#19#19
+  +#18#17#17#17#16#17#16#16#16#16#16#16#16#16#15#16#14#15#15#15#15#15#13#14#13
+  +#13#13#13#13#13#13#12#11#12#11#11#12#11#11#11#11#12#11#11#11#11#11#11#11#10
+  +#10#9#10#9#9#10#9#9#10#10#9#9#9#9#10#9#9#9#9#9#9#9#9#9#8#9#8#9#9#8#9#8#8#8#8
+  ,#8#8#8#8#9#8#8#8#8#7#8#8#8#7#8#8#7#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#6#7#6#6#7#6
+  +#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#5#5#5#5#5#5#5#4#5#4#5#5#5#5#5#4#5#5#4
+  +#5#4#4#5#4#4#5#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3#4#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#3#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#2#2#2#1#2#1
+  +#2#2#1#2#1#2#1#1#1#1#1#2#1#1#1#1#1#1#1#0#1#1#1#1#1#1#0#1#0#0#0#1#0#0#1#1#1#0
+  +#1#0#1#0#0#0#0#0#0#0#0#0#0#1#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#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#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#0#0#0'000yyy00000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000333777999;;;===>>>555///////////'
+  +'////33387777777777777777777777777777777777777777777777777677677676676665666'
+  +'565645445444444444344444443444434343333333333332332323332323232222222132222'
+  +'12212112111112001110100000000000000/0/0/0/0///////////////.////.//.....//..'
+  +'..........-...-.-.--------,----,,,-,+,,+,++-,,-,,,,,,,+,+,+++,-,,,,,,,,,,,,'
+  +',------------...////////////10100000011011111233433344444445555565676687788'
+  +'7888999:;:;;;=========?>>@@@AABBBBCBCDDEEFEHGHHHHIIIJJJKKLMLMNMNNNNOOPPOPRR'
+  +'RRRRTUUXXX___```a`ababccbeedeedeee```aaabbbdccdccdddfddfefgffgffggfhhhiihii'
+  +'hiiiiiiijjkkkkjkjjjjjjjjjjjjjijjiijiiiiiiiiiiihhhghggghffffffdeddddccccccbb'
+  +'b``a`_`^^^^]^]\]\[\YYYYYYWWWVVVTTTRSSRRRPPPOOOMMMLLLJJJIHIGGFEEECCCCCCAAALK'
+  +'KRSRTTTVVVXXXONO656434222010///...,,,+,+***(((''''''&%&#$$###""#!"!   '#30
+  +#31#31#29#30#29#28#28#29#28#28#28#26#26#26#26#26#26#24#24#24#23#23#23#23#23
+  +#22#21#21#22#21#21#21#20#20#20#19#20#20#20#20#20#18#18#19#19#18#18#17#17#17
+  +#16#17#16#15#16#16#16#15#16#16#15#16#14#15#15#15#14#14#13#13#13#13#13#13#13
+  +#13#13#12#12#12#11#12#12#12#11#11#11#11#11#12#11#11#11#11#11#10#10#10#10#10
+  +#10#10#10#10#9#9#9#9#9#10#10#10#9#9#9#9#8#9#9#8#8#9#9#8#9#9#9#8#8#8#8#8#8#8#9
+  +#8#9#8#8#8#8#8#8#7#8#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#6#6#6#7#6#6#6#6
+  +#6#6#6#6#6#6#6#6#6#5#6#5#5#5#5#6#5#5#5#5#5#5#4#5#5#4#5#5#5#5#4#5#5#5#4#5#5#5
+  +#5#5#4#5#4#4#5#4#4#4#4#4#4#4#4#3#4#4#4#4#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#2#2#3#3#2#3#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#1#1#2#2#1#1#2#1#2#2#1
+  +#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#0#1#0#0#0#0#1#1#1#1#1#0#1#0#0#0#0
+  +#0#0#1#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#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#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
+  +#0#0#0#0#0#0#0'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000555888:::<<<>>>???000///////////////6668777'
+  +'777777777777777777777777777777777777777776777767766766657566654444445444444'
+  +'444444444443434343434334343333433333323333232233333322322212222212211112012'
+  +'102011100001000000000000/0//0//0/0//0/////////.//../../......./............'
+  +'-.-...-----------,---,,,,+.-,-,,-,,-,,-,+,,+-,--,-,-,,,-,,,------------.../'
+  +'//////00///110101111111122233433333454555555656878777989988:99;;:;;:<=<===>'
+  +'>>???AAAAAACCCCDCEFEFFFHHHHHHIIIJKJLLLMMMNNNPOPQQQRQRTSTTTTUUUVUVWWXXXX^^^c'
+  +'cceeeeddgffihhjjijjighhfeegggggghhhhhhiiijjjkkjlkklkklklmllnmnmmnmmmnnnnnmo'
+  +'oooonoonnnnoooooonnnnnnnnnnnnmmmlmmllllkkkkkjjjijjihihhhhghfffeeeddddccbbca'
+  +'`a___^^^]]]\[\YYYYYYWWWVVVTTTSRRQQQPPPNNNMMMJJJIIJGGGFGFEEDHGISSTUVVWWWYYY['
+  +'[[===6766563331110/0///...--,++*)))''''''&''&%%%##$###!!!!!!'#30#31#31#30#30
+  +#29#30#29#29#27#27#27#26#27#26#26#26#26#25#25#25#24#24#24#22#22#22#22#22#22
+  +#21#21#21#20#20#20#20#20#20#20#20#19#19#18#19#18#19#18#17#17#17#17#16#16#16
+  +#16#16#16#16#16#16#16#15#15#14#14#14#15#15#13#13#13#13#13#13#13#13#13#12#12
+  +#12#12#12#12#11#11#11#12#11#11#11#11#11#11#11#11#10#10#10#9#10#9#10#9#10#10
+  +#10#9#10#9#10#9#9#10#9#9#9#9#9#8#9#9#8#9#8#9#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8
+  +#7#8#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#7#7#7#6#6#6#6#6#6#6#6#6
+  +#6#6#6#6#5#6#5#6#5#5#5#5#5#5#4#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#5#4#5#4#4
+  +#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2#3#3#2#3#2
+  +#2#3#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2#2#1#1#2#1#1#1#2#1#2#2#1#1#2#1#1#1#1#1#1#2
+  +#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#1#1#0#1#1#1#0#0#0#1#1#0#1#0#0#0#0#1#0#0#1#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#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#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#0#0'000'
+  +'yyy000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000555888:::<<<>>>===/////////////////0777877777777777777777777'
+  +'777777777777777777777777777776766776765766555544444454444444444444444444444'
+  +'334444433433343333333333233333323233222222221222221221111200211100100000100'
+  +'0000000/0000/00/////0/0/////////////..././/...............-.--...--.-.-----'
+  +'-----,-.---,--,--,-,,-,,.---,--,-,-,,,,------------...///000000000111100112'
+  +'111222233434434444555555777878999999:99;:;<<;=<<===>=>???@@@BCBCCCCDDEEDFFF'
+  +'HGGHHHJJJKKKMMMMMMOPOPQPRRRSRRTTTUUVVUVXXXXXY[Z[[[[\]\]]]eddhhhjjjjjilllmml'
+  +'oonoonllljjjlllmmmmmmnnnonoooopppqppqppqqqrrrrrrsrrrrrrrrsssssssssttttttttt'
+  +'stsrrsrrsrrsqqqqqqqqqppppppooonnnnmnmlmlllkkkjjjiiihgggfgeeedcdcbcaaa`_`^^^'
+  +']\\[[[YYYYYXVWVUUVSSSRRRQQQNNOLLLKKKIIIHHHHHHSSRYXYYYY[\[]]]NNN999888767444'
+  +'4331110/0.....-,++***(((&&''&%&#$$###"""! !   '#29#29#29#29#29#29#28#28#28
+  +#26#26#26#26#26#26#25#25#25#23#23#23#23#23#23#22#22#22#21#21#21#20#20#20#20
+  +#20#20#20#20#19#20#19#20#19#18#19#17#18#17#16#17#16#16#16#16#16#15#16#16#16
+  +#16#15#14#14#15#15#14#14#14#13#13#13#13#13#12#13#12#11#12#12#12#12#12#11#12
+  +#12#11#12#11#11#11#11#11#11#10#10#10#10#10#10#9#9#10#9#10#10#9#9#9#9#9#9#9#9
+  +#9#9#9#9#9#8#9#9#8#8#8#8#9#8#9#8#8#8#8#8#8#8#8#8#8#7#8#7#8#7#7#7#7#8#7#8#8#7
+  +#7#7#7#7#7#7#7#7#7#7#7#6#6#6#6#7#6#7#6#6#6#6#6#6#5#6#5#5#5#6#5#6#5#5#5#5#5#5
+  +#5#5#5#5#5#4#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#5#4#4#4#4#5#4#4#3#4#4#4#4#4
+  +#3#3#3#3#3#3#3#3#3#2#3#3#3#3#3#2#3#2#3#2#3#3#2#2#2#2#2#3#2#2#2#2#2#3#2#2#2#2
+  +#2#1#2#2#2#1#2#2#1#2#1#2#1#2#2#1#1#1#1#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#0#1#1#0#1#1#1#1#1#0#1#0#1#1#0#1#0#1#0#1#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#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#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#0#0#0'000yyy000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000222555777:::<<<>>>'
+  +'333///////////////444877877877777777777777777777777777777777777777777777777'
+  +'776776766666534543544444444444444445443444444443433344433433333434333323333'
+  +'333233332322232222222221221111111210200100001011000000//000/0///0//0/0/0///'
+  +'//////////././//..../......-..-.-.......--------........----.-,-,,.--.--.--'
+  +'-----,.-----------...///000000000111111112222332333444555555655666777888999'
+  +':99;;:;;<<;<>=>>>=@??@??BBBBBBCCCDDDFFFHHHIHIJIIKLKMMMNNNONOQQPSRRTTTTUTVVV'
+  +'XXXYYYZZZ[[[]]]]]^_^_aaabbbcbbiiimmmonnonorqprrqssrttsqpqoooqqqrqqsrrssrttt'
+  +'uttuuuvvvvvvwwvwwwwwwxxxxxxxxxxxwyxxyxxyxxxxxxxxxxxvwvwvwvvvvvvvuvuvuttusss'
+  +'sssrrrqqqpppooonnnmmnllljjkjijhhhgggeeedddbbbaaa_`__^_\\\[[[YYYXWXUVUTTURRR'
+  +'OPPOONMLLLKKJJJPPP[[[^]^___aa````???:::999787565333112/00///.--,,,+**)))&'''
+  +'''&%%%$%###"""! !  '#31#31#31#31#30#29#30#28#29#29#28#27#27#26#26#26#25#25
+  +#25#24#23#24#22#23#22#22#22#22#21#21#21#20#20#20#19#20#20#20#20#20#20#20#20
+  +#18#19#18#18#17#18#16#16#17#16#16#16#15#16#16#16#16#15#14#15#14#15#14#14#14
+  +#13#14#13#13#13#13#13#13#12#12#12#12#11#11#11#12#11#11#11#12#11#11#11#11#11
+  +#11#10#10#10#10#9#10#9#9#9#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#9#9#8#8#8
+  +#9#8#8#9#8#8#8#8#8#8#8#8#7#8#8#8#8#8#7#7#8#7#7#7#7#8#7#7#7#7#7#7#7#6#6#6#6#6
+  +#6#6#6#6#6#6#6#6#6#5#5#5#6#5#6#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#4#4#5#4#4#4#4#4#4#4#4#4#3#4#4#3#3#4#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3
+  +#2#3#3#3#2#3#2#2#2#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2#2#2#2#1#1#2#2
+  +#1#1#1#2#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#1#1#1#1#0#1#0#1#1#0#0#1#0
+  +#1#1#0#1#0#0#0#0#1#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#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#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'000yyy0000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  ,'00000000000000000000000333555888:::<<<:::///////////////0018778778778777777'
+  +'777777777777777777777777777777777777777777767766664344445334444444544544444'
+  +'454444444344444344443434343333333333333333233333332232223222222222212212111'
+  +'111102101100000100000000000//////////0/00///////.././/./...//.../..........'
+  +'-.-..--..--.........-....---,....--.--.-,---....-.---......///0000000001111'
+  +'1122221233244345465655556667698888999:;::;;;===>>>?>>???A@ABAACCCCCCEEDEEEG'
+  +'GGHHHIIILLLLMMNNNOOOPPPRSSSSSTTUWVVYXXYYY[[[\\[^^____```babbbcedeeefggghhho'
+  +'oossssrsvutvvuxxwxxwxxxttuvuuwvvwvvxwwyyyyxyzyy{{z{{{{{{|||}|}|}|}}}}}}}}}}'
+  +'}}}}}}}|}|||||||||||||||||{{{{{{zzzyyyyyyxxxwwwvvvuvvtttsssrrrqqqpopnnnmmml'
+  +'lliiihhhgggfefccdbbbaaa___^^^[[[ZZZXYXUUUTTTRQRPQPOOOONNPPP^^]```cccefefgfM'
+  +'MM===<<<999898666444232110/00...-.-+++***(((''&''%%%######!!! !!'#31#31#30
+  +#29#30#30#28#29#29#27#27#27#26#26#26#25#24#24#23#24#24#22#22#22#23#23#23#21
+  +#22#21#20#20#20#19#20#20#20#20#19#20#19#19#18#19#18#17#17#17#17#17#17#16#16
+  +#16#16#16#15#16#15#16#14#14#14#15#14#14#14#13#13#13#13#13#13#13#13#12#12#12
+  +#12#12#12#11#11#11#11#11#11#11#11#11#11#11#11#10#10#10#9#10#10#10#10#10#9#10
+  +#10#9#9#9#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#8#8#9#8#8#8#8#8#8#8#8#8#7#8#7#7
+  +#8#7#8#7#8#8#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6
+  +#6#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#4#5#5#5#4#4#5#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#3#2#3#3#2#3#2#2
+  +#2#2#2#2#2#2#2#2#1#2#2#2#1#1#2#2#1#2#1#1#2#1#2#2#1#1#2#1#1#1#2#1#1#1#1#1#1#1
+  +#1#1#0#1#1#1#0#1#1#1#1#1#1#1#0#1#1#0#1#1#0#0#0#0#1#0#0#1#0#0#0#0#1#0#0#0#1#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#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#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'000yyy0000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000111444666888;'
+  +';;===222///////////////5558778778778777777777777777777777777777777777777777'
+  +'777777777777665544444444445444434445454455544544444444444344444444444344333'
+  +'333333333332333233322233322222212222212212112012111011100010010000000/00///'
+  +'//////0///////////////.////.//............-.-..-..-../.........-..-.././...'
+  +'.-..-.--/../-..-....//.//0000000000111111222222333555545656666666777999:::9'
+  +':::::<<<>==>>>???@@@BABCBCDCCEDDFEEHGHHHHJJIKKKLLLNNNONOPQPRRRSSSUUUWWWYYYZ'
+  +'ZY\[[]]]___`````adcdedefefggghhiiijjjklmmonnuuuxxxxwx{zz{{z}}|}}|}}}zyy{zz|'
+  +'|{}||~}}~~~}~'#128#128''#129#128#129#128#128#129#128#128#128#128#129#129
+  +#130#130#130#130#129#129#130#130#130#131#130#130#130#130#130#130#130#130#130
+  +#130#130#130#130#130#130#130#130#130#130#130#130#130#130#130#130#130#129#129
+  +#129#129#129#128#128''#128'~~~~~~~~~~~}{{|{{{zzzyyxxyyvvvuuutttsrsqqqooonnn'
+  +'lllkkkiiihhhfffeddcdcbbb`_`^^][[[Z[[WWWVVVUUUSSSSTSYYYcccfffhhhjjjjjkaaa@@@'
+  +'???;<;;:;999777666333121/00///--.+++***''''(&''''%%%######""!   '#31#30#31
+  +#30#29#30#30#29#29#27#27#28#26#26#26#26#26#25#23#23#24#23#22#23#22#22#22#21
+  +#22#21#20#20#20#19#20#20#19#20#20#20#19#20#18#18#18#18#18#18#16#16#16#16#16
+  +#16#16#16#16#16#16#16#15#15#14#14#14#14#13#13#13#13#13#13#13#13#13#12#12#12
+  +#11#12#11#11#11#12#11#11#11#11#11#11#10#10#10#9#9#10#10#9#9#9#10#10#9#10#10#9
+  +#10#9#9#9#9#8#9#9#9#9#9#9#9#8#9#8#9#8#8#8#8#8#8#8#8#9#8#8#8#8#8#8#8#7#8#7#8#8
+  +#8#7#7#7#7#7#7#7#7#7#7#7#6#6#6#6#7#7#6#6#7#6#6#6#6#5#6#6#6#6#5#6#5#6#6#5#6#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#5#4#4#5#4#5#4#4#4#5#4#4#4#3#4#4#4
+  +#4#3#3#4#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#2#3#2#2#3#3#3#2#3#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#1#1#1#2#2#2#2#1#2#2#1#2#2#1#1#1#2#1#2#2#1#1#1#2#1#2#1#1#1#1#1#1
+  +#1#1#1#1#1#0#0#1#1#0#0#1#0#1#0#1#0#1#0#0#0#0#0#0#0#1#0#0#0#1#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#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#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'000yyy0000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000333444777999<<<:::...////'
+  +'////////1118878778778778778777777777777777777777777777777777777777777777775'
+  +'554444434444435444434445445444454444444444444444434333443433433433433333332'
+  +'32333233333323332332222221221211111110211211101000000000000000/0/0/0000/0//'
+  +'///////.///.././/../..........---..-.-.......---.------,.,---,-,,,,--------'
+  ,'-,--,......//00/0000111111222222444555555665676666898:99:::;;;:;;===>=>>>>?'
+  +'??AAABBBDDDDDDFEFGFGHHHJIIKJKMMLMNMONOQRQSSSSSSVUVXWWXXXZZZ\\\^^^___`a`cbbd'
+  +'ddeeeffghhhjjjkjkmmmmmmoooqqqsrsvuv||{|}|~~~'#128#128''#129#128#129#130#130
+  +#129#131#131#130#129#129#129''#129#128#128#130#129#129#130#129#129#132#131
+  +#131#132#131#131#132#132#132#133#133#133#133#134#133#133#133#133#134#134#134
+  +#135#135#135#135#135#134#136#135#135#135#136#136#135#135#135#135#135#135#135
+  +#135#135#135#135#135#135#135#135#135#135#135#135#135#135#135#135#135#134#134
+  +#134#133#133#134#133#133#133#132#132#132#132#132#132#131#130#130#130#129#130
+  +#129#128#128#128#128#129'~~~}|}{{{{{{yxyxwxvvvuuusssrrqpppooomlmkkkiiiggg'
+  +'fffcccaba`_`^]]\\\[[[YYYYYY]]]fffjjjlllmmmpppooo^]^DDDBBB???>>><<;:::888766'
+  +'34433311000/---,,,***)))''''''&%%######!"!!!! '#31#31#30#30#29#29#29#29#28
+  +#27#27#26#26#26#26#26#26#25#24#25#22#22#23#22#22#22#21#21#22#20#20#20#20#20
+  +#19#20#19#20#19#20#19#19#18#18#17#17#17#16#16#16#16#16#16#16#15#15#15#16#15
+  +#14#15#15#14#14#14#13#13#14#13#13#13#12#12#12#12#11#12#12#12#12#11#11#11#11
+  +#11#11#11#12#11#10#10#10#10#10#10#10#10#9#9#10#10#10#9#10#9#10#9#9#9#9#9#9#9
+  +#8#9#9#8#9#8#9#8#8#8#8#8#8#9#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#7#8#7#7#7#7#8#7#7
+  +#7#6#7#7#7#7#6#7#7#7#7#6#6#6#6#6#6#6#5#6#5#6#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#5#5#5#4#5#5#4#5#4#4#5#4#4#4#4#4#4#4#4#3#4#4#4#3#4#4#4#4#3#3#4#3#3
+  +#3#3#4#3#3#3#3#2#2#3#3#3#3#3#3#2#3#2#3#2#2#2#3#2#2#2#3#2#3#2#2#3#2#2#2#2#2#2
+  +#2#1#2#1#2#2#2#2#2#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1
+  +#1#0#1#1#0#0#0#1#1#1#0#1#0#0#1#1#0#1#0#1#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#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#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'000yyy00000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000111444555888:::===222///////////////65588787787787'
+  +'787787777777777777777777777777777777777777777777766644444444443343444454444'
+  +'555554544444444545444444444444443334443333343433333333333323322323333232222'
+  +'232222222122121111120020110000001000/0000/0//0/000//0/0///0//.//////.///./.'
+  +'....//..----,.-.----.---.-..---....--.,--,,..---.------.-././//00//0//0000/'
+  +'0101111333555555666777777998::::::;;<<<<>>>?>>??@@AABBBCCCDDDEFFFFGHHHIIIKJ'
+  +'KMLLNMMOONQQQRRRSSTUUUWWWXXX[[[[[[]]]___aaabccdddfefgggiiikkklllmmmpppqqqrr'
+  +'rsstuuuvwwyxy{{{'#130#129#129#131#131#130#133#132#132#134#134#134#136#135
+  +#135#136#136#135#138#138#137#133#133#133#134#133#133#134#134#134#135#135#135
+  +#136#136#136#137#136#136#137#137#137#138#138#138#139#138#138#138#138#138#139
+  +#139#139#140#140#140#140#140#140#141#141#141#141#141#141#141#141#141#141#141
+  +#141#141#141#141#141#141#140#141#141#141#140#140#141#140#140#141#140#140#140
+  +#139#139#139#139#139#139#138#138#138#137#137#137#137#137#137#136#136#136#135
+  +#135#135#134#134#134#133#133#133#133#133#132#131#131#132#130#130#130#128#128
+  +#128#128#128#128'~}}}{{{zyzxxxvvvtttsssqqqpopnmnklkjjjhhheeedddccb``a^_^^^'
+  +'^bbbkkkmmmppprrrtttuuucccHHHFFFDDDCCCAAA???<<<:;:999777455322122///...---++'
+  +'+**)''''(''''&$$$###!""!   '#31#31#30#29#30#29#29#29#29#28#28#26#26#26#26#25
+  +#25#24#25#24#23#23#22#22#23#22#21#21#21#20#20#20#20#20#19#20#20#20#19#19#20
+  +#18#18#19#17#17#17#16#16#16#16#16#16#16#15#15#16#16#16#14#15#14#14#14#14#14
+  +#13#13#13#13#13#12#12#12#12#11#12#12#11#11#11#11#12#11#11#11#12#11#11#10#9#10
+  +#10#10#10#9#9#10#9#9#9#9#9#9#10#9#10#9#9#9#8#9#9#9#9#8#9#9#8#9#9#8#8#8#8#8#8
+  +#9#8#8#8#8#8#8#8#8#8#8#7#8#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#7#7#6#6#6#6#6#6#6#6
+  +#6#6#6#6#6#6#6#6#6#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5
+  +#5#4#4#4#5#4#4#4#4#4#4#4#3#4#3#4#4#4#4#3#4#4#3#4#3#4#4#3#3#3#2#3#3#3#3#3#2#2
+  +#3#3#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#1#1#2#1#1#1#2#2#2#1#2
+  +#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#1#1#1#0#1#1#0#1#0#1#1#0#1#1#1
+  +#0#0#0#0#0#0#1#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#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#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'000yyy00000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000022244466'
+  +'6999;;;:::...////////////22288788787787787787787777777777777777777777777777'
+  +'777777777777777644444444444444444443445554555545444545444455444444444344444'
+  ,'344434344333433433343333333333233333332332233222122122122121021010120010000'
+  +'00000000000000/0/////////0/////.///////...-.-.----.-....-.--.--...---./....'
+  +'.....--/.-/--...---...///0000/0000000010211212323333333444666777999:::;::;<'
+  +';<<<>>>???@??@AACCCCDCDDDFFFHHHIIHJJJLMLMMMONOQPPRRRSSSUUUWWVXXXZZZ\\\]]]`_'
+  +'_bbacccdddfffghgiiiklknmnoooppprrrtstuuvwwwxxxyyz{{{|}}~~'#132#132#132#135
+  +#135#135#137#137#137#138#138#137#139#139#138#141#140#139#142#142#142#141#141
+  +#141#139#139#139#139#139#139#140#140#140#141#141#141#142#142#142#142#142#142
+  +#143#143#143#144#144#144#144#144#144#145#145#145#145#145#145#145#145#145#146
+  +#146#146#146#146#146#146#146#146#146#146#146#146#146#146#145#145#146#145#146
+  +#146#146#146#146#145#145#145#145#145#145#144#144#144#144#144#144#144#144#144
+  +#143#143#143#142#143#143#141#141#141#140#140#140#140#140#140#139#138#139#137
+  +#137#137#136#136#136#136#136#136#134#134#134#133#132#133#131#131#131#130#129
+  +#130#128''#128'~~~}}}|||yyzxxxvvvtttrrrqqqmmmlllkkkhhhgfgeeeeeegghpppqqqttt'
+  +'vvvyyyzzziiiNNNMMLJKKGGHEEFDDDBBB??@=>=<<;:::888656443211//0///---+++))*((('
+  +'&&&$%$##$##"!!!   '#30#30#31#29#29#29#28#28#28#26#25#26#26#26#26#24#24#25#23
+  +#23#24#22#22#22#21#21#21#20#20#20#20#20#20#19#19#20#19#20#20#18#18#18#17#17
+  +#18#16#16#17#16#16#16#16#16#16#16#15#15#15#14#14#14#15#14#13#13#13#13#13#13
+  +#12#11#12#12#11#11#11#11#12#11#11#11#11#12#11#11#11#11#10#10#10#9#10#9#10#10
+  +#10#9#9#9#10#9#10#9#9#10#9#9#9#9#9#9#9#9#9#9#9#8#9#9#8#9#8#9#8#8#8#8#8#8#8#8
+  +#8#8#7#7#8#7#7#8#7#7#7#7#7#7#7#7#6#7#7#7#7#6#6#6#7#6#6#7#6#6#6#6#6#6#6#6#6#6
+  +#5#6#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#3#4#4#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#3#3#2#2#3
+  +#3#2#2#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#2#1#1#1#2#2#2#1#1#1#2
+  +#1#1#2#1#2#1#1#1#0#1#1#1#1#1#1#0#0#1#1#0#0#1#1#1#1#1#0#0#1#0#0#0#0#0#1#1#1#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#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#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'000yyy00000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000111444555888:::<<<222////////'
+  +'///////77688788788787787787787787777777777777777777777777777777777777755544'
+  +'444444444444444455455554454555455544454454444444444444444443444443333434433'
+  +'33333333333333332332322322322223212222212212112111002001000000000000/000//0'
+  +'00/0000//////////......-..-.-----.............-...//.................-.-.//'
+  +'.///00000000/001100111222333435434444555666777888:::;::<<=??????@@@BBCBCBDD'
+  +'DFEEGGHHHHIIILLLMMMNMNQQPRQRSRSUSTWWWXXXZZY[[[]]]___aaabcbeddgffhhhiiikllmm'
+  +'noooqpptssuuuvvvxwx{z{|||}}}'#128#128#129#129#129#129#132#132#132#133#133
+  +#133#139#139#139#142#142#142#143#143#143#144#144#144#145#144#144#147#146#146
+  +#148#148#147#146#146#146#145#145#144#146#146#146#147#147#147#147#147#147#148
+  +#148#148#148#148#148#149#149#149#149#149#149#150#150#150#151#151#151#151#151
+  +#151#151#151#151#151#151#151#151#151#151#151#151#151#151#151#151#151#151#151
+  +#151#151#151#151#151#151#151#151#151#151#151#151#151#151#151#150#150#150#149
+  +#149#149#147#148#148#147#148#148#147#147#147#146#146#146#145#145#145#144#145
+  +#145#143#143#143#142#142#142#141#141#141#139#139#139#138#138#138#136#136#136
+  +#135#135#136#133#133#133#132#132#132#130#130#130#128#128#128'||}||{zyzwww'
+  +'uuussspqpnnommmkkkkkkmmmuuuwwwxxx{{{}}}~~~nnnUUURRRPPOMMMKLLIJIGGGDDDCCCA@A'
+  +'???<<<:::999666555332000///---,,,)**''''''&&&$$%#####"!!!'#31#31#31#30#31#30
+  +#29#30#29#28#28#28#26#26#26#25#25#26#24#25#24#23#24#24#22#22#22#21#21#21#20
+  +#20#20#20#19#20#20#20#20#19#19#20#19#18#18#17#17#18#17#16#16#16#15#16#16#16
+  +#15#15#14#15#14#15#14#13#14#13#13#13#13#13#13#13#12#12#12#12#11#11#11#11#12
+  +#11#12#11#11#11#12#11#10#10#10#10#10#10#9#10#9#10#9#10#9#9#10#10#10#9#10#10#9
+  +#9#9#9#9#9#8#9#9#9#9#9#8#8#8#9#9#8#8#8#9#8#8#8#8#8#8#8#8#8#7#7#8#7#7#7#8#7#7
+  +#7#7#7#7#7#6#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#3
+  +#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#3#2#2#2#2#3#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#1#2#1#2#2#2#1#1#2#2#2#1#1#1#1#1#1#2#1#1#1#1#1#1#2#1#1#1#1#2#1#1#0#1#1
+  +#1#1#1#1#0#0#0#0#1#0#0#0#0#1#0#0#1#0#0#1#0#0#1#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#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#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'000yyy0000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000222444777999;;;;;;...////////////2128888878878878778778778778'
+  +'777777777777777777777777777777777776664444444444444444444445556556555545555'
+  +'554454445444554444444444444444334434344433433333433333333333332332333233322'
+  +'222212212212212111112111111000100000000/00/0000/0//0///./../../.....-...-..'
+  +'/.../......-..../////../.....///////..0./00/0001010001111011211223334544545'
+  +'46666666777888999:::<<<===?>>AAABBCCCCEEEFFFGGHIHHKJKLLLNNNOOOQQQRSSUTTWUVW'
+  +'WWZYY\[[]]]_^^```cccdddfffhhhjjilmlnnnooorrqtttvvvxwxyyy{{{}}}~~'#128#128
+  +#129#130#130#130#131#131#132#133#133#133#134#134#135#136#136#136#138#138#138
+  +#141#141#140#147#147#147#148#148#148#149#149#149#150#150#149#152#151#152#153
+  +#153#152#154#154#153#151#151#151#151#151#151#152#152#152#152#152#152#154#154
+  +#154#155#155#155#155#155#155#155#155#155#156#156#156#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#158#157#157#158#157#157#157#158#157
+  +#157#157#157#157#157#156#156#156#156#156#156#156#156#156#156#156#156#155#155
+  +#155#154#154#154#153#153#153#153#153#153#152#152#152#150#150#150#150#150#150
+  +#148#148#148#147#147#147#146#146#147#144#144#144#143#143#143#142#141#142#141
+  +#140#141#139#138#139#138#137#138#135#135#135#134#134#134#132#132#132#130#130
+  +#130#128#128#128'~~~|||zzywwxvvvsttrrrrrrttu{{{}}}}}}'#128#128#128#130#130
+  +#130#130#130#130'tttYYYXXXVVVSSSQPQNNNMMMJKJGGGEEEDDDBAA???<<=<;;99976744522'
+  +'2000///---,+,)*)(((&''''%%%######!!! '#31' '#30#31#30#29#29#30#28#28#28#26
+  +#26#26#25#26#25#24#24#25#22#23#22#22#22#22#21#21#21#20#20#20#20#19#20#20#20
+  +#20#18#18#18#19#19#18#17#17#17#16#16#16#16#16#16#15#15#16#14#14#14#15#15#15
+  +#13#14#13#13#13#13#13#13#13#12#12#12#11#12#12#11#11#11#12#12#11#11#12#11#10
+  +#10#10#10#10#10#9#10#10#10#10#10#10#10#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#8#9
+  +#9#8#8#8#9#8#8#8#8#8#8#8#8#8#8#7#8#8#7#8#7#7#8#7#7#7#7#7#7#7#7#6#6#7#7#6#6#6
+  +#6#6#6#6#6#6#6#5#5#6#6#6#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4
+  +#5#5#5#5#4#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#2#2#2#2#3#2#3#2#2#2#2#3#3#2#2#2#2#3#2#3#2#2#2#2#2#2#2#2#2#2#1#2#1#1#2
+  +#2#2#2#2#2#2#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#0#0#1#0
+  +#1#1#1#0#0#0#1#0#0#1#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#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#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'000yyy0000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000111444666888:::<'
+  +'<<444...////////////6558888888878878778778778778777777777777777777777777777'
+  +'777777774444444444444444444445556556556555555545545545444444545444444444444'
+  +'444444333444443343333443333333333333333323322332322222212212212212102112101'
+  +'10100110000000000/0/0/0//0////../../../...-.//././...//../...././////.////0'
+  +'00000000111222222322222323222221222434554454655766767989889999:::<<<===>>>?'
+  +'??A@@CCCEEEGGGHHHJJJLKLMMMOOOQPPRRRSRSVVUWWWZZZ[[[\\\_^^a_`bbbdcceeehhhjjjl'
+  +'llnnnppprqqtttvvvwxxyyy|||}~}'#128#128#128#129#129#129#131#131#131#132#133
+  +#132#135#135#135#137#137#137#138#138#138#140#139#140#141#141#141#142#142#143
+  +#144#144#145#148#148#149#153#153#153#154#154#154#155#154#155#157#157#157#158
+  +#156#157#160#159#158#158#158#158#157#157#157#158#157#158#158#158#158#159#159
+  +#159#160#160#160#161#161#161#161#161#161#162#162#162#162#162#162#162#162#162
+  +#163#163#163#163#163#163#163#163#163#163#164#164#164#163#163#163#164#163#163
+  +#163#163#162#162#162#162#162#162#162#162#162#161#161#161#161#161#161#161#161
+  +#161#160#160#160#159#159#159#158#158#158#157#158#158#156#156#157#155#155#155
+  +#154#154#154#153#152#153#152#152#151#150#150#150#149#149#149#147#147#147#146
+  +#146#146#144#144#144#143#143#143#141#141#141#139#139#139#137#137#137#135#135
+  +#135#134#133#133#131#131#131#129#129#129'~~~|||{{{yyyyyxz{|'#129#129#129#131
+  +#131#130#132#132#132#133#133#133#134#135#134#135#135#135'zyz```___[\\XXXWWWU'
+  +'UUSSSOOPMMMKKKIIIFFFDDDBBB@@@==>;;<:::888666232111///...+,,*)*)()&&''%%%###'
+  +'###!!!! !'#30#30#30#29#29#30#28#28#28#26#26#26#26#26#25#24#25#24#22#22#22#22
+  +#22#22#22#21#21#20#20#20#19#20#20#20#19#19#19#18#18#18#19#18#17#17#17#16#16
+  +#16#16#16#15#16#16#15#15#14#14#14#14#14#13#13#13#13#13#13#12#12#12#12#11#12
+  +#12#12#12#12#11#12#11#11#11#12#11#12#10#10#10#10#10#10#10#9#10#10#10#10#10#9
+  +#9#10#10#10#9#10#9#9#9#9#9#9#9#9#9#9#8#9#9#8#9#8#8#8#8#9#8#8#8#8#8#8#8#7#8#7
+  +#7#7#7#7#7#7#8#7#7#7#7#7#7#6#7#7#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#5#6#5#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  ,#4#4#4#3#4#4#3#3#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#2#3#3#2#3#2#3#3#3#2#2#3#2#2#2
+  +#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#2#2#2#1#2#2#2#1#1#1#1#1#2#1#1#2#1#1
+  +#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#0#1#1#1#1#1#0#1#0#0#0#0#1#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#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#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'000yyy00000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000333666777999;;;<<<...////////////11188888888888788788787'
+  +'787787787787777777777777777777777777777755544444444444444444455465565565565'
+  +'565565555455445545445555544444544444444434434443443433334333333333333333332'
+  +'2323323223232322221221221221211211200110100110000/00000/00/0////0///../../.'
+  +'./..//.....////0/0/11011110010021111211122222233343444444444555555577777765'
+  +'6777677888::998:::::::<=====>>>???BBACCBCDCFFEHHHJJJLLLMMMOOORQQRSRUUTVVVXX'
+  +'X[[[\\\^_^```aaacccfffhhhjjjkkknnnooorrrtttwwwxxxzzz|||~~~'#128#128#128#131
+  +#131#131#132#132#132#134#134#134#135#135#135#138#138#138#141#141#141#141#141
+  +#141#143#143#143#145#145#145#147#146#147#148#148#149#149#150#150#152#151#152
+  +#156#156#156#160#160#160#161#161#161#162#162#162#163#162#162#165#164#164#166
+  +#165#166#164#163#163#163#163#163#164#164#164#165#165#165#165#165#165#166#166
+  +#166#167#167#167#167#167#167#167#167#167#168#168#168#169#169#169#169#169#169
+  +#169#169#169#170#170#170#170#170#170#169#170#169#169#170#169#168#169#168#168
+  +#168#168#168#168#168#168#168#168#166#167#166#166#166#167#165#165#165#165#165
+  +#165#164#163#164#164#164#163#163#162#162#161#161#161#160#160#160#159#159#159
+  +#158#158#158#156#156#156#155#155#155#153#153#153#152#152#152#150#149#150#148
+  +#148#148#147#146#147#144#144#144#143#143#143#141#141#141#138#138#138#135#136
+  +#136#135#135#134#132#132#132#130#130#130#128#128#128#128#128#128#129#129#130
+  +#135#135#135#136#136#136#138#138#138#140#140#140#140#140#140#140#141#141''
+  +'gggdddbbb_`_^^^[\[XXXVVVSSSPQQOOOLLLJJJGGGDDDBCB@@@>?>;;;:::888656344111///'
+  +'...---*)*)()&&&%%&######!  !  '#30#30#30#29#29#29#28#28#28#26#26#26#26#26#25
+  +#24#24#24#22#22#22#22#22#22#21#21#21#20#20#20#20#20#20#20#20#20#19#18#18#17
+  +#18#17#18#17#17#16#16#16#16#16#16#16#16#15#14#14#14#14#15#14#13#13#13#13#13
+  +#13#12#12#12#11#12#12#12#12#11#12#11#12#12#12#11#10#10#10#10#10#10#9#10#10#10
+  +#10#10#10#10#10#9#10#10#9#10#9#9#9#9#9#9#9#9#9#8#9#8#9#8#8#9#8#8#9#9#8#9#8#8
+  +#8#8#8#8#8#8#8#8#8#8#7#8#8#7#7#7#7#7#7#7#7#6#6#7#7#6#7#7#6#6#6#6#5#6#6#6#6#6
+  +#6#6#6#6#6#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#3#3#4#4#3#3#3#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#2#3#3
+  +#2#2#2#2#2#2#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#1#1#2#1#2#1#2#1#1#2
+  +#2#2#1#2#1#1#1#2#1#1#1#1#1#1#0#1#1#1#1#1#1#0#1#1#1#1#1#1#1#1#0#0#1#0#1#0#1#1
+  +#0#0#0#0#0#1#0#0#0#0#1#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#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#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'000yyy00000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000111222333444444666777999;;;===656...////////////55588888888'
+  +'888888788787787787787787777777777777777777777777777644444444444444444444465'
+  +'565565565565565565555555555544545444444454444444544444434344434444443333333'
+  +'333433333332332333333223223232222122122122121021111110010000000000000///0//'
+  +'0///0////./..00000/01101101121111111111122222222211122234344444444455556665'
+  +'6666888888989:::;;;<;<;:;;:;<:<=<====>>>@@@BCBCCCDDDGGGHGGHHIKLLMNMPPPRRRST'
+  +'TUVVWWWYZY[[[]]]```aaacccedegggjiikkkmmmppprrrutuvvvxxxzzz|}}~~~'#128#128
+  +#128#131#131#131#133#133#133#135#135#135#137#136#136#139#139#139#141#141#141
+  +#143#143#143#145#145#145#146#146#146#148#148#148#150#150#151#152#152#152#154
+  +#153#154#155#155#155#157#157#157#159#159#159#165#165#165#166#166#166#167#167
+  +#167#168#168#169#170#169#169#172#171#171#171#171#172#169#169#169#171#170#170
+  +#170#170#170#171#171#171#172#172#172#173#173#173#173#174#173#173#173#173#174
+  +#174#174#175#175#175#175#175#175#175#175#175#175#175#175#175#175#175#175#175
+  +#175#175#175#175#175#175#175#175#175#175#175#175#174#174#174#174#173#172#172
+  +#173#172#172#172#172#172#171#171#171#170#170#170#169#169#169#169#169#169#167
+  +#167#167#166#166#166#165#165#165#163#163#163#162#162#162#161#160#161#158#158
+  +#158#158#157#158#156#155#156#154#153#154#152#151#152#150#150#150#148#148#148
+  ,#146#146#146#143#143#143#141#141#141#139#139#139#138#138#138#135#135#135#135
+  +#135#135#136#136#136#142#142#142#143#143#143#144#144#144#145#145#145#145#145
+  +#145#146#146#146#133#133#133'nnoklljjjgggdcdaaa^_^\]]YYYWWWUUURQRPOOMMMJJJHH'
+  +'HFFFDCDBBA?>><<<:::9896553332220//...-,-+++)()''&&%%%######! !!  '#30#30#30
+  +#29#29#29#28#28#28#26#26#25#26#25#26#24#23#24#22#22#22#22#22#22#21#21#21#20
+  +#20#20#20#19#20#20#20#20#18#19#18#18#17#17#17#16#16#16#16#16#16#16#16#16#16
+  +#16#15#15#14#13#14#13#13#13#14#13#13#13#12#11#11#11#12#12#12#12#12#12#12#11
+  +#11#12#11#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#10#9#10#9#9#9#9#10#9#9#9
+  +#9#9#9#9#9#9#9#9#8#9#8#9#9#8#8#8#8#8#8#8#8#8#8#8#8#7#8#7#7#8#7#7#7#7#6#7#7#6
+  +#6#7#6#6#6#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#4#5#5#5#5#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#4#3
+  +#3#3#3#3#3#3#3#3#3#3#3#2#2#3#3#3#2#3#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#1#1#1#1#1#1#2#1#1#2#1#1#2#1#2#1#1#1#1#1#2#1#1#1#1#1#1#1#1#0#0
+  +#1#0#1#1#0#1#1#1#0#1#1#1#1#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#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#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'000yyy00000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000222333444555666777777777777777888888:::;;;===>>'
+  +'>000////////////00088888888888888888788787787787787787787777777777777777777'
+  +'777755444444444444444444455566565565565565565565565565555555444444445444454'
+  +'444444444434433444344433343333333443334333333333332232222322232222122122121'
+  +'1111111101011111000000000/000/0//0///00/11211111111101110112112212111122222'
+  +'2222332433454444444455666555776989888999:::;;;<<;<<<>>=??>@@@@@@@?@@A@CBBCC'
+  +'CDEDGGGHHHIIIKKLMMMNNOQQQTTTWWWXXW[[Z\\\^^^```bbbdeegggiiikjkmlmpoorqrsssvv'
+  +'uxxxz{z|||~~~'#129#129#129#131#131#131#133#133#133#136#136#136#138#138#138
+  +#140#140#140#142#141#142#144#143#143#146#146#146#149#148#148#150#149#150#152
+  +#152#152#154#154#154#155#155#156#157#157#158#159#158#159#161#160#161#163#162
+  +#163#163#163#164#168#167#168#171#171#171#172#172#172#175#175#175#176#176#176
+  +#177#177#177#178#177#177#172#172#172#161#161#161#139#139#139'tttcccSSSBBB444'
+  +')))   '#20#20#20#20#20#20#19#19#19#19#19#19#19#19#19#19#19#19#19#19#19#17#17
+  +#17#29#29#29'&&&111>>>OOO```qqq'#136#136#136#158#158#158#168#168#168#171#171
+  +#171#172#171#171#169#169#169#169#169#169#166#166#166#165#165#165#163#163#163
+  +#161#161#161#160#160#160#157#157#157#155#155#155#153#153#153#151#151#151#150
+  +#149#150#146#146#146#145#145#145#143#143#143#142#142#142#143#143#143#148#148
+  +#148#149#149#149#150#150#150#151#151#151#153#152#152#151#151#151#139#139#139
+  +'uttrrrpppmnnkjjhhhfffbbc```]]]\[[XXXVUVRSSOOONNNKKKIIIFFFDDDAAB???=<<:::989'
+  +'655445222//////,--***))(''&&&%%######! !'#31#31#31#30#30#30#30#29#29#28#28
+  +#28#26#26#26#25#26#26#23#24#24#23#23#22#22#23#22#21#21#21#20#20#20#20#20#20
+  +#20#19#20#19#18#18#17#17#17#16#17#16#16#16#16#16#16#16#14#14#14#14#15#15#13
+  +#13#13#14#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#11#11#11#12#10#10
+  +#10#10#10#10#9#10#10#10#10#9#10#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#8#9#9#8#8
+  +#9#8#8#8#8#8#8#8#8#8#8#8#8#8#7#7#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#6#7#7#6#6#6#6
+  +#6#6#6#6#6#6#5#5#6#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#4
+  +#4#4#5#5#5#5#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#4#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#2#3#3#3#3#3#3#3#3#3#2#3#2#2#2#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1
+  +#1#2#1#1#2#2#2#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#0#0#0#0#0#0#0#1#0#1#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#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#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'000yyy00000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000022233344455566'
+  +'6777888888888888999999999999999999::::::<<<===>>>999...////////////44488888'
+  +'888888888888788788787787787787787777777777777777777766644444444444444444454'
+  +'466666566565565565565565565565565454554554555554554444454444544434444344443'
+  +'434343333333333333333333233322232333222222222122111111101100110111100110000'
+  +'00/000010011100021211111111111121212221121122222222233344444554554455566666'
+  +'6667878988999:::;;;;<<<<<>>>??>AA@AA@DCCEDDEDEEDEDDDGGGHHHJJJLLLMNMPOOQQQSS'
+  +'TUUUXXX[[[\]\``_aabddcfffhhhjjjkkknnnqpqsrsvuuxwwzzy|||~~~'#129#129#129#131
+  +#131#131#134#134#134#136#136#135#138#138#138#140#141#140#143#143#143#144#144
+  ,#144#147#147#147#148#149#148#151#151#151#153#153#153#155#155#155#158#158#158
+  +#159#159#159#161#161#161#163#163#163#165#165#165#167#166#167#168#168#168#170
+  +#170#170#171#171#171#177#176#177#177#177#177#164#164#164#134#134#134'hhhKKK+'
+  +'++'#22#22#22#15#15#15#13#13#13#13#13#13#12#12#12#12#12#12#12#12#12#12#12#12
+  +#11#11#11#10#10#10#11#11#11#11#11#11#10#10#10#10#10#10#9#9#9#9#9#9#9#9#9#7#7
+  +#7#8#8#8#7#7#7#7#7#7#7#7#7#6#6#6#5#5#5#7#7#7#14#14#14'###BBBa`a'#158#158
+  +#158#171#171#171#171#171#171#169#169#169#167#167#167#166#166#166#163#163#163
+  +#161#161#161#159#159#159#157#156#156#155#155#155#153#153#153#151#150#151#150
+  +#150#150#151#150#151#155#155#155#156#156#156#156#156#156#157#157#157#158#158
+  +#158#157#158#157#145#145#146'}~}zzzxxxuttrrrpopllljjjgggdcdaaa___[\[YYYWWWTT'
+  +'TQQQOOOLLLJJJGGGDDDCBB@??===;;;999767545222/0////,--*++)**&&''%%%######  !'
+  +#31#31#31#31#30#30#29#29#30#27#27#27#25#26#26#24#25#25#23#23#24#23#22#23#22
+  +#22#22#21#21#21#20#20#20#20#20#20#20#19#20#18#19#18#17#18#17#16#16#16#16#16
+  +#16#16#15#16#15#14#15#14#14#14#13#13#13#13#14#13#12#12#12#12#12#12#11#12#12
+  +#11#12#11#12#12#12#11#10#11#10#10#10#10#10#10#10#10#10#10#9#10#10#10#10#10#9
+  +#9#9#9#9#9#9#10#9#9#9#9#9#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#7#7#7#7
+  +#7#7#7#6#7#7#7#6#7#7#6#6#6#6#6#6#6#6#6#6#6#6#5#5#6#5#6#6#6#5#6#5#5#6#5#5#6#6
+  +#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#4#5#4#5#5#4#4#4#4#4#4#4#4#4#3#4#4#4#4#4#4#4
+  +#4#4#3#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#3#3#2#2#3#2#3#2#3#2#2#2#3#3
+  +#2#2#3#2#2#2#2#2#2#2#2#2#1#2#2#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#2#1#1#2#1#1#1#1
+  +#1#1#1#1#1#1#0#1#1#1#1#1#1#1#0#1#1#0#1#0#0#0#0#0#0#1#0#0#0#0#0#1#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#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#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'000yyy00000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000011122'
+  +'2444444555777888888888888888999999999999:::::::::::::::;;;;;;;;;<<<<<<===>>'
+  +'>???333//////////////087788888888888888888888788787787787787787777777777777'
+  +'777777744444444444444444444465566666666566565565565565565554565465455554545'
+  +'544455454554444444444434433434344343344333343333333333333333232222333323232'
+  +'121121111111111111001000000100011111110101112111222121211222222222222233332'
+  +'2232333333444554454545565666777888998999::::;:<<=<<<>>>???AA@AA@CCBEDDFEEHG'
+  +'GIIIIIJJJJJJJLLLNNNPPPRRRTSTVWVWWWZZZ]\]```bccdddffgijikkkmnnppprssuuuwwwzy'
+  +'z|{|~~'#129#128#129#131#131#131#134#133#133#136#136#136#138#138#138#141#141
+  +#140#143#143#143#145#145#144#147#147#147#150#150#150#152#152#152#153#154#154
+  +#156#156#156#158#158#159#161#161#161#163#163#163#164#164#164#166#166#166#169
+  +#168#169#170#170#170#172#172#172#173#173#173#167#167#167#133#133#133'___999'
+  +#25#25#25#14#14#14#15#15#15#15#15#15#14#14#14#14#14#14#13#13#13#14#14#14#14
+  +#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#12#12#12#12#11#11
+  +#11#11#11#11#11#11#11#10#10#10#9#9#9#10#10#10#9#9#9#9#9#9#8#8#8#7#7#7#7#7#7#7
+  +#7#7#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#4#4#4#3#3#3#13#13#13'...WWW'#129#128#128
+  +#164#164#164#170#170#170#169#168#168#167#167#167#165#165#165#162#162#162#160
+  +#160#160#159#159#159#158#158#158#158#158#158#163#163#163#162#162#162#163#163
+  +#163#163#163#163#164#164#164#163#163#163#152#153#153#132#132#132#130#130#130
+  +'|||zzzwvvtttqqqnnnkkkiihefecbb```]]]ZZZWXXUTURRSOOOMMMJJJGGGEEEBCBA@@==>'
+  +';;;889776554232100///---*+*()(&&&%%&######!!!'#31#31#31#29#29#29#29#29#29#27
+  +#27#27#26#26#25#25#24#24#23#23#24#23#23#23#21#21#22#20#20#20#20#20#20#20#19
+  +#20#18#19#19#17#18#17#18#18#18#16#16#16#16#16#16#16#16#16#14#15#14#15#14#15
+  +#13#13#13#13#14#13#12#12#12#12#12#12#11#12#12#11#12#12#11#11#11#10#11#10#10
+  +#10#10#10#10#10#10#10#10#9#10#10#10#9#9#9#10#9#10#9#9#10#9#9#9#9#9#9#9#9#8#9
+  +#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#7#7#7#8#7#7#7#8#7#7#7#7#7#6#6#7#7#6#6#6#6
+  +#6#6#6#6#6#6#6#5#5#6#6#5#6#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5
+  +#5#5#4#5#4#4#4#4#5#4#4#4#4#4#4#4#4#3#4#4#3#4#4#3#3#4#3#3#4#3#4#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#3#3#3#3#2#2#3#3#2#3#3#2#2#2#3#2#3#2#2#2#2#2#2#2#2#2#1#2#2#2#2
+  +#1#2#1#1#2#1#2#1#2#1#1#1#1#2#1#1#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1
+  +#1#0#0#0#1#0#0#1#0#0#1#0#0#0#0#0#1#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#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#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'000yyy00000000000000000000000000000000000000000'
+  +'0000000000000000222333444555666777888888888888888999999999999::::::::::::;;'
+  +';;;;;;;;;;<<<<<<<<<<<<=========>>>>>>;;;;;;///////////////22288888888888888'
+  ,'888888888788788787787787787787777777777777766644444444444444444455466666666'
+  +'666666566565565565565565565564464455454444445555444544544444444444444433444'
+  +'443443334433343333333333333222332323222121121121111111111101101011111212211'
+  +'111011111222221111112122222212221232223322333344445555555556666687898899999'
+  +'9:;;;;:<==<<=>?>???AAAAAACCBEEDFEEHGGJIIKJJLLLNMNNNNPOOQQQRRRUTUWWWXXYZZZ\\'
+  +'\__`aaaeeeghgjjjlmloooqqqtttvvvxxy{{{}|}'#128''#128#131#130#130#133#133#133
+  +#135#135#135#138#138#137#140#140#140#142#142#142#145#145#145#147#147#147#150
+  +#150#150#153#152#153#155#155#155#156#156#156#159#159#159#161#161#161#164#163
+  +#163#166#166#166#168#168#168#170#170#170#172#172#172#174#174#174#165#165#165
+  +'|||NNN"""'#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#15#15#15#16#16#16#16
+  +#16#16#15#15#15#16#16#16#15#15#15#15#15#15#15#15#15#15#15#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#13#13#13#12#12#12#12#12#12#12#12#12#12#12#12#10#10#10
+  +#10#10#10#10#10#10#10#10#10#9#9#9#9#9#9#8#8#8#8#8#8#7#7#7#7#7#7#6#6#6#6#6#6#6
+  +#6#6#5#5#5#5#5#5#3#3#3#3#3#3#3#3#3#3#3#3#22#22#22'DDEuuu'#161#161#161#170#170
+  +#170#169#169#169#167#167#167#165#165#165#166#166#166#170#170#170#169#169#169
+  +#169#169#169#170#170#169#170#170#170#170#170#170#159#159#159#140#140#140#137
+  +#137#137#135#135#135#132#132#132#129#129#129'~~~{{{xyyuuurrropollljiigffddca'
+  +'aa^^^[[[XXXVVVRSRPPPMMMIJJHGHEEEDDDAAA>>>;;;999777444223000../,--*+*)))&&'''
+  +'%%%######  !   '#29#29#29#29#29#29#27#27#27#26#26#25#25#25#24#23#23#23#22#22
+  +#22#21#21#21#20#20#20#20#20#20#20#20#19#18#18#18#18#17#18#17#17#16#16#16#16
+  +#16#16#16#14#15#14#15#14#14#13#14#14#14#13#13#12#12#12#12#12#12#12#12#12#12
+  +#12#12#12#11#11#10#10#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#10
+  +#9#9#9#9#9#9#9#9#9#9#9#9#8#8#9#8#8#8#8#8#8#8#8#8#8#8#8#7#7#7#7#7#8#7#7#7#7#7
+  +#7#7#7#6#7#7#7#7#6#7#7#6#6#6#7#6#6#6#6#6#6#6#5#6#6#5#6#6#6#5#6#5#6#5#5#5#6#5
+  +#5#6#5#5#5#5#5#5#5#5#5#5#4#5#5#5#4#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#3#3
+  +#3#4#3#3#4#3#4#4#4#3#4#4#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#2#3#3#3#2#3#3#2#3#2#2
+  +#3#2#2#2#2#2#2#2#2#2#2#1#2#2#1#2#1#2#1#1#2#2#2#1#2#1#1#1#1#1#1#2#1#1#1#2#1#1
+  +#1#2#0#1#1#1#1#1#0#1#1#1#1#1#1#1#1#0#0#0#1#1#0#0#0#1#0#0#0#0#0#1#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#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#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'000yyy0000000000000'
+  +'00000000000000000000000000000000222444444666777777888888999999999999:::::::'
+  +'::::::::;;;;;;;;;<<<<<<<<<<<<==================:::777767222000/////////////'
+  +'///////////6668888888888888888888888878878878778778778778777777777777774444'
+  +'434444444444444446666666666666666666656656556556556556556556556555545554555'
+  +'555444554444455444434444444344444433333444333443333333232323322222222222122'
+  +'112111011112212212212221112211112222222221221123322222222223332333324345545'
+  +'555555556567777778889::9:9:::;;;=====<>?????AAAAAACCCEEDFFEHHGJIIKJJMLLNNNP'
+  +'NNRRQTSSUTTUUUWWWXYY[\\^]^aaacbbeeegggkkknmnppprrsuttxxxzzz}}}'#131#131
+  +#130#133#132#133#135#135#135#138#136#137#140#140#140#142#142#142#145#145#144
+  +#147#147#147#149#149#149#152#153#152#155#155#155#157#157#157#160#160#160#161
+  +#161#161#164#164#164#166#166#166#169#169#169#171#171#171#174#174#174#171#172
+  +#172#130#130#130'NNN   '#17#17#17#18#18#18#18#18#18#17#17#17#17#17#17#17#17
+  +#17#17#17#17#18#18#18#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17
+  +#16#16#16#16#16#16#16#16#16#16#16#16#15#15#15#15#15#15#15#15#15#14#14#14#14
+  +#14#14#13#13#13#12#12#12#13#13#13#12#12#12#11#11#11#11#11#11#11#11#11#10#10
+  +#10#10#10#10#9#9#9#8#8#8#8#8#8#8#8#8#7#7#7#6#6#6#6#6#6#6#6#6#5#5#5#5#5#5#3#3
+  +#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2#19#19#19'DDD{{{'#168#168#168#174#174#174#177
+  +#177#177#177#177#177#176#176#176#176#176#176#176#176#176#176#176#176#166#166
+  +#166#149#148#148#146#146#146#142#141#142#139#139#139#136#137#137#133#134#133
+  +#131#131#131#128#128#128'}}}zzzwwxtttqqqnnnkkkhhgdedbbb`__\\\YYYVWWSSSPQPNNN'
+  +'KKKHHHFFFCCD@@@>>>;;;998667544222000///,,-*+*()(&&''%%%#####" !!'#31#31' '
+  +#29#29#30#28#28#29#27#27#27#26#25#26#24#25#24#22#22#22#22#22#22#21#21#21#20
+  +#20#20#20#20#20#20#19#20#18#18#18#18#17#17#16#16#16#16#16#17#16#16#16#14#14
+  +#15#15#15#14#14#13#14#13#14#13#12#12#12#12#12#12#12#12#12#12#12#11#12#12#11
+  +#10#10#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#10#10#9#9#9#9#9
+  +#9#9#9#8#9#8#9#9#8#9#8#8#8#8#8#8#8#8#8#8#7#8#8#8#7#7#7#8#8#7#7#7#7#7#7#7#7#7
+  +#7#6#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#5#6#5#6#5#5#5#5#5#5#5#5#5#6#5#5#5#5#5#5#5
+  +#5#5#5#5#5#5#5#5#5#4#5#5#5#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#4#4#3
+  +#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#2#2#2#2#2#3#2#2#3#3#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#1#1#2#1#1#2#1#1#2#2#2#2#1#2#1#2#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#0#1#1#1#1#1#0#1#0#0#1#0#0#0#0#1#1#0#1#1#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#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#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'000yyy000000000000000000000000000000000'
+  +'000000000000333555555666777999::::::::::::;;;;;;;;;;;;<<<<<<<<<<<<========='
+  +'===>>><<<:::767444222///...////////////////////////////////////000888888888'
+  +'888888888888888888887887877877877877877777777777666443443443444444444555666'
+  +'666666666666666666665665655655655655655655655554545545454454454444444444444'
+  +'444434444444443333443344333333333333233323333322322322211221221222222122111'
+  +'1121211111112222122211122332322232223333332334445544445555556667777677889::'
+  +'99:;::;;<<<<===>==@??@@@AAACCCDDDFFEHHGIIHKJJMLLNNNPOOSQRUTSWWVXXWZZZ[[[\\\'
+  +'^^^aa`cbcfeehhhkkkmmlppptttwvwyyy{{{~~~'#128#128#128#131#131#131#133#133#133
+  +#137#137#137#139#139#139#142#141#142#145#145#145#148#147#147#150#150#150#152
+  +#152#152#155#154#154#157#157#157#159#159#159#161#162#161#164#164#164#166#167
+  +#166#169#169#169#172#172#172#174#174#174#155#154#154'ggg///'#18#18#18#19#19
+  +#19#18#18#18#18#18#18#19#19#19#19#19#19#20#20#20#20#20#20#20#20#20#19#19#19
+  +#19#19#19#20#20#20#19#19#19#19#19#19#19#19#19#18#18#18#18#18#18#18#18#18#17
+  +#17#17#17#17#17#17#17#17#16#16#16#16#16#16#16#16#16#16#16#16#15#15#15#14#14
+  +#14#14#14#14#13#13#13#14#14#14#13#13#13#12#12#12#11#11#11#12#12#12#11#11#11
+  +#10#10#10#9#9#9#9#9#9#9#9#9#8#8#8#7#7#7#7#7#7#6#6#6#6#6#6#5#5#5#4#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#3#3#3#2#2#2#2#2#2#2#2#2'!!!bab'#159#159#159#183#183#183#183
+  +#183#183#183#183#183#182#182#182#172#172#172#155#155#156#153#153#153#150#150
+  +#150#147#147#147#144#145#145#141#142#142#139#139#139#136#136#136#133#132#132
+  +#130#130#130'~{{{xxxuuurrrooollliiifggbbb```\]]ZZZVWVTSTQPPNNNKKKHIIFFFDCD'
+  +'AAA>>>;;;:::677454223/////.-,-))))()&''''%$$###"""! !'#30#30#30#30#30#29#28
+  +#28#28#26#26#25#26#25#25#24#24#23#23#23#23#22#23#22#21#22#21#20#20#20#20#19
+  +#20#19#19#18#19#19#19#18#17#17#17#17#16#16#16#16#16#16#16#15#15#15#13#13#13
+  +#14#13#13#14#14#14#12#12#12#12#12#12#12#12#12#12#12#11#11#10#11#10#11#11#10
+  +#10#10#10#10#10#10#10#10#9#10#10#9#10#9#10#10#10#9#10#9#9#10#9#9#9#9#9#9#9#9
+  +#9#8#8#9#8#8#8#8#8#8#8#8#8#7#7#8#7#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#6#7#6#6
+  +#6#6#6#6#6#6#6#6#6#6#6#5#5#5#6#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5
+  +#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#3#3#3#3#3#3#4#3#3
+  +#3#3#3#3#3#3#2#3#3#3#3#3#3#3#3#2#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2
+  +#2#2#2#2#2#2#1#2#2#2#1#2#2#1#1#1#1#2#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0
+  +#1#0#1#1#1#1#1#0#0#1#0#0#0#0#1#1#0#0#0#0#0#0#0#1#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#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#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'000yyy000000000000000000000000000000000000000000000444555'
+  +'666777999:::;;;;;;<<<<<<<<<<<<============>>>:::888767333111....../////////'
+  +'/////////////////////////////////////////////444888888888888888888888888888'
+  +'887887887877877877877877777777544433443443443444444666666666666666666666666'
+  +'666665665655655655655654655554645544544555445444544544444444444434444444444'
+  +'333334344333333333333323333223222222222232322222222212112121111211222222222'
+  +'222122333333223222344333333444334545322333333444555777767998;:9<;;>==>>>@@@'
+  +'A@ABABDCCDDDFGFGGGIIHKKJMLLNNNPOOSRRUTTWWWYWX[[Z]]\`__a`aaaadcdfffihhkkknnn'
+  +'qqqssswvvyyz||}'#130#130#130#133#133#133#136#136#135#138#138#138#141#140
+  +#141#143#144#144#147#146#147#149#149#149#152#151#151#155#155#155#157#157#157
+  +#160#159#159#162#162#162#164#164#164#167#167#167#169#169#169#172#172#172#174
+  +#174#174#141#141#141'OOO'#29#29#29#19#19#19#20#20#20#20#20#20#20#20#20#20#20
+  +#20#21#21#21#21#21#21#22#22#22#22#22#22#22#22#22#22#22#22#21#21#21#21#21#21
+  +#21#21#21#22#22#22#21#21#21#20#20#20#20#20#20#21#21#21#20#20#20#20#20#20#19
+  +#19#19#18#18#18#18#18#18#18#18#18#17#17#17#17#17#17#17#17#17#16#16#16#15#15
+  +#15#14#14#14#14#14#14#14#14#14#13#13#13#12#12#12#12#12#12#12#12#12#12#12#12
+  +#11#11#11#10#10#10#9#9#9#9#9#9#9#9#9#8#8#8#7#7#7#7#7#7#6#6#6#6#6#6#5#5#5#5#5
+  +#5#4#4#4#4#4#4#4#4#4#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1#12#12#12'HHH'#146#146#146
+  +#188#189#189#179#179#179#164#164#164#161#161#161#159#158#158#156#155#155#153
+  +#153#153#150#150#150#147#147#147#144#144#143#141#141#141#138#138#138#134#134
+  +#134#131#131#131''#128'}}}zzzvvvtttpppmmmjijfffdccaaa]^^ZZZXXXTUTQQQOOOLLL'
+  +'HIIFFFCCCAAA>>>;;;889666444222///...---)*)(((''&&$$$###"""   '#31#30#31#29
+  +#29#29#28#28#28#26#26#26#26#25#25#24#23#23#23#23#22#22#22#21#20#20#20#20#20
+  +#20#20#20#20#19#19#18#17#18#17#16#16#16#16#16#16#16#16#16#15#15#15#15#14#15
+  ,#14#14#13#13#14#13#12#12#12#12#12#12#12#12#12#12#12#12#11#11#11#10#11#11#11
+  +#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#10#9#10#10#9#10#9#9#9#9#9
+  +#9#9#9#9#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#7#7#7#8#7#7#7#7#7#7#6#7#7#6#7#6#6
+  +#7#6#6#7#7#6#6#6#6#6#6#6#6#6#6#6#6#5#5#6#6#5#6#5#6#5#5#6#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#5#5#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#4#3#4#3#3
+  +#3#3#3#4#3#3#3#3#3#3#3#2#3#3#3#3#3#3#2#2#2#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#1#1#2#1#2#1#2#1#1#1#2#1#2#1#2#2#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1
+  +#0#1#1#1#1#0#0#0#1#1#1#1#1#1#1#1#0#0#0#0#1#0#0#0#1#0#0#0#1#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#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#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0'000yyy00000000000000000000000000000000000000000011144'
+  +'4555777888:::<<<===============:::777556222000......///////////////////////'
+  +'/////////////////////////////////////////////////77788888888888888888888888'
+  +'888888788788787787787787787777766643343343344344344355566666666666666666666'
+  +'666666666666566565565565565565565565555454455545554454444445444444444434434'
+  +'344433434344343333333333333333323222332232333232232222222222222212121233322'
+  +'2222222332332323333322111//////.//00000/01010111132234344455566666789999:<<'
+  +'<>>>@@@BCCEDEEEEHGGIJIKKJMMLNNNPOOSRRUTTWWWYXX[[[]]]``_bbaddefeegggjjikllno'
+  +'oqqqtttvvvzzz~~~'#129#128#129#131#131#131#134#134#134#136#136#136#140#140
+  +#140#143#143#143#146#146#146#148#148#148#151#151#151#153#153#153#157#156#157
+  +#159#159#159#163#162#162#165#165#165#167#167#167#169#169#169#172#172#172#174
+  +#174#174#141#141#141'III'#22#22#22#20#20#20#21#21#21#22#22#22#22#22#22#23#23
+  +#23#22#22#22#23#23#23#23#23#23#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24
+  +#23#23#23#22#22#22#23#23#23#23#23#23#23#23#23#22#22#22#22#22#22#22#22#22#22
+  +#22#22#21#21#21#20#20#20#20#20#20#19#19#19#20#20#20#19#19#19#19#19#19#19#19
+  +#19#20#20#20#19#19#19#18#18#18#17#17#17#16#16#16#16#16#16#15#15#15#13#13#13
+  +#13#13#13#13#13#13#12#12#12#10#10#10#10#10#10#9#9#9#9#9#9#9#9#9#8#8#8#7#7#7#7
+  +#7#7#7#7#7#6#6#6#6#6#6#4#4#4#4#4#4#4#4#4#4#4#4#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1
+  +#1#1#1#3#3#3'>>>'#132#132#132#169#169#169#167#167#167#164#164#164#161#161#161
+  +#158#158#159#155#155#155#152#152#152#149#149#149#146#146#146#143#143#143#139
+  +#139#139#136#136#136#133#133#133#130#129#129'~~~{{{wwwtttqrrnmmjjjghhcccaaa^'
+  +'^^[Z[XXXTTTQQROOOLLLHIIFFFDCCBAA>>>;;;998666544223///...,,+)**''''(&&&$$$##'
+  +'#"!"!  '#31#30#30#29#29#29#27#27#27#26#26#26#25#24#25#24#23#23#23#22#23#21
+  +#22#21#20#20#21#20#20#20#20#19#20#18#19#19#18#18#17#16#16#17#17#16#16#16#16
+  +#16#15#15#15#15#15#15#14#14#14#14#14#13#12#12#12#12#12#12#12#12#12#12#12#12
+  +#10#10#11#10#11#11#10#10#11#10#10#10#10#10#10#10#10#10#9#10#10#10#9#10#9#9#9
+  +#10#9#9#9#9#9#9#9#9#9#8#9#8#8#8#9#8#8#9#8#8#7#8#8#8#7#8#8#7#7#7#7#7#7#7#7#7#7
+  +#7#7#7#7#6#7#6#6#6#6#7#6#6#6#6#6#6#6#6#6#5#6#6#5#6#5#5#6#5#5#6#6#5#5#5#6#6#5
+  +#5#5#5#5#5#5#5#5#4#5#5#5#4#5#4#4#5#4#4#5#4#4#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#3
+  +#4#3#3#3#3#4#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#2#3#2#2#3#2#2#2#3#2#2
+  +#3#2#2#3#2#2#2#2#2#2#2#2#2#1#2#1#1#2#2#1#2#1#2#1#1#1#1#1#1#1#2#1#2#2#1#1#2#1
+  +#1#1#1#1#0#1#1#1#1#0#0#1#0#1#1#0#0#0#1#1#1#0#0#1#1#0#1#0#0#0#0#1#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#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#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0000000000000000000000000000000000000'
+  +'00000222444666888:::::::::656444222......//////////////////////////////////'
+  +'///////////////////////////////////////////////1012224345558888888888888888'
+  +'888888888888888888878878778778778778777775543334334334334434446666666666666'
+  +'666666666666666666666666656656556556556556556556555555555444454455445544544'
+  +'444444444434443343433344333333444333333323332333333334223223223222221222222'
+  +'12232223222322222333222001/./.-----././/////0000111112222113334545556666567'
+  +'8899999:::;==>>>??@@CCBEEEIIIKLKMMMNNNPPOSRRUTTWWWYXX[[[^]]```bbbedegggjjjl'
+  +'llmmmooorrquuuwxw{{{}}}'#128#128#128#132#131#131#135#135#135#139#139#139#141
+  +#141#141#144#144#144#146#146#146#150#149#150#153#153#153#156#155#155#158#158
+  +#158#161#161#161#164#164#164#166#166#166#170#170#170#172#172#172#175#174#174
+  +#141#141#141'III'#22#22#22#21#21#21#22#22#22#22#22#22#23#23#23#23#23#23#24#24
+  +#24#24#24#24#25#25#25#26#26#26#26#26#26#26#26#26#26#26#26#26#26#26#25#25#25
+  +#26#26#26#25#25#25#25#25#25#24#24#24#24#24#24#24#24#24#23#23#23#23#23#23#23
+  +#23#23#23#23#23#23#23#23#24#24#24#25#25#25#26#26#26#27#27#27#28#28#28#28#28
+  +#28#29#29#29#30#30#30#30#30#30#29#29#29#29#29#29#27#27#27#26#26#26#25#25#25
+  ,#24#24#24#22#22#22#20#20#20#19#19#19#16#16#16#14#14#14#13#13#13#10#10#10#10
+  +#10#10#9#9#9#8#8#8#8#8#8#7#7#7#7#7#7#6#6#6#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#2#2
+  +#2#2#2#2#2#2#2#2#2#2#1#1#1#1#1#1#1#1#1#1#1#1':::'#132#132#132#169#169#169#166
+  +#166#167#164#164#164#160#160#160#158#157#157#154#154#154#150#150#150#147#147
+  +#147#144#145#145#141#141#141#137#137#137#134#134#134#131#131#131''#128#128
+  +'|||yxyuuurrroookkkhhhdddbbb^]^Z[ZXXXVVVQQQOOOLLLHIIFFFCCCAAB>?>;;;889767544'
+  +'222///.-.,,+)))((''&&&######!  '#31' '#31#29#29#29#29#29#29#27#27#27#25#26
+  +#26#25#25#25#23#22#22#23#22#22#21#21#22#20#20#20#20#20#20#18#19#19#18#19#18
+  +#18#18#18#17#17#17#16#16#16#16#16#16#15#15#15#14#14#14#13#14#14#12#12#13#13
+  +#12#12#13#12#12#12#12#12#12#12#12#11#10#10#11#10#10#10#10#10#10#10#11#10#10
+  +#10#10#10#10#10#10#10#10#10#9#9#9#9#9#9#9#9#9#9#8#9#9#8#9#9#8#9#9#8#8#8#8#8#8
+  +#7#8#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#6#6#7#6#6#6#6#6#6#6#6#6#6#6
+  +#6#5#5#5#6#5#5#5#5#5#5#5#6#6#5#5#5#6#5#5#5#5#5#5#4#4#5#5#5#4#5#5#4#4#4#4#4#4
+  +#4#5#4#4#4#4#4#4#4#4#4#3#4#3#4#3#4#4#4#4#4#3#4#4#3#4#3#4#4#3#3#3#3#3#3#3#3#2
+  +#3#2#3#2#3#2#2#2#3#2#2#3#2#2#2#3#2#2#2#2#3#2#2#2#2#2#2#2#2#2#1#2#2#2#1#2#1#2
+  +#1#1#2#2#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#0#0#0#1#0#0
+  +#1#0#0#0#0#0#1#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#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#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'000yyy000000000'
+  +'000000000000000000000000000000000222555777999;;;333.../////////////////////'
+  +'/////////////////////////////////////////////////////////111323444666777988'
+  +'988988888888888888888888888888888888888888888887887887877877877877777333333'
+  +'333433433433555666666666666666666666666666666666666666665665655655655655645'
+  +'655655655554555454554454445444444444444444443433343433344334333333333333433'
+  +'422422423322322322222222212222333233222222222///------..---..-./../0/000000'
+  +'101222222322444444555666888999:::;;;===>>???@AABBBCDDDFFGJIIMMNPPOSSRUTTWVV'
+  +'YXX[[[^]]```cbbeeehhhjjjlmlooorrrsssvvvyxx{{{~~~'#130#129#129#133#133#133
+  +#135#135#135#139#138#139#142#142#143#145#145#145#149#149#148#151#151#151#154
+  +#154#154#157#157#157#161#160#160#163#163#163#165#166#165#169#168#168#172#171
+  +#172#175#175#175#154#153#153'QQQ'#22#22#22#22#22#22#22#22#22#24#24#24#25#25
+  +#25#25#25#25#25#25#25#26#26#26#27#27#27#27#27#27#27#27#27#28#28#28#28#28#28
+  +#28#28#28#27#27#27#27#27#27#27#27#27#27#27#27#27#27#27#26#26#26#25#25#25#25
+  +#25#25#24#24#24#25#25#25#25#25#25#24#24#24#25#25#25#27#27#27#29#29#29#31#31
+  +#31'!!!###%%%&&&''''''((((((((((((''''''%%%%%%$$$###!!!'#31#31#31#30#30#30#26
+  +#26#26#24#24#24#21#21#21#18#18#18#15#15#15#12#12#12#10#10#10#8#8#8#7#7#7#7#7
+  +#7#7#7#7#6#6#6#4#4#4#4#4#4#4#4#4#4#4#4#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1#1#1#1#1
+  +#1#1#0#0#0#1#1#1'BBB'#146#146#146#169#169#169#166#165#165#162#162#162#159#159
+  +#159#155#155#155#153#153#153#149#149#149#146#145#145#142#141#142#139#139#139
+  +#135#135#135#132#132#132#129#128#129'}}}zzzvvvrssooolllijjfeebbb^^^[[[XXXUVV'
+  +'SRROOOLKKIIIFFFDCC@@@>>>;;;989656443111///---,++)**''''(%%&####""!!!  '#31
+  +#29#30#30#28#28#28#26#26#26#25#26#26#24#24#24#23#23#22#23#22#22#20#20#20#20
+  +#20#21#20#20#20#19#18#19#17#17#18#17#16#17#16#17#16#16#16#16#15#15#15#15#15
+  +#15#14#14#14#14#13#14#13#13#12#12#13#12#12#12#12#12#12#12#11#11#11#11#11#11
+  +#10#11#10#10#10#11#10#10#10#10#10#10#10#10#10#9#10#10#9#9#10#9#9#9#9#9#9#9#9
+  +#9#9#9#9#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#8#7#8#7#8#7#7#7#7#7#7#7#6#7#7#7#7#6#6
+  +#7#6#6#7#7#6#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5#5#6#5#6#5#6#6#5#6#5#5#5#5#5#5#5
+  +#5#5#5#5#5#5#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#4#4#3#4#4#4#4#3#4
+  +#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#3#3#3#2#3#2#2#2#2#2#2#2#2#3#2#2
+  +#2#2#2#2#2#2#2#1#2#2#2#2#2#2#1#2#1#1#1#1#1#1#2#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1
+  +#0#1#1#1#1#1#0#0#1#1#0#0#1#1#0#1#0#1#0#1#0#0#1#0#1#0#0#1#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#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#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0'000yyy000000000000000000000000000000000000000000444555888:::<<<11'
+  +'1////////////////////////////////////////////////////////////00011133354466'
+  +'688899999899899898898898898898888888888888888888888888888888888888888888888'
+  +'788787787787787755533333333333343343366666666666666666666666666666666666666'
+  +'666666666566565565565565565565554554555455545544454544444444443434444444344'
+  +'4344443333434334333433433333433432332322322223232222333322332011.--.-------'
+  +'-...-.....//.0//011100111111221444455655566766787999:::;;;<===>>@?@A@ABBCDD'
+  +'EFFGHHHIIJKKLOOOSSTWWVYXX[[[^]]```cbbfeeihhjjjmmmpoosssuuuxxxyyy|||'#131
+  ,#130#131#133#133#133#136#136#136#139#139#139#143#143#143#146#146#146#149#149
+  +#149#153#152#153#156#156#156#158#158#158#161#161#161#164#165#165#168#168#168
+  +#170#171#170#173#174#174#170#170#170'hhh"""'#23#23#23#24#24#24#25#25#25#25#25
+  +#25#27#27#27#27#27#27#28#28#28#28#28#28#28#28#28#29#29#29#30#30#30#30#30#30
+  +#29#29#29#29#29#29#30#30#30#29#29#29#28#28#28#28#28#28#28#28#28#28#28#28#27
+  +#27#27#27#27#27#26#26#26#25#25#25#25#25#25#25#25#25#24#24#24#25#25#25#27#27
+  +#27#30#30#30'!!!$$$''''''(((+++,,,..................---,,,,,,+++)))((('''''''
+  +'%%%"""'#31#31#31#28#28#28#24#24#24#21#21#21#17#17#17#12#12#12#9#9#9#8#8#8#7
+  +#7#7#6#6#6#5#5#5#4#4#4#5#5#5#3#3#3#2#2#2#2#2#2#2#2#2#1#1#1#1#1#1#1#1#1#0#0#0
+  +#0#0#0#0#0#0#13#13#13'[[['#163#163#163#167#168#167#164#164#164#161#161#161
+  +#157#157#157#153#154#154#150#150#150#147#147#147#143#143#144#140#140#140#136
+  +#136#136#133#133#133#129#130#129'~~~zzzwwwtttpoolllijiefebbb___[ZZXXXVUURRSO'
+  +'OOLLLHIIFFFCCCA@@===;;;998566334111///-,-+***))''''&%&%###"""!! '#31#30#31
+  +#29#29#30#28#28#28#26#26#26#25#25#25#24#24#24#23#23#22#22#21#22#20#21#20#20
+  +#20#20#20#20#20#19#19#19#18#17#17#16#17#16#16#16#17#16#16#16#15#15#15#14#14
+  +#14#13#14#14#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#11#11#11#11#11#11
+  +#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#9#10#10#10#9#10#9#9#9#9#9#9#8#8
+  +#9#9#8#8#8#8#8#8#8#8#8#8#8#7#8#8#8#8#8#8#8#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#7#6
+  +#7#6#6#6#6#6#6#6#6#6#6#6#6#5#5#6#6#5#5#5#6#5#6#6#6#5#6#6#5#6#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#5#5#5#5#5#4#4#5#4#4#4#4#4#4#5#4#4#4#4#3#4#4#4#4#4#3#3#4#3#3#3#3#3
+  +#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#3#3#3#3#2#2#3#3#3#2#2#3#2#2#2#2#2#2#2
+  +#2#2#2#2#2#1#2#2#2#2#2#2#2#2#1#2#1#1#1#2#2#1#2#2#1#1#1#2#2#1#1#1#1#1#1#1#1#1
+  +#0#1#1#1#1#1#1#0#0#1#1#1#0#0#0#0#0#0#0#0#0#0#1#0#0#1#0#0#1#1#1#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#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#0#0#0#0#0#0#0#0#0
+  +#0#0'000yyy000000000000000000000000000000000000000111444666888:::<<<.../////'
+  +'/////////////////////////////////////11122244455577699999999999999999999999'
+  +'999999899898898898898898888888888888888888888888888888888888888888888788787'
+  +'787787787743333333333333333354476676666666666666666666666666666666666666666'
+  +'666666566565565565565565554565555554454555445545444454444444434444443433444'
+  +'3433433343433433433333433423333322332233222222333122/./--,.-.-..-...-......'
+  +'..///0/000121333333444667::;;::<;;>==>==>>>:::<<<=<=>>>>>?@AABCCCDDEEFGGHHI'
+  +'JLLLMMNOPPRRRVVV[[[^]]```cbbeeeihhkjjmmmpoossswwvyxy|||'#129#129#129#131
+  +#131#130#133#134#133#137#137#137#140#140#141#143#143#143#147#147#147#150#150
+  +#150#154#154#154#157#156#156#160#160#160#163#163#163#166#166#166#169#169#169
+  +#172#172#172#175#176#176#137#137#137'777'#24#24#24#24#24#24#25#25#25#27#27#27
+  +#28#28#28#28#28#28#29#29#29#30#30#30#30#30#30#31#31#31#31#31#31#31#31#31#31
+  +#31#31#31#31#31#31#31#31#30#30#30#30#30#30#31#31#31#31#31#31#30#30#30#29#29
+  +#29#28#28#28#28#28#28#28#28#28#26#26#26#25#25#25#25#25#25#24#24#24#24#24#24
+  +#24#24#24#25#25#25#28#28#28'   $$$(((+++...000222333333333333444444444444333'
+  +'222111000///---+++((($$$!!!'#30#30#30#25#25#25#21#21#21#16#16#16#12#12#12#8
+  +#8#8#6#6#6#5#5#5#5#5#5#5#5#5#4#4#4#3#3#3#3#3#3#2#2#2#2#2#2#1#1#1#1#1#1#0#0#0
+  +#0#0#0#0#0#0#0#0#0'###~~~'#169#169#169#165#165#165#162#162#162#158#158#158
+  +#155#155#155#152#152#152#148#148#148#144#144#144#141#141#141#138#138#138#133
+  +#133#133#130#131#130'~{{{wwwtttqpqmmmjijffgbbb___[[ZXXXVUUQQQOOOLKKIHIFFFC'
+  +'CC@@@===:::999555222010///---+++)()&''''$$$###""" !!'#31#31#31#29#29#30#28
+  +#27#27#26#26#26#25#25#25#23#23#23#22#22#22#21#21#21#20#20#20#20#20#20#19#19
+  +#19#18#18#18#18#18#18#16#16#16#17#16#16#15#15#15#15#15#15#13#14#14#14#13#14
+  +#13#13#13#12#13#12#12#12#12#12#12#12#10#11#11#11#11#10#11#11#11#10#10#10#10
+  +#10#10#10#10#10#10#10#10#10#9#9#9#10#9#9#9#10#9#9#9#9#9#9#9#8#9#8#9#8#9#8#8#8
+  +#8#8#8#8#8#8#8#8#7#8#8#7#7#8#7#7#7#7#7#7#7#7#6#7#7#7#7#7#6#7#7#7#6#7#6#6#6#6
+  +#6#6#6#6#6#6#5#5#6#5#5#6#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5
+  +#5#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#4#3#4#3#3#4#3#3#3#3
+  +#3#3#3#3#2#3#3#3#3#3#3#2#3#3#3#3#2#2#2#3#2#2#2#2#2#2#2#3#2#2#2#2#2#2#1#2#2#2
+  +#1#1#1#2#1#2#2#2#1#1#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#1#1#1#1#1#1
+  +#1#1#1#1#1#0#0#0#1#0#1#0#1#1#0#1#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy00000000000'
+  +'0000000000000000000000000000222444777999;;;999...////////////////////////21'
+  +'2333444777877:99:99:9999999999999999999999999999999999999999899899898898898'
+  ,'898898888888888888888888888888888888888888888888788788787787766633333333333'
+  +'333333366676676676666666666666666666666666666666666666666666666566565565565'
+  +'565565565565554554455555544444444545544454454444344344443444344344443343343'
+  +'3433432433323323322223333001--------,--------...///////000212566;;;@@?DDDIH'
+  +'HIIIKKKKKKKKJKLKLKLLMLMMMMMMKKKHHHGGGEEECDDEEFHGHIIJKKLMMNOOPRQRTTUWWWYYZ__'
+  +'_cbbeeeihhkjjmmmpppsssvwwyxy|||'#128#128''#130#130#130#133#133#133#135#135
+  +#135#138#138#138#141#141#141#144#144#144#148#148#148#150#150#150#153#153#153
+  +#158#158#158#161#161#161#164#164#164#167#168#168#171#171#171#174#174#174#166
+  +#166#166'[[['#24#24#24#25#25#25#27#27#27#26#26#26#28#28#28#29#29#29#30#30#30
+  +#31#31#31#31#31#31#31#31#31'   !!!!!!!!!            '#31#31#31#31#31#31#31#31
+  +#31#31#31#31#30#30#30#29#29#29#28#28#28#28#28#28#26#26#26#26#26#26#25#25#25
+  +#24#24#24#24#24#24#24#24#24#24#24#24#25#25#25#29#29#29'$$#))(..,220441764886'
+  +'996997997::9::9::9:::999999999888777666444222///---***&&&"""'#29#29#29#25#25
+  +#25#20#20#20#15#15#15#9#9#9#6#6#6#5#5#5#5#5#5#5#5#5#4#4#4#3#3#3#3#3#3#2#2#2#2
+  +#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'KKJ'#158#158#158#167#168#167#164#164
+  +#164#160#160#160#156#156#156#152#153#152#150#150#150#145#145#146#141#141#141
+  +#139#139#139#134#134#134#131#131#131#128'|||wwxtttqqpmmmiijfffbbb__^ZZ[XXX'
+  +'UVUQQQOOOKKKHHHEEEBBB@??;<<:::888555323100///---)*)(''''&&&%$%###!!! '#31' '
+  +#30#29#29#28#28#28#27#27#28#26#26#26#24#24#24#22#23#23#22#22#23#20#20#21#20
+  +#20#20#20#20#20#19#18#19#18#18#18#17#16#17#17#16#16#16#16#16#15#15#15#14#14
+  +#14#14#14#14#12#13#13#13#12#13#12#13#13#12#13#12#12#12#12#11#11#11#11#10#11
+  +#11#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#9#9#9#9#9#9#9#10#9#8
+  +#9#9#9#8#9#8#8#8#8#8#8#8#8#8#8#8#7#8#7#7#8#7#8#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7
+  +#7#6#7#7#7#7#6#6#6#6#7#6#6#6#6#6#6#6#6#5#5#5#5#5#6#6#6#5#6#6#6#5#5#5#5#5#5#5
+  +#5#5#5#5#5#4#5#5#4#5#5#4#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#4#4#3#4
+  +#3#4#4#4#3#3#3#3#3#4#3#3#3#3#3#3#3#2#3#2#3#2#3#3#2#3#2#2#2#3#2#2#3#3#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1#2#1#2#1#1#2#2#2#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#0#0#1#1#0#1#1#1#1#0#1#0#0#0#1#1#0#1#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0'0'
+  +'00yyy000000000000000000000000000000000000000222555777999<<<656/////////////'
+  +'/0555777999::9::9::9::9:99:99:99:99:999999999999999999999999999999999999999'
+  +'989989989889889889889888888888888888888888888888888888888888888888878878778'
+  +'775443333333333333334447767667667667666666666666666666666666666666666666666'
+  +'666666656656556556556555556555556555445445544454454545445445445444444333434'
+  +'43544443433433433433433332322333322211...--.---,--....-.//./////0100566>>>D'
+  +'DDGGGIIIJKJKLKMLMMMNMMMOOOONONNNOOOPPPOOOQPPQQQRRRTTTTSTPQPMNNIIJKLLMMMOOPR'
+  +'RRTTTWVWYXY[[\]]^ccchggkjjmmmqpptsswwwyyy|||'#128''#130#131#130#134#134
+  +#134#137#137#137#140#140#140#141#141#141#145#145#144#148#148#148#151#151#151
+  +#155#155#155#158#158#158#161#161#161#165#165#166#168#168#168#171#172#172#176
+  +#176#176#139#139#139'222'#25#25#25#26#26#26#27#27#27#29#29#29#30#30#30#31#31
+  +#31'   !!!"""""""""""""""###""""""!!!!!!!!!!!!'#31#31#31#31#31#31#31#31#31#31
+  +#31#31#30#30#30#29#29#29#27#27#27#27#27#27#26#26#27#25#25#25#25#25#23#24#24
+  +#21#24#23#18#25#24#16#25#24#13#27#26#15'  '#25'''''$--,01444967;99>9:?:;?<<;'
+  +'>><@?9BA7CB7BB9A@;@@=??>>>=======;;;999777444111...)))%%%   '#27#27#27#22#22
+  +#22#16#16#16#10#10#10#6#6#6#5#5#5#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2#1#1#1#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#30#30#30#129#129#129#169#169#169#165#165#165#161
+  +#161#161#158#158#158#154#153#153#150#150#150#147#147#147#142#142#142#138#139
+  +#139#135#135#135#131#131#131''#128'|||xxxtttqqqmmmjiifffbbb___[[[XXXUTTQQQ'
+  +'NNNKJJGGHEEEBCC???<<<:::787554223///...+,,***((''%%%######!!!'#31#30#31#29
+  +#29#29#29#28#28#26#26#26#25#25#25#24#24#24#22#23#23#22#22#22#21#20#20#20#20
+  +#20#20#20#20#19#19#19#18#18#17#17#17#17#16#17#16#15#16#16#15#15#15#14#14#14
+  +#13#13#14#13#13#12#12#12#12#12#13#12#12#12#12#11#11#11#10#11#11#11#11#11#11
+  +#10#10#11#10#11#10#10#10#10#10#10#10#10#9#9#9#9#10#10#10#10#9#9#9#9#9#9#9#9#8
+  +#9#8#8#9#8#8#8#8#8#8#8#8#7#8#7#7#8#8#8#8#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7#6#7
+  +#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#5#5#5#5#5#6#5#6#5#5#5#5#5#5#5#5#5#5#4#5
+  +#5#5#4#4#4#4#4#4#5#4#5#4#5#4#5#4#4#4#5#4#5#4#4#4#4#4#3#4#3#3#3#4#3#3#3#3#4#4
+  +#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#3#2#2#3#3#3#2#3#3#3#3#2#3#2#3#2#3#3#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#1#1#2#1#2#1#2#2#1#2#1#2#1#2#1#2#1#2#1#1#2#1#1#1#1#1#1#1#0#1
+  +#1#1#1#1#0#1#1#1#1#1#0#1#0#1#0#1#0#1#1#0#1#0#0#0#0#0#1#1#0#0#1#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#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#0#0#0'000yyy00000'
+  +'0000000000000000000000000000000000333555777:::<<<222////////////222::::::::'
+  +'::::::9::9::9:99:99:99:99:99:9999999999999999999999999999999999999999899898'
+  +'898898898898888888888888888888888888888888888888888888888788788777733333333'
+  +'333333333355577677676676676676666666666666666666666666666666666666666666666'
+  +'566565565565565565565555454555554444544455454455454454454443454344454354444'
+  +'3443433433433432333323001.-/------------///////00101989BBAGGGIIIJJJLLLMLLOO'
+  +'ONONQQPQPQPQPQQQQQQRRRSSSSSRSRSSSSTTTTTTTTTWWWVWWYYYYYYVVWPPQQQRRSTVVVXWX[Z'
+  +'[]]^``adcdhhhmmmpootsswwwyyy|||'#128#128#128#131#131#131#134#134#134#138#138
+  +#138#141#140#140#144#144#144#148#148#148#149#148#149#152#152#152#156#155#155
+  +#159#159#158#163#163#163#165#165#165#169#169#169#173#173#173#174#174#174'iii'
+  +#29#29#29#26#26#26#28#28#28#29#29#29#30#30#30'   !!!"""###$$$$$$$$$$$$######'
+  +'############!!!!!!!!!!!!'#31#31#31#31#31#31#31#31#31#30#30#30#29#29#29#28#28
+  +#28#27#27#27#26#26#26#25#25#27#23#24#30#22#23'!'#19#23'5'#16#24'M'#14#24'b'
+  +#11#23's'#11#24#131#11#26#147#12#28#154#10#26#165#9#26#171#10#26#169#10#26
+  +#169#10#26#169#12#26#166#17#29#154#18#30#150#24'#'#140#30'&'#129'$+t-1g58W??'
+  +'ICCDGF=GF<ED?CCABBA@@@>>>:::888555000,,,''''''"""'#28#28#28#23#23#23#17#17
+  +#17#10#10#10#6#6#6#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2#1#1#1#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#4#4#4'YYY'#166#166#166#166#166#166#163#163#163#158#158#158#155
+  +#155#155#151#151#151#147#147#147#143#143#143#140#140#140#136#136#136#132#132
+  +#132'}}}xxxtttqqpmmmiiigffbbb^]^[[[XXXTTTPPPNNMJIJFFGDDDBAA>>>;;;:::77644'
+  +'4111///---+++*))&&&%&%##$""! !!'#31#30#31#30#30#29#28#27#28#27#27#27#25#25
+  +#25#23#22#23#23#23#22#20#20#21#20#20#20#20#21#21#19#19#20#18#18#18#17#16#17
+  +#16#17#17#17#17#16#15#16#15#15#14#14#14#14#14#13#13#12#13#13#13#12#12#13#12
+  +#12#12#12#12#12#11#11#11#11#11#11#11#11#11#10#10#11#11#10#10#10#10#10#10#10
+  +#10#10#9#10#10#9#10#9#10#10#9#9#9#9#9#9#9#9#9#9#8#8#9#8#8#8#8#8#8#8#8#8#8#8#7
+  +#7#8#7#8#8#7#7#7#7#7#7#7#7#7#7#6#7#7#6#6#7#6#6#6#7#7#6#6#6#6#7#7#6#6#6#6#5#5
+  +#6#6#6#5#5#6#6#6#6#6#6#5#5#5#6#5#5#5#5#5#5#5#5#5#5#4#5#4#4#5#5#4#5#5#4#5#4#5
+  +#4#4#5#4#4#4#4#4#3#4#4#3#3#3#4#3#3#3#3#4#3#3#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3
+  +#3#2#3#3#2#2#3#2#3#3#3#2#3#2#2#2#2#2#2#2#3#2#2#2#2#2#2#1#2#2#2#2#1#1#2#2#2#1
+  +#2#2#1#1#1#2#2#1#2#1#1#2#1#1#1#2#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#0#1#0#1#1#0#0
+  +#0#0#1#0#0#0#0#1#0#0#1#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#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#0#0#0#0#0'000yyy00000000000000000000000000000000000000044'
+  +'4666888:::===///////////////444::::::::::::::9::9::9::9:99:99:99:99:9999999'
+  +'999999999999999999999999999999999899899898898898898898888888888888888888888'
+  +'888888888888888888888788788765533333333333333333376677777677676676676676666'
+  +'666666666666666666666666666666666666666666566565565565565565554465564455554'
+  +'4545665554544545544543544543544544444434433533433433433333000,,---.------/.'
+  +'.//////000667CBCGGGIIIKKKNNNOOOQQQQQQRRRSSSTTTTTTUUUSSSUUUUUUUUUUUTUUUVUVUU'
+  +'VVVWWWWXXXYYYZYZ[[[^^]`__]\\WWWXXYZ[[\]^`aabbcffgiijlllrrrvvvzyy|||'#128#128
+  +#128#131#131#131#134#134#134#138#138#138#141#141#141#144#144#144#148#148#148
+  +#151#151#151#154#154#154#156#156#155#160#160#159#163#163#163#166#166#166#170
+  +#170#170#173#173#173#160#160#160'III'#26#26#26#27#27#27#29#29#29#31#31#31'  '
+  +' !!!###$$$%%%%%%%%%%%%%%%%%%%%%%%%$$$$$$$$$######!!!!!!!!!!!!'#31#31#31#31
+  +#31#31#31#31#31#29#29#29#28#28#28#27#27#27#25#25#24#24#25#29#11#25'w'#2#26
+  +#195#0#25#205#0#25#204#0#24#210#0#24#212#0#23#209#0#21#206#0#21#204#0#21#202
+  +#0#20#200#0#19#198#0#19#197#0#18#196#0#18#195#0#17#196#0#15#195#0#14#195#0#14
+  +#195#0#14#192#0#15#187#1#16#182#6#19#173#16#27#154#30'&'#134'+0p:<YDDIIIBJI@'
+  +'FFCDDCAAA???;;;777333...(((###'#29#29#29#23#23#23#16#16#16#10#10#10#5#5#5#3
+  +#3#3#3#3#3#3#3#3#3#3#3#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'333'
+  +#152#152#152#167#167#167#164#164#164#159#159#159#155#155#155#152#152#151#148
+  +#148#148#144#144#144#140#140#140#136#136#136#132#132#132#128''#128'}}}xxxtt'
+  +'tqqqmmmjiieeebbb]]][Z[WWWSSSPPPMMMJIIFFGDDDBAB>>>;;;989566343222///-,-+++()'
+  +'(&''''$%$###!!!   '#30#29#29#28#28#29#26#26#26#26#26#26#24#24#24#23#23#22#22
+  +#22#22#20#20#21#20#21#20#20#20#20#19#19#19#18#18#18#17#17#17#17#17#16#15#16
+  +#16#15#15#15#14#15#14#14#14#14#13#13#12#13#12#13#13#12#13#13#13#12#11#11#11
+  +#11#11#11#10#11#11#11#11#10#10#10#10#10#10#11#10#10#10#10#10#9#10#10#10#9#9#9
+  +#10#9#9#9#9#9#9#9#9#8#9#9#9#8#9#9#9#8#8#8#8#8#7#8#8#7#8#7#8#7#7#7#7#7#7#8#7#7
+  +#7#7#7#7#6#7#7#7#7#7#6#7#6#6#6#6#7#7#7#6#6#6#6#6#6#6#5#6#6#5#5#6#5#5#6#6#5#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#4#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4
+  ,#3#4#4#4#4#4#3#3#4#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2
+  +#2#2#3#2#3#2#2#2#2#2#2#3#3#2#2#2#2#2#2#2#2#1#2#1#1#2#2#1#1#1#1#1#1#2#2#1#1#2
+  +#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#0#0#0#0#1#0#0#0#1#1#1#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#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#0#0#0#0#0#0#0
+  +#0'000yyy000000000000000000000000000000000000111444666888;;;;;;...//////////'
+  +'//777::::::::::::::9::9::9::9:99:99:99:99:999999999999999999999999999999999'
+  +'999999999989989889889889889888888888888888888888888888888888888888888888878'
+  +'874443333333333333335447777777777767767667667667666666666666666666666666666'
+  +'666666666666666666656656556556556556555555556546555566565556545445455445545'
+  +'54543543544443443443433433433///-,,---............000333@@@GGGIIIKKKNNNPPPS'
+  +'SSSSSUUUWWWVVUVVWWWWUVVPQQOOOPPQPPPPPPSSSXXWWWWYYXXXXXXXYYYYZZ]]]]]^___bbad'
+  +'ddeeeaaa]]^```cccfefihikklooosssyxx}||'#128#128#128#131#131#131#134#134#134
+  +#138#138#138#141#141#141#145#144#145#148#148#148#152#152#152#155#155#155#158
+  +#158#159#161#161#161#164#164#163#167#167#167#170#171#171#174#175#174#145#145
+  +#145'222'#27#27#27#29#29#29#30#30#30'   """###$$$%%%&&&''''''''''''''''''&&&'
+  +'''''''&&&&&&&&&%%%$$$$$$$$$######!!!!!!!!!!!!   '#31#31#31#30#30#30#29#29#29
+  +#27#27#27#25#25#25#24#24#22#22#23'"'#13#24'd'#3#25#184#0#25#207#0#25#203#0#24
+  +#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193
+  +#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#15#186#0#14
+  +#186#0#13#187#0#11#189#0#11#185#2#14#178#11#21#162#29'#'#136'04mBCRJJELKBHHD'
+  +'DDDAAA===999444///)))###'#28#28#28#23#23#23#16#16#16#8#8#8#4#4#4#3#3#3#3#3#3
+  +#3#3#3#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#28#28#27#135#135#135
+  +#168#168#168#163#164#164#160#160#160#156#156#156#153#153#152#148#148#148#144
+  +#144#144#141#141#141#136#136#136#132#132#132'}}}xxxtttqqpmmmiiieeebbb^]^Z'
+  +'ZZVVVSSSOOPMMMJJJFFFDCC@@@==>;;;999556333010///---***''''''&&''##$###!!!'#31
+  +#30#31#29#30#30#28#27#27#26#26#26#25#26#25#23#23#23#23#23#23#22#22#22#20#21
+  +#20#20#20#20#19#20#19#18#18#18#17#17#16#16#17#17#16#16#17#16#15#16#14#14#15
+  +#14#14#14#13#13#13#13#12#13#13#12#12#12#12#12#12#11#11#11#11#11#11#11#11#10
+  +#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#9#9#9#9#9#9#9#9
+  +#9#8#9#9#9#8#8#9#9#8#8#8#8#8#8#8#8#8#8#8#8#7#7#8#7#8#7#7#7#7#7#7#7#7#7#7#7#7
+  +#7#6#6#7#7#6#7#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5#5#6#6#5#6#6#5#6#5#5#5#6#6#6#5#6
+  +#5#6#5#5#5#5#5#5#5#5#5#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3
+  +#4#3#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#2#3#2#3#2#2#2#2#2#2
+  +#2#3#2#2#2#2#2#2#2#2#1#2#2#1#2#2#2#2#2#2#1#1#1#2#1#2#2#2#2#2#1#1#1#2#1#1#1#1
+  +#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#1#1#1#1#0#1#1#0#0#0#0#1#0#0#0#0#0#0#0#0#1#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#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'000yyy000000000'
+  +'000000000000000000000000000222444777999;;;999...////////////999::::::::::::'
+  +':::::9::9::9::9:99:99:99:99:99999999999999999999999999999999999999998998988'
+  +'988988988988988888888888888888888888888888888888888888887877333333333333333'
+  +'333666777777777777776776766766766766666666666666666666666666666666666666666'
+  +'666665665655655655655645655655655656555566655554554554554454543544544443434'
+  +'433544433///-------..--.///...001:;:DEDHHHKKKNNNQQQTTTVVVWWWWWWXXXOOOGGG???'
+  +'777898::9;;;<;;===?@?@@@ABBFFFKKKQQQYYX[[\\\\]\]___`aacccfeehhhjjjjjjddeeff'
+  +'ihjlkloooqrrvvvyyy'#128''#131#131#131#134#134#134#138#138#138#141#141#141
+  +#145#145#145#148#148#148#152#152#152#155#155#155#160#160#160#163#162#163#166
+  +#166#166#168#168#168#171#171#171#175#176#176'|||%%%'#28#28#28#30#30#30'   ""'
+  +'"###%%%&&&''''''(((((()))((((((((((((''''''''''''&&&&&&%%%$$$$$$$$$######!!'
+  +'!!!!!!!   '#31#31#31#30#30#30#29#29#29#27#27#27#25#26#26#24#24#24#22#22#19
+  +#22#21#7#16#22'8'#0#26#200#0#25#206#0#25#203#0#24#202#0#24#201#0#23#199#0#22
+  +#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190
+  +#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#13
+  +#182#0#11#183#0#9#185#0#10#181#5#16#169#25' '#142'04nFFRNMEKKDFFECCC???99955'
+  +'5...(((!!!'#27#27#27#20#20#20#12#12#12#6#6#6#3#3#3#3#3#3#3#3#3#2#2#2#1#1#1#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#11#11'ooo'#169#169#169#165#165#165#161
+  +#161#161#156#156#156#152#153#153#149#149#149#144#144#144#141#141#141#136#136
+  +#136#132#132#132''#128'}}}xxxtttqpqllliijddd`aa^^^ZZZWVWRRSOOPLKKHIIEEECBC'
+  +'??@<<<:::887555232/0/...,,,)**&&&&%%##$"""!!!'#31#31#31#30#30#29#27#28#27#26
+  +#26#27#24#24#24#23#23#23#22#21#22#21#20#21#20#21#20#21#20#20#20#19#19#18#18
+  ,#18#17#17#17#17#17#17#16#15#15#15#16#15#15#14#14#14#14#14#13#13#13#13#12#13
+  +#12#13#13#12#13#12#12#11#12#11#11#11#11#11#11#10#11#10#10#10#11#10#10#11#10
+  +#10#10#10#10#10#9#10#10#10#9#10#10#9#9#9#9#9#9#9#9#9#9#9#8#9#9#9#8#9#8#8#8#8
+  +#8#8#8#8#8#7#8#8#7#8#8#7#8#7#8#8#7#7#7#7#7#7#7#7#7#7#6#6#7#6#7#7#6#6#6#6#6#6
+  +#6#6#6#6#6#6#6#6#6#5#6#5#6#5#5#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5
+  +#4#5#4#4#4#4#4#5#4#5#4#4#4#4#4#4#4#4#4#3#4#4#3#4#4#3#3#4#4#3#4#4#3#3#3#3#4#3
+  +#3#3#3#3#3#3#3#2#3#2#3#2#3#3#2#3#3#2#2#3#3#2#2#2#2#3#2#2#3#3#2#2#2#2#2#2#1#2
+  +#2#1#2#2#2#1#2#1#2#1#1#1#1#1#2#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#0#1
+  +#1#1#1#1#1#0#1#0#0#1#1#1#1#0#1#0#1#1#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#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'000yyy00000000000000000000000000000000000022255'
+  +'5777999;;;656////////////000::::::::::::::::::::9::9::9::9:99:99:99:99:9999'
+  +'999999999999999999999999999999999999899899898898898898898888888888888888888'
+  +'888888888888888888888888766633333333333333333377777777777777777777677676676'
+  +'676676666666666666666666666666666666666666666666666566565565565565465556566'
+  +'65665666655666555555556545545445435435445444334440//---.-----.../////0112??'
+  +'?GGFJJJNNNQQQSSSUUUYYYZZZRRRBBC766555666777888999:::<;<===?>>@@@AAACCCDEEFG'
+  +'GIHHJIJOOOXXX]]]```aabddcggfiiilllpooqqqmlmkkkonoqqruuuxxy{{|'#128#128#128
+  +#133#133#133#138#137#137#141#141#141#145#145#145#148#148#148#152#152#152#155
+  +#155#155#160#160#160#163#162#163#167#167#167#170#170#170#174#174#173#176#176
+  +#176'lll'#27#27#27#29#29#29#31#31#31'"""###%%%&&&''''''((())))))))))))***)))'
+  +'))))))''''''''''''''''''&&&&&&%%%$$$$$$$$$######!!!!!!!!!   '#30#30#30#29#29
+  +#29#27#27#27#26#26#26#23#23#23#22#22#22#21#20#12#15#21'@'#0#26#205#0#26#207#0
+  +#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21
+  +#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187
+  +#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#179#0#11
+  +#179#0#8#182#0#8#179#8#17#165'!&'#132'<>_LLINNEHHFCCC???999444---%%%'#31#31
+  +#31#25#25#25#17#17#17#9#9#9#4#4#4#3#3#3#2#2#2#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0'\\\'#169#169#169#165#165#165#161#161#161#157#157#157
+  +#152#152#152#149#149#149#144#144#144#141#141#140#136#136#136#132#132#132''
+  +'|||wwwtttppolllhiidccaaa\]]YYYUVURSROOOKKKHHHDDDABA>>>;;;:::767343111///-.-'
+  +'+++(()''&''$$%###!"!   '#30#29#30#29#29#28#26#26#27#26#25#25#24#24#24#23#23
+  +#23#21#22#22#21#20#20#20#21#20#20#20#19#18#18#18#17#17#17#17#17#17#17#17#16
+  +#16#16#16#14#14#15#14#14#14#13#13#13#13#13#13#13#13#13#13#13#12#11#12#11#11
+  +#11#11#11#11#11#11#11#11#11#11#11#10#11#11#10#11#10#10#10#10#10#10#10#10#10
+  +#10#9#9#9#9#9#10#9#9#9#9#9#9#9#9#9#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7
+  +#7#7#7#7#7#7#7#7#7#7#7#6#6#7#7#6#7#7#7#7#6#6#6#6#6#6#7#6#6#6#6#6#6#6#6#5#6#6
+  +#6#6#6#6#6#5#6#5#6#5#5#6#5#5#5#5#5#5#4#4#5#5#4#5#4#4#4#4#4#5#5#5#5#4#5#4#4#4
+  +#4#5#4#3#4#4#4#4#4#4#4#4#4#3#4#4#3#3#4#3#3#3#3#3#4#3#3#3#3#3#3#3#2#3#3#3#3#3
+  +#3#3#2#3#3#2#2#3#2#3#2#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#1#1#1#2#1#2#1#2
+  +#2#1#2#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#1#1#1#0#1#0#0#0#1#0#0#0#0#1#0
+  +#1#0#0#0#0#0#0#1#0#1#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#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
+  +'000yyy000000000000000000000000000000000000333555777:::<<<333////////////212'
+  +'::::::::::::::::::::9::9::9::9:99:99:99:99:99999999999999999999999999999999'
+  +'999999999998998988988988988988888888888888888888888888888888888888888888444'
+  +'333333333333333544777777777777777777777776776766766766766666666666666666666'
+  +'666666666666666666666666665665655655655645666665665556666556665555555555554'
+  +'554544444444444534121-.-.-.------////00221AAAFFFLLKOOOSSSVVVXYY[[[QQQ<<<444'
+  +'433444666777777999:::<;<<;<>=>@?@@@@CCBEEEFFFGGHIIHKKKMMNPQPSSS\\\cbcfffiii'
+  +'klknonpppsssvvvtttqqrtttxxx{{{'#130#130#131#135#135#135#141#141#141#145
+  +#145#145#148#148#148#152#152#152#155#155#155#160#160#160#162#162#163#167#167
+  +#167#170#170#170#174#174#174#177#177#177'aaa'#28#28#28#31#31#31'   """%%%&&&'
+  +'((()))***+++++++++******+++******))))))''''''''''''''''''&&&&&&%%%$$$$$$$$$'
+  +'######"""!!!   '#31#31#31#29#29#29#27#27#27#26#26#26#24#24#24#21#21#21#21#19
+  +#8#11#22'\'#0#27#214#0#26#207#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0
+  +#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19
+  +#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183
+  +#0#14#182#0#14#181#0#13#180#0#12#178#0#12#177#0#11#177#0#9#177#0#7#181#1#10
+  +#173#22#28#147'57lMMMOOFHHFCCC???888222+++###'#28#28#28#21#21#21#13#13#13#5#5
+  ,#5#3#3#3#2#2#2#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'OOO'#169
+  +#169#169#165#165#165#161#161#161#157#157#157#152#152#152#149#149#149#144#144
+  +#144#141#141#141#136#136#136#132#132#132'|||wwwtstnnokkkgggccc```\[\XXXTT'
+  +'URQQNNNJJJGGGDDDBAB>?>;;;998666233011///---***(''''&%%#$$"""!!!'#31#31#31#30
+  +#30#30#28#28#28#26#26#26#26#25#25#23#23#23#22#22#22#20#21#20#21#21#20#20#21
+  +#21#19#19#19#18#18#18#17#17#17#17#17#17#16#16#16#15#16#15#15#14#14#13#13#13
+  +#13#13#13#13#13#13#13#13#13#11#12#11#11#12#12#11#11#11#11#11#11#11#11#11#11
+  +#10#10#11#11#10#10#10#10#10#10#10#10#10#10#10#10#9#9#9#10#9#9#10#9#9#9#9#9#9
+  +#9#8#8#8#8#8#8#8#8#8#8#8#8#8#7#8#7#8#7#7#8#7#7#8#8#7#7#7#7#7#7#7#7#7#7#7#7#7
+  +#6#7#7#6#7#7#6#7#7#6#6#6#6#6#7#6#6#6#6#6#6#6#5#6#5#6#5#6#5#6#6#5#5#6#5#6#5#5
+  +#5#5#5#5#5#5#5#4#5#4#5#4#5#5#5#5#4#5#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4
+  +#4#4#4#3#3#3#3#4#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#2#2#2#2#3#2#2#3#3#3
+  +#2#3#2#2#2#2#2#2#2#2#1#2#2#1#2#1#1#2#2#2#1#2#2#1#1#1#2#1#2#1#1#2#1#1#1#1#1#1
+  +#1#2#0#1#1#0#1#1#1#1#1#1#1#1#1#1#1#1#0#0#0#0#0#0#1#0#1#0#1#1#1#0#0#0#0#1#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#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'000yyy000000000000000000000000000'
+  +'000000000333666888:::<<<111////////////544:::::::::::::::::::::::9::9::9::9'
+  +':99:99:99:99:99999999999999999999999999999999999999998998998988988988988988'
+  +'888888888888888888888888888888888888888333333333333333333655777777777777777'
+  +'777777777776776766766766766666666666666666666666666666666666666666666665665'
+  +'655655666666666666566665556666655555554554555544544543544322.---...--...///'
+  +'000444BCCHHGKKLPPQUUUYXXZ[ZVVV===333333344554565666877888999;;;<<<>>>???@@@'
+  +'CBCDDDFEEGGGIIILLLNNNPPOSRRUUUVVVZZZcccijjlllooprsrvuuyyy|||{{{wwx{{{~~~'
+  +#130#130#131#133#133#134#138#138#138#142#142#142#148#148#148#151#151#151#155
+  +#155#155#160#160#160#163#163#163#167#167#167#170#170#170#174#174#174#174#174
+  +#173'VUU'#29#29#29#31#31#31'!!!$$$&&&'''''')))***+++,,,,,,,,,,,,+++,,,++++++'
+  +'******))))))''''''''''''''''''&&&&&&%%%$$$$$$$$$######!!!   '#31#31#31#30#30
+  +#30#27#27#27#25#25#25#23#23#23#21#21#21#21#19#8#9#24'y'#0#28#221#0#26#206#0
+  +#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22
+  +#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189
+  +#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13
+  +#180#0#12#178#0#12#178#0#12#176#0#11#175#0#10#176#0#7#178#0#7#176#19#24#151
+  +'58lMMMNNFHHGBBB<<<666...'''''''#31#31#31#25#25#25#16#16#16#8#8#8#3#3#3#2#2#2
+  +#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'AAA'#165#165#165#165
+  +#165#165#161#161#161#157#157#157#152#153#152#149#149#149#144#144#144#140#140
+  +#140#136#136#136#132#131#131#128''#128'{{{wwwrsroonjjjfffbbb^__Z[[XXXSTSOPO'
+  +'MMMJIJFFFDDDA@A===;:;888655223/0/...,,,*)*&''''$$%#$#"""   '#29#30#30#29#29
+  +#29#27#26#26#26#25#25#24#24#24#23#23#23#21#22#22#21#20#20#21#21#21#19#20#19
+  +#18#18#18#17#17#18#17#17#17#16#16#16#15#15#16#14#15#14#15#14#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#11#12#11#11#11#12#11#11#11#11#11#11#11#10#11#10#11
+  +#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#9
+  +#8#8#8#8#8#8#7#8#8#8#8#8#8#8#8#8#8#8#7#8#7#8#7#7#7#7#7#7#7#7#7#7#6#7#7#7#6#7
+  +#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#5#5#6#5#6#6#5#5#5#5#5#5#5#5
+  +#5#5#4#5#5#4#5#5#4#5#4#5#4#4#5#4#4#4#4#5#4#4#4#4#4#4#4#4#4#3#3#4#3#4#4#4#3#3
+  +#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#2#3#3#2#3#3#3#2#3#2#3#2#3#3#3#3#3#3#2#3#2#2#2
+  +#2#2#2#3#2#2#2#2#2#2#2#2#2#2#1#1#2#2#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#2#1#1#1
+  +#1#1#1#1#1#0#1#1#0#1#1#1#0#1#0#1#1#1#0#0#1#1#0#1#0#0#0#1#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#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'000yyy000000000000000000000000000000000000444'
+  +'666888:::===...////////////666:::::::::::::::::::::::9::9::9::9:99:99:99:99'
+  +':99999999999999999999999999999999999999998998998988988988988988888888888888'
+  +'888888888888888888888888766333333333333333333777777777777777777777777777777'
+  +'776776766766766766666666666666666666666666666666666666666666665665655666766'
+  +'666666656666666655665665655554554644544544444.....-.-.-.-...110444DDDIIIMLM'
+  +'QQPVWV[[Z\\\JJK555333333444555545666888788999:::<<<===>=>@@@BBBDDDEEEGGGJII'
+  +'JJJMMMOOORRQTSSWVWXXY[[\^^^dddmmmqrrutuxxwzzz'#129#129#129#129#129#129'}'
+  +'~~'#129#129#130#133#133#133#137#137#138#140#140#141#144#144#145#150#150#150
+  +#155#155#155#159#159#159#163#163#163#167#167#167#170#170#170#174#174#174#174
+  +#174#174'SSS'#31#31#31'   """$$$''''''(((***+++------...---------,,,,,,,,,++'
+  +'++++******))))))''''''''''''''''''&&&&&&%%%$$$$$$$$$###"""!!!'#31#31#31#30
+  ,#30#30#28#28#28#25#25#25#22#22#22#21#21#19#20#19#17#6#25#148#0#28#218#0#27
+  +#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199
+  +#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19
+  +#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182
+  +#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174#0#7
+  +#177#0#7#175#18#24#150'8:hOOJMMFFFF@@@:::222+++"""'#28#28#28#19#19#19#10#10
+  +#10#4#4#4#2#2#2#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'>>>'
+  +#166#166#166#165#165#165#161#161#161#157#157#157#152#152#152#148#148#148#144
+  +#144#144#140#140#140#135#135#135#130#131#131'~~zzzvvvrrqnnmijjfffbbb^^^ZZZW'
+  +'WWSRSPOOLLLIIIEEECBB???<<<:::767444211/0/--.+++)))''&''##$###""!'#31#31#31
+  +#30#30#30#28#27#28#26#27#26#25#25#25#23#23#24#23#23#23#21#21#21#21#20#21#21
+  +#21#21#20#19#19#19#18#18#17#17#17#17#17#17#16#16#16#15#14#15#14#14#14#13#13
+  +#14#13#14#13#13#13#13#13#13#12#12#12#12#11#12#11#11#11#11#11#11#11#11#11#11
+  +#11#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9#9#9#9#9#9#9#9#9#9#9#9#8
+  +#8#9#9#8#9#9#8#8#8#8#8#9#8#8#8#8#8#8#7#8#7#8#7#8#7#7#7#7#8#7#7#7#7#7#6#7#7#7
+  +#7#6#6#7#7#7#6#7#6#7#6#6#7#6#6#6#7#6#6#6#6#6#6#6#6#5#6#5#6#5#6#6#6#6#5#5#5#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3
+  +#4#4#3#3#3#3#4#4#4#4#3#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#2#2#2#3#2#3#3#3#3#2
+  +#3#3#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1#1#2#1#2#1#1#1#2#1#1#1#1#1#2#1#1#1#1
+  +#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#0#1#1#0#1#1#1#1#1#1#0#0#0#0#0#1#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#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'000yyy000000000000000000000000000000000'
+  +'111444666999;;;;;;...////////////777::::::::::::::::::::::::::9::9::9:99:99'
+  +':99:99:99999999999999999999999999999999999999999998998988988988988988888888'
+  +'888888888888888888888888888888555333333333333333444777777777777777777777777'
+  +'777777777776776766766766766666666666666666666666666666666666666666666665666'
+  +'766766766666666655666556565555555555555554544544000.-...---....000323BBAJII'
+  +'MMMRRRWWWZZZ[[[>>?122323343334544555666888877888999<<<<<<?>>@@@AAABCCEEDGFG'
+  +'HIHIJILLLNNNQQQSRRVUUXXW[Z[]]^`a`cccgggqpqwvwyyy|||'#129#129#129#132#132#132
+  +#136#136#136#133#133#133#133#133#134#136#136#136#140#140#141#143#143#144#148
+  +#148#148#152#152#152#157#157#157#163#163#163#166#166#166#170#170#170#174#174
+  +#174#174#174#174'TTT'#31#31#31'!!!###&&&(((***,,,---.....................---'
+  +',,,,,,,,,++++++******))))))''''''''''''''''''&&&&&&%%%$$$$$$$$$###"""   '#30
+  +#30#30#27#27#27#26#26#26#23#23#23#21#20#18#19#20#23#3#26#174#0#28#216#0#28
+  +#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201
+  +#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19
+  +#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183
+  +#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10
+  +#173#0#9#173#0#6#175#0#7#172#25#30#141'BB^QQGJJGCCC===666---&&&'#30#30#30#21
+  +#21#21#13#13#13#5#5#5#2#2#2#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0'>>>'#165#165#165#165#165#165#161#161#161#156#156#156#152#152#153#147#147
+  +#147#143#143#143#139#139#139#134#134#134#130#131#130'~~~zzzuuurqqmmmjiieddaa'
+  +'a]\]YYYUVUQQQOOOKKKGGGDDDBBB>?>;;;999665322011///,,,*+*''((&%&$#$""#!!!'#30
+  +#30#30#29#29#29#27#27#27#26#27#26#24#24#24#23#23#23#22#22#22#21#21#21#20#20
+  +#20#20#19#19#18#18#18#18#17#17#17#17#17#16#16#16#16#15#16#15#15#15#13#14#14
+  +#13#13#13#13#13#13#13#13#13#11#11#12#11#12#12#11#11#11#11#11#11#11#11#11#11
+  +#10#11#11#10#11#10#10#10#11#10#10#10#10#10#10#10#10#9#10#9#9#10#9#9#9#9#9#9#9
+  +#9#9#9#9#9#9#9#9#8#9#8#9#8#8#8#8#8#8#8#8#8#7#8#7#8#7#8#7#7#8#7#8#7#7#7#7#7#7
+  +#7#7#7#7#6#6#7#7#6#7#7#6#6#6#6#6#6#6#6#7#6#6#6#6#6#6#6#5#5#6#5#6#6#5#5#6#6#5
+  +#5#5#5#5#5#6#5#5#5#5#5#4#5#5#5#4#5#5#5#5#5#4#4#5#5#5#5#4#5#4#4#4#3#4#4#4#4#4
+  +#4#4#4#4#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#3#2#3#2#2#2#2#2#3#2#3
+  +#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#1#1#2#1#1#1#1#1#1#1#2
+  +#1#2#1#1#1#1#1#1#0#1#1#1#1#1#1#1#0#1#0#1#0#1#1#1#1#0#1#0#0#1#0#0#0#0#0#0#0#0
+  +#0#0#0#0#1#1#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#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'000yyy000000000000000000000000000000000'
+  +'111444777999;;;:::...////////////:::::::::::::::::::::::::::::9::9::9::9:99'
+  +':99:99:99:99999999999999999999999999999999999999998998998988988988988988888'
+  +'888888888888888888888888888888444333333333333333555777777777777777777777777'
+  +'777777777777776776766766766766666666666666666666666666666666666666666666766'
+  +'776766766766666666666555666665665655555654544322......-...///./122BBBHHIMMN'
+  ,'RRRVVV[[[\[\:::111222334434444444655777888877:::;;:<<<==>???@@@BBBDDDEEEHHH'
+  +'JIJKLKNNNPPPSSSUUUWWWZ[Z]]\___bbbeeeiiikkkuvu|{|~'#130#131#131#134#134#134
+  +#138#138#138#142#142#142#138#139#139#140#140#140#143#143#143#148#148#149#151
+  +#151#151#156#155#156#160#160#160#166#166#166#170#170#170#174#174#174#178#178
+  +#178'WWW'#31#31#31'!!!$$$'''''')))+++---.../////////////////////......---,,,'
+  +',,,,,,++++++******))))))''''''''''''''''''&&&&&&%%%$$$$$$###"""!!!'#30#30#30
+  +#27#27#27#25#25#25#24#24#24#22#21#17#18#20'#'#1#28#201#0#29#214#0#28#210#0#28
+  +#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201
+  +#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19
+  +#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183
+  +#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10
+  +#174#0#10#172#0#8#172#0#5#175#5#10#166'),{MMONNGEEE@@@999000''''''   '#23#23
+  +#23#14#14#14#7#7#7#2#2#2#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0'AAA'#169#169#169#165#165#165#161#161#161#156#156#156#152#152#151#147#147
+  +#147#142#142#142#139#139#139#133#133#133#129#130#130'}}}xxxtttppplllgggdcc``'
+  +'`[[[XXXTUTPQPMMMJJJGGFDDD@A@>>=:::888555323000.-.,,,)))''''''%%$###"!!'#31
+  +#31#31#30#30#30#28#28#28#27#27#27#25#25#26#23#24#23#22#22#22#21#21#21#21#21
+  +#21#21#21#21#19#19#18#17#17#18#17#18#18#17#17#17#16#16#16#14#14#15#15#15#14
+  +#14#13#13#13#13#13#13#13#13#13#13#13#11#12#12#12#11#12#11#11#11#11#11#11#11
+  +#11#11#11#11#11#10#10#11#11#10#10#10#10#10#10#10#10#10#9#10#10#10#9#9#9#9#9#9
+  +#9#9#9#9#8#9#8#9#8#9#9#8#8#8#8#8#8#8#8#8#8#8#8#7#8#8#8#8#8#8#8#7#7#7#7#7#7#7
+  +#7#7#7#7#7#6#7#7#6#7#7#6#6#6#7#6#7#6#7#7#7#6#6#6#6#6#6#6#6#5#5#6#6#5#6#6#6#6
+  +#5#5#5#5#5#5#5#5#6#5#5#5#5#5#5#4#5#5#4#5#4#4#5#5#5#4#4#4#4#4#5#4#4#4#4#4#4#4
+  +#4#4#3#4#4#3#4#3#4#3#4#4#4#4#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3
+  +#3#3#2#3#2#2#3#2#2#2#2#3#2#2#3#2#2#2#2#2#2#2#1#2#2#2#2#1#2#2#2#2#2#2#2#1#1#1
+  +#1#2#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#1#0#1#1#1#0#0#1#0#0#0#0
+  +#0#0#0#1#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#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'000yyy0000000000000000000000000000000'
+  +'00222555777999;;;777...///////////0:::::::::::::::::::::::::::::9::9::9::9:'
+  +'99:99:99:99:999999999999999999999999999999999999999989989989889889889889888'
+  +'888888888888888888888888888888883333333333333333336668777777777777777777777'
+  +'777777777777777777767767667667667666666666666666666666666666666666666666667'
+  +'77777776766766666666666666666666665665555555454./..........///000===HGGMMLR'
+  +'RRWVV\[[[[[:::1011223233333334445666668888889899:9<<<=<=>?>@@@AAACCDEEEFGGI'
+  +'IIJKJNMNNOOQQQSSSWWWXYY[\\___aabdddghgkkknnnrrrzzz'#129#130#129#133#132#132
+  +#137#137#137#140#140#141#144#144#144#148#148#148#144#144#145#147#147#148#150
+  +#151#151#155#155#156#159#158#159#163#163#163#168#168#168#173#173#173#178#178
+  +#178'ccc   """%%%(((***,,,...//////111111111000000000//////......---,,,,,,,,'
+  +',++++++******))))))''''''''''''''''''&&&&&&%%%$$$$$$###!!!'#31#31#31#28#28
+  +#28#25#25#25#23#23#23#22#21#15#15#22'<'#0#30#210#0#29#214#0#29#211#0#28#210#0
+  +#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24
+  +#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192
+  +#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15
+  +#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175
+  +#0#10#174#0#10#173#0#9#171#0#7#172#0#3#175#18#22#150'>@bQPGHHFBBB:::222***""'
+  +'"'#24#24#24#16#16#16#7#7#7#2#2#2#1#1#1#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0'NNN'#169#169#169#165#165#165#160#160#160#155#155#155#151#151#151
+  +#147#147#147#141#141#141#138#137#138#133#133#133#128#129#129'|||wwwtttonokkk'
+  +'fgfbbb^^^[[[WWWRSROOOLLMIIIEEECBC?>?<;;999777444010///---***(((&%&$$$###!!!'
+  +#30#30#30#29#29#29#27#26#27#27#26#27#24#24#24#24#23#23#22#23#22#21#21#21#21
+  +#21#20#20#20#20#18#19#19#17#18#17#17#17#17#16#16#16#15#15#15#15#15#15#14#13
+  +#13#13#13#13#13#13#13#13#13#13#12#12#12#12#12#11#11#11#12#11#11#11#11#11#11
+  +#11#11#11#10#11#11#10#10#10#10#10#10#10#10#10#10#10#9#10#10#10#9#9#10#9#9#9#9
+  +#9#9#9#9#8#9#9#9#8#9#9#9#8#9#8#8#9#8#8#8#8#8#8#8#8#8#7#8#8#8#8#8#7#7#7#7#7#8
+  +#7#7#7#7#7#7#7#7#7#7#7#6#7#7#7#7#7#6#6#6#7#6#6#7#6#6#6#6#6#6#6#5#6#5#5#6#6#6
+  +#6#5#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#5#5#4#4#5#4#4#4#4#4#4#4#4
+  +#4#4#3#4#3#4#3#4#3#3#4#3#4#4#3#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3
+  +#3#2#3#2#2#2#3#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1#1#2#1
+  +#1#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#1#0#1#1#1#0#0#0#0#0
+  +#1#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
+  +#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'000yyy00000000000000000000000000000000022'
+  +'2555777:::<<<656////////////222::::::::::::::::::::::::::::::::9::9::9:99:9'
+  +'9:99:99:99:9999999999999999999999999999999999999999899898898898898898888888'
+  +'888888888888888888888888877732233333333333333387787787777777777777777777777'
+  +'777777777777777777677676676676676666666666666666666666666666666666676677777'
+  +'7777776766666666666666655556655655654655112.../.....///000656HGGLLLQQQWWW[\'
+  +'\\[[999111111222322433444545655888888888:::;<<<<<>>=@?@A@ACDCEEEFFGHHHJJIMM'
+  +'MOOORRQSSSVVWYXX[[[^^^aa`ddcgffiiimnmppptttwww'#128#128#128#135#135#135#138
+  +#139#138#143#143#143#147#147#147#151#151#151#152#152#152#151#151#151#154#154
+  +#154#158#158#158#163#163#163#166#166#167#171#171#171#178#178#178'ppp   ###&&'
+  +'&(((+++---///000111222222222222222000000000//////......---,,,,,,,,,++++++**'
+  +'****))))))''''''''''''''''''&&&&&&%%%$$$###"""   '#29#29#29#26#26#26#23#23
+  +#23#23#21#11#13#24'X'#0#30#219#0#30#214#0#29#212#0#29#211#0#28#210#0#28#209#0
+  +#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23
+  +#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191
+  +#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14
+  +#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174
+  +#0#10#173#0#9#171#0#8#170#0#4#174#2#8#167'*-yOOKKKFCCC<<<444+++###'#25#25#25
+  +#17#17#17#8#8#8#2#2#2#1#1#1#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +']]]'#169#169#169#164#164#164#159#159#159#155#155#155#150#150#150#145#145#145
+  +#141#141#141#136#136#136#132#132#132#128''#128'{{{vvvrrrnnnjjjeefaaa]]]YYYV'
+  +'VVQRRNNNKLKGGGDDDBBB?>>;<;9996663230//...,-,***''''''$%%###"!!  !'#30#30#30
+  +#28#28#28#27#26#27#26#25#26#24#23#24#23#23#23#21#22#22#21#21#21#20#20#20#19
+  +#18#19#17#18#17#17#17#18#16#16#17#16#16#16#15#15#15#14#13#14#13#13#13#13#13
+  +#13#13#13#13#12#12#12#12#12#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11
+  +#10#10#10#11#10#10#10#10#10#10#10#10#10#10#10#10#9#9#9#10#9#9#9#9#9#9#9#9#9#9
+  +#8#8#9#9#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#7#7#8#7#7#7#8#7#7#7#7#6#7
+  +#7#6#7#7#7#6#6#6#7#7#7#7#7#6#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#5#5#5#5#6#5#5#5
+  +#5#5#5#5#5#5#5#5#5#5#5#4#5#5#4#5#4#5#4#5#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4
+  +#4#4#3#4#3#4#4#3#3#4#4#3#3#3#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#2#2#2#3#2#3#2#3
+  +#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#1#1#2#1#2#2#1#1#2#1#2#1#1#1#1#1
+  +#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#0#0#0#0#0#1#0#0#0#0#0#0#0#1#0#1#0
+  +#0#0#1#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#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'000yyy000000000000000000000000000000000333555777:::<<<333'
+  +'////////////222::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:99999'
+  +'999999999999999999999999999999999998998998988988988988988888888888888888888'
+  +'888888888655322322333333333444877877877877777777777777777777777777777777777'
+  +'777776776766766766766666666666666666666666666666666777777777777777776666666'
+  +'666666656666566565665444//./././....///222CCCKKKPOPVVVZZ[]^^=<<111111222233'
+  +'444444454665766777899999:::<<<===???@@ABBACCDEEEHHHJJJLLLNNNPPPSRRTTTWXW[ZZ'
+  +']]^```ccbeffiijllmoporsrxxwzzz~~~'#134#134#134#141#141#141#145#145#145#149
+  +#149#149#154#153#153#157#157#157#157#157#157#158#158#158#161#161#161#166#165
+  +#166#170#171#171#175#174#175'"""###&&&))),,,...00011122244433333333333322'
+  +'2222000000000//////......---,,,,,,,,,++++++******))))))''''''''''''''''''&&'
+  +'&&&&%%%###"""   '#30#30#30#27#27#27#24#24#24#23#21#9#11#26'w'#0#31#228#0#30
+  +#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206
+  +#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22
+  +#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188
+  +#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12
+  +#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0#9#170#0
+  +#6#171#0#3#173#25#29#141'FHUMMEEED===555,,,###'#27#27#27#18#18#18#9#9#9#2#2#2
+  +#1#1#1#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#1'ppp'#168#168#168#163
+  +#164#164#158#158#158#154#153#153#150#150#150#144#145#144#140#140#139#135#135
+  +#135#131#130#131'~~~zzztttpqplllhihddc```\\\XXXUTUPPQMMMJJJFFFCDD@@@==<:::77'
+  +'7555122000..-***()(&&%$$$"##"""'#30#30#30#29#29#29#27#27#27#26#26#26#25#25
+  +#24#24#23#23#22#22#22#21#21#21#21#21#21#20#20#20#19#19#19#17#17#18#17#18#17
+  +#16#16#16#15#15#15#15#15#15#14#13#14#13#13#13#13#13#13#12#12#12#12#12#12#12
+  +#12#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#11#10#10#10#10#10#10
+  +#10#9#10#10#10#10#10#10#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#8#8#9#9#8#8#8#8#8
+  +#8#8#8#7#8#8#8#8#8#7#8#7#8#8#7#8#7#7#8#7#7#7#7#7#6#7#6#7#7#6#6#6#6#7#6#7#7#7
+  +#7#6#6#7#6#6#6#6#6#6#5#6#6#5#6#6#5#5#5#6#5#5#6#5#6#5#5#6#6#5#5#5#5#5#5#5#4#5
+  +#5#4#5#4#4#5#4#5#5#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#4#4#3#3#3#4#4#3#3
+  ,#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#2#3#2#2#3#3#2#2#2#2#2#2#2#3#3#2#2#2#2#2
+  +#2#2#2#2#2#2#2#1#2#1#2#2#2#2#2#2#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#0#1#1#1#0#1#1#0#1#1#1#0#1#0#0#0#0#0#1#1#1#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#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'000yyy00000'
+  +'0000000000000000000000000000333666888:::<<<222////////////545::::::::::::::'
+  +'::::::::::::::::::9::9::9::9:99:99:99:99:9999999999999999999999999999999999'
+  +'999999999899898898898898898888888888888888888888888888854432232232233333355'
+  +'587787787787787777777777777777777777777777777777777777677676676676676666666'
+  +'6666666666666666666666777777777777777766666666666666666566665565665211.....'
+  +'.././//000<<<IIIMNNTTTZZY^^^EEF011221121222334444444545666766989889::;=<<<<'
+  +'=>>>@@@AAADCDEEEGGFHHHJJKMMMOOORQRSTTVVWXYX\\\```bbbedehhglllonosrsuuvyyy||'
+  +'|'#128#128#128#134#134#133#142#143#143#148#147#148#152#152#152#156#156#156
+  +#161#161#160#164#164#164#161#161#161#165#166#166#170#169#170#173#174#174#147
+  +#147#147')))###''''''))),,,///000222333444444444444333333333222222000000000/'
+  +'/////......---,,,,,,,,,++++++******))))))''''''''''''''''''&&&%%%$$$"""   '
+  +#30#30#30#27#27#27#25#25#24#23#22#16#7#28#148#0' '#227#0#31#215#0#30#214#0#30
+  +#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205
+  +#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21
+  +#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187
+  +#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12
+  +#178#0#12#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0#9#170#0#7#170#0#3
+  +#174#11#16#157'<=aONEEED>>>555---$$$'#27#27#27#18#18#18#9#9#9#2#2#2#1#1#1#1#1
+  +#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#10#10#10#136#136#136#167#167#167#163
+  +#163#163#158#158#158#153#153#152#148#148#148#143#143#143#139#139#139#134#134
+  +#134#129#130#129'}}}xxxtttonnkkkgggcbb^^^[[[WVWRRSOOOLLMIIHDDDBBA???;<<99966'
+  +'6333//0...--,**+(''''%%%###!!"  !'#30#31#30#28#28#28#27#27#27#25#25#25#23#24
+  +#24#23#23#22#22#21#21#22#21#21#20#20#20#19#18#18#18#18#18#18#18#18#17#16#16
+  +#16#17#16#15#15#15#14#14#14#13#13#14#13#13#13#13#13#13#12#12#12#12#12#12#12
+  +#12#12#18#17#17#19#18#19#19#19#19#19#19#18#19#18#18#18#18#19#18#18#18#18#18
+  +#18#17#18#18#18#18#17#17#17#18#14#14#15#13#13#13#13#13#13#13#13#12#10#10#11#9
+  +#8#9#8#8#8#9#8#8#8#8#8#8#8#8#7#8#8#8#8#8#7#8#7#7#8#7#7#7#8#7#7#7#7#7#7#7#7#6
+  +#6#7#7#6#7#7#6#7#6#6#6#7#6#6#6#6#6#6#6#6#6#6#5#6#6#6#5#6#5#5#5#6#5#5#6#5#5#5
+  +#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#4#5#5#4#4#4#5#4#4#4#4#3#4#4#3#4#4#3#4#4
+  +#4#3#4#4#3#4#4#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#2#2#3#3#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#1#1#2#1#2#2#2#2#2#2#2#2#2#1#2#1#2#1#1#2#1#1#1#1#1#2#1#1#1
+  +#2#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#0#0#0#0#0#1#1#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#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'
+  +'00yyy000000000000000000000000000000000444666888:::<<<000////////////545::::'
+  +':::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999999999999999999'
+  +'999999999999999999989989889889889889889888888888888888888888888884443223223'
+  +'223223336668878778778778778777777777777777777777777777777777777777767767667'
+  +'667667666666666666666666666667777777777777777776666666666666666665666555655'
+  +'55./////../.../0/333EEELLLQQQWWW\]]SSR0100012212122234444444446665568878999'
+  +':9:::<=<===???AAABBBDDCFFFIHIJJJMMMNONQQQSSSVVVXXX[[\^^^aaadddgggjjjnnnqqpt'
+  +'tuxxx||}'#128''#132#132#132#135#135#135#141#141#141#150#150#150#153#154
+  +#153#158#158#158#163#163#163#167#167#167#169#169#169#168#168#168#173#173#173
+  +#163#163#164'777$$$'''''')))---...111333444555555555555555444333333333222222'
+  +'000000000//////......---,,,,,,,,,++++++******))))))''''''''''''''''''&&&%%%'
+  +'###!!!'#31#31#31#29#29#29#26#26#24#23#23#22#6#29#164#0' '#231#0#31#216#0#31
+  +#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206
+  +#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22
+  +#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189
+  +#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13
+  +#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0
+  +#9#170#0#8#169#0#4#172#5#9#165'24lNNEFFD>>>555---$$$'#27#27#27#18#18#18#8#8#8
+  +#2#2#2#1#1#1#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#26#26#26#155#155#155
+  +#166#166#166#161#161#161#156#156#156#152#152#151#147#147#147#141#141#141#137
+  +#137#136#133#133#133#128#128'{{{wwwrrrnnniiieffaaa]]]XXXVVVQRQNNNKKJGGGDDDA'
+  +'A@>>>;;:8995552220/0...***()(&&&$$$##""""'#30#31#31#29#29#30#27#27#27#26#26
+  +#26#24#24#23#24#24#24#22#22#22#21#22#21#21#21#21#19#19#19#18#18#18#18#18#17
+  ,#16#16#16#17#16#16#15#15#15#14#14#14#14#14#14#13#14#13#14#13#13#12#12#12#12
+  +#12#12#15#15#15#25#26#25#25#25#26#26#26#26#26#26#26#26#26#26#27#27#26#26#26
+  +#26#27#26#26#26#25#26#26#26#26#26#25#25#26#26#25#25#26#25#25#25#25#25#25#25
+  +#25#24#24#25#25#25#24#25#25#22#21#21#20#20#20#19#19#19#17#17#17#13#12#13#12
+  +#11#12#8#7#7#7#7#8#7#8#7#7#7#7#7#7#7#7#6#7#7#6#6#6#7#6#7#6#7#6#6#6#6#6#7#6#6
+  +#6#6#5#6#6#5#6#6#5#5#5#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#4#4#4#4#4
+  +#5#4#4#5#4#4#4#4#4#4#4#3#4#4#4#4#3#4#3#3#3#3#4#3#3#3#4#3#3#3#3#3#3#4#3#3#3#3
+  +#3#3#3#3#2#3#3#2#2#2#3#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#1
+  +#2#2#2#1#1#2#1#1#1#1#1#1#2#1#2#2#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0
+  +#1#0#0#1#0#1#1#1#0#0#0#0#0#0#0#1#0#1#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#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'000yyy00000000000000000000000000000000044'
+  +'4666888:::===...////////////877:::::::::::::::::::::::::::::::::::9::9::9::'
+  +'9:99:99:99:99:9999999999999999999999999999999999999999899899898898898898898'
+  +'888888888888888888888888822222232232232232277788788787787787787787777777777'
+  +'777777777777777777777777777777677676676676676666666666666666666677787777777'
+  +'7777777666666666666666666666666556223////..//./00000>>?IIIOPOUUU[[[^^]77710'
+  +'0212222322333444444565566767998999;:;;;<<<<>?>@@@AAACDDEEEGGFJIJKJKMMNPOPRR'
+  +'RTTTWWWZZZ]]]```ccceefiiilllooosrsvwvz{z~~'#129#130#129#134#134#134#138#138
+  +#138#141#142#141#150#150#150#157#156#157#161#161#160#165#165#165#170#170#170
+  +#175#174#174#172#172#172#173#173#173'MMM$$$&&&)))---000222444555666666666666'
+  +'666555555444333333333222222000000000//////......---,,,,,,,,,++++++******)))'
+  +')))''''''''''''''''''%%%$$$"""   '#30#30#30#27#27#27#25#24#20#19#23'3'#4#30
+  +#177#0' '#229#0#31#216#0#31#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210
+  +#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24
+  +#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192
+  +#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15
+  +#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175
+  +#0#10#174#0#10#173#0#9#171#0#9#170#0#8#169#0#5#171#0#5#170'),vMLGFFC>>>555--'
+  +'-$$$'#27#27#27#17#17#17#8#8#8#2#2#2#1#1#1#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0'444'#166#166#166#165#165#165#160#160#160#155#155#155#150#150#150#145
+  +#145#145#141#141#141#136#136#136#130#130#130'~zzzuttqqqlllghhccc___\\[XXXT'
+  +'TTPPOMMMJIIEEEBBB???;<;999766433111...,,,+**''''''%&%###"""'#31'  '#30#31#30
+  +#28#28#28#27#27#27#25#25#25#24#24#23#22#22#23#22#21#22#22#21#21#20#20#21#19
+  +#19#19#18#18#17#18#17#17#16#16#16#15#15#15#15#15#15#14#14#14#13#14#13#14#14
+  +#13#12#13#12#12#12#12#20#20#20#25#25#25#25#26#26#26#26#26#26#26#26#27#27#27
+  +#27#27#27#27#27#28#27#27#27#27#27#27#27#27#27#26#27#27#26#26#27#26#27#26#26
+  +#26#26#26#26#26#26#26#26#25#25#26#26#26#25#25#25#26#26#25#25#25#25#25#25#25
+  +#25#25#25#25#25#25#24#25#24#25#22#22#22#20#21#20#16#16#16#12#12#12#9#9#9#7#7
+  +#6#7#7#7#6#6#7#6#7#6#6#7#6#7#6#7#6#6#6#6#5#6#6#6#6#5#5#6#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#5#5#5#5#5#5#4#4#5#4#4#5#5#5#5#4#5#4#4#4#5#4#4#4#4#4#4#4#4#4#4#3#3
+  +#3#3#4#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#2#3#3#3#2#3#3#3#2#2#2#2#2#3#2
+  +#2#2#3#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2#2#1#1#2#1#1#1#1#2#1#2#1#1#1#1#1#1#1#1
+  +#2#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#1#0#1#1#0#0#1#1#0#0#1#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#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'000yyy00000'
+  +'0000000000000000000000000000444666999;;;===...////////////877::::::::::::::'
+  +':::::::::::::::::::::9::9::9::9:99:99:99:99:9999999999999999999999999999999'
+  +'999999999999899898898898898898888888888888888888888877722222222232232232288'
+  +'888888788787787787787787777777777777777777777777777777777777777677676676676'
+  +'6766666666666666766877877877777777777666666666666666666666656566/00//////..'
+  +'/00/323FFFLKLRRRXYX]]]HHG1111102222113333334444445556668879999::;;:=<====?@'
+  +'?AAACBCDDDFFFIIIJJJLMMOONQQQSSSVVVYYY\\\]]^aaaeeehhhjjkooorrrvvvyyy|}}'#128
+  +#129#129#133#134#133#137#137#137#141#141#141#145#145#145#150#150#150#159#159
+  +#159#164#164#163#168#168#168#172#173#172#177#177#177#180#180#180'mmm###'''''
+  +''')))---000333555666777777777777777666666555555444333333333222222000000000/'
+  +'/////......---,,,,,,,,,++++++******))))))(((''''''&&&%%%###!!!'#30#30#30#28
+  +#28#28#26#25#26#25#23#15#20#22#30#7#28#156#0' '#228#0#31#217#0#31#215#0#30
+  +#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#207#0#26#208
+  +#0#26#208#0#25#211#0#25#206#0#24#201#0#24#201#0#23#199#0#22#198#0#22#198#0#22
+  +#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188
+  +#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12
+  ,#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0#9#170#0
+  +#8#169#0#6#170#0#4#172'"%~KKFFFC==>555,,,###'#26#26#26#16#16#16#7#7#7#2#2#2#2
+  +#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'YYY'#169#169#169#164#164#163
+  +#158#158#158#153#153#153#149#149#149#145#144#144#139#139#139#134#134#134#130
+  +#130#130'}}}yxxtttooojjjgggbbb___YYYVUVSRSNNNJKKGGGDDDAAA=>=;::988565222000.'
+  +'..++*))(&&''$$$###! !'#30#31#31#29#30#30#27#27#27#26#27#26#24#24#24#23#23#23
+  +#22#22#22#21#22#21#20#20#20#19#19#19#18#18#18#18#18#18#17#17#17#16#15#15#15
+  +#15#15#14#14#14#14#14#14#14#13#13#12#12#12#14#13#13#24#24#24#26#26#26#26#26
+  +#26#26#27#27#27#27#27#28#28#28#28#28#28#27#28#28#28#27#28#28#27#27#27#27#27
+  +#27#27#27#26#26#27#27#26#26#26#26#26#26#26#26#26#26#26#26#26#26#26#26#25#26
+  +#26#25#26#25#25#25#25#26#25#25#25#25#25#25#25#25#25#25#25#24#24#25#24#25#25
+  +#25#24#24#25#24#24#24#25#24#24#24#24#24#20#20#20#16#17#17#14#13#13#7#6#6#7#7
+  +#6#6#6#6#6#6#6#6#6#5#6#6#6#6#6#5#6#5#5#5#5#6#5#5#5#5#5#6#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#4#5#4#5#4#5#4#4#4#4#4#4#4#3#4#3#4#4#4#4#3#4#4#3#3#4#3#4#4#3#3#4#3
+  +#4#3#3#3#3#3#3#2#3#3#3#2#3#3#3#3#3#3#2#3#3#2#2#2#2#2#2#2#2#2#2#2#3#2#2#2#2#2
+  +#2#2#2#2#2#2#2#1#2#2#2#2#1#2#2#1#2#1#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#0#1
+  +#0#1#1#1#1#0#1#1#1#1#0#0#0#1#1#0#0#0#0#0#0#0#0#0#1#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#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'000yyy00000000000000000000000000000011144'
+  +'4777999;;;999...////////////999::::::::::::::::::::::::::::::::::::::9::9::'
+  +'9::9:99:99:99:99:9999999999999999999999999999999999999999899899898898898898'
+  +'898888888888888888888877622222222222232243388888888888788787787787787787777'
+  +'777777777777777777777777777777777777677676676676676666666666677788787787787'
+  +'7777766666666666666666666666666555/////./../00101;;<HHINNNVUU[ZZ\\[44411111'
+  +'0111212233555444454676777999999;;;;<<=<<?>?@@AABAEDEEEEGGGJJJKKKMNMOPPSSSUT'
+  +'UWWX[ZZ]]]```bccgggjjjmmmpqpsssxxx|||'#128#128#128#131#132#132#135#135#135
+  +#139#140#139#143#143#143#148#147#147#152#152#152#159#159#159#166#166#166#171
+  +#171#171#175#175#175#180#180#180#148#148#148'''''''&&&)))---0003335557778888'
+  +'88888888888888666666666555555444333333333222222000000000//////......---,,,,'
+  +',,,,,++++++******))))))''''''''''''%%%$$$"""   '#29#29#29#27#27#27#25#26#26
+  +#24#23#16#22#21#19#8#28#149#0' '#229#0#31#217#0#31#215#0#30#214#0#30#213#0#29
+  +#213#0#29#214#0#28#215#0#28#219#0#28#219#0#26#207#1#25#194#4#23#161#1#25#189
+  +#0#25#207#0#24#201#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21
+  +#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186
+  +#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12
+  +#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0#9#170#0#7#169#0#6#170#0#3
+  +#172'!%}KJEEDA<<=444+++"""'#25#25#25#15#15#15#6#6#6#2#2#2#2#2#2#1#1#1#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#5#5#5#130#130#130#168#167#167#162#161#162#157#157#157
+  +#153#153#153#147#147#147#143#142#142#137#137#137#132#132#132''#128'{{{vwwr'
+  +'rrmmmjijccd```]\\XXXUUUPPOMMMJJJEEFCCC???<<<999666333111...,,-**+''((%%&###'
+  +'"""   '#31#31#30#29#29#28#27#28#27#25#25#25#24#24#24#21#22#21#22#21#21#22#21
+  +#22#19#19#19#18#18#18#18#18#18#17#17#17#17#16#16#15#15#15#14#14#14#14#14#14
+  +#14#14#13#13#14#14#17#17#17#25#25#25#26#26#26#27#26#26#27#28#28#28#28#28#28
+  +#28#28#29#29#29#28#29#29#29#29#28#28#28#28#28#28#28#28#28#28#28#28#28#28#27
+  +#28#28#28#27#28#27#27#27#27#27#27#27#27#27#27#27#27#27#26#26#27#27#27#26#27
+  +#26#27#26#26#26#26#26#26#26#26#26#26#25#25#26#25#24#25#24#24#25#25#25#25#25
+  +#26#25#25#25#25#26#26#26#27#27#27'   '#10#11#11#7#6#6#7#7#6#6#6#6#6#6#6#6#6#6
+  +#5#6#5#5#6#5#5#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#4#4#4#4#4#4#4
+  +#5#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#3#4#4#4#3#3#3#4#4#4#3#4#3#3#3#3#3#3#3#3#3#3
+  +#3#2#2#2#3#3#2#3#2#2#2#3#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2
+  +#2#1#1#1#1#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#0#1#0#1#1#1#0#1#0#0
+  +#1#1#0#1#0#1#1#0#1#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#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'000yyy000000000000000000000000000000111555777999;;;:::...//////////'
+  +'//;::;:::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999999'
+  +'999999999999999999999999999999989989989889889889889888888888888888888886552'
+  +'222222222222224448888888888888878878778778778778777777777777777777777777777'
+  +'777777777777767767667667667666666667778888878778778776666666666666666666666'
+  +'66666333////./////0/010DCCKJKQQQWWW]]]JJJ1111112222213333445545456567668999'
+  +'99999;;;==<>>>??@AAABBCDEEFGFIIIJJJMMMOOORRRTTTWWWZYZ\\\`__bbbeeeghhlllooos'
+  +'sswvvzzz~~~'#130#130#130#134#133#134#138#139#138#143#142#143#148#148#147#152
+  +#151#151#155#155#155#160#160#160#168#168#168#174#174#173#178#178#178#174#174
+  ,#174':::&&&)))---000444555777888:::99999999988888888866666666655555544433333'
+  +'3333222222000000000//////......---,,,,,,,,,++++++******))))))''''''&&&%%%$$'
+  +'$"""'#31#31#31#29#29#29#27#27#27#25#25#25#24#23#18#22#21#21#8#28#149#0' '
+  +#228#0#31#221#0#31#224#0#31#227#0#30#218#1#29#206#3#27#182#6#25#145#9#22'i'
+  +#12#19'D'#15#17'"'#16#16#9#10#19'R'#0#26#209#0#25#204#0#24#201#0#24#201#0#23
+  +#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191
+  +#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14
+  +#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174
+  +#0#10#173#0#9#171#0#9#170#0#7#169#0#6#170#0#3#172' $|JIDDCA<<<333***!!!'#23
+  +#23#23#13#13#13#4#4#4#2#2#2#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#27#27
+  +#27#160#160#160#166#165#165#161#161#161#155#155#155#150#150#150#145#145#145
+  +#141#141#141#136#136#136#131#131#131'~~~zzzttupppkkkggfccc^_^ZZZVVVSSSOOOLLL'
+  +'GGGDEEBBB>>>;;:899566223000...+++)()&&&$$$###!!!'#31#30#30#29#28#29#28#27#28
+  +#26#26#26#24#24#24#23#23#23#22#22#22#22#22#22#21#21#21#19#19#19#18#18#18#18
+  +#18#18#17#16#17#15#16#15#15#15#15#15#14#14#14#14#14#13#14#13#24#24#23#26#25
+  +#25#26#27#26#27#27#27#29#28#29#26#26#26#20#20#21#21#21#22#21#21#22#21#21#21
+  +#21#21#21#21#21#21#21#20#21#24#24#24#24#24#24#23#24#24#23#24#23#27#26#26#27
+  +#27#27#27#27#27#26#27#27#27#27#27#26#27#26#27#27#27#26#26#26#26#26#26#26#26
+  +#26#26#25#26#26#26#26#26#26#25#25#25#25#26#26#25#26#26#26#27#27#27'   &&&'#18
+  +#17#17#6#7#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#6#5#6#5#5#6#5#6#5#5#5#5
+  +#5#5#5#5#5#5#5#5#5#5#4#5#5#5#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#3#4#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#3#3#3#3#3#2#3#3#3#2#2#2#2#2
+  +#2#2#2#2#2#3#2#1#2#2#2#2#2#2#2#2#1#1#1#1#1#2#2#2#2#2#2#2#1#1#1#1#1#1#1#1#1#1
+  +#2#1#1#1#1#1#1#1#1#0#0#1#0#0#1#0#0#0#1#1#0#0#0#1#1#0#0#1#0#0#1#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#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'000yyy0000000000000000000000000'
+  +'00000111555777999;;;:::...////////////;::;:::::::::::::::::::::::::::::::::'
+  +':::::::9::9::9:99:99:99:99:999999999999999999999999999999999999999999989989'
+  +'889889889889888888888888888888885552222222222222225558888888888888888878878'
+  +'778778778778777777777777777777777777777777777777777767767667667667666668888'
+  +'88888887877777666666666666666666666666666101/////////000455GGGMMMTSTZZZ^^^7'
+  +'7711211122222233344445445567676688899:::;<<<===??>@@@BAADCDFEEGHHJIIKKKNNNO'
+  +'OPRSRTUTXWXZZZ]]^```dddgggjjjnnnrrrtttxxy}}}'#128#128#128#133#133#133#137
+  +#137#137#141#140#141#144#144#145#150#149#150#153#153#153#158#159#158#162#162
+  +#162#169#169#169#176#176#176#181#180#181'ddd&&&))),,,000222666888999999:::::'
+  +':::::::888888888888666666666555555444333333333222222000000000//////......--'
+  +'-,,,,,,,,,++++++******)))(((''''''&&&%%%###!!!'#31#31#31#28#28#28#27#27#27
+  +#25#25#25#24#23#18#22#22#22#7#29#157#2#31#206#6#28#161#9#26'}'#13#23'U'#16#20
+  +'0'#18#19#25#19#18#14#19#17#5#18#16#9#16#16#12#16#16#13#16#15#9#5#22#142#0#26
+  +#214#0#25#202#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195
+  +#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16
+  +#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178
+  +#0#12#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0#9#170#0#7#169#0#6#170
+  +#0#3#172' $|IHBBB@99:111((('#31#31#31#21#21#21#11#11#11#4#4#4#2#2#2#2#2#2#1#1
+  +#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'JJJ'#169#169#169#164#164#164#158#158#158#153
+  +#153#154#149#149#149#144#143#144#139#139#139#133#133#133#129#129#129'|||wwwr'
+  +'rronnjjjeeeaaa\]]XXYUUVQQQMMMIIIFFFCCC??@;<<999676434000...,,,)**(''''%$%##'
+  +'#""" '#31' '#30#29#30#28#28#27#27#26#26#24#24#24#24#24#24#22#22#22#22#22#21
+  +#20#20#20#19#20#19#18#18#18#18#18#18#17#17#17#16#16#15#16#15#15#15#14#14#14
+  +#14#14#16#16#16#26#25#25#26#26#26#28#27#28#28#28#28#29#29#28#15#15#16#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#13#12#13#13#13#13#12#12#12#12#12#12#12
+  +#12#12#11#12#11#11#11#11#11#12#11#11#11#11#11#15#15#15#14#15#15#18#18#19#19
+  +#19#19#23#24#23#24#24#24#26#26#26#26#26#26#26#26#26#25#25#26#25#26#25#26#27
+  +#27#27#27#28#31#31#31'$$$)))'#27#27#27#7#7#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6
+  +#6#5#6#6#5#5#5#6#6#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#5#5#5#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3
+  +#3#2#3#3#3#3#3#2#2#3#3#3#2#3#2#2#3#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#2#1#2#1#1
+  +#1#2#2#2#1#2#2#2#1#2#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#1#0
+  +#0#0#0#1#0#0#0#0#0#1#0#0#0#1#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#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
+  +'000yyy000000000000000000000000000000222555777999;;;888...////////////;::;::'
+  +'::::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:99999999999999'
+  ,'999999999999999999999999998998998988988988988988888888888888888444222222222'
+  +'222222655888888888888888888887887877877877877877777777777777777777777777777'
+  +'777777777776776766766766766888888888888887777666666666666666666666666666///'
+  +'/////////111=<<JJJOONUUU[[[RSS121122211222222333555444665767787:99::9;;;==='
+  +'===@@@AAACCCEDDGFFHIIKJKMMMPOPRRRTSTWWWZZZ\\\___ccbeeeiiilllooosssvww{|{~~'
+  +#131#130#130#135#136#135#139#139#139#143#143#143#148#147#148#153#153#153#156
+  +#156#156#161#162#161#166#167#166#171#171#171#179#179#179#145#145#145''''''')'
+  +')),,,000333666777:::;;;;;;;;;;;;;;;::::::8888888888886666666665555554443333'
+  +'33333222222000000000//////......---,,,,,,,,,++++++******)))(((&&&&&&$$$###!'
+  +'!!'#31#31#31#29#29#29#28#28#28#26#26#26#24#24#20#22#23#29#21#23'#'#22#21#20
+  +#23#21#10#22#20#11#21#20#15#21#20#18#21#20#19#19#19#19#18#18#18#17#17#17#17
+  +#17#17#17#16#9#14#17'*'#1#25#195#0#25#207#0#25#202#0#24#202#0#24#201#0#23#199
+  +#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19
+  +#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182
+  +#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174#0#10
+  +#173#0#9#171#0#9#170#0#7#169#0#6#170#0#4#171'&)sHG@@@?888///&&&'#29#29#29#19
+  +#19#19#9#9#9#3#3#3#2#2#2#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#1#1#1''#167
+  +#167#167#162#162#162#157#157#157#151#152#151#147#147#147#142#141#141#136#136
+  +#136#132#132#131'zzzuuuppplllgggccc___Z[ZWWWSSSOOOKLLHHHEDDAAA>>>;;;89955'
+  +'6332///...+++)))&''''$$$"""!!!'#31#31#31#29#29#29#28#27#27#26#25#25#24#24#24
+  +#23#23#23#22#22#22#22#22#22#19#20#20#18#19#18#18#18#18#17#17#17#17#17#17#16
+  +#15#16#15#14#14#14#14#14#22#22#22#25#25#26#27#26#27#27#28#28#29#30#29#26#25
+  +#26#14#13#13#14#13#14#14#13#13#13#13#13#13#13#13#13#13#12#12#13#13#13#12#12
+  +#12#12#12#12#12#12#12#12#12#11#11#12#12#11#11#11#11#11#12#11#11#11#11#11#11
+  +#11#11#11#11#11#11#11#11#10#10#10#10#10#10#10#10#10#13#13#13#16#16#17#20#20
+  +#19#23#22#23#26#27#27#30#30#30'"##(''''---###'#7#7#6#6#7#7#7#7#7#7#6#7#6#6#6
+  +#6#6#7#6#6#6#5#6#6#5#6#6#5#6#6#5#6#6#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5
+  +#5#5#4#5#4#4#4#4#4#4#5#4#5#4#4#4#3#3#4#4#4#4#3#3#4#4#4#3#4#3#4#3#3#4#4#3#3#3
+  +#3#3#3#3#3#3#3#3#3#2#3#3#3#2#3#2#3#2#2#2#3#2#2#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#1#2#1#2#2#1#1#2#1#2#2#2#2#1#1#1#2#1#1#1#1#2#1#1#1#1#1#1#0#1#1#1#1#1#1#1#1
+  +#0#1#1#1#0#1#0#0#0#1#1#0#1#1#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#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'000yyy000000000000000000000000000000222555777999;;;656////////////2'
+  +'22;::;::;:::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999'
+  +'999999999999999999999999999999999989989989889889889889888888888888888884442'
+  +'222222222222227778888888888888888888888878878778778778778777777777777777777'
+  +'777777777777777777777767767667667778888888888888887776666666666666666666666'
+  +'66444/////////000111AABKKKPPPWWW]]\ABB1112112222323344445554556657779989:::'
+  +'::;<;===>?>@@@BBBDDDEFFGFGJIIKKKNNNPPPSSSUUUXXX[[Z]^^aaadddghhkjknnnrrruuux'
+  +'yy}}}'#129#129#129#133#133#133#138#138#138#142#142#142#146#146#146#149#150
+  +#150#155#155#154#160#160#159#165#165#165#169#168#169#173#173#174#176#176#176
+  +'BBB))),,,///333666888:::;;;<<<<<<<<<;;;;;;;;;::::::888888888888666666666555'
+  +'555444333333333222222000000000//////......---,,,,,,,,,++++++******)))(((&&&'
+  +'&&&$$$###!!!'#31#31#31#29#29#29#28#28#28#27#27#27#26#25#23#25#25#21#24#23#22
+  +#24#23#23#24#24#24#23#23#23#22#22#22#22#22#22#21#21#21#21#21#21#19#19#19#18
+  +#18#18#17#17#17#17#15#4#8#21'p'#0#26#216#0#25#203#0#25#203#0#24#202#0#24#201
+  +#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19
+  +#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183
+  +#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10
+  +#174#0#10#173#0#9#171#0#9#170#0#8#169#0#6#170#0#5#170'-/iGG====666,,,###'#26
+  +#26#26#16#16#16#6#6#6#3#3#3#2#2#2#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0'!!!'
+  +#164#164#164#165#165#165#160#160#160#155#155#155#150#150#150#144#144#145#139
+  +#139#139#134#134#134#130#130#130'}}}xwwsssnoojjjeeeaaa]\\XXYVUVTSSMMMJJJFFFC'
+  +'CC@??<<=999667333100...,,,***''''($$$###"""'#31#31#31#30#30#29#27#28#28#26
+  +#26#26#25#24#25#23#24#23#22#22#22#21#22#22#21#21#20#19#19#20#18#18#18#18#18
+  +#18#17#17#17#16#16#16#14#15#15#15#15#16#27#27#27#26#26#26#27#28#28#28#29#29
+  +#29#29#30#19#19#19#14#13#14#14#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#12#13#13#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#11#11
+  +#12#11#12#11#11#11#11#11#11#11#11#11#11#11#10#11#11#10#10#11#10#10#10#10#10
+  +#10#11#10#9#10#10#10#10#10#15#15#16'!  %%%)))///---'#6#7#7#7#7#6#7#6#7#6#7#6
+  +#6#6#7#7#6#6#6#6#6#6#6#6#6#5#6#6#5#5#5#6#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#4#5#5#5#4#5#4#4#4#4#4#4#5#4#4#4#4#4#3#3#4#4#4#4#4#4#3#3#4#3#3#3#3#3#4#3
+  +#4#4#3#4#4#3#3#3#3#3#3#3#3#2#2#3#2#3#3#3#3#3#3#2#2#3#2#3#2#3#2#2#2#2#2#2#2#2
+  ,#2#2#2#1#1#2#2#1#1#2#2#1#1#1#1#2#1#2#2#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1
+  +#1#1#1#0#0#1#0#1#0#0#0#0#1#0#1#1#0#1#0#1#0#0#0#0#0#0#0#0#0#1#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#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0'000yyy000000000000000000000000000000222555777:::<<<656///////'
+  +'/////222;::;::;::::::::::::::::::::::::::::::::::::::::9::9::9:99:99:99:99:'
+  +'99:999999999999999999999999999999999999999989989889889889889888888888888888'
+  +'883332222222222222227778888888888888888888888888878878778778778778777777777'
+  +'777777777777777777777777777777767767667778888888888888887666666666666666666'
+  +'66666666333/////////000222GGGLLKSSSXWX]]]7771122122232223334445555556677779'
+  +'89::9<;;<<<===???AABBBBEEEEFFIIIJJJLLMOOORQQTUTWWWZYZ\\\``_bbbeffiiimlmoops'
+  +'sswww|||'#128#128#131#130#130#135#135#136#140#140#140#145#145#145#148#148
+  +#148#153#153#153#157#157#157#162#162#162#166#166#166#171#171#172#176#176#176
+  +'rrr''''''+++///222555888;;;<<<===<<<======<<<;;;;;;;;;::::::888888888888666'
+  +'666666555555444333333333222222000000000//////......---,,,,,,,,,++++++******'
+  +')))(((&&&%%%$$$###"""   '#30#30#30#29#29#29#28#28#28#27#27#27#26#26#26#25#25
+  +#25#25#25#25#26#26#26#25#25#25#24#24#24#23#23#23#23#23#23#21#21#21#19#19#19
+  +#18#18#18#18#16#12#15#16#29#2#25#183#0#26#211#0#25#203#0#25#203#0#24#202#0#24
+  +#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192
+  +#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15
+  +#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175
+  +#0#10#174#0#10#173#0#9#171#0#9#170#0#8#169#0#5#171#4#9#164'56[DD;;;;333***!!'
+  +'!'#23#23#23#14#14#14#4#4#4#3#3#3#3#3#3#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0
+  +'[[['#169#169#169#164#164#164#158#158#158#153#153#152#147#147#147#141#142#141
+  +#137#137#137#132#132#132'zzzuuuqqqmllhhhbbc__^]]]^^^___WWWLLLHHHEDEBAB>>>'
+  +':::888455111///---+++(((%&%$$$#"#   '#31#31#31#28#28#28#27#27#26#25#24#24#24
+  +#24#25#22#22#23#22#22#22#21#21#21#19#20#20#19#18#18#19#19#19#18#17#17#16#16
+  +#16#14#14#15#20#20#20#27#27#27#28#28#28#28#28#28#29#28#29#29#29#29#14#13#14
+  +#14#13#14#14#13#14#14#13#13#14#13#13#13#13#13#13#13#13#13#13#13#12#13#12#12
+  +#12#13#12#12#13#12#12#12#12#12#12#12#12#12#11#12#12#12#11#11#11#12#12#11#11
+  +#11#11#11#11#11#10#10#11#11#11#10#10#11#11#10#10#11#10#11#10#10#10#10#10#10
+  +#11#11#11#12#12#13'   ''&&,,,000333'#10#10#10#7#7#7#6#7#6#7#7#7#6#6#6#6#6#6#7
+  +#7#7#6#6#6#6#6#6#6#6#6#6#6#5#5#5#5#6#6#6#5#6#6#5#5#5#5#5#5#5#5#5#4#5#4#5#5#5
+  +#5#5#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3#3#4#4#3#3#4#3#4#3#3#4#3
+  +#3#3#3#3#3#3#3#3#3#3#2#3#3#3#3#3#2#3#2#3#2#2#2#3#3#3#2#2#2#2#2#2#2#2#2#2#1#2
+  +#2#2#1#2#2#2#1#1#2#2#2#2#2#1#1#2#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0
+  +#0#1#1#1#0#1#1#1#1#1#0#0#1#1#0#0#0#0#0#0#0#0#1#1#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#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +'000yyy000000000000000000000000000000222555777:::<<<656////////////222;::;::'
+  +';::;:::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:99999999999'
+  +'999999999999999999999999999998998998988988988988988888888888888222222222222'
+  +'222222888888888888888888888888888888887887877877877877877777777777777777777'
+  +'777777777777777777776776877888888888888888666666666666666666666666666222///'
+  +'//////000666HHHMMMTTTZZZWWW2121121212322324345655656667768889:99:9<<<>>=>=='
+  +'@@AAAACCCEEEGGFJJIKLKNNNQQQSSSUVUWWW[[[^^^aaacdchhhkkknnnrrruuvyyy}}}'#129
+  +#129#129#133#133#133#138#138#138#142#142#142#147#147#147#151#151#151#156#156
+  +#156#160#160#160#165#165#164#169#170#170#175#175#174#160#160#161'222+++...22'
+  +'2555999:::<<<===>>>>>>>>>======<<<;;;;;;;;;::::::88888888888866666666655555'
+  +'5444333333222222222000000000//////......---,,,,,,,,,++++++******)))((('''''
+  +'''&&&$$$###"""!!!'#31#31#31#31#31#31#30#30#30#29#29#29#28#28#28#28#28#28#28
+  +#28#28#28#28#28#27#27#27#26#26#26#25#25#25#22#22#22#21#21#21#20#20#20#18#18
+  +#18#18#16#5#9#20'c'#0#27#216#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0
+  +#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19
+  +#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183
+  +#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10
+  +#174#0#10#173#0#9#171#0#9#170#0#8#169#0#4#173#9#14#154'==LA@<889000'''''''#30
+  +#30#30#21#21#21#11#11#11#3#3#3#3#3#3#3#3#3#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0#12
+  +#12#12#148#148#148#167#167#166#161#161#161#155#155#155#150#150#150#145#146
+  +#146#140#140#140#135#135#135#130#130#130'}}}xxxsssooojjjhhhhhhfffccc```]]]WW'
+  +'WKKKFFFBBC??@<<<999767444111...+++)))''''''$%%""#"!!'#31#31#31#29#29#29#28
+  +#28#28#26#26#25#24#24#25#23#23#23#22#22#22#22#22#22#20#20#20#18#18#18#19#19
+  +#18#17#18#17#16#16#16#16#16#16#25#25#25#27#27#28#28#28#28#29#29#29#30#30#30
+  +#22#23#23#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14#14#14#14#14#14
+  ,#14#14#14#14#13#13#13#13#12#12#12#12#12#12#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#11#12#11#12#12#11#11#11#12#12#11#11#11#11#11#11#11#11#11#11#10#11#11
+  +#11#10#10#10#10#10#10#10#10#12#12#12#29#29#30'''&''*+*///433'#19#19#19#7#7#7
+  +#7#7#6#7#7#6#7#6#6#7#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#5#6#6#6#5#5#6#6#5#5#5#5
+  +#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#4#4#4#4#4#5#4#4#5#3#4#4#4#4#4#4
+  +#3#3#4#4#4#3#3#3#3#4#3#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2
+  +#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#2#2#1#1#1#2#2#1#1#2#1#2#2#1#1#1#1#1
+  +#2#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#1#1#1#1#1#1#0#1#0#0#1#1#0#0#0#0#1#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#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy000000000000000000000000000000222555777:::<'
+  +'<<656////////////222;::;::;::;:::::::::::::::::::::::::::::::::::::9::9::9:'
+  +':9:99:99:99:99:999999999999999999999999999999999999999999989989889889889889'
+  +'888888888888882222222222222222228888888888888888888888888888888888878878778'
+  +'778778778777777777777777777777777777777777777777768889888888888888886666666'
+  +'66666666666666666666101/////////000::;IIINNNUUUZZZOOO1222221113333224446566'
+  +'56666777999::::;;<;;==>>>>@@ABBBDDDFFFHHHJJJMMMOONRQRTSTWWWZZZ]\\___bbbffei'
+  +'iillmooosttwww|||'#131#131#131#136#136#136#140#140#141#144#145#145#149
+  +#149#148#154#153#154#158#158#158#162#162#162#167#167#167#172#172#172#176#177
+  +#177'^^^+++...111555888:::<<<>>>?????????>>>=========<<<;;;;;;;;;::::::88888'
+  +'8888888666666666555555444333333333222222000000000//////......---,,,,,,,,,++'
+  +'++++******)))(((&&&&&&%%%######"""      '#31#31#31#31#31#31#30#30#30#29#29
+  +#29#29#29#29#29#29#29#28#28#28#27#27#27#25#25#25#23#23#23#21#21#21#19#19#19
+  +#18#18#14#15#17#27#2#25#182#0#26#212#0#26#205#0#25#203#0#25#203#0#24#202#0#24
+  +#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192
+  +#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15
+  +#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175
+  +#0#10#174#0#10#173#0#9#171#0#9#170#0#7#169#0#3#174#20#25#138'BB?==;556---$$$'
+  +#27#27#27#18#18#18#7#7#7#3#3#3#3#3#3#3#3#3#2#2#2#1#1#1#0#0#0#0#0#0#0#0#0'BBB'
+  +#169#169#169#164#164#164#158#158#158#153#153#153#148#148#148#143#142#142#137
+  +#137#137#132#132#133#128#128#128'zzztuusssrrrooolllgggeeebbb```\\\WWWIIIDDDA'
+  +'AA===::;888554221///---***((($%%######'#31' '#31#30#30#30#28#28#28#27#26#27
+  +#24#25#24#24#24#23#22#22#22#22#22#22#21#21#21#19#19#19#19#19#18#17#17#17#16
+  +#16#17#19#19#19#28#28#28#29#29#29#29#30#29#29#29#29#30#30#30#17#17#17#14#13
+  +#14#14#13#14#14#13#14#14#13#13#14#14#14#18#17#17#17#18#17#17#17#17#17#17#17
+  +#17#17#17#16#17#16#16#16#16#17#17#16#15#15#16#15#15#15#14#14#14#13#14#14#12
+  +#13#13#12#12#12#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#10#11#11#10#11
+  +#10#10#10#11#11#11#11#27#27#26'%%%))(///434'#30#31#31#7#7#7#7#7#7#7#7#7#7#7#7
+  +#7#7#6#7#6#7#7#7#6#6#6#6#6#6#6#6#5#6#6#5#6#6#5#6#6#6#5#5#6#6#6#5#6#5#5#6#5#5
+  +#5#5#4#4#4#5#5#5#5#4#5#4#5#4#5#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#4#4
+  +#3#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#3#3#3#2#3#3#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#1#2#2#2#2#2#2#2#2#1#1#1#1#1#1#2#2#2#2#2#2#1#2#2#2#1#1#1#1#2#1#1
+  +#1#1#1#1#1#1#1#1#1#0#0#0#0#0#0#1#1#0#1#0#1#1#1#0#0#1#0#1#0#0#1#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#0#0#0#0#0#0#0#0
+  +#0#0#0#0'000yyy000000000000000000000000000000222666888:::<<<656/////////////'
+  +'//111666;::;::::::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:'
+  +'999999999999999999999999999999999999999989989889889889889889888888888882222'
+  +'222222222222229888888888888888888888888888888888888878878778778778778777777'
+  +'777777777777777777777777777777778889889888888888886666666666666666666666666'
+  +'66101/////////000=<=JJJOOOUUUZZZGGG222222323332334454565565777777999:::<<<='
+  +'==>>>@??BAABBBEEEGGGIIIKKKNNNPOPSSRUVUXXW[[Z]]]a`adddgggkkknnnrrrvvvyzy}}}'
+  +#129#130#129#133#133#133#138#138#138#142#142#142#147#147#147#151#151#151#156
+  +#156#156#161#161#161#165#165#165#170#170#170#175#175#175#150#150#150'---...1'
+  +'11444777;;;===>>>??????@@@@@@???>>>=========<<<;;;;;;;;;:::9998888889998888'
+  +'88777777666666555444444333222222000000000//////......---,,,,,,,,,++++++****'
+  +'**)))(((''''''&&&%%%%%%$$$###!!!!!!!!!      '#31#31#31#31#31#31#30#30#30#28
+  +#28#28#26#26#26#24#24#24#22#22#22#20#20#20#19#19#19#19#17#7#8#22'p'#0#27#216
+  +#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22
+  +#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189
+  +#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13
+  +#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0
+  +#9#170#0#7#170#0#4#173'#&qBB9::9222)))   '#23#23#23#13#13#13#5#5#5#3#3#3#3#3
+  +#3#3#3#3#2#2#2#1#1#1#0#0#0#0#0#0#3#3#3#136#136#136#166#166#166#161#161#161
+  ,#155#155#156#151#151#151#146#145#146#140#140#140#135#135#135#130#130#130#128
+  +'}}}zzzvvvrrrnnnkkkgggdddaaa^^^\\\WWWFFECCB???;;;999666323//0...++,(((&&&$'
+  +'$$"##!  '#31#31#31#28#28#28#27#27#27#24#25#25#25#24#25#22#23#23#22#22#22#22
+  +#21#21#20#20#20#18#19#19#18#19#18#17#18#17#23#23#23#27#28#28#28#28#29#29#30
+  +#30#30#30#31#27#27#27#14#14#15#14#13#15#14#13#14#14#13#14#14#13#14#16#16#16
+  +#18#18#18#17#18#18#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16#16
+  +#16#17#16#17#16#16#16#16#15#16#16#16#15#15#16#16#16#15#15#15#15#15#15#14#14
+  +#14#12#13#13#10#10#12#11#11#11#10#11#11#10#11#10#12#11#11#22#21#22'$$$)()-..'
+  +'322('''''#7#7#7#7#7#7#7#7#7#7#7#6#7#7#7#7#6#6#6#6#6#6#6#7#6#6#7#6#6#6#6#6#6
+  +#6#6#6#5#6#6#5#5#5#5#6#5#6#5#5#5#5#5#5#5#5#4#5#5#5#5#4#5#5#5#4#4#5#4#5#4#4#5
+  +#5#4#4#4#4#4#4#4#4#4#3#4#4#4#4#4#3#3#4#4#3#3#3#3#3#4#4#3#3#3#3#3#3#3#3#3#3#2
+  +#2#3#3#3#2#3#3#2#3#2#3#2#3#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2
+  +#1#2#1#1#2#2#1#1#1#1#1#1#1#2#1#1#1#1#2#1#1#1#1#1#1#0#1#0#1#1#1#1#1#1#0#1#1#1
+  +#0#1#0#0#0#1#0#0#1#0#0#0#0#0#0#0#0#0#1#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#0#0#0'000yyy000000000000000000000000000'
+  +'000222666888:::<<<656/////////////////////000545::9::::::::::::::::::::::::'
+  +':::::::::::9::9::9::9:99:99:99:99:99999999999999999999999999999999999999998'
+  +'998998988988988988988888888888222222222222222222988988888888888888888888888'
+  +'888888888888887887877877877877877777777777777777777777777777777777888998988'
+  +'988888888666666666666666666666666666////////////111???JJJOOOVVVZZZBBB222222'
+  +'333322343544565656778988::::::<<<>>>??>AAAABACCDFFFGGGJJJLLLNNNQQQSSSWWWYXX'
+  +'\[\`__aaaefeiiilllppprsswww{{{'#131#131#131#136#136#136#140#140#140#144
+  +#145#145#148#149#149#154#154#154#158#159#158#164#164#163#168#167#167#173#172
+  +#172#177#178#177'WWW---000444777:::===>>>@@@@@@@@@@@@@@@@@@???>>>=========<<'
+  +'<;;;;;;;;;;;;::::::999999999999999888888777666666555444444222111000000/////'
+  +'/......---,,,,,,,,,++++++******))))))''''''&&&&&&%%%%%%$$$#########"""!!!  '
+  +' '#31#31#31#30#30#30#28#28#28#25#25#25#23#23#23#21#21#21#19#20#20#19#18#13
+  +#16#18'#'#1#27#194#0#26#210#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24
+  +#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192
+  +#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15
+  +#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175
+  +#0#10#174#0#10#173#0#9#171#0#9#170#0#6#171#2#8#167'24U??8777///%%%'#29#29#29
+  +#20#20#20#10#10#10#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2#1#1#1#0#0#0#0#0#0'888'#169
+  +#169#169#164#164#164#158#158#159#154#154#154#148#148#148#143#143#143#139#139
+  +#139#138#138#138#133#133#133#129#129#129'|||xxxuutpppllliiifffccc```]]][[[VV'
+  +'VFEFAA@=<=999777444111...-,,*)*''''''$%%###!"" '#31#31#29#29#29#28#28#28#26
+  +#26#26#25#24#25#23#23#23#22#22#22#21#21#21#20#20#20#19#19#19#19#19#18#18#19
+  +#19#29#29#29#28#28#28#30#30#30#31#31#30#30#30#30#20#20#20#14#14#15#14#13#15
+  +#14#13#15#14#13#14#14#13#14#18#18#18#18#18#18#17#18#18#17#18#18#17#17#17#17
+  +#17#17#17#17#17#17#17#17#17#16#17#16#17#17#16#16#16#16#16#16#16#16#16#15#15
+  +#16#15#16#16#16#16#16#16#15#15#15#16#15#15#15#15#12#12#12#10#11#11#10#10#10
+  +#10#10#11#11#12#11#18#18#18'###(((---011,-,'#7#7#7#8#7#7#7#7#7#7#7#7#7#7#7#6
+  +#6#6#7#6#7#7#6#6#7#6#6#7#6#6#6#6#6#6#6#6#6#6#5#6#5#6#6#6#6#5#6#5#6#5#6#6#5#5
+  +#5#5#5#4#4#5#4#5#4#5#5#5#4#5#4#4#4#5#4#4#5#4#4#4#4#4#4#4#3#4#4#4#4#4#4#4#4#3
+  +#3#3#3#3#4#3#3#3#3#4#4#3#3#3#3#3#3#3#3#2#3#3#2#3#3#3#3#3#2#2#3#2#2#3#3#2#2#3
+  +#2#2#3#2#2#2#2#2#2#2#2#2#2#2#1#2#1#1#2#2#2#2#1#1#1#2#2#1#2#1#1#1#1#1#1#1#1#2
+  +#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#1#0#1#0#1#1#0#1#0#1#1#0#0#0#0#0#1#1#0#0#0#0#0
+  +#1#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
+  +'000yyy000000000000000000000000000000333666888:::<<<555/////////////////////'
+  +'////////0333999:::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:99999999'
+  +'999999999999999999999999999999999998998988988988988988888888777222222222222'
+  +'222322988988988888888888888888888888888888888888887887877877877877877777777'
+  +'777777777777777777777777888998998988988888666666666666666666666666666//////'
+  +'//////111AAAJJJPPPVVVZZZ<<<222222333333344565556776787899:::;;;<<<>>>???@@A'
+  +'BBCEEFGFFJIIJJJMNMOOOQRRUUUWWW[[[\]]```dddgfgjjjmmmrrrtuuxyx}||'#128#128#129
+  +#133#133#134#137#137#137#142#142#142#147#146#146#151#151#151#156#156#156#160
+  +#160#160#165#165#165#170#170#170#175#175#175#150#150#150'...///333777:::===?'
+  +'??@@@AAAAAAAAAAAA@@@@@@@@@???>>>=========<<<;;;<<<<<<;;;;;;:::;;;;;;<<<<<<<'
+  +'<<===<<<;;;:::888777666444333222111000//////......---,,,,,,,,,++++++******)'
+  +')))))(((''''''&&&&&&&&&%%%$$$######"""!!!   '#30#30#30#29#29#29#26#26#26#24
+  +#24#24#22#22#22#21#20#20#20#18#7#14#21'C'#1#27#201#0#27#211#0#26#206#0#26#206
+  +#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22
+  ,#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188
+  +#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12
+  +#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0#9#170#0
+  +#5#175#13#18#146'<<>::7333+++"""'#25#25#25#16#16#16#6#6#6#3#3#3#3#3#3#3#3#3#3
+  +#3#3#2#2#2#1#1#1#1#1#1#2#2#2#135#135#135#167#167#166#161#161#161#155#156#155
+  +#151#151#151#150#150#150#146#145#146#141#140#140#135#135#135#132#132#132#128
+  +#128#128'{{{vvwsssooojjjgggeeeaaa```\\\ZZZWWWFFF?>>::;888555222000-.-+,+(((%'
+  +'%%######   '#30#31#30#28#29#28#26#26#26#25#25#25#24#24#24#22#22#22#22#22#22
+  +#20#20#20#19#19#19#19#18#19#22#23#23#29#29#29#29#29#29#30#30#30#31#31#30#30
+  +#30#30#14#14#16#14#14#15#14#14#14#14#14#15#14#13#15#15#15#15#18#18#18#18#18
+  +#18#18#18#17#17#17#18#17#17#17#17#17#18#17#17#17#17#17#17#17#17#16#16#17#16
+  +#16#16#16#17#16#16#16#16#16#16#16#16#16#15#16#16#16#16#16#15#15#16#16#15#16
+  +#16#15#13#13#13#11#11#11#11#10#10#11#10#11#12#11#12#13#14#13'""#'''''',,,011'
+  +'545'#8#8#7#8#8#7#7#7#7#7#7#7#7#7#7#6#7#7#7#7#7#7#7#7#7#6#6#6#6#6#6#6#6#6#6#6
+  +#5#6#6#6#6#6#5#6#6#6#6#6#5#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#4#5#5#4#4#5
+  +#5#4#5#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#3#3#3#4#3#3#3#4#4#3#3#3#4#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#3#3#3#2#2#3#2#3#2#3#2#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2
+  +#2#1#2#1#1#1#2#1#1#1#1#2#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#0#1#0#0#0
+  +#1#0#0#0#0#1#1#1#1#0#0#1#0#0#0#0#0#1#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#0'000yyy000000000000000000000000000000444'
+  +'777999;;;===999222/////////////////////////////////222777::::::::::::::::::'
+  +'::::::::9::9::9::9:99:99:99:99:99999999999999999999999999999999999999998998'
+  +'998988988988988988888777222222222222222444988988988988888888888888888888888'
+  +'888888888888887887877877877877877777777777777777777777777777999999998998988'
+  +'888666666666666666666666666666////////////111AAAJJJOOOUUUZZZ===222222333333'
+  +'4545566556678789:9:::;;;===>>>@@@BBBCCCEFFHGGJJJMLLOONQQQTSTVVVXXX[[[___abb'
+  +'edehhhkkkooorsrwwwzzz'#131#131#131#135#136#136#139#140#140#144#144#145
+  +#148#148#148#153#153#153#158#158#158#163#162#162#167#167#167#173#173#173#178
+  +#178#178'ZZZ///333666999===???AAAAAABBBAAABBBBBB@@@@@@@@@@@@???>>>=========='
+  +'=====<<<<<<=========>>>@@@@@@@@@BBBAAA@@@???>>>;;;:::888666333222111000000/'
+  +'//......---,,,,,,,,,++++++******))))))''''''''''''''''''&&&&&&%%%$$$######"'
+  +'""   '#30#30#30#28#28#28#27#27#27#25#25#25#22#22#22#22#20#8#14#22'E'#1#28
+  +#202#0#28#215#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203
+  +#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20
+  +#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185
+  +#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11
+  +#175#0#11#175#0#10#174#0#10#173#0#9#171#0#9#170#0#4#175#30'"r==4666///'''''''
+  +#30#30#30#21#21#21#11#11#11#5#5#5#3#3#3#3#3#3#3#3#3#2#2#2#1#1#1#1#1#1#1#1#1
+  +'999'#169#169#169#164#164#164#162#161#162#158#158#158#153#153#153#148#148#148
+  +#143#143#143#139#139#139#134#134#134#130#130#130'~~~yyysssjjibbc```eeecccaaa'
+  +'^^^[[[XXXTTTCDD=<<9::777444111...,++())&&''$$$"##!!!'#31#31#31#28#28#29#27
+  +#27#27#25#25#25#24#24#24#23#23#23#22#22#22#21#21#21#19#20#20#19#19#19#28#28
+  +#28#30#29#30#30#30#30#31#31#31#31#31' '#24#24#23#14#15#15#14#14#16#14#14#15
+  +#14#14#15#14#14#15#18#17#18#19#18#18#18#18#18#18#18#18#18#18#18#17#17#18#17
+  +#17#18#17#17#17#17#17#17#17#17#17#16#17#16#16#17#16#16#17#16#16#16#16#16#16
+  +#16#16#16#16#15#16#16#16#16#15#16#16#15#16#15#15#14#14#14#11#11#11#11#10#11
+  +#11#11#11#10#11#10#13#13#13#31#31#31'(''(+++000443'#20#19#19#7#8#8#8#7#8#7#7
+  +#7#7#7#7#7#7#7#7#7#7#7#7#6#6#6#7#6#6#7#6#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#5#5
+  +#5#6#5#5#5#6#5#5#5#5#6#5#5#5#5#5#5#4#5#5#4#5#5#4#5#4#4#5#4#4#5#4#4#4#4#4#4#4
+  +#4#3#4#4#3#4#4#3#4#3#3#4#4#3#3#3#3#4#3#3#3#4#3#3#3#3#3#3#3#3#2#3#3#3#3#3#3#2
+  +#2#2#3#3#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#2#1#2#2#2#1#1#1#2#1#1#1
+  +#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#0#0#0#1#0#0#1#1#1#0#0#1
+  +#0#0#0#0#0#0#0#1#1#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'000yyy000000000000000000000000000000555888:::;;;===>>>@@@<<<444//'
+  +'///////////////////////////////111666::::::::::::::::::::9::9::9::9:99:99:9'
+  +'9:99:9999999999999999999999999999999999999999899899898898898898898888877722'
+  +'222222222222244499898898898898888888888888888888888888888888888888788787787'
+  +'787787787777777777777777777777777799999999999899888866666666666666666666666'
+  +'6666////////////111AAAJJJPPPTTTZZZ===222222333344555665566877898:::;;;<<=>>'
+  +'>>>>AAABBBDDDFFFHGGJJJLLLONORRQTTTWWWZZZ]]]``_bccggfijinmmqqquuuxxx|||'#129
+  +#129#129#133#133#133#137#137#137#141#141#141#146#146#146#151#151#151#155#155
+  +#155#161#160#160#165#165#165#170#170#170#175#175#175#152#152#152'11122255599'
+  ,'9<<<???AAACCCCCCBBBCCCBBBBBBBBB@@@@@@@@@@@@???>>>==================>>>???@@'
+  +'@BBBDDDEEEGGGGGGHHHGGGFFFDDDBBB???<<<:::777555333222111000///......---,,,,,'
+  +',,,,++++++******))))))''''''''''''''''''&&&&&&$$$$$$###"""   '#30#30#30#28
+  +#28#28#26#26#26#24#25#24#24#22#10#15#23'F'#1#29#205#0#29#219#0#29#211#0#28
+  +#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202
+  +#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20
+  +#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184
+  +#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11
+  +#175#0#10#174#0#10#173#0#9#171#0#7#172#2#10#165'12L:93333+++###'#26#26#26#17
+  +#17#17#7#7#7#4#4#4#4#4#4#3#3#3#2#2#2#1#1#1#1#1#1#1#1#1#3#3#3#137#137#137#171
+  +#171#171#165#165#166#161#161#161#156#156#156#151#151#151#146#146#146#141#142
+  +#142#136#136#136#132#133#132'}}}sssmmmiiheee```_`_dddbbb___[[[YYYVVVRRRBBA:9'
+  +'9787444111...,-,***''''''%%%###"""   '#30#29#30#28#28#28#26#27#26#25#25#25
+  +#23#23#23#22#22#22#21#21#21#20#20#20#22#22#22#30#30#30#31#31#31#31#31' '#31
+  +#31#31'   '#19#19#19#14#15#16#15#14#15#14#14#15#14#14#15#15#15#15#19#18#18#19
+  +#18#18#18#18#18#18#18#18#18#18#18#18#18#17#18#18#17#17#17#18#17#17#17#17#17
+  +#16#17#17#17#17#16#16#17#16#17#17#16#16#16#16#16#16#16#16#16#16#16#16#15#15
+  +#16#16#16#15#16#16#15#14#14#11#11#12#11#11#11#11#11#11#11#11#10#12#12#11#27
+  +#27#28'&%%***///444'#28#28#28#8#7#8#8#7#7#7#8#7#8#7#7#7#7#7#7#6#7#7#7#7#6#6#6
+  +#7#7#7#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#6#6#6#6#6#6#5#5#5#5#5#5#5#6#5#5#5#5#5
+  +#5#4#5#5#5#5#5#4#5#4#5#4#5#5#4#4#4#4#5#5#5#4#4#4#4#4#4#4#4#4#3#4#4#3#3#4#3#4
+  +#4#3#3#3#4#3#3#3#4#3#3#3#3#3#3#3#3#3#3#2#2#3#3#2#3#2#2#2#2#2#3#3#2#2#3#2#2#2
+  +#2#2#2#2#2#2#1#2#2#2#2#2#1#2#2#2#2#2#2#2#1#2#1#1#1#1#2#2#2#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#0#1#1#0#1#1#0#0#1#1#1#0#0#0#0#0#1#0#0#1#0#0#0#1#0#0#0#0#1#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'000yyy000000000000000'
+  +'000000000000000666999;;;<<<===???@@@@@@@@@>>>555000////////////////////////'
+  +'//////000444999::::::::::::::9::9::9:99:99:99:99:99999999999999999999999999'
+  +'999999999999999998998988988988988988888777222222222222222444998998988988988'
+  +'988888888888888888888888888888888888887887877877877877877777777777777777777'
+  +'777999999999999998888666666666666666666666666666////////////111AAAJJJOOOTTT'
+  +'XXX<<<222333333444555555556878899:::;;;<<=>>>??@AAACCCEEEGFGJJIJKJNNNOOOSSS'
+  +'UUUXXX[[[^^^aaadddhghlkknonrrsvvvzzz'#131#131#131#135#135#135#139#139#139
+  +#144#144#144#148#148#149#153#153#153#158#158#158#163#163#163#168#168#168#173
+  +#173#173#178#177#178'cbb111444888<<<???AAABBBCCCDDDDDDDDDBBBBBBBBBBBB@@@@@@@'
+  +'@@@@@???>>>===============>>>@@@CCCEEEGGGJJJMMMNNNOOONNNNNNKKKIIIFFFBBB???;'
+  +';;888666333111111000///......---,,,,,,,,,++++++******))))))'''''''''''''''''
+  +'''&&&%%%$$$"""!!!   '#30#30#30#28#28#28#26#26#26#25#24#12#17#25'H'#2#30#207
+  +#0#30#221#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26
+  +#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198
+  +#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17
+  +#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180
+  +#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#174#0#10#173#0#9#171#0#6
+  +#176#18#23#135'995554///'''''''#30#30#30#22#22#22#12#12#12#5#5#5#4#4#4#4#4#4
+  +#3#3#3#2#2#2#1#1#1#1#1#1#1#1#1'DDD'#174#174#173#169#169#169#163#163#164#159
+  +#159#159#154#154#154#149#149#150#145#145#145#137#137#136'~yyyuuupppkkkfffc'
+  +'bb^^_]]]bbb```]]]ZZZWWWUUUQQQCCB888555222000.-.*++)))&%%$##"""   '#29#29#29
+  +#28#29#29#26#26#27#25#25#25#23#23#23#22#22#22#21#22#21#20#20#20#27#26#26'   '
+  +'   '#31' '#31'   '#29#29#29#16#16#17#15#15#16#14#14#16#14#14#15#14#14#15#17
+  +#17#17#19#19#18#18#19#19#18#19#18#18#18#18#18#18#18#18#18#18#18#18#18#17#17
+  +#17#17#17#18#17#17#17#16#17#17#17#17#17#17#16#17#17#17#16#16#17#17#16#16#17
+  +#16#16#16#16#16#16#15#15#15#16#16#15#16#15#15#12#12#12#11#11#11#11#11#11#11
+  +#10#11#12#11#12#24#25#25'$$$)))//0333%%%'#8#7#7#8#8#7#7#7#7#7#7#7#8#7#7#7#7#7
+  +#7#7#7#6#7#7#6#6#6#7#7#7#7#7#7#6#6#7#6#6#6#6#6#6#6#5#6#6#6#6#5#6#5#5#6#6#5#5
+  +#5#5#6#5#5#5#5#4#5#5#5#5#5#5#5#5#5#5#4#5#4#5#5#5#5#4#5#4#4#4#4#4#4#4#4#4#4#4
+  +#4#3#4#4#4#4#4#3#3#4#4#3#3#4#3#3#3#3#3#4#3#3#3#2#2#3#2#3#3#2#3#3#2#3#2#3#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#1#1#2#1#1#1#1#1#1#1#2
+  +#2#1#2#2#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#0#0#1#1#0#0#0#1#0#0#1#0#1#1#0#1#0#0
+  +#0#1#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'000yyy000'
+  +'000000000000000000000000000555;;;<<<===>>>???@@@@@@@@@@@@@@@???878111//////'
+  +'///////////////////////////333988::::::::9::9::9::9:99:99:99:99:99999999999'
+  +'999999999999999999999999999998998998988988988988988776222222222222222444999'
+  +'998998988988988988888888888888888888888888888888888887887877877877877877777'
+  ,'777777777777777999999999999999888666666666666666666666666666////////////000'
+  +'AAAIIINNNSSSWWW???2223333334446665666677889:9:::;<<>=>>>>@A@BBBCCCFFFHHHJJJ'
+  +'MMMOONRRRSTSVWWYZZ\\\```bbbeeeiiimmmqpptttwww{{{'#128#131#131#132#136#136
+  +#136#141#141#141#146#146#146#150#150#150#155#155#155#160#160#160#165#165#166
+  +#170#170#170#175#175#175#163#163#163'999444777;;;>>>@@@BBBDDDDDDEEEEEEDDDDDD'
+  +'BBBBBBBBBBBB@@@@@@@@@???>>>>>>============>>>@@@DDDGGGJJJNNNQQQSSSUUUVVVUUU'
+  +'TTTQQQNNNIIIDDD@@@<<<999666333111111000.........---,,,,,,,,,++++++******)))'
+  +')))(((''''''&&&%%%$$$"""!!!'#31#31#31#30#30#30#27#27#27#27#25#13#18#27'J'#1
+  +#31#209#0#31#223#0#31#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28
+  +#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201
+  +#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19
+  +#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183
+  +#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10
+  +#174#0#10#173#0#8#172#0#7#173''')X880111***"""'#26#26#26#17#17#17#7#7#7#5#5#5
+  +#5#5#5#3#3#3#2#2#2#2#2#2#2#2#2#1#1#1#11#11#11#155#155#155#172#172#172#167#167
+  +#167#162#162#162#156#156#156#150#150#150#140#140#140#134#134#134#129#128#129
+  +'{||vvvqqqmmmhhgdcc_`_[[[ZZZ^^^]]][[[XXXUUURRRQPQAAA877444211...,,,())&&''$$'
+  +'$###!!!'#31#31#31#29#28#29#27#28#28#25#25#25#24#24#24#22#22#22#22#22#22#21
+  +#22#21' '#31#31'      !!!  !'#22#22#22#16#16#17#15#15#16#14#15#15#15#14#16#14
+  +#14#16#19#19#19#19#19#19#19#18#19#19#19#18#18#18#19#18#18#18#18#18#18#18#18
+  +#18#18#18#17#17#17#18#17#17#17#17#18#17#17#17#17#17#16#17#17#16#17#17#17#16
+  +#17#17#16#17#16#16#16#16#16#16#16#15#16#16#16#15#16#15#12#13#13#11#11#11#11
+  +#12#11#11#11#11#12#12#12#19#18#19'#$$(()--.222---'#8#8#8#7#7#8#7#7#8#7#7#7#7
+  +#8#7#7#7#7#7#7#7#7#6#7#7#7#7#6#7#7#7#7#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#5#6#5
+  +#5#6#5#5#6#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#4#4#4#5#4#4#4#4#4#4#4#4
+  +#5#4#4#4#7#7#7#4#4#4#3#4#3#4#3#4#4#3#3#4#4#4#3#3#3#3#3#3#3#3#3#3#3#2#2#3#2#2
+  +#3#2#2#3#3#2#3#2#2#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#2#1#2#2#2#2#2
+  +#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#0#1#1#1#1#1#0#1#1#1#1#0#0#0#1#0
+  +#1#0#1#1#0#0#0#0#0#0#0#0#0#0#1#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
+  +'000yyy000000000000000000000000000000000111777===??????@@@@@@@@@@@@@@@@@@@@@'
+  +'@@@:::222/////////////////////////////////212777::9::9::9::9:99:99:99:99:99'
+  +'999999999999999999999999999999999999998998998988988988988988776212222222222'
+  +'222222999999998998988988988988888888888888888888888888888888888887887877877'
+  +'877877877777777777777777999999999999999888666666666666666666666666666000///'
+  +'//////000<;<HHHNNNRRRVVVEEE222333333444666665777888::9:::====>>>>>AABBCBDDE'
+  +'FFFHHHJJJMMLOONRQRUUTWWW[Z[^]]```dddgggjijnnnqqquuuyyy}}}'#129#129#129#134
+  +#134#134#138#138#138#143#143#143#147#147#147#152#152#151#156#157#157#162#162
+  +#162#167#167#167#172#172#172#178#178#178'www333777:::===@@@BBBDDDEEEEEEEEEEE'
+  +'EEEEDDDDDDBBBBBBBBBBBB@@@??????>>>======<<<<<<<<<===???CCCHHGMLIQQMVTOZYU\['
+  +'X]]\\\\\\\YYYUUUQQQLLLGGGBBB===999666333111000000.........---,,,,,,,,,+++++'
+  +'+******))))))''''''&&&%%%$$$"""   '#30#30#30#28#28#28#28#26#14#18#28'K'#1' '
+  +#211#0'!'#225#0#31#217#0#31#216#0#31#215#0#30#214#0#30#213#0#29#212#0#29#211
+  +#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24
+  +#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193
+  +#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15
+  +#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175
+  +#0#11#175#0#10#174#0#10#172#0#7#176#11#19#145'555331---&&&'#30#30#30#22#22#22
+  +#12#12#12#5#5#5#5#5#5#4#4#4#2#2#2#2#2#2#2#2#2#2#2#2#1#1#1'___'#175#175#175
+  +#169#169#169#163#163#163#154#154#154#146#146#146#141#141#141#135#135#135#131
+  +#131#131'}}}xxysssnonjjjeee``a]]]YYYWVV\\\[[[YYYVVVRRRQQQNNN?>?444212.//,,,*'
+  +'**(((%%%###!!"   '#29#29#28#28#27#28#25#26#26#24#24#24#22#22#22#22#22#22#26
+  +#26#26'      !!"!!!   '#17#16#17#16#17#17#15#15#16#15#15#16#15#15#15#16#17#16
+  +#19#19#19#19#19#19#19#18#18#19#19#19#19#19#18#18#18#18#18#18#18#18#18#18#18
+  +#18#18#18#18#18#17#17#18#18#17#17#17#17#17#17#17#17#16#17#17#16#17#16#17#16
+  +#16#16#16#17#16#16#16#16#16#16#16#16#16#16#15#15#13#14#14#11#12#12#11#11#12
+  +#11#11#11#12#12#12#15#14#15'###''''''-,-111555'#8#8#8#8#8#8#8#8#8#8#8#7#8#8#7
+  +#8#7#7#7#8#7#7#7#7#7#7#7#7#7#7#6#6#7#6#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#5#5#6#6
+  +#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#4#5#4#4#4#5#5#5#4#4#8#8#8#19
+  +#19#19#22#22#22#13#13#13#4#4#4#3#4#4#4#4#4#3#3#3#3#3#3#3#3#4#3#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#2#2#3#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#2
+  +#1#2#1#1#2#2#1#1#2#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#1#1#1#1#1#0#1#1#0
+  +#1#0#0#0#0#0#0#1#0#0#0#1#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'000yyy000000000000000000000000000000000000000000666>>>@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@<<<444/////////////////////////////////000666::9::9:99:99:99:9'
+  +'9:99:9999999999999999999999999999999999999999899898898898898898888821221222'
+  +'222222222299999999999899898898898898888888888888888888888888888888888888788'
+  +'787787787787787777777777777799999999999999988866666666666666666666666666610'
+  +'1/////////000;:;GGGMMMQQQUUUIII222333333555666666888989:::;:;==<>>>???AABDC'
+  +'CEEEFFFIIIKKKNNNPOOSSSVUUXYY[[[_^_aaadddhhhlllooossswvv{{z'#131#131#131
+  +#136#136#136#140#140#140#145#145#145#149#149#149#153#153#153#159#159#159#164
+  +#164#164#169#169#169#175#174#174#176#176#176'JJJ666888===???BBBDDDEEEFFFFFFF'
+  +'FFEEEEEEEEEDDDDDDBBBBBBBBBAAA???>>>>>>===<<<;;;;;;;;;<<;>=:C@5GF@JKQLO\JRoT'
+  +'Xi[]ddc_heZed_aa`^^^YYYTTTMMMGGGBBB===999555333222111///.........---,,,,,,,'
+  +',,++++++******)))(((&&&%%%###!!!'#31#31#31#29#29#28#28#26#15#19#28'L'#1'!'
+  +#213#0'"'#227#0'!'#219#0'!'#218#0#31#217#0#31#216#0#31#215#0#30#214#0#30#213
+  +#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25
+  +#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195
+  +#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16
+  +#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178
+  +#0#12#176#0#11#175#0#11#175#0#10#174#0#9#173#0#8#176'$&[55,///)))!!!'#26#26
+  +#26#17#17#17#7#7#7#5#5#5#5#5#5#4#4#4#2#2#2#2#2#2#2#2#2#2#2#2#31#31#31#172#172
+  +#172#168#168#168#160#160#160#155#154#155#149#149#149#143#143#143#137#137#137
+  +#133#133#133'{z{uuuppplllgggccc]^^ZZ[WVVSSSYYYYYYWWWTTTQQQOOOMLM===323///'
+  +'---+++)))&&%$#$"""   '#30#30#30#29#29#29#26#27#26#25#25#26#23#23#23#22#22#22
+  +#31#31#31'      """"""'#26#26#25#17#17#17#16#17#17#15#15#16#14#14#16#15#14#16
+  +#18#19#19#19#19#19#19#19#19#19#19#19#19#19#19#19#18#18#19#18#18#18#18#19#18
+  +#18#18#18#18#18#17#18#17#17#17#17#17#18#17#17#17#17#17#17#17#17#17#17#17#17
+  +#16#16#16#16#16#17#16#16#16#17#16#16#16#16#16#16#16#15#16#15#15#14#11#12#12
+  +#11#12#11#11#11#11#11#11#11#13#13#13'   (''(,,+110445'#20#20#20#8#8#8#8#7#8#8
+  +#7#8#7#8#8#8#7#7#8#7#7#7#8#7#7#7#7#6#7#7#7#6#7#7#7#7#7#7#7#6#6#6#6#6#6#6#6#6
+  +#6#6#6#5#5#5#6#6#6#5#6#5#6#6#5#5#5#6#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#6#6#5#15
+  +#14#15#21#21#21#21#21#21#22#22#22#22#22#22#18#18#18#6#7#7#4#3#3#4#3#3#3#3#4#3
+  +#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#2#3#2#2#2#3#2#3#3#3#3#2#2#2#2#3#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#1#2#1#2#2#1#2#2#1#1#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#0#1#1#0#0#0#0#0#0#0#1#1#0#0#1#0#0#1#1#1#0#0#1#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'000yyy000000000000000000000000000000000000000000000'
+  +'000444<<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>>>667000///////////////////////////'
+  +'/////0444999:99:99:99:99:99999999999999999999999999999999999999998998998988'
+  +'988988988988211212212222222222999999999999998998988988988988888888888888888'
+  +'888888888888888888887887877877877877877777777777999:99999999999999766666666'
+  +'666666666666666666111/////////000666GGGKKKOOOTTTPPP222333444555666666888999'
+  +':::;;;<==>??@@@BAACCDFGGHGGKKJMLLOOOQQQTTTWWWYXY[[\```bbbeeeiiimmmqqquuuwxw'
+  +'}}}'#129#129#129#133#132#133#137#136#137#142#142#141#146#146#146#151#151#151
+  +#156#156#156#161#161#161#166#165#165#170#170#170#176#176#176#144#144#144'666'
+  +'888;;;???AAADDDEEEFFFFFFGGGGGGFFFEEEEEEEEEDDDDDDBBBAAAAAA???>>>===;;;;;;:::'
+  +'::::97=:/9<G+='#132#30'?'#187#20'='#226#12'<'#245#10':'#249#10';'#246#17'='
+  +#235'#F'#204'>S'#164'^bvli_fea```[[[UUUMMMGGGBBB<<<888555222111000//////....'
+  +'..---,,,,,,,,,++++++***)))(((''''''%%%###!!!'#30#31#30#29#28#23#19#29'P'#1
+  +'"'#214#0'#'#229#0'"'#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31#216#0#31
+  +#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206
+  +#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22
+  +#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189
+  +#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13
+  +#180#0#12#178#0#12#178#0#12#176#0#11#175#0#11#175#0#10#173#0#7#178#11#18#145
+  +'33211/+++%%%'#29#29#29#21#21#21#11#11#11#5#5#5#5#5#5#4#4#4#3#3#3#2#2#2#2#2#2
+  +#2#2#2#2#2#2'|||'#168#168#168#162#162#162#156#156#156#151#151#151#145#145#145
+  +#140#140#140#134#135#134#129#129#129'||{xxxvvuooohhhddd`__[[[XWWSSSPPPXXXVVV'
+  +'SSSRRROOOMMMJKK@@A110...,,,)))%&&$$####   '#30#30#30#29#29#29#27#26#27#25#26
+  +#26#23#24#23#25#25#25'!!!!!!""!""""""'#20#20#21#16#17#17#17#16#17#15#15#16#15
+  +#15#16#15#16#16#20#20#19#20#19#19#19#19#19#19#19#19#19#18#19#19#18#19#18#18
+  +#18#18#18#18#18#18#19#18#18#18#18#18#18#18#17#18#17#18#17#18#17#17#17#18#17
+  +#17#17#17#17#17#17#17#17#16#17#17#17#16#16#16#16#17#16#16#16#17#16#16#16#16
+  +#14#15#12#11#12#12#12#12#12#11#11#11#11#12#13#13#13#29#29#29'''''''+*+///444'
+  +#25#25#25#8#8#8#8#8#8#8#8#7#7#8#8#7#7#7#7#7#7#7#7#7#7#8#7#7#7#7#6#7#6#7#7#7#6
+  +#7#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#5#5#5#6#6#5#5#6#5#5#5#5#5#5
+  ,#5#5#5#10#11#11#20#19#19#21#20#21#22#21#21#21#21#22#22#22#22#23#23#23#23#23
+  +#23#23#23#23#10#10#10#3#4#3#4#4#4#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2
+  +#2#3#3#2#3#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#2#1#2#2#1#2#1#1#2
+  +#2#2#1#2#1#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#0#1#1#1#1#0#0#0
+  +#0#0#0#0#0#0#1#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'000yyy00000000000'
+  +'0000000000000000000000000000000000000000000222:::@@@@@@@@@@@@@@@@@@@@@@@@@@'
+  +'@@@@???999111/////////////////////////////////333888:99:99:9999999999999999'
+  +'999999999999999999999999999899898898898898898821121121221222222299999999999'
+  +'999999899898898898898888888888888888888888888888888888888788787787787787787'
+  +'7777777988:99:99999999999766666666666666666666666666222/////////000222EEEKK'
+  +'KNNNRRRVVV444333444555666666888999:::<<;>>>>??A@ABBBCCDGFGIHHJJJMMMOOORRRTT'
+  +'TWWW[[[^^^```dddgggkkknnnqqquuuyyy~~~'#130#129#130#134#134#134#139#139#139
+  +#143#143#143#148#148#148#153#153#153#158#158#158#162#162#162#168#168#168#173
+  +#173#173#178#178#178'eef777;;;>>>@@@CCCEEEFFFHHHHHHHHHGGGGGGFFFEEEEEEEEEDDDC'
+  +'CCAAA@@@???===;;;:::999888970789&;'#140#18'='#227#8'='#255#7'<'#255#7';'#255
+  +#8';'#255#7':'#255#6'9'#255#4'8'#255#1'6'#255#0'5'#255#12';'#242'5O'#181'cfo'
+  +'jg^`a`ZZZSSSLLLEEE@@@;;;777444222111000//////......---,,,,,,,,,++++++***)))'
+  +'''''''%%%###   '#30#30#27#26#28'!'#4'"'#198#0'$'#234#0'#'#223#0'#'#222#0'"'
+  +#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31#216#0#31#215#0#30#214#0#30#213
+  +#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25
+  +#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195
+  +#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16
+  +#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178
+  +#0#12#176#0#11#175#0#11#175#0#9#174#0#8#177'!$Y32*,,-''''''   '#24#24#24#16
+  +#16#16#7#7#7#5#5#5#5#5#5#4#4#4#4#4#4#2#2#2#2#2#2#2#2#2'CCC'#170#170#170#164
+  +#164#164#159#159#159#153#152#153#147#147#147#142#142#142#137#136#137#132#132
+  +#132#130#130#129'}||wwwrrrklkeeeaaa]]]XXYTUTQRQMMMSSSTTTRRROOOMMMKKKHHH>>>/.'
+  +'.,,,))*''''''%%$###!"!'#31#31' '#29#29#29#27#27#27#25#25#25#23#23#23#29#29
+  +#29'"""""""""##$'#31#30#31#18#18#19#17#17#18#17#16#17#15#16#17#15#15#16#18#18
+  +#18#20#19#20#20#20#19#19#20#20#19#19#19#19#19#19#18#19#19#19#18#19#19#19#18
+  +#18#18#18#18#19#18#18#18#18#18#18#17#18#18#17#17#18#17#18#17#17#17#17#18#17
+  +#17#17#16#17#17#16#16#16#16#17#17#17#16#16#16#16#16#16#16#16#16#16#16#12#12
+  +#12#12#12#12#12#12#11#11#11#11#13#12#12#25#25#25'%%%))*0//344"""'#8#8#9#8#8#8
+  +#8#8#8#8#8#8#7#8#8#8#8#7#7#7#8#7#8#7#7#7#7#7#7#7#7#6#7#7#7#7#7#6#6#7#6#6#6#6
+  +#7#6#6#7#6#6#6#5#6#6#6#6#5#6#5#6#6#6#5#6#6#5#5#5#5#8#7#7#16#16#16#21#21#21#21
+  +#21#21#21#22#22#21#21#22#22#22#22#22#22#22#23#23#23#23#23#23#24#24#24#24#24
+  +#24#15#15#15#5#5#5#3#3#3#3#3#3#4#3#4#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#2#2#3#2#3
+  +#3#3#3#2#3#3#2#3#2#2#2#2#2#3#2#2#2#2#2#2#2#2#2#1#2#1#1#2#1#2#1#2#1#1#2#1#1#2
+  +#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#1#1#1#0#0#1#1#1#0#1#1#0#0
+  +#1#0#1#1#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'000yyy0000000000000000000000000'
+  +'00000000000000000000000000000000000111888???@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@:'
+  +'::333/////////////////////////////////112666:99:999999999999999999999999999'
+  +'999999999999989989889889889889881112112112122122229889999999999999999989989'
+  +'88988988988888888888888888888888888888888888887887877877877877877777988::9:'
+  +'99:99999999777666666666666666666666666444////////////111CCCHHHMMMQQQUUU>>>3'
+  +'33444555666777888::::::===>>>??>BBBBBBEEDFGFHHIKJJNMMOOOSSSUUUXXX[[[]^]bbad'
+  +'eehhhlllppossswwwzzz'#131#131#131#136#136#136#140#140#140#145#145#145#149
+  +#150#149#154#154#154#159#159#159#164#164#164#170#170#170#175#175#175#171#171
+  +#171'DDD:::===@@@CCCEEEGGGHHHIIIIIIHHHGGGGGGGGGFFFEEEEEEDDDCCCAAA@@@>>><<<::'
+  +':88866675,17K'#24'>'#201#11'@'#255#11'?'#255#11'>'#255#11'>'#255#10'='#255#9
+  +'<'#255#9';'#255#8';'#255#7':'#255#6'9'#255#6'8'#255#2'7'#255#0'4'#255#21'?'
+  +#228'T^'#132'if\___XXXQQQJJJCCC===999666333111111/////////......---,,,,,,,,,'
+  +'+++***)))''''''%%%###   '#29#29#28#27#27#23#8'!'#163#0'%'#236#0'$'#224#0'#'
+  +#223#0'#'#222#0'"'#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31#216#0#31#215
+  +#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26
+  +#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198
+  +#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17
+  +#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180
+  +#0#12#178#0#12#178#0#12#176#0#11#175#0#11#174#0#8#179#12#19#140'//,..,)))"""'
+  +#27#27#27#20#20#20#10#10#10#6#6#6#6#6#6#4#4#4#4#4#4#4#4#4#2#2#2#2#2#2#18#18
+  +#18#160#160#161#167#166#167#161#161#161#155#155#155#149#149#149#144#144#145
+  +#140#141#140#137#136#136#131#130#130'~~yxytttooojijccc^^^[Z[UVURRRNNNJJJOPP'
+  ,'RRRPPPMMMJJJHHHEEE<;<---***(((&&&###"""!  '#29#29#29#28#28#28#26#26#26#25#26
+  +#25'############$##'#25#25#25#18#19#19#17#17#18#17#16#18#16#16#16#15#15#16#20
+  +#20#20#21#20#20#20#20#20#19#20#20#19#19#19#19#19#19#19#19#19#19#18#19#19#18
+  +#19#18#18#19#18#18#18#18#18#18#18#18#18#17#17#18#18#17#17#17#17#17#17#18#17
+  +#17#17#17#17#17#17#17#16#17#16#17#16#17#16#17#17#16#16#16#17#16#16#16#17#13
+  +#13#13#12#11#12#12#12#12#12#12#12#12#12#12#20#20#20'%%%))).-.212+++'#8#9#9#8
+  +#8#8#8#8#8#7#8#7#8#8#8#8#7#7#7#8#8#8#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#7#6#7#7
+  +#6#6#6#7#7#7#6#6#6#6#6#6#6#6#6#6#6#6#5#5#6#5#5#5#14#14#13#21#21#21#21#21#21
+  +#21#21#21#21#22#22#22#22#22#22#22#23#22#22#23#23#23#23#23#23#23#24#24#24#24
+  +#24#24#24#24#24#25#25#25#21#21#21#7#7#8#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#2#2#2#3#2#3#3#2#3#2#2#2#3#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#1#2
+  +#1#2#2#1#2#2#1#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#0#1
+  +#0#0#1#1#0#1#0#0#0#0#1#0#1#0#0#1#0#1#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'000yyy00000000000'
+  +'0000000000000000000000000000000000000000000000000000000000666===@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@@@<<<555/////////////////////////////////00055599899999999'
+  +'999999999999999999999999999899899898898898898833311121121121221277799999999'
+  +'999999999999899898898898898888888888888888888888888888888888888788787787787'
+  +'7877877888::9::9:99:99999777766666666666666666666666655////////////000===HH'
+  +'HKKKOOOSSSIII333444666666777888:::;;;===>>>@??BABCDDEFFHGHJIIKLKNOOQRQSSSWW'
+  +'WYYY\\\___cbbfefjjimmmqqqtttxxx|||'#128#128#128#133#133#133#137#137#137#142
+  +#142#142#147#147#147#151#152#152#156#156#156#161#161#161#166#166#166#171#171
+  +#171#176#176#176#141#141#141':::<<<>>>BBBEEEFFFHHHIIIIIIJJJIIIHHHGGGGGGGGGFF'
+  +'FEEEDDDCCCAAA???===:::77766653)-5T'#20'@'#226#12'A'#255#14'@'#255#14'@'#255
+  +#13'?'#255#12'>'#255#11'>'#255#10'='#255#9'<'#255#9';'#255#8';'#255#7':'#255
+  +#6'9'#255#6'9'#255#4'8'#255#0'5'#255#9'9'#244'LY'#141'fcX[[[TTTMMMFFF@@@;;;7'
+  +'77444333111000000//////......---,,,,,,,,,+++)))(((%%%###   '#29#29#29#28#26
+  +#14#14#31'x'#0'%'#238#0'$'#225#0'$'#225#0'#'#223#0'#'#222#0'"'#221#0'"'#220#0
+  +'!'#219#0'!'#218#0#31#217#0#31#216#0#31#215#0#30#214#0#30#213#0#29#212#0#29
+  +#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203
+  +#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20
+  +#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185
+  +#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#178#0#12#176#0#11
+  +#175#0#10#176#1#10#173'"%H..''))*$$$'#29#29#29#23#23#23#14#14#14#7#7#7#6#6#6
+  +#5#5#5#4#4#4#4#4#4#4#4#4#2#2#2#2#2#2'uvu'#168#168#168#163#163#163#157#156#157
+  +#153#153#153#149#148#148#144#143#143#138#138#138#133#132#133#128'{{{uuupqq'
+  +'lllfff```[[[WXWSSSOOOKKKIIINMNPPPMMMLLLHHHFFFBBB989,,-)))&&&$$$"##!! '#30#30
+  +#31#30#30#30#30#30#30'"""$$$%%%$$$$$$#""'#19#19#20#18#18#19#17#17#18#17#17#18
+  +#16#16#17#17#18#18#21#20#20#21#20#20#20#20#20#20#20#20#20#20#19#19#19#20#19
+  +#19#19#19#19#19#19#19#19#19#19#19#18#19#19#18#18#18#18#18#18#18#18#18#17#18
+  +#18#18#18#18#18#17#18#17#17#17#17#17#17#17#17#17#17#17#17#16#17#17#16#16#17
+  +#17#17#17#16#17#16#14#14#14#12#12#12#12#12#12#12#11#11#12#12#13#18#17#18'###'
+  +'(((-,-000334'#9#8#9#8#9#9#8#8#9#8#8#8#8#8#8#8#8#8#8#7#7#7#8#7#7#8#7#7#7#7#7
+  +#7#7#7#7#7#7#6#7#6#6#7#7#6#6#6#7#7#6#6#6#6#6#6#6#6#6#6#6#6#10#9#10#19#18#18
+  +#22#22#21#21#22#21#21#21#21#22#22#22#23#23#23#22#23#23#24#24#24#23#23#23#20
+  +#21#21#24#24#24#24#24#24#24#25#24#24#24#24#25#25#25#24#25#25#23#24#24#11#12
+  +#12#3#3#4#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#3#3#2#3#3#2#3#2#3#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#1#2#1#1#1#1#2#1#1#2#2#1#1#1#1#1#1#1#1#2
+  +#1#1#1#1#1#1#0#1#1#0#1#0#0#0#0#0#1#1#0#1#0#1#1#0#0#0#0#0#0#0#1#1#0#0#1#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'000yyy00000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000444;;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>>>667000////////'
+  +'////////////////////////066699999999999999999999999999999999999899898898898'
+  +'898833311111121121121277799999999999999999999999899898898898898888888888888'
+  +'8888888888888888888888887887877877877877888:::::9::9:99:9988876666666666666'
+  +'6666666666666000/////////000888FFFJJJMMMRRRSSS333444666666777999:::;;;===>>'
+  +'>@@@BBADDCGFGGGHJKJMMMOOOSRRTTTWWWZZZ]]]```dddffgjiimmnrrquvuyyz}}}'#130#130
+  +#130#134#134#134#139#139#139#143#143#143#148#148#148#153#153#153#158#158#158
+  +#162#163#162#169#168#168#173#173#173#178#178#178'hhh<<<>>>AAADDDFFFHHHIIIIII'
+  +'JJJJJJJJJIIIHHHGGGGGGGGGFFFDDDCCCAAA>>>;;;77755542-/2?'#23'@'#219#15'C'#255
+  +#16'A'#255#15'@'#255#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255#10'='
+  +#255#9'<'#255#9';'#255#8';'#255#7':'#255#6'9'#255#6'9'#255#5'8'#255#0'5'#255
+  +#10':'#243'RZz_]VVVVPPPIIIBBB<<<888555444222111000000//////......---,,,,,,++'
+  +'+)))(((%%%###!!!'#30#30#30#28#26#17#17#28'T'#0'%'#229#0'$'#228#0'$'#226#0'$'
+  ,#225#0'#'#223#0'#'#222#0'"'#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31#216
+  +#0#31#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26
+  +#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198
+  +#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17
+  +#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181
+  +#0#13#180#0#12#178#0#12#178#0#12#176#0#11#175#0#8#182#17#23'x,,$)))&&&   '#25
+  +#25#25#17#17#17#9#9#9#7#7#7#6#6#6#4#4#4#4#4#4#4#4#4#3#3#3#3#3#3'BBB'#170#170
+  +#170#166#166#166#162#161#162#156#155#155#151#150#150#145#145#145#140#140#139
+  +#135#134#134#129#129#129'}}|wwwrrqnnniiiddd\\\XXXTTTPPPLMLIIIFFFIIIMMMLLLIII'
+  +'FFFBBB>>>:9:++*&&&''''(((()**)*)*)))))''''''''''''&&&%%%$$$'#29#29#29#20#20
+  +#20#18#19#19#17#18#18#17#17#18#17#17#18#20#20#20#22#20#20#21#20#20#21#20#20
+  +#20#20#19#20#20#20#19#19#20#19#19#19#19#19#19#19#19#19#19#19#19#19#18#19#18
+  +#19#18#18#18#18#18#18#18#18#18#18#17#18#18#18#17#18#17#17#17#17#18#17#17#17
+  +#18#17#17#17#17#17#17#17#17#16#17#16#16#16#16#17#15#15#14#12#13#12#12#12#12
+  +#12#11#12#12#11#11#15#14#14'"""''''''***../221'#17#16#17#9#9#9#8#8#8#8#8#8#8
+  +#8#8#8#8#7#7#8#7#8#8#8#8#8#8#7#7#7#7#7#8#7#7#7#7#7#7#7#7#7#7#6#7#7#7#6#6#7#7
+  +#7#6#7#7#7#8#15#15#15#21#21#21#21#22#22#21#21#22#23#23#22#22#23#22#23#24#23
+  +#24#24#23#24#24#24#18#18#18#8#8#8#7#8#8#19#18#18#24#24#25#24#24#24#25#26#26
+  +#25#25#25#24#25#25#25#25#25#26#26#26#16#15#16#3#3#4#4#3#3#3#4#4#3#3#3#3#3#3#2
+  +#3#3#3#2#3#2#3#3#2#3#2#3#3#3#2#2#2#2#3#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#1#1#2#2#1#1#2#1#1#1#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#0#1
+  +#1#1#0#1#0#0#1#0#0#1#1#0#1#1#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'000yyy00000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000000000222:::???@@'
+  +'@@@@@@@@@@@@@@@@@@@@@@@@@???999111///////////////////////////44499999999999'
+  +'999999999999999999999999899899898898898833311111111121121166699999999999999'
+  +'999999999999899898898898898888888888888888888888888888888888888788787787787'
+  +'7877::::::::9::9:99988766666666666666666666666666222/////////000222DDDHHHKK'
+  +'KOOOSSS???555666666888999:::;;;===???AAABBBDDCGGGIIIJKJNNMPPPRSRUTTWWW[[[^^'
+  +'^aaadddhhhlkkonnssrvwwzzz~~'#131#130#130#135#135#135#139#139#139#144#144
+  +#144#149#149#149#154#154#153#158#158#158#164#164#164#169#169#169#175#175#175
+  +#173#173#173'GGG===AAADDDFFFGGGIIIJJJKKKJJJJJJJJJJJJIIIHHHGGGGGGFFFDDDBBB???'
+  +'===9996662210/)'#28'='#180#16'E'#255#18'C'#255#16'B'#255#16'A'#255#15'@'#255
+  +#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255#10'='#255#9'<'#255#9';'
+  +#255#8';'#255#7':'#255#6'9'#255#6'9'#255#5'8'#255#0'5'#255#24'?'#219'YZ\WVTP'
+  +'PPJJJCCC>>>:::666444333222000000000//////......---,,,,,,***(((&&&###!!!'#30
+  +#30#30#27#26#22#21#26'2'#1'%'#221#0'%'#231#0'$'#226#0'$'#226#0'$'#225#0'#'
+  +#223#0'#'#222#0'"'#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31#216#0#31#215
+  +#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26
+  +#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198
+  +#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17#189#0#17
+  +#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181#0#13#180
+  +#0#12#178#0#12#178#0#12#176#0#10#179#3#13#162'$%1))%&&&"""'#27#27#27#20#20#20
+  +#11#11#11#8#8#8#7#7#7#5#5#5#4#4#4#4#4#4#3#3#3#3#3#3#22#22#22#166#166#166#169
+  +#169#168#163#163#162#158#158#157#151#151#151#146#146#146#141#141#141#135#135
+  +#135#130#130#130'~}}xxxtttooojkjfff```ZZZUTURQRMNMJJJFFFCCCEDEKKKHHHFFFCCC??'
+  +'?===667555343111///++,+,+))))))(''((''''&&&%%%'#23#23#24#20#20#20#19#18#19
+  +#17#18#18#17#17#18#18#18#18#21#21#21#21#20#20#21#20#21#21#20#20#20#20#20#20
+  +#19#20#19#19#20#19#19#19#19#19#19#19#19#19#19#19#18#18#18#19#19#19#19#19#18
+  +#18#18#18#18#18#18#18#18#18#18#18#18#18#18#17#17#18#17#17#17#17#18#17#17#17
+  +#17#17#17#17#17#17#16#17#16#16#17#16#15#15#16#12#12#12#12#12#12#12#12#12#12
+  +#11#12#14#13#13#30#29#30'%%&(((,,,/./'#23#23#22#8#8#9#8#8#9#8#9#8#8#8#8#8#8#8
+  +#8#8#8#8#8#7#8#8#8#8#7#7#7#7#7#7#7#8#7#7#7#7#7#7#7#7#6#6#7#7#7#7#6#11#11#11
+  +#20#20#20#22#22#22#22#22#22#22#22#22#23#23#23#24#24#24#24#24#23#24#24#24#22
+  +#21#21#12#11#12#7#7#7#7#6#7#7#7#7#7#6#7#14#14#14#24#24#23#25#25#25#26#25#25
+  +#25#25#25#25#25#25#26#25#26#27#26#26#21#21#21#5#5#6#3#4#3#3#4#3#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#2#3#3#2#3#3#2#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#1#1#2#1#2#1#1#2#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#1#1#1#1#1#0#0#0#1
+  +#1#1#1#0#0#1#0#0#0#1#1#0#1#0#1#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'000yyy00000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000000000111888>>>@@'
+  +'@@@@@@@@@@@@@@@@@@@@@@@@@@@@;;;333/////////////////////22299999999999999999'
+  +'999999999999999999899899898898898855511111111111121155599999999999999999999'
+  +'9999999998998988988988988888888888888888888888888888888888887887877877877:9'
+  ,'9::::::::9::9999766766666666666666666666666444////////////111>>>FFFIIINNNQQ'
+  +'QOOO555666666888999:::<<<>>>???AAABBBEEEGGGIHIJKKNNMOOPSSSUUVXXX[[[___bbbee'
+  +'ehhhlllppptssxxx{{|'#133#133#133#137#137#137#141#141#141#146#146#145#151
+  +#151#151#156#156#156#161#161#161#166#166#166#171#171#171#176#177#176#149#149
+  +#149'===???CCCEEEHHHIIIJJJKKKLLLLLLJJJJJJJJJJJJIIIHHHGGGFFFEEEBBB???<<<88844'
+  +'41/&''4f'#19'E'#255#19'E'#255#18'D'#255#17'C'#255#16'B'#255#16'A'#255#15'@'
+  +#255#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255#10'='#255#9'<'#255#9
+  +';'#255#8';'#255#7':'#255#6'9'#255#6'9'#255#5'7'#255#0'5'#255'7K'#151'XUJNON'
+  +'JJJCCC???;;;777555333222222000000000//////......---,,,+++)))''''''%%%"""'#31
+  +#31#31#28#27#25#25#26'!'#3'$'#203#0'&'#234#0'%'#227#0'$'#226#0'$'#226#0'$'
+  +#225#0'#'#223#0'#'#222#0'"'#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31#216
+  +#0#31#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26
+  +#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198
+  +#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19#191#0#19#190#0#17
+  +#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#181
+  +#0#13#180#0#12#178#0#12#178#0#11#177#0#10#181#23#27'W)('#31'&&&"""'#29#29#29
+  +#22#22#22#14#14#14#8#8#8#7#7#7#6#6#6#6#6#6#5#5#5#3#3#3#3#3#3#3#3#3#130#130
+  +#130#171#171#170#164#164#164#160#159#159#154#154#154#148#148#148#143#142#142
+  +#137#137#137#132#131#132#128''#128'zzztttppplmmgggcdc^^^VVVRRRONNJJJGGGCCC@'
+  +'@@CCCHHHEEECCC???===:::777444222000...,--+*****)))''(((''''   '#21#21#21#20
+  +#20#20#19#19#19#17#17#18#17#17#18#20#20#20#22#21#20#22#20#21#21#20#20#21#20
+  +#20#20#20#20#20#20#20#20#20#20#19#20#19#19#19#20#20#19#19#19#19#19#19#19#19
+  +#18#19#18#19#19#18#19#18#19#18#18#18#18#18#18#18#18#18#17#18#18#17#18#18#18
+  +#17#17#18#18#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#13#12#12#12#12
+  +#13#13#13#12#12#12#11#13#13#12#24#24#25'#"#&&''())***'#26#26#26#8#9#8#9#9#9#8
+  +#8#8#8#8#9#8#8#9#8#8#9#8#7#7#7#8#8#7#8#8#8#8#8#8#8#8#7#7#7#7#7#7#7#7#7#9#9#9
+  +#17#17#17#22#22#22#22#22#22#22#22#22#23#23#23#23#23#23#24#24#24#23#24#24#25
+  +#24#25#16#17#16#8#9#9#8#8#7#7#8#7#7#7#7#7#7#7#7#7#7#6#6#7#10#9#10#21#21#21#26
+  +#25#25#26#25#25#25#25#25#26#26#26#27#27#27#27#26#26#22#23#23#7#6#7#3#4#3#3#3
+  +#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#1#2#2#2#2#1#1#2#2#2#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#0#1#0#0#0#0#0#0#1#1#0#0#0#0#1#0#0#0#1#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'000yyy0000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000666===@@@@@@@@@@@@@@@@@@????????????===555///////////////1119999999'
+  +'999999999999999999999999999999989989889889885551111111111111114449999999999'
+  +'999999999999999999999989989889889889888888888888888888888888888888888888878'
+  +'87877877999:::::::::::9::9777766666666666666666666666666000/////////111555E'
+  +'EEHHHLLLOOOQQQ@@@666666888::::::<<<>>>???BBBCCCEEEGGGJJJLLLONOPQQTSSVWVYZY\'
+  +'[\___cccfffjjjmmmqqquuuyyx}}}'#129#129#129#133#133#133#138#138#138#142#142
+  +#142#147#147#147#152#152#152#156#156#156#162#162#162#167#167#167#172#172#173
+  +#178#178#178'yyy>>>AAADDDGGGIIIKKKKKKLLLLLLLLLLLLJJJJJJJJJJJJIIIGGGFFFDDDBBB'
+  +'>>>:::777221/.('#28'>'#189#19'G'#255#20'E'#255#19'E'#255#18'D'#255#17'C'#255
+  +#16'B'#255#16'A'#255#15'@'#255#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'
+  +#255#10'='#255#9'<'#255#9';'#255#8';'#255#7':'#255#6'9'#255#6'9'#255#2'6'#255
+  +#18'<'#224'NORMLJHHHCCC???;;;888555444222222222000000000//////......,,,,,,**'
+  +'*(((&&&###   '#29#29#27#27#26#28#6'#'#184#0''''#239#0'&'#228#0'%'#227#0'$'
+  +#226#0'$'#226#0'$'#225#0'#'#223#0'#'#222#0'"'#221#0'"'#220#0'!'#219#0'!'#218
+  +#0#31#217#0#31#216#0#31#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28
+  +#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201
+  +#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194#0#20#193#0#20#192#0#19
+  +#193#0#19#192#0#18#191#0#17#189#0#17#188#0#16#186#0#16#185#0#15#184#0#15#183
+  +#0#14#182#0#14#181#0#13#180#0#12#178#0#12#177#0#10#184#11#18#128'%%'#31'%%$#'
+  +'##'#30#30#30#24#24#24#17#17#17#9#9#9#8#8#8#7#7#7#6#6#6#6#6#6#4#4#4#3#3#3#3#3
+  +#3'XXX'#173#172#172#167#166#166#161#160#160#155#155#154#149#148#148#144#143
+  +#143#138#138#138#133#133#132#128#128#128'{{{vvvrrrmmmihhdde```[[[SSSPOPLLLHH'
+  +'GDDD@@@???A@AFFFCCCAAA===;;;888777333111000-.-,,-+++***))((('''#28#27#27#21
+  +#21#21#20#20#20#19#19#19#18#18#18#17#18#18#22#23#23#22#21#21#22#21#21#22#21
+  +#21#21#20#20#21#20#20#20#20#20#20#20#20#20#20#20#20#19#20#19#20#19#20#19#19
+  +#19#19#19#19#19#19#19#19#18#18#19#19#18#18#19#18#18#18#18#18#18#18#18#17#18
+  +#17#18#18#18#17#17#17#18#18#17#18#17#17#17#17#17#17#16#17#17#17#17#17#14#13
+  +#13#12#12#12#12#12#12#12#12#12#12#13#13#20#21#21'"!"$#$&&%&''&!!!'#11#10#10#8
+  +#8#9#9#9#9#9#8#9#8#8#8#8#8#8#8#8#8#8#7#7#8#7#7#8#8#7#8#8#8#8#7#8#7#7#7#14#14
+  +#14#20#20#20#22#22#22#22#22#22#23#23#23#23#23#23#24#24#24#24#24#24#25#25#25
+  ,#20#20#20#11#11#11#8#8#8#7#7#8#8#7#8#7#8#8#7#8#8#7#7#7#7#7#7#7#7#7#6#7#7#8#7
+  +#8#18#18#18#25#25#25#25#25#25#25#25#25#26#26#26#26#26#26#27#28#28#25#25#26#8
+  +#8#9#3#3#3#3#3#4#3#3#4#3#4#3#3#3#2#2#3#3#2#2#2#2#3#3#3#2#2#3#3#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#1#2#2#2#1#2#1#2#1#2#1#1#1#2#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#0#0#0#1#0#1#1#0#0#0#0#0#1#1#0#0#0#0#0#0#1#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'000yyy00000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000444;;;@@@@@@????????????????????????878////////////00'
+  +'099999999999999999999999999999999999999899899898898877611111111111111133399'
+  +'999999999999999999999999999999999899898898898898888888888888888888888888888'
+  +'8888888887887877988::::::::::::::9888766666666666666666666666666222////////'
+  +'/111111@@@FFFIIIMMMPPPMMM666777888::::::===>>>???BBBDDDFFFHHHJKKMMMOOORRRUU'
+  +'TWWWYZY]]]`a`cccgggjjjnnnrrrvvvyzy~~~'#130#130#130#134#134#134#139#140#139
+  +#143#143#143#148#148#148#153#153#153#158#158#158#163#164#164#169#168#169#173
+  +#173#173#179#179#179'\\]AAADDDFFFHHHKKKLLLMMMLLLLLLLLLLLLLLLJJJJJJJJJJJJHHHG'
+  +'GGDDDAAA>>>99955510+*0G'#22'F'#246#20'G'#255#21'F'#255#20'F'#255#19'E'#255
+  +#18'D'#255#17'C'#255#16'B'#255#16'A'#255#15'@'#255#14'@'#255#14'@'#255#13'?'
+  +#255#12'>'#255#11'>'#255#10'='#255#9'<'#255#9';'#255#8';'#255#7':'#255#6'9'
+  +#255#5'8'#255#4'7'#255'7EyJH?EEEBBB>>>;;;888666555333222222222000000000/////'
+  +'/......,,,***)))&&&$$$!!!'#31#30#30#29#27#22#10'"'#152#0'('#247#0''''#238#0
+  +'&'#230#0'%'#227#0'$'#226#0'$'#226#0'$'#225#0'#'#223#0'#'#222#0'"'#221#0'"'
+  +#220#0'!'#219#0'!'#218#0#31#217#0#31#216#0#31#215#0#30#214#0#30#213#0#29#212
+  +#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25
+  +#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22#198#0#22#197#0#21#195#0#21#194
+  +#0#20#195#0#20#194#0#19#192#0#19#191#0#18#192#0#17#195#0#17#199#0#16#195#0#16
+  +#191#0#15#185#0#15#183#0#14#182#0#14#181#0#13#180#0#12#178#0#12#180#2#12#166
+  +#30#31'.$$!###'#31#31#31#25#25#25#19#19#19#12#12#12#8#8#8#7#7#7#7#7#7#6#6#6#5
+  +#5#5#3#3#3#3#3#3'...'#173#172#172#167#167#167#162#162#161#157#156#157#151#150
+  +#151#145#145#145#140#140#140#135#134#134#131#130#130'}|}xwxsssnnnjjjffeaaa\\'
+  +'\XXXPPPMMMIIIDDDAAA???;;;<<<CBBBBB>>><<<:::788444111222///(()$$%!!"'#29#28
+  +#29#24#23#24#23#23#23#21#22#21#20#21#20#19#19#19#18#17#18#20#20#19#23#23#22
+  +#22#21#21#22#21#21#22#21#20#21#21#21#21#21#20#21#20#20#20#20#20#19#20#20#20
+  +#19#20#20#19#19#19#19#19#19#19#19#19#19#19#19#18#19#19#19#18#19#18#18#19#18
+  +#19#18#19#18#18#18#18#18#18#18#18#18#17#18#18#18#17#17#18#18#17#17#17#17#17
+  +#17#17#17#17#17#17#14#15#14#13#12#13#13#12#12#13#12#13#13#13#13#16#17#16'  !'
+  +'!  !""#""""!   '#21#21#20#14#14#13#9#9#8#9#8#8#9#8#8#8#8#8#8#8#8#8#8#8#8#8#8
+  +#8#8#7#11#11#12#18#18#18#22#22#22#22#22#22#22#22#22#23#23#23#23#23#23#24#24
+  +#24#24#24#24#23#23#23#16#16#16#8#8#8#8#8#8#8#8#8#7#8#8#7#8#7#7#8#8#7#7#7#7#8
+  +#7#7#7#7#7#7#7#7#7#7#6#6#7#7#7#6#15#15#16#25#25#25#25#25#25#26#26#26#27#27#27
+  +#28#28#28#28#27#28#27#26#26#12#12#11#4#4#3#3#3#4#3#4#3#3#3#3#2#3#3#2#3#3#3#3
+  +#2#3#3#2#3#3#3#2#2#2#3#3#2#3#3#2#3#2#2#2#2#2#2#2#2#2#1#2#1#1#2#1#2#2#2#1#1#2
+  +#1#2#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#0#1#1#1#1#0#0#0#1#0#1#1#0#1#0
+  +#0#0#1#0#0#0#1#0#1#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'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000222999>>>>>>>>>>>>>>>>'
+  +'>>>>>???;;;///////////////9999999999999999999999999999999999999989989989889'
+  +'88887111111111111111111:999999999999999999999999999999999999989989889889889'
+  +'88888888888888888888888888888888888887887888:::::::::::::::9997667666666666'
+  +'66666666666666555/////////000111666EEEGGGKKKNNNPPPCCC777888:::;;;===>>>@@@B'
+  +'BBDDDGGGHHHKKKMMMPOPRSSUTUWWW[ZZ^_^aa`eddhhhkkkooorssvww{{{'#130#130#130
+  +#135#135#136#140#140#139#144#144#144#149#149#150#154#154#154#159#159#159#164
+  +#165#165#170#170#170#176#176#176#169#169#169'GGGCCCEEEGGGJJJKKKMMMNNNNNNNNNL'
+  +'LLLLLLLLLLLJJJJJJJJJIIIGGGDDD@@@===9993330-#$6w'#22'I'#255#22'G'#255#21'G'
+  +#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'C'#255#16'B'#255#16'A'#255#15
+  +'@'#255#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255#10'='#255#9'<'#255
+  +#9';'#255#8';'#255#7':'#255#6'9'#255#2'8'#255'#<'#160'EB6@@@>>>===:::8886665'
+  +'55444333333222222000000000//////...---,,,***(((%%%###!!!'#31#30#28#26#28'%'
+  +#16#31'f'#6'#'#185#0'&'#234#0''''#240#0'%'#230#0'$'#226#0'$'#226#0'$'#225#0
+  +'#'#223#0'#'#222#0'"'#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31#216#0#31
+  +#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208#0#26#206
+  +#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22#198#0#22
+  +#198#0#22#197#0#21#198#1#20#180#8#14'G'#9#14'<'#9#14'='#8#14'E'#7#14'Q'#5#14
+  +'e'#4#14'y'#2#15#147#0#16#181#0#15#185#0#15#183#0#14#182#0#14#181#0#13#180#0
+  +#12#179#0#11#183#19#23'T#"'#25'"""'#31#31#31#26#26#26#21#21#21#14#14#14#9#9#9
+  ,#8#8#8#7#7#7#7#7#7#5#5#5#4#4#4#3#3#3#14#13#13#159#159#159#170#170#170#164#163
+  +#164#158#158#158#152#151#151#146#146#146#141#141#141#136#135#135#131#130#130
+  +'~~}yyxtttoookkkfffabb^]]YYZUUUNNNJJJFEFBAB???<<<999888@AA???===:::6660/0***'
+  +'%%&   '#30#29#30#28#27#28#26#27#27#24#24#24#24#24#24#23#23#23#22#22#21#20#20
+  +#20#19#19#20#18#18#18#22#22#22#23#22#23#22#22#21#22#21#21#22#21#21#22#21#21
+  +#21#20#21#20#20#20#20#21#20#20#20#20#19#20#19#20#19#20#19#20#19#20#20#19#20
+  +#19#19#19#19#19#19#18#19#19#18#18#19#19#19#19#18#18#19#18#18#18#18#18#18#18
+  +#17#18#18#18#17#18#17#17#18#17#18#17#18#17#17#17#17#17#17#15#14#15#12#12#13
+  +#13#13#13#12#12#12#12#12#12#13#13#13#31#31#31#31'  ! !!  '#31' '#31#29#30#30
+  +#28#29#28#27#27#27#23#24#23#16#16#15#9#9#8#8#9#9#8#8#8#8#8#8#9#9#9#15#16#15
+  +#22#22#22#22#23#23#22#23#22#24#24#23#23#23#23#24#24#24#24#24#24#25#25#25#20
+  +#20#20#9#10#10#8#8#8#8#9#8#8#8#7#7#8#8#8#8#8#8#8#8#7#8#8#8#7#8#7#7#7#7#7#8#7
+  +#7#7#6#7#7#7#7#7#6#7#7#6#6#7#13#12#13#24#25#24#25#25#25#26#26#26#27#27#27#27
+  +#27#27#28#27#28#28#29#29#12#12#13#3#4#3#4#4#3#3#3#3#3#3#3#3#2#3#2#3#3#2#3#3#3
+  +#3#3#3#2#3#3#2#2#2#2#2#2#2#3#2#2#2#2#2#2#1#2#2#1#2#2#2#1#2#1#2#1#2#2#2#1#1#2
+  +#1#1#2#1#1#1#2#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#1#0#1#1#1#1#1#1#0#1#0#1#0#0#1#0
+  +#0#0#0#1#1#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'000yyy00000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000111666;;;<<<<<<======>>><<'
+  +'<///////////////87799999999999999999999999999999999999999899898898898811111'
+  +'1111111111111888:9999999999999999999999999999999999999899898898898898888888'
+  +'8888888888888888888888888888887887::::::::::::::::::77776666666666666666666'
+  +'6666666101//////000111222???GGGIIILLLOOOPPP<<<888:::;;;===>>>@@@BBBDDDGGGII'
+  +'IKKKMNNPPPRSSVUVXXX[[[_^_abafeeihhlllppptttxxx|||'#128#128''#133#132#133
+  +#137#137#137#141#142#142#146#146#146#151#151#151#156#156#156#160#160#160#166
+  +#166#166#171#171#171#177#177#177#149#149#149'AAADDDGGGJJJKKKMMMMMMNNNOOONNNN'
+  +'NNLLLLLLLLLLLLKKKJJJIIIGGGDDDAAA<<<7773330,!!<'#156#22'K'#255#23'H'#255#22
+  +'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'C'#255#16'B'#255
+  +#16'A'#255#15'@'#255#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255#10'='
+  +#255#9'<'#255#9';'#255#8';'#255#7':'#255#3'9'#255#23'8'#190';95;;:;;;:::9998'
+  +'88666666555333333333222222000000000//////...---+++)))''''''%%%"""   '#30#29
+  +#27#29#27#15#26#26#25#18#29'P'#8'"'#163#0'&'#226#0'&'#239#0'$'#230#0'$'#226#0
+  +'$'#224#0'#'#223#0'#'#222#0'"'#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31
+  +#216#0#31#215#0#30#214#0#30#213#0#29#212#0#29#211#0#28#210#0#28#209#0#27#208
+  +#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#201#0#23#199#0#22
+  +#198#0#22#197#0#22#207#5#18'x'#14#12#0#13#12#3#12#12#4#13#12#3#12#11#1#12#11
+  +#0#11#10#4#10#10#9#3#14#132#0#16#193#0#15#184#0#15#183#0#14#182#0#14#181#0#13
+  +#180#0#12#188#9#16'x'#30#30#23'  '#31#30#30#30#26#26#26#21#21#21#15#15#15#10
+  +#10#10#9#9#9#7#7#7#7#7#7#6#6#6#5#5#5#5#5#5#4#4#4#129#129#129#171#171#171#165
+  +#164#164#160#159#159#154#153#153#148#148#148#143#143#142#138#137#137#132#132
+  +#132'zzzuttpqplllgggccb___[ZZWWXRRRKKKGGFCCC@@@<<<999777666<==776../(((%&'
+  +'&#$$""#   '#31#31#31#28#27#27#26#27#26#24#24#25#24#24#24#23#23#23#22#21#22
+  +#21#21#21#19#19#19#20#20#20#24#23#23#24#23#23#22#21#21#22#21#21#22#21#21#22
+  +#20#21#21#21#21#21#21#20#20#20#20#20#20#21#20#20#20#20#20#20#20#19#20#19#19
+  +#19#19#20#19#19#19#19#19#19#19#19#19#19#19#18#18#18#19#18#18#18#18#18#18#18
+  +#18#18#18#18#18#18#18#18#17#18#18#18#17#17#18#17#17#17#17#17#17#16#16#16#13
+  +#12#13#13#13#13#12#13#12#12#12#13#13#13#14#26#26#26#30#30#30#30#29#30#29#30
+  +#29#30#30#29#28#28#28#28#28#28#27#27#27#27#27#27#27#27#26#25#24#25#17#17#17#9
+  +#9#9#13#13#13#22#22#22#23#23#23#23#23#22#23#23#23#23#23#23#24#24#24#24#24#24
+  +#25#25#25#23#23#23#13#13#14#8#9#9#9#9#9#8#8#8#8#8#8#8#8#9#8#8#8#8#8#8#7#8#8#7
+  +#8#8#10#9#10#8#8#8#7#7#7#7#7#7#7#7#7#7#7#7#6#6#7#6#7#6#7#6#7#11#10#11#22#22
+  +#23#25#26#25#26#26#26#28#28#28#28#28#28#29#29#29#29#28#28#13#13#13#3#3#4#3#4
+  +#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#3#3#2#2#2#3#3#2#3#2#3#3#2#2#2#2#2#2#2#2#2#2
+  +#2#2#1#2#2#1#1#2#2#2#2#1#1#2#1#2#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1
+  +#1#0#0#1#1#1#1#1#0#1#0#0#0#1#1#0#0#0#0#1#0#0#0#0#0#0#0#1#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'000yyy0000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000444;;;<<<======>>>///////////////7779999999999999999999999999999'
+  +'99999999998998998988988322111111111111111777:99:999999999999999999999999999'
+  +'99999999998998988988988988888888888888888888888888888888888887999::::::::::'
+  +':::::888766766666666666666666666666444//////000000222555FFFGGGKKKMMMPPPMMM;'
+  +';;:::;;;===???AAABBBDDDGGGIIIKKKNNNPPPSSSVVUYYY\\[___cbcfefiiilllppptttyyy|'
+  +'}}'#128#128#129#132#133#132#137#137#137#142#142#142#147#147#147#152#152#152
+  +#156#157#157#161#161#161#167#167#167#173#173#173#178#178#178#128#128#128'DDD'
+  ,'FFFIIIKKKMMMNNNOOONNNOOOOOONNNNNNLLLLLLLLLLLLJJJIIIHHHEEEAAA<<<777321.-& >'
+  +#173#23'K'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19
+  +'E'#255#18'D'#255#17'C'#255#16'B'#255#16'A'#255#15'@'#255#14'@'#255#14'@'#255
+  +#13'?'#255#12'>'#255#11'>'#255#10'='#255#9'<'#255#9';'#255#8';'#255#5':'#255
+  +#19'8'#200'766775777888777777777666555444333333333222222000000000//////---,,'
+  +',+++)))&&&$$$!!!   '#30#30#31#28#27#25#28#26#16#26#25#18#19#26'='#9#31#142#2
+  +'$'#214#0'%'#238#0'$'#232#0'$'#225#0'#'#223#0'#'#222#0'"'#221#0'"'#220#0'!'
+  +#219#0'!'#218#0#31#217#0#31#216#0#31#215#0#30#213#0#30#215#0#30#220#0#29#213
+  +#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24
+  +#202#0#24#201#0#23#199#0#22#200#0#22#196#10#15'3'#14#13#6#13#13#13#13#13#13
+  +#12#12#12#12#12#12#12#11#11#11#11#10#11#10#0#5#13'f'#0#17#198#0#16#185#0#15
+  +#184#0#15#183#0#14#182#0#14#181#0#13#184#2#13#156#22#22#28#28#28#25#28#28#28
+  +#25#25#25#22#22#22#16#16#16#10#10#10#9#9#9#8#8#8#7#7#7#6#6#6#6#6#6#5#5#5#4#4
+  +#4'aaa'#173#173#172#167#166#167#161#160#160#155#154#154#149#149#149#144#144
+  +#144#138#138#138#133#133#133#128#128#128'zzzuvuqrrmmmihhddd___[\\WXWSSSPPPHH'
+  +'HDDD@@@===999777444111.--++,*))''''''$%%"##   '#31#31#31#29#29#29#26#27#26
+  +#25#25#25#25#24#24#23#23#23#22#22#22#22#22#22#21#20#20#22#22#22#24#23#22#23
+  +#23#23#23#22#21#23#21#21#22#21#22#22#21#21#21#21#21#21#21#21#20#20#20#20#20
+  +#20#21#20#21#19#20#20#20#20#20#20#20#20#19#20#19#19#19#19#19#19#20#19#19#19
+  +#19#18#18#18#18#19#19#19#18#19#19#18#18#18#18#18#18#18#18#18#18#18#18#18#18
+  +#17#18#18#17#18#17#17#18#17#17#17#13#13#13#12#12#13#12#13#13#13#13#12#12#12
+  +#13#18#18#18#28#28#28#30#29#30#29#29#28#29#29#29#28#29#28#28#28#28#27#27#27
+  +#27#27#27#27#26#27#25#26#26#26#25#26#24#25#24#24#24#25#25#24#25#24#24#24#24
+  +#23#24#23#24#24#24#25#24#24#24#25#25#25#25#18#18#18#10#10#10#9#9#9#8#8#8#9#8
+  +#9#8#8#8#8#8#9#8#8#9#8#8#8#8#8#8#9#9#8#10#10#10#10#10#10#9#9#9#9#9#9#7#7#8#7
+  +#7#7#7#7#7#7#6#7#7#6#7#7#6#7#6#7#7#8#9#9#21#21#21#25#26#25#27#27#27#28#28#28
+  +#28#29#29#29#28#29#30#30#30#13#14#13#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3
+  +#2#3#3#2#3#2#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#1#1#2#2#2#2#1#1#2
+  +#1#2#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#1#1#0#1#1#1#0#0#1#1#1
+  +#0#0#0#1#1#1#1#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000'
+  +'yyy000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000999:::;;;===>>>000///'
+  +'/////////444999999999999999999999999999999999999999998998988988444111111111'
+  +'111111555:99:99:99999999999999999999999999999999999998998988988988988888888'
+  +'888888888888888888888888888888;::::::::::::::999766766666666666666666666666'
+  +'666101///000000222222=<=FFFHHHKKKMMMOOOIII:::<<<===???AAABBBEEEGGGIIIKKKNNN'
+  +'QQQSSSWWWZZZ\\[_``cccggfjkkmmmqqquvuyyy}}}'#130#130#130#134#134#134#138#138
+  +#138#143#143#143#147#148#147#152#152#153#157#157#157#163#163#163#168#168#168
+  +#173#173#173#178#178#178'lllEEEHHHJJJMMMNNNOOOPPPPPPOOOOOOOOONNNNNNLLLLLLLLL'
+  +'KKKJJJHHHEEEAAA===888321.-& ?'#175#24'L'#255#24'I'#255#23'I'#255#23'H'#255
+  +#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'C'#255#16'B'
+  +#255#16'A'#255#15'@'#255#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255#10
+  +'='#255#9'<'#255#9';'#255#6':'#255#20'8'#199'6546646667777777777777776665554'
+  +'44333333333222222000000000///...---,,,***)))''''''$$$"""   '#30#30#30#28#28
+  +#29#27#27#26#26#25#18#25#23#13#20#24','#11#29'v'#3'"'#198#0'%'#232#0'$'#226#0
+  +'#'#223#0'#'#222#0'"'#221#0'"'#220#0'!'#219#0'!'#218#0#31#217#0#31#217#0#31
+  +#226#0#30#210#4#27#167#0#29#210#0#29#215#0#28#210#0#28#209#0#27#208#0#26#206
+  +#0#26#206#0#26#205#0#25#203#0#25#203#0#24#202#0#24#200#0#24#208#3#20#153#14
+  +#14#11#14#14#13#14#14#14#14#14#14#14#14#14#12#12#12#12#12#12#12#12#12#11#10#2
+  +#6#12'I'#0#17#192#0#16#186#0#16#185#0#15#184#0#15#183#0#14#182#0#14#183#0#13
+  +#177#13#15'/'#21#21#15#24#24#24#23#23#23#21#21#21#16#16#16#11#11#11#9#9#9#9#9
+  +#9#8#8#8#7#7#7#6#6#6#6#6#6#4#4#4'AAA'#173#173#172#168#167#167#161#161#161#156
+  +#156#156#150#150#150#145#144#144#139#139#139#134#134#134#129#128#128'}||xxwr'
+  +'rrmmmiijeee```\]]XXXTTUQQQMLLFFFAAA>>>;:;777444111--.,,-)))''''''%%%"""!"!'
+  +#31#31' '#29#29#29#27#28#28#25#25#25#24#24#24#23#23#23#22#22#22#22#22#22#22
+  +#22#22#24#24#25#24#23#23#24#23#23#23#22#21#23#22#21#22#22#22#22#22#21#22#21
+  +#21#21#21#21#21#20#21#21#21#20#20#20#20#20#20#20#20#20#20#20#19#20#20#19#19
+  +#19#20#20#20#19#19#19#19#19#19#19#19#19#19#18#18#19#18#18#18#18#19#18#18#18
+  +#18#18#18#18#18#18#17#18#17#18#17#17#17#17#17#17#17#17#17#18#14#14#14#13#13
+  +#13#12#12#13#13#13#13#13#12#13#12#13#12#12#12#12#16#15#15#22#22#22#28#27#28
+  +#28#28#29#28#29#28#28#28#28#27#27#27#27#27#27#27#27#27#26#26#25#26#25#25#26
+  +#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#26#26#22#21#22#12#13#13#10#9#9
+  +#9#9#9#9#9#9#9#9#9#9#9#8#9#9#8#9#8#8#8#9#8#9#8#9#10#10#10#10#10#10#10#10#10
+  +#10#10#10#10#9#9#10#9#10#9#9#9#8#7#9#7#7#7#7#7#7#7#7#7#6#6#7#7#6#6#6#6#7#8#9
+  ,#9#20#21#20#26#26#27#27#27#27#28#28#28#29#29#28#30#30#30#30#29#30#13#13#13#3
+  +#4#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#3#2#2#2#2#2#3#2#2#2#2#2#2
+  +#2#2#2#2#2#2#1#2#2#2#2#1#2#1#2#2#2#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#0#1#1#1#0#0#1#1#0#0#1#1#0#1#1#1#0#0#0#0#0#0#0#0#1#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy00000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000666999:::<<<===222////////////333:9999999999999999999999999999999'
+  +'9999999998998988988555111111111111111333:99:99:99:9999999999999999999999999'
+  +'9999999999998998988988988988888888888888888888888888888888888:::;::::::::::'
+  +'::::777766666666666666666666666666544///000000111222333BBBGGGIIIKKKNNNOOOHH'
+  +'H<<<>>>???BBBCCCEEEGGGJJJLLLOOOQQQTTTWWWYZZ]]]a`acccgggjkjnonqqqvvvzzz~~~'
+  +#130#130#130#135#135#135#139#140#140#144#144#144#149#148#149#154#154#154#159
+  +#159#159#164#164#164#169#169#169#174#174#174#178#178#178'ZZZGGGIIILLLMMMOOOP'
+  +'PPQQQQQQPPPOOOOOOOOONNNNNNLLLLLLLLLKKKHHHEEEBBB>>>888333/,#">'#163#24'M'#255
+  +#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'
+  +#255#19'E'#255#18'D'#255#17'C'#255#16'B'#255#16'A'#255#15'@'#255#14'@'#255#14
+  +'@'#255#13'?'#255#12'>'#255#11'>'#255#10'='#255#9'<'#255#7'<'#255#21'8'#193
+  +'330543666666777777777666666555555444333333333222222000000000///...---,,,***'
+  +')))''''''%%%###!!!'#31#31#31#28#28#28#27#27#27#25#25#25#24#23#18#23#21#9#20
+  +#21#27#12#27'p'#1'$'#225#0'$'#226#0'#'#223#0'#'#222#0'"'#221#0'"'#220#0'!'
+  +#219#0'!'#226#0' '#223#6#28#157#14#21';'#18#18#12#11#22'['#0#29#212#0#29#216
+  +#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26#205#0#25#203#0#25#203#0#24
+  +#202#0#24#209#10#17'U'#16#14#4#15#15#15#15#15#15#15#15#15#15#15#15#14#14#14
+  +#13#13#13#12#12#12#12#11#6#9#12'+'#0#17#185#0#17#189#0#16#186#0#16#185#0#15
+  +#184#0#15#183#0#14#182#0#13#188#8#13'S'#16#15#5#18#18#18#19#19#19#19#19#19#16
+  +#16#16#12#12#12#10#10#10#9#9#9#9#9#9#8#8#8#6#6#6#6#6#6#5#5#5'$$$'#172#171#171
+  +#168#168#168#163#162#162#157#157#157#152#151#151#147#146#146#140#140#140#135
+  +#134#135#131#130#130'}}}xxxsssnnokjjeeeaaa]]]YYYTUTRRRMMMJJJDDD?>?;::7775552'
+  +'22///,--++*(((%%%###""!'#31#31#31#29#29#29#30#29#30#29#28#29#27#27#28#27#27
+  +#28#27#27#27#28#28#27#27#27#26#25#25#25#24#24#23#24#23#23#23#22#22#23#22#22
+  +#23#22#21#22#21#21#22#21#21#21#21#21#21#21#21#20#20#20#20#20#20#20#20#20#20
+  +#20#20#20#20#20#20#20#20#20#20#19#19#20#20#19#19#19#19#19#20#19#19#19#19#19
+  +#19#19#18#19#18#18#19#18#18#18#18#19#18#18#18#18#18#18#17#18#18#17#17#18#17
+  +#18#17#18#14#14#15#13#13#13#12#13#13#13#13#13#13#12#13#12#12#12#12#13#13#12
+  +#12#13#12#12#12#11#12#12#17#18#18#25#25#25#28#29#28#28#28#28#27#27#27#27#27
+  +#27#27#27#27#26#27#27#25#26#26#26#26#25#26#26#26#26#26#26#25#25#25#18#17#18
+  +#10#9#9#9#9#9#10#10#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#8#8#8#9#9#9#11#11#10#10
+  +#10#10#10#10#10#10#10#10#10#10#10#10#9#10#10#10#10#10#9#10#9#9#9#9#8#8#7#7#7
+  +#7#7#7#6#7#7#7#7#6#6#7#6#6#6#7#7#7#8#18#18#18#26#26#27#27#27#27#28#28#28#29
+  +#28#29#29#30#29#29#30#29#13#14#13#3#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2
+  +#3#3#3#3#2#2#2#2#2#2#2#3#2#2#2#2#2#2#2#2#2#1#1#2#2#1#1#1#2#1#2#2#1#1#2#1#1#1
+  +#1#2#1#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#0#1#1#1#1#1#0#0#1#0#0
+  +#1#0#0#0#0#1#1#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000444888999;;;===656////////////111:999'
+  +'99999999999999999999999999999999999998998998988776111111111111111111::9:99:'
+  +'99:99:999999999999999999999999999999999999989989889889889888888888888888888'
+  +'88888888888888999;::;:::::::::::9987667666666666666666666666666662220000001'
+  +'11111333555EEEHHHJJJLLLMMMNNNGGG>>>???BBBCCCFFFGGGJJJLLLOOORRRUUUWWW[[[^^^a'
+  +'aadddhhhkkkoopsrswvv{{|'#131#131#131#135#135#135#140#140#140#145#145#145
+  +#149#150#150#154#154#154#159#159#159#165#165#165#170#170#170#176#176#176#171
+  +#171#171'LLLIIIKKKMMMOOOPPPPPPRRRRRRQQQPPPOOOOOOOOONNNNNNMMMLLLKKKIIIFFFBBB>'
+  +'>>:::4441-"%9'#132#26'M'#255#25'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'
+  +#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'C'#255#16
+  +'B'#255#16'A'#255#15'@'#255#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255
+  +#10'='#255#7'='#255#26'7'#165'41&4335556667777777776666666665555554443333333'
+  +'33222222000000000///...---,,,+++)))(((%%%$$$"""'#31#31#31#28#28#28#27#27#27
+  +#24#24#24#23#23#22#22#20#11#18#22'.'#1'$'#220#0'$'#228#0'$'#225#0'#'#223#0'#'
+  +#222#0'"'#224#0'"'#231#4#31#183#13#23'P'#20#19#14#20#19#10#19#18#16#19#18#6
+  +#12#21'U'#1#29#211#0#29#217#0#28#210#0#28#209#0#27#208#0#26#206#0#26#206#0#26
+  +#205#0#25#203#0#25#207#2#23#183#15#16#28#16#16#12#16#16#16#17#17#17#17#17#17
+  +#17#17#17#16#16#16#14#14#14#13#13#13#12#12#10#11#12#19#1#17#168#0#17#192#0#17
+  +#187#0#16#186#0#16#185#0#15#184#0#15#183#0#14#192#5#14'r'#14#14#6#14#13#13#14
+  +#14#14#15#15#15#14#14#14#12#12#12#11#11#11#9#9#9#9#9#9#8#8#8#7#7#7#6#6#6#5#5
+  ,#5#13#13#13#160#159#159#170#170#170#164#164#164#158#158#158#152#151#151#147
+  +#146#146#141#141#141#136#136#136#131#131#131'}}}yyytttpppjkjfffbbc^^^ZZZUUVR'
+  +'RRONNKKKGGGAAA<<<889565222///---+**()(%%&%%%$$$%$%###"""   '#30#30#30#29#29
+  +#29#28#28#28#28#28#27#27#27#26#25#25#25#24#23#24#24#23#23#23#22#22#23#22#22
+  +#23#22#22#23#21#21#22#22#22#22#22#21#21#21#20#21#20#21#20#21#20#21#20#21#20
+  +#20#20#20#20#20#20#20#20#20#19#20#20#20#19#20#19#19#19#19#19#19#20#19#19#19
+  +#19#19#19#18#19#19#19#18#18#18#19#18#19#18#19#18#18#18#18#18#18#18#17#18#17
+  +#18#18#17#15#16#16#14#13#14#13#13#13#13#13#13#12#13#12#13#12#13#12#12#12#12
+  +#12#12#12#12#12#12#12#12#12#12#12#11#12#12#15#15#14#23#23#22#28#28#28#27#28
+  +#28#27#27#27#27#27#26#26#26#26#26#27#26#26#26#27#22#21#22#11#12#11#10#9#10#9
+  +#10#10#9#9#10#10#9#10#9#9#10#10#9#9#9#9#9#9#9#9#9#10#10#11#11#11#11#11#11#11
+  +#11#10#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#10
+  +#9#9#9#8#8#8#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#7#6#6#8#7#8#18#18#18#26#26#26#27
+  +#27#27#28#28#28#28#28#29#29#30#30#29#30#30#13#14#13#3#4#3#3#3#4#3#3#3#3#3#3#3
+  +#2#3#3#3#3#3#3#2#2#2#3#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#1#2#1#2
+  +#2#1#2#2#1#2#1#1#2#1#2#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#0#0#0#1#1#1
+  +#1#1#0#1#1#1#0#0#0#0#0#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy0'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000333777999:::<<<888///////'
+  +'////////:999999999999999999999999999999999999999999989989889881111111111111'
+  +'11111887::9:99:99:99:999999999999999999999999999999999999989989889889889888'
+  +'88888888888888888888888888888;;:;::;:::::::::::7777666666666666666666666666'
+  +'66655111000111111222333999FFFIIIJJJLLLMMMNNNLLL@@@BBBDDDFFFHHHKKKMMMOOOSSSU'
+  +'UUWWW[[[___aaaeeehhhlllpopsttwxx{{|'#128#128#128#132#132#132#137#137#137#141
+  +#141#140#146#145#146#150#150#150#155#155#155#161#161#161#166#166#165#171#171
+  +#171#176#176#176#157#157#157'JJJJJJLLLNNNPPPQQQRRRRRRRRRRRRQQQPPPOOOOOOOOONN'
+  +'NNNNLLLKKKJJJGGGCCC???;;;55510**3V'#27'L'#253#26'L'#255#26'K'#255#25'J'#255
+  +#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'
+  +#255#18'D'#255#17'C'#255#16'B'#255#16'A'#255#15'@'#255#14'@'#255#14'@'#255#13
+  +'?'#255#12'>'#255#11'='#255#9'='#255'"3s2/%333555666777777888888666666666555'
+  +'555444333333333222222000000000///...---,,,+++***(((&&&$$$"""'#31#31#31#29#29
+  +#29#26#26#26#24#24#24#22#21#14#15#24'D'#0'%'#226#0'$'#229#0'$'#226#0'#'#224#0
+  +'#'#228#0'"'#220#11#28'z'#21#22#28#22#20#10#21#21#19#20#20#20#20#20#20#19#19
+  +#19#19#18#7#13#21'E'#1#29#204#0#29#218#0#28#210#0#28#209#0#27#208#0#26#206#0
+  +#26#206#0#26#204#0#26#214#7#21'{'#18#16#7#18#17#17#18#18#18#18#18#18#18#18#18
+  +#18#18#18#17#17#17#16#16#16#15#15#15#13#13#11#12#12#11#3#16#140#0#18#197#0#17
+  +#188#0#17#187#0#16#186#0#16#185#0#15#184#0#15#189#3#14#144#14#14#16#14#14#12
+  +#14#14#14#13#13#13#13#13#13#13#13#13#12#12#12#10#10#10#9#9#9#9#9#9#8#8#8#6#6
+  +#6#5#5#5#7#7#7#136#136#136#170#170#170#165#165#165#159#159#159#154#153#153
+  +#148#147#147#142#142#142#137#137#137#132#131#132'yyyuuuoppkkkfffbbb___ZZZ'
+  +'WWWRRROPPKKKHHGDDD>>>999666344000....-.---+++)))''''''&&%#$#"""   '#31#31#31
+  +#30#30#29#28#28#28#28#28#28#27#27#26#25#25#25#24#24#23#25#23#24#23#22#22#23
+  +#22#22#23#22#22#23#21#21#22#22#22#22#21#21#21#21#21#21#21#21#21#21#21#20#21
+  +#21#20#20#20#21#20#20#20#20#20#19#20#20#20#20#20#19#19#19#20#19#20#19#20#19
+  +#20#19#19#19#19#19#19#18#19#19#19#18#19#18#18#18#18#18#19#18#18#18#18#18#17
+  +#18#18#18#17#18#17#17#17#13#13#15#13#13#13#13#13#14#12#13#13#13#13#13#13#12
+  +#13#12#12#12#13#12#12#12#13#12#12#12#12#12#11#12#11#11#11#12#11#11#14#14#13
+  +#22#23#23#28#28#28#28#28#28#28#28#28#25#26#26#15#15#14#10#10#10#10#10#11#10
+  +#10#10#10#10#10#10#10#10#10#9#9#9#9#9#9#10#10#9#9#9#11#11#12#12#12#12#12#12
+  +#12#12#11#11#11#11#11#11#10#11#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10
+  +#10#9#9#9#10#9#9#9#9#9#9#10#8#8#8#8#7#7#7#6#7#7#6#7#7#7#7#7#7#6#6#6#7#8#8#7
+  +#18#18#19#26#26#27#27#27#27#28#28#28#29#29#29#29#29#30#31#30#31#15#15#15#4#3
+  +#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#2#2#2#3#2#2#3#3#3#3#2#2#2#2#2#2
+  +#2#2#2#2#2#2#1#1#2#2#2#1#2#2#2#2#1#1#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#0#1#1#1#0#1#0#0#0#1#0#1#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0'000yyy0000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000222777888:'
+  +'::<<<;;;...////////////777:999999999999999999999999999999999999999989989989'
+  +'88333111111111111111655::9::9:99:99:99:999999999999999999999999999999999999'
+  +'98998988988988988888888888888888888888888888::9;;:;::;::::::::9997666666666'
+  +'66666666666666666666555000111111222222555;;;GGGIIIKKKLLLNNNNNNMMMDDDDDDGGGH'
+  +'HHKKKMMMPPPSSSUUUXXX[[[^__bbbfffhhhmlmppptttxxx|||'#128#128#128#133#133#133
+  +#137#137#137#142#142#142#146#146#146#151#151#151#156#156#156#162#161#162#166
+  +#166#167#171#171#171#177#177#177#143#143#143'JJJLLLNNNOOOQQQRRRSSSRRRRRRRRRR'
+  ,'RRQQQPPPOOOOOOOOONNNNNNLLLKKKHHHEEE@@@;;;777220..0'#31'F'#212#27'N'#255#26
+  +'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255
+  +#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'C'#255#16'B'#255#16'A'#255#15'@'
+  +#255#14'@'#255#14'@'#255#13'?'#255#11'?'#255#14'<'#235'+.;0/+222555777777888'
+  +'888888888666666666555555444333333333222222000000000///...---,,,,,,***((('''
+  +'''''$$$!!!'#30#30#30#28#28#28#25#25#25#24#22#13#15#27'T'#0'&'#231#0'%'#229#0
+  +'$'#226#0'$'#229#2'"'#205#17#26'I'#24#22#11#24#23#20#23#23#24#23#23#23#22#22
+  +#22#21#21#21#21#21#21#20#20#19#20#18#7#13#21'C'#2#28#199#0#29#219#0#28#210#0
+  +#28#210#0#27#210#0#26#211#0#26#217#0#26#211#14#19'7'#19#18#10#19#19#19#20#20
+  +#20#20#20#20#19#19#19#19#19#19#18#18#18#17#17#17#16#16#16#14#14#14#13#12#3#5
+  +#15'o'#0#19#202#0#17#189#0#17#188#0#17#187#0#16#186#0#16#185#0#15#187#1#15
+  +#171#13#13#25#14#14#10#14#14#14#14#14#14#13#13#13#13#13#13#12#12#12#11#11#11
+  +#10#10#10#9#9#9#8#8#8#7#7#7#6#6#6#5#5#5'rrr'#171#171#171#165#165#165#160#160
+  +#160#155#154#154#148#148#148#143#143#143#138#138#138#132#132#132#128#128#128
+  +'{zzuuuqqqlllhhhcdd___ZZZXXXSSSPPPKKLHHIDDDBBB=<=887766555444111-.-+++)))((('
+  +'&%&$%$#""   '#31#31#31#30#30#30#28#29#28#28#28#28#27#27#26#26#26#25#24#24#24
+  +#25#24#24#23#23#22#23#22#22#23#22#22#23#22#22#22#22#22#22#21#21#21#22#21#21
+  +#21#21#20#21#21#20#21#21#21#21#21#20#20#20#20#20#20#20#20#20#20#20#19#20#20
+  +#20#20#19#20#19#19#20#19#19#19#19#19#19#19#19#19#19#19#19#18#18#18#18#18#18
+  +#19#18#19#19#18#18#18#18#18#17#18#18#18#17#17#17#18#17#16#16#17#16#16#15#13
+  +#13#14#12#13#13#12#13#12#12#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#11
+  +#12#11#12#12#12#12#12#12#12#11#12#12#12#22#22#22#21#21#21#12#12#11#11#10#11
+  +#10#11#11#10#11#10#10#10#10#10#10#10#10#10#10#9#10#10#10#10#9#10#10#11#13#12
+  +#13#12#12#12#12#12#12#12#12#12#11#11#11#12#11#11#11#11#10#11#10#11#11#10#10
+  +#10#10#10#10#10#10#10#10#10#10#10#10#10#9#9#10#10#10#9#9#10#9#9#9#8#8#9#7#7#7
+  +#7#7#7#6#6#7#6#6#7#7#7#7#7#6#6#7#8#7#18#18#18#26#26#26#28#28#28#29#29#29#29
+  +#30#30#31#31#30' ! '#14#14#14#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#2
+  +#3#2#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#1#1#1#1#2#2#1#1
+  +#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#0#1#0#0#1#0#1#1#1#1#1#1#0#0#1#0#1#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy00000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000666888:::;;;===...////////////555:9999999999999999999999'
+  +'9999999999999999998998998988555111111111111111333::9::9::9:99:99:99:9999999'
+  +'9999999999999999999999999999998998988988988988888888888888888888888888888;;'
+  +';;;:;::;::::::::777766666666666666666666666666777333111111222222444666===HH'
+  +'HJJJKKKMMMNNNOOOPPPKKKGGGIIIKKKNNNPPPSSSVVVXXX\\\___bbbeffiihlmmqpqtttyyy}}'
+  +'}'#129#129#129#133#133#133#137#137#137#143#142#142#147#148#147#152#152#152
+  +#156#157#157#162#161#162#167#167#167#173#173#173#179#179#179#132#132#132'KKK'
+  +'NNNOOOQQQRRRRRRSSSSSSSSSRRRRRRRRRQQQPPPOOOOOOOOONNNMMMKKKIIIFFFBBB===999555'
+  +'1.%'':}'#27'O'#255#27'M'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'
+  +#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17
+  +'C'#255#16'B'#255#16'A'#255#15'@'#255#14'@'#255#13'@'#255#11'@'#255#26'5'#160
+  +'.,#0//222555777888999888888888888666666666555555444333333333222222000000000'
+  +'///...------+++***)))&&&###   '#30#30#30#26#26#26#26#23#12#14#29'g'#0''''
+  +#237#0'&'#229#0'%'#227#0'%'#233#4'"'#188#25#24#21#26#25#22#26#26#26#26#26#26
+  +#26#26#26#25#25#25#24#24#24#22#22#22#22#22#22#21#20#20#20#19#9#15#20'6'#2#28
+  +#191#0#30#226#0#29#220#0#28#206#2#26#186#5#24#153#10#22'l'#19#19#19#19#19#19
+  +#21#21#21#21#21#21#21#21#21#22#22#22#20#20#20#20#20#20#19#19#19#17#17#17#16
+  +#16#16#15#13#3#8#15'Q'#0#19#203#0#19#193#0#17#189#0#17#188#0#17#187#0#16#186
+  +#0#16#187#0#15#182#11#13'1'#14#14#8#14#14#14#14#14#14#14#14#14#13#13#13#13#13
+  +#13#12#12#12#11#11#11#10#10#10#8#8#8#8#8#8#7#7#7#6#6#6'```'#172#172#172#166
+  +#166#166#161#161#161#155#155#155#149#149#149#144#144#144#138#138#138#133#133
+  +#133#128#128#128'{{{vvvrrrmmmhhhded`__[[\XXXSSSPPPMMLIIHFEEBCB???===9::66644'
+  +'4111...---***(((&&&%%%""#!!!'#31#31#31#30#30#30#29#28#28#29#29#28#27#27#26
+  +#26#26#25#25#24#24#25#24#24#23#23#23#24#22#22#23#22#22#23#21#22#23#22#22#22
+  +#22#22#22#21#22#21#22#21#21#21#21#21#21#21#21#21#21#21#21#20#20#20#20#20#21
+  +#20#20#20#20#20#19#20#19#20#20#20#20#19#19#19#19#19#20#19#19#19#19#19#18#19
+  +#18#19#19#18#18#19#19#19#19#19#18#18#18#18#18#18#18#18#18#18#18#17#17#18#18
+  +#17#17#17#17#17#17#16#16#16#16#16#15#14#15#13#13#13#13#12#12#12#13#12#12#12
+  +#13#12#12#12#12#12#12#12#11#12#11#11#12#12#12#12#12#12#12#11#11#11#11#11#11
+  +#11#10#11#10#11#11#10#10#10#10#10#11#10#10#10#11#10#10#10#10#11#10#10#11#12
+  +#11#12#13#12#12#13#13#13#13#13#12#12#13#12#13#12#12#12#11#11#12#11#11#11#11
+  +#11#11#11#11#10#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#9#9#9
+  +#10#10#9#9#9#10#10#8#8#9#7#7#7#7#7#7#7#7#7#7#6#6#6#6#7#6#7#6#7#8#7#18#18#18
+  ,#26#26#26#28#28#28#29#29#29#30#30#30'"""##$'#10#10#9#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#2#3#3#2#2#3#3#3#3#2#3#2#2#3#2#2#3#3#2#2#2#2#2#2#2#2#2#1#2#2#2#2#2#2#1
+  +#2#2#2#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#0#1#1#1#0#0
+  +#1#0#1#1#0#1#1#0#1#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0'000yyy00000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000555777999;;;===222////////////333:9999'
+  +'9999999999999999999999999999999999999998998988776111111111111111111999::9::'
+  +'9::9:99:99:99:9999999999999999999999999999999999999899898898898898888888888'
+  +'8888888888888888:::;;;;;:;::;:::::99976666666666666666666666666677777732311'
+  +'1222222444555777>>>JJJKKKMMMNNNOOOPPPRRRRRRMMMKKKNNNPPPSSSVVVYYY\\\___cccff'
+  +'fjjjlmmqqptuuyyy}}}'#129#130#129#133#133#133#137#138#138#143#142#142#148#147
+  +#148#152#152#152#156#157#157#163#163#163#169#169#169#175#175#175#180#180#180
+  +'{{{MMMOOOQQQRRRSSSTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOOOOMMMLLLJJJGGGDDD@@@'
+  +';;;666320./2 G'#211#27'O'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'
+  +#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18
+  +'D'#255#17'C'#255#16'B'#255#16'A'#255#15'@'#255#13'A'#255#16'='#233'(,=.,''0'
+  +'113335557779999999999998888888886666666665555554443333333332222221111111111'
+  +'11000///...,,,***(((%%%"""'#31#31#31#29#29#29#28#25#12#12#31'}'#0'('#244#0
+  +'&'#230#0'&'#229#0'%'#230#0'$'#221#22#28';'#29#28#22#29#29#29#29#29#29#29#29
+  +#29#28#28#28#27#27#27#25#25#25#25#25#25#23#23#23#21#21#22#21#20#10#15#21'8'#7
+  +#26#146#11#23'h'#15#20'7'#18#19#26#19#18#16#20#19#12#21#20#20#22#22#22#22#22
+  +#22#22#22#22#23#23#23#23#23#23#23#23#23#21#21#21#20#20#20#19#19#19#17#17#17
+  +#15#15#10#12#15')'#2#18#162#0#19#195#0#19#200#0#18#192#0#17#188#0#17#187#0#16
+  +#190#0#15#195#9#14'F'#14#14#5#14#14#14#14#14#14#14#14#14#14#14#14#13#13#13#12
+  +#12#12#12#12#12#10#10#10#9#9#9#8#8#8#7#7#7#7#7#7'OOO'#173#173#173#167#167#167
+  +#162#161#161#156#155#155#150#149#149#144#144#144#139#138#139#133#133#133#128
+  +#128#128'|{{wwwrrrmmmiiieee```\\]XXXTTTPPPMMMIJJEFFBBB???===:::666544121...-'
+  +'-,+*+)((&&&%%%###!"!'#31#31#31#30#29#30#28#29#28#28#29#28#27#27#27#26#26#25
+  +#25#24#24#25#24#24#23#23#22#24#23#22#23#22#22#23#22#22#23#22#22#22#22#22#22
+  +#21#21#21#22#22#21#21#21#21#21#21#21#20#21#21#21#21#20#20#20#20#20#20#20#20
+  +#20#20#20#20#20#20#20#19#19#20#19#19#19#20#20#20#19#19#19#19#19#19#19#19#19
+  +#19#19#18#19#19#18#18#18#18#19#18#18#18#18#18#18#18#18#18#18#18#18#17#18#18
+  +#17#17#18#17#17#17#17#16#17#16#16#17#16#15#15#14#15#14#13#13#13#12#13#13#12
+  +#12#12#12#12#12#12#11#12#12#12#11#12#12#12#12#11#11#11#12#11#12#11#11#11#11
+  +#11#11#11#11#11#11#11#10#10#11#10#11#11#10#10#11#11#12#13#13#13#13#13#13#13
+  +#12#13#13#13#13#12#13#12#12#12#12#12#12#12#12#12#12#11#11#11#12#11#11#11#11
+  +#11#10#11#11#10#10#10#10#11#10#11#10#11#10#10#11#10#9#10#10#10#9#10#10#9#10
+  +#10#9#10#9#9#9#9#9#9#9#9#7#7#7#7#7#7#7#7#6#6#6#7#7#6#7#7#6#7#7#8#7#19#18#18
+  +#27#27#27#29#29#29'   ##"&&&%&&'#10#11#10#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2
+  +#3#3#3#3#3#3#2#3#2#2#3#3#2#3#3#2#3#2#2#2#2#2#2#2#2#2#2#1#1#2#2#1#1#1#2#1#2#2
+  +#1#1#1#1#1#1#2#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#0#1#1#1#1#0#0#0#1#0
+  +#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0'000yyy00000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000333777999:::===556////////////000:99:9999999999999999999'
+  +'9999999999999999999998998998988111111111111111111777:::::9::9::9:99:99:99:9'
+  +'999999999999999999999999999999999999899898898898898888888888888888888888899'
+  +'8;;;;;;;;:;::;:::::87766666666666666666666666677777787722222233344455566677'
+  +'7===JJJMMMMMMOOOPPPRRRTTTUUUVVVRRRQQQSSSVVVYYY\\\___cccfffjjjnmnqrrtutyyy}}'
+  +'~'#129#130#130#134#135#134#139#138#138#143#143#143#148#148#148#153#153#153
+  +#160#160#160#166#166#166#171#171#171#176#176#176#182#182#182'qqqNNNOOOQQQTTT'
+  +'TTTUUUUUUTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOOOOMMMKKKIIIEEEBBB>>>9994551/''+5'
+  +'X'#29'M'#243#28'N'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23
+  +'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255
+  +#17'C'#255#16'B'#255#16'B'#255#14'A'#255' 0o,)'#31'...111444777888999:::::::'
+  +'::888888888888666666666555555444333333222222222222222222333333222///,,,***'
+  +'''''''$$$!!!'#30#30#29#28#27#19#10'"'#149#0'('#244#0''''#230#0'&'#230#0'&'
+  +#229#0'%'#235#18' j '#30#19#31#31#31'   '#31#31#31#30#30#30#29#29#29#28#28#28
+  +#27#27#27#25#25#25#23#23#23#23#23#23#22#21#16#21#20#14#22#20#9#21#20#14#21#20
+  +#18#21#20#19#22#21#21#22#22#22#23#23#23#24#24#24#24#24#24#24#24#24#23#23#23
+  +#23#23#23#22#22#22#21#21#21#19#19#19#18#18#18#17#17#17#15#15#13#13#14#18#9#15
+  +'='#4#16''#0#18#183#0#18#199#0#17#197#1#17#183#7#15'g'#14#14#23#14#14#12#14
+  +#14#14#14#14#14#14#14#14#15#15#15#13#13#13#12#12#12#12#12#12#11#11#11#10#10
+  +#10#9#9#9#7#7#7#7#7#7'>>>'#174#173#174#168#167#167#163#162#162#157#156#156
+  +#151#150#150#145#145#145#140#140#139#134#134#134#129#129#129'}}}wwwrsrmmmiii'
+  ,'eeeaaa]\\XXXUUUQQQMMMJJJFEECCC?@@===:::667455111...---+++()(&''&%%%###""" '
+  +#31#31#30#30#30#29#29#29#28#29#28#27#27#27#26#26#25#25#25#24#25#24#24#24#23
+  +#23#24#23#23#23#22#22#23#22#22#23#22#22#22#22#22#22#21#22#21#21#22#22#21#22
+  +#21#21#21#21#21#21#21#21#21#21#21#21#20#20#21#21#21#20#20#20#20#20#20#20#20
+  +#20#20#19#20#20#19#20#20#19#19#20#19#19#19#19#19#19#19#19#18#19#19#18#19#19
+  +#18#18#18#19#19#18#18#18#18#18#18#17#18#17#18#18#18#17#17#18#17#17#17#16#16
+  +#17#16#16#17#16#16#16#16#16#16#15#16#15#15#15#13#14#13#12#12#13#12#12#12#12
+  +#12#12#12#12#12#12#11#12#11#12#11#11#12#11#11#11#11#12#11#11#11#11#11#11#11
+  +#11#11#12#11#13#13#14#13#14#13#14#13#13#13#13#13#13#13#13#12#13#13#13#12#12
+  +#12#12#12#13#12#12#13#12#12#12#11#11#12#11#11#11#11#10#11#10#10#10#11#11#10
+  +#10#10#10#10#10#10#11#11#10#10#10#10#10#10#10#10#10#10#9#9#9#10#9#9#9#10#10#9
+  +#9#9#9#9#7#7#7#6#7#6#6#6#7#7#7#7#7#6#7#7#6#6#7#7#7#20#20#20#29#29#29'!!!%%%('
+  +')),+++*+'#12#12#12#3#3#4#3#3#4#3#3#3#3#3#2#3#3#3#2#3#2#2#3#3#3#3#2#3#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#1#2#2#2#2#1#1#2#1#1#1#2#1#2#1#1#1#1#2#1#2#2#2#1#2#1#1#1
+  +#1#1#1#1#1#1#1#1#0#1#1#1#1#0#1#1#1#0#0#0#0#1#1#0#0#0#1#1#1#1#1#0#1#1#0#0#0#0
+  +#0#0#0'000yyy000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000222666888'
+  +':::<<<999///////////////888:99999999999999999999999999999999999999998998998'
+  +'988333111111111111111444::::::::9::9::9:99:99:99:99999999999999999999999999'
+  +'999999999998998988988988988888888888888888888888:::;;;;;;;;:;::;:::99766666'
+  +'666666666666666666777777888777333333444555666777999<<<IIIMMMOOOQQQRRRTTTUUU'
+  +'WWWYYY[[[ZZZ[[[[[[\\\___cccgggkkknnnrqrvvuyzz}}}'#131#130#131#135#135#135
+  +#140#140#140#146#146#146#151#152#151#157#157#157#162#162#162#167#167#167#172
+  +#172#172#177#177#177#183#183#183'iiiPPPQQQSSSTTTUUUUUUUUUUUUTTTTTTTTTRRRRRRR'
+  +'RRRRRQQQPPPOOOOOONNNMMMJJJGGGEEEAAA<<<7773331.%(8v'#29'N'#251#28'N'#255#27
+  +'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255
+  +#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'D'#255#16'C'#255#29'2'
+  +#136'+) -,,000222555888999999;;;;;;::::::88888888888866666666655555544433333'
+  +'3222222222222333555666555222---+++(((%%%"""'#31#31#29#28#28#28#7'%'#180#0'('
+  +#241#0''''#231#0''''#231#0'&'#229#0'&'#240#11'#'#156'! '#26'""!"""!!!!!!   '
+  +#31#31#31#29#29#29#28#28#28#26#26#26#26#26#26#24#24#24#23#23#22#22#22#22#23
+  +#23#23#23#23#23#23#23#23#24#24#24#23#23#23#24#24#24#25#25#25#25#25#25#25#25
+  +#25#25#25#25#24#24#24#24#24#24#22#22#22#21#21#21#19#19#19#18#18#18#16#16#16
+  +#15#15#13#15#14#5#13#13#6#11#14'&'#6#16'w'#3#17#144#11#14'.'#15#14#4#15#15#12
+  +#15#15#15#15#15#15#14#14#14#15#15#15#15#15#15#15#15#15#13#13#13#12#12#12#11
+  +#11#11#10#10#10#9#9#9#8#8#8#7#7#7'111'#174#174#174#168#168#167#163#163#162
+  +#158#157#158#152#151#151#146#145#145#141#140#140#135#135#135#130#130#130'}}}'
+  +'xxxsssonnjjjfeeaaa^^^YYYVUUQQQNMMJJJGGGCCC@?@===:::777454222/0/---*+*)))&&&'
+  +'%%%###""" '#31#31#30#30#30#29#29#29#29#29#29#28#28#27#27#26#26#25#25#24#25
+  +#24#24#24#23#23#24#23#22#24#23#23#23#22#22#23#22#22#23#22#22#22#22#22#22#22
+  +#22#22#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#20#21#21#21#21#20#21
+  +#20#20#20#20#20#20#20#20#20#20#20#19#19#20#19#19#20#19#20#19#20#19#19#19#19
+  +#19#18#19#19#19#19#18#19#18#18#19#18#18#18#19#18#18#18#18#18#17#18#18#18#17
+  +#17#18#16#17#17#17#17#17#16#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16
+  +#14#13#14#12#12#12#12#12#12#11#12#12#12#12#12#12#11#11#12#11#12#11#11#11#11
+  +#11#11#13#13#13#14#13#14#13#13#14#13#14#13#13#13#13#13#13#14#13#13#13#13#13
+  +#13#13#13#12#13#13#13#12#13#13#12#12#12#13#12#11#12#11#11#11#11#11#11#11#11
+  +#10#11#11#10#10#11#11#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10
+  +#10#10#10#9#9#9#10#9#10#9#9#8#9#7#7#7#7#6#7#7#7#7#6#6#6#7#6#6#7#7#7#10#9#10
+  +#26#26#26'"""''&'',,,000111'#23#24#24#3#4#3#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#2#3#2#2#2#2#2#3#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#2#1#2#2#1
+  +#2#1#1#1#2#1#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#0#1#0#0#1#0#1#0#1#0#0#1#0#1
+  +#0#0#0#0#0#1#0#0#0#0#0#0'000yyy000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000111666888:::<<<===///////////////555:99:99999999999999999999999999'
+  +'999999999999998998988555111111111111111111:::::::::::9::9::9:99:99:99:99999'
+  +'999999999999999999999999999999998998988988988988888888888888888888988;;;;;;'
+  +';;;;;:;::;::888666666666666666666666777777888888888444444555666777999:::<<<'
+  +'FEFOOOQQQRRRTTTVVVWWWZZZ\\\^^^```cccdddfffgggjjjlllpppsssyyy}}|'#128#128#128
+  +#134#133#134#139#139#139#144#143#144#148#148#148#153#153#153#157#158#157#163
+  +#163#163#168#168#168#173#173#173#179#179#179#185#184#184'cccQQQSSSTTTUUUVVVV'
+  +'VVVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOONNNLLLIIIGGGCCC???;;;6773321.%('
+  +'8q'#30'L'#237#27'O'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23
+  +'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#18'F'#255#18'C'#249
+  ,#30'3'#130'*('#31'-,*//0222555777999:::;;;;;;;;;;;;::::::8888888888886666666'
+  +'66555555444333333222222333333555666666333///,,,)))&&&### '#31#28#27#29'&'#3
+  +''''#213#0'('#239#0'('#233#0''''#231#0''''#231#0'&'#235#4'%'#202' !(#" $$$##'
+  +'####!!!!!!   '#30#30#30#29#29#29#28#28#28#27#27#27#26#26#26#25#25#25#25#25
+  +#25#26#26#26#26#26#26#26#26#26#26#26#26#25#25#25#26#26#26#26#26#26#26#26#26
+  +#25#25#25#25#25#25#24#24#24#23#23#23#22#22#22#21#21#21#19#19#19#18#18#18#16
+  +#16#16#16#16#16#15#15#14#14#14#8#14#14#9#14#14#14#15#14#8#14#14#14#15#15#15
+  +#16#16#16#15#15#15#16#16#16#15#15#15#15#15#15#15#15#15#14#14#14#12#12#12#12
+  +#12#12#11#11#11#10#10#10#9#9#9#8#8#8'&&&'#175#175#175#169#169#168#163#162#163
+  +#158#157#157#152#152#152#146#146#146#141#141#141#136#136#136#130#130#130'}}}'
+  +'xxxsssnnokkkefeaaa^^^YYYVVVQRQMNNJJJGGGCCCA@@===:::777555212/0/...+++)))''&'
+  +'''%%%###!""'#31'  '#31#31#30#29#29#29#29#29#29#28#27#27#27#27#26#26#25#24#25
+  +#24#24#24#23#23#24#23#23#24#22#23#23#23#23#23#22#22#23#22#22#22#22#22#22#22
+  +#22#22#22#22#22#22#22#21#21#21#21#21#21#21#21#21#21#20#20#20#20#21#21#20#20
+  +#20#20#20#20#20#20#20#20#20#20#20#20#19#20#19#19#19#20#19#20#19#20#19#20#19
+  +#19#19#19#19#19#18#19#18#18#18#19#18#18#19#19#18#18#18#18#18#18#18#18#18#17
+  +#17#17#17#17#17#17#16#17#16#16#17#16#16#16#16#16#16#15#16#15#15#16#16#15#15
+  +#15#16#15#15#15#16#14#13#15#12#12#12#12#12#12#12#12#11#11#11#11#12#12#12#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#14#14#14#14#14#13#14#13#14#13#13#13#13
+  +#13#13#13#13#12#13#13#13#13#12#12#12#12#13#12#12#12#11#12#12#11#11#11#11#11
+  +#11#11#11#11#11#10#10#11#10#10#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9
+  +#9#10#10#10#9#10#9#9#9#9#10#9#9#9#8#9#7#7#7#7#7#7#7#7#7#6#7#6#7#8#8#10#9#9#22
+  +#22#22'$$$***000444777'#7#7#7#3#3#3#3#3#4#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2
+  +#3#3#2#3#3#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#2#2#1#1#1#2#2#1#2#2#1
+  +#1#2#2#1#1#1#1#1#2#2#1#2#1#1#1#1#1#1#1#0#1#1#1#1#0#1#1#1#1#0#1#0#0#0#1#0#0#0
+  +#0#0#0#3#0#0#1#0'000yyy00000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000666888:::<<<>>>111////////////333:99:9999999999999999999999999999999999'
+  +'9999998998998877111111111111111111777:::::::::::9::9::9:99:99:99:9999999999'
+  +'9999999999999999999999999998998988988988988888888888888888888:99;;;;;;;;;;;'
+  +':;::;::777666666666666666666777777888888999999555555666777999:::<<<>>>BBBLL'
+  +'LSSSTTTVVVXXXZZZ]]]___aaacccfffiiilllooorrrvvvxxx}}}'#128#128#128#132#132
+  +#132#136#136#136#140#140#140#145#145#145#149#150#149#155#154#154#159#159#159
+  +#164#164#164#169#169#169#175#175#175#180#180#180#186#185#186'^^^RRRSSSVVVVVV'
+  +'VVVWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOMMMKKKIIIEEEBBB>>>:::666'
+  +'3321.$,3N!E'#193#28'M'#255#26'N'#255#26'M'#255#26'K'#255#25'K'#255#24'I'#255
+  +#23'I'#255#23'H'#255#21'H'#255#20'H'#255#20'G'#255#24'?'#205'#/\+('#31',,*//'
+  +'/222555777999:::;;;<<<<<<;;;;;;;;;::::::88888888888866666666655544433322222'
+  +'2222111222444666666333///,,,)))&&&""" '#31#23#23#31'F'#0')'#233#0')'#237#0
+  +'('#234#0'('#233#0''''#231#0''''#233#0'&'#227#27'#G$#'#29'$$$$$$$$$###""""""'
+  +'!!!'#31#31#31#29#29#29#28#28#28#29#29#29#28#28#28#27#27#27#27#27#27#27#27#27
+  +#28#28#28#27#27#27#27#27#27#27#27#27#27#27#27#27#27#27#27#27#27#26#26#26#25
+  +#25#25#24#24#24#23#23#23#22#22#22#20#20#20#20#20#20#18#18#18#17#17#17#17#17
+  +#17#16#16#16#16#15#15#16#15#14#16#16#16#16#16#16#16#16#16#16#16#16#17#17#17
+  +#16#16#16#16#16#16#16#16#16#15#15#15#14#14#14#14#14#14#12#12#12#11#11#11#10
+  +#10#10#9#9#9#8#8#8#29#29#29#176#176#176#170#170#169#164#164#163#158#158#158
+  +#152#152#152#147#147#147#142#142#142#136#136#136#131#131#131'}}}xxxtttpppkkk'
+  +'feebbc^^^ZZZVVVQQQNNNJJJGGGDDDAAA===:::777555222///...,,,)))''''&&%%###""" '
+  +#31' '#31#31#31#29#29#29#29#29#29#28#28#27#27#27#26#25#25#25#25#25#24#24#23
+  +#23#24#23#23#23#23#23#23#23#23#23#23#23#23#22#22#23#22#22#22#22#22#22#22#22
+  +#22#22#22#22#21#21#21#21#22#21#21#21#21#21#21#21#20#21#20#21#21#21#21#20#20
+  +#20#21#20#20#20#20#20#20#20#20#20#19#20#19#19#20#20#19#20#19#19#19#20#19#19
+  +#19#19#19#19#19#19#19#18#19#19#19#18#18#18#18#18#18#18#18#18#17#17#17#17#17
+  +#18#17#16#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#15#15#15#16#16#16#16
+  +#15#15#16#15#15#15#15#15#13#13#13#11#12#13#14#14#13#14#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#13#13#14#14#14#14#13#13#13#13#13#13#13#13#13
+  +#12#13#13#13#13#13#13#12#13#12#12#12#12#11#11#12#11#11#11#11#11#11#11#11#11
+  +#11#11#11#11#10#10#10#11#10#11#10#10#11#10#10#10#10#10#10#10#10#10#10#9#10#9
+  +#10#9#9#9#10#9#9#9#9#10#9#9#7#7#8#7#7#7#7#6#7#7#6#6#8#8#7#11#10#11#30#30#31
+  +'&''&...444999%&&'#3#3#3#4#3#3#4#3#4#4#4#4#3#4#3#3#4#3#3#3#3#3#3#3#3#2#2#3#3
+  +#3#3#3#2#2#2#2#3#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#1#2#2#2#1#1#2#1
+  +#2#1#1#1#1#1#1#1#1#1#2#1#1#1#1#1#0#1#0#1#1#0#1#0#0#1#1#0#1#0#1#0#0#0#1#0#0#0
+  +#3#3#0#1#0#0'000yyy000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000222'
+  ,'666888;;;===>>>555////////////000:99:99999999999999999999999999999999999999'
+  +'999998998988222111111111111111444::::::::::::::9::9::9:99:99:99:99999999999'
+  +'999999999999999999999999998998988988988988888888888888888888;;:;;;;;;;;;;;:'
+  +';::::9766666666666666666777777888888999::::::777666777::::::<<<>>>@@@BBBHHH'
+  +'QQQVVVXXX[[[]]]```bbbdddgggiiilllooosssvvvyyy}}}'#129#129#129#133#132#133
+  +#137#136#137#141#141#141#146#146#146#151#151#151#156#156#156#160#161#160#165
+  +#165#165#170#170#170#175#175#175#178#178#178#181#181#181'XXXSSSTTTVVVWWWXXXX'
+  +'XXWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOONNNMMMKKKGGGEEEAAA>>>;;;7773'
+  +'3320*0/+)7d"A'#176#29'I'#234#26'L'#252#25'L'#255#24'L'#255#24'J'#255#23'H'
+  +#253#24'E'#239#27'>'#188'"3n))*,*!..-000222555888:::;;;<<<<<<======<<<;;;;;;'
+  +';;;::::::88888888888877766655544444422222211111111122222222210//.,-,)*)#(&'
+  +#28'%"'#21'"'#29#9#17'"o'#0'+'#245#0')'#237#0')'#234#0'('#234#0'('#233#0''''
+  +#232#0''''#240#20'$t&#'#23'%%%%%%%%%$$$######"""!!!   '#31#31#31#30#30#30#30
+  +#30#30#30#30#30#29#29#29#29#29#29#29#29#29#29#29#29#29#29#29#28#28#28#28#28
+  +#28#28#28#28#28#28#28#27#27#27#26#26#26#24#24#24#24#24#24#23#23#23#22#22#22
+  +#21#21#21#20#20#20#19#19#19#18#18#18#18#18#18#17#17#17#17#17#17#17#17#17#17
+  +#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#16#16#16#15#15
+  +#15#14#14#14#13#13#13#12#12#12#10#10#10#9#9#9#8#8#8#17#17#17#176#176#176#170
+  +#170#170#164#163#164#158#158#158#152#152#152#147#147#147#142#142#142#136#136
+  +#136#131#131#131'}~~xyxtttpppkkkgggbcb^^^ZZZVVVRRROONKKJHHIDDDAAA=>=:::77755'
+  +'53330/0...-,,)))&''&&&&###"""   '#31#30#31#30#30#30#29#30#29#28#28#28#27#27
+  +#26#26#26#25#25#25#25#24#23#23#24#24#23#24#23#23#24#23#22#23#22#22#23#22#22
+  +#23#22#23#22#22#22#22#21#22#21#22#22#21#21#22#21#21#21#21#22#22#21#21#21#21
+  +#21#21#21#20#21#20#20#21#20#21#20#20#20#20#20#20#20#20#20#20#20#20#20#20#20
+  +#20#19#19#20#20#19#20#20#19#20#19#19#19#18#19#18#19#18#18#18#19#18#18#19#18
+  +#18#18#18#18#18#18#18#17#17#18#17#17#17#17#17#17#16#17#17#17#17#16#16#16#16
+  +#16#16#16#16#16#16#16#16#15#16#16#15#16#15#15#16#15#15#15#15#15#15#15#15#15
+  +#14#15#15#15#14#15#15#14#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#14
+  +#13#14#14#14#13#14#13#13#13#13#13#13#12#13#12#13#12#12#13#12#12#12#11#12#12
+  +#11#12#12#11#11#12#11#11#10#11#11#11#11#11#11#11#11#11#11#10#10#10#11#10#10
+  +#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#9#9#8#8#7#7#8#7#7#7#7#7
+  +#7#8#8#7#9#9#9#21#21#21'$%$*+*111887;;;'#11#11#11#4#4#4#4#3#4#4#4#4#4#3#4#4#4
+  +#4#4#3#3#4#3#3#3#3#3#3#3#3#3#3#2#3#2#3#2#3#2#3#3#3#3#3#3#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#1#2#1#2#1#2#2#2#1#1#2#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1
+  +#1#1#1#1#1#1#1#0#1#1#1#1#0#1#1#3#0#3#0#1#1'000yyy000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000222555777999;;;===???444///////////////877:99:99999'
+  +'999999999999999999999999999999999998998988555101111111111111111:99:::::::::'
+  +':::::9::9::9:99:99:99:99999999999999999999999999999999999998998988988988988'
+  +'888888888888888999;;;;;;;;;;;;;;:;::999666666666666666777777888888999:::;;;'
+  +';;;999777::::::<<<>>>@@@BBBDDDFFFJJJSSSZZZ^^^aaaccceeehhhkkkmmmqqqssswww{{{'
+  +''#130#130#130#134#134#134#139#139#139#142#142#142#147#147#146#152#152#152
+  +#157#157#156#161#161#161#164#164#164#167#167#167#169#169#169#175#175#175#181
+  +#181#181'YYYUUUUUUVVVWWWYYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPO'
+  +'OONNNMMMJJJGGGEEEAAA???;;;8885552201/''/.''-0:)4[&7x%8'#128'%6y''2^)-<,+''.'
+  +'+!..,///111444666888:::<<<==================<<<;;;;;;;;;::::::8888888887776'
+  +'6655544433322211100000/10,20)20%30#0/)--/),7"*M'#25'''f'#18'&'#129#13'&'#150
+  +#4'('#210#0'+'#243#0'*'#237#0')'#236#0')'#234#0'('#234#0'('#233#0''''#242#11
+  +'%'#164'$#'#30'$$#%%%%%%%%%$$$######""""""!!!   '#31#31#31'   '#31#31#31#30
+  +#30#30#30#30#30#30#30#30#30#30#30#29#29#29#29#29#29#28#28#28#28#28#28#28#28
+  +#28#27#27#27#26#26#26#25#25#25#24#24#24#24#24#24#22#22#22#21#21#21#21#21#21
+  +#20#20#20#19#19#19#19#19#19#19#19#19#18#18#18#18#18#18#18#18#18#18#18#18#17
+  +#17#17#18#18#18#18#18#18#17#17#17#17#17#17#15#15#15#14#14#14#14#14#14#12#12
+  +#12#11#11#11#10#10#10#9#9#9#19#19#19#176#176#176#170#170#170#164#164#164#158
+  +#158#158#153#152#152#147#147#147#142#142#142#136#136#136#131#131#131'}~~yyyt'
+  +'ttpppkkkgggccc^^^ZZ[VVVSSSOOOJJKIIHDEDAAA>>>;::877555333/00...-,,)))''''''&'
+  +'&&$#$"#"   '#31#31#31#30#30#30#30#30#29#28#28#28#27#27#26#25#26#25#26#25#25
+  +#24#24#24#25#24#23#24#23#23#24#23#23#23#23#23#23#22#22#23#23#23#22#22#22#22
+  +#22#22#22#22#22#22#22#22#22#22#22#22#21#21#21#21#21#21#21#21#21#21#21#20#21
+  +#21#21#21#20#21#21#20#20#20#20#20#20#20#20#20#20#20#20#20#19#20#20#20#20#20
+  +#19#19#20#19#19#20#19#19#19#19#18#19#18#19#19#18#18#18#19#18#18#18#18#18#18
+  +#17#17#18#17#17#18#16#17#17#17#16#17#16#16#17#17#17#16#16#16#16#16#16#16#15
+  +#15#16#16#16#16#16#15#15#15#15#15#15#16#15#15#15#15#15#14#15#15#15#15#15#14
+  +#14#14#15#14#14#15#14#14#15#14#14#14#13#14#13#14#13#14#13#14#13#14#14#13#13
+  ,#14#13#13#14#13#13#13#13#13#13#13#13#12#12#13#12#12#12#11#12#12#12#12#11#11
+  +#11#12#11#11#11#11#11#10#11#11#11#11#11#10#11#11#10#11#11#10#10#11#10#10#10
+  +#10#10#10#9#10#10#9#10#9#10#10#10#9#8#8#8#7#7#7#8#8#7#7#7#8#7#8#11#11#11#30
+  +#30#30'&''&//.554::;'''''''#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#4#4#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#3#2#3#3#3#3#3#2#3#3#2#3#3#2#3#3#2#3#2#2#2#2#3#3#3#2#2#2#2#1#2
+  +#2#2#2#2#2#1#1#2#2#2#1#1#1#1#1#2#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1
+  +#1#0#0#1#1#1#0#3#3#3#1#0#0'000yyy0000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000222444666888:::<<<>>>444//////////////////555:99:999999999999999999999'
+  +'99999999999999999998998998877101101111111111111776:::::::::::::::::9::9::9:'
+  +'99:99:99:999999999999999999999999999999999999989989889889889888888888888888'
+  +'88:::;;;;;;;;;;;;;;:;::888666666666666777777888888999:::;;;;;;===<<<::::::<'
+  +'<<>>>@@@BBBDDDFFFHHHKKKNNNSSS\\\aaafffhhhlllnnnrrrtttxxx{{{'#131#131#131
+  +#136#136#136#139#139#139#143#143#143#148#147#147#150#149#149#153#153#153#155
+  +#155#154#159#158#159#165#165#165#170#170#170#176#176#176#181#181#181'[[[VVVV'
+  +'VVWWWYYYYYYYYYXXXXXXWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPNNNMMMMMMJJJH'
+  +'HHEEEBBB???===99966644443221.1/(0-$0-#0-#0.''/.*0/.111333444555888999;;;<<<'
+  +'===>>>>>>>>>>>>=========<<<;;;;;;;;;::::::888888777666444333222111000/../.,'
+  +'+.>$/]'#30'/y'#24'/'#148#16'/'#176#10'.'#201#3'.'#228#1'-'#240#0'-'#246#0'-'
+  +#254#0'-'#254#0','#245#0'*'#238#0'*'#238#0'*'#237#0')'#236#0')'#234#0'('#234
+  +#0'('#244#7'%'#187'###$$"%%%%%%%%%%%%%%%$$$$$$###""""""!!!      '#31#31#31#31
+  +#31#31#31#31#31#31#31#31#31#31#31#30#30#30#29#29#29#28#28#28#28#28#28#28#28
+  +#28#27#27#27#26#26#26#24#24#24#24#24#24#24#24#24#23#23#23#22#22#22#21#21#21
+  +#21#21#21#21#21#21#20#20#20#20#20#20#19#19#19#19#19#19#19#19#19#18#18#18#18
+  +#18#18#18#18#18#18#18#18#17#17#17#16#16#16#14#14#14#14#14#14#12#12#12#11#11
+  +#11#10#10#10#9#9#9#19#19#19#176#176#176#171#170#170#165#164#164#159#158#158
+  +#152#152#152#148#147#147#142#142#142#137#136#136#131#131#131'~~}yyyuuupppkkk'
+  +'gggccc^^^[Z[VVVSSSOOOKKKIIIDDEAAA>>><;<878555333000...--,))*''''''&&&$###""'
+  +'!  '#31#31#31#30#30#30#30#30#30#29#29#28#27#27#26#26#26#25#26#25#24#25#24#24
+  +#24#23#24#24#23#24#24#23#23#23#23#23#23#23#23#23#23#23#23#22#22#22#22#22#22
+  +#23#22#22#22#22#22#22#22#22#22#21#22#22#22#21#21#21#21#21#21#21#21#21#20#21
+  +#20#21#21#21#20#21#21#20#20#20#20#20#20#20#20#19#20#20#20#20#20#20#19#19#19
+  +#20#20#19#19#19#20#19#19#18#19#19#18#19#19#18#19#18#18#18#18#18#18#17#17#18
+  +#17#17#18#17#17#18#16#16#17#17#17#16#16#17#16#17#16#16#16#16#16#16#16#16#16
+  +#16#16#16#16#16#16#15#15#16#16#15#15#15#15#15#15#14#15#15#14#14#14#14#14#14
+  +#15#15#14#14#14#14#14#14#14#14#14#14#14#13#14#13#14#14#14#13#14#13#13#13#14
+  +#14#13#13#13#13#13#13#13#13#12#13#13#12#12#12#11#11#12#12#11#12#11#11#11#11
+  +#11#11#11#12#11#11#11#10#11#11#11#11#11#11#10#11#11#10#10#10#11#10#10#10#10
+  +#10#10#9#10#10#10#9#8#9#8#8#7#7#7#7#7#8#7#8#8#8#9#9#9#20#20#20'$$$)**221888<'
+  +'<<'#15#15#15#4#4#4#4#4#4#4#4#4#3#3#4#3#4#4#3#3#3#3#3#4#4#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#3#3#3#3#2#3#2#3#2#2#2#2#2#2#2#3#3#2#2#3#2#2#2#2#2#1#2#2#2#2#1
+  +#1#2#2#1#1#2#2#1#2#1#1#1#1#2#1#1#1#1#1#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1
+  +#0#3#0#0#1#1'000yyy000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000222444555777'
+  +':::<<<===444////////////////////0877:99:99999999999999999999999999999999999'
+  +'999999998998988322101101111111111333::::::::::::::::::::9::9::9:99:99:99:99'
+  +'999999999999999999999999999999999998998988988988988888888888888888;;;;;;;;;'
+  +';;;;;;;;:;::888666666666777777888888999:::;;;;;;===>>>???===<<<>>>@@@BBBDDD'
+  +'FFFHHHKKKNNNPPPSSSWWWYYY___dddihimlmssswwwzzz}}}'#128''#128#132#131#132#133
+  +#133#133#136#136#136#139#139#139#145#145#145#150#150#149#154#154#154#159#159
+  +#159#165#165#165#170#171#170#176#176#176#181#181#181'\\\WWWXXXYYYZZZYYYYYYZZ'
+  +'ZYYYWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPNNNMMMMMMJJJHHHEEECCCAAA>>'
+  +'><<<999888666555444333333333444444555777888:::;;;<<<>>>????????????@@@???>>'
+  +'>=========<<<;;;;;;;;;::::::888777666444222000///.../,#"-]'#3'1'#240#0'1'
+  +#251#0'1'#255#0'0'#255#0'/'#255#0'/'#254#0'/'#250#0'.'#248#0'.'#245#0'-'#243
+  +#0'-'#242#0','#241#0','#240#0'*'#239#0'*'#238#0'*'#237#0')'#235#0')'#242#3
+  +''''#215#26'"G#"'#29'$$$%%%%%%&&&&&&&&&%%%$$$$$$$$$###"""!!!!!!!!!   '#31#31
+  +#31#31#31#31#31#31#31#31#31#31#30#30#30#29#29#29#28#28#28#28#28#28#28#28#28
+  +#27#27#27#26#26#26#25#25#25#25#25#25#24#24#24#23#23#23#22#22#22#22#22#22#22
+  +#22#22#21#21#21#21#21#21#20#20#20#20#20#20#20#20#20#19#19#19#19#19#19#18#18
+  +#18#18#18#18#18#18#18#17#17#17#15#15#15#14#14#14#13#13#13#12#12#12#11#11#11
+  +#10#10#10#18#18#18#176#176#176#171#170#171#165#164#164#159#158#158#153#152
+  +#152#148#147#147#142#142#142#137#136#136#131#131#131'~~~zzzuuupqpkklgggccc^^'
+  +'^[[ZVVVTSSOOOKKKHHIDDDABA>>><<<888556343000...---*)*''''''&&&$#$#"" ! '#31
+  ,#31#31#30#30#30#30#30#30#29#28#28#28#28#27#26#26#25#26#26#25#25#24#24#25#24
+  +#24#24#24#23#24#24#23#24#23#24#23#23#23#23#23#22#23#23#23#22#22#22#22#22#22
+  +#22#22#23#22#22#22#21#22#22#22#21#22#21#21#21#22#21#21#21#21#21#21#21#21#21
+  +#20#21#21#20#20#20#20#21#20#21#20#20#20#20#20#20#20#20#20#20#19#20#19#20#19
+  +#20#19#20#20#19#19#20#19#19#19#19#19#19#19#19#18#18#18#18#19#18#18#18#17#17
+  +#18#17#17#17#17#17#17#17#17#17#17#17#16#17#17#17#17#16#16#17#16#16#16#16#15
+  +#15#16#16#15#16#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15
+  +#15#14#15#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#13#13#13#14
+  +#13#13#13#13#13#14#13#13#13#12#12#12#13#12#12#12#11#12#12#11#12#11#11#11#11
+  +#11#11#11#11#11#11#11#11#11#11#11#10#11#11#10#10#11#10#11#10#10#10#11#10#10
+  +#10#10#10#10#9#9#9#8#8#8#8#8#7#7#7#7#8#9#9#12#11#11#28#28#28'&''''...555:::/'
+  +'/0'#5#5#4#4#4#4#4#4#5#4#4#4#4#4#4#3#4#4#4#4#4#3#3#3#3#3#3#4#3#4#3#4#3#3#3#3
+  +#3#3#3#3#3#3#3#3#3#2#2#3#2#3#3#2#2#2#2#2#2#2#2#2#2#3#3#2#2#2#2#2#2#1#2#2#1#2
+  +#1#2#2#2#2#1#2#2#1#2#2#1#2#2#2#2#1#2#1#1#1#1#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#3
+  +#0#3#1#1#1'000yyy00000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000222444555777999;;'
+  +';===444.../////////////////0877:99:99:99:9999999999999999999999999999999999'
+  +'9999998998998655000101101111111111999::::::::::::::::::::9::9::9:99:99:99:9'
+  +'9999999999999999999999999999999999998998988988988988888888888888998;;;;;;;;'
+  +';;;;;;;;;:;::777666666777777888888999:::;;;;;;===>>>@@@AAABBB@@@@@@BBBDDDFF'
+  +'FHHHKKKNNNPPPSSSWWWYYY\\\```cccgggjjjooorrrvvv{{{'#131#131#131#135#135
+  +#135#140#140#140#145#145#145#150#150#150#154#154#154#159#159#159#165#165#165
+  +#171#171#171#176#176#176#181#181#181'\\\WWWYYYZZZZZZ[[[ZZZZZZZZZXXXWWWWWWWWW'
+  +'VVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPNNNNNNMMMKKKIIIFFFEEECCC@@@>>><<<;;;999'
+  +'999888777888888999:::;;;<<<===>>>???@@@AAA@@@@@@@@@@@@@@@???>>>=========<<<'
+  +';;;;;;;;;:::999777666444222///...+++,)'#31#16'/'#173#0'3'#255#0'2'#255#0'1'
+  +#252#0'1'#250#0'0'#249#0'/'#248#0'/'#247#0'/'#255#0'/'#255#0'.'#251#0'-'#247
+  +#0'-'#244#0','#243#0','#241#0'*'#239#0'*'#238#0'*'#242#2')'#229#23'!Q" '#20
+  +'###$$$%%%&&&&&&&&&&&&&&&%%%$$$$$$$$$######!!!!!!!!!!!!'#31#31#31#31#31#31#31
+  +#31#31#31#31#31#30#30#30#29#29#29#28#28#28#28#28#28#28#28#28#27#27#27#27#27
+  +#27#26#26#26#25#25#25#25#25#25#24#24#24#23#23#23#22#22#22#23#23#23#22#22#22
+  +#21#21#21#21#21#21#20#20#20#20#20#20#20#20#20#19#19#19#18#18#18#18#18#18#17
+  +#17#17#16#16#16#14#14#14#13#13#13#12#12#12#11#11#11#10#10#10#18#18#18#176#176
+  +#176#171#170#170#165#165#164#159#158#158#153#152#152#147#147#147#142#142#142
+  +#137#136#136#131#131#131'~~}zzzuuuqqqlllhggdcc^^^[[[VVVSSSPPOKKKIIIEDEABB>>>'
+  +'<<<888566343001...,--*))(''''&&&$$#"""!! '#31#31#31#30#30#30#30#30#30#28#29
+  +#28#27#28#27#26#26#25#26#26#25#26#26#26#26#26#26#26#26#26#25#25#25#26#25#25
+  +#25#25#26#25#25#25#25#24#24#24#24#25#24#24#25#22#22#22#22#22#22#22#22#22#21
+  +#22#22#21#22#22#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#20
+  +#20#20#20#20#20#20#20#19#20#20#19#20#20#19#20#20#19#20#19#19#19#20#19#20#19
+  +#19#19#19#19#19#18#19#18#18#18#18#18#18#17#18#18#18#17#18#17#17#18#17#17#17
+  +#17#17#16#16#16#16#16#16#16#17#16#16#16#16#16#16#16#15#16#16#16#16#16#15#16
+  +#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15#15#15#14#14#14#15#15#14#14#14
+  +#14#14#14#14#14#14#14#14#13#14#13#14#13#14#14#13#13#14#13#13#13#13#13#13#13
+  +#12#13#13#12#12#12#11#12#12#12#11#12#12#12#11#11#11#11#12#11#11#11#11#10#11
+  +#10#11#11#11#11#11#10#11#10#11#10#10#10#10#10#10#10#10#10#8#8#8#8#8#7#7#7#7#8
+  +#9#8#10#10#9#18#18#19'$$$***111898<=<'#18#18#19#5#4#5#4#4#4#5#4#4#4#4#4#4#4#4
+  +#4#4#4#4#4#3#3#3#4#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#2#3
+  +#3#3#3#3#2#3#3#2#2#3#2#3#2#2#2#2#1#2#2#2#2#2#1#2#2#2#2#2#2#1#2#1#2#2#2#2#1#1
+  +#2#2#1#2#1#1#1#1#1#1#1#1#1#1#0#1#1#1#1#0#0#3#3#1#0#0'000yyy00000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000222444555777999;;;===444.../////////////////0887:99:9'
+  +'9:99:99:9999999999999999999999999999999999999999899899888811100010110111111'
+  +'1444:::::::::::::::::::::::9::9::9:99:99:99:9999999999999999999999999999999'
+  +'9999998998988988988988888888888888999;;;;;;;;;;;;;;;;;::::77766677777788888'
+  +'8999:::;;;;;;===>>>@@@AAABBBEEDEEECCCDDDFFFHHHKKKNNNPPPSSSWWWYYY\\\```cccgg'
+  +'gjjjooorrrvvvzzz'#131#131#131#135#135#135#140#140#140#145#145#145#149#150
+  +#150#154#154#154#159#159#159#165#165#165#170#170#170#176#176#176#181#181#181
+  +']]]XXXYYY[[[[[[\\\[[[ZZZZZZYYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQ'
+  +'PPPOOONNNMMMKKKJJJHHHFFFDDDCCCAAA???>>>===<<<=========>>>>>>??????AAAAAAAAA'
+  +'AAAAAABBBBBBAAA@@@@@@@@@???>>>=========<<<;;;;;;;;;999777555333111///+++*)"'
+  +'#)C'#2'2'#242#0'3'#255#0'2'#253#0'2'#253#0'1'#251#0'1'#250#0'0'#250#0'/'#251
+  +#10'+'#184#10'*'#182#5'+'#209#2','#230#1','#236#0','#242#0'-'#248#0'-'#254#0
+  +','#254#0'+'#245#19'"h!'#30#18'!!!###$$$%%%''''''&&&''''''''''''&&&&&&%%%$$$'
+  ,'$$$$$$######!!!!!!!!!!!!'#31#31#31#31#31#31#31#31#31#31#31#31#30#30#30#29#29
+  +#29#28#28#28#28#28#28#28#28#28#27#27#27#27#27#27#25#25#25#25#25#25#25#25#25
+  +#25#25#25#24#24#24#23#23#23#23#23#23#23#23#23#22#22#22#21#21#21#20#20#20#20
+  +#20#20#20#20#20#19#19#19#19#19#19#18#18#18#17#17#17#15#15#15#14#14#14#12#12
+  +#12#11#11#11#10#10#10#19#19#19#176#176#176#171#171#171#165#164#164#159#159
+  +#158#153#152#152#148#147#147#143#142#142#137#137#136#132#131#131'~~~zzyuuupp'
+  +'plllhhhcdc^_^[[[VVVTTTPOOKKKIIIEDEAAA??><<<888665433000...---***''((&&&$$$"'
+  +'##  !! '#31'  '#31'  '#31'  '#31#31#31#31#31#30#30#30#30#30#30#29#30#29#29
+  +#29#29#28#29#30#28#28#30#29#28#29#29#28#29#29#29#29#29#29#28#28#29#29#29#28
+  +#28#28#28#29#28#29#28#28#28#27#27#27#26#26#26#25#25#24#24#23#23#22#22#23#21
+  +#21#21#21#21#21#21#21#20#20#21#21#21#20#21#20#20#20#20#20#20#20#20#20#20#20
+  +#19#20#19#19#20#19#19#19#19#19#19#19#19#19#19#18#19#19#18#19#18#18#18#17#18
+  +#18#17#17#18#17#17#18#17#17#17#17#17#17#17#17#17#16#17#16#16#17#16#16#16#16
+  +#16#16#16#16#16#16#16#16#15#16#15#16#16#16#16#15#15#15#15#15#15#15#15#15#15
+  +#15#15#15#15#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14#14
+  +#14#14#13#13#14#13#13#13#13#13#13#13#13#12#12#13#12#12#12#12#12#11#11#11#12
+  +#11#12#11#11#12#11#12#11#11#11#11#11#10#11#10#11#11#10#11#10#10#10#11#11#11
+  +#10#9#9#10#8#8#8#8#8#8#8#8#8#9#8#9#12#11#12#27#28#27'''''''./.555:::000'#5#5
+  +#5#4#5#4#5#5#5#5#4#4#4#4#5#5#4#5#4#4#4#4#4#3#4#4#3#4#3#4#4#4#3#3#4#3#3#3#4#3
+  +#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#2#3#2#3#2#3#3#2#3#2#2#2#2#2#2#2#2#2#1#2
+  +#2#2#1#2#1#1#2#2#2#1#1#2#1#1#2#2#2#2#2#1#2#2#2#1#1#1#1#1#1#1#1#1#1#1#1#1#3#3
+  +#3#1#0#1'000yyy0000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000222444555777999;;;===444.'
+  +'../////////////////0888::9:99:99:99:99:999999999999999999999999999999999999'
+  +'99999998998988433000000101101111111::9:::::::::::::::::::::::9::9::9:99:99:'
+  +'99:99999999999999999999999999999999999998998988988988988888888888888:::;;;;'
+  +';;;;;;;;;;;;;::::777777777888888999:::;;;;;;===>>>@@@AAABBBEEDFFEHGGIIIHHHI'
+  +'IIJJJNNNPPPSSSWWWYYY\\\```cccgggjjjnnnrrrvvvzzz~~~'#131#131#131#135#135#135
+  +#140#140#140#145#145#145#150#150#149#154#154#154#159#159#159#165#165#165#170
+  +#170#170#177#177#177#183#183#183'___ZZZZZZ[[[]]]]]]\\\[[[ZZZYYYYYYXXXWWWWWWW'
+  +'WWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOONNNNNNLLLJJJIIIGGGFFFEEEDDDCCCBBBB'
+  +'BBAAAAAAAAAAAABBBBBBBBBCCCCCCCCCCCCBBBBBBBBBBBB@@@@@@@@@@@@???>>>=========<'
+  +'<<;;;;;;:::888555222000,,,))))&'#27#17'.'#160#0'5'#255#0'3'#255#0'2'#255#0
+  +'2'#254#0'2'#253#0'1'#251#0'2'#255#7'.'#207'""$! '#28#30#31'%'#28#30'+'#24#31
+  +'>'#20' U'#17'"l'#14'$'#131#11'&'#162#16'#| '#30#23'! '#31'"##$$$&&&'''''''''
+  +'''''''''''''''''''''''''''''&&&&&&%%%$$$$$$$$$######"""!!!""""""         '
+  +#31#31#31#30#30#30#29#29#29#29#29#29#28#28#28#28#28#28#27#27#27#26#26#26#25
+  +#25#25#25#25#25#25#25#25#25#25#25#23#23#23#23#23#23#23#23#23#23#23#23#22#22
+  +#22#21#21#21#20#20#20#20#20#20#20#20#20#19#19#19#18#18#18#17#17#17#16#16#16
+  +#15#15#15#13#13#13#12#12#12#10#10#10#20#20#20#176#176#176#170#170#170#164#164
+  +#164#159#158#159#153#152#152#148#147#147#143#142#142#137#136#137#132#131#131
+  +'~~~zzzuuuppplllhhhccc^^_\[[VVVTTTOPOKKLIIIEEEBBB>??;;;888555443000...---***'
+  +'(((''((''&&&&&$$$$"##""!! !!    '#31#31#31#30#30#31#29#30#30#29#29#29#29#28
+  +#29#29#29#29#29#28#29#29#29#29#30#29#28#29#29#29#29#29#29#28#28#29#28#29#28
+  +#28#28#28#29#28#28#28#28#28#28#27#28#29#28#28#29#28#28#28#28#27#27#27#28#26
+  +#26#26#24#23#24#22#22#21#21#20#20#20#20#20#21#20#20#20#20#20#20#19#19#20#20
+  +#20#19#19#19#19#20#20#19#20#19#19#19#19#19#19#18#19#18#18#18#18#18#19#18#17
+  +#19#18#17#18#17#17#17#17#17#17#16#16#17#17#17#17#17#16#16#17#17#17#16#17#16
+  +#16#16#16#16#16#16#16#16#16#16#16#15#15#15#15#16#16#15#15#15#15#15#15#15#15
+  +#15#14#15#15#15#15#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#13#14
+  +#14#13#14#14#13#14#14#13#13#13#12#12#13#12#12#12#12#12#12#12#11#11#12#11#11
+  +#12#12#12#12#12#11#11#12#11#11#11#11#11#10#11#11#11#11#11#11#11#10#10#9#8#8#8
+  +#8#8#9#8#8#9#8#9#9#10#10#17#17#18'$##++*122888==='#23#23#23#5#5#4#4#4#5#4#4#4
+  +#5#4#4#4#5#4#5#4#4#4#4#5#4#4#4#4#4#4#3#3#4#4#3#3#4#3#3#3#4#3#3#4#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#3#2#3#2#2#3#2#3#2#3#2#3#3#3#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#1#1
+  +#2#2#1#2#2#1#1#2#2#1#1#1#1#2#2#1#1#1#1#1#1#1#1#1#1#1#0#1#1#3#0#3#1#1#1'000yy'
+  +'y00000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000222444555777999;;;===444...//////////////'
+  +'///0888::9::9::9:99:99:99:99:9999999999999999999999999999999999999999899899'
+  +'8877000000000101101111655::::::::::::::::::::::::::9::9::9:99:99:99:9999999'
+  +'9999999999999999999999999999998998988988988988888888888888:::;;;;;;;;;;;;;;'
+  +';;;:;::999777888888999:::;;;;;;===>>>@@@AAABBBEEDFFEHHGJIILKKNMMOOOPPPQQRSS'
+  +'SWWWYYY\\\___cccgggjjjnnnrrrvvvzzz~~~'#130#130#130#135#135#135#140#140#140
+  +#145#145#145#150#150#150#155#155#155#161#161#161#167#166#166#172#172#172#178
+  ,#178#178#183#183#183'___[[[\\\\\\]]]]]]]]]\\\[[[YYYYYYYYYXXXWWWWWWWWWVVVVVVT'
+  +'TTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOONNNNNNLLLLLLJJJIIIIIIGGGFFFEEEEEEEEEDDDDDDD'
+  +'DDDDDEEEEEEDDDDDDDDDDDDDDDBBBBBBBBBBBB@@@@@@@@@@@@???>>>=========<<<;;;:::8'
+  +'88555222...+++)''!!''@'#4'4'#242#1'5'#255#1'4'#255#0'4'#255#0'2'#255#0'2'
+  +#254#0'2'#254#0'2'#255#23'''j%"'#22'#"!! '#30' '#31#28#31#30#24#31#29#21#31
+  +#29#18#31#28#15' '#30#22'!'#31#25'! '#31'"""$$$%%%&&&((((((((((((((('''''''''
+  +'''''&&&&&&%%%%%%%%%%%%$$$$$$############"""""""""!!!'#31#31#31#31#31#31#29
+  +#29#29#29#29#29#28#28#28#28#28#28#26#26#26#25#25#25#25#25#25#25#25#25#25#25
+  +#25#23#23#23#23#23#23#23#23#23#23#23#23#22#22#22#21#21#21#20#20#20#20#20#20
+  +#20#20#20#18#18#18#17#17#17#16#16#16#15#15#15#14#14#14#12#12#12#11#11#11#19
+  +#19#19#176#176#176#170#170#170#164#164#164#158#158#158#153#152#152#148#147
+  +#147#142#142#142#137#137#137#132#131#132'~~yyyuuuppplllhhhccc^__[\[VVVSSSPP'
+  +'PLKKIIIEEEBBB>??;;<888555434111/////.-,,*++*))''''(&&&$#$####!!!! !!   '#31
+  +#30#31#31#31#30#31#29#30#29#29#29#29#29#29#29#29#29#29#29#29#28#29#28#28#29
+  +#29#28#29#29#28#29#29#29#29#29#28#29#29#29#28#29#28#28#28#28#28#28#28#28#28
+  +#28#28#28#28#29#27#27#29#28#27#29#28#27#28#28#28#28#29#28#28#28#28#28#27#27
+  +#25#25#24#23#23#22#20#20#21#20#20#20#20#20#20#20#20#20#19#20#20#19#19#19#19
+  +#19#19#19#19#19#19#19#18#19#18#18#19#18#18#19#17#18#18#17#17#18#17#17#17#17
+  +#17#17#17#16#17#17#17#16#16#16#16#17#17#16#16#16#16#16#16#16#16#16#16#15#16
+  +#16#16#16#16#16#16#15#15#15#15#16#15#15#15#15#15#15#15#14#14#15#14#14#14#14
+  +#15#15#15#14#14#14#14#14#14#14#14#14#14#14#13#13#14#13#13#14#13#13#13#14#12
+  +#13#13#12#12#12#12#12#12#12#11#12#12#11#12#12#12#12#11#11#11#11#11#12#11#11
+  +#11#11#11#11#11#11#11#11#11#9#10#9#8#9#8#8#9#8#8#8#8#10#9#9#11#11#11#25#25#25
+  +'&''''---655;:;887'#5#5#5#5#5#4#5#4#4#4#5#5#5#4#5#4#4#5#4#4#5#4#4#4#5#4#4#4#3
+  +#4#4#4#4#4#4#4#3#3#3#3#4#3#3#3#3#4#3#3#3#4#3#3#4#3#3#3#3#3#3#2#2#3#3#3#3#2#2
+  +#2#2#2#2#2#3#2#2#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#2#2#1#1#2#1#2#2#2
+  +#1#2#1#1#2#1#1#2#2#2#1#1#3#3#3#1#1#1'000yyy000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000222'
+  +'444555777999;;;===444.../////////////////0888::9::9::9::9:99:99:99:99:99999'
+  +'999999999999999999999999999999999998998998988222000000000101101111:::::::::'
+  +'::::::::::::::::::::9::9::9:99:99:99:99999999999999999999999999999999999998'
+  +'998988988988988888888888888;::;;;;;;;;;;;;;;;;;:<;;999888888999:::;;;;;;==='
+  +'>>>???AAABBBEEEFFEHHGJIILKKNMMQPPSRRVUUYXXZZZ\[\___``accdgggjjjnnnqqqvvv{{{'
+  +''#131#131#131#137#137#137#142#142#142#147#147#147#153#153#153#157#157#157
+  +#162#162#162#167#167#167#172#172#172#178#177#177#183#183#183'ggg\\\]]]]]]^^^'
+  +']]]]]]]]]\\\[[[YYYYYYYYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOO'
+  +'OOONNNMMMLLLKKKJJJJJJIIIHHHHHHHHHGGGGGGFFFFFFFFFFFFFFFEEEEEEEEEDDDDDDBBBBBB'
+  +'BBBBBB@@@@@@@@@@@@???>>>=========;;;:::888555222...**)(&'#30#17'/'#165#1'7'
+  +#255#3'5'#255#2'5'#255#1'4'#255#0'4'#255#0'2'#255#0'3'#255#6'/'#215'#$)%$!$$'
+  +'$$$$""""""!!!!!!!!!""!##"###$$$%%%''''''((()))(((((())))))'''''''''''''''''
+  +'''&&&&&&&&&%%%%%%&&&%%%%%%%%%&&&&&&&&&%%%$$$$$$###!!!   '#30#30#30#29#29#29
+  +#29#29#29#27#27#27#27#27#27#25#25#25#25#25#25#25#25#25#25#25#25#23#23#23#23
+  +#23#23#23#23#23#23#23#23#22#22#22#21#21#21#20#20#20#20#20#20#19#19#19#18#18
+  +#18#17#17#17#15#15#15#14#14#14#13#13#13#11#11#11#31#31#31#177#176#176#170#170
+  +#170#164#164#164#158#158#158#153#153#153#148#147#147#143#142#142#137#137#137
+  +#132#131#132'~~yyyuuuppqlllgggccc^__[\\VVVSSSPPPLLLHHHEEEBBB=>>;;<898665543'
+  +'222201///--,++*))(''((&&&$$$###"""" !!!   '#31#31#31#30#31#30#31#30#30#29#30
+  +#29#30#30#29#29#29#29#29#29#29#29#29#28#29#29#28#28#29#29#28#29#29#28#29#29
+  +#29#29#29#29#28#29#29#28#29#28#29#28#28#29#28#28#28#28#28#28#28#27#28#28#28
+  +#29#28#28#29#28#28#28#28#28#28#28#28#28#28#27#27#28#28#27#27#28#27#27#28#25
+  +#26#25#23#23#22#20#20#20#19#20#19#19#19#19#20#19#19#19#19#19#19#19#19#18#18
+  +#18#19#18#18#18#18#17#18#18#18#18#17#17#17#17#17#17#17#17#17#16#17#17#16#16
+  +#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#16#15
+  +#16#15#15#15#16#15#15#15#15#15#15#14#15#14#14#15#14#14#14#15#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#14#14#13#13#13#13#14#13#12#12#13#12#12#12#12#12
+  +#12#11#12#12#11#12#11#11#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#9#8
+  +#9#9#8#8#9#8#9#10#9#9#9#9#9#15#15#15'###***111999==='#26#26#26#6#5#5#5#5#5#5
+  +#5#4#5#5#4#5#5#5#4#4#5#4#5#4#5#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3
+  +#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#3#3#3#2#2#3#2#2#2#2#2#3#2#2#2#2#3#2#2
+  +#2#2#2#2#2#1#2#2#2#2#2#1#2#2#2#2#1#1#1#1#1#2#1#2#1#2#1#1#1#1#1#1#1#1#3#3#3#1
+  +#1#1'000yyy00000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000222444555777999;;;===444...///////////'
+  +'//////0888::::::::9::9::9:99:99:99:99:99:9999999999999999999999999999999999'
+  +'9999998998988666000000000000101101777:::::::::::::::::::::::::::::9::9::9:9'
+  ,'9:99:99:99999999999999999999999999999999999998998988988988988888888888988;;'
+  +':;;;;;;;;;;;;;;;<<;<;;;;;888999:::;;;;;;===>>>???AAABBBDDDFFEHHGJIILKKNMMQP'
+  +'PSRRVUUXXX[[[_^^a``dddgggjjjnnnrrruuuzzz}}}'#129#129#129#134#134#134#138#138
+  +#138#142#142#142#147#147#147#152#152#152#157#157#157#162#162#162#167#167#167
+  +#171#171#171#177#177#177#182#182#182'mmm]]]^^^_________^^^]]]]]][[[ZZZYYYYYY'
+  +'YYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOOOONNNMMMLLLLLLLLL'
+  +'KKKJJJIIIJJJIIIHHHHHHGGGGGGGGGFFFEEEEEEEEEDDDDDDBBBBBBBBBBBB@@@@@@@@@@@@???'
+  +'>>>=========;;;888666222...+)#!(I'#5'7'#252#3'7'#255#4'6'#255#3'5'#255#2'5'
+  +#255#1'4'#255#0'4'#255#0'3'#255#21'+'#130')%'#25'''''''''''''''''''''''''%%%'
+  +'%%%%%%%%%%%%&&&&&&''''''((())))))************))))))''''''''''''''''''&&&&&&'
+  +'&&&&&&''''''(((((()))***++++++******(((''''''%%%###!!!'#31#31#31#29#29#29#29
+  +#29#29#28#28#28#27#27#27#25#25#25#25#25#25#25#25#25#25#25#25#23#23#23#23#23
+  +#23#23#23#23#23#23#23#22#22#22#21#21#21#20#20#20#19#19#19#18#18#18#17#17#17
+  +#16#16#16#14#14#14#13#13#13#12#12#12')))'#175#175#175#169#169#169#163#163#163
+  +#158#158#158#153#152#152#147#146#146#142#141#141#137#136#136#131#131#130'~'
+  +'yyytttooolllgggbbb___Z[[VWWSSSOOOLKLHIIDEEBBB>>><<<;;:787555333110//.--,++*'
+  +'))((''(''&''$$%###"!"!!   '#31#30#30#29#28#27#27#28#27#27#25#25#25#25#25#24
+  +#25#24#24#24#24#25#25#24#24#24#24#24#24#23#24#23#24#24#24#24#23#23#24#23#25
+  +#25#25#25#25#25#26#25#26#26#26#27#28#29#29#28#29#28#28#28#28#28#27#28#28#28
+  +#27#28#28#27#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#27#27#27#27#27
+  +#27#27#27#27#27#27#24#24#24#21#21#21#20#20#19#20#19#19#19#19#18#19#18#18#19
+  +#18#18#19#17#18#18#17#17#18#17#17#18#17#17#17#17#17#17#16#17#17#17#17#17#16
+  +#17#17#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#15#15#15#15
+  +#15#15#15#15#15#15#15#15#15#15#15#15#14#14#14#14#15#15#15#15#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#13#14#13#14#14#12#12#13#12#12#12#13#12#12#12
+  +#12#12#12#12#11#11#12#12#12#12#12#11#11#11#11#11#11#11#11#10#10#10#9#9#9#8#9
+  +#9#9#8#9#10#10#9#11#11#12#25#25#25'''''''-..554;;;887'#5#6#6#5#5#5#5#5#6#5#5
+  +#5#5#5#5#4#4#5#5#5#5#5#4#5#4#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3#3#3#3
+  +#4#4#3#3#4#3#4#4#3#3#4#3#3#3#3#3#3#2#3#3#3#3#3#2#3#2#3#3#2#2#3#3#2#2#3#2#2#2
+  +#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#2#1#1#1#2#2#1#2#1#1#1#1#1#2#3#3#5#1#1
+  +#1'000yyy0000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000222444555777999;;;===444...////////////////'
+  +'/0888:::::::::::9::9::9::9:99:99:99:99:999999999999999999999999999999999999'
+  +'99998998998988111000000000000101222::::::::::::::::::::::::::::::::9::9::9:'
+  +'99:99:99:99999999999999999999999999999999999998998988988988988888888888988;'
+  +'::;;;;;;;;;;;;<<<<<;=<<<<<::::::;;;;;;===>>>???AAABBBDDDFFFHHGJJILKKNMMQPPS'
+  +'RRUTTXXX[[[_^^a``cccgggjjjnnnqqquuuyyy}}}'#129#129#129#134#134#134#138#138
+  +#138#142#142#142#147#147#147#152#152#152#157#157#157#161#161#161#167#167#167
+  +#171#171#171#176#176#176#182#182#181'ttt^^^``````aaaaaa___]]]]]]\\\[[[ZZZYYY'
+  +'YYYYYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOOOONNNNNNMMMLLL'
+  +'LLLLLLKKKJJJJJJJJJIIIHHHGGGGGGGGGFFFEEEEEEEEEDDDDDDBBBBBBBBBBBB@@@@@@@@@@@@'
+  +'???>>>======;;;999666222///*)&$&0'#11'4'#213#4'9'#255#4'7'#255#4'6'#255#3'5'
+  +#255#2'5'#255#0'4'#255#3'2'#241'$)>*)$***++++++******))))))((((((((()))*****'
+  +'*******+++************))))))''''''''''''''''''&&&''''''''''''(((***,,,...//'
+  +'/000111111000///---***(((%%%"""   '#30#30#30#29#29#29#28#28#28#27#27#27#25
+  +#25#25#25#25#25#25#25#25#25#25#25#23#23#23#23#23#23#23#23#23#23#23#23#22#22
+  +#22#21#21#21#19#19#19#19#19#19#17#17#17#16#16#16#14#14#14#13#13#13#12#12#12
+  +'544'#175#175#174#169#168#169#163#163#163#158#158#158#152#152#152#147#147#146
+  +#142#142#141#137#136#136#131#131#131'~~~yyytttppolllgggbbb___[[[WVWRRROOOLLL'
+  +'IIIEDEBBC@@@=<=:;:7875553330/0/./-,,++*)((((''&%%"!!'#31#31#31#29#29#29#28
+  +#28#28#28#27#27#26#26#25#25#24#24#24#24#24#23#23#22#22#23#23#22#23#23#22#22
+  +#23#22#22#22#22#22#22#22#21#22#22#21#21#21#21#21#21#21#21#21#22#21#21#21#21
+  +#21#21#21#20#21#21#21#20#21#21#21#21#23#22#22#24#24#24#26#26#26#28#27#28#28
+  +#28#27#29#28#27#28#28#28#28#28#28#28#27#28#27#28#27#27#27#28#27#27#27#28#27
+  +#27#28#27#27#28#27#27#26#25#24#21#21#21#19#19#18#19#19#18#19#18#18#19#18#18
+  +#19#18#18#18#17#17#18#17#17#17#18#18#17#17#17#17#17#17#17#17#17#16#17#17#16
+  +#17#17#16#16#16#16#17#16#16#16#16#16#16#16#16#16#16#15#16#15#15#15#15#15#15
+  +#15#15#15#15#15#15#15#15#15#15#14#14#15#15#15#15#14#15#15#15#15#15#14#14#14
+  +#13#14#14#13#14#14#13#13#14#13#13#13#13#12#12#12#13#12#12#12#12#11#12#12#12
+  +#11#11#12#12#11#11#11#12#11#11#11#11#11#12#10#9#9#9#9#9#9#9#9#8#8#8#10#9#9#14
+  +#15#14'###)))000999==<'#30#30#30#6#5#5#6#6#5#5#5#6#5#5#5#5#5#5#5#4#5#5#5#4#5
+  +#4#4#5#4#4#4#5#4#5#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#3#4#3#4#4#3#4#3#3#3
+  +#3#3#3#3#3#3#3#3#3#3#3#2#3#3#2#2#2#2#3#2#2#3#3#2#2#2#3#2#2#2#2#2#2#2#2#2#2#2
+  +#1#2#2#1#2#2#1#2#1#2#2#1#1#1#1#1#1#1#1#1#1#1#3#3#3#2#1#2'000yyy0000000000000'
+  ,'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000222444555777999;;;===444.../////////////////0888::::::::::::::9::9:'
+  +':9::9:99:99:99:99:999999999999999999999999999999999999999999989989886550000'
+  +'00000000000101655::::::::::::::::::::::::::::::::9::9::9:99:99:99:999999999'
+  +'99999999999999999999999999998998988988988988888888888888:::;;;;;;;;;<<<<<<='
+  +'=<=<<>===<<;;;;;;===>>>???AAABBBDDDFFFGGFJJILKKNMMQPPSRRUTTXXX[ZZ^]]a``cccg'
+  +'ggjjjmmmqqquuuxxx|||'#129#129#129#133#133#133#138#138#138#142#142#142#146
+  +#146#146#151#151#151#156#156#156#160#160#160#166#166#166#171#171#171#176#176
+  +#176#182#182#182'}}}```aaaaaabbbbbb```___]]]]]][[[[[[ZZZYYYYYYYYYXXXWWWWWWWW'
+  +'WVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOOOONNNNNNLLLLLLLLLLLLJJJJJJJJJJJ'
+  +'JIIIHHHGGGGGGGGGFFFEEEEEEEEEDDDDDDBBBBBBBBBBBB@@@@@@@@@@@@???>>>===<<<99966'
+  +'6333///+++(%'#27#27')a'#5'9'#254#5'8'#255#4'7'#255#4'6'#255#3'5'#255#0'5'
+  +#255#15'0'#178',*"--,...//////......---,,,,,,+++++++++,,,,,,,,,+++++++++++++'
+  +'++******))))))(((''''''''''''&&&'''''')))+++---222444666888999999888555111.'
+  +'..***&&&###   '#31#31#31#29#29#29#28#28#28#26#26#26#25#25#25#25#25#25#25#25
+  +#25#25#25#25#23#23#23#23#23#23#23#23#23#23#23#23#22#22#22#20#20#20#19#19#19
+  +#18#18#18#16#16#16#15#15#15#13#13#13#12#12#12'BBB'#175#175#175#169#168#168
+  +#163#163#163#158#157#157#151#151#151#146#146#146#141#141#141#136#135#135#131
+  +#130#130'~~~yyytttoookkkgggbbb^^^ZZZWWWSRROOOKKKIIHFFFCCC@@?===:;;7885552220'
+  +'00//.,,+*)(&&&###"!"  '#31#30#30#31#29#29#29#29#28#28#28#27#26#26#26#25#25
+  +#24#24#25#24#25#23#23#23#23#23#23#23#23#23#23#23#23#23#23#22#22#22#22#22#22
+  +#22#22#22#22#22#22#22#21#22#22#22#22#21#21#21#21#21#21#21#21#21#21#20#20#21
+  +#20#20#21#20#20#21#20#19#20#20#19#20#19#19#19#20#21#20#24#23#24#26#26#26#28
+  +#28#28#28#28#28#28#28#28#27#28#28#27#27#28#27#27#27#27#27#27#28#27#27#28#26
+  +#27#28#27#27#26#26#25#21#22#21#19#19#18#19#18#18#18#17#18#19#18#18#18#18#17
+  +#17#18#17#17#17#17#17#17#17#17#17#17#17#16#17#16#16#17#16#16#16#17#17#16#16
+  +#17#16#16#16#16#16#16#16#15#15#16#16#16#15#15#16#16#16#15#15#15#15#15#14#15
+  +#15#15#15#14#15#15#15#15#14#14#15#15#15#14#14#14#14#15#14#14#14#14#14#13#13
+  +#13#13#14#13#12#12#13#13#13#13#12#12#12#12#12#12#12#12#11#11#12#12#12#12#12
+  +#12#12#11#10#11#9#9#9#9#9#9#9#9#9#10#10#9#12#12#12#25#24#24'&&&---444;;;;;;'
+  +#10#10#10#5#6#6#6#6#5#5#5#5#6#5#5#5#5#5#5#5#5#4#5#5#5#5#5#4#5#4#5#5#5#4#5#5#5
+  +#4#5#4#4#4#4#4#4#4#4#3#4#4#4#4#4#4#4#3#3#3#3#3#4#3#3#4#3#3#4#3#3#3#3#3#3#3#3
+  +#3#3#3#3#2#2#2#2#2#3#3#3#2#2#2#3#3#2#2#2#3#2#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#1#2#2#1#1#1#1#1#1#2#3#3#3#1#1#1'000yyy0000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000222444555777999;;;='
+  +'==444.../////////////////0888::::::::::::::::::::9::9::9::9:99:99:99:99:999'
+  +'99999999999999999999999999999999999998998988988111000000000000000111:::::::'
+  +'::::::::::::::::::::::::::::9::9::9:99:99:99:999999999999999999999999999999'
+  +'99999998998988988988988888888888888::9;;;;;;<<<<<<=====<>==>==???<<<===>>>?'
+  +'??@@@BBBDDDFFFGGFJJILKKNMMQPPSRRUTTXWW[ZZ^]]a``cbbfffjjjmmmqqquuuxxx|||'#128
+  +#128#128#133#133#133#137#137#137#141#141#141#146#146#146#150#150#150#155#155
+  +#155#160#160#160#165#165#165#171#171#171#175#175#175#181#181#181#134#134#134
+  +'bbbbbbccccccbbbaaa```]]]]]]\\\\\\[[[ZZZYYYYYYYYYXXXWWWWWWWWWVVVVVVTTTTTTTTT'
+  +'TTTRRRRRRRRRRRRQQQPPPOOOOOOOOONNNNNNLLLLLLLLLLLLJJJJJJJJJJJJIIIHHHGGGGGGGGG'
+  +'FFFEEEEEEEEEDDDDDDBBBBBBBBBBBB@@@@@@@@@@@@???===<<<:::888333000+++''''&$#'
+  +#28#15'1'#181#4':'#255#5'8'#255#4'7'#255#3'6'#255#2'5'#255' .j1. 11133333344'
+  +'4444222000000...---......------------,,,,,,,,,++++++***))))))((('''''''''''
+  +'''&&&''''''(((,,,///333888<<<>>>@@@@@@@@@===999555000,,,''''''###   '#31#31
+  +#31#29#29#29#28#28#28#27#27#27#25#25#25#25#25#25#25#25#25#25#25#25#23#23#23
+  +#23#23#23#23#23#23#22#22#22#21#21#21#20#20#20#18#18#18#16#16#16#15#15#15#14
+  +#14#14#12#12#12'RRR'#174#174#173#168#168#167#163#163#162#157#156#156#151#150
+  +#150#146#145#145#141#139#140#135#134#134#130#129#129'}}}yyysssoookkkfffbbb^^'
+  +'^ZZZVVVRRQOOPLLLIIIEEECBCA@?==<;;;788556111...,++())&&&&%%###"""'#31' '#31
+  +#31#30#30#29#29#29#29#29#29#28#27#27#27#26#26#26#25#25#25#24#24#24#23#23#23
+  +#23#23#23#22#23#23#22#22#22#22#23#22#22#23#22#22#22#22#22#22#22#22#22#21#21
+  +#22#22#22#22#21#22#21#22#21#21#21#21#21#21#21#21#21#21#20#20#20#20#21#20#21
+  +#20#20#20#20#19#20#19#19#19#18#19#18#18#19#18#20#19#20#22#22#22#26#26#26#28
+  +#28#28#28#28#28#28#28#27#27#28#27#27#27#27#28#27#27#28#27#26#27#27#26#27#27
+  +#27#25#26#26#21#21#21#19#18#18#19#18#17#18#18#18#18#17#17#18#17#18#18#17#17
+  +#17#18#17#17#17#16#17#17#17#17#16#16#16#16#17#16#16#16#16#16#16#16#16#16#15
+  +#16#15#16#15#16#15#16#16#15#15#15#15#15#15#15#15#15#15#15#15#15#15#15#14#14
+  +#14#14#14#15#14#14#14#15#14#14#14#14#14#14#13#14#14#13#13#13#12#13#14#12#13
+  +#12#12#12#12#13#12#12#12#12#11#11#12#12#12#12#12#11#12#10#9#9#9#9#9#9#9#10#9
+  +#9#9#10#10#10#14#14#13'"!")))000888===###'#5#6#6#5#5#6#5#6#6#5#6#6#6#5#6#6#5
+  ,#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#4#4#5#5#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4
+  +#4#3#3#3#4#3#3#4#3#3#4#3#3#4#3#3#3#3#3#3#3#3#3#2#3#3#2#3#3#3#3#2#2#2#2#2#2#3
+  +#3#2#3#2#3#2#2#2#2#2#2#2#2#2#2#2#1#2#1#2#1#2#2#2#1#1#1#1#1#1#5#3#5#1#2#1'000'
+  +'yyy000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000222444555777999;;;===444.../////////////////0888:::::::::'
+  +'::::::::::::::9::9::9::9:99:99:99:99:99999999999999999999999999999999999999'
+  +'998998998988555000000000000000000655;::::::::::::::::::::::::::::::::::9::9'
+  +'::9:99:99:99:99999999999999999999999999999999999998998988988988988888888888'
+  +'888999;;;<<<<<<======>>=>==@?????@@@??????@@@BBBDDDFFFGGGJJILLKNMMQPPSRRUTT'
+  +'XWW[ZZ]\\a``cbbfffjjjmmmqqquuuxxx|||'#128#128#128#132#132#132#136#136#136
+  +#141#141#141#146#146#146#150#150#150#155#155#155#160#160#160#164#164#164#170
+  +#170#170#175#175#175#180#180#180#143#144#144'cccddddddccccccbbb```___]]]\\\\'
+  +'\\\\\[[[ZZZYYYYYYYYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOO'
+  +'OONNNNNNLLLLLLLLLLLLJJJJJJJJJJJJIIIHHHGGGGGGGGGFFFEEEEEEEEEDDDCCCBBBBBBBBBB'
+  +'BB@@@@@@@@@???>>>===;;;888666111---)))&%'#29#31'&E'#8'8'#243#5'9'#255#5'8'
+  +#255#4'7'#255#2'6'#255#22'2'#159'22/65.:::???AAA???<<<999444222000000///....'
+  +'........---,,,,,,,,,+++***)))((((((''''''&&&&&&&&&&&&***///443;:8AA>EEBHHFH'
+  +'HHGGHEEEAAA<<<777222,,,''''''###   '#30#30#30#29#29#29#28#28#28#26#26#26#25
+  +#25#25#25#25#25#25#25#25#25#25#25#23#23#23#23#23#23#22#22#22#21#21#21#20#20
+  +#20#18#18#18#16#16#16#15#15#15#14#14#14#12#12#12'ddd'#173#173#173#167#167#167
+  +#162#162#161#156#155#155#151#151#150#146#145#145#141#140#140#135#135#134#130
+  +#129#129'}||xxxsssooojijfffbbb]^]ZZZVVUSRRPPOKLKIIIEEECBCA??>=<;::765233//.-'
+  +'--+++)()&&&%%&##$"""  '#31#31#31#31#29#30#30#30#29#29#28#28#28#27#26#26#26
+  +#25#25#26#25#25#24#24#23#24#24#23#23#23#23#23#23#23#23#22#22#23#22#22#22#22
+  +#22#22#22#23#22#22#22#22#22#22#21#22#22#21#22#21#22#21#21#21#21#21#21#21#21
+  +#21#20#21#21#21#21#21#21#21#20#20#20#20#19#20#20#19#20#19#19#19#18#18#19#18
+  +#18#19#18#18#18#19#18#18#19#19#19#23#24#24#27#27#26#27#28#27#27#27#28#28#27
+  +#27#28#27#27#27#27#27#28#27#26#27#27#27#27#27#27#26#25#26#20#19#19#18#18#18
+  +#18#17#18#17#18#18#17#17#17#17#17#17#17#17#17#17#17#17#17#16#16#17#17#16#17
+  +#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#15#16#16#15#15#16#16#15#15
+  +#15#15#15#15#15#15#15#15#15#14#14#15#14#15#15#14#14#14#15#14#14#14#14#14#14
+  +#14#13#14#14#13#13#13#12#13#13#13#12#12#12#13#12#12#12#12#12#12#12#12#12#11
+  +#11#11#10#10#9#10#10#9#9#9#9#10#10#10#12#12#12#25#25#25'&&&---444::::::'#10
+  +#10#10#6#6#6#6#6#6#6#6#6#6#6#5#5#5#6#6#5#6#5#6#5#5#5#5#5#5#5#5#4#5#4#5#4#4#5
+  +#4#5#4#5#5#4#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#3#3
+  +#3#3#3#3#3#3#3#3#3#3#3#3#2#2#3#3#2#3#3#3#3#2#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#1#2#2#2#1#2#1#1#2#1#2#3#3#5#1#1#2'000yyy000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000222444555777999;;;==='
+  +'444.../////////////////0888::::::::::::::::::::::::::9::9::9::9:99:99:99:99'
+  +':99999999999999999999999999999999999999999998998988988111000000000000000000'
+  +'999;::::::::::::::::::::::::::::::::::9::9::9:99:99:99:99999999999999999999'
+  +'999999999999999998998988988988988888888888888998<<;<<<======>>>>>=@??@??@@@'
+  +'BBBBAAAAABBBCCCEEEGGGJJILLKMMMPOORQQUTTXWWZYY]\\`__cbbfffjjjlllppptttxxx|||'
+  +#128#128#128#131#131#131#136#136#136#141#141#141#145#145#145#149#149#149#154
+  +#154#154#159#159#159#164#164#164#169#169#169#174#174#174#179#179#179#154#154
+  +#154'dddeeeffffffeeebbbbbb```^^^]]]\\\\\\\\\[[[ZZZYYYYYYYYYXXXWWWWWWWWWVVVVV'
+  +'VTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOOOONNNNNNLLLLLLLLLLLLJJJJJJJJJJJJIIIHH'
+  +'HGGGGGGGGGFFFEEEEEEEEEEEEDDDDDDCCCCCCBBBBBBAAA@@@@@@>>>;;;999777333///***'''
+  +'''''&$'#24#21'.'#149#5':'#255#6'8'#255#5'8'#255#4'7'#255#1'7'#255#18'4'#189
+  +'89DGD<JJJLLLJJJFFFAAA<<<888444111000000//////......---,,,,,,+++***))))))'''
+  +'''''''''''&&&%%%%%%%%%''&#.,!33.99>?@FFGLNMJSQFQPKMMLIIIDDD>>>777111+++&&&"'
+  +'""'#31#31#31#29#29#29#29#29#29#27#27#27#26#26#26#25#25#25#25#25#25#25#25#25
+  +#25#25#25#24#24#24#23#23#23#22#22#22#21#21#21#19#19#19#17#17#17#15#15#15#14
+  +#14#14#13#13#13'uuu'#172#172#172#166#166#166#161#161#161#156#155#156#150#150
+  +#149#145#144#144#140#139#139#135#134#134#130#129#130'}}|wwwsssnnojjjfffbbb]\'
+  +'][[[VVVSSSOOOKKLHHHEEECCC>?>;::666555112//.-,,***())&&&&&&#$#!!!   '#31#31
+  +#31#29#29#30#30#30#29#28#28#28#27#27#27#26#25#25#25#25#25#24#24#23#25#23#24
+  +#24#23#24#23#23#23#23#23#23#23#23#23#22#22#22#22#22#22#22#22#22#22#22#22#22
+  +#22#22#22#21#21#21#21#22#21#21#22#21#21#21#21#21#21#21#21#21#20#21#21#20#20
+  +#20#21#20#20#20#19#20#20#19#19#19#19#19#19#19#19#18#19#18#18#18#18#18#18#18
+  +#18#18#18#18#18#18#22#22#21#27#27#26#27#28#28#27#28#28#28#27#27#28#26#27#28
+  +#27#27#27#28#27#28#27#27#28#27#27#23#23#23#18#18#17#17#18#18#18#18#18#17#17
+  +#17#18#17#17#17#17#17#17#17#17#17#17#16#17#17#17#17#16#16#17#16#17#16#16#16
+  +#16#16#16#15#16#16#16#15#16#15#15#15#15#15#15#16#15#15#15#15#15#15#15#15#15
+  ,#15#14#14#14#14#15#14#15#14#15#14#14#14#14#14#13#14#14#13#13#14#12#13#13#13
+  +#12#12#13#13#12#12#13#12#12#13#12#12#12#10#10#10#10#9#10#9#10#9#9#9#9#11#11
+  +#10#14#15#14'!!!(((000777===***'#6#7#6#6#6#6#6#6#6#6#6#6#5#6#6#6#6#5#5#6#5#5
+  +#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#4#4#5#4#5#5#5#4#4#4#4#4#4#4#4#3
+  +#4#4#4#4#4#3#4#4#4#3#3#4#4#3#3#3#3#4#3#4#3#3#3#3#2#3#3#2#3#2#3#3#2#2#2#2#2#3
+  +#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#1#2#2#1#1#2#2#2#1#2#2#1#3#3#3#2#1#1'000yyy0'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000222444555777999;;;===444.../////////////////0888:::::::::::::::::::'
+  +':::::::::::::9::9::9::9:99:99:99:99:999999999999999999999999999999999999999'
+  +'98998998988666000000000000000000434;::;::::::::::::::::::::::::::::::::::9:'
+  +':9::9:99:99:99:999999999999999999999999999999999999989989889889889888888888'
+  +'88888999;;;======>>>>>>@@?@??A@@BBBBBBDDDEEEDDDEEEGGGJJIKKJMMMPOORQQTTTXWWZ'
+  +'YY\[[___cbbfeeiiilllpppssswww{{{'#131#131#131#135#135#135#140#140#140#144
+  +#144#144#149#149#149#153#153#153#158#158#158#164#164#164#168#168#168#174#174
+  +#174#178#178#178#165#165#165'fffgggggggggfffdddcccaaa___^^^\\\\\\\\\\\\[[[ZZ'
+  +'ZYYYYYYYYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOOOONNNNNNLL'
+  +'LLLLLLLLLLJJJJJJJJJJJJIIIHHHGGGGGGGGGFFFFFFFFFFFFEEEEEEDDDDDDDDDCCCBBBBBBAA'
+  +'A???>>>;;;888555000---))*''&!#''2'#11'7'#225#5':'#255#6'9'#255#5'8'#255#4'7'
+  +#255#0'6'#255#15'7'#217'?F`SPDRQQPPPLLLGGGAAA;;;888444222000000//////......-'
+  +'--,,,+++***)))(((''''''&&&%%%%%%%%#''%'#27'#%0'#24'''r'#16'('#168#11'('#195
+  +#11'('#198#12')'#196#25'0'#177'-<'#144'JNbWUKPPMJJKDDD===666///***%%%!!!'#30
+  +#30#30#29#29#29#28#28#28#27#27#27#27#27#27#25#25#25#25#25#25#25#25#25#25#25
+  +#25#23#23#23#22#22#22#21#21#21#19#19#19#17#17#17#15#15#15#14#14#14#15#15#15
+  +#140#140#139#172#172#171#166#166#166#160#160#160#155#155#155#150#149#149#144
+  +#144#144#139#138#138#134#133#133#129#129#129'|||wwwrrrmmmiiieeebaa]]]ZZZUUUS'
+  +'SSONOKJJHHIFEEA@@<<<:9:666444222///---*+*(((&&&$%%$$$!!!   '#31#31#31#30#30
+  +#30#30#29#30#29#28#29#27#27#27#26#26#26#26#25#25#25#24#23#25#24#23#24#24#23
+  +#24#23#23#23#23#23#23#22#23#23#23#23#23#22#22#23#22#22#22#22#22#22#22#22#22
+  +#22#21#21#22#22#22#22#22#21#21#21#21#21#21#21#21#21#21#21#21#21#20#20#21#21
+  +#21#20#20#21#20#19#20#20#19#20#19#19#19#19#19#18#19#19#19#18#18#19#18#18#18
+  +#18#18#18#18#18#18#17#17#18#20#20#21#25#25#25#27#28#27#28#27#27#28#26#27#28
+  +#27#27#28#27#27#27#28#28#27#27#27#26#26#26#21#20#20#17#18#18#18#17#18#17#17
+  +#17#18#17#17#17#17#17#17#16#17#16#16#17#16#17#17#16#17#16#16#17#17#17#16#16
+  +#16#16#15#16#16#15#16#15#16#16#16#16#15#15#15#15#15#15#15#15#15#15#15#15#15
+  +#14#15#15#15#15#14#14#14#14#14#14#14#14#14#14#13#14#14#13#13#14#13#13#13#12
+  +#12#13#12#12#12#13#13#13#11#12#10#10#10#10#9#10#10#10#10#11#10#11#12#11#11#22
+  +#22#23'%&%+++333999>>>'#14#13#13#6#6#6#7#6#6#6#6#6#6#6#6#6#5#6#6#6#6#5#6#6#5
+  +#6#5#5#5#6#5#5#5#6#5#6#5#5#4#5#5#5#4#5#4#4#5#5#4#5#5#4#5#4#4#4#5#4#4#4#4#4#4
+  +#4#4#4#4#4#4#4#4#3#4#3#4#3#4#4#3#4#4#3#3#3#3#3#3#3#3#3#3#2#3#3#3#3#3#3#2#2#3
+  +#3#3#3#2#2#2#3#2#3#2#2#3#2#2#2#2#2#2#2#2#1#2#2#2#2#1#2#1#5#5#5#2#2#2'000yyy0'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000222444555777999;;;===444.../////////////////0888::::::::::::::::::::::'
+  +':::::::::::::9::9::9::9:99:99:99:99:999999999999999999999999999999999999999'
+  +'98998998988988222000000000000000000777;::;:::::::::::::::::::::::::::::::::'
+  +':9::9::9:99:99:99:999999999999999999999999999999999999989989889889889888888'
+  +'88888999999;;;===>>>>>>@@@@@?A@@CBBBBBDDDEEEGGGIIHIIIJIIKKJMMLONNQPPTTTWVVZ'
+  +'YY\[[___bbbfeehhhlllooosssvvvzzz'#131#131#131#135#135#135#138#138#138#143
+  +#143#143#148#148#148#153#153#153#157#157#157#162#162#162#168#168#168#173#173
+  +#173#178#178#178#176#176#176'kkkhhhhhhhhhgggeeecccaaa___^^^]]]\\\\\\\\\\\\[['
+  +'[ZZZYYYYYYYYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRRRRRQQQPPPOOOOOOOOONNNNN'
+  +'NLLLLLLLLLLLLJJJJJJJJJJJJIIIHHHGGGGGGHHHGGGFFFFFFGGGGGGGGGGGGGGGGGGFFFDDDCC'
+  +'CAAA???===999666333///+++((((%'#25#27'-v'#6';'#255#6'9'#255#6'9'#255#5'8'
+  +#255#4'7'#255#0'5'#255#11'7'#232'<HyVSFQQPMMMHHHAAA<<<999555333222111000////'
+  +'//......,,,+++***)))(((&&&%%%#$$$#'#31'$#'#29#22'%n'#5'&'#205#0'%'#238#0'#'
+  +#236#0'#'#231#0'#'#229#0'"'#228#0' '#229#0#31#229#7'%'#212',;'#150'RSTPPJIII'
+  +'BBB:::222,,,''''''###   '#29#29#29#29#29#29#28#28#28#27#27#27#27#27#27#25#25
+  +#25#25#25#25#25#25#25#24#24#24#22#22#22#21#21#21#19#19#19#18#18#18#16#16#16
+  +#14#14#14#21#21#21#161#161#161#172#172#171#166#165#165#160#159#159#154#153
+  +#153#149#148#148#144#143#143#138#137#137#133#132#132#128'{{{wwwrrrmmmhhhff'
+  +'eaaa]]]YYXVUURRROOOJJJGGGCBB?@?;;<898555544111//.,-,***(((&&&%%%$$#"!"   '
+  +#31#31#31#30#30#30#30#29#30#29#29#29#27#27#28#26#26#27#26#26#26#25#24#24#25
+  +#24#23#24#24#24#25#23#23#24#23#23#23#23#23#23#23#23#23#23#23#22#22#23#23#22
+  +#22#22#22#22#22#22#22#22#22#22#22#22#22#22#21#22#22#21#21#21#21#21#21#21#21
+  +#21#21#21#20#20#20#20#20#21#21#20#20#20#20#20#20#19#20#19#19#19#19#19#18#18
+  ,#18#19#18#18#18#18#18#18#18#18#18#18#18#17#18#18#17#17#18#17#21#21#21#26#26
+  +#26#28#27#27#28#27#27#27#27#27#27#28#27#27#27#27#27#27#27#27#27#27#22#23#23
+  +#17#17#18#18#17#18#17#18#18#17#17#18#18#17#17#17#17#17#17#16#17#17#16#17#16
+  +#16#16#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#15#16#16#15#16#15#15
+  +#15#15#15#15#15#14#15#15#14#15#14#15#14#15#14#14#14#14#14#14#13#14#14#13#13
+  +#14#12#13#13#13#13#13#13#12#12#12#12#11#10#11#11#10#10#10#10#10#10#10#10#11
+  +#10#11#13#13#13#31#30#30'''''''...555;;;)))'#7#7#7#7#6#6#6#6#7#7#6#6#6#6#6#6
+  +#6#6#6#6#6#6#6#6#6#6#5#5#5#6#5#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#4#5#5
+  +#4#4#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#3#3#4#3#3#3#3#3#4#3#3#3#3#3#3#3
+  +#3#2#3#3#3#2#3#3#3#2#3#3#2#3#2#3#3#3#3#2#3#2#2#2#2#2#3#2#2#2#1#2#2#1#2#2#2#3
+  +#5#3#1#2#2'000yyy00000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000222444555777999;;;===444.../////////////////0888;:::::::'
+  +':::::::::::::::::::::::::::::::::9::9::9:99:99:99:99:9999999999999999999999'
+  +'9999999999999999999998998988988766000000000000000000222:::;::;:::::::::::::'
+  +':::::::::::::::::::::9::9::9:99:99:99:9999999999999999999999999999999999999'
+  +'8998988988988988888888999999::::::=<<>>>@@@@@@AA@CBBCBBDDDEEEGGGIIIKKKLLLMM'
+  +'MNNNPPPQQQTSSVUUYXX\[[_^^baafeehggkkknnnrrruuuzzz~~~'#130#130#130#134#134
+  +#134#138#138#138#143#143#143#147#147#147#152#152#152#157#157#157#162#162#162
+  +#167#167#167#172#172#172#178#178#178#181#181#181'wwwiiiiiiiiihhhfffdddbbbaaa'
+  +'___^^^^^^\\\\\\\\\\\\[[[ZZZYYYYYYYYYXXXWWWWWWWWWVVVVVVTTTTTTTTTTTTRRRRRRRRR'
+  +'RRRQQQPPPOOOOOOOOONNNNNNLLLLLLLLLLLLJJJJJJJJJJJJIIIHHHGGGHHHHHHGGGHHHIIIJJJ'
+  +'JJJKKKKKKJJJJJJIIIGGGDDDBBB>>><<<999555111---***(''%''&%'#16'6'#203#6';'#255
+  +#6'9'#255#6'9'#255#5'8'#255#4'7'#255#0'6'#255#4'5'#247'1C'#144'PNDKKIGGGBBB<'
+  +'<<999666444333111000000//////...---,,,***)))''''''%%%##$#"'#31'""!'#14'%'
+  +#150#0''''#239#0'&'#236#0'&'#229#0'%'#227#0'$'#226#0'$'#226#0'$'#225#0'#'#223
+  +#0'"'#222#0'!'#224#0#30#229#25'0'#179'LNWMLGDDE<<<555...)))$$$!!!'#31#31#31
+  +#29#29#29#28#28#28#28#28#28#27#27#27#27#27#27#26#26#26#25#25#25#24#24#24#23
+  +#23#23#21#21#21#19#19#19#18#18#18#16#16#16#14#14#14'+++'#173#173#173#170#170
+  +#170#164#164#163#159#158#158#154#153#153#149#148#148#143#142#142#137#137#137
+  +#133#132#132#128#128'{zzvvvrrrmmmgggedd```]\\XXXVUURPPMMMIIIEDEBAA?>?<<<999'
+  +'655333111///---+++(()&&&$%%$$$"""!! '#31' '#31#30#30#30#30#30#29#29#29#29#27
+  +#28#27#26#27#26#26#26#26#25#25#25#25#24#24#25#24#24#24#24#24#24#23#23#24#23
+  +#23#23#23#23#23#23#22#23#23#22#22#22#22#22#22#22#23#22#22#22#22#22#22#22#22
+  +#22#22#22#22#21#22#21#22#21#21#21#21#21#21#21#20#21#21#21#21#21#21#20#20#20
+  +#20#20#21#19#20#19#19#20#19#19#19#19#18#18#18#19#18#18#19#19#18#18#18#18#18
+  +#18#17#18#18#18#18#18#18#17#18#17#17#17#22#21#21#27#26#27#28#27#27#28#27#26
+  +#28#27#27#28#27#27#27#27#27#27#27#27#25#25#25#20#19#19#18#17#17#17#18#17#18
+  +#18#17#17#17#17#17#17#17#17#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16#16
+  +#16#16#16#16#16#16#15#16#16#15#15#15#15#15#15#15#15#15#15#15#15#15#14#15#14
+  +#15#14#14#14#14#15#14#13#14#14#13#14#14#13#13#13#13#13#13#12#12#12#12#13#10
+  +#10#11#10#10#11#10#10#10#10#9#10#10#10#11#20#20#20'#"#()(0/0666;;;'#14#14#14
+  +#7#7#6#6#7#6#7#7#7#6#7#7#6#7#6#6#6#6#6#6#6#6#5#6#6#5#5#6#5#5#5#5#5#6#6#5#6#5
+  +#5#5#5#5#5#5#5#5#5#4#5#4#5#4#5#4#4#4#5#4#5#4#5#4#4#4#4#4#4#4#4#4#4#3#4#3#4#3
+  +#3#3#3#4#3#3#3#3#4#3#3#3#4#3#3#3#4#3#2#3#3#3#2#3#2#3#3#3#2#3#2#3#3#3#3#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#1#5#5#5#1#2#2'000yyy000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000222444555777999;;;===444...'
+  +'///////////////0/0888;::;::::::::::::::::::::::::::::::::::::::::9::9::9::9'
+  +':99:99:99:99:99999999999999999999999999999999999999998998998988988333000000'
+  +'000000000000555;::;::;::::::::::::::::::::::::::::::::::9::9::9:99:99:99:99'
+  +'999999999999999999999999999999999998998988988988988888999999::::::;;;;;;>>>'
+  +'@@@AAACCBCBBEDDEEEFFFIIIJJJLLLNNNOOORRQTSSUUUXXXZYY\[[___a``eddhggjjjnnnqqq'
+  +'uuuyyy}}}'#129#129#129#134#134#134#138#138#138#143#142#142#147#147#147#152
+  +#152#152#157#157#157#162#161#161#167#167#167#171#171#171#177#177#177#182#182
+  +#182#134#134#134'kkkkkkkkkiiigggeeebbbaaa```___^^^^^^\\\\\\\\\\\\[[[ZZZYYYYY'
+  +'YYYYXXXWWWWWWWWWVVVUUUTTTTTTTTTTTTRRRRRRRRRQQQQQQPPPOOOOOOOOONNNNNNLLLLLLLL'
+  +'LLLLJJJJJJJJJJJJIIIHHHHHHHHHHHHJJJKKKLLLNNNOOOPPPPPPPPPOOOMMMJJJFFFBBB>>>;;'
+  +';777222...+++)()(%'#28' +X'#8':'#249#7':'#255#6'9'#255#6'9'#255#5'8'#255#4
+  +'7'#255#2'6'#255#0'4'#255'$='#164'EEFCCB???;;;888555444333222000000000///...'
+  +'---,,,***(((&&&$$$""!"!'#25#14'%'#143#0'('#246#0''''#233#0''''#230#0'&'#230
+  +#0'&'#229#0'%'#227#0'$'#226#0'$'#226#0'$'#225#0'#'#223#0'#'#222#0'"'#222#0#30
+  +#230#24'/'#175'JIIEDB>>>666///***&&&"""   '#30#30#30#28#28#28#28#28#28#28#28
+  +#28#27#27#27#27#27#27#25#25#25#24#24#24#23#23#23#22#22#22#20#20#20#18#18#18
+  +#16#16#16#14#14#14'HHH'#174#174#174#169#169#169#163#163#163#158#158#158#152
+  +#152#152#147#146#146#142#141#141#136#136#136#131#131#131'~{{zuuuqqqlllghhc'
+  ,'cc```\[[YXXUUUOOOLLKIIHDDDCBB>>><;;888555333000...---***))(''&''%%%$$$!""  '
+  +' '#30#31#30#30#31#30#30#30#30#29#29#29#27#27#28#27#26#26#26#26#27#25#25#25
+  +#25#25#25#25#24#24#25#24#24#24#24#24#24#23#23#24#23#24#23#22#23#23#22#23#23
+  +#23#22#23#22#23#22#23#22#22#22#23#22#22#22#22#22#22#22#21#22#21#21#21#21#21
+  +#21#21#21#21#21#21#21#20#21#20#21#21#20#20#20#20#20#20#20#20#19#20#20#19#20
+  +#19#18#19#19#19#19#18#19#18#19#18#19#18#18#18#18#18#18#18#18#17#18#17#17#17
+  +#18#17#17#17#17#18#17#18#24#23#23#27#27#26#28#27#27#27#28#27#27#28#27#27#27
+  +#28#27#27#27#26#26#26#21#21#21#17#18#18#17#17#18#17#17#17#17#17#17#16#17#17
+  +#17#17#17#17#16#17#16#17#17#16#16#17#16#16#16#16#16#16#15#16#16#16#16#16#16
+  +#15#15#15#16#16#15#15#15#15#15#15#15#15#15#15#15#15#14#14#14#14#14#14#14#14
+  +#14#14#13#13#14#13#13#13#13#13#11#11#12#10#10#10#11#10#11#10#11#10#10#10#10
+  +#11#11#11#29#29#29'#"#)((///565))*'#7#7#7#6#7#7#6#6#7#7#7#6#7#7#7#7#7#6#6#7#6
+  +#6#6#6#6#6#6#6#6#5#5#6#5#5#6#5#6#5#6#5#5#5#5#5#6#5#5#5#5#5#5#4#4#5#4#5#4#4#5
+  +#5#5#4#4#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4#3#4#4#3#4#4#4#3#4#3#3#4#3#3#3#3#4#4#3
+  +#3#3#3#3#3#3#3#2#3#3#2#3#2#2#3#2#3#3#3#2#2#2#2#2#2#2#2#3#2#2#2#2#2#2#2#5#5#5
+  +#2#2#2'000yyy000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000222444555777999;;;===444...///////////////0/0888;::;::;::;::::::::'
+  +':::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:99999999999999999999999'
+  +'999999999999999998998998988988888101000000000000000000888;::;::;:::::::::::'
+  +':::::::::::::::::::::::9::9::9:99:99:99:99999999999999999999999999999999999'
+  +'998998988988988988999999::::::;;;;;;<<<===@@@BBBCCBEDDFEEFFFIIIJJJLLLMMMOOO'
+  +'RRQTTSVUUYXX[[[]]]```cccfffiiilllpppssswwvzzz~~~'#130#130#130#134#134#134
+  +#138#138#138#143#143#143#147#147#147#152#152#151#156#156#156#161#161#161#166
+  +#165#165#171#171#171#176#176#176#182#182#182#149#149#149'lllllllllkkkiiifffc'
+  +'ccaaaaaa___^^^^^^^^^\\\\\\\\\\\\[[[ZZZYYYYYYYYYXXXWWWWWWWWWWWWVVVUUUUUUUUUT'
+  +'TTTTTSSSRRRRRRQQQPPPPPPOOOOOONNNNNNLLLLLLLLLLLLKKKJJJJJJIIIHHHHHHHHHIIIJJJL'
+  +'LLNNNQQQTTTUUUWWWVVVVVVTTTQQQMMMGGGAAA<<<999555000,,,)))''''&''$'#24#19'4'
+  +#178#6'<'#255#7':'#255#6'9'#255#6'9'#255#5'8'#255#4'7'#255#2'6'#255#2'4'#255
+  +'3;[?=8;;;999777555444444333111000000000...---+++***''''''%%%###" '#22#22'#\'
+  +#0')'#241#0'('#236#0'('#232#0''''#231#0''''#231#0'&'#230#0'&'#229#0'%'#227#0
+  +'$'#226#0'$'#226#0'$'#225#0'#'#223#0'#'#222#0'"'#222#0#31#229'''5'#135'EC9<<'
+  +'<666000***&&&###!!!'#31#31#31#29#29#29#28#28#28#28#28#28#28#28#28#27#27#27
+  +#26#26#26#25#25#25#23#23#23#22#22#22#20#20#20#17#17#17#16#16#16#14#14#14'ggg'
+  +#174#174#174#169#169#168#163#162#162#157#156#156#151#151#151#146#146#146#141
+  +#141#141#136#135#135#130#130#130'}}}xxxtttppplllgggcbc_``[[[VVVSRSOOOKKKIHGE'
+  +'EDBA@?==<;<988555333111.//---***(''(&&''&%&###"""!!!'#30#30#31#30#30#30#30
+  +#30#31#29#29#29#27#28#28#27#27#27#27#26#26#25#26#25#25#25#25#25#25#25#25#24
+  +#24#25#24#24#24#24#24#25#23#23#24#23#23#23#23#23#23#22#23#23#23#23#23#22#23
+  +#22#23#22#22#22#22#22#22#22#22#21#22#22#21#21#21#22#21#21#21#21#21#21#21#21
+  +#21#21#21#21#20#20#21#20#20#21#20#20#20#21#20#19#20#20#19#20#19#19#19#19#19
+  +#19#18#19#18#18#18#18#18#18#18#18#18#18#18#18#18#18#17#18#18#18#17#17#17#18
+  +#17#17#17#19#19#19#26#26#26#28#27#27#27#28#27#27#27#27#28#27#27#27#27#27#27
+  +#26#27#22#22#23#17#18#18#17#17#17#17#17#17#17#17#17#16#17#16#17#17#16#17#16
+  +#16#17#17#16#16#16#16#16#16#16#16#16#16#16#16#15#15#16#16#15#16#16#15#16#15
+  +#15#15#15#15#15#15#15#15#15#14#15#14#15#14#15#14#13#14#15#13#14#14#13#14#13
+  +#13#13#11#11#11#11#11#10#10#11#10#10#10#11#10#10#11#15#15#15#31#31#31'#"#)()'
+  +'...343'#19#19#19#8#7#7#7#7#7#7#7#7#7#6#7#7#6#7#6#6#6#6#7#6#7#6#7#6#6#6#5#6#6
+  +#6#6#6#5#6#5#6#6#6#6#5#5#5#5#5#5#5#6#5#5#5#5#5#5#5#5#5#4#5#4#5#4#4#5#5#5#4#4
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#4#4#3#3#4#4#3#4#3#3#3#3#3#3#3#3#3#3#3#2
+  +#3#3#3#3#3#3#3#3#3#2#3#2#3#2#2#2#3#3#2#3#2#2#2#2#2#2#5#5#5#2#2#2'000yyy00000'
+  +'000000000000000000000000000000000000000000000000000000000000000022244455577'
+  +'7999;;;===444...///////////////0/0888;;:;::;::;::;:::::::::::::::::::::::::'
+  +':::::::::::::::9::9::9:99:99:99:99:99:9999999999999999999999999999999999999'
+  +'9998998988988988555000000000000000000222:::;::;::;:::::::::::::::::::::::::'
+  +':::::::::9::9::9:99:99:99:9999999999999999999999999999999999999899898898898'
+  +'8:99999::::::;;;;;;<<<======???AAADDDFEEGFFHHHIIIKKKMMMOOORRRTTSVVUYXX[ZZ]]'
+  +']___cccfffiiilllpposssvvvzzz~~~'#129#129#129#133#133#133#138#138#138#142#142
+  +#142#146#146#146#151#151#151#156#156#155#160#160#160#165#164#164#170#170#170
+  +#175#175#175#180#180#180#164#164#164'mmmnnnmmmlllkkkhhheeecccaaa```______^^^'
+  +'^^^\\\\\\\\\\\\[[[ZZZYYYYYYYYYXXXXXXXXXXXXWWWWWWVVVVVVVVVUUUTTTSSSTTTSSSRRR'
+  +'QQQPPPPPPOOONNNNNNLLLLLLLLLKKKJJJIIIIIIHHHHHHGGGHHHJJJMMMQQQTTTXXX\\\^^^^^^'
+  +'^^^\\\YYYTTTNNNFFF???;;;666222---)))(&'#30'"(@'#14'9'#224#8'<'#255#8';'#255
+  +#7':'#255#6'9'#255#6'9'#255#5'8'#255#3'7'#255#7'6'#240'35B773777666555555444'
+  +'444333222222111000///---+++)))&&&$$$"!'#31#31#31#31#6''''#192#0'*'#245#0')'
+  ,#234#0'('#234#0'('#233#0''''#231#0''''#231#0'&'#230#0'&'#229#0'%'#227#0'$'
+  +#226#0'$'#226#0'$'#225#0'#'#223#0'#'#222#0'!'#226#6'$'#204'7:F884333///***&&'
+  +'&###!!!'#31#31#31#30#30#30#29#29#29#28#28#28#28#28#28#28#28#28#26#26#26#25
+  +#25#25#23#23#23#22#22#22#20#20#20#18#18#18#16#16#16#15#15#15#133#133#133#173
+  +#173#173#167#167#166#162#162#161#156#155#155#150#150#150#145#145#145#140#140
+  +#140#135#135#135#129#130#129'}}}xwxtstoookkkfffccc_^_ZZZUUVRRROONKJKIHHDDCAB'
+  +'A?>=<;;9886553330/0...,,,***(((''''''%%%###!!!!!!'#31#31#31#30#30#30#31#31
+  +#30#28#28#28#28#28#28#27#27#27#27#27#27#25#25#26#25#25#25#25#25#25#25#25#24
+  +#25#24#24#25#24#24#24#24#24#24#23#24#24#23#24#23#23#23#23#23#23#23#23#22#22
+  +#22#23#23#22#22#22#22#22#22#22#22#22#22#22#21#22#22#21#21#21#21#21#21#21#21
+  +#21#21#21#21#21#20#21#20#20#21#20#20#21#20#20#20#20#19#20#20#19#20#19#19#19
+  +#19#18#18#18#19#18#19#18#18#18#18#18#18#18#18#18#18#18#17#18#18#17#17#17#17
+  +#17#17#17#17#17#17#17#17#23#23#24#28#27#27#28#27#27#27#28#28#27#27#27#27#27
+  +#27#27#27#27#24#24#23#19#19#18#17#17#17#17#17#17#17#17#17#17#17#17#17#16#17
+  +#17#16#17#16#16#16#16#16#17#16#16#16#16#16#16#15#16#15#16#15#15#16#15#16#15
+  +#16#15#15#15#16#15#15#15#15#14#15#14#14#15#14#14#15#14#13#14#14#13#13#12#12
+  +#12#11#11#11#11#11#11#11#11#10#11#11#11#10#10#11#22#21#21#31' '#31'"""&'''','
+  +',,001'#22#21#21#8#7#7#8#7#7#7#7#7#6#7#7#6#7#6#6#7#6#6#7#7#6#6#6#7#6#6#6#6#6
+  +#6#6#6#6#6#5#6#6#5#6#5#5#6#6#5#5#5#5#5#5#6#5#5#5#5#5#5#5#5#5#5#5#4#4#5#4#5#4
+  +#4#4#5#4#4#4#4#4#4#5#4#4#4#4#4#4#3#3#3#4#3#4#4#4#3#3#3#4#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#2#3#3#2#2#3#2#2#2#2#2#2#2#3#3#2#2#3#2#2#5#5#5#2#2#2'000yyy00000'
+  +'000000000000000000000000000000000000000000000000000000000000022244455577799'
+  +'9;;;===444...///////////////0/0988;;;;;:;;:;::;::;::;::::::::::::::::::::::'
+  +':::::::::::::::9::9::9::9:99:99:99:99:9999999999999999999999999999999999999'
+  +'9998998998988988988222000000000000000000434;;:;::;::;::::::::::::::::::::::'
+  +'::::::::::::9::9::9:99:99:99:9999999999999999999999999999999999999899898898'
+  +'8:99:99999::::::;;;<<<======???@@@AAADDCFFEIHHIIIKKKMMMOOOQQQSSSVVUYYX[ZZ]\'
+  +'\___bbbfffhhhlllooorrqvvuzyy}}}'#129#129#129#132#132#132#136#136#136#141#141
+  +#141#145#145#145#149#149#149#154#154#154#159#159#158#163#163#163#169#168#168
+  +#174#174#174#179#179#179#177#177#177'sssooonnnnnnllliiifffdddbbbaaa_________'
+  +'^^^^^^\\\\\\\\\\\\[[[ZZZYYYYYYYYYYYYXXXXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVUUUTTT'
+  +'RRRQQQPPPPPPOOONNNNNNMMMLLLKKKJJJIIIHHHHHHGGGFFFFFFHHHKKKQQQWVQ_\QbaZddcfff'
+  +'fffdddaaa\\\UUULLLBBB===888333...+)#%(/'#16'9'#208#9'>'#255#9';'#255#9';'
+  +#255#8';'#255#7':'#255#6'9'#255#6'9'#255#4'8'#255#12'6'#221'3395415555555555'
+  +'55444444333222222222000///---+++)))&&&###! '#24#23'!M'#0'*'#239#0'*'#239#0
+  +')'#236#0')'#234#0'('#234#0'('#233#0''''#231#0''''#231#0'&'#230#0'&'#229#0'%'
+  +#227#0'$'#226#0'$'#226#0'$'#225#0'#'#223#0'"'#223#0'!'#228' ,q42''...+++)))%'
+  +'%%###!!!   '#31#31#31#30#30#30#29#29#29#28#28#28#28#28#28#27#27#27#26#26#26
+  +#24#24#24#22#22#22#19#19#19#18#18#18#16#16#16#25#25#25#162#162#162#172#172
+  +#172#166#166#166#160#160#160#154#154#154#149#149#149#144#144#144#139#138#138
+  +#133#133#133#129#129#129'|||wwwsssnnnjjjfffaaa]]]YYYUUURRRMNNJJIGGHDDDAAA>>='
+  +'<;;977655433000...,,,***(((''''''%%%##$"!!   '#31#31#31#31#30#30#29#30#29#29
+  +#29#28#28#27#27#27#27#27#27#27#27#25#26#26#25#26#25#25#25#26#25#25#25#25#25
+  +#25#24#24#24#25#24#23#25#24#24#24#23#24#24#23#23#23#23#23#23#22#23#22#23#22
+  +#22#22#22#22#22#22#22#22#22#21#22#22#22#21#21#22#22#21#21#22#21#22#21#22#21
+  +#21#21#20#21#21#20#21#21#20#20#20#20#21#21#20#20#20#20#19#20#20#19#20#19#19
+  +#19#18#19#19#18#18#18#18#18#18#18#18#18#18#18#18#17#17#18#17#17#17#17#17#18
+  +#17#17#17#17#17#17#17#17#17#21#21#21#27#27#26#28#27#27#27#28#27#27#27#27#27
+  +#27#27#27#27#27#25#24#25#19#18#18#17#17#18#18#17#17#16#17#17#17#16#16#16#17
+  +#17#17#16#16#16#16#17#16#17#16#16#16#16#16#16#16#16#16#15#15#16#15#15#16#16
+  +#16#15#15#16#15#15#15#15#15#15#14#14#15#14#14#15#14#14#14#14#14#13#13#13#11
+  +#11#12#11#11#11#10#11#10#10#10#11#11#11#11#12#13#12#29#29#29'!!!%%%)().//..-'
+  +#10#10#11#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#7#6#7#6#6#7#7#6#7#6#7#7#6#6#6#6#6#6#5
+  +#6#6#5#6#5#6#6#6#6#5#5#5#5#6#5#6#5#5#5#5#5#5#5#5#4#5#4#5#4#5#5#5#4#4#5#5#4#5
+  +#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#3#3#4#4#3#4#3#3#3#3#3#3#3#3#3#2#3#3#3#2
+  +#3#3#2#3#2#3#3#3#3#3#2#3#3#2#3#3#3#3#2#5#5#5#2#2#2'000yyy0000000000000000000'
+  +'00000000000000000000000000000000000000000000222444555777999;;;===444...////'
+  +'///////////0/0988;;;;;;;;:;;:;::;::;::;::::::::::::::::::::::::::::::::::::'
+  +':9::9::9::9:99:99:99:99:999999999999999999999999999999999999999999989989889'
+  +'88988877101000000000000000000777;;:;::;::;:::::::::::::::::::::::::::::::::'
+  +':9::9::9:99:99:99:99999999999999999999999999999999999998998988:99:99:99::::'
+  +'::;;;<<<======???@@@AAABBBDDDEEEHHGJJJMMMOOOQQQSSSVVVXXWZZY]\\___aaaeeehhhj'
+  +'jjnnnqqquutyyx}||'#128#128#128#132#132#132#136#136#136#140#140#140#145#145
+  +#145#149#149#149#153#153#153#158#158#158#163#163#162#168#168#168#172#172#172
+  ,#177#177#177#182#182#182#129#129#129'ppppppooommmjjjhhhdddbbbbbbaaa_________'
+  +'^^^^^^\\\\\\\\\\\\[[[ZZZYYYYYYYYYYYYXXXZZZ[[[[[[[[[[[[\\\\\\[[[YYYXXXWWWUUU'
+  +'SSSQQQPPPPPPOOONNNMMMLLLKKKJJJIIIGGGEEEFFFEEEEEEFFFIHEQNCLSm9S'#177'P\'#136
+  +'jicomemmlkkkiiiddd]]]TTTHHH>>>9994450/+++*'#21'7'#183#10'?'#255#11'='#255#10
+  +'='#255#9'<'#255#9';'#255#8';'#255#7':'#255#6'9'#255#4'8'#255#16'5'#203'2133'
+  +'31444555555555555444333333333222111///...+++)))&&&"""!'#30#17#16'$'#128#0'+'
+  +#252#0'*'#238#0'*'#237#0')'#236#0')'#234#0'('#234#0'('#233#0''''#231#0''''
+  +#231#0'&'#230#0'&'#229#0'%'#227#0'$'#226#0'$'#226#0'$'#225#0'#'#223#0'!'#233
+  +#15'$'#152'*)!((&&&&%%%$$$###!!!   '#31#31#31#30#30#30#30#30#30#29#29#29#28
+  +#28#28#27#27#27#26#26#26#24#24#24#22#22#22#19#19#19#18#18#18#16#16#16'777'
+  +#174#174#174#170#169#170#164#164#164#159#159#159#153#153#153#148#148#148#143
+  +#143#143#138#137#138#133#133#133#128#128#128'{{{vvvrrrnnmiiiddd```\\\XXXUUUQ'
+  +'QQMMMIJIHHHCCCAAA>>=<<;888656433100..-,+,***''''''''''''%%%$$$!!!  !'#31#31
+  +#31#31#30#31#30#29#29#28#28#28#27#28#27#27#27#27#27#27#27#25#26#26#25#26#25
+  +#26#26#25#25#26#25#25#25#25#25#25#25#25#24#24#25#24#23#24#24#24#24#23#23#24
+  +#23#23#23#23#23#23#23#23#23#23#22#22#22#22#23#22#23#22#22#22#22#22#22#22#22
+  +#22#21#22#22#21#22#22#21#21#22#22#21#21#21#21#21#20#21#21#20#21#21#20#21#20
+  +#20#20#20#20#19#20#20#19#20#19#19#19#18#18#19#19#18#18#18#18#18#18#18#18#18
+  +#18#18#17#17#18#17#17#17#17#17#17#17#18#17#17#17#17#17#17#17#19#18#19#26#26
+  +#25#27#27#27#27#27#27#27#27#27#27#27#27#27#27#26#25#25#24#18#18#19#18#18#17
+  +#18#17#17#17#17#17#17#17#17#16#17#17#17#17#16#16#16#16#16#16#16#16#16#16#16
+  +#16#16#15#16#16#16#16#16#16#16#16#15#15#15#15#15#15#15#15#15#15#14#14#15#14
+  +#14#14#13#14#14#13#13#11#11#12#11#11#11#11#11#11#11#11#11#10#11#11#12#11#12
+  +#18#17#18#31#31#31'##$''&''+++...'#30#29#30#7#8#8#7#7#7#7#7#7#7#7#7#7#7#7#7#7
+  +#7#7#7#6#6#6#7#6#6#7#6#7#7#6#6#6#6#6#6#5#5#6#6#6#6#6#6#6#5#6#6#6#6#6#5#5#5#5
+  +#5#5#5#5#4#5#5#5#4#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#3#4#4#3#4#3#4
+  +#4#3#4#3#4#4#4#3#4#3#3#3#3#3#4#3#3#3#3#3#3#2#3#3#2#3#3#3#3#3#3#3#2#2#2#3#5#5
+  +#5#2#2#3'000yyy0000000000000000000000000000000000000000000000000000000000002'
+  +'22444555666888:::===444...///////////////0/0998;;;;;;;;;;;:;;:;::;::;::;:::'
+  +':::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999999999999'
+  +'99999999999999999999999998998988988988988555000000000000000000111999;;:;::;'
+  +'::;::::::::::::::::::::::::::::::::::9::9::9:99:99:99:999999999999999999999'
+  +'99999999999999998998:99:99:99;:::::;;;<<<======>>>@@@AAABBBDDDEEEGGFIIHKJJL'
+  +'LLOONRRRUTTWWWYYY\\\_^^baacccgggjjjmmmqqqtttxxw||{~~'#132#131#131#135#135
+  +#135#139#139#139#143#143#143#147#147#147#152#151#151#156#156#156#161#160#160
+  +#166#166#166#170#170#170#176#176#176#181#181#181#148#148#148'rrrrrrqqqooolll'
+  +'iiifffcccbbbaaa```_________^^^^^^\\\\\\\\\\\\[[[ZZZYYYYYYZZZZZZ[[[\\\^^^___'
+  +'````````````^^^\\\ZZZXXXVVVSSSRRRPPPPPPOOONNNLLLKKKIIIHHHGGGDDDCCCCCCDC@GD9'
+  +'EFN5K'#156#31'L'#239#21'J'#255#25'J'#254'3T'#205'\f'#142'uskuskoonjjjbbbYYY'
+  +'MMMAAA;;;65220('#26'8'#169#12'A'#255#12'?'#255#12'>'#255#11'>'#255#10'='#255
+  +#9'<'#255#9';'#255#8';'#255#7':'#255#3':'#255#16'6'#201'0/-31044444455555555'
+  +'5555444333333333222000...+++(((%%%""! '#30#21#11'&'#155#0','#253#0'*'#239#0
+  +'*'#238#0'*'#237#0')'#236#0')'#234#0'('#234#0'('#233#0''''#231#0''''#231#0'&'
+  +#230#0'&'#229#0'%'#227#0'$'#226#0'$'#226#0'$'#225#0'#'#231#9'#'#173'####"!""'
+  +'"###""""""!!!!!!'#31#31#31#31#31#31#31#31#31#30#30#30#29#29#29#27#27#27#25
+  +#25#25#24#24#24#22#22#22#20#20#20#17#17#17#15#15#15'___'#175#175#175#169#169
+  +#169#163#163#163#158#158#158#152#152#151#147#146#146#142#141#141#136#136#136
+  +#132#131#131'~~~zzzvvvpppmmmghhccd```[[[XXXUTTOOOMMMIIIGFFCCC@@@===;;:887555'
+  +'322100/..,+,)))''(''''''''%%%###!!!! !'#31#31#31#31#31#31#30#30#30#28#29#29
+  +#27#28#28#28#28#27#27#27#27#26#26#26#26#26#26#25#25#26#25#25#25#25#25#25#25
+  +#26#25#25#25#25#24#24#24#25#24#24#25#24#23#24#23#23#24#23#23#23#23#22#23#23
+  +#22#23#23#23#23#23#22#23#22#22#22#22#22#22#21#22#22#21#22#22#22#22#21#22#21
+  +#21#21#21#21#21#21#21#21#21#21#21#21#20#20#21#20#21#20#20#20#20#20#19#20#20
+  +#19#20#19#19#19#18#19#18#19#18#19#19#18#18#18#18#18#18#18#18#18#18#18#17#18
+  +#17#17#18#17#17#17#17#17#17#17#17#17#17#17#17#17#26#25#25#27#27#27#27#27#27
+  +#27#27#27#27#27#26#26#27#27#25#25#24#18#18#18#17#17#17#17#17#17#17#16#17#16
+  +#17#16#17#17#17#17#16#17#16#17#16#16#16#16#16#16#16#16#16#16#15#15#16#15#16
+  +#16#15#15#16#15#15#15#15#15#15#15#14#15#14#14#15#14#14#14#14#13#13#14#14#14
+  +#11#11#12#11#11#11#10#11#11#11#11#10#11#11#10#11#12#12#26#27#27'!!!$$$(((***'
+  +',,,'#16#16#17#8#7#8#8#8#7#7#7#7#7#6#7#7#7#7#6#7#7#6#6#7#7#6#6#6#6#7#6#6#6#6
+  +#7#6#6#6#6#6#6#5#6#6#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#5#5#5#5#5#5#5#5
+  +#5#5#5#5#4#5#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#3#4#4#3#3#4#4#4#4#3#3#3#3#3#3#3#3
+  +#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#3#8#8#5#2#2#2'000yyy0000000000000000000'
+  +'00000000000000000000000000000000000000111555444666777:::<<<333...//////////'
+  ,'/////0/0999;;;;;;;;;;;;;;;;;:;;:;::;::;::;:::::::::::::::::::::::::::::::::'
+  +'::::9::9::9::9:99:99:99:99:999999999999999999999999999999999999999989989989'
+  +'88988988988333000000000000000000212:::;;:;::;::;:::::::::::::::::::::::::::'
+  +':::::::9::9::9:99:99:99:99999999999999999999999999999999999998::9:99:99;::;'
+  +'::;;;;;;======>>>@@@@@@BBBDDDEEEGGGHHGJJILKKNMMPOORQQUTTWWWZZZ]\\___cbbfffi'
+  +'iilllpoossswwwzzz~~~'#129#129#129#133#133#133#137#137#137#142#141#141#146
+  +#145#145#150#150#150#155#155#155#159#159#159#165#165#165#169#169#169#174#174
+  +#174#180#180#180#166#166#166'ssssssrrrqqqnnnjjjgggeeebbbbbbaaa```_________^^'
+  +'^^^^\\\\\\\\\[[[ZZZZZZYYYYYYZZZ[[[]]]___bbbdddeeeeeedddcccaaa^^^[[[YYYVVVTT'
+  +'TQQQPPPPPPNNNMMMKKKIIIFFFEEEBCC@@@A?7@AG5G'#138'$M'#221#26'M'#255#26'L'#255
+  +#26'L'#255#25'K'#255#20'I'#255#24'I'#254':Y'#201'dl'#140'vtkqohffe\\\QQQCCC='
+  +'<8860'#31':'#163#13'A'#255#14'@'#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255
+  +#10'='#255#9'<'#255#8'<'#255#7';'#255#13'7'#214'!0i//+1104444445555556665555'
+  +'55444333333222000...+++)))%%%""! '#30#24#11'&'#161#0'-'#253#0','#240#0'*'
+  +#239#0'*'#238#0'*'#237#0')'#236#0')'#234#0'('#234#0'('#233#0''''#231#0''''
+  +#231#0'&'#230#0'&'#229#0'%'#227#0'$'#226#0'$'#226#0'$'#231#7'"'#182'!!$#" ""'
+  +'"""""""!!!!!!!!!   '#31#31#31#31#31#31#30#30#30#29#29#29#28#28#28#25#25#25
+  +#24#24#24#22#22#22#20#20#20#17#17#17#15#15#15#135#135#135#173#173#173#167#167
+  +#167#162#162#162#157#157#157#151#151#151#146#145#145#140#140#140#135#135#135
+  +#131#130#130'~}}xyxtttpppkkkgggcbc^^^[[[WWWSTTPOOLMLIIIFFFCCB@??<<<:::776555'
+  +'2210///..-,,***''''(''''&%%%###"!!!!!'#31#31#31#31#31#31#30#30#30#28#28#29
+  +#28#28#27#28#28#27#27#27#27#26#27#26#26#26#25#26#26#26#26#26#25#25#25#26#25
+  +#25#25#25#25#25#25#25#25#24#24#24#25#24#24#24#24#24#24#24#23#24#23#23#23#23
+  +#23#23#23#23#23#23#22#23#22#22#23#23#22#22#22#22#22#22#22#22#22#21#22#21#22
+  +#22#22#22#22#22#21#21#21#21#21#21#21#21#21#21#20#20#20#21#20#21#20#20#20#20
+  +#19#20#20#19#20#19#18#19#18#18#19#18#18#19#19#18#18#18#18#18#18#18#18#18#18
+  +#17#17#17#17#17#18#17#17#17#18#17#17#17#17#17#16#17#17#16#24#23#23#28#27#27
+  +#27#27#27#27#27#28#26#27#27#26#27#27#25#25#25#19#19#18#18#17#17#17#17#17#17
+  +#17#17#17#17#16#17#16#17#17#17#17#16#16#17#17#16#16#16#16#16#16#16#16#16#16
+  +#16#15#16#15#16#16#15#15#15#15#16#14#15#15#14#15#15#14#14#15#14#13#14#14#13
+  +#13#12#12#11#11#11#11#11#11#11#10#11#10#10#10#12#12#12#14#13#13#31#30#30'!!"'
+  +'%%%''''''((('#31'  '#8#8#8#7#8#7#7#7#7#7#7#7#7#7#7#7#7#6#6#7#7#6#7#6#6#7#6#6
+  +#6#6#6#6#6#6#6#6#5#5#6#6#6#5#6#5#6#5#5#6#6#5#6#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#4#4#4#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#3#3#4#3#3#4#4#3#4#3
+  +#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#3#3#2#2#3#3#5#5#5#2#3#2'000yyy0000000000000'
+  +'00000000000000000000000000000000000000000000000333555777888::::::...///////'
+  +'////////0/0999;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;:::::::::::::::::::::::::::'
+  +'::::::::::9::9::9::9:99:99:99:99:999999999999999999999999999999999999999999'
+  +'98998988988988988888001000000000000000000333;;:;;:;::;::;::::::::::::::::::'
+  +'::::::::::::::::9::9::9:99:99:99:99999999999999999999999999999999999::9::9:'
+  +'99;::;::<;;;;;======>>>@@@@@@BBBCCCDDDGGGHHHJJIKKJNMMPOORQQUTTWVVXXX[[[^^^a'
+  +'aadddgggjjjmmmqqqtttxxx|||'#128#128''#132#132#131#136#135#135#140#140#140
+  +#144#144#144#149#148#148#153#153#153#158#158#158#162#162#162#168#168#168#173
+  +#173#173#178#178#178#180#180#180'|||uuutttrrrooollliiifffdddcccbbbaaa```____'
+  +'_____^^^^^^]]][[[[[[ZZZYYYYYYXXXYYY[[[]]]aaadddgggiiijjjjjjiiigggddd___\\\Y'
+  +'YYVVVTTTQQQPPPNNNMMMKKKGGGEEECCC@@??>:3D'#132'#N'#224#29'P'#255#28'O'#255#28
+  +'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#24'J'#255#19'G'#255#26'J'#251
+  +':X'#201'_h'#136'kiaa`XSSRFEA>=7">'#166#14'C'#255#15'A'#255#15'@'#255#14'@'
+  +#255#14'@'#255#13'?'#255#12'>'#255#11'>'#255#9'>'#255#12'9'#226#26'/~**..,#/'
+  +'//112333444666666666666555555444333333111...,,,)))&&&##"!'#30#19#12'&'#149#0
+  +'.'#255#0','#241#0','#240#0'*'#239#0'*'#238#0'*'#237#0')'#236#0')'#234#0'('
+  +#234#0'('#233#0''''#231#0''''#231#0'&'#230#0'&'#229#0'%'#227#0'$'#226#0'$'
+  +#234#9'"'#166'  '#29'!!'#31'""""""""""""!!!!!!!!!'#31#31#31#31#31#31#31#31#31
+  +#29#29#29#28#28#28#26#26#26#24#24#24#21#21#21#20#20#20#17#17#17'!!!'#169#168
+  +#169#171#171#171#166#166#166#161#161#161#155#155#154#150#149#149#144#144#144
+  +#138#138#138#133#133#133#129#129#129'|{|xwwsrronnjjjfffaab]^]ZZZVVVRSSOOOKKL'
+  +'HHHEEECCC?@@=<<:::777554332000/..,++)))((''''&&%%%###"""!!  '#31' '#31#31#31
+  +#30#30#30#29#29#29#28#28#27#28#28#28#27#28#28#26#27#26#26#26#26#26#26#26#26
+  +#26#26#26#26#25#26#26#25#25#25#25#25#25#25#25#25#25#25#24#24#24#24#23#24#24
+  +#24#24#23#24#24#23#23#23#23#23#23#23#22#23#22#22#23#22#22#22#22#23#22#22#22
+  +#22#22#22#22#21#22#21#21#22#21#22#22#21#21#21#21#21#21#21#21#21#21#20#20#20
+  +#20#21#20#20#21#20#20#20#20#19#20#20#19#20#19#19#19#19#19#19#19#19#19#18#19
+  +#18#18#18#18#18#18#18#18#18#18#18#18#17#17#17#18#17#17#17#17#17#17#17#17#17
+  +#16#17#16#23#23#23#27#27#27#27#27#27#28#27#27#27#27#27#27#27#27#24#24#25#18
+  ,#18#18#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#16#16#16#17#16#16
+  +#16#16#16#16#16#15#16#16#15#16#15#16#15#15#15#15#15#15#15#15#14#15#15#14#14
+  +#14#14#14#14#14#14#14#14#14#11#12#13#11#11#11#11#11#11#11#11#11#11#11#11#11
+  +#12#12#21#20#21#31#31' """%$$&&&%$$'#18#18#19#7#8#8#7#7#7#7#8#7#7#7#7#7#7#7#7
+  +#7#7#6#7#6#7#6#6#6#7#6#6#6#6#6#6#6#7#6#6#6#6#6#5#6#6#6#6#6#6#5#5#5#6#6#5#5#5
+  +#5#5#6#5#5#5#5#5#4#5#5#5#5#5#5#5#4#4#5#5#5#5#4#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4
+  +#3#4#3#3#3#3#3#3#4#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#8#5#8#3#2#2'0'
+  +'00yyy0000000000000000000000000000000000000000000000000000000000002226667779'
+  +'99;;;===000///////////////999;;;;;;;;;;;;;;;;;;;;;;;:;;:;;:;::;::;:::::::::'
+  +':::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999999999999999999'
+  +'99999999999999999998998998988988988988666000000000000000000000444;;:;;:;::;'
+  +'::;::::::::::::::::::::::::::::::::::9::9::9:99:99:99:999999999999999999999'
+  +'99999999999:::::9::9;::;::<;;<;;<<<===>>>???@@@BBBCCCDDDFFFGGGIIIKKJNNMONNQ'
+  +'QQTSSVUUYXX[[[]]]```cccfffiiimmmppptttwww{{{'#130#130#130#135#135#134#140
+  +#139#139#144#143#143#148#148#148#153#152#152#157#157#157#162#162#162#166#166
+  +#166#172#172#172#177#177#177#181#181#181#143#143#143'vvvvvvtttrrrooojjjgggee'
+  +'eccccccaaaaaa```_________^^^]]]\\\ZZZYYYYYYXXXXXXWWWYYY\\[ba]feciigmmmooopp'
+  +'pnnnllliiieee```[[[XXXVVVSSSPPPNNNMMMJJJGGGDDDAAA>=;;<>%M'#222#29'R'#255#31
+  +'P'#255#31'O'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255
+  +#25'J'#255#23'H'#255#18'F'#255#25'I'#251'5T'#197'R[zWTIFFF#B'#181#16'D'#255
+  +#17'C'#255#16'B'#255#16'A'#255#15'@'#255#14'@'#255#13'@'#255#11'@'#255#13'='
+  +#241#24'2'#149'$(8)&'#27'++(...000222444555666777666666666555555444333111000'
+  +'---***&&&###!'#30#19#18'#p'#0'.'#252#0','#242#0','#241#0','#240#0'*'#239#0
+  +'*'#238#0'*'#237#0')'#236#0')'#234#0'('#234#0'('#233#0''''#231#0''''#231#0'&'
+  +#230#0'&'#229#0'%'#227#0'%'#239#14'"'#135'!'#31#20'  '#31'!!!""""""""""""!!!'
+  +'!!!!!!   '#31#31#31#30#30#30#28#28#28#26#26#26#24#24#24#21#21#21#20#20#20#17
+  +#17#17'MMM'#175#175#175#170#170#170#165#165#165#159#159#159#154#154#153#148
+  +#148#148#143#143#142#138#138#137#132#132#132#128#128#128'{{{vvvrrrnmmijieee`'
+  +'``\]]YYYUVURRROOOJKJHIHEEEBBB??><<<99977755522100/..-,++*))(((''''''%%$###"'
+  +'#"     '#31#31' '#31#30#31#30#29#29#29#28#27#28#28#28#28#27#27#28#26#26#26
+  +#27#26#27#26#26#27#26#26#26#26#26#26#26#26#26#25#25#26#25#25#25#25#25#25#25
+  +#25#25#25#24#24#25#24#23#24#24#23#24#23#24#24#23#23#23#23#22#23#23#22#22#23
+  +#23#22#22#22#22#22#22#22#22#22#22#22#22#22#21#21#22#22#21#22#21#21#21#21#21
+  +#21#21#21#21#20#21#21#20#20#20#21#21#21#20#20#20#20#20#20#19#20#20#19#19#19
+  +#19#19#19#19#19#19#18#19#19#18#18#18#18#18#18#18#18#18#18#18#17#18#17#17#17
+  +#17#17#17#17#17#17#17#17#17#17#16#16#17#23#22#23#27#28#27#28#27#28#27#27#27
+  +#27#27#27#27#27#26#25#24#25#19#18#18#17#17#17#17#17#17#17#17#16#17#16#17#16
+  +#17#17#16#16#16#16#17#17#16#16#16#16#15#16#15#16#16#15#15#15#15#16#15#16#15
+  +#16#16#14#15#15#14#15#15#14#14#14#14#14#14#14#14#14#13#14#11#12#11#11#11#11
+  +#11#11#11#11#11#11#11#12#12#11#12#11#28#28#29'   !!!""""""'#29#29#29#7#8#8#8
+  +#8#7#7#7#7#7#7#7#7#7#7#6#7#7#7#7#7#7#7#6#7#7#6#6#6#6#7#7#6#6#6#7#6#6#6#5#6#6
+  +#6#6#6#6#5#6#5#5#5#5#6#5#6#5#5#5#5#5#5#5#5#5#5#5#5#5#5#4#4#4#5#5#4#5#5#5#4#4
+  +#5#4#4#4#4#4#4#4#4#4#4#3#4#3#4#4#3#4#4#3#4#3#4#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3
+  +#3#3#3#3#2#8#8#8#2#2#3'000yyy00000000000000000000000000000000000000000000000'
+  +'0000000000000000666888999;;;===888///////////////766;;;;;;;;;;;;;;;;;;;;;;;'
+  +';;;:;;:;::;::;::;:::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:9'
+  +'9:9999999999999999999999999999999999999999899899898898898898898844400000000'
+  +'0000000000000777;;:;;:;::;::;::::::::::::::::::::::::::::::::::9::9::9:99:9'
+  +'9:99:99999999999999999999999999999999:::::9;;:;::<;;<;;=<<======???@@@AAACC'
+  +'CDDDFFFGGGIIIKKKMMLOONQPPSRRUUUXXX[ZZ]]]___bbbfffiiilllpppssswwwzzz~~~'#130
+  +#130#130#133#133#133#138#138#138#142#141#141#147#146#146#151#151#151#156#155
+  +#155#160#160#160#165#165#165#169#169#169#175#175#175#180#180#180#163#163#163
+  +'wwwwwwvvvtttpppmmmhhheeedddcccbbbaaaaaa``````___^^^]]]\\\YYYXXXXXXWWWVVVVVV'
+  +'WVUZZZY`ucdkjjiqogvshwukwumrrqmmmiiieee___[[[WWWTTTQQQNNNLLLIIIFFFCCC>>>;:7'
+  +'79A#O'#235' R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255
+  +#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#22'H'#255#18'G'#255#24'H'
+  +#250'/K'#180'%G'#199#17'E'#255#18'E'#255#18'D'#255#17'C'#255#16'B'#255#16'A'
+  +#255#14'A'#255#15'?'#251#23'6'#171'#)C)&'#27'*(#+++---0003334445556666667777'
+  +'77777666666555555333222000...+++((($$$!!'#27#26' 9'#2'-'#234#0'-'#247#0'-'
+  +#241#0','#241#0','#240#0'*'#239#0'*'#238#0'*'#237#0')'#236#0')'#234#0'('#234
+  +#0'('#233#0''''#231#0''''#231#0'&'#229#0'&'#231#0'%'#231#23#31'O '#30#22'   '
+  +'!!!"""###""""""!!!!!!!!!   '#31#31#31#30#30#30#28#28#28#26#26#26#24#24#24#21
+  +#21#21#19#19#19#17#17#17'}}}'#173#173#173#168#168#168#163#162#162#157#157#157
+  +#152#152#152#146#146#146#141#141#141#136#136#136#131#130#131'~~zyyuuuppplll'
+  ,'hhhddd```[\\XYXUUUQQQMNNKJJGGHDDDAAA>>><;;:9:76655522200///.,,+*))(''''&%&%'
+  +'%%"###""     '#31' '#31' '#30#30#31#30#29#29#28#28#28#28#28#28#27#27#27#26
+  +#26#27#27#26#27#27#26#26#26#26#26#26#26#26#26#26#26#25#26#26#26#26#25#25#25
+  +#25#25#25#25#25#25#25#25#24#24#25#24#24#25#24#23#24#23#23#24#23#23#23#22#23
+  +#23#23#23#23#22#22#23#23#23#23#22#23#21#22#22#21#22#21#22#22#21#22#22#22#21
+  +#22#21#21#21#21#21#21#21#20#21#21#21#21#20#20#20#20#20#20#20#20#20#20#20#19
+  +#20#20#19#19#19#18#19#18#19#19#18#19#18#18#18#18#18#18#18#18#18#17#18#18#18
+  +#17#17#17#17#18#17#17#17#17#17#17#17#17#17#17#17#16#16#24#23#23#28#28#27#27
+  +#27#27#27#27#27#26#27#27#27#26#27#24#23#23#17#17#18#17#18#17#17#17#17#17#16
+  +#16#17#16#17#17#17#16#16#16#16#16#16#17#17#17#17#16#16#16#16#16#15#15#16#16
+  +#16#16#16#15#15#15#15#14#15#15#14#14#15#13#14#14#14#13#14#14#13#13#13#12#11
+  +#11#11#11#11#12#11#11#11#11#11#11#12#12#11#17#16#17' '#31'  '#31#31#31#31#31
+  +#31#31#31#28#28#29#17#18#17#13#12#13#12#12#13#12#11#11#7#7#8#7#7#7#6#7#7#6#6
+  +#6#6#7#6#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5#6#6#6#5#6#6#5#5#6#5#6#5#5#5#5#5
+  +#5#5#5#5#5#5#4#5#4#5#5#5#4#4#5#5#5#5#5#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4
+  +#4#4#4#4#3#3#3#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#2#3#5#8#5#2#2#3'000yyy000000000'
+  +'000000000000000000000000000000000000000000000000000000333888999;;;<<<===///'
+  +'////////////111;;;;;;;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;::::::::::::::::::::'
+  +'::::::::::::::::::::9::9::9:99:99:99:99:99999999999999999999999999999999999'
+  +'999999998998988988988988988888323000000000000000000000777;;:;;:;::;::;:::::'
+  +':::::::::::::::::::::::::::::9::9::9:99:99:99:99999999999999999999999999999'
+  +'::::::;;:;;:<;;<;;=<<>=====???@@@AAABBBDDDEEEGGGIIIKKKLLLNNNPPORQQUTTWVVZYY'
+  +'\[[___bbbdddhhhkkknnnrrruuuyyy}}}'#128#128#128#133#133#133#137#137#136#141
+  +#141#141#145#145#145#150#149#149#154#154#154#159#159#159#163#163#163#168#168
+  +#168#173#173#173#178#178#178#179#179#179'~~~yyyxxxvvvqqqoookkkgggdddccccccaa'
+  +'aaaaaaa```___^^^\\\[[[YYYWWWUUUTTTSTTTSRVTME]'#175'5d'#249':c'#235'Ce'#213
+  +'Kg'#194'Tj'#182'Zm'#173'ap'#160'vvurrrmmmiiiddd^^^YYYWWWRRROOOLLLIIIEEEAAA='
+  +'==98449J#R'#247'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'
+  +#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#22
+  +'H'#255#18'G'#255#19'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'C'#255
+  +#16'C'#255#20'>'#224'%0[+* +*#,,,---///0002224446666667778888888887776666666'
+  +'66555555333111///,,,)))&&&""! '#30#22#11''''#161#0'.'#255#0'-'#243#0'-'#242
+  +#0','#241#0','#240#0'*'#239#0'*'#238#0'*'#237#0')'#236#0')'#234#0'('#234#0'('
+  +#233#0''''#231#0''''#230#0''''#240#7'$'#179#29#29#28#31#30#29'   """"""#####'
+  +'#######!!!!!!   '#31#31#31#30#30#30#28#28#28#26#26#26#24#24#24#21#21#21#19
+  +#19#19'   '#167#167#167#172#172#172#167#167#167#161#161#161#155#155#155#150
+  +#150#150#144#144#144#139#139#139#134#134#134#129#130#130'}}}yxyssspppkkkffgc'
+  +'cd___[[[XXXSTSPPPMMMIIIGGGCCC@@@===;;;899666454222///..-,-,))((''''''&%&%%#'
+  +'"""!"      '#31'  '#31#31#30#29#30#29#28#28#28#28#28#28#27#27#27#26#27#26#26
+  +#27#26#26#26#26#27#26#26#26#26#26#26#26#26#26#26#25#25#26#25#25#25#25#25#25
+  +#26#25#25#25#25#25#25#24#24#24#24#24#24#25#24#24#24#23#23#24#23#23#23#23#22
+  +#23#23#23#23#22#23#22#22#22#23#22#22#22#22#22#22#21#22#22#21#22#21#21#21#21
+  +#21#21#22#22#22#21#21#21#21#21#21#21#20#21#20#20#20#20#20#20#20#20#20#20#19
+  +#20#19#19#20#19#19#19#18#19#18#18#19#18#18#18#18#18#18#18#18#17#18#18#17#18
+  +#17#18#17#18#18#18#17#17#17#17#17#17#17#17#17#16#17#17#23#23#23#27#28#27#27
+  +#27#28#27#27#27#26#27#27#27#27#26#23#22#23#17#18#17#17#17#18#17#17#17#17#17
+  +#17#17#17#16#17#17#16#16#17#17#17#16#16#16#16#16#16#16#16#16#16#15#16#16#15
+  +#15#15#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14#13#14#14#14#11#12#11#11
+  +#11#12#11#11#11#11#11#11#12#12#12#12#11#12#27#26#27#30#30#30#31#31#31#29#29
+  +#29#27#27#27#27#27#27#26#26#26#25#25#25#24#25#24#24#24#24#23#24#23#23#23#24
+  +#22#22#22#19#19#19#19#19#19#19#19#19#16#16#16#15#15#15#15#15#15#15#15#15#10
+  +#10#10#10#10#10#10#10#10#8#9#9#5#6#6#5#5#5#5#5#5#5#5#5#4#5#5#4#5#5#5#5#5#4#4
+  +#5#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#3#4#3#3#4#3#3#3#3#3#4#3
+  +#3#3#3#2#3#8#5#8#3#3#3'000yyy00000000000000000000000000000000000000000000000'
+  +'0000000000000000111777999:::<<<===444///////////////888;;;;;;;;;;;;;;;;;;;;'
+  +';;;;;;:;;:;::;::;::::::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:9'
+  +'9:99:9999999999999999999999999999999999999999899899898898898898898888811100'
+  +'0000000000000000000877;;:;;:;::;::;::::::::::::::::::::::::::::::::::9::9::'
+  +'9:99:99:99:99999999999999999999999999::::::;;;;;:;;:<;;=<<>==>==>>>@@@@@@BB'
+  +'BDDDEEEGGGHHHJJJKKKNNNPPORRQUTTWVVYXX\[[_^^aaadddfffjjjmmmppptttwww{{{'
+  +#131#131#131#135#135#135#140#140#139#144#144#144#148#148#148#153#152#152#157
+  +#157#157#162#162#162#166#166#166#172#172#172#177#177#177#181#181#181#146#146
+  +#146'zzzyyywwwtttqqqmmmjjjgggddddddbbbaaaaaa```^^^]]][[[YYYWWWTTTRRRQQQPPORO'
+  +'GF['#159'5f'#255'5e'#255'4d'#255'2c'#255'0b'#255'.`'#255'/`'#255'/`'#255'er'
+  ,#156'yworrrmmmgggbbb]]]XXXUUUPPPMMMIIIDDD@@@;;;8711:[#S'#251'"S'#255'!R'#255
+  +'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255
+  +#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'
+  +#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#16'D'#255#24'>'#203'1/*0/,01111'
+  +'1222333555666777888999999999999888999888777666666555444222000---***((($$$" '
+  +#27#27' 4'#3'-'#224#0'.'#253#0'-'#243#0'-'#242#0','#241#0','#240#0'*'#239#0
+  +'*'#238#0'*'#237#0')'#236#0')'#234#0'('#234#0'('#232#0''''#237#1''''#228#21
+  +#30'E'#31#29#21#31#31#31'!!!""""""######$$$######"""      '#30#30#30#28#28#28
+  +#26#26#26#23#23#23#21#21#21#18#18#18'NNN'#175#175#175#170#170#170#165#165#165
+  +#159#159#159#153#153#153#148#148#148#143#143#143#138#138#138#133#133#133#128
+  +#128#128'|{{xvvsrrnnnjjifffaba_^^ZZZUVVSTTOOPLLLIIIFFFCCC@@A===;;;8886564331'
+  +'11///...+,+))))((''&&%##$##"!"!!    '#31#31#31#30#29#30#29#30#30#28#29#28#28
+  +#28#29#27#27#27#27#27#27#27#27#27#27#27#26#27#26#27#27#27#26#26#26#27#26#26
+  +#26#26#25#26#26#26#26#26#25#26#25#25#25#25#25#25#25#25#24#25#24#24#25#24#23
+  +#24#24#24#24#24#23#24#23#23#23#23#23#23#23#23#23#23#22#22#23#22#22#22#22#22
+  +#22#22#22#22#21#21#21#21#22#21#22#21#21#21#21#22#21#21#21#21#20#20#21#21#20
+  +#20#20#21#21#21#20#21#20#20#20#20#19#19#20#19#20#19#18#19#18#18#18#19#18#19
+  +#19#18#18#18#18#17#18#18#18#18#17#17#18#18#17#17#17#17#17#17#18#17#17#17#16
+  +#16#17#17#16#16#23#23#22#27#28#27#27#27#27#27#27#27#27#27#27#26#27#27#21#21
+  +#21#17#17#18#17#17#17#17#17#17#17#17#17#16#17#17#17#17#17#16#17#16#16#17#16
+  +#16#16#16#16#16#16#16#15#16#15#16#16#16#15#15#16#14#15#15#15#14#14#14#14#14
+  +#14#14#13#14#14#13#13#14#11#12#12#12#11#11#11#11#11#11#11#11#12#11#12#14#14
+  +#13#28#29#28#29#29#28#28#28#28#27#27#27#27#27#27#26#26#26#26#26#26#25#24#25
+  +#24#24#24#25#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24
+  +#24#24#24#24#24#24#24#24#24#24#24#23#23#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#20#20#20#19#18#19#20#20#20#14#14#14#5#5#4#4#5#4#4#4#4#5#4#4#4#5
+  +#4#4#4#4#4#4#4#3#4#3#4#3#4#4#4#3#4#3#3#3#3#3#3#3#3#3#3#3#3#3#3#8#8#8#2#3#3'0'
+  +'00yyy0000000000000000000000000000000000000000000000000000000000000000005558'
+  +'88:::;;;===<<<...////////////222;;;;;;;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;:::'
+  +'::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999999999999999'
+  +'999999999999999999999989989989889889889889888887770000000000000000000001119'
+  +'99;;:;;:;::;::;::::::::::::::::::::::::::::::::::9::9::9:99:99:99:999999999'
+  +'99999999999999::::::;;;;;;;;:<<;=<<>==>==?>>@@@@@@BBBCCCDDDGGGGGGIIIKKKNNNO'
+  +'OOQQQTTSVUUXXX\[[^]]`__bbbfffiiilllpppssswww{{{~~~'#130#130#130#134#134#134
+  +#138#138#138#142#142#141#147#147#146#151#151#151#156#155#155#161#160#160#165
+  +#165#165#169#169#169#174#174#174#180#180#180#166#166#166'{{{{{{yyywwwrrrnnnk'
+  +'kkhhheeedddcccbbbaaa```^^^]]]ZZZWWWUUURRROOOMMMNKAFV'#140'7g'#253'6g'#255'6'
+  +'f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2a'#255'._'#255'Dg'#219'zyvvutpppkkk'
+  +'fff```[[[VVVQQQMMMIIIDDD???:::64-/<m$U'#255'#T'#255'"S'#255'!R'#255'!R'#255
+  +' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'
+  +#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21
+  +'F'#255#20'F'#255#19'E'#255#17'D'#255#21'B'#236'46?762777777888888999:::;;;;'
+  +';;;;;<<<;;;;;;:::999999888777666666444333111///,,,)))&&&###!'#31#22#23'"T'#2
+  +'.'#236#0'.'#254#0'-'#243#0'-'#241#0','#241#0','#240#0'*'#239#0'*'#238#0'*'
+  +#237#0')'#236#0')'#234#0'('#240#0'('#241#16' m'#29#27#16#30#29#30'   !!!"""$'
+  +'$$$$$###$$$$$$###"""   '#31#31#31#30#30#30#28#28#28#25#25#25#23#23#23#20#20
+  +#20#18#18#18#132#133#132#174#174#174#168#168#168#163#163#163#157#157#157#152
+  +#152#151#147#146#147#142#141#142#136#136#136#131#131#131'~zzzwvvrpqnmmiiie'
+  +'eea`a\\\YYYVVVRRRNNNKKLIIIEEEBBB??@<<<:::888666332000///---+++)*)()(''''&%$'
+  +'$$"##!!!!    '#31#31' '#30#30#30#30#30#30#29#28#28#29#28#28#27#28#27#27#27
+  +#27#26#27#27#26#27#27#27#26#26#26#27#26#26#27#26#26#26#26#26#26#25#25#25#25
+  +#26#26#26#26#25#26#25#25#25#25#25#25#25#25#25#25#24#24#24#24#23#24#24#23#24
+  +#23#23#24#23#23#23#23#22#23#23#23#22#23#22#23#22#22#22#22#22#22#22#22#22#22
+  +#22#22#21#22#22#22#21#22#21#21#21#21#21#21#21#21#20#21#21#21#21#20#21#20#20
+  +#20#21#20#20#20#21#20#19#20#19#19#19#19#18#19#18#19#19#18#18#18#18#18#18#18
+  +#18#18#18#18#18#17#17#18#18#17#18#17#17#18#17#17#17#17#17#17#16#16#17#16#17
+  +#16#25#25#25#28#27#27#27#27#27#27#27#27#26#26#27#26#26#25#19#20#19#18#17#17
+  +#17#17#17#17#17#17#17#17#17#16#16#17#16#17#17#17#17#16#17#16#17#16#16#16#15
+  +#16#16#15#16#16#16#15#15#15#15#15#15#14#14#15#14#15#14#14#14#14#14#14#13#13
+  +#13#11#11#13#11#12#11#11#12#11#11#11#11#12#12#12#12#12#12#23#23#23#28#27#28
+  +#28#28#27#27#27#28#27#27#28#26#26#26#26#25#26#26#25#26#26#25#26#25#25#25#24
+  +#25#24#25#24#25#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24
+  +#24#24#24#24#24#24#24#24#24#23#24#24#24#24#24#24#23#24#24#23#23#23#25#24#24
+  +#25#24#24#25#25#25#27#27#27#5#5#5#4#4#5#5#5#4#4#4#5#4#4#5#4#4#4#4#4#4#4#4#3#4
+  ,#3#3#4#3#4#4#3#4#3#4#4#3#3#4#4#3#3#3#3#3#8#8#8#3#3#3'000yyy00000000000000000'
+  +'0000000000000000000000000000000000000000000000000111888999:::<<<>>>333/////'
+  +'//////////888;;;;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;:::::::::::::::::::::::::'
+  +':::::::::::::::9::9::9:99:99:99:99:99:9999999999999999999999999999999999999'
+  +'9998998988988988988988988888777000000000000000000000111999;;:;;:;::;::;::::'
+  +'::::::::::::::::::::::::::::::9::9::9:99:99:99:99999999999999999999::::::::'
+  +':;;;;;;<<;<<;>==>==?>>A@@@@@BBBCCCDDDFFFGGGIIIKKKMMMNNNQQQSSRUUUXWW[ZZ]\\`_'
+  +'_bbbeeehhhkkknnnrrruuuyyy}}}'#129#129#129#133#133#133#137#137#137#141#141
+  +#141#145#145#145#150#150#149#154#153#153#158#158#158#164#163#163#168#168#168
+  +#173#173#173#178#178#178#182#182#182#135#135#135'|||{{{yyyuuupppllliiigggeee'
+  +'ccccccaaa___^^^\\\YYYUUUQQQNNNKKKJG?EQy9h'#250'8h'#255'8g'#255'7g'#255'6f'
+  +#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'0a'#254'fs'#157'{yqsttoooiiieee'
+  +'```YYYSSSNNNIIIEEE???:::74*-@'#130'$V'#255'$U'#255'#T'#255'"S'#255'!R'#255
+  +'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255
+  +#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'
+  +#255#21'F'#255#20'F'#255#18'E'#255#19'C'#252'4<^<;5<<<===>>>??????@@@BBBAAAB'
+  +'BBAAA@@@>>>===;;;:::999888666666555444333111...+++(((%%%""""'#31#19#23'"T'#4
+  +','#221#0'.'#255#0'-'#248#0'-'#243#0','#241#0','#240#0'*'#239#0'*'#239#0'*'
+  +#241#0'*'#249#2'('#223#17' h'#28#27#19#30#29#28#31#31#31'   """$$$$$$%%%%%%$'
+  +'$$$$$$$$"""!!!'#31#31#31#29#29#29#27#27#27#25#25#25#22#22#22#19#19#19'---'
+  +#173#173#173#172#172#172#166#166#166#161#160#160#155#155#155#149#149#149#144
+  +#144#144#140#139#139#134#135#134#131#130#130'~~}yyyuttqpplkkhgfdcd___[\[XXXT'
+  +'TTQQQNNNJKJHHHDDDBBB>?><<<999777666333111///---+++***)((''''''&%$$###""!   '
+  +'  '#31#31#31#30#30#30#29#29#29#28#29#29#29#29#28#28#27#27#28#27#27#27#28#27
+  +#26#26#26#27#26#25#26#25#25#26#25#26#25#25#26#25#25#25#25#24#25#26#25#24#25
+  +#25#25#25#25#26#25#25#25#25#25#25#25#25#25#24#24#24#25#24#23#25#24#23#24#23
+  +#23#24#23#23#23#23#23#23#22#23#23#22#22#23#22#22#22#22#22#22#22#22#22#22#22
+  +#22#21#22#21#22#21#21#21#21#21#21#22#21#21#21#21#20#21#20#21#20#21#20#21#21
+  +#20#21#20#20#20#20#19#19#19#19#20#19#19#19#18#18#18#18#18#18#18#19#19#18#18
+  +#18#18#18#18#17#18#17#17#17#17#17#17#17#17#17#18#17#17#17#17#17#17#17#17#17
+  +#25#25#26#27#27#27#27#27#27#27#27#27#27#27#27#25#25#24#18#17#18#17#18#17#17
+  +#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#17#16#16#17#16#16#16#16#16#16
+  +#16#16#15#15#15#15#15#16#14#15#15#15#14#14#14#14#14#14#14#14#14#14#13#14#14
+  +#12#12#11#11#11#11#11#12#12#11#12#11#10#11#11#13#13#13#27#28#27#28#27#27#27
+  +#27#27#27#27#27#26#26#27#26#26#26#26#26#26#26#25#26#25#26#26#25#26#25#25#25
+  +#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#24#24#24
+  +#24#24#24#24#24#24#24#23#24#24#23#24#24#24#24#24#25#24#25#25#24#26#25#26#29
+  +#29#29'###'#11#11#11#5#5#5#5#4#4#5#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#3#4#4#4
+  +#3#3#4#3#3#3#3#4#3#4#3#4#3#3#8#8#8#3#3#3'000yyy00000000000000000000000000000'
+  +'0000000000000000000000000000000000000000666999:::;;;===;;;///////////////33'
+  +'3;;;;;;;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;::::::::::::::::::::::::::::::::::'
+  +':::9::9::9::9:99:99:99:99:9999999999999999999999999999999999999999899899898'
+  +'8988988988988888888665000000000000000000000111999;;:;;:;::;::;:::::::::::::'
+  +':::::::::::::::::::::9::9::9:99:99:99:99999999999999999:::::::::;;;;;;<<<<<'
+  +';==<>==>==@??A@@AAABBBDDDEEEGGGIIIKKKLLLNNNPPPRRRUUTWWVYXX\[[_^^baaeddfffjj'
+  +'jmmmppptttwww{{{'#131#131#131#135#135#135#140#140#140#144#144#144#148#148
+  +#148#152#152#152#157#156#156#161#161#161#167#166#166#171#171#171#176#176#176
+  +#181#181#181#157#157#157'~~~}}}zzzwwwsssooolllhhhfffeeecccbbb```^^^[[[WWWSSS'
+  +'NNNKJKHE>CMh;h'#242':j'#255':h'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255
+  +'5d'#255'4d'#255'4c'#255'/`'#255'Dg'#221'yywwvurrrmmmiiiddd^^^VVVOOOKKKFFF@@'
+  +'@;;;74(-C'#146'$X'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'
+  +#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26
+  +'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255
+  +#20'F'#255#17'E'#255'/A'#133'EA6DEEHHHKKKLLLLLLLLLLLLKKKIIIGGGEEEBBB@@@===;;'
+  +';999999888666666555444222000---+++(((%%%"""!'#31#22#28#31'0'#14''''#149#3','
+  +#226#0'-'#248#0'-'#255#0'-'#255#0'-'#254#0'+'#245#2')'#224#10'$'#157#23#29'9'
+  +#30#27#17#30#30#29#31'  !!!###$$$$$$%%%%%%&&&%%%%%%$$$###!!!'#31#31#31#29#29
+  +#29#27#27#27#24#24#24#22#22#22#19#19#19'hhh'#176#176#176#170#170#169#164#164
+  +#164#158#158#158#153#153#153#147#147#147#142#142#142#138#138#138#134#133#133
+  +#129#129#129'||{wxwsssooojjjgffcbb___[Z[WWVTTTPPPMMLIJJGFGCCCAAA=>><<;889666'
+  +'555333/00...---***)))((''''''&%$$$$#"!!!  !    '#31#31#31#30#29#29#29#29#29
+  +#29#29#28#28#26#27#27#27#27#26#26#26#27#26#26#26#26#26#26#26#26#25#25#26#26
+  +#25#26#25#25#25#25#25#24#24#23#24#24#24#24#24#23#24#24#24#23#24#24#24#24#24
+  +#24#23#24#24#23#24#24#24#25#24#24#25#24#24#24#23#23#24#23#23#23#23#23#23#23
+  ,#22#22#23#22#23#23#22#22#22#23#22#22#22#22#21#22#22#21#22#22#21#21#22#22#21
+  +#21#21#21#21#21#21#21#21#20#21#21#21#20#20#20#20#20#20#20#20#20#20#19#20#20
+  +#19#20#19#18#19#19#19#18#18#18#18#18#18#18#18#18#18#17#18#18#17#17#18#17#18
+  +#17#17#18#17#18#17#17#17#16#17#17#17#16#18#19#19#26#26#26#27#28#27#27#27#28
+  +#27#26#27#27#27#27#23#22#23#18#17#17#17#17#17#17#18#17#17#17#17#17#17#17#17
+  +#16#17#16#16#16#16#17#16#16#16#16#16#16#16#16#16#15#15#15#15#15#15#15#15#15
+  +#14#15#14#15#14#14#15#14#14#15#14#14#14#13#13#13#12#12#12#12#11#12#11#11#11
+  +#11#11#11#11#11#11#17#17#18#19#19#20#19#19#20#22#22#22#24#23#23#24#23#23#23
+  +#23#23#26#26#26#26#26#26#26#25#26#25#26#26#26#25#26#25#25#25#25#25#25#25#25
+  +#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25#24#25#25#25
+  +#25#25#25#25#25#25#25#25#26#28#28#28'   ''&&'#26#26#26#5#4#5#5#5#4#4#5#4#4#5
+  +#4#4#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#4#3#3#3#3#3#4#8#8#10#3#3#3
+  +'000yyy000000000000000000000000000000000000000000000000000000000000000000000'
+  +'222888999;;;<<<>>>222///////////////:99;;;;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::'
+  +';:::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:99999999999999'
+  +'999999999999999999999999999998998988988988988988888888888555000000000000000'
+  +'000000000777;;:;;:;::;::;::::::::::::::::::::::::::::::::::9::9::9:99:99:99'
+  +':99999999999999:::::::::;;;;;;<<<<<<==<>>=>==@??A@@BAABBBDDDEEEGGGHHHJJJKKK'
+  +'NNNPPPRRRUUUWWVYYX\[[^]]a``dccgffiiilllpppssswwwzzz~~~'#130#130#130#133#133
+  +#133#137#137#137#142#142#142#147#147#147#151#151#151#155#155#155#160#159#159
+  +#164#164#164#170#169#169#175#174#174#179#179#179#177#177#177#130#130#130'~~~'
+  +'}}}zzzuuuqqqnnniiigggeeedddbbb___]]]YYYUUUPPPKKKGE>BI\=f'#232';l'#255';i'
+  +#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255
+  +'3b'#255'0a'#255'br'#165'}zrvvvsssnnniiiccc[[[RRRMMMHHHBBB==<85,-H'#164'%Y'
+  +#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'
+  +#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25
+  +'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#16'E'#255
+  +'+G'#175'OMBQQPTTTWWWXXXWWWVVVUUUSSSQQQMMMJJJFFFCCC@@@===:::9999998887775555'
+  +'55333111///,,,***''''''%%%$$$! '#27' '#30#21#27#31'.'#20'"_'#15'%'#131#14'$'
+  +#137#14'$'#132#18'!d'#25#29'2'#29#28#20#30#29#22#31#31#31'!!!"""###$$$%%%%%%'
+  +'&&&&&&&&&&&&%%%$$$###!!!'#31#31#31#29#29#29#26#26#26#24#24#24#21#21#21#28#28
+  +#28#158#158#158#173#173#173#168#168#168#162#161#162#156#156#156#151#151#150
+  +#146#146#146#142#142#142#136#136#136#131#132#131'~~{zzvvuqrqnmliiieeebaa^]]'
+  +'YYYWWWSSSOOOLLLIIIGFFCDCAAA>>>;<<899666444222000///--,+**)))(((&&&%%$$%$""!'
+  +'      '#31'  '#31#30#30#29#29#28#29#28#29#28#28#28#27#26#27#27#26#26#26#26
+  +#27#26#27#26#26#26#26#26#26#26#26#25#26#26#25#25#25#25#25#25#25#25#25#24#24
+  +#23#24#24#24#24#24#24#23#24#24#23#23#23#23#23#23#23#23#23#23#23#23#23#23#24
+  +#23#24#25#24#24#25#23#23#24#23#23#23#22#22#23#22#23#22#23#22#22#23#22#22#22
+  +#22#22#21#21#21#22#21#21#21#21#22#21#21#21#21#22#21#21#21#21#21#21#21#20#21
+  +#20#21#20#20#20#21#20#20#21#20#20#20#20#19#20#20#19#20#19#19#19#18#18#18#18
+  +#18#18#18#18#18#18#18#18#17#18#17#17#17#17#17#17#17#17#17#17#17#18#17#17#17
+  +#17#16#16#17#20#21#21#27#27#27#28#27#27#28#27#27#27#27#27#27#27#27#20#20#20
+  +#17#18#18#17#18#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#16#17#17#16#17
+  +#16#16#16#16#16#16#15#15#16#14#15#15#14#15#15#14#14#14#14#14#14#14#15#14#14
+  +#14#14#14#14#12#12#11#11#12#12#11#12#11#11#11#11#12#11#11#11#11#11#11#11#11
+  +#10#11#10#11#10#11#11#11#11#10#10#10#10#10#10#10#10#10#10#10#9#10#10#9#12#11
+  +#12#14#14#14#14#13#14#13#13#14#17#17#17#18#18#18#17#17#18#17#18#17#22#22#21
+  +#21#21#21#21#21#21#22#22#22#25#25#25#25#25#24#26#26#25#27#27#26#30#30#30'$$%'
+  +'()(((('#5#5#5#5#5#5#5#5#5#4#5#5#5#4#4#4#4#4#4#4#5#4#4#4#4#4#4#4#4#3#3#4#4#4
+  +#3#4#3#3#4#4#3#3#8#8#8#3#4#3'000yyy00000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000666999:::<<<===;;;///////////////333;;;;;;;;'
+  +';;;;;;;;;;;;;;;:;;:;::;::;::;::::::::::::::::::::::::::::::::::::::::9::9::'
+  +'9::9:99:99:99:99:9999999999999999999999999999999999999999899899898898898898'
+  +'8988888888888555000000000000000000000000777;;:;;:;::;::;:::::::::::::::::::'
+  +':::::::::::::::9::9::9:99:99:99:99999999999:::::::::;;;;;;<<<<<<===>>=>>=?>'
+  +'>A@@A@@CBBCCCDDDFFFGGGIIIKKKMMMOOOQQQSSSUUUXXW[[Z]\\`__bbbfeeihhkkknnnrrruu'
+  +'uyyy|||'#128#128#128#133#133#133#137#137#137#140#140#140#144#144#144#149#149
+  +#149#154#154#153#158#158#158#163#162#162#168#167#167#172#172#172#177#177#177
+  +#181#181#181#150#150#150#128#128#128'}}}xxxtttooolllhhhfffeeebbb___\\\XXX'
+  +'SSSNNNHGACGR>e'#220'=n'#255'<k'#255';k'#255';j'#255':i'#255':i'#255'9h'#255
+  +'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'0a'#255'Bg'#227'{{{{zxwwwss'
+  +'snnnhhh```VVVNNNIIIDDD>>=993-L'#184'&Y'#255'&W'#255'%V'#255'$U'#255'$U'#255
+  +'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'
+  +#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23
+  ,'H'#255#22'H'#255#21'G'#255#19'E'#255' H'#221'UUX[ZX]]]```aaa```___\\\ZZZVVV'
+  +'SSSOOOJJJGGGCCC@@@===:::999888777777555444333111///---***(((&&&$$$""!!!'#29
+  +'!'#31#21' '#29#16' '#29#15' '#29#15' '#30#19#31#31#26#31#31#30'   """"""$$$'
+  +'$$$%%%&&&''''''&&&''''''''''''&&&%%%$$$###!!!'#31#31#31#29#29#29#26#26#26#23
+  +#23#23#20#20#20'QQQ'#176#176#176#171#171#171#165#165#165#159#159#159#154#154
+  +#154#150#149#149#144#144#144#139#139#139#135#135#135#130#130#130'~~~zyytttop'
+  +'ommlhhhddd`__]\\YYYUTURQQNNNKKKHHHEDDBBB???===;;;888666343111/00...,+,***))'
+  +')(((&&&%%$"#"!!"         '#30#31#31#29#29#29#29#28#29#29#28#28#27#27#27#27
+  +#26#27#26#26#27#26#27#26#26#26#26#26#27#26#26#26#26#26#26#25#26#26#26#25#25
+  +#26#25#25#25#25#24#24#24#24#24#23#24#23#23#23#23#24#23#23#23#23#24#23#23#23
+  +#23#22#22#23#22#23#23#22#23#23#22#23#23#23#23#24#23#23#23#22#23#23#22#23#23
+  +#23#23#22#23#22#22#22#23#22#22#22#21#22#22#22#22#22#22#21#21#21#21#21#21#21
+  +#21#21#21#21#20#21#20#20#21#21#21#20#20#20#20#20#20#20#20#20#19#20#19#19#20
+  +#19#18#19#18#18#18#19#18#18#18#18#18#18#18#18#18#18#18#18#17#18#17#18#17#17
+  +#18#18#17#17#17#17#16#16#16#17#17#23#24#24#28#27#26#27#27#27#27#28#27#27#27
+  +#27#26#26#26#19#17#18#17#17#17#17#17#17#17#18#17#17#17#17#16#17#17#17#16#16
+  +#17#17#16#16#16#16#16#16#16#16#15#16#16#15#15#16#15#15#15#15#15#14#14#15#15
+  +#14#15#14#14#15#14#14#14#13#13#12#12#12#12#12#12#12#11#11#11#11#11#11#12#11
+  +#11#11#11#11#10#11#11#11#10#10#11#11#10#11#10#10#10#10#10#10#11#10#10#10#10#9
+  +#9#10#10#10#10#10#10#9#10#9#9#9#9#9#10#9#10#9#9#9#8#9#9#9#9#9#9#9#8#8#9#8#8#9
+  +#8#8#9#8#8#8#8#8#8#8#8#8#9#30#29#30'!"!&&''+*+//0'#13#13#13#5#5#5#5#4#5#5#4#5
+  +#4#4#5#5#4#4#5#5#4#4#5#4#4#4#4#4#4#4#4#4#4#3#4#4#3#4#4#4#3#3#8#10#10#3#4#3'0'
+  +'00yyy0000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00333888:::;;;===>>>222///////////////888;;;;;;;;;;;;;;;;;;;;;;;:;;:;::;::;'
+  +'::;:::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999999999'
+  +'999999999999999999999999999989989989889889889889888888888888885550000000000'
+  +'00000000000000555;;:;;:;::;::;::::::::::::::::::::::::::::::::::9::9::9:99:'
+  +'99:99:99999999:::::::::;;;;;;;;;<<<===>>>>>=??>A@@A@@CBBDCCDDDFFFGGGIIIKKKL'
+  +'LLNNNPPPRRRUUUWWWYYX\\[_^^baaeddgffjiimmmppptttwww{{{~~~'#130#130#130#135
+  +#135#135#139#139#139#143#143#143#147#147#147#151#151#151#156#156#155#161#161
+  +#160#165#165#165#170#169#169#175#174#174#179#179#179#172#172#172#130#130#130
+  +#129#129#129'{{{wwwrrrnnnjjjhhheeebbb___[[[WWWQQQKKHEIT@c'#207'>p'#255'>m'
+  +#255'>l'#255'<l'#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255
+  +'6f'#255'6e'#255'5d'#255'4c'#255'1b'#255'cr'#166'|tzzzvvvrrrkkkbbbYYYQQQJJJ'
+  +'EEE@@><;;-P'#203'''Y'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255
+  +'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28
+  +'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255
+  +#22'H'#255#20'G'#255#22'G'#251'QXsfbSge^igbihdhgdfecdca``^\[ZXXXSSSOOOJJJEEE'
+  +'BBB>>><<<:::999888888666555444333222///---+++)))''''''&&&$$$###""""""!!!!!!'
+  +'""""""###$$$%%%&&&''''''''''''(((((((((''''''''''''''''''&&&$$$###!!!'#31#31
+  +#31#28#28#28#25#25#25#22#22#22#22#22#22#144#144#144#173#173#173#168#168#168
+  +#162#162#162#157#157#157#152#152#152#147#146#147#142#142#141#137#138#137#133
+  +#133#133#129#129#129'|||wwwssspookkjhhgccb`__[ZZXWWUTTQPPNMMJJJGGGDDDBBB?>?<'
+  +'<<:::677666443000000..-+,+**+)))(((&%%$$###"""!   !     '#31#30#31#29#30#30
+  +#29#29#29#30#28#28#28#27#27#27#27#27#27#28#27#28#28#28#27#27#28#27#27#27#28
+  +#27#27#26#26#26#27#26#26#26#26#26#25#25#25#25#25#25#25#24#24#23#24#24#24#24
+  +#23#23#23#23#23#23#23#23#24#23#23#23#23#23#23#23#22#22#23#22#21#23#22#22#23
+  +#22#22#23#23#23#23#23#23#23#23#23#23#22#23#23#23#22#23#22#22#22#22#21#22#22
+  +#21#21#21#21#22#21#22#21#21#22#21#21#21#21#21#21#21#21#21#21#21#20#21#20#20
+  +#20#21#20#20#20#20#20#20#19#20#20#19#20#19#19#19#18#18#18#18#18#18#18#18#18
+  +#18#18#18#18#17#18#18#18#18#18#17#18#17#17#17#17#17#17#17#17#16#18#17#17#26
+  +#25#25#28#27#26#27#27#27#27#27#27#27#27#27#22#22#22#17#18#17#18#17#18#17#17
+  +#18#17#17#17#17#17#17#17#16#17#17#17#16#16#16#16#16#16#16#16#16#16#16#15#15
+  +#16#15#15#15#15#15#15#15#15#14#14#14#14#15#14#14#14#14#14#14#14#11#12#12#12
+  +#11#11#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#10#11#11#10#10#11#10#11
+  +#10#10#11#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#9#9#10#9#9#9#9
+  +#9#9#9#9#9#9#9#9#8#9#9#9#9#8#9#9#8#9#8#8#8#8#8#8#8#8#8#9#9#9#25#25#25'###'''
+  +'''''*+*/0/'#29#29#29#5#5#6#5#5#5#5#5#5#4#5#5#4#5#4#4#4#5#4#5#4#4#5#4#4#4#4#4
+  +#4#4#3#4#4#4#4#4#3#3#4#10#10#8#3#3#4'000yyy000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000777999:::<<<===;;;///////////////'
+  +'222;;;;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;:::::::::::::::::::::::::::::::::::'
+  +'::9::9::9::9:99:99:99:99:99999999999999999999999999999999999999999998998988'
+  +'988988988988888888888888888555000000000000000000000000444:::;;:;::;::;:::::'
+  +':::::::::::::::::::::::::::::9::9::9:99:99:99:99999999::::::;;;;;;;;;<<<<<<'
+  ,'>>>>>>??>@@?A@@BAACBBEDDEEEGGGHHHJJJKKKNNNPPPRRRUUUWWWYYY\\[^^]`__cbbfffiii'
+  +'mllooorrrvvvyyy~~~'#129#129#129#133#133#133#137#137#137#141#141#141#145#145
+  +#145#150#150#150#154#154#154#158#158#158#163#163#162#168#167#167#172#172#172
+  +#177#177#177#182#181#181#149#149#149#131#131#131#129#129#129'}}}zzzuuuqqqmmm'
+  +'iiifffccc```[[[VVVQQQJH@CS'#131'@r'#255'?o'#255'?n'#255'>m'#255'>l'#255'<l'
+  +#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255
+  +'5d'#255'1b'#255'Ch'#226'z{z|{yxxxtttnnnfff\\\SRRNMLHGEDA8?>9,T'#222'(Y'#255
+  +'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'
+  +#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26
+  +'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#19'F'#255
+  +'3P'#188'N['#137'S^'#136'Zb'#129'aewcfpdflcdibbb`_\[[ZVVVQQQLLLGGGBBB???===:'
+  +':::::888888888666555444333111///...---***)))(((&&&%%%%%%%%%%%%%%%&&&&&&&&&('
+  +'(((((((()))))))))))))))(((''''''&&&$$$###   '#30#30#30#28#28#28#25#25#25#22
+  +#22#22'III'#176#176#176#171#171#171#165#165#164#160#159#160#154#154#154#149
+  +#149#149#144#144#144#140#140#140#135#135#136#131#131#132'yzyuvvrrrmmmiiie'
+  +'edbba^^][YYWVVSSSOONMMLJIIGGGDCDBAB>?>=<<9996665552220100//---++*)**))(''&&'
+  +'%%%$$$###! !  !   '#31#31#31#31#31#31#30#30#29#30#30#30#29#30#30#29#29#29#30
+  +#30#29#30#29#29#30#29#29#29#28#29#29#28#28#29#29#28#29#28#28#29#28#28#28#28
+  +#27#28#27#28#27#28#28#28#27#27#26#26#26#25#25#25#25#25#24#24#23#23#23#24#23
+  +#23#23#23#23#23#23#23#23#22#23#23#22#22#21#22#21#21#22#22#21#22#22#22#22#22
+  +#23#23#23#23#22#22#22#22#22#22#23#22#22#22#22#22#22#22#21#21#22#22#21#22#22
+  +#21#21#21#22#21#21#21#20#21#21#21#20#21#20#21#20#21#20#20#20#20#20#20#20#20
+  +#20#19#20#20#19#20#19#18#19#19#18#18#18#19#19#18#18#18#17#18#17#18#18#18#18
+  +#17#17#18#18#18#17#18#18#17#17#17#17#17#17#19#19#19#28#27#27#27#27#26#27#27
+  +#27#27#27#27#27#27#27#19#18#19#17#17#17#18#17#18#17#17#18#17#17#17#17#17#17
+  +#17#17#17#16#17#17#16#17#16#17#16#16#16#15#15#16#15#15#15#15#15#15#15#14#14
+  +#15#15#15#15#14#14#14#14#14#14#14#13#13#13#11#12#12#12#12#12#12#11#11#11#11
+  +#12#11#11#11#12#11#11#11#11#11#11#11#11#10#11#10#10#10#10#10#11#11#11#10#10
+  +#10#10#11#10#10#10#9#10#10#9#9#10#10#10#9#9#10#10#9#10#10#10#9#9#9#9#9#8#9#8
+  +#9#9#9#8#9#9#8#9#8#8#9#9#9#8#8#9#9#9#19#19#19'!!!%&&***/..++,'#5#5#5#5#5#5#4
+  +#5#5#5#4#5#5#5#5#4#4#4#5#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#4#3#4#4#4#10#8#10#4#3
+  +#4'000yyy0000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000333999:::;;;===>>>222///////////////888;;;;;;;;;;;;;;;;;;;;:;;:;;:;'
+  +'::;::;::::::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999'
+  +'999999999999999999999999999999999989989989889889889889888888888888888885550'
+  +'00000000000000000000000222999;;:;::;::;::::::::::::::::::::::::::::::::::9:'
+  +':9::9:99:99:99:99999:::::::::;;;;;;<<<<<<===>>>>>>@@?AA@A@@CBBEDDEDDGGGGGGI'
+  +'IIKKKNNNOOOQQQSSSUUUXXXZZZ]]\___bbbeddhgglkknmmqqqtttxxx{{{'#131#131#131
+  +#135#135#135#140#140#140#144#144#144#147#147#147#152#152#152#157#157#157#161
+  +#161#161#165#165#165#170#169#169#175#174#174#179#179#179#173#173#173#133#133
+  +#133#132#132#132#129#129#129'}}}xxxtttoookkkgggddd```\\\VVVQQQJIHCCD@b'#203
+  +'@r'#255'@n'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'#255':i'#255':i'
+  +#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'4d'#255'1b'#255'cs'#165'~{rzyxw'
+  +'vtqpmjida_VWTJPOLIJQ?Jn5N'#162'*Y'#247')Z'#255')X'#255'(X'#255'''X'#255'&W'
+  +#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'
+  +#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25
+  +'J'#255#24'I'#255#23'I'#255#23'H'#255#21'G'#255#20'G'#255#20'F'#255#21'F'#253
+  +#21'F'#250#22'E'#247#23'E'#245#29'H'#232#31'H'#227'$I'#214'1N'#185'ZZZVVTQQQ'
+  +'LLLGGGCCC@@@===<<<:::999888888777666555444333222111///...,,,******)))(((((('
+  +'((()))((())))))************)))******)))(((''''''&&&$$$"""   '#29#29#29#26#26
+  +#26#24#24#24#24#24#24#144#144#144#173#173#173#168#168#167#162#162#162#157#157
+  +#157#153#153#153#147#147#147#143#143#142#138#138#138#134#134#134#129#129#129
+  +'|||xxxsstppplllhhhddd``_]]]YYXUTTSRRONNLLLHHHFEEBBB@@@>>><<;:9:666444122101'
+  +'....--+++))))(((&&%$%$$$"""  !!   !!!    '#31'     '#31#31#30#29#30#30#30#30
+  +#30#29#30#30#29#30#29#29#30#29#29#29#28#28#29#29#28#29#28#28#29#28#28#29#28
+  +#27#28#28#28#28#27#27#27#28#28#27#27#27#27#27#27#26#26#27#27#26#26#25#25#26
+  +#24#23#24#23#23#23#23#23#22#23#23#23#23#22#23#22#22#22#21#22#22#21#21#21#22
+  +#21#22#22#23#23#23#22#22#23#22#22#22#22#22#22#22#22#22#22#22#22#21#22#22#22
+  +#21#22#21#22#21#21#21#21#21#21#20#21#21#21#21#21#20#21#20#21#21#20#20#20#20
+  +#20#20#20#20#19#20#20#19#20#19#19#19#19#18#18#18#18#18#18#18#18#18#18#18#17
+  +#17#18#17#18#18#18#17#17#18#17#17#17#17#17#17#17#17#24#23#23#28#26#26#28#27
+  +#26#27#27#27#27#27#28#25#25#24#18#18#18#18#18#17#17#17#17#17#18#17#17#17#17
+  +#17#17#17#17#17#17#17#17#17#16#16#16#16#16#16#16#15#15#16#15#15#15#15#14#14
+  +#15#15#14#14#15#14#14#14#14#14#15#14#14#14#13#13#12#13#12#13#12#12#12#11#12
+  ,#13#11#11#12#12#11#12#11#11#12#11#11#11#11#11#10#10#11#11#10#11#11#10#11#11
+  +#10#10#11#10#10#10#10#10#10#9#10#10#10#9#10#10#9#9#10#9#9#9#10#9#9#9#9#9#9#9
+  +#8#9#9#8#8#8#9#9#9#8#9#9#9#9#9#9#10#9#13#12#12'   %%%)((-.-010'#11#11#11#5#5
+  +#5#5#5#5#5#4#4#4#5#5#5#5#5#4#4#5#5#5#4#5#4#4#5#4#4#4#4#4#4#4#4#4#4#4#8#10#10
+  +#4#4#4'000yyy000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000777999:::<<<===;;;///////////////111;;;;;;;;;;;;;;;;;;;;;;;:'
+  +';;:;::;::;::;:::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:99'
+  +'999999999999999999999999999999999999998998998988988988988988888888888888888'
+  +'888555000000000000000000000000111877;;:;::;::;:::::::::::::::::::::::::::::'
+  +':::::9::9::9:99:99:99:99:::::::::;;;;;;<<<<<<===>>>>>>???AA@AA@CBBDCCEDDGFF'
+  +'GGGIIIKKKLLLNNNPPPRRRUUUWWWYYY\\\__^aa`dccgffiiimmmpppssswwwzzz~~~'#130#130
+  +#130#133#133#133#137#137#137#142#142#142#146#146#146#151#151#151#154#154#154
+  +#159#159#159#164#164#163#168#168#168#172#172#172#177#177#177#182#181#181#150
+  +#150#150#133#133#133#131#131#131#128#128#128'{{{vvvrrrmmmiiieeeaaa]]]WWWQQQJ'
+  +'KKDB=>EZ@m'#242'@q'#255'@n'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'
+  +#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'2c'#255'Ch'#226
+  +'xxxxxustxloy_g'#133'P`'#150'B['#173'9Y'#198'1['#234',\'#254'*\'#255'*['#255
+  +'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'
+  +#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255
+  +#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'
+  +#255#21'G'#255#20'G'#255#20'F'#255#19'E'#255#17'D'#255#16'C'#255#15'B'#255#13
+  +'A'#255#12'?'#255#12'?'#255'BP'#135'WTJOOOKKKHHHCCC@@@===<<<;;;:::8888888888'
+  +'88666555444444333111000///...---,,,+++++++++***++++++,,,,,,,,,++++++++++++*'
+  +'*****(((''''''&&&$$$"""'#31#31#31#29#29#29#26#26#26#23#23#23'HHH'#176#176
+  +#176#171#171#171#165#165#165#161#160#161#155#155#155#150#150#150#145#145#145
+  +#142#142#142#137#137#137#133#133#133#128#128'{{{wwwrrrnnnkkjggfccc___[ZZXXX'
+  +'UTTQPPNNNKJIHGGEDDBBB???===;;;878666444122000../,,,+++))))((&&%&$%$##""#"""'
+  +'"""#""!"!!  !    '#31#31#31#30#31#30#30#30#30#29#31#30#29#30#29#29#30#29#29
+  +#29#29#29#29#29#29#29#28#29#29#28#28#29#28#28#28#28#28#28#28#28#27#28#28#27
+  +#27#27#27#27#27#27#27#27#27#26#27#26#26#27#26#27#26#25#26#25#24#24#24#23#22
+  +#23#23#22#23#23#23#23#22#21#22#21#21#22#21#21#21#21#21#21#22#22#22#23#22#22
+  +#22#22#22#22#22#22#22#22#22#21#22#22#22#22#22#22#22#21#21#22#22#21#22#21#21
+  +#21#21#21#21#21#20#21#21#21#21#20#21#20#21#20#21#20#20#20#20#20#19#20#20#19
+  +#20#19#19#19#19#18#18#18#18#18#18#18#18#17#18#18#18#18#17#17#18#17#18#17#17
+  +#17#17#17#17#17#17#18#17#18#27#27#27#27#27#26#28#27#26#28#27#27#27#27#27#20
+  +#20#20#18#18#17#18#18#18#17#18#17#18#17#17#17#17#17#16#16#17#17#16#17#16#16
+  +#17#17#16#16#16#16#15#16#15#15#15#15#15#15#15#14#15#14#15#15#15#14#14#15#14
+  +#15#15#14#14#14#14#14#14#14#14#13#14#14#14#14#14#13#14#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#13#11#12#12#11#12#12#12#11#12#11#11#11#11#12#12#11#11
+  +#11#10#11#11#10#10#10#10#10#10#9#10#10#9#9#10#9#9#9#9#9#9#9#8#9#9#9#9#8#9#8#8
+  +#8#8#8#8#8#10#10#10#27#27#27'#"#(((,,-000'#24#24#24#5#5#5#5#6#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#4#5#4#4#5#4#5#4#4#4#5#4#4#4#4#3#4#4#10#10#10#3#4#4'000yyy00000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000033399'
+  +'9:::;;;===>>>222///////////////766;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;:::::::'
+  +':::::::::::::::::::::::::::::::::9::9::9:99:99:99:99:9999999999999999999999'
+  +'999999999999999999999899898898898898898888888888888888888888876600000000000'
+  +'0000000000000000555;;:;::;::;::::::::::::::::::::::::::::::::::9::9::9:99:9'
+  +'9:99;::::::::;;;;;;<<<<<<===>>>>>>???AAAAA@BBACBBEDDFEEHGGHHHJJJKKKNNNPPPQQ'
+  +'QTTTVVVXXX[[[^^^``_bbbfeeihhlkkonnsrruuuyyy|||'#128#128#128#132#132#132#136
+  +#136#136#140#140#140#144#144#144#148#148#148#153#153#153#157#157#157#161#161
+  +#161#166#166#166#170#170#169#175#174#174#179#179#179#173#173#173#135#135#135
+  +#134#134#134#131#131#131'yyyuuuqqqkkkgggbbb^^^YYYSSSLLLEEE?<3=O'#133'Aq'
+  +#255'@p'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'#255':i'#255
+  +':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'4d'#255'Gi'#216'Gh'#215'=e'
+  +#231'6b'#246'2a'#252'.`'#255',`'#255'-_'#255'-^'#255'-]'#255'-\'#255'+['#255
+  +'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'
+  +#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29
+  +'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255
+  +#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'C'
+  +#255#16'B'#255#13'@'#255#28'D'#221'MMPLLHHHHEEECCC@@@===<<<<<<:::99988888888'
+  +'8888666666555444444222111111000......---------------------,,,,,,,,,,,,+++++'
+  +'+***)))''''''&&&$$$!!!'#30#30#30#28#28#28#25#25#25#25#25#25#146#145#146#173
+  +#174#173#168#168#168#162#162#162#158#158#158#153#153#153#147#148#147#144#144
+  +#144#139#139#140#135#135#135#129#129#130'~~}zyzuuuqqqmmmhhieeeaaa]]]ZYZVWVSS'
+  ,'SPPONMMJIIHGFECDBAA?>>===:9:7775653331110/0///,,++**))*)))&''&%%%$%$%$###$#'
+  +'#####!!! !!!  ! '#31#31#31#30#30#30#30#31#30#29#31#30#30#31#30#29#30#29#29
+  +#30#29#29#29#29#29#29#28#28#29#29#29#29#28#28#28#28#28#28#28#28#28#28#27#27
+  +#28#28#28#27#28#27#27#27#27#27#27#26#27#27#27#27#27#26#27#26#26#26#26#26#26
+  +#26#24#24#24#23#23#23#22#22#22#22#22#22#21#22#22#21#21#21#21#21#21#22#21#22
+  +#23#22#23#23#22#22#22#22#22#22#22#22#21#22#22#21#21#22#21#21#22#21#21#22#21
+  +#22#21#21#21#21#21#21#21#21#21#20#20#20#20#20#20#20#20#20#20#20#20#20#20#19
+  +#20#20#19#20#19#18#19#19#18#18#19#19#18#18#18#18#18#18#18#18#18#17#18#17#18
+  +#17#17#17#17#17#17#17#17#17#22#21#21#28#27#27#27#26#27#28#27#26#27#28#27#25
+  +#25#24#18#18#17#18#18#18#18#17#17#17#18#17#17#18#18#17#17#17#17#17#17#17#17
+  +#17#17#16#16#16#15#16#16#15#15#15#15#15#15#15#15#15#15#15#14#14#14#15#15#15
+  +#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#14#13#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#12#13#13#12#12#13#12#13#12#12#11#12#12#12#12#12#12
+  +#12#11#11#12#11#10#11#10#11#10#10#11#10#10#10#11#11#10#10#10#10#10#10#10#10#8
+  +#9#9#8#9#8#9#8#8#9#9#8#9#10#10#20#20#20'"""&''''*+*000%%$'#5#6#6#5#5#5#5#6#5
+  +#5#5#5#5#5#5#5#5#5#5#5#4#4#4#4#4#4#4#5#4#4#4#4#5#4#4#5#10#10#10#4#4#4'000yyy'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000888999:::<<<===<<<///////////////0/0:::;;;;;;;;;;;;;;;;;;;;:;;:;::;::'
+  +';::::::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:99999999999'
+  +'999999999999999999999999999998998998988988988988988888888888888888888888766'
+  +'111000000000000000000000000222999;::;::;::::::::::::::::::::::::::::::::::9'
+  +'::9::9:99:99;::;:::::;;;;;;;;;<<<<<<>>>>>>>>>@@@AAABBACCBEDDEDDHGGHGGIIIKKK'
+  +'MMMOOOQQQSSSUUUXXXZZZ\\\___bbaeedgffjiinmmppptttwww{{{~~~'#130#130#130#133
+  +#133#133#137#137#137#142#142#142#147#147#147#151#151#151#154#154#154#159#159
+  +#159#164#164#164#168#168#167#172#172#172#177#177#177#182#181#181#154#154#154
+  +#135#135#135#134#134#134#130#130#130'}}}yyysssnnniiieee```[[[UUUOOOHHHBA@<:6'
+  +'?['#179'As'#255'@o'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'
+  +#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'5e'#255'2c'#255'1c'#255
+  +'1b'#255'1a'#255'1a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'
+  +#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255
+  +'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255
+  +#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'
+  +#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18
+  +'D'#255#17'C'#255#16'C'#255#13'A'#255'-C'#156'GE=CDCBBB@@@???===<<<<<<;;;:::'
+  +':::888888888888777666555444444333222111111000000/////////.........------,,,'
+  +',,,,,,+++***)))''''''&&&###   '#30#30#30#27#27#27#24#24#24'RRR'#176#176#176
+  +#171#171#171#165#165#165#160#160#160#155#155#155#150#150#150#145#145#145#142
+  +#142#142#138#138#138#133#133#133#128#128'{{{xwxrrroookkkgggccc``a\\\XXXVVVS'
+  +'RRPPOLLLIHHFFFDCCAA@>>==<=999777455222221///...++,*+*)))(((&&&''&&%&%$#$$#$'
+  +'###"""""!!! !!    '#31#31#30#31#30#30#31#30#30#30#30#30#30#30#29#30#29#30#30
+  +#29#29#29#29#29#29#28#28#29#29#28#29#28#28#29#28#28#28#28#28#27#28#28#28#28
+  +#27#28#27#27#27#28#27#27#27#27#27#27#27#26#27#26#27#26#27#27#26#27#26#26#26
+  +#26#26#26#25#25#25#22#22#23#23#22#22#23#21#22#22#21#22#21#21#21#21#21#21#21
+  +#21#20#23#22#22#22#22#22#22#23#22#22#22#22#22#21#21#22#21#22#22#22#22#21#21
+  +#21#21#21#21#21#21#21#20#21#21#21#21#21#20#20#20#20#20#20#20#20#20#19#20#20
+  +#20#19#20#20#19#20#19#18#19#18#19#18#19#18#18#18#18#18#18#18#18#18#18#18#17
+  +#17#18#17#17#17#17#17#17#17#17#17#26#26#26#28#27#27#27#27#27#27#27#26#27#27
+  +#27#21#21#21#18#18#18#17#18#18#18#18#17#17#17#17#17#17#17#17#17#17#17#17#17
+  +#17#16#16#17#16#16#16#15#15#16#16#15#15#16#15#15#15#15#15#15#15#15#14#14#14
+  +#14#14#15#14#14#14#14#15#14#14#14#14#14#14#14#14#14#13#14#13#13#13#13#14#13
+  +#13#13#13#13#13#13#13#13#13#12#13#13#13#13#12#13#13#12#12#12#11#12#12#11#12
+  +#12#11#12#11#11#11#11#11#11#11#11#10#10#10#10#10#11#11#10#11#10#10#10#10#9#9
+  +#10#8#9#9#9#9#8#9#9#9#9#10#9#16#15#15'!!!&&&+++//.222'#6#5#5#5#6#5#5#5#6#5#5
+  +#5#5#5#5#5#5#5#5#5#5#4#4#5#4#4#4#4#4#4#5#4#4#4#4#4#10#10#10#4#4#4'000yyy0000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00333999:::;;;===>>>444///////////////555;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;'
+  +':::::::::::::::::::::::::::::::::::::9::9::9::9:99:99:99:99:999999999999999'
+  +'999999999999999999999999999989989889889889889888888888888888888888888888772'
+  +'22000000000000000000000000111666;::;::;::::::::::::::::::::::::::::::::::9:'
+  +':9::9:99;::;::;::;;;;;;;;;<<<<<<===>>>>>>@@@AAAAAACCBDDCEDDGFFHGGJIIKKKLLLN'
+  +'NNPPPRRRUUUWWWYYY\\\^^^```ccbfffiiilkkpoosrrvuuyyy|||'#128#128#128#132#132
+  +#132#136#136#136#140#140#140#144#144#144#148#148#148#153#153#153#157#157#157
+  +#161#161#161#165#165#165#170#170#169#175#175#174#179#179#179#177#177#177#140
+  +#139#139#136#136#136#133#133#133#129#129#129'|||vvvqqqlllfffbbb]]]XXXRRRKKKE'
+  ,'EE?>;<>D@f'#216'Ar'#255'@o'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'
+  +#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255
+  +'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'
+  +#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255
+  +'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31
+  +'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255
+  +#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'
+  +#255#18'D'#255#17'C'#255#15'B'#255#17'A'#247'8?Z@?:???===>>>======<<<;;;;;;:'
+  +'::999888888888777666666666555444444333333222222111000000000//////......---,'
+  +',,,,,+++***)))''''''%%%"""   '#29#29#29#26#26#26'###'#157#157#157#174#174
+  +#174#168#168#167#162#163#162#157#157#157#153#153#153#148#148#148#144#144#144
+  +#140#140#140#135#135#136#130#130#130'~~~zzzvvvqqqmmniiifffbbb^]][[\XXXTSTQPQ'
+  +'NNNKKKHHHFEECBB@@@===;::988776555222100///---+,,))*))*)()''''''''''''%%%$$$'
+  +'##$$##""""""!!! ! !  '#31#31#30#31#31#31#29#29#29#28#27#28#28#27#27#27#27#27
+  +#26#25#26#25#25#25#25#26#26#27#26#26#27#26#27#26#27#27#27#27#27#28#28#28#27
+  +#28#28#27#27#27#28#27#28#27#27#27#27#27#27#27#27#27#27#27#26#27#27#27#26#27
+  +#27#27#27#26#26#26#26#26#26#26#24#24#24#23#23#23#22#22#22#21#21#22#21#21#21
+  +#21#21#21#21#21#21#22#22#22#22#22#22#22#22#22#22#22#22#21#22#22#22#22#21#21
+  +#22#22#21#21#21#21#22#21#21#21#21#21#21#21#21#21#20#20#20#20#20#20#21#21#20
+  +#20#20#20#20#20#19#20#20#19#19#19#18#19#18#19#19#18#18#18#18#18#18#17#18#18
+  +#18#18#17#17#17#18#17#18#18#17#17#17#20#20#20#27#27#26#27#27#27#28#26#27#27
+  +#27#26#25#25#25#18#18#18#17#18#18#18#17#18#18#17#17#17#17#18#18#17#18#17#17
+  +#17#17#17#16#17#16#16#17#15#15#16#15#15#15#16#16#15#15#15#15#15#15#15#15#15
+  +#15#15#15#15#14#15#14#14#15#14#14#14#14#14#14#14#14#14#14#14#14#14#13#14#14
+  +#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#13#11#13#12#11
+  +#12#12#11#12#11#11#11#11#11#11#10#11#11#11#11#11#11#10#10#11#11#10#10#11#10
+  +#10#10#10#9#9#9#8#9#9#9#9#9#10#9#9#10#11#11#31#30#30'%%%)))...122'#16#17#16#6
+  +#6#5#6#6#5#5#6#5#5#5#5#5#5#5#5#5#5#5#5#4#4#5#5#5#5#5#4#4#5#4#5#4#10#10#10#4#4
+  +#4'000yyy0000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000777999:::<<<======//////////////////999;;;;;;;;;;;;;;;;;:;'
+  +';:;::;::;::;::::::::::::::::::::::::::::::::::::::::9::9::9:99:99:99:99:99:'
+  +'999986664441115559999999999999999999999989989889889889889889888888888888888'
+  +'88888888888888333000000000000000000000000000333998;::;:::::::::::::::::::::'
+  +':::::::::::::9::9::9;::;::;::;::;;;;;;<<<<<<===>>>>>>???AAAAAABBBCCBEEDFEEH'
+  +'GGIHHKJJKKKNNNOOOQQQSSSUUUXXXZZZ]]]___bbbeedhhgkjjnmmqpptttwww{{{~~~'#130
+  +#130#130#134#134#134#137#137#137#142#142#142#146#146#146#151#151#151#154#154
+  +#154#158#158#158#163#163#163#168#168#168#172#172#172#177#177#177#182#181#181
+  +#162#162#162#137#137#137#135#135#135#132#132#132#128#128#128'zzzuuuooojjjeee'
+  +'```[[[VVVOOOIIICDD><6<CZAl'#236'Ar'#255'@o'#255'@o'#255'?n'#255'>m'#255'>l'
+  +#255'<l'#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255
+  +'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'
+  +#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255
+  +'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'
+  +#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26
+  +'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255
+  +#20'F'#255#19'E'#255#18'D'#255#16'C'#255#23'A'#225'9<G>=:==================<'
+  +'<<;;;;;;;;;:::999888999888666666666555555444333333333222222000000000//////.'
+  +'.....---,,,+++***(((''''''$$$"""'#31#31#31#28#28#28#26#26#26'iii'#177#176
+  +#176#171#171#171#165#165#165#160#160#160#155#155#155#150#150#150#145#145#145
+  +#142#142#142#137#137#137#133#133#133#128#128#128'}||xxxtttpopkkkgggddda``]]]'
+  +'YYYVWWSSSPPPMMMJIIHGGDDCAAA@??=<=<::878766444222101//0--,+++**)++*)))'''''''
+  +'&&&%%%$$#$$$$###""!!"!!!'#31#30#31#29#29#28#26#26#26#25#25#25#25#25#25#25#25
+  +#25#25#24#24#25#25#24#25#25#24#25#24#24#24#24#24#24#24#24#23#24#23#23#23#23
+  +#24#23#23#23#23#23#24#24#24#25#25#24#27#27#26#28#27#27#28#28#27#27#27#27#27
+  +#26#27#27#27#27#26#27#26#26#26#26#26#26#26#26#26#26#26#26#25#25#25#25#22#22
+  +#22#22#21#22#21#22#22#21#21#21#21#21#21#21#21#21#23#22#22#22#22#22#22#22#23
+  +#22#22#22#21#22#22#22#22#22#22#21#21#22#21#21#21#21#21#21#21#21#21#20#21#21
+  +#21#20#20#21#21#21#20#20#20#20#21#20#20#20#20#19#20#20#19#20#19#19#19#19#19
+  +#18#18#18#18#18#18#18#17#18#18#18#17#18#17#17#17#17#17#17#17#17#17#25#25#25
+  +#27#26#27#27#27#27#27#26#26#27#27#27#20#20#20#18#18#18#18#18#18#17#17#17#18
+  +#18#18#17#17#17#18#17#17#17#17#17#17#16#16#16#16#16#16#16#15#16#15#15#16#15
+  +#15#15#15#15#15#15#15#15#15#15#15#14#14#14#14#15#15#15#15#15#14#14#14#14#14
+  +#14#14#14#14#13#13#14#14#13#14#13#13#13#13#14#13#13#13#13#13#13#13#12#13#13
+  +#13#13#12#11#13#12#11#12#12#12#12#11#11#12#11#11#11#11#11#11#10#11#11#11#11
+  ,#11#11#11#11#10#10#11#11#11#10#9#9#9#9#9#9#9#9#9#9#8#9#9#10#10#24#24#25'###('
+  +'((---111'#29#29#29#6#5#5#5#5#6#5#6#5#5#5#5#5#5#5#5#5#5#4#5#4#5#5#5#4#5#5#5#4
+  +#4#4#5#5#10#10#10#4#4#4'000yyy0000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000222999:::;;;===>>>767///////////////2'
+  +'22;;;;;;;;;;;;;;;;;;;;:;;:;::;::;::;:::::::::::::::::::::::::::::::::::::9:'
+  +':9::9::9:99777555222000///////////////5559999999999999999999989989989889889'
+  +'88988988888888888888888888888888888888555001000000000000000000000000000655:'
+  +'::;::::::::::::::::::::::::::::::::::9::9::9;::;::;::<;;;;;<<<<<<===>>>>>>?'
+  +'??@@@AAABBBCCCEEDEEDHGGHGGJIILKKMMMNNNPPPRRRUUUWWWYYY\\\^^^aaacccfffiiimllp'
+  +'oosrrvuuzyy|||'#128#128#128#132#132#132#136#136#136#140#140#140#144#144#144
+  +#148#148#148#152#152#152#156#156#156#161#161#161#165#165#165#170#170#170#174
+  +#174#173#178#178#178#180#180#180#147#147#147#138#138#138#135#135#135#131#131
+  +#131'yyysssnnnhhhccc^^^YYYTTTNNNHHHBCC>;3>JqBp'#249'Aq'#255'@o'#255'@o'
+  +#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'#255':i'#255':i'#255'9h'#255
+  +'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'
+  +#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255
+  +')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'
+  +#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'
+  +#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22
+  +'H'#255#21'G'#255#21'F'#255#20'F'#255#19'E'#255#16'D'#255'(>'#143'=:/<<<===='
+  +'===========>>>======<<<<<<<<<;;;:::9999998887776666665555554443333333332222'
+  +'22000000000//////......,,,+++***(((&&&$$$!!!'#30#30#30#27#27#27'666'#173#173
+  +#172#174#173#173#167#167#167#163#162#162#158#157#157#152#153#152#147#147#147
+  +#144#143#143#140#140#140#136#136#136#130#131#131'~~~zzzvvvqqqnnmjijfffbbb___'
+  +'\\\XXXTUTRRRNNNLLLHIIFFFCCCAA@>===<<;::9777554333120/0//.--,,,++++***(()''('
+  +'''''&&%%%$$$$$$#$$"""'#31#30#31#27#27#27#27#26#26#26#25#26#25#25#26#26#25#25
+  +#26#25#25#25#25#25#25#25#25#24#25#25#24#25#25#25#24#24#24#24#24#24#24#24#24
+  +#24#24#24#24#24#24#23#24#23#24#24#24#23#23#23#23#23#23#23#23#23#23#24#26#24
+  +#25#27#27#28#27#27#27#27#27#27#27#27#27#26#26#27#27#26#27#26#26#26#26#26#26
+  +#26#26#26#26#25#26#23#22#23#22#21#22#21#21#22#21#21#21#21#21#20#21#20#21#22
+  +#22#22#22#23#22#22#22#22#22#22#22#21#22#22#21#22#22#22#21#21#21#21#22#21#21
+  +#21#21#21#21#21#21#20#21#20#20#21#20#21#21#20#20#20#20#20#20#20#20#20#19#20
+  +#20#19#19#19#19#19#18#18#18#18#18#18#17#18#18#18#18#18#17#18#18#17#17#17#17
+  +#17#18#20#19#20#27#27#27#27#27#27#28#27#27#27#27#27#25#24#24#18#18#19#18#18
+  +#18#17#18#18#17#18#18#18#18#17#17#17#17#17#17#17#17#16#16#17#16#16#16#16#16
+  +#16#16#16#15#15#16#15#15#15#15#15#15#15#15#15#14#15#15#15#14#14#14#14#15#14
+  +#14#14#14#15#14#14#14#14#14#14#14#14#13#14#13#13#14#13#13#13#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#12#13#13#11#12#12#12#12#12#11#12#11#11#12#11#11#11
+  +#10#11#11#11#10#11#11#11#11#11#10#11#10#10#11#9#9#9#9#9#9#9#9#9#8#8#9#10#9#9
+  +#19#19#20'###'''''',,,000((('#5#6#6#5#5#5#6#5#5#6#6#5#5#5#5#5#5#5#5#5#5#5#5#5
+  +#5#5#4#5#5#5#5#4#5#10#13#13#4#4#4'000yyy000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000666999:::<<<===>>>000///'
+  +'////////////777;;;;;;;;;;;;;;;;;:;;:;::;::;::;:::::::::::::::::::::::::::::'
+  +'::::::988666434112/////////////////////////////////766999999999999999999998'
+  +'998988988988988988888888888888888888888888888888888777111000000000000000000'
+  +'000000000222777;::::::::::::::::::::::::::::::::::9::9;;:;::;::<;;<;;;;;<<<'
+  +'<<<===>>>>>>@@@AAAAAACCCDDDEEDGGFHGGJIIKKKMLLNNNPPPQQQTTTVVVXXX[[[]]]___bbb'
+  +'eeehhgkkjnmmqpptttwww{{{~~~'#130#130#130#133#133#133#137#137#137#142#142#142
+  +#146#146#146#150#150#150#154#154#154#158#158#158#163#163#163#167#167#167#171
+  +#171#171#175#175#175#180#180#180#172#172#172#139#139#139#139#139#139#135#135
+  +#135#131#131#131'}}}wwwqqqlllfffbbb]]]XXXSSSLLLGGGBBA>;3?P'#134'Br'#255'Aq'
+  +#255'@o'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'#255':i'#255
+  +':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'
+  +#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255
+  +'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'
+  +#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29
+  +'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255
+  +#23'H'#255#22'H'#255#21'G'#255#21'F'#255#18'F'#255#23'C'#230'69D:96;;;<<<==='
+  +'>>>>>>>>>??????????????????>>>===;;;:::999999777777666555555444333333333222'
+  +'222000000000//////...---+++***(((%%%###   '#29#29#29#28#28#28#138#137#137
+  +#176#175#176#171#171#170#164#164#164#159#159#159#155#155#155#150#150#150#145
+  +#145#145#142#142#141#137#137#137#133#133#133#128#128#128'{||xxxssspppkkkhhhe'
+  +'ddaaa]]]ZZZVWWTTSPQQMMMKKKHHHEFFCCB@@@?>=;;;:98777776432211100....-,,+,+++*'
+  +'**((''((''&%&$$$$$$$##!! '#28#29#29#27#26#27#27#27#27#27#26#27#26#25#26#26
+  ,#25#26#26#25#26#25#25#25#25#25#25#25#25#25#24#25#25#25#25#25#25#24#24#25#25
+  +#24#24#25#24#24#24#24#23#24#24#24#23#24#24#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#22#23#23#23#23#22#22#25#24#25#27#27#27#27#27#27#27#27#27#27#26#27#26
+  +#27#27#26#26#26#26#26#26#25#26#25#26#26#25#24#23#23#22#21#22#21#21#22#21#21
+  +#21#21#21#21#20#20#21#23#22#22#22#23#23#22#22#22#22#22#22#22#22#22#21#22#22
+  +#21#22#22#21#21#21#22#21#21#21#21#21#21#21#21#20#20#21#20#20#20#20#20#20#20
+  +#20#20#20#20#20#20#19#19#20#19#20#19#19#19#18#18#18#18#18#18#18#18#18#17#18
+  +#18#18#17#17#18#17#17#17#18#18#26#26#26#27#27#27#26#27#27#27#26#26#28#26#27
+  +#19#20#19#18#18#19#18#18#18#18#18#18#18#17#18#17#18#18#17#17#17#18#17#17#17
+  +#16#16#17#15#15#16#16#15#15#16#15#15#15#15#15#15#15#15#15#16#15#15#15#15#15
+  +#15#15#14#14#14#15#14#14#15#14#15#14#14#14#14#14#14#14#14#13#13#14#14#14#13
+  +#13#14#14#13#13#14#13#14#13#13#13#13#13#13#12#13#12#13#12#12#13#12#11#12#11
+  +#12#11#11#11#11#11#11#11#11#11#11#10#11#10#10#11#10#10#10#11#9#9#10#9#9#9#9#9
+  +#9#9#9#9#10#10#9#15#15#15'!!!&&&+++000333'#6#5#6#5#6#6#6#6#6#5#5#5#5#6#5#5#5
+  +#5#6#6#5#5#5#5#5#5#5#5#5#5#4#5#5#10#13#13#4#4#4'000yyy0000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000111999:::;'
+  +';;<<<>>>:::///////////////0/0:::;;;;;;;;;;;;;;:;;:;::;::;::;:::::::::::::::'
+  +':::::999777444212//0///////////////////////////////////////////////07779999'
+  +'999999999999989989989889889889889888888888888888888888888888888888888884440'
+  +'00000000000000000000000000000333888::::::::::::::::::::::::::::::::9;;:;;:;'
+  +'::<;;<;;<;;<<<<<<===>>>>>>???AAAAAABBBCCCEEEFFEHHGIHHJIILKKNMMNNNQQQRRRUUUW'
+  +'WWYYY\\\^^^aaadddfffiiimmlpoosrrvuuzyy}||'#128#128#128#132#132#132#135#135
+  +#135#140#140#140#144#144#144#147#147#147#151#151#151#156#156#156#160#160#160
+  +#164#164#164#168#168#168#172#172#172#177#177#177#182#182#181#159#159#159#140
+  +#140#140#139#139#139#134#134#134#129#129#129'|||vvvpppkkkeeeaaa\\\WWWRRRKKKF'
+  +'GGAA@=;5?S'#147'Br'#255'Aq'#255'@o'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'
+  +#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255
+  +'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'
+  +#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255
+  +'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31
+  +'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255
+  +#25'J'#255#24'I'#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#18'G'#255'&>'
+  +#154':8-:::;;;<<<>>>>>>>>>@@@@@@AAABBBBBBCCCBBBAAA@@@>>>===;;;:::99988877755'
+  +'5555555444333333333222222000000000///...---+++)))''''''%%%"""'#31#31#31#29
+  +#29#29'\\\'#177#177#177#173#172#172#167#167#167#161#161#161#156#156#156#152
+  +#151#151#147#147#147#143#143#143#140#139#139#136#135#135#131#131#131'~~~zzzv'
+  +'vvqrqnnnjjjfffccc_`_\\\XXXVVVRRRONNLLLIIIGGGDDDAAA???===;;:9986765553331110'
+  +'//-..--,+,++++)*)(((''''''&&&$$$!!!'#30#30#31#28#28#29#28#28#29#27#27#27#27
+  +#26#28#27#26#27#26#25#27#26#25#26#25#25#26#26#25#26#25#25#25#26#26#26#26#26
+  +#26#25#26#26#25#26#25#25#26#26#24#24#24#24#24#24#24#24#24#24#24#24#23#24#23
+  +#23#23#23#24#23#23#23#23#23#23#23#23#23#23#23#22#22#22#23#22#23#23#22#22#25
+  +#25#25#27#27#27#26#27#26#27#26#26#26#26#26#27#26#27#26#26#26#26#26#26#26#25
+  +#26#24#23#23#22#21#22#21#21#22#21#21#21#21#21#21#20#21#21#22#22#23#22#22#23
+  +#22#22#22#22#22#22#21#21#22#22#22#22#22#21#22#21#21#21#21#21#21#21#21#21#20
+  +#21#21#21#21#20#20#21#21#21#20#20#20#20#20#20#20#20#20#19#20#19#19#20#19#18
+  +#19#19#18#18#19#18#18#18#17#18#17#18#18#18#17#17#18#18#17#21#21#21#27#28#27
+  +#27#27#27#26#27#27#28#27#27#23#23#23#18#18#19#18#18#19#18#18#18#18#18#17#18
+  +#18#18#18#17#18#18#17#17#17#16#17#17#16#16#16#16#16#16#16#16#16#15#16#15#16
+  +#16#15#15#15#15#15#16#15#15#15#15#14#15#14#15#15#15#15#15#14#14#15#14#14#14
+  +#14#14#14#14#14#13#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#12#13#13#12#13#12#12#12#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11
+  +#10#11#11#10#10#11#10#9#9#9#9#9#9#9#9#9#10#10#10#10#10#11#31#31#30'&&&***///'
+  +'333'#14#15#15#5#6#5#6#6#6#5#5#6#6#6#5#6#5#5#5#6#5#5#5#6#5#5#5#5#5#5#4#5#5#10
+  +#10#10#5#5#5'000yyy000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000555999:::<<<===>>>333///////////////444;;;'
+  +';;;;;;;;;;;;;;:;;:;::;::;::;:::::877555333000//////////////////////////////'
+  +'///////////////////////////////////0777999999999999998998998988988988988988'
+  +'888888888888888888888888888888888888888666111000000000000000000000000000101'
+  +'333888:::::::::::::::::::::::::::;;:;;:;;:<;;<;;<;;=<<<<<===>>>>>>???@@@AAA'
+  +'BBBCCCDDDEEEGGFHHGJIIKKKMLLONNPPPRRRTTTVVVXXX[[[]]]```bbbeeehhhkkjnnmpppttt'
+  +'www{{{~~~'#130#130#130#133#133#133#137#137#137#141#141#141#145#145#145#149
+  +#149#149#154#154#154#157#157#157#161#161#161#165#165#165#170#170#170#175#175
+  +#175#178#178#178#180#180#180#148#148#148#141#141#141#137#137#137#133#133#133
+  +#129#129#129'{{{uuuoooiiiddd```[[[VVVQQQKKKEEFA@?=:4>S'#147'Br'#255'Aq'#255
+  ,'@o'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'#255':i'#255':i'
+  +#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255
+  +'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['
+  +#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255
+  +'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'
+  +#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23
+  +'H'#255#21'H'#255#24'E'#237'49J984;;;===>>>>>>???@@@BBBCCCDDDEEEGGGGGGFFFFFF'
+  +'EEEBBB@@@>>><<<:::888777777666555555444333333333222222111000///...---+++)))'
+  +'&&&$$$!!!'#31#31#31'333'#169#169#169#174#174#174#170#170#170#163#163#163#158
+  +#157#158#153#153#153#149#149#149#145#145#145#142#141#141#138#137#136#133#132
+  +#132#129#128#129'|||xxwtsspppkklhhhdddaaa]]^[ZZWWWTTTQRRNNNLKKHHHFFFCCCABB?>'
+  +'>=<<:::8887774552321110//...---,,,+*****(((''''''%$$   '#31#30#31#29#29#31
+  +#28#29#30#28#28#29#27#27#28#27#27#28#28#28#29#27#27#28#27#26#27#27#26#27#28
+  +#27#28#28#27#27#31#31#31'   """#"#'#31' '#31#30#29#30#29#29#30#25#25#25#25#25
+  +#25#24#23#24#24#24#23#24#24#23#23#23#23#23#23#23#23#23#23#22#23#23#23#23#23
+  +#23#23#22#22#22#22#23#23#23#26#26#26#27#27#27#26#27#27#27#27#27#26#27#26#26
+  +#26#26#26#26#26#26#26#26#23#24#23#22#21#23#21#22#22#21#21#21#21#20#20#21#21
+  +#21#22#23#23#22#23#22#22#22#22#22#22#22#21#22#22#22#22#21#21#22#21#21#21#21
+  +#21#21#21#21#21#21#20#20#21#20#21#20#20#20#21#21#20#20#20#20#20#20#20#20#20
+  +#19#19#19#19#19#19#18#19#18#19#19#18#18#18#18#18#18#17#17#18#18#17#18#17#18
+  +#17#27#26#26#27#27#27#27#27#27#27#27#27#27#26#27#19#18#19#18#18#18#18#18#18
+  +#18#18#18#18#18#18#17#18#17#18#17#17#17#17#16#17#16#16#16#16#16#16#16#16#16
+  +#16#15#15#16#16#15#15#16#15#16#15#15#15#15#15#15#15#15#15#15#15#14#14#15#14
+  +#14#14#14#15#14#15#14#14#14#14#14#14#14#14#14#14#13#14#13#14#13#13#13#14#13
+  +#13#13#13#13#12#13#12#12#13#13#12#13#12#11#12#11#11#12#11#11#12#11#11#11#11
+  +#11#11#11#11#11#11#11#11#10#10#11#9#10#10#10#9#9#9#9#9#9#9#9#11#11#10#27#26
+  +#27'$$$)))...333'#26#26#26#6#6#6#6#6#6#6#6#6#5#6#6#5#6#6#6#5#5#5#5#5#5#5#5#5
+  +#5#5#5#5#5#10#10#13#4#5#5'000yyy00000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000111888:::;;;<<<======////////'
+  +'//////////888;;;;;;;;;;;;;;:;;:999666444222////////////////////////////////'
+  +'///////////////////////////////////////////////////077799999999999999899898'
+  +'898898898898888888888888888888888888888888888888888888877744400000000000000'
+  +'0000000000000101101333888:::::::::::::::::::::;;;;;:;;:;;:<;;<;;<;;=<<<<<=='
+  +'=>>>>>>???AAAAAACCCDDDEEEFFFHHGIIHKJJLKKONNPOOQQQSSSUUUWWWYYY\\\^^^aaacccff'
+  +'fiiillkpposrrvuuyxx|{{'#129#128#128#131#131#131#135#135#135#139#139#139#143
+  +#143#143#147#147#147#151#151#151#155#155#155#159#159#159#163#163#163#168#168
+  +#168#171#171#171#175#175#175#180#180#180#174#174#174#142#142#142#141#141#141
+  +#137#137#137#133#133#133'zzztttnnnhhhddd___ZZZVVVPPPJJJEEEAA?=:4>S'#147'B'
+  +'r'#255'Aq'#255'@o'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'
+  +#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255
+  +'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'
+  +#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255
+  +'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255
+  +#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'
+  +#255#23'I'#255#21'I'#255'&A'#167'<:0<<<===?????????AAACCCEEEFFFGGGHHHJJJJJJJ'
+  +'JJIIIHHHFFFCCC@@@===;;;:::999777666666555555444333333333222111000///...,,,*'
+  +'**(((&&&###   !!!'#143#143#143#176#176#176#171#171#171#167#166#166#160#160
+  +#160#155#155#155#151#151#151#146#146#146#142#142#142#139#139#139#135#135#135
+  +#131#130#130'~~~zyyvvvqqqnnmjjkfffbcc__^\\\YYXVUURSROOOMMMIJJGHGDDDCCC@?@>>>'
+  +'<<<9::877666443222221//0./.,,,,,,***)((((($$$   '#30#31' '#30#29#30#29#29#30
+  +#29#28#29#27#28#28#28#28#29#28#28#28#28#28#28#29#28#29'###&&'',++0000001000/'
+  +'////...----,-,++''''''###'#30#29#29#23#24#24#24#23#24#24#23#23#23#23#23#23
+  +#23#23#23#23#23#23#22#22#22#22#23#22#22#23#22#22#22#25#25#25#27#27#27#27#26
+  +#27#26#26#26#27#26#26#26#26#26#26#26#25#26#25#26#23#23#24#22#21#22#21#21#22
+  +#21#21#21#21#21#21#21#22#21#23#23#23#22#23#22#22#22#22#22#22#22#22#21#22#21
+  +#21#22#21#21#22#21#21#21#21#21#21#20#20#21#21#21#21#21#21#21#20#20#21#20#21
+  +#20#20#20#20#20#20#20#20#19#20#19#19#20#19#19#19#18#18#18#18#18#18#17#18#18
+  +#18#18#17#18#18#17#24#23#24#27#27#27#27#27#27#27#27#27#27#26#26#21#22#22#19
+  +#19#19#18#18#18#18#18#18#18#18#18#18#18#18#18#17#17#17#17#17#18#17#16#17#16
+  +#16#16#16#16#16#16#16#16#16#16#16#16#15#15#15#15#15#16#16#15#15#15#15#15#15
+  +#15#15#15#15#15#15#15#15#14#14#15#15#14#14#14#14#14#14#14#14#14#13#13#14#13
+  +#13#13#14#13#14#13#13#13#13#13#13#13#12#13#13#12#13#12#12#12#11#11#12#11#11
+  +#12#11#11#11#11#11#11#11#11#11#11#10#11#10#11#10#10#10#10#10#10#9#9#9#9#10#9
+  +#9#10#10#10#23#23#23'###(((...222###'#6#6#6#6#6#6#6#6#6#5#6#6#6#6#6#6#6#5#5#5
+  ,#5#5#5#5#5#5#5#5#5#5#13#13#13#4#4#5'000yyy0000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000333999:::;;;===>'
+  +'>>888///////////////000::::::8885552220/0//////////////////////////////////'
+  +'///////////000000000000000000444778<<<???:::////////////////////07779999999'
+  +'999989989989889889889889888888888888888888888888888888888888888888878876662'
+  +'22000000000000000000000000101101111322777::::::::::::::::::;;;;;:;;:<<;<;;<'
+  +';;=<<=<<===>>>>>>???@@@AAABBBCCCEEEEEEGGGHHGJJIKKKMLLONNQPPRRRTTTVVVXXX[[[]'
+  +']]___bbbeeegggjjjnnmpppssswwwzzz~~~'#129#129#129#133#133#133#137#137#137#140
+  +#140#140#144#144#144#148#148#148#152#152#152#156#156#156#161#161#161#164#164
+  +#164#168#168#168#172#172#172#177#177#177#182#182#181#164#164#164#142#142#142
+  +#141#141#141#137#137#137#132#132#132'~~~yyysssmmmhhhccc___ZZZUUUPPPJJJEEEAA?'
+  +'=:4?T'#147'Br'#255'Aq'#255'@o'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'#255
+  +';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'
+  +#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255
+  +'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'
+  +#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'
+  +#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#25
+  +'J'#255#24'I'#255#25'H'#243':?W@>9@@@AAABBBCCCCCCDDDEEEFFFGGGHHHJJJKKKLLLMMM'
+  +'KKKJJJGGGEEEBBB>>><<<:::999888666666666555555444333333222111000///...,,,***'
+  +'''''''%%%"""'#31#31#31'lll'#178#178#178#173#172#173#168#167#167#162#162#162
+  +#157#157#157#152#152#152#148#148#147#143#143#143#140#140#140#137#137#137#133
+  +#133#132#128#128#128'|{{xxwtttooolklghhdedaab]]]ZZYWWWUTUQQRNNNLKLIIIFGFCDDB'
+  +'BB???<==;:;889777556333221110/./...,,,+++*)*)((%$%  ! '#31' '#31#31' '#30#29
+  +#31#28#29#29#29#30#30#28#28#29#29#29#30'"""(((110322232333333333233233222000'
+  +'//0..--,,-,-++****)()""!'#26#26#25#24#23#23#23#23#23#23#22#23#23#23#23#22#22
+  +#22#22#23#22#22#22#22#22#22#22#25#25#25#26#27#27#26#26#26#26#26#26#26#26#26
+  +#26#26#26#25#26#26#25#25#25#23#22#22#22#22#23#21#21#22#21#21#21#21#21#20#23
+  +#22#23#23#22#22#22#22#23#23#23#22#22#22#22#22#22#22#22#22#21#21#21#21#21#21
+  +#21#22#21#21#20#20#21#21#21#20#21#21#21#20#21#20#20#21#20#20#20#20#19#20#20
+  +#20#19#19#19#19#19#19#19#19#18#18#19#18#18#18#18#18#18#18#18#18#18#18#19#28
+  +#28#27#27#27#27#27#27#28#27#27#27#25#25#24#18#19#19#19#19#18#19#18#18#18#18
+  +#18#18#18#18#18#18#18#17#17#17#17#16#17#17#16#17#17#16#16#16#16#16#15#16#15
+  +#16#16#15#15#16#16#15#16#16#15#16#15#15#15#15#15#15#15#14#15#15#15#15#15#14
+  +#15#14#15#15#14#14#14#14#14#14#14#14#14#13#14#14#14#13#14#13#14#13#14#13#13
+  +#13#13#12#13#13#12#13#12#12#12#12#12#12#11#12#12#11#11#11#11#11#11#11#11#11
+  +#11#11#11#11#11#11#10#10#10#9#9#10#9#9#10#9#9#10#10#10#10#17#17#18'###'''''''
+  +',,,111,,,'#6#7#6#6#6#7#6#6#6#6#6#5#6#5#6#5#6#6#5#6#5#5#5#5#5#5#5#5#5#5#13#13
+  +#13#5#5#5'000yyy000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000777:::;;;<<<===>>>111///////////////0/0'
+  +'/////////////////////////////////////////////000000000000111111444888<<<AAA'
+  +'CCCCCCCCCAAAAAAAAA:::////////////////////0777999999998998998988988988988988'
+  +'888888888888888888888888888888888888888888887887877555111000000000000000000'
+  +'000101101111111111655999:::::::::;;;;;;;;:<<;<<;<;;=<<=<<>==>>>>>>>>>@@@AAA'
+  +'AAACCCDDDEEEFFFHHHIIHKKJLKKONNPOORQQSSSUUUWWWYYY\\\^^^```cccfffiiillloonrrq'
+  +'uttxww|{{~~'#131#130#130#134#134#134#137#137#137#142#142#142#146#146#146
+  +#149#149#149#154#154#154#157#157#157#161#161#161#165#165#165#170#170#170#174
+  +#174#174#178#178#178#180#180#180#155#155#155#143#143#143#141#141#141#137#137
+  +#137#132#132#132'~~~xxxssslllhhhccc___ZZZUUUOOOJJJEEEA@?=;4>Q'#135'Bp'#250'A'
+  +'r'#255'@o'#255'@o'#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'#255':i'
+  +#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255
+  +'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['
+  +#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255
+  +'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'
+  +#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#26'K'#255#23'K'#255')F'#180'EB7'
+  +'DDDFFFIIIJJJJJJJJJHHHGGGGGGGGGIIIJJGMKELLJMMMLLLJJJHHHFFFBBB???===:::999999'
+  +'888666666666555555444444333222000///---+++)))&&&$$$"""KKK'#175#175#175#174
+  +#174#173#169#169#169#166#165#165#158#158#158#153#153#153#149#149#149#145#145
+  +#145#140#141#141#139#138#138#134#134#134#129#129#129'~~}zyyuutrqrnmmjjjfffbb'
+  +'b__`\\\YYXVVVRRRPPOMMMJJJHHHEEECCC@@@>?>===9:9788666455232222000/./,-,,,,++'
+  +'+)))%%%!!" '#31'  '#31' '#31#31' '#31#31' '#30#30#31#31#30' ! ")))333444656'
+  +'67677798888888877756554522322200/--.---+++*+***)))())(!!!'#25#24#24#23#23#23
+  +#23#23#23#22#23#23#22#22#22#23#23#22#23#22#23#22#22#22#24#24#24#27#27#26#27
+  +#26#27#27#26#26#26#26#26#26#26#26#25#26#26#24#25#25#22#23#22#22#21#22#21#21
+  +#22#21#21#21#21#21#21#23#22#23#23#23#23#22#23#22#22#22#22#22#22#21#22#22#21
+  ,#22#22#21#21#21#22#22#21#21#21#21#21#21#20#21#21#20#21#21#20#21#21#20#20#20
+  +#20#20#20#20#20#20#20#20#19#19#19#20#19#20#19#18#19#18#18#18#18#18#18#18#18
+  +#18#18#18#18#26#25#26#27#28#28#27#27#27#27#27#27#27#27#27#19#18#19#19#18#18
+  +#18#19#19#18#19#19#18#18#18#18#18#18#17#17#17#18#17#17#17#16#17#17#16#16#17
+  +#16#16#16#16#16#16#16#16#16#16#16#15#16#16#16#15#16#15#16#15#15#15#15#15#15
+  +#15#15#14#15#15#15#15#14#14#15#14#14#14#14#14#15#14#14#14#14#13#14#14#14#14
+  +#13#14#14#14#13#13#13#12#13#13#12#13#13#12#13#12#11#12#12#11#11#11#12#12#11
+  +#11#11#12#11#11#11#12#11#11#11#11#11#10#11#9#9#9#9#9#9#10#9#10#11#11#10#14#15
+  +#14'!!!''''''+++000555'#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#5#5#5#6#5#5#5#5#5#6
+  +#5#5#5#13#13#13#5#5#5'000yyy000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000111888:::;;;<<<>>><<<//////'
+  +'/////////////////////////////////////////////000000000000111222777;:;@@@DDD'
+  +'EEEFFFGGGGGGFFFEEEDDDBBBAAA@@@@@@:::////////////////////0666999999998998988'
+  +'988988988988888888888888888888888888888888888888888888887887887877777444111'
+  +'000000000000000000101101111111111111333776:99;;;;;;;;;;;:<<;<<;<;;=<<=<<>=='
+  +'>>>>>>???AAAAAABBBCCCEEEEEEHHHHHHJJIKKKMLLONNQPPSRRTTTVVVXXX[[[]]]___bbbeee'
+  +'gggjjjmmmpppssrwvvzyy~}}'#129#128#128#132#132#132#135#135#135#140#140#140
+  +#143#143#143#147#147#147#151#151#151#154#154#154#158#158#158#163#163#163#167
+  +#167#166#170#170#170#173#173#173#178#178#178#178#178#178#150#150#150#143#143
+  +#143#140#140#140#136#136#136#131#131#131'}}}xxxqqqlllgggccc___ZZZUUUPPPJJJEF'
+  +'FAA@>;3>KtAl'#237'Ar'#255'@o'#255'@n'#255'?n'#255'>m'#255'>l'#255'<l'#255';'
+  +'k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'
+  +#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255
+  +'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'
+  +#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'
+  +#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#24'K'#255'#'
+  +'I'#214'HJSQOHRRSTTTTTTRRRNNNLLLIIIGGGEEDHF<EGO<GoJJIMKAKJHJJIGGGEEEBBB@@@=='
+  +'=;;;:::999888888666666666555555444222222000///---***(((%%%###555'#165#165
+  +#164#176#176#175#171#171#170#166#166#166#161#161#161#155#155#155#150#150#150
+  +#146#146#146#142#143#143#139#139#139#135#136#135#132#132#132'|||wwwtssooo'
+  +'lkkhggedeaaa^^]ZZZWXWTTTRRRONOLMLIIIGGGDDDBBC@?@===;;;999878666454222111///'
+  +'..-,,,,,,***&&&""#       '#31' '#31#31' '#31#31'    &%%233555888999;;;<<;=='
+  +'<<=<<=<<<<;:;999788556433222/00-,-,,,***))))))(()(()''('''#28#28#28#23#23#23
+  +#23#22#23#23#23#22#22#23#23#23#23#22#23#22#22#22#22#22#24#25#25#26#26#26#27
+  +#27#26#26#27#26#26#26#26#26#26#26#26#26#26#24#24#24#23#22#23#22#22#22#22#21
+  +#22#21#21#21#21#22#21#23#22#23#23#22#22#22#22#22#22#22#23#22#22#21#22#21#21
+  +#22#22#22#21#22#21#21#21#21#21#21#21#21#21#21#21#21#21#21#20#20#20#20#20#21
+  +#20#20#20#20#20#19#20#20#19#19#20#19#19#19#19#19#19#18#18#18#18#18#18#18#18
+  +#18#22#21#21#27#28#28#28#28#27#27#27#27#27#27#27#22#22#22#19#19#19#18#19#19
+  +#18#18#18#18#18#18#18#18#18#18#17#17#18#17#17#18#16#17#17#17#17#16#16#16#16
+  +#16#16#16#16#15#16#15#16#15#16#16#16#16#15#15#15#16#15#15#15#15#16#15#15#15
+  +#15#14#15#15#15#14#14#15#15#14#14#14#14#14#14#15#14#14#14#14#14#14#14#13#13
+  +#14#13#13#14#13#13#13#12#13#13#12#13#12#12#12#11#12#12#12#11#12#11#12#11#12
+  +#12#11#12#12#11#11#11#11#11#11#11#10#9#10#10#10#10#9#10#9#10#10#9#12#12#12#30
+  +#30#31'&&&+++000444'#16#15#16#6#6#6#6#6#6#6#6#6#6#6#6#6#6#5#5#6#6#6#6#6#5#5#6
+  +#5#6#5#13#15#13#5#5#5'000yyy000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000555::::::<<<===>>>767///'
+  +'//////////////////////////////00000000000011111166699:???CCCEEEFFFGGGGGGHHH'
+  +'JJJJJJJJJJJJIIIGGGEEECCCAAA@@@??????::://///////////////////555999998998998'
+  +'988988988988988888888888888888888888888888888888888888887887887877877877777'
+  +'333000000000000000000101101111111111111111111555887:::;;;<<;<<;<<;=<<=<<>=='
+  +'?>>>>>???@@@AAAAAACCCDDDEEEGGGHHHIIIKKJLLKONNPOORQQSRRUUUWWWYYY\\\^^^```bbb'
+  +'fffiiilllnnnqqpuutwww{{{~~~'#130#130#130#133#133#133#137#137#137#140#140#140
+  +#144#144#144#148#148#148#152#152#152#155#155#155#158#158#158#162#162#162#166
+  +#166#166#171#171#171#175#175#175#179#179#179#174#174#174#146#146#146#144#144
+  +#144#140#140#140#136#136#136#131#131#131'~~~wwwrrrkkkgggccc___ZZZUUUPPPKKKFF'
+  +'FBBA>;3=E\@f'#216'As'#255'@p'#255'@n'#255'?n'#255'>m'#255'>l'#255'<l'#255';'
+  +'k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'
+  +#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255
+  +'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'
+  +#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'
+  +#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'K'#255#23'K'#255'('
+  +'M'#211'UXb_]U^]^[[[VVVQQQLLLGGGEC>CA75An'#26'B'#214#14'@'#252#29'B'#204'6D{'
+  +'FFGIF;FFDDDDBBB???===<<<;;;999888888888666666666555444333111000...,,,***'''
+  ,'''''%%%***'#149#148#149#176#177#176#172#172#172#168#168#168#163#163#163#157
+  +#157#157#152#152#152#148#148#148#143#143#143#139#139#139#137#136#137#133#134
+  +#134#128#128#128'|||yyyuutrqqmnmkjjfffcbb``_\\\XXXUUURRRPPPMMMKJJHHHEEECCCAA'
+  +'A?>?===<::8887775554442220010//---,,,,,,((("##!!"    '#31'     !!$#$---5559'
+  +'99:;;>>>>>>AAABBBBBBBBB@@@:::444///)))-../..///101/./,-,***)))*))))))))))))'
+  +'(("##'#24#24#24#23#23#23#22#23#23#22#22#23#22#22#22#22#22#22#22#22#22#25#25
+  +#24#26#27#27#26#26#26#26#26#27#27#26#26#26#26#26#26#25#26#23#23#23#23#22#22
+  +#23#21#22#22#21#22#21#21#21#23#23#23#23#23#23#23#22#22#22#22#22#22#22#22#22
+  +#21#22#22#22#22#21#22#22#21#21#22#21#22#21#21#21#21#21#21#21#20#20#21#20#21
+  +#21#21#20#20#21#21#20#20#20#20#20#20#20#19#19#20#19#19#19#19#18#19#18#18#18
+  +#18#18#18#20#19#19#28#27#28#27#28#28#27#27#27#27#27#27#25#24#24#18#19#19#19
+  +#18#18#19#18#19#18#19#18#18#18#18#18#18#18#18#17#17#18#17#16#18#17#16#17#16
+  +#16#17#16#16#16#17#16#16#16#16#16#15#15#15#16#16#15#15#16#15#15#15#15#16#15
+  +#15#15#15#15#15#14#15#15#15#15#15#15#14#15#15#14#14#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#13#14#13#12#13#13#12#13#12#12#13#12#12#12#11#12#11#12#11
+  +#11#11#11#11#12#11#11#11#11#11#11#11#11#10#10#10#10#9#10#10#10#9#10#10#10#12
+  +#11#12#28#28#28'&&&***000444'#22#22#21#6#6#7#7#6#6#6#7#6#6#6#6#6#6#5#6#6#6#6
+  +#6#6#5#5#6#5#5#6#13#13#13#5#6#5'000yyy00000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000000000777:::;;;<<'
+  +'<===>>>111///////////////000000000000111111444888===BBBEEEFFFGGGGGGHHHIIIJJ'
+  +'JJJJKKKLLLMMMMMMNNNMMMLLLJJJGGGCCC@@@????????????::://///////////////////55'
+  +'599999899898898898898898888888888888888888888888888888888888888888888788787'
+  +'7877877877877766333111000000000000101101111111111111111111222222444888:::<<'
+  +';==<=<<>==?>>?>>>>>@@@AAAAAABBBCCCEEEEEEHHHHHHJJJKKKMMLONNQPPSRRUTTVVVXXXZZ'
+  +'Z\\\___bbbdddgggiiimmmpppssrvvuyxx|{{'#128''#131#130#130#135#134#134#137
+  +#137#137#141#141#141#143#143#143#147#147#147#151#151#151#155#155#155#159#159
+  +#159#163#163#163#167#167#167#171#171#171#175#175#175#179#179#179#170#170#170
+  +#145#145#145#144#144#144#140#140#140#136#136#136#132#132#132'}}}wwwqqqkkkggg'
+  +'ccc___ZZZVVVQQQKKKGGGBBC?=6=?F?]'#183'Ar'#255'@p'#255'@n'#255'?n'#255'>m'
+  +#255'>l'#255'<l'#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255
+  +'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'
+  +#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255
+  +'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'
+  +#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26
+  +'L'#255#22'J'#255'''O'#224'X^sebX^^^XXXQQQIIHEC8=@N%A'#172#17'C'#253#14'B'
+  +#255#15'A'#255#12'@'#255#12'@'#255#24'A'#215'+@'#148'@ADBA@@@@>>>===<<<;;;::'
+  +':999888888888777666555444333111///---+++)))&&&%%%'#129#129#129#177#177#178
+  +#173#173#173#168#168#168#164#164#164#161#161#160#153#153#153#148#148#149#145
+  +#146#146#140#140#140#136#136#136#134#135#135#130#130#130'~~zzzwwwrrrooollki'
+  +'hheddaaa^]][[ZWWWTTTQRQNNNLLLHIIHHHDDDCCC@@@====;<:9:988666555222121//0....'
+  +'--,,,+++$##""#!!" !!  !!!"$$%322777:::>>>A@ABBCDEEFGFFFF455''''&'#29#28#28
+  +#26#25#25#25#25#25#25#25#25#25#24#25#24#25#24#24#25#24#24#25#24#26#26#26#31
+  +#31#31'%%$**+*)))))((((((''((('''')((%&%'#24#24#24#22#23#23#23#22#23#22#22#23
+  +#23#23#22#22#22#22#22#22#22#26#25#25#27#26#26#26#26#26#26#26#26#26#26#26#26
+  +#26#26#25#25#25#23#23#22#22#22#22#22#21#22#22#21#22#22#22#22#24#23#22#23#22
+  +#23#23#22#22#22#22#22#22#22#22#22#22#22#22#22#22#21#22#22#21#21#21#21#21#21
+  +#21#21#21#20#21#21#20#20#20#20#21#21#20#21#20#21#20#20#20#20#20#19#19#20#19
+  +#19#19#20#19#20#19#19#19#18#18#18#18#18#18#26#26#26#28#28#28#27#28#28#27#27
+  +#27#27#26#26#19#19#19#18#19#19#18#18#19#19#19#19#19#18#18#18#18#18#18#17#17
+  +#17#17#17#18#17#16#17#17#17#16#17#16#16#16#16#16#16#16#15#16#16#15#16#16#16
+  +#15#16#16#16#15#15#16#15#15#15#15#15#15#15#15#15#15#15#14#15#15#15#15#14#14
+  +#14#15#14#14#14#14#14#14#14#13#13#14#14#14#13#13#14#13#14#13#12#13#13#13#13
+  +#12#12#12#12#12#12#12#12#12#11#12#12#11#11#11#11#12#12#11#11#11#10#10#10#10
+  +#10#10#10#10#10#10#9#9#10#11#11#25#24#24'$$$)))///333'#30#31#31#7#6#6#7#6#7#6
+  +#6#7#6#7#6#6#6#6#6#6#6#5#6#6#6#5#6#5#6#6#13#13#13#5#5#5'000yyy00000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000222::::::;;;===>>><<<000///000000000111222777;:;@@@DDDEEEGGGGG'
+  +'GGGGIIIJJJJJJKKKLLLMMMMMMNNNOOOPPPPPPQQQQQQPPPNNNHHH@@@;;;@@@???>>>>>>>>>??'
+  +'?::://///////////////////32399899898898898898898898888888888888888888888888'
+  +'888888888888888888788788787787787787787777777744411100000000010110111111111'
+  +'1111111222222222222333444666999;::>==?>>?>>???@@@AAABBBCCCDDDEEEGGGHHHIIIKK'
+  +'KLLKOONPOORQQSRRUUUWWWYYY\\\^^^```bbbeeehhhjjjmmmpppsssvvvxxx|||~~~'#129#129
+  +#129#133#133#133#137#137#137#141#141#141#144#144#144#148#148#148#152#152#152
+  +#156#156#156#160#160#160#163#163#163#168#168#168#171#171#171#175#175#175#180
+  ,#180#180#166#166#166#146#146#146#144#144#144#140#140#140#136#136#136#132#132
+  +#132'}}}xxxqqqkkkgggddd___[[[VVVQQQMMMHHHCDD@?:=<7>P'#137'@m'#241'@r'#255'@o'
+  +#255'?n'#255'>m'#255'>l'#255'<l'#255';k'#255';j'#255':i'#255':i'#255'9h'#255
+  +'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'
+  +#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255
+  +')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'
+  +#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'
+  +#255#27'L'#255#26'L'#255#22'J'#255'#M'#233'R\'#128'`]RVVTNLFED?1B'#25'D'#227
+  +#16'E'#255#17'D'#255#17'C'#255#16'B'#255#16'A'#255#14'@'#255#11'@'#255#11'?'
+  +#255'2=i?=6======<<<<<<<<<;;;:::888888888777666555444333111...,,,***(((%%%qq'
+  +'q'#178#178#178#173#173#173#169#169#169#166#166#165#161#161#160#156#156#156
+  +#151#151#150#145#146#145#142#142#142#138#138#138#135#135#135#132#132#132''
+  +#128#128'}}}wwxtttpppnnniiiffecdc`_`\\\YXXVVVSRSPPPMMMKKKHHHEFECCCABA???===<'
+  +'<<::9977655544222110000///,-,,,+%%%###!""! !  !!""$$%333:9:;;;A@@DDDHHGGHGF'
+  +'FF122'#29#29#29#26#26#26#26#26#26#26#26#25#25#25#25#25#25#26#26#25#25#25#25
+  +#25#25#25#25#24#25#25#24#25#24#24#25#24#24#24#24#24#24#23#24#25#24'   ''''(('
+  +'(((((((((((''''''''(''%&%'#24#24#24#22#23#22#23#23#23#22#23#22#22#22#23#22
+  +#22#22#23#23#23#27#26#26#27#27#27#27#26#26#26#26#27#26#26#26#26#26#26#24#24
+  +#24#23#22#22#22#23#22#22#21#22#21#21#22#23#23#23#24#23#23#23#22#22#23#22#23
+  +#22#22#22#22#22#22#22#22#22#22#22#21#21#22#22#21#22#21#22#21#21#21#21#21#20
+  +#21#21#21#20#21#20#21#21#20#20#20#21#20#20#20#20#20#19#19#20#20#19#20#19#19
+  +#19#19#18#19#18#18#18#23#23#23#28#28#27#28#28#28#28#27#28#27#27#27#20#20#20
+  +#19#19#19#19#19#19#19#19#19#19#18#18#18#18#18#18#18#18#18#17#17#18#17#17#17
+  +#16#17#17#17#17#16#16#17#16#16#16#16#17#16#16#16#16#15#16#15#16#16#16#15#15
+  +#16#15#15#15#16#15#15#15#15#15#15#15#15#14#15#15#15#15#14#14#14#14#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#13#14#13#13#13#13#12#13#12#12#13#12#12#12#12
+  +#12#12#11#12#11#11#11#11#12#12#11#12#12#11#10#11#10#10#10#10#10#10#9#9#9#10
+  +#11#10#11#23#22#22'#$#)((...333'''''''#6#6#7#6#7#6#6#6#6#6#6#6#6#6#6#6#6#6#5
+  +#6#5#5#6#6#5#5#6#15#15#13#5#5#5'000yyy00000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000000000000555:::;;'
+  +';<<<===>>>99900055599:???CCCEEEFFFGGGGGGHHHJJJJJJJJJLLLLLLMMMNNNNNNPPPPPPPP'
+  +'PQQQRRRSSSQQQJJJBBB:::222000000000999>>>>>>>>>>>>>>>???999/////////////////'
+  +'////11188899898898898898898888888888888888888888888888888888888888888788788'
+  +'787787787787787777777777777754521200000010110111111111111122222222222233333'
+  +'3333444444555888:::;::>>>???AAACCCCCCEEEEEEHHHHHHJJJKKKMMLOONQPPRQQTSSVUUXX'
+  +'XYYY\\\^^^aaacccffegggjjjkkknnnrrrtttxxx{{{'#130#130#130#134#134#134#137
+  +#137#137#141#141#141#145#145#145#149#149#149#153#153#153#156#156#156#161#161
+  +#161#164#164#164#168#168#168#172#172#172#176#176#176#180#180#180#163#163#163
+  +#146#146#146#144#144#144#140#140#140#137#137#137#131#131#131'}}}xxxrrrmmmhhh'
+  +'ccc```[[[WWWSSSNNNIIIDEEA@?>;2=E]?b'#205'@q'#255'@p'#255'?n'#255'>m'#255'>l'
+  +#255'<l'#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255
+  +'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'
+  +#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255
+  +'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'
+  +#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#23
+  +'J'#255#29'K'#244'@Q'#147'PNE@G^$E'#192#20'F'#255#19'F'#255#20'F'#255#19'E'
+  +#255#18'D'#255#17'C'#255#16'B'#255#16'A'#255#14'A'#255#10'@'#255'*='#133'>;0'
+  +'<<<<<<<<<<<<;;;;;;::::::999888777666555444222000...,,,)))&&&fff'#178#178#178
+  +#174#174#174#170#170#170#166#166#166#162#162#162#158#158#158#153#153#153#147
+  +#147#147#143#143#143#138#139#138#135#134#135#132#132#132#129#129#129'}}}zzzv'
+  +'uvrrronokkkgggdcd`a`^]][ZZWWWUTTQQQMNNLKKIIIGGGDDDBBBA@@>====<;;;9898877552'
+  +'22222000000.-----(((##$###"!""!"!!"%$%333:::???ABAGFFIIILLM<<<'#30#30#30#26
+  +#26#26#26#27#26#26#26#26#26#26#26#26#25#26#25#26#26#25#26#25#25#25#25#25#25
+  +#25#25#25#25#25#25#25#24#25#24#25#25#24#24#24#24#24#24#24#23#24#24#24#24#24
+  +#25#24#25'#$$(((''''''&''''((''''''(''(''$$$'#24#24#24#23#22#23#23#23#23#23
+  +#22#22#23#22#22#22#22#22#24#24#24#27#27#27#26#26#27#26#26#26#26#26#27#26#26
+  +#26#26#25#25#23#23#23#23#22#23#22#23#22#22#21#22#22#22#22#24#23#23#23#22#23
+  +#23#22#22#23#22#22#22#22#22#22#22#22#22#22#22#21#22#22#21#21#21#22#21#22#21
+  +#21#21#21#21#21#21#21#21#20#20#20#20#21#20#20#20#20#20#20#20#20#20#20#19#20
+  +#20#19#19#20#20#19#19#19#19#19#21#20#20#28#28#27#28#28#27#28#28#28#28#28#28
+  +#24#23#24#19#19#19#19#19#19#19#19#19#19#19#19#19#18#18#19#18#18#18#17#17#18
+  +#17#17#18#17#16#17#17#17#17#17#17#17#16#17#17#16#17#17#17#16#15#16#16#16#15
+  +#16#16#16#16#16#15#16#16#15#15#15#15#15#15#15#15#14#14#14#15#14#15#14#15#14
+  +#15#14#14#14#14#14#14#14#14#14#14#14#13#13#14#13#13#14#13#12#13#12#12#12#12
+  ,#12#12#12#12#12#12#12#12#11#12#11#12#12#12#11#12#11#11#10#12#11#11#11#10#10
+  +#10#10#10#10#10#11#11#18#17#18'#$$))(...223***'#7#7#7#7#6#7#6#6#6#6#6#6#6#6#7
+  +#6#6#6#6#6#6#6#6#5#6#6#5#13#15#15#6#5#5'000yyy000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000888:::<<<===>>>@@@CCCEEEFFFGGGHHHIIIJJJJJJKKKLLLMMMNNNNNNOOOPPPPPPQQQRRR'
+  +'SSSSSSLLLDDD===777000000000000000000000000000999=========>>>>>>???;;;000///'
+  +'///////////////111777988988988988988888888888888888888888888888888888888888'
+  +'888887887877877877877877777777777777777777666333111101101111111111222222222'
+  +'222333333333444444444555777777777988:99<;<>==?>>A@@BBBDDDEEEGGGIIIJJJLLLMMM'
+  +'PPPRRRTTTUUUWWWZYY[[[]]]```cccfeeihhlkkooorrrvvvyyy|||'#128#128#128#131#131
+  +#131#135#135#135#138#138#138#142#142#142#146#146#146#149#149#149#154#154#154
+  +#157#157#157#161#161#161#165#165#165#169#169#169#174#174#173#178#178#178#181
+  +#181#181#161#161#161#147#147#147#144#144#144#141#141#141#137#137#137#131#131
+  +#131'~~~xxxrrrmmmhhhdddaaa]]]XXXSSSOOOKKKFFFBBB?=7=<;>R'#142'@k'#236'@q'#255
+  +'?o'#255'>m'#255'>l'#255'<l'#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'
+  +#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255
+  +'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'
+  +#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255
+  +'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27
+  +'L'#255#26'L'#255#24'K'#255#24'J'#255'''H'#198#27'H'#237#20'H'#255#21'H'#255
+  +#21'G'#255#21'F'#255#20'F'#255#19'E'#255#18'D'#255#17'C'#255#15'C'#255#17'A'
+  +#244'$<'#152'8:A;;9;;;<<<<<<<<<;;;;;;;;;:::999888777666555333111000---+++((('
+  +'Z[Z'#179#179#178#175#175#175#171#171#171#167#167#167#163#163#162#158#159#158
+  +#155#155#154#149#149#149#143#143#143#140#140#140#136#136#135#131#131#131#130
+  +#130#131'~~~{{{wwwrsspppmlmiijeeebbb___[\[ZZYVUUSRRQPPMMMKJKHHHFFFCCCAAA>>>='
+  +'>><<<:::999676443323111000///-,-,++%%$$#####"""  !##$221:::???CCCHHHLKLIII.'
+  +'..'#27#27#27#27#27#27#27#26#27#26#27#26#26#26#26#26#26#26#26#26#26#26#25#26
+  +#26#26#25#25#25#25#26#25#25#25#25#26#25#25#25#25#25#24#24#25#24#25#24#24#24
+  +#24#24#24#24#24#24#24#24#23#24#24#24#23#24#30#29#30'&&&''''''''''&&''''('''''
+  +'''''''#""'#23#23#23#22#23#22#23#22#23#22#23#23#22#22#22#22#22#22#26#26#26#27
+  +#27#27#27#27#27#26#26#26#26#26#26#26#26#26#24#24#24#22#23#22#23#23#22#23#23
+  +#22#22#21#22#24#23#23#24#23#23#23#22#23#23#22#22#23#22#22#22#22#22#22#22#22
+  +#22#22#22#22#22#22#21#21#21#21#21#22#21#21#21#21#21#21#21#21#20#20#20#21#20
+  +#21#20#20#20#20#20#20#20#20#20#20#20#20#20#20#19#19#19#19#20#19#18#19#27#27
+  +#27#28#28#27#28#28#27#28#27#28#25#25#24#19#19#19#19#19#20#19#19#19#19#19#19
+  +#19#18#18#18#18#18#18#18#18#18#17#17#18#17#17#17#17#17#17#17#16#17#17#17#16
+  +#16#16#16#16#16#16#16#16#15#16#16#15#16#16#15#16#15#16#15#16#16#15#16#15#16
+  +#15#15#15#15#15#15#15#15#15#15#14#15#15#15#14#15#15#14#14#14#14#14#14#13#14
+  +#14#13#14#13#13#13#13#12#13#13#12#12#12#12#12#13#12#12#12#12#11#12#12#11#11
+  +#12#12#11#11#12#10#10#10#11#10#10#10#10#10#10#11#11#15#16#15'""#''((.--22333'
+  +'3'#7#7#7#7#7#7#6#7#7#7#6#7#7#6#6#6#6#6#6#7#6#6#6#6#6#6#6#15#15#15#5#5#6'000'
+  +'yyy000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000222:::<<<===???AAAEEEGGGJJJKKKLLLMMMMMM'
+  +'NNNOOOPPPPPPQQQRRRSSSSSSOOOHHH???999000000000000000000000000000000000000000'
+  +'000000555<<<=========>>>???<<<000////////////////////0655988988988988988888'
+  +'888888888888888888888888888888888888887887887877877877877877777777777777777'
+  +'777777776544323101111111111222222222222333333333444444555666777777888:99;::'
+  +'<;<<;<>>>???AAABBBDDDEEEGGGHHHJJJLLLNNNOOORRRTTTWWWYYY[[[^^^```dccgggjiimll'
+  +'pppsssvvvzzz}}}'#129#129#129#133#133#133#136#136#136#140#140#140#143#143#143
+  +#147#147#147#150#150#150#154#154#154#158#158#158#163#163#163#167#167#167#170
+  +#170#170#174#174#174#178#178#178#180#180#180#162#162#161#148#148#148#145#145
+  +#145#141#141#141#137#137#137#132#132#132'xxxsssnnniiieeeaaa]]]YYYUUUPPPLL'
+  +'LGGGCCC@@>=;2=BS>\'#181'@o'#255'?p'#255'>m'#255'>l'#255'<l'#255';k'#255';j'
+  +#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255
+  +'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'
+  +#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255
+  +'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255
+  +#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26'L'#255#25'K'#255#23'J'#255#23'I'
+  +#255#23'I'#255#23'H'#255#22'H'#255#21'G'#255#21'F'#255#20'F'#255#17'F'#255#17
+  +'D'#255#28'>'#188'/7V:6+:96:;;;;;<<<<<<<<<<<<;;;;;;;;;999888777666444333000.'
+  +'..,,,***[Z['#175#176#176#175#175#175#171#171#171#167#167#167#164#164#164#160
+  +#160#160#155#156#156#152#152#151#144#144#144#141#140#140#136#136#136#133#133
+  +#133#129#129#129#128#128#128'|||xxxtttqqqnnmjiifgfccc```\]]ZZZWWWTTTRQQONNLL'
+  +'LIIIGGGEEDCCC@@@>>>>==;;;:9:889777233233010001//.---(((###$#$""#"""###-..98'
+  ,'9=>>DCCHHHMMLLKL''''&'#27#27#28#27#27#27#27#27#27#27#27#27#27#26#27#26#27#27
+  +#26#26#26#27#26#26#26#26#26#26#25#26#26#26#25#26#26#26#25#25#25#25#25#26#25
+  +#24#25#25#24#25#25#25#25#25#24#24#24#25#24#24#24#24#24#23#24#23#24#24#23#23
+  +#24#26#26#27'%%%&&&''&&''''''((''('''''#30#30#31#23#23#23#23#22#23#22#22#23
+  +#23#22#22#22#23#22#23#23#23#26#26#27#27#27#27#27#26#27#27#26#26#26#26#26#25
+  +#25#25#23#23#23#22#22#23#23#23#22#22#22#23#23#24#23#24#24#23#24#23#23#23#23
+  +#22#23#22#22#23#22#22#22#23#22#22#22#22#22#22#22#21#22#22#21#21#22#21#21#21
+  +#21#21#21#21#21#21#21#21#21#21#21#21#20#20#21#21#21#20#20#20#20#20#20#20#20
+  +#20#20#20#19#20#19#19#19#25#25#25#28#27#27#28#28#27#28#28#27#26#27#27#20#20
+  +#20#19#19#19#19#19#19#19#19#19#18#19#19#19#18#18#19#18#18#18#17#18#18#17#18
+  +#17#17#17#16#17#16#16#17#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16
+  +#16#16#15#16#15#16#16#15#15#16#15#15#15#15#15#15#15#15#15#15#14#15#15#14#15
+  +#15#14#14#14#14#14#14#14#14#14#14#13#14#13#13#13#13#13#13#13#12#12#13#12#12
+  +#12#13#12#12#12#12#12#12#12#11#11#12#12#11#11#11#11#10#11#10#10#10#11#10#10
+  +#10#10#13#13#13'""!''(''---111666'#7#7#7#7#7#7#7#7#7#7#6#7#7#6#7#6#6#7#7#6#6
+  +#6#6#6#6#6#6#13#15#13#6#6#6'000yyy000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000555<<<'
+  +'===???CCCGGGJJJMMMNNNPPPPPPPPPQQQRRRSSSQQQJJJBBB;;;222000000000000000000000'
+  +'000000000000000000000000000000000000000555<<<<<<======>>>>>>===222/////////'
+  +'/////////111988988988988988888888888888888888888888888888888888888888887887'
+  +'877877877877877777777777777777777777777777777766544333111222222222222333333'
+  +'333444444555666777777777999:99<;;<;<=<=???@@@AAACCCDDDFFFGGGIIIKKKMMMOOOPPP'
+  +'SSSUUUWWWZZZ\\\___bbbeddhggjjjnmmqqqtttwww{{{}}}'#129#129#129#133#133#133
+  +#137#137#137#140#140#140#144#144#144#148#148#148#152#152#152#156#156#156#160
+  +#160#160#163#163#163#167#167#167#171#171#171#174#174#174#178#178#178#181#181
+  +#181#162#162#161#148#148#148#146#146#146#142#142#142#138#138#138#133#133#133
+  +'yyytttnnnjjjeeebbb^^^ZZZVVVQQQNNNIIIEEEBBB?>9=;4=Hk>a'#199'?o'#255'>o'
+  +#255'>m'#255'<k'#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'#255'7g'#255
+  +'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'
+  +#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255
+  +'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'
+  +#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27'L'#255#26
+  +'L'#255#26'K'#255#25'J'#255#24'I'#255#23'I'#255#23'H'#255#21'H'#255#20'H'#255
+  +#19'G'#255#26'@'#206'(6i32-54,766999:::;;;<<<<<<======<<<;;;;;;:::8887775553'
+  +'33222000---+++\\\'#176#176#176#175#175#175#171#171#171#168#168#168#164#164
+  +#164#160#160#160#156#156#156#152#152#152#148#148#148#140#141#141#137#137#137
+  +#133#133#133#130#129#129'~~}}yyywvwrrroookkkhgheeeaab^_^[[[XXXUVVSSRQPPNMM'
+  +'KJIHHHFFEDCDABB@@?>>>===:::999778555332222000//0---,,,%%%$$$#$#####$#&&&999'
+  +'=<<ABAHHHMMMMMM'''''''#28#29#29#27#28#28#27#27#28#27#27#28#27#27#27#26#27#27
+  +#27#27#27#27#26#26#27#26#26#26#26#26#26#26#26#26#26#26#25#25#26#26#25#25#25
+  +#25#25#25#25#25#25#25#25#24#25#25#25#25#25#24#24#24#25#24#24#24#24#25#24#24
+  +#24#24#24#23#24#24#23#26#26#26'%%%&&&&&&''''''''''(&&'''#25#25#25#23#23#23#23
+  +#23#23#22#22#23#23#23#22#22#23#23#26#25#26#27#27#27#26#27#26#27#26#27#26#27
+  +#26#26#26#25#24#24#24#23#23#23#23#23#22#23#23#23#22#22#22#24#24#23#24#24#23
+  +#24#23#23#24#23#23#23#22#23#23#22#22#22#23#23#21#22#22#21#21#22#21#22#22#21
+  +#22#22#22#21#21#21#21#21#21#21#21#20#21#21#21#21#21#21#20#21#20#20#20#20#20
+  +#20#19#20#20#19#20#19#20#19#20#23#23#23#28#28#27#28#27#27#28#28#27#28#28#27
+  +#20#20#21#19#19#20#19#19#19#19#19#19#19#19#19#19#18#18#18#18#18#18#17#17#18
+  +#17#18#18#17#17#17#17#17#17#17#17#17#17#17#16#17#16#17#17#16#16#16#17#16#16
+  +#16#16#16#16#15#16#16#16#15#16#16#16#15#15#15#16#15#15#15#15#15#15#15#15#14
+  +#15#15#15#15#15#14#14#14#14#14#14#15#14#13#14#13#13#14#13#13#13#13#13#13#13
+  +#12#12#12#12#12#12#13#12#12#12#12#12#12#12#11#10#11#10#10#11#10#11#11#11#10
+  +#10#10#10#11#13#13#13'   ''((-,-211666'#16#16#16#7#7#7#7#7#7#7#7#7#6#7#6#6#7
+  +#7#6#6#7#7#7#6#6#6#6#15#15#15#6#6#6'000yyy0000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000:::>>>@@@EEEJJJMMMPPPRRRSSSSSSLLLDDD===7770000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000444;;;;;;<<<===>>>>>>>>>4'
+  +'44///////////////4449889889889889888888888888888888888888888888888888888888'
+  +'888878878778778778778778777777777777777777777777777777777777777776664443332'
+  +'22333333333333444444555666777777888999;::<;;<;<>=>???@@@BBBDDDDDDFFFHHHJJJK'
+  +'KKMMMOOORRRSSSVVVXXX[[[]]]___cccfeehggkkknnnrrruuuxxx{{{'#131#131#131#135
+  +#135#135#138#138#138#142#142#142#146#146#146#149#149#149#153#153#153#156#156
+  +#156#160#160#160#164#164#164#167#167#167#171#171#171#174#174#174#178#178#178
+  +#180#180#179#163#163#162#149#149#149#146#146#146#142#142#142#138#138#138#133
+  ,#133#133#128#128#128'{{{uuupppkkkfffccc```\\\XXXTTTPPPLLLGGGDDEBBA?=6<<9=Jq>'
+  +'`'#199'>n'#255'>o'#255'<l'#255';k'#255';j'#255':i'#255':i'#255'9h'#255'8g'
+  +#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255
+  +'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'
+  +#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255
+  +'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27
+  +'L'#255#26'L'#255#26'K'#255#25'J'#255#24'I'#255#22'J'#255#22'I'#255#27'B'#206
+  +'%6p//.2/&321555777888:::<<<===============;;;::::::999777555333111000---]]]'
+  +#176#176#176#175#175#175#171#171#171#168#168#168#164#164#164#161#161#161#156
+  +#156#156#152#152#152#149#149#149#145#144#144#138#138#138#133#133#134#131#130
+  +#130'~~~}}}zzzwwvtsspoollliiideebbb_``\\\YYYVVVTTTQRQNONLLLJIIHGGEDDCCC@@A>?'
+  +'>=<<<;;;:998967743333310100//..--.***$$$$$#"######$#334<<<A@AGGFLLKQQP---'
+  +#29#29#29#28#29#29#28#28#28#28#27#27#28#27#27#27#27#27#27#27#27#27#27#27#26
+  +#27#26#26#27#26#26#26#26#26#26#26#26#26#26#26#26#25#26#26#26#25#25#25#26#25
+  +#25#25#25#25#24#25#25#25#25#24#24#24#24#25#24#24#24#24#24#24#24#24#24#24#24
+  +#24#24#24#24#23#24#27#27#27'%%%&&&&&&''&''''''''##$'#23#23#23#23#23#23#23#23
+  +#22#22#23#23#22#23#22#24#24#24#27#27#27#27#27#26#27#26#27#27#27#26#26#26#26
+  +#25#25#25#23#23#23#22#23#23#23#22#23#22#23#22#23#23#23#24#24#24#24#24#23#24
+  +#23#23#24#23#23#23#23#22#23#22#22#23#22#22#22#22#22#22#22#22#21#21#22#22#21
+  +#21#22#21#22#21#21#22#21#21#21#21#21#21#21#21#21#20#20#20#20#20#20#20#20#20
+  +#20#20#20#20#20#19#22#22#21#27#27#28#28#28#27#28#27#27#28#28#27#22#21#21#20
+  +#20#19#20#19#20#19#19#19#19#19#19#19#18#18#18#18#18#18#17#17#18#18#17#18#17
+  +#17#17#17#17#17#17#17#16#17#17#17#17#16#16#16#17#16#16#16#16#17#17#16#16#16
+  +#16#16#15#15#15#16#16#15#16#15#16#16#15#16#15#15#15#15#15#15#15#15#14#15#15
+  +#15#15#15#14#15#15#14#14#14#13#14#14#13#14#13#13#13#13#12#13#13#13#12#13#13
+  +#13#12#12#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#11#11#11#11#11#12
+  +#13#13#13#31#31#31'(((.-.322888'#20#20#20#7#7#7#7#7#7#7#7#6#6#7#6#7#7#6#6#7#7
+  +#6#6#7#7#6#7#15#15#15#6#6#6'000yyy000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000111'
+  +'>>>BBBGGGLLLLLLGGG???999000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000333999:::;;;===>>>??????//////'
+  +'/////////555998988988988988988888888888888888888888888888888888888888887887'
+  +'887877877877877877777777777777777777777777777777777777777777888887777666666'
+  +'444333444444555666777777777888999<;;<;;=<=?>?@@@AAABBBDDDEEEGGGHHHKKKLLLNNN'
+  +'OOORRRTTTWWWYYY[[[^^^```cccfffjjjlllppptsswwwzzz}}}'#128#128#128#131#131#131
+  +#135#135#135#138#138#138#142#142#142#146#146#146#149#149#149#153#153#153#157
+  +#157#157#160#160#160#164#164#164#167#167#167#171#171#171#174#174#174#178#178
+  +#177#181#181#180#165#165#165#149#149#149#147#147#147#143#143#143#140#140#140
+  +#135#135#135#129#129#129'|||wwwrrrmmmhhhddd```^^^YYYVVVRRRNNNJJJFFGCCCA@?><5'
+  +'=<:=Ip=]'#192'=k'#251'<n'#255';l'#255';j'#255':i'#255':i'#255'9h'#255'8g'
+  +#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255
+  +'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'
+  +#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255
+  +'!R'#255'!R'#255' Q'#255#31'P'#255#31'P'#255#30'O'#255#29'N'#255#28'M'#255#27
+  +'L'#255#26'M'#255#25'M'#255#25'J'#252#30'A'#193'&6m../0-#10.112444666888:::;'
+  +';;===>>>>>>======<<<<<<:::999888777555222000---kkk'#179#179#179#176#175#176
+  +#171#171#171#168#168#168#164#164#164#160#160#161#156#157#157#153#153#154#149
+  +#150#149#146#146#146#141#141#141#134#135#135#131#130#131'{{{{zzxxwuttqqqn'
+  +'mmjjjfffdddaaa\]]Z[ZWXXUUURRRPPOMMMKJJHHHFEEDCCCBB??>==>=<<;;::999786653343'
+  +'23112000.-.-,-%&&$%$$$%#####"))*;::???EEEIJJPOP787'#30#30#29#29#29#29#29#28
+  +#28#27#28#28#28#27#28#28#27#27#27#27#27#27#28#27#27#27#27#27#27#27#27#27#27
+  +#26#26#27#27#26#27#26#26#26#26#26#26#26#26#26#25#26#25#25#26#25#25#26#25#25
+  +#25#25#25#25#25#25#25#25#25#24#25#24#25#25#24#24#24#24#24#24#24#24#24#24#24
+  +#24#23#23#24'   &%%&&&%&&''''''((('#27#27#27#23#23#23#23#23#23#23#23#23#22#23
+  +#23#22#23#23#27#27#26#27#27#27#26#27#27#26#26#26#27#26#26#26#26#26#23#23#23
+  +#23#23#23#23#23#23#23#23#22#23#24#23#24#24#24#24#24#23#24#24#23#24#23#23#24
+  +#22#23#23#23#22#23#22#22#22#22#22#22#22#22#22#21#22#22#22#22#22#21#21#21#22
+  +#21#21#21#21#21#21#21#21#21#21#21#20#21#20#20#20#20#20#20#21#20#20#20#20#20
+  +#21#21#21#28#28#27#28#28#27#28#27#27#28#27#27#24#24#23#19#20#19#20#20#20#20
+  +#20#19#19#19#19#20#19#19#18#18#18#19#18#18#18#18#17#18#17#17#18#17#18#17#17
+  +#17#17#17#17#17#17#16#17#17#16#16#17#16#17#16#16#17#16#17#16#16#16#16#16#16
+  +#16#16#15#15#15#15#16#16#15#15#16#15#15#15#15#15#15#15#15#15#15#14#14#15#15
+  +#14#14#14#14#14#14#13#14#13#13#13#13#13#13#13#13#13#11#11#11#11#12#11#12#11
+  +#11#11#11#11#11#11#11#10#11#11#11#11#10#12#12#11#12#11#12#15#14#14'   ***000'
+  ,'445999'#27#26#26#7#7#7#7#7#8#7#7#7#7#7#6#6#6#7#7#6#6#6#6#6#6#6#7#15#15#15#6
+  +#6#6'000yyy00000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000555:::88844400000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000222888:::;;;===>>>===///////////////66699898898898'
+  +'898898888888888888888888888888888888888888888888888788787787787787787777777'
+  +'777777777777777777777777777777777777788888888788798898898899888877777787787'
+  +'7777888999:::<;;<;;>=>?>?@@@AAACCCDDDFFFGGGIIIKKKMMMOOOPPPSSSUUUWWWZZZ]\\__'
+  +'_cccfffiiilllnnnqqquuuxxxzzz~~~'#129#129#129#132#132#132#136#136#136#138#138
+  +#138#142#142#142#146#146#146#149#149#149#153#153#153#157#157#157#160#160#160
+  +#164#164#164#167#167#167#171#171#171#174#174#174#178#178#177#181#181#180#167
+  +#167#167#149#149#149#148#148#148#144#144#144#141#141#141#136#136#136#131#131
+  +#131'}}}xxxsssnnniiieeebbb___[[[XXXUUUQQQLLLIIIEEECCC@@??<5=<7<D^=V'#165'<f'
+  +#230'<l'#255';l'#255':j'#255':i'#255'9h'#255'8g'#255'7g'#255'6f'#255'6e'#255
+  +'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255'0`'#255'/_'#255'/_'#255'.^'
+  +#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'#255')X'#255'(X'#255'''X'#255
+  +'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255'!R'#255'!R'#255' Q'#255#31
+  +'P'#255#30'P'#255#30'P'#255#28'P'#255#28'N'#255#29'I'#233'#@'#166'+5Y/.*0-$0'
+  +'0.111333444666888:::<<<======>>>>>>>>>===<<<<<<:::999777555444222///utt'#179
+  +#179#179#176#176#175#172#171#172#168#168#169#164#164#164#161#161#161#157#156
+  +#157#154#154#153#150#149#150#146#146#146#142#142#142#137#137#137#131#131#131
+  +#128#128#128'{||xxxyyyuutrrronnlkkhgheeeaaa^^^\\\XXXUUUSRRPPPMNNLLLIIHGHGFEE'
+  +'CBBA@@?>>==<<<;:::998877544343121010///...+*+%$%$%$#$####$$$434==>CBBHHHMMM'
+  +'JKK'#30#30#30#29#30#29#29#30#29#28#28#29#28#28#28#28#27#28#27#28#27#28#28#27
+  +#27#27#28#27#27#27#27#26#27#27#27#27#26#27#27#27#26#26#27#26#26#26#26#26#26
+  +#25#26#26#26#26#25#26#26#25#26#25#26#25#25#25#25#25#25#25#25#25#25#24#25#25
+  +#25#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#25#25'###%%%&&&''''&'''''
+  +'''$$$'#23#23#23#23#23#23#23#23#23#22#23#23#22#22#22#26#25#26#27#27#27#27#27
+  +#27#27#26#27#26#27#26#27#26#26#24#24#24#23#23#24#23#23#23#23#23#23#24#23#24
+  +#24#25#25#24#24#24#24#24#23#24#24#23#24#23#23#24#22#23#23#23#22#23#22#22#22
+  +#22#22#22#22#22#21#22#22#21#21#21#21#21#22#21#21#22#21#21#21#20#21#20#21#20
+  +#21#21#20#21#21#21#20#20#20#20#20#21#21#20#20#20#27#28#28#28#28#27#28#28#27
+  +#28#27#27#25#24#24#20#20#20#20#20#20#20#20#19#19#19#19#20#19#19#19#18#18#19
+  +#18#18#19#17#18#18#18#17#18#17#18#17#17#17#17#17#17#17#17#16#16#17#17#16#17
+  +#17#16#17#16#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#16#15#16#16#16#16
+  +#15#15#15#15#15#16#15#15#15#15#15#15#14#14#15#14#14#14#14#14#14#13#13#14#12
+  +#13#12#12#12#12#12#12#12#12#11#12#11#12#12#11#11#11#11#11#12#12#12#12#12#12
+  +#12#13#13#14#17#16#16#29#29#28'(((...333888<<<""!'#8#7#7#7#7#8#7#8#7#7#7#7#7
+  +#7#7#6#7#7#6#7#6#7#7#6#15#18#15#6#6#6'000yyy00000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000000333999:::<<<=='
+  +'=;;;///////////////99899898898898898898888888888888888888888888888888888888'
+  +'888888888788788787787787787787777777777777777777777777777777777777777788888'
+  +'8887887988988988988:99999:::;;;;;;;;;<;;<<<======>>>???AAAAAACCCDDDEEEGGGHH'
+  +'HJJJLLLMMMPPPRRRTTTWVVYXX[ZZ]\\___bbbdddfffjjjlllooorrruuuxxx{{{'#129#129
+  +#129#133#133#133#136#136#136#139#139#139#143#143#143#146#146#146#149#149#149
+  +#153#153#153#157#157#157#160#160#160#164#164#164#167#167#167#170#170#170#174
+  +#174#173#177#177#177#181#181#180#172#172#172#151#151#151#148#148#148#145#145
+  +#145#142#142#142#138#138#138#133#133#133'zzzuuuppplllgggcccaaa]]]ZZZVVVSS'
+  +'SOOOLLLHHHFFFCCDAA@?=8=;3<?F<K{;Y'#181';f'#237':j'#255'9k'#255'9i'#255'8h'
+  +#255'7g'#255'6f'#255'6e'#255'5d'#255'4d'#255'3c'#255'2b'#255'2a'#255'1a'#255
+  +'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'#255')Y'
+  +#255')X'#255'(X'#255'''X'#255'&W'#255'%V'#255'$U'#255'$U'#255'#T'#255'"S'#255
+  +'!R'#255'!S'#255#31'S'#255#31'Q'#255#31'M'#240'#D'#185'):y.2>0.%1/(110222333'
+  +'444666777999;;;======>>>>>>>>>??????>>><<<;;;:::999777444333:::'#134#134#134
+  +#179#179#179#175#175#175#171#172#172#168#168#168#164#164#164#161#161#161#157
+  +#157#157#154#154#154#149#150#150#146#146#146#142#142#142#139#139#139#133#132
+  +#132#128#128#128'}}}xxxwvwvvvrrrppolmliihfeecbb`__\\\ZZZWWVSSTRRQPOOMMMJJJHH'
+  +'HFFFDCCCBB@??>==<<<<;;:::999886555323221000./....(((%%%%%$$####$&&'';;;???E'
+  +'EFKLKPPQ111'#29#30#30#30#30#30#29#29#29#28#28#28#28#28#28#28#28#28#28#28#27
+  +#27#28#27#28#28#27#27#27#28#27#27#27#27#27#27#27#26#27#27#27#26#26#27#26#26
+  +#26#26#26#26#26#26#26#26#26#25#26#25#26#25#25#25#25#26#25#25#25#25#25#25#24
+  +#25#25#25#25#24#24#24#25#24#24#24#24#24#24#24#24#24#24#24#24#23#23#29#29#28
+  ,'$$$%%%&&&''''&''''('#25#25#25#24#23#23#23#23#23#23#23#23#23#23#22#24#23#23
+  +#28#28#27#27#27#27#27#27#27#27#27#26#26#27#26#26#25#25#23#23#23#23#24#24#23
+  +#23#23#22#23#23#24#24#25#24#25#24#25#24#24#24#24#24#24#24#23#23#23#23#24#23
+  +#22#23#22#23#23#22#22#22#22#22#22#22#22#22#22#22#22#22#21#22#21#21#21#21#21
+  +#21#21#21#21#21#21#21#21#21#21#21#20#20#20#21#20#20#20#20#20#20#26#26#25#28
+  +#28#28#28#28#28#27#27#27#27#25#25#20#20#20#20#20#20#19#20#20#20#20#20#20#19
+  +#19#19#18#19#19#18#18#19#18#18#19#17#18#18#17#17#17#18#18#17#17#17#17#17#17
+  +#17#17#17#17#16#17#17#16#17#16#17#17#16#16#16#16#16#16#16#16#16#16#16#16#15
+  +#15#16#15#15#15#16#16#16#15#15#15#15#15#15#15#15#15#15#14#14#14#14#14#13#12
+  +#14#12#13#12#12#12#12#12#12#12#12#12#12#11#12#11#12#12#11#12#13#13#12#12#12
+  +#13#14#13#16#16#16#26#26#25'$$$('''',,,111777:::<;<!"!'#8#8#7#7#7#7#8#7#7#7#7
+  +#7#7#7#7#7#7#7#6#7#6#7#7#6#18#15#15#6#6#6'000yyy0000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000333888999;'
+  +';;===767//////////////09989989989889889889889888888888888888888888888888888'
+  +'888888888888878878878778778778778777777777777777777777777777777777777777777'
+  +'77888887887887988988988:99:99999:::;;;;;;;;;===>>>>>>???@@@AAABBBCCCEEEFFFG'
+  +'GGJJIJJILLKNMMPOOQPPSRRUTTXWWZYY[[[^]]___bbbeeegggjjjmmmooorrruuuxxx|||'
+  +#130#130#130#133#133#133#136#136#136#139#139#139#143#143#143#146#146#146#149
+  +#149#149#153#153#153#157#157#157#160#160#160#163#163#163#167#167#167#170#170
+  +#170#173#173#173#176#176#176#180#180#180#176#176#176#155#155#155#149#149#149
+  +#146#146#146#143#143#143#139#139#139#134#134#134#129#129#129'|||xxxsssnnnjjj'
+  +'eeebbb```\\\YYYVVVRRROOOKKKHHHFFFDDDBBB?><>;4<:5;?J;Jy:U'#173'9`'#222'9g'
+  +#249'8i'#255'6i'#255'6h'#255'5f'#255'5e'#255'4d'#255'3c'#255'2b'#255'2a'#255
+  +'1a'#255'0`'#255'/_'#255'/_'#255'.^'#255'-]'#255'-\'#255'+['#255'*['#255'*Z'
+  +#255')Y'#255')X'#255'(X'#255'&X'#255'&W'#255'%V'#255'$W'#255'#W'#255'#U'#255
+  +'"Q'#249'#L'#221'&C'#170'*:u.2B1/*20&21.332333555666777888:::;;;===>>>??????'
+  +'@@@@@@?????????>>><<<;;;999777666444FFF'#153#152#152#179#178#178#175#174#174
+  +#171#171#171#168#168#168#164#165#165#161#161#160#157#157#157#154#154#154#150
+  +#150#150#146#146#146#142#142#142#140#139#140#135#135#135#129#129#129'}}}yyyv'
+  +'vvssststqppmmmiiiggfccc```^]^[ZZWWWUTUSRSQPPNNMKKKHHIGFGEEEDDDA@@???>==;;::'
+  +';;9::887677433221111.////././%&%%%%$$$""#$$#0//===A@AGHHMMMKKK'#31#30#30#30
+  +#30#30#30#30#30#29#29#29#29#29#29#28#29#28#29#28#28#28#28#28#28#28#27#28#28
+  +#28#27#27#27#27#28#27#27#27#28#27#27#27#27#27#27#27#26#27#26#26#27#27#27#26
+  +#26#26#26#26#25#26#26#25#26#25#26#25#25#25#25#25#25#25#26#25#25#24#25#25#24
+  +#25#25#24#25#24#24#24#24#24#25#24#24#24#24#24#24#24#23#24#24'"""$$%%%%%&&&'''
+  +''''#29#30#30#23#24#24#24#24#23#23#23#23#23#23#23#23#23#23#27#27#27#28#28#27
+  +#27#28#27#27#27#27#27#27#26#26#26#25#23#24#24#24#24#24#23#23#23#23#23#23#25
+  +#24#25#24#25#25#24#24#25#24#24#24#24#24#23#24#24#23#24#23#23#24#22#23#23#22
+  +#23#23#23#22#22#22#22#22#22#22#22#22#22#21#21#21#22#21#21#21#22#21#21#21#21
+  +#21#21#20#21#21#20#21#20#20#20#20#21#21#20#20#25#25#25#28#28#28#28#28#28#28
+  +#28#28#28#27#27#20#20#20#20#20#20#20#20#20#19#20#20#19#19#19#19#19#19#19#18
+  +#18#19#18#18#19#18#18#18#18#18#18#17#18#17#17#18#18#17#17#17#17#17#17#17#17
+  +#17#17#16#16#17#16#17#16#16#17#16#17#16#17#16#16#16#16#16#16#16#16#15#16#16
+  +#15#16#16#16#16#15#16#15#15#14#15#14#14#14#13#13#13#13#12#12#13#12#12#12#13
+  +#12#13#12#12#12#12#12#13#13#13#13#13#13#14#13#14#16#15#15#25#25#25'"""&&&((('
+  +'---112766999<<<===('''''#8#7#8#7#8#7#7#8#7#8#7#7#7#7#7#7#7#7#7#7#7#6#7#7#18
+  +#18#15#7#6#7'000yyy000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000333777999;;;===444////////////111999998'
+  +'998988988988988988888888888888888888888888888888888888888888887887877877877'
+  +'877877777777777777777777777777777777777777777777888888887887988988988988:99'
+  +'999:::;;;;;;;;;<<<===>>>???@@@@@@BBBBBBDDDEEEFFFHHHJJIKKJMLLNMMQPPRQQTSSUTT'
+  +'XWWZYY\[[^^^```bbbeeegggjjjmmmpppsssuuuxxx|||'#130#130#130#133#133#133
+  +#136#136#136#139#139#139#143#143#143#146#146#146#149#149#149#153#153#153#156
+  +#156#156#160#160#160#163#163#163#166#166#166#169#169#169#172#172#172#176#176
+  +#176#179#179#179#178#178#178#160#160#160#149#149#149#147#147#147#144#144#144
+  +#140#140#140#136#136#136#131#131#131'yyyuuuqqqlllhhheeeaaa^^^[[[XXXUUURRR'
+  +'OOOLLLIIIGGGEEEBBB@@@?>;>;4=;4;<@:B[:L'#133'9T'#170'7['#207'7a'#235'5d'#249
+  +'5e'#255'4e'#255'3f'#255'2d'#255'2c'#255'1b'#255'/a'#255'/`'#255'.`'#255'._'
+  +#255'-^'#255',^'#255'+]'#255'*]'#255')\'#255'(\'#255'(Z'#255'(Y'#255'''W'#250
+  +'''T'#237'(M'#205')E'#165'+='#128'-6T/051.''2/%21-332444555666777999:::;;;<<'
+  ,'<===???@@@@@@AAAAAAAAAAAAAAA???>>>>>><<<;;;999777555ZZZ'#165#164#165#178#177
+  +#177#175#174#175#171#170#171#167#167#167#164#163#164#161#161#161#157#157#157
+  +#153#153#153#150#150#150#146#146#146#142#142#142#140#140#140#136#136#136#132
+  +#133#132'}}}yyyvvvsssqqppqqmmmjkjgggdddaa`^^]\\\ZXXWVVSSSQQQNNMKLLJIIHHHFFFD'
+  +'DCBBB?@@?>><=<;:::::999766556223222000/...//,+,%%%%%%$$$$##$%%566===DDDIIIO'
+  +'OO545'#30#30#31#30#30#30#30#30#30#29#29#29#29#29#29#29#28#28#29#28#29#28#28
+  +#28#28#28#28#28#28#28#28#28#27#27#28#27#27#27#28#27#27#27#27#27#27#27#27#27
+  +#27#26#27#26#27#27#26#26#26#26#26#27#26#26#26#26#25#26#25#25#25#25#25#26#25
+  +#26#25#25#25#25#24#25#25#25#25#25#25#25#24#25#24#25#24#24#24#24#24#24#24#24
+  +#24#29#29#29'$%$%%&&&&''''''%%%'#24#23#24#23#24#23#23#23#23#23#23#23#23#23#23
+  +#27#26#26#27#28#28#28#28#27#27#27#27#27#27#26#26#27#26#25#23#23#24#24#23#23
+  +#24#24#23#23#23#24#24#24#24#25#25#24#24#24#24#24#24#25#24#24#24#24#23#23#23
+  +#23#24#23#23#24#22#23#23#22#22#23#22#22#22#22#22#22#22#22#22#22#22#22#22#22
+  +#22#22#21#21#21#21#21#21#21#21#21#21#21#21#21#20#21#20#20#20#21#24#24#24#28
+  +#28#28#28#28#28#28#28#27#27#27#28#21#20#21#20#20#21#20#20#20#20#19#20#19#20
+  +#20#19#19#19#19#18#19#19#18#18#19#19#18#19#18#18#18#18#17#18#17#18#18#17#17
+  +#17#17#18#17#17#17#17#17#17#17#17#17#16#16#17#17#16#16#17#16#16#16#16#16#16
+  +#16#16#16#16#16#15#15#15#15#16#16#15#14#15#13#13#13#14#13#13#12#13#13#13#13
+  +#13#13#12#12#13#12#13#13#14#14#13#13#13#14#14#14#15#15#14#22#23#23'!!!%%%()('
+  +'++,000222777:99===555'#21#21#21#8#8#8#8#8#7#8#8#7#8#7#7#7#8#7#7#7#8#7#7#7#7
+  +#7#7#7#7#6#18#15#18#6#7#7'000yyy00000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000444666888:::===222////////'
+  +'////33399999899898898898898898898888888888888888888888888888888888888888888'
+  +'788788787787787787787777777777777777777777777777777777777777788888888788788'
+  +'7988988988:99999999:::;;;;;;;;;<<<>>>>>>???@@@AAABBBCCCEEEFFFGGGIIHJJILKKML'
+  +'LNMMQPPRQQTTTVUUXXXZYY\[[^^^```bbbeeehhhjjjmmmqqqsssuuuyyy|||'#130#130
+  +#130#133#133#133#136#136#136#139#139#139#143#143#143#146#146#146#149#149#149
+  +#153#153#153#156#156#156#159#159#159#162#162#162#165#165#165#169#169#169#171
+  +#171#171#175#175#175#178#178#178#180#180#180#167#167#167#150#150#150#148#148
+  +#148#146#146#146#142#142#142#138#138#138#134#134#134#129#129#129'|||xxxtttpp'
+  +'pkkkgggdddaaa^^^[[[YYYUUURRRPPPMMMJJJHHHFFFCCCBBBAA@??=><8=:1<:2<<=;=E:B[9G'
+  +'v7K'#140'7O'#160'5S'#177'4T'#193'4V'#201'3Y'#217'1Y'#221'0X'#221'0X'#221'/W'
+  +#221'.V'#219'/Q'#201'.O'#194'.L'#177'.H'#159'/D'#139'/>t1:Y14=22320''30&32,3'
+  +'20333555666777888999;;;<<<===>>>???@@@AAAAAACCCCCCCCCBBBBBBAAAAAA@@@>>>===<'
+  +'<<:::888999uuv'#173#173#174#175#175#175#174#173#174#170#169#169#167#167#167
+  +#163#163#163#160#160#160#157#157#157#153#153#153#150#150#150#147#146#146#143
+  +#142#142#140#140#140#136#136#136#133#133#133#129#129#129'yyyvwvtttpppooonnmk'
+  +'llhhheddbbb__^\\\ZYYWWVTSSRQQOOOMMMKKKIIIGGGDDDBBB@AA??>>>=<;;;::;::8877775'
+  +'55333111//////-..))*%&&$$$######&&&;<;??@DDDKKKPPP$%%'#31#31#30#31#30#31#30
+  +#30#30#29#29#29#29#28#29#28#28#29#29#29#28#29#28#28#28#28#28#28#28#28#28#28
+  +#28#28#28#28#28#27#27#28#27#28#27#27#28#27#27#27#27#26#27#26#26#26#26#26#27
+  +#27#27#26#26#26#26#26#26#26#26#26#26#25#25#26#25#25#25#26#26#25#25#25#25#25
+  +#25#25#24#25#24#24#24#24#24#24#24#24#24#24#24#24#24#25#26#26'$$$%$%%%%&&&''('
+  +'('#24#25#24#23#23#24#23#23#23#23#23#23#23#23#23#25#25#25#27#27#27#28#27#27
+  +#27#27#27#27#27#27#27#27#26#25#25#25#25#23#23#23#24#23#24#23#23#25#24#24#25
+  +#25#25#24#25#25#24#24#24#24#24#25#25#24#24#24#24#23#24#24#23#24#23#23#23#23
+  +#23#23#23#22#23#22#22#22#23#22#22#22#22#22#22#21#21#21#21#22#21#22#22#22#21
+  +#21#21#21#20#21#21#21#21#20#20#20#20#24#25#24#29#28#28#28#28#28#27#28#27#28
+  +#28#27#21#20#21#20#20#20#21#20#20#20#20#20#20#20#20#20#19#19#20#19#19#20#19
+  +#18#19#18#18#19#18#18#18#17#17#18#18#18#17#18#17#17#17#18#17#17#17#17#17#17
+  +#17#17#17#17#17#16#17#17#16#16#16#17#16#17#16#16#16#16#16#16#16#15#15#15#13
+  +#13#13#14#13#14#14#13#14#13#13#14#13#13#13#12#13#12#14#14#13#14#14#14#13#13
+  +#13#16#15#15#20#20#20#31#31#31'%&&))),,+/00322555888:::899'#28#28#29#9#8#8#8
+  +#8#8#8#8#8#8#7#8#8#8#7#8#8#8#8#7#7#7#8#8#8#7#7#7#7#7#7#7#7#18#18#18#6#6#7'00'
+  +'0yyy00000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000444666888:::===///////////////54499999899899898898898'
+  +'898898888888888888888888888888888888888888888888788788787787787787787777777'
+  +'7777777777777777777777777777777777777888887887887988988988988:99999:::;;;;;'
+  +';;;;<<<===>>>??????@@@BBBBBBCCCEEEFFFGGGIIHJJILKKMMMONNQPPSRRTTTWVVXXX[ZZ\\'
+  +'\___aaacccfffhhhkkkmmmqqqsssvvvyyy|||'#130#130#130#133#133#133#136#136
+  ,#136#139#139#139#142#142#142#146#146#146#149#149#149#152#152#152#155#155#155
+  +#158#158#158#162#162#162#164#164#164#168#168#167#171#171#171#174#174#173#177
+  +#177#177#181#180#180#174#174#174#155#155#155#149#149#149#147#147#147#144#144
+  +#144#140#140#140#137#137#137#132#132#132'{{{wwwsssnnnjjjfffcccaaa^^^[[[XX'
+  +'XVVVSSSQQQNNNLLLIIIHHHFFFDDDBBBAAA@???>=>=;><7<:3<9/<9/;93::8:999:>9:?89>79'
+  +'=79=78<66665464/74)73)64,65/652654665777777777888999;;;<<<<<<>>>???@@@AAABB'
+  +'BCCCCCCDDDDDDDDDDDDEEEDDDBBBBBB@@@@@@>>><<<;;;:::MMM'#147#147#147#175#176
+  +#176#171#171#171#171#170#170#170#170#170#166#165#165#163#162#162#160#160#160
+  +#156#156#156#153#153#153#149#149#149#146#146#146#142#142#142#140#139#139#136
+  +#136#136#133#133#133#129#129#129'~~~vvwtttpppmmnllllllhhheffcbb```]]][[ZXXWV'
+  +'UTSRRPOONNNKKKIIIGGFDDDDCCABA???>>><<;::::::98887766654412201100////.-.(((&'
+  +'&%%$%####$$))*<<<BBBEFELLLHHH'#31#31#31#31#30#31#30#31#30#29#29#30#29#29#29
+  +#29#29#29#29#29#29#29#28#29#29#29#28#29#28#28#28#28#28#28#28#28#28#27#28#27
+  +#28#27#27#27#27#27#27#27#27#27#27#27#27#27#27#27#26#26#26#26#27#27#27#27#26
+  +#27#26#26#26#26#26#26#26#25#26#26#26#26#25#25#26#25#25#25#25#25#25#24#25#25
+  +#24#25#25#25#25#24#25#25#24#24#24#24#24#24#24'"!"%%%&%%&&&'''''''#28#28#28#24
+  +#23#24#24#24#24#24#23#23#23#23#24#24#24#24#28#28#28#28#27#27#28#28#27#28#27
+  +#27#27#27#26#25#25#25#25#25#25#24#24#23#24#24#24#24#24#24#25#25#25#25#25#25
+  +#25#25#25#24#25#25#24#25#24#25#24#24#24#24#23#24#24#23#24#23#23#24#22#23#23
+  +#23#22#23#23#22#22#22#22#22#22#22#22#22#22#21#22#21#22#22#21#21#21#22#21#21
+  +#21#21#21#20#21#21#21#23#23#22#29#29#28#29#28#28#28#28#28#28#28#28#22#23#22
+  +#21#20#21#20#20#20#20#20#20#20#20#20#19#19#19#19#19#19#20#18#18#19#19#18#19
+  +#18#18#18#18#18#18#18#18#18#18#18#18#18#18#18#17#17#17#17#17#18#18#17#17#17
+  +#17#16#17#17#17#17#17#17#17#17#16#16#17#15#14#14#14#13#14#14#13#14#13#13#14
+  +#14#13#14#13#13#13#13#13#13#15#14#14#14#13#14#16#15#15#19#18#19#30#31#30'&&&'
+  +')))+++./.2224548889::777"""'#12#12#12#8#8#9#9#8#8#9#8#9#8#8#8#8#8#8#8#8#8#8
+  +#8#8#7#8#8#7#7#8#7#8#8#7#7#7#7#7#7#18#18#18#7#7#7'000yyy00000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000011144'
+  +'4666888;;;<<<...////////////66699999999899898898898898898888888888888888888'
+  +'888888888888888888888888888788787787787787787777777777777777777777777777777'
+  +'7777777777777888888887887877988988988:99999999:::;;;;;;;;;<<<>>>>>>???@@@AA'
+  +'ABBBBBBDDDEEEFFFHHGJJIJIILKKNMMPOOQPPSRRUTTWVVYXXZZZ\\\___aaacccfffiiikkknn'
+  +'nqqqsssvvvyyy|||'#130#130#130#133#133#133#136#136#136#138#138#138#142#142
+  +#142#146#146#146#148#148#148#151#151#151#155#155#155#157#157#157#160#160#160
+  +#164#164#164#167#167#166#170#170#169#173#173#173#176#176#176#179#179#179#180
+  +#180#180#165#164#164#149#149#149#148#148#148#145#145#145#143#143#143#139#139
+  +#139#135#135#135#130#130#130'~~~zzzvvvrrrnnnjjjfffcccaaa^^^[[[YYYWWWTTTRRROO'
+  +'OMMMLLLJJJGGGFFFEEEDDDCCCBBB@@@@@@????>>>>===;<;9<;9<;9;:8;:8;:8::8::8::9::'
+  +'::::::::::;;;;;;;;;<<<======>>>???@@@AAAAAABBBCCCDDDEEEEEEEEEEEEFFFGGGFFFEE'
+  +'EEEEDDDCCCBBB@@@???>>><<<:::nnn'#168#168#169#173#173#174#170#171#171#167#167
+  +#167#167#166#166#165#165#165#163#163#162#159#159#159#155#155#155#153#153#153
+  +#148#148#148#145#145#145#143#143#142#140#140#140#136#135#135#133#133#133#130
+  +#129#129'~~zzztttqqqmmmjjjjjjiiifffcdd```]]^[[[XYXVVUSSSQQPNNNNLLJIIHHHFFFD'
+  +'EDBAB@?@???===;:;:::9::8877667664430110/00/0./.-.-((''%%%$$$####$$000=<=AAA'
+  +'GHGMMM>>>'#31#31#31#30#31#31#30#31#30#29#29#29#30#29#29#29#29#29#29#29#29#29
+  +#29#29#28#29#28#28#28#29#28#28#28#28#29#28#28#28#28#28#27#27#28#28#27#27#27
+  +#27#27#27#28#27#27#28#27#27#27#26#27#27#26#26#27#26#26#27#26#26#26#26#26#26
+  +#25#26#26#25#26#25#25#25#25#25#25#26#26#26#26#25#25#25#25#25#25#25#25#25#24
+  +#24#24#24#25#24#24#24#24#30#31#31'$$#%$%&&&''('''#31#31' '#24#24#24#24#24#24
+  +#24#24#24#23#23#23#24#24#25#28#28#28#28#28#28#28#28#27#27#27#27#27#27#26#26
+  +#26#26#25#25#25#24#25#25#25#24#23#25#24#25#26#25#25#25#25#25#25#25#25#24#25
+  +#25#25#25#25#25#25#25#24#24#24#24#24#23#24#24#23#23#23#23#23#22#23#23#22#23
+  +#23#22#22#22#22#22#22#22#22#22#22#22#21#21#22#21#21#21#21#21#21#21#21#21#21
+  +#21#21#23#23#23#28#29#28#29#28#29#28#28#28#28#28#28#23#22#22#20#21#21#21#21
+  +#20#20#20#20#20#20#20#20#20#20#20#19#19#20#19#19#20#18#18#19#19#18#19#18#19
+  +#18#18#18#18#18#18#18#17#18#18#18#18#18#18#17#17#18#17#17#17#17#17#17#17#16
+  +#17#17#15#14#15#14#14#15#14#13#14#14#13#14#14#13#14#14#13#14#14#13#14#14#14
+  +#14#14#14#15#16#15#15#18#19#18#28#29#29'%&&)(),++...111555888899:;:(()'#12#13
+  +#12#9#9#9#9#9#8#9#9#9#9#9#9#8#9#8#8#8#9#8#8#8#8#8#8#8#7#8#7#8#8#8#7#7#8#7#7#8
+  +#8#7#8#7#7#18#18#18#7#7#7'000yyy00000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  ,'0000000000000000000000000000000000000000000000111444777999;;;:::...////////'
+  +'////88799999999899899898898898898898888888888888888888888888888888888888888'
+  +'888788788787787787787787777777777777777777777777777777777777777777788888788'
+  +'7887988988988988999999::::::;;;;;;<<<===>>>>>>???@@@AAABBBCCCEEEFFFGGFHHGJI'
+  +'IKJJMLLNMMPOOQPPSRRUTTXWWYXX[[[]]]___bbbdddfffiiikkknnnqqqsssvvvyyy|||'
+  +#130#130#130#133#133#133#136#136#136#138#138#138#142#142#142#145#145#145#148
+  +#148#148#150#150#150#154#154#154#157#157#157#160#160#159#163#163#162#166#166
+  +#166#169#169#169#171#171#171#175#174#174#178#177#177#180#180#180#173#173#173
+  +#156#156#156#149#149#149#147#147#147#144#144#144#141#141#141#138#138#138#133
+  +#133#133#130#130#130'~~~zzzvvvrrrnnnkkkhhhdddaaa^^^\\\ZZZXXXVVVSSSQQQOOONNNM'
+  +'MMJJJIIIHHHGGGFFFEEEDDDCCCCCCCCCAAAAAA@@@@@@@@@?????????????????????@@@@@@@'
+  +'@@@@@@@@BBBCCCCCCDDDDDDEEEFFFFFFGGGGGGHHHHHHHHHHHHGGGHHHHHHFFFEEEDDDCCCBBBA'
+  +'AA???===UUU'#149#149#149#178#178#178#172#172#173#168#168#169#165#166#166#163
+  +#163#163#162#162#162#161#161#161#158#158#158#156#155#155#153#152#152#148#148
+  +#148#145#145#146#142#142#142#139#139#139#136#136#136#133#133#133#130#130#130
+  +'~~~{|{xxwqqqnnnjjjhghiiifffddda``__^\\\YZYWWWTTTRRQPPOMMLJIIIHHGFFEEECCCAA@'
+  +'@?@=>=<<<::::::999998776655433000000///../---&&&$$$#$$"""#$#///>>>BABGGHMMM'
+  +'988   '#31#31#31#29#30#30#29#30#30#30#29#29#29#30#30#29#29#29#29#29#29#29#29
+  +#29#29#29#29#28#28#28#29#28#29#28#29#28#28#28#28#28#28#28#27#28#27#27#27#27
+  +#27#27#28#27#28#28#27#27#27#27#26#27#26#27#26#27#26#27#26#26#26#26#26#26#26
+  +#26#26#25#26#26#25#26#25#25#25#26#26#26#25#25#25#25#24#25#25#25#25#25#24#24
+  +#25#24#25#24#30#30#30'$$$%%%&&&''(('#31#31' '#24#24#24#24#23#24#24#23#24#23
+  +#23#24#24#23#24#28#28#28#28#28#28#27#28#27#28#27#27#27#27#27#27#27#26#25#25
+  +#26#25#25#25#25#25#25#24#24#25#26#26#26#25#25#26#25#25#25#25#25#25#24#25#25
+  +#24#24#24#24#25#25#24#24#24#24#24#23#24#24#23#23#23#23#24#22#22#23#22#23#23
+  +#22#22#22#22#22#22#22#21#22#22#22#21#21#22#21#21#22#21#22#22#21#21#21#23#23
+  +#23#28#29#28#29#29#27#28#28#29#28#28#28#23#23#22#21#21#20#21#20#21#20#20#20
+  +#20#20#20#20#20#20#20#19#19#19#19#19#19#18#18#20#18#18#19#18#18#18#18#19#18
+  +#18#18#18#17#18#17#17#18#17#18#17#18#17#18#17#17#17#16#16#16#15#15#15#14#14
+  +#15#14#13#15#14#13#14#14#13#15#14#13#15#15#14#15#15#14#15#15#15#15#18#19#19
+  +#27#27#27'$$%(((+++.//011544787999;;;.//'#16#16#15#10#10#9#9#10#9#9#9#9#10#9
+  +#9#9#9#9#8#9#8#8#8#9#8#9#8#9#8#9#9#9#8#9#8#8#8#8#8#8#7#8#7#8#8#7#7#8#7#7#7#18
+  +#18#18#7#7#7'000yyy000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000222555777999;;;777...////////////999999999'
+  +'998998998988988988988988888888888888888888888888888888888888888888887887877'
+  +'877877877877777777777777777777777777777777777777777777888887887887877988988'
+  +'988:99999999:::;;;;;;;;;<<<===>>>??????@@@BBBBBBCCCEEEFFFGGFIIHJIILKKMLLNMM'
+  +'QPPRQQTSSUTTXWWYYY[[[]]]___bbbdddfffiiilllnnnqqqsssvvvyyy|||'#129#129#129
+  +#132#132#132#135#135#135#138#138#138#141#141#141#144#144#144#147#147#147#150
+  +#150#150#153#153#153#156#156#155#159#159#158#162#162#162#164#164#164#168#167
+  +#167#170#170#170#172#172#172#174#174#174#177#177#177#178#178#178#167#167#167
+  +#152#152#152#148#148#148#146#146#146#143#143#143#140#140#140#136#136#136#133
+  +#133#133#129#129#129'~~~zzzvvvsssooolllhhheeebbb```^^^\\\ZZZXXXUUUTTTSSSQQQO'
+  +'OOMMMMMMKKKJJJIIIHHHGGGGGGGGGFFFEEEEEEEEEDDDDDDDDDCCCDDDDDDDDDDDDEEEEEEFFFF'
+  +'FFFFFGGGHHHHHHIIIIIIIIIJJJJJJJJJJJJKKKKKKJJJJJJIIIHHHHHHFFFDDDDDDBBB@@@HHH~'
+  +'~~'#177#177#177#177#177#177#171#171#171#168#168#168#165#164#165#161#161#162
+  +#158#158#158#158#158#158#157#157#157#154#154#154#151#151#150#149#148#148#145
+  +#145#144#141#141#142#138#138#139#136#136#136#132#132#132#129#129#129'~~~{{{x'
+  +'xxuttnnnjjjhgheeefffdddaaa___\\\ZZZWWWTTUSSSPPPNNMKKKJJJHGHEEEDCCBBB@@?>??<'
+  +'<<;:::::888988887666655322000//////-...-.%%%$$$######$##554>>>BBBHHHMMM/./ '
+  +#31' '#31' '#31#30#30#30#30#30#30#30#30#30#29#29#30#30#29#30#29#29#29#28#29
+  +#29#29#28#29#29#29#28#29#28#28#28#28#28#29#28#28#28#28#28#27#28#28#28#27#28
+  +#28#28#28#27#27#28#27#27#27#26#27#27#26#26#27#27#26#26#26#26#27#26#26#26#26
+  +#26#26#26#26#25#26#25#25#26#25#26#25#25#25#25#25#25#25#25#25#25#25#25#25#24
+  +#24#25#24#25#28#27#28'#$#%%%&&&''''''$%$'#24#24#25#24#24#24#24#24#23#23#24#23
+  +#23#24#24#28#28#28#28#28#28#28#28#28#27#28#27#28#28#27#26#27#27#25#25#26#26
+  +#25#25#25#25#25#25#25#25#26#26#25#25#26#26#26#25#25#25#25#25#25#25#25#25#25
+  +#25#24#24#25#25#24#25#24#24#24#24#24#23#24#24#23#24#23#23#23#22#23#23#23#22
+  +#23#22#23#22#22#22#22#22#22#22#22#22#21#22#22#21#21#22#22#21#22#23#23#23#29
+  +#28#27#29#29#28#29#29#28#28#28#28#23#23#22#21#21#21#21#21#21#21#20#20#20#20
+  +#21#21#20#20#21#20#19#20#19#19#20#18#19#20#19#19#19#18#18#18#18#18#18#18#18
+  +#18#18#18#18#18#17#17#18#17#18#17#17#15#15#15#14#14#15#14#14#15#14#14#15#14
+  ,#14#15#14#13#14#15#14#15#15#14#16#16#16#16#18#17#18#24#25#24'###(''(***../11'
+  +'1344777899;<;223'#22#22#22#10#10#10#10#10#10#10#10#10#10#9#9#10#10#10#9#10#9
+  +#9#9#9#9#9#9#8#9#8#9#8#9#8#8#8#9#8#8#8#9#9#8#8#8#8#8#8#8#7#8#8#7#8#7#8#7#20
+  +#18#20#7#7#7'000yyy000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000222555777:::<<<656////////////111999999999'
+  +'999998998988988988988988888888888888888888888888888888888888888888887887877'
+  +'877877877877877777777777777777777777777777777777777777777888887887877988988'
+  +'988988999999999:::;;;;;;;;;<<<>>>>>>???@@@@@@BBBBBBDDDEEEFFEGGFIHHJIILKKMMM'
+  +'NMMQPPRQQTSSUTTWWWYYY[[[]]]___bbbdddfffiiilllnnnqqqsssuuuxxx|||'#129#129
+  +#129#131#131#131#135#135#135#138#138#138#141#141#141#143#143#143#146#146#146
+  +#149#149#149#153#153#152#155#155#154#157#157#157#160#160#160#162#162#162#164
+  +#164#164#167#167#167#170#170#170#172#172#172#175#175#175#179#179#179#176#176
+  +#176#162#162#162#149#149#149#147#147#147#145#145#145#142#142#142#139#139#139
+  +#136#136#136#132#132#132#129#129#129'}}}zzzwwwssspppmmmjjjgggdddaaa```]]]\\\'
+  +'ZZZXXXVVVVVVTTTRRRQQQPPPOOONNNMMMLLLKKKKKKJJJJJJIIIJJJIIIIIIIIIIIIIIIIIIIII'
+  +'JJJJJJKKKKKKKKKKKKLLLLLLLLLLLLLLLMMMMMMNNNNNNMMMMMMMMMLLLJJJHHHGGGFFFDDDBBB'
+  +'CCCnnn'#165#165#165#179#179#179#172#172#173#169#169#169#166#166#167#163#163
+  +#163#160#161#161#157#157#158#153#153#154#154#153#153#153#153#153#151#151#151
+  +#148#147#147#145#144#144#142#141#141#139#138#138#135#135#135#132#132#132#128
+  +#128#128'}~}||{xxxtutqppjjjhhheeecccdddbaa___\\\ZZZWWWVVVSSSPPQNNNLLLJJJIHGF'
+  +'EEEEDCCBA@@???===;<<:::99:777877677776444221000///..--..-,-$$$#########$$$5'
+  +'55>>>AAAGGGMMM,+, '#31#31#31#30#30#30#30#30#30#29#30#30#30#30#30#30#29#29#30
+  +#29#29#29#29#29#29#29#29#29#29#29#29#29#28#28#28#28#28#28#29#28#28#29#28#28
+  +#28#28#28#27#28#28#28#27#27#27#28#27#27#27#27#27#27#27#26#27#27#26#27#27#26
+  +#27#26#26#27#26#26#26#26#26#26#26#26#25#26#26#25#25#26#25#26#25#25#26#25#25
+  +#25#25#25#25#25#25#24#25#25#25#28#28#27'$$#%%%%&&&''&$$%'#24#24#24#25#24#24
+  +#24#24#24#24#24#24#23#24#24#29#29#29#28#28#28#28#28#28#28#28#27#27#28#27#27
+  +#26#27#25#25#25#26#25#26#25#25#25#25#25#25#26#25#25#26#25#25#25#26#26#26#25
+  +#25#25#25#25#25#25#25#25#25#25#24#24#25#24#24#24#24#24#24#24#24#23#24#24#23
+  +#24#23#23#24#22#22#23#23#22#23#22#22#22#22#22#22#22#22#22#21#22#21#21#22#21
+  +#21#21#23#24#23#29#28#27#29#27#28#28#28#28#28#29#28#23#22#22#21#21#21#21#21
+  +#21#21#21#21#20#21#20#21#20#20#20#20#20#21#19#19#20#18#19#19#19#19#19#19#19
+  +#19#19#18#19#19#18#19#18#18#18#18#18#18#18#17#17#17#17#14#14#16#14#14#16#14
+  +#14#15#14#14#15#14#14#15#15#15#15#15#14#15#17#16#17#23#23#22'"#"(((***-.-111'
+  +'445787999;;:666'#29#30#29#10#10#10#11#10#10#10#10#10#10#10#10#10#10#10#10#9
+  +#9#9#10#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#8#8#8#8#9#8#9#9#8#8#8#8#8#7
+  +#8#8#8#8#8#8#20#20#20#8#7#8'000yyy000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000333555888:::<<<222/////////'
+  +'///333999999999999998998998988988988988988888888888888888888888888888888888'
+  +'888888887887887877877877877877777777777777777777777777777777777777777777888'
+  +'887887887877988988988999999999:::;;;;;;;;;<<<===>>>>>>???@@@AAABBBBBBDDDEED'
+  +'FFEGGFJIIJIILKKMMMONNQPPSRRTTTVUUWWWYYY[[[^^^___bbbdddfffiiikkknnnqqqsssuuu'
+  +'xxx{{{~~~'#128#128#128#131#131#131#134#134#134#137#137#137#139#139#139#142
+  +#142#142#146#146#146#148#148#147#150#150#150#151#151#151#154#154#154#157#157
+  +#157#159#159#159#162#162#162#165#165#165#168#168#168#171#171#171#174#174#174
+  +#177#177#177#179#179#179#175#175#175#163#163#163#148#148#148#146#146#146#144
+  +#144#144#141#141#141#139#139#139#136#136#136#133#133#133#129#129#129'{{{x'
+  +'xxuuurrrooommmiiigggdddbbb```^^^\\\[[[ZZZXXXWWWVVVUUUSSSSSSRRRQQQPPPPPPPPPO'
+  +'OOOOOPPPNNNNNNNNNNNNOOOOOONNNOOOOOOOOOOOOOOOOOOPPPQQQPPPQQQQQQPPPQQQQQQPPPO'
+  +'OONNNLLLJJJHHHFFFFFFEEEjjj'#157#157#157#180#179#180#173#173#174#171#171#171
+  +#168#167#168#165#165#165#161#161#162#158#158#158#156#155#156#153#153#153#149
+  +#150#150#150#149#149#150#150#149#146#146#146#144#143#143#141#140#140#137#137
+  +#137#135#135#134#131#131#131#128#128#129'}}}{{{xxxuuuqrrnnmhhgeeebbb```aaa__'
+  +'_]\]ZZZXXXVVVSSSQPPOOOMMNKKKIIIGGFEEDCCBA@@@@@>==<<<;;;:::87777778777756644'
+  +'3321///0//...---,,,%$$#$$######$#$545>>>AAAFFFKJK+++   '#31#31#30#30#30#31
+  +#30#30#30#30#30#30#30#30#30#30#29#30#29#29#29#29#29#29#29#29#29#29#28#29#28
+  +#29#29#28#28#29#29#29#29#29#28#28#28#28#28#28#28#28#28#28#28#27#27#28#28#27
+  +#27#27#27#27#27#27#27#26#27#27#27#26#27#27#26#27#26#26#26#26#27#26#26#26#26
+  +#26#26#25#25#26#26#25#25#25#25#25#25#26#26#25#25#25#25#25#25#25#27#27#27'##$'
+  +'$%$&&&&&''%$%'#25#25#24#25#24#25#24#24#24#24#24#24#24#23#24#29#29#29#29#29
+  ,#28#28#29#28#29#28#28#28#28#27#27#27#27#26#26#26#25#26#25#25#25#25#26#25#25
+  +#26#26#26#26#26#25#25#26#25#25#26#25#25#25#25#25#25#25#25#25#24#24#25#25#24
+  +#25#25#24#25#24#25#24#24#24#24#23#24#23#23#23#23#23#23#23#22#23#23#22#23#22
+  +#22#22#22#22#22#22#22#22#22#21#21#21#21#24#24#24#28#28#29#29#28#28#29#28#28
+  +#29#28#28#24#22#23#21#22#21#21#21#22#20#21#21#21#20#21#21#20#20#20#20#20#20
+  +#20#19#20#19#20#20#19#19#20#19#19#19#19#19#18#18#18#19#19#18#18#18#19#18#18
+  +#18#16#16#17#14#15#15#14#14#15#15#14#15#14#14#15#15#15#16#15#15#15#20#19#20
+  +' '#31' ''&''***---0004448779:9;;;999$$$'#11#11#11#11#11#11#10#10#10#11#11#11
+  +#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9#9#9#9#10#9#9#9#9#9#9#9#8#9#9
+  +#9#9#9#8#8#8#8#8#8#8#8#8#8#9#8#8#8#8#8#8#8#7#7#8#18#18#20#8#7#7'000yyy000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000444666888:::<<<000////////////444999999999999998998998988988988988'
+  +'988888888888888888888888888888888888888888888887887877877877877877777777777'
+  +'777777777777777777777777777777777777888887887877988988988988999999999:::;;;'
+  +';;;;;;<<<===>>>??????@@@AAABBBCCCEEEFFEGGFHGGJIIJIILKKNMMONNQPPSRRTTTUUUWWW'
+  +'YYY[[[^^^___bbbdddfffiiikkkmmmqqqsssuuuxxxzzz}}}'#128#128#128#131#131#131
+  +#134#134#134#136#136#136#138#138#138#141#141#141#141#141#141#144#144#144#147
+  +#147#147#150#150#150#152#152#152#155#155#155#158#158#158#161#161#161#164#164
+  +#164#167#167#167#170#170#170#173#173#173#180#180#180#185#185#185#188#188#188
+  +#182#182#182#162#162#162#148#148#148#145#145#145#143#143#143#141#141#141#139
+  +#139#139#136#136#136#133#133#133#131#131#131'}}}zzzwwwtttrrrooommmkkkhhhf'
+  +'ffdddbbb```^^^]]][[[[[[ZZZYYYWWWVVVUUUUUUUUUUUUTTTTTTSSSSSSSSSSSSSSSSSSSSSS'
+  +'SSSSSSSSTTTUUUTTTUUUUUUUUUUUUTTTSSSSSSSSSQQQOOONNNLLLJJJHHHGGGlll'#158#158
+  +#158#180#180#180#174#174#175#171#171#171#168#168#168#166#166#166#163#163#163
+  +#160#160#160#157#158#158#154#154#154#151#151#152#148#148#149#148#148#148#148
+  +#148#148#146#146#145#143#142#142#140#139#139#137#136#136#134#134#134#131#131
+  +#131#128#128#128'}}|{zzwwwtttrrrpopllleedbaa```]]]^__^\][Z[YYXVVVSSSQQQOOOMN'
+  +'MLKLIIIGGGFFFDDCBAA@@@?>?>>=<;;;;;999888766777666555344121///../...---,,,#$'
+  +'####$$####$$$232===AAAEEEJJJ111'#31#31#31#30#31#30#30#31#31#31#30#30#30#30
+  +#30#30#30#30#30#30#30#30#30#30#30#30#29#29#29#29#29#29#29#29#29#29#29#29#28
+  +#29#29#28#28#28#28#28#28#28#28#28#28#27#28#28#28#28#28#28#27#28#27#28#28#28
+  +#27#27#27#27#27#27#27#27#27#27#26#27#26#27#26#26#26#26#26#26#26#26#26#26#26
+  +#26#26#25#25#26#25#25#25#26#25#25#25#25#24#25#25#28#29#29'$#$%$$''&&''''''##'
+  +'#'#25#24#25#24#24#25#24#25#24#24#24#24#24#24#24#29#29#29#28#29#28#28#28#28
+  +#28#29#28#28#28#27#26#27#26#26#26#25#26#26#26#25#26#26#25#25#25#26#26#26#26
+  +#26#26#26#25#26#26#25#25#26#26#25#26#25#25#25#26#25#25#24#25#24#25#25#25#25
+  +#24#25#25#25#25#24#24#24#24#23#24#23#23#24#23#23#24#22#23#23#23#22#23#22#22
+  +#22#22#22#22#22#22#22#22#22#24#24#23#28#28#28#28#28#28#29#28#28#28#28#28#23
+  +#22#23#21#22#21#22#21#21#21#22#21#21#21#21#21#21#21#21#20#20#20#20#19#20#19
+  +#20#20#19#20#20#19#19#19#18#19#19#19#19#18#19#19#18#18#18#18#18#18#16#17#17
+  +#15#15#15#15#14#15#14#15#16#14#14#16#17#17#17#27#27#28'$$$''''''+*+/..222776'
+  +'899;<<<<=('''''#15#14#14#11#11#11#11#11#11#11#11#11#11#11#11#11#10#11#10#11
+  +#11#11#10#10#10#10#10#10#9#10#9#10#10#10#10#10#9#9#10#9#10#9#9#9#9#9#9#9#9#9
+  +#9#9#9#9#8#9#8#8#9#9#8#9#8#9#8#8#8#8#8#8#8#8#20#20#20#7#8#8'000yyy0000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000444666888:::===...////////////7669999999999999999989989889889889889888'
+  +'888888888888888888888888888888888888888888878878878778778778778777777777777'
+  +'77777777777777777777777777777777888887887877877988988988888999999999:::;;;;'
+  +';;;;;<<<===>>>???@@@@@@BBBBBBCCCEEDFFEGFFHGGJIIKJJLKKNMMONNQPPSRRTTTUUUWWWY'
+  +'YY[[[^^^___bbbdddfffiiikkkmmmppprrruuuxxxzzz|||'#130#130#130#132#132#132
+  +#135#135#135#136#136#136#137#137#137#140#140#140#142#142#142#145#145#145#148
+  +#148#148#151#151#151#154#154#154#157#157#157#160#160#160#164#164#164#171#171
+  +#171#177#177#177#180#180#180#182#182#182#186#186#186#189#189#189#191#191#191
+  +#183#183#183#165#165#165#149#149#149#145#145#145#142#142#142#140#140#140#138
+  +#138#138#136#136#136#133#133#133#131#131#131#129#129#129'|||zzzwwwtttsssp'
+  +'ppooollljjjiiifffeeecccbbb``````___^^^\\\\\\[[[[[[ZZZZZZZZZZZZYYYYYYYYYYYYY'
+  +'YYYYYZZZZZZZZZZZZZZZYYYXXXXXXXXXWWWVVVTTTSSSQQQOOOLLLJJJPPPsss'#159#159#158
+  +#181#180#181#176#176#176#171#171#171#168#168#168#166#166#166#163#163#163#161
+  +#161#161#158#158#158#156#156#156#153#152#153#150#150#150#149#149#149#148#148
+  +#148#148#148#148#144#144#144#142#142#141#139#139#139#136#135#136#134#133#134
+  ,#130#130#130#128'|||yzywwwttusrsooolllhhhbba`__]\\[[[\\\[[[YXYWWVTSSQQQOOO'
+  +'NNNLLLJIJHHGFFFDDDCCCAA@@@>>>=<;;<;;:99888777656777765444333111//....--.,,,'
+  +'+*+%%%$#$##$#$##$#///:::???DDDIII666'#31#31#31#31#31#31#31#31#30#30#30#31#30
+  +#30#30#30#30#30#29#30#30#30#30#30#29#29#30#29#29#30#29#29#29#29#29#29#29#29
+  +#29#29#29#28#29#29#28#28#28#29#28#28#28#28#28#28#28#27#28#27#28#27#27#28#27
+  +#27#28#28#27#27#27#27#27#27#27#27#27#26#27#27#26#26#27#26#26#26#26#26#26#26
+  +#26#26#26#26#25#26#26#26#26#25#26#26#25#26#25#25#25#30#30#29'$#$%%$''&&''''('
+  +'   '#24#25#25#25#25#25#25#24#24#24#24#25#25#25#26#29#29#29#29#28#28#29#28#29
+  +#29#29#28#29#28#27#27#27#27#26#26#26#26#26#25#26#25#25#25#25#26#26#26#26#26
+  +#26#26#26#26#26#26#25#25#25#26#25#25#26#26#25#25#25#25#25#25#25#24#25#25#25
+  +#25#25#25#24#24#24#24#24#24#24#24#24#23#24#24#23#24#23#23#24#22#22#23#22#22
+  +#23#22#22#22#22#22#22#22#22#24#24#24#28#29#28#28#28#28#29#28#28#29#28#28#24
+  +#23#23#22#22#22#22#21#22#22#21#21#21#21#21#21#21#21#20#20#20#21#20#20#21#20
+  +#19#20#19#19#20#19#19#19#18#19#19#19#18#18#19#18#19#19#18#18#18#18#17#17#18
+  +#15#15#16#15#15#16#15#14#16#15#15#15#21#20#21'###&&&***/00444889<<<>>>/./'#18
+  +#18#18#12#12#11#12#12#12#12#11#11#11#11#11#11#11#11#11#10#10#11#10#10#10#10
+  +#10#11#11#10#10#10#10#10#10#10#10#10#10#9#9#10#10#9#10#9#10#10#10#9#9#9#9#9#9
+  +#9#9#9#9#9#8#8#8#8#8#8#8#8#8#8#8#8#8#9#8#8#8#8#20#20#20#8#8#8'000yyy00000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000111444666999;;;999...////////////77799999999999999999899899898898898898'
+  +'898888888888888888888888888888888888888888888788788787787787787787777777777'
+  +'7777777777777777777777777777777777777887887887877988988988988999999999:::;;'
+  +';;;;;;;<<<===>>>>>>???@@@@@@BBBBBBCCBEEDFFEGFFHGGJIIKJJLKKNMMPOOQPPSRRTTTUU'
+  +'UXXXYYY[[[^^^___bbbdddfffhhhjjjmmmooorrruuuwwwyyy|||'#129#129#129#131#131
+  +#131#132#132#132#133#133#133#136#136#136#138#138#138#142#142#142#144#144#144
+  +#147#147#147#151#151#151#154#154#154#162#162#162#168#168#168#171#171#171#174
+  +#174#174#177#177#177#180#180#180#184#184#184#186#186#186#188#188#188#190#190
+  +#190#188#188#188#179#179#179#166#166#166#152#152#152#144#144#144#142#142#142
+  +#140#140#140#138#138#138#136#136#136#134#134#134#132#132#132#130#130#130''
+  +'}}}{{{yyyxxxvvvtttrrrpppooommmllljjjiiihhhgggeeeeeedddcccccccccbbbaaaaaaaaa'
+  +'``````_______________^^^^^^]]]\\\[[[YYYYYYXXXVVVTTTRRRPPPNNN```'#133#133#133
+  +#170#170#170#182#182#182#176#176#176#171#171#171#169#169#168#166#166#166#163
+  +#164#163#161#161#161#158#158#158#156#156#156#153#154#154#151#151#151#149#149
+  +#150#150#150#150#150#150#149#146#147#147#144#144#144#141#141#140#138#138#138
+  +#135#134#134#133#131#132#130#129#129'}|}zzzwwwtttqqroookkkijifff___\\\[[Z'
+  +'XWXYYXZZYWWWTSTSSSPOONONLLLJJJHIIGFGDDECCCABA@@@?>><<<<<<::9988877666666655'
+  +'544644333222///.....--,,+++&&&$$$$#$"##$$#---999>>>BBBFFF;;;  '#31#31#31#31
+  +#31#31#31#30#31#30#30#30#30#30#30#31#30#30#30#30#30#30#30#30#29#30#30#30#29
+  +#30#29#30#29#30#29#29#29#29#29#28#29#29#29#29#28#29#28#28#29#28#28#29#28#28
+  +#28#28#28#28#27#28#28#28#27#28#27#27#27#27#27#28#27#27#27#27#27#27#26#27#27
+  +#27#26#27#26#26#26#26#26#26#26#26#26#26#26#26#26#26#26#25#26#25#25#25#25'   '
+  +'$$$%%%''''&((('#30#30#31#25#25#25#25#25#25#25#24#25#25#25#25#26#25#25#30#29
+  +#29#29#29#29#29#29#29#29#29#28#28#28#28#28#28#27#27#26#26#26#26#26#25#26#26
+  +#26#26#26#26#26#26#27#27#26#26#26#26#26#26#26#26#26#26#25#26#26#25#25#25#25
+  +#25#26#25#25#25#25#25#25#24#25#25#24#25#24#24#24#25#25#24#24#24#24#23#23#23
+  +#23#24#23#23#23#22#22#23#22#22#23#22#22#22#22#22#24#23#24#29#29#29#28#28#29
+  +#28#28#28#28#28#28#24#23#22#22#21#22#22#22#22#21#21#21#21#21#21#21#21#21#21
+  +#21#21#21#20#20#21#19#19#20#19#19#20#20#20#20#20#19#19#19#19#18#19#19#19#19
+  +#18#19#19#18#18#17#17#15#16#17#15#15#16#15#15#15#15#16#17#21#21#21'%%%)*)...'
+  +'444:::==>333'#25#26#25#12#12#12#12#12#12#11#11#12#11#11#12#11#11#11#11#11#11
+  +#11#11#11#11#11#11#11#11#10#11#11#11#11#11#11#11#10#10#10#10#10#10#10#10#9#10
+  +#10#9#9#10#10#9#10#10#9#10#9#9#9#9#9#9#9#9#9#9#9#9#8#8#9#9#9#9#8#8#8#9#9#8#8
+  +#8#9#20#20#20#8#8#8'000yyy00000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000222555777999;;;888...////////////99999'
+  +'999999999999999999899898898898898898888888888888888888888888888888888888888'
+  +'888888788787787787787787777777777777777777777777777777777777777777777788888'
+  +'7887877877988988988888999999999:::;;;;;;;;;<<<===>>>>>>???@@@AAABBBBBBDDCEE'
+  +'DFEEGFFIHHJIIKJJMLLNMMPOOQPPRRRTTTUUUWWWYYY[[[]]]___bbbcccfffhhhjjjmmmoooqq'
+  +'qtttvvvxxx{{{}}}'#128#128#128#128#128#128#129#129#129#132#132#132#135#135
+  +#135#137#137#137#140#140#140#146#146#146#152#152#152#158#158#158#162#162#162
+  ,#165#165#165#169#169#169#173#173#173#176#176#176#179#179#179#182#182#182#184
+  +#184#184#184#184#184#177#177#177#174#174#174#177#177#177#179#179#179#180#180
+  +#180#172#172#172#161#161#161#148#148#148#142#142#142#140#140#140#138#138#138
+  +#136#136#136#134#134#134#132#132#132#131#131#131#129#129#129'~~~}}}{{{yyyxxx'
+  +'vvvtttsssrrrpppooonnnllllllkkkjjjiiihhhhhhgggfffeeeeeeeeeddddddcccbbbbbbaaa'
+  +'```______]]]\\\[[[YYYXXXVVVTTT\\\xxx'#153#153#153#181#181#181#182#182#182
+  +#177#177#177#171#171#171#169#169#169#166#166#166#163#164#164#162#162#162#159
+  +#159#159#157#157#157#154#154#155#151#151#151#149#149#149#150#150#149#149#150
+  +#149#147#147#147#145#144#145#143#142#143#140#140#140#137#137#137#134#134#134
+  +#132#132#131#129#129#129'~~{{{yxxvvvsssqqqooolkljiigggddd\\\ZZYXXWVUUVVVWWW'
+  +'UUTRSQQPOONNMLMJJJIIIGGGFFFDDDBAAAAA???>>><<<<<;998888777766555544655443433'
+  +'211///...--,,++,++''''($$$$#$"##$$#())888===AAAEEEDDD'#31#31#31#31' '#31#31
+  +#31#31#30#31#31#31#31#31#30#30#30#30#30#30#30#30#30#30#30#30#30#30#29#29#30
+  +#30#29#30#29#30#29#30#29#29#29#29#29#29#28#29#28#28#28#29#28#28#29#29#28#28
+  +#28#28#28#28#28#27#28#27#28#27#27#28#27#28#27#27#27#27#27#27#27#27#26#27#27
+  +#26#27#26#26#26#26#26#26#26#26#26#26#26#26#25#26#26#26#26#26#25#26#26'##"$$$'
+  +'&&&&''&(()'#27#28#27#25#25#25#25#25#25#25#25#25#24#25#25#27#26#27#29#29#30
+  +#29#29#29#29#29#29#29#29#28#28#29#28#28#28#27#27#26#27#26#26#27#26#26#26#27
+  +#27#27#27#26#26#26#27#26#26#26#27#26#26#26#26#26#26#26#26#26#26#25#26#25#25
+  +#25#25#26#25#25#25#25#24#24#24#25#24#25#25#25#24#25#25#24#24#24#24#24#24#23
+  +#24#24#23#23#23#23#24#22#22#23#22#22#23#22#22#25#24#24#29#29#29#29#29#29#28
+  +#28#29#29#28#29#24#23#23#22#22#22#22#22#22#21#22#21#21#22#22#22#21#21#21#21
+  +#21#21#20#20#21#20#20#21#20#19#20#19#20#20#19#19#19#19#19#19#19#19#19#19#19
+  +#18#19#19#17#17#18#16#15#16#15#15#16#15#15#16#16#16#17#24#24#24'''''(+,,1218'
+  +'88;;; !!'#13#13#12#12#12#12#13#12#12#12#12#12#12#11#11#12#11#11#12#12#11#12
+  +#12#11#11#11#11#11#11#11#11#11#11#11#11#10#11#11#10#11#11#11#11#10#10#10#10
+  +#10#11#10#10#10#10#10#9#10#10#10#9#10#9#9#9#9#9#9#9#9#9#9#9#9#9#9#8#9#9#9#9#9
+  +#9#9#8#9#9#8#8#20#20#20#8#8#8'000yyy0000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000222555777999<<<656//////////'
+  +'//1119999999999999999999999989989889889889889889888888888888888888888888888'
+  +'888888888888888878878878778778778778777777777777777777777777777777777777777'
+  +'77777777887887887877877988988888888999999999:::;;;;;;;;;<<<===>>>??????@@@A'
+  +'AABBBBBBDDCEDDFEEGFFIHHJIIKJJMLLNMMPOOQPPRRRTTTUUUWWWYYY[[[]]]___aaaccceeeg'
+  +'ggjjjlllnnnqqqsssuuuxxxzzz||||||}}}'#128#128#128#130#130#130#133#133#133#140
+  +#140#141#149#149#149#153#153#153#156#156#156#160#160#160#164#164#164#168#168
+  +#168#171#171#171#174#174#174#177#177#177#178#178#178#170#170#170#165#165#165
+  +#167#167#167#169#169#169#172#172#172#173#173#173#176#176#176#177#177#177#179
+  +#179#179#179#179#179#171#171#171#160#160#160#146#146#146#139#139#139#138#138
+  +#138#136#136#136#134#134#134#133#133#133#131#131#131#129#129#129'~~~|||{{'
+  +'{yyywwwvvvtttrrrrrrpppooonnnmmmlllkkkjjjjjjiiihhhhhhggggggfffeeedddccccccbb'
+  +'b```______]]][[[YYYbbb|||'#151#151#151#177#177#177#182#183#183#181#181#181
+  +#177#177#177#171#170#171#169#169#169#166#167#166#164#165#164#161#161#161#159
+  +#159#158#157#157#157#155#155#155#152#152#152#149#149#149#150#150#150#151#150
+  +#150#148#148#148#145#146#146#143#143#143#141#141#141#139#138#139#135#135#135
+  +#133#133#133#130#130#130''#128'}}}zzzxwxvuvssspppnnnkkkihifgfccdaaaZZZWWWV'
+  +'VVSRSTTTUUUSSRQQPOOOMLMKKKJIJGHGFFFDDDABBAAA@???>><<<<<;999:998778766655444'
+  +'44545443432222/..---,++,++,++)(($$$#####"######778:::???AAAEEE&'''' '#31' '
+  +#31#31#31#31#31#31#31#30#31#30#31#31#30#31#30#30#30#31#30#30#30#30#30#30#29
+  +#30#29#29#30#30#29#30#29#30#29#30#29#29#29#29#29#29#29#29#29#28#29#29#29#28
+  +#29#28#28#28#28#28#28#28#28#28#27#28#27#28#28#27#27#28#27#28#27#28#27#27#27
+  +#27#26#27#27#26#27#26#26#26#26#26#26#26#26#26#26#26#26#25#26#26#28#28#28'##$'
+  +'$%$&&&(''''''(('#25#25#25#26#25#25#25#25#25#25#25#25#25#25#25#28#27#28#30#29
+  +#29#29#30#29#29#29#29#29#29#29#29#28#28#28#28#27#27#26#26#26#26#27#26#26#26
+  +#27#27#27#27#27#27#27#27#26#26#26#27#26#27#26#26#27#26#26#26#26#26#25#26#26
+  +#25#25#25#25#25#26#25#25#25#25#25#25#25#24#25#24#24#24#24#25#25#24#24#25#24
+  +#24#24#24#23#24#24#23#24#23#23#23#22#23#23#23#22#26#26#25#29#28#29#29#29#28
+  +#28#28#29#28#28#28#23#22#22#22#22#23#22#22#22#22#22#21#22#22#21#21#21#21#22
+  +#21#21#21#20#20#21#20#20#21#20#19#20#19#19#20#19#19#20#19#19#19#19#19#19#19
+  +#19#19#19#19#17#18#18#16#16#17#15#15#16#15#15#16#16#16#17#23#24#24'))*../445'
+  +';;;333'#13#12#13#12#12#13#12#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12
+  +#12#12#11#12#12#12#11#12#11#11#11#11#11#10#11#11#11#11#11#11#10#11#10#11#11
+  +#10#10#10#10#10#10#10#10#10#9#10#10#10#10#10#10#10#10#9#10#9#10#9#9#10#9#9#9
+  ,#9#9#8#9#9#9#9#8#8#8#8#8#8#9#22#20#22#8#9#8'000yyy00000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000000000333555777:::<<'
+  +'<333////////////22299999999999999999999999899899898898898898898888888888888'
+  +'888888888888888888888888888888788788787787787787787777777777777777777765522'
+  +'2444666777777777777777887887887877877988988988888999999999::::::;;;;;;;;;<<'
+  +'<===>>>??????@@@AAABBBBBBDDCEDDFEEGFFIHHJIIKJJMLLNMMPOOPPPRRRTTTUUUWWWYYY[['
+  +'[]]]___aaabbbeeegggjjjlllmmmppprrruuuwwwyyyxxxzzz}}}'#130#130#130#138#138
+  +#138#146#146#146#150#150#150#155#155#155#159#159#159#163#163#163#167#167#167
+  +#170#170#170#170#170#170#164#164#164#157#157#157#158#158#158#160#160#160#162
+  +#162#162#165#165#165#167#167#167#169#169#169#170#170#170#172#172#172#174#174
+  +#174#176#176#176#177#177#177#180#180#180#183#183#183#175#175#175#163#163#163
+  +#151#151#151#140#140#140#136#136#136#134#134#134#133#133#133#132#132#132#130
+  +#130#130#129#129#129'}}}|||yyyxxxvvvuuutttrrrqqqqqqpppnnnnnnmmmllllllkkkj'
+  +'jjiiiiiihhhgggeeedddcccaaa```dddttt'#138#138#138#159#159#159#179#179#179#182
+  +#182#182#181#181#181#180#180#180#176#176#176#170#170#170#167#167#167#167#167
+  +#166#164#165#164#161#161#162#160#159#159#156#156#156#155#155#155#152#152#152
+  +#150#149#150#149#150#150#151#151#151#149#149#149#147#147#147#144#144#144#142
+  +#142#142#139#139#139#137#137#137#134#135#135#132#132#132#129#130#129'~}}|z'
+  +'zzxwwvuurrrpoommmkkkiiifggcddabb___XXWUUUSSSQQQQRQSSSQQQOOONNMLLKKJJHGHFFFD'
+  +'EDBBBAAA@?@>?><<<=<<:;::::887776665554433333444444343211..----,,,+,,+,+***$'
+  +'$$######"!"###000:9:===@@@CCC666'#31'  '#31#31' '#31#31#31#31#31#30#30#31#31
+  +#30#31#30#31#31#31#30#31#30#30#30#30#30#30#30#30#30#30#29#29#30#30#29#30#30
+  +#29#30#29#29#29#28#29#29#29#28#28#28#29#28#28#29#28#28#28#28#28#28#28#28#28
+  +#28#28#27#28#27#27#27#28#27#28#27#27#28#27#27#27#27#26#27#27#27#26#27#27#26
+  +#26#27#26#26#27#26#26#26#26#31#31#31'$$#%&%(''(()(%%%'#26#25#25#26#25#26#25
+  +#25#25#25#25#25#25#25#25#29#29#29#30#30#30#29#30#29#29#29#30#29#29#29#29#28
+  +#28#28#27#27#28#26#27#27#26#27#27#26#26#28#27#27#26#27#27#27#27#27#27#27#27
+  +#27#27#26#26#26#27#26#26#26#26#26#26#26#26#25#26#26#26#25#25#25#25#25#25#25
+  +#24#25#25#24#25#25#25#25#24#24#24#24#24#24#24#24#24#24#24#23#24#24#23#24#23
+  +#23#23#23#23#26#26#25#30#30#29#29#29#29#28#29#29#29#29#28#23#22#22#22#22#22
+  +#22#22#22#22#22#22#22#21#22#22#21#21#21#21#21#21#21#21#21#20#20#21#19#20#21
+  +#20#19#20#20#20#20#20#20#19#19#19#19#19#19#18#18#19#16#17#17#16#16#16#16#15
+  +#16#15#15#16#16#16#18#27#28#28'+*+211666>?>...'#13#13#13#13#13#13#13#12#13#13
+  +#12#13#13#12#12#12#13#12#12#12#12#12#11#12#11#12#12#12#12#12#11#11#12#11#11
+  +#11#11#11#11#10#11#11#10#11#11#11#11#11#11#11#11#11#10#10#10#10#10#10#10#10
+  +#10#10#10#10#10#10#10#10#9#9#9#10#9#9#9#9#9#9#9#9#9#8#9#9#9#9#8#8#8#9#20#22
+  +#20#8#8#8'000yyy000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000444666888:::<<<111////////////444999999999999999'
+  +'999999999998998988988988988988888888888888888888888888888888888888888888887'
+  +'887877877877877877777777777777777776000////////////111333444555777887887877'
+  +'877877988988888888999999999:::;;;;;;;;;;;;===>>>>>>??????@@@AAABBBCCBDCCEDD'
+  +'FEEGFFIHHJIILKKMLLNMMOOOPPPRRRTTTUUUWWWYYY[[[\\\___```bbbeeefffiiikkkmmmooo'
+  +'qqqtttuuutttvvvyyy{{{~~~'#138#138#138#144#144#144#148#148#148#153#153#153
+  +#158#158#158#162#162#162#163#163#163#156#156#156#148#148#148#149#149#149#151
+  +#151#151#153#153#153#155#155#155#157#157#157#160#160#160#161#161#161#164#164
+  +#164#165#165#165#167#167#167#169#169#169#171#171#171#173#173#173#174#174#174
+  +#176#176#176#178#178#178#182#182#182#185#185#185#182#182#182#173#173#173#164
+  +#164#164#154#153#154#143#143#143#135#135#135#132#132#132#129#129#129#128#128
+  +#128'}}}|||zzzxxxwwwvvvtttssssssqqqpppoooooonnnmmmlllkkkiiiiiihhhkkkttt'
+  +#131#131#131#144#144#144#161#161#161#176#176#176#183#183#183#182#182#182#181
+  +#181#181#180#180#180#178#178#178#175#175#175#170#170#170#166#166#166#165#165
+  +#165#163#163#163#162#162#161#159#158#159#156#156#157#154#154#154#152#152#152
+  +#150#150#150#149#149#149#151#151#150#150#149#149#147#147#147#145#144#145#143
+  +#143#143#140#140#140#138#138#138#136#136#136#133#133#133#131#131#131#128#128
+  +#128'~~}|{{yyxvvvtssrrrooomlmkkjhihfffcccbbb___\]\WWWRRRQQQOONNNNRQRPPONNNKK'
+  +'JKKJIIHFFFFEECBBAAB@@@???===<<<;<;;::989888666664444443322444343434232/./--'
+  +',,,,+,,*+++++##$###"""!!"###++,8999:9===@@@@@@"!" '#31' '#31#31' '#31#31#31
+  +#31#31#31#30#30#31#31#30#31#30#31#30#30#30#30#30#30#31#30#30#30#29#30#30#30
+  +#30#30#29#29#30#29#29#30#29#29#29#29#28#29#28#29#29#28#28#29#29#28#28#28#28
+  +#28#28#28#28#28#28#28#28#27#28#27#28#27#27#27#27#28#28#27#27#27#27#27#27#27
+  ,#27#26#26#27#26#27#27#27#26#27#27#27'$$$$$$&&&''('')))'#31#31#31#26#25#26#26
+  +#25#26#25#25#26#25#25#25#25#25#25#30#30#30#30#30#30#29#30#30#29#30#29#29#30
+  +#29#28#28#28#28#28#28#28#27#27#28#26#27#27#27#27#27#27#27#28#27#28#27#27#27
+  +#26#27#27#27#27#26#26#27#27#26#27#26#26#26#26#26#26#26#26#25#25#25#25#26#25
+  +#25#25#26#25#25#25#25#25#25#25#25#24#25#25#25#24#24#24#24#24#24#24#24#24#24
+  +#23#23#24#23#24#23#23#28#28#27#29#29#29#29#29#29#29#29#29#28#27#28#23#23#23
+  +#22#22#23#22#22#22#22#23#22#21#22#22#21#21#21#21#21#21#21#21#21#21#20#20#21
+  +#20#20#21#20#20#20#20#20#20#20#20#19#20#20#19#19#19#19#19#19#17#17#17#16#16
+  +#17#16#15#17#15#16#17#16#17#17#29#29#29',,+211989???(()'#13#13#13#13#13#13#13
+  +#13#13#12#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12
+  +#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#10#10#10#10#10#10#10#10#10#11
+  +#10#10#10#10#10#10#10#10#10#9#10#10#9#9#10#9#10#10#9#9#9#9#10#9#9#9#9#8#9#9#9
+  +#9#9#22#20#20#9#8#8'000yyy00000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000444666888:::===...////////////55599999'
+  +'999999999999999999999899899898898898898898888888888888888888888888888888888'
+  +'8888888887887887877877877877877777777777777000/////////////////////////////'
+  +'/111222444444655655888888888888999999999:::;;;;;;;;;<<<===>>>>>>???@@@@@@BB'
+  +'ABBBCBBDCCEDDFEEGFFIHHJIIKJJMLLNMMOOOPPPRRRTTTTTTWWWXXXZZZ\\\^^^```bbbdddff'
+  +'fhhhjjjlllnnnqqqsssqqqsssuuuxxx{{{'#135#135#135#142#142#142#147#147#147#151
+  +#151#151#156#156#156#149#149#149#140#140#140#140#140#140#143#143#143#144#144
+  +#144#147#147#147#148#148#148#150#150#150#153#153#153#155#155#155#157#157#157
+  +#158#158#158#161#161#161#162#162#162#164#164#164#165#165#165#167#167#167#169
+  +#169#169#170#170#170#172#172#172#173#173#173#175#175#175#180#180#180#183#183
+  +#183#184#184#184#184#184#184#185#185#185#182#182#182#175#175#174#167#167#167
+  +#160#160#160#154#154#154#147#147#147#140#140#140#134#134#134#129#129#129'|||'
+  +'{{{zzzxxxwwwvvvvvvtttyyy}}}'#130#130#130#136#136#136#145#145#145#152#152#152
+  +#160#160#160#168#168#168#174#173#174#181#181#181#183#183#183#182#182#182#180
+  +#181#180#180#180#180#178#178#178#177#177#177#176#176#176#174#173#174#169#169
+  +#169#165#164#164#164#164#163#162#162#162#160#159#160#158#157#158#156#156#155
+  +#154#154#154#152#153#152#149#149#150#148#148#149#150#150#150#150#149#149#148
+  +#147#147#146#146#146#143#143#143#140#140#140#138#138#138#136#136#136#133#133
+  +#134#132#132#132#129#129#129'}}}zz{yxxvvuttsrqqonomlljjjgggeeecccaaa___]]'
+  +'][Z[TTTQQPONNMMMLLLPPONNOKKKKKKIIHGFFFEDCCBCABA@@@@@======<<<:;:99998888966'
+  +'6454554433422533444333221...-,--,-++++++++*''''&"""""""""###%%%544777;;;>>>'
+  +'@@@222  '#31#31#31'   '#31' '#31#31#31#31#31#31#30#31#30#30#31#30#30#30#30
+  +#30#31#30#30#30#30#30#30#30#30#30#29#29#29#30#30#29#29#29#30#29#29#29#29#29
+  +#29#29#29#29#29#28#28#28#29#29#28#28#28#28#28#28#28#28#28#28#27#27#27#28#28
+  +#27#27#27#27#27#27#27#27#27#27#27#27#27#26#27#27#27#26#31#31#31'$$%%%%&''''('
+  +'((((('#26#25#26#26#25#26#26#25#25#26#25#26#26#25#25#28#27#28#30#30#30#30#30
+  +#30#29#29#30#30#30#29#30#30#29#28#29#28#28#28#28#28#28#28#27#27#27#27#28#27
+  +#28#27#27#27#27#27#27#27#28#27#27#27#26#27#27#27#27#27#27#26#27#26#26#26#26
+  +#26#26#26#26#25#26#26#25#26#25#25#25#25#26#25#25#25#25#25#25#25#25#25#24#25
+  +#25#25#24#24#24#25#24#24#24#24#24#24#23#24#24#23#27#27#27#29#29#28#29#29#28
+  +#29#29#29#27#27#27#23#22#22#22#22#23#22#23#22#22#22#22#22#22#22#22#22#22#22
+  +#21#21#21#21#21#22#20#20#21#20#20#21#20#20#21#20#20#20#19#20#20#20#19#19#19
+  +#19#19#19#19#18#18#17#15#16#16#16#15#17#16#15#17#17#17#18#30#30#30',,,222989'
+  +'???(''('#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#13#12#12#12#12#12
+  +#12#12#12#12#12#12#12#12#11#12#12#12#12#12#11#12#12#11#11#11#11#11#11#11#11
+  +#11#11#11#11#10#10#10#10#11#11#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10
+  +#10#10#9#10#9#9#9#9#10#9#9#9#9#9#9#9#9#8#22#22#20#8#9#9'000yyy00000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000011144'
+  +'4666999;;;:::...////////////77699999999999999999999999999899899898898898898'
+  +'898888888888888888888888888888888888888888888888788787787787787787777777777'
+  +'7111////////////////////////////////////00000000000000011111111122244444444'
+  +'4999:::;;;;;;;;;<<<===>>>>>>???@@@@@@BBABBBCBBEDDEDDFEEGFFIHHJIIKJJMLLMMMNN'
+  +'NPPPRRRSSSTTTWWWXXXZZZ[[[^^^___bbbccceeegggjjjkkkmmmnnnmmmpppqqqtttwww'#133
+  +#133#133#140#140#140#144#144#144#150#150#150#154#154#154#136#136#136#133#133
+  +#133#136#136#136#138#138#138#140#140#140#142#142#142#144#144#144#146#146#146
+  +#148#148#148#150#150#150#152#152#152#153#153#153#155#155#155#157#157#157#159
+  +#159#159#161#161#161#162#162#162#164#164#164#165#165#165#167#167#167#168#168
+  ,#168#169#169#169#171#171#171#173#173#173#177#177#177#180#180#180#181#181#181
+  +#182#182#182#182#182#182#183#183#183#184#184#184#184#184#184#186#185#186#185
+  +#185#186#186#185#185#183#183#183#181#181#181#181#181#181#181#181#181#180#181
+  +#181#181#181#181#181#181#181#182#182#182#187#187#187#189#189#190#191#191#190
+  +#191#191#191#192#192#192#192#192#192#191#191#191#183#184#184#176#176#176#176
+  +#176#176#177#177#177#177#177#178#177#177#177#175#175#175#175#174#174#173#173
+  +#173#172#172#172#168#167#168#163#162#163#162#162#162#160#160#160#158#158#158
+  +#157#157#157#155#155#155#153#153#153#150#151#151#149#149#148#148#148#148#149
+  +#148#149#149#150#149#147#147#147#146#145#145#144#143#143#141#141#141#138#138
+  +#138#136#136#136#135#134#135#132#132#132#131#131#131#128#128#128'~~~|||yyyww'
+  +'vuutsrrpponnnlkkjiigggfedcbc`a`___\\\[Z[WWXSSSNNOMMMJJJHHHOONKLKJJKIIJGHGGF'
+  +'EDDCBCABA@A??>===>=<<<;;;:::9999986675555554333432214333332221111/0--,-,-++'
+  +',+++++*())""""""""""""##",,-776888;;;===>>>&&% '#31' '#31#31#31' '#31#31#31
+  +#31#31#31#31#30#30#31#31#30#30#31#31#31#30#30#30#30#30#30#30#30#30#30#29#30
+  +#30#30#30#30#29#30#30#29#29#30#29#29#29#29#29#29#29#29#28#28#28#28#29#28#29
+  +#28#28#28#28#28#28#27#28#28#27#28#28#27#28#28#27#28#28#28#27#27#26#27#27#27
+  +#26#26#28#28#29'$$$%%%&&&(''()))!"!'#26#25#26#26#25#27#26#25#26#26#25#26#25
+  +#25#26#28#28#28#31#30#30#30#30#30#30#30#30#29#30#30#30#29#30#28#28#29#28#28
+  +#28#28#29#28#28#28#28#28#27#28#28#27#28#28#27#28#27#27#27#27#27#27#27#27#27
+  +#27#27#27#26#27#27#26#26#27#26#27#26#26#25#26#26#26#26#26#25#25#25#26#26#26
+  +#26#25#25#25#25#25#25#25#25#25#25#25#25#25#24#25#25#24#24#25#24#24#24#24#24
+  +#23#29#29#29#29#29#29#30#30#28#29#29#28#27#26#26#22#23#23#23#22#23#22#23#23
+  +#23#22#23#22#22#22#22#22#22#22#22#22#21#21#21#22#21#21#21#20#21#21#20#20#21
+  +#20#20#20#19#20#20#20#20#20#19#19#19#19#19#16#16#17#16#16#17#15#16#16#15#16
+  +#16#17#17#19'###--,222999?>?'#30#30#30#13#14#13#14#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#12#12#13#13#12#13#12#13#12#12#12#12#11#12#12#12#11#11#12#11
+  +#12#11#11#12#11#11#12#11#11#11#11#11#11#11#11#11#10#11#11#10#10#10#10#10#10
+  +#10#11#10#10#10#10#10#10#10#10#10#9#10#10#10#9#9#9#9#9#9#9#9#9#8#9#9#22#22#22
+  +#8#9#9'000yyy000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000222444777999;;;:::...////////////999999999999999999999'
+  +'999999999998998988988988988988888888888888888888888888888888888888888888887'
+  +'887877877877877877877777222//////////////////////////////////////////000000'
+  +'000000000111111111111222222666::::::;;;;;;;;;<<<===>>>>>>???@@@@@?BBABBBCBB'
+  +'EDDEDDFEEGFFIHHJIIKJJKKKMMMNNNPPPQQQSSSTTTVVVXXXYYY[[[]]]___```bbbeeefffiii'
+  +'jjjjjjjjjlllooopppsss'#132#132#132#136#136#136#142#142#142#148#148#148#153
+  +#153#153#128#128#128#130#130#130#132#132#132#133#133#133#136#136#136#138#138
+  +#138#140#140#140#141#141#141#143#143#143#145#145#145#148#148#148#148#148#148
+  +#150#150#150#153#153#153#154#154#154#156#156#156#157#157#157#159#159#159#160
+  +#160#160#162#162#162#163#163#163#165#165#165#165#165#165#167#167#167#168#168
+  +#168#169#169#169#173#173#173#177#177#177#178#178#178#178#178#178#178#178#178
+  +#179#179#179#180#180#180#180#180#180#181#181#181#181#181#181#181#181#181#177
+  +#177#178#176#176#176#176#176#176#177#177#176#178#178#178#182#183#183#185#185
+  +#185#187#186#186#188#188#187#188#189#188#190#190#190#189#189#189#180#180#180
+  +#171#171#171#171#171#171#170#170#170#170#171#171#171#172#171#171#171#171#170
+  +#170#170#169#169#169#168#168#168#161#161#161#160#160#160#157#158#158#157#157
+  +#157#155#155#155#153#153#154#152#152#152#151#150#150#148#148#148#146#146#146
+  +#148#148#148#148#148#148#147#147#146#145#145#144#144#143#142#141#141#141#139
+  +#139#138#137#136#136#135#135#135#133#133#133#131#131#130#128#128#129'~~|||y'
+  +'yyxxxuuutttrrrppomnmjjjihhgggecdcbb``_]^][[[ZZZXXXVVVQRRMLMKKJHHIGGGJJJKKKJ'
+  +'JIGGGFGGDDDCCBBBAAA@?==?=>=<=;;<:::9998898876656554444443322321123232221110'
+  +'11-.-,,+,,,++++++**)$$$#"##"#""#"""$$$4447779::;;<<<<777    '#31' '#31' '#31
+  +#31#31#31#31#31#31#31#31#31#31#30#31#30#31#30#30#30#30#31#30#31#30#30#30#30
+  +#30#30#30#30#29#30#29#30#30#29#30#29#29#29#29#29#29#29#29#29#28#28#29#28#28
+  +#29#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#27#27#28#27#27#27
+  +#28#28#28'!""%%$&&&''''''))))))'#26#26#27#26#26#27#26#25#26#26#25#26#26#25#26
+  +#25#26#25#31#30#31#31#30#31#31#30#30#30#30#30#30#29#30#29#30#29#29#28#29#28
+  +#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#28#27#27#28#27#27#27#27#27
+  +#27#27#26#27#27#26#27#26#27#26#26#26#26#26#26#26#26#26#26#26#26#25#25#26#26
+  +#25#26#26#25#26#25#25#25#25#25#25#25#25#25#25#25#25#24#25#24#24#24#25#24#24
+  +#24#24#29#29#29#30#28#29#29#28#28#29#30#28#26#26#26#23#23#23#23#23#23#23#23
+  +#23#22#23#22#23#22#22#22#22#22#22#22#22#22#21#21#22#21#21#21#20#21#22#20#20
+  +#21#21#20#20#20#20#20#19#20#19#20#20#19#20#19#16#17#17#16#16#17#16#16#17#16
+  ,#16#17#17#17#18'##$,,,222777<<<'#26#26#25#13#14#13#13#14#13#13#13#13#13#13#13
+  +#13#13#13#12#13#12#12#13#13#12#13#12#12#12#12#13#12#12#11#11#12#12#12#11#11
+  +#12#12#11#12#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#10#11#10#11#10#10
+  +#10#10#10#10#10#10#11#10#10#10#9#10#10#10#9#10#9#10#9#10#9#9#9#9#10#9#9#9#22
+  +#22#22#9#8#8'000yyy000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000222555777999<<<656////////////000999999999999999'
+  +'999999999999999998998998988988988988988888888888888888888888888888888888888'
+  +'888887887887877877877877877323/////////////////////////////////////////////'
+  +'000000000000000000111111111111222222988:::;;;;;;;;;;;;<<<===>>>>>>???@@?@@?'
+  +'BBABBBCBBEDDEDDFEEGFFIHHJIIKJJKKKMMMNNNPPPQQQRRRTTTVVVXXXYYY[[[\\\^^^```bbb'
+  +'dddfffggghhhhhhiiikkkmmmqqq'#130#130#130#134#134#134#140#140#140#145#145#145
+  +#149#149#149'|||~~~'#128#128#128#129#129#129#132#132#132#133#133#133#136#136
+  +#136#137#137#137#139#139#139#140#140#140#143#143#143#144#144#144#146#146#146
+  +#148#148#148#149#149#149#151#151#151#153#153#153#154#154#154#155#155#155#157
+  +#157#157#157#157#157#159#159#159#160#160#160#161#161#161#162#162#162#164#164
+  +#164#165#165#165#166#166#166#170#170#170#173#173#173#174#174#174#175#175#175
+  +#176#176#176#176#176#176#176#176#176#176#177#176#176#176#176#177#176#176#177
+  +#177#177#173#173#174#173#173#173#179#179#179#180#180#180#182#182#182#184#184
+  +#184#184#184#184#187#186#187#187#187#187#174#175#174#167#167#167#166#166#166
+  +#165#165#165#165#165#165#165#165#165#166#166#166#165#165#165#164#164#164#164
+  +#164#164#162#162#162#155#155#155#155#155#155#153#153#153#152#152#152#151#150
+  +#150#148#149#148#147#147#147#145#145#145#146#146#146#147#147#147#147#147#147
+  +#144#144#144#143#142#142#141#141#141#139#139#139#137#137#136#135#135#135#133
+  +#132#132#131#131#131#129#129#129'~|||{z{yyywvwuuurrrpppnnnlmljkjihgfffdccb'
+  +'bb`__^]^[[[YZYWWWVVVSTTRRQJKKHHHHHGEFEHHGJJIGGGFFGEDEDDCBBBAA@?>>??=>==<<;;'
+  +'::999999878656665554444333332221121232111111111.-.,,,,,,+++******''&''##"""'
+  +'"#"#!!!""",--545787889999:::000 '#31#31#31' '#31#31' '#31#31#31#31#31#31#31
+  +#30#31#31#31#31#30#30#30#30#31#30#31#30#30#30#30#30#30#30#30#30#30#29#30#30
+  +#30#30#29#29#29#29#29#29#29#29#29#29#28#29#29#29#29#29#29#29#29#28#29#28#28
+  +#29#28#27#28#27#28#28#27#28#28#27#27#28#27#27#27'!"!%$%&%%''''''(((***"""'#26
+  +#26#27#26#25#27#26#25#27#26#25#26#26#25#26#28#28#28#31#30#30#30#31#31#30#30
+  +#31#31#30#30#30#30#30#29#29#29#28#29#29#28#29#29#29#28#28#28#28#28#29#28#28
+  +#29#27#28#28#27#28#28#28#28#28#27#27#27#27#27#27#27#27#27#27#26#26#26#27#27
+  +#26#27#26#26#27#26#26#26#26#26#26#25#26#26#26#25#26#25#25#26#25#25#25#25#25
+  +#25#25#25#24#25#25#25#25#25#24#25#25#25#26#26#25#30#29#29#29#28#29#29#28#28
+  +#30#28#28#24#24#24#23#24#23#23#23#23#22#23#23#23#23#23#22#23#23#23#22#22#22
+  +#22#22#22#22#22#22#21#21#22#21#21#21#20#20#21#20#21#21#20#20#20#20#20#20#19
+  +#20#19#19#19#17#17#17#16#16#17#16#16#17#16#16#17#18#18#19'''(''+++000444999'
+  +#20#20#20#14#14#13#14#13#13#14#13#14#14#13#13#13#13#13#12#12#13#13#13#13#13
+  +#13#13#12#12#12#13#13#12#12#12#12#12#12#12#11#12#12#11#12#12#12#12#11#12#11
+  +#11#11#11#11#11#11#11#11#11#11#11#11#10#11#10#10#11#10#10#10#10#10#10#10#10
+  +#10#10#10#9#10#9#10#10#10#10#10#9#9#9#9#10#9#10#22#22#22#9#9#9'000yyy0000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00333555777:::<<<444////////////1119999999999999999999999999999999989989989'
+  +'889889889889888888888888888888888888888888888888888888888878878778778778774'
+  +'44////////////000000333===989555222000000000000//////0000000000000001111111'
+  +'11111111222655999:::;;;;;;;;;;;;<<<===>>>>>>???@@?@@?BAABBBCBBDCCEDDFEEGFFI'
+  +'HHJIIJJJKKKMMMMMMPPPPPPRRRTTTUUUWWWYYYZZZ[[[^^^___aaabbbeeeddddddfffhhhkkkq'
+  +'qq'#132#132#132#138#138#138#143#143#143#142#142#142'xxxzzz|||~~~'#128#128
+  +#128#129#129#129#131#131#131#133#133#133#135#135#135#136#136#136#138#138#138
+  +#140#140#140#141#141#141#143#143#143#144#144#144#146#146#146#148#148#148#149
+  +#149#149#150#150#150#152#152#152#153#153#153#154#154#154#155#155#155#157#157
+  +#157#157#157#157#158#158#158#160#160#160#160#160#160#161#161#161#164#164#164
+  +#167#167#167#170#170#170#170#170#170#171#171#171#171#171#171#171#171#171#171
+  +#171#171#172#172#172#173#173#173#173#173#173#174#174#174#176#176#176#178#178
+  +#178#179#179#179#181#181#181#182#182#182#184#184#184#170#170#171#162#162#162
+  +#161#161#161#161#161#161#160#160#160#159#159#159#160#160#159#160#161#160#160
+  +#160#160#160#160#160#159#160#160#158#159#159#150#150#150#150#150#150#148#148
+  +#148#147#147#147#146#146#146#144#144#144#144#143#144#146#146#146#145#145#145
+  +#144#144#144#142#142#142#140#140#140#139#139#139#137#137#137#135#134#134#133
+  ,#133#133#131#131#131#130#129#130'~}}{{zyyyxxxuuutssqqqooonnnkkkjjihhgeeec'
+  +'cca``___^\\\[[YYYWWWVVWSSSRRRPPPHHHGGFEEFCCCEEEGGGGGGEEECDCBBCBBA???>>>>><='
+  +'=<<;;:9::9989866666645544434333322321211021122111100100/,++,,,++,+*+******#'
+  +'"#"#"!"!!!""#""""011444777778888888... '#31' '#31'  '#31'  '#31#31#31#31#31
+  +#31#31#30#31#31#31#31#30#30#30#30#30#30#31#31#30#30#30#30#30#30#30#30#30#29
+  +#29#29#30#30#29#30#29#29#29#29#29#29#29#29#29#28#28#29#28#29#28#28#28#28#28
+  +#28#28#28#28#27#28#28#28#28#27#27'!!"%&%&''&''''''))(*))(()'#26#26#28#26#26
+  +#27#26#25#27#26#26#27#26#26#26#26#27#27#31#30#30#31#31#31#30#31#30#30#30#30
+  +#30#30#31#30#31#31#29#29#29#29#29#29#28#29#29#29#29#28#28#28#29#29#28#29#29
+  +#28#28#28#28#28#28#28#28#28#27#27#27#27#27#27#27#27#27#27#27#27#26#27#27#27
+  +#26#27#26#26#27#27#26#27#26#26#26#26#26#26#26#25#26#26#25#26#26#25#25#25#25
+  +#25#25#25#25#25#25#25#25#25#25#25#24#27#27#26#29#30#29#29#29#29#29#29#29#29
+  +#29#29#24#23#24#23#23#23#23#23#24#23#23#23#23#23#23#23#23#22#22#23#23#22#22
+  +#22#22#22#22#22#21#21#21#21#21#22#20#21#21#21#20#21#20#20#20#20#20#20#20#20
+  +#19#19#19#17#17#17#16#17#17#16#17#17#16#16#17#18#18#19'&&&++*--.222667'#14#14
+  +#14#13#14#14#14#14#14#14#13#14#13#13#13#13#13#13#13#13#13#13#12#13#13#12#13
+  +#12#13#12#13#12#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#11#11#12#11
+  +#12#12#11#11#11#11#11#11#11#11#11#11#11#11#11#11#10#10#11#10#11#10#10#10#10
+  +#10#10#10#10#10#9#10#10#10#10#10#10#10#10#10#10#25#22#22#9#9#9'000yyy0000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00333666888:::<<<222////////////4449999999999999999999999999999999999989989'
+  +'88988988988988888888888888888888888888888888888888888888887887887877877444/'
+  +'///////////000000444AAACCCCCCCCCCCCCCC>>>===:9:6664442221111110000000001111'
+  +'11111111111222988999:::;;;;;;;;;;;;<<<===>>>?????>@@?@??BAABBBCBBDCCEDDFEEG'
+  +'FFHGGJIIIIIKKKMMMMMMOOOPPPRRRTTTTTTWWWXXXYYY[[[]]]___```bbbbbbaaaccceeegggn'
+  +'nn}}}'#130#130#130#135#135#135#140#140#140#136#136#136'tttvvvxxxyyy|||}}}'
+  +''#128#128#128#131#131#131#132#132#132#133#133#133#136#136#136#137#137#137
+  +#138#138#138#140#140#140#141#141#141#143#143#143#144#144#144#145#145#145#147
+  +#147#147#148#148#148#149#149#149#150#150#150#152#152#152#153#153#153#153#153
+  +#153#155#155#155#154#154#154#155#154#155#156#156#156#156#156#156#158#158#158
+  +#162#162#162#165#165#165#166#166#166#166#166#166#166#166#166#166#166#166#166
+  +#167#166#169#169#169#171#171#171#173#173#173#175#175#175#177#177#177#179#179
+  +#179#178#178#178#162#163#163#157#157#157#156#156#156#156#156#156#156#156#156
+  +#155#155#155#154#154#154#154#154#154#156#156#155#155#155#155#155#155#156#154
+  +#154#155#154#154#155#145#146#145#145#145#145#143#143#143#142#142#142#141#141
+  +#141#143#143#143#144#144#145#143#142#143#142#142#141#140#140#140#137#137#137
+  +#137#137#137#135#135#135#132#133#132#130#131#130#129#129#129'}}|{{{zyyxxx'
+  +'uuusstqqrpqqnnnlmmjjjiiifffeedccbaaa_^_]\\[[[ZYYWWWVUVSTSRQRPPPOOOHGHDDDDDD'
+  +'CCBAAAGFFEEECCCCCCABA???>?>??>=><<<;::9:::988887667555444444344333222111000'
+  +'0/0221100000000.-.,,,+++**+**+*++''&''"""!"!!""!!!"""%%%444545566776777666,'
+  +',, '#31' '#31#31#31#31'  '#31#31#31#31#31#31#30#30#31#31#30#30#30#30#30#31
+  +#30#30#30#30#30#30#30#30#30#29#30#30#30#29#30#29#30#30#29#30#29#30#29#28#29
+  +#29#29#29#29#29#29#28#28#28#29#28#28#28#28#28#28#28#28#28'!""&%%'''''''''''''
+  +')))*)***)'#29#30#30#26#27#27#26#26#27#26#26#27#26#26#27#26#26#26#29#28#29#31
+  +'  '#31#31#31#31#31#31#31#31#31#30#31#30#30#30#30#29#29#30#29#29#29#29#29#29
+  +#29#29#29#29#28#29#30#29#28#29#28#28#29#28#28#29#27#27#28#27#28#28#27#27#27
+  +#27#28#27#27#27#27#27#27#27#27#27#26#26#27#26#27#26#27#26#26#26#26#26#26#26
+  +#26#26#26#26#26#26#26#26#26#26#25#26#25#26#25#25#25#24#25#24#25#24#28#29#28
+  +#30#29#29#29#29#29#29#29#29#28#28#28#24#23#24#24#23#23#24#24#24#23#23#23#23
+  +#23#23#23#23#23#22#23#22#22#22#22#23#22#22#22#21#22#22#21#21#21#21#21#22#21
+  +#21#21#20#21#21#20#20#20#20#20#19#19#19#17#17#17#17#17#17#16#16#17#17#16#17
+  +#23#22#22'%%%(((,,+//.222'#21#21#21#14#14#14#14#14#14#14#14#14#14#13#13#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#12#12#13#13#12#12#12#13#13#13#12#13#12#12
+  +#12#12#12#12#11#12#11#11#12#11#11#11#11#11#12#11#11#11#11#11#11#11#11#11#10
+  +#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#9#10#9#10#9#9#10#10#9#10#10#25
+  +#22#25#10#10#9'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000444666888:::===...////////////5559999999999999'
+  +'999999999999999999999989989989889889889889888888888888888888888888888888888'
+  +'88888888887887887877666////////////000111444CCCEEEFFFFFFFFFEEEEEEDDDDDDCCCC'
+  +'CCCCCBBBBBBAAA>>>======555111111111111222555999999:::;;;;;;;;;;;;<<<===>>>?'
+  ,'?>??>@@?@??BAABBBCBBDCCEDDFEEGFFHGGIIIIIIKKKLLLMMMOOOPPPQQQSSSTTTVVVXXXYYY['
+  +'[[\\\^^^___]]]^^^```bbbdddmmm{{{'#132#132#132#138#138#138#132#132#132'pp'
+  +'prrrtttvvvxxxyyy||||||~~~'#128#128#128#129#129#129#131#131#131#132#132#132
+  +#134#134#134#136#136#136#137#137#137#138#138#138#140#140#140#140#140#140#142
+  +#142#142#143#143#143#144#144#144#145#145#145#146#146#146#147#147#147#147#147
+  +#147#148#148#148#149#149#149#150#150#150#151#151#151#151#152#152#151#152#152
+  +#152#152#152#155#155#155#158#158#158#161#161#162#161#161#162#162#162#162#163
+  +#163#163#165#165#165#167#167#167#169#169#169#172#172#172#174#174#174#173#173
+  +#173#157#157#157#153#153#153#153#153#153#152#152#152#152#152#152#151#151#151
+  +#150#150#150#149#149#149#148#148#148#151#150#151#151#151#151#150#151#151#150
+  +#149#150#150#150#150#141#141#141#140#140#140#139#138#138#137#137#137#136#136
+  +#136#138#138#138#140#140#140#139#138#139#137#137#137#136#136#135#133#133#133
+  +#133#133#133#130#130#130#129#129#129#128#128'~}}|{{{yyxxxvvutttrrrqqpnnnmmm'
+  +'llkiijghgfffdddbba`____]][[[ZZYXXWWWUUUSSSQQROOOONNMLLIHHDCDAABAA@???EDDDDC'
+  +'CDCABB@@?>?>?>>===<<<:::::::98978767665445444444343333121010000000122200100'
+  +'000///+++++*+***+*******###"""!""!!!!"!""")()434545544445454333---"!!'#31#31
+  +#31#31#31#31#31'  '#31#31#31#31#31#30#30#31#31#31#30#31#30#30#30#30#30#30#30
+  +#30#30#29#30#29#30#30#30#29#30#29#30#30#29#29#29#29#29#29#29#29#29#28#29#28
+  +#28#28#28#29#29#30#29'$$$&&&&''&((()))***+++!!!'#26#27#27#26#27#28#27#27#27
+  +#26#26#27#26#26#26#26#27#26' '#30#31#31'  '#31' '#31#31#31' '#31#31#31#31#31
+  +#30#31#29#30#29#29#29#30#29#29#29#29#29#28#29#29#29#30#30#30#29#29#30#29#29
+  +#29#28#28#29#28#28#29#28#28#28#27#28#28#27#27#27#28#27#27#27#27#27#27#27#27
+  +#27#27#27#27#26#27#27#26#26#26#26#26#26#26#26#26#26#25#25#26#26#26#26#25#25
+  +#26#25#25#25#25#25#25#25#24#25#30#29#29#29#30#30#29#30#29#29#30#29#28#27#27
+  +#24#24#24#23#24#24#24#24#24#23#24#23#23#23#23#23#23#23#23#22#23#22#23#23#23
+  +#22#22#22#22#22#22#21#21#22#21#21#22#21#21#21#20#20#21#20#21#20#20#20#18#18
+  +#18#17#17#17#16#17#17#17#17#17#16#17#17#24#24#24'%%%&&&))(*+*,,,-.-'#25#25#25
+  +#14#14#14#14#14#14#13#13#14#14#13#14#13#13#14#13#13#13#13#13#13#13#13#13#13
+  +#12#13#13#12#13#12#12#12#12#12#13#12#12#12#12#12#11#11#11#11#11#11#12#12#12
+  +#11#11#12#11#11#11#12#11#11#11#11#11#11#10#11#11#11#10#11#11#10#10#10#10#10
+  +#10#10#10#10#10#10#10#10#10#10#9#10#22#25#22#10#9#9'000yyy000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000111444666888'
+  +';;;;;;...////////////777999999999999999999999999999999999999998998988988988'
+  +'988988888888888888888888888888888888888888888888887887666//0/////////000111'
+  +'333BBBGGGHHHJJJJJJJJJIIIGGGGGGEEEEEEDDDDDDCCCBBBBBBAAAAAAAAA@@@111111111111'
+  +'111222988999999:::;;;;;;;;;;;;<<<===>>>>>=??>@??@??BAABBBBBBDCCEDDFEEGFFGGG'
+  +'IIIIIIKKKLLLMMMNNNPPPQQQRRRTTTUUUWWWXXXZZZ[[[]]][[[[[[]]]___aaamlmxxx}}}'
+  +#130#130#130#135#135#135'{{{mmmoooppprrrtttuuuwwwyyyzzz|||}}}'#128#128#128
+  +#130#130#130#131#131#131#132#132#132#134#134#134#136#136#136#136#136#136#138
+  +#138#138#138#138#138#139#139#139#139#139#139#141#141#141#142#142#142#143#143
+  +#143#143#143#143#144#144#144#145#145#145#146#146#146#145#146#146#145#146#146
+  +#146#146#146#147#147#147#147#147#147#150#150#150#154#154#154#158#158#158#159
+  +#159#159#161#161#161#164#164#164#166#166#166#168#168#168#166#166#166#150#150
+  +#150#147#148#148#148#147#147#148#148#147#147#147#147#147#147#147#146#146#146
+  +#146#146#145#144#144#144#143#143#143#145#145#144#146#146#145#146#146#145#145
+  +#145#145#146#146#146#138#138#139#136#136#136#135#134#134#133#133#133#132#132
+  +#132#133#133#133#136#136#136#135#135#135#133#133#133#132#131#132#130#130#130
+  +#128#128#128'~~~~~~{{{zzyxxxwuvuttsrrqqqpoommmklljjjghgfgfdddcccaaa___^^\[\['
+  +'ZZYYWWWVVUTTSSSQQQOOOONNMLLKKKHHHAAAA@A???>?>ABADCCBBA@@@???>==>>>=<<:::;;:'
+  +':;9887887756545555454444323121010011000000000221200100///,,-++++++++*+****)'
+  +'''''''""""!"!!!"!"#""#""+++444434443333222111000''''&  '#31#31#31#31#31#31
+  +#31#30#31#31#31#30#30#31#31#30#31#30#31#30#30#30#31#30#30#30#30#30#30#29#29
+  +#29#30#29#30#30#29#29#30#29#29#29#29#29#29#29#29#29#28'"""%%&&&''''''''((())'
+  +')+**+,,#$#'#27#27#28#27#27#28#27#27#27#26#27#27#27#26#27#26#26#27#31#30#30
+  +#31#31'     '#31#31#31#31#31#31#31#31#31#31#31#31#29#30#30#29#30#29#29#29#29
+  +#30#29#30#29#29#30#30#29#30#30#29#29#30#29#29#29#29#29#29#28#29#28#28#29#28
+  +#28#28#27#28#28#27#27#27#28#27#27#28#27#27#27#27#27#26#27#26#27#27#26#26#26
+  +#26#27#26#26#26#26#26#26#26#26#26#25#26#26#25#25#25#25#25#25#26#26#26#26#30
+  +#30#30#30#30#30#29#29#30#30#29#29#26#26#26#24#24#24#24#24#24#24#23#24#23#23
+  +#23#24#23#24#23#23#23#23#23#23#23#23#23#23#22#22#23#22#22#22#21#21#22#21#22
+  +#22#21#21#22#21#21#21#21#20#20#21#20#17#17#17#17#18#17#17#17#17#17#17#17#16
+  +#16#17#23#23#22'$#$%%&&&&(((*******))'#29#29#29#14#14#14#14#14#14#13#14#13#13
+  ,#14#13#13#13#14#13#13#13#13#13#13#13#13#12#12#12#13#13#13#12#12#12#12#12#13
+  +#12#12#12#12#12#12#12#12#12#12#11#12#12#11#11#11#11#11#11#11#11#11#11#11#11
+  +#10#11#11#10#10#11#10#11#10#10#10#10#10#10#10#10#10#10#10#10#10#9#10#10#22#25
+  +#25#10#10#9'000yyy0000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000111444777999;;;:::...////////////9989999999999999999'
+  +'999999999999999999999989989889889889889889888888888888888888888888888888888'
+  +'88888888887766//0/////////000111333BBBHHHKKKMMMOOOOOONNNLLLJJJIIIGGGGGGFFFE'
+  +'EECCCBBBAAAAAA@@@@@@@@@989000111111111111555999999999:::;;;;;;;;;;;;<<<===>'
+  +'>=>>=?>>@??@??A@@BBBBBBDCCEDDFEEGFFFFFHHHIIIJJJKKKMMMMMMPPPPPPRRRSSSTTTVVVX'
+  +'XXYYY[[[WWWYYY[[[[[[___kkkuuu{{{'#128#128#128#133#133#133'xxxjjjkkkmmmooopp'
+  +'prrrttttttwwwxxxyyy{{{|||~~~'#128#128#128#129#129#129#131#131#131#131#131
+  +#131#132#132#132#133#133#133#135#135#135#135#135#135#136#136#136#137#137#137
+  +#137#137#137#138#138#138#138#138#138#139#139#139#140#140#140#141#141#141#141
+  +#141#141#141#141#141#141#141#141#141#141#141#143#143#143#143#143#143#146#146
+  +#145#151#151#152#157#156#157#159#159#159#161#161#161#156#156#156#144#144#144
+  +#144#144#143#142#143#143#143#142#143#142#142#142#141#141#141#142#142#142#141
+  +#141#141#140#140#140#140#140#139#139#139#140#140#141#140#141#141#141#141#141
+  +#141#142#141#142#141#141#142#136#136#136#131#131#131#130#130#130#128#128#128
+  +''#128#128#128#132#132#132#131#131#131#129#129#129#128#128'~~~}}|{{{yyyx'
+  +'xxwwvttttrsrqqpppnmmllljjjiiigffededddbbb`_`___]]][[ZZZYXWWVUVTSSSRRQPPPOON'
+  +'NNMLMKKJIIIGGG??@>>>>=><;<???CBAAA@@??>>>>>=;;;:;;:;;::;8888877766546456445'
+  +'553332221100010000100/////2111210//0////0,++++++**))*)))*))%%%""""!!!!""!"!'
+  +'!!"""+,,223333322211111000000---&&'' !!'#31#31#31#31#31#31#30#31#31#30#31#31
+  +#30#30#31#30#30#30#30#31#30#30#30#30#30#30#30#30#30#30#30#29#29#30#30#30'!!!'
+  +'&&&''''''(''((()*))***+*+,,,%$%'#27#28#29#27#28#28#27#27#28#27#26#28#27#27
+  +#28#26#26#28#30#30#29'         '#31#31' '#31#31' '#31#31#31#31#31#31#31#30#30
+  +#31#30#30#30#29#30#30#30#29#31#30#30#30#30#30#30#30#30#29#30#29#30#29#29#29
+  +#29#28#29#29#28#29#28#28#29#27#27#28#28#28#28#27#28#27#28#27#28#27#27#27#27
+  +#27#27#27#27#26#27#27#26#27#27#27#26#26#26#26#26#25#26#26#26#25#25#26#26#26
+  +#26#25#25#29#28#27#30#30#29#30#30#30#30#30#30#30#29#30#25#25#25#24#24#24#24
+  +#24#24#24#23#24#23#24#24#23#23#24#23#23#23#23#23#23#22#22#23#23#23#23#23#22
+  +#22#22#22#21#22#21#21#22#21#21#22#21#21#21#20#21#20#21#21#17#17#18#17#18#18
+  +#17#17#17#17#17#17#17#17#17#17#17#18#21#21#21'"""%&%%%%''''''&''&''''&''&&'
+  +#30#30#30#14#15#15#14#14#13#14#13#14#14#13#14#13#14#14#14#14#13#13#13#13#13
+  +#13#13#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#12#11
+  +#11#11#11#11#11#11#11#12#11#11#11#11#11#10#11#11#11#10#10#10#11#11#10#10#10
+  +#10#10#10#10#10#10#10#10#10#25#25#22#9#9#10'000yyy00000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000000000000000000000000000000000000000222555777999;;;777//'
+  +'////////////0:9999999999999999999999999999999999999999899899898898898898898'
+  +'8888888888888888888888888888888888888888777001/////////000000222@@@IIIMMMPP'
+  +'PSSSTTTQQQIIINNNMMMKKKJJJHHHGGGEEEDDDAAA@@@???@@@@@@@@@???11111111111111111'
+  +'1988999999999:::;;;;;;;;;;;;<<<===>>=>>=?>>@??@??A@@BBBBBBCBBEDDFEEEEEFFFHH'
+  +'HIIIIIIKKKLLLMMMOOOPPPQQQRRRTTTUUUWWWXXXTTTWWWWWWYYY\\\kkksssyyy~~~'#131#131
+  +#131'mmmggghhhjjjkkkmmmnnnpppqqqssstttuuuwwwxxxyyy{{{|||}}}~~~'#129#129
+  +#129#130#130#130#131#131#131#131#131#131#131#131#131#133#133#133#133#133#133
+  +#133#133#133#134#134#134#135#135#135#135#135#135#134#134#134#135#135#135#136
+  +#136#136#136#135#136#136#136#136#137#137#137#137#137#137#137#137#137#141#140
+  +#141#150#150#150#146#146#146#138#138#138#138#138#138#139#139#139#138#138#138
+  +#138#138#138#137#137#137#136#136#136#136#136#136#136#136#136#137#137#136#135
+  +#135#134#135#134#134#135#135#135#136#136#136#137#137#137#136#136#136#137#137
+  +#137#133#132#132'~}~}|||{{{zzz'#128#128#128'~~~}~~{{{zzzzyyxwxvwvtttssrrrq'
+  +'pononnmlmkjjiiigggfffdddbbbaaa___]]^\[\[[[XXXWWWVVUTSSSSSPOPPOONMMLLLJJKHHI'
+  +'GHHGGF@@@>==;;;;:;:::BAA@????>?>?<<<;;;;;;999888898777675665654644444322111'
+  +'1111111010//000/0/00022211000/0//---+++*****)*))*))))(###""""!""""!!!!"!"""'
+  +'(()333233212112000000000//////***&&&###!!!'#31#30#31#30#31#31#31#30#30'   !'
+  +'!!$$#%&&((((((((()()((()**++*+++,,,"""'#28#27#29#28#27#28#28#27#29#27#27#29
+  +#27#27#28#27#27#27#28#27#29'! ! !!       '#31'  '#31#31#31' '#31#31#31#31#31
+  +#31#30#31#30#30#31#30#30#30#30#30#31#30#31#31#30#30#30#30#30#29#29#30#29#29
+  +#30#30#30#29#29#29#29#29#28#28#29#28#28#29#28#28#28#27#27#28#28#28#28#27#27
+  +#27#27#27#27#27#27#27#27#27#27#26#27#27#27#26#26#26#27#26#26#26#26#26#26#25
+  ,#26#26#26#26#25#30#29#30#30#29#29#30#30#29#29#30#30#29#29#28#25#24#25#25#24
+  +#24#24#24#24#24#24#24#24#24#24#24#24#24#24#24#23#23#24#23#23#23#23#23#23#23
+  +#23#22#22#22#22#22#22#21#22#23#21#21#22#21#21#21#21#21#21#21#21#17#18#18#17
+  +#18#17#17#17#17#17#17#17#17#17#17#17#16#17#18#18#18#18#18#19'   $$$%%$$%%%$%'
+  +'$%%$$$  !'#17#17#17#14#13#14#13#14#13#13#14#13#13#13#14#13#13#13#13#13#13#13
+  +#12#13#13#12#12#12#12#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12#11#11#12
+  +#12#11#12#11#11#11#11#12#11#11#11#11#11#11#11#11#10#11#11#11#10#10#11#11#11
+  +#10#10#10#10#10#10#25#22#22#10#10#10'000yyy000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000333555777:::<<<555/////////'
+  +'///112:99999999999999999999999999999999999999999998998988988988988988888888'
+  +'888888888888888888888888888888777001/////////000000222???IIIMMMRRRUUUXXXVVV'
+  +'777000000222777;;;===@@@@@@CCCAAA???>>>????????????878000111111111111444999'
+  +'999999::::::;;;;;;;;;;;;<<<==<>>=>==?>>?>>@??A@@BAABBBCBBEDDDDDEEEFFFGGGIII'
+  +'IIIKKKLLLMMMNNNPPPPPPRRRSSSTTTVUURRRTTTUUUWWWZZZhhhqqqvvv|||'#128#128#128'j'
+  +'jjccceeefffhhhiiikkklllmmmpppppprrrssstttvvvwwwxxxyyy{{{|||{{{}}}~~~~~~~~~~'
+  +'~~'#128#128#128''#128#128#128#128#128#128#128#128#128#128#128#128#129#129
+  +#129#130#130#130#130#130#130#131#130#131#131#131#131#130#130#131#131#131#131
+  +#132#132#131#132#131#132#131#131#131#132#132#132#132#132#133#133#133#133#133
+  +#133#133#133#133#133#133#133#133#133#133#133#132#132#132#131#132#132#132#131
+  +#132#131#131#131#130#131#130#130#130#130#131#131#131#132#132#132#132#132#132
+  +#132#132#132#133#133#132#130#131#130'zyzzyzxyxwwwvvv{{{{{{zzzwxxwwwuvvtuurrr'
+  +'qqqpponnmmmmkjjjjjhhhfffdedbcbaaa```^]^]]][[[ZZYXXXVWUUUUTSSQQQQPPOOONMMLKL'
+  +'KLKIIIHHGGGGFEFA@@;;;:;:99999:=>=????>=>==<;;;<;:::999888787666666665565544'
+  +'42232221111111100//0/0////0///1000111000/0///,--******)*))*)*)))()"""!""""!'
+  +'""!""""!!!!"%%%000121111011000000//////......------,+,,,,+++**+*******)*)**'
+  +'))*******+++++,,,-++*'#31#31#31#28#28#29#28#28#29#28#27#29#28#27#29#27#27#29
+  +#27#27#29#28#28#28' ! ! !!! !! !!    '#31'  '#31' '#31' '#31#31#31' '#31#31
+  +#31#30#31#30#30#31#31#30#31#30#31#30#30#30#30#30#30#30#30#30#30#30#30#29#30
+  +#29#29#29#29#30#29#29#29#28#28#29#28#28#29#28#27#28#28#28#28#28#28#27#27#27
+  +#27#27#27#27#27#27#27#26#26#26#26#27#26#26#26#26#27#26#26#26#26#26#26#26#26
+  +#26#25#30#29#29#30#29#29#30#29#29#30#30#29#28#28#28#25#25#25#24#25#25#24#24
+  +#24#24#24#24#24#24#24#24#24#24#23#23#24#23#23#23#23#23#23#23#23#23#23#22#22
+  +#23#22#22#23#22#22#22#22#21#22#21#21#22#21#21#21#21#21#21#20#21#18#19#19#17
+  +#17#18#17#18#17#17#17#17#17#17#17#17#17#17#17#18#18#17#18#18#28#28#28'#$#$$$'
+  +'$$$$$%$$$%$$###'#18#18#18#14#13#13#14#14#13#14#13#13#13#14#13#13#14#13#13#13
+  +#13#13#13#12#13#13#13#12#12#12#12#13#12#13#12#12#12#12#12#12#12#12#12#11#11
+  +#12#11#12#11#12#11#11#11#12#11#11#11#11#11#11#11#11#11#10#10#11#10#10#11#10
+  +#10#10#11#10#10#25#25#25#9#10#10'000yyy0000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000333555888:::<<<222////////////2'
+  +'22:99:999999999999999999999999999999999999999989989989889889889889888888888'
+  +'88888888888888888888888888222/////////000000222>>>HHHMMMRRRVVVYYYYYY8880000'
+  +'00000000000000000000000000000111999===>>>>>>??????0000001111111111118779999'
+  +'99999999:::;;;;;;;;;;;;<<;==<>==>==?>>?>>@??A@@BAABBBCBBDCCDDDEEEFFFGGGHHHI'
+  +'IIJJJKKKMMMMMMOOOPPPQQQRRRSRRPPPRRRSSSTTTWWWiiioootttzzzccc```bbbcccdddf'
+  +'ffggghhhjjjkkkmmmnnnpppppprrrssstttuuuvvvwwwxxxxxxyyyzzzyyyzzzzzz{{{{{{zzzz'
+  +'zz{{{|||{{{||||||}}}|}|~~~~~}~'#128''#128''#129#128#128#128
+  +#128#128''#128#128#128#128'~~~~~}}~'#128#128#128#128#129#128#129
+  +#129#129#129#129#129#128#128#128'wwwvvuuttsrrrrruvuwxwvvvuuusssrssqqqopommmm'
+  +'mlkkjiiiihhgffeeecbbbbb`a`___]^][[[Z[[YXYXXXVVWUTTSSRQQPPPPONNMLMLLKKJJHIHG'
+  +'GGFFFEEECDDCBB::::99888777::9??>====;<<;;;::9998997787676777666665544432312'
+  +'123222110100/00//0//00/...///11110111000/...*******)**********((("""""""""!'
+  +'!!!!"!!!!!!"""+++222212000010000/////////...---------++,,,,++++,++*++++,+++'
+  +',+--,------%&&'#29#30#31#28#29#29#28#28#29#28#28#29#27#28#28#28#28#29#27#28
+  +#28#28#28#28'   !!! ! !!!!!  !    '#31'    '#31#31'    '#31' '#31#31#31#31#31
+  +#31#31#31#30#31#31#31#31#30#30#31#30#30#30#30#30#30#30#30#30#30#30#30#29#30
+  +#30#29#30#29#29#29#28#28#29#28#28#29#28#27#28#28#28#28#28#27#28#27#28#28#27
+  +#27#27#27#27#26#27#27#27#26#27#26#27#27#26#26#26#26#26#26#28#27#28#30#29#30
+  +#30#30#30#30#30#29#30#29#29#27#26#26#25#25#25#25#25#24#24#25#24#25#25#24#24
+  +#24#25#24#24#24#23#24#24#23#23#23#23#24#23#24#23#23#23#23#23#23#22#22#23#22
+  +#21#22#22#21#22#21#21#22#21#21#21#21#21#21#21#21#21#21#21#19#19#18#18#18#18
+  ,#17#18#18#17#17#17#16#16#17#16#17#17#17#17#17#17#17#18#25#25#25'#########$$$'
+  +'$%%$$$$$$'#22#22#22#14#13#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#12#12#12#12#13#12#12#12#12#12#12#12#12#12#12#12#12#11#12#12#12#12
+  +#12#11#12#11#11#11#11#11#11#12#11#11#11#11#11#11#11#10#11#11#10#11#11#10#10
+  +#25#25#27#10#10#10'000yyy000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000444666888:::===//////////////////222888999999'
+  +'999999999999999999999999999999998998998988988988988988888888888888888888888'
+  +'888888888222/////////000000111:::HHHMMMRRRWWW[[[]]]AAA000000000000000000000'
+  +'000000000000000000222;;;;;;===>>>???878000000111111111444888999999999999:::'
+  +';;;;;;;;;;;;<<;==<>==>==?>>?>>@??@??BAABBBBBBCCCDDDEEEEEEFFFHHHIIIIIIKKKLLL'
+  +'MMMNNNPPPPPPQPPNNNOOOPPPSSSVVVhhhmmmrrrxxx}}}\\\]]]___```aaacccdddfffggghhh'
+  +'iiikkkkkkmmmnnnppppppqqqrrrsssrrrttttttuuutttuuuuuuuuuvvvuuuuuuuuuuuuvvvvvv'
+  +'vvvwwwwvwxxwyyxyyyzzyzzzyyyzzz{{{{zz{{{{{{||||{|{{z{{{z{{zzzyyy||||||}}}}}}'
+  +'}}}sssqrqqpqpponnnqqrttssssqqqpppooomnnmmmklkijihiggfffeedccbbaaaa___^_^[[['
+  +'[[[YYYXXWWWWUUTTTTRSRQQPPPOOONLLLLKKJJJIIIHHGFFFEEFDDDCCCBBA;;;898767676676'
+  +'==<=<;<<<;;::99:9:88876766766676755544433233122232210111000000000///../././'
+  +'10011111100///.,-,***********)*)*)))(''''"""""!!""""!!!!!!!!!!! !"#",,+2120'
+  +'01000000/////////.........-.---,,-,,,,--------,-.-.--'''''''#30#30#31#29#29
+  +#29#28#29#29#29#29#29#28#29#29#28#28#29#28#28#29#28#28#29#28#28#29'!! !!!!!!'
+  +'!!!!!!  !!!   !       '#31'   '#31#31#31' '#31' '#31#31#31#31#30#31#31#30#30
+  +#31#30#31#30#31#30#30#30#30#30#30#30#30#29#30#30#30#30#30#30#29#29#29#29#28
+  +#29#28#28#29#28#28#29#28#27#28#28#27#28#27#27#28#28#27#27#27#27#27#27#26#27
+  +#26#26#27#27#26#27#27#26#26#27#26#30#30#29#30#30#30#30#30#29#30#29#29#29#29
+  +#29#25#25#25#25#25#25#25#25#25#25#24#25#24#25#24#24#24#24#24#24#24#24#24#24
+  +#24#24#24#24#24#23#24#23#23#23#23#23#23#22#22#23#22#22#23#22#21#23#21#22#22
+  +#21#22#21#21#21#21#21#21#21#21#21#21#21#20#19#19#19#18#17#17#17#18#17#17#17
+  +#17#17#17#17#17#17#17#17#17#17#16#17#17#23#23#23'"""##"##"##$$$$$$$$$$'#26#26
+  +#26#14#14#14#13#14#14#14#13#13#13#13#14#13#13#13#13#12#13#13#13#12#13#13#13
+  +#12#13#13#12#12#12#12#13#12#12#12#12#11#12#12#12#11#12#11#11#11#11#12#11#12
+  +#11#11#11#11#11#11#11#11#10#11#11#11#11#10#10#10#11#27#27#25#10#10#10'000yyy'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000111555777999;;;===.../////////////////////444998999999999999999999999999'
+  +'999999999998998988988988988988888888888888888888888888888333/////////000000'
+  +'111:::GGGLLLQQQVVV[[[^^^AAA000000000000000000000000000000000000000000000666'
+  +':::;;;===>>>>>>000000000111111111877888999999999999:::;;;;;;;;;;;:<<;=<<>=='
+  +'>==?>>?>>@??@??A@@BBBBBBBBBDDDDDDEEEFFFGGGIIIIIIJJJKKKMMMMMMOOOMMMKKKMMMOOO'
+  +'PPPTTTffflllqqqvvv{{{YYY[[[\\\]]]______aaabbbcccdddfffggghhhiiikkkkkklllmmm'
+  +'nnnnnnooooooooopppooooooppppppppppppooopppppppppppppppqqqrrrrrrrrqtttuuttss'
+  +'tttuuvuvuuuuvvvwwwwwwxxxwwwvvvvvvuuvuuuvwvxxxyxxyyyyyzrrrmmmlmllkljkjkkkppp'
+  +'ooonnnmmmllliijiiihggfgffededccbbbaa`__^^^\\\[[[ZYYXXXWWXVVVTTTTTTRRRPPPOON'
+  +'NNNLLLLKKJIIIHHGFFGGGEDEDDDCDDAAAAAA<;;766676656444:::=<<;<:;::::9988877777'
+  +'777656556455434333332331211201100111000//////....//...111000/0//0/0./-+,+**'
+  +'***)******)*)*)(((###"""!""!"!!!"!!!!!!!!!  !#"#+**.//000000000////////////'
+  +'.//./////.././....,,,&'''''#31#31#31#30#29#30#29#29#29#29#29#29#29#29#29#29
+  +#29#29#28#29#29#28#28#29#28#29#29#29#29#30' !!!"!""!"!"!!!!!!!!!!! !!!!     '
+  +'        '#31#31#31#31#31#31#31#31#31#31#31#30#31#31#31#31#31#31#31#30#30#30
+  +#30#30#30#30#30#30#30#30#30#30#30#29#29#29#29#30#29#29#29#28#28#29#28#28#28
+  +#28#28#28#27#27#28#27#27#27#27#28#27#27#27#27#27#26#27#27#27#26#26#26#27#28
+  +#27#30#31#30#30#30#30#30#30#30#30#29#30#28#29#28#25#25#26#25#25#25#25#25#25
+  +#25#25#24#25#24#25#25#25#25#24#24#25#24#24#24#24#24#24#24#24#23#24#23#23#24
+  +#23#23#24#23#23#23#22#22#23#22#22#23#22#22#22#22#21#22#22#21#21#21#21#21#21
+  +#21#21#21#20#21#20#21#20#20#19#17#18#18#18#17#17#17#17#17#17#16#17#17#17#17
+  +#17#17#17#17#16#17#21#21#22'!!!###"#"$$$#$$$$$$$$'#29#29#29#15#15#15#14#14#14
+  +#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#13#12#12#12#12#12#12#13#13
+  +#12#12#12#12#12#12#11#12#11#11#12#11#11#11#11#11#11#11#11#11#11#11#11#11#10
+  +#10#10#11#11#11#11#10#27#27#25#10#10#10'000yyy000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000222666777999;;;;;;000//////'
+  +'////////////////////0555999999999999999999999999999999998998998988988988988'
+  ,'988888888888888888888888544////////////000111666GGGLLLPPPVVV[[[^^^HHH000000'
+  +'000000000000000000000000000000000000000000111888:::;;;===>>>878000000000111'
+  +'111444888888999999999999:::;;;;;;;;:;;:<<;=<<=<<>==>==?>>@??@??A@@BAABBBBBB'
+  +'CCCDDDEEEEEEFFFHHHIIIIIIKKKLLLMMMKKKJJJJJJLLLNNNUUUdddjjjpppuuupppWWWWWWYYY'
+  +'ZZZ[[[\\\^^^___```aaacccccceeefffgggggghhhjjjiiijjjjjjkkkkkkkkkjjjjjjjjjjjj'
+  +'jjjjjjjjjiiijjjjjjjjjkkkkkkllllllmmmmnnnnnnonpoppppppqrrrqrqppqqrqrrrrrrrqr'
+  +'qqqpppqqqrrrtttuutuuuvvvqqqjjjhiiiiiggffgfmmmlllklkiiiiiiffgfffdddcccbbaaa`'
+  +'`___^^]\\[[[ZYZYXYXWXWVVTTTTTTRRRQQQPPPOOOMMLLLKKKJJJIHHHHFGFFFDDDDDDCBCAAB'
+  +'@@@@@@>==566666454454555;;:;::9:9:98977887877666666445344433333343221220120'
+  +'2102100////0///////./.../..000/0000000/./.+++*+****)**)***))*)*)()$$$""""""'
+  +'!!!!!!"!!!!!!!!!!!      ###(((***,,+.-.000000000...+**())&%%  "'#30#30#30#30
+  +#29#30#30#29#30#29#29#29#30#30#30#29#29#29#29#29#29#29#28#29#28#29#29#28#29
+  +#29#31#31' """"""!"""""!!"!!!!!"!!!!!! !!!   !     '#31'  '#31'   '#31#31#31
+  +' '#31#31#31#31#31#31#31#31#31#31#30#31#31#31#31#31#30#30#30#30#30#30#30#30
+  +#30#29#29#29#29#30#30#30#29#30#29#28#29#28#28#29#28#28#28#28#27#28#28#27#28
+  +#27#27#27#27#28#27#27#27#27#27#27#27#27#27#30#28#29#31#30#31#30#30#30#30#30
+  +#30#30#29#30#27#26#26#25#26#26#25#25#25#25#25#25#25#25#25#25#25#25#24#24#24
+  +#24#25#24#24#25#24#24#24#24#24#24#23#24#24#23#23#23#23#23#23#23#23#22#23#23
+  +#22#22#23#22#22#22#22#21#22#21#21#22#21#22#21#21#21#21#22#21#21#21#21#20#21
+  +#21#20#20#20#18#18#18#17#17#17#18#18#17#17#17#17#17#16#17#16#16#17#16#16#17
+  +#18#18#20'   ######$###$#$%$$$$   '#15#15#15#14#14#14#13#13#14#14#13#14#13#13
+  +#13#13#13#13#13#13#13#12#13#13#12#13#13#13#12#12#12#12#12#12#12#12#12#12#11
+  +#12#11#12#11#11#11#12#11#12#11#11#11#11#11#11#11#11#11#11#11#11#25#27#27#10
+  +#11#11'000yyy000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000444777888:::<<<===>>>667///////////////////////////000555999'
+  +'999999999999999999999998998998988988988988988888888888888888888544/////////'
+  +'///000111666FFFKKKPPPUUUZZZ^^^MMM000000000000000000000000000000000000000000'
+  +'000000000000555999:::;;;>>>>>>111000000000111111877888888999999999999:::;;;'
+  +';;;;;:;;:;::<;;=<<>==>==?>>?>>@??@??AAABBBBBBBBBDDDDDDEEEFFFGGGHHHIIIJJJKKK'
+  +'HHHHHHIIIJJJKKKSSSccciiinnntttnnnTTTUUUWWWWWWYYYZZZ[[[\\\]]]______aaaaaaccc'
+  +'bbbdddeeeeeeeeeeeeeeegggfffeeefffeeeeeeeeeeeeeeedddeeedddeeeeeeeeeeeeffffff'
+  +'gggghgiihijjjjjkjkkjklkkmmlmmmmmlnmmnnnmmmnnnmmmlllmlmqqqpppppprrroooeeeeee'
+  +'ddddddcccihiiiighggggfffeeecbcbbba````___^^]]\[[[ZZZYYXXXWWVTUUTTTSSRQQQOOP'
+  +'OOOMMMMMMKKKKKIIIHHHHHFFFEEDDDDCCBBBAAA@@@??????>>>766554344323112;:9::9998'
+  +'9889888777677765554444434444342332222212212101/01//0/////.///....--..///001'
+  +'00000000/...++,**+***)****)****)))*)''''''"""!"!"!""!"!!"!!!!! !!  ! !! !  '
+  +'   '#31'   '#31' '#31#31#31#31'  '#31#31' '#31#31#31#31#31#31#31#30#31#31#30
+  +#31#30#31#31#30#31#30#30#30#30#29#29#30#30#30#30#29#29#29#29#29#30#29#29#29
+  +#29#29#29#30#30#30'! !#""#"""""""""""!!!"!!"!!"!!"!!! !!       !    '#31#31
+  +#31'  '#31'  '#31#31' '#31#31#31#31#31#31#31#31#31#31#31#30#30#30#30#31#30#30
+  +#30#30#30#30#30#30#29#30#30#30#30#29#30#29#29#29#29#28#29#28#28#29#28#28#28
+  +#27#28#28#27#27#28#27#27#27#27#27#27#27#27#28#27#27#31#30#29#31#30#30#31#31
+  +#30#30#30#30#30#30#29#25#26#25#25#25#26#26#25#26#26#25#25#25#25#25#25#25#25
+  +#24#24#25#25#24#25#25#24#25#24#24#24#24#24#24#24#24#23#24#23#23#24#23#23#23
+  +#22#22#23#22#22#23#22#22#22#22#22#22#22#21#21#22#21#21#21#21#21#21#22#21#21
+  +#21#21#21#21#21#20#21#21#20#21#18#19#18#18#17#17#17#17#17#17#17#17#17#16#17
+  +#17#17#17#17#17#17#17#17#18#28#28#28'#"##"####$##$$$$$$#"#'#18#18#18#14#13#13
+  +#13#13#14#13#13#14#13#13#13#13#12#13#12#12#12#12#13#13#13#12#12#12#12#12#12
+  +#12#12#11#12#12#11#12#12#11#12#11#11#11#12#12#12#11#11#11#12#11#11#11#11#11
+  +#11#27#27#27#10#11#11'000yyy000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000444888:::;;;<<<>>>???@@@===333///////////////'
+  +'////////////000555999999999999999999999998998988988988988988888888888888888'
+  +'766//0/////////000111333FFFJJJPPPUUUYYY\\\OOO000000000000000000000000000000'
+  +'000000000000000000000000000111888888:::;;;===999////////////000333888888888'
+  +'999999999999::::::;;:;;:;::;::<;;=<<>==>==?>>?>>?????????@@@AAAAAABBBCCCDDD'
+  +'DDDEEEFFFHHHHHHEEEEEEFFFGGGIIIVUVbbbggglllqqqdddQQQRRRRRRTTTUUUVVVWWWXXXYYY'
+  +'ZZZ[[[]]]^^^^^^```___aaaaaaaaaaaabbbbbbaaaaaaaaa```aaa```_________^^^^^^___'
+  +'___`````````aaabbbccccddeedeedffegfggghhggggggghhhhiiiiiiiiihhgihiiihllllll'
+  +'lmlmmnmmmaaaaaa`_`___^]^ccceeeedddcdaaaaaa_^_^^^]^]\\\Z[ZZZZYXXWWWWVVTTTSSS'
+  +'RRQPQQPOOPPOMMMLLLLLLJJJIHIGGGGGGEEDDDCDDCCBBAAA@@@??????>>?=>=<<<:::443223'
+  ,'22212144489888788777776554554543333332332312111223222222111001000/00/0/0///'
+  +'......--.---///000000/0/00////+++**+***)**))*))*)**)*))(($#%"!""!!!!!!!!!!!'
+  +'!!!!!!!!!  !         '#31#31#31#31' '#31' '#31#31#31#31#31' '#31#31#30#31#31
+  +#31#31#30#31#31#31#30#30#30#30#31#30#30#30#30#29#30#30#30#30#30#30#30#29#30
+  +#29#29' '#31' ######"##"#"###"""!""!!""""#!!""!"!!"!!! !    !      !  '#31#31
+  +'   '#31#31#31#31#31#31#31#31#31#31#31#31#31#31#30#31#30#30#30#31#31#31#30#30
+  +#30#30#30#30#30#30#30#29#30#30#30#30#29#29#29#29#28#29#28#28#28#28#28#29#28
+  +#28#28#28#28#28#28#27#27#27#27#29#29#29#31#31#31#31#31#31#31#30#31#31#30#31
+  +#28#28#28#26#26#26#26#26#26#26#26#26#26#25#25#26#25#25#25#26#25#25#25#25#25
+  +#24#25#24#25#25#25#24#25#24#24#24#24#24#23#24#24#23#24#23#23#23#23#23#24#22
+  +#22#23#23#22#23#22#22#22#22#22#22#21#22#22#22#21#21#22#21#21#22#22#21#21#21
+  +#21#21#21#21#21#21#20#21#21#18#18#18#17#18#17#17#17#17#16#17#17#17#17#17#16
+  +#16#17#17#16#17#17#17#18#26#26#27'#"###"$####$%$$$$$###'#22#22#22#14#14#14#14
+  +#13#13#13#14#13#13#13#13#12#13#13#13#12#12#13#13#12#13#13#13#13#12#13#12#12
+  +#12#12#12#12#12#12#12#12#12#11#12#12#11#11#11#11#11#11#11#11#11#11#27#27#27
+  +#11#11#11'000yyy000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000111777;;;<<<===>>>?????????@@@;;;111/////////////////////'
+  +'//////000555999999999999999998998998988988988988988888888888766//0/////////'
+  +'000111333CCCIIINNNSSSXXX\\\UUU222//////////////////////////////////////////'
+  +'//////////////////333888999:::<<<>>>000////////////000666777777777888888888'
+  +'888999999::9::9:99:99;::<;;<;;=<<=<<>==>==>>>???@@@AAAAAAAAACCCCCCDDDEEEEEE'
+  +'GGGCCCCCCEEEEEEGGGSRS^^^dddjjjnnn___NNNOOOPPPRRRRRRSSSTTTVVVVVVWWWYYYZZZZZZ'
+  +'[[[[[[]]]\\\]]]]]]]]]^^^]]]\\\\\\\\\[[[[[[ZZZZZZYYYYYYYYYYYYYYYZZZZZZZZZ[[['
+  +'[[[\\\]]]^^^^^^_^_```a`abbbccccbcdddddcddddddeeeeeddddcbbhhhhhhhhhhihjij___'
+  +'^^^]]][[[[[[\]\a`a`aa__`^^^^^^]]]\\\[Z[ZYYYYXXXWWVUUTUTSSRRRQQQPPPPPPMMLKKL'
+  +'KKKJJJKKJHHHHHHFGFEDCEDDDCBBAABAA????????>>>==<<;<<;;;:991111110000/0110777'
+  +'88888777666555443444443333322222221221211100000/00//0/0.///..-----,--------'
+  +',--0/./////////...-..+**)))))))))))))(((((((((((''&''$#$""!!!!!"!!!!!!!  !!'
+  +'!! !!           '#31' '#31'   '#31#31#31#31#31#31#31#31#31#31#30#31#31#31#30
+  +#31#31#30#30#30#30#30#30#30#30#30#30#30' '#31'!##"####$######"""##"#""""#"""'
+  +'"##""#""""""""!!"!!!!! !  !  !          '#31'  '#31' '#31#31#31' '#31#31#31
+  +#31#31#31#30#31#31#31#31#30#30#30#30#30#30#30#30#30#30#30#29#30#30#30#29#29
+  +#29#29#29#29#28#29#28#28#29#28#28#29#27#28#28#28#27#28#28#28#31#30#31#31#31
+  +#30#30#31#30#30#30#31#30#31#30#27#27#27#26#26#26#26#26#26#26#26#26#26#25#26
+  +#26#25#26#25#25#26#25#25#25#24#25#25#25#25#24#25#24#25#25#24#24#24#24#24#24
+  +#24#23#24#23#23#23#23#23#23#22#23#24#23#23#23#22#22#23#22#22#22#22#22#22#21
+  +#22#22#21#21#21#21#21#22#21#21#21#21#21#21#21#21#21#20#20#21#20#21#18#19#18
+  +#17#18#17#17#17#17#16#17#17#17#16#17#16#16#17#16#17#17#16#16#17#24#24#24'""!'
+  +'##"##"$#$$$$$$$$$$'#25#24#24#14#14#14#13#13#13#14#14#13#13#13#13#13#13#13#13
+  +#13#13#13#12#13#13#12#13#13#12#12#12#12#12#12#12#12#12#12#12#12#12#11#11#12
+  +#12#11#12#12#11#11#11#27#27#27#10#11#11'000yyy000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000444<<<===>>>?????????'
+  +'???@@@@@@878000///////////////////////////000555888999999999998998988988988'
+  +'988988888888888000/////////000111333AAAIIIMMMRRRXXX[[[UUU222///////////////'
+  +'////////////////////////////////////////////////000666888999;;;<<<999//////'
+  +'/////////223777777777777777888888888888998::9:99:99:99;::;::<;;=<<=<<>====='
+  +'>>>>>>>>>???@@@AAABBBCCCDDDDDDEEEAAAAAAAAABBBEEERRR]]]ccchhhlllYYYKKKLLLMMM'
+  +'NNNOOOPPPQQQQQQSSSTTTUUUUUUVVVXXXXXXXXXYYYYYYYYYYYYYYYXXXXXXWWWWWWWWWVVVUUU'
+  +'UUUUUUUUUUUUTTTTTTUUUUUUUUUVVVVVVVVVWWWXXXYYYZZZ[[[\\\]]]]^^]^]__^``_`a````'
+  +'````````____bbbddddeefeegfg```ZYYYYYXXXVWWVVV^__]]]\\]\[[ZZZZZZXXXWWWVVVVVU'
+  +'UTTSSRRQRRPPOOOOOOMMMLKKKKKIJIIIJGGGHGGGFFEEEDDCCCBCBBAA@AA@A??@??>>>===<;<'
+  +'<;;;;<:;;9::44400000//0////444667666555554554544434322322222222222122000000'
+  +'00000//0/00...-.--.-.-------,,,,,,-,//.///////...../--++,)))))))))()(((()(('
+  +'((((((((''''''''%$%""!  !    '#31#31' !  !  ! !      '#31' '#31#31#31' '#31
+  +#31#31#31#31#31#31#31#31#31#31#31#31#31#31#30#31#31#30#30' '#31' """$$$$$$$$'
+  +'$$##$$$#$#########""#"#""##$#######""#""""""!!!!!!!! !   !   !    '#31'    '
+  +#31' '#31#31#31' '#31#31#31#31#31#31#31#31#30#31#31#31#30#31#30#30#31#30#30
+  +#30#30#29#30#30#29#30#30#30#30#29#30#29#29#29#28#29#28#28#29#28#28#29#28#28
+  +#29#29#28' '#30#30#31#30#30#31#31#30#30#31#30#29#29#29#26#26#27#26#27#26#26
+  +#26#26#26#26#26#25#26#25#26#26#25#25#25#25#25#25#25#25#25#25#25#25#25#25#25
+  ,#25#25#24#24#25#24#24#24#24#23#24#24#23#24#23#23#24#22#23#24#23#23#23#23#22
+  +#23#22#23#22#22#22#22#22#22#21#21#21#21#22#21#22#22#21#22#21#21#21#21#21#21
+  +#21#21#20#21#21#21#21#20#19#19#20#17#17#17#17#17#17#17#17#17#16#16#17#17#16
+  +#17#16#16#17#16#17#17#21#21#21'"""######$##$$$$$$%%$'#30#30#29#15#15#15#13#14
+  +#14#14#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#12#12#12#12#12#12#12
+  +#12#12#12#12#12#12#12#11#11#12#12#12#12#12#11#27#27#30#11#11#11'000yyy000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000111888>>>???????????????@@@@@@???667////////////////////////////////0'
+  +'444887999998998988988988988988988888101/////////000000222???IIIMMMRRRWWWZZZ'
+  +'ZZZ555/////////............................................................'
+  +'222777888999;;;<<<///...............555666666666666666777777777776887877988'
+  +'988988988:99;::<;;<;;<;;<<<<<<======>>>@@@@@@@@@AAABBBCCC>>>???@@@@@@CCCRRR'
+  +'\\\```eeejjjPPPHHHHHHIIIKKKLLLMMMMMMNNNPPPPPPQQQRRRSSSTTTTTTTTTUUUUUUUUUUUU'
+  +'TTTSSSTTTTTTSSSRRRRRRRRRQQQPPPPPPPPPPPPPPPPPPPPPPPPPPPQQQRRRRRRSSSTTTUUUVVV'
+  +'WWWXXXYYYZZZ[[[Z[Z\[\\[[\[[[[\[[[[[[]]]`_`a`aa`abba^__VUVTTUTTTSSSRRRYYXZYZ'
+  +'YYYXYXVVVWVWUUUTTTSSRRRRRRQPOONNNNMMMLLKKKJJJIIIIHIGGFGGFEFFEDDCCCCDCCCCBBA'
+  +'AA@??>?>>@??==<;<<;;;;:;::9899899998666///...-....-...445555444443443432222'
+  +'211221211111101/000//0////0/////......-..-.-..-.---,,--,-----,-............'
+  +'....--,-,)))))))()(()(((())(((((((((''''''''''''''''&$$%#"#!!"    '#31#31' '
+  +' !       '#31#31'   '#31' '#31#31#31'    "!""##%$$%$%$%$%$$$$$#$###$##$##$#'
+  +'#####"##$#$$$$#######"###"#""#!!"!!"!!!!!!!! !               '#31#31' '#31
+  +#31#31#31#31#31#31#31#31#31#31#31#31#30#31#31#30#30#31#30#30#30#30#30#30#30
+  +#30#29#30#29#30#29#30#30#29#29#29#29#29#28#29#28#28#29#28#28#31#31#31#31#30
+  +#31#31#30#30' '#30#31#31#31#30#28#28#27#26#26#26#26#26#26#26#27#27#26#26#26
+  +#26#26#26#26#26#25#26#26#26#25#25#25#25#25#25#25#25#25#25#24#25#25#25#24#25
+  +#24#24#24#24#24#24#24#23#24#23#23#24#23#23#23#23#22#23#23#22#23#22#23#23#22
+  +#23#22#22#22#22#22#22#21#22#22#21#21#21#21#22#21#21#21#21#21#21#21#21#20#21
+  +#20#21#20#21#20#20#19#19#19#17#17#18#17#16#17#17#17#17#17#17#17#16#16#17#16
+  +#16#17#16#17#17#18#18#19'   "#""#"###$$$'''''')))%$%'#15#16#16#14#14#13#13#13
+  +#13#13#14#13#13#13#13#13#12#13#12#12#12#12#13#13#12#12#12#12#12#12#12#12#11
+  +#12#12#12#12#12#11#12#12#11#30#27#27#12#11#11'000yyy000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000333;;;'
+  +'??????????????????@@@@@@>>>555/////////////////////////////////323666998998'
+  +'988988988988988101/////////000000222>>>HHHLLLQQQVVVZZZYYY777...............'
+  +'.........................................................///444666777999:::'
+  +'666...............000444555555555555555666666666776776766877877877877988988'
+  +':99;:::::;;;;;;<<<<<<===>>>?????????@@@;;;<<<===>>>@@@QQQYYY]]]cccgggMMMFFF'
+  +'FFFGGGGGGHHHJJJKKKLLLMMMMMMNNNOOOOOOPPPQQQPPPQQQQQQQQQPPPQQQPPPOOOOOONNNNNN'
+  +'MMMMMMMMMMMMLLLLLLLLLKKKKKKLLLLLLMMMNNNNNNOOOPPPQQQQQQRRRSSSTTSTTTUUUVVVWWV'
+  +'WXWWWWWWWWWWVVWVVVWWW[[[[[[]]]^^]]^]QPQQRRPOOOOOOOOSSSVVVVUVUTUSSSTSSQQQQQQ'
+  +'PPPOONNNMMMMKKJLKKJJIHHHHHHFFFFFEEEEDCDBCBBAABBBAAAAAA??>??>?>=>==<;<<<;;<;'
+  +';;;:::999999778667666111...------,,,101333343333333332331222221321100/0/000'
+  +'000/0//0///0.....-..-.-,.---,,-,,,,,,,,,,++,+++,..-.....--..-.----,,,)))((('
+  +'(((''(''''''''(''''''''''''''''''''''&&&(''''(''''''''''''''&''''&''&%$$%$%'
+  +'$%%%%%%%$%''&&&%&&&%&%%%%%%%%$$$%%$$%%%$%$$$$#$##$$$#$##$##$$$$$##$#$$$##$#'
+  +'######""#"!"!!"!!"!!!!!! ! !! !!            '#31' '#31#31#31#31#31#31#31#31
+  +#31#31#31#31#30#30#31#30#30#30#30#30#30#30#30#30#30#30#30#29#30#30#30#30#30
+  +#29#29#29#29#29#29#28#30#29#29#31#31#31#31#31#30#31#31#31#31#30#30#30#30#30
+  +#27#27#27#27#27#27#27#27#27#27#26#26#26#26#26#26#26#26#26#26#26#26#26#26#26
+  +#26#26#25#25#25#26#26#25#25#25#25#25#25#25#25#24#24#24#24#24#24#24#23#24#24
+  +#23#24#23#23#24#23#23#24#22#23#23#23#23#23#22#22#22#22#22#22#22#22#21#22#22
+  +#22#21#22#21#22#21#21#21#21#21#21#21#21#20#21#21#21#21#20#21#20#21#21#21#20
+  +#19#20#18#17#18#17#17#17#17#17#17#17#17#17#17#16#17#16#16#17#16#16#17#18#18
+  +#19#28#28#28'#""#$$%%%(((+++...--.'#20#20#21#14#14#14#13#13#13#13#13#13#13#12
+  +#13#13#12#12#13#12#13#12#13#13#12#13#12#12#12#12#12#12#12#12#11#12#11#12#12
+  +#27#27#27#11#11#11'000yyy000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000666>>>???????????????@@@@@@'
+  +'@@@>>>555/////////////////////////////////111444888988988988222/////////000'
+  ,'000222;;;GGGLLLQQQUUUYYY[[[777..................---------------------------'
+  +'---------------------------------111555666777999:::------------------333444'
+  +'555555555555555666666665665655766877877877877877888988999999999:::;;;<<<<<<'
+  +'<<<===>>>=<<;;;;;;;;;<<<>>>RRRVVV[[[```eeeCCCCCCCCCCCCEEEFFFGGGGGGHHHJJJJJJ'
+  +'KKKLLLLLLLLLMMMMMMMMMMMMMMMLLLMMMLLLKKKJJJJJJJJJJJJIIIIIIHHHHHHIIIHHHHHHHHH'
+  +'HHHIIIIIIIIIJJJJJJKKKLLLMMMNNNNNNNOOPPPPPQRQQSSSRRRRRRSSSRSRSTSRRRRRRWWWWXX'
+  +'YYYYYYYZZQQQMNMMMMLKLJJJKKKRRRRRRQPQPPPPPPNNNMMMMLLLLKKKJJJIIIIHGGGGGFEEEEE'
+  +'DEDCCCBBB@@@@@@@@@AA@?@@>>>>>===<<<<<;;;;;;::::9889888887777655656665444,,,'
+  +',,,+*+*****+3223343432232212211112100//1/000/////.///.///.----------,,,,--,'
+  +',++,++,+++++++++++++++++,,,---------,-,-,,,++***((((''((((''(('''''''''''''
+  +'''''''''''''''&&&''&&&&''''&''''&''&&&&&&%%&&%''&&''&&''%&&%&&%%&%&%&%%%%%$'
+  +'%%$$$$$$$$$$$$$$$$#$##$$$$$$$$$$$$$$$$$$$###$###"#""#"!#!!"!!""!"!!!!!!!!  '
+  +'      !     '#31#31'  '#31#31#31'  '#31#31#31' '#31#31#31#31#31#31#30#31#30
+  +#30#30#31#30#31#30#30#30#30#30#30#30#29#29#30#30#29#30#30#30#29' '#31#31#31
+  +#31#31#31#31#31#31#31#31#31#30#30#28#29#28#27#28#27#27#27#27#27#27#27#27#26
+  +#27#26#27#26#27#27#26#26#26#26#26#26#26#26#25#25#26#25#26#26#25#25#25#25#25
+  +#25#25#25#25#24#24#25#24#24#25#24#23#24#24#24#24#23#23#24#23#23#24#23#23#23
+  +#22#22#23#22#23#22#22#22#22#22#22#22#22#22#22#21#21#22#22#22#21#21#21#21#22
+  +#22#21#21#22#21#21#21#21#20#21#20#21#20#20#21#20#20#20#20#18#18#18#17#17#17
+  +#17#17#17#17#16#17#16#16#17#16#16#17#16#16#17#17#17#17#26#26#26'%%$&&&++*...'
+  +'222455001'#14#13#13#13#13#14#14#13#13#13#13#13#13#13#13#13#13#13#12#13#13#13
+  +#12#13#12#12#13#12#12#12#12#11#11#12#11#12#30#30#30#12#12#12'000yyy000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000111888>>>????????????@@@@@@@@@@@@>>>555//////////////////'
+  +'//////////////////323655222/////////000000111999FFFKKKPPPUUUYYYZZZ???......'
+  +'---------------------------------------------,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,'
+  +'---333555555777888555+++,,,,,,,,,,,,...333333444444444444444444554554544544'
+  +'655655766766766766877877888888888999::::::;;;;;;;;;;;;888888:::;;;<<<OOOTTT'
+  +'YYY^^^bbb???@@@AAAAAABBBCCCDDDDDDFFFFFFFFFGGGHHHHHHIIIIIIIIIIIIJJJJJJIIIIII'
+  +'HHHHHHGGGGGGFFFFFFFFFEEEDDDEEEDDDEEEEEEEEEFFFFFFFFFFFFFFFGGGGGGHHHIIIJJJKKK'
+  +'LLLMMLLMMMMMNNNMMMNNNOOOOOOOOONNNOOOQQQTUUUUUVVVVVVRQQIJJHHHHHHGGGFFFOONNNN'
+  +'MLLLLLLLLLLKJJKKJJIIHIHGHHGGFFFEDDDDDDCCCBAABAAA@@@??????>>>======<=<;;;;:9'
+  +';;:999:89987888877676555555545545343334---+++))))))))),,,212211111111110110'
+  +'00.0/./../.././......--,,,,-,---------,--,--+,+,,++,++++++++++*******,++---'
+  +'-,-,,,,+++++++++++*)*''((''&&''&&&''&&&&&&&''''&&''&&''&&&&&&%''''&''&%&&%'
+  +'''&%&&%&%%''&&&&&&&&&%%&%%&&%%%%%%%%%%%$%$$$%%$%%%%$%%%$%$$$$%$$$#$$$#$$$$#'
+  +'$#$####"#""#"!""!""!""!"!!!!!!!! !!!           '#31#31' '#31' '#31#31#31' '
+  +#31#31#31#30#31#31#30#31#30#31#31#31#31#30#30#31#30#30#30#30#30#30#30#30#29
+  +#30#30#30#30#31#31#31#31' '#31#31#30#31#31#31#31#31#31#29#29#27#28#27#28#27
+  +#27#28#27#27#27#27#27#27#26#27#26#26#27#26#27#26#26#27#26#26#26#26#26#26#25
+  +#26#26#26#26#25#25#26#26#25#25#25#25#25#25#25#24#24#24#24#24#23#25#24#23#25
+  +#23#24#25#24#23#24#23#23#23#23#22#23#22#22#22#23#23#22#22#23#22#22#22#22#22
+  +#22#21#21#22#22#21#22#22#21#21#22#22#21#21#21#22#20#21#21#21#21#20#20#20#20
+  +#21#20#20#20#21#20#18#19#18#16#17#17#17#17#17#16#17#17#17#16#17#16#16#17#16
+  +#16#17#17#17#18#25#26#26'''&&,,-222666999)))'#14#14#13#13#14#13#14#14#14#13
+  +#14#13#13#13#13#13#13#13#13#13#13#12#13#13#13#12#12#12#12#12#12#12#12#12#12
+  +#12#30#30#30#11#12#11'000yyy000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000222999?????????'
+  +'???@@@@@@@@@@@@@@@???878000//////////////////////////////////////////000000'
+  +'111888FFFKKKOOOSSSWWWZZZ???------------,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,'
+  +',,,,,,,,,,,,,,,,,,+++++++++++++++++++++///333444555777888++++++++++++++++++'
+  +'111222222333333333333333333443443433433433544655655655655655666666777777777'
+  +'999999999:::777555666777777<<<MMMRRRWWW[[[]]]<<<<<<>>>>>>???@@@AAAAAABBBCCC'
+  +'CCCEEEEEEEEEEEEFFFFFFFFFFFFEEEEEEEEEEEEDDDDDDDDDCCCBBBBBBBBBBBBAAABBBAAAAAA'
+  +'BBBBBBBBBCCCCCCCCCDDDDDDEEEEEEFFFGGGHHHIIHIIHIJIJIIIJJKKJJJKJJJKKKKKKJJJLLL'
+  +'OOOPPOQQQQQQPPQEEEDEDEEDCCCCCCEEEGGGHGGGGGFFFFFFGGGGHGFFFEEDDDCDDCDCCBAAB@@'
+  +'@????@>>??>>===<<<<<<<<<;;:999:99887887988877767765544454444445444322333111'
+  +'///*)*))))*)())(((/.-001011000100//.//./.-/../--/-..--,,,,,,-,--,,-,,,,,,,,'
+  +',,+,,+,,+,*+,*+++*****)*****)**))*))++++++,+,,,+,**+*******)())''''''&%&&&&'
+  +'&&&&&&&&%%&%&&&&&%&&%&%%''&&''&&&&&&%%&%%''&&&&%&&%&&%%%&%%%%%%%%%&%%&&&&&&'
+  ,'&&&&%%&%%%%%$$$$$$%$$$$$$#$###$####"##"#""#""#"!"!""!!"!!!!!! !  !  !  !   '
+  +'   '#31' '#31' '#31' '#31#31#31#31#31#31#31#31#31#31#31#30#30#31#31#30#31#30
+  +#30#30#30#30#30#30#30#30#30'    '#31#31#31#31' '#31#31#31#31#31#31#29#28#28
+  +#28#27#28#28#27#28#27#27#27#27#27#27#27#27#27#26#26#27#27#27#26#27#26#27#27
+  +#26#26#26#26#26#26#26#26#26#26#26#25#25#26#25#25#25#26#25#25#25#24#24#25#24
+  +#24#25#24#24#24#24#23#24#23#23#24#23#23#24#23#23#23#23#22#23#22#22#23#23#23
+  +#22#22#23#22#22#22#22#22#22#21#22#22#21#22#21#21#21#21#22#21#22#21#21#21#21
+  +#21#21#21#21#21#21#21#21#20#20#20#20#20#20#19#19#19#17#17#17#16#17#17#16#17
+  +#17#17#16#17#16#16#17#17#17#18#20#20#21'***//0454999>>>'#29#29#29#14#14#14#13
+  +#14#13#13#13#14#13#13#13#13#13#13#13#13#13#13#13#13#12#12#13#13#13#12#12#12
+  +#12#12#12#13#12#12#12#27#30#30#11#12#11'000yyy000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000222:::?????????@@@@@@@@@@@@@@@@@@???:::111////////////////////////'
+  +'////////////000111555FFFKKKNNNSSSVVVZZZFFF------,,,,,,,,,++++++++++++++++++'
+  +'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++111222333555666'
+  +'222******+++++++++,,,111111111111222222222222221221322322322322433433544544'
+  +'544544444555666666777777777777666444444444555<<<KKKPPPTTTXXXSSS999:::::::::'
+  +'<<<======>>>???@@@@@@AAABBBAAABBBBBBBBBBBBBBBBBBBBBBBBBBBAAAAAA@@@???@@@???'
+  +'???????????????>>>>>>>>>???@@@@@@@@@AAAAAABBBBBBCCCCCCCCCDDDEEEFFEFFFGGGHGH'
+  +'GFGFFFFFFFFGFFGFGFKKKLLLLLLNNMONOBCCAAABBA@A@?@?>?>>>>======<<;<<<:::9999::'
+  +'999:::::::::999:::898888989988888888999888888988887777776766655555544443333'
+  +'34323222211101100/0/0+,+((((('''''''''''''')()000//0..........---.--.---,--'
+  +',,++,++,,,,,,+,,+++++++,++++++*+*********))*)*))))))))((()(((((()))+*++++**'
+  +'***)***))))))))))((((''&&''%%%%%%&%%&&%&%$&&%''&%&%%''&&&%&&%&&%%&%%&&&&%&&'
+  +'%%&&%&&&''''''''''''''''&''''''&&&''&&&&&&%$%%%%%$%$%$%$$$$$$$##$###$####"#'
+  +'#"#""#"!#!!"!""!""!!!  !!!!!    !     '#31#31#31#31#31'  '#31#31' '#31' '#31
+  +#31#31#31#31#30#31#31#31#31#31#30#30#30#30#30#30#30#31#31#31'    '#31#31'   '
+  +' '#31#31#30#30#30#28#28#28#28#28#28#28#28#28#27#27#28#27#27#28#28#27#27#27
+  +#27#27#27#27#27#27#27#26#26#27#26#26#26#26#27#26#27#26#26#26#26#26#26#25#26
+  +#25#26#25#25#25#24#24#25#24#24#25#24#24#25#24#24#24#24#24#24#23#23#24#23#24
+  +#23#23#23#23#23#23#22#22#22#23#23#22#23#22#23#22#22#23#22#22#22#22#22#22#21
+  +#21#22#22#21#21#21#22#21#21#21#21#21#21#21#21#21#21#21#20#21#20#21#21#20#20
+  +#21#19#19#19#17#17#17#16#16#17#17#17#17#16#16#17#17#18#18#25#25#25',,,222989'
+  +'==>AAA'#17#17#17#14#14#14#14#14#14#13#14#13#13#13#14#14#13#14#13#13#13#13#12
+  +#13#13#13#13#12#12#13#12#12#13#12#12#13#12#12#12#30#30#30#12#12#12'000yyy000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000444;;;???@@@@@@@@@@@@@@@@@@@@@@@@'
+  +'@@@;;;444///////////////////////////000111555EEEJJJNNNRRRUUUYYYHHH---,,,,,,'
+  +'++++++++++++***************************************************************'
+  +'******))))))---111222333555555))))))))))))******///000000000000111111111110'
+  +'110110111111111111211222222322322222222222444444555555555333222333333222;;;'
+  +'JJJMMMQQQVVVPPP666666777888999999999;;;;;;;;;======>>>>>>>>>>>>????????????'
+  +'???>>>>>>>>>===============<<<<<<<<<<<<<<<<<<<<<===============>>>>>>>>>???'
+  +'???@@@@@@@@@AAABABBBACCBCCCCCCCDDBBBBBBCCDBBBGGGGGGHHHIIIJJICCD====>>=<<==<'
+  +';;;;;;:::999888887888777776667565444444444332122011010//////...//////.-.../'
+  +'///655564444433333333333332221010100//////////...--''&(&&&''&&&&&&&&***....'
+  +'-..--------,-,--,,,+++*+**,+*+***++++*++***++*+**+*****)*))*))*))))()(((((('
+  +'(((''((((''''('''''''''''')((**)*)))()))))((''((''((((()))(((''''''(''''''&'
+  +'%''&''''%%&%%''&&&&&&&&''&&&''&(''&(((((())(()()(((''''(''''&&''''&''''&''&'
+  +'&&&&''&&%%%%$%%%%%%$$$$%$$$$$$$$$#$$$$###"##""""#"""!""!!"!""!!!!!!!   !! !'
+  +'      '#31' '#31' '#31' '#31#31#31#31#31#31#31#31#31#30#31#31#31#31#31#30#31
+  +#31'  '#31'  '#31'      '#31'  '#31#31#31#28#28#28#28#28#28#28#28#28#27#28#28
+  +#28#27#27#27#28#27#27#27#28#27#27#27#27#27#27#27#27#26#27#27#27#26#27#27#26
+  +#26#26#26#26#26#26#26#25#26#26#25#26#25#25#25#25#25#25#24#24#25#24#24#24#24
+  +#24#25#23#23#25#24#24#24#23#24#24#23#23#23#23#23#23#22#23#23#23#22#23#22#22
+  +#22#22#22#22#23#22#22#22#22#22#22#22#21#21#21#22#21#22#21#21#22#21#21#21#21
+  +#21#21#21#20#21#21#20#21#20#20#20#20#20#19#17#17#17#17#17#17#17#16#17#18#18
+  +#18#18#18#19'!  ./.455:::A@A222'#14#14#14#14#14#14#14#14#14#14#13#14#14#13#13
+  +#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12#12#12#12#13#12#12#12#12#30
+  +#30#30#12#12#12'000yyy000000000000000000000000000000000000000000000000000000'
+  ,'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000444'
+  +'<<<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>>>878111///////////////000111222DDDIIINNN'
+  +'RRRUUUXXXNNN---,,,,,,++++++*********)))))))))))))))))))))))))))))))))))))))'
+  +'))))))))))))))))))))))))(((((((((((()))///000111333333000(((((((((((()))***'
+  +'////////////////////////////////////0//0//0//0//100100211111111111111111111'
+  +'000/////////000111111<<<FFFKKKOOOSSSDDD444444555555555666777888888888::::::'
+  +':::;;;<<<<<<<<<<<<<<<;;;<<<;;;;;;;;;;;;;;;:::999:::::::::::::::::::::::::::'
+  +':::;;;;;;;;;;;;<<<<<<<<<=========>>>>>>????????>???>??????>>>>>@@@@??BAADDD'
+  +'DDDFFFGGGEEE;;;:::::::99888877777777666554555545344333333333222111000000//.'
+  +'....--..-,,-,,,,,,++++++++*111222222222222222111111000///.///........-,,,,,'
+  +'***%$%%%%&%%$$$#$$+*+-,,,-,,--,-,,,,*+*++*++)************)**)*))*))*)***)))'
+  +'))())())''))(((''(''''(''(''''''&''&''''&''&&&''''''&&&&&%&&''''&((''((''('
+  +'''''''''''''''''(((''(''(((((''(''''(&''(((''('')()()()*)))()(()))(()(())))'
+  +'))))))))((('')''''(''''''''''&''&&''''&&&%%&%%%$%%%$%$$$%$%$%$$$$$$$#$#####'
+  +'$###"##""""#""#""#!!"!!!  !!!!!!! !!       '#31#31'   '#31' '#31#31#31#31#31
+  +#31#31#31#31#31#31#31#31#31#30'!  ! '#31'  '#31'     '#31#29#30#30#28#28#28
+  +#29#29#29#29#28#28#28#28#28#28#28#28#27#27#28#28#28#28#28#27#28#27#27#27#27
+  +#27#27#27#27#27#26#27#27#26#26#26#26#26#26#27#26#26#25#26#26#26#26#25#25#25
+  +#25#25#25#25#25#24#24#25#24#24#25#24#24#25#24#23#24#23#23#24#23#23#23#23#23
+  +#23#23#23#22#23#23#23#23#22#22#22#22#23#22#23#22#22#22#22#22#22#22#22#22#21
+  +#22#21#22#21#21#21#21#22#21#21#21#21#21#21#21#20#21#21#20#21#19#19#19#18#18
+  +#17#17#17#17#17#17#17#18#18#18#21#20#21')))111888>>=CCC###'#15#14#14#15#14#14
+  +#14#14#14#14#14#14#14#14#13#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13
+  +#13#13#13#13#13#13#12#12#30#30#30#12#12#12'000yyy000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000222:::@@@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAA<<<555'
+  +'//////000111333BBBIIIMMMQQQVVVXXXQQQ///,,,++++++******)))))))))(((((((((((('
+  +'((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((+++///000'
+  +'111222333(((''''''''''''''''''''''''(((---................../////.//./../..'
+  +'/..///////////////0////////----,-,,,,,,,,,,,,------......000999DDDJJJNNNQQQ'
+  +'BBB111222222333333444444555555666777777777888999999888999999:::999999888888'
+  +'888888888888888888888888888|||'#147#147#147#147#147#147#140#140#140'nnn@@@8'
+  +'88999999999:::999999::::::;;;;;;;;;<<<<<<===<<<<==;<;;;<<<<;;;<<<AAAAAABBBC'
+  +'CCCCC989776788777666655544444333222222222222121000//////...-------,----,,,+'
+  +',+,,,*+****)))))))***++1001000001001000////...---.--..---..,,,+,,+,,++,''&&'
+  +'$$$#########%%%,++,+,+++,,+******))))))**)))))))**)*)))())()())())))((((((('
+  +'((''((&((&(&''''&&''&&&&&&%&%%&%%&%&%%%%%%%%%%%%%%%&''''%''&&&&&''''''''&'''
+  +'&&''(''''''''&(''''''''''((((((((((()))))(())))(()(((((*))))))()))(((''('''
+  +'''''''''''&&&&&&&&&%&%%%%%%%%%$%%%$$$$$$$%$$$$$$$#$$$####$#"##"#"!#""#!!""!'
+  +'"!!! !!! !! ! !     !   '#31#31#31' '#31#31' '#31'  '#31#31#31#31#31'  '#31
+  +' '#31'   '#31'! '#31'  '#31#31#31#31#29#28#28#28#28#29#29#28#29#28#28#28#28
+  +#28#28#27#28#28#27#27#28#28#28#28#28#27#27#28#27#27#27#27#27#27#27#27#27#26
+  +#27#26#26#26#26#26#26#27#26#26#26#26#26#26#26#26#25#25#25#25#25#25#26#25#24
+  +#25#25#24#25#24#24#25#24#24#24#24#24#24#23#24#24#23#23#23#23#23#23#23#23#23
+  +#23#23#23#23#23#22#22#22#22#22#22#22#22#22#22#21#21#22#22#22#21#22#21#21#22
+  +#22#21#21#21#21#21#21#21#21#21#20#21#21#18#17#19#17#17#18#18#17#17#17#17#17
+  +#18#18#18#25#25#26',--222:::???EEE'#18#18#18#14#15#14#14#15#14#14#15#15#14#14
+  +#14#13#14#14#14#14#14#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#12
+  +#12#13#13#30'  '#13#12#13'000yyy00000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'0000000000000000000222999???@@@@@@AAAAAAAAAAAAAAAAAAAAAAAA@@@;;;666222AAAII'
+  +'ILLLQQQVVVXXXQQQ///,,,++++++******))))))(((((((((((('''''''''''''''''''''''
+  +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+  +'''''''''''''''''''''''''''''''''''''''''''''''''''''''---...///000111...&&&'
+  +'&&&&&&&&&&&&(((---------------------------------------,,,,,,+++))*))))))***'
+  +'*********+++++++++++++++,,,,,,...:::CCCGGGKKKOOO===///000000222222222333333'
+  +'333444444444555666666666555666666666666666666666777666666555555555666666666'
+  +#179#179#179#179#179#179#179#179#179#179#179#179#179#179#179#155#155#155'>>>'
+  ,'66666677777777777788888888899999999999999998999999999999:999988<<<>>>???@@@'
+  +'AA@===;<;:9:888888666434222222222222111/0000000/...---------,,,,++**+***)**'
+  +'))*)()((((((((((((((''...//.000/..0...----------,,,-,,+++,++,+++++++++(()$#'
+  +'$$#$$##$#####&&%+++***)***))))))))))))))))())))(()(()(((((((''''(''(('''''''
+  +'''''''''''''''''''''''''&&&&&&&''&&&&&&&&%&%&&%%%%%%%%%%$%%$%%%%%$%$$%$%%%&'
+  +'%%&&%&&&&''&&&&''''&''&&(''''(((((((((((()))))()))*()())**)))))))(''(''('''
+  +'''&''&&&&&&&&&%%&%%&&%%%%%%%%%%%$%$$%%%%$$$$$$$$$$$$#$$#$####"##"#""""!""!"'
+  +'!!""!"!!!!!! !! !   !        '#31' '#31#31' '#31'         ! '#31' '#31'   '
+  +#31#29#30#29#29#29#29#29#29#29#28#28#29#29#29#28#28#28#29#28#28#28#27#28#28
+  +#28#28#28#28#28#27#28#28#27#28#28#27#27#27#27#27#27#27#27#27#27#26#27#26#27
+  +#26#27#26#26#26#26#26#26#26#25#25#26#25#25#26#24#25#25#24#24#25#25#24#25#24
+  +#24#25#24#24#24#23#24#24#24#24#23#24#23#23#23#23#23#22#23#22#22#23#22#22#22
+  +#22#22#22#22#22#22#23#22#22#21#22#22#22#22#21#21#21#21#21#21#21#22#22#21#21
+  +#21#22#20#20#20#18#18#18#18#17#18#18#17#17#18#18#18#20#20#20'"""///655==<CCB'
+  +'444'#15#15#15#15#15#15#14#15#14#14#14#14#15#14#14#14#14#14#14#14#13#14#13#13
+  +#14#13#14#13#13#14#13#13#14#14#13#13#13#13#13#12#12#12#30'  '#13#12#12'000yy'
+  +'y00000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000011177'
+  +'7???AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCCDDDHHHLLLQQQUUUXXXWWW555,,,++++++***))'
+  +'))))(((((((((''''''''''''''''''''''''''''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'
+  +'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&(((---...///000111''''''%%%%%%%%%%%%%%'
+  +'%***,,,,,,,,,,,,,,,,,,****))))))))(()''''''''''''''''''''''''(((((((((((((('
+  +'())))))******+++++++++++++++...<<<CCCHHHKKKNNN666............///00011111111'
+  +'1222222222333333333333444444444444444333444444444333333444444444444555555'
+  +#181#181#181#181#181#181#181#181#181#181#181#181#181#181#181#181#181#181#149
+  +#149#149'555555555555555555666666666666777777777777777666777565655566666898;'
+  +';;===>>>>>>>??@@@A@AA@@@@?@??>?>?>>>>>===::::::998667555545343001000../,,,*'
+  +'*))**(((((((((''''''''''''''''''''''''&&&)))//...---------,-,,,,,+++++++++*'
+  +'+*+********))))))''''''"!##"""""""""""&&&(()(()(()((())))))))())()(()(((('''
+  +')''''(''''''&''''''''''''''''''''''''''''''''''''''''''&''''&&&%&&&&%%&%%%%'
+  +'%%%$%%$$%%$$$$$$$$$$#$$$$$##$##$$$$##$#$$$$&%%&%&&&&''&&(''&(((((()((((())('
+  +'(((()((((''((((((''''''''''''''&''&''&''&&&&&&&&&&&&&&&%&&%&&%%%%%%%$%%$$$$'
+  +'$%$$$$$$$$$$#$$#######"##"#"!#"!#!"""!"!!"! !!!!      !   ! '#31#31#31' '#31
+  +'! '#31'   !      '#31#31'!  '#31#31#30#30#30#29#29#29#29#29#29#29#29#28#29
+  +#28#29#29#28#29#29#28#28#29#28#28#28#28#27#28#28#28#28#27#27#27#27#28#27#27
+  +#27#27#28#27#27#27#27#27#26#26#27#26#27#27#26#26#26#26#26#26#26#26#26#25#25
+  +#25#25#25#24#26#25#25#25#25#24#25#25#24#25#24#24#24#24#24#24#24#23#23#24#24
+  +#23#23#23#23#23#23#23#23#23#23#23#22#22#22#22#23#22#23#22#22#22#22#22#22#22
+  +#22#22#22#22#21#22#21#22#21#21#21#21#21#22#19#19#19#18#18#18#18#18#18#18#17
+  +#17#18#18#19#21#22#21'+++122898???DDD#$#'#15#15#15#15#15#15#14#15#14#14#14#14
+  +#15#15#15#14#14#14#14#14#14#14#14#14#14#14#14#13#13#13#14#13#13#13#13#13#13
+  +#13#13#13#12#13'   '#13#13#13'000yyy0000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000555<<<AAAAAAAAAAAAAAAAAABBBCCCEEEGGGK'
+  +'KKPPPTTTXXXVVV555,,,,,,+++******)))((((((''''''''''''''''''&&&&&&&&&&&&&&&&'
+  +'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&%%%%%%%%%%%%%%%%%%%%%+++,,,-'
+  +'--///000...%%%%%%%%%%%%%%%&&&''''''''''''''&''''&''&&&&&&&&&&&&&&&&&&&&&&&&'
+  +'&&&&&&&&&&&&&&&''''''''''''''''''''''''''''''))))))***++++++///444:::@@@CCC'
+  +'GGGJJJLLL444,,,,,,---------------/////////000000111111111111111111222111222'
+  +'222222222222222111111222222333222222SSS222:::'#132#132#132#182#182#182#182
+  +#182#182#182#182#182'TTT3333333334444443333333334444444444445554434444444444'
+  +'34434434545:::;:;;;;<<====@@@@@@@?@?????>>>>>>>>=====<<<<<<<<<;;;;;;;;;9999'
+  +'89877877777777555555221000***&&&&&&&&&%%%%$%+**--+-,,-,,,,,,++++++++++*+**+'
+  +'++***)**)))))))))))(%$%""""!""!!!!!!!!''''''))())(()()()((((((((''(('''''''
+  +'''''''''(&''''''''''''''''&''''&''''''''''&&&''''&&&&&&&&%&&%%%%%%$&%$%$$$$'
+  +'$$##$$$$##$####################$#"####""$##$#$$$$$$$%%%$%%&&&''''&&&''((('''
+  +'''''(((''''''('''')(''(''''(''''''''''''''&''''''&&&&''''&&&&&&&&&&%&%%&%%&'
+  +'%%%%%%$%$%$%%$%%$$$$$$$$$$$$$$#$#$####"#""#"!"!!"!!""!"!!!!!! !   !  !     '
+  +'   !! ! !         '#29#29#29#29#29#29#29#30#29#29#29#30#29#29#29#29#29#29#29
+  +#28#28#29#28#28#28#29#29#29#28#28#28#28#28#28#27#28#27#28#27#27#27#28#28#27
+  ,#27#27#27#27#27#27#27#27#26#27#27#27#26#26#26#26#26#26#26#26#25#25#26#25#25
+  +#26#24#25#25#24#25#25#24#24#25#24#24#25#24#24#24#24#24#24#24#24#24#23#24#23
+  +#23#23#24#23#23#23#23#22#23#23#23#22#23#22#22#22#23#22#22#23#22#22#22#22#22
+  +#22#22#22#22#21#22#21#22#22#21#18#18#18#18#18#18#18#18#18#18#19#19#20#20#20
+  +#28#28#28'...444;:;A@ACBB'#18#19#19#15#15#15#15#15#15#15#15#15#14#15#14#14#15
+  +#14#15#15#15#14#14#15#14#14#14#14#14#13#14#14#14#14#14#14#14#13#13#14#13#13
+  +#13#13#13'   '#13#13#13'000yyy0000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000222999???AAABBBBBBCCCDDDFFFIIINNNSSSV'
+  +'VVXXX999---,,,+++******)))((((((''''''''''''&&&&&&&&&%%%%%%%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'''''',,,---.../'
+  +'//000''''''$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&&&&&'
+  +'&&&&&''''''((((((((((((+++//0555888::::::===@@@DDDFFFIIIKKK***++++++++++++,'
+  +',,---------------......////////////000000000///000000000///0000001110001111'
+  +'11111111111111111111111'#167#167#167#184#184#184#184#184#184'}}}11111111111'
+  +'1111111111222222222222222222222333222222111111101011788999:::;;;<<<????????'
+  +'????????>?>>=<=<<<<<=<<<<<<<;;;:;:::::::889889778666444333333333333/0/$$$$$'
+  +'$%$%$$$$$$$$%,++,,,,*+++*,**+**********)))))()((()()(()((((''(''''''###  ! '
+  +'   !       ''''&(((''((''''''''(''''''''''''''''''''''''''''''''''''''''&&'
+  +'''&''''&%&%&&&%%%&&%&&%%&%%$%%%%$%%$%%$$$$$$$$$$$$#$$$#$$###$########"####"'
+  +'"#"##"##"#""$##$##$$$$$#$$%%%%%$%&%&''&''&''&''''''''''''((((''(''''''((''('
+  +'''((''''''''''''&''&''&''&&&&&&&&&&&&&&&&%&&%%%%%%%%$%%%$$$%$$$$$$$$$$$$#$$'
+  +'#$$#####"##"#""#"!""!#!""!!" !!!!!  ! !   !!!!!!! !  !      '#30#30#30#29#30
+  +#29#30#30#29#30#29#29#29#30#29#29#29#29#29#29#29#29#29#29#29#29#28#28#28#28
+  +#29#28#28#28#28#28#27#28#28#28#28#28#28#27#27#28#28#28#27#27#27#27#27#27#26
+  +#27#27#26#27#27#27#26#26#26#26#26#26#26#25#26#25#25#26#24#25#26#25#25#26#24
+  +#24#25#24#25#25#24#24#24#24#24#24#24#23#24#24#24#23#23#23#23#24#23#23#23#23
+  +#23#23#23#23#23#23#23#22#22#22#23#23#22#22#22#22#22#22#22#22#22#21#22#22#21
+  +#21#21#18#19#18#18#18#19#18#18#18#19#19#19#21#21#20'$$%211777>>>BCC212'#15#15
+  +#15#16#15#15#15#15#16#15#15#15#15#15#15#14#15#14#14#15#14#15#14#14#14#14#14
+  +#14#14#14#14#14#13#13#14#14#13#13#13#13#13#14#13#13#13'   '#13#13#13'000yyy0'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000555;;;BBBCCCEEEGGGKKKNNNTTTWWW>>>---,,,++++++***)))(((((('
+  +'''''''''''''&&&&&&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%***+++,,,......---$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&''''''''''''***--.222666888999999'
+  +':::<<<<<<???BBBDDDGGGHHHIII))))))******++++++++++++,,,,,,,,,,,,,,,,,,,,,---'
+  +'---...............//////.........//////////////////////////////000mmm'#186
+  +#186#186#186#186#186#151#151#151'000000000000000000000000000000000///0000000'
+  +'00000000////////////222888999;::===?????????>>>>>>=>>>>>=>><<=<<<;;;;<;;;;;'
+  +';;::9::999:899677566444343222222111111((($###$$#$#######&&&+********+******'
+  +'**))))))())(()())((((((((((((''''''%%%!!   !     ! ! !!!((''(''''''((((''('
+  +'''''''''''''''''''''&&''&&&&''&&''%&&%%&%%%%%%%%%%%%%%%%%%%%%%%$%$%$$%%$$$#'
+  +'$##$######"#""#"#""""""""""###"#""""##"##"#""###$#"$$#%%$$$$%%%&&&''&'''''''
+  +'''((''''''(((((((((((('')(((''''(''''''&''''''&''''&''&&&&&&&&&&&&%%%&%%&&&'
+  +'%%%%%%%%%$$%%%%$$%$$$$$$$$$$$########"##"#""#"""!!"!!"!!"!!!!!!! "!""!!!!!!'
+  +'!!! !  !'#31#31#30#30#30#31#30#30#30#30#29#30#29#30#30#29#29#29#29#29#29#29
+  +#29#29#28#29#29#29#28#28#28#28#29#28#28#29#28#28#28#28#28#28#28#27#28#27#27
+  +#27#28#28#27#27#27#27#27#27#27#27#27#27#27#26#27#27#27#27#27#26#26#26#26#26
+  +#26#25#25#26#25#25#26#25#25#26#25#25#25#24#25#25#24#24#25#24#24#24#24#24#24
+  +#23#24#23#24#23#24#24#23#24#23#23#23#23#23#23#23#23#23#23#22#22#22#23#22#22
+  +#22#22#22#23#22#22#22#22#22#22#19#18#19#19#18#18#18#19#18#18#18#18#19#19#19
+  +#24#25#26',,,4349::@@AFEF'#30#30#29#16#15#16#15#16#15#15#15#15#15#16#16#15#15
+  +#15#15#15#15#15#15#14#15#14#15#15#15#14#14#14#14#14#14#14#13#14#14#13#13#14
+  +#13#13#14#13#13#14'   '#13#13#13'000yyy0000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000666>>>HHHL'
+  ,'LLOOOSSS???...---,,,+++******)))(((''''''''''''&&&&&&%%%%%%%%%%%%$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$&&&+'
+  +'++,,,,,,...///&&&########################$$$$$$###%%%%%%%%%%%%%%%&&&&&&'''''
+  +'''***.-.222555555777777888::::::<<<======???@@@CCCDDDFFFGGGBBB)))))))))))))'
+  +')))))***************++++++,,,,,,,,,,,,,,,,,,,,,,,,,,,---------------------.'
+  +'..........................RRR'#188#188#188#188#188#188#170#170#170'////////'
+  +'//////////.....................//////.....-.....-...---..-///00033344555688'
+  +'8999999899>>>>>><==<=<<<<<<=;;<;;;;;;;;;::9:9:888788555322111000000//////..'
+  +'-###$$##""""""""##"))(+*)+*****)(((((((((((((((((''(((''(''''''&&''&&&&&&&&'
+  +'&#$$'#31'              !!!''''&''''''&''''''&&''&&&&&''''''''&&''''&''''%&&'
+  +'%&%%&%%&%%$%%$%$%$$%$%$$$$$$$$$$$$$$$$$#$##$##$###########""#""#"""""""""""'
+  +'""#""""##"#""###$##$##%$$&%%&&&%%&''''''(''''(''((((((((''())((('')(''('''''
+  +'(''''''''''''''''''&''''''''&''&&&&&&&&%&&&%%%%%%%%%$%$%%$%$%$%$%$$$$$$$$$#'
+  +'#$#$$#$###"##"""!#""""!"!!"!!"!!""!!""!!!!"!!!!! !'#31'  '#30#30#31#31#30#30
+  +#30#30#30#30#30#30#29#30#29#30#30#30#29#30#30#30#29#29#29#29#29#29#29#29#29
+  +#29#29#28#28#28#29#28#29#28#29#28#28#28#28#28#28#27#28#28#28#27#27#28#28#27
+  +#27#27#27#27#27#27#27#27#27#27#26#26#26#26#26#26#26#25#26#26#25#25#26#25#25
+  +#26#25#24#25#25#25#25#24#24#25#25#24#24#24#24#24#24#24#23#24#23#24#23#24#23
+  +#23#23#23#23#24#23#23#23#23#23#23#22#22#23#22#22#22#22#23#23#23#22#22#21#21
+  +#21#19#19#18#19#19#18#18#18#19#20#20#20#21#21#21' !!/./667===CDD???'#16#16#16
+  +#15#16#15#16#16#15#16#15#15#15#15#16#15#15#15#14#15#15#15#15#14#15#15#14#15
+  +#15#15#15#14#15#14#14#15#14#14#14#14#14#14#13#14#13#13#13#13' ##'#13#13#14'0'
+  +'00yyy0000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000222:::DDDBBB...------,,,+++***)))(((('
+  +'((''''''&&&&&&%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$)))++++++---...,,,#########$$$$$$$$$$'
+  +'$$$$$$$$$$$%%%%%%&&&)))-,-///111444444555666666777888888999:::;;;<<<===>>>@'
+  +'@@@@@BBBCCC>>>444---''''''((((((((((((((((((((((((((())))))************++++'
+  +'++++++++++++++++++++++++++,,,,,,,,,,,,,,,,,,,,,------------------QQQ'#190
+  +#190#190#190#190#190#190#190#190'-------------------------------------------'
+  +'-----,,,,,,,,++++++++++++++++++++++**+******)))))))))))(((())),,-,,,+,+...1'
+  +'11101011444443323111323000............///(((""""""""""#""""$$$*))))()()))()'
+  +'()(()(((((((((''((''&''&''&''&&&&&&&&&&&&&%###'#31#31#31#31#31#31#31#31#31
+  +#31#31#31#31#31#31'!!!''''&''&''''&''&''''&&&&&&&&&&&%%&%%%%%%%%%%&%%&%%%%%$'
+  +'%%$%%%%$$$$$%$$$#$$####$###""#""#""""""""""""""""""""""!"!""""##""""##"##"$'
+  +'##%#$%$$%$$%%%&&&''''''&''&(''()((((((''())())(((''((''((''(''''''''''''''&'
+  +'&''&''&&&&&&&&&&%&&&%&&&%&&&%%$%%%$%%$$$%%$%$$$$$$$$$$#$$#$#####"##""""""""'
+  +'"!"!!""!"""""!""""!"!!!   '#31#31#31#31#31#30#31#30#30#30#30#30#30#30#30#30
+  +#30#29#30#29#30#29#30#29#30#29#29#30#30#30#30#29#29#29#29#29#29#29#28#28#29
+  +#28#28#28#28#28#28#28#28#28#28#27#28#28#28#27#28#28#27#28#27#27#27#27#27#27
+  +#27#27#27#27#27#27#27#26#26#27#25#26#26#25#25#26#25#25#26#25#25#26#25#25#26
+  +#25#25#25#24#24#24#25#24#24#24#24#23#24#24#24#24#24#24#24#23#23#23#23#23#23
+  +#24#23#23#23#23#23#23#22#23#23#22#23#22#23#22#22#20#21#20#19#19#19#18#19#19
+  +#19#18#19#19#20#19#22#22#23',,,333999@@@EEE+,+'#16#16#16#16#16#16#15#16#16#16
+  +#16#16#16#15#16#16#15#16#15#15#15#15#15#15#15#15#15#15#14#15#14#15#14#14#14
+  +#14#14#14#14#14#14#14#14#14#13#13#14#14'   '#13#13#14'000yyy0000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000/////////......---,,,++++++***)))(((''''''''''''&&&%%%%%%%'
+  +'%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$&&&***+++,,,---...&&&$$$%%%%%%''''''''''''***,+,---0000'
+  +'00333333333444666666666777888888999999:::;;;<<<<<<===??????@@@???666000'''''
+  +'''&&&&&&&&&&&&''''''''''''''''''''''''''''''(((((((((((((((((((((((())))))*'
+  +'***********************++++++++++++++++++++++++++++++++++++,,,,,,,,,QQQ'#192
+  +#192#192#192#192#192#192#192#192',,,,,,,,,,,,,,,,,,,,,,,,,,,++++++++++++++++'
+  +'++++++++++++++**++++***************)))*))*))(((((('''''''''''''''''''''''''
+  +'''''''''''''''''''''''''&&&&''&%%%%%%%%%$$$%$%%$%%%$+++-.-------------"""""'
+  +'""""""""""!!!&&&)(()((((((((''(''''''(''''''''''''''''''''&''''''&&''''&'''
+  +'''''&&&&&&&&&&%"""'#31#31#31#31#31'  '#31#31#31#31' '#31#31#31'!!!''''&'''''
+  ,'&&''''&&&&&&&&&&%&%%%&&%&&%%%%%%%%%%%$%%%%%$%%%%$$$$%$$$$$$$#$#####$"#""#""'
+  +'#"""""""""""""""""""""!""!"""""""##"##"$##$$$$$#%%%&&%&&''''&''''''''(((((('
+  +'(((((())))))((((((((''(''''(''''''''''''''''''''''&&&&''&&&&%&&&&&%%%%&%%%%'
+  +'%%$%%%$$$$$%%$$$$$$$$$$$###$#$$$###""#"""!#"!"""#"!""!"""!"""""   '#31#31#31
+  +#31#31#31#31#30#31#30#31#31#30#31#31#30#30#30#30#30#30#30#29#30#29#30#30#29
+  +#29#30#29#29#29#29#29#29#29#29#29#29#29#29#29#29#28#29#29#29#28#28#29#29#28
+  +#28#28#28#28#27#28#28#27#27#28#28#28#28#27#27#27#28#27#27#27#27#27#27#26#26
+  +#27#26#26#26#26#25#26#26#25#26#25#25#26#25#25#26#25#25#25#24#25#25#24#25#24
+  +#24#24#24#24#24#24#24#24#24#23#24#24#24#23#23#23#23#23#23#24#23#23#23#23#23
+  +#23#23#23#23#22#22#21#19#19#19#20#19#19#19#19#19#20#20#20#21#20#21#31#30#31
+  +'//0555<<<CCBFFF'#19#20#19#16#16#16#16#16#16#16#16#16#15#16#16#16#15#16#15#15
+  +#15#16#15#15#15#15#15#15#15#15#15#15#15#15#14#14#14#15#15#14#15#14#14#15#15
+  +#14#14#14#14#13#13' ##'#13#13#14'000yyy0000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000000000////'
+  +'/////......---,,,+++***)))((((((''''''&&&&&&%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$888LLLLLLLLLLLL...*'
+  +'**+++,,,---...///111222222333333333444555555555555555666777777888999999:::;'
+  +';;;;;<<<<<<===>>>>>>>>>999333***%%%%%%%%%%%%%%%&&&CCCWWWtttttttttXXX:::'''''
+  +'''''''''''''''''''''((((((((((((((((((((((((((()))))))))************GGGPPPP'
+  +'PPGGG*********++++++++++++++++++QQQ'#194#194#194#194#194#194#194#194#194'++'
+  +'++++++++++++++++++++++++++++QQQQQQPPPPPP===************)***********)))())))'
+  +')''''''(''(ONONNNNONNNN''''''''''''''''''''&&&&''&&&%%%%%&%%%888LLLLLL$$$$$'
+  +'$$$$#$$$$$>>>dddwwwwww\\\444!"!""!!"!!!!!!!"""(('')('')(((((''(('''''''''''
+  +''''''''''''''':::NNMuutttukkkCCC&&&&&%&&%!!!'#31#31#31#31#30' '#31#31#31#31
+  +#31#31#31#31#31'!!!&''&&''&&''&&&&&&&&&&&&&&&%%&%%%%&%%%%%%%%%%%$$$$$$$$$$$$'
+  +'$$$$$$$$#$##$$"$$"##"#""#"""""!!!""""""""""""!""!"""#""""$$"$$$$##$##&%%&%&'
+  +'''&&''''''''''''(''(''(()((((()))))))))(()(((((''(''((''''''''''''''&''&''&'
+  +'&&&&&&&&&&%%%&%%%%%%%%%%%%%$%$%$%%%$$$$$$$$$#$$#$$###$##$#"#""#"""""""!""!"'
+  +'"!"""!!! '#31' '#31#31#31#31' '#31#31#31#31#31#31#31#31#30#30#31#31#30#30#30
+  +#30#30#30#30#30#30#30#30#30#30#29#30#30#30#30#30#30#29#30#29#29#29#28#29#28
+  +#28#29#29#29#29#29#28#29#28#28#28#28#28#28#28#28#28#27#28#27#28#27#27#28#28
+  +#28#27#27#27#27#27#26#26#26#26#26#26#26#25#26#25#26#26#26#25#26#25#25#26#25
+  +#25#25#24#25#25#25#25#24#24#25#24#24#24#24#24#24#23#24#24#24#24#24#24#23#23
+  +#23#23#24#23#24#23#23#23#23#23#23#23#21#20#21#19#20#19#19#19#19#19#19#19#20
+  +#19#20#23#23#23'*)*333:9:?@?EEE223'#17#16#17#17#16#16#16#16#16#16#16#16#15#16
+  +#16#16#15#16#16#15#16#15#16#16#15#15#15#15#15#16#15#15#15#15#15#15#14#15#14
+  +#14#14#15#15#15#15#14#14#14#14#14#14'# #'#14#13#13'000yyy0000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000/////////......---,,,+++***)))((((((''''''&&&%%%%%%%%%$$$$$$$'
+  +'$$'#156#156#156#196#196#196#196#196#196#156#156#156'$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$...'#176#176#176#196#196#196#196#196#196#196#196#196'```$$$$$$$$$$$$```'
+  +#166#166#166#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196
+  +#196#196#166#166#166'xxx,,,---///000222'#196#196#196#196#196#196#196#196#196
+  +'YYY666666777777777~~~'#196#196#196#196#196#196#152#152#152'999:::;;;;;;<<<N'
+  +'NN'#196#196#196#196#196#196#196#196#196'666222+++$$$$$$$$$%%%%%%%%%%%%///uu'
+  +'u'#176#176#176#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196
+  +#196#196#196#196#196#196#176#176#176'uuu111''''''''''''''''''''''''''''''((('
+  +'(((((((((((('#157#157#157#196#196#196#196#196#196'OOO(((mmm'#177#177#177#196
+  +#196#196#196#196#196#196#196#196#196#196#196#177#177#177'www444*************'
+  +'*****QQQ'#196#196#196#196#196#196#196#196#196'*********************GGG'#138
+  +#138#138#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196
+  +#196#177#177#177#138#138#138'PPP))))))(((((''(((''(''(''(EEE'#137#137#137#196
+  +#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#147#147
+  +#146'&&&%%&&&%$$$$$%BBB'#156#156#156#196#196#196#196#196#196#196#196#196#196
+  +#196#196'$$$###VVV'#166#166#166#196#196#196#196#196#196#196#196#196#196#196
+  +#196#196#196#196#186#186#186'```!!!!!!!!!!!!!!!###((()''(('''''''''''''''''''
+  +'''''lll'#166#166#166#196#196#196#196#196#196#196#196#196#196#196#196#196#196
+  +#196#196#196#196#176#176#176'NNM&&%&%$!!!'#30#30#31#31#31#31#196#196#196#196
+  ,#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#176#176
+  +#176#137#137#137'XXX&%&&%%&%%%%$%%%%$$%$$%$$$$$ttt'#196#196#196#196#196#196
+  +#156#156#156'$$$$$$#$###"$$"$""-,,'#186#186#186#196#196#196#196#196#196#196
+  +#196#196'___""""""""!#""""#$##$$#$$#%$$&%%''&&''''&''''''''''''(((((())()())'
+  +'**))))())))))((((((''(''''(''''''&''''&''&''&&&&''&&&&&&%&&%&%%&%%%%%%%%%%$'
+  +'%%$$$$%$$$$$%$$$$##$##$$###"#""""""!""!"#""""!"!!      '#31' '#31#31' '#31
+  +#31#31#31#31#31#31#31#31#31#30#31#30#30#30#30#31#30#30#30#30#30#30#30#30#29
+  +#30#29#29#29#29#29#29#30#29#29#29#29#29#29#29#29#29#28#29#29#29#28#29#29#28
+  +#28#28#28#28#28#28#28#27#27#28#28#28#28#28#27#28#27#27#27#27#27#27#27#26#26
+  +#27#26#26#27#25#26#26#25#25#26#25#25#26#25#25#25#25#25#25#25#25#24#25#25#24
+  +#24#24#24#24#24#24#24#24#24#24#24#24#24#24#23#24#24#24#24#24#23#23#23#22#22
+  +#22#20#20#19#20#20#20#19#20#20#20#20#20#21#21#21#28#28#29'///555=<<BBBFFF'#27
+  +#27#27#17#16#17#16#17#17#17#16#17#16#16#16#16#16#17#16#16#16#16#15#16#15#16
+  +#16#15#15#15#16#16#16#16#15#15#15#15#15#14#14#15#15#15#15#15#14#14#14#14#14
+  +#14#14#14'###'#14#14#13'000yyy0000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000//////......-'
+  +'-----,,,+++***)))(((''''''''''''&&&%%%%%%$$$$$$$$$$$$'#158#158#158#199#199
+  +#199#199#199#199#158#158#158'$$$$$$$$$$$$$$$$$$$$$$$$'#138#138#138#199#199
+  +#199#199#199#199#199#199#199'$$$$$$$$$...'#158#158#158#199#199#199#199#199
+  +#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199
+  +#199#199#199#199#199#199',,,---///222555'#199#199#199#199#199#199#199#199#199
+  +'\\\888888999999999'#129#129#129#199#199#199#199#199#199#129#129#129';;;<<<='
+  +'==<<<777222'#199#199#199#199#199#199#199#199#199'$$$$$$$$$$$$$$$$$$$$$$$$%%'
+  +'%lll'#189#189#189#199#199#199#199#199#199#199#199#199#199#199#199#199#199
+  +#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199
+  +#189#189#189'YYY&&&&&&'''''''''''''''''''''''''''''''''''''''''''#159#159#159
+  +#199#199#199#199#199#199'PPP'#139#139#139#199#199#199#199#199#199#199#199#199
+  +#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#179#179#179'FFF'
+  +')))))))))))))))QQQ'#199#199#199#199#199#199#199#199#199'))))))))))))))))))d'
+  +'dd'#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199
+  +#199#199#199#199#199#199#199#199#199#199#199#199'xxx((((((((((((((((((nnn'
+  +#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199
+  +#199#199#199#199#199#158#158#158'%%%%$%%%%%%%/..'#189#189#189#199#199#199#199
+  +#199#199#199#199#199#199#199#199#199#199#199'$#$$$$vvv'#199#199#199#199#199
+  +#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199
+  +'UVU!!!!!!!!!!!!!!!%$%(''''('''''''''''''''''''''''#159#159#159#199#199#199
+  +#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199
+  +#199#199#199#199#199'NNN&&%%%$!!!'#31#31#31#199#199#199#199#199#199#199#199
+  +#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199#199
+  +#199#199#199#179#179#179'NNN&&%&%%&%%&%%&$$%$$%$$vvv'#199#199#199#199#199#199
+  +#158#158#158'$$$$$$$#$$##$$####'#168#168#168#199#199#199#199#199#199#199#199
+  +#199'```""""""""""""######$$$$$$$%#%%$&%$&&&''''&''''''(''(((((''(())(((*)*)'
+  +'))))))))))((())((((''((''''''''''''''''''&''''&&&&&&&&&&&&%&%&%&&%%%%%%%%%%'
+  +'%%$%%$%$$$%$$$$$$#$#$$#""##""""""!""!!"!"!!!!        '#31#31' '#31#31#31#31
+  +' '#31#31#31#31#31#31#31#31#30#31#31#30#30#31#30#30#30#31#30#30#30#30#30#30
+  +#30#30#30#30#30#30#30#30#29#30#29#29#29#29#29#29#29#29#28#28#28#28#27#28#28
+  +#27#28#28#28#28#28#28#28#27#28#28#28#28#28#28#28#27#27#27#27#27#27#26#26#27
+  +#26#26#27#26#26#26#25#26#26#26#25#26#26#26#26#25#25#25#25#25#25#25#25#24#25
+  +#24#25#25#24#24#24#25#24#24#24#24#24#23#23#24#23#24#23#23#23#23#23#21#21#21
+  +#20#20#20#20#20#20#19#19#19#21#20#21#24#24#24'''''''222999@?@EDD:99'#17#17#17
+  +#17#17#17#16#17#17#17#17#17#16#16#16#17#16#16#16#16#16#16#16#16#15#16#16#15
+  +#16#16#16#16#16#15#16#16#15#15#16#15#15#15#14#14#15#14#15#15#14#14#14#14#14
+  +#14'###'#14#14#14'000yyy0000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000//////......------,'
+  +',,+++***)))(((''''''''''''&&&%%%%%%$$$$$$$$$$$$'#129#129#129#201#201#201#201
+  +#201#201'www$$$$$$$$$$$$$$$$$$$$$XXX'#201#201#201#201#201#201#201#201#201#149
+  +#149#149'$$$$$$$$$...'#170#170#170#201#201#201#201#201#201#201#201#201#180
+  +#180#180'wwwMMMMMMbbb'#129#129#129#191#191#191#201#201#201'---...///333666'
+  ,#201#201#201#201#201#201#201#201#201'::::::;;;;;;;;;;;;'#130#130#130#201#201
+  +#201#201#201#201'~~~000***''''''$$$$$$$$$'#201#201#201#201#201#201#201#201
+  +#201'$$$$$$$$$$$$$$$$$$$$$$$$'#139#139#139#201#201#201#201#201#201#201#201
+  +#201#201#201#201#191#191#191#139#139#139'wwwwwwwww'#150#150#150#191#191#191
+  +#201#201#201#201#201#201#201#201#201#201#201#201#140#140#140'&&&&&&&&&&&&&&&'
+  +'&&&'''''''''''''#160#160#160#201#201#201#201#201#201#171#171#171#201#201#201
+  +#201#201#201#191#191#191#130#130#130'yyyyyy'#181#181#181#201#201#201#201#201
+  +#201#201#201#201#191#191#191'<<<((((((((((((PPP'#201#201#201#201#201#201#201
+  +#201#201'(((((((((((((((eee'#201#201#201#201#201#201#201#201#201#191#191#191
+  +#140#140#140'eeePPP[[[yyy'#171#171#171#201#201#201'yyy'''''''''''''''''''''''
+  +'''''''''xxx'#201#201#201#201#201#201#201#201#201#201#201#201#150#150#150'wx'
+  +'xxxx'#139#139#140#191#191#191#160#160#160'%%%%%%%%%$$$'#129#129#129#201#201
+  +#201#201#201#201#201#201#201#160#160#160'www'#180#180#180'$$$$$$vvv'#201#201
+  +#201#139#138#138'CCD(((444'#141#141#141#201#201#201#201#201#201#181#181#181
+  +'!!!!!!   !     !!!''''''('''''''''''''''''''''''#160#160#160#201#201#201#160
+  +#160#160'ddd;;;;;:nnn'#191#191#191#201#201#201#201#201#201#181#181#180'&&%&%'
+  +'%%%%!!!'#201#201#201#201#201#201#201#201#201#169#169#169#158#158#158#158#158
+  +#158#191#191#191#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +'ccc&%%&&%&&%&%$%$$%$$www'#201#201#201#201#201#201#160#160#160'$$$$$$$$$$$$#'
+  +'$#'#139#139#138#201#201#201#201#201#201#201#201#201'vvv"""""""""###"""#####'
+  +'#$$$$$$$$$&&$&&%''&&(''&(''''((())()(()))))(*))**)*)*)*)))))()()))(''((''('
+  +'''''(''''''''&''''''&&&&&&&&&&&%&&&%&&%%%%%%%&%%%%%%%%$$$%$%$$$$$$##""#"##"'
+  +'"#""""""""""!!!   !            '#31#31#31#31#31#31'  '#31#31#31#31#31#31#31
+  +#31#30#31#31#31#31#30#31#30#30#30#30#30#30#30#29#30#30#29#30#30#29#29#30#29
+  +#29#29#29#28#28#28#24#24#24#25#25#25#25#24#24#25#24#24#24#24#25#25#24#25#25
+  +#25#24#25#26#26#25#26#26#27#26#27#26#27#26#26#26#26#27#25#25#26#26#26#26#26
+  +#25#26#25#25#25#25#25#25#25#24#25#24#25#25#25#24#24#24#24#24#24#25#24#24#23
+  +#24#23#24#24#23#24#23#22#23#20#21#20#20#20#20#20#20#20#21#21#21#22#22#22#28
+  +#29#30'//.555<<<BBAFGG#""'#17#17#17#17#17#17#17#17#17#17#17#17#17#17#16#17#16
+  +#17#16#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#16#15#15#15#15#15#15#15
+  +#15#15#15#14#15#15#15#15#14#14#14#14'##&'#14#14#14'000yyy0000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000//////......------,,,+++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$'
+  +'$$xxx'#203#203#203#203#203#203'xxx$$$$$$$$$$$$$$$$$$...'#193#193#193#203#203
+  +#203#203#203#203#182#182#182'...$$$$$$$$$xxx'#203#203#203#203#203#203#203#203
+  +#203'mmm$$$$$$$$$$$$$$$$$$$$$xxx,,,///222555888'#203#203#203#203#203#203#203
+  +#203#203'555444//////******xxx'#203#203#203#203#203#203'xxx$$$$$$$$$$$$$$$$$'
+  +'$'#203#203#203#203#203#203#203#203#203'$$$$$$$$$$$$$$$$$$$$$'#140#140#140
+  +#203#203#203#203#203#203#203#203#203#193#193#193'ccc$$$$$$%%%%%%%%%%%%%%%nnn'
+  +#193#193#193#203#203#203#203#203#203#203#203#203#141#141#141'%%%&&&&&&&&&&&&'
+  +'&&&&&&'#162#162#162#203#203#203#203#203#203#203#203#203#203#203#203#141#141
+  +#141'111''''''''''''''''''''''''ooo'#203#203#203#203#203#203#203#203#203#162
+  +#162#162'''''''''''''''''''''''''PPP'#203#203#203#203#203#203#203#203#203''''
+  +'''''''''''''''''''''''FFF'#203#203#203#203#203#203#203#203#203#162#162#162
+  +'111''''''''''''''''''''''''''''''''''''PPPeee''''''''''''''''''&&&OOO'#203
+  +#203#203#203#203#203#203#203#203#172#172#172'::;%&%&%%%%&%%%./.mmm$$$$$$$$$$'
+  +'$$'#182#182#182#203#203#203#203#203#203#130#130#130'$$$$$$#########wwwbbb""'
+  +'#"##'''''')*)454'#203#203#203#203#203#203#203#203#203'@AA! ! !!  !   !!!('''
+  +'''(''''('''''''''''''''''#152#152#152'ZZZ''''''''''''''''''''''''''''''dee'
+  +#203#203#203#203#203#203#203#203#203'EED&%%&%%&%%'#203#203#203#203#203#203
+  +#203#203#203'KIJ'#31#31#31#31#31#31#31#30#31'676'#141#141#141#203#203#203#203
+  +#203#203#203#203#203#203#203#203'ddd&%%%%%&%%%%$%%$xxx'#203#203#203#203#203
+  +#203#161#161#161'$$$$$$$$$$$$xwx'#203#203#203#203#203#203#203#203#203#140#139
+  +#140'#""#""""""""#""""#######$$$$$$%%$&&%&&%''''&(''''''''''(''())()((*)))()'
+  +'*)*)**))*))*)))))())())()(''((''(''((''''''''''''&''&''&''&''''&''&&&&&&%%&'
+  +'&&&%%%%%%%$%%%%$%$$$$###########"###"##""""""" !!!!!  !!       '#31'  '#31
+  +#31#31#31#31' '#31#31' '#31#31' '#31#31#31#31#31#31#31#31#30#31#30#31#30#30
+  +#30#30#30#30#30#30#30#30#30#30#29#30#30#29#29#30#25#25#26#25#25#25#25#25#25
+  +#24#25#25#24#24#24#24#24#25#24#24#24#24#23#24#23#24#24#24#23#23#23#23#24#23
+  +#23#24#23#23#23#23#23#23#23#24#24#24#24#24#24#24#24#24#24#24#25#24#25#25#25
+  +#25#25#25#24#24#25#24#25#25#24#24#24#25#24#24#24#24#24#24#22#21#22#20#21#21
+  ,#20#20#20#20#20#21#21#21#21#24#24#23'(((332999@@@EED@A@'#18#18#18#18#18#18#17
+  +#18#18#17#17#17#17#17#16#16#16#17#16#17#16#16#17#16#16#16#16#16#16#16#16#16
+  +#16#16#16#16#16#16#16#15#15#16#16#15#16#15#15#15#15#15#15#15#15#14#15#15#15
+  +'&&&'#14#14#14'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000//////......------,,,+'
+  +'++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$$$yyy'#206#206#206#206#206#206'yyy$$'
+  +'$$$$$$$$$$$$$$$$'#163#163#163#206#206#206#206#206#206#206#206#206'DDD$$$$$$'
+  +'$$$///'#206#206#206#206#206#206#206#206#206'ooo$$$$$$$$$$$$$$$$$$$$$$$$$$$%'
+  +'%%''''''''''''''''''$$$'#206#206#206#206#206#206#206#206#206'$$$$$$$$$$$$$$'
+  +'$$$$yyy'#206#206#206#206#206#206'yyy$$$$$$$$$$$$$$$$$$'#206#206#206#206#206
+  +#206#206#206#206'$$$$$$$$$$$$$$$$$$'#131#131#131#206#206#206#206#206#206#206
+  +#206#206#163#163#163'///$$$$$$$$$$$$$$$$$$$$$$$$%%%000'#174#174#174#206#206
+  +#206#206#206#206#206#206#206'zzz%%%%%%%%%%%%%%%%%%'#164#164#164#206#206#206
+  +#206#206#206#206#206#206#143#143#143'&&&&&&&&&&&&&&&&&&&&&eee'#206#206#206
+  +#206#206#206#206#206#206'PPP''''''''''''''''''QQQ'#206#206#206#206#206#206
+  +#206#206#206''''''''''''''''''''''''''#154#154#154#206#206#206#206#206#206
+  +#175#175#175'''''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'#164#164#164#206
+  +#206#206#206#206#206#174#174#174'0/0$%$%%%$$$$$$%$%$%$$%$$$$$$$$$$$$$'#206
+  +#206#206#206#206#206#206#206#206'988#$##$########$#888###"##""#'''''')))*)*'
+  +#175#175#175#206#206#206#206#206#206'LLL!!!    !  ! $$$(''((''''('''''''''''
+  +'''''''FFF''''''''''''''''''''''''''''''''''''&'''''#206#206#206#206#206#206
+  +#206#206#206'QQO''&%&%%%$$'#206#206#206#206#206#206#206#206#206'KKK'#31#30#31
+  +#31#31#31#31#31#31#31#31#31#31#31#31'DED'#195#195#195#206#206#206#206#206#206
+  +#195#195#195';;:%&%%&%&&$%%%zyy'#206#206#206#206#206#206#163#163#163'$$$$$$$'
+  +'$$ddd'#206#206#206#206#206#206#206#206#206#163#163#163'##"#""$"""""""""###"'
+  +'#$##$##$$$%%%%%%&&&&&&''''&(('')(()(''*)()))*))))))**)****)*))*))))))()))))'
+  +'()((''((((''''(''''''''''''&&&''&''&''&&&&%%&%&%&%&&%%%%%%%%%%$%$##$#######'
+  +'#####""####"#""!""!!!!!!!!!!     !   '#31'   '#31#31' '#31#31#31#31'  '#31
+  +#31#31#30#31#31#31#31#31#31#30#31#31#30#31#30#30#30#30#30#30#30#30#30#30#30
+  +#30#26#27#26#25#25#25#25#25#25#25#25#25#24#25#25#24#25#24#24#24#25#24#24#24
+  +#24#24#24#24#24#24#23#23#24#24#24#24#23#24#24#24#24#23#23#23#23#23#23#23#23
+  +#22#23#22#22#22#23#23#22#22#22#22#22#22#22#22#21#22#22#22#22#23#23#23#22#23
+  +#22#23#23#23#22#22#22#21#20#21#21#20#20#20#21#21#22#21#21#22#22#22#29#29#30
+  +'/./566<<<CBBGGG&&&'#17#17#18#18#17#18#17#17#17#17#17#18#17#17#17#17#17#17#17
+  +#17#16#17#16#16#16#17#17#16#16#16#16#16#16#16#16#16#16#16#15#16#16#15#15#15
+  +#16#15#15#15#15#15#15#15#15#15#14#15#15'#&#'#14#14#14'000yyy0000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000//////......------,,,+++***)))(((''''''&&&&&&%%%%%%$$$$$$$'
+  +'$$$$$zzz'#208#208#208#208#208#208'zzz$$$$$$$$$$$$$$$eee'#208#208#208#208#208
+  +#208#208#208#208'zzz$$$$$$$$$$$$ppp'#208#208#208#208#208#208#165#165#165'$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#208#208#208#208#208#208#208#208
+  +#208'$$$$$$$$$$$$$$$$$$zzz'#208#208#208#208#208#208'zzz$$$$$$$$$$$$$$$$$$'
+  +#208#208#208#208#208#208#208#208#208'$$$$$$$$$$$$$$$OOO'#208#208#208#208#208
+  +#208#208#208#208#165#165#165'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$///'#176#176
+  +#176#208#208#208#208#208#208#208#208#208'EEE%%%%%%%%%%%%%%%'#165#165#165#208
+  +#208#208#208#208#208#197#197#197'000%%%%%%%%%&&&&&&&&&&&&&&&'#165#165#165#208
+  +#208#208#208#208#208#155#155#155'&&&&&&&&&QQQ'#208#208#208#208#208#208#208
+  +#208#208'&&&&&&&&&111'#208#208#208#208#208#208#208#208#208';;;&&&&&&&&&&&&&&'
+  +'&&&&&&&&&&&&&&&&%%%%%%%%%EEE'#208#208#208#208#208#208#208#208#208':::%%%%%$'
+  +'$%%%$$%$%%%%$$$$$$$$$$$$$$$$$$'#208#208#208#208#208#208#208#208#208'#$#####'
+  +'#$###$##$########!""$$$&&''(''''STS'#208#208#208#208#208#208#208#208#208'77'
+  +'7!!!  ! ! !!!(''((''''(''''(''''('''''''''''''''''''''''''''''''''''''''''''
+  +'''''''''''<;<'#208#208#208#208#208#208#208#208#208'QQQ&&&''%&&%%'#208#208
+  +#208#208#208#208#208#208#208'KLK'#31#30#31#31#31' '#31#31#31#31#31#31#31#31
+  +#31#30#31#31'CDC'#208#208#208#208#208#208#208#208#208#144#144#144'&&&&&%&&%%'
+  +'%${{z'#208#208#208#208#208#208#165#165#165'$$$$$$DDD'#208#208#208#208#208
+  +#208#208#208#208#176#176#175'//.$#"$$##"##""#""#""""###$$##$$$%%%%%%&&&&'''''
+  +'''''''((''))()(()))*))****))******)**)*)**)))*))))))(()(()((''((''(''''('''
+  ,'''''&''''&&&&''&''&&&&%&&&&%&&%%%%%%%$$$$$#$##$$###########"#"##""""!""!!"!'
+  +'!!!!!!!!  !      '#31#31'      '#31' '#31#31' '#31#31#31#31#31#31#31#31#31
+  +#30#30#30#31#31#30#30#30#30#30#30#30#30#28#28#27#26#25#25#25#25#25#25#25#26
+  +#25#25#26#25#25#25#25#25#25#25#24#25#25#24#25#25#24#24#24#24#24#24#24#23#23
+  +#23#24#23#23#23#24#23#24#23#23#23#23#23#23#23#23#23#23#22#23#22#22#22#22#22
+  +#22#22#22#22#22#22#22#22#22#22#22#21#22#21#22#21#21#22#22#21#21#21#21#21#21
+  +#21#21#21#20#20#21#21#22#21#24#24#24'(((333:9:@@@EEEAAA'#18#18#18#17#17#18#18
+  +#18#18#17#18#17#17#18#17#18#17#17#17#17#17#17#17#17#17#16#17#17#17#17#16#17
+  +#16#17#16#16#16#16#16#16#16#16#16#15#15#15#16#15#15#15#16#15#15#15#15#15#15
+  +#14#15#15'&&#'#15#14#15'000yyy0000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000//////......-'
+  +'--,,,,,,+++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$$$|||'#211#211#211#211#211
+  +#211'|||$$$$$$$$$$$$///'#200#200#200#211#211#211#211#211#211#178#178#178'$$$'
+  +'$$$$$$$$$$$$'#156#156#156#211#211#211#211#211#211'fff$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$'#211#211#211#211#211#211#211#211#211'$$$$$$$$$$$$$$'
+  +'$$$$|||'#211#211#211#211#211#211'|||$$$$$$$$$$$$$$$$$$'#211#211#211#211#211
+  +#211#211#211#211'$$$$$$$$$$$$$$$'#189#189#189#211#211#211#211#211#211#189#189
+  +#189'///$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$///'#200#200#200#211#211#211
+  +#211#211#211#167#167#167'$$$$$$$$$%%%%%%'#167#167#167#211#211#211#211#211#211
+  +#135#135#135'%%%%%%%%%%%%%%%%%%%%%%%%%%%\\\'#211#211#211#211#211#211#200#200
+  +#200'%%%%%%%%%QQQ'#211#211#211#211#211#211#211#211#211'%%%%%%%%%QQQ'#211#211
+  +#211#211#211#211#178#178#178'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%|||'
+  +#211#211#211#211#211#211#156#156#156'%%%%%$%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +#211#211#211#211#211#211#211#211#211'$$#$#$######"#""""""""""!""$$$&&''^]^'
+  +#200#200#200#211#211#211#211#211#211#189#189#189'!!!!!!!!!!!!$$$)(()''''('''
+  +'''((''('''''''''''''''''''''''''''''''''''''''''''''''''''''#157#157#157#211
+  +#211#211#211#211#211#211#211#211'QRQ&&&&%%&%&'#211#211#211#211#211#211#211
+  +#211#211'PPP!! '#31#30#31#31#30#31#31#31#31#31#31#31#31#31#31#31#31#31'zyz'
+  +#211#211#211#211#211#211#211#211#211'111&%&&&%%%%|}|'#211#211#211#211#211#211
+  +#167#167#167'%$$EEE'#200#200#200#211#211#211#211#211#211#200#200#200'//.$$#$'
+  +'$#$#"$#"##"###$"##"#$$$$##%%$%%%&&&&%&''''''''(''((()))))(*)))))**)**)+****'
+  +'********)*))*)))))))))))(()()((((''(''''(''''''''''''''''''''''&''&&&&&%&&%'
+  +'&&%&%$%$##$##$$#$$$$$$####$$##"#""#""""!"!!"!"!!!!!! !!!  !          '#31' '
+  +#31' '#31'   '#31#31#31#31#31#31#31#31#30#31#30#31#31#30#30#30#30#30#29#30#26
+  +#25#26#26#25#26#25#25#25#25#25#26#25#25#25#25#25#25#25#25#25#25#24#25#25#24
+  +#25#24#24#24#25#25#25#24#24#24#24#24#24#24#24#24#24#24#24#24#24#23#23#23#23
+  +#23#23#23#22#23#22#22#23#23#23#22#23#22#22#22#22#23#22#22#22#22#22#21#22#22
+  +#22#22#22#21#21#22#21#21#21#21#21#21#21#21#22#22#21#22#23#23#30#30#30'000666'
+  +'>>>BCCGGH''&&'#18#18#18#18#19#18#18#18#18#18#18#17#18#17#18#17#18#18#17#17
+  +#18#17#17#17#17#17#16#17#16#17#17#16#17#17#16#16#16#16#17#16#16#16#16#15#16
+  +#16#15#16#15#16#15#15#16#15#15#16#15#15#15#15'&#&'#15#15#15'000yyy0000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000//////......---,,,,,,+++***)))(((''''''&&&&&&%%%%%%$'
+  +'$$$$$$$$$$$}}}'#213#213#213#213#213#213'}}}$$$$$$$$$$$$'#157#157#157#213#213
+  +#213#213#213#213#202#202#202':::$$$$$$$$$$$$$$$'#169#169#169#213#213#213#213
+  +#213#213#213#213#213#180#180#180#169#169#169'}}}rrrPPP:::$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$'#213#213#213#213#213#213#213#213#213'$$$$$$$$$$$$$$$$$$}}}'#213#213
+  +#213#213#213#213'}}}$$$$$$$$$$$$$$$$$$'#213#213#213#213#213#213#213#213#213
+  +'$$$$$$$$$$$$\\\'#213#213#213#213#213#213#213#213#213'\\\$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$ggg'#213#213#213#213#213#213#213#213#213'EEE$$$$$'
+  +'$$$$$$$'#169#169#169#213#213#213#213#213#213'PPP$$$$$$$$$$$$%%%%%%%%%%%%%%%'
+  +'%%%'#213#213#213#213#213#213#213#213#213'%%%%%%%%%QQQ'#213#213#213#213#213
+  +#213#213#213#213'%%%%%%%%%}}}'#213#213#213#213#213#213#213#213#213#191#191
+  +#191#169#169#169#136#136#136'}}}QQQFFF%%%%%%%%%%%%%%%$$$$$$$$$'#135#135#135
+  +#213#213#213#213#213#213'}}}$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#213#213
+  +#213#213#213#213#213#213#213'"####"#"#""##""#""""""""$$$000'#137#136#137#213
+  +#213#213#213#213#213#213#213#213#213#213#213'YYY!!!!!!!!!!!!(''())((('')''()'
+  +'''''(''('''''''''''''''''''''''''''''''''''''''''''#147#147#147#213#213#213
+  ,#213#213#213#213#213#213#191#191#191'&''&&''%&&&''%%'#213#213#213#213#213#213
+  +#213#213#213'QQQ%%$"!"'#31#30'  '#30#31#31#31#31#31#31#31#31#30#31'666'#213
+  +#213#213#213#213#213#213#213#213'RRR&%&&%&%&%}}}'#213#213#213#213#213#213#169
+  +#169#169'0//'#180#180#180#213#213#213#213#213#213#202#202#202'EEE$$$$$$$$$$$'
+  +'#$$"#$#$##$$#$##$$#$$$%$%%%%&&&''''''''''''(((()(**)**)**)+**+*****+**+****'
+  +'*******)*))))))))))())(()((()(''((''(''''(''''''''&''&''''&''&&&&&&%%%$$##$'
+  +'#$##%$#$##$$#$$####$#"##"#""#!""!""!""!!!!!!!!!!!! !!!          '#31' '#31
+  +' '#31'  '#31#31#31#31#31#31#31#31#31#31#31#31#31#31#30#30#30#26#26#26#26#25
+  +#26#26#25#26#26#25#26#26#26#27#27#26#26#29#29#29'''(''##$###'#31' '#31#30#30
+  +#29#26#26#26#25#25#25#25#25#25#25#25#24#25#25#24#25#24#24#23#23#23#23#23#23
+  +#23#23#23#22#23#22#23#22#22#23#23#22#22#22#22#21#22#22#22#22#21#21#21#22#21
+  +#22#22#21#22#21#21#21#21#22#22#22#25#25#25'+,,444:::@@@FEFBAA'#19#18#19#19#19
+  +#18#18#18#18#18#18#18#18#18#18#18#18#18#18#17#17#17#17#18#17#17#17#17#17#17
+  +#17#17#17#17#17#16#16#17#17#16#16#16#16#16#16#16#16#16#16#16#16#15#16#15#15
+  +#16#15#15#15#15#15#16#15'&&&'#15#15#15'000yyy0000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00//////......---,,,,,,+++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$$$~~~'#216
+  +#216#216#216#216#216'~~~$$$$$$$$$QQQ'#216#216#216#216#216#216#216#216#216'ss'
+  +'s$$$$$$$$$$$$$$$$$$'#171#171#171#216#216#216#216#216#216#216#216#216#216#216
+  +#216#216#216#216#216#216#216#216#216#216#216#216#216#216#216#216#216#216#216
+  +#182#182#182#171#171#171'~~~sss;;;$$$$$$$$$'#216#216#216#216#216#216#216#216
+  +#216'$$$$$$$$$$$$$$$$$$~~~'#216#216#216#216#216#216'~~~$$$$$$$$$$$$$$$$$$'
+  +#216#216#216#216#216#216#216#216#216'$$$$$$$$$$$$'#148#148#148#216#216#216
+  +#216#216#216#182#182#182'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +#193#193#193#216#216#216#216#216#216#137#137#137'$$$$$$$$$$$$'#171#171#171
+  +#216#216#216#216#216#216'QQQ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#216#216#216#216
+  +#216#216#216#216#216'QQQ$$$$$$QQQ'#216#216#216#216#216#216#216#216#216'$$$$$'
+  +'$$$$~~~'#216#216#216#216#216#216#216#216#216#216#216#216#216#216#216#216#216
+  +#216#216#216#216#216#216#216#216#216#216#216#216#216#205#205#205#171#171#171
+  +#148#148#148'~~~\\\$$$$$$'#171#171#171#216#216#216#216#216#216'hhh$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$#$##$$##$##$##'#216#216#216#216#216#216#216#216#216'####"##"'
+  +'"###""#"##"#"##"FFG'#194#194#194#216#216#216#216#216#216#216#216#216#216#216
+  +#216'efe!!!!!!!!!!!!$$$))()('')(''(''(('''')(''('''''''''''''''''''''''''''''
+  +'HHH'#183#183#183#216#216#216#216#216#216#216#216#216#216#216#216'__^''''&&'
+  +'''&&&&&&%'#216#216#216#216#216#216#216#216#216'RRR$$%%$$##$ '#31'  '#30#31
+  +#31#31#31#31#31#31#31#30#31#193#193#193#216#216#216#216#216#216'}}}%%%&&&%&&'
+  +''#216#216#216#216#216#216#171#171#171#171#171#171#216#216#216#216#216#216
+  +#216#216#216'\\\$$$$$$$$$$$$#$##$###"$##$##$##%$$$$$$$%&&%&&&''(''(((((((((*'
+  +'))*****)++*+*)***++*+*++**+***))**)***))*)))))))))))(()))('')(''(''''('''''
+  +'''''''&&&%%&$%%$$$$$#$$#$$$$##%#$$##$$#$#######"#""#""""""!""!""!!!!!!!!! !'
+  +'!  !              '#31'  '#31' '#31#31'  '#31#31#31#31#31#31#27#27#26#26#25
+  +#27#26#25#26#26#25#26#27#26#27#26#26#27#29#29#28'+,+--..........-,---,,,-)))'
+  +'(''($#$"!"'#30#30#31#28#29#29#25#25#25#24#24#24#23#23#24#23#24#23#23#23#24
+  +#23#23#23#22#22#22#22#21#22#21#22#22#22#21#21#22#23#22#24#24#24'###111777>>>'
+  +'DDDHHH!! '#19#19#18#19#19#19#18#18#19#18#19#18#18#18#18#17#18#18#17#18#18#17
+  +#18#17#18#17#17#17#17#17#17#17#17#17#16#17#16#17#17#17#17#17#17#16#16#17#16
+  +#16#16#16#16#16#16#16#15#16#15#15#15#16#15#15#15'&&&'#15#15#15'000yyy0000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000//////......---,,,,,,+++***)))(((''''''&&&&&&%%%%'
+  +'%%$$$$$$$$$$$$'#128#128#128#219#219#219#219#219#219#128#128#128'$$$$$$$$$'
+  +#196#196#196#219#219#219#219#219#219#162#162#162'$$$$$$$$$$$$$$$$$$$$$'#173
+  +#173#173#219#219#219#219#219#219#139#139#139#139#139#139#173#173#173#185#185
+  +#185#219#219#219#219#219#219#219#219#219#219#219#219#219#219#219#219#219#219
+  +#219#219#219#219#219#219#128#128#128'$$$$$$$$$'#219#219#219#219#219#219#219
+  +#219#219'$$$$$$$$$$$$$$$$$$'#128#128#128#219#219#219#219#219#219#128#128#128
+  +'$$$$$$$$$$$$$$$$$$'#219#219#219#219#219#219#219#219#219'$$$$$$$$$$$$'#208
+  +#208#208#219#219#219#219#219#219'ttt$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$'#139#139#139#219#219#219#219#219#219#196#196#196'$$$$$$$$$$$$'
+  ,#173#173#173#219#219#219#219#219#219'RRR$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#219
+  +#219#219#219#219#219#219#219#219'///$$$$$$RRR'#219#219#219#219#219#219#219
+  +#219#219'$$$$$$$$$'#128#128#128#219#219#219#219#219#219#173#173#173#128#128
+  +#128#162#162#162#173#173#173#219#219#219#219#219#219#219#219#219#219#219#219
+  +#219#219#219#219#219#219#219#219#219#219#219#219#185#185#185'$$$$$$'#139#139
+  +#139#219#219#219#219#219#219#128#128#128'$$$$$$$$$$$$#$$$#$$$$$$#$$#####$##$'
+  +'#$$#'#219#219#219#219#219#219#219#219#219'###"####"#""##"#"##""FFF'#208#208
+  +#208#219#219#219#219#219#219#219#219#219#197#197#197'RRR!!!!!!!!!!!!!!!('''''
+  +'))())())(((''((((''(((''''''''''''''''''''vvv'#219#219#219#219#219#219#219
+  +#219#219#219#219#219#219#219#219#151#151#151'''''''''''&&''&&''%''%%'#219#219
+  +#219#219#219#219#219#219#219'SSS$%%$%%$$$$$$!!!'#31#30' '#31#31#31#31#31#31
+  +#172#172#172#219#219#219#219#219#219'}}} '#31#31'#""%%%'#128#129#129#219#219
+  +#219#219#219#219#219#219#219#219#219#219#219#219#219#219#219#219'iii$$$$$$$$'
+  +'$$$$$$$$$$$$$#$#$$#$$#$$$%$$%%%%%%%%&''&&''''''((()))())**)+*+***,+*++*+**,'
+  +'+*,**+**+*******)****)*))))*))))())))))()(('')(''(''''&&&$%$$%$$%%$$$$$$$$$'
+  +'$#$##$$$#$$$#$#$$#$####"##"#""#"""""""!""!""!!!!!! !! !!! !     !      '#31
+  +'  '#31' '#31#31' '#31#31#27#27#27#26#26#26#26#26#27#26#26#26#27#26#27#27#26
+  +#28#29#28#29'**)0011222322222220100/////-----.+,,+,,,+++,+++++++(((&''''###!'
+  +'!!'#29#30#30#27#27#27#24#24#23#22#23#22#25#25#24#27#27#27'...444;;;AAAGGG<;'
+  +'<'#19#19#19#19#18#19#18#18#19#19#19#19#19#18#18#18#18#18#18#18#18#18#18#17
+  +#18#17#18#18#18#18#17#18#17#17#17#17#17#17#17#17#17#16#16#17#17#17#17#16#17
+  +#16#16#16#16#16#16#16#16#16#15#15#16#15#15#15#16#15'&&&'#15#15#15'000yyy0000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000//////......---,,,,,,+++***)))(((''''''&&&&&&%'
+  +'%%%%%$$$$$$$$$$$$'#129#129#129#221#221#221#221#221#221#151#151#151'RRRRRR'
+  +#129#129#129#221#221#221#221#221#221#209#209#209'000$$$$$$$$$$$$$$$$$$$$$'
+  +#163#163#163#221#221#221#221#221#221'RRR$$$$$$$$$$$$;;;RRRuuu'#129#129#129
+  +#209#209#209#221#221#221#221#221#221'jjj$$$$$$$$$'#221#221#221#221#221#221
+  +#221#221#221'000$$$$$$$$$$$$$$$'#129#129#129#221#221#221#221#221#221#129#129
+  +#129'$$$$$$$$$$$$$$$$$$'#221#221#221#221#221#221#221#221#221'$$$$$$$$$;;;'
+  +#221#221#221#221#221#221#221#221#221'GGG$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$RRR'#221#221#221#221#221#221#221#221#221'000$$$$$$$$$'#175
+  +#175#175#221#221#221#221#221#221#129#129#129'$$$$$$$$$$$$$$$$$$$$$$$$$$$^^^'
+  +#221#221#221#221#221#221#221#221#221'$$$$$$$$$RRR'#221#221#221#221#221#221
+  +#221#221#221'$$$$$$$$$^^^'#221#221#221#221#221#221#151#151#151'$$$$$$$$$$$$0'
+  +'00RRR^^^'#129#129#129#163#163#163#221#221#221#221#221#221#175#175#175'$$$$$'
+  +'$uuu'#221#221#221#221#221#221#163#163#163'$$$$$$$$$$$$$$$$#$##$##$$$$$#$#$$'
+  +'$$$#$#'#221#221#221#221#221#221#221#221#221'########"####"#######'#175#175
+  +#175#221#221#221#221#221#221#221#221#221#142#142#142'555!! !!!!!!!!!!!!$$$*)'
+  +')))())())()((((()(''('''''''''''''''''#152#152#152#221#221#221#221#221#221
+  +#221#221#221#221#221#221#210#210#210'lll''''''''''''''''&''''&''''&&&&'#221
+  +#221#221#221#221#221#221#221#221'TSS%%%%%%$%$$$$$%$##$ '#31' '#31#31#31#173
+  +#173#173#221#221#221#221#221#221'~~~'#31#30#30#31#30#30#30#30#30''#221#221
+  +#221#221#221#221#210#210#209#221#221#221#221#221#221#209#209#209'<;;%$$$$$$$'
+  +'$$$$$$$$$$$$$$$$#$#$$#$$$%$$%%%&%%&&&&&''''''''()())))))**)+**++*+,+++*++*,'
+  +'++,++,+++**+*****)****)*)**)*))))))))())(((''''&''%%%%%%%%%%%%%$%$$$%$$$$$#'
+  +'$$%$#$$$$$$$$#$$#$##$####"##"#"""""""""!!!!!!!!!!!!! !!!     !        '#31
+  +#31'     '#28#28#27#26#26#27#26#26#27#26#26#27#27#27#28#27#26#28#30#29#31'))'
+  +'*2224447677777775554441121120000///////.//.-...-.,,-,,,,,,+*++*+*********)*'
+  +'*((),+,333999???EEEHHH'#29#29#29#19#19#19#20#19#19#19#19#19#19#18#18#19#19
+  +#18#18#19#18#18#18#18#18#18#18#18#18#18#17#18#18#17#18#17#18#17#18#18#17#17
+  +#17#17#17#17#17#17#16#16#17#16#17#17#16#16#17#16#16#16#16#16#16#16#16#15#16
+  +#16#16'(&&'#15#16#15'000yyy0000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000//////......---,'
+  +',,,,,+++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$$$'#130#130#130#224#224#224#224
+  +#224#224#224#224#224#224#224#224#224#224#224#224#224#224#224#224#224#224#224
+  +#224#177#177#177'SSS$$$$$$$$$$$$$$$$$$$$$www'#224#224#224#224#224#224#141#141
+  +#141'$$$$$$$$$$$$$$$$$$$$$$$$'#200#200#200#224#224#224#224#224#224'GGG$$$$$$'
+  ,'$$$'#224#224#224#224#224#224#224#224#224'SSS$$$$$$$$$$$$$$$'#141#141#141#224
+  +#224#224#224#224#224#165#165#165'$$$$$$$$$$$$$$$<<<'#224#224#224#224#224#224
+  +#224#224#224'$$$$$$$$$SSS'#224#224#224#224#224#224#224#224#224'$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#224#224#224#224#224#224#224
+  +#224#224'SSS$$$$$$$$$'#177#177#177#224#224#224#224#224#224#200#200#200'$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$'#165#165#165#224#224#224#224#224#224#177#177#177'$$$'
+  +'$$$$$$SSS'#224#224#224#224#224#224#224#224#224'$$$$$$$$$000'#224#224#224#224
+  +#224#224#212#212#212'$$$$$$$$$$$$$$$$$$$$$$$$www'#224#224#224#224#224#224#141
+  +#141#141'$$$$$$GGG'#224#224#224#224#224#224#224#224#224'GGG$$$$$$$$$$$$$$$$$'
+  +'#$$#$$$#$$$$##$$$$#'#224#224#224#224#224#224#224#224#224'########"###"###"#'
+  +'<;<'#224#224#224#224#224#224#224#224#224'zzz,,,#$$!!!!!!!!!!!!!!!((()))))))'
+  +')())()(''(''''(((((((('''#132#132#132#224#224#224#224#224#224#224#224#224
+  +#224#224#224#166#166#166'>>>''''''''''''''''''''''&''''&''&&&&&'#224#224#224
+  +#224#224#224#224#224#224'UTT%%%%%%%%$%$%%%%$%%$$$"!!'#224#224#224#224#224#224
+  +#224#224#224'hhh'#31#31#31#30#30#31#30#30#30''#224#224#224#224#224#224#176
+  +#177#177#153#154#154#224#224#224#224#224#224#189#189#189'000%$$$$$$$$$$$$$$$'
+  +'$$$$$$$$%%$$%$%%%%%%&%%&&%''''''''((())))))))***+*+**+,,++++++*,,+,++,+++**'
+  +'+**+*********)))))))))))((''&%&&%%%%%%&%%%&%%%%$%%$$$%$%%%%$$%%%$%%%$$$%$$$'
+  +'$$$#$##$####"#""#"##"#""""!""!"!""!!"!"!!!! !! ! !!!         '#28#28#28#26
+  +#27#27#26#27#27#26#26#27#27#27#28#27#27#28#30#29#30'''''(333777:::<<<<=<<<<;'
+  +'::77866634321222211111111100/0////0.......-..-----,,,,-,---//.222666=<<CDCG'
+  +'GG555'#19#19#19#19#19#20#19#20#19#19#19#19#18#19#19#18#19#19#18#19#19#18#18
+  +#18#18#18#18#18#18#18#18#18#18#17#18#17#17#18#17#18#17#17#17#17#17#17#17#17
+  +#17#16#17#17#16#16#16#17#16#16#17#17#16#16#17#16#16#16#16#16#16'((&'#15#15#16
+  +'000yyy000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000//////......---,,,,,,+++***)))((('''
+  +'''''&&&&&&%%%%%%$$$$$$$$$$$$'#131#131#131#226#226#226#226#226#226#226#226
+  +#226#226#226#226#226#226#226#226#226#226#226#226#226#226#226#226#226#226#226
+  +#226#226#226#143#143#143'$$$$$$$$$$$$$$$$$$<<<'#226#226#226#226#226#226#214
+  +#214#214'<<<$$$$$$$$$$$$$$$$$$TTT'#226#226#226#226#226#226#202#202#202'$$$$$'
+  +'$$$$$$$'#226#226#226#226#226#226#226#226#226#131#131#131'$$$$$$$$$$$$$$$'
+  +#190#190#190#226#226#226#226#226#226#214#214#214'000$$$$$$$$$$$$lll'#226#226
+  +#226#226#226#226#202#202#202'$$$$$$$$$TTT'#226#226#226#226#226#226#226#226
+  +#226'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#226#226#226
+  +#226#226#226#226#226#226'TTT$$$$$$$$$'#178#178#178#226#226#226#226#226#226
+  +#226#226#226#131#131#131'$$$$$$$$$$$$$$$$$$$$$lll'#226#226#226#226#226#226
+  +#226#226#226'lll$$$$$$$$$TTT'#226#226#226#226#226#226#226#226#226'$$$$$$$$$$'
+  +'$$'#166#166#166#226#226#226#226#226#226'www$$$$$$$$$$$$$$$$$$000'#202#202
+  +#202#226#226#226#226#226#226'HHH$$$$$$$$$'#178#178#178#226#226#226#226#226
+  +#226#190#190#190'000$$$$$$$$$$#$$$$$$$#$$$$$$$$##$#$#'#226#226#226#226#226
+  +#226#226#226#226'$#$$##########""#"TTT'#226#226#226#226#226#226#203#203#203
+  +'***+++!!!!!!!!!!!!!!!#$$*)*))))))*)(*)())()((((((''''444'#214#214#214#226
+  +#226#226#226#226#226#226#226#226'mmm'''''''''''''''''''''''''''''''''''''''''
+  +'''''''&''&&'#226#226#226#226#226#226#226#226#226'UUU%%%%%%%%%%$%%$%%%$%$%``'
+  +'`'#226#226#226#226#226#226#226#226#226'DCC'#30#30#31#31#31#30#30#31#31#128
+  +#128#128#226#226#226#226#226#226#177#177#177#31#30#30#190#190#190#226#226#226
+  +#226#226#226#167#166#166'$$$$$$$$$$$$$$$$$$$$%$#$$%$$$$%&%%%%&&%''&&(''''((('
+  +'())))))))***+++**++++++++++,,+,,+,++,+++**+*++*****)**(()''(''&&&%%%&%%&$%&'
+  +'%%%%%%%%&%%%%%%$$%%%%%%&%%%%%%%%%%%$%$%%$$$$$$#$##$##$""#"##""""""""""!""""'
+  +'""!!!!!!!!!!!! !!  !   '#28#28#28#27#27#28#27#27#28#26#26#27#27#27#28#27#27
+  +#28#29#29#30'&%&434989<<<A@@BBBBBB...444322888566544443433222222111001011110'
+  +'0000000000/0......0//110455:::???EDDEEE'#23#22#23#19#20#19#19#20#20#20#19#20
+  +#19#19#20#19#19#19#19#19#19#19#18#19#19#18#19#18#18#19#19#18#18#18#18#18#18
+  +#18#18#18#17#18#17#17#18#17#17#17#17#18#17#17#17#17#17#17#16#16#17#17#16#17
+  +#16#17#16#17#16#16#16#16#16#16'(&('#15#16#16'000yyy0000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000//////......---,,,,,,+++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$$$'#133
+  +#133#133#229#229#229#229#229#229#156#156#156'TTTTTTTTTyyy'#205#205#205#229
+  ,#229#229#229#229#229#229#229#229#144#144#144'$$$$$$$$$$$$$$$$$$'#144#144#144
+  +#229#229#229#229#229#229#193#193#193'000$$$$$$$$$$$$HHH'#217#217#217#229#229
+  +#229#229#229#229'mmm$$$$$$$$$$$$'#229#229#229#229#229#229#229#229#229#217#217
+  +#217'<<<$$$$$$$$$TTT'#229#229#229#229#229#229#229#229#229#229#229#229#133#133
+  +#133'$$$$$$$$$$$$'#193#193#193#229#229#229#229#229#229#156#156#156'$$$$$$$$$'
+  +'TTT'#229#229#229#229#229#229#229#229#229'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$'#229#229#229#229#229#229#229#229#229'TTT$$$$$$$$$'
+  +#181#181#181#229#229#229#229#229#229#229#229#229#229#229#229#133#133#133'$$$'
+  +'$$$$$$$$$$$$mmm'#229#229#229#229#229#229#229#229#229#205#205#205'$$$$$$$$$$'
+  +'$$TTT'#229#229#229#229#229#229#229#229#229'$$$$$$$$$$$$TTT'#229#229#229#229
+  +#229#229#217#217#217'HHH$$$$$$$$$$$$$$$'#156#156#156#229#229#229#229#229#229
+  +#181#181#181'$$$$$$$$$$$$TTT'#229#229#229#229#229#229#229#229#229#193#193#193
+  +'<<<$$$$$$$$$$$$$$$a``#$$$$$##$$$#'#229#229#229#229#229#229#229#229#229'$$##'
+  +'$##$##########JJJ'#229#229#229#229#229#229#217#217#217'++,%%&!!!!!!!!!www!!'
+  +'!''''''*))***)*)))())())()(()''()(''XWW'#229#229#229#229#229#229#229#229#229
+  +#134#134#134'''''''''''''''''''''''''''''''''''''''''''''''&''''&''''&'#229
+  +#229#229#229#229#229#229#229#229'VUU&%%%%%%%%%$%%$%%$$%$$'#193#193#193#229
+  +#229#229#229#229#229#205#205#205'!!!'#31#31#31#30#31#31#31#31#31#130#130#130
+  +#229#229#229#229#229#229#179#179#179#30#30#30'***'#217#217#217#229#229#229
+  +#229#229#229#132#132#132'$$$%$$$$$$$$$%%$%$$$$%%%$%%&%%&%%&&%(''&('''')''())'
+  +'())))**+**++++++,,,,,+++,,,,,,,,,+,++,+++++))*''''''&&&%%&%%&&%%%%&%%%&%%&%'
+  +'$&%%%&%&%%%%%&&&&&&&%&&&&%&%%%%%%%%$%$$$%$#$$#$##$#######"##"""""""""""!""!'
+  +'""!"!!!!!!!!! !!!! '#28#28#29#27#27#28#27#27#28#26#27#28#26#27#28#28#27#29
+  +#30#29#30'%%%444989=>>CBBEFFGGH***'#25#24#25#24#25#24#24#24#25#24#24#24#24#24
+  +#24#31#31#31#30#30#31'&''&&''''-.-,--44434433222222211111000//0/112444767<;<'
+  +'@@ADDD-.-'#20#20#20#20#20#20#20#20#20#20#20#19#19#20#19#19#19#19#19#19#19#19
+  +#19#19#19#19#19#18#19#19#18#18#18#18#18#18#18#18#18#18#18#17#18#18#18#17#18
+  +#17#17#17#17#17#17#17#17#17#17#17#17#17#16#16#17#16#16#17#16#16#17#16#16#16
+  +'((('#16#15#16'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000//////......---,,,,,,+'
+  +'++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$$$'#134#134#134#231#231#231#231#231
+  +#231#134#134#134'$$$$$$$$$$$$000'#158#158#158#231#231#231#231#231#231#231#231
+  +#231'UUU$$$$$$$$$$$$$$$000'#194#194#194#231#231#231#231#231#231#207#207#207
+  +'mmm000<<<'#134#134#134#219#219#219#231#231#231#231#231#231#182#182#182'$$$$'
+  +'$$$$$$$$$$$'#231#231#231#231#231#231#231#231#231#231#231#231#219#219#219'mm'
+  +'mUUU'#134#134#134#219#219#219#231#231#231#231#231#231#207#207#207#231#231
+  +#231#231#231#231#158#158#158'UUUaaa'#182#182#182#231#231#231#231#231#231#231
+  +#231#231'UUU$$$$$$$$$UUU'#231#231#231#231#231#231#231#231#231'$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$000'#231#231#231#231#231#231#231#231
+  +#231'UUU$$$$$$$$$'#182#182#182#231#231#231#231#231#231#182#182#182#231#231
+  +#231#231#231#231#207#207#207#134#134#134'UUU'#134#134#134#194#194#194#231#231
+  +#231#231#231#231#231#231#231#231#231#231'III$$$$$$$$$$$$UUU'#231#231#231#231
+  +#231#231#231#231#231'$$$$$$$$$$$$$$$'#145#145#145#231#231#231#231#231#231#231
+  +#231#231#134#134#134'III000aaa'#194#194#194#231#231#231#231#231#231#219#219
+  +#219'III$$$$$$$$$$$$$$$'#145#145#145#231#231#231#231#231#231#231#231#231#231
+  +#231#231#158#158#158#134#134#134#134#134#134#145#145#145#207#207#207#182#182
+  +#182'$$$UUU'#133#134#134#134#134#134#231#231#231#231#231#231#231#231#231#133
+  +#133#134#133#134#133#133#133#133#133#133#133'TTT$$$&&&'#219#219#219#231#231
+  +#231#231#231#231#160#160#160'---!!!___'#194#194#194#181#181#181'$$#********)'
+  +')))))())())))(()((((''YWW'#231#231#231#231#231#231#231#231#231'343(''('''''
+  +'''''''''''''''''''''''''''''''''''''&''''&''''&'#231#231#231#231#231#231#231
+  +#231#231'WVV&&&%&%%%&%%%%%%%%%'#158#158#158#231#231#231#231#231#231#231#231
+  +#231'mmm$$$$$$!!!   '#131#131#131#231#231#231#231#231#231#181#181#181#30#30
+  +#30#30#30#30'DDD'#231#231#231#231#231#231#231#231#231'jjj'#30#30#30'!  !!!"#'
+  +'"$##$$$%%%%%%%%%%&%&&&''''''('''')(()))*))****+*+++++++,++,+,+,,,++**)))('''
+  +'(''''''''''''&''''&&&&&&&&&&&%&&&&%%%%%%%%&%%&&%%&&''&&&&&''&&&&&&&%%%&&%%%'
+  +'%%%%%%%%%%$$$$%$#%$#$#$###$###"##"""#"""""""!"!!!""!"!!!!!!!!!'#29#28#29#28
+  +#27#29#27#27#28#27#27#28#27#27#28#28#28#28#28#27#28'###443888===CCBFGGJJJ545'
+  +#25#25#26#25#25#25#25#25#24#24#25#25#24#24#24#25#24#24#24#24#24#24#24#24#23
+  +#24#23#23#23#23#23#24#24#23#23#23#23#23#23#22#23#23#29#30#30#29#29#30'&%%%%%'
+  +',,,,,,223343556::;===@@@>=='#20#20#20#21#20#20#20#20#20#20#20#20#19#19#19#20
+  ,#19#19#19#19#20#19#19#19#19#19#19#18#19#19#19#18#18#19#19#18#18#18#18#18#18
+  +#18#18#18#18#18#17#18#18#17#17#17#17#17#17#18#17#17#17#17#17#17#17#17#17#17
+  +#16#17#16#17#16#16#17#16#16'((('#15#16#16'000yyy0000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000//////......---,,,,,,+++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$$$'#135
+  +#135#135#233#233#233#233#233#233#135#135#135'$$$$$$$$$$$$$$$000'#208#208#208
+  +#233#233#233#233#233#233#159#159#159'$$$$$$$$$$$$$$$$$$III'#196#196#196#233
+  +#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233
+  +#233#233#233#233#196#196#196'000$$$$$$$$$nnn'#233#233#233#233#233#233#233#233
+  +#233#233#233#233#146#146#146#233#233#233#233#233#233#233#233#233#233#233#233
+  +#233#233#233#233#233#233#233#233#233'bbb'#135#135#135#233#233#233#233#233#233
+  +#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#171#171#171'$$$'
+  +'$$$$$$$$$==='#233#233#233#233#233#233#233#233#233'III$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$UUU'#233#233#233#233#233#233#233#233#233'$$$$$'
+  +'$$$$$$$'#184#184#184#233#233#233#233#233#233'UUU'#159#159#159#233#233#233
+  +#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233
+  +#233#233#221#221#221'nnn$$$$$$$$$$$$'#159#159#159#233#233#233#233#233#233#233
+  +#233#233#233#233#233'$$$$$$$$$$$$$$$$$$'#159#159#159#233#233#233#233#233#233
+  +#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#221
+  +#221#221'III$$$$$$$$$$$$$$$$$$$$$'#135#135#135#233#233#233#233#233#233#233
+  +#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#184#184
+  +#184'$$$'#135#135#135#233#233#233#233#233#233#233#233#233#233#233#233#233#233
+  +#233#233#233#233#233#233#233#233#233#233#233#233#233#135#135#135'&&&''&''}||'
+  +#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233#233
+  +#233#233#183#183#183'''''''***)))*******)))*()))))()(()((YXX'#233#233#233#233
+  +#233#233#233#233#233'LLL''''((''(''''''''''''''''''XXX'''''''''''''''''''''''
+  +'&'#233#233#233#233#233#233#233#233#233'WWW''%%&&&%&%%&%111'#172#172#172#233
+  +#233#233#233#233#233#233#233#233#196#196#196'%%%$$$$$$$$$$$$'#134#134#134#233
+  +#233#233#233#233#233#182#182#182#30#30#30#30#30#30#30#30#30'jjj'#233#233#233
+  +#233#233#233#220#220#220'DDD'#30#30#30#30#30#30#30#31#31#31#30#30#30#31#31'!'
+  +'     "!!##"$#$##$&%%(''''(((((''(((''(''((((''''(((''&''''''''''''&''''&('''
+  +'''''''''''''''''''''&''''&''''''&&''&&&&&&&&&%&&%&&&&&&&''''''''''''&'''''''
+  +'&''&''&&&&&&&%&&&&&&&%%&%%%%%%$%%$%$$$$#$#$$##$""#""#######""""""""!"""!!"!'
+  +'"""!'#31#30#31#28#28#28#28#28#29#28#27#28#27#28#28#27#27#28#28#28#29'"""000'
+  +'665;;;AAAGGGKKK899'#26#26#25#25#26#25#25#25#25#25#25#25#24#25#25#25#25#25#25
+  +#24#24#24#24#25#24#24#24#24#24#24#24#24#24#23#24#24#23#24#24#23#23#23#23#23
+  +#23#23#23#23#22#23#23#23#22#23#23#22#22#22#22#22#22#22#22#21#22#21#22#21#22
+  +#29#29#30#30#30#30'(((***   '#21#21#20#21#20#20#20#20#20#20#20#20#20#20#19#19
+  +#20#20#19#20#19#19#19#19#19#19#19#19#19#19#19#18#18#18#19#19#18#18#19#18#18
+  +#18#18#18#18#18#18#18#18#18#18#17#17#18#18#18#17#17#18#17#17#18#18#17#17#17
+  +#16#17#17#17#17#17#16#16#17'(+('#16#16#16'000yyy0000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000//////......---,,,,,,+++***)))(((''''''&&&&&&%%%%%%$$$$$$$$$$$$'#136
+  +#136#136#236#236#236#236#236#236#136#136#136'$$$$$$$$$$$$$$$$$$|||'#236#236
+  +#236#236#236#236#223#223#223'$$$$$$$$$$$$$$$$$$$$$111'#148#148#148#236#236
+  +#236#236#236#236#236#236#236#236#236#236#236#236#236#223#223#223#136#136#136
+  +'$$$$$$$$$$$$$$$$$$'#211#211#211#236#236#236#236#236#236#236#236#236'$$$'#148
+  +#148#148#236#236#236#236#236#236#236#236#236#236#236#236#236#236#236#136#136
+  +#136'$$$$$$'#136#136#136#236#236#236#236#236#236#236#236#236#236#236#236#236
+  +#236#236#161#161#161'111$$$$$$$$$$$$$$$'#223#223#223#236#236#236#236#236#236
+  +'|||$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#148#148#148#236#236
+  +#236#236#236#236#211#211#211'$$$$$$$$$$$$'#186#186#186#236#236#236#236#236
+  +#236'VVV$$$|||'#223#223#223#236#236#236#236#236#236#236#236#236#236#236#236
+  +#236#236#236#161#161#161'===$$$$$$$$$$$$$$$==='#236#236#236#236#236#236#236
+  +#236#236#236#236#236'$$$$$$$$$$$$$$$$$$$$$ccc'#211#211#211#236#236#236#236
+  +#236#236#236#236#236#236#236#236#236#236#236#161#161#161'===$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$VVV'#173#173#173#236#236#236#236#236#236#236#236#236#236#236#236
+  +#236#236#236#236#236#236#186#186#186'$$$'#136#136#136#236#236#236#236#236#236
+  ,#236#236#236#236#236#236#236#236#236#236#236#236#236#236#236#236#236#236#236
+  +#236#236#136#136#136'&&&'''''')))'#128#128#224#224#224#236#236#236#236#236
+  +#236#236#236#236#236#236#236#236#236#236#147#147#147'***************))))*)))'
+  +'())()())((544'#236#236#236#236#236#236#236#236#236#174#174#175'''((''''('''
+  +'''''333'#149#149#149#187#187#187'''''''''''''''''&'''''''#236#236#236#236
+  +#236#236#236#236#236'}}}XXXXXXqqp'#161#161#161#224#224#224#236#236#236#236
+  +#236#236#236#236#236#199#198#199'111$$%$$$$$$$$$$$$'#136#136#136#236#236#236
+  +#236#236#236#185#185#185' '#31#31#30#30#30#30#30#30#30#30#30#158#158#158#236
+  +#236#236#236#236#236#210#210#210'+++'#30#30#30#31#31#31#31#30#31#31#30#31#31
+  +#30#31#31#31#31#31#31#31'      !"!""#######$$$$%%%%$%&%%%&&&''&&&''''''&&'''
+  +'''&''(&&''''''''''''&''''''&''''''''&''''&&&&&&&&&''''''''''(''(((''''''('''
+  +'''''''''''&''''&&''''''''&&&''&&&%&&&&%%%%%&%&%%%%$%$$$$$$##$$#$######"###"'
+  +'###"#"""""""""!!""!!!  !'#28#28#29#28#28#29#28#28#28#27#27#28#28#27#28'"""/'
+  +'//444989?>>EFEKJJ==='#25#26#25#26#26#25#25#25#25#25#25#25#25#25#25#25#25#25
+  +#25#24#25#25#24#25#24#25#24#25#24#24#24#24#24#24#24#24#23#24#24#23#24#24#24
+  +#23#24#23#23#23#23#23#23#23#23#22#22#23#23#23#22#22#23#23#23#22#22#22#22#22
+  +#22#22#22#22#22#22#22#22#21#22#22#22#21#21#21#21#21#21#21#21#20#21#20#21#21
+  +#20#20#21#20#20#20#20#20#20#19#19#20#19#19#19#20#19#19#19#19#19#19#20#19#19
+  +#19#18#19#19#19#19#19#19#19#19#19#18#18#18#18#18#18#18#18#18#18#18#18#18#18
+  +#17#17#17#18#18#17#17#17#17#17#17#17#17#17#17#17#16#17#17'(+('#16#16#16'000y'
+  +'yy0000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000//////......---,,,,,,+++***)))(((''''''&'
+  +'&&&&&%%%%%%$$$$$$$$$$$$'#137#137#137#238#238#238#238#238#238#137#137#137'$$'
+  +'$$$$$$$$$$$$$$$$WWW'#238#238#238#238#238#238#238#238#238'$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$111WWW}}}pppWWW$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$===ccc'
+  +#137#137#137'WWW111$$$$$$$$$$$$111WWW'#137#137#137'ccc===$$$$$$$$$$$$$$$$$$$'
+  +'$$'#162#162#162#238#238#238#238#238#238#213#213#213'$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#213#213#213#238#238#238#238#238#238#149#149
+  +#149'$$$$$$$$$$$$'#187#187#187#238#238#238#238#238#238'WWW$$$$$$$$$WWWppp}}}'
+  +'WWW111$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$JJJppp'
+  +#137#137#137'WWW111$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$111ccc'#238#238#238
+  +#238#238#238#238#238#238'}}}$$$$$$$$$$$$$#$'#238#238#238#238#238#238#238#238
+  +#238'$#$########$&&&''''''(((***,,,''''''TTT|||{||TTU!!"''''''***********))*'
+  +'**)))))**())()(())()(('#140#139#139#238#238#238#238#238#238#238#238#238#213
+  +#213#213#188#188#188#188#188#188#238#238#238#238#238#238#188#188#188''''''''
+  +''''''''''''''''''''#238#238#238#238#238#238#238#238#238#238#238#238#238#238
+  +#238#238#238#238#238#238#238#238#238#238#238#238#238#238#238#238#238#238#238
+  +#188#188#188'221$%%%$$%$%$%%$$$$$$'#137#137#137#238#238#238#238#238#238#187
+  +#187#187'$$###"!!! '#31' '#30#30#30#199#199#199#238#238#238#238#238#238#199
+  +#199#199#30#30#30#31#31#31#30#30#31#31#31#30#31#31#30' '#31#31#31#31#31'   !'
+  +'  "!!#""###$$#$$$%%%%%%&&&&%%&&''&&''''''''&''''''''''''''''''''&'''''''''''
+  +'''''''''''&''''''&''''((((((((''((''(''((''''(''''(''''('''''''''''''''''''
+  +'''''&&&&&&&&&&&%&&&%&%%%%%%%$%%$$$$%$#$$#$#$$######"#"####"""#""""""""!"!!"'
+  +'!"'#28#28#29#28#28#29#28#28#29#27#28#29#27#27#29'(''(100555::9A@AFGGBBC'#29
+  +#29#29#26#26#26#26#26#26#26#26#25#26#25#26#26#25#25#25#25#25#25#25#25#25#24
+  +#24#24#24#25#24#24#24#24#24#24#24#24#24#24#24#24#23#23#24#23#24#23#23#23#23
+  +#23#24#23#23#23#23#22#23#23#23#22#23#22#23#22#22#22#22#22#22#22#22#22#22#22
+  +#22#22#22#21#22#21#21#21#21#22#21#21#21#21#21#21#21#21#21#21#20#20#21#20#21
+  +#20#20#20#21#20#20#20#20#20#19#20#20#19#19#20#20#19#19#19#19#20#19#19#19#19
+  +#18#19#18#19#19#19#19#18#18#18#18#18#18#18#18#18#18#18#18#18#18#18#17#18#17
+  +#17#17#18#18#17#17#17#17#17#17#17#17#16#17'+(('#17#16#16'000yyy0000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000//////......---,,,,,,+++***)))(((''''''&&&&&&%%%%%%$$$$'
+  +'$$$$$$$$'#138#138#138#240#240#240#240#240#240#138#138#138'$$$$$$$$$$$$$$$$$'
+  +'$WWW'#240#240#240#240#240#240#240#240#240'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$WWW'#240#240#240#240#240#240#240#240
+  +#240'qqq$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$~~~'#240#240#240#240#240
+  ,#240#240#240#240'JJJ$$$$$$$$$$$$'#189#189#189#240#240#240#240#240#240'WWW$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$qqq'#240
+  +#240#240#240#240#240#150#150#150'$$$$$$$$$$$$$$$$$$'#240#240#240#240#240#240
+  +#240#240#240'#$##$$###%%$&&&''''(*))+++,,,"""!""""""""""""""****************'
+  +'**)****)*))))())()(()(()(('#165#165#165#240#240#240#240#240#240#240#240#240
+  +#240#240#240#240#240#240#240#240#240#240#240#240#190#190#190''''''''''''''''
+  +''''''''''''#240#240#240#240#240#240#240#240#240#240#240#240#240#240#240#240
+  +#240#240#240#240#240#240#240#240#240#240#240#215#215#215'rqq%%%%%%$%%$%%$%%$'
+  +'$%$$$$$$'#138#138#138#240#240#240#240#240#240#189#189#189'$#$$$#$#######";;'
+  +';'#227#227#227#240#240#240#240#240#240#161#161#161#31#31#31#31#31#31#31#31
+  +#31#31#31#30#31'  '#31#31#31'      !! #""#####$$$$%%%%%%%&%%%&''&''&&&'''''''
+  +'''''''''&&&''&''''''''''(((()(())))))(())(()((((((((((((''''''''(''''('''''
+  +'''''''''''''''&''''''''''&&&&&&&&%%&%&&%&&%%%%%%$%$#%$$%$$%#$$#$########"##'
+  +'###"""""""""!"""!"!'#29#29#30#29#29#29#28#28#29#28#27#29#28#27#29'#$$121766'
+  +'<<<BBAEEE'#29#29#29#26#27#26#26#26#26#26#25#26#26#25#26#26#26#26#26#25#25#25
+  +#25#25#25#25#25#25#25#24#24#25#24#25#24#25#25#24#24#24#24#24#24#24#24#24#24
+  +#24#24#23#24#24#24#23#23#23#23#23#23#23#23#23#22#23#22#22#23#23#22#23#23#22
+  +#22#22#22#22#23#22#22#22#22#22#21#22#21#21#22#21#22#21#21#21#21#21#21#21#21
+  +#21#21#21#21#20#21#20#21#21#21#20#20#20#21#20#20#20#20#20#20#20#19#19#19#20
+  +#19#19#19#20#19#19#19#19#19#18#19#19#19#18#19#19#18#18#19#18#18#18#18#18#18
+  +#18#18#18#18#17#17#18#17#17#18#17#18#18#17#18#17#17#17#17#17#17'+(+'#17#17#17
+  +'000yyy000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000//////......---,,,,,,+++***)))((('''
+  +'''''&&&&&&%%%%%%$$$$$$$$$$$$'#139#139#139#242#242#242#242#242#242#139#139
+  +#139'$$$$$$$$$$$$$$$$$$eee'#242#242#242#242#242#242#242#242#242'$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#190#190#190
+  +#242#242#242#242#242#242#229#229#229'111$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$>>>'#229#229#229#242#242#242#242#242#242#190#190#190'$$$$$$$$$$$$$$$'#190
+  +#190#190#242#242#242#242#242#242'XXX$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#139#139#139#242#242#242#242#242#242'XXX$$$$$'
+  +'$$$$$$$$$$$$$'#242#242#242#242#242#242#242#242#242'$$$$$$$##&&&''''''(()***'
+  +',,,((("""""""""""""""&&''**********+****)******))))))))))))((*(())()(([[['
+  +#166#166#166#191#191#191#242#242#242#191#191#191#178#179#178#128#128#128'MMM'
+  +''''''''''''''''''''''''''#141#141#141#141#141#140#141#140#141#141#140#141
+  +#141#140#140#141#140#140#140#140#140'sss??@&%%%&%%%%%%%%%%%$%%$$%%$%$$%$$XXX'
+  +#139#139#139#139#139#139'rrr$#$$$$$$###$######ddd'#139#139#138#139#139#138
+  +#138#138#138'<<;!!!    '#31'     '#31#31'      !!!#""######%$%%%%%%%&&&&%%'''
+  +'''''(((*((*)**))**))))***)**)))))))))((()))))(()((((((''(((''(((''''''''('''
+  +'''''''''&&''''''''&''''&&&&&&&&&%%&%&&%%&%&%$%$$%$$$##$#$$##$#$#####"#####"'
+  +'"##"""""""""!""'#31#31#31#29#28#29#29#28#29#28#28#29#28#28#29' '#31' 322776'
+  +'<<<ABBGGG'#30#29#29#27#26#27#26#26#26#27#26#26#26#25#26#26#26#26#25#25#25#25
+  +#25#26#25#25#25#25#25#25#25#25#25#25#24#25#25#25#25#24#24#24#24#24#24#24#24
+  +#24#24#24#24#24#23#24#24#23#24#23#23#23#23#23#23#23#23#23#23#23#22#22#23#22
+  +#23#22#23#23#22#22#22#22#22#22#22#22#21#22#22#22#22#22#21#22#21#21#21#22#21
+  +#21#21#21#21#21#21#20#21#20#21#20#20#20#21#20#20#20#19#20#20#19#20#19#20#20
+  +#19#20#20#19#19#20#19#19#19#19#19#19#19#19#18#19#19#19#18#18#19#19#19#19#18
+  +#18#18#18#18#18#18#18#18#17#18#17#18#17#17#17#18#17#17#17#17#17'+(+'#16#17#17
+  +'000yyy000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000//////......------,,,+++***)))((('''
+  +'''''&&&&&&%%%%%%$$$$$$$$$$$$'#140#140#140#244#244#244#244#244#244#140#140
+  +#140'$$$$$$$$$$$$$$$$$$'#192#192#192#244#244#244#244#244#244#205#205#205'$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$XXX'
+  +#244#244#244#244#244#244#244#244#244#205#205#205'111$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$111'#205#205#205#244#244#244#244#244#244#244#244#244'KKK$$$$$$$$$$'
+  ,'$$$$$'#192#192#192#244#244#244#244#244#244'XXX$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$'#153#153#153#192#192#192'eee$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#140#140#140
+  +#244#244#244#244#244#244'XXX$$$$$$$$$$$$$$$>>>'#244#244#244#244#244#244#244
+  +#244#244'#$$$$#$$$&&&(''())*+++---###""""""""""""###*))****+**+**********)**'
+  +')*))*))*())()))))()(()((((((((((((''(''(((''''''((''(('''''''''''''''''''''
+  +'''''''''&''''&''''&''&&''''&''&&&&&%%&&%%&&%&&%%&%%%%%%%%%%%%%%%%%%%%%%%%%%'
+  +'%$%%$%$$%$$$#$$######$########"#"#"#""#""#######""$$#$$#%%$%%$%%$&&%''&&('''
+  +'&)(())))((*))*))+*)*)****+++*+*******)***))))*))))))))())))((())()((((((((('
+  +'(''((''''''(''''''''''&''''''''&''&''''''&&&&&&&&&%&&%&&%&%$%%$&$$%$#$$$$$$'
+  +'$##############""#"##"""""""""!! '#29#28#29#28#28#29#28#29#29#28#28#29#29#29
+  +#30'00/677;;;AAAGGG))('#27#26#27#27#26#26#27#27#26#26#26#26#26#26#26#26#26#26
+  +#26#25#25#26#26#25#25#25#25#25#25#25#25#25#25#25#24#25#24#25#25#24#25#24#24
+  +#24#24#24#23#24#24#24#24#23#23#24#23#23#23#24#24#23#23#23#23#22#23#22#23#23
+  +#23#22#22#23#22#23#23#22#22#22#22#22#22#22#22#22#22#22#22#22#22#21#21#21#22
+  +#21#21#21#21#21#21#21#21#21#21#20#20#20#21#20#20#20#20#21#20#20#20#20#20#20
+  +#20#19#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#18#19#18#19#19#19#18#18
+  +#19#18#18#18#18#19#18#17#18#18#18#17#18#18#17#17#17#18#17#17#17#18'-++'#17#17
+  +#17'000yyy000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000//////......------,,,+++***)))((('
+  +'''''''&&&&&&%%%%%%$$$$$$$$$$$$'#141#141#141#246#246#246#246#246#246#141#141
+  +#141'$$$$$$$$$$$$$$$sss'#246#246#246#246#246#246#246#246#246#141#141#141'$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +#141#141#141#246#246#246#246#246#246#246#246#246#206#206#206'111$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$>>>'#206#206#206#246#246#246#246#246#246#246#246#246#128#128
+  +#128'$$$$$$$$$$$$$$$$$$'#193#193#193#246#246#246#246#246#246'YYY$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$sss'#246#246#246#246#246#246#233#233#233
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$'#141#141#141#246#246#246#246#246#246#128#128#128'$$$$$$$$$$$$$$$'
+  +#128#128#128#246#246#246#246#246#246#193#193#193'$$$$$$%&%''''''))(***--,)*)'
+  +'"""#######"##"#''''''+++++++++++++++++++++++++++*****)**)*))*))*)))(((((((('
+  +'((((''(''(''''''((((''''''''''''''''''''''''''''''''''&''''&''''''''&&''&'''
+  +'''&&''&&&&&&&&%&&&&%%&%%%%%%%%%%%%%%%%%%%%%%%%%%%$%%$%$$%#$%##$$$$$########'
+  +'################$######$$$#$$%$$%%%%%%&&%''''&('''')((*))))(*)**))+********'
+  +'+**++*****)**)****)***)*))*))))((())))((()((((((''''((''(''''(''(('''''''''
+  +'''''''''''''''''&''&''&&&&&&&%&&%%&%&%%&%$%%$%$$%$$$$$$$$#$#######""#""####'
+  +'###"##""""!"'#29#29#29#28#29#29#28#28#29#28#28#29#29#29#30'*++656:;;???EDE3'
+  +'44'#27#26#27#26#27#27#26#26#27#26#27#26#26#26#26#26#25#26#26#26#25#25#26#25
+  +#26#26#25#25#25#25#25#25#25#25#25#25#25#24#25#25#25#24#24#24#25#24#24#24#24
+  +#24#24#24#23#24#24#23#23#23#24#23#23#23#23#23#23#24#23#23#23#22#22#23#23#22
+  +#23#23#22#23#23#22#22#22#22#22#21#21#22#21#22#22#21#22#21#21#21#22#21#21#21
+  +#21#21#21#21#20#21#21#20#20#21#20#21#20#20#21#20#20#20#19#20#20#19#19#20#20
+  +#20#19#20#20#19#19#19#19#19#19#19#19#19#19#19#19#19#18#18#18#19#19#19#19#18
+  +#18#18#18#19#17#18#18#18#18#18#17#17#17#17#17#17'-+-'#17#17#17'000yyy0000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000//////......------,,,+++***)))(((''''''&&&&&&%%%%'
+  +'%%$$$$$$$$$$$$'#142#142#142#248#248#248#248#248#248#142#142#142'$$$$$$$$$11'
+  +'1'#142#142#142#248#248#248#248#248#248#248#248#248#235#235#235'111$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +#168#168#168#248#248#248#248#248#248#248#248#248#235#235#235#142#142#142'111'
+  +'$$$$$$$$$$$$$$$111'#142#142#142#235#235#235#248#248#248#248#248#248#248#248
+  +#248#168#168#168'$$$$$$$$$$$$$$$$$$$$$'#195#195#195#248#248#248#248#248#248
+  +'YYY$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#129#129#129#248#248#248
+  +#248#248#248#248#248#248'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%'
+  +'%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$LLL'#248#248#248#248#248#248#235#235#235'L'
+  +'LL$$$$$$$$$LLL'#235#235#235#248#248#248#248#248#248#129#129#129'$$$%%$'''''
+  ,'''''''''*)*+++---###############$#$+,+,,+,,,+++,,+++,,+++++++++++++*+**+*)+'
+  +'***)***)*))))))))))))))(((((((((((((((((((((((''((''((''(''&''&''''&&''&&'''
+  +'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&%&&%&%%&%%%$%%$&$$%$$%$$$#$$$###$##########'
+  +'##$$#$######$#$$$#$$%%%%$%&&%&&%&&&''''&(('')(()()*((**)*))+********+++++++'
+  +'*+**+***)**))))*)**)))))))(()))(()((()()(((((''(''''(((''''(('''''''''''''''
+  +'''''&&&''''''&&&&&%&&%%%%&&%&%$&%$%%$%$$%##$$$$#$$##$#####"##"##"##""""""""'
+  +'"'#29#30#30#29#28#29#29#28#29#28#28#29#29#30#30'&&&545::9>==BBB>>>'#27#27#27
+  +#27#27#27#27#27#27#27#27#27#26#26#26#26#26#26#25#26#26#26#26#25#26#26#25#26
+  +#25#25#26#25#25#25#25#25#25#25#24#25#25#25#24#24#25#24#25#24#24#24#24#24#24
+  +#24#24#24#24#23#24#24#23#23#23#23#24#23#23#23#23#23#23#23#23#23#23#22#23#22
+  +#22#22#22#22#22#23#22#22#22#21#22#22#22#22#22#21#22#22#22#21#21#21#21#21#21
+  +#21#21#21#21#21#21#20#20#20#20#21#20#20#20#20#20#20#19#20#20#20#20#20#19#20
+  +#19#19#20#19#19#19#19#19#20#19#19#19#19#19#19#19#19#19#18#18#18#18#18#19#18
+  +#18#18#18#18#18#18#17#17#18#18#17#17'-++'#17#17#17'000yyy0000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000//////......------,,,+++***)))(((''''''''''''&&&%%%%%%$$$$$$$'
+  +'$$$$$'#156#156#156#250#250#250#250#250#250#223#223#223#196#196#196#196#196
+  +#196#210#210#210#250#250#250#250#250#250#250#250#250#250#250#250#237#237#237
+  +'ZZZ$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$'#169#169#169#250#250#250#250#250#250#250#250#250#250#250#250
+  +#250#250#250#183#183#183#143#143#143#143#143#143#143#143#143#196#196#196#250
+  +#250#250#250#250#250#250#250#250#250#250#250#250#250#250#156#156#156'$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$'#196#196#196#250#250#250#250#250#250'ZZZ$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$111'#196#196#196#250#250#250#143#143#143'$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$'#196#196#196#250#250#250#250#250#250#237#237#237#156#156#156'ZZZ'
+  +#156#156#156#237#237#237#250#250#250#250#250#250#237#237#237'111$$$&%&'''''''
+  +'(()*+*,,,***"""#########$$$''''''-,,,,,,,,,,,,,,,--,-,,,,,,,,,,++++++++*+**'
+  +'+***)*+***))))))))))))))())())((((())())(((((((''((''''(''''''''''''''('''''
+  +'''''''''''''''''''''''''&''&&''''''&&&&&&''&''&&&&&%&%&&%&%%%%%&%%%%%%%%%$$'
+  +'%$$$$$$$$$$$$$$$$%$$$#$$$$$#$$$$$$$$$$$%%%%&&%&%''&&''''&((''((()((*))+)**)'
+  +')++*++*+**++++++++++*****+***********)*)*)**)))))(()()(())()((()(((''((((('
+  +'''''(((''''''''''''''''&&''''''&&&''''&&&%&&%&&%%%%&%%%$$%$%%$$$$$$#$#$$###'
+  +'###"##"####""###"""""'#31#31#31#29#28#29#29#29#29#29#28#29#29#29#30'"!"4449'
+  +'89=>>ABAEED'#30#30#30#27#27#27#27#27#27#26#26#27#26#26#27#26#26#26#26#26#26
+  +#26#26#26#25#26#26#26#25#25#25#26#25#25#25#25#25#25#25#25#24#25#24#24#25#24
+  +#25#24#24#24#24#25#24#24#24#24#24#24#24#24#24#24#24#23#23#23#23#23#23#23#23
+  +#23#23#22#23#23#22#23#23#22#22#23#23#22#22#22#22#22#22#22#22#22#22#21#21#22
+  +#21#22#22#21#21#22#21#21#21#21#21#21#21#20#21#21#21#21#20#21#20#20#20#21#20
+  +#20#20#20#20#20#20#19#20#20#20#19#20#19#20#19#20#19#19#19#20#19#19#19#19#19
+  +#19#18#18#18#18#18#18#19#18#18#18#18#18#18#18#18#18#17#18'+--'#17#17#17'000y'
+  +'yy0000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000//////......------,,,+++***)))((('''''''
+  +'''''''&&&%%%%%%$$$$$$$$$$$$'#197#197#197#251#251#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251#224
+  +#224#224'LLL$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&&&&&&&&&&&&&&'
+  +'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%$$$$$$$$$$$$$$$$$$$$$ggg'#238#238#238#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#224#224#224'ggg$$$$$$$$$$$$$$$$$$$$$$$$$$$'#197
+  +#197#197#251#251#251#251#251#251'ZZZ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$???'#224#224#224#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#251#251#251#251#251#251#251#238#238#238'ggg$$$%'
+  +'%%&''''(((*)*,,+---%%&$$$##$$$$$$$$$$,,,.--.----------------------,-,,,,,,+'
+  +'++,++++++*+++************)))))))))))))))))))))))))))))(()'')(()((''&''''''('
+  +'((''(''(''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''&&&&&&&'
+  ,'&&&&&&&%&%&&%%%%%&%$%%$$$$%%%$$$$%$$$$$$$$$%%$$$$$%%%&&&&&&&''&''&&(''''((('
+  +'))))))*)(+**+**+*++**+*+++++++++*+*+*+*****+**********))))*))))))))))))(((('
+  +')((((((((((((((''((((''''(''''''''&&''''''''&&&&&%&&%&&%&&%&%%&%$%%$%$$%$$$'
+  +'$##$###$$#$#########"###""""""!"'#29#29#29#29#29#29#28#29#29#28#29#29#30#30
+  +#31'222887;;<@@?CDD)(('#27#27#27#27#26#27#26#27#26#27#26#26#27#27#27#26#26#26
+  +#26#26#26#26#26#26#26#26#26#26#26#25#25#26#25#25#25#26#25#25#25#24#25#24#25
+  +#25#24#24#25#24#24#25#24#24#24#25#24#24#24#24#24#24#23#23#23#23#23#24#23#23
+  +#24#23#23#23#23#23#23#23#23#23#23#22#23#22#22#22#22#22#22#22#22#22#22#22#22
+  +#22#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#21#20#21#20#20#21#21#20
+  +#21#21#20#20#20#20#20#20#19#20#20#19#20#20#20#19#19#19#19#19#19#19#19#19#19
+  +#19#19#19#19#18#18#18#18#18#19#19#18#19#18#18#18#17#18#18'-+-'#17#17#17'000y'
+  +'yy0000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000/////////......---,,,+++***)))(((((('''''
+  +'''&&&%%%%%%%%%$$$$$$$$$'#199#199#199#253#253#253#253#253#253#253#253#253#253
+  +#253#253#253#253#253#253#253#253#212#212#212#171#171#171'hhh$$$$$$$$$$$$$$$$'
+  +'$$$$$%%%%%%%%%%%%%%%&&&&&&&&&&&&&&&&&&'''''''''''''''''''''''''''''''''''''
+  +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+  +'''''''''''''''''''''''''''''&&&&&&&&&&&&&&&&&&%%%%%%%%%%%%%%%$$$$$$$$$$$$$$'
+  +'$$$$$$$222'#131#131#131#212#212#212#253#253#253#253#253#253#253#253#253#253
+  +#253#253#253#253#253#253#253#253#253#253#253#212#212#212'vvv$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$222ZZZ'#212#212#212#253#253#253#253#253#253'ZZZ$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%&&'
+  +'&&&&&&&&&&&&&&&&&&&&&&&&&%%%%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$222'#171#171#171
+  +#253#253#253#253#253#253#253#253#253#253#253#253#253#253#253#199#199#199'MMM'
+  +'$$$$$$&&&((()))+++-,-,,,###$$$$$%$$%%%$&''&..-.../.....-..-.-..-.-...-----.'
+  +'---------+,,,,++,++,*++*+++****+**********))*)**))*)***))))))*)(((($$$!!!"!'
+  +'"$%%)((()(((((((''(((((''''''''''''''''''''(''''''''''''''&&&''&&''&%&&&''&'
+  +'&&%%&%%&$%%%$%%%%%%%%%%%%%%%%%%$%%%%%&&&&&&''&&''''''''''''(('')(()(())(**)'
+  +'*))***+**,++++++*+,+++++++++*+**+++**+*********))***))*))))*)))())())())()('
+  +'()((((''((''''((''(''''(''''(''''''''''''&&&&&%''&%&&%&&%%%%&%%&$$%%$%$$$$$'
+  +'$#$####$#$$##########"""#""""#'#29#29#29#29#29#29#29#28#29#29#29#29#29#30#30
+  +'+++666;;;??>CBB333'#27#27#27#27#27#27#27#26#27#26#27#27#26#26#26#27#26#26#26
+  +#26#27#26#26#26#26#26#25#26#26#26#25#25#26#25#25#26#25#25#25#25#25#25#24#24
+  +#24#25#24#25#24#25#24#24#25#24#24#24#24#24#24#24#23#24#23#23#23#24#23#23#24
+  +#23#23#23#23#23#23#23#23#22#22#22#23#22#23#22#23#23#23#22#22#22#22#22#22#22
+  +#21#22#21#22#21#21#22#22#22#21#22#21#21#21#21#21#21#21#21#21#20#21#20#20#20
+  +#21#20#20#20#20#20#20#20#20#20#20#20#20#20#20#19#19#20#19#19#19#19#19#19#19
+  +#19#19#18#19#19#19#18#18#19#19#19#19#18#18#18#18#18#18'---'#18#18#18'000yyy0'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000/////////......---,,,+++***)))((((((''''''&'
+  +'&&&&&%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%'
+  +'%%%%%&&&&&&&&&&&&''''''''''''''''''''''''''''''(((((((((((((((((((((((((((('
+  +'(((((((((((((((((((('''''''''''''''''''''''''''''''''''''''''''''''''''''''
+  +'''''''&&&&&&&&&&&&%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$???[[['#132#132#132
+  +#145#145#145#132#132#132'[[[222$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$???'#254#254
+  +#254#254#254#254#254#254#254#254#254#254'[[[$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%&&&&&&&&&&&&'''''''''''''''
+  +'''''''''''''''''''''''''''''&&&&&&&&&%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$222[['
+  +'[[[[[[[222$$$$$$$$$%%%((()))***,,,...''''''#$#%$$%$%%%%%%&%%%)))/..0///////'
+  +'///////../...../.........-----,-,,-,,,+,-,,,++++++++++++++++++++*+****++**+'
+  +'****''''''###"!"!""""!"""##"&&&()(()(((()(())((())(())((()((((((((''(''''('
+  +'''&(''&''&''''&&''&''''&&&&&&&&%&&%&&%%%&&&&&&&&%''''''&''''''''''''''''((('
+  +'((())(*)(*))+*)++*+*+,+*,++,**+**,+++,+++++++*+***++***+***********)))**))*'
+  +'))))))()))))(((((()((((((((''((''''''''(''''''''''''''''''&&&&''&%''&%&&%&%'
+  +'%&%$%%$%%$%$$%$$$$$##$$$$#$####$##########"#""'#30#30#31#30#30#29#29#29#29
+  +#29#29#29#29#30#30'&''''555999=>>BBB<<<'#27#28#27#27#27#27#27#27#28#26#27#27
+  +#26#27#27#27#26#26#27#26#27#26#26#26#26#26#26#26#26#25#26#26#26#25#26#26#25
+  +#25#25#25#25#25#25#25#25#25#25#24#25#24#25#24#25#24#25#24#24#24#24#24#24#24
+  ,#24#24#24#24#23#24#24#23#23#23#23#23#23#23#23#23#23#22#23#23#23#23#22#22#22
+  +#22#22#22#22#22#23#22#22#22#22#22#21#21#22#21#22#22#22#22#21#22#21#21#21#21
+  +#21#21#21#21#21#20#21#21#20#20#21#20#20#20#20#20#20#20#20#20#19#20#20#19#20
+  +#19#19#20#19#19#20#19#19#19#19#19#19#18#19#19#19#18#18#18#18#18#18#18#19#18
+  +'---'#18#18#18'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000/////////......---,,,+'
+  +'+++++***)))(((''''''''''''&&&%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$%%%%%%%%%%%%&&&&&&&&&''''''''''''''''''''''''((((((((((((((((((('
+  +'((((()))(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((('''''''
+  +'''''''''''''''''''&&&&&&&&&%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'#132#132#132#200#200#200#200#200
+  +#200#200#200#200'[[[$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%&&&&&&&&&''''''''''''''''''''''''''''''''''''(((((('''''
+  +'''''''''''''''''''''&&&&&&&&&%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$&&&******,,,---///000''''&%%%%&&%&%&&&&''&''&''***00010000000000000000'
+  +'0/0/00//0////.....-.--.-,----,,,,,,+,++,++,+,+++++*++++*+*+++**)%$&########'
+  +'####"######"#"#"$##''''''))))))))))))))))))()(()(((((((((((((''''''''''''('
+  +'''''''''''''''''''''''''&&''''&''&''&&&&''&''''''''&''''''''''(''''('')()(('
+  +'())())))))+**++*++*+**,++,+*+++-+,,+,+,++,,++++++++++++*++*********)*))**))'
+  +'))*))))())))))))))((()((((((((''''(''(''''''''''''''''''''''''''&&&&&&%''&&'
+  +'''&%&%%%%%%%%%%$%$$$$$$$$###$$$#$###$######"##"##'#31#31' '#29#29#29#29#29
+  +#29#28#29#29#30#29#30'"!"4549:9===AAAEEE'#30#30#31#27#27#28#27#27#27#27#27#27
+  +#27#27#27#26#27#26#27#27#27#27#27#27#26#26#27#26#26#26#25#25#26#25#26#26#26
+  +#25#26#26#26#25#25#25#25#25#25#25#24#25#25#25#24#24#24#24#25#24#24#24#24#24
+  +#24#24#23#24#24#23#23#23#24#24#23#23#23#23#23#23#23#23#23#22#23#22#23#22#23
+  +#22#22#22#22#22#22#23#22#22#22#22#22#21#22#22#22#22#22#21#21#21#21#22#21#21
+  +#21#21#21#21#21#21#21#21#21#21#20#21#21#20#20#20#21#20#20#20#20#20#19#19#20
+  +#20#20#19#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19#18#19#18#18#19#19#19
+  +'---'#18#18#18'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000//////......------,'
+  +',,+++***)))((((((''''''&&&&&&%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$%%%%%%%%%%%%%%%&&&&&&''''''''''''''''''(((((((((((())))))))))))))))))****'
+  +'********)))))))))))))))))))))))))))))))))))))))))))))))))))(((((((((((('''''
+  +'''''''''''''''&&&&&&&&&%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&''''''''''''''''''((((((('
+  +'(((((((((((((((((((((((''''''''''''''''''&&&&&&&&&%%%%%%%%%%%%$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$%%%)))+++,,,...///111122(((&&&&&&&&&''''''''''''''''''+'
+  +'++211111111111111110111101100000/0/0/.//./../..----------,,,-,,-,--,,,,,+,,'
+  +',,(((%%%#$$####$#############"###########$##''''''*))**)))**))*)*)*)*))))))'
+  +')()(()((((''(''''(''''((''''''''''''''(''((((''''(''''''((''((((((((()))())'
+  +'*))*))**)+**+**+++++*-++,+,,++,++,,,,,,,,,+++++++++++*+++************)**)**'
+  +')*))**)))))))))))(()(((((((((((((''''(''(''''''''''(''''(''''''&''''&''&&&&'
+  +'%&&%&%%&%%%%$%%$%%%$%$$%$$$$#$#$$$#####$$########"""'#30#29#29#29#29#29#29
+  +#29#29#29#29#29#31#31#31'322777<<=@@@DDD)))'#27#27#27#27#27#28#27#27#27#27#27
+  +#27#27#27#27#27#26#27#27#27#26#26#27#26#26#26#27#26#26#26#26#26#26#25#25#26
+  +#26#25#26#25#26#26#25#25#25#25#24#25#25#25#24#25#25#24#24#24#25#24#24#24#24
+  +#24#24#24#24#23#24#23#24#23#24#23#24#24#23#23#24#23#23#23#23#23#23#23#23#22
+  +#22#23#23#23#22#22#22#22#22#22#22#22#22#22#21#22#22#21#21#21#22#22#21#22#21
+  +#21#21#21#21#21#21#21#20#20#21#21#21#20#20#20#20#20#21#20#20#20#19#20#20#20
+  +#20#20#19#19#20#19#20#19#19#20#19#19#19#19#19#18#19#18#19#18#18#18#18'0--'#18
+  +#18#18'000yyy000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000//////.........---,,,+++***'
+  +'***)))(((''''''''''''&&&&&&%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%'
+  +'%%%%%%&&&&&&&&&''''''''''''((((((((()))))))))******************++++++++++++'
+  ,'++++++*********************************************)))))))))((((((((('''''''
+  +'''''''''''''&&&&&&&&&%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&&&&&&&''''''''''''''''''((((((((())))))))))))'
+  +')))))))))))))))((((((''''''''''''''''''&&&&&&%%%%%%%%%%%%%%%%%%$$$$$$$$$$$$'
+  +'$$$$$$%%%%%%%%%%%%+++---///000111333323)**(((''''(((((()(((((),-,3222223333'
+  +'3321221211121111111100000/0//////../....-....-.---.-.---+++&&&%$%%%%%%$%$$%'
+  +'%%$$%$$$$$$$$$$$$$$####$$#$#####$##''&''(()++++++*+*++******))*))))*)(*)))('
+  +'()(()((((((((((()()))()())))))))))))))))*+++**++*++*,++,++,,+,++-,+,++-,,-,'
+  +',,,+,,,,+,++++++++++*+*++**++***+********))))))))))))))))))(())()((()))(((('
+  +'((((''''''(((''(''''''''''''&''&&''&%&&&&%%''%%&%%&%%%%$%$$$$$%$$$$$$#$$$$$'
+  +'#$########"#"#'#29#29#30#30#29#29#29#29#29#29#29#29#30#30#30',++766;;;???CC'
+  +'C333'#28#28#28#28#27#27#27#27#27#27#28#27#27#27#27#27#27#26#26#27#27#27#26
+  +#27#27#27#26#27#26#26#26#26#26#25#26#26#26#25#26#25#25#25#25#25#26#25#25#25
+  +#25#25#25#25#25#25#24#24#24#24#24#25#24#24#25#24#24#24#23#24#23#24#23#23#23
+  +#23#23#24#23#23#23#23#23#23#23#23#23#23#22#23#22#23#22#23#22#22#22#23#22#22
+  +#22#22#22#22#22#22#22#22#22#22#22#22#21#21#21#22#21#21#21#21#21#21#21#21#20
+  +#20#21#20#20#20#21#20#20#20#20#20#20#20#20#20#20#19#20#20#19#20#19#20#19#19
+  +#20#19#19#19#19#19#19#18#19#19#18'-0-'#18#19#18'000yyy0000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000/////////......---,,,++++++***)))((((((''''''''''''&&&&&&%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&''''''''''''((((((((())))'
+  +'))*********++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
+  +'+++++++++++++++++*********)))))))))((((((''''''''''''''''''&&&&&&&&&%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
+  +'$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'''''''
+  +'''''''''''''''''''((((((((())))))************************)))))))))(((((('''
+  +'''''''''''&&&&&&&&&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&''''''---///11'
+  +'1222443444555())(()(()))))**)*))))---33344444433333322223232212111011010010'
+  +'00//0////././/./....-.*)*%%%%%%%%%%%%%%%&%&%&%%%%&&&%%%%%%%%%%%%%%%%%%%$$$$'
+  +'$$$$$$$$$$$$%)()***,,,+++,+*++*+**+**+)***)*))**))*)))))))****)*)))*))*****'
+  +'****+*+*+*+,+,++,,+,++,+*,,,-,+,+,-+,-,,-,,-,,,++,,+,,,++++++++++++++**+***'
+  +'**********)*)**)*)*)*))))))))))())))()(((((((((((''((''''''''''''''''&''&&'
+  +'''&&&&&&&%&&%&%%&%%%$%%$%$$$%$$%$%$$##$##$$$###$#######'#31#31#31#29#30#30
+  +#29#29#30#30#29#29#30#30#30'''''''5569::>>>CBB==='#28#28#27#27#28#27#27#28#28
+  +#27#27#28#27#27#27#27#27#27#27#27#26#27#27#26#26#26#26#26#26#27#27#26#26#26
+  +#26#26#25#26#26#26#25#26#26#26#25#26#26#25#25#25#25#25#25#25#25#25#25#24#24
+  +#24#24#25#24#24#25#24#24#24#24#24#24#24#23#24#24#23#23#23#23#24#24#23#23#23
+  +#23#23#23#23#23#23#23#23#23#23#22#22#22#23#23#22#22#22#22#22#22#22#22#21#22
+  +#21#22#22#22#21#21#21#21#21#21#21#21#21#21#21#20#21#21#21#21#20#20#21#21#20
+  +#20#20#20#20#20#19#20#19#20#20#19#20#19#20#19#19#19#19#19#19#19#19#19#19#19
+  +'000'#18#18#18'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000/////////......----'
+  +'--,,,+++******)))((((((''''''''''''&&&&&&&&&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&'
+  +'&&&&&&&&&&&''''''''''''''''''(((((())))))******++++++++++++,,,,,,,,,,,,,,,,'
+  +',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,++++++++++++****'
+  +'**))))))(((((((((''''''''''''''''''&&&&&&&&&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&&'
+  +'&&&&&&&&''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''('
+  +'((((((((((())))))*********+++++++++++++++++++++******))))))((((((((('''''''
+  +'''''''&&&&&&&&&%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&''''''(((///111222444555'
+  +'666445+++*)*)*)++++***++*+*---544555555444443444343333222231321211111100000'
+  +'000/00---''''''&''''&''&&&&&&&&&&''''''''&''&''''**+545445---''''''&%&&&&&%'
+  +'&%&&%&%&%&%%%%%%%%%%%%$%%&&&***,,,,,+,,+,++,++,*++*+++*+********++++*++++*+'
+  +'*++++++++++++,,,+,,,-,-,+,++-,,-,+-,+,+,-,,.,,-,,-,,,,+,,,+,,+,,+++++++++++'
+  +'++******+**********)*)())&&''&&&))))))())((()()(((((((((((''''''''''('''''''
+  +'&''''&''&&''&&&&&&%%&%%&%%&%%%%%$$%%$%$%$$$$$$$$###$#$######## '#31' '#30#29
+  +#30#29#29#30#30#30#29#31#30#30'""#555:99=>>AAAEEF'#31#31#31#28#28#28#27#28#28
+  ,#28#28#27#27#27#27#27#27#27#27#27#27#27#26#27#27#27#27#27#26#27#27#26#26#26
+  +#27#26#26#26#25#25#26#25#25#26#26#25#25#26#25#26#26#26#25#25#25#25#25#25#25
+  +#25#25#24#25#24#24#25#24#24#24#24#24#24#23#24#24#23#24#23#24#24#23#24#24#23
+  +#23#24#23#23#23#23#23#22#22#22#22#22#22#22#23#22#23#22#22#22#22#22#21#21#21
+  +#21#22#22#22#21#22#21#21#21#21#22#21#21#21#21#21#21#20#21#20#20#20#20#20#21
+  +#20#20#20#20#19#20#20#19#20#20#20#20#19#19#19#19#19#20#19#19#19#19#19#19#19
+  +'000'#19#18#19'000yyy0000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000//////.........-'
+  +'--,,,,,,+++******)))((((((''''''''''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'
+  +'&&&&&''''''''''''''''''(((((())))))*********++++++,,,,,,,,,,,,-------------'
+  +'--------------------------------------------------------,,,,,,,,,,,,+++++++'
+  +'++******))))))(((((((((''''''''''''''''''&&&&&&&&&&&&&&&&&&%%%%%%%%%%%%%%%%'
+  +'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&&&&&&&&&&&&'''''
+  +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''(((((((((((((((((()'
+  +'))))))))******++++++++++++,,,,,,,,,,,,,,,+++++++++******))))))(((((('''''''
+  +'''''''''''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&''''''''''''''''''((()))111333'
+  +'444555777878777---++++++,+,,+++,+,,+--.544555555555544554454433332332322322'
+  +'211211000+*+((''''''''''(''''((''''''(((((())))**554999999999999555000(((&'
+  +'''''&''&&''&&''''&''&''&''''&&&&&&&&&%&)))-----,----,,-,,-,,,,,,++,++,+++++'
+  +'++++++,,,+,,+,++,+,,,,,,,,,---,-,-,+--,-,,-,,-,,.------,,.-,-,,-,,,+,,,+,+,'
+  +'++,,+,++,++*+**+++**+++*(((''&''$$%$$#$$####&%%)))))))))())(((((((((((''('''
+  +'((''''''''''''''&''&&&&&&&&''&&&%%&&%&%%%%%%%%$$%$%%%$$%$$$$$$$$$###$$$##""'
+  +'"'#29#30#30#29#30#29#30#29#29#30#29#29#31#31#31'333888===@A@DDE)))'#28#28#28
+  +#28#27#28#28#28#28#27#28#28#28#27#28#27#27#27#27#27#27#27#26#27#27#26#26#27
+  +#26#27#26#26#26#26#26#26#26#26#26#26#25#25#26#25#26#26#25#25#25#25#25#25#25
+  +#25#25#25#25#25#24#25#25#25#24#24#24#24#24#24#24#24#24#24#23#24#23#24#24#24
+  +#23#24#23#23#23#23#24#24#23#23#23#23#23#23#23#22#23#22#22#22#22#22#23#22#22
+  +#22#22#22#21#22#21#21#22#22#21#21#21#21#21#21#21#22#21#21#21#21#21#21#21#20
+  +#21#20#21#20#21#20#20#20#20#20#20#20#20#20#20#20#20#20#19#19#20#20#19#19#19
+  +#19#20#19'000'#19#19#18'000yyy0000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000000///////'
+  +'//......------,,,++++++***))))))(((((((((''''''''''''''''''&&&&&&&&&&&&&&&&'
+  +'&&&&&''''''''''''''''''''''''(((((((((((())))))******++++++,,,,,,,,,-------'
+  +'-----............................................................----------'
+  +'--------,,,,,,+++++++++******))))))(((((((((''''''''''''''''''''''''&&&&&&&'
+  +'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&%%%%%%%%%%%%%%%&&&&&&&&&&'
+  +'&&&&&''''''''''''''''''''''''(((((((((((((((((((((((((((((((((((())))))))))'
+  +'))******+++++++++,,,,,,,,,,,,------,,,,,,,,,,,,+++++++++***))))))((((((((('
+  +'''''''''''''''''''''''''&&&&&&&&&&&&&&&''''''''''''''''''''''''((((((((()))'
+  +'+++3335556667778879::988/./,,+++,,,-,,,-,,,,,-,.444666666665556555554554544'
+  +'433433322...*)*)))))))())()**))))***+++333;;;<<<=========;;;:::999777111)))'
+  +'''((''''(((''(''''''''''''''''''''''''&'')))/.../-.../.-.--.--.---,,-,-,,,,'
+  +',-,,,,,,----,,-,-,,,,,,.------,-..--.-.-,-,,-,,.--.--.,-.---,,--,-,,,,,,,,,'
+  +'+,,,,,+++++***)))(''''&&&$%$$$$$$$$$$##$###$$####%%%)))()))()(()((((((((((('
+  +'((''''''''''''''''''&&''&&&&&''&%''&%&%&&%%%%%%$%$%$%%$%$$$%$$$$$$$$$$#$###'
+  +'$###'#30#30#30#30#30#30#29#30#30#29#30#30#30#30#30',,,777<;<??@DDC433'#29#28
+  +#28#28#28#28#28#28#28#27#28#27#27#28#28#27#28#27#27#27#27#27#27#27#27#27#27
+  +#27#27#27#26#26#26#26#26#26#26#26#26#26#26#26#26#25#26#26#25#26#25#26#25#26
+  +#26#25#25#25#25#25#25#25#24#24#24#25#24#24#25#24#24#25#25#24#24#24#23#24#24
+  +#24#23#24#24#23#24#24#23#23#23#24#23#23#23#23#23#22#23#22#22#23#22#22#22#23
+  +#22#22#22#23#22#22#22#22#22#22#21#22#22#22#21#21#21#21#21#22#21#21#21#21#21
+  +#21#20#21#21#20#20#21#20#21#20#20#20#20#21#20#20#20#19#20#20#19#19#19#19#20
+  +#20#20#19#19'000'#19#18#19'000yyy0000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000000000////'
+  +'////////......------,,,++++++******))))))((((((((('''''''''''''''''''''''''
+  ,'''''''''''''''''''''''''''''''(((((((((((()))))))))******++++++,,,,,,,,,---'
+  +'------.....................................................................'
+  +'...............---------,,,,,,+++++++++******))))))(((((((((((('''''''''''''
+  +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+  +'''''''''''''''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&''''''''''''''''''''''''((((('
+  +'((((((()))))))))))))))))))))))))))))))))************+++++++++,,,,,,,,,-----'
+  +'----------------------,,,,,,++++++******))))))(((((((((((('''''''''''''''''
+  +'''''''''''''''''''''''''''(((((((((((())))))******,,,55566688888899::;::;;/'
+  +'//---,-,-,--,-,,-,-,-,-333777777666655666555555544432,,-**********)**)*+*+*'
+  +'+*,++/..:;:@@@@@@BBBBBBAAA@@@>>><<<;;;999999999434.--(((''''''(''('''''''''
+  +'''''''''''&&''0000//0//0/./../../../.-...-..----.----------...---.--.......'
+  +'...-..--.--.-,..-.--.------,------,-,,++++++)))((''''&''%%&&%&%%&%$$$%%$$$$'
+  +'$$$$$$$$$$$$$#$$##$###$%%%)))())))))()((((((((((((''''''(''''''''&''&''''&&'
+  +'&&&''&%''%&&&%&%&%%%$%%%$$%$%$$%$$$$$$$$$#$$$#$### '#31' '#30#30#30#29#30#30
+  +#29#30#30#30#31#30'''((666:::>>>BBB==='#28#28#29#28#28#28#28#28#28#27#28#28
+  +#27#28#27#28#28#27#27#27#27#27#27#27#27#27#27#27#27#27#27#26#26#26#27#27#26
+  +#26#26#26#27#26#26#26#26#25#26#26#25#26#25#25#25#25#25#25#25#25#25#25#25#25
+  +#25#25#24#24#25#24#24#24#25#24#25#24#24#24#24#24#23#23#24#24#23#23#24#24#23
+  +#23#23#23#23#24#23#23#23#23#23#23#22#22#22#22#22#22#22#22#23#22#22#22#22#22
+  +#22#22#22#21#22#21#21#22#21#21#21#21#21#21#21#21#21#20#20#21#21#20#20#20#20
+  +#20#20#21#20#20#20#20#20#20#20#20#19#20#19#20#19#20#19#19'200'#19#20#19'000y'
+  +'yy0000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000/////////.........------,,,++++'
+  +'++******)))))))))((((((((((((((((((((((((((((((((())))))))))))******+++++++'
+  +'++,,,,,,------..................///////////////////////////////////////////'
+  +'/////////////////.....................---------,,,,,,+++++++++******)))))))'
+  +'))((((((((((((((((((((((((((((((((((((((((((((('''''''''''''''''''''''''''''
+  +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''(((((((((((()))))))'
+  +'))*********************************+++++++++++++++,,,,,,---------..........'
+  +'..............------,,,,,,+++++++++******)))))))))((((((((((((((((((((((((('
+  +'(()))))))))*********++++++...666888999:::;;;=<=<<<110.....-.--..---...----2'
+  +'11777777777767676555100++++,,+++++++++++++++,+,.--878AAACDCEEEGGGGGGGGGEEEC'
+  +'CCAAA>>><<<::::::99989999:677111())()((((((((((...00/0/////0///////////////'
+  +'//./..././..........-.-...../...........----/...--/--/-..--.--.--+++&%&&%&&'
+  +'%&&%&&%&&%&&%%%%%&%&%%%%%%%%%%$%%$%$$$$$$$$$##$$$##$$#$#%%$((())))))()()((('
+  +'(((((((''''(''''''''''&&''&&''&&''&&''&&&&&&%&%%%%%%%$%$%%$%$%%%$$$$$$$$$$$'
+  +'$$$#   '#30#30#30#30#30#30#30#30#30#31#30#30'###565:::>>>BBBEFE'#31#31' '#28
+  +#29#28#28#28#28#28#28#28#27#28#28#28#27#28#27#27#28#27#27#27#27#27#27#27#27
+  +#27#27#27#27#26#27#27#26#26#26#26#27#26#26#26#26#26#26#26#26#26#26#26#25#26
+  +#25#26#25#25#26#25#24#25#25#25#25#25#25#24#25#24#24#24#24#25#24#25#24#24#24
+  +#24#24#24#23#24#23#23#24#23#24#24#24#23#23#23#23#24#23#23#23#23#23#23#22#23
+  +#22#23#22#23#22#22#22#22#22#22#21#22#22#22#21#22#21#22#22#21#21#21#21#21#21
+  +#21#21#21#20#21#21#21#21#21#21#20#21#20#20#20#20#20#20#20#20#20#20#20#20#19
+  +#20#20'002'#20#19#19'000yyy0000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'00000000000000000000000000000000000000000000000000000000000000000000///////'
+  +'/////.........------,,,,,,++++++*********))))))))))))))))))))))))))))))))))'
+  +'))*********+++++++++,,,,,,---------............////////////////////////////'
+  +'/////////////////////////////////////////////////////...............-------'
+  +'--,,,,,,+++++++++*********)))))))))))))))(((((((((((((((((((((((((((((((((('
+  +'((((((((((((((((((((((((((((((((((((((((()))))))))************+++++++++++++'
+  +'++++++++++++++++++++,,,,,,,,,,,,---------..................................'
+  +'..------,,,,,,+++++++++*********))))))))))))))))))))))))))))))*********++++'
+  +'++,,,,,,---///888999;;;;;;<<<===>>>434--..-.-.--.-...-..---000777776776332-'
+  +'--+,+++,,+++++,++,,,,,,---333>>>CCCFEFHIHKLKMMMMMMLLLHHH<<<BBB>>><<<;;;::::'
+  +'::::::9::99:;;))))))))))))(((---1111001001000//00/0//////./...////../...../'
+  +'//////////.//.......//..../.-.--/--.--.--.--.--)()&%&&&&&&&&%&&%&&%&&%&&%&%'
+  +'%&%%%%%%%%$$%$%$%$$$$$%$$$$$$$$$$$$###$##$%$((()()()))(())((((((''((''('''''
+  +'''&''''&''(&&''&&''&&&&%&&%&%%%%%%%%%%%%%$%%$$%$$$$$$$$$$$#$"""'#31#30#30#31
+  ,#30#30#30#30#30#30#29#30' '#31' 334999===AAAEEE***'#28#28#29#29#29#28#28#28
+  +#28#28#28#28#28#28#28#28#28#27#27#28#27#27#27#27#27#27#27#27#27#27#26#27#27
+  +#27#26#26#26#26#27#26#26#26#26#26#26#26#26#26#26#26#25#25#25#25#25#26#25#26
+  +#25#25#25#25#25#25#25#24#25#25#25#24#24#25#24#24#24#24#24#24#24#24#24#24#24
+  +#24#24#24#23#24#23#24#23#23#24#23#23#23#23#23#22#23#22#23#22#22#22#23#22#22
+  +#22#22#22#22#22#22#22#21#22#22#21#22#21#22#21#21#22#21#21#21#21#21#21#21#20
+  +#21#21#21#20#21#20#20#20#20#21#20#20#20#21#20#20#20#20#20#20'220'#20#19#19'0'
+  +'00yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy'
+  +'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy'
+  +'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy'
+  +'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy'
+  +'yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyxxxxxxwwwwwwvvvuuutttsssrrrq'
+  +'qqpppooonnnmmmlllkkkjjjjjjjjjiiiiiiiiiiiiiiijjjjjjjjjkkkllllllmmmnnnooopppp'
+  +'ppqqqrrrssstttuuuuuuvvvvvvwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
+  +'xxxxxxxxxxxxxxxxxxxxxxxwwwwwwwwwwwwvvvvvvuuuttttttsssrrrqqqpppooonnnnnnmmml'
+  +'llkkkjjjjjjiiiiiiiiihhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhggggggfffffffffffff'
+  +'fffffffffffgggggghhhiiiiiijjjkkklllmmmmmmnnnnnnoooooooooooooooooopppppppppp'
+  +'pppppqqqqqqrrrsssttttttuuuuuuvvvvvvvvvvvvvvvvvvuuuuuutttsssrrrqqqppppppooon'
+  +'nnmmmlllkkkjjjjjjjjjiiiiiiiiiiiijjjjjjkkkllllllmmmnnnooopppqqqrrrsssyyy'#139
+  +#139#139#146#146#146#147#147#147#148#148#148#151#148#151#154#152#154#152#154
+  +#154#139#141#141'ruuuurrruururrrrruqqqttt'#133#130#130'yyyppppnppnpnpppppoor'
+  +'ooorruwww'#149#149#149#166#166#166#170#170#170#174#174#174#181#181#181#185
+  +#186#185#187#187#187#190#190#190#188#188#188#158#158#158'rrrknnvvv'#137#139
+  +#139#145#145#145#145#145#145#143#143#143#144#144#144#144#144#144#141#144#144
+  +#145#145#145#145#145#144'ssvgigiggfifffinnn|||||{||{{{{{xx{xx{xx{xxxvxxvvvxv'
+  +'xvvvvvywwwwwwwwwwwxuxxxxuxuuuuuuuvvsvssvssvqsssssqqsqqqqq``b``b``b`]```b`]`'
+  +'`]``]``]```bb``b````````bbbillyyybbb][[[[[[X[X[XX[[[[X[][ebegggggeeeegeeeee'
+  +'eebebbeb`e`beb`e``b``b```````]`]]]]]]]]]]]]]]]]]][[[][[[[[[[[X[KNKNKKKNKKKK'
+  +'NNNnnq'#141#141#141#149#151#149#158#158#158#167#167#167#128#131#131'FIFIIFF'
+  +'FFFIFFFFFFFCCCCCCFCCCCCCCCCCCCAAAAAAAAAAAA>A>A>A>AA>>>>>>>>=>==>=>========:'
+  +'====:==:=:==::::::8::8:888888888888858888855555555555555222222222222022222'
+  +#19#20#19'000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000000000000000000000000000////////////'
+  +'.........---------,,,,,,,,,+++++++++++++++++++++++++++++++++++++++,,,,,,,,,'
+  +',,,---------............//////////////////000000000000000000000000000000000'
+  +'000000000000000000000000000000000000000//////////////////............------'
+  +'---,,,,,,,,,+++++++++++++++++++++******************************************'
+  +'***)))))))))))))))***************+++++++++,,,,,,,,,,,,,,,------------------'
+  +'---------------..................//////////////////////////////............'
+  +'---------,,,,,,,,,++++++++++++++++++++++++++++++++++++,,,,,,,,,------......'
+  +'......000999<<<<<<<<<>>>??????;;;/0/./...../../....----.----------,,-..--..'
+  +'...///989BBBGFFIIIKKKOOOQQQSTSVUVMMM666,,,,,,,,,,,,,,,---222777888999999:9:'
+  +':9:000)*)*)**))))),++2122212212112112111011000/0000000//0///0///0///////0/0'
+  +'0/0/0//00/0/0/./../../.-/...--.-.***&&''&&''&&''&%&&%&''&''''&''''&''(''('''
+  +'''(+**-.-112555888767766556''''''%%$$$#$$$#$$$#$#$$$%%((())())(()()((((''(('
+  +'''''''&(&''''''''''&&''&&''&&&&&&&%%%&%%&&&%%%%$%%$$$$%%%$$%$$$$$$$$ '#31#31
+  +#31#31#30#30#31#30#30#30#30#31#31#31'(((888<;<@A@DDD???'#28#29#29#29#29#28#28
+  +#28#28#28#28#28#28#28#28#28#28#28#27#28#28#27#27#27#28#27#28#28#27#27#27#27
+  +#27#27#27#27#27#27#27#27#26#27#26#27#27#26#26#26#26#26#26#26#26#26#25#26#26
+  +#25#26#26#25#26#25#25#25#25#25#25#25#25#25#25#24#25#25#24#24#24#24#24#25#24
+  +#24#24#24#24#24#24#23#24#24#23#23#24#24#23#23#23#23#23#23#23#23#23#23#23#23
+  +#23#23#22#23#23#22#22#22#22#22#22#22#22#21#22#21#22#22#21#22#22#22#21#21#21
+  +#21#21#21#21#21#21#20#21#21#20#21#21#21#20#20#21#21#20#20#20#20#20#20#20#20
+  +#20#20#11'Transparent'#8#0#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#27#3
+  +'Top'#3#8#1#5'Width'#3'9'#1#7'Caption'#6'?Copyright RemObjects Software, 200'
+  +'2-2008. All rights reserved.'#10#10'Font.Color'#7#7'clWhite'#11'Font.Height'
+  +#2#245#9'Font.Name'#6#6'Tahoma'#11'ParentColor'#8#7'OnClick'#7#12'OnCloseCli'
+  +'ck'#0#0#6'TLabel'#11'lbl_Version'#4'Left'#3#253#0#6'Height'#2#17#3'Top'#2'('
+  +#5'Width'#2#11#7'Caption'#6#2'[]'#10'Font.Color'#7#7'clWhite'#11'Font.Height'
+  +#2#243#9'Font.Name'#6#6'Tahoma'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4
+  +'Left'#2#8#6'Height'#2#14#3'Top'#3#24#1#5'Width'#2'\'#7'Caption'#6#20'Visit '
+  ,'our website at'#10'Font.Color'#7#7'clWhite'#11'Font.Height'#2#245#9'Font.Na'
+  +'me'#6#6'Tahoma'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#6'Cursor'#7#11'cr'
+  +'HandPoint'#4'Left'#2'f'#6'Height'#2#14#3'Top'#3#24#1#5'Width'#3#151#0#7'Cap'
+  +'tion'#6#28'http://www.remobjects.com/ro'#10'Font.Color'#7#7'clWhite'#11'Fon'
+  +'t.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#11'fsUnderline'#0
+  +#11'ParentColor'#8#7'OnClick'#7#11'Label3Click'#0#0#7'TButton'#10'btn_Cancel'
+  +#4'Left'#3#162#1#6'Height'#2#25#3'Top'#3#16#1#5'Width'#2'M'#6'Cancel'#9#7'Ca'
+  +'ption'#6#10'btn_Cancel'#7'Default'#9#10'Font.Color'#7#7'clWhite'#11'Font.He'
+  +'ight'#2#245#9'Font.Name'#6#6'Tahoma'#7'OnClick'#7#12'OnCloseClick'#8'TabOrd'
+  +'er'#2#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.pas
new file mode 100644
index 0000000..a6e09f5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROAbout.pas	
@@ -0,0 +1,133 @@
+unit fROAbout;
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  {$IFDEF FPC}LCLIntf, LResources,{$ELSE}Messages,{$ENDIF}
+  SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls;
+
+type
+  TAboutForm = class(TForm)
+    Image1: TImage;
+    Label1: TLabel;
+    Label3: TLabel;
+    btn_Cancel: TButton;
+    lbl_Version: TLabel;
+    Label7: TLabel;
+    procedure OnCloseClick(Sender: TObject);
+    procedure Label3Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+{$IFNDEF FPC}
+function VersionBuildNo(iInstance:THandle):integer;
+{$ENDIF FPC}
+
+var
+  AboutForm: TAboutForm;
+  sVersionName : string = '';
+
+implementation
+
+uses
+  {$IFDEF FPC}uEWTools{$ELSE}uROIDETools, ShellApi{$ENDIF};
+  
+{$IFNDEF FPC}
+{$R *.dfm}
+
+
+type TVersion = record
+       Major,Minor,Release,Build:word;
+     end;
+
+function GetFileVersion(iFileName:string):TVersion;
+var whocares:dword;
+    Size:dword;
+    Data:pointer;
+    FixedData:pVSFixedFileInfo;
+begin
+  Size := GetFileVersionInfoSize(pChar(iFileName), whocares);
+  if Size > 0 then begin
+    GetMem(Data,Size);
+    try
+      if GetFileVersionInfo(pChar(iFileName),0,Size,Data) then begin
+        Size := sizeof(TVSFixedFileInfo);
+        if VerQueryValue(Data,'\',pointer(FixedData),Size) then begin
+          result.Major := HiWord(FixedData^.dwFileVersionMS);
+          result.Minor := LoWord(FixedData^.dwFileVersionMS);
+          result.Release := HiWord(FixedData^.dwFileVersionLS);
+          result.Build := LoWord(FixedData^.dwFileVersionLS);
+        end;
+      end;
+    finally
+      FreeMem(Data);
+    end;
+  end;
+end;
+
+function GetModuleName(iInstance:THandle):string;
+var Buffer: array[0..MAX_PATH] of Char;
+begin
+  SetString(result, Buffer, GetModuleFileName(iInstance, Buffer, MAX_PATH));
+end;
+
+function VersionStringLong:string;
+var Version:TVersion;
+begin
+  Version := GetFileVersion(GetModuleName(hInstance));
+  result := IntToStr(Version.Major)+'.'+IntToStr(Version.Minor)+'.'+
+            IntToStr(Version.Release)+'.'+IntToStr(Version.Build){+'.'+
+            FormatDateTime('yymmdd', CompileTime);}
+end;
+
+function VersionBuildNo(iInstance:THandle):integer;
+var Version:TVersion;
+begin
+  Version := GetFileVersion(GetModuleName(iInstance));
+  result := Version.Build;
+end;
+{$ENDIF FPC}
+
+procedure TAboutForm.OnCloseClick(Sender: TObject);
+begin
+  Close();
+end;
+
+procedure TAboutForm.Label3Click(Sender: TObject);
+begin
+  {$IFDEF FPC}
+  RO_ShellExecute(Handle,'open','http://www.remobjects.com/ro',nil,nil,SW_SHOWNORMAL);
+  {$ELSE}
+  ShellExecute(Handle,'open','http://www.remobjects.com/ro',nil,nil,SW_SHOWNORMAL);
+  {$ENDIF}
+end;
+
+procedure TAboutForm.FormCreate(Sender: TObject);
+begin
+  {$IFDEF FPC}
+  lbl_Version.Caption := sVersionName;
+  {$ELSE}
+  lbl_Version.Caption := 'Version '+VersionStringLong();
+  if sVersionName <> '' then
+    lbl_Version.Caption := sVersionName+' - '+lbl_Version.Caption;
+  {$ENDIF}
+  btn_Cancel.Left := Width+10;
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I fROAbout.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.dfm
new file mode 100644
index 0000000..855f5be
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.dfm	
@@ -0,0 +1,3244 @@
+object ROServerClassForm: TROServerClassForm
+  Left = 379
+  Top = 233
+  BorderIcons = []
+  BorderStyle = bsSingle
+  Caption = 'Select Ancestor Type for %s'
+  ClientHeight = 346
+  ClientWidth = 500
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Image2: TImage
+    Left = 0
+    Top = 0
+    Width = 500
+    Height = 64
+    Align = alTop
+    AutoSize = True
+    Picture.Data = {
+      07544269746D617036770100424D36770100000000003600000028000000F401
+      000040000000010018000000000000770100120B0000120B0000000000000000
+      00000000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B6000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E4444AC
+      7777C36666BB00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      95000095000095000095000095000095000095000095000095FFFFFFFFFFFFFF
+      FFFFDDDDF12222A3000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B5555BC00009B5555BCFFFF
+      FFAAAADE00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B0000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B0CCCCEFEEEEFA
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000A80000A80000A80000A80000A80000A80000A80000A8FFFFFFBBBBE8
+      0000A80000A80000A80000A8BBBBE8FFFFFF7777D10000A80000A80000A80000
+      A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999DC0000A800
+      00A80000A80000A80000A80000A8AAAAE2FFFFFF2222B40000A80000A80000A8
+      4444BF9999DC0000A80000A80000A80000A8FFFFFFEEEEF90000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A84444BFAAAAE2EEEEF9FF
+      FFFFEEEEF9AAAAE24444BF0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFDDDDF38888D61111AE0000
+      A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF0000A800
+      00A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A80000A80000A80000
+      A80000A81111AE8888D6CCCCEEFFFFFFFFFFFFDDDDF39999DC3333B90000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A83333
+      B9AAAAE2DDDDF3FFFFFFCCCCEE4444BF0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFCCCCEE7777D10000A80000A80000
+      A80000A80000A80000A80000A80000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFAAAAE26666CB0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A8FFFFFFFFFFFFFFFFFF7777D10000A80000A81111
+      AEEEEEF9FFFFFFFFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      B10000B10000B10000B10000B10000B10000B10000B1FFFFFFBBBBEA0000B100
+      00B10000B17777D5FFFFFF9999E00000B10000B10000B10000B10000B10000B1
+      0000B1BBBBEAFFFFFF7777D57777D57777D57777D54444C60000B10000B10000
+      B10000B10000B10000B17777D5FFFFFF3333C10000B10000B10000B1BBBBEAFF
+      FFFF1111B60000B10000B10000B1FFFFFFBBBBEA0000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B19999E0FFFFFFEEEEFA9999E07777D59999
+      E0EEEEFAFFFFFF9999E00000B10000B10000B10000B10000B10000B10000B100
+      00B10000B1BBBBEAFFFFFF7777D57777D5AAAAE5FFFFFFDDDDF51111B60000B1
+      0000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000
+      B10000B10000B10000B10000B10000B1BBBBEAFFFFFF7777D57777D57777D577
+      77D54444C60000B10000B10000B10000B10000B10000B10000B10000B15555CB
+      EEEEFAFFFFFFBBBBEA8888DB7777D5AAAAE5EEEEFA7777D50000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B16666D0EEEEFA
+      8888DB6666D0BBBBEAFFFFFF4444C60000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCEF0000B10000B10000B1
+      0000B10000B10000B10000B10000B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFBBBBEA1111B60000B10000B10000B10000B10000B10000B100
+      00B10000B10000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B1AAAAE5FFFFFF
+      FFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000A60000A6
+      0000A60000A60000A60000A60000A60000A6FFFFFFBBBBE70000A60000A63333
+      B8FFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000A6BB
+      BBE7FFFFFF0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A65555C4FFFFFF4444BE0000A60000A63333B8FFFFFFFFFFFF7777
+      D00000A60000A62222B2FFFFFF9999DB0000A60000A60000A60000A60000A600
+      00A60000A60000A69999DBFFFFFF9999DB0000A60000A60000A60000A60000A6
+      9999DBFFFFFF9999DB0000A60000A60000A60000A60000A60000A60000A60000
+      A6BBBBE7FFFFFF0000A60000A60000A66666CAFFFFFF7777D00000A60000A600
+      00A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A6
+      0000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BEFFFFFFDDDDF333
+      33B80000A60000A60000A60000A61111AC3333B80000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BE1111AC0000A600
+      00A61111ACFFFFFFCCCCED0000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A63333B8FFFF
+      FFFFFFFFBBBBE7DDDDF3FFFFFFFFFFFFFFFFFF6666CA0000A60000A60000A600
+      00A60000A60000A60000A6FFFFFFFFFFFFFFFFFFDDDDF3BBBBE7EEEEF9FFFFFF
+      FFFFFFFFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000
+      A60000A6FFFFFFFFFFFFFFFFFF7777D00000A65555C4FFFFFFFFFFFFFFFFFFEE
+      EEF91111AC0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000B30000B30000B300
+      00B30000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B3DDDDF5EEEEFA
+      2222BD0000B30000B30000B30000B30000B30000B30000B30000B3BBBBEBFFFF
+      FF0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B33333C2FFFFFF6666D10000B30000B39999E1DDDDF56666D1EEEEFA0000B3
+      0000B33333C2FFFFFF7777D60000B30000B30000B30000B30000B30000B30000
+      B34444C7FFFFFFAAAAE60000B30000B30000B30000B30000B30000B30000B3AA
+      AAE6FFFFFF4444C70000B30000B30000B30000B30000B30000B30000B3BBBBEB
+      FFFFFF0000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B30000B30000
+      B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B300
+      00B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B31111B8EEEEFADDDDF51111B80000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B3DDDDF5FFFFFF0000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B34444C78888DC1111B8
+      0000B31111B8FFFFFFFFFFFFFFFFFFAAAAE60000B30000B30000B30000B30000
+      B30000B30000B3FFFFFFFFFFFFFFFFFF7777D60000B31111B89999E1FFFFFFFF
+      FFFFFFFFFF5555CC0000B30000B30000B30000B30000B30000B30000B30000B3
+      FFFFFFFFFFFFFFFFFF7777D61111B8EEEEFAFFFFFFFFFFFFFFFFFF5555CC0000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B10000B10000B10000B10000
+      B10000B10000B10000B1FFFFFFBBBBEA0000B18888DBFFFFFF4444C60000B100
+      00B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B11111
+      B6FFFFFF8888DB0000B11111B6FFFFFF7777D50000B1EEEEFA6666D00000B144
+      44C6FFFFFF6666D00000B10000B10000B10000B10000B10000B10000B1AAAAE5
+      FFFFFF2222BB0000B10000B10000B10000B10000B10000B10000B12222BBFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF00
+      00B10000B10000B12222BBFFFFFF9999E00000B10000B10000B10000B10000B1
+      0000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000
+      B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B16666D0FFFFFF6666D00000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B13333C1FFFFFF
+      DDDDF50000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B11111B60000B10000B10000B177
+      77D5FFFFFFFFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B1
+      0000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B11111B6EEEEFAFFFFFFFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B10000B1FFFFFFFF
+      FFFFFFFFFF7777D5BBBBEAFFFFFFFFFFFFFFFFFF8888DB0000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADFFFFFFFFFFFFFFFFFFFFFFFFDDDDF43333BD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFA
+      AAAAE40000AD7777D3EEEEFA1111B20000AD7777D3CCCCEF0000AD6666CEFFFF
+      FF4444C30000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFADDDDF400
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADDDDDF4EEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000
+      AD3333BDCCCCEFEEEEFA3333BD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      BBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000ADAAAAE4FFFFFF1111B20000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD3333BDEEEEFAFFFFFF6666CE00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD1111B2AAAAE4FFFFFFFFFF
+      FFFFFFFFFFFFFF7777D30000AD0000AD0000AD0000AD0000AD0000AD0000ADFF
+      FFFFFFFFFFFFFFFF7777D30000AD0000AD0000AD9999DEFFFFFFFFFFFFEEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADFFFFFFFFFFFFFFFF
+      FFDDDDF4FFFFFFFFFFFFFFFFFFCCCCEF1111B20000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABFFFFFFCCCCEE4444C15555C7DDDDF4FFFFFF3333BC0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FF4444C10000AB0000AB0000AB0000AB0000AB0000AB0000ABCCCCEECCCCEE00
+      00ABEEEEF98888D80000AB0000AB1111B1FFFFFF4444C17777D2FFFFFF3333BC
+      0000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFBBBBE90000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      DDDDF43333BC0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBB
+      E9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFF4444C10000AB0000AB0000AB0000AB0000AB
+      0000ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB6666CDFFFFFFFFFFFF8888D80000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      EEEEF91111B10000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFF
+      FFFFFFFF7777D20000AB0000AB0000AB7777D2FFFFFFFFFFFFFFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF3333BC0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000B50000B50000B50000B50000B50000B50000B50000B5FFFF
+      FFBBBBEB0000B50000B52222BFFFFFFFBBBBEB0000B50000B50000B50000B500
+      00B50000B50000B50000B5BBBBEBFFFFFF7777D87777D87777D87777D82222BF
+      0000B50000B50000B50000B50000B50000B50000B5AAAAE6DDDDF55555CEFFFF
+      FF2222BF0000B50000B50000B59999E1AAAAE69999E1FFFFFF1111BA0000B500
+      00B50000B50000B50000B50000B50000B5EEEEFADDDDF50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B5DDDDF5EEEEFA0000B50000B50000
+      B50000B50000B50000B50000B5BBBBEBFFFFFF4444C94444C9CCCCF0EEEEFA22
+      22BF0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF
+      0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF7777
+      D87777D87777D87777D82222BF0000B50000B50000B50000B50000B50000B5AA
+      AAE6FFFFFF2222BF0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5BBBB
+      EBFFFFFF0000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B55555CEFFFFFFEEEEFA5555CE0000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B54444C9FFFFFFFFFFFFFFFFFFFFFFFFDDDDF53333C400
+      00B50000B50000B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFF
+      7777D80000B50000B50000B59999E1FFFFFFFFFFFFEEEEFA0000B50000B50000
+      B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFFBBBBEBFFFFFFFF
+      FFFFFFFFFF5555CE0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B500009F00009F00009F00009F00009F00009F00009F00009FFFFFFFBBBBE5
+      00009F00009F00009FCCCCECFFFFFF00009F00009F00009F00009F00009F0000
+      9F00009F00009FBBBBE5FFFFFF00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F8888D2FFFFFFCCCCECAAAADF00009F
+      00009F00009F00009F2222ACFFFFFFCCCCECFFFFFF00009F00009F00009F0000
+      9F00009F00009F00009F00009FAAAADFFFFFFF2222AC00009F00009F00009F00
+      009F00009F00009F00009F2222ACFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009FBBBBE5FFFFFF00009F00009F2222ACFFFFFF8888D20000
+      9F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00
+      009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F6666C5FFFF
+      FF7777CC00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9FCCCCECFFFFFF3333B200009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F7777CCFFFFFFFFFFFFFFFFFFAAAADF1111A500009F00009F0000
+      9F00009F00009F00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CC00
+      009F00009F1111A5EEEEF9FFFFFFFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CCAAAADFFFFFFFFFFF
+      FFEEEEF91111A500009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      8E00008E00008E00008E00008E00008E00008E00008EFFFFFFBBBBE100008E00
+      008E00008ECCCCE8EEEEF700008E00008E00008E00008E00008E00008E00008E
+      00008EBBBBE1FFFFFF00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E6666BBFFFFFFFFFFFF3333A500008E00008E00
+      008E00008E00008EAAAAD9FFFFFFDDDDF000008E00008E00008E00008E00008E
+      00008E00008E00008E4444ACFFFFFFAAAAD900008E00008E00008E00008E0000
+      8E00008E00008EAAAAD9FFFFFF4444AC00008E00008E00008E00008E00008E00
+      008E00008EBBBBE1FFFFFF00008E00008E00008EFFFFFFBBBBE100008E00008E
+      00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E0000
+      8E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E111196EEEEF7EEEEF7
+      11119600008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008EFFFFFF
+      CCCCE800008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E7777C3FFFFFFFFFFFFFFFFFF00008E00008E22229D3333A500008E00008E
+      00008E00008E00008E00008E00008EFFFFFFFFFFFFFFFFFF7777C300008E1111
+      969999D2FFFFFFFFFFFFFFFFFF6666BB00008E00008E00008E00008E00008E00
+      008E00008E00008EFFFFFFFFFFFFFFFFFF7777C3111196EEEEF7FFFFFFFFFFFF
+      8888CA00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E000091000091
+      000091000091000091000091000091000091FFFFFFBBBBE20000910000913333
+      A7FFFFFFBBBBE2000091000091000091000091000091000091000091000091BB
+      BBE2FFFFFF000091000091000091000091000091000091000091000091000091
+      0000910000910000914444AEFFFFFFBBBBE20000910000910000910000910000
+      910000914444AEFFFFFFBBBBE200009100009100009100009100009100009100
+      00910000910000919999D3FFFFFF9999D3000091000091000091000091000091
+      9999D3FFFFFF9999D30000910000910000910000910000910000910000910000
+      91BBBBE2FFFFFF0000910000914444AEFFFFFF9999D300009100009100009100
+      0091000091000091000091000091BBBBE2FFFFFF000091000091000091000091
+      000091000091000091000091BBBBE2FFFFFF0000910000910000910000910000
+      910000910000910000910000910000910000910000914444AEFFFFFFDDDDF044
+      44AE0000910000910000910000912222A03333A7000091000091000091000091
+      000091000091000091000091000091000091BBBBE2FFFFFF0000910000910000
+      91000091000091000091000091000091000091000091000091DDDDF0DDDDF000
+      00910000910000912222A0000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000913333
+      A7FFFFFFFFFFFFFFFFFFCCCCE9BBBBE2FFFFFF4444AE00009100009100009100
+      0091000091000091000091FFFFFFFFFFFFFFFFFFDDDDF0BBBBE2EEEEF8FFFFFF
+      FFFFFFFFFFFFBBBBE20000910000910000910000910000910000910000910000
+      91000091FFFFFFFFFFFFFFFFFF7777C40000916666BDFFFFFFFFFFFFFFFFFF44
+      44AE000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100007800007800007800
+      0078000078000078000078000078FFFFFFDDDDED6666AE8888C0EEEEF6EEEEF6
+      333393000078000078000078000078000078000078000078000078BBBBDBFFFF
+      FF7777B77777B77777B77777B744449C00007800007800007800007800007800
+      007800007822228AFFFFFF5555A5000078000078000078000078000078000078
+      000078CCCCE4AAAAD20000780000780000780000780000780000780000780000
+      780000780000789999C9FFFFFFEEEEF69999C97777B79999C9EEEEF6FFFFFF99
+      99C9000078000078000078000078000078000078000078000078000078BBBBDB
+      FFFFFF6666AE7777B7EEEEF6FFFFFF3333930000780000780000780000780000
+      78000078000078000078BBBBDBFFFFFF00007800007800007800007800007800
+      0078000078000078BBBBDBFFFFFF7777B77777B77777B77777B744449C000078
+      0000780000780000780000780000780000780000785555A5EEEEF6FFFFFFCCCC
+      E49999C99999C9BBBBDBFFFFFF6666AE00007800007800007800007800007811
+      11817777B77777B77777B77777B7DDDDEDFFFFFF7777B77777B77777B77777B7
+      3333930000780000780000780000780000780000786666AEFFFFFFAAAAD26666
+      AE9999C99999C900007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078AAAAD2
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF44449C0000780000780000780000780000
+      78000078000078FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBB
+      BBDB111181000078000078000078000078000078000078000078000078000078
+      FFFFFFFFFFFFFFFFFF7777B7000078000078BBBBDBFFFFFFFFFFFFDDDDED1111
+      8100007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      00007800007800007800007800007800007800007A00007A00007A00007A0000
+      7A00007A00007A00007AFFFFFFFFFFFFFFFFFFDDDDEDAAAAD322228C00007A00
+      007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF7777B800007A00007A00007A00007A00007A00007A0000
+      7A00007ACCCCE400007A00007A00007A00007A00007A00007A00007A00007A44
+      449D8888C100007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A44449DAAAAD3EEEEF6FFFFFFEEEEF6AAAAD344449D00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFF
+      FFFFEEEEF6BBBBDC44449D00007A00007A00007A00007A00007A00007A00007A
+      00007A00007ABBBBDCFFFFFF00007A00007A00007A00007A00007A00007A0000
+      7A00007ABBBBDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777B800007A00007A00
+      007A00007A00007A00007A00007A00007A00007A1111838888C1CCCCE4FFFFFF
+      FFFFFFDDDDED9999CA33339500007A00007A00007A00007A00007A22228CFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555A600
+      007A00007A00007A00007A00007A00007A00007A6666AFDDDDEDFFFFFFBBBBDC
+      22228C00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A7777B8CC
+      CCE4FFFFFFFFFFFFFFFFFF44449D00007A00007A00007A00007A00007A00007A
+      00007AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAAAAD36666AF00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007AFFFFFFFF
+      FFFFFFFFFF7777B800007A00007A44449DFFFFFFFFFFFFFFFFFF9999CA00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      970000970000970000970000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A600009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      007900006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      00005100005100005100005100005100005100004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      005800005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      006000006000006000006000006000006000006000006000006000005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      00005500005500005500005500005500005500005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      006400005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069}
+  end
+  object Bevel2: TBevel
+    Left = 0
+    Top = 64
+    Width = 500
+    Height = 2
+    Align = alTop
+    Shape = bsTopLine
+  end
+  object Bevel3: TBevel
+    Left = 0
+    Top = 309
+    Width = 500
+    Height = 2
+    Align = alBottom
+    Shape = bsTopLine
+  end
+  object lbl_Caption: TLabel
+    Left = 5
+    Top = 72
+    Width = 161
+    Height = 13
+    Caption = 'Select Ancestor Type for %s'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 24
+    Top = 92
+    Width = 331
+    Height = 13
+    Caption = 
+      'Select the class to use as ancestor for your RemObjects SDK Serv' +
+      'ice:'
+  end
+  object rgClassType: TRadioGroup
+    Left = 24
+    Top = 112
+    Width = 471
+    Height = 132
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Caption = ' Available Types '
+    Items.Strings = (
+      '1'
+      '2'
+      '3'
+      '4'
+      '5'
+      '6')
+    TabOrder = 0
+    OnClick = rgClassTypeClick
+  end
+  object GroupBox1: TPanel
+    Left = 24
+    Top = 249
+    Width = 471
+    Height = 55
+    Anchors = [akLeft, akRight, akBottom]
+    BevelOuter = bvLowered
+    Color = clInfoBk
+    TabOrder = 1
+    DesignSize = (
+      471
+      55)
+    object lbDescription: TLabel
+      Left = 5
+      Top = 5
+      Width = 461
+      Height = 43
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      AutoSize = False
+      Caption = 'Test description goes right here...'
+      WordWrap = True
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 311
+    Width = 500
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    DesignSize = (
+      500
+      35)
+    object btn_Ok: TBitBtn
+      Left = 341
+      Top = 5
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = 'OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+        6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+        9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+        9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+        4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+        65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+        00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+        00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object Button2: TBitBtn
+      Left = 420
+      Top = 5
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.lfm
new file mode 100644
index 0000000..b5038bc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.lfm	
@@ -0,0 +1,3259 @@
+object ROServerClassForm: TROServerClassForm
+  Left = 372
+  Height = 293
+  Top = 232
+  Width = 500
+  ActiveControl = rgClassType
+  BorderIcons = []
+  BorderStyle = bsSingle
+  Caption = 'Select Ancestor Type for %s'
+  ClientHeight = 293
+  ClientWidth = 500
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  OnCreate = FormCreate
+  Position = poScreenCenter
+  LCLVersion = '0.9.27'
+  object Image2: TImage
+    Left = 0
+    Height = 64
+    Top = 0
+    Width = 500
+    Align = alTop
+    AutoSize = True
+    Picture.Data = {
+      07544269746D617036770100424D38770100000000003600000028000000F401
+      000040000000010018000000000002770100120B0000120B0000000000000000
+      00000000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B6000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E4444AC
+      7777C36666BB00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      95000095000095000095000095000095000095000095000095FFFFFFFFFFFFFF
+      FFFFDDDDF12222A3000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B5555BC00009B5555BCFFFF
+      FFAAAADE00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B0000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B0CCCCEFEEEEFA
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000A80000A80000A80000A80000A80000A80000A80000A8FFFFFFBBBBE8
+      0000A80000A80000A80000A8BBBBE8FFFFFF7777D10000A80000A80000A80000
+      A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999DC0000A800
+      00A80000A80000A80000A80000A8AAAAE2FFFFFF2222B40000A80000A80000A8
+      4444BF9999DC0000A80000A80000A80000A8FFFFFFEEEEF90000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A84444BFAAAAE2EEEEF9FF
+      FFFFEEEEF9AAAAE24444BF0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFDDDDF38888D61111AE0000
+      A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF0000A800
+      00A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A80000A80000A80000
+      A80000A81111AE8888D6CCCCEEFFFFFFFFFFFFDDDDF39999DC3333B90000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A83333
+      B9AAAAE2DDDDF3FFFFFFCCCCEE4444BF0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFCCCCEE7777D10000A80000A80000
+      A80000A80000A80000A80000A80000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFAAAAE26666CB0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A8FFFFFFFFFFFFFFFFFF7777D10000A80000A81111
+      AEEEEEF9FFFFFFFFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      B10000B10000B10000B10000B10000B10000B10000B1FFFFFFBBBBEA0000B100
+      00B10000B17777D5FFFFFF9999E00000B10000B10000B10000B10000B10000B1
+      0000B1BBBBEAFFFFFF7777D57777D57777D57777D54444C60000B10000B10000
+      B10000B10000B10000B17777D5FFFFFF3333C10000B10000B10000B1BBBBEAFF
+      FFFF1111B60000B10000B10000B1FFFFFFBBBBEA0000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B19999E0FFFFFFEEEEFA9999E07777D59999
+      E0EEEEFAFFFFFF9999E00000B10000B10000B10000B10000B10000B10000B100
+      00B10000B1BBBBEAFFFFFF7777D57777D5AAAAE5FFFFFFDDDDF51111B60000B1
+      0000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000
+      B10000B10000B10000B10000B10000B1BBBBEAFFFFFF7777D57777D57777D577
+      77D54444C60000B10000B10000B10000B10000B10000B10000B10000B15555CB
+      EEEEFAFFFFFFBBBBEA8888DB7777D5AAAAE5EEEEFA7777D50000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B16666D0EEEEFA
+      8888DB6666D0BBBBEAFFFFFF4444C60000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCEF0000B10000B10000B1
+      0000B10000B10000B10000B10000B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFBBBBEA1111B60000B10000B10000B10000B10000B10000B100
+      00B10000B10000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B1AAAAE5FFFFFF
+      FFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000A60000A6
+      0000A60000A60000A60000A60000A60000A6FFFFFFBBBBE70000A60000A63333
+      B8FFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000A6BB
+      BBE7FFFFFF0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A65555C4FFFFFF4444BE0000A60000A63333B8FFFFFFFFFFFF7777
+      D00000A60000A62222B2FFFFFF9999DB0000A60000A60000A60000A60000A600
+      00A60000A60000A69999DBFFFFFF9999DB0000A60000A60000A60000A60000A6
+      9999DBFFFFFF9999DB0000A60000A60000A60000A60000A60000A60000A60000
+      A6BBBBE7FFFFFF0000A60000A60000A66666CAFFFFFF7777D00000A60000A600
+      00A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A6
+      0000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BEFFFFFFDDDDF333
+      33B80000A60000A60000A60000A61111AC3333B80000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BE1111AC0000A600
+      00A61111ACFFFFFFCCCCED0000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A63333B8FFFF
+      FFFFFFFFBBBBE7DDDDF3FFFFFFFFFFFFFFFFFF6666CA0000A60000A60000A600
+      00A60000A60000A60000A6FFFFFFFFFFFFFFFFFFDDDDF3BBBBE7EEEEF9FFFFFF
+      FFFFFFFFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000
+      A60000A6FFFFFFFFFFFFFFFFFF7777D00000A65555C4FFFFFFFFFFFFFFFFFFEE
+      EEF91111AC0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000B30000B30000B300
+      00B30000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B3DDDDF5EEEEFA
+      2222BD0000B30000B30000B30000B30000B30000B30000B30000B3BBBBEBFFFF
+      FF0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B33333C2FFFFFF6666D10000B30000B39999E1DDDDF56666D1EEEEFA0000B3
+      0000B33333C2FFFFFF7777D60000B30000B30000B30000B30000B30000B30000
+      B34444C7FFFFFFAAAAE60000B30000B30000B30000B30000B30000B30000B3AA
+      AAE6FFFFFF4444C70000B30000B30000B30000B30000B30000B30000B3BBBBEB
+      FFFFFF0000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B30000B30000
+      B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B300
+      00B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B31111B8EEEEFADDDDF51111B80000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B3DDDDF5FFFFFF0000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B34444C78888DC1111B8
+      0000B31111B8FFFFFFFFFFFFFFFFFFAAAAE60000B30000B30000B30000B30000
+      B30000B30000B3FFFFFFFFFFFFFFFFFF7777D60000B31111B89999E1FFFFFFFF
+      FFFFFFFFFF5555CC0000B30000B30000B30000B30000B30000B30000B30000B3
+      FFFFFFFFFFFFFFFFFF7777D61111B8EEEEFAFFFFFFFFFFFFFFFFFF5555CC0000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B10000B10000B10000B10000
+      B10000B10000B10000B1FFFFFFBBBBEA0000B18888DBFFFFFF4444C60000B100
+      00B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B11111
+      B6FFFFFF8888DB0000B11111B6FFFFFF7777D50000B1EEEEFA6666D00000B144
+      44C6FFFFFF6666D00000B10000B10000B10000B10000B10000B10000B1AAAAE5
+      FFFFFF2222BB0000B10000B10000B10000B10000B10000B10000B12222BBFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF00
+      00B10000B10000B12222BBFFFFFF9999E00000B10000B10000B10000B10000B1
+      0000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000
+      B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B16666D0FFFFFF6666D00000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B13333C1FFFFFF
+      DDDDF50000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B11111B60000B10000B10000B177
+      77D5FFFFFFFFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B1
+      0000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B11111B6EEEEFAFFFFFFFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B10000B1FFFFFFFF
+      FFFFFFFFFF7777D5BBBBEAFFFFFFFFFFFFFFFFFF8888DB0000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADFFFFFFFFFFFFFFFFFFFFFFFFDDDDF43333BD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFA
+      AAAAE40000AD7777D3EEEEFA1111B20000AD7777D3CCCCEF0000AD6666CEFFFF
+      FF4444C30000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFADDDDF400
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADDDDDF4EEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000
+      AD3333BDCCCCEFEEEEFA3333BD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      BBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000ADAAAAE4FFFFFF1111B20000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD3333BDEEEEFAFFFFFF6666CE00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD1111B2AAAAE4FFFFFFFFFF
+      FFFFFFFFFFFFFF7777D30000AD0000AD0000AD0000AD0000AD0000AD0000ADFF
+      FFFFFFFFFFFFFFFF7777D30000AD0000AD0000AD9999DEFFFFFFFFFFFFEEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADFFFFFFFFFFFFFFFF
+      FFDDDDF4FFFFFFFFFFFFFFFFFFCCCCEF1111B20000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABFFFFFFCCCCEE4444C15555C7DDDDF4FFFFFF3333BC0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FF4444C10000AB0000AB0000AB0000AB0000AB0000AB0000ABCCCCEECCCCEE00
+      00ABEEEEF98888D80000AB0000AB1111B1FFFFFF4444C17777D2FFFFFF3333BC
+      0000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFBBBBE90000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      DDDDF43333BC0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBB
+      E9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFF4444C10000AB0000AB0000AB0000AB0000AB
+      0000ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB6666CDFFFFFFFFFFFF8888D80000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      EEEEF91111B10000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFF
+      FFFFFFFF7777D20000AB0000AB0000AB7777D2FFFFFFFFFFFFFFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF3333BC0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000B50000B50000B50000B50000B50000B50000B50000B5FFFF
+      FFBBBBEB0000B50000B52222BFFFFFFFBBBBEB0000B50000B50000B50000B500
+      00B50000B50000B50000B5BBBBEBFFFFFF7777D87777D87777D87777D82222BF
+      0000B50000B50000B50000B50000B50000B50000B5AAAAE6DDDDF55555CEFFFF
+      FF2222BF0000B50000B50000B59999E1AAAAE69999E1FFFFFF1111BA0000B500
+      00B50000B50000B50000B50000B50000B5EEEEFADDDDF50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B5DDDDF5EEEEFA0000B50000B50000
+      B50000B50000B50000B50000B5BBBBEBFFFFFF4444C94444C9CCCCF0EEEEFA22
+      22BF0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF
+      0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF7777
+      D87777D87777D87777D82222BF0000B50000B50000B50000B50000B50000B5AA
+      AAE6FFFFFF2222BF0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5BBBB
+      EBFFFFFF0000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B55555CEFFFFFFEEEEFA5555CE0000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B54444C9FFFFFFFFFFFFFFFFFFFFFFFFDDDDF53333C400
+      00B50000B50000B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFF
+      7777D80000B50000B50000B59999E1FFFFFFFFFFFFEEEEFA0000B50000B50000
+      B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFFBBBBEBFFFFFFFF
+      FFFFFFFFFF5555CE0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B500009F00009F00009F00009F00009F00009F00009F00009FFFFFFFBBBBE5
+      00009F00009F00009FCCCCECFFFFFF00009F00009F00009F00009F00009F0000
+      9F00009F00009FBBBBE5FFFFFF00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F8888D2FFFFFFCCCCECAAAADF00009F
+      00009F00009F00009F2222ACFFFFFFCCCCECFFFFFF00009F00009F00009F0000
+      9F00009F00009F00009F00009FAAAADFFFFFFF2222AC00009F00009F00009F00
+      009F00009F00009F00009F2222ACFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009FBBBBE5FFFFFF00009F00009F2222ACFFFFFF8888D20000
+      9F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00
+      009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F6666C5FFFF
+      FF7777CC00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9FCCCCECFFFFFF3333B200009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F7777CCFFFFFFFFFFFFFFFFFFAAAADF1111A500009F00009F0000
+      9F00009F00009F00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CC00
+      009F00009F1111A5EEEEF9FFFFFFFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CCAAAADFFFFFFFFFFF
+      FFEEEEF91111A500009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      8E00008E00008E00008E00008E00008E00008E00008EFFFFFFBBBBE100008E00
+      008E00008ECCCCE8EEEEF700008E00008E00008E00008E00008E00008E00008E
+      00008EBBBBE1FFFFFF00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E6666BBFFFFFFFFFFFF3333A500008E00008E00
+      008E00008E00008EAAAAD9FFFFFFDDDDF000008E00008E00008E00008E00008E
+      00008E00008E00008E4444ACFFFFFFAAAAD900008E00008E00008E00008E0000
+      8E00008E00008EAAAAD9FFFFFF4444AC00008E00008E00008E00008E00008E00
+      008E00008EBBBBE1FFFFFF00008E00008E00008EFFFFFFBBBBE100008E00008E
+      00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E0000
+      8E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E111196EEEEF7EEEEF7
+      11119600008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008EFFFFFF
+      CCCCE800008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E7777C3FFFFFFFFFFFFFFFFFF00008E00008E22229D3333A500008E00008E
+      00008E00008E00008E00008E00008EFFFFFFFFFFFFFFFFFF7777C300008E1111
+      969999D2FFFFFFFFFFFFFFFFFF6666BB00008E00008E00008E00008E00008E00
+      008E00008E00008EFFFFFFFFFFFFFFFFFF7777C3111196EEEEF7FFFFFFFFFFFF
+      8888CA00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E000091000091
+      000091000091000091000091000091000091FFFFFFBBBBE20000910000913333
+      A7FFFFFFBBBBE2000091000091000091000091000091000091000091000091BB
+      BBE2FFFFFF000091000091000091000091000091000091000091000091000091
+      0000910000910000914444AEFFFFFFBBBBE20000910000910000910000910000
+      910000914444AEFFFFFFBBBBE200009100009100009100009100009100009100
+      00910000910000919999D3FFFFFF9999D3000091000091000091000091000091
+      9999D3FFFFFF9999D30000910000910000910000910000910000910000910000
+      91BBBBE2FFFFFF0000910000914444AEFFFFFF9999D300009100009100009100
+      0091000091000091000091000091BBBBE2FFFFFF000091000091000091000091
+      000091000091000091000091BBBBE2FFFFFF0000910000910000910000910000
+      910000910000910000910000910000910000910000914444AEFFFFFFDDDDF044
+      44AE0000910000910000910000912222A03333A7000091000091000091000091
+      000091000091000091000091000091000091BBBBE2FFFFFF0000910000910000
+      91000091000091000091000091000091000091000091000091DDDDF0DDDDF000
+      00910000910000912222A0000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000913333
+      A7FFFFFFFFFFFFFFFFFFCCCCE9BBBBE2FFFFFF4444AE00009100009100009100
+      0091000091000091000091FFFFFFFFFFFFFFFFFFDDDDF0BBBBE2EEEEF8FFFFFF
+      FFFFFFFFFFFFBBBBE20000910000910000910000910000910000910000910000
+      91000091FFFFFFFFFFFFFFFFFF7777C40000916666BDFFFFFFFFFFFFFFFFFF44
+      44AE000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100007800007800007800
+      0078000078000078000078000078FFFFFFDDDDED6666AE8888C0EEEEF6EEEEF6
+      333393000078000078000078000078000078000078000078000078BBBBDBFFFF
+      FF7777B77777B77777B77777B744449C00007800007800007800007800007800
+      007800007822228AFFFFFF5555A5000078000078000078000078000078000078
+      000078CCCCE4AAAAD20000780000780000780000780000780000780000780000
+      780000780000789999C9FFFFFFEEEEF69999C97777B79999C9EEEEF6FFFFFF99
+      99C9000078000078000078000078000078000078000078000078000078BBBBDB
+      FFFFFF6666AE7777B7EEEEF6FFFFFF3333930000780000780000780000780000
+      78000078000078000078BBBBDBFFFFFF00007800007800007800007800007800
+      0078000078000078BBBBDBFFFFFF7777B77777B77777B77777B744449C000078
+      0000780000780000780000780000780000780000785555A5EEEEF6FFFFFFCCCC
+      E49999C99999C9BBBBDBFFFFFF6666AE00007800007800007800007800007811
+      11817777B77777B77777B77777B7DDDDEDFFFFFF7777B77777B77777B77777B7
+      3333930000780000780000780000780000780000786666AEFFFFFFAAAAD26666
+      AE9999C99999C900007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078AAAAD2
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF44449C0000780000780000780000780000
+      78000078000078FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBB
+      BBDB111181000078000078000078000078000078000078000078000078000078
+      FFFFFFFFFFFFFFFFFF7777B7000078000078BBBBDBFFFFFFFFFFFFDDDDED1111
+      8100007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      00007800007800007800007800007800007800007A00007A00007A00007A0000
+      7A00007A00007A00007AFFFFFFFFFFFFFFFFFFDDDDEDAAAAD322228C00007A00
+      007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF7777B800007A00007A00007A00007A00007A00007A0000
+      7A00007ACCCCE400007A00007A00007A00007A00007A00007A00007A00007A44
+      449D8888C100007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A44449DAAAAD3EEEEF6FFFFFFEEEEF6AAAAD344449D00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFF
+      FFFFEEEEF6BBBBDC44449D00007A00007A00007A00007A00007A00007A00007A
+      00007A00007ABBBBDCFFFFFF00007A00007A00007A00007A00007A00007A0000
+      7A00007ABBBBDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777B800007A00007A00
+      007A00007A00007A00007A00007A00007A00007A1111838888C1CCCCE4FFFFFF
+      FFFFFFDDDDED9999CA33339500007A00007A00007A00007A00007A22228CFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555A600
+      007A00007A00007A00007A00007A00007A00007A6666AFDDDDEDFFFFFFBBBBDC
+      22228C00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A7777B8CC
+      CCE4FFFFFFFFFFFFFFFFFF44449D00007A00007A00007A00007A00007A00007A
+      00007AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAAAAD36666AF00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007AFFFFFFFF
+      FFFFFFFFFF7777B800007A00007A44449DFFFFFFFFFFFFFFFFFF9999CA00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      970000970000970000970000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A600009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      007900006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      00005100005100005100005100005100005100004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      005800005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      006000006000006000006000006000006000006000006000006000005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      00005500005500005500005500005500005500005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      006400005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069
+    }
+  end
+  object Bevel2: TBevel
+    Left = 0
+    Height = 2
+    Top = 64
+    Width = 500
+    Align = alTop
+    Shape = bsTopLine
+  end
+  object Bevel3: TBevel
+    Left = 0
+    Height = 2
+    Top = 256
+    Width = 500
+    Align = alBottom
+    Shape = bsTopLine
+  end
+  object lbl_Caption: TLabel
+    Left = 5
+    Height = 14
+    Top = 72
+    Width = 162
+    Caption = 'Select Ancestor Type for %s'
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 24
+    Height = 14
+    Top = 92
+    Width = 334
+    Caption = 'Select the class to use as ancestor for your RemObjects SDK Service:'
+    ParentColor = False
+  end
+  object rgClassType: TRadioGroup
+    Left = 24
+    Height = 134
+    Top = 112
+    Width = 453
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    AutoFill = True
+    Caption = ' Available Types '
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 116
+    ClientWidth = 449
+    Ctl3D = False
+    Items.Strings = (
+      '1'
+      '2'
+      '3'
+      '4'
+      '5'
+      '6'
+    )
+    OnClick = rgClassTypeClick
+    TabOrder = 0
+  end
+  object GroupBox1: TPanel
+    Left = 24
+    Height = 55
+    Top = 302
+    Width = 651
+    Anchors = [akLeft, akRight, akBottom]
+    BevelOuter = bvLowered
+    ClientHeight = 55
+    ClientWidth = 651
+    Color = clInfoBk
+    ParentColor = False
+    TabOrder = 1
+    object lbDescription: TLabel
+      Left = 5
+      Height = 43
+      Top = 5
+      Width = 641
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      AutoSize = False
+      Caption = 'Test description goes right here...'
+      ParentColor = False
+      WordWrap = True
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Height = 35
+    Top = 258
+    Width = 500
+    Align = alBottom
+    BevelOuter = bvNone
+    ClientHeight = 35
+    ClientWidth = 500
+    TabOrder = 2
+    object btn_Ok: TBitBtn
+      Left = 341
+      Height = 25
+      Top = 5
+      Width = 75
+      Anchors = [akRight, akBottom]
+      Caption = 'OK'
+      Default = True
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+        6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+        9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+        9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+        4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+        65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+        00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+        00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 1
+      NumGlyphs = 2
+      TabOrder = 0
+    end
+    object Button2: TBitBtn
+      Left = 420
+      Height = 25
+      Top = 5
+      Width = 75
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = 'Cancel'
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 2
+      NumGlyphs = 2
+      TabOrder = 1
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.lrs
new file mode 100644
index 0000000..10348e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.lrs	
@@ -0,0 +1,3378 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TROServerClassForm','FORMDATA',[
+  'TPF0'#18'TROServerClassForm'#17'ROServerClassForm'#4'Left'#3't'#1#6'Height'#3
+  +'%'#1#3'Top'#3#232#0#5'Width'#3#244#1#13'ActiveControl'#7#11'rgClassType'#11
+  +'BorderIcons'#11#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#27'Select Ance'
+  +'stor Type for %s'#12'ClientHeight'#3'%'#1#11'ClientWidth'#3#244#1#11'Font.H'
+  +'eight'#2#245#9'Font.Name'#6#6'Tahoma'#8'OnCreate'#7#10'FormCreate'#8'Positi'
+  +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TImage'#6'Image2'#4
+  +'Left'#2#0#6'Height'#2'@'#3'Top'#2#0#5'Width'#3#244#1#5'Align'#7#5'alTop'#8
+  +'AutoSize'#9#12'Picture.Data'#10'Bw'#1#0#7'TBitmap6w'#1#0'BM8w'#1#0#0#0#0#0
+  +'6'#0#0#0'('#0#0#0#244#1#0#0'@'#0#0#0#1#0#24#0#0#0#0#0#2'w'#1#0#18#11#0#0#18
+  +#11#0#0#0#0#0#0#0#0#0#0#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  ,#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  ,#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  ,#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142'DD'#172'ww'#195'ff'#187#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  ,#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#255#255#255
+  +#255#255#255#255#255#255#221#221#241'""'#163#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  ,#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155'UU'#188#0#0#155'UU'#188
+  +#255#255#255#170#170#222#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  ,#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#204#204#239#238#238
+  +#250#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#187#187#232#0#0
+  +#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255#255'ww'#209#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#170#170#226#255#255#255'""'#180#0#0#168#0#0#168#0#0#168'DD'#191
+  +#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#238#238#249#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168'DD'
+  +#191#170#170#226#238#238#249#255#255#255#238#238#249#170#170#226'DD'#191#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#187#187#232#255#255#255#255#255#255#255#255#255#221#221#243#136#136#214#17
+  +#17#174#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#187
+  +#187#232#255#255#255#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#187#187#232#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#17#17#174#136#136#214#204#204#238#255#255#255#255#255#255#221
+  +#221#243#153#153#220'33'#185#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255#255#0#0#168#0#0#168#0#0
+  ,#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168'33'#185#170#170
+  +#226#221#221#243#255#255#255#204#204#238'DD'#191#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#255#255#255#255#255#255
+  +#255#255#255#204#204#238'ww'#209#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#170#170#226'ff'#203#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#255#255
+  +#255#255#255#255'ww'#209#0#0#168#0#0#168#17#17#174#238#238#249#255#255#255
+  +#255#255#255#255#255#255#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#255#255#255#187#187#234#0#0#177#0#0#177#0#0#177'ww'#213#255#255#255#153#153
+  +#224#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255
+  +#255#255'ww'#213'ww'#213'ww'#213'ww'#213'DD'#198#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177'ww'#213#255#255#255'33'#193#0#0#177#0#0#177#0#0#177#187
+  +#187#234#255#255#255#17#17#182#0#0#177#0#0#177#0#0#177#255#255#255#187#187
+  +#234#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#153#153#224#255#255#255#238#238#250#153#153#224'ww'#213#153#153#224#238#238
+  +#250#255#255#255#153#153#224#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255'ww'#213'ww'#213#170#170#229
+  +#255#255#255#221#221#245#17#17#182#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0
+  +#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255'ww'#213'ww'#213'ww'#213
+  +'ww'#213'DD'#198#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177'UU'#203#238#238#250#255#255#255#187#187#234#136#136#219'ww'#213#170#170
+  +#229#238#238#250'ww'#213#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177'ff'#208#238#238#250
+  +#136#136#219'ff'#208#187#187#234#255#255#255'DD'#198#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#204#204#239#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#187#187#234#17#17#182#0
+  +#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#255
+  ,#255#255#255#255#255#255#255#255'ww'#213#0#0#177#0#0#177#170#170#229#255#255
+  +#255#255#255#255#255#255#255#187#187#234#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#255#255#255#187#187#231#0#0#166#0#0#166'33'#184#255#255#255#187
+  +#187#231#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#187
+  +#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166'UU'#196#255#255#255'DD'#190#0#0#166#0#0#166
+  +'33'#184#255#255#255#255#255#255'ww'#208#0#0#166#0#0#166'""'#178#255#255#255
+  +#153#153#219#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#153#153#219#255#255#255#153#153#219#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#153#153#219#255#255#255#153#153#219#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166'ff'
+  +#202#255#255#255'ww'#208#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166'DD'#190#255#255
+  +#255#221#221#243'33'#184#0#0#166#0#0#166#0#0#166#0#0#166#17#17#172'33'#184#0
+  +#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166'DD'#190#17#17#172#0#0#166#0#0#166#17#17#172
+  +#255#255#255#204#204#237#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +'33'#184#255#255#255#255#255#255#187#187#231#221#221#243#255#255#255#255#255
+  +#255#255#255#255'ff'#202#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#255#255#255#255#255#255#255#255#255#221#221#243#187#187#231#238#238#249
+  +#255#255#255#255#255#255#255#255#255#187#187#231#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#255#255#255#255#255#255#255#255
+  +#255'ww'#208#0#0#166'UU'#196#255#255#255#255#255#255#255#255#255#238#238#249
+  +#17#17#172#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0
+  +#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  ,#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#255#255#255#187
+  +#187#235#0#0#179#0#0#179#221#221#245#238#238#250'""'#189#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235#255#255#255#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179'33'#194#255#255#255'ff'#209#0#0#179#0#0#179#153#153#225#221#221#245'ff'
+  +#209#238#238#250#0#0#179#0#0#179'33'#194#255#255#255'ww'#214#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179'DD'#199#255#255#255#170#170#230#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#170#170#230#255#255#255
+  +'DD'#199#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235
+  +#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179#255#255#255#187#187#235#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235#255#255#255#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235#255
+  +#255#255#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#17#17#184#238#238#250#221#221#245#17#17#184#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235#255#255#255#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#221#221#245#255#255#255#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179'DD'#199#136#136#220#17#17#184#0#0
+  +#179#17#17#184#255#255#255#255#255#255#255#255#255#170#170#230#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#255#255#255#255#255#255#255#255
+  +#255'ww'#214#0#0#179#17#17#184#153#153#225#255#255#255#255#255#255#255#255
+  +#255'UU'#204#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#255#255#255#255#255#255#255#255#255'ww'#214#17#17#184#238#238#250#255#255
+  +#255#255#255#255#255#255#255'UU'#204#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  ,#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#255#255#255#187#187#234#0#0#177#136#136#219#255#255#255'DD'
+  +#198#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#17#17#182#255#255#255#136#136#219#0#0
+  +#177#17#17#182#255#255#255'ww'#213#0#0#177#238#238#250'ff'#208#0#0#177'DD'
+  +#198#255#255#255'ff'#208#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#170#170#229#255#255#255'""'#187#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177'""'#187#255#255#255#170#170#229#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177
+  +'""'#187#255#255#255#153#153#224#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177'ff'#208#255#255
+  +#255'ff'#208#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177'33'#193#255
+  +#255#255#221#221#245#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#17
+  +#17#182#0#0#177#0#0#177#0#0#177'ww'#213#255#255#255#255#255#255#255#255#255
+  +#187#187#234#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255
+  +#255#255#255#255#255#255#255'ww'#213#0#0#177#0#0#177#17#17#182#238#238#250
+  +#255#255#255#255#255#255#170#170#229#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#255#255#255#255#255#255#255#255#255'ww'#213#187#187
+  +#234#255#255#255#255#255#255#255#255#255#136#136#219#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  ,#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#255#255#255#255#255#255#255#255#255
+  +#255#255#255#221#221#244'33'#189#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#238
+  +#238#250#170#170#228#0#0#173'ww'#211#238#238#250#17#17#178#0#0#173'ww'#211
+  +#204#204#239#0#0#173'ff'#206#255#255#255'DD'#195#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#238#238#250#221#221#244#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#221#221#244#238#238#250#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255
+  +#0#0#173#0#0#173'33'#189#204#204#239#238#238#250'33'#189#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#170#170#228#255#255#255#17#17#178#0#0#173#0#0#173#0#0#173#0#0#173#0
+  +#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173'33'#189#238#238#250#255#255#255'ff'#206#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#17#17#178#170#170#228#255#255
+  +#255#255#255#255#255#255#255#255#255#255'ww'#211#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#255#255#255#255#255#255#255#255#255'ww'#211#0#0
+  +#173#0#0#173#0#0#173#153#153#222#255#255#255#255#255#255#238#238#250#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#255#255#255#255#255
+  +#255#255#255#255#221#221#244#255#255#255#255#255#255#255#255#255#204#204#239
+  +#17#17#178#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0
+  +#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#255#255#255#204#204#238'DD'#193'UU'#199#221#221#244#255#255#255'33'#188#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255
+  ,#255#255#255#255#255#255#255#255#255#255#255#255#255#255'DD'#193#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#204#204#238#204#204#238#0#0#171
+  +#238#238#249#136#136#216#0#0#171#0#0#171#17#17#177#255#255#255'DD'#193'ww'
+  +#210#255#255#255'33'#188#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#255#255#255#187#187#233#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#255#255#255#255#255#255
+  +#255#255#255#221#221#244'33'#188#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#187#187#233#255#255#255#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255'DD'#193#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#187#187#233#255#255#255#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +'ff'#205#255#255#255#255#255#255#136#136#216#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#255#255
+  +#255#255#255#255#255#255#255#238#238#249#17#17#177#0#0#171#0#0#171#0#0#171#0
+  +#0#171#0#0#171#0#0#171#0#0#171#255#255#255#255#255#255#255#255#255'ww'#210#0
+  +#0#171#0#0#171#0#0#171'ww'#210#255#255#255#255#255#255#255#255#255#0#0#171#0
+  +#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'33'#188#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#255#255
+  +#255#187#187#235#0#0#181#0#0#181'""'#191#255#255#255#187#187#235#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#187#187#235#255#255#255
+  +'ww'#216'ww'#216'ww'#216'ww'#216'""'#191#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#170#170#230#221#221#245'UU'#206#255#255#255'""'#191#0#0
+  +#181#0#0#181#0#0#181#153#153#225#170#170#230#153#153#225#255#255#255#17#17
+  +#186#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#238#238#250#221
+  +#221#245#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#221#221#245#238#238#250#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#187#187#235#255#255#255'DD'#201'DD'#201#204#204#240#238#238#250'""'
+  +#191#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#187#187
+  ,#235#255#255#255#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#187#187#235#255#255#255'ww'#216'ww'#216'ww'#216'ww'#216'""'#191#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#170#170#230#255#255#255'""'#191#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#187#187#235
+  +#255#255#255#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181'UU'#206#255#255#255#238#238#250'UU'#206#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181'DD'#201#255
+  +#255#255#255#255#255#255#255#255#255#255#255#221#221#245'33'#196#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#255#255#255#255#255#255
+  +#255#255#255'ww'#216#0#0#181#0#0#181#0#0#181#153#153#225#255#255#255#255#255
+  +#255#238#238#250#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#255#255#255#255#255#255#255#255#255#187#187#235#255#255#255#255#255#255
+  +#255#255#255'UU'#206#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#255#255#255#187#187#229#0#0#159#0#0#159#0#0#159#204#204#236
+  +#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#187#187#229#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#136#136#210#255#255#255#204#204
+  +#236#170#170#223#0#0#159#0#0#159#0#0#159#0#0#159'""'#172#255#255#255#204#204
+  +#236#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#170#170#223#255#255#255'""'#172#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159'""'#172#255#255#255#170#170#223#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#187#187#229#255#255#255#0#0#159#0#0#159'""'#172
+  +#255#255#255#136#136#210#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#187#187#229#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#187#187#229#255#255#255#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159'ff'#197#255#255
+  +#255'ww'#204#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#187#187#229#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#204#204#236#255#255#255'33'#178#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  ,#159'ww'#204#255#255#255#255#255#255#255#255#255#170#170#223#17#17#165#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#255#255
+  +#255#255#255#255#255#255#255'ww'#204#0#0#159#0#0#159#17#17#165#238#238#249
+  +#255#255#255#255#255#255#170#170#223#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#255#255#255#255#255#255#255#255#255'ww'#204#170#170
+  +#223#255#255#255#255#255#255#238#238#249#17#17#165#0#0#159#0#0#159#0#0#159#0
+  +#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255#255#187#187#225#0#0#142#0#0
+  +#142#0#0#142#204#204#232#238#238#247#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142'ff'#187
+  +#255#255#255#255#255#255'33'#165#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#170
+  +#170#217#255#255#255#221#221#240#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142'DD'#172#255#255#255#170#170#217#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#170#170#217#255#255#255'DD'#172#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142
+  +#0#0#142#0#0#142#255#255#255#187#187#225#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#17#17#150#238#238#247#238#238#247#17#17#150#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255#255
+  +#204#204#232#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142'ww'#195#255#255#255#255#255#255#255#255#255#0#0
+  +#142#0#0#142'""'#157'33'#165#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#255#255#255#255#255#255#255#255#255'ww'#195#0#0#142#17#17#150#153
+  +#153#210#255#255#255#255#255#255#255#255#255'ff'#187#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255#255#255#255#255#255#255#255
+  +'ww'#195#17#17#150#238#238#247#255#255#255#255#255#255#136#136#202#0#0#142#0
+  +#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  ,#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#255#255#255#187#187
+  +#226#0#0#145#0#0#145'33'#167#255#255#255#187#187#226#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226#255#255#255#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145'DD'#174#255#255#255#187#187#226#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145'DD'#174#255#255#255#187#187#226#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#153#153#211#255#255#255#153#153#211
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#153#153#211#255#255#255#153#153#211
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226
+  +#255#255#255#0#0#145#0#0#145'DD'#174#255#255#255#153#153#211#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226#255#255#255#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226#255
+  +#255#255#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145'DD'#174#255#255#255#221#221#240'DD'#174#0#0#145
+  +#0#0#145#0#0#145#0#0#145'""'#160'33'#167#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226#255#255#255#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#221#221#240#221#221#240#0#0#145#0#0#145#0#0#145'""'#160#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145'33'#167#255#255#255#255#255#255
+  +#255#255#255#204#204#233#187#187#226#255#255#255'DD'#174#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#255#255#255#255#255#255#255#255#255#221
+  +#221#240#187#187#226#238#238#248#255#255#255#255#255#255#255#255#255#187#187
+  +#226#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#255#255#255#255#255#255#255#255#255'ww'#196#0#0#145'ff'#189#255#255#255#255
+  +#255#255#255#255#255'DD'#174#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  ,#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#255#255#255#221#221#237'ff'#174#136#136#192#238#238#246#238#238#246'33'#147
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255
+  +#255'ww'#183'ww'#183'ww'#183'ww'#183'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x""'#138#255#255#255'UU'#165#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#204#204#228#170#170#210#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#153#153#201#255#255#255#238#238#246#153
+  +#153#201'ww'#183#153#153#201#238#238#246#255#255#255#153#153#201#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255#255
+  +'ff'#174'ww'#183#238#238#246#255#255#255'33'#147#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255#255#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255#255'ww'#183'ww'#183'ww'
+  +#183'ww'#183'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'xU'
+  +'U'#165#238#238#246#255#255#255#204#204#228#153#153#201#153#153#201#187#187
+  +#219#255#255#255'ff'#174#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#17#17#129'ww'#183
+  +'ww'#183'ww'#183'ww'#183#221#221#237#255#255#255'ww'#183'ww'#183'ww'#183'ww'
+  +#183'33'#147#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'xff'#174#255#255#255#170
+  +#170#210'ff'#174#153#153#201#153#153#201#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0
+  +#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0
+  +#0'x'#0#0'x'#170#170#210#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#187#187#219#17#17#129#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#255#255#255#255#255#255#255#255#255'ww'#183#0#0'x'#0#0'x'
+  +#187#187#219#255#255#255#255#255#255#221#221#237#17#17#129#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  ,'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#255#255#255#255#255#255#255#255#255#221#221#237#170#170#211
+  +'""'#140#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187
+  +#187#220#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'ww'#184
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#204#204#228#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zDD'#157#136#136#193#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zDD'#157#170
+  +#170#211#238#238#246#255#255#255#238#238#246#170#170#211'DD'#157#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187#187#220#255
+  +#255#255#255#255#255#238#238#246#187#187#220'DD'#157#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187#187#220#255#255#255#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187#187#220#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255'ww'#184#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#17#17#131#136#136#193#204#204#228#255#255
+  +#255#255#255#255#221#221#237#153#153#202'33'#149#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z""'#140#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'UU'#166#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zff'#175#221#221#237#255#255#255#187#187
+  +#220'""'#140#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zww'#184
+  +#204#204#228#255#255#255#255#255#255#255#255#255'DD'#157#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#170#170#211'ff'#175#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#255#255#255#255#255#255#255#255
+  +#255'ww'#184#0#0'z'#0#0'zDD'#157#255#255#255#255#255#255#255#255#255#153#153
+  +#202#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  ,#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0
+  +#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  ,#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  ,#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  ,#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#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#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''#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#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''#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#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''#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
+  +#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''#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#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''#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#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''#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#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#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  ,#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  ,#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  ,#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  ,#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  ,#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  ,#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  ,#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  ,#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0#150#0#0#150#0
+  +#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  ,#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  ,#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  ,#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  ,'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  ,'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  ,'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  ,'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  ,'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  ,'I'#0#0'I'#0#0'I'#0#0'I'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  ,'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#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#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
+  +'`'#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#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'`'#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#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'`'#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#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'`'#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#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'`'#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#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'`'#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#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'_'#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#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'_'#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#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'_'#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#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'_'#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#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'_'#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#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
+  +'_'#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#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'_'#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'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  ,'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#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#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'\'#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#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'\'#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#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
+  +'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  ,'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  ,'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#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#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'\'#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#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
+  +'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  ,'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  ,'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  ,'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  ,'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  ,'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#0#6'Height'#2#2#3'Top'#2'@'#5'Width'#3
+  +#244#1#5'Align'#7#5'alTop'#5'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel3'#4
+  +'Left'#2#0#6'Height'#2#2#3'Top'#3#0#1#5'Width'#3#244#1#5'Align'#7#8'alBottom'
+  +#5'Shape'#7#9'bsTopLine'#0#0#6'TLabel'#11'lbl_Caption'#4'Left'#2#5#6'Height'
+  +#2#14#3'Top'#2'H'#5'Width'#3#162#0#7'Caption'#6#27'Select Ancestor Type for '
+  +'%s'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#6'fsBo'
+  +'ld'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2
+  +#24#6'Height'#2#14#3'Top'#2'\'#5'Width'#3'N'#1#7'Caption'#6'DSelect the clas'
+  +'s to use as ancestor for your RemObjects SDK Service:'#11'ParentColor'#8#0#0
+  +#11'TRadioGroup'#11'rgClassType'#4'Left'#2#24#6'Height'#3#134#0#3'Top'#2'p'#5
+  +'Width'#3#197#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8
+  +'AutoFill'#9#7'Caption'#6#17' Available Types '#28'ChildSizing.LeftRightSpac'
+  +'ing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizon'
+  +'tal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'cr'
+  +'sHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChild'
+  +'s'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layou'
+  +'t'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1
+  +#12'ClientHeight'#2't'#11'ClientWidth'#3#193#1#5'Ctl3D'#8#13'Items.Strings'#1
+  +#6#1'1'#6#1'2'#6#1'3'#6#1'4'#6#1'5'#6#1'6'#0#7'OnClick'#7#16'rgClassTypeClic'
+  +'k'#8'TabOrder'#2#0#0#0#6'TPanel'#9'GroupBox1'#4'Left'#2#24#6'Height'#2'7'#3
+  +'Top'#3'.'#1#5'Width'#3#139#2#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'
+  +#0#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'7'#11'ClientWidth'#3#139
+  +#2#5'Color'#7#8'clInfoBk'#11'ParentColor'#8#8'TabOrder'#2#1#0#6'TLabel'#13'l'
+  +'bDescription'#4'Left'#2#5#6'Height'#2'+'#3'Top'#2#5#5'Width'#3#129#2#7'Anch'
+  +'ors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'#8#7'Caption'
+  +#6'#Test description goes right here...'#11'ParentColor'#8#8'WordWrap'#9#0#0
+  +#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'#'#3'Top'#3#2#1#5'Width'#3#244
+  +#1#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'#'#11
+  +'ClientWidth'#3#244#1#8'TabOrder'#2#2#0#7'TBitBtn'#6'btn_Ok'#4'Left'#3'U'#1#6
+  +'Height'#2#25#3'Top'#2#5#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0
+  +#7'Caption'#6#2'OK'#7'Default'#9#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0
+  +#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#196
+  +#14#0#0#196#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#30#178'1'#31#177'3'#0'f'#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'eee'#154#154#154#154#154#154'ee'
+  +'e'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0'f'#0'1'#194'O"'#183'8'#26#176'-!'#180
+  +'7'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'eee'#171#171#171#158#158#158#151#151#151
+  +#156#156#156'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0'f'#0'G'#211'm;'#203'^%'#168';'#0'f'#0#27#169
+  +'.'#29#177'2'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#191#191#191#181#181#181#152#152#152'eee'#148
+  +#148#148#153#153#153'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0'f'#0'O'#214'yS'#222'1'#181'M'#0'f'#0#255#0#255#0'f'#0
+  +#23#157''''#30#174'1'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  ,#255#255#0#255'eee'#196#196#196#202#202#202#165#165#165'eee'#255#0#255'eee'
+  +#140#140#140#152#152#152'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0'f'#0'A'#197'c'#0'f'#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0'f'#0#25#170'+'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#181#181#181'eee'#255#0#255#255#0#255#255#0#255
+  +#255#0#255'eee'#147#147#147'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#0'f'#0#20#157'!'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'eee'#138#138#138'eee'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#11'ModalResult'#2#1#9'NumGlyphs'#2#2#8'TabOrder'#2#0#0#0
+  +#7'TBitBtn'#7'Button2'#4'Left'#3#164#1#6'Height'#2#25#3'Top'#2#5#5'Width'#2
+  +'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Caption'#6#6'Cancel'
+  +#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '
+  +#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#196#14#0#0#196#14#0#0#0#0#0#0#0#0#0
+  +#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+  +#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+  +#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'
+  +'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#23'J'#253#16';'#244#0
+  +#0#154#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#0','#248#0'0'#252#0#0
+  +#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#168#168#168#160#160#160'kk'
+  +'k'#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#154#154#154#156#156#156'kkk'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#26'G'#248#26'L'#255#18';'
+  +#241#0#0#154#255#0#255#255#0#255#0#0#154#1'-'#246#1'2'#255#0'*'#243#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167#167#167#170#170#170#159#159
+  +#159'kkk'#255#0#255#255#0#255'kkk'#153#153#153#158#158#158#151#151#151'kkk'
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#28'G'#246#27'M'
+  +#255#20'>'#244#0#0#154#0#0#154#0'-'#248#1'4'#255#3'+'#242#0#0#154#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167#167#167#171#171
+  +#171#162#162#162'kkkkkk'#154#154#154#158#158#158#152#152#152'kkk'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#29'H'
+  +#246#29'P'#255#16'='#251#4'1'#254#1'2'#255#0','#246#0#0#154#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167#167
+  +#167#172#172#172#163#163#163#159#159#159#158#158#158#153#153#153'kkk'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#154#26'H'#249#19'B'#255#12'<'#255#7'3'#246#0#0#154#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'kkk'#167#167#167#167#167#167#163#163#163#156#156#156'kkk'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154'!N'#252#29'K'#255#24'G'#255#23'C'#246#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'kkk'#172#172#172#172#172#172#169#169#169#164#164#164
+  +'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154'.['#249',_'#255'"M'#248' K'#248'#U'#255#27'F'
+  +#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'kkk'#177#177#177#179#179#179#171#171#171#170#170#170#175#175
+  +#175#166#166#166'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#154'6d'#250'8k'#255'-Y'#244#0#0#154#0#0#154'"L'#244'%X'
+  +#255#29'I'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255'kkk'#182#182#182#185#185#185#174#174#174'kkkkkk'#169#169#169#176#176
+  +#176#167#167#167'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+  +#154'@q'#250'Bt'#255'2]'#241#0#0#154#255#0#255#255#0#255#0#0#154'"M'#241'''Z'
+  +#255' L'#248#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#187#187#187
+  +#190#190#190#175#175#175'kkk'#255#0#255#255#0#255'kkk'#167#167#167#177#177
+  +#177#170#170#170'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154'Iz'#252
+  +';f'#243#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154'%P'#244'&U'
+  +#250#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#192#192#192#181#181
+  +#181'kkk'#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#170#170#170#174#174
+  +#174'kkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#0#0#154
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#11'ModalResult'#2#2#9
+  +'NumGlyphs'#2#2#8'TabOrder'#2#1#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.pas
new file mode 100644
index 0000000..2776d1f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fROServerClassForm.pas	
@@ -0,0 +1,118 @@
+unit fROServerClassForm;
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Messages, SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, Buttons;
+
+type
+  TROServerClassForm = class(TForm)
+    rgClassType: TRadioGroup;
+    GroupBox1: TPanel;
+    lbDescription: TLabel;
+    Image2: TImage;
+    Bevel2: TBevel;
+    Panel1: TPanel;
+    btn_Ok: TBitBtn;
+    Button2: TBitBtn;
+    Bevel3: TBevel;
+    lbl_Caption: TLabel;
+    Label2: TLabel;
+    procedure FormCreate(Sender: TObject);
+    procedure rgClassTypeClick(Sender: TObject);
+  private
+    function GetServerClassName : string;
+    function GetRequiredUnits: string;
+
+  public
+    property ServerClassName : string read GetServerClassName;
+    property RequiredUnits : string read GetRequiredUnits;
+  end;
+
+var
+  ROServerClassForm: TROServerClassForm;
+
+function SelectROServerClassType(const ServiceName : string; out aServerClassname : string; out someRequiredUnits : string) : boolean;
+
+implementation
+
+uses uRODLGenTools, uROServer, uRORemoteDataModule;
+
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF FPC}
+
+
+function SelectROServerClassType(const ServiceName : string; out aServerClassname : string; out someRequiredUnits : string) : boolean;
+begin
+  with TROServerClassForm.Create(NIL) do try
+    Caption := Format(Caption, [ServiceName]);
+    lbl_Caption.Caption := Format(lbl_Caption.Caption, [ServiceName]);
+
+    result := (ShowModal=mrOK);
+    aServerClassname := ServerClassName;
+    someRequiredUnits := RequiredUnits;
+  finally
+    Free;
+  end;
+end;
+
+procedure TROServerClassForm.FormCreate(Sender: TObject);
+var i : integer;
+    s : string;
+begin
+  rgClassType.Items.Clear;
+
+  rgClassType.Items.Add('&Simple object');
+  for i := (GetRODataModuleClassCount-1) downto 0 do begin
+    s := GetRODataModuleClass(i).Alias;
+    //if (i=0) then s := s+' (Reccommended)';
+    if GetRODataModuleClass(i).ClassType = TRORemoteDataModule then
+      s := s+' (recommended)';
+    rgClassType.Items.Add(s);
+  end;
+
+  rgClassType.ItemIndex := 1; { we've added one additional item }
+
+  //Height := (225*(GetRODataModuleClassCount+1)) div 3
+
+  ClientHeight := 250 + (GetRODataModuleClassCount()*(Canvas.TextHeight('String') + 10));
+end;
+
+function TROServerClassForm.GetRequiredUnits: string;
+begin
+  if (rgClassType.ItemIndex=0)
+    then result := ''
+    else result := GetRODataModuleClass(GetRODataModuleClassCount-rgClassType.ItemIndex).RequiredUnits
+end;
+
+function TROServerClassForm.GetServerClassName : string;
+begin
+  if (rgClassType.ItemIndex=0)
+    then result := TRORemotable.ClassName
+    else result := GetRODataModuleClass(GetRODataModuleClassCount-rgClassType.ItemIndex).ClassType.ClassName
+end;
+
+procedure TROServerClassForm.rgClassTypeClick(Sender: TObject);
+begin
+  if (rgClassType.ItemIndex=0) then
+    lbDescription.Caption := 'Non-visual Delphi object. Recommended for services that do not require additional components '+
+                                  'and don''t need to provide the design time features of a data module.'
+  else
+    lbDescription.Caption := GetRODataModuleClass(GetRODataModuleClassCount-rgClassType.ItemIndex).Description;
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I fROServerClassForm.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.dfm
new file mode 100644
index 0000000..30f598d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.dfm	
@@ -0,0 +1,3445 @@
+object ServerProjectOptions: TServerProjectOptions
+  Left = 338
+  Top = 179
+  ActiveControl = ePrjName
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'RemObjects SDK Server - Advanced Project Options'
+  ClientHeight = 317
+  ClientWidth = 500
+  Color = clBtnFace
+  Constraints.MinHeight = 238
+  Constraints.MinWidth = 300
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 128
+    Width = 104
+    Height = 13
+    Caption = 'Service Library Name:'
+  end
+  object Label2: TLabel
+    Left = 8
+    Top = 154
+    Width = 70
+    Height = 13
+    Caption = 'Service Name:'
+  end
+  object Label3: TLabel
+    Left = 8
+    Top = 102
+    Width = 67
+    Height = 13
+    Caption = 'Project Name:'
+  end
+  object Label5: TLabel
+    Left = 8
+    Top = 244
+    Width = 68
+    Height = 13
+    Caption = 'Project Folder:'
+  end
+  object Bevel1: TBevel
+    Left = 4
+    Top = 277
+    Width = 494
+    Height = 2
+    Anchors = [akLeft, akRight, akBottom]
+  end
+  object Label4: TLabel
+    Left = 8
+    Top = 76
+    Width = 91
+    Height = 13
+    Caption = 'Template Location:'
+  end
+  object Label6: TLabel
+    Left = 8
+    Top = 213
+    Width = 74
+    Height = 13
+    Caption = 'Message Class:'
+  end
+  object Label7: TLabel
+    Left = 8
+    Top = 188
+    Width = 62
+    Height = 13
+    Caption = 'Server Class:'
+  end
+  object Label8: TLabel
+    Left = 119
+    Top = 188
+    Width = 196
+    Height = 13
+    Caption = 'Not available in this kind of server'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Image2: TImage
+    Left = 0
+    Top = 0
+    Width = 500
+    Height = 64
+    Align = alTop
+    AutoSize = True
+    Picture.Data = {
+      07544269746D617036770100424D36770100000000003600000028000000F401
+      000040000000010018000000000000770100120B0000120B0000000000000000
+      00000000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B6000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E4444AC
+      7777C36666BB00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      95000095000095000095000095000095000095000095000095FFFFFFFFFFFFFF
+      FFFFDDDDF12222A3000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B5555BC00009B5555BCFFFF
+      FFAAAADE00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B0000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B0CCCCEFEEEEFA
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000A80000A80000A80000A80000A80000A80000A80000A8FFFFFFBBBBE8
+      0000A80000A80000A80000A8BBBBE8FFFFFF7777D10000A80000A80000A80000
+      A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999DC0000A800
+      00A80000A80000A80000A80000A8AAAAE2FFFFFF2222B40000A80000A80000A8
+      4444BF9999DC0000A80000A80000A80000A8FFFFFFEEEEF90000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A84444BFAAAAE2EEEEF9FF
+      FFFFEEEEF9AAAAE24444BF0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFDDDDF38888D61111AE0000
+      A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF0000A800
+      00A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A80000A80000A80000
+      A80000A81111AE8888D6CCCCEEFFFFFFFFFFFFDDDDF39999DC3333B90000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A83333
+      B9AAAAE2DDDDF3FFFFFFCCCCEE4444BF0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFCCCCEE7777D10000A80000A80000
+      A80000A80000A80000A80000A80000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFAAAAE26666CB0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A8FFFFFFFFFFFFFFFFFF7777D10000A80000A81111
+      AEEEEEF9FFFFFFFFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      B10000B10000B10000B10000B10000B10000B10000B1FFFFFFBBBBEA0000B100
+      00B10000B17777D5FFFFFF9999E00000B10000B10000B10000B10000B10000B1
+      0000B1BBBBEAFFFFFF7777D57777D57777D57777D54444C60000B10000B10000
+      B10000B10000B10000B17777D5FFFFFF3333C10000B10000B10000B1BBBBEAFF
+      FFFF1111B60000B10000B10000B1FFFFFFBBBBEA0000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B19999E0FFFFFFEEEEFA9999E07777D59999
+      E0EEEEFAFFFFFF9999E00000B10000B10000B10000B10000B10000B10000B100
+      00B10000B1BBBBEAFFFFFF7777D57777D5AAAAE5FFFFFFDDDDF51111B60000B1
+      0000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000
+      B10000B10000B10000B10000B10000B1BBBBEAFFFFFF7777D57777D57777D577
+      77D54444C60000B10000B10000B10000B10000B10000B10000B10000B15555CB
+      EEEEFAFFFFFFBBBBEA8888DB7777D5AAAAE5EEEEFA7777D50000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B16666D0EEEEFA
+      8888DB6666D0BBBBEAFFFFFF4444C60000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCEF0000B10000B10000B1
+      0000B10000B10000B10000B10000B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFBBBBEA1111B60000B10000B10000B10000B10000B10000B100
+      00B10000B10000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B1AAAAE5FFFFFF
+      FFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000A60000A6
+      0000A60000A60000A60000A60000A60000A6FFFFFFBBBBE70000A60000A63333
+      B8FFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000A6BB
+      BBE7FFFFFF0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A65555C4FFFFFF4444BE0000A60000A63333B8FFFFFFFFFFFF7777
+      D00000A60000A62222B2FFFFFF9999DB0000A60000A60000A60000A60000A600
+      00A60000A60000A69999DBFFFFFF9999DB0000A60000A60000A60000A60000A6
+      9999DBFFFFFF9999DB0000A60000A60000A60000A60000A60000A60000A60000
+      A6BBBBE7FFFFFF0000A60000A60000A66666CAFFFFFF7777D00000A60000A600
+      00A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A6
+      0000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BEFFFFFFDDDDF333
+      33B80000A60000A60000A60000A61111AC3333B80000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BE1111AC0000A600
+      00A61111ACFFFFFFCCCCED0000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A63333B8FFFF
+      FFFFFFFFBBBBE7DDDDF3FFFFFFFFFFFFFFFFFF6666CA0000A60000A60000A600
+      00A60000A60000A60000A6FFFFFFFFFFFFFFFFFFDDDDF3BBBBE7EEEEF9FFFFFF
+      FFFFFFFFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000
+      A60000A6FFFFFFFFFFFFFFFFFF7777D00000A65555C4FFFFFFFFFFFFFFFFFFEE
+      EEF91111AC0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000B30000B30000B300
+      00B30000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B3DDDDF5EEEEFA
+      2222BD0000B30000B30000B30000B30000B30000B30000B30000B3BBBBEBFFFF
+      FF0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B33333C2FFFFFF6666D10000B30000B39999E1DDDDF56666D1EEEEFA0000B3
+      0000B33333C2FFFFFF7777D60000B30000B30000B30000B30000B30000B30000
+      B34444C7FFFFFFAAAAE60000B30000B30000B30000B30000B30000B30000B3AA
+      AAE6FFFFFF4444C70000B30000B30000B30000B30000B30000B30000B3BBBBEB
+      FFFFFF0000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B30000B30000
+      B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B300
+      00B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B31111B8EEEEFADDDDF51111B80000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B3DDDDF5FFFFFF0000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B34444C78888DC1111B8
+      0000B31111B8FFFFFFFFFFFFFFFFFFAAAAE60000B30000B30000B30000B30000
+      B30000B30000B3FFFFFFFFFFFFFFFFFF7777D60000B31111B89999E1FFFFFFFF
+      FFFFFFFFFF5555CC0000B30000B30000B30000B30000B30000B30000B30000B3
+      FFFFFFFFFFFFFFFFFF7777D61111B8EEEEFAFFFFFFFFFFFFFFFFFF5555CC0000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B10000B10000B10000B10000
+      B10000B10000B10000B1FFFFFFBBBBEA0000B18888DBFFFFFF4444C60000B100
+      00B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B11111
+      B6FFFFFF8888DB0000B11111B6FFFFFF7777D50000B1EEEEFA6666D00000B144
+      44C6FFFFFF6666D00000B10000B10000B10000B10000B10000B10000B1AAAAE5
+      FFFFFF2222BB0000B10000B10000B10000B10000B10000B10000B12222BBFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF00
+      00B10000B10000B12222BBFFFFFF9999E00000B10000B10000B10000B10000B1
+      0000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000
+      B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B16666D0FFFFFF6666D00000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B13333C1FFFFFF
+      DDDDF50000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B11111B60000B10000B10000B177
+      77D5FFFFFFFFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B1
+      0000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B11111B6EEEEFAFFFFFFFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B10000B1FFFFFFFF
+      FFFFFFFFFF7777D5BBBBEAFFFFFFFFFFFFFFFFFF8888DB0000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADFFFFFFFFFFFFFFFFFFFFFFFFDDDDF43333BD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFA
+      AAAAE40000AD7777D3EEEEFA1111B20000AD7777D3CCCCEF0000AD6666CEFFFF
+      FF4444C30000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFADDDDF400
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADDDDDF4EEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000
+      AD3333BDCCCCEFEEEEFA3333BD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      BBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000ADAAAAE4FFFFFF1111B20000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD3333BDEEEEFAFFFFFF6666CE00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD1111B2AAAAE4FFFFFFFFFF
+      FFFFFFFFFFFFFF7777D30000AD0000AD0000AD0000AD0000AD0000AD0000ADFF
+      FFFFFFFFFFFFFFFF7777D30000AD0000AD0000AD9999DEFFFFFFFFFFFFEEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADFFFFFFFFFFFFFFFF
+      FFDDDDF4FFFFFFFFFFFFFFFFFFCCCCEF1111B20000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABFFFFFFCCCCEE4444C15555C7DDDDF4FFFFFF3333BC0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FF4444C10000AB0000AB0000AB0000AB0000AB0000AB0000ABCCCCEECCCCEE00
+      00ABEEEEF98888D80000AB0000AB1111B1FFFFFF4444C17777D2FFFFFF3333BC
+      0000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFBBBBE90000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      DDDDF43333BC0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBB
+      E9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFF4444C10000AB0000AB0000AB0000AB0000AB
+      0000ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB6666CDFFFFFFFFFFFF8888D80000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      EEEEF91111B10000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFF
+      FFFFFFFF7777D20000AB0000AB0000AB7777D2FFFFFFFFFFFFFFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF3333BC0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000B50000B50000B50000B50000B50000B50000B50000B5FFFF
+      FFBBBBEB0000B50000B52222BFFFFFFFBBBBEB0000B50000B50000B50000B500
+      00B50000B50000B50000B5BBBBEBFFFFFF7777D87777D87777D87777D82222BF
+      0000B50000B50000B50000B50000B50000B50000B5AAAAE6DDDDF55555CEFFFF
+      FF2222BF0000B50000B50000B59999E1AAAAE69999E1FFFFFF1111BA0000B500
+      00B50000B50000B50000B50000B50000B5EEEEFADDDDF50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B5DDDDF5EEEEFA0000B50000B50000
+      B50000B50000B50000B50000B5BBBBEBFFFFFF4444C94444C9CCCCF0EEEEFA22
+      22BF0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF
+      0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF7777
+      D87777D87777D87777D82222BF0000B50000B50000B50000B50000B50000B5AA
+      AAE6FFFFFF2222BF0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5BBBB
+      EBFFFFFF0000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B55555CEFFFFFFEEEEFA5555CE0000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B54444C9FFFFFFFFFFFFFFFFFFFFFFFFDDDDF53333C400
+      00B50000B50000B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFF
+      7777D80000B50000B50000B59999E1FFFFFFFFFFFFEEEEFA0000B50000B50000
+      B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFFBBBBEBFFFFFFFF
+      FFFFFFFFFF5555CE0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B500009F00009F00009F00009F00009F00009F00009F00009FFFFFFFBBBBE5
+      00009F00009F00009FCCCCECFFFFFF00009F00009F00009F00009F00009F0000
+      9F00009F00009FBBBBE5FFFFFF00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F8888D2FFFFFFCCCCECAAAADF00009F
+      00009F00009F00009F2222ACFFFFFFCCCCECFFFFFF00009F00009F00009F0000
+      9F00009F00009F00009F00009FAAAADFFFFFFF2222AC00009F00009F00009F00
+      009F00009F00009F00009F2222ACFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009FBBBBE5FFFFFF00009F00009F2222ACFFFFFF8888D20000
+      9F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00
+      009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F6666C5FFFF
+      FF7777CC00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9FCCCCECFFFFFF3333B200009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F7777CCFFFFFFFFFFFFFFFFFFAAAADF1111A500009F00009F0000
+      9F00009F00009F00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CC00
+      009F00009F1111A5EEEEF9FFFFFFFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CCAAAADFFFFFFFFFFF
+      FFEEEEF91111A500009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      8E00008E00008E00008E00008E00008E00008E00008EFFFFFFBBBBE100008E00
+      008E00008ECCCCE8EEEEF700008E00008E00008E00008E00008E00008E00008E
+      00008EBBBBE1FFFFFF00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E6666BBFFFFFFFFFFFF3333A500008E00008E00
+      008E00008E00008EAAAAD9FFFFFFDDDDF000008E00008E00008E00008E00008E
+      00008E00008E00008E4444ACFFFFFFAAAAD900008E00008E00008E00008E0000
+      8E00008E00008EAAAAD9FFFFFF4444AC00008E00008E00008E00008E00008E00
+      008E00008EBBBBE1FFFFFF00008E00008E00008EFFFFFFBBBBE100008E00008E
+      00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E0000
+      8E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E111196EEEEF7EEEEF7
+      11119600008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008EFFFFFF
+      CCCCE800008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E7777C3FFFFFFFFFFFFFFFFFF00008E00008E22229D3333A500008E00008E
+      00008E00008E00008E00008E00008EFFFFFFFFFFFFFFFFFF7777C300008E1111
+      969999D2FFFFFFFFFFFFFFFFFF6666BB00008E00008E00008E00008E00008E00
+      008E00008E00008EFFFFFFFFFFFFFFFFFF7777C3111196EEEEF7FFFFFFFFFFFF
+      8888CA00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E000091000091
+      000091000091000091000091000091000091FFFFFFBBBBE20000910000913333
+      A7FFFFFFBBBBE2000091000091000091000091000091000091000091000091BB
+      BBE2FFFFFF000091000091000091000091000091000091000091000091000091
+      0000910000910000914444AEFFFFFFBBBBE20000910000910000910000910000
+      910000914444AEFFFFFFBBBBE200009100009100009100009100009100009100
+      00910000910000919999D3FFFFFF9999D3000091000091000091000091000091
+      9999D3FFFFFF9999D30000910000910000910000910000910000910000910000
+      91BBBBE2FFFFFF0000910000914444AEFFFFFF9999D300009100009100009100
+      0091000091000091000091000091BBBBE2FFFFFF000091000091000091000091
+      000091000091000091000091BBBBE2FFFFFF0000910000910000910000910000
+      910000910000910000910000910000910000910000914444AEFFFFFFDDDDF044
+      44AE0000910000910000910000912222A03333A7000091000091000091000091
+      000091000091000091000091000091000091BBBBE2FFFFFF0000910000910000
+      91000091000091000091000091000091000091000091000091DDDDF0DDDDF000
+      00910000910000912222A0000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000913333
+      A7FFFFFFFFFFFFFFFFFFCCCCE9BBBBE2FFFFFF4444AE00009100009100009100
+      0091000091000091000091FFFFFFFFFFFFFFFFFFDDDDF0BBBBE2EEEEF8FFFFFF
+      FFFFFFFFFFFFBBBBE20000910000910000910000910000910000910000910000
+      91000091FFFFFFFFFFFFFFFFFF7777C40000916666BDFFFFFFFFFFFFFFFFFF44
+      44AE000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100007800007800007800
+      0078000078000078000078000078FFFFFFDDDDED6666AE8888C0EEEEF6EEEEF6
+      333393000078000078000078000078000078000078000078000078BBBBDBFFFF
+      FF7777B77777B77777B77777B744449C00007800007800007800007800007800
+      007800007822228AFFFFFF5555A5000078000078000078000078000078000078
+      000078CCCCE4AAAAD20000780000780000780000780000780000780000780000
+      780000780000789999C9FFFFFFEEEEF69999C97777B79999C9EEEEF6FFFFFF99
+      99C9000078000078000078000078000078000078000078000078000078BBBBDB
+      FFFFFF6666AE7777B7EEEEF6FFFFFF3333930000780000780000780000780000
+      78000078000078000078BBBBDBFFFFFF00007800007800007800007800007800
+      0078000078000078BBBBDBFFFFFF7777B77777B77777B77777B744449C000078
+      0000780000780000780000780000780000780000785555A5EEEEF6FFFFFFCCCC
+      E49999C99999C9BBBBDBFFFFFF6666AE00007800007800007800007800007811
+      11817777B77777B77777B77777B7DDDDEDFFFFFF7777B77777B77777B77777B7
+      3333930000780000780000780000780000780000786666AEFFFFFFAAAAD26666
+      AE9999C99999C900007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078AAAAD2
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF44449C0000780000780000780000780000
+      78000078000078FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBB
+      BBDB111181000078000078000078000078000078000078000078000078000078
+      FFFFFFFFFFFFFFFFFF7777B7000078000078BBBBDBFFFFFFFFFFFFDDDDED1111
+      8100007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      00007800007800007800007800007800007800007A00007A00007A00007A0000
+      7A00007A00007A00007AFFFFFFFFFFFFFFFFFFDDDDEDAAAAD322228C00007A00
+      007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF7777B800007A00007A00007A00007A00007A00007A0000
+      7A00007ACCCCE400007A00007A00007A00007A00007A00007A00007A00007A44
+      449D8888C100007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A44449DAAAAD3EEEEF6FFFFFFEEEEF6AAAAD344449D00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFF
+      FFFFEEEEF6BBBBDC44449D00007A00007A00007A00007A00007A00007A00007A
+      00007A00007ABBBBDCFFFFFF00007A00007A00007A00007A00007A00007A0000
+      7A00007ABBBBDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777B800007A00007A00
+      007A00007A00007A00007A00007A00007A00007A1111838888C1CCCCE4FFFFFF
+      FFFFFFDDDDED9999CA33339500007A00007A00007A00007A00007A22228CFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555A600
+      007A00007A00007A00007A00007A00007A00007A6666AFDDDDEDFFFFFFBBBBDC
+      22228C00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A7777B8CC
+      CCE4FFFFFFFFFFFFFFFFFF44449D00007A00007A00007A00007A00007A00007A
+      00007AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAAAAD36666AF00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007AFFFFFFFF
+      FFFFFFFFFF7777B800007A00007A44449DFFFFFFFFFFFFFFFFFF9999CA00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      970000970000970000970000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A600009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      007900006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      00005100005100005100005100005100005100004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      005800005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      006000006000006000006000006000006000006000006000006000005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      00005500005500005500005500005500005500005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      006400005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069}
+  end
+  object Bevel2: TBevel
+    Left = 0
+    Top = 64
+    Width = 500
+    Height = 2
+    Align = alTop
+    Shape = bsTopLine
+  end
+  object Bevel3: TBevel
+    Left = 0
+    Top = 274
+    Width = 500
+    Height = 2
+    Align = alBottom
+    Shape = bsTopLine
+  end
+  object eSvcLibName: TEdit
+    Left = 119
+    Top = 125
+    Width = 377
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 2
+  end
+  object eSvcName: TEdit
+    Left = 119
+    Top = 151
+    Width = 377
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 3
+  end
+  object ePrjName: TEdit
+    Left = 119
+    Top = 99
+    Width = 377
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 1
+  end
+  object ePrjDir: TEdit
+    Left = 119
+    Top = 241
+    Width = 289
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 6
+  end
+  object eTemplateName: TEdit
+    Left = 119
+    Top = 73
+    Width = 377
+    Height = 21
+    TabStop = False
+    Anchors = [akLeft, akTop, akRight]
+    Color = clBtnFace
+    ReadOnly = True
+    TabOrder = 0
+  end
+  object BitBtn1: TBitBtn
+    Left = 420
+    Top = 239
+    Width = 75
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = '&Browse'
+    TabOrder = 7
+    TabStop = False
+    OnClick = sbBrowseForDirClick
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF1C99CE2BA5D51C9DD10A8AC6FF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFBFA5A34D5A72FF00FFFF00FF249CCFA6EEF7
+      6CEBF85DD9F04AC7E739B8E020A0D40F91CA0F91C9FF00FFFF00FFBFA5A35766
+      831276E23C91DCFF00FF0C8CC799DDEF8BFFFF80FCFF82FBFF7FFAFF79F3FF65
+      E1F74ECEED3CBAE07591A05B66811170D833A1FF2A9AFEFF00FF1296CC59BADE
+      9FFEFF75F7FF78F6FF77F2FC89D9E087D7DE7BE2EA91BCC05168891370D531A0
+      FF319EFBFF00FFFF00FF26A5D448C1E69FEFF879F6FB87D8DCBACABCDABCA5D0
+      B59EAF9A8C817A734179AF32A3FF3DACFE1B9CD4FF00FFFF00FF27AFDE8B97A1
+      88CFE28BD1D3CBB4ADF7F0DDFFFFD8FFFFD9FAF8C5CFB08CC4A9A34DC1FC55D0
+      FB41C1E3FF00FFFF00FF25AFE1AD706B5DBCDDB5A69EF7F4EEFFFFFFFFFFE3FF
+      FFD4FFF7C1FFE6A5D8A0826FD4EB59D7FB68E2F80E90C9FF00FF26AFE1B5776D
+      A4CFD9CEB69EFFFFEAFFFFF3FFFFEAFFFFD7F7DCA9F6C986E1B89191C0C753D3
+      FB7EF3FF28AAD8FF00FF28B0E0BC7F6EFFF4EBD5BCA1FFFFDDFFFFDDFFFFE0FF
+      FACAEFBD81F4BD77E7C49A93C0C44FD3FB7DF4FF56D5EFFF00FF28AFE1C58870
+      FFFCF8CAAA99FEFFCEFFFFC9F8E1ADF0C78CF3CA96FFEBB5D5AF959AC9D37AE0
+      FE9DFBFF96F8FF23A1D328B0E1CE9173FFFAF7D8C4BDDCC59EFCE5A7FAC782FB
+      D08BFFF7E0E7DCCE8CA5AA6BC9E65FBCE060BBDE6CC4E329A1D12DB2E2D59975
+      FFF8F3FCFBFAE5D1C9E9CAA6E7C599E1C298CCB59FB18B8875E7F86DEDFE179D
+      D1FF00FFFF00FFFF00FF1FA1D9DDA077FFFBF6FFFFFFFFFFFFFFFFFEFBF4EBB4
+      8379BF7849B16F5350C0E550C4E71C9DD0FF00FFFF00FFFF00FFFF00FFE2A678
+      FFFFFFFFFFFFFFFFFFFFFFFFF8FAFCB6877AE29955FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFE7AB79D1926DD1926DD1926DD1926DD1926DB4
+      7E6FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+  end
+  object cbMessageClass: TComboBox
+    Left = 119
+    Top = 209
+    Width = 377
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 5
+  end
+  object cbServerClass: TComboBox
+    Left = 119
+    Top = 184
+    Width = 377
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 4
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 276
+    Width = 500
+    Height = 41
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 8
+    DesignSize = (
+      500
+      41)
+    object Image1: TImage
+      Left = 5
+      Top = 4
+      Width = 32
+      Height = 32
+      Anchors = [akLeft, akBottom]
+      AutoSize = True
+      Picture.Data = {
+        07544269746D617072080000424D720800000000000036040000280000002000
+        00002000000001000800010000003C040000130B0000130B0000000000000000
+        00000C0C0C0012131300171818001C1C1C0017182200242424002B2B2B00312E
+        2E0031302F002D2E3000383635003B3B3B0045363600453C3B00171B45001417
+        4D000B0C5B001319520010155D00151B5C001D214100232B4A003D3C41003A3D
+        49002B3359003339520009117A00192D760029356800333C62003C4257003E44
+        5B003A4675003D497700434243004C45440045444B00494748004B4B4B00524B
+        4A005A4F4E005B524F0042455100494B55004E5059005353530052555F005A5A
+        5A00684F4D00685755006A5E5D007A6A5A00434C6D005C5E6500636363006966
+        66006A6A6A007E646200756C6B007D6D6A007E726B0061677800737372007B76
+        77007D7B7B00A77F4200816F600085756F008A7774008B7C7600817F7E00897B
+        7A00907D7800BA823500B5833C00DC800F00DC811100DC881800FE8F0900FF95
+        0500F7921300FE9A1300FE9E1B00FEA11C00DC902300DD972D00DE9E3700E793
+        2A00FEA32200FFAB2B00F8A53300FFAD3200FFAF3800FFB33300FEB43A00FFBC
+        3A00AC824200B1834100A1885500B89A570091837C0096907F009D957B00AF9D
+        6D00B89F6200A4997600DEA44100DEAB4C00C9A45800DEB25000E1AF4F00FFB7
+        4100FFBA4300FEB64F00E7A95100C9AC6400C4A37A00D3AA7600F4BB6800FFC2
+        4200FFC04E00FFC45300FFC65800FFCA5C00DEC67800FFCD6400FFD06200FFD8
+        6600FFD26A00FFD57300FFD97600FFD97800FFE17A0004088C00183089000005
+        A5000009AB00000CB100000FB8001B39AA001131BB00374A8D002C429500344A
+        99002D46A3003851A7003C54A8002F4DBC00485A950055669C0060688200566A
+        A700183BC300153ACA00062FDE00123EE7000332F0000D3CF2000134FD00073A
+        FF000C3EFF00224ADD00385FDF001442F3001847F3001244FF001C4DFF002853
+        E9002758FF003C65EA003C68F4003363FF003C6BFF004A67C200496EE1004C72
+        E1004572FA00837E8100FF00FF00818080008C8685008C8B8B00928A8400968D
+        8D009B8C8B009C938B00919092009B9293009F959A009E989A00A0969500A098
+        9200A49C9A00AC9C9800A9A29E00A7A7A700ABA6A300ADA6AA00B3A6A600B1AF
+        AB00BBAFAC00BAB6BB00BCBCBC00E2BB8800C9B4A400CEBAA500C2B7B400C4BC
+        BC00CABDBA00DAC09A00EDDA8C00FFDE8100FFE18500FEE48A00FFEB8B00FEE6
+        9100F0E59D00FEEC9900FFF09900F8EEA300FFF6AA00C5C4C500CAC4C400C4C5
+        C900D5C9C600D5D0CF00DED3C900CFCFD000D1D0D000DCD7D700E0DDDD00F6E2
+        C900E3E3E600EBE6E500EEECEC00F4F3F500FCF7F600FEFEFE00000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000CB200042D0501000200000B05080B262D2723222640B20003B2000009B2
+        012F03030501000C08B5CFDED0C6B8443B290AB202B2000007B2013803050403
+        0201000F16E0EAE9E1C0B6474445483B0BB2B21C000006B2010B020903050014
+        031288871046ECEBE63E3F403E2932446423B2B2000005B20208020904050013
+        0E89888522E6EDDD40E0C1C8C227433B07B2B200000004B2010B030802090106
+        02050011138A1A0F042246382231303944272707B22202B2000003B20125020B
+        0308010902060012051411223AB13F32292827230D0C050001B202B2000002B2
+        013F040B010A02080109020600130522C73CD1E7E2D0C6BCBCBBB43A160222B2
+        B212000002B201220216020B020A020802090013052DDD3B4C51585C7176CBCD
+        CECFC9BC2D22B2DD00000013B23F222522160B0B0A0A080809062DE3434B4E06
+        044E000951525A7275CCDEBA0B3100000018B226252522221D989C8C18080809
+        2DE6454C515152585852025200064E5150577435000001B20226022500122A9D
+        9F9F9E9A0A08082FE8644D525859595B025B0007595853514F492E3A00000020
+        402D26262520A5A09F9E9E1C0A082FEAB654595B5E6F70706F5E5E5958514A2C
+        00000136022D0226001B21A5A0A09F9E190A0A35EBB9555B7078797A7A797870
+        5E59534A2B08000000202D2F2D2D2626A1A6A0A098160B0A2FEDBF5677797B7D
+        7D807D7B79705E5961250000022F032D001B262C8F908E2216160B2FEDC06A79
+        7B8081828181807D79705D6124200000032F00042D2F2D260226022503160012
+        2FEDC26B7B8081D3D4D5D382807B795F601600000136032F032D022602250222
+        00130B2FEDC46B7E81D3D5D9D9D7D4817E79774116790000000338362F08022F
+        032D0326032200122FEDC66D7F82D5D9DCDCD9D583807A776016000001B50236
+        042F022D032600142A1F2FEDC76263737CD2D8DBDAD684807B776016000001B2
+        0336042F022D00162634A7A536EDE6DFC9C3BFB665666967686C6E6F60220000
+        0003B238367B0236000E35AAAB942D2D91A6A61EC3CAE4E602E6000BE5E4CFC5
+        BDB7643C334226D700000020B2B5373636AEACACA92F2692A8A68B861B15090B
+        25293840B4B7BEC0BEB83A08000002B2001E383736AFB0ACACA2A2ABA8A8A6A6
+        A5A5A0990B0808090505090508082DB2000002B201BA0237013D02B003AC01AB
+        03A802A602A5019B0216000A0B080B080907092FB2B2000003B2013F02370196
+        02B002AC02AB02A803A6000CA58E2217170B0A0A08080BB202B2000004B20019
+        3738373DAFB0ACACABABA8ABA8A6A6A48EA39D1D0B0A0A08B2A603B2000005B2
+        02380009373897B0ACACABABA80002A802A60004A5A38E0B020B010A05B20000
+        06B2013E02370236001095ADA9ACABA8A8A7938D2522221625B205B2000007B2
+        0004BA3837360236032F032D03260004252238B206B2000009B20003BA383696
+        0236042F022D0226013E09B200000CB20004B537362F032F01B30CB20001}
+      Transparent = True
+    end
+    object cbCreateClientAndGroup: TCheckBox
+      Left = 42
+      Top = 12
+      Width = 201
+      Height = 17
+      Anchors = [akLeft, akBottom]
+      Caption = 'Create Test Client and Project Group'
+      Checked = True
+      State = cbChecked
+      TabOrder = 0
+    end
+    object btn_Ok: TBitBtn
+      Left = 341
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = 'OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 1
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+        6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+        9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+        9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+        4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+        65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+        00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+        00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object Button2: TBitBtn
+      Left = 420
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 2
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.lfm
new file mode 100644
index 0000000..1ae79c9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.lfm	
@@ -0,0 +1,4097 @@
+object ServerProjectOptions: TServerProjectOptions
+  Left = 339
+  Height = 313
+  Top = 195
+  Width = 501
+  ActiveControl = ePrjName
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'RemObjects SDK Server - Advanced Project Options'
+  ClientHeight = 313
+  ClientWidth = 501
+  Constraints.MinHeight = 238
+  Constraints.MinWidth = 300
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  Position = poScreenCenter
+  LCLVersion = '0.9.27'
+  object Label1: TLabel
+    Left = 8
+    Height = 14
+    Top = 128
+    Width = 106
+    Caption = 'Service Library Name:'
+    ParentColor = False
+  end
+  object Label2: TLabel
+    Left = 8
+    Height = 14
+    Top = 154
+    Width = 70
+    Caption = 'Service Name:'
+    ParentColor = False
+  end
+  object Label3: TLabel
+    Left = 8
+    Height = 14
+    Top = 102
+    Width = 69
+    Caption = 'Project Name:'
+    ParentColor = False
+  end
+  object Label5: TLabel
+    Left = 8
+    Height = 14
+    Top = 244
+    Width = 72
+    Caption = 'Project Folder:'
+    ParentColor = False
+  end
+  object Bevel1: TBevel
+    Left = 4
+    Height = 2
+    Top = 350
+    Width = 675
+    Anchors = [akLeft, akRight, akBottom]
+  end
+  object Label4: TLabel
+    Left = 8
+    Height = 14
+    Top = 76
+    Width = 92
+    Caption = 'Template Location:'
+    ParentColor = False
+  end
+  object Label6: TLabel
+    Left = 8
+    Height = 14
+    Top = 213
+    Width = 75
+    Caption = 'Message Class:'
+    ParentColor = False
+  end
+  object Label7: TLabel
+    Left = 8
+    Height = 14
+    Top = 188
+    Width = 65
+    Caption = 'Server Class:'
+    ParentColor = False
+  end
+  object Label8: TLabel
+    Left = 119
+    Height = 14
+    Top = 188
+    Width = 197
+    Caption = 'Not available in this kind of server'
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = [fsBold]
+    ParentColor = False
+    ParentFont = False
+  end
+  object Image2: TImage
+    Left = 0
+    Height = 64
+    Top = 0
+    Width = 501
+    Align = alTop
+    AutoSize = True
+    Picture.Data = {
+      07544269746D617036770100424D38770100000000003600000028000000F401
+      000040000000010018000000000002770100120B0000120B0000000000000000
+      00000000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC00
+      00BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC
+      0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000BC0000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B6
+      0000B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000
+      B60000B60000B60000B60000B60000B60000B60000B60000B60000B60000B600
+      00B60000B60000B60000B60000B60000B60000B60000B60000B6000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E4444AC
+      7777C36666BB00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      95000095000095000095000095000095000095000095000095FFFFFFFFFFFFFF
+      FFFFDDDDF12222A3000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009500009500009500009500009500009500009500
+      0095000095000095000095000095000095000095000095000095000095000095
+      0000950000950000950000950000950000950000950000950000950000950000
+      9500009500009500009500009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B5555BC00009B5555BCFFFF
+      FFAAAADE00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B0000
+      9B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00
+      009B00009B00009B00009B00009B00009B00009B00009B00009B00009B00009B
+      00009B00009B0000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B0CCCCEFEEEEFA
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B0
+      0000B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000
+      B00000B00000B00000B00000B00000B00000B00000B00000B00000B00000B000
+      00B00000A80000A80000A80000A80000A80000A80000A80000A8FFFFFFBBBBE8
+      0000A80000A80000A80000A8BBBBE8FFFFFF7777D10000A80000A80000A80000
+      A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9999DC0000A800
+      00A80000A80000A80000A80000A8AAAAE2FFFFFF2222B40000A80000A80000A8
+      4444BF9999DC0000A80000A80000A80000A8FFFFFFEEEEF90000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A84444BFAAAAE2EEEEF9FF
+      FFFFEEEEF9AAAAE24444BF0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFFDDDDF38888D61111AE0000
+      A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF0000A800
+      00A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A80000A80000A80000
+      A80000A81111AE8888D6CCCCEEFFFFFFFFFFFFDDDDF39999DC3333B90000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A8BBBBE8FFFFFF
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A83333
+      B9AAAAE2DDDDF3FFFFFFCCCCEE4444BF0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFCCCCEE7777D10000A80000A80000
+      A80000A80000A80000A80000A80000A80000A8FFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFAAAAE26666CB0000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A8FFFFFFFFFFFFFFFFFF7777D10000A80000A81111
+      AEEEEEF9FFFFFFFFFFFFFFFFFF9999DC0000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A800
+      00A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000A8
+      0000A80000A80000A80000A80000A80000A80000A80000A80000A80000A80000
+      B10000B10000B10000B10000B10000B10000B10000B1FFFFFFBBBBEA0000B100
+      00B10000B17777D5FFFFFF9999E00000B10000B10000B10000B10000B10000B1
+      0000B1BBBBEAFFFFFF7777D57777D57777D57777D54444C60000B10000B10000
+      B10000B10000B10000B17777D5FFFFFF3333C10000B10000B10000B1BBBBEAFF
+      FFFF1111B60000B10000B10000B1FFFFFFBBBBEA0000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B19999E0FFFFFFEEEEFA9999E07777D59999
+      E0EEEEFAFFFFFF9999E00000B10000B10000B10000B10000B10000B10000B100
+      00B10000B1BBBBEAFFFFFF7777D57777D5AAAAE5FFFFFFDDDDF51111B60000B1
+      0000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000
+      B10000B10000B10000B10000B10000B1BBBBEAFFFFFF7777D57777D57777D577
+      77D54444C60000B10000B10000B10000B10000B10000B10000B10000B15555CB
+      EEEEFAFFFFFFBBBBEA8888DB7777D5AAAAE5EEEEFA7777D50000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B16666D0EEEEFA
+      8888DB6666D0BBBBEAFFFFFF4444C60000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCEF0000B10000B10000B1
+      0000B10000B10000B10000B10000B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFBBBBEA1111B60000B10000B10000B10000B10000B10000B100
+      00B10000B10000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B1AAAAE5FFFFFF
+      FFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000A60000A6
+      0000A60000A60000A60000A60000A60000A6FFFFFFBBBBE70000A60000A63333
+      B8FFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000A6BB
+      BBE7FFFFFF0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A65555C4FFFFFF4444BE0000A60000A63333B8FFFFFFFFFFFF7777
+      D00000A60000A62222B2FFFFFF9999DB0000A60000A60000A60000A60000A600
+      00A60000A60000A69999DBFFFFFF9999DB0000A60000A60000A60000A60000A6
+      9999DBFFFFFF9999DB0000A60000A60000A60000A60000A60000A60000A60000
+      A6BBBBE7FFFFFF0000A60000A60000A66666CAFFFFFF7777D00000A60000A600
+      00A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A6
+      0000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BEFFFFFFDDDDF333
+      33B80000A60000A60000A60000A61111AC3333B80000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A6BBBBE7FFFFFF0000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A64444BE1111AC0000A600
+      00A61111ACFFFFFFCCCCED0000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A63333B8FFFF
+      FFFFFFFFBBBBE7DDDDF3FFFFFFFFFFFFFFFFFF6666CA0000A60000A60000A600
+      00A60000A60000A60000A6FFFFFFFFFFFFFFFFFFDDDDF3BBBBE7EEEEF9FFFFFF
+      FFFFFFFFFFFFBBBBE70000A60000A60000A60000A60000A60000A60000A60000
+      A60000A6FFFFFFFFFFFFFFFFFF7777D00000A65555C4FFFFFFFFFFFFFFFFFFEE
+      EEF91111AC0000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000B30000B30000B300
+      00B30000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B3DDDDF5EEEEFA
+      2222BD0000B30000B30000B30000B30000B30000B30000B30000B3BBBBEBFFFF
+      FF0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B33333C2FFFFFF6666D10000B30000B39999E1DDDDF56666D1EEEEFA0000B3
+      0000B33333C2FFFFFF7777D60000B30000B30000B30000B30000B30000B30000
+      B34444C7FFFFFFAAAAE60000B30000B30000B30000B30000B30000B30000B3AA
+      AAE6FFFFFF4444C70000B30000B30000B30000B30000B30000B30000B3BBBBEB
+      FFFFFF0000B30000B30000B30000B3FFFFFFBBBBEB0000B30000B30000B30000
+      B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B300
+      00B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B31111B8EEEEFADDDDF51111B80000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B3BBBBEBFFFFFF0000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B3DDDDF5FFFFFF0000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B34444C78888DC1111B8
+      0000B31111B8FFFFFFFFFFFFFFFFFFAAAAE60000B30000B30000B30000B30000
+      B30000B30000B3FFFFFFFFFFFFFFFFFF7777D60000B31111B89999E1FFFFFFFF
+      FFFFFFFFFF5555CC0000B30000B30000B30000B30000B30000B30000B30000B3
+      FFFFFFFFFFFFFFFFFF7777D61111B8EEEEFAFFFFFFFFFFFFFFFFFF5555CC0000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000
+      B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B300
+      00B30000B30000B30000B30000B30000B30000B30000B30000B30000B30000B3
+      0000B30000B30000B30000B30000B30000B30000B10000B10000B10000B10000
+      B10000B10000B10000B1FFFFFFBBBBEA0000B18888DBFFFFFF4444C60000B100
+      00B10000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF0000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B11111
+      B6FFFFFF8888DB0000B11111B6FFFFFF7777D50000B1EEEEFA6666D00000B144
+      44C6FFFFFF6666D00000B10000B10000B10000B10000B10000B10000B1AAAAE5
+      FFFFFF2222BB0000B10000B10000B10000B10000B10000B10000B12222BBFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B1BBBBEAFFFFFF00
+      00B10000B10000B12222BBFFFFFF9999E00000B10000B10000B10000B10000B1
+      0000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000
+      B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B16666D0FFFFFF6666D00000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B1BBBBEAFFFFFF0000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B13333C1FFFFFF
+      DDDDF50000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B11111B60000B10000B10000B177
+      77D5FFFFFFFFFFFFFFFFFFBBBBEA0000B10000B10000B10000B10000B10000B1
+      0000B1FFFFFFFFFFFFFFFFFF7777D50000B10000B11111B6EEEEFAFFFFFFFFFF
+      FFAAAAE50000B10000B10000B10000B10000B10000B10000B10000B1FFFFFFFF
+      FFFFFFFFFF7777D5BBBBEAFFFFFFFFFFFFFFFFFF8888DB0000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B1
+      0000B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000
+      B10000B10000B10000B10000B10000B10000B10000B10000B10000B10000B100
+      00B10000B10000B10000B10000B10000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADFFFFFFFFFFFFFFFFFFFFFFFFDDDDF43333BD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFA
+      AAAAE40000AD7777D3EEEEFA1111B20000AD7777D3CCCCEF0000AD6666CEFFFF
+      FF4444C30000AD0000AD0000AD0000AD0000AD0000AD0000ADEEEEFADDDDF400
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADDDDDF4EEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000ADBBBBE9FFFFFF0000AD0000
+      AD3333BDCCCCEFEEEEFA3333BD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      BBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000ADAAAAE4FFFFFF1111B20000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000ADBBBBE9FFFFFF0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD3333BDEEEEFAFFFFFF6666CE00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD1111B2AAAAE4FFFFFFFFFF
+      FFFFFFFFFFFFFF7777D30000AD0000AD0000AD0000AD0000AD0000AD0000ADFF
+      FFFFFFFFFFFFFFFF7777D30000AD0000AD0000AD9999DEFFFFFFFFFFFFEEEEFA
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000ADFFFFFFFFFFFFFFFF
+      FFDDDDF4FFFFFFFFFFFFFFFFFFCCCCEF1111B20000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD00
+      00AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD
+      0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000AD0000
+      AD0000AD0000AD0000AD0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABFFFFFFCCCCEE4444C15555C7DDDDF4FFFFFF3333BC0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FF4444C10000AB0000AB0000AB0000AB0000AB0000AB0000ABCCCCEECCCCEE00
+      00ABEEEEF98888D80000AB0000AB1111B1FFFFFF4444C17777D2FFFFFF3333BC
+      0000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFBBBBE90000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      DDDDF43333BC0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBB
+      E9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000ABBBBBE9FF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFF4444C10000AB0000AB0000AB0000AB0000AB
+      0000ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00ABBBBBE9FFFFFF0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB6666CDFFFFFFFFFFFF8888D80000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000ABBBBBE9FFFFFFFFFFFFFFFFFFFFFFFF
+      EEEEF91111B10000AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFF
+      FFFFFFFF7777D20000AB0000AB0000AB7777D2FFFFFFFFFFFFFFFFFF0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000ABFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF3333BC0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000
+      AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB00
+      00AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB0000AB
+      0000AB0000AB0000B50000B50000B50000B50000B50000B50000B50000B5FFFF
+      FFBBBBEB0000B50000B52222BFFFFFFFBBBBEB0000B50000B50000B50000B500
+      00B50000B50000B50000B5BBBBEBFFFFFF7777D87777D87777D87777D82222BF
+      0000B50000B50000B50000B50000B50000B50000B5AAAAE6DDDDF55555CEFFFF
+      FF2222BF0000B50000B50000B59999E1AAAAE69999E1FFFFFF1111BA0000B500
+      00B50000B50000B50000B50000B50000B5EEEEFADDDDF50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B5DDDDF5EEEEFA0000B50000B50000
+      B50000B50000B50000B50000B5BBBBEBFFFFFF4444C94444C9CCCCF0EEEEFA22
+      22BF0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF
+      0000B50000B50000B50000B50000B50000B50000B50000B5BBBBEBFFFFFF7777
+      D87777D87777D87777D82222BF0000B50000B50000B50000B50000B50000B5AA
+      AAE6FFFFFF2222BF0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5BBBB
+      EBFFFFFF0000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B55555CEFFFFFFEEEEFA5555CE0000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B54444C9FFFFFFFFFFFFFFFFFFFFFFFFDDDDF53333C400
+      00B50000B50000B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFF
+      7777D80000B50000B50000B59999E1FFFFFFFFFFFFEEEEFA0000B50000B50000
+      B50000B50000B50000B50000B50000B5FFFFFFFFFFFFFFFFFFBBBBEBFFFFFFFF
+      FFFFFFFFFF5555CE0000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B5
+      0000B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000
+      B50000B50000B50000B50000B50000B50000B50000B50000B50000B50000B500
+      00B500009F00009F00009F00009F00009F00009F00009F00009FFFFFFFBBBBE5
+      00009F00009F00009FCCCCECFFFFFF00009F00009F00009F00009F00009F0000
+      9F00009F00009FBBBBE5FFFFFF00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F8888D2FFFFFFCCCCECAAAADF00009F
+      00009F00009F00009F2222ACFFFFFFCCCCECFFFFFF00009F00009F00009F0000
+      9F00009F00009F00009F00009FAAAADFFFFFFF2222AC00009F00009F00009F00
+      009F00009F00009F00009F2222ACFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009FBBBBE5FFFFFF00009F00009F2222ACFFFFFF8888D20000
+      9F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00
+      009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F6666C5FFFF
+      FF7777CC00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009FBBBBE5FFFFFF
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9FCCCCECFFFFFF3333B200009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F7777CCFFFFFFFFFFFFFFFFFFAAAADF1111A500009F00009F0000
+      9F00009F00009F00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CC00
+      009F00009F1111A5EEEEF9FFFFFFFFFFFFAAAADF00009F00009F00009F00009F
+      00009F00009F00009F00009FFFFFFFFFFFFFFFFFFF7777CCAAAADFFFFFFFFFFF
+      FFEEEEF91111A500009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      9F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00
+      009F00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F
+      00009F00009F00009F00009F00009F00009F00009F00009F00009F00009F0000
+      8E00008E00008E00008E00008E00008E00008E00008EFFFFFFBBBBE100008E00
+      008E00008ECCCCE8EEEEF700008E00008E00008E00008E00008E00008E00008E
+      00008EBBBBE1FFFFFF00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E6666BBFFFFFFFFFFFF3333A500008E00008E00
+      008E00008E00008EAAAAD9FFFFFFDDDDF000008E00008E00008E00008E00008E
+      00008E00008E00008E4444ACFFFFFFAAAAD900008E00008E00008E00008E0000
+      8E00008E00008EAAAAD9FFFFFF4444AC00008E00008E00008E00008E00008E00
+      008E00008EBBBBE1FFFFFF00008E00008E00008EFFFFFFBBBBE100008E00008E
+      00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E0000
+      8E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E111196EEEEF7EEEEF7
+      11119600008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008EBBBBE1FFFFFF00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008EFFFFFF
+      CCCCE800008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E7777C3FFFFFFFFFFFFFFFFFF00008E00008E22229D3333A500008E00008E
+      00008E00008E00008E00008E00008EFFFFFFFFFFFFFFFFFF7777C300008E1111
+      969999D2FFFFFFFFFFFFFFFFFF6666BB00008E00008E00008E00008E00008E00
+      008E00008E00008EFFFFFFFFFFFFFFFFFF7777C3111196EEEEF7FFFFFFFFFFFF
+      8888CA00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E
+      00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E0000
+      8E00008E00008E00008E00008E00008E00008E00008E00008E00008E00008E00
+      008E00008E00008E00008E00008E00008E00008E00008E00008E000091000091
+      000091000091000091000091000091000091FFFFFFBBBBE20000910000913333
+      A7FFFFFFBBBBE2000091000091000091000091000091000091000091000091BB
+      BBE2FFFFFF000091000091000091000091000091000091000091000091000091
+      0000910000910000914444AEFFFFFFBBBBE20000910000910000910000910000
+      910000914444AEFFFFFFBBBBE200009100009100009100009100009100009100
+      00910000910000919999D3FFFFFF9999D3000091000091000091000091000091
+      9999D3FFFFFF9999D30000910000910000910000910000910000910000910000
+      91BBBBE2FFFFFF0000910000914444AEFFFFFF9999D300009100009100009100
+      0091000091000091000091000091BBBBE2FFFFFF000091000091000091000091
+      000091000091000091000091BBBBE2FFFFFF0000910000910000910000910000
+      910000910000910000910000910000910000910000914444AEFFFFFFDDDDF044
+      44AE0000910000910000910000912222A03333A7000091000091000091000091
+      000091000091000091000091000091000091BBBBE2FFFFFF0000910000910000
+      91000091000091000091000091000091000091000091000091DDDDF0DDDDF000
+      00910000910000912222A0000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000913333
+      A7FFFFFFFFFFFFFFFFFFCCCCE9BBBBE2FFFFFF4444AE00009100009100009100
+      0091000091000091000091FFFFFFFFFFFFFFFFFFDDDDF0BBBBE2EEEEF8FFFFFF
+      FFFFFFFFFFFFBBBBE20000910000910000910000910000910000910000910000
+      91000091FFFFFFFFFFFFFFFFFF7777C40000916666BDFFFFFFFFFFFFFFFFFF44
+      44AE000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100007800007800007800
+      0078000078000078000078000078FFFFFFDDDDED6666AE8888C0EEEEF6EEEEF6
+      333393000078000078000078000078000078000078000078000078BBBBDBFFFF
+      FF7777B77777B77777B77777B744449C00007800007800007800007800007800
+      007800007822228AFFFFFF5555A5000078000078000078000078000078000078
+      000078CCCCE4AAAAD20000780000780000780000780000780000780000780000
+      780000780000789999C9FFFFFFEEEEF69999C97777B79999C9EEEEF6FFFFFF99
+      99C9000078000078000078000078000078000078000078000078000078BBBBDB
+      FFFFFF6666AE7777B7EEEEF6FFFFFF3333930000780000780000780000780000
+      78000078000078000078BBBBDBFFFFFF00007800007800007800007800007800
+      0078000078000078BBBBDBFFFFFF7777B77777B77777B77777B744449C000078
+      0000780000780000780000780000780000780000785555A5EEEEF6FFFFFFCCCC
+      E49999C99999C9BBBBDBFFFFFF6666AE00007800007800007800007800007811
+      11817777B77777B77777B77777B7DDDDEDFFFFFF7777B77777B77777B77777B7
+      3333930000780000780000780000780000780000786666AEFFFFFFAAAAD26666
+      AE9999C99999C900007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078AAAAD2
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF44449C0000780000780000780000780000
+      78000078000078FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBB
+      BBDB111181000078000078000078000078000078000078000078000078000078
+      FFFFFFFFFFFFFFFFFF7777B7000078000078BBBBDBFFFFFFFFFFFFDDDDED1111
+      8100007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      0000780000780000780000780000780000780000780000780000780000780000
+      7800007800007800007800007800007800007800007800007800007800007800
+      0078000078000078000078000078000078000078000078000078000078000078
+      00007800007800007800007800007800007800007A00007A00007A00007A0000
+      7A00007A00007A00007AFFFFFFFFFFFFFFFFFFDDDDEDAAAAD322228C00007A00
+      007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFF7777B800007A00007A00007A00007A00007A00007A0000
+      7A00007ACCCCE400007A00007A00007A00007A00007A00007A00007A00007A44
+      449D8888C100007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A44449DAAAAD3EEEEF6FFFFFFEEEEF6AAAAD344449D00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007ABBBBDCFFFFFFFF
+      FFFFEEEEF6BBBBDC44449D00007A00007A00007A00007A00007A00007A00007A
+      00007A00007ABBBBDCFFFFFF00007A00007A00007A00007A00007A00007A0000
+      7A00007ABBBBDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777B800007A00007A00
+      007A00007A00007A00007A00007A00007A00007A1111838888C1CCCCE4FFFFFF
+      FFFFFFDDDDED9999CA33339500007A00007A00007A00007A00007A22228CFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555A600
+      007A00007A00007A00007A00007A00007A00007A6666AFDDDDEDFFFFFFBBBBDC
+      22228C00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A7777B8CC
+      CCE4FFFFFFFFFFFFFFFFFF44449D00007A00007A00007A00007A00007A00007A
+      00007AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAAAAD36666AF00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007AFFFFFFFF
+      FFFFFFFFFF7777B800007A00007A44449DFFFFFFFFFFFFFFFFFF9999CA00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A
+      00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A0000
+      7A00007A00007A00007A00007A00007A00007A00007A00007A00007A00007A00
+      007A00007A00007A00007A00007A000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600007600007600007600007600007600007600007600
+      0076000076000076000076000076000076000076000076000076000076000076
+      0000760000760000760000760000760000760000760000760000760000760000
+      7600007600007600007600008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A0000
+      8A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00
+      008A00008A00008A00008A00008A00008A00008A00008A00008A00008A00008A
+      00008A00008A00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      8100008100008100008100008100008100008100008100008100008100008100
+      0081000081000081000081000081000081000081000081000081000081000081
+      0000810000810000810000810000810000810000810000810000810000810000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+      00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+      7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+      007F00007F00007F00007F00007F00007F00007F00007F00007F000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100009100009100009100
+      0091000091000091000091000091000091000091000091000091000091000091
+      0000910000910000910000910000910000910000910000910000910000910000
+      9100009100009100009100009100009100009100009100008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F0000
+      8F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00
+      008F00008F00008F00008F00008F00008F00008F00008F00008F00008F00008F
+      00008F00008F00008F00008F00008F00008F00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C
+      00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C0000
+      9C00009C00009C00009C00009C00009C00009C00009C00009C00009C00009C00
+      009C00009C00009C00009C00009C000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      9700009700009700009700009700009700009700009700009700009700009700
+      0097000097000097000097000097000097000097000097000097000097000097
+      0000970000970000970000970000970000970000970000970000970000970000
+      970000970000970000970000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000
+      A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A600
+      00A60000A60000A60000A60000A60000A60000A60000A60000A60000A60000A6
+      0000A60000A600009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D
+      00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D0000
+      9D00009D00009D00009D00009D00009D00009D00009D00009D00009D00009D00
+      009D000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600008600008600008600
+      0086000086000086000086000086000086000086000086000086000086000086
+      0000860000860000860000860000860000860000860000860000860000860000
+      8600008600008600008600008600008600008600008600007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000096000096000096000096000096000096
+      0000960000960000960000960000960000960000960000960000960000960000
+      9600009600009600009600009600009600009600009600009600009600009600
+      0096000096000096000096000096000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009400009400009400009400009400009400009400
+      0094000094000094000094000094000094000094000094000094000094000094
+      0000940000940000940000940000940000940000940000940000940000940000
+      9400009400009400009400009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000900000900000900000900000900000900000900000900000
+      9000009000009000009000009000009000009000009000009000009000009000
+      0090000090000090000090000090000090000090000090000090000090000090
+      0000900000900000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      0079000079000079000079000079000079000079000079000079000079000079
+      0000790000790000790000790000790000790000790000790000790000790000
+      7900007900007900007900007900007900007900007900007900007900007900
+      007900006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      6A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00
+      006A00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A
+      00006A00006A00006A00006A00006A00006A00006A00006A00006A00006A0000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000070000070
+      0000700000700000700000700000700000700000700000700000700000700000
+      7000007000007000007000007000007000007000007000007000007000007000
+      0070000070000070000070000070000070000070000070000070000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      0000510000510000510000510000510000510000510000510000510000510000
+      5100005100005100005100005100005100005100005100005100005100005100
+      0051000051000051000051000051000051000051000051000051000051000051
+      00005100005100005100005100005100005100004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E
+      00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000
+      4E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00
+      004E00004E00004E00004E00004E000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400005400005400005400005400005400005400005400
+      0054000054000054000054000054000054000054000054000054000054000054
+      0000540000540000540000540000540000540000540000540000540000540000
+      5400005400005400005400004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000490000490000490000490000490000490000490000490000
+      4900004900004900004900004900004900004900004900004900004900004900
+      0049000049000049000049000049000049000049000049000049000049000049
+      0000490000490000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      005800005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      5A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00
+      005A00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A
+      00005A00005A00005A00005A00005A00005A00005A00005A00005A00005A0000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      0060000060000060000060000060000060000060000060000060000060000060
+      0000600000600000600000600000600000600000600000600000600000600000
+      6000006000006000006000006000006000006000006000006000006000006000
+      006000006000006000006000006000006000006000006000006000005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00
+      005F00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F
+      00005F00005F00005F00005F00005F00005F00005F00005F00005F00005F0000
+      5F00005F00005F00005F00005F00005F00005F00005F00005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      00005500005500005500005500005500005500005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000550000550000550000550000550000550000550000550000
+      5500005500005500005500005500005500005500005500005500005500005500
+      0055000055000055000055000055000055000055000055000055000055000055
+      0000550000550000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      0064000064000064000064000064000064000064000064000064000064000064
+      0000640000640000640000640000640000640000640000640000640000640000
+      6400006400006400006400006400006400006400006400006400006400006400
+      006400005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      5C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00
+      005C00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C
+      00005C00005C00005C00005C00005C00005C00005C00005C00005C00005C0000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000750000750000750000750000
+      7500007500007500007500007500007500007500007500007500007500007500
+      0075000075000075000075000075000075000075000075000075000075000075
+      0000750000750000750000750000750000750000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000063000063000063000063000063000063
+      0000630000630000630000630000630000630000630000630000630000630000
+      6300006300006300006300006300006300006300006300006300006300006300
+      0063000063000063000063000063000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005800005800005800005800005800005800005800
+      0058000058000058000058000058000058000058000058000058000058000058
+      0000580000580000580000580000580000580000580000580000580000580000
+      5800005800005800005800005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000520000520000520000520000520000520000520000520000
+      5200005200005200005200005200005200005200005200005200005200005200
+      0052000052000052000052000052000052000052000052000052000052000052
+      0000520000520000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069000069000069000069000069000069000069000069000069000069000069
+      0000690000690000690000690000690000690000690000690000690000690000
+      6900006900006900006900006900006900006900006900006900006900006900
+      0069
+    }
+  end
+  object Bevel2: TBevel
+    Left = 0
+    Height = 2
+    Top = 64
+    Width = 501
+    Align = alTop
+    Shape = bsTopLine
+  end
+  object Bevel3: TBevel
+    Left = 0
+    Height = 2
+    Top = 270
+    Width = 501
+    Align = alBottom
+    Shape = bsTopLine
+  end
+  object eSvcLibName: TEdit
+    Left = 119
+    Height = 21
+    Top = 125
+    Width = 373
+    Anchors = [akTop, akLeft, akRight]
+    TabOrder = 1
+  end
+  object eSvcName: TEdit
+    Left = 119
+    Height = 21
+    Top = 151
+    Width = 373
+    Anchors = [akTop, akLeft, akRight]
+    TabOrder = 2
+  end
+  object ePrjName: TEdit
+    Left = 119
+    Height = 21
+    Top = 99
+    Width = 373
+    Anchors = [akTop, akLeft, akRight]
+    TabOrder = 0
+  end
+  object ePrjDir: TEdit
+    Left = 119
+    Height = 21
+    Top = 241
+    Width = 292
+    Anchors = [akTop, akLeft, akRight]
+    TabOrder = 7
+  end
+  object eTemplateName: TEdit
+    Left = 119
+    Height = 21
+    Top = 73
+    Width = 373
+    Anchors = [akTop, akLeft, akRight]
+    Color = clBtnFace
+    ReadOnly = True
+    TabStop = False
+    TabOrder = 6
+  end
+  object BitBtn1: TBitBtn
+    Left = 417
+    Height = 25
+    Top = 239
+    Width = 75
+    Anchors = [akTop, akRight]
+    Caption = '&Browse'
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF1C99CE2BA5D51C9DD10A8AC6FF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFBFA5A34D5A72FF00FFFF00FF249CCFA6EEF7
+      6CEBF85DD9F04AC7E739B8E020A0D40F91CA0F91C9FF00FFFF00FFBFA5A35766
+      831276E23C91DCFF00FF0C8CC799DDEF8BFFFF80FCFF82FBFF7FFAFF79F3FF65
+      E1F74ECEED3CBAE07591A05B66811170D833A1FF2A9AFEFF00FF1296CC59BADE
+      9FFEFF75F7FF78F6FF77F2FC89D9E087D7DE7BE2EA91BCC05168891370D531A0
+      FF319EFBFF00FFFF00FF26A5D448C1E69FEFF879F6FB87D8DCBACABCDABCA5D0
+      B59EAF9A8C817A734179AF32A3FF3DACFE1B9CD4FF00FFFF00FF27AFDE8B97A1
+      88CFE28BD1D3CBB4ADF7F0DDFFFFD8FFFFD9FAF8C5CFB08CC4A9A34DC1FC55D0
+      FB41C1E3FF00FFFF00FF25AFE1AD706B5DBCDDB5A69EF7F4EEFFFFFFFFFFE3FF
+      FFD4FFF7C1FFE6A5D8A0826FD4EB59D7FB68E2F80E90C9FF00FF26AFE1B5776D
+      A4CFD9CEB69EFFFFEAFFFFF3FFFFEAFFFFD7F7DCA9F6C986E1B89191C0C753D3
+      FB7EF3FF28AAD8FF00FF28B0E0BC7F6EFFF4EBD5BCA1FFFFDDFFFFDDFFFFE0FF
+      FACAEFBD81F4BD77E7C49A93C0C44FD3FB7DF4FF56D5EFFF00FF28AFE1C58870
+      FFFCF8CAAA99FEFFCEFFFFC9F8E1ADF0C78CF3CA96FFEBB5D5AF959AC9D37AE0
+      FE9DFBFF96F8FF23A1D328B0E1CE9173FFFAF7D8C4BDDCC59EFCE5A7FAC782FB
+      D08BFFF7E0E7DCCE8CA5AA6BC9E65FBCE060BBDE6CC4E329A1D12DB2E2D59975
+      FFF8F3FCFBFAE5D1C9E9CAA6E7C599E1C298CCB59FB18B8875E7F86DEDFE179D
+      D1FF00FFFF00FFFF00FF1FA1D9DDA077FFFBF6FFFFFFFFFFFFFFFFFEFBF4EBB4
+      8379BF7849B16F5350C0E550C4E71C9DD0FF00FFFF00FFFF00FFFF00FFE2A678
+      FFFFFFFFFFFFFFFFFFFFFFFFF8FAFCB6877AE29955FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFE7AB79D1926DD1926DD1926DD1926DD1926DB4
+      7E6FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+    }
+    NumGlyphs = 0
+    OnClick = sbBrowseForDirClick
+    TabOrder = 5
+    TabStop = False
+  end
+  object cbMessageClass: TComboBox
+    Left = 119
+    Height = 21
+    Top = 209
+    Width = 373
+    Anchors = [akTop, akLeft, akRight]
+    AutoComplete = False
+    Ctl3D = False
+    ItemHeight = 13
+    ItemWidth = 0
+    Style = csDropDownList
+    TabOrder = 4
+  end
+  object cbServerClass: TComboBox
+    Left = 119
+    Height = 21
+    Top = 184
+    Width = 373
+    Anchors = [akTop, akLeft, akRight]
+    AutoComplete = False
+    Ctl3D = False
+    ItemHeight = 13
+    ItemWidth = 0
+    Style = csDropDownList
+    TabOrder = 3
+  end
+  object Panel1: TPanel
+    Left = 0
+    Height = 41
+    Top = 272
+    Width = 501
+    Align = alBottom
+    BevelOuter = bvNone
+    ClientHeight = 41
+    ClientWidth = 501
+    TabOrder = 8
+    object Image1: TImage
+      Left = 5
+      Height = 32
+      Top = 4
+      Width = 32
+      Anchors = [akLeft, akBottom]
+      Picture.Data = {
+        055449636F6ED65700000000010006003030000001000800A80E000066000000
+        2020000001000800A80800000E0F0000101000000100080068050000B6170000
+        3030000001002000A82500001E1D00002020000001002000A8100000C6420000
+        1010000001002000680400006E53000028000000300000006000000001000800
+        000000000009000000000000000000000001000000010000000000000D0D0D00
+        131313001C1C1C001C1C260013163F001F202000242424002827270023242F00
+        27282A002A2A2A00322E2E003B2E2E00282932002F313D003333330039353500
+        3C38370031333F003B3A3B0043393900503B3A000C0C4800171C48000A0A5600
+        0A0C5B000D115800151959001C214100262A49003A3C4700363C55000D0D6D00
+        0E14660012186D001F2B6D001A297B00323C610022337E00333F7000403F4200
+        384265003A467400434343004A43420041444D004C4C4C0057444300534B4A00
+        464A5900535353005854540053555E005B5A5A00694D4C0069594A0066595500
+        6D5E52006C5E5C006E63570073665B0041496700565B690045517B00535C7800
+        5E616A005B627A00636363006A64630062656D006969690071676300766B6000
+        7A6E6400726E6D007B6C6A007E716A00747474007A7472007B7874007C7C7C00
+        87693F00DA7F0E00816B4D008769670082726D00817D6E008275730089767300
+        847A74008B7A7600827C7C008D7B780090787600917E7900EB870C00FE8D0700
+        FE920B00E58C1500EB931B00FE9A1600EA9B2700E9A12D00FEA62700EBA63400
+        FEAD3300FFB33800A58C5A00B79A5B008C817A0091897A00A49A7900B7A56F00
+        AFA17600D79C4E00D0AF5F00EEB74E00FCB94400E9BA5400F0B85100C59F7300
+        C3A96700D7BF7600EFB56400FFC04C00FFC65800FFCD6400FFD26A00FFD87600
+        FFE17E000E1E8400080C930001039B000A189A00172886002C3F8800213B9E00
+        0004A300040CA4000007A9000009AC000813A100000CB2000111B9001734AB00
+        0928BB001333B900223EAB002E4189002D4395002E4AAF00354EA5003E56A800
+        2645B9003251BC004A578400535F84005D678300445CAA00405DBF004860AC00
+        566AA7004E68B900536DBA00021DC800001ED7000624C6000E33CB00173CC800
+        0021DD000735EA00103DE700002FF8000739FE00103FF3001740DB002446C500
+        254BD5003054D3001642E7001547FE001F50FF002E58E9002858FF003867FE00
+        4766C600446AE0004B72E600436FF5004371FD00828281008B8682008A8A8A00
+        94888600979087009A928C00949393009C9194009E9A97009B9A9A00A2959300
+        A5989600A39D9E00AA9D9B00AFA19F00A69EA500A2A2A200ADA5A400ADA7A900
+        ADABAA00B4A9A600B4AFAD00B8ABA900B5AEB200B9B5B700CAB49D00E0B78200
+        C9B6A600C2B7B500C4B8B700C4BCBB00CABFBC00FBCF8E00E3D08400FFDD8000
+        EECB9500EBDE9300FEE38800FEEB9700FFF49C00C9C0BF00DCCBB700F2D3A700
+        F8EEA300FEF3A600FFE3B500FFFAB100C2BDC500C9C5C500D5CECD00CECAD000
+        D0CED000D6D4D600DCD4D300DDDADB00E7DED300E3DCDB00FAE7CA00E6E0DE00
+        E4E3E300E9E5E300EAE9E900F9F7F70000000000000000000000000000000000
+        00000000000000000000004B2F0202010101012C440000000000000000000000
+        0000000000000000000000000000000000000000000000BF1103030202020201
+        020101010101020B2F4E514E4E5151C100000000000000000000000000000000
+        00000000004B0306030303030203020201010101020306080B0C1010100B1029
+        334BC800000000000000000000000000000000BF060606060603030303020202
+        02020202030B4BC4D0D3CCC45D4D3B31101033C1000000000000000000000000
+        0000290B0B0B060B06060306051B1B1B1919170444DDF7F5F4F0DED5C95F5B5B
+        56310B36000000000000000000000000000B0B0B0B0B0B0606060604228D8D8D
+        8A852133F7FBFBFCEF5C4B45454D5959595F2D29C50000000000000000000051
+        10100B0B0B0B080B06080606058F8D8A8A851B50FDFCFDEF33BF5CBFBF362C56
+        595D3B2900000000000000000000BF10101010100B0B0B0B080606061C8F8F8D
+        8B842129F5FDFDD144FBC9CDDBDB452D5F591144000000000000000000002910
+        1010100C0C0B0B0B0B0B060823908F8B84231E0929C8DDBF2CC255555EC2482D
+        4D11290000000000000000000029102910101010100C0B0B0B0B08061C90908E
+        1C0C2914101129100C0D0D15163730080806020000000000000000002F291111
+        2910101010100C0B0B0B0B0B061C90182CC4C0D7D7CBC25856565645312D0C03
+        0B0B060B00000000000000C129292911112911101010100C0B0B0B0B0B08080A
+        D1C839E2ECF8F6EFD7CEC6C9CACAC94B2C0B0B062F0000000000002C29141414
+        14141114101010100C0B0B0B08060A06DDCB3A60626268767FDFE9E8DCD7D6DC
+        DDC72F0B0B44000000004E2C2C2C292C1414141111111010100C0B0B0B0B080A
+        DDD13D6062626261616262656B7CD9D8D6EEF1C81110BF0000002F2D2C2C2C2C
+        142C141414101010100E0C0C0B0B0B08EFD64960626262656565656565626265
+        667379D8D6104B0000C82F2F2C2C2C2C2C142691A893271010100C0C0C0A0B08
+        F2D74A60656568686868686868686862626262535D292C0000442F2F2F2D2C2C
+        2C95AEAEAEAEAE911010100E0C0C0A0AF3EE4D6465686868686B6A6B68686868
+        686562604A290B00002F2F2F2F2F2F2C2EAFAEAEAEAEADAD271010100C0B1008
+        F5EF576468686A6B7676767676766B68686865604A1406000033332F2F2F2C2F
+        2BB5B5AEAEAEADAE9214111010100B08FAF25A676A6B767D7D7D7D7D7D767676
+        6A68686348290651C133332F2F2F2F2C2BB5AEB5AEAEAEAEA811101010101007
+        FCF36E676B7D7D7E7E7F7F7F7E7E7D76766A68643D110A334E333333332F2F2F
+        3EB5B5B5AEAEAEAE9114141410101007FCF56E6B767D7E7F80808080807F7F7D
+        7D6B6B663C14082936333333332F2F2F2FB2B5B5B5AEAEAF201414101010100A
+        FCF56F757D7E8080818181818180807F7D7D6B663C100802363633333333332F
+        2F32B2B5B5B5AF281414141414141007FCFAC3757E7F808181E4E4E4E1818080
+        7E7D766738100A02363636333333332F2F2F2F3E2B2B2929292C14141410140A
+        FCFAC3757E808182E4E5E5E5E4E481807F7E766938100A033636363633333333
+        332F2F2F2E2C2C2C2C2C142C1414140AFCFAC3777F8082E4E5E5EAEAE5E4E180
+        807E7D69381008033644363636333333332F2F2F2F2F2F2C2C2C2C141414140A
+        FCFCC575808082E4E6EBEDEBE5E5E180807E7D69381008034436363636363333
+        3333332F2F2C2F2C2C2C2C2C1414140AFCFAC76C6D6D747BE0E3EAEBE6E48281
+        807E7D6938100B0351444436363636333333332F2F2F2F2F2F2C2C2C2C2C140A
+        FCFCF2D7D4D2C8C150576F7072717A74777576673A100B2CC544364436363636
+        33333333332F2F2F2C2F2C2C2C142C0AEFFDFCFDFDFDFCF5F0E7D4CBC7C1C158
+        453C54523D100B33004444443644363636333333332F2F2F2F2C2F2A2E2C140B
+        0E1E2E354EBFC5C7D2D7E7E7EEDEDBD5CCC7C05C560C08C10044444444363636
+        363633333333332F2F3EB1B5B5962C2AACABAB931E0B0B080B080E112E34454B
+        4F58C04D11080300005144444444364436419F9C3533332F2F98B6B5B5B5B4AF
+        AEAE891F10141410101024A5928683231D0608060606140000D1474444444436
+        41BDB9B9A0333333339BB6B6B5B5B5AEB5A92C1414141014101010A7AAAAAAA5
+        0E0608060606BF000000474744444442BDB9B9B9B93F333333B3B6B6B6B5B5B5
+        AEAE2C14141414141014100F2587250E0B0B0806080600000000C14B444444A2
+        BEBEBEB9B9A035359CB7B8B6B6B6B5B5B6B5B0948920141410141010110C0C0B
+        0B0B0808064700000000004747474442BCBEBEB9B9B9B9B8B8B8B8B8B8B6B6B5
+        B5B5AEB5AEA91414141410111010100C0B0B0B0808000000000000CF47474744
+        9EBDBEBEBEB9B9B9B9B8B8B8B8B6B6B6B5B5B5AEB5B41414141410141010100E
+        0C0C0B0B51000000000000004E474747449EBEBEBEBEB9B9B9B9B9B8B8B8B6B6
+        B6B5B5B5AE952C2C14141410141010100C0C0C140000000000000000004B4747
+        44479EBEBEBEBEB9B9B9B8B9B8B8B8B6B6B6B6B5B52C2C2C2E20141410141010
+        100E0B0000000000000000000000474B47444B9EBCBEBEBEB9B9B9B8B9B8B8B8
+        B6B6B6B5B59A2E95ACAE8914141014101010000000000000000000000000CF47
+        4B47444447A4BEBEBEB9B9B9B8B9B8B8B8B8B6B6B6B5B5AEB5AE891414141014
+        10BF00000000000000000000000000CF4747474747449EBABEBEB9B9B9B9B8B9
+        B8B8B6B6B6B5B5B5B12A2C142C141410BF000000000000000000000000000000
+        004B47474444444443A3BBBEB9B9B8B9B8B8B8B6B6B2973E2C2C2C2C14141400
+        0000000000000000000000000000000000004E47474744444444363F9DA1A19F
+        99999940322F2F2C2F2C2C2C2C2F000000000000000000000000000000000000
+        000000CF474747444444444436363635333333332F2F2F2F2C2F2C2CC1000000
+        000000000000000000000000000000000000000000C544474444443644363636
+        3633333333332F2F2F2C51000000000000000000000000000000000000000000
+        00000000000000D14E444444443636363636333333332F46C800000000000000
+        000000000000000000000000000000000000000000000000000000C551443636
+        36363651BF00000000000000000000000000000000000000FFFFE007FFFF0000
+        FFFE000000FF0000FFF80000001F0000FFE00000000F0000FFC00000000F0000
+        FF80000000070000FE000000000F0000FC000000000F0000FC000000001F0000
+        F8000000001F0000F0000000000F0000E000000000070000E000000000030000
+        C000000000010000C00000000001000080000000000100008000000000010000
+        8000000000010000800000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        8000000000000000800000000001000080000000000100008000000000010000
+        C000000000030000C000000000030000E000000000070000E000000000070000
+        F0000000000F0000F8000000001F0000FC000000003F0000FC000000003F0000
+        FE000000007F0000FF80000001FF0000FFC0000003FF0000FFE0000007FF0000
+        FFF800001FFF0000FFFE00007FFF0000FFFFE007FFFF00002800000020000000
+        4000000001000800000000000004000000000000000000000001000000010000
+        000000000C0C0C0012131300171818001C1C1C0017182200242424002B2B2B00
+        312E2E0031302F002D2E300033323200383635003B3B3B0045363600453C3B00
+        171B450014174D000B0C5B001319520010155D00151B5C001D214100232B4A00
+        3D3C41003A3D49002B3359003339520009117A00192D760029356800333C6200
+        3C4257003E445B003A4675003D497700434243004C45440045444B0049474800
+        4B4B4B00524B4A005A4F4E005B524F0042455100494B55004E50590053535300
+        5953530052555F005A5A5A00684F4D00685755006A5E5D007A6A5A00434C6D00
+        5C5E650063636300696666006A6A6A007E6462007D6E6700756C6B007D6D6A00
+        7E726B0061677800737372007B7677007B7877007D7B7B00A77F4200816F6000
+        85756F008A7774008B7C7600817F7E00897B7A00907D7800BA823500B5833C00
+        DC800F00DC811100DC881800FE8F0900FF950500FE930B00F7921300FE9A1300
+        FE9E1B00FEA11C00DC902300DD972D00DE9E3700E7932A00FEA32200FFAB2B00
+        F8A53300FFAD3200FFAF3800FFB33300FEB43A00FFBC3A00AC824200B1834100
+        A1885500B89A57008B807E0091837C0096907F009D957B00AF9D6D00B89F6200
+        A4997600DEA44100DEAB4C00C9A45800DEB25000E1AF4F00FFB74100FFBA4300
+        FEB64F00FFBF4C00E7A95100C9AC6400C4A37A00D3AA7600F4BB6800FFC24200
+        FFC04E00FFC45300FFC65800FFCA5C00DEC67800FFCD6400FFD06200FFD86600
+        FFD26A00FFD57300FFD97600FFD97800FFE17A0004088C00183089000005A500
+        0009AB00000CB100000FB8001B39AA001131BB00374A8D002C429500344A9900
+        2D46A3003851A7003C54A8002F4DBC00485A950055669C0060688200566AA700
+        1538C200183BC300153ACA00062FDE00123EE7000332F0000D3CF2000134FD00
+        073AFF000C3EFF00224ADD00385FDF003C62DF001442F3001847F3001244FF00
+        1C4DFF00204AE8002853E9002758FF003C65EA003C68F4003363FF003C6BFF00
+        4A67C200496EE1004C72E1004572FA00837E8100818080008C8685008C8B8B00
+        928A8400968D8D009B8C8B009C938B00919092009B9293009F959A009E989A00
+        A0969500A0989200A49C9A00AC9C9800A9A29E00A7A7A700ABA6A300AFABA400
+        ADA6AA00B3A6A600B1AFAB00BBAFAC00B1B0AF00BAB6BB00BCBCBC00E2BB8800
+        C9B4A400CEBAA500C2B7B400C4BCBC00CABDBA00DAC09A00EDDA8C00FFDE8100
+        FFE18500FEE48A00FFEB8B00FEE69100F0E59D00FEEC9900FFF09900F8EEA300
+        FFF6AA00C0BAC000C5C4C500CAC4C400CEC9C700C4C5C900D5C9C600D5D0CF00
+        DED3C900CFCFD000D5CFD000D1D0D000DCD7D700DCDBDB00E0DDDD00F6E2C900
+        E2DEE000E3E3E600EBE6E500EEECEC00F4F3F500FCF7F600FEFEFE0000000000
+        0000000000000000000000002F060201010106090D282F292524284500000000
+        00000000000000000032040404020202020209BFDBEBDCD1C2493F2B0C000000
+        000000000000003B06060604040404020218EEFBFAEFCAC04C494A4D3F0D0000
+        0000000000000D0A0A0606060414908F124BFDFCF6424345422B35496B250000
+        000000000009090A0A060606061091908D24F6FEEA45EECBD3CC29483F080000
+        000000000D0909090A0A07060615921C1105244B3B2434333C49292908000000
+        000000270D0D0909090A0707061613243EBC43352B2A29250F0E060102000000
+        0000430D0D0D0D0C09090A07070624D240DDF7F0DCD1C6C6C5BE3E1803240000
+        00002418180D0D0C0C09090A0A062FEA3F51575E62787ED7D9DADBD5C62F2400
+        0043242724180D0D0C0C09090A072FF1485053535353535758607A7DD8EBC40D
+        0028272724241FA1A5941A09090A2FF64A515757585E5E5858585357565D7C38
+        00282827272CA6A8A8A7A30C090932F96B52585E5F5F6161615F5E5957544E31
+        452F28282722AFA9A8A7A71E0C0932FBC05A5F61647677777664645F5E574F2E
+        392F2F282823AFA9A9A8A71B0C0C38FCC35B617780818282818077645F594F2D
+        2F322F2F2828AAB0A9A9A1180D0C32FEC95C7F818385858885838177645F6727
+        32322F2F2F282E9798962418180D32FECA71818388898A898988858177636726
+        3232322F322F282828272718181832FECC72838889DFE0E1DF8A888381656618
+        393232322F2F2F2828272724240D32FECE728689DFE1E5E5E3E08986817F4618
+        3B393232322F2F2F28282824242432FED174878AE1E5E8E8E5E18B88827F6618
+        BF3939323232322F2F2828282C2132FED268697B84DEE4E7E6E28C88837F6618
+        00393939323232322F2F2837B2AF39FEF6EDD5CDC9C06C6D706E6F7375766624
+        003B39393938B5B69C2F2F99B0B020CDD6F3F6F6F6F4F3DBD0C7C16B40364728
+        00BF3A3939B9B7B7B432289AB3B0938E1D170A0D272B3B45BEC1C8CAC8C23E09
+        00003B3A39BABBB7B7ABABB6B3B3B0B0AFAFA9A20D09090A06060A0609092F00
+        0000C43A3A41BBBBB7B7B7B6B3B3B3B0B0AFAFA418180D090D090A080A320000
+        000000433A3A9EBBBBB7B7B6B6B3B3B0B0B0AF962419190D0C0C09090D000000
+        000000003A3B3A41BABBB7B7B6B6B3B6B3B0B0AE96ADA61F0D0C0C0900000000
+        00000000003B3B3A3B9FBBB7B7B6B6B3B3B3B0B0AFAD960D0D0D0C0000000000
+        000000000000423A3A39399DB8B4B7B6B3B3B29B952724241827000000000000
+        00000000000000C43B3A3939393232322F2F2F28282827243B00000000000000
+        000000000000000000C43B393939323232322F2F282842000000000000000000
+        000000000000000000000000BF3A3932323232BD000000000000000000000000
+        FFF0000FFF800007FE000003FC000003F8000003F0000007E0000007C0000003
+        C000000180000000800000008000000000000000000000000000000000000000
+        00000000000000000000000000000000800000008000000080000000C0000001
+        C0000003E0000007F000000FF800001FFC00003FFE00007FFF8001FFFFF00FFF
+        2800000010000000200000000100080000000000000100000000000000000000
+        0001000000010000000000000D0D0D0012121200191A2A001D1F340021212100
+        2626260024252B002A2A2A002A2A2C002C2C2C0030303000353535003A373700
+        3939390039393C003D3D3D000A0B50000A0E5D00282E4A003E3E400031364A00
+        232C5A0028325F00363D5A003A3D5C00121A6E00434343004343440042434800
+        484848004D4D4D0045485600525252005757570050535F005C5C5C006A5D5B00
+        6B5E5D00474E66005C5D60005F636E0062626200656565006762680066676A00
+        6A6868006D6D6D007163610071666600706F6F0071717100747474007C7C7C00
+        987C58008374710080787200857B7900857C7B00F98F0C00F99B1B00FE9E1C00
+        CA852D00C78C3500C6913D00FE9D2000FEAA2C00FEAE3300F9B13A00FFB63E00
+        AA947200C5944200F8AB4400E1B95E00E2A96200FAC25500FFC45500FFC75A00
+        FFCA5E00FFCF6500FFD87600FED978000C0F81002B3C8200273C900020319A00
+        000BAF001935A5003E4F8B002E48A9003E56A9003D57B200495D9F0051619500
+        57689C00455DAB00536BB400183BC1001339D2000732E1000739FE001E42C900
+        1B42D5001A42D9001742E5001B4AF7001041FF00194AFF002253FF002B5BFF00
+        3564FF003F6CF9003E6DFF004260C1004E6FD000858484008D8D8D009B8D8B00
+        91919100959595009F9895009A989A009F9E9E00A2958800A1989600AEA79F00
+        B0A49200A6A7AB00AEAAA900B2ACAA00B3B1B300CCA98400C2BDBB00C5BFBE00
+        F1D78200FEE18600FEE68C00FBF0A300CAC7C400CDCCCA000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000002F0C02010A2B35350000000000003406060312
+        112F847C372532000000220C0A06045652797A753930730000350E0C0A0A071A
+        2C7B3930260C2400001B0E0E0C0A0A06783B41484A833874731E1B6163170C0A
+        803C4243423C3E2B2B1E206A64570C0A84444C4E4D443F0E24221E5965180E0C
+        8A4C5087514E40062422221E1E1B0E0C8B498689884E470A342422221E1E1D0E
+        7F82807D7E46360E762B245C2327696562150C1655190E34002B5E70715B6C69
+        68540E0C130A060000762F72706E6D6C6967140E0C0B34000000352C60706E6D
+        6C6967530E220000000000762E295D5F5A58201B350000000000000000743424
+        222B730000000000F8070000E0010000C0010000800100008000000000000000
+        00000000000000000000000000000000000000008001000080010000C0030000
+        E0070000F81F0000280000003000000060000000010020000000000080250000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000000000000000000000000001919192F1717176F1616169F
+        141414BF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808BF
+        080808A1090909751414144134343425343434333434343C3434344134343444
+        34343444343434423434343D3434343534343427343434183434340C34343405
+        3434340200000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000002020201F1E1E1E8F1C1C1CDF1A1A1AFF191919FF171717FF
+        151515FF141414FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0B0B0BFF
+        0C0C0CFF0E0E0EFF131313FF1B1B1BED242424CD303030A9343434A7343434AC
+        343434AD343434A8343434A03434349134343477343434513434342F34343418
+        3434340934343403000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        2424242F232323AF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF
+        171717FF151515FF141414FF121212FF101010FF0F0F0FFF0E0E0EFF0F0F0FFF
+        131313FF1A1A1AFF222222FF272726FF2A2A2AFF2F2E2EFF343434FE343332FD
+        2F2E2EFC2C2B2BFA2B2B2BF62B2C2CEA303030D1343434B43434348234343441
+        3434341D34343409343434020000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000002A2A2A0F2828288F
+        262626FF242424FF232323FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF
+        191919FF171717FF151515FF141414FF121212FF101010FF111111FF131313FF
+        1F1F1FFF2D2D2DFF6B6767FF979190FFADA5A4FFB2A9A6FFAB9F9DFF9E908EFF
+        8B7B79FF7D6C6AFF6C5E5CFF524948FF2D2A2AF42A2B2BF5303030D034343492
+        3434343F34343416343434040000000000000000000000000000000000000000
+        00000000000000000000000000000000000000002D2D2D3F2B2B2BEF292929FF
+        282828FF262626FF242424FF232323FF212121FF1F1F1FFF1E1E1EFF1A1B25FF
+        13163FFF0D1158FF0B0E5EFF0A0C5BFF090A58FF0A0A56FF0C0C48FF1E1E27FF
+        5F5D5CFFC2BDBCFFE6E0DEFFE1DAD9FFDCD4D3FFD7CECBFFCABFBCFFB8ABA9FF
+        A49591FF917F7BFF8C7875FF8F7A77FF84736FFF544B49FF2A2A2AFA303030C9
+        3434347434343424343434050000000000000000000000000000000000000000
+        000000000000000000000000000000003030306F2E2E2EFF2D2D2DFF2B2B2BFF
+        292929FF282828FF262626FF242424FF232323FF212121FF1F1F1FFF1C1D27FF
+        0E1466FF0009ADFF0007A9FF0005A5FF0003A1FF01029BFF0D0D6DFF525150FF
+        E5DEDDFFEAE6E3FFE9E5E3FFEDE9E9FFC9C5C4FF807D7BFF6F6C6BFF6A6665FF
+        6B6362FF796C69FF8A7773FF897674FF897774FF917D79FF4B4442FF2A2A2AE9
+        343434853434342A343434050000000000000000000000000000000000000000
+        0000000000000000000000003333339F323232FF303030FF2E2E2EFF2D2D2DFF
+        2B2B2BFF292929FF282828FF262626FF242424FF232323FF212121FF1F1F1FFF
+        161A43FF000BB1FF0009ADFF0007A9FF0106A3FF02059CFF10105EFF7A7877FF
+        F7F2F0FFEEEBEBFFFCFBFBFFC4C2C2FF555454FF878484FF827D7DFF878483FF
+        838180FF5D5B5BFF464140FF81706DFF887673FF8F7B78FF665957FF282828E8
+        3434346734343420343434050000000000000000000000000000000000000000
+        00000000000000003737379F353535FF333333FF323232FF303030FF2E2E2EFF
+        2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF232323FF212121FF
+        141959FF000DB5FF000BB1FF010AAAFF040AA1FF080C93FF11136BFF3D3D43FF
+        DEDADAFFFFFFFFFFFFFFFFFFA5A5A5FF636262FFE7E1E0FFA69793FFAFA19FFF
+        BDB2B0FFC4B8B7FF6C6868FF4C4543FF917E79FF8A7875FF3C3736FF282828B6
+        3434343334343412343434030000000000000000000000000000000000000000
+        000000003A3A3A6F383838FF373737FF353535FF333333FF323232FF303030FF
+        2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF232323FF
+        10196FFF0010B9FF010EB2FF040EA7FF0A1196FF14186FFF20224FFF23242FFF
+        393A3AFF969696FFBBBBBBFF808181FF484241FF9D8887FF836462FF8B6E6CFF
+        907876FF998682FF726765FF4B4443FF796A68FF393535FF222222DC2B2B2B3D
+        3434341A34343408343434010000000000000000000000000000000000000000
+        3D3D3D3F3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF
+        303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF
+        181E54FF0012BEFF0211B5FF0813A1FF191C57FF2D2D31FF403F42FF3D393DFF
+        3A3535FF3A3635FF3C3837FF383434FF322E2DFF342E2EFF3B2E2EFF433333FF
+        503B3AFF694D4CFF574443FF282727FF2A2A2AFF1F2020FF111111FF1B1B1B68
+        343434183434340934343403000000000000000000000000000000004141410F
+        3F3F3FEF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF
+        323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF
+        242424FF161D5EFF0213B8FF191E4DFF434343FF908988FF918683FFBCB8BFFF
+        B8B1B6FFA69C9EFF968888FF877675FF7F6D6BFF81726EFF807472FF6A6462FF
+        544F4EFF443F3FFF2D2A2AFF1C1D1DFF2B2B2BFF282828FF212121FF181818ED
+        2C2C2C48343434203434340E343434050000000000000000000000004242429F
+        404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF
+        333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF
+        262626FF242424FF242424FF252525FFAFAFADFFA09796FF675953FFEECB95FF
+        FFE3B5FFFAE7CAFFE7DED3FFCFC7C6FFBAB5BBFFA69EA5FF9D9195FFA09292FF
+        A69896FFA99C99FFA49997FF746F6EFF434141FF2A2A2AFF292929FF252525FF
+        262626D2343434573434342A3434341100000000000000004545452F444444FF
+        424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF
+        353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF
+        282828FF262626FF252525FF262626FFB7B7B6FFA59F9FFF6E5E53FFEF880BFF
+        FF930CFFFF9611FFFF9F1FFFFFB543FFFFC66CFFFBCF8EFFF2D3A7FFDCCBB7FF
+        C2BAB8FFB7B1BAFFB5ADB4FFBFB6B7FFC4BABAFF9E9897FF4D4B4BFF29292AFF
+        292929FF313131BB34343462343434240000000000000000474747BF454545FF
+        444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF
+        373737FF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF
+        292929FF282828FF272727FF262626FFBFBFBFFFADA7A9FF736459FFEE890DFF
+        FF910AFFFE900AFFFE8F09FFFE8E07FFFE8C05FFFF910AFFFF9610FFFF9C19FF
+        FCAB3BFFEFB564FFE0B782FFCAB49DFFBDB2B0FFC2BDC5FFCECAD0FF9D9A9DFF
+        363535FF2A2A2AF73434349E34343437000000004A4A4A1F494949FF474747FF
+        454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF
+        383838FF373737FF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF
+        2B2B2BFF292929FF292929FF272727FFC7C7C6FFB6B1B2FF77685DFFEE8A0DFF
+        FF920CFFFE920EFFFE9611FFFE9915FFFE9A18FFFE9C18FFFE9C18FFFE9C17FF
+        FF9811FFFF960DFFFF9610FFFC9613FFEF9A29FFD79C4EFFC59F73FFC9B6A6FF
+        B4AFADFF323232FF313131B634343444000000004C4C4C8F4A4A4AFF494949FF
+        474747FF454545FF444444FF424242FF404040FF3F3F3FFF323C61FF1737B5FF
+        0E33CBFF1132BCFF22337EFF353535FF333333FF323232FF303030FF2E2E2EFF
+        2D2D2DFF2B2B2BFF2A2A2AFF272727FFCFCFCFFFBDB8BBFF7A6D62FFEE8B0FFF
+        FF9811FFFE9A18FFFE9F1DFFFEA321FFFEA424FFFEA526FFFEA627FFFEA627FF
+        FEA424FFFEA322FFFE9F1DFFFF9C17FFFF970FFFFF9109FFFF910AFFDA7F0EFF
+        887F77FF3D3D3EFF2A2A2ADB34343446000000004E4E4EDF4C4C4CFF4A4A4AFF
+        494949FF474747FF454545FF444444FF424242FF2C3F88FF0739FFFF0436FFFF
+        0134FEFF0031FCFF002FF8FF1431ADFF353535FF333333FF323232FF303030FF
+        2E2E2EFF2D2D2DFF2C2C2CFF272727FFD5D5D5FFC5C0C2FF7F7267FFEE9116FF
+        FF9F1BFFFEA322FFFEA628FFFFAA2DFFFFAD30FFFFAF33FFFFB034FFFFAF34FF
+        FFAD31FFFFAB2EFFFFA72AFFFEA424FFFE9F1EFFFE9A17FFFF970FFFE68107FF
+        7E7369FF3C3B3CFF262626F5343434465151512F4F4F4FFF4E4E4EFF4C4C4CFF
+        4A4A4AFF494949FF474747FF454545FF40444FFF103FF3FF0A3CFFFF0739FFFF
+        0436FFFF0134FEFF0031FCFF002FF8FF22337EFF353535FF333333FF323232FF
+        303030FF2E2E2EFF2D2D2DFF272727FFDCDCDCFFCBC6C9FF82766CFFEE981FFF
+        FFA724FFFFAB2DFFFFB034FFFFB43AFFFFB63EFFFFB741FFFFB841FFFFB741FF
+        FFB63FFFFFB43BFFFFB035FFFFAC2EFFFFA728FFFEA120FFFF9E18FFE5860DFF
+        7A6F66FF3B3A3BFF252525FF242424685252526F515151FF4F4F4FFF4E4E4EFF
+        4C4C4CFF4A4A4AFF494949FF474747FF394574FF1042FFFF0D3FFFFF0A3CFFFF
+        0739FFFF0436FFFF0134FEFF0031FCFF1132BCFF373737FF353535FF333333FF
+        323232FF303030FF2E2E2EFF272727FFE2E2E2FFD0CED0FF867B72FFEF9F28FF
+        FFAF2FFFFFB239FFFFB841FFFFBC48FFFFC04DFFFFC150FFFFC251FFFFC151FF
+        FFC04EFFFFBD4AFFFFBA43FFFFB43BFFFFB034FFFFA92AFFFFA520FFE58C15FF
+        766B60FF3A393AFF252525FF1B1B1B97545454AF535353FF515151FF4F4F4FFF
+        4E4E4EFF4C4C4CFF4A4A4AFF494949FF3B4775FF1345FFFF1042FFFF0D3FFFFF
+        0A3CFFFF0739FFFF0436FFFF0134FEFF0E33CBFF383838FF373737FF353535FF
+        333333FF323232FF303030FF272727FFE6E6E6FFD7D4D7FF8A8076FFEFA531FF
+        FFB63BFFFFBB45FFFFC14FFFFFC557FFFFC95BFFFFCA5EFFFFCB5FFFFFCA5FFF
+        FFC95CFFFFC658FFFFC251FFFFBC48FFFFB63EFFFFB034FFFFAC29FFE6921CFF
+        73675DFF393838FF262626FF181818B9565656CF545454FF535353FF515151FF
+        4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF40496BFF1647FFFF1345FFFF1042FFFF
+        0D3FFFFF0A3CFFFF0739FFFF0436FFFF1A37A9FF3A3A3AFF383838FF373737FF
+        353535FF333333FF323232FF272727FFEAEAEAFFDCD9DAFF8E847AFFEFAB39FF
+        FFBD45FFFFC250FFFFC95BFFFFCC63FFFFD068FFFFD16BFFFFD36CFFFFD36CFF
+        FFD069FFFFCE64FFFFCA5DFFFFC454FFFFBD49FFFFB73FFFFFB132FFE69723FF
+        6D6359FF373637FF272727FF171717D1585858FF565656FF545454FF535353FF
+        515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF254AD1FF1647FFFF1345FFFF
+        1042FFFF0D3FFFFF0A3CFFFF0A39F3FF363C55FF3B3B3BFF3A3A3AFF383838FF
+        373737FF353535FF333333FF272727FFEAEAEAFFDEDDDEFF91887FFFF0B041FF
+        FFC44FFFFFC95BFFFFCE65FFFFD36DFFFFD774FFFFD978FFFFDA79FFFFD979FF
+        FFD875FFFFD46FFFFFCF67FFFFCA5EFFFFC454FFFFBC47FFFFB63AFFE79C28FF
+        6C5E51FF363536FF272727FF161616FF595959FF585858FF565656FF545454FF
+        535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF474A56FF254AD1FF1647FFFF
+        1345FFFF1042FFFF103FF3FF333F70FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF
+        383838FF373737FF353535FF282828FFE9EAEAFFE1E0E1FF958C83FFF0B449FF
+        FFC958FFFFCE64FFFFD36DFFFFD977FFFFDD7FFFFFE184FFFFE288FFFFE187FF
+        FFDE81FFFFDA7AFFFFD56FFFFFCE65FFFFC95BFFFFC14FFFFFBB41FFEAA02DFF
+        6B5B4CFF353435FF282828FF161616FF5B5B5BFF595959FF585858FF565656FF
+        545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF40496BFF
+        3B4775FF394574FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF
+        3A3A3AFF383838FF373737FF282828FFE9E9E9FFE3E1E3FF979087FFF0B74EFF
+        FFCB5DFFFFD069FFFFD875FFFFDE80FFFFE38AFFFEE992FFFEEA96FFFEE993FF
+        FEE58CFFFFE083FFFFD978FFFFD16CFFFFCC62FFFFC555FFFFBD46FFEAA432FF
+        675748FF343434FF282828FF181818FF5D5D5DFF5B5B5BFF595959FF585858FF
+        565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF
+        494949FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF
+        3B3B3BFF3A3A3AFF383838FF282828FFE9E9E9FFE5E5E6FF99938BFFF0B851FF
+        FFCE60FFFFD36DFFFFDA7AFFFFE187FFFEE792FFFEEE9DFFFEF0A3FFFEEF9FFF
+        FEEA95FFFFE38AFFFFDC7DFFFFD470FFFFCE65FFFFC658FFFFC049FFEBA535FF
+        665546FF343234FF292929FF191919FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF
+        585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF
+        4A4A4AFF494949FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF
+        3D3D3DFF3B3B3BFF3A3A3AFF27282BFFE9E9E9FFE6E6E7FF99938BFFEFBF50FF
+        FFD462FFFFD970FFFFE17EFFFFE98BFFFFEE98FFFFF4A6FFFFFAB1FFFFF4AAFF
+        FEED9AFFFEE58EFFFFDD80FFFFD572FFFFCF66FFFFC759FFFFC04BFFEAA635FF
+        685849FF343334FF292929FF1A1A1AFF606060FF5E5E5EFF5D5D5DFF5B5B5BFF
+        595959FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF
+        4C4C4CFF4A4A4AFF494949FF474747FF454545FF444444FF424242FF404040FF
+        3F3F3FFF3D3D3DFF3B3B3BFF27282AFFE9E9E9FFE6E5E6FF9F9C97FFA58C5AFF
+        B4975AFFBA9E5DFFC6AB67FFD7BF76FFE3D084FFEBDE93FFF8EEA3FFFFF7A6FF
+        FFF49CFFFFED8FFFFFE381FFFFDA73FFFFD166FFFFC959FFFFC14AFFEAA535FF
+        6B5B4CFF353434FF2A2A2AFF1B1B1BFF626262CF606060FF5E5E5EFF5D5D5DFF
+        5B5B5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF
+        4E4E4EFF4C4C4CFF4A4A4AFF494949FF474747FF454545FF444444FF424242FF
+        404040FF3F3F3FFF3D3D3DFF282828FFE9E9E9FFEFEEEDFFCCCACAFFB8B8BFFF
+        B0B0B4FFAFABABFF9E9A98FF898681FF7D7872FF817D6EFF928B75FFA49A79FF
+        AFA176FFB7A56FFFC0A767FFD0AF5FFFE3B659FFEEB74EFFFAB641FFE9A32EFF
+        6D5E4FFF363436FF2A2A2AFF1F1F1FD0636363AF626262FF606060FF5E5E5EFF
+        5D5D5DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF515151FF
+        4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF474747FF454545FF444444FF
+        424242FF404040FF3F3F3FFF262626FFC9C9C9FFF2F2F2FFF3F2F2FFFAF8F7FF
+        FCFAFAFFF6F3F2FFE9E5E5FFDED9D9FFD4CFCFFFC6C0C1FFB5AFB0FFA39D9FFF
+        989195FF938C8EFF8E8684FF807773FF706762FF6F6355FF816B4DFF87693FFF
+        70655BFF363535FF292929FF1F1F1FC26565656F636363FF626262FF606060FF
+        5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF
+        515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF474747FF3C4568FF
+        41444FFF424242FF404040FF2B2B2BFF272930FF292F46FF3B3D48FF57575CFF
+        706F6FFF828282FF929191FFA19F9EFFAFABAAFFBBB6B5FFC6BFBDFFC9C1C0FF
+        C9C0BFFFC7BFBCFFC2B7B5FFB6AAA7FFAA9E9DFF9F9392FF908487FF867A7EFF
+        7F706EFF333232FF252525FF202020866666662F656565FF636363FF626262FF
+        606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF545454FF
+        535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF454B61FF284AC6FF1647FFFF
+        1645F3FF2D4395FF424242FF364063FF0B38EBFF0735EFFF0532E4FF0B2FBFFF
+        292F46FF2C2C2CFF292929FF282828FF282828FF282828FF272935FF31333FFF
+        44444AFF585454FF686463FF736C6BFF7A7472FF837977FF8C807EFF7A6F6DFF
+        373535FF242424FF1F1F1FFF2222224000000000676767DF656565FF636363FF
+        626262FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF535C78FF465EABFF4D5980FF
+        52555FFF535353FF515151FF4F4F4FFF4E4E4EFF354EA5FF1C4DFFFF194AFFFF
+        1647FFFF1345FFFF1642E7FF103FF3FF0A3CFFFF0739FFFF203A9EFF383B48FF
+        3A3A3AFF383838FF373737FF353535FF333333FF323232FF1F2B6DFF0422CBFF
+        0721B7FF0B1F9EFF0E1E84FF131E6CFF1C2141FF232323FF252525FF222222FF
+        212222FF212121FF1E1E1EE134343406000000006868688F676767FF656565FF
+        636363FF626262FF606060FF5E5E5EFF57607BFF3D69F4FF3867FFFF3564FFFF
+        405DBFFF545454FF535353FF515151FF4F4F4FFF3251BCFF1F50FFFF1C4DFFFF
+        194AFFFF1647FFFF1345FFFF1042FFFF0D3FFFFF173DCFFF3F3F3FFF3D3D3DFF
+        3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF0926C1FF
+        0022DFFF0020DBFF001ED7FF021DC8FF252732FF262626FF242424FF232323FF
+        212121FF1F1F1FFF1E1E1E8F00000000000000006969691F686868FF676767FF
+        656565FF636363FF626262FF5E616AFF436FF5FF3E6DFFFF3B6AFFFF3867FFFF
+        3564FFFF52586BFF545454FF535353FF515151FF3054D3FF2253FFFF1F50FFFF
+        1C4DFFFF194AFFFF1647FFFF1345FFFF1042FFFF0D3FFFFF404040FF3F3F3FFF
+        3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF2F313DFF
+        1B2B7EFF172886FF192779FF282A36FF292929FF282828FF262626FF242424FF
+        232323FF212121FF2020201F0000000000000000000000006A6A6ABF686868FF
+        676767FF656565FF636363FF566AA7FF4473FFFF4170FFFF3E6DFFFF3B6AFFFF
+        3867FFFF4260C0FF565656FF52555FFF475688FF2E58E9FF2556FFFF2253FFFF
+        1F50FFFF1C4DFFFF194AFFFF1647FFFF1345FFFF1042FFFF1740DBFF223EABFF
+        233C9EFF363C55FF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF
+        323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF
+        242424FF232323AF000000000000000000000000000000006B6B6B3F6A6A6AFF
+        686868FF676767FF656565FF62656DFF4C72E1FF4473FFFF4170FFFF3E6DFFFF
+        3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF
+        2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1345FFFF1042FFFF0D3FFFFF
+        0A3CFFFF183BC2FF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF
+        333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF
+        262626FF2424242F00000000000000000000000000000000000000006B6B6B9F
+        6A6A6AFF686868FF676767FF656565FF5E6781FF4974F5FF4473FFFF4170FFFF
+        3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF
+        2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1345FFFF1042FFFF
+        0D3FFFFF103DE7FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF
+        353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF
+        2828289F0000000000000000000000000000000000000000000000006B6B6B0F
+        6B6B6BEF6A6A6AFF686868FF676767FF656565FF5E6781FF4776FFFF4473FFFF
+        4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF
+        2959FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1345FFFF
+        1042FFFF2E4189FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF
+        373737FF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BEF
+        2A2A2A0F00000000000000000000000000000000000000000000000000000000
+        6B6B6B3F6B6B6BFF6A6A6AFF686868FF676767FF656565FF5D688AFF4974F5FF
+        4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF
+        2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF
+        1645F3FF444444FF424242FF404040FF3B3E4BFF363C55FF3B3B3BFF3A3A3AFF
+        383838FF373737FF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2D3F
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000006B6B6B7F6B6B6BFF6A6A6AFF686868FF676767FF656565FF5E6781FF
+        4B73EBFF4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF
+        2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF
+        1647FFFF2645B9FF41444FFF2E4189FF0D3CF3FF0739FFFF213A9DFF3B3B3BFF
+        3A3A3AFF383838FF373737FF353535FF333333FF323232FF3030306F00000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000006B6B6B9F6B6B6BFF6A6A6AFF686868FF676767FF656565FF
+        62656DFF536DBAFF4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF
+        3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF
+        194AFFFF1647FFFF1645F3FF1042FFFF0D3FFFFF0A3CFFFF233C9FFF3D3D3DFF
+        3B3B3BFF3A3A3AFF383838FF373737FF353535FF3333339F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000006B6B6B9F6B6B6BFF6A6A6AFF686868FF676767FF
+        656565FF636363FF5D657FFF4D6DCDFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF
+        3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF
+        1C4DFFFF194AFFFF1647FFFF1345FFFF2042C4FF384165FF404040FF3F3F3FFF
+        3D3D3DFF3B3B3BFF3A3A3AFF383838FF3737379F000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000006B6B6B7F6B6B6BFF6A6A6AFF686868FF
+        676767FF656565FF636363FF626262FF5D6274FF4E68B9FF446AE0FF3B6AFFFF
+        3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF
+        1F50FFFF254DDDFF2E4AAFFF41475EFF454545FF444444FF424242FF404040FF
+        3F3F3FFF3D3D3DFF3B3B3BFF3A3A3A6F00000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000000000000000000000000006B6B6B4F6B6B6BEF6A6A6AFF
+        686868FF676767FF656565FF636363FF626262FF606060FF5E5E5EFF5B5E67FF
+        535F84FF4860ACFF465EABFF445CABFF4159AAFF3F57A9FF3D55A8FF45517BFF
+        4B4E59FF4C4C4CFF4A4A4AFF494949FF474747FF454545FF444444FF424242FF
+        404040FF3F3F3FEF3D3D3D3F0000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000006B6B6B0F6B6B6B9F
+        6A6A6AFF686868FF676767FF656565FF636363FF626262FF606060FF5E5E5EFF
+        5D5D5DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF515151FF
+        4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF474747FF454545FF444444FF
+        4242429F4141410F000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        6B6B6B3F6A6A6ABF686868FF676767FF656565FF636363FF626262FF606060FF
+        5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF
+        515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF474747BF4545453F
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000006969691F6868688F676767EF656565FF636363FF626262FF
+        606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF545454FF
+        535353FF515151FF4F4F4FFF4E4E4EDF4C4C4C8F4A4A4A1F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000000000000000000000000006666662F6565657F636363AF
+        626262CF606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656CF
+        545454AF5252527F5151512F0000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00000000000000000000000000000000FFFF800000070000FFFC000000030000
+        FFF0000000010000FFC0000000010000FF80000000010000FF00000000010000
+        FE00000000010000FC00000000010000F800000000010000F000000000010000
+        E000000000000000E000000000000000C000000000000000C000000000000000
+        8000000000000000800000000000000080000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000800000000000000080000000000100008000000000010000
+        C000000000030000C000000000030000E000000000070000E000000000070000
+        F0000000000F0000F8000000001F0000FC000000003F0000FE000000007F0000
+        FF00000000FF0000FF80000001FF0000FFC0000003FF0000FFF000000FFF0000
+        FFFC00003FFF0000FFFF8001FFFF000028000000200000004000000001002000
+        0000000080100000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        1C1C1C1F1A1A1A6F171717BF151515EF121212FF101010FF0D0D0DFF0B0B0BFF
+        0B0B0BE3141414DF282726E7424040EE514D4CF7504A4AFA443F3EF6363232EB
+        262424D21B1C1C911C1C1C180000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000002424243F212121BF
+        1F1F1FFF1C1C1CFF1A1A1AFF171717FF151515FF121212FF101010FF131313FF
+        363534FF8C8988FFC2BBBBFFCCC4C2FFC7BDBBFFB6A7A5FF9D8B88FF897774FF
+        7E6E6BFF5B524FFF2B2928EF1B1C1C5F00000000000000000000000000000000
+        000000000000000000000000000000002B2B2B0F292929AF262626FF242424FF
+        212121FF1F1F1FFF1C1C1CFF1A1A1AFF171717FF151515FF141414FF3F3E3EFF
+        CEC9C7FFEFEAE9FFEBE6E5FFD5D0CFFFA49E9DFF908886FF897B7AFF887774FF
+        8C7976FF907D78FF7B6C69FF2D2B2AEE1C1C1C1D000000000000000000000000
+        0000000000000000000000003030303F2E2E2EEF2B2B2BFF292929FF262626FF
+        242424FF212121FF1F1F1FFF10155DFF0009ABFF0005A5FF0B0C5BFF817F7EFF
+        FCF7F6FFF4F3F3FFDEDDDDFF6F6E6FFF797777FF7B7877FF747270FF585352FF
+        6C5E5CFF897774FF93807BFF4D4544FF1819195F000000000000000000000000
+        00000000000000003535355F333333FF303030FF2E2E2EFF2B2B2BFF292929FF
+        262626FF242424FF212121FF171B45FF000CB1FF0009ABFF04088CFF424143FF
+        E0DDDDFFFFFFFFFFC9C7C7FF7D7979FFD5C9C6FFAC9C98FFBBAFACFFA9A19FFF
+        504B4BFF86746FFF7F6E6BFF2E2C2BF91C1C1C21000000000000000000000000
+        000000003A3A3A3F383838FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF
+        292929FF262626FF242424FF151B5CFF000FB8FF09117AFF14174DFF171822FF
+        414040FF818080FF6D6E6DFF454141FF685755FF684F4DFF7E6462FF8F7775FF
+        514948FF544C4AFF2D2A2AFA1B1B1C6500000000000000000000000000000000
+        3F3F3F1F3C3C3CEF3A3A3AFF383838FF353535FF333333FF303030FF2E2E2EFF
+        2B2B2BFF292929FF262626FF1D2141FF131952FF424241FF756D6CFF837E81FF
+        7E7677FF685E5EFF5D5251FF5A4F4EFF564C4BFF4E4646FF453C3BFF453636FF
+        262121FF101111FF020202F00000000F00000000000000000000000000000000
+        414141BF3F3F3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF303030FF
+        2E2E2EFF2B2B2BFF292929FF262626FF404040FFB1B0AFFF7F726CFFDAC09AFF
+        F6E2C9FFDED3C9FFCABDBAFFB0A5A7FF9F939CFF9E9297FF9C9192FF8E8787FF
+        6E6969FF3F3D3CFF171818FF070707C20000000000000000000000004646463F
+        444444FF414141FF3F3F3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF
+        303030FF2E2E2EFF2B2B2BFF292929FF515151FFC5C4C5FF7D6E67FFDD8212FF
+        FF9A12FFFFA121FFFFAF38FFFEB64FFFF4BB68FFE2BB88FFCEBAA5FFC2B7B4FF
+        C0BAC0FFBCB6BCFF9E989AFF575656FF1B1B1BD61A1A1A1F00000000494949BF
+        464646FF444444FF414141FF3F3F3FFF3C3C3CFF3A3A3AFF383838FF353535FF
+        333333FF303030FF2E2E2EFF2B2B2BFF525252FFCFCFD0FF84776FFFDC800FFF
+        FF9109FFFE8F09FFFE9009FFFF9109FFFF920AFFFF9812FFFF9E1BFFF8A533FF
+        E7A951FFD3AA76FFC9B4A4FFCAC2C5FF939196FF2D2D2CED4E4E4E1F4B4B4BFF
+        494949FF464646FF444444FF414141FF343E63FF1538C2FF0332F0FF1131BBFF
+        2B3359FF333333FF303030FF2E2E2EFF555555FFDAD9DAFF8B7F77FFDC8111FF
+        FF970FFFFE9A16FFFE9E1BFFFEA01FFFFEA120FFFEA11FFFFEA01DFFFF9C16FF
+        FF970FFFFF960FFFF79213FFE7932AFFC4A37AFF5D5E64FE5050506F4E4E4EFF
+        4B4B4BFF494949FF464646FF414450FF0F3EF3FF073AFFFF0336FEFF0032FCFF
+        062FDEFF353535FF333333FF303030FF585858FFE3E3E6FF90867EFFDC8818FF
+        FFA01AFFFEA524FFFFA92AFFFFAC2EFFFFAD32FFFFAD32FFFFAC2FFFFFAA2BFF
+        FEA525FFFEA01CFFFF9813FFFF9505FFBA8235FF52555FFE535353BF515151FF
+        4E4E4EFF4B4B4BFF494949FF3A4675FF1042FFFF0C3EFFFF073AFFFF0336FEFF
+        0032FCFF293568FF353535FF333333FF5A5A5AFFEDEEEFFF968C84FFDC9023FF
+        FFAA28FFFFAF33FFFFB43BFFFFB741FFFFBA43FFFFBA43FFFFB841FFFFB53CFF
+        FFB035FFFFAA2BFFFEA321FFFF9E11FFB7833BFF4E5059FF565656EF535353FF
+        515151FF4E4E4EFF4B4B4BFF3D4977FF1547FFFF1042FFFF0C3EFFFF073AFFFF
+        0336FEFF333952FF383838FF353535FF5C5C5CFFF4F4F7FF9C938BFFDD972DFF
+        FFB435FFFFB841FFFFBF4CFFFFC453FFFFC556FFFFC557FFFFC453FFFFC04DFF
+        FFBA43FFFFB439FFFFAB2DFFFFA71CFFB4833EFF4A4B54FF585858FF565656FF
+        535353FF515151FF4E4E4EFF4B4B4BFF224ADDFF1547FFFF1042FFFF0C3EFFFF
+        183BC3FF3C3C3CFF3A3A3AFF383838FF5D5D5DFFFBFBFEFFA09892FFDE9E37FF
+        FFBD43FFFFC251FFFFC95CFFFFCC63FFFFCF67FFFFCF67FFFFCE64FFFFCA5DFF
+        FFC453FFFFBC47FFFFB439FFFFAF28FFB18341FF47474EFF5B5B5BFF585858FF
+        565656FF535353FF515151FF4E4E4EFF484B57FF344A99FF2D46A3FF2D4396FF
+        414141FF3F3F3FFF3C3C3CFF3A3A3AFF5D5D5EFFFEFEFFFFA59E98FFDEA441FF
+        FFC550FFFFCA5EFFFFD069FFFFD572FFFFD876FFFFD876FFFFD573FFFFD16BFF
+        FFCB60FFFFC454FFFFBA44FFFFB631FFAF8241FF434249FF5D5D5DFF5B5B5BFF
+        585858FF565656FF535353FF515151FF4E4E4EFF4B4B4BFF494949FF464646FF
+        444444FF414141FF3F3F3FFF3C3C3CFF5D5D5DFFFFFFFFFFAAA49DFFDEAA49FF
+        FFCB5BFFFFD16AFFFFD876FFFFDE81FFFFE287FFFFE288FFFFDE82FFFFD978FF
+        FFD36CFFFFCA5EFFFFC14FFFFFBC3AFFAB8141FF3F3E43FF606060FF5D5D5DFF
+        5B5B5BFF585858FF565656FF535353FF515151FF4E4E4EFF4B4B4BFF494949FF
+        464646FF444444FF414141FF3F3F3FFF5D5D5DFFFFFFFFFFADA7A1FFDEAD4FFF
+        FFD062FFFFD572FFFFDE81FFFEE68FFFFEEB99FFFEED9AFFFEE691FFFFE083FF
+        FFD775FFFFCF66FFFFC555FFFFC141FFA77F42FF3B3940FF626262EF606060FF
+        5D5D5DFF5B5B5BFF585858FF565656FF535353FF515151FF4E4E4EFF4B4B4BFF
+        494949FF464646FF444444FF414141FF5D5D5DFFFFFFFFFFAFABA4FFDEB250FF
+        FFD866FFFFDD77FFFFE588FFFFED98FFFFF6A9FFFFF6ABFFFEED9AFFFEE389FF
+        FFD978FFFFD069FFFFC658FFFFC243FFAB8143FF3C393FFF646464BF626262FF
+        606060FF5D5D5DFF5B5B5BFF585858FF565656FF535353FF515151FF4E4E4EFF
+        4B4B4BFF494949FF434652FF3E445BFF5D5D5DFFFFFFFFFFB1AFABFFA18855FF
+        B89A57FFC9AC64FFDEC678FFEDDA8CFFF0E59DFFF8EEA3FFFFF099FFFFEB8BFF
+        FFE17AFFFFD76AFFFFCA59FFFFC443FFAF8644FF3F3D42FF6666666F656565FF
+        626262FF606060FF5D5D5DFF5B5B5BFF585858FF565656FF535353FF515151FF
+        4E4E4EFF434C6DFF204AE8FF1547FFFF5D5E5EFFFFFFFFFFE0DEDEFFC4C5C9FF
+        B8B7BAFFAAA6A5FF999591FF928C83FF96907FFF9D957BFFA49976FFAF9D6DFF
+        B89F62FFC9A458FFE1AF4FFFFEB63DFFAB8243FF424146FE6868681F676767FF
+        656565FF626262FF606060FF5B5E67FF3C68F4FF3565FFFF485A95FF535353FF
+        515151FF3851A7FF1E4FFFFF1A4BFFFF3C4257FFA7A7A7FFBCBCBCFFD1D0D0FF
+        E0DEDDFFE2DEE0FFE0DCDDFFDCD7D7FFD5CFD0FFC5BDBFFFADA6AAFF9F9799FF
+        968C8CFF8B807EFF7D726BFF7A6A5AFF816F60FF4D4747FD00000000696969BF
+        676767FF656565FF626262FF496EE1FF3F6EFFFF3A69FFFF3A63EAFF565656FF
+        535353FF3C54A8FF2354FFFF1E4FFFFF1B39AAFF183089FF192D76FF232B4AFF
+        2D2E30FF393838FF494748FF585656FF696666FF7D7978FF8B8684FF968F8EFF
+        A09796FFA59A99FFA19595FF9A8E8EFF766B6BFF312E2DFA000000006B6B6B3F
+        696969FF676767FF656565FF4C72E1FF4372FFFF3F6EFFFF3A69FFFF3C62DFFF
+        385FDFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1547FFFF1042FFFF
+        0C3EFFFF153ACAFF3A3A3AFF353535FF2F2F2FFF2A2A2AFF282828FF262626FF
+        272727FF292928FF31302FFF363433FF232323C91B1C1C330000000000000000
+        6B6B6BBF696969FF676767FF616778FF4974F5FF4372FFFF3F6EFFFF3A69FFFF
+        3565FFFF3161FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1547FFFF
+        1042FFFF123EE7FF3F3F3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF
+        303030FF2E2E2EFF2B2B2BFF292929BF00000000000000000000000000000000
+        6B6B6B1F6B6B6BEF696969FF676767FF606882FF4974F5FF4372FFFF3F6EFFFF
+        3A69FFFF3565FFFF3161FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF
+        1547FFFF2E4395FF414141FF3C3F4BFF393C48FF3A3A3AFF383838FF353535FF
+        333333FF303030FF2E2E2EEF2B2B2B1F00000000000000000000000000000000
+        000000006B6B6B3F6B6B6BFF696969FF676767FF616778FF4C72E1FF4372FFFF
+        3F6EFFFF3A69FFFF3565FFFF3161FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF
+        1A4BFFFF1847F3FF2E4395FF0F3EF3FF0A3AF2FF323B61FF3A3A3AFF383838FF
+        353535FF333333FF3030303F0000000000000000000000000000000000000000
+        00000000000000006B6B6B5F6B6B6BFF696969FF676767FF656565FF566AA7FF
+        4570F5FF3F6EFFFF3A69FFFF3565FFFF3161FFFF2C5CFFFF2758FFFF2354FFFF
+        1E4FFFFF1A4BFFFF1547FFFF1442F3FF2A4094FF3F3F3FFF3C3C3CFF3A3A3AFF
+        383838FF3535355F000000000000000000000000000000000000000000000000
+        0000000000000000000000006B6B6B3F6B6B6BEF696969FF676767FF656565FF
+        626262FF55669CFF4A67C2FF3E67EAFF3565FFFF3161FFFF2C5CFFFF2758FFFF
+        2853E9FF2F4DBCFF374A8DFF464646FF444444FF414141FF3F3F3FFF3C3C3CEF
+        3A3A3A3F00000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000006B6B6B1F6B6B6BBF696969FF676767FF
+        656565FF626262FF606060FF5D5D5DFF5B5B5BFF585858FF565656FF535353FF
+        515151FF4E4E4EFF4B4B4BFF494949FF464646FF444444FF414141BF3F3F3F1F
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000006B6B6B3F696969BF
+        676767FF656565FF626262FF606060FF5D5D5DFF5B5B5BFF585858FF565656FF
+        535353FF515151FF4E4E4EFF4B4B4BFF494949BF4646463F0000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        6868681F6666666F646464BF626262EF606060FF5D5D5DFF5B5B5BFF585858FF
+        565656EF535353BF5050506F4E4E4E1F00000000000000000000000000000000
+        000000000000000000000000000000000000000000000000FFC00007FF000003
+        FC000001F8000001F0000001E0000003C0000003C00000038000000080000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000008000000080000000C0000003C0000003
+        E0000007F000000FF800001FFC00003FFF0000FFFFC003FF2800000010000000
+        2000000001002000000000004004000000000000000000000000000000000000
+        000000000000000000000000000000000F0F0F381616169F171717DD121212FF
+        0D0D0DFF0D0D0DDE232323B3333232A2313131A0323232783434342311111101
+        00000000000000000505050C262626A4262626FF212121FF191A2AFF0A0E5DFF
+        0A0B50FF6A6868FFC5BFBEFFA19896FF837471FF695C5AFC333232B22222220C
+        000000000606060C2F2F2FCD303030FF2B2B2BFF262626FF1D1F34FF000BAFFF
+        0C0F81FF9A989AFF9F9E9EFF9B8D8BFF857B79FF716361FF3432329922222207
+        00000000373737A6393939FF353535FF303030FF2B2B2BFF24252BFF121A6EFF
+        676268FFA29588FF857C7BFF716666FF6B5E5DFF313131FF222222B92E2E2E17
+        1F1F1F3A434343FF3E3E3EFF393939FF353535FF303030FF2B2B2BFF272727FF
+        9F9895FFF98F0CFFFE9D20FFF8AB44FFE2A962FFCCA984FF807872FF3232328E
+        3C3C3C9F484848FF434344FF183BC1FF0732E1FF28325FFF303030FF2A2A2AFF
+        B2ACAAFFF99B1BFFFEAA2CFFFEAE33FFFEAA2DFFFE9E1CFFCA852DFF303030C0
+        525252E04D4D4DFF454856FF1041FFFF0739FEFF1935A5FF353535FF2D2D2DFF
+        C2BDBBFFF9B13AFFFFC455FFFFCA5EFFFFC556FFFFB63EFFC78C35FF272727E6
+        575757FF525252FF4D4D4DFF2E48A9FF1E42CAFF363D5AFF393939FF313131FF
+        CAC7C4FFFAC255FFFFD876FFFEE186FFFED978FFFFC75AFFC6913DFF262626FF
+        5C5C5CFF575757FF525252FF4D4D4DFF484848FF434343FF3E3E3EFF343434FF
+        CDCCCAFFE1B95EFFF1D782FFFBF0A3FFFEE68CFFFFCF65FFC59442FF272727FF
+        616161E05C5C5CFF575757FF525252FF4D4D4DFF484848FF424348FF373737FF
+        A6A7ABFFB3B1B3FFAEAAA9FFAEA79FFFB0A492FFAA9472FF987C58FF292929E5
+        4F4F4F9F616161FF5C5D60FF495D9FFF50535FFF474E66FF1B4AF7FF1F42C8FF
+        1339D2FF31364AFF313131FF232C5AFF20319AFF3A3D5CFF3A3737FF1E1E1EA2
+        2E2E2E3C666666FF57689CFF3E6DFFFF4260C1FF3D57B2FF2253FFFF194AFFFF
+        1742E5FF273C90FF393939FF343436FF282E4AFF2A2A2CFF262626FF0F0F0F38
+        000000005E5E5EA666676AFF4E6FD0FF3E6DFFFF3564FFFF2B5BFFFF2253FFFF
+        194AFFFF1A42D9FF3E3E40FF39393CFF353535FF303030FF262626A600000000
+        000000000B0B0B0E5E5E5ECD66676AFF536BB4FF3F6CF9FF3564FFFF2B5BFFFF
+        2253FFFF1B4AF7FF1B42D5FF2B3C82FF393939FF2F2F2FCD0505050C00000000
+        00000000000000000B0B0B0E5E5E5EA8666666FF5F636EFF516195FF455DABFF
+        3E56A9FF3E4F8BFF454856FF434343FF373737A60606060C0000000000000000
+        000000000000000000000000000000002E2E2E3C4F4F4FA1616161E25C5C5CFF
+        575757FF525252E23C3C3C9F1F1F1F3C00000000000000000000000000000000
+        F0000000C0000000800000008000000000000000000000000000000000000000
+        000000000000000000000000000000008001000080010000C0030000F00F0000
+      }
+      Proportional = True
+      Stretch = True
+    end
+    object cbCreateClientAndGroup: TCheckBox
+      Left = 42
+      Height = 21
+      Top = 8
+      Width = 205
+      Anchors = [akLeft, akBottom]
+      Caption = 'Create Test Client and Project Group'
+      Checked = True
+      State = cbChecked
+      TabOrder = 0
+    end
+    object btn_Ok: TBitBtn
+      Left = 342
+      Height = 25
+      Top = 8
+      Width = 75
+      Anchors = [akRight, akBottom]
+      Caption = 'OK'
+      Default = True
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+        6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+        9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+        9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+        4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+        65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+        00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+        00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 1
+      NumGlyphs = 2
+      TabOrder = 1
+    end
+    object Button2: TBitBtn
+      Left = 421
+      Height = 25
+      Top = 8
+      Width = 75
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = 'Cancel'
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      ModalResult = 2
+      NumGlyphs = 2
+      TabOrder = 2
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.lrs
new file mode 100644
index 0000000..f0bd257
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.lrs	
@@ -0,0 +1,4216 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TServerProjectOptions','FORMDATA',[
+  'TPF0'#21'TServerProjectOptions'#20'ServerProjectOptions'#4'Left'#3'S'#1#6'He'
+  +'ight'#3'9'#1#3'Top'#3#195#0#5'Width'#3#245#1#13'ActiveControl'#7#8'ePrjName'
+  +#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Capti'
+  +'on'#6'0RemObjects SDK Server - Advanced Project Options'#12'ClientHeight'#3
+  +'9'#1#11'ClientWidth'#3#245#1#21'Constraints.MinHeight'#3#238#0#20'Constrain'
+  +'ts.MinWidth'#3','#1#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#12'OnClo'
+  +'seQuery'#7#14'FormCloseQuery'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14
+  +'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2#8
+  +#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2'j'#7'Caption'#6#21'Service Library'
+  +' Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#14
+  +#3'Top'#3#154#0#5'Width'#2'F'#7'Caption'#6#13'Service Name:'#11'ParentColor'
+  +#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'f'#5'Width'#2
+  +'E'#7'Caption'#6#13'Project Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'
+  +#4'Left'#2#8#6'Height'#2#14#3'Top'#3#244#0#5'Width'#2'H'#7'Caption'#6#15'Pro'
+  +'ject Folder:'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#4#6'Heigh'
+  +'t'#2#2#3'Top'#3'^'#1#5'Width'#3#163#2#7'Anchors'#11#6'akLeft'#7'akRight'#8
+  +'akBottom'#0#0#0#6'TLabel'#6'Label4'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'L'#5
+  +'Width'#2'\'#7'Caption'#6#18'Template Location:'#11'ParentColor'#8#0#0#6'TLa'
+  +'bel'#6'Label6'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#213#0#5'Width'#2'K'#7'Ca'
+  +'ption'#6#14'Message Class:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Lef'
+  +'t'#2#8#6'Height'#2#14#3'Top'#3#188#0#5'Width'#2'A'#7'Caption'#6#13'Server C'
+  +'lass:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#4'Left'#2'w'#6'Height'#2#14
+  +#3'Top'#3#188#0#5'Width'#3#197#0#7'Caption'#6'$Not available in this kind of'
+  +' server'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Sty'
+  +'le'#11#6'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TImage'#6'Image'
+  +'2'#4'Left'#2#0#6'Height'#2'@'#3'Top'#2#0#5'Width'#3#245#1#5'Align'#7#5'alTo'
+  +'p'#8'AutoSize'#9#12'Picture.Data'#10'Bw'#1#0#7'TBitmap6w'#1#0'BM8w'#1#0#0#0
+  +#0#0'6'#0#0#0'('#0#0#0#244#1#0#0'@'#0#0#0#1#0#24#0#0#0#0#0#2'w'#1#0#18#11#0#0
+  +#18#11#0#0#0#0#0#0#0#0#0#0#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0
+  +#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  ,#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0
+  +#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188#0#0#188
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  ,#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0
+  +#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182
+  +#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#182#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  ,#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142'DD'#172'ww'#195'ff'#187#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  ,#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#255#255
+  +#255#255#255#255#255#255#255#221#221#241'""'#163#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  ,#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155'UU'#188#0#0#155'UU'
+  +#188#255#255#255#170#170#222#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  ,#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#204#204#239#238
+  +#238#250#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  ,#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#187#187#232
+  +#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255#255'ww'#209#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#170#170#226#255#255#255'""'#180#0#0#168#0#0#168#0#0#168'DD'
+  +#191#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#238#238#249#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +'DD'#191#170#170#226#238#238#249#255#255#255#238#238#249#170#170#226'DD'#191
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#187#187#232#255#255#255#255#255#255#255#255#255#221#221#243#136#136#214
+  +#17#17#174#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#187#187#232#255#255#255#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#187#187#232#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#17#17#174#136#136#214#204#204#238#255#255#255#255#255#255
+  +#221#221#243#153#153#220'33'#185#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#187#187#232#255#255#255#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168'33'#185#170
+  +#170#226#221#221#243#255#255#255#204#204#238'DD'#191#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#255#255#255#255#255
+  +#255#255#255#255#204#204#238'ww'#209#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#170#170#226'ff'#203#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#255#255#255#255
+  +#255#255#255#255#255'ww'#209#0#0#168#0#0#168#17#17#174#238#238#249#255#255
+  +#255#255#255#255#255#255#255#153#153#220#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#255#255#255#187#187#234#0#0#177#0#0#177#0#0#177'ww'#213#255#255#255#153
+  +#153#224#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234
+  +#255#255#255'ww'#213'ww'#213'ww'#213'ww'#213'DD'#198#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177'ww'#213#255#255#255'33'#193#0#0#177#0#0#177#0#0#177
+  +#187#187#234#255#255#255#17#17#182#0#0#177#0#0#177#0#0#177#255#255#255#187
+  ,#187#234#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#153#153#224#255#255#255#238#238#250#153#153#224'ww'#213#153#153#224#238
+  +#238#250#255#255#255#153#153#224#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255'ww'#213'ww'#213#170#170
+  +#229#255#255#255#221#221#245#17#17#182#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255'ww'#213'ww'#213'ww'
+  +#213'ww'#213'DD'#198#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177'UU'#203#238#238#250#255#255#255#187#187#234#136#136#219'ww'#213#170
+  +#170#229#238#238#250'ww'#213#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177'ff'#208#238#238
+  +#250#136#136#219'ff'#208#187#187#234#255#255#255'DD'#198#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#204#204#239#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#187#187#234#17#17
+  +#182#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#255#255#255#255#255#255#255#255#255'ww'#213#0#0#177#0#0#177#170#170#229#255
+  +#255#255#255#255#255#255#255#255#187#187#234#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#255#255#255#187#187#231#0#0#166#0#0#166'33'#184#255#255#255
+  +#187#187#231#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166'UU'#196#255#255#255'DD'#190#0#0#166#0#0
+  +#166'33'#184#255#255#255#255#255#255'ww'#208#0#0#166#0#0#166'""'#178#255#255
+  +#255#153#153#219#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#153#153#219#255#255#255#153#153#219#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#153#153#219#255#255#255#153#153#219#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166
+  +'ff'#202#255#255#255'ww'#208#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166'DD'#190#255
+  ,#255#255#221#221#243'33'#184#0#0#166#0#0#166#0#0#166#0#0#166#17#17#172'33'
+  +#184#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#187#187#231#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166'DD'#190#17#17#172#0#0#166#0#0#166#17#17
+  +#172#255#255#255#204#204#237#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166'33'#184#255#255#255#255#255#255#187#187#231#221#221#243#255#255#255#255
+  +#255#255#255#255#255'ff'#202#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#255#255#255#255#255#255#255#255#255#221#221#243#187#187#231#238#238
+  +#249#255#255#255#255#255#255#255#255#255#187#187#231#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#255#255#255#255#255#255#255
+  +#255#255'ww'#208#0#0#166'UU'#196#255#255#255#255#255#255#255#255#255#238#238
+  +#249#17#17#172#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#255#255#255
+  +#187#187#235#0#0#179#0#0#179#221#221#245#238#238#250'""'#189#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235#255#255#255#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179'33'#194#255#255#255'ff'#209#0#0#179#0#0#179#153#153#225#221#221#245
+  +'ff'#209#238#238#250#0#0#179#0#0#179'33'#194#255#255#255'ww'#214#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179'DD'#199#255#255#255#170#170#230
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#170#170#230#255#255
+  +#255'DD'#199#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187
+  +#235#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179#255#255#255#187#187#235#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235#255#255#255
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235
+  +#255#255#255#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#17#17#184#238#238#250#221#221#245#17#17#184#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#187#187#235#255#255#255
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#221#221#245#255#255#255#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179'DD'#199#136#136#220#17#17#184#0
+  +#0#179#17#17#184#255#255#255#255#255#255#255#255#255#170#170#230#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#255#255#255#255#255#255#255#255
+  ,#255'ww'#214#0#0#179#17#17#184#153#153#225#255#255#255#255#255#255#255#255
+  +#255'UU'#204#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#255#255#255#255#255#255#255#255#255'ww'#214#17#17#184#238#238#250#255#255
+  +#255#255#255#255#255#255#255'UU'#204#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#0#0#179#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#255#255#255#187#187#234#0#0#177#136#136#219#255#255#255'DD'
+  +#198#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#17#17#182#255#255#255#136#136#219#0#0
+  +#177#17#17#182#255#255#255'ww'#213#0#0#177#238#238#250'ff'#208#0#0#177'DD'
+  +#198#255#255#255'ff'#208#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#170#170#229#255#255#255'""'#187#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177'""'#187#255#255#255#170#170#229#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177
+  +'""'#187#255#255#255#153#153#224#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177'ff'#208#255#255
+  +#255'ff'#208#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#187#187#234#255#255#255#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177'33'#193#255
+  +#255#255#221#221#245#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#17
+  +#17#182#0#0#177#0#0#177#0#0#177'ww'#213#255#255#255#255#255#255#255#255#255
+  +#187#187#234#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#255#255
+  +#255#255#255#255#255#255#255'ww'#213#0#0#177#0#0#177#17#17#182#238#238#250
+  +#255#255#255#255#255#255#170#170#229#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#255#255#255#255#255#255#255#255#255'ww'#213#187#187
+  +#234#255#255#255#255#255#255#255#255#255#136#136#219#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  ,#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177
+  +#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0
+  +#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#177#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#255#255#255#255#255#255#255#255#255
+  +#255#255#255#221#221#244'33'#189#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#238
+  +#238#250#170#170#228#0#0#173'ww'#211#238#238#250#17#17#178#0#0#173'ww'#211
+  +#204#204#239#0#0#173'ff'#206#255#255#255'DD'#195#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#238#238#250#221#221#244#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#221#221#244#238#238#250#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255
+  +#0#0#173#0#0#173'33'#189#204#204#239#238#238#250'33'#189#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#170#170#228#255#255#255#17#17#178#0#0#173#0#0#173#0#0#173#0#0#173#0
+  +#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#187#187#233#255#255#255#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173'33'#189#238#238#250#255#255#255'ff'#206#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#17#17#178#170#170#228#255#255
+  +#255#255#255#255#255#255#255#255#255#255'ww'#211#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#255#255#255#255#255#255#255#255#255'ww'#211#0#0
+  +#173#0#0#173#0#0#173#153#153#222#255#255#255#255#255#255#238#238#250#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#255#255#255#255#255
+  +#255#255#255#255#221#221#244#255#255#255#255#255#255#255#255#255#204#204#239
+  +#17#17#178#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0
+  +#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  ,#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173
+  +#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0#173#0#0
+  +#173#0#0#173#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#255#255#255#204#204#238'DD'#193'UU'#199#221#221#244#255#255#255'33'#188#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255'DD'#193#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#204#204#238#204#204#238#0#0#171
+  +#238#238#249#136#136#216#0#0#171#0#0#171#17#17#177#255#255#255'DD'#193'ww'
+  +#210#255#255#255'33'#188#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#255#255#255#187#187#233#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#255#255#255#255#255#255
+  +#255#255#255#221#221#244'33'#188#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#187#187#233#255#255#255#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255'DD'#193#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#187#187#233#255#255#255#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +'ff'#205#255#255#255#255#255#255#136#136#216#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#187#187#233#255#255#255#255#255
+  +#255#255#255#255#255#255#255#238#238#249#17#17#177#0#0#171#0#0#171#0#0#171#0
+  +#0#171#0#0#171#0#0#171#0#0#171#255#255#255#255#255#255#255#255#255'ww'#210#0
+  +#0#171#0#0#171#0#0#171'ww'#210#255#255#255#255#255#255#255#255#255#0#0#171#0
+  +#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'33'#188#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  ,#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171
+  +#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0#171#0#0
+  +#171#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#255#255
+  +#255#187#187#235#0#0#181#0#0#181'""'#191#255#255#255#187#187#235#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#187#187#235#255#255#255
+  +'ww'#216'ww'#216'ww'#216'ww'#216'""'#191#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#170#170#230#221#221#245'UU'#206#255#255#255'""'#191#0#0
+  +#181#0#0#181#0#0#181#153#153#225#170#170#230#153#153#225#255#255#255#17#17
+  +#186#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#238#238#250#221
+  +#221#245#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#221#221#245#238#238#250#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#187#187#235#255#255#255'DD'#201'DD'#201#204#204#240#238#238#250'""'
+  +#191#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#187#187
+  +#235#255#255#255#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#187#187#235#255#255#255'ww'#216'ww'#216'ww'#216'ww'#216'""'#191#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#170#170#230#255#255#255'""'#191#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#187#187#235
+  +#255#255#255#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181'UU'#206#255#255#255#238#238#250'UU'#206#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181'DD'#201#255
+  +#255#255#255#255#255#255#255#255#255#255#255#221#221#245'33'#196#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#255#255#255#255#255#255
+  +#255#255#255'ww'#216#0#0#181#0#0#181#0#0#181#153#153#225#255#255#255#255#255
+  +#255#238#238#250#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#255#255#255#255#255#255#255#255#255#187#187#235#255#255#255#255#255#255
+  +#255#255#255'UU'#206#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  ,#0#0#159#0#0#159#255#255#255#187#187#229#0#0#159#0#0#159#0#0#159#204#204#236
+  +#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#187#187#229#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#136#136#210#255#255#255#204#204
+  +#236#170#170#223#0#0#159#0#0#159#0#0#159#0#0#159'""'#172#255#255#255#204#204
+  +#236#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#170#170#223#255#255#255'""'#172#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159'""'#172#255#255#255#170#170#223#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#187#187#229#255#255#255#0#0#159#0#0#159'""'#172
+  +#255#255#255#136#136#210#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#187#187#229#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#187#187#229#255#255#255#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159'ff'#197#255#255
+  +#255'ww'#204#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#187#187#229#255#255#255#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#204#204#236#255#255#255'33'#178#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159'ww'#204#255#255#255#255#255#255#255#255#255#170#170#223#17#17#165#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#255#255
+  +#255#255#255#255#255#255#255'ww'#204#0#0#159#0#0#159#17#17#165#238#238#249
+  +#255#255#255#255#255#255#170#170#223#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#255#255#255#255#255#255#255#255#255'ww'#204#170#170
+  +#223#255#255#255#255#255#255#238#238#249#17#17#165#0#0#159#0#0#159#0#0#159#0
+  +#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159
+  +#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0
+  +#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#159#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255#255#187#187#225#0#0#142#0#0
+  +#142#0#0#142#204#204#232#238#238#247#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142'ff'#187
+  +#255#255#255#255#255#255'33'#165#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#170
+  +#170#217#255#255#255#221#221#240#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142'DD'#172#255#255#255#170#170#217#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#170#170#217#255#255#255'DD'#172#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142
+  ,#0#0#142#0#0#142#255#255#255#187#187#225#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#17#17#150#238#238#247#238#238#247#17#17#150#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#187#187#225#255#255#255#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255#255
+  +#204#204#232#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142'ww'#195#255#255#255#255#255#255#255#255#255#0#0
+  +#142#0#0#142'""'#157'33'#165#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#255#255#255#255#255#255#255#255#255'ww'#195#0#0#142#17#17#150#153
+  +#153#210#255#255#255#255#255#255#255#255#255'ff'#187#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#255#255#255#255#255#255#255#255#255
+  +'ww'#195#17#17#150#238#238#247#255#255#255#255#255#255#136#136#202#0#0#142#0
+  +#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142
+  +#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0
+  +#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#142#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#255#255#255#187#187
+  +#226#0#0#145#0#0#145'33'#167#255#255#255#187#187#226#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226#255#255#255#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145'DD'#174#255#255#255#187#187#226#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145'DD'#174#255#255#255#187#187#226#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#153#153#211#255#255#255#153#153#211
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#153#153#211#255#255#255#153#153#211
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226
+  +#255#255#255#0#0#145#0#0#145'DD'#174#255#255#255#153#153#211#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226#255#255#255#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226#255
+  +#255#255#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145'DD'#174#255#255#255#221#221#240'DD'#174#0#0#145
+  +#0#0#145#0#0#145#0#0#145'""'#160'33'#167#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#187#187#226#255#255#255#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#221#221#240#221#221#240#0#0#145#0#0#145#0#0#145'""'#160#0#0#145#0#0#145
+  ,#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145'33'#167#255#255#255#255#255#255
+  +#255#255#255#204#204#233#187#187#226#255#255#255'DD'#174#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#255#255#255#255#255#255#255#255#255#221
+  +#221#240#187#187#226#238#238#248#255#255#255#255#255#255#255#255#255#187#187
+  +#226#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#255#255#255#255#255#255#255#255#255'ww'#196#0#0#145'ff'#189#255#255#255#255
+  +#255#255#255#255#255'DD'#174#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#255#255#255#221#221#237'ff'#174#136#136#192#238#238#246#238#238#246'33'#147
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255
+  +#255'ww'#183'ww'#183'ww'#183'ww'#183'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x""'#138#255#255#255'UU'#165#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#204#204#228#170#170#210#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#153#153#201#255#255#255#238#238#246#153
+  +#153#201'ww'#183#153#153#201#238#238#246#255#255#255#153#153#201#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255#255
+  +'ff'#174'ww'#183#238#238#246#255#255#255'33'#147#0#0'x'#0#0'x'#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255#255#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#187#187#219#255#255#255'ww'#183'ww'#183'ww'
+  +#183'ww'#183'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'xU'
+  +'U'#165#238#238#246#255#255#255#204#204#228#153#153#201#153#153#201#187#187
+  +#219#255#255#255'ff'#174#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#17#17#129'ww'#183
+  +'ww'#183'ww'#183'ww'#183#221#221#237#255#255#255'ww'#183'ww'#183'ww'#183'ww'
+  +#183'33'#147#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'xff'#174#255#255#255#170
+  +#170#210'ff'#174#153#153#201#153#153#201#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0
+  +#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0
+  +#0'x'#0#0'x'#170#170#210#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#187#187#219#17#17#129#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#255#255#255#255#255#255#255#255#255'ww'#183#0#0'x'#0#0'x'
+  +#187#187#219#255#255#255#255#255#255#221#221#237#17#17#129#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  ,'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#255#255#255#255#255#255#255#255#255#221#221#237#170#170#211
+  +'""'#140#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187
+  +#187#220#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'ww'#184
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#204#204#228#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zDD'#157#136#136#193#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zDD'#157#170
+  +#170#211#238#238#246#255#255#255#238#238#246#170#170#211'DD'#157#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187#187#220#255
+  +#255#255#255#255#255#238#238#246#187#187#220'DD'#157#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187#187#220#255#255#255#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#187#187#220#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255'ww'#184#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#17#17#131#136#136#193#204#204#228#255#255
+  +#255#255#255#255#221#221#237#153#153#202'33'#149#0#0'z'#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z""'#140#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'UU'#166#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zff'#175#221#221#237#255#255#255#187#187
+  +#220'""'#140#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'zww'#184
+  +#204#204#228#255#255#255#255#255#255#255#255#255'DD'#157#0#0'z'#0#0'z'#0#0'z'
+  +#0#0'z'#0#0'z'#0#0'z'#0#0'z'#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#170#170#211'ff'#175#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0
+  +'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#255#255#255#255#255#255#255#255
+  +#255'ww'#184#0#0'z'#0#0'zDD'#157#255#255#255#255#255#255#255#255#255#153#153
+  +#202#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  ,#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0
+  +#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'z'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0#0'v'#0
+  +#0'v'#0#0'v'#0#0'v'#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0
+  +#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  ,#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  ,#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  ,#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#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#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''#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#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''#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#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''#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
+  +#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''#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#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''#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#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''#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#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#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145
+  +#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0#145#0#0
+  +#145#0#0#145#0#0#145#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  ,#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  ,#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  ,#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  ,#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  ,#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  ,#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  ,#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0
+  +#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134#0#0#134
+  +#0#0#134#0#0#134#0#0#134#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  ,'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0#150#0#0#150#0
+  +#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0
+  +#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150#0#0#150
+  +#0#0#150#0#0#150#0#0#150#0#0#150#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  ,#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  ,#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  ,'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  ,'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0'p'#0#0
+  +'p'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  ,'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  ,'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  ,'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0
+  +'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  ,'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0'I'#0#0
+  +'I'#0#0'I'#0#0'I'#0#0'I'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  ,'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#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#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
+  +'`'#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#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'`'#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#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'`'#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#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'`'#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#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'`'#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#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'`'#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#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'_'#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#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'_'#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#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'_'#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#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'_'#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#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'_'#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#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
+  ,'_'#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#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'_'#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'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#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#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'\'#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#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'\'#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#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
+  +'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  ,'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#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#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'\'#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#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
+  +'\'#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#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'\'#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#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'\'#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#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'\'#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#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'\'#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#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'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  ,'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  ,'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  ,'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0
+  +'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'c'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  ,'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  ,'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#0#6'Height'#2#2#3'Top'#2'@'#5'Width'#3
+  +#245#1#5'Align'#7#5'alTop'#5'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel3'#4
+  +'Left'#2#0#6'Height'#2#2#3'Top'#3#14#1#5'Width'#3#245#1#5'Align'#7#8'alBotto'
+  +'m'#5'Shape'#7#9'bsTopLine'#0#0#5'TEdit'#11'eSvcLibName'#4'Left'#2'w'#6'Heig'
+  +'ht'#2#21#3'Top'#2'}'#5'Width'#3'u'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
+  +'ight'#0#8'TabOrder'#2#1#0#0#5'TEdit'#8'eSvcName'#4'Left'#2'w'#6'Height'#2#21
+  +#3'Top'#3#151#0#5'Width'#3'u'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+  +#8'TabOrder'#2#2#0#0#5'TEdit'#8'ePrjName'#4'Left'#2'w'#6'Height'#2#21#3'Top'
+  +#2'c'#5'Width'#3'u'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrd'
+  +'er'#2#0#0#0#5'TEdit'#7'ePrjDir'#4'Left'#2'w'#6'Height'#2#21#3'Top'#3#241#0#5
+  +'Width'#3'$'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#7
+  +#0#0#5'TEdit'#13'eTemplateName'#4'Left'#2'w'#6'Height'#2#21#3'Top'#2'I'#5'Wi'
+  +'dth'#3'u'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Color'#7#9'clBt'
+  +'nFace'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#6#0#0#7'TBitBtn'#7'BitBtn1'
+  +#4'Left'#3#161#1#6'Height'#2#25#3'Top'#3#239#0#5'Width'#2'K'#7'Anchors'#11#5
+  +'akTop'#7'akRight'#0#7'Caption'#6#7'&Browse'#10'Glyph.Data'#10':'#3#0#0'6'#3
+  +#0#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0
+  +#0#3#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#28#153#206'+'#165#213
+  +#28#157#209#10#138#198#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#191#165#163'MZr'#255#0#255#255#0#255'$'#156#207
+  +#166#238#247'l'#235#248']'#217#240'J'#199#231'9'#184#224' '#160#212#15#145
+  +#202#15#145#201#255#0#255#255#0#255#191#165#163'Wf'#131#18'v'#226'<'#145#220
+  +#255#0#255#12#140#199#153#221#239#139#255#255#128#252#255#130#251#255''#250
+  +#255'y'#243#255'e'#225#247'N'#206#237'<'#186#224'u'#145#160'[f'#129#17'p'#216
+  +'3'#161#255'*'#154#254#255#0#255#18#150#204'Y'#186#222#159#254#255'u'#247#255
+  +'x'#246#255'w'#242#252#137#217#224#135#215#222'{'#226#234#145#188#192'Qh'#137
+  +#19'p'#213'1'#160#255'1'#158#251#255#0#255#255#0#255'&'#165#212'H'#193#230
+  +#159#239#248'y'#246#251#135#216#220#186#202#188#218#188#165#208#181#158#175
+  +#154#140#129'zsAy'#175'2'#163#255'='#172#254#27#156#212#255#0#255#255#0#255
+  +''''#175#222#139#151#161#136#207#226#139#209#211#203#180#173#247#240#221#255
+  +#255#216#255#255#217#250#248#197#207#176#140#196#169#163'M'#193#252'U'#208
+  +#251'A'#193#227#255#0#255#255#0#255'%'#175#225#173'pk]'#188#221#181#166#158
+  +#247#244#238#255#255#255#255#255#227#255#255#212#255#247#193#255#230#165#216
+  +#160#130'o'#212#235'Y'#215#251'h'#226#248#14#144#201#255#0#255'&'#175#225#181
+  +'wm'#164#207#217#206#182#158#255#255#234#255#255#243#255#255#234#255#255#215
+  +#247#220#169#246#201#134#225#184#145#145#192#199'S'#211#251'~'#243#255'('#170
+  +#216#255#0#255'('#176#224#188'n'#255#244#235#213#188#161#255#255#221#255#255
+  +#221#255#255#224#255#250#202#239#189#129#244#189'w'#231#196#154#147#192#196
+  ,'O'#211#251'}'#244#255'V'#213#239#255#0#255'('#175#225#197#136'p'#255#252#248
+  +#202#170#153#254#255#206#255#255#201#248#225#173#240#199#140#243#202#150#255
+  +#235#181#213#175#149#154#201#211'z'#224#254#157#251#255#150#248#255'#'#161
+  +#211'('#176#225#206#145's'#255#250#247#216#196#189#220#197#158#252#229#167
+  +#250#199#130#251#208#139#255#247#224#231#220#206#140#165#170'k'#201#230'_'
+  +#188#224'`'#187#222'l'#196#227')'#161#209'-'#178#226#213#153'u'#255#248#243
+  +#252#251#250#229#209#201#233#202#166#231#197#153#225#194#152#204#181#159#177
+  +#139#136'u'#231#248'm'#237#254#23#157#209#255#0#255#255#0#255#255#0#255#31
+  +#161#217#221#160'w'#255#251#246#255#255#255#255#255#255#255#255#254#251#244
+  +#235#180#131'y'#191'xI'#177'oSP'#192#229'P'#196#231#28#157#208#255#0#255#255
+  +#0#255#255#0#255#255#0#255#226#166'x'#255#255#255#255#255#255#255#255#255#255
+  +#255#255#248#250#252#182#135'z'#226#153'U'#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#231#171'y'#209#146'm'#209#146
+  +'m'#209#146'm'#209#146'm'#209#146'm'#180'~o'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#9'NumGlyphs'#2#0#7'OnClic'
+  +'k'#7#19'sbBrowseForDirClick'#8'TabOrder'#2#5#7'TabStop'#8#0#0#9'TComboBox'
+  +#14'cbMessageClass'#4'Left'#2'w'#6'Height'#2#21#3'Top'#3#209#0#5'Width'#3'u'
+  +#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#12'AutoComplete'#8#5'Ctl3D'
+  +#8#10'ItemHeight'#2#13#9'ItemWidth'#2#0#5'Style'#7#14'csDropDownList'#8'TabO'
+  +'rder'#2#4#0#0#9'TComboBox'#13'cbServerClass'#4'Left'#2'w'#6'Height'#2#21#3
+  +'Top'#3#184#0#5'Width'#3'u'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+  +#12'AutoComplete'#8#5'Ctl3D'#8#10'ItemHeight'#2#13#9'ItemWidth'#2#0#5'Style'
+  +#7#14'csDropDownList'#8'TabOrder'#2#3#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6
+  +'Height'#2')'#3'Top'#3#16#1#5'Width'#3#245#1#5'Align'#7#8'alBottom'#10'Bevel'
+  +'Outer'#7#6'bvNone'#12'ClientHeight'#2')'#11'ClientWidth'#3#245#1#8'TabOrder'
+  +#2#8#0#6'TImage'#6'Image1'#4'Left'#2#5#6'Height'#2' '#3'Top'#2#4#5'Width'#2
+  +' '#7'Anchors'#11#6'akLeft'#8'akBottom'#0#12'Picture.Data'#10#224'W'#0#0#5'T'
+  +'Icon'#214'W'#0#0#0#0#1#0#6#0'00'#0#0#1#0#8#0#168#14#0#0'f'#0#0#0'  '#0#0#1#0
+  +#8#0#168#8#0#0#14#15#0#0#16#16#0#0#1#0#8#0'h'#5#0#0#182#23#0#0'00'#0#0#1#0' '
+  +#0#168'%'#0#0#30#29#0#0'  '#0#0#1#0' '#0#168#16#0#0#198'B'#0#0#16#16#0#0#1#0
+  +' '#0'h'#4#0#0'nS'#0#0'('#0#0#0'0'#0#0#0'`'#0#0#0#1#0#8#0#0#0#0#0#0#9#0#0#0#0
+  +#0#0#0#0#0#0#0#1#0#0#0#1#0#0#0#0#0#0#13#13#13#0#19#19#19#0#28#28#28#0#28#28
+  +'&'#0#19#22'?'#0#31'  '#0'$$$'#0'('''''#0'#$/'#0'''(*'#0'***'#0'2..'#0';..'#0
+  +'()2'#0'/1='#0'333'#0'955'#0'<87'#0'13?'#0';:;'#0'C99'#0'P;:'#0#12#12'H'#0#23
+  +#28'H'#0#10#10'V'#0#10#12'['#0#13#17'X'#0#21#25'Y'#0#28'!A'#0'&*I'#0':<G'#0
+  +'6<U'#0#13#13'm'#0#14#20'f'#0#18#24'm'#0#31'+m'#0#26'){'#0'2<a'#0'"3~'#0'3?p'
+  +#0'@?B'#0'8Be'#0':Ft'#0'CCC'#0'JCB'#0'ADM'#0'LLL'#0'WDC'#0'SKJ'#0'FJY'#0'SSS'
+  +#0'XTT'#0'SU^'#0'[ZZ'#0'iML'#0'iYJ'#0'fYU'#0'm^R'#0'l^\'#0'ncW'#0'sf['#0'AIg'
+  +#0'V[i'#0'EQ{'#0'S\x'#0'^aj'#0'[bz'#0'ccc'#0'jdc'#0'bem'#0'iii'#0'qgc'#0'vk`'
+  +#0'znd'#0'rnm'#0'{lj'#0'~qj'#0'ttt'#0'ztr'#0'{xt'#0'|||'#0#135'i?'#0#218''
+  +#14#0#129'kM'#0#135'ig'#0#130'rm'#0#129'}n'#0#130'us'#0#137'vs'#0#132'zt'#0
+  +#139'zv'#0#130'||'#0#141'{x'#0#144'xv'#0#145'~y'#0#235#135#12#0#254#141#7#0
+  +#254#146#11#0#229#140#21#0#235#147#27#0#254#154#22#0#234#155''''#0#233#161'-'
+  +#0#254#166''''#0#235#166'4'#0#254#173'3'#0#255#179'8'#0#165#140'Z'#0#183#154
+  +'['#0#140#129'z'#0#145#137'z'#0#164#154'y'#0#183#165'o'#0#175#161'v'#0#215
+  +#156'N'#0#208#175'_'#0#238#183'N'#0#252#185'D'#0#233#186'T'#0#240#184'Q'#0
+  +#197#159's'#0#195#169'g'#0#215#191'v'#0#239#181'd'#0#255#192'L'#0#255#198'X'
+  +#0#255#205'd'#0#255#210'j'#0#255#216'v'#0#255#225'~'#0#14#30#132#0#8#12#147#0
+  +#1#3#155#0#10#24#154#0#23'('#134#0',?'#136#0'!;'#158#0#0#4#163#0#4#12#164#0#0
+  +#7#169#0#0#9#172#0#8#19#161#0#0#12#178#0#1#17#185#0#23'4'#171#0#9'('#187#0#19
+  +'3'#185#0'">'#171#0'.A'#137#0'-C'#149#0'.J'#175#0'5N'#165#0'>V'#168#0'&E'#185
+  +#0'2Q'#188#0'JW'#132#0'S_'#132#0']g'#131#0'D\'#170#0'@]'#191#0'H`'#172#0'Vj'
+  +#167#0'Nh'#185#0'Sm'#186#0#2#29#200#0#0#30#215#0#6'$'#198#0#14'3'#203#0#23'<'
+  +#200#0#0'!'#221#0#7'5'#234#0#16'='#231#0#0'/'#248#0#7'9'#254#0#16'?'#243#0#23
+  +'@'#219#0'$F'#197#0'%K'#213#0'0T'#211#0#22'B'#231#0#21'G'#254#0#31'P'#255#0
+  +'.X'#233#0'(X'#255#0'8g'#254#0'Gf'#198#0'Dj'#224#0'Kr'#230#0'Co'#245#0'Cq'
+  +#253#0#130#130#129#0#139#134#130#0#138#138#138#0#148#136#134#0#151#144#135#0
+  +#154#146#140#0#148#147#147#0#156#145#148#0#158#154#151#0#155#154#154#0#162
+  +#149#147#0#165#152#150#0#163#157#158#0#170#157#155#0#175#161#159#0#166#158
+  +#165#0#162#162#162#0#173#165#164#0#173#167#169#0#173#171#170#0#180#169#166#0
+  +#180#175#173#0#184#171#169#0#181#174#178#0#185#181#183#0#202#180#157#0#224
+  +#183#130#0#201#182#166#0#194#183#181#0#196#184#183#0#196#188#187#0#202#191
+  +#188#0#251#207#142#0#227#208#132#0#255#221#128#0#238#203#149#0#235#222#147#0
+  +#254#227#136#0#254#235#151#0#255#244#156#0#201#192#191#0#220#203#183#0#242
+  ,#211#167#0#248#238#163#0#254#243#166#0#255#227#181#0#255#250#177#0#194#189
+  +#197#0#201#197#197#0#213#206#205#0#206#202#208#0#208#206#208#0#214#212#214#0
+  +#220#212#211#0#221#218#219#0#231#222#211#0#227#220#219#0#250#231#202#0#230
+  +#224#222#0#228#227#227#0#233#229#227#0#234#233#233#0#249#247#247#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'K/'#2#2#1#1#1#1',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#191#17#3#3#2#2#2#2#1
+  +#2#1#1#1#1#1#2#11'/NQNNQQ'#193#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'K'#3
+  +#6#3#3#3#3#2#3#2#2#1#1#1#1#2#3#6#8#11#12#16#16#16#11#16')3K'#200#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#191#6#6#6#6#6#3#3#3#3#2#2#2#2#2#2#2#3#11'K'#196#208#211
+  +#204#196']M;1'#16#16'3'#193#0#0#0#0#0#0#0#0#0#0#0#0#0#0')'#11#11#11#6#11#6#6
+  +#3#6#5#27#27#27#25#25#23#4'D'#221#247#245#244#240#222#213#201'_[[V1'#11'6'#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#11#11#11#11#11#11#6#6#6#6#4'"'#141#141#141#138#133
+  +'!3'#247#251#251#252#239'\KEEMYYY_-)'#197#0#0#0#0#0#0#0#0#0#0'Q'#16#16#11#11
+  +#11#11#8#11#6#8#6#6#5#143#141#138#138#133#27'P'#253#252#253#239'3'#191'\'#191
+  +#191'6,VY];)'#0#0#0#0#0#0#0#0#0#0#191#16#16#16#16#16#11#11#11#11#8#6#6#6#28
+  +#143#143#141#139#132'!)'#245#253#253#209'D'#251#201#205#219#219'E-_Y'#17'D'#0
+  +#0#0#0#0#0#0#0#0#0')'#16#16#16#16#12#12#11#11#11#11#11#6#8'#'#144#143#139#132
+  +'#'#30#9')'#200#221#191','#194'UU^'#194'H-M'#17')'#0#0#0#0#0#0#0#0#0#0')'#16
+  +')'#16#16#16#16#16#12#11#11#11#11#8#6#28#144#144#142#28#12')'#20#16#17')'#16
+  +#12#13#13#21#22'70'#8#8#6#2#0#0#0#0#0#0#0#0#0'/)'#17#17')'#16#16#16#16#16#12
+  +#11#11#11#11#11#6#28#144#24','#196#192#215#215#203#194'XVVVE1-'#12#3#11#11#6
+  +#11#0#0#0#0#0#0#0#193')))'#17#17')'#17#16#16#16#16#12#11#11#11#11#11#8#8#10
+  +#209#200'9'#226#236#248#246#239#215#206#198#201#202#202#201'K,'#11#11#6'/'#0
+  +#0#0#0#0#0',)'#20#20#20#20#20#17#20#16#16#16#16#12#11#11#11#8#6#10#6#221#203
+  +':`bbhv'#223#233#232#220#215#214#220#221#199'/'#11#11'D'#0#0#0#0'N,,,),'#20
+  +#20#20#17#17#17#16#16#16#12#11#11#11#11#8#10#221#209'=`bbbaabbek|'#217#216
+  +#214#238#241#200#17#16#191#0#0#0'/-,,,,'#20','#20#20#20#16#16#16#16#14#12#12
+  +#11#11#11#8#239#214'I`bbbeeeeeebbefsy'#216#214#16'K'#0#0#200'//,,,,,'#20'&'
+  +#145#168#147''''#16#16#16#12#12#12#10#11#8#242#215'J`eehhhhhhhhhbbbbS]),'#0#0
+  +'D///-,,,'#149#174#174#174#174#174#145#16#16#16#14#12#12#10#10#243#238'Mdehh'
+  +'hhkjkhhhhheb`J)'#11#0#0'//////,.'#175#174#174#174#174#173#173''''#16#16#16
+  +#12#11#16#8#245#239'Wdhhjkvvvvvvkhhhe`J'#20#6#0#0'33///,/+'#181#181#174#174
+  +#174#173#174#146#20#17#16#16#16#11#8#250#242'Zgjkv}}}}}}vvvjhhcH)'#6'Q'#193
+  +'33////,+'#181#174#181#174#174#174#174#168#17#16#16#16#16#16#7#252#243'ngk}}'
+  +'~~~~}vvjhd='#17#10'3N3333///>'#181#181#181#174#174#174#174#145#20#20#20
+  +#16#16#16#7#252#245'nkv}~'#128#128#128#128#128'}}kkf<'#20#8')63333////'
+  +#178#181#181#181#174#174#175' '#20#20#16#16#16#16#10#252#245'ou}~'#128#128
+  +#129#129#129#129#129#128#128'}}kf<'#16#8#2'6633333//2'#178#181#181#181#175
+  +'('#20#20#20#20#20#20#16#7#252#250#195'u~'#128#129#129#228#228#228#225#129
+  +#128#128'~}vg8'#16#10#2'6663333////>++))),'#20#20#20#16#20#10#252#250#195'u~'
+  +#128#129#130#228#229#229#229#228#228#129#128'~vi8'#16#10#3'666633333///.,,,'
+  +',,'#20','#20#20#20#10#252#250#195'w'#128#130#228#229#229#234#234#229#228
+  +#225#128#128'~}i8'#16#8#3'6D6663333//////,,,,'#20#20#20#20#10#252#252#197'u'
+  +#128#128#130#228#230#235#237#235#229#229#225#128#128'~}i8'#16#8#3'D666663333'
+  +'3//,/,,,,,'#20#20#20#10#252#250#199'lmmt{'#224#227#234#235#230#228#130#129
+  +#128'~}i8'#16#11#3'QDD66663333//////,,,,,'#20#10#252#252#242#215#212#210#200
+  +#193'PWoprqztwuvg:'#16#11','#197'D6D666633333///,/,,,'#20','#10#239#253#252
+  +#253#253#253#252#245#240#231#212#203#199#193#193'XE<TR='#16#11'3'#0'DDD6D666'
+  +'3333////,/*.,'#20#11#14#30'.5N'#191#197#199#210#215#231#231#238#222#219#213
+  +#204#199#192'\V'#12#8#193#0'DDDD6666633333//>'#177#181#181#150',*'#172#171
+  +#171#147#30#11#11#8#11#8#14#17'.4EKOX'#192'M'#17#8#3#0#0'QDDDD6D6A'#159#156
+  +'533//'#152#182#181#181#181#180#175#174#174#137#31#16#20#20#16#16#16'$'#165
+  +#146#134#131'#'#29#6#8#6#6#6#20#0#0#209'GDDDD6A'#189#185#185#160'3333'#155
+  +#182#182#181#181#181#174#181#169','#20#20#20#16#20#16#16#16#167#170#170#170
+  +#165#14#6#8#6#6#6#191#0#0#0'GGDDDB'#189#185#185#185#185'?333'#179#182#182#182
+  +#181#181#181#174#174','#20#20#20#20#20#16#20#16#15'%'#135'%'#14#11#11#8#6#8#6
+  +#0#0#0#0#193'KDDD'#162#190#190#190#185#185#160'55'#156#183#184#182#182#182
+  +#181#181#182#181#176#148#137' '#20#20#16#20#16#16#17#12#12#11#11#11#8#8#6'G'
+  +#0#0#0#0#0'GGGDB'#188#190#190#185#185#185#185#184#184#184#184#184#184#182#182
+  +#181#181#181#174#181#174#169#20#20#20#20#16#17#16#16#16#12#11#11#11#8#8#0#0#0
+  +#0#0#0#207'GGGD'#158#189#190#190#190#185#185#185#185#184#184#184#184#182#182
+  +#182#181#181#181#174#181#180#20#20#20#20#16#20#16#16#16#14#12#12#11#11'Q'#0#0
+  +#0#0#0#0#0'NGGGD'#158#190#190#190#190#185#185#185#185#185#184#184#184#182#182
+  +#182#181#181#181#174#149',,'#20#20#20#16#20#16#16#16#12#12#12#20#0#0#0#0#0#0
+  ,#0#0#0'KGGDG'#158#190#190#190#190#185#185#185#184#185#184#184#184#182#182#182
+  +#182#181#181',,,. '#20#20#16#20#16#16#16#14#11#0#0#0#0#0#0#0#0#0#0#0'GKGDK'
+  +#158#188#190#190#190#185#185#185#184#185#184#184#184#182#182#182#181#181#154
+  +'.'#149#172#174#137#20#20#16#20#16#16#16#0#0#0#0#0#0#0#0#0#0#0#0#207'GKGDDG'
+  +#164#190#190#190#185#185#185#184#185#184#184#184#184#182#182#182#181#181#174
+  +#181#174#137#20#20#20#16#20#16#191#0#0#0#0#0#0#0#0#0#0#0#0#0#207'GGGGGD'#158
+  +#186#190#190#185#185#185#185#184#185#184#184#182#182#182#181#181#181#177'*,'
+  +#20','#20#20#16#191#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'KGGDDDDC'#163#187#190#185
+  +#185#184#185#184#184#184#182#182#178#151'>,,,,'#20#20#20#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0'NGGGDDDD6?'#157#161#161#159#153#153#153'@2//,/,,,,/'#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#207'GGGDDDDD66653333////,/,,'#193#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#197'DGDDD6D666633333///,Q'#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#209'NDDDD666663333/F'#200#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#197'QD666'
+  +'66Q'#191#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#224#7#255#255#0#0#255
+  +#254#0#0#0#255#0#0#255#248#0#0#0#31#0#0#255#224#0#0#0#15#0#0#255#192#0#0#0#15
+  +#0#0#255#128#0#0#0#7#0#0#254#0#0#0#0#15#0#0#252#0#0#0#0#15#0#0#252#0#0#0#0#31
+  +#0#0#248#0#0#0#0#31#0#0#240#0#0#0#0#15#0#0#224#0#0#0#0#7#0#0#224#0#0#0#0#3#0
+  +#0#192#0#0#0#0#1#0#0#192#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0
+  +#128#0#0#0#0#1#0#0#128#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#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#0#0#0#0#0#128#0#0#0#0#1
+  +#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0#192#0#0#0#0#3#0#0#192#0#0#0#0#3#0#0
+  +#224#0#0#0#0#7#0#0#224#0#0#0#0#7#0#0#240#0#0#0#0#15#0#0#248#0#0#0#0#31#0#0
+  +#252#0#0#0#0'?'#0#0#252#0#0#0#0'?'#0#0#254#0#0#0#0''#0#0#255#128#0#0#1#255#0
+  +#0#255#192#0#0#3#255#0#0#255#224#0#0#7#255#0#0#255#248#0#0#31#255#0#0#255#254
+  +#0#0''#255#0#0#255#255#224#7#255#255#0#0'('#0#0#0' '#0#0#0'@'#0#0#0#1#0#8#0
+  +#0#0#0#0#0#4#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1#0#0#0#0#0#0#12#12#12#0#18#19#19
+  +#0#23#24#24#0#28#28#28#0#23#24'"'#0'$$$'#0'+++'#0'1..'#0'10/'#0'-.0'#0'322'#0
+  +'865'#0';;;'#0'E66'#0'E<;'#0#23#27'E'#0#20#23'M'#0#11#12'['#0#19#25'R'#0#16
+  +#21']'#0#21#27'\'#0#29'!A'#0'#+J'#0'=<A'#0':=I'#0'+3Y'#0'39R'#0#9#17'z'#0#25
+  +'-v'#0')5h'#0'3<b'#0'<BW'#0'>D['#0':Fu'#0'=Iw'#0'CBC'#0'LED'#0'EDK'#0'IGH'#0
+  +'KKK'#0'RKJ'#0'ZON'#0'[RO'#0'BEQ'#0'IKU'#0'NPY'#0'SSS'#0'YSS'#0'RU_'#0'ZZZ'#0
+  +'hOM'#0'hWU'#0'j^]'#0'zjZ'#0'CLm'#0'\^e'#0'ccc'#0'iff'#0'jjj'#0'~db'#0'}ng'#0
+  +'ulk'#0'}mj'#0'~rk'#0'agx'#0'ssr'#0'{vw'#0'{xw'#0'}{{'#0#167'B'#0#129'o`'#0
+  +#133'uo'#0#138'wt'#0#139'|v'#0#129'~'#0#137'{z'#0#144'}x'#0#186#130'5'#0#181
+  +#131'<'#0#220#128#15#0#220#129#17#0#220#136#24#0#254#143#9#0#255#149#5#0#254
+  +#147#11#0#247#146#19#0#254#154#19#0#254#158#27#0#254#161#28#0#220#144'#'#0
+  +#221#151'-'#0#222#158'7'#0#231#147'*'#0#254#163'"'#0#255#171'+'#0#248#165'3'
+  +#0#255#173'2'#0#255#175'8'#0#255#179'3'#0#254#180':'#0#255#188':'#0#172#130
+  +'B'#0#177#131'A'#0#161#136'U'#0#184#154'W'#0#139#128'~'#0#145#131'|'#0#150
+  +#144''#0#157#149'{'#0#175#157'm'#0#184#159'b'#0#164#153'v'#0#222#164'A'#0
+  +#222#171'L'#0#201#164'X'#0#222#178'P'#0#225#175'O'#0#255#183'A'#0#255#186'C'
+  +#0#254#182'O'#0#255#191'L'#0#231#169'Q'#0#201#172'd'#0#196#163'z'#0#211#170
+  +'v'#0#244#187'h'#0#255#194'B'#0#255#192'N'#0#255#196'S'#0#255#198'X'#0#255
+  +#202'\'#0#222#198'x'#0#255#205'd'#0#255#208'b'#0#255#216'f'#0#255#210'j'#0
+  +#255#213's'#0#255#217'v'#0#255#217'x'#0#255#225'z'#0#4#8#140#0#24'0'#137#0#0
+  +#5#165#0#0#9#171#0#0#12#177#0#0#15#184#0#27'9'#170#0#17'1'#187#0'7J'#141#0','
+  +'B'#149#0'4J'#153#0'-F'#163#0'8Q'#167#0'<T'#168#0'/M'#188#0'HZ'#149#0'Uf'#156
+  +#0'`h'#130#0'Vj'#167#0#21'8'#194#0#24';'#195#0#21':'#202#0#6'/'#222#0#18'>'
+  +#231#0#3'2'#240#0#13'<'#242#0#1'4'#253#0#7':'#255#0#12'>'#255#0'"J'#221#0'8_'
+  +#223#0'<b'#223#0#20'B'#243#0#24'G'#243#0#18'D'#255#0#28'M'#255#0' J'#232#0'('
+  +'S'#233#0'''X'#255#0'<e'#234#0'<h'#244#0'3c'#255#0'<k'#255#0'Jg'#194#0'In'
+  +#225#0'Lr'#225#0'Er'#250#0#131'~'#129#0#129#128#128#0#140#134#133#0#140#139
+  +#139#0#146#138#132#0#150#141#141#0#155#140#139#0#156#147#139#0#145#144#146#0
+  +#155#146#147#0#159#149#154#0#158#152#154#0#160#150#149#0#160#152#146#0#164
+  +#156#154#0#172#156#152#0#169#162#158#0#167#167#167#0#171#166#163#0#175#171
+  +#164#0#173#166#170#0#179#166#166#0#177#175#171#0#187#175#172#0#177#176#175#0
+  +#186#182#187#0#188#188#188#0#226#187#136#0#201#180#164#0#206#186#165#0#194
+  +#183#180#0#196#188#188#0#202#189#186#0#218#192#154#0#237#218#140#0#255#222
+  +#129#0#255#225#133#0#254#228#138#0#255#235#139#0#254#230#145#0#240#229#157#0
+  +#254#236#153#0#255#240#153#0#248#238#163#0#255#246#170#0#192#186#192#0#197
+  +#196#197#0#202#196#196#0#206#201#199#0#196#197#201#0#213#201#198#0#213#208
+  +#207#0#222#211#201#0#207#207#208#0#213#207#208#0#209#208#208#0#220#215#215#0
+  ,#220#219#219#0#224#221#221#0#246#226#201#0#226#222#224#0#227#227#230#0#235
+  +#230#229#0#238#236#236#0#244#243#245#0#252#247#246#0#254#254#254#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0'/'#6#2#1#1#1#6#9#13'(/)%$(E'#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +'2'#4#4#4#2#2#2#2#2#9#191#219#235#220#209#194'I?+'#12#0#0#0#0#0#0#0#0#0#0';'
+  +#6#6#6#4#4#4#4#2#2#24#238#251#250#239#202#192'LIJM?'#13#0#0#0#0#0#0#0#0#13#10
+  +#10#6#6#6#4#20#144#143#18'K'#253#252#246'BCEB+5Ik%'#0#0#0#0#0#0#0#9#9#10#10#6
+  +#6#6#6#16#145#144#141'$'#246#254#234'E'#238#203#211#204')H?'#8#0#0#0#0#0#0#13
+  +#9#9#9#10#10#7#6#6#21#146#28#17#5'$K;$43<I))'#8#0#0#0#0#0#0''''#13#13#9#9#9
+  +#10#7#7#6#22#19'$>'#188'C5+*)%'#15#14#6#1#2#0#0#0#0#0'C'#13#13#13#13#12#9#9
+  +#10#7#7#6'$'#210'@'#221#247#240#220#209#198#198#197#190'>'#24#3'$'#0#0#0#0'$'
+  +#24#24#13#13#12#12#9#9#10#10#6'/'#234'?QW^bx~'#215#217#218#219#213#198'/$'#0
+  +#0'C$''$'#24#13#13#12#12#9#9#10#7'/'#241'HPSSSSSWX`z}'#216#235#196#13#0'('''
+  +'''$$'#31#161#165#148#26#9#9#10'/'#246'JQWWX^^XXXSWV]|8'#0'(('''','#166#168
+  +#168#167#163#12#9#9'2'#249'kRX^__aaa_^YWTN1E/((''"'#175#169#168#167#167#30#12
+  +#9'2'#251#192'Z_advwwvdd_^WO.9//((#'#175#169#169#168#167#27#12#12'8'#252#195
+  +'[aw'#128#129#130#130#129#128'wd_YO-/2//(('#170#176#169#169#161#24#13#12'2'
+  +#254#201'\'#129#131#133#133#136#133#131#129'wd_g''22///(.'#151#152#150'$'#24
+  +#24#13'2'#254#202'q'#129#131#136#137#138#137#137#136#133#129'wcg&222/2/((('''
+  +''''#24#24#24'2'#254#204'r'#131#136#137#223#224#225#223#138#136#131#129'ef'
+  +#24'9222///((''''$$'#13'2'#254#206'r'#134#137#223#225#229#229#227#224#137#134
+  +#129'F'#24';9222///((($$$2'#254#209't'#135#138#225#229#232#232#229#225#139
+  +#136#130'f'#24#191'992222//(((,!2'#254#210'hi{'#132#222#228#231#230#226#140
+  +#136#131'f'#24#0'9992222//(7'#178#175'9'#254#246#237#213#205#201#192'lmpnos'
+  +'uvf$'#0';9998'#181#182#156'//'#153#176#176' '#205#214#243#246#246#246#244
+  +#243#219#208#199#193'k@6G('#0#191':99'#185#183#183#180'2('#154#179#176#147
+  +#142#29#23#10#13'''+;E'#190#193#200#202#200#194'>'#9#0#0';:9'#186#187#183#183
+  +#171#171#182#179#179#176#176#175#175#169#162#13#9#9#10#6#6#10#6#9#9'/'#0#0#0
+  +#196'::A'#187#187#183#183#183#182#179#179#179#176#176#175#175#164#24#24#13#9
+  +#13#9#10#8#10'2'#0#0#0#0#0'C::'#158#187#187#183#183#182#182#179#179#176#176
+  +#176#175#150'$'#25#25#13#12#12#9#9#13#0#0#0#0#0#0#0':;:A'#186#187#183#183#182
+  +#182#179#182#179#176#176#174#150#173#166#31#13#12#12#9#0#0#0#0#0#0#0#0#0';;:'
+  +';'#159#187#183#183#182#182#179#179#179#176#176#175#173#150#13#13#13#12#0#0#0
+  +#0#0#0#0#0#0#0#0'B::99'#157#184#180#183#182#179#179#178#155#149'''$$'#24''''
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#196';:999222///(((''$;'#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#196';9992222//((B'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#191':922'
+  +'22'#189#0#0#0#0#0#0#0#0#0#0#0#0#255#240#0#15#255#128#0#7#254#0#0#3#252#0#0#3
+  +#248#0#0#3#240#0#0#7#224#0#0#7#192#0#0#3#192#0#0#1#128#0#0#0#128#0#0#0#128#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#128#0#0
+  +#0#128#0#0#0#128#0#0#0#192#0#0#1#192#0#0#3#224#0#0#7#240#0#0#15#248#0#0#31
+  +#252#0#0'?'#254#0#0''#255#128#1#255#255#240#15#255'('#0#0#0#16#0#0#0' '#0#0
+  +#0#1#0#8#0#0#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1#0#0#0#0#0#0#13#13#13#0
+  +#18#18#18#0#25#26'*'#0#29#31'4'#0'!!!'#0'&&&'#0'$%+'#0'***'#0'**,'#0',,,'#0
+  +'000'#0'555'#0':77'#0'999'#0'99<'#0'==='#0#10#11'P'#0#10#14']'#0'(.J'#0'>>@'
+  +#0'16J'#0'#,Z'#0'(2_'#0'6=Z'#0':=\'#0#18#26'n'#0'CCC'#0'CCD'#0'BCH'#0'HHH'#0
+  +'MMM'#0'EHV'#0'RRR'#0'WWW'#0'PS_'#0'\\\'#0'j]['#0'k^]'#0'GNf'#0'\]`'#0'_cn'#0
+  +'bbb'#0'eee'#0'gbh'#0'fgj'#0'jhh'#0'mmm'#0'qca'#0'qff'#0'poo'#0'qqq'#0'ttt'#0
+  +'|||'#0#152'|X'#0#131'tq'#0#128'xr'#0#133'{y'#0#133'|{'#0#249#143#12#0#249
+  +#155#27#0#254#158#28#0#202#133'-'#0#199#140'5'#0#198#145'='#0#254#157' '#0
+  +#254#170','#0#254#174'3'#0#249#177':'#0#255#182'>'#0#170#148'r'#0#197#148'B'
+  +#0#248#171'D'#0#225#185'^'#0#226#169'b'#0#250#194'U'#0#255#196'U'#0#255#199
+  +'Z'#0#255#202'^'#0#255#207'e'#0#255#216'v'#0#254#217'x'#0#12#15#129#0'+<'#130
+  +#0'''<'#144#0' 1'#154#0#0#11#175#0#25'5'#165#0'>O'#139#0'.H'#169#0'>V'#169#0
+  +'=W'#178#0'I]'#159#0'Qa'#149#0'Wh'#156#0'E]'#171#0'Sk'#180#0#24';'#193#0#19
+  +'9'#210#0#7'2'#225#0#7'9'#254#0#30'B'#201#0#27'B'#213#0#26'B'#217#0#23'B'#229
+  +#0#27'J'#247#0#16'A'#255#0#25'J'#255#0'"S'#255#0'+['#255#0'5d'#255#0'?l'#249
+  +#0'>m'#255#0'B`'#193#0'No'#208#0#133#132#132#0#141#141#141#0#155#141#139#0
+  +#145#145#145#0#149#149#149#0#159#152#149#0#154#152#154#0#159#158#158#0#162
+  +#149#136#0#161#152#150#0#174#167#159#0#176#164#146#0#166#167#171#0#174#170
+  +#169#0#178#172#170#0#179#177#179#0#204#169#132#0#194#189#187#0#197#191#190#0
+  +#241#215#130#0#254#225#134#0#254#230#140#0#251#240#163#0#202#199#196#0#205
+  +#204#202#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#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#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#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
+  +#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#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#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'/'#12#2#1#10'+55'#0#0#0#0#0#0'4'#6#6#3
+  +#18#17'/'#132'|7%2'#0#0#0'"'#12#10#6#4'VRyzu90s'#0#0'5'#14#12#10#10#7#26',{9'
+  +'0&'#12'$'#0#0#27#14#14#12#10#10#6'x;AHJ'#131'8ts'#30#27'ac'#23#12#10#128'<B'
+  +'CB<>++'#30' jdW'#12#10#132'DLNMD?'#14'$"'#30'Ye'#24#14#12#138'LP'#135'QN@'#6
+  +'$""'#30#30#27#14#12#139'I'#134#137#136'NG'#10'4$""'#30#30#29#14''#130#128
+  +'}~F6'#14'v+$\#''ieb'#21#12#22'U'#25#14'4'#0'+^pq[lihT'#14#12#19#10#6#0#0'v/'
+  +'rpnmlig'#20#14#12#11'4'#0#0#0'5,`pnmligS'#14'"'#0#0#0#0#0'v.)]_ZX '#27'5'#0
+  +#0#0#0#0#0#0#0't4$"+s'#0#0#0#0#0#248#7#0#0#224#1#0#0#192#1#0#0#128#1#0#0#128
+  +#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#128#1#0#0#128#1#0#0
+  +#192#3#0#0#224#7#0#0#248#31#0#0'('#0#0#0'0'#0#0#0'`'#0#0#0#1#0' '#0#0#0#0#0
+  +#128'%'#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#0#0#0#0#0#0#0#0#0#0#0#25#25#25'/'#23#23#23'o'#22#22#22#159#20#20#20#191
+  +#18#18#18#255#16#16#16#255#15#15#15#255#13#13#13#255#11#11#11#255#10#10#10
+  +#255#8#8#8#191#8#8#8#161#9#9#9'u'#20#20#20'A444%4443444<444A444D444D444B444='
+  +'4445444''444'#24'444'#12'444'#5'444'#2#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'   '#31#30#30#30#143#28#28#28#223#26#26#26#255#25#25
+  +#25#255#23#23#23#255#21#21#21#255#20#20#20#255#18#18#18#255#16#16#16#255#15
+  +#15#15#255#13#13#13#255#11#11#11#255#11#11#11#255#12#12#12#255#14#14#14#255
+  +#19#19#19#255#27#27#27#237'$$$'#205'000'#169'444'#167'444'#172'444'#173'444'
+  +#168'444'#160'444'#145'444w444Q444/444'#24'444'#9'444'#3#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'$$$/###'#175'!!!'#255#31#31#31#255#30#30#30#255#28#28#28#255
+  +#26#26#26#255#25#25#25#255#23#23#23#255#21#21#21#255#20#20#20#255#18#18#18
+  +#255#16#16#16#255#15#15#15#255#14#14#14#255#15#15#15#255#19#19#19#255#26#26
+  +#26#255'"""'#255'''''&'#255'***'#255'/..'#255'444'#254'432'#253'/..'#252',++'
+  +#250'+++'#246'+,,'#234'000'#209'444'#180'444'#130'444A444'#29'444'#9'444'#2#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'***'#15'((('#143'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31#31#255
+  +#30#30#30#255#28#28#28#255#26#26#26#255#25#25#25#255#23#23#23#255#21#21#21
+  +#255#20#20#20#255#18#18#18#255#16#16#16#255#17#17#17#255#19#19#19#255#31#31
+  +#31#255'---'#255'kgg'#255#151#145#144#255#173#165#164#255#178#169#166#255#171
+  +#159#157#255#158#144#142#255#139'{y'#255'}lj'#255'l^\'#255'RIH'#255'-**'#244
+  +'*++'#245'000'#208'444'#146'444?444'#22'444'#4#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'---?+++'#239')))'#255'((('
+  +#255'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31#31#255#30#30#30#255#26#27'%'
+  +#255#19#22'?'#255#13#17'X'#255#11#14'^'#255#10#12'['#255#9#10'X'#255#10#10'V'
+  +#255#12#12'H'#255#30#30''''#255'_]\'#255#194#189#188#255#230#224#222#255#225
+  +#218#217#255#220#212#211#255#215#206#203#255#202#191#188#255#184#171#169#255
+  +#164#149#145#255#145'{'#255#140'xu'#255#143'zw'#255#132'so'#255'TKI'#255'**'
+  +'*'#250'000'#201'444t444$444'#5#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'000o...'#255'---'#255'+++'#255')))'#255'((('#255
+  +'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31#31#255#28#29''''#255#14#20'f'#255
+  +#0#9#173#255#0#7#169#255#0#5#165#255#0#3#161#255#1#2#155#255#13#13'm'#255'RQ'
+  +'P'#255#229#222#221#255#234#230#227#255#233#229#227#255#237#233#233#255#201
+  +#197#196#255#128'}{'#255'olk'#255'jfe'#255'kcb'#255'yli'#255#138'ws'#255#137
+  +'vt'#255#137'wt'#255#145'}y'#255'KDB'#255'***'#233'444'#133'444*444'#5#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'333'#159'222'#255
+  +'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255'###'
+  +#255'!!!'#255#31#31#31#255#22#26'C'#255#0#11#177#255#0#9#173#255#0#7#169#255
+  +#1#6#163#255#2#5#156#255#16#16'^'#255'zxw'#255#247#242#240#255#238#235#235
+  +#255#252#251#251#255#196#194#194#255'UTT'#255#135#132#132#255#130'}}'#255#135
+  +#132#131#255#131#129#128#255'][['#255'FA@'#255#129'pm'#255#136'vs'#255#143'{'
+  +'x'#255'fYW'#255'((('#232'444g444 444'#5#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'777'#159'555'#255'333'#255'222'#255'000'#255'...'#255'-'
+  ,'--'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255'!!!'#255#20#25
+  +'Y'#255#0#13#181#255#0#11#177#255#1#10#170#255#4#10#161#255#8#12#147#255#17
+  +#19'k'#255'==C'#255#222#218#218#255#255#255#255#255#255#255#255#255#165#165
+  +#165#255'cbb'#255#231#225#224#255#166#151#147#255#175#161#159#255#189#178#176
+  +#255#196#184#183#255'lhh'#255'LEC'#255#145'~y'#255#138'xu'#255'<76'#255'((('
+  +#182'4443444'#18'444'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0':::o'
+  +'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'
+  +#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255#16#25'o'#255#0#16#185#255#1
+  +#14#178#255#4#14#167#255#10#17#150#255#20#24'o'#255' "O'#255'#$/'#255'9::'
+  +#255#150#150#150#255#187#187#187#255#128#129#129#255'HBA'#255#157#136#135#255
+  +#131'db'#255#139'nl'#255#144'xv'#255#153#134#130#255'rge'#255'KDC'#255'yjh'
+  +#255'955'#255'"""'#220'+++=444'#26'444'#8'444'#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0'===?;;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'
+  +#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255
+  +#24#30'T'#255#0#18#190#255#2#17#181#255#8#19#161#255#25#28'W'#255'--1'#255'@'
+  +'?B'#255'=9='#255':55'#255':65'#255'<87'#255'844'#255'2.-'#255'4..'#255';..'
+  +#255'C33'#255'P;:'#255'iML'#255'WDC'#255'('''''#255'***'#255#31'  '#255#17#17
+  +#17#255#27#27#27'h444'#24'444'#9'444'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'AAA'
+  +#15'???'#239'==='#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255
+  +'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'
+  +#255#22#29'^'#255#2#19#184#255#25#30'M'#255'CCC'#255#144#137#136#255#145#134
+  +#131#255#188#184#191#255#184#177#182#255#166#156#158#255#150#136#136#255#135
+  +'vu'#255'mk'#255#129'rn'#255#128'tr'#255'jdb'#255'TON'#255'D??'#255'-**'#255
+  +#28#29#29#255'+++'#255'((('#255'!!!'#255#24#24#24#237',,,H444 444'#14'444'#5
+  +#0#0#0#0#0#0#0#0#0#0#0#0'BBB'#159'@@@'#255'???'#255'==='#255';;;'#255':::'
+  +#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255
+  +'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255'$$$'#255'%%%'#255#175#175#173
+  +#255#160#151#150#255'gYS'#255#238#203#149#255#255#227#181#255#250#231#202#255
+  +#231#222#211#255#207#199#198#255#186#181#187#255#166#158#165#255#157#145#149
+  +#255#160#146#146#255#166#152#150#255#169#156#153#255#164#153#151#255'ton'#255
+  +'CAA'#255'***'#255')))'#255'%%%'#255'&&&'#210'444W444*444'#17#0#0#0#0#0#0#0#0
+  +'EEE/DDD'#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'#255
+  +'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'
+  +#255'((('#255'&&&'#255'%%%'#255'&&&'#255#183#183#182#255#165#159#159#255'n^S'
+  +#255#239#136#11#255#255#147#12#255#255#150#17#255#255#159#31#255#255#181'C'
+  +#255#255#198'l'#255#251#207#142#255#242#211#167#255#220#203#183#255#194#186
+  +#184#255#183#177#186#255#181#173#180#255#191#182#183#255#196#186#186#255#158
+  +#152#151#255'MKK'#255'))*'#255')))'#255'111'#187'444b444$'#0#0#0#0#0#0#0#0'G'
+  +'GG'#191'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255':::'
+  +#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255
+  +'+++'#255')))'#255'((('#255''''''''#255'&&&'#255#191#191#191#255#173#167#169
+  +#255'sdY'#255#238#137#13#255#255#145#10#255#254#144#10#255#254#143#9#255#254
+  +#142#7#255#254#140#5#255#255#145#10#255#255#150#16#255#255#156#25#255#252#171
+  +';'#255#239#181'd'#255#224#183#130#255#202#180#157#255#189#178#176#255#194
+  +#189#197#255#206#202#208#255#157#154#157#255'655'#255'***'#247'444'#158'4447'
+  +#0#0#0#0'JJJ'#31'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'
+  +#255'==='#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255
+  +'000'#255'...'#255'---'#255'+++'#255')))'#255')))'#255''''''''#255#199#199
+  +#198#255#182#177#178#255'wh]'#255#238#138#13#255#255#146#12#255#254#146#14
+  +#255#254#150#17#255#254#153#21#255#254#154#24#255#254#156#24#255#254#156#24
+  +#255#254#156#23#255#255#152#17#255#255#150#13#255#255#150#16#255#252#150#19
+  +#255#239#154')'#255#215#156'N'#255#197#159's'#255#201#182#166#255#180#175#173
+  +#255'222'#255'111'#182'444D'#0#0#0#0'LLL'#143'JJJ'#255'III'#255'GGG'#255'EEE'
+  +#255'DDD'#255'BBB'#255'@@@'#255'???'#255'2<a'#255#23'7'#181#255#14'3'#203#255
+  +#17'2'#188#255'"3~'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255
+  +'+++'#255'***'#255''''''''#255#207#207#207#255#189#184#187#255'zmb'#255#238
+  +#139#15#255#255#152#17#255#254#154#24#255#254#159#29#255#254#163'!'#255#254
+  +#164'$'#255#254#165'&'#255#254#166''''#255#254#166''''#255#254#164'$'#255#254
+  +#163'"'#255#254#159#29#255#255#156#23#255#255#151#15#255#255#145#9#255#255
+  +#145#10#255#218''#14#255#136'w'#255'==>'#255'***'#219'444F'#0#0#0#0'NNN'
+  +#223'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255',?'#136
+  +#255#7'9'#255#255#4'6'#255#255#1'4'#254#255#0'1'#252#255#0'/'#248#255#20'1'
+  +#173#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255',,,'#255''''''
+  +''''#255#213#213#213#255#197#192#194#255'rg'#255#238#145#22#255#255#159#27
+  ,#255#254#163'"'#255#254#166'('#255#255#170'-'#255#255#173'0'#255#255#175'3'
+  +#255#255#176'4'#255#255#175'4'#255#255#173'1'#255#255#171'.'#255#255#167'*'
+  +#255#254#164'$'#255#254#159#30#255#254#154#23#255#255#151#15#255#230#129#7
+  +#255'~si'#255'<;<'#255'&&&'#245'444FQQQ/OOO'#255'NNN'#255'LLL'#255'JJJ'#255
+  +'III'#255'GGG'#255'EEE'#255'@DO'#255#16'?'#243#255#10'<'#255#255#7'9'#255#255
+  +#4'6'#255#255#1'4'#254#255#0'1'#252#255#0'/'#248#255'"3~'#255'555'#255'333'
+  +#255'222'#255'000'#255'...'#255'---'#255''''''''#255#220#220#220#255#203#198
+  +#201#255#130'vl'#255#238#152#31#255#255#167'$'#255#255#171'-'#255#255#176'4'
+  +#255#255#180':'#255#255#182'>'#255#255#183'A'#255#255#184'A'#255#255#183'A'
+  +#255#255#182'?'#255#255#180';'#255#255#176'5'#255#255#172'.'#255#255#167'('
+  +#255#254#161' '#255#255#158#24#255#229#134#13#255'zof'#255';:;'#255'%%%'#255
+  +'$$$hRRRoQQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'9Et'
+  +#255#16'B'#255#255#13'?'#255#255#10'<'#255#255#7'9'#255#255#4'6'#255#255#1'4'
+  +#254#255#0'1'#252#255#17'2'#188#255'777'#255'555'#255'333'#255'222'#255'000'
+  +#255'...'#255''''''''#255#226#226#226#255#208#206#208#255#134'{r'#255#239#159
+  +'('#255#255#175'/'#255#255#178'9'#255#255#184'A'#255#255#188'H'#255#255#192
+  +'M'#255#255#193'P'#255#255#194'Q'#255#255#193'Q'#255#255#192'N'#255#255#189
+  +'J'#255#255#186'C'#255#255#180';'#255#255#176'4'#255#255#169'*'#255#255#165
+  +' '#255#229#140#21#255'vk`'#255':9:'#255'%%%'#255#27#27#27#151'TTT'#175'SSS'
+  +#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255';Gu'#255#19'E'#255
+  +#255#16'B'#255#255#13'?'#255#255#10'<'#255#255#7'9'#255#255#4'6'#255#255#1'4'
+  +#254#255#14'3'#203#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255
+  +''''''''#255#230#230#230#255#215#212#215#255#138#128'v'#255#239#165'1'#255
+  +#255#182';'#255#255#187'E'#255#255#193'O'#255#255#197'W'#255#255#201'['#255
+  +#255#202'^'#255#255#203'_'#255#255#202'_'#255#255#201'\'#255#255#198'X'#255
+  +#255#194'Q'#255#255#188'H'#255#255#182'>'#255#255#176'4'#255#255#172')'#255
+  +#230#146#28#255'sg]'#255'988'#255'&&&'#255#24#24#24#185'VVV'#207'TTT'#255'SS'
+  +'S'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'@Ik'#255#22'G'#255#255
+  +#19'E'#255#255#16'B'#255#255#13'?'#255#255#10'<'#255#255#7'9'#255#255#4'6'
+  +#255#255#26'7'#169#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255
+  +''''''''#255#234#234#234#255#220#217#218#255#142#132'z'#255#239#171'9'#255
+  +#255#189'E'#255#255#194'P'#255#255#201'['#255#255#204'c'#255#255#208'h'#255
+  +#255#209'k'#255#255#211'l'#255#255#211'l'#255#255#208'i'#255#255#206'd'#255
+  +#255#202']'#255#255#196'T'#255#255#189'I'#255#255#183'?'#255#255#177'2'#255
+  +#230#151'#'#255'mcY'#255'767'#255''''''''#255#23#23#23#209'XXX'#255'VVV'#255
+  +'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'%J'#209#255
+  +#22'G'#255#255#19'E'#255#255#16'B'#255#255#13'?'#255#255#10'<'#255#255#10'9'
+  +#243#255'6<U'#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255''''''
+  +''''#255#234#234#234#255#222#221#222#255#145#136''#255#240#176'A'#255#255
+  +#196'O'#255#255#201'['#255#255#206'e'#255#255#211'm'#255#255#215't'#255#255
+  +#217'x'#255#255#218'y'#255#255#217'y'#255#255#216'u'#255#255#212'o'#255#255
+  +#207'g'#255#255#202'^'#255#255#196'T'#255#255#188'G'#255#255#182':'#255#231
+  +#156'('#255'l^Q'#255'656'#255''''''''#255#22#22#22#255'YYY'#255'XXX'#255'VVV'
+  +#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'GJV'#255'%J'#209
+  +#255#22'G'#255#255#19'E'#255#255#16'B'#255#255#16'?'#243#255'3?p'#255'???'
+  +#255'==='#255';;;'#255':::'#255'888'#255'777'#255'555'#255'((('#255#233#234
+  +#234#255#225#224#225#255#149#140#131#255#240#180'I'#255#255#201'X'#255#255
+  +#206'd'#255#255#211'm'#255#255#217'w'#255#255#221''#255#255#225#132#255#255
+  +#226#136#255#255#225#135#255#255#222#129#255#255#218'z'#255#255#213'o'#255
+  +#255#206'e'#255#255#201'['#255#255#193'O'#255#255#187'A'#255#234#160'-'#255
+  +'k[L'#255'545'#255'((('#255#22#22#22#255'[[['#255'YYY'#255'XXX'#255'VVV'#255
+  +'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'@Ik'#255';Gu'
+  +#255'9Et'#255'DDD'#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255
+  +'888'#255'777'#255'((('#255#233#233#233#255#227#225#227#255#151#144#135#255
+  +#240#183'N'#255#255#203']'#255#255#208'i'#255#255#216'u'#255#255#222#128#255
+  +#255#227#138#255#254#233#146#255#254#234#150#255#254#233#147#255#254#229#140
+  +#255#255#224#131#255#255#217'x'#255#255#209'l'#255#255#204'b'#255#255#197'U'
+  +#255#255#189'F'#255#234#164'2'#255'gWH'#255'444'#255'((('#255#24#24#24#255']'
+  +']]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'
+  +#255'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255
+  +'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'#255'((('#255#233#233#233
+  +#255#229#229#230#255#153#147#139#255#240#184'Q'#255#255#206'`'#255#255#211'm'
+  +#255#255#218'z'#255#255#225#135#255#254#231#146#255#254#238#157#255#254#240
+  +#163#255#254#239#159#255#254#234#149#255#255#227#138#255#255#220'}'#255#255
+  ,#212'p'#255#255#206'e'#255#255#198'X'#255#255#192'I'#255#235#165'5'#255'fUF'
+  +#255'424'#255')))'#255#25#25#25#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'
+  +#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255
+  +'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'
+  +#255':::'#255'''(+'#255#233#233#233#255#230#230#231#255#153#147#139#255#239
+  +#191'P'#255#255#212'b'#255#255#217'p'#255#255#225'~'#255#255#233#139#255#255
+  +#238#152#255#255#244#166#255#255#250#177#255#255#244#170#255#254#237#154#255
+  +#254#229#142#255#255#221#128#255#255#213'r'#255#255#207'f'#255#255#199'Y'#255
+  +#255#192'K'#255#234#166'5'#255'hXI'#255'434'#255')))'#255#26#26#26#255'```'
+  +#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255
+  +'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'
+  +#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255'''(*'#255#233#233#233#255
+  +#230#229#230#255#159#156#151#255#165#140'Z'#255#180#151'Z'#255#186#158']'#255
+  +#198#171'g'#255#215#191'v'#255#227#208#132#255#235#222#147#255#248#238#163
+  +#255#255#247#166#255#255#244#156#255#255#237#143#255#255#227#129#255#255#218
+  +'s'#255#255#209'f'#255#255#201'Y'#255#255#193'J'#255#234#165'5'#255'k[L'#255
+  +'544'#255'***'#255#27#27#27#255'bbb'#207'```'#255'^^^'#255']]]'#255'[[['#255
+  +'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'
+  +#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'#255
+  +'==='#255'((('#255#233#233#233#255#239#238#237#255#204#202#202#255#184#184
+  +#191#255#176#176#180#255#175#171#171#255#158#154#152#255#137#134#129#255'}xr'
+  +#255#129'}n'#255#146#139'u'#255#164#154'y'#255#175#161'v'#255#183#165'o'#255
+  +#192#167'g'#255#208#175'_'#255#227#182'Y'#255#238#183'N'#255#250#182'A'#255
+  +#233#163'.'#255'm^O'#255'646'#255'***'#255#31#31#31#208'ccc'#175'bbb'#255'``'
+  +'`'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'
+  +#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255
+  +'DDD'#255'BBB'#255'@@@'#255'???'#255'&&&'#255#201#201#201#255#242#242#242#255
+  +#243#242#242#255#250#248#247#255#252#250#250#255#246#243#242#255#233#229#229
+  +#255#222#217#217#255#212#207#207#255#198#192#193#255#181#175#176#255#163#157
+  +#159#255#152#145#149#255#147#140#142#255#142#134#132#255#128'ws'#255'pgb'#255
+  +'ocU'#255#129'kM'#255#135'i?'#255'pe['#255'655'#255')))'#255#31#31#31#194'ee'
+  +'eoccc'#255'bbb'#255'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'V'
+  +'VV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'
+  +#255'GGG'#255'<Eh'#255'ADO'#255'BBB'#255'@@@'#255'+++'#255''')0'#255')/F'#255
+  +';=H'#255'WW\'#255'poo'#255#130#130#130#255#146#145#145#255#161#159#158#255
+  +#175#171#170#255#187#182#181#255#198#191#189#255#201#193#192#255#201#192#191
+  +#255#199#191#188#255#194#183#181#255#182#170#167#255#170#158#157#255#159#147
+  +#146#255#144#132#135#255#134'z~'#255'pn'#255'322'#255'%%%'#255'   '#134'fff'
+  +'/eee'#255'ccc'#255'bbb'#255'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XX'
+  +'X'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'EKa'
+  +#255'(J'#198#255#22'G'#255#255#22'E'#243#255'-C'#149#255'BBB'#255'6@c'#255#11
+  +'8'#235#255#7'5'#239#255#5'2'#228#255#11'/'#191#255')/F'#255',,,'#255')))'
+  +#255'((('#255'((('#255'((('#255''')5'#255'13?'#255'DDJ'#255'XTT'#255'hdc'#255
+  +'slk'#255'ztr'#255#131'yw'#255#140#128'~'#255'zom'#255'755'#255'$$$'#255#31
+  +#31#31#255'"""@'#0#0#0#0'ggg'#223'eee'#255'ccc'#255'bbb'#255'```'#255'^^^'
+  +#255']]]'#255'[[['#255'S\x'#255'F^'#171#255'MY'#128#255'RU_'#255'SSS'#255'QQ'
+  +'Q'#255'OOO'#255'NNN'#255'5N'#165#255#28'M'#255#255#25'J'#255#255#22'G'#255
+  +#255#19'E'#255#255#22'B'#231#255#16'?'#243#255#10'<'#255#255#7'9'#255#255' :'
+  +#158#255'8;H'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255#31'+'
+  +'m'#255#4'"'#203#255#7'!'#183#255#11#31#158#255#14#30#132#255#19#30'l'#255#28
+  +'!A'#255'###'#255'%%%'#255'"""'#255'!""'#255'!!!'#255#30#30#30#225'444'#6#0#0
+  +#0#0'hhh'#143'ggg'#255'eee'#255'ccc'#255'bbb'#255'```'#255'^^^'#255'W`{'#255
+  +'=i'#244#255'8g'#255#255'5d'#255#255'@]'#191#255'TTT'#255'SSS'#255'QQQ'#255
+  +'OOO'#255'2Q'#188#255#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'#255#255
+  +#19'E'#255#255#16'B'#255#255#13'?'#255#255#23'='#207#255'???'#255'==='#255';'
+  +';;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255#9'&'#193#255#0
+  +'"'#223#255#0' '#219#255#0#30#215#255#2#29#200#255'%''2'#255'&&&'#255'$$$'
+  +#255'###'#255'!!!'#255#31#31#31#255#30#30#30#143#0#0#0#0#0#0#0#0'iii'#31'hhh'
+  +#255'ggg'#255'eee'#255'ccc'#255'bbb'#255'^aj'#255'Co'#245#255'>m'#255#255';j'
+  +#255#255'8g'#255#255'5d'#255#255'RXk'#255'TTT'#255'SSS'#255'QQQ'#255'0T'#211
+  +#255'"S'#255#255#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#19
+  +'E'#255#255#16'B'#255#255#13'?'#255#255'@@@'#255'???'#255'==='#255';;;'#255
+  +':::'#255'888'#255'777'#255'555'#255'333'#255'/1='#255#27'+~'#255#23'('#134
+  +#255#25'''y'#255'(*6'#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255'!!!'
+  ,#255'   '#31#0#0#0#0#0#0#0#0#0#0#0#0'jjj'#191'hhh'#255'ggg'#255'eee'#255'ccc'
+  +#255'Vj'#167#255'Ds'#255#255'Ap'#255#255'>m'#255#255';j'#255#255'8g'#255#255
+  +'B`'#192#255'VVV'#255'RU_'#255'GV'#136#255'.X'#233#255'%V'#255#255'"S'#255
+  +#255#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#19'E'#255#255#16
+  +'B'#255#255#23'@'#219#255'">'#171#255'#<'#158#255'6<U'#255';;;'#255':::'#255
+  +'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'
+  +#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#175#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0'kkk?jjj'#255'hhh'#255'ggg'#255'eee'#255'bem'#255'Lr'#225#255'Ds'#255#255
+  +'Ap'#255#255'>m'#255#255';j'#255#255'8g'#255#255'5d'#255#255'2a'#255#255'/_'
+  +#255#255',\'#255#255')Y'#255#255'%V'#255#255'"S'#255#255#31'P'#255#255#28'M'
+  +#255#255#25'J'#255#255#22'G'#255#255#19'E'#255#255#16'B'#255#255#13'?'#255
+  +#255#10'<'#255#255#24';'#194#255'==='#255';;;'#255':::'#255'888'#255'777'#255
+  +'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('
+  +#255'&&&'#255'$$$/'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk'#159'jjj'#255
+  +'hhh'#255'ggg'#255'eee'#255'^g'#129#255'It'#245#255'Ds'#255#255'Ap'#255#255
+  +'>m'#255#255';j'#255#255'8g'#255#255'5d'#255#255'2a'#255#255'/_'#255#255',\'
+  +#255#255')Y'#255#255'%V'#255#255'"S'#255#255#31'P'#255#255#28'M'#255#255#25
+  +'J'#255#255#22'G'#255#255#19'E'#255#255#16'B'#255#255#13'?'#255#255#16'='#231
+  +#255'???'#255'==='#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255
+  +'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#159#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk'#15'kkk'#239'jjj'#255'hhh'#255'ggg'
+  +#255'eee'#255'^g'#129#255'Gv'#255#255'Ds'#255#255'Ap'#255#255'>m'#255#255';j'
+  +#255#255'8g'#255#255'5d'#255#255'2a'#255#255'/_'#255#255',\'#255#255')Y'#255
+  +#255'%V'#255#255'"S'#255#255#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'
+  +#255#255#19'E'#255#255#16'B'#255#255'.A'#137#255'@@@'#255'???'#255'==='#255
+  +';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'
+  +#255'---'#255'+++'#239'***'#15#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'kkk?kkk'#255'jjj'#255'hhh'#255'ggg'#255'eee'#255']h'#138#255'It'
+  +#245#255'Ds'#255#255'Ap'#255#255'>m'#255#255';j'#255#255'8g'#255#255'5d'#255
+  +#255'2a'#255#255'/_'#255#255',\'#255#255')Y'#255#255'%V'#255#255'"S'#255#255
+  +#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#22'E'#243#255'DDD'
+  +#255'BBB'#255'@@@'#255';>K'#255'6<U'#255';;;'#255':::'#255'888'#255'777'#255
+  +'555'#255'333'#255'222'#255'000'#255'...'#255'---?'#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'kkkkkk'#255'jjj'#255'hhh'#255
+  +'ggg'#255'eee'#255'^g'#129#255'Ks'#235#255'Ds'#255#255'Ap'#255#255'>m'#255
+  +#255';j'#255#255'8g'#255#255'5d'#255#255'2a'#255#255'/_'#255#255',\'#255#255
+  +')Y'#255#255'%V'#255#255'"S'#255#255#31'P'#255#255#28'M'#255#255#25'J'#255
+  +#255#22'G'#255#255'&E'#185#255'ADO'#255'.A'#137#255#13'<'#243#255#7'9'#255
+  +#255'!:'#157#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'
+  +#255'000o'#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'kkk'#159'kkk'#255'jjj'#255'hhh'#255'ggg'#255'eee'#255
+  +'bem'#255'Sm'#186#255'Ds'#255#255'Ap'#255#255'>m'#255#255';j'#255#255'8g'#255
+  +#255'5d'#255#255'2a'#255#255'/_'#255#255',\'#255#255')Y'#255#255'%V'#255#255
+  +'"S'#255#255#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#22'E'
+  +#243#255#16'B'#255#255#13'?'#255#255#10'<'#255#255'#<'#159#255'==='#255';;;'
+  +#255':::'#255'888'#255'777'#255'555'#255'333'#159#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
+  +'kkk'#159'kkk'#255'jjj'#255'hhh'#255'ggg'#255'eee'#255'ccc'#255']e'#255'Mm'
+  +#205#255'Ap'#255#255'>m'#255#255';j'#255#255'8g'#255#255'5d'#255#255'2a'#255
+  +#255'/_'#255#255',\'#255#255')Y'#255#255'%V'#255#255'"S'#255#255#31'P'#255
+  +#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#19'E'#255#255' B'#196#255'8Ae'
+  +#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'#255'777'#159#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'kkkkkk'#255'jjj'#255'hhh'#255'ggg'#255'e'
+  +'ee'#255'ccc'#255'bbb'#255']bt'#255'Nh'#185#255'Dj'#224#255';j'#255#255'8g'
+  +#255#255'5d'#255#255'2a'#255#255'/_'#255#255',\'#255#255')Y'#255#255'%V'#255
+  +#255'"S'#255#255#31'P'#255#255'%M'#221#255'.J'#175#255'AG^'#255'EEE'#255'DDD'
+  +#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255':::o'#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'kkkOkkk'#239'jjj'#255'hhh'#255'ggg'
+  +#255'eee'#255'ccc'#255'bbb'#255'```'#255'^^^'#255'[^g'#255'S_'#132#255'H`'
+  +#172#255'F^'#171#255'D\'#171#255'AY'#170#255'?W'#169#255'=U'#168#255'EQ{'#255
+  +'KNY'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'
+  +#255'???'#239'===?'#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#0'kkk'#15'kkk'#159'jjj'#255'hhh'#255'ggg'#255'eee'#255'ccc'
+  +#255'bbb'#255'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#255
+  +'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'
+  +#255'EEE'#255'DDD'#255'BBB'#159'AAA'#15#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#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk?jjj'#191
+  +'hhh'#255'ggg'#255'eee'#255'ccc'#255'bbb'#255'```'#255'^^^'#255']]]'#255'[[['
+  +#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255
+  +'LLL'#255'JJJ'#255'III'#255'GGG'#191'EEE?'#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#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'iii'#31'hhh'#143'ggg'#239'eee'#255'ccc'#255'bbb'#255
+  +'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'
+  +#255'QQQ'#255'OOO'#255'NNN'#223'LLL'#143'JJJ'#31#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#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'fff/eee'
+  +'ccc'#175'bbb'#207'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VV'
+  +'V'#207'TTT'#175'RRRQQQ/'#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#255#255#128#0#0#7#0#0#255#252#0#0#0#3#0#0#255#240#0#0#0#1#0#0#255
+  +#192#0#0#0#1#0#0#255#128#0#0#0#1#0#0#255#0#0#0#0#1#0#0#254#0#0#0#0#1#0#0#252
+  +#0#0#0#0#1#0#0#248#0#0#0#0#1#0#0#240#0#0#0#0#1#0#0#224#0#0#0#0#0#0#0#224#0#0
+  +#0#0#0#0#0#192#0#0#0#0#0#0#0#192#0#0#0#0#0#0#0#128#0#0#0#0#0#0#0#128#0#0#0#0
+  +#0#0#0#128#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#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#128#0#0#0#0#0#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0
+  +#192#0#0#0#0#3#0#0#192#0#0#0#0#3#0#0#224#0#0#0#0#7#0#0#224#0#0#0#0#7#0#0#240
+  +#0#0#0#0#15#0#0#248#0#0#0#0#31#0#0#252#0#0#0#0'?'#0#0#254#0#0#0#0''#0#0#255
+  +#0#0#0#0#255#0#0#255#128#0#0#1#255#0#0#255#192#0#0#3#255#0#0#255#240#0#0#15
+  +#255#0#0#255#252#0#0'?'#255#0#0#255#255#128#1#255#255#0#0'('#0#0#0' '#0#0#0
+  +'@'#0#0#0#1#0' '#0#0#0#0#0#128#16#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#28
+  +#28#28#31#26#26#26'o'#23#23#23#191#21#21#21#239#18#18#18#255#16#16#16#255#13
+  +#13#13#255#11#11#11#255#11#11#11#227#20#20#20#223'(''&'#231'B@@'#238'QML'#247
+  +'PJJ'#250'D?>'#246'622'#235'&$$'#210#27#28#28#145#28#28#28#24#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'$$$'
+  +'?!!!'#191#31#31#31#255#28#28#28#255#26#26#26#255#23#23#23#255#21#21#21#255
+  +#18#18#18#255#16#16#16#255#19#19#19#255'654'#255#140#137#136#255#194#187#187
+  +#255#204#196#194#255#199#189#187#255#182#167#165#255#157#139#136#255#137'wt'
+  +#255'~nk'#255'[RO'#255'+)('#239#27#28#28'_'#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'+++'#15')))'#175'&&&'#255'$$$'#255'!!!'#255#31
+  +#31#31#255#28#28#28#255#26#26#26#255#23#23#23#255#21#21#21#255#20#20#20#255
+  +'?>>'#255#206#201#199#255#239#234#233#255#235#230#229#255#213#208#207#255#164
+  +#158#157#255#144#136#134#255#137'{z'#255#136'wt'#255#140'yv'#255#144'}x'#255
+  +'{li'#255'-+*'#238#28#28#28#29#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0'000?...'#239'+++'#255')))'#255'&&&'#255'$$$'#255'!!!'#255#31#31#31#255#16
+  +#21']'#255#0#9#171#255#0#5#165#255#11#12'['#255#129'~'#255#252#247#246#255
+  +#244#243#243#255#222#221#221#255'ono'#255'yww'#255'{xw'#255'trp'#255'XSR'#255
+  +'l^\'#255#137'wt'#255#147#128'{'#255'MED'#255#24#25#25'_'#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0'555_333'#255'000'#255'...'#255'+++'#255')))'#255'&&&'
+  +#255'$$$'#255'!!!'#255#23#27'E'#255#0#12#177#255#0#9#171#255#4#8#140#255'BAC'
+  +#255#224#221#221#255#255#255#255#255#201#199#199#255'}yy'#255#213#201#198#255
+  +#172#156#152#255#187#175#172#255#169#161#159#255'PKK'#255#134'to'#255'nk'
+  +#255'.,+'#249#28#28#28'!'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0':::?888'#255'555'
+  +#255'333'#255'000'#255'...'#255'+++'#255')))'#255'&&&'#255'$$$'#255#21#27'\'
+  +#255#0#15#184#255#9#17'z'#255#20#23'M'#255#23#24'"'#255'A@@'#255#129#128#128
+  +#255'mnm'#255'EAA'#255'hWU'#255'hOM'#255'~db'#255#143'wu'#255'QIH'#255'TLJ'
+  +#255'-**'#250#27#27#28'e'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'???'#31'<<<'#239':'
+  +'::'#255'888'#255'555'#255'333'#255'000'#255'...'#255'+++'#255')))'#255'&&&'
+  +#255#29'!A'#255#19#25'R'#255'BBA'#255'uml'#255#131'~'#129#255'~vw'#255'h^^'
+  +#255']RQ'#255'ZON'#255'VLK'#255'NFF'#255'E<;'#255'E66'#255'&!!'#255#16#17#17
+  ,#255#2#2#2#240#0#0#0#15#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'AAA'#191'???'#255'<<'
+  +'<'#255':::'#255'888'#255'555'#255'333'#255'000'#255'...'#255'+++'#255')))'
+  +#255'&&&'#255'@@@'#255#177#176#175#255'rl'#255#218#192#154#255#246#226#201
+  +#255#222#211#201#255#202#189#186#255#176#165#167#255#159#147#156#255#158#146
+  +#151#255#156#145#146#255#142#135#135#255'nii'#255'?=<'#255#23#24#24#255#7#7#7
+  +#194#0#0#0#0#0#0#0#0#0#0#0#0'FFF?DDD'#255'AAA'#255'???'#255'<<<'#255':::'#255
+  +'888'#255'555'#255'333'#255'000'#255'...'#255'+++'#255')))'#255'QQQ'#255#197
+  +#196#197#255'}ng'#255#221#130#18#255#255#154#18#255#255#161'!'#255#255#175'8'
+  +#255#254#182'O'#255#244#187'h'#255#226#187#136#255#206#186#165#255#194#183
+  +#180#255#192#186#192#255#188#182#188#255#158#152#154#255'WVV'#255#27#27#27
+  +#214#26#26#26#31#0#0#0#0'III'#191'FFF'#255'DDD'#255'AAA'#255'???'#255'<<<'
+  +#255':::'#255'888'#255'555'#255'333'#255'000'#255'...'#255'+++'#255'RRR'#255
+  +#207#207#208#255#132'wo'#255#220#128#15#255#255#145#9#255#254#143#9#255#254
+  +#144#9#255#255#145#9#255#255#146#10#255#255#152#18#255#255#158#27#255#248#165
+  +'3'#255#231#169'Q'#255#211#170'v'#255#201#180#164#255#202#194#197#255#147#145
+  +#150#255'--,'#237'NNN'#31'KKK'#255'III'#255'FFF'#255'DDD'#255'AAA'#255'4>c'
+  +#255#21'8'#194#255#3'2'#240#255#17'1'#187#255'+3Y'#255'333'#255'000'#255'...'
+  +#255'UUU'#255#218#217#218#255#139'w'#255#220#129#17#255#255#151#15#255#254
+  +#154#22#255#254#158#27#255#254#160#31#255#254#161' '#255#254#161#31#255#254
+  +#160#29#255#255#156#22#255#255#151#15#255#255#150#15#255#247#146#19#255#231
+  +#147'*'#255#196#163'z'#255']^d'#254'PPPoNNN'#255'KKK'#255'III'#255'FFF'#255
+  +'ADP'#255#15'>'#243#255#7':'#255#255#3'6'#254#255#0'2'#252#255#6'/'#222#255
+  +'555'#255'333'#255'000'#255'XXX'#255#227#227#230#255#144#134'~'#255#220#136
+  +#24#255#255#160#26#255#254#165'$'#255#255#169'*'#255#255#172'.'#255#255#173
+  +'2'#255#255#173'2'#255#255#172'/'#255#255#170'+'#255#254#165'%'#255#254#160
+  +#28#255#255#152#19#255#255#149#5#255#186#130'5'#255'RU_'#254'SSS'#191'QQQ'
+  +#255'NNN'#255'KKK'#255'III'#255':Fu'#255#16'B'#255#255#12'>'#255#255#7':'#255
+  +#255#3'6'#254#255#0'2'#252#255')5h'#255'555'#255'333'#255'ZZZ'#255#237#238
+  +#239#255#150#140#132#255#220#144'#'#255#255#170'('#255#255#175'3'#255#255#180
+  +';'#255#255#183'A'#255#255#186'C'#255#255#186'C'#255#255#184'A'#255#255#181
+  +'<'#255#255#176'5'#255#255#170'+'#255#254#163'!'#255#255#158#17#255#183#131
+  +';'#255'NPY'#255'VVV'#239'SSS'#255'QQQ'#255'NNN'#255'KKK'#255'=Iw'#255#21'G'
+  +#255#255#16'B'#255#255#12'>'#255#255#7':'#255#255#3'6'#254#255'39R'#255'888'
+  +#255'555'#255'\\\'#255#244#244#247#255#156#147#139#255#221#151'-'#255#255#180
+  +'5'#255#255#184'A'#255#255#191'L'#255#255#196'S'#255#255#197'V'#255#255#197
+  +'W'#255#255#196'S'#255#255#192'M'#255#255#186'C'#255#255#180'9'#255#255#171
+  +'-'#255#255#167#28#255#180#131'>'#255'JKT'#255'XXX'#255'VVV'#255'SSS'#255'QQ'
+  +'Q'#255'NNN'#255'KKK'#255'"J'#221#255#21'G'#255#255#16'B'#255#255#12'>'#255
+  +#255#24';'#195#255'<<<'#255':::'#255'888'#255']]]'#255#251#251#254#255#160
+  +#152#146#255#222#158'7'#255#255#189'C'#255#255#194'Q'#255#255#201'\'#255#255
+  +#204'c'#255#255#207'g'#255#255#207'g'#255#255#206'd'#255#255#202']'#255#255
+  +#196'S'#255#255#188'G'#255#255#180'9'#255#255#175'('#255#177#131'A'#255'GGN'
+  +#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'HKW'#255'4J'#153
+  +#255'-F'#163#255'-C'#150#255'AAA'#255'???'#255'<<<'#255':::'#255']]^'#255#254
+  +#254#255#255#165#158#152#255#222#164'A'#255#255#197'P'#255#255#202'^'#255#255
+  +#208'i'#255#255#213'r'#255#255#216'v'#255#255#216'v'#255#255#213's'#255#255
+  +#209'k'#255#255#203'`'#255#255#196'T'#255#255#186'D'#255#255#182'1'#255#175
+  +#130'A'#255'CBI'#255']]]'#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'N'
+  +'NN'#255'KKK'#255'III'#255'FFF'#255'DDD'#255'AAA'#255'???'#255'<<<'#255']]]'
+  +#255#255#255#255#255#170#164#157#255#222#170'I'#255#255#203'['#255#255#209'j'
+  +#255#255#216'v'#255#255#222#129#255#255#226#135#255#255#226#136#255#255#222
+  +#130#255#255#217'x'#255#255#211'l'#255#255#202'^'#255#255#193'O'#255#255#188
+  +':'#255#171#129'A'#255'?>C'#255'```'#255']]]'#255'[[['#255'XXX'#255'VVV'#255
+  +'SSS'#255'QQQ'#255'NNN'#255'KKK'#255'III'#255'FFF'#255'DDD'#255'AAA'#255'???'
+  +#255']]]'#255#255#255#255#255#173#167#161#255#222#173'O'#255#255#208'b'#255
+  +#255#213'r'#255#255#222#129#255#254#230#143#255#254#235#153#255#254#237#154
+  +#255#254#230#145#255#255#224#131#255#255#215'u'#255#255#207'f'#255#255#197'U'
+  +#255#255#193'A'#255#167'B'#255';9@'#255'bbb'#239'```'#255']]]'#255'[[['#255
+  +'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'KKK'#255'III'#255'FFF'#255'DDD'
+  +#255'AAA'#255']]]'#255#255#255#255#255#175#171#164#255#222#178'P'#255#255#216
+  +'f'#255#255#221'w'#255#255#229#136#255#255#237#152#255#255#246#169#255#255
+  +#246#171#255#254#237#154#255#254#227#137#255#255#217'x'#255#255#208'i'#255
+  +#255#198'X'#255#255#194'C'#255#171#129'C'#255'<9?'#255'ddd'#191'bbb'#255'```'
+  +#255']]]'#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'KKK'#255
+  ,'III'#255'CFR'#255'>D['#255']]]'#255#255#255#255#255#177#175#171#255#161#136
+  +'U'#255#184#154'W'#255#201#172'd'#255#222#198'x'#255#237#218#140#255#240#229
+  +#157#255#248#238#163#255#255#240#153#255#255#235#139#255#255#225'z'#255#255
+  +#215'j'#255#255#202'Y'#255#255#196'C'#255#175#134'D'#255'?=B'#255'fffoeee'
+  +#255'bbb'#255'```'#255']]]'#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255
+  +'NNN'#255'CLm'#255' J'#232#255#21'G'#255#255']^^'#255#255#255#255#255#224#222
+  +#222#255#196#197#201#255#184#183#186#255#170#166#165#255#153#149#145#255#146
+  +#140#131#255#150#144''#255#157#149'{'#255#164#153'v'#255#175#157'm'#255#184
+  +#159'b'#255#201#164'X'#255#225#175'O'#255#254#182'='#255#171#130'C'#255'BAF'
+  +#254'hhh'#31'ggg'#255'eee'#255'bbb'#255'```'#255'[^g'#255'<h'#244#255'5e'#255
+  +#255'HZ'#149#255'SSS'#255'QQQ'#255'8Q'#167#255#30'O'#255#255#26'K'#255#255'<'
+  +'BW'#255#167#167#167#255#188#188#188#255#209#208#208#255#224#222#221#255#226
+  +#222#224#255#224#220#221#255#220#215#215#255#213#207#208#255#197#189#191#255
+  +#173#166#170#255#159#151#153#255#150#140#140#255#139#128'~'#255'}rk'#255'zjZ'
+  +#255#129'o`'#255'MGG'#253#0#0#0#0'iii'#191'ggg'#255'eee'#255'bbb'#255'In'#225
+  +#255'?n'#255#255':i'#255#255':c'#234#255'VVV'#255'SSS'#255'<T'#168#255'#T'
+  +#255#255#30'O'#255#255#27'9'#170#255#24'0'#137#255#25'-v'#255'#+J'#255'-.0'
+  +#255'988'#255'IGH'#255'XVV'#255'iff'#255'}yx'#255#139#134#132#255#150#143#142
+  +#255#160#151#150#255#165#154#153#255#161#149#149#255#154#142#142#255'vkk'#255
+  +'1.-'#250#0#0#0#0'kkk?iii'#255'ggg'#255'eee'#255'Lr'#225#255'Cr'#255#255'?n'
+  +#255#255':i'#255#255'<b'#223#255'8_'#223#255',\'#255#255'''X'#255#255'#T'#255
+  +#255#30'O'#255#255#26'K'#255#255#21'G'#255#255#16'B'#255#255#12'>'#255#255#21
+  +':'#202#255':::'#255'555'#255'///'#255'***'#255'((('#255'&&&'#255''''''''#255
+  +'))('#255'10/'#255'643'#255'###'#201#27#28#28'3'#0#0#0#0#0#0#0#0'kkk'#191'ii'
+  +'i'#255'ggg'#255'agx'#255'It'#245#255'Cr'#255#255'?n'#255#255':i'#255#255'5e'
+  +#255#255'1a'#255#255',\'#255#255'''X'#255#255'#T'#255#255#30'O'#255#255#26'K'
+  +#255#255#21'G'#255#255#16'B'#255#255#18'>'#231#255'???'#255'<<<'#255':::'#255
+  +'888'#255'555'#255'333'#255'000'#255'...'#255'+++'#255')))'#191#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0'kkk'#31'kkk'#239'iii'#255'ggg'#255'`h'#130#255'It'#245#255
+  +'Cr'#255#255'?n'#255#255':i'#255#255'5e'#255#255'1a'#255#255',\'#255#255'''X'
+  +#255#255'#T'#255#255#30'O'#255#255#26'K'#255#255#21'G'#255#255'.C'#149#255'A'
+  +'AA'#255'<?K'#255'9<H'#255':::'#255'888'#255'555'#255'333'#255'000'#255'...'
+  +#239'+++'#31#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk?kkk'#255'iii'#255'g'
+  +'gg'#255'agx'#255'Lr'#225#255'Cr'#255#255'?n'#255#255':i'#255#255'5e'#255#255
+  +'1a'#255#255',\'#255#255'''X'#255#255'#T'#255#255#30'O'#255#255#26'K'#255#255
+  +#24'G'#243#255'.C'#149#255#15'>'#243#255#10':'#242#255'2;a'#255':::'#255'888'
+  +#255'555'#255'333'#255'000?'#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'kkk_kkk'#255'iii'#255'ggg'#255'eee'#255'Vj'#167#255'Ep'#245#255'?n'
+  +#255#255':i'#255#255'5e'#255#255'1a'#255#255',\'#255#255'''X'#255#255'#T'#255
+  +#255#30'O'#255#255#26'K'#255#255#21'G'#255#255#20'B'#243#255'*@'#148#255'???'
+  +#255'<<<'#255':::'#255'888'#255'555_'#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'kkk?kkk'#239'iii'#255'ggg'#255'eee'#255'bbb'
+  +#255'Uf'#156#255'Jg'#194#255'>g'#234#255'5e'#255#255'1a'#255#255',\'#255#255
+  +'''X'#255#255'(S'#233#255'/M'#188#255'7J'#141#255'FFF'#255'DDD'#255'AAA'#255
+  +'???'#255'<<<'#239':::?'#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'kkk'#31'kkk'#191'iii'#255'ggg'#255'eee'
+  +#255'bbb'#255'```'#255']]]'#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255
+  +'NNN'#255'KKK'#255'III'#255'FFF'#255'DDD'#255'AAA'#191'???'#31#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'kkk?iii'#191'ggg'#255'eee'#255'bbb'#255'```'#255']]]'
+  +#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'KKK'#255'III'#191
+  +'FFF?'#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'h'
+  +'hh'#31'fffoddd'#191'bbb'#239'```'#255']]]'#255'[[['#255'XXX'#255'VVV'#239'S'
+  +'SS'#191'PPPoNNN'#31#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#255#192#0#7#255#0#0#3#252#0#0#1#248#0#0#1#240#0#0#1
+  +#224#0#0#3#192#0#0#3#192#0#0#3#128#0#0#0#128#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#128#0
+  +#0#0#128#0#0#0#192#0#0#3#192#0#0#3#224#0#0#7#240#0#0#15#248#0#0#31#252#0#0'?'
+  +#255#0#0#255#255#192#3#255'('#0#0#0#16#0#0#0' '#0#0#0#1#0' '#0#0#0#0#0'@'#4#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#15#15#15
+  +'8'#22#22#22#159#23#23#23#221#18#18#18#255#13#13#13#255#13#13#13#222'###'#179
+  +'322'#162'111'#160'222x444#'#17#17#17#1#0#0#0#0#0#0#0#0#5#5#5#12'&&&'#164'&&'
+  +'&'#255'!!!'#255#25#26'*'#255#10#14']'#255#10#11'P'#255'jhh'#255#197#191#190
+  ,#255#161#152#150#255#131'tq'#255'i\Z'#252'322'#178'"""'#12#0#0#0#0#6#6#6#12
+  +'///'#205'000'#255'+++'#255'&&&'#255#29#31'4'#255#0#11#175#255#12#15#129#255
+  +#154#152#154#255#159#158#158#255#155#141#139#255#133'{y'#255'qca'#255'422'
+  +#153'"""'#7#0#0#0#0'777'#166'999'#255'555'#255'000'#255'+++'#255'$%+'#255#18
+  +#26'n'#255'gbh'#255#162#149#136#255#133'|{'#255'qff'#255'k^]'#255'111'#255'"'
+  +'""'#185'...'#23#31#31#31':CCC'#255'>>>'#255'999'#255'555'#255'000'#255'+++'
+  +#255''''''''#255#159#152#149#255#249#143#12#255#254#157' '#255#248#171'D'#255
+  +#226#169'b'#255#204#169#132#255#128'xr'#255'222'#142'<<<'#159'HHH'#255'CCD'
+  +#255#24';'#193#255#7'2'#225#255'(2_'#255'000'#255'***'#255#178#172#170#255
+  +#249#155#27#255#254#170','#255#254#174'3'#255#254#170'-'#255#254#158#28#255
+  +#202#133'-'#255'000'#192'RRR'#224'MMM'#255'EHV'#255#16'A'#255#255#7'9'#254
+  +#255#25'5'#165#255'555'#255'---'#255#194#189#187#255#249#177':'#255#255#196
+  +'U'#255#255#202'^'#255#255#197'V'#255#255#182'>'#255#199#140'5'#255''''''''
+  +#230'WWW'#255'RRR'#255'MMM'#255'.H'#169#255#30'B'#202#255'6=Z'#255'999'#255
+  +'111'#255#202#199#196#255#250#194'U'#255#255#216'v'#255#254#225#134#255#254
+  +#217'x'#255#255#199'Z'#255#198#145'='#255'&&&'#255'\\\'#255'WWW'#255'RRR'#255
+  +'MMM'#255'HHH'#255'CCC'#255'>>>'#255'444'#255#205#204#202#255#225#185'^'#255
+  +#241#215#130#255#251#240#163#255#254#230#140#255#255#207'e'#255#197#148'B'
+  +#255''''''''#255'aaa'#224'\\\'#255'WWW'#255'RRR'#255'MMM'#255'HHH'#255'BCH'
+  +#255'777'#255#166#167#171#255#179#177#179#255#174#170#169#255#174#167#159#255
+  +#176#164#146#255#170#148'r'#255#152'|X'#255')))'#229'OOO'#159'aaa'#255'\]`'
+  +#255'I]'#159#255'PS_'#255'GNf'#255#27'J'#247#255#31'B'#200#255#19'9'#210#255
+  +'16J'#255'111'#255'#,Z'#255' 1'#154#255':=\'#255':77'#255#30#30#30#162'...<f'
+  +'ff'#255'Wh'#156#255'>m'#255#255'B`'#193#255'=W'#178#255'"S'#255#255#25'J'
+  +#255#255#23'B'#229#255'''<'#144#255'999'#255'446'#255'(.J'#255'**,'#255'&&&'
+  +#255#15#15#15'8'#0#0#0#0'^^^'#166'fgj'#255'No'#208#255'>m'#255#255'5d'#255
+  +#255'+['#255#255'"S'#255#255#25'J'#255#255#26'B'#217#255'>>@'#255'99<'#255'5'
+  +'55'#255'000'#255'&&&'#166#0#0#0#0#0#0#0#0#11#11#11#14'^^^'#205'fgj'#255'Sk'
+  +#180#255'?l'#249#255'5d'#255#255'+['#255#255'"S'#255#255#27'J'#247#255#27'B'
+  +#213#255'+<'#130#255'999'#255'///'#205#5#5#5#12#0#0#0#0#0#0#0#0#0#0#0#0#11#11
+  +#11#14'^^^'#168'fff'#255'_cn'#255'Qa'#149#255'E]'#171#255'>V'#169#255'>O'#139
+  +#255'EHV'#255'CCC'#255'777'#166#6#6#6#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0'...<OOO'#161'aaa'#226'\\\'#255'WWW'#255'RRR'#226'<<<'#159#31#31
+  +#31'<'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#240#0#0#0#192#0#0#0#128#0#0#0#128#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#128#1#0#0
+  +#128#1#0#0#192#3#0#0#240#15#0#0#12'Proportional'#9#7'Stretch'#9#0#0#9'TCheck'
+  +'Box'#22'cbCreateClientAndGroup'#4'Left'#2'*'#6'Height'#2#21#3'Top'#2#8#5'Wi'
+  +'dth'#3#205#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6'$Create Tes'
+  +'t Client and Project Group'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'
+  +#2#0#0#0#7'TBitBtn'#6'btn_Ok'#4'Left'#3'V'#1#6'Height'#2#25#3'Top'#2#8#5'Wid'
+  +'th'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#2'OK'#7'Defaul'
+  +'t'#9#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0
+  +#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#196#14#0#0#196#14#0#0#0#0#0#0#0
+  +#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eeeeee'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0'f'#0#30#178'1'#31#177'3'#0'f'#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'eee'#154#154#154#154#154#154'eee'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0'f'#0'1'#194'O"'#183'8'#26#176'-!'#180'7'#0'f'#0#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'eee'#171#171#171#158#158#158#151#151#151#156#156#156'eee'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#0'f'#0'G'#211'm;'#203'^%'#168';'#0'f'#0#27#169'.'#29#177'2'#0'f'#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'eee'#191#191#191#181#181#181#152#152#152'eee'#148#148#148#153#153#153'e'
+  +'ee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +'f'#0'O'#214'yS'#222'1'#181'M'#0'f'#0#255#0#255#0'f'#0#23#157''''#30#174'1'
+  +#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eee'#196
+  +#196#196#202#202#202#165#165#165'eee'#255#0#255'eee'#140#140#140#152#152#152
+  +'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +'f'#0'A'#197'c'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#25#170
+  +'+'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eee'
+  +#181#181#181'eee'#255#0#255#255#0#255#255#0#255#255#0#255'eee'#147#147#147'e'
+  +'ee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#20
+  +#157'!'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'e'
+  +'ee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eee'#138#138
+  +#138'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0'f'#0#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'eeeeee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eeeeee'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#11'ModalRes'
+  +'ult'#2#1#9'NumGlyphs'#2#2#8'TabOrder'#2#1#0#0#7'TBitBtn'#7'Button2'#4'Left'
+  +#3#165#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8
+  +'akBottom'#0#6'Cancel'#9#7'Caption'#6#6'Cancel'#10'Glyph.Data'#10':'#6#0#0'6'
+  +#6#0#0'BM6'#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0
+  +#0#0#6#0#0#196#14#0#0#196#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#0#0#154#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#0#0#154#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'kkkkkk'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154#23'J'#253#16';'#244#0#0#154#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154#0','#248#0'0'#252#0#0#154#255#0#255#255#0#255
+  ,#255#0#255#255#0#255'kkk'#168#168#168#160#160#160'kkk'#255#0#255#255#0#255
+  +#255#0#255#255#0#255'kkk'#154#154#154#156#156#156'kkk'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154#26'G'#248#26'L'#255#18';'#241#0#0#154#255#0#255
+  +#255#0#255#0#0#154#1'-'#246#1'2'#255#0'*'#243#0#0#154#255#0#255#255#0#255#255
+  +#0#255#255#0#255'kkk'#167#167#167#170#170#170#159#159#159'kkk'#255#0#255#255
+  +#0#255'kkk'#153#153#153#158#158#158#151#151#151'kkk'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#0#0#154#28'G'#246#27'M'#255#20'>'#244#0#0#154#0#0
+  +#154#0'-'#248#1'4'#255#3'+'#242#0#0#154#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'kkk'#167#167#167#171#171#171#162#162#162'kkkkkk'#154
+  +#154#154#158#158#158#152#152#152'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0#154#29'H'#246#29'P'#255#16'='#251#4'1'#254
+  +#1'2'#255#0','#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'kkk'#167#167#167#172#172#172#163#163#163#159
+  +#159#159#158#158#158#153#153#153'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154#26'H'#249#19'B'
+  +#255#12'<'#255#7'3'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#167#167#167#167
+  +#167#167#163#163#163#156#156#156'kkk'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154'!N'#252
+  +#29'K'#255#24'G'#255#23'C'#246#0#0#154#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#172#172
+  +#172#172#172#172#169#169#169#164#164#164'kkk'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154'.['#249
+  +',_'#255'"M'#248' K'#248'#U'#255#27'F'#246#0#0#154#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#177#177#177#179
+  +#179#179#171#171#171#170#170#170#175#175#175#166#166#166'kkk'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#154'6d'#250'8k'
+  +#255'-Y'#244#0#0#154#0#0#154'"L'#244'%X'#255#29'I'#246#0#0#154#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'kkk'#182#182#182#185#185#185
+  +#174#174#174'kkkkkk'#169#169#169#176#176#176#167#167#167'kkk'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0#154'@q'#250'Bt'#255'2]'#241#0#0#154
+  +#255#0#255#255#0#255#0#0#154'"M'#241'''Z'#255' L'#248#0#0#154#255#0#255#255#0
+  +#255#255#0#255#255#0#255'kkk'#187#187#187#190#190#190#175#175#175'kkk'#255#0
+  +#255#255#0#255'kkk'#167#167#167#177#177#177#170#170#170'kkk'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#154'Iz'#252';f'#243#0#0#154#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#154'%P'#244'&U'#250#0#0#154#255#0#255#255#0#255#255
+  +#0#255#255#0#255'kkk'#192#192#192#181#181#181'kkk'#255#0#255#255#0#255#255#0
+  +#255#255#0#255'kkk'#170#170#170#174#174#174'kkk'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#154#0#0#154#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'kkkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'kkkkkk'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#11'ModalResult'#2#2#9'NumGlyphs'#2#2#8'TabOrder'#2#2#0#0
+  +#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.pas
new file mode 100644
index 0000000..9bb06f3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/fServerProjectOptions.pas	
@@ -0,0 +1,230 @@
+unit fServerProjectOptions;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Messages, SysUtils,{$IFDEF DELPHI6UP} Variants, {$ENDIF}
+  Classes, Graphics, Controls, Forms,
+  {$IFDEF FPC}uROIDEPrjWizard_laz,{$ELSE} uROIDEPrjWizard,{$ENDIF}
+  Dialogs, StdCtrls, Buttons, ComCtrls, ImgList, ExtCtrls;
+
+type
+  TServerProjectOptions = class(TForm)
+    Label1: TLabel;
+    eSvcLibName: TEdit;
+    eSvcName: TEdit;
+    Label2: TLabel;
+    Label3: TLabel;
+    ePrjName: TEdit;
+    Label5: TLabel;
+    ePrjDir: TEdit;
+    Bevel1: TBevel;
+    Label4: TLabel;
+    eTemplateName: TEdit;
+    BitBtn1: TBitBtn;
+    Label6: TLabel;
+    cbMessageClass: TComboBox;
+    Label7: TLabel;
+    cbServerClass: TComboBox;
+    Label8: TLabel;
+    Image2: TImage;
+    Bevel2: TBevel;
+    Panel1: TPanel;
+    Image1: TImage;
+    cbCreateClientAndGroup: TCheckBox;
+    btn_Ok: TBitBtn;
+    Button2: TBitBtn;
+    Bevel3: TBevel;
+    procedure sbBrowseForDirClick(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure FormCreate(Sender: TObject);
+  public
+    fTemplateDir,
+    fInvalidServers,
+    fDefaultServer,
+    fFixedServer,
+    fFixedChannel: string;
+    fWizardAvailable: boolean;
+    fProjectFolders: TStringList;
+
+    procedure LoadConfig;
+
+  public
+    constructor Create(const aTemplateDir : string); reintroduce;
+    destructor Destroy; override;
+  end;
+
+var
+  ServerProjectOptions: TServerProjectOptions;
+
+implementation
+{$IFDEF MSWINDOWS}
+{$WARN UNIT_PLATFORM OFF}
+{$ENDIF}
+
+uses
+  {$IFDEF FPC}uROIDETools_laz,{$ELSE}uROIDETools,{$ENDIF}
+  FileCtrl, INIFiles, uRODLGenTools, uROClient, uROServer, fNewProjectForm;
+
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF FPC}
+
+{ TServerProjectOptions }
+constructor TServerProjectOptions.Create(const aTemplateDir: string);
+begin
+  inherited Create(NIL);
+  fTemplateDir := aTemplateDir;
+  fProjectFolders := TStringList.Create();
+  LoadConfig;
+end;
+
+destructor TServerProjectOptions.Destroy;
+begin
+  FreeAndNil(fProjectFolders);
+  inherited;
+end;
+
+procedure TServerProjectOptions.LoadConfig;
+var s   : TStringList;
+    tmpldir : string;
+begin
+  s := TStringList.Create;
+
+  with TIniFile.Create(GetTemplateConfigFileName) do try
+    ReadSection(sect_ClassFactories, s);
+
+    eTemplateName.Text := fTemplateDir;
+    eSvcLibName.Text := ReadString(sect_ProjectGeneration, id_SvcLibName, 'NewLibrary');
+    eSvcName.Text := ReadString(sect_ProjectGeneration, id_SvcName, 'NewService');
+    ePrjName.Text := ReadString(sect_ProjectGeneration, id_PrjName, 'NewProject');
+    cbCreateClientAndGroup.Checked := ReadBool(sect_ProjectGeneration, id_CreateClientAndGroup, TRUE);
+
+    tmpldir := GetTemplateDir;
+    Delete(tmpldir, Pos('Templates', tmpldir), 9);
+    Insert('Projects', tmpldir, Length(tmpldir));
+
+    ePrjDir.Text := ReadString(sect_ProjectGeneration, id_PrjDir, tmpldir);
+    ReadSection(sect_ProjectFolderHistory, fProjectFolders);
+  finally
+    Free;
+    s.Free;
+  end;
+
+  with TIniFile.Create(fTemplateDir+InfoName) do try
+    Caption := ReadString(sect_Information, id_Description, Caption);
+    fInvalidServers := ReadString(sect_Information, id_InvalidServers, '');
+    fInvalidServers := StringReplace(fInvalidServers,' ', '',[rfReplaceAll])+',';
+
+    fFixedServer := Trim(ReadString(sect_Information, id_FixedServer, ''));
+    fDefaultServer := Trim(ReadString(sect_Information, id_DefaultServer, fFixedServer));
+    fFixedChannel := Trim(ReadString(sect_Information, id_FixedChannel, ''));
+
+    fWizardAvailable := ReadString(sect_Information, id_WizardType, '') <> '';
+    
+    cbCreateClientAndGroup.Enabled := ReadBool(sect_Information, 'AllowClient', TRUE);
+    if not cbCreateClientAndGroup.Enabled then cbCreateClientAndGroup.Checked := false;
+  finally
+    Free;
+  end;
+end;
+
+procedure TServerProjectOptions.sbBrowseForDirClick(Sender: TObject);
+var dir : string;
+begin
+  dir := ePrjDir.Text;
+  if SelectDirectory('Select Project Directory','', Dir) then ePrjDir.Text := Dir;
+  //if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0{SELDIRHELP}) then ePrjDir.Text := Dir;
+end;
+
+procedure TServerProjectOptions.FormCloseQuery(Sender: TObject;
+  var CanClose: Boolean);
+var errmsg : string;
+begin
+  if (ModalResult=mrCancel) then begin
+    CanClose := TRUE;
+    Exit;
+  end
+  else CanClose := FALSE;
+
+  if (Trim(eSvcLibName.Text)='') then errmsg := 'Service Library Name cannot be blank'
+  else if (Trim(eSvcName.Text)='') then errmsg := 'Service Name cannot be blank'
+  else if (Trim(ePrjName.Text)='') then errmsg := 'Project name cannot be blank'
+  else if not DirectoryExists(ePrjDir.Text) and
+          not ForceDirectories(ePrjDir.Text) then errmsg := 'Specified directory does not exist or cannot be created'
+
+  else begin
+    CanClose := TRUE;
+    Exit;
+  end;
+
+  MessageDlg(errmsg, mtError, [mbOK], 0);
+end;
+
+procedure TServerProjectOptions.FormCreate(Sender: TObject);
+var i : integer;
+    svrclsname : string;
+begin
+  cbMessageClass.Items.Clear;
+  for i := 0 to (GetMessageClassCount-1) do
+    cbMessageClass.Items.Add(GetMessageClass(i).ClassName);
+
+  i := cbMessageClass.Items.IndexOf('TROBinMessage');
+  if i = -1 then i := 0;
+  cbMessageClass.ItemIndex := i;
+
+  cbServerClass.Items.Clear;
+
+  for i := 0 to (GetServerClassCount-1) do begin
+    svrclsname := GetServerClass(i).ClassName;
+
+    if (Pos(svrclsname+',', fInvalidServers)=0) then begin
+      cbServerClass.Items.Add(svrclsname);
+    end;
+  end;
+
+  cbServerClass.Enabled := (cbServerClass.Items.Count>1);
+  if (cbServerClass.Items.Count=0) then begin
+    cbServerClass.Visible := FALSE;
+    Exit;
+  end;
+
+  if (cbServerClass.Items.IndexOf(fDefaultServer)>0) then
+    cbServerClass.ItemIndex := cbServerClass.Items.IndexOf(fDefaultServer)
+  else
+    cbServerClass.ItemIndex := 0;
+
+  if fFixedServer <> '' then begin
+    cbServerClass.Enabled := false;
+    cbServerClass.Color := clBtnFace;
+    if cbServerClass.Text <> fFixedServer then
+      cbServerClass.ItemIndex := cbServerClass.Items.Add(fFixedServer);
+  end;
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I fServerProjectOptions.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROExtraEditors.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROExtraEditors.pas
new file mode 100644
index 0000000..35e16f6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROExtraEditors.pas	
@@ -0,0 +1,117 @@
+unit uROExtraEditors;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  Classes, uRODL,
+  {$IFDEF FPC}
+  PropEdits,ComponentEditors,
+  {$ELSE}
+  {$IFDEF DELPHI5}DsgnIntf, DMDesigner,{$ELSE}DesignIntf, DesignEditors,{$ENDIF}
+  {$ENDIF}
+  uRODynamicRequest;
+
+type
+  { TRODynRequestServiceNameProperty }
+  TRODynRequestServiceNameProperty = class(TStringProperty)
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+
+  { TRODynRequestOperationNameProperty }
+  TRODynRequestOperationNameProperty = class(TStringProperty)
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+
+  { TRODynamicRequestEditor }
+  TRODynamicRequestEditor = class(TComponentEditor)
+  public
+    function GetVerbCount: Integer; override;
+    procedure ExecuteVerb(Index: Integer); override;
+    function GetVerb(Index: Integer): string; override;
+  end;
+
+implementation
+
+uses
+  SysUtils, Dialogs, uROClientIntf;
+
+{ TRODynRequestServiceNameProperty }
+
+function TRODynRequestServiceNameProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList]
+end;
+
+procedure TRODynRequestServiceNameProperty.GetValues(Proc: TGetStrProc);
+var dynreq : TRODynamicRequest;
+    i: Integer;
+begin
+  dynreq := TRODynamicRequest(GetComponent(0));
+  for i := 0 to (dynreq.RODLLibrary.ServiceCount-1) do
+    Proc(dynreq.RODLLibrary.Services[i].Info.Name);
+end;
+
+{ TRODynRequestOperationNameProperty }
+
+function TRODynRequestOperationNameProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList]
+end;
+
+procedure TRODynRequestOperationNameProperty.GetValues(Proc: TGetStrProc);
+var dynreq : TRODynamicRequest;
+    i: Integer;
+    svc : TRODLService;
+begin
+  dynreq := TRODynamicRequest(GetComponent(0));
+
+  svc := TRODLService(dynreq.RODLLibrary.ItemByName(dynreq.RemoteService.ServiceName));
+  if (svc=NIL) then Exit;
+
+  for i := 0 to (svc.Default.Count-1) do
+    Proc(svc.Default.Items[i].Info.Name);
+end;
+
+{ TRODynamicRequestEditor }
+
+procedure TRODynamicRequestEditor.ExecuteVerb(Index: Integer);
+begin
+  with TRODynamicRequest(GetComponent).Params do begin
+    Refresh;
+    MessageDlg(Format('%d parameters have been created. ', [Count]), mtInformation, [mbOK], 0); 
+  end;
+end;
+
+function TRODynamicRequestEditor.GetVerb(Index: Integer): string;
+begin
+  result := 'Retrieve parameter list';
+end;
+
+function TRODynamicRequestEditor.GetVerbCount: Integer;
+begin
+  result := 1
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.dfm
new file mode 100644
index 0000000..f64f23f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.dfm	
@@ -0,0 +1,413 @@
+object IdeData: TIdeData
+  OldCreateOrder = False
+  Left = 586
+  Top = 308
+  Height = 150
+  Width = 215
+  object iml_Actions: TImageList
+    Left = 32
+    Top = 8
+    Bitmap = {
+      494C010108000900040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000003000000001002000000000000030
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00484A4B00484A4B00484A4B00484A4B00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00D5AA9800BDA39800B4968B00C99E8E00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF000000820000008200000082000000820000008200000082000000
+      820000008200000082000000820000008200FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00484A4B00484A4B006B6C6D006B6C6D006B6C6D00484A4B00484A
+      4B00484A4B00FF00FF00FF00FF00FF00FF00893615007D3213007D3213007D32
+      13007D3213007D3213007D3213007D3213007D3213007D3213007D3213007D32
+      13007D3213007D3213007D32130089361500FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00D8AA9700CEBFBB00B7BBC0009E9CA0009F8C8600D8AA9700FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF0095655F00A5696A00A5696A00A569
+      6A00A5696A0000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000008200FF00FF00FF00FF00FF00FF00FF00
+      FF00484A4B00A39AA100484A4B00467B4A00727572004D4E7F007F7F7F008080
+      8000484A4B00FF00FF00FF00FF00FF00FF00692A1100FEF3E700FFEFE0006E6C
+      6A00FBE7CF00FBE7CF006E6C6A00FEDDBA00FEDDBA006E6C6A00FCD3A700FBCE
+      9C006E6C6A00FCCB9700FCCB97007D321300FF00FF00FF00FF00FF00FF00FF00
+      FF00D8AF9A00E1D1CE00DADDE100C2917E00B4837000A09A9D00A08E8800C79E
+      8C00FF00FF00FF00FF00FF00FF00FF00FF0098686000FBE5C000F4D5AD00F0CF
+      9F00EFCA960000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000008200FF00FF00FF00FF00FF00FF00484A
+      4B00A39AA100A39AA100484A4B00039E0A00467B4A007B7B7B004C4C7E008080
+      8000484A4B00FF00FF00FF00FF00FF00FF0065281000EFE7DD006E6C6A006E6C
+      6A006E6C6A006E6C6A006E6C6A006E6C6A006E6C6A006E6C6A006E6C6A006E6C
+      6A006E6C6A006E6C6A006E6C6A00762F1200FF00FF00FF00FF00FF00FF00D8AA
+      9700EADED900F2FEFF00C67D5D00A7250300AA260300B1654800A39FA3009E8A
+      8700D8AA9700FF00FF00FF00FF00FF00FF009D6B6200FCE7C900F2D5B500F0D0
+      A900EECB9E0000008200FFFFFF00FFFFFF00FFFFFF000000820000008200FFFF
+      FF00FFFFFF00FFFFFF000000820000008200FF00FF00FF00FF00FF00FF00484A
+      4B00A39AA100A39AA100484A4B0078787A00747474007B7B7B007B7B7B008080
+      8000484A4B00FF00FF00FF00FF00FF00FF00652810006E6C6A006E6C6A003C5A
+      F7000B8A09006CB75C00FEE9D200FBE7CF00FEE2C400FEDDBA00FDDAB400FCD7
+      AD00FCD3A700E9CC9500FBCE9C00762F1200FF00FF00FF00FF00D8AA9700EFE1
+      D900FEFFFF00CE876A00B5411A00DD9F8200DD9E8100B8421A00B05E4000A19E
+      A3009E8B8700C69D8B00FF00FF00FF00FF00A36F6400FEEED400F4DDC000F2D7
+      B500F0D1AA0000008200FFFFFF000000820000008200FFFFFF00FFFFFF000000
+      8200FFFFFF0000008200FFFFFF0000008200FF00FF00FF00FF00FF00FF00484A
+      4B00A9A1A900A59DA500484A4B007B7A7D00737474007B7B7B007B7B7B008080
+      8000484A4B00FF00FF00FF00FF00FF00FF0065281000FEF3E7006E6C6A002243
+      FB00326E9F000B8A090073BA6000FBE7CF00FEE2C400FEE2C400FDDAB400FDDA
+      B40047A030000B8A0900168E0E0050420C00FF00FF00D8AA9700F2E2DD00FFFF
+      FF00D58F7200A72A0600AD361000F6E5DC00F4E1D700AD361000AC2D0800B162
+      4300A39EA1009E8A8700D8AA9700FF00FF00A7746600FFF4E100F6E1CA00F3DC
+      BF00F2D7B4000000820000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000008200FFFFFF00FFFFFF0000008200FF00FF00FF00FF00FF00FF00484A
+      4B00B2ABB100ACA6AC00484A4B007E7F8100737473007B7B7B007B7B7B008080
+      8000484A4B00FF00FF00FF00FF00FF00FF0065280F006E6C6A006E6C6A00C6CC
+      F2000F31FC00FEF3E7002E9E2800FEE9D200FBE7CF00FEE2C400FEDDBA0081B6
+      5D000B8A0900FCD3A700FCD3A7005F3A0F00D8AA9600F2E1DA00FFFFFF00E1A6
+      8800B43B1000B0350F00AF360F00F2D8CC00F0D4C700AD330E00AC310D00AD2D
+      0800B05E4000A0989C0099888400C79E8B00AD786900FFFBEE00F7E7D500F4E1
+      CA00F3DCBF0000008200FFFFFF000000820000008200FFFFFF00FFFFFF000000
+      8200FFFFFF0000008200FFFFFF0000008200FF00FF00FF00FF00FF00FF00484A
+      4B00BDB7BC00B8B1B600484A4B0091919300848486007A7A7A007A7A7A008080
+      8000484A4B00FF00FF00FF00FF00FF00FF0065280F00FFF6EE006E6C6A00FEF9
+      F2004D69F7001652A600148F1400EEE5D300BFBBDA00D5C9CF00BCCC90000A89
+      070083AC72000525FB00485BDC00762F1200E0BAAA00FFFFFF00F3D9C500C65D
+      2700C0542200BB4A1C00B6411700F3DCCF00F0D5C900AD340F00AC320D00AD35
+      0F00AD2C0700B47F6A009F9EA100B1958B00B47E6B00FFFFFB00F8EDE100F7E6
+      D400F6E1C90000008200FFFFFF00FFFFFF00FFFFFF000000820000008200FFFF
+      FF00FFFFFF00FFFFFF000000820000008200FF00FF00FF00FF00FF00FF00484A
+      4B00CAC4C900C4BDC200484A4B00828384007676760091919100919192009090
+      8F00484A4B00FF00FF00FF00FF00FF00FF00652810006E6C6A006E6C6A00FEF9
+      F200FEF9F2002849FA0004653900056E2A000F31FC000C2DFA000C84110047A0
+      30001635F300546ACB001635F3005E2D2D00E0BAAA00FFFFFF00F6DECB00D376
+      3600CC692F00C65D2800C0542200F6E3D800F2DACE00AF371000AC320D00AC32
+      0D00AB2E0900C2978700B8BBC000C1A39800BA836D00FFFFFF00FCF4EE00FAED
+      E100F8E9D50000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000008200FF00FF00FF00FF00FF00FF00484A
+      4B00D5D1D400D0CBCF00484A4B00939697008A8A8B00818181007E7E7E008888
+      8700484A4B00FF00FF00FF00FF00FF00FF0065280F00FFFCFA006E6C6A00FFFC
+      FA00FEF9F200FFF6EE00E1DDEA00148F1400FEEED900FEE9D20001760F000A3B
+      C100405ADE00FDDAB4009191C200642D2400D8AA9600F2E1D900FFFFFF00EFCB
+      A700D57D3B00CE6F3100D37B4600F2D4BF00E7BA9F00B8451900B0370F00AA2D
+      0900CA886D00DAE1E500CFBCB600D5A79300BF877000FFFFFF00FFFBFA00FEF4
+      ED00FAEEE00000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000008200FF00FF00FF00FF00FF00FF00484A
+      4B00E0DDE000DAD8DA00484A4B007E7F81006D6E6E0096969500959595009999
+      9900484A4B00FF00FF00FF00FF00FF00FF00692A11006E6C6A006E6C6A00FFFC
+      FA00FEF9F200FEF9F200FFF6EE00DCE5C5001D9519000B8A090041955300465E
+      E900EED5C100FDDAB400FDDAB4007D321300FF00FF00D8AA9700EFDDD500FFFF
+      FF00F3D4B200DC8A4500D57E3E00D8895500D0794800C0542100BB471800D79A
+      7F00F0FEFF00E0CFC900D8AA9700FF00FF00C48C7200FFFFFF00FFFFFF00FFFC
+      FA00FCF4ED000000820000008200000082000000820000008200000082000000
+      820000008200000082000000820000008200FF00FF00FF00FF00FF00FF00484A
+      4B00E9E6E900E3E3E300484A4B00686A6A00585A5A0056585800636464007474
+      7400484A4B00FF00FF00FF00FF00FF00FF009E512300CB934600C68C4100C68C
+      4100C68C4100C68C4100C68C4100C68C4100C68C4100C68C4100CD995100CB93
+      4600CD995100C1914E00BB955C00A1522200FF00FF00FF00FF00D7A79300EEDD
+      D400FFFFFF00F6D7B600E0924A00FAEADA00F7E0D000C9642800E1A48200FEFF
+      FF00E9DCD700D7AA9700FF00FF00FF00FF00CA917400FFFFFF00FFFFFF00FFFF
+      FF00FFFCFA00FCF4ED00FAEDDE00F8E7D400FCEBD300E3D3BB00B7AD9C00A569
+      6A00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00484A
+      4B00EBEAEB00FAFAFB00A7A7AA0074747500767678007D7D7E00656667005556
+      5700484A4B00FF00FF00FF00FF00FF00FF0099411500CE641400CE641400CE64
+      1400CE641400CE641400CE641400CE641400CE641400D1681800F3A96600E070
+      1100F3A966009F6339003553C700A6420C00FF00FF00FF00FF00FF00FF00D8AA
+      9700EEDAD000FFFFFF00F6DCBB00F0C58F00EAB07900EBBC9300FFFFFF00F0E2
+      DA00D8AA9700FF00FF00FF00FF00FF00FF00CE957600FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FEFCFA00FCF6EB00FAEFE000A5696A00A5696A00A5696A00A569
+      6A00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00484A
+      4B00FFFFFF00F8F8FA00F7F6F800E6E5E700D0CED000BAB4B800A69FA4009991
+      9700484A4B00FF00FF00FF00FF00FF00FF00FF00FF0093401A0093401A009340
+      1A0093401A0093401A0093401A0093401A0093401A0093401A0099441C00953E
+      150099441C008C3C1A00843D2400FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00D7A69100EED9D000FFFFFF00FAEAD300F6E0C600FFFFFF00F4E5DE00D8AD
+      9900FF00FF00FF00FF00FF00FF00FF00FF00D3977800FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFC00F4EBE600A5696A00E2A35B00EF993800BB70
+      4F00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00484A
+      4B00484A4B00F8F8FA00F8F8FA00EAE9EB00D5D3D500BDBABD00484A4B00484A
+      4B00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00D8AA9700EED9CF00FFFFFF00FFFFFF00F3E6E000D8AA9700FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00D59A7900FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00F8F8FE00A5696A00E5A55F00C2805C00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00484A4B00484A4B00484A4B00484A4B00484A4B00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00D8AA9600E0BAAA00E0BAAA00D8AA9600FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00D0906B00D0906B00D0906B00D090
+      6B00D0906B00D0906B00D0906B00D0906B00A5696A00BB7F6A00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF006262620018181800121212000E0E0E000E0E0E0053535300FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF000000820000008200000082000000820000008200000082000000
+      820000008200000082000000820000008200FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00A3666800A3666800A3666800A3666800A467
+      6900A4676900A4676900A4676900A46769000151CA00004BC100FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF006262
+      62002727270027272700171A39000B0F60000809570007074A0007071A000000
+      000041414100FF00FF00FF00FF00FF00FF0095655F00A5696A00A5696A00A569
+      6A00A5696A0000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000008200FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF009F646600F7E5C600F2D9B100EED1A100EECC
+      9300F0C78700EFC58000F7D08300A4676900004DC400095CD300055BD700FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00414141003131
+      31002C2C2C00272727001A1E4900000CB3000006A70000009A0000009A000202
+      630003030D0012121200FF00FF00FF00FF0098686000FBE5C000F4D5AD00F0CF
+      9F00EFCA960000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000008200FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF008E595B00D8CAB700D3C0A700D1B89A00DCBD
+      9700E6C29200E7BF8400F0C68100A4676900004BC0001C74E3002682F7000151
+      CA000455CA000454CB00004CC100004CC100FF00FF00FF00FF00FF00FF00FF00
+      FF0007E9E700FF00FF00FF00FF00FF00FF00FF00FF00626262003B3B3B003131
+      3100313131002C2C2C00252631000B178D0007108C000006A70000009A000000
+      9A0001017E0003030D0041414100FF00FF009D6B6200FCE7C900F2D5B500F0D0
+      A900EECB9E0000008200FFFFFF0000008200FFFFFF0000008200FFFFFF00FFFF
+      FF0000008200FFFFFF00FFFFFF0000008200FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF0076575100A19C93009E928400A0917F00C0A9
+      8C00DABC9500E6C19000F0C98700A4676900FF00FF00014FC4000C5FD3001167
+      DC002581F4001975EB00116CE6000559D000004EC400FF00FF00FF00FF0007EA
+      E100FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0041414100414141003B3B
+      3B003B3B3B00313131002C2C2C00272727001A1E4900000CB3000006A7000000
+      9A0000009A000202630000000000FF00FF00A36F6400FEEED400F4DDC000F2D7
+      B500F0D1AA0000008200FFFFFF000000820000008200FFFFFF00FFFFFF000000
+      8200FFFFFF0000008200FFFFFF0000008200FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00005CFF0056413B006B696800005CFF00736A5F009688
+      7600C0A98C00DDBD9600EECC9300A4676900FF00FF00FF00FF00014BC1002881
+      F0002883F600217FF400136EE600004CC1000966E5000254E100003A1900FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00858585004949490041445000123B
+      DB000133FC0024337100313131002C2C2C000A1CA2000013BF00000CB3000006
+      A70000009A0000009A0007071A0053535300A7746600FFF4E100F6E1CA00F3DC
+      BF00F2D7B40000008200FFFFFF0000008200FFFFFF0000008200FFFFFF000000
+      8200FFFFFF0000008200FFFFFF0000008200A5686A00A6696A00A4686900A066
+      67008F5B5B006D454500005CFF00005CFF00005CFF00005CFF005B5652007269
+      5F00A0927F00D1B69800F2D3A300A3666800FF00FF00FF00FF000250C600166E
+      E1002B88F8001A76ED00004CC1000D69E5000862F300004A780001510300015C
+      0D00FF00FF00FF00FF00FF00FF00FF00FF00535353004949490043507B001243
+      FF00083BFF001335C000313131003131310021285600071CAC000415AC00000C
+      B3000A0E68000404820007074A000E0E0E00AD786900FFFBEE00F7E7D500F4E1
+      CA00F3DCBF0000008200FFFFFF0000008200FFFFFF0000008200FFFFFF000000
+      8200FFFFFF0000008200FFFFFF0000008200A4676900FCE6C100EECFA600E7C5
+      9600005CFF00005CFF00005CFF00005CFF00005CFF00005CFF00005CFF00005C
+      FF009F928400DAC9AD00EAD8B200A3666800FF00FF00FF00FF00FF00FF000250
+      C6002580F300004CC1000F69E2000D69F700004A8900015506000A7813000154
+      030000450000FF00FF00FF00FF00FF00FF0059595900535353004F4F4F00294A
+      C7001E43D000353E63003B3B3B003B3B3B00242E5E000822B800172266001C1F
+      3F001B1C260012133A000E0E35000E0E0E00B47E6B00FFFFFB00F8EDE100F7E6
+      D400F6E1C90000008200FFFFFF000000820000008200FFFFFF00FFFFFF00FFFF
+      FF0000008200FFFFFF00FFFFFF0000008200A5686A00FEEED300F0D5B500EACB
+      A300CEAD8300005CFF00005CFF005541330077777700005CFF00005CFF006B69
+      6700A19990008C5B51009D665B00A3666800FF00FF00FF00FF00FF00FF000250
+      C600004CC100116BE1001672FA00004AA10001520A000D831A0004640C000045
+      0000014E0100FF00FF00FF00FF00FF00FF005959590059595900535353005353
+      530049494900414141004141410030395F00032CE5001F2C7300262A42002727
+      270027272700181818001818180012121200BA836D00FFFFFF00FCF4EE00FAED
+      E100F8E9D50000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000008200A7756B00FFF7E300F3DDC400EAD1
+      B100D0B59100005CFF00005CFF005441320060606000005CFF00005CFF007676
+      7600A4A19F008C5B5100DA904400BD724700FF00FF00FF00FF00FF00FF00FF00
+      FF000758CF001C78FA00024FB000014F11000F891C000870130000450000066C
+      110001540300FF00FF00FF00FF00FF00FF006262620062626200595959005353
+      530053535300494949003E445B003B3B3B000433F00021327D00313131001E28
+      62000019CC00121B68001818180018181800BF877000FFFFFF00FFFBFA00FEF4
+      ED00FAEEE00000008200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000008200A7756B00FFFEF700F7E7D400EFD9
+      C100005CFF00005CFF00005CFF00005CFF00005CFF00005CFF00005CFF00005C
+      FF00C0BABA0095605600C5846000FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF000148B40001511B00119120000C801F000045000009751600076D
+      1100035A0600FF00FF00FF00FF00FF00FF0085858500626262005C5F68004860
+      AB004F55690043507B001B4CFF001844E7000F3BE70030395F0031313100192B
+      8A00001FD8000E1E8E002727270062626200C48C7200FFFFFF00FFFFFF00FFFC
+      FA00FCF4ED000000820000008200000082000000820000008200000082000000
+      820000008200000082000000820000008200BC826800FFFFFF00FBEFE500F6E5
+      D300EED9C000DDC4A600005CFF00005CFF00005CFF00005CFF00D1926D00D192
+      6D00D1926D009D665B00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00045E03000F8C2800004500000C811F000B7B1B00066C
+      1100035D070000480000FF00FF00FF00FF00FF00FF0068686800556CB100406E
+      FF003F63D4003C5ABE002454FF001B4CFF001543F300203DAA003B3B3B003B3B
+      3B00242E5E00292B370027272700FF00FF00CA917400FFFFFF00FFFFFF00FFFF
+      FF00FFFCFA00FCF4ED00FAEDDE00F8E7D400FCEBD300E3D3BB00B7AD9C00A569
+      6A00FF00FF00FF00FF00FF00FF00FF00FF00BC826800FFFFFF00FFFBF700FAF0
+      E500F6E5D100EFD9C000005CFF00CFB692008C585A00005CFF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF0007F8F600FF00FF00FF00FF0000480000035B0700066B110005680E000464
+      0C0001560300066A0F0001530300FF00FF00FF00FF0085858500666971004D73
+      E200406EFF003666FF002D5DFF002454FF001B4CFF001843E7003C3F4B00373A
+      4700313131003131310053535300FF00FF00CE957600FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FEFCFA00FCF6EB00FAEFE000A5696A00A5696A00A5696A00A569
+      6A00FF00FF00FF00FF00FF00FF00FF00FF00D1926D00FFFFFF00FFFFFF00FEFB
+      F700FBEFE500F7E5D100A1695D00A0685C009E636500FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0007E9
+      E700FF00FF00FF00FF00FF00FF00FF00FF00004700000046000000490000004A
+      0000004600000E8A2500066B100000490000FF00FF00FF00FF00737373006669
+      71005070CF00406EFF003666FF002D5DFF002454FF001B4CFF001843E700203D
+      AA003B3B3B0041414100FF00FF00FF00FF00D3977800FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFC00F4EBE600A5696A00E2A35B00EF993800BB70
+      4F00FF00FF00FF00FF00FF00FF00FF00FF00DA9D7500FFFFFF00FFFFFF00FFFF
+      FF00FFFEFC00E5D3CC00A56B5F00CF834300AF6A5400FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF000046000001540300004E0100FF00FF00FF00FF00FF00FF008585
+      8500686868005F6577005065A5004860AB004860AB003B519C00434A60004141
+      410062626200FF00FF00FF00FF00FF00FF00D59A7900FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00F8F8FE00A5696A00E5A55F00C2805C00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00E7AB7900FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00E1D5D900A56B5F00D48E5A00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF000046000000460000FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00858585006262620059595900595959005353530085858500FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00D0906B00D0906B00D0906B00D090
+      6B00D0906B00D0906B00D0906B00D0906B00A5696A00BB7F6A00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00E7AB7900D1926D00D1926D00D192
+      6D00D1926D00D1926D00A56B5F00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00424D3E000000000000003E000000
+      2800000040000000300000000100010000000000800100000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000}
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.lfm
new file mode 100644
index 0000000..8aec810
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.lfm	
@@ -0,0 +1,272 @@
+object IdeData: TIdeData
+  left = 586
+  top = 308
+  Height = 150
+  HorizontalOffset = 53
+  VerticalOffset = 96
+  Width = 215
+  object iml_Actions: TImageList
+    BkColor = clForeground
+    left = 32
+    top = 8
+    Bitmap = {
+      4C69080000001000000010000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF858585FF626262FF595959FF595959FF535353FF858585FFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF858585FF6868
+      68FF5F6577FF5065A5FF4860ABFF4860ABFF3B519CFF434A60FF414141FF6262
+      62FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF737373FF666971FF5070
+      CFFF406EFFFF3666FFFF2D5DFFFF2454FFFF1B4CFFFF1843E7FF203DAAFF3B3B
+      3BFF414141FFFF00FFFFFF00FFFFFF00FFFF858585FF666971FF4D73E2FF406E
+      FFFF3666FFFF2D5DFFFF2454FFFF1B4CFFFF1843E7FF3C3F4BFF373A47FF3131
+      31FF313131FF535353FFFF00FFFFFF00FFFF686868FF556CB1FF406EFFFF3F63
+      D4FF3C5ABEFF2454FFFF1B4CFFFF1543F3FF203DAAFF3B3B3BFF3B3B3BFF242E
+      5EFF292B37FF272727FFFF00FFFF858585FF626262FF5C5F68FF4860ABFF4F55
+      69FF43507BFF1B4CFFFF1844E7FF0F3BE7FF30395FFF313131FF192B8AFF001F
+      D8FF0E1E8EFF272727FF626262FF626262FF626262FF595959FF535353FF5353
+      53FF494949FF3E445BFF3B3B3BFF0433F0FF21327DFF313131FF1E2862FF0019
+      CCFF121B68FF181818FF181818FF595959FF595959FF535353FF535353FF4949
+      49FF414141FF414141FF30395FFF032CE5FF1F2C73FF262A42FF272727FF2727
+      27FF181818FF181818FF121212FF595959FF535353FF4F4F4FFF294AC7FF1E43
+      D0FF353E63FF3B3B3BFF3B3B3BFF242E5EFF0822B8FF172266FF1C1F3FFF1B1C
+      26FF12133AFF0E0E35FF0E0E0EFF535353FF494949FF43507BFF1243FFFF083B
+      FFFF1335C0FF313131FF313131FF212856FF071CACFF0415ACFF000CB3FF0A0E
+      68FF040482FF07074AFF0E0E0EFF858585FF494949FF414450FF123BDBFF0133
+      FCFF243371FF313131FF2C2C2CFF0A1CA2FF0013BFFF000CB3FF0006A7FF0000
+      9AFF00009AFF07071AFF535353FFFF00FFFF414141FF414141FF3B3B3BFF3B3B
+      3BFF313131FF2C2C2CFF272727FF1A1E49FF000CB3FF0006A7FF00009AFF0000
+      9AFF020263FF000000FFFF00FFFFFF00FFFF626262FF3B3B3BFF313131FF3131
+      31FF2C2C2CFF252631FF0B178DFF07108CFF0006A7FF00009AFF00009AFF0101
+      7EFF03030DFF414141FFFF00FFFFFF00FFFFFF00FFFF414141FF313131FF2C2C
+      2CFF272727FF1A1E49FF000CB3FF0006A7FF00009AFF00009AFF020263FF0303
+      0DFF121212FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF626262FF2727
+      27FF272727FF171A39FF0B0F60FF080957FF07074AFF07071AFF000000FF4141
+      41FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF626262FF181818FF121212FF0E0E0EFF0E0E0EFF535353FFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFD0906BFFD0906BFFD0906BFFD0906BFFD090
+      6BFFD0906BFFD0906BFFD0906BFFA5696AFFBB7F6AFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFD59A79FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFF8F8FEFFA5696AFFE5A55FFFC2805CFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFD39778FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFCFFF4EBE6FFA5696AFFE2A35BFFEF9938FFBB704FFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFCE9576FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFEFCFAFFFCF6EBFFFAEFE0FFA5696AFFA5696AFFA5696AFFA5696AFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFCA9174FFFFFFFFFFFFFFFFFFFFFFFFFFFFFC
+      FAFFFCF4EDFFFAEDDEFFF8E7D4FFFCEBD3FFE3D3BBFFB7AD9CFFA5696AFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFC48C72FFFFFFFFFFFFFFFFFFFFFCFAFFFCF4
+      EDFF000082FF000082FF000082FF000082FF000082FF000082FF000082FF0000
+      82FF000082FF000082FF000082FFBF8770FFFFFFFFFFFFFBFAFFFEF4EDFFFAEE
+      E0FF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF000082FFBA836DFFFFFFFFFFFCF4EEFFFAEDE1FFF8E9
+      D5FF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF000082FFB47E6BFFFFFFFBFFF8EDE1FFF7E6D4FFF6E1
+      C9FF000082FFFFFFFFFF000082FF000082FFFFFFFFFFFFFFFFFFFFFFFFFF0000
+      82FFFFFFFFFFFFFFFFFF000082FFAD7869FFFFFBEEFFF7E7D5FFF4E1CAFFF3DC
+      BFFF000082FFFFFFFFFF000082FFFFFFFFFF000082FFFFFFFFFF000082FFFFFF
+      FFFF000082FFFFFFFFFF000082FFA77466FFFFF4E1FFF6E1CAFFF3DCBFFFF2D7
+      B4FF000082FFFFFFFFFF000082FFFFFFFFFF000082FFFFFFFFFF000082FFFFFF
+      FFFF000082FFFFFFFFFF000082FFA36F64FFFEEED4FFF4DDC0FFF2D7B5FFF0D1
+      AAFF000082FFFFFFFFFF000082FF000082FFFFFFFFFFFFFFFFFF000082FFFFFF
+      FFFF000082FFFFFFFFFF000082FF9D6B62FFFCE7C9FFF2D5B5FFF0D0A9FFEECB
+      9EFF000082FFFFFFFFFF000082FFFFFFFFFF000082FFFFFFFFFFFFFFFFFF0000
+      82FFFFFFFFFFFFFFFFFF000082FF986860FFFBE5C0FFF4D5ADFFF0CF9FFFEFCA
+      96FF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF000082FF95655FFFA5696AFFA5696AFFA5696AFFA569
+      6AFF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF000082FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF000082FF000082FF000082FF000082FF000082FF000082FF000082FF0000
+      82FF000082FF000082FF000082FFE7AB79FFD1926DFFD1926DFFD1926DFFD192
+      6DFFD1926DFFA56B5FFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFE7AB79FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFE1D5D9FFA56B5FFFD48E5AFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFDA9D75FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE
+      FCFFE5D3CCFFA56B5FFFCF8343FFAF6A54FFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFD1926DFFFFFFFFFFFFFFFFFFFEFBF7FFFBEF
+      E5FFF7E5D1FFA1695DFFA0685CFF9E6365FFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFBC8268FFFFFFFFFFFFFBF7FFFAF0E5FFF6E5
+      D1FFEFD9C0FF005CFFFFCFB692FF8C585AFF005CFFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFBC8268FFFFFFFFFFFBEFE5FFF6E5D3FFEED9
+      C0FFDDC4A6FF005CFFFF005CFFFF005CFFFF005CFFFFD1926DFFD1926DFFD192
+      6DFF9D665BFFFF00FFFFFF00FFFFA7756BFFFFFEF7FFF7E7D4FFEFD9C1FF005C
+      FFFF005CFFFF005CFFFF005CFFFF005CFFFF005CFFFF005CFFFF005CFFFFC0BA
+      BAFF956056FFC58460FFFF00FFFFA7756BFFFFF7E3FFF3DDC4FFEAD1B1FFD0B5
+      91FF005CFFFF005CFFFF544132FF606060FF005CFFFF005CFFFF767676FFA4A1
+      9FFF8C5B51FFDA9044FFBD7247FFA5686AFFFEEED3FFF0D5B5FFEACBA3FFCEAD
+      83FF005CFFFF005CFFFF554133FF777777FF005CFFFF005CFFFF6B6967FFA199
+      90FF8C5B51FF9D665BFFA36668FFA46769FFFCE6C1FFEECFA6FFE7C596FF005C
+      FFFF005CFFFF005CFFFF005CFFFF005CFFFF005CFFFF005CFFFF005CFFFF9F92
+      84FFDAC9ADFFEAD8B2FFA36668FFA5686AFFA6696AFFA46869FFA06667FF8F5B
+      5BFF6D4545FF005CFFFF005CFFFF005CFFFF005CFFFF5B5652FF72695FFFA092
+      7FFFD1B698FFF2D3A3FFA36668FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFF005CFFFF56413BFF6B6968FF005CFFFF736A5FFF968876FFC0A9
+      8CFFDDBD96FFEECC93FFA46769FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFF765751FFA19C93FF9E9284FFA0917FFFC0A98CFFDABC
+      95FFE6C190FFF0C987FFA46769FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFF8E595BFFD8CAB7FFD3C0A7FFD1B89AFFDCBD97FFE6C2
+      92FFE7BF84FFF0C681FFA46769FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFF9F6466FFF7E5C6FFF2D9B1FFEED1A1FFEECC93FFF0C7
+      87FFEFC580FFF7D083FFA46769FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFA36668FFA36668FFA36668FFA36668FFA46769FFA467
+      69FFA46769FFA46769FFA46769FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFF004600FF004600FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF004600FF015403FF004E01FFFF00FFFFFF00FFFFFF00FFFF07E9E7FFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFF004700FF004600FF004900FF004A00FF0046
+      00FF0E8A25FF066B10FF004900FFFF00FFFFFF00FFFFFF00FFFFFF00FFFF07F8
+      F6FFFF00FFFFFF00FFFF004800FF035B07FF066B11FF05680EFF04640CFF0156
+      03FF066A0FFF015303FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFF045E03FF0F8C28FF004500FF0C811FFF0B7B1BFF066C11FF035D
+      07FF004800FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF0148B4FF01511BFF119120FF0C801FFF004500FF097516FF076D11FF035A
+      06FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF0758
+      CFFF1C78FAFF024FB0FF014F11FF0F891CFF087013FF004500FF066C11FF0154
+      03FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF0250C6FF004C
+      C1FF116BE1FF1672FAFF004AA1FF01520AFF0D831AFF04640CFF004500FF014E
+      01FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF0250C6FF2580
+      F3FF004CC1FF0F69E2FF0D69F7FF004A89FF015506FF0A7813FF015403FF0045
+      00FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF0250C6FF166EE1FF2B88
+      F8FF1A76EDFF004CC1FF0D69E5FF0862F3FF004A78FF015103FF015C0DFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF014BC1FF2881F0FF2883
+      F6FF217FF4FF136EE6FF004CC1FF0966E5FF0254E1FF003A19FFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF014FC4FF0C5FD3FF1167DCFF2581
+      F4FF1975EBFF116CE6FF0559D0FF004EC4FFFF00FFFFFF00FFFF07EAE1FFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFF004BC0FF1C74E3FF2682F7FF0151CAFF0455
+      CAFF0454CBFF004CC1FF004CC1FFFF00FFFFFF00FFFFFF00FFFFFF00FFFF07E9
+      E7FFFF00FFFFFF00FFFFFF00FFFF004DC4FF095CD3FF055BD7FFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFF0151CAFF004BC1FFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF484A4BFF484A4BFF484A4BFF484A4BFF484A4BFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFF484A
+      4BFFF8F8FAFFF8F8FAFFEAE9EBFFD5D3D5FFBDBABDFF484A4BFF484A4BFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFFFFF
+      FFFFF8F8FAFFF7F6F8FFE6E5E7FFD0CED0FFBAB4B8FFA69FA4FF999197FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFEBEA
+      EBFFFAFAFBFFA7A7AAFF747475FF767678FF7D7D7EFF656667FF555657FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFE9E6
+      E9FFE3E3E3FF484A4BFF686A6AFF585A5AFF565858FF636464FF747474FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFE0DD
+      E0FFDAD8DAFF484A4BFF7E7F81FF6D6E6EFF969695FF959595FF999999FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFD5D1
+      D4FFD0CBCFFF484A4BFF939697FF8A8A8BFF818181FF7E7E7EFF888887FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFCAC4
+      C9FFC4BDC2FF484A4BFF828384FF767676FF919191FF919192FF90908FFF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFBDB7
+      BCFFB8B1B6FF484A4BFF919193FF848486FF7A7A7AFF7A7A7AFF808080FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFB2AB
+      B1FFACA6ACFF484A4BFF7E7F81FF737473FF7B7B7BFF7B7B7BFF808080FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFA9A1
+      A9FFA59DA5FF484A4BFF7B7A7DFF737474FF7B7B7BFF7B7B7BFF808080FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFA39A
+      A1FFA39AA1FF484A4BFF78787AFF747474FF7B7B7BFF7B7B7BFF808080FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A4BFFA39A
+      A1FFA39AA1FF484A4BFF039E0AFF467B4AFF7B7B7BFF4C4C7EFF808080FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF484A
+      4BFFA39AA1FF484A4BFF467B4AFF727572FF4D4E7FFF7F7F7FFF808080FF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF484A4BFF484A4BFF6B6C6DFF6B6C6DFF6B6C6DFF484A4BFF484A4BFF484A
+      4BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFF484A4BFF484A4BFF484A4BFF484A4BFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF93401AFF93401AFF93401AFF9340
+      1AFF93401AFF93401AFF93401AFF93401AFF93401AFF99441CFF953E15FF9944
+      1CFF8C3C1AFF843D24FFFF00FFFF994115FFCE6414FFCE6414FFCE6414FFCE64
+      14FFCE6414FFCE6414FFCE6414FFCE6414FFD16818FFF3A966FFE07011FFF3A9
+      66FF9F6339FF3553C7FFA6420CFF9E5123FFCB9346FFC68C41FFC68C41FFC68C
+      41FFC68C41FFC68C41FFC68C41FFC68C41FFC68C41FFCD9951FFCB9346FFCD99
+      51FFC1914EFFBB955CFFA15222FF692A11FF6E6C6AFF6E6C6AFFFFFCFAFFFEF9
+      F2FFFEF9F2FFFFF6EEFFDCE5C5FF1D9519FF0B8A09FF419553FF465EE9FFEED5
+      C1FFFDDAB4FFFDDAB4FF7D3213FF65280FFFFFFCFAFF6E6C6AFFFFFCFAFFFEF9
+      F2FFFFF6EEFFE1DDEAFF148F14FFFEEED9FFFEE9D2FF01760FFF0A3BC1FF405A
+      DEFFFDDAB4FF9191C2FF642D24FF652810FF6E6C6AFF6E6C6AFFFEF9F2FFFEF9
+      F2FF2849FAFF046539FF056E2AFF0F31FCFF0C2DFAFF0C8411FF47A030FF1635
+      F3FF546ACBFF1635F3FF5E2D2DFF65280FFFFFF6EEFF6E6C6AFFFEF9F2FF4D69
+      F7FF1652A6FF148F14FFEEE5D3FFBFBBDAFFD5C9CFFFBCCC90FF0A8907FF83AC
+      72FF0525FBFF485BDCFF762F12FF65280FFF6E6C6AFF6E6C6AFFC6CCF2FF0F31
+      FCFFFEF3E7FF2E9E28FFFEE9D2FFFBE7CFFFFEE2C4FFFEDDBAFF81B65DFF0B8A
+      09FFFCD3A7FFFCD3A7FF5F3A0FFF652810FFFEF3E7FF6E6C6AFF2243FBFF326E
+      9FFF0B8A09FF73BA60FFFBE7CFFFFEE2C4FFFEE2C4FFFDDAB4FFFDDAB4FF47A0
+      30FF0B8A09FF168E0EFF50420CFF652810FF6E6C6AFF6E6C6AFF3C5AF7FF0B8A
+      09FF6CB75CFFFEE9D2FFFBE7CFFFFEE2C4FFFEDDBAFFFDDAB4FFFCD7ADFFFCD3
+      A7FFE9CC95FFFBCE9CFF762F12FF652810FFEFE7DDFF6E6C6AFF6E6C6AFF6E6C
+      6AFF6E6C6AFF6E6C6AFF6E6C6AFF6E6C6AFF6E6C6AFF6E6C6AFF6E6C6AFF6E6C
+      6AFF6E6C6AFF6E6C6AFF762F12FF692A11FFFEF3E7FFFFEFE0FF6E6C6AFFFBE7
+      CFFFFBE7CFFF6E6C6AFFFEDDBAFFFEDDBAFF6E6C6AFFFCD3A7FFFBCE9CFF6E6C
+      6AFFFCCB97FFFCCB97FF7D3213FF893615FF7D3213FF7D3213FF7D3213FF7D32
+      13FF7D3213FF7D3213FF7D3213FF7D3213FF7D3213FF7D3213FF7D3213FF7D32
+      13FF7D3213FF7D3213FF893615FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFD8AA96FFE0BAAAFFE0BAAAFFD8AA96FFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFD8AA97FFEED9CFFFFFFFFFFFFFFFFFFFF3E6E0FFD8AA97FFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFD7A6
+      91FFEED9D0FFFFFFFFFFFAEAD3FFF6E0C6FFFFFFFFFFF4E5DEFFD8AD99FFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFD8AA97FFEEDA
+      D0FFFFFFFFFFF6DCBBFFF0C58FFFEAB079FFEBBC93FFFFFFFFFFF0E2DAFFD8AA
+      97FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFD7A793FFEEDDD4FFFFFF
+      FFFFF6D7B6FFE0924AFFFAEADAFFF7E0D0FFC96428FFE1A482FFFEFFFFFFE9DC
+      D7FFD7AA97FFFF00FFFFFF00FFFFFF00FFFFD8AA97FFEFDDD5FFFFFFFFFFF3D4
+      B2FFDC8A45FFD57E3EFFD88955FFD07948FFC05421FFBB4718FFD79A7FFFF0FE
+      FFFFE0CFC9FFD8AA97FFFF00FFFFD8AA96FFF2E1D9FFFFFFFFFFEFCBA7FFD57D
+      3BFFCE6F31FFD37B46FFF2D4BFFFE7BA9FFFB84519FFB0370FFFAA2D09FFCA88
+      6DFFDAE1E5FFCFBCB6FFD5A793FFE0BAAAFFFFFFFFFFF6DECBFFD37636FFCC69
+      2FFFC65D28FFC05422FFF6E3D8FFF2DACEFFAF3710FFAC320DFFAC320DFFAB2E
+      09FFC29787FFB8BBC0FFC1A398FFE0BAAAFFFFFFFFFFF3D9C5FFC65D27FFC054
+      22FFBB4A1CFFB64117FFF3DCCFFFF0D5C9FFAD340FFFAC320DFFAD350FFFAD2C
+      07FFB47F6AFF9F9EA1FFB1958BFFD8AA96FFF2E1DAFFFFFFFFFFE1A688FFB43B
+      10FFB0350FFFAF360FFFF2D8CCFFF0D4C7FFAD330EFFAC310DFFAD2D08FFB05E
+      40FFA0989CFF998884FFC79E8BFFFF00FFFFD8AA97FFF2E2DDFFFFFFFFFFD58F
+      72FFA72A06FFAD3610FFF6E5DCFFF4E1D7FFAD3610FFAC2D08FFB16243FFA39E
+      A1FF9E8A87FFD8AA97FFFF00FFFFFF00FFFFFF00FFFFD8AA97FFEFE1D9FFFEFF
+      FFFFCE876AFFB5411AFFDD9F82FFDD9E81FFB8421AFFB05E40FFA19EA3FF9E8B
+      87FFC69D8BFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFD8AA97FFEADE
+      D9FFF2FEFFFFC67D5DFFA72503FFAA2603FFB16548FFA39FA3FF9E8A87FFD8AA
+      97FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFD8AF
+      9AFFE1D1CEFFDADDE1FFC2917EFFB48370FFA09A9DFFA08E88FFC79E8CFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFD8AA97FFCEBFBBFFB7BBC0FF9E9CA0FF9F8C86FFD8AA97FFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFD5AA98FFBDA398FFB4968BFFC99E8EFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFD0906BFFD0906BFFD0906BFFD0906BFFD090
+      6BFFD0906BFFD0906BFFD0906BFFA5696AFFBB7F6AFFFF00FFFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFD59A79FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFF8F8FEFFA5696AFFE5A55FFFC2805CFFFF00FFFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFD39778FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFCFFF4EBE6FFA5696AFFE2A35BFFEF9938FFBB704FFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFCE9576FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFEFCFAFFFCF6EBFFFAEFE0FFA5696AFFA5696AFFA5696AFFA5696AFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFCA9174FFFFFFFFFFFFFFFFFFFFFFFFFFFFFC
+      FAFFFCF4EDFFFAEDDEFFF8E7D4FFFCEBD3FFE3D3BBFFB7AD9CFFA5696AFFFF00
+      FFFFFF00FFFFFF00FFFFFF00FFFFC48C72FFFFFFFFFFFFFFFFFFFFFCFAFFFCF4
+      EDFF000082FF000082FF000082FF000082FF000082FF000082FF000082FF0000
+      82FF000082FF000082FF000082FFBF8770FFFFFFFFFFFFFBFAFFFEF4EDFFFAEE
+      E0FF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF000082FFBA836DFFFFFFFFFFFCF4EEFFFAEDE1FFF8E9
+      D5FF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF000082FFB47E6BFFFFFFFBFFF8EDE1FFF7E6D4FFF6E1
+      C9FF000082FFFFFFFFFFFFFFFFFFFFFFFFFF000082FF000082FFFFFFFFFFFFFF
+      FFFFFFFFFFFF000082FF000082FFAD7869FFFFFBEEFFF7E7D5FFF4E1CAFFF3DC
+      BFFF000082FFFFFFFFFF000082FF000082FFFFFFFFFFFFFFFFFF000082FFFFFF
+      FFFF000082FFFFFFFFFF000082FFA77466FFFFF4E1FFF6E1CAFFF3DCBFFFF2D7
+      B4FF000082FF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
+      82FFFFFFFFFFFFFFFFFF000082FFA36F64FFFEEED4FFF4DDC0FFF2D7B5FFF0D1
+      AAFF000082FFFFFFFFFF000082FF000082FFFFFFFFFFFFFFFFFF000082FFFFFF
+      FFFF000082FFFFFFFFFF000082FF9D6B62FFFCE7C9FFF2D5B5FFF0D0A9FFEECB
+      9EFF000082FFFFFFFFFFFFFFFFFFFFFFFFFF000082FF000082FFFFFFFFFFFFFF
+      FFFFFFFFFFFF000082FF000082FF986860FFFBE5C0FFF4D5ADFFF0CF9FFFEFCA
+      96FF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF000082FF95655FFFA5696AFFA5696AFFA5696AFFA569
+      6AFF000082FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF000082FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      FFFF000082FF000082FF000082FF000082FF000082FF000082FF000082FF0000
+      82FF000082FF000082FF000082FF
+    }
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.lrs
new file mode 100644
index 0000000..4db3ebf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.lrs	
@@ -0,0 +1,377 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TIdeData','FORMDATA',[
+  'TPF0'#8'TIdeData'#7'IdeData'#4'left'#3'J'#2#3'top'#3'4'#1#6'Height'#3#150#0
+  +#16'HorizontalOffset'#2'5'#14'VerticalOffset'#2'`'#5'Width'#3#215#0#0#10'TIm'
+  +'ageList'#11'iml_Actions'#7'BkColor'#7#12'clForeground'#4'left'#2' '#3'top'#2
+  +#8#6'Bitmap'#10#14' '#0#0'Li'#8#0#0#0#16#0#0#0#16#0#0#0#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#133#133#133#255'bbb'#255
+  +'YYY'#255'YYY'#255'SSS'#255#133#133#133#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#133#133#133#255'hhh'#255'_ew'#255'Pe'#165#255'H`'#171#255'H`'#171#255';'
+  +'Q'#156#255'CJ`'#255'AAA'#255'bbb'#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255'sss'#255'fiq'#255'Pp'#207#255'@n'#255#255'6'
+  +'f'#255#255'-]'#255#255'$T'#255#255#27'L'#255#255#24'C'#231#255' ='#170#255
+  +';;;'#255'AAA'#255#255#0#255#255#255#0#255#255#255#0#255#255#133#133#133#255
+  +'fiq'#255'Ms'#226#255'@n'#255#255'6f'#255#255'-]'#255#255'$T'#255#255#27'L'
+  +#255#255#24'C'#231#255'<?K'#255'7:G'#255'111'#255'111'#255'SSS'#255#255#0#255
+  +#255#255#0#255#255'hhh'#255'Ul'#177#255'@n'#255#255'?c'#212#255'<Z'#190#255
+  +'$T'#255#255#27'L'#255#255#21'C'#243#255' ='#170#255';;;'#255';;;'#255'$.^'
+  +#255')+7'#255''''''''#255#255#0#255#255#133#133#133#255'bbb'#255'\_h'#255'H`'
+  +#171#255'OUi'#255'CP{'#255#27'L'#255#255#24'D'#231#255#15';'#231#255'09_'#255
+  +'111'#255#25'+'#138#255#0#31#216#255#14#30#142#255''''''''#255'bbb'#255'bbb'
+  +#255'bbb'#255'YYY'#255'SSS'#255'SSS'#255'III'#255'>D['#255';;;'#255#4'3'#240
+  +#255'!2}'#255'111'#255#30'(b'#255#0#25#204#255#18#27'h'#255#24#24#24#255#24
+  +#24#24#255'YYY'#255'YYY'#255'SSS'#255'SSS'#255'III'#255'AAA'#255'AAA'#255'09'
+  +'_'#255#3','#229#255#31',s'#255'&*B'#255''''''''#255''''''''#255#24#24#24#255
+  +#24#24#24#255#18#18#18#255'YYY'#255'SSS'#255'OOO'#255')J'#199#255#30'C'#208
+  +#255'5>c'#255';;;'#255';;;'#255'$.^'#255#8'"'#184#255#23'"f'#255#28#31'?'#255
+  +#27#28'&'#255#18#19':'#255#14#14'5'#255#14#14#14#255'SSS'#255'III'#255'CP{'
+  +#255#18'C'#255#255#8';'#255#255#19'5'#192#255'111'#255'111'#255'!(V'#255#7#28
+  +#172#255#4#21#172#255#0#12#179#255#10#14'h'#255#4#4#130#255#7#7'J'#255#14#14
+  +#14#255#133#133#133#255'III'#255'ADP'#255#18';'#219#255#1'3'#252#255'$3q'#255
+  +'111'#255',,,'#255#10#28#162#255#0#19#191#255#0#12#179#255#0#6#167#255#0#0
+  +#154#255#0#0#154#255#7#7#26#255'SSS'#255#255#0#255#255'AAA'#255'AAA'#255';;;'
+  +#255';;;'#255'111'#255',,,'#255''''''''#255#26#30'I'#255#0#12#179#255#0#6#167
+  +#255#0#0#154#255#0#0#154#255#2#2'c'#255#0#0#0#255#255#0#255#255#255#0#255#255
+  +'bbb'#255';;;'#255'111'#255'111'#255',,,'#255'%&1'#255#11#23#141#255#7#16#140
+  +#255#0#6#167#255#0#0#154#255#0#0#154#255#1#1'~'#255#3#3#13#255'AAA'#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255'AAA'#255'111'#255',,,'#255''''''''#255
+  +#26#30'I'#255#0#12#179#255#0#6#167#255#0#0#154#255#0#0#154#255#2#2'c'#255#3#3
+  +#13#255#18#18#18#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255'bbb'#255''''''''#255''''''''#255#23#26'9'#255#11#15'`'#255#8#9
+  +'W'#255#7#7'J'#255#7#7#26#255#0#0#0#255'AAA'#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'bbb'#255#24#24#24#255#18#18#18#255#14#14#14#255#14#14#14#255'SSS'
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#208#144'k'#255#208#144'k'#255#208#144'k'#255#208#144'k'#255#208#144'k'#255
+  +#208#144'k'#255#208#144'k'#255#208#144'k'#255#165'ij'#255#187'j'#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#213#154'y'#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#248#248#254#255#165'ij'#255#229#165
+  +'_'#255#194#128'\'#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#211#151'x'#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#252#255#244#235#230#255#165'ij'
+  +#255#226#163'['#255#239#153'8'#255#187'pO'#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#206#149'v'#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#254#252#250#255#252#246#235#255#250#239#224
+  +#255#165'ij'#255#165'ij'#255#165'ij'#255#165'ij'#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#202#145't'#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#252#250#255#252#244#237#255#250#237#222#255#248#231
+  +#212#255#252#235#211#255#227#211#187#255#183#173#156#255#165'ij'#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#196#140'r'#255#255#255#255
+  +#255#255#255#255#255#255#252#250#255#252#244#237#255#0#0#130#255#0#0#130#255
+  +#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0
+  +#130#255#0#0#130#255#0#0#130#255#191#135'p'#255#255#255#255#255#255#251#250
+  +#255#254#244#237#255#250#238#224#255#0#0#130#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#0#0#130#255#186#131'm'#255#255#255
+  +#255#255#252#244#238#255#250#237#225#255#248#233#213#255#0#0#130#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#0#0#130#255#180
+  +'~k'#255#255#255#251#255#248#237#225#255#247#230#212#255#246#225#201#255#0#0
+  +#130#255#255#255#255#255#0#0#130#255#0#0#130#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#0#0#130#255#255#255#255#255#255#255#255#255#0#0#130#255
+  +#173'xi'#255#255#251#238#255#247#231#213#255#244#225#202#255#243#220#191#255
+  +#0#0#130#255#255#255#255#255#0#0#130#255#255#255#255#255#0#0#130#255#255#255
+  +#255#255#0#0#130#255#255#255#255#255#0#0#130#255#255#255#255#255#0#0#130#255
+  +#167'tf'#255#255#244#225#255#246#225#202#255#243#220#191#255#242#215#180#255
+  +#0#0#130#255#255#255#255#255#0#0#130#255#255#255#255#255#0#0#130#255#255#255
+  +#255#255#0#0#130#255#255#255#255#255#0#0#130#255#255#255#255#255#0#0#130#255
+  +#163'od'#255#254#238#212#255#244#221#192#255#242#215#181#255#240#209#170#255
+  +#0#0#130#255#255#255#255#255#0#0#130#255#0#0#130#255#255#255#255#255#255#255
+  +#255#255#0#0#130#255#255#255#255#255#0#0#130#255#255#255#255#255#0#0#130#255
+  +#157'kb'#255#252#231#201#255#242#213#181#255#240#208#169#255#238#203#158#255
+  +#0#0#130#255#255#255#255#255#0#0#130#255#255#255#255#255#0#0#130#255#255#255
+  +#255#255#255#255#255#255#0#0#130#255#255#255#255#255#255#255#255#255#0#0#130
+  +#255#152'h`'#255#251#229#192#255#244#213#173#255#240#207#159#255#239#202#150
+  +#255#0#0#130#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#0#0#130#255#149'e_'#255#165'ij'#255#165'ij'#255#165'ij'#255#165'ij'
+  +#255#0#0#130#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#0#0#130#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0
+  +#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#231
+  +#171'y'#255#209#146'm'#255#209#146'm'#255#209#146'm'#255#209#146'm'#255#209
+  +#146'm'#255#165'k_'#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
+  +#231#171'y'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#225#213#217#255#165'k_'#255#212#142'Z'#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#218#157'u'#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#254#252#255#229#211#204#255#165'k_'#255#207#131'C'#255#175'jT'#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#209#146'm'#255#255#255#255#255#255#255#255#255#254#251#247#255
+  +#251#239#229#255#247#229#209#255#161'i]'#255#160'h\'#255#158'ce'#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#188#130'h'#255#255#255#255#255#255#251#247#255#250#240#229
+  +#255#246#229#209#255#239#217#192#255#0'\'#255#255#207#182#146#255#140'XZ'#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#188#130'h'#255#255#255#255#255#251#239#229#255#246#229
+  +#211#255#238#217#192#255#221#196#166#255#0'\'#255#255#0'\'#255#255#0'\'#255
+  +#255#0'\'#255#255#209#146'm'#255#209#146'm'#255#209#146'm'#255#157'f['#255
+  +#255#0#255#255#255#0#255#255#167'uk'#255#255#254#247#255#247#231#212#255#239
+  +#217#193#255#0'\'#255#255#0'\'#255#255#0'\'#255#255#0'\'#255#255#0'\'#255#255
+  +#0'\'#255#255#0'\'#255#255#0'\'#255#255#192#186#186#255#149'`V'#255#197#132
+  +'`'#255#255#0#255#255#167'uk'#255#255#247#227#255#243#221#196#255#234#209#177
+  +#255#208#181#145#255#0'\'#255#255#0'\'#255#255'TA2'#255'```'#255#0'\'#255#255
+  +#0'\'#255#255'vvv'#255#164#161#159#255#140'[Q'#255#218#144'D'#255#189'rG'#255
+  +#165'hj'#255#254#238#211#255#240#213#181#255#234#203#163#255#206#173#131#255
+  +#0'\'#255#255#0'\'#255#255'UA3'#255'www'#255#0'\'#255#255#0'\'#255#255'kig'
+  +#255#161#153#144#255#140'[Q'#255#157'f['#255#163'fh'#255#164'gi'#255#252#230
+  +#193#255#238#207#166#255#231#197#150#255#0'\'#255#255#0'\'#255#255#0'\'#255
+  +#255#0'\'#255#255#0'\'#255#255#0'\'#255#255#0'\'#255#255#0'\'#255#255#159#146
+  +#132#255#218#201#173#255#234#216#178#255#163'fh'#255#165'hj'#255#166'ij'#255
+  +#164'hi'#255#160'fg'#255#143'[['#255'mEE'#255#0'\'#255#255#0'\'#255#255#0'\'
+  +#255#255#0'\'#255#255'[VR'#255'ri_'#255#160#146''#255#209#182#152#255#242
+  +#211#163#255#163'fh'#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#0'\'#255#255'VA;'#255'kih'#255#0'\'#255#255
+  +'sj_'#255#150#136'v'#255#192#169#140#255#221#189#150#255#238#204#147#255#164
+  +'gi'#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'vWQ'#255#161#156#147#255#158#146#132#255#160
+  +#145''#255#192#169#140#255#218#188#149#255#230#193#144#255#240#201#135#255
+  +#164'gi'#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#142'Y['#255#216#202#183#255#211#192#167
+  +#255#209#184#154#255#220#189#151#255#230#194#146#255#231#191#132#255#240#198
+  +#129#255#164'gi'#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#159'df'#255#247#229#198#255#242
+  +#217#177#255#238#209#161#255#238#204#147#255#240#199#135#255#239#197#128#255
+  +#247#208#131#255#164'gi'#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#163'fh'#255#163'fh'#255
+  +#163'fh'#255#163'fh'#255#164'gi'#255#164'gi'#255#164'gi'#255#164'gi'#255#164
+  +'gi'#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#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#0'F'#0#255#0'F'#0
+  +#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#0'F'#0#255#1'T'#3#255#0'N'#1#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#7#233#231#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#0'G'#0#255#0'F'#0#255#0'I'#0#255#0'J'#0#255
+  +#0'F'#0#255#14#138'%'#255#6'k'#16#255#0'I'#0#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#7#248#246#255#255#0#255#255#255#0#255#255#0'H'#0
+  +#255#3'['#7#255#6'k'#17#255#5'h'#14#255#4'd'#12#255#1'V'#3#255#6'j'#15#255#1
+  +'S'#3#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#4'^'#3#255#15#140'('#255#0'E'#0#255#12#129
+  +#31#255#11'{'#27#255#6'l'#17#255#3']'#7#255#0'H'#0#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#1'H'#180#255#1'Q'#27#255#17#145' '#255#12#128#31#255#0'E'#0#255#9'u'#22
+  +#255#7'm'#17#255#3'Z'#6#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#7'X'#207#255#28'x'#250#255
+  +#2'O'#176#255#1'O'#17#255#15#137#28#255#8'p'#19#255#0'E'#0#255#6'l'#17#255#1
+  +'T'#3#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#2'P'#198#255#0'L'#193#255#17'k'#225#255#22'r'#250#255#0'J'
+  +#161#255#1'R'#10#255#13#131#26#255#4'd'#12#255#0'E'#0#255#1'N'#1#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#2'P'#198#255'%'#128#243#255#0'L'#193#255#15'i'#226#255#13'i'#247#255#0
+  +'J'#137#255#1'U'#6#255#10'x'#19#255#1'T'#3#255#0'E'#0#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#2'P'#198#255#22'n'#225#255
+  +'+'#136#248#255#26'v'#237#255#0'L'#193#255#13'i'#229#255#8'b'#243#255#0'Jx'
+  +#255#1'Q'#3#255#1'\'#13#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#1'K'#193#255'('#129#240#255'('#131#246
+  +#255'!'#244#255#19'n'#230#255#0'L'#193#255#9'f'#229#255#2'T'#225#255#0':'#25
+  +#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#1'O'#196#255#12'_'#211#255#17'g'#220#255'%'#129#244#255#25'u'
+  +#235#255#17'l'#230#255#5'Y'#208#255#0'N'#196#255#255#0#255#255#255#0#255#255
+  +#7#234#225#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#0'K'
+  +#192#255#28't'#227#255'&'#130#247#255#1'Q'#202#255#4'U'#202#255#4'T'#203#255
+  +#0'L'#193#255#0'L'#193#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#7#233#231#255#255#0#255#255#255#0#255#255#255#0#255#255#0'M'#196#255
+  +#9'\'#211#255#5'['#215#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#1'Q'#202#255#0
+  +'K'#193#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'HJK'#255'HJK'#255'HJK'#255
+  +'HJK'#255'HJK'#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'HJK'
+  +#255'HJK'#255#248#248#250#255#248#248#250#255#234#233#235#255#213#211#213#255
+  +#189#186#189#255'HJK'#255'HJK'#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'HJK'#255#255#255#255
+  +#255#248#248#250#255#247#246#248#255#230#229#231#255#208#206#208#255#186#180
+  ,#184#255#166#159#164#255#153#145#151#255'HJK'#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'HJK'#255#235#234#235
+  +#255#250#250#251#255#167#167#170#255'ttu'#255'vvx'#255'}}~'#255'efg'#255'UVW'
+  +#255'HJK'#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'HJK'#255#233#230#233#255#227#227#227#255'HJK'#255'hjj'
+  +#255'XZZ'#255'VXX'#255'cdd'#255'ttt'#255'HJK'#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'HJK'#255#224#221#224
+  +#255#218#216#218#255'HJK'#255'~'#129#255'mnn'#255#150#150#149#255#149#149
+  +#149#255#153#153#153#255'HJK'#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'HJK'#255#213#209#212#255#208#203
+  +#207#255'HJK'#255#147#150#151#255#138#138#139#255#129#129#129#255'~~~'#255
+  +#136#136#135#255'HJK'#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'HJK'#255#202#196#201#255#196#189#194#255'HJ'
+  +'K'#255#130#131#132#255'vvv'#255#145#145#145#255#145#145#146#255#144#144#143
+  +#255'HJK'#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'HJK'#255#189#183#188#255#184#177#182#255'HJK'#255#145
+  +#145#147#255#132#132#134#255'zzz'#255'zzz'#255#128#128#128#255'HJK'#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'HJK'#255#178#171#177#255#172#166#172#255'HJK'#255'~'#129#255'sts'#255
+  +'{{{'#255'{{{'#255#128#128#128#255'HJK'#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'HJK'#255#169#161#169#255
+  +#165#157#165#255'HJK'#255'{z}'#255'stt'#255'{{{'#255'{{{'#255#128#128#128#255
+  +'HJK'#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'HJK'#255#163#154#161#255#163#154#161#255'HJK'#255'xxz'#255
+  +'ttt'#255'{{{'#255'{{{'#255#128#128#128#255'HJK'#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'HJK'#255#163#154
+  +#161#255#163#154#161#255'HJK'#255#3#158#10#255'F{J'#255'{{{'#255'LL~'#255#128
+  +#128#128#255'HJK'#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'HJK'#255#163#154#161#255'HJK'#255
+  +'F{J'#255'rur'#255'MN'#255''#255#128#128#128#255'HJK'#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'HJK'#255'HJK'#255'klm'#255'klm'#255'klm'#255'HJK'#255
+  +'HJK'#255'HJK'#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'HJK'
+  +#255'HJK'#255'HJK'#255'HJK'#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#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#147'@'#26#255#147'@'#26
+  +#255#147'@'#26#255#147'@'#26#255#147'@'#26#255#147'@'#26#255#147'@'#26#255
+  +#147'@'#26#255#147'@'#26#255#153'D'#28#255#149'>'#21#255#153'D'#28#255#140'<'
+  +#26#255#132'=$'#255#255#0#255#255#153'A'#21#255#206'd'#20#255#206'd'#20#255
+  +#206'd'#20#255#206'd'#20#255#206'd'#20#255#206'd'#20#255#206'd'#20#255#206'd'
+  +#20#255#209'h'#24#255#243#169'f'#255#224'p'#17#255#243#169'f'#255#159'c9'#255
+  +'5S'#199#255#166'B'#12#255#158'Q#'#255#203#147'F'#255#198#140'A'#255#198#140
+  +'A'#255#198#140'A'#255#198#140'A'#255#198#140'A'#255#198#140'A'#255#198#140
+  +'A'#255#198#140'A'#255#205#153'Q'#255#203#147'F'#255#205#153'Q'#255#193#145
+  +'N'#255#187#149'\'#255#161'R"'#255'i*'#17#255'nlj'#255'nlj'#255#255#252#250
+  +#255#254#249#242#255#254#249#242#255#255#246#238#255#220#229#197#255#29#149
+  +#25#255#11#138#9#255'A'#149'S'#255'F^'#233#255#238#213#193#255#253#218#180
+  +#255#253#218#180#255'}2'#19#255'e('#15#255#255#252#250#255'nlj'#255#255#252
+  +#250#255#254#249#242#255#255#246#238#255#225#221#234#255#20#143#20#255#254
+  +#238#217#255#254#233#210#255#1'v'#15#255#10';'#193#255'@Z'#222#255#253#218
+  +#180#255#145#145#194#255'd-$'#255'e('#16#255'nlj'#255'nlj'#255#254#249#242
+  +#255#254#249#242#255'(I'#250#255#4'e9'#255#5'n*'#255#15'1'#252#255#12'-'#250
+  +#255#12#132#17#255'G'#160'0'#255#22'5'#243#255'Tj'#203#255#22'5'#243#255'^--'
+  +#255'e('#15#255#255#246#238#255'nlj'#255#254#249#242#255'Mi'#247#255#22'R'
+  +#166#255#20#143#20#255#238#229#211#255#191#187#218#255#213#201#207#255#188
+  +#204#144#255#10#137#7#255#131#172'r'#255#5'%'#251#255'H['#220#255'v/'#18#255
+  +'e('#15#255'nlj'#255'nlj'#255#198#204#242#255#15'1'#252#255#254#243#231#255
+  +'.'#158'('#255#254#233#210#255#251#231#207#255#254#226#196#255#254#221#186
+  ,#255#129#182']'#255#11#138#9#255#252#211#167#255#252#211#167#255'_:'#15#255
+  +'e('#16#255#254#243#231#255'nlj'#255'"C'#251#255'2n'#159#255#11#138#9#255's'
+  +#186'`'#255#251#231#207#255#254#226#196#255#254#226#196#255#253#218#180#255
+  +#253#218#180#255'G'#160'0'#255#11#138#9#255#22#142#14#255'PB'#12#255'e('#16
+  +#255'nlj'#255'nlj'#255'<Z'#247#255#11#138#9#255'l'#183'\'#255#254#233#210#255
+  +#251#231#207#255#254#226#196#255#254#221#186#255#253#218#180#255#252#215#173
+  +#255#252#211#167#255#233#204#149#255#251#206#156#255'v/'#18#255'e('#16#255
+  +#239#231#221#255'nlj'#255'nlj'#255'nlj'#255'nlj'#255'nlj'#255'nlj'#255'nlj'
+  +#255'nlj'#255'nlj'#255'nlj'#255'nlj'#255'nlj'#255'nlj'#255'v/'#18#255'i*'#17
+  +#255#254#243#231#255#255#239#224#255'nlj'#255#251#231#207#255#251#231#207#255
+  +'nlj'#255#254#221#186#255#254#221#186#255'nlj'#255#252#211#167#255#251#206
+  +#156#255'nlj'#255#252#203#151#255#252#203#151#255'}2'#19#255#137'6'#21#255'}'
+  +'2'#19#255'}2'#19#255'}2'#19#255'}2'#19#255'}2'#19#255'}2'#19#255'}2'#19#255
+  +'}2'#19#255'}2'#19#255'}2'#19#255'}2'#19#255'}2'#19#255'}2'#19#255'}2'#19#255
+  +#137'6'#21#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#216#170#150#255#224#186#170#255#224#186#170#255#216
+  +#170#150#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#216#170#151#255#238#217#207#255#255#255#255#255#255#255
+  +#255#255#243#230#224#255#216#170#151#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#215#166#145#255#238#217#208#255#255#255#255#255#250#234
+  +#211#255#246#224#198#255#255#255#255#255#244#229#222#255#216#173#153#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#216#170#151#255#238#218#208#255#255#255#255#255#246#220
+  +#187#255#240#197#143#255#234#176'y'#255#235#188#147#255#255#255#255#255#240
+  +#226#218#255#216#170#151#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#215#167#147#255#238#221#212#255#255#255#255#255#246
+  +#215#182#255#224#146'J'#255#250#234#218#255#247#224#208#255#201'd('#255#225
+  +#164#130#255#254#255#255#255#233#220#215#255#215#170#151#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#216#170#151#255#239#221#213#255#255#255#255#255
+  +#243#212#178#255#220#138'E'#255#213'~>'#255#216#137'U'#255#208'yH'#255#192'T'
+  +'!'#255#187'G'#24#255#215#154''#255#240#254#255#255#224#207#201#255#216#170
+  +#151#255#255#0#255#255#216#170#150#255#242#225#217#255#255#255#255#255#239
+  +#203#167#255#213'};'#255#206'o1'#255#211'{F'#255#242#212#191#255#231#186#159
+  +#255#184'E'#25#255#176'7'#15#255#170'-'#9#255#202#136'm'#255#218#225#229#255
+  +#207#188#182#255#213#167#147#255#224#186#170#255#255#255#255#255#246#222#203
+  +#255#211'v6'#255#204'i/'#255#198']('#255#192'T"'#255#246#227#216#255#242#218
+  +#206#255#175'7'#16#255#172'2'#13#255#172'2'#13#255#171'.'#9#255#194#151#135
+  +#255#184#187#192#255#193#163#152#255#224#186#170#255#255#255#255#255#243#217
+  +#197#255#198']'''#255#192'T"'#255#187'J'#28#255#182'A'#23#255#243#220#207#255
+  +#240#213#201#255#173'4'#15#255#172'2'#13#255#173'5'#15#255#173','#7#255#180
+  +'j'#255#159#158#161#255#177#149#139#255#216#170#150#255#242#225#218#255#255
+  +#255#255#255#225#166#136#255#180';'#16#255#176'5'#15#255#175'6'#15#255#242
+  +#216#204#255#240#212#199#255#173'3'#14#255#172'1'#13#255#173'-'#8#255#176'^@'
+  +#255#160#152#156#255#153#136#132#255#199#158#139#255#255#0#255#255#216#170
+  +#151#255#242#226#221#255#255#255#255#255#213#143'r'#255#167'*'#6#255#173'6'
+  +#16#255#246#229#220#255#244#225#215#255#173'6'#16#255#172'-'#8#255#177'bC'
+  +#255#163#158#161#255#158#138#135#255#216#170#151#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#216#170#151#255#239#225#217#255#254#255#255#255#206#135'j'
+  +#255#181'A'#26#255#221#159#130#255#221#158#129#255#184'B'#26#255#176'^@'#255
+  +#161#158#163#255#158#139#135#255#198#157#139#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#216#170#151#255#234#222#217#255
+  +#242#254#255#255#198'}]'#255#167'%'#3#255#170'&'#3#255#177'eH'#255#163#159
+  +#163#255#158#138#135#255#216#170#151#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#216#175#154
+  +#255#225#209#206#255#218#221#225#255#194#145'~'#255#180#131'p'#255#160#154
+  +#157#255#160#142#136#255#199#158#140#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#216#170#151#255#206#191#187#255#183#187#192#255#158#156
+  +#160#255#159#140#134#255#216#170#151#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#213#170#152#255#189#163#152
+  +#255#180#150#139#255#201#158#142#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#208#144'k'#255#208#144'k'#255
+  +#208#144'k'#255#208#144'k'#255#208#144'k'#255#208#144'k'#255#208#144'k'#255
+  +#208#144'k'#255#165'ij'#255#187'j'#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#213#154'y'#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#248#248#254#255#165'ij'#255#229#165'_'#255#194#128'\'#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#211#151'x'#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#252#255#244#235#230#255#165'ij'#255#226#163'['#255#239#153'8'#255
+  +#187'pO'#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#206#149
+  +'v'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#254
+  +#252#250#255#252#246#235#255#250#239#224#255#165'ij'#255#165'ij'#255#165'ij'
+  +#255#165'ij'#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#202
+  +#145't'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#252#250#255
+  +#252#244#237#255#250#237#222#255#248#231#212#255#252#235#211#255#227#211#187
+  +#255#183#173#156#255#165'ij'#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#196#140'r'#255#255#255#255#255#255#255#255#255#255#252#250#255
+  +#252#244#237#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255
+  +#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#191
+  +#135'p'#255#255#255#255#255#255#251#250#255#254#244#237#255#250#238#224#255#0
+  +#0#130#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#0#0#130#255#186#131'm'#255#255#255#255#255#252#244#238#255#250#237#225
+  +#255#248#233#213#255#0#0#130#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#0#0#130#255#180'~k'#255#255#255#251#255#248#237#225
+  +#255#247#230#212#255#246#225#201#255#0#0#130#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#0#0#130#255#0#0#130#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#0#0#130#255#0#0#130#255#173'xi'#255#255#251#238#255#247#231
+  +#213#255#244#225#202#255#243#220#191#255#0#0#130#255#255#255#255#255#0#0#130
+  +#255#0#0#130#255#255#255#255#255#255#255#255#255#0#0#130#255#255#255#255#255
+  +#0#0#130#255#255#255#255#255#0#0#130#255#167'tf'#255#255#244#225#255#246#225
+  +#202#255#243#220#191#255#242#215#180#255#0#0#130#255#0#0#130#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#130
+  +#255#255#255#255#255#255#255#255#255#0#0#130#255#163'od'#255#254#238#212#255
+  +#244#221#192#255#242#215#181#255#240#209#170#255#0#0#130#255#255#255#255#255
+  +#0#0#130#255#0#0#130#255#255#255#255#255#255#255#255#255#0#0#130#255#255#255
+  +#255#255#0#0#130#255#255#255#255#255#0#0#130#255#157'kb'#255#252#231#201#255
+  +#242#213#181#255#240#208#169#255#238#203#158#255#0#0#130#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#0#0#130#255#0#0#130#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#0#0#130#255#0#0#130#255#152'h`'#255#251#229#192
+  +#255#244#213#173#255#240#207#159#255#239#202#150#255#0#0#130#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#0#0#130#255#149'e_'
+  +#255#165'ij'#255#165'ij'#255#165'ij'#255#165'ij'#255#0#0#130#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#0#0#130#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#0#0#130#255
+  +#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0
+  +#130#255#0#0#130#255#0#0#130#255#0#0#130#255#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.pas
new file mode 100644
index 0000000..150098b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEData.pas	
@@ -0,0 +1,55 @@
+unit uROIDEData;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,{$ENDIF}
+  {$IFDEF DELPHI5}Forms,{$ENDIF}
+  SysUtils, Classes, ImgList, Controls;
+
+type
+  TIdeData = class(TDataModule)
+    iml_Actions: TImageList;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+const
+  ICON_REGENERATE = 1;
+  ICON_IMPORT     = 2;
+  ICON_MAKESERVER = 3;
+
+var
+  IdeData: TIdeData;
+
+implementation
+
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF}
+
+{$IFDEF FPC}
+initialization
+  {$I uROIDEData.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEEditors.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEEditors.pas
new file mode 100644
index 0000000..530ecf8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEEditors.pas	
@@ -0,0 +1,275 @@
+unit uROIDEEditors;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - IDE Integration                                   }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}
+  PropEdits,ComponentEditors,
+  {$ELSE}
+  {$IFDEF VER140UP}DesignEditors, DesignIntf, {$ELSE} DsgnIntf,{$ENDIF}
+  {$ENDIF}
+  Forms,Classes;
+
+const prop_ServiceName = 'ServiceName';
+      prop_OperationName = 'OperationName';
+      prop_Dispatchers = 'Dispatchers';
+
+      capt_TestConnection = 'Test Connection...';
+
+type
+     {$IFDEF FPC}
+     IDesigner = TIDesigner;
+     {$ENDIF}
+
+     { TROServiceNameProperty }
+     TROServiceNameProperty = class(TStringProperty)
+     protected
+     public
+       function GetAttributes: TPropertyAttributes; override;
+       procedure GetValues(Proc: TGetStrProc); override;
+     end;
+
+     { TDispatchersProperty }
+     TDispatchersProperty = class(TClassProperty)
+     public
+       procedure Edit; override;
+       function GetAttributes: TPropertyAttributes; override;
+     end;
+
+     {$IFDEF VER140UP}
+     { TROServerEditor }
+     TROServerEditor = class(TComponentEditor)
+     public
+       procedure Edit; override;
+     end;
+
+     { TRORemoteServiceEditor }
+     TRORemoteServiceEditor = class(TComponentEditor)
+     protected
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+     {$ENDIF VER140UP}
+
+     { TRODesigntimeCallEditor }
+     TRODesigntimeCallEditor = class(TComponentEditor)
+     protected
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+     TROServerMultiMessageEditor = class(TComponentEditor)
+     protected
+     public
+       procedure ExecuteVerb(Index: Integer); override;
+       function GetVerb(Index: Integer): string; override;
+       function GetVerbCount: Integer; override;
+     end;
+
+
+implementation
+
+uses  Controls, Dialogs, uRORemoteService, uROServer, uROClasses,uROServerMultiMessage,
+     {$IFDEF FPC}
+       fDispatchersEditorForm,
+     {$ELSE}
+       ColnEdit,
+       {$IFDEF MSWINDOWS}
+       fDispatchersEditorForm,
+       {$ELSE}
+       fDispatchersEditorFormKylix,
+       {$ENDIF}
+     {$ENDIF}
+     uROEventRepository, uRODynamicRequest;
+
+
+function FindDesigner(Container: TComponent): IDesigner;
+begin
+  Result := nil;
+  if Container <> nil then begin
+    if Container is TCustomForm then begin
+      Result := TCustomForm(Container).Designer as IDesigner;
+    end
+    else if (Container is TDataModule) and (Container.Owner <> nil) then begin
+      Result := (Container.Owner as TForm).Designer as IDesigner;
+    end
+    else if (Container is TWinControl) and (Container.Owner <> nil) then begin
+      Result := (Container.Owner as TForm).Designer as IDesigner;
+    end;
+  end;
+end;
+
+{ TROServiceNameProperty }
+
+function TROServiceNameProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paValueList, paSortList]
+end;
+
+procedure TROServiceNameProperty.GetValues(Proc: TGetStrProc);
+var
+    i : integer;
+    ss : IROStrings;
+begin
+  if GetComponent(0) is TRORemoteService then begin
+    ss := TRORemoteService(GetComponent(0)).GetServiceNames;
+  end
+  else if GetComponent(0) is TROEventReceiver then begin
+    TROEventReceiver(GetComponent(0)).CheckProperties(False);
+    with TRORemoteService.Create(nil) do try
+      Message:=TROEventReceiver(GetComponent(0)).Message;
+      Channel:=TROEventReceiver(GetComponent(0)).Channel;      
+      ss := GetServiceNames;
+    finally
+      free;
+    end;
+  end;
+
+
+  if assigned(ss) then
+    for i := 0 to (ss.Count-1) do
+      Proc(ss[i]);
+end;
+
+{ TDispatchersProperty }
+
+procedure TDispatchersProperty.Edit;
+begin
+  with TDispatchersEditorForm.Create(TROServer(GetComponent(0))) do try
+    ShowModal;
+    Modified();
+  finally
+    Free;
+  end;
+end;
+
+function TDispatchersProperty.GetAttributes: TPropertyAttributes;
+begin
+  result := [paDialog]
+end;
+
+{ TROServerEditor }
+
+{$IFDEF VER140UP}
+procedure TROServerEditor.Edit;
+var
+  lDesigner:IDesigner;
+begin
+  with TDispatchersEditorForm.Create(TROServer(GetComponent())) do try
+    ShowModal;
+    lDesigner := FindDesigner(GetComponent().Owner);
+    if Assigned(lDesigner) then lDesigner.Modified()
+    //else ShowMessage('No designer');
+  finally
+    Free;
+  end;
+end;
+{$ENDIF VER140UP}
+
+{ TRORemoteServiceEditor }
+
+{$IFDEF VER140UP}
+procedure TRORemoteServiceEditor.ExecuteVerb(Index: Integer);
+var conn : TRORemoteService;
+    i : integer;
+    s : string;
+    ss : IROStrings;
+begin
+  conn := TRORemoteService(GetComponent);
+
+  case Index of
+    0 : begin
+      ss := conn.GetServiceNames;
+      if assigned(ss) then begin
+        s := 'The server exposes the following service(s):'+#13#13;
+        for i := 0 to (ss.Count-1) do
+          s := s+ss[i]+#13;
+        MessageDlg(s, mtInformation, [mbOK], 0);
+      end
+      else begin
+        MessageDlg('The server exposes no services.', mtInformation, [mbOK], 0);
+      end;
+    end;
+  end;
+end;
+
+function TRORemoteServiceEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    0 : result := capt_TestConnection;
+  end;
+end;
+
+function TRORemoteServiceEditor.GetVerbCount: Integer;
+begin
+  result := 1;
+end;
+{$ENDIF VER140UP}
+
+{ TRODesigntimeCallEditor }
+
+procedure TRODesigntimeCallEditor.ExecuteVerb(Index: Integer);
+begin
+  inherited;
+  (GetComponent as TRODesigntimeCall).MakeRequest;
+  ShowMessage('The call to the server was executed.');
+end;
+
+function TRODesigntimeCallEditor.GetVerb(Index: Integer): string;
+begin
+  result := 'Make Call';
+end;
+
+function TRODesigntimeCallEditor.GetVerbCount: Integer;
+begin
+  result := 1;
+end;
+
+{ TROServerMultiMessageEditor }
+
+procedure TROServerMultiMessageEditor.ExecuteVerb(Index: Integer);
+var
+  coll : TCollection;
+begin
+  inherited;
+  coll := (GetComponent as TROServerMultiMessage).SupportedMessages;
+  {$IFDEF FPC}
+  EditCollection(GetComponent,coll, 'SupportedMessages');
+  {$ELSE}
+  ShowCollectionEditor(Designer, GetComponent, coll, 'SupportedMessages');
+  {$ENDIF}
+end;
+
+function TROServerMultiMessageEditor.GetVerb(Index: Integer): string;
+begin
+  Result := 'Edit';
+end;
+
+function TROServerMultiMessageEditor.GetVerbCount: Integer;
+begin
+  result := 1;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEMenu.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEMenu.pas
new file mode 100644
index 0000000..c102f92
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEMenu.pas	
@@ -0,0 +1,548 @@
+unit uROIDEMenu;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration
+{
+{ compiler: Delphi 5 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the RemObjects SDK
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$I ..\RemObjects.inc}
+
+interface
+
+{ Service Builder command line parameters:
+
+    /rodlfile:filename         : File to load
+    /projectname:dpr-file-name : Just for display; implies /autosave
+    /autosave                  : Auto-save change when SB loses focus or is closed
+    /register                  : Quite, register filetypes (.rodl to lauch with SB)
+    /import-wsdl:file-or-url   : Auto-import the WSDL into the specified (or empty) RODL file
+    /import                    : Show a selection box to determine what type of file to import.
+
+}
+
+uses
+  Forms, Classes, Windows, SysUtils,
+  {$IFDEF DELPHI6UP}DesignEditors, DesignIntf, {$ELSE} DsgnIntf,{$ENDIF}
+  ToolsApi, Menus, Contnrs, ComObj, Graphics,
+  uEWMenuManager;
+
+type
+  { TMenuItemInfo }
+  TMenuItemInfo = record
+    Caption,
+    ShortCut : string;
+    Menu:TEWMenuItem;
+    ImageIndex:integer;
+    Personalities:TEWPersonalitySet;
+  end;
+
+resourcestring sMakeServerCaption = 'T&urn %s into a RemObjects SDK Server';
+
+const MAX_MENU_ITEM = 14;
+
+var
+  MenuItems : array[0..MAX_MENU_ITEM] of TMenuItemInfo = (
+    (Caption: '&Service Builder';                  ShortCut: 'CTRL+ALT+U';  Menu:nil; ImageIndex:  0; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone]),
+    (Caption: '&Import RemObjects SDK Service...'; ShortCut: 'CTRL+ALT+I';  Menu:nil; ImageIndex:  1; Personalities: [pDelphiWin32, pCppBuilderWin32]),
+    (Caption: 'Import SOAP &Web Service...';       ShortCut: '';            Menu:nil; ImageIndex:  7; Personalities: [pDelphiWin32, pCppBuilderWin32]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone]),
+    (Caption: 'Service &Tester';                   ShortCut: '';            Menu:nil; ImageIndex:  5; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32]),
+    (Caption: '&Hide Preprocessor Window';         ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32]),
+    (Caption: '&Regenerate Units from RODL';       ShortCut: 'CTRL+ALT+E';  Menu:nil; ImageIndex:  2; Personalities: [pDelphiWin32, pCppBuilderWin32]),
+    (Caption: 'Regenerate &Async Unit from RODL';  ShortCut: 'CTRL+ALT+A';  Menu:nil; ImageIndex:  2; Personalities: [pDelphiWin32, pCppBuilderWin32]),
+    (Caption: sMakeServerCaption;                  ShortCut: '';            Menu:nil; ImageIndex:  3; Personalities: [pDelphiWin32, pCppBuilderWin32]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pCppBuilderWin32]),
+    (Caption: 'Launc&h Server Executable';         ShortCut: 'CTRL+ALT+F9'; Menu:nil; ImageIndex:  4; Personalities: [pDelphiWin32, pCppBuilderWin32]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pNone]),
+    //(Caption: 'Check for New &Versions';           ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone]),
+    (Caption: 'A&bout RemObjects SDK';             ShortCut: '';            Menu:nil; ImageIndex:  6; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone])
+    //(Caption: '&Import Services'; ShortCut: 'CTRL+ALT+S')
+  );
+
+const
+  mi_RODLEditor               = 0;
+  mi_ImportServicesRODL       = 1;
+  mi_ImportServicesWSDL       = 2;
+  mi_ServiceTester            = 4;
+  mi_HidePreprocessor         = 6;
+  mi_Regenerate               = 8;
+  mi_RegenerateAsync          = 9;
+  mi_ConvertToServer          = 10;
+  mi_ConvertToServerSeparator = 11;
+  mi_LaunchExe                = 12;
+  mi_LaunchExeSeparator       = 13;
+  //mi_CheckVersion             = 14;
+  mi_About                    = 14;
+
+type
+  { TROMenuWizard }
+  TROMenuWizard = class(TInterfacedObject, IOTAWizard, IOTANotifier)
+  private
+    fROMenu: TEWMenu;
+    fHidePreprocessorItem: TEWMenuItem;
+    fVersionService:string;
+
+    procedure OnHidePreprocessorClick(Sender: TObject);
+    procedure ImportService(const aType:string);
+
+  protected
+    { Misc }
+    procedure CreateMenuItems;
+    procedure ShowServiceBuilder(Sender : TObject);
+    procedure ImportServicesRODL(Sender: TObject);
+    procedure ImportServicesWSDL(Sender: TObject);
+    procedure LaunchServiceTester(Sender: TObject);
+    procedure OnRegenerateUnits(Sender: TObject);
+    procedure OnRegenerateAsyncUnit(Sender: TObject);
+    procedure OnMenuPopup(Sender: TObject);
+    procedure OnConvertToServer(Sender: TObject);
+    procedure OnAbout(Sender: TObject);
+    procedure OnLaunchEXE(Sender: TObject);
+    procedure OnCheckForNewVersion(Sender: TObject);
+
+    { IOTANotifier}
+    procedure AfterSave;
+    procedure BeforeSave;
+    procedure Destroyed;
+    procedure Execute;
+    procedure Modified;
+
+    { IOTAWizard }
+    function GetState: TWizardState;
+    function GetIDString: string;
+    function GetName: string;
+
+  public
+
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+procedure Register;
+
+var
+  gRemObjectsMenu:TMenuItem;
+
+implementation
+
+uses
+  ShellAPI, Controls, Registry, Dialogs,
+  uRODL, uROIDETools, uRODLToXML, uRODLToPascalIntf, uRODLGenTools,
+  uRORODLNotifier, uROPleaseWaitForm, uROIDEData, fROAbout,
+  fCustomIDEMessagesForm, uROProductVersionInfo, uROClasses, uRODLConvertersUtils;
+
+{$R Resources.BDS.res}
+
+procedure RegisterAboutInfo;
+const
+  lProductName = 'RemObjects SDK for Delphi';
+begin
+  {$IFDEF BDS}
+    {$IFDEF BDS7UP}
+      SplashScreenServices.AddPluginBitmap(lProductName, LoadBitmap(HInstance, 'SPLASH2006')); // the old on-black 2006 image also works for 2010
+    {$ELSE}
+      SplashScreenServices.AddPluginBitmap(lProductName, LoadBitmap(HInstance, 'SPLASH2007'));
+    {$ENDIF}
+    (BorlandIDEServices as IOTAAboutBoxServices).AddPluginInfo(lProductName, lProductName+#13#10'Copyright RemObjects Software 2002-2009.'#13#10'All rights reserved.'#13#10'http://www.remobjects.com/ro.', LoadBitmap(HInstance, 'ABOUT'));
+  {$ENDIF BDS}
+end;
+
+procedure Register;
+begin
+  RegisterAboutInfo;
+  RegisterPackageWizard(TROMenuWizard.Create);
+end;
+
+{ TROMenuWizard }
+
+constructor TROMenuWizard.Create;
+begin
+  inherited Create;
+
+  CreateMenuItems;
+end;
+
+destructor TROMenuWizard.Destroy;
+begin
+  if Assigned(fROMenu) then begin
+    MenuManager.DestroyMenu(fROMenu);
+  end;
+  gRemObjectsMenu := nil;
+  inherited;
+end;
+
+function TROMenuWizard.GetIDString: string;
+begin
+  Result := '{137E9A72-CBF8-485F-9421-212866E99084}';
+end;
+
+function TROMenuWizard.GetName: string;
+begin
+  Result := 'ROMenuWizard';
+end;
+
+// The following are stubs that Delphi never calls.
+procedure TROMenuWizard.AfterSave;
+begin
+end;
+
+procedure TROMenuWizard.BeforeSave;
+begin
+end;
+
+procedure TROMenuWizard.Destroyed;
+begin
+end;
+
+procedure TROMenuWizard.Execute;
+begin
+end;
+
+function TROMenuWizard.GetState: TWizardState;
+begin
+  Result := [];
+end;
+
+procedure TROMenuWizard.Modified;
+begin
+end;
+
+procedure TROMenuWizard.CreateMenuItems;
+var
+  lItem     : TEWMenuItem;
+  i        : Integer;
+  lCaption: string;
+begin
+
+  lCaption := 'Rem&Objects SDK';
+  with TRegistry.Create(KEY_READ) do try
+    RootKey := HKEY_CURRENT_USER;
+    if OpenKey('\Software\RemObjects\RemObjects SDK for Delphi\IDE Integration', False) then
+      if ValueExists('Menu Caption') then
+        lCaption := ReadString('Menu Caption');
+      if ValueExists('VersionService URL') then
+        fVersionService := ReadString('VersionService URL');
+  finally
+    Free;
+  end;
+
+  fROMenu := MenuManager.CreateMenu(lCaption);
+  fROMenu.OnPopup := OnMenuPopup;
+  gRemObjectsMenu := fROMenu.Menu;
+
+  with TIdeData.Create(nil) do try
+
+    for i := 0 to High(MenuItems) do begin
+
+      lItem := fROMenu.CreateMenuItem(MenuItems[i].Caption, -1, MenuItems[i].Personalities);
+
+      lItem.MenuItem.ShortCut := TextToShortCut(MenuItems[i].ShortCut);
+      lItem.MenuItem.Tag := i;
+
+      if MenuItems[i].ImageIndex > -1 then
+        lItem.SetGlyph(iml_Actions, MenuItems[i].ImageIndex);
+
+      MenuItems[i].Menu := lItem;
+
+      case i of
+        mi_RODLEditor         : lItem.MenuItem.OnClick := ShowServiceBuilder;
+        mi_ImportServicesRODL : lItem.MenuItem.OnClick := ImportServicesRODL;
+        mi_ImportServicesWSDL : lItem.MenuItem.OnClick := ImportServicesWSDL;
+        mi_ServiceTester      : lItem.MenuItem.OnClick := LaunchServiceTester;
+        mi_Regenerate         : lItem.MenuItem.OnClick := OnRegenerateUnits;
+        mi_RegenerateAsync    : lItem.MenuItem.OnClick := OnRegenerateAsyncUnit;
+        mi_ConvertToServer    : lItem.MenuItem.OnClick := OnConvertToServer;
+        //mi_CheckVersion       : lItem.MenuItem.OnClick := OnCheckForNewVersion;
+        mi_About              : lItem.MenuItem.OnClick := OnAbout;
+        mi_LaunchExe          : lItem.MenuItem.OnClick := OnLaunchEXE;
+        mi_HidePreprocessor   : begin
+            lItem.MenuItem.OnClick := OnHidePreprocessorClick;
+            fHidePreprocessorItem := lItem;
+          end;
+        else lItem.MenuItem.OnClick := nil;
+      end;
+    end;
+
+    {$IFDEF DELPHI7UP}
+    MenuItems[mi_HidePreprocessor].Menu.Visible := False;
+    MenuItems[mi_HidePreprocessor+1].Menu.Visible := False; // separator;
+    {$ENDIF}
+
+  finally
+    Free();
+  end;
+
+end;
+
+procedure TROMenuWizard.OnMenuPopup(Sender: TObject);
+var lCurrentProjectIsRodlProject :boolean;
+    lRodlProject: IOTAProject;
+    lProject: IOTAProject;
+begin
+  lCurrentProjectIsRodlProject := ProjectIsRodlProject(CurrentProject());
+  lRodlProject := FindFirstRodlProject;
+
+  MenuItems[mi_Regenerate].Menu.Visible := lCurrentProjectIsRodlProject;
+  MenuItems[mi_RegenerateAsync].Menu.Visible := lCurrentProjectIsRodlProject;
+
+  MenuItems[mi_LaunchExe].Menu.Visible := assigned(lRodlProject) or lCurrentProjectIsRodlProject;
+  //MenuItems[mi_LaunchExeSeparator].Menu.Visible := assigned(lRodlProject) or lCurrentProjectIsRodlProject;
+  { D7 menu cannot hide separators itself }
+
+  if lCurrentProjectIsRodlProject then begin
+    MenuItems[mi_RODLEditor].Menu.MenuItem.Caption := 'Edit &Service Library';
+  end
+  else begin
+    MenuItems[mi_RODLEditor].Menu.MenuItem.Caption := '&Service Builder';
+  end;
+
+  if DisplayIDEMessageForm and fHidePreprocessorItem.MenuItem.Checked
+    then fHidePreprocessorItem.MenuItem.Checked := FALSE;
+
+  lProject := CurrentProject;
+  if Assigned(lProject) then begin
+    MenuItems[mi_ConvertToServer].Menu.Visible := not lCurrentProjectIsRodlProject;
+    MenuItems[mi_ConvertToServer].Menu.MenuItem.Caption := Format(sMakeServerCaption,[ChangeFileExt(ExtractFileName(lProject.GetFileName),'')]);
+  end
+  else begin
+    MenuItems[mi_ConvertToServer].Menu.Visible := false;
+  end;
+  MenuItems[mi_ConvertToServerSeparator].Menu.Visible := (MenuItems[mi_ConvertToServer].Menu.Visible or MenuItems[mi_Regenerate].Menu.Visible);
+end;
+
+
+resourcestring
+  sConvertedLaunchSB = 'Your Project was converted into a RemObjects server.'#13#13+
+                       'Would you like to launch ServiceBuilder to define your Service, now?';
+
+procedure TROMenuWizard.OnConvertToServer(Sender: TObject);
+begin
+  if ConvertProjectToRoServer(CurrentProject()) then begin
+    if MessageDlg(sConvertedLaunchSB,mtConfirmation,[mbYes,mbNo],0) = idYes then begin
+      LaunchServiceBuilderForCurrentProject('');
+    end;
+  end;
+end;
+
+procedure TROMenuWizard.OnRegenerateUnits(Sender: TObject);
+begin
+  with TRORODLNotifier.Create do try
+    GenerateUnits(CurrentProject, [utIntf, utInvk, utImpl]);
+  finally
+    Free();
+  end;
+end;
+
+procedure TROMenuWizard.OnRegenerateAsyncUnit(Sender: TObject);
+begin
+  with TRORODLNotifier.Create do try
+    GenerateUnits(CurrentProject, [utAsync]);
+  finally
+    Free();
+  end;
+end;
+
+procedure TROMenuWizard.ShowServiceBuilder(Sender: TObject);
+begin
+  LaunchServiceBuilderForCurrentProject('');
+end;
+
+procedure TROMenuWizard.LaunchServiceTester(Sender: TObject);
+begin
+  uROIDETools.LaunchServiceTester();
+end;
+
+procedure TROMenuWizard.ImportServicesRODL(Sender: TObject);
+begin
+  ImportService('Import.Rodl');
+end;
+
+procedure TROMenuWizard.ImportServicesWSDL(Sender: TObject);
+begin
+  ImportService('Import.Soap.Wsdl');
+end;
+
+procedure TROMenuWizard.ImportService(const aType:string);
+var params, lUnitName, lRodlName : string;
+    tempdir : array[0..1000] of char;
+
+    lModule : IOTAModule;
+    lProject: IOTAProject;
+    lLibrary: TRODLLibrary;
+begin
+  //if not GetImportInputs(loc) then Exit;
+
+  Windows.GetTempPath(Length(tempdir), tempdir);
+  lRodlName := IncludeTrailingPathDelimiter(tempdir)+GUIDToString(NewGUID)+'.rodl';
+  DeleteFile(lRodlName);
+
+  lProject := CurrentProject;
+  {$IFDEF SB2}
+  if assigned(lProject) then begin
+    params := Format('/import /rodlfile:"%s" /autosave /projectname:"(Import Service for %s)"', [lRodlName,ExtractFileName(lProject.FileName)]);
+  end
+  else begin
+    params := Format('/import /rodlfile:"%s" /autosave', [lRodlName]);
+  end;
+  {$ELSE}
+  if assigned(lProject) then begin
+    params := Format('"%s" /ns /import:%s /autosave /projectname:"(Importing Service for %s)"', [lRodlName,aType,ExtractFileName(lProject.FileName)]);
+  end
+  else begin
+    params := Format('"%s" /ns /import:%s /autosave', [lRodlName,aType]);
+  end;
+  {$ENDIF SB2}
+
+  //params := Format('/import-wsdl:%s /rodlfile:%s /autosave', [loc, fname]);
+  //params := Format('/import /rodlfile:%s /autosave', [fname]);
+  //ShowMessage(params);
+
+  with TPleaseWaitForm.Create(Application,'Importing via the ServiceBuilder...') do try
+    Show();
+    LaunchServiceBuilder(lProject.FileName,Params,true);
+    Hide();
+  finally
+    Free();
+  end;
+
+  if FileExists(lRodlName) then try
+
+    lLibrary := LoadLibraryFromXml(lRodlName);
+    try
+
+      lUnitname := ExtractFilePath(lProject.FileName)+GetTargetFileName(lLibrary, nil, cgtIntf, CodeGenLanuageFromProjectPersonality(lProject));
+
+      // Checks if the module is already in the project
+      try
+        lModule := FindModuleByUnitName(lProject, lUnitname);
+      except
+        on E:EFOpenError do lModule := nil;
+        else raise;
+      end;
+      if assigned(lModule) then begin
+        case MessageDlg(Format('A unit named "%s" already exists in the project.'#13+
+                               'Do you want to overwrite the file?', [ExtractFileName(lUnitname)]),
+                        mtWarning, [mbYes, mbCancel], 0) of
+          mrCancel: Abort;
+          mrYes: { no-op};
+        end
+      end
+      else if FileExists(lUnitName) then begin
+        case MessageDlg(Format('A unit named "%s" already exists, but is not part of the project.'#13+
+                               'Do you want to overwrite the file?', [ExtractFileName(lUnitname)]),
+                        mtWarning, [mbYes, mbCancel], 0) of
+          mrCancel: Abort;
+          mrYes: { no-op};
+        end
+      end;
+
+      //ToDo: handle read-only files
+
+      {$IFNDEF REMOBJECTS_CODEGEN2}
+      if CodeGenLanuageFromProjectPersonality(lProject) = cglCppBuilder then begin
+      {$ENDIF}
+
+        GenerateUnitToFile(lRodlName, nil, cgtIntf, CodeGenLanuageFromProjectPersonality(lProject), '', lUnitName);
+        lProject.AddFile(lUnitName, true);
+        //ToDo: properly load from stream into lModule
+
+      {$IFNDEF REMOBJECTS_CODEGEN2}
+      end
+      else begin
+
+        with TRODLToIntf.Create(lRodlName,ChangeFileExt(ExtractFileName(lUnitName), '')) do try
+          Buffer.SaveToFile(lUnitName);
+          lProject.AddFile(lUnitName, true);
+        finally
+          Free;
+        end;
+
+      end;
+      {$ENDIF not REMOBJECTS_CODEGEN2}
+
+    finally
+      FreeAndNil(lLibrary);
+    end;
+
+  finally
+    DeleteFile(lRodlName);
+  end;
+
+end;
+
+procedure TROMenuWizard.OnAbout(Sender: TObject);
+begin
+  with TAboutForm.Create(Application) do try
+    Position := poScreenCenter;
+    ShowModal();
+  finally
+    Free();
+  end
+end;
+
+procedure TROMenuWizard.OnCheckForNewVersion(Sender: TObject);
+begin
+  GetVersionInfos(fVersionService);
+end;
+
+procedure TROMenuWizard.OnHidePreprocessorClick(Sender : TObject);
+var
+  lMenuItem: TMenuItem;
+begin
+  lMenuItem := MenuItems[mi_HidePreprocessor].Menu.MenuItem;
+  lMenuItem.Checked := not lMenuItem.Checked;
+  DisplayIDEMessageForm := not lMenuItem.Checked;
+  if not DisplayIDEMessageForm and IDEMessageForm.Visible then IDEMessageForm.Close;
+end;
+
+{$IFDEF DELPHI5}
+const
+  PathDelim  = '\';
+
+function IncludeTrailingPathDelimiter(const S: string): string;
+begin
+  Result := S;
+  if not IsPathDelimiter(Result, Length(Result)) then
+    Result := Result + PathDelim;
+end;
+{$ENDIF}
+
+procedure TROMenuWizard.OnLaunchEXE(Sender: TObject);
+var
+  dirname, exename: string;
+  lProject: IOTAProject;
+begin
+  if ProjectIsRodlProject(CurrentProject()) then
+    lProject := CurrentProject()
+  else
+    lProject := FindFirstRodlProject();
+
+  if not assigned(lProject) then exit; // shouldn't happen if menu was active
+
+  exename := GetProjectExe(lProject);
+
+  if not FileExists(exename) then begin
+    case MessageDlg(Format('The file %s does not exist. Would you like to compile the project now?', [exename]), mtWarning, [mbYes, mbCancel], 0) of
+        idYes:begin
+            if lProject.ProjectBuilder.BuildProject(cmOTAMake, true, true) then
+              ShellExecute(0, 'open', PChar(exename), NIL, PChar(dirname), SW_NORMAL);
+          end;
+        idCancel:;
+    end;
+  end
+  else begin
+    ShellExecute(0, 'open', PChar(exename), NIL, PChar(dirname), SW_NORMAL);
+  end;
+
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEMenu_laz.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEMenu_laz.pas
new file mode 100644
index 0000000..694eff4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEMenu_laz.pas	
@@ -0,0 +1,557 @@
+unit uROIDEMenu_laz;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+{ Service Builder command line parameters:
+
+    /rodlfile:filename         : File to load
+    /projectname:dpr-file-name : Just for display; implies /autosave
+    /autosave                  : Auto-save change when SB loses focus or is closed
+    /register                  : Quite, register filetypes (.rodl to lauch with SB)
+    /import-wsdl:file-or-url   : Auto-import the WSDL into the specified (or empty) RODL file
+    /import                    : Show a selection box to determine what type of file to import.
+}
+
+uses
+  {$IFDEF MSWINDOWS}Windows,ComObj, {$ENDIF}
+  Forms, Classes,SysUtils,IDECommands,
+  LazIDEIntf, ProjectIntf, uEWMenuManager_laz, uEWOTAHelpers_laz,PropEdits,MenuIntf,
+  Menus, Contnrs, Graphics;
+
+type
+  { TMenuItemInfo }
+  TMenuItemInfo = record
+    Caption,
+    ShortCut : string;
+    Menu:TEWMenuItem;
+    ImageIndex:integer;
+    Personalities:TEWPersonalitySet;
+  end;
+
+resourcestring sMakeServerCaption = 'T&urn %s into a RemObjects SDK Server';
+
+const MAX_MENU_ITEM = 15;
+
+var
+  MenuItems : array[0..MAX_MENU_ITEM] of TMenuItemInfo = (
+    (Caption: '&Service Builder';                  ShortCut: 'CTRL+ALT+U';  Menu:nil; ImageIndex:  0; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone, pLazarusWin]),
+    (Caption: '&Import RemObjects SDK Service...'; ShortCut: 'CTRL+ALT+I';  Menu:nil; ImageIndex:  1; Personalities: [pDelphiWin32, pCppBuilderWin32, pLazarusWin]),
+    (Caption: 'Import SOAP &Web Service...';       ShortCut: '';            Menu:nil; ImageIndex:  7; Personalities: [pDelphiWin32, pCppBuilderWin32, pLazarusWin]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone, pLazarusWin]),
+    (Caption: 'Service &Tester';                   ShortCut: '';            Menu:nil; ImageIndex:  5; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone, pLazarusWin]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pLazarusWin]),
+    (Caption: '&Hide Preprocessor Window';         ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pLazarusWin,pLazarusUnix]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pLazarusWin,pLazarusUnix]),
+    (Caption: '&Regenerate Units from RODL';       ShortCut: 'CTRL+ALT+E';  Menu:nil; ImageIndex:  2; Personalities: [pDelphiWin32, pCppBuilderWin32, pLazarusWin,pLazarusUnix]),
+    (Caption: 'Regenerate &Async Unit from RODL';  ShortCut: 'CTRL+ALT+A';  Menu:nil; ImageIndex:  2; Personalities: [pDelphiWin32, pCppBuilderWin32, pLazarusWin,pLazarusUnix]),
+    (Caption: 'Regenerate &RODLFILE.lrs from RODL';ShortCut: '';            Menu:nil; ImageIndex:  2; Personalities: [pDelphiWin32, pCppBuilderWin32, pLazarusWin,pLazarusUnix]),
+    (Caption: sMakeServerCaption;                  ShortCut: '';            Menu:nil; ImageIndex:  3; Personalities: [pDelphiWin32, pCppBuilderWin32, pLazarusWin,pLazarusUnix]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pCppBuilderWin32, pLazarusWin,pLazarusUnix]),
+    (Caption: 'Launc&h Server Executable';         ShortCut: 'CTRL+ALT+F9'; Menu:nil; ImageIndex:  4; Personalities: [pDelphiWin32, pCppBuilderWin32, pLazarusWin,pLazarusUnix]),
+    (Caption: '-';                                 ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pNone,pLazarusWin,pLazarusUnix]),
+    //(Caption: 'Check for New &Versions';           ShortCut: '';            Menu:nil; ImageIndex: -1; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone]),
+    (Caption: 'A&bout RemObjects SDK';             ShortCut: '';            Menu:nil; ImageIndex:  6; Personalities: [pDelphiWin32, pCppBuilderWin32, pNone, pLazarusWin,pLazarusUnix])
+    //(Caption: '&Import Services'; ShortCut: 'CTRL+ALT+S')
+  );
+
+const
+  mi_RODLEditor               = 0;
+  mi_ImportServicesRODL       = 1;
+  mi_ImportServicesWSDL       = 2;
+  mi_ServiceTester            = 4;
+  mi_HidePreprocessor         = 6;
+  mi_Regenerate               = 8;
+  mi_RegenerateAsync          = 9;
+  mi_RegenerateLRS            = 10;
+  mi_ConvertToServer          = 11;
+  mi_ConvertToServerSeparator = 12;
+  mi_LaunchExe                = 13;
+  mi_LaunchExeSeparator       = 14;
+  //mi_CheckVersion             = 14;
+  mi_About                    = 15;
+
+type
+  { TROMenuWizard }
+  TROMenuWizard = class
+  private
+    fROMenu: TEWMenu;
+    fHidePreprocessorItem: TEWMenuItem;
+    fVersionService:string;
+
+    procedure OnHidePreprocessorClick(Sender: TObject);
+    procedure ImportService(const aType:string);
+
+  protected
+    { Misc }
+    procedure CreateMenuItems;
+    procedure ShowServiceBuilder(Sender : TObject);
+    procedure ImportServicesRODL(Sender: TObject);
+    procedure ImportServicesWSDL(Sender: TObject);
+    procedure LaunchServiceTester(Sender: TObject);
+    procedure OnRegenerateUnits(Sender: TObject);
+    procedure OnRegenerateAsyncUnit(Sender: TObject);
+    procedure OnRegenerateLRS(Sender: TObject);
+    procedure OnMenuPopup(Sender: TObject);
+    procedure OnConvertToServer(Sender: TObject);
+    procedure OnAbout(Sender: TObject);
+    procedure OnLaunchEXE(Sender: TObject);
+    procedure OnCheckForNewVersion(Sender: TObject);
+
+    { IOTANotifier}
+    procedure AfterSave;
+    procedure BeforeSave;
+    procedure Destroyed;
+    procedure Execute;
+    procedure Modified;
+  public
+
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+procedure Register;
+
+var
+  gRemObjectsMenu: TEWMenu;
+
+function TextToIDEShortCut(const ShortCutText: string):TIDEShortCut;
+implementation
+
+uses
+  uROIDETools_laz,lclproc,
+  Controls, Registry, Dialogs,{$IFNDEF FPC}uROProductVersionInfo,{$ENDIF}
+  uRODL, uRODLToXML, uRODLToPascalIntf, uRODLGenTools,uEWTools,
+  uROPleaseWaitForm, uROIDEData, fROAbout, uRORODLNotifier,
+  fCustomIDEMessagesForm, uROClasses, uRODLConvertersUtils;
+
+var
+  wiz: TROMenuWizard;
+
+function TextToIDEShortCut(const ShortCutText: string):TIDEShortCut;
+var
+  lKey: Word;
+  lShift: TShiftState;
+begin
+  if ShortCutText <> '' then begin
+    lKey := 0;
+    lShift := [];
+    ShortCutToKey(TextToShortCut(ShortCutText),lKey,lShift);
+    Result := IDEShortCut(lKey,lShift);
+  end
+  else
+    Result := CleanIDEShortCut;
+end;
+
+procedure Register;
+begin
+  wiz:= TROMenuWizard.Create;
+  {$IFNDEF FPC}
+  RegisterPackageWizard(TROMenuWizard.Create);
+  {$ENDIF}
+end;
+
+{ TROMenuWizard }
+
+constructor TROMenuWizard.Create;
+begin
+  inherited Create;
+  CreateMenuItems;
+end;
+
+destructor TROMenuWizard.Destroy;
+begin
+  if Assigned(fROMenu) then begin
+    MenuManager.DestroyMenu(fROMenu);
+  end;
+  gRemObjectsMenu := nil;
+  inherited;
+end;
+
+// The following are stubs that Delphi never calls.
+procedure TROMenuWizard.AfterSave;
+begin
+end;
+
+procedure TROMenuWizard.BeforeSave;
+begin
+end;
+
+procedure TROMenuWizard.Destroyed;
+begin
+end;
+
+procedure TROMenuWizard.Execute;
+begin
+end;
+
+procedure TROMenuWizard.Modified;
+begin
+end;
+
+procedure TROMenuWizard.CreateMenuItems;
+var
+  lItem     : TEWMenuItem;
+  i        : Integer;
+  lCaption: string;
+begin
+  lCaption := 'Rem&Objects SDK';
+ {$IFDEF MSWINDOWS}
+  with TRegistry.Create(KEY_READ) do try
+    RootKey := HKEY_CURRENT_USER;
+    if OpenKey('\Software\RemObjects\RemObjects SDK for Delphi\IDE Integration', False) then
+      if ValueExists('Menu Caption') then
+        lCaption := ReadString('Menu Caption');
+      if ValueExists('VersionService URL') then
+        fVersionService := ReadString('VersionService URL');
+  finally
+    Free;
+  end;
+  {$ENDIF}
+  fROMenu := MenuManager.CreateMenu(lCaption);
+  fROMenu.OnPopup := OnMenuPopup;
+  gRemObjectsMenu := fROMenu;
+  with TIdeData.Create(nil) do try
+    for i := 0 to High(MenuItems) do begin
+      lItem := fROMenu.CreateMenuItem(MenuItems[i].Caption, -1, MenuItems[i].Personalities);
+      if MenuItems[i].ShortCut <> '' then
+         lItem.Command := RegisterIDECommand(fRoMenu.CommandCategory, lItem.Caption,lItem.Caption,TextToIDEShortCut(MenuItems[i].ShortCut));
+      lItem.MenuItem.Tag := i;
+
+      if MenuItems[i].ImageIndex > -1 then
+        lItem.SetGlyph(iml_Actions, MenuItems[i].ImageIndex);
+
+      MenuItems[i].Menu := lItem;
+
+      case i of
+        mi_RODLEditor         : lItem.MenuItem.OnClick := ShowServiceBuilder;
+        mi_ImportServicesRODL : lItem.MenuItem.OnClick := ImportServicesRODL;
+        mi_ImportServicesWSDL : lItem.MenuItem.OnClick := ImportServicesWSDL;
+        mi_ServiceTester      : lItem.MenuItem.OnClick := LaunchServiceTester;
+        mi_Regenerate         : lItem.MenuItem.OnClick := OnRegenerateUnits;
+        mi_RegenerateAsync    : lItem.MenuItem.OnClick := OnRegenerateAsyncUnit;
+        mi_RegenerateLRS      : lItem.MenuItem.OnClick := OnRegenerateLRS;
+        mi_ConvertToServer    : lItem.MenuItem.OnClick := OnConvertToServer;
+        //mi_CheckVersion       : lItem.MenuItem.OnClick := OnCheckForNewVersion;
+        mi_About              : lItem.MenuItem.OnClick := OnAbout;
+        mi_LaunchExe          : lItem.MenuItem.OnClick := OnLaunchEXE;
+        mi_HidePreprocessor   : begin
+            lItem.MenuItem.OnClick := OnHidePreprocessorClick;
+            fHidePreprocessorItem := lItem;
+          end;
+        else lItem.MenuItem.OnClick := nil;
+      end;
+    end;
+
+    MenuItems[mi_HidePreprocessor].Menu.Visible := False;
+    MenuItems[mi_HidePreprocessor+1].Menu.Visible := False; // separator;
+  finally
+    Free;
+  end;
+end;
+
+procedure TROMenuWizard.OnMenuPopup(Sender: TObject);
+var lCurrentProjectIsRodlProject :boolean;
+    lRodlProject: {$IFDEF FPC}TLazProject{$ELSE} IOTAProject{$ENDIF};
+    lProject: {$IFDEF FPC}TLazProject{$ELSE} IOTAProject{$ENDIF};
+begin
+  lCurrentProjectIsRodlProject := ProjectIsRodlProject(CurrentProject());
+  lRodlProject := FindFirstRodlProject;
+
+  MenuItems[mi_Regenerate].Menu.Visible := lCurrentProjectIsRodlProject;
+  MenuItems[mi_RegenerateAsync].Menu.Visible := lCurrentProjectIsRodlProject;
+
+  MenuItems[mi_LaunchExe].Menu.Visible := assigned(lRodlProject) or lCurrentProjectIsRodlProject;
+  MenuItems[mi_LaunchExeSeparator].Menu.Visible := MenuItems[mi_LaunchExe].Menu.Visible;
+  { D7 menu cannot hide separators itself }
+
+  if lCurrentProjectIsRodlProject then begin
+    MenuItems[mi_RODLEditor].Menu.MenuItem.Caption := 'Edit &Service Library';
+  end
+  else begin
+    MenuItems[mi_RODLEditor].Menu.MenuItem.Caption := '&Service Builder';
+  end;
+  if DisplayIDEMessageForm and fHidePreprocessorItem.MenuItem.Checked then fHidePreprocessorItem.MenuItem.Checked := FALSE;
+
+  lProject := CurrentProject;
+  if Assigned(lProject) then begin
+    MenuItems[mi_ConvertToServer].Menu.Visible := not lCurrentProjectIsRodlProject;
+    MenuItems[mi_ConvertToServer].Menu.MenuItem.Caption := Format(sMakeServerCaption,[ChangeFileExt(ExtractFileName(lProject.MainFile.Filename),'')]);
+  end
+  else begin
+    MenuItems[mi_ConvertToServer].Menu.Visible := false;
+  end;
+  MenuItems[mi_ConvertToServerSeparator].Menu.Visible := (MenuItems[mi_ConvertToServer].Menu.Visible or MenuItems[mi_Regenerate].Menu.Visible);
+end;
+
+
+resourcestring
+  sConvertedLaunchSB = 'Your Project was converted into a RemObjects server.'#13#13+
+                       'Would you like to launch ServiceBuilder to define your Service, now?';
+
+procedure TROMenuWizard.OnConvertToServer(Sender: TObject);
+begin
+  if LazarusIDE.DoSaveProject([sfProjectSaving])= mrOk then
+    if ConvertProjectToRoServer(CurrentProject()) then begin
+      if MessageDlg(sConvertedLaunchSB,mtConfirmation,[mbYes,mbNo],0) = mrYes then begin
+        LaunchServiceBuilderForCurrentProject('');
+      end;
+    end;
+end;
+
+procedure TROMenuWizard.OnRegenerateUnits(Sender: TObject);
+begin
+  with TRORODLNotifier.Create do try
+    GenerateUnits(CurrentProject, [utIntf, utInvk, utImpl]);
+  finally
+    Free();
+  end;
+end;
+
+procedure TROMenuWizard.OnRegenerateAsyncUnit(Sender: TObject);
+begin
+  with TRORODLNotifier.Create do try
+    GenerateUnits(CurrentProject, [utAsync]);
+  finally
+    Free();
+  end;
+end;
+
+procedure TROMenuWizard.OnRegenerateLRS(Sender: TObject);
+var prj : TLazProject;
+    fname,
+    src: string;
+begin
+  prj := CurrentProject;
+
+  if Assigned(prj) then begin
+    src := ReadModuleSource(prj.MainFile);
+    fname := ModuleDir(prj)+ExtractRODLFileName(src);
+    with TRORODLNotifier.Create do try
+      if GenerateRESFromRODL(fName,nil) then
+        Messages.Add(mInfo,ExtractFileName(fname)+ ' was generated successfully')
+      else
+        Messages.Add(mWarning,ExtractFileName(fname)+ ' WAS NOT generated successfully');
+      Messages.FlushMessages;
+    finally
+      Free;
+    end;
+  end;
+end;
+
+procedure TROMenuWizard.ShowServiceBuilder(Sender: TObject);
+begin
+  LaunchServiceBuilderForCurrentProject('');
+end;
+
+procedure TROMenuWizard.LaunchServiceTester(Sender: TObject);
+begin
+  uROIDETools_laz.LaunchServiceTester();
+end;
+
+procedure TROMenuWizard.ImportServicesRODL(Sender: TObject);
+begin
+  ImportService('Import.Rodl');
+end;
+
+procedure TROMenuWizard.ImportServicesWSDL(Sender: TObject);
+begin
+  ImportService('Import.Soap.Wsdl');
+end;
+
+
+procedure TROMenuWizard.ImportService(const aType:string);
+{$IFDEF FPC}
+begin
+  ShowMessage('Isn''t implemented yet');
+end;
+{$ELSE}
+var params, lUnitName, lRodlName : string;
+    tempdir : array[0..1000] of char;
+
+    lModule : IOTAModule;
+    lProject: IOTAProject;
+    lLibrary: TRODLLibrary;
+begin
+  //if not GetImportInputs(loc) then Exit;
+
+  Windows.GetTempPath(SizeOf(tempdir), tempdir);
+  lRodlName := IncludeTrailingPathDelimiter(tempdir)+GUIDToString(NewGUID)+'.rodl';
+  DeleteFile(lRodlName);
+
+  lProject := CurrentProject;
+  {$IFDEF SB2}
+  if assigned(lProject) then begin
+    params := Format('/import /rodlfile:"%s" /autosave /projectname:"(Import Service for %s)"', [lRodlName,ExtractFileName(lProject.FileName)]);
+  end
+  else begin
+    params := Format('/import /rodlfile:"%s" /autosave', [lRodlName]);
+  end;
+  {$ELSE}
+  if assigned(lProject) then begin
+    params := Format('"%s" /ns /import:%s /autosave /projectname:"(Importing Service for %s)"', [lRodlName,aType,ExtractFileName(lProject.FileName)]);
+  end
+  else begin
+    params := Format('"%s" /ns /import:%s /autosave', [lRodlName,aType]);
+  end;
+  {$ENDIF SB2}
+
+  //params := Format('/import-wsdl:%s /rodlfile:%s /autosave', [loc, fname]);
+  //params := Format('/import /rodlfile:%s /autosave', [fname]);
+  //ShowMessage(params);
+
+  with TPleaseWaitForm.Create(Application,'Importing via the ServiceBuilder...') do try
+    Show();
+    LaunchServiceBuilder(lProject.FileName,Params,true);
+    Hide();
+  finally
+    Free();
+  end;
+
+  if FileExists(lRodlName) then try
+
+    lLibrary := LoadLibraryFromXml(lRodlName);
+    try
+
+      lUnitname := ExtractFilePath(lProject.FileName)+GetTargetFileName(lLibrary, nil, cgtIntf, CodeGenLanuageFromProjectPersonality(lProject));
+
+      // Checks if the module is already in the project
+      try
+        lModule := FindModuleByUnitName(lProject, lUnitname);
+      except
+        on E:EFOpenError do lModule := nil;
+        else raise;
+      end;
+      if assigned(lModule) then begin
+        case MessageDlg(Format('A unit named "%s" already exists in the project.'#13+
+                               'Do you want to overwrite the file?', [ExtractFileName(lUnitname)]),
+                        mtWarning, [mbYes, mbCancel], 0) of
+          mrCancel: Abort;
+          mrYes: { no-op};
+        end
+      end
+      else if FileExists(lUnitName) then begin
+        case MessageDlg(Format('A unit named "%s" already exists, but is not part of the project.'#13+
+                               'Do you want to overwrite the file?', [ExtractFileName(lUnitname)]),
+                        mtWarning, [mbYes, mbCancel], 0) of
+          mrCancel: Abort;
+          mrYes: { no-op};
+        end
+      end;
+
+      //ToDo: handle read-only files
+
+      {$IFNDEF REMOBJECTS_CODEGEN2}
+      if CodeGenLanuageFromProjectPersonality(lProject) = cglCppWin32 then begin
+      {$ENDIF}
+
+        GenerateUnitToFile(lRodlName, nil, cgtIntf, CodeGenLanuageFromProjectPersonality(lProject), '', lUnitName);
+        lProject.AddFile(lUnitName, true);
+        //ToDo: properly load from stream into lModule
+
+      {$IFNDEF REMOBJECTS_CODEGEN2}
+      end
+      else begin
+
+        with TRODLToIntf.Create(lRodlName,ChangeFileExt(ExtractFileName(lUnitName), '')) do try
+          Buffer.SaveToFile(lUnitName);
+          lProject.AddFile(lUnitName, true);
+        finally
+          Free;
+        end;
+
+      end;
+      {$ENDIF not REMOBJECTS_CODEGEN2}
+
+    finally
+      FreeAndNil(lLibrary);
+    end;
+
+  finally
+    DeleteFile(lRodlName);
+  end;
+
+end;
+{$ENDIF}
+
+procedure TROMenuWizard.OnAbout(Sender: TObject);
+begin
+  with TAboutForm.Create(Application) do try
+    Position := poScreenCenter;
+    ShowModal();
+  finally
+    Free();
+  end
+end;
+
+procedure TROMenuWizard.OnCheckForNewVersion(Sender: TObject);
+begin
+{$IFDEF FPC}
+  ShowMessage('Isn''t implemented yet');
+{$ELSE}
+  GetVersionInfos(fVersionService);
+{$ENDIF}
+end;
+
+procedure TROMenuWizard.OnHidePreprocessorClick(Sender : TObject);
+var
+  lMenuItem: TEWMenuItem;
+begin
+  lMenuItem := MenuItems[mi_HidePreprocessor].Menu;
+  lMenuItem.Checked := not lMenuItem.Checked;
+  DisplayIDEMessageForm := not lMenuItem.Checked;
+  if not DisplayIDEMessageForm and IDEMessageForm.Visible then IDEMessageForm.Close;
+end;
+
+procedure TROMenuWizard.OnLaunchEXE(Sender: TObject);
+var
+  dirname, exename: string;
+  lProject: TLazProject;
+begin
+  {$IFDEF FPC}
+  dirname := '';
+  {$ENDIF}
+  if ProjectIsRodlProject(CurrentProject()) then
+    lProject := CurrentProject()
+  else
+    lProject := FindFirstRodlProject();
+
+  if not assigned(lProject) then exit; // shouldn't happen if menu was active
+
+  exename := GetProjectExe(lProject);
+
+  if not FileExists(exename) then begin
+    case MessageDlg(Format('The file %s does not exist. Would you like to compile the project now?', [exename]), mtWarning, [mbYes, mbCancel], 0) of
+        mrYes:begin
+           if LazarusIDE.DoBuildProject(crRun,[]) = mrOk then
+              RO_ShellExecute(0, 'open', PChar(exename), NIL, PChar(dirname), SW_NORMAL);
+          end;
+        MrCancel:;
+    end;
+  end
+  else begin
+    RO_ShellExecute(0, 'open', PChar(exename), NIL, PChar(dirname), SW_NORMAL);
+  end;
+
+end;
+
+finalization
+  if wiz <> nil then wiz.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEPrjWizard.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEPrjWizard.pas
new file mode 100644
index 0000000..b3dc05b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEPrjWizard.pas	
@@ -0,0 +1,651 @@
+unit uROIDEPrjWizard;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration
+{
+{ compiler: Delphi 5 and up
+{ platform: Win32
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the RemObjects SDK
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses Windows, SysUtils,
+  {$IFDEF KYLIX1UP}DesignEditors, DesignIntf, {$ELSE}
+  {$IFDEF DELPHI6UP}DesignEditors, DesignIntf, {$ELSE}DsgnIntf, {$ENDIF}{$ENDIF}
+  ToolsApi, Graphics;
+
+const
+  IconName = 'Icon.ico';
+  InfoName = 'Info.ini';
+
+  sect_Information = 'Information';
+  sect_ClassFactories = 'Class Factories';
+  sect_ProjectGeneration = 'Project Generation';
+  sect_ProjectFolderHistory = 'Project Folder History';
+
+  id_Name = 'Name';
+  id_Description = 'Description';
+  {$IFDEF LINUX}
+  id_MinVersion = 'KylixMinimumVersion';
+  {$ELSE}
+  id_MinVersion = 'MinimumVersion';
+  {$ENDIF}
+  id_MaxVersion = 'MaximumVersion';
+  id_InvalidServers = 'InvalidServers';
+  id_DefaultServer = 'DefaultServer';
+  id_FixedChannel = 'FixedChannel';
+  id_FixedServer = 'FixedServer';
+
+  id_SvcLibName = 'SvcLibName';
+  id_SvcName = 'SvcName';
+  id_PrjName = 'PrjName';
+  id_PrjDir = 'PrjDir';
+  id_cbSvcInstantMode = 'cbSvcInstantMode';
+  id_CreateClientAndGroup = 'CreateClientAndGroup';
+
+  id_WizardType = 'Wizard';
+
+  DelphiModules: array[0..8] of string =
+    ('.dpr', '.pas', '.rodl', '.xml', '.dfm', '.xfm', '.bpg', '.bdsproj', '.bdsgroup');
+
+type { TROIDEProjectOptions }
+  TROIDEProjectOptions = record
+    TemplateDir,
+      ServiceLibraryName,
+      ServiceName,
+      ProjectDir,
+      ProjectName,
+      ServerClassName,
+      ServerUnitName,
+      ChannelClassName,
+      ChannelUnitName,
+      MessageClassName,
+      MessageUnitName: string;
+      CreateClientAndGroup: boolean;
+      WizardEnabled: boolean;
+  end;
+
+  TROIDENewProjectInfo = record
+    Wizard: string;
+    ServerProject,ClientProject: IOTAProject;
+    ProjectOptions: TROIDEProjectOptions;
+    TemplateFolder: string;
+    TemplateName: string;
+  end;
+  TNewProjectEvent = procedure(aNewProjectInfo: TROIDENewProjectInfo);
+
+  { TROProjectWizard }
+  TROProjectWizard = class(TNotifierObject,
+      IOTAWizard,
+      IOTARepositoryWizard,
+      {$IFDEF BDS}
+      IOTARepositoryWizard80,
+      {$ENDIF}
+      IOTAProjectWizard)
+  private
+    fTemplateDir,
+    fComment,
+    fName,
+    fPage: string;
+    {$IFDEF BDS}
+    fCategory: IOTAGalleryCategory;
+    {$ENDIF}
+    procedure CreateProject(const someProjectOptions: TROIDEProjectOptions;
+      const ScanExtensions: array of string);
+    function ReplaceCtrlStrings(const someText: string;
+      const someProjectOptions: TROIDEProjectOptions): string;
+
+  protected
+    { support for IOTAWizard }
+    function GetIDString: string;
+    function GetName: string;
+    function GetState: TWizardState;
+    procedure Execute;
+    { support for IOTARepositoryWizard }
+    function GetAuthor: string;
+    function GetComment: string;
+    function GetPage: string;
+    {$IFDEF KYLIX1UP}
+    function GetGlyph: Cardinal;
+    {$ELSE}
+    {$IFDEF DELPHI6UP}
+    function GetGlyph: Cardinal;
+    {$ELSE}
+    function GetGlyph: HIcon;
+    {$ENDIF}
+    {$ENDIF}
+
+    {$IFDEF BDS}
+    function GetDesigner: string;
+    function GetGalleryCategory: IOTAGalleryCategory;
+    function GetPersonality: string;
+    {$ENDIF}
+
+  public
+    {$IFDEF xBDS}
+    constructor Create(const aTemplateDir, aName, aComment: string; aCategory: IOTAGalleryCategory);
+    {$ELSE}
+    constructor Create(const aTemplateDir, aName, aComment: string; aCategory: string);
+    {$ENDIF}
+    destructor Destroy; override;
+  end;
+
+procedure Register;
+procedure RunGuideWizard(aNewProjectInfo: TROIDENewProjectInfo);
+procedure RegisterGuideWizard(aOnNewProject: TNewProjectEvent);
+procedure UnregisterGuideWizard(aOnNewProject: TNewProjectEvent);
+
+implementation
+{$IFDEF MSWINDOWS}
+{$WARN SYMBOL_PLATFORM OFF}
+{$ENDIF}
+uses ComObj, Classes, Dialogs, Forms, Controls, uRORes, uRODL, uRODLGenTools, INIFiles, {$IFDEF LINUX}fNewProjectForm{$ELSE}fNewProjectForm{$ENDIF},
+  Menus, uROIDETools, uROClasses, Registry {$IFDEF DELPHI5}, FileCtrl{$ENDIF},
+    Contnrs;
+
+procedure Register;
+var
+  dirinfo: TSearchRec;
+  templdirname,
+  templname,
+  templcomment: string;
+  ini: TIniFile;
+  tmpcnt: integer;
+  thisver, minver, maxver: integer;
+  lTemplateDir: string;
+  {$IFDEF xBDS}
+  lGalleryManager: IOTAGalleryCategoryManager;
+  lRODelphiCategory: IOTAGalleryCategory;
+  lDADelphiCategory: IOTAGalleryCategory;
+  lWizardService: IOTAWizardServices;
+  {$ENDIF}
+
+  procedure ProcessTemplates(aTemplateFolder: string; aCategory: {$IFDEF xBDS}IOTAGalleryCategory{$ELSE}string{$ENDIF});
+  begin
+    if (FindFirst(IncludeTrailingPathDelimiter(aTemplateFolder) + {$IFDEF LINUX} '*'{$ELSE} '*.*'{$ENDIF}, faDirectory, dirinfo) = 0) then try
+      repeat
+        ini := nil;
+
+        try
+          if (dirinfo.Attr and faDirectory = 0) or
+            (Pos('.', dirinfo.Name) = 1) or
+            (Pos('_', dirinfo.Name) = 1) then Continue;
+
+          templdirname := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(aTemplateFolder) + dirinfo.Name);
+          if not FileExists(templdirname + InfoName) then Continue;
+
+          ini := TIniFile.Create(templdirname + InfoName);
+          minver := ini.ReadInteger(sect_Information, id_MinVersion, {$IFDEF LINUX}10{$ELSE}5{$ENDIF});
+          maxver := ini.ReadInteger(sect_Information, id_MaxVersion, 1000);
+          templname := ini.ReadString(sect_Information, id_Name, '???');
+          templcomment := ini.ReadString(sect_Information, id_Description, '???');
+
+          if thisver < minver then Continue;
+          if thisver > maxver then Continue;
+
+          {$IFDEF xBDS}
+          lWizardService.AddWizard(TROProjectWizard.Create(templdirname, templname, templcomment, aCategory) as IOTAProjectWizard);
+          {$ELSE}
+          RegisterPackageWizard(TROProjectWizard.Create(templdirname, templname, templcomment, aCategory) as IOTAProjectWizard);
+          {$ENDIF}
+          Inc(tmpcnt);
+
+        finally
+          ini.Free;
+        end;
+
+      until (FindNext(dirinfo) <> 0);
+    finally
+      FindClose(dirinfo);
+    end;
+  end;
+
+begin
+  {$IFDEF DELPHI5}
+  thisver := 5;
+  {$ENDIF}
+  {$IFDEF DELPHI6}
+  thisver := 6;
+  {$ENDIF}
+  {$IFDEF DELPHI7}
+  thisver := 7;
+  {$ENDIF}
+  {$IFDEF DELPHI9}
+  thisver := 9;
+  {$ENDIF}
+  {$IFDEF DELPHI10}
+  thisver := 10;
+  {$ENDIF}
+  {$IFDEF DELPHI12}
+  thisver := 12;
+  {$ENDIF}
+  {$IFDEF DELPHI14}
+  thisver := 14;
+  {$ENDIF}
+
+  lTemplateDir := IncludeTrailingPathDelimiter(GetTemplateDir);
+
+  tmpcnt := 0;
+
+  {$IFDEF xBDS}
+  {lWizardService := Services as IOTAWizardServices;
+  lGalleryManager := Services as IOTAGalleryCategoryManager;
+
+  if DirectoryExists(lTemplateDir+'RO') then begin
+    lRODelphiCategory := lGalleryManager.AddCategory(nil, 'RemObjectsSdkDelphi', 'RemObjects SDK for Delphi', 0);
+    ProcessTemplates(lTemplateDir+'RO', lRODelphiCategory);
+  end;
+  if DirectoryExists(lTemplateDir+'DA') then begin
+    lDADelphiCategory := lGalleryManager.AddCategory(nil, 'RemObjectsDataAbstractDelphi', 'RemObjects Data Abstract for Delphi', 0);
+    ProcessTemplates(lTemplateDir+'DA', lDADelphiCategory);
+  end;}
+  {$ELSE}
+  if DirectoryExists(lTemplateDir+'RO') then begin
+    ProcessTemplates(lTemplateDir+'RO','RemObjects SDK');
+  end;
+  if DirectoryExists(lTemplateDir+'DA') then begin
+    ProcessTemplates(lTemplateDir+'DA', 'RemObjects Data Abstract');
+  end;
+  {$ENDIF}
+
+  // Status message just in case
+  if (tmpcnt = 0) then
+    MessageDlg('No RemObject server templates were found under ' + GetTemplateDir, mtWarning, [mbOK], 0)
+end;
+
+{ TROProjectWizard }
+
+{$IFDEF xBDS}
+constructor TROProjectWizard.Create(const aTemplateDir, aName, aComment: string; aCategory: IOTAGalleryCategory);
+begin
+  inherited Create;
+
+  fName := aName;
+  fTemplateDir := aTemplateDir;
+  fComment := aComment;
+  fCategory := aCategory;
+end;
+{$ELSE}
+constructor TROProjectWizard.Create(const aTemplateDir, aName, aComment: string; aCategory: string);
+begin
+  inherited Create;
+
+  fName := aName;
+  fTemplateDir := aTemplateDir;
+  fComment := aComment;
+  fPage := aCategory;
+end;
+{$ENDIF}
+
+destructor TROProjectWizard.Destroy;
+begin
+  inherited;
+end;
+
+procedure TROProjectWizard.Execute;
+var
+  prjopt: TROIDEProjectOptions;
+  lNewProjectInfo: TROIDENewProjectInfo;
+  i:integer;
+  lServices: IOTAModuleServices;
+  lProject: IOTAProject;
+begin
+  if PromptProjectOptions(fTemplateDir, prjopt) then begin
+    CreateProject(prjopt, DelphiModules);
+
+    with prjopt do begin
+      {$IFDEF BDS}
+      if FileExists(ProjectDir + ProjectName + 'Group.bdsgroup') and prjopt.CreateClientAndGroup then
+        (BorlandIDEServices as IOTAActionServices).OpenProject(ProjectDir + ProjectName + 'Group.bdsgroup', FALSE)
+      {$ELSE}
+      if FileExists(ProjectDir + ProjectName + 'Group.bpg') and prjopt.CreateClientAndGroup then
+        (BorlandIDEServices as IOTAActionServices).OpenProject(ProjectDir + ProjectName + 'Group.bpg', FALSE)
+      {$ENDIF}
+
+      {$IFDEF BDS}
+      else if FileExists(ProjectDir + ProjectName + '.bdsproj') then
+        (BorlandIDEServices as IOTAActionServices).OpenProject(ProjectDir + ProjectName + '.bdsproj', FALSE)
+      {$ELSE}
+      else if FileExists(ProjectDir + ProjectName + '.dpr') then
+        (BorlandIDEServices as IOTAActionServices).OpenProject(ProjectDir + ProjectName + '.dpr', FALSE)
+      {$ENDIF}
+      else
+        raise Exception.Create('Cannot find RemObjects project');
+
+      // find projects
+      lServices := ModuleServices;
+      if not assigned(lServices) then exit;
+      for i := 0 to (lServices.ModuleCount - 1) do begin
+        if lServices.Modules[i].QueryInterface(IOTAProject, lProject) = S_OK then begin
+          if ChangeFileExt(ExtractFileName(lProject.FileName),'') = prjopt.ProjectName then begin
+            lNewProjectInfo.ServerProject := lProject;
+          end
+          else if ChangeFileExt(ExtractFileName(lProject.FileName),'') = prjopt.ProjectName+'Client' then begin
+            lNewProjectInfo.ClientProject := lProject;
+          end;
+        end;
+      end;
+      if not assigned(lNewProjectInfo.ServerProject) then exit;
+
+      if WizardEnabled then begin
+        with TMemIniFile.Create(IncludeTrailingPathDelimiter(prjopt.TemplateDir)+'Info.ini') do try
+          lNewProjectInfo.Wizard := ReadString('Information', 'Wizard', '');
+          if lNewProjectInfo.Wizard <> '' then begin
+            lNewProjectInfo.TemplateFolder := fTemplateDir;
+            lNewProjectInfo.TemplateName := ExtractFileName(ExcludeTrailingPathDelimiter(fTemplateDir));
+            lNewProjectInfo.ProjectOptions := prjopt;
+            RunGuideWizard(lNewProjectInfo);
+          end;
+        finally
+          Free();
+        end;
+      end;
+
+      {if (MessageDlg(
+        'Your server project needs to be compiled in order to generate the additional units' + #13 +
+        'required for remote invocation. Do you want to do that now?', mtInformation, [mbYes, mbNo], 0) = mrYes) then begin
+        CompileProject;
+      end;}
+    end;
+  end;
+end;
+
+procedure TROProjectWizard.CreateProject(const someProjectOptions: TROIDEProjectOptions; const ScanExtensions: array of string);
+var
+  lIgnoreAll: boolean;
+
+  function CanWriteFile(const aFilename: string): boolean;
+  begin
+    result := (not FileExists(aFileName)) or lIgnoreAll;
+    if not result then begin
+      case MessageDlg(Format('File %s already exists. Overwrite?', [aFileName]), mtWarning, [mbYes, mbYesToAll, mbNo, mbCancel], 0) of
+        mrYes: result := true;
+        mrYesToAll: begin
+            result := true;
+            lIgnoreAll := true;
+          end;
+        mrCancel: Abort();
+      end;
+    end;
+  end;
+
+  function CopyTemplateFiles(const SourceDir: string):boolean;
+  var
+    s, d, templatedir: string;
+    dirinfo: TSearchRec;
+    sl: TStringList;
+    i: integer;
+    docopy: boolean;
+  begin
+    result := true;
+    sl := TStringList.Create;
+    templatedir := IncludeTrailingPathDelimiter(SourceDir);
+    try
+
+      if (FindFirst(templatedir + '*.*', faArchive, dirinfo) = 0) then try
+        ForceDirectories(someProjectOptions.ProjectDir);
+        repeat
+          if (CompareText(dirinfo.Name, IconName) = 0) or
+            (CompareText(dirinfo.Name, InfoName) = 0) then Continue;
+
+          s := templatedir + dirinfo.Name;
+          d := someProjectOptions.ProjectDir + ReplaceCtrlStrings(dirinfo.Name, someProjectOptions);
+
+          docopy := TRUE;
+          for i := 0 to High(ScanExtensions) do
+            if (CompareText(ExtractFileExt(dirinfo.Name), ScanExtensions[i]) = 0) then begin
+
+              if not CanWriteFile(d) then Continue;
+
+              sl.LoadFromFile(s);
+              sl.Text := ReplaceCtrlStrings(sl.Text, someProjectOptions);
+              sl.SaveToFile(d);
+
+              if SameText(ExtractFileExt(s),'.rodl') then result := false;
+
+              docopy := FALSE;
+              Break;
+            end;
+
+          if docopy then begin
+            if CanWriteFile(d) then begin
+              CopyFile(PChar(s), PChar(d), FALSE);
+            { Make sure copied files are not readonly, which they might be
+              if TEMPLATES folder is. }
+              SetFileAttributes(PChar(d), FILE_ATTRIBUTE_ARCHIVE);
+            end;
+          end;
+
+        until (FindNext(dirinfo) <> 0);
+      finally
+        FindClose(dirinfo);
+      end;
+    finally
+      sl.Free;
+    end;
+  end;
+
+var
+  lNeedsRodl: boolean;
+  lClientFolder: string;
+begin
+  lNeedsRodl := CopyTemplateFiles(someProjectOptions.TemplateDir);
+  if lNeedsRodl then CopyTemplateFiles(GetTemplateDir);
+  {$IFDEF BDS}
+  CopyTemplateFiles(IncludeTrailingPathDelimiter(GetTemplateDir)+'_BDS\Server');
+  {$ENDIF}
+
+  if someProjectOptions.CreateClientAndGroup then begin
+    lClientFolder := IncludeTrailingPathDelimiter(someProjectOptions.TemplateDir)+'_CLIENT';
+    if not DirectoryExists(lClientFolder) then
+      lClientFolder := IncludeTrailingPathDelimiter(GetTemplateDir)+'_CLIENT';
+    CopyTemplateFiles(lClientFolder);
+    {$IFDEF BDS}
+    CopyTemplateFiles(IncludeTrailingPathDelimiter(GetTemplateDir)+'_BDS\Client');
+    {$ENDIF}
+  end;
+
+end;
+
+function GuidReplace(const S, OldPattern: string; Flags: TReplaceFlags): string;
+var
+  SearchStr, Patt, NewStr: string;
+  Offset: Integer;
+begin
+  if rfIgnoreCase in Flags then begin
+    SearchStr := UpperCase(S);
+    Patt := UpperCase(OldPattern);
+  end
+  else begin
+    SearchStr := S;
+    Patt := OldPattern;
+  end;
+  NewStr := S;
+  Result := '';
+  while SearchStr <> '' do begin
+    Offset := AnsiPos(Patt, SearchStr);
+    if Offset = 0 then begin
+      Result := Result + NewStr;
+      Break;
+    end;
+    Result := Result + Copy(NewStr, 1, Offset - 1) + NewGuidAsString();
+    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
+    if not (rfReplaceAll in Flags) then begin
+      Result := Result + NewStr;
+      Break;
+    end;
+    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
+  end;
+end;
+
+function TROProjectWizard.ReplaceCtrlStrings(const someText: string; const someProjectOptions: TROIDEProjectOptions): string;
+var
+  cs: string;
+  lRoFolder, lDaFolder:string;
+begin
+  cs := UpperCase(someText);
+  with TRegistry.Create do try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey('\Software\RemObjects\RemObjects SDK for Delphi',false);
+    lRoFolder := ReadString('InstallDir');
+    OpenKey('\Software\RemObjects\Data Abstract',false);
+    lDaFolder := ReadString('InstallDir');
+  finally
+    Free();
+  end;
+  if lRoFolder = '' then lRoFolder := ExpandFileName(IncludeTrailingPathDelimiter(GetBinDir)+'..\');
+  if lDaFolder = '' then lDaFolder := ExpandFileName(IncludeTrailingPathDelimiter(GetBinDir)+'..\..\Data Abstract\');
+  lRoFolder := IncludeTrailingPathDelimiter(lRoFolder);
+  lDaFolder := IncludeTrailingPathDelimiter(lDaFolder);
+
+  result := StringReplace(someText, '$ROFOLDER', lRoFolder , [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(someText, '$DAFOLDER', lDaFolder , [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$PRJNAME', someProjectOptions.ProjectName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SVCNAME', someProjectOptions.ServiceName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SERVICENAME', someProjectOptions.ServiceName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SVCLIBNAME', someProjectOptions.ServiceLibraryName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$LIBRARYNAME', someProjectOptions.ServiceLibraryName, [rfReplaceAll, rfIgnoreCase]);
+  result := GuidReplace(result, '$NEWID', [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$MSGCLSNAME', someProjectOptions.MessageClassName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$MSGCLSNAME', someProjectOptions.MessageClassName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SRVCLSNAME', someProjectOptions.ServerClassName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$CHNCLSNAME', someProjectOptions.ChannelClassName, [rfReplaceAll, rfIgnoreCase]);
+
+  result := StringReplace(result, '$CHANNELUNIT', someProjectOptions.ChannelUnitName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SERVERUNIT', someProjectOptions.ServerUnitName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$MESSAGEUNIT', someProjectOptions.MessageUnitName, [rfReplaceAll, rfIgnoreCase]);
+end;
+
+function TROProjectWizard.GetAuthor: string;
+begin
+  Result := str_Author;
+end;
+
+function TROProjectWizard.GetComment: string;
+begin
+  Result := fComment
+end;
+
+{$IFDEF KYLIX1UP}
+
+function TROProjectWizard.GetGlyph: Cardinal;
+var
+  icon: Graphics.TIcon;
+begin
+  if FileExists(fTemplateDir + IconName) then begin
+    icon := Graphics.TIcon.Create;
+    icon.LoadFromFile(fTemplateDir + IconName);
+    result := icon.Handle;
+  end
+  else
+    result := 0;
+end;
+{$ELSE}
+{$IFDEF DELPHI6UP}
+
+function TROProjectWizard.GetGlyph: Cardinal;
+var
+  icon: TIcon;
+begin
+  if FileExists(fTemplateDir + IconName) then begin
+    icon := TIcon.Create;
+    icon.LoadFromFile(fTemplateDir + IconName);
+    result := icon.Handle;
+  end
+  else
+    result := 0;
+end;
+{$ELSE}
+
+function TROProjectWizard.GetGlyph: HICON;
+var
+  icon: TIcon;
+begin
+  if FileExists(fTemplateDir + IconName) then begin
+    icon := TIcon.Create;
+    icon.LoadFromFile(fTemplateDir + IconName);
+    result := icon.Handle;
+  end
+  else
+    result := 0;
+end;
+{$ENDIF}
+{$ENDIF}
+
+{$IFDEF BDS}
+function TROProjectWizard.GetDesigner: string;
+begin
+  result := '';
+end;
+
+function TROProjectWizard.GetGalleryCategory: IOTAGalleryCategory;
+begin
+  result := fCategory;
+end;
+
+function TROProjectWizard.GetPersonality: string;
+begin
+  result := sDelphiPersonality;
+end;
+{$ENDIF}
+
+
+function TROProjectWizard.GetIDString: string;
+begin
+  Result := GUIDToString(NewGUID)
+end;
+
+function TROProjectWizard.GetName: string;
+begin
+  Result := fName
+end;
+
+function TROProjectWizard.GetPage: string;
+begin
+  Result := fPage;
+end;
+
+function TROProjectWizard.GetState: TWizardState;
+begin
+  Result := [];
+end;
+
+var
+  fGuideWizardList: TList;
+
+procedure RunGuideWizard(aNewProjectInfo: TROIDENewProjectInfo);
+var
+  i: integer;
+begin
+  for i := 0 to fGuideWizardList.Count-1 do
+    TNewProjectEvent(fGuideWizardList[i])(aNewProjectInfo);
+end;
+
+procedure RegisterGuideWizard(aOnNewProject: TNewProjectEvent);
+begin
+  fGuideWizardList.Add(@aOnNewProject);
+end;
+
+procedure UnregisterGuideWizard(aOnNewProject: TNewProjectEvent);
+begin
+  if assigned(fGuideWizardList) then
+    fGuideWizardList.Remove(@aOnNewProject);
+end;
+
+initialization
+  fGuideWizardList := TList.Create();
+finalization
+  FreeAndNil(fGuideWizardList);
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEPrjWizard_laz.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEPrjWizard_laz.pas
new file mode 100644
index 0000000..15324d9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDEPrjWizard_laz.pas	
@@ -0,0 +1,492 @@
+unit uROIDEPrjWizard_laz;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses {$IFDEF MSWINDOWS}Windows,{$ENDIF}Forms, SysUtils, Graphics, ProjectIntf;
+
+const
+  IconName = 'Icon.ico';
+  InfoName = 'Info.ini';
+
+  sect_Information = 'Information';
+  sect_ClassFactories = 'Class Factories';
+  sect_ProjectGeneration = 'Project Generation';
+  sect_ProjectFolderHistory = 'Project Folder History';
+
+  id_Name = 'Name';
+  id_Description = 'Description';
+  id_MinVersion = 'MinimumVersion';
+  id_MaxVersion = 'MaximumVersion';
+  id_InvalidServers = 'InvalidServers';
+  id_DefaultServer = 'DefaultServer';
+  id_FixedChannel = 'FixedChannel';
+  id_FixedServer = 'FixedServer';
+
+  id_SvcLibName = 'SvcLibName';
+  id_SvcName = 'SvcName';
+  id_PrjName = 'PrjName';
+  id_PrjDir = 'PrjDir';
+  id_cbSvcInstantMode = 'cbSvcInstantMode';
+  id_CreateClientAndGroup = 'CreateClientAndGroup';
+
+  id_WizardType = 'Wizard';
+
+  LazarusModules: array[0..6] of string =
+      ('.lpk', '.pas', '.rodl', '.xml', '.lfm', '.lrs', '.pp');
+
+type { TROIDEProjectOptions }
+  TROIDEProjectOptions = record
+    TemplateDir,
+      ServiceLibraryName,
+      ServiceName,
+      ProjectDir,
+      ProjectName,
+      ServerClassName,
+      ServerUnitName,
+      ChannelClassName,
+      ChannelUnitName,
+      MessageClassName,
+      MessageUnitName: string;
+      CreateClientAndGroup: boolean;
+      WizardEnabled: boolean;
+  end;
+
+  TROIDENewProjectInfo = record
+    Wizard: string;
+    ServerProject,ClientProject: TLazProject;
+    ProjectOptions: TROIDEProjectOptions;
+    TemplateFolder: string;
+    TemplateName: string;
+  end;
+  TNewProjectEvent = procedure(aNewProjectInfo: TROIDENewProjectInfo);
+
+  { TROProjectWizard }
+  TROProjectWizard = class(TForm)
+  private
+    fTemplateDir,
+    fComment,
+    fName,
+    fPage: string;
+    procedure CreateProject(const someProjectOptions: TROIDEProjectOptions;
+      const ScanExtensions: array of string);
+    function ReplaceCtrlStrings(const someText: string;
+      const someProjectOptions: TROIDEProjectOptions): string;
+
+  protected
+    { support for IOTAWizard }
+    function GetIDString: string;
+    procedure Execute;
+    { support for IOTARepositoryWizard }
+    function GetAuthor: string;
+    function GetComment: string;
+    function GetPage: string;
+    function GetGlyph: Cardinal;
+  public
+    constructor Create(const aTemplateDir, aName, aComment: string; aCategory: string);
+    destructor Destroy; override;
+  end;
+
+procedure Register;
+procedure RunGuideWizard(aNewProjectInfo: TROIDENewProjectInfo);
+procedure RegisterGuideWizard(aOnNewProject: TNewProjectEvent);
+procedure UnregisterGuideWizard(aOnNewProject: TNewProjectEvent);
+
+implementation
+
+uses ComObj, Classes, Dialogs,  Controls, uRORes, uRODL, uRODLGenTools, INIFiles, fNewProjectForm,
+  Menus, uROIDETools_laz, uROClasses, Registry, Contnrs;
+
+procedure Register;
+var
+  dirinfo: TSearchRec;
+  templdirname,
+  templname,
+  templcomment: string;
+  ini: TIniFile;
+  tmpcnt: integer;
+  thisver, minver, maxver: integer;
+  lTemplateDir: string;
+
+  procedure ProcessTemplates(aTemplateFolder: string; aCategory: string);
+  begin
+    if (FindFirst(IncludeTrailingPathDelimiter(aTemplateFolder) + {$IFNDEF MSWINDOWS} '*'{$ELSE} '*.*'{$ENDIF}, faDirectory, dirinfo) = 0) then try
+      repeat
+        ini := nil;
+
+        try
+          if (dirinfo.Attr and faDirectory = 0) or
+            (Pos('.', dirinfo.Name) = 1) or
+            (Pos('_', dirinfo.Name) = 1) then Continue;
+
+          templdirname := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(aTemplateFolder) + dirinfo.Name);
+          if not FileExists(templdirname + InfoName) then Continue;
+
+          ini := TIniFile.Create(templdirname + InfoName);
+          minver := ini.ReadInteger(sect_Information, id_MinVersion, {$IFNDEF MSWINDOWS}10{$ELSE}5{$ENDIF});
+          maxver := ini.ReadInteger(sect_Information, id_MaxVersion, 1000);
+          templname := ini.ReadString(sect_Information, id_Name, '???');
+          templcomment := ini.ReadString(sect_Information, id_Description, '???');
+
+          if thisver < minver then Continue;
+          if thisver > maxver then Continue;
+
+          RegisterPackageWizard(TROProjectWizard.Create(templdirname, templname, templcomment, aCategory) as IOTAProjectWizard);
+          Inc(tmpcnt);
+
+        finally
+          ini.Free;
+        end;
+
+      until (FindNext(dirinfo) <> 0);
+    finally
+      FindClose(dirinfo);
+    end;
+  end;
+
+begin
+  {$IFDEF DELPHI5}
+  thisver := 5;
+  {$ENDIF}
+  {$IFDEF DELPHI6}
+  thisver := 6;
+  {$ENDIF}
+  {$IFDEF DELPHI7}
+  thisver := 7;
+  {$ENDIF}
+  {$IFDEF DELPHI9}
+  thisver := 9;
+  {$ENDIF}
+  {$IFDEF DELPHI10}
+  thisver := 10;
+  {$ENDIF}
+
+  lTemplateDir := IncludeTrailingPathDelimiter(GetTemplateDir);
+
+  tmpcnt := 0;
+
+  if DirectoryExists(lTemplateDir+'RO') then begin
+    ProcessTemplates(lTemplateDir+'RO','RemObjects SDK');
+  end;
+  if DirectoryExists(lTemplateDir+'DA') then begin
+    ProcessTemplates(lTemplateDir+'DA', 'RemObjects Data Abstract');
+  end;
+
+  // Status message just in case
+  if (tmpcnt = 0) then
+    MessageDlg('No RemObject server templates were found under ' + GetTemplateDir, mtWarning, [mbOK], 0)
+end;
+
+{ TROProjectWizard }
+
+
+constructor TROProjectWizard.Create(const aTemplateDir, aName, aComment: string; aCategory: string);
+begin
+  inherited Create(nil);
+
+  fName := aName;
+  fTemplateDir := aTemplateDir;
+  fComment := aComment;
+  fPage := aCategory;
+end;
+
+destructor TROProjectWizard.Destroy;
+begin
+  inherited;
+end;
+
+procedure TROProjectWizard.Execute;
+var
+  prjopt: TROIDEProjectOptions;
+  lNewProjectInfo: TROIDENewProjectInfo;
+  i:integer;
+  lServices: IOTAModuleServices;
+  lProject: IOTAProject;
+begin
+  if PromptProjectOptions(fTemplateDir, prjopt) then begin
+    CreateProject(prjopt, LazarusModules);
+
+    with prjopt do begin
+      if FileExists(ProjectDir + ProjectName + 'Group.bpg') and prjopt.CreateClientAndGroup then
+        (BorlandIDEServices as IOTAActionServices).OpenProject(ProjectDir + ProjectName + 'Group.bpg', FALSE)
+
+      else if FileExists(ProjectDir + ProjectName + '.dpr') then
+        (BorlandIDEServices as IOTAActionServices).OpenProject(ProjectDir + ProjectName + '.dpr', FALSE)
+      else
+        raise Exception.Create('Cannot find RemObjects project');
+
+      // find projects
+      lServices := ModuleServices;
+      if not assigned(lServices) then exit;
+      for i := 0 to (lServices.ModuleCount - 1) do begin
+        if lServices.Modules[i].QueryInterface(IOTAProject, lProject) = S_OK then begin
+          if ChangeFileExt(ExtractFileName(lProject.FileName),'') = prjopt.ProjectName then begin
+            lNewProjectInfo.ServerProject := lProject;
+          end
+          else if ChangeFileExt(ExtractFileName(lProject.FileName),'') = prjopt.ProjectName+'Client' then begin
+            lNewProjectInfo.ClientProject := lProject;
+          end;
+        end;
+      end;
+      if not assigned(lNewProjectInfo.ServerProject) then exit;
+
+      if WizardEnabled then begin
+        with TMemIniFile.Create(IncludeTrailingPathDelimiter(prjopt.TemplateDir)+'Info.ini') do try
+          lNewProjectInfo.Wizard := ReadString('Information', 'Wizard', '');
+          if lNewProjectInfo.Wizard <> '' then begin
+            lNewProjectInfo.TemplateFolder := fTemplateDir;
+            lNewProjectInfo.TemplateName := ExtractFileName(ExcludeTrailingPathDelimiter(fTemplateDir));
+            lNewProjectInfo.ProjectOptions := prjopt;
+            RunGuideWizard(lNewProjectInfo);
+          end;
+        finally
+          Free();
+        end;
+      end;
+
+      {if (MessageDlg(
+        'Your server project needs to be compiled in order to generate the additional units' + #13 +
+        'required for remote invocation. Do you want to do that now?', mtInformation, [mbYes, mbNo], 0) = mrYes) then begin
+        CompileProject;
+      end;}
+    end;
+  end;
+end;
+
+procedure TROProjectWizard.CreateProject(const someProjectOptions: TROIDEProjectOptions; const ScanExtensions: array of string);
+var
+  lIgnoreAll: boolean;
+
+  function CanWriteFile(const aFilename: string): boolean;
+  begin
+    result := (not FileExists(aFileName)) or lIgnoreAll;
+    if not result then begin
+      case MessageDlg(Format('File %s already exists. Overwrite?', [aFileName]), mtWarning, [mbYes, mbYesToAll, mbNo, mbCancel], 0) of
+        mrYes: result := true;
+        mrYesToAll: begin
+            result := true;
+            lIgnoreAll := true;
+          end;
+        mrCancel: Abort();
+      end;
+    end;
+  end;
+
+  function CopyTemplateFiles(const SourceDir: string):boolean;
+  var
+    s, d, templatedir: string;
+    dirinfo: TSearchRec;
+    sl: TStringList;
+    i: integer;
+    docopy: boolean;
+  begin
+    result := true;
+    sl := TStringList.Create;
+    templatedir := IncludeTrailingPathDelimiter(SourceDir);
+    try
+
+      if (FindFirst(templatedir + '*.*', faArchive, dirinfo) = 0) then try
+        ForceDirectories(someProjectOptions.ProjectDir);
+        repeat
+          if (CompareText(dirinfo.Name, IconName) = 0) or
+            (CompareText(dirinfo.Name, InfoName) = 0) then Continue;
+
+          s := templatedir + dirinfo.Name;
+          d := someProjectOptions.ProjectDir + ReplaceCtrlStrings(dirinfo.Name, someProjectOptions);
+
+          docopy := TRUE;
+          for i := 0 to High(ScanExtensions) do
+            if (CompareText(ExtractFileExt(dirinfo.Name), ScanExtensions[i]) = 0) then begin
+
+              if not CanWriteFile(d) then Continue;
+
+              sl.LoadFromFile(s);
+              sl.Text := ReplaceCtrlStrings(sl.Text, someProjectOptions);
+              sl.SaveToFile(d);
+
+              if SameText(ExtractFileExt(s),'.rodl') then result := false;
+
+              docopy := FALSE;
+              Break;
+            end;
+
+          if docopy then begin
+            if CanWriteFile(d) then begin
+              CopyFile(PChar(s), PChar(d), FALSE);
+            { Make sure copied files are not readonly, which they might be
+              if TEMPLATES folder is. }
+              SetFileAttributes(PChar(d), FILE_ATTRIBUTE_ARCHIVE);
+            end;
+          end;
+
+        until (FindNext(dirinfo) <> 0);
+      finally
+        FindClose(dirinfo);
+      end;
+    finally
+      sl.Free;
+    end;
+  end;
+
+var
+  lNeedsRodl: boolean;
+  lClientFolder: string;
+begin
+  lNeedsRodl := CopyTemplateFiles(someProjectOptions.TemplateDir);
+  if lNeedsRodl then CopyTemplateFiles(GetTemplateDir);
+
+  if someProjectOptions.CreateClientAndGroup then begin
+    lClientFolder := IncludeTrailingPathDelimiter(someProjectOptions.TemplateDir)+'_CLIENT';
+    if not DirectoryExists(lClientFolder) then
+      lClientFolder := IncludeTrailingPathDelimiter(GetTemplateDir)+'_CLIENT';
+    CopyTemplateFiles(lClientFolder);
+  end;
+end;
+
+function GuidReplace(const S, OldPattern: string; Flags: TReplaceFlags): string;
+var
+  SearchStr, Patt, NewStr: string;
+  Offset: Integer;
+begin
+  if rfIgnoreCase in Flags then begin
+    SearchStr := UpperCase(S);
+    Patt := UpperCase(OldPattern);
+  end
+  else begin
+    SearchStr := S;
+    Patt := OldPattern;
+  end;
+  NewStr := S;
+  Result := '';
+  while SearchStr <> '' do begin
+    Offset := AnsiPos(Patt, SearchStr);
+    if Offset = 0 then begin
+      Result := Result + NewStr;
+      Break;
+    end;
+    Result := Result + Copy(NewStr, 1, Offset - 1) + NewGuidAsString();
+    NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
+    if not (rfReplaceAll in Flags) then begin
+      Result := Result + NewStr;
+      Break;
+    end;
+    SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
+  end;
+end;
+
+function TROProjectWizard.ReplaceCtrlStrings(const someText: string; const someProjectOptions: TROIDEProjectOptions): string;
+var
+  cs: string;
+  lRoFolder, lDaFolder:string;
+begin
+  cs := UpperCase(someText);
+  with TRegistry.Create do try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey('\Software\RemObjects\RemObjects SDK for Delphi',false);
+    lRoFolder := ReadString('InstallDir');
+    OpenKey('\Software\RemObjects\Data Abstract',false);
+    lDaFolder := ReadString('InstallDir');
+  finally
+    Free();
+  end;
+  if lRoFolder = '' then lRoFolder := ExpandFileName(IncludeTrailingPathDelimiter(GetBinDir)+'..\');
+  if lDaFolder = '' then lDaFolder := ExpandFileName(IncludeTrailingPathDelimiter(GetBinDir)+'..\..\Data Abstract\');
+  lRoFolder := IncludeTrailingPathDelimiter(lRoFolder);
+  lDaFolder := IncludeTrailingPathDelimiter(lDaFolder);
+
+  result := StringReplace(someText, '$ROFOLDER', lRoFolder , [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(someText, '$DAFOLDER', lDaFolder , [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$PRJNAME', someProjectOptions.ProjectName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SVCNAME', someProjectOptions.ServiceName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SERVICENAME', someProjectOptions.ServiceName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SVCLIBNAME', someProjectOptions.ServiceLibraryName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$LIBRARYNAME', someProjectOptions.ServiceLibraryName, [rfReplaceAll, rfIgnoreCase]);
+  result := GuidReplace(result, '$NEWID', [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$MSGCLSNAME', someProjectOptions.MessageClassName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$MSGCLSNAME', someProjectOptions.MessageClassName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SRVCLSNAME', someProjectOptions.ServerClassName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$CHNCLSNAME', someProjectOptions.ChannelClassName, [rfReplaceAll, rfIgnoreCase]);
+
+  result := StringReplace(result, '$CHANNELUNIT', someProjectOptions.ChannelUnitName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$SERVERUNIT', someProjectOptions.ServerUnitName, [rfReplaceAll, rfIgnoreCase]);
+  result := StringReplace(result, '$MESSAGEUNIT', someProjectOptions.MessageUnitName, [rfReplaceAll, rfIgnoreCase]);
+end;
+
+function TROProjectWizard.GetAuthor: string;
+begin
+  Result := str_Author;
+end;
+
+function TROProjectWizard.GetComment: string;
+begin
+  Result := fComment
+end;
+
+function TROProjectWizard.GetGlyph: Cardinal;
+var
+  icon: TIcon;
+begin
+  if FileExists(fTemplateDir + IconName) then begin
+    icon := TIcon.Create;
+    icon.LoadFromFile(fTemplateDir + IconName);
+    result := icon.Handle;
+  end
+  else
+    result := 0;
+end;
+
+function TROProjectWizard.GetIDString: string;
+begin
+  Result := GUIDToString(NewGUID)
+end;
+
+function TROProjectWizard.GetPage: string;
+begin
+  Result := fPage;
+end;
+
+var
+  fGuideWizardList: TList;
+
+procedure RunGuideWizard(aNewProjectInfo: TROIDENewProjectInfo);
+var
+  i: integer;
+begin
+  for i := 0 to fGuideWizardList.Count-1 do
+    TNewProjectEvent(fGuideWizardList[i])(aNewProjectInfo);
+end;
+
+procedure RegisterGuideWizard(aOnNewProject: TNewProjectEvent);
+begin
+  fGuideWizardList.Add(@aOnNewProject);
+end;
+
+procedure UnregisterGuideWizard(aOnNewProject: TNewProjectEvent);
+begin
+  if assigned(fGuideWizardList) then
+    fGuideWizardList.Remove(@aOnNewProject);
+end;
+
+initialization
+  fGuideWizardList := TList.Create();
+finalization
+  FreeAndNil(fGuideWizardList);
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDETools.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDETools.pas
new file mode 100644
index 0000000..f0992d6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDETools.pas	
@@ -0,0 +1,737 @@
+unit uROIDETools;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration
+{
+{ compiler: Delphi 5 and up
+{ platform: Win32, Linux
+{
+{ (c)opyright RemObjects Software. all rights reserved.
+{
+{ Using this code requires a valid license of the RemObjects SDK
+{ which can be obtained at http://www.remobjects.com.
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses Classes, ToolsAPI, Contnrs, Windows, uRODLConvertersUtils;
+
+const
+  MaxSourceSize = 10000;
+
+  kw_RODLGenerationDelphi = '{#ROGEN';
+  kw_RODLGenerationCpp    = '//#ROGEN';
+
+type { TIDEMessage }
+  TIDEMessageType = (mInfo, mError, mWarning);
+
+  TIDEMessage = class
+  private
+    fMessageType: TIDEMessageType;
+    fFileName,
+      fMessageStr,
+      fPrefixStr: string;
+
+  public
+    constructor Create(aMessageType: TIDEMessageType;
+      const aMessageStr: string;
+      const aFileName: string = '';
+      const aPrefixStr: string = '');
+
+    property MessageType: TIDEMessageType read fMessageType;
+    property FileName: string read fFileName;
+    property MessageStr: string read fMessageStr;
+    property PrefixStr: string read fPrefixStr;
+  end;
+
+  { TIDEMessageList }
+  TIDEMessageList = class(TObjectList)
+  private
+    fPrefixStr: string;
+
+    function GetItems(Index: integer): TIDEMessage;
+
+  public
+    constructor Create(const aPrefixStr: string);
+    destructor Destroy; override;
+
+    procedure ClearMessages;
+    procedure Add(aMessageType: TIDEMessageType;
+      const aMessageStr: string;
+      const aFileName: string = '';
+      const aPrefixStr: string = '');
+
+    procedure FlushMessages;
+
+    property Items[Index: integer]: TIDEMessage read GetItems; default;
+  end;
+
+// Service access helpers
+function ModuleServices: IOTAModuleServices;
+function CurrentProject: IOTAProject;
+procedure SetActiveProject(aProject: IOTAProject);
+function MessageServices: IOTAMessageServices;
+function Services: IOTAServices;
+function ActionServices: IOTAActionServices;
+
+//  Module helpers
+function ModuleFileName(const aModule: IOTAModule): string;
+function ModuleDir(const aModule: IOTAModule): string;
+function ModuleSourceSize(const aModule: IOTAModule): integer;
+
+// Project helpers
+
+function CodeGenLanuageFromProjectPersonality(aProject: IOTAProject): TROCodeGenLanguage;
+
+function FindModule(const aProject: IOTAProject; const aModuleName: string): IOTAModule;
+function FindModuleByUnitName(const aProject: IOTAProject; const aModuleName: string): IOTAModule;
+function GenerateRESFromRODL(const RODLFileName: string; aMessageList: TIDEMessageList): boolean;
+function ExtractRODLFileName(const Source: string): string; // Only returns the file name specified in the dpr file
+
+function FindFirstRodlProject: IOTAProject;
+function ProjectIsRodlProject(aProject: IOTAProject):boolean;
+function ConvertProjectToRoServer(aProject: IOTAProject):boolean;
+
+function ExecuteAndWait(const aApp, aCmdLine:string; aWait:boolean=true):dword;
+
+function GetServiceBuilderPath: string;
+procedure LaunchServiceBuilder(const aProjectName, aParams: string; aWait:boolean=false);
+procedure LaunchServiceBuilderForCurrentProject(const aAdditionalParameters:string; aOnlyLaunchForROServer:boolean=false; aWait:boolean=false);
+
+procedure LaunchServiceTester;
+
+function GetTemplateDir: string;
+function GetBinDir: string;
+function GetTemplateConfigFileName : string;
+function GetTemplateOptionsFileName : string;
+
+procedure CompileProject;
+function GetProjectExe(aProject: IOTAProject): string;
+
+implementation
+{$IFDEF MSWINDOWS}
+{$WARN SYMBOL_PLATFORM OFF}
+{$ENDIF}
+
+uses SysUtils, Dialogs, ShellAPI, Controls, uRORes, {$IFNDEF MSWINDOWS}
+  fCustomIDEMessagesFormKylix, {$ELSE}
+  fCustomIDEMessagesForm, {$ENDIF}uROResWriter, Forms, uROClasses, Registry,
+  uEWMenuManager, uEWOTAHelpers;
+
+function GetProjectExe(aProject: IOTAProject): string;
+{$IFNDEF BDS}
+var
+  dirname: string;
+{$ENDIF}
+begin
+  ChDir(ExtractFilePath(aProject.FileName));
+
+  {$IFDEF BDS}
+  result := ExpandFileName(aProject.ProjectOptions.TargetName);
+  {$ELSE}
+  dirname := Trim(aProject.ProjectOptions.Values['OutputDir']);
+  if (dirname='') then begin
+    dirname := ExtractFilePath(aProject.FileName)
+  end
+  else begin
+    // Checks for relative paths
+    if (dirname[1]='.') then dirname := ExtractFilePath(aProject.FileName)+dirname;
+  end;
+
+  result := IncludeTrailingPathDelimiter(dirname)+ChangeFileExt(ExtractFileName(aProject.FileName), '.exe');
+  {$ENDIF}
+end;
+
+// Service access helpers
+
+function CodeGenLanuageFromProjectPersonality(aProject: IOTAProject): TROCodeGenLanguage;
+begin
+  {$IFDEF DELPHI9UP}
+  if aProject.Personality = sPersonalityDelphiWin32 then
+    result := cglDelphiWin32
+  else if aProject.Personality = sPersonalityCppBuilderWin32 then
+    result := cglCppBuilder
+  else
+    raise Exception.Create('Unsupported project type '+aProject.Personality);
+  {$ELSE}
+  result := cglDelphiWin32
+  {$ENDIF}
+end;
+
+
+function ModuleServices: IOTAModuleServices;
+begin
+  result := uEWOTAHelpers.ModuleServices;
+end;
+
+function CurrentProject: IOTAProject;
+begin
+  result := uEWOTAHelpers.CurrentProject;
+end;
+
+procedure SetActiveProject(aProject: IOTAProject);
+var
+  services: IOTAModuleServices;
+  module: IOTAModule;
+  i: Integer;
+  projectgroup: IOTAProjectGroup;
+begin
+  services := ModuleServices;
+  if (services = nil) then Exit;
+
+  for I := 0 to (services.ModuleCount - 1) do begin
+    module := services.Modules[I];
+    if (module.QueryInterface(IOTAProjectGroup, ProjectGroup) = S_OK) then begin
+      if ProjectGroup.ActiveProject <> aProject then ProjectGroup.ActiveProject := aProject;
+      break;
+    end;
+  end;  
+end;
+
+function MessageServices: IOTAMessageServices;
+begin
+  result := (BorlandIDEServices as IOTAMessageServices);
+end;
+
+function Services: IOTAServices;
+begin
+  result := (BorlandIDEServices as IOTAServices);
+end;
+
+function ActionServices: IOTAActionServices;
+begin
+  result := (BorlandIDEServices as IOTAActionServices)
+end;
+
+//  Module helpers
+
+function ModuleFileName(const aModule: IOTAModule): string;
+begin
+  result := aModule.FileName;
+  { AleF: removed for Delphi5
+  result := '';
+
+  with aModule do
+    for i := 0 to ModuleFileCount-1 do
+      if Supports(ModuleFileEditors[i], IOTASourceEditor, editor) then begin
+        result := editor.FileName;
+        Exit;
+      end;}
+end;
+
+function ModuleDir(const aModule: IOTAModule): string;
+begin
+  result := IncludeTrailingPathDelimiter(ExtractFilePath(ModuleFileName(aModule)))
+end;
+
+function ModuleSourceSize(const aModule: IOTAModule): integer;
+begin
+  result := Length(ReadModuleSource(aModule));
+end;
+
+{ TIDEMessageList }
+
+{$IFDEF DELPHI7UP}
+
+procedure TIDEMessageList.Add(aMessageType: TIDEMessageType;
+  const aMessageStr: string;
+  const aFileName: string = '';
+  const aPrefixStr: string = '');
+var
+  lGroup: IOTAMessageGroup;
+  lDummyLineRef: pointer;
+  lPrefix: string;
+begin
+  with BorlandIDEServices as IOTAMessageServices60 do begin
+    lGroup := GetGroup(str_ProductName);
+    if not Assigned(lGroup) then lGroup := AddMessageGroup(str_ProductName);
+
+    lPrefix := aPrefixStr;
+    if lPrefix = '' then lPrefix := 'Note';
+    AddToolMessage(aFilename, aMessageStr, lPrefix, -1, -1, nil, lDummyLineRef, lGroup);
+  end; { with }
+end;
+{$ELSE}
+
+procedure TIDEMessageList.Add(aMessageType: TIDEMessageType;
+  const aMessageStr: string;
+  const aFileName: string = '';
+  const aPrefixStr: string = '');
+var
+  msg: TIDEMessage;
+begin
+  msg := TIDEMessage.Create(aMessageType, aMessageStr, aFileName, aPrefixStr);
+  inherited Add(msg);
+end;
+{$ENDIF}
+
+procedure TIDEMessageList.ClearMessages;
+{$IFDEF DELPHI7UP}
+var
+  lGroup: IOTAMessageGroup;
+begin
+  with BorlandIDEServices as IOTAMessageServices60 do begin
+    lGroup := GetGroup(str_ProductName);
+    if not Assigned(lGroup) then lGroup := AddMessageGroup(str_ProductName);
+    RemoveMessageGroup(lGroup);
+  end;
+end;
+{$ELSE}
+begin
+end;
+{$ENDIF}
+
+constructor TIDEMessageList.Create(const aPrefixStr: string);
+begin
+  inherited Create;
+  fPrefixStr := aPrefixStr;
+end;
+
+destructor TIDEMessageList.Destroy;
+begin
+  inherited;
+end;
+
+procedure TIDEMessageList.FlushMessages;
+begin
+  {$IFNDEF DELPHI7UP}
+  IDEMessageForm.FillList(Self);
+  Clear;
+  {$ENDIF DELPHI7UP}
+end;
+
+// Project helpers
+
+function FindModule(const aProject: IOTAProject; const aModuleName: string): IOTAModule;
+var
+  i: integer;
+begin
+  result := nil;
+  for i := 0 to aProject.GetModuleCount - 1 do
+    if (CompareText(aModuleName, aProject.GetModule(i).FileName) = 0) then begin
+      result := aProject.GetModule(i).OpenModule;
+      Exit;
+    end;
+end;
+
+function FindModuleByUnitName(const aProject: IOTAProject; const aModuleName: string): IOTAModule;
+begin
+  Result := uEWOTAHelpers.FindModuleByUnitName(aProject, aModuleName);
+end;
+
+function TIDEMessageList.GetItems(Index: integer): TIDEMessage;
+begin
+  result := TIDEMessage(inherited Items[Index]);
+end;
+
+{ TIDEMessage }
+
+constructor TIDEMessage.Create(aMessageType: TIDEMessageType;
+  const aMessageStr, aFileName, aPrefixStr: string);
+begin
+  fMessageType := aMessageType;
+  fMessageStr := aMessageStr;
+  fFileName := aFileName;
+  fPrefixStr := aPrefixStr;
+end;
+
+// File names helpers
+
+function ExtractRODLFileName(const Source: string): string;
+var
+  src: string;
+  i, lNameStartIndex, idx: integer;
+begin
+  result := '';
+  
+  src := UpperCase(Source);
+  idx := Pos(kw_RODLGenerationDelphi, src);
+  if idx = 0 then idx := Pos(kw_RODLGenerationCpp, src); // allow C++-style comment in Delphi, too
+  if idx = 0 then exit;
+
+  lNameStartIndex := 0;
+
+  for i := idx to Length(src) do begin
+    case src[i] of
+      ':': if (lNameStartIndex = 0) then lNameStartIndex := i + 1;
+      '}',#13, #10, '|': begin
+          if lNameStartIndex = 0 then
+            raise Exception.Create('Invalid #ROGEN directive, RODL filename not spcified.');
+          result := Trim(Copy(Source, lNameStartIndex, i-lNameStartIndex));
+          break;
+        end;
+
+    end;
+  end;
+end;
+
+function FindFirstRodlProject: IOTAProject;
+var
+  i: integer;
+  lServices: IOTAModuleServices;
+  lProject: IOTAProject;
+begin
+  result := nil;
+
+  lServices := ModuleServices;
+
+  if (lServices = nil) then Exit;
+
+  for i := 0 to (lServices.ModuleCount - 1) do begin
+    if lServices.Modules[i].QueryInterface(IOTAProject, lProject) = S_OK then begin
+      if ProjectIsRodlProject(lProject) then begin
+        result := lProject;
+        exit;
+      end;
+    end;
+  end;
+end;
+
+function ProjectIsRodlProject(aProject: IOTAProject):boolean;
+var
+  lSource:string;
+begin
+  result := false;
+  if Assigned(aProject) then begin
+    if Assigned(aProject.ProjectOptions) then begin
+      if (aProject.ProjectOptions.Values['GenPackage']) or (aProject.ProjectOptions.Values['GenDll']) then
+        Exit; // Skipping packages and dynamic libraries
+    end;
+    lSource := ReadModuleSource(aProject);
+    result := ExtractRODLFileName(lSource) <> '';
+  end;
+end;
+
+function ConvertProjectToRoServer(aProject: IOTAProject):boolean;
+var
+  lSource, lUsesClause: string;
+  lUsesStarts, lUsesEnds: Integer;
+begin
+  result := false;
+  if Assigned(aProject) and not ProjectIsRodlProject(aProject) then begin
+
+    lSource := ReadModuleSource(aProject);
+
+    case CodeGenLanuageFromProjectPersonality(aProject) of
+      cglDelphiWin32: begin
+          lSource := StringReplace(lSource, 'uses',
+            'uses'#13#10+
+            '  uROCOMInit,',
+          [rfIgnoreCase]);
+
+          lUsesStarts := Pos('uses', lSource);
+          lUsesEnds := Pos(';', Copy(lSource, lUsesStarts, Length(lSource) - lUsesStarts));
+          lUsesClause := Copy(lSource, lUsesStarts, lUsesEnds);
+
+          lSource := StringReplace(lSource, lUsesClause, lUsesClause + #13#10#13#10 +
+            '{#ROGEN:' + ExtractFileName(ChangeFileExt(aProject.FileName,'.rodl'))+'} // RemObjects: Careful, do not remove!'#13#10+
+            '{$R RODLFile.res}',
+          [rfIgnoreCase]);
+        end;
+
+      cglCppBuilder: begin
+          Insert('#include <uROCOMInit.hpp>'#13#10, lSource, Pos('#include', lSource));
+
+          lSource := StringReplace(lSource,'#pragma hdrstop',
+            '#pragma hdrstop'#13#10+
+            '//#ROGEN:'+ExtractFileName(ChangeFileExt(aProject.FileName,'.rodl'))+' | RemObjects: Careful, do not remove!'#13#10+
+            '#pragma resource "RODLFile.res"',
+          [rfIgnoreCase]);
+        end;
+
+    end;
+    result := true;
+    WriteModuleSource(aProject,lSource, '');
+  end;
+end;
+
+function ReadRegistryValue(aBaseKey:HKEY; aPath:string; aName:string; aDefault:string=''):string;
+begin
+  with TRegistry.Create(KEY_READ) do try
+    RootKey := aBaseKey;
+    if OpenKey(aPath, False) then
+      if ValueExists(aName) then
+        result := ReadString(aName)
+      else
+        result := aDefault;
+  finally
+    Free;
+  end;
+end;
+
+function GetServiceBuilderPath: string;
+var reg: TRegIniFile;
+begin
+  reg := TRegIniFile.Create('Software\RemObjects\RemObjects SDK');
+  try
+    result := reg.ReadString('ServiceBuilder', 'FullPath', GetBinDir+'ROServiceBuilder3.exe');
+  finally
+    reg.Free;
+  end;
+end;
+
+function GetServiceTesterPath: string;
+begin
+  {result := ReadRegistryValue(HKEY_CURRENT_USER,'Software\RemObjects\RemObjects SDK for Delphi','InstallDir','');
+  if result = '' then
+    raise Exception.Create('Cannot find RemObjects SDK for Delphi location in Registry.'#13#13'Please make sure RemObjects SDK is installed properly.');
+  result := IncludeTrailingPathDelimiter(result)+'Bin\ROServiceTester.exe';
+  if not FileExists(result) then
+    raise Exception.CreateFmt('Cannot find ServiceTester at "%s".'#13#13'Please make sure RemObjects SDK is installed properly.', [result]);}
+  result := IncludeTrailingPathDelimiter(ExtractFilePath(GetServiceBuilderPath()))+'ROServiceTester.exe';
+  if not FileExists(result) then
+    raise Exception.CreateFmt('Cannot find ServiceTester at "%s".'#13#13'Please make sure RemObjects SDK is installed properly.', [result]);
+end;
+
+{----------------------------------------------------------------------------}
+// Taken from eFiles.pas from the eLibrary 6.0
+function ExecuteAndWait(const aApp, aCmdLine:string; aWait:boolean=true):dword;
+var StartupInfo:TStartupInfo;
+    ProcessInfo:TProcessInformation;
+    lApp:string;
+    s:array[0..MAX_PATH] of char;
+begin
+  GetStartupInfo(Startupinfo);
+
+  ExpandEnvironmentStrings(pChar(aApp),@s,MAX_PATH);
+  lApp := string(pChar(@s));
+
+  if CreateProcess(pChar(lApp),
+                   pChar('"'+lApp+'" '+aCmdLine),
+                   nil,nil,false,0,nil,
+                   pChar(GetCurrentDir),
+                   StartupInfo,
+                   ProcessInfo) then begin
+    CloseHandle(ProcessInfo.hThread);
+
+    if aWait then begin
+    { Wait till app terminates, but don't block main thread. }
+    while WaitForSingleObject(ProcessInfo.hProcess,100) = WAIT_TIMEOUT do
+      Application.ProcessMessages();
+    GetExitCodeProcess(ProcessInfo.hProcess,result);
+    end;
+    CloseHandle(ProcessInfo.hProcess);
+  end
+  else raise Exception.CreateFmt('could not create process %s %s: %d',[lApp,CmdLine,GetLastError]);
+end;
+
+procedure LaunchServiceBuilder(const aProjectName, aParams: string; aWait:boolean=false);
+var
+  lExeName: string;
+begin
+  lExeName := GetServiceBuilderPath();
+
+  if aWait then begin
+    ExecuteAndWait(lExename, aParams);
+  end
+  else begin
+    ShellExecute(0, 'open', PChar(lExeName), PChar(aParams), PChar(ExtractFilePath(aProjectName)), SW_NORMAL);
+  end;
+end;
+
+procedure LaunchServiceTester;
+var
+  lExeName: string;
+begin
+  lExeName := GetServiceTesterPath();
+  ShellExecute(0, 'open', PChar(lExeName), nil, nil, SW_NORMAL);
+end;
+
+procedure LaunchServiceBuilderForCurrentProject(const aAdditionalParameters:string; aOnlyLaunchForROServer:boolean=false; aWait:boolean=false);
+var prj : IOTAProject;
+    fname,
+    lParams,
+    src: string;
+begin
+  // TODO: Clean up these hardcoded things
+  prj := CurrentProject;
+
+  if Assigned(prj) then begin
+    src := ReadModuleSource(prj);
+    fname := ModuleDir(prj)+ExtractRODLFileName(src);
+
+    if (ExtractFileName(fname)<>'') then begin
+      {$IFDEF SB2}
+      lParams := Format('/rodlfile:"%s" /projectname:"%s" /autosave '+aAdditionalParameters, [fname, ExtractFileName(prj.FileName)])
+      {$ELSE}
+      lParams := Format('"%s" /ns /projectname:"%s" /autosave '+aAdditionalParameters, [fname, ExtractFileName(prj.FileName)])
+      {$ENDIF}
+    end
+    else begin
+      if aOnlyLaunchForROServer then
+        RaiseError('The current project is not a RemObjects Server');
+      lParams := '/ns '+aAdditionalParameters;
+    end;
+    LaunchServiceBuilder(prj.FileName, lParams, aWait);
+
+  end
+  else begin
+    if aOnlyLaunchForROServer then
+      RaiseError('The current project is not a RemObjects Server');
+    LaunchServiceBuilder('', '/ns')
+  end;
+end;
+
+function GenerateRESFromRODL(const RODLFileName: string; aMessageList: TIDEMessageList): boolean;
+var {outname, }
+  lAttributes: Integer;
+  resname {, pars}: string;
+    //res : integer;
+  resdata, rodldata: TFileStream;
+begin
+  rodldata := nil;
+  resdata := nil;
+
+  result := false;
+  try
+    try
+      resname := IncludeTrailingPathDelimiter(ExtractFilePath(RODLFileName)) + res_RODLFile + '.res';
+
+      {$IFDEF MSWINDOWS}
+      if FileExists(resname) then begin
+        lAttributes := FileGetAttr(resname);
+        if (lAttributes and faReadOnly) = faReadOnly then begin
+          case MessageDlg(Format('%s is readonly, overwrite anyway?',[ExtractFileName(resname)]),
+                        mtConfirmation, [mbYes, mbCancel, mbIgnore], 0) of
+            mrCancel: Abort();
+            mrIgnore: begin
+                result := true;
+                exit;
+              end;
+            mrYes: FileSetAttr(resname, lAttributes xor faReadOnly);
+          end;
+        end;
+      end;
+      {$ENDIF}
+
+      resdata := TFileStream.Create(resname, fmCreate);
+      rodldata := TFileStream.Create(RODLFileName, fmOpenRead + fmShareDenyNone);
+      rodldata.Position := 0;
+
+      WriteRES(rodldata, resdata, res_RODLFile);
+
+      result := FileExists(resname);
+    except
+      on E: EAbort do raise;
+      on E: Exception do begin
+        MessageDlg('The following error occourred while trying to generate the resource file.'#13 +
+          E.Message, mtError, [mbOK], 0);
+        result := FALSE;
+      end;
+    end;
+  finally
+    rodldata.Free;
+    resdata.Free;
+  end;
+{  try
+    // Creates an rc file called RODLFile.rc and saves it where the RODL file is located
+    outname := IncludeTrailingPathDelimiter(ExtractFilePath(RODLFileName))+res_RODLFile+'.rc';
+
+    with TStringList.Create do try
+      Add(Format('%s RCDATA "%s"', [res_RODLFile, RODLFileName]));
+      SaveToFile(outname);
+    finally
+      Free;
+    end;
+
+    resname := ChangeFileExt(outname, '.RES');
+    DeleteFile(resname);
+
+    if FileExists(resname) then begin
+      aMessageList.Add(mError,'The file '+resname+' could not be deleted');
+    end;
+
+    pars := '"'+outname+'" "'+resname+'"';
+    res := ShellExecute(0, 'open', 'BRCC32', PChar(pars), NIL, SW_HIDE);
+    aMessageList.Add(mInfo, 'BRCC32 '+pars);
+
+    if (res<=32) then begin
+      aMessageList.Add(mError,Format('ShellExecute returned %s', [res]));
+      result := FALSE;
+    end
+    else result := TRUE;
+  except
+    on E:Exception do begin
+      MessageDlg('The following error occourred while trying to generate the resource file.'#13+
+                 E.Message, mtError, [mbOK], 0);
+      result := FALSE;
+    end;
+  end;}
+end;
+
+procedure CompileProject;
+var
+  Actions: IOTAEditActions;
+  ModuleServices: IOTAModuleServices;
+  Module: IOTAModule;
+  SourceEdit: IOTASourceEditor;
+  FileCount: Integer;
+  cnt: Integer;
+begin
+  ModuleServices := BorlandIDEServices as IOTAModuleServices;
+
+  Module := ModuleServices.CurrentModule;
+
+  FileCount := Module.GetModuleFileCount;
+  if not FileCount>0 then Exit;
+
+  for cnt := 0 to FileCount - 1 do
+    if Module.GetModuleFileEditor(cnt).QueryInterface(IOTASourceEditor, SourceEdit) = S_OK then begin
+      if SourceEdit.EditViews[0].QueryInterface(IOTAEditActions, Actions) = S_OK then
+        Actions.CompileProject;
+      exit;
+    end;
+end;
+
+
+function GetDllPath: String;
+var TheFileName : array[0..MAX_PATH] of char;
+begin
+  FillChar(TheFileName, SizeOf(TheFileName), #0);
+  {$IFDEF KYLIX}System.{$ENDIF}GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
+  Result := ExtractFilePath(TheFileName);
+end;
+
+function GetTemplateDir: string;
+begin
+  result := ReadRegistryValue(HKEY_CURRENT_USER,'Software\RemObjects\RemObjects SDK for Delphi','InstallDir','');
+  Result := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(Result) + 'Templates');
+(*
+  //ToDo: use a more reliable way to find templates; possibly using the same technique as GetServiceBuilderPath()
+  // This function strips the "DCU\Dx" part of the path where the BPL is
+  result := ExtractFilePath(GetDllPath);
+  {$IFDEF DELPHI10UP}
+  result := IncludeTrailingPathDelimiter(Copy(result,1,Length(result)-8))+{$IFDEF KYLIX}'Templates/'{$ELSE}'Templates\'{$ENDIF};
+  {$ELSE}
+  result := IncludeTrailingPathDelimiter(Copy(result,1,Length(result)-7))+{$IFDEF KYLIX}'Templates/'{$ELSE}'Templates\'{$ENDIF};
+  {$ENDIF}
+*)
+end;
+
+function GetBinDir: string;
+begin
+  // TODO: Fix this adding a registry key.
+
+  // This function strips the "DCU\Dx" part of the path where the BPL is
+  result := ExtractFilePath(GetDllPath);
+  result := IncludeTrailingPathDelimiter(Copy(result,1,Length(result)-7))+'Bin\';
+end;
+
+function GetTemplateConfigFileName : string;
+begin
+  result := GetTemplateDir+'Config.ini';
+end;
+
+function GetTemplateOptionsFileName : string;
+begin
+  result := GetTemplateDir+'TemplateOptions.ini';
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDETools_laz.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDETools_laz.pas
new file mode 100644
index 0000000..36dd75e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROIDETools_laz.pas	
@@ -0,0 +1,660 @@
+unit uROIDETools_laz;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+     lResources,
+     LazIDEIntf, ProjectIntf,uEWOTAHelpers_laz,
+     Classes, Contnrs, uRODLConvertersUtils;
+
+
+const
+  MaxSourceSize = 10000;
+
+  kw_RODLGenerationDelphi = '{#ROGEN';
+  kw_RODLGenerationCpp    = '//#ROGEN';
+
+type { TIDEMessage }
+  TIDEMessageType = (mInfo, mError, mWarning);
+
+  TIDEMessage = class
+  private
+    fMessageType: TIDEMessageType;
+    fFileName,
+      fMessageStr,
+      fPrefixStr: string;
+
+  public
+    constructor Create(aMessageType: TIDEMessageType;
+      const aMessageStr: string;
+      const aFileName: string = '';
+      const aPrefixStr: string = '');
+
+    property MessageType: TIDEMessageType read fMessageType;
+    property FileName: string read fFileName;
+    property MessageStr: string read fMessageStr;
+    property PrefixStr: string read fPrefixStr;
+  end;
+
+  { TIDEMessageList }
+  TIDEMessageList = class(TObjectList)
+  private
+    fPrefixStr: string;
+
+    function GetItems(Index: integer): TIDEMessage;
+
+  public
+    constructor Create(const aPrefixStr: string);
+    destructor Destroy; override;
+
+    procedure ClearMessages;
+    procedure Add(aMessageType: TIDEMessageType;
+      const aMessageStr: string;
+      const aFileName: string = '';
+      const aPrefixStr: string = '');
+
+    procedure FlushMessages;
+
+    property Items[Index: integer]: TIDEMessage read GetItems; default;
+  end;
+
+
+//  Module helpers
+{}function ModuleFileName(const aModule: TLazProjectFile): string;
+{}function ModuleDir(const aModule: TLazProject): string;
+{}function ModuleSourceSize(const aModule: TLazProjectFile): integer;
+
+// Project helpers
+
+{}function CodeGenLanuageFromProjectPersonality(aProject: TLazProject): TROCodeGenLanguage;
+
+{}function FindModule(const aProject: TLazProject; const aModuleName: string): TLazProjectFile;
+{}function GenerateRESFromRODL(const RODLFileName: string; aMessageList: TIDEMessageList): boolean;
+{}function ExtractRODLFileName(const Source: string): string; // Only returns the file name specified in the dpr file
+
+{}function FindFirstRodlProject: TLazProject;
+{}function ProjectIsRodlProject(aProject: TLazProject):boolean;
+{}function ConvertProjectToRoServer(aProject: TLazProject):boolean;
+
+{}function ExecuteAndWait(const aApp, aCmdLine:string; aWait:boolean=true):dword;
+
+{}function GetServiceBuilderPath: string;
+{}procedure LaunchServiceBuilder(const aProjectName, aParams: string; aWait:boolean=false);
+{}procedure LaunchServiceBuilderForCurrentProject(const aAdditionalParameters:string; aOnlyLaunchForROServer:boolean=false; aWait:boolean=false);
+
+{}procedure LaunchServiceTester;
+
+function GetTemplateDir: string;
+function GetBinDir: string;
+function GetTemplateConfigFileName : string;
+function GetTemplateOptionsFileName : string;
+
+procedure CompileProject;
+{}function GetProjectExe(aProject: TLazProject): string;
+
+
+implementation
+
+uses SysUtils, Dialogs, Controls, uRORes,
+  uEWTools, Process,FileUtil,
+  fCustomIDEMessagesForm,
+  uROResWriter, Forms, uROClasses, Registry,
+  uEWMenuManager_laz;
+
+
+function GetProjectExe(aProject: TLazProject): string;
+const
+  {$IFDEF MSWINDOWS}
+  exe_DefaultExt = '.exe';
+  {$ELSE}
+  exe_DefaultExt = '.';
+  {$ENDIF}
+var
+  dirname: string;
+begin
+  ChDir(ExtractFilePath(aProject.MainFile.Filename));
+
+  //dirname := Trim(aProject.ProjectOptions.Values['OutputDir']);
+  dirname := '';
+  if (dirname='') then begin
+    dirname := ExtractFilePath(aProject.MainFile.Filename)
+  end
+  else begin
+    // Checks for relative paths
+    if (dirname[1]='.') then dirname := ExtractFilePath(aProject.MainFile.Filename)+dirname;
+  end;
+  result := IncludeTrailingPathDelimiter(dirname)+ChangeFileExt(ExtractFileName(aProject.MainFile.Filename), exe_DefaultExt);
+end;
+
+// Service access helpers
+
+function CodeGenLanuageFromProjectPersonality(aProject: TLazProject): TROCodeGenLanguage;
+begin
+  result := cglDelphiWin32
+end;
+
+
+//  Module helpers
+
+function ModuleFileName(const aModule: TLazProjectFile): string;
+begin
+  result := aModule.Filename;
+end;
+
+function ModuleDir(const aModule: TLazProject): string;
+begin
+  result := IncludeTrailingPathDelimiter(ExtractFilePath(ModuleFileName(aModule.MainFile)))
+end;
+
+function ModuleSourceSize(const aModule: TLazProjectFile): integer;
+begin
+  result := Length(aModule.GetSourceText);
+end;
+
+{ TIDEMessageList }
+
+{$IFDEF DELPHI7UP}
+
+procedure TIDEMessageList.Add(aMessageType: TIDEMessageType;
+  const aMessageStr: string;
+  const aFileName: string = '';
+  const aPrefixStr: string = '');
+var
+  lGroup: IOTAMessageGroup;
+  lDummyLineRef: pointer;
+  lPrefix: string;
+begin
+  with BorlandIDEServices as IOTAMessageServices60 do begin
+    lGroup := GetGroup(str_ProductName);
+    if not Assigned(lGroup) then lGroup := AddMessageGroup(str_ProductName);
+
+    lPrefix := aPrefixStr;
+    if lPrefix = '' then lPrefix := 'Note';
+    AddToolMessage(aFilename, aMessageStr, lPrefix, -1, -1, nil, lDummyLineRef, lGroup);
+  end; { with }
+end;
+{$ELSE}
+
+procedure TIDEMessageList.Add(aMessageType: TIDEMessageType;
+  const aMessageStr: string;
+  const aFileName: string = '';
+  const aPrefixStr: string = '');
+var
+  msg: TIDEMessage;
+begin
+  msg := TIDEMessage.Create(aMessageType, aMessageStr, aFileName, aPrefixStr);
+  inherited Add(msg);
+end;
+{$ENDIF}
+
+procedure TIDEMessageList.ClearMessages;
+{$IFDEF DELPHI7UP}
+var
+  lGroup: IOTAMessageGroup;
+begin
+  with BorlandIDEServices as IOTAMessageServices60 do begin
+    lGroup := GetGroup(str_ProductName);
+    if not Assigned(lGroup) then lGroup := AddMessageGroup(str_ProductName);
+    RemoveMessageGroup(lGroup);
+  end;
+end;
+{$ELSE}
+begin
+end;
+{$ENDIF}
+
+constructor TIDEMessageList.Create(const aPrefixStr: string);
+begin
+  inherited Create;
+  fPrefixStr := aPrefixStr;
+end;
+
+destructor TIDEMessageList.Destroy;
+begin
+  inherited;
+end;
+
+procedure TIDEMessageList.FlushMessages;
+begin
+  {$IFNDEF DELPHI7UP}
+  IDEMessageForm.FillList(Self);
+  Clear;
+  {$ENDIF DELPHI7UP}
+end;
+
+// Project helpers
+
+function FindModule(const aProject: TLazProject; const aModuleName: string): TLazProjectFile;
+begin
+  result := FindModuleByUnitName(aProject,aModuleName);
+end;
+
+function TIDEMessageList.GetItems(Index: integer): TIDEMessage;
+begin
+  result := TIDEMessage(inherited Items[Index]);
+end;
+
+{ TIDEMessage }
+
+constructor TIDEMessage.Create(aMessageType: TIDEMessageType;
+  const aMessageStr, aFileName, aPrefixStr: string);
+begin
+  fMessageType := aMessageType;
+  fMessageStr := aMessageStr;
+  fFileName := aFileName;
+  fPrefixStr := aPrefixStr;
+end;
+
+// File names helpers
+
+function ExtractRODLFileName(const Source: string): string;
+var
+  src: string;
+  i, lNameStartIndex, idx: integer;
+begin
+  result := '';
+  
+  src := UpperCase(Source);
+  idx := Pos(kw_RODLGenerationDelphi, src);
+  if idx = 0 then idx := Pos(kw_RODLGenerationCpp, src); // allow C++-style comment in Delphi, too
+  if idx = 0 then exit;
+
+  lNameStartIndex := 0;
+
+  for i := idx to Length(src) do begin
+    case src[i] of
+      ':': if (lNameStartIndex = 0) then lNameStartIndex := i + 1;
+      '}',#13, #10, '|': begin
+          if lNameStartIndex = 0 then
+            raise Exception.Create('Invalid #ROGEN directive, RODL filename not spcified.');
+          result := Trim(Copy(Source, lNameStartIndex, i-lNameStartIndex));
+          break;
+        end;
+
+    end;
+  end;
+end;
+
+function FindFirstRodlProject: TLazProject;
+begin
+  if ProjectIsRodlProject(CurrentProject) then
+    result := CurrentProject
+  else
+    result := nil;
+end;
+
+function ProjectIsRodlProject(aProject: TLazProject):boolean;
+var
+  lSource:string;
+begin
+  result := false;
+  if Assigned(aProject) then begin
+    if aProject.LazCompilerOptions.ExecutableType = cetLibrary then exit;
+    lSource := ReadModuleSource(aProject.MainFile);
+    result := ExtractRODLFileName(lSource) <> '';
+  end;
+end;
+
+function ConvertProjectToRoServer(aProject: TLazProject):boolean;
+var
+  lSource, lUsesClause: string;
+  lUsesStarts, lUsesEnds: Integer;
+begin
+  result := false;
+  if Assigned(aProject) and not ProjectIsRodlProject(aProject) then begin
+
+    lSource := ReadModuleSource(aProject.MainFile);
+
+    lSource := StringReplace(lSource, 'uses',
+      'uses'#13#10+
+      '  uROCOMInit,'#13#10+
+      '  {$IFDEF FPC}LResources,{$ENDIF}',
+    [rfIgnoreCase]);
+
+    lUsesStarts := Pos('uses', lSource);
+    lUsesEnds := Pos(';', Copy(lSource, lUsesStarts, Length(lSource) - lUsesStarts));
+    lUsesClause := Copy(lSource, lUsesStarts, lUsesEnds);
+
+    lSource := StringReplace(lSource, lUsesClause, lUsesClause + #13#10#13#10 +
+      '{#ROGEN:' + ExtractFileName(ChangeFileExt(aProject.MainFile.Filename,'.rodl'))+'} // RemObjects: Careful, do not remove!'#13#10+
+      '{$IFNDEF FPC}'+#13#10 +
+      '{$R RODLFile.res}'+#13#10 +
+      '{$ENDIF}',
+    [rfIgnoreCase]);
+
+    lSource := StringReplace(lSource, 'begin'+#13#10, 'begin'+#13#10+
+      '  {$IFDEF FPC}'+#13#10+
+      '  {$I '+res_RODLFile+'.lrs}'+#13#10+
+      '  {$ENDIF}'+#13#10,
+      [rfIgnoreCase]);
+    result := true;
+    WriteModuleSource(aProject.MainFile,lSource, '');
+  end;
+end;
+
+function ReadRegistryValue(aBaseKey:HKEY; aPath:string; aName:string; aDefault:string=''):string;
+begin
+  with TRegistry.Create(KEY_READ) do try
+    RootKey := aBaseKey;
+    if OpenKey(aPath, False) then
+      if ValueExists(aName) then
+        result := ReadString(aName)
+      else
+        result := aDefault;
+  finally
+    Free;
+  end;
+end;
+
+function GetServiceBuilderPath: string;
+var reg: TRegIniFile;
+begin
+  reg := TRegIniFile.Create('Software\RemObjects\RemObjects SDK');
+  try
+    result := reg.ReadString('ServiceBuilder', 'FullPath', GetBinDir+'ROServiceBuilder3.exe');
+  finally
+    reg.Free;
+  end;
+end;
+
+function GetServiceTesterPath: string;
+begin
+  {result := ReadRegistryValue(HKEY_CURRENT_USER,'Software\RemObjects\RemObjects SDK for Delphi','InstallDir','');
+  if result = '' then
+    raise Exception.Create('Cannot find RemObjects SDK for Delphi location in Registry.'#13#13'Please make sure RemObjects SDK is installed properly.');
+  result := IncludeTrailingPathDelimiter(result)+'Bin\ROServiceTester.exe';
+  if not FileExists(result) then
+    raise Exception.CreateFmt('Cannot find ServiceTester at "%s".'#13#13'Please make sure RemObjects SDK is installed properly.', [result]);}
+  result := IncludeTrailingPathDelimiter(ExtractFilePath(GetServiceBuilderPath()))+'ROServiceTester.exe';
+  if not FileExists(result) then
+    raise Exception.CreateFmt('Cannot find ServiceTester at "%s".'#13#13'Please make sure RemObjects SDK is installed properly.', [result]);
+end;
+
+
+function ExecuteAndWait(const aApp, aCmdLine:string; aWait:boolean=true):dword;
+var
+  lProcess: TProcess;
+  lApp: string;
+begin
+  lProcess:= TProcess.Create(nil);
+  try
+    lApp := aApp;
+    {$IFDEF MSWINDOWS}
+    if ExtractFileExt(aApp) = '' then lApp := ChangeFileExt(lApp,'.exe');
+    {$ENDIF}
+    lApp := FindDefaultExecutablePath(lApp);
+    if (pos(' ', lApp)>0) and (Length(lApp)>0) and (lApp[1] <> '"') then
+      lApp := '"'+lApp+'"';
+    lProcess.CommandLine:=  aApp + ' '+aCmdLine;
+    lProcess.Options := lProcess.Options - [poWaitOnExit];
+    lProcess.Execute;
+    if aWait then lProcess.WaitOnExit;
+  finally
+    lProcess.Free;
+  end;
+end;
+(*
+{----------------------------------------------------------------------------}
+// Taken from eFiles.pas from the eLibrary 6.0
+function ExecuteAndWait(const aApp, aCmdLine:string; aWait:boolean=true):dword;
+var StartupInfo:TStartupInfo;
+    ProcessInfo:TProcessInformation;
+    lApp:string;
+    s:array[0..MAX_PATH] of char;
+begin
+  FillChar(Startupinfo, sizeOf(Startupinfo),0);
+  GetStartupInfo(Startupinfo);
+
+  ExpandEnvironmentStrings(pChar(aApp),@s,MAX_PATH);
+  lApp := string(pChar(@s));
+
+  if CreateProcess(pChar(lApp),
+                   pChar('"'+lApp+'" '+aCmdLine),
+                   nil,nil,false,0,nil,
+                   pChar(GetCurrentDir),
+                   StartupInfo,
+                   ProcessInfo) then begin
+    CloseHandle(ProcessInfo.hThread);
+
+    if aWait then begin
+    { Wait till app terminates, but don't block main thread. }
+    while WaitForSingleObject(ProcessInfo.hProcess,100) = WAIT_TIMEOUT do
+      Application.ProcessMessages();
+    GetExitCodeProcess(ProcessInfo.hProcess,result);
+    end;
+    CloseHandle(ProcessInfo.hProcess);
+  end
+  else raise Exception.CreateFmt('could not create process %s %s: %d',[lApp,CmdLine,GetLastError]);
+end;
+*)
+procedure LaunchServiceBuilder(const aProjectName, aParams: string; aWait:boolean=false);
+var
+  lExeName: string;
+begin
+  lExeName := GetServiceBuilderPath();
+  ExecuteAndWait(lExename, aParams,aWait);
+{
+  if aWait then begin
+    ExecuteAndWait(lExename, aParams);
+  end
+  else begin
+    ExecuteAndWait(lExename, aParams,aWait);
+    RO_ShellExecute(0, 'open', PChar(lExeName), PChar(aParams), PChar(ExtractFilePath(aProjectName)), SW_NORMAL);
+  end;
+}
+end;
+
+procedure LaunchServiceTester;
+var
+  lExeName: string;
+begin
+  lExeName := GetServiceTesterPath();
+  ExecuteAndWait(lExename, '',False);
+//  RO_ShellExecute(0, 'open', PChar(lExeName), nil, nil, SW_NORMAL);
+end;
+
+procedure LaunchServiceBuilderForCurrentProject(const aAdditionalParameters:string; aOnlyLaunchForROServer:boolean=false; aWait:boolean=false);
+var prj : TLazProject;
+    fname,
+    lParams,
+    src: string;
+begin
+  // TODO: Clean up these hardcoded things
+  prj := CurrentProject;
+
+  if Assigned(prj) then begin
+    src := ReadModuleSource(prj.MainFile);
+    fname := ModuleDir(prj)+ExtractRODLFileName(src);
+
+    if (ExtractFileName(fname)<>'') then begin
+      {$IFDEF SB2}
+      lParams := Format('/rodlfile:"%s" /projectname:"%s" /autosave '+aAdditionalParameters, [fname, ExtractFileName(prj.FileName)])
+      {$ELSE}
+      lParams := Format('"%s" /ns /projectname:"%s" /autosave '+aAdditionalParameters, [fname, ExtractFileName(prj.MainFile.Filename)])
+      {$ENDIF}
+    end
+    else begin
+      if aOnlyLaunchForROServer then
+        RaiseError('The current project is not a RemObjects Server');
+      lParams := '/ns '+aAdditionalParameters;
+    end;
+    LaunchServiceBuilder(prj.MainFile.Filename, lParams, aWait);
+    if FileExists(fname) then GenerateRESFromRODL(fname,nil)
+  end
+  else begin
+    if aOnlyLaunchForROServer then
+      RaiseError('The current project is not a RemObjects Server');
+    LaunchServiceBuilder('', '/ns')
+  end;
+end;
+
+function GenerateRESFromRODL(const RODLFileName: string; aMessageList: TIDEMessageList): boolean;
+var {outname, }
+  lAttributes: Integer;
+  resname {, pars}: string;
+    //res : integer;
+  resdata, rodldata: TFileStream;
+  lrsdata: TFileStream;
+begin
+  rodldata := nil;
+  resdata := nil;
+
+  result := false;
+  try
+    try
+      resname := IncludeTrailingPathDelimiter(ExtractFilePath(RODLFileName)) + res_RODLFile + '.res';
+
+      {$IFDEF MSWINDOWS}
+      if FileExists(resname) then begin
+        lAttributes := FileGetAttr(resname);
+        if (lAttributes and faReadOnly) = faReadOnly then begin
+          case MessageDlg(Format('%s is readonly, overwrite anyway?',[ExtractFileName(resname)]),
+                        mtConfirmation, [mbYes, mbCancel, mbIgnore], 0) of
+            mrCancel: Abort();
+            mrIgnore: begin
+                result := true;
+                exit;
+              end;
+            mrYes: FileSetAttr(resname, lAttributes xor faReadOnly);
+          end;
+        end;
+      end;
+      {$ENDIF}
+
+      resdata := TFileStream.Create(resname, fmCreate);
+      lrsdata := TFileStream.Create(IncludeTrailingPathDelimiter(ExtractFilePath(RODLFileName)) + res_RODLFile + '.lrs', fmCreate);
+      rodldata := TFileStream.Create(RODLFileName, fmOpenRead + fmShareDenyNone);
+
+      rodldata.Position := 0;
+      BinaryToLazarusResourceCode(rodldata,lrsdata,res_RODLFile,'RODL');
+
+      rodldata.Position := 0;
+      WriteRES(rodldata, resdata, res_RODLFile);
+
+      result := FileExists(resname);
+    except
+      on E: EAbort do raise;
+      on E: Exception do begin
+        MessageDlg('The following error occourred while trying to generate the resource file.'#13 +
+          E.Message, mtError, [mbOK], 0);
+        result := FALSE;
+      end;
+    end;
+  finally
+    rodldata.Free;
+    resdata.Free;
+    lrsdata.Free;
+  end;
+{  try
+    // Creates an rc file called RODLFile.rc and saves it where the RODL file is located
+    outname := IncludeTrailingPathDelimiter(ExtractFilePath(RODLFileName))+res_RODLFile+'.rc';
+
+    with TStringList.Create do try
+      Add(Format('%s RCDATA "%s"', [res_RODLFile, RODLFileName]));
+      SaveToFile(outname);
+    finally
+      Free;
+    end;
+
+    resname := ChangeFileExt(outname, '.RES');
+    DeleteFile(resname);
+
+    if FileExists(resname) then begin
+      aMessageList.Add(mError,'The file '+resname+' could not be deleted');
+    end;
+
+    pars := '"'+outname+'" "'+resname+'"';
+    res := RO_ShellExecute(0, 'open', 'BRCC32', PChar(pars), NIL, SW_HIDE);
+    aMessageList.Add(mInfo, 'BRCC32 '+pars);
+
+    if (res<=32) then begin
+      aMessageList.Add(mError,Format('ShellExecute returned %s', [res]));
+      result := FALSE;
+    end
+    else result := TRUE;
+  except
+    on E:Exception do begin
+      MessageDlg('The following error occourred while trying to generate the resource file.'#13+
+                 E.Message, mtError, [mbOK], 0);
+      result := FALSE;
+    end;
+  end;}
+end;
+
+procedure CompileProject;
+begin
+  LazarusIDE.DoSaveProject([sfProjectSaving]);
+  LazarusIDE.DoBuildProject(crCompile,[]);
+end;
+
+
+function GetDllPath: String;
+{$IFDEF MSWINDOWS}
+var
+  TheFileName : array[0..MAX_PATH] of char;
+{$ENDIF}
+begin
+{$IFDEF MSWINDOWS}
+  FillChar(TheFileName, SizeOf(TheFileName), #0);
+  GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
+  Result := ExtractFilePath(TheFileName);
+{$ELSE}
+  Result := '';
+{$ENDIF}
+end;
+
+function GetTemplateDir: string;
+begin
+  result := ReadRegistryValue(HKEY_CURRENT_USER,'Software\RemObjects\RemObjects SDK for Delphi','InstallDir','');
+  Result := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(Result) + 'Templates');
+(*
+  //ToDo: use a more reliable way to find templates; possibly using the same technique as GetServiceBuilderPath()
+  // This function strips the "DCU\Dx" part of the path where the BPL is
+  result := ExtractFilePath(GetDllPath);
+  {$IFDEF DELPHI10UP}
+  result := IncludeTrailingPathDelimiter(Copy(result,1,Length(result)-8))+{$IFDEF KYLIX}'Templates/'{$ELSE}'Templates\'{$ENDIF};
+  {$ELSE}
+  result := IncludeTrailingPathDelimiter(Copy(result,1,Length(result)-7))+{$IFDEF KYLIX}'Templates/'{$ELSE}'Templates\'{$ENDIF};
+  {$ENDIF}
+*)
+end;
+
+function GetBinDir: string;
+begin
+  // TODO: Fix this adding a registry key.
+
+  // This function strips the "DCU\Dx" part of the path where the BPL is
+  result := ExtractFilePath(GetDllPath);
+  result := IncludeTrailingPathDelimiter(Copy(result,1,Length(result)-7))+'Bin\';
+end;
+
+function GetTemplateConfigFileName : string;
+begin
+  result := GetTemplateDir+'Config.ini';
+end;
+
+function GetTemplateOptionsFileName : string;
+begin
+  result := GetTemplateDir+'TemplateOptions.ini';
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.dfm
new file mode 100644
index 0000000..2a5363d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.dfm	
@@ -0,0 +1,900 @@
+object ROLoginNeededForm: TROLoginNeededForm
+  Left = 307
+  Top = 304
+  AutoScroll = False
+  Caption = 'RemObjects SDK Session Required'
+  ClientHeight = 266
+  ClientWidth = 417
+  Color = clBtnFace
+  Constraints.MinHeight = 300
+  Constraints.MinWidth = 425
+  ParentFont = True
+  Icon.Data = {
+    0000010006003030000001000800A80E0000660000002020000001000800A808
+    00000E0F0000101000000100080068050000B61700003030000001002000A825
+    00001E1D00002020000001002000A8100000C642000010100000010020006804
+    00006E5300002800000030000000600000000100080000000000000900000000
+    0000000000000001000000010000000000000505050006060F00090909000E0E
+    0E000C0C160007071A0008081B001111110015151500191919001D1D1D000505
+    2200111125001A1B25001C1D270014152900181A2E000B0B31000B0B3B001316
+    3F00191C3C001F202B002121210024242400292929002D2D2D0025273200282A
+    360021243A002F313D003131310035353500393939003D3D3D00060649000909
+    4C00161A430014194D00050552000C0D52000909560003035A00090A58000A0C
+    5B000B0E5E000D115800181E540014195900161D5E001C2040002E344D00393C
+    49002E375C00343A5400363C55000303630005056F000E14660012186200131C
+    690010196F0005057A0001017E0005077E000C157F000F1A7C00121D75001923
+    660015206E001B266B001C286E00172373001E2B730014217A00192779001B2B
+    7E002934660023306D002C386A00323C61002432700022337E00333F70003640
+    6400384165003C4568003A467400404040004545450040444F00494949004D4D
+    4D00474A560041475E004B4E5900515151005454540052555F00595959005D5D
+    5D00454B610040496B005B5E670052586B0045517B00535C78005E616A005D62
+    740057607B005D657F00616161006565650062656D00696969006D6D6D007070
+    700074747400797979007F7F7F00060E8800091285000E1D8D00101E82000000
+    90000102940000009A0000019C0006139C0009199D001728860012228800152C
+    980020348C002C3F8800203A9D00233C9E000003A1000005A500010AA300010C
+    A7000007A900010EAB000009AD000412A6000618A700000BB100000DB5000213
+    B400071EB200041AB5000010B9000216B9000012BE00041CB9000B21AB001431
+    AD001A37A9000B27B6000C27B600102CB2001737B5001132BC001234BF00223E
+    AB002E4189002D4395002E4AAF00354EA5003E56A8002645B9003251BC004D59
+    800047568800535F84005E6781005D688A004159AA00455DAB00405DBF004860
+    AC00566AA7004E68B900536DBA000014C2000016C600021BC3000018CA00021D
+    C800001ACE00001CD200001ED7000926C1000624C8000E33CB00183BC200173D
+    CF000223D4000A2FD0000020DB000022DF00062CD8000027E7000029EB00032D
+    E800002BEF000332EF00103DE700002DF400002FF8000A39F3000D3CF3000031
+    FC000134FE000436FF000739FF000A3CFF000D3FFF00103FF3001740DB002042
+    C400284AC600254AD100254DDD003054D3001642E7001645F3001042FF001345
+    FF001647FF00194AFF001C4DFF001F50FF002E58E9002354FF002C5CFF003D69
+    F4003362FF003867FF003C6BFF004260C0004D6DCD00446AE0004C72E1004B73
+    EB00436FF5004974F5004271FF008181810086868600898989008F8F8F009393
+    93009A9A9A00A2A2A200AAAAAA00000000000000000000000000000000000000
+    00735C080804040404596F000000000000000000000000000000000000000000
+    0000000000000000000000000077210A0A080A08080804040400040000187400
+    000000000000000000000000000000000000000000000000000000730A180A0A
+    0A0A0A080808080404040404000400006F000000000000000000000000000000
+    0000000000000000007719181818180A180A0A0A0A0808080404000404000000
+    000074000000000000000000000000000000000000000000211919181818180A
+    0A0F142E2D2D2D29241205040004040000000018000000000000000000000000
+    00000000000000191919191918181818180F3A8F8D8A89897D897D3F24060004
+    0000000000000000000000000000000000000000007720202019191919181818
+    0A1825928F8D8A89897D89897D8938060400000000006F000000000000000000
+    0000000077202019201920191919181818183092928F8A8A89897D7D897D897D
+    2A0204000000006F000000000000000000000000212020202020191919191918
+    18183D9792928F8D8A8989897D897D89893F0601000000000000000000000000
+    0000002121212020201920201919191918182F999992928F8A8A897D897D897D
+    7D897C0C01000000000000000000000000005C21212121202020201920191919
+    191818319990793A8B8D8A8A7D897D897D7D897C0C0400000018000000000000
+    00FA59215921212120202020192019191919181818180A183A8F8D8A8A7D897D
+    897D7D897C060000000074000000000000595959212121212121202020201920
+    191919181818180A0F8B8F8D8A8A7D897D897D7D893F02040000000000000000
+    745959215959212121212020201920192019191918181818158F928F8D8A8A7D
+    897D897D897D2A000400006F000000005C595959592159592121212020202019
+    1920191919181815949992928F8D8A8A7D897D897D897D0600000000000000FD
+    5C595C595959212154A1C2A2522020202019191919191D98B8999992928F8D8A
+    8A7D897D7D897D38040104007400006F5C5C5959595959A5D7D6D6D6D19C2020
+    2019201919191BBDB9B8999992928F8D8A8A7D897D897D890603000418000060
+    5C5C5C595C595ADAD8D7D6D6D1D152202020192019191998BDB999999992928F
+    8D8A8A897D7D897D27040000000000605C5C5C5C595957E3D8D8D6D6D6D1A220
+    20202019201F1948B9B9B9B8999992928F8D8A3F2939897D3F0404040000FA60
+    60605C5C5C5957E3E3D9D8D6D6D6C2212020202019201919194695B8B8998092
+    928F8A100808897D89020404046F74606060605C5C5C66E6E3E3D9D8D7D69D21
+    21202020201920191A194ABD913218419292780A0A093E897D12040004596363
+    606060605C5C5CDEE5E3E3D9D8D237212121202020201920191982BD7A181818
+    3B260F0A0A09297C891202080404636363606060605C5C5DDEE5E3E3DA532159
+    212121202020201A20199BBE98191818170F0A0F0A0A09090D08080804036363
+    6363606060605C5C5C665757595959212121212120204E849EC5C7BEBE1B1818
+    1817170B0A0B09090909080804046363636363606060605C5C5C5B5959595959
+    592121212120C9CBCA9FC1C74619191818181717170A17090909090808046F63
+    63636363606060605C5C5C5B59595921592159212185D1CBA020192019191919
+    1818181717170917090A090808086F6F6363636363606060605C5C5B5C595959
+    595921212153D1D14E20201920191919191818181717170B0A0B09090808776F
+    6F6F63636363606060605C5C5B5B5959592159592121A2D6C633202019201919
+    191B45433C170A170B0A0A0A0960FC6F6F636F63636363606060605C5C5C5B59
+    59595921592137D1D1CA332020192019199EBDBBB8991617170A0A0A096F006F
+    6F6F636F63636363606060605C5C5B5C59565A59592154D6D6D14D2020201A20
+    46BFBEBDBDB9421717170A170900006F6F6F6F6F6363636363606060605C5C5E
+    DDE3E2A65954D2D6D6CB35202020201982C7BFBEBDBD81171717170917000077
+    6F736F6F6F63636DB2AE626060605CA8E6E6E6E3E1DAD8D68734212120202020
+    49CABFBEBEBD7B1818171717200000FF736F6F6F6F6F6DECEEEEB360606060AB
+    E8E6E6E6E3E3D8C4215921212120202020C0C7C7BEBD1B181817171777000000
+    6F736F6F6F6BF5EFEFEEEE68606060E0E8E8E8E6E5E3E3D95921582121212020
+    201E4C824C1F1B191818181700000000FC6F736F6FB5F7F7EFEFEEF06362ADE9
+    EBE8E8E6E6E6E3E3DBA488372121212020202019191919191918187000000000
+    007373736F71F3F7F7EFEFEEEEEEEBEBEBE8E8E8E8E6E5E3E3D9D8C358212121
+    2020202020191F19191918000000000000FE736F736FAFF6F7F7EFEFEEEEEBEB
+    EBEBEBE8E8E6E6E6E3E3D9CF5821212121202020201F191F1919770000000000
+    00007473737070AFF6F7F7EFEFEEEEEEEBEBEBE8E8E8E8E6E5E3E3A559585921
+    2121202020201A1F1921000000000000000000737370736FB0F6F7F7EFEFEEEE
+    EBEBEBEBEBE8E8E6E6E6DA5958213437212121202020201A1F00000000000000
+    0000000073736F7370AFF4F7F7EFEFEEEEEEEBEBEBE8E8E8E8E6E6AA5AA5DAD7
+    8821212120202020000000000000000000000000FE737370726F72B7F7F7EFEF
+    EEEEEBEBEBEBEBE8E8E6E6E3E2E3D9D888212121212020770000000000000000
+    0000000000FE73737072716F6DF1F7EFEFEEEEEEEBEBEBE8E8E8E8E6E6E3DC56
+    595921212121770000000000000000000000000000000073736F736F706F6CB6
+    F2EFEEEEEBEBEBEBEBE8E8DFA75E595921595921210000000000000000000000
+    0000000000000000747370736F6F6F6F6367AEB2B4B2B2A9A9695F5C5C5C5959
+    59592160000000000000000000000000000000000000000000FE736F73706F6F
+    6F6F6363636260606060605C5C5B5C595959FA00000000000000000000000000
+    0000000000000000000000FC70736F706F6F6F63636363636060605C5C5C5B5C
+    7400000000000000000000000000000000000000000000000000000000FF7470
+    6F6F6F6F6463636363606060606FFD0000000000000000000000000000000000
+    0000000000000000000000000000000000FC776F6F6F63636376FA0000000000
+    0000000000000000000000000000FFFFE007FFFF0000FFFE00007FFF0000FFF8
+    00001FFF0000FFE0000007FF0000FFC0000003FF0000FF80000001FF0000FE00
+    0000007F0000FC000000003F0000FC000000003F0000F8000000001F0000F000
+    0000000F0000E000000000070000E000000000070000C000000000030000C000
+    0000000300008000000000010000800000000001000080000000000100008000
+    0000000100000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000080000000000100008000
+    00000001000080000000000100008000000000010000C000000000030000C000
+    000000030000E000000000070000E000000000070000F0000000000F0000F800
+    0000001F0000FC000000003F0000FC000000003F0000FE000000007F0000FF80
+    000001FF0000FFC0000003FF0000FFE0000007FF0000FFF800001FFF0000FFFE
+    00007FFF0000FFFFE007FFFF0000280000002000000040000000010008000000
+    0000000400000000000000000000000100000001000000000000060606000505
+    0F00090909000D0D0D0010101000161616001A1A1A001D1D1D00040421001616
+    20001D1E2800181A2F000707370005053E00101037001B1D32001F202B002121
+    2100252525002A2A2A002E2E2E0026283300282A350031313100353535003939
+    39003D3D3D000D0E4800171B4500151A4E00181D490010155D00151B5B00151B
+    5C001D2141001C245D00262940002126480023294B0031374F00393C48003C3F
+    4B002B335900333952000404650005066F0008096A000E14660001017500090F
+    750004047800121F790015206E001E2C73001A287A00232F6C0029356800323B
+    6100343E630024327000283776002E3D7B003E445B003A4675003D4977004040
+    400044444400494949004E4E4E0042455100484B570051515100555555005959
+    59005D5D5D00434C6D005B5E67006060600066666600696969006C6C6C006167
+    780070707000757575007E7E7E0001018700010188000C188300000090000000
+    9A0000029F000B1D970008199C00172A8A00182A89000F2091001D369B001F39
+    9E000005A5000009AB000411A4000618A6000A1FA700000CB100000FB8000213
+    B400071EB1000216BA000012BE00132FAA000B24B1000C27B6001131BB00233F
+    AB00374A8D002A4094002D439500344A99002D46A3003851A7003C54A8002443
+    B8002F4DBC00485A950055669C0060688200566AA7000015C4000018CA00001B
+    D000001ED7000520C1000E33CB001538C200183BC300153BCE000022DD00062F
+    DE000028E900032FEA00123EE700002BF000002EF6000332F0000A3AF2000F3E
+    F3000032FC000336FE00073AFF000C3EFF00224ADD00385FDF003C62DF001442
+    F3001847F3001042FF001547FF001A4BFF001E4FFF00204AE8002853E9002354
+    FF002758FF002C5CFF003A63EA003E67EA003C68F4003161FF003565FF003A69
+    FF003F6EFF004A67C200496EE1004C72E1004570F5004974F5004372FF008A8A
+    8A008E8E8E009090900000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000048130505040413480000000000000000000000000000000000000000004A
+    0808080505050504040400004300000000000000000000000000000000511313
+    130808080805050504040400000048000000000000000000000000001B141413
+    1313082064645B5A572D0D040400000500000000000000000000001818141414
+    1313131D64645B5B5A5A5A560E000000000000000000000000001B1818181814
+    14131321696864635B5A5A5A5A330200000000000000000000431B1B18181814
+    141413236A6968645B5B5A5A5A5A59090000050000000000531B1B1B1B181818
+    1814141323211030645B5B5A5A5A5A59020000480000000043431B1B1B1B1818
+    181414141313130B68685B5B5A5A5A5A33040000000000534443431B1B181B18
+    1818181414131358696868635B5A5A5A5A0E0000430000444443431B3B879071
+    3A18181414143580696968645B5B5A5A5A570400000000444444444692959494
+    8A181818181424818080696868635B5A5A5A0D0404005548484444409C969594
+    94391A18181417608180696968645B1C335A2D0400434E48484844419C9C9695
+    942C1A1818181814168166216568320A0F5A560404084A4848484844979D9C96
+    871B1B1B1818181425823413111E10080A2F2E0504044A4A4A48484847767775
+    431B1B1A1B183C5E70836713131308080805050505044A4A4A4A484844444443
+    43421B1B1B288E8B5E70261413130B080808080505054E4E4A4A484848484444
+    4343431B1B3D8E6E1815151414131212080808080505514E4A4A4A4A48484844
+    444343421B1B858B3D18181414265C5D230B06080613B24E4E4E4A4A4A484848
+    4444463F431B62948B18181818848181691108080848004E4E4E4E4A4A484848
+    484CA09C7A759594621B181A1589838281231308080000514E4E4E4DA7AA7C48
+    48789F9E9C9C963E1B1B1A18187089836B131312080000B251514EAEABAAA649
+    4878A2A29E9C9C722A1B1B1B18183637171413134A000000514E51ADB1AAAA99
+    99A4A3A29F9E9D9C96881B1A1B1818181714141300000000B4514E52B0B1ABAA
+    A9A9A4A2A29F9E9C9C8D1B1B1B1B18181818144A00000000005351517EB0B1AA
+    AAA9A9A4A3A29F9E9D75422A291B1B1818181B00000000000000514E5152AEB1
+    ABAAA9A9A4A2A29F9E9B7592913A1A1B181800000000000000000051514E4E7F
+    B0AAAAA9A9A4A3A29E9E9D9A741B1B1B1B00000000000000000000005351514E
+    4E7DACA6A9A9A4A3A17B734343431B4300000000000000000000000000B45151
+    4E4E4E4A4A4A48484844444443435300000000000000000000000000000000B2
+    51514E4E4E4A4A4A484848445500000000000000000000000000000000000000
+    0000B2514E4A4A4A4E55000000000000000000000000FFF00FFFFF8001FFFE00
+    007FFC00003FF800001FF000000FE0000007C0000003C0000003800000018000
+    0001800000010000000000000000000000000000000000000000000000000000
+    000000000000800000018000000180000001C0000003C0000003E0000007F000
+    000FF800001FFC00003FFE00007FFF8001FFFFF00FFF28000000100000002000
+    0000010008000000000000010000000000000000000000010000000100000000
+    00000404040003030D00090909000E0E0E0007071A0012121200181818001D1D
+    1D001B1C26000E0E350012133A00171A39001C1F3F0022222200272727002C2C
+    2C0025263100292B370031313100363636003B3B3B003F3F3F0007074A001A1E
+    490008095700262A4200373A47003C3F4B0021285600242E5E0030395F000202
+    63000B0F60000A0E6800121B680001017E00172266001E2862001F2C7300353E
+    63002433710021327D003E445B003D4A77004141410044444400494949004F4F
+    4F00414450005353530054545400595959005E5E5E00434A60004F5569005C5F
+    680043507B005F65770062626200686868006669710073737300040482000710
+    8C000B178D000E1E8E0000009A0000019C00192B8A000006A7000A1CA2000415
+    AC00071CAC00000CB3000013BF000822B800203DAA003B519C003C5ABE004058
+    AA00475FAC004860AB005065A500556CB1000019CC00001FD8001335C000123B
+    DB00032CE5000F3BE7000433F0000133FC00083BFF001E43D000294AC7003F63
+    D4001843E7001844E7001543F3001243FF001B4CFF002454FF002D5DFF003666
+    FF005070CF004D73E200406EFF00858585009696960000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000003B070604043200000000000000003B0F0F0C21191705002D0000000000
+    2D13100F184A4643432002060000003B1513131011414046434324022D00002D
+    2D151513100F184A4643432000006C2F31585C291310474B4A4643430532322F
+    39645D5713131D49484A223F17043432305F5E2815151E4C250D090B0A043434
+    32322F2D2D1F59271A0F0F0707063B3B3432322F2B155B2A1326552307076D3B
+    3852373965625A1F134556420F3B003C546B604F6665634D15151E120F00006C
+    3D6A6B68676665611C1B1313320000003E3D696B68676665614D152D00000000
+    006C3C3A5352524E362D3B00000000000000006D3B3434326C0000000000F81F
+    0000E0070000C003000080010000800100000000000000000000000000000000
+    000000000000000000008001000080010000C0030000E0070000F81F00002800
+    0000300000006000000001002000000000008025000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000001919192F1717176F1616169F141414BF121212FF1010
+    10FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808BF0707079F0505056F0404
+    042F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000002020
+    201F1E1E1E8F1C1C1CDF1A1A1AFF191919FF171717FF151515FF141414FF1212
+    12FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606FF0505
+    05FF030303DF0202028F0101011F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000002424242F232323AF2121
+    21FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF151515FF1414
+    14FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF0606
+    06FF050505FF030303FF010101FF0000009F0000001F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000002A2A2A0F2828288F262626FF242424FF2323
+    23FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF1515
+    15FF141414FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF0808
+    08FF060606FF050505FF030303FF010101FF000000FF0000008F0000000F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000002D2D2D3F2B2B2BEF292929FF282828FF262626FF2424
+    24FF232323FF212121FF1F1F1FFF1E1E1EFF1A1B25FF13163FFF0D1158FF0B0E
+    5EFF0A0C5BFF090A58FF090956FF09094CFF0B0B31FF0C0C16FF0B0B0BFF0A0A
+    0AFF080808FF060606FF050505FF030303FF010101FF000000FF000000DF0000
+    003F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000003030306F2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF2626
+    26FF242424FF232323FF212121FF1F1F1FFF1C1D27FF0E1466FF0009ADFF0007
+    A9FF0005A5FF0003A1FF00019CFF00009AFF00009AFF00009AFF02027FFF0606
+    49FF08081BFF080808FF060606FF050505FF030303FF010101FF000000FF0000
+    00FF0000005F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00003333339F323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF2828
+    28FF262626FF242424FF232323FF212121FF1F1F1FFF161A43FF000BB1FF0009
+    ADFF0007A9FF0005A5FF0003A1FF00019CFF00009AFF00009AFF00009AFF0000
+    9AFF00009AFF030363FF07071AFF060606FF050505FF030303FF010101FF0000
+    00FF000000FF0000009F00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000003737
+    379F353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF2929
+    29FF282828FF262626FF242424FF232323FF212121FF141959FF000DB5FF000B
+    B1FF0009ADFF0007A9FF0005A5FF0003A1FF00019CFF00009AFF00009AFF0000
+    9AFF00009AFF00009AFF00009AFF03035AFF06060FFF050505FF030303FF0101
+    01FF000000FF000000FF0000009F000000000000000000000000000000000000
+    00000000000000000000000000000000000000000000000000003A3A3A6F3838
+    38FF373737FF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B
+    2BFF292929FF282828FF262626FF242424FF232323FF10196FFF0010B9FF000D
+    B5FF000BB1FF0009ADFF0007A9FF0005A5FF0003A1FF00019CFF00009AFF0000
+    9AFF00009AFF00009AFF00009AFF00009AFF01017EFF050522FF050505FF0303
+    03FF010101FF000000FF000000FF0000005F0000000000000000000000000000
+    000000000000000000000000000000000000000000003D3D3D3F3B3B3BFF3A3A
+    3AFF383838FF373737FF353535FF333333FF323232FF303030FF2E2E2EFF2D2D
+    2DFF2B2B2BFF292929FF282828FF262626FF242424FF181E54FF0012BEFF0010
+    B9FF000DB5FF000BB1FF0009ADFF0007A9FF0005A5FF0003A1FF00019CFF0000
+    9AFF00009AFF00009AFF00009AFF00009AFF00009AFF000090FF050522FF0505
+    05FF030303FF010101FF000000FF000000FF0000003F00000000000000000000
+    0000000000000000000000000000000000004141410F3F3F3FEF3D3D3DFF3B3B
+    3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF303030FF2E2E
+    2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF161D5EFF0012
+    BEFF0412A6FF091285FF0E1466FF010AA3FF0007A9FF0005A5FF0003A1FF0001
+    9CFF00009AFF00009AFF00009AFF00009AFF00009AFF00009AFF000090FF0505
+    22FF050505FF030303FF010101FF000000FF000000DF0000000F000000000000
+    0000000000000000000000000000000000004242429F404040FF3F3F3FFF3D3D
+    3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF3030
+    30FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF2323
+    23FF212121FF1F1F1FFF1E1E1EFF0E1466FF0009ADFF0007A9FF0005A5FF0003
+    A1FF00019CFF00009AFF00009AFF00009AFF00009AFF00009AFF00009AFF0000
+    90FF050522FF050505FF030303FF010101FF000000FF0000008F000000000000
+    00000000000000000000000000004545452F444444FF424242FF404040FF3F3F
+    3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF3232
+    32FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF2424
+    24FF232323FF212121FF1F1F1FFF1C1D27FF010CA7FF0009ADFF0007A9FF0005
+    A5FF0003A1FF00019CFF00009AFF00009AFF00009AFF00009AFF00009AFF0000
+    9AFF01017EFF06060FFF050505FF030303FF010101FF000000FF0000001F0000
+    0000000000000000000000000000474747BF454545FF444444FF424242FF4040
+    40FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF3333
+    33FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF2626
+    26FF242424FF232323FF212121FF191C3CFF010EABFF000BB1FF0009ADFF0007
+    A9FF0005A5FF0003A1FF00019CFF00009AFF00009AFF00009AFF00009AFF0000
+    9AFF00009AFF03035AFF060606FF050505FF030303FF010101FF0000009F0000
+    000000000000000000004A4A4A1F494949FF474747FF454545FF444444FF4242
+    42FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF3535
+    35FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF2828
+    28FF262626FF242424FF1C2040FF0213B4FF0010B9FF000DB5FF000BB1FF0009
+    ADFF0007A9FF0005A5FF0003A1FF00019CFF00009AFF00009AFF00009AFF0000
+    9AFF00009AFF00009AFF07071AFF060606FF050505FF030303FF010101FF0101
+    011F00000000000000004C4C4C8F4A4A4AFF494949FF474747FF454545FF4444
+    44FF424242FF404040FF3F3F3FFF323C61FF1737B5FF0E33CBFF1132BCFF2233
+    7EFF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF2929
+    29FF282828FF21243AFF0217BBFF0014C2FF0012BEFF0010B9FF000DB5FF000B
+    B1FF0009ADFF0007A9FF0005A5FF0003A1FF00019CFF00009AFF00009AFF0000
+    9AFF00009AFF00009AFF030363FF080808FF060606FF050505FF030303FF0202
+    028F00000000000000004E4E4EDF4C4C4CFF4A4A4AFF494949FF474747FF4545
+    45FF444444FF424242FF2C3F88FF0739FFFF0436FFFF0134FEFF0031FCFF002F
+    F8FF1431ADFF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B
+    2BFF292929FF252732FF0018CAFF0016C6FF0014C2FF0012BEFF0010B9FF000D
+    B5FF000BB1FF0009ADFF0007A9FF0005A5FF0003A1FF00019CFF00009AFF0000
+    9AFF00009AFF00009AFF00009AFF08081BFF080808FF060606FF050505FF0303
+    03DF000000005151512F4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF4747
+    47FF454545FF40444FFF103FF3FF0A3CFFFF0739FFFF0436FFFF0134FEFF0031
+    FCFF002FF8FF22337EFF353535FF333333FF323232FF303030FF2E2E2EFF2D2D
+    2DFF2B2B2BFF292929FF051CB9FF0018CAFF0016C6FF0014C2FF0012BEFF0010
+    B9FF000DB5FF000BB1FF0009ADFF0007A9FF0005A5FF0003A1FF00019CFF0000
+    9AFF00009AFF00009AFF00009AFF050552FF0A0A0AFF080808FF060606FF0505
+    05FF0404042F5252526F515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF4949
+    49FF474747FF394574FF1042FFFF0D3FFFFF0A3CFFFF0739FFFF0436FFFF0134
+    FEFF0031FCFF1132BCFF373737FF353535FF333333FF323232FF303030FF2E2E
+    2EFF2D2D2DFF2B2B2BFF172373FF021BC3FF0018CAFF0016C6FF0014C2FF0012
+    BEFF0010B9FF000DB5FF000BB1FF0009ADFF0007A9FF0005A5FF05077EFF0A0A
+    58FF05056FFF00009AFF00009AFF02027FFF0B0B0BFF0A0A0AFF080808FF0606
+    06FF0505056F545454AF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A
+    4AFF494949FF3B4775FF1345FFFF1042FFFF0D3FFFFF0A3CFFFF0739FFFF0436
+    FFFF0134FEFF0E33CBFF383838FF373737FF353535FF333333FF323232FF3030
+    30FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF192366FF041AB5FF0016C6FF0014
+    C2FF0012BEFF06139CFF000DB5FF000BB1FF0009ADFF0007A9FF141529FF1515
+    15FF141414FF00009AFF00009AFF00009AFF0C0C16FF0B0B0BFF0A0A0AFF0808
+    08FF0707079F565656CF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C
+    4CFF4A4A4AFF40496BFF1647FFFF1345FFFF1042FFFF0D3FFFFF0A3CFFFF0739
+    FFFF0436FFFF1A37A9FF3A3A3AFF383838FF373737FF353535FF333333FF3232
+    32FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF14217AFF0018CAFF0618
+    A7FF1C2040FF212121FF0C157FFF000DB5FF000BB1FF060E88FF191919FF1717
+    17FF151515FF05057AFF00009AFF00009AFF0B0B31FF0D0D0DFF0B0B0BFF0A0A
+    0AFF080808BF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E
+    4EFF4C4C4CFF4A4A4AFF254AD1FF1647FFFF1345FFFF1042FFFF0D3FFFFF0A3C
+    FFFF0A39F3FF363C55FF3B3B3BFF3A3A3AFF383838FF373737FF353535FF3333
+    33FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF122288FF001ACEFF0E1D
+    8DFF242424FF232323FF212121FF121862FF14194DFF181A2EFF1A1A1AFF1919
+    19FF171717FF0C0D52FF010294FF00009AFF0B0B3BFF0F0F0FFF0D0D0DFF0B0B
+    0BFF0A0A0AFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F
+    4FFF4E4E4EFF4C4C4CFF474A56FF254AD1FF1647FFFF1345FFFF1042FFFF103F
+    F3FF333F70FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF3535
+    35FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF0B21ABFF001CD2FF041C
+    B9FF262626FF242424FF232323FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A
+    1AFF191919FF171717FF151515FF111125FF121212FF101010FF0F0F0FFF0D0D
+    0DFF0B0B0BFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF5151
+    51FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF40496BFF3B4775FF394574FF4444
+    44FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF3737
+    37FF353535FF23306DFF152C98FF0B27B6FF0223D4FF0020DBFF001ED7FF001C
+    D2FF252732FF262626FF242424FF232323FF212121FF1F1F1FFF1E1E1EFF1C1C
+    1CFF1A1A1AFF191919FF171717FF151515FF141414FF121212FF101010FF0F0F
+    0FFF0D0D0DFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF545454FF5353
+    53FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF474747FF4545
+    45FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF3838
+    38FF373737FF062CD8FF0029EBFF0027E7FF0C27B6FF0624C8FF0020DBFF1B26
+    6BFF292929FF282828FF262626FF242424FF232323FF212121FF1F1F1FFF1E1E
+    1EFF1C1C1CFF1A1A1AFF191919FF171717FF151515FF141414FF121212FF1010
+    10FF0F0F0FFF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF5454
+    54FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF4747
+    47FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A
+    3AFF20348CFF002DF4FF002BEFFF102CB2FF323232FF303030FF2E2E2EFF2D2D
+    2DFF2B2B2BFF292929FF282828FF262626FF242424FF232323FF212121FF1F1F
+    1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF151515FF141414FF1212
+    12FF101010FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF5656
+    56FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF4949
+    49FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B
+    3BFF2C386AFF002FF8FF002DF4FF243270FF333333FF323232FF303030FF2E2E
+    2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF232323FF2121
+    21FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF151515FF1414
+    14FF121212FF626262CF606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF5858
+    58FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A
+    4AFF494949FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D
+    3DFF3B3B3BFF1234BFFF002FF8FF0A2FD0FF2E344DFF333333FF323232FF3030
+    30FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF252732FF15206EFF121D75FF131C
+    69FF1F202BFF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF1515
+    15FF141414BF636363AF626262FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF5959
+    59FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C
+    4CFF4A4A4AFF494949FF474747FF454545FF444444FF424242FF404040FF3F3F
+    3FFF3D3D3DFF343A54FF0031FCFF002FF8FF032DE8FF2E344DFF333333FF3232
+    32FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF071EB2FF001ACEFF0018CAFF0016
+    C6FF0215B8FF1F202BFF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF1717
+    17FF161616AF6565656F636363FF626262FF606060FF5E5E5EFF5D5D5DFF5B5B
+    5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E
+    4EFF4C4C4CFF4A4A4AFF494949FF474747FF3C4568FF41444FFF424242FF4040
+    40FF3F3F3FFF323C61FF0134FEFF0031FCFF002FF8FF293466FF353535FF3333
+    33FF323232FF303030FF2E2E2EFF1C286EFF001ED7FF001CD2FF001ACEFF0018
+    CAFF0016C6FF0F1A7CFF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF1919
+    19FF1717176F6666662F656565FF636363FF626262FF606060FF5E5E5EFF5D5D
+    5DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F
+    4FFF4E4E4EFF4C4C4CFF454B61FF284AC6FF1647FFFF1645F3FF2D4395FF4242
+    42FF364064FF0A39F3FF0436FFFF0134FEFF0332EFFF2E375CFF373737FF3535
+    35FF333333FF323232FF303030FF172886FF0020DBFF001ED7FF001CD2FF001A
+    CEFF0018CAFF09199DFF232323FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A
+    1AFF1919192F00000000676767DF656565FF636363FF626262FF606060FF5E5E
+    5EFF5D5D5DFF5B5B5BFF535C78FF465EABFF4D5980FF52555FFF535353FF5151
+    51FF4F4F4FFF4E4E4EFF354EA5FF1C4DFFFF194AFFFF1647FFFF1345FFFF1642
+    E7FF103FF3FF0A3CFFFF0739FFFF203A9EFF383B48FF3A3A3AFF383838FF3737
+    37FF353535FF333333FF323232FF1E2B73FF0022DFFF0020DBFF001ED7FF001C
+    D2FF001ACEFF101E82FF242424FF232323FF212121FF1F1F1FFF1E1E1EFF1C1C
+    1CDF00000000000000006868688F676767FF656565FF636363FF626262FF6060
+    60FF5E5E5EFF57607BFF3D69F4FF3867FFFF3564FFFF405DBFFF545454FF5353
+    53FF515151FF4F4F4FFF3251BCFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1345
+    FFFF1042FFFF0D3FFFFF173DCFFF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF3838
+    38FF373737FF353535FF333333FF323232FF0926C1FF0022DFFF0020DBFF001E
+    D7FF021DC8FF252732FF262626FF242424FF232323FF212121FF1F1F1FFF1E1E
+    1E8F00000000000000006969691F686868FF676767FF656565FF636363FF6262
+    62FF5E616AFF436FF5FF3E6DFFFF3B6AFFFF3867FFFF3564FFFF52586BFF5454
+    54FF535353FF515151FF3054D3FF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647
+    FFFF1345FFFF1042FFFF0D3FFFFF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A
+    3AFF383838FF373737FF353535FF333333FF2F313DFF1B2B7EFF172886FF1927
+    79FF282A36FF292929FF282828FF262626FF242424FF232323FF212121FF2020
+    201F0000000000000000000000006A6A6ABF686868FF676767FF656565FF6363
+    63FF566AA7FF4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF4260C0FF5656
+    56FF52555FFF475688FF2E58E9FF2556FFFF2253FFFF1F50FFFF1C4DFFFF194A
+    FFFF1647FFFF1345FFFF1042FFFF1740DBFF223EABFF233C9EFF363C55FF3B3B
+    3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF303030FF2E2E
+    2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF232323AF0000
+    00000000000000000000000000006B6B6B3F6A6A6AFF686868FF676767FF6565
+    65FF62656DFF4C72E1FF4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564
+    FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4D
+    FFFF194AFFFF1647FFFF1345FFFF1042FFFF0D3FFFFF0A3CFFFF183BC2FF3D3D
+    3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF3030
+    30FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF2424242F0000
+    0000000000000000000000000000000000006B6B6B9F6A6A6AFF686868FF6767
+    67FF656565FF5E6781FF4974F5FF4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867
+    FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50
+    FFFF1C4DFFFF194AFFFF1647FFFF1345FFFF1042FFFF0D3FFFFF103DE7FF3F3F
+    3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF3232
+    32FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF2828289F000000000000
+    0000000000000000000000000000000000006B6B6B0F6B6B6BEF6A6A6AFF6868
+    68FF676767FF656565FF5E6781FF4776FFFF4473FFFF4170FFFF3E6DFFFF3B6A
+    FFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253
+    FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1345FFFF1042FFFF2E4189FF4040
+    40FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF3333
+    33FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BEF2A2A2A0F000000000000
+    000000000000000000000000000000000000000000006B6B6B3F6B6B6BFF6A6A
+    6AFF686868FF676767FF656565FF5D688AFF4974F5FF4473FFFF4170FFFF3E6D
+    FFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556
+    FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1645F3FF444444FF4242
+    42FF404040FF3B3E4BFF363C55FF3B3B3BFF3A3A3AFF383838FF373737FF3535
+    35FF333333FF323232FF303030FF2E2E2EFF2D2D2D3F00000000000000000000
+    00000000000000000000000000000000000000000000000000006B6B6B7F6B6B
+    6BFF6A6A6AFF686868FF676767FF656565FF5E6781FF4B73EBFF4473FFFF4170
+    FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959
+    FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF2645B9FF4144
+    4FFF2E4189FF0D3CF3FF0739FFFF213A9DFF3B3B3BFF3A3A3AFF383838FF3737
+    37FF353535FF333333FF323232FF3030306F0000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000006B6B
+    6B9F6B6B6BFF6A6A6AFF686868FF676767FF656565FF62656DFF536DBAFF4473
+    FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5C
+    FFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1645
+    F3FF1042FFFF0D3FFFFF0A3CFFFF233C9FFF3D3D3DFF3B3B3BFF3A3A3AFF3838
+    38FF373737FF353535FF3333339F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00006B6B6B9F6B6B6BFF6A6A6AFF686868FF676767FF656565FF636363FF5D65
+    7FFF4D6DCDFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5F
+    FFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647
+    FFFF1345FFFF2042C4FF384165FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A
+    3AFF383838FF3737379F00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000006B6B6B7F6B6B6BFF6A6A6AFF686868FF676767FF656565FF6363
+    63FF626262FF5D6274FF4E68B9FF446AE0FF3B6AFFFF3867FFFF3564FFFF3261
+    FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF254DDDFF2E4A
+    AFFF41475EFF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B
+    3BFF3A3A3A6F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000006B6B6B4F6B6B6BEF6A6A6AFF686868FF676767FF6565
+    65FF636363FF626262FF606060FF5E5E5EFF5B5E67FF535F84FF4860ACFF465E
+    ABFF445CABFF4159AAFF3F57A9FF3D55A8FF45517BFF4B4E59FF4C4C4CFF4A4A
+    4AFF494949FF474747FF454545FF444444FF424242FF404040FF3F3F3FEF3D3D
+    3D3F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000006B6B6B0F6B6B6B9F6A6A6AFF686868FF6767
+    67FF656565FF636363FF626262FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF5959
+    59FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C
+    4CFF4A4A4AFF494949FF474747FF454545FF444444FF4242429F4141410F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000006B6B6B3F6A6A6ABF6868
+    68FF676767FF656565FF636363FF626262FF606060FF5E5E5EFF5D5D5DFF5B5B
+    5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E
+    4EFF4C4C4CFF4A4A4AFF494949FF474747BF4545453F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000006969
+    691F6868688F676767EF656565FF636363FF626262FF606060FF5E5E5EFF5D5D
+    5DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F
+    4FFF4E4E4EDF4C4C4C8F4A4A4A1F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000006666662F6565657F636363AF626262CF606060FF5E5E
+    5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656CF545454AF5252527F5151
+    512F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000FFFF8001FFFF0000FFFC00003FFF0000FFF000000FFF0000FFC0
+    000003FF0000FF80000001FF0000FF00000000FF0000FE000000007F0000FC00
+    0000003F0000F8000000001F0000F0000000000F0000E000000000070000E000
+    000000070000C000000000030000C00000000003000080000000000100008000
+    0000000100008000000000010000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000008000
+    00000001000080000000000100008000000000010000C000000000030000C000
+    000000030000E000000000070000E000000000070000F0000000000F0000F800
+    0000001F0000FC000000003F0000FE000000007F0000FF00000000FF0000FF80
+    000001FF0000FFC0000003FF0000FFF000000FFF0000FFFC00003FFF0000FFFF
+    8001FFFF00002800000020000000400000000100200000000000801000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000001C1C1C1F1A1A1A6F1717
+    17BF151515EF121212FF101010FF0D0D0DFF0B0B0BFF080808DF060606AF0404
+    046F0303031F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000002424243F212121BF1F1F1FFF1C1C1CFF1A1A
+    1AFF171717FF151515FF121212FF101010FF0D0D0DFF0B0B0BFF080808FF0606
+    06FF030303FF010101BF0000003F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000002B2B2B0F292929AF262626FF242424FF212121FF1F1F1FFF1C1C
+    1CFF1A1A1AFF171717FF151515FF121212FF101010FF0D0D0DFF0B0B0BFF0808
+    08FF060606FF030303FF010101FF000000AF0000000F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00003030303F2E2E2EEF2B2B2BFF292929FF262626FF242424FF212121FF1F1F
+    1FFF10155DFF0009ABFF0005A5FF00029FFF00009AFF010188FF040465FF0707
+    37FF080808FF060606FF030303FF010101FF000000EF0000002F000000000000
+    0000000000000000000000000000000000000000000000000000000000003535
+    355F333333FF303030FF2E2E2EFF2B2B2BFF292929FF262626FF242424FF2121
+    21FF171B45FF000CB1FF0009ABFF0005A5FF00029FFF00009AFF00009AFF0000
+    9AFF010187FF05053EFF060606FF030303FF010101FF000000FF0000005F0000
+    00000000000000000000000000000000000000000000000000003A3A3A3F3838
+    38FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF292929FF262626FF2424
+    24FF151B5CFF000FB8FF000CB1FF0009ABFF0005A5FF00029FFF00009AFF0000
+    9AFF00009AFF00009AFF010175FF05050FFF030303FF010101FF000000FF0000
+    002F00000000000000000000000000000000000000003F3F3F1F3C3C3CEF3A3A
+    3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF292929FF2626
+    26FF1D2141FF0213B4FF000FB8FF000CB1FF0009ABFF0005A5FF00029FFF0000
+    9AFF00009AFF00009AFF00009AFF000090FF040421FF030303FF010101FF0000
+    00EF0000000F00000000000000000000000000000000414141BF3F3F3FFF3C3C
+    3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF2929
+    29FF262626FF1D2141FF151B5CFF1B1D32FF0E1466FF0009ABFF0005A5FF0002
+    9FFF00009AFF00009AFF00009AFF00009AFF000090FF05050FFF030303FF0101
+    01FF000000AF0000000000000000000000004646463F444444FF414141FF3F3F
+    3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B
+    2BFF292929FF262626FF242424FF212121FF1D1E28FF000CB1FF0009ABFF0005
+    A5FF00029FFF00009AFF00009AFF00009AFF00009AFF010175FF060606FF0303
+    03FF010101FF0000003F0000000000000000494949BF464646FF444444FF4141
+    41FF3F3F3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E
+    2EFF2B2B2BFF292929FF262626FF242424FF0C1883FF000FB8FF000CB1FF0009
+    ABFF0005A5FF00029FFF00009AFF00009AFF00009AFF00009AFF05053EFF0606
+    06FF030303FF010101BF000000004E4E4E1F4B4B4BFF494949FF464646FF4444
+    44FF414141FF343E63FF1538C2FF0332F0FF1131BBFF2B3359FF333333FF3030
+    30FF2E2E2EFF2B2B2BFF292929FF15206EFF0015C4FF0012BEFF000FB8FF000C
+    B1FF0009ABFF0005A5FF00029FFF00009AFF00009AFF00009AFF010187FF0808
+    08FF060606FF030303FF0303031F5050506F4E4E4EFF4B4B4BFF494949FF4646
+    46FF414450FF0F3EF3FF073AFFFF0336FEFF0032FCFF062FDEFF353535FF3333
+    33FF303030FF2E2E2EFF2B2B2BFF1C245DFF0018CAFF0015C4FF0012BEFF000F
+    B8FF000CB1FF0009ABFF0005A5FF00029FFF00009AFF00009AFF00009AFF0707
+    37FF080808FF060606FF0404046F535353BF515151FF4E4E4EFF4B4B4BFF4949
+    49FF3A4675FF1042FFFF0C3EFFFF073AFFFF0336FEFF0032FCFF293568FF3535
+    35FF333333FF303030FF2E2E2EFF282A35FF0F2091FF0018CAFF0015C4FF0012
+    BEFF000FB8FF000CB1FF0009ABFF0005A5FF0D0E48FF040478FF00009AFF0404
+    65FF0B0B0BFF080808FF060606BF565656EF535353FF515151FF4E4E4EFF4B4B
+    4BFF3D4977FF1547FFFF1042FFFF0C3EFFFF073AFFFF0336FEFF333952FF3838
+    38FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF262833FF0018CAFF0618
+    A6FF151B5BFF0411A4FF000CB1FF090F75FF171717FF101037FF00009AFF0101
+    88FF0D0D0DFF0B0B0BFF080808EF585858FF565656FF535353FF515151FF4E4E
+    4EFF4B4B4BFF224ADDFF1547FFFF1042FFFF0C3EFFFF183BC3FF3C3C3CFF3A3A
+    3AFF383838FF353535FF333333FF303030FF2E2E2EFF262940FF001BD0FF121F
+    79FF242424FF1F202BFF151A4EFF181A2FFF1A1A1AFF161620FF08096AFF0506
+    6FFF101010FF0D0D0DFF0B0B0BFF5B5B5BFF585858FF565656FF535353FF5151
+    51FF4E4E4EFF484B57FF344A99FF2D46A3FF2D4396FF414141FF3F3F3FFF3C3C
+    3CFF3A3A3AFF383838FF353535FF232F6CFF172A8AFF0B25B1FF001ED7FF0A1F
+    A7FF262626FF242424FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF171717FF1515
+    15FF121212FF101010FF0D0D0DFF5D5D5DFF5B5B5BFF585858FF565656FF5353
+    53FF515151FF4E4E4EFF4B4B4BFF494949FF464646FF444444FF414141FF3F3F
+    3FFF3C3C3CFF3A3A3AFF31374FFF002BF0FF0028E9FF182A89FF0B24B1FF2329
+    4BFF292929FF262626FF242424FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF1717
+    17FF151515FF121212FF101010FF606060FF5D5D5DFF5B5B5BFF585858FF5656
+    56FF535353FF515151FF4E4E4EFF4B4B4BFF494949FF464646FF444444FF4141
+    41FF3F3F3FFF3C3C3CFF283776FF002EF6FF132FAAFF333333FF303030FF2E2E
+    2EFF2B2B2BFF292929FF262626FF242424FF212121FF1F1F1FFF1C1C1CFF1A1A
+    1AFF171717FF151515FF121212FF626262EF606060FF5D5D5DFF5B5B5BFF5858
+    58FF565656FF535353FF515151FF4E4E4EFF4B4B4BFF494949FF464646FF4444
+    44FF414141FF3F3F3FFF3C3C3CFF0E33CBFF032FEAFF243270FF333333FF3030
+    30FF2E2E2EFF2B2B2BFF212648FF0B1D97FF08199CFF181D49FF1F1F1FFF1C1C
+    1CFF1A1A1AFF171717FF151515EF646464BF626262FF606060FF5D5D5DFF5B5B
+    5BFF585858FF565656FF535353FF515151FF4E4E4EFF4B4B4BFF494949FF4346
+    52FF3E445BFF414141FF3F3F3FFF1F399EFF0032FCFF032FEAFF353535FF3333
+    33FF303030FF2E2E2EFF0520C1FF001BD0FF0018CAFF0216BAFF1F202BFF1F1F
+    1FFF1C1C1CFF1A1A1AFF171717BF6666666F656565FF626262FF606060FF5D5D
+    5DFF5B5B5BFF585858FF565656FF535353FF515151FF4E4E4EFF434C6DFF204A
+    E8FF1547FFFF2443B8FF2A4094FF073AFFFF0336FEFF1D369BFF383838FF3535
+    35FF333333FF303030FF0022DDFF001ED7FF001BD0FF0018CAFF1D2142FF2121
+    21FF1F1F1FFF1C1C1CFF1A1A1A6F6868681F676767FF656565FF626262FF6060
+    60FF5B5E67FF3C68F4FF3565FFFF485A95FF535353FF515151FF3851A7FF1E4F
+    FFFF1A4BFFFF1547FFFF1042FFFF0C3EFFFF2E3D7BFF3C3C3CFF3A3A3AFF3838
+    38FF353535FF333333FF0C27B6FF0022DDFF001ED7FF071EB1FF262626FF2424
+    24FF212121FF1F1F1FFF1C1C1C1F00000000696969BF676767FF656565FF6262
+    62FF496EE1FF3F6EFFFF3A69FFFF3A63EAFF565656FF535353FF3C54A8FF2354
+    FFFF1E4FFFFF1A4BFFFF1547FFFF1042FFFF233FABFF3C3F4BFF3C3C3CFF3A3A
+    3AFF383838FF353535FF333333FF1E2C73FF1A287AFF282A36FF292929FF2626
+    26FF242424FF212121BF00000000000000006B6B6B3F696969FF676767FF6565
+    65FF4C72E1FF4372FFFF3F6EFFFF3A69FFFF3C62DFFF385FDFFF2C5CFFFF2758
+    FFFF2354FFFF1E4FFFFF1A4BFFFF1547FFFF1042FFFF0C3EFFFF153BCEFF3C3C
+    3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF2929
+    29FF262626FF2424243F0000000000000000000000006B6B6BBF696969FF6767
+    67FF616778FF4974F5FF4372FFFF3F6EFFFF3A69FFFF3565FFFF3161FFFF2C5C
+    FFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1547FFFF1042FFFF123EE7FF3F3F
+    3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B
+    2BFF292929BF000000000000000000000000000000006B6B6B1F6B6B6BEF6969
+    69FF676767FF606882FF4974F5FF4372FFFF3F6EFFFF3A69FFFF3565FFFF3161
+    FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1547FFFF2E4395FF4141
+    41FF3C3F4BFF393C48FF3A3A3AFF383838FF353535FF333333FF303030FF2E2E
+    2EEF2B2B2B1F00000000000000000000000000000000000000006B6B6B3F6B6B
+    6BFF696969FF676767FF616778FF4C72E1FF4372FFFF3F6EFFFF3A69FFFF3565
+    FFFF3161FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1847F3FF2E43
+    95FF0F3EF3FF0A3AF2FF323B61FF3A3A3AFF383838FF353535FF333333FF3030
+    303F000000000000000000000000000000000000000000000000000000006B6B
+    6B5F6B6B6BFF696969FF676767FF656565FF566AA7FF4570F5FF3F6EFFFF3A69
+    FFFF3565FFFF3161FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1547
+    FFFF1442F3FF2A4094FF3F3F3FFF3C3C3CFF3A3A3AFF383838FF3535355F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00006B6B6B3F6B6B6BEF696969FF676767FF656565FF626262FF55669CFF4A67
+    C2FF3E67EAFF3565FFFF3161FFFF2C5CFFFF2758FFFF2853E9FF2F4DBCFF374A
+    8DFF464646FF444444FF414141FF3F3F3FFF3C3C3CEF3A3A3A3F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000006B6B6B1F6B6B6BBF696969FF676767FF656565FF626262FF6060
+    60FF5D5D5DFF5B5B5BFF585858FF565656FF535353FF515151FF4E4E4EFF4B4B
+    4BFF494949FF464646FF444444FF414141BF3F3F3F1F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000006B6B6B3F696969BF676767FF656565FF6262
+    62FF606060FF5D5D5DFF5B5B5BFF585858FF565656FF535353FF515151FF4E4E
+    4EFF4B4B4BFF494949BF4646463F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000006868681F6666666F6464
+    64BF626262EF606060FF5D5D5DFF5B5B5BFF585858FF565656EF535353BF5050
+    506F4E4E4E1F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000FFC003FFFF0000FFFC00003FF800001FF000
+    000FE0000007C0000003C0000003800000018000000100000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000008000000180000001C0000003C0000003E0000007F000000FF800
+    001FFC00003FFF0000FFFFC003FF280000001000000020000000010020000000
+    0000400400000000000000000000000000000000000000000000000000000000
+    0000000000002323235F1D1D1DAF181818FF131313FF0E0E0EFF090909FF0505
+    05AF0101015F0000000000000000000000000000000000000000000000003232
+    321F2C2C2CBF272727FF222222FF171A39FF0B0F60FF080957FF07074AFF0707
+    1AFF040404FF000000BF0000000F0000000000000000000000003A3A3A1F3636
+    36EF313131FF2C2C2CFF272727FF1A1E49FF000CB3FF0006A7FF00019CFF0000
+    9AFF020263FF03030DFF000000EF0000000F00000000000000003F3F3FCF3B3B
+    3BFF363636FF313131FF2C2C2CFF252631FF0B178DFF07108CFF0006A7FF0001
+    9CFF00009AFF01017EFF03030DFF000000BF000000004848485F444444FF3F3F
+    3FFF3B3B3BFF363636FF313131FF2C2C2CFF272727FF1A1E49FF000CB3FF0006
+    A7FF00019CFF00009AFF020263FF040404FF0101015F4E4E4EAF494949FF4144
+    50FF123BDBFF0133FCFF243371FF313131FF2C2C2CFF0A1CA2FF0013BFFF000C
+    B3FF0006A7FF00019CFF00009AFF07071AFF050505AF545454FF4F4F4FFF3D4A
+    77FF1243FFFF083BFFFF1335C0FF363636FF313131FF212856FF071CACFF0415
+    ACFF000CB3FF0A0E68FF040482FF07074AFF090909FF595959FF545454FF4F4F
+    4FFF294AC7FF1E43D0FF353E63FF3B3B3BFF363636FF242E5FFF0822B8FF1722
+    66FF1C1F3FFF1B1C26FF12133AFF0E0E35FF0E0E0EFF5E5E5EFF595959FF5454
+    54FF4F4F4FFF494949FF444444FF3F3F3FFF30395FFF032CE5FF1F2C73FF262A
+    42FF272727FF222222FF1D1D1DFF181818FF131313FF636363FF5E5E5EFF5959
+    59FF545454FF4F4F4FFF494949FF3E445BFF3F3F3FFF0433F0FF21327DFF3131
+    31FF1E2862FF0019CCFF121B68FF1D1D1DFF181818FF676767AF636363FF5C5F
+    68FF4860ABFF4F5569FF43507BFF1B4CFFFF1844E7FF0F3BE7FF30395FFF3636
+    36FF192B8AFF001FD8FF0E1E8EFF222222FF1D1D1DAF6A6A6A5F686868FF556C
+    B1FF406EFFFF3F63D4FF3C5ABEFF2454FFFF1B4CFFFF1543F3FF213DAAFF3B3B
+    3BFF363636FF252E5DFF292B37FF272727FF2323235F000000006A6A6ACF6669
+    71FF4D73E2FF406EFFFF3666FFFF2D5DFFFF2454FFFF1B4CFFFF1843E7FF3C3F
+    4BFF373A47FF363636FF313131FF2C2C2CCF00000000000000006B6B6B1F6A6A
+    6AEF666971FF5070CFFF406EFFFF3666FFFF2D5DFFFF2454FFFF1B4CFFFF1843
+    E7FF203DABFF3B3B3BFF363636EF3232321F0000000000000000000000006B6B
+    6B1F6A6A6ACF686868FF5F6577FF5065A5FF475FACFF4058AAFF3B519CFF434A
+    60FF444444FF3F3F3FCF3A3A3A1F000000000000000000000000000000000000
+    0000000000006A6A6A5F676767AF636363FF5E5E5EFF595959FF545454FF4E4E
+    4EAF4848485F00000000000000000000000000000000F00F0000C00300008001
+    0000800100000000000000000000000000000000000000000000000000000000
+    0000000000008001000080010000C0030000F00F0000}
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 8
+    Width = 373
+    Height = 13
+    Caption = 
+      'A session is required on the server to execute the selected acti' +
+      'on.'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 24
+    Top = 32
+    Width = 341
+    Height = 26
+    Caption = 
+      'Please select your Login service and Login method from the drop ' +
+      'down boxes below and execute the login, to create an appropriate' +
+      ' session.'
+    WordWrap = True
+  end
+  object Label3: TLabel
+    Left = 24
+    Top = 75
+    Width = 39
+    Height = 13
+    Caption = 'Service:'
+  end
+  object Label4: TLabel
+    Left = 24
+    Top = 99
+    Width = 40
+    Height = 13
+    Caption = 'Method:'
+  end
+  object Label5: TLabel
+    Left = 24
+    Top = 124
+    Width = 59
+    Height = 13
+    Caption = 'Parameters:'
+  end
+  object cb_ServiceName: TComboBox
+    Left = 88
+    Top = 72
+    Width = 323
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 0
+    OnChange = cb_ServiceNameChange
+  end
+  object cb_MethodName: TComboBox
+    Left = 88
+    Top = 96
+    Width = 323
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 1
+    OnChange = cb_MethodNameChange
+  end
+  object grd_Params: TValueListEditor
+    Left = 88
+    Top = 120
+    Width = 324
+    Height = 85
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DisplayOptions = [doColumnTitles, doAutoColResize]
+    TabOrder = 2
+    TitleCaptions.Strings = (
+      'Parameter'
+      'Value')
+    ColWidths = (
+      150
+      168)
+  end
+  object cb_MoreCallsNeeded: TCheckBox
+    Left = 88
+    Top = 206
+    Width = 241
+    Height = 17
+    Anchors = [akLeft, akBottom]
+    Caption = 'Additional calls are required to complete login'
+    TabOrder = 3
+  end
+  object btn_Ok: TBitBtn
+    Left = 257
+    Top = 236
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 4
+    OnClick = btn_OkClick
+    Glyph.Data = {
+      D6020000424DD602000000000000D60000002800000020000000100000000100
+      08000000000000020000C30E0000C30E0000280000002800000000000000FFFF
+      FF00FF00FF0000660000149D210019AA2B00179D27001AB02D001BA92E001DB1
+      32001EB231001FB133001EAE310022B7380021B4370025A83B0031C24F0031B5
+      4D003BCB5E0041C5630047D36D004FD6790053DE7F00CACACA00C4C4C400BFBF
+      BF00B5B5B500ABABAB00A5A5A5009E9E9E009C9C9C009A9A9A00999999009898
+      98009797970094949400939393008C8C8C008A8A8A0065656500020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020203
+      030202020202020202020202020202272702020202020202020202020202030A
+      0B03020202020202020202020202271F1F27020202020202020202020203100D
+      070E0302020202020202020202271B1D221E270202020202020202020314120F
+      03080903020202020202020227191A2127232027020202020202020315161103
+      0203060C030202020202022718171C2702272521270202020202020203130302
+      020202030503020202020202271A270202020227242702020202020202030202
+      0202020203040302020202020227020202020202272627020202020202020202
+      0202020202020303020202020202020202020202020227270202020202020202
+      0202020202020203030202020202020202020202020202272702020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202}
+    NumGlyphs = 2
+  end
+  object btn_Cancel: TBitBtn
+    Left = 337
+    Top = 236
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 5
+    Glyph.Data = {
+      8A030000424D8A030000000000008A0100002800000020000000100000000100
+      08000000000000020000C30E0000C30E0000550000005500000000000000FFFF
+      FF00FF00FF004071FA004274FF00497AFC00275AFF002C5FFF003664FA00386B
+      FF00174AFD001A4CFF001B4DFF001D50FF002355FF002558FF002655FA002E5B
+      F9002D59F400325DF1003B66F3000030FC000132FF000134FF000C3CFF00103D
+      FB00103BF4001342FF001743F6001847FF001A48F9001A47F8001B46F6001D4B
+      FF001C47F6001D48F6001D49F600214EFC00204BF800204CF800224DF800224C
+      F400224DF1002550F400002CF800002DF800002CF600002AF300012DF600032B
+      F2000431FE000733F600123BF100143EF40000009A00C0C0C000BEBEBE00BBBB
+      BB00B9B9B900B6B6B600B5B5B500B3B3B300B1B1B100B0B0B000AFAFAF00AEAE
+      AE00ACACAC00ABABAB00AAAAAA00A9A9A900A8A8A800A7A7A700A6A6A600A4A4
+      A400A3A3A300A2A2A200A0A0A0009F9F9F009E9E9E009C9C9C009A9A9A009999
+      990098989800979797006B6B6B00020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202363602020202020236360202020202
+      02545402020202020254540202020202360A1A3602020202362C153602020202
+      54464C540202020254504F5402020202361F0B343602023630162F3602020202
+      5447444D54020254514E5354020202020236220C3536362D1731360202020202
+      025447434B5454504E52540202020202020236230D1932162E36020202020202
+      02025447424A4D4E5154020202020202020202361E1B18333602020202020202
+      0202025447474A4F54020202020202020202023625211D1C3602020202020202
+      02020254424245495402020202020202020236110728260E2036020202020202
+      0202543E3D434440485402020202020202360809123636290F24360202020202
+      02543B3A415454453F4754020202020236030413360202362A06273602020202
+      5439384054020254473E4454020202023605143602020202362B103602020202
+      54373C5402020202544441540202020202363602020202020236360202020202
+      0254540202020202025454020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202}
+    NumGlyphs = 2
+  end
+  object fDynamicRequest: TRODynamicRequest
+    RemoteService = fRemoteService
+    Params = <>
+    Left = 16
+    Top = 224
+  end
+  object fRemoteService: TRORemoteService
+    Left = 48
+    Top = 224
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.lfm
new file mode 100644
index 0000000..1c8beef
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.lfm	
@@ -0,0 +1,515 @@
+object ROLoginNeededForm: TROLoginNeededForm
+  Left = 329
+  Height = 300
+  Top = 199
+  Width = 425
+  HorzScrollBar.Page = 424
+  VertScrollBar.Page = 299
+  Caption = 'RemObjects SDK Session Required'
+  ClientHeight = 300
+  ClientWidth = 425
+  Constraints.MinHeight = 300
+  Constraints.MinWidth = 425
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Icon.Data = {
+    F12500002F2A2058504D202A2F0A7374617469632063686172202A6772617068
+    69635B5D203D207B0A223438203438203330342032222C0A222E2E2063204E6F
+    6E65222C0A222E2C20632023363336333633222C0A222E2D2063202336323632
+    3632222C0A222E2A20632023363036303630222C0A222E612063202335453545
+    3545222C0A222E6220632023354435443544222C0A222E632063202335423542
+    3542222C0A222E6420632023353935393539222C0A222E652063202335383538
+    3538222C0A222E6620632023353635363536222C0A222E672063202335343534
+    3534222C0A222E6820632023363836383638222C0A222E692063202336373637
+    3637222C0A222E6A20632023363536353635222C0A222E6B2063202335333533
+    3533222C0A222E6C20632023353135313531222C0A222E6D2063202334463446
+    3446222C0A222E6E20632023344534453445222C0A222E6F2063202334433443
+    3443222C0A222E7020632023364136413641222C0A222E712063202334413441
+    3441222C0A222E7220632023343934393439222C0A222E732063202334373437
+    3437222C0A222E7420632023364236423642222C0A222E752063202334353435
+    3435222C0A222E7620632023343434343434222C0A222E772063202334323432
+    3432222C0A222E7820632023363735453542222C0A222E792063202338343546
+    3533222C0A222E7A20632023414336303438222C0A222E412063202341423545
+    3436222C0A222E4220632023414235433434222C0A222E432063202341413539
+    3431222C0A222E4420632023413935373346222C0A222E452063202341383535
+    3344222C0A222E4620632023374235313435222C0A222E472063202335393445
+    3442222C0A222E4820632023343034303430222C0A222E492063202333463346
+    3346222C0A222E4A20632023373436323544222C0A222E4B2063202342393638
+    3445222C0A222E4C20632023453036413434222C0A222E4D2063202346463641
+    3342222C0A222E4E20632023464636373338222C0A222E4F2063202346463634
+    3335222C0A222E5020632023464636313332222C0A222E512063202346463546
+    3246222C0A222E5220632023464635433243222C0A222E532063202346463539
+    3239222C0A222E5420632023464635363235222C0A222E552063202346463533
+    3232222C0A222E5620632023464635303146222C0A222E572063202344443444
+    3235222C0A222E5820632023414634413245222C0A222E592063202335453437
+    3431222C0A222E5A20632023334433443344222C0A222E302063202333423342
+    3342222C0A222E3120632023374636353544222C0A222E322063202343443644
+    3444222C0A222E3320632023464637303431222C0A222E342063202346463644
+    3345222C0A222E3520632023464634443143222C0A222E362063202346463441
+    3139222C0A222E3720632023464634373136222C0A222E382063202346463435
+    3133222C0A222E3920632023433434323230222C0A222E402063202336353431
+    3338222C0A222E2320632023334133413341222C0A222E3B2063202333383338
+    3338222C0A222E3A20632023333733373337222C0A222E3D2063202336443635
+    3632222C0A222E2B20632023424136443533222C0A222E252063202346463733
+    3434222C0A222E2420632023463334353136222C0A222E282063202346463432
+    3130222C0A222E2920632023464633463044222C0A222E5B2063202346463343
+    3041222C0A222E5D20632023394633433233222C0A222C2E2063202333353335
+    3335222C0A222C2C20632023333333333333222C0A222C2D2063202338313637
+    3545222C0A222C2A20632023454237333442222C0A222C612063202342393435
+    3236222C0A222C6220632023344634343431222C0A222C632063202338393431
+    3245222C0A222C6420632023463333433044222C0A222C652063202346463339
+    3037222C0A222C6620632023394433413231222C0A222C672063202333323332
+    3332222C0A222C6820632023384136383544222C0A222C692063202346353734
+    3439222C0A222C6A20632023344233453342222C0A222C6B2063202335353343
+    3336222C0A222C6C20632023333033303330222C0A222C6D2063202332453245
+    3245222C0A222C6E20632023464637363437222C0A222C6F2063202332443244
+    3244222C0A222C7020632023324232423242222C0A222C712063202345373344
+    3130222C0A222C7220632023323932393239222C0A222C732063202332383238
+    3238222C0A222C7420632023453137323443222C0A222C752063202343323342
+    3138222C0A222C7620632023323632363236222C0A222C772063202341373641
+    3536222C0A222C7820632023433036303432222C0A222C792063202335463535
+    3532222C0A222C7A20632023383835363437222C0A222C412063202345393538
+    3245222C0A222C4220632023444234303137222C0A222C432063202341423345
+    3232222C0A222C4420632023394533433233222C0A222C452063202332343234
+    3234222C0A222C4620632023323332333233222C0A222C472063202336413631
+    3545222C0A222C4820632023463536463433222C0A222C492063202336423538
+    3532222C0A222C4A20632023443335343330222C0A222C4B2063202333443331
+    3246222C0A222C4C20632023374532423142222C0A222C4D2063202338363238
+    3137222C0A222C4E20632023373932373139222C0A222C4F2063202333363241
+    3238222C0A222C5020632023323132313231222C0A222C512063202337423630
+    3537222C0A222C5220632023463436393344222C0A222C532063202342463544
+    3430222C0A222C5420632023424335313332222C0A222C552063202343463344
+    3137222C0A222C5620632023433132363039222C0A222C572063202344463232
+    3030222C0A222C5820632023444232303030222C0A222C592063202344373145
+    3030222C0A222C5A20632023433831443032222C0A222C302063202333323237
+    3235222C0A222C3120632023314631463146222C0A222C322063202331453145
+    3145222C0A222C3320632023373835433533222C0A222C342063202338303539
+    3444222C0A222C3520632023413534453335222C0A222C362063202345373432
+    3136222C0A222C3720632023463333463130222C0A222C382063202339453341
+    3230222C0A222C3920632023343833423338222C0A222C402063202337333242
+    3145222C0A222C2320632023443231433030222C0A222C3B2063202343453141
+    3030222C0A222C3A20632023383231453130222C0A222C3D2063202331433143
+    3143222C0A222C2B20632023363134423435222C0A222C252063202343363441
+    3238222C0A222C2420632023393534333244222C0A222C282063202336343430
+    3336222C0A222C2920632023463333393041222C0A222C5B2063202346463336
+    3034222C0A222C5D20632023464533343031222C0A222D2E2063202345463332
+    3033222C0A222D2C20632023354333373245222C0A222D2D2063202343413138
+    3030222C0A222D2A20632023394431393039222C0A222D612063202331413141
+    3141222C0A222D6220632023363834353343222C0A222D632063202336313343
+    3332222C0A222D6420632023464333313030222C0A222D652063202346383246
+    3030222C0A222D6620632023363633343239222C0A222D672063202336453238
+    3143222C0A222D6820632023433631363030222C0A222D692063202337433141
+    3046222C0A222D6A20632023313931393139222C0A222D6B2063202335343341
+    3334222C0A222D6C20632023453832443033222C0A222D6D2063202334443334
+    3245222C0A222D6E20632023423231453037222C0A222D6F2063202342383135
+    3032222C0A222D7020632023324232303146222C0A222D712063202331373137
+    3137222C0A222D7220632023313631363136222C0A222D732063202342463334
+    3132222C0A222D7420632023443032463041222C0A222D752063202336453230
+    3135222C0A222D7620632023373531443132222C0A222D772063202336393143
+    3133222C0A222D7820632023313531353135222C0A222D792063202331343134
+    3134222C0A222D7A20632023364133383243222C0A222D412063202346343244
+    3030222C0A222D4220632023373033323234222C0A222D432063202331323132
+    3132222C0A222D4420632023384333343230222C0A222D452063202345463242
+    3030222C0A222D4620632023423232433130222C0A222D472063202331303130
+    3130222C0A222D4820632023443832433036222C0A222D492063202345423239
+    3030222C0A222D4A20632023453732373030222C0A222D4B2063202342363237
+    3043222C0A222D4C20632023433832343036222C0A222D4D2063202336423236
+    3142222C0A222D4E20632023304630463046222C0A222D4F2063202336423439
+    3430222C0A222D5020632023373534373342222C0A222D512063202337343435
+    3339222C0A222D5220632023364433303233222C0A222D532063202339383243
+    3135222C0A222D5420632023423632373042222C0A222D552063202344343233
+    3032222C0A222D5620632023304430443044222C0A222D572063202335363441
+    3437222C0A222D5820632023443134413235222C0A222D592063202337303346
+    3333222C0A222D5A20632023414232313042222C0A222D302063202342393143
+    3034222C0A222D3120632023323531313131222C0A222D322063202330423042
+    3042222C0A222D3320632023383832323132222C0A222D342063202338443144
+    3045222C0A222D3520632023363231383132222C0A222D362063202334443139
+    3134222C0A222D3720632023324531413138222C0A222D382063202335323044
+    3043222C0A222D3920632023393430323031222C0A222D402063202339413030
+    3030222C0A222D2320632023334230423042222C0A222D3B2063202330413041
+    3041222C0A222D3A20632023413933373141222C0A222D3D2063202337413231
+    3134222C0A222D2B20632023413731383036222C0A222D252063202334303230
+    3143222C0A222D2420632023374631353043222C0A222D282063202342353044
+    3030222C0A222D2920632023423130423030222C0A222D5B2063202338383045
+    3036222C0A222D5D20632023374130353035222C0A222A2E2063202333313042
+    3042222C0A222A2C20632023303830383038222C0A222A2D2063202343423333
+    3045222C0A222A2A20632023363632333139222C0A222A612063202342353141
+    3034222C0A222A6220632023433231343030222C0A222A632063202342453132
+    3030222C0A222A6420632023394331333036222C0A222A652063202341443039
+    3030222C0A222A6620632023413930373030222C0A222A672063202332393135
+    3134222C0A222A6820632023313630433043222C0A222A692063202330373037
+    3037222C0A222A6A20632023424333323131222C0A222A6B2063202337333233
+    3137222C0A222A6C20632023433331423032222C0A222A6D2063202342393130
+    3030222C0A222A6E20632023413530353030222C0A222A6F2063202337453037
+    3035222C0A222A7020632023353830413041222C0A222A712063202336463035
+    3035222C0A222A7220632023374630323032222C0A222A732063202330363036
+    3036222C0A222A7420632023344634343430222C0A222A752063202337453333
+    3232222C0A222A7620632023423931433035222C0A222A772063202341313033
+    3030222C0A222A7820632023394330313030222C0A222A792063202335323035
+    3035222C0A222A7A20632023303530353035222C0A222A412063202338383346
+    3243222C0A222A4220632023414433313134222C0A222A432063202331423038
+    3038222C0A222A4420632023303330333033222C0A222A452063202342353337
+    3137222C0A222A4620632023334132343231222C0A222A472063202342423137
+    3032222C0A222A4820632023363330333033222C0A222A492063202330323032
+    3032222C0A222A4A20632023423431333032222C0A222A4B2063202331413037
+    3037222C0A222A4C20632023303130313031222C0A222A4D2063202333433143
+    3139222C0A222A4E20632023414230453031222C0A222A4F2063202335413033
+    3033222C0A222A5020632023303030303030222C0A222A512063202332373144
+    3143222C0A222A5220632023413730433031222C0A222A532063202337453031
+    3031222C0A222A5420632023304630363036222C0A222A552063202336363134
+    3045222C0A222A5620632023393030303030222C0A222A572063202332323035
+    3035222C0A222A5820632023354531443136222C0A222A592063202341363132
+    3034222C0A222A5A20632023383531323039222C0A222A302063202341333041
+    3031222C0A222A3120632023353431453138222C0A222A322063202336463139
+    3130222C0A222A3320632023353931393134222C0A222A342063202334333141
+    3136222C0A222A3520632023343930363036222C0A222A362063202332353142
+    3141222C0A222A3720632023334631363133222C0A222A382063202335383131
+    3044222C0A222A3920632023354530453042222C0A222A402063202335423043
+    3041222C0A222A2320632023353830413039222C0A222A3B2063202335363039
+    3039222C0A222A3A20632023344330393039222C0A222E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C2E2D
+    2E2A2E612E622E632E642E652E662E672E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E682E692E6A2E2C
+    2E2D2E2A2E612E622E632E642E652E662E672E6B2E6C2E6D2E6E2E6F2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E702E682E692E6A
+    2E2C2E2D2E2A2E612E622E632E642E652E662E672E6B2E6C2E6D2E6E2E6F2E71
+    2E722E732E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
+    0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E742E702E682E69
+    2E6A2E2C2E2D2E2A2E612E622E632E642E652E662E672E6B2E6C2E6D2E6E2E6F
+    2E712E722E732E752E762E772E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E742E702E68
+    2E692E6A2E2C2E2D2E2A2E612E782E792E7A2E412E422E432E442E452E462E47
+    2E6F2E712E722E732E752E762E772E482E492E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E742E70
+    2E682E692E6A2E2C2E2D2E4A2E4B2E4C2E4D2E4E2E4F2E502E512E522E532E54
+    2E552E562E572E582E592E752E762E772E482E492E5A2E302E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E742E74
+    2E702E682E692E6A2E2C2E312E322E332E342E4D2E4E2E4F2E502E512E522E53
+    2E542E552E562E352E362E372E382E392E402E482E492E5A2E302E232E3B2E3A
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E74
+    2E742E702E682E692E6A2E3D2E2B2E252E332E342E4D2E4E2E4F2E502E512E52
+    2E532E542E552E562E352E362E372E242E282E292E5B2E5D2E5A2E302E232E3B
+    2E3A2C2E2C2C2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E
+    2E2E2E742E702E682E692E6A2C2D2C2A2E252E332E342E4D2E4E2E4F2E502E51
+    2E522E532E542E552E562E352E362E372C612C622C632C642C652C662E302E23
+    2E3B2E3A2C2E2C2C2C672E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
+    2E2E2E2E2E742E702E682E692E6A2C682C692E252E332E342E4D2E4E2E4F2E50
+    2E512E522E532E542E552E562E352E362E372E242E762E772E482C6A2C6B2E30
+    2E232E3B2E3A2C2E2C2C2C672C6C2C6D2E2E2E2E2E2E2E2E2E2E222C0A222E2E
+    2E2E2E2E2E2E2E742E702E682E692E6A2C2D2C6E2E252E332E342E4D2E4E2E4F
+    2E502E512E522E532E542E552E562E352E362E372E382E282C632E482E492E5A
+    2E302E232E3B2E3A2C2E2C2C2C672C6C2C6D2C6F2C702E2E2E2E2E2E2E2E222C
+    0A222E2E2E2E2E2E2E742E702E682E692E6A2C2D2C692E252E332E342E4D2E4E
+    2E4F2E502E512E522E532E542E552E562E352E362E372E382E282E292C712E49
+    2E5A2E302E232E3B2E3A2C2E2C2C2C672C6C2C6D2C6F2C702C722C732E2E2E2E
+    2E2E222C0A222E2E2E2E2E2E2E702E682E692E6A2E3D2C742E252E332E342E4D
+    2E4E2E4F2E502E512E522E532E542E552E562E352E362E372E382E282E292E5B
+    2C752E5A2E302E232E3B2E3A2C2E2C2C2C672C6C2C6D2C6F2C702C722C732C76
+    2E2E2E2E2E2E222C0A222E2E2E2E2E702E682E692E6A2E2C2C772E252E332E34
+    2E4D2E4E2C782E662C792C7A2C412E542E552E562E352E362E372E382E282C42
+    2C432C442C6B2E302E232E3B2E3A2C2E2C2C2C672C6C2C6D2C6F2C702C722C73
+    2C762C452C462E2E2E2E222C0A222E2E2E2E2E682E692E6A2E2C2E2D2C472C48
+    2E342E4D2E4E2E4F2C492E672E6B2E6C2C4A2E552E562E352E362E372E382E28
+    2E292E482E492E5A2E302E232E3B2E3A2C2E2C2C2C4B2C4C2C4D2C4E2C4F2C72
+    2C732C762C452C462C502E2E2E2E222C0A222E2E2E682E692E6A2E2C2E2D2E2A
+    2E612C512C522E4E2E4F2C532E672E6B2E6C2E6D2C542E562E352E362E372E38
+    2E282E292C552E492E5A2E302E232E3B2E3A2C2E2C2C2C672C562C572C582C59
+    2C5A2C302C762C452C462C502C312C322E2E222C0A222E2E2E692E6A2E2C2E2D
+    2E2A2E612E622E632C332E412C342C792E6B2E6C2E6D2E6E2C352E352E362E37
+    2E382C362C372E5B2C652C382C392E232E3B2E3A2C2E2C2C2C672C402C572C58
+    2C592C232C3B2C3A2C452C462C502C312C322C3D2E2E222C0A222E2E2E6A2E2C
+    2E2D2E2A2E612E622E632E642E652E662E672E6B2E6C2E6D2E6E2E6F2C2B2C25
+    2E372E242C242E772C282C292C5B2C5D2D2E2D2C2E3A2C2E2C2C2C672C6C2C4D
+    2C582C592C232C3B2D2D2D2A2C462C502C312C322C3D2D612E2E222C0A222E2E
+    2E2C2E2D2E2A2E612E622E632E642E652E662E672E6B2E6C2E6D2E6E2E6F2E71
+    2E722E732D622C622E772E482E492D632C5D2D642D652D662C2E2C2C2C672C6C
+    2C6D2D672C592C232C3B2D2D2D682D692C502C312C322C3D2D612D6A2E2E222C
+    0A222E2C2E2D2E2A2E612E622E632E642E652E662E672E6B2E6C2E6D2E6E2E6F
+    2E712E722E732E752E762E772E482E492E5A2D6B2D642D652D6C2D6D2C2C2C67
+    2C6C2C6D2C6F2C702D6E2C3B2D2D2D682D6F2D702C312C322C3D2D612D6A2D71
+    2D72222C0A222E2D2E2A2E612E622E632E642E652E662E672E6B2E6C2E6D2E6E
+    2E6F2E712E722E732E752E762E772E482E492E5A2E302D732D652D742D6D2C2C
+    2C672C6C2C6D2C6F2C702C722C302D752D762D772D702C312C322C3D2D612D6A
+    2D712D782D79222C0A222E2A2E612E622E632E642E652E662E672E6B2E6C2E6D
+    2E6E2E6F2E712E722E732E752E762E772E482E492E5A2E302D7A2D652D412D42
+    2C2C2C672C6C2C6D2C6F2C702C722C732C762C452C462C502C312C322C3D2D61
+    2D6A2D712D782D792D43222C0A222E612E622E632E642E652E662E672E6B2E6C
+    2E6D2E6E2E6F2E712E722E732E752E762E772E482E492E5A2E302E232D442D41
+    2D452D462C672C6C2C6D2C6F2C702C722C732C762C452C462C502C312C322C3D
+    2D612D6A2D712D782D792D432D47222C0A222E622E632E642E652E662E672E6B
+    2E6C2E6D2E6E2E6F2E712E722E732E752E762E772E482E492E5A2E302E232E3B
+    2E3A2D482D492D4A2D4B2D4C2C582D4D2C722C732C762C452C462C502C312C32
+    2C3D2D612D6A2D712D782D792D432D472D4E222C0A222E632E642E652E662E67
+    2E6B2E6C2E6D2E6E2E6F2E712D4F2D502D512E762E772E482E492E5A2E302E23
+    2E3B2E3A2C2E2D522D532D542D552C582C592C232C302C762C452C462C502C31
+    2C322C3D2D612D6A2D712D782D792D432D472D4E2D56222C0A222E642E652E66
+    2E672E6B2E6C2E6D2E6E2E6F2D572D582E372E382E282C372D592E492E5A2E30
+    2E232E3B2E3A2C2E2C2C2C672C6C2C6D2C6F2D5A2C232D302C762C452C462C50
+    2C312C322C3D2D612D6A2D712D782D312D432D472D4E2D562D32222C0A222E65
+    2E662E672E6B2E6C2E6D2E6E2E6F2E712D582E372E382E282E292E5B2C292C6B
+    2E302E232E3B2E3A2C2E2C2C2C672C6C2C6D2C6F2C702D332C3B2D342C452C46
+    2C502D352D362D372D612D6A2D712D382D392D402D232D4E2D562D322D3B222C
+    0A222E662E672E6B2E6C2E6D2E6E2E6F2E712D4F2E372E382E282E292E5B2C65
+    2C5B2D3A2E232E3B2E3A2C2E2C2C2C672C6C2C6D2C6F2C702C722D3D2D2D2D2B
+    2D252C502D242D282D292D5B2D6A2D712D782D5D2D402D402A2E2D562D322D3B
+    2A2C222C0A222E672E6B2E6C2E6D2E6E2E6F2E712E722D502E382E282E292E5B
+    2C652C5B2C5D2A2D2E3B2E3A2C2E2C2C2C672C6C2C6D2C6F2C702C722A2A2A61
+    2D682A622A632A642D282D292A652A662A672D782D792D402D402D402A682D32
+    2D3B2A2C2A69222C0A222E2E2E6C2E6D2E6E2E6F2E712E722E732D512E282E29
+    2E5B2C652C5B2C5D2D642A6A2E3A2C2E2C2C2C672C6C2C6D2C6F2C702A6B2A6C
+    2D2D2D682A622A632A6D2D282D292A652A662A6E2A6F2A702A712D402D402A72
+    2D322D3B2A2C2A732E2E222C0A222E2E2E6D2E6E2E6F2E712E722E732E752A74
+    2C372E5B2C652C5B2C5D2D642D652A752C2E2C2C2C672C6C2C6D2C6F2C702C72
+    2A762D2D2D682A622A632A6D2D282D292A652A662A6E2A772A782D402D402D40
+    2D402A792D3B2A2C2A732A7A2E2E222C0A222E2E2E6E2E6F2E712E722E732E75
+    2E762E772A412C652C5B2C5D2D642D652A422C2E2C2C2C672C6C2C6D2C6F2C70
+    2C722C302D2D2D682A622A632A6D2D282D292A652A662A6E2A772A782D402D40
+    2D402D402D402A432A2C2A732A7A2A442E2E222C0A222E2E2E6F2E712E722E73
+    2E752E762E772E482E492D632A452A2D2A6A2A752C2E2C2C2C672C6C2C6D2C6F
+    2C702C722C732A462A472A622A632A6D2D282D292A652A662A6E2A772A782D40
+    2D402D402D402D402A482A2C2A732A7A2A442A492E2E222C0A222E2E2E2E2E72
+    2E732E752E762E772E482E492E5A2E302E232E3B2E3A2C2E2C2C2C672C6C2C6D
+    2C6F2C702C722C732C762C452D252A4A2A6D2D282D292A652A662A6E2A772A78
+    2D402D402D402D402D402D402A4B2A732A7A2A442A4C2E2E2E2E222C0A222E2E
+    2E2E2E732E752E762E772E482E492E5A2E302E232E3B2E3A2C2E2C2C2C672C6C
+    2C6D2C6F2C702C722C732C762C452C462C502A4D2A4E2D292A652A662A6E2A77
+    2A782D402D402D402D402D402D402A4F2A732A7A2A442A4C2A502E2E2E2E222C
+    0A222E2E2E2E2E2E2E762E772E482E492E5A2E302E232E3B2E3A2C2E2C2C2C67
+    2C6C2C6D2C6F2C702C722C732C762C452C462C502C312A512A522A652A662A6E
+    2A772A782D402D402D402D402D402D402A532A542A7A2A442A4C2A502E2E2E2E
+    2E2E222C0A222E2E2E2E2E2E2E772E482E492E5A2E302E232E3B2E3A2C2E2C2C
+    2C672C6C2C6D2C6F2C702C722C732C762C452C462C502C312C322A552A652A66
+    2A6E2A772A782D402D402D402D402D402D402A562A572A7A2A442A4C2A502A50
+    2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E492E5A2E302E232E3B2E3A2C2E
+    2C2C2C672C6C2C6D2C6F2C702C722C732C762C452A582A632A592A5A2A552A30
+    2A662A6E2A772A782D402D402D402D402D402D402A562A572A7A2A442A4C2A50
+    2A502E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E302E232E3B2E3A
+    2C2E2C2C2C672C6C2C6D2C6F2C702C722C732C762C452A312A632A6D2D282D29
+    2A652A662A6E2A772A782D402D402D402D402D402D402A562A572A7A2A442A4C
+    2A502A502E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E3B
+    2E3A2C2E2C2C2C672C6C2C6D2C6F2C702C722C732C762C452C462A322A6D2D28
+    2D292A652A662A6E2A772A782D402D402D402D402D402D402A532A572A7A2A44
+    2A4C2A502A502E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E
+    2E2E2E3A2C2E2C2C2C672C6C2C6D2C6F2C702C722C732C762C452C462C502A33
+    2D282D292A652A662A6E2A772A782D402D402D402D402D402D402A4F2A542A7A
+    2A442A4C2A502A502A502E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2C2C2C672C6C2C6D2C6F2C702C722C732C762C452C462C50
+    2C312A342D292A652A662A6E2A772A782D402D402D402D402D402A482A4B2A73
+    2A7A2A442A4C2A502A502A502E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C6D2C6F2C702C722C732C762C452C46
+    2C502C312A512A552A652A662A6E2A772A782D402D402D402A722A352A432A2C
+    2A732A7A2A442A4C2A502A502E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
+    0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C702C722C732C762C45
+    2C462C502C312C322A362A372A382A392A402A232A3B2A3A2A2E2A682D322D3B
+    2A2C2A732A7A2A442A4C2A502A502E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C732C76
+    2C452C462C502C312C322C3D2D612D6A2D712D782D792D432D472D4E2D562D32
+    2D3B2A2C2A732A7A2A442A4C2A502A502E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2C462C502C312C322C3D2D612D6A2D712D782D792D432D472D4E2D56
+    2D322D3B2A2C2A732A7A2A442A4C2A502E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2C322C3D2D612D6A2D712D782D792D432D472D4E
+    2D562D322D3B2A2C2A732A7A2A442A492E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2D722D792D432D47
+    2D4E2D562D322D3B2A2C2A692E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
+    2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A
+  }
+  Position = poScreenCenter
+  LCLVersion = '0.9.25'
+  object Label1: TLabel
+    Left = 9
+    Height = 17
+    Top = 8
+    Width = 476
+    Caption = 'A session is required on the server to execute the selected action.'
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentColor = False
+  end
+  object Label2: TLabel
+    Left = 9
+    Height = 46
+    Top = 32
+    Width = 405
+    AutoSize = False
+    Caption = 'Please select your Login service and Login method from the drop down boxes below and execute the login, to create an appropriate session.'
+    ParentColor = False
+    WordWrap = True
+  end
+  object Label3: TLabel
+    Left = 9
+    Height = 17
+    Top = 75
+    Width = 58
+    Caption = 'Service:'
+    ParentColor = False
+  end
+  object Label4: TLabel
+    Left = 9
+    Height = 17
+    Top = 99
+    Width = 59
+    Caption = 'Method:'
+    ParentColor = False
+  end
+  object Label5: TLabel
+    Left = 9
+    Height = 17
+    Top = 124
+    Width = 89
+    Caption = 'Parameters:'
+    ParentColor = False
+  end
+  object cb_ServiceName: TComboBox
+    Left = 75
+    Height = 21
+    Top = 72
+    Width = 340
+    Anchors = [akTop, akLeft, akRight]
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    MaxLength = 65535
+    OnChange = cb_ServiceNameChange
+    TabOrder = 0
+  end
+  object cb_MethodName: TComboBox
+    Left = 75
+    Height = 21
+    Top = 96
+    Width = 340
+    Anchors = [akTop, akLeft, akRight]
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    MaxLength = 65535
+    OnChange = cb_MethodNameChange
+    TabOrder = 1
+  end
+  object cb_MoreCallsNeeded: TCheckBox
+    Left = 75
+    Height = 24
+    Top = 233
+    Width = 349
+    Anchors = [akLeft, akBottom]
+    Caption = 'Additional calls are required to complete login'
+    TabOrder = 2
+  end
+  object btn_Ok: TBitBtn
+    Left = 265
+    Height = 25
+    Top = 270
+    Width = 75
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    Default = True
+    Glyph.Data = {
+      D6020000424DD602000000000000D60000002800000020000000100000000100
+      08000000000000020000C30E0000C30E0000280000002800000000000000FFFF
+      FF00FF00FF0000660000149D210019AA2B00179D27001AB02D001BA92E001DB1
+      32001EB231001FB133001EAE310022B7380021B4370025A83B0031C24F0031B5
+      4D003BCB5E0041C5630047D36D004FD6790053DE7F00CACACA00C4C4C400BFBF
+      BF00B5B5B500ABABAB00A5A5A5009E9E9E009C9C9C009A9A9A00999999009898
+      98009797970094949400939393008C8C8C008A8A8A0065656500020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020203
+      030202020202020202020202020202272702020202020202020202020202030A
+      0B03020202020202020202020202271F1F27020202020202020202020203100D
+      070E0302020202020202020202271B1D221E270202020202020202020314120F
+      03080903020202020202020227191A2127232027020202020202020315161103
+      0203060C030202020202022718171C2702272521270202020202020203130302
+      020202030503020202020202271A270202020227242702020202020202030202
+      0202020203040302020202020227020202020202272627020202020202020202
+      0202020202020303020202020202020202020202020227270202020202020202
+      0202020202020203030202020202020202020202020202272702020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202
+    }
+    ModalResult = 1
+    NumGlyphs = 2
+    OnClick = btn_OkClick
+    TabOrder = 4
+  end
+  object btn_Cancel: TBitBtn
+    Left = 345
+    Height = 25
+    Top = 270
+    Width = 75
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    Glyph.Data = {
+      8A030000424D8A030000000000008A0100002800000020000000100000000100
+      08000000000000020000C30E0000C30E0000550000005500000000000000FFFF
+      FF00FF00FF004071FA004274FF00497AFC00275AFF002C5FFF003664FA00386B
+      FF00174AFD001A4CFF001B4DFF001D50FF002355FF002558FF002655FA002E5B
+      F9002D59F400325DF1003B66F3000030FC000132FF000134FF000C3CFF00103D
+      FB00103BF4001342FF001743F6001847FF001A48F9001A47F8001B46F6001D4B
+      FF001C47F6001D48F6001D49F600214EFC00204BF800204CF800224DF800224C
+      F400224DF1002550F400002CF800002DF800002CF600002AF300012DF600032B
+      F2000431FE000733F600123BF100143EF40000009A00C0C0C000BEBEBE00BBBB
+      BB00B9B9B900B6B6B600B5B5B500B3B3B300B1B1B100B0B0B000AFAFAF00AEAE
+      AE00ACACAC00ABABAB00AAAAAA00A9A9A900A8A8A800A7A7A700A6A6A600A4A4
+      A400A3A3A300A2A2A200A0A0A0009F9F9F009E9E9E009C9C9C009A9A9A009999
+      990098989800979797006B6B6B00020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202020202363602020202020236360202020202
+      02545402020202020254540202020202360A1A3602020202362C153602020202
+      54464C540202020254504F5402020202361F0B343602023630162F3602020202
+      5447444D54020254514E5354020202020236220C3536362D1731360202020202
+      025447434B5454504E52540202020202020236230D1932162E36020202020202
+      02025447424A4D4E5154020202020202020202361E1B18333602020202020202
+      0202025447474A4F54020202020202020202023625211D1C3602020202020202
+      02020254424245495402020202020202020236110728260E2036020202020202
+      0202543E3D434440485402020202020202360809123636290F24360202020202
+      02543B3A415454453F4754020202020236030413360202362A06273602020202
+      5439384054020254473E4454020202023605143602020202362B103602020202
+      54373C5402020202544441540202020202363602020202020236360202020202
+      0254540202020202025454020202020202020202020202020202020202020202
+      0202020202020202020202020202020202020202020202020202020202020202
+      0202020202020202020202020202
+    }
+    ModalResult = 2
+    NumGlyphs = 2
+    TabOrder = 3
+  end
+  object grd_Params: TStringGrid
+    Left = 75
+    Height = 112
+    Top = 121
+    Width = 340
+    ColCount = 2
+    FixedColor = clBtnFace
+    Flat = True
+    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goSmoothScroll]
+    RowCount = 1
+    TabOrder = 5
+    ColWidths = (
+      140
+      198
+    )
+    Cells = (
+      2
+      0
+      0
+      'Parameters'
+      1
+      0
+      'Value'
+    )
+  end
+  object fDynamicRequest: TRODynamicRequest
+    RemoteService = fRemoteService
+    Params = <>
+    left = 16
+    top = 224
+  end
+  object fRemoteService: TRORemoteService
+    left = 48
+    top = 224
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.lrs
new file mode 100644
index 0000000..bd61275
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.lrs	
@@ -0,0 +1,247 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TROLoginNeededForm','FORMDATA',[
+  'TPF0'#18'TROLoginNeededForm'#17'ROLoginNeededForm'#4'Left'#3'I'#1#6'Height'#3
+  +','#1#3'Top'#3#199#0#5'Width'#3#169#1#18'HorzScrollBar.Page'#3#168#1#18'Vert'
+  +'ScrollBar.Page'#3'+'#1#7'Caption'#6#31'RemObjects SDK Session Required'#12
+  +'ClientHeight'#3','#1#11'ClientWidth'#3#169#1#21'Constraints.MinHeight'#3','
+  +#1#20'Constraints.MinWidth'#3#169#1#11'Font.Height'#2#245#9'Font.Name'#6#6'T'
+  +'ahoma'#9'Icon.Data'#10#245'%'#0#0#241'%'#0#0'/* XPM */'#10'static char *gra'
+  +'phic[] = {'#10'"48 48 304 2",'#10'".. c None",'#10'"., c #636363",'#10'".- '
+  +'c #626262",'#10'".* c #606060",'#10'".a c #5E5E5E",'#10'".b c #5D5D5D",'#10
+  +'".c c #5B5B5B",'#10'".d c #595959",'#10'".e c #585858",'#10'".f c #565656",'
+  +#10'".g c #545454",'#10'".h c #686868",'#10'".i c #676767",'#10'".j c #65656'
+  +'5",'#10'".k c #535353",'#10'".l c #515151",'#10'".m c #4F4F4F",'#10'".n c #'
+  +'4E4E4E",'#10'".o c #4C4C4C",'#10'".p c #6A6A6A",'#10'".q c #4A4A4A",'#10'".'
+  +'r c #494949",'#10'".s c #474747",'#10'".t c #6B6B6B",'#10'".u c #454545",'
+  +#10'".v c #444444",'#10'".w c #424242",'#10'".x c #675E5B",'#10'".y c #845F5'
+  +'3",'#10'".z c #AC6048",'#10'".A c #AB5E46",'#10'".B c #AB5C44",'#10'".C c #'
+  +'AA5941",'#10'".D c #A9573F",'#10'".E c #A8553D",'#10'".F c #7B5145",'#10'".'
+  +'G c #594E4B",'#10'".H c #404040",'#10'".I c #3F3F3F",'#10'".J c #74625D",'
+  +#10'".K c #B9684E",'#10'".L c #E06A44",'#10'".M c #FF6A3B",'#10'".N c #FF673'
+  +'8",'#10'".O c #FF6435",'#10'".P c #FF6132",'#10'".Q c #FF5F2F",'#10'".R c #'
+  +'FF5C2C",'#10'".S c #FF5929",'#10'".T c #FF5625",'#10'".U c #FF5322",'#10'".'
+  +'V c #FF501F",'#10'".W c #DD4D25",'#10'".X c #AF4A2E",'#10'".Y c #5E4741",'
+  +#10'".Z c #3D3D3D",'#10'".0 c #3B3B3B",'#10'".1 c #7F655D",'#10'".2 c #CD6D4'
+  +'D",'#10'".3 c #FF7041",'#10'".4 c #FF6D3E",'#10'".5 c #FF4D1C",'#10'".6 c #'
+  +'FF4A19",'#10'".7 c #FF4716",'#10'".8 c #FF4513",'#10'".9 c #C44220",'#10'".'
+  +'@ c #654138",'#10'".# c #3A3A3A",'#10'".; c #383838",'#10'".: c #373737",'
+  +#10'".= c #6D6562",'#10'".+ c #BA6D53",'#10'".% c #FF7344",'#10'".$ c #F3451'
+  +'6",'#10'".( c #FF4210",'#10'".) c #FF3F0D",'#10'".[ c #FF3C0A",'#10'".] c #'
+  +'9F3C23",'#10'",. c #353535",'#10'",, c #333333",'#10'",- c #81675E",'#10'",'
+  +'* c #EB734B",'#10'",a c #B94526",'#10'",b c #4F4441",'#10'",c c #89412E",'
+  +#10'",d c #F33C0D",'#10'",e c #FF3907",'#10'",f c #9D3A21",'#10'",g c #32323'
+  +'2",'#10'",h c #8A685D",'#10'",i c #F57449",'#10'",j c #4B3E3B",'#10'",k c #'
+  +'553C36",'#10'",l c #303030",'#10'",m c #2E2E2E",'#10'",n c #FF7647",'#10'",'
+  +'o c #2D2D2D",'#10'",p c #2B2B2B",'#10'",q c #E73D10",'#10'",r c #292929",'
+  +#10'",s c #282828",'#10'",t c #E1724C",'#10'",u c #C23B18",'#10'",v c #26262'
+  +'6",'#10'",w c #A76A56",'#10'",x c #C06042",'#10'",y c #5F5552",'#10'",z c #'
+  +'885647",'#10'",A c #E9582E",'#10'",B c #DB4017",'#10'",C c #AB3E22",'#10'",'
+  +'D c #9E3C23",'#10'",E c #242424",'#10'",F c #232323",'#10'",G c #6A615E",'
+  +#10'",H c #F56F43",'#10'",I c #6B5852",'#10'",J c #D35430",'#10'",K c #3D312'
+  +'F",'#10'",L c #7E2B1B",'#10'",M c #862817",'#10'",N c #792719",'#10'",O c #'
+  +'362A28",'#10'",P c #212121",'#10'",Q c #7B6057",'#10'",R c #F4693D",'#10'",'
+  +'S c #BF5D40",'#10'",T c #BC5132",'#10'",U c #CF3D17",'#10'",V c #C12609",'
+  +#10'",W c #DF2200",'#10'",X c #DB2000",'#10'",Y c #D71E00",'#10'",Z c #C81D0'
+  +'2",'#10'",0 c #322725",'#10'",1 c #1F1F1F",'#10'",2 c #1E1E1E",'#10'",3 c #'
+  +'785C53",'#10'",4 c #80594D",'#10'",5 c #A54E35",'#10'",6 c #E74216",'#10'",'
+  +'7 c #F33F10",'#10'",8 c #9E3A20",'#10'",9 c #483B38",'#10'",@ c #732B1E",'
+  +#10'",# c #D21C00",'#10'",; c #CE1A00",'#10'",: c #821E10",'#10'",= c #1C1C1'
+  +'C",'#10'",+ c #614B45",'#10'",% c #C64A28",'#10'",$ c #95432D",'#10'",( c #'
+  +'644036",'#10'",) c #F3390A",'#10'",[ c #FF3604",'#10'",] c #FE3401",'#10'"-'
+  +'. c #EF3203",'#10'"-, c #5C372E",'#10'"-- c #CA1800",'#10'"-* c #9D1909",'
+  +#10'"-a c #1A1A1A",'#10'"-b c #68453C",'#10'"-c c #613C32",'#10'"-d c #FC310'
+  +'0",'#10'"-e c #F82F00",'#10'"-f c #663429",'#10'"-g c #6E281C",'#10'"-h c #'
+  +'C61600",'#10'"-i c #7C1A0F",'#10'"-j c #191919",'#10'"-k c #543A34",'#10'"-'
+  +'l c #E82D03",'#10'"-m c #4D342E",'#10'"-n c #B21E07",'#10'"-o c #B81502",'
+  +#10'"-p c #2B201F",'#10'"-q c #171717",'#10'"-r c #161616",'#10'"-s c #BF341'
+  +'2",'#10'"-t c #D02F0A",'#10'"-u c #6E2015",'#10'"-v c #751D12",'#10'"-w c #'
+  +'691C13",'#10'"-x c #151515",'#10'"-y c #141414",'#10'"-z c #6A382C",'#10'"-'
+  +'A c #F42D00",'#10'"-B c #703224",'#10'"-C c #121212",'#10'"-D c #8C3420",'
+  +#10'"-E c #EF2B00",'#10'"-F c #B22C10",'#10'"-G c #101010",'#10'"-H c #D82C0'
+  +'6",'#10'"-I c #EB2900",'#10'"-J c #E72700",'#10'"-K c #B6270C",'#10'"-L c #'
+  +'C82406",'#10'"-M c #6B261B",'#10'"-N c #0F0F0F",'#10'"-O c #6B4940",'#10'"-'
+  +'P c #75473B",'#10'"-Q c #744539",'#10'"-R c #6D3023",'#10'"-S c #982C15",'
+  +#10'"-T c #B6270B",'#10'"-U c #D42302",'#10'"-V c #0D0D0D",'#10'"-W c #564A4'
+  +'7",'#10'"-X c #D14A25",'#10'"-Y c #703F33",'#10'"-Z c #AB210B",'#10'"-0 c #'
+  +'B91C04",'#10'"-1 c #251111",'#10'"-2 c #0B0B0B",'#10'"-3 c #882212",'#10'"-'
+  ,'4 c #8D1D0E",'#10'"-5 c #621812",'#10'"-6 c #4D1914",'#10'"-7 c #2E1A18",'
+  +#10'"-8 c #520D0C",'#10'"-9 c #940201",'#10'"-@ c #9A0000",'#10'"-# c #3B0B0'
+  +'B",'#10'"-; c #0A0A0A",'#10'"-: c #A9371A",'#10'"-= c #7A2114",'#10'"-+ c #'
+  +'A71806",'#10'"-% c #40201C",'#10'"-$ c #7F150C",'#10'"-( c #B50D00",'#10'"-'
+  +') c #B10B00",'#10'"-[ c #880E06",'#10'"-] c #7A0505",'#10'"*. c #310B0B",'
+  +#10'"*, c #080808",'#10'"*- c #CB330E",'#10'"** c #662319",'#10'"*a c #B51A0'
+  +'4",'#10'"*b c #C21400",'#10'"*c c #BE1200",'#10'"*d c #9C1306",'#10'"*e c #'
+  +'AD0900",'#10'"*f c #A90700",'#10'"*g c #291514",'#10'"*h c #160C0C",'#10'"*'
+  +'i c #070707",'#10'"*j c #BC3211",'#10'"*k c #732317",'#10'"*l c #C31B02",'
+  +#10'"*m c #B91000",'#10'"*n c #A50500",'#10'"*o c #7E0705",'#10'"*p c #580A0'
+  +'A",'#10'"*q c #6F0505",'#10'"*r c #7F0202",'#10'"*s c #060606",'#10'"*t c #'
+  +'4F4440",'#10'"*u c #7E3322",'#10'"*v c #B91C05",'#10'"*w c #A10300",'#10'"*'
+  +'x c #9C0100",'#10'"*y c #520505",'#10'"*z c #050505",'#10'"*A c #883F2C",'
+  +#10'"*B c #AD3114",'#10'"*C c #1B0808",'#10'"*D c #030303",'#10'"*E c #B5371'
+  +'7",'#10'"*F c #3A2421",'#10'"*G c #BB1702",'#10'"*H c #630303",'#10'"*I c #'
+  +'020202",'#10'"*J c #B41302",'#10'"*K c #1A0707",'#10'"*L c #010101",'#10'"*'
+  +'M c #3C1C19",'#10'"*N c #AB0E01",'#10'"*O c #5A0303",'#10'"*P c #000000",'
+  +#10'"*Q c #271D1C",'#10'"*R c #A70C01",'#10'"*S c #7E0101",'#10'"*T c #0F060'
+  +'6",'#10'"*U c #66140E",'#10'"*V c #900000",'#10'"*W c #220505",'#10'"*X c #'
+  +'5E1D16",'#10'"*Y c #A61204",'#10'"*Z c #851209",'#10'"*0 c #A30A01",'#10'"*'
+  +'1 c #541E18",'#10'"*2 c #6F1910",'#10'"*3 c #591914",'#10'"*4 c #431A16",'
+  +#10'"*5 c #490606",'#10'"*6 c #251B1A",'#10'"*7 c #3F1613",'#10'"*8 c #58110'
+  +'D",'#10'"*9 c #5E0E0B",'#10'"*@ c #5B0C0A",'#10'"*# c #580A09",'#10'"*; c #'
+  +'560909",'#10'"*: c #4C0909",'#10'".......................................,.'
+  +'-.*.a.b.c.d.e.f.g......................................",'#10'"............'
+  +'...................h.i.j.,.-.*.a.b.c.d.e.f.g.k.l.m.n.o.....................'
+  +'.........",'#10'"...........................p.h.i.j.,.-.*.a.b.c.d.e.f.g.k.l'
+  +'.m.n.o.q.r.s..........................",'#10'".......................t.p.h.'
+  +'i.j.,.-.*.a.b.c.d.e.f.g.k.l.m.n.o.q.r.s.u.v.w......................",'#10'"'
+  +'.....................t.p.h.i.j.,.-.*.a.x.y.z.A.B.C.D.E.F.G.o.q.r.s.u.v.w.H.'
+  +'I....................",'#10'"...................t.p.h.i.j.,.-.J.K.L.M.N.O.P'
+  +'.Q.R.S.T.U.V.W.X.Y.u.v.w.H.I.Z.0..................",'#10'"...............t.'
+  +'t.p.h.i.j.,.1.2.3.4.M.N.O.P.Q.R.S.T.U.V.5.6.7.8.9.@.H.I.Z.0.#.;.:..........'
+  +'....",'#10'".............t.t.p.h.i.j.=.+.%.3.4.M.N.O.P.Q.R.S.T.U.V.5.6.7.$.'
+  +'(.).[.].Z.0.#.;.:,.,,............",'#10'".............t.p.h.i.j,-,*.%.3.4.M'
+  +'.N.O.P.Q.R.S.T.U.V.5.6.7,a,b,c,d,e,f.0.#.;.:,.,,,g............",'#10'".....'
+  +'......t.p.h.i.j,h,i.%.3.4.M.N.O.P.Q.R.S.T.U.V.5.6.7.$.v.w.H,j,k.0.#.;.:,.,,'
+  +',g,l,m..........",'#10'".........t.p.h.i.j,-,n.%.3.4.M.N.O.P.Q.R.S.T.U.V.5.'
+  +'6.7.8.(,c.H.I.Z.0.#.;.:,.,,,g,l,m,o,p........",'#10'".......t.p.h.i.j,-,i.%'
+  +'.3.4.M.N.O.P.Q.R.S.T.U.V.5.6.7.8.(.),q.I.Z.0.#.;.:,.,,,g,l,m,o,p,r,s......"'
+  +','#10'".......p.h.i.j.=,t.%.3.4.M.N.O.P.Q.R.S.T.U.V.5.6.7.8.(.).[,u.Z.0.#.;'
+  +'.:,.,,,g,l,m,o,p,r,s,v......",'#10'".....p.h.i.j.,,w.%.3.4.M.N,x.f,y,z,A.T.'
+  +'U.V.5.6.7.8.(,B,C,D,k.0.#.;.:,.,,,g,l,m,o,p,r,s,v,E,F....",'#10'".....h.i.j'
+  +'.,.-,G,H.4.M.N.O,I.g.k.l,J.U.V.5.6.7.8.(.).H.I.Z.0.#.;.:,.,,,K,L,M,N,O,r,s,'
+  +'v,E,F,P....",'#10'"...h.i.j.,.-.*.a,Q,R.N.O,S.g.k.l.m,T.V.5.6.7.8.(.),U.I.Z'
+  +'.0.#.;.:,.,,,g,V,W,X,Y,Z,0,v,E,F,P,1,2..",'#10'"...i.j.,.-.*.a.b.c,3.A,4,y.'
+  +'k.l.m.n,5.5.6.7.8,6,7.[,e,8,9.#.;.:,.,,,g,@,W,X,Y,#,;,:,E,F,P,1,2,=..",'#10
+  +'"...j.,.-.*.a.b.c.d.e.f.g.k.l.m.n.o,+,%.7.$,$.w,(,),[,]-.-,.:,.,,,g,l,M,X,Y'
+  +',#,;---*,F,P,1,2,=-a..",'#10'"...,.-.*.a.b.c.d.e.f.g.k.l.m.n.o.q.r.s-b,b.w.'
+  +'H.I-c,]-d-e-f,.,,,g,l,m-g,Y,#,;---h-i,P,1,2,=-a-j..",'#10'".,.-.*.a.b.c.d.e'
+  +'.f.g.k.l.m.n.o.q.r.s.u.v.w.H.I.Z-k-d-e-l-m,,,g,l,m,o,p-n,;---h-o-p,1,2,=-a-'
+  +'j-q-r",'#10'".-.*.a.b.c.d.e.f.g.k.l.m.n.o.q.r.s.u.v.w.H.I.Z.0-s-e-t-m,,,g,l'
+  +',m,o,p,r,0-u-v-w-p,1,2,=-a-j-q-x-y",'#10'".*.a.b.c.d.e.f.g.k.l.m.n.o.q.r.s.'
+  +'u.v.w.H.I.Z.0-z-e-A-B,,,g,l,m,o,p,r,s,v,E,F,P,1,2,=-a-j-q-x-y-C",'#10'".a.b'
+  +'.c.d.e.f.g.k.l.m.n.o.q.r.s.u.v.w.H.I.Z.0.#-D-A-E-F,g,l,m,o,p,r,s,v,E,F,P,1,'
+  +'2,=-a-j-q-x-y-C-G",'#10'".b.c.d.e.f.g.k.l.m.n.o.q.r.s.u.v.w.H.I.Z.0.#.;.:-H'
+  +'-I-J-K-L,X-M,r,s,v,E,F,P,1,2,=-a-j-q-x-y-C-G-N",'#10'".c.d.e.f.g.k.l.m.n.o.'
+  +'q-O-P-Q.v.w.H.I.Z.0.#.;.:,.-R-S-T-U,X,Y,#,0,v,E,F,P,1,2,=-a-j-q-x-y-C-G-N-V'
+  +'",'#10'".d.e.f.g.k.l.m.n.o-W-X.7.8.(,7-Y.I.Z.0.#.;.:,.,,,g,l,m,o-Z,#-0,v,E,'
+  +'F,P,1,2,=-a-j-q-x-1-C-G-N-V-2",'#10'".e.f.g.k.l.m.n.o.q-X.7.8.(.).[,),k.0.#'
+  +'.;.:,.,,,g,l,m,o,p-3,;-4,E,F,P-5-6-7-a-j-q-8-9-@-#-N-V-2-;",'#10'".f.g.k.l.'
+  +'m.n.o.q-O.7.8.(.).[,e,[-:.#.;.:,.,,,g,l,m,o,p,r-=---+-%,P-$-(-)-[-j-q-x-]-@'
+  +'-@*.-V-2-;*,",'#10'".g.k.l.m.n.o.q.r-P.8.(.).[,e,[,]*-.;.:,.,,,g,l,m,o,p,r*'
+  +'**a-h*b*c*d-(-)*e*f*g-x-y-@-@-@*h-2-;*,*i",'#10'"...l.m.n.o.q.r.s-Q.(.).[,e'
+  ,',[,]-d*j.:,.,,,g,l,m,o,p*k*l---h*b*c*m-(-)*e*f*n*o*p*q-@-@*r-2-;*,*s..",'#10
+  +'"...m.n.o.q.r.s.u*t,7.[,e,[,]-d-e*u,.,,,g,l,m,o,p,r*v---h*b*c*m-(-)*e*f*n*w'
+  +'*x-@-@-@-@*y-;*,*s*z..",'#10'"...n.o.q.r.s.u.v.w*A,e,[,]-d-e*B,.,,,g,l,m,o,'
+  +'p,r,0---h*b*c*m-(-)*e*f*n*w*x-@-@-@-@-@*C*,*s*z*D..",'#10'"...o.q.r.s.u.v.w'
+  +'.H.I-c*E*-*j*u,.,,,g,l,m,o,p,r,s*F*G*b*c*m-(-)*e*f*n*w*x-@-@-@-@-@*H*,*s*z*'
+  +'D*I..",'#10'".....r.s.u.v.w.H.I.Z.0.#.;.:,.,,,g,l,m,o,p,r,s,v,E-%*J*m-(-)*e'
+  +'*f*n*w*x-@-@-@-@-@-@*K*s*z*D*L....",'#10'".....s.u.v.w.H.I.Z.0.#.;.:,.,,,g,'
+  +'l,m,o,p,r,s,v,E,F,P*M*N-)*e*f*n*w*x-@-@-@-@-@-@*O*s*z*D*L*P....",'#10'"....'
+  +'...v.w.H.I.Z.0.#.;.:,.,,,g,l,m,o,p,r,s,v,E,F,P,1*Q*R*e*f*n*w*x-@-@-@-@-@-@*'
+  +'S*T*z*D*L*P......",'#10'".......w.H.I.Z.0.#.;.:,.,,,g,l,m,o,p,r,s,v,E,F,P,1'
+  +',2*U*e*f*n*w*x-@-@-@-@-@-@*V*W*z*D*L*P*P......",'#10'".........I.Z.0.#.;.:,'
+  +'.,,,g,l,m,o,p,r,s,v,E*X*c*Y*Z*U*0*f*n*w*x-@-@-@-@-@-@*V*W*z*D*L*P*P........'
+  +'",'#10'"...........0.#.;.:,.,,,g,l,m,o,p,r,s,v,E*1*c*m-(-)*e*f*n*w*x-@-@-@-'
+  +'@-@-@*V*W*z*D*L*P*P..........",'#10'".............;.:,.,,,g,l,m,o,p,r,s,v,E'
+  +',F*2*m-(-)*e*f*n*w*x-@-@-@-@-@-@*S*W*z*D*L*P*P............",'#10'".........'
+  +'....:,.,,,g,l,m,o,p,r,s,v,E,F,P*3-(-)*e*f*n*w*x-@-@-@-@-@-@*O*T*z*D*L*P*P*P'
+  +'............",'#10'"..............,,,g,l,m,o,p,r,s,v,E,F,P,1*4-)*e*f*n*w*x-'
+  +'@-@-@-@-@*H*K*s*z*D*L*P*P*P..............",'#10'"..................,m,o,p,r'
+  +',s,v,E,F,P,1*Q*U*e*f*n*w*x-@-@-@*r*5*C*,*s*z*D*L*P*P..................",'#10
+  +'"....................,p,r,s,v,E,F,P,1,2*6*7*8*9*@*#*;*:*.*h-2-;*,*s*z*D*L*P'
+  +'*P....................",'#10'"......................,s,v,E,F,P,1,2,=-a-j-q-'
+  +'x-y-C-G-N-V-2-;*,*s*z*D*L*P*P......................",'#10'"................'
+  +'..........,F,P,1,2,=-a-j-q-x-y-C-G-N-V-2-;*,*s*z*D*L*P.....................'
+  +'.....",'#10'"..............................,2,=-a-j-q-x-y-C-G-N-V-2-;*,*s*z'
+  +'*D*I..............................",'#10'".................................'
+  +'.....-r-y-C-G-N-V-2-;*,*i......................................"}'#10#8'Pos'
+  +'ition'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.25'#0#6'TLabel'#6'Label1'
+  +#4'Left'#2#9#6'Height'#2#17#3'Top'#2#8#5'Width'#3#220#1#7'Caption'#6'CA sess'
+  +'ion is required on the server to execute the selected action.'#11'Font.Heig'
+  +'ht'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#6'fsBold'#0#11'ParentC'
+  +'olor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#9#6'Height'#2'.'#3'Top'#2' '#5'Wi'
+  +'dth'#3#149#1#8'AutoSize'#8#7'Caption'#6#137'Please select your Login servic'
+  +'e and Login method from the drop down boxes below and execute the login, to'
+  +' create an appropriate session.'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLab'
+  +'el'#6'Label3'#4'Left'#2#9#6'Height'#2#17#3'Top'#2'K'#5'Width'#2':'#7'Captio'
+  +'n'#6#8'Service:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#9#6'He'
+  +'ight'#2#17#3'Top'#2'c'#5'Width'#2';'#7'Caption'#6#7'Method:'#11'ParentColor'
+  +#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#9#6'Height'#2#17#3'Top'#2'|'#5'Width'#2
+  +'Y'#7'Caption'#6#11'Parameters:'#11'ParentColor'#8#0#0#9'TComboBox'#14'cb_Se'
+  +'rviceName'#4'Left'#2'K'#6'Height'#2#21#3'Top'#2'H'#5'Width'#3'T'#1#7'Anchor'
+  +'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOf'
+  +'LineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#4#255#255#0#0#8'OnCha'
+  +'nge'#7#20'cb_ServiceNameChange'#8'TabOrder'#2#0#0#0#9'TComboBox'#13'cb_Meth'
+  +'odName'#4'Left'#2'K'#6'Height'#2#21#3'Top'#2'`'#5'Width'#3'T'#1#7'Anchors'
+  +#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLin'
+  +'eComplete'#20'cbactSearchAscending'#0#9'MaxLength'#4#255#255#0#0#8'OnChange'
+  +#7#19'cb_MethodNameChange'#8'TabOrder'#2#1#0#0#9'TCheckBox'#18'cb_MoreCallsN'
+  +'eeded'#4'Left'#2'K'#6'Height'#2#24#3'Top'#3#233#0#5'Width'#3']'#1#7'Anchors'
+  +#11#6'akLeft'#8'akBottom'#0#7'Caption'#6'/Additional calls are required to c'
+  +'omplete login'#8'TabOrder'#2#2#0#0#7'TBitBtn'#6'btn_Ok'#4'Left'#3#9#1#6'Hei'
+  +'ght'#2#25#3'Top'#3#14#1#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0
+  +#7'Caption'#6#2'OK'#7'Default'#9#10'Glyph.Data'#10#218#2#0#0#214#2#0#0'BM'
+  +#214#2#0#0#0#0#0#0#214#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#8#0#0#0#0#0#0#2#0
+  +#0#195#14#0#0#195#14#0#0'('#0#0#0'('#0#0#0#0#0#0#0#255#255#255#0#255#0#255#0
+  +#0'f'#0#0#20#157'!'#0#25#170'+'#0#23#157''''#0#26#176'-'#0#27#169'.'#0#29#177
+  +'2'#0#30#178'1'#0#31#177'3'#0#30#174'1'#0'"'#183'8'#0'!'#180'7'#0'%'#168';'#0
+  +'1'#194'O'#0'1'#181'M'#0';'#203'^'#0'A'#197'c'#0'G'#211'm'#0'O'#214'y'#0'S'
+  +#222''#0#202#202#202#0#196#196#196#0#191#191#191#0#181#181#181#0#171#171#171
+  +#0#165#165#165#0#158#158#158#0#156#156#156#0#154#154#154#0#153#153#153#0#152
+  +#152#152#0#151#151#151#0#148#148#148#0#147#147#147#0#140#140#140#0#138#138
+  +#138#0'eee'#0#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#3
+  +#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2''''''#2#2#2#2#2#2#2#2#2#2#2#2#2#3#10#11#3#2#2
+  +#2#2#2#2#2#2#2#2#2#2''''#31#31''''#2#2#2#2#2#2#2#2#2#2#2#3#16#13#7#14#3#2#2#2
+  ,#2#2#2#2#2#2#2''''#27#29'"'#30''''#2#2#2#2#2#2#2#2#2#3#20#18#15#3#8#9#3#2#2#2
+  +#2#2#2#2#2''''#25#26'!''# '''#2#2#2#2#2#2#2#3#21#22#17#3#2#3#6#12#3#2#2#2#2#2
+  +#2''''#24#23#28''''#2'''%!'''#2#2#2#2#2#2#2#3#19#3#2#2#2#2#3#5#3#2#2#2#2#2#2
+  +''''#26''''#2#2#2#2'''$'''#2#2#2#2#2#2#2#3#2#2#2#2#2#2#3#4#3#2#2#2#2#2#2''''
+  +#2#2#2#2#2#2'''&'''#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2''''''#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#3#3#2#2#2#2#2#2#2#2#2#2#2#2#2#2''''
+  +''''#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#11'ModalResult'#2#1#9'NumGlyphs'#2#2#7'OnClick'#7#11
+  +'btn_OkClick'#8'TabOrder'#2#4#0#0#7'TBitBtn'#10'btn_Cancel'#4'Left'#3'Y'#1#6
+  +'Height'#2#25#3'Top'#3#14#1#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBotto'
+  +'m'#0#6'Cancel'#9#7'Caption'#6#6'Cancel'#10'Glyph.Data'#10#142#3#0#0#138#3#0
+  +#0'BM'#138#3#0#0#0#0#0#0#138#1#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#8#0#0#0#0#0
+  +#0#2#0#0#195#14#0#0#195#14#0#0'U'#0#0#0'U'#0#0#0#0#0#0#0#255#255#255#0#255#0
+  +#255#0'@q'#250#0'Bt'#255#0'Iz'#252#0'''Z'#255#0',_'#255#0'6d'#250#0'8k'#255#0
+  +#23'J'#253#0#26'L'#255#0#27'M'#255#0#29'P'#255#0'#U'#255#0'%X'#255#0'&U'#250
+  +#0'.['#249#0'-Y'#244#0'2]'#241#0';f'#243#0#0'0'#252#0#1'2'#255#0#1'4'#255#0
+  +#12'<'#255#0#16'='#251#0#16';'#244#0#19'B'#255#0#23'C'#246#0#24'G'#255#0#26
+  +'H'#249#0#26'G'#248#0#27'F'#246#0#29'K'#255#0#28'G'#246#0#29'H'#246#0#29'I'
+  +#246#0'!N'#252#0' K'#248#0' L'#248#0'"M'#248#0'"L'#244#0'"M'#241#0'%P'#244#0
+  +#0','#248#0#0'-'#248#0#0','#246#0#0'*'#243#0#1'-'#246#0#3'+'#242#0#4'1'#254#0
+  +#7'3'#246#0#18';'#241#0#20'>'#244#0#0#0#154#0#192#192#192#0#190#190#190#0#187
+  +#187#187#0#185#185#185#0#182#182#182#0#181#181#181#0#179#179#179#0#177#177
+  +#177#0#176#176#176#0#175#175#175#0#174#174#174#0#172#172#172#0#171#171#171#0
+  +#170#170#170#0#169#169#169#0#168#168#168#0#167#167#167#0#166#166#166#0#164
+  +#164#164#0#163#163#163#0#162#162#162#0#160#160#160#0#159#159#159#0#158#158
+  +#158#0#156#156#156#0#154#154#154#0#153#153#153#0#152#152#152#0#151#151#151#0
+  +'kkk'#0#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2'66'#2#2#2#2
+  +#2#2'66'#2#2#2#2#2#2'TT'#2#2#2#2#2#2'TT'#2#2#2#2#2'6'#10#26'6'#2#2#2#2'6,'#21
+  +'6'#2#2#2#2'TFLT'#2#2#2#2'TPOT'#2#2#2#2'6'#31#11'46'#2#2'60'#22'/6'#2#2#2#2
+  +'TGDMT'#2#2'TQNST'#2#2#2#2#2'6"'#12'566-'#23'16'#2#2#2#2#2#2'TGCKTTPNRT'#2#2
+  +#2#2#2#2#2'6#'#13#25'2'#22'.6'#2#2#2#2#2#2#2#2'TGBJMNQT'#2#2#2#2#2#2#2#2#2'6'
+  +#30#27#24'36'#2#2#2#2#2#2#2#2#2#2'TGGJOT'#2#2#2#2#2#2#2#2#2#2'6%!'#29#28'6'#2
+  +#2#2#2#2#2#2#2#2#2'TBBEIT'#2#2#2#2#2#2#2#2#2'6'#17#7'(&'#14' 6'#2#2#2#2#2#2#2
+  +#2'T>=CD@HT'#2#2#2#2#2#2#2'6'#8#9#18'66)'#15'$6'#2#2#2#2#2#2'T;:ATTE?GT'#2#2
+  +#2#2#2'6'#3#4#19'6'#2#2'6*'#6'''6'#2#2#2#2'T98@T'#2#2'TG>DT'#2#2#2#2'6'#5#20
+  +'6'#2#2#2#2'6+'#16'6'#2#2#2#2'T7<T'#2#2#2#2'TDAT'#2#2#2#2#2'66'#2#2#2#2#2#2
+  +'66'#2#2#2#2#2#2'TT'#2#2#2#2#2#2'TT'#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2#2
+  +#2#2#2#2#2#2#2#2#2#11'ModalResult'#2#2#9'NumGlyphs'#2#2#8'TabOrder'#2#3#0#0
+  +#11'TStringGrid'#10'grd_Params'#4'Left'#2'K'#6'Height'#2'p'#3'Top'#2'y'#5'Wi'
+  +'dth'#3'T'#1#8'ColCount'#2#2#10'FixedColor'#7#9'clBtnFace'#4'Flat'#9#7'Optio'
+  +'ns'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'
+  +#13'goRangeSelect'#14'goSmoothScroll'#0#8'RowCount'#2#1#8'TabOrder'#2#5#9'Co'
+  +'lWidths'#1#3#140#0#3#198#0#0#5'Cells'#1#2#2#2#0#2#0#6#10'Parameters'#2#1#2#0
+  +#6#5'Value'#0#0#0#17'TRODynamicRequest'#15'fDynamicRequest'#13'RemoteService'
+  +#7#14'fRemoteService'#6'Params'#14#0#4'left'#2#16#3'top'#3#224#0#0#0#16'TROR'
+  +'emoteService'#14'fRemoteService'#4'left'#2'0'#3'top'#3#224#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.pas
new file mode 100644
index 0000000..481778f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROLoginNeededForm.pas	
@@ -0,0 +1,229 @@
+unit uROLoginNeededForm;
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ELSE}ValEdit,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, Buttons, Grids,  uRORemoteService,
+  uROClient, uRODynamicRequest, uRODL;
+
+type
+
+  { TROLoginNeededForm }
+
+  {$IFDEF FPC}
+  TValueListEditor = TStringGrid;
+  {$ENDIF}
+
+  TROLoginNeededForm = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    cb_ServiceName: TComboBox;
+    cb_MethodName: TComboBox;
+    grd_Params: TValueListEditor;
+    cb_MoreCallsNeeded: TCheckBox;
+    btn_Ok: TBitBtn;
+    btn_Cancel: TBitBtn;
+    fDynamicRequest: TRODynamicRequest;
+    fRemoteService: TRORemoteService;
+    procedure cb_ServiceNameChange(Sender: TObject);
+    procedure cb_MethodNameChange(Sender: TObject);
+    procedure btn_OkClick(Sender: TObject);
+  private
+    fRodl: TRODLLibrary;
+    procedure ValidateInput;
+  public
+    constructor Create(aRemoteService: TRORemoteService); reintroduce;
+    class function Execute(aRemoteService: TRORemoteService): boolean;
+  end;
+
+var
+  ROLoginNeededForm: TROLoginNeededForm;
+
+implementation
+
+uses
+  uROClasses;
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF}
+
+{ TROLoginNeededForm }
+
+class function TROLoginNeededForm.Execute(aRemoteService: TRORemoteService): boolean;
+var
+  lContinue: boolean;
+begin
+  repeat
+    with self.Create(aRemoteService) do try
+      result := (ShowModal() = MrOk);
+      lContinue := result and cb_MoreCallsNeeded.Checked;
+    finally
+      Free();
+    end;
+  until not lContinue;
+end;
+
+constructor TROLoginNeededForm.Create(aRemoteService: TRORemoteService);
+var
+  i: integer;
+  s: TRODLService;
+begin
+  inherited Create(Application);
+  fDynamicRequest.RemoteService.Channel := aRemoteService.Channel;
+  fDynamicRequest.RemoteService.Message := aRemoteService.Message;
+  fRodl := fDynamicRequest.RemoteService.GetRODLLibrary; //ToDo: show PleaseWaitForm?
+
+  cb_ServiceName.Items.Clear();
+  for i := 0 to fRodl.ServiceCount-1 do begin
+    s := fRodl.Services[i];
+    if not s.Abstract then begin
+      cb_ServiceName.Items.Add(s.Name);
+      if Pos('Login',s.Name) = 1 then
+        cb_ServiceName.ItemIndex := cb_ServiceName.Items.Count-1
+      else if Pos('DALogin',s.Name) = 1 then
+        cb_ServiceName.ItemIndex := cb_ServiceName.Items.Count-1;
+    end;
+  end;
+  cb_ServiceNameChange(nil);
+  ValidateInput();
+end;
+
+procedure TROLoginNeededForm.cb_ServiceNameChange(Sender: TObject);
+var
+  lService: TRODLService;
+  m: TRODLOperation;
+  i: integer;
+begin
+  cb_MethodName.Items.Clear();
+  cb_MethodName.Text := '';
+  cb_MethodNameChange(Sender);
+
+  lService := fRodl.FindService(cb_ServiceName.Text);
+  while assigned(lService) do begin
+    for i := 0 to lService.Default.Count-1 do begin
+      m := lService.Default.Items[i];
+      cb_MethodName.Items.Add(m.Name);
+      if Pos('Login',m.Name) = 1 then
+        cb_MethodName.ItemIndex := cb_MethodName.Items.Count-1;
+    end;
+    lService := fRodl.FindService(lService.Ancestor);
+  end;
+  cb_MethodNameChange(Sender);
+  ValidateInput();
+end;
+
+procedure TROLoginNeededForm.cb_MethodNameChange(Sender: TObject);
+var
+  lService: TRODLService;
+  lMethod: TRODLOperation;
+  i: integer;
+  p: TRORequestParam;
+begin
+  {$IFDEF FPC}
+  grd_Params.RowCount:=1;
+  {$ELSE}
+  grd_Params.Strings.Clear();
+  {$ENDIF}
+  fDynamicRequest.MethodName := '';
+  fDynamicRequest.RemoteService.ServiceName := '';
+  fDynamicRequest.Params.Clear();
+  ValidateInput();
+
+  lService := fRodl.FindService(cb_ServiceName.Text);
+  lMethod := nil;
+  while assigned(lService) and not assigned(lMethod) do begin
+    for i := 0 to lService.Default.Count-1 do begin
+      if LowerCase(lService.Default[i].Name) = LowerCase(cb_MethodName.Text) then begin
+        lMethod := lService.Default[i];
+        break;
+      end;
+    end;
+    lService := fRodl.FindService(lService.Ancestor);
+  end;
+  if not assigned(lMethod) then exit;
+
+  fDynamicRequest.MethodName := lMethod.Name;
+  fDynamicRequest.RemoteService.ServiceName := cb_ServiceName.Text;
+  fDynamicRequest.RefreshParams(lMethod, true);
+
+  for i := 0 to fDynamicRequest.Params.Count-1 do begin
+    p := fDynamicRequest.Params[i];
+    if p.Flag in [fIn, fInOut] then begin
+      {$IFDEF FPC}
+        grd_Params.RowCount:=grd_Params.RowCount+1;
+        grd_Params.Cells[0,grd_Params.RowCount-1]:=p.Name+'='{+string(p.Value)};
+      {$ELSE}
+       grd_Params.Strings.Add(p.Name+'='{+string(p.Value)});
+      {$ENDIF}
+    end;
+  end;
+
+  ValidateInput();
+end;
+
+procedure TROLoginNeededForm.btn_OkClick(Sender: TObject);
+
+  procedure SetParamValue(lName , lValue: string);
+  var
+    lParam: TRORequestParam;
+  begin
+    lParam := fDynamicRequest.ParamByName(lName);
+    if assigned(lParam) then begin
+      case lParam.DataType of
+        rtString:  lParam.Value := lValue;
+        rtUTF8String:  lParam.Value := lValue;
+        rtWideString:  lParam.Value := lValue;
+        rtInteger: lParam.Value := StrToInt(lValue);
+        rtInt64:   lParam.Value := StrToInt64(lValue);
+        rtBoolean: lParam.Value := LowerCase(lValue) = 'true';
+      end;
+    end;
+  end;
+
+var
+  i: integer;
+{$IFNDEF FPC}
+  lValue: string;
+{$ENDIF}
+begin
+  if fDynamicRequest.MethodName = '' then exit;
+{$IFDEF FPC}
+  for i := 1 to grd_Params.RowCount-1 do
+    SetParamValue(grd_Params.Cells[0,i],grd_Params.Cells[1,i]);
+{$ELSE}
+  for i := 0 to grd_Params.Strings.Count-1 do begin
+{$IFDEF DELPHI7UP}
+    lValue := grd_Params.Strings.ValueFromIndex[i];
+{$ELSE}
+    lValue := grd_Params.Strings[i];
+    Delete(lValue, 1, pos('=', lValue));
+{$ENDIF}
+    SetParamValue(grd_Params.Strings.Names[i],lValue);
+  end;
+{$ENDIF}
+
+  //using f := new PleaseWaitForm() do
+    fDynamicRequest.Execute();
+end;
+
+procedure TROLoginNeededForm.ValidateInput;
+begin
+  btn_Ok.Enabled := (fDynamicRequest.RemoteService.ServiceName <> '') and (fDynamicRequest.MethodName <> '');
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I uROLoginNeededForm.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfo.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfo.pas
new file mode 100644
index 0000000..df2b6c0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfo.pas	
@@ -0,0 +1,159 @@
+unit uROProductVersionInfo;
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+{$DEFINE Use_WinInet}
+{$DEFINE Use_Indy}
+{$DEFINE Use_Synapse}
+
+interface
+
+procedure GetVersionInfos(const iTargetUrl:string='');
+procedure RegisterProduct(const iProductID:string; iBuildNo:integer=-1);
+procedure UnregisterProduct(const iProductID:string);
+
+implementation
+
+{$IFNDEF FPC}
+  {$IFDEF MSWINDOWS}
+    // delphi + CBuilder - use always WinInet
+    {$DEFINE Use_WinInet}
+  {$ELSE}
+    // linux
+    {$UNDEF Use_WinInet}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF FPC}
+  {$IFDEF FPC_no_WinINet}
+    {$UNDEF Use_WinInet}
+  {$ENDIF}
+{$ENDIF}
+
+
+{$IFDEF Use_WinInet}
+  {$UNDEF Use_Indy}
+  {$UNDEF Use_Synapse}
+{$ELSE}
+  {$IFDEF Use_Synapse}
+    {$UNDEF Use_Indy}
+  {$ELSE}
+    {$DEFINE Use_Indy}
+  {$ENDIF}
+{$ENDIF}
+
+
+uses
+  uROPleaseWaitForm, uROProductVersionInfo_Intf, uROBinMessage,
+  {$IFDEF Use_WinInet}uROWinInetHttpChannel,{$ENDIF}
+  {$IFDEF Use_Synapse}uROSynapseHTTPChannel,{$ENDIF}
+  {$IFDEF Use_Indy}uROIndyHTTPChannel,{$ENDIF}
+  Classes, SysUtils, Forms, uRoProductVersionInfoForm,
+  Dialogs;
+
+var
+  gProducts:TStringList;
+  
+type
+
+{$IFDEF Use_WinInet}
+  TMyChannel = TROWinInetHTTPChannel;
+{$ENDIF}
+
+{$IFDEF Use_Synapse}
+  TMyChannel = TROSynapseHTTPChannel;
+{$ENDIF}
+
+{$IFDEF Use_Indy}
+  TMyChannel = TROIndyHTTPChannel;
+{$ENDIF}
+
+procedure GetVersionInfos(const iTargetUrl:string='');
+var
+  lProducts:TProductInfoRequestArray;
+  lInfo:TProductInfoArray;
+  i:integer;
+  lMessage:TROBINMessage;
+  lChannel:TMyChannel;
+begin
+  lProducts := TProductInfoRequestArray.Create();
+  try
+    for i := 0 to gProducts.Count-1 do begin
+      with lProducts.Add do begin
+        ProductID := gProducts[i];
+        CurrentBuild := integer(gProducts.Objects[i]);
+      end;
+    end;
+
+    lMessage := TROBinMessage.Create(nil);
+    lChannel := TMyChannel.Create(nil);
+    lChannel.TargetURL := iTargetUrl;
+    if lChannel.TargetURL = '' then
+      lChannel.TargetURL := 'http://www.remobjects.com/isapi/roversioninfo.dll/bin';
+      //lChannel.TargetURL := 'http://localhost:8099/bin';
+
+    try
+
+      with TPleaseWaitForm.Create(Application,'Checking for new product versions...','RemObjects Software') do try
+        Show();
+
+        with CoIProductVersionInfo.Create(lMessage,lChannel) do begin
+          lInfo := GetProductVersions(lProducts);
+        end;
+        try
+
+          Hide();
+          if Assigned(lInfo) and (lInfo.Count > 0) then begin
+            with TProductVersionInfoForm.Create(Application) do try
+              LoadFromInfo(lInfo);
+              ShowModal();
+            finally
+              Free();
+            end;
+          end
+          else begin
+            ShowMessage('You are running the latest versions of all installed products.');
+          end;
+
+        finally
+          FreeAndNil(lInfo);
+        end;
+
+      finally
+        Free();
+      end;
+
+    finally
+      FreeAndNil(lMessage);
+      FreeAndNil(lChannel);
+    end;
+
+  finally
+    lProducts.Free();
+  end;
+end;
+
+procedure RegisterProduct(const iProductID:string; iBuildNo:integer=-1);
+begin
+  gProducts.AddObject(iProductID,pointer(iBuildNo));
+end;
+
+procedure UnregisterProduct(const iProductID:string);
+var
+  lIndex:integer;
+begin
+  lIndex := gProducts.IndexOf(iProductID);
+  if lIndex <> -1 then gProducts.Delete(lIndex);
+end;
+
+initialization
+  gProducts := TStringList.Create();
+  gProducts.Sorted := true;
+  gProducts.Duplicates := dupIgnore;
+finalization
+  FreeAndNil(gProducts);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.dfm
new file mode 100644
index 0000000..bbe139c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.dfm	
@@ -0,0 +1,154 @@
+object ProductVersionInfoForm: TProductVersionInfoForm
+  Left = 349
+  Top = 212
+  AutoScroll = False
+  Caption = 'RemObjects Software - New Product Versions'
+  ClientHeight = 225
+  ClientWidth = 393
+  Color = clBtnFace
+  Constraints.MinHeight = 250
+  Constraints.MinWidth = 280
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 8
+    Width = 345
+    Height = 26
+    Caption = 
+      'New versions of the following RemObjects Software products you h' +
+      'ave installed are available:'
+    WordWrap = True
+  end
+  object lv_Info: TListView
+    Left = 8
+    Top = 40
+    Width = 377
+    Height = 146
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Columns = <
+      item
+        Caption = 'Product'
+        Width = 150
+      end
+      item
+        Caption = 'Version'
+        Width = 100
+      end
+      item
+        Caption = 'Date'
+        Width = -2
+        WidthType = (
+          -2)
+      end>
+    HotTrack = True
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 0
+    ViewStyle = vsReport
+    OnDblClick = btn_ShowDetailsClick
+  end
+  object BitBtn1: TBitBtn
+    Left = 310
+    Top = 192
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 1
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+      6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+      9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+      9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+      4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+      65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+      00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+      00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object btn_ShowDetails: TBitBtn
+    Left = 8
+    Top = 192
+    Width = 97
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Show Details'
+    TabOrder = 2
+    OnClick = btn_ShowDetailsClick
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      015603FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF015603015503FF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF025904
+      035D06FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF046208096F11FF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF06690D
+      18932D015603FF00FFFF00FFFF00FFFF00FFFF00FF015403FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF06680D2CB84F096B10FF00FFFF00FFFF00FFFF
+      00FFFF00FF015403015403FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035A06
+      2BB44C25AB43015202FF00FFFF00FFFF00FFFF00FF01540307840F015403FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF168A2842E2761C9C3301540301540301
+      5302015202015403099813047D0B015403FF00FFFF00FFFF00FFFF00FFFF00FF
+      02560429B1493FE06F28B74816982A139825169C280E911C099313058F0D0582
+      0D015403FF00FFFF00FFFF00FFFF00FFFF00FF03580524A94136D3622ECC5424
+      BD421BAF3213A3250C9818068F0F06920E078110015403FF00FFFF00FFFF00FF
+      FF00FFFF00FF0156030D77181FA53923B43F1EB13718AA2D0F9D1F0A98150A7F
+      14015403FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF02570403
+      5B06035D0701540315AB29097811015403FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF015403097611015403FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FF015403015403FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF015403FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.lfm
new file mode 100644
index 0000000..75517e4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.lfm	
@@ -0,0 +1,154 @@
+object ProductVersionInfoForm: TProductVersionInfoForm
+  Left = 444
+  Height = 225
+  Top = 248
+  Width = 393
+  HorzScrollBar.Page = 392
+  VertScrollBar.Page = 224
+  ActiveControl = lv_Info
+  Caption = 'RemObjects Software - New Product Versions'
+  ClientHeight = 225
+  ClientWidth = 393
+  Constraints.MinHeight = 225
+  Constraints.MinWidth = 280
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Position = poScreenCenter
+  object Label1: TLabel
+    Left = 8
+    Height = 31
+    Top = 8
+    Width = 378
+    Caption = 'New versions of the following RemObjects Software products you have installed are available:'
+    ParentColor = False
+    WordWrap = True
+  end
+  object lv_Info: TListView
+    Left = 8
+    Height = 146
+    Top = 40
+    Width = 377
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Columns = <    
+      item
+        Caption = 'Product'
+        Width = 150
+      end    
+      item
+        Caption = 'Version'
+        Width = 100
+      end    
+      item
+        Caption = 'Date'
+        Width = 123
+      end>
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 0
+    ViewStyle = vsReport
+    OnDblClick = btn_ShowDetailsClick
+  end
+  object BitBtn1: TBitBtn
+    Left = 304
+    Height = 25
+    Top = 193
+    Width = 81
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    Default = True
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+      6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+      9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+      9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+      4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+      65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+      00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+      00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+    }
+    ModalResult = 1
+    NumGlyphs = 2
+    TabOrder = 1
+  end
+  object btn_ShowDetails: TBitBtn
+    Left = 8
+    Height = 25
+    Top = 193
+    Width = 100
+    Anchors = [akLeft, akBottom]
+    Caption = 'Show Details'
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      015603FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF015603015503FF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF025904
+      035D06FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF046208096F11FF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF06690D
+      18932D015603FF00FFFF00FFFF00FFFF00FFFF00FF015403FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF06680D2CB84F096B10FF00FFFF00FFFF00FFFF
+      00FFFF00FF015403015403FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF035A06
+      2BB44C25AB43015202FF00FFFF00FFFF00FFFF00FF01540307840F015403FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF168A2842E2761C9C3301540301540301
+      5302015202015403099813047D0B015403FF00FFFF00FFFF00FFFF00FFFF00FF
+      02560429B1493FE06F28B74816982A139825169C280E911C099313058F0D0582
+      0D015403FF00FFFF00FFFF00FFFF00FFFF00FF03580524A94136D3622ECC5424
+      BD421BAF3213A3250C9818068F0F06920E078110015403FF00FFFF00FFFF00FF
+      FF00FFFF00FF0156030D77181FA53923B43F1EB13718AA2D0F9D1F0A98150A7F
+      14015403FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF02570403
+      5B06035D0701540315AB29097811015403FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF015403097611015403FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FF015403015403FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF015403FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+    }
+    NumGlyphs = 0
+    OnClick = btn_ShowDetailsClick
+    TabOrder = 2
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.lrs
new file mode 100644
index 0000000..feecc4a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.lrs	
@@ -0,0 +1,126 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TProductVersionInfoForm','FORMDATA',[
+  'TPF0'#23'TProductVersionInfoForm'#22'ProductVersionInfoForm'#4'Left'#3#188#1
+  +#6'Height'#3#225#0#3'Top'#3#248#0#5'Width'#3#137#1#18'HorzScrollBar.Page'#3
+  +#136#1#18'VertScrollBar.Page'#3#224#0#13'ActiveControl'#7#7'lv_Info'#7'Capti'
+  +'on'#6'*RemObjects Software - New Product Versions'#12'ClientHeight'#3#225#0
+  +#11'ClientWidth'#3#137#1#21'Constraints.MinHeight'#3#225#0#20'Constraints.Mi'
+  +'nWidth'#3#24#1#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#8'Position'#7
+  +#14'poScreenCenter'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#31#3'Top'#2
+  +#8#5'Width'#3'z'#1#7'Caption'#6'\New versions of the following RemObjects So'
+  +'ftware products you have installed are available:'#11'ParentColor'#8#8'Word'
+  +'Wrap'#9#0#0#9'TListView'#7'lv_Info'#4'Left'#2#8#6'Height'#3#146#0#3'Top'#2
+  +'('#5'Width'#3'y'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+  +#7'Columns'#14#1#7'Caption'#6#7'Product'#5'Width'#3#150#0#0#1#7'Caption'#6#7
+  +'Version'#5'Width'#2'd'#0#1#7'Caption'#6#4'Date'#5'Width'#2'{'#0#0#8'ReadOnl'
+  +'y'#9#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#10'OnDblClic'
+  +'k'#7#20'btn_ShowDetailsClick'#0#0#7'TBitBtn'#7'BitBtn1'#4'Left'#3'0'#1#6'He'
+  +'ight'#2#25#3'Top'#3#193#0#5'Width'#2'Q'#7'Anchors'#11#7'akRight'#8'akBottom'
+  +#0#7'Caption'#6#2'OK'#7'Default'#9#10'Glyph.Data'#10':'#6#0#0'6'#6#0#0'BM6'#6
+  +#0#0#0#0#0#0'6'#0#0#0'('#0#0#0' '#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#6#0#0#196
+  +#14#0#0#196#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#30#178'1'#31#177'3'#0'f'#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'eee'#154#154#154#154#154#154'ee'
+  +'e'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0'f'#0'1'#194'O"'#183'8'#26#176'-!'#180
+  +'7'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'eee'#171#171#171#158#158#158#151#151#151
+  +#156#156#156'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0'f'#0'G'#211'm;'#203'^%'#168';'#0'f'#0#27#169
+  +'.'#29#177'2'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#191#191#191#181#181#181#152#152#152'eee'#148
+  +#148#148#153#153#153'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0'f'#0'O'#214'yS'#222'1'#181'M'#0'f'#0#255#0#255#0'f'#0
+  +#23#157''''#30#174'1'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'eee'#196#196#196#202#202#202#165#165#165'eee'#255#0#255'eee'
+  +#140#140#140#152#152#152'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0'f'#0'A'#197'c'#0'f'#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0'f'#0#25#170'+'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#181#181#181'eee'#255#0#255#255#0#255#255#0#255
+  +#255#0#255'eee'#147#147#147'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#0'f'#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#0'f'#0#20#157'!'#0'f'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'eee'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'eee'#138#138#138'eee'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'f'#0#0'f'#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'eeeeee'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#11'ModalResult'#2#1#9'NumGlyphs'#2#2#8'TabOrder'#2#1#0#0
+  +#7'TBitBtn'#15'btn_ShowDetails'#4'Left'#2#8#6'Height'#2#25#3'Top'#3#193#0#5
+  +'Width'#2'd'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#12'Show Deta'
+  +'ils'#10'Glyph.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0#0#0#0#0#0'6'#0#0#0'('#0#0
+  +#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0
+  +#0#0#255#0#255#255#0#255#1'V'#3#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#1'V'#3#1'U'#3#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#2'Y'#4#3']'#6#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#4'b'#8#9'o'#17#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#6'i'#13#24#147'-'#1'V'#3#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#1'T'#3#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#6'h'#13','#184'O'#9'k'#16#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#1'T'#3#1'T'#3#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#3'Z'#6'+'#180'L%'#171'C'#1'R'#2#255#0#255
+  +#255#0#255#255#0#255#255#0#255#1'T'#3#7#132#15#1'T'#3#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#22#138'(B'#226'v'#28#156'3'#1'T'#3#1'T'
+  +#3#1'S'#2#1'R'#2#1'T'#3#9#152#19#4'}'#11#1'T'#3#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#2'V'#4')'#177'I?'#224'o('#183'H'#22#152'*'#19#152'%'#22
+  +#156'('#14#145#28#9#147#19#5#143#13#5#130#13#1'T'#3#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#3'X'#5'$'#169'A6'#211'b.'#204'T$'#189'B'#27#175'2'
+  +#19#163'%'#12#152#24#6#143#15#6#146#14#7#129#16#1'T'#3#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#1'V'#3#13'w'#24#31#165'9#'#180'?'#30#177'7'#24
+  +#170'-'#15#157#31#10#152#21#10''#20#1'T'#3#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2'W'#4#3'['#6#3']'#7#1'T'#3#21
+  +#171')'#9'x'#17#1'T'#3#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#1'T'#3#9
+  +'v'#17#1'T'#3#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#1'T'#3#1
+  +'T'#3#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#1'T'#3
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#9'Num'
+  +'Glyphs'#2#0#7'OnClick'#7#20'btn_ShowDetailsClick'#8'TabOrder'#2#2#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.pas
new file mode 100644
index 0000000..2da1ae7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfoForm.pas	
@@ -0,0 +1,87 @@
+unit uROProductVersionInfoForm;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}LCLIntf, LResources,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Messages, SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, Buttons, ComCtrls, uROProductVersionInfo_Intf;
+
+type
+  TProductVersionInfoForm = class(TForm)
+    Label1: TLabel;
+    lv_Info: TListView;
+    BitBtn1: TBitBtn;
+    btn_ShowDetails: TBitBtn;
+    procedure btn_ShowDetailsClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    procedure LoadFromInfo(iInfo:TProductInfoArray);
+  end;
+
+var
+  ProductVersionInfoForm: TProductVersionInfoForm;
+
+implementation
+
+uses
+  {$IFDEF VER140UO}DateUtils,{$ENDIF}
+  {$IFDEF FPC}uROIDETools_laz{$ELSE}ShellAPI{$ENDIF};
+
+{$IFNDEF FPC}
+{$R *.dfm}
+{$ENDIF}
+
+
+{ TProductVersionInfoForm }
+
+procedure TProductVersionInfoForm.LoadFromInfo(iInfo: TProductInfoArray);
+var
+  i:integer;
+begin
+  for i := 0 to iInfo.Count-1 do begin
+    with lv_Info.Items.Add do begin
+      Caption := iInfo[i].Name;
+      SubItems.Add(iInfo[i].Version);
+      SubItems.Add(DateToStr(iInfo[i].Date));
+      SubItems.Add(iInfo[i].Url);
+    end;
+    if (lv_Info.Items.Count > 0) then lv_Info.Selected := lv_Info.Items[0];
+  end;
+end;
+
+procedure TProductVersionInfoForm.btn_ShowDetailsClick(Sender: TObject);
+begin
+  if Assigned(lv_Info.Selected) then
+    {$IFDEF FPC}
+    RO_ShellExecute
+    {$ELSE}
+    ShellExecute
+    {$ENDIF}(Handle,'open',pChar(lv_Info.Selected.SubItems[2]),nil,nil,SW_SHOWNORMAL);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I uROProductVersionInfoForm.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfo_Intf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfo_Intf.pas
new file mode 100644
index 0000000..8d450a8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROProductVersionInfo_Intf.pas	
@@ -0,0 +1,787 @@
+unit uROProductVersionInfo_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClient, uROTypes, uROClientIntf;
+
+const
+  LibraryUID = '{5CC581CD-7668-485C-A064-8005B23FDE09}';
+
+  IProductVersionInfo_IID : TGUID = '{E733F99C-DEC6-45F9-ACBD-B93A9D35E924}';
+
+type
+  { Forward declarations }
+  IProductVersionInfo = interface;
+  TProductInfoRequestArray = class;
+  TProductInfoArray = class;
+  TProductArray = class;
+  TProductInfo = class;
+  TProductInfoRequest = class;
+  TProduct = class;
+
+  { TProductInfo }
+  TProductInfo = class(TROComplexType)
+  private
+    fProductVersionID:String;
+    fName:String;
+    fVersion:String;
+    fInfo:String;
+    fUrl:String;
+    fBeta:Boolean;
+    fTrial:Boolean;
+    fFinal:Boolean;
+    fPaid:Boolean;
+    fDate:DateTime;
+  public
+    procedure Assign(iSource:TPersistent); override;
+  published
+    property ProductVersionID:String read fProductVersionID write fProductVersionID;
+    property Name:String read fName write fName;
+    property Version:String read fVersion write fVersion;
+    property Info:String read fInfo write fInfo;
+    property Url:String read fUrl write fUrl;
+    property Beta:Boolean read fBeta write fBeta;
+    property Trial:Boolean read fTrial write fTrial;
+    property Final:Boolean read fFinal write fFinal;
+    property Paid:Boolean read fPaid write fPaid;
+    property Date:DateTime read fDate write fDate;
+  end;
+
+  { TProductInfoCollection }
+  TProductInfoCollection = class(TCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(Index: integer): TProductInfo;
+    procedure SetItems(Index: integer; const Value: TProductInfo);
+  public
+    constructor Create; overload;
+    function Add: TProductInfo; reintroduce;
+    procedure SaveToArray(anArray : TProductInfoArray);
+    procedure LoadFromArray(anArray : TProductInfoArray);
+    property Items[Index : integer] : TProductInfo read GetItems write SetItems; default;
+  end;
+
+  { TProductInfoRequest }
+  TProductInfoRequest = class(TROComplexType)
+  private
+    fProductID:String;
+    fCurrentBuild:Integer;
+    fTrialOnly:Boolean;
+    fBetasToo:Boolean;
+  public
+    procedure Assign(iSource:TPersistent); override;
+  published
+    property ProductID:String read fProductID write fProductID;
+    property CurrentBuild:Integer read fCurrentBuild write fCurrentBuild;
+    property TrialOnly:Boolean read fTrialOnly write fTrialOnly;
+    property BetasToo:Boolean read fBetasToo write fBetasToo;
+  end;
+
+  { TProductInfoRequestCollection }
+  TProductInfoRequestCollection = class(TCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(Index: integer): TProductInfoRequest;
+    procedure SetItems(Index: integer; const Value: TProductInfoRequest);
+  public
+    constructor Create; overload;
+    function Add: TProductInfoRequest; reintroduce;
+    procedure SaveToArray(anArray : TProductInfoRequestArray);
+    procedure LoadFromArray(anArray : TProductInfoRequestArray);
+    property Items[Index : integer] : TProductInfoRequest read GetItems write SetItems; default;
+  end;
+
+  { TProduct }
+  TProduct = class(TROComplexType)
+  private
+    fProductID:String;
+    fName:String;
+  public
+    procedure Assign(iSource:TPersistent); override;
+  published
+    property ProductID:String read fProductID write fProductID;
+    property Name:String read fName write fName;
+  end;
+
+  { TProductCollection }
+  TProductCollection = class(TCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(Index: integer): TProduct;
+    procedure SetItems(Index: integer; const Value: TProduct);
+  public
+    constructor Create; overload;
+    function Add: TProduct; reintroduce;
+    procedure SaveToArray(anArray : TProductArray);
+    procedure LoadFromArray(anArray : TProductArray);
+    property Items[Index : integer] : TProduct read GetItems write SetItems; default;
+  end;
+
+  { TProductInfoRequestArray }
+  TProductInfoRequestArray = class(TROArray)
+  private
+    fItems : array of TProductInfoRequest;
+  protected
+    function GetItems(Index : integer) : TProductInfoRequest;
+    procedure SetItems(Index : integer; const Value : TProductInfoRequest);
+    function GetCount : integer; override;
+  public
+    class function GetItemType : PTypeInfo; override;
+    class function GetItemClass : TClass; override;
+    class function GetItemSize : integer; override;
+    function GetItemRef(Index : integer) : pointer; override;
+    procedure SetItemRef(Index: integer; Ref : pointer); override;
+    procedure Clear; override;
+    procedure Delete(Index : integer); override;
+    procedure Resize(ElementCount : integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    function Add:TProductInfoRequest; overload;
+    function Add(const Value:TProductInfoRequest):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index : integer] : TProductInfoRequest read GetItems write SetItems; default;
+  end;
+
+  { TProductInfoArray }
+  TProductInfoArray = class(TROArray)
+  private
+    fItems : array of TProductInfo;
+  protected
+    function GetItems(Index : integer) : TProductInfo;
+    procedure SetItems(Index : integer; const Value : TProductInfo);
+    function GetCount : integer; override;
+  public
+    class function GetItemType : PTypeInfo; override;
+    class function GetItemClass : TClass; override;
+    class function GetItemSize : integer; override;
+    function GetItemRef(Index : integer) : pointer; override;
+    procedure SetItemRef(Index: integer; Ref : pointer); override;
+    procedure Clear; override;
+    procedure Delete(Index : integer); override;
+    procedure Resize(ElementCount : integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    function Add:TProductInfo; overload;
+    function Add(const Value:TProductInfo):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index : integer] : TProductInfo read GetItems write SetItems; default;
+  end;
+
+  { TProductArray }
+  TProductArray = class(TROArray)
+  private
+    fItems : array of TProduct;
+  protected
+    function GetItems(Index : integer) : TProduct;
+    procedure SetItems(Index : integer; const Value : TProduct);
+    function GetCount : integer; override;
+  public
+    class function GetItemType : PTypeInfo; override;
+    class function GetItemClass : TClass; override;
+    class function GetItemSize : integer; override;
+    function GetItemRef(Index : integer) : pointer; override;
+    procedure SetItemRef(Index: integer; Ref : pointer); override;
+    procedure Clear; override;
+    procedure Delete(Index : integer); override;
+    procedure Resize(ElementCount : integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    function Add:TProduct; overload;
+    function Add(const Value:TProduct):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index : integer] : TProduct read GetItems write SetItems; default;
+  end;
+
+  { IProductVersionInfo }
+  IProductVersionInfo = interface
+    ['{E733F99C-DEC6-45F9-ACBD-B93A9D35E924}']
+    function GetProducts: TProductArray;
+    function GetProductVersions(const iProducts: TProductInfoRequestArray): TProductInfoArray;
+  end;
+
+  { CoIProductVersionInfo }
+  CoIProductVersionInfo = class
+    class function Create(const aMessage : IROMessage; aTransportChannel : IROTransportChannel) : IProductVersionInfo;
+  end;
+
+  TIProductVersionInfo_Proxy = class(TROProxy, IProductVersionInfo)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetProducts: TProductArray;
+    function GetProductVersions(const iProducts: TProductInfoRequestArray): TProductInfoArray;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROClasses, uRORes;
+
+{ TProductInfoRequestArray }
+
+procedure TProductInfoRequestArray.Assign(iSource:TPersistent); 
+var lSource:TProductInfoRequestArray;
+    i:integer;
+begin
+  if (iSource is TProductInfoRequestArray) then begin
+    lSource := TProductInfoRequestArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i] := lSource.Items[i].Clone() as TProductInfoRequest;
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TProductInfoRequestArray.GetItemType : PTypeInfo;
+begin
+  result := TypeInfo(TProductInfoRequest);
+end;
+
+class function TProductInfoRequestArray.GetItemClass : TClass;
+begin
+  result := TProductInfoRequest;
+end;
+
+class function TProductInfoRequestArray.GetItemSize : integer;
+begin
+  result := SizeOf(TProductInfoRequest);
+end;
+
+function TProductInfoRequestArray.GetItems(Index : integer) : TProductInfoRequest;
+begin
+  if (Index < 0) or (Index >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[Index]);
+  result := fItems[Index];
+end;
+
+function TProductInfoRequestArray.GetItemRef(Index : integer) : pointer;
+begin
+  result := fItems[Index];
+end;
+
+procedure TProductInfoRequestArray.SetItemRef(Index: integer; Ref : pointer);
+begin
+  fItems[Index] := ref
+end;
+
+procedure TProductInfoRequestArray.Clear;
+var i : integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free;
+  SetLength(fItems, 0);
+end;
+
+procedure TProductInfoRequestArray.Delete(Index : integer);
+var i : integer;
+begin
+  if (Index>=Count) then RaiseError(err_InvalidIndex, [Index]);
+
+  fItems[Index].Free;
+
+  if (Index<Count-1) then
+    for i := Index to Count-1 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1)
+end;
+
+procedure TProductInfoRequestArray.SetItems(Index : integer; const Value : TProductInfoRequest);
+begin
+  fItems[Index] := Value;
+end;
+
+procedure TProductInfoRequestArray.Resize(ElementCount : integer);
+begin
+  SetLength(fItems, ElementCount);
+end;
+
+function TProductInfoRequestArray.GetCount: integer;
+begin
+  result := Length(fItems);
+end;
+
+function TProductInfoRequestArray.Add:TProductInfoRequest;
+begin
+  result := TProductInfoRequest.Create;
+  SetLength(fItems, Length(fItems)+1);
+  fItems[Length(fItems)-1] := result;
+end;
+
+function TProductInfoRequestArray.Add(const Value:TProductInfoRequest):integer;
+begin
+  SetLength(fItems, Length(fItems)+1);
+  result := Length(fItems)-1;
+  fItems[result] := Value;
+end;
+
+{ TProductInfoArray }
+
+procedure TProductInfoArray.Assign(iSource:TPersistent); 
+var lSource:TProductInfoArray;
+    i:integer;
+begin
+  if (iSource is TProductInfoArray) then begin
+    lSource := TProductInfoArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i] := lSource.Items[i].Clone() as TProductInfo;
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TProductInfoArray.GetItemType : PTypeInfo;
+begin
+  result := TypeInfo(TProductInfo);
+end;
+
+class function TProductInfoArray.GetItemClass : TClass;
+begin
+  result := TProductInfo;
+end;
+
+class function TProductInfoArray.GetItemSize : integer;
+begin
+  result := SizeOf(TProductInfo);
+end;
+
+function TProductInfoArray.GetItems(Index : integer) : TProductInfo;
+begin
+  if (Index < 0) or (Index >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[Index]);
+  result := fItems[Index];
+end;
+
+function TProductInfoArray.GetItemRef(Index : integer) : pointer;
+begin
+  result := fItems[Index];
+end;
+
+procedure TProductInfoArray.SetItemRef(Index: integer; Ref : pointer);
+begin
+  fItems[Index] := ref
+end;
+
+procedure TProductInfoArray.Clear;
+var i : integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free;
+  SetLength(fItems, 0);
+end;
+
+procedure TProductInfoArray.Delete(Index : integer);
+var i : integer;
+begin
+  if (Index>=Count) then RaiseError(err_InvalidIndex, [Index]);
+
+  fItems[Index].Free;
+
+  if (Index<Count-1) then
+    for i := Index to Count-1 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1)
+end;
+
+procedure TProductInfoArray.SetItems(Index : integer; const Value : TProductInfo);
+begin
+  fItems[Index] := Value;
+end;
+
+procedure TProductInfoArray.Resize(ElementCount : integer);
+begin
+  SetLength(fItems, ElementCount);
+end;
+
+function TProductInfoArray.GetCount: integer;
+begin
+  result := Length(fItems);
+end;
+
+function TProductInfoArray.Add:TProductInfo;
+begin
+  result := TProductInfo.Create;
+  SetLength(fItems, Length(fItems)+1);
+  fItems[Length(fItems)-1] := result;
+end;
+
+function TProductInfoArray.Add(const Value:TProductInfo):integer;
+begin
+  SetLength(fItems, Length(fItems)+1);
+  result := Length(fItems)-1;
+  fItems[result] := Value;
+end;
+
+{ TProductArray }
+
+procedure TProductArray.Assign(iSource:TPersistent); 
+var lSource:TProductArray;
+    i:integer;
+begin
+  if (iSource is TProductArray) then begin
+    lSource := TProductArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i] := lSource.Items[i].Clone() as TProduct;
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TProductArray.GetItemType : PTypeInfo;
+begin
+  result := TypeInfo(TProduct);
+end;
+
+class function TProductArray.GetItemClass : TClass;
+begin
+  result := TProduct;
+end;
+
+class function TProductArray.GetItemSize : integer;
+begin
+  result := SizeOf(TProduct);
+end;
+
+function TProductArray.GetItems(Index : integer) : TProduct;
+begin
+  if (Index < 0) or (Index >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[Index]);
+  result := fItems[Index];
+end;
+
+function TProductArray.GetItemRef(Index : integer) : pointer;
+begin
+  result := fItems[Index];
+end;
+
+procedure TProductArray.SetItemRef(Index: integer; Ref : pointer);
+begin
+  fItems[Index] := ref
+end;
+
+procedure TProductArray.Clear;
+var i : integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free;
+  SetLength(fItems, 0);
+end;
+
+procedure TProductArray.Delete(Index : integer);
+var i : integer;
+begin
+  if (Index>=Count) then RaiseError(err_InvalidIndex, [Index]);
+
+  fItems[Index].Free;
+
+  if (Index<Count-1) then
+    for i := Index to Count-1 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1)
+end;
+
+procedure TProductArray.SetItems(Index : integer; const Value : TProduct);
+begin
+  fItems[Index] := Value;
+end;
+
+procedure TProductArray.Resize(ElementCount : integer);
+begin
+  SetLength(fItems, ElementCount);
+end;
+
+function TProductArray.GetCount: integer;
+begin
+  result := Length(fItems);
+end;
+
+function TProductArray.Add:TProduct;
+begin
+  result := TProduct.Create;
+  SetLength(fItems, Length(fItems)+1);
+  fItems[Length(fItems)-1] := result;
+end;
+
+function TProductArray.Add(const Value:TProduct):integer;
+begin
+  SetLength(fItems, Length(fItems)+1);
+  result := Length(fItems)-1;
+  fItems[result] := Value;
+end;
+
+{ TProductInfo }
+
+procedure TProductInfo.Assign(iSource:TPersistent); 
+var lSource:TProductInfo;
+begin
+  inherited Assign(iSource);
+  if (iSource is TProductInfo) then begin
+    lSource := iSource as TProductInfo;
+    ProductVersionID := lSource.ProductVersionID;
+    Name := lSource.Name;
+    Version := lSource.Version;
+    Info := lSource.Info;
+    Url := lSource.Url;
+    Beta := lSource.Beta;
+    Trial := lSource.Trial;
+    Final := lSource.Final;
+    Paid := lSource.Paid;
+    Date := lSource.Date;
+  end;
+end;
+
+{ TProductInfoCollection }
+constructor TProductInfoCollection.Create;
+begin
+  inherited Create(TProductInfo);
+end;
+
+constructor TProductInfoCollection.Create(aItemClass:TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TProductInfoCollection.Add: TProductInfo;
+begin
+  result := TProductInfo(inherited Add);
+end;
+
+function TProductInfoCollection.GetItems(Index: integer): TProductInfo;
+begin
+  result := TProductInfo(inherited Items[Index]);
+end;
+
+procedure TProductInfoCollection.LoadFromArray(anArray: TProductInfoArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure TProductInfoCollection.SaveToArray(anArray: TProductInfoArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := TProductInfo.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure TProductInfoCollection.SetItems(Index: integer; const Value: TProductInfo);
+begin
+  TProductInfo(inherited Items[Index]).Assign(Value);
+end;
+
+{ TProductInfoRequest }
+
+procedure TProductInfoRequest.Assign(iSource:TPersistent); 
+var lSource:TProductInfoRequest;
+begin
+  inherited Assign(iSource);
+  if (iSource is TProductInfoRequest) then begin
+    lSource := iSource as TProductInfoRequest;
+    ProductID := lSource.ProductID;
+    CurrentBuild := lSource.CurrentBuild;
+    TrialOnly := lSource.TrialOnly;
+    BetasToo := lSource.BetasToo;
+  end;
+end;
+
+{ TProductInfoRequestCollection }
+constructor TProductInfoRequestCollection.Create;
+begin
+  inherited Create(TProductInfoRequest);
+end;
+
+constructor TProductInfoRequestCollection.Create(aItemClass:TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TProductInfoRequestCollection.Add: TProductInfoRequest;
+begin
+  result := TProductInfoRequest(inherited Add);
+end;
+
+function TProductInfoRequestCollection.GetItems(Index: integer): TProductInfoRequest;
+begin
+  result := TProductInfoRequest(inherited Items[Index]);
+end;
+
+procedure TProductInfoRequestCollection.LoadFromArray(anArray: TProductInfoRequestArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure TProductInfoRequestCollection.SaveToArray(anArray: TProductInfoRequestArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := TProductInfoRequest.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure TProductInfoRequestCollection.SetItems(Index: integer; const Value: TProductInfoRequest);
+begin
+  TProductInfoRequest(inherited Items[Index]).Assign(Value);
+end;
+
+{ TProduct }
+
+procedure TProduct.Assign(iSource:TPersistent); 
+var lSource:TProduct;
+begin
+  inherited Assign(iSource);
+  if (iSource is TProduct) then begin
+    lSource := iSource as TProduct;
+    ProductID := lSource.ProductID;
+    Name := lSource.Name;
+  end;
+end;
+
+{ TProductCollection }
+constructor TProductCollection.Create;
+begin
+  inherited Create(TProduct);
+end;
+
+constructor TProductCollection.Create(aItemClass:TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TProductCollection.Add: TProduct;
+begin
+  result := TProduct(inherited Add);
+end;
+
+function TProductCollection.GetItems(Index: integer): TProduct;
+begin
+  result := TProduct(inherited Items[Index]);
+end;
+
+procedure TProductCollection.LoadFromArray(anArray: TProductArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure TProductCollection.SaveToArray(anArray: TProductArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := TProduct.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure TProductCollection.SetItems(Index: integer; const Value: TProduct);
+begin
+  TProduct(inherited Items[Index]).Assign(Value);
+end;
+
+{ CoIProductVersionInfo }
+
+class function CoIProductVersionInfo.Create(const aMessage : IROMessage; aTransportChannel : IROTransportChannel) : IProductVersionInfo;
+begin
+  result := TIProductVersionInfo_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TIProductVersionInfo_Proxy }
+
+function TIProductVersionInfo_Proxy.__GetInterfaceName:string;
+begin
+  result := 'IProductVersionInfo';
+end;
+
+function TIProductVersionInfo_Proxy.GetProducts: TProductArray;
+begin
+  try
+     __Message.InitializeRequestMessage(__TransportChannel, 'uROProductVersionInfo', __InterfaceName, 'GetProducts');
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('Result', TypeInfo(uROProductVersionInfo_Intf.TProductArray), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TIProductVersionInfo_Proxy.GetProductVersions(const iProducts: TProductInfoRequestArray): TProductInfoArray;
+begin
+  try
+     __Message.InitializeRequestMessage(__TransportChannel, 'uROProductVersionInfo', __InterfaceName, 'GetProductVersions');
+     __Message.Write('iProducts', TypeInfo(uROProductVersionInfo_Intf.TProductInfoRequestArray), iProducts, []);
+     __Message.Finalize;
+
+     __TransportChannel.Dispatch(__Message);
+
+     __Message.Read('Result', TypeInfo(uROProductVersionInfo_Intf.TProductInfoArray), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TProductInfo);
+  RegisterROClass(TProductInfoRequest);
+  RegisterROClass(TProduct);
+  RegisterROClass(TProductInfoRequestArray);
+  RegisterROClass(TProductInfoArray);
+  RegisterROClass(TProductArray);
+  RegisterProxyClass(IProductVersionInfo_IID, TIProductVersionInfo_Proxy);
+
+finalization
+  UnregisterROClass(TProductInfo);
+  UnregisterROClass(TProductInfoRequest);
+  UnregisterROClass(TProduct);
+  UnregisterROClass(TProductInfoRequestArray);
+  UnregisterROClass(TProductInfoArray);
+  UnregisterROClass(TProductArray);
+  UnregisterProxyClass(IProductVersionInfo_IID);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uRORODLNotifier.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uRORODLNotifier.pas
new file mode 100644
index 0000000..464ade1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uRORODLNotifier.pas	
@@ -0,0 +1,654 @@
+unit uRORODLNotifier;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF FPC}
+  LazIDEIntf, ProjectIntf, uROIDETools_laz,SrcEditorIntf,
+  {$ELSE}
+  ToolsApi, uROIDETools,
+  {$ENDIF}
+  Classes;
+
+type
+  TROUnitType = (utIntf, utInvk, utImpl, utAsync, utRes);
+  TROUnitTypes = set of TROUnitType;
+
+
+  { TRORODLNotifier }
+  {$IFDEF FPC}
+  IOTAProject = TLazProject;
+  IOTAModule = TLazProjectFile;
+  
+  TRORODLNotifier = class
+  {$ELSE}
+  TRORODLNotifier = class(TNotifierObject, IOTAIDENotifier, IOTAIDENotifier50)
+  {$ENDIF}
+  private
+    fMessages : TIDEMessageList;
+
+  protected
+  {$IFNDEF FPC}
+    procedure FileNotification(NotifyCode: TOTAFileNotification;
+      const FileName: string; var Cancel: Boolean);
+
+    procedure AfterCompile(Succeeded: Boolean); overload;
+    procedure BeforeCompile(const Project: IOTAProject; var Cancel: Boolean); overload;
+    procedure AfterCompile(Succeeded: Boolean; IsCodeInsight: Boolean); overload;
+  {$ENDIF}
+
+  public
+    procedure BeforeCompile(const Project: IOTAProject; IsCodeInsight: Boolean; var Cancel: Boolean); overload;
+    procedure GenerateUnits(const aProject: IOTAProject; aTypes: TROUnitTypes);
+    constructor Create;
+    destructor Destroy; override;
+  {$IFDEF FPC}
+    property Messages: TIDEMessageList read fMessages;
+  {$ENDIF}
+  end;
+
+function ProcessProject(const Project: IOTAProject; aMessageList : TIDEMessageList; aRegenerateAsyncIfPresent: Boolean = False; aTypes: TROUnitTypes = [utIntf, utInvk, utImpl, utRes]) : boolean;
+
+procedure Register;
+
+implementation
+{$IFDEF MSWINDOWS}
+{$WARN SYMBOL_PLATFORM OFF}
+{$ENDIF}
+
+uses
+  Controls, SysUtils, Dialogs,
+  uRODLGenTools, uRORes, uROServer, uROClasses,uRODLToXML, uRODL,
+  uRODLConvertersUtils,
+  {.$IFNDEF REMOBJECTS_CODEGEN2}
+  uRODLToPascalInvk, uRODLToPascalIntf, uRODLToPascalImpl, uRODLToPascalAsync,
+  {.$ENDIF}
+  {$IFDEF FPC}
+  uEWMenuManager_laz, uEWOTAHelpers_laz,
+  {$ELSE}
+  uEWMenuManager, uEWOTAHelpers,
+  {$ENDIF}
+  fCustomIDEMessagesForm, fROServerClassForm;
+
+{$IFNDEF FPC}
+var
+  notifieridx : integer = -1;
+{$ENDIF}
+
+procedure Register;
+begin
+  {$IFNDEF FPC}
+  notifieridx := Services.AddNotifier(TRORODLNotifier.Create);
+  {$ENDIF}
+end;
+
+procedure RemoveNotifier;
+begin
+  {$IFNDEF FPC}
+  if (notifieridx<>-1)
+    then Services.RemoveNotifier(notifieridx);
+  {$ENDIF FPC}
+end;
+
+{ RODL file processing }
+
+function ProcessProject(const Project: IOTAProject; aMessageList : TIDEMessageList; aRegenerateAsyncIfPresent: Boolean = False;  aTypes: TROUnitTypes = [utIntf, utInvk, utImpl, utRes]) : boolean;
+
+    {$IFDEF FPC}
+    function GetRelativeFileName(AFileName: string): string;
+    begin
+      Result := ExtractRelativepath(IncludeTrailingPathDelimiter(ExtractFileDir(Project.MainFile.Filename)),aFileName);
+    end;
+
+    procedure AddFileIntoProject(AFileName: string);
+    var
+      lunit : TLazProjectFile;
+      i: integer;
+    begin
+      for i:= 0 to Project.FileCount -1 do begin
+        if CompareText(Project.Files[i].Filename,aFileName)=0 then begin
+          Project.Files[i].IsPartOfProject := True;
+          Project.AddFile(Project.Files[i],True);
+          exit;
+        end;
+      end;
+      lunit:= Project.CreateProjectFile(AFileName);
+      Project.AddFile(lUnit,True);
+      lunit.IsPartOfProject := True;
+      Project.Modified:=True;
+      Project.SessionModified:=True;
+    end;
+    {$ENDIF}
+
+
+    {$IFNDEF REMOBJECTS_CODEGEN2}
+    function GenUnit(aConverterClass : TRODLConverterClass; aLibrary : TRODLLibrary; aShortRodlFilename: string; aService : TRODLService = nil; SkipIfPresent : boolean = FALSE) : boolean; overload;
+    var
+      conv : TRODLConverter;
+      lAttributes: Integer;
+      lServiceName: string;
+      unitname : string;
+      module : IOTAModule;
+      clsnme, requnits : string;
+      passaveaborted : boolean;
+    begin
+      result := FALSE;
+
+      conv := NIL;
+      try
+        conv := aConverterClass.Create(NIL);
+
+        if Assigned(aService) then lServiceName := aService.Info.Name else lServiceName := '';
+        {$IFDEF FPC}
+        unitname := ExtractFilePath(Project.MainFile.Filename)+conv.GetTargetFileName(aLibrary, lServiceName);
+        {$ELSE}
+        unitname := ExtractFilePath(Project.FileName)+conv.GetTargetFileName(aLibrary, lServiceName);
+        {$ENDIF}
+
+        // Checks the module is already in the project
+        try
+          module := FindModuleByUnitName(Project, unitname);
+        except
+          on E:EFOpenError do module := nil;
+          else raise;
+        end;
+        // If it is and the file is not supposed to be regenerated just exists
+        if (module<>NIL) and SkipIfPresent then begin
+          aMessageList.Add(mWarning, aShortRodlFilename+': Skipping regeneration of unit '+ExtractFileName(unitname));
+          result := TRUE;
+          Exit;
+        end
+        else if (conv is TRODLToImpl) and (aService.Ancestor='') then begin
+          if not SelectROServerClassType(lServiceName, clsnme, requnits) then Abort;
+          TRODLToImpl(conv).ServerClassName := clsnme;
+          TRODLToImpl(conv).RequiredUnits := requnits;
+        end;
+
+        if FileExists(unitname) then begin
+          lAttributes := FileGetAttr(unitname);
+          if (lAttributes and faReadOnly) = faReadOnly then begin
+            //case MessageDlg(Format('%s is readonly, overwrite anyway?',[ExtractFileName(unitname)]),
+            case MessageDlg(Format('%s is readonly and cannot be regenerated.',[ExtractFileName(unitname)]),
+                          mtConfirmation, [{mbYes, mbYesToAll} mbCancel, mbIgnore], 0) of
+              mrCancel: Abort();
+              mrIgnore: begin
+                  result := true;
+                  exit;
+                end;
+              mrYes: begin
+                  FileSetAttr(unitname, lAttributes xor faReadOnly);
+                  //ToDo: need to turn buffer non-readonly, too.
+                  exit;
+                end;
+              mrYesToAll: //ToDo.
+            end;
+          end;
+        end;
+
+        // Converts the RODL file
+        {$IFDEF FPC}
+        if (conv is TRODLToImpl) then TRODLToImpl(conv).DFMExtension:='.lfm';
+        {$ENDIF}
+        conv.Convert(aLibrary, lServiceName);
+
+        if (module=NIL) then begin
+          // If not present adds it double checking for file existance if SkipIfPresent. It's for implementation
+          // units that might be there and have code already in but not be part of the DPR (for any weird reason)
+          passaveaborted := FALSE;
+          if SkipIfPresent and FileExists(unitname) then begin
+            case MessageDlg(
+              Format('Unit "%s" has been prepared but a file with the same name already exist in "%s".'#13+
+                     'Do you want to overwrite file %s?',
+                     [ExtractFileName(unitname), ExtractFilePath(unitname), ExtractFileName(unitname)]),
+                     mtWarning, [mbYes, mbNo, mbCancel], 0) of
+
+              mrCancel : Exit;
+              mrNo : passaveaborted := TRUE;
+              mrYes: { no-op};
+            end
+          end;
+
+          if not passaveaborted then begin
+            if conv is TRODLToImpl then
+                if TRODLToImpl(conv).WriteDataModule then
+                  TRODLToImpl(conv).WriteDFM(aLibrary, lServiceName, ChangeFileExt(unitname, TRODLToImpl(conv).DFMExtension));
+
+            conv.Buffer.SaveToFile(unitname);
+          end;
+
+
+          {$IFDEF FPC}
+          AddFileIntoProject(unitname);
+          if (aConverterClass=TRODLToImpl) and TRODLToImpl(conv).WriteDataModule then
+            AddFileIntoProject(ChangeFileExt(unitname, TRODLToImpl(conv).DFMExtension));
+          {$ELSE}
+          Project.AddFile(unitname, (aConverterClass=TRODLToImpl) and TRODLToImpl(conv).WriteDataModule);
+          {$ENDIF}
+
+
+          if (aConverterClass <> TRODLToInvk) then begin
+          {$IFDEF FPC}
+            if SourceEditorWindow.SourceEditorIntfWithFilename(unitname) <> nil then
+              SourceEditorWindow.SourceEditorIntfWithFilename(unitname).Lines.LoadFromFile(unitname)
+            else
+              LazarusIDE.DoOpenEditorFile(unitname,-1,[ofOnlyIfExists]);
+          {$ELSE}
+             ActionServices.OpenFile(unitname);
+          {$ENDIF}
+          end;
+
+        end
+        else begin
+          // Otherwise updates the source
+          WriteModuleSource(module, Trim(conv.Buffer.Text), '');
+        end;
+
+        if SkipIfPresent then
+          aMessageList.Add(mInfo, Format(aShortRodlFilename+': Implementation unit for service %s generated',
+                                         [lServiceName]));
+
+
+        result := TRUE;
+      finally
+        conv.Free;
+      end;
+    end;
+    {$ENDIF}
+
+    function GenerateFileName(aType: TROCodeGenType; aLibrary: TRODLLibrary; aService: TRODLService = nil):string;
+    var
+      lLanguage: TROCodeGenLanguage;
+    begin
+      lLanguage := CodeGenLanuageFromProjectPersonality(Project);
+      {$IFDEF FPC}
+      Result := ExtractFilePath(Project.MainFile.FileName)+GetTargetFileName(aLibrary, aService, aType, lLanguage);
+      {$ELSE}
+      Result := ExtractFilePath(Project.FileName)+GetTargetFileName(aLibrary, aService, aType, lLanguage);
+      {$ENDIF}
+    end;
+
+    function GenUnit(aType: TROCodeGenType; aLibrary : TRODLLibrary; aShortRodlFilename: string; aService : TRODLService = nil; SkipIfPresent : boolean = FALSE) : boolean; overload;
+    var
+      lAttributes: Integer;
+      lServiceName: string;
+      lLanguage: TROCodeGenLanguage;
+      lUnitname: string;
+      lModule : IOTAModule;
+      {$IFDEF FPC}
+      lunit : TLazProjectFile;
+      {$ENDIF}
+      lClassname, lRequiredUnits: string;
+      lCodeStream, lHeaderStream: TStringStream;
+
+    begin
+      result := FALSE;
+
+      lLanguage := CodeGenLanuageFromProjectPersonality(Project);
+
+      if Assigned(aService) then lServiceName := aService.Info.Name else lServiceName := '';
+      lUnitname := GenerateFileName(aType, aLibrary, aService);
+
+      // Checks the module is already in the project
+      try
+        lModule := FindModuleByUnitName(Project, lUnitname);
+      except
+        on E:EFOpenError do lModule := nil;
+        else raise;
+      end;
+
+      // If it is and the file is not supposed to be regenerated just exists
+      if SkipIfPresent and assigned(lModule) then begin
+        aMessageList.Add(mWarning, aShortRodlFilename+': Skipping regeneration of unit '+ExtractFileName(lUnitname));
+        result := TRUE;
+        Exit;
+      end;
+      if SkipIfPresent and FileExists(lUnitname) then begin
+        case MessageDlg(Format('A unit named "%s" already exist, but is not part of the project.'#13+
+                                'Do you want to overwrite the file?', [ExtractFileName(lUnitname)]),
+                        mtWarning, [mbYes, mbNo, mbCancel], 0) of
+          mrCancel: Abort;
+          mrNo: begin
+              result := true;
+              Exit;
+            end;
+          mrYes: { no-op};
+        end
+      end;
+
+      lRequiredUnits := '';
+      lClassname := '';
+      if (aType = cgtImpl) and (aService.Ancestor='') then begin
+        if not SelectROServerClassType(lServiceName, lClassname, lRequiredUnits) then Abort;
+      end;
+
+      if FileExists(lUnitname) then begin
+        lAttributes := FileGetAttr(lUnitname);
+        if (lAttributes and faReadOnly) = faReadOnly then begin
+          //case MessageDlg(Format('%s is readonly, overwrite anyway?',[ExtractFileName(unitname)]),
+          case MessageDlg(Format('%s is readonly and cannot be regenerated.',[ExtractFileName(lUnitname)]),
+                        mtConfirmation, [{mbYes, mbYesToAll} mbCancel, mbIgnore], 0) of
+            mrCancel: Abort();
+            mrIgnore: begin
+                result := true;
+                exit;
+              end;
+            mrYes: begin
+                FileSetAttr(lUnitname, lAttributes xor faReadOnly);
+                //ToDo: need to turn buffer non-readonly, too.
+                exit;
+              end;
+            mrYesToAll: //ToDo.
+          end;
+        end;
+      end;
+
+      // Converts the RODL file
+      
+      if (not assigned(lModule)) or (lLanguage = cglCppBuilder) then begin // going via the Module doesn't work for .H files :(
+        GenerateUnitToFile(aLibrary, aService, aType, lLanguage, lClassname, ExtractFilePath(lUnitname) + GetTargetFileName(aLibrary, aService, aType, lLanguage), lRequiredUnits);
+
+        {$IFDEF FPC}
+        lunit:= Project.CreateProjectFile(lUnitName);
+        Project.AddFile(lUnit, False);
+        lUnit.IsPartOfProject := True;
+        {$ELSE}
+        Project.AddFile(lUnitname, true);
+        {$ENDIF}
+
+        if (aType <> cgtInvk) then
+        {$IFDEF FPC}
+          LazarusIDE.DoOpenEditorFile(lUnitName,-1,[ofOnlyIfExists]);
+        LazarusIDE.DoRevertEditorFile(lUnitName);
+        {$ELSE}
+          ActionServices.OpenFile(lUnitName);
+        ActionServices.ReloadFile(lUnitname);
+        {$ENDIF}
+      end
+      else begin
+        lCodeStream := TStringStream.Create('');
+        lHeaderStream := TStringStream.Create(''); // C++ only
+        GenerateUnitToStream(aLibrary, aService, aType, lLanguage, lCodeStream, lHeaderStream, lClassname, '', lRequiredUnits);
+        WriteModuleSource(lModule, Trim(lCodeStream.DataString), Trim(lHeaderStream.DataString));
+      end;
+
+      {if SkipIfPresent then
+        aMessageList.Add(mInfo, Format(aShortRodlFilename+': Implementation unit for service %s generated',
+                                       [lServiceName]));}
+
+      result := TRUE;
+    end;
+
+    procedure ProcessRodl(aFilename: string; aNested: boolean);
+    var
+      lShortRodlFilename: string;
+      lib : TRODLLibrary;
+      i : integer;
+    begin
+      if (aFileName = '') then exit;
+      if not FileExists(aFilename) then begin
+        aMessageList.Add(mError,Format('RODL file %s does not exist.',[aFilename]));
+        exit;
+      end;
+
+      lShortRodlFilename := ExtractFileName(aFilename);
+
+      // Processes RODL
+      lib := ReadRODLFromFile(TXMLToRODL, aFilename);
+      if aRegenerateAsyncIfPresent then
+        if FileExists(GenerateFileName(cgtAsync, lib)) then aTypes := aTypes + [utAsync];
+      try
+        //aMessageList.Add(mInfo, rodlname+' has been loaded');
+
+        {$IFNDEF REMOBJECTS_CODEGEN2}
+        if CodeGenLanuageFromProjectPersonality(Project) = cglCppBuilder then begin
+        {$ENDIF}
+
+          if utIntf in aTypes then begin
+            if not GenUnit(cgtIntf, lib, lShortRodlFilename) then begin
+              result := FALSE;
+              Exit;
+            end
+            else aMessageList.Add(mInfo, lShortRodlFilename+': Interface unit generated');
+          end;
+
+          if utAsync in aTypes then begin
+            if not GenUnit(cgtAsync, lib, lShortRodlFilename) then begin
+              result := FALSE;
+              Exit;
+            end
+            else aMessageList.Add(mInfo, lShortRodlFilename+': Async Interface unit generated');
+          end;
+
+          if utInvk in aTypes then begin
+            if not GenUnit(cgtInvk, lib, lShortRodlFilename) then begin
+              result := FALSE;
+              Exit;
+            end
+            else aMessageList.Add(mInfo, lShortRodlFilename+': Invoker unit generated');
+          end;
+
+          if utImpl in aTypes then begin
+            for i := 0 to (lib.ServiceCount-1) do if (not lib.Services[i].IsFromUsedRodl) then begin
+
+              if not GenUnit(cgtImpl, lib, lShortRodlFilename, lib.Services[i], true) then begin
+                result := FALSE;
+                Exit;
+              end
+            end;
+          end;
+
+        {$IFNDEF REMOBJECTS_CODEGEN2}
+        end
+        else begin
+
+          // Generates the units
+          if utIntf in aTypes then begin
+            if not GenUnit(TRODLToIntf, lib, lShortRodlFilename) then begin
+              result := FALSE;
+              Exit;
+            end
+            else aMessageList.Add(mInfo, lShortRodlFilename+': Interface unit generated');
+          end;
+
+          if utAsync in aTypes then begin
+            if not GenUnit(TRODLToPascalAsync, lib, lShortRodlFilename) then begin
+              result := FALSE;
+              Exit;
+            end
+            else aMessageList.Add(mInfo, lShortRodlFilename+': Async Interface unit generated');
+          end;
+
+          if utInvk in aTypes then begin
+            if not GenUnit(TRODLToInvk, lib, lShortRodlFilename) then begin
+              result := FALSE;
+              Exit;
+            end
+            else aMessageList.Add(mInfo, lShortRodlFilename+': Invoker unit generated');
+          end;
+
+          if utImpl in aTypes then begin
+            for i := 0 to (lib.ServiceCount-1) do if (not lib.Services[i].IsFromUsedRodl) then begin
+
+              if not GenUnit(TRODLToImpl, lib, lShortRodlFilename, lib.Services[i], true) then begin
+                result := FALSE;
+                Exit;
+              end
+            end;
+          end;
+
+        end;
+        {$ENDIF not REMOBJECTS_CODEGEN2}
+
+        for i := 0 to lib.UseCount-1 do begin
+          if (lib.Use[i].GenerateCode) then begin
+            if FileExists(ExpandVariables(lib.Use[i].RodlFile)) then
+              ProcessRodl(lib.Use[i].RodlFile, true)
+            else
+              ProcessRodl(lib.Use[i].AbsoluteRodlFile, true);
+          end;
+        end;
+
+        if (utRes in aTypes) and (not aNested) then begin
+
+          // flatten RODL if needed
+          if lib.UseCount > 0 then begin
+            aFilename := ExtractFilePath(aFilename)+'temp_'+NewStrippedGuidAsString()+'.rodl';
+
+            with TRODLToXML.Create(lib,true) do try
+              Buffer.SaveToFile(aFilename);
+              aMessageList.Add(mInfo,Format(lShortRodlFilename+': Flattening RODL to %s',[ExtractFileName(aFilename)]));
+            finally
+              Free;
+            end;
+          end;
+
+          // generate RES
+          if GenerateRESFromRODL(aFilename, aMessageList) then begin
+            aMessageList.Add(mInfo, lShortRodlFilename+': RODL resource generated.')
+          end
+          else begin
+            aMessageList.Add(mError, lShortRodlFilename+': RODL resource could not be generated.');
+            result := FALSE
+          end;
+
+          // delete temp file
+          if lib.UseCount > 0 then begin
+            DeleteFile(aFilename);
+          end;
+
+        end;
+
+      finally
+        FreeAndNil(lib);
+      end;
+    end;
+
+
+var prjname,
+    source,
+    rodlname : string;
+begin
+  {$IFDEF FPC}
+  aMessageList.FlushMessages;
+  {$ENDIF}
+  result := TRUE;
+
+  // Only processes DPRs
+  {$IFDEF FPC}
+    prjname := Project.MainFile.FileName;
+    if (CompareText(ExtractFileExt(prjname), '.lpr')<>0) then Exit;
+  {$ELSE}
+    prjname := Project.FileName;
+    {$IFDEF BDS}
+    if (CompareText(ExtractFileExt(prjname), '.bdsproj')<>0) and (CompareText(ExtractFileExt(prjname), '.dproj')<>0) and (CompareText(ExtractFileExt(prjname), '.cbproj')<>0) then Exit;
+    {$ELSE}
+    if (CompareText(ExtractFileExt(prjname), '.dpr')<>0) then Exit;
+    {$ENDIF}
+  {$ENDIF}
+
+  // Extract useful data and exists if the file does not reference a RODL file
+  source := ReadModuleSource({$IFDEF FPC}Project.MainFile{$ELSE}Project{$ENDIF});
+  rodlname := ExtractRODLFileName(source);
+
+  if (rodlname='') then exit
+  else if (ExtractFilePath(rodlname)='') then
+    rodlname := ExtractFilePath(prjname)+rodlname; // If there's no path specified assumes the file is in the DPR folder
+  try
+    ProcessRodl(rodlname, false);
+  finally
+    {$IFDEF FPC}
+    aMessageList.FlushMessages;
+    {$ENDIF}
+  end;
+end;
+
+{ TRORODLNotifier }
+{$IFNDEF FPC}
+procedure TRORODLNotifier.AfterCompile(Succeeded, IsCodeInsight: Boolean);
+begin
+end;
+
+procedure TRORODLNotifier.AfterCompile(Succeeded: Boolean);
+begin
+
+end;
+
+procedure TRORODLNotifier.BeforeCompile(const Project: IOTAProject;
+  var Cancel: Boolean);
+begin
+
+end;
+{$ENDIF FPC}
+
+procedure TRORODLNotifier.BeforeCompile(const Project: IOTAProject;
+  IsCodeInsight: Boolean; var Cancel: Boolean);
+begin
+  if IsCodeInsight then Exit;
+
+  fMessages.ClearMessages();
+
+  try
+    Cancel := not ProcessProject(Project, fMessages, True);
+  except
+    on E:Exception do begin
+      { mh: for some reason, this message doesn't get displayed. So let's add a message box too, for now. }
+      fMessages.Add(mInfo, E.Message);
+      Cancel := TRUE;
+      raise;
+    end;
+  end;
+
+  if Cancel then begin
+    DisplayIDEMessageForm := TRUE;
+  end;
+  if (fMessages.Count>0)
+    then fMessages.FlushMessages;
+end;
+
+procedure TRORODLNotifier.GenerateUnits(const aProject: IOTAProject; aTypes: TROUnitTypes);
+begin
+  ProcessProject(aProject, fMessages, False, aTypes);
+end;
+
+constructor TRORODLNotifier.Create;
+begin
+  fMessages := TIDEMessageList.Create(str_ProductName);
+end;
+
+destructor TRORODLNotifier.Destroy;
+begin
+  fMessages.Free;
+  inherited;
+end;
+{$IFNDEF FPC}
+procedure TRORODLNotifier.FileNotification(
+  NotifyCode: TOTAFileNotification; const FileName: string;
+  var Cancel: Boolean);
+begin
+
+end;
+{$ENDIF FPC}
+initialization
+
+finalization
+  RemoveNotifier;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROResWriter.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROResWriter.pas
new file mode 100644
index 0000000..f9e85d3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/IDE/uROResWriter.pas	
@@ -0,0 +1,60 @@
+unit uROResWriter;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$IFNDEF MSWINDOWS}
+{$I ../RemObjects.inc}
+{$ELSE}
+{$I ..\RemObjects.inc}
+{$ENDIF}
+
+interface
+uses
+  SysUtils, Classes;
+
+
+procedure WriteRES(InData, OutStream: TStream; const Name: WideString);
+
+implementation
+
+const
+  FirstEmptyResource: array[0..31] of Ansichar =
+  (#$00,#$00,#$00,#$00,#$20,#$00,#$00,#$00,#$FF,#$FF,#$00,#$00,#$FF,#$FF,#$00,
+  #$00,#$00,#$00,#$00,#$00,#$00,#$00,#$00,#$00,#$00,#$00,#$00,#$00,#$00,#$00,
+  #$00,#$00);
+procedure WriteRES(InData, OutStream: TStream; const Name: WideString);
+  procedure WriteStr(const s: ansistring);
+  begin
+    OutStream.Write(s[1], length(s));
+  end;
+  procedure WriteLong(l: Cardinal);
+  begin
+    OutStream.Write(l, 4);
+  end;
+begin
+  Outstream.Write(FirstEmptyResource, 32);
+  WriteLong(Indata.Size - Indata.Position); // Resource Size
+  WriteLong(32 + Length(Name) * 2); // Header Size
+  WriteLong($000AFFFF); // RT_RCDATA
+  OutStream.Write(Name[1], Length(Name) * 2);
+  WriteStr(#$00#$00); // Null terminater
+  if (Length(Name) * 2 + 2) mod 4 <> 0 then
+    WriteStr(#$00#$00); // extra 0 for dword alignment
+  WriteLong(0); // Data Version
+  WriteLong(0); // Flags + Language
+  WriteLong(0); // Resource Version
+  WriteLong(0); // Characteristics
+  OutStream.CopyFrom(Indata, Indata.Size - Indata.Position);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCipher.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCipher.pas
new file mode 100644
index 0000000..1389649
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCipher.pas	
@@ -0,0 +1,4126 @@
+{Copyright:      Hagen Reddmann  mailto:HaReddmann@AOL.COM
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        3.0,  Part I from Delphi Encryption Compendium  ( DEC Part I)
+                 Delphi 2-4, designed and testet under D3 & D4
+ Description:    Include a Selection of various RO_Cipher's (Encryption Algo)
+                 impl. Algo:
+                   Gost, Blowfish, IDEA, SAFER in 6 Types,
+                   SAFER-K40  (konvetional), SAFER-SK40 (with Keyscheduling),
+                   SAFER-K64, SAFER-SK64, SAFER-K128, SAFER-SK128,
+                   TEA, TEAN (TEA extended), SCOP, Q128, 3Way,
+                   Twofish, Shark, Square
+
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
+ * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+ * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+ * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+ * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+}
+
+unit uROCipher;
+
+interface
+
+{$I uROVer.inc}
+
+uses SysUtils, Classes, uRODECUtil, uROHash;
+
+const                                   {ErrorCode's for EROCipherException}
+  errGeneric        = 0;                {generic Error}
+  errInvalidKey     = 1;                {Decode Key is not correct}
+  errInvalidKeySize = 2;                {Size of the Key is too large}
+  errNotInitialized = 3;                {Methods Init() or InitKey() were not called}
+  errInvalidMACMode = 4;                {CalcMAC can't use cmECB, cmOFB}
+  errCantCalc       = 5;
+
+type
+  EROCipherException = class(Exception)
+  public
+    Errorcode: Integer;
+  end;
+
+  {all RO_Cipher Classes in this Unit, a good Selection}
+  TROCipher_Gost = class;
+  TROCipher_Blowfish = class;
+  TROCipher_IDEA = class;
+  TROCipher_SAFER = class;
+  TROCipher_SAFER_K40 = class;
+  TROCipher_SAFER_SK40 = class;
+  TROCipher_SAFER_K64 = class;
+  TROCipher_SAFER_SK64 = class;
+  TROCipher_SAFER_K128 = class;
+  TROCipher_SAFER_SK128 = class;
+  TROCipher_TEA = class;
+  TROCipher_TEAN = class;
+  TROCipher_SCOP = class;                 {Streamcipher}
+  TROCipher_Q128 = class;
+  TROCipher_3Way = class;
+  TROCipher_Twofish = class;
+  TROCipher_Shark = class;
+  TROCipher_Square = class;
+
+  TCipherMode = (cmCTS, cmCBC, cmCFB, cmOFB, cmECB, cmCTSMAC, cmCBCMAC, cmCFBMAC);
+  { the RO_Cipher Modes:
+    cmCTS     RO_Cipher Text Stealing, a Variant from cmCBC, but relaxes
+              the restriction that the DataSize must be a mulitply from BufSize,
+              this is the Defaultmode, fast and Bytewise
+    cmCBC     RO_Cipher Block Chaining
+    cmCFB     K-bit RO_Cipher Feedback, here is K = 8 -> 1 Byte
+    cmOFB     K-bit Output Feedback, here is K = 8 -> 1 Byte
+    cmECB *   Electronic Codebook, DataSize must be a multiply from BufSize
+
+    cmCTSMAC  Build a Message Authentication Code in cmCTS Mode
+    cmCBCMAC  Build a CBC-MAC
+    cmCFBMAC  Build a CFB-MAC
+  }
+
+  TROCipherClass = class of TROCipher;
+
+  TROCipher = class(TROProtection)
+  private
+    FMode: TCipherMode;
+    FHash: TROHash;
+    FHashClass: TROHashClass;
+    FKeySize: Integer;
+    FBufSize: Integer;
+    FUserSize: Integer;
+    FBuffer: Pointer;
+    FVector: Pointer;
+    FFeedback: Pointer;
+    FUser: Pointer;
+    FFlags: Integer;
+    function GetHash: TROHash;
+    procedure SetHashClass(Value: TROHashClass);
+    procedure InternalCodeStream(Source, Dest: TStream; DataSize: Integer; Encode: Boolean);
+    procedure InternalCodeFile(const Source, Dest: string; Encode: Boolean);
+  protected
+    function GetFlag(Index: Integer): Boolean;
+    procedure SetFlag(Index: Integer; Value: Boolean); virtual;
+    {used in method Init()}
+    procedure InitBegin(var Size: Integer);
+    procedure InitEnd(IVector: Pointer); virtual;
+    {must override}
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); virtual;
+    class function TestVector: Pointer; virtual;
+    {override TROProtection Methods}
+    procedure CodeInit(Action: TPAction); override;
+    procedure CodeDone(Action: TPAction); override;
+    procedure CodeBuf(var Buffer; const BufferSize: Integer; Action: TPAction); override;
+    {the encode function, must override}
+    procedure Encode(Data: Pointer); virtual;
+    {the decode function, must override}
+    procedure Decode(Data: Pointer); virtual;
+    {the individual Userdata and Buffer}
+    property User: Pointer read FUser;
+    property Buffer: Pointer read FBuffer;
+    property UserSize: Integer read FUserSize;
+  public
+    constructor Create(const Password: string; AProtection: TROProtection);
+    destructor Destroy; override;
+    class function MaxKeySize: Integer;
+    {performs a Test of correct work}
+    class function SelfTest: Boolean;
+    {initialization form the RO_Cipher}
+    procedure Init(const Key; Size: Integer; IVector: Pointer); virtual;
+    procedure InitKey(const Key: string; IVector: Pointer);
+    {reset the Feedbackregister with the actual IVector}
+    procedure Done; virtual;
+    {protect the security Data's, Feedback, Buffer, Vector etc.}
+    procedure Protect; virtual;
+
+    procedure EncodeBuffer(const Source; var Dest; DataSize: Integer);
+    procedure DecodeBuffer(const Source; var Dest; DataSize: Integer);
+    function EncodeString(const Source: string): string;
+    function DecodeString(const Source: string): string;
+    procedure EncodeFile(const Source, Dest: string);
+    procedure DecodeFile(const Source, Dest: string);
+    procedure EncodeStream(const Source, Dest: TStream; DataSize: Integer);
+    procedure DecodeStream(const Source, Dest: TStream; DataSize: Integer);
+
+    {calculate a MAC, Message Authentication Code, can be use in
+     cmCBCMAC, cmCTSMAC, cmCFBMAC Modes -> Dest is not modified, or
+     cmCBC, cmCTS, cmCFB Modes -> normal En/Decoding of Dest.}
+    function CalcMAC(Format: Integer): Ansistring;
+
+    {the RO_Cipher Mode = cmXXX}
+    property Mode: TCipherMode read FMode write FMode;
+    {the Current RO_Hash-Object, to build a Digest from InitKey()}
+    property RO_Hash: TROHash read GetHash;
+    {the Class of the RO_Hash-Object}
+    property HashClass: TROHashClass read FHashClass write SetHashClass;
+    {the maximal KeySize and BufSize (Size of Feedback, Buffer and Vector}
+    property KeySize: Integer read FKeySize;
+    property BufSize: Integer read FBufSize;
+
+    {Init() was called}
+    property Initialized: Boolean index 1 read GetFlag write SetFlag;
+    {the actual IVector, BufSize Bytes long}
+    property Vector: Pointer read FVector;
+    {the Feedback register, BufSize Bytes long}
+    property Feedback: Pointer read FFeedback;
+    {the Key is set from InitKey() and the RO_Hash.DigestKey^ include the encrypted RO_Hash-Key}
+    property HasHashKey: Boolean index 0 read GetFlag;
+  end;
+
+  // now the RO_Cipher's
+
+  TROCipher_Gost = class(TROCipher)         {russian RO_Cipher}
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Blowfish = class(TROCipher)
+  private
+    {$IFDEF UseASM}
+    {$IFNDEF 486GE}                     // no Support for <= CPU 386
+    procedure Encode386(Data: Pointer);
+    procedure Decode386(Data: Pointer);
+    {$ENDIF}
+    {$ENDIF}
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_IDEA = class(TROCipher)         {International Data Encryption Algorithm }
+  private
+    procedure RO_Cipher(Data, Key: PWordArray);
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TSAFERMode = (smDefault, smK40, smK64, smK128, smStrong, smSK40, smSK64, smSK128);
+  {smDefault                 Mode is build from KeyLength "Size"
+                             if Size <=  5 then is smK40 used
+                             if Size <=  8 then is smK64 used
+                             if Size <= 16 then is smK128 used
+   smK40       SAFER K-40    Keysize is 40bit  ->  5 Byte
+   smK64       SAFER K-64    Keysize is 64bit  ->  8 Byte
+   smK128      SAFER K-128   KeySize is 128bit -> 16 Byte
+   smStrong                  Mode is build from KeyLength "Size" and stronger as smDefault,
+                             if Size <=  5 then is smSK40 used
+                             if Size <=  8 then is smSK64 used
+                             if Size <= 16 then is smSK128 used
+                             this is the Defaultmode for TROCipher_SAFER
+   smSK40      SAFER SK-40   stronger Version from K-40 with better Keyscheduling
+   smSK64      SAFER SK-64   stronger Version from K-64 with better Keyscheduling
+   smSK128     SAFER SK-128  stronger Version from K-128 with better Keyscheduling}
+
+  TROCipher_SAFER = class(TROCipher)        {SAFER = Secure And Fast Encryption Routine}
+  private
+    FRounds: Integer;
+    FSAFERMode: TSAFERMode;
+    procedure SetRounds(Value: Integer);
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    procedure InitNew(const Key; Size: Integer; IVector: Pointer; SAFERMode: TSAFERMode);
+    property Rounds: Integer read FRounds write SetRounds;
+  end;
+
+  TROCipher_SAFER_K40 = class(TROCipher_SAFER)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_SAFER_SK40 = class(TROCipher_SAFER_K40)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_SAFER_K64 = class(TROCipher_SAFER)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_SAFER_SK64 = class(TROCipher_SAFER_K64)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_SAFER_K128 = class(TROCipher_SAFER)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_SAFER_SK128 = class(TROCipher_SAFER_K128)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_TEA = class(TROCipher)          {Tiny Encryption Algorithm}
+  private
+    FRounds: Integer;                   {16 - 32, default 16 is sufficient, 32 is ample}
+    procedure SetRounds(Value: Integer);
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    property Rounds: Integer read FRounds write SetRounds;
+  end;
+
+  TROCipher_TEAN = class(TROCipher_TEA)     {Tiny Encryption Algorithm, extended Version}
+  protected
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  end;
+
+  TROCipher_SCOP = class(TROCipher)         {Stream RO_Cipher in Blockmode}
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    procedure Done; override;
+  end;
+
+  TROCipher_Q128 = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_3Way = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Twofish = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Shark = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Square = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+function DefaultCipherClass: TROCipherClass;
+procedure SetDefaultCipherClass(CipherClass: TROCipherClass);
+procedure RaiseCipherException(const Errorcode: Integer; const Msg: string);
+function RegisterCipher(const ACipher: TROCipherClass; const aName, ADescription: string): Boolean;
+function UnregisterCipher(const ACipher: TROCipherClass): Boolean;
+function CipherList: TStrings;
+procedure CipherNames(List: TStrings);
+function GetCipherClass(const Name: string): TROCipherClass;
+function GetCipherName(CipherClass: TROCipherClass): string;
+
+const
+  CheckCipherKeySize: Boolean = False;
+  {set to True raises Exception when Size of the Key is too large, (Method Init())
+   otherwise will truncate the Key, default mode is False}
+
+implementation
+
+uses uRODECConst, Windows;
+
+{$I *.inc}
+{$I uROSquare.inc}
+
+const
+  FDefaultCipherClass: TROCipherClass = TROCipher_Blowfish;
+  FCipherList       : TStringList = nil;
+
+function DefaultCipherClass: TROCipherClass;
+begin
+  Result := FDefaultCipherClass;
+end;
+
+procedure SetDefaultCipherClass(CipherClass: TROCipherClass);
+begin
+  if CipherClass = nil then
+    FDefaultCipherClass := TROCipher_Blowfish
+  else
+    FDefaultCipherClass := CipherClass;
+end;
+
+procedure RaiseCipherException(const Errorcode: Integer; const Msg: string);
+var
+  e                 : EROCipherException;
+begin
+  e := EROCipherException.Create(Msg);
+  e.Errorcode := Errorcode;
+  raise e;
+end;
+
+function RegisterCipher(const ACipher: TROCipherClass; const aName, ADescription: string): Boolean;
+var
+  i                 : Integer;
+  S                 : string;
+begin
+  Result := False;
+  if ACipher = nil then
+    Exit;
+  S := Trim(aName);
+  if S = '' then
+  begin
+    S := ACipher.ClassName;
+    if S[1] = 'T' then
+      Delete(S, 1, 1);
+    i := Pos('_', S);
+    if i > 0 then
+      Delete(S, 1, i);
+  end;
+  S := S + '=' + ADescription;
+  i := CipherList.IndexOfObject(Pointer(ACipher));
+  if i < 0 then
+    CipherList.AddObject(S, Pointer(ACipher))
+  else
+    CipherList[i] := S;
+  Result := True;
+end;
+
+function UnregisterCipher(const ACipher: TROCipherClass): Boolean;
+var
+  i                 : Integer;
+begin
+  Result := False;
+  repeat
+    i := CipherList.IndexOfObject(Pointer(ACipher));
+    if i < 0 then
+      Break;
+    Result := True;
+    CipherList.Delete(i);
+  until False;
+end;
+
+function CipherList: TStrings;
+begin
+  if not IsObject(FCipherList, TStringList) then
+    FCipherList := TStringList.Create;
+  Result := FCipherList;
+end;
+
+procedure CipherNames(List: TStrings);
+var
+  i                 : Integer;
+begin
+  if not IsObject(List, TStrings) then
+    Exit;
+  for i := 0 to CipherList.Count - 1 do
+    List.AddObject(FCipherList.Names[i], FCipherList.Objects[i]);
+end;
+
+function GetCipherClass(const Name: string): TROCipherClass;
+var
+  i                 : Integer;
+  N                 : string;
+begin
+  Result := nil;
+  N := Name;
+  i := Pos('_', N);
+  if i > 0 then
+    Delete(N, 1, i);
+  for i := 0 to CipherList.Count - 1 do
+    if AnsiCompareText(N, GetShortClassName(TClass(FCipherList.Objects[i]))) = 0 then
+    begin
+      Result := TROCipherClass(FCipherList.Objects[i]);
+      Exit;
+    end;
+  i := FCipherList.IndexOfName(N);
+  if i >= 0 then
+    Result := TROCipherClass(FCipherList.Objects[i]);
+end;
+
+function GetCipherName(CipherClass: TROCipherClass): string;
+var
+  i                 : Integer;
+begin
+  i := CipherList.IndexOfObject(Pointer(CipherClass));
+  if i >= 0 then
+    Result := FCipherList.Names[i]
+  else
+    Result := GetShortClassName(CipherClass);
+end;
+
+function TROCipher.GetFlag(Index: Integer): Boolean;
+begin
+  Result := FFlags and (1 shl Index) <> 0;
+end;
+
+procedure TROCipher.SetFlag(Index: Integer; Value: Boolean);
+begin
+  Index := 1 shl Index;
+  if Value then
+    FFlags := FFlags or Index
+  else
+    FFlags := FFlags and not Index;
+end;
+
+procedure TROCipher.InitBegin(var Size: Integer);
+begin
+  Initialized := False;
+  Protect;
+  if Size < 0 then
+    Size := 0;
+  if Size > KeySize then
+    if not CheckCipherKeySize then
+      Size := KeySize
+    else
+      RaiseCipherException(errInvalidKeySize, Format(sInvalidKeySize, [ClassName, 0, KeySize]));
+end;
+
+procedure TROCipher.InitEnd(IVector: Pointer);
+begin
+  if IVector = nil then
+    Encode(Vector)
+  else
+    Move(IVector^, Vector^, BufSize);
+  Move(Vector^, Feedback^, BufSize);
+  Initialized := True;
+end;
+
+class procedure TROCipher.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 0;
+  AKeySize := 0;
+  AUserSize := 0;
+end;
+
+class function TROCipher.TestVector: Pointer;
+begin
+  Result := GetTestVector;
+end;
+
+procedure TROCipher.Encode(Data: Pointer);
+begin
+end;
+
+procedure TROCipher.Decode(Data: Pointer);
+begin
+end;
+
+constructor TROCipher.Create(const Password: string; AProtection: TROProtection);
+begin
+  inherited Create(AProtection);
+  FHashClass := DefaultHashClass;
+  GetContext(FBufSize, FKeySize, FUserSize);
+  GetMem(FVector, FBufSize);
+  GetMem(FFeedback, FBufSize);
+  GetMem(FBuffer, FBufSize);
+  GetMem(FUser, FUserSize);
+  Protect;
+  if Password <> '' then
+    InitKey(Password, nil);
+end;
+
+destructor TROCipher.Destroy;
+begin
+  Protect;
+  ReallocMem(FVector, 0);
+  ReallocMem(FFeedback, 0);
+  ReallocMem(FBuffer, 0);
+  ReallocMem(FUser, 0);
+  FHash.release;
+  FHash := nil;
+  inherited Destroy;
+end;
+
+class function TROCipher.MaxKeySize: Integer;
+var
+  Dummy             : Integer;
+begin
+  GetContext(Dummy, Result, Dummy);
+end;
+
+class function TROCipher.SelfTest: Boolean;
+var
+  Data              : array[0..63] of Char;
+  Key               : string;
+  SaveKeyCheck      : Boolean;
+begin
+  Result := InitTestIsOk;               {have anonyme modified the testvectors ?}
+  {we will use the ClassName as Key :-)}
+  Key := ClassName;
+  SaveKeyCheck := CheckCipherKeySize;
+  with Self.Create('', nil) do
+  try
+    CheckCipherKeySize := False;
+    Mode := cmCTS;
+    Init(PChar(Key)^, Length(Key), nil);
+    EncodeBuffer(GetTestVector^, Data, 32);
+    Result := Result and (MemCompare(TestVector, @Data, 32) = 0);
+    Done;
+    DecodeBuffer(Data, Data, 32);
+    Result := Result and (MemCompare(GetTestVector, @Data, 32) = 0);
+  finally
+    CheckCipherKeySize := SaveKeyCheck;
+    Free;
+  end;
+  FillChar(Data, SizeOf(Data), 0);
+end;
+
+procedure TROCipher.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+end;
+
+procedure TROCipher.InitKey(const Key: string; IVector: Pointer);
+var
+  i                 : Integer;
+begin
+  RO_Hash.Init;
+  RO_Hash.Calc(PChar(Key)^, Length(Key));
+  RO_Hash.Done;
+  i := RO_Hash.DigestKeySize;
+  if i > FKeySize then
+    i := FKeySize;                      {generaly will truncate to large Keys}
+
+  Init(RO_Hash.DigestKey^, i, IVector);
+  EncodeBuffer(RO_Hash.DigestKey^, RO_Hash.DigestKey^, RO_Hash.DigestKeySize);
+  Done;
+  SetFlag(0, True);
+end;
+
+procedure TROCipher.Done;
+begin
+  if MemCompare(FVector, FFeedback, FBufSize) = 0 then
+    Exit;
+  Move(FFeedback^, FBuffer^, FBufSize);
+  Move(FVector^, FFeedback^, FBufSize);
+end;
+
+procedure TROCipher.Protect;
+begin
+  SetFlag(0, False);
+  Initialized := False;
+  // a Crypto Fanatican say: this is better !!
+  FillChar(FVector^, FBufSize, $AA);
+  FillChar(FFeedback^, FBufSize, $AA);
+  FillChar(FBuffer^, FBufSize, $AA);
+  FillChar(FUser^, FUserSize, $AA);
+
+  FillChar(FVector^, FBufSize, $55);
+  FillChar(FFeedback^, FBufSize, $55);
+  FillChar(FBuffer^, FBufSize, $55);
+  FillChar(FUser^, FUserSize, $55);
+
+  FillChar(FVector^, FBufSize, $FF);
+  FillChar(FFeedback^, FBufSize, $FF);
+  FillChar(FBuffer^, FBufSize, 0);
+  FillChar(FUser^, FUserSize, 0);
+end;
+
+function TROCipher.GetHash: TROHash;
+begin
+  if not IsObject(FHash, TROHash) then
+  begin
+    if FHashClass = nil then
+      FHashClass := DefaultHashClass;
+    FHash := FHashClass.Create(nil);
+    FHash.AddRef;
+  end;
+  Result := FHash;
+end;
+
+procedure TROCipher.SetHashClass(Value: TROHashClass);
+begin
+  if Value <> FHashClass then
+  begin
+    FHash.release;
+    FHash := nil;
+    FHashClass := Value;
+    if FHashClass = nil then
+      FHashClass := DefaultHashClass;
+  end;
+end;
+
+procedure TROCipher.InternalCodeStream(Source, Dest: TStream; DataSize: Integer; Encode: Boolean);
+const
+  maxBufSize        = 1024 * 4;
+var
+  Buf               : PChar;
+  SPos              : Integer;
+  dPos              : Integer;
+  Len               : Integer;
+  Proc              : procedure(const Source; var Dest; DataSize: Integer) of object;
+  Size              : Integer;
+begin
+  if Source = nil then
+    Exit;
+  if Encode or (Mode in [cmCBCMAC, cmCTSMAC, cmCFBMAC]) then
+    Proc := EncodeBuffer
+  else
+    Proc := DecodeBuffer;
+  if Dest = nil then
+    Dest := Source;
+  if DataSize < 0 then
+  begin
+    DataSize := Source.Size;
+    Source.Position := 0;
+  end;
+  Buf := nil;
+  Size := DataSize;
+  DoProgress(Self, 0, Size);
+  try
+    Buf := AllocMem(maxBufSize);
+    dPos := Dest.Position;
+    SPos := Source.Position;
+    if Mode in [cmCTSMAC, cmCBCMAC, cmCFBMAC] then
+    begin
+      while DataSize > 0 do
+      begin
+        Len := DataSize;
+        if Len > maxBufSize then
+          Len := maxBufSize;
+        Len := Source.read(Buf^, Len);
+        if Len <= 0 then
+          Break;
+        Proc(Buf^, Buf^, Len);
+        Dec(DataSize, Len);
+        DoProgress(Self, Size - DataSize, Size);
+      end;
+    end
+    else
+      while DataSize > 0 do
+      begin
+        Source.Position := SPos;
+        Len := DataSize;
+        if Len > maxBufSize then
+          Len := maxBufSize;
+        Len := Source.read(Buf^, Len);
+        SPos := Source.Position;
+        if Len <= 0 then
+          Break;
+        Proc(Buf^, Buf^, Len);
+        Dest.Position := dPos;
+        Dest.Write(Buf^, Len);
+        dPos := Dest.Position;
+        Dec(DataSize, Len);
+        DoProgress(Self, Size - DataSize, Size);
+      end;
+  finally
+    DoProgress(Self, 0, 0);
+    ReallocMem(Buf, 0);
+  end;
+end;
+
+procedure TROCipher.InternalCodeFile(const Source, Dest: string; Encode: Boolean);
+var
+  S, d              : tfilestream;
+begin
+  S := nil;
+  d := nil;
+  try
+    if Mode in [cmCBCMAC, cmCTSMAC, cmCFBMAC] then
+    begin
+      S := tfilestream.Create(Source, fmOpenRead or fmShareDenyNone);
+      d := S;
+    end
+    else
+      if (AnsiCompareText(Source, Dest) <> 0) and (Trim(Dest) <> '') then
+      begin
+        S := tfilestream.Create(Source, fmOpenRead or fmShareDenyNone);
+        d := tfilestream.Create(Dest, fmCreate);
+      end
+      else
+      begin
+        S := tfilestream.Create(Source, fmOpenReadWrite);
+        d := S;
+      end;
+    InternalCodeStream(S, d, -1, Encode);
+  finally
+    S.Free;
+    if S <> d then
+    begin
+      {$IFDEF VER_D3H}
+      d.Size := d.Position;
+      {$ENDIF}
+      d.Free;
+    end;
+  end;
+end;
+
+procedure TROCipher.EncodeStream(const Source, Dest: TStream; DataSize: Integer);
+begin
+  InternalCodeStream(Source, Dest, DataSize, True);
+end;
+
+procedure TROCipher.DecodeStream(const Source, Dest: TStream; DataSize: Integer);
+begin
+  InternalCodeStream(Source, Dest, DataSize, False);
+end;
+
+procedure TROCipher.EncodeFile(const Source, Dest: string);
+begin
+  InternalCodeFile(Source, Dest, True);
+end;
+
+procedure TROCipher.DecodeFile(const Source, Dest: string);
+begin
+  InternalCodeFile(Source, Dest, False);
+end;
+
+function TROCipher.EncodeString(const Source: string): string;
+begin
+  SetLength(Result, Length(Source));
+  EncodeBuffer(PChar(Source)^, PChar(Result)^, Length(Source));
+  if Mode in [cmCBCMAC, cmCTSMAC, cmCFBMAC] then
+    Result := '';
+end;
+
+function TROCipher.DecodeString(const Source: string): string;
+begin
+  SetLength(Result, Length(Source));
+  DecodeBuffer(PChar(Source)^, PChar(Result)^, Length(Source));
+  if Mode in [cmCBCMAC, cmCTSMAC, cmCFBMAC] then
+    Result := '';
+end;
+
+procedure TROCipher.EncodeBuffer(const Source; var Dest; DataSize: Integer);
+var
+  S, d, f           : PByte;
+begin
+  if not Initialized then
+    RaiseCipherException(errNotInitialized, Format(sNotInitialized, [ClassName]));
+  S := @Source;
+  d := @Dest;
+  case FMode of
+    cmECB:
+      begin
+        if S <> d then
+          Move(S^, d^, DataSize);
+        while DataSize >= FBufSize do
+        begin
+          Encode(d);
+          Inc(d, FBufSize);
+          Dec(DataSize, FBufSize);
+        end;
+        if DataSize > 0 then
+        begin
+          Move(d^, FBuffer^, DataSize);
+          Encode(FBuffer);
+          Move(FBuffer^, d^, DataSize);
+        end;
+      end;
+    cmCTS:
+      begin
+        while DataSize >= FBufSize do
+        begin
+          XORBuffers(S, FFeedback, FBufSize, d);
+          Encode(d);
+          XORBuffers(d, FFeedback, FBufSize, FFeedback);
+          Inc(S, FBufSize);
+          Inc(d, FBufSize);
+          Dec(DataSize, FBufSize);
+        end;
+        if DataSize > 0 then
+        begin
+          Move(FFeedback^, FBuffer^, FBufSize);
+          Encode(FBuffer);
+          XORBuffers(S, FBuffer, DataSize, d);
+          XORBuffers(FBuffer, FFeedback, FBufSize, FFeedback);
+        end;
+      end;
+    cmCBC:
+      begin
+        f := FFeedback;
+        while DataSize >= FBufSize do
+        begin
+          XORBuffers(S, f, FBufSize, d);
+          Encode(d);
+          f := d;
+          Inc(S, FBufSize);
+          Inc(d, FBufSize);
+          Dec(DataSize, FBufSize);
+        end;
+        Move(f^, FFeedback^, FBufSize);
+        if DataSize > 0 then
+        begin
+          Move(FFeedback^, FBuffer^, FBufSize);
+          Encode(FBuffer);
+          XORBuffers(S, FBuffer, DataSize, d);
+          XORBuffers(FBuffer, FFeedback, FBufSize, FFeedback);
+        end;
+      end;
+    cmCFB:
+      while DataSize > 0 do
+      begin
+        Move(FFeedback^, FBuffer^, FBufSize);
+        Encode(FBuffer);
+        d^ := S^ xor PByte(FBuffer)^;
+        Move(PByteArray(FFeedback)[1], FFeedback^, FBufSize - 1);
+        PByteArray(FFeedback)[FBufSize - 1] := d^;
+        Inc(d);
+        Inc(S);
+        Dec(DataSize);
+      end;
+    cmOFB:
+      while DataSize > 0 do
+      begin
+        Move(FFeedback^, FBuffer^, FBufSize);
+        Encode(FBuffer);
+        d^ := S^ xor PByte(FBuffer)^;
+        Move(PByteArray(FFeedback)[1], FFeedback^, FBufSize - 1);
+        PByteArray(FFeedback)[FBufSize - 1] := PByte(FBuffer)^;
+        Inc(d);
+        Inc(S);
+        Dec(DataSize);
+      end;
+    cmCTSMAC:
+      begin
+        while DataSize >= FBufSize do
+        begin
+          XORBuffers(S, FFeedback, FBufSize, FBuffer);
+          Encode(FBuffer);
+          XORBuffers(FBuffer, FFeedback, FBufSize, FFeedback);
+          Inc(S, FBufSize);
+          Dec(DataSize, FBufSize);
+        end;
+        if DataSize > 0 then
+        begin
+          Move(FFeedback^, FBuffer^, FBufSize);
+          Encode(FBuffer);
+          XORBuffers(FBuffer, FFeedback, FBufSize, FFeedback);
+        end;
+      end;
+    cmCBCMAC:
+      begin
+        while DataSize >= FBufSize do
+        begin
+          XORBuffers(S, FFeedback, FBufSize, FBuffer);
+          Encode(FBuffer);
+          Move(FBuffer^, FFeedback^, FBufSize);
+          Inc(S, FBufSize);
+          Dec(DataSize, FBufSize);
+        end;
+        if DataSize > 0 then
+        begin
+          Move(FFeedback^, FBuffer^, FBufSize);
+          Encode(FBuffer);
+          XORBuffers(FBuffer, FFeedback, FBufSize, FFeedback);
+        end;
+      end;
+    cmCFBMAC:
+      while DataSize > 0 do
+      begin
+        Move(FFeedback^, FBuffer^, FBufSize);
+        Encode(FBuffer);
+        Move(PByteArray(FFeedback)[1], FFeedback^, FBufSize - 1);
+        PByteArray(FFeedback)[FBufSize - 1] := S^ xor PByte(FBuffer)^;
+        Inc(S);
+        Dec(DataSize);
+      end;
+  end;
+end;
+
+procedure TROCipher.DecodeBuffer(const Source; var Dest; DataSize: Integer);
+var
+  S, d, f, b        : PByte;
+begin
+  if not Initialized then
+    RaiseCipherException(errNotInitialized, Format(sNotInitialized, [ClassName]));
+  S := @Source;
+  d := @Dest;
+  case FMode of
+    cmECB:
+      begin
+        if S <> d then
+          Move(S^, d^, DataSize);
+        while DataSize >= FBufSize do
+        begin
+          Decode(d);
+          Inc(d, FBufSize);
+          Dec(DataSize, FBufSize);
+        end;
+        if DataSize > 0 then
+        begin
+          Move(d^, FBuffer^, DataSize);
+          Encode(FBuffer);
+          Move(FBuffer^, d^, DataSize);
+        end;
+      end;
+    cmCTS:
+      begin
+        if S <> d then
+          Move(S^, d^, DataSize);
+        f := FFeedback;
+        b := FBuffer;
+        while DataSize >= FBufSize do
+        begin
+          XORBuffers(d, f, FBufSize, b);
+          Decode(d);
+          XORBuffers(d, f, FBufSize, d);
+          S := b;
+          b := f;
+          f := S;
+          Inc(d, FBufSize);
+          Dec(DataSize, FBufSize);
+        end;
+        if f <> FFeedback then
+          Move(f^, FFeedback^, FBufSize);
+        if DataSize > 0 then
+        begin
+          Move(FFeedback^, FBuffer^, FBufSize);
+          Encode(FBuffer);
+          XORBuffers(FBuffer, d, DataSize, d);
+          XORBuffers(FBuffer, FFeedback, FBufSize, FFeedback);
+        end;
+      end;
+    cmCBC:
+      begin
+        if S <> d then
+          Move(S^, d^, DataSize);
+        f := FFeedback;
+        b := FBuffer;
+        while DataSize >= FBufSize do
+        begin
+          Move(d^, b^, FBufSize);
+          Decode(d);
+          XORBuffers(f, d, FBufSize, d);
+          S := b;
+          b := f;
+          f := S;
+          Inc(d, FBufSize);
+          Dec(DataSize, FBufSize);
+        end;
+        if f <> FFeedback then
+          Move(f^, FFeedback^, FBufSize);
+        if DataSize > 0 then
+        begin
+          Move(FFeedback^, FBuffer^, FBufSize);
+          Encode(FBuffer);
+          XORBuffers(d, FBuffer, DataSize, d);
+          XORBuffers(FBuffer, FFeedback, FBufSize, FFeedback);
+        end;
+      end;
+    cmCFB:
+      while DataSize > 0 do
+      begin
+        Move(FFeedback^, FBuffer^, FBufSize);
+        Encode(FBuffer);
+        Move(PByteArray(FFeedback)[1], FFeedback^, FBufSize - 1);
+        PByteArray(FFeedback)[FBufSize - 1] := S^;
+        d^ := S^ xor PByte(FBuffer)^;
+        Inc(d);
+        Inc(S);
+        Dec(DataSize);
+      end;
+    cmOFB:
+      while DataSize > 0 do
+      begin
+        Move(FFeedback^, FBuffer^, FBufSize);
+        Encode(FBuffer);
+        d^ := S^ xor PByte(FBuffer)^;
+        Move(PByteArray(FFeedback)[1], FFeedback^, FBufSize - 1);
+        PByteArray(FFeedback)[FBufSize - 1] := PByte(FBuffer)^;
+        Inc(d);
+        Inc(S);
+        Dec(DataSize);
+      end;
+    cmCTSMAC, cmCBCMAC, cmCFBMAC:
+      begin
+        EncodeBuffer(Source, Dest, DataSize);
+        Exit;
+      end;
+  end;
+end;
+
+procedure TROCipher.CodeInit(Action: TPAction);
+begin
+  if not Initialized then
+    RaiseCipherException(errNotInitialized, Format(sNotInitialized, [ClassName]));
+  {  if (Mode in [cmCBCMAC, cmCTSMAC, cmCFBMAC]) <> (Action = paCalc) then
+      RaiseCipherException(errCantCalc, Format(sCantCalc, [ClassName]));}
+  if Action <> paCalc then
+    if Action <> paWipe then
+      Done
+    else
+      RndXORBuffer(RndTimeSeed, FFeedback^, FBufSize);
+  inherited CodeInit(Action);
+end;
+
+procedure TROCipher.CodeDone(Action: TPAction);
+begin
+  inherited CodeDone(Action);
+  if Action <> paCalc then
+    if Action <> paWipe then
+      Done
+    else
+      RndXORBuffer(RndTimeSeed, FFeedback^, FBufSize);
+end;
+
+procedure TROCipher.CodeBuf(var Buffer; const BufferSize: Integer; Action: TPAction);
+begin
+  if Action = paDecode then
+  begin
+    if Action in Actions then
+      DecodeBuffer(Buffer, Buffer, BufferSize);
+    inherited CodeBuf(Buffer, BufferSize, Action);
+  end
+  else
+  begin
+    inherited CodeBuf(Buffer, BufferSize, Action);
+    if Action in Actions then
+      EncodeBuffer(Buffer, Buffer, BufferSize);
+  end;
+end;
+
+function TROCipher.CalcMAC(Format: Integer): Ansistring;
+var
+  b                 : PByteArray;
+begin
+  if Mode in [cmECB, cmOFB] then
+    RaiseCipherException(errInvalidMACMode, sInvalidMACMode);
+  Done;
+  b := AllocMem(FBufSize);
+  try
+    Move(FBuffer^, b^, FBufSize);
+    EncodeBuffer(b^, b^, FBufSize);
+    SetLength(Result, FBufSize);
+    Move(FFeedback^, PAnsiChar(Result)^, FBufSize);
+    if Protection <> nil then
+      Result := Protection.CodeString(Result, paScramble, Format)
+    else
+      Result := StrToFormat(PAnsiChar(Result), Length(Result), Format);
+  finally
+    ReallocMem(b, 0);
+    Done;
+  end;
+end;
+
+class procedure TROCipher_Gost.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 32;
+  AUserSize := 32;
+end;
+
+class function TROCipher_Gost.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0B3h,003h,0A0h,03Fh,0B5h,07Bh,091h,04Dh
+         DB    097h,051h,024h,040h,0BDh,0CFh,025h,015h
+         DB    034h,005h,09Ch,0F8h,0ABh,010h,086h,09Fh
+         DB    0F2h,080h,047h,084h,047h,09Bh,01Ah,0D1h
+end;
+
+type
+  PCipherRec = ^TCipherRec;
+  TCipherRec = packed record
+    case Integer of
+      0: (x: array[0..7] of Byte);
+      1: (A, b: LongWord);
+  end;
+
+procedure TROCipher_Gost.Encode(Data: Pointer);
+var
+  i, A, b, t        : LongWord;
+  k                 : pintarray;
+begin
+  k := User;
+  A := PCipherRec(Data).A;
+  b := PCipherRec(Data).b;
+  for i := 0 to 11 do
+  begin
+    if i and 3 = 0 then
+      k := User;
+    t := A + k[0];
+    b := b xor Gost_Data[0, t and $FF] xor
+      Gost_Data[1, t shr 8 and $FF] xor
+      Gost_Data[2, t shr 16 and $FF] xor
+      Gost_Data[3, t shr 24];
+    t := b + k[1];
+    A := A xor Gost_Data[0, t and $FF] xor
+      Gost_Data[1, t shr 8 and $FF] xor
+      Gost_Data[2, t shr 16 and $FF] xor
+      Gost_Data[3, t shr 24];
+    Inc(PInteger(k), 2);
+  end;
+  k := @pintarray(User)[6];
+  for i := 0 to 3 do
+  begin
+    t := A + k[1];
+    b := b xor Gost_Data[0, t and $FF] xor
+      Gost_Data[1, t shr 8 and $FF] xor
+      Gost_Data[2, t shr 16 and $FF] xor
+      Gost_Data[3, t shr 24];
+    t := b + k[0];
+    A := A xor Gost_Data[0, t and $FF] xor
+      Gost_Data[1, t shr 8 and $FF] xor
+      Gost_Data[2, t shr 16 and $FF] xor
+      Gost_Data[3, t shr 24];
+    Dec(PInteger(k), 2);
+  end;
+  PCipherRec(Data).A := b;
+  PCipherRec(Data).b := A;
+end;
+
+procedure TROCipher_Gost.Decode(Data: Pointer);
+var
+  i, A, b, t        : LongWord;
+  k                 : pintarray;
+begin
+  A := PCipherRec(Data).A;
+  b := PCipherRec(Data).b;
+  k := User;
+  for i := 0 to 3 do
+  begin
+    t := A + k[0];
+    b := b xor Gost_Data[0, t and $FF] xor
+      Gost_Data[1, t shr 8 and $FF] xor
+      Gost_Data[2, t shr 16 and $FF] xor
+      Gost_Data[3, t shr 24];
+    t := b + k[1];
+    A := A xor Gost_Data[0, t and $FF] xor
+      Gost_Data[1, t shr 8 and $FF] xor
+      Gost_Data[2, t shr 16 and $FF] xor
+      Gost_Data[3, t shr 24];
+    Inc(PInteger(k), 2);
+  end;
+  for i := 0 to 11 do
+  begin
+    if i and 3 = 0 then
+      k := @pintarray(User)[6];
+    t := A + k[1];
+    b := b xor Gost_Data[0, t and $FF] xor
+      Gost_Data[1, t shr 8 and $FF] xor
+      Gost_Data[2, t shr 16 and $FF] xor
+      Gost_Data[3, t shr 24];
+    t := b + k[0];
+    A := A xor Gost_Data[0, t and $FF] xor
+      Gost_Data[1, t shr 8 and $FF] xor
+      Gost_Data[2, t shr 16 and $FF] xor
+      Gost_Data[3, t shr 24];
+    Dec(PInteger(k), 2);
+  end;
+  PCipherRec(Data).A := b;
+  PCipherRec(Data).b := A;
+end;
+
+procedure TROCipher_Gost.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitBegin(Size);
+  Move(Key, User^, Size);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_Blowfish.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 56;
+  AUserSize := SizeOf(Blowfish_Data) + SizeOf(Blowfish_Key);
+end;
+
+class function TROCipher_Blowfish.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    019h,071h,0CAh,0CDh,02Bh,09Ch,085h,029h
+         DB    0DAh,081h,047h,0B7h,0EBh,0CEh,016h,0C6h
+         DB    091h,00Eh,01Dh,0C8h,040h,012h,03Eh,035h
+         DB    070h,0EDh,0BCh,096h,04Ch,013h,0D0h,0B8h
+end;
+
+type
+  PBlowfish = ^TBlowfish;
+  TBlowfish = array[0..3, 0..255] of LongWord;
+
+  {$IFDEF UseASM}
+  {$IFNDEF 486GE}                       // no Support for <= CPU 386
+
+procedure TROCipher_Blowfish.Encode386(Data: Pointer);
+asm  // specaly for CPU < 486
+        PUSH   EDI
+        PUSH   ESI
+        PUSH   EBX
+        PUSH   EBP
+        PUSH   EDX
+
+        MOV    ESI,[EAX].TROCipher_Blowfish.FUser
+
+        MOV    EBX,[EDX]         // A
+        MOV    EDX,[EDX + 4]     // B
+
+        XCHG   BL,BH       // here BSWAP EBX,EDX
+        XCHG   DL,DH
+        ROL    EBX,16
+        ROL    EDX,16
+        XCHG   BL,BH
+        XCHG   DL,DH
+
+        XOR    EBX,[ESI + 4 * 256 * 4]
+        XOR    EDI,EDI
+
+@@1:    MOV    EAX,EBX
+        SHR    EBX,16
+
+        MOVZX  ECX,BH
+        MOV    EBP,[ESI + ECX * 4 + 1024 * 0]
+        MOVZX  ECX,BL
+        ADD    EBP,[ESI + ECX * 4 + 1024 * 1]
+
+        MOVZX  ECX,AH
+        XOR    EBP,[ESI + ECX * 4 + 1024 * 2]
+        MOVZX  ECX,AL
+        ADD    EBP,[ESI + ECX * 4 + 1024 * 3]
+        XOR    EDX,[ESI + 4 * 256 * 4 + 4 + EDI * 4]
+
+        XOR    EBP,EDX
+        MOV    EDX,EAX
+        MOV    EBX,EBP
+        INC    EDI
+        TEST   EDI,010h
+        JZ     @@1
+
+        POP    EAX
+        XOR    EDX,[ESI + 4 * 256 * 4 + 17 * 4]
+
+        XCHG   BL,BH        // here BSWAP EBX,EDX
+        XCHG   DL,DH
+        ROL    EBX,16
+        ROL    EDX,16
+        XCHG   BL,BH
+        XCHG   DL,DH
+
+        MOV    [EAX],EDX
+        MOV    [EAX + 4],EBX
+
+        POP    EBP
+        POP    EBX
+        POP    ESI
+        POP    EDI
+end;
+
+procedure TROCipher_Blowfish.Decode386(Data: Pointer);
+asm // specaly for CPU < 486
+        PUSH   EDI
+        PUSH   ESI
+        PUSH   EBX
+        PUSH   EBP
+        PUSH   EDX
+
+        MOV    ESI,[EAX].TROCipher_Blowfish.FUser
+
+        MOV    EBX,[EDX]         // A
+        MOV    EDX,[EDX + 4]     // B
+
+        XCHG   BL,BH
+        XCHG   DL,DH
+        ROL    EBX,16
+        ROL    EDX,16
+        XCHG   BL,BH
+        XCHG   DL,DH
+
+        XOR    EBX,[ESI + 4 * 256 * 4 + 17 * 4]
+
+        MOV    EDI,16
+
+@@1:    MOV    EAX,EBX
+        SHR    EBX,16
+
+        MOVZX  ECX,BH
+        MOV    EBP,[ESI + ECX * 4 + 1024 * 0]
+        MOVZX  ECX,BL
+        ADD    EBP,[ESI + ECX * 4 + 1024 * 1]
+
+        MOVZX  ECX,AH
+        XOR    EBP,[ESI + ECX * 4 + 1024 * 2]
+        MOVZX  ECX,AL
+        ADD    EBP,[ESI + ECX * 4 + 1024 * 3]
+        XOR    EDX,[ESI + 4 * 256 * 4 + EDI * 4]
+
+        XOR    EBP,EDX
+        MOV    EDX,EAX
+        MOV    EBX,EBP
+
+        DEC    EDI
+        JNZ    @@1
+
+        POP    EAX
+        XOR    EDX,[ESI + 4 * 256 * 4]
+
+        XCHG   BL,BH        // BSWAP
+        XCHG   DL,DH
+        ROL    EBX,16
+        ROL    EDX,16
+        XCHG   BL,BH
+        XCHG   DL,DH
+
+        MOV    [EAX],EDX
+        MOV    [EAX + 4],EBX
+
+        POP    EBP
+        POP    EBX
+        POP    ESI
+        POP    EDI
+end;
+{$ENDIF}                                //486GE
+{$ENDIF}
+
+procedure TROCipher_Blowfish.Encode(Data: Pointer);
+{$IFDEF UseASM}                         // specialy for CPU >= 486
+asm
+        PUSH   EDI
+        PUSH   ESI
+        PUSH   EBX
+        PUSH   EBP
+        PUSH   EDX
+
+        MOV    ESI,[EAX].TROCipher_Blowfish.FUser
+        MOV    EBX,[EDX]         // A
+        MOV    EBP,[EDX + 4]     // B
+
+        BSWAP  EBX               // CPU >= 486
+        BSWAP  EBP
+
+        XOR    EDI,EDI
+        XOR    EBX,[ESI + 4 * 256 * 4]
+//      XOR    ECX,ECX
+@@1:
+
+        MOV    EAX,EBX
+        SHR    EBX,16
+        MOVZX  ECX,BH     // it's faster with AMD Chips,
+//        MOV    CL,BH    // it's faster with PII's
+        MOV    EDX,[ESI + ECX * 4 + 1024 * 0]
+        MOVZX  ECX,BL
+//        MOV    CL,BL
+        ADD    EDX,[ESI + ECX * 4 + 1024 * 1]
+
+        MOVZX  ECX,AH
+//        MOV    CL,AH
+        XOR    EDX,[ESI + ECX * 4 + 1024 * 2]
+        MOVZX  ECX,AL
+//        MOV    CL,AL
+        ADD    EDX,[ESI + ECX * 4 + 1024 * 3]
+        XOR    EBP,[ESI + 4 * 256 * 4 + 4 + EDI * 4]
+
+        INC    EDI
+        XOR    EDX,EBP
+        TEST   EDI,010h
+        MOV    EBP,EAX
+        MOV    EBX,EDX
+        JZ     @@1
+
+        POP    EAX
+        XOR    EBP,[ESI + 4 * 256 * 4 + 17 * 4]
+
+        BSWAP  EBX
+        BSWAP  EBP
+
+        MOV    [EAX],EBP
+        MOV    [EAX + 4],EBX
+
+        POP    EBP
+        POP    EBX
+        POP    ESI
+        POP    EDI
+end;
+{$ELSE}
+var
+  i, A, b           : LongWord;
+  p                 : pintarray;
+  d                 : PBlowfish;
+begin
+  d := User;
+  p := Pointer(PChar(User) + SizeOf(Blowfish_Data));
+  A := SwapInteger(PCipherRec(Data).A) xor p[0];
+  Inc(PInteger(p));
+  b := SwapInteger(PCipherRec(Data).b);
+  for i := 0 to 7 do
+  begin
+    b := b xor p[0] xor (d[0, A shr 24] +
+      d[1, A shr 16 and $FF] xor
+      d[2, A shr 8 and $FF] +
+      d[3, A and $FF]);
+
+    A := A xor p[1] xor (d[0, b shr 24] +
+      d[1, b shr 16 and $FF] xor
+      d[2, b shr 8 and $FF] +
+      d[3, b and $FF]);
+    Inc(PInteger(p), 2);
+  end;
+  PCipherRec(Data).A := SwapInteger(b xor p[0]);
+  PCipherRec(Data).b := SwapInteger(A);
+end;
+{$ENDIF}
+
+procedure TROCipher_Blowfish.Decode(Data: Pointer);
+{$IFDEF UseASM}
+asm
+        PUSH   EDI
+        PUSH   ESI
+        PUSH   EBX
+        PUSH   EBP
+        PUSH   EDX
+
+        MOV    ESI,[EAX].TROCipher_Blowfish.FUser
+        MOV    EBX,[EDX]         // A
+        MOV    EBP,[EDX + 4]     // B
+
+        BSWAP  EBX
+        BSWAP  EBP
+
+        XOR    EBX,[ESI + 4 * 256 * 4 + 17 * 4]
+        MOV    EDI,16
+//        XOR    ECX,ECX
+
+@@1:    MOV    EAX,EBX
+        SHR    EBX,16
+
+        MOVZX  ECX,BH
+//        MOV    CL,BH
+        MOV    EDX,[ESI + ECX * 4 + 1024 * 0]
+        MOVZX  ECX,BL
+//        MOV    CL,BL
+        ADD    EDX,[ESI + ECX * 4 + 1024 * 1]
+
+        MOVZX  ECX,AH
+//        MOV    CL,AH
+        XOR    EDX,[ESI + ECX * 4 + 1024 * 2]
+        MOVZX  ECX,AL
+//        MOV    CL,AL
+        ADD    EDX,[ESI + ECX * 4 + 1024 * 3]
+        XOR    EBP,[ESI + 4 * 256 * 4 + EDI * 4]
+
+        XOR    EDX,EBP
+        DEC    EDI
+        MOV    EBP,EAX
+        MOV    EBX,EDX
+        JNZ    @@1
+
+        POP    EAX
+        XOR    EBP,[ESI + 4 * 256 * 4]
+
+        BSWAP  EBX
+        BSWAP  EBP
+
+        MOV    [EAX],EBP
+        MOV    [EAX + 4],EBX
+
+        POP    EBP
+        POP    EBX
+        POP    ESI
+        POP    EDI
+end;
+{$ELSE}
+var
+  i, A, b           : LongWord;
+  p                 : pintarray;
+  d                 : PBlowfish;
+begin
+  d := User;
+  p := Pointer(PChar(User) + SizeOf(Blowfish_Data) + SizeOf(Blowfish_Key) - SizeOf(Integer));
+  A := SwapInteger(PCipherRec(Data).A) xor p[0];
+  b := SwapInteger(PCipherRec(Data).b);
+  for i := 0 to 7 do
+  begin
+    Dec(PInteger(p), 2);
+    b := b xor p[1] xor (d[0, A shr 24] +
+      d[1, A shr 16 and $FF] xor
+      d[2, A shr 8 and $FF] +
+      d[3, A and $FF]);
+    A := A xor p[0] xor (d[0, b shr 24] +
+      d[1, b shr 16 and $FF] xor
+      d[2, b shr 8 and $FF] +
+      d[3, b and $FF]);
+  end;
+  Dec(PInteger(p));
+  PCipherRec(Data).A := SwapInteger(b xor p[0]);
+  PCipherRec(Data).b := SwapInteger(A);
+end;
+{$ENDIF}
+
+procedure TROCipher_Blowfish.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  i, j              : Integer;
+  b                 : array[0..7] of Byte;
+  k                 : PByteArray;
+  p                 : pintarray;
+  S                 : PBlowfish;
+begin
+  InitBegin(Size);
+  k := @Key;
+  S := User;
+  p := Pointer(PChar(User) + SizeOf(Blowfish_Data));
+  Move(Blowfish_Data, S^, SizeOf(Blowfish_Data));
+  Move(Blowfish_Key, p^, SizeOf(Blowfish_Key));
+  j := 0;
+  for i := 0 to 17 do
+  begin
+    p[i] := p[i] xor (k[(j + 0) mod Size] shl 24 +
+      k[(j + 1) mod Size] shl 16 +
+      k[(j + 2) mod Size] shl 8 +
+      k[(j + 3) mod Size]);
+    j := (j + 4) mod Size;
+  end;
+  FillChar(b, SizeOf(b), 0);
+  for i := 0 to 8 do
+  begin
+    Encode(@b);
+    p[i * 2] := SwapInteger(PCipherRec(@b).A);
+    p[i * 2 + 1] := SwapInteger(PCipherRec(@b).b);
+  end;
+  for i := 0 to 3 do
+    for j := 0 to 127 do
+    begin
+      Encode(@b);
+      S[i, j * 2] := SwapInteger(PCipherRec(@b).A);
+      S[i, j * 2 + 1] := SwapInteger(PCipherRec(@b).b);
+    end;
+
+  FillChar(b, SizeOf(b), 0);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_IDEA.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 16;
+  AUserSize := 208;
+end;
+
+class function TROCipher_IDEA.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    08Ch,065h,0CAh,0D8h,043h,0E7h,099h,093h
+         DB    0EDh,041h,0EAh,048h,0FDh,066h,050h,094h
+         DB    0A2h,025h,06Dh,0D7h,0B1h,0D0h,09Ah,023h
+         DB    03Dh,0D2h,0E8h,0ECh,0C9h,045h,07Fh,07Eh
+end;
+
+function IDEAMul(x, y: LongWord): LongWord; assembler; register;
+asm
+     AND    EAX,0FFFFh
+     JZ     @@1
+     AND    EDX,0FFFFh
+     JZ     @@1
+     MUL    EDX
+     MOV    ECX,EAX
+     MOV    EDX,EAX
+     SHR    EDX,16
+     SUB    EAX,EDX
+     CMP    AX,CX
+     JNA    @@2
+     INC    EAX
+@@2: RET
+@@1: MOV    ECX,1
+     SUB    ECX,EAX
+     SUB    ECX,EDX
+     MOV    EAX,ECX
+end;
+
+procedure TROCipher_IDEA.RO_Cipher(Data, Key: PWordArray);
+var
+  i                 : LongWord;
+  x, y, A, b, c, d  : LongWord;
+begin
+  i := SwapInteger(pintarray(Data)[0]);
+  A := LongRec(i).Hi;
+  b := LongRec(i).Lo;
+  i := SwapInteger(pintarray(Data)[1]);
+  c := LongRec(i).Hi;
+  d := LongRec(i).Lo;
+  for i := 0 to 7 do
+  begin
+    A := IDEAMul(A, Key[0]);
+    Inc(b, Key[1]);
+    Inc(c, Key[2]);
+    d := IDEAMul(d, Key[3]);
+    y := c xor A;
+    y := IDEAMul(y, Key[4]);
+    x := b xor d + y;
+    x := IDEAMul(x, Key[5]);
+    Inc(y, x);
+    A := A xor x;
+    d := d xor y;
+    y := b xor y;
+    b := c xor x;
+    c := y;
+    Inc(PWord(Key), 6);
+  end;
+  LongRec(i).Hi := IDEAMul(A, Key[0]);
+  LongRec(i).Lo := c + Key[1];
+  pintarray(Data)[0] := SwapInteger(i);
+  LongRec(i).Hi := b + Key[2];
+  LongRec(i).Lo := IDEAMul(d, Key[3]);
+  pintarray(Data)[1] := SwapInteger(i);
+end;
+
+procedure TROCipher_IDEA.Encode(Data: Pointer);
+begin
+  RO_Cipher(Data, User);
+end;
+
+procedure TROCipher_IDEA.Decode(Data: Pointer);
+begin
+  RO_Cipher(Data, @pintarray(User)[26]);
+end;
+
+procedure TROCipher_IDEA.Init(const Key; Size: Integer; IVector: Pointer);
+
+  function IDEAInv(x: word): word;
+  var
+    A, b, c, d      : word;
+  begin
+    if x <= 1 then
+    begin
+      Result := x;
+      Exit;
+    end;
+    A := 1;
+    b := $10001 div x;
+    c := $10001 mod x;
+    while c <> 1 do
+    begin
+      d := x div c;
+      x := x mod c;
+      Inc(A, b * d);
+      if x = 1 then
+      begin
+        Result := A;
+        Exit;
+      end;
+      d := c div x;
+      c := c mod x;
+      Inc(b, A * d);
+    end;
+    Result := 1 - b;
+  end;
+
+var
+  i                 : Integer;
+  e                 : PWordArray;
+  A, b, c           : word;
+  k, d              : PWordArray;
+begin
+  InitBegin(Size);
+  e := User;
+  Move(Key, e^, Size);
+  for i := 0 to 7 do
+    e[i] := swap(e[i]);
+  for i := 0 to 39 do
+    e[i + 8] := e[i and not 7 + (i + 1) and 7] shl 9 or
+      e[i and not 7 + (i + 2) and 7] shr 7;
+  for i := 41 to 44 do
+    e[i + 7] := e[i] shl 9 or e[i + 1] shr 7;
+  k := e;
+  d := @e[100];
+  A := IDEAInv(k[0]);
+  b := 0 - k[1];
+  c := 0 - k[2];
+  d[3] := IDEAInv(k[3]);
+  d[2] := c;
+  d[1] := b;
+  d[0] := A;
+  Inc(PWord(k), 4);
+  for i := 1 to 8 do
+  begin
+    Dec(PWord(d), 6);
+    A := k[0];
+    d[5] := k[1];
+    d[4] := A;
+    A := IDEAInv(k[2]);
+    b := 0 - k[3];
+    c := 0 - k[4];
+    d[3] := IDEAInv(k[5]);
+    d[2] := b;
+    d[1] := c;
+    d[0] := A;
+    Inc(PWord(k), 6);
+  end;
+  A := d[2];
+  d[2] := d[1];
+  d[1] := A;
+  InitEnd(IVector);
+end;
+
+type
+  PSAFERRec = ^TSAFERRec;
+  TSAFERRec = packed record
+    case Integer of
+      0: (A, b, c, d, e, f, G, H: Byte);
+      1: (x, y: Integer);
+  end;
+
+procedure TROCipher_SAFER.SetRounds(Value: Integer);
+begin
+  if (Value < 4) or (Value > 13) then
+    case FSAFERMode of                  {Default Rounds}
+      smK40, smSK40: Value := 5;
+      smK64, smSK64: Value := 6;
+      smK128, smSK128: Value := 10;
+    else
+      Value := 8;
+    end;
+  FRounds := Value;
+end;
+
+class procedure TROCipher_SAFER.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 16;
+  AUserSize := 768;
+end;
+
+class function TROCipher_SAFER.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    000h,03Dh,049h,020h,073h,063h,085h,0AAh
+         DB    0D9h,0C2h,00Ah,0DEh,07Eh,09Eh,0E9h,0ABh
+         DB    024h,0D0h,074h,034h,047h,07Eh,021h,01Dh
+         DB    055h,0F9h,035h,028h,098h,084h,0A8h,075h
+end;
+
+procedure TROCipher_SAFER.Encode(Data: Pointer);
+var
+  EXP, Log, Key     : PByteArray;
+  i                 : Integer;
+  t                 : Byte;
+begin
+  EXP := User;
+  Log := Pointer(PChar(User) + 256);
+  Key := Pointer(PChar(User) + 512);
+  with PSAFERRec(Data)^ do
+  begin
+    for i := 1 to FRounds do
+    begin
+      A := A xor Key[0];
+      b := b + Key[1];
+      c := c + Key[2];
+      d := d xor Key[3];
+      e := e xor Key[4];
+      f := f + Key[5];
+      G := G + Key[6];
+      H := H xor Key[7];
+
+      A := EXP[A] + Key[8];
+      b := Log[b] xor Key[9];
+      c := Log[c] xor Key[10];
+      d := EXP[d] + Key[11];
+      e := EXP[e] + Key[12];
+      f := Log[f] xor Key[13];
+      G := Log[G] xor Key[14];
+      H := EXP[H] + Key[15];
+
+      Inc(b, A);
+      Inc(A, b);
+      Inc(d, c);
+      Inc(c, d);
+      Inc(f, e);
+      Inc(e, f);
+      Inc(H, G);
+      Inc(G, H);
+
+      Inc(c, A);
+      Inc(A, c);
+      Inc(G, e);
+      Inc(e, G);
+      Inc(d, b);
+      Inc(b, d);
+      Inc(H, f);
+      Inc(f, H);
+
+      Inc(e, A);
+      Inc(A, e);
+      Inc(f, b);
+      Inc(b, f);
+      Inc(G, c);
+      Inc(c, G);
+      Inc(H, d);
+      Inc(d, H);
+
+      t := b;
+      b := e;
+      e := c;
+      c := t;
+      t := d;
+      d := f;
+      f := G;
+      G := t;
+
+      Inc(PByte(Key), 16);
+    end;
+    A := A xor Key[0];
+    b := b + Key[1];
+    c := c + Key[2];
+    d := d xor Key[3];
+    e := e xor Key[4];
+    f := f + Key[5];
+    G := G + Key[6];
+    H := H xor Key[7];
+  end;
+end;
+
+procedure TROCipher_SAFER.Decode(Data: Pointer);
+var
+  EXP, Log, Key     : PByteArray;
+  i                 : Integer;
+  t                 : Byte;
+begin
+  EXP := User;
+  Log := Pointer(PChar(User) + 256);
+  Key := Pointer(PChar(User) + 504 + 8 * (FRounds * 2 + 1));
+  with PSAFERRec(Data)^ do
+  begin
+    H := H xor Key[7];
+    G := G - Key[6];
+    f := f - Key[5];
+    e := e xor Key[4];
+    d := d xor Key[3];
+    c := c - Key[2];
+    b := b - Key[1];
+    A := A xor Key[0];
+
+    for i := 1 to FRounds do
+    begin
+      Dec(PByte(Key), 16);
+      t := e;
+      e := b;
+      b := c;
+      c := t;
+      t := f;
+      f := d;
+      d := G;
+      G := t;
+
+      Dec(A, e);
+      Dec(e, A);
+      Dec(b, f);
+      Dec(f, b);
+      Dec(c, G);
+      Dec(G, c);
+      Dec(d, H);
+      Dec(H, d);
+
+      Dec(A, c);
+      Dec(c, A);
+      Dec(e, G);
+      Dec(G, e);
+      Dec(b, d);
+      Dec(d, b);
+      Dec(f, H);
+      Dec(H, f);
+
+      Dec(A, b);
+      Dec(b, A);
+      Dec(c, d);
+      Dec(d, c);
+      Dec(e, f);
+      Dec(f, e);
+      Dec(G, H);
+      Dec(H, G);
+
+      H := H - Key[15];
+      G := G xor Key[14];
+      f := f xor Key[13];
+      e := e - Key[12];
+      d := d - Key[11];
+      c := c xor Key[10];
+      b := b xor Key[9];
+      A := A - Key[8];
+
+      H := Log[H] xor Key[7];
+      G := EXP[G] - Key[6];
+      f := EXP[f] - Key[5];
+      e := Log[e] xor Key[4];
+      d := Log[d] xor Key[3];
+      c := EXP[c] - Key[2];
+      b := EXP[b] - Key[1];
+      A := Log[A] xor Key[0];
+    end;
+  end;
+end;
+
+procedure TROCipher_SAFER.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitNew(Key, Size, IVector, smStrong);
+end;
+
+procedure TROCipher_SAFER.InitNew(const Key; Size: Integer; IVector: Pointer; SAFERMode: TSAFERMode);
+
+  procedure InitTab;
+  var
+    i, e            : Integer;
+    EXP             : PByte;
+    Log             : PByteArray;
+  begin
+    EXP := User;
+    Log := Pointer(PChar(User) + 256);
+    e := 1;
+    for i := 0 to 255 do
+    begin
+      EXP^ := e and $FF;
+      Log[e and $FF] := i;
+      e := (e * 45) mod 257;
+      Inc(EXP);
+    end;
+  end;
+
+  procedure InitKey;
+
+    function ROR3(Value: Byte): Byte; assembler;
+    asm
+      ROR AL,3
+    end;
+
+    function ROL6(Value: Byte): Byte; assembler;
+    asm
+      ROL AL,6
+    end;
+
+  var
+    d               : PByte;
+    EXP             : PByteArray;
+    Strong          : Boolean;
+    k               : array[Boolean, 0..8] of Byte;
+    i, j            : Integer;
+  begin
+    Strong := FSAFERMode in [smStrong, smSK40, smSK64, smSK128];
+    EXP := User;
+    d := User;
+    Inc(d, 512);
+    FillChar(k, SizeOf(k), 0);
+    {Setup Key A}
+    i := Size;
+    if i > 8 then
+      i := 8;
+    Move(Key, k[False], i);
+    {Setup the Key for K-40, SK-40}
+    if FSAFERMode in [smK40, smSK40] then
+    begin
+      k[False, 5] := k[False, 0] xor k[False, 2] xor 129;
+      k[False, 6] := k[False, 0] xor k[False, 3] xor k[False, 4] xor 66;
+      k[False, 7] := k[False, 1] xor k[False, 2] xor k[False, 4] xor 36;
+      k[False, 8] := k[False, 1] xor k[False, 3] xor 24;
+      Move(k[False], k[True], SizeOf(k[False]));
+    end
+    else
+    begin
+      if Size > 8 then
+      begin
+        i := Size - 8;
+        if i > 8 then
+          i := 8;
+        Move(TByteArray(Key)[8], k[True], i);
+      end
+      else
+        Move(k[False], k[True], 9);
+      for i := 0 to 7 do
+      begin
+        k[False, 8] := k[False, 8] xor k[False, i];
+        k[True, 8] := k[True, 8] xor k[True, i];
+      end;
+    end;
+    {Setup the KeyData}
+    Move(k[True], d^, 8);
+    Inc(d, 8);
+
+    for i := 0 to 8 do
+      k[False, i] := ROR3(k[False, i]);
+
+    for i := 1 to FRounds do
+    begin
+      for j := 0 to 8 do
+      begin
+        k[False, j] := ROL6(k[False, j]);
+        k[True, j] := ROL6(k[True, j]);
+      end;
+      for j := 0 to 7 do
+      begin
+        if Strong then
+          d^ := k[False, (j + i * 2 - 1) mod 9] + EXP[EXP[18 * i + j + 1]]
+        else
+          d^ := k[False, j] + EXP[EXP[18 * i + j + 1]];
+        Inc(d);
+      end;
+      for j := 0 to 7 do
+      begin
+        if Strong then
+          d^ := k[True, (j + i * 2) mod 9] + EXP[EXP[18 * i + j + 10]]
+        else
+          d^ := k[True, j] + EXP[EXP[18 * i + j + 10]];
+        Inc(d);
+      end;
+    end;
+    FillChar(k, SizeOf(k), 0);
+  end;
+
+begin
+  InitBegin(Size);
+  FSAFERMode := SAFERMode;
+  if SAFERMode = smDefault then
+    if Size <= 5 then
+      FSAFERMode := smK40
+    else
+      if Size <= 8 then
+        FSAFERMode := smK64
+      else
+        FSAFERMode := smK128
+    else
+      if SAFERMode = smStrong then
+        if Size <= 5 then
+          FSAFERMode := smSK40
+        else
+          if Size <= 8 then
+            FSAFERMode := smSK64
+          else
+            FSAFERMode := smSK128;
+      SetRounds(FRounds);
+      InitTab;
+      InitKey;
+      InitEnd(IVector);
+end;
+
+class procedure TROCipher_SAFER_K40.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  inherited GetContext(ABufSize, AKeySize, AUserSize);
+  AKeySize := 5;
+end;
+
+class function TROCipher_SAFER_K40.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    005h,0B4h,019h,057h,026h,05Ch,013h,060h
+         DB    0A0h,082h,094h,045h,0D6h,0A5h,046h,0D8h
+         DB    073h,050h,096h,080h,04Fh,06Dh,0F7h,0E5h
+         DB    0C8h,01Ah,0EFh,044h,04Ch,0B4h,059h,013h
+end;
+
+procedure TROCipher_SAFER_K40.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitNew(Key, Size, IVector, smK40);
+end;
+
+class function TROCipher_SAFER_SK40.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0D9h,003h,003h,06Dh,018h,038h,0D1h,0C1h
+         DB    089h,0E8h,038h,012h,07Fh,028h,0FCh,0C7h
+         DB    0C5h,00Bh,0B7h,0C4h,0DBh,021h,0A4h,031h
+         DB    020h,008h,08Ah,077h,0F7h,0DFh,026h,0FFh
+end;
+
+procedure TROCipher_SAFER_SK40.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitNew(Key, Size, IVector, smSK40);
+end;
+
+class procedure TROCipher_SAFER_K64.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  inherited GetContext(ABufSize, AKeySize, AUserSize);
+  AKeySize := 8;
+end;
+
+class function TROCipher_SAFER_K64.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    08Ch,0B2h,032h,0F0h,00Eh,0C2h,0DAh,0CBh
+         DB    039h,008h,02Dh,05Ch,093h,0FFh,0CEh,0F3h
+         DB    08Fh,01Fh,0B7h,02Ch,0C5h,0C7h,0A7h,0E9h
+         DB    089h,0BEh,061h,08Bh,000h,0E6h,09Fh,00Eh
+end;
+
+procedure TROCipher_SAFER_K64.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitNew(Key, Size, IVector, smK64);
+end;
+
+class function TROCipher_SAFER_SK64.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0DDh,09Ch,01Ah,0D6h,029h,00Ch,0EEh,04Fh
+         DB    0E5h,04Bh,0C0h,055h,0BFh,022h,00Eh,0BCh
+         DB    019h,041h,078h,0CFh,094h,0DBh,02Fh,039h
+         DB    06Bh,01Eh,0A7h,0CAh,04Bh,05Fh,077h,0E0h
+end;
+
+procedure TROCipher_SAFER_SK64.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitNew(Key, Size, IVector, smSK64);
+end;
+
+class procedure TROCipher_SAFER_K128.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  inherited GetContext(ABufSize, AKeySize, AUserSize);
+  AKeySize := 16;
+end;
+
+class function TROCipher_SAFER_K128.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    00Ch,0A9h,070h,0B9h,0F3h,014h,087h,0D9h
+         DB    09Eh,05Eh,078h,031h,074h,0DFh,0A8h,0BBh
+         DB    03Dh,040h,0A5h,0D9h,08Ch,07Ch,004h,0B7h
+         DB    09Ch,001h,0DAh,063h,0ABh,026h,035h,0BCh
+end;
+
+procedure TROCipher_SAFER_K128.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitNew(Key, Size, IVector, smK128);
+end;
+
+class function TROCipher_SAFER_SK128.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0C8h,0A6h,070h,033h,029h,038h,038h,02Bh
+         DB    069h,0ACh,061h,072h,08Fh,0DCh,09Fh,0A4h
+         DB    09Eh,06Fh,0C4h,053h,0D8h,089h,0FFh,042h
+         DB    072h,009h,07Dh,0CDh,0D0h,0EAh,07Eh,028h
+end;
+
+procedure TROCipher_SAFER_SK128.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitNew(Key, Size, IVector, smSK128);
+end;
+
+type
+  PTEARec = ^TTEARec;
+  TTEARec = packed record
+    A, b, c, d: LongWord;
+  end;
+
+const
+  TEA_Delta         = $9E3779B9;
+
+procedure TROCipher_TEA.SetRounds(Value: Integer);
+begin
+  FRounds := Value;
+  if FRounds < 16 then
+    FRounds := 16
+  else
+    if FRounds > 32 then
+      FRounds := 32;
+end;
+
+class procedure TROCipher_TEA.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 16;
+  AUserSize := 32;
+end;
+
+class function TROCipher_TEA.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0B7h,0B8h,0AAh,0BBh,026h,04Bh,006h,0F9h
+         DB    070h,086h,0B0h,0E4h,056h,004h,029h,0CCh
+         DB    0BFh,055h,0EAh,04Eh,0EFh,059h,026h,018h
+         DB    019h,0B0h,003h,07Ch,029h,08Ch,0E2h,077h
+end;
+
+procedure TROCipher_TEA.Encode(Data: Pointer);
+{$IFDEF UseASM}
+asm
+         PUSH  EDI
+         PUSH  ESI
+         PUSH  EBX
+         PUSH  EBP
+         PUSH  EDX
+
+         MOV   EBX,[EDX]       // X
+         MOV   EDX,[EDX + 4]   // Y
+         XOR   EDI,EDI         // Sum
+
+         MOV   ESI,[EAX].TROCipher_TEA.FUser  // User
+         MOV   ECX,[EAX].TROCipher_TEA.FRounds  // Rounds
+
+@@1:     ADD   EDI,TEA_Delta
+
+         MOV   EAX,EDX
+         MOV   EBP,EDX
+         SHL   EAX,4
+         SHR   EBP,5
+         ADD   EAX,[ESI]
+         ADD   EBP,[ESI +  4]
+         XOR   EAX,EDX
+         ADD   EAX,EDI
+
+         XOR   EAX,EBP
+         ADD   EAX,EBX
+         MOV   EBX,EAX
+         SHL   EAX,4
+         MOV   EBP,EBX
+         SHR   EBP,5
+         ADD   EAX,[ESI +  8]
+         XOR   EAX,EBX
+         ADD   EBP,[ESI + 12]
+         ADD   EAX,EDI
+
+         XOR   EAX,EBP
+         ADD   EDX,EAX
+
+         DEC   ECX
+         JNZ   @@1
+
+         POP   EAX
+         MOV   [EAX],EBX
+         MOV   [EAX + 4],EDX
+
+         POP   EBP
+         POP   EBX
+         POP   ESI
+         POP   EDI
+end;
+{$ELSE}
+var
+  i, sum, x, y      : LongWord;
+begin
+  sum := 0;
+  x := PTEARec(Data).A;
+  y := PTEARec(Data).b;
+  with PTEARec(User)^ do
+    for i := 1 to FRounds do
+    begin
+      Inc(sum, TEA_Delta);
+      Inc(x, (y shl 4 + A) xor y + sum xor (y shr 5 + b));
+      Inc(y, (x shl 4 + c) xor x + sum xor (x shr 5 + d));
+    end;
+  PTEARec(Data).A := x;
+  PTEARec(Data).b := y;
+end;
+{$ENDIF}
+
+procedure TROCipher_TEA.Decode(Data: Pointer);
+{$IFDEF UseASM}
+asm
+         PUSH  EDI
+         PUSH  ESI
+         PUSH  EBX
+         PUSH  EBP
+         PUSH  EDX
+
+         MOV   EBX,[EDX]       // X
+         MOV   EDX,[EDX + 4]   // Y
+
+         MOV   ESI,[EAX].TROCipher_TEA.FUser  // User
+         MOV   EDI,TEA_Delta
+         MOV   ECX,[EAX].TROCipher_TEA.FRounds  // Rounds
+         IMUL  EDI,ECX
+
+@@1:     MOV   EAX,EBX
+         MOV   EBP,EBX
+         SHL   EAX,4
+         SHR   EBP,5
+         ADD   EAX,[ESI +  8]
+         ADD   EBP,[ESI + 12]
+         XOR   EAX,EBX
+         ADD   EAX,EDI
+         XOR   EAX,EBP
+         SUB   EDX,EAX
+         MOV   EAX,EDX
+         SHL   EAX,4
+         MOV   EBP,EDX
+         SHR   EBP,5
+         ADD   EAX,[ESI]
+         XOR   EAX,EDX
+         ADD   EBP,[ESI + 4]
+         ADD   EAX,EDI
+
+         XOR   EAX,EBP
+         SUB   EDI,TEA_Delta
+         SUB   EBX,EAX
+
+         DEC   ECX
+         JNZ   @@1
+
+         POP   EAX
+         MOV   [EAX],EBX
+         MOV   [EAX + 4],EDX
+
+         POP   EBP
+         POP   EBX
+         POP   ESI
+         POP   EDI
+end;
+{$ELSE}
+var
+  i, sum, x, y      : LongWord;
+begin
+  sum := TEA_Delta * LongWord(FRounds);
+  x := PTEARec(Data).A;
+  y := PTEARec(Data).b;
+  with PTEARec(User)^ do
+    for i := 1 to FRounds do
+    begin
+      Dec(y, (x shl 4 + c) xor x + sum xor (x shr 5 + d));
+      Dec(x, (y shl 4 + A) xor y + sum xor (y shr 5 + b));
+      Dec(sum, TEA_Delta);
+    end;
+  PTEARec(Data).A := x;
+  PTEARec(Data).b := y;
+end;
+{$ENDIF}
+
+procedure TROCipher_TEA.Init(const Key; Size: Integer; IVector: Pointer);
+begin
+  InitBegin(Size);
+  Move(Key, User^, Size);
+  SetRounds(FRounds);
+  InitEnd(IVector);
+end;
+
+class function TROCipher_TEAN.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0CDh,07Eh,0BBh,0A2h,092h,01Ah,04Bh,03Bh
+         DB    0E2h,09Eh,062h,0CFh,0F7h,01Dh,0A5h,0DFh
+         DB    063h,033h,094h,029h,0E2h,036h,07Ch,066h
+         DB    03Fh,0F8h,01Ah,0F9h,002h,078h,0BFh,0A1h
+end;
+
+procedure TROCipher_TEAN.Encode(Data: Pointer);
+var
+  i, sum, x, y      : LongWord;
+  k                 : pintarray;
+begin
+  sum := 0;
+  x := PTEARec(Data).A;
+  y := PTEARec(Data).b;
+  k := User;
+  for i := 1 to FRounds do
+  begin
+    Inc(x, (y shl 4 xor y shr 5) + (y xor sum) + k[sum and 3]);
+    Inc(sum, TEA_Delta);
+    Inc(y, (x shl 4 xor x shr 5) + (x xor sum) + k[sum shr 11 and 3]);
+  end;
+  PTEARec(Data).A := x;
+  PTEARec(Data).b := y;
+end;
+
+procedure TROCipher_TEAN.Decode(Data: Pointer);
+var
+  i, sum, x, y      : LongWord;
+  k                 : pintarray;
+begin
+  sum := TEA_Delta * LongWord(FRounds);
+  x := PTEARec(Data).A;
+  y := PTEARec(Data).b;
+  k := User;
+  with PTEARec(User)^ do
+    for i := 1 to FRounds do
+    begin
+      Dec(y, (x shl 4 xor x shr 5) + (x xor sum) + k[sum shr 11 and 3]);
+      Dec(sum, TEA_Delta);
+      Dec(x, (y shl 4 xor y shr 5) + (y xor sum) + k[sum and 3]);
+    end;
+  PTEARec(Data).A := x;
+  PTEARec(Data).b := y;
+end;
+
+const
+  SCOP_SIZE         = 32;               {is the Maximum}
+
+class procedure TROCipher_SCOP.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := SCOP_SIZE * SizeOf(Integer);
+  AKeySize := 48;
+  AUserSize := (384 * 4 + 4 * SizeOf(Integer)) * 2;
+end;
+
+class function TROCipher_SCOP.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    014h,0C0h,009h,0E8h,073h,0B6h,053h,092h
+         DB    08Bh,013h,069h,0A9h,0F2h,099h,0FEh,05Eh
+         DB    0EEh,03Bh,0FDh,0C1h,050h,059h,00Eh,094h
+         DB    062h,017h,008h,01Eh,0A4h,01Ah,04Dh,08Fh
+end;
+
+procedure TROCipher_SCOP.Encode(Data: Pointer);
+var
+  i, j, w           : Byte;
+  t, t1, T2, T3     : Integer;
+  p                 : pintarray;
+  b                 : PInteger;
+begin
+  p := User;
+  i := p[0];
+  j := p[1];
+  T3 := p[3];
+  p := @p[4 + 128];
+  b := Data;
+  for w := 1 to SCOP_SIZE do
+  begin
+    t1 := p[j];
+    Inc(j, T3);
+    t := p[i - 128];
+    T2 := p[j];
+    Inc(i);
+    T3 := T2 + t;
+    p[j] := T3;
+    Inc(j, T2);
+    Inc(b^, t1 + T2);
+    Inc(b);
+  end;
+end;
+
+procedure TROCipher_SCOP.Decode(Data: Pointer);
+var
+  i, j, w           : Byte;
+  t, t1, T2, T3     : Integer;
+  p                 : pintarray;
+  b                 : PInteger;
+begin
+  p := User;
+  i := p[0];
+  j := p[1];
+  T3 := p[3];
+  p := @p[4 + 128];
+  b := Data;
+  for w := 1 to SCOP_SIZE do
+  begin
+    t1 := p[j];
+    Inc(j, T3);
+    t := p[i - 128];
+    T2 := p[j];
+    Inc(i);
+    T3 := T2 + t;
+    p[j] := T3;
+    Inc(j, T2);
+    Dec(b^, t1 + T2);
+    Inc(b);
+  end;
+end;
+
+procedure TROCipher_SCOP.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  Init_State        : packed record
+    Coef: array[0..7, 0..3] of Byte;
+    x: array[0..3] of LongWord;
+  end;
+
+  procedure ExpandKey;
+  var
+    p               : PByteArray;
+    i, c            : Integer;
+  begin
+    c := 1;
+    p := @Init_State;
+    Move(Key, p^, Size);
+    for i := Size to 47 do
+      p[i] := p[i - Size] + p[i - Size + 1];
+    for i := 0 to 31 do
+      if p[i] = 0 then
+      begin
+        p[i] := c;
+        Inc(c);
+      end;
+  end;
+
+  procedure GP8(Data: pintarray);
+  var
+    i, i2           : Integer;
+    NewX            : array[0..3] of LongWord;
+    x1, x2, X3, X4  : LongWord;
+    y1, y2          : LongWord;
+  begin
+    i := 0;
+    while i < 8 do
+    begin
+      i2 := i shr 1;
+      x1 := Init_State.x[i2] shr 16;
+      x2 := x1 * x1;
+      X3 := x2 * x1;
+      X4 := X3 * x1;
+      y1 := Init_State.Coef[i][0] * X4 +
+        Init_State.Coef[i][1] * X3 +
+        Init_State.Coef[i][2] * x2 +
+        Init_State.Coef[i][3] * x1 + 1;
+      x1 := Init_State.x[i2] and $FFFF;
+      x2 := x1 * x1;
+      X3 := x2 * x1;
+      X4 := X3 * x1;
+      y2 := Init_State.Coef[i + 1][0] * X4 +
+        Init_State.Coef[i + 2][1] * X3 +
+        Init_State.Coef[i + 3][2] * x2 +
+        Init_State.Coef[i + 4][3] * x1 + 1;
+      Data[i2] := y1 shl 16 or y2 and $FFFF;
+      NewX[i2] := y1 and $FFFF0000 or y2 shr 16;
+      Inc(i, 2);
+    end;
+    Init_State.x[0] := NewX[0] shr 16 or NewX[3] shl 16;
+    Init_State.x[1] := NewX[0] shl 16 or NewX[1] shr 16;
+    Init_State.x[2] := NewX[1] shl 16 or NewX[2] shr 16;
+    Init_State.x[3] := NewX[2] shl 16 or NewX[3] shr 16;
+  end;
+
+var
+  i, j              : Integer;
+  t                 : array[0..3] of Integer;
+  p                 : pintarray;
+begin
+  InitBegin(Size);
+  FillChar(Init_State, SizeOf(Init_State), 0);
+  FillChar(t, SizeOf(t), 0);
+  p := Pointer(PChar(User) + 12);
+  ExpandKey;
+  for i := 0 to 7 do
+    GP8(@t);
+  for i := 0 to 11 do
+  begin
+    for j := 0 to 7 do
+      GP8(@p[i * 32 + j * 4]);
+    GP8(@t);
+  end;
+  GP8(@t);
+  i := t[3] and $7F;
+  p[i] := p[i] or 1;
+  p := User;
+  p[0] := t[3] shr 24;
+  p[1] := t[3] shr 16;
+  p[2] := t[3] shr 8;
+  FillChar(Init_State, SizeOf(Init_State), 0);
+  InitEnd(IVector);
+  p := Pointer(PChar(User) + FUserSize shr 1);
+  Move(User^, p^, FUserSize shr 1);
+end;
+
+procedure TROCipher_SCOP.Done;
+begin
+  inherited Done;
+  Move(PByteArray(User)[FUserSize shr 1], User^, FUserSize shr 1);
+end;
+
+class procedure TROCipher_Q128.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 16;
+  AKeySize := 16;
+  AUserSize := 256;
+end;
+
+class function TROCipher_Q128.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    099h,0AAh,0D0h,03Dh,0CAh,014h,04Eh,02Ah
+         DB    0F8h,01Eh,001h,0A0h,0EAh,0ABh,09Fh,048h
+         DB    023h,02Dh,059h,054h,054h,07Eh,02Bh,012h
+         DB    086h,080h,0E8h,033h,0EBh,0E1h,05Eh,0AEh
+end;
+
+procedure TROCipher_Q128.Encode(Data: Pointer);
+{$IFDEF UseASM}
+asm
+       PUSH   ESI
+       PUSH   EDI
+       PUSH   EBX
+       PUSH   EBP
+       PUSH   EDX
+
+       MOV    EDI,[EAX].TROCipher_Q128.FUser
+
+       MOV    EAX,[EDX]       // B0
+       MOV    EBX,[EDX +  4]  // B1
+       MOV    ECX,[EDX +  8]  // B2
+       MOV    EDX,[EDX + 12]  // B3
+
+       MOV    EBP,16
+
+@@1:   MOV    ESI,EAX
+       AND    EAX,03FFh
+       MOV    EAX,[EAX * 4 + OFFSET Q128_DATA]
+       ROL    ESI,10
+       ADD    EAX,[EDI]
+       XOR    EAX,EBX
+
+       MOV    EBX,EAX
+       AND    EAX,03FFh
+       MOV    EAX,[EAX * 4 + OFFSET Q128_DATA]
+       ROL    EBX,10
+       ADD    EAX,[EDI + 4]
+       XOR    EAX,ECX
+
+       MOV    ECX,EAX
+       AND    EAX,03FFh
+       MOV    EAX,[EAX * 4 + OFFSET Q128_DATA]
+       ROL    ECX,10
+       ADD    EAX,[EDI + 8]
+       XOR    EAX,EDX
+
+       MOV    EDX,EAX
+       AND    EAX,03FFh
+       MOV    EAX,[EAX * 4 + OFFSET Q128_DATA]
+       ROL    EDX,10
+       ADD    EAX,[EDI + 12]
+       XOR    EAX,ESI
+
+       ADD    EDI,16
+
+       DEC    EBP
+       JNZ    @@1
+
+       POP    ESI
+
+       MOV    [ESI],EAX       // B0
+       MOV    [ESI +  4],EBX  // B1
+       MOV    [ESI +  8],ECX  // B2
+       MOV    [ESI + 12],EDX  // B3
+
+
+       POP    EBP
+       POP    EBX
+       POP    EDI
+       POP    ESI
+end;
+{$ELSE}
+var
+  d                 : PInteger;
+  B0, B1, B2, B3, i : LongWord;
+begin
+  d := User;
+  B0 := pintarray(Data)[0];
+  B1 := pintarray(Data)[1];
+  B2 := pintarray(Data)[2];
+  B3 := pintarray(Data)[3];
+  for i := 1 to 16 do
+  begin
+    B1 := B1 xor (Q128_Data[B0 and $03FF] + d^);
+    Inc(d);
+    B0 := B0 shl 10 or B0 shr 22;
+    B2 := B2 xor (Q128_Data[B1 and $03FF] + d^);
+    Inc(d);
+    B1 := B1 shl 10 or B1 shr 22;
+    B3 := B3 xor (Q128_Data[B2 and $03FF] + d^);
+    Inc(d);
+    B2 := B2 shl 10 or B2 shr 22;
+    B0 := B0 xor (Q128_Data[B3 and $03FF] + d^);
+    Inc(d);
+    B3 := B3 shl 10 or B3 shr 22;
+  end;
+  pintarray(Data)[0] := B0;
+  pintarray(Data)[1] := B1;
+  pintarray(Data)[2] := B2;
+  pintarray(Data)[3] := B3;
+end;
+{$ENDIF}
+
+procedure TROCipher_Q128.Decode(Data: Pointer);
+{$IFDEF UseASM}
+asm
+       PUSH   ESI
+       PUSH   EDI
+       PUSH   EBX
+       PUSH   EBP
+       PUSH   EDX
+
+       MOV    EDI,[EAX].TROCipher_Q128.FUser
+       LEA    EDI,[EDI + 64 * 4]
+
+       MOV    ESI,[EDX]       // B0
+       MOV    EBX,[EDX +  4]  // B1
+       MOV    ECX,[EDX +  8]  // B2
+       MOV    EDX,[EDX + 12]  // B3
+
+       MOV    EBP,16
+
+@@1:   SUB    EDI,16
+
+       ROR    EDX,10
+       MOV    EAX,EDX
+       AND    EAX,03FFh
+       MOV    EAX,[EAX * 4 + OFFSET Q128_DATA]
+       ADD    EAX,[EDI + 12]
+       XOR    ESI,EAX
+
+       ROR    ECX,10
+       MOV    EAX,ECX
+       AND    EAX,03FFh
+       MOV    EAX,[EAX * 4 + OFFSET Q128_DATA]
+       ADD    EAX,[EDI +  8]
+       XOR    EDX,EAX
+
+       ROR    EBX,10
+       MOV    EAX,EBX
+       AND    EAX,03FFh
+       MOV    EAX,[EAX * 4 + OFFSET Q128_DATA]
+       ADD    EAX,[EDI +  4]
+       XOR    ECX,EAX
+
+       ROR    ESI,10
+       MOV    EAX,ESI
+       AND    EAX,03FFh
+       MOV    EAX,[EAX * 4 + OFFSET Q128_DATA]
+       ADD    EAX,[EDI]
+       XOR    EBX,EAX
+
+       DEC    EBP
+       JNZ    @@1
+
+       POP    EAX
+
+       MOV    [EAX],ESI       // B0
+       MOV    [EAX +  4],EBX  // B1
+       MOV    [EAX +  8],ECX  // B2
+       MOV    [EAX + 12],EDX  // B3
+
+
+       POP    EBP
+       POP    EBX
+       POP    EDI
+       POP    ESI
+end;
+{$ELSE}
+var
+  d                 : PInteger;
+  B0, B1, B2, B3, i : LongWord;
+begin
+  d := @pintarray(User)[63];
+  B0 := pintarray(Data)[0];
+  B1 := pintarray(Data)[1];
+  B2 := pintarray(Data)[2];
+  B3 := pintarray(Data)[3];
+  for i := 1 to 16 do
+  begin
+    B3 := B3 shr 10 or B3 shl 22;
+    B0 := B0 xor (Q128_Data[B3 and $03FF] + d^);
+    Dec(d);
+    B2 := B2 shr 10 or B2 shl 22;
+    B3 := B3 xor (Q128_Data[B2 and $03FF] + d^);
+    Dec(d);
+    B1 := B1 shr 10 or B1 shl 22;
+    B2 := B2 xor (Q128_Data[B1 and $03FF] + d^);
+    Dec(d);
+    B0 := B0 shr 10 or B0 shl 22;
+    B1 := B1 xor (Q128_Data[B0 and $03FF] + d^);
+    Dec(d);
+  end;
+  pintarray(Data)[0] := B0;
+  pintarray(Data)[1] := B1;
+  pintarray(Data)[2] := B2;
+  pintarray(Data)[3] := B3;
+end;
+{$ENDIF}
+
+procedure TROCipher_Q128.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  k                 : array[0..3] of LongWord;
+  i                 : Integer;
+  d                 : PInteger;
+begin
+  InitBegin(Size);
+  FillChar(k, SizeOf(k), 0);
+  Move(Key, k, Size);
+  d := User;
+  for i := 19 downto 1 do
+  begin
+    k[1] := k[1] xor Q128_Data[k[0] and $03FF];
+    k[0] := k[0] shr 10 or k[0] shl 22;
+    k[2] := k[2] xor Q128_Data[k[1] and $03FF];
+    k[1] := k[1] shr 10 or k[1] shl 22;
+    k[3] := k[3] xor Q128_Data[k[2] and $03FF];
+    k[2] := k[2] shr 10 or k[2] shl 22;
+    k[0] := k[0] xor Q128_Data[k[3] and $03FF];
+    k[3] := k[3] shr 10 or k[3] shl 22;
+    if i <= 16 then
+    begin
+      d^ := k[0];
+      Inc(d);
+      d^ := k[1];
+      Inc(d);
+      d^ := k[2];
+      Inc(d);
+      d^ := k[3];
+      Inc(d);
+    end;
+  end;
+  FillChar(k, SizeOf(k), 0);
+  InitEnd(IVector);
+end;
+
+type
+  P3Way_Key = ^T3Way_Key;
+  T3Way_Key = packed record
+    E_Key: array[0..2] of Integer;
+    E_Data: array[0..11] of Integer;
+    D_Key: array[0..2] of Integer;
+    D_Data: array[0..11] of Integer;
+  end;
+
+class procedure TROCipher_3Way.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 12;
+  AKeySize := 12;
+  AUserSize := SizeOf(T3Way_Key);
+end;
+
+class function TROCipher_3Way.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    077h,0FCh,077h,094h,07Ch,08Fh,0DEh,021h
+         DB    0E9h,081h,0DFh,02Ah,0B1h,0BCh,07Eh,0F8h
+         DB    0A3h,0B6h,044h,04Bh,0B6h,0FCh,079h,0C4h
+         DB    09Bh,068h,04Fh,009h,0C7h,0BFh,00Eh,005h
+end;
+
+procedure TROCipher_3Way.Encode(Data: Pointer);
+var
+  i                 : Integer;
+  A0, A1, A2        : LongWord;
+  B0, B1, B2        : LongWord;
+  K0, k1, K2        : LongWord;
+  e                 : PLongWord;
+begin
+  with P3Way_Key(User)^ do
+  begin
+    K0 := E_Key[0];
+    k1 := E_Key[1];
+    K2 := E_Key[2];
+    e := @E_Data;
+  end;
+  A0 := pintarray(Data)[0];
+  A1 := pintarray(Data)[1];
+  A2 := pintarray(Data)[2];
+  for i := 0 to 10 do
+  begin
+    A0 := A0 xor K0 xor e^ shl 16;
+    A1 := A1 xor k1;
+    A2 := A2 xor K2 xor e^;
+    Inc(e);
+
+    B0 := A0 xor A0 shr 16 xor A1 shl 16 xor A1 shr 16 xor A2 shl 16 xor
+      A1 shr 24 xor A2 shl 8 xor A2 shr 8 xor A0 shl 24 xor
+      A2 shr 16 xor A0 shl 16 xor A2 shr 24 xor A0 shl 8;
+    B1 := A1 xor A1 shr 16 xor A2 shl 16 xor A2 shr 16 xor A0 shl 16 xor
+      A2 shr 24 xor A0 shl 8 xor A0 shr 8 xor A1 shl 24 xor
+      A0 shr 16 xor A1 shl 16 xor A0 shr 24 xor A1 shl 8;
+    B2 := A2 xor A2 shr 16 xor A0 shl 16 xor A0 shr 16 xor A1 shl 16 xor
+      A0 shr 24 xor A1 shl 8 xor A1 shr 8 xor A2 shl 24 xor
+      A1 shr 16 xor A2 shl 16 xor A1 shr 24 xor A2 shl 8;
+    asm
+      ROR  B0,10
+      ROL  B2,1
+    end;
+    A0 := B0 xor (B1 or not B2);
+    A1 := B1 xor (B2 or not B0);
+    A2 := B2 xor (B0 or not B1);
+    asm
+      ROL A0,1
+      ROR A2,10
+    end;
+  end;
+  A0 := A0 xor K0 xor e^ shl 16;
+  A1 := A1 xor k1;
+  A2 := A2 xor K2 xor e^;
+  pintarray(Data)[0] := A0 xor A0 shr 16 xor A1 shl 16 xor A1 shr 16 xor A2 shl 16 xor
+    A1 shr 24 xor A2 shl 8 xor A2 shr 8 xor A0 shl 24 xor
+    A2 shr 16 xor A0 shl 16 xor A2 shr 24 xor A0 shl 8;
+  pintarray(Data)[1] := A1 xor A1 shr 16 xor A2 shl 16 xor A2 shr 16 xor A0 shl 16 xor
+    A2 shr 24 xor A0 shl 8 xor A0 shr 8 xor A1 shl 24 xor
+    A0 shr 16 xor A1 shl 16 xor A0 shr 24 xor A1 shl 8;
+  pintarray(Data)[2] := A2 xor A2 shr 16 xor A0 shl 16 xor A0 shr 16 xor A1 shl 16 xor
+    A0 shr 24 xor A1 shl 8 xor A1 shr 8 xor A2 shl 24 xor
+    A1 shr 16 xor A2 shl 16 xor A1 shr 24 xor A2 shl 8;
+end;
+
+procedure TROCipher_3Way.Decode(Data: Pointer);
+var
+  i                 : Integer;
+  A0, A1, A2        : LongWord;
+  B0, B1, B2        : LongWord;
+  K0, k1, K2        : LongWord;
+  e                 : PLongWord;
+begin
+  with P3Way_Key(User)^ do
+  begin
+    K0 := D_Key[0];
+    k1 := D_Key[1];
+    K2 := D_Key[2];
+    e := @D_Data;
+  end;
+  A0 := SwapBits(pintarray(Data)[2]);
+  A1 := SwapBits(pintarray(Data)[1]);
+  A2 := SwapBits(pintarray(Data)[0]);
+  for i := 0 to 10 do
+  begin
+    A0 := A0 xor K0 xor e^ shl 16;
+    A1 := A1 xor k1;
+    A2 := A2 xor K2 xor e^;
+    Inc(e);
+
+    B0 := A0 xor A0 shr 16 xor A1 shl 16 xor A1 shr 16 xor A2 shl 16 xor
+      A1 shr 24 xor A2 shl 8 xor A2 shr 8 xor A0 shl 24 xor
+      A2 shr 16 xor A0 shl 16 xor A2 shr 24 xor A0 shl 8;
+    B1 := A1 xor A1 shr 16 xor A2 shl 16 xor A2 shr 16 xor A0 shl 16 xor
+      A2 shr 24 xor A0 shl 8 xor A0 shr 8 xor A1 shl 24 xor
+      A0 shr 16 xor A1 shl 16 xor A0 shr 24 xor A1 shl 8;
+    B2 := A2 xor A2 shr 16 xor A0 shl 16 xor A0 shr 16 xor A1 shl 16 xor
+      A0 shr 24 xor A1 shl 8 xor A1 shr 8 xor A2 shl 24 xor
+      A1 shr 16 xor A2 shl 16 xor A1 shr 24 xor A2 shl 8;
+    asm
+      ROR B0,10
+      ROL B2,1
+    end;
+    A0 := B0 xor (B1 or not B2);
+    A1 := B1 xor (B2 or not B0);
+    A2 := B2 xor (B0 or not B1);
+    asm
+      ROL A0,1
+      ROR A2,10
+    end;
+  end;
+  A0 := A0 xor K0 xor e^ shl 16;
+  A1 := A1 xor k1;
+  A2 := A2 xor K2 xor e^;
+  B0 := A0 xor A0 shr 16 xor A1 shl 16 xor A1 shr 16 xor A2 shl 16 xor
+    A1 shr 24 xor A2 shl 8 xor A2 shr 8 xor A0 shl 24 xor
+    A2 shr 16 xor A0 shl 16 xor A2 shr 24 xor A0 shl 8;
+  B1 := A1 xor A1 shr 16 xor A2 shl 16 xor A2 shr 16 xor A0 shl 16 xor
+    A2 shr 24 xor A0 shl 8 xor A0 shr 8 xor A1 shl 24 xor
+    A0 shr 16 xor A1 shl 16 xor A0 shr 24 xor A1 shl 8;
+  B2 := A2 xor A2 shr 16 xor A0 shl 16 xor A0 shr 16 xor A1 shl 16 xor
+    A0 shr 24 xor A1 shl 8 xor A1 shr 8 xor A2 shl 24 xor
+    A1 shr 16 xor A2 shl 16 xor A1 shr 24 xor A2 shl 8;
+
+  pintarray(Data)[2] := SwapBits(B0);
+  pintarray(Data)[1] := SwapBits(B1);
+  pintarray(Data)[0] := SwapBits(B2);
+end;
+
+procedure TROCipher_3Way.Init(const Key; Size: Integer; IVector: Pointer);
+
+  procedure RANDGenerate(start: Integer; var p: array of Integer);
+  var
+    i               : Integer;
+  begin
+    for i := 0 to 11 do
+    begin
+      p[i] := start;
+      start := start shl 1;
+      if start and $10000 <> 0 then
+        start := start xor $11011;
+    end;
+  end;
+
+var
+  A0, A1, A2        : Integer;
+  B0, B1, B2        : Integer;
+begin
+  InitBegin(Size);
+  with P3Way_Key(User)^ do
+  begin
+    Move(Key, E_Key, Size);
+    Move(Key, D_Key, Size);
+    RANDGenerate($0B0B, E_Data);
+    RANDGenerate($B1B1, D_Data);
+
+    A0 := D_Key[0];
+    A1 := D_Key[1];
+    A2 := D_Key[2];
+    B0 := A0 xor A0 shr 16 xor A1 shl 16 xor A1 shr 16 xor A2 shl 16 xor
+      A1 shr 24 xor A2 shl 8 xor A2 shr 8 xor A0 shl 24 xor
+      A2 shr 16 xor A0 shl 16 xor A2 shr 24 xor A0 shl 8;
+    B1 := A1 xor A1 shr 16 xor A2 shl 16 xor A2 shr 16 xor A0 shl 16 xor
+      A2 shr 24 xor A0 shl 8 xor A0 shr 8 xor A1 shl 24 xor
+      A0 shr 16 xor A1 shl 16 xor A0 shr 24 xor A1 shl 8;
+    B2 := A2 xor A2 shr 16 xor A0 shl 16 xor A0 shr 16 xor A1 shl 16 xor
+      A0 shr 24 xor A1 shl 8 xor A1 shr 8 xor A2 shl 24 xor
+      A1 shr 16 xor A2 shl 16 xor A1 shr 24 xor A2 shl 8;
+    D_Key[2] := SwapBits(B0);
+    D_Key[1] := SwapBits(B1);
+    D_Key[0] := SwapBits(B2);
+  end;
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_Twofish.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 16;
+  AKeySize := 32;
+  AUserSize := 4256;
+end;
+
+class function TROCipher_Twofish.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0A5h,053h,057h,003h,0EFh,033h,048h,079h
+         DB    09Fh,022h,0B4h,054h,097h,005h,084h,019h
+         DB    087h,0BDh,083h,01Ch,04Dh,0AEh,012h,013h
+         DB    060h,07Ch,07Ch,0D1h,098h,045h,002h,019h
+end;
+
+type
+  PTwofishBox = ^TTwofishBox;
+  TTwofishBox = array[0..3, 0..255] of LongWord;
+
+  TLongRec = record
+    case Integer of
+      0: (L: LongWord);
+      1: (A, b, c, d: Byte);
+  end;
+
+procedure TROCipher_Twofish.Encode(Data: Pointer);
+var
+  S                 : pintarray;
+  Box               : PTwofishBox;
+  i, x, y           : LongWord;
+  A, b, c, d        : TLongRec;
+begin
+  S := User;
+  A.L := pintarray(Data)[0] xor S[0];
+  b.L := pintarray(Data)[1] xor S[1];
+  c.L := pintarray(Data)[2] xor S[2];
+  d.L := pintarray(Data)[3] xor S[3];
+
+  S := @pintarray(User)[8];
+  Box := @pintarray(User)[40];
+  for i := 0 to 7 do
+  begin
+    x := Box[0, A.A] xor Box[1, A.b] xor Box[2, A.c] xor Box[3, A.d];
+    y := Box[1, b.A] xor Box[2, b.b] xor Box[3, b.c] xor Box[0, b.d];
+    asm ROL  D.L,1
+    end;
+    c.L := c.L xor (x + y + S[0]);
+    d.L := d.L xor (x + y shl 1 + S[1]);
+    asm ROR  C.L,1
+    end;
+
+    x := Box[0, c.A] xor Box[1, c.b] xor Box[2, c.c] xor Box[3, c.d];
+    y := Box[1, d.A] xor Box[2, d.b] xor Box[3, d.c] xor Box[0, d.d];
+    asm ROL  B.L,1
+    end;
+    A.L := A.L xor (x + y + S[2]);
+    b.L := b.L xor (x + y shl 1 + S[3]);
+    asm ROR  A.L,1
+    end;
+    Inc(PInteger(S), 4);
+  end;
+  S := User;
+  pintarray(Data)[0] := c.L xor S[4];
+  pintarray(Data)[1] := d.L xor S[5];
+  pintarray(Data)[2] := A.L xor S[6];
+  pintarray(Data)[3] := b.L xor S[7];
+end;
+
+procedure TROCipher_Twofish.Decode(Data: Pointer);
+var
+  S                 : pintarray;
+  Box               : PTwofishBox;
+  i, x, y           : LongWord;
+  A, b, c, d        : TLongRec;
+begin
+  S := User;
+  Box := @pintarray(User)[40];
+  c.L := pintarray(Data)[0] xor S[4];
+  d.L := pintarray(Data)[1] xor S[5];
+  A.L := pintarray(Data)[2] xor S[6];
+  b.L := pintarray(Data)[3] xor S[7];
+  S := @pintarray(User)[36];
+  for i := 0 to 7 do
+  begin
+    x := Box[0, c.A] xor Box[1, c.b] xor Box[2, c.c] xor Box[3, c.d];
+    y := Box[0, d.d] xor Box[1, d.A] xor Box[2, d.b] xor Box[3, d.c];
+    asm ROL  A.L,1
+    end;
+    b.L := b.L xor (x + y shl 1 + S[3]);
+    A.L := A.L xor (x + y + S[2]);
+    asm ROR  B.L,1
+    end;
+
+    x := Box[0, A.A] xor Box[1, A.b] xor Box[2, A.c] xor Box[3, A.d];
+    y := Box[0, b.d] xor Box[1, b.A] xor Box[2, b.b] xor Box[3, b.c];
+    asm ROL  C.L,1
+    end;
+    d.L := d.L xor (x + y shl 1 + S[1]);
+    c.L := c.L xor (x + y + S[0]);
+    asm ROR  D.L,1
+    end;
+    Dec(PByte(S), 16);
+  end;
+  S := User;
+  pintarray(Data)[0] := A.L xor S[0];
+  pintarray(Data)[1] := b.L xor S[1];
+  pintarray(Data)[2] := c.L xor S[2];
+  pintarray(Data)[3] := d.L xor S[3];
+end;
+
+procedure TROCipher_Twofish.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  BoxKey            : array[0..3] of TLongRec;
+  SubKey            : pintarray;
+  Box               : PTwofishBox;
+
+  procedure SetupKey;
+
+    function Encode(K0, k1: Integer): Integer;
+    var
+      R, i, j, G2, G3: Integer;
+      b             : Byte;
+    begin
+      R := 0;
+      for i := 0 to 1 do
+      begin
+        if i <> 0 then
+          R := R xor K0
+        else
+          R := R xor k1;
+        for j := 0 to 3 do
+        begin
+          b := R shr 24;
+          if b and $80 <> 0 then
+            G2 := (b shl 1 xor $014D) and $FF
+          else
+            G2 := b shl 1 and $FF;
+          if b and 1 <> 0 then
+            G3 := (b shr 1 and $7F) xor $014D shr 1 xor G2
+          else
+            G3 := (b shr 1 and $7F) xor G2;
+          R := R shl 8 xor G3 shl 24 xor G2 shl 16 xor G3 shl 8 xor b;
+        end;
+      end;
+      Result := R;
+    end;
+
+    function F32(x: Integer; k: array of Integer): Integer;
+    var
+      A, b, c, d    : Integer;
+    begin
+      A := x and $FF;
+      b := x shr 8 and $FF;
+      c := x shr 16 and $FF;
+      d := x shr 24;
+      if Size = 32 then
+      begin
+        A := Twofish_8x8[1, A] xor k[3] and $FF;
+        b := Twofish_8x8[0, b] xor k[3] shr 8 and $FF;
+        c := Twofish_8x8[0, c] xor k[3] shr 16 and $FF;
+        d := Twofish_8x8[1, d] xor k[3] shr 24;
+      end;
+      if Size >= 24 then
+      begin
+        A := Twofish_8x8[1, A] xor k[2] and $FF;
+        b := Twofish_8x8[1, b] xor k[2] shr 8 and $FF;
+        c := Twofish_8x8[0, c] xor k[2] shr 16 and $FF;
+        d := Twofish_8x8[0, d] xor k[2] shr 24;
+      end;
+      A := Twofish_8x8[0, A] xor k[1] and $FF;
+      b := Twofish_8x8[1, b] xor k[1] shr 8 and $FF;
+      c := Twofish_8x8[0, c] xor k[1] shr 16 and $FF;
+      d := Twofish_8x8[1, d] xor k[1] shr 24;
+
+      A := Twofish_8x8[0, A] xor k[0] and $FF;
+      b := Twofish_8x8[0, b] xor k[0] shr 8 and $FF;
+      c := Twofish_8x8[1, c] xor k[0] shr 16 and $FF;
+      d := Twofish_8x8[1, d] xor k[0] shr 24;
+
+      Result := Twofish_Data[0, A] xor Twofish_Data[1, b] xor
+        Twofish_Data[2, c] xor Twofish_Data[3, d];
+    end;
+
+  var
+    i, j, A, b      : Integer;
+    e, o            : array[0..3] of Integer;
+    k               : array[0..7] of Integer;
+  begin
+    FillChar(k, SizeOf(k), 0);
+    Move(Key, k, Size);
+    if Size <= 16 then
+      Size := 16
+    else
+      if Size <= 24 then
+        Size := 24
+      else
+        Size := 32;
+    j := Size shr 3 - 1;
+    for i := 0 to j do
+    begin
+      e[i] := k[i shl 1];
+      o[i] := k[i shl 1 + 1];
+      BoxKey[j].L := Encode(e[i], o[i]);
+      Dec(j);
+    end;
+    j := 0;
+    for i := 0 to 19 do
+    begin
+      A := F32(j, e);
+      b := ROL(F32(j + $01010101, o), 8);
+      SubKey[i shl 1] := A + b;
+      b := A + b shr 1;
+      SubKey[i shl 1 + 1] := ROL(b, 9);
+      Inc(j, $02020202);
+    end;
+  end;
+
+  procedure DoXOR(d, S: pintarray; Value: LongWord);
+  var
+    i               : LongWord;
+  begin
+    Value := (Value and $FF) * $01010101;
+    for i := 0 to 63 do
+      d[i] := S[i] xor Value;
+  end;
+
+  procedure SetupBox128;
+  var
+    L               : array[0..255] of Byte;
+    A, i            : Integer;
+  begin
+    DoXOR(@L, @Twofish_8x8[0], BoxKey[1].L);
+    A := BoxKey[0].A;
+    for i := 0 to 255 do
+      Box[0, i] := Twofish_Data[0, Twofish_8x8[0, L[i]] xor A];
+    DoXOR(@L, @Twofish_8x8[1], BoxKey[1].L shr 8);
+    A := BoxKey[0].b;
+    for i := 0 to 255 do
+      Box[1, i] := Twofish_Data[1, Twofish_8x8[0, L[i]] xor A];
+    DoXOR(@L, @Twofish_8x8[0], BoxKey[1].L shr 16);
+    A := BoxKey[0].c;
+    for i := 0 to 255 do
+      Box[2, i] := Twofish_Data[2, Twofish_8x8[1, L[i]] xor A];
+    DoXOR(@L, @Twofish_8x8[1], BoxKey[1].L shr 24);
+    A := BoxKey[0].d;
+    for i := 0 to 255 do
+      Box[3, i] := Twofish_Data[3, Twofish_8x8[1, L[i]] xor A];
+  end;
+
+  procedure SetupBox192;
+  var
+    L               : array[0..255] of Byte;
+    A, b, i         : Integer;
+  begin
+    DoXOR(@L, @Twofish_8x8[1], BoxKey[2].L);
+    A := BoxKey[0].A;
+    b := BoxKey[1].A;
+    for i := 0 to 255 do
+      Box[0, i] := Twofish_Data[0, Twofish_8x8[0, Twofish_8x8[0, L[i]] xor b] xor A];
+    DoXOR(@L, @Twofish_8x8[1], BoxKey[2].L shr 8);
+    A := BoxKey[0].b;
+    b := BoxKey[1].b;
+    for i := 0 to 255 do
+      Box[1, i] := Twofish_Data[1, Twofish_8x8[0, Twofish_8x8[1, L[i]] xor b] xor A];
+    DoXOR(@L, @Twofish_8x8[0], BoxKey[2].L shr 16);
+    A := BoxKey[0].c;
+    b := BoxKey[1].c;
+    for i := 0 to 255 do
+      Box[2, i] := Twofish_Data[2, Twofish_8x8[1, Twofish_8x8[0, L[i]] xor b] xor A];
+    DoXOR(@L, @Twofish_8x8[0], BoxKey[2].L shr 24);
+    A := BoxKey[0].d;
+    b := BoxKey[1].d;
+    for i := 0 to 255 do
+      Box[3, i] := Twofish_Data[3, Twofish_8x8[1, Twofish_8x8[1, L[i]] xor b] xor A];
+  end;
+
+  procedure SetupBox256;
+  var
+    L               : array[0..255] of Byte;
+    k               : array[0..255] of Byte;
+    A, b, i         : Integer;
+  begin
+    DoXOR(@k, @Twofish_8x8[1], BoxKey[3].L);
+    for i := 0 to 255 do
+      L[i] := Twofish_8x8[1, k[i]];
+    DoXOR(@L, @L, BoxKey[2].L);
+    A := BoxKey[0].A;
+    b := BoxKey[1].A;
+    for i := 0 to 255 do
+      Box[0, i] := Twofish_Data[0, Twofish_8x8[0, Twofish_8x8[0, L[i]] xor b] xor A];
+    DoXOR(@k, @Twofish_8x8[0], BoxKey[3].L shr 8);
+    for i := 0 to 255 do
+      L[i] := Twofish_8x8[1, k[i]];
+    DoXOR(@L, @L, BoxKey[2].L shr 8);
+    A := BoxKey[0].b;
+    b := BoxKey[1].b;
+    for i := 0 to 255 do
+      Box[1, i] := Twofish_Data[1, Twofish_8x8[0, Twofish_8x8[1, L[i]] xor b] xor A];
+    DoXOR(@k, @Twofish_8x8[0], BoxKey[3].L shr 16);
+    for i := 0 to 255 do
+      L[i] := Twofish_8x8[0, k[i]];
+    DoXOR(@L, @L, BoxKey[2].L shr 16);
+    A := BoxKey[0].c;
+    b := BoxKey[1].c;
+    for i := 0 to 255 do
+      Box[2, i] := Twofish_Data[2, Twofish_8x8[1, Twofish_8x8[0, L[i]] xor b] xor A];
+    DoXOR(@k, @Twofish_8x8[1], BoxKey[3].L shr 24);
+    for i := 0 to 255 do
+      L[i] := Twofish_8x8[0, k[i]];
+    DoXOR(@L, @L, BoxKey[2].L shr 24);
+    A := BoxKey[0].d;
+    b := BoxKey[1].d;
+    for i := 0 to 255 do
+      Box[3, i] := Twofish_Data[3, Twofish_8x8[1, Twofish_8x8[1, L[i]] xor b] xor A];
+  end;
+
+begin
+  InitBegin(Size);
+  SubKey := User;
+  Box := @SubKey[40];
+  SetupKey;
+  if Size = 16 then
+    SetupBox128
+  else
+    if Size = 24 then
+      SetupBox192
+    else
+      SetupBox256;
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_Shark.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 16;
+  AUserSize := 112;
+end;
+
+class function TROCipher_Shark.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0D9h,065h,021h,0AAh,0C0h,0C3h,084h,060h
+         DB    09Dh,0CEh,01Fh,08Bh,0FBh,0ABh,018h,03Fh
+         DB    0A1h,021h,0ACh,0F8h,053h,049h,0C0h,06Fh
+         DB    027h,03Ah,089h,015h,0D3h,07Ah,0E9h,00Bh
+end;
+
+{$IFDEF VER_D4H}                        // >= D4
+{.$DEFINE Shark64}//use this with D4 64bit Operation, but the 32 bit Code is 174 % faster
+{$ENDIF}
+
+type
+  PInt64 = ^TInt64;
+  {$IFDEF Shark64}
+  TInt64 = Int64;
+  {$ELSE}
+  TInt64 = packed record
+    L, R: Integer;
+  end;
+  {$ENDIF}
+
+  PInt64Array = ^TInt64Array;
+  TInt64Array = array[0..1023] of TInt64;
+
+  {$IFDEF Shark64}
+  TShark_Data = array[0..7, 0..255] of Int64;
+  {$ENDIF}
+
+procedure TROCipher_Shark.Encode(Data: Pointer);
+var
+  i, t              : Integer;
+  {$IFDEF Shark64}
+  d                 : TInt64;
+  k                 : PInt64;
+  {$ELSE}
+  L, R              : LongWord;
+  k                 : pintarray;
+  {$ENDIF}
+begin
+  k := User;
+  {$IFDEF Shark64}
+  d := PInt64(Data)^;
+  for i := 0 to 4 do
+  begin
+    d := d xor k^;
+    Inc(k);
+    d := TShark_Data(Shark_CE)[0, d shr 56 and $FF] xor
+      TShark_Data(Shark_CE)[1, d shr 48 and $FF] xor
+      TShark_Data(Shark_CE)[2, d shr 40 and $FF] xor
+      TShark_Data(Shark_CE)[3, d shr 32 and $FF] xor
+      TShark_Data(Shark_CE)[4, d shr 24 and $FF] xor
+      TShark_Data(Shark_CE)[5, d shr 16 and $FF] xor
+      TShark_Data(Shark_CE)[6, d shr 8 and $FF] xor
+      TShark_Data(Shark_CE)[7, d and $FF];
+  end;
+  d := d xor k^;
+  Inc(k);
+  d := (Int64(Shark_SE[d shr 56 and $FF]) shl 56) xor
+    (Int64(Shark_SE[d shr 48 and $FF]) shl 48) xor
+    (Int64(Shark_SE[d shr 40 and $FF]) shl 40) xor
+    (Int64(Shark_SE[d shr 32 and $FF]) shl 32) xor
+    (Int64(Shark_SE[d shr 24 and $FF]) shl 24) xor
+    (Int64(Shark_SE[d shr 16 and $FF]) shl 16) xor
+    (Int64(Shark_SE[d shr 8 and $FF]) shl 8) xor
+    (Int64(Shark_SE[d and $FF]));
+  PInt64(Data)^ := d xor k^;
+  {$ELSE}
+  L := PInt64(Data).L;
+  R := PInt64(Data).R;
+  for i := 0 to 4 do
+  begin
+    L := L xor k[0];
+    R := R xor k[1];
+    Inc(PInteger(k), 2);
+    t := Shark_CE[0, R shr 23 and $1FE] xor
+      Shark_CE[1, R shr 15 and $1FE] xor
+      Shark_CE[2, R shr 7 and $1FE] xor
+      Shark_CE[3, R shl 1 and $1FE] xor
+      Shark_CE[4, L shr 23 and $1FE] xor
+      Shark_CE[5, L shr 15 and $1FE] xor
+      Shark_CE[6, L shr 7 and $1FE] xor
+      Shark_CE[7, L shl 1 and $1FE];
+    R := Shark_CE[0, R shr 23 and $1FE or 1] xor
+      Shark_CE[1, R shr 15 and $1FE or 1] xor
+      Shark_CE[2, R shr 7 and $1FE or 1] xor
+      Shark_CE[3, R shl 1 and $1FE or 1] xor
+      Shark_CE[4, L shr 23 and $1FE or 1] xor
+      Shark_CE[5, L shr 15 and $1FE or 1] xor
+      Shark_CE[6, L shr 7 and $1FE or 1] xor
+      Shark_CE[7, L shl 1 and $1FE or 1];
+    L := t;
+  end;
+  L := L xor k[0];
+  R := R xor k[1];
+  Inc(PInteger(k), 2);
+  L := LongWord(Shark_SE[L shr 24]) shl 24 xor
+    LongWord(Shark_SE[L shr 16 and $FF]) shl 16 xor
+    LongWord(Shark_SE[L shr 8 and $FF]) shl 8 xor
+    LongWord(Shark_SE[L and $FF]);
+  R := LongWord(Shark_SE[R shr 24]) shl 24 xor
+    LongWord(Shark_SE[R shr 16 and $FF]) shl 16 xor
+    LongWord(Shark_SE[R shr 8 and $FF]) shl 8 xor
+    LongWord(Shark_SE[R and $FF]);
+  PInt64(Data).L := L xor k[0];
+  PInt64(Data).R := R xor k[1];
+  {$ENDIF}
+end;
+
+procedure TROCipher_Shark.Decode(Data: Pointer);
+var
+  i, t              : Integer;
+  {$IFDEF Shark64}
+  d                 : TInt64;
+  k                 : PInt64;
+  {$ELSE}
+  R, L              : LongWord;
+  k                 : pintarray;
+  {$ENDIF}
+begin
+  k := User;
+  {$IFDEF Shark64}
+  Inc(k, 7);
+  d := PInt64(Data)^;
+  for i := 0 to 4 do
+  begin
+    d := d xor k^;
+    Inc(k);
+    d := TShark_Data(Shark_CD)[0, d shr 56 and $FF] xor
+      TShark_Data(Shark_CD)[1, d shr 48 and $FF] xor
+      TShark_Data(Shark_CD)[2, d shr 40 and $FF] xor
+      TShark_Data(Shark_CD)[3, d shr 32 and $FF] xor
+
+    TShark_Data(Shark_CD)[4, d shr 24 and $FF] xor
+      TShark_Data(Shark_CD)[5, d shr 16 and $FF] xor
+      TShark_Data(Shark_CD)[6, d shr 8 and $FF] xor
+      TShark_Data(Shark_CD)[7, d and $FF];
+  end;
+  d := d xor k^;
+  Inc(k);
+  d := (Int64(Shark_SD[d shr 56 and $FF]) shl 56) xor
+    (Int64(Shark_SD[d shr 48 and $FF]) shl 48) xor
+    (Int64(Shark_SD[d shr 40 and $FF]) shl 40) xor
+    (Int64(Shark_SD[d shr 32 and $FF]) shl 32) xor
+    (Int64(Shark_SD[d shr 24 and $FF]) shl 24) xor
+    (Int64(Shark_SD[d shr 16 and $FF]) shl 16) xor
+    (Int64(Shark_SD[d shr 8 and $FF]) shl 8) xor
+    (Int64(Shark_SD[d and $FF]));
+  PInt64(Data)^ := d xor k^;
+  {$ELSE}
+  Inc(PInteger(k), 14);
+  L := PInt64(Data).L;
+  R := PInt64(Data).R;
+  for i := 0 to 4 do
+  begin
+    L := L xor k[0];
+    R := R xor k[1];
+    Inc(PInteger(k), 2);
+    t := Shark_CD[0, R shr 23 and $1FE] xor
+      Shark_CD[1, R shr 15 and $1FE] xor
+      Shark_CD[2, R shr 7 and $1FE] xor
+      Shark_CD[3, R shl 1 and $1FE] xor
+      Shark_CD[4, L shr 23 and $1FE] xor
+      Shark_CD[5, L shr 15 and $1FE] xor
+      Shark_CD[6, L shr 7 and $1FE] xor
+      Shark_CD[7, L shl 1 and $1FE];
+    R := Shark_CD[0, R shr 23 and $1FE or 1] xor
+      Shark_CD[1, R shr 15 and $1FE or 1] xor
+      Shark_CD[2, R shr 7 and $1FE or 1] xor
+      Shark_CD[3, R shl 1 and $1FE or 1] xor
+      Shark_CD[4, L shr 23 and $1FE or 1] xor
+      Shark_CD[5, L shr 15 and $1FE or 1] xor
+      Shark_CD[6, L shr 7 and $1FE or 1] xor
+      Shark_CD[7, L shl 1 and $1FE or 1];
+    L := t;
+  end;
+  L := L xor k[0];
+  R := R xor k[1];
+  Inc(PInteger(k), 2);
+  L := Integer(Shark_SD[L shr 24]) shl 24 xor
+    Integer(Shark_SD[L shr 16 and $FF]) shl 16 xor
+    Integer(Shark_SD[L shr 8 and $FF]) shl 8 xor
+    Integer(Shark_SD[L and $FF]);
+  R := Integer(Shark_SD[R shr 24]) shl 24 xor
+    Integer(Shark_SD[R shr 16 and $FF]) shl 16 xor
+    Integer(Shark_SD[R shr 8 and $FF]) shl 8 xor
+    Integer(Shark_SD[R and $FF]);
+  PInt64(Data).L := L xor k[0];
+  PInt64(Data).R := R xor k[1];
+  {$ENDIF}
+end;
+
+procedure TROCipher_Shark.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  Log, ALog         : array[0..255] of Byte;
+
+  procedure InitLog;
+  var
+    i, j            : word;
+  begin
+    ALog[0] := 1;
+    for i := 1 to 255 do
+    begin
+      j := ALog[i - 1] shl 1;
+      if j and $100 <> 0 then
+        j := j xor $01F5;
+      ALog[i] := j;
+    end;
+    for i := 1 to 254 do
+      Log[ALog[i]] := i;
+  end;
+
+  function Transform(A: TInt64): TInt64;
+  type
+    TInt64Rec = packed record
+      Lo, Hi: Integer;
+    end;
+
+    function Mul(A, b: Integer): Byte;
+    begin
+      Result := ALog[(Log[A] + Log[b]) mod 255];
+    end;
+
+  var
+    i, j            : Byte;
+    k, t            : array[0..7] of Byte;
+  begin
+    {$IFDEF Shark64}
+    Move(TInt64Rec(A).Hi, k[0], 4);
+    Move(TInt64Rec(A).Lo, k[4], 4);
+    SwapIntegerBuffer(@k, @k, 2);
+    {$ELSE}
+    Move(A.R, k[0], 4);
+    Move(A.L, k[4], 4);
+    SwapIntegerBuffer(@k, @k, 2);
+    {$ENDIF}
+    for i := 0 to 7 do
+    begin
+      t[i] := Mul(Shark_I[i, 0], k[0]);
+      for j := 1 to 7 do
+        t[i] := t[i] xor Mul(Shark_I[i, j], k[j]);
+    end;
+    {$IFDEF Shark64}
+    Result := t[0];
+    for i := 1 to 7 do
+      Result := Result shl 8 xor t[i];
+    {$ELSE}
+    Result.L := t[0];
+    Result.R := 0;
+    for i := 1 to 7 do
+    begin
+      Result.R := Result.R shl 8 or Result.L shr 24;
+      Result.L := Result.L shl 8 xor t[i];
+    end;
+    {$ENDIF}
+  end;
+
+  function Shark(d: TInt64; k: PInt64): TInt64;
+  var
+    R, t            : Integer;
+  begin
+    {$IFDEF Shark64}
+    for R := 0 to 4 do
+    begin
+      d := d xor k^;
+      Inc(k);
+      d := TShark_Data(Shark_CE)[0, d shr 56 and $FF] xor
+        TShark_Data(Shark_CE)[1, d shr 48 and $FF] xor
+        TShark_Data(Shark_CE)[2, d shr 40 and $FF] xor
+        TShark_Data(Shark_CE)[3, d shr 32 and $FF] xor
+        TShark_Data(Shark_CE)[4, d shr 24 and $FF] xor
+        TShark_Data(Shark_CE)[5, d shr 16 and $FF] xor
+        TShark_Data(Shark_CE)[6, d shr 8 and $FF] xor
+        TShark_Data(Shark_CE)[7, d and $FF];
+    end;
+    d := d xor k^;
+    Inc(k);
+    d := (Int64(Shark_SE[d shr 56 and $FF]) shl 56) xor
+      (Int64(Shark_SE[d shr 48 and $FF]) shl 48) xor
+      (Int64(Shark_SE[d shr 40 and $FF]) shl 40) xor
+      (Int64(Shark_SE[d shr 32 and $FF]) shl 32) xor
+      (Int64(Shark_SE[d shr 24 and $FF]) shl 24) xor
+      (Int64(Shark_SE[d shr 16 and $FF]) shl 16) xor
+      (Int64(Shark_SE[d shr 8 and $FF]) shl 8) xor
+      (Int64(Shark_SE[d and $FF]));
+    Result := d xor k^;
+    {$ELSE}
+    for R := 0 to 4 do
+    begin
+      d.L := d.L xor k.L;
+      d.R := d.R xor k.R;
+      Inc(k);
+      t := Shark_CE[0, d.R shr 23 and $1FE] xor
+        Shark_CE[1, d.R shr 15 and $1FE] xor
+        Shark_CE[2, d.R shr 7 and $1FE] xor
+        Shark_CE[3, d.R shl 1 and $1FE] xor
+        Shark_CE[4, d.L shr 23 and $1FE] xor
+        Shark_CE[5, d.L shr 15 and $1FE] xor
+        Shark_CE[6, d.L shr 7 and $1FE] xor
+        Shark_CE[7, d.L shl 1 and $1FE];
+
+      d.R := Shark_CE[0, d.R shr 23 and $1FE or 1] xor
+        Shark_CE[1, d.R shr 15 and $1FE or 1] xor
+        Shark_CE[2, d.R shr 7 and $1FE or 1] xor
+        Shark_CE[3, d.R shl 1 and $1FE or 1] xor
+        Shark_CE[4, d.L shr 23 and $1FE or 1] xor
+        Shark_CE[5, d.L shr 15 and $1FE or 1] xor
+        Shark_CE[6, d.L shr 7 and $1FE or 1] xor
+        Shark_CE[7, d.L shl 1 and $1FE or 1];
+      d.L := t;
+    end;
+    d.L := d.L xor k.L;
+    d.R := d.R xor k.R;
+    Inc(k);
+    d.L := Integer(Shark_SE[d.L shr 24 and $FF]) shl 24 xor
+      Integer(Shark_SE[d.L shr 16 and $FF]) shl 16 xor
+      Integer(Shark_SE[d.L shr 8 and $FF]) shl 8 xor
+      Integer(Shark_SE[d.L and $FF]);
+    d.R := Integer(Shark_SE[d.R shr 24 and $FF]) shl 24 xor
+      Integer(Shark_SE[d.R shr 16 and $FF]) shl 16 xor
+      Integer(Shark_SE[d.R shr 8 and $FF]) shl 8 xor
+      Integer(Shark_SE[d.R and $FF]);
+    Result.L := d.L xor k.L;
+    Result.R := d.R xor k.R;
+    {$ENDIF}
+  end;
+
+var
+  t                 : array[0..6] of TInt64;
+  A                 : array[0..6] of TInt64;
+  k                 : array[0..15] of Byte;
+  i, j, R           : Byte;
+  e, d              : PInt64Array;
+  L                 : TInt64;
+begin
+  InitBegin(Size);
+  FillChar(k, SizeOf(k), 0);
+  Move(Key, k, Size);
+  InitLog;
+  e := User;
+  d := @e[7];
+  Move(Shark_CE[0], t, SizeOf(t));
+  t[6] := Transform(t[6]);
+  i := 0;
+  {$IFDEF Shark64}
+  for R := 0 to 6 do
+  begin
+    Inc(i);
+    A[R] := k[i and $F];
+    for j := 1 to 7 do
+    begin
+      Inc(i);
+      A[R] := A[R] shl 8 or k[i and $F];
+    end;
+  end;
+  e[0] := A[0] xor Shark(0, @t);
+  for R := 1 to 6 do
+    e[R] := A[R] xor Shark(e[R - 1], @t);
+  {$ELSE}
+  for R := 0 to 6 do
+  begin
+    Inc(i);
+    A[R].L := k[i and $F];
+    A[R].R := 0;
+    for j := 1 to 7 do
+    begin
+      Inc(i);
+      A[R].R := A[R].R shl 8 or A[R].L shr 24;
+      A[R].L := A[R].L shl 8 or k[i and $F];
+    end;
+  end;
+  L.L := 0;
+  L.R := 0;
+  L := Shark(L, @t);
+  e[0].L := A[0].L xor L.L;
+  e[0].R := A[0].R xor L.R;
+  for R := 1 to 6 do
+  begin
+    L := Shark(e[R - 1], @t);
+    e[R].L := A[R].L xor L.L;
+    e[R].R := A[R].R xor L.R;
+  end;
+  {$ENDIF}
+
+  e[6] := Transform(e[6]);
+  d[0] := e[6];
+  d[6] := e[0];
+  for R := 1 to 5 do
+    d[R] := Transform(e[6 - R]);
+
+  FillChar(Log, SizeOf(Log), 0);
+  FillChar(ALog, SizeOf(ALog), 0);
+  FillChar(t, SizeOf(t), 0);
+  FillChar(A, SizeOf(A), 0);
+  FillChar(k, SizeOf(k), 0);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_Square.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 16;
+  AKeySize := 16;
+  AUserSize := 9 * 4 * 2 * SizeOf(LongWord);
+end;
+
+class function TROCipher_Square.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    043h,09Ch,0A6h,0C4h,067h,0E8h,02Eh,047h
+         DB    022h,095h,066h,085h,006h,039h,06Ah,0C9h
+         DB    018h,021h,020h,0F7h,044h,036h,0F1h,061h
+         DB    07Dh,014h,090h,0B1h,0A9h,068h,056h,0C7h
+end;
+
+procedure TROCipher_Square.Encode(Data: Pointer);
+var
+  Key               : pintarray;
+  A, b, c, d        : LongWord;
+  AA, BB, CC        : LongWord;
+  i                 : Integer;
+begin
+  Key := User;
+  A := pintarray(Data)[0] xor Key[0];
+  b := pintarray(Data)[1] xor Key[1];
+  c := pintarray(Data)[2] xor Key[2];
+  d := pintarray(Data)[3] xor Key[3];
+  Inc(PInteger(Key), 4);
+  for i := 0 to 6 do
+  begin
+    AA := Square_TE[0, A and $FF] xor
+      Square_TE[1, b and $FF] xor
+      Square_TE[2, c and $FF] xor
+      Square_TE[3, d and $FF] xor Key[0];
+    BB := Square_TE[0, A shr 8 and $FF] xor
+      Square_TE[1, b shr 8 and $FF] xor
+      Square_TE[2, c shr 8 and $FF] xor
+      Square_TE[3, d shr 8 and $FF] xor Key[1];
+    CC := Square_TE[0, A shr 16 and $FF] xor
+      Square_TE[1, b shr 16 and $FF] xor
+      Square_TE[2, c shr 16 and $FF] xor
+      Square_TE[3, d shr 16 and $FF] xor Key[2];
+    d := Square_TE[0, A shr 24] xor
+      Square_TE[1, b shr 24] xor
+      Square_TE[2, c shr 24] xor
+      Square_TE[3, d shr 24] xor Key[3];
+
+    Inc(PInteger(Key), 4);
+
+    A := AA;
+    b := BB;
+    c := CC;
+  end;
+
+  pintarray(Data)[0] := LongWord(Square_SE[A and $FF]) xor
+    LongWord(Square_SE[b and $FF]) shl 8 xor
+    LongWord(Square_SE[c and $FF]) shl 16 xor
+    LongWord(Square_SE[d and $FF]) shl 24 xor Key[0];
+  pintarray(Data)[1] := LongWord(Square_SE[A shr 8 and $FF]) xor
+    LongWord(Square_SE[b shr 8 and $FF]) shl 8 xor
+    LongWord(Square_SE[c shr 8 and $FF]) shl 16 xor
+    LongWord(Square_SE[d shr 8 and $FF]) shl 24 xor Key[1];
+  pintarray(Data)[2] := LongWord(Square_SE[A shr 16 and $FF]) xor
+    LongWord(Square_SE[b shr 16 and $FF]) shl 8 xor
+    LongWord(Square_SE[c shr 16 and $FF]) shl 16 xor
+    LongWord(Square_SE[d shr 16 and $FF]) shl 24 xor Key[2];
+  pintarray(Data)[3] := LongWord(Square_SE[A shr 24]) xor
+    LongWord(Square_SE[b shr 24]) shl 8 xor
+    LongWord(Square_SE[c shr 24]) shl 16 xor
+    LongWord(Square_SE[d shr 24]) shl 24 xor Key[3];
+end;
+
+procedure TROCipher_Square.Decode(Data: Pointer);
+var
+  Key               : pintarray;
+  A, b, c, d        : LongWord;
+  AA, BB, CC        : LongWord;
+  i                 : Integer;
+begin
+  Key := @pintarray(User)[9 * 4];
+  A := pintarray(Data)[0] xor Key[0];
+  b := pintarray(Data)[1] xor Key[1];
+  c := pintarray(Data)[2] xor Key[2];
+  d := pintarray(Data)[3] xor Key[3];
+  Inc(PInteger(Key), 4);
+
+  for i := 0 to 6 do
+  begin
+    AA := Square_TD[0, A and $FF] xor
+      Square_TD[1, b and $FF] xor
+      Square_TD[2, c and $FF] xor
+      Square_TD[3, d and $FF] xor Key[0];
+    BB := Square_TD[0, A shr 8 and $FF] xor
+      Square_TD[1, b shr 8 and $FF] xor
+      Square_TD[2, c shr 8 and $FF] xor
+      Square_TD[3, d shr 8 and $FF] xor Key[1];
+    CC := Square_TD[0, A shr 16 and $FF] xor
+      Square_TD[1, b shr 16 and $FF] xor
+      Square_TD[2, c shr 16 and $FF] xor
+      Square_TD[3, d shr 16 and $FF] xor Key[2];
+    d := Square_TD[0, A shr 24] xor
+      Square_TD[1, b shr 24] xor
+      Square_TD[2, c shr 24] xor
+      Square_TD[3, d shr 24] xor Key[3];
+
+    Inc(PInteger(Key), 4);
+    A := AA;
+    b := BB;
+    c := CC;
+  end;
+
+  pintarray(Data)[0] := LongWord(Square_SD[A and $FF]) xor
+    LongWord(Square_SD[b and $FF]) shl 8 xor
+    LongWord(Square_SD[c and $FF]) shl 16 xor
+    LongWord(Square_SD[d and $FF]) shl 24 xor Key[0];
+  pintarray(Data)[1] := LongWord(Square_SD[A shr 8 and $FF]) xor
+    LongWord(Square_SD[b shr 8 and $FF]) shl 8 xor
+    LongWord(Square_SD[c shr 8 and $FF]) shl 16 xor
+    LongWord(Square_SD[d shr 8 and $FF]) shl 24 xor Key[1];
+  pintarray(Data)[2] := LongWord(Square_SD[A shr 16 and $FF]) xor
+    LongWord(Square_SD[b shr 16 and $FF]) shl 8 xor
+    LongWord(Square_SD[c shr 16 and $FF]) shl 16 xor
+    LongWord(Square_SD[d shr 16 and $FF]) shl 24 xor Key[2];
+  pintarray(Data)[3] := LongWord(Square_SD[A shr 24]) xor
+    LongWord(Square_SD[b shr 24]) shl 8 xor
+    LongWord(Square_SD[c shr 24]) shl 16 xor
+    LongWord(Square_SD[d shr 24]) shl 24 xor Key[3];
+end;
+
+procedure TROCipher_Square.Init(const Key; Size: Integer; IVector: Pointer);
+type
+  PSquare_Key = ^TSquare_Key;
+  TSquare_Key = array[0..8, 0..3] of LongWord;
+var
+  e, d              : PSquare_Key;
+  t, i              : Integer;
+begin
+  InitBegin(Size);
+  e := User;
+  d := User;
+  Inc(d);
+  Move(Key, e^, Size);
+  for t := 1 to 8 do
+  begin
+    e[t, 0] := e[t - 1, 0] xor ROR(e[t - 1, 3], 8) xor 1 shl (t - 1);
+    d[8 - t, 0] := e[t, 0];
+    e[t, 1] := e[t - 1, 1] xor e[t, 0];
+    d[8 - t, 1] := e[t, 1];
+    e[t, 2] := e[t - 1, 2] xor e[t, 1];
+    d[8 - t, 2] := e[t, 2];
+    e[t, 3] := e[t - 1, 3] xor e[t, 2];
+    d[8 - t, 3] := e[t, 3];
+    for i := 0 to 3 do
+      e[t - 1, i] := Square_PHI[e[t - 1, i] and $FF] xor
+        ROL(Square_PHI[e[t - 1, i] shr 8 and $FF], 8) xor
+        ROL(Square_PHI[e[t - 1, i] shr 16 and $FF], 16) xor
+        ROL(Square_PHI[e[t - 1, i] shr 24], 24);
+  end;
+  d[8] := e[0];
+  InitEnd(IVector);
+end;
+
+{$IFDEF UseASM}
+{$IFNDEF 486GE}                         // no Support for <= CPU 386
+
+{ Ok, follow a BAD BAD dirty Trick, BUT realy realistic and correct
+
+  The Problem:
+    I will use for CPU's >= 486 the BSWAP Mnemonic to speedup Blowfish more.
+    ( BSWAP swaps the Byteorder from a 32bit Word A,B,C,D to D,C,B,A and back
+      and is the fastes Solution, but only for >= 486 CPU)
+    I must wrote two assembler optimated function, one for >= 486
+    and one for <= 386. -> En/Decode() and En/Decode386().
+
+  The normal Solution:
+    See in RO_Hash.pas the SwapInteger proc. We can define a private
+    procedural Field in TROCipher_Blowfish that contains a pointer to the CPU
+    depended code procedure.
+    i.E. an implementation:
+     TROCipher_Blowfish.Encode()
+     begin
+       FProc(Data);
+     end;
+   The Program must make a call to the virtual Method Encode() and
+   a second call to FProc(Data), and in the Init() or Constructor must
+   we initialize these FProc Field.
+
+ The Dirty Solution:
+   A virtual Method, and ONLY a virtual Method, is identicaly to a
+   private Field in the Object Class.
+   This Class Definition is stored in the Code Segment.
+   Now, we modifying, when CPU <= 386, these Field, from the Classdefinition
+   in the Code Segment !!!, and save a new Methodaddress, the Address from
+   TROCipher_Blowfish.Encode386 etc.
+   This changes have Effect to all TROCipher_Blowfish Instances,
+   but not descending Classes from TROCipher_Blowfish :-)
+   This Trick work's theoretical with BP5? upto D4.
+
+ Ok, You say many expense for a little speed more !?
+   YES, but have You this here known ? NO ?, but now.
+}
+
+procedure FindVirtualMethodAndChange(aClass: TClass; MethodAddr, NewAddress: Pointer);
+// MethodAddr must explicit exists
+type
+  PPointer = ^Pointer;
+const
+  PageSize          = SizeOf(Pointer);
+var
+  Table             : PPointer;
+  SaveFlag          : DWord;
+begin
+  Table := PPointer(aClass);
+  while Table^ <> MethodAddr do
+    Inc(Table);
+  if VirtualProtect(Table, PageSize, PAGE_EXECUTE_READWRITE, @SaveFlag) then
+  try
+    Table^ := NewAddress;
+  finally
+    VirtualProtect(Table, PageSize, SaveFlag, @SaveFlag);
+  end;
+end;
+{$ENDIF}
+{$ENDIF}
+
+{$IFDEF VER_D3H}
+
+procedure ModuleUnload(Module: Longword);
+var
+  i                 : Integer;
+begin
+  if IsObject(FCipherList, TStringList) then
+    for i := FCipherList.Count - 1 downto 0 do
+      if FindClassHInstance(TClass(FCipherList.Objects[i])) = Module then
+        FCipherList.Delete(i);
+end;
+{$ENDIF}
+
+initialization
+  {$IFDEF UseASM}
+  {$IFNDEF 486GE}                       // no Support for <= CPU 386
+  if CPUType <= 3 then                  // CPU <= 386
+  begin
+    FindVirtualMethodAndChange(TROCipher_Blowfish, @TROCipher_Blowfish.Encode,
+      @TROCipher_Blowfish.Encode386);
+    FindVirtualMethodAndChange(TROCipher_Blowfish, @TROCipher_Blowfish.Decode,
+      @TROCipher_Blowfish.Decode386);
+  end;
+  {$ENDIF}
+  {$ENDIF}
+  {$IFDEF VER_D3H}
+  AddModuleUnloadProc(ModuleUnload);
+  {$ENDIF}
+  {$IFNDEF ManualRegisterClasses}
+  RegisterCipher(TROCipher_3Way, '', '');
+  RegisterCipher(TROCipher_Blowfish, '', '');
+  RegisterCipher(TROCipher_Gost, '', '');
+  RegisterCipher(TROCipher_IDEA, '', 'free for non-commercial');
+  RegisterCipher(TROCipher_Q128, '', '');
+  RegisterCipher(TROCipher_SAFER_K40, 'SAFER-K40', '');
+  RegisterCipher(TROCipher_SAFER_SK40, 'SAFER-SK40', 'Keyscheduling');
+  RegisterCipher(TROCipher_SAFER_K64, 'SAFER-K64', '');
+  RegisterCipher(TROCipher_SAFER_SK64, 'SAFER-SK64', 'Keyscheduling');
+  RegisterCipher(TROCipher_SAFER_K128, 'SAFER-K128', '');
+  RegisterCipher(TROCipher_SAFER_SK128, 'SAFER-SK128', 'Keyscheduling');
+  RegisterCipher(TROCipher_SCOP, '', '');
+  RegisterCipher(TROCipher_Shark, '', '');
+  RegisterCipher(TROCipher_Square, '', '');
+  RegisterCipher(TROCipher_TEA, 'TEA', '');
+  RegisterCipher(TROCipher_TEAN, 'TEA extended', '');
+  RegisterCipher(TROCipher_Twofish, '', '');
+  {$ENDIF}
+finalization
+  {$IFDEF VER_D3H}
+  RemoveModuleUnloadProc(ModuleUnload);
+  {$ENDIF}
+  FCipherList.Free;
+  FCipherList := nil;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCipher1.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCipher1.pas
new file mode 100644
index 0000000..d7bd96a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCipher1.pas	
@@ -0,0 +1,3493 @@
+{Copyright:      Hagen Reddmann  mailto:HaReddmann@AOL.COM
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        3.0,  Part I from Delphi Encryption Compendium  ( DEC Part I)
+                 Delphi 2-4, designed and testet under D3 & D4
+ Description:    Include a Selection of various RO_Cipher's (Encryption Algo)
+                 impl. Algo:
+                   Cast128, Cast256, Mars, Misty 1, RC2, RC4, RC5, RC6,
+                   FROG, Rijndael, Skipjack, Single DES, Double DES,
+                   Triple DES, Double DES 16byte Plain, Triple DES 16,
+                   Triple DES 24, DESX, NewDES, Diamond II,
+                   Diamond II Lite, Sapphire II
+
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
+ * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+ * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+ * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+ * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+}
+unit uROCipher1;
+
+interface
+
+{$I uROVer.inc}
+
+uses SysUtils, uRODECUtil, uROCipher, uROHash;
+
+type
+  TROCipher_Cast128      = class;
+  TROCipher_Cast256      = class;
+  TROCipher_Mars         = class;
+  TROCipher_Misty        = class;
+  TROCipher_RC2          = class;
+  TROCipher_RC4          = class;  {Streamcipher}
+  TROCipher_RC5          = class;
+  TROCipher_RC6          = class;
+  TROCipher_FROG         = class;
+  TROCipher_Rijndael     = class;
+{$IFDEF VER_D3H}
+  TROCipher_Skipjack     = class;
+{$ENDIF}
+  TROCipher_1DES         = class;  {Single DES  8 byte Blocksize,  8 byte Keysize  56 bits relevant}
+  TROCipher_2DES         = class;  {Double DES  8 byte Blocksize, 16 byte Keysize 112 bits relevant}
+  TROCipher_3DES         = class;  {Triple DES  8 byte Blocksize, 24 byte Keysize 168 bits relevant}
+  TROCipher_2DDES        = class;  {Double DES 16 byte Blocksize, 16 byte Keysize 112 bits relevant}
+  TROCipher_3DDES        = class;  {Triple DES 16 byte Blocksize, 24 byte Keysize 168 bits relevant}
+  TROCipher_3TDES        = class;  {Triple DES 24 byte Blocksize, 24 byte Keysize 168 bits relevant}
+  TROCipher_DESX         = class;  {Single DES  8 byte Blocksize, by RSA added XOR Keying}
+  TROCipher_NewDES       = class;
+  TROCipher_Diamond2     = class;  {very slow, but demonstrate a RO_Cipher without}
+  TROCipher_Diamond2Lite = class;  {static- and keydepends S-Boxes}
+  TROCipher_Sapphire     = class;  {Stream RO_Cipher, eq. Design from german ENIGMA Machine}
+
+  TROCipher_Cast128 = class(TROCipher) {Carlisle Adams and Stafford Tavares }
+  private
+    FRounds: Byte;
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Cast256 = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Mars = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Misty = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_RC2 = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_RC4 = class(TROCipher)
+  private
+    FI: Byte;
+    FJ: Byte;
+    FSI: Byte;
+    FSJ: Byte;
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    procedure Done; override;
+  end;
+
+  TROCipher_RC5 = class(TROCipher)
+  private
+    FRounds: Integer; {8-16, default 12}
+    procedure SetRounds(Value: Integer);
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    property Rounds: Integer read FRounds write SetRounds;
+  end;
+
+  TROCipher_RC6 = class(TROCipher)
+  private
+    FRounds: Integer; {16-24, default 20}
+    procedure SetRounds(Value: Integer);
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    property Rounds: Integer read FRounds write SetRounds;
+  end;
+
+  TROCipher_FROG = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Rijndael = class(TROCipher)
+  private
+    FRounds: Integer;
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+{$IFDEF VER_D3H}
+  TROCipher_Skipjack = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+{$ENDIF}
+  TROCipher_1DES = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+    procedure MakeKey(const Data: array of Byte; Key: PInteger; Reverse: Boolean);
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_2DES = class(TROCipher_1DES)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_3DES = class(TROCipher_1DES)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_2DDES = class(TROCipher_2DES)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  end;
+
+  TROCipher_3DDES = class(TROCipher_3DES)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  end;
+
+  TROCipher_3TDES = class(TROCipher_3DES)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  end;
+
+  TROCipher_DESX = class(TROCipher_1DES)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    procedure InitNew(const Key, Whitening; Size: Integer; IVector: Pointer);
+  end;
+
+{ This algorithm resembles the Data Encryption Standard (DES), but is easier
+  to implement in software and is supposed to be more secure.
+  It is not to be confused with another algorithm--known by the
+  same name--which is simply DES without the initial and final
+  permutations.  The NewDES here is a completely different algorithm.}
+
+  TROCipher_NewDES = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+  end;
+
+  TROCipher_Diamond2 = class(TROCipher)
+  private
+    FRounds: Integer;
+    FBoxE: PByteArray; {dynamicly allociated Boxes}
+    FBoxD: PByteArray;
+    procedure SetRounds(Value: Integer); virtual; {5-15, default is 10}
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    procedure Protect; override;
+    property Rounds: Integer read FRounds write SetRounds;
+  end;
+
+  TROCipher_Diamond2Lite = class(TROCipher_Diamond2)
+  private
+    procedure SetRounds(Value: Integer); override; {4-30, default is 10}
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+  end;
+
+  TROCipher_Sapphire = class(TROCipher)
+  protected
+    class procedure GetContext(var ABufSize, AKeySize, AUserSize: Integer); override;
+    class function TestVector: Pointer; override;
+    procedure Encode(Data: Pointer); override;
+    procedure Decode(Data: Pointer); override;
+  public
+    procedure Init(const Key; Size: Integer; IVector: Pointer); override;
+    procedure Done; override;
+  end;
+
+implementation
+
+{$I *.inc}
+
+type
+  PCipherRec = ^TCipherRec;
+  TCipherRec = packed record
+                  case Integer of
+                    0: (X: array[0..7] of Byte);
+                    1: (A, B: LongWord);
+                end;
+
+class procedure TROCipher_Cast128.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 16;
+  AUserSize := 128;
+end;
+
+class function TROCipher_Cast128.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    06Ch,027h,0D1h,04Ch,0F6h,0BAh,076h,0E7h
+         DB    0A4h,078h,01Ch,020h,018h,08Ch,030h,0BCh
+         DB    0D2h,09Ah,0F6h,02Ah,063h,01Fh,0FDh,004h
+         DB    089h,03Fh,0C7h,00Eh,007h,0A9h,094h,09Bh
+end;
+
+procedure TROCipher_Cast128.Encode(Data: Pointer);
+var
+  T,I,A,B: LongWord;
+  K: PInteger;
+begin
+  K := User;
+  A := SwapInteger(PCipherRec(Data).A);
+  B := SwapInteger(PCipherRec(Data).B);
+  for I := 0 to 2 do
+  begin
+    T := ROL(K^ + B, PIntArray(K)[16]);
+    A := A xor (Cast128_Data[0, T shr 24] xor
+                Cast128_Data[1, T shr 16 and $FF] -
+                Cast128_Data[2, T shr  8 and $FF] +
+                Cast128_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ xor A, PIntArray(K)[16]);
+    B := B xor (Cast128_Data[0, T shr 24] -
+                Cast128_Data[1, T shr 16 and $FF] +
+                Cast128_Data[2, T shr  8 and $FF] xor
+                Cast128_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ - B, PIntArray(K)[16]);
+    A := A xor (Cast128_Data[0, T shr 24] +
+                Cast128_Data[1, T shr 16 and $FF] xor
+                Cast128_Data[2, T shr  8 and $FF] -
+                Cast128_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ + A, PIntArray(K)[16]);
+    B := B xor (Cast128_Data[0, T shr 24] xor
+                Cast128_Data[1, T shr 16 and $FF] -
+                Cast128_Data[2, T shr  8 and $FF] +
+                Cast128_Data[3, T and $FF]);
+    if I = 2 then Break;
+    Inc(K);
+    T := ROL(K^ xor B, PIntArray(K)[16]);
+    A := A xor (Cast128_Data[0, T shr 24] -
+                Cast128_Data[1, T shr 16 and $FF] +
+                Cast128_Data[2, T shr  8 and $FF] xor
+                Cast128_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ - A, PIntArray(K)[16]);
+    B := B xor (Cast128_Data[0, T shr 24] +
+                Cast128_Data[1, T shr 16 and $FF] xor
+                Cast128_Data[2, T shr  8 and $FF] -
+                Cast128_Data[3, T and $FF]);
+    Inc(K);
+    if (I = 1) and (FRounds <= 12) then Break;
+  end;
+  PCipherRec(Data).B := SwapInteger(A);
+  PCipherRec(Data).A := SwapInteger(B);
+end;
+
+procedure TROCipher_Cast128.Decode(Data: Pointer);
+var
+  T,I,A,B: LongWord;
+  K: PInteger;
+label
+  Start;
+begin
+  K := @PIntArray(User)[15];
+  B := SwapInteger(PCipherRec(Data).A);
+  A := SwapInteger(PCipherRec(Data).B);
+  I := 2;
+  if FRounds <= 12 then Dec(K, 4) else goto Start;
+  while I > 0 do
+  begin
+    Dec(I);
+    T := ROL(K^ - A, PIntArray(K)[16]);
+    B := B xor (Cast128_Data[0, T shr 24] +
+                Cast128_Data[1, T shr 16 and $FF] xor
+                Cast128_Data[2, T shr  8 and $FF] -
+                Cast128_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ xor B, PIntArray(K)[16]);
+    A := A xor (Cast128_Data[0, T shr 24] -
+                Cast128_Data[1, T shr 16 and $FF] +
+                Cast128_Data[2, T shr  8 and $FF] xor
+                Cast128_Data[3, T and $FF]);
+    Dec(K);
+Start:
+    T := ROL(K^ + A, PIntArray(K)[16]);
+    B := B xor (Cast128_Data[0, T shr 24] xor
+                Cast128_Data[1, T shr 16 and $FF] -
+                Cast128_Data[2, T shr  8 and $FF] +
+                Cast128_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ - B, PIntArray(K)[16]);
+    A := A xor (Cast128_Data[0, T shr 24] +
+                Cast128_Data[1, T shr 16 and $FF] xor
+                Cast128_Data[2, T shr  8 and $FF] -
+                Cast128_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ xor A, PIntArray(K)[16]);
+    B := B xor (Cast128_Data[0, T shr 24] -
+                Cast128_Data[1, T shr 16 and $FF] +
+                Cast128_Data[2, T shr  8 and $FF] xor
+                Cast128_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ + B, PIntArray(K)[16]);
+    A := A xor (Cast128_Data[0, T shr 24] xor
+                Cast128_Data[1, T shr 16 and $FF] -
+                Cast128_Data[2, T shr  8 and $FF] +
+                Cast128_Data[3, T and $FF]);
+    Dec(K);
+  end;
+  PCipherRec(Data).A := SwapInteger(A);
+  PCipherRec(Data).B := SwapInteger(B);
+end;
+
+procedure TROCipher_Cast128.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  Z,X,T: array[0..3] of LongWord;
+  K: PIntArray;
+  I: LongWord;
+begin
+  InitBegin(Size);
+  if Size <= 10 then FRounds := 12 else FRounds := 16;
+  K := User;
+  FillChar(X, SizeOf(X), 0);
+  Move(Key, X, Size);
+  SwapIntegerBuffer(@X, @X, 4);
+//  for I := 0 to 3 do X[I] := SwapInteger(X[I]);
+  I := 0;
+  while I < 32 do
+  begin
+    if I and 4 = 0 then
+    begin
+      Z[0] := X[0] xor Cast128_Key[0, X[3] shr 16 and $FF] xor
+                       Cast128_Key[1, X[3] and $FF] xor
+                       Cast128_Key[2, X[3] shr 24] xor
+                       Cast128_Key[3, X[3] shr  8 and $FF] xor
+                       Cast128_Key[2, X[2] shr 24];
+      T[0] := Z[0];
+      Z[1] := X[2] xor Cast128_Key[0, Z[0] shr 24] xor
+                       Cast128_Key[1, Z[0] shr  8 and $FF] xor
+                       Cast128_Key[2, Z[0] shr 16 and $FF] xor
+                       Cast128_Key[3, Z[0] and $FF] xor
+                       Cast128_Key[3, X[2] shr  8 and $FF];
+      T[1] := Z[1];
+      Z[2] := X[3] xor Cast128_Key[0, Z[1] and $FF] xor
+                       Cast128_Key[1, Z[1] shr  8 and $FF] xor
+                       Cast128_Key[2, Z[1] shr 16 and $FF] xor
+                       Cast128_Key[3, Z[1] shr 24] xor
+                       Cast128_Key[0, X[2] shr 16 and $FF];
+      T[2] := Z[2];
+      Z[3] := X[1] xor Cast128_Key[0, Z[2] shr  8 and $FF] xor
+                       Cast128_Key[1, Z[2] shr 16 and $FF] xor
+                       Cast128_Key[2, Z[2] and $FF] xor
+                       Cast128_Key[3, Z[2] shr 24] xor
+                       Cast128_Key[1, X[2] and $FF];
+      T[3] := Z[3];
+    end else
+    begin
+      X[0] := Z[2] xor Cast128_Key[0, Z[1] shr 16 and $FF] xor
+                       Cast128_Key[1, Z[1] and $FF] xor
+                       Cast128_Key[2, Z[1] shr 24] xor
+                       Cast128_Key[3, Z[1] shr  8 and $FF] xor
+                       Cast128_Key[2, Z[0] shr 24];
+      T[0] := X[0];
+      X[1] := Z[0] xor Cast128_Key[0, X[0] shr 24] xor
+                       Cast128_Key[1, X[0] shr  8 and $FF] xor
+                       Cast128_Key[2, X[0] shr 16 and $FF] xor
+                       Cast128_Key[3, X[0] and $FF] xor
+                       Cast128_Key[3, Z[0] shr  8 and $FF];
+      T[1] := X[1];
+      X[2] := Z[1] xor Cast128_Key[0, X[1] and $FF] xor
+                       Cast128_Key[1, X[1] shr  8 and $FF] xor
+                       Cast128_Key[2, X[1] shr 16 and $FF] xor
+                       Cast128_Key[3, X[1] shr 24] xor
+                       Cast128_Key[0, Z[0] shr 16 and $FF];
+      T[2] := X[2];
+      X[3] := Z[3] xor Cast128_Key[0, X[2] shr  8 and $FF] xor
+                       Cast128_Key[1, X[2] shr 16 and $FF] xor
+                       Cast128_Key[2, X[2] and $FF] xor
+                       Cast128_Key[3, X[2] shr 24] xor
+                       Cast128_Key[1, Z[0] and $FF];
+      T[3] := X[3];
+    end;
+    case I and 12 of
+      0,12:
+        begin
+          K[I +0] := Cast128_Key[0, T[2] shr 24] xor
+                     Cast128_Key[1, T[2] shr 16 and $FF] xor
+                     Cast128_Key[2, T[1] and $FF] xor
+                     Cast128_Key[3, T[1] shr  8 and $FF];
+          K[I +1] := Cast128_Key[0, T[2] shr  8 and $FF] xor
+                     Cast128_Key[1, T[2] and $FF] xor
+                     Cast128_Key[2, T[1] shr 16 and $FF] xor
+                     Cast128_Key[3, T[1] shr 24];
+          K[I +2] := Cast128_Key[0, T[3] shr 24] xor
+                     Cast128_Key[1, T[3] shr 16 and $FF] xor
+                     Cast128_Key[2, T[0] and $FF] xor
+                     Cast128_Key[3, T[0] shr  8 and $FF];
+          K[I +3] := Cast128_Key[0, T[3] shr  8 and $FF] xor
+                     Cast128_Key[1, T[3] and $FF] xor
+                     Cast128_Key[2, T[0] shr 16 and $FF] xor
+                     Cast128_Key[3, T[0] shr 24];
+        end;
+      4,8:
+        begin
+          K[I +0] := Cast128_Key[0, T[0] and $FF] xor
+                     Cast128_Key[1, T[0] shr  8 and $FF] xor
+                     Cast128_Key[2, T[3] shr 24] xor
+                     Cast128_Key[3, T[3] shr 16 and $FF];
+          K[I +1] := Cast128_Key[0, T[0] shr 16 and $FF] xor
+                     Cast128_Key[1, T[0] shr 24] xor
+                     Cast128_Key[2, T[3] shr  8 and $FF] xor
+                     Cast128_Key[3, T[3] and $FF];
+          K[I +2] := Cast128_Key[0, T[1] and $FF] xor
+                     Cast128_Key[1, T[1] shr  8 and $FF] xor
+                     Cast128_Key[2, T[2] shr 24] xor
+                     Cast128_Key[3, T[2] shr 16 and $FF];
+          K[I +3] := Cast128_Key[0, T[1] shr 16 and $FF] xor
+                     Cast128_Key[1, T[1] shr 24] xor
+                     Cast128_Key[2, T[2] shr  8 and $FF] xor
+                     Cast128_Key[3, T[2] and $FF];
+        end;
+    end;
+    case I and 12 of
+      0: begin
+           K[I +0] := K[I +0] xor Cast128_Key[0, Z[0] shr  8 and $FF];
+           K[I +1] := K[I +1] xor Cast128_Key[1, Z[1] shr  8 and $FF];
+           K[I +2] := K[I +2] xor Cast128_Key[2, Z[2] shr 16 and $FF];
+           K[I +3] := K[I +3] xor Cast128_Key[3, Z[3] shr 24];
+         end;
+      4: begin
+           K[I +0] := K[I +0] xor Cast128_Key[0, X[2] shr 24];
+           K[I +1] := K[I +1] xor Cast128_Key[1, X[3] shr 16 and $FF];
+           K[I +2] := K[I +2] xor Cast128_Key[2, X[0] and $FF];
+           K[I +3] := K[I +3] xor Cast128_Key[3, X[1] and $FF];
+         end;
+      8: begin
+           K[I +0] := K[I +0] xor Cast128_Key[0, Z[2] shr 16 and $FF];
+           K[I +1] := K[I +1] xor Cast128_Key[1, Z[3] shr 24];
+           K[I +2] := K[I +2] xor Cast128_Key[2, Z[0] shr  8 and $FF];
+           K[I +3] := K[I +3] xor Cast128_Key[3, Z[1] shr  8 and $FF];
+         end;
+     12: begin
+          K[I +0] := K[I +0] xor Cast128_Key[0, X[0] and $FF];
+          K[I +1] := K[I +1] xor Cast128_Key[1, X[1] and $FF];
+          K[I +2] := K[I +2] xor Cast128_Key[2, X[2] shr 24];
+          K[I +3] := K[I +3] xor Cast128_Key[3, X[3] shr 16 and $FF];
+        end;
+    end;
+    if I >= 16 then
+    begin
+      K[I +0] := K[I +0] and $1F;
+      K[I +1] := K[I +1] and $1F;
+      K[I +2] := K[I +2] and $1F;
+      K[I +3] := K[I +3] and $1F;
+    end;
+    Inc(I, 4);
+  end;
+  FillChar(X, SizeOf(X), 0);
+  FillChar(Z, SizeOf(Z), 0);
+  FillChar(T, SizeOf(T), 0);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_Cast256.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 16;
+  AKeySize := 32;
+  AUserSize := 384;
+end;
+
+class function TROCipher_Cast256.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0C5h,0F1h,095h,087h,08Ah,031h,01Eh,042h
+         DB    01Ch,045h,010h,007h,049h,0DFh,0F2h,02Dh
+         DB    075h,012h,005h,0B7h,0A9h,0A3h,030h,0DAh
+         DB    09Eh,0F1h,03Bh,010h,0FEh,062h,04Fh,079h
+end;
+
+type
+  PCast256Rec = ^TCast256Rec;
+  TCast256Rec = packed record
+                  case Integer of
+                    0: (A,B,C,D: Integer);
+                    1: (Z: array[0..3] of Integer);
+                end;
+
+procedure TROCipher_Cast256.Encode(Data: Pointer);
+var
+  I,T,A,B,C,D: LongWord;
+  K: PInteger;
+begin
+  K := User;
+  SwapIntegerBuffer(Data, Data, 4);
+  A := PCast256Rec(Data).A;
+  B := PCast256Rec(Data).B;
+  C := PCast256Rec(Data).C;
+  D := PCast256Rec(Data).D;
+  for I := 0 to 5 do
+  begin
+    T := ROL(K^ + D, PIntArray(K)[48]);
+    C := C xor (Cast256_Data[0, T shr 24] xor
+                Cast256_Data[1, T shr 16 and $FF] -
+                Cast256_Data[2, T shr  8 and $FF] +
+                Cast256_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ xor C, PIntArray(K)[48]);
+    B := B xor (Cast256_Data[0, T shr 24] -
+                Cast256_Data[1, T shr 16 and $FF] +
+                Cast256_Data[2, T shr  8 and $FF] xor
+                Cast256_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ - B, PIntArray(K)[48]);
+    A := A xor (Cast256_Data[0, T shr 24] +
+                Cast256_Data[1, T shr 16 and $FF] xor
+                Cast256_Data[2, T shr  8 and $FF] -
+                Cast256_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ + A, PIntArray(K)[48]);
+    D := D xor (Cast256_Data[0, T shr 24] xor
+                Cast256_Data[1, T shr 16 and $FF] -
+                Cast256_Data[2, T shr  8 and $FF] +
+                Cast256_Data[3, T and $FF]);
+    Inc(K);
+  end;
+  for I := 0 to 5 do
+  begin
+    T := ROL(K^ + A, PIntArray(K)[48]);
+    D := D xor (Cast256_Data[0, T shr 24] xor
+                Cast256_Data[1, T shr 16 and $FF] -
+                Cast256_Data[2, T shr  8 and $FF] +
+                Cast256_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ - B, PIntArray(K)[48]);
+    A := A xor (Cast256_Data[0, T shr 24] +
+                Cast256_Data[1, T shr 16 and $FF] xor
+                Cast256_Data[2, T shr  8 and $FF] -
+                Cast256_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ xor C, PIntArray(K)[48]);
+    B := B xor (Cast256_Data[0, T shr 24] -
+                Cast256_Data[1, T shr 16 and $FF] +
+                Cast256_Data[2, T shr  8 and $FF] xor
+                Cast256_Data[3, T and $FF]);
+    Inc(K);
+    T := ROL(K^ + D, PIntArray(K)[48]);
+    C := C xor (Cast256_Data[0, T shr 24] xor
+                Cast256_Data[1, T shr 16 and $FF] -
+                Cast256_Data[2, T shr  8 and $FF] +
+                Cast256_Data[3, T and $FF]);
+    Inc(K);
+  end;
+  PCast256Rec(Data).A := A;
+  PCast256Rec(Data).B := B;
+  PCast256Rec(Data).C := C;
+  PCast256Rec(Data).D := D;
+  SwapIntegerBuffer(Data, Data, 4);
+end;
+
+procedure TROCipher_Cast256.Decode(Data: Pointer);
+var
+  I,T,A,B,C,D: LongWord;
+  K: PInteger;
+begin
+  K := @PIntArray(User)[47];
+  SwapIntegerBuffer(Data, Data, 4);
+  A := PCast256Rec(Data).A;
+  B := PCast256Rec(Data).B;
+  C := PCast256Rec(Data).C;
+  D := PCast256Rec(Data).D;
+  for I := 0 to 5 do
+  begin
+    T := ROL(K^ + D, PIntArray(K)[48]);
+    C := C xor (Cast256_Data[0, T shr 24] xor
+                Cast256_Data[1, T shr 16 and $FF] -
+                Cast256_Data[2, T shr  8 and $FF] +
+                Cast256_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ xor C, PIntArray(K)[48]);
+    B := B xor (Cast256_Data[0, T shr 24] -
+                Cast256_Data[1, T shr 16 and $FF] +
+                Cast256_Data[2, T shr  8 and $FF] xor
+                Cast256_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ - B, PIntArray(K)[48]);
+    A := A xor (Cast256_Data[0, T shr 24] +
+                Cast256_Data[1, T shr 16 and $FF] xor
+                Cast256_Data[2, T shr  8 and $FF] -
+                Cast256_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ + A, PIntArray(K)[48]);
+    D := D xor (Cast256_Data[0, T shr 24] xor
+                Cast256_Data[1, T shr 16 and $FF] -
+                Cast256_Data[2, T shr  8 and $FF] +
+                Cast256_Data[3, T and $FF]);
+    Dec(K);
+  end;
+  for I := 0 to 5 do
+  begin
+    T := ROL(K^ + A, PIntArray(K)[48]);
+    D := D xor (Cast256_Data[0, T shr 24] xor
+                Cast256_Data[1, T shr 16 and $FF] -
+                Cast256_Data[2, T shr  8 and $FF] +
+                Cast256_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ - B, PIntArray(K)[48]);
+    A := A xor (Cast256_Data[0, T shr 24] +
+                Cast256_Data[1, T shr 16 and $FF] xor
+                Cast256_Data[2, T shr  8 and $FF] -
+                Cast256_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ xor C, PIntArray(K)[48]);
+    B := B xor (Cast256_Data[0, T shr 24] -
+                Cast256_Data[1, T shr 16 and $FF] +
+                Cast256_Data[2, T shr  8 and $FF] xor
+                Cast256_Data[3, T and $FF]);
+    Dec(K);
+    T := ROL(K^ + D, PIntArray(K)[48]);
+    C := C xor (Cast256_Data[0, T shr 24] xor
+                Cast256_Data[1, T shr 16 and $FF] -
+                Cast256_Data[2, T shr  8 and $FF] +
+                Cast256_Data[3, T and $FF]);
+    Dec(K);
+  end;
+  PCast256Rec(Data).A := A;
+  PCast256Rec(Data).B := B;
+  PCast256Rec(Data).C := C;
+  PCast256Rec(Data).D := D;
+  SwapIntegerBuffer(Data, Data, 4);
+end;
+
+procedure TROCipher_Cast256.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  X: array[0..7] of LongWord;
+  M, R, I, J, T: LongWord;
+  K: PInteger;
+begin
+  InitBegin(Size);
+  FillChar(X, SizeOf(X), 0);
+  Move(Key, X, Size);
+//  SwapIntegerBuffer(@X, @X, 8);
+  for I := 0 to 7 do X[I] := SwapInteger(X[I]);
+  K := User;
+  M := $5A827999;
+  R := 19;
+  for I := 0 to 11 do
+  begin
+    for J := 0 to 1 do
+    begin
+      T    := ROL(M + X[7], R);
+      X[6] := X[6] xor (Cast256_Data[0, T shr 24] xor
+                        Cast256_Data[1, T shr 16 and $FF] -
+                        Cast256_Data[2, T shr  8 and $FF] +
+                        Cast256_Data[3, T and $FF]);
+      Inc(M, $6ED9EBA1);
+      Inc(R, 17);
+      T    := ROL(M xor X[6], R);
+      X[5] := X[5] xor (Cast256_Data[0, T shr 24] -
+                        Cast256_Data[1, T shr 16 and $FF] +
+                        Cast256_Data[2, T shr  8 and $FF] xor
+                        Cast256_Data[3, T and $FF]);
+      Inc(M, $6ED9EBA1);
+      Inc(R, 17);
+      T    := ROL(M - X[5], R);
+      X[4] := X[4] xor (Cast256_Data[0, T shr 24] +
+                        Cast256_Data[1, T shr 16 and $FF] xor
+                        Cast256_Data[2, T shr  8 and $FF] -
+                        Cast256_Data[3, T and $FF]);
+      Inc(M, $6ED9EBA1);
+      Inc(R, 17);
+      T    := ROL(M + X[4], R);
+      X[3] := X[3] xor (Cast256_Data[0, T shr 24] xor
+                        Cast256_Data[1, T shr 16 and $FF] -
+                        Cast256_Data[2, T shr  8 and $FF] +
+                        Cast256_Data[3, T and $FF]);
+      Inc(M, $6ED9EBA1);
+      Inc(R, 17);
+      T    := ROL(M xor X[3], R);
+      X[2] := X[2] xor (Cast256_Data[0, T shr 24] -
+                        Cast256_Data[1, T shr 16 and $FF] +
+                        Cast256_Data[2, T shr  8 and $FF] xor
+                        Cast256_Data[3, T and $FF]);
+      Inc(M, $6ED9EBA1);
+      Inc(R, 17);
+      T    := ROL(M - X[2], R);
+      X[1] := X[1] xor (Cast256_Data[0, T shr 24] +
+                        Cast256_Data[1, T shr 16 and $FF] xor
+                        Cast256_Data[2, T shr  8 and $FF] -
+                        Cast256_Data[3, T and $FF]);
+      Inc(M, $6ED9EBA1);
+      Inc(R, 17);
+      T    := ROL(M + X[1], R);
+      X[0] := X[0] xor (Cast256_Data[0, T shr 24] xor
+                        Cast256_Data[1, T shr 16 and $FF] -
+                        Cast256_Data[2, T shr  8 and $FF] +
+                        Cast256_Data[3, T and $FF]);
+      Inc(M, $6ED9EBA1);
+      Inc(R, 17);
+      T    := ROL(M xor X[0], R);
+      X[7] := X[7] xor (Cast256_Data[0, T shr 24] -
+                        Cast256_Data[1, T shr 16 and $FF] +
+                        Cast256_Data[2, T shr  8 and $FF] xor
+                        Cast256_Data[3, T and $FF]);
+      Inc(M, $6ED9EBA1);
+      Inc(R, 17);
+    end;
+    if I < 6 then
+    begin
+      PIntArray(K)[48] := X[0] and $1F;
+      PIntArray(K)[49] := X[2] and $1F;
+      PIntArray(K)[50] := X[4] and $1F;
+      PIntArray(K)[51] := X[6] and $1F;
+      PIntArray(K)[0] := X[7];
+      PIntArray(K)[1] := X[5];
+      PIntArray(K)[2] := X[3];
+      PIntArray(K)[3] := X[1];
+    end else
+    begin
+      PIntArray(K)[48] := X[6] and $1F;
+      PIntArray(K)[49] := X[4] and $1F;
+      PIntArray(K)[50] := X[2] and $1F;
+      PIntArray(K)[51] := X[0] and $1F;
+      PIntArray(K)[0] := X[1];
+      PIntArray(K)[1] := X[3];
+      PIntArray(K)[2] := X[5];
+      PIntArray(K)[3] := X[7];
+    end;
+    Inc(K, 4);
+  end;
+  FillChar(X, SizeOf(X), 0);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_Mars.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 16;
+  AKeySize := 156;
+  AUserSize := 160;
+end;
+
+class function TROCipher_Mars.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0D8h,06Ah,0DFh,00Ch,0B5h,066h,024h,00Dh
+         DB    0C5h,000h,0E0h,0A5h,0D8h,0C1h,0C2h,013h
+         DB    045h,0EDh,0F1h,04Fh,0AFh,05Ch,075h,002h
+         DB    01Dh,00Ah,08Dh,010h,06Dh,031h,05Ch,0D5h
+end;
+
+type
+  PMarsRec = ^TMarsRec;
+  TMarsRec = packed record
+               case Integer of
+                 0: (X: array[0..3] of LongWord);
+                 1: (A,B,C,D: LongWord);
+             end;
+
+procedure TROCipher_Mars.Encode(Data: Pointer);
+var
+  K: PInteger;
+  I,L,R,A,B,C,D: LongWord;
+begin
+  K := User;
+  A := PMarsRec(Data).A + K^; Inc(K);
+  B := PMarsRec(Data).B + K^; Inc(K);
+  C := PMarsRec(Data).C + K^; Inc(K);
+  D := PMarsRec(Data).D + K^; Inc(K);
+  for I := 0 to 1 do
+  begin
+    B := B xor Mars_Data[A and $FF] + Mars_Data[A shr 8 and $FF + 256];
+    Inc(C, Mars_Data[A shr 16 and $FF]);
+    D := D xor Mars_Data[A shr 24 + 256];
+    A := (A shr 24 or A shl 8) + D;
+    C := C xor Mars_Data[B and $FF] + Mars_Data[B shr 8 and $FF + 256];
+    Inc(D, Mars_Data[B shr 16 and $FF]);
+    A := A xor Mars_Data[B shr 24 + 256];
+    B := (B shr 24 or B shl 8) + C;
+    D := D xor Mars_Data[C and $FF] + Mars_Data[C shr 8 and $FF + 256];
+    Inc(A, Mars_Data[C shr 16 and $FF]);
+    B := B xor Mars_Data[C shr 24 + 256];
+    C := C shr 24 or C shl 8;
+    A := A xor Mars_Data[D and $FF] + Mars_Data[D shr 8 and $FF + 256];
+    Inc(B, Mars_Data[D shr 16 and $FF]);
+    C := C xor Mars_Data[D shr 24 + 256];
+    D := D shr 24 or D shl 8;
+  end;
+  for I := 0 to 3 do
+  begin
+    L := A + K^;                    Inc(K);
+    A := A shl 13 or A shr 19;
+    R := A * K^;                    Inc(K);
+    R := R shl 5 or R shr 27;
+    Inc(C, L shl R or L shr (32 - R));
+    L := Mars_Data[L and $1FF] xor R;
+    R := R shl 5 or R shr 27;
+    L := L xor R;
+    L := L shl R or L shr (32 - R);
+    if I <= 1 then
+    begin
+      Inc(B, L);
+      D := D xor R;
+    end else
+    begin
+      Inc(D, L);
+      B := B xor R;
+    end;
+    L := B + K^;                    Inc(K);
+    B := B shl 13 or B shr 19;
+    R := B * K^;                    Inc(K);
+    R := R shl 5 or R shr 27;
+    Inc(D, L shl R or L shr (32 - R));
+    L := Mars_Data[L and $1FF] xor R;
+    R := R shl 5 or R shr 27;
+    L := L xor R;
+    L := L shl R or L shr (32 - R);
+    if I <= 1 then
+    begin
+      Inc(C, L);
+      A := A xor R;
+    end else
+    begin
+      Inc(A, L);
+      C := C xor R;
+    end;
+    L := C + K^;                    Inc(K);
+    C := C shl 13 or C shr 19;
+    R := C * K^;                    Inc(K);
+    R := R shl 5 or R shr 27;
+    Inc(A, L shl R or L shr (32 - R));
+    L := Mars_Data[L and $1FF] xor R;
+    R := R shl 5 or R shr 27;
+    L := L xor R;
+    L := L shl R or L shr (32 - R);
+    if I <= 1 then
+    begin
+      Inc(D, L);
+      B := B xor R;
+    end else
+    begin
+      Inc(B, L);
+      D := D xor R;
+    end;
+    L := D + K^;                    Inc(K);
+    D := D shl 13 or D shr 19;
+    R := D * K^;                    Inc(K);
+    R := R shl 5 or R shr 27;
+    Inc(B, L shl R or L shr (32 - R));
+    L := Mars_Data[L and $1FF] xor R;
+    R := R shl 5 or R shr 27;
+    L := L xor R;
+    L := L shl R or L shr (32 - R);
+    if I <= 1 then
+    begin
+      Inc(A, L);
+      C := C xor R;
+    end else
+    begin
+      Inc(C, L);
+      A := A xor R;
+    end;
+  end;
+  for I := 0 to 1 do
+  begin
+    B := B xor Mars_Data[A and $FF + 256];
+    Dec(C, Mars_Data[A shr 24]);
+    D := D - Mars_Data[A shr 16 and $FF + 256] xor Mars_Data[A shr 8 and $FF];
+    A := A shl 24 or A shr 8;
+    C := C xor Mars_Data[B and $FF + 256];
+    Dec(D, Mars_Data[B shr 24]);
+    A := A - Mars_Data[B shr 16 and $FF + 256] xor Mars_Data[B shr 8 and $FF];
+    B := B shl 24 or B shr 8;
+    Dec(C, B);
+    D := D xor Mars_Data[C and $FF + 256];
+    Dec(A, Mars_Data[C shr 24]);
+    B := B - Mars_Data[C shr 16 and $FF + 256] xor Mars_Data[C shr 8 and $FF];
+    C := C shl 24 or C shr 8;
+    Dec(D, A);
+    A := A xor Mars_Data[D and $FF + 256];
+    Dec(B, Mars_Data[D shr 24]);
+    C := C - Mars_Data[D shr 16 and $FF + 256] xor Mars_Data[D shr 8 and $FF];
+    D := D shl 24 or D shr 8;
+  end;
+  PMarsRec(Data).A := A - K^; Inc(K);
+  PMarsRec(Data).B := B - K^; Inc(K);
+  PMarsRec(Data).C := C - K^; Inc(K);
+  PMarsRec(Data).D := D - K^;
+end;
+
+procedure TROCipher_Mars.Decode(Data: Pointer);
+var
+  K: PInteger;
+  I,L,R,A,B,C,D: LongWord;
+begin
+  K := @PIntArray(User)[39];
+  D := PMarsRec(Data).D + K^; Dec(K);
+  C := PMarsRec(Data).C + K^; Dec(K);
+  B := PMarsRec(Data).B + K^; Dec(K);
+  A := PMarsRec(Data).A + K^; Dec(K);
+  for I := 0 to 1 do
+  begin
+    D := D shr 24 or D shl 8;
+    C := C xor Mars_Data[D shr 8 and $FF] + Mars_Data[D shr 16 and $FF + 256];
+    Inc(B, Mars_Data[D shr 24]);
+    A := A xor Mars_Data[D and $FF + 256];
+    Inc(D, A);
+    C := C shr 24 or C shl 8;
+    B := B xor Mars_Data[C shr 8 and $FF] + Mars_Data[C shr 16 and $FF + 256];
+    Inc(A, Mars_Data[C shr 24]);
+    D := D xor Mars_Data[C and $FF + 256];
+    Inc(C, B);
+    B := B shr 24 or B shl 8;
+    A := A xor Mars_Data[B shr 8 and $FF] + Mars_Data[B shr 16 and $FF + 256];
+    Inc(D, Mars_Data[B shr 24]);
+    C := C xor Mars_Data[B and $FF + 256];
+    A := A shr 24 or A shl 8;
+    D := D xor Mars_Data[A shr 8 and $FF] + Mars_Data[A shr 16 and $FF + 256];
+    Inc(C, Mars_Data[A shr 24]);
+    B := B xor Mars_Data[A and $FF + 256];
+  end;
+  for I := 0 to 3 do
+  begin
+    R := D * K^;                      Dec(K);
+    R := R shl 5 or R shr 27;
+    D := D shr 13 or D shl 19;
+    L := D + K^;                      Dec(K);
+    Dec(B, L shl R or L shr (32 - R));
+    L := Mars_Data[L and $1FF] xor R;
+    R := R shl 5 or R shr 27;
+    L := L xor R;
+    L := L shl R or L shr (32 - R);
+    if I <= 1 then
+    begin
+      Dec(C, L);
+      A := A xor R;
+    end else
+    begin
+      Dec(A, L);
+      C := C xor R;
+    end;
+    R := C * K^;                      Dec(K);
+    R := R shl 5 or R shr 27;
+    C := C shr 13 or C shl 19;
+    L := C + K^;                      Dec(K);
+    Dec(A, L shl R or L shr (32 - R));
+    L := Mars_Data[L and $1FF] xor R;
+    R := R shl 5 or R shr 27;
+    L := L xor R;
+    L := L shl R or L shr (32 - R);
+    if I <= 1 then
+    begin
+      Dec(B, L);
+      D := D xor R;
+    end else
+    begin
+      Dec(D, L);
+      B := B xor R;
+    end;
+    R := B * K^;                      Dec(K);
+    R := R shl 5 or R shr 27;
+    B := B shr 13 or B shl 19;
+    L := B + K^;                      Dec(K);
+    Dec(D, L shl R or L shr (32 - R));
+    L := Mars_Data[L and $1FF] xor R;
+    R := R shl 5 or R shr 27;
+    L := L xor R;
+    L := L shl R or L shr (32 - R);
+    if I <= 1 then
+    begin
+      Dec(A, L);
+      C := C xor R;
+    end else
+    begin
+      Dec(C, L);
+      A := A xor R;
+    end;
+    R := A * K^;                      Dec(K);
+    R := R shl 5 or R shr 27;
+    A := A shr 13 or A shl 19;
+    L := A + K^;                      Dec(K);
+    Dec(C, L shl R or L shr (32 - R));
+    L := Mars_Data[L and $1FF] xor R;
+    R := R shl 5 or R shr 27;
+    L := L xor R;
+    L := L shl R or L shr (32 - R);
+    if I <= 1 then
+    begin
+      Dec(D, L);
+      B := B xor R;
+    end else
+    begin
+      Dec(B, L);
+      D := D xor R;
+    end;
+  end;
+  for I := 0 to 1 do
+  begin
+    D := D shl 24 or D shr 8;
+    C := C xor Mars_Data[D shr 24 + 256];
+    Dec(B, Mars_Data[D shr 16 and $FF]);
+    A := A - Mars_Data[D shr 8 and $FF + 256] xor Mars_Data[D and $FF];
+    C := C shl 24 or C shr 8;
+    B := B xor Mars_Data[C shr 24 + 256];
+    Dec(A, Mars_Data[C shr 16 and $FF]);
+    D := D - Mars_Data[C shr 8 and $FF + 256] xor Mars_Data[C and $FF];
+    Dec(B, C);
+    B := B shl 24 or B shr 8;
+    A := A xor Mars_Data[B shr 24 + 256];
+    Dec(D, Mars_Data[B shr 16 and $FF]);
+    C := C - Mars_Data[B shr 8 and $FF + 256] xor Mars_Data[B and $FF];
+    Dec(A, D);
+    A := A shl 24 or A shr 8;
+    D := D xor Mars_Data[A shr 24 + 256];
+    Dec(C, Mars_Data[A shr 16 and $FF]);
+    B := B - Mars_Data[A shr 8 and $FF + 256] xor Mars_Data[A and $FF];
+  end;
+  PMarsRec(Data).D := D - K^; Dec(K);
+  PMarsRec(Data).C := C - K^; Dec(K);
+  PMarsRec(Data).B := B - K^; Dec(K);
+  PMarsRec(Data).A := A - K^;
+end;
+
+procedure TROCipher_Mars.Init(const Key; Size: Integer; IVector: Pointer);
+
+  procedure Mask(var X, M: LongWord);
+  var
+    U: LongWord;
+  begin
+    U := X and (X shr 1);
+    U := U and (U shr 2);
+    U := U and (U shr 4);
+    U := U and (U shr 1) and (U shr 2);
+    M := U;
+    U := (X xor $FFFFFFFF) and ((X xor $FFFFFFFF) shr 1);
+    U := U and (U shr 2);
+    U := U and (U shr 4);
+    U := U and (U shr 1) and (U shr 2);
+    U := U or M;
+    M := (U shl 1) or (U shl 2) or (U shl 3) or (U shl 4) or
+         (U shl 5) or (U shl 6) or (U shl 7) or (U shl 8);
+    M := (M or U or (U shl 9)) and ((X xor $FFFFFFFF) xor (X shl 1)) and ((X xor $FFFFFFFF) xor (X shr 1));
+    M := M and $FFFFFFFC;
+  end;
+
+var
+  T: array[-7..39] of LongWord;
+  I,J: Integer;
+  M,U,W: LongWord;
+  K,B: PIntArray;
+begin
+  InitBegin(Size);
+  K := User;
+  B := @Mars_Data;
+  Move(Key, K^, Size);
+  Move(Mars_Key, T, SizeOf(Mars_Key));
+  Size := Size div 4;
+  for I := 0 to 38 do
+  begin
+    U    := T[I - 7] xor T[I - 2];
+    T[I] := ROL(U, 3) xor K[I mod Size] xor LongWord(I);
+  end;
+  T[39] := Size;
+  for J := 0 to 6 do
+  begin
+    for I := 1 to 39 do
+    begin
+      U := T[I] + B[T[I - 1] and $1FF];
+      T[I] := ROL(U, 9);
+    end;
+    U := T[0] + B[T[39] and $1FF];
+    T[0] := ROL(U, 9);
+  end;
+  for I := 0 to 39 do K[(I * 7) mod 40] := T[I];
+  I := 5;
+  repeat
+    U := B[256 + (K[I] and $3)];
+    J := K[I + 3] and $1F;
+    W := K[I] or $3;
+    Mask(W, M);
+    K[I] := W xor (ROL(U, J) and M);
+    Inc(I, 2);
+  until I >= 37;
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_Misty.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 16;
+  AUserSize := 128;
+end;
+
+class function TROCipher_Misty.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    064h,07Bh,0C5h,0C6h,049h,045h,0AAh,095h
+         DB    05Dh,064h,0CDh,056h,07Ch,06Ch,0B6h,047h
+         DB    081h,057h,0FEh,08Ch,0F4h,084h,019h,0BCh
+         DB    027h,060h,00Ch,0A6h,079h,085h,00Fh,0C9h
+end;
+
+function Misty_I(Value, Key: LongWord): LongWord;
+begin
+  Result := Misty_Data9[Value shr 7 and $1FF] xor (Value and $7F);
+  Value := (Misty_Data7[Value and $7F] xor Result and $7F) xor (Key shr 9 and $7F);
+  Result := Misty_Data9[Result xor (Key and $1FF)] xor Value or Value shl 9;
+end;
+
+function Misty_O(Value, K: LongWord; Key: PIntArray): LongWord;
+begin
+  Result := Misty_I((Value shr 16) xor Key[K], Key[(K + 5) and 7 + 8]) xor (Value and $FFFF);
+  Value  := Misty_I((Value and $FFFF) xor Key[(K + 2) and 7], Key[(K + 1) and 7 + 8]) xor Result;
+  Result := Misty_I(Result xor Key[(K + 7) and 7], Key[(K + 3) and 7 + 8]) xor Value;
+  Result := Result or (Value xor Key[(k+4) and 7]) shl 16;
+end;
+
+function Misty_E(Value, K: LongWord; Key: PIntArray): LongWord;
+begin
+  Result := Value shr 16;
+  Value  := Value and $FFFF;
+  if K and 1 <> 0 then
+  begin
+    K      := K shr 1;
+    Value  := Value  xor (Result and Key[(K + 2) and 7 + 8]);
+    Result := Result xor (Value  or  Key[(K + 4) and 7]);
+  end else
+  begin
+    K      := K shr 1;
+    Value  := Value  xor (Result and Key[K]);
+    Result := Result xor (Value  or  Key[(K + 6) and 7 + 8]);
+  end;
+  Result:= (Result shl 16) or Value;
+end;
+
+function Misty_D(Value, K: LongWord; Key: PIntArray): LongWord;
+begin
+  Result := Value shr 16;
+  Value  := Value and $FFFF;
+  if K and 1 <> 0 then
+  begin
+    K      := K shr 1;
+    Result := Result xor (Value  or  Key[(K + 4) and 7]);
+    Value  := Value  xor (Result and Key[(K + 2) and 7 + 8]);
+  end else
+  begin
+    K      := K shr 1;
+    Result := Result xor (Value  or  Key[(K +6) and 7 + 8]);
+    Value  := Value  xor (Result and Key[K]);
+  end;
+  Result:= (Result shl 16) or Value;
+end;
+
+procedure TROCipher_Misty.Encode(Data: Pointer);
+var
+  A,B: LongWord;
+  Key: PIntArray;
+begin
+  Key := User;
+  A := PCipherRec(Data).A;
+  B := PCipherRec(Data).B;
+  A := Misty_E(A, 0, Key);
+  B := Misty_E(B, 1, Key) xor Misty_O(A, 0, Key);
+  A := A xor Misty_O(B, 1, Key);
+  A := Misty_E(A, 2, Key);
+  B := Misty_E(B, 3, Key) xor Misty_O(A, 2, Key);
+  A := A xor Misty_O(B, 3, Key);
+  A := Misty_E(A, 4, Key);
+  B := Misty_E(B, 5, Key) xor Misty_O(A, 4, Key);
+  A := A xor Misty_O(B, 5, Key);
+  A := Misty_E(A, 6, Key);
+  B := Misty_E(B, 7, Key) xor Misty_O(A, 6, Key);
+  A := A xor Misty_O(B, 7, Key);
+  PCipherRec(Data).B := Misty_E(A, 8, Key);
+  PCipherRec(Data).A := Misty_E(B, 9, Key);
+end;
+
+procedure TROCipher_Misty.Decode(Data: Pointer);
+var
+  A,B: LongWord;
+  Key: PIntArray;
+begin
+  Key := User;
+  B := Misty_D(PCipherRec(Data).A, 9, Key);
+  A := Misty_D(PCipherRec(Data).B, 8, Key);
+  A := A xor Misty_O(B, 7, Key);
+  B := Misty_D(B xor Misty_O(A, 6, Key), 7, Key);
+  A := Misty_D(A, 6, Key);
+  A := A xor Misty_O(B, 5, Key);
+  B := Misty_D(B xor Misty_O(A, 4, Key), 5, Key);
+  A := Misty_D(A, 4, Key);
+  A := A xor Misty_O(B, 3, Key);
+  B := Misty_D(B xor Misty_O(A, 2, Key), 3, Key);
+  A := Misty_D(A, 2, Key);
+  A := A xor Misty_O(B, 1, Key);
+  PCipherRec(Data).B := Misty_D(B xor Misty_O(A, 0, Key), 1, Key);
+  PCipherRec(Data).A := Misty_D(A, 0, Key);
+end;
+
+procedure TROCipher_Misty.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..15] of Byte;
+  D: PIntArray;
+  I: Integer;
+begin
+  InitBegin(Size);
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  D := User;
+  for I := 0 to 7 do D[I] := K[I * 2] * 256 + K[I * 2 +1];
+  for I := 0 to 7 do
+  begin
+    D[I +  8] := Misty_I(D[I], D[(I + 1) and 7]);
+    D[I + 16] := D[I + 8] and $1FF;
+    D[I + 24] := D[I + 8] shr 9;
+  end;
+  FillChar(K, SizeOf(K), 0);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_RC2.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 128;
+  AUserSize := 128;
+end;
+
+class function TROCipher_RC2.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    00Eh,0C8h,0E5h,04Fh,0CCh,032h,0EAh,0BEh
+         DB    029h,064h,0EFh,0BEh,053h,014h,0EDh,0DCh
+         DB    0D7h,0ADh,0CFh,010h,047h,067h,0EEh,061h
+         DB    0D9h,073h,0F2h,013h,0FCh,031h,008h,0EAh
+end;
+
+type
+  PRC2Rec = ^TRC2Rec;
+  TRC2Rec = packed record
+              case Integer of
+               0: (X: array[0..3] of Word);
+               1: (A,B,C,D: Word);
+            end;
+
+procedure TROCipher_RC2.Encode(Data: Pointer);
+
+  function ROLADD16(Value, Add, Shift: Integer): Word; assembler;
+  asm
+      ADD  EAX,EDX
+      ROL  AX,CL
+  end;
+
+var
+  I: Integer;
+  K: PWord;
+  L: PWordArray;
+begin
+  K := User;
+  L := User;
+  with PRC2Rec(Data)^ do
+  begin
+    for I := 0 to 4 do
+    begin
+      A := ROLADD16(A, (B and not D) + (C and D) + K^, 1); Inc(K);
+      B := ROLADD16(B, (C and not A) + (D and A) + K^, 2); Inc(K);
+      C := ROLADD16(C, (D and not B) + (A and B) + K^, 3); Inc(K);
+      D := ROLADD16(D, (A and not C) + (B and C) + K^, 5); Inc(K);
+    end;
+    Inc(A, L[D and $3F]);
+    Inc(B, L[A and $3F]);
+    Inc(C, L[B and $3F]);
+    Inc(D, L[C and $3F]);
+    for I := 0 to 5 do
+    begin
+      A := ROLADD16(A, (B and not D) + (C and D) + K^, 1); Inc(K);
+      B := ROLADD16(B, (C and not A) + (D and A) + K^, 2); Inc(K);
+      C := ROLADD16(C, (D and not B) + (A and B) + K^, 3); Inc(K);
+      D := ROLADD16(D, (A and not C) + (B and C) + K^, 5); Inc(K);
+    end;
+    Inc(A, L[D and $3F]);
+    Inc(B, L[A and $3F]);
+    Inc(C, L[B and $3F]);
+    Inc(D, L[C and $3F]);
+    for I := 0 to 4 do
+    begin
+      A := ROLADD16(A, (B and not D) + (C and D) + K^, 1); Inc(K);
+      B := ROLADD16(B, (C and not A) + (D and A) + K^, 2); Inc(K);
+      C := ROLADD16(C, (D and not B) + (A and B) + K^, 3); Inc(K);
+      D := ROLADD16(D, (A and not C) + (B and C) + K^, 5); Inc(K);
+    end;
+  end;
+end;
+
+procedure TROCipher_RC2.Decode(Data: Pointer);
+
+  function RORSUB16(Value, Sub, Shift: Integer): Word; assembler;
+  asm
+      ROR  AX,CL
+      SUB  EAX,EDX
+  end;
+
+var
+  I: Integer;
+  K: PWord;
+  L: PWordArray;
+begin
+  L := User;
+  K := @L[63];
+  with PRC2Rec(Data)^ do
+  begin
+    for I := 0 to 4 do
+    begin
+      D := RORSUB16(D, (A and not C) + (B and C) + K^, 5); Dec(K);
+      C := RORSUB16(C, (D and not B) + (A and B) + K^, 3); Dec(K);
+      B := RORSUB16(B, (C and not A) + (D and A) + K^, 2); Dec(K);
+      A := RORSUB16(A, (B and not D) + (C and D) + K^, 1); Dec(K);
+    end;
+    Dec(D, L[C and $3F]);
+    Dec(C, L[B and $3F]);
+    Dec(B, L[A and $3F]);
+    Dec(A, L[D and $3F]);
+    for I := 0 to 5 do
+    begin
+      D := RORSUB16(D, (A and not C) + (B and C) + K^, 5); Dec(K);
+      C := RORSUB16(C, (D and not B) + (A and B) + K^, 3); Dec(K);
+      B := RORSUB16(B, (C and not A) + (D and A) + K^, 2); Dec(K);
+      A := RORSUB16(A, (B and not D) + (C and D) + K^, 1); Dec(K);
+    end;
+    Dec(D, L[C and $3F]);
+    Dec(C, L[B and $3F]);
+    Dec(B, L[A and $3F]);
+    Dec(A, L[D and $3F]);
+    for I := 0 to 4 do
+    begin
+      D := RORSUB16(D, (A and not C) + (B and C) + K^, 5); Dec(K);
+      C := RORSUB16(C, (D and not B) + (A and B) + K^, 3); Dec(K);
+      B := RORSUB16(B, (C and not A) + (D and A) + K^, 2); Dec(K);
+      A := RORSUB16(A, (B and not D) + (C and D) + K^, 1); Dec(K);
+    end;
+  end;
+end;
+
+procedure TROCipher_RC2.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  I: Integer;
+  K: PByteArray;
+begin
+  InitBegin(Size);
+  K := User;
+  Move(Key, K^, Size);
+  for I := Size to 127 do
+    K[I] := RC2_Data[(K[I - Size] + K[I - 1]) and $FF];
+  K[0] := RC2_Data[K[0]];
+  InitEnd(IVector);
+end;
+
+const
+  RC4_BufSize = 16;
+
+class procedure TROCipher_RC4.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := RC4_BufSize;
+  AKeySize := 256;
+  AUserSize := 256 * 2;
+end;
+
+class function TROCipher_RC4.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    02Dh,08Fh,0EEh,042h,087h,07Bh,0AEh,072h
+         DB    0F8h,02Bh,08Ch,0A5h,012h,014h,0A8h,07Eh
+         DB    07Eh,08Ch,0DBh,05Eh,096h,049h,06Ch,09Ch
+         DB    0EEh,05Eh,020h,06Ch,07Ah,067h,002h,05Dh
+end;
+
+procedure TROCipher_RC4.Encode(Data: Pointer);
+var
+  D: PByteArray;
+  B: PByte;
+  X,S: Byte;
+begin
+  D := User;
+  B := Data;
+  for X := 0 to RC4_BufSize -1 do
+  begin
+    Inc(FI);
+    S := D[FI];
+    Inc(FJ, S);
+    D[FI] := D[FJ];
+    D[FJ] := S;
+    B^    := B^ xor D[(D[FI] + S) and $FF];
+    Inc(B);
+  end;
+end;
+
+procedure TROCipher_RC4.Decode(Data: Pointer);
+begin
+  Encode(Data);
+end;
+
+procedure TROCipher_RC4.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..255] of Byte;
+  D: PByteArray;
+  I,J,S: Integer;
+begin
+  InitBegin(Size);
+  FI := 0;
+  FJ := 0;
+  J := 0;
+  D := User;
+  for I := 0 to 255 do
+  begin
+    D[I] := I;
+    K[I] := PByteArray(@Key)[I mod Size];
+  end;
+  for I := 0 to 255 do
+  begin
+    J := (J + D[I] + K[I]) and $FF;
+    S := D[I];
+    D[I] := D[J];
+    D[J] := S;
+  end;
+  InitEnd(IVector);
+{Save the Key}
+  Move(D[0], D[256], 256);
+  FSI := FI;
+  FSJ := FJ;
+  FillChar(K, SizeOf(K), 0);
+end;
+
+procedure TROCipher_RC4.Done;
+begin
+  inherited Done;
+  FI := FSI;
+  FJ := FSJ;
+  Move(PByteArray(User)[256], User^, 256);
+end;
+
+procedure TROCipher_RC5.SetRounds(Value: Integer);
+begin
+  if Value < 8 then Value := 8 else
+    if Value > 16 then Value := 16;
+  FRounds := Value;
+end;
+
+class procedure TROCipher_RC5.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 256;
+  AUserSize := 136;
+end;
+
+class function TROCipher_RC5.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    010h,039h,02Ch,0E0h,00Bh,05Fh,009h,07Fh
+         DB    0D6h,0B1h,06Ch,00Eh,0B9h,075h,0D5h,0CCh
+         DB    0FCh,0BEh,0B5h,08Dh,041h,0ACh,054h,07Ch
+         DB    083h,030h,026h,09Dh,0ACh,0CBh,00Ah,069h
+end;
+
+procedure TROCipher_RC5.Encode(Data: Pointer);
+
+  function XORROLADD(Value, Add, Shift: Integer): Integer; assembler;
+  asm
+      XOR  EAX,ECX
+      ROL  EAX,CL
+      ADD  EAX,EDX
+  end;
+
+var
+  K: PInteger;
+  I,A,B: LongWord;
+begin
+  K := User;
+  A := PCipherRec(Data).A + K^; Inc(K);
+  B := PCipherRec(Data).B + K^; Inc(K);
+  for I := 1 to FRounds do
+  begin
+    A := XORROLADD(A, K^, B); Inc(K);
+    B := XORROLADD(B, K^, A); Inc(K); 
+  end;
+  PCipherRec(Data).A := A;
+  PCipherRec(Data).B := B;
+end;
+
+procedure TROCipher_RC5.Decode(Data: Pointer);
+
+  function RORSUBXOR(Value, Sub, Shift: Integer): Integer; assembler;
+  asm
+     SUB  EAX,EDX
+     ROR  EAX,CL
+     XOR  EAX,ECX
+  end;
+
+var
+  I,A,B: LongWord;
+  K: PInteger;
+begin
+  K := @PIntArray(User)[FRounds shl 1 +1];
+  A := PCipherRec(Data).A;
+  B := PCipherRec(Data).B;
+  for I := 1 to FRounds do
+  begin
+    B := RORSUBXOR(B, K^, A); Dec(K);
+    A := RORSUBXOR(A, K^, B); Dec(K);
+  end;
+  PCipherRec(Data).B := B - K^; Dec(K);
+  PCipherRec(Data).A := A - K^;
+end;
+
+procedure TROCipher_RC5.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..63] of LongWord;
+  D: PIntArray;
+  I,J,L,A,B,Z: LongWord;
+begin
+  InitBegin(Size);
+  if (FRounds < 8) or (FRounds > 16) then FRounds := 12;
+  D := User;
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  L := Size shr 2;
+  if Size and 3 <> 0 then Inc(L);
+  J := $B7E15163;
+  for I := 0 to (FRounds + 1) * 2 do
+  begin
+    D[I] := J;
+    Inc(J, $9E3779B9);
+  end;
+  if L > LongWord(FRounds + 1) * 2 then Z := L * 3 else Z := (FRounds + 1) * 6;
+  I := 0;
+  J := 0;
+  A := 0;
+  B := 0;
+  for Z := Z downto 1 do
+  begin
+    A := ROL(D[I] + A + B, 3);
+    D[I] := A;
+    B := ROL(K[J] + A + B, A + B);
+    K[J] := B;
+    I := (I + 1) mod (LongWord(FRounds + 1) * 2);
+    J := (J + 1) mod L;
+  end;
+  FillChar(K, SizeOf(K), 0);
+  InitEnd(IVector);
+end;
+
+procedure TROCipher_RC6.SetRounds(Value: Integer);
+begin
+  if Value < 16 then Value := 16 else
+    if Value > 24 then Value := 24;
+  FRounds := Value;
+end;
+
+class procedure TROCipher_RC6.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 16;
+  AKeySize := 256;
+  AUserSize := 272;
+end;
+
+class function TROCipher_RC6.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    098h,071h,065h,0A1h,010h,0FEh,0BDh,0F9h
+         DB    007h,085h,03Eh,0FCh,021h,0DBh,0FCh,0A1h
+         DB    08Fh,05Fh,08Bh,0F7h,045h,028h,081h,00Dh
+         DB    0EFh,09Ah,022h,07Ah,0F0h,062h,02Ch,0C6h
+end;
+
+type
+  PRC6Rec = ^TRC6Rec;
+  TRC6Rec = packed record
+              case Integer of
+                0: (X: array[0..3] of LongWord);
+                1: (A,B,C,D: LongWord);
+            end;
+
+function MULROL(Value: Integer): Integer; assembler;
+asm
+      MOV  EDX,EAX
+      SHL  EDX,1
+      INC  EDX
+      IMUL EAX,EDX
+      ROL  EAX,5
+end;
+
+procedure TROCipher_RC6.Encode(Data: Pointer);
+var
+  K: PInteger;
+  I,T,U: LongWord;
+begin
+  K := User;
+  with PRC6Rec(Data)^ do
+  begin
+    Inc(B, K^); Inc(K);
+    Inc(D, K^); Inc(K);
+    for I := 1 to FRounds do
+    begin
+      T := MULROL(B);
+      U := MULROL(D);
+      A := ROLADD(A xor T, K^, U); Inc(K);
+      C := ROLADD(C xor U, K^, T); Inc(K);
+
+      T := A; A := B; B := C; C := D; D := T;
+    end;
+    Inc(A, K^); Inc(K);
+    Inc(C, K^);
+  end;
+end;
+
+procedure TROCipher_RC6.Decode(Data: Pointer);
+var
+  I,U,T: LongWord;
+  K: PInteger;
+begin
+  K := @PIntArray(User)[FRounds * 2 +3];
+  with PRC6Rec(Data)^ do
+  begin
+    Dec(C, K^); Dec(K);
+    Dec(A, K^); Dec(K);
+    for I := 1 to FRounds do
+    begin
+      T := A; A := D; D := C; C := B; B := T;
+
+      U := MULROL(D);
+      T := MULROL(B);
+      C := ROR(C - K^, T) xor U;      Dec(K);
+      A := ROR(A - K^, U) xor T;      Dec(K);
+    end;
+    Dec(D, K^); Dec(K);
+    Dec(B, K^);
+  end;
+end;
+
+procedure TROCipher_RC6.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..63] of LongWord;
+  D: PIntArray;
+  I,J,L,A,B,Z: LongWord;
+begin
+  InitBegin(Size);
+  if (FRounds < 16) or (FRounds > 24) then FRounds := 20;
+  D := User;
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  L := Size shr 2;
+  if Size and 3 <> 0 then Inc(L);
+  J := $B7E15163;
+  for I := 0 to (FRounds + 2) * 2 do
+  begin
+    D[I] := J;
+    Inc(J, $9E3779B9);
+  end;
+  if L > LongWord(FRounds + 2) * 2 then Z := L * 3 else Z := (FRounds + 2) * 6;
+  I := 0;
+  J := 0;
+  A := 0;
+  B := 0;
+  for Z := Z downto 1 do
+  begin
+    A := ROL(D[I] + A + B, 3);
+    D[I] := A;
+    B := ROL(K[J] + A + B, A + B);
+    K[J] := B;
+    I := (I + 1) mod (LongWord(FRounds + 2) * 2);
+    J := (J + 1) mod L;
+  end;
+  FillChar(K, SizeOf(K), 0);
+  InitEnd(IVector);
+end;
+
+const
+  FROG_BufSize =  32;  {change this to 8,16,32,64,128}
+  FROG_Rounds  =   8;
+
+class procedure TROCipher_FROG.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := FROG_BufSize;
+  AKeySize := 125;
+  AUserSize := (FROG_BufSize * 2 + 256) * FROG_Rounds * 2;
+end;
+
+class function TROCipher_FROG.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    022h,02Dh,006h,067h,016h,031h,09Ch,0C8h
+         DB    0A5h,056h,04Bh,04Ch,0F7h,069h,0B0h,07Ah
+         DB    0D5h,01Fh,09Fh,0B8h,0D0h,00Eh,0EDh,0D1h
+         DB    070h,050h,09Bh,0C8h,00Bh,035h,028h,04Ah
+end;
+
+procedure TROCipher_FROG.Encode(Data: Pointer);
+var
+  D,U: PByteArray;
+  I,J,A: Integer;
+  X,Y: PByte;
+begin
+  D := Data;
+  U := User;
+  for I := 1 to FROG_Rounds do
+  begin
+    X := Pointer(U);
+    Inc(PAnsiChar(U), BufSize);
+    Y := Pointer(PAnsiChar(U) + 256);
+    for J := 0 to BufSize-2 do
+    begin
+      A        := D[J];          {holds in A, Compiler make faster Code}
+      A        := U[A xor X^];
+      Inc(X);
+      D[J + 1] := D[J + 1] xor A;
+      D[Y^]    := D[Y^] xor A;
+      Inc(Y);
+      D[J]     := A;
+    end;
+    J     := BufSize-1;
+    A     := D[J];
+    A     := U[A xor X^];
+    D[0]  := D[0] xor A;
+    D[Y^] := D[Y^] xor A;
+    D[J]  := A;
+    Inc(PAnsiChar(U), BufSize + 256);
+  end;
+end;
+
+procedure TROCipher_FROG.Decode(Data: Pointer);
+var
+  D,U: PByteArray;
+  I,J,A: Integer;
+  X,Y: PByte;
+begin
+  D := Data;
+  U := User;
+  Inc(PAnsiChar(U), UserSize);
+  for I := 1 to FROG_Rounds do
+  begin
+    Y := Pointer(U);
+    Dec(PAnsiChar(U), BufSize + 256);
+    X := Pointer(U);
+    J := BufSize -1;
+    Dec(Y);
+    A     := D[J];          {holds in A, Compiler make faster Code}
+    D[Y^] := D[Y^] xor A;
+    D[0]  := D[0] xor A;
+    Dec(X);
+    D[J]  := U[A] xor X^;
+    repeat
+      Dec(J);
+      Dec(Y);
+      A       := D[J];
+      D[Y^]   := D[Y^] xor A;
+      D[J +1] := D[J +1] xor A;
+      Dec(X);
+      D[J]    := U[A] xor X^;
+    until J = 0;
+    Dec(PAnsiChar(U), BufSize);
+  end;
+end;
+
+procedure TROCipher_FROG.Init(const Key; Size: Integer; IVector: Pointer);
+
+  procedure MakeKey(D: PByteArray; Invert: Boolean);
+
+    procedure InvertPermutation(D: PByteArray);
+    var
+      Inv: array[0..255] of Byte;
+      I: Integer;
+    begin
+      for I := 0 to 255 do Inv[D[I]] := I;
+      Move(Inv, D^, 256);
+    end;
+
+    procedure MakePermutation(D: PByteArray; Size: Integer);
+    var
+      Use: array[0..255] of Byte;
+      I,J,Last: Integer;
+    begin
+      for I := 0 to 255 do Use[I] := I;
+      Last := Size-1;
+      J := 0;
+      for I := 0 to Size-2 do
+      begin
+        J := (J + D[I]) mod (Last + 1);
+        D[I] := Use[J];
+        if J < Last then Move(Use[J + 1], Use[J], Last - J);
+        Dec(Last);
+        if J > Last then J := 0;
+      end;
+      D[Size-1] := Use[0];
+    end;
+
+  var
+    Used: array[0..127] of Boolean;
+    X,J,I,K,L: Integer;
+    P: PByteArray;
+  begin
+    P := D;
+    for X := 1 to FROG_Rounds do
+    begin
+      Inc(PAnsiChar(P), BufSize);
+      MakePermutation(P, 256);
+      if Invert then InvertPermutation(P);
+      Inc(PAnsiChar(P), 256);
+      MakePermutation(P, BufSize);
+      FillChar(Used, BufSize, False);
+      J := 0;
+      for I := 0 to BufSize -2 do
+      begin
+        if P[J] = 0 then
+        begin
+          K := J;
+          repeat
+            K := (K + 1) mod BufSize;
+          until not Used[K];
+          P[J] := K;
+          L := K;
+          while P[L] <> K do L := P[L];
+          P[L] := 0;
+        end;
+        Used[J] := True;
+        J := P[J];
+      end;
+      for I := 0 to BufSize - 1 do
+        if P[I] = (I + 1) mod BufSize then
+          P[I] := (I + 2) mod BufSize;
+      Inc(PAnsiChar(P), BufSize);
+    end;
+  end;
+
+  procedure HashKey(D: PByteArray);
+  var
+    I,J,K: Integer;
+    P: PByte;
+  begin
+    J := 0;
+    K := 0;
+    P := User;
+    for I := 0 to UserSize div 2 -1 do
+    begin
+      P^ := FROG_Data[J] xor TByteArray(Key)[K];
+      Inc(P);
+      if J < 250 then Inc(J) else J := 0;
+      if K < Size-1 then Inc(K) else K := 0;
+    end;
+    MakeKey(PByteArray(User), False);
+    I := Size;
+    if I > BufSize then I := BufSize;
+    XORBuffers(Buffer, @Key, I, Buffer);
+    PByte(Buffer)^ := PByte(Buffer)^ xor Size;
+    I := UserSize div 2;
+    P := Pointer(D);
+    while I > 0 do
+    begin
+      Encode(Buffer);
+      J := I;
+      if J > BufSize then J := BufSize;
+      Move(Buffer^, P^, J);
+      Inc(P, J);
+      Dec(I, J);
+    end;
+  end;
+
+var
+  UKey: PByteArray;
+begin
+  InitBegin(Size);
+  UKey := AllocMem(UserSize shr 1);
+  try
+    HashKey(UKey);
+    Protect;
+    Move(UKey^, User^, UserSize shr 1);
+    MakeKey(User, False);    {encyption Key}
+    MakeKey(UKey, True);     {decryption Key}
+    Move(UKey^, PByteArray(User)[UserSize shr 1], UserSize shr 1);
+    InitEnd(IVector);
+  finally
+    ReallocMem(UKey, 0);
+  end;
+end;
+
+const
+{don't change this}
+  Rijndael_Blocks =  4;
+  Rijndael_Rounds = 14;
+
+class procedure TROCipher_Rijndael.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := Rijndael_Blocks * 4;
+  AKeySize := 32;
+  AUserSize := (Rijndael_Rounds + 1) * Rijndael_Blocks * SizeOf(Integer) * 2;
+end;
+
+class function TROCipher_Rijndael.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    094h,06Dh,02Bh,05Eh,0E0h,0ADh,01Bh,05Ch
+         DB    0A5h,023h,0A5h,013h,095h,08Bh,03Dh,02Dh
+         DB    093h,087h,0F3h,037h,045h,051h,0F6h,058h
+         DB    09Bh,0E7h,090h,01Bh,036h,087h,0F9h,0A9h
+end;
+
+procedure TROCipher_Rijndael.Encode(Data: Pointer);
+var
+  P,K: PInteger;
+  I,A,B,C,D: Integer;
+begin
+  P := User;
+  K := Data;
+  for I := 2 to FRounds do
+  begin
+    A := K^ xor P^;                             Inc(P); Inc(K);
+    B := K^ xor P^;                             Inc(P); Inc(K);
+    C := K^ xor P^;                             Inc(P); Inc(K);
+    D := K^ xor P^;                             Inc(P);
+
+    K^ := Rijndael_T[0, D and $FF]        xor
+          Rijndael_T[1, A shr  8 and $FF] xor
+          Rijndael_T[2, B shr 16 and $FF] xor
+          Rijndael_T[3, C shr 24];                      Dec(K);
+    K^ := Rijndael_T[0, C and $FF]        xor
+          Rijndael_T[1, D shr  8 and $FF] xor
+          Rijndael_T[2, A shr 16 and $FF] xor
+          Rijndael_T[3, B shr 24];                      Dec(K);
+    K^ := Rijndael_T[0, B and $FF]        xor
+          Rijndael_T[1, C shr  8 and $FF] xor
+          Rijndael_T[2, D shr 16 and $FF] xor
+          Rijndael_T[3, A shr 24];                      Dec(K);
+    K^ := Rijndael_T[0, A and $FF]        xor
+          Rijndael_T[1, B shr  8 and $FF] xor
+          Rijndael_T[2, C shr 16 and $FF] xor
+          Rijndael_T[3, D shr 24];
+  end;
+
+  A := K^ xor P^;                                       Inc(P); Inc(K);
+  B := K^ xor P^;                                       Inc(P); Inc(K);
+  C := K^ xor P^;                                       Inc(P); Inc(K);
+  D := K^ xor P^;                                       Inc(P);
+
+  K^ := Rijndael_S[0, D and $FF]               or
+        Rijndael_S[0, A shr  8 and $FF] shl  8 or
+        Rijndael_S[0, B shr 16 and $FF] shl 16 or
+        Rijndael_S[0, C shr 24]         shl 24;                 Dec(K);
+  K^ := Rijndael_S[0, C and $FF]               or
+        Rijndael_S[0, D shr  8 and $FF] shl  8 or
+        Rijndael_S[0, A shr 16 and $FF] shl 16 or
+        Rijndael_S[0, B shr 24]         shl 24;                 Dec(K);
+  K^ := Rijndael_S[0, B and $FF]               or
+        Rijndael_S[0, C shr  8 and $FF] shl  8 or
+        Rijndael_S[0, D shr 16 and $FF] shl 16 or
+        Rijndael_S[0, A shr 24]         shl 24;                 Dec(K);
+  K^ := Rijndael_S[0, A and $FF]               or
+        Rijndael_S[0, B shr  8 and $FF] shl  8 or
+        Rijndael_S[0, C shr 16 and $FF] shl 16 or
+        Rijndael_S[0, D shr 24]         shl 24;
+
+  for I := 1 to Rijndael_Blocks do
+  begin
+    K^ := K^ xor P^;
+    Inc(P);
+    Inc(K);
+  end;
+end;
+
+procedure TROCipher_Rijndael.Decode(Data: Pointer);
+var
+  P,K: PInteger;
+  I,A,B,C,D: Integer;
+begin
+  P := Pointer(PAnsiChar(User) + UserSize shr 1);
+  Inc(P, FRounds * 4 +3);
+  K := Pointer(PAnsiChar(Data) + 12);
+  for I := 2 to FRounds do
+  begin
+    D := K^ xor P^;                             Dec(P); Dec(K);
+    C := K^ xor P^;                             Dec(P); Dec(K);
+    B := K^ xor P^;                             Dec(P); Dec(K);
+    A := K^ xor P^;                             Dec(P);
+
+    K^ := Rijndael_T[4, A and $FF]        xor
+          Rijndael_T[5, D shr  8 and $FF] xor
+          Rijndael_T[6, C shr 16 and $FF] xor
+          Rijndael_T[7, B shr 24];                      Inc(K);
+    K^ := Rijndael_T[4, B and $FF]        xor
+          Rijndael_T[5, A shr  8 and $FF] xor
+          Rijndael_T[6, D shr 16 and $FF] xor
+          Rijndael_T[7, C shr 24];                      Inc(K);
+    K^ := Rijndael_T[4, C and $FF]        xor
+          Rijndael_T[5, B shr  8 and $FF] xor
+          Rijndael_T[6, A shr 16 and $FF] xor
+          Rijndael_T[7, D shr 24];                      Inc(K);
+    K^ := Rijndael_T[4, D and $FF]        xor
+          Rijndael_T[5, C shr  8 and $FF] xor
+          Rijndael_T[6, B shr 16 and $FF] xor
+          Rijndael_T[7, A shr 24];
+  end;
+
+  D := K^ xor P^;                                       Dec(P); Dec(K);
+  C := K^ xor P^;                                       Dec(P); Dec(K);
+  B := K^ xor P^;                                       Dec(P); Dec(K);
+  A := K^ xor P^;                                       Dec(P);
+
+  K^ := Rijndael_S[1, A and $FF]               or
+        Rijndael_S[1, D shr  8 and $FF] shl  8 or
+        Rijndael_S[1, C shr 16 and $FF] shl 16 or
+        Rijndael_S[1, B shr 24]         shl 24;                 Inc(K);
+  K^ := Rijndael_S[1, B and $FF]               or
+        Rijndael_S[1, A shr  8 and $FF] shl  8 or
+        Rijndael_S[1, D shr 16 and $FF] shl 16 or
+        Rijndael_S[1, C shr 24]         shl 24;                 Inc(K);
+  K^ := Rijndael_S[1, C and $FF]               or
+        Rijndael_S[1, B shr  8 and $FF] shl  8 or
+        Rijndael_S[1, A shr 16 and $FF] shl 16 or
+        Rijndael_S[1, D shr 24]         shl 24;                 Inc(K);
+  K^ := Rijndael_S[1, D and $FF]               or
+        Rijndael_S[1, C shr  8 and $FF] shl  8 or
+        Rijndael_S[1, B shr 16 and $FF] shl 16 or
+        Rijndael_S[1, A shr 24]         shl 24;
+
+  for I := 0 to 3 do
+  begin
+    K^ := K^ xor P^;
+    Dec(P);
+    Dec(K);
+  end;
+end;
+
+procedure TROCipher_Rijndael.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..7] of Integer;
+
+  procedure BuildEncodeKey;
+  const
+    RND_Data: array[0..29] of Byte = (
+      $01,$02,$04,$08,$10,$20,$40,$80,$1B,$36,$6C,$D8,$AB,$4D,$9A,
+      $2F,$5E,$BC,$63,$C6,$97,$35,$6A,$D4,$B3,$7D,$FA,$EF,$C5,$91);
+  var
+    T,R: Integer;
+
+    procedure NextRounds;
+    var
+      J: Integer;
+    begin
+      J := 0;
+      while (J < FRounds-6) and (R <= FRounds) do
+      begin
+        while (J < FRounds-6) and (T < Rijndael_Blocks) do
+        begin
+          PIntArray(User)[R * Rijndael_Blocks + T] := K[J];
+          Inc(J);
+          Inc(T);
+        end;
+        if T = Rijndael_Blocks then
+        begin
+          T := 0;
+          Inc(R);
+        end;
+      end;
+    end;
+
+  var
+    RND: PByte;
+    B: PByte;
+    I: Integer;
+  begin
+    R := 0;
+    T := 0;
+    RND := @RND_Data;
+    NextRounds;
+    while R <= FRounds do
+    begin
+      B  := @K;
+      B^ := B^ xor Rijndael_S[0, K[FRounds -7] shr  8 and $FF] xor RND^; Inc(B);
+      B^ := B^ xor Rijndael_S[0, K[FRounds -7] shr 16 and $FF];          Inc(B);
+      B^ := B^ xor Rijndael_S[0, K[FRounds -7] shr 24];                  Inc(B);
+      B^ := B^ xor Rijndael_S[0, K[FRounds -7] and $FF];
+      Inc(RND);
+      if FRounds = 14 then
+      begin
+        for I := 1 to 7 do K[I] := K[I] xor K[I -1];
+        B  := @K[4];
+        B^ := B^ xor Rijndael_S[0, K[3] and $FF];         Inc(B);
+        B^ := B^ xor Rijndael_S[0, K[3] shr  8 and $FF];  Inc(B);
+        B^ := B^ xor Rijndael_S[0, K[3] shr 16 and $FF];  Inc(B);
+        B^ := B^ xor Rijndael_S[0, K[3] shr 24];
+        for I := 5 to 7 do K[I] := K[I] xor K[I -1];
+      end else
+        for I := 1 to FRounds -7 do K[I] := K[I] xor K[I -1];
+      NextRounds;
+    end;
+  end;
+
+  procedure BuildDecodeKey;
+  var
+    I: Integer;
+    D: PInteger;
+  begin
+    D := Pointer(PAnsiChar(User) + UserSize shr 1);
+    Move(User^, D^, UserSize shr 1);
+    Inc(D, 4);
+    for I := 0 to FRounds * 4 - 5 do
+    begin
+      D^ :=     Rijndael_Key[D^ and $FF] xor
+            ROL(Rijndael_Key[D^ shr  8 and $FF],  8) xor
+            ROL(Rijndael_Key[D^ shr 16 and $FF], 16) xor
+            ROL(Rijndael_Key[D^ shr 24],         24);
+      Inc(D);
+    end;
+  end;
+
+begin
+  InitBegin(Size);
+  if Size <= 16 then FRounds := 10 else
+    if Size <= 24 then FRounds := 12 else FRounds := 14;
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  BuildEncodeKey;
+  BuildDecodeKey;
+  FillChar(K, SizeOf(K), 0);
+  InitEnd(IVector);
+end;
+{$IFDEF VER_D3H}
+type
+  PSkipjackTab = ^TSkipjackTab;
+  TSkipjackTab = array[0..255] of Byte;
+
+class procedure TROCipher_Skipjack.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 10;
+  AUserSize := $A00;
+end;
+
+class function TROCipher_Skipjack.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0D5h,013h,0A6h,092h,0ECh,024h,035h,0E8h
+         DB    017h,04Eh,02Bh,055h,05Eh,08Dh,027h,0DAh
+         DB    0C9h,09Ah,0A9h,0B9h,021h,03Dh,0A0h,001h
+         DB    018h,002h,0B3h,00Eh,0B7h,0B5h,051h,0EAh
+end;
+
+procedure TROCipher_Skipjack.Encode(Data: Pointer);
+var
+  Tab,Min: PSkipjackTab;
+  Max: PAnsiChar;
+  K,T,A,B,C,D: Integer;
+begin
+  Min := User;
+  Max := PAnsiChar(Min) + 9 * 256;
+  Tab := Min;
+  A   := Swap(PWordArray(Data)[0]); {holds as Integer, Compiler make faster Code}
+  B   := Swap(PWordArray(Data)[1]);
+  C   := Swap(PWordArray(Data)[2]);
+  D   := Swap(PWordArray(Data)[3]);
+  K   := 0;
+  repeat
+    Inc(K);
+    T := A;
+    T := T xor Tab[T and $FF] shl 8;   Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T shr 8];           Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T and $FF] shl 8;   Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T shr 8];           Inc(Tab); if Tab > Max then Tab := Min;
+    A := T xor D xor K;
+    D := C;
+    C := B;
+    B := T;
+  until K = 8;
+  repeat
+    Inc(K);
+    T := A;
+    A := D;
+    D := C;
+    C := T xor B xor K;
+    T := T xor Tab[T and $FF] shl 8;   Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T shr 8];           Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T and $FF] shl 8;   Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T shr 8];           Inc(Tab); if Tab > Max then Tab := Min;
+    B := T;
+  until K = 16;
+  repeat
+    Inc(K);
+    T := A;
+    T := T xor Tab[T and $FF] shl 8;   Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T shr 8];           Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T and $FF] shl 8;   Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T shr 8];           Inc(Tab); if Tab > Max then Tab := Min;
+    A := T xor D xor K;
+    D := C;
+    C := B;
+    B := T;
+  until K = 24;
+  repeat
+    Inc(K);
+    T := A;
+    A := D;
+    D := C;
+    C := T xor B xor K;
+    T := T xor Tab[T and $FF] shl 8;   Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T shr 8];           Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T and $FF] shl 8;   Inc(Tab); if Tab > Max then Tab := Min;
+    T := T xor Tab[T shr 8];           Inc(Tab); if Tab > Max then Tab := Min;
+    B := T;
+  until K = 32;
+  PWordArray(Data)[0] := Swap(A);
+  PWordArray(Data)[1] := Swap(B);
+  PWordArray(Data)[2] := Swap(C);
+  PWordArray(Data)[3] := Swap(D);
+end;
+
+procedure TROCipher_Skipjack.Decode(Data: Pointer);
+var
+  Tab,Max: PSkipjackTab;
+  Min: PAnsiChar;
+  K,T,A,B,C,D: Integer;
+begin
+  Min := User;
+  Max := Pointer(Min + 9 * 256);
+  Tab := Pointer(Min + 7 * 256);
+  A   := Swap(PWordArray(Data)[0]); {holds as Integer, Compiler make faster Code}
+  B   := Swap(PWordArray(Data)[1]);
+  C   := Swap(PWordArray(Data)[2]);
+  D   := Swap(PWordArray(Data)[3]);
+  K   := 32;
+  repeat
+    T := B;
+    T := T xor Tab[T shr 8];           Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T and $FF] shl 8;   Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T shr 8];           Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T and $FF] shl 8;   Dec(Tab); if Tab < Min then Tab := Max;
+    B := T xor C xor K;
+    C := D;
+    D := A;
+    A := T;
+    Dec(K);
+  until K = 24;
+  repeat
+    T := B;
+    B := C;
+    C := D;
+    D := T xor A xor K;
+    T := T xor Tab[T shr 8];           Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T and $FF] shl 8;   Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T shr 8];           Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T and $FF] shl 8;   Dec(Tab); if Tab < Min then Tab := Max;
+    A := T;
+    Dec(K);
+  until K = 16;
+  repeat
+    T := B;
+    T := T xor Tab[T shr 8];           Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T and $FF] shl 8;   Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T shr 8];           Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T and $FF] shl 8;   Dec(Tab); if Tab < Min then Tab := Max;
+    B := C xor T xor K;
+    C := D;
+    D := A;
+    A := T;
+    Dec(K);
+  until K = 8;
+  repeat
+    T := B;
+    B := C;
+    C := D;
+    D := T xor A xor K;
+    T := T xor Tab[T shr 8];           Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T and $FF] shl 8;   Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T shr 8];           Dec(Tab); if Tab < Min then Tab := Max;
+    T := T xor Tab[T and $FF] shl 8;   Dec(Tab); if Tab < Min then Tab := Max;
+    A := T;
+    Dec(K);
+  until K = 0;
+  PWordArray(Data)[0] := Swap(A);
+  PWordArray(Data)[1] := Swap(B);
+  PWordArray(Data)[2] := Swap(C);
+  PWordArray(Data)[3] := Swap(D);
+end;
+
+procedure TROCipher_Skipjack.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..9] of Byte;
+  D: PByte;
+  I,J: Integer;
+begin
+  InitBegin(Size);
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  D := User;
+  for I := 0 to 9 do
+    for J := 0 to 255 do
+    begin
+      D^ := Skipjack_Data[J xor K[I]];
+      Inc(D);
+    end;
+  InitEnd(IVector);
+end;
+{$ENDIF}
+{DES}
+procedure DES_Func(Data: PIntArray; Key: PInteger); register;
+var
+  L,R,X,Y,I: LongWord;
+begin
+  L := SwapInteger(Data[0]);
+  R := SwapInteger(Data[1]);
+
+  X := (L shr  4 xor R) and $0F0F0F0F; R := R xor X; L := L xor X shl  4;
+  X := (L shr 16 xor R) and $0000FFFF; R := R xor X; L := L xor X shl 16;
+  X := (R shr  2 xor L) and $33333333; L := L xor X; R := R xor X shl  2;
+  X := (R shr  8 xor L) and $00FF00FF; L := L xor X; R := R xor X shl  8;
+
+  R := R shl 1 or R shr 31;
+  X := (L xor R) and $AAAAAAAA;
+  R := R xor X;
+  L := L xor X;
+  L := L shl 1 or L shr 31;
+
+  for I := 0 to 7 do
+  begin
+    X := (R shl 28 or R shr 4) xor Key^; Inc(Key);
+    Y := R xor Key^;                     Inc(Key);
+    L := L xor (DES_Data[0, X        and $3F] or DES_Data[1, X shr  8 and $3F] or
+                DES_Data[2, X shr 16 and $3F] or DES_Data[3, X shr 24 and $3F] or
+                DES_Data[4, Y        and $3F] or DES_Data[5, Y shr  8 and $3F] or
+                DES_Data[6, Y shr 16 and $3F] or DES_Data[7, Y shr 24 and $3F]);
+
+    X := (L shl 28 or L shr 4) xor Key^; Inc(Key);
+    Y := L xor Key^;                     Inc(Key);
+    R := R xor (DES_Data[0, X        and $3F] or DES_Data[1, X shr  8 and $3F] or
+                DES_Data[2, X shr 16 and $3F] or DES_Data[3, X shr 24 and $3F] or
+                DES_Data[4, Y        and $3F] or DES_Data[5, Y shr  8 and $3F] or
+                DES_Data[6, Y shr 16 and $3F] or DES_Data[7, Y shr 24 and $3F]);
+  end;
+
+  R := R shl 31 or R shr 1;
+  X := (L xor R) and $AAAAAAAA;
+  R := R xor X;
+  L := L xor X;
+  L := L shl 31 or L shr 1;
+
+  X := (L shr  8 xor R) and $00FF00FF; R := R xor X; L := L xor X shl  8;
+  X := (L shr  2 xor R) and $33333333; R := R xor X; L := L xor X shl  2;
+  X := (R shr 16 xor L) and $0000FFFF; L := L xor X; R := R xor X shl 16;
+  X := (R shr  4 xor L) and $0F0F0F0F; L := L xor X; R := R xor X shl  4;
+
+  Data[0] := SwapInteger(R);
+  Data[1] := SwapInteger(L);
+end;
+
+class procedure TROCipher_1DES.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 8;
+  AUserSize := 32 * 4 * 2;
+end;
+
+class function TROCipher_1DES.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0ADh,069h,042h,0BBh,0F6h,068h,020h,04Dh
+         DB    053h,0CDh,0C7h,062h,013h,093h,098h,0C0h
+         DB    030h,00Dh,085h,00Bh,0E2h,0AAh,072h,009h
+         DB    06Fh,0DBh,05Fh,08Eh,0D3h,0E4h,0CFh,08Ah
+end;
+
+procedure TROCipher_1DES.Encode(Data: Pointer);
+begin
+  DES_Func(Data, User);
+end;
+
+procedure TROCipher_1DES.Decode(Data: Pointer);
+begin
+  DES_Func(Data, @PIntArray(User)[32]);
+end;
+
+procedure TROCipher_1DES.MakeKey(const Data: array of Byte; Key: PInteger; Reverse: Boolean);
+const
+  ROT: array[0..15] of Byte = (1,2,4,6,8,10,12,14,15,17,19,21,23,25,27,28);
+var
+  I,J,L,M,N: LongWord;
+  PC_M, PC_R: array[0..55] of Byte;
+  K: array[0..31] of LongWord;
+begin
+  FillChar(K, SizeOf(K), 0);
+  for I := 0 to 55 do
+    if Data[DES_PC1[I] shr 3] and ($80 shr (DES_PC1[I] and $07)) <> 0 then PC_M[I] := 1
+      else PC_M[I] := 0;
+  for I := 0 to 15 do
+  begin
+    if Reverse then M := (15 - I) shl 1 else M := I shl 1;
+    N := M + 1;
+    for J := 0 to 27 do
+    begin
+      L := J + ROT[I];
+      if L < 28 then PC_R[J] := PC_M[L] else PC_R[J] := PC_M[L - 28];
+    end;
+    for J := 28 to 55 do
+    begin
+      L := J + ROT[I];
+      if L < 56 then PC_R[J] := PC_M[L] else PC_R[J] := PC_M[L - 28];
+    end;
+    L := $1000000;
+    for J := 0 to 23 do
+    begin
+      L := L shr 1;
+      if PC_R[DES_PC2[J     ]] <> 0 then K[M] := K[M] or L;
+      if PC_R[DES_PC2[J + 24]] <> 0 then K[N] := K[N] or L;
+    end;
+  end;
+  for I := 0 to 15 do
+  begin
+    M := I shl 1; N := M + 1;
+    Key^ := K[M] and $00FC0000 shl  6 or
+            K[M] and $00000FC0 shl 10 or
+            K[N] and $00FC0000 shr 10 or
+            K[N] and $00000FC0 shr  6;
+    Inc(Key);
+    Key^ := K[M] and $0003F000 shl 12 or
+            K[M] and $0000003F shl 16 or
+            K[N] and $0003F000 shr  4 or
+            K[N] and $0000003F;
+    Inc(Key);
+  end;
+end;
+
+procedure TROCipher_1DES.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..7] of Byte;
+begin
+  InitBegin(Size);
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  MakeKey(K, User, False);
+  MakeKey(K, @PIntArray(User)[32], True);
+  FillChar(K, SizeOf(K), 0);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_2DES.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 16;
+  AUserSize := 32 * 4 * 2 * 2;
+end;
+
+class function TROCipher_2DES.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    066h,05Ch,079h,027h,0E9h,01Ch,08Bh,0A0h
+         DB    0A9h,0E4h,099h,05Ah,015h,08Ch,0BDh,046h
+         DB    05Ch,09Ch,075h,091h,03Ch,038h,006h,09Dh
+         DB    075h,0B4h,07Eh,068h,0E9h,047h,0FDh,0ABh
+end;
+
+procedure TROCipher_2DES.Encode(Data: Pointer);
+begin
+  DES_Func(Data, User);
+  DES_Func(Data, @PIntArray(User)[32]);
+  DES_Func(Data, User);
+end;
+
+procedure TROCipher_2DES.Decode(Data: Pointer);
+begin
+  DES_Func(Data, @PIntArray(User)[64]);
+  DES_Func(Data, @PIntArray(User)[96]);
+  DES_Func(Data, @PIntArray(User)[64]);
+end;
+
+procedure TROCipher_2DES.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..15] of Byte;
+  P: PInteger;
+begin
+  InitBegin(Size);
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  P := User;
+  MakeKey(K[0], P, False); Inc(P, 32);
+  MakeKey(K[8], P, True);  Inc(P, 32);
+  MakeKey(K[0], P, True);  Inc(P, 32);
+  MakeKey(K[8], P, False);
+  FillChar(K, SizeOf(K), 0);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_3DES.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 24;
+  AUserSize := 32 * 4 * 2 * 3;
+end;
+
+class function TROCipher_3DES.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    007h,04Ch,014h,0F3h,0E2h,02Eh,008h,0D9h
+         DB    064h,0BFh,06Fh,082h,0B5h,0DFh,0F0h,0A2h
+         DB    02Fh,02Dh,03Bh,0DBh,017h,0DBh,025h,0B6h
+         DB    0B5h,01Eh,0FAh,071h,037h,02Fh,0D1h,072h
+end;
+
+procedure TROCipher_3DES.Encode(Data: Pointer);
+begin
+  DES_Func(Data, User);
+  DES_Func(Data, @PIntArray(User)[32]);
+  DES_Func(Data, @PIntArray(User)[64]);
+end;
+
+procedure TROCipher_3DES.Decode(Data: Pointer);
+begin
+  DES_Func(Data, @PIntArray(User)[96]);
+  DES_Func(Data, @PIntArray(User)[128]);
+  DES_Func(Data, @PIntArray(User)[160]);
+end;
+
+procedure TROCipher_3DES.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..23] of Byte;
+  P: PInteger;
+begin
+  InitBegin(Size);
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  P := User;
+  MakeKey(K[ 0], P, False); Inc(P, 32);
+  MakeKey(K[ 8], P, True);  Inc(P, 32);
+  MakeKey(K[16], P, False); Inc(P, 32);
+  MakeKey(K[16], P, True);  Inc(P, 32);
+  MakeKey(K[ 8], P, False); Inc(P, 32);
+  MakeKey(K[ 0], P, True);
+  FillChar(K, SizeOf(K), 0);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_2DDES.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  inherited GetContext(ABufSize, AKeySize, AUserSize);
+  ABufSize := 16;
+end;
+
+class function TROCipher_2DDES.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    093h,06Ch,0F6h,043h,0C6h,0A7h,07Fh,0EDh
+         DB    04Dh,0B4h,070h,04Ah,0E2h,0A6h,006h,08Bh
+         DB    075h,013h,019h,0AFh,0E1h,082h,0EDh,035h
+         DB    04Eh,013h,0F6h,088h,0A4h,06Bh,033h,026h
+end;
+
+procedure TROCipher_2DDES.Encode(Data: Pointer);
+var
+  T: Integer;
+begin
+  DES_Func(Data, User);
+  DES_Func(@PIntArray(Data)[2], User);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  DES_Func(Data, @PIntArray(User)[32]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[32]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  DES_Func(Data, User);
+  DES_Func(@PIntArray(Data)[2], User);
+end;
+
+procedure TROCipher_2DDES.Decode(Data: Pointer);
+var
+  T: Integer;
+begin
+  DES_Func(Data, @PIntArray(User)[64]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[64]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  DES_Func(Data, @PIntArray(User)[96]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[96]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  DES_Func(Data,  @PIntArray(User)[64]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[64]);
+end;
+
+class procedure TROCipher_3DDES.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  inherited GetContext(ABufSize, AKeySize, AUserSize);
+  ABufSize := 16;
+end;
+
+class function TROCipher_3DDES.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    02Fh,05Ah,05Eh,0D4h,05Eh,08Ah,0AAh,04Eh
+         DB    0D2h,066h,059h,048h,01Dh,0E1h,095h,094h
+         DB    02Ah,09Fh,0CCh,01Fh,04Dh,0E6h,014h,0F0h
+         DB    050h,004h,003h,064h,066h,09Ah,077h,08Eh
+end;
+
+procedure TROCipher_3DDES.Encode(Data: Pointer);
+var
+  T: Integer;
+begin
+  DES_Func(Data, User);
+  DES_Func(@PIntArray(Data)[2], User);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  DES_Func(Data, @PIntArray(User)[32]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[32]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  DES_Func(Data,  @PIntArray(User)[64]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[64]);
+end;
+
+procedure TROCipher_3DDES.Decode(Data: Pointer);
+var
+  T: Integer;
+begin
+  DES_Func(Data, @PIntArray(User)[96]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[96]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  DES_Func(Data, @PIntArray(User)[128]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[128]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  DES_Func(Data,  @PIntArray(User)[160]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[160]);
+end;
+
+class procedure TROCipher_3TDES.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  inherited GetContext(ABufSize, AKeySize, AUserSize);
+  ABufSize := 24;
+end;
+
+class function TROCipher_3TDES.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    00Bh,012h,0E4h,08Bh,0D9h,0CDh,008h,0BFh
+         DB    0CAh,0AEh,03Eh,05Fh,0F6h,0FEh,013h,0CDh
+         DB    03Fh,070h,06Eh,0CDh,053h,056h,03Fh,05Ah
+         DB    080h,00Fh,01Bh,01Eh,0FBh,09Ah,057h,096h
+end;
+
+procedure TROCipher_3TDES.Encode(Data: Pointer);
+var
+  T: Integer;
+begin
+  DES_Func(@PIntArray(Data)[0], User);
+  DES_Func(@PIntArray(Data)[2], User);
+  DES_Func(@PIntArray(Data)[4], User);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  T := PIntArray(Data)[3]; PIntArray(Data)[3] := PIntArray(Data)[4]; PIntArray(Data)[3] := T;
+  DES_Func(@PIntArray(Data)[0], @PIntArray(User)[32]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[32]);
+  DES_Func(@PIntArray(Data)[4], @PIntArray(User)[32]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  T := PIntArray(Data)[3]; PIntArray(Data)[3] := PIntArray(Data)[4]; PIntArray(Data)[3] := T;
+  DES_Func(@PIntArray(Data)[0], @PIntArray(User)[64]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[64]);
+  DES_Func(@PIntArray(Data)[4], @PIntArray(User)[64]);
+end;
+
+procedure TROCipher_3TDES.Decode(Data: Pointer);
+var
+  T: Integer;
+begin
+  DES_Func(@PIntArray(Data)[0], @PIntArray(User)[96]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[96]);
+  DES_Func(@PIntArray(Data)[4], @PIntArray(User)[96]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  T := PIntArray(Data)[3]; PIntArray(Data)[3] := PIntArray(Data)[4]; PIntArray(Data)[3] := T;
+  DES_Func(@PIntArray(Data)[0], @PIntArray(User)[128]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[128]);
+  DES_Func(@PIntArray(Data)[4], @PIntArray(User)[128]);
+  T := PIntArray(Data)[1]; PIntArray(Data)[1] := PIntArray(Data)[2]; PIntArray(Data)[2] := T;
+  T := PIntArray(Data)[3]; PIntArray(Data)[3] := PIntArray(Data)[4]; PIntArray(Data)[3] := T;
+  DES_Func(@PIntArray(Data)[0], @PIntArray(User)[160]);
+  DES_Func(@PIntArray(Data)[2], @PIntArray(User)[160]);
+  DES_Func(@PIntArray(Data)[4], @PIntArray(User)[160]);
+end;
+
+class procedure TROCipher_DESX.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 8 * 2; {Key 8 bytes and Whitening 8 bytes}
+  AUserSize := 32 * 4 * 2 + 2 * 4 * 2;
+end;
+
+class function TROCipher_DESX.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    039h,049h,0ECh,05Bh,065h,01Bh,01Eh,01Fh
+         DB    08Eh,085h,0FDh,0D9h,06Fh,0D1h,0D5h,0FBh
+         DB    015h,003h,009h,027h,0B0h,069h,067h,0F9h
+         DB    0A6h,0C8h,01Ch,02Ah,09Fh,08Eh,04Fh,06Eh
+end;
+
+procedure TROCipher_DESX.Encode(Data: Pointer);
+begin
+  PIntArray(Data)[0] := PIntArray(Data)[0] xor PIntArray(User)[64];
+  PIntArray(Data)[1] := PIntArray(Data)[1] xor PIntArray(User)[65];
+  DES_Func(Data, User);
+  PIntArray(Data)[0] := PIntArray(Data)[0] xor PIntArray(User)[66];
+  PIntArray(Data)[1] := PIntArray(Data)[1] xor PIntArray(User)[67];
+end;
+
+procedure TROCipher_DESX.Decode(Data: Pointer);
+begin
+  PIntArray(Data)[0] := PIntArray(Data)[0] xor PIntArray(User)[66];
+  PIntArray(Data)[1] := PIntArray(Data)[1] xor PIntArray(User)[67];
+  DES_Func(Data, @PIntArray(User)[32]);
+  PIntArray(Data)[0] := PIntArray(Data)[0] xor PIntArray(User)[64];
+  PIntArray(Data)[1] := PIntArray(Data)[1] xor PIntArray(User)[65];
+end;
+
+procedure TROCipher_DESX.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..15] of Byte;
+begin
+  FillChar(K, SizeOf(K), 0);
+  if Size > SizeOf(K) then Size := SizeOf(K);
+  Move(Key, K, Size);
+  InitNew(K, K[8], 8, IVector);
+  FillChar(K, SizeOf(K), 0);
+end;
+
+procedure TROCipher_DESX.InitNew(const Key, Whitening; Size: Integer; IVector: Pointer);
+const
+  Clorox: array[0..255] of Byte = (
+   189, 86,234,242,162,241,172, 42,176,147,209,156, 27, 51,253,208,
+    48,  4,182,220,125,223, 50, 75,247,203, 69,155, 49,187, 33, 90,
+    65,159,225,217, 74, 77,158,218,160,104, 44,195, 39, 95,128, 54,
+    62,238,251,149, 26,254,206,168, 52,169, 19,240,166, 63,216, 12,
+   120, 36,175, 35, 82,193,103, 23,245,102,144,231,232,  7,184, 96,
+    72,230, 30, 83,243,146,164,114,140,  8, 21,110,134,  0,132,250,
+   244,127,138, 66, 25,246,219,205, 20,141, 80, 18,186, 60,  6, 78,
+   236,179, 53, 17,161,136,142, 43,148,153,183,113,116,211,228,191,
+    58,222,150, 14,188, 10,237,119,252, 55,107,  3,121,137, 98,198,
+   215,192,210,124,106,139, 34,163, 91,  5, 93,  2,117,213, 97,227,
+    24,143, 85, 81,173, 31, 11, 94,133,229,194, 87, 99,202, 61,108,
+   180,197,204,112,178,145, 89, 13, 71, 32,200, 79, 88,224,  1,226,
+    22, 56,196,111, 59, 15,101, 70,190,126, 45,123,130,249, 64,181,
+    29,115,248,235, 38,199,135,151, 37, 84,177, 40,170,152,157,165,
+   100,109,122,212, 16,129, 68,239, 73,214,174, 46,221,118, 92, 47,
+   167, 28,201,  9,105,154,131,207, 41, 57,185,233, 76,255, 67,171);
+
+var
+  K,H,W: array[0..7] of Byte;
+  I: Integer;
+  T: Byte;
+begin
+  Size := Size * 2;
+  InitBegin(Size);
+  Size := Size shr 1;
+  FillChar(K, SizeOf(K), 0); Move(Key, K, Size);
+  FillChar(H, SizeOf(H), 0); Move(Whitening, H, Size);
+  MakeKey(K, @PIntArray(User)[0], False);
+  MakeKey(K, @PIntArray(User)[32], True);
+
+  Move(H, PIntArray(User)[64], 8);
+  FillChar(W, SizeOf(W), 0);
+  for I := 0 to 7 do
+  begin
+    T := W[0] xor W[1];
+    Move(W[1], W[0], 7);
+    W[7] := Clorox[T] xor K[I];
+  end;
+  for I := 0 to 7 do
+  begin
+    T := W[0] xor W[1];
+    Move(W[1], W[0], 7);
+    W[7] := Clorox[T] xor H[I];
+  end;
+  Move(W, PIntArray(User)[66], 8);
+  InitEnd(IVector);
+end;
+
+class procedure TROCipher_NewDES.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 15;
+  AUserSize := 60 * 2;
+end;
+
+class function TROCipher_NewDES.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0D5h,091h,04Fh,09Ch,074h,035h,046h,0FBh
+         DB    0D5h,0ADh,091h,031h,075h,014h,064h,0FEh
+         DB    0A7h,079h,021h,06Ah,029h,099h,047h,089h
+         DB    0D2h,00Dh,076h,00Ch,073h,09Ch,0CDh,017h
+end;
+
+
+procedure NewDES_Func(Data: Pointer; Key: PByte);
+type
+  PNewDESRec = ^TNewDESRec;
+  TNewDESRec = packed record
+                 A,B,C,D,E,F,G,H: Byte;
+               end;
+var
+  I: Integer;
+begin
+  with PNewDESRec(Data)^ do
+  begin
+    for I := 0 to 7 do
+    begin
+      E := E xor NewDES_Data[A xor Key^]; Inc(Key);
+      F := F xor NewDES_Data[B xor Key^]; Inc(Key);
+      G := G xor NewDES_Data[C xor Key^]; Inc(Key);
+      H := H xor NewDES_Data[D xor Key^]; Inc(Key);
+
+      B := B xor NewDES_Data[E xor Key^]; Inc(Key);
+      C := C xor NewDES_Data[F xor E];
+      D := D xor NewDES_Data[G xor Key^]; Inc(Key);
+      A := A xor NewDES_Data[H xor Key^]; Inc(Key);
+    end;
+    E := E xor NewDES_Data[A xor Key^]; Inc(Key);
+    F := F xor NewDES_Data[B xor Key^]; Inc(Key);
+    G := G xor NewDES_Data[C xor Key^]; Inc(Key);
+    H := H xor NewDES_Data[D xor Key^];
+  end;
+end;
+
+procedure TROCipher_NewDES.Encode(Data: Pointer);
+begin
+  NewDES_Func(Data, User);
+end;
+
+procedure TROCipher_NewDES.Decode(Data: Pointer);
+begin
+  NewDES_Func(Data, @PByteArray(User)[60]);
+end;
+
+procedure TROCipher_NewDES.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  K: array[0..14] of Byte;
+  E: PByte;
+  I: Integer;
+begin
+  InitBegin(Size);
+  FillChar(K, SizeOf(K), 0);
+  Move(Key, K, Size);
+  E := User;
+  Move(K, E^, 15); Inc(E, 15);
+  Move(K, E^, 15); Inc(E, 15);
+  Move(K, E^, 15); Inc(E, 15);
+  Move(K, E^, 15); Inc(E, 15);
+  I := 11;
+  repeat
+    E^ := K[I]; Inc(E); Inc(I);
+    if I = 15 then I := 0;
+    E^ := K[I]; Inc(E); Inc(I);
+    if I = 15 then I := 0;
+    E^ := K[I]; Inc(E); Inc(I);
+    if I = 15 then I := 0;
+    E^ := K[I]; Inc(E);
+    I := (I + 9) mod 15;
+    if I = 12 then Break;
+    E^ := K[I]; Inc(E); Inc(I);
+    E^ := K[I]; Inc(E); Inc(I);
+    E^ := K[I]; Inc(E);
+    I := (I + 9) mod 15;
+  until False;
+  FillChar(K, SizeOf(K), 0);
+  InitEnd(IVector);
+end;
+
+procedure TROCipher_Diamond2.SetRounds(Value: Integer);
+begin
+  if (Value < 5) or (Value > 15) then Value := 10;
+  if Value = FRounds then Exit;
+  FRounds := Value;
+end;
+
+class procedure TROCipher_Diamond2.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 16;
+  AKeySize := 256;
+  AUserSize := 0;
+end;
+
+class function TROCipher_Diamond2.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    020h,0B3h,058h,0B4h,0CEh,022h,0FBh,076h
+         DB    02Dh,03Bh,093h,069h,005h,09Fh,006h,0C7h
+         DB    0E4h,0F7h,0C6h,09Ch,0E1h,0DBh,055h,023h
+         DB    052h,070h,0A1h,0DFh,0B1h,05Eh,0EDh,08Dh
+end;
+
+procedure TROCipher_Diamond2.Encode(Data: Pointer);
+var
+  I,J: Integer;
+  Key: PByteArray;
+  D: PByteArray;
+  Z: array[0..15] of Byte;
+begin
+  Key := FBoxE;
+  D   := Data;
+  for J := 0 to BufSize-1 do
+  begin
+    D[J] := Key[D[J]];
+    Inc(PByte(Key), 256);
+  end;
+  for I := 0 to FRounds-2 do
+  begin
+    if BufSize = 8 then
+    begin
+      Z[ 0] := D[ 0] and   1 or D[ 1] and   2 or D[ 2] and   4 or D[ 3] and   8 or
+               D[ 4] and  16 or D[ 5] and  32 or D[ 6] and  64 or D[ 7] and 128;
+      Z[ 1] := D[ 1] and   1 or D[ 2] and   2 or D[ 3] and   4 or D[ 4] and   8 or
+               D[ 5] and  16 or D[ 6] and  32 or D[ 7] and  64 or D[ 0] and 128;
+      Z[ 2] := D[ 2] and   1 or D[ 3] and   2 or D[ 4] and   4 or D[ 5] and   8 or
+               D[ 6] and  16 or D[ 7] and  32 or D[ 0] and  64 or D[ 1] and 128;
+      Z[ 3] := D[ 3] and   1 or D[ 4] and   2 or D[ 5] and   4 or D[ 6] and   8 or
+               D[ 7] and  16 or D[ 0] and  32 or D[ 1] and  64 or D[ 2] and 128;
+      Z[ 4] := D[ 4] and   1 or D[ 5] and   2 or D[ 6] and   4 or D[ 7] and   8 or
+               D[ 0] and  16 or D[ 1] and  32 or D[ 2] and  64 or D[ 3] and 128;
+      Z[ 5] := D[ 5] and   1 or D[ 6] and   2 or D[ 7] and   4 or D[ 0] and   8 or
+               D[ 1] and  16 or D[ 2] and  32 or D[ 3] and  64 or D[ 4] and 128;
+      Z[ 6] := D[ 6] and   1 or D[ 7] and   2 or D[ 0] and   4 or D[ 1] and   8 or
+               D[ 2] and  16 or D[ 3] and  32 or D[ 4] and  64 or D[ 5] and 128;
+      Z[ 7] := D[ 7] and   1 or D[ 0] and   2 or D[ 1] and   4 or D[ 2] and   8 or
+               D[ 3] and  16 or D[ 4] and  32 or D[ 5] and  64 or D[ 6] and 128;
+    end else
+    begin
+      Z[ 0] := D[ 0] and   1 or D[ 1] and   2 or D[ 2] and   4 or D[ 3] and   8 or
+               D[ 4] and  16 or D[ 5] and  32 or D[ 6] and  64 or D[ 7] and 128;
+      Z[ 1] := D[ 1] and   1 or D[ 2] and   2 or D[ 3] and   4 or D[ 4] and   8 or
+               D[ 5] and  16 or D[ 6] and  32 or D[ 7] and  64 or D[ 8] and 128;
+      Z[ 2] := D[ 2] and   1 or D[ 3] and   2 or D[ 4] and   4 or D[ 5] and   8 or
+               D[ 6] and  16 or D[ 7] and  32 or D[ 8] and  64 or D[ 9] and 128;
+      Z[ 3] := D[ 3] and   1 or D[ 4] and   2 or D[ 5] and   4 or D[ 6] and   8 or
+               D[ 7] and  16 or D[ 8] and  32 or D[ 9] and  64 or D[10] and 128;
+      Z[ 4] := D[ 4] and   1 or D[ 5] and   2 or D[ 6] and   4 or D[ 7] and   8 or
+               D[ 8] and  16 or D[ 9] and  32 or D[10] and  64 or D[11] and 128;
+      Z[ 5] := D[ 5] and   1 or D[ 6] and   2 or D[ 7] and   4 or D[ 8] and   8 or
+               D[ 9] and  16 or D[10] and  32 or D[11] and  64 or D[12] and 128;
+      Z[ 6] := D[ 6] and   1 or D[ 7] and   2 or D[ 8] and   4 or D[ 9] and   8 or
+               D[10] and  16 or D[11] and  32 or D[12] and  64 or D[13] and 128;
+      Z[ 7] := D[ 7] and   1 or D[ 8] and   2 or D[ 9] and   4 or D[10] and   8 or
+               D[11] and  16 or D[12] and  32 or D[13] and  64 or D[14] and 128;
+      Z[ 8] := D[ 8] and   1 or D[ 9] and   2 or D[10] and   4 or D[11] and   8 or
+               D[12] and  16 or D[13] and  32 or D[14] and  64 or D[15] and 128;
+      Z[ 9] := D[ 9] and   1 or D[10] and   2 or D[11] and   4 or D[12] and   8 or
+               D[13] and  16 or D[14] and  32 or D[15] and  64 or D[ 0] and 128;
+      Z[10] := D[10] and   1 or D[11] and   2 or D[12] and   4 or D[13] and   8 or
+               D[14] and  16 or D[15] and  32 or D[ 0] and  64 or D[ 1] and 128;
+      Z[11] := D[11] and   1 or D[12] and   2 or D[13] and   4 or D[14] and   8 or
+               D[15] and  16 or D[ 0] and  32 or D[ 1] and  64 or D[ 2] and 128;
+      Z[12] := D[12] and   1 or D[13] and   2 or D[14] and   4 or D[15] and   8 or
+               D[ 0] and  16 or D[ 1] and  32 or D[ 2] and  64 or D[ 3] and 128;
+      Z[13] := D[13] and   1 or D[14] and   2 or D[15] and   4 or D[ 0] and   8 or
+               D[ 1] and  16 or D[ 2] and  32 or D[ 3] and  64 or D[ 4] and 128;
+      Z[14] := D[14] and   1 or D[15] and   2 or D[ 0] and   4 or D[ 1] and   8 or
+               D[ 2] and  16 or D[ 3] and  32 or D[ 4] and  64 or D[ 5] and 128;
+      Z[15] := D[15] and   1 or D[ 0] and   2 or D[ 1] and   4 or D[ 2] and   8 or
+               D[ 3] and  16 or D[ 4] and  32 or D[ 5] and  64 or D[ 6] and 128;
+    end;           
+    for J := 0 to BufSize-1 do
+    begin
+      D[J] := Key[Z[J]];
+      Inc(PByte(Key), 256);
+    end;
+  end;
+end;
+
+procedure TROCipher_Diamond2.Decode(Data: Pointer);
+var
+  I,J: Integer;
+  Key: PByteArray;
+  D: PByteArray;
+  Z: array[0..15] of Byte;
+begin
+  D   := Data;
+  Key := FBoxD;
+  for J := 0 to BufSize-1 do
+  begin
+    D[J] := Key[D[J]];
+    Inc(PByte(Key), 256);
+  end;
+  for I := 0 to FRounds-2 do
+  begin
+    if BufSize = 8 then
+    begin
+      Z[ 0] := D[ 0] and   1 or D[ 7] and   2 or D[ 6] and   4 or D[ 5] and   8 or
+               D[ 4] and  16 or D[ 3] and  32 or D[ 2] and  64 or D[ 1] and 128;
+      Z[ 1] := D[ 1] and   1 or D[ 0] and   2 or D[ 7] and   4 or D[ 6] and   8 or
+               D[ 5] and  16 or D[ 4] and  32 or D[ 3] and  64 or D[ 2] and 128;
+      Z[ 2] := D[ 2] and   1 or D[ 1] and   2 or D[ 0] and   4 or D[ 7] and   8 or
+               D[ 6] and  16 or D[ 5] and  32 or D[ 4] and  64 or D[ 3] and 128;
+      Z[ 3] := D[ 3] and   1 or D[ 2] and   2 or D[ 1] and   4 or D[ 0] and   8 or
+               D[ 7] and  16 or D[ 6] and  32 or D[ 5] and  64 or D[ 4] and 128;
+      Z[ 4] := D[ 4] and   1 or D[ 3] and   2 or D[ 2] and   4 or D[ 1] and   8 or
+               D[ 0] and  16 or D[ 7] and  32 or D[ 6] and  64 or D[ 5] and 128;
+      Z[ 5] := D[ 5] and   1 or D[ 4] and   2 or D[ 3] and   4 or D[ 2] and   8 or
+               D[ 1] and  16 or D[ 0] and  32 or D[ 7] and  64 or D[ 6] and 128;
+      Z[ 6] := D[ 6] and   1 or D[ 5] and   2 or D[ 4] and   4 or D[ 3] and   8 or
+               D[ 2] and  16 or D[ 1] and  32 or D[ 0] and  64 or D[ 7] and 128;
+      Z[ 7] := D[ 7] and   1 or D[ 6] and   2 or D[ 5] and   4 or D[ 4] and   8 or
+               D[ 3] and  16 or D[ 2] and  32 or D[ 1] and  64 or D[ 0] and 128;
+    end else
+    begin
+      Z[ 0] := D[ 0] and   1 or D[15] and   2 or D[14] and   4 or D[13] and   8 or
+               D[12] and  16 or D[11] and  32 or D[10] and  64 or D[ 9] and 128;
+      Z[ 1] := D[ 1] and   1 or D[ 0] and   2 or D[15] and   4 or D[14] and   8 or
+               D[13] and  16 or D[12] and  32 or D[11] and  64 or D[10] and 128;
+      Z[ 2] := D[ 2] and   1 or D[ 1] and   2 or D[ 0] and   4 or D[15] and   8 or
+               D[14] and  16 or D[13] and  32 or D[12] and  64 or D[11] and 128;
+      Z[ 3] := D[ 3] and   1 or D[ 2] and   2 or D[ 1] and   4 or D[ 0] and   8 or
+               D[15] and  16 or D[14] and  32 or D[13] and  64 or D[12] and 128;
+      Z[ 4] := D[ 4] and   1 or D[ 3] and   2 or D[ 2] and   4 or D[ 1] and   8 or
+               D[ 0] and  16 or D[15] and  32 or D[14] and  64 or D[13] and 128;
+      Z[ 5] := D[ 5] and   1 or D[ 4] and   2 or D[ 3] and   4 or D[ 2] and   8 or
+               D[ 1] and  16 or D[ 0] and  32 or D[15] and  64 or D[14] and 128;
+      Z[ 6] := D[ 6] and   1 or D[ 5] and   2 or D[ 4] and   4 or D[ 3] and   8 or
+               D[ 2] and  16 or D[ 1] and  32 or D[ 0] and  64 or D[15] and 128;
+      Z[ 7] := D[ 7] and   1 or D[ 6] and   2 or D[ 5] and   4 or D[ 4] and   8 or
+               D[ 3] and  16 or D[ 2] and  32 or D[ 1] and  64 or D[ 0] and 128;
+      Z[ 8] := D[ 8] and   1 or D[ 7] and   2 or D[ 6] and   4 or D[ 5] and   8 or
+               D[ 4] and  16 or D[ 3] and  32 or D[ 2] and  64 or D[ 1] and 128;
+      Z[ 9] := D[ 9] and   1 or D[ 8] and   2 or D[ 7] and   4 or D[ 6] and   8 or
+               D[ 5] and  16 or D[ 4] and  32 or D[ 3] and  64 or D[ 2] and 128;
+      Z[10] := D[10] and   1 or D[ 9] and   2 or D[ 8] and   4 or D[ 7] and   8 or
+               D[ 6] and  16 or D[ 5] and  32 or D[ 4] and  64 or D[ 3] and 128;
+      Z[11] := D[11] and   1 or D[10] and   2 or D[ 9] and   4 or D[ 8] and   8 or
+               D[ 7] and  16 or D[ 6] and  32 or D[ 5] and  64 or D[ 4] and 128;
+      Z[12] := D[12] and   1 or D[11] and   2 or D[10] and   4 or D[ 9] and   8 or
+               D[ 8] and  16 or D[ 7] and  32 or D[ 6] and  64 or D[ 5] and 128;
+      Z[13] := D[13] and   1 or D[12] and   2 or D[11] and   4 or D[10] and   8 or
+               D[ 9] and  16 or D[ 8] and  32 or D[ 7] and  64 or D[ 6] and 128;
+      Z[14] := D[14] and   1 or D[13] and   2 or D[12] and   4 or D[11] and   8 or
+               D[10] and  16 or D[ 9] and  32 or D[ 8] and  64 or D[ 7] and 128;
+      Z[15] := D[15] and   1 or D[14] and   2 or D[13] and   4 or D[12] and   8 or
+               D[11] and  16 or D[10] and  32 or D[ 9] and  64 or D[ 8] and 128;
+    end;
+    for J := 0 to BufSize-1 do
+    begin
+      D[J] := Key[Z[J]];
+      Inc(PByte(Key), 256);
+    end;
+  end;
+end;
+
+procedure TROCipher_Diamond2.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  KI,Accum: Integer;
+  Prev: PByteArray;
+
+  function KeyRand(const Max: Byte): Byte;
+  var
+    I, M: Integer;
+    B: Byte;
+  begin
+    Result := 0;
+    if Max = 0 then Exit;
+    M := 0;
+    I := Max;
+    while I > 0 do
+    begin
+      M := M shl 1 or 1;
+      I := I shr 1;
+    end;
+    I := 0;
+    repeat
+      if Prev <> nil then B := Prev[TByteArray(Key)[KI]]
+        else B := TByteArray(Key)[KI];
+      Accum := CRC32(Accum, @B, 1);
+      Inc(KI);
+      if KI >= Size then
+      begin
+        KI := 0;
+        B := Size       and $FF; Accum := CRC32(Accum, @B, 1);
+        B := Size shr 8 and $FF; Accum := CRC32(Accum, @B, 1);
+      end;
+      Result := Accum and M;
+      Inc(I);
+      if (I > 97) and (Result > Max) then Dec(Result, Max);
+    until Result <= Max;
+  end;
+
+var
+  I,J: Integer;
+  P,M,N: Byte;
+  D,E: PByteArray;
+  F: array[0..255] of Boolean;
+begin
+  SetRounds(FRounds);
+  InitBegin(Size);
+  ReallocMem(FBoxE, FRounds * BufSize * 256);
+  ReallocMem(FBoxD, FRounds * BufSize * 256);
+  Accum := Integer($FFFFFFFF);
+  Prev  := nil;
+  KI := 0;
+  E  := FBoxE;
+  for I := 0 to FRounds-1 do
+  begin
+    for J := 0 to BufSize-1 do
+    begin
+      FillChar(F, SizeOf(F), False);
+      for N := 255 downto 0 do
+      begin
+        M := KeyRand(N);
+        P := 0;
+        while F[P] do Inc(P);
+        while M > 0 do
+        begin
+          Dec(M);
+          Inc(P);
+          while F[P] do Inc(P);
+        end;
+        E[P] := N;
+        F[P] := True;
+      end;
+      Prev := E;
+      Inc(PByte(E), 256);
+    end;
+  end;
+  E := FBoxE;
+  D := FBoxD;
+  Inc(PByte(D), FRounds * BufSize * 256);
+  for I := 0 to FRounds -1 do
+  begin
+    Dec(PByte(D), BufSize * 256);
+    for J := 0 to BufSize -1 do
+    begin
+      for N := 0 to 255 do
+      begin
+        D[PByte(E)^] := N;
+        Inc(PByte(E));
+      end;
+      Inc(PByte(D), 256);
+    end;
+    Dec(PByte(D), BufSize * 256);
+  end;
+  InitEnd(IVector);
+end;
+
+procedure TROCipher_Diamond2.Protect;
+begin
+  inherited Protect;
+  ReallocMem(FBoxE, 0);
+  ReallocMem(FBoxD, 0);
+end;
+
+procedure TROCipher_Diamond2Lite.SetRounds(Value: Integer);
+begin
+  if (Value < 4) or (Value > 30) then Value := 10;
+  if Value = FRounds then Exit;
+  FRounds := Value;
+end;
+
+class procedure TROCipher_Diamond2Lite.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 8;
+  AKeySize := 256;
+  AUserSize := 0;
+end;
+
+class function TROCipher_Diamond2Lite.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    06Bh,02Dh,03Dh,0D1h,0F2h,0B1h,029h,0FFh
+         DB    055h,0C8h,081h,0A9h,0A5h,04Ch,027h,07Fh
+         DB    08Eh,0ABh,089h,071h,034h,0DCh,0D1h,0D7h
+         DB    09Bh,02Dh,01Fh,0CEh,09Bh,043h,0C1h,045h
+end;
+
+type
+  PSapphireKey = ^TSapphireKey;
+  TSapphireKey = packed record
+                   Rotor: Byte;
+                   Ratchet: Byte;
+                   Avalanche: Byte;
+                   Plain: Byte;
+                   RO_Cipher: Byte;
+                   Cards: array[0..255] of Byte;
+                 end;
+
+class procedure TROCipher_Sapphire.GetContext(var ABufSize, AKeySize, AUserSize: Integer);
+begin
+  ABufSize := 32;
+  AKeySize := 1024;
+  AUserSize := SizeOf(TSapphireKey) * 2;
+end;
+
+class function TROCipher_Sapphire.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    07Ch,082h,028h,0B7h,039h,045h,043h,09Dh
+         DB    044h,0E0h,09Ch,019h,083h,0D0h,039h,0ACh
+         DB    0B9h,0B7h,075h,018h,02Bh,05Dh,0F3h,06Ah
+         DB    0B2h,02Dh,024h,007h,05Fh,041h,0CDh,073h
+end;
+
+procedure TROCipher_Sapphire.Encode(Data: Pointer);
+var
+  I,C: Integer;
+  T: Byte;
+begin
+  with PSapphireKey(User)^ do
+  begin
+    C := RO_Cipher;
+    for I := 0 to 31 do
+    begin
+      Inc(Ratchet, Cards[Rotor]);
+      Inc(Rotor);
+      T := Cards[C];
+      Cards[C] := Cards[Ratchet];
+      Cards[Ratchet] := Cards[Plain];
+      Cards[Plain] := Cards[Rotor];
+      Cards[Rotor] := T;
+      Inc(Avalanche, Cards[T]);
+      T := Cards[Plain] + Cards[C] + Cards[Avalanche];
+      Plain := PByte(Data)^;
+      C := PByte(Data)^ xor Cards[Cards[T]] xor
+                            Cards[(Cards[Ratchet] + Cards[Rotor]) and $FF];
+      PByte(Data)^ := C;
+      Inc(PByte(Data));
+    end;
+    RO_Cipher := C;
+  end;
+end;
+
+procedure TROCipher_Sapphire.Decode(Data: Pointer);
+var
+  I,C: Integer;
+  T: Byte;
+begin
+  with PSapphireKey(User)^ do
+  begin
+    C := RO_Cipher;
+    for I := 0 to 31 do
+    begin
+      Inc(Ratchet, Cards[Rotor]);
+      Inc(Rotor);
+      T := Cards[C];
+      Cards[C] := Cards[Ratchet];
+      Cards[Ratchet] := Cards[Plain];
+      Cards[Plain] := Cards[Rotor];
+      Cards[Rotor] := T;
+      Inc(Avalanche, Cards[T]);
+      T := Cards[Plain] + Cards[C] + Cards[Avalanche];
+      C := PByte(Data)^;
+      Plain := C xor Cards[Cards[T]] xor Cards[(Cards[Ratchet] + Cards[Rotor]) and $FF];
+      PByte(Data)^ := Plain;
+      Inc(PByte(Data));
+    end;
+    RO_Cipher := C;
+  end;
+end;
+
+procedure TROCipher_Sapphire.Init(const Key; Size: Integer; IVector: Pointer);
+var
+  Sum: Byte;
+  P: Integer;
+
+  function KeyRand(const Max: Integer): Byte;
+  var
+    I, M: Integer;
+  begin
+    Result := 0;
+    if Max = 0 then Exit;
+    I := 0;
+    M := 1;
+    while M < Max do M := M shl 1 or 1;
+    repeat
+      Inc(Sum, TByteArray(Key)[P]);
+      Inc(P);
+      if P >= Size then
+      begin
+        P := 0;
+        Inc(Sum, Size);
+      end;
+      Result := M and Sum;
+      Inc(I);
+      if I > 11 then Result := Result mod Max;
+    until Result <= Max;
+  end;
+
+var
+  I,S,T: Integer;
+begin
+  InitBegin(Size);
+  with PSapphireKey(User)^ do
+    if Size <= 0 then
+    begin
+      Rotor := 1;
+      Ratchet := 3;
+      Avalanche := 5;
+      Plain := 7;
+      RO_Cipher := 11;
+      for I := 0 to 255 do Cards[I] := 255 - I;
+    end else
+    begin
+      for I := 0 to 255 do Cards[I] := I;
+      P   := 0;
+      Sum := 0;
+      for I := 255 downto 1 do
+      begin
+        S := KeyRand(I);
+        T := Cards[I];
+        Cards[I] := Cards[S];
+        Cards[S] := T;
+      end;
+      Rotor := Cards[1];
+      Ratchet := Cards[3];
+      Avalanche := Cards[5];
+      Plain := Cards[7];
+      RO_Cipher := Cards[Sum];
+    end;
+  InitEnd(IVector);
+  Move(User^, Pointer(PAnsiChar(User) + SizeOf(TSapphireKey))^, SizeOf(TSapphireKey));
+end;
+
+procedure TROCipher_Sapphire.Done;
+begin
+  inherited Done;
+  Move(Pointer(PAnsiChar(User) + SizeOf(TSapphireKey))^, User^, SizeOf(TSapphireKey));
+end;
+
+initialization
+{$IFNDEF ManualRegisterClasses}
+  RegisterCipher(TROCipher_Cast128, 'Cast 128', '');
+  RegisterCipher(TROCipher_Cast256, 'Cast 256', 'Patented');
+  RegisterCipher(TROCipher_1DES, 'DES Single 8byte', '');
+  RegisterCipher(TROCipher_2DES, 'DES Double 8byte', '');
+  RegisterCipher(TROCipher_2DDES, 'DES Double 16byte', '');
+  RegisterCipher(TROCipher_3DES, 'DES Triple 8byte', '');
+  RegisterCipher(TROCipher_3DDES, 'DES Triple 16byte', '');
+  RegisterCipher(TROCipher_3TDES, 'DES Triple 24byte', '');
+  RegisterCipher(TROCipher_DESX, 'DESX', 'Copyright by RSA');
+  RegisterCipher(TROCipher_Diamond2, 'Diamond II', '');
+  RegisterCipher(TROCipher_Diamond2Lite, 'Diamond II Lite', '');
+  RegisterCipher(TROCipher_FROG, '', '');
+  RegisterCipher(TROCipher_Mars, '', 'Patented');
+  RegisterCipher(TROCipher_Misty, 'Misty 1', 'free for non-commercial');
+  RegisterCipher(TROCipher_NewDES, '', '');
+  RegisterCipher(TROCipher_RC2, '', '');
+  RegisterCipher(TROCipher_RC4, '', 'Patented by RSA');
+  RegisterCipher(TROCipher_RC5, '', 'Patented by RSA');
+  RegisterCipher(TROCipher_RC6, '', 'Patented by RSA');
+  RegisterCipher(TROCipher_Rijndael, '', '');
+  RegisterCipher(TROCipher_Sapphire, 'Sapphire II', '');
+  {$IFDEF VER_D3H}
+  RegisterCipher(TROCipher_Skipjack, '', '');
+  {$ENDIF}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCiphers.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCiphers.pas
new file mode 100644
index 0000000..f873208
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROCiphers.pas	
@@ -0,0 +1,67 @@
+unit uROCiphers;
+
+interface
+
+uses
+  Windows, SysUtils, Classes, uroCipher, uroCipher1, uroHash, uroDECUtil;
+
+type
+  TROBaseCipher = class(TObject)
+  public
+    procedure EncryptStream(const Plaintext, Ciphertext: TStream); virtual; abstract;
+    procedure DecryptStream(const Ciphertext, Plaintext: TStream); virtual; abstract;
+  end;
+
+  TRODECCipher = class(TROBaseCipher)
+  protected
+    fCipher: TROCipher;
+  public
+    constructor Create(aCipherClass: TROCipherClass; aKey: Ansistring);
+    destructor Destroy; override;
+    procedure EncryptStream(const Plaintext, Ciphertext: TStream); override;
+    procedure DecryptStream(const Ciphertext, Plaintext: TStream); override;
+  end;
+
+implementation
+
+{ TRODECCipher }
+
+constructor TRODECCipher.Create(aCipherClass: TROCipherClass; aKey: Ansistring);
+var
+  i                 : Integer;
+  keyval            : Ansistring;
+begin
+  fCipher := aCipherClass.Create('', nil);
+  fCipher.Mode := cmCTS;
+  fCipher.HashClass := TROHash_RipeMD256;
+
+  i := Length(aKey) div 2;
+  if i > fCipher.KeySize then
+    i := fCipher.KeySize;
+
+  //convert key to binary
+  keyval := formattostr(PAnsiChar(aKey), Length(aKey), fmthex);
+
+  fCipher.Init(keyval[1], i, nil);
+end;
+
+procedure TRODECCipher.DecryptStream(const Ciphertext, Plaintext: TStream);
+begin
+  fCipher.CodeStream(Ciphertext, Plaintext, Ciphertext.Size - Ciphertext.Position, paDecode);
+end;
+
+destructor TRODECCipher.Destroy;
+begin
+  fCipher.Free;
+
+  inherited;
+end;
+
+procedure TRODECCipher.EncryptStream(const Plaintext, Ciphertext: TStream);
+begin
+  //Plaintext.seek(0, soFromBeginning);
+  fCipher.CodeStream(Plaintext, Ciphertext, Plaintext.Size, paEncode);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECConst.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECConst.pas
new file mode 100644
index 0000000..9af3d09
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECConst.pas	
@@ -0,0 +1,86 @@
+unit uRODECConst;
+
+interface
+
+{$I uROVer.inc}
+
+{$IFDEF VER_D3H}
+resourcestring
+{$ELSE}
+const
+{$ENDIF}
+// DECUTils.pas (all parts)
+  sProtectionCircular  = 'Circular Protection detected, Protection Object is invalid.';
+  sStringFormatExists  = 'String Format "%d" does not exist.';
+  sInvalidStringFormat = 'Input is not a valid %s Format.';
+  sInvalidFormatString = 'Input cannot be converted to %s Format.';
+  sFMT_COPY            = 'copy Input to Output';
+  sFMT_HEX             = 'Hexadecimal';
+  sFMT_HEXL            = 'Hexadecimal lowercase';
+  sFMT_MIME64          = 'MIME Base 64';
+  sFMT_UU              = 'UU Coding';
+  sFMT_XX              = 'XX Coding';
+  
+// RO_Cipher.pas (Part I)
+  sInvalidKey          = 'Encryptionkey is invalid';
+  sInvalidCRC          = 'Encrypted Data is corrupt, invalid Checksum';
+  sInvalidKeySize      = 'Length from Encryptionkey is invalid.'#13#10+
+                         'Keysize for %s must be within %d-%d bytes';
+  sNotInitialized      = '%s is not initialized, call Init() or InitKey() first.';
+  sInvalidMACMode      = 'Invalid Ciphermode selected to produce MAC.'#13#10 +
+                         'Please use Modes cmCBC, cmCTS, cmCFB, cmCBCMAC, cmCFBMAC or cmCTSMAC for CalcMAC.';
+  sCantCalc            = 'Invalid Ciphermode selected.';
+// RO_Rng.pas    (Part I)
+  sInvalidRandomStream = 'Invalid Random Data detected.';
+  sRandomDataProtected = 'Random Data is protected.';
+// BNG.pas    (Part II)
+  sBBSnotSeekable      = 'BBS Generator is not seekable.';
+  sBigNumDestroy       = 'Bignums used in a BBS Generator cannot be destroyed.';
+  sIndexOutOfRange     = 'BBS Error: Index out of Range.';
+// BigNum.pas (Part II)
+  sBigNumAborted       = 'BigNum aborted by User.';
+  sErrGeneric          = 'Bignum Generic Error.';
+  sErrAsInteger        = 'BigNum overflow in AsInteger.';
+  sErrAsComp           = 'BigNum overflow in AsComp.';
+  sErrAsFloat          = 'BigNum overflow in AsFloat.';
+  sNumberFormat        = 'BigNum invalid Numberformat for Base %d.'#13#10'Value: %s';
+  sDivByZero           = 'BigNum division by Zero.';
+  sStackIndex          = 'BigNum Stackindex out of range.';
+  sLoadFail            = 'BigNum invalid data format.';
+  sParams              = 'BigNum parameter error.'#13#10'%s.';
+  sJacobi              = 'BigNum Jacobi(A, B), B must be >= 3, Odd and B < A';
+  sSPPrime             = 'BigNum IsSPPrime(A, Base), |Base| must be > 1, |A| > |Base| and |A| >= 3';
+  sSetPrime            = 'BigNum SetPrime(Base, Residue, Modulus), Invalid Parameter.'#13#10'%s.';
+  sSetPrimeSize        = 'Value must be greater than 32767';
+  sSetPrimeParam       = 'GCD(Residue, Modulus) must be 1 and Residue < Modulus';
+  sSqrt                = 'BigNum Sqrt(A) A must be positive';
+  sExpMod              = 'BigNum ExpMod(E, M) M must be positive';
+  sCalcName            = 'Calculation No %d';
+// OTPass.pas   (Part III)
+  sInvalidState        = 'Invalid Protector State detected.';
+  sIDOutOfRange        = 'Protector Error: ID is out of Range.';
+// RO_Compress.pas (Part I)
+  sInvalidZIPData      = 'Invalid compressed Data detected.';
+// RO_RFC2289.pas  (Part I)
+  sInvalidChallenge    = 'Challenge is not in RO_RFC2289 Format.';
+  sInvalidPassword     = 'Invalid Passphraselength, must be more than 9 Chars.';
+  sInvalidSeed         = 'Invalid Seed Value in OTPCalc.';
+  sInvalidCalc         = 'Invalid Parameters in OTPCalc.';
+  sInvalidDictionary   = 'Used Dictionary in %s is invalid.';
+  sOTPIdent            = 'otp-';                      // RO_RFC2289 Ident
+  sSKeyIdent           = 's/key';                     // RFC1760 Ident
+{$IFNDEF UNICODE}
+  sOTPWord             = 'word:';                     // RFC2444
+  sOTPHex              = 'hex:';                      // RFC2444
+  sOTPExt              = 'ext';                       // RFC2444
+{$ELSE}
+const
+  sOTPWord             : AnsiString = 'word:';                     // RFC2444
+  sOTPHex              : AnsiString = 'hex:';                      // RFC2444
+  sOTPExt              : AnsiString = 'ext';                       // RFC2444
+{$ENDIF}
+
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECReg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECReg.pas
new file mode 100644
index 0000000..a134522
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECReg.pas	
@@ -0,0 +1,175 @@
+{Copyright:      Hagen Reddmann  mailto:HaReddmann@AOL.COM
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        3.0,  Delphi Encryption Compendium
+                 Delphi 2-4, designed and testet under D3 & D4
+ Remarks:        remove RO_Cipher1 from the Uses Clausel to
+                 use only a Selection from Ciphers (RO_Cipher.pas)
+}
+unit uRODECReg;
+
+{$INCLUDE ..\RemObjects.inc}
+
+{$DEFINE Part_II}
+{$DEFINE Part_III}
+
+interface
+
+uses
+  uRODECConst, uRODECUtil, uROHash, uROCipher, uROHCMngr, SysUtils, Classes,
+  {$IFDEF DELPHI5} DsgnIntf, {$ELSE}  DesignIntf, DesignEditors, {$ENDIF}
+  uROCipher1, uRORFC2289
+{$IFDEF Part_II}
+{$ENDIF}
+{$IFDEF Part_III}
+{$ENDIF};
+
+
+type
+// List all registered RO_Hash Names
+  TROAlgorithmHashProperty = class(TStringProperty)
+    function GetAttributes: TPropertyAttributes; override;
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+// List only Checksums
+  TROAlgorithmChecksumProperty = class(TROAlgorithmHashProperty)
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+// List only Secure Hashs (excludes Checksum)
+  TROAlgorithmSecureHashProperty = class(TROAlgorithmHashProperty)
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+// List all registered Ciphers
+  TROAlgorithmCipherProperty = class(TROAlgorithmHashProperty)
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+// List all valid Idents ("otp-", "s/key")
+  TROOTPIdentProperty = class(TStringProperty)
+    function GetAttributes: TPropertyAttributes; override;
+    procedure GetValues(Proc: TGetStrProc); override;
+  end;
+// List all registered Stringformats
+  TROStringFormatProperty = class(TIntegerProperty)
+    function GetAttributes: TPropertyAttributes; override;
+    procedure GetValues(Proc: TGetStrProc); override;
+    function GetValue: String; override;
+    procedure SetValue(const Value: String); override;
+  end;
+
+procedure Register;
+
+implementation
+
+{$R *.RES}
+
+function TROAlgorithmHashProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paReadOnly, paValueList, paMultiSelect];
+end;
+
+procedure TROAlgorithmHashProperty.GetValues(Proc: TGetStrProc);
+var
+  I: Integer;
+begin
+  with HashList do
+    for I := 0 to Count-1 do Proc(Names[I]);
+end;
+
+procedure TROAlgorithmChecksumProperty.GetValues(Proc: TGetStrProc);
+var
+  I: Integer;
+begin
+  with HashList do
+    for I := 0 to Count-1 do
+      if TROHashClass(Objects[I]).InheritsFrom(TROChecksum) then Proc(Names[I]);
+end;
+
+procedure TROAlgorithmSecureHashProperty.GetValues(Proc: TGetStrProc);
+var
+  I: Integer;
+begin
+  with HashList do
+    for I := 0 to Count-1 do
+      if not TROHashClass(Objects[I]).InheritsFrom(TROChecksum) then Proc(Names[I]);
+end;
+
+procedure TROAlgorithmCipherProperty.GetValues(Proc: TGetStrProc);
+var
+  I: Integer;
+begin
+  with CipherList do
+    for I := 0 to Count-1 do Proc(Names[I]);
+end;
+
+function TROOTPIdentProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paValueList, paMultiSelect];
+end;
+
+procedure TROOTPIdentProperty.GetValues(Proc: TGetStrProc);
+begin
+  Proc(sOTPIdent);
+  Proc(sSKeyIdent);
+end;
+
+function TROStringFormatProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paValueList, paMultiSelect];
+end;
+
+procedure TROStringFormatProperty.GetValues(Proc: TGetStrProc);
+var
+  I: Integer;
+  S: TStringList;
+begin
+  S := TStringList.Create;
+  try
+    GetStringFormats(S);
+    for I := 0 to S.Count-1 do Proc(S[I]);
+  finally
+    S.Free;
+  end;
+end;
+
+function TROStringFormatProperty.GetValue: String;
+var
+  Fmt: TROStringFormatClass;
+begin
+  Fmt := StringFormat(GetOrdValue);   
+  if Fmt <> nil then Result := Fmt.Name else Result := '(unknown)';
+end;
+
+procedure TROStringFormatProperty.SetValue(const Value: String);
+var
+  I: Integer;
+  S: TStringList;
+begin
+  S := TStringList.Create;
+  try
+    GetStringFormats(S);
+    I := S.IndexOf(Value);
+    if I < 0 then SetOrdValue(StrToIntDef(Value, DefaultStringFormat))
+      else SetOrdValue(TROStringFormatClass(S.Objects[I]).Format);
+  finally
+    S.Free;
+  end;
+end;
+
+procedure Register;
+begin
+  {$IFDEF REGISTER_RODEC}
+  RegisterComponents('RemObjects DEC', [TROHashManager, TROCipherManager, TROOneTimePassword]);
+  RegisterPropertyEditor(TypeInfo(String), TROOneTimePassword, 'Algorithm', TROAlgorithmSecureHashProperty);
+  RegisterPropertyEditor(TypeInfo(String), TROOneTimePassword, 'Ident', TROOTPIdentProperty);
+  RegisterPropertyEditor(TypeInfo(Integer), TROOneTimePassword, 'Format', TROStringFormatProperty);
+  RegisterPropertyEditor(TypeInfo(String), TROHashManager, 'Algorithm', TROAlgorithmHashProperty);
+  RegisterPropertyEditor(TypeInfo(String), TROCipherManager, 'Algorithm', TROAlgorithmCipherProperty);
+  {$ENDIF REGISTER_RODEC}
+{$IFDEF Part_II}
+{$ENDIF}
+{$IFDEF Part_III}
+{$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECReg.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECReg.res
new file mode 100644
index 0000000..915f25d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECReg.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECUtil.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECUtil.pas
new file mode 100644
index 0000000..1143103
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRODECUtil.pas	
@@ -0,0 +1,1718 @@
+{Copyright:      Hagen Reddmann  mailto:HaReddmann@AOL.COM
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        3.0, Delphi Encryption Compendium
+                 Delphi 2-4, BCB 3-4, designed and testet under D3 and D4
+ Description:    Utilitys for the DEC Packages
+
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
+ * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+ * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+ * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+ * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+}
+unit uRODECUtil;
+
+interface
+
+uses SysUtils, Classes;
+
+{$I uROVer.inc}
+{$I RemObjects.inc}
+
+const
+// String Formats
+  fmtDEFAULT     =    -1;     // use DefaultStringFormat
+  fmtNONE        =     0;     // allways an Empty String, nothing Action
+  fmtCOPY        =     1;     // One to One binary (input = output)
+  fmtHEX         =    16;     // Hexadecimal
+  fmtHEXL        =  1016;     // Hexadecimal lowercase
+  fmtMIME64      = $1064;     // MIME Base 64
+  fmtUU          = $5555;     // UU Coding  $5555 = 'UU'
+  fmtXX          = $5858;     // XX Coding  $5858 = 'XX'
+
+// 2 - 64 reserved for Formats to the Base 2 - 64
+// over 1000 all other Formats
+
+type
+{$IFNDEF VER_D4H}
+  LongWord       = LongInt;
+  PLongWord      = ^LongWord;
+{$ENDIF}
+  PByte          = ^Byte;
+  PInteger       = ^LongWord;
+  PWord          = ^Word;
+  PIntArray      = ^TIntArray;
+  TIntArray      = array[0..1023] of LongWord;
+
+  EROProtection    = class(Exception);
+  EROStringFormat  = class(Exception);
+
+// basic Class for all Protection Classes, TROCipher, TROHash, TRORandom
+// TProtect can build a chain with varios Encryption Algos.
+// i.E. CodeBuffer() can en/decode the Buffer with more as one RO_Cipher when
+// property Protection is set to a other RO_Cipher :-)
+  TPAction  = (paEncode, paDecode, paScramble, paCalc, paWipe);
+  TPActions = set of TPAction;
+
+{$IFDEF VER_D3H}
+  TROProtection = class(TInterfacedObject)
+  private
+{$ELSE}
+  TROProtection = class(TObject)
+  private
+    FRefCount: Integer;
+{$ENDIF}
+    FProtection: TROProtection;
+    FActions: TPActions;
+    function GetProtection: TROProtection;
+    procedure SetProtection(Value: TROProtection);
+  protected
+    procedure CodeInit(Action: TPAction); virtual;
+    procedure CodeDone(Action: TPAction); virtual;
+    procedure CodeBuf(var Buffer; const BufferSize: Integer; Action: TPAction); virtual;
+  public
+    constructor Create(AProtection: TROProtection);
+    destructor Destroy; override;
+
+    class function Identity: Word;
+
+    function Release: Integer;
+    function AddRef: Integer;
+
+    procedure CodeStream(Source, Dest: TStream; DataSize: Integer; Action: TPAction); virtual;
+    procedure CodeFile(const Source, Dest: String; Action: TPAction); virtual;
+    function  CodeString(const Source: AnsiString; Action: TPAction; Format: Integer): AnsiString; virtual;
+    function  CodeBuffer(var Buffer; BufferSize: Integer; Action: TPAction): Integer; virtual;
+// Protection Object, to cascade more Protection
+    property Protection: TROProtection read GetProtection write SetProtection;
+    property Actions: TPActions read FActions write FActions default [paEncode..paWipe];
+{$IFNDEF VER_D3H}
+    property RefCount: Integer read FRefCount;
+{$ENDIF}
+  end;
+
+// String converting
+  
+  TROStringFormatClass = class of TROStringFormat;
+
+  TROStringFormat = class(TObject) // for binary one to one convert = fmtCOPY
+  public
+    class function ToStr(Value: PAnsiChar; Len: Integer): AnsiString; virtual;
+    class function StrTo(Value: PAnsiChar; Len: Integer): AnsiString; virtual;
+    class function Name: String; virtual;
+    class function Format: Integer; virtual;
+    class function IsValid(Value: PAnsiChar; Len: Integer; ToStr: Boolean): Boolean; virtual;
+  end;
+
+  TROStringFormat_HEX = class(TROStringFormat) // Hexadecimal = fmtHEX
+  public
+    class function ToStr(Value: PAnsiChar; Len: Integer): AnsiString; override;
+    class function StrTo(Value: PAnsiChar; Len: Integer): AnsiString; override;
+    class function Name: String; override;
+    class function Format: Integer; override;
+    class function IsValid(Value: PAnsiChar; Len: Integer; ToStr: Boolean): Boolean; override;
+    class function CharTable: PAnsiChar; virtual;
+  end;
+
+  TROStringFormat_HEXL = class(TROStringFormat_HEX) // Hexadecimal lowercase = fmtHEXL
+  public
+    class function Name: String; override;
+    class function Format: Integer; override;
+    class function CharTable: PAnsiChar; override;
+  end;
+
+  TROStringFormat_MIME64 = class(TROStringFormat_HEX)  // MIME Base 64 = fmtMIME64
+  public
+    class function ToStr(Value: PAnsiChar; Len: Integer): AnsiString; override;
+    class function StrTo(Value: PAnsiChar; Len: Integer): AnsiString; override;
+    class function Name: String; override;
+    class function Format: Integer; override;
+    class function CharTable: PAnsiChar; override;
+  end;
+
+  TROStringFormat_UU = class(TROStringFormat) // UU Encode = fmtUU
+  public
+    class function ToStr(Value: PAnsiChar; Len: Integer): AnsiString; override;
+    class function StrTo(Value: PAnsiChar; Len: Integer): AnsiString; override;
+    class function Name: String; override;
+    class function Format: Integer; override;
+    class function IsValid(Value: PAnsiChar; Len: Integer; ToStr: Boolean): Boolean; override;
+    class function CharTable: PAnsiChar; virtual;
+  end;
+
+  TROStringFormat_XX = class(TROStringFormat_UU) // XX Encode = fmtXX
+  public
+    class function Name: String; override;
+    class function Format: Integer; override;
+    class function CharTable: PAnsiChar; override;
+  end;
+
+{Progress (gauge) for RO_Hash and RO_Cipher}
+  TProgressEvent = procedure(Sender: TObject; Current, Maximal: Integer) of Object;
+
+//calculate CRCR16/CRC32 Checksum, CRC is default $FFFFFFFF,
+//after calc you must inverse Result with NOT
+function CRC16(CRC: Word; Data: Pointer; DataSize: LongWord): Word;
+function CRC32(CRC: LongWord; Data: Pointer; DataSize: LongWord): LongWord;
+// the basicly used TestVector for all RO_Hash/RO_Cipher classes
+// used for SelfTest, random Data, don't modify
+function GetTestVector: PAnsiChar; register;
+
+// String/Format routines
+// convert any String to Format
+function StrToFormat(Value: PAnsiChar; Len, Format: Integer): AnsiString;
+// convert any Format to String
+function FormatToStr(Value: PAnsiChar; Len, Format: Integer): AnsiString;
+// convert any Format to Format
+function ConvertFormat(Value: PAnsiChar; Len, FromFormat, ToFormat: Integer): AnsiString;
+// Check is String convertable to Format
+function IsValidString(Value: PAnsiChar; Len, Format: Integer): Boolean;
+// Check is Format an valid Format
+function IsValidFormat(Value: PAnsiChar; Len, Format: Integer): Boolean;
+// register a new Format
+procedure RegisterStringFormats(const StringFormats: array of TROStringFormatClass);
+// give all registered Formats in Strings
+procedure GetStringFormats(Strings: TStrings);
+// the Default, = fmtMIME64
+function DefaultStringFormat: Integer;
+// set the Default
+procedure SetDefaultStringFormat(Format: Integer);
+// give StringFormatClass from Format
+function StringFormat(Format: Integer): TROStringFormatClass;
+// insert #13#10 Chars in Blocks from BlockSize
+function InsertCR(const Value: AnsiString; BlockSize: Integer): AnsiString;
+// delete all #13 and #10 Chars
+function DeleteCR(const Value: AnsiString): AnsiString;
+// format any String to a Block
+function InsertBlocks(const Value, BlockStart, BlockEnd: String; BlockSize: Integer): String;
+// remove any Block format
+function RemoveBlocks(const Value, BlockStart, BlockEnd: String): String;
+// give back a shorter Name, i.E. TROHash_MD4 -> "MD4" or TROCipher_Blowfish -> "Blowfish"
+function GetShortClassName(Value: TClass): String;
+
+// Result := Value shl Shift or Value shr (32 - Shift)
+function ROL(Value: LongWord; Shift: Integer): LongWord;
+// Result := ROL(Value, Shift) + Add
+function ROLADD(Value, Add: LongWord; Shift: Integer): LongWord;
+// Result := ROL(Value, Shift) - Sub
+function ROLSUB(Value, Sub: LongWord; Shift: Integer): LongWord;
+// Result := Value shr Shift or Value shl (32 - Shift)
+function ROR(Value: LongWord; Shift: Integer): LongWord;
+// Result := ROR(Value, Shift) + Add
+function RORADD(Value, Add: LongWord; Shift: Integer): LongWord;
+// Result := ROR(Value, Shift) - Sub
+function RORSUB(Value, Sub: LongWord; Shift: Integer): LongWord;
+// Reverse the Bitorder from Value
+function SwapBits(Value: LongWord): LongWord;
+// Index of Least Significant Bit from Value
+function LSBit(Value: Integer): Integer;
+// Index of Most Significant Bit from Value
+function MSBit(Value: Integer): Integer;
+// Check iff only One Bit is set and give back the Index
+function OneBit(Value: Integer): Integer;
+// Compare Memory, D2 have no CompareMem, Result can be -1, 0, 1
+function MemCompare(P1, P2: Pointer; Size: Integer): Integer;
+// XOR's Buffers I1 and I2 Size Bytes to Dest
+procedure XORBuffers(I1, I2: Pointer; Size: Integer; Dest: Pointer);
+// Processor Type
+function CPUType: Integer; {3 = 386, 4 = 486, 5 = Pentium, 6 > Pentium i.E. PII}
+// call a installed Progress Event
+procedure DoProgress(Sender: TObject; Current, Maximal: Integer);
+// saver Test
+function IsObject(AObject: Pointer; AClass: TClass): Boolean;
+// Time Seed produced from GetSystemTime and QueryPerformanceCounter
+function RndTimeSeed: Integer;
+// XOR Buffer Size Bytes with Seed Randoms,
+// the initial State from Buffer have effect on the Output
+function RndXORBuffer(Seed: Integer; var Buffer; Size: Integer): Integer;
+// encapsulate QueryPerformanceCounter/Frequency
+
+{$IFNDEF DELPHI10UP}
+function PerfCounter: Comp;
+function PerfFreq: Comp;
+{$ENDIF}
+
+const
+  InitTestIsOk        : Boolean  = False;
+  IdentityBase        : Word     = $1234;
+
+{this is set to SwapInt for <= 386 and BSwapInt >= 486 CPU, don't modify}
+  SwapInteger       : function(Value: LongWord): LongWord; register  = nil;
+{Count of Integers Buffer}
+  SwapIntegerBuffer : procedure(Source, Dest: Pointer; Count: Integer); register = nil;
+{Progress callback function, set this to your Progresscallback}
+  Progress: TProgressEvent = nil;
+function AnsiStringToWideString(AValue: AnsiString): WideString;
+function WideStringToAnsiString(AValue: WideString): AnsiString;
+
+implementation
+
+uses Windows, uRODECConst;
+
+function AnsiStringToWideString(AValue: AnsiString): WideString;
+begin
+  {$IFDEF UNICODE} //AnsiStringToWideString
+  Result := StringOf(BytesOf(AValue));
+  {$ELSE}
+  Result := AValue;
+  {$ENDIF}
+end;
+
+function WideStringToAnsiString(AValue: WideString): AnsiString;
+{$IFDEF UNICODE} //WideStringToAnsiString
+var
+  b: TBytes;
+begin
+  b := BytesOf(AValue);
+  SetLength(Result, Length(b));
+  Move(b[0], pointer(Result)^,Length(b));
+end;
+{$ELSE}
+begin
+  Result := AValue;
+end;
+{$ENDIF}
+
+const
+  FCPUType : Integer = 0;
+  FStrFMTs : TList = nil;         // registered Stringformats
+  FStrFMT  : Integer = fmtMIME64; // Default Stringformat
+
+function PerfCounter: Comp;
+{$IFDEF DELPHI2009UP}
+var
+  i: int64;
+{$ENDIF}
+begin
+{$IFDEF DELPHI2009UP}
+  if QueryPerformanceCounter(i) then
+    TULargeInteger(Result).QuadPart := i
+  else
+{$ELSE}
+  {$IFDEF VER_D4H}
+    if not QueryPerformanceCounter(TULargeInteger(Result).QuadPart) then
+  {$ELSE}
+    if not QueryPerformanceCounter(TLargeInteger(Result)) then
+  {$ENDIF}
+{$ENDIF}
+    Result := GetTickCount;
+end;
+
+function PerfFreq: Comp;
+{$IFDEF DELPHI2009UP}
+var
+  i: int64;
+{$ENDIF}
+begin
+{$IFDEF DELPHI2009UP}
+  if QueryPerformanceFrequency(i) then
+    TULargeInteger(Result).QuadPart := i
+  else
+{$ELSE}
+  {$IFDEF VER_D4H}
+    if not QueryPerformanceFrequency(TULargeInteger(Result).QuadPart) then
+  {$ELSE}
+    if not QueryPerformanceFrequency(TLargeInteger(Result)) then
+  {$ENDIF}
+{$ENDIF}  
+    Result := 1000;
+end;
+
+function DefaultStringFormat: Integer;
+begin
+  Result := FStrFMT;
+end;
+
+procedure SetDefaultStringFormat(Format: Integer);
+begin
+  if (Format = fmtDEFAULT) or (StringFormat(Format) = nil) then FStrFMT := fmtMIME64
+    else FStrFMT := Format;
+end;
+
+// TROProtection Class
+function TROProtection.GetProtection: TROProtection;
+begin
+  if (FProtection <> nil) and not IsObject(FProtection, TROProtection) then FProtection := nil;
+  Result := FProtection;
+end;
+
+procedure TROProtection.SetProtection(Value: TROProtection);
+
+  function CheckProtection(P: TROProtection): Boolean;
+  begin
+    Result := True;
+    if IsObject(P, TROProtection) then
+      if P = Self then Result := False
+        else Result := CheckProtection(P.FProtection)
+  end;
+
+begin
+  if Value <> FProtection then
+    if CheckProtection(Value) then
+    begin
+      FProtection.Release;
+      FProtection := Value;
+      FProtection.AddRef;
+    end else raise EROProtection.Create(sProtectionCircular)
+end;
+
+procedure TROProtection.CodeInit(Action: TPAction);
+begin
+  if Protection <> nil then Protection.CodeInit(Action);
+end;
+
+procedure TROProtection.CodeDone(Action: TPAction);
+begin
+  if Protection <> nil then Protection.CodeDone(Action);
+end;
+
+procedure TROProtection.CodeBuf(var Buffer; const BufferSize: Integer; Action: TPAction);
+begin
+  if Protection <> nil then Protection.CodeBuf(Buffer, BufferSize, Action);
+end;
+
+function TROProtection.Release: Integer;
+begin
+  if IsObject(Self, TROProtection) then
+  begin
+{$IFDEF VER_D3H}
+    Result := IUnknown(Self)._Release;
+{$ELSE}
+    Dec(FRefCount);
+    Result := FRefCount;
+    if FRefCount = 0 then Destroy;
+{$ENDIF}
+  end else Result := 0;
+end;
+
+function TROProtection.AddRef: Integer;
+begin
+  if IsObject(Self, TROProtection) then
+  begin
+{$IFDEF VER_D3H}
+    Result := IUnknown(Self)._AddRef;
+{$ELSE}
+    Inc(FRefCount);
+    Result := FRefCount;
+{$ENDIF}
+  end else Result := 0;
+end;
+
+procedure TROProtection.CodeStream(Source, Dest: TStream; DataSize: Integer; Action: TPAction);
+const
+  maxBufSize = 1024 * 4;
+var
+  Buf: PChar;
+  SPos: Integer;
+  DPos: Integer;
+  Len: Integer;
+  Size: Integer;
+begin
+  if Source = nil then Exit;
+  if Dest = nil then Dest := Source;
+  if DataSize < 0 then
+  begin
+    DataSize := Source.Size;
+    Source.Position := 0;
+  end;
+  CodeInit(Action);
+  Buf := nil;
+  Size := DataSize;
+  DoProgress(Self, 0, Size);
+  try
+    Buf    := AllocMem(maxBufSize);
+    DPos   := Dest.Position;
+    SPos   := Source.Position;
+    if Action = paCalc then
+    begin
+      while DataSize > 0 do
+      begin
+        Len := DataSize;
+        if Len > maxBufSize then Len := maxBufSize;
+        Len := Source.Read(Buf^, Len);
+        if Len <= 0 then Break;
+        CodeBuf(Buf^, Len, paCalc);
+        Dec(DataSize, Len);
+        DoProgress(Self, Size - DataSize, Size);
+      end;
+    end else
+    begin
+      while DataSize > 0 do
+      begin
+        Source.Position := SPos;
+        Len := DataSize;
+        if Len > maxBufSize then Len := maxBufSize;
+        Len := Source.Read(Buf^, Len);
+        SPos := Source.Position;
+        if Len <= 0 then Break;
+        CodeBuf(Buf^, Len, Action);
+        Dest.Position := DPos;
+        Dest.Write(Buf^, Len);
+        DPos := Dest.Position;
+        Dec(DataSize, Len);
+        DoProgress(Self, Size - DataSize, Size);
+      end;
+    end;
+  finally
+    DoProgress(Self, 0, 0);
+    ReallocMem(Buf, 0);
+    CodeDone(Action);
+  end;
+end;
+
+procedure TROProtection.CodeFile(const Source, Dest: String; Action: TPAction);
+var
+  S,D: TFileStream;
+begin
+  S := nil;
+  D := nil;
+  try
+    if (AnsiCompareText(Source, Dest) <> 0) and ((Trim(Dest) <> '') or (Action = paCalc)) then
+    begin
+      S := TFileStream.Create(Source, fmOpenRead or fmShareDenyNone);
+      if Action = paCalc then D := S
+        else D := TFileStream.Create(Dest, fmCreate);
+    end else
+    begin
+      S := TFileStream.Create(Source, fmOpenReadWrite);
+      D := S;
+    end;
+    CodeStream(S, D, S.Size, Action);
+  finally
+    S.Free;
+    if S <> D then
+    begin
+{$IFDEF VER_D3H}
+      D.Size := D.Position;
+{$ENDIF}
+      D.Free;
+    end;
+  end;
+end;
+
+function TROProtection.CodeBuffer(var Buffer; BufferSize: Integer; Action: TPAction): Integer;
+begin
+  Result := BufferSize;
+  CodeInit(Action);
+  try
+    CodeBuf(Buffer, BufferSize, Action);
+  finally
+    CodeDone(Action);
+  end;
+end;
+
+function TROProtection.CodeString(const Source: AnsiString; Action: TPAction; Format: Integer): AnsiString;
+var
+  M: TMemoryStream;
+begin
+  Result := '';
+  if Length(Source) <= 0 then Exit;
+  M := TMemoryStream.Create;
+  try
+    if Action <> paDecode then Result := Source
+      else Result := FormatToStr(PAnsiChar(Source), Length(Source), Format);
+    M.Write(PAnsiChar(Result)^, Length(Result));
+    M.Position := 0;
+    CodeStream(M, M, M.Size, Action);
+    if Action = paDecode then
+    begin
+      SetLength(Result, M.Size);
+      Move(M.Memory^, PAnsiChar(Result)^, M.Size);
+    end else
+      Result := StrToFormat(M.Memory, M.Size, Format);
+  finally
+    M.Free;
+  end;
+end;
+
+constructor TROProtection.Create(AProtection: TROProtection);
+begin
+  inherited Create;
+  Protection := AProtection;
+  FActions := [paEncode..paWipe];
+end;
+
+destructor TROProtection.Destroy;
+begin
+  Protection := nil;
+  inherited Destroy;
+end;
+
+class function TROProtection.Identity: Word;
+var
+  S: String;
+begin
+  S := ClassName;
+  Result := not CRC16(IdentityBase, PChar(S), Length(S));
+end;
+
+class function TROStringFormat.ToStr(Value: PAnsiChar; Len: Integer): AnsiString;
+begin
+  SetLength(Result, Len);
+  Move(Value^, PAnsiChar(Result)^, Len);
+end;
+
+class function TROStringFormat.StrTo(Value: PAnsiChar; Len: Integer): AnsiString;
+begin
+  SetLength(Result, Len);
+  Move(Value^, PAnsiChar(Result)^, Len);
+end;
+
+class function TROStringFormat.Name: String;
+begin
+  if Self = TROStringFormat then Result := sFMT_COPY
+    else Result := GetShortClassName(Self);
+end;
+
+class function TROStringFormat.Format: Integer;
+begin
+  Result := fmtCOPY;
+end;
+
+class function TROStringFormat.IsValid(Value: PAnsiChar; Len: Integer; ToStr: Boolean): Boolean;
+begin
+  Result := True;
+end;
+
+function TableFind(Value: AnsiChar; Table: PAnsiChar; Len: Integer): Integer; assembler;
+asm // Utility for TStringFormat_XXXXX
+      PUSH  EDI
+      MOV   EDI,EDX
+      REPNE SCASB
+      MOV   EAX,0
+      JNE   @@1
+      MOV   EAX,EDI
+      SUB   EAX,EDX
+@@1:  DEC   EAX
+      POP   EDI
+end;
+
+class function TROStringFormat_HEX.ToStr(Value: PAnsiChar; Len: Integer): AnsiString;
+var
+  D: PByte;
+  T: PAnsiChar;
+  I,P: Integer;
+  HasIdent: Boolean;
+begin
+  Result := '';
+  if Value = nil then Exit;
+  if Len < 0 then Len := StrLen(Value);
+  if Len = 0 then Exit;
+  SetLength(Result, Len div 2 +1);
+  T := CharTable;
+  D := PByte(Result);
+  I := 0;
+  HasIdent := False;
+  while Len > 0 do
+  begin
+    P := TableFind(UpCase(Value^), T, 18);
+    Inc(Value);
+    if P >= 0 then
+      if P > 16 then
+      begin
+        if not HasIdent then
+        begin
+          HasIdent := True;
+          I := 0;
+          D := PByte(Result);
+        end;
+      end else
+      begin
+        if Odd(I) then
+        begin
+          D^ := D^ or P;
+          Inc(D);
+        end else D^ := P shl 4;
+        Inc(I);
+      end;
+    Dec(Len);
+  end;
+  SetLength(Result, PAnsiChar(D) - PAnsiChar(Result));
+end;
+
+class function TROStringFormat_HEX.StrTo(Value: PAnsiChar; Len: Integer): AnsiString;
+var
+  D,T: PAnsiChar;
+begin
+  Result := '';
+  if Value = nil then Exit;
+  if Len < 0 then Len := StrLen(Value);
+  if Len = 0 then Exit;
+  SetLength(Result, Len * 2);
+  T := CharTable;
+  D := PAnsiChar(Result);
+  while Len > 0 do
+  begin
+    D[0] := T[Byte(Value^) shr  4];
+    D[1] := T[Byte(Value^) and $F];
+    Inc(D, 2);
+    Inc(Value);
+    Dec(Len);
+  end;
+end;
+
+class function TROStringFormat_HEX.IsValid(Value: PAnsiChar; Len: Integer; ToStr: Boolean): Boolean;
+var
+  T: PAnsiChar;
+  L: Integer;
+begin
+  Result := not ToStr;
+  if not Result then
+  begin
+    T := CharTable;
+    L := StrLen(T);
+    while Len > 0 do
+      if TableFind(Value^, T, L) >= 0 then
+      begin
+        Dec(Len);
+        Inc(Value);
+      end else Exit;
+  end;
+  Result := True;
+end;
+
+class function TROStringFormat_HEX.Name: String;
+begin
+  Result := sFMT_HEX;
+end;
+
+class function TROStringFormat_HEX.Format: Integer;
+begin
+  Result := fmtHEX;
+end;
+
+class function TROStringFormat_HEX.CharTable: PAnsiChar; assembler;
+asm
+      MOV  EAX,OFFSET @@1
+      RET
+@@1:  DB   '0123456789ABCDEF'     // Table must be >= 18 Chars
+      DB   'X$ abcdefhHx()[]{},;:-_/\*+"''',9,10,13,0
+end;
+
+class function TROStringFormat_HEXL.Name: String;
+begin
+  Result := sFMT_HEXL;
+end;
+
+class function TROStringFormat_HEXL.Format: Integer;
+begin
+  Result := fmtHEXL;
+end;
+
+class function TROStringFormat_HEXL.CharTable: PAnsiChar;
+asm
+      MOV  EAX,OFFSET @@1
+      RET
+@@1:  DB   '0123456789abcdef'     // Table must be >= 18 Chars
+      DB   'X$ ABCDEFhHx()[]{},;:-_/\*+"''',9,10,13,0
+end;
+
+class function TROStringFormat_MIME64.ToStr(Value: PAnsiChar; Len: Integer): AnsiString;
+var
+  B: Cardinal;
+  J,I: Integer;
+  S,D,L,T: PAnsiChar;
+begin
+  Result := '';
+  if Value = nil then Exit;
+  if Len < 0 then Len := Length(Value);
+  if Len = 0 then Exit;
+  SetLength(Result, Len);
+  Move(PAnsiChar(Value)^, PAnsiChar(Result)^, Len);
+  T := CharTable;
+  while Len mod 4 <> 0 do
+  begin
+    Result := Result + T[64];
+    Inc(Len);
+  end;
+  D := PAnsiChar(Result);
+  S := D;
+  L := S + Len;
+  Len := Len * 3 div 4;
+  while Len > 0 do
+  begin
+    B := 0;
+    J := 4;
+    while (J > 0) and (S <= L) do
+    begin
+      I := TableFind(S^, T, 65);
+      if I >= 0 then
+      begin
+        B := B shl 6;
+        if I >= 64 then Dec(Len) else B := B or Byte(I);
+        Dec(J);
+      end;
+      Inc(S);
+    end;
+    J := 2;
+    repeat
+      D[J] := AnsiChar(B);
+      B := B shr 8;
+      Dec(J);
+    until J < 0;
+    if Len > 3 then Inc(D, 3) else Inc(D, Len);
+    Dec(Len, 3);
+  end;
+  SetLength(Result, D - PAnsiChar(Result));
+end;
+
+class function TROStringFormat_MIME64.StrTo(Value: PAnsiChar; Len: Integer): AnsiString;
+var
+  B: Cardinal;
+  I: Integer;
+  D,T: PAnsiChar;
+begin
+  Result := '';
+  if Value = nil then Exit;
+  if Len < 0 then Len := StrLen(Value);
+  if Len = 0 then Exit;
+  SetLength(Result, Len * 4 div 3 + 4);
+  D := PAnsiChar(Result);
+  T := CharTable;
+  while Len > 0 do
+  begin
+    B := 0;
+    for I := 0 to 2 do
+    begin
+      B := B shl 8;
+      if Len > 0 then
+      begin
+        B := B or Byte(Value^);
+        Inc(Value);
+      end;
+      Dec(Len);
+    end;
+    for I := 3 downto 0 do
+    begin
+      if Len < 0 then
+      begin
+        D[I] := T[64];
+        Inc(Len);
+      end else D[I] := T[B and $3F];
+      B := B shr 6;
+    end;
+    Inc(D, 4);
+  end;
+  SetLength(Result, D - PAnsiChar(Result));
+end;
+
+class function TROStringFormat_MIME64.Name: String;
+begin
+  Result := sFMT_MIME64;
+end;
+
+class function TROStringFormat_MIME64.Format: Integer;
+begin
+  Result := fmtMIME64;
+end;
+
+class function TROStringFormat_MIME64.CharTable: PAnsiChar; assembler;
+asm
+      MOV  EAX,OFFSET @@1
+      RET  // must be >= 65 Chars
+@@1:  DB  'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/='
+      DB  ' $()[]{},;:-_\*"''',9,10,13,0
+end;
+
+class function TROStringFormat_UU.ToStr(Value: PAnsiChar; Len: Integer): AnsiString;
+var
+  T,D,L: PAnsiChar;
+  I,E: Integer;
+  B: Cardinal;
+begin
+  Result := '';
+  if Value = nil then Exit;
+  if Len < 0 then Len := StrLen(Value);
+  if Len = 0 then Exit;
+  SetLength(Result, Len);
+  L := Value + Len;
+  D := PAnsiChar(Result);
+  T := CharTable;
+  repeat
+    Len := TableFind(Value^, T, 64);
+    if (Len < 0) or (Len > 45) then
+      raise EROStringFormat.CreateFMT(sInvalidStringFormat, [Name]);
+    Inc(Value);
+    while Len > 0 do
+    begin
+      B := 0;
+      I := 4;
+      while (I > 0) and (Value <= L) do
+      begin
+        E := TableFind(Value^, T, 64);
+        if E >= 0 then
+        begin
+          B := B shl 6 or Byte(E);
+          Dec(I);
+        end;
+        Inc(Value);
+      end;
+      I := 2;
+      repeat
+        D[I] := AnsiChar(B);
+        B    := B shr 8;
+        Dec(I);
+      until I < 0;
+      if Len > 3 then Inc(D, 3) else Inc(D, Len);
+      Dec(Len, 3);
+    end;
+  until Value >= L;
+  SetLength(Result, D - PAnsiChar(Result));
+end;
+
+class function TROStringFormat_UU.StrTo(Value: PAnsiChar; Len: Integer): AnsiString;
+var
+  T,D: PAnsiChar;
+  L,I: Integer;
+  B: Cardinal;
+begin
+  Result := '';
+  if Value = nil then Exit;
+  if Len < 0 then Len := StrLen(Value);
+  if Len = 0 then Exit;
+  SetLength(Result, Len * 4 div 3 + Len div 45 + 10);
+  D := PAnsiChar(Result);
+  T := CharTable;
+  while Len > 0 do
+  begin
+    L := Len;
+    if L > 45 then L := 45;
+    Dec(Len, L);
+    D^ := T[L];
+    while L > 0 do
+    begin
+      B := 0;
+      for I := 0 to 2 do
+      begin
+        B := B shl 8;
+        if L > 0 then
+        begin
+          B := B or Byte(Value^);
+          Inc(Value);
+        end;
+        Dec(L);
+      end;
+      for I := 4 downto 1 do
+      begin
+        D[I] := T[B and $3F];
+        B := B shr 6;
+      end;
+      Inc(D, 4);
+    end;
+    Inc(D);
+  end;
+  SetLength(Result, D - PAnsiChar(Result));
+end;
+
+class function TROStringFormat_UU.Name: String;
+begin
+  Result := sFMT_UU;
+end;
+
+class function TROStringFormat_UU.Format: Integer;
+begin
+  Result := fmtUU;
+end;
+
+class function TROStringFormat_UU.IsValid(Value: PAnsiChar; Len: Integer; ToStr: Boolean): Boolean;
+var
+  T: PAnsiChar;
+  L,I,P: Integer;
+begin
+  Result := not ToStr;
+  if not Result then
+  begin
+    T := CharTable;
+    L := StrLen(T);
+    P := 0;
+    while Len > 0 do
+    begin
+      I := TableFind(Value^, T, L);
+      if I >= 0 then
+      begin
+        Dec(Len);
+        Inc(Value);
+        if P = 0 then
+        begin
+          if I > 45 then Exit;
+          P := (I * 4 + 2) div 3;
+        end else
+          if I < 64 then Dec(P);
+      end else Exit;
+    end;
+    if P <> 0 then Exit;
+  end;
+  Result := True;
+end;
+
+class function TROStringFormat_UU.CharTable: PAnsiChar;
+asm
+      MOV  EAX,OFFSET @@1
+      RET  // must be >= 64 Chars
+@@1:  DB   '`!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'
+      DB   ' ',9,10,13,0
+end;
+
+class function TROStringFormat_XX.Name: String;
+begin
+  Result := sFMT_XX;
+end;
+
+class function TROStringFormat_XX.Format: Integer;
+begin
+  Result := fmtXX;
+end;
+
+class function TROStringFormat_XX.CharTable: PAnsiChar;
+asm
+      MOV  EAX,OFFSET @@1
+      RET
+@@1:  DB   '+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
+      DB   ' "()[]''',9,10,13,0
+end;
+
+function CPUType: Integer;
+begin
+  Result := FCPUType;
+end;
+
+function IsObject(AObject: Pointer; AClass: TClass): Boolean;
+var
+  E: Pointer;
+begin
+  Result := False;
+  if AObject = nil then Exit;
+  E := ExceptionClass;
+  ExceptionClass := nil;
+  try
+    if TObject(AObject) is AClass then Result := True;
+  except
+  end;
+  ExceptionClass := E;
+end;
+
+function ROL(Value: LongWord; Shift: Integer): LongWord; assembler;
+asm
+       MOV   ECX,EDX
+       ROL   EAX,CL
+end;
+
+function ROLADD(Value, Add: LongWord; Shift: Integer): LongWord; assembler;
+asm
+       ROL   EAX,CL
+       ADD   EAX,EDX
+end;
+
+function ROLSUB(Value, Sub: LongWord; Shift: Integer): LongWord; assembler;
+asm
+       ROL   EAX,CL
+       SUB   EAX,EDX
+end;
+
+function ROR(Value: LongWord; Shift: Integer): LongWord; assembler;
+asm
+       MOV   ECX,EDX
+       ROR   EAX,CL
+end;
+
+function RORADD(Value, Add: LongWord; Shift: Integer): LongWord; assembler;
+asm
+       ROR  EAX,CL
+       ADD  EAX,EDX
+end;
+
+function RORSUB(Value, Sub: LongWord; Shift: Integer): LongWord; assembler;
+asm
+       ROR  EAX,CL
+       SUB  EAX,EDX
+end;
+{swap 4 Bytes Intel, Little/Big Endian Conversion}
+function SwapInt(Value: LongWord): LongWord; assembler; register;
+asm
+       XCHG  AH,AL
+       ROL   EAX,16
+       XCHG  AH,AL
+end;
+
+function BSwapInt(Value: LongWord): LongWord; assembler; register;
+asm
+       BSWAP  EAX
+end;
+
+procedure SwapIntBuf(Source,Dest: Pointer; Count: Integer); assembler; register;
+asm
+       TEST   ECX,ECX
+       JLE    @Exit
+       PUSH   EBX
+       SUB    EAX,4
+       SUB    EDX,4
+@@1:   MOV    EBX,[EAX + ECX * 4]
+       XCHG   BL,BH
+       ROL    EBX,16
+       XCHG   BL,BH
+       MOV    [EDX + ECX * 4],EBX
+       DEC    ECX
+       JNZ    @@1
+       POP    EBX
+@Exit:
+end;
+
+procedure BSwapIntBuf(Source, Dest: Pointer; Count: Integer); assembler; register;
+asm
+       TEST   ECX,ECX
+       JLE    @Exit
+       PUSH   EBX
+       SUB    EAX,4
+       SUB    EDX,4
+@@1:   MOV    EBX,[EAX + ECX * 4]
+       BSWAP  EBX
+       MOV    [EDX + ECX * 4],EBX
+       DEC    ECX
+       JNZ    @@1
+       POP    EBX
+@Exit:
+end;
+{reverse the bit order from a integer}
+function SwapBits(Value: LongWord): LongWord;
+asm
+       CMP    FCPUType,3
+       JLE    @@1
+       BSWAP  EAX
+       JMP    @@2
+@@1:   XCHG   AH,AL
+       ROL    EAX,16
+       XCHG   AH,AL
+@@2:   MOV    EDX,EAX
+       AND    EAX,0AAAAAAAAh
+       SHR    EAX,1
+       AND    EDX,055555555h
+       SHL    EDX,1
+       OR     EAX,EDX
+       MOV    EDX,EAX
+       AND    EAX,0CCCCCCCCh
+       SHR    EAX,2
+       AND    EDX,033333333h
+       SHL    EDX,2
+       OR     EAX,EDX
+       MOV    EDX,EAX
+       AND    EAX,0F0F0F0F0h
+       SHR    EAX,4
+       AND    EDX,00F0F0F0Fh
+       SHL    EDX,4
+       OR     EAX,EDX
+end;
+
+function LSBit(Value: Integer): Integer; assembler;
+asm
+       BSF   EAX,EAX
+end;
+
+function MSBit(Value: Integer): Integer; assembler;
+asm
+       BSR   EAX,EAX
+end;
+
+function OneBit(Value: Integer): Integer; assembler;
+asm
+       MOV   ECX,EAX
+       MOV   EDX,EAX
+       BSF   EDX,EDX
+       JZ    @@1
+       BSR   ECX,ECX
+       CMP   ECX,EDX
+       JNE   @@1
+       MOV   EAX,EDX
+       RET
+@@1:   XOR   EAX,EAX
+end;
+
+function MemCompare(P1, P2: Pointer; Size: Integer): Integer; assembler; register;
+asm
+       PUSH    ESI
+       PUSH    EDI
+       MOV     ESI,P1
+       MOV     EDI,P2
+       XOR     EAX,EAX
+       REPE    CMPSB
+       JE      @@1
+       MOVZX   EAX,BYTE PTR [ESI-1]
+       MOVZX   EDX,BYTE PTR [EDI-1]
+       SUB     EAX,EDX
+@@1:   POP     EDI
+       POP     ESI
+end;
+
+procedure XORBuffers(I1, I2: Pointer; Size: Integer; Dest: Pointer); assembler;
+asm
+       AND   ECX,ECX
+       JZ    @@5
+       PUSH  ESI
+       PUSH  EDI
+       MOV   ESI,EAX
+       MOV   EDI,Dest
+@@1:   TEST  ECX,3
+       JNZ   @@3
+@@2:   SUB   ECX,4
+       JL    @@4
+       MOV   EAX,[ESI + ECX]
+       XOR   EAX,[EDX + ECX]
+       MOV   [EDI + ECX],EAX
+       JMP   @@2
+@@3:   DEC   ECX
+       MOV   AL,[ESI + ECX]
+       XOR   AL,[EDX + ECX]
+       MOV   [EDI + ECX],AL
+       JMP   @@1
+@@4:   POP   EDI
+       POP   ESI
+@@5:
+end;
+
+procedure DoProgress(Sender: TObject; Current, Maximal: Integer);
+begin
+{saver access}
+  if (TMethod(Progress).Code <> nil) and
+     ((TMethod(Progress).Data = nil) or
+       IsObject(TMethod(Progress).Data, TObject)) then
+    Progress(Sender, Current, Maximal);
+end;
+
+function StringFormat(Format: Integer): TROStringFormatClass;
+var
+  I: Integer;
+begin
+  if Format = fmtDefault then Format := DefaultStringFormat;
+  Result := nil;
+  if FStrFmts <> nil then
+    for I := 0 to FStrFMTs.Count-1 do
+      if TROStringFormatClass(FStrFmts[I]).Format = Format then
+      begin
+        Result := FStrFMTS[I];
+        Exit;
+      end;
+end;
+
+function StrToFormat(Value: PAnsiChar; Len, Format: Integer): AnsiString;
+var
+  Fmt: TROStringFormatClass;
+begin
+  Result := '';
+  if (Value = nil) or (Format = fmtNONE) then Exit;
+  if Len <  0 then Len := StrLen(Value);
+  if Len <= 0 then Exit;
+  Fmt := StringFormat(Format);
+  if Fmt <> nil then
+    if Fmt.IsValid(Value, Len, False) then Result := Fmt.StrTo(Value, Len)
+      else raise EROStringFormat.CreateFMT(sInvalidFormatString, [FMT.Name])
+    else raise EROStringFormat.CreateFMT(sStringFormatExists, [Format]);
+end;
+
+function FormatToStr(Value: PAnsiChar; Len, Format: Integer): AnsiString;
+var
+  Fmt: TROStringFormatClass;
+begin
+  Result := '';
+  if (Value = nil) or (Format = fmtNONE) then Exit;
+  if Len < 0 then Len := StrLen(Value);
+  if Len = 0 then Exit;
+  Fmt := StringFormat(Format);
+  if Fmt <> nil then
+    if Fmt.IsValid(Value, Len, True) then Result := Fmt.ToStr(Value, Len)
+      else raise EROStringFormat.CreateFMT(sInvalidStringFormat, [FMT.Name])
+    else raise EROStringFormat.CreateFMT(sStringFormatExists, [Format]);
+end;
+
+function ConvertFormat(Value: PAnsiChar; Len, FromFormat, ToFormat: Integer): AnsiString;
+begin
+  Result := '';
+  if (FromFormat = fmtNONE) or (ToFormat = fmtNONE) then Exit;
+  if FromFormat <> ToFormat then
+  begin
+    Result := FormatToStr(Value, Len, FromFormat);
+    Result := StrToFormat(PAnsiChar(Result), Length(Result), ToFormat);
+  end else
+  begin
+    if Value = nil then Exit;
+    if Len < 0 then Len := StrLen(Value);
+    if Len = 0 then Exit;
+    SetLength(Result, Len);
+    Move(Value^, PAnsiChar(Result)^, Len);
+  end;
+end;
+
+function IsValidFormat(Value: PAnsiChar; Len, Format: Integer): Boolean;
+var
+  Fmt: TROStringFormatClass;
+begin
+  Result := True;
+  if Value = nil then Exit;
+  if Len < 0 then Len := StrLen(Value);
+  if Len = 0 then Exit;
+  Fmt := StringFormat(Format);
+  if Fmt = nil then Result := False
+    else Result := Fmt.IsValid(Value, Len, True);
+end;
+
+function IsValidString(Value: PAnsiChar; Len, Format: Integer): Boolean;
+var
+  Fmt: TROStringFormatClass;
+begin
+  Result := True;
+  if Value = nil then Exit;
+  if Len < 0 then Len := StrLen(Value);
+  if Len = 0 then Exit;
+  Fmt := StringFormat(Format);
+  if Fmt = nil then Result := False
+    else Result := Fmt.IsValid(Value, Len, False);
+end;
+
+procedure RegisterStringFormats(const StringFormats: array of TROStringFormatClass);
+var
+  I,J: Integer;
+  FMT: TROStringFormatClass;
+begin
+  if FStrFMTs = nil then FStrFMTs := TList.Create;
+  for I := Low(StringFormats) to High(StringFormats) do
+    if (StringFormats[I] <> nil) and
+       (StringFormats[I].Format <> fmtDEFAULT) then
+    begin
+      FMT := StringFormat(StringFormats[I].Format);
+      if FMT <> nil then
+      begin
+        J := FStrFMTs.IndexOf(FMT);
+        FStrFMTs[J] := StringFormats[I];
+      end else FStrFMTs.Add(StringFormats[I]);
+    end;
+end;
+
+procedure GetStringFormats(Strings: TStrings);
+var
+  I: Integer;
+begin
+  if IsObject(Strings, TStrings) and (FStrFMTs <> nil) then
+    for I := 0 to FStrFMTs.Count-1 do
+      Strings.AddObject(TROStringFormatClass(FStrFMTs[I]).Name, FStrFMTs[I]);
+end;
+
+function InsertCR(const Value: AnsiString; BlockSize: Integer): AnsiString;
+var
+  I: Integer;
+  S,D: PAnsiChar;
+begin
+  if (BlockSize <= 0) or (Length(Value) <= BlockSize) then
+  begin
+    Result := Value;
+    Exit;
+  end;
+  I := Length(Value);
+  SetLength(Result, I + I * 2 div BlockSize + 2);
+  S := PAnsiChar(Value);
+  D := PAnsiChar(Result);
+  repeat
+    Move(S^, D^, BlockSize);
+    Inc(S, BlockSize);
+    Inc(D, BlockSize);
+    D^ := #13; Inc(D);
+    D^ := #10; Inc(D);
+    Dec(I, BlockSize);
+  until I < BlockSize;
+  Move(S^, D^, I);
+  Inc(D, I);
+  SetLength(Result, D - PAnsiChar(Result));
+end;
+
+function DeleteCR(const Value: AnsiString): AnsiString;
+var
+  S,D: PAnsiChar;
+  I: Integer;
+begin
+  I := Length(Value);
+  SetLength(Result, I);
+  D := PAnsiChar(Result);
+  S := PAnsiChar(Value);
+  while I > 0 do
+  begin
+    if (S^ <> AnsiChar(#10)) and (S^ <> AnsiChar(#13)) then
+    begin
+      D^ := S^;
+      Inc(D);
+    end;
+    Inc(S);
+    Dec(I);
+  end;
+  SetLength(Result, D - PAnsiChar(Result));
+end;
+
+function InsertBlocks(const Value, BlockStart, BlockEnd: String; BlockSize: Integer): String;
+var
+  I,LS,LE: Integer;
+  D,S: PChar;
+begin
+  if (BlockSize <= 0) or (Length(Value) <= BlockSize) then
+  begin
+    Result := Value;
+    Exit;
+  end;
+  I := Length(Value);
+  LS := Length(BlockStart);
+  LE := Length(BlockEnd);
+  SetLength(Result, I + (I div BlockSize + 1) * (LS + LE));
+  S := PChar(Value);
+  D := PChar(Result);
+  repeat
+    Move(PChar(BlockStart)^, D^, LS); Inc(D, LS);
+    Move(S^, D^, BlockSize);          Inc(D, BlockSize);
+    Move(PChar(BlockEnd)^, D^, LE);   Inc(D, LE);
+    Dec(I, BlockSize);
+    Inc(S, BlockSize);
+  until I < BlockSize;
+  if I > 0 then
+  begin
+    Move(PChar(BlockStart)^, D^, LS); Inc(D, LS);
+    Move(S^, D^, I);                  Inc(D, I);
+    Move(PChar(BlockEnd)^, D^, LE);   Inc(D, LE);
+  end;
+  SetLength(Result, D - PChar(Result));
+end;
+
+function RemoveBlocks(const Value, BlockStart, BlockEnd: String): String;
+var
+  LS,LE: Integer;
+  S,D,L,K: PChar;
+begin
+  SetLength(Result, Length(Value));
+  LS := Length(BlockStart);
+  LE := Length(BlockEnd);
+  D := PChar(Result);
+  S := PChar(Value);
+  L := S + Length(Value);
+
+  repeat
+    if S > L then Break;
+    if LS > 0 then
+    begin
+      S := StrPos(S, PChar(BlockStart));
+      if S = nil then Break;
+      Inc(S, LS);
+      if S > L then Break;
+    end;
+    K := StrPos(S, PChar(BlockEnd));
+    if K = nil then K := L;
+    Move(S^, D^, K - S);
+    Inc(D, K - S);
+    S := K + LE;
+  until S >= L;
+  SetLength(Result, D - PChar(Result));
+end;
+
+function GetShortClassName(Value: TClass): String;
+var
+  I: Integer;
+begin
+  Result := '';
+  if Value = nil then Exit;
+  Result := Value.ClassName;
+  I := Pos('_', Result);
+  if I > 0 then Delete(Result, 1, I);
+end;
+
+function RndXORBuffer(Seed: Integer; var Buffer; Size: Integer): Integer; assembler;
+asm
+      AND     EDX,EDX
+      JZ      @@2
+      AND     ECX,ECX
+      JLE     @@2
+      PUSH    EBX
+@@1:  XOR     AL,[EDX]
+      IMUL    EAX,EAX,134775813
+      INC     EAX
+      MOV     EBX,EAX
+      SHR     EBX,24
+      MOV     [EDX],BL
+      INC     EDX
+      DEC     ECX
+      JNZ     @@1
+      POP     EBX
+@@2:
+end;
+
+// use Systemtime and XOR's with Performancecounter
+function RndTimeSeed: Integer; assembler;
+var
+  SysTime: record
+             Year: Word;
+             Month: Word;
+             DayOfWeek: Word;
+             Day: Word;
+             Hour: Word;
+             Minute: Word;
+             Second: Word;
+             MilliSeconds: Word;
+             Reserved: array [0..7] of Byte;
+           end;
+  Counter: record
+             Lo,Hi: Integer;
+           end;
+asm
+      LEA     EAX,SysTime
+      PUSH    EAX
+      CALL    GetSystemTime
+      MOVZX   EAX,Word Ptr SysTime.Hour
+      IMUL    EAX,60
+      ADD     AX,SysTime.Minute
+      IMUL    EAX,60
+      MOVZX   EDX,Word Ptr SysTime.Second
+      ADD     EAX,EDX
+      IMUL    EAX,1000
+      MOV     DX,SysTime.MilliSeconds
+      ADD     EAX,EDX
+      PUSH    EAX
+      LEA     EAX,Counter
+      PUSH    EAX
+      CALL    QueryPerformanceCounter
+      POP     EAX
+      XOR     EAX,Counter.Lo
+      XOR     EAX,Counter.Hi
+end;
+
+function CRC16(CRC: Word; Data: Pointer; DataSize: LongWord): Word; assembler;
+asm
+         AND    EDX,EDX
+         JZ     @Exit
+         AND    ECX,ECX
+         JLE    @Exit
+         PUSH   EBX
+         PUSH   EDI
+         XOR    EBX,EBX
+         LEA    EDI,CS:[OFFSET @CRC16]
+@Start:  MOV    BL,[EDX]
+         XOR    BL,AL
+         SHR    AX,8
+         XOR    AX,[EDI + EBX * 2]
+         INC    EDX
+         DEC    ECX
+         JNZ    @Start
+         POP    EDI
+         POP    EBX
+@Exit:   RET
+         NOP
+@CRC16:  DW     00000h, 0C0C1h, 0C181h, 00140h, 0C301h, 003C0h, 00280h, 0C241h
+         DW     0C601h, 006C0h, 00780h, 0C741h, 00500h, 0C5C1h, 0C481h, 00440h
+         DW     0CC01h, 00CC0h, 00D80h, 0CD41h, 00F00h, 0CFC1h, 0CE81h, 00E40h
+         DW     00A00h, 0CAC1h, 0CB81h, 00B40h, 0C901h, 009C0h, 00880h, 0C841h
+         DW     0D801h, 018C0h, 01980h, 0D941h, 01B00h, 0DBC1h, 0DA81h, 01A40h
+         DW     01E00h, 0DEC1h, 0DF81h, 01F40h, 0DD01h, 01DC0h, 01C80h, 0DC41h
+         DW     01400h, 0D4C1h, 0D581h, 01540h, 0D701h, 017C0h, 01680h, 0D641h
+         DW     0D201h, 012C0h, 01380h, 0D341h, 01100h, 0D1C1h, 0D081h, 01040h
+         DW     0F001h, 030C0h, 03180h, 0F141h, 03300h, 0F3C1h, 0F281h, 03240h
+         DW     03600h, 0F6C1h, 0F781h, 03740h, 0F501h, 035C0h, 03480h, 0F441h
+         DW     03C00h, 0FCC1h, 0FD81h, 03D40h, 0FF01h, 03FC0h, 03E80h, 0FE41h
+         DW     0FA01h, 03AC0h, 03B80h, 0FB41h, 03900h, 0F9C1h, 0F881h, 03840h
+         DW     02800h, 0E8C1h, 0E981h, 02940h, 0EB01h, 02BC0h, 02A80h, 0EA41h
+         DW     0EE01h, 02EC0h, 02F80h, 0EF41h, 02D00h, 0EDC1h, 0EC81h, 02C40h
+         DW     0E401h, 024C0h, 02580h, 0E541h, 02700h, 0E7C1h, 0E681h, 02640h
+         DW     02200h, 0E2C1h, 0E381h, 02340h, 0E101h, 021C0h, 02080h, 0E041h
+         DW     0A001h, 060C0h, 06180h, 0A141h, 06300h, 0A3C1h, 0A281h, 06240h
+         DW     06600h, 0A6C1h, 0A781h, 06740h, 0A501h, 065C0h, 06480h, 0A441h
+         DW     06C00h, 0ACC1h, 0AD81h, 06D40h, 0AF01h, 06FC0h, 06E80h, 0AE41h
+         DW     0AA01h, 06AC0h, 06B80h, 0AB41h, 06900h, 0A9C1h, 0A881h, 06840h
+         DW     07800h, 0B8C1h, 0B981h, 07940h, 0BB01h, 07BC0h, 07A80h, 0BA41h
+         DW     0BE01h, 07EC0h, 07F80h, 0BF41h, 07D00h, 0BDC1h, 0BC81h, 07C40h
+         DW     0B401h, 074C0h, 07580h, 0B541h, 07700h, 0B7C1h, 0B681h, 07640h
+         DW     07200h, 0B2C1h, 0B381h, 07340h, 0B101h, 071C0h, 07080h, 0B041h
+         DW     05000h, 090C1h, 09181h, 05140h, 09301h, 053C0h, 05280h, 09241h
+         DW     09601h, 056C0h, 05780h, 09741h, 05500h, 095C1h, 09481h, 05440h
+         DW     09C01h, 05CC0h, 05D80h, 09D41h, 05F00h, 09FC1h, 09E81h, 05E40h
+         DW     05A00h, 09AC1h, 09B81h, 05B40h, 09901h, 059C0h, 05880h, 09841h
+         DW     08801h, 048C0h, 04980h, 08941h, 04B00h, 08BC1h, 08A81h, 04A40h
+         DW     04E00h, 08EC1h, 08F81h, 04F40h, 08D01h, 04DC0h, 04C80h, 08C41h
+         DW     04400h, 084C1h, 08581h, 04540h, 08701h, 047C0h, 04680h, 08641h
+         DW     08201h, 042C0h, 04380h, 08341h, 04100h, 081C1h, 08081h, 04040h
+end;
+
+function CRC32(CRC: LongWord; Data: Pointer; DataSize: LongWord): LongWord; assembler;
+asm
+         AND    EDX,EDX
+         JZ     @Exit
+         AND    ECX,ECX
+         JLE    @Exit
+         PUSH   EBX
+         PUSH   EDI
+         XOR    EBX,EBX
+         LEA    EDI,CS:[OFFSET @CRC32]
+@Start:  MOV    BL,AL
+         SHR    EAX,8
+         XOR    BL,[EDX]
+         XOR    EAX,[EDI + EBX * 4]
+         INC    EDX
+         DEC    ECX
+         JNZ    @Start
+         POP    EDI
+         POP    EBX
+@Exit:   RET
+         DB 0, 0, 0, 0, 0 // Align Table
+@CRC32:  DD 000000000h, 077073096h, 0EE0E612Ch, 0990951BAh
+         DD 0076DC419h, 0706AF48Fh, 0E963A535h, 09E6495A3h
+         DD 00EDB8832h, 079DCB8A4h, 0E0D5E91Eh, 097D2D988h
+         DD 009B64C2Bh, 07EB17CBDh, 0E7B82D07h, 090BF1D91h
+         DD 01DB71064h, 06AB020F2h, 0F3B97148h, 084BE41DEh
+         DD 01ADAD47Dh, 06DDDE4EBh, 0F4D4B551h, 083D385C7h
+         DD 0136C9856h, 0646BA8C0h, 0FD62F97Ah, 08A65C9ECh
+         DD 014015C4Fh, 063066CD9h, 0FA0F3D63h, 08D080DF5h
+         DD 03B6E20C8h, 04C69105Eh, 0D56041E4h, 0A2677172h
+         DD 03C03E4D1h, 04B04D447h, 0D20D85FDh, 0A50AB56Bh
+         DD 035B5A8FAh, 042B2986Ch, 0DBBBC9D6h, 0ACBCF940h
+         DD 032D86CE3h, 045DF5C75h, 0DCD60DCFh, 0ABD13D59h
+         DD 026D930ACh, 051DE003Ah, 0C8D75180h, 0BFD06116h
+         DD 021B4F4B5h, 056B3C423h, 0CFBA9599h, 0B8BDA50Fh
+         DD 02802B89Eh, 05F058808h, 0C60CD9B2h, 0B10BE924h
+         DD 02F6F7C87h, 058684C11h, 0C1611DABh, 0B6662D3Dh
+         DD 076DC4190h, 001DB7106h, 098D220BCh, 0EFD5102Ah
+         DD 071B18589h, 006B6B51Fh, 09FBFE4A5h, 0E8B8D433h
+         DD 07807C9A2h, 00F00F934h, 09609A88Eh, 0E10E9818h
+         DD 07F6A0DBBh, 0086D3D2Dh, 091646C97h, 0E6635C01h
+         DD 06B6B51F4h, 01C6C6162h, 0856530D8h, 0F262004Eh
+         DD 06C0695EDh, 01B01A57Bh, 08208F4C1h, 0F50FC457h
+         DD 065B0D9C6h, 012B7E950h, 08BBEB8EAh, 0FCB9887Ch
+         DD 062DD1DDFh, 015DA2D49h, 08CD37CF3h, 0FBD44C65h
+         DD 04DB26158h, 03AB551CEh, 0A3BC0074h, 0D4BB30E2h
+         DD 04ADFA541h, 03DD895D7h, 0A4D1C46Dh, 0D3D6F4FBh
+         DD 04369E96Ah, 0346ED9FCh, 0AD678846h, 0DA60B8D0h
+         DD 044042D73h, 033031DE5h, 0AA0A4C5Fh, 0DD0D7CC9h
+         DD 05005713Ch, 0270241AAh, 0BE0B1010h, 0C90C2086h
+         DD 05768B525h, 0206F85B3h, 0B966D409h, 0CE61E49Fh
+         DD 05EDEF90Eh, 029D9C998h, 0B0D09822h, 0C7D7A8B4h
+         DD 059B33D17h, 02EB40D81h, 0B7BD5C3Bh, 0C0BA6CADh
+         DD 0EDB88320h, 09ABFB3B6h, 003B6E20Ch, 074B1D29Ah
+         DD 0EAD54739h, 09DD277AFh, 004DB2615h, 073DC1683h
+         DD 0E3630B12h, 094643B84h, 00D6D6A3Eh, 07A6A5AA8h
+         DD 0E40ECF0Bh, 09309FF9Dh, 00A00AE27h, 07D079EB1h
+         DD 0F00F9344h, 08708A3D2h, 01E01F268h, 06906C2FEh
+         DD 0F762575Dh, 0806567CBh, 0196C3671h, 06E6B06E7h
+         DD 0FED41B76h, 089D32BE0h, 010DA7A5Ah, 067DD4ACCh
+         DD 0F9B9DF6Fh, 08EBEEFF9h, 017B7BE43h, 060B08ED5h
+         DD 0D6D6A3E8h, 0A1D1937Eh, 038D8C2C4h, 04FDFF252h
+         DD 0D1BB67F1h, 0A6BC5767h, 03FB506DDh, 048B2364Bh
+         DD 0D80D2BDAh, 0AF0A1B4Ch, 036034AF6h, 041047A60h
+         DD 0DF60EFC3h, 0A867DF55h, 0316E8EEFh, 04669BE79h
+         DD 0CB61B38Ch, 0BC66831Ah, 0256FD2A0h, 05268E236h
+         DD 0CC0C7795h, 0BB0B4703h, 0220216B9h, 05505262Fh
+         DD 0C5BA3BBEh, 0B2BD0B28h, 02BB45A92h, 05CB36A04h
+         DD 0C2D7FFA7h, 0B5D0CF31h, 02CD99E8Bh, 05BDEAE1Dh
+         DD 09B64C2B0h, 0EC63F226h, 0756AA39Ch, 0026D930Ah
+         DD 09C0906A9h, 0EB0E363Fh, 072076785h, 005005713h
+         DD 095BF4A82h, 0E2B87A14h, 07BB12BAEh, 00CB61B38h
+         DD 092D28E9Bh, 0E5D5BE0Dh, 07CDCEFB7h, 00BDBDF21h
+         DD 086D3D2D4h, 0F1D4E242h, 068DDB3F8h, 01FDA836Eh
+         DD 081BE16CDh, 0F6B9265Bh, 06FB077E1h, 018B74777h
+         DD 088085AE6h, 0FF0F6A70h, 066063BCAh, 011010B5Ch
+         DD 08F659EFFh, 0F862AE69h, 0616BFFD3h, 0166CCF45h
+         DD 0A00AE278h, 0D70DD2EEh, 04E048354h, 03903B3C2h
+         DD 0A7672661h, 0D06016F7h, 04969474Dh, 03E6E77DBh
+         DD 0AED16A4Ah, 0D9D65ADCh, 040DF0B66h, 037D83BF0h
+         DD 0A9BCAE53h, 0DEBB9EC5h, 047B2CF7Fh, 030B5FFE9h
+         DD 0BDBDF21Ch, 0CABAC28Ah, 053B39330h, 024B4A3A6h
+         DD 0BAD03605h, 0CDD70693h, 054DE5729h, 023D967BFh
+         DD 0B3667A2Eh, 0C4614AB8h, 05D681B02h, 02A6F2B94h
+         DD 0B40BBE37h, 0C30C8EA1h, 05A05DF1Bh, 02D02EF8Dh
+         DD 074726F50h, 0736E6F69h, 0706F4320h, 067697279h
+         DD 028207468h, 031202963h, 020393939h, 048207962h
+         DD 06E656761h, 064655220h, 06E616D64h, 06FBBA36Eh
+end;
+
+{a Random generated Testvector 256bit - 32 Bytes, it's used for Self Test}
+function GetTestVector: PAnsiChar; assembler; register;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    030h,044h,0EDh,06Eh,045h,0A4h,096h,0F5h
+         DB    0F6h,035h,0A2h,0EBh,03Dh,01Ah,05Dh,0D6h
+         DB    0CBh,01Dh,009h,082h,02Dh,0BDh,0F5h,060h
+         DB    0C2h,0B8h,058h,0A1h,091h,0F9h,081h,0B1h
+         DB    000h,000h,000h,000h,000h,000h,000h,000h
+end;
+
+{get the CPU Type from your system}
+function GetCPUType: Integer; assembler;
+asm
+         PUSH   EBX
+         PUSH   ECX
+         PUSH   EDX
+         MOV    EBX,ESP
+         AND    ESP,0FFFFFFFCh
+         PUSHFD
+         PUSHFD
+         POP    EAX
+         MOV    ECX,EAX
+         XOR    EAX,40000h
+         PUSH   EAX
+         POPFD
+         PUSHFD
+         POP    EAX
+         XOR    EAX,ECX
+         MOV    EAX,3
+         JE     @Exit
+         PUSHFD
+         POP    EAX
+         MOV    ECX,EAX
+         XOR    EAX,200000h
+         PUSH   EAX
+         POPFD
+         PUSHFD
+         POP    EAX
+         XOR    EAX,ECX
+         MOV    EAX,4
+         JE     @Exit
+         PUSH   EBX
+         MOV    EAX,1
+         DB     0Fh,0A2h      //CPUID
+         MOV    AL,AH
+         AND    EAX,0Fh
+         POP    EBX
+@Exit:   POPFD
+         MOV    ESP,EBX
+         POP    EDX
+         POP    ECX
+         POP    EBX
+end;
+
+procedure ModuleUnload(Instance: Longword);
+var // automaticaly deregistration
+  I: Integer;
+begin
+  if FStrFMTs <> nil then
+    for I := FStrFMTs.Count-1 downto 0 do
+      if FindClassHInstance(TClass(FStrFMTs[I])) = Instance then
+        FStrFMTs.Delete(I);
+end;
+
+initialization
+  AddModuleUnloadProc(ModuleUnload);
+  FCPUType := GetCPUType;
+  if FCPUType > 3 then
+  begin
+    SwapInteger := BSwapInt;
+    SwapIntegerBuffer := BSwapIntBuf;
+  end else
+  begin
+    SwapInteger := SwapInt;
+    SwapIntegerBuffer := SwapIntBuf;
+  end;
+  RegisterStringFormats([TROStringFormat, TROStringFormat_HEX, TROStringFormat_HEXL,
+      TROStringFormat_MIME64, TROStringFormat_UU, TROStringFormat_XX]);
+{this calculate a Checksum (CRC32) over the function CRC32 and the TestVector,
+ if InitTestIsOk = False any modification from Testvector or CRC32() detected, :-) }
+  InitTestIsOk  := CRC32(CRC32($29524828, PChar(@CRC32) + 41, 1076), GetTestVector, 32) = $848B5964;
+finalization
+  RemoveModuleUnloadProc(ModuleUnload);
+  FStrFMTs.Free;
+  FStrFMTs := nil;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROEncKeyPropEditor.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROEncKeyPropEditor.dfm
new file mode 100644
index 0000000..0fad347
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROEncKeyPropEditor.dfm	
@@ -0,0 +1,206 @@
+object CryptoKeyGenForm: TCryptoKeyGenForm
+  Left = 325
+  Top = 258
+  BorderStyle = bsDialog
+  Caption = 'Generate Encryption Key'
+  ClientHeight = 115
+  ClientWidth = 500
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object LHAlgorithm: TLabel
+    Left = 4
+    Top = 8
+    Width = 43
+    Height = 13
+    Caption = 'Algorithm'
+  end
+  object LCKey: TLabel
+    Left = 4
+    Top = 40
+    Width = 71
+    Height = 13
+    Caption = 'Encryption Key'
+  end
+  object LHashKey: TLabel
+    Left = 4
+    Top = 64
+    Width = 70
+    Height = 13
+    Caption = 'Converted Key'
+  end
+  object LHashInfo: TLabel
+    Left = 248
+    Top = 6
+    Width = 248
+    Height = 16
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+  end
+  object eHashKey: TEdit
+    Left = 84
+    Top = 60
+    Width = 412
+    Height = 21
+    TabOrder = 0
+    Text = 'eHashKey'
+  end
+  object BitBtn1: TBitBtn
+    Left = 344
+    Top = 86
+    Width = 76
+    Height = 25
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 1
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF0066001EB2311FB133006600FF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6565659A9A9A9A9A9A65
+      6565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00660031C24F22B7381AB02D21B437006600FF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565ABABAB9E9E9E9797979C
+      9C9C656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      00660047D36D3BCB5E25A83B0066001BA92E1DB132006600FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF656565BFBFBFB5B5B598989865656594
+      9494999999656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600
+      4FD67953DE7F31B54D006600FF00FF006600179D271EAE31006600FF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FF656565C4C4C4CACACAA5A5A5656565FF00FF65
+      65658C8C8C989898656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      00660041C563006600FF00FFFF00FFFF00FFFF00FF00660019AA2B006600FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF656565B5B5B5656565FF00FFFF00FFFF
+      00FFFF00FF656565939393656565FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF006600149D210066
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565FF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FF6565658A8A8A656565FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0066
+      00006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FF006600006600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FF656565656565FF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object BitBtn2: TBitBtn
+    Left = 420
+    Top = 86
+    Width = 75
+    Height = 25
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 2
+    Glyph.Data = {
+      36060000424D3606000000000000360000002800000020000000100000000100
+      18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+      FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+      00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+      00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+      F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+      00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+      6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+      A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+      A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+      ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+      ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+      6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+      F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+      00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+      00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+      FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+      00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+      FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+      9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    NumGlyphs = 2
+  end
+  object CBHash: TComboBox
+    Left = 84
+    Top = 4
+    Width = 161
+    Height = 21
+    Style = csDropDownList
+    DropDownCount = 24
+    ItemHeight = 13
+    TabOrder = 3
+    OnClick = CBHashClick
+  end
+  object EKey: TEdit
+    Left = 84
+    Top = 35
+    Width = 412
+    Height = 21
+    TabOrder = 4
+    Text = 'All work and no play makes Jack a dull boy.'
+    OnChange = EKeyChange
+  end
+  object HashManager: TROHashManager
+    Left = 300
+    Top = 20
+    Hash = 'TROHash_RipeMD256'
+  end
+end
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROEncKeyPropEditor.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROEncKeyPropEditor.pas
new file mode 100644
index 0000000..d3e609b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROEncKeyPropEditor.pas	
@@ -0,0 +1,148 @@
+unit uROEncKeyPropEditor;
+
+{$I ..\RemObjects.inc}
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  {$IFDEF DELPHI5} DsgnIntf, {$ELSE}  DesignIntf, DesignEditors, {$ENDIF}
+  StdCtrls, Buttons, uROHCMngr;
+
+{.$DEFINE TestComp}
+
+type
+  TROCryptoKeyProperty = class(TStringProperty)
+    function GetAttributes: TPropertyAttributes; override;
+    procedure Edit; override;
+  end;
+
+  {$IFDEF TestComp}
+  TBrazilCryptoTest = class(TComponent)
+  private
+    fkey: TBrazilCryptoKey;
+    procedure SetKey(const Value: TBrazilCryptoKey);
+  published
+    property Key: TBrazilCryptoKey read fkey write SetKey;
+  end;
+  {$ENDIF}
+
+  TCryptoKeyGenForm = class(TForm)
+    eHashKey: TEdit;
+    BitBtn1: TBitBtn;
+    BitBtn2: TBitBtn;
+    LHAlgorithm: TLabel;
+    CBHash: TComboBox;
+    LCKey: TLabel;
+    EKey: TEdit;
+    LHashKey: TLabel;
+    HashManager: TROHashManager;
+    LHashInfo: TLabel;
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure EKeyChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure CBHashClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  CryptoKeyGenForm  : TCryptoKeyGenForm;
+
+procedure Register;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uROEncryption, uroHash, urodecutil;
+
+procedure Register;
+begin
+  RegisterPropertyEditor(TypeInfo(TROCryptoKey), nil, '',
+    TROCryptoKeyProperty);
+
+  {$IFDEF TestComp}
+  RegisterComponents('Brazil', [TBrazilCryptoTest]);
+  {$ENDIF}
+end;
+
+{ TROCryptoKeyProperty }
+
+procedure TROCryptoKeyProperty.Edit;
+begin
+  inherited;
+
+  with TCryptoKeyGenForm.Create(nil) do
+  try
+    // Initialize form...
+    ehashkey.Text := GetStrValue;
+    // Show form...
+    if ShowModal = mrOK then            // Transfer form properties back
+    begin
+      SetStrValue(ehashkey.Text);
+    end;                                // if
+  finally                               // wrap up
+    Free;
+  end;                                  // try/finally
+end;
+
+function TROCryptoKeyProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paDialog];
+end;
+
+procedure TCryptoKeyGenForm.FormCloseQuery(Sender: TObject;
+  var CanClose: Boolean);
+var
+  S                 : Ansistring;
+  s1: AnsiString;
+begin
+  try
+    s1:={$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(ehashkey.Text);
+    S := formattostr(PAnsiChar(s1), Length(s1), fmtHex);
+  except
+    on e: Exception do
+    begin
+      ShowMessage('Invalid key!');
+      CanClose := False;
+    end;
+  end;                                  // try/except
+end;
+
+{$IFDEF TestComp}
+{ TBrazilCryptoTest }
+
+procedure TBrazilCryptoTest.SetKey(const Value: TBrazilCryptoKey);
+begin
+  fkey := Value;
+end;
+{$ENDIF}
+
+procedure TCryptoKeyGenForm.EKeyChange(Sender: TObject);
+begin
+  EHashKey.Text := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF} (HashManager.HashClass.CalcString({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(EKey.Text), nil, fmtHEX));
+end;
+
+procedure TCryptoKeyGenForm.FormCreate(Sender: TObject);
+begin
+  HashNames(CBHash.Items);
+end;
+
+procedure TCryptoKeyGenForm.CBHashClick(Sender: TObject);
+begin
+  CBHash.ItemIndex := CBHash.ItemIndex;
+
+{1. Variant to select the Hash}
+  HashManager.Algorithm := CBHash.Text;
+  LHashInfo.Caption := HashManager.Description (*+ ', ' +
+                       HashManager.HashClass.ClassName*);
+
+  EKeyChange(nil);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHCMngr.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHCMngr.pas
new file mode 100644
index 0000000..428b28d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHCMngr.pas	
@@ -0,0 +1,428 @@
+{Copyright:      Hagen Reddmann  mailto:HaReddmann@AOL.COM
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        3.0,  Part I from Delphi Encryption Compendium
+                 Delphi 2-4, designed and testet under D3
+ Description:    included the Designtime Components
+                 TROHashManager for the TROHash-Administration
+                 TROCipherManager for the TROCipher-Administration
+                 for Programmers with "Drop and Design any Component Fealing"
+                 the normaly way is without any Manager's
+
+ Version 3.0
+     Versionsmanagement, no chnages on TManager Classes
+
+ Version 2.2
+                 added Progress Event to fill a gauge
+
+      bug fixes: TROHashManager memory leak, .Destroy frees now FDigest
+
+ Version 2.1
+                 TROCipherManager: Methods added
+                   EncodeBuffer(), DecodeBuffer()
+                   EncodeString(), DecodeString()
+
+}
+unit uROHCMngr;
+
+interface
+
+{$I uROVer.inc}
+
+uses Classes, uRODECUtil, uROHash, uROCipher;
+
+type
+  TProgressEvent = procedure(Sender: TObject; Current, Maximal: Integer) of Object;
+
+  TROHashManager = class(TComponent)
+  private
+    FHashClass: TROHashClass;
+    FHash: TROHash;
+    FDigest: AnsiString;
+    FOnProgress: TProgressEvent;
+    function GetInfo(Index: Integer): String;
+    procedure SetInfo(Index: Integer; Value: String);
+    function GetClass: TROHashClass;
+    procedure SetClass(Value: TROHashClass);
+    function GetHash: TROHash;
+    function GetAlgorithm: String;
+    procedure SetAlgorithm(Value: String);
+    function GetDigestStr(Index: Integer): AnsiString;
+    function GetDigestSize: Integer;
+    procedure ReadHash(Reader: TReader);
+    procedure WriteHash(Writer: TWriter);
+  protected
+    procedure DefineProperties(Filer: TFiler); override;
+  public
+    destructor Destroy; override;
+    procedure CalcBuffer(const Buffer; BufferSize: Integer);
+    procedure CalcStream(const Stream: TStream; StreamSize: Integer);
+    procedure CalcString(const Data: AnsiString);
+    procedure CalcFile(const FileName: String);
+
+    property Digest: AnsiString read FDigest;
+    property DigestSize: Integer read GetDigestSize;
+    property DigestString[Format: Integer]: AnsiString read GetDigestStr;
+    property HashClass: TROHashClass read GetClass write SetClass;
+    property Hash: TROHash read GetHash;
+  published
+    property Algorithm: String read GetAlgorithm write SetAlgorithm stored False;
+    property Description: String index 0 read GetInfo write SetInfo stored False;
+    property OnProgress: TProgressEvent read FOnProgress write FOnProgress;
+  end;
+
+  TROCipherManager = class(TComponent)
+  private
+    FHashManager: TROHashManager;
+    FCipherClass: TROCipherClass;
+    FCipher: TROCipher;
+    FMode: TCipherMode;
+    FOnProgress: TProgressEvent;
+    procedure SetHashManager(Value: TROHashManager);
+    procedure SetMode(Value: TCipherMode);
+    function GetCipher: TROCipher;
+    function GetClass: TROCipherClass;
+    procedure SetClass(Value: TROCipherClass);
+    function GetAlgorithm: String;
+    procedure SetAlgorithm(Value: String);
+    function GetInfo(Index: Integer): String;
+    procedure SetInfo(Index: Integer; Value: String);
+    procedure ReadCipher(Reader: TReader);
+    procedure WriteCipher(Writer: TWriter);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure DefineProperties(Filer: TFiler); override;
+  public
+    destructor Destroy; override;
+    procedure InitKey(const Key: String; IVector: Pointer);
+
+    procedure EncodeFile(const Source, Dest: String);
+    procedure DecodeFile(const Source, Dest: String);
+    procedure EncodeStream(Source, Dest: TStream; DataSize: Integer);
+    procedure DecodeStream(Source, Dest: TStream; DataSize: Integer);
+    procedure EncodeBuffer(const Source; var Dest; DataSize: Integer);
+    procedure DecodeBuffer(const Source; var Dest; DataSize: Integer);
+    function EncodeString(const Source: AnsiString): AnsiString;
+    function DecodeString(const Source: AnsiString): AnsiString;
+
+    property Cipher: TROCipher read GetCipher;
+    property CipherClass: TROCipherClass read GetClass write SetClass;
+  published
+    property Algorithm: String read GetAlgorithm write SetAlgorithm stored False;
+    property Description: String index 0 read GetInfo write SetInfo stored False;
+    property Mode: TCipherMode read FMode write SetMode default cmCBC;
+    property HashManager: TROHashManager read FHashManager write SetHashManager;
+    property OnProgress: TProgressEvent read FOnProgress write FOnProgress;
+  end;
+
+implementation
+
+uses SysUtils, Windows;
+
+procedure TROHashManager.ReadHash(Reader: TReader);
+var
+  CN: String;
+  I: Integer;
+begin
+  CN := Reader.ReadString;
+  for I := 0 to HashList.Count-1 do
+    if CN = TROHashClass(HashList.Objects[I]).ClassName then
+    begin
+      SetClass(TROHashClass(HashList.Objects[I]));
+      Exit;
+    end;
+end;
+
+procedure TROHashManager.WriteHash(Writer: TWriter);
+begin
+  Writer.WriteString(HashClass.ClassName);
+end;
+
+procedure TROHashManager.DefineProperties(Filer: TFiler);
+begin
+  inherited DefineProperties(Filer);
+  Filer.DefineProperty('Hash', ReadHash, WriteHash, FHashClass <> nil);
+end;
+
+function TROHashManager.GetInfo(Index: Integer): String;
+begin
+  Result := '';
+  case Index of
+    0: begin
+         Index := HashList.IndexOfObject(Pointer(HashClass));
+         if Index >= 0 then
+         begin
+           Result := Trim(HashList[Index]);
+           Delete(Result, 1, Pos('=', Result));
+         end;
+         if Length(Result) > 0 then Result := Result + ', ';
+         Result := Result + IntToStr(DigestSize * 8) + 'bit Digestsize';
+       end;
+  end;
+end;
+
+procedure TROHashManager.SetInfo(Index: Integer; Value: String);
+begin
+end;
+
+function TROHashManager.GetDigestStr(Index: Integer): AnsiString;
+begin
+  Result := StrToFormat(PAnsiChar(FDigest), Length(FDigest), Index);
+end;
+
+function TROHashManager.GetDigestSize: Integer;
+begin
+  Result := HashClass.DigestKeySize;
+end;
+
+function TROHashManager.GetClass: TROHashClass;
+begin
+  if FHashClass = nil then SetClass(DefaultHashClass);
+  Result := FHashClass;
+end;
+
+function TROHashManager.GetHash: TROHash;
+begin
+  if FHash = nil then FHash := HashClass.Create(nil);
+  Result := FHash;
+end;
+
+procedure TROHashManager.SetClass(Value: TROHashClass);
+begin
+  if Value <> FHashClass then
+  begin
+    if Value = nil then Value := DefaultHashClass;
+    FHashClass := Value;
+    FHash.Free;
+    FHash := nil;
+    FDigest := '';
+  end;
+end;
+
+function TROHashManager.GetAlgorithm: String;
+begin
+  Result := GetHashName(HashClass);
+end;
+
+procedure TROHashManager.SetAlgorithm(Value: String);
+begin
+  SetClass(GetHashClass(Value));
+end;
+
+destructor TROHashManager.Destroy;
+begin
+  FHash.Free;
+  FHash := nil;
+  inherited Destroy;
+end;
+
+procedure TROHashManager.CalcBuffer(const Buffer; BufferSize: Integer);
+begin
+  FDigest := HashClass.CalcBuffer(Buffer, BufferSize, nil, fmtCOPY);
+end;
+
+procedure TROHashManager.CalcStream(const Stream: TStream; StreamSize: Integer);
+begin
+  Progress := FOnProgress;
+  try
+    FDigest := HashClass.CalcStream(Stream, StreamSize, nil, fmtCOPY);
+  finally
+    Progress := nil;
+  end;
+end;
+
+procedure TROHashManager.CalcString(const Data: AnsiString);
+begin
+  FDigest := HashClass.CalcString(Data, nil, fmtCOPY);
+end;
+
+procedure TROHashManager.CalcFile(const FileName: String);
+begin
+  Progress := FOnProgress;
+  try
+    FDigest := HashClass.CalcFile(FileName, nil, fmtCOPY);
+  finally
+    Progress := nil;
+  end;
+end;
+
+procedure TROCipherManager.SetHashManager(Value: TROHashManager);
+begin
+  if Value <> FHashManager then
+  begin
+    FHashManager := Value;
+    if FHashManager <> nil then FHashManager.FreeNotification(Self);
+  end;
+end;
+
+procedure TROCipherManager.SetMode(Value: TCipherMode);
+begin
+  FMode := Value;
+  if FCipher <> nil then FCipher.Mode := FMode;
+end;
+
+function TROCipherManager.GetCipher: TROCipher;
+begin
+  if FCipher = nil then
+  begin
+    FCipher := CipherClass.Create('', nil);
+    FCipher.Mode := FMode;
+  end;  
+  Result := FCipher;
+end;
+
+function TROCipherManager.GetClass: TROCipherClass;
+begin
+  if FCipherClass = nil then FCipherClass := DefaultCipherClass;
+  Result := FCipherClass;
+end;
+
+procedure TROCipherManager.SetClass(Value: TROCipherClass);
+begin
+  if Value <> CipherClass then
+  begin
+    FCipher.Free;
+    FCipher := nil;
+    FCipherClass := Value;
+  end;
+end;
+
+function TROCipherManager.GetAlgorithm: String;
+begin
+  Result := GetCipherName(CipherClass);
+end;
+
+procedure TROCipherManager.SetAlgorithm(Value: String);
+begin
+  SetClass(GetCipherClass(Value));
+end;
+
+function TROCipherManager.GetInfo(Index: Integer): String;
+begin
+  Result := '';
+  case Index of
+    0: begin
+         Index := CipherList.IndexOfObject(Pointer(CipherClass));
+         if Index >= 0 then
+         begin
+           Result := Trim(CipherList[Index]);
+           Delete(Result, 1, Pos('=', Result));
+         end;
+         if Length(Result) > 0 then Result := Result + ', ';
+         Result := Result + IntToStr(CipherClass.MaxKeySize * 8) + 'bit Key';
+       end;
+  end;
+end;
+
+procedure TROCipherManager.SetInfo(Index: Integer; Value: String);
+begin
+end;
+
+procedure TROCipherManager.ReadCipher(Reader: TReader);
+var
+  CN: String;
+  I: Integer;
+begin
+  CN := Reader.ReadString;
+  for I := 0 to CipherList.Count-1 do
+    if CN = TROCipherClass(CipherList.Objects[I]).ClassName then
+    begin
+      SetClass(TROCipherClass(CipherList.Objects[I]));
+      Exit;
+    end;
+end;
+
+procedure TROCipherManager.WriteCipher(Writer: TWriter);
+begin
+  Writer.WriteString(CipherClass.ClassName);
+end;
+
+procedure TROCipherManager.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  inherited Notification(AComponent, Operation);
+  if (Operation = opRemove) and (AComponent = FHashManager) then
+    HashManager := nil;
+end;
+
+procedure TROCipherManager.DefineProperties(Filer: TFiler);
+begin
+  inherited DefineProperties(Filer);
+  Filer.DefineProperty('Cipher', ReadCipher, WriteCipher, FCipherClass <> nil);
+end;
+
+destructor TROCipherManager.Destroy;
+begin
+  FCipher.Free;
+  FCipher := nil;
+  inherited Destroy;
+end;
+
+procedure TROCipherManager.InitKey(const Key: String; IVector: Pointer);
+begin
+  if FHashManager <> nil then Cipher.HashClass := FHashManager.HashClass;
+  Cipher.InitKey(Key, IVector);
+end;
+
+procedure TROCipherManager.EncodeFile(const Source, Dest: String);
+begin
+  Progress := FOnProgress;
+  try
+    Cipher.CodeFile(Source, Dest, paEncode);
+  finally
+    Progress := nil;
+  end;
+end;
+
+procedure TROCipherManager.DecodeFile(const Source, Dest: String);
+begin
+  Progress := FOnProgress;
+  try
+    Cipher.CodeFile(Source, Dest, paDecode);
+  finally
+    Progress := nil;
+  end;
+end;
+
+procedure TROCipherManager.EncodeStream(Source, Dest: TStream; DataSize: Integer);
+begin
+  Progress := FOnProgress;
+  try
+    Cipher.CodeStream(Source, Dest, DataSize, paEncode);
+  finally
+    Progress := nil;
+  end;
+end;
+
+procedure TROCipherManager.DecodeStream(Source, Dest: TStream; DataSize: Integer);
+begin
+  Progress := FOnProgress;
+  try
+    Cipher.CodeStream(Source, Dest, DataSize, paDecode);
+  finally
+    Progress := nil;
+  end;
+end;
+
+procedure TROCipherManager.EncodeBuffer(const Source; var Dest; DataSize: Integer);
+begin
+  Cipher.EncodeBuffer(Source, Dest, DataSize);
+end;
+
+procedure TROCipherManager.DecodeBuffer(const Source; var Dest; DataSize: Integer);
+begin
+  Cipher.DecodeBuffer(Source, Dest, DataSize);
+end;
+
+function TROCipherManager.EncodeString(const Source: AnsiString): AnsiString;
+begin
+  Result := Cipher.CodeString(Source, paEncode, fmtDEFAULT);
+end;
+
+function TROCipherManager.DecodeString(const Source: AnsiString): AnsiString;
+begin
+  Result := Cipher.CodeString(Source, paDecode, fmtDEFAULT);
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHash.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHash.inc
new file mode 100644
index 0000000..ef75bd7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHash.inc	
@@ -0,0 +1,802 @@
+const
+  Haval_Data: array[0..127] of LongWord =
+   ($452821E6,$38D01377,$BE5466CF,$34E90C6C,$C0AC29B7,$C97C50DD,$3F84D5B5,$B5470917,
+    $9216D5D9,$8979FB1B,$D1310BA6,$98DFB5AC,$2FFD72DB,$D01ADFB7,$B8E1AFED,$6A267E96,
+    $BA7C9045,$F12C7F99,$24A19947,$B3916CF7,$0801F2E2,$858EFC16,$636920D8,$71574E69,
+    $A458FEA3,$F4933D7E,$0D95748F,$728EB658,$718BCD58,$82154AEE,$7B54A41D,$C25A59B5,
+    $9C30D539,$2AF26013,$C5D1B023,$286085F0,$CA417918,$B8DB38EF,$8E79DCB0,$603A180E,
+    $6C9E0E8B,$B01E8A3E,$D71577C1,$BD314B27,$78AF2FDA,$55605C60,$E65525F3,$AA55AB94,
+    $57489862,$63E81440,$55CA396A,$2AAB10B6,$B4CC5C34,$1141E8CE,$A15486AF,$7C72E993,
+    $B3EE1411,$636FBC2A,$2BA9C55D,$741831F6,$CE5C3E16,$9B87931E,$AFD6BA33,$6C24CF5C,
+    $7A325381,$28958677,$3B8F4898,$6B4BB9AF,$C4BFE81B,$66282193,$61D809CC,$FB21A991,
+    $487CAC60,$5DEC8032,$EF845D5D,$E98575B1,$DC262302,$EB651B88,$23893E81,$D396ACC5,
+    $0F6D6FF3,$83F44239,$2E0B4482,$A4842004,$69C8F04A,$9E1F9B5E,$21C66842,$F6E96C9A,
+    $670C9C61,$ABD388F0,$6A51A0D2,$D8542F68,$960FA728,$AB5133A3,$6EEF0B6C,$137A3BE4,
+    $BA3BF050,$7EFB2A98,$A1F1651D,$39AF0176,$66CA593E,$82430E88,$8CEE8619,$456F9FB4,
+    $7D84A5C3,$3B8B5EBE,$E06F75D8,$85C12073,$401A449F,$56C16AA6,$4ED3AA62,$363F7706,
+    $1BFEDF72,$429B023D,$37D0D724,$D00A1248,$DB0FEAD3,$49F1C09B,$075372C9,$80991B7B,
+    $25D479D8,$F6E8DEF7,$E3FE501A,$B6794C3B,$976CE0BD,$04C006BA,$C1A94FB6,$409F60C4);
+
+  Haval_Offset: array[0..127] of Byte =
+   (  5, 14, 26, 18, 11, 28,  7, 16,  0, 23, 20, 22,  1, 10,  4,  8,
+     30,  3, 21,  9, 17, 24, 29,  6, 19, 12, 15, 13,  2, 25, 31, 27,
+     19,  9,  4, 20, 28, 17,  8, 22, 29, 14, 25, 12, 24, 30, 16, 26,
+     31, 15,  7,  3,  1,  0, 18, 27, 13,  6, 21, 10, 23, 11,  5,  2,
+     24,  4,  0, 14,  2,  7, 28, 23, 26,  6, 30, 20, 18, 25, 19,  3,
+     22, 11, 31, 21,  8, 27, 12,  9,  1, 29,  5, 15, 17, 10, 16, 13,
+     27,  3, 21, 26, 17, 11, 20, 29, 19,  0, 12,  7, 13,  8, 31, 10,
+      5,  9, 14, 30, 18,  6, 28, 24,  2, 23, 16, 22,  4,  1, 25, 15);
+
+  Snefru_Data: array[0..15, 0..255] of LongWord = (
+   ($64F9001B,$FEDDCDF6,$7C8FF1E2,$11D71514,$8B8C18D3,$DDDF881E,$6EAB5056,$88CED8E1,
+    $49148959,$69C56FD5,$B7994F03,$0FBCEE3E,$3C264940,$21557E58,$E14B3FC2,$2E5CF591,
+    $DCEFF8CE,$092A1648,$BE812936,$FF7B0C6A,$D5251037,$AFA448F1,$7DAFC95A,$1EA69C3F,
+    $A417ABE7,$5890E423,$B0CB70C0,$C85025F7,$244D97E3,$1FF3595F,$C4EC6396,$59181E17,
+    $E635B477,$354E7DBF,$796F7753,$66EB52CC,$77C3F995,$32E3A927,$80CCAED6,$4E2BE89D,
+    $375BBD28,$AD1A3D05,$2B1B42B3,$16C44C71,$4D54BFA8,$E57DDC7A,$EC6D8144,$5A71046B,
+    $D8229650,$87FC8F24,$CBC60E09,$B6390366,$D9F76092,$D393A70B,$1D31A08A,$9CD971C9,
+    $5C1EF445,$86FAB694,$FDB44165,$8EAAFCBE,$4BCAC6EB,$FB7A94E5,$5789D04E,$FA13CF35,
+    $236B8DA9,$4133F000,$6224261C,$F412F23B,$E75E56A4,$30022116,$BAF17F1F,$D09872F9,
+    $C1A3699C,$F1E802AA,$0DD145DC,$4FDCE093,$8D8412F0,$6CD0F376,$3DE6B73D,$84BA737F,
+    $B43A30F2,$44569F69,$00E4EACA,$B58DE3B0,$959113C8,$D62EFEE9,$90861F83,$CED69874,
+    $2F793CEE,$E8571C30,$483665D1,$AB07B031,$914C844F,$15BF3BE8,$2C3F2A9A,$9EB95FD4,
+    $92E7472D,$2297CC5B,$EE5F2782,$5377B562,$DB8EBBCF,$F961DEDD,$C59B5C60,$1BD3910D,
+    $26D206AD,$B28514D8,$5ECF6B52,$7FEA78BB,$504879AC,$ED34A884,$36E51D3C,$1753741D,
+    $8C47CAED,$9D0A40EF,$3145E221,$DA27EB70,$DF730BA3,$183C8789,$739AC0A6,$9A58DFC6,
+    $54B134C1,$AC3E242E,$CC493902,$7B2DDA99,$8F15BC01,$29FD38C7,$27D5318F,$604AAFF5,
+    $F29C6818,$C38AA2EC,$1019D4C3,$A8FB936E,$20ED7B39,$0B686119,$89A0906F,$1CC7829E,
+    $9952EF4B,$850E9E8C,$CD063A90,$67002F8E,$CFAC8CB7,$EAA24B11,$988B4E6C,$46F066DF,
+    $CA7EEC08,$C7BBA664,$831D17BD,$63F575E6,$9764350E,$47870D42,$026CA4A2,$8167D587,
+    $61B6ADAB,$AA6564D2,$70DA237B,$25E1C74A,$A1C901A0,$0EB0A5DA,$7670F741,$51C05AEA,
+    $933DFA32,$0759FF1A,$56010AB8,$5FDECB78,$3F32EDF8,$AEBEDBB9,$39F8326D,$D20858C5,
+    $9B638BE4,$A572C80A,$28E0A19F,$432099FC,$3A37C3CD,$BF95C585,$B392C12A,$6AA707D7,
+    $52F66A61,$12D483B1,$96435B5E,$3E75802B,$3BA52B33,$A99F51A5,$BDA1E157,$78C2E70C,
+    $FCAE7CE0,$D1602267,$2AFFAC4D,$4A510947,$0AB2B83A,$7A04E579,$340DFD80,$B916E922,
+    $E29D5E9B,$F5624AF4,$4CA9D9AF,$6BBD2CFE,$E3B7F620,$C2746E07,$5B42B9B6,$A06919BC,
+    $F0F2C40F,$72217AB5,$14C19DF3,$F3802DAE,$E094BEB4,$A2101AFF,$0529575D,$55CDB27C,
+    $A33BDDB2,$6528B37D,$740C05DB,$E96A62C4,$40782846,$6D30D706,$BBF48E2C,$BCE2D3DE,
+    $049E37FA,$01B5E634,$2D886D8D,$7E5A2E7E,$D7412013,$06E90F97,$E45D3EBA,$B8AD3386,
+    $13051B25,$0C035354,$71C89B75,$C638FBD0,$197F11A1,$EF0F08FB,$F8448651,$38409563,
+    $452F4443,$5D464D55,$03D8764C,$B1B8D638,$A70BBA2F,$94B3D210,$EB6692A7,$D409C2D9,
+    $68838526,$A6DB8A15,$751F6C98,$DE769A88,$C9EE4668,$1A82A373,$0896AA49,$42233681,
+    $F62C55CB,$9F1C5404,$F74FB15C,$C06E4312,$6FFE5D72,$8AA8678B,$337CD129,$8211CEFD),
+   ($074A1D09,$52A10E5A,$9275A3F8,$4B82506C,$37DF7E1B,$4C78B3C5,$CEFAB1DA,$F472267E,
+    $B63045F6,$D66A1FC0,$400298E3,$27E60C94,$87D2F1B8,$DF9E56CC,$45CD1803,$1D35E098,
+    $CCE7C736,$03483BF1,$1F7307D7,$C6E8F948,$E613C111,$3955C6FF,$1170ED7C,$8E95DA41,
+    $99C31BF4,$A4DA8021,$7B5F94FB,$DD0DA51F,$6562AA77,$556BCB23,$DB1BACC6,$798040B9,
+    $BFE5378F,$731D55E6,$DAA5BFEE,$389BBC60,$1B33FBA4,$9C567204,$36C26C68,$77EE9D69,
+    $8AEB3E88,$2D50B5CE,$9579E790,$42B13CFC,$33FBD32B,$EE0503A7,$B5862824,$15E41EAD,
+    $C8412EF7,$9D441275,$2FCEC582,$5FF483B7,$8F3931DF,$2E5D2A7B,$49467BF9,$0653DEA9,
+    $2684CE35,$7E655E5C,$F12771D8,$BB15CC67,$AB097CA1,$983DCF52,$10DDF026,$21267F57,
+    $2C58F6B4,$31043265,$0BAB8C01,$D5492099,$ACAAE619,$944CE54A,$F2D13D39,$ADD3FC32,
+    $CDA08A40,$E2B0D451,$9EFE08AE,$B9D50FD2,$EA5CD7FD,$C9A749DD,$13EA2253,$832DEBAA,
+    $24BE640F,$E03E926A,$29E01CDE,$8BF59F18,$0F9D00B6,$E1238B46,$1E7D8E34,$93619ADB,
+    $76B32F9F,$BD972CEC,$E31FA976,$A68FBB10,$FB3BA49D,$8587C41D,$A5ADD1D0,$F3CF84BF,
+    $D4E11150,$D9FFA6BC,$C3F6018C,$AEF10572,$74A64B2F,$E7DC9559,$2AAE35D5,$5B6F587F,
+    $A9E353FE,$CA4FB674,$04BA24A8,$E5C6875F,$DCBC6266,$6BC5C03F,$661EEF02,$ED740BAB,
+    $058E34E4,$B7E946CF,$88698125,$72EC48ED,$B11073A3,$A13485EB,$A2A2429C,$FA407547,
+    $50B76713,$5418C37D,$96192DA5,$170BB04B,$518A021E,$B0AC13D1,$0963FA2A,$4A6E10E1,
+    $58472BDC,$F7F8D962,$979139EA,$8D856538,$C0997042,$48324D7A,$447623CB,$8CBBE364,
+    $6E0C6B0E,$D36D63B0,$3F244C84,$3542C971,$2B228DC1,$CB0325BB,$F8C0D6E9,$DE11066B,
+    $A8649327,$FC31F83E,$7DD80406,$F916DD61,$D89F79D3,$615144C2,$EBB45D31,$28002958,
+    $56890A37,$F05B3808,$123AE844,$86839E16,$914B0D83,$C506B43C,$CF3CBA5E,$7C60F5C9,
+    $22DEB2A0,$5D9C2715,$C77BA0EF,$4F45360B,$C1017D8B,$E45ADC29,$A759909B,$412CD293,
+    $D7D796B1,$00C8FF30,$23A34A80,$4EC15C91,$714E78B5,$47B9E42E,$78F3EA4D,$7F078F5B,
+    $346C593A,$A3A87A1A,$9BCBFE12,$3D439963,$B2EF6D8E,$B8D46028,$6C2FD5CA,$62675256,
+    $01F2A2F3,$BC96AE0A,$709A8920,$B4146E87,$6308B9E2,$64BDA7BA,$AFED6892,$6037F2A2,
+    $F52969E0,$0ADB43A6,$82811400,$90D0BDF0,$19C9549E,$203F6A73,$1ACCAF4F,$89714E6D,
+    $164D4705,$67665F07,$EC206170,$0C2182B2,$A02B9C81,$53289722,$F6A97686,$140E4179,
+    $9F778849,$9A88E15D,$25CADB54,$D157F36F,$32A421C3,$B368E98A,$5A92CD0D,$757AA8D4,
+    $C20AC278,$08B551C7,$849491E8,$4DC75AD6,$697C33BE,$BAF0CA33,$46125B4E,$59D677B3,
+    $30D9C8F2,$D0AF860C,$1C7FD0FA,$FE0FF72C,$5C8D6F43,$57FDEC3B,$6AB6AD97,$D22ADF89,
+    $18171785,$02BFE22D,$6DB80917,$80B216AF,$E85E4F9A,$7A1C306E,$6FC49BF5,$3AF7A11C,
+    $81E215E7,$68363FCD,$3E9357C8,$EF52FD55,$3B8BAB4C,$3C8CF495,$BEFCEEBD,$FD25B714,
+    $C498D83D,$0D2E1A8D,$E9F966AC,$0E387445,$435419E5,$5E7EBEC4,$AA90B8D9,$FF1A3A96),
+   ($4A8FE4E3,$F27D99CD,$D04A40CA,$CB5FF194,$3668275A,$FF4816BE,$A78B394C,$4C6BE9DB,
+    $4EEC38D2,$4296EC80,$CDCE96F8,$888C2F38,$E75508F5,$7B916414,$060AA14A,$A214F327,
+    $BE608DAF,$1EBBDEC2,$61F98CE9,$E92156FE,$4F22D7A3,$3F76A8D9,$559A4B33,$38AD2959,
+    $F3F17E9E,$85E1BA91,$E5EBA6FB,$73DCD48C,$F5C3FF78,$481B6058,$8A3297F7,$8F1F3BF4,
+    $93785AB2,$477A4A5B,$6334EB5D,$6D251B2E,$74A9102D,$07E38FFA,$915C9C62,$CCC275EA,
+    $6BE273EC,$3EBDDD70,$D895796C,$DC54A91B,$C9AFDF81,$23633F73,$275119B4,$B19F6B67,
+    $50756E22,$2BB152E2,$76EA46A2,$A353E232,$2F596AD6,$0B1EDB0B,$02D3D9A4,$78B47843,
+    $64893E90,$40F0CAAD,$F68D3AD7,$46FD1707,$1C9C67EF,$B5E086DE,$96EE6CA6,$9AA34774,
+    $1BA4F48A,$8D01ABFD,$183EE1F6,$5FF8AA7A,$17E4FAAE,$303983B0,$6C08668B,$D4AC4382,
+    $E6C5849F,$92FEFB53,$C1CAC4CE,$43501388,$441118CF,$EC4FB308,$53A08E86,$9E0FE0C5,
+    $F91C1525,$AC45BE05,$D7987CB5,$49BA1487,$57938940,$D5877648,$A958727F,$58DFE3C3,
+    $F436CF77,$399E4D11,$F0A5BFA9,$EF61A33B,$A64CAC60,$04A8D0BA,$030DD572,$B83D320F,
+    $CAB23045,$E366F2F0,$815D008D,$C897A43A,$1D352DF3,$B9CC571D,$8BF38744,$72209092,
+    $EBA124EB,$FB99CE5E,$3BB94293,$28DA549C,$AAB8A228,$A4197785,$33C70296,$25F6259B,
+    $5C85DA21,$DF15BDEE,$15B7C7E8,$E2ABEF75,$FCC19BC1,$417FF868,$14884434,$62825179,
+    $C6D5C11C,$0E4705DC,$22700DE0,$D3D2AF18,$9BE822A0,$35B669F1,$C42BB55C,$0A801252,
+    $115BF0FC,$3CD7D856,$B43F5F9D,$C2306516,$A1231C47,$F149207E,$5209A795,$34B3CCD8,
+    $67AEFE54,$2C83924E,$6662CBAC,$5EEDD161,$84E681AA,$5D57D26B,$FA465CC4,$7E3AC3A8,
+    $BF7C0CC6,$E18A9AA1,$C32F0A6F,$B22CC00D,$3D280369,$994E554F,$68F480D3,$ADCFF5E6,
+    $3A8EB265,$83269831,$BD568A09,$4BC8AE6A,$69F56D2B,$0F17EAC8,$772EB6C7,$9F41343C,
+    $AB1D0742,$826A6F50,$FEA2097C,$1912C283,$CE185899,$E4444839,$2D8635D5,$65D0B1FF,
+    $865A7F17,$326D9FB1,$59E52820,$0090ADE1,$753C7149,$9DDD8B98,$A5A691DA,$0D0382BB,
+    $8904C930,$086CB000,$6E69D3BD,$24D4E7A7,$05244FD0,$101A5E0C,$6A947DCB,$E840F77B,
+    $7D0C5003,$7C370F1F,$805245ED,$E05E3D3F,$7906880E,$BABFCD35,$1A7EC697,$8C052324,
+    $0C6EC8DF,$D129A589,$C7A75B02,$12D81DE7,$D9BE2A66,$1F4263AB,$DE73FDB6,$2A00680A,
+    $56649E36,$3133ED55,$90FA0BF2,$2910A02A,$949D9D46,$A0D1DCDD,$CFC9B7D4,$D2677BE5,
+    $95CB36B3,$13CD9410,$DBF73313,$B7C6E8C0,$F781414B,$510B016D,$B0DE1157,$D6B0F62C,
+    $BB074ECC,$7F1395B7,$EE792CF9,$EA6FD63E,$5BD6938E,$AF02FC64,$DAB57AB8,$8EDB3784,
+    $8716318F,$164D1A01,$26F26141,$B372E6B9,$F8FC2B06,$7AC00E04,$3727B89A,$97E9BCA5,
+    $9C2A742F,$BC3B1F7D,$7165B471,$609B4C29,$20925351,$5AE72112,$454BE5D1,$C0FFB95F,
+    $DD0EF919,$6F2D70C9,$0974C5BF,$98AA6263,$01D91E4D,$2184BB6E,$70C43C1E,$4D435915,
+    $AE7B8523,$B6FB06BC,$5431EE76,$FDBC5D26,$ED77493D,$C5712EE4,$A8380437,$2EEF261A),
+   ($5A79392B,$B8AF32C2,$41F7720A,$833A61EC,$13DFEDAC,$C4990BC4,$DC0F54BC,$FEDD5E88,
+    $80DA1881,$4DEA1AFD,$FD402CC6,$AE67CC7A,$C5238525,$8EA01254,$B56B9BD5,$862FBD6D,
+    $AC8575D3,$6FBA3714,$DA7EBF46,$59CD5238,$8AC9DBFE,$353729FC,$E497D7F2,$C3AB84E0,
+    $F05A114B,$7B887A75,$EDC603DD,$5E6FE680,$2C84B399,$884EB1DA,$1CB8C8BF,$AA51098A,
+    $C862231C,$8BAC2221,$21B387E5,$208A430D,$2A3F0F8B,$A5FF9CD2,$6012A2EA,$147A9EE7,
+    $F62A501D,$B4B2E51A,$3EF3484C,$C0253C59,$2B82B536,$0AA9696B,$BE0C109B,$C70B7929,
+    $CE3E8A19,$2F66950E,$459F1C2C,$E68FB93D,$A3C3FF3E,$62B45C62,$300991CB,$01914C57,
+    $7F7BC06A,$182831F5,$E7B74BCA,$FA50F6D0,$523CAA61,$E3A7CF05,$E9E41311,$280A21D1,
+    $6A4297E1,$F24DC67E,$FC3189E6,$B72BF34F,$4B1E67AF,$543402CE,$79A59867,$0648E02A,
+    $00A3AC17,$C6208D35,$6E7F5F76,$A45BB4BE,$F168FA63,$3F4125F3,$F311406F,$02706565,
+    $BFE58022,$0CFCFDD9,$0735A7F7,$8F049092,$D98EDC27,$F5C5D55C,$E0F201DB,$0DCAFC9A,
+    $7727FB79,$AF43ABF4,$26E938C1,$401B26A6,$900720FA,$2752D97B,$CFF1D1B3,$A9D9E424,
+    $42DB99AB,$6CF8BE5F,$E82CEBE3,$3AFB733B,$6B734EB6,$1036414A,$975F667C,$049D6377,
+    $BA587C60,$B1D10483,$DE1AEFCC,$1129D055,$72051E91,$6946D623,$F9E86EA7,$48768C00,
+    $B0166C93,$9956BBF0,$1F1F6D84,$FB15E18E,$033B495D,$56E3362E,$4F44C53C,$747CBA51,
+    $89D37872,$5D9C331B,$D2EF9FA8,$254917F8,$1B106F47,$37D75553,$B3F053B0,$7DCCD8EF,
+    $D30EB802,$5889F42D,$610206D7,$1A7D34A1,$92D87DD8,$E5F4A315,$D1CF0E71,$B22DFE45,
+    $B901E8EB,$0FC0CE5E,$2EFA60C9,$2DE74290,$36D0C906,$381C70E4,$4C6DA5B5,$3D81A682,
+    $7E381F34,$396C4F52,$95AD5901,$1DB50C5A,$29982E9E,$1557689F,$3471EE42,$D7E2F7C0,
+    $8795A1E2,$BC324D8D,$E224C3C8,$12837E39,$CDEE3D74,$7AD2143F,$0E13D40C,$78BD4A68,
+    $A2EB194D,$DB9451F9,$859B71DC,$5C4F5B89,$CA14A8A4,$EF92F003,$16741D98,$33AA4444,
+    $9E967FBB,$092E3020,$D86A35B8,$8CC17B10,$E1BF08AE,$55693FC5,$7680AD13,$1E6546E8,
+    $23B6E7B9,$EE77A4B2,$08ED0533,$44FD2895,$B6393B69,$05D6CACF,$9819B209,$ECBBB72F,
+    $9A75779C,$EAEC0749,$94A65AEE,$BDF52DC3,$D6A25D04,$82008E4E,$A6DE160F,$9B036AFB,
+    $228B3A66,$5FB10A70,$CC338B58,$5378A9DF,$C908BCA9,$4959E25B,$46909A97,$66AE8F6E,
+    $DD0683E9,$65F994B4,$6426CDA5,$C24B8840,$32539DA0,$63175650,$D0C815FF,$50CBC41E,
+    $F7C774A3,$31B0C231,$8D0D8116,$24BEF16C,$D555D256,$DF47EA8C,$6D21ECCD,$A887A012,
+    $84542AED,$A7B9C1BD,$914C1BB1,$A0D5B67D,$438CE937,$7030F873,$71F6B0C7,$574576BA,
+    $F8BC4541,$9C61D348,$1960579D,$17C4DAAD,$96A4CB0B,$C193F2F6,$756EAFA2,$7C1D2F94,
+    $F4FE2B43,$CB86E33A,$EBD4C728,$9D18AE64,$9FE13E30,$3CE0F5DE,$ABA1F985,$ADDC2718,
+    $68CE6278,$D45E241F,$A15C82B7,$3B2293D4,$739EDD32,$674A6BF1,$5B5D587F,$4772DEAA,
+    $4A63968F,$0BE68686,$513D6426,$939A4787,$BBA89296,$4EC20007,$818D0D08,$FF64DFD6),
+   ($CB2297CB,$DB48A144,$A16CBE4B,$BBEA1D6C,$5AF6B6B7,$8A8110B6,$F9236EF9,$C98F83E6,
+    $0F9C65B8,$252D4A89,$A497F068,$A5D7ED2D,$94C22845,$9DA1C8C4,$E27C2E2E,$6E8BA2B4,
+    $C3DD17FB,$498CD482,$0DFE6A9F,$B0705829,$9A1E6DC1,$F829717C,$07BB8E3A,$DA3C0B02,
+    $1AF82FC7,$73B70955,$7A04379C,$5EE20A28,$83712AE5,$F4C47C6D,$DF72BA56,$D794858D,
+    $8C0CF709,$18F0F390,$B6C69B35,$BF2F01DB,$2FA74DCA,$D0CD9127,$BDE66CEC,$3DEEBD46,
+    $57C88FC3,$CEE1406F,$0066385A,$F3C3444F,$3A79D5D5,$75751EB9,$3E7F8185,$521C2605,
+    $E1AAAB6E,$38EBB80F,$BEE7E904,$61CB9647,$EA54904E,$05AE00E4,$2D7AC65F,$087751A1,
+    $DCD82915,$0921EE16,$DD86D33B,$D6BD491A,$40FBADF0,$4232CBD2,$33808D10,$39098C42,
+    $193F3199,$0BC1E47A,$4A82B149,$02B65A8A,$104CDC8E,$24A8F52C,$685C6077,$C79F95C9,
+    $1D11FE50,$C08DAFCD,$7B1A9A03,$1C1F11D8,$84250E7F,$979DB248,$EBDC0501,$B9553395,
+    $E3C05EA8,$B1E51C4C,$13B0E681,$3B407766,$36DB3087,$EE17C9FC,$6C53ECF2,$ADCCC58F,
+    $C427660B,$EFD5867D,$9B6D54A5,$6FF1AEFF,$8E787952,$9E2BFFE0,$8761D034,$E00BDBAD,
+    $AE99A8D3,$CC03F6E2,$FD0ED807,$0E508AE3,$B74182AB,$4349245D,$D120A465,$B246A641,
+    $AF3B7AB0,$2A6488BB,$4B3A0D1F,$E7C7E58C,$3FAFF2EB,$90445FFD,$CF38C393,$995D07E7,
+    $F24F1B36,$356F6891,$6D6EBCBE,$8DA9E262,$50FD520E,$5BCA9E1E,$37472CF3,$69075057,
+    $7EC5FDED,$0CAB892A,$FB2412BA,$1728DEBF,$A000A988,$D843CE79,$042E20DD,$4FE8F853,
+    $56659C3C,$2739D119,$A78A6120,$80960375,$70420611,$85E09F78,$ABD17E96,$1B513EAF,
+    $1E01EB63,$26AD2133,$A890C094,$7613CF60,$817E781B,$A39113D7,$E957FA58,$4131B99E,
+    $28B1EFDA,$66ACFBA7,$FF68944A,$77A44FD1,$7F331522,$59FFB3FA,$A6DF935B,$FA12D9DF,
+    $C6BF6F3F,$89520CF6,$659EDD6A,$544DA739,$8B052538,$7C30EA21,$C2345525,$15927FB2,
+    $144A436B,$BA107B8B,$1219AC97,$06730432,$31831AB3,$C55A5C24,$AA0FCD3E,$E5606BE8,
+    $5C88F19B,$4C0841EE,$1FE37267,$11F9C4F4,$9F1B9DAE,$864E76D0,$E637C731,$D97D23A6,
+    $32F53D5C,$B8161980,$93FA0F84,$CAEF0870,$8874487E,$98F2CC73,$645FB5C6,$CD853659,
+    $2062470D,$16EDE8E9,$6B06DAB5,$78B43900,$FC95B786,$5D8E7DE1,$465B5954,$FE7BA014,
+    $F7D23F7B,$92BC8B18,$03593592,$55CEF4F7,$74B27317,$79DE1FC2,$C8A0BFBD,$229398CC,
+    $62A602CE,$BCB94661,$5336D206,$D2A375FE,$6A6AB483,$4702A5A4,$A2E9D73D,$23A2E0F1,
+    $9189140A,$581D18DC,$B39A922B,$82356212,$D5F432A9,$D356C2A3,$5F765B4D,$450AFCC8,
+    $4415E137,$E8ECDFBC,$ED0DE3EA,$60D42B13,$F13DF971,$71FC5DA2,$C1455340,$F087742F,
+    $F55E5751,$67B3C1F8,$AC6B8774,$7DCFAAAC,$95983BC0,$489BB0B1,$2C184223,$964B6726,
+    $2BD3271C,$72266472,$DED64530,$0A2AA343,$D4F716A0,$B4DAD6D9,$2184345E,$512C990C,
+    $29D92D08,$2EBE709A,$01144C69,$34584B9D,$E4634ED6,$ECC963CF,$3C6984AA,$4ED056EF,
+    $9CA56976,$8F3E80D4,$B5BAE7C5,$30B5CAF5,$63F33A64,$A9E4BBDE,$F6B82298,$4D673C1D),
+   ($4B4F1121,$BA183081,$C784F41F,$D17D0BAC,$083D2267,$37B1361E,$3581AD05,$FDA2F6BC,
+    $1E892CDD,$B56D3C3A,$32140E46,$138D8AAB,$E14773D4,$5B0E71DF,$5D1FE055,$3FB991D3,
+    $F1F46C71,$A325988C,$10F66E80,$B1006348,$726A9F60,$3B67F8BA,$4E114EF4,$05C52115,
+    $4C5CA11C,$99E1EFD8,$471B83B3,$CBF7E524,$43AD82F5,$690CA93B,$FAA61BB2,$12A832B5,
+    $B734F943,$BD22AEA7,$88FEC626,$5E80C3E7,$BE3EAF5E,$44617652,$A5724475,$BB3B9695,
+    $7F3FEE8F,$964E7DEB,$518C052D,$2A0BBC2B,$C2175F5C,$9A7B3889,$A70D8D0C,$EACCDD29,
+    $CCCD6658,$34BB25E6,$B8391090,$F651356F,$52987C9E,$0C16C1CD,$8E372D3C,$2FC6EBBD,
+    $6E5DA3E3,$B0E27239,$5F685738,$45411786,$067F65F8,$61778B40,$81AB2E65,$14C8F0F9,
+    $A6B7B4CE,$4036EAEC,$BF62B00A,$ECFD5E02,$045449A6,$B20AFD28,$2166D273,$0D13A863,
+    $89508756,$D51A7530,$2D653F7A,$3CDBDBC3,$80C9DF4F,$3D5812D9,$53FBB1F3,$C0F185C0,
+    $7A3C3D7E,$68646410,$857607A0,$1D12622E,$97F33466,$DB4C9917,$6469607C,$566E043D,
+    $79EF1EDB,$2C05898D,$C9578E25,$CD380101,$46E04377,$7D1CC7A9,$6552B837,$20192608,
+    $B97500C5,$ED296B44,$368648B4,$62995CD5,$82731400,$F9AEBD8B,$3844C0C7,$7C2DE794,
+    $33A1A770,$8AE528C2,$5A2BE812,$1F8F4A07,$2B5ED7CA,$937EB564,$6FDA7E11,$E49B5D6C,
+    $B4B3244E,$18AA53A4,$3A061334,$4D6067A3,$83BA5868,$9BDF4DFE,$7449F261,$709F8450,
+    $CAD133CB,$DE941C3F,$F52AE484,$781D77ED,$7E4395F0,$AE103B59,$922331BB,$42CE50C8,
+    $E6F08153,$E7D941D0,$5028ED6B,$B3D2C49B,$AD4D9C3E,$D201FB6E,$A45BD5BE,$FFCB7F4B,
+    $579D7806,$F821BB5B,$59D592AD,$D0BE0C31,$D4E3B676,$0107165A,$0FE939D2,$49BCAAFD,
+    $55FFCFE5,$2EC1F783,$F39A09A5,$3EB42772,$19B55A5D,$024A0679,$8C83B3F7,$8642BA1D,
+    $ACACD9EA,$87D352C4,$60931F45,$A05F97D7,$1CECD42C,$E2FCC87B,$B60F94E2,$67A34B0B,
+    $FCDD40C9,$0B150A27,$D3EE9E04,$582E29E9,$4AC22B41,$6AC4E1B8,$BCCAA51A,$237AF30E,
+    $EBC3B709,$C4A59D19,$284BC98A,$E9D41A93,$6BFA2018,$73B2D651,$11F9A2FA,$CE09BFF1,
+    $41A470AA,$25888F22,$77E754E8,$F7330D8E,$158EAB16,$C5D68842,$C685A6F6,$E5B82FDE,
+    $09EA3A96,$6DDE1536,$4FA919DA,$26C0BE9F,$9EED6F69,$F05555F2,$E06FC285,$9CD76D23,
+    $AF452A92,$EFC74CB7,$9D6B4732,$8BE408EE,$22401D0D,$EE6C459D,$7587CB82,$E8746862,
+    $5CBDDE87,$98794278,$31AFB94D,$C11E0F2F,$30E8FC2A,$CF3261EF,$1A3023E1,$AA2F86CF,
+    $F202E24A,$8D08DCFF,$764837C6,$A26374CC,$9F7C3E88,$949CC57D,$DD26A07F,$C39EFAB0,
+    $C8F879A1,$DCE67BB9,$F4B0A435,$912C9AE0,$D85603E4,$953A9BBF,$FB8290D6,$0AEBCD5F,
+    $16206A9A,$6C787A14,$D9A0F16A,$29BF4F74,$8F8BCE91,$0E5A9354,$AB038CB1,$1B8AD11B,
+    $E327FF49,$0053DA20,$90CF51DC,$DA92FE6D,$0390CA47,$A8958097,$A9DC5BAF,$3931E3C1,
+    $840446B6,$63D069FB,$D7460299,$7124ECD1,$0791E613,$485918FC,$D635D04C,$DF96AC33,
+    $66F2D303,$247056AE,$A1A7B2A8,$27D8CC9C,$17B6E998,$7BF5590F,$FE97F557,$5471D8A2),
+   ($83A327A1,$9F379F51,$40A7D007,$11307423,$224587C1,$AC27D63B,$3B7E64EA,$2E1CBFA6,
+    $09996000,$03BC0E2C,$D4C4478A,$4542E0AB,$FEDA26D4,$C1D10FCB,$8252F596,$4494EB5C,
+    $A362F314,$F5BA81FD,$75C3A376,$4CA214CA,$E164DEDD,$5088FA97,$4B0930E0,$2FCFB7E8,
+    $33A6F4B2,$C7E94211,$2D66C774,$43BE8BAE,$C663D445,$908EB130,$F4E3BE15,$63B9D566,
+    $529396B5,$1E1BE743,$4D5FF63F,$985E4A83,$71AB9DF7,$C516C6F5,$85C19AB4,$1F4DAEE4,
+    $F2973431,$B713DC5E,$3F2E159A,$C824DA16,$06BF376A,$B2FE23EC,$E39B1C22,$F1EECB5F,
+    $08E82D52,$565686C2,$AB0AEA93,$FD47219F,$EBDBABD7,$2404A185,$8C7312B9,$A8F2D828,
+    $0C8902DA,$65B42B63,$C0BBEF62,$4E3E4CEF,$788F8018,$EE1EBAB7,$93928F9D,$683D2903,
+    $D3B60689,$AFCB0DDC,$88A4C47A,$F6DD9C3D,$7EA5FCA0,$8A6D7244,$BE11F120,$04FF91B8,
+    $8D2DC8C0,$27F97FDB,$7F9E1F47,$1734F0C7,$26F3ED8E,$0DF8F2BF,$B0833D9E,$E420A4E5,
+    $A423CAE6,$95616772,$9AE6C049,$075941F2,$D8E12812,$000F6F4F,$3C0D6B05,$6CEF921C,
+    $B82BC264,$396CB008,$5D608A6F,$6D7782C8,$186550AA,$6B6FEC09,$28E70B13,$57CE5688,
+    $ECD3AF84,$23335A95,$91F40CD2,$7B6A3B26,$BD32B3B6,$3754A6FB,$8ED088F0,$F867E87C,
+    $20851746,$6410F9C6,$35380442,$C2CA10A7,$1ADEA27F,$76BDDD79,$92742CF4,$0E98F7EE,
+    $164E931D,$B9C835B3,$69060A99,$B44C531E,$FA7B66FE,$C98A5B53,$7D95AAE9,$302F467B,
+    $74B811DE,$F3866ABD,$B5B3D32D,$FC3157A4,$D251FE19,$0B5D8EAC,$DA71FFD5,$47EA05A3,
+    $05C6A9E1,$CA0EE958,$9939034D,$25DC5EDF,$79083CB1,$86768450,$CF757D6D,$5972B6BC,
+    $A78D59C9,$C4AD8D41,$2A362AD3,$D1179991,$601407FF,$DCF50917,$587069D0,$E0821ED6,
+    $DBB59427,$73911A4B,$7C904FC3,$844AFB92,$6F8C955D,$E8C0C5BB,$B67AB987,$A529D96C,
+    $F91F7181,$618B1B06,$E718BB0C,$8BD7615B,$D5A93A59,$54AEF81B,$772136E3,$CE44FD9C,
+    $10CDA57E,$87D66E0B,$3D798967,$1B2C1804,$3EDFBD68,$15F6E62B,$EF68B854,$3896DB35,
+    $12B7B5E2,$CB489029,$9E4F98A5,$62EB77A8,$217C24A2,$964152F6,$49B2080A,$53D23EE7,
+    $48FB6D69,$1903D190,$9449E494,$BF6E7886,$FB356CFA,$3A261365,$424BC1EB,$A1192570,
+    $019CA782,$9D3F7E0E,$9C127575,$EDF02039,$AD57BCCE,$5C153277,$81A84540,$BCAA7356,
+    $CCD59B60,$A62A629B,$A25CCD10,$2B5B65CF,$1C535832,$55FD4E3A,$31D9790D,$F06BC37D,
+    $4AFC1D71,$AEED5533,$BA461634,$BB694B78,$5F3A5C73,$6A3C764A,$8FB0CCA9,$F725684C,
+    $4FE5382F,$1D0163AF,$5AA07A8F,$E205A8ED,$C30BAD38,$FF22CF1F,$72432E2E,$32C2518B,
+    $3487CE4E,$7AE0AC02,$709FA098,$0A3B395A,$5B4043F8,$A9E48C36,$149A8521,$D07DEE6B,
+    $46ACD2F3,$8958DFFC,$B3A1223C,$B11D31C4,$CD7F4D3E,$0F28E3AD,$E5B100BE,$AAC54824,
+    $E9C9D7BA,$9BD47001,$80F149B0,$66022F0F,$020C4048,$6EFA192A,$67073F8D,$13EC7BF9,
+    $3655011A,$E6AFE157,$D9845F6E,$DECC4425,$511AE2CC,$DF81B4D8,$D7809E55,$D6D883D9,
+    $2CC7978C,$5E787CC5,$DD0033D1,$A050C937,$97F75DCD,$299DE580,$41E2B261,$EA5A54F1),
+   ($7E672590,$BEA513BB,$2C906FE6,$86029C2B,$55DC4F74,$0553398E,$63E09647,$CAFD0BAB,
+    $264C37DF,$8272210F,$67AFA669,$12D98A5F,$8CAB23C4,$75C68BD1,$C3370470,$33F37F4E,
+    $283992FF,$E73A3A67,$1032F283,$F5AD9FC2,$963F0C5D,$664FBC45,$202BA41C,$C7C02D80,
+    $54731E84,$8A1085F5,$601D80FB,$2F968E55,$35E96812,$E45A8F78,$BD7DE662,$3B6E6EAD,
+    $8097C5EF,$070B6781,$B1E508F3,$24E4FAE3,$B81A7805,$EC0FC918,$43C8774B,$9B2512A9,
+    $2B05AD04,$32C2536F,$EDF236E0,$8BC4B0CF,$BACEB837,$4535B289,$0D0E94C3,$A5A371D0,
+    $AD695A58,$39E3437D,$9186BFFC,$21038C3B,$0AA9DFF9,$5D1F06CE,$62DEF8A4,$F740A2B4,
+    $A2575868,$682683C1,$DBB30FAC,$61FE1928,$468A6511,$C61CD5F4,$E54D9800,$6B98D7F7,
+    $8418B6A5,$5F09A5D2,$90B4E80B,$49B2C852,$69F11C77,$17412B7E,$7F6FC0ED,$56838DCC,
+    $6E9546A2,$D0758619,$087B9B9A,$D231A01D,$AF46D415,$097060FD,$D920F657,$882D3F9F,
+    $3AE7C3C9,$E8A00D9B,$4FE67EBE,$2EF80EB2,$C1916B0C,$F4DFFEA0,$B97EB3EB,$FDFF84DD,
+    $FF8B14F1,$E96B0572,$F64B508C,$AE220A6E,$4423AE5A,$C2BECE5E,$DE27567C,$FC935C63,
+    $47075573,$E65B27F0,$E121FD22,$F2668753,$2DEBF5D7,$8347E08D,$AC5EDA03,$2A7CEBE9,
+    $3FE8D92E,$23542FE4,$1FA7BD50,$CF9B4102,$9D0DBA39,$9CB8902A,$A7249D8B,$0F6D667A,
+    $5EBFA9EC,$6A594DF2,$79600938,$023B7591,$EA2C79C8,$C99D07EA,$64CB5EE1,$1A9CAB3D,
+    $76DB9527,$C08E012F,$3DFB481A,$872F22E7,$2948D15C,$A4782C79,$6F50D232,$78F0728A,
+    $5A87AAB1,$C4E2C19C,$EE767387,$1B2A1864,$7B8D10D3,$D1713161,$0EEAC456,$D8799E06,
+    $B645B548,$4043CB65,$A874FB29,$4B12D030,$7D687413,$18EF9A1F,$D7631D4C,$5829C7DA,
+    $CDFA30FA,$C5084BB0,$92CD20E2,$D4C16940,$03283EC0,$A917813F,$9A587D01,$70041F8F,
+    $DC6AB1DC,$DDAEE3D5,$31829742,$198C022D,$1C9EAFCB,$5BBC6C49,$D3D3293A,$16D50007,
+    $04BB8820,$3C5C2A41,$37EE7AF8,$8EB04025,$9313ECBA,$BFFC4799,$8955A744,$EF85D633,
+    $504499A7,$A6CA6A86,$BB3D3297,$B34A8236,$6DCCBE4F,$06143394,$CE19FC7B,$CCC3C6C6,
+    $E36254AE,$77B7EDA1,$A133DD9E,$EBF9356A,$513CCF88,$E2A1B417,$972EE5BD,$853824CD,
+    $5752F4EE,$6C1142E8,$3EA4F309,$B2B5934A,$DFD628AA,$59ACEA3E,$A01EB92C,$389964BC,
+    $DA305DD4,$019A59B7,$11D2CA93,$FAA6D3B9,$4E772ECA,$72651776,$FB4E5B0E,$A38F91A8,
+    $1D0663B5,$30F4F192,$B50051B6,$B716CCB3,$4ABD1B59,$146C5F26,$F134E2DE,$00F67C6C,
+    $B0E1B795,$98AA4EC7,$0CC73B34,$654276A3,$8D1BA871,$740A5216,$E0D01A23,$9ED161D6,
+    $9F36A324,$993EBB7F,$FEB9491B,$365DDCDB,$810CFFC5,$71EC0382,$2249E7BF,$48817046,
+    $F3A24A5B,$4288E4D9,$0BF5C243,$257FE151,$95B64C0D,$4164F066,$AAF7DB08,$73B1119D,
+    $8F9F7BB8,$D6844596,$F07A34A6,$53943D0A,$F9DD166D,$7A8957AF,$F8BA3CE5,$27C9621E,
+    $5CDAE910,$C8518998,$941538FE,$136115D8,$ABA8443C,$4D01F931,$34EDF760,$B45F266B,
+    $D5D4DE14,$52D8AC35,$15CFD885,$CBC5CD21,$4CD76D4D,$7C80EF54,$BC92EE75,$1E56A1F6),
+   ($BAA20B6C,$9FFBAD26,$E1F7D738,$794AEC8D,$C9E9CF3C,$8A9A7846,$C57C4685,$B9A92FED,
+    $29CB141F,$52F9DDB7,$F68BA6BC,$19CCC020,$4F584AAA,$3BF6A596,$003B7CF7,$54F0CE9A,
+    $A7EC4303,$46CF0077,$78D33AA1,$215247D9,$74BCDF91,$08381D30,$DAC43E40,$64872531,
+    $0BEFFE5F,$B317F457,$AEBB12DA,$D5D0D67B,$7D75C6B4,$42A6D241,$1502D0A9,$3FD97FFF,
+    $C6C3ED28,$81868D0A,$92628BC5,$86679544,$FD1867AF,$5CA3EA61,$568D5578,$4A2D71F4,
+    $43C9D549,$8D95DE2B,$6E5C74A0,$9120FFC7,$0D05D14A,$A93049D3,$BFA80E17,$F4096810,
+    $043F5EF5,$A673B4F1,$6D780298,$A4847783,$5EE726FB,$9934C281,$220A588C,$384E240F,
+    $933D5C69,$39E5EF47,$26E8B8F3,$4C1C6212,$8040F75D,$074B7093,$6625A8D7,$36298945,
+    $76285088,$651D37C3,$24F5274D,$DBCA3DAB,$186B7EE1,$D80F8182,$14210C89,$943A3075,
+    $4E6E11C4,$4D7E6BAD,$F05064C8,$025DCD97,$4BC10302,$7CEDE572,$8F90A970,$AB88EEBA,
+    $B5998029,$5124D839,$B0EEB6A3,$89DDABDC,$E8074D76,$A1465223,$32518CF2,$9D39D4EB,
+    $C0D84524,$E35E6EA8,$7ABF3804,$113E2348,$9AE6069D,$B4DFDABB,$A8C5313F,$23EA3F79,
+    $530E36A2,$A5FD228B,$95D1D350,$2B14CC09,$40042956,$879D05CC,$2064B9CA,$ACACA40E,
+    $B29C846E,$9676C9E3,$752B7B8A,$7BE2BCC2,$6BD58F5E,$D48F4C32,$606835E4,$9CD7C364,
+    $2C269B7A,$3A0D079C,$73B683FE,$45374F1E,$10AFA242,$577F8666,$DDAA10F6,$F34F561C,
+    $3D355D6B,$E47048AE,$AA13C492,$050344FD,$2AAB5151,$F5B26AE5,$ED919A59,$5AC67900,
+    $F1CDE380,$0C79A11B,$351533FC,$CD4D8E36,$1F856005,$690B9FDD,$E736DCCF,$1D47BF6A,
+    $7F66C72A,$85F21B7F,$983CBDB6,$01EBBEBF,$035F3B99,$EB111F34,$28CEFDC6,$5BFC9ECD,
+    $F22EACB0,$9E41CBB2,$E0F8327C,$82E3E26F,$FC43FC86,$D0BA66DF,$489EF2A7,$D9E0C81D,
+    $68690D52,$CC451367,$C2232E16,$E95A7335,$0FDAE19B,$FF5B962C,$97596527,$C46DB333,
+    $3ED4C562,$C14C9D9E,$5D6FAA21,$638E940D,$F9316D58,$47B3B0EA,$30FFCAD2,$CE1BBA7D,
+    $1E6108E6,$2E1EA33D,$507BF05B,$FAFEF94B,$D17DE8E2,$5598B214,$1663F813,$17D25A2D,
+    $EEFA5FF9,$582F4E37,$12128773,$FEF17AB8,$06005322,$BB32BBC9,$8C898508,$592C15F0,
+    $D38A4054,$4957B7D6,$D2B891DB,$37BD2D3E,$34AD20CB,$622288E9,$2DC7345A,$AFB416C0,
+    $1CF459B1,$DC7739FA,$0A711A25,$13E18A0C,$5F72AF4C,$6AC8DB11,$BE53C18E,$1AA569B9,
+    $EF551EA4,$A02A429F,$BD16E790,$7EB9171A,$77D693D8,$8E06993A,$9BDE7560,$E5801987,
+    $C37A09BE,$B8DB76AC,$E2087294,$6C81616D,$B7F30FE7,$BC9B82BD,$FBA4E4D4,$C7B1012F,
+    $A20C043B,$DE9FEBD0,$2F9297CE,$E610AEF8,$70B06F19,$C86AE00B,$0E01988F,$41192AE0,
+    $448C1CB5,$ADBE92EE,$7293A007,$1B54B5B3,$D61F63D1,$EAE40A74,$61A72B55,$EC83A7D5,
+    $88942806,$90A07DA5,$D7424B95,$67745B4E,$A31A1853,$CA6021EF,$DFB56C4F,$CBC2D915,
+    $3C48E918,$8BAE3C63,$6F659C71,$F8B754C1,$2782F3DE,$F796F168,$71492C84,$33C0F5A6,
+    $3144F6EC,$25DC412E,$B16C5743,$83A1FA7E,$0997B101,$B627E6E8,$CF33905C,$8456FB65),
+   ($B29BEA74,$C35DA605,$305C1CA3,$D2E9F5BC,$6FD5BFF4,$FF347703,$FC45B163,$F498E068,
+    $B71229FC,$81ACC3FB,$78538A8B,$984ECF81,$A5DA47A4,$8F259EEF,$6475DC65,$081865B9,
+    $49E14A3C,$19E66079,$D382E91B,$5B109794,$3F9F81E1,$4470A388,$41601ABE,$AAF9F407,
+    $8E175EF6,$ED842297,$893A4271,$1790839A,$D566A99E,$6B417DEE,$75C90D23,$715EDB31,
+    $723553F7,$9AFB50C9,$FBC5F600,$CD3B6A4E,$97ED0FBA,$29689AEC,$63135C8E,$F0E26C7E,
+    $0692AE7F,$DBB208FF,$2EDE3E9B,$6A65BEBD,$D40867E9,$C954AFC5,$73B08201,$7FFDF809,
+    $1195C24F,$1CA5ADCA,$74BD6D1F,$B393C455,$CADFD3FA,$99F13011,$0EBCA813,$60E791B8,
+    $6597AC7A,$18A7E46B,$09CB49D3,$0B27DF6D,$CFE52F87,$CEF66837,$E6328035,$FA87C592,
+    $37BAFF93,$D71FCC99,$DCAB205C,$4D7A5638,$48012510,$62797558,$B6CF1FE5,$BC311834,
+    $9C2373AC,$14EC6175,$A439CBDF,$54AFB0EA,$D686960B,$FDD0D47B,$7B063902,$8B78BAC3,
+    $26C6A4D5,$5C0055B6,$2376102E,$0411783E,$2AA3F1CD,$51FC6EA8,$701CE243,$9B2A0ABB,
+    $0AD93733,$6E80D03D,$AF6295D1,$F629896F,$A30B0648,$463D8DD4,$963F84CB,$01FF94F8,
+    $8D7FEFDC,$553611C0,$A97C1719,$B96AF759,$E0E3C95E,$0528335B,$21FE5925,$821A5245,
+    $807238B1,$67F23DB5,$EA6B4EAB,$0DA6F985,$AB1BC85A,$EF8C90E4,$4526230E,$38EB8B1C,
+    $1B91CD91,$9FCE5F0C,$F72CC72B,$C64F2617,$DAF7857D,$7D373CF1,$28EAEDD7,$203887D0,
+    $C49A155F,$A251B3B0,$F2D47AE3,$3D9EF267,$4A94AB2F,$7755A222,$0205E329,$C28FA7A7,
+    $AEC1FE51,$270F164C,$8C6D01BF,$53B5BC98,$C09D3FEB,$834986CC,$4309A12C,$578B2A96,
+    $3BB74B86,$69561B4A,$037E32F3,$DE335B08,$C5156BE0,$E7EF09AD,$93B834C7,$A7719352,
+    $59302821,$E3529D26,$F961DA76,$CB142C44,$A0F3B98D,$76502457,$945A414B,$078EEB12,
+    $DFF8DE69,$EB6C8C2D,$BDA90C4D,$E9C44D16,$168DFD66,$AD64763B,$A65FD764,$95A29C06,
+    $32D7713F,$40F0B277,$224AF08F,$004CB5E8,$92574814,$8877D827,$3E5B2D04,$68C2D5F2,
+    $86966273,$1D433ADA,$8774988A,$3C0E0BFE,$DDAD581D,$2FD654ED,$0F4769FD,$C181EE9D,
+    $5FD88F61,$341DBB3A,$528543F9,$D92235CF,$1EA82EB4,$B5CD790F,$91D24F1E,$A869E6C2,
+    $61F474D2,$CC205ADD,$0C7BFBA9,$BF2B0489,$B02D72D8,$2B46ECE6,$E4DCD90A,$B8A11440,
+    $EE8A63B7,$854DD1A1,$D1E00583,$42B40E24,$9E8964DE,$B4B35D78,$BEC76F6E,$24B9C620,
+    $D8D399A6,$5ADB2190,$2DB12730,$3A5866AF,$58C8FADB,$5D8844E7,$8A4BF380,$15A01D70,
+    $79F5C028,$66BE3B8C,$F3E42B53,$56990039,$2C0C3182,$5E16407C,$ECC04515,$6C440284,
+    $4CB6701A,$13BFC142,$9D039F6A,$4F6E92C8,$A1407C62,$8483A095,$C70AE1C4,$E20213A2,
+    $BACAFC41,$4ECC12B3,$4BEE3646,$1FE807AE,$25217F9C,$35DDE5F5,$7A7DD6CE,$F89CCE50,
+    $AC07B718,$7E73D2C6,$E563E76C,$123CA536,$3948CA56,$9019DD49,$10AA88D9,$C82451E2,
+    $473EB6D6,$506FE854,$E8BB03A5,$332F4C32,$FE1E1E72,$B1AE572A,$7C0D7BC1,$E1C37EB2,
+    $F542AA60,$F1A48EA0,$D067B89F,$BBFA195D,$1A049B0D,$315946AA,$36D1B447,$6D2EBDF0),
+   ($0D188A6D,$12CEA0DB,$7E63740E,$6A444821,$253D234F,$6FFC6597,$94A6BDEF,$33EE1B2F,
+    $0A6C00C0,$3AA336B1,$5AF55D17,$265FB3DC,$0E89CF4D,$0786B008,$C80055B8,$6B17C3CE,
+    $72B05A74,$D21A8D78,$A6B70840,$FE8EAE77,$ED69565C,$55E1BCF4,$585C2F60,$E06F1A62,
+    $AD67C0CD,$7712AF88,$9CC26ACA,$1888053D,$37EB853E,$9215ABD7,$DE30ADFC,$1F1038E6,
+    $70C51C8A,$8D586C26,$F72BDD90,$4DC3CE15,$68EAEEFA,$D0E9C8B9,$200F9C44,$DDD141BA,
+    $024BF1D3,$0F64C9D4,$C421E9E9,$9D11C14C,$9A0DD9E4,$5F92EC19,$1B980DF0,$1DCC4542,
+    $B8FE8C56,$0C9C9167,$4E81EB49,$CA368F27,$E3603B37,$EA08ACCC,$AC516992,$C34F513B,
+    $804D100D,$6EDCA4C4,$FC912939,$29D219B0,$278AAA3C,$4868DA7D,$54E890B7,$B46D735A,
+    $514589AA,$D6C630AF,$4980DFE8,$BE3CCC55,$59D41202,$650C078B,$AF3A9E7B,$3ED9827A,
+    $9E79FC6E,$AADBFBAE,$C5F7D803,$3DAF7F50,$67B4F465,$73406E11,$39313F8C,$8A6E6686,
+    $D8075F1F,$D3CBFED1,$69C7E49C,$930581E0,$E4B1A5A8,$BBC45472,$09DDBF58,$C91D687E,
+    $BDBFFDA5,$88C08735,$E9E36BF9,$DB5EA9B6,$95559404,$08F432FB,$E24EA281,$64663579,
+    $000B8010,$7914E7D5,$32FD0473,$D1A7F0A4,$445AB98E,$EC72993F,$A29A4D32,$B77306D8,
+    $C7C97CF6,$7B6AB645,$F5EF7ADF,$FB2E15F7,$E747F757,$5E944354,$234A2669,$47E46359,
+    $9B9D11A9,$40762CED,$56F1DE98,$11334668,$890A9A70,$1A296113,$B3BD4AF5,$163B7548,
+    $D51B4F84,$B99B2ABC,$3CC1DC30,$A9F0B56C,$812272B2,$0B233A5F,$B650DBF2,$F1A0771B,
+    $36562B76,$DC037B0F,$104C97FF,$C2EC98D2,$90596F22,$28B6620B,$DF42B212,$FDBC4243,
+    $F3FB175E,$4A2D8B00,$E8F3869B,$30D69BC3,$853714C8,$A7751D2E,$31E56DEA,$D4840B0C,
+    $9685D783,$068C9333,$8FBA032C,$76D7BB47,$6D0EE22B,$B546794B,$D971B894,$8B09D253,
+    $A0AD5761,$EE77BA06,$46359F31,$577CC7EC,$52825EFD,$A4BEED95,$9825C52A,$EB48029A,
+    $BAAE59F8,$CF490EE1,$BC990164,$8CA49DFE,$4F38A6E7,$2BA98389,$8228F538,$199F64AC,
+    $01A1CAC5,$A8B51641,$5CE72D01,$8E5DF26B,$60F28E1E,$CD5BE125,$E5B376BF,$1C8D3116,
+    $7132CBB3,$CB7AE320,$C0FA5366,$D7653E34,$971C88C2,$C62C7DD0,$34D0A3DA,$868F6709,
+    $7AE6FA8F,$22BBD523,$66CD3D5B,$1EF9288D,$F9CF58C1,$5B784E80,$7439A191,$AE134C36,
+    $9116C463,$2E9E1396,$F8611F3A,$2D2F3307,$247F37DD,$C1E2FF9D,$43C821E5,$05ED5CAB,
+    $EF74E80A,$4CCA6028,$F0AC3CBD,$5D874B29,$6C62F6A6,$4B2A2EF3,$B1AA2087,$62A5D0A3,
+    $0327221C,$B096B4C6,$417EC693,$ABA840D6,$789725EB,$F4B9E02D,$E6E00975,$CC04961A,
+    $63F624BB,$7FA21ECB,$2C01EA7F,$B2415005,$2A8BBEB5,$83B2B14E,$A383D1A7,$5352F96A,
+    $043ECDAD,$CE1918A1,$FA6BE6C9,$50DEF36F,$F6B80CE2,$4543EF7C,$9953D651,$F257955D,
+    $87244914,$DA1E0A24,$FFDA4785,$14D327A2,$3B93C29F,$840684B4,$61AB71A0,$9F7B784A,
+    $2FD570CF,$15955BDE,$38F8D471,$3534A718,$133FB71D,$3FD80F52,$4290A8BE,$75FF44C7,
+    $A554E546,$E1023499,$BF2652E3,$7D20399E,$A1DF7E82,$177092EE,$217DD3F1,$7C1FF8D9),
+   ($12113F2E,$BFBD0785,$F11793FB,$A5BFF566,$83C7B0E5,$72FB316B,$75526A9A,$41E0E612,
+    $7156BA09,$53CE7DEE,$0AA26881,$A43E0D7D,$3DA73CA3,$182761ED,$BD5077FF,$56DB4AA0,
+    $E792711C,$F0A4EB1D,$7F878237,$EC65C4E8,$08DC8D43,$0F8CE142,$8258ABDA,$F4154E16,
+    $49DEC2FD,$CD8D5705,$6C2C3A0F,$5C12BB88,$EFF3CDB6,$2C89ED8C,$7BEBA967,$2A142157,
+    $C6D0836F,$B4F97E96,$6931E969,$514E6C7C,$A7792600,$0BBBF780,$59671BBD,$0707B676,
+    $37482D93,$80AF1479,$3805A60D,$E1F4CAC1,$580B3074,$30B8D6CE,$05A304BE,$D176626D,
+    $EBCA97F3,$BB201F11,$6A1AFE23,$FFAA86E4,$62B4DA49,$1B6629F5,$F5D9E092,$F37F3DD1,
+    $619BD45B,$A6EC8E4F,$29C80939,$0C7C0C34,$9CFE6E48,$E65FD3AC,$73613B65,$B3C669F9,
+    $BE2E8A9E,$286F9678,$5797FD13,$99805D75,$CFB641C5,$A91074BA,$6343AF47,$6403CB46,
+    $8894C8DB,$2663034C,$3C40DC5E,$00995231,$96789AA2,$2EFDE4B9,$7DC195E1,$547DADD5,
+    $06A8EA04,$F2347A63,$5E0DC6F7,$8462DFC2,$1E6B2C3C,$9BD275B3,$91D419E2,$BCEFD17E,
+    $B9003924,$D07E7320,$DEF0495C,$C36AD00E,$1785B1AB,$92E20BCF,$B139F0E9,$675BB9A1,
+    $AECFA4AF,$132376CB,$E84589D3,$79A05456,$A2F860BC,$1AE4F8B5,$20DF4DB4,$A1E1428B,
+    $3BF60A1A,$27FF7BF1,$CB44C0E7,$F7F587C4,$1F3B9B21,$94368F01,$856E23A4,$6F93DE3F,
+    $773F5BBF,$8B22056E,$DF41F654,$B8246FF4,$8D57BFF2,$D57167EA,$C5699F22,$40734BA7,
+    $5D5C2772,$033020A8,$E30A7C4D,$ADC40FD6,$76353441,$5AA5229B,$81516590,$DA49F14E,
+    $4FA672A5,$4D9FAC5F,$154BE230,$8A7A5CC0,$CE3D2F84,$CCA15514,$5221360C,$AF0FB81E,
+    $5BDD5873,$F6825F8F,$1113D228,$70AD996C,$93320051,$60471C53,$E9BA567B,$3A462AE3,
+    $5F55E72D,$1D3C5AD7,$DCFC45EC,$34D812EF,$FA96EE1B,$369D1EF8,$C9B1A189,$7C1D3555,
+    $50845EDC,$4BB31877,$8764A060,$8C9A9415,$230E1A3A,$B05E9133,$242B9E03,$A3B99DB7,
+    $C2D7FB0A,$3333849D,$D27278D4,$B5D3EFA6,$78AC28AD,$C7B2C135,$0926ECF0,$C1374C91,
+    $74F16D98,$2274084A,$3F6D9CFA,$7AC0A383,$B73AFF1F,$3909A23D,$9F1653AE,$4E2F3E71,
+    $CA5AB22A,$E01E3858,$90C5A7EB,$3E4A17DF,$AA987FB0,$488BBD62,$B625062B,$2D776BB8,
+    $43B5FC08,$1490D532,$D6D12495,$44E89845,$2FE60118,$9D9EF950,$AC38133E,$D3864329,
+    $017B255A,$FDC2DD26,$256851E6,$318E7086,$2BFA4861,$89EAC706,$EE5940C6,$68C3BC2F,
+    $E260334B,$98DA90BB,$F818F270,$4706D897,$212D3799,$4CF7E5D0,$D9C9649F,$A85DB5CD,
+    $35E90E82,$6B881152,$AB1C02C7,$46752B02,$664F598E,$45AB2E64,$C4CDB4B2,$BA42107F,
+    $EA2A808A,$971BF3DE,$4A54A836,$4253AECC,$1029BE68,$6DCC9225,$E4BCA56A,$C0AE50B1,
+    $7E011D94,$E59C162C,$D8E5C340,$D470FA0B,$B2BE79DD,$D783889C,$1CEDE8F6,$8F4C817A,
+    $DDB785C9,$860232D8,$198AAAD9,$A0814738,$3219CFFC,$169546D2,$FC0CB759,$55911510,
+    $04D5CEC3,$ED08CC3B,$0D6CF427,$C8E38CCA,$0EEEE3FE,$9EE7D7C8,$F9F24FA9,$DB04B35D,
+    $9AB0C9E0,$651F4417,$028F8B07,$6E28D9AA,$FBA96319,$8ED66687,$FECBC58D,$954DDB44),
+   ($7B0BDFFE,$865D16B1,$49A058C0,$97ABAA3F,$CAACC75D,$ABA6C17D,$F8746F92,$6F48AEED,
+    $8841D4B5,$F36A146A,$73C390AB,$E6FB558F,$87B1019E,$26970252,$246377B2,$CBF676AE,
+    $F923DB06,$F7389116,$14C81A90,$83114EB4,$8B137559,$95A86A7A,$D5B8DA8C,$C4DF780E,
+    $5A9CB3E2,$E44D4062,$E8DC8EF6,$9D180845,$817AD18B,$C286C85B,$251F20DE,$EE6D5933,
+    $F6EDEF81,$D4D16C1E,$C94A0C32,$8437FD22,$3271EE43,$42572AEE,$5F91962A,$1C522D98,
+    $59B23F0C,$D86B8804,$08C63531,$2C0D7A40,$B97C4729,$04964DF9,$13C74A17,$5878362F,
+    $4C808CD6,$092CB1E0,$6DF02885,$A0C2105E,$8ABA9E68,$64E03057,$E5D61325,$0E43A628,
+    $16DBD62B,$2733D90B,$3AE57283,$C0C1052C,$4B6FB620,$37513953,$FC898BB3,$471B179F,
+    $DF6E66B8,$D32142F5,$9B30FAFC,$4ED92549,$105C6D99,$4ACD69FF,$2B1A27D3,$6BFCC067,
+    $6301A278,$AD36E6F2,$EF3FF64E,$56B3CADB,$0184BB61,$17BEB9FD,$FAEC6109,$A2E1FFA1,
+    $2FD224F8,$238F5BE6,$8F8570CF,$AEB5F25A,$4F1D3E64,$4377EB24,$1FA45346,$B2056386,
+    $52095E76,$BB7B5ADC,$3514E472,$DDE81E6E,$7ACEA9C4,$AC15CC48,$71C97D93,$767F941C,
+    $911052A2,$FFEA09BF,$FE3DDCF0,$15EBF3AA,$9235B8BC,$75408615,$9A723437,$E1A1BD38,
+    $33541B7E,$1BDD6856,$B307E13E,$90814BB0,$51D7217B,$0BB92219,$689F4500,$C568B01F,
+    $5DF3D2D7,$3C0ECD0D,$2A0244C8,$852574E8,$E72F23A9,$8E26ED02,$2D92CBDD,$DABC0458,
+    $CDF5FEB6,$9E4E8DCC,$F4F1E344,$0D8C436D,$4427603B,$BDD37FDA,$80505F26,$8C7D2B8E,
+    $B73273C5,$397362EA,$618A3811,$608BFB88,$06F7D714,$212E4677,$28EFCEAD,$076C0371,
+    $36A3A4D9,$5487B455,$3429A365,$65D467AC,$78EE7EEB,$99BF12B7,$4D129896,$772A5601,
+    $CCE284C7,$2ED85C21,$D099E8A4,$A179158A,$6AC0AB1A,$299A4807,$BE67A58D,$DC19544A,
+    $B8949B54,$8D315779,$B6F849C1,$53C5AC34,$66DE92A5,$F195DD13,$318D3A73,$301EC542,
+    $0CC40DA6,$F253ADE4,$467EE566,$EA5585EC,$3BAF19BB,$7DE9F480,$79006E7C,$A9B7A197,
+    $A44BD8F1,$FB2BA739,$EC342FD4,$ED4FD32D,$3D1789BA,$400F5D7F,$C798F594,$4506A847,
+    $034C0A95,$E2162C9D,$55A9CFD0,$692D832E,$CF9DB2CA,$5E2287E9,$D2610EF3,$1AE7ECC2,
+    $48399CA0,$A7E4269B,$6EE3A0AF,$7065BFE1,$A6FFE708,$2256804C,$7476E21B,$41B0796C,
+    $7C243B05,$000A950F,$1858416B,$F5A53C89,$E9FEF823,$3F443275,$E0CBF091,$0AF27B84,
+    $3EBB0F27,$1DE6F7F4,$C31C29F7,$B166DE3D,$12932EC3,$9C0C0674,$5CDA81B9,$D1BD9D12,
+    $AFFD7C82,$8962BCA7,$A342C4A8,$62457151,$82089F03,$EB49C670,$5B5F6530,$7E28BAD2,
+    $20880BA3,$F0FAAFCD,$CE82B56F,$0275335C,$C18E8AFB,$DE601D69,$BA9B820A,$C8A2BE4F,
+    $D7CAC335,$D9A73741,$115E974D,$7F5AC21D,$383BF9C6,$BCAEB75F,$FD0350CE,$B5D06B87,
+    $9820E03C,$72D5F163,$E3644FC9,$A5464C4B,$57048FCB,$9690C9DF,$DBF9EAFA,$BFF4649A,
+    $053C00E3,$B4B61136,$67593DD1,$503EE960,$9FB4993A,$19831810,$C670D518,$B05B51D8,
+    $0F3A1CE5,$6CAA1F9C,$AACC31BE,$949ED050,$1EAD07E7,$A8479ABD,$D6CFFCD5,$936993EF),
+   ($472E91CB,$5444B5B6,$62BE5861,$1BE102C7,$63E4B31E,$E81F71B7,$9E2317C9,$39A408AE,
+    $518024F4,$1731C66F,$68CBC918,$71FB0C9E,$D03B7FDD,$7D6222EB,$9057EDA3,$1A34A407,
+    $8CC2253D,$B6F6979D,$835675DC,$F319BE9F,$BE1CD743,$4D32FEE4,$77E7D887,$37E9EBFD,
+    $15F851E8,$23DC3706,$19D78385,$BD506933,$A13AD4A6,$913F1A0E,$DDE560B9,$9A5F0996,
+    $A65A0435,$48D34C4D,$E90839A7,$8ABBA54E,$6FD13CE1,$C7EEBD3C,$0E297602,$58B9BBB4,
+    $EF7901E6,$64A28A62,$A509875A,$F8834442,$2702C709,$07353F31,$3B39F665,$F5B18B49,
+    $4010AE37,$784DE00B,$7A1121E9,$DE918ED3,$C8529DCD,$816A5D05,$02ED8298,$04E3DD84,
+    $FD2BC3E2,$AF167089,$96AF367E,$A4DA6232,$18FF7325,$05F9A9F1,$4FEFB9F9,$CD94EAA5,
+    $BFAA5069,$A0B8C077,$60D86F57,$FE71C813,$29EBD2C8,$4CA86538,$6BF1A030,$A237B88A,
+    $AA8AF41D,$E1F7B6EC,$E214D953,$33057879,$49CAA736,$FA45CFF3,$C063B411,$BA7E27D0,
+    $31533819,$2A004AC1,$210EFC3F,$2646885E,$66727DCF,$9D7FBF54,$A8DD0EA8,$3447CACE,
+    $3F0C14DB,$B8382AAC,$4ACE3539,$0A518D51,$95178981,$35AEE2CA,$73F0F7E3,$94281140,
+    $59D0E523,$D292CB88,$565D1B27,$7EC8FBAF,$069AF08D,$C127FD24,$0BC77B10,$5F03E7EF,
+    $453E99BA,$EED9FF7F,$87B55215,$7915AB4C,$D389A358,$5E75CE6D,$28D655C0,$DAD26C73,
+    $2E2510FF,$9FA7EECC,$1D0629C3,$DC9C9C46,$2D67ECD7,$E75E94BD,$3D649E2A,$6C413A2B,
+    $706F0D7C,$DFB0127B,$4E366B55,$2C825650,$24205720,$B5C998F7,$3E95462C,$756E5C72,
+    $3259488F,$11E8771A,$A7C0A617,$577663E5,$089B6401,$8EAB1941,$AE55EF8C,$3AAC5460,
+    $D4E6262F,$5D979A47,$B19823B0,$7F8D6A0C,$FFA08683,$0170CD0F,$858CD5D8,$53961C90,
+    $C4C61556,$41F2F226,$CFCD062D,$F24C03B8,$EA81DF5B,$7BE2FA52,$B361F98B,$C2901316,
+    $55BA4BBC,$93B234A9,$0FBC6603,$80A96822,$6D60491F,$22BD00F8,$BCAD5AAD,$52F3F13B,
+    $42FD2B28,$B41DD01C,$C52C93BF,$FC663094,$8F58D100,$43FECC08,$C6331E5D,$E6480F66,
+    $CA847204,$4BDF1DA0,$30CC2EFB,$13E02DEA,$FB49AC45,$F9D4434F,$F47C5B9C,$148879C2,
+    $039FC234,$A3DB9BFC,$D1A1DC5C,$763D7CD4,$ED6D2F93,$AB13AF6E,$1E8E054A,$D68F4F9A,
+    $C30484B3,$D7D50AFA,$6930855F,$CC07DB95,$CE746DB1,$744E967D,$F16CF575,$8643E8B5,
+    $F0EAE38E,$E52DE1D1,$6587DAE0,$0C4B8121,$1C7AC567,$AC0DB20A,$36C3A812,$5B1A4514,
+    $A9A3F868,$B9263BAA,$CB3CE9D2,$E44FB1A4,$9221BC82,$B29390FE,$6AB41863,$974A3E2E,
+    $89F531C5,$255CA13E,$8B65D348,$EC248F78,$D8FC16F0,$50ECDEEE,$09010792,$3C7D1FB2,
+    $EBA5426B,$847B417A,$468B40D9,$8DC4E680,$7CC1F391,$2F1EB086,$6E5BAA6A,$E0B395DA,
+    $E31B2CF6,$D9690B0D,$729EC464,$38403DDE,$610B80A2,$5CF433AB,$B0785FC4,$D512E4C6,
+    $BBB7D699,$5A86591B,$10CF5376,$12BF9F4B,$980FBAA1,$992A4E70,$20FA7AE7,$F7996EBB,
+    $C918A2BE,$82DE74F2,$AD54209B,$F66B4D74,$1FC5B771,$169D9229,$887761DF,$00B667D5,
+    $DB425E59,$B72F2844,$9B0AC1F5,$9C737E3A,$2B85476C,$6722ADD6,$44A63297,$0D688CED),
+   ($ABC59484,$4107778A,$8AD94C6F,$FE83DF90,$0F64053F,$D1292E9D,$C5744356,$8DD1ABB4,
+    $4C4E7667,$FB4A7FC1,$74F402CB,$70F06AFD,$A82286F2,$918DD076,$7A97C5CE,$48F7BDE3,
+    $6A04D11D,$AC243EF7,$33AC10CA,$2F7A341E,$5F75157A,$F4773381,$591C870E,$78DF8CC8,
+    $22F3ADB0,$251A5993,$09FBEF66,$796942A8,$97541D2E,$2373DAA9,$1BD2F142,$B57E8EB2,
+    $E1A5BFDB,$7D0EFA92,$B3442C94,$D2CB6447,$386AC97E,$66D61805,$BDADA15E,$11BC1AA7,
+    $14E9F6EA,$E533A0C0,$F935EE0A,$8FEE8A04,$810D6D85,$7C68B6D6,$4EDC9AA2,$956E897D,
+    $ED87581A,$264BE9D7,$FF4DDB29,$823857C2,$E005A9A0,$F1CC2450,$6F9951E1,$AADE2310,
+    $E70C75F5,$83E1A31F,$4F7DDE8E,$F723B563,$368E0928,$86362B71,$21E8982D,$DFB3F92B,
+    $44676352,$99EFBA31,$2EAB4E1C,$FC6CA5E7,$0EBE5D4E,$A0717D0C,$B64F8199,$946B31A1,
+    $5656CBC6,$CFFEC3EF,$622766C9,$FA211E35,$52F98B89,$6D01674B,$4978A802,$F651F701,
+    $15B0D43D,$D6FF4683,$3463855F,$672BA29C,$BC128312,$4626A70D,$C8927A5A,$B8481CF9,
+    $1C962262,$A21196BA,$BABA5EE9,$5BB162D0,$69943BD1,$0C47E35C,$8CC9619A,$E284D948,
+    $271BF264,$C27FB398,$4BC70897,$60CF202C,$7F42D6AA,$A5A13506,$5D3E8860,$CEA63D3C,
+    $63BF0A8F,$F02E9EFA,$B17B0674,$B072B1D3,$06E5723B,$3737E436,$24AA49C7,$0DED0D18,
+    $DB256B14,$58B27877,$ECB49F54,$6C40256A,$6EA92FFB,$3906AA4C,$C9866FD5,$4549323E,
+    $A7B85FAB,$1918CC27,$7308D7B5,$1E16C7AD,$71850B37,$3095FD78,$A63B70E6,$D880E2AE,
+    $3E282769,$A39BA6BC,$98700FA3,$F34C53E8,$288AF426,$B99D930F,$F5B99DF1,$E9D0C8CF,
+    $5AC8405D,$50E7217B,$511FBBBE,$2CA2E639,$C020301B,$356DBC00,$8E43DDB9,$4D327B4A,
+    $F20FF3ED,$1DBB29BD,$43D44779,$A1B68F70,$6114455B,$E63D280B,$6BF6FF65,$10FC39E5,
+    $3DAE126E,$C1D7CF11,$CB60B795,$1789D5B3,$9BCA36B7,$08306075,$84615608,$8B3A0186,
+    $E88FBECD,$7BA47C4D,$2DE44DAC,$653FE58D,$CCA0B968,$D7FA0E72,$93901780,$1F2C26CC,
+    $AE595B6B,$A9ECEA9B,$E3DBF8C4,$319CC130,$12981196,$01A3A4DE,$32C454B6,$755BD817,
+    $3CD871E4,$A48BB8DA,$02FDEC09,$FD2DC2E2,$9E578088,$9A9F916D,$4065FE6C,$1853999E,
+    $C7793F23,$DC1016BB,$969355FF,$7EF292F6,$CDCE4ADC,$05E24416,$85C16C46,$D441D37F,
+    $57BD6855,$8746F54F,$9CA773DF,$770BAE22,$54828413,$B75E4B19,$04C35C03,$BF7CCA07,
+    $2955C4DD,$721DB041,$B2394F33,$03F51387,$89B73C9F,$0B1737F3,$07E69024,$9231D245,
+    $76193861,$88159C15,$DEB552D9,$D9767E40,$20C6C0C3,$4281977C,$F8AFE1E0,$D32A0751,
+    $3FC27432,$DDF1DCC5,$68581F34,$3BCD5025,$0091B2EE,$4AEB6944,$1602E743,$EA09EB58,
+    $EF0A2A8B,$641E03A5,$EB50E021,$5C8CCEF8,$802FF0B8,$D5E3EDFE,$C4DD1B49,$5334CD2A,
+    $13F82D2F,$47450C20,$55DAFBD2,$BEC0C6F4,$B45D7959,$3AD36E8C,$0AA8AC57,$1A3C8D73,
+    $E45AAFB1,$9F664838,$C6880053,$D0039BBF,$EE5F19EB,$CA0041D8,$BBEA3AAF,$DA628291,
+    $9D5C95D4,$ADD504A6,$C39AB482,$5E9E14A4,$2BE065F0,$2A13FC3A,$9052E8EC,$AF6F5AFC),
+   ($519AA8B5,$BB303DA9,$E00E2B10,$DFA6C1DB,$2E6B952E,$EE10DC23,$37936D09,$1FC42E92,
+    $39B25A9F,$13FF89F4,$C8F53FEA,$18500BC7,$95A0379D,$98F751C2,$2289C42F,$A21E4098,
+    $6F391F41,$F27E7E58,$0D0DF887,$4B79D540,$8E8409AA,$71FE46F8,$688A9B29,$3F08B548,
+    $84ABE03A,$5E91B6C1,$FDE4C2AE,$251D0E72,$92D4FEE5,$F9371967,$9175108F,$E6E81835,
+    $8C8CB8EE,$B55A67B3,$CEF138CC,$8B256268,$00D815F5,$E8810812,$77826189,$EA73267D,
+    $19B90F8D,$45C33BB4,$82477056,$E1770075,$09467AA6,$A7C6F54A,$79768742,$61B86BCA,
+    $D6644A44,$E33F0171,$C229FBCD,$41B08FEB,$D1903E30,$65EC9080,$563D6FBD,$F56DA488,
+    $EBF64CD8,$4934426B,$7C8592FC,$6ACA8CF2,$1CEA111B,$3A57EE7A,$ACE11C0D,$9942D85E,
+    $C4613407,$FA8E643B,$327FC701,$4CA9BE82,$3352526D,$2C047F63,$F3A8F7DD,$1A4A98A8,
+    $762ED4D1,$27C75008,$BDF497C0,$7A7B84DF,$315C28AB,$801F93E3,$F19B0CA1,$8F14E46A,
+    $E48BA333,$9605E625,$F03ECB60,$60385F2D,$902845BA,$7F96D66F,$24BFF05C,$2820730B,
+    $947133CB,$D444828A,$B343F6F1,$0BEF4705,$8DA574F9,$01E25D6C,$1732793E,$4F0F7B27,
+    $364B7117,$B2D1DA77,$A6C5F1E9,$574CA5B1,$386A3076,$AD6894D6,$1156D7FA,$A48D1D9A,
+    $4794C0AF,$150C0AA0,$26D348AC,$29FDEABE,$A5DEDE53,$81671E8E,$594EE3BF,$A96C56E6,
+    $3426A726,$C5976579,$BC22E5E4,$C1006319,$DAAFDD2A,$A1A1AA83,$3BADD0E7,$C3B14981,
+    $D770B155,$CCD7C693,$42E944C5,$03E0064F,$CA95B4EF,$3DEE81C3,$FBBCD98C,$1E07E15B,
+    $667CE949,$E7D6773F,$21B6124B,$6B2A6EF7,$D3278A9C,$9A988304,$75D2AE9B,$FE49E2FF,
+    $9BC24F46,$74CC2CF6,$A3139F36,$6C9EF35A,$9FC1DFFE,$9E5FACDC,$AADC8BBB,$5ABDBC5F,
+    $44B3B390,$F754EFA7,$5FE3BDB7,$4E59C886,$06A4C984,$A0338878,$CD513CD7,$63EBD27E,
+    $8ABA80AD,$50DA144E,$5D9F4E97,$025B751C,$2D580200,$B6C05837,$580AA15D,$54022A6E,
+    $B41A5415,$4863FAB6,$B0B79957,$46D0D159,$DC2B8650,$20A7BB0C,$4A032974,$EC8636A2,
+    $8548F24C,$F6A2BF16,$1088F4B0,$0C2F3A94,$525DC396,$14065785,$2B4DCA52,$08AEED39,
+    $ABEDFC99,$B1DBCF18,$87F85BBC,$AE3AFF61,$433CCD70,$5B23CC64,$7B453213,$5355C545,
+    $9318EC0A,$78692D31,$0A21693D,$D5666814,$05FB59D9,$C71985B2,$2ABB8E0E,$CF6E6C91,
+    $D9CFE7C6,$EFE7132C,$9711AB28,$3CE52732,$12D516D2,$7209A0D0,$D278D306,$70FA4B7B,
+    $1D407DD3,$DB0BEBA4,$BFD97621,$A8BE21E1,$1B6F1B66,$30650DDA,$BA7DDBB9,$7DF953FB,
+    $9D1C3902,$EDF0E8D5,$B8741AE0,$0F240565,$62CD438B,$C616A924,$AF7A96A3,$35365538,
+    $E583AF4D,$73415EB8,$23176A47,$FC9CCEE8,$7EFC9DE2,$695E03CF,$F8CE66D4,$88B4781D,
+    $67DD9C03,$3E8F9E73,$C0C95C51,$BE314D22,$55AA0795,$CB1BB011,$E980FDC8,$9C62B7CE,
+    $DE2D239E,$042CADF3,$FFDF04DE,$5CE6A60F,$D8C831ED,$B7B5B9EC,$B9CBF962,$E253B254,
+    $0735BA1F,$16AC917F,$DD607C2B,$64A335C4,$40159A7C,$869222F0,$6EF21769,$839D20A5,
+    $D03B24C9,$F412601E,$6D72A243,$0E018DFD,$89F3721A,$C94F4134,$2F992F20,$4D87253C));
+
+  Tiger_Data: array[0..3, 0..511] of LongWord = (
+   ($F7E90C5E,$02AAB17C,$E243A8EC,$AC424B03,$0DD5FCD3,$72CD5BE3,$F6F97F3A,$6D019B93,
+    $D21F9193,$CD9978FF,$708029E2,$7573A1C9,$922A83C3,$B164326B,$04915870,$46883EEE,
+    $7103ECE6,$EAACE305,$08A3535C,$C54169B8,$8DDEC47C,$4CE75491,$DC0DF40C,$0AA2F4DF,
+    $A74DBEFA,$10B76F18,$5AD1AB6A,$C6CCB623,$572FE2FF,$13726121,$199D921E,$1A488C6F,
+    $DA0007CA,$4BC9F9F4,$E85241C7,$26F5E6F6,$EA5947B6,$859079DB,$C99E8C92,$4F1885C5,
+    $A96F864B,$D78E761E,$52B5C17D,$8E36428C,$373063C1,$69CF6827,$9BB4C56E,$B607C93D,
+    $0E76B5EA,$7D820E76,$F07FDC42,$645C9CC6,$243342E0,$BF38A078,$9D2E7D04,$5F6B343C,
+    $600B0EC6,$F2C28AEB,$7254BCAC,$6C0ED85F,$A4DB4FE5,$71592281,$CE0FED9F,$1967FA69,
+    $B96545DB,$FD5293F8,$F2A7600B,$C879E9D7,$0193194E,$86024892,$2D9CC0B3,$A4F9533B,
+    $15957613,$9053836C,$FC357BF1,$DB6DCF8A,$7A370F57,$18BEEA7A,$50B99066,$037117CA,
+    $74424A35,$6AB30A97,$E325249B,$F4E92F02,$061CCAE1,$7739DB07,$ECA42A05,$D8F3B49C,
+    $51382F73,$BD56BE3F,$43B0BB28,$45FAED58,$11BF1F83,$1C813D5C,$D75FA169,$8AF0E4B6,
+    $87AD9999,$33EE18A4,$B1C94410,$3C26E8EA,$C0A822F9,$B510102B,$0CE6123B,$141EEF31,
+    $59DDB154,$FC65B900,$C5E0E607,$E0158640,$26C3A3CF,$884E0798,$23C535FD,$930D0D95,
+    $4E9A2B00,$35638D75,$40469DD5,$4085FCCF,$8BE23A4C,$C4B17AD2,$6A3E6A2E,$CAB2F0FC,
+    $6B943FCD,$2860971A,$12E30446,$3DDE6EE2,$E01765AE,$6222F32A,$478308FE,$5D550BB5,
+    $A0EDA22A,$A9EFA98D,$86C40DA7,$C351A716,$9C867C84,$1105586D,$FDA22853,$DCFFEE85,
+    $2C5EEF76,$CCFBD026,$8990D201,$BAF294CB,$2AFAD975,$E69464F5,$DF133E14,$94B013AF,
+    $2823C958,$06A7D1A3,$30F61119,$6F95FE51,$462C06C0,$D92AB34E,$887C71D2,$ED7BDE33,
+    $6518393E,$79746D6E,$5D713329,$5BA41938,$48A97564,$7C1BA6B9,$7BFDAC67,$31987C19,
+    $4B053D02,$DE6C23C4,$D002D64D,$581C49FE,$38261571,$DD474D63,$E473D062,$AA4546C3,
+    $9455F860,$928FCE34,$CAAB94D9,$48161BBA,$770E6F68,$63912430,$02C6641C,$6EC8A5E6,
+    $337DDD2B,$87282515,$034B701B,$2CDA6B42,$81CB096D,$B03D37C1,$66C71C6F,$E1084382,
+    $EB51B255,$2B3180C7,$96C08BBC,$DF92B82F,$A632F3BA,$5C68C8C0,$1C3D0556,$5504CC86,
+    $5FB26B8F,$ABBFA4E5,$B3BACEB4,$41848B0A,$AA445D32,$B334A273,$A85AD881,$BCA696F0,
+    $B528D56C,$24F6EC65,$90F4524A,$0CE1512E,$5506D35A,$4E9DD79D,$C6CE9779,$258905FA,
+    $3E109B33,$2019295B,$73A054CC,$F8A9478B,$34417EB0,$2924F2F9,$536D1BC4,$3993357D,
+    $1DB6FF8B,$38A81AC2,$7D6016BF,$47C4FBF1,$7667E3F5,$1E0FAADD,$938BEB96,$7ABCFF62,
+    $8FC179C9,$A78DAD94,$2911E50D,$8F1F98B7,$27121A91,$61E48EAE,$31859808,$4D62F7AD,
+    $EF5CEAEB,$ECEBA345,$BC9684CE,$F5CEB25E,$B7F76221,$F633E20C,$AB8293E4,$A32CDF06,
+    $A5EE2CA4,$985A202C,$CC8A8FB1,$CF0B8447,$979859A3,$9F765244,$A1240017,$A8D516B1,
+    $BB5DC726,$0BD7BA3E,$B86ADB39,$E54BCA55,$6C478063,$1D7A3AFD,$E7669EDD,$519EC608,
+    $D149AA23,$0E5715A2,$848FF194,$177D4571,$41014C22,$EEB55F32,$3A6E2EC2,$0F5E5CA1,
+    $75F5C361,$8029927B,$C3D6E436,$AD139FAB,$4CCF402F,$0D5DF1A9,$BEA5DFC8,$3E8BD948,
+    $BD3FF77E,$A5A0D357,$1F74F645,$A2D12E25,$5E81A082,$66FD9E52,$7F687A49,$2E0C90CE,
+    $BA973BC5,$C2E8BCBE,$E509745F,$000001BC,$E6DAB3D6,$423777BB,$AEF06EB5,$D1661C7E,
+    $4DAACFD8,$A1781F35,$2B16AFFC,$2D11284A,$FA891D1F,$F1FC4F67,$CB920ADA,$73ECC25D,
+    $C2A12651,$AE610C22,$D356B78A,$96E0A810,$2FE7870F,$5A9A381F,$E94E5530,$D5AD62ED,
+    $368D1427,$D225E5E8,$C7AF4631,$65977B70,$DE39D74F,$99F889B2,$54E1D143,$233F30BF,
+    $D9A63C97,$9A9675D3,$F334F9A8,$5470554F,$4A4F5688,$166ACB74,$B2E4AEAD,$70C74CAA,
+    $6F294D12,$F0D09164,$684031D1,$57B82A89,$61BE0B6B,$EFD95A5A,$69F2F29A,$2FBD12E9,
+    $FEFF9FE8,$9BD37013,$D6085A06,$3F9B0404,$166CFE15,$4940C1F3,$CDF3DEFB,$09542C4D,
+    $85CD5CE3,$B4C52183,$4462A641,$C935B7DC,$8ED3B63F,$3417F8A6,$5B215B40,$B8095929,
+    $3B8C8572,$F99CDAEF,$F8FCB95D,$018C0614,$1A3ACDF3,$1B14ACCD,$00BB732D,$84D471F2,
+    $95E8DA16,$C1A3110E,$BF1A82B8,$430A7220,$39DF210E,$B77E090D,$3CD05E9D,$5EF4BD9F,
+    $7E57A444,$9D4FF6DA,$83D4A5F8,$DA1D60E1,$17998E47,$B287C384,$1BB31886,$FE3EDC12,
+    $980CCBEF,$C7FE3CCC,$189BFD03,$E46FB590,$9A4C57DC,$3732FD46,$7CF1AD65,$7EF700A0,
+    $A31D8859,$59C64468,$D45B61F6,$762FB0B4,$99047718,$155BAED0,$3D50BAA6,$68755E4C,
+    $22D8B4DF,$E9214E7F,$2EAC95F4,$2ADDBF53,$B4BD0109,$32AE3909,$B08E3450,$834DF537,
+    $4220728D,$FA209DA8,$9EFE23F7,$9E691D9B,$C4AE8D7F,$0446D288,$E169785B,$7B4CC524,
+    $35CA1385,$21D87F01,$137B8AA5,$CEBB400F,$580796BE,$272E2B66,$25C2B0DE,$36122641,
+    $AD1EFBB2,$057702BD,$ACF84BE9,$D4BABB8E,$641BC67B,$91583139,$8036E024,$8BDC2DE0,
+    $F49F68ED,$603C8156,$DBEF5111,$F7D236F7,$8AD21E80,$9727C459,$670A5FD7,$A08A0896,
+    $09EBA9CB,$CB4A8F43,$0F7036A1,$81AF564B,$78199ABD,$C0B99AA7,$3FC8E952,$959F1EC8,
+    $794A81B9,$8C505077,$056338F0,$3ACAAF8F,$627A6778,$07B43F50,$F5ECCC77,$4A44AB49,
+    $B679EE98,$3BC3D6E4,$CF14108C,$9CC0D4D1,$206BC8A0,$4406C00B,$C8D72D89,$82A18854,
+    $5C3C432C,$67E366B3,$102B37F2,$B923DD61,$D884271D,$56AB2779,$FF1525AF,$BE83E1B0,
+    $217E49A9,$FB7C65D4,$6D48E7D4,$6BDBE0E7,$45D9179E,$08DF8287,$DD53BD34,$22EA6A9A,
+    $5622200A,$E36E141C,$8CB750EE,$7F805D1B,$9F58E837,$AFE5C7A5,$4FB1C23C,$E27F996A,
+    $0775F0D0,$D3867DFB,$6E88891A,$D0E673DE,$AFB86C25,$123AEB9E,$C145B895,$30F1D5D5,
+    $EE7269E7,$BB434A2D,$F931FA38,$78CB67EC,$323BBF9C,$F33B0372,$FB279C74,$52D66336,
+    $0AFB4EAA,$505F33AC,$A2CCE187,$E8A5CD99,$1E2D30BB,$53497480,$D5876D90,$8D2D5711,
+    $91BC038E,$1F1A4128,$82E56648,$D6E2E71D,$497732B7,$74036C3A,$6361F5AB,$89B67ED9,
+    $F1EA02A2,$FFED95D8,$1464D43D,$E72B3BD6,$0BDC4820,$A6300F17,$ED78A77A,$EBC18760),
+   ($05A12138,$E6A6BE5A,$B4F87C98,$B5A122A5,$140B6990,$563C6089,$391F5DD5,$4C46CB2E,
+    $C9B79434,$D932ADDB,$2015AFF5,$08EA70E4,$3E478CF1,$D765A667,$AB278D99,$C4FB757E,
+    $2D6E0692,$DF11C686,$0D7F3B16,$DDEB84F1,$A665EA04,$6F2EF604,$F0E0DFB3,$4A8E0F0F,
+    $3DBCBA51,$A5EDEEF8,$0EA4371E,$FC4F0A2A,$5CB38429,$E83E1DA8,$BA1B1CE2,$DC8FF882,
+    $8353E80D,$CD45505E,$D4DB0717,$18D19A00,$A5F38101,$34A0CFED,$8887CAF2,$0BE77E51,
+    $B3C45136,$1E341438,$9089CCF9,$E05797F4,$F2591D14,$FFD23F9D,$8595C5CD,$543DDA22,
+    $99052A33,$661F81FD,$DB0F7B76,$8736E641,$418E5307,$15227725,$162EB2FA,$E25F7F46,
+    $6C13D9FE,$48A8B212,$92E76EEA,$AFDC5417,$C6D1898F,$03D912BF,$1B83F51B,$31B1AAFA,
+    $E42AB7D9,$F1AC2796,$FCD2EBAC,$40A3A7D7,$0AFBBCC5,$1056136D,$9A6D0C85,$7889E1DD,
+    $2A7974AA,$D3352578,$078AC09B,$A7E25D09,$EAC6EDD0,$BD4138B3,$71EB9E70,$920ABFBE,
+    $4FC2625C,$A2A5D0F5,$0B1290A3,$C054E36B,$62FE932B,$F6DD59FF,$11A8AC7D,$35373545,
+    $72FADCD4,$CA845E91,$329D20DC,$84F82B60,$CD672F18,$79C62CE1,$D124642C,$8B09A2AD,
+    $19D9E726,$D0C1E96A,$4BA9500C,$5A786A9B,$634C43F3,$0E020336,$EB66D822,$C17B474A,
+    $EC9BAAC2,$6A731AE3,$E0840258,$8226667A,$91CAECA5,$67D45676,$4875ADB5,$1D94155C,
+    $5B813FDF,$6D00FD98,$B774CD06,$51286EFC,$1FA744AF,$5E883447,$E761AE2E,$F72CA0AE,
+    $AEE8E09A,$BE40E4CD,$5118F665,$E9970BBB,$33DF1964,$726E4BEB,$29199762,$703B0007,
+    $F5EF30A7,$4631D816,$1504A6BE,$B880B5B5,$7ED84B6C,$641793C3,$F6E97D96,$7B21ED77,
+    $2EF96B73,$77630631,$E86FF3F4,$AE528948,$86A3F8F8,$53DBD7F2,$4CFC1063,$16CADCE7,
+    $FA52C6DD,$005C19BD,$64D46AD3,$68868F5D,$CF1E186A,$3A9D512C,$385660AE,$367E62C2,
+    $77DCB1D7,$E359E7EA,$749ABE6E,$526C0773,$D09F734B,$735AE5F9,$8A558BA8,$493FC7CC,
+    $3041AB45,$B0B9C153,$470A59BD,$321958BA,$5F46C393,$852DB00B,$D336B0E5,$91209B2B,
+    $659EF19F,$6E604F7D,$782CCB24,$B99A8AE2,$C814C4C7,$CCF52AB6,$BE11727B,$4727D9AF,
+    $0121B34D,$7E950D0C,$70AD471F,$756F4356,$615A6849,$F5ADD442,$80B9957A,$4E87E099,
+    $50AEE355,$2ACFA1DF,$FD2FD556,$D898263A,$D80C8FD6,$C8F4924D,$754A173A,$CF99CA3D,
+    $AF91BF3C,$FE477BAC,$D690C12D,$ED5371F6,$5E687094,$831A5C28,$3708A0A4,$C5D3C90A,
+    $17D06580,$0F7F9037,$B8FDF27F,$19F9BB13,$4D502843,$B1BD6F1B,$8FFF4012,$1C761BA3,
+    $E2E21F3B,$0D1530C4,$A7372C8A,$8943CE69,$FEB5CE66,$E5184E11,$BD736621,$618BDB80,
+    $8B574D0B,$7D29BAD6,$25E6FE5B,$81BB613E,$BC07913F,$071C9C10,$09AC2D97,$C7BEEB79,
+    $3BC5D757,$C3E58D35,$F38F61E8,$EB017892,$9B1CC21A,$D4EFFB9C,$F494F7AB,$99727D26,
+    $956B3E03,$A3E063A2,$4AA09C30,$9D4A8B9A,$00090FB4,$3F6AB7D5,$57268AC0,$9CC0F2A0,
+    $EDBF42D1,$3DEE9D2D,$7960A972,$330F49C8,$87421B41,$C6B27202,$7C00369C,$0AC59EC0,
+    $CB353425,$EF4EAC49,$EF0129D8,$F450244E,$CAF4DEB6,$8ACC46E5,$989263F7,$2FFEAB63,
+    $5D7A4578,$8F7CB9FE,$4E634635,$5BD8F764,$BF2DC900,$427A7315,$2125261C,$17D0C4AA,
+    $93518E50,$3992486C,$A2D7D4C3,$B4CBFEE0,$2C5DDD8D,$7C75D620,$E35B6C61,$DBC295D8,
+    $02032B19,$60B369D3,$DCE44132,$CE42685F,$DDF65610,$06F3DDB9,$B5E148F0,$8EA4D21D,
+    $2FCD496F,$20B0FCE6,$58B0EE31,$2C1B9123,$18F5A308,$B28317B8,$9CA6D2CF,$A89C1E18,
+    $6AAADBC8,$0C6B1857,$1299FAE3,$B65DEAA9,$7F1027E7,$FB2B794B,$443B5BEB,$04E4317F,
+    $5939D0A6,$4B852D32,$FB207FFC,$D5AE6BEE,$81C7D374,$309682B2,$94C3B475,$BAE309A1,
+    $13B49F05,$8CC3F97B,$F8293967,$98A9422F,$1076FF7C,$244B16B0,$663D67EE,$F8BF571C,
+    $EEE30DA1,$1F0D6758,$7ADEB9B7,$C9B611D9,$7B6C57A2,$B7AFD588,$6B984FE1,$6290AE84,
+    $ACC1A5FD,$94DF4CDE,$C5483AFF,$058A5BD1,$42BA3C37,$63166CC1,$B2F76F40,$8DB8526E,
+    $6F0D6D4E,$E1088003,$971D311D,$9E0523C9,$CC7CD691,$45EC2824,$E62382C9,$575B8359,
+    $C4889995,$FA9E400D,$45721568,$D1823ECB,$8206082F,$DAFD983B,$2386A8CB,$AA7D2908,
+    $03B87588,$269FCD44,$28BDD1E0,$1B91F5F7,$040201F6,$E4669F39,$8CF04ADE,$7A1D7C21,
+    $D79CE5CE,$65623C29,$96C00BB1,$23684490,$9DA503BA,$AB9BF187,$A458058E,$BC23ECB1,
+    $BB401ECC,$9A58DF01,$A85F143D,$A070E868,$7DF2239E,$4FF18830,$1A641183,$14D565B4,
+    $52701602,$EE133374,$3F285E09,$950E3DCF,$B9C80953,$59930254,$8930DA6D,$3BF29940,
+    $53691387,$A955943F,$A9CB8784,$A15EDECA,$352BE9A0,$29142127,$FF4E7AFB,$76F0371F,
+    $274F2228,$0239F450,$1D5E868B,$BB073AF0,$C10E96C1,$BFC80571,$68222E23,$D2670885,
+    $8E80B5B0,$9671A3D4,$E193BB81,$55B5D38A,$A18B04B8,$693AE2D0,$ADD5335F,$5C48B4EC,
+    $4916A1CA,$FD743B19,$34BE98C4,$25770181,$3C54A4AD,$E77987E8,$DA33E1B9,$28E11014,
+    $226AA213,$270CC59E,$6D1A5F60,$71495F75,$60AFEF77,$9BE853FB,$F7443DBF,$ADC786A7,
+    $73B29A82,$09044561,$C232BD5E,$58BC7A66,$673AC8B2,$F306558C,$B6C9772A,$41F639C6,
+    $9FDA35DA,$216DEFE9,$1C7BE615,$11640CC7,$565C5527,$93C43694,$46777839,$EA038E62,
+    $5A3E2469,$F9ABF3CE,$0FD312D2,$741E768D,$CED652C6,$0144B883,$A33F8552,$C20B5A5B,
+    $C3435A9D,$1AE69633,$088CFDEC,$97A28CA4,$1E96F420,$8824A43C,$6EEEA746,$37612FA6,
+    $F9CF0E5A,$6B4CB165,$A0ABFB4A,$43AA1C06,$F162796B,$7F4DC26F,$54ED9B0F,$6CBACC8E,
+    $D2BB253E,$A6B7FFEF,$B0A29D4F,$2E25BC95,$DEF1388C,$86D6A58B,$76B6F054,$DED74AC5,
+    $2B45805D,$8030BDBC,$E94D9289,$3C81AF70,$9E3100DB,$3EFF6DDA,$DFCC8847,$B38DC39F,
+    $8D17B87E,$12388552,$40B1B642,$F2DA0ED2,$D54BF9A9,$44CEFADC,$433C7EE6,$1312200E,
+    $3A78C748,$9FFCC84F,$248576BB,$F0CD1F72,$3638CFE4,$EC697405,$0CEC4E4C,$2BA7B67C,
+    $E5CE32ED,$AC2F4DF3,$26EA4C11,$CB33D143,$C77E58BC,$A4E9044C,$D934FCEF,$5F513293,
+    $06E55444,$5DC96455,$317DE40A,$50DE418F,$69DDE259,$388CB31A,$55820A86,$2DB4A834,
+    $84711AE9,$9010A91E,$B1498371,$4DF7F0B7,$C0977179,$D62A2EAB,$AA8D5C0E,$22FAC097),
+   ($F1DAF39B,$F49FCC2F,$6FF29281,$487FD5C6,$FCDCA83F,$E8A30667,$D2FCCE63,$2C9B4BE3,
+    $93FBBBC2,$DA3FF74B,$FE70BA66,$2FA165D2,$970E93D4,$A103E279,$B0E45E71,$BECDEC77,
+    $3985E497,$CFB41E72,$5EF75017,$B70AAA02,$3840B8E0,$D42309F0,$35898579,$8EFC1AD0,
+    $E2B2ABC5,$96C6920B,$375A9172,$66AF4163,$CA7127FB,$2174ABDC,$4A72FF41,$B33CCEA6,
+    $083066A5,$F04A4933,$D7289AF5,$8D970ACD,$31C8C25E,$8F96E8E0,$76875D47,$F3FEC022,
+    $056190DD,$EC7BF310,$BB0F1491,$F5ADB0AE,$0FD58892,$9B50F885,$58B74DE8,$49754883,
+    $91531C61,$A3354FF6,$81D2C6EE,$0702BBE4,$7DEDED98,$89FB2405,$8596E902,$AC307513,
+    $172772ED,$1D2D3580,$8E6BC30D,$EB738FC2,$63044326,$5854EF8F,$5ADD3BBE,$9E5C5232,
+    $325C4623,$90AA53CF,$349DD067,$C1D24D51,$A69EA624,$2051CFEE,$862E7E4F,$13220F0A,
+    $04E04864,$CE393994,$7086FCB7,$D9C42CA4,$8A03E7CC,$685AD223,$AB2FF1DB,$066484B2,
+    $EFBF79EC,$FE9D5D70,$9C481854,$5B13B9DD,$ED1509AD,$15F0D475,$0EC79851,$0BEBCD06,
+    $183AB7F8,$D58C6791,$52F3EEE4,$D1187C50,$E54E82FF,$C95D1192,$B9AC6CA2,$86EEA14C,
+    $53677D5D,$3485BEB1,$1F8C492A,$DD191D78,$A784EBF9,$F60866BA,$A2D08C74,$518F643B,
+    $E1087C22,$8852E956,$C410AE8D,$A768CB8D,$BFEC8E1A,$38047726,$CD3B45AA,$A67738B4,
+    $EC0DDE19,$AD16691C,$80462E07,$C6D43193,$0BA61938,$C5A5876D,$A58FD840,$16B9FA1F,
+    $3CA74F18,$188AB117,$C99C021F,$ABDA2F98,$134AE816,$3E0580AB,$73645ABB,$5F3B05B7,
+    $5575F2F6,$2501A2BE,$4E7E8BA9,$1B2F7400,$71E8D953,$1CD75803,$62764E30,$7F6ED895,
+    $596F003D,$B15926FF,$A8C5D6B9,$9F65293D,$D690F84C,$6ECEF04D,$FF33AF88,$4782275F,
+    $3F820801,$E4143308,$9A1AF9B5,$FD0DFE40,$2CDB396B,$4325A334,$B301B252,$8AE77E62,
+    $6655615A,$C36F9E9F,$92D32C09,$85455A2D,$49477485,$F2C7DEA9,$33A39EBA,$63CFB4C1,
+    $6EBC5462,$83B040CC,$FDB326B0,$3B9454C8,$87FFD78C,$56F56A9E,$99F42BC6,$2DC2940D,
+    $6B096E2D,$98F7DF09,$3AD852BF,$19A6E01E,$DBD4B40B,$42A99CCB,$45E9C559,$A59998AF,
+    $07D93186,$366295E8,$FAA1F773,$6B48181B,$157A0A1D,$1FEC57E2,$F6201AD5,$4667446A,
+    $CFB0F075,$E615EBCA,$68290778,$B8F31F4F,$CE22D11E,$22713ED6,$2EC3C93B,$3057C1A7,
+    $7C3F1F2F,$CB46ACC3,$02AAF50E,$DBB893FD,$600B9FCF,$331FD92E,$48EA3AD6,$A498F961,
+    $8B6A83EA,$A8D8426E,$B7735CDC,$A089B274,$1E524A11,$87F6B373,$CBC96749,$118808E5,
+    $B19BD394,$9906E4C7,$9B24A20C,$AFED7F7E,$EB3644A7,$6509EADE,$E8EF0EDE,$6C1EF1D3,
+    $E9798FB4,$B9C97D43,$740C28A3,$A2F2D784,$6197566F,$7B849647,$B65F069D,$7A5BE3E6,
+    $78BE6F10,$F96330ED,$7A076A15,$EEE60DE7,$A08B9BD0,$2B4BEE4A,$C7B8894E,$6A56A63E,
+    $BA34FEF4,$02121359,$283703FC,$4CBF99F8,$0CAF30C8,$39807135,$F017687A,$D0A77A89,
+    $9E423569,$F1C1A9EB,$2DEE8199,$8C797628,$DD1F7ABD,$5D1737A5,$09A9FA80,$4F53433C,
+    $DF7CA1D9,$FA8B0C53,$886CCB77,$3FD9DCBC,$A91B4720,$C040917C,$F9D1DCDF,$7DD00142,
+    $4F387B58,$8476FC1D,$F3316503,$23F8E7C5,$E7E37339,$032A2244,$50F5A74B,$5C87A5D7,
+    $3698992E,$082B4CC4,$B858F63C,$DF917BEC,$5BF86DDA,$3270B8FC,$29B5DD76,$10AE72BB,
+    $7700362B,$576AC94E,$C61EFB8F,$1AD112DA,$C5FAA427,$691BC30E,$CC327143,$FF246311,
+    $30E53206,$3142368E,$E02CA396,$71380E31,$0AAD76F1,$958D5C96,$C16DA536,$F8D6F430,
+    $1BE7E1D2,$C8FFD13F,$004DDBE1,$7578AE66,$067BE646,$05833F01,$3BFE586D,$BB34B5AD,
+    $A12B97F0,$095F34C9,$25D60CA8,$247AB645,$017477D1,$DCDBC6F3,$DECAD24D,$4A2E14D4,
+    $BE0A1EEB,$BDB5E6D9,$794301AB,$2A7E70F7,$270540FD,$DEF42D8A,$A34C22C1,$01078EC0,
+    $F4C16387,$E5DE511A,$BD9A330A,$7EBB3A52,$AA7D6435,$77697857,$03AE4C32,$004E8316,
+    $AD78E312,$E7A21020,$6AB420F2,$9D41A70C,$EA1141E6,$28E06C18,$984F6B28,$D2B28CBD,
+    $446E9D83,$26B75F6C,$4D418D7F,$BA47568C,$E6183D8E,$D80BADBF,$5F166044,$0E206D7F,
+    $11CBCA3E,$E258A439,$B21DC0BC,$723A1746,$F5D7CDD3,$C7CAA854,$3D261D9C,$7CAC3288,
+    $23BA942C,$7690C264,$478042B8,$17E55524,$56A2389F,$E0BE4776,$67AB2DA0,$4D289B5E,
+    $8FBBFD31,$44862B9C,$9D141365,$B47CC804,$2B91C793,$822C1B36,$FB13DFD8,$4EB14655,
+    $14E2A97B,$1ECBBA07,$5CDE5F14,$6143459D,$D5F0AC89,$53A8FBF1,$1C5E5B00,$97EA04D8,
+    $D4FDB3F3,$622181A8,$572A1208,$E9BCD341,$43CCE58A,$14112586,$A4C6E0A4,$9144C5FE,
+    $65CF620F,$0D33D065,$9F219CA1,$54A48D48,$6D63C821,$C43E5EAC,$72770DAF,$A9728B3A,
+    $20DF87EF,$D7934E7B,$1A3E86E5,$E35503B6,$C819D504,$CAE321FB,$AC60BFA6,$129A50B3,
+    $7E9FB6C3,$CD5E68EA,$9483B1C7,$B01C9019,$C295376C,$3DE93CD5,$2AB9AD13,$AED52EDF,
+    $C0A07884,$2E60F512,$E36210C9,$BC3D86A3,$163951CE,$35269D9B,$D0CDB5FA,$0C7D6E2A,
+    $D87F5733,$59E86297,$898DB0E7,$298EF221,$D1A5AA7E,$55000029,$B5061B45,$8BC08AE1,
+    $6C92703A,$C2C31C2B,$AF25EF42,$94CC596B,$22540456,$0A1D73DB,$D9C4179A,$04B6A0F9,
+    $AE3D3C60,$EFFDAFA2,$B49496C4,$F7C8075B,$1D1CD4E3,$9CC5C714,$218E5534,$78BD1638,
+    $F850246A,$B2F11568,$9502BC29,$EDFABCFA,$DA23051B,$796CE5F2,$DC93537C,$AAE128B0,
+    $EE4B29AE,$3A493DA0,$416895D7,$B5DF6B2C,$122D7F37,$FCABBD25,$105DC4B1,$70810B58,
+    $F7882A90,$E10FDD37,$518A3F5C,$524DCAB5,$8451255B,$3C9E8587,$19BD34E2,$40298281,
+    $5D3CECCB,$74A05B6F,$42E13ECA,$B6100215,$2F59E2AC,$0FF979D1,$E4F9CC50,$6037DA27,
+    $0DF1847D,$5E92975A,$D3E623FE,$D66DE190,$7B568048,$5032D6B8,$8235216E,$9A36B7CE,
+    $24F64B4A,$80272A7A,$8C6916F7,$93EFED8B,$4CCE1555,$37DDBFF4,$4B99BD25,$4B95DB5D,
+    $69812FC0,$92D3FDA1,$90660BB6,$FB1A4A9A,$46A4B9B2,$730C1969,$7F49DA68,$81E289AA,
+    $83B1A05F,$64669A0F,$9644F48B,$27B3FF7D,$8DB675B3,$CC6B615C,$BCEBBE95,$674F20B9,
+    $75655982,$6F312382,$3E45CF05,$5AE48871,$54C21157,$BF619F99,$40A8EAE9,$EABAC460,
+    $F2C0C1CD,$454C6FE9,$6412691C,$419CF649,$265B0F70,$D3DC3BEF,$C3578A9E,$6D0E60F5),
+   ($26323C55,$5B0E6085,$FA1B59F5,$1A46C1A9,$7C4C8FFA,$A9E245A1,$DB2955D7,$65CA5159,
+    $CE35AFC2,$05DB0A76,$A9113D45,$81EAC77E,$B6AC0A0D,$528EF88A,$597BE3FF,$A09EA253,
+    $AC48CD56,$430DDFB3,$F45CE46F,$C4B3A67A,$FBE2D05E,$4ECECFD8,$B39935F0,$3EF56F10,
+    $9CD619C6,$0B22D682,$74DF2069,$17FD460A,$8510ED40,$6CF8CC8E,$3A6ECAA7,$D6C824BF,
+    $1A817049,$61243D58,$BBC163A2,$048BACB6,$7D44CC32,$D9A38AC2,$AAF410AB,$7FDDFF5B,
+    $A804824B,$AD6D495A,$2D8C9F94,$E1A6A74F,$35DEE8E3,$D4F78512,$6540D893,$FD4B7F88,
+    $2AA4BFDA,$247C2004,$17D1327C,$096EA1C5,$361A6685,$D56966B4,$1221057D,$277DA5C3,
+    $A43ACFF7,$94D59893,$CDC02281,$64F0C51C,$FF6189DB,$3D33BCC4,$4CE66AF1,$E005CB18,
+    $1DB99BEA,$FF5CCD1D,$FE42980F,$B0B854A7,$718D4B9F,$7BD46A6A,$22A5FD8C,$D10FA8CC,
+    $2BE4BD31,$D3148495,$CB243847,$C7FA975F,$5846C407,$4886ED1E,$1EB70B04,$28CDDB79,
+    $F573417F,$C2B00BE2,$2180F877,$5C959045,$F370EB00,$7A6BDDFF,$D6D9D6A4,$CE509E38,
+    $647FA702,$EBEB0F00,$76606F06,$1DCC06CF,$A286FF0A,$E4D9F28B,$C918C262,$D85A305D,
+    $32225F54,$475B1D87,$68CCB5FE,$2D4FB516,$D72BBA20,$A679B9D9,$912D43A5,$53841C0D,
+    $BF12A4E8,$3B7EAA48,$F22F1DDF,$781E0E47,$0AB50973,$EFF20CE6,$9DFFB742,$20D261D1,
+    $062A2E39,$16A12B03,$39650495,$1960EB22,$D50EB8B8,$251C16FE,$F826016E,$9AC0C330,
+    $953E7671,$ED152665,$A6369570,$02D63194,$94B1C987,$5074F083,$90B25CE1,$70BA598C,
+    $0B9742F6,$794A1581,$FCAF8C6C,$0D5925E9,$D868744E,$3067716C,$E8D7731B,$910AB077,
+    $5AC42F61,$6A61BBDB,$F0851567,$93513EFB,$9E83E9D5,$F494724B,$5C09648D,$E887E198,
+    $75370CFD,$34B1D3C6,$BC0D255D,$DC35E433,$34131BE0,$D0AAB842,$B48B7EAF,$08042A50,
+    $44A3AB35,$9997C4EE,$201799D0,$829A7B49,$B7C54441,$263B8307,$FD6A6CA6,$752F95F4,
+    $2C08C6E5,$92721740,$A795D9EE,$2A8AB754,$2F72943D,$A442F755,$19781208,$2C31334E,
+    $EAEE6291,$4FA98D7C,$665DB309,$55C3862F,$5D53B1F3,$BD061017,$40413F27,$46FE6CB8,
+    $DF0CFA59,$3FE03792,$2EB85E8F,$CFE70037,$ADBCE118,$A7BE29E7,$DE8431DD,$E544EE5C,
+    $41F1873E,$8A781B1B,$A0D2F0E7,$A5C94C78,$77B60728,$39412E28,$AFC9A62C,$A1265EF3,
+    $6A2506C5,$BCC2770C,$DCE1CE12,$3AB66DD5,$4A675B37,$E65499D0,$81BFD216,$7D8F5234,
+    $EC15F389,$0F6F64FC,$8B5B13C8,$74EFBE61,$14273E1D,$ACDC82B7,$03199D17,$DD40BFE0,
+    $E7E061F8,$37E99257,$04775AAA,$FA526269,$463D56F9,$8BBBF63A,$43A26E64,$F0013F15,
+    $879EC898,$A8307E9F,$150177CC,$CC4C27A4,$CA1D3348,$1B432F2C,$9F6FA013,$DE1D1F8F,
+    $47A7DDD6,$606602A0,$CC1CB2C7,$D237AB64,$25FCD1D3,$9B938E72,$8E0FF476,$EC4E0370,
+    $3D03C12D,$FEB2FBDA,$EE43889A,$AE0BCED2,$EBFB4F43,$22CB8923,$3CF7396D,$69360D01,
+    $D2D4E022,$855E3602,$D01F784C,$073805BA,$3852F546,$33E17A13,$8AC7B638,$DF487405,
+    $678AA14A,$BA92B29C,$6CFAADCD,$0CE89FC7,$08339E34,$5F9D4E09,$1F5923B9,$F1AFE929,
+    $0F4A265F,$6E3480F6,$B29B841C,$EEBF3A2A,$8F91B4AD,$E21938A8,$45C6D3C3,$57DFEFF8,
+    $F62CAAF2,$2F006B0B,$6F75EE78,$62F479EF,$1C8916A9,$11A55AD4,$84FED453,$F229D290,
+    $16B000E6,$42F1C27B,$9823C074,$2B1F7674,$C2745360,$4B76ECA3,$B91691BD,$8C98F463,
+    $F1ADE66A,$14BCC93C,$6D458397,$8885213E,$274D4711,$8E177DF0,$503F2951,$B49B73B5,
+    $C3F96B6B,$10168168,$63CAB0AE,$0E3D963B,$55A1DB14,$8DFC4B56,$6E14DE5C,$F789F135,
+    $4E51DAC1,$683E68AF,$8D4B0FD9,$C9A84F9D,$52A0F9D1,$3691E03F,$E1878E80,$5ED86E46,
+    $99D07150,$3C711A0E,$0C4E9310,$5A0865B2,$E4F0682E,$56FBFC1F,$105EDF9B,$EA8D5DE3,
+    $2379187A,$71ABFDB1,$BEE77B9C,$2EB99DE1,$33CF4523,$21ECC0EA,$1805C7A1,$59A4D752,
+    $56AE7C72,$3896F5EB,$B18F75DC,$AA638F3D,$ABE9808E,$9F39358D,$C00B72AC,$B7DEFA91,
+    $62492D92,$6B5541FD,$F92E4D5B,$6DC6DEE8,$C4BEEA7E,$353F57AB,$DA5690CE,$735769D6,
+    $42391484,$0A234AA6,$28F80D9D,$F6F95080,$7AB3F215,$B8E319A2,$51341A4D,$31AD9C11,
+    $7BEF5805,$773C22A5,$07968633,$45C7561A,$249DBE36,$F913DA9E,$78A64C68,$DA652D9B,
+    $3BC334EF,$4C27A97F,$E66B17F4,$76621220,$9ACD7D0B,$96774389,$E0ED6782,$F3EE5BCA,
+    $00C879FC,$409F7536,$B5926DB6,$06D09A39,$317AC588,$6F83AEB0,$86381F21,$01E6CA4A,
+    $D19F3025,$66FF3462,$DDFD3BFB,$72207C24,$E2ECE2EB,$4AF6B6D3,$C7EA08DE,$9C994DBE,
+    $B09A8BC4,$49ACE597,$CF0797BA,$B38C4766,$C57C2A75,$131B9373,$61931E58,$B1822CCE,
+    $09BA1C0C,$9D7555B9,$937D11D2,$127FAFDD,$C66D92E4,$29DA3BAD,$54C2ECBC,$A2C1D571,
+    $82F6FE24,$58C5134D,$5B62274F,$1C3AE351,$01CB8126,$E907C82E,$13E37FCB,$F8ED0919,
+    $C80046C9,$3249D8F9,$E388FB63,$80CF9BED,$116CF19E,$1881539A,$6BD52457,$5103F3F7,
+    $AE47F7A8,$15B7E6F5,$D47E9CCF,$DBD7C6DE,$0228BB1A,$44E55C41,$5EDB4E99,$B647D425,
+    $B8AAFC30,$5D11882B,$29D3212A,$F5098BBB,$E90296B3,$8FB5EA14,$57DD025A,$677B9421,
+    $A390ACB5,$FB58E7C0,$83BD4A01,$89D3674C,$4BF3B93B,$9E2DA4DF,$8CAB4829,$FCC41E32,
+    $BA582C52,$03F38C96,$7FD85DB2,$CAD1BDBD,$6082AE83,$BBB442C1,$A5DA9AB0,$B95FE86B,
+    $3771A93F,$B22E0467,$493152D8,$845358C9,$97B4541E,$BE2A4886,$D38E6966,$95A2DC2D,
+    $923C852B,$C02C11AC,$0DF2A87B,$2388B199,$1B4F37BE,$7C8008FA,$4D54E503,$1F70D0C8,
+    $7ECE57D4,$5490ADEC,$D9063A3A,$002B3C27,$8030A2BF,$7EAEA384,$ED2003C0,$C602326D,
+    $69A94086,$83A7287D,$30F57A8A,$C57A5FCB,$79EBE779,$B56844E4,$05DCBCE9,$A373B40F,
+    $88570EE2,$D71A786E,$BDE8F6A0,$879CBACD,$C164A32F,$976AD1BC,$9666D78B,$AB21E25E,
+    $E5E5C33C,$901063AA,$48698D90,$9818B344,$3E1E8ABB,$E36487AE,$893BDCB4,$AFBDF931,
+    $5FBBD519,$6345A0DC,$9B9465CA,$8628FE26,$3F9C51EC,$1E5D0160,$A15049B7,$4DE44006,
+    $F776CBB1,$BF6C70E5,$EF552BED,$411218F2,$705A36A3,$CB0C0708,$4F986044,$E74D1475,
+    $0EA8280E,$CD56D943,$535F5065,$C12591D7,$720AEF96,$C83223F1,$7363A51F,$C3A0396F));
+
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHash.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHash.pas
new file mode 100644
index 0000000..f034faf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROHash.pas	
@@ -0,0 +1,4038 @@
+{Copyright:      Hagen Reddmann  mailto:HaReddmann@AOL.COM
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        3.0,  Part I from Delphi Encryption Compendium (DEC Part I)
+                 Delphi 2-4, BCB 3-4, designed and testet under D3 and D4
+ Description:    Include Objects for calculating various RO_Hash's (fingerprints)
+                 used RO_Hash-Algorithm:
+                   MD4, MD5, SHA, SHA1, RipeMD (128 - 320),
+                   Haval (128 - 256), Snefru, Square, Tiger,
+                   Sapphire II (128 - 320)
+                 used Checksum-Algo:
+                   CRC32, XOR32bit, XOR16bit, CRC16-CCITT, CRC16-Standard
+
+ Comments:       for Designer's, the Buffer from Method Transform must be readonly
+
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
+ * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+ * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+ * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+ * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Digest size, Result from DigestKeySize and Datasize for Digest
+   MD4         16 byte   128 bit   4x Integer
+   MD5         16 byte   128 bit   4x Integer
+   SHA         20 byte   160 bit   5x Integer
+   SHA1        20 byte   160 bit   5x Integer
+   RMD128      16 byte   128 bit   4x Integer
+   RMD160      20 byte   160 bit   5x Integer
+   RMD256      32 byte   256 bit   8x Integer
+   RMD320      40 byte   320 bit  10x Integer
+   Haval256    32 byte   256 bit   8x Integer
+   Haval224    28 byte   224 bit   7x Integer
+   Haval192    24 byte   192 bit   6x Integer
+   Haval160    20 byte   160 bit   5x Integer
+   Haval128    16 byte   128 bit   4x Integer
+   Sapphire320 40 byte   320 bit  10x Integer
+   Sapphire288 36 byte   288 bit   9x Integer
+   Sapphire256 32 byte   256 bit   8x Integer
+   Sapphire224 28 byte   224 bit   7x Integer
+   Sapphire192 24 byte   192 bit   6x Integer
+   Sapphire160 20 byte   160 bit   5x Integer
+   Sapphire128 16 byte   128 bit   4x Integer
+   Snefru      32 byte   256 bit   8x Integer
+   Square      16 byte   128 bit   4x Integer
+   Tiger       24 byte   192 bit   6x Integer   in D4 used 64bit Arithmetic
+
+   XOR16     2 byte    16 bit   1x Word
+   XOR32     4 byte    32 bit   1x Integer
+   CRC32     4 byte    32 bit   1x Integer
+   CRC16     2 byte    16 bit   1x Word
+}
+
+unit uROHash;
+
+interface
+
+uses SysUtils, Classes, Windows, uRODECUtil;
+
+{$I uROVer.inc}
+
+type
+{all RO_Hash Classes}
+  TROHash_MD4             = class;
+  TROHash_MD5             = class;
+  TROHash_RipeMD128       = class;
+  TROHash_RipeMD160       = class;
+  TROHash_RipeMD256       = class;
+  TROHash_RipeMD320       = class;
+  TROHash_SHA             = class;
+  TROHash_SHA1            = class;
+  TROHash_Haval256        = class;
+  TROHash_Haval224        = class;
+  TROHash_Haval192        = class;
+  TROHash_Haval160        = class;
+  TROHash_Haval128        = class;
+  TROHash_Snefru          = class;
+  TROHash_Tiger           = class;
+  TROHash_Sapphire320     = class; {demonstrate the using from a RO_Cipher to hashing}
+  TROHash_Sapphire288     = class;
+  TROHash_Sapphire256     = class;
+  TROHash_Sapphire224     = class;
+  TROHash_Sapphire192     = class;
+  TROHash_Sapphire160     = class;
+  TROHash_Sapphire128     = class;
+  TROHash_Square          = class; {demonstrate the using from a RO_Cipher to hashing}
+{all Checksum Classes}
+  TROHash_XOR16           = class;
+  TROHash_XOR32           = class;
+  TROHash_CRC16_CCITT     = class;
+  TROhash_CRC16_Standard  = class;
+  TROHash_CRC32           = class;
+
+
+ {the Base-Class of all Hashs}
+
+  TROHashClass = class of TROHash;
+
+  TROHash = class(TROProtection)
+  protected
+    class function TestVector: Pointer; virtual; {must override}
+    procedure CodeInit(Action: TPAction); override; {TROProtection Methods, You can use a RO_Hash to En/Decode}
+    procedure CodeDone(Action: TPAction); override; {TROProtection Methods}
+    procedure CodeBuf(var Buffer; const BufferSize: Integer; Action: TPAction); override; {TROProtection Methods}
+    procedure Protect(IsInit: Boolean); {calls any installed Protection}
+  public
+    destructor Destroy; override;
+    procedure Init; virtual;
+    procedure Calc(const Data; DataSize: Integer); virtual; {must override}
+    procedure Done; virtual;
+    function DigestKey: Pointer; virtual; {must override}
+    function DigestStr(Format: Integer): AnsiString;
+
+    class function DigestKeySize: Integer; virtual; {must override}
+{$IFDEF VER_D4H} // new features from D4
+    class function CalcBuffer(const Buffer; BufferSize: Integer; Protection: TROProtection = nil; Format: Integer = fmtDEFAULT): AnsiString; overload;
+    class function CalcStream(const Stream: TStream; StreamSize: Integer; Protection: TROProtection = nil; Format: Integer = fmtDEFAULT): AnsiString; overload;
+    class function CalcString(const Data: AnsiString; Protection: TROProtection = nil; Format: Integer = fmtDEFAULT): AnsiString; overload;
+    class function CalcFile(const FileName: String; Protection: TROProtection = nil; Format: Integer = fmtDEFAULT): AnsiString; overload;
+{$ELSE}
+    class function CalcBuffer(const Buffer; BufferSize: Integer; Protection: TROProtection; Format: Integer): AnsiString;
+    class function CalcStream(const Stream: TStream; StreamSize: Integer; Protection: TROProtection; Format: Integer): AnsiString;
+    class function CalcString(const Data: AnsiString; Protection: TROProtection; Format: Integer): AnsiString;
+    class function CalcFile(const FileName: String; Protection: TROProtection; Format: Integer): AnsiString;
+{$ENDIF}
+{test the correct working}
+    class function SelfTest: Boolean;
+  end;
+
+// HMAC's - RO_Hash Message Authentication Code's
+  TROMAC = class(TROProtection) // generic MAC, encrypt Password with any AProtection and XOR's with
+  protected                 // the Initstate from the RO_Hash (DigestKey)
+    FPassword: AnsiString;      // final Digest is encrypted with AProtecion
+    procedure Init(RO_Hash: TROHash); virtual;    // Only used in all TROHash Descends
+    procedure Done(RO_Hash: TROHash); virtual;    // Only used in all TROHash Descends
+  public
+    constructor Create(const Password: AnsiString; AProtection: TROProtection);
+    destructor Destroy; override;
+  end;
+
+  TROMAC_RFC2104 = class(TROMAC) // RFC2104 HMAC Protection, these make from any THash_XXX an HMAC-XXXX
+  private                    // full compatible with RFC2104 Standard, see Docus\RFC2104 & RFC2202
+    function CalcPad(RO_Hash: TROHash; XORCode: Byte): AnsiString;
+  protected
+    procedure Init(RO_Hash: TROHash); override;
+    procedure Done(RO_Hash: TROHash); override;
+  end;
+
+  TROHash_MD4 = class(TROHash)
+  private
+    FCount: LongWord;
+    FBuffer: array[0..63] of Byte;
+    FDigest: array[0..9] of LongWord;
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray); virtual;
+  public
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+    procedure Done; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+    function DigestKey: Pointer; override;
+  end;
+
+  TROHash_MD5 = class(TROHash_MD4)
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray); override;
+  end;
+
+  TROHash_RipeMD128 = class(TROHash_MD4) {RACE Integrity Primitives Evaluation Message Digest}
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray); override;
+  end;
+
+  TROHash_RipeMD160 = class(TROHash_MD4)
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray); override;
+  public
+{DigestKey-Size 160 bit}
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_RipeMD256 = class(TROHash_MD4)
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray); override;
+  public
+{DigestKey-Size 256 bit}
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+  end;
+
+  TROHash_RipeMD320 = class(TROHash_MD4)
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray); override;
+  public
+{DigestKey-Size 320 bit}
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_SHA = class(TROHash_RipeMD160)
+  private
+    FRotate: Boolean;
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray); override;
+  public
+    procedure Done; override;
+  end;
+
+  TROHash_SHA1 = class(TROHash_SHA)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    procedure Init; override;
+  end;
+
+  TROHash_Haval256 = class(TROHash)  {default Rounds = 5}
+  private
+    FCount: Integer;
+    FBuffer: array[0..127] of Byte;
+    FDigest: array[0..7] of LongWord;
+    FRounds: Integer; {3 - 5}
+    FTransform: procedure(Buffer: PIntArray) of Object;
+    procedure SetRounds(Value: Integer);
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform3(Buffer: PIntArray);
+    procedure Transform4(Buffer: PIntArray);
+    procedure Transform5(Buffer: PIntArray);
+  public
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+    procedure Done; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+    function DigestKey: Pointer; override;
+    property Rounds: Integer read FRounds write SetRounds;
+  end;
+
+  TROHash_Haval224 = class(TROHash_Haval256) {default Rounds = 4}
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Haval192 = class(TROHash_Haval256)  {default Rounds = 4}
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Haval160 = class(TROHash_Haval256) {default Rounds = 3}
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Haval128 = class(TROHash_Haval256)  {default Rounds = 3}
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Snefru = class(TROHash)  {"derived from the Xerox Secure RO_Hash Function"}
+  private
+    FSecurity_Level: Integer;
+    FCount: Integer;
+    FDigest: array[0..15] of LongWord; {first 8 Integer is the Digest}
+    FBuffer: array[0..31] of Byte;
+    procedure SetSecurity_Level(Value: Integer);
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray);
+  public
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+    procedure Done; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+    function DigestKey: Pointer; override;
+{can set from 2 to 8, default is 8}
+    property Security_Level: Integer read FSecurity_Level write SetSecurity_Level;
+  end;
+
+  TROHash_Tiger = class(TROHash_MD4)  {Tiger use 64bit Operation's}
+  private
+    FRounds: Integer; { 3 - 32 , default is 3 , >3 slower but higher Security}
+    procedure SetRounds(Value: Integer);
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray); override;
+  public
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+    procedure Done; override;
+    property Rounds: Integer read FRounds write SetRounds;
+  end;
+
+  TROHash_Sapphire320 = class(TROHash)
+  private
+    FCount: LongWord;
+    FRotor: Byte;
+    FRatchet: Byte;
+    FAvalanche: Byte;
+    FPlain: Byte;
+    FCipher: Byte;
+    FCards: array[0..255] of Byte;
+    FDigest: array[0..9] of LongWord;
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+    procedure Done; override;
+    function DigestKey: Pointer; override;
+  end;
+
+  TROHash_Sapphire288 = class(TROHash_Sapphire320)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Sapphire256 = class(TROHash_Sapphire320)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Sapphire224 = class(TROHash_Sapphire320)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Sapphire192 = class(TROHash_Sapphire320)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Sapphire160 = class(TROHash_Sapphire320)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Sapphire128 = class(TROHash_Sapphire320)
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+  end;
+
+  TROHash_Square = class(TROHash)
+  private
+    FCount: Integer;
+    FBuffer: array[0..15] of Byte;
+    FDigest: array[0..3] of LongWord;
+  protected
+    class function TestVector: Pointer; override;
+    procedure Transform(Buffer: PIntArray);
+  public
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+    procedure Done; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+    function DigestKey: Pointer; override;
+  end;
+
+  TROChecksum = class(TROHash);
+  
+  TROHash_XOR16 = class(TROChecksum)
+  private
+    FCRC: Word;
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+    function DigestKey: Pointer; override;
+  end;
+
+  TROHash_XOR32 = class(TROChecksum)
+  private
+    FCRC: LongWord;
+  protected
+    class function TestVector: Pointer; override;
+  public
+    class function DigestKeySize: Integer; override;
+    procedure Init; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+    function DigestKey: Pointer; override;
+  end;
+
+  TROHash_CRC32 = class(TROHash_XOR32)
+  private
+  protected
+    class function TestVector: Pointer; override;
+  public
+    procedure Init; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+    procedure Done; override;
+  end;
+
+  TROHash_CRC16_CCITT = class(TROHash_XOR16)
+  private
+  protected
+    class function TestVector: Pointer; override;
+  public
+    procedure Init; override;
+    procedure Calc(const Data; DataSize: Integer); override;
+  end;
+
+  TROhash_CRC16_Standard = class(TROHash_XOR16)
+  private
+  protected
+    class function TestVector: Pointer; override;
+  public
+    procedure Calc(const Data; DataSize: Integer); override;
+  end;
+
+function DefaultHashClass: TROHashClass;
+procedure SetDefaultHashClass(HashClass: TROHashClass);
+function RegisterHash(const AHash: TROHashClass; const AName, ADescription: String): Boolean;
+function UnregisterHash(const AHash: TROHashClass): Boolean;
+function HashList: TStrings;
+procedure HashNames(List: TStrings);
+function GetHashClass(const Name: String): TROHashClass;
+function GetHashName(HashClass: TROHashClass): String;
+
+implementation
+
+{$I *.inc}
+{$I uROSquare.inc}
+
+const
+// used as default for TROCipher in .InitKey(),
+// the hashed Password is used as real Key,
+// RipeMD256 produce a 256 bit Key (32 Bytes)
+// a Key Attack have 2^256 Variants to test, when the
+// RO_Cipher all Bit's use, i.E. Blowfish, Gost, SCOP, Twofish
+  FDefaultHashClass: TROHashClass = TROHash_RipeMD256;
+  FHashList: TStringList = nil;
+
+// RFC2104 HMAC Algorithm Parameters
+  RFC2104_Size = 64;  // Size of Padding in Bytes
+  RFC2104_IPad = $36; // XOR Value from Inner Pad
+  RFC2104_OPad = $5C; // XOR Value from outer Pad
+
+function DefaultHashClass: TROHashClass;
+begin
+  Result := FDefaultHashClass;
+end;
+
+procedure SetDefaultHashClass(HashClass: TROHashClass);
+begin
+  if HashClass = nil then FDefaultHashClass := TROHash_RipeMD256
+    else FDefaultHashClass := HashClass;
+end;
+
+function RegisterHash(const AHash: TROHashClass; const AName, ADescription: String): Boolean;
+var
+  I: Integer;
+  S: String;
+begin
+  Result := False;
+  if AHash = nil then Exit;
+  S := Trim(AName);
+  if S = '' then
+  begin
+    S := AHash.ClassName;
+    if S[1] = 'T' then Delete(S, 1, 1);
+    I := Pos('_', S);
+    if I > 0 then Delete(S, 1, I);
+  end;
+  S := S + '=' + ADescription;
+  I := HashList.IndexOfObject(Pointer(AHash));
+  if I < 0 then HashList.AddObject(S, Pointer(AHash))
+    else HashList[I] := S;
+  Result := True;
+end;
+
+function UnregisterHash(const AHash: TROHashClass): Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  repeat
+    I := HashList.IndexOfObject(Pointer(AHash));
+    if I < 0 then Break;
+    Result := True;
+    HashList.Delete(I);
+  until False;
+end;
+
+function HashList: TStrings;
+begin
+  if not IsObject(FHashList, TStringList) then FHashList := TStringList.Create;
+  Result := FHashList;
+end;
+
+procedure HashNames(List: TStrings);
+var
+  I: Integer;
+begin
+  if not IsObject(List, TStrings) then Exit;
+  for I := 0 to HashList.Count-1 do
+    List.AddObject(FHashList.Names[I], FHashList.Objects[I]);
+end;
+
+function GetHashClass(const Name: String): TROHashClass;
+var
+  I: Integer;
+  N: String;
+begin
+  Result := nil;
+  N := Name;
+  I := Pos('_', N);
+  if I > 0 then Delete(N, 1, I);
+  for I := 0 to HashList.Count-1 do
+    if AnsiCompareText(N, GetShortClassName(TClass(FHashList.Objects[I]))) = 0 then
+    begin
+      Result := TROHashClass(FHashList.Objects[I]);
+      Exit;
+    end;
+  I := FHashList.IndexOfName(N);
+  if I >= 0 then Result := TROHashClass(FHashList.Objects[I]);
+end;
+
+function GetHashName(HashClass: TROHashClass): String;
+var
+  I: Integer;
+begin
+  I := HashList.IndexOfObject(Pointer(HashClass));
+  if I >= 0 then Result := FHashList.Names[I]
+    else Result := GetShortClassName(HashClass);
+end;
+
+destructor TROHash.Destroy;
+begin
+  FillChar(DigestKey^, DigestKeySize, 0);
+  inherited Destroy;
+end;
+
+procedure TROHash.Init;
+begin
+  Protect(True);
+end;
+
+procedure TROHash.Calc(const Data; DataSize: Integer);
+begin
+end;
+
+procedure TROHash.Protect(IsInit: Boolean);
+begin
+  if Protection <> nil then
+    if IsObject(Protection, TROMAC) then
+    begin
+      with TROMAC(Protection) do
+        if IsInit then Init(Self) else Done(Self);
+    end else
+      if not IsInit then
+        Protection.CodeBuffer(DigestKey^, DigestKeySize, paScramble);
+end;
+
+procedure TROHash.Done;
+begin
+  Protect(False);
+end;
+
+function TROHash.DigestKey: Pointer;
+begin
+  Result := GetTestVector;
+end;
+
+class function TROHash.DigestKeySize: Integer;
+begin
+  Result := 0;
+end;
+
+function TROHash.DigestStr(Format: Integer): AnsiString;
+begin
+  Result := StrToFormat(DigestKey, DigestKeySize, Format);
+end;
+
+class function TROHash.TestVector: Pointer;
+begin
+  Result := GetTestVector;
+end;
+
+class function TROHash.CalcStream(const Stream: TStream; StreamSize: Integer; Protection: TROProtection; Format: Integer): AnsiString;
+const
+  maxBufSize = 1024 * 4;  {Buffersize for File, Stream-Access}
+var
+  Buf: Pointer;
+  BufSize: Integer;
+  Size: Integer;
+  RO_Hash: TROHash;
+begin
+  RO_Hash := Create(Protection);
+  with RO_Hash do
+  try
+    Buf := AllocMem(maxBufSize);
+    Init;
+    if StreamSize < 0 then
+ {if Size < 0 then reset the Position, otherwise, calc with the specific
+  Size and from the aktual Position in the Stream}
+    begin
+      Stream.Position := 0;
+      StreamSize := Stream.Size;
+    end;
+    Size := StreamSize;
+    DoProgress(RO_Hash, 0, Size);
+    repeat
+      BufSize := StreamSize;
+      if BufSize > maxBufSize then BufSize := maxBufSize;
+      BufSize := Stream.Read(Buf^, BufSize);
+      if BufSize <= 0 then Break;
+      Calc(Buf^, BufSize);
+      Dec(StreamSize, BufSize);
+      DoProgress(RO_Hash, Size - StreamSize, Size);
+    until BufSize <= 0;
+    Done;
+    Result := StrToFormat(DigestKey, DigestKeySize, Format);
+  finally
+    DoProgress(RO_Hash, 0, 0);
+    Free;
+    ReallocMem(Buf, 0);
+  end;
+end;
+
+class function TROHash.CalcString(const Data: AnsiString; Protection: TROProtection; Format: Integer): AnsiString;
+begin
+  with Create(Protection) do
+  try
+    Init;
+    Calc(PAnsiChar(Data)^, Length(Data));
+    Done;
+    Result := StrToFormat(DigestKey, DigestKeySize, Format);
+  finally
+    Free;
+  end;
+end;
+
+class function TROHash.CalcFile(const FileName: String; Protection: TROProtection; Format: Integer): AnsiString;
+var
+  S: TFileStream;
+begin
+  S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
+  try
+    Result := CalcStream(S, S.Size, Protection, Format);
+  finally
+    S.Free;
+  end;
+end;
+
+class function TROHash.CalcBuffer(const Buffer; BufferSize: Integer; Protection: TROProtection; Format: Integer): AnsiString;
+begin
+  with Create(Protection) do {create an Object from my Classtype}
+  try
+    Init;
+    Calc(Buffer, BufferSize);
+    Done;
+    Result := StrToFormat(DigestKey, DigestKeySize, Format);
+  finally
+    Free; {destroy it}
+  end;
+end;
+
+class function TROHash.SelfTest: Boolean;
+var
+  Test: AnsiString;
+begin
+  Test := CalcBuffer(GetTestVector^, 32, nil, fmtCOPY);
+  Result := InitTestIsOk and (MemCompare(PAnsiChar(Test), TestVector, Length(Test)) = 0);
+end;
+
+procedure TROHash.CodeInit(Action: TPAction);
+begin
+  Init;
+  if Action = paWipe then RndXORBuffer(RndTimeSeed, DigestKey^, DigestKeySize);
+  inherited CodeInit(Action);
+end;
+
+procedure TROHash.CodeDone(Action: TPAction);
+begin
+  inherited CodeDone(Action);
+  if (Action <> paCalc) then Init else Done;
+end;
+
+procedure TROHash.CodeBuf(var Buffer; const BufferSize: Integer; Action: TPAction);
+var
+  BPtr: PByte;
+  CSize,DSize,BSize: Integer;
+begin
+  if Action <> paDecode then inherited CodeBuf(Buffer, BufferSize, Action);
+  if Action in Actions then
+  begin
+    BPtr := @Buffer;
+    if BPtr = nil then Exit;
+    DSize := DigestKeySize;
+    CSize := BufferSize;
+    if Action = paCalc then
+    begin
+      Calc(Buffer, BufferSize);
+    end else
+    begin
+      if Action in [paScramble, paWipe] then
+      begin
+        while CSize > 0 do
+        begin
+          BSize := CSize;
+          if BSize > DSize then BSize := DSize;
+          Calc(BPtr^, BSize);
+          Done;
+          Move(DigestKey^, BPtr^, BSize);
+          Dec(CSize, BSize);
+          Inc(BPtr, BSize);
+        end;
+      end else
+        while CSize > 0 do
+        begin
+          BSize := DSize;
+          if BSize > CSize then BSize := CSize;
+          Calc(DigestKey^, DSize);
+          Done;
+          XORBuffers(DigestKey, BPtr, BSize, BPtr);
+          Dec(CSize, BSize);
+          Inc(BPtr, BSize);
+        end;
+    end;
+  end;
+  if Action = paDecode then
+    inherited CodeBuf(Buffer, BufferSize, Action);
+end;
+
+procedure TROMAC.Init(RO_Hash: TROHash);
+var
+  Key: AnsiString;
+begin
+  if Length(FPassword) > 0 then
+  begin
+    Key := RO_Hash.CalcString(FPassword, Protection, fmtCOPY);
+    XORBuffers(RO_Hash.DigestKey, PAnsiChar(Key), Length(Key), RO_Hash.DigestKey);
+    FillChar(PAnsiChar(Key)^, Length(Key), $AA);
+    FillChar(PAnsiChar(Key)^, Length(Key), $55);
+    FillChar(PAnsiChar(Key)^, Length(Key), 0);
+  end;
+end;
+
+procedure TROMAC.Done(RO_Hash: TROHash);
+begin
+  if Protection <> nil then
+    Protection.CodeBuffer(RO_Hash.DigestKey^, RO_Hash.DigestKeySize, paScramble);
+end;
+
+constructor TROMAC.Create(const Password: AnsiString; AProtection: TROProtection);
+begin
+  inherited Create(AProtection);
+  SetLength(FPassword, Length(Password));
+  Move(PAnsiChar(Password)^, PAnsiChar(FPassword)^, Length(Password));
+end;
+
+destructor TROMAC.Destroy;
+var
+  I: Integer;
+begin
+  I := Length(FPassword);
+  if I > 0 then
+  begin
+    FillChar(PAnsiChar(FPassword)^, I, $AA);
+    FillChar(PAnsiChar(FPassword)^, I, $55);
+    FillChar(PAnsiChar(FPassword)^, I, 0);
+  end;
+  FPassword := '';
+  inherited Destroy;
+end;
+
+function TROMAC_RFC2104.CalcPad(RO_Hash: TROHash; XORCode: Byte): AnsiString;
+var
+  I: Integer;
+begin
+  I := Length(FPassword);
+  if I > RFC2104_Size then Result := RO_Hash.CalcString(FPassword, nil, fmtCOPY)
+    else Result := FPassword;
+  UniqueString(Result);
+  for I := 1 to Length(Result) do
+    Byte(Result[I]) := Byte(Result[I]) xor XORCode;
+  I := Length(Result);
+  SetLength(Result, RFC2104_Size);
+  FillChar(Result[I +1], RFC2104_Size - I, XORCode);
+end;
+
+procedure TROMAC_RFC2104.Init(RO_Hash: TROHash);
+var
+  IPad: AnsiString;
+begin
+  if Length(FPassword) > 0 then
+  begin
+    IPad := CalcPad(RO_Hash, RFC2104_IPad);
+    RO_Hash.Calc(PAnsiChar(IPad)^, Length(IPad));
+  end;
+end;
+
+procedure TROMAC_RFC2104.Done(RO_Hash: TROHash);
+var
+  OPad: AnsiString;
+begin
+  if Length(FPassword) > 0 then
+  begin
+    OPad := CalcPad(RO_Hash, RFC2104_OPad);
+    with TROHashClass(RO_Hash.ClassType).Create(nil) do
+    try
+      Init;
+      Calc(PAnsiChar(OPad)^, Length(OPad));
+      Calc(RO_Hash.DigestKey^, DigestKeySize);
+      Done;
+      Move(DigestKey^, RO_Hash.DigestKey^, DigestKeySize);
+    finally
+      Free;
+    end;
+  end;
+  if Protection <> nil then
+    Protection.CodeBuffer(RO_Hash.DigestKey^, RO_Hash.DigestKeySize, paScramble);
+end;
+
+class function TROHash_MD4.TestVector: Pointer; assembler;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    025h,0EAh,0BFh,0CCh,08Ch,0C9h,06Fh,0D9h
+         DB    02Dh,0CFh,07Eh,0BDh,07Fh,087h,07Ch,07Ch
+end;
+
+procedure TROHash_MD4.Transform(Buffer: PIntArray);
+{calculate the Digest, fast}
+var
+  A, B, C, D: LongWord;
+begin
+  A := FDigest[0];
+  B := FDigest[1];
+  C := FDigest[2];
+  D := FDigest[3];
+
+  Inc(A, Buffer[ 0] + (B and C or not B and D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 1] + (A and B or not A and C)); D := D shl  7 or D shr 25;
+  Inc(C, Buffer[ 2] + (D and A or not D and B)); C := C shl 11 or C shr 21;
+  Inc(B, Buffer[ 3] + (C and D or not C and A)); B := B shl 19 or B shr 13;
+  Inc(A, Buffer[ 4] + (B and C or not B and D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 5] + (A and B or not A and C)); D := D shl  7 or D shr 25;
+  Inc(C, Buffer[ 6] + (D and A or not D and B)); C := C shl 11 or C shr 21;
+  Inc(B, Buffer[ 7] + (C and D or not C and A)); B := B shl 19 or B shr 13;
+  Inc(A, Buffer[ 8] + (B and C or not B and D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 9] + (A and B or not A and C)); D := D shl  7 or D shr 25;
+  Inc(C, Buffer[10] + (D and A or not D and B)); C := C shl 11 or C shr 21;
+  Inc(B, Buffer[11] + (C and D or not C and A)); B := B shl 19 or B shr 13;
+  Inc(A, Buffer[12] + (B and C or not B and D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[13] + (A and B or not A and C)); D := D shl  7 or D shr 25;
+  Inc(C, Buffer[14] + (D and A or not D and B)); C := C shl 11 or C shr 21;
+  Inc(B, Buffer[15] + (C and D or not C and A)); B := B shl 19 or B shr 13;
+
+  Inc(A, Buffer[ 0] + $5A827999 + (B and C or B and D or C and D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 4] + $5A827999 + (A and B or A and C or B and C)); D := D shl  5 or D shr 27;
+  Inc(C, Buffer[ 8] + $5A827999 + (D and A or D and B or A and B)); C := C shl  9 or C shr 23;
+  Inc(B, Buffer[12] + $5A827999 + (C and D or C and A or D and A)); B := B shl 13 or B shr 19;
+  Inc(A, Buffer[ 1] + $5A827999 + (B and C or B and D or C and D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 5] + $5A827999 + (A and B or A and C or B and C)); D := D shl  5 or D shr 27;
+  Inc(C, Buffer[ 9] + $5A827999 + (D and A or D and B or A and B)); C := C shl  9 or C shr 23;
+  Inc(B, Buffer[13] + $5A827999 + (C and D or C and A or D and A)); B := B shl 13 or B shr 19;
+  Inc(A, Buffer[ 2] + $5A827999 + (B and C or B and D or C and D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 6] + $5A827999 + (A and B or A and C or B and C)); D := D shl  5 or D shr 27;
+  Inc(C, Buffer[10] + $5A827999 + (D and A or D and B or A and B)); C := C shl  9 or C shr 23;
+  Inc(B, Buffer[14] + $5A827999 + (C and D or C and A or D and A)); B := B shl 13 or B shr 19;
+  Inc(A, Buffer[ 3] + $5A827999 + (B and C or B and D or C and D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 7] + $5A827999 + (A and B or A and C or B and C)); D := D shl  5 or D shr 27;
+  Inc(C, Buffer[11] + $5A827999 + (D and A or D and B or A and B)); C := C shl  9 or C shr 23;
+  Inc(B, Buffer[15] + $5A827999 + (C and D or C and A or D and A)); B := B shl 13 or B shr 19;
+
+  Inc(A, Buffer[ 0] + $6ED9EBA1 + (B xor C xor D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 8] + $6ED9EBA1 + (A xor B xor C)); D := D shl  9 or D shr 23;
+  Inc(C, Buffer[ 4] + $6ED9EBA1 + (D xor A xor B)); C := C shl 11 or C shr 21;
+  Inc(B, Buffer[12] + $6ED9EBA1 + (C xor D xor A)); B := B shl 15 or B shr 17;
+  Inc(A, Buffer[ 2] + $6ED9EBA1 + (B xor C xor D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[10] + $6ED9EBA1 + (A xor B xor C)); D := D shl  9 or D shr 23;
+  Inc(C, Buffer[ 6] + $6ED9EBA1 + (D xor A xor B)); C := C shl 11 or C shr 21;
+  Inc(B, Buffer[14] + $6ED9EBA1 + (C xor D xor A)); B := B shl 15 or B shr 17;
+  Inc(A, Buffer[ 1] + $6ED9EBA1 + (B xor C xor D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[ 9] + $6ED9EBA1 + (A xor B xor C)); D := D shl  9 or D shr 23;
+  Inc(C, Buffer[ 5] + $6ED9EBA1 + (D xor A xor B)); C := C shl 11 or C shr 21;
+  Inc(B, Buffer[13] + $6ED9EBA1 + (C xor D xor A)); B := B shl 15 or B shr 17;
+  Inc(A, Buffer[ 3] + $6ED9EBA1 + (B xor C xor D)); A := A shl  3 or A shr 29;
+  Inc(D, Buffer[11] + $6ED9EBA1 + (A xor B xor C)); D := D shl  9 or D shr 23;
+  Inc(C, Buffer[ 7] + $6ED9EBA1 + (D xor A xor B)); C := C shl 11 or C shr 21;
+  Inc(B, Buffer[15] + $6ED9EBA1 + (C xor D xor A)); B := B shl 15 or B shr 17;
+
+  Inc(FDigest[0], A);
+  Inc(FDigest[1], B);
+  Inc(FDigest[2], C);
+  Inc(FDigest[3], D);
+end;
+
+class function TROHash_MD4.DigestKeySize: Integer;
+begin
+  Result := 16;
+end;
+
+function TROHash_MD4.DigestKey: Pointer;
+begin
+  Result := @FDigest;
+end;
+
+procedure TROHash_MD4.Init;
+begin
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+{all Descend from MD4 (MD4, SHA1, RipeMD128, RipeMD160, RipeMD256) use this Init-Key}
+  FDigest[0] := $67452301;
+  FDigest[1] := $EFCDAB89;
+  FDigest[2] := $98BADCFE;
+  FDigest[3] := $10325476;
+  FDigest[4] := $C3D2E1F0;
+{for RMD320}
+  FDigest[5] := $76543210;
+  FDigest[6] := $FEDCBA98;
+  FDigest[7] := $89ABCDEF;
+  FDigest[8] := $01234567;
+  FDigest[9] := $3C2D1E0F;
+  FCount := 0;
+  Protect(True);
+end;
+
+procedure TROHash_MD4.Done;
+var
+  I: Integer;
+  S: Comp;
+begin
+  I := FCount and $3F;
+  FBuffer[I] := $80;
+  Inc(I);
+  if I > 64 - 8 then
+  begin
+    FillChar(FBuffer[I], 64 - I, 0);
+    Transform(@FBuffer);
+    I := 0;
+  end;
+  FillChar(FBuffer[I], 64 - I, 0);
+  S := FCount * 8;
+  Move(S, FBuffer[64 - 8], SizeOf(S));
+  Transform(@FBuffer);
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  Protect(False);
+end;
+
+procedure TROHash_MD4.Calc(const Data; DataSize: Integer);
+var
+  Index: Integer;
+  P: PChar;
+begin
+  if DataSize <= 0 then Exit;
+  Index := FCount and $3F;
+  Inc(FCount, DataSize);
+  if Index > 0 then
+  begin
+    if DataSize < 64 - Index then
+    begin
+      Move(Data, FBuffer[Index], DataSize);
+      Exit;
+    end;
+    Move(Data, FBuffer[Index], 64 - Index);
+    Transform(@FBuffer);
+    Index := 64 - Index;
+    Dec(DataSize, Index);
+  end;
+  P := @TByteArray(Data)[Index];
+  Inc(Index, DataSize and not $3F);
+  while DataSize >= 64 do
+  begin
+    Transform(Pointer(P));
+    Inc(P, 64);
+    Dec(DataSize, 64);
+  end;
+  Move(TByteArray(Data)[Index], FBuffer, DataSize);
+end;
+
+class function TROHash_MD5.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    03Eh,0D8h,034h,08Ch,0D2h,0A4h,045h,0D6h
+         DB    075h,05Dh,04Bh,0C9h,0FEh,0DCh,0C2h,0C6h
+end;
+
+procedure TROHash_MD5.Transform(Buffer: PIntArray);
+var
+  A, B, C, D: LongWord;
+begin
+  A := FDigest[0];
+  B := FDigest[1];
+  C := FDigest[2];
+  D := FDigest[3];
+
+  Inc(A, Buffer[ 0] + $D76AA478 + (D xor (B and (C xor D)))); A := A shl  7 or A shr 25 + B;
+  Inc(D, Buffer[ 1] + $E8C7B756 + (C xor (A and (B xor C)))); D := D shl 12 or D shr 20 + A;
+  Inc(C, Buffer[ 2] + $242070DB + (B xor (D and (A xor B)))); C := C shl 17 or C shr 15 + D;
+  Inc(B, Buffer[ 3] + $C1BDCEEE + (A xor (C and (D xor A)))); B := B shl 22 or B shr 10 + C;
+  Inc(A, Buffer[ 4] + $F57C0FAF + (D xor (B and (C xor D)))); A := A shl  7 or A shr 25 + B;
+  Inc(D, Buffer[ 5] + $4787C62A + (C xor (A and (B xor C)))); D := D shl 12 or D shr 20 + A;
+  Inc(C, Buffer[ 6] + $A8304613 + (B xor (D and (A xor B)))); C := C shl 17 or C shr 15 + D;
+  Inc(B, Buffer[ 7] + $FD469501 + (A xor (C and (D xor A)))); B := B shl 22 or B shr 10 + C;
+  Inc(A, Buffer[ 8] + $698098D8 + (D xor (B and (C xor D)))); A := A shl  7 or A shr 25 + B;
+  Inc(D, Buffer[ 9] + $8B44F7AF + (C xor (A and (B xor C)))); D := D shl 12 or D shr 20 + A;
+  Inc(C, Buffer[10] + $FFFF5BB1 + (B xor (D and (A xor B)))); C := C shl 17 or C shr 15 + D;
+  Inc(B, Buffer[11] + $895CD7BE + (A xor (C and (D xor A)))); B := B shl 22 or B shr 10 + C;
+  Inc(A, Buffer[12] + $6B901122 + (D xor (B and (C xor D)))); A := A shl  7 or A shr 25 + B;
+  Inc(D, Buffer[13] + $FD987193 + (C xor (A and (B xor C)))); D := D shl 12 or D shr 20 + A;
+  Inc(C, Buffer[14] + $A679438E + (B xor (D and (A xor B)))); C := C shl 17 or C shr 15 + D;
+  Inc(B, Buffer[15] + $49B40821 + (A xor (C and (D xor A)))); B := B shl 22 or B shr 10 + C;
+
+  Inc(A, Buffer[ 1] + $F61E2562 + (C xor (D and (B xor C)))); A := A shl  5 or A shr 27 + B;
+  Inc(D, Buffer[ 6] + $C040B340 + (B xor (C and (A xor B)))); D := D shl  9 or D shr 23 + A;
+  Inc(C, Buffer[11] + $265E5A51 + (A xor (B and (D xor A)))); C := C shl 14 or C shr 18 + D;
+  Inc(B, Buffer[ 0] + $E9B6C7AA + (D xor (A and (C xor D)))); B := B shl 20 or B shr 12 + C;
+  Inc(A, Buffer[ 5] + $D62F105D + (C xor (D and (B xor C)))); A := A shl  5 or A shr 27 + B;
+  Inc(D, Buffer[10] + $02441453 + (B xor (C and (A xor B)))); D := D shl  9 or D shr 23 + A;
+  Inc(C, Buffer[15] + $D8A1E681 + (A xor (B and (D xor A)))); C := C shl 14 or C shr 18 + D;
+  Inc(B, Buffer[ 4] + $E7D3FBC8 + (D xor (A and (C xor D)))); B := B shl 20 or B shr 12 + C;
+  Inc(A, Buffer[ 9] + $21E1CDE6 + (C xor (D and (B xor C)))); A := A shl  5 or A shr 27 + B;
+  Inc(D, Buffer[14] + $C33707D6 + (B xor (C and (A xor B)))); D := D shl  9 or D shr 23 + A;
+  Inc(C, Buffer[ 3] + $F4D50D87 + (A xor (B and (D xor A)))); C := C shl 14 or C shr 18 + D;
+  Inc(B, Buffer[ 8] + $455A14ED + (D xor (A and (C xor D)))); B := B shl 20 or B shr 12 + C;
+  Inc(A, Buffer[13] + $A9E3E905 + (C xor (D and (B xor C)))); A := A shl  5 or A shr 27 + B;
+  Inc(D, Buffer[ 2] + $FCEFA3F8 + (B xor (C and (A xor B)))); D := D shl  9 or D shr 23 + A;
+  Inc(C, Buffer[ 7] + $676F02D9 + (A xor (B and (D xor A)))); C := C shl 14 or C shr 18 + D;
+  Inc(B, Buffer[12] + $8D2A4C8A + (D xor (A and (C xor D)))); B := B shl 20 or B shr 12 + C;
+
+  Inc(A, Buffer[ 5] + $FFFA3942 + (B xor C xor D)); A := A shl  4 or A shr 28 + B;
+  Inc(D, Buffer[ 8] + $8771F681 + (A xor B xor C)); D := D shl 11 or D shr 21 + A;
+  Inc(C, Buffer[11] + $6D9D6122 + (D xor A xor B)); C := C shl 16 or C shr 16 + D;
+  Inc(B, Buffer[14] + $FDE5380C + (C xor D xor A)); B := B shl 23 or B shr  9 + C;
+  Inc(A, Buffer[ 1] + $A4BEEA44 + (B xor C xor D)); A := A shl  4 or A shr 28 + B;
+  Inc(D, Buffer[ 4] + $4BDECFA9 + (A xor B xor C)); D := D shl 11 or D shr 21 + A;
+  Inc(C, Buffer[ 7] + $F6BB4B60 + (D xor A xor B)); C := C shl 16 or C shr 16 + D;
+  Inc(B, Buffer[10] + $BEBFBC70 + (C xor D xor A)); B := B shl 23 or B shr  9 + C;
+  Inc(A, Buffer[13] + $289B7EC6 + (B xor C xor D)); A := A shl  4 or A shr 28 + B;
+  Inc(D, Buffer[ 0] + $EAA127FA + (A xor B xor C)); D := D shl 11 or D shr 21 + A;
+  Inc(C, Buffer[ 3] + $D4EF3085 + (D xor A xor B)); C := C shl 16 or C shr 16 + D;
+  Inc(B, Buffer[ 6] + $04881D05 + (C xor D xor A)); B := B shl 23 or B shr  9 + C;
+  Inc(A, Buffer[ 9] + $D9D4D039 + (B xor C xor D)); A := A shl  4 or A shr 28 + B;
+  Inc(D, Buffer[12] + $E6DB99E5 + (A xor B xor C)); D := D shl 11 or D shr 21 + A;
+  Inc(C, Buffer[15] + $1FA27CF8 + (D xor A xor B)); C := C shl 16 or C shr 16 + D;
+  Inc(B, Buffer[ 2] + $C4AC5665 + (C xor D xor A)); B := B shl 23 or B shr  9 + C;
+
+  Inc(A, Buffer[ 0] + $F4292244 + (C xor (B or not D))); A := A shl  6 or A shr 26 + B;
+  Inc(D, Buffer[ 7] + $432AFF97 + (B xor (A or not C))); D := D shl 10 or D shr 22 + A;
+  Inc(C, Buffer[14] + $AB9423A7 + (A xor (D or not B))); C := C shl 15 or C shr 17 + D;
+  Inc(B, Buffer[ 5] + $FC93A039 + (D xor (C or not A))); B := B shl 21 or B shr 11 + C;
+  Inc(A, Buffer[12] + $655B59C3 + (C xor (B or not D))); A := A shl  6 or A shr 26 + B;
+  Inc(D, Buffer[ 3] + $8F0CCC92 + (B xor (A or not C))); D := D shl 10 or D shr 22 + A;
+  Inc(C, Buffer[10] + $FFEFF47D + (A xor (D or not B))); C := C shl 15 or C shr 17 + D;
+  Inc(B, Buffer[ 1] + $85845DD1 + (D xor (C or not A))); B := B shl 21 or B shr 11 + C;
+  Inc(A, Buffer[ 8] + $6FA87E4F + (C xor (B or not D))); A := A shl  6 or A shr 26 + B;
+  Inc(D, Buffer[15] + $FE2CE6E0 + (B xor (A or not C))); D := D shl 10 or D shr 22 + A;
+  Inc(C, Buffer[ 6] + $A3014314 + (A xor (D or not B))); C := C shl 15 or C shr 17 + D;
+  Inc(B, Buffer[13] + $4E0811A1 + (D xor (C or not A))); B := B shl 21 or B shr 11 + C;
+  Inc(A, Buffer[ 4] + $F7537E82 + (C xor (B or not D))); A := A shl  6 or A shr 26 + B;
+  Inc(D, Buffer[11] + $BD3AF235 + (B xor (A or not C))); D := D shl 10 or D shr 22 + A;
+  Inc(C, Buffer[ 2] + $2AD7D2BB + (A xor (D or not B))); C := C shl 15 or C shr 17 + D;
+  Inc(B, Buffer[ 9] + $EB86D391 + (D xor (C or not A))); B := B shl 21 or B shr 11 + C;
+
+  Inc(FDigest[0], A);
+  Inc(FDigest[1], B);
+  Inc(FDigest[2], C);
+  Inc(FDigest[3], D);
+end;
+
+class function TROHash_RipeMD128.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0CFh,0A0h,032h,0CFh,0D0h,08Fh,087h,03Ah
+         DB    078h,0DFh,013h,0E7h,0EBh,0CDh,098h,00Fh
+end;
+
+procedure TROHash_RipeMD128.Transform(Buffer: PIntArray);
+var
+  A1, B1, C1, D1: LongWord;
+  A2, B2, C2, D2: LongWord;
+begin
+  A1 := FDigest[0];
+  B1 := FDigest[1];
+  C1 := FDigest[2];
+  D1 := FDigest[3];
+  A2 := A1;
+  B2 := B1;
+  C2 := C1;
+  D2 := D1;
+
+  Inc(A1, B1 xor C1 xor D1 + Buffer[ 0]); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 xor B1 xor C1 + Buffer[ 1]); D1 := D1 shl 14 or D1 shr 18;
+  Inc(C1, D1 xor A1 xor B1 + Buffer[ 2]); C1 := C1 shl 15 or C1 shr 17;
+  Inc(B1, C1 xor D1 xor A1 + Buffer[ 3]); B1 := B1 shl 12 or B1 shr 20;
+  Inc(A1, B1 xor C1 xor D1 + Buffer[ 4]); A1 := A1 shl  5 or A1 shr 27;
+  Inc(D1, A1 xor B1 xor C1 + Buffer[ 5]); D1 := D1 shl  8 or D1 shr 24;
+  Inc(C1, D1 xor A1 xor B1 + Buffer[ 6]); C1 := C1 shl  7 or C1 shr 25;
+  Inc(B1, C1 xor D1 xor A1 + Buffer[ 7]); B1 := B1 shl  9 or B1 shr 23;
+  Inc(A1, B1 xor C1 xor D1 + Buffer[ 8]); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 xor B1 xor C1 + Buffer[ 9]); D1 := D1 shl 13 or D1 shr 19;
+  Inc(C1, D1 xor A1 xor B1 + Buffer[10]); C1 := C1 shl 14 or C1 shr 18;
+  Inc(B1, C1 xor D1 xor A1 + Buffer[11]); B1 := B1 shl 15 or B1 shr 17;
+  Inc(A1, B1 xor C1 xor D1 + Buffer[12]); A1 := A1 shl  6 or A1 shr 26;
+  Inc(D1, A1 xor B1 xor C1 + Buffer[13]); D1 := D1 shl  7 or D1 shr 25;
+  Inc(C1, D1 xor A1 xor B1 + Buffer[14]); C1 := C1 shl  9 or C1 shr 23;
+  Inc(B1, C1 xor D1 xor A1 + Buffer[15]); B1 := B1 shl  8 or B1 shr 24;
+
+  Inc(A1, B1 and C1 or not B1 and D1 + Buffer[ 7] + $5A827999); A1 := A1 shl  7 or A1 shr 25;
+  Inc(D1, A1 and B1 or not A1 and C1 + Buffer[ 4] + $5A827999); D1 := D1 shl  6 or D1 shr 26;
+  Inc(C1, D1 and A1 or not D1 and B1 + Buffer[13] + $5A827999); C1 := C1 shl  8 or C1 shr 24;
+  Inc(B1, C1 and D1 or not C1 and A1 + Buffer[ 1] + $5A827999); B1 := B1 shl 13 or B1 shr 19;
+  Inc(A1, B1 and C1 or not B1 and D1 + Buffer[10] + $5A827999); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 and B1 or not A1 and C1 + Buffer[ 6] + $5A827999); D1 := D1 shl  9 or D1 shr 23;
+  Inc(C1, D1 and A1 or not D1 and B1 + Buffer[15] + $5A827999); C1 := C1 shl  7 or C1 shr 25;
+  Inc(B1, C1 and D1 or not C1 and A1 + Buffer[ 3] + $5A827999); B1 := B1 shl 15 or B1 shr 17;
+  Inc(A1, B1 and C1 or not B1 and D1 + Buffer[12] + $5A827999); A1 := A1 shl  7 or A1 shr 25;
+  Inc(D1, A1 and B1 or not A1 and C1 + Buffer[ 0] + $5A827999); D1 := D1 shl 12 or D1 shr 20;
+  Inc(C1, D1 and A1 or not D1 and B1 + Buffer[ 9] + $5A827999); C1 := C1 shl 15 or C1 shr 17;
+  Inc(B1, C1 and D1 or not C1 and A1 + Buffer[ 5] + $5A827999); B1 := B1 shl  9 or B1 shr 23;
+  Inc(A1, B1 and C1 or not B1 and D1 + Buffer[ 2] + $5A827999); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 and B1 or not A1 and C1 + Buffer[14] + $5A827999); D1 := D1 shl  7 or D1 shr 25;
+  Inc(C1, D1 and A1 or not D1 and B1 + Buffer[11] + $5A827999); C1 := C1 shl 13 or C1 shr 19;
+  Inc(B1, C1 and D1 or not C1 and A1 + Buffer[ 8] + $5A827999); B1 := B1 shl 12 or B1 shr 20;
+
+  Inc(A1, (B1 or not C1) xor D1 + Buffer[ 3] + $6ED9EBA1); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, (A1 or not B1) xor C1 + Buffer[10] + $6ED9EBA1); D1 := D1 shl 13 or D1 shr 19;
+  Inc(C1, (D1 or not A1) xor B1 + Buffer[14] + $6ED9EBA1); C1 := C1 shl  6 or C1 shr 26;
+  Inc(B1, (C1 or not D1) xor A1 + Buffer[ 4] + $6ED9EBA1); B1 := B1 shl  7 or B1 shr 25;
+  Inc(A1, (B1 or not C1) xor D1 + Buffer[ 9] + $6ED9EBA1); A1 := A1 shl 14 or A1 shr 18;
+  Inc(D1, (A1 or not B1) xor C1 + Buffer[15] + $6ED9EBA1); D1 := D1 shl  9 or D1 shr 23;
+  Inc(C1, (D1 or not A1) xor B1 + Buffer[ 8] + $6ED9EBA1); C1 := C1 shl 13 or C1 shr 19;
+  Inc(B1, (C1 or not D1) xor A1 + Buffer[ 1] + $6ED9EBA1); B1 := B1 shl 15 or B1 shr 17;
+  Inc(A1, (B1 or not C1) xor D1 + Buffer[ 2] + $6ED9EBA1); A1 := A1 shl 14 or A1 shr 18;
+  Inc(D1, (A1 or not B1) xor C1 + Buffer[ 7] + $6ED9EBA1); D1 := D1 shl  8 or D1 shr 24;
+  Inc(C1, (D1 or not A1) xor B1 + Buffer[ 0] + $6ED9EBA1); C1 := C1 shl 13 or C1 shr 19;
+  Inc(B1, (C1 or not D1) xor A1 + Buffer[ 6] + $6ED9EBA1); B1 := B1 shl  6 or B1 shr 26;
+  Inc(A1, (B1 or not C1) xor D1 + Buffer[13] + $6ED9EBA1); A1 := A1 shl  5 or A1 shr 27;
+  Inc(D1, (A1 or not B1) xor C1 + Buffer[11] + $6ED9EBA1); D1 := D1 shl 12 or D1 shr 20;
+  Inc(C1, (D1 or not A1) xor B1 + Buffer[ 5] + $6ED9EBA1); C1 := C1 shl  7 or C1 shr 25;
+  Inc(B1, (C1 or not D1) xor A1 + Buffer[12] + $6ED9EBA1); B1 := B1 shl  5 or B1 shr 27;
+
+  Inc(A1, B1 and D1 or C1 and not D1 + Buffer[ 1] + $8F1BBCDC); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 and C1 or B1 and not C1 + Buffer[ 9] + $8F1BBCDC); D1 := D1 shl 12 or D1 shr 20;
+  Inc(C1, D1 and B1 or A1 and not B1 + Buffer[11] + $8F1BBCDC); C1 := C1 shl 14 or C1 shr 18;
+  Inc(B1, C1 and A1 or D1 and not A1 + Buffer[10] + $8F1BBCDC); B1 := B1 shl 15 or B1 shr 17;
+  Inc(A1, B1 and D1 or C1 and not D1 + Buffer[ 0] + $8F1BBCDC); A1 := A1 shl 14 or A1 shr 18;
+  Inc(D1, A1 and C1 or B1 and not C1 + Buffer[ 8] + $8F1BBCDC); D1 := D1 shl 15 or D1 shr 17;
+  Inc(C1, D1 and B1 or A1 and not B1 + Buffer[12] + $8F1BBCDC); C1 := C1 shl  9 or C1 shr 23;
+  Inc(B1, C1 and A1 or D1 and not A1 + Buffer[ 4] + $8F1BBCDC); B1 := B1 shl  8 or B1 shr 24;
+  Inc(A1, B1 and D1 or C1 and not D1 + Buffer[13] + $8F1BBCDC); A1 := A1 shl  9 or A1 shr 23;
+  Inc(D1, A1 and C1 or B1 and not C1 + Buffer[ 3] + $8F1BBCDC); D1 := D1 shl 14 or D1 shr 18;
+  Inc(C1, D1 and B1 or A1 and not B1 + Buffer[ 7] + $8F1BBCDC); C1 := C1 shl  5 or C1 shr 27;
+  Inc(B1, C1 and A1 or D1 and not A1 + Buffer[15] + $8F1BBCDC); B1 := B1 shl  6 or B1 shr 26;
+  Inc(A1, B1 and D1 or C1 and not D1 + Buffer[14] + $8F1BBCDC); A1 := A1 shl  8 or A1 shr 24;
+  Inc(D1, A1 and C1 or B1 and not C1 + Buffer[ 5] + $8F1BBCDC); D1 := D1 shl  6 or D1 shr 26;
+  Inc(C1, D1 and B1 or A1 and not B1 + Buffer[ 6] + $8F1BBCDC); C1 := C1 shl  5 or C1 shr 27;
+  Inc(B1, C1 and A1 or D1 and not A1 + Buffer[ 2] + $8F1BBCDC); B1 := B1 shl 12 or B1 shr 20;
+
+  Inc(A2, B2 and D2 or C2 and not D2 + Buffer[ 5] + $50A28BE6); A2 := A2 shl  8 or A2 shr 24;
+  Inc(D2, A2 and C2 or B2 and not C2 + Buffer[14] + $50A28BE6); D2 := D2 shl  9 or D2 shr 23;
+  Inc(C2, D2 and B2 or A2 and not B2 + Buffer[ 7] + $50A28BE6); C2 := C2 shl  9 or C2 shr 23;
+  Inc(B2, C2 and A2 or D2 and not A2 + Buffer[ 0] + $50A28BE6); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, B2 and D2 or C2 and not D2 + Buffer[ 9] + $50A28BE6); A2 := A2 shl 13 or A2 shr 19;
+  Inc(D2, A2 and C2 or B2 and not C2 + Buffer[ 2] + $50A28BE6); D2 := D2 shl 15 or D2 shr 17;
+  Inc(C2, D2 and B2 or A2 and not B2 + Buffer[11] + $50A28BE6); C2 := C2 shl 15 or C2 shr 17;
+  Inc(B2, C2 and A2 or D2 and not A2 + Buffer[ 4] + $50A28BE6); B2 := B2 shl  5 or B2 shr 27;
+  Inc(A2, B2 and D2 or C2 and not D2 + Buffer[13] + $50A28BE6); A2 := A2 shl  7 or A2 shr 25;
+  Inc(D2, A2 and C2 or B2 and not C2 + Buffer[ 6] + $50A28BE6); D2 := D2 shl  7 or D2 shr 25;
+  Inc(C2, D2 and B2 or A2 and not B2 + Buffer[15] + $50A28BE6); C2 := C2 shl  8 or C2 shr 24;
+  Inc(B2, C2 and A2 or D2 and not A2 + Buffer[ 8] + $50A28BE6); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, B2 and D2 or C2 and not D2 + Buffer[ 1] + $50A28BE6); A2 := A2 shl 14 or A2 shr 18;
+  Inc(D2, A2 and C2 or B2 and not C2 + Buffer[10] + $50A28BE6); D2 := D2 shl 14 or D2 shr 18;
+  Inc(C2, D2 and B2 or A2 and not B2 + Buffer[ 3] + $50A28BE6); C2 := C2 shl 12 or C2 shr 20;
+  Inc(B2, C2 and A2 or D2 and not A2 + Buffer[12] + $50A28BE6); B2 := B2 shl  6 or B2 shr 26;
+
+  Inc(A2, (B2 or not C2) xor D2 + Buffer[ 6] + $5C4DD124); A2 := A2 shl  9 or A2 shr 23;
+  Inc(D2, (A2 or not B2) xor C2 + Buffer[11] + $5C4DD124); D2 := D2 shl 13 or D2 shr 19;
+  Inc(C2, (D2 or not A2) xor B2 + Buffer[ 3] + $5C4DD124); C2 := C2 shl 15 or C2 shr 17;
+  Inc(B2, (C2 or not D2) xor A2 + Buffer[ 7] + $5C4DD124); B2 := B2 shl  7 or B2 shr 25;
+  Inc(A2, (B2 or not C2) xor D2 + Buffer[ 0] + $5C4DD124); A2 := A2 shl 12 or A2 shr 20;
+  Inc(D2, (A2 or not B2) xor C2 + Buffer[13] + $5C4DD124); D2 := D2 shl  8 or D2 shr 24;
+  Inc(C2, (D2 or not A2) xor B2 + Buffer[ 5] + $5C4DD124); C2 := C2 shl  9 or C2 shr 23;
+  Inc(B2, (C2 or not D2) xor A2 + Buffer[10] + $5C4DD124); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, (B2 or not C2) xor D2 + Buffer[14] + $5C4DD124); A2 := A2 shl  7 or A2 shr 25;
+  Inc(D2, (A2 or not B2) xor C2 + Buffer[15] + $5C4DD124); D2 := D2 shl  7 or D2 shr 25;
+  Inc(C2, (D2 or not A2) xor B2 + Buffer[ 8] + $5C4DD124); C2 := C2 shl 12 or C2 shr 20;
+  Inc(B2, (C2 or not D2) xor A2 + Buffer[12] + $5C4DD124); B2 := B2 shl  7 or B2 shr 25;
+  Inc(A2, (B2 or not C2) xor D2 + Buffer[ 4] + $5C4DD124); A2 := A2 shl  6 or A2 shr 26;
+  Inc(D2, (A2 or not B2) xor C2 + Buffer[ 9] + $5C4DD124); D2 := D2 shl 15 or D2 shr 17;
+  Inc(C2, (D2 or not A2) xor B2 + Buffer[ 1] + $5C4DD124); C2 := C2 shl 13 or C2 shr 19;
+  Inc(B2, (C2 or not D2) xor A2 + Buffer[ 2] + $5C4DD124); B2 := B2 shl 11 or B2 shr 21;
+
+  Inc(A2, B2 and C2 or not B2 and D2 + Buffer[15] + $6D703EF3); A2 := A2 shl  9 or A2 shr 23;
+  Inc(D2, A2 and B2 or not A2 and C2 + Buffer[ 5] + $6D703EF3); D2 := D2 shl  7 or D2 shr 25;
+  Inc(C2, D2 and A2 or not D2 and B2 + Buffer[ 1] + $6D703EF3); C2 := C2 shl 15 or C2 shr 17;
+  Inc(B2, C2 and D2 or not C2 and A2 + Buffer[ 3] + $6D703EF3); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, B2 and C2 or not B2 and D2 + Buffer[ 7] + $6D703EF3); A2 := A2 shl  8 or A2 shr 24;
+  Inc(D2, A2 and B2 or not A2 and C2 + Buffer[14] + $6D703EF3); D2 := D2 shl  6 or D2 shr 26;
+  Inc(C2, D2 and A2 or not D2 and B2 + Buffer[ 6] + $6D703EF3); C2 := C2 shl  6 or C2 shr 26;
+  Inc(B2, C2 and D2 or not C2 and A2 + Buffer[ 9] + $6D703EF3); B2 := B2 shl 14 or B2 shr 18;
+  Inc(A2, B2 and C2 or not B2 and D2 + Buffer[11] + $6D703EF3); A2 := A2 shl 12 or A2 shr 20;
+  Inc(D2, A2 and B2 or not A2 and C2 + Buffer[ 8] + $6D703EF3); D2 := D2 shl 13 or D2 shr 19;
+  Inc(C2, D2 and A2 or not D2 and B2 + Buffer[12] + $6D703EF3); C2 := C2 shl  5 or C2 shr 27;
+  Inc(B2, C2 and D2 or not C2 and A2 + Buffer[ 2] + $6D703EF3); B2 := B2 shl 14 or B2 shr 18;
+  Inc(A2, B2 and C2 or not B2 and D2 + Buffer[10] + $6D703EF3); A2 := A2 shl 13 or A2 shr 19;
+  Inc(D2, A2 and B2 or not A2 and C2 + Buffer[ 0] + $6D703EF3); D2 := D2 shl 13 or D2 shr 19;
+  Inc(C2, D2 and A2 or not D2 and B2 + Buffer[ 4] + $6D703EF3); C2 := C2 shl  7 or C2 shr 25;
+  Inc(B2, C2 and D2 or not C2 and A2 + Buffer[13] + $6D703EF3); B2 := B2 shl  5 or B2 shr 27;
+
+  Inc(A2, B2 xor C2 xor D2 + Buffer[ 8]); A2 := A2 shl 15 or A2 shr 17;
+  Inc(D2, A2 xor B2 xor C2 + Buffer[ 6]); D2 := D2 shl  5 or D2 shr 27;
+  Inc(C2, D2 xor A2 xor B2 + Buffer[ 4]); C2 := C2 shl  8 or C2 shr 24;
+  Inc(B2, C2 xor D2 xor A2 + Buffer[ 1]); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, B2 xor C2 xor D2 + Buffer[ 3]); A2 := A2 shl 14 or A2 shr 18;
+  Inc(D2, A2 xor B2 xor C2 + Buffer[11]); D2 := D2 shl 14 or D2 shr 18;
+  Inc(C2, D2 xor A2 xor B2 + Buffer[15]); C2 := C2 shl  6 or C2 shr 26;
+  Inc(B2, C2 xor D2 xor A2 + Buffer[ 0]); B2 := B2 shl 14 or B2 shr 18;
+  Inc(A2, B2 xor C2 xor D2 + Buffer[ 5]); A2 := A2 shl  6 or A2 shr 26;
+  Inc(D2, A2 xor B2 xor C2 + Buffer[12]); D2 := D2 shl  9 or D2 shr 23;
+  Inc(C2, D2 xor A2 xor B2 + Buffer[ 2]); C2 := C2 shl 12 or C2 shr 20;
+  Inc(B2, C2 xor D2 xor A2 + Buffer[13]); B2 := B2 shl  9 or B2 shr 23;
+  Inc(A2, B2 xor C2 xor D2 + Buffer[ 9]); A2 := A2 shl 12 or A2 shr 20;
+  Inc(D2, A2 xor B2 xor C2 + Buffer[ 7]); D2 := D2 shl  5 or D2 shr 27;
+  Inc(C2, D2 xor A2 xor B2 + Buffer[10]); C2 := C2 shl 15 or C2 shr 17;
+  Inc(B2, C2 xor D2 xor A2 + Buffer[14]); B2 := B2 shl  8 or B2 shr 24;
+
+  Inc(D2, C1 + FDigest[1]);
+  FDigest[1] := FDigest[2] + D1 + A2;
+  FDigest[2] := FDigest[3] + A1 + B2;
+  FDigest[3] := FDIgest[0] + B1 + C2;
+  FDigest[0] := D2;
+end;
+
+class function TROHash_RipeMD160.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    019h,054h,0DEh,0BCh,01Bh,055h,035h,030h
+         DB    008h,01Dh,09Bh,080h,070h,0A0h,0F2h,04Ah
+         DB    09Dh,0F7h,034h,004h
+end;
+
+procedure TROHash_RipeMD160.Transform(Buffer: PIntArray);
+var
+  A1, B1, C1, D1, E1: LongWord;
+  A, B, C, D, E: LongWord;
+begin
+  A := FDigest[0];
+  B := FDigest[1];
+  C := FDigest[2];
+  D := FDigest[3];
+  E := FDigest[4];
+
+  Inc(A, Buffer[ 0] + (B xor C xor D)); A := A shl 11 or A shr 21 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 1] + (A xor B xor C)); E := E shl 14 or E shr 18 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 2] + (E xor A xor B)); D := D shl 15 or D shr 17 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 3] + (D xor E xor A)); C := C shl 12 or C shr 20 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 4] + (C xor D xor E)); B := B shl  5 or B shr 27 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 5] + (B xor C xor D)); A := A shl  8 or A shr 24 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 6] + (A xor B xor C)); E := E shl  7 or E shr 25 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 7] + (E xor A xor B)); D := D shl  9 or D shr 23 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 8] + (D xor E xor A)); C := C shl 11 or C shr 21 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 9] + (C xor D xor E)); B := B shl 13 or B shr 19 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[10] + (B xor C xor D)); A := A shl 14 or A shr 18 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[11] + (A xor B xor C)); E := E shl 15 or E shr 17 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[12] + (E xor A xor B)); D := D shl  6 or D shr 26 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[13] + (D xor E xor A)); C := C shl  7 or C shr 25 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[14] + (C xor D xor E)); B := B shl  9 or B shr 23 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[15] + (B xor C xor D)); A := A shl  8 or A shr 24 + E; C := C shl 10 or C shr 22;
+
+  Inc(E, Buffer[ 7] + $5A827999 + ((A and B) or (not A and C))); E := E shl  7 or E shr 25 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 4] + $5A827999 + ((E and A) or (not E and B))); D := D shl  6 or D shr 26 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[13] + $5A827999 + ((D and E) or (not D and A))); C := C shl  8 or C shr 24 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 1] + $5A827999 + ((C and D) or (not C and E))); B := B shl 13 or B shr 19 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[10] + $5A827999 + ((B and C) or (not B and D))); A := A shl 11 or A shr 21 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 6] + $5A827999 + ((A and B) or (not A and C))); E := E shl  9 or E shr 23 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[15] + $5A827999 + ((E and A) or (not E and B))); D := D shl  7 or D shr 25 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 3] + $5A827999 + ((D and E) or (not D and A))); C := C shl 15 or C shr 17 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[12] + $5A827999 + ((C and D) or (not C and E))); B := B shl  7 or B shr 25 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 0] + $5A827999 + ((B and C) or (not B and D))); A := A shl 12 or A shr 20 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 9] + $5A827999 + ((A and B) or (not A and C))); E := E shl 15 or E shr 17 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 5] + $5A827999 + ((E and A) or (not E and B))); D := D shl  9 or D shr 23 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 2] + $5A827999 + ((D and E) or (not D and A))); C := C shl 11 or C shr 21 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[14] + $5A827999 + ((C and D) or (not C and E))); B := B shl  7 or B shr 25 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[11] + $5A827999 + ((B and C) or (not B and D))); A := A shl 13 or A shr 19 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 8] + $5A827999 + ((A and B) or (not A and C))); E := E shl 12 or E shr 20 + D; B := B shl 10 or B shr 22;
+
+  Inc(D, Buffer[ 3] + $6ED9EBA1 + ((E or not A) xor B)); D := D shl 11 or D shr 21 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[10] + $6ED9EBA1 + ((D or not E) xor A)); C := C shl 13 or C shr 19 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[14] + $6ED9EBA1 + ((C or not D) xor E)); B := B shl  6 or B shr 26 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 4] + $6ED9EBA1 + ((B or not C) xor D)); A := A shl  7 or A shr 25 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 9] + $6ED9EBA1 + ((A or not B) xor C)); E := E shl 14 or E shr 18 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[15] + $6ED9EBA1 + ((E or not A) xor B)); D := D shl  9 or D shr 23 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 8] + $6ED9EBA1 + ((D or not E) xor A)); C := C shl 13 or C shr 19 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 1] + $6ED9EBA1 + ((C or not D) xor E)); B := B shl 15 or B shr 17 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 2] + $6ED9EBA1 + ((B or not C) xor D)); A := A shl 14 or A shr 18 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 7] + $6ED9EBA1 + ((A or not B) xor C)); E := E shl  8 or E shr 24 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 0] + $6ED9EBA1 + ((E or not A) xor B)); D := D shl 13 or D shr 19 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 6] + $6ED9EBA1 + ((D or not E) xor A)); C := C shl  6 or C shr 26 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[13] + $6ED9EBA1 + ((C or not D) xor E)); B := B shl  5 or B shr 27 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[11] + $6ED9EBA1 + ((B or not C) xor D)); A := A shl 12 or A shr 20 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 5] + $6ED9EBA1 + ((A or not B) xor C)); E := E shl  7 or E shr 25 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[12] + $6ED9EBA1 + ((E or not A) xor B)); D := D shl  5 or D shr 27 + C; A := A shl 10 or A shr 22;
+
+  Inc(C, Buffer[ 1] + $8F1BBCDC + ((D and A) or (E and not A))); C := C shl 11 or C shr 21 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 9] + $8F1BBCDC + ((C and E) or (D and not E))); B := B shl 12 or B shr 20 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[11] + $8F1BBCDC + ((B and D) or (C and not D))); A := A shl 14 or A shr 18 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[10] + $8F1BBCDC + ((A and C) or (B and not C))); E := E shl 15 or E shr 17 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 0] + $8F1BBCDC + ((E and B) or (A and not B))); D := D shl 14 or D shr 18 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 8] + $8F1BBCDC + ((D and A) or (E and not A))); C := C shl 15 or C shr 17 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[12] + $8F1BBCDC + ((C and E) or (D and not E))); B := B shl  9 or B shr 23 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 4] + $8F1BBCDC + ((B and D) or (C and not D))); A := A shl  8 or A shr 24 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[13] + $8F1BBCDC + ((A and C) or (B and not C))); E := E shl  9 or E shr 23 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 3] + $8F1BBCDC + ((E and B) or (A and not B))); D := D shl 14 or D shr 18 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 7] + $8F1BBCDC + ((D and A) or (E and not A))); C := C shl  5 or C shr 27 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[15] + $8F1BBCDC + ((C and E) or (D and not E))); B := B shl  6 or B shr 26 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[14] + $8F1BBCDC + ((B and D) or (C and not D))); A := A shl  8 or A shr 24 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 5] + $8F1BBCDC + ((A and C) or (B and not C))); E := E shl  6 or E shr 26 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 6] + $8F1BBCDC + ((E and B) or (A and not B))); D := D shl  5 or D shr 27 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 2] + $8F1BBCDC + ((D and A) or (E and not A))); C := C shl 12 or C shr 20 + B; E := E shl 10 or E shr 22;
+
+  Inc(B, Buffer[ 4] + $A953FD4E + (C xor (D or not E))); B := B shl  9 or B shr 23 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 0] + $A953FD4E + (B xor (C or not D))); A := A shl 15 or A shr 17 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 5] + $A953FD4E + (A xor (B or not C))); E := E shl  5 or E shr 27 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 9] + $A953FD4E + (E xor (A or not B))); D := D shl 11 or D shr 21 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 7] + $A953FD4E + (D xor (E or not A))); C := C shl  6 or C shr 26 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[12] + $A953FD4E + (C xor (D or not E))); B := B shl  8 or B shr 24 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 2] + $A953FD4E + (B xor (C or not D))); A := A shl 13 or A shr 19 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[10] + $A953FD4E + (A xor (B or not C))); E := E shl 12 or E shr 20 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[14] + $A953FD4E + (E xor (A or not B))); D := D shl  5 or D shr 27 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 1] + $A953FD4E + (D xor (E or not A))); C := C shl 12 or C shr 20 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 3] + $A953FD4E + (C xor (D or not E))); B := B shl 13 or B shr 19 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 8] + $A953FD4E + (B xor (C or not D))); A := A shl 14 or A shr 18 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[11] + $A953FD4E + (A xor (B or not C))); E := E shl 11 or E shr 21 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 6] + $A953FD4E + (E xor (A or not B))); D := D shl  8 or D shr 24 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[15] + $A953FD4E + (D xor (E or not A))); C := C shl  5 or C shr 27 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[13] + $A953FD4E + (C xor (D or not E))); B := B shl  6 or B shr 26 + A; D := D shl 10 or D shr 22;
+
+  A1 := A;
+  B1 := B;
+  C1 := C;
+  D1 := D;
+  E1 := E;
+
+  A := FDigest[0];
+  B := FDigest[1];
+  C := FDigest[2];
+  D := FDigest[3];
+  E := FDigest[4];
+
+  Inc(A, Buffer[ 5] + $50A28BE6 + (B xor (C or not D))); A := A shl  8 or A shr 24 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[14] + $50A28BE6 + (A xor (B or not C))); E := E shl  9 or E shr 23 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 7] + $50A28BE6 + (E xor (A or not B))); D := D shl  9 or D shr 23 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 0] + $50A28BE6 + (D xor (E or not A))); C := C shl 11 or C shr 21 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 9] + $50A28BE6 + (C xor (D or not E))); B := B shl 13 or B shr 19 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 2] + $50A28BE6 + (B xor (C or not D))); A := A shl 15 or A shr 17 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[11] + $50A28BE6 + (A xor (B or not C))); E := E shl 15 or E shr 17 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 4] + $50A28BE6 + (E xor (A or not B))); D := D shl  5 or D shr 27 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[13] + $50A28BE6 + (D xor (E or not A))); C := C shl  7 or C shr 25 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 6] + $50A28BE6 + (C xor (D or not E))); B := B shl  7 or B shr 25 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[15] + $50A28BE6 + (B xor (C or not D))); A := A shl  8 or A shr 24 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 8] + $50A28BE6 + (A xor (B or not C))); E := E shl 11 or E shr 21 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 1] + $50A28BE6 + (E xor (A or not B))); D := D shl 14 or D shr 18 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[10] + $50A28BE6 + (D xor (E or not A))); C := C shl 14 or C shr 18 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 3] + $50A28BE6 + (C xor (D or not E))); B := B shl 12 or B shr 20 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[12] + $50A28BE6 + (B xor (C or not D))); A := A shl  6 or A shr 26 + E; C := C shl 10 or C shr 22;
+
+  Inc(E, Buffer[ 6] + $5C4DD124 + ((A and C) or (B and not C))); E := E shl  9 or E shr 23 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[11] + $5C4DD124 + ((E and B) or (A and not B))); D := D shl 13 or D shr 19 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 3] + $5C4DD124 + ((D and A) or (E and not A))); C := C shl 15 or C shr 17 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 7] + $5C4DD124 + ((C and E) or (D and not E))); B := B shl  7 or B shr 25 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 0] + $5C4DD124 + ((B and D) or (C and not D))); A := A shl 12 or A shr 20 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[13] + $5C4DD124 + ((A and C) or (B and not C))); E := E shl  8 or E shr 24 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 5] + $5C4DD124 + ((E and B) or (A and not B))); D := D shl  9 or D shr 23 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[10] + $5C4DD124 + ((D and A) or (E and not A))); C := C shl 11 or C shr 21 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[14] + $5C4DD124 + ((C and E) or (D and not E))); B := B shl  7 or B shr 25 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[15] + $5C4DD124 + ((B and D) or (C and not D))); A := A shl  7 or A shr 25 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 8] + $5C4DD124 + ((A and C) or (B and not C))); E := E shl 12 or E shr 20 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[12] + $5C4DD124 + ((E and B) or (A and not B))); D := D shl  7 or D shr 25 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 4] + $5C4DD124 + ((D and A) or (E and not A))); C := C shl  6 or C shr 26 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 9] + $5C4DD124 + ((C and E) or (D and not E))); B := B shl 15 or B shr 17 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 1] + $5C4DD124 + ((B and D) or (C and not D))); A := A shl 13 or A shr 19 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 2] + $5C4DD124 + ((A and C) or (B and not C))); E := E shl 11 or E shr 21 + D; B := B shl 10 or B shr 22;
+
+  Inc(D, Buffer[15] + $6D703EF3 + ((E or not A) xor B)); D := D shl  9 or D shr 23 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 5] + $6D703EF3 + ((D or not E) xor A)); C := C shl  7 or C shr 25 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 1] + $6D703EF3 + ((C or not D) xor E)); B := B shl 15 or B shr 17 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 3] + $6D703EF3 + ((B or not C) xor D)); A := A shl 11 or A shr 21 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 7] + $6D703EF3 + ((A or not B) xor C)); E := E shl  8 or E shr 24 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[14] + $6D703EF3 + ((E or not A) xor B)); D := D shl  6 or D shr 26 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 6] + $6D703EF3 + ((D or not E) xor A)); C := C shl  6 or C shr 26 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 9] + $6D703EF3 + ((C or not D) xor E)); B := B shl 14 or B shr 18 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[11] + $6D703EF3 + ((B or not C) xor D)); A := A shl 12 or A shr 20 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 8] + $6D703EF3 + ((A or not B) xor C)); E := E shl 13 or E shr 19 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[12] + $6D703EF3 + ((E or not A) xor B)); D := D shl  5 or D shr 27 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 2] + $6D703EF3 + ((D or not E) xor A)); C := C shl 14 or C shr 18 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[10] + $6D703EF3 + ((C or not D) xor E)); B := B shl 13 or B shr 19 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 0] + $6D703EF3 + ((B or not C) xor D)); A := A shl 13 or A shr 19 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 4] + $6D703EF3 + ((A or not B) xor C)); E := E shl  7 or E shr 25 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[13] + $6D703EF3 + ((E or not A) xor B)); D := D shl  5 or D shr 27 + C; A := A shl 10 or A shr 22;
+
+  Inc(C, Buffer[ 8] + $7A6D76E9 + ((D and E) or (not D and A))); C := C shl 15 or C shr 17 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 6] + $7A6D76E9 + ((C and D) or (not C and E))); B := B shl  5 or B shr 27 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 4] + $7A6D76E9 + ((B and C) or (not B and D))); A := A shl  8 or A shr 24 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 1] + $7A6D76E9 + ((A and B) or (not A and C))); E := E shl 11 or E shr 21 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 3] + $7A6D76E9 + ((E and A) or (not E and B))); D := D shl 14 or D shr 18 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[11] + $7A6D76E9 + ((D and E) or (not D and A))); C := C shl 14 or C shr 18 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[15] + $7A6D76E9 + ((C and D) or (not C and E))); B := B shl  6 or B shr 26 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 0] + $7A6D76E9 + ((B and C) or (not B and D))); A := A shl 14 or A shr 18 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 5] + $7A6D76E9 + ((A and B) or (not A and C))); E := E shl  6 or E shr 26 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[12] + $7A6D76E9 + ((E and A) or (not E and B))); D := D shl  9 or D shr 23 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 2] + $7A6D76E9 + ((D and E) or (not D and A))); C := C shl 12 or C shr 20 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[13] + $7A6D76E9 + ((C and D) or (not C and E))); B := B shl  9 or B shr 23 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 9] + $7A6D76E9 + ((B and C) or (not B and D))); A := A shl 12 or A shr 20 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 7] + $7A6D76E9 + ((A and B) or (not A and C))); E := E shl  5 or E shr 27 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[10] + $7A6D76E9 + ((E and A) or (not E and B))); D := D shl 15 or D shr 17 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[14] + $7A6D76E9 + ((D and E) or (not D and A))); C := C shl  8 or C shr 24 + B; E := E shl 10 or E shr 22;
+
+  Inc(B, Buffer[12] + (C xor D xor E)); B := B shl  8 or B shr 24 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[15] + (B xor C xor D)); A := A shl  5 or A shr 27 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[10] + (A xor B xor C)); E := E shl 12 or E shr 20 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 4] + (E xor A xor B)); D := D shl  9 or D shr 23 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 1] + (D xor E xor A)); C := C shl 12 or C shr 20 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[ 5] + (C xor D xor E)); B := B shl  5 or B shr 27 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[ 8] + (B xor C xor D)); A := A shl 14 or A shr 18 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 7] + (A xor B xor C)); E := E shl  6 or E shr 26 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 6] + (E xor A xor B)); D := D shl  8 or D shr 24 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 2] + (D xor E xor A)); C := C shl 13 or C shr 19 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[13] + (C xor D xor E)); B := B shl  6 or B shr 26 + A; D := D shl 10 or D shr 22;
+  Inc(A, Buffer[14] + (B xor C xor D)); A := A shl  5 or A shr 27 + E; C := C shl 10 or C shr 22;
+  Inc(E, Buffer[ 0] + (A xor B xor C)); E := E shl 15 or E shr 17 + D; B := B shl 10 or B shr 22;
+  Inc(D, Buffer[ 3] + (E xor A xor B)); D := D shl 13 or D shr 19 + C; A := A shl 10 or A shr 22;
+  Inc(C, Buffer[ 9] + (D xor E xor A)); C := C shl 11 or C shr 21 + B; E := E shl 10 or E shr 22;
+  Inc(B, Buffer[11] + (C xor D xor E)); B := B shl 11 or B shr 21 + A; D := D shl 10 or D shr 22;
+
+  Inc(D, C1 + FDigest[1]);
+  FDigest[1] := FDigest[2] + D1 + E;
+  FDigest[2] := FDigest[3] + E1 + A;
+  FDigest[3] := FDigest[4] + A1 + B;
+  FDigest[4] := FDigest[0] + B1 + C;
+  FDigest[0] := D;
+end;
+
+class function TROHash_RipeMD160.DigestKeySize: Integer;
+begin
+  Result := 20;
+end;
+
+class function TROHash_RipeMD256.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0C3h,0B1h,0D7h,0ACh,0A8h,09Ah,047h,07Ah
+         DB    038h,0D3h,06Dh,039h,0EFh,000h,0FBh,045h
+         DB    0FCh,04Eh,0C3h,01Ah,071h,021h,0DBh,09Eh
+         DB    01Ch,076h,0C5h,0DEh,099h,088h,018h,0C2h
+end;
+
+procedure TROHash_RipeMD256.Transform(Buffer: PIntArray);
+var
+  A1, B1, C1, D1: LongWord;
+  A2, B2, C2, D2: LongWord;
+  T: LongWord;
+begin
+  A1 := FDigest[0];
+  B1 := FDigest[1];
+  C1 := FDigest[2];
+  D1 := FDigest[3];
+  A2 := FDigest[4];
+  B2 := FDigest[5];
+  C2 := FDigest[6];
+  D2 := FDigest[7];
+
+  Inc(A1, B1 xor C1 xor D1 + Buffer[ 0]); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 xor B1 xor C1 + Buffer[ 1]); D1 := D1 shl 14 or D1 shr 18;
+  Inc(C1, D1 xor A1 xor B1 + Buffer[ 2]); C1 := C1 shl 15 or C1 shr 17;
+  Inc(B1, C1 xor D1 xor A1 + Buffer[ 3]); B1 := B1 shl 12 or B1 shr 20;
+  Inc(A1, B1 xor C1 xor D1 + Buffer[ 4]); A1 := A1 shl  5 or A1 shr 27;
+  Inc(D1, A1 xor B1 xor C1 + Buffer[ 5]); D1 := D1 shl  8 or D1 shr 24;
+  Inc(C1, D1 xor A1 xor B1 + Buffer[ 6]); C1 := C1 shl  7 or C1 shr 25;
+  Inc(B1, C1 xor D1 xor A1 + Buffer[ 7]); B1 := B1 shl  9 or B1 shr 23;
+  Inc(A1, B1 xor C1 xor D1 + Buffer[ 8]); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 xor B1 xor C1 + Buffer[ 9]); D1 := D1 shl 13 or D1 shr 19;
+  Inc(C1, D1 xor A1 xor B1 + Buffer[10]); C1 := C1 shl 14 or C1 shr 18;
+  Inc(B1, C1 xor D1 xor A1 + Buffer[11]); B1 := B1 shl 15 or B1 shr 17;
+  Inc(A1, B1 xor C1 xor D1 + Buffer[12]); A1 := A1 shl  6 or A1 shr 26;
+  Inc(D1, A1 xor B1 xor C1 + Buffer[13]); D1 := D1 shl  7 or D1 shr 25;
+  Inc(C1, D1 xor A1 xor B1 + Buffer[14]); C1 := C1 shl  9 or C1 shr 23;
+  Inc(B1, C1 xor D1 xor A1 + Buffer[15]); B1 := B1 shl  8 or B1 shr 24;
+
+  Inc(A2, B2 and D2 or C2 and not D2 + Buffer[ 5] + $50A28BE6); A2 := A2 shl  8 or A2 shr 24;
+  Inc(D2, A2 and C2 or B2 and not C2 + Buffer[14] + $50A28BE6); D2 := D2 shl  9 or D2 shr 23;
+  Inc(C2, D2 and B2 or A2 and not B2 + Buffer[ 7] + $50A28BE6); C2 := C2 shl  9 or C2 shr 23;
+  Inc(B2, C2 and A2 or D2 and not A2 + Buffer[ 0] + $50A28BE6); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, B2 and D2 or C2 and not D2 + Buffer[ 9] + $50A28BE6); A2 := A2 shl 13 or A2 shr 19;
+  Inc(D2, A2 and C2 or B2 and not C2 + Buffer[ 2] + $50A28BE6); D2 := D2 shl 15 or D2 shr 17;
+  Inc(C2, D2 and B2 or A2 and not B2 + Buffer[11] + $50A28BE6); C2 := C2 shl 15 or C2 shr 17;
+  Inc(B2, C2 and A2 or D2 and not A2 + Buffer[ 4] + $50A28BE6); B2 := B2 shl  5 or B2 shr 27;
+  Inc(A2, B2 and D2 or C2 and not D2 + Buffer[13] + $50A28BE6); A2 := A2 shl  7 or A2 shr 25;
+  Inc(D2, A2 and C2 or B2 and not C2 + Buffer[ 6] + $50A28BE6); D2 := D2 shl  7 or D2 shr 25;
+  Inc(C2, D2 and B2 or A2 and not B2 + Buffer[15] + $50A28BE6); C2 := C2 shl  8 or C2 shr 24;
+  Inc(B2, C2 and A2 or D2 and not A2 + Buffer[ 8] + $50A28BE6); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, B2 and D2 or C2 and not D2 + Buffer[ 1] + $50A28BE6); A2 := A2 shl 14 or A2 shr 18;
+  Inc(D2, A2 and C2 or B2 and not C2 + Buffer[10] + $50A28BE6); D2 := D2 shl 14 or D2 shr 18;
+  Inc(C2, D2 and B2 or A2 and not B2 + Buffer[ 3] + $50A28BE6); C2 := C2 shl 12 or C2 shr 20;
+  Inc(B2, C2 and A2 or D2 and not A2 + Buffer[12] + $50A28BE6); B2 := B2 shl  6 or B2 shr 26;
+
+  T := A1; A1 := A2; A2 := T;
+
+  Inc(A1, B1 and C1 or not B1 and D1 + Buffer[ 7] + $5A827999); A1 := A1 shl  7 or A1 shr 25;
+  Inc(D1, A1 and B1 or not A1 and C1 + Buffer[ 4] + $5A827999); D1 := D1 shl  6 or D1 shr 26;
+  Inc(C1, D1 and A1 or not D1 and B1 + Buffer[13] + $5A827999); C1 := C1 shl  8 or C1 shr 24;
+  Inc(B1, C1 and D1 or not C1 and A1 + Buffer[ 1] + $5A827999); B1 := B1 shl 13 or B1 shr 19;
+  Inc(A1, B1 and C1 or not B1 and D1 + Buffer[10] + $5A827999); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 and B1 or not A1 and C1 + Buffer[ 6] + $5A827999); D1 := D1 shl  9 or D1 shr 23;
+  Inc(C1, D1 and A1 or not D1 and B1 + Buffer[15] + $5A827999); C1 := C1 shl  7 or C1 shr 25;
+  Inc(B1, C1 and D1 or not C1 and A1 + Buffer[ 3] + $5A827999); B1 := B1 shl 15 or B1 shr 17;
+  Inc(A1, B1 and C1 or not B1 and D1 + Buffer[12] + $5A827999); A1 := A1 shl  7 or A1 shr 25;
+  Inc(D1, A1 and B1 or not A1 and C1 + Buffer[ 0] + $5A827999); D1 := D1 shl 12 or D1 shr 20;
+  Inc(C1, D1 and A1 or not D1 and B1 + Buffer[ 9] + $5A827999); C1 := C1 shl 15 or C1 shr 17;
+  Inc(B1, C1 and D1 or not C1 and A1 + Buffer[ 5] + $5A827999); B1 := B1 shl  9 or B1 shr 23;
+  Inc(A1, B1 and C1 or not B1 and D1 + Buffer[ 2] + $5A827999); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 and B1 or not A1 and C1 + Buffer[14] + $5A827999); D1 := D1 shl  7 or D1 shr 25;
+  Inc(C1, D1 and A1 or not D1 and B1 + Buffer[11] + $5A827999); C1 := C1 shl 13 or C1 shr 19;
+  Inc(B1, C1 and D1 or not C1 and A1 + Buffer[ 8] + $5A827999); B1 := B1 shl 12 or B1 shr 20;
+
+  Inc(A2, (B2 or not C2) xor D2 + Buffer[ 6] + $5C4DD124); A2 := A2 shl  9 or A2 shr 23;
+  Inc(D2, (A2 or not B2) xor C2 + Buffer[11] + $5C4DD124); D2 := D2 shl 13 or D2 shr 19;
+  Inc(C2, (D2 or not A2) xor B2 + Buffer[ 3] + $5C4DD124); C2 := C2 shl 15 or C2 shr 17;
+  Inc(B2, (C2 or not D2) xor A2 + Buffer[ 7] + $5C4DD124); B2 := B2 shl  7 or B2 shr 25;
+  Inc(A2, (B2 or not C2) xor D2 + Buffer[ 0] + $5C4DD124); A2 := A2 shl 12 or A2 shr 20;
+  Inc(D2, (A2 or not B2) xor C2 + Buffer[13] + $5C4DD124); D2 := D2 shl  8 or D2 shr 24;
+  Inc(C2, (D2 or not A2) xor B2 + Buffer[ 5] + $5C4DD124); C2 := C2 shl  9 or C2 shr 23;
+  Inc(B2, (C2 or not D2) xor A2 + Buffer[10] + $5C4DD124); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, (B2 or not C2) xor D2 + Buffer[14] + $5C4DD124); A2 := A2 shl  7 or A2 shr 25;
+  Inc(D2, (A2 or not B2) xor C2 + Buffer[15] + $5C4DD124); D2 := D2 shl  7 or D2 shr 25;
+  Inc(C2, (D2 or not A2) xor B2 + Buffer[ 8] + $5C4DD124); C2 := C2 shl 12 or C2 shr 20;
+  Inc(B2, (C2 or not D2) xor A2 + Buffer[12] + $5C4DD124); B2 := B2 shl  7 or B2 shr 25;
+  Inc(A2, (B2 or not C2) xor D2 + Buffer[ 4] + $5C4DD124); A2 := A2 shl  6 or A2 shr 26;
+  Inc(D2, (A2 or not B2) xor C2 + Buffer[ 9] + $5C4DD124); D2 := D2 shl 15 or D2 shr 17;
+  Inc(C2, (D2 or not A2) xor B2 + Buffer[ 1] + $5C4DD124); C2 := C2 shl 13 or C2 shr 19;
+  Inc(B2, (C2 or not D2) xor A2 + Buffer[ 2] + $5C4DD124); B2 := B2 shl 11 or B2 shr 21;
+
+  T := B1; B1 := B2; B2 := T;
+
+  Inc(A1, (B1 or not C1) xor D1 + Buffer[ 3] + $6ED9EBA1); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, (A1 or not B1) xor C1 + Buffer[10] + $6ED9EBA1); D1 := D1 shl 13 or D1 shr 19;
+  Inc(C1, (D1 or not A1) xor B1 + Buffer[14] + $6ED9EBA1); C1 := C1 shl  6 or C1 shr 26;
+  Inc(B1, (C1 or not D1) xor A1 + Buffer[ 4] + $6ED9EBA1); B1 := B1 shl  7 or B1 shr 25;
+  Inc(A1, (B1 or not C1) xor D1 + Buffer[ 9] + $6ED9EBA1); A1 := A1 shl 14 or A1 shr 18;
+  Inc(D1, (A1 or not B1) xor C1 + Buffer[15] + $6ED9EBA1); D1 := D1 shl  9 or D1 shr 23;
+  Inc(C1, (D1 or not A1) xor B1 + Buffer[ 8] + $6ED9EBA1); C1 := C1 shl 13 or C1 shr 19;
+  Inc(B1, (C1 or not D1) xor A1 + Buffer[ 1] + $6ED9EBA1); B1 := B1 shl 15 or B1 shr 17;
+  Inc(A1, (B1 or not C1) xor D1 + Buffer[ 2] + $6ED9EBA1); A1 := A1 shl 14 or A1 shr 18;
+  Inc(D1, (A1 or not B1) xor C1 + Buffer[ 7] + $6ED9EBA1); D1 := D1 shl  8 or D1 shr 24;
+  Inc(C1, (D1 or not A1) xor B1 + Buffer[ 0] + $6ED9EBA1); C1 := C1 shl 13 or C1 shr 19;
+  Inc(B1, (C1 or not D1) xor A1 + Buffer[ 6] + $6ED9EBA1); B1 := B1 shl  6 or B1 shr 26;
+  Inc(A1, (B1 or not C1) xor D1 + Buffer[13] + $6ED9EBA1); A1 := A1 shl  5 or A1 shr 27;
+  Inc(D1, (A1 or not B1) xor C1 + Buffer[11] + $6ED9EBA1); D1 := D1 shl 12 or D1 shr 20;
+  Inc(C1, (D1 or not A1) xor B1 + Buffer[ 5] + $6ED9EBA1); C1 := C1 shl  7 or C1 shr 25;
+  Inc(B1, (C1 or not D1) xor A1 + Buffer[12] + $6ED9EBA1); B1 := B1 shl  5 or B1 shr 27;
+
+  Inc(A2, B2 and C2 or not B2 and D2 + Buffer[15] + $6D703EF3); A2 := A2 shl  9 or A2 shr 23;
+  Inc(D2, A2 and B2 or not A2 and C2 + Buffer[ 5] + $6D703EF3); D2 := D2 shl  7 or D2 shr 25;
+  Inc(C2, D2 and A2 or not D2 and B2 + Buffer[ 1] + $6D703EF3); C2 := C2 shl 15 or C2 shr 17;
+  Inc(B2, C2 and D2 or not C2 and A2 + Buffer[ 3] + $6D703EF3); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, B2 and C2 or not B2 and D2 + Buffer[ 7] + $6D703EF3); A2 := A2 shl  8 or A2 shr 24;
+  Inc(D2, A2 and B2 or not A2 and C2 + Buffer[14] + $6D703EF3); D2 := D2 shl  6 or D2 shr 26;
+  Inc(C2, D2 and A2 or not D2 and B2 + Buffer[ 6] + $6D703EF3); C2 := C2 shl  6 or C2 shr 26;
+  Inc(B2, C2 and D2 or not C2 and A2 + Buffer[ 9] + $6D703EF3); B2 := B2 shl 14 or B2 shr 18;
+  Inc(A2, B2 and C2 or not B2 and D2 + Buffer[11] + $6D703EF3); A2 := A2 shl 12 or A2 shr 20;
+  Inc(D2, A2 and B2 or not A2 and C2 + Buffer[ 8] + $6D703EF3); D2 := D2 shl 13 or D2 shr 19;
+  Inc(C2, D2 and A2 or not D2 and B2 + Buffer[12] + $6D703EF3); C2 := C2 shl  5 or C2 shr 27;
+  Inc(B2, C2 and D2 or not C2 and A2 + Buffer[ 2] + $6D703EF3); B2 := B2 shl 14 or B2 shr 18;
+  Inc(A2, B2 and C2 or not B2 and D2 + Buffer[10] + $6D703EF3); A2 := A2 shl 13 or A2 shr 19;
+  Inc(D2, A2 and B2 or not A2 and C2 + Buffer[ 0] + $6D703EF3); D2 := D2 shl 13 or D2 shr 19;
+  Inc(C2, D2 and A2 or not D2 and B2 + Buffer[ 4] + $6D703EF3); C2 := C2 shl  7 or C2 shr 25;
+  Inc(B2, C2 and D2 or not C2 and A2 + Buffer[13] + $6D703EF3); B2 := B2 shl  5 or B2 shr 27;
+
+  T := C1; C1 := C2; C2 := T;
+
+  Inc(A1, B1 and D1 or C1 and not D1 + Buffer[ 1] + $8F1BBCDC); A1 := A1 shl 11 or A1 shr 21;
+  Inc(D1, A1 and C1 or B1 and not C1 + Buffer[ 9] + $8F1BBCDC); D1 := D1 shl 12 or D1 shr 20;
+  Inc(C1, D1 and B1 or A1 and not B1 + Buffer[11] + $8F1BBCDC); C1 := C1 shl 14 or C1 shr 18;
+  Inc(B1, C1 and A1 or D1 and not A1 + Buffer[10] + $8F1BBCDC); B1 := B1 shl 15 or B1 shr 17;
+  Inc(A1, B1 and D1 or C1 and not D1 + Buffer[ 0] + $8F1BBCDC); A1 := A1 shl 14 or A1 shr 18;
+  Inc(D1, A1 and C1 or B1 and not C1 + Buffer[ 8] + $8F1BBCDC); D1 := D1 shl 15 or D1 shr 17;
+  Inc(C1, D1 and B1 or A1 and not B1 + Buffer[12] + $8F1BBCDC); C1 := C1 shl  9 or C1 shr 23;
+  Inc(B1, C1 and A1 or D1 and not A1 + Buffer[ 4] + $8F1BBCDC); B1 := B1 shl  8 or B1 shr 24;
+  Inc(A1, B1 and D1 or C1 and not D1 + Buffer[13] + $8F1BBCDC); A1 := A1 shl  9 or A1 shr 23;
+  Inc(D1, A1 and C1 or B1 and not C1 + Buffer[ 3] + $8F1BBCDC); D1 := D1 shl 14 or D1 shr 18;
+  Inc(C1, D1 and B1 or A1 and not B1 + Buffer[ 7] + $8F1BBCDC); C1 := C1 shl  5 or C1 shr 27;
+  Inc(B1, C1 and A1 or D1 and not A1 + Buffer[15] + $8F1BBCDC); B1 := B1 shl  6 or B1 shr 26;
+  Inc(A1, B1 and D1 or C1 and not D1 + Buffer[14] + $8F1BBCDC); A1 := A1 shl  8 or A1 shr 24;
+  Inc(D1, A1 and C1 or B1 and not C1 + Buffer[ 5] + $8F1BBCDC); D1 := D1 shl  6 or D1 shr 26;
+  Inc(C1, D1 and B1 or A1 and not B1 + Buffer[ 6] + $8F1BBCDC); C1 := C1 shl  5 or C1 shr 27;
+  Inc(B1, C1 and A1 or D1 and not A1 + Buffer[ 2] + $8F1BBCDC); B1 := B1 shl 12 or B1 shr 20;
+
+  Inc(A2, B2 xor C2 xor D2 + Buffer[ 8]); A2 := A2 shl 15 or A2 shr 17;
+  Inc(D2, A2 xor B2 xor C2 + Buffer[ 6]); D2 := D2 shl  5 or D2 shr 27;
+  Inc(C2, D2 xor A2 xor B2 + Buffer[ 4]); C2 := C2 shl  8 or C2 shr 24;
+  Inc(B2, C2 xor D2 xor A2 + Buffer[ 1]); B2 := B2 shl 11 or B2 shr 21;
+  Inc(A2, B2 xor C2 xor D2 + Buffer[ 3]); A2 := A2 shl 14 or A2 shr 18;
+  Inc(D2, A2 xor B2 xor C2 + Buffer[11]); D2 := D2 shl 14 or D2 shr 18;
+  Inc(C2, D2 xor A2 xor B2 + Buffer[15]); C2 := C2 shl  6 or C2 shr 26;
+  Inc(B2, C2 xor D2 xor A2 + Buffer[ 0]); B2 := B2 shl 14 or B2 shr 18;
+  Inc(A2, B2 xor C2 xor D2 + Buffer[ 5]); A2 := A2 shl  6 or A2 shr 26;
+  Inc(D2, A2 xor B2 xor C2 + Buffer[12]); D2 := D2 shl  9 or D2 shr 23;
+  Inc(C2, D2 xor A2 xor B2 + Buffer[ 2]); C2 := C2 shl 12 or C2 shr 20;
+  Inc(B2, C2 xor D2 xor A2 + Buffer[13]); B2 := B2 shl  9 or B2 shr 23;
+  Inc(A2, B2 xor C2 xor D2 + Buffer[ 9]); A2 := A2 shl 12 or A2 shr 20;
+  Inc(D2, A2 xor B2 xor C2 + Buffer[ 7]); D2 := D2 shl  5 or D2 shr 27;
+  Inc(C2, D2 xor A2 xor B2 + Buffer[10]); C2 := C2 shl 15 or C2 shr 17;
+  Inc(B2, C2 xor D2 xor A2 + Buffer[14]); B2 := B2 shl  8 or B2 shr 24;
+
+  T := D1; D1 := D2; D2 := T;
+
+  Inc(FDigest[0], A1);
+  Inc(FDigest[1], B1);
+  Inc(FDigest[2], C1);
+  Inc(FDigest[3], D1);
+  Inc(FDigest[4], A2);
+  Inc(FDigest[5], B2);
+  Inc(FDigest[6], C2);
+  Inc(FDigest[7], D2);
+end;
+
+class function TROHash_RipeMD256.DigestKeySize: Integer;
+begin
+  Result := 32;
+end;
+
+procedure TROHash_RipeMD256.Init;
+begin
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  FDigest[0] := $67452301;
+  FDigest[1] := $EFCDAB89;
+  FDigest[2] := $98BADCFE;
+  FDigest[3] := $10325476;
+  FDigest[4] := $76543210;
+  FDigest[5] := $FEDCBA98;
+  FDigest[6] := $89ABCDEF;
+  FDigest[7] := $01234567;
+  FDigest[8] := $01234567;
+  FDigest[9] := $3C2D1E0F;
+  FCount := 0;
+  Protect(True);
+end;
+
+class function TROHash_RipeMD320.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0B7h,0BDh,02Ch,075h,0B7h,013h,050h,091h
+         DB    0E4h,067h,009h,046h,0F1h,041h,05Ah,048h
+         DB    045h,0DFh,08Eh,007h,0BAh,067h,04Eh,0A9h
+         DB    0FDh,066h,0EDh,001h,0D9h,06Fh,023h,020h
+         DB    0B5h,011h,012h,0C5h,0A7h,041h,0A6h,05Ch
+end;
+
+procedure TROHash_RipeMD320.Transform(Buffer: PIntArray);
+var
+  A1, B1, C1, D1, E1: LongWord;
+  A2, B2, C2, D2, E2: LongWord;
+  T: LongWord;
+begin
+  A1 := FDigest[0];
+  B1 := FDigest[1];
+  C1 := FDigest[2];
+  D1 := FDigest[3];
+  E1 := FDigest[4];
+  A2 := FDigest[5];
+  B2 := FDigest[6];
+  C2 := FDigest[7];
+  D2 := FDigest[8];
+  E2 := FDigest[9];
+
+  Inc(A1, Buffer[ 0] + (B1 xor C1 xor D1)); A1 := A1 shl 11 or A1 shr 21 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 1] + (A1 xor B1 xor C1)); E1 := E1 shl 14 or E1 shr 18 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 2] + (E1 xor A1 xor B1)); D1 := D1 shl 15 or D1 shr 17 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 3] + (D1 xor E1 xor A1)); C1 := C1 shl 12 or C1 shr 20 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[ 4] + (C1 xor D1 xor E1)); B1 := B1 shl  5 or B1 shr 27 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[ 5] + (B1 xor C1 xor D1)); A1 := A1 shl  8 or A1 shr 24 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 6] + (A1 xor B1 xor C1)); E1 := E1 shl  7 or E1 shr 25 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 7] + (E1 xor A1 xor B1)); D1 := D1 shl  9 or D1 shr 23 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 8] + (D1 xor E1 xor A1)); C1 := C1 shl 11 or C1 shr 21 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[ 9] + (C1 xor D1 xor E1)); B1 := B1 shl 13 or B1 shr 19 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[10] + (B1 xor C1 xor D1)); A1 := A1 shl 14 or A1 shr 18 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[11] + (A1 xor B1 xor C1)); E1 := E1 shl 15 or E1 shr 17 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[12] + (E1 xor A1 xor B1)); D1 := D1 shl  6 or D1 shr 26 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[13] + (D1 xor E1 xor A1)); C1 := C1 shl  7 or C1 shr 25 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[14] + (C1 xor D1 xor E1)); B1 := B1 shl  9 or B1 shr 23 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[15] + (B1 xor C1 xor D1)); A1 := A1 shl  8 or A1 shr 24 + E1; C1 := C1 shl 10 or C1 shr 22;
+
+  Inc(A2, Buffer[ 5] + $50A28BE6 + (B2 xor (C2 or not D2))); A2 := A2 shl  8 or A2 shr 24 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[14] + $50A28BE6 + (A2 xor (B2 or not C2))); E2 := E2 shl  9 or E2 shr 23 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[ 7] + $50A28BE6 + (E2 xor (A2 or not B2))); D2 := D2 shl  9 or D2 shr 23 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 0] + $50A28BE6 + (D2 xor (E2 or not A2))); C2 := C2 shl 11 or C2 shr 21 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 9] + $50A28BE6 + (C2 xor (D2 or not E2))); B2 := B2 shl 13 or B2 shr 19 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 2] + $50A28BE6 + (B2 xor (C2 or not D2))); A2 := A2 shl 15 or A2 shr 17 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[11] + $50A28BE6 + (A2 xor (B2 or not C2))); E2 := E2 shl 15 or E2 shr 17 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[ 4] + $50A28BE6 + (E2 xor (A2 or not B2))); D2 := D2 shl  5 or D2 shr 27 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[13] + $50A28BE6 + (D2 xor (E2 or not A2))); C2 := C2 shl  7 or C2 shr 25 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 6] + $50A28BE6 + (C2 xor (D2 or not E2))); B2 := B2 shl  7 or B2 shr 25 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[15] + $50A28BE6 + (B2 xor (C2 or not D2))); A2 := A2 shl  8 or A2 shr 24 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 8] + $50A28BE6 + (A2 xor (B2 or not C2))); E2 := E2 shl 11 or E2 shr 21 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[ 1] + $50A28BE6 + (E2 xor (A2 or not B2))); D2 := D2 shl 14 or D2 shr 18 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[10] + $50A28BE6 + (D2 xor (E2 or not A2))); C2 := C2 shl 14 or C2 shr 18 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 3] + $50A28BE6 + (C2 xor (D2 or not E2))); B2 := B2 shl 12 or B2 shr 20 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[12] + $50A28BE6 + (B2 xor (C2 or not D2))); A2 := A2 shl  6 or A2 shr 26 + E2; C2 := C2 shl 10 or C2 shr 22;
+
+  T := A1; A1 := A2; A2 := T;
+
+  Inc(E1, Buffer[ 7] + $5A827999 + ((A1 and B1) or (not A1 and C1))); E1 := E1 shl  7 or E1 shr 25 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 4] + $5A827999 + ((E1 and A1) or (not E1 and B1))); D1 := D1 shl  6 or D1 shr 26 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[13] + $5A827999 + ((D1 and E1) or (not D1 and A1))); C1 := C1 shl  8 or C1 shr 24 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[ 1] + $5A827999 + ((C1 and D1) or (not C1 and E1))); B1 := B1 shl 13 or B1 shr 19 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[10] + $5A827999 + ((B1 and C1) or (not B1 and D1))); A1 := A1 shl 11 or A1 shr 21 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 6] + $5A827999 + ((A1 and B1) or (not A1 and C1))); E1 := E1 shl  9 or E1 shr 23 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[15] + $5A827999 + ((E1 and A1) or (not E1 and B1))); D1 := D1 shl  7 or D1 shr 25 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 3] + $5A827999 + ((D1 and E1) or (not D1 and A1))); C1 := C1 shl 15 or C1 shr 17 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[12] + $5A827999 + ((C1 and D1) or (not C1 and E1))); B1 := B1 shl  7 or B1 shr 25 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[ 0] + $5A827999 + ((B1 and C1) or (not B1 and D1))); A1 := A1 shl 12 or A1 shr 20 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 9] + $5A827999 + ((A1 and B1) or (not A1 and C1))); E1 := E1 shl 15 or E1 shr 17 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 5] + $5A827999 + ((E1 and A1) or (not E1 and B1))); D1 := D1 shl  9 or D1 shr 23 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 2] + $5A827999 + ((D1 and E1) or (not D1 and A1))); C1 := C1 shl 11 or C1 shr 21 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[14] + $5A827999 + ((C1 and D1) or (not C1 and E1))); B1 := B1 shl  7 or B1 shr 25 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[11] + $5A827999 + ((B1 and C1) or (not B1 and D1))); A1 := A1 shl 13 or A1 shr 19 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 8] + $5A827999 + ((A1 and B1) or (not A1 and C1))); E1 := E1 shl 12 or E1 shr 20 + D1; B1 := B1 shl 10 or B1 shr 22;
+
+  Inc(E2, Buffer[ 6] + $5C4DD124 + ((A2 and C2) or (B2 and not C2))); E2 := E2 shl  9 or E2 shr 23 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[11] + $5C4DD124 + ((E2 and B2) or (A2 and not B2))); D2 := D2 shl 13 or D2 shr 19 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 3] + $5C4DD124 + ((D2 and A2) or (E2 and not A2))); C2 := C2 shl 15 or C2 shr 17 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 7] + $5C4DD124 + ((C2 and E2) or (D2 and not E2))); B2 := B2 shl  7 or B2 shr 25 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 0] + $5C4DD124 + ((B2 and D2) or (C2 and not D2))); A2 := A2 shl 12 or A2 shr 20 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[13] + $5C4DD124 + ((A2 and C2) or (B2 and not C2))); E2 := E2 shl  8 or E2 shr 24 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[ 5] + $5C4DD124 + ((E2 and B2) or (A2 and not B2))); D2 := D2 shl  9 or D2 shr 23 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[10] + $5C4DD124 + ((D2 and A2) or (E2 and not A2))); C2 := C2 shl 11 or C2 shr 21 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[14] + $5C4DD124 + ((C2 and E2) or (D2 and not E2))); B2 := B2 shl  7 or B2 shr 25 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[15] + $5C4DD124 + ((B2 and D2) or (C2 and not D2))); A2 := A2 shl  7 or A2 shr 25 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 8] + $5C4DD124 + ((A2 and C2) or (B2 and not C2))); E2 := E2 shl 12 or E2 shr 20 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[12] + $5C4DD124 + ((E2 and B2) or (A2 and not B2))); D2 := D2 shl  7 or D2 shr 25 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 4] + $5C4DD124 + ((D2 and A2) or (E2 and not A2))); C2 := C2 shl  6 or C2 shr 26 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 9] + $5C4DD124 + ((C2 and E2) or (D2 and not E2))); B2 := B2 shl 15 or B2 shr 17 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 1] + $5C4DD124 + ((B2 and D2) or (C2 and not D2))); A2 := A2 shl 13 or A2 shr 19 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 2] + $5C4DD124 + ((A2 and C2) or (B2 and not C2))); E2 := E2 shl 11 or E2 shr 21 + D2; B2 := B2 shl 10 or B2 shr 22;
+
+  T := B1; B1 := B2; B2 := T;
+
+  Inc(D1, Buffer[ 3] + $6ED9EBA1 + ((E1 or not A1) xor B1)); D1 := D1 shl 11 or D1 shr 21 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[10] + $6ED9EBA1 + ((D1 or not E1) xor A1)); C1 := C1 shl 13 or C1 shr 19 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[14] + $6ED9EBA1 + ((C1 or not D1) xor E1)); B1 := B1 shl  6 or B1 shr 26 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[ 4] + $6ED9EBA1 + ((B1 or not C1) xor D1)); A1 := A1 shl  7 or A1 shr 25 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 9] + $6ED9EBA1 + ((A1 or not B1) xor C1)); E1 := E1 shl 14 or E1 shr 18 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[15] + $6ED9EBA1 + ((E1 or not A1) xor B1)); D1 := D1 shl  9 or D1 shr 23 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 8] + $6ED9EBA1 + ((D1 or not E1) xor A1)); C1 := C1 shl 13 or C1 shr 19 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[ 1] + $6ED9EBA1 + ((C1 or not D1) xor E1)); B1 := B1 shl 15 or B1 shr 17 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[ 2] + $6ED9EBA1 + ((B1 or not C1) xor D1)); A1 := A1 shl 14 or A1 shr 18 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 7] + $6ED9EBA1 + ((A1 or not B1) xor C1)); E1 := E1 shl  8 or E1 shr 24 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 0] + $6ED9EBA1 + ((E1 or not A1) xor B1)); D1 := D1 shl 13 or D1 shr 19 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 6] + $6ED9EBA1 + ((D1 or not E1) xor A1)); C1 := C1 shl  6 or C1 shr 26 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[13] + $6ED9EBA1 + ((C1 or not D1) xor E1)); B1 := B1 shl  5 or B1 shr 27 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[11] + $6ED9EBA1 + ((B1 or not C1) xor D1)); A1 := A1 shl 12 or A1 shr 20 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 5] + $6ED9EBA1 + ((A1 or not B1) xor C1)); E1 := E1 shl  7 or E1 shr 25 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[12] + $6ED9EBA1 + ((E1 or not A1) xor B1)); D1 := D1 shl  5 or D1 shr 27 + C1; A1 := A1 shl 10 or A1 shr 22;
+
+  Inc(D2, Buffer[15] + $6D703EF3 + ((E2 or not A2) xor B2)); D2 := D2 shl  9 or D2 shr 23 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 5] + $6D703EF3 + ((D2 or not E2) xor A2)); C2 := C2 shl  7 or C2 shr 25 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 1] + $6D703EF3 + ((C2 or not D2) xor E2)); B2 := B2 shl 15 or B2 shr 17 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 3] + $6D703EF3 + ((B2 or not C2) xor D2)); A2 := A2 shl 11 or A2 shr 21 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 7] + $6D703EF3 + ((A2 or not B2) xor C2)); E2 := E2 shl  8 or E2 shr 24 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[14] + $6D703EF3 + ((E2 or not A2) xor B2)); D2 := D2 shl  6 or D2 shr 26 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 6] + $6D703EF3 + ((D2 or not E2) xor A2)); C2 := C2 shl  6 or C2 shr 26 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 9] + $6D703EF3 + ((C2 or not D2) xor E2)); B2 := B2 shl 14 or B2 shr 18 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[11] + $6D703EF3 + ((B2 or not C2) xor D2)); A2 := A2 shl 12 or A2 shr 20 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 8] + $6D703EF3 + ((A2 or not B2) xor C2)); E2 := E2 shl 13 or E2 shr 19 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[12] + $6D703EF3 + ((E2 or not A2) xor B2)); D2 := D2 shl  5 or D2 shr 27 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 2] + $6D703EF3 + ((D2 or not E2) xor A2)); C2 := C2 shl 14 or C2 shr 18 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[10] + $6D703EF3 + ((C2 or not D2) xor E2)); B2 := B2 shl 13 or B2 shr 19 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 0] + $6D703EF3 + ((B2 or not C2) xor D2)); A2 := A2 shl 13 or A2 shr 19 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 4] + $6D703EF3 + ((A2 or not B2) xor C2)); E2 := E2 shl  7 or E2 shr 25 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[13] + $6D703EF3 + ((E2 or not A2) xor B2)); D2 := D2 shl  5 or D2 shr 27 + C2; A2 := A2 shl 10 or A2 shr 22;
+
+  T := C1; C1 := C2; C2 := T;
+
+  Inc(C1, Buffer[ 1] + $8F1BBCDC + ((D1 and A1) or (E1 and not A1))); C1 := C1 shl 11 or C1 shr 21 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[ 9] + $8F1BBCDC + ((C1 and E1) or (D1 and not E1))); B1 := B1 shl 12 or B1 shr 20 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[11] + $8F1BBCDC + ((B1 and D1) or (C1 and not D1))); A1 := A1 shl 14 or A1 shr 18 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[10] + $8F1BBCDC + ((A1 and C1) or (B1 and not C1))); E1 := E1 shl 15 or E1 shr 17 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 0] + $8F1BBCDC + ((E1 and B1) or (A1 and not B1))); D1 := D1 shl 14 or D1 shr 18 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 8] + $8F1BBCDC + ((D1 and A1) or (E1 and not A1))); C1 := C1 shl 15 or C1 shr 17 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[12] + $8F1BBCDC + ((C1 and E1) or (D1 and not E1))); B1 := B1 shl  9 or B1 shr 23 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[ 4] + $8F1BBCDC + ((B1 and D1) or (C1 and not D1))); A1 := A1 shl  8 or A1 shr 24 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[13] + $8F1BBCDC + ((A1 and C1) or (B1 and not C1))); E1 := E1 shl  9 or E1 shr 23 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 3] + $8F1BBCDC + ((E1 and B1) or (A1 and not B1))); D1 := D1 shl 14 or D1 shr 18 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 7] + $8F1BBCDC + ((D1 and A1) or (E1 and not A1))); C1 := C1 shl  5 or C1 shr 27 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[15] + $8F1BBCDC + ((C1 and E1) or (D1 and not E1))); B1 := B1 shl  6 or B1 shr 26 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[14] + $8F1BBCDC + ((B1 and D1) or (C1 and not D1))); A1 := A1 shl  8 or A1 shr 24 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 5] + $8F1BBCDC + ((A1 and C1) or (B1 and not C1))); E1 := E1 shl  6 or E1 shr 26 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 6] + $8F1BBCDC + ((E1 and B1) or (A1 and not B1))); D1 := D1 shl  5 or D1 shr 27 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 2] + $8F1BBCDC + ((D1 and A1) or (E1 and not A1))); C1 := C1 shl 12 or C1 shr 20 + B1; E1 := E1 shl 10 or E1 shr 22;
+
+  Inc(C2, Buffer[ 8] + $7A6D76E9 + ((D2 and E2) or (not D2 and A2))); C2 := C2 shl 15 or C2 shr 17 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 6] + $7A6D76E9 + ((C2 and D2) or (not C2 and E2))); B2 := B2 shl  5 or B2 shr 27 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 4] + $7A6D76E9 + ((B2 and C2) or (not B2 and D2))); A2 := A2 shl  8 or A2 shr 24 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 1] + $7A6D76E9 + ((A2 and B2) or (not A2 and C2))); E2 := E2 shl 11 or E2 shr 21 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[ 3] + $7A6D76E9 + ((E2 and A2) or (not E2 and B2))); D2 := D2 shl 14 or D2 shr 18 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[11] + $7A6D76E9 + ((D2 and E2) or (not D2 and A2))); C2 := C2 shl 14 or C2 shr 18 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[15] + $7A6D76E9 + ((C2 and D2) or (not C2 and E2))); B2 := B2 shl  6 or B2 shr 26 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 0] + $7A6D76E9 + ((B2 and C2) or (not B2 and D2))); A2 := A2 shl 14 or A2 shr 18 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 5] + $7A6D76E9 + ((A2 and B2) or (not A2 and C2))); E2 := E2 shl  6 or E2 shr 26 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[12] + $7A6D76E9 + ((E2 and A2) or (not E2 and B2))); D2 := D2 shl  9 or D2 shr 23 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 2] + $7A6D76E9 + ((D2 and E2) or (not D2 and A2))); C2 := C2 shl 12 or C2 shr 20 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[13] + $7A6D76E9 + ((C2 and D2) or (not C2 and E2))); B2 := B2 shl  9 or B2 shr 23 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 9] + $7A6D76E9 + ((B2 and C2) or (not B2 and D2))); A2 := A2 shl 12 or A2 shr 20 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 7] + $7A6D76E9 + ((A2 and B2) or (not A2 and C2))); E2 := E2 shl  5 or E2 shr 27 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[10] + $7A6D76E9 + ((E2 and A2) or (not E2 and B2))); D2 := D2 shl 15 or D2 shr 17 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[14] + $7A6D76E9 + ((D2 and E2) or (not D2 and A2))); C2 := C2 shl  8 or C2 shr 24 + B2; E2 := E2 shl 10 or E2 shr 22;
+
+  T := D1; D1 := D2; D2 := T;
+
+  Inc(B1, Buffer[ 4] + $A953FD4E + (C1 xor (D1 or not E1))); B1 := B1 shl  9 or B1 shr 23 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[ 0] + $A953FD4E + (B1 xor (C1 or not D1))); A1 := A1 shl 15 or A1 shr 17 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[ 5] + $A953FD4E + (A1 xor (B1 or not C1))); E1 := E1 shl  5 or E1 shr 27 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 9] + $A953FD4E + (E1 xor (A1 or not B1))); D1 := D1 shl 11 or D1 shr 21 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 7] + $A953FD4E + (D1 xor (E1 or not A1))); C1 := C1 shl  6 or C1 shr 26 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[12] + $A953FD4E + (C1 xor (D1 or not E1))); B1 := B1 shl  8 or B1 shr 24 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[ 2] + $A953FD4E + (B1 xor (C1 or not D1))); A1 := A1 shl 13 or A1 shr 19 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[10] + $A953FD4E + (A1 xor (B1 or not C1))); E1 := E1 shl 12 or E1 shr 20 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[14] + $A953FD4E + (E1 xor (A1 or not B1))); D1 := D1 shl  5 or D1 shr 27 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[ 1] + $A953FD4E + (D1 xor (E1 or not A1))); C1 := C1 shl 12 or C1 shr 20 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[ 3] + $A953FD4E + (C1 xor (D1 or not E1))); B1 := B1 shl 13 or B1 shr 19 + A1; D1 := D1 shl 10 or D1 shr 22;
+  Inc(A1, Buffer[ 8] + $A953FD4E + (B1 xor (C1 or not D1))); A1 := A1 shl 14 or A1 shr 18 + E1; C1 := C1 shl 10 or C1 shr 22;
+  Inc(E1, Buffer[11] + $A953FD4E + (A1 xor (B1 or not C1))); E1 := E1 shl 11 or E1 shr 21 + D1; B1 := B1 shl 10 or B1 shr 22;
+  Inc(D1, Buffer[ 6] + $A953FD4E + (E1 xor (A1 or not B1))); D1 := D1 shl  8 or D1 shr 24 + C1; A1 := A1 shl 10 or A1 shr 22;
+  Inc(C1, Buffer[15] + $A953FD4E + (D1 xor (E1 or not A1))); C1 := C1 shl  5 or C1 shr 27 + B1; E1 := E1 shl 10 or E1 shr 22;
+  Inc(B1, Buffer[13] + $A953FD4E + (C1 xor (D1 or not E1))); B1 := B1 shl  6 or B1 shr 26 + A1; D1 := D1 shl 10 or D1 shr 22;
+
+  Inc(B2, Buffer[12] + (C2 xor D2 xor E2)); B2 := B2 shl  8 or B2 shr 24 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[15] + (B2 xor C2 xor D2)); A2 := A2 shl  5 or A2 shr 27 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[10] + (A2 xor B2 xor C2)); E2 := E2 shl 12 or E2 shr 20 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[ 4] + (E2 xor A2 xor B2)); D2 := D2 shl  9 or D2 shr 23 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 1] + (D2 xor E2 xor A2)); C2 := C2 shl 12 or C2 shr 20 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[ 5] + (C2 xor D2 xor E2)); B2 := B2 shl  5 or B2 shr 27 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[ 8] + (B2 xor C2 xor D2)); A2 := A2 shl 14 or A2 shr 18 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 7] + (A2 xor B2 xor C2)); E2 := E2 shl  6 or E2 shr 26 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[ 6] + (E2 xor A2 xor B2)); D2 := D2 shl  8 or D2 shr 24 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 2] + (D2 xor E2 xor A2)); C2 := C2 shl 13 or C2 shr 19 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[13] + (C2 xor D2 xor E2)); B2 := B2 shl  6 or B2 shr 26 + A2; D2 := D2 shl 10 or D2 shr 22;
+  Inc(A2, Buffer[14] + (B2 xor C2 xor D2)); A2 := A2 shl  5 or A2 shr 27 + E2; C2 := C2 shl 10 or C2 shr 22;
+  Inc(E2, Buffer[ 0] + (A2 xor B2 xor C2)); E2 := E2 shl 15 or E2 shr 17 + D2; B2 := B2 shl 10 or B2 shr 22;
+  Inc(D2, Buffer[ 3] + (E2 xor A2 xor B2)); D2 := D2 shl 13 or D2 shr 19 + C2; A2 := A2 shl 10 or A2 shr 22;
+  Inc(C2, Buffer[ 9] + (D2 xor E2 xor A2)); C2 := C2 shl 11 or C2 shr 21 + B2; E2 := E2 shl 10 or E2 shr 22;
+  Inc(B2, Buffer[11] + (C2 xor D2 xor E2)); B2 := B2 shl 11 or B2 shr 21 + A2; D2 := D2 shl 10 or D2 shr 22;
+
+  T := E1; E1 := E2; E2 := T;
+
+  Inc(FDigest[0], A1);
+  Inc(FDigest[1], B1);
+  Inc(FDigest[2], C1);
+  Inc(FDigest[3], D1);
+  Inc(FDigest[4], E1);
+  Inc(FDigest[5], A2);
+  Inc(FDigest[6], B2);
+  Inc(FDigest[7], C2);
+  Inc(FDigest[8], D2);
+  Inc(FDigest[9], E2);
+end;
+
+class function TROHash_RipeMD320.DigestKeySize: Integer;
+begin
+  Result := 40;
+end;
+
+class function TROHash_SHA.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0DCh,01Fh,07Dh,07Ch,096h,0DDh,0C7h,0FCh
+         DB    04Dh,00Ah,0F2h,0CCh,012h,0E7h,0F7h,066h
+         DB    05Bh,0B1h,085h,0ACh
+end;
+
+procedure SHABuffer386(S, D: Pointer; Rotate: Boolean); assembler;
+asm
+     PUSH  EBX
+     PUSH  ECX
+     MOV   EBX,EAX
+     XOR   ECX,ECX
+@@1: MOV   EAX,[EDX + ECX * 4]
+     XCHG  AL,AH
+     ROL   EAX,16
+     XCHG  AL,AH
+     MOV   [EBX],EAX
+     ADD   EBX,4
+     INC   ECX
+     CMP   ECX,16
+     JNZ   @@1
+     MOV   ECX,64
+     POP   EDX
+     CMP   DL,0
+     JZ    @@3
+@@2: MOV   EAX,[EBX -  3 * 4]
+     XOR   EAX,[EBX -  8 * 4]
+     XOR   EAX,[EBX - 14 * 4]
+     XOR   EAX,[EBX - 16 * 4]
+     ROL   EAX,1
+     MOV   [EBX],EAX
+     ADD   EBX,4
+     DEC   ECX
+     JNZ   @@2
+     JMP   @@4
+
+@@3: MOV   EAX,[EBX -  3 * 4]
+     XOR   EAX,[EBX -  8 * 4]
+     XOR   EAX,[EBX - 14 * 4]
+     XOR   EAX,[EBX - 16 * 4]
+     MOV   [EBX],EAX
+     ADD   EBX,4
+     DEC   ECX
+     JNZ   @@3
+
+@@4: POP   EBX
+end;
+
+procedure SHABuffer486(S, D: Pointer; Rotate: Boolean); assembler;
+asm
+     PUSH  EBX
+     PUSH  ECX
+     MOV   EBX,EAX
+     XOR   ECX,ECX
+@@1: MOV   EAX,[EDX + ECX * 4]
+     BSWAP EAX
+     MOV   [EBX],EAX
+     ADD   EBX,4
+     INC   ECX
+     CMP   ECX,16
+     JNZ   @@1
+     MOV   ECX,64
+     POP   EDX
+     CMP   DL,0
+     JZ    @@3
+@@2: MOV   EAX,[EBX -  3 * 4]
+     XOR   EAX,[EBX -  8 * 4]
+     XOR   EAX,[EBX - 14 * 4]
+     XOR   EAX,[EBX - 16 * 4]
+     ROL   EAX,1
+     MOV   [EBX],EAX
+     ADD   EBX,4
+     DEC   ECX
+     JNZ   @@2
+     JMP   @@4
+
+@@3: MOV   EAX,[EBX -  3 * 4]
+     XOR   EAX,[EBX -  8 * 4]
+     XOR   EAX,[EBX - 14 * 4]
+     XOR   EAX,[EBX - 16 * 4]
+     MOV   [EBX],EAX
+     ADD   EBX,4
+     DEC   ECX
+     JNZ   @@3
+
+@@4: POP   EBX
+end;
+
+const
+  SHABuffer: procedure(S, D: Pointer; Rotate: Boolean) = SHABuffer486;
+
+procedure TROHash_SHA.Transform(Buffer: PIntArray);
+var
+  A, B, C, D, E: LongWord;
+  W: array[0..79] of LongWord;
+begin
+  SHABuffer(@W, Buffer, FRotate);
+
+  A := FDigest[0];
+  B := FDigest[1];
+  C := FDigest[2];
+  D := FDigest[3];
+  E := FDigest[4];
+
+  Inc(E, (A shl 5 or A shr 27) + (D xor (B and (C xor D))) + W[ 0] + $5A827999); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor (A and (B xor C))) + W[ 1] + $5A827999); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor (E and (A xor B))) + W[ 2] + $5A827999); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor (D and (E xor A))) + W[ 3] + $5A827999); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor (C and (D xor E))) + W[ 4] + $5A827999); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor (B and (C xor D))) + W[ 5] + $5A827999); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor (A and (B xor C))) + W[ 6] + $5A827999); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor (E and (A xor B))) + W[ 7] + $5A827999); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor (D and (E xor A))) + W[ 8] + $5A827999); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor (C and (D xor E))) + W[ 9] + $5A827999); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor (B and (C xor D))) + W[10] + $5A827999); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor (A and (B xor C))) + W[11] + $5A827999); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor (E and (A xor B))) + W[12] + $5A827999); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor (D and (E xor A))) + W[13] + $5A827999); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor (C and (D xor E))) + W[14] + $5A827999); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor (B and (C xor D))) + W[15] + $5A827999); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor (A and (B xor C))) + W[16] + $5A827999); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor (E and (A xor B))) + W[17] + $5A827999); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor (D and (E xor A))) + W[18] + $5A827999); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor (C and (D xor E))) + W[19] + $5A827999); C := C shr 2 or C shl 30;
+
+  Inc(E, (A shl 5 or A shr 27) + (D xor B xor C) + W[20] + $6ED9EBA1); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor A xor B) + W[21] + $6ED9EBA1); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor E xor A) + W[22] + $6ED9EBA1); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor D xor E) + W[23] + $6ED9EBA1); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor C xor D) + W[24] + $6ED9EBA1); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor B xor C) + W[25] + $6ED9EBA1); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor A xor B) + W[26] + $6ED9EBA1); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor E xor A) + W[27] + $6ED9EBA1); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor D xor E) + W[28] + $6ED9EBA1); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor C xor D) + W[29] + $6ED9EBA1); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor B xor C) + W[30] + $6ED9EBA1); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor A xor B) + W[31] + $6ED9EBA1); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor E xor A) + W[32] + $6ED9EBA1); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor D xor E) + W[33] + $6ED9EBA1); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor C xor D) + W[34] + $6ED9EBA1); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor B xor C) + W[35] + $6ED9EBA1); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor A xor B) + W[36] + $6ED9EBA1); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor E xor A) + W[37] + $6ED9EBA1); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor D xor E) + W[38] + $6ED9EBA1); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor C xor D) + W[39] + $6ED9EBA1); C := C shr 2 or C shl 30;
+
+  Inc(E, (A shl 5 or A shr 27) + ((B and C) or (D and (B or C))) + W[40] + $8F1BBCDC); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + ((A and B) or (C and (A or B))) + W[41] + $8F1BBCDC); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + ((E and A) or (B and (E or A))) + W[42] + $8F1BBCDC); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + ((D and E) or (A and (D or E))) + W[43] + $8F1BBCDC); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + ((C and D) or (E and (C or D))) + W[44] + $8F1BBCDC); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + ((B and C) or (D and (B or C))) + W[45] + $8F1BBCDC); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + ((A and B) or (C and (A or B))) + W[46] + $8F1BBCDC); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + ((E and A) or (B and (E or A))) + W[47] + $8F1BBCDC); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + ((D and E) or (A and (D or E))) + W[48] + $8F1BBCDC); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + ((C and D) or (E and (C or D))) + W[49] + $8F1BBCDC); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + ((B and C) or (D and (B or C))) + W[50] + $8F1BBCDC); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + ((A and B) or (C and (A or B))) + W[51] + $8F1BBCDC); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + ((E and A) or (B and (E or A))) + W[52] + $8F1BBCDC); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + ((D and E) or (A and (D or E))) + W[53] + $8F1BBCDC); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + ((C and D) or (E and (C or D))) + W[54] + $8F1BBCDC); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + ((B and C) or (D and (B or C))) + W[55] + $8F1BBCDC); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + ((A and B) or (C and (A or B))) + W[56] + $8F1BBCDC); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + ((E and A) or (B and (E or A))) + W[57] + $8F1BBCDC); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + ((D and E) or (A and (D or E))) + W[58] + $8F1BBCDC); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + ((C and D) or (E and (C or D))) + W[59] + $8F1BBCDC); C := C shr 2 or C shl 30;
+
+  Inc(E, (A shl 5 or A shr 27) + (D xor B xor C) + W[60] + $CA62C1D6); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor A xor B) + W[61] + $CA62C1D6); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor E xor A) + W[62] + $CA62C1D6); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor D xor E) + W[63] + $CA62C1D6); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor C xor D) + W[64] + $CA62C1D6); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor B xor C) + W[65] + $CA62C1D6); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor A xor B) + W[66] + $CA62C1D6); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor E xor A) + W[67] + $CA62C1D6); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor D xor E) + W[68] + $CA62C1D6); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor C xor D) + W[69] + $CA62C1D6); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor B xor C) + W[70] + $CA62C1D6); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor A xor B) + W[71] + $CA62C1D6); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor E xor A) + W[72] + $CA62C1D6); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor D xor E) + W[73] + $CA62C1D6); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor C xor D) + W[74] + $CA62C1D6); C := C shr 2 or C shl 30;
+  Inc(E, (A shl 5 or A shr 27) + (D xor B xor C) + W[75] + $CA62C1D6); B := B shr 2 or B shl 30;
+  Inc(D, (E shl 5 or E shr 27) + (C xor A xor B) + W[76] + $CA62C1D6); A := A shr 2 or A shl 30;
+  Inc(C, (D shl 5 or D shr 27) + (B xor E xor A) + W[77] + $CA62C1D6); E := E shr 2 or E shl 30;
+  Inc(B, (C shl 5 or C shr 27) + (A xor D xor E) + W[78] + $CA62C1D6); D := D shr 2 or D shl 30;
+  Inc(A, (B shl 5 or B shr 27) + (E xor C xor D) + W[79] + $CA62C1D6); C := C shr 2 or C shl 30;
+
+  Inc(FDigest[0], A);
+  Inc(FDigest[1], B);
+  Inc(FDigest[2], C);
+  Inc(FDigest[3], D);
+  Inc(FDigest[4], E);
+end;
+
+procedure TROHash_SHA.Done;
+var
+  I: Integer;
+  S: Comp;
+begin
+  I := FCount mod 64;
+  FBuffer[I] := $80;
+  Inc(I);
+  if I > 64 - 8 then
+  begin
+    FillChar(FBuffer[I], 64 - I, 0);
+    Transform(@FBuffer);
+    I := 0;
+  end;
+  FillChar(FBuffer[I], 64 - I, 0);
+  S := FCount * 8;
+  for I := 0 to 7 do FBuffer[63 - I] := PByteArray(@S)^[I];
+  Transform(@FBuffer);
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+{and here the Endian conversion}
+  SwapIntegerBuffer(@FDigest, @FDigest, 5);
+  Protect(False);
+end;
+
+class function TROHash_SHA1.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    09Ah,001h,02Eh,063h,096h,02Ah,092h,0EBh
+         DB    0D8h,02Eh,0F0h,0BCh,01Ch,0A4h,051h,06Ah
+         DB    008h,069h,02Eh,068h
+end;
+
+procedure TROHash_SHA1.Init;
+begin
+  FRotate := True;
+  inherited Init;
+end;
+
+class function TROHash_Haval256.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0E9h,092h,0C1h,0FBh,079h,0E9h,0BAh,0A8h
+         DB    028h,05Ch,07Ah,073h,00Bh,0EBh,00Ch,07Ch
+         DB    0ADh,0F3h,0F7h,0ADh,026h,0D7h,0EFh,0E2h
+         DB    01Fh,0F4h,0BFh,067h,057h,069h,0D5h,09Ah
+end;
+
+procedure TROHash_Haval256.SetRounds(Value: Integer);
+begin
+  if (Value < 3) or (Value > 5) then
+    if DigestKeySize <= 20 then Value := 3 else
+      if DigestKeySize <= 28 then Value := 4
+        else Value := 5;
+  FRounds := Value;
+  case FRounds of
+    3: FTransform := Transform3;
+    4: FTransform := Transform4;
+    5: FTransform := Transform5;
+  end;
+end;
+{3 Rounds}
+procedure TROHash_Haval256.Transform3(Buffer: PIntArray);
+var
+  A,B,C,D,E,F,G,H,I,T: LongWord;
+  Data: PInteger;
+  Offset: PByte;
+begin
+  Offset := @Haval_Offset;
+  Data   := @Haval_Data;
+
+  A := FDigest[0];
+  B := FDigest[1];
+  C := FDigest[2];
+  D := FDigest[3];
+  E := FDigest[4];
+  F := FDigest[5];
+  G := FDigest[6];
+  H := FDigest[7];
+
+  for I := 0 to 31 do
+  begin
+    T := C and (E xor D) xor G and A xor F and B xor E;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[I];
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := F and (D and not A xor B and C xor E xor G) xor B and (D xor C) xor A and C xor G;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := D and (F and E xor G xor A) xor F and C xor E and B xor A;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+
+  Inc(FDigest[0], A);
+  Inc(FDigest[1], B);
+  Inc(FDigest[2], C);
+  Inc(FDigest[3], D);
+  Inc(FDigest[4], E);
+  Inc(FDigest[5], F);
+  Inc(FDigest[6], G);
+  Inc(FDigest[7], H);
+end;
+{4 Rounds}
+procedure TROHash_Haval256.Transform4(Buffer: PIntArray);
+var
+  A,B,C,D,E,F,G,H,I,T: LongWord;
+  Data: PInteger;
+  Offset: PByte;
+begin
+  Offset := @Haval_Offset;
+  Data   := @Haval_Data;
+
+  A := FDigest[0];
+  B := FDigest[1];
+  C := FDigest[2];
+  D := FDigest[3];
+  E := FDigest[4];
+  F := FDigest[5];
+  G := FDigest[6];
+  H := FDigest[7];
+
+  for I := 0 to 31 do
+  begin
+    T := D and (A xor B) xor F and G xor E and C xor A;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[I];
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := B and (G and not A xor C and F xor D xor E) xor C and (G xor F) xor A and F xor E;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := G and (C and A xor B xor F) xor C and D xor A and E xor F;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := A and (E and not C xor F and not G xor B xor G xor D) xor F and
+        (B and C xor E xor G) xor C and G xor D;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+
+  Inc(FDigest[0], A);
+  Inc(FDigest[1], B);
+  Inc(FDigest[2], C);
+  Inc(FDigest[3], D);
+  Inc(FDigest[4], E);
+  Inc(FDigest[5], F);
+  Inc(FDigest[6], G);
+  Inc(FDigest[7], H);
+end;
+
+{5 Rounds}
+procedure TROHash_Haval256.Transform5(Buffer: PIntArray);
+var
+  A,B,C,D,E,F,G,H,I,T: LongWord;
+  Data: PInteger;
+  Offset: PByte;
+begin
+  Offset := @Haval_Offset;
+  Data   := @Haval_Data;
+
+  A := FDigest[0];
+  B := FDigest[1];
+  C := FDigest[2];
+  D := FDigest[3];
+  E := FDigest[4];
+  F := FDigest[5];
+  G := FDigest[6];
+  H := FDigest[7];
+
+  for I := 0 to 31 do
+  begin
+    T := C and (G xor B) xor F and E xor A and D xor G;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[I];
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := D and (E and not A xor B and C xor G xor F) xor B and (E xor C) xor A and C xor F;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := E and (B and D xor C xor F) xor B and A xor D and G xor F;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := D and (F and not A xor C and not B xor E xor B xor G) xor C and
+        (E and A xor F xor B) xor A and B xor G;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+  for I := 0 to 31 do
+  begin
+    T := B and (D and E and G xor not F) xor D and A xor E and F xor G and C;
+    T := (T shr 7 or T shl 25) + (H shr 11 or H shl 21) + Buffer[Offset^] + Data^;
+    Inc(Offset); Inc(Data);
+    H := G; G := F; F := E; E := D; D := C; C := B; B := A; A := T;
+  end;
+
+  Inc(FDigest[0], A);
+  Inc(FDigest[1], B);
+  Inc(FDigest[2], C);
+  Inc(FDigest[3], D);
+  Inc(FDigest[4], E);
+  Inc(FDigest[5], F);
+  Inc(FDigest[6], G);
+  Inc(FDigest[7], H);
+end;
+
+class function TROHash_Haval256.DigestKeySize: Integer;
+begin
+  Result := 32;
+end;
+
+procedure TROHash_Haval256.Init;
+begin
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  SetRounds(FRounds);
+  FCount := 0;
+  FDigest[0] := $243F6A88;
+  FDigest[1] := $85A308D3;
+  FDigest[2] := $13198A2E;
+  FDigest[3] := $03707344;
+  FDigest[4] := $A4093822;
+  FDigest[5] := $299F31D0;
+  FDigest[6] := $082EFA98;
+  FDigest[7] := $EC4E6C89;
+  Protect(True);
+end;
+
+procedure TROHash_Haval256.Done;
+var
+  I: Integer;
+  S: Comp;
+begin
+  I := FCount mod 128;
+  FBuffer[I] := $01;
+{ops, $80 in the C Reference Implementation, but $01 in the Documentation ???}
+  Inc(I);
+  if I > 118 then
+  begin
+    FillChar(FBuffer[I], 118 - I, 0);
+    FTransform(@FBuffer);
+    I := 0;
+  end;
+  FillChar(FBuffer[I], 118 - I, 0);
+  I := DigestKeySize * 8; {in bits}
+  FBuffer[118] := I and 3 shl 6 or FRounds shl 3 or 1;
+  FBuffer[119] := I shr 2 and $FF;
+  S := FCount * 8;
+  Move(S, FBuffer[120], SizeOf(S));
+  FTransform(@FBuffer);
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  case I of
+    128: begin
+           Inc(FDigest[0], ROR(FDigest[7] and $000000FF or
+                               FDigest[6] and $FF000000 or
+                               FDigest[5] and $00FF0000 or
+                               FDigest[4] and $0000FF00, 8));
+           Inc(FDigest[1], ROR(FDigest[7] and $0000FF00 or
+                               FDigest[6] and $000000FF or
+                               FDigest[5] and $FF000000 or
+                               FDigest[4] and $00FF0000, 16));
+           Inc(FDigest[2], ROR(FDigest[7] and $00FF0000 or
+                               FDigest[6] and $0000FF00 or
+                               FDigest[5] and $000000FF or
+                               FDigest[4] and $FF000000, 24));
+           Inc(FDigest[3], FDigest[7] and $FF000000 or
+                           FDigest[6] and $00FF0000 or
+                           FDigest[5] and $0000FF00 or
+                           FDigest[4] and $000000FF);
+         end;
+    160: begin
+           Inc(FDigest[0], ROR(FDigest[7] and ($3F) or
+                               FDigest[6] and ($7F shl 25) or
+                               FDigest[5] and ($3F shl 19), 19));
+           Inc(FDigest[1], ROR(FDigest[7] and ($3F shl 6) or
+                               FDigest[6] and ($3F) or
+                               FDigest[5] and ($7F shl 25), 25));
+           Inc(FDigest[2], FDigest[7] and ($7F shl 12) or
+                           FDigest[6] and ($3F shl  6) or
+                           FDigest[5] and ($3F));
+           Inc(FDigest[3], (FDigest[7] and ($3F shl 19) or
+                            FDigest[6] and ($7F shl 12) or
+                            FDigest[5] and ($3F shl  6)) shr 6);
+           Inc(FDigest[4], (FDigest[7] and ($37 shl 25) or
+                            FDigest[6] and ($3F shl 19) or
+                            FDigest[5] and ($7F shl 12)) shr 12);
+         end;
+    192: begin
+           Inc(FDigest[0], ROR(FDigest[7] and ($3F) or
+                               FDigest[6] and ($3F shl 26), 26));
+           Inc(FDigest[1], FDigest[7] and ($1F shl 5) or
+                           FDigest[6] and ($1F));
+           Inc(FDigest[2], (FDigest[7] and ($3F shl 10) or
+                            FDigest[6] and ($1F shl  5)) shr 5);
+           Inc(FDigest[3], (FDigest[7] and ($1F shl 16) or
+                            FDigest[6] and ($3F shl 10)) shr 10);
+           Inc(FDigest[4], (FDigest[7] and ($1F shl 21) or
+                            FDigest[6] and ($1F shl 16)) shr 16);
+           Inc(FDigest[5], (FDigest[7] and ($3F shl 26) or
+                            FDigest[6] and ($1F shl 21)) shr 21);
+         end;
+    224: begin
+           Inc(FDigest[0], FDigest[7] shr 27 and $1F);
+           Inc(FDigest[1], FDigest[7] shr 22 and $1F);
+           Inc(FDigest[2], FDigest[7] shr 18 and $0F);
+           Inc(FDigest[3], FDigest[7] shr 13 and $1F);
+           Inc(FDigest[4], FDigest[7] shr  9 and $0F);
+           Inc(FDigest[5], FDigest[7] shr  4 and $1F);
+           Inc(FDigest[6], FDigest[7]        and $0F);
+         end;
+  end;
+  Protect(False);
+end;
+
+procedure TROHash_Haval256.Calc(const Data; DataSize: Integer);
+var
+  Index: Integer;
+  P: PChar;
+begin
+  if DataSize <= 0 then Exit;
+  Index := FCount and $3F;
+  Inc(FCount, DataSize);
+  if Index > 0 then
+  begin
+    if DataSize < 128 - Index then
+    begin
+      Move(Data, FBuffer[Index], DataSize);
+      Exit;
+    end;
+    Move(Data, FBuffer[Index], 128 - Index);
+    FTransform(@FBuffer);
+    Index := 128 - Index;
+    Dec(DataSize, Index);
+  end;
+  P := @TByteArray(Data)[Index];
+  Inc(Index, DataSize and not $7F);
+  while DataSize >= 128 do
+  begin
+    FTransform(Pointer(P));
+    Inc(P, 128);
+    Dec(DataSize, 128);
+  end;
+  Move(TByteArray(Data)[Index], FBuffer, DataSize);
+end;
+
+function TROHash_Haval256.DigestKey: Pointer;
+begin
+  Result := @FDigest;
+end;
+
+class function TROHash_Haval224.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    032h,03Ah,0DCh,0B3h,075h,0B5h,08Fh,05Ah
+         DB    06Ah,0F1h,066h,089h,099h,05Ah,07Ah,098h
+         DB    071h,06Eh,022h,077h,0BCh,002h,029h,038h
+         DB    067h,0A5h,0CCh,0E1h
+end;
+
+class function TROHash_Haval224.DigestKeySize: Integer;
+begin
+  Result := 28;
+end;
+
+class function TROHash_Haval192.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    030h,0AEh,0ECh,03Fh,0C1h,08Eh,061h,018h
+         DB    0A4h,0F2h,0A3h,0E8h,006h,06Ch,03Bh,064h
+         DB    0A6h,0A9h,02Eh,07Dh,0E2h,052h,0A0h,0B5h
+end;
+
+class function TROHash_Haval192.DigestKeySize: Integer;
+begin
+  Result := 24;
+end;
+
+class function TROHash_Haval160.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    013h,0DDh,0BDh,032h,033h,0BCh,004h,08Dh
+         DB    06Dh,0F6h,063h,056h,037h,0E2h,0A0h,0D0h
+         DB    053h,01Bh,090h,003h
+end;
+
+class function TROHash_Haval160.DigestKeySize: Integer;
+begin
+  Result := 20;
+end;
+
+class function TROHash_Haval128.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0D8h,0CBh,0CDh,0ECh,07Ah,0FDh,0C8h,0A5h
+         DB    0F2h,07Bh,0D2h,012h,0B9h,033h,09Ah,0BDh
+end;
+
+class function TROHash_Haval128.DigestKeySize: Integer;
+begin
+  Result := 16;
+end;
+
+procedure TROHash_Snefru.SetSecurity_Level(Value: Integer);
+begin
+  if (Value < 2) or (Value > 8) then Value := 8;
+  FSecurity_Level := Value;
+end;
+
+class function TROHash_Snefru.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0D6h,090h,0EEh,067h,028h,0D9h,0BAh,002h
+         DB    0A3h,0C7h,090h,0EEh,050h,073h,019h,074h
+         DB    01Fh,0BFh,06Bh,083h,0EBh,09Ah,06Bh,0DFh
+         DB    0F5h,07Ah,0D8h,0C3h,007h,08Dh,0A4h,034h
+end;
+
+class function TROHash_Snefru.DigestKeySize: Integer;
+begin
+  Result := 32;
+end;
+
+procedure TROHash_Snefru.Init;
+begin
+  FillChar(FDigest, SizeOf(FDigest), 0);
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  FSecurity_Level := 8;
+  FCount := 0;
+  Protect(True);
+end;
+
+procedure TROHash_Snefru.Transform(Buffer: PIntArray);
+const
+  ShiftTable: array[0..3] of Integer = (16, 8, 16, 24);
+var
+  I,Index,ByteInWord, T, S: LongWord;
+  D,Box: PIntArray;
+begin
+  D := @FDigest;
+  Move(Buffer^, D[8], 32);
+  for Index := 0 to FSecurity_Level-1 do
+  begin
+    for ByteInWord := 0 to 3 do
+    begin
+      I := 0;
+      while I < 16 do
+      begin
+        Box := @Snefru_Data[(Index shl 1) + ((I shr 1) and 1)];
+        S := Box[D[I] and $FF];
+        T := (I +  1) and 15; D[T] := D[T] xor S;
+        T := (I + 15) and 15; D[T] := D[T] xor S;
+        Inc(I);
+        S := Box[D[I] and $FF];
+        T := (I +  1) and 15; D[T] := D[T] xor S;
+        T := (I + 15) and 15; D[T] := D[T] xor S;
+        Inc(I);
+      end;
+      T := ShiftTable[ByteInWord];
+      S := 32 - T;
+      for I := 0 to 15 do D[I] := D[I] shr T or D[I] shl S;
+    end;
+  end;
+  for I := 0 to 7 do D[I] := D[I] xor D[15 - I];
+end;
+
+procedure TROHash_Snefru.Done;
+var
+  I: Integer;
+  S: Comp;
+begin
+  I := FCount and $1F;
+  Inc(I);
+  if I > 32 - 8 then
+  begin
+    FillChar(FBuffer[I], 32 - I, 0);
+    Transform(@FBuffer);
+    I := 0;
+  end;
+  FillChar(FBuffer[I], 32 - I, 0);
+  S := FCount * 8;
+  Move(S, FBuffer[32 - 8], SizeOf(S));
+  Transform(@FBuffer);
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  Protect(False);
+end;
+
+procedure TROHash_Snefru.Calc(const Data; DataSize: Integer);
+var
+  Index: Integer;
+  P: PChar;
+begin
+  if DataSize <= 0 then Exit;
+  Index := FCount and $1F;
+  Inc(FCount, DataSize);
+  if Index > 0 then
+  begin
+    if DataSize < 32 - Index then
+    begin
+      Move(Data, FBuffer[Index], DataSize);
+      Exit;
+    end;
+    Move(Data, FBuffer[Index], 32 - Index);
+    Transform(@FBuffer);
+    Index := 32 - Index;
+    Dec(DataSize, Index);
+  end;
+  P := @TByteArray(Data)[Index];
+  Inc(Index, DataSize and not $1F);
+  while DataSize >= 32 do
+  begin
+    Transform(Pointer(P));
+    Inc(P, 32);
+    Dec(DataSize, 32);
+  end;
+  Move(TByteArray(Data)[Index], FBuffer, DataSize);
+end;
+
+function TROHash_Snefru.DigestKey: Pointer;
+begin
+  Result := @FDigest;
+end;
+
+procedure TROHash_Tiger.SetRounds(Value: Integer);
+begin
+  if (Value < 3) or (Value > 32) then Value := 3;
+  FRounds := Value;
+end;
+
+class function TROHash_Tiger.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    076h,010h,0D2h,0CDh,0A5h,017h,0A4h,0D6h
+         DB    0FFh,035h,073h,04Fh,0CEh,05Ch,077h,095h
+         DB    0F3h,0A1h,051h,06Eh,01Eh,002h,04Dh,087h
+end;
+
+{$IFDEF _VER_D4H}
+// the Code for D4, but courios, the code is slower of a PII
+// and faster with AMD K6 ????
+(*
+procedure TROHash_Tiger.Transform(Buffer: PIntArray);
+type
+  PTiger_Data = ^TTiger_Data;
+  TTiger_Data = array[0..3, 0..255] of Int64;
+
+  PInt64Array = ^TInt64Array;
+  TInt64Array = array[0..7] of Int64;
+
+var
+  A,B,C,T: Int64;
+  x0,x1,x2,x3,x4,x5,x6,x7: Int64;
+  I: Integer;
+begin
+  A  := PInt64Array(@FDigest)[0];
+  B  := PInt64Array(@FDigest)[1];
+  C  := PInt64Array(@FDigest)[2];
+  x0 := PInt64Array(Buffer)[0];
+  x1 := PInt64Array(Buffer)[1];
+  x2 := PInt64Array(Buffer)[2];
+  x3 := PInt64Array(Buffer)[3];
+  x4 := PInt64Array(Buffer)[4];
+  x5 := PInt64Array(Buffer)[5];
+  x6 := PInt64Array(Buffer)[6];
+  x7 := PInt64Array(Buffer)[7];
+
+  for I := 1 to FRounds do {a Loop is faster for PC's with small Cache}
+  begin
+    if I > 1 then {key schedule}
+    begin
+      Dec(x0, x7 xor $A5A5A5A5A5A5A5A5);
+      x1 := x1 xor x0;
+      Inc(x2, x1);
+      Dec(x3, x2 xor (not x1 shl 19));
+      x4 := x4 xor x3;
+      Inc(x5, x4);
+      Dec(x6, x5 xor (not x4 shr 23));
+      x7 := x7 xor x6;
+      Inc(x0, x7);
+      Dec(x1, x0 xor (not x7 shl 19));
+      x2 := x2 xor x1;
+      Inc(x3, x2);
+      Dec(x4, x3 xor (not x2 shr 23));
+      x5 := x5 xor x4;
+      Inc(x6, x5);
+      Dec(x7, x6 xor $0123456789ABCDEF);
+    end;
+
+    C := C xor x0;
+    Dec(A, TTiger_Data(Tiger_Data)[0, LongWord(C)        and $FF] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(C) shr 16 and $FF] xor
+           TTiger_Data(Tiger_Data)[2,          C  shr 32 and $FF] xor
+           TTiger_Data(Tiger_Data)[3, LongWord(C shr 32) shr 16 and $FF]);
+    Inc(B, TTiger_Data(Tiger_Data)[3, LongWord(C) shr  8 and $FF] xor
+           TTiger_Data(Tiger_Data)[2, LongWord(C) shr 24] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(C shr 32) shr 8 and $FF] xor
+           TTiger_Data(Tiger_Data)[0, LongWord(C shr 32) shr 24]);
+    if I = 1 then B := B shl 2 + B else
+      if I = 2 then B := B shl 3 - B
+        else B := B shl 3 + B;
+
+    A := A xor x1;
+    Dec(B, TTiger_Data(Tiger_Data)[0, LongWord(A)        and $FF] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(A) shr 16 and $FF] xor
+           TTiger_Data(Tiger_Data)[2,         A  shr 32 and $FF] xor
+           TTiger_Data(Tiger_Data)[3, LongWord(A shr 32) shr 16 and $FF]);
+    Inc(C, TTiger_Data(Tiger_Data)[3, LongWord(A) shr  8 and $FF] xor
+           TTiger_Data(Tiger_Data)[2, LongWord(A) shr 24] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(A shr 32) shr 8 and $FF] xor
+           TTiger_Data(Tiger_Data)[0, LongWord(A shr 32) shr 24]);
+    if I = 1 then C := C shl 2 + C else
+      if I = 2 then C := C shl 3 - C
+        else C := C shl 3 + C;
+
+    B := B xor x2;
+    Dec(C, TTiger_Data(Tiger_Data)[0, LongWord(B)        and $FF] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(B) shr 16 and $FF] xor
+           TTiger_Data(Tiger_Data)[2,         B  shr 32 and $FF] xor
+           TTiger_Data(Tiger_Data)[3, LongWord(B shr 32) shr 16 and $FF]);
+    Inc(A, TTiger_Data(Tiger_Data)[3, LongWord(B) shr  8 and $FF] xor
+           TTiger_Data(Tiger_Data)[2, LongWord(B) shr 24] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(B shr 32) shr 8 and $FF] xor
+           TTiger_Data(Tiger_Data)[0, LongWord(B shr 32) shr 24]);
+    if I = 1 then A := A shl 2 + A else
+      if I = 2 then A := A shl 3 - A
+        else A := A shl 3 + A;
+
+    C := C xor x3;
+    Dec(A, TTiger_Data(Tiger_Data)[0, LongWord(C)        and $FF] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(C) shr 16 and $FF] xor
+           TTiger_Data(Tiger_Data)[2,         C  shr 32 and $FF] xor
+           TTiger_Data(Tiger_Data)[3, LongWord(C shr 32) shr 16 and $FF]);
+    Inc(B, TTiger_Data(Tiger_Data)[3, LongWord(C) shr  8 and $FF] xor
+           TTiger_Data(Tiger_Data)[2, LongWord(C) shr 24] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(C shr 32) shr 8 and $FF] xor
+           TTiger_Data(Tiger_Data)[0, LongWord(C shr 32) shr 24]);
+    if I = 1 then B := B shl 2 + B else
+      if I = 2 then B := B shl 3 - B
+        else B := B shl 3 + B;
+
+    A := A xor x4;
+    Dec(B, TTiger_Data(Tiger_Data)[0, LongWord(A)        and $FF] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(A) shr 16 and $FF] xor
+           TTiger_Data(Tiger_Data)[2,         A  shr 32 and $FF] xor
+           TTiger_Data(Tiger_Data)[3, LongWord(A shr 32) shr 16 and $FF]);
+    Inc(C, TTiger_Data(Tiger_Data)[3, LongWord(A) shr  8 and $FF] xor
+           TTiger_Data(Tiger_Data)[2, LongWord(A) shr 24] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(A shr 32) shr 8 and $FF] xor
+           TTiger_Data(Tiger_Data)[0, LongWord(A shr 32) shr 24]);
+    if I = 1 then C := C shl 2 + C else
+      if I = 2 then C := C shl 3 - C
+        else C := C shl 3 + C;
+
+    B := B xor x5;
+    Dec(C, TTiger_Data(Tiger_Data)[0, LongWord(B)        and $FF] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(B) shr 16 and $FF] xor
+           TTiger_Data(Tiger_Data)[2,         B  shr 32 and $FF] xor
+           TTiger_Data(Tiger_Data)[3, LongWord(B shr 32) shr 16 and $FF]);
+    Inc(A, TTiger_Data(Tiger_Data)[3, LongWord(B) shr  8 and $FF] xor
+           TTiger_Data(Tiger_Data)[2, LongWord(B) shr 24] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(B shr 32) shr 8 and $FF] xor
+           TTiger_Data(Tiger_Data)[0, LongWord(B shr 32) shr 24]);
+    if I = 1 then A := A shl 2 + A else
+      if I = 2 then A := A shl 3 - A
+        else A := A shl 3 + A;
+
+    C := C xor x6;
+    Dec(A, TTiger_Data(Tiger_Data)[0, LongWord(C)        and $FF] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(C) shr 16 and $FF] xor
+           TTiger_Data(Tiger_Data)[2,          C  shr 32 and $FF] xor
+           TTiger_Data(Tiger_Data)[3, LongWord(C  shr 32) shr 16 and $FF]);
+    Inc(B, TTiger_Data(Tiger_Data)[3, LongWord(C) shr  8 and $FF] xor
+           TTiger_Data(Tiger_Data)[2, LongWord(C) shr 24] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(C  shr 32) shr 8 and $FF] xor
+           TTiger_Data(Tiger_Data)[0, LongWord(C  shr 32) shr 24]);
+    if I = 1 then B := B shl 2 + B else
+      if I = 2 then B := B shl 3 - B
+        else B := B shl 3 + B;
+
+    A := A xor x7;
+    Dec(B, TTiger_Data(Tiger_Data)[0, LongWord(A)        and $FF] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(A) shr 16 and $FF] xor
+           TTiger_Data(Tiger_Data)[2,          A  shr 32 and $FF] xor
+           TTiger_Data(Tiger_Data)[3, LongWord(A  shr 32) shr 16 and $FF]);
+    Inc(C, TTiger_Data(Tiger_Data)[3, LongWord(A) shr  8 and $FF] xor
+           TTiger_Data(Tiger_Data)[2, LongWord(A) shr 24] xor
+           TTiger_Data(Tiger_Data)[1, LongWord(A  shr 32) shr 8 and $FF] xor
+           TTiger_Data(Tiger_Data)[0, LongWord(A  shr 32) shr 24]);
+    if I = 1 then C := C shl 2 + C else
+      if I = 2 then C := C shl 3 - C
+        else C := C shl 3 + C;
+
+    T := A; A := C; C := B; B := T;
+  end;
+
+  PInt64Array(@FDigest)[0] := A xor PInt64Array(@FDigest)[0];
+  PInt64Array(@FDigest)[1] := B  -  PInt64Array(@FDigest)[1];
+  PInt64Array(@FDigest)[2] := C  +  PInt64Array(@FDigest)[2];
+end;   *)
+
+{$ELSE}
+//here the code for D2-D3 and D4, is faster as the D4-Compiler-Code of
+//  a PII and slower with AMD K6, smaller cache ???? i mean we used this
+procedure TROHash_Tiger.Transform(Buffer: PIntArray);
+type
+  TInt64 = packed record
+             Lo,Hi: LongWord;
+           end;
+
+  PTiger_Data = ^TTiger_Data;
+  TTiger_Data = array[0..3, 0..255] of TInt64;
+
+  PInt64Array = ^TInt64Array;
+  TInt64Array = packed record
+                  case Integer of
+                    0: (x0,x1,x2,x3,x4,x5,x6,x7: TInt64);
+                    1: (D: array[0..7] of TInt64);
+                end;
+
+var
+  A,B,C,T: TInt64;
+  Buf: TInt64Array;
+  I: Integer;
+begin
+  Move(Buffer^, Buf, SizeOf(Buf));
+  with PInt64Array(@FDigest)^ do
+  begin
+    A := x0;
+    B := x1;
+    C := x2;
+  end;
+  with Buf do
+    for I := 1 to FRounds do
+    begin
+      if I > 1 then
+      asm
+         MOV    EAX,Buf.x7.Lo
+         MOV    EDX,Buf.x7.Hi
+         XOR    EAX,$A5A5A5A5
+         XOR    EDX,$A5A5A5A5
+         SUB    Buf.x0.Lo,EAX
+         SBB    Buf.x0.Hi,EDX
+         MOV    EAX,Buf.x1.Lo
+         MOV    EDX,Buf.x1.Hi
+         XOR    EAX,Buf.x0.Lo
+         XOR    EDX,Buf.x0.Hi
+         MOV    Buf.x1.Lo,EAX
+         MOV    Buf.x1.Hi,EDX
+         ADD    Buf.x2.Lo,EAX
+         ADC    Buf.x2.Hi,EDX
+         NOT    EAX
+         NOT    EDX
+         SHLD   EDX,EAX,19
+         SHL    EAX,19
+         XOR    EAX,Buf.x2.Lo
+         XOR    EDX,Buf.x2.Hi
+         SUB    Buf.x3.Lo,EAX
+         SBB    Buf.x3.Hi,EDX
+         MOV    EAX,Buf.x4.Lo
+         MOV    EDX,Buf.x4.Hi
+         XOR    EAX,Buf.x3.Lo
+         XOR    EDX,Buf.x3.Hi
+         MOV    Buf.x4.Lo,EAX
+         MOV    Buf.x4.Hi,EDX
+         ADD    Buf.x5.Lo,EAX
+         ADC    Buf.x5.Hi,EDX
+         NOT    EAX
+         NOT    EDX
+         SHRD   EAX,EDX,23
+         SAR    EDX,23
+         XOR    EAX,Buf.x5.Lo
+         XOR    EDX,Buf.x5.Hi
+         SUB    Buf.x6.Lo,EAX
+         SBB    Buf.x6.Hi,EDX
+         MOV    EAX,Buf.x7.Lo
+         MOV    EDX,Buf.x7.Hi
+         XOR    EAX,Buf.x6.Lo
+         XOR    EDX,Buf.x6.Hi
+         MOV    Buf.x7.Lo,EAX
+         MOV    Buf.x7.Hi,EDX
+         ADD    Buf.x0.Lo,EAX
+         ADC    Buf.x0.Hi,EDX
+         NOT    EAX
+         NOT    EDX
+         SHLD   EDX,EAX,19
+         SHL    EAX,19
+         XOR    EAX,Buf.x0.Lo
+         XOR    EDX,Buf.x0.Hi
+         SUB    Buf.x1.Lo,EAX
+         SBB    Buf.x1.Hi,EDX
+         MOV    EAX,Buf.x2.Lo
+         MOV    EDX,Buf.x2.Hi
+         XOR    EAX,Buf.x1.Lo
+         XOR    EDX,Buf.x1.Hi
+         MOV    Buf.x2.Lo,EAX
+         MOV    Buf.x2.Hi,EDX
+         ADD    Buf.x3.Lo,EAX
+         ADC    Buf.x3.Hi,EDX
+         NOT    EAX
+         NOT    EDX
+         SHRD   EAX,EDX,23
+         SAR    EDX,23
+         XOR    EAX,Buf.x3.Lo
+         XOR    EDX,Buf.x3.Hi
+         SUB    Buf.x4.Lo,EAX
+         SBB    Buf.x4.Hi,EDX
+         MOV    EAX,Buf.x5.Lo
+         MOV    EDX,Buf.x5.Hi
+         XOR    EAX,Buf.x4.Lo
+         XOR    EDX,Buf.x4.Hi
+         MOV    Buf.x5.Lo,EAX
+         MOV    Buf.x5.Hi,EDX
+         ADD    Buf.x6.Lo,EAX
+         ADC    Buf.x6.Hi,EDX
+         MOV    EAX,Buf.x6.Lo
+         MOV    EDX,Buf.x6.Hi
+         XOR    EAX,$89ABCDEF
+         XOR    EDX,$01234567
+         SUB    Buf.x7.Lo,EAX
+         SBB    Buf.x7.Hi,EDX
+      end;
+      C.Lo := C.Lo xor x0.Lo;
+      C.Hi := C.Hi xor x0.Hi;
+      T.Lo := Tiger_Data[0, C.Lo shl  1 and $1FE] xor
+              Tiger_Data[1, C.Lo shr 15 and $1FE] xor
+              Tiger_Data[2, C.Hi shl  1 and $1FE] xor
+              Tiger_Data[3, C.Hi shr 15 and $1FE];
+      T.Hi := Tiger_Data[0, C.Lo shl  1 and $1FE or 1] xor
+              Tiger_Data[1, C.Lo shr 15 and $1FE or 1] xor
+              Tiger_Data[2, C.Hi shl  1 and $1FE or 1] xor
+              Tiger_Data[3, C.Hi shr 15 and $1FE or 1];
+      asm
+        MOV   EAX,T.Lo
+        MOV   EDX,T.Hi
+        SUB   A.Lo,EAX
+        SBB   A.Hi,EDX
+      end;
+      T.Lo := Tiger_Data[3, C.Lo shr  7 and $1FE] xor
+              Tiger_Data[2, C.Lo shr 23 and $1FE] xor
+              Tiger_Data[1, C.Hi shr  7 and $1FE] xor
+              Tiger_Data[0, C.Hi shr 23 and $1FE];
+      T.Hi := Tiger_Data[3, C.Lo shr  7 and $1FE or 1] xor
+              Tiger_Data[2, C.Lo shr 23 and $1FE or 1] xor
+              Tiger_Data[1, C.Hi shr  7 and $1FE or 1] xor
+              Tiger_Data[0, C.Hi shr 23 and $1FE or 1];
+      asm
+        MOV  EAX,B.Lo
+        MOV  EDX,B.Hi
+        ADD  EAX,T.Lo
+        ADC  EDX,T.Hi
+        MOV  B.Lo,EAX
+        MOV  B.Hi,EDX
+        CMP  I,1
+        JNE  @@1
+        SHLD EDX,EAX,2
+        SHL  EAX,2
+        ADD  EAX,B.Lo
+        ADC  EDX,B.Hi
+        JMP  @@3
+ @@1:   CMP  I,2
+        JNE  @@2
+        SHLD EDX,EAX,3
+        SHL  EAX,3
+        SUB  EAX,B.Lo
+        SBB  EDX,B.Hi
+        JMP  @@3
+ @@2:   SHLD EDX,EAX,3
+        SHL  EAX,3
+        ADD  EAX,B.Lo
+        ADC  EDX,B.Hi
+ @@3:   MOV  B.Lo,EAX
+        MOV  B.Hi,EDX
+      end;
+
+      A.Lo := A.Lo xor x1.Lo;
+      A.Hi := A.Hi xor x1.Hi;
+      T.Lo := Tiger_Data[0, A.Lo shl  1 and $1FE] xor
+              Tiger_Data[1, A.Lo shr 15 and $1FE] xor
+              Tiger_Data[2, A.Hi shl  1 and $1FE] xor
+              Tiger_Data[3, A.Hi shr 15 and $1FE];
+      T.Hi := Tiger_Data[0, A.Lo shl  1 and $1FE or 1] xor
+              Tiger_Data[1, A.Lo shr 15 and $1FE or 1] xor
+              Tiger_Data[2, A.Hi shl  1 and $1FE or 1] xor
+              Tiger_Data[3, A.Hi shr 15 and $1FE or 1];
+      asm
+        MOV   EAX,T.Lo
+        MOV   EDX,T.Hi
+        SUB   B.Lo,EAX
+        SBB   B.Hi,EDX
+      end;
+      T.Lo := Tiger_Data[3, A.Lo shr  7 and $1FE] xor
+              Tiger_Data[2, A.Lo shr 23 and $1FE] xor
+              Tiger_Data[1, A.Hi shr  7 and $1FE] xor
+              Tiger_Data[0, A.Hi shr 23 and $1FE];
+      T.Hi := Tiger_Data[3, A.Lo shr  7 and $1FE or 1] xor
+              Tiger_Data[2, A.Lo shr 23 and $1FE or 1] xor
+              Tiger_Data[1, A.Hi shr  7 and $1FE or 1] xor
+              Tiger_Data[0, A.Hi shr 23 and $1FE or 1];
+      asm
+        MOV  EAX,C.Lo
+        MOV  EDX,C.Hi
+        ADD  EAX,T.Lo
+        ADC  EDX,T.Hi
+        MOV  C.Lo,EAX
+        MOV  C.Hi,EDX
+        CMP  I,1
+        JNE  @@1
+        SHLD EDX,EAX,2
+        SHL  EAX,2
+        ADD  EAX,C.Lo
+        ADC  EDX,C.Hi
+        JMP  @@3
+ @@1:   CMP  I,2
+        JNE  @@2
+        SHLD EDX,EAX,3
+        SHL  EAX,3
+        SUB  EAX,C.Lo
+        SBB  EDX,C.Hi
+        JMP  @@3
+ @@2:   SHLD EDX,EAX,3
+        SHL  EAX,3
+        ADD  EAX,C.Lo
+        ADC  EDX,C.Hi
+ @@3:   MOV  C.Lo,EAX
+        MOV  C.Hi,EDX
+      end;
+
+      B.Lo := B.Lo xor x2.Lo;
+      B.Hi := B.Hi xor x2.Hi;
+      T.Lo := Tiger_Data[0, B.Lo shl  1 and $1FE] xor
+              Tiger_Data[1, B.Lo shr 15 and $1FE] xor
+              Tiger_Data[2, B.Hi shl  1 and $1FE] xor
+              Tiger_Data[3, B.Hi shr 15 and $1FE];
+      T.Hi := Tiger_Data[0, B.Lo shl  1 and $1FE or 1] xor
+              Tiger_Data[1, B.Lo shr 15 and $1FE or 1] xor
+              Tiger_Data[2, B.Hi shl  1 and $1FE or 1] xor
+              Tiger_Data[3, B.Hi shr 15 and $1FE or 1];
+      asm
+        MOV   EAX,T.Lo
+        MOV   EDX,T.Hi
+        SUB   C.Lo,EAX
+        SBB   C.Hi,EDX
+      end;
+      T.Lo := Tiger_Data[3, B.Lo shr  7 and $1FE] xor
+              Tiger_Data[2, B.Lo shr 23 and $1FE] xor
+              Tiger_Data[1, B.Hi shr  7 and $1FE] xor
+              Tiger_Data[0, B.Hi shr 23 and $1FE];
+      T.Hi := Tiger_Data[3, B.Lo shr  7 and $1FE or 1] xor
+              Tiger_Data[2, B.Lo shr 23 and $1FE or 1] xor
+              Tiger_Data[1, B.Hi shr  7 and $1FE or 1] xor
+              Tiger_Data[0, B.Hi shr 23 and $1FE or 1];
+      asm
+        MOV  EAX,A.Lo
+        MOV  EDX,A.Hi
+        ADD  EAX,T.Lo
+        ADC  EDX,T.Hi
+        MOV  A.Lo,EAX
+        MOV  A.Hi,EDX
+        CMP  I,1
+        JNE  @@1
+        SHLD EDX,EAX,2
+        SHL  EAX,2
+        ADD  EAX,A.Lo
+        ADC  EDX,A.Hi
+        JMP  @@3
+ @@1:   CMP  I,2
+        JNE  @@2
+        SHLD EDX,EAX,3
+        SHL  EAX,3
+        SUB  EAX,A.Lo
+        SBB  EDX,A.Hi
+        JMP  @@3
+ @@2:   SHLD EDX,EAX,3
+        SHL  EAX,3
+        ADD  EAX,A.Lo
+        ADC  EDX,A.Hi
+ @@3:   MOV  A.Lo,EAX
+        MOV  A.Hi,EDX
+      end;
+      C.Lo := C.Lo xor x3.Lo;
+      C.Hi := C.Hi xor x3.Hi;
+      T.Lo := Tiger_Data[0, C.Lo shl  1 and $1FE] xor
+              Tiger_Data[1, C.Lo shr 15 and $1FE] xor
+              Tiger_Data[2, C.Hi shl  1 and $1FE] xor
+              Tiger_Data[3, C.Hi shr 15 and $1FE];
+      T.Hi := Tiger_Data[0, C.Lo shl  1 and $1FE or 1] xor
+              Tiger_Data[1, C.Lo shr 15 and $1FE or 1] xor
+              Tiger_Data[2, C.Hi shl  1 and $1FE or 1] xor
+              Tiger_Data[3, C.Hi shr 15 and $1FE or 1];
+      asm
+        MOV   EAX,T.Lo
+        MOV   EDX,T.Hi
+        SUB   A.Lo,EAX
+        SBB   A.Hi,EDX
+      end;
+      T.Lo := Tiger_Data[3, C.Lo shr  7 and $1FE] xor
+              Tiger_Data[2, C.Lo shr 23 and $1FE] xor
+              Tiger_Data[1, C.Hi shr  7 and $1FE] xor
+              Tiger_Data[0, C.Hi shr 23 and $1FE];
+      T.Hi := Tiger_Data[3, C.Lo shr  7 and $1FE or 1] xor
+              Tiger_Data[2, C.Lo shr 23 and $1FE or 1] xor
+              Tiger_Data[1, C.Hi shr  7 and $1FE or 1] xor
+              Tiger_Data[0, C.Hi shr 23 and $1FE or 1];
+      asm
+        MOV  EAX,B.Lo
+        MOV  EDX,B.Hi
+        ADD  EAX,T.Lo
+        ADC  EDX,T.Hi
+        MOV  B.Lo,EAX
+        MOV  B.Hi,EDX
+        CMP  I,1
+        JNE  @@1
+        SHLD EDX,EAX,2
+        SHL  EAX,2
+        ADD  EAX,B.Lo
+        ADC  EDX,B.Hi
+        JMP  @@3
+ @@1:   CMP  I,2
+        JNE  @@2
+        SHLD EDX,EAX,3
+        SHL  EAX,3
+        SUB  EAX,B.Lo
+        SBB  EDX,B.Hi
+        JMP  @@3
+ @@2:   SHLD EDX,EAX,3
+        SHL  EAX,3
+        ADD  EAX,B.Lo
+        ADC  EDX,B.Hi
+ @@3:   MOV  B.Lo,EAX
+        MOV  B.Hi,EDX
+      end;
+
+      A.Lo := A.Lo xor x4.Lo;
+      A.Hi := A.Hi xor x4.Hi;
+      T.Lo := Tiger_Data[0, A.Lo shl  1 and $1FE] xor
+              Tiger_Data[1, A.Lo shr 15 and $1FE] xor
+              Tiger_Data[2, A.Hi shl  1 and $1FE] xor
+              Tiger_Data[3, A.Hi shr 15 and $1FE];
+      T.Hi := Tiger_Data[0, A.Lo shl  1 and $1FE or 1] xor
+              Tiger_Data[1, A.Lo shr 15 and $1FE or 1] xor
+              Tiger_Data[2, A.Hi shl  1 and $1FE or 1] xor
+              Tiger_Data[3, A.Hi shr 15 and $1FE or 1];
+      asm
+        MOV   EAX,T.Lo
+        MOV   EDX,T.Hi
+        SUB   B.Lo,EAX
+        SBB   B.Hi,EDX
+      end;
+      T.Lo := Tiger_Data[3, A.Lo shr  7 and $1FE] xor
+              Tiger_Data[2, A.Lo shr 23 and $1FE] xor
+              Tiger_Data[1, A.Hi shr  7 and $1FE] xor
+              Tiger_Data[0, A.Hi shr 23 and $1FE];
+      T.Hi := Tiger_Data[3, A.Lo shr  7 and $1FE or 1] xor
+              Tiger_Data[2, A.Lo shr 23 and $1FE or 1] xor
+              Tiger_Data[1, A.Hi shr  7 and $1FE or 1] xor
+              Tiger_Data[0, A.Hi shr 23 and $1FE or 1];
+      asm
+        MOV  EAX,C.Lo
+        MOV  EDX,C.Hi
+        ADD  EAX,T.Lo
+        ADC  EDX,T.Hi
+        MOV  C.Lo,EAX
+        MOV  C.Hi,EDX
+        CMP  I,1
+        JNE  @@1
+        SHLD EDX,EAX,2
+        SHL  EAX,2
+        ADD  EAX,C.Lo
+        ADC  EDX,C.Hi
+        JMP  @@3
+ @@1:   CMP  I,2
+        JNE  @@2
+        SHLD EDX,EAX,3
+        SHL  EAX,3
+        SUB  EAX,C.Lo
+        SBB  EDX,C.Hi
+        JMP  @@3
+ @@2:   SHLD EDX,EAX,3
+        SHL  EAX,3
+        ADD  EAX,C.Lo
+        ADC  EDX,C.Hi
+ @@3:   MOV  C.Lo,EAX
+        MOV  C.Hi,EDX
+      end;
+
+      B.Lo := B.Lo xor x5.Lo;
+      B.Hi := B.Hi xor x5.Hi;
+      T.Lo := Tiger_Data[0, B.Lo shl  1 and $1FE] xor
+              Tiger_Data[1, B.Lo shr 15 and $1FE] xor
+              Tiger_Data[2, B.Hi shl  1 and $1FE] xor
+              Tiger_Data[3, B.Hi shr 15 and $1FE];
+      T.Hi := Tiger_Data[0, B.Lo shl  1 and $1FE or 1] xor
+              Tiger_Data[1, B.Lo shr 15 and $1FE or 1] xor
+              Tiger_Data[2, B.Hi shl  1 and $1FE or 1] xor
+              Tiger_Data[3, B.Hi shr 15 and $1FE or 1];
+      asm
+        MOV   EAX,T.Lo
+        MOV   EDX,T.Hi
+        SUB   C.Lo,EAX
+        SBB   C.Hi,EDX
+      end;
+      T.Lo := Tiger_Data[3, B.Lo shr  7 and $1FE] xor
+              Tiger_Data[2, B.Lo shr 23 and $1FE] xor
+              Tiger_Data[1, B.Hi shr  7 and $1FE] xor
+              Tiger_Data[0, B.Hi shr 23 and $1FE];
+      T.Hi := Tiger_Data[3, B.Lo shr  7 and $1FE or 1] xor
+              Tiger_Data[2, B.Lo shr 23 and $1FE or 1] xor
+              Tiger_Data[1, B.Hi shr  7 and $1FE or 1] xor
+              Tiger_Data[0, B.Hi shr 23 and $1FE or 1];
+      asm
+        MOV  EAX,A.Lo
+        MOV  EDX,A.Hi
+        ADD  EAX,T.Lo
+        ADC  EDX,T.Hi
+        MOV  A.Lo,EAX
+        MOV  A.Hi,EDX
+        CMP  I,1
+        JNE  @@1
+        SHLD EDX,EAX,2
+        SHL  EAX,2
+        ADD  EAX,A.Lo
+        ADC  EDX,A.Hi
+        JMP  @@3
+ @@1:   CMP  I,2
+        JNE  @@2
+        SHLD EDX,EAX,3
+        SHL  EAX,3
+        SUB  EAX,A.Lo
+        SBB  EDX,A.Hi
+        JMP  @@3
+ @@2:   SHLD EDX,EAX,3
+        SHL  EAX,3
+        ADD  EAX,A.Lo
+        ADC  EDX,A.Hi
+ @@3:   MOV  A.Lo,EAX
+        MOV  A.Hi,EDX
+      end;
+      C.Lo := C.Lo xor x6.Lo;
+      C.Hi := C.Hi xor x6.Hi;
+      T.Lo := Tiger_Data[0, C.Lo shl  1 and $1FE] xor
+              Tiger_Data[1, C.Lo shr 15 and $1FE] xor
+              Tiger_Data[2, C.Hi shl  1 and $1FE] xor
+              Tiger_Data[3, C.Hi shr 15 and $1FE];
+      T.Hi := Tiger_Data[0, C.Lo shl  1 and $1FE or 1] xor
+              Tiger_Data[1, C.Lo shr 15 and $1FE or 1] xor
+              Tiger_Data[2, C.Hi shl  1 and $1FE or 1] xor
+              Tiger_Data[3, C.Hi shr 15 and $1FE or 1];
+      asm
+        MOV   EAX,T.Lo
+        MOV   EDX,T.Hi
+        SUB   A.Lo,EAX
+        SBB   A.Hi,EDX
+      end;
+      T.Lo := Tiger_Data[3, C.Lo shr  7 and $1FE] xor
+              Tiger_Data[2, C.Lo shr 23 and $1FE] xor
+              Tiger_Data[1, C.Hi shr  7 and $1FE] xor
+              Tiger_Data[0, C.Hi shr 23 and $1FE];
+      T.Hi := Tiger_Data[3, C.Lo shr  7 and $1FE or 1] xor
+              Tiger_Data[2, C.Lo shr 23 and $1FE or 1] xor
+              Tiger_Data[1, C.Hi shr  7 and $1FE or 1] xor
+              Tiger_Data[0, C.Hi shr 23 and $1FE or 1];
+      asm
+        MOV  EAX,B.Lo
+        MOV  EDX,B.Hi
+        ADD  EAX,T.Lo
+        ADC  EDX,T.Hi
+        MOV  B.Lo,EAX
+        MOV  B.Hi,EDX
+        CMP  I,1
+        JNE  @@1
+        SHLD EDX,EAX,2
+        SHL  EAX,2
+        ADD  EAX,B.Lo
+        ADC  EDX,B.Hi
+        JMP  @@3
+ @@1:   CMP  I,2
+        JNE  @@2
+        SHLD EDX,EAX,3
+        SHL  EAX,3
+        SUB  EAX,B.Lo
+        SBB  EDX,B.Hi
+        JMP  @@3
+ @@2:   SHLD EDX,EAX,3
+        SHL  EAX,3
+        ADD  EAX,B.Lo
+        ADC  EDX,B.Hi
+ @@3:   MOV  B.Lo,EAX
+        MOV  B.Hi,EDX
+      end;
+
+      A.Lo := A.Lo xor x7.Lo;
+      A.Hi := A.Hi xor x7.Hi;
+      T.Lo := Tiger_Data[0, A.Lo shl  1 and $1FE] xor
+              Tiger_Data[1, A.Lo shr 15 and $1FE] xor
+              Tiger_Data[2, A.Hi shl  1 and $1FE] xor
+              Tiger_Data[3, A.Hi shr 15 and $1FE];
+      T.Hi := Tiger_Data[0, A.Lo shl  1 and $1FE or 1] xor
+              Tiger_Data[1, A.Lo shr 15 and $1FE or 1] xor
+              Tiger_Data[2, A.Hi shl  1 and $1FE or 1] xor
+              Tiger_Data[3, A.Hi shr 15 and $1FE or 1];
+      asm
+        MOV   EAX,T.Lo
+        MOV   EDX,T.Hi
+        SUB   B.Lo,EAX
+        SBB   B.Hi,EDX
+      end;
+      T.Lo := Tiger_Data[3, A.Lo shr  7 and $1FE] xor
+              Tiger_Data[2, A.Lo shr 23 and $1FE] xor
+              Tiger_Data[1, A.Hi shr  7 and $1FE] xor
+              Tiger_Data[0, A.Hi shr 23 and $1FE];
+      T.Hi := Tiger_Data[3, A.Lo shr  7 and $1FE or 1] xor
+              Tiger_Data[2, A.Lo shr 23 and $1FE or 1] xor
+              Tiger_Data[1, A.Hi shr  7 and $1FE or 1] xor
+              Tiger_Data[0, A.Hi shr 23 and $1FE or 1];
+      asm
+        MOV  EAX,C.Lo
+        MOV  EDX,C.Hi
+        ADD  EAX,T.Lo
+        ADC  EDX,T.Hi
+        MOV  C.Lo,EAX
+        MOV  C.Hi,EDX
+        CMP  I,1
+        JNE  @@1
+        SHLD EDX,EAX,2
+        SHL  EAX,2
+        ADD  EAX,C.Lo
+        ADC  EDX,C.Hi
+        JMP  @@3
+ @@1:   CMP  I,2
+        JNE  @@2
+        SHLD EDX,EAX,3
+        SHL  EAX,3
+        SUB  EAX,C.Lo
+        SBB  EDX,C.Hi
+        JMP  @@3
+ @@2:   SHLD EDX,EAX,3
+        SHL  EAX,3
+        ADD  EAX,C.Lo
+        ADC  EDX,C.Hi
+ @@3:   MOV  C.Lo,EAX
+        MOV  C.Hi,EDX
+      end;
+      T := A; A := C; C := B; B := T;
+    end;
+
+  with PInt64Array(@FDigest)^ do
+  begin
+    x0.Lo := A.Lo xor x0.Lo;
+    x0.Hi := A.Hi xor x0.Hi;
+    T := x1;
+    asm
+      MOV  EAX,T.Lo
+      MOV  EDX,T.Hi
+      SUB  B.Lo,EAX
+      SBB  B.Hi,EDX
+    end;
+    x1 := B;
+    T  := x2;
+    asm
+      MOV  EAX,T.Lo
+      MOV  EDX,T.Hi
+      ADD  C.Lo,EAX
+      ADC  C.Hi,EDX
+    end;
+    x2 := C;
+  end;
+{$ENDIF}
+end;
+
+class function TROHash_Tiger.DigestKeySize: Integer;
+begin
+  Result := 24;
+end;
+
+procedure TROHash_Tiger.Init;
+begin
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  SetRounds(FRounds);
+  FCount := 0;
+  FDigest[0] := $89ABCDEF;
+  FDigest[1] := $01234567;
+  FDigest[2] := $76543210;
+  FDigest[3] := $FEDCBA98;
+  FDigest[4] := $C3B2E187;
+  FDigest[5] := $F096A5B4;
+  Protect(True);
+end;
+
+procedure TROHash_Tiger.Done;
+var
+  I: Integer;
+  S: Comp;
+begin
+  I := FCount and $3F;
+  FBuffer[I] := $01;
+  Inc(I);
+  if I > 64 - 8 then
+  begin
+    FillChar(FBuffer[I], 64 - I, 0);
+    Transform(@FBuffer);
+    I := 0;
+  end;
+  FillChar(FBuffer[I], 64 - I, 0);
+  S := FCount * 8;
+  Move(S, FBuffer[64 - 8], SizeOf(S));
+  Transform(@FBuffer);
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  Protect(False);
+end;
+
+class function TROHash_Sapphire320.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0D8h,0EDh,0A5h,074h,099h,048h,0ACh,00Bh
+         DB    000h,090h,0CDh,087h,061h,0F2h,018h,0DBh
+         DB    0A4h,01Dh,0CBh,073h,0E4h,033h,099h,0DDh
+         DB    037h,012h,006h,093h,097h,033h,095h,000h
+         DB    04Ah,0CFh,086h,0DBh,023h,06Dh,0E7h,06Bh
+end;
+
+procedure TROHash_Sapphire320.Calc(const Data; DataSize: Integer);
+var
+  C: Integer;
+  T: Byte;
+  D: PByte;
+begin
+  Inc(FCount, DataSize);
+  D := @Data;
+  C := FCipher;
+  while DataSize > 0 do
+  begin
+    Dec(DataSize);
+    Inc(FRatchet, FCards[FRotor]);
+    Inc(FRotor);
+    T := FCards[C];
+    FCards[C] := FCards[FRatchet];
+    FCards[FRatchet] := FCards[FPlain];
+    FCards[FPlain] := FCards[FRotor];
+    FCards[FRotor] := T;
+    Inc(FAvalanche, FCards[T]);
+    T := FCards[FPlain] + FCards[C] + FCards[FAvalanche];
+    FPlain := D^; Inc(D);
+    C := FPlain xor FCards[FCards[T]] xor
+                    FCards[(FCards[FRatchet] + FCards[FRotor]) and $FF];
+  end;
+  FCipher := C;
+end;
+
+class function TROHash_Sapphire320.DigestKeySize: Integer;
+begin
+  Result := 40;
+end;
+
+procedure TROHash_Sapphire320.Init;
+var
+  I: Integer;
+begin
+  FillChar(FDigest, SizeOf(FDigest), 0);
+  FCount := 0;
+  FRotor := 1;
+  FRatchet := 3;
+  FAvalanche := 5;
+  FPlain := 7;
+  FCipher := 11;
+  for I := 0 to 255 do FCards[I] := 255 - I;
+  Protect(True);
+end;
+
+procedure TROHash_Sapphire320.Done;
+{final sequence, I have here changed the original Code by adding the
+ Trailor, Version, Digestsize, Init-values and Size in Bits,
+ I mean this changes make a uniquer Fingerprint, other RO_Hash's use identicaly Methods}
+var
+  I,J: Byte;
+  B: array[0..39] of Byte;
+  S: Comp;
+begin
+  J := DigestKeySize;
+  for I := 255 downto 0 do
+  begin
+    J := J xor I;
+    Calc(J, 1);
+  end;
+  FillChar(B, SizeOf(B), 0);
+  B[0] := $80;     {Trailorbyte}
+  B[1] := $02;     {Version}
+  PInteger(@B[2])^ := DigestKeySize shl 8;  {Digestsize in bits}
+  B[4] :=   1;     {Init from FRotor}
+  B[5] :=   3;     {Init from FRatchet}
+  B[6] :=   5;     {Init from FAvalanche}
+  B[7] :=   7;     {Init from FPlain}
+  B[8] :=  11;     {Init from FCipher};
+  S := FCount * 8; {Size in Bits}
+  Move(S, B[9], SizeOf(S));
+  for I := 0 to DigestKeySize-1 do
+  begin
+    Calc(B[I], 1);
+    PByteArray(@FDigest)[I] := PByteArray(@FDigest)[I] xor FCipher;
+  end;
+  Protect(False);
+end;
+
+function TROHash_Sapphire320.DigestKey: Pointer;
+begin
+  Result := @FDigest;
+end;
+
+class function TROHash_Sapphire288.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    040h,0F6h,05Ah,037h,0D8h,0CBh,011h,065h
+         DB    0DCh,0FBh,0DEh,063h,02Bh,02Ch,0BEh,09Ch
+         DB    02Bh,0B7h,0F3h,0EDh,022h,0D1h,0EBh,0EFh
+         DB    00Fh,0A1h,088h,0EDh,023h,0F0h,07Fh,09Ch
+         DB    07Eh,061h,037h,040h
+end;
+
+class function TROHash_Sapphire288.DigestKeySize: Integer;
+begin
+  Result := 36;
+end;
+
+class function TROHash_Sapphire256.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0E7h,0C8h,02Bh,06Dh,025h,08Ah,0FDh,0E0h
+         DB    034h,042h,093h,0A3h,0E2h,0E5h,028h,096h
+         DB    0A5h,046h,050h,06Bh,013h,093h,086h,01Bh
+         DB    040h,0C6h,093h,04Bh,051h,0FAh,066h,0DDh
+end;
+
+class function TROHash_Sapphire256.DigestKeySize: Integer;
+begin
+  Result := 32;
+end;
+
+class function TROHash_Sapphire224.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    08Fh,03Eh,0C5h,057h,092h,031h,06Ch,0DFh
+         DB    0CAh,040h,018h,03Ah,086h,008h,008h,099h
+         DB    034h,0FDh,0EBh,021h,0ABh,0A4h,052h,00Fh
+         DB    040h,017h,0D3h,0D0h
+end;
+
+class function TROHash_Sapphire224.DigestKeySize: Integer;
+begin
+  Result := 28;
+end;
+
+class function TROHash_Sapphire192.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    095h,041h,03Fh,0E0h,02Bh,052h,07Eh,050h
+         DB    0B5h,0FFh,057h,0EBh,076h,03Dh,032h,051h
+         DB    029h,0EBh,079h,06Fh,04Ah,064h,0FBh,017h
+end;
+
+class function TROHash_Sapphire192.DigestKeySize: Integer;
+begin
+  Result := 24;
+end;
+
+class function TROHash_Sapphire160.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    073h,0D9h,01Ah,0CEh,0B1h,075h,0FDh,004h
+         DB    090h,07Ah,097h,041h,03Ch,020h,00Fh,053h
+         DB    02Ch,022h,0B3h,08Ch
+end;
+
+class function TROHash_Sapphire160.DigestKeySize: Integer;
+begin
+  Result := 20;
+end;
+
+class function TROHash_Sapphire128.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    047h,0AEh,016h,013h,0C9h,03Ah,094h,02Dh
+         DB    026h,074h,08Dh,062h,043h,026h,088h,0D8h
+end;
+
+class function TROHash_Sapphire128.DigestKeySize: Integer;
+begin
+  Result := 16;
+end;
+
+class function TROHash_Square.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    080h,08Fh,035h,0EAh,000h,0A7h,077h,033h
+         DB    037h,0CEh,055h,098h,026h,0DDh,0B3h,024h
+end;
+
+procedure TROHash_Square.Transform(Buffer: PIntArray);
+var
+  E: array[0..8, 0..3] of LongWord;
+  A,B,C,D: LongWord;
+  AA,BB,CC,DD: LongWord;
+  I,J: Integer;
+  Key: PInteger;
+begin
+{Build and expand the Key, Digest include the Key}
+  Move(FDigest, E, 16);
+  for I := 1 to 8 do
+  begin
+    E[I, 0] := E[I -1, 0] xor ROR(E[I -1, 3], 8) xor 1 shl (I - 1);
+    E[I, 1] := E[I -1, 1] xor E[I, 0];
+    E[I, 2] := E[I -1, 2] xor E[I, 1];
+    E[I, 3] := E[I -1, 3] xor E[I, 2];
+    for J := 0 to 3 do
+      E[I -1, J] :=     Square_PHI[E[I -1, J]        and $FF]      xor
+                    ROL(Square_PHI[E[I -1, J] shr  8 and $FF],  8) xor
+                    ROL(Square_PHI[E[I -1, J] shr 16 and $FF], 16) xor
+                    ROL(Square_PHI[E[I -1, J] shr 24        ], 24);
+  end;
+{Encrypt begin here, same TROCipher_Square.Encode}
+  Key := @E;
+  A := Buffer[0] xor Key^; Inc(Key);
+  B := Buffer[1] xor Key^; Inc(Key);
+  C := Buffer[2] xor Key^; Inc(Key);
+  D := Buffer[3] xor Key^; Inc(Key);
+  for I := 0 to 6 do
+  begin
+    AA := Square_TE[0, A        and $FF] xor
+          Square_TE[1, B        and $FF] xor
+          Square_TE[2, C        and $FF] xor
+          Square_TE[3, D        and $FF] xor Key^; Inc(Key);
+    BB := Square_TE[0, A shr  8 and $FF] xor
+          Square_TE[1, B shr  8 and $FF] xor
+          Square_TE[2, C shr  8 and $FF] xor
+          Square_TE[3, D shr  8 and $FF] xor Key^; Inc(Key);
+    CC := Square_TE[0, A shr 16 and $FF] xor
+          Square_TE[1, B shr 16 and $FF] xor
+          Square_TE[2, C shr 16 and $FF] xor
+          Square_TE[3, D shr 16 and $FF] xor Key^; Inc(Key);
+    DD := Square_TE[0, A shr 24        ] xor
+          Square_TE[1, B shr 24        ] xor
+          Square_TE[2, C shr 24        ] xor
+          Square_TE[3, D shr 24        ] xor Key^; Inc(Key);
+
+    A := AA; B := BB; C := CC; D := DD;
+  end;
+
+  FDigest[0] := FBuffer[0] xor
+                LongWord(Square_SE[A        and $FF])        xor
+                LongWord(Square_SE[B        and $FF]) shl  8 xor
+                LongWord(Square_SE[C        and $FF]) shl 16 xor
+                LongWord(Square_SE[D        and $FF]) shl 24 xor Key^; Inc(Key);
+  FDigest[1] := FBuffer[1] xor
+                LongWord(Square_SE[A shr  8 and $FF])        xor
+                LongWord(Square_SE[B shr  8 and $FF]) shl  8 xor
+                LongWord(Square_SE[C shr  8 and $FF]) shl 16 xor
+                LongWord(Square_SE[D shr  8 and $FF]) shl 24 xor Key^; Inc(Key);
+  FDigest[2] := FBuffer[2] xor
+                LongWord(Square_SE[A shr 16 and $FF])        xor
+                LongWord(Square_SE[B shr 16 and $FF]) shl  8 xor
+                LongWord(Square_SE[C shr 16 and $FF]) shl 16 xor
+                LongWord(Square_SE[D shr 16 and $FF]) shl 24 xor Key^; Inc(Key);
+  FDigest[3] := FBuffer[3] xor
+                LongWord(Square_SE[A shr 24        ])        xor
+                LongWord(Square_SE[B shr 24        ]) shl  8 xor
+                LongWord(Square_SE[C shr 24        ]) shl 16 xor
+                LongWord(Square_SE[D shr 24        ]) shl 24 xor Key^;
+end;
+
+class function TROHash_Square.DigestKeySize: Integer;
+begin
+  Result := 16;
+end;
+
+function TROHash_Square.DigestKey: Pointer;
+begin
+  Result := @FDigest;
+end;
+
+procedure TROHash_Square.Init;
+begin
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+{here using the same Magic codes from MD4, in the original was this set to zero,
+ this is the Square Encryption Key,
+ you can change this with Move(My4xIntKey, Hash_Square.DigestKey^, 4 * SizeOf(Integer))
+ to produce private Results}
+  FDigest[0] := $67452301;
+  FDigest[1] := $EFCDAB89;
+  FDigest[2] := $98BADCFE;
+  FDigest[3] := $10325476;
+  FCount := 0;
+  Protect(True);
+end;
+
+procedure TROHash_Square.Done;
+var
+  I: Integer;
+  S: Comp;
+begin
+  I := FCount and $0F;
+  FBuffer[I] := $80;
+  Inc(I);
+  if I > 16 - 8 then
+  begin
+    FillChar(FBuffer[I], 16 - I, 0);
+    Transform(@FBuffer);
+    I := 0;
+  end;
+  FillChar(FBuffer[I], 16 - I, 0);
+  S := FCount * 8; {in Bits}
+  Move(S, FBuffer[16 - 8], SizeOf(S));
+  Transform(@FBuffer);
+  FillChar(FBuffer, SizeOf(FBuffer), 0);
+  Protect(False);
+end;
+
+procedure TROHash_Square.Calc(const Data; DataSize: Integer);
+var
+  Index: Integer;
+  P: PChar;
+begin
+  if DataSize <= 0 then Exit;
+  Index := FCount and $0F;
+  Inc(FCount, DataSize);
+  if Index > 0 then
+  begin
+    if DataSize < 16 - Index then
+    begin
+      Move(Data, FBuffer[Index], DataSize);
+      Exit;
+    end;
+    Move(Data, FBuffer[Index], 16 - Index);
+    Transform(@FBuffer);
+    Index := 16 - Index;
+    Dec(DataSize, Index);
+  end;
+  P := @TByteArray(Data)[Index];
+  Inc(Index, DataSize and not $0F);
+  while DataSize >= 16 do
+  begin
+    Transform(Pointer(P));
+    Inc(P, 16);
+    Dec(DataSize, 16);
+  end;
+  Move(TByteArray(Data)[Index], FBuffer, DataSize);
+end;
+
+class function TROHash_XOR16.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    079h,0E8h
+end;
+
+class function TROHash_XOR16.DigestKeySize: Integer;
+begin
+  Result := 2;
+end;
+
+procedure TROHash_XOR16.Init;
+begin
+  FCRC := 0;
+  Protect(True);
+end;
+
+procedure TROHash_XOR16.Calc(const Data; DataSize: Integer); assembler; register;
+asm
+         TEST    ECX,ECX
+         JLE     @Exit
+         PUSH    EAX
+         MOV     AX,[EAX].TROHash_XOR16.FCRC
+@@1:     ROL     AX,5
+         XOR     AL,[EDX]
+         INC     EDX
+         DEC     ECX
+         JNZ     @@1
+         POP     EDX
+         MOV     [EDX].TROHash_XOR16.FCRC,AX
+@Exit:
+end;
+
+function TROHash_XOR16.DigestKey: Pointer;
+begin
+  Result := @FCRC;
+end;
+
+class function TROHash_XOR32.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    08Dh,0ADh,089h,07Fh
+end;
+
+class function TROHash_XOR32.DigestKeySize: Integer;
+begin
+  Result := 4;
+end;
+
+procedure TROHash_XOR32.Init;
+begin
+  FCRC := 0;
+  Protect(True);
+end;
+
+procedure TROHash_XOR32.Calc(const Data; DataSize: Integer); assembler; register;
+asm
+         TEST    ECX,ECX
+         JLE     @Exit
+         PUSH    EAX
+         MOV     EAX,[EAX].TROHash_XOR32.FCRC
+         TEST    ECX,1
+         JE      @@1
+         XOR     AX,[EDX]
+         INC     EDX
+@@1:     SHR     ECX,1
+         JECXZ   @@3
+@@2:     ROL     EAX,5
+         XOR     AX,[EDX]
+         ADD     EDX,2
+         DEC     ECX
+         JNZ     @@2
+@@3:     POP     EDX
+         MOV     [EDX].TROHash_XOR32.FCRC,EAX
+@Exit:
+end;
+
+function TROHash_XOR32.DigestKey: Pointer;
+begin
+  Result := @FCRC;
+end;
+
+class function TROHash_CRC32.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    058h,0EEh,01Fh,031h
+end;
+
+procedure TROHash_CRC32.Init;
+begin
+  FCRC := $FFFFFFFF;
+  Protect(True);
+end;
+
+procedure TROHash_CRC32.Calc(const Data; DataSize: Integer); assembler; register;
+asm
+         PUSH   EAX
+         MOV    EAX,[EAX].TROHash_CRC32.FCRC
+         CALL   CRC32
+         POP    EDX
+         MOV    [EDX].TROHash_CRC32.FCRC,EAX
+end;
+
+procedure TROHash_CRC32.Done;
+begin
+  FCRC := not FCRC;
+  Protect(False);
+end;
+
+class function TROHash_CRC16_CCITT.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0B0h,0D1h
+end;
+
+procedure TROHash_CRC16_CCITT.Init;
+begin
+  FCRC := $FFFF;
+  Protect(True);
+end;
+
+procedure TROHash_CRC16_CCITT.Calc(const Data; DataSize: Integer);
+asm
+         AND    EDX,EDX
+         JZ     @Exit
+         AND    ECX,ECX
+         JLE    @Exit
+         PUSH   EAX
+         MOV    AX,[EAX].TROHash_CRC16_CCITT.FCRC
+         PUSH   EBX
+         PUSH   EDI
+         XOR    EBX,EBX
+         LEA    EDI,CS:[OFFSET @CRC16]
+@Start:  MOV    BL,AH
+         SHL    AX,8
+         MOV    AL,[EDX]
+         XOR    AX,[EDI + EBX * 2]
+         INC    EDX
+         DEC    ECX
+         JNZ    @Start
+         POP    EDI
+         POP    EBX
+         POP    EDX
+         MOV    [EDX].TROHash_CRC16_CCITT.FCRC,AX
+@Exit:   RET
+
+@CRC16:  DW     00000h, 01021h, 02042h, 03063h, 04084h, 050A5h, 060C6h, 070E7h
+         DW     08108h, 09129h, 0A14Ah, 0B16Bh, 0C18Ch, 0D1ADh, 0E1CEh, 0F1EFh
+         DW     01231h, 00210h, 03273h, 02252h, 052B5h, 04294h, 072F7h, 062D6h
+         DW     09339h, 08318h, 0B37Bh, 0A35Ah, 0D3BDh, 0C39Ch, 0F3FFh, 0E3DEh
+         DW     02462h, 03443h, 00420h, 01401h, 064E6h, 074C7h, 044A4h, 05485h
+         DW     0A56Ah, 0B54Bh, 08528h, 09509h, 0E5EEh, 0F5CFh, 0C5ACh, 0D58Dh
+         DW     03653h, 02672h, 01611h, 00630h, 076D7h, 066F6h, 05695h, 046B4h
+         DW     0B75Bh, 0A77Ah, 09719h, 08738h, 0F7DFh, 0E7FEh, 0D79Dh, 0C7BCh
+         DW     048C4h, 058E5h, 06886h, 078A7h, 00840h, 01861h, 02802h, 03823h
+         DW     0C9CCh, 0D9EDh, 0E98Eh, 0F9AFh, 08948h, 09969h, 0A90Ah, 0B92Bh
+         DW     05AF5h, 04AD4h, 07AB7h, 06A96h, 01A71h, 00A50h, 03A33h, 02A12h
+         DW     0DBFDh, 0CBDCh, 0FBBFh, 0EB9Eh, 09B79h, 08B58h, 0BB3Bh, 0AB1Ah
+         DW     06CA6h, 07C87h, 04CE4h, 05CC5h, 02C22h, 03C03h, 00C60h, 01C41h
+         DW     0EDAEh, 0FD8Fh, 0CDECh, 0DDCDh, 0AD2Ah, 0BD0Bh, 08D68h, 09D49h
+         DW     07E97h, 06EB6h, 05ED5h, 04EF4h, 03E13h, 02E32h, 01E51h, 00E70h
+         DW     0FF9Fh, 0EFBEh, 0DFDDh, 0CFFCh, 0BF1Bh, 0AF3Ah, 09F59h, 08F78h
+         DW     09188h, 081A9h, 0B1CAh, 0A1EBh, 0D10Ch, 0C12Dh, 0F14Eh, 0E16Fh
+         DW     01080h, 000A1h, 030C2h, 020E3h, 05004h, 04025h, 07046h, 06067h
+         DW     083B9h, 09398h, 0A3FBh, 0B3DAh, 0C33Dh, 0D31Ch, 0E37Fh, 0F35Eh
+         DW     002B1h, 01290h, 022F3h, 032D2h, 04235h, 05214h, 06277h, 07256h
+         DW     0B5EAh, 0A5CBh, 095A8h, 08589h, 0F56Eh, 0E54Fh, 0D52Ch, 0C50Dh
+         DW     034E2h, 024C3h, 014A0h, 00481h, 07466h, 06447h, 05424h, 04405h
+         DW     0A7DBh, 0B7FAh, 08799h, 097B8h, 0E75Fh, 0F77Eh, 0C71Dh, 0D73Ch
+         DW     026D3h, 036F2h, 00691h, 016B0h, 06657h, 07676h, 04615h, 05634h
+         DW     0D94Ch, 0C96Dh, 0F90Eh, 0E92Fh, 099C8h, 089E9h, 0B98Ah, 0A9ABh
+         DW     05844h, 04865h, 07806h, 06827h, 018C0h, 008E1h, 03882h, 028A3h
+         DW     0CB7Dh, 0DB5Ch, 0EB3Fh, 0FB1Eh, 08BF9h, 09BD8h, 0ABBBh, 0BB9Ah
+         DW     04A75h, 05A54h, 06A37h, 07A16h, 00AF1h, 01AD0h, 02AB3h, 03A92h
+         DW     0FD2Eh, 0ED0Fh, 0DD6Ch, 0CD4Dh, 0BDAAh, 0AD8Bh, 09DE8h, 08DC9h
+         DW     07C26h, 06C07h, 05C64h, 04C45h, 03CA2h, 02C83h, 01CE0h, 00CC1h
+         DW     0EF1Fh, 0FF3Eh, 0CF5Dh, 0DF7Ch, 0AF9Bh, 0BFBAh, 08FD9h, 09FF8h
+         DW     06E17h, 07E36h, 04E55h, 05E74h, 02E93h, 03EB2h, 00ED1h, 01EF0h
+end;
+
+class function TROhash_CRC16_Standard.TestVector: Pointer;
+asm
+         MOV   EAX,OFFSET @Vector
+         RET
+@Vector: DB    0EDh,075h
+end;
+
+procedure TROhash_CRC16_Standard.Calc(const Data; DataSize: Integer);
+asm
+         PUSH   EAX
+         MOV    AX,[EAX].TROhash_CRC16_Standard.FCRC
+         CALL   CRC16
+         POP    EDX
+         MOV    [EDX].TROhash_CRC16_Standard.FCRC,AX
+end;
+{$IFDEF VER_D3H}
+procedure ModuleUnload(Module: Longword);
+var
+  I: Integer;
+begin
+  if IsObject(FHashList, TStringList) then
+    for I := HashList.Count-1 downto 0 do
+      if FindClassHInstance(TClass(FHashList.Objects[I])) = Module then
+        FHashList.Delete(I);
+end;
+{$ENDIF}
+
+initialization
+  if CPUType <= 3 then SHABuffer := SHABuffer386 else SHABuffer := SHABuffer486;
+{$IFDEF VER_D3H}
+  AddModuleUnloadProc(ModuleUnload);
+{$ENDIF}
+{$IFNDEF ManualRegisterClasses}
+  RegisterHash(TROHash_MD4, 'Message Digest 4', 'RO_Hash');
+  RegisterHash(TROHash_MD5, 'Message Digest 5', 'RO_Hash');
+  RegisterHash(TROHash_SHA, 'Secure RO_Hash Algorithm', 'RO_Hash');
+  RegisterHash(TROHash_SHA1, 'Secure RO_Hash Algorithm 1', 'RO_Hash');
+  RegisterHash(TROHash_RipeMD128, 'Ripe Message Digest 128', 'RO_Hash');
+  RegisterHash(TROHash_RipeMD160, 'Ripe Message Digest 160', 'RO_Hash');
+  RegisterHash(TROHash_RipeMD256, 'Ripe Message Digest 256', 'RO_Hash');
+  RegisterHash(TROHash_RipeMD320, 'Ripe Message Digest 320', 'RO_Hash');
+  RegisterHash(TROHash_Haval128, 'Haval-128', 'RO_Hash');
+  RegisterHash(TROHash_Haval160, 'Haval-160', 'RO_Hash');
+  RegisterHash(TROHash_Haval192, 'Haval-192', 'RO_Hash');
+  RegisterHash(TROHash_Haval224, 'Haval-224', 'RO_Hash');
+  RegisterHash(TROHash_Haval256, 'Haval-256', 'RO_Hash');
+  RegisterHash(TROHash_Sapphire128, 'Sapphire II-128', 'RO_Hash');
+  RegisterHash(TROHash_Sapphire160, 'Sapphire II-160', 'RO_Hash');
+  RegisterHash(TROHash_Sapphire192, 'Sapphire II-192', 'RO_Hash');
+  RegisterHash(TROHash_Sapphire224, 'Sapphire II-224', 'RO_Hash');
+  RegisterHash(TROHash_Sapphire256, 'Sapphire II-256', 'RO_Hash');
+  RegisterHash(TROHash_Sapphire288, 'Sapphire II-288', 'RO_Hash');
+  RegisterHash(TROHash_Sapphire320, 'Sapphire II-320', 'RO_Hash');
+  RegisterHash(TROHash_Snefru, 'Snefru-256', 'RO_Hash');
+  RegisterHash(TROHash_Square, 'Square', 'RO_Hash');
+  RegisterHash(TROHash_Tiger, 'Tiger', 'RO_Hash');
+  RegisterHash(TROHash_XOR16, 'XOR-16', 'Checksum');
+  RegisterHash(TROHash_XOR32, 'XOR-32', 'Checksum');
+  RegisterHash(TROHash_CRC16_CCITT, 'CRC-16 CCITT', 'Checksum');
+  RegisterHash(TROhash_CRC16_Standard, 'CRC-16 Standard', 'Checksum');
+  RegisterHash(TROHash_CRC32, 'CRC-32', 'Checksum');
+{$ENDIF}  
+finalization
+{$IFDEF VER_D3H}
+  RemoveModuleUnloadProc(ModuleUnload);
+{$ENDIF}
+  FHashList.Free;
+  FHashList := nil;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC1760.RES b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC1760.RES
new file mode 100644
index 0000000..b5f037b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC1760.RES differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC1760.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC1760.inc
new file mode 100644
index 0000000..5d0736b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC1760.inc	
@@ -0,0 +1,258 @@
+const
+  RFC1760Entries : array[0..2047] of array[0..3] of Char =
+   ('A',    'ABE',  'ACE',  'ACT',  'AD',   'ADA',  'ADD',  'AGO',
+    'AID',  'AIM',  'AIR',  'ALL',  'ALP',  'AM',   'AMY',  'AN',
+    'ANA',  'AND',  'ANN',  'ANT',  'ANY',  'APE',  'APS',  'APT',
+    'ARC',  'ARE',  'ARK',  'ARM',  'ART',  'AS',   'ASH',  'ASK',
+    'AT',   'ATE',  'AUG',  'AUK',  'AVE',  'AWE',  'AWK',  'AWL',
+    'AWN',  'AX',   'AYE',  'BAD',  'BAG',  'BAH',  'BAM',  'BAN',
+    'BAR',  'BAT',  'BAY',  'BE',   'BED',  'BEE',  'BEG',  'BEN',
+    'BET',  'BEY',  'BIB',  'BID',  'BIG',  'BIN',  'BIT',  'BOB',
+    'BOG',  'BON',  'BOO',  'BOP',  'BOW',  'BOY',  'BUB',  'BUD',
+    'BUG',  'BUM',  'BUN',  'BUS',  'BUT',  'BUY',  'BY',   'BYE',
+    'CAB',  'CAL',  'CAM',  'CAN',  'CAP',  'CAR',  'CAT',  'CAW',
+    'COD',  'COG',  'COL',  'CON',  'COO',  'COP',  'COT',  'COW',
+    'COY',  'CRY',  'CUB',  'CUE',  'CUP',  'CUR',  'CUT',  'DAB',
+    'DAD',  'DAM',  'DAN',  'DAR',  'DAY',  'DEE',  'DEL',  'DEN',
+    'DES',  'DEW',  'DID',  'DIE',  'DIG',  'DIN',  'DIP',  'DO',
+    'DOE',  'DOG',  'DON',  'DOT',  'DOW',  'DRY',  'DUB',  'DUD',
+    'DUE',  'DUG',  'DUN',  'EAR',  'EAT',  'ED',   'EEL',  'EGG',
+    'EGO',  'ELI',  'ELK',  'ELM',  'ELY',  'EM',   'END',  'EST',
+    'ETC',  'EVA',  'EVE',  'EWE',  'EYE',  'FAD',  'FAN',  'FAR',
+    'FAT',  'FAY',  'FED',  'FEE',  'FEW',  'FIB',  'FIG',  'FIN',
+    'FIR',  'FIT',  'FLO',  'FLY',  'FOE',  'FOG',  'FOR',  'FRY',
+    'FUM',  'FUN',  'FUR',  'GAB',  'GAD',  'GAG',  'GAL',  'GAM',
+    'GAP',  'GAS',  'GAY',  'GEE',  'GEL',  'GEM',  'GET',  'GIG',
+    'GIL',  'GIN',  'GO',   'GOT',  'GUM',  'GUN',  'GUS',  'GUT',
+    'GUY',  'GYM',  'GYP',  'HA',   'HAD',  'HAL',  'HAM',  'HAN',
+    'HAP',  'HAS',  'HAT',  'HAW',  'HAY',  'HE',   'HEM',  'HEN',
+    'HER',  'HEW',  'HEY',  'HI',   'HID',  'HIM',  'HIP',  'HIS',
+    'HIT',  'HO',   'HOB',  'HOC',  'HOE',  'HOG',  'HOP',  'HOT',
+    'HOW',  'HUB',  'HUE',  'HUG',  'HUH',  'HUM',  'HUT',  'I',
+    'ICY',  'IDA',  'IF',   'IKE',  'ILL',  'INK',  'INN',  'IO',
+    'ION',  'IQ',   'IRA',  'IRE',  'IRK',  'IS',   'IT',   'ITS',
+    'IVY',  'JAB',  'JAG',  'JAM',  'JAN',  'JAR',  'JAW',  'JAY',
+    'JET',  'JIG',  'JIM',  'JO',   'JOB',  'JOE',  'JOG',  'JOT',
+    'JOY',  'JUG',  'JUT',  'KAY',  'KEG',  'KEN',  'KEY',  'KID',
+    'KIM',  'KIN',  'KIT',  'LA',   'LAB',  'LAC',  'LAD',  'LAG',
+    'LAM',  'LAP',  'LAW',  'LAY',  'LEA',  'LED',  'LEE',  'LEG',
+    'LEN',  'LEO',  'LET',  'LEW',  'LID',  'LIE',  'LIN',  'LIP',
+    'LIT',  'LO',   'LOB',  'LOG',  'LOP',  'LOS',  'LOT',  'LOU',
+    'LOW',  'LOY',  'LUG',  'LYE',  'MA',   'MAC',  'MAD',  'MAE',
+    'MAN',  'MAO',  'MAP',  'MAT',  'MAW',  'MAY',  'ME',   'MEG',
+    'MEL',  'MEN',  'MET',  'MEW',  'MID',  'MIN',  'MIT',  'MOB',
+    'MOD',  'MOE',  'MOO',  'MOP',  'MOS',  'MOT',  'MOW',  'MUD',
+    'MUG',  'MUM',  'MY',   'NAB',  'NAG',  'NAN',  'NAP',  'NAT',
+    'NAY',  'NE',   'NED',  'NEE',  'NET',  'NEW',  'NIB',  'NIL',
+    'NIP',  'NIT',  'NO',   'NOB',  'NOD',  'NON',  'NOR',  'NOT',
+    'NOV',  'NOW',  'NU',   'NUN',  'NUT',  'O',    'OAF',  'OAK',
+    'OAR',  'OAT',  'ODD',  'ODE',  'OF',   'OFF',  'OFT',  'OH',
+    'OIL',  'OK',   'OLD',  'ON',   'ONE',  'OR',   'ORB',  'ORE',
+    'ORR',  'OS',   'OTT',  'OUR',  'OUT',  'OVA',  'OW',   'OWE',
+    'OWL',  'OWN',  'OX',   'PA',   'PAD',  'PAL',  'PAM',  'PAN',
+    'PAP',  'PAR',  'PAT',  'PAW',  'PAY',  'PEA',  'PEG',  'PEN',
+    'PEP',  'PER',  'PET',  'PEW',  'PHI',  'PI',   'PIE',  'PIN',
+    'PIT',  'PLY',  'PO',   'POD',  'POE',  'POP',  'POT',  'POW',
+    'PRO',  'PRY',  'PUB',  'PUG',  'PUN',  'PUP',  'PUT',  'QUO',
+    'RAG',  'RAM',  'RAN',  'RAP',  'RAT',  'RAW',  'RAY',  'REB',
+    'RED',  'REP',  'RET',  'RIB',  'RID',  'RIG',  'RIM',  'RIO',
+    'RIP',  'ROB',  'ROD',  'ROE',  'RON',  'ROT',  'ROW',  'ROY',
+    'RUB',  'RUE',  'RUG',  'RUM',  'RUN',  'RYE',  'SAC',  'SAD',
+    'SAG',  'SAL',  'SAM',  'SAN',  'SAP',  'SAT',  'SAW',  'SAY',
+    'SEA',  'SEC',  'SEE',  'SEN',  'SET',  'SEW',  'SHE',  'SHY',
+    'SIN',  'SIP',  'SIR',  'SIS',  'SIT',  'SKI',  'SKY',  'SLY',
+    'SO',   'SOB',  'SOD',  'SON',  'SOP',  'SOW',  'SOY',  'SPA',
+    'SPY',  'SUB',  'SUD',  'SUE',  'SUM',  'SUN',  'SUP',  'TAB',
+    'TAD',  'TAG',  'TAN',  'TAP',  'TAR',  'TEA',  'TED',  'TEE',
+    'TEN',  'THE',  'THY',  'TIC',  'TIE',  'TIM',  'TIN',  'TIP',
+    'TO',   'TOE',  'TOG',  'TOM',  'TON',  'TOO',  'TOP',  'TOW',
+    'TOY',  'TRY',  'TUB',  'TUG',  'TUM',  'TUN',  'TWO',  'UN',
+    'UP',   'US',   'USE',  'VAN',  'VAT',  'VET',  'VIE',  'WAD',
+    'WAG',  'WAR',  'WAS',  'WAY',  'WE',   'WEB',  'WED',  'WEE',
+    'WET',  'WHO',  'WHY',  'WIN',  'WIT',  'WOK',  'WON',  'WOO',
+    'WOW',  'WRY',  'WU',   'YAM',  'YAP',  'YAW',  'YE',   'YEA',
+    'YES',  'YET',  'YOU',  'ABED', 'ABEL', 'ABET', 'ABLE', 'ABUT',
+    'ACHE', 'ACID', 'ACME', 'ACRE', 'ACTA', 'ACTS', 'ADAM', 'ADDS',
+    'ADEN', 'AFAR', 'AFRO', 'AGEE', 'AHEM', 'AHOY', 'AIDA', 'AIDE',
+    'AIDS', 'AIRY', 'AJAR', 'AKIN', 'ALAN', 'ALEC', 'ALGA', 'ALIA',
+    'ALLY', 'ALMA', 'ALOE', 'ALSO', 'ALTO', 'ALUM', 'ALVA', 'AMEN',
+    'AMES', 'AMID', 'AMMO', 'AMOK', 'AMOS', 'AMRA', 'ANDY', 'ANEW',
+    'ANNA', 'ANNE', 'ANTE', 'ANTI', 'AQUA', 'ARAB', 'ARCH', 'AREA',
+    'ARGO', 'ARID', 'ARMY', 'ARTS', 'ARTY', 'ASIA', 'ASKS', 'ATOM',
+    'AUNT', 'AURA', 'AUTO', 'AVER', 'AVID', 'AVIS', 'AVON', 'AVOW',
+    'AWAY', 'AWRY', 'BABE', 'BABY', 'BACH', 'BACK', 'BADE', 'BAIL',
+    'BAIT', 'BAKE', 'BALD', 'BALE', 'BALI', 'BALK', 'BALL', 'BALM',
+    'BAND', 'BANE', 'BANG', 'BANK', 'BARB', 'BARD', 'BARE', 'BARK',
+    'BARN', 'BARR', 'BASE', 'BASH', 'BASK', 'BASS', 'BATE', 'BATH',
+    'BAWD', 'BAWL', 'BEAD', 'BEAK', 'BEAM', 'BEAN', 'BEAR', 'BEAT',
+    'BEAU', 'BECK', 'BEEF', 'BEEN', 'BEER', 'BEET', 'BELA', 'BELL',
+    'BELT', 'BEND', 'BENT', 'BERG', 'BERN', 'BERT', 'BESS', 'BEST',
+    'BETA', 'BETH', 'BHOY', 'BIAS', 'BIDE', 'BIEN', 'BILE', 'BILK',
+    'BILL', 'BIND', 'BING', 'BIRD', 'BITE', 'BITS', 'BLAB', 'BLAT',
+    'BLED', 'BLEW', 'BLOB', 'BLOC', 'BLOT', 'BLOW', 'BLUE', 'BLUM',
+    'BLUR', 'BOAR', 'BOAT', 'BOCA', 'BOCK', 'BODE', 'BODY', 'BOGY',
+    'BOHR', 'BOIL', 'BOLD', 'BOLO', 'BOLT', 'BOMB', 'BONA', 'BOND',
+    'BONE', 'BONG', 'BONN', 'BONY', 'BOOK', 'BOOM', 'BOON', 'BOOT',
+    'BORE', 'BORG', 'BORN', 'BOSE', 'BOSS', 'BOTH', 'BOUT', 'BOWL',
+    'BOYD', 'BRAD', 'BRAE', 'BRAG', 'BRAN', 'BRAY', 'BRED', 'BREW',
+    'BRIG', 'BRIM', 'BROW', 'BUCK', 'BUDD', 'BUFF', 'BULB', 'BULK',
+    'BULL', 'BUNK', 'BUNT', 'BUOY', 'BURG', 'BURL', 'BURN', 'BURR',
+    'BURT', 'BURY', 'BUSH', 'BUSS', 'BUST', 'BUSY', 'BYTE', 'CADY',
+    'CAFE', 'CAGE', 'CAIN', 'CAKE', 'CALF', 'CALL', 'CALM', 'CAME',
+    'CANE', 'CANT', 'CARD', 'CARE', 'CARL', 'CARR', 'CART', 'CASE',
+    'CASH', 'CASK', 'CAST', 'CAVE', 'CEIL', 'CELL', 'CENT', 'CERN',
+    'CHAD', 'CHAR', 'CHAT', 'CHAW', 'CHEF', 'CHEN', 'CHEW', 'CHIC',
+    'CHIN', 'CHOU', 'CHOW', 'CHUB', 'CHUG', 'CHUM', 'CITE', 'CITY',
+    'CLAD', 'CLAM', 'CLAN', 'CLAW', 'CLAY', 'CLOD', 'CLOG', 'CLOT',
+    'CLUB', 'CLUE', 'COAL', 'COAT', 'COCA', 'COCK', 'COCO', 'CODA',
+    'CODE', 'CODY', 'COED', 'COIL', 'COIN', 'COKE', 'COLA', 'COLD',
+    'COLT', 'COMA', 'COMB', 'COME', 'COOK', 'COOL', 'COON', 'COOT',
+    'CORD', 'CORE', 'CORK', 'CORN', 'COST', 'COVE', 'COWL', 'CRAB',
+    'CRAG', 'CRAM', 'CRAY', 'CREW', 'CRIB', 'CROW', 'CRUD', 'CUBA',
+    'CUBE', 'CUFF', 'CULL', 'CULT', 'CUNY', 'CURB', 'CURD', 'CURE',
+    'CURL', 'CURT', 'CUTS', 'DADE', 'DALE', 'DAME', 'DANA', 'DANE',
+    'DANG', 'DANK', 'DARE', 'DARK', 'DARN', 'DART', 'DASH', 'DATA',
+    'DATE', 'DAVE', 'DAVY', 'DAWN', 'DAYS', 'DEAD', 'DEAF', 'DEAL',
+    'DEAN', 'DEAR', 'DEBT', 'DECK', 'DEED', 'DEEM', 'DEER', 'DEFT',
+    'DEFY', 'DELL', 'DENT', 'DENY', 'DESK', 'DIAL', 'DICE', 'DIED',
+    'DIET', 'DIME', 'DINE', 'DING', 'DINT', 'DIRE', 'DIRT', 'DISC',
+    'DISH', 'DISK', 'DIVE', 'DOCK', 'DOES', 'DOLE', 'DOLL', 'DOLT',
+    'DOME', 'DONE', 'DOOM', 'DOOR', 'DORA', 'DOSE', 'DOTE', 'DOUG',
+    'DOUR', 'DOVE', 'DOWN', 'DRAB', 'DRAG', 'DRAM', 'DRAW', 'DREW',
+    'DRUB', 'DRUG', 'DRUM', 'DUAL', 'DUCK', 'DUCT', 'DUEL', 'DUET',
+    'DUKE', 'DULL', 'DUMB', 'DUNE', 'DUNK', 'DUSK', 'DUST', 'DUTY',
+    'EACH', 'EARL', 'EARN', 'EASE', 'EAST', 'EASY', 'EBEN', 'ECHO',
+    'EDDY', 'EDEN', 'EDGE', 'EDGY', 'EDIT', 'EDNA', 'EGAN', 'ELAN',
+    'ELBA', 'ELLA', 'ELSE', 'EMIL', 'EMIT', 'EMMA', 'ENDS', 'ERIC',
+    'EROS', 'EVEN', 'EVER', 'EVIL', 'EYED', 'FACE', 'FACT', 'FADE',
+    'FAIL', 'FAIN', 'FAIR', 'FAKE', 'FALL', 'FAME', 'FANG', 'FARM',
+    'FAST', 'FATE', 'FAWN', 'FEAR', 'FEAT', 'FEED', 'FEEL', 'FEET',
+    'FELL', 'FELT', 'FEND', 'FERN', 'FEST', 'FEUD', 'FIEF', 'FIGS',
+    'FILE', 'FILL', 'FILM', 'FIND', 'FINE', 'FINK', 'FIRE', 'FIRM',
+    'FISH', 'FISK', 'FIST', 'FITS', 'FIVE', 'FLAG', 'FLAK', 'FLAM',
+    'FLAT', 'FLAW', 'FLEA', 'FLED', 'FLEW', 'FLIT', 'FLOC', 'FLOG',
+    'FLOW', 'FLUB', 'FLUE', 'FOAL', 'FOAM', 'FOGY', 'FOIL', 'FOLD',
+    'FOLK', 'FOND', 'FONT', 'FOOD', 'FOOL', 'FOOT', 'FORD', 'FORE',
+    'FORK', 'FORM', 'FORT', 'FOSS', 'FOUL', 'FOUR', 'FOWL', 'FRAU',
+    'FRAY', 'FRED', 'FREE', 'FRET', 'FREY', 'FROG', 'FROM', 'FUEL',
+    'FULL', 'FUME', 'FUND', 'FUNK', 'FURY', 'FUSE', 'FUSS', 'GAFF',
+    'GAGE', 'GAIL', 'GAIN', 'GAIT', 'GALA', 'GALE', 'GALL', 'GALT',
+    'GAME', 'GANG', 'GARB', 'GARY', 'GASH', 'GATE', 'GAUL', 'GAUR',
+    'GAVE', 'GAWK', 'GEAR', 'GELD', 'GENE', 'GENT', 'GERM', 'GETS',
+    'GIBE', 'GIFT', 'GILD', 'GILL', 'GILT', 'GINA', 'GIRD', 'GIRL',
+    'GIST', 'GIVE', 'GLAD', 'GLEE', 'GLEN', 'GLIB', 'GLOB', 'GLOM',
+    'GLOW', 'GLUE', 'GLUM', 'GLUT', 'GOAD', 'GOAL', 'GOAT', 'GOER',
+    'GOES', 'GOLD', 'GOLF', 'GONE', 'GONG', 'GOOD', 'GOOF', 'GORE',
+    'GORY', 'GOSH', 'GOUT', 'GOWN', 'GRAB', 'GRAD', 'GRAY', 'GREG',
+    'GREW', 'GREY', 'GRID', 'GRIM', 'GRIN', 'GRIT', 'GROW', 'GRUB',
+    'GULF', 'GULL', 'GUNK', 'GURU', 'GUSH', 'GUST', 'GWEN', 'GWYN',
+    'HAAG', 'HAAS', 'HACK', 'HAIL', 'HAIR', 'HALE', 'HALF', 'HALL',
+    'HALO', 'HALT', 'HAND', 'HANG', 'HANK', 'HANS', 'HARD', 'HARK',
+    'HARM', 'HART', 'HASH', 'HAST', 'HATE', 'HATH', 'HAUL', 'HAVE',
+    'HAWK', 'HAYS', 'HEAD', 'HEAL', 'HEAR', 'HEAT', 'HEBE', 'HECK',
+    'HEED', 'HEEL', 'HEFT', 'HELD', 'HELL', 'HELM', 'HERB', 'HERD',
+    'HERE', 'HERO', 'HERS', 'HESS', 'HEWN', 'HICK', 'HIDE', 'HIGH',
+    'HIKE', 'HILL', 'HILT', 'HIND', 'HINT', 'HIRE', 'HISS', 'HIVE',
+    'HOBO', 'HOCK', 'HOFF', 'HOLD', 'HOLE', 'HOLM', 'HOLT', 'HOME',
+    'HONE', 'HONK', 'HOOD', 'HOOF', 'HOOK', 'HOOT', 'HORN', 'HOSE',
+    'HOST', 'HOUR', 'HOVE', 'HOWE', 'HOWL', 'HOYT', 'HUCK', 'HUED',
+    'HUFF', 'HUGE', 'HUGH', 'HUGO', 'HULK', 'HULL', 'HUNK', 'HUNT',
+    'HURD', 'HURL', 'HURT', 'HUSH', 'HYDE', 'HYMN', 'IBIS', 'ICON',
+    'IDEA', 'IDLE', 'IFFY', 'INCA', 'INCH', 'INTO', 'IONS', 'IOTA',
+    'IOWA', 'IRIS', 'IRMA', 'IRON', 'ISLE', 'ITCH', 'ITEM', 'IVAN',
+    'JACK', 'JADE', 'JAIL', 'JAKE', 'JANE', 'JAVA', 'JEAN', 'JEFF',
+    'JERK', 'JESS', 'JEST', 'JIBE', 'JILL', 'JILT', 'JIVE', 'JOAN',
+    'JOBS', 'JOCK', 'JOEL', 'JOEY', 'JOHN', 'JOIN', 'JOKE', 'JOLT',
+    'JOVE', 'JUDD', 'JUDE', 'JUDO', 'JUDY', 'JUJU', 'JUKE', 'JULY',
+    'JUNE', 'JUNK', 'JUNO', 'JURY', 'JUST', 'JUTE', 'KAHN', 'KALE',
+    'KANE', 'KANT', 'KARL', 'KATE', 'KEEL', 'KEEN', 'KENO', 'KENT',
+    'KERN', 'KERR', 'KEYS', 'KICK', 'KILL', 'KIND', 'KING', 'KIRK',
+    'KISS', 'KITE', 'KLAN', 'KNEE', 'KNEW', 'KNIT', 'KNOB', 'KNOT',
+    'KNOW', 'KOCH', 'KONG', 'KUDO', 'KURD', 'KURT', 'KYLE', 'LACE',
+    'LACK', 'LACY', 'LADY', 'LAID', 'LAIN', 'LAIR', 'LAKE', 'LAMB',
+    'LAME', 'LAND', 'LANE', 'LANG', 'LARD', 'LARK', 'LASS', 'LAST',
+    'LATE', 'LAUD', 'LAVA', 'LAWN', 'LAWS', 'LAYS', 'LEAD', 'LEAF',
+    'LEAK', 'LEAN', 'LEAR', 'LEEK', 'LEER', 'LEFT', 'LEND', 'LENS',
+    'LENT', 'LEON', 'LESK', 'LESS', 'LEST', 'LETS', 'LIAR', 'LICE',
+    'LICK', 'LIED', 'LIEN', 'LIES', 'LIEU', 'LIFE', 'LIFT', 'LIKE',
+    'LILA', 'LILT', 'LILY', 'LIMA', 'LIMB', 'LIME', 'LIND', 'LINE',
+    'LINK', 'LINT', 'LION', 'LISA', 'LIST', 'LIVE', 'LOAD', 'LOAF',
+    'LOAM', 'LOAN', 'LOCK', 'LOFT', 'LOGE', 'LOIS', 'LOLA', 'LONE',
+    'LONG', 'LOOK', 'LOON', 'LOOT', 'LORD', 'LORE', 'LOSE', 'LOSS',
+    'LOST', 'LOUD', 'LOVE', 'LOWE', 'LUCK', 'LUCY', 'LUGE', 'LUKE',
+    'LULU', 'LUND', 'LUNG', 'LURA', 'LURE', 'LURK', 'LUSH', 'LUST',
+    'LYLE', 'LYNN', 'LYON', 'LYRA', 'MACE', 'MADE', 'MAGI', 'MAID',
+    'MAIL', 'MAIN', 'MAKE', 'MALE', 'MALI', 'MALL', 'MALT', 'MANA',
+    'MANN', 'MANY', 'MARC', 'MARE', 'MARK', 'MARS', 'MART', 'MARY',
+    'MASH', 'MASK', 'MASS', 'MAST', 'MATE', 'MATH', 'MAUL', 'MAYO',
+    'MEAD', 'MEAL', 'MEAN', 'MEAT', 'MEEK', 'MEET', 'MELD', 'MELT',
+    'MEMO', 'MEND', 'MENU', 'MERT', 'MESH', 'MESS', 'MICE', 'MIKE',
+    'MILD', 'MILE', 'MILK', 'MILL', 'MILT', 'MIMI', 'MIND', 'MINE',
+    'MINI', 'MINK', 'MINT', 'MIRE', 'MISS', 'MIST', 'MITE', 'MITT',
+    'MOAN', 'MOAT', 'MOCK', 'MODE', 'MOLD', 'MOLE', 'MOLL', 'MOLT',
+    'MONA', 'MONK', 'MONT', 'MOOD', 'MOON', 'MOOR', 'MOOT', 'MORE',
+    'MORN', 'MORT', 'MOSS', 'MOST', 'MOTH', 'MOVE', 'MUCH', 'MUCK',
+    'MUDD', 'MUFF', 'MULE', 'MULL', 'MURK', 'MUSH', 'MUST', 'MUTE',
+    'MUTT', 'MYRA', 'MYTH', 'NAGY', 'NAIL', 'NAIR', 'NAME', 'NARY',
+    'NASH', 'NAVE', 'NAVY', 'NEAL', 'NEAR', 'NEAT', 'NECK', 'NEED',
+    'NEIL', 'NELL', 'NEON', 'NERO', 'NESS', 'NEST', 'NEWS', 'NEWT',
+    'NIBS', 'NICE', 'NICK', 'NILE', 'NINA', 'NINE', 'NOAH', 'NODE',
+    'NOEL', 'NOLL', 'NONE', 'NOOK', 'NOON', 'NORM', 'NOSE', 'NOTE',
+    'NOUN', 'NOVA', 'NUDE', 'NULL', 'NUMB', 'OATH', 'OBEY', 'OBOE',
+    'ODIN', 'OHIO', 'OILY', 'OINT', 'OKAY', 'OLAF', 'OLDY', 'OLGA',
+    'OLIN', 'OMAN', 'OMEN', 'OMIT', 'ONCE', 'ONES', 'ONLY', 'ONTO',
+    'ONUS', 'ORAL', 'ORGY', 'OSLO', 'OTIS', 'OTTO', 'OUCH', 'OUST',
+    'OUTS', 'OVAL', 'OVEN', 'OVER', 'OWLY', 'OWNS', 'QUAD', 'QUIT',
+    'QUOD', 'RACE', 'RACK', 'RACY', 'RAFT', 'RAGE', 'RAID', 'RAIL',
+    'RAIN', 'RAKE', 'RANK', 'RANT', 'RARE', 'RASH', 'RATE', 'RAVE',
+    'RAYS', 'READ', 'REAL', 'REAM', 'REAR', 'RECK', 'REED', 'REEF',
+    'REEK', 'REEL', 'REID', 'REIN', 'RENA', 'REND', 'RENT', 'REST',
+    'RICE', 'RICH', 'RICK', 'RIDE', 'RIFT', 'RILL', 'RIME', 'RING',
+    'RINK', 'RISE', 'RISK', 'RITE', 'ROAD', 'ROAM', 'ROAR', 'ROBE',
+    'ROCK', 'RODE', 'ROIL', 'ROLL', 'ROME', 'ROOD', 'ROOF', 'ROOK',
+    'ROOM', 'ROOT', 'ROSA', 'ROSE', 'ROSS', 'ROSY', 'ROTH', 'ROUT',
+    'ROVE', 'ROWE', 'ROWS', 'RUBE', 'RUBY', 'RUDE', 'RUDY', 'RUIN',
+    'RULE', 'RUNG', 'RUNS', 'RUNT', 'RUSE', 'RUSH', 'RUSK', 'RUSS',
+    'RUST', 'RUTH', 'SACK', 'SAFE', 'SAGE', 'SAID', 'SAIL', 'SALE',
+    'SALK', 'SALT', 'SAME', 'SAND', 'SANE', 'SANG', 'SANK', 'SARA',
+    'SAUL', 'SAVE', 'SAYS', 'SCAN', 'SCAR', 'SCAT', 'SCOT', 'SEAL',
+    'SEAM', 'SEAR', 'SEAT', 'SEED', 'SEEK', 'SEEM', 'SEEN', 'SEES',
+    'SELF', 'SELL', 'SEND', 'SENT', 'SETS', 'SEWN', 'SHAG', 'SHAM',
+    'SHAW', 'SHAY', 'SHED', 'SHIM', 'SHIN', 'SHOD', 'SHOE', 'SHOT',
+    'SHOW', 'SHUN', 'SHUT', 'SICK', 'SIDE', 'SIFT', 'SIGH', 'SIGN',
+    'SILK', 'SILL', 'SILO', 'SILT', 'SINE', 'SING', 'SINK', 'SIRE',
+    'SITE', 'SITS', 'SITU', 'SKAT', 'SKEW', 'SKID', 'SKIM', 'SKIN',
+    'SKIT', 'SLAB', 'SLAM', 'SLAT', 'SLAY', 'SLED', 'SLEW', 'SLID',
+    'SLIM', 'SLIT', 'SLOB', 'SLOG', 'SLOT', 'SLOW', 'SLUG', 'SLUM',
+    'SLUR', 'SMOG', 'SMUG', 'SNAG', 'SNOB', 'SNOW', 'SNUB', 'SNUG',
+    'SOAK', 'SOAR', 'SOCK', 'SODA', 'SOFA', 'SOFT', 'SOIL', 'SOLD',
+    'SOME', 'SONG', 'SOON', 'SOOT', 'SORE', 'SORT', 'SOUL', 'SOUR',
+    'SOWN', 'STAB', 'STAG', 'STAN', 'STAR', 'STAY', 'STEM', 'STEW',
+    'STIR', 'STOW', 'STUB', 'STUN', 'SUCH', 'SUDS', 'SUIT', 'SULK',
+    'SUMS', 'SUNG', 'SUNK', 'SURE', 'SURF', 'SWAB', 'SWAG', 'SWAM',
+    'SWAN', 'SWAT', 'SWAY', 'SWIM', 'SWUM', 'TACK', 'TACT', 'TAIL',
+    'TAKE', 'TALE', 'TALK', 'TALL', 'TANK', 'TASK', 'TATE', 'TAUT',
+    'TEAL', 'TEAM', 'TEAR', 'TECH', 'TEEM', 'TEEN', 'TEET', 'TELL',
+    'TEND', 'TENT', 'TERM', 'TERN', 'TESS', 'TEST', 'THAN', 'THAT',
+    'THEE', 'THEM', 'THEN', 'THEY', 'THIN', 'THIS', 'THUD', 'THUG',
+    'TICK', 'TIDE', 'TIDY', 'TIED', 'TIER', 'TILE', 'TILL', 'TILT',
+    'TIME', 'TINA', 'TINE', 'TINT', 'TINY', 'TIRE', 'TOAD', 'TOGO',
+    'TOIL', 'TOLD', 'TOLL', 'TONE', 'TONG', 'TONY', 'TOOK', 'TOOL',
+    'TOOT', 'TORE', 'TORN', 'TOTE', 'TOUR', 'TOUT', 'TOWN', 'TRAG',
+    'TRAM', 'TRAY', 'TREE', 'TREK', 'TRIG', 'TRIM', 'TRIO', 'TROD',
+    'TROT', 'TROY', 'TRUE', 'TUBA', 'TUBE', 'TUCK', 'TUFT', 'TUNA',
+    'TUNE', 'TUNG', 'TURF', 'TURN', 'TUSK', 'TWIG', 'TWIN', 'TWIT',
+    'ULAN', 'UNIT', 'URGE', 'USED', 'USER', 'USES', 'UTAH', 'VAIL',
+    'VAIN', 'VALE', 'VARY', 'VASE', 'VAST', 'VEAL', 'VEDA', 'VEIL',
+    'VEIN', 'VEND', 'VENT', 'VERB', 'VERY', 'VETO', 'VICE', 'VIEW',
+    'VINE', 'VISE', 'VOID', 'VOLT', 'VOTE', 'WACK', 'WADE', 'WAGE',
+    'WAIL', 'WAIT', 'WAKE', 'WALE', 'WALK', 'WALL', 'WALT', 'WAND',
+    'WANE', 'WANG', 'WANT', 'WARD', 'WARM', 'WARN', 'WART', 'WASH',
+    'WAST', 'WATS', 'WATT', 'WAVE', 'WAVY', 'WAYS', 'WEAK', 'WEAL',
+    'WEAN', 'WEAR', 'WEED', 'WEEK', 'WEIR', 'WELD', 'WELL', 'WELT',
+    'WENT', 'WERE', 'WERT', 'WEST', 'WHAM', 'WHAT', 'WHEE', 'WHEN',
+    'WHET', 'WHOA', 'WHOM', 'WICK', 'WIFE', 'WILD', 'WILL', 'WIND',
+    'WINE', 'WING', 'WINK', 'WINO', 'WIRE', 'WISE', 'WISH', 'WITH',
+    'WOLF', 'WONT', 'WOOD', 'WOOL', 'WORD', 'WORE', 'WORK', 'WORM',
+    'WORN', 'WOVE', 'WRIT', 'WYNN', 'YALE', 'YANG', 'YANK', 'YARD',
+    'YARN', 'YAWL', 'YAWN', 'YEAH', 'YEAR', 'YELL', 'YOGA', 'YOKE');
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC2289.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC2289.pas
new file mode 100644
index 0000000..1366842
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORFC2289.pas	
@@ -0,0 +1,624 @@
+{Copyright:      Hagen Reddmann  mailto:HaReddmann@AOL.COM
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        3.0, Delphi Encryption Compendium
+                 Delphi 2-4, BCB 3-4, designed and testet under D3 and D4
+ Description:    RFC1938 Standard One Time Password Routines  "otp-"
+                 RO_RFC2289 Standard One Time Password Routines  "otp-"
+                 RFC2444 Standard One Time Password Routines  "otp-" "ext"
+                 RFC1760 S/Key One Time Password Routines     "s/key"
+                 RFC1760 Six Word String Converting
+
+ Remarks:        The RFC1760 Six Word Converting in these Library is an
+                 extended (modified) Version. Normaly works the Standard
+                 RFC1760 ONLY with 64 Bit (8 Bytes) Inputs, Six Words Output (66 Bit)
+                 and a Dictionary with 2048 Entries.
+                 The here implemented Version is absolutly compatible with
+                 Standard RFC1760 but works with any Sizes and other
+                 userdefined Dictionary's with variable Entrycount.
+
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
+ * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+ * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+ * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+ * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+}
+unit uRORFC2289;
+
+interface
+
+uses Windows, SysUtils, Classes, uROHash, uRODECUtil;
+
+{$I uROVer.inc}
+
+const
+  fmtRFC1760   = 1760;   // New StringFormat
+
+type
+  EROOTPException  = class(Exception);
+
+  TROOneTimePassword = class(TComponent)
+  private
+    FSeed: AnsiString;
+    FIdent: AnsiString;
+    FHash: TROHashClass;
+    FCount: Cardinal;
+    FExtended: Boolean;
+    FFormat: Integer;
+    FLastOTP: AnsiString;
+    function GetChallenge: AnsiString;
+    procedure SetChallenge(Value: AnsiString);
+    function GetAlgorithm: String;
+    procedure SetAlgorithm(Value: String);
+    procedure SetIdent(Value: AnsiString);
+    procedure SetHash(Value: TROHashClass);
+    procedure SetSeed(Value: AnsiString);
+  protected
+    function Calc(const Value: AnsiString; ACount: Integer): AnsiString;
+  public
+    constructor Create(AOwner: TComponent); override;
+
+    function  Execute(const Password: AnsiString): AnsiString;
+    function  Check(const OTP: AnsiString): Boolean;
+    procedure Next(const OTP: AnsiString);
+
+    function  NextPhrase(const OTP: AnsiString; ACount: Integer): AnsiString;
+    function  FirstPhrase(const Password: AnsiString): AnsiString;
+
+    property LastOTP: AnsiString read FLastOTP write FLastOTP;
+    property RO_Hash: TROHashClass read FHash write SetHash stored False;
+  published
+    property Algorithm: String read GetAlgorithm write SetAlgorithm stored False;
+    property Ident: AnsiString read FIdent write SetIdent stored False;
+    property Count: Cardinal read FCount write FCount stored False;
+    property Seed: AnsiString read FSeed write SetSeed stored False;
+    property Extended: Boolean read FExtended write FExtended stored False;
+    property Format: Integer read FFormat write FFormat default fmtRFC1760;
+
+    property Challenge: AnsiString read GetChallenge write SetChallenge;
+  end;
+
+  PDictionary = ^TDictionary;
+  TDictionary = packed record
+                  EntryCRC: LongWord;  // computed CRC
+                  EntryCount: Integer; // count of Words in Entries
+                  EntrySize: Integer;  // size of one Word in Entries
+                  Entries: array[0..0] of AnsiChar; // the Dictionary
+                end;
+
+//  TStringFormat_RFC1760Class = class of TROStringFormat_RFC1760;
+
+  TROStringFormat_RFC1760 = class(TROStringFormat)
+  private
+    class function GetDict: PDictionary;
+  protected
+    class function Dictionary: PDictionary; virtual;
+  public
+    class function ToStr(Value: PAnsiChar; Len: Integer): AnsiString; override;
+    class function StrTo(Value: PAnsiChar; Len: Integer): AnsiString; override;
+    class function Format: Integer; override;
+    class function IsValid(Value: PAnsiChar; Len: Integer; ToStr: Boolean): Boolean; override;
+  end;
+
+
+// convert any OTP- HEX or WORD Format to ToFormat
+function OTPFormat(const Value: AnsiString; ToFormat: Integer): AnsiString;
+
+implementation
+
+uses
+  {$IFDEF DELPHI2009UP}AnsiStrings,{$ENDIF}
+  uRODECConst;
+
+{$R uRORFC1760.RES}
+
+const
+  SepChars    = [#0,#9,#10,#13,#32,',',';',':','$','(',')','[',']'] +
+                ['{','}','-','"','''','\','/','+','*'];
+  RFC1760Dict : PDictionary = nil; // Standard RFC1760 Dictionary Resource
+
+function OTPFormat(const Value: AnsiString; ToFormat: Integer): AnsiString;
+var
+  I: Integer;
+begin
+  Result := Value;
+  if Result = '' then Exit;
+  I := Pos(sOTPWord, LowerCase(Result));
+  if I > 0 then
+  begin
+    Delete(Result, 1, I + Length(sOTPWord) -1);
+    I := fmtRFC1760;
+  end else
+  begin
+    I := Pos(sOTPHex, LowerCase(Result));
+    if I > 0 then
+    begin
+      Delete(Result, 1, I + Length(sOTPHex) -1);
+      I := fmtHEX;
+    end else I := fmtRFC1760;
+  end;
+  try
+    Result := FormatToStr(PAnsiChar(Result), -1, I);
+  except
+    if I <> fmtRFC1760 then raise
+      else Result := FormatToStr(PAnsiChar(Result), -1, fmtHEX)
+  end;
+  Result := StrToFormat(PAnsiChar(Result), Length(Result), ToFormat);
+end;
+
+function TROOneTimePassword.GetChallenge: AnsiString;
+begin
+  if FHash = nil then FHash := TROHash_MD4;
+  if Trim(FSeed) = '' then
+  begin
+    SetLength(FSeed, 2);
+    RndXORBuffer(RndTimeSeed, PAnsiChar(FSeed)^, 2);
+    FSeed := StrToFormat(PAnsiChar(FSeed), 2, fmtHEX);
+  end;
+  Result := FIdent;
+  if CompareText(FIdent, {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(sSKeyIdent)) <> 0 then
+    Result := Result + {$IFDEF UNICODE}UTF8Encode{$ENDIF}(GetShortClassName(FHash));
+  Result := Result + ' ' + {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(IntToStr(FCount)) + ' ' + FSeed;
+  if FExtended then Result := Result + ' ' + sOTPExt;
+end;
+
+procedure TROOneTimePassword.SetChallenge(Value: AnsiString);
+type
+  TCharSet = set of AnsiChar;
+
+  function CheckAlpha(const Value: AnsiString; Chars: TCharSet): Boolean;
+  var
+    I: Integer;
+  begin
+    Result := False;
+    for I := 1 to Length(Value) do
+      if not (Value[I] in Chars) then Exit;
+    Result := True;
+  end;
+
+var
+  I: Integer;
+  P,T,L: PAnsiChar;
+  S: AnsiString;
+  H: TROHashClass;
+  C: Integer;
+  E: Boolean;
+begin
+  if Trim(Value) = '' then
+  begin
+    FHash := TROHash_MD4;
+    FIdent := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(sOTPIdent);
+    FExtended := False;
+    FSeed := '';
+    FCount := 0;
+    Exit;
+  end;
+  H  := nil;
+  C  := -1;
+  E  := False;
+  try
+    P := PAnsiChar(Value);
+    L := StrEnd(P);
+    I := Pos({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(sOTPIdent), LowerCase(Value)); // check of "otp-"
+    if I > 0 then                                 // it's a RO_RFC2289 Challenge
+    begin
+      Inc(P, I + Length(sOTPIdent) - 1);
+      T := P;
+      if T >= L then Exit;
+      while not (T^ in SepChars) do Inc(T);       // find End
+      if T >= L then Exit;
+      S := P;
+      SetLength(S, T - P);                        // Algo Ident currect used "md4", "md5", "sha1"
+      H := GetHashClass({$IFDEF UNICODE}UTF8ToString{$ENDIF}(S));
+    end else
+    begin
+      I := Pos({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(sSKeyIdent), LowerCase(Value));  // check of "s/key"
+      if I = 0 then Exit;                         // isn't a RFC1760 Challenge
+      Inc(P, I + Length(sSKeyIdent) - 1);
+      T := P;
+      if T >= L then Exit;
+      H := TROHash_MD4;
+    end;
+    while T^ in SepChars do Inc(T);        // find next Begin
+    if T >= L then Exit;
+    P := T;
+    while not (T^ in SepChars) do Inc(T);  // find End
+    if T >= L then Exit;
+    S := P;
+    SetLength(S, T - P);                   // extract Count Value
+    C := StrToIntDef({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(S), -1);           // convert to Integer
+    while T^ in SepChars do Inc(T);        // find next Begin
+    if T > L then Exit;
+    P := T;
+    while not (T^ in SepChars) do Inc(T);  // find End
+    if T > L then Exit;
+    S := P;
+    SetLength(S, T - P);                    // extract Seed Value
+    while T^ in SepChars do Inc(T);         // find next Begin
+    if T > L then Exit;
+    E := StrLIComp(T, PAnsiChar(sOTPExt), Length(sOTPExt)) = 0;
+  finally
+    if (H = nil) or (C < 0) then
+      raise EROOTPException.Create(sInvalidChallenge);
+    if (S = '') or not CheckAlpha(S, ['a'..'z', 'A'..'Z', '0'..'9']) then
+      raise EROOTPException.Create(sInvalidSeed);
+    FHash  := H;
+    FSeed  := S;
+    FCount := C;
+    FExtended := E;
+  end;
+end;
+
+function TROOneTimePassword.GetAlgorithm: String;
+begin
+  Result := GetHashName(FHash);
+end;
+
+procedure TROOneTimePassword.SetAlgorithm(Value: String);
+begin
+  SetHash(GetHashClass(Value));
+end;
+
+procedure TROOneTimePassword.SetIdent(Value: AnsiString);
+begin
+  FIdent := Value;
+  if CompareText(FIdent, {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(sSKeyIdent)) = 0 then FHash := TROHash_MD4;
+end;
+
+procedure TROOneTimePassword.SetHash(Value: TROHashClass);
+begin
+  FHash := Value;
+  if (FHash = nil) or
+    (FHash.DigestKeySize < 16) or
+     FHash.InheritsFrom(TROChecksum) then FHash := TROHash_MD4 else
+  if (CompareText(FIdent, {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(sSKeyIdent)) = 0) and (FHash <> TROHash_MD4) then
+    FIdent := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(sOTPIdent);
+end;
+
+procedure TROOneTimePassword.SetSeed(Value: AnsiString);
+var
+  I: Integer;
+begin
+  FSeed := Value;
+  for I := Length(FSeed) downto 1 do
+    if not (FSeed[I] in [AnsiChar('a')..AnsiChar('z'), AnsiChar('A')..AnsiChar('Z'), AnsiChar('0')..AnsiChar('9')]) then Delete(FSeed, I, 1);
+end;
+
+constructor TROOneTimePassword.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  SetChallenge('');
+  FFormat := fmtRFC1760;
+end;
+
+function TROOneTimePassword.Calc(const Value: AnsiString; ACount: Integer): AnsiString;
+var
+  I: Integer;
+begin
+  if (FHash = nil) or (ACount < 0) then
+    raise EROOTPException.Create(sInvalidCalc);
+  Result := Value;
+  repeat
+    Result := FHash.CalcBuffer(PAnsiChar(Result)^, Length(Result), nil, fmtCOPY);
+// Fold the Digest to 8 Bytes
+    I := 8;
+    repeat
+      XORBuffers(PAnsiChar(Result), @PAnsiChar(Result)[I], 8, PAnsiChar(Result));
+      Inc(I, 8);
+    until I >= FHash.DigestKeySize;
+// convert Endianes
+    if FHash.InheritsFrom(TROHash_SHA) then
+      SwapIntegerBuffer(PAnsiChar(Result), PAnsiChar(Result), 2);
+// truncate the Result
+    SetLength(Result, 8);
+    Dec(ACount);
+  until ACount < 0;
+end;
+
+function TROOneTimePassword.Execute(const Password: AnsiString): AnsiString;
+begin
+  Result := Calc(LowerCase(FSeed) + Password, Count);
+  Result := StrToFormat(PAnsiChar(Result), 8, Format);
+  if FExtended then
+    with StringFormat(Format) do
+      if InheritsFrom(TROStringFormat_RFC1760) then Result := sOTPWord + Result else
+        if InheritsFrom(TROStringFormat_HEX) then Result := sOTPHex + Result;
+end;
+
+procedure TROOneTimePassword.Next(const OTP: AnsiString);
+begin
+  FLastOTP := OTP;
+  Dec(FCount);
+end;
+
+function TROOneTimePassword.Check(const OTP: AnsiString): Boolean;
+begin
+  Result := Calc(OTPFormat(OTP, fmtCOPY), 0) = OTPFormat(FLastOTP, fmtCOPY);
+end;
+
+function TROOneTimePassword.FirstPhrase(const Password: AnsiString): AnsiString;
+begin
+  Result := Calc(LowerCase(FSeed) + Password, 0);
+  Result := StrToFormat(PAnsiChar(Result), 8, Format);
+end;
+
+function TROOneTimePassword.NextPhrase(const OTP: AnsiString; ACount: Integer): AnsiString;
+begin
+  Result := Calc(OTPFormat(OTP, fmtCOPY), ACount);
+  Result := StrToFormat(PAnsiChar(Result), 8, Format);
+end;
+
+// RFC1760 Six Word String Format
+class function TROStringFormat_RFC1760.GetDict: PDictionary;
+begin
+  Result := Dictionary;
+  if (Result = nil) or
+     (Result.EntryCount <= 0) or
+     (Result.EntrySize <= 0) then
+    raise EROStringFormat.CreateFMT(sInvalidDictionary, [GetShortClassName(Self)]);
+end;
+
+class function TROStringFormat_RFC1760.Dictionary: PDictionary;
+{ Standard RFC1760 Dictionary Format
+
+  TDictionary = packed record
+                  EntryCount = 2048;
+                  EntrySize  = 4;
+                  EntryCRC   = $94CE8163; a standard CRC32 Checksum
+                  Entries    = array[0..2047] of array[0..3] of Char; see RFC1760.INC
+                end;
+}
+begin
+  if RFC1760Dict = nil then // Load Dictionary from resource
+  begin
+    RFC1760Dict := LockResource(LoadResource(HInstance, FindResource(HInstance,
+                                  PChar(GetShortClassName(Self)), RT_RCDATA)));
+    if RFC1760Dict <> nil then
+      with RFC1760Dict^ do
+        if EntryCRC <> not CRC32($FFFFFFFF, @Entries, EntryCount * EntrySize) then
+        begin // Resource is modified, any Hacker present ?! :-)
+          FreeResource(Integer(RFC1760Dict));
+          RFC1760Dict := nil;
+        end;
+  end;
+  Result := RFC1760Dict;
+end;
+
+function ExtractBits(Value: PAnsiChar; BitOffset, Bits, MaxLen: Integer): Integer;
+var // Extract from BitOffset count Bits
+  I: Integer;
+begin
+  Result := 0;
+  for I := BitOffset div 8 -1 to BitOffset div 8 + 2 do
+  begin
+    Result := Result shl 8;
+    if (I >= 0) and (I * 8 <= MaxLen) then
+      Result := Result or PByteArray(Value)[I];
+  end;
+  Result := (Result shr (24 - Bits - BitOffset mod 8)) and (1 shl Bits -1);
+  if BitOffset + Bits > MaxLen then
+    Result := Result and not (1 shl (BitOffset + Bits - MaxLen) - 1);
+end;
+
+class function TROStringFormat_RFC1760.ToStr(Value: PAnsiChar; Len: Integer): AnsiString;
+
+  function FindEntry(Dictionay: PDictionary; Entry: PAnsiChar): Integer; register;
+  asm
+        PUSH    EDI
+        PUSH    ESI
+        PUSH    EBX
+        PUSH    EBP
+
+        MOV     ESI,EDX
+        MOV     DL,[ESI]
+        MOV     EBX,[EAX].TDictionary.EntrySize
+        MOV     EBP,EBX
+        MOV     ECX,[EAX].TDictionary.EntryCount
+        LEA     EDI,[EAX].TDictionary.Entries
+        XOR     EAX,EAX
+        JMP     @@2
+
+@@1:    ADD     EDI,EBP
+@@2:    CMP     DL,[EDI]
+        JZ      @@4
+@@3:    INC     EAX
+        DEC     ECX
+        JNZ     @@1
+        MOV     EAX,-1
+        JMP     @@6
+@@4:    MOV     EBX,EBP
+@@5:    DEC     EBX
+        JZ      @@6
+        MOV     DH,[ESI + EBX]
+        CMP     DH,[EDI + EBX]
+        JNZ     @@3
+        JMP     @@5
+
+@@6:    POP     EBP
+        POP     EBX
+        POP     ESI
+        POP     EDI
+  end;
+
+var
+  Last,T,R: PAnsiChar;
+  Entry: ansiString;
+  Dict: PDictionary;
+  Index: Integer;
+  Bits: Integer;
+  Offs: Integer;
+  Parity: Integer;
+begin
+  Result := '';
+  Dict := Dictionary;
+  if Dict = nil then Exit;
+  Bits := MSBit(Dict.EntryCount);
+  Last := Value + Len;
+  SetLength(Entry, Dict.EntrySize);
+  SetLength(Result, Len * Dict.EntrySize);  // allocate enough Space
+  FillChar(PAnsiChar(Result)^, Len * Dict.EntrySize, 0);
+  R := PAnsiChar(Result);
+  Offs := 0;
+  repeat
+// Extract one Word
+    while Value^ in SepChars do Inc(Value);
+    if Value >= Last then
+      raise EROStringFormat.CreateFmt(sInvalidStringFormat, [GetShortClassName(Self)]);
+    T := Value;
+    while not (Value^ in SepChars) do Inc(Value);
+    if Value - T > Dict.EntrySize then
+      raise EROStringFormat.CreateFmt(sInvalidStringFormat, [GetShortClassName(Self)]);
+// Move and Uppercase Word to Entrybuffer
+    FillChar(PAnsiChar(Entry)^, Dict.EntrySize, 0);
+    Move(T^, PAnsiChar(Entry)^, Value - T);
+    CharUpperBuffA(PAnsiChar(Entry), Dict.EntrySize);
+// Lookup Entry in Dictionary
+    Index := FindEntry(Dict, PAnsiChar(Entry));
+    if Index < 0 then
+      raise EROStringFormat.CreateFmt(sInvalidStringFormat, [GetShortClassName(Self)]);
+// put the Result
+    asm
+         MOV   EAX,R           // R
+         MOV   EDX,Offs        // Offs
+         SHR   EDX,3           // Offs div 8
+         ADD   EAX,EDX         // @R[Offs div 8]
+         MOV   ECX,32          // 32
+         SUB   ECX,Bits        // 32 - Bits
+         MOV   EDX,Offs        // Offs
+         AND   EDX,07h         // Offs mod 8
+         SUB   ECX,EDX         // 32 - Bits - Offs mod 8
+         MOV   EDX,Index       // Index
+         SHL   EDX,CL          // Index shl (32 - Bits - Offs mod 8)
+         OR    [EAX + 3],DL
+         OR    [EAX + 2],DH
+         SHR   EDX,16
+         OR    [EAX + 1],DL
+         OR    [EAX + 0],DH
+    end;
+    Inc(Offs, Bits);
+  until Value >= Last;
+  Entry := '';
+
+// calculate Parity
+  Index := (Offs div 8) and not 1;
+  Bits  := Offs - Index * 8;
+  if Bits = 0 then Bits := MSBit(Dict.EntryCount);
+  Dec(Offs, Bits);
+  Len   := ExtractBits(R, Offs, Bits, Offs + Bits);
+  Index := 0;
+  Parity := 0;
+  while Index < Offs do
+  begin
+    Inc(Parity, ExtractBits(R, Index, Bits, Offs));
+    Inc(Index, Bits);
+  end;
+  SetLength(Result, Offs div 8);
+  Index := Length(Result);
+  if (Result[Index] = #0) and (Index <> 8) then
+    SetLength(Result, Index-1);
+  Parity := Parity and (1 shl Bits -1);
+  if Len <> Parity then
+    raise EROStringFormat.CreateFmt(sInvalidStringFormat, [GetShortClassName(Self)]);
+end;
+
+class function TROStringFormat_RFC1760.StrTo(Value: PAnsiChar; Len: Integer): AnsiString;
+var
+  Dict: PDictionary;
+  Bits: Integer;
+  BitLen: Integer;
+  Parity: Integer;
+  Offset: Integer;
+  Entry: Integer;
+  Text: AnsiString;
+  Temp: AnsiString;
+begin
+  Result := '';
+  Dict   := GetDict;
+  SetLength(Text, Dict.EntrySize);
+  SetLength(Temp, Len +2);
+  FillChar(PAnsiChar(Temp)^, Len +2, 0);
+  Move(Value^, PAnsiChar(Temp)^, Len);
+  Value := PAnsiChar(Temp);
+// calculate the Parity (Checksum )
+  BitLen := ((Len +1) and not 1) * 8;   // Input Length in Bits
+  Offset := 0;
+  Parity := 0;
+  Bits   := MSBit(Dict.EntryCount);     // Standard = 2048 -> 11 Bits
+  Bits   := Bits - BitLen mod Bits;     // Standard = 8 Byte Input -> 64 Bits -> 2 Bits Parity -> effective 6 * 11 Bits Output
+  while Offset < BitLen do
+  begin
+    Inc(Parity, ExtractBits(Value, Offset, Bits, BitLen));
+    Inc(Offset, Bits);
+  end;
+// calculate the Result
+  Offset := 0;
+  Parity := Parity and (1 shl Bits -1);  // Standard = 2 Bits used
+  Bits   := MSBit(Dict.EntryCount);      // Standard = 11 Bits
+  while Offset <= BitLen do
+  begin
+    Entry := ExtractBits(Value, Offset, Bits, BitLen);
+    Inc(Offset, Bits);
+    if Offset > BitLen then Entry := Entry or Parity;
+    Move(Dict.Entries[Entry * Dict.EntrySize], PAnsiChar(Text)^, Dict.EntrySize);
+    Result := Result + PAnsiChar(Text) + ' ';
+  end;
+  SetLength(Result, Length(Result) -1);
+end;
+
+class function TROStringFormat_RFC1760.Format: Integer;
+begin
+  Result := fmtRFC1760;
+end;
+
+class function TROStringFormat_RFC1760.IsValid(Value: PAnsiChar; Len: Integer; ToStr: Boolean): Boolean;
+begin
+  Result := False;
+  try
+    if Dictionary = nil then Exit;
+    if ToStr then Self.ToStr(Value, Len);
+    Result := True;
+  except
+  end;
+end;
+{
+procedure SaveDictionary(Format: TStringFormat_RFC1760Class);
+//save a Dictionary as Resource File
+var
+  Dict: PDictionary;
+  HeaderSize: Integer;
+  Origin, ImageSize: Longint;
+  Header: array[0..79] of Char;
+begin
+  Dict := Format.GetDict;
+  with TFileStream.Create(GetShortClassName(Format) + '.RES', fmCreate) do
+  try
+    Byte((@Header[0])^) := $FF;
+    Word((@Header[1])^) := 10;
+    HeaderSize := StrLen(StrUpper(StrPLCopy(@Header[3], GetShortClassName(Format), 63))) + 10;
+    Word((@Header[HeaderSize - 6])^) := $1030;
+    Longint((@Header[HeaderSize - 4])^) := 0;
+    WriteBuffer(Header, HeaderSize);
+    Origin := Position;
+    Dict.EntryCRC := not CRC32(-1, @Dict.Entries, Dict.EntryCount * Dict.EntrySize);
+    WriteBuffer(Dict^, SizeOf(TDictionary) + Dict.EntryCount * Dict.EntrySize);
+    ImageSize := Position - Origin;
+    Position := Origin - 4;
+    WriteBuffer(ImageSize, SizeOf(Longint));
+  finally
+    Free;
+  end;
+end;
+}
+initialization
+//  SaveDictionary(TROStringFormat_RFC1760);
+  RegisterStringFormats([TROStringFormat_RFC1760]);
+finalization
+  if RFC1760Dict <> nil then FreeResource(Integer(RFC1760Dict));
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORng.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORng.pas
new file mode 100644
index 0000000..e653b30
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uRORng.pas	
@@ -0,0 +1,703 @@
+{Copyright:      Hagen Reddmann  mailto:HaReddmann@AOL.COM
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        3.0
+                 Delphi 2-4, designed and testet under D3 and D4
+ Description:    Linear Feedback Shift Register (LFSR)
+                 Random Number Generator with variable Period
+                 from 2^32 -1 to 2^2032 -1, Standard is 2^128 -1
+                 with .Seed('', -1) absolutly random
+                 The Period have theoretical no effect on the Speed.
+
+ Speed:          ca. 40 Mb/sec of a PII MMX 266 MHz 64Mb RAM
+
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
+ * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+ * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+ * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+ * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+
+  Speed: all times for PII MMX 266Mhz 64Mb
+         theoretical have the Period (Size of LFSR) no effect on the Speed,
+         but a greater Period will run faster. (Cache, little Branches on Pentium, etc.)
+         except the Period 2^128-1, this use a specially optimized method.
+
+              >   14.5 Mb/sec
+              >   40.5 Mb/sec with 128bit LFSR
+Version 3.0
+
+  TRORandom is now a descend from TProtect, see Unit uRODECUtil.pas
+
+ }
+unit uRORng;
+
+interface
+
+{$I uROVer.inc}
+
+uses SysUtils, Classes, uRODECUtil;
+
+type
+  ERORandom = class(Exception);
+
+  TRORandom = class(TROProtection)    // Basicly RO_Rng, equal to Borland's Random()
+  private
+    FRegister: Integer;
+    FPassword: String;
+  protected
+    FCount: Integer;          // not as private Fields, easier access for descends
+    FSize: Integer;
+    FBasicSeed: Integer;
+    procedure SetSize(Value: Integer); virtual;
+    function GetState: AnsiString; virtual;
+    procedure SetState(Value: AnsiString); virtual;
+// override TProtect Methods
+    procedure CodeInit(Action: TPAction); override;
+    procedure CodeDone(Action: TPAction); override;
+    procedure CodeBuf(var Buffer; const BufferSize: Integer; Action: TPAction); override;
+  public
+    constructor Create(const APassword: String; ASize: Integer; ARandomize: Boolean; AProtection: TROProtection); virtual;
+    destructor Destroy; override;
+// set the Seed register
+//  Size =  0 -> Seed to initial Value
+//  Size <  0 -> Seed to randomness Value, equal to Randomize
+//  Size >  0 -> Seed is set to Buffer
+    procedure Seed(const ABuffer; ASize: Integer); virtual;
+// fill out ABuffer ASize Bytes randomly
+    procedure Buffer(var ABuffer; ASize: Integer); virtual;
+// gives Random Integer in ARange
+    function Int(ARange: Integer): Integer; virtual;
+// Stream loading/saving
+    procedure SaveToStream(Stream: TStream); virtual;
+    procedure LoadFromStream(Stream: TStream); virtual;
+// File loading/saving
+    procedure SaveToFile(const FileName: String);
+    procedure LoadFromFile(const FileName: String);
+// Count of Bytes that Int() or Buffer() has generated
+    property Count: Integer read FCount write FCount;
+// the Size in Bits
+    property Size: Integer read FSize write SetSize;
+// basicly Seed Value for use in .Seed(), Standard is DefaultSeed
+    property BasicSeed: Integer read FBasicSeed write FBasicSeed;
+// the internal State as MIMIE Base64 String
+    property State: AnsiString read GetState write SetState;
+  end;
+
+  TRORandom_LFSR = class(TRORandom)       // Linear Feedback Shift Register
+  private
+    FPtr: Integer;                    // Current Position in FRegister
+    FLast: Integer;                   // Highest Position in FRegister
+    FTable: array[0..255] of Word;    // Lookup Table for FRegister
+    FRegister: array[0..255] of Byte; // Linear Feedback Shift Register
+    FFunc: procedure(Self: Pointer; var Buffer; Size: Integer);
+  protected
+    procedure SetSize(Value: Integer); override;
+    function GetState: AnsiString; override;
+    procedure SetState(Value: AnsiString); override;
+  public
+    procedure Seed(const ABuffer; ASize: Integer); override;
+    procedure Buffer(var ABuffer; ASize: Integer); override;
+  end;
+
+{   Follow the used polynomial's for TRORandom_LFSR
+     size in bytes of register, XORCode, Polynomial, Period
+
+   4, $F5, x^32   + x^7 + x^5 + x^3 + x^2 + x + 1,   2^32   -1
+   5, $9C, x^40   + x^5 + x^4 + x^3 + 1,             2^40   -1
+   6, $ED, x^48   + x^7 + x^5 + x^4 + x^2 + x + 1,   2^48   -1
+   7, $A9, x^56   + x^7 + x^4 + x^2 + 1,             2^56   -1
+   8, $D8, x^64   + x^4 + x^3 + x + 1,               2^64   -1
+   9, $FA, x^72   + x^6 + x^4 + x^3 + x^2 + x + 1,   2^72   -1
+  10, $F5, x^80   + x^7 + x^5 + x^3 + x^2 + x + 1,   2^80   -1
+  12, $BB, x^96   + x^7 + x^6 + x^4 + x^3 + x^2 + 1, 2^96   -1
+  15, $E7, x^120  + x^7 + x^6 + x^5 + x^2 + x + 1,   2^120  -1
+  16, $E1, x^128  + x^7 + x^2 + x + 1,               2^128  -1
+  18, $A9, x^144  + x^7 + x^4 + x^2 + 1,             2^144  -1
+  19, $B2, x^152  + x^6 + x^3 + x^2 + 1,             2^152  -1
+  20, $B4, x^160  + x^5 + x^3 + x^2 + 1,             2^160  -1
+  22, $BD, x^176  + x^7 + x^5 + x^4 + x^3 + x^2 + 1, 2^176  -1
+  25, $B4, x^200  + x^5 + x^3 + x^2 + 1,             2^200  -1
+  27, $D1, x^216  + x^7 + x^3 + x + 1,               2^216  -1
+  38, $FC, x^304  + x^5 + x^4 + x^3 + x^2 + x + 1,   2^304  -1
+  40, $D8, x^320  + x^4 + x^3 + x + 1,               2^320  -1
+  42, $C9, x^336  + x^7 + x^4 + x + 1,               2^336  -1
+  44, $BD, x^352  + x^7 + x^5 + x^4 + x^3 + x^2 + 1, 2^352  -1
+  50, $B4, x^400  + x^5 + x^3 + x^2 + 1,             2^400  -1
+  51, $FA, x^408  + x^6 + x^4 + x^3 + x^2 + x + 1,   2^408  -1
+  55, $D8, x^440  + x^4 + x^3 + x + 1,               2^440  -1
+  60, $BB, x^480  + x^7 + x^6 + x^4 + x^3 + x^2 + 1, 2^480  -1
+  61, $D8, x^488  + x^4 + x^3 + x + 1,               2^488  -1
+  63, $FA, x^504  + x^6 + x^4 + x^3 + x^2 + x + 1,   2^504  -1
+  67, $95, x^536  + x^7 + x^5 + x^3 + 1,             2^536  -1
+  84, $F6, x^672  + x^6 + x^5 + x^3 + x^2 + x + 1,   2^672  -1
+  89, $9C, x^712  + x^5 + x^4 + x^3 + 1,             2^712  -1
+  91, $B8, x^728  + x^4 + x^3 + x^2 + 1,             2^728  -1
+ 103, $FC, x^824  + x^5 + x^4 + x^3 + x^2 + x + 1,   2^824  -1
+ 141, $D1, x^1128 + x^7 + x^3 + x + 1,               2^1128 -1
+ 154, $F3, x^1232 + x^7 + x^6 + x^3 + x^2 + x + 1,   2^1232 -1
+ 254, $A3, x^2032 + x^7 + x^6 + x^2 + 1,             2^2032 -1
+
+  follow various Periods
+--------------------------------------------------------------------------------
+  2^32-1   = 4294967295
+  2^64-1   = 18446744073709551615
+  2^128-1  = 340282366920938463463374607431768211455
+  2^2032-1 = it's one Number
+   49311837877366649323600580884811328064642490645928167773636391338386009428204
+   17921935608125537553934278674005267623599165972833122328326583112816221076703
+   35702985799671951234310153163915857728680359766210694390385082889078409114931
+   66867209378778336289339669574030006474132653643098550122997363890264786354861
+   31947843882498538312526670313197249581325688984118966381501107686008635362008
+   71492771279798342546336760614070411100118371556871830774626226863061725361438
+   46476937385117828689155818331492509954024778049592066494651864619855274961300
+   9880449926596639031121858756000207590413184793166384097191709192063287295
+--------------------------------------------------------------------------------
+}
+
+// Your actual Random Class, per default TRORandom_LFSR.Create(128, False)
+function RND: TRORandom;
+
+// internal used for the random initialization of the Seed Initial Value
+// change this to produce Application dependent Randomness
+const
+  DefaultSeed: Integer = 693258280;
+
+implementation
+
+uses uRODECConst;
+
+const
+  FRND: TRORandom = nil;
+
+// avaible Periods for the LFSR
+  LFSRPeriod: array[0..33, 0..1] of Word =
+   ((   32, $F5), (   40, $9C), (   48, $ED), (   56, $A9),
+    (   64, $D8), (   72, $FA), (   80, $F5), (   96, $BB),
+    (  120, $E7), (  128, $E1), (  144, $A9), (  152, $B2),
+    (  160, $B4), (  176, $BD), (  200, $B4), (  216, $D1),
+    (  304, $FC), (  320, $D8), (  336, $C9), (  352, $BD),
+    (  400, $B4), (  408, $FA), (  440, $D8), (  480, $BB),
+    (  488, $D8), (  504, $FA), (  536, $95), (  672, $F6),
+    (  712, $9C), (  728, $B8), (  824, $FC), ( 1128, $D1),
+    ( 1232, $F3), ( 2032, $A3));
+
+function RND: TRORandom;
+begin
+  if FRND = nil then
+  begin
+    FRND := TRORandom_LFSR.Create('', 0, False, nil);
+    FRND.AddRef;
+  end;
+  Result := FRND;
+end;
+
+procedure TRORandom.SetSize(Value: Integer);
+begin
+  FSize := 32; // allways 32
+end;
+
+function TRORandom.GetState: AnsiString;
+var
+  CRC: Word;
+  M: TMemoryStream;
+begin
+  M := TMemoryStream.Create;
+  try
+// write a Randomized Word to begin,
+// any Encryption produce allways other outputs
+    RndXORBuffer(RndTimeSeed, CRC, SizeOf(CRC));
+    M.Write(CRC, SizeOf(CRC));
+    M.Write(FSize, SizeOf(FSize));
+    M.Write(FBasicSeed, SizeOf(FBasicSeed));
+    M.Write(FCount, SizeOf(FCount));
+    M.Write(FRegister, SizeOf(FRegister));
+    CRC := not CRC16($FFFF, M.Memory, M.Size);
+    M.Write(CRC, SizeOf(CRC));
+    CRC := $0100; // Version 1 without Protection
+    if Protection <> nil then
+    begin
+      CRC := CRC or 1; // with Protection
+      M.Position := 0;
+      Protection.CodeStream(M, M, M.Size, paEncode);
+      M.Position := M.Size;
+    end;
+    M.Write(CRC, SizeOf(CRC));
+    Result := StrToFormat(M.Memory, M.Size, fmtMIME64);
+  finally
+    M.Free;
+  end;
+end;
+
+procedure TRORandom.SetState(Value: AnsiString);
+var
+  CRC: Word;
+  I: Integer;
+  M: TMemoryStream;
+begin
+  M := TMemoryStream.Create;
+  try
+    Value := FormatToStr(PAnsiChar(Value), Length(Value), fmtMIME64);
+    M.Write(PAnsiChar(Value)^, Length(Value));
+    M.Position := M.Size - SizeOf(CRC);
+    M.Read(CRC, SizeOf(CRC));
+    if CRC and $FF00 <> $0100 then // it's Version $0100 ?
+      raise ERORandom.Create(sInvalidRandomStream);
+    if CRC and 1 <> 0 then
+      if Protection <> nil then
+      begin
+        M.Position := 0;
+        Protection.CodeStream(M, M, M.Size - SizeOf(CRC), paDecode);
+      end else raise ERORandom.Create(sRandomDataProtected);
+    M.Position := M.Size - SizeOf(CRC) * 2;
+    M.Read(CRC, SizeOf(CRC));
+    if CRC <> not CRC16($FFFF, M.Memory, M.Size - SizeOf(CRC) * 2) then
+      raise ERORandom.Create(sInvalidRandomStream);
+    M.Position := SizeOf(CRC); // skip Dummy Random Word
+    M.Read(I, SizeOf(FSize));
+    SetSize(I);
+    M.Read(FCount, SizeOf(FCount));
+    M.Read(FBasicSeed, SizeOf(FBasicSeed));
+    M.Read(FRegister, SizeOf(FRegister));
+  finally
+    M.Free;
+  end;
+end;
+
+constructor TRORandom.Create(const APassword: String; ASize: Integer; ARandomize: Boolean; AProtection: TROProtection);
+begin
+  inherited Create(AProtection);
+  FBasicSeed := DefaultSeed;
+  FSize := -1;
+  FPassword := APassword;
+  SetSize(ASize);
+  if ASize > 0 then
+    if not ARandomize then Seed(PChar(FPassword)^, Length(FPassword))
+      else Seed('', -1);
+end;
+
+destructor TRORandom.Destroy;
+begin
+  Seed('', 0);
+  if Self = FRND then FRND := nil;
+  inherited Destroy;
+end;
+
+procedure TRORandom.Seed(const ABuffer; ASize: Integer);
+var
+  I: Integer;
+  R: PByteArray;
+begin
+  if (ASize > 0) and (@ABuffer <> nil) then
+  begin
+    FRegister := FBasicSeed;
+    FillChar(FRegister, SizeOf(FRegister), 0);
+    R := @FRegister;
+    for I := 0 to ASize -1 do
+      R[I and 3] := R[I and 3] + TByteArray(ABuffer)[I];
+  end else
+    if ASize < 0 then FRegister := RndTimeSeed + (FCount +1)
+      else FRegister := FBasicSeed;
+  if Protection <> nil then
+    Protection.CodeBuffer(FRegister, SizeOf(FRegister), paScramble);
+end;
+
+function TRORandom.Int(ARange: Integer): Integer;
+begin
+  Buffer(Result, SizeOf(Result));
+  if (ARange = 0) or (Result = 0) then Exit;
+  if (ARange >= 0) and (Result < 0) then Result := -Result else
+    if ARange < 0 then ARange := -ARange;
+  Result := Result mod (ARange +1);
+  Inc(FCount, SizeOf(Result));
+end;
+
+procedure TRORandom.Buffer(var ABuffer; ASize: Integer);
+begin
+  if ASize <= 0 then Exit;
+  FillChar(ABuffer, ASize, 0);
+  FRegister := RndXORBuffer(FRegister, ABuffer, ASize);
+  Inc(FCount, ASize);
+  if Protection <> nil then
+    Protection.CodeBuffer(ABuffer, ASize, paScramble);
+end;
+
+procedure TRORandom.SaveToStream(Stream: TStream);
+var
+  I: Integer;
+  S,C: AnsiString;
+begin
+  C := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(ClassName);
+  if C[1] = 'T' then Delete(C, 1, 1);
+  I := Pos(AnsiChar('_'), C);
+  if I > 0 then Delete(C, 1, I);
+  S := InsertCR(State, 64);
+  C := C + {$IFDEF UNICODE}UTF8Encode{$ENDIF}(IntToHex(Length(S), 4)) + #13#10 + S;
+  Stream.Write(PAnsiChar(C)^, Length(C));
+end;
+
+procedure TRORandom.LoadFromStream(Stream: TStream);
+var
+  C,S: AnsiString;
+  I: Integer;
+begin
+// write the Name from ClassName (i.E. TRORandom_LFSR -> "LFSR"),
+// the Size as a 4 Char HEX String and State.
+// i.E. LFSR0FCB <CR> State
+  C := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(ClassName);
+  if C[1] = 'T' then Delete(C, 1, 1);
+  I  := Pos(AnsiChar('_'), C);
+  if I > 0 then Delete(C, 1, I);
+  SetLength(S, Length(C));
+  Stream.Read(PAnsiChar(S)^, Length(C));
+  if S <> C then Abort;
+  SetLength(S, 6);
+  Stream.Read(PAnsiChar(S)^, 6);
+  SetLength(S, 4);
+  I := StrToInt('$' + {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(S));
+  SetLength(S, I);
+  Stream.Read(PAnsiChar(S)^, I);
+  State := DeleteCR(S);
+end;
+
+procedure TRORandom.SaveToFile(const FileName: String);
+var
+  S: TStream;
+begin
+  S := TFileStream.Create(FileName, fmCreate);
+  try
+    SaveToStream(S);
+  finally
+    S.Free;
+  end;
+end;
+
+procedure TRORandom.LoadFromFile(const FileName: String);
+var
+  S: TStream;
+begin
+  S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
+  try
+    LoadFromStream(S);
+  finally
+    S.Free;
+  end;
+end;
+
+procedure TRORandom.CodeInit(Action: TPAction);
+begin
+  if Action = paWipe then Seed('', -1)
+    else Seed(PChar(FPassword)^, Length(FPassword));
+  inherited CodeInit(Action);
+end;
+
+procedure TRORandom.CodeDone(Action: TPAction);
+begin
+  inherited CodeDone(Action);
+  if Action = paWipe then Seed('', -1)
+    else Seed(PChar(FPassword)^, Length(FPassword));
+end;
+
+procedure TRORandom.CodeBuf(var Buffer; const BufferSize: Integer; Action: TPAction);
+const
+  maxBufSize = 1024 * 4;
+var
+  Buf: Pointer;
+  BPtr: PByte;
+  BSize,CSize: Integer;
+begin
+  if Action <> paDecode then inherited CodeBuf(Buffer, BufferSize, Action);
+  if Action in Actions then
+  begin
+    BPtr := @Buffer;
+    if BPtr = nil then Exit;
+    BSize := maxBufSize;
+    if BSize > BufferSize then BSize := BufferSize;
+    Buf := AllocMem(BSize);
+    CSize := BufferSize;
+    try
+      if Action = paCalc then
+      begin
+        while CSize > 0 do
+        begin
+          BSize := CSize;
+          if BSize > maxBufSize then BSize := maxBufSize;
+          Self.Buffer(Buf^, BSize);
+          XORBuffers(Buf, BPtr, BSize, Buf);
+          Inc(BPtr, BSize);
+          Dec(CSize, BSize);
+        end
+      end else
+      begin
+        while CSize > 0 do
+        begin
+          BSize := CSize;
+          if BSize > maxBufSize then BSize := maxBufSize;
+          Self.Buffer(Buf^, BSize);
+          XORBuffers(Buf, BPtr, BSize, BPtr);
+          Inc(BPtr, BSize);
+          Dec(CSize, BSize);
+        end;
+      end;
+    finally
+      ReallocMem(Buf, 0);
+    end;
+  end;
+  if Action = paDecode then
+    inherited CodeBuf(Buffer, BufferSize, Action);
+end;
+
+// internal for TRORandom_LFSR
+procedure LFSRBuf(Self: Pointer; var Buffer; Size: Integer); assembler;
+asm
+      AND     EDX,EDX    // Buffer = nil ?
+      JZ      @@9
+      AND     ECX,ECX    // BufferSize <= 0 ?
+      JLE     @@9
+
+      PUSH    EDI
+      PUSH    ESI
+      PUSH    EBX
+      PUSH    EBP
+      PUSH    EAX
+
+      MOV     EDI,[EAX].TRORandom_LFSR.FPtr
+      MOV     EBP,[EAX].TRORandom_LFSR.FLast
+      LEA     ESI,[EAX].TRORandom_LFSR.FRegister
+      LEA     EBX,[EAX].TRORandom_LFSR.FTable
+      DEC     EDX
+
+@@1:  MOVZX   EAX,Byte Ptr [ESI + EDI]
+      MOV     [EDX + ECX],AL
+      MOV     AX,[EBX + EAX * 2]
+      MOV     [ESI + EDI],AL
+      DEC     EDI
+      JS      @@2
+      XOR     [ESI + EDI],AH
+      ADD     EDI,2
+      CMP     EDI,EBP
+      JLE     @@3
+      XOR     EDI,EDI
+      JMP     @@3
+@@2:  MOV     EDI,EBP
+      XOR     [ESI + EDI],AH
+      MOV     EDI,1
+@@3:  DEC     ECX
+      JNZ     @@1
+
+      POP     EAX
+      MOV     [EAX].TRORandom_LFSR.FPtr,EDI
+
+      POP     EBP
+      POP     EBX
+      POP     ESI
+      POP     EDI
+
+@@9:
+end;
+
+procedure LFSRBuf128(Self: Pointer; var Buffer; Size: Integer); assembler;
+asm
+      AND     EDX,EDX    // Buffer = nil ?
+      JZ      @@9
+      AND     ECX,ECX    // BufferSize <= 0 ?
+      JLE     @@9
+
+      PUSH    EDI
+      PUSH    ESI
+      PUSH    EBX
+      PUSH    EBP
+      PUSH    EAX
+
+      MOV     EDI,[EAX].TRORandom_LFSR.FPtr
+      LEA     EBP,[EAX].TRORandom_LFSR.FTable
+      LEA     ESI,[EAX].TRORandom_LFSR.FRegister
+      DEC     EDX
+      XOR     EAX,EAX
+
+@@1:  MOV     AL,[ESI + EDI]
+      MOV     BX,[EBP + EAX * 2]
+      MOV     [EDX + ECX],AL
+      MOV     [ESI + EDI],BL
+      DEC     EDI
+      AND     EDI,0Fh
+      XOR     [ESI + EDI],BH
+      ADD     EDI,2
+      AND     EDI,0Fh
+      DEC     ECX
+      JNZ     @@1
+
+      POP     EAX
+      MOV     [EAX].TRORandom_LFSR.FPtr,EDI
+
+      POP     EBP
+      POP     EBX
+      POP     ESI
+      POP     EDI
+
+@@9:
+end;
+
+procedure TRORandom_LFSR.SetSize(Value: Integer);
+
+  procedure CalcLFSRTable(XORCode: Byte);
+  var
+    I,J,Z: Integer;
+  begin
+    asm // Reverse the bitorder
+      XOR   AX,AX
+      MOV   AL,XORCode
+      MOV   CL,8
+@@1:  RCR   AL,1
+      RCL   AH,1
+      DEC   CL
+      JNZ   @@1
+      MOV   XORCode,AH
+    end;
+    FillChar(FTable, SizeOf(FTable), 0);
+    for I := 0 to 255 do
+    begin
+      Z := I;
+      for J := 0 to 7 do
+      begin
+        FTable[I] := FTable[I] shl 1;
+        if Z and $80 <> 0 then FTable[I] := FTable[I] xor XORCode;
+        Z := Z shl 1;
+      end;
+    end;
+  end;
+
+  procedure DoSet(Index: Integer);
+  begin
+    FSize := LFSRPeriod[Index, 0];
+    FLast := LFSRPeriod[Index, 0] div 8 -1;
+    if FSize = 128 then FFunc := LFSRBuf128 else FFunc := LFSRBuf;
+    CalcLFSRTable(LFSRPeriod[Index, 1]);
+    Seed('', 0);
+  end;
+
+var
+  I: Integer;
+begin
+  if Value <= 0 then Value := 128;
+  if Value <> FSize then
+  begin
+    for I := 33 downto 0 do
+      if Value >= LFSRPeriod[I, 0] then
+      begin
+        DoSet(I);
+        Exit;
+      end;
+    DoSet(9);  // The Standard fast 2^128-1 Period
+  end;
+end;
+
+function TRORandom_LFSR.GetState: AnsiString;
+var
+  CRC: Word;
+  M: TMemoryStream;
+begin
+  M := TMemoryStream.Create;
+  try
+// write randomized Dummy Word
+    RndXORBuffer(RndTimeSeed, CRC, SizeOf(CRC));
+    M.Write(CRC, SizeOf(CRC));
+    M.Write(FSize, SizeOf(FSize));
+    M.Write(FRegister, SizeOf(FRegister));
+    M.Write(FBasicSeed, SizeOf(FBasicSeed));
+    M.Write(FCount, SizeOf(FCount));
+    M.Write(FPtr, SizeOf(FPtr));
+    M.Write(FLast, SizeOf(FLast));
+    CRC := not CRC16($FFFF, M.Memory, M.Size);
+    M.Write(CRC, SizeOf(CRC));
+    CRC := $0100; // Version 1 without Protection
+    if Protection <> nil then
+    begin
+      CRC := CRC or 1; // with Protection
+      M.Position := 0;
+      Protection.CodeStream(M, M, M.Size, paEncode);
+      M.Position := M.Size;
+    end;
+    M.Write(CRC, SizeOf(CRC));
+    Result := StrToFormat(M.Memory, M.Size, fmtMIME64);
+  finally
+    M.Free;
+  end;
+end;
+
+procedure TRORandom_LFSR.SetState(Value: AnsiString);
+var
+  P: Integer;
+  CRC: Word;
+  M: TMemoryStream;
+begin
+  M := TMemoryStream.Create;
+  try
+    Value := FormatToStr(PAnsiChar(Value), Length(Value), fmtMIME64);
+    M.Write(PAnsiChar(Value)^, Length(Value));
+    M.Position := M.Size - SizeOf(CRC);
+    M.Read(CRC, SizeOf(CRC));
+    if CRC and $FF00 <> $0100 then // it's Version $0100 ?
+      raise ERORandom.Create(sInvalidRandomStream);
+    if CRC and 1 <> 0 then
+      if Protection <> nil then
+      begin
+        M.Position := 0;
+        Protection.CodeStream(M, M, M.Size - SizeOf(CRC), paDecode);
+      end else raise ERORandom.Create(sRandomDataProtected);
+    M.Position := M.Size - SizeOf(CRC) * 2;
+    M.Read(CRC, SizeOf(CRC));
+    if CRC <> not CRC16($FFFF, M.Memory, M.Size - SizeOf(CRC) * 2) then
+      raise ERORandom.Create(sInvalidRandomStream);
+    M.Position := SizeOf(CRC); // skip Dummy word
+    M.Read(P, SizeOf(FSize));
+    SetSize(P);
+    M.Read(FRegister, SizeOf(FRegister));
+    M.Read(FBasicSeed, SizeOf(FBasicSeed));
+    M.Read(FCount, SizeOf(FCount));
+    M.Read(FPtr, SizeOf(FPtr));
+    M.Read(FLast, SizeOf(FLast));
+  finally
+    M.Free;
+  end;
+end;
+
+procedure TRORandom_LFSR.Seed(const ABuffer; ASize: Integer);
+var
+  I,S: Integer;
+begin
+  FPtr := 0;
+  if (ASize > 0) and (@ABuffer <> nil) then
+  begin
+    FillChar(FRegister, SizeOf(FRegister), 0);
+    S := FSize div 8;
+    for I := 0 to ASize -1 do
+      FRegister[I mod S] := FRegister[I mod S] + TByteArray(ABuffer)[I];
+  end else
+    if ASize < 0 then RndXORBuffer(RndTimeSeed + (FCount +1), FRegister, SizeOf(FRegister))
+      else FillChar(FRegister, SizeOf(FRegister), 0);
+  RndXORBuffer(FBasicSeed, FRegister, SizeOf(FRegister));
+  if Protection <> nil then
+    Protection.CodeBuffer(FRegister, SizeOf(FRegister), paScramble);
+end;
+
+procedure TRORandom_LFSR.Buffer(var ABuffer; ASize: Integer);
+begin
+  if ASize <= 0 then Exit;
+  FFunc(Self, ABuffer, ASize);
+  if Protection <> nil then
+    Protection.CodeBuffer(ABuffer, ASize, paScramble);
+  Inc(FCount, ASize);
+end;
+
+initialization
+finalization
+  FRND.Release;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROSquare.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROSquare.inc
new file mode 100644
index 0000000..1d4d4af
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROSquare.inc	
@@ -0,0 +1,330 @@
+const
+  Square_SE: array[0..255] of Byte = (
+    177, 206, 195, 149,  90, 173, 231,   2,  77,  68, 251, 145,  12, 135, 161,  80,
+    203, 103,  84, 221,  70, 143, 225,  78, 240, 253, 252, 235, 249, 196,  26, 110,
+     94, 245, 204, 141,  28,  86,  67, 254,   7,  97, 248, 117,  89, 255,   3,  34,
+    138, 209,  19, 238, 136,   0,  14,  52,  21, 128, 148, 227, 237, 181,  83,  35,
+     75,  71,  23, 167, 144,  53, 171, 216, 184, 223,  79,  87, 154, 146, 219,  27,
+     60, 200, 153,   4, 142, 224, 215, 125, 133, 187,  64,  44,  58,  69, 241,  66,
+    101,  32,  65,  24, 114,  37, 147, 112,  54,   5, 242,  11, 163, 121, 236,   8,
+     39,  49,  50, 182, 124, 176,  10, 115,  91, 123, 183, 129, 210,  13, 106,  38,
+    158,  88, 156, 131, 116, 179, 172,  48, 122, 105, 119,  15, 174,  33, 222, 208,
+     46, 151,  16, 164, 152, 168, 212, 104,  45,  98,  41, 109,  22,  73, 118, 199,
+    232, 193, 150,  55, 229, 202, 244, 233,  99,  18, 194, 166,  20, 188, 211,  40,
+    175,  47, 230,  36,  82, 198, 160,   9, 189, 140, 207,  93,  17,  95,   1, 197,
+    159,  61, 162, 155, 201,  59, 190,  81,  25,  31,  63,  92, 178, 239,  74, 205,
+    191, 186, 111, 100, 217, 243,  62, 180, 170, 220, 213,   6, 192, 126, 246, 102,
+    108, 132, 113,  56, 185,  29, 127, 157,  72, 139,  42, 218, 165,  51, 130,  57,
+    214, 120, 134, 250, 228,  43, 169,  30, 137,  96, 107, 234,  85,  76, 247, 226);
+
+  Square_SD: array[0..255] of Byte = (
+     53, 190,   7,  46,  83, 105, 219,  40, 111, 183, 118, 107,  12, 125,  54, 139,
+    146, 188, 169,  50, 172,  56, 156,  66,  99, 200,  30,  79,  36, 229, 247, 201,
+     97, 141,  47,  63, 179, 101, 127, 112, 175, 154, 234, 245,  91, 152, 144, 177,
+    135, 113, 114, 237,  55,  69, 104, 163, 227, 239,  92, 197,  80, 193, 214, 202,
+     90,  98,  95,  38,   9,  93,  20,  65, 232, 157, 206,  64, 253,   8,  23,  74,
+     15, 199, 180,  62,  18, 252,  37,  75, 129,  44,   4, 120, 203, 187,  32, 189,
+    249,  41, 153, 168, 211,  96, 223,  17, 151, 137, 126, 250, 224, 155,  31, 210,
+    103, 226, 100, 119, 132,  43, 158, 138, 241, 109, 136, 121, 116,  87, 221, 230,
+     57, 123, 238, 131, 225,  88, 242,  13,  52, 248,  48, 233, 185,  35,  84,  21,
+     68,  11,  77, 102,  58,   3, 162, 145, 148,  82,  76, 195, 130, 231, 128, 192,
+    182,  14, 194, 108, 147, 236, 171,  67, 149, 246, 216,  70, 134,   5, 140, 176,
+    117,   0, 204, 133, 215,  61, 115, 122,  72, 228, 209,  89, 173, 184, 198, 208,
+    220, 161, 170,   2,  29, 191, 181, 159,  81, 196, 165,  16,  34, 207,   1, 186,
+    143,  49, 124, 174, 150, 218, 240,  86,  71, 212, 235,  78, 217,  19, 142,  73,
+     85,  22, 255,  59, 244, 164, 178,   6, 160, 167, 251,  27, 110,  60,  51, 205,
+     24,  94, 106, 213, 166,  33, 222, 254,  42,  28, 243,  10,  26,  25,  39,  45);
+
+  Square_PHI: array[0..255] of LongWord = (
+    $00000000,$03010102,$06020204,$05030306,$0C040408,$0F05050A,$0A06060C,$0907070E,
+    $18080810,$1B090912,$1E0A0A14,$1D0B0B16,$140C0C18,$170D0D1A,$120E0E1C,$110F0F1E,
+    $30101020,$33111122,$36121224,$35131326,$3C141428,$3F15152A,$3A16162C,$3917172E,
+    $28181830,$2B191932,$2E1A1A34,$2D1B1B36,$241C1C38,$271D1D3A,$221E1E3C,$211F1F3E,
+    $60202040,$63212142,$66222244,$65232346,$6C242448,$6F25254A,$6A26264C,$6927274E,
+    $78282850,$7B292952,$7E2A2A54,$7D2B2B56,$742C2C58,$772D2D5A,$722E2E5C,$712F2F5E,
+    $50303060,$53313162,$56323264,$55333366,$5C343468,$5F35356A,$5A36366C,$5937376E,
+    $48383870,$4B393972,$4E3A3A74,$4D3B3B76,$443C3C78,$473D3D7A,$423E3E7C,$413F3F7E,
+    $C0404080,$C3414182,$C6424284,$C5434386,$CC444488,$CF45458A,$CA46468C,$C947478E,
+    $D8484890,$DB494992,$DE4A4A94,$DD4B4B96,$D44C4C98,$D74D4D9A,$D24E4E9C,$D14F4F9E,
+    $F05050A0,$F35151A2,$F65252A4,$F55353A6,$FC5454A8,$FF5555AA,$FA5656AC,$F95757AE,
+    $E85858B0,$EB5959B2,$EE5A5AB4,$ED5B5BB6,$E45C5CB8,$E75D5DBA,$E25E5EBC,$E15F5FBE,
+    $A06060C0,$A36161C2,$A66262C4,$A56363C6,$AC6464C8,$AF6565CA,$AA6666CC,$A96767CE,
+    $B86868D0,$BB6969D2,$BE6A6AD4,$BD6B6BD6,$B46C6CD8,$B76D6DDA,$B26E6EDC,$B16F6FDE,
+    $907070E0,$937171E2,$967272E4,$957373E6,$9C7474E8,$9F7575EA,$9A7676EC,$997777EE,
+    $887878F0,$8B7979F2,$8E7A7AF4,$8D7B7BF6,$847C7CF8,$877D7DFA,$827E7EFC,$817F7FFE,
+    $758080F5,$768181F7,$738282F1,$708383F3,$798484FD,$7A8585FF,$7F8686F9,$7C8787FB,
+    $6D8888E5,$6E8989E7,$6B8A8AE1,$688B8BE3,$618C8CED,$628D8DEF,$678E8EE9,$648F8FEB,
+    $459090D5,$469191D7,$439292D1,$409393D3,$499494DD,$4A9595DF,$4F9696D9,$4C9797DB,
+    $5D9898C5,$5E9999C7,$5B9A9AC1,$589B9BC3,$519C9CCD,$529D9DCF,$579E9EC9,$549F9FCB,
+    $15A0A0B5,$16A1A1B7,$13A2A2B1,$10A3A3B3,$19A4A4BD,$1AA5A5BF,$1FA6A6B9,$1CA7A7BB,
+    $0DA8A8A5,$0EA9A9A7,$0BAAAAA1,$08ABABA3,$01ACACAD,$02ADADAF,$07AEAEA9,$04AFAFAB,
+    $25B0B095,$26B1B197,$23B2B291,$20B3B393,$29B4B49D,$2AB5B59F,$2FB6B699,$2CB7B79B,
+    $3DB8B885,$3EB9B987,$3BBABA81,$38BBBB83,$31BCBC8D,$32BDBD8F,$37BEBE89,$34BFBF8B,
+    $B5C0C075,$B6C1C177,$B3C2C271,$B0C3C373,$B9C4C47D,$BAC5C57F,$BFC6C679,$BCC7C77B,
+    $ADC8C865,$AEC9C967,$ABCACA61,$A8CBCB63,$A1CCCC6D,$A2CDCD6F,$A7CECE69,$A4CFCF6B,
+    $85D0D055,$86D1D157,$83D2D251,$80D3D353,$89D4D45D,$8AD5D55F,$8FD6D659,$8CD7D75B,
+    $9DD8D845,$9ED9D947,$9BDADA41,$98DBDB43,$91DCDC4D,$92DDDD4F,$97DEDE49,$94DFDF4B,
+    $D5E0E035,$D6E1E137,$D3E2E231,$D0E3E333,$D9E4E43D,$DAE5E53F,$DFE6E639,$DCE7E73B,
+    $CDE8E825,$CEE9E927,$CBEAEA21,$C8EBEB23,$C1ECEC2D,$C2EDED2F,$C7EEEE29,$C4EFEF2B,
+    $E5F0F015,$E6F1F117,$E3F2F211,$E0F3F313,$E9F4F41D,$EAF5F51F,$EFF6F619,$ECF7F71B,
+    $FDF8F805,$FEF9F907,$FBFAFA01,$F8FBFB03,$F1FCFC0D,$F2FDFD0F,$F7FEFE09,$F4FFFF0B);
+
+  Square_TE: array[0..3, 0..255] of LongWord = (
+   ($26B1B197,$A7CECE69,$B0C3C373,$4A9595DF,$EE5A5AB4,$02ADADAF,$DCE7E73B,$06020204,
+    $D74D4D9A,$CC444488,$F8FBFB03,$469191D7,$140C0C18,$7C8787FB,$16A1A1B7,$F05050A0,
+    $A8CBCB63,$A96767CE,$FC5454A8,$92DDDD4F,$CA46468C,$648F8FEB,$D6E1E137,$D24E4E9C,
+    $E5F0F015,$F2FDFD0F,$F1FCFC0D,$C8EBEB23,$FEF9F907,$B9C4C47D,$2E1A1A34,$B26E6EDC,
+    $E25E5EBC,$EAF5F51F,$A1CCCC6D,$628D8DEF,$241C1C38,$FA5656AC,$C5434386,$F7FEFE09,
+    $0907070E,$A36161C2,$FDF8F805,$9F7575EA,$EB5959B2,$F4FFFF0B,$05030306,$66222244,
+    $6B8A8AE1,$86D1D157,$35131326,$C7EEEE29,$6D8888E5,$00000000,$120E0E1C,$5C343468,
+    $3F15152A,$758080F5,$499494DD,$D0E3E333,$C2EDED2F,$2AB5B59F,$F55353A6,$65232346,
+    $DD4B4B96,$C947478E,$3917172E,$1CA7A7BB,$459090D5,$5F35356A,$08ABABA3,$9DD8D845,
+    $3DB8B885,$94DFDF4B,$D14F4F9E,$F95757AE,$5B9A9AC1,$439292D1,$98DBDB43,$2D1B1B36,
+    $443C3C78,$ADC8C865,$5E9999C7,$0C040408,$678E8EE9,$D5E0E035,$8CD7D75B,$877D7DFA,
+    $7A8585FF,$38BBBB83,$C0404080,$742C2C58,$4E3A3A74,$CF45458A,$E6F1F117,$C6424284,
+    $AF6565CA,$60202040,$C3414182,$28181830,$967272E4,$6F25254A,$409393D3,$907070E0,
+    $5A36366C,$0F05050A,$E3F2F211,$1D0B0B16,$10A3A3B3,$8B7979F2,$C1ECEC2D,$18080810,
+    $6927274E,$53313162,$56323264,$2FB6B699,$847C7CF8,$25B0B095,$1E0A0A14,$957373E6,
+    $ED5B5BB6,$8D7B7BF6,$2CB7B79B,$768181F7,$83D2D251,$170D0D1A,$BE6A6AD4,$6A26264C,
+    $579E9EC9,$E85858B0,$519C9CCD,$708383F3,$9C7474E8,$20B3B393,$01ACACAD,$50303060,
+    $8E7A7AF4,$BB6969D2,$997777EE,$110F0F1E,$07AEAEA9,$63212142,$97DEDE49,$85D0D055,
+    $722E2E5C,$4C9797DB,$30101020,$19A4A4BD,$5D9898C5,$0DA8A8A5,$89D4D45D,$B86868D0,
+    $772D2D5A,$A66262C4,$7B292952,$B76D6DDA,$3A16162C,$DB494992,$9A7676EC,$BCC7C77B,
+    $CDE8E825,$B6C1C177,$4F9696D9,$5937376E,$DAE5E53F,$ABCACA61,$E9F4F41D,$CEE9E927,
+    $A56363C6,$36121224,$B3C2C271,$1FA6A6B9,$3C141428,$31BCBC8D,$80D3D353,$78282850,
+    $04AFAFAB,$712F2F5E,$DFE6E639,$6C242448,$F65252A4,$BFC6C679,$15A0A0B5,$1B090912,
+    $32BDBD8F,$618C8CED,$A4CFCF6B,$E75D5DBA,$33111122,$E15F5FBE,$03010102,$BAC5C57F,
+    $549F9FCB,$473D3D7A,$13A2A2B1,$589B9BC3,$AEC9C967,$4D3B3B76,$37BEBE89,$F35151A2,
+    $2B191932,$211F1F3E,$413F3F7E,$E45C5CB8,$23B2B291,$C4EFEF2B,$DE4A4A94,$A2CDCD6F,
+    $34BFBF8B,$3BBABA81,$B16F6FDE,$AC6464C8,$9ED9D947,$E0F3F313,$423E3E7C,$29B4B49D,
+    $0BAAAAA1,$91DCDC4D,$8AD5D55F,$0A06060C,$B5C0C075,$827E7EFC,$EFF6F619,$AA6666CC,
+    $B46C6CD8,$798484FD,$937171E2,$48383870,$3EB9B987,$271D1D3A,$817F7FFE,$529D9DCF,
+    $D8484890,$688B8BE3,$7E2A2A54,$9BDADA41,$1AA5A5BF,$55333366,$738282F1,$4B393972,
+    $8FD6D659,$887878F0,$7F8686F9,$FBFAFA01,$D9E4E43D,$7D2B2B56,$0EA9A9A7,$221E1E3C,
+    $6E8989E7,$A06060C0,$BD6B6BD6,$CBEAEA21,$FF5555AA,$D44C4C98,$ECF7F71B,$D3E2E231),
+   ($B1B19726,$CECE69A7,$C3C373B0,$9595DF4A,$5A5AB4EE,$ADADAF02,$E7E73BDC,$02020406,
+    $4D4D9AD7,$444488CC,$FBFB03F8,$9191D746,$0C0C1814,$8787FB7C,$A1A1B716,$5050A0F0,
+    $CBCB63A8,$6767CEA9,$5454A8FC,$DDDD4F92,$46468CCA,$8F8FEB64,$E1E137D6,$4E4E9CD2,
+    $F0F015E5,$FDFD0FF2,$FCFC0DF1,$EBEB23C8,$F9F907FE,$C4C47DB9,$1A1A342E,$6E6EDCB2,
+    $5E5EBCE2,$F5F51FEA,$CCCC6DA1,$8D8DEF62,$1C1C3824,$5656ACFA,$434386C5,$FEFE09F7,
+    $07070E09,$6161C2A3,$F8F805FD,$7575EA9F,$5959B2EB,$FFFF0BF4,$03030605,$22224466,
+    $8A8AE16B,$D1D15786,$13132635,$EEEE29C7,$8888E56D,$00000000,$0E0E1C12,$3434685C,
+    $15152A3F,$8080F575,$9494DD49,$E3E333D0,$EDED2FC2,$B5B59F2A,$5353A6F5,$23234665,
+    $4B4B96DD,$47478EC9,$17172E39,$A7A7BB1C,$9090D545,$35356A5F,$ABABA308,$D8D8459D,
+    $B8B8853D,$DFDF4B94,$4F4F9ED1,$5757AEF9,$9A9AC15B,$9292D143,$DBDB4398,$1B1B362D,
+    $3C3C7844,$C8C865AD,$9999C75E,$0404080C,$8E8EE967,$E0E035D5,$D7D75B8C,$7D7DFA87,
+    $8585FF7A,$BBBB8338,$404080C0,$2C2C5874,$3A3A744E,$45458ACF,$F1F117E6,$424284C6,
+    $6565CAAF,$20204060,$414182C3,$18183028,$7272E496,$25254A6F,$9393D340,$7070E090,
+    $36366C5A,$05050A0F,$F2F211E3,$0B0B161D,$A3A3B310,$7979F28B,$ECEC2DC1,$08081018,
+    $27274E69,$31316253,$32326456,$B6B6992F,$7C7CF884,$B0B09525,$0A0A141E,$7373E695,
+    $5B5BB6ED,$7B7BF68D,$B7B79B2C,$8181F776,$D2D25183,$0D0D1A17,$6A6AD4BE,$26264C6A,
+    $9E9EC957,$5858B0E8,$9C9CCD51,$8383F370,$7474E89C,$B3B39320,$ACACAD01,$30306050,
+    $7A7AF48E,$6969D2BB,$7777EE99,$0F0F1E11,$AEAEA907,$21214263,$DEDE4997,$D0D05585,
+    $2E2E5C72,$9797DB4C,$10102030,$A4A4BD19,$9898C55D,$A8A8A50D,$D4D45D89,$6868D0B8,
+    $2D2D5A77,$6262C4A6,$2929527B,$6D6DDAB7,$16162C3A,$494992DB,$7676EC9A,$C7C77BBC,
+    $E8E825CD,$C1C177B6,$9696D94F,$37376E59,$E5E53FDA,$CACA61AB,$F4F41DE9,$E9E927CE,
+    $6363C6A5,$12122436,$C2C271B3,$A6A6B91F,$1414283C,$BCBC8D31,$D3D35380,$28285078,
+    $AFAFAB04,$2F2F5E71,$E6E639DF,$2424486C,$5252A4F6,$C6C679BF,$A0A0B515,$0909121B,
+    $BDBD8F32,$8C8CED61,$CFCF6BA4,$5D5DBAE7,$11112233,$5F5FBEE1,$01010203,$C5C57FBA,
+    $9F9FCB54,$3D3D7A47,$A2A2B113,$9B9BC358,$C9C967AE,$3B3B764D,$BEBE8937,$5151A2F3,
+    $1919322B,$1F1F3E21,$3F3F7E41,$5C5CB8E4,$B2B29123,$EFEF2BC4,$4A4A94DE,$CDCD6FA2,
+    $BFBF8B34,$BABA813B,$6F6FDEB1,$6464C8AC,$D9D9479E,$F3F313E0,$3E3E7C42,$B4B49D29,
+    $AAAAA10B,$DCDC4D91,$D5D55F8A,$06060C0A,$C0C075B5,$7E7EFC82,$F6F619EF,$6666CCAA,
+    $6C6CD8B4,$8484FD79,$7171E293,$38387048,$B9B9873E,$1D1D3A27,$7F7FFE81,$9D9DCF52,
+    $484890D8,$8B8BE368,$2A2A547E,$DADA419B,$A5A5BF1A,$33336655,$8282F173,$3939724B,
+    $D6D6598F,$7878F088,$8686F97F,$FAFA01FB,$E4E43DD9,$2B2B567D,$A9A9A70E,$1E1E3C22,
+    $8989E76E,$6060C0A0,$6B6BD6BD,$EAEA21CB,$5555AAFF,$4C4C98D4,$F7F71BEC,$E2E231D3),
+   ($B19726B1,$CE69A7CE,$C373B0C3,$95DF4A95,$5AB4EE5A,$ADAF02AD,$E73BDCE7,$02040602,
+    $4D9AD74D,$4488CC44,$FB03F8FB,$91D74691,$0C18140C,$87FB7C87,$A1B716A1,$50A0F050,
+    $CB63A8CB,$67CEA967,$54A8FC54,$DD4F92DD,$468CCA46,$8FEB648F,$E137D6E1,$4E9CD24E,
+    $F015E5F0,$FD0FF2FD,$FC0DF1FC,$EB23C8EB,$F907FEF9,$C47DB9C4,$1A342E1A,$6EDCB26E,
+    $5EBCE25E,$F51FEAF5,$CC6DA1CC,$8DEF628D,$1C38241C,$56ACFA56,$4386C543,$FE09F7FE,
+    $070E0907,$61C2A361,$F805FDF8,$75EA9F75,$59B2EB59,$FF0BF4FF,$03060503,$22446622,
+    $8AE16B8A,$D15786D1,$13263513,$EE29C7EE,$88E56D88,$00000000,$0E1C120E,$34685C34,
+    $152A3F15,$80F57580,$94DD4994,$E333D0E3,$ED2FC2ED,$B59F2AB5,$53A6F553,$23466523,
+    $4B96DD4B,$478EC947,$172E3917,$A7BB1CA7,$90D54590,$356A5F35,$ABA308AB,$D8459DD8,
+    $B8853DB8,$DF4B94DF,$4F9ED14F,$57AEF957,$9AC15B9A,$92D14392,$DB4398DB,$1B362D1B,
+    $3C78443C,$C865ADC8,$99C75E99,$04080C04,$8EE9678E,$E035D5E0,$D75B8CD7,$7DFA877D,
+    $85FF7A85,$BB8338BB,$4080C040,$2C58742C,$3A744E3A,$458ACF45,$F117E6F1,$4284C642,
+    $65CAAF65,$20406020,$4182C341,$18302818,$72E49672,$254A6F25,$93D34093,$70E09070,
+    $366C5A36,$050A0F05,$F211E3F2,$0B161D0B,$A3B310A3,$79F28B79,$EC2DC1EC,$08101808,
+    $274E6927,$31625331,$32645632,$B6992FB6,$7CF8847C,$B09525B0,$0A141E0A,$73E69573,
+    $5BB6ED5B,$7BF68D7B,$B79B2CB7,$81F77681,$D25183D2,$0D1A170D,$6AD4BE6A,$264C6A26,
+    $9EC9579E,$58B0E858,$9CCD519C,$83F37083,$74E89C74,$B39320B3,$ACAD01AC,$30605030,
+    $7AF48E7A,$69D2BB69,$77EE9977,$0F1E110F,$AEA907AE,$21426321,$DE4997DE,$D05585D0,
+    $2E5C722E,$97DB4C97,$10203010,$A4BD19A4,$98C55D98,$A8A50DA8,$D45D89D4,$68D0B868,
+    $2D5A772D,$62C4A662,$29527B29,$6DDAB76D,$162C3A16,$4992DB49,$76EC9A76,$C77BBCC7,
+    $E825CDE8,$C177B6C1,$96D94F96,$376E5937,$E53FDAE5,$CA61ABCA,$F41DE9F4,$E927CEE9,
+    $63C6A563,$12243612,$C271B3C2,$A6B91FA6,$14283C14,$BC8D31BC,$D35380D3,$28507828,
+    $AFAB04AF,$2F5E712F,$E639DFE6,$24486C24,$52A4F652,$C679BFC6,$A0B515A0,$09121B09,
+    $BD8F32BD,$8CED618C,$CF6BA4CF,$5DBAE75D,$11223311,$5FBEE15F,$01020301,$C57FBAC5,
+    $9FCB549F,$3D7A473D,$A2B113A2,$9BC3589B,$C967AEC9,$3B764D3B,$BE8937BE,$51A2F351,
+    $19322B19,$1F3E211F,$3F7E413F,$5CB8E45C,$B29123B2,$EF2BC4EF,$4A94DE4A,$CD6FA2CD,
+    $BF8B34BF,$BA813BBA,$6FDEB16F,$64C8AC64,$D9479ED9,$F313E0F3,$3E7C423E,$B49D29B4,
+    $AAA10BAA,$DC4D91DC,$D55F8AD5,$060C0A06,$C075B5C0,$7EFC827E,$F619EFF6,$66CCAA66,
+    $6CD8B46C,$84FD7984,$71E29371,$38704838,$B9873EB9,$1D3A271D,$7FFE817F,$9DCF529D,
+    $4890D848,$8BE3688B,$2A547E2A,$DA419BDA,$A5BF1AA5,$33665533,$82F17382,$39724B39,
+    $D6598FD6,$78F08878,$86F97F86,$FA01FBFA,$E43DD9E4,$2B567D2B,$A9A70EA9,$1E3C221E,
+    $89E76E89,$60C0A060,$6BD6BD6B,$EA21CBEA,$55AAFF55,$4C98D44C,$F71BECF7,$E231D3E2),
+   ($9726B1B1,$69A7CECE,$73B0C3C3,$DF4A9595,$B4EE5A5A,$AF02ADAD,$3BDCE7E7,$04060202,
+    $9AD74D4D,$88CC4444,$03F8FBFB,$D7469191,$18140C0C,$FB7C8787,$B716A1A1,$A0F05050,
+    $63A8CBCB,$CEA96767,$A8FC5454,$4F92DDDD,$8CCA4646,$EB648F8F,$37D6E1E1,$9CD24E4E,
+    $15E5F0F0,$0FF2FDFD,$0DF1FCFC,$23C8EBEB,$07FEF9F9,$7DB9C4C4,$342E1A1A,$DCB26E6E,
+    $BCE25E5E,$1FEAF5F5,$6DA1CCCC,$EF628D8D,$38241C1C,$ACFA5656,$86C54343,$09F7FEFE,
+    $0E090707,$C2A36161,$05FDF8F8,$EA9F7575,$B2EB5959,$0BF4FFFF,$06050303,$44662222,
+    $E16B8A8A,$5786D1D1,$26351313,$29C7EEEE,$E56D8888,$00000000,$1C120E0E,$685C3434,
+    $2A3F1515,$F5758080,$DD499494,$33D0E3E3,$2FC2EDED,$9F2AB5B5,$A6F55353,$46652323,
+    $96DD4B4B,$8EC94747,$2E391717,$BB1CA7A7,$D5459090,$6A5F3535,$A308ABAB,$459DD8D8,
+    $853DB8B8,$4B94DFDF,$9ED14F4F,$AEF95757,$C15B9A9A,$D1439292,$4398DBDB,$362D1B1B,
+    $78443C3C,$65ADC8C8,$C75E9999,$080C0404,$E9678E8E,$35D5E0E0,$5B8CD7D7,$FA877D7D,
+    $FF7A8585,$8338BBBB,$80C04040,$58742C2C,$744E3A3A,$8ACF4545,$17E6F1F1,$84C64242,
+    $CAAF6565,$40602020,$82C34141,$30281818,$E4967272,$4A6F2525,$D3409393,$E0907070,
+    $6C5A3636,$0A0F0505,$11E3F2F2,$161D0B0B,$B310A3A3,$F28B7979,$2DC1ECEC,$10180808,
+    $4E692727,$62533131,$64563232,$992FB6B6,$F8847C7C,$9525B0B0,$141E0A0A,$E6957373,
+    $B6ED5B5B,$F68D7B7B,$9B2CB7B7,$F7768181,$5183D2D2,$1A170D0D,$D4BE6A6A,$4C6A2626,
+    $C9579E9E,$B0E85858,$CD519C9C,$F3708383,$E89C7474,$9320B3B3,$AD01ACAC,$60503030,
+    $F48E7A7A,$D2BB6969,$EE997777,$1E110F0F,$A907AEAE,$42632121,$4997DEDE,$5585D0D0,
+    $5C722E2E,$DB4C9797,$20301010,$BD19A4A4,$C55D9898,$A50DA8A8,$5D89D4D4,$D0B86868,
+    $5A772D2D,$C4A66262,$527B2929,$DAB76D6D,$2C3A1616,$92DB4949,$EC9A7676,$7BBCC7C7,
+    $25CDE8E8,$77B6C1C1,$D94F9696,$6E593737,$3FDAE5E5,$61ABCACA,$1DE9F4F4,$27CEE9E9,
+    $C6A56363,$24361212,$71B3C2C2,$B91FA6A6,$283C1414,$8D31BCBC,$5380D3D3,$50782828,
+    $AB04AFAF,$5E712F2F,$39DFE6E6,$486C2424,$A4F65252,$79BFC6C6,$B515A0A0,$121B0909,
+    $8F32BDBD,$ED618C8C,$6BA4CFCF,$BAE75D5D,$22331111,$BEE15F5F,$02030101,$7FBAC5C5,
+    $CB549F9F,$7A473D3D,$B113A2A2,$C3589B9B,$67AEC9C9,$764D3B3B,$8937BEBE,$A2F35151,
+    $322B1919,$3E211F1F,$7E413F3F,$B8E45C5C,$9123B2B2,$2BC4EFEF,$94DE4A4A,$6FA2CDCD,
+    $8B34BFBF,$813BBABA,$DEB16F6F,$C8AC6464,$479ED9D9,$13E0F3F3,$7C423E3E,$9D29B4B4,
+    $A10BAAAA,$4D91DCDC,$5F8AD5D5,$0C0A0606,$75B5C0C0,$FC827E7E,$19EFF6F6,$CCAA6666,
+    $D8B46C6C,$FD798484,$E2937171,$70483838,$873EB9B9,$3A271D1D,$FE817F7F,$CF529D9D,
+    $90D84848,$E3688B8B,$547E2A2A,$419BDADA,$BF1AA5A5,$66553333,$F1738282,$724B3939,
+    $598FD6D6,$F0887878,$F97F8686,$01FBFAFA,$3DD9E4E4,$567D2B2B,$A70EA9A9,$3C221E1E,
+    $E76E8989,$C0A06060,$D6BD6B6B,$21CBEAEA,$AAFF5555,$98D44C4C,$1BECF7F7,$31D3E2E2));
+
+  Square_TD: array[0..3, 0..255] of LongWord = (
+   ($02BC68E3,$0C628555,$31233F2A,$F713AB61,$726DD498,$199ACB21,$61A4223C,$CD3D9D45,
+    $23B4FD05,$5F07C42B,$C0012C9B,$0F80D93D,$745C6C48,$857E7FF9,$1FAB73F1,$0EDEEDB6,
+    $ED6B3C28,$1A789749,$8D912A9F,$339F57C9,$AAA807A9,$7DED0DA5,$8F2D427C,$C9B04D76,
+    $57E8914D,$CC63A9CE,$D296EEB4,$B6E12830,$B961F10D,$266719BD,$80AD9B41,$C76EA0C0,
+    $41F28351,$34F0DB92,$FC1EA26F,$4CCE328F,$7333E013,$6DC6A769,$93646DE5,$FA2F1ABF,
+    $B7BF1CBB,$B5037458,$4F2C6EE7,$96B7895D,$2A059CE8,$A3196644,$FB712E34,$6529F20F,
+    $7A8281FE,$F12213B1,$EC3508A3,$7E0F51CD,$14A67AFF,$F893725C,$1297C22F,$C3E370F3,
+    $1C492F99,$681543D1,$1B26A3C2,$B332CC88,$6F7ACF8A,$9F06E8B0,$1EF5477A,$DA79BBD2,
+    $210895E6,$5CE59843,$0631B8D0,$AF7BE311,$5365417E,$102BAACC,$9CE4B4D8,$D4A75664,
+    $59367CFB,$84204B72,$F64D9FEA,$DFAA5F6A,$CEDFC12D,$58684870,$81F3AFCA,$91D80506,
+    $694B775A,$A528DE94,$4210DF39,$47C33B81,$A6CA82FC,$C5D2C823,$B26CF803,$9AD50C08,
+    $40ACB7DA,$E109B97D,$2C342438,$A24752CF,$D174B2DC,$2B5BA863,$9555D535,$11759E47,
+    $E2EBE515,$C630944B,$A8146F4A,$869C2391,$39CC6A4C,$4AFF8A5F,$4D900604,$BBDD99EE,
+    $CA52111E,$18C4FFAA,$986964EB,$FFFCFE07,$015E348B,$BE0E7D56,$D99BE7BA,$32C16342,
+    $7BDCB575,$17442697,$66CBAE67,$CB0C2595,$67959AEC,$D02A8657,$99375060,$05D3E4B8,
+    $BA83AD65,$35AEEF19,$13C9F6A4,$A94A5BC1,$D61B3E87,$5E59F0A0,$5B8A1418,$3B7002AF,
+    $76E004AB,$BF5049DD,$63184ADF,$56B6A5C6,$0A533D85,$371287FA,$A794B677,$7F516546,
+    $09B161ED,$E9E6EC1B,$258545D5,$523B75F5,$3D41BA7F,$8842CE27,$434EEBB2,$97E9BDD6,
+    $F39E7B52,$457F5362,$A0FB3A2C,$70D1BC7B,$6BF71FB9,$1D171B12,$C8EE79FD,$F07C273A,
+    $D7450A0C,$7960DD96,$ABF63322,$891CFAAC,$5DBBACC8,$307D0BA1,$4BA1BED4,$940BE1BE,
+    $540ACD25,$62467E54,$8211F3A2,$3EA3E617,$E6663526,$750258C3,$9B8B3883,$C2BD4478,
+    $DC480302,$8BA0924F,$7CB3392E,$E584694E,$718F88F0,$27392D36,$3FFDD29C,$6E24FB01,
+    $DD163789,$00000000,$E0578DF6,$6C9893E2,$15F84E74,$5AD42093,$E73801AD,$B45D40D3,
+    $87C2171A,$2D6A10B3,$2FD67850,$3C1F8EF4,$A1A50EA7,$364CB371,$AE25D79A,$24DB715E,
+    $50871D16,$D5F962EF,$9086318D,$161A121C,$CF81F5A6,$076F8C5B,$491DD637,$923A596E,
+    $6477C684,$B83FC586,$F9CD46D7,$B0D090E0,$834FC729,$FD4096E4,$0B0D090E,$2056A16D,
+    $22EAC98E,$2E884CDB,$8E7376F7,$BCB215B5,$C15F1810,$6AA92B32,$B18EA46B,$5554F9AE,
+    $EE896040,$08EF5566,$442167E9,$BDEC213E,$77BE3020,$ADC78BF2,$29E7C080,$8CCF1E14,
+    $4843E2BC,$8AFEA6C4,$D8C5D331,$60FA16B7,$9DBA8053,$F2C04FD9,$783EE91D,$3A2E3624,
+    $DEF46BE1,$EFD754CB,$F4F1F709,$F5AFC382,$28B9F40B,$51D9299D,$38925EC7,$EB5A84F8,
+    $E8B8D890,$0D3CB1DE,$048DD033,$03E25C68,$E4DA5DC5,$9E58DC3B,$469D0F0A,$D3C8DA3F,
+    $DB278F59,$C48CFCA8,$AC99BF79,$4E725A6C,$FEA2CA8C,$E3B5D19E,$A476EA1F,$EA04B073),
+   ($BC68E302,$6285550C,$233F2A31,$13AB61F7,$6DD49872,$9ACB2119,$A4223C61,$3D9D45CD,
+    $B4FD0523,$07C42B5F,$012C9BC0,$80D93D0F,$5C6C4874,$7E7FF985,$AB73F11F,$DEEDB60E,
+    $6B3C28ED,$7897491A,$912A9F8D,$9F57C933,$A807A9AA,$ED0DA57D,$2D427C8F,$B04D76C9,
+    $E8914D57,$63A9CECC,$96EEB4D2,$E12830B6,$61F10DB9,$6719BD26,$AD9B4180,$6EA0C0C7,
+    $F2835141,$F0DB9234,$1EA26FFC,$CE328F4C,$33E01373,$C6A7696D,$646DE593,$2F1ABFFA,
+    $BF1CBBB7,$037458B5,$2C6EE74F,$B7895D96,$059CE82A,$196644A3,$712E34FB,$29F20F65,
+    $8281FE7A,$2213B1F1,$3508A3EC,$0F51CD7E,$A67AFF14,$93725CF8,$97C22F12,$E370F3C3,
+    $492F991C,$1543D168,$26A3C21B,$32CC88B3,$7ACF8A6F,$06E8B09F,$F5477A1E,$79BBD2DA,
+    $0895E621,$E598435C,$31B8D006,$7BE311AF,$65417E53,$2BAACC10,$E4B4D89C,$A75664D4,
+    $367CFB59,$204B7284,$4D9FEAF6,$AA5F6ADF,$DFC12DCE,$68487058,$F3AFCA81,$D8050691,
+    $4B775A69,$28DE94A5,$10DF3942,$C33B8147,$CA82FCA6,$D2C823C5,$6CF803B2,$D50C089A,
+    $ACB7DA40,$09B97DE1,$3424382C,$4752CFA2,$74B2DCD1,$5BA8632B,$55D53595,$759E4711,
+    $EBE515E2,$30944BC6,$146F4AA8,$9C239186,$CC6A4C39,$FF8A5F4A,$9006044D,$DD99EEBB,
+    $52111ECA,$C4FFAA18,$6964EB98,$FCFE07FF,$5E348B01,$0E7D56BE,$9BE7BAD9,$C1634232,
+    $DCB5757B,$44269717,$CBAE6766,$0C2595CB,$959AEC67,$2A8657D0,$37506099,$D3E4B805,
+    $83AD65BA,$AEEF1935,$C9F6A413,$4A5BC1A9,$1B3E87D6,$59F0A05E,$8A14185B,$7002AF3B,
+    $E004AB76,$5049DDBF,$184ADF63,$B6A5C656,$533D850A,$1287FA37,$94B677A7,$5165467F,
+    $B161ED09,$E6EC1BE9,$8545D525,$3B75F552,$41BA7F3D,$42CE2788,$4EEBB243,$E9BDD697,
+    $9E7B52F3,$7F536245,$FB3A2CA0,$D1BC7B70,$F71FB96B,$171B121D,$EE79FDC8,$7C273AF0,
+    $450A0CD7,$60DD9679,$F63322AB,$1CFAAC89,$BBACC85D,$7D0BA130,$A1BED44B,$0BE1BE94,
+    $0ACD2554,$467E5462,$11F3A282,$A3E6173E,$663526E6,$0258C375,$8B38839B,$BD4478C2,
+    $480302DC,$A0924F8B,$B3392E7C,$84694EE5,$8F88F071,$392D3627,$FDD29C3F,$24FB016E,
+    $163789DD,$00000000,$578DF6E0,$9893E26C,$F84E7415,$D420935A,$3801ADE7,$5D40D3B4,
+    $C2171A87,$6A10B32D,$D678502F,$1F8EF43C,$A50EA7A1,$4CB37136,$25D79AAE,$DB715E24,
+    $871D1650,$F962EFD5,$86318D90,$1A121C16,$81F5A6CF,$6F8C5B07,$1DD63749,$3A596E92,
+    $77C68464,$3FC586B8,$CD46D7F9,$D090E0B0,$4FC72983,$4096E4FD,$0D090E0B,$56A16D20,
+    $EAC98E22,$884CDB2E,$7376F78E,$B215B5BC,$5F1810C1,$A92B326A,$8EA46BB1,$54F9AE55,
+    $896040EE,$EF556608,$2167E944,$EC213EBD,$BE302077,$C78BF2AD,$E7C08029,$CF1E148C,
+    $43E2BC48,$FEA6C48A,$C5D331D8,$FA16B760,$BA80539D,$C04FD9F2,$3EE91D78,$2E36243A,
+    $F46BE1DE,$D754CBEF,$F1F709F4,$AFC382F5,$B9F40B28,$D9299D51,$925EC738,$5A84F8EB,
+    $B8D890E8,$3CB1DE0D,$8DD03304,$E25C6803,$DA5DC5E4,$58DC3B9E,$9D0F0A46,$C8DA3FD3,
+    $278F59DB,$8CFCA8C4,$99BF79AC,$725A6C4E,$A2CA8CFE,$B5D19EE3,$76EA1FA4,$04B073EA),
+   ($68E302BC,$85550C62,$3F2A3123,$AB61F713,$D498726D,$CB21199A,$223C61A4,$9D45CD3D,
+    $FD0523B4,$C42B5F07,$2C9BC001,$D93D0F80,$6C48745C,$7FF9857E,$73F11FAB,$EDB60EDE,
+    $3C28ED6B,$97491A78,$2A9F8D91,$57C9339F,$07A9AAA8,$0DA57DED,$427C8F2D,$4D76C9B0,
+    $914D57E8,$A9CECC63,$EEB4D296,$2830B6E1,$F10DB961,$19BD2667,$9B4180AD,$A0C0C76E,
+    $835141F2,$DB9234F0,$A26FFC1E,$328F4CCE,$E0137333,$A7696DC6,$6DE59364,$1ABFFA2F,
+    $1CBBB7BF,$7458B503,$6EE74F2C,$895D96B7,$9CE82A05,$6644A319,$2E34FB71,$F20F6529,
+    $81FE7A82,$13B1F122,$08A3EC35,$51CD7E0F,$7AFF14A6,$725CF893,$C22F1297,$70F3C3E3,
+    $2F991C49,$43D16815,$A3C21B26,$CC88B332,$CF8A6F7A,$E8B09F06,$477A1EF5,$BBD2DA79,
+    $95E62108,$98435CE5,$B8D00631,$E311AF7B,$417E5365,$AACC102B,$B4D89CE4,$5664D4A7,
+    $7CFB5936,$4B728420,$9FEAF64D,$5F6ADFAA,$C12DCEDF,$48705868,$AFCA81F3,$050691D8,
+    $775A694B,$DE94A528,$DF394210,$3B8147C3,$82FCA6CA,$C823C5D2,$F803B26C,$0C089AD5,
+    $B7DA40AC,$B97DE109,$24382C34,$52CFA247,$B2DCD174,$A8632B5B,$D5359555,$9E471175,
+    $E515E2EB,$944BC630,$6F4AA814,$2391869C,$6A4C39CC,$8A5F4AFF,$06044D90,$99EEBBDD,
+    $111ECA52,$FFAA18C4,$64EB9869,$FE07FFFC,$348B015E,$7D56BE0E,$E7BAD99B,$634232C1,
+    $B5757BDC,$26971744,$AE6766CB,$2595CB0C,$9AEC6795,$8657D02A,$50609937,$E4B805D3,
+    $AD65BA83,$EF1935AE,$F6A413C9,$5BC1A94A,$3E87D61B,$F0A05E59,$14185B8A,$02AF3B70,
+    $04AB76E0,$49DDBF50,$4ADF6318,$A5C656B6,$3D850A53,$87FA3712,$B677A794,$65467F51,
+    $61ED09B1,$EC1BE9E6,$45D52585,$75F5523B,$BA7F3D41,$CE278842,$EBB2434E,$BDD697E9,
+    $7B52F39E,$5362457F,$3A2CA0FB,$BC7B70D1,$1FB96BF7,$1B121D17,$79FDC8EE,$273AF07C,
+    $0A0CD745,$DD967960,$3322ABF6,$FAAC891C,$ACC85DBB,$0BA1307D,$BED44BA1,$E1BE940B,
+    $CD25540A,$7E546246,$F3A28211,$E6173EA3,$3526E666,$58C37502,$38839B8B,$4478C2BD,
+    $0302DC48,$924F8BA0,$392E7CB3,$694EE584,$88F0718F,$2D362739,$D29C3FFD,$FB016E24,
+    $3789DD16,$00000000,$8DF6E057,$93E26C98,$4E7415F8,$20935AD4,$01ADE738,$40D3B45D,
+    $171A87C2,$10B32D6A,$78502FD6,$8EF43C1F,$0EA7A1A5,$B371364C,$D79AAE25,$715E24DB,
+    $1D165087,$62EFD5F9,$318D9086,$121C161A,$F5A6CF81,$8C5B076F,$D637491D,$596E923A,
+    $C6846477,$C586B83F,$46D7F9CD,$90E0B0D0,$C729834F,$96E4FD40,$090E0B0D,$A16D2056,
+    $C98E22EA,$4CDB2E88,$76F78E73,$15B5BCB2,$1810C15F,$2B326AA9,$A46BB18E,$F9AE5554,
+    $6040EE89,$556608EF,$67E94421,$213EBDEC,$302077BE,$8BF2ADC7,$C08029E7,$1E148CCF,
+    $E2BC4843,$A6C48AFE,$D331D8C5,$16B760FA,$80539DBA,$4FD9F2C0,$E91D783E,$36243A2E,
+    $6BE1DEF4,$54CBEFD7,$F709F4F1,$C382F5AF,$F40B28B9,$299D51D9,$5EC73892,$84F8EB5A,
+    $D890E8B8,$B1DE0D3C,$D033048D,$5C6803E2,$5DC5E4DA,$DC3B9E58,$0F0A469D,$DA3FD3C8,
+    $8F59DB27,$FCA8C48C,$BF79AC99,$5A6C4E72,$CA8CFEA2,$D19EE3B5,$EA1FA476,$B073EA04),
+   ($E302BC68,$550C6285,$2A31233F,$61F713AB,$98726DD4,$21199ACB,$3C61A422,$45CD3D9D,
+    $0523B4FD,$2B5F07C4,$9BC0012C,$3D0F80D9,$48745C6C,$F9857E7F,$F11FAB73,$B60EDEED,
+    $28ED6B3C,$491A7897,$9F8D912A,$C9339F57,$A9AAA807,$A57DED0D,$7C8F2D42,$76C9B04D,
+    $4D57E891,$CECC63A9,$B4D296EE,$30B6E128,$0DB961F1,$BD266719,$4180AD9B,$C0C76EA0,
+    $5141F283,$9234F0DB,$6FFC1EA2,$8F4CCE32,$137333E0,$696DC6A7,$E593646D,$BFFA2F1A,
+    $BBB7BF1C,$58B50374,$E74F2C6E,$5D96B789,$E82A059C,$44A31966,$34FB712E,$0F6529F2,
+    $FE7A8281,$B1F12213,$A3EC3508,$CD7E0F51,$FF14A67A,$5CF89372,$2F1297C2,$F3C3E370,
+    $991C492F,$D1681543,$C21B26A3,$88B332CC,$8A6F7ACF,$B09F06E8,$7A1EF547,$D2DA79BB,
+    $E6210895,$435CE598,$D00631B8,$11AF7BE3,$7E536541,$CC102BAA,$D89CE4B4,$64D4A756,
+    $FB59367C,$7284204B,$EAF64D9F,$6ADFAA5F,$2DCEDFC1,$70586848,$CA81F3AF,$0691D805,
+    $5A694B77,$94A528DE,$394210DF,$8147C33B,$FCA6CA82,$23C5D2C8,$03B26CF8,$089AD50C,
+    $DA40ACB7,$7DE109B9,$382C3424,$CFA24752,$DCD174B2,$632B5BA8,$359555D5,$4711759E,
+    $15E2EBE5,$4BC63094,$4AA8146F,$91869C23,$4C39CC6A,$5F4AFF8A,$044D9006,$EEBBDD99,
+    $1ECA5211,$AA18C4FF,$EB986964,$07FFFCFE,$8B015E34,$56BE0E7D,$BAD99BE7,$4232C163,
+    $757BDCB5,$97174426,$6766CBAE,$95CB0C25,$EC67959A,$57D02A86,$60993750,$B805D3E4,
+    $65BA83AD,$1935AEEF,$A413C9F6,$C1A94A5B,$87D61B3E,$A05E59F0,$185B8A14,$AF3B7002,
+    $AB76E004,$DDBF5049,$DF63184A,$C656B6A5,$850A533D,$FA371287,$77A794B6,$467F5165,
+    $ED09B161,$1BE9E6EC,$D5258545,$F5523B75,$7F3D41BA,$278842CE,$B2434EEB,$D697E9BD,
+    $52F39E7B,$62457F53,$2CA0FB3A,$7B70D1BC,$B96BF71F,$121D171B,$FDC8EE79,$3AF07C27,
+    $0CD7450A,$967960DD,$22ABF633,$AC891CFA,$C85DBBAC,$A1307D0B,$D44BA1BE,$BE940BE1,
+    $25540ACD,$5462467E,$A28211F3,$173EA3E6,$26E66635,$C3750258,$839B8B38,$78C2BD44,
+    $02DC4803,$4F8BA092,$2E7CB339,$4EE58469,$F0718F88,$3627392D,$9C3FFDD2,$016E24FB,
+    $89DD1637,$00000000,$F6E0578D,$E26C9893,$7415F84E,$935AD420,$ADE73801,$D3B45D40,
+    $1A87C217,$B32D6A10,$502FD678,$F43C1F8E,$A7A1A50E,$71364CB3,$9AAE25D7,$5E24DB71,
+    $1650871D,$EFD5F962,$8D908631,$1C161A12,$A6CF81F5,$5B076F8C,$37491DD6,$6E923A59,
+    $846477C6,$86B83FC5,$D7F9CD46,$E0B0D090,$29834FC7,$E4FD4096,$0E0B0D09,$6D2056A1,
+    $8E22EAC9,$DB2E884C,$F78E7376,$B5BCB215,$10C15F18,$326AA92B,$6BB18EA4,$AE5554F9,
+    $40EE8960,$6608EF55,$E9442167,$3EBDEC21,$2077BE30,$F2ADC78B,$8029E7C0,$148CCF1E,
+    $BC4843E2,$C48AFEA6,$31D8C5D3,$B760FA16,$539DBA80,$D9F2C04F,$1D783EE9,$243A2E36,
+    $E1DEF46B,$CBEFD754,$09F4F1F7,$82F5AFC3,$0B28B9F4,$9D51D929,$C738925E,$F8EB5A84,
+    $90E8B8D8,$DE0D3CB1,$33048DD0,$6803E25C,$C5E4DA5D,$3B9E58DC,$0A469D0F,$3FD3C8DA,
+    $59DB278F,$A8C48CFC,$79AC99BF,$6C4E725A,$8CFEA2CA,$9EE3B5D1,$1FA476EA,$73EA04B0));
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROVer.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROVer.inc
new file mode 100644
index 0000000..9dc7dae
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROVer.inc	
@@ -0,0 +1,48 @@
+{$A+,B-,E-,F-,G+,H+,I-,J+,K-,N+,P+,Q-,R-,S-,T-,V+,W-,X+,Y-}
+
+
+{.$DEFINE 486GE}   // Assembler Core only for >= 486 CPU
+{$DEFINE UseASM}   // use Assembler optimated core
+
+{.$DEFINE ManualRegisterClasses} // all Cipher- and Hashclasses must be manual register
+
+{$IFDEF VER80}  { Delphi 1.0     }
+  {$DEFINE VER_D1}
+{$ENDIF}
+
+{$IFDEF VER90}  { Delphi 2.0     }
+  {$DEFINE VER_D2}
+{$ENDIF}
+
+{$IFDEF VER100} {Borland Delphi 3.0 }
+  {$DEFINE VER_D3}
+{$ENDIF}
+
+{$IFDEF VER120} {Borland Delphi 4.0 }
+  {$DEFINE VER_D4}
+{$ENDIF}
+
+{$IFDEF VER93}  { Borland C++Builder 1.0 }
+  {$DEFINE VER_BCB1}
+{$ENDIF}
+
+{$IFDEF VER110} { Borland C++Builder 3.0 }
+  {$DEFINE VER_BCB3}
+{$ENDIF}
+
+{$IFNDEF VER80}           { Delphi 1.0     }
+ {$IFNDEF VER90}          { Delphi 2.0     }
+  {$IFNDEF VER93}         { C++Builder 1.0 }
+    {$DEFINE VER_D3H}     { Delphi 3.0 or higher }
+    {$IFNDEF VER100}
+      {$DEFINE VER_BCB3H} { C++Builder 3.0 or higher }
+      {$IFNDEF VER110}
+        {$DEFINE VER_D4H} { Delphi 4.0 or higher }
+      {$ENDIF}
+    {$ENDIF}
+  {$ENDIF}
+ {$ENDIF}
+{$ENDIF}
+
+
+{$I ..\eDefines.inc}
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROcipher.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROcipher.inc
new file mode 100644
index 0000000..06478d3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROcipher.inc	
@@ -0,0 +1,1636 @@
+const
+  Gost_Data: array[0..3, 0..255] of LongWord = (
+   ($00072000,$00075000,$00074800,$00071000,$00076800,$00074000,$00070000,$00077000,
+    $00073000,$00075800,$00070800,$00076000,$00073800,$00077800,$00072800,$00071800,
+    $0005A000,$0005D000,$0005C800,$00059000,$0005E800,$0005C000,$00058000,$0005F000,
+    $0005B000,$0005D800,$00058800,$0005E000,$0005B800,$0005F800,$0005A800,$00059800,
+    $00022000,$00025000,$00024800,$00021000,$00026800,$00024000,$00020000,$00027000,
+    $00023000,$00025800,$00020800,$00026000,$00023800,$00027800,$00022800,$00021800,
+    $00062000,$00065000,$00064800,$00061000,$00066800,$00064000,$00060000,$00067000,
+    $00063000,$00065800,$00060800,$00066000,$00063800,$00067800,$00062800,$00061800,
+    $00032000,$00035000,$00034800,$00031000,$00036800,$00034000,$00030000,$00037000,
+    $00033000,$00035800,$00030800,$00036000,$00033800,$00037800,$00032800,$00031800,
+    $0006A000,$0006D000,$0006C800,$00069000,$0006E800,$0006C000,$00068000,$0006F000,
+    $0006B000,$0006D800,$00068800,$0006E000,$0006B800,$0006F800,$0006A800,$00069800,
+    $0007A000,$0007D000,$0007C800,$00079000,$0007E800,$0007C000,$00078000,$0007F000,
+    $0007B000,$0007D800,$00078800,$0007E000,$0007B800,$0007F800,$0007A800,$00079800,
+    $00052000,$00055000,$00054800,$00051000,$00056800,$00054000,$00050000,$00057000,
+    $00053000,$00055800,$00050800,$00056000,$00053800,$00057800,$00052800,$00051800,
+    $00012000,$00015000,$00014800,$00011000,$00016800,$00014000,$00010000,$00017000,
+    $00013000,$00015800,$00010800,$00016000,$00013800,$00017800,$00012800,$00011800,
+    $0001A000,$0001D000,$0001C800,$00019000,$0001E800,$0001C000,$00018000,$0001F000,
+    $0001B000,$0001D800,$00018800,$0001E000,$0001B800,$0001F800,$0001A800,$00019800,
+    $00042000,$00045000,$00044800,$00041000,$00046800,$00044000,$00040000,$00047000,
+    $00043000,$00045800,$00040800,$00046000,$00043800,$00047800,$00042800,$00041800,
+    $0000A000,$0000D000,$0000C800,$00009000,$0000E800,$0000C000,$00008000,$0000F000,
+    $0000B000,$0000D800,$00008800,$0000E000,$0000B800,$0000F800,$0000A800,$00009800,
+    $00002000,$00005000,$00004800,$00001000,$00006800,$00004000,$00000000,$00007000,
+    $00003000,$00005800,$00000800,$00006000,$00003800,$00007800,$00002800,$00001800,
+    $0003A000,$0003D000,$0003C800,$00039000,$0003E800,$0003C000,$00038000,$0003F000,
+    $0003B000,$0003D800,$00038800,$0003E000,$0003B800,$0003F800,$0003A800,$00039800,
+    $0002A000,$0002D000,$0002C800,$00029000,$0002E800,$0002C000,$00028000,$0002F000,
+    $0002B000,$0002D800,$00028800,$0002E000,$0002B800,$0002F800,$0002A800,$00029800,
+    $0004A000,$0004D000,$0004C800,$00049000,$0004E800,$0004C000,$00048000,$0004F000,
+    $0004B000,$0004D800,$00048800,$0004E000,$0004B800,$0004F800,$0004A800,$00049800),
+   ($03A80000,$03C00000,$03880000,$03E80000,$03D00000,$03980000,$03A00000,$03900000,
+    $03F00000,$03F80000,$03E00000,$03B80000,$03B00000,$03800000,$03C80000,$03D80000,
+    $06A80000,$06C00000,$06880000,$06E80000,$06D00000,$06980000,$06A00000,$06900000,
+    $06F00000,$06F80000,$06E00000,$06B80000,$06B00000,$06800000,$06C80000,$06D80000,
+    $05280000,$05400000,$05080000,$05680000,$05500000,$05180000,$05200000,$05100000,
+    $05700000,$05780000,$05600000,$05380000,$05300000,$05000000,$05480000,$05580000,
+    $00A80000,$00C00000,$00880000,$00E80000,$00D00000,$00980000,$00A00000,$00900000,
+    $00F00000,$00F80000,$00E00000,$00B80000,$00B00000,$00800000,$00C80000,$00D80000,
+    $00280000,$00400000,$00080000,$00680000,$00500000,$00180000,$00200000,$00100000,
+    $00700000,$00780000,$00600000,$00380000,$00300000,$00000000,$00480000,$00580000,
+    $04280000,$04400000,$04080000,$04680000,$04500000,$04180000,$04200000,$04100000,
+    $04700000,$04780000,$04600000,$04380000,$04300000,$04000000,$04480000,$04580000,
+    $04A80000,$04C00000,$04880000,$04E80000,$04D00000,$04980000,$04A00000,$04900000,
+    $04F00000,$04F80000,$04E00000,$04B80000,$04B00000,$04800000,$04C80000,$04D80000,
+    $07A80000,$07C00000,$07880000,$07E80000,$07D00000,$07980000,$07A00000,$07900000,
+    $07F00000,$07F80000,$07E00000,$07B80000,$07B00000,$07800000,$07C80000,$07D80000,
+    $07280000,$07400000,$07080000,$07680000,$07500000,$07180000,$07200000,$07100000,
+    $07700000,$07780000,$07600000,$07380000,$07300000,$07000000,$07480000,$07580000,
+    $02280000,$02400000,$02080000,$02680000,$02500000,$02180000,$02200000,$02100000,
+    $02700000,$02780000,$02600000,$02380000,$02300000,$02000000,$02480000,$02580000,
+    $03280000,$03400000,$03080000,$03680000,$03500000,$03180000,$03200000,$03100000,
+    $03700000,$03780000,$03600000,$03380000,$03300000,$03000000,$03480000,$03580000,
+    $06280000,$06400000,$06080000,$06680000,$06500000,$06180000,$06200000,$06100000,
+    $06700000,$06780000,$06600000,$06380000,$06300000,$06000000,$06480000,$06580000,
+    $05A80000,$05C00000,$05880000,$05E80000,$05D00000,$05980000,$05A00000,$05900000,
+    $05F00000,$05F80000,$05E00000,$05B80000,$05B00000,$05800000,$05C80000,$05D80000,
+    $01280000,$01400000,$01080000,$01680000,$01500000,$01180000,$01200000,$01100000,
+    $01700000,$01780000,$01600000,$01380000,$01300000,$01000000,$01480000,$01580000,
+    $02A80000,$02C00000,$02880000,$02E80000,$02D00000,$02980000,$02A00000,$02900000,
+    $02F00000,$02F80000,$02E00000,$02B80000,$02B00000,$02800000,$02C80000,$02D80000,
+    $01A80000,$01C00000,$01880000,$01E80000,$01D00000,$01980000,$01A00000,$01900000,
+    $01F00000,$01F80000,$01E00000,$01B80000,$01B00000,$01800000,$01C80000,$01D80000),
+   ($30000002,$60000002,$38000002,$08000002,$28000002,$78000002,$68000002,$40000002,
+    $20000002,$50000002,$48000002,$70000002,$00000002,$18000002,$58000002,$10000002,
+    $B0000005,$E0000005,$B8000005,$88000005,$A8000005,$F8000005,$E8000005,$C0000005,
+    $A0000005,$D0000005,$C8000005,$F0000005,$80000005,$98000005,$D8000005,$90000005,
+    $30000005,$60000005,$38000005,$08000005,$28000005,$78000005,$68000005,$40000005,
+    $20000005,$50000005,$48000005,$70000005,$00000005,$18000005,$58000005,$10000005,
+    $30000000,$60000000,$38000000,$08000000,$28000000,$78000000,$68000000,$40000000,
+    $20000000,$50000000,$48000000,$70000000,$00000000,$18000000,$58000000,$10000000,
+    $B0000003,$E0000003,$B8000003,$88000003,$A8000003,$F8000003,$E8000003,$C0000003,
+    $A0000003,$D0000003,$C8000003,$F0000003,$80000003,$98000003,$D8000003,$90000003,
+    $30000001,$60000001,$38000001,$08000001,$28000001,$78000001,$68000001,$40000001,
+    $20000001,$50000001,$48000001,$70000001,$00000001,$18000001,$58000001,$10000001,
+    $B0000000,$E0000000,$B8000000,$88000000,$A8000000,$F8000000,$E8000000,$C0000000,
+    $A0000000,$D0000000,$C8000000,$F0000000,$80000000,$98000000,$D8000000,$90000000,
+    $B0000006,$E0000006,$B8000006,$88000006,$A8000006,$F8000006,$E8000006,$C0000006,
+    $A0000006,$D0000006,$C8000006,$F0000006,$80000006,$98000006,$D8000006,$90000006,
+    $B0000001,$E0000001,$B8000001,$88000001,$A8000001,$F8000001,$E8000001,$C0000001,
+    $A0000001,$D0000001,$C8000001,$F0000001,$80000001,$98000001,$D8000001,$90000001,
+    $30000003,$60000003,$38000003,$08000003,$28000003,$78000003,$68000003,$40000003,
+    $20000003,$50000003,$48000003,$70000003,$00000003,$18000003,$58000003,$10000003,
+    $30000004,$60000004,$38000004,$08000004,$28000004,$78000004,$68000004,$40000004,
+    $20000004,$50000004,$48000004,$70000004,$00000004,$18000004,$58000004,$10000004,
+    $B0000002,$E0000002,$B8000002,$88000002,$A8000002,$F8000002,$E8000002,$C0000002,
+    $A0000002,$D0000002,$C8000002,$F0000002,$80000002,$98000002,$D8000002,$90000002,
+    $B0000004,$E0000004,$B8000004,$88000004,$A8000004,$F8000004,$E8000004,$C0000004,
+    $A0000004,$D0000004,$C8000004,$F0000004,$80000004,$98000004,$D8000004,$90000004,
+    $30000006,$60000006,$38000006,$08000006,$28000006,$78000006,$68000006,$40000006,
+    $20000006,$50000006,$48000006,$70000006,$00000006,$18000006,$58000006,$10000006,
+    $B0000007,$E0000007,$B8000007,$88000007,$A8000007,$F8000007,$E8000007,$C0000007,
+    $A0000007,$D0000007,$C8000007,$F0000007,$80000007,$98000007,$D8000007,$90000007,
+    $30000007,$60000007,$38000007,$08000007,$28000007,$78000007,$68000007,$40000007,
+    $20000007,$50000007,$48000007,$70000007,$00000007,$18000007,$58000007,$10000007),
+   ($000000E8,$000000D8,$000000A0,$00000088,$00000098,$000000F8,$000000A8,$000000C8,
+    $00000080,$000000D0,$000000F0,$000000B8,$000000B0,$000000C0,$00000090,$000000E0,
+    $000007E8,$000007D8,$000007A0,$00000788,$00000798,$000007F8,$000007A8,$000007C8,
+    $00000780,$000007D0,$000007F0,$000007B8,$000007B0,$000007C0,$00000790,$000007E0,
+    $000006E8,$000006D8,$000006A0,$00000688,$00000698,$000006F8,$000006A8,$000006C8,
+    $00000680,$000006D0,$000006F0,$000006B8,$000006B0,$000006C0,$00000690,$000006E0,
+    $00000068,$00000058,$00000020,$00000008,$00000018,$00000078,$00000028,$00000048,
+    $00000000,$00000050,$00000070,$00000038,$00000030,$00000040,$00000010,$00000060,
+    $000002E8,$000002D8,$000002A0,$00000288,$00000298,$000002F8,$000002A8,$000002C8,
+    $00000280,$000002D0,$000002F0,$000002B8,$000002B0,$000002C0,$00000290,$000002E0,
+    $000003E8,$000003D8,$000003A0,$00000388,$00000398,$000003F8,$000003A8,$000003C8,
+    $00000380,$000003D0,$000003F0,$000003B8,$000003B0,$000003C0,$00000390,$000003E0,
+    $00000568,$00000558,$00000520,$00000508,$00000518,$00000578,$00000528,$00000548,
+    $00000500,$00000550,$00000570,$00000538,$00000530,$00000540,$00000510,$00000560,
+    $00000268,$00000258,$00000220,$00000208,$00000218,$00000278,$00000228,$00000248,
+    $00000200,$00000250,$00000270,$00000238,$00000230,$00000240,$00000210,$00000260,
+    $000004E8,$000004D8,$000004A0,$00000488,$00000498,$000004F8,$000004A8,$000004C8,
+    $00000480,$000004D0,$000004F0,$000004B8,$000004B0,$000004C0,$00000490,$000004E0,
+    $00000168,$00000158,$00000120,$00000108,$00000118,$00000178,$00000128,$00000148,
+    $00000100,$00000150,$00000170,$00000138,$00000130,$00000140,$00000110,$00000160,
+    $000001E8,$000001D8,$000001A0,$00000188,$00000198,$000001F8,$000001A8,$000001C8,
+    $00000180,$000001D0,$000001F0,$000001B8,$000001B0,$000001C0,$00000190,$000001E0,
+    $00000768,$00000758,$00000720,$00000708,$00000718,$00000778,$00000728,$00000748,
+    $00000700,$00000750,$00000770,$00000738,$00000730,$00000740,$00000710,$00000760,
+    $00000368,$00000358,$00000320,$00000308,$00000318,$00000378,$00000328,$00000348,
+    $00000300,$00000350,$00000370,$00000338,$00000330,$00000340,$00000310,$00000360,
+    $000005E8,$000005D8,$000005A0,$00000588,$00000598,$000005F8,$000005A8,$000005C8,
+    $00000580,$000005D0,$000005F0,$000005B8,$000005B0,$000005C0,$00000590,$000005E0,
+    $00000468,$00000458,$00000420,$00000408,$00000418,$00000478,$00000428,$00000448,
+    $00000400,$00000450,$00000470,$00000438,$00000430,$00000440,$00000410,$00000460,
+    $00000668,$00000658,$00000620,$00000608,$00000618,$00000678,$00000628,$00000648,
+    $00000600,$00000650,$00000670,$00000638,$00000630,$00000640,$00000610,$00000660));
+
+  Blowfish_Data: array[0..3, 0..255] of LongWord = (
+   ($D1310BA6,$98DFB5AC,$2FFD72DB,$D01ADFB7,$B8E1AFED,$6A267E96,$BA7C9045,$F12C7F99,
+    $24A19947,$B3916CF7,$0801F2E2,$858EFC16,$636920D8,$71574E69,$A458FEA3,$F4933D7E,
+    $0D95748F,$728EB658,$718BCD58,$82154AEE,$7B54A41D,$C25A59B5,$9C30D539,$2AF26013,
+    $C5D1B023,$286085F0,$CA417918,$B8DB38EF,$8E79DCB0,$603A180E,$6C9E0E8B,$B01E8A3E,
+    $D71577C1,$BD314B27,$78AF2FDA,$55605C60,$E65525F3,$AA55AB94,$57489862,$63E81440,
+    $55CA396A,$2AAB10B6,$B4CC5C34,$1141E8CE,$A15486AF,$7C72E993,$B3EE1411,$636FBC2A,
+    $2BA9C55D,$741831F6,$CE5C3E16,$9B87931E,$AFD6BA33,$6C24CF5C,$7A325381,$28958677,
+    $3B8F4898,$6B4BB9AF,$C4BFE81B,$66282193,$61D809CC,$FB21A991,$487CAC60,$5DEC8032,
+    $EF845D5D,$E98575B1,$DC262302,$EB651B88,$23893E81,$D396ACC5,$0F6D6FF3,$83F44239,
+    $2E0B4482,$A4842004,$69C8F04A,$9E1F9B5E,$21C66842,$F6E96C9A,$670C9C61,$ABD388F0,
+    $6A51A0D2,$D8542F68,$960FA728,$AB5133A3,$6EEF0B6C,$137A3BE4,$BA3BF050,$7EFB2A98,
+    $A1F1651D,$39AF0176,$66CA593E,$82430E88,$8CEE8619,$456F9FB4,$7D84A5C3,$3B8B5EBE,
+    $E06F75D8,$85C12073,$401A449F,$56C16AA6,$4ED3AA62,$363F7706,$1BFEDF72,$429B023D,
+    $37D0D724,$D00A1248,$DB0FEAD3,$49F1C09B,$075372C9,$80991B7B,$25D479D8,$F6E8DEF7,
+    $E3FE501A,$B6794C3B,$976CE0BD,$04C006BA,$C1A94FB6,$409F60C4,$5E5C9EC2,$196A2463,
+    $68FB6FAF,$3E6C53B5,$1339B2EB,$3B52EC6F,$6DFC511F,$9B30952C,$CC814544,$AF5EBD09,
+    $BEE3D004,$DE334AFD,$660F2807,$192E4BB3,$C0CBA857,$45C8740F,$D20B5F39,$B9D3FBDB,
+    $5579C0BD,$1A60320A,$D6A100C6,$402C7279,$679F25FE,$FB1FA3CC,$8EA5E9F8,$DB3222F8,
+    $3C7516DF,$FD616B15,$2F501EC8,$AD0552AB,$323DB5FA,$FD238760,$53317B48,$3E00DF82,
+    $9E5C57BB,$CA6F8CA0,$1A87562E,$DF1769DB,$D542A8F6,$287EFFC3,$AC6732C6,$8C4F5573,
+    $695B27B0,$BBCA58C8,$E1FFA35D,$B8F011A0,$10FA3D98,$FD2183B8,$4AFCB56C,$2DD1D35B,
+    $9A53E479,$B6F84565,$D28E49BC,$4BFB9790,$E1DDF2DA,$A4CB7E33,$62FB1341,$CEE4C6E8,
+    $EF20CADA,$36774C01,$D07E9EFE,$2BF11FB4,$95DBDA4D,$AE909198,$EAAD8E71,$6B93D5A0,
+    $D08ED1D0,$AFC725E0,$8E3C5B2F,$8E7594B7,$8FF6E2FB,$F2122B64,$8888B812,$900DF01C,
+    $4FAD5EA0,$688FC31C,$D1CFF191,$B3A8C1AD,$2F2F2218,$BE0E1777,$EA752DFE,$8B021FA1,
+    $E5A0CC0F,$B56F74E8,$18ACF3D6,$CE89E299,$B4A84FE0,$FD13E0B7,$7CC43B81,$D2ADA8D9,
+    $165FA266,$80957705,$93CC7314,$211A1477,$E6AD2065,$77B5FA86,$C75442F5,$FB9D35CF,
+    $EBCDAF0C,$7B3E89A0,$D6411BD3,$AE1E7E49,$00250E2D,$2071B35E,$226800BB,$57B8E0AF,
+    $2464369B,$F009B91E,$5563911D,$59DFA6AA,$78C14389,$D95A537F,$207D5BA2,$02E5B9C5,
+    $83260376,$6295CFA9,$11C81968,$4E734A41,$B3472DCA,$7B14A94A,$1B510052,$9A532915,
+    $D60F573F,$BC9BC6E4,$2B60A476,$81E67400,$08BA6FB5,$571BE91F,$F296EC6B,$2A0DD915,
+    $B6636521,$E7B9F9B6,$FF34052E,$C5855664,$53B02D5D,$A99F8FA1,$08BA4799,$6E85076A),
+   ($4B7A70E9,$B5B32944,$DB75092E,$C4192623,$AD6EA6B0,$49A7DF7D,$9CEE60B8,$8FEDB266,
+    $ECAA8C71,$699A17FF,$5664526C,$C2B19EE1,$193602A5,$75094C29,$A0591340,$E4183A3E,
+    $3F54989A,$5B429D65,$6B8FE4D6,$99F73FD6,$A1D29C07,$EFE830F5,$4D2D38E6,$F0255DC1,
+    $4CDD2086,$8470EB26,$6382E9C6,$021ECC5E,$09686B3F,$3EBAEFC9,$3C971814,$6B6A70A1,
+    $687F3584,$52A0E286,$B79C5305,$AA500737,$3E07841C,$7FDEAE5C,$8E7D44EC,$5716F2B8,
+    $B03ADA37,$F0500C0D,$F01C1F04,$0200B3FF,$AE0CF51A,$3CB574B2,$25837A58,$DC0921BD,
+    $D19113F9,$7CA92FF6,$94324773,$22F54701,$3AE5E581,$37C2DADC,$C8B57634,$9AF3DDA7,
+    $A9446146,$0FD0030E,$ECC8C73E,$A4751E41,$E238CD99,$3BEA0E2F,$3280BBA1,$183EB331,
+    $4E548B38,$4F6DB908,$6F420D03,$F60A04BF,$2CB81290,$24977C79,$5679B072,$BCAF89AF,
+    $DE9A771F,$D9930810,$B38BAE12,$DCCF3F2E,$5512721F,$2E6B7124,$501ADDE6,$9F84CD87,
+    $7A584718,$7408DA17,$BC9F9ABC,$E94B7D8C,$EC7AEC3A,$DB851DFA,$63094366,$C464C3D2,
+    $EF1C1847,$3215D908,$DD433B37,$24C2BA16,$12A14D43,$2A65C451,$50940002,$133AE4DD,
+    $71DFF89E,$10314E55,$81AC77D6,$5F11199B,$043556F1,$D7A3C76B,$3C11183B,$5924A509,
+    $F28FE6ED,$97F1FBFA,$9EBABF2C,$1E153C6E,$86E34570,$EAE96FB1,$860E5E0A,$5A3E2AB3,
+    $771FE71C,$4E3D06FA,$2965DCB9,$99E71D0F,$803E89D6,$5266C825,$2E4CC978,$9C10B36A,
+    $C6150EBA,$94E2EA78,$A5FC3C53,$1E0A2DF4,$F2F74EA7,$361D2B3D,$1939260F,$19C27960,
+    $5223A708,$F71312B6,$EBADFE6E,$EAC31F66,$E3BC4595,$A67BC883,$B17F37D1,$018CFF28,
+    $C332DDEF,$BE6C5AA5,$65582185,$68AB9802,$EECEA50F,$DB2F953B,$2AEF7DAD,$5B6E2F84,
+    $1521B628,$29076170,$ECDD4775,$619F1510,$13CCA830,$EB61BD96,$0334FE1E,$AA0363CF,
+    $B5735C90,$4C70A239,$D59E9E0B,$CBAADE14,$EECC86BC,$60622CA7,$9CAB5CAB,$B2F3846E,
+    $648B1EAF,$19BDF0CA,$A02369B9,$655ABB50,$40685A32,$3C2AB4B3,$319EE9D5,$C021B8F7,
+    $9B540B19,$875FA099,$95F7997E,$623D7DA8,$F837889A,$97E32D77,$11ED935F,$16681281,
+    $0E358829,$C7E61FD6,$96DEDFA1,$7858BA99,$57F584A5,$1B227263,$9B83C3FF,$1AC24696,
+    $CDB30AEB,$532E3054,$8FD948E4,$6DBC3128,$58EBF2EF,$34C6FFEA,$FE28ED61,$EE7C3C73,
+    $5D4A14D9,$E864B7E3,$42105D14,$203E13E0,$45EEE2B6,$A3AAABEA,$DB6C4F15,$FACB4FD0,
+    $C742F442,$EF6ABBB5,$654F3B1D,$41CD2105,$D81E799E,$86854DC7,$E44B476A,$3D816250,
+    $CF62A1F2,$5B8D2646,$FC8883A0,$C1C7B6A3,$7F1524C3,$69CB7492,$47848A0B,$5692B285,
+    $095BBF00,$AD19489D,$1462B174,$23820E00,$58428D2A,$0C55F5EA,$1DADF43E,$233F7061,
+    $3372F092,$8D937E41,$D65FECF1,$6C223BDB,$7CDE3759,$CBEE7460,$4085F2A7,$CE77326E,
+    $A6078084,$19F8509E,$E8EFD855,$61D99735,$A969A7AA,$C50C06C2,$5A04ABFC,$800BCADC,
+    $9E447A2E,$C3453484,$FDD56705,$0E1E9EC9,$DB73DBD3,$105588CD,$675FDA79,$E3674340,
+    $C5C43465,$713E38D8,$3D28F89E,$F16DFF20,$153E21E7,$8FB03D4A,$E6E39F2B,$DB83ADF7),
+   ($E93D5A68,$948140F7,$F64C261C,$94692934,$411520F7,$7602D4F7,$BCF46B2E,$D4A20068,
+    $D4082471,$3320F46A,$43B7D4B7,$500061AF,$1E39F62E,$97244546,$14214F74,$BF8B8840,
+    $4D95FC1D,$96B591AF,$70F4DDD3,$66A02F45,$BFBC09EC,$03BD9785,$7FAC6DD0,$31CB8504,
+    $96EB27B3,$55FD3941,$DA2547E6,$ABCA0A9A,$28507825,$530429F4,$0A2C86DA,$E9B66DFB,
+    $68DC1462,$D7486900,$680EC0A4,$27A18DEE,$4F3FFEA2,$E887AD8C,$B58CE006,$7AF4D6B6,
+    $AACE1E7C,$D3375FEC,$CE78A399,$406B2A42,$20FE9E35,$D9F385B9,$EE39D7AB,$3B124E8B,
+    $1DC9FAF7,$4B6D1856,$26A36631,$EAE397B2,$3A6EFA74,$DD5B4332,$6841E7F7,$CA7820FB,
+    $FB0AF54E,$D8FEB397,$454056AC,$BA489527,$55533A3A,$20838D87,$FE6BA9B7,$D096954B,
+    $55A867BC,$A1159A58,$CCA92963,$99E1DB33,$A62A4A56,$3F3125F9,$5EF47E1C,$9029317C,
+    $FDF8E802,$04272F70,$80BB155C,$05282CE3,$95C11548,$E4C66D22,$48C1133F,$C70F86DC,
+    $07F9C9EE,$41041F0F,$404779A4,$5D886E17,$325F51EB,$D59BC0D1,$F2BCC18F,$41113564,
+    $257B7834,$602A9C60,$DFF8E8A3,$1F636C1B,$0E12B4C2,$02E1329E,$AF664FD1,$CAD18115,
+    $6B2395E0,$333E92E1,$3B240B62,$EEBEB922,$85B2A20E,$E6BA0D99,$DE720C8C,$2DA2F728,
+    $D0127845,$95B794FD,$647D0862,$E7CCF5F0,$5449A36F,$877D48FA,$C39DFD27,$F33E8D1E,
+    $0A476341,$992EFF74,$3A6F6EAB,$F4F8FD37,$A812DC60,$A1EBDDF8,$991BE14C,$DB6E6B0D,
+    $C67B5510,$6D672C37,$2765D43B,$DCD0E804,$F1290DC7,$CC00FFA3,$B5390F92,$690FED0B,
+    $667B9FFB,$CEDB7D9C,$A091CF0B,$D9155EA3,$BB132F88,$515BAD24,$7B9479BF,$763BD6EB,
+    $37392EB3,$CC115979,$8026E297,$F42E312D,$6842ADA7,$C66A2B3B,$12754CCC,$782EF11C,
+    $6A124237,$B79251E7,$06A1BBE6,$4BFB6350,$1A6B1018,$11CAEDFA,$3D25BDD8,$E2E1C3C9,
+    $44421659,$0A121386,$D90CEC6E,$D5ABEA2A,$64AF674E,$DA86A85F,$BEBFE988,$64E4C3FE,
+    $9DBC8057,$F0F7C086,$60787BF8,$6003604D,$D1FD8346,$F6381FB0,$7745AE04,$D736FCCC,
+    $83426B33,$F01EAB71,$B0804187,$3C005E5F,$77A057BE,$BDE8AE24,$55464299,$BF582E61,
+    $4E58F48F,$F2DDFDA2,$F474EF38,$8789BDC2,$5366F9C3,$C8B38E74,$B475F255,$46FCD9B9,
+    $7AEB2661,$8B1DDF84,$846A0E79,$915F95E2,$466E598E,$20B45770,$8CD55591,$C902DE4C,
+    $B90BACE1,$BB8205D0,$11A86248,$7574A99E,$B77F19B6,$E0A9DC09,$662D09A1,$C4324633,
+    $E85A1F02,$09F0BE8C,$4A99A025,$1D6EFE10,$1AB93D1D,$0BA5A4DF,$A186F20F,$2868F169,
+    $DCB7DA83,$573906FE,$A1E2CE9B,$4FCD7F52,$50115E01,$A70683FA,$A002B5C4,$0DE6D027,
+    $9AF88C27,$773F8641,$C3604C06,$61A806B5,$F0177A28,$C0F586E0,$006058AA,$30DC7D62,
+    $11E69ED7,$2338EA63,$53C2DD94,$C2C21634,$BBCBEE56,$90BCB6DE,$EBFC7DA1,$CE591D76,
+    $6F05E409,$4B7C0188,$39720A3D,$7C927C24,$86E3725F,$724D9DB9,$1AC15BB4,$D39EB8FC,
+    $ED545578,$08FCA5B5,$D83D7CD3,$4DAD0FC4,$1E50EF5E,$B161E6F8,$A28514D9,$6C51133C,
+    $6FD5C7E7,$56E14EC4,$362ABFCE,$DDC6C837,$D79A3234,$92638212,$670EFA8E,$406000E0),
+   ($3A39CE37,$D3FAF5CF,$ABC27737,$5AC52D1B,$5CB0679E,$4FA33742,$D3822740,$99BC9BBE,
+    $D5118E9D,$BF0F7315,$D62D1C7E,$C700C47B,$B78C1B6B,$21A19045,$B26EB1BE,$6A366EB4,
+    $5748AB2F,$BC946E79,$C6A376D2,$6549C2C8,$530FF8EE,$468DDE7D,$D5730A1D,$4CD04DC6,
+    $2939BBDB,$A9BA4650,$AC9526E8,$BE5EE304,$A1FAD5F0,$6A2D519A,$63EF8CE2,$9A86EE22,
+    $C089C2B8,$43242EF6,$A51E03AA,$9CF2D0A4,$83C061BA,$9BE96A4D,$8FE51550,$BA645BD6,
+    $2826A2F9,$A73A3AE1,$4BA99586,$EF5562E9,$C72FEFD3,$F752F7DA,$3F046F69,$77FA0A59,
+    $80E4A915,$87B08601,$9B09E6AD,$3B3EE593,$E990FD5A,$9E34D797,$2CF0B7D9,$022B8B51,
+    $96D5AC3A,$017DA67D,$D1CF3ED6,$7C7D2D28,$1F9F25CF,$ADF2B89B,$5AD6B472,$5A88F54C,
+    $E029AC71,$E019A5E6,$47B0ACFD,$ED93FA9B,$E8D3C48D,$283B57CC,$F8D56629,$79132E28,
+    $785F0191,$ED756055,$F7960E44,$E3D35E8C,$15056DD4,$88F46DBA,$03A16125,$0564F0BD,
+    $C3EB9E15,$3C9057A2,$97271AEC,$A93A072A,$1B3F6D9B,$1E6321F5,$F59C66FB,$26DCF319,
+    $7533D928,$B155FDF5,$03563482,$8ABA3CBB,$28517711,$C20AD9F8,$ABCC5167,$CCAD925F,
+    $4DE81751,$3830DC8E,$379D5862,$9320F991,$EA7A90C2,$FB3E7BCE,$5121CE64,$774FBE32,
+    $A8B6E37E,$C3293D46,$48DE5369,$6413E680,$A2AE0810,$DD6DB224,$69852DFD,$09072166,
+    $B39A460A,$6445C0DD,$586CDECF,$1C20C8AE,$5BBEF7DD,$1B588D40,$CCD2017F,$6BB4E3BB,
+    $DDA26A7E,$3A59FF45,$3E350A44,$BCB4CDD5,$72EACEA8,$FA6484BB,$8D6612AE,$BF3C6F47,
+    $D29BE463,$542F5D9E,$AEC2771B,$F64E6370,$740E0D8D,$E75B1357,$F8721671,$AF537D5D,
+    $4040CB08,$4EB4E2CC,$34D2466A,$0115AF84,$E1B00428,$95983A1D,$06B89FB4,$CE6EA048,
+    $6F3F3B82,$3520AB82,$011A1D4B,$277227F8,$611560B1,$E7933FDC,$BB3A792B,$344525BD,
+    $A08839E1,$51CE794B,$2F32C9B7,$A01FBAC9,$E01CC87E,$BCC7D1F6,$CF0111C3,$A1E8AAC7,
+    $1A908749,$D44FBD9A,$D0DADECB,$D50ADA38,$0339C32A,$C6913667,$8DF9317C,$E0B12B4F,
+    $F79E59B7,$43F5BB3A,$F2D519FF,$27D9459C,$BF97222C,$15E6FC2A,$0F91FC71,$9B941525,
+    $FAE59361,$CEB69CEB,$C2A86459,$12BAA8D1,$B6C1075E,$E3056A0C,$10D25065,$CB03A442,
+    $E0EC6E0E,$1698DB3B,$4C98A0BE,$3278E964,$9F1F9532,$E0D392DF,$D3A0342B,$8971F21E,
+    $1B0A7441,$4BA3348C,$C5BE7120,$C37632D8,$DF359F8D,$9B992F2E,$E60B6F47,$0FE3F11D,
+    $E54CDA54,$1EDAD891,$CE6279CF,$CD3E7E6F,$1618B166,$FD2C1D05,$848FD2C5,$F6FB2299,
+    $F523F357,$A6327623,$93A83531,$56CCCD02,$ACF08162,$5A75EBB5,$6E163697,$88D273CC,
+    $DE966292,$81B949D0,$4C50901B,$71C65614,$E6C6C7BD,$327A140A,$45E1D006,$C3F27B9A,
+    $C9AA53FD,$62A80F00,$BB25BFE2,$35BDD2F6,$71126905,$B2040222,$B6CBCF7C,$CD769C2B,
+    $53113EC0,$1640E3D3,$38ABBD60,$2547ADF0,$BA38209C,$F746CE76,$77AFA1C5,$20756060,
+    $85CBFE4E,$8AE88DD8,$7AAAF9B0,$4CF9AA7E,$1948C25C,$02FB8A8C,$01C36AE4,$D6EBE1F9,
+    $90D4F869,$A65CDEA0,$3F09252D,$C208E69F,$B74E6132,$CE77E25B,$578FDFE3,$3AC372E6));
+
+  Blowfish_Key: array[0..17] of LongWord = (
+    $243F6A88,$85A308D3,$13198A2E,$03707344,$A4093822,$299F31D0,
+    $082EFA98,$EC4E6C89,$452821E6,$38D01377,$BE5466CF,$34E90C6C,
+    $C0AC29B7,$C97C50DD,$3F84D5B5,$B5470917,$9216D5D9,$8979FB1B);
+
+  Q128_Data: array[0..1023] of LongWord = (
+    $D6D92632,$5E84404D,$4F341282,$71654B06,$D48D6A0B,$245BECC4,$C8F84D80,$22C620C9,
+    $66AA8B02,$0AC697FF,$8B755A36,$2577931C,$438D17B6,$BB7B1BD1,$E0A8F51E,$F4FD583D,
+    $BECEEB95,$7945C1AE,$29CE9628,$3D7965CD,$80CFBDB9,$2F535A25,$7666A9BD,$6DF2324B,
+    $98731A06,$E4D32444,$265FAF55,$41895427,$F2D2C55E,$8151930F,$77A888A3,$9CBA9A32,
+    $A7EC629C,$55DCF904,$B35B9179,$1AB8E42E,$A0EF8027,$DB4C5CDE,$9FC2A9D3,$A9512439,
+    $9C08CB5C,$4BFD92B6,$C23EDA7F,$037833E1,$40177A91,$BAE53567,$774AD665,$3CB744D3,
+    $6E8A01AA,$65D2B8E3,$0507A12A,$EF69C3CB,$230801D7,$0BBAE78F,$62630B36,$ED6D805A,
+    $5AAF9EBF,$721D78E7,$D33CD9DE,$6618DA6C,$9DC6EA42,$0D272B82,$3559EF65,$DCFDEF0B,
+    $865271B4,$3621DC84,$885D667F,$92E58251,$2E9D7B3B,$E9165100,$99BD3B18,$B1ED8386,
+    $84563225,$446CABCB,$7E462315,$A2BBCC1E,$3BE4A9C0,$320A0276,$416B0AE1,$C6A755E3,
+    $5C8003DC,$36C38242,$97E2237B,$2AE6AA61,$8A5925EE,$3B56F8AE,$26BDF193,$96CE5CA3,
+    $E51D055A,$AD2AF563,$2B9ADA11,$9F70F8BD,$3F9F789A,$89934761,$A8CF0A8F,$C78B2A3B,
+    $8F5E84C4,$B8B1795E,$AFCCE834,$D9AA4189,$C28C8B11,$7636A615,$F2609430,$ECA3A144,
+    $7869BE76,$12C8612E,$D18ACB21,$CC61C21C,$EDDFD134,$AD7AFACB,$7F6A5CCD,$0C0B545A,
+    $584983E8,$04998F9C,$969E530B,$E21EE7E1,$FFF5EEDC,$FE3BCFC2,$97007DBD,$66FA84AA,
+    $A375ED00,$3509E0CD,$1B76C530,$70193B76,$86E020DA,$C9366C9E,$49F9D127,$AE52C682,
+    $260FA0FD,$E380C957,$CE358E25,$02044391,$AEB09844,$F31CE440,$F0D686CF,$8CC4E9E3,
+    $BE2CB553,$1E933ADC,$C312A5A7,$1D0957FB,$A1C3FFFF,$BD5486B2,$E8D8701E,$6E685F6C,
+    $1BC4945E,$062F9D63,$84063D8D,$C1F4B8F0,$A7BC6D34,$C4F319DA,$F81452A1,$4CAE7FA5,
+    $1DBB0695,$AA9B46B6,$6BDDAF28,$61F96611,$9A27563F,$C2DC84B9,$6530E625,$E7494963,
+    $6FF671DA,$B8532798,$C06A9646,$CC839CDA,$9EEED60B,$A70E3C5A,$F0868967,$02544C39,
+    $87CC5F02,$B3B9CFBF,$F6F91BAC,$DCADE0A3,$8B9704F0,$6CDE4D93,$64AEC893,$3E515984,
+    $7BF3D351,$3EB30742,$BE9EE43D,$B15FD2E8,$2C7B666C,$01CE211E,$3B06F706,$05E5FFEC,
+    $24E9BDAA,$FDA1A2E5,$E04AABD8,$E9A4006E,$019E2EB6,$8D0AC8FD,$73D359F9,$6A43819E,
+    $00500FA8,$DA302CAE,$C0D8C728,$62D15A58,$61A969B9,$1E216BB2,$0892DBC6,$3A7A8776,
+    $34259F15,$79A79F68,$F96822D1,$7F88020B,$AF9CE79C,$017C7070,$F8445D09,$EE15B3BB,
+    $E3629791,$20203D9E,$53413509,$25279CB4,$DF378D84,$8921160F,$A89F0527,$413B0549,
+    $AD98A40D,$FB8E3F86,$00000000,$D717072C,$E6353913,$ACB4DBD5,$1F0D146A,$C411471C,
+    $B9CD092E,$41D95B8F,$74D0BB42,$86027E1C,$DA827DC0,$57D8BA95,$12986E86,$9BB97889,
+    $C9843DF0,$122A3FE8,$556EA86A,$D8346F3F,$693BB27F,$53113AA1,$2850B89E,$0CE90A9C,
+    $FB3C6EE8,$7A6DFDE7,$917FEF76,$2A54FB0F,$E2ACB68F,$E4832BEC,$2E7F25FD,$110203A1,
+    $AACB491E,$18ECA817,$9E5C8765,$14B7F3E5,$C146E99E,$2E2F2A55,$47A6C944,$23BA50B9,
+    $D2F2F8C0,$FBDE302E,$A494517D,$B5740C1A,$72AF2989,$EE45BC13,$03283C49,$6FA67E72,
+    $F767351A,$1A5ABAE8,$197286A1,$E71946CB,$0F7367BB,$DD33CE15,$31C060F9,$67D6FB72,
+    $AEE097EC,$28E2E9F0,$E7AB17A5,$BA076BA1,$2595CDDA,$D43F3B65,$25C5C272,$C81A1346,
+    $177D916A,$9B5B264F,$E166D400,$9EBED9A3,$7EF4727B,$611B38D7,$5DFC73AC,$0C5B5BF2,
+    $8DE8963B,$C7DB2593,$31223E3F,$D7470884,$606748A7,$FFA5E174,$F3FEBA86,$40F52457,
+    $A3C7BC6E,$DC4FBE65,$6233049E,$C26ED5D7,$4F8643EC,$468AB69C,$53A36BCF,$558CF6AC,
+    $95043E2C,$1B26CA98,$4867FF91,$85C81C93,$B60C3FFB,$897119A7,$4AD1ED6E,$7480B4EA,
+    $0BEAE827,$D0F6BB51,$58198C40,$6989E311,$5F1A6EFB,$696BBDD7,$6847C20F,$6C6C1CFD,
+    $1EC33574,$F64B4AC2,$F41F06FB,$00B2516E,$644C9655,$8C94E64B,$6648D5C4,$A2EBC3B6,
+    $4C1C2ECB,$F7856BDC,$7ADFAC89,$4837F039,$AE02C92A,$35BBB1A3,$E461752A,$F7D56474,
+    $D210A606,$718715C0,$A4C45ED5,$BAB53ACF,$1C252823,$CB807E61,$CDAFE302,$AA791870,
+    $0B58B949,$A00DDEE1,$60D519C9,$E1848AC6,$D9481F4F,$F148A879,$64FEC73B,$3C551A15,
+    $E5AF5434,$4D605EBB,$A55A7063,$3C0515BD,$1DEB093D,$0D957AEC,$3EE308EA,$CCD39372,
+    $D38E88B0,$FA401E98,$8F0E8B6C,$B023A298,$9207DC97,$7C126F2C,$D8863E51,$CD4DBDC4,
+    $382ECB4F,$6A138E36,$631F7B46,$19228909,$1C75278B,$50DB582E,$90039F06,$A9B37AFF,
+    $06CDC3A5,$210C4246,$8FECD5AA,$B227E109,$3D9B3B0B,$B92F57E8,$23EA5F11,$7839B1DE,
+    $CAAC01B9,$127A3040,$F282CAF6,$9A950751,$8E22F4B4,$FC6F83FB,$56F4C54D,$BCCAA804,
+    $0F91397D,$60851661,$807DECD7,$EADC338F,$51457698,$9F20F715,$E4317A82,$D7A55642,
+    $F2309B98,$3F2D29F4,$EB121291,$DBAE0218,$99ED34B0,$FD13F38B,$91CDBE18,$C9666336,
+    $7B118D97,$042BDEF2,$ED3D8FF2,$179FCFAC,$63AD2A28,$32B85318,$CDFFECAA,$724D774F,
+    $21EE1C80,$42A1686E,$2A04F4A7,$95B66F42,$DE4BFDF4,$D240A9AE,$4A81E2C6,$A82D5449,
+    $7D3E10F4,$614B377F,$FAA2405E,$3FCF7732,$90B1CE68,$FC8DDD3D,$8DB89993,$16E3BFDC,
+    $B30B9ED1,$8229A0EE,$4EAA3C34,$B10FDD40,$56A4CAE5,$84E4634B,$D16895E7,$6E3850C4,
+    $95543184,$58ABDD2E,$BE7CBAFB,$C8A84228,$DAD27268,$DB1C5376,$71D71A68,$BDB6D874,
+    $EBF04C57,$DFD5D342,$852A4255,$D66B775C,$B4087C6A,$CBD071C9,$EB421D39,$DD819F7B,
+    $4FD64C44,$305E4E4F,$7D8C419A,$D014E597,$DEA9A332,$1C97794D,$45A28AD5,$628155F0,
+    $912FE0DE,$43DD181E,$FAF24FF6,$4EFA339C,$9399F221,$0EED490D,$B4BA2D04,$A193F057,
+    $942841F4,$E136DBA8,$E7FB180D,$F5337923,$30BC1089,$BC9AA7AC,$CFFBAF3B,$6560E98D,
+    $33942CC0,$0A969857,$5788B53D,$20703236,$31906F51,$A75E33F2,$5987A2F6,$6B3FF1EE,
+    $C5DF6602,$A25992D8,$6AF1D0F0,$1651EEB2,$5FA83F95,$D8D631F9,$788BE0B0,$B6BE6E95,
+    $A121A139,$19C0D7CF,$095CFAD8,$09BEA41E,$872E01C4,$C7397B55,$990F6A76,$1601E11A,
+    $17CFC004,$3BB4A668,$8ABB7B28,$809FB211,$94CA1F32,$B277EEA1,$CFABA093,$5965FC30,
+    $9AC508F9,$7F3A5365,$EF8B9D0D,$37EFFD9A,$949A109A,$9F92A67B,$90E1C1C0,$F8F60C67,
+    $8A092A46,$F8A603CF,$F9382D79,$6F142F1C,$5AFF9117,$ACE4D47D,$FE899EAC,$13564F98,
+    $D2A2F768,$76D4F8D3,$A2099D70,$08C2D46E,$42133900,$07E1BC7D,$F4AD5795,$EEF7ED7D,
+    $932BA34F,$33267DAE,$CAFC0E11,$2FB104E3,$503906E8,$172D9EC2,$F61B456A,$6EDA0E02,
+    $4E4862F2,$C56D376C,$526D4AD1,$E9465EA8,$448EF50D,$EA3E6D49,$3952BB3F,$2ECD7493,
+    $AC068ABB,$59D7AD5E,$877E0E6C,$A397B3C6,$069DCC0D,$D63B78F4,$7CF031EA,$180EF6D1,
+    $CA1E50D7,$DF85DCEA,$8C76B88D,$EA6E62E1,$090CF570,$E54D0AF2,$B2C5BFCF,$14E7FC4D,
+    $B7204023,$7EA47DD3,$52DF1BBF,$6582B74B,$ECF3AEEC,$C03A99EE,$7E162CBD,$3A98D9B0,
+    $0DC57544,$A325E2A8,$D5434B15,$E687687D,$6817CDA7,$6D406325,$4714982A,$102E7C79,
+    $BC28F6C2,$78DBEF18,$2AB6A5C9,$C3A0F4C9,$7D6E1F5C,$9C58C4F4,$82CBFE28,$21BE1328,
+    $576AEBFB,$8E72FB1C,$A6724C2A,$4638E7F2,$2B7884D7,$40477539,$5442D7B2,$EA8C3C27,
+    $1455AD23,$2773D08D,$387EC4E7,$3AC8D618,$4B4FC3D8,$18BCA7BF,$83B78E58,$53F36467,
+    $2723DF25,$4C4C2163,$8598133B,$1FBF4504,$2FE10B4B,$297CC746,$46DAB934,$56469423,
+    $641C99FD,$4CFE700D,$8B25559E,$5D1E2D6A,$BC78F96A,$24B9B202,$EF39CC63,$C116E636,
+    $989144C0,$EFDB92A5,$5D4E22C2,$68A59CC9,$77F8870B,$7A3DF24F,$7CA03E42,$FD43FC23,
+    $70FB65B0,$905390AE,$443CA463,$6D106C8D,$1529DD53,$38CC9589,$5935F398,$2F03558D,
+    $B8E176F6,$B073AD30,$5E661E8B,$11520C09,$573AE453,$8C26B725,$DDD190D3,$97507215,
+    $27C181E3,$0557AE82,$F3AEB52E,$D51344BD,$9D96E5EA,$42F167C6,$A6C01D44,$982315AE,
+    $2B288B7F,$A171AE91,$97B22CD3,$919DB1B0,$13B4115E,$7684F77B,$C342AA0F,$08208AA8,
+    $08708500,$E5FF5B9C,$4E186D5A,$2800B736,$D5A115D3,$C4A31672,$159B8C3D,$FE6BC06A,
+    $967C0DCD,$07B1B3D5,$433F46D8,$E8887FB6,$4668E85A,$45F2857D,$2BCAD5B9,$D4DD65A3,
+    $72FF2621,$B99D0686,$8EC0AA72,$2DE548DA,$E01AA470,$8355D09E,$5E361123,$E66536BB,
+    $5F4A6153,$5DAC7C04,$23580E7F,$B52403B2,$93C9FD89,$B6EE613D,$C6F75A4B,$3A2A88DE,
+    $70AB6A18,$4D305113,$C3F0FB61,$22247E0F,$49A9DE8F,$8D5AC755,$95E660EA,$C088C880,
+    $C6450B25,$F7373AB2,$F1AAF6BF,$3CE74B7B,$FDF1AD4D,$634F74EE,$ABE736C6,$436F4970,
+    $4A63BC00,$94784E5C,$27918E4B,$300E41E7,$9BE97721,$DBFE0DB0,$ED8FDE9C,$81E3C261,
+    $FED99104,$33C42368,$5ED44FE5,$0753ED13,$47F6C6EC,$704934DE,$2CC93702,$02B612FF,
+    $3F7D265C,$A4760FBB,$1A0AB540,$09EEABB6,$ADC8ABA5,$13E41EF6,$88BF38B9,$D91810E7,
+    $523D4579,$6734A5B4,$370DA35C,$DC1FB1CD,$04C98034,$2DB54772,$4DD20FD5,$86B02F72,
+    $BB994517,$D044EA3F,$D1DAC489,$4885A157,$3902B497,$C1A4B758,$0FC136D5,$FF17B01A,
+    $5B83E167,$7A8FA321,$1579D2FB,$EBA043FF,$50690940,$802DE37F,$A6224382,$6B8DA080,
+    $0A74C691,$7432E584,$528F1417,$A5E8210D,$88EF3711,$9A775997,$0CB90534,$292CC8EE,
+    $47449782,$20C26358,$C615048D,$AA2917D8,$494B8049,$84B46CE3,$73610897,$7BA3DCF9,
+    $4510DBBB,$68F59361,$8279AF46,$BD04891A,$CE87DF4B,$553EA7C2,$CB322F0F,$5C625D1A,
+    $4F641D2A,$325A0DDE,$A50A7FCB,$11B052CF,$1D595853,$F563768B,$98C14B68,$3D296A65,
+    $DE1BF25C,$3671D32C,$E3329839,$F581284D,$37BFF232,$DEF9AC9A,$8E90A5DA,$754E95F4,
+    $5B31B009,$B4EA22AC,$713544AE,$CE65818D,$067F92CB,$39E0EA51,$B0C1FC5E,$C84A1CEE,
+    $6AA1DF58,$E9F40FC6,$F1FAF917,$13064030,$05B5F044,$424336A8,$0A24C939,$C44148B4,
+    $6F4420B4,$047BD15A,$39B0E5F9,$8BC70B58,$0E5F1863,$D1389A4F,$AF2EB6F2,$C9D43258,
+    $107E73D1,$89C348C9,$9CEA959A,$11E05D67,$BB2B1479,$73835651,$F34CEBE8,$D36CD676,
+    $4540D413,$5CD00C74,$31723197,$EEA7E2D5,$0F236813,$81B3CDC9,$7FD80DA3,$D7F559EA,
+    $03CA628F,$3DCB34A3,$33767206,$2C2B69C4,$51F727F6,$829BF180,$039A6D27,$56169B8B,
+    $4D82007D,$9D24B484,$BDE6D7DC,$389C9A21,$69D9ECB9,$B792114D,$44DEFAA5,$8FBCDA02,
+    $92B58DF9,$962C0265,$CF19F1FD,$7462EA2C,$227471A7,$C53D38C4,$9257D33F,$32E85CB0,
+    $ABB7396E,$30EC1F21,$58FBD286,$5B61BFA1,$240BE36C,$B7704F8B,$A69012EC,$1F5D1BC2,
+    $8305DF36,$299E9980,$5FF8303D,$C58F69AA,$7DDC4E32,$E6D767D5,$880D69D7,$D46F34CD,
+    $FF47BFB2,$22962F61,$A9E37557,$FA101130,$83E781F0,$CF49FE55,$FCDDD295,$2D07161C,
+    $E83A2ED8,$CA4E5F7F,$75FCC49A,$7915CE06,$54F086DC,$A9012B91,$0EBD46A5,$DF67822C,
+    $D9FA4E21,$AF7EB95A,$81019CA7,$F118A7D1,$00E25EC6,$9B0B29E7,$E2FCB927,$EC11F02A,
+    $857A4DFD,$3497CE7B,$1B949BF6,$9D74BB2C,$CC31CDB4,$E3D0C6FF,$BF00CA8B,$36938DEA,
+    $16B3B074,$CED7D0E3,$6037470F,$CD1DB26C,$6DA23DE3,$BBC94ABF,$5A1DCFD1,$C76974FD,
+    $A05DD149,$F034D809,$A4260013,$B091F3F6,$A5B82EA5,$6786F4DA,$4BAD9D1E,$1E71641A,
+    $B59652DC,$BA576409,$B1BD8C2E,$2D5719B4,$7331073F,$AC568513,$B97F5840,$BF50C523,
+    $0703E2BB,$6764AA1C,$20926CF0,$012C7FD8,$1CC776E5,$9E0C88CD,$995F65DE,$F44F0953,
+    $E86A2170,$1FEF4AAC,$7C426084,$771AD9CD,$2C9938AA,$B8032830,$4A33B3A8,$751E9A5C,
+    $DD63C1BD,$79F790C0,$51157930,$D5F11A7B,$D8646097,$CB6220A7,$D689299A,$879C50AA,
+    $B7C21EE5,$4B1FCC70,$0B08B6E1,$28B2E658,$B295B067,$AB056800,$75ACCB32,$BFB29BE5,
+    $F5D127E5,$6C8E423B,$6B6FFE46,$215C4DEE,$F9DA73BF,$7B41823F,$48D5AEFF,$1405A28B,
+    $BFE2944D,$347590BD,$B45873C2,$B65C3053,$A0BF8F8F,$937BACE7,$1AE8EB86,$40A52BFF,
+    $E24EE849,$D3DE8718,$6C3C1355,$1990D867,$54A08974,$375DACF4,$508B5786,$63FD2580,
+    $F98A7C17,$34C7C1D3,$D0A6B4F9,$3E01562C,$185EF979,$5412D81A,$B5C65D74,$26EDFE3B,
+    $35EBBE0B,$02E61D57,$15CB8395,$0E0F17CB,$FC3F8C53,$5A4DC079,$E0F8FAB6,$5BD3EECF,
+    $E1D4856E,$8AEB7480,$5C3252B2,$AB5567A8,$FB6C6140,$B3E9C017,$EC41FF82,$F064D7A1,
+    $491B8FE1,$A87D5BE1,$10CC22BF,$F6A91404,$0D77242A,$DA602306,$51A7285E,$109C2D17);
+
+  Twofish_8x8: array[0..1, 0..255] of Byte = (
+   ($A9,$67,$B3,$E8,$04,$FD,$A3,$76,$9A,$92,$80,$78,$E4,$DD,$D1,$38,
+    $0D,$C6,$35,$98,$18,$F7,$EC,$6C,$43,$75,$37,$26,$FA,$13,$94,$48,
+    $F2,$D0,$8B,$30,$84,$54,$DF,$23,$19,$5B,$3D,$59,$F3,$AE,$A2,$82,
+    $63,$01,$83,$2E,$D9,$51,$9B,$7C,$A6,$EB,$A5,$BE,$16,$0C,$E3,$61,
+    $C0,$8C,$3A,$F5,$73,$2C,$25,$0B,$BB,$4E,$89,$6B,$53,$6A,$B4,$F1,
+    $E1,$E6,$BD,$45,$E2,$F4,$B6,$66,$CC,$95,$03,$56,$D4,$1C,$1E,$D7,
+    $FB,$C3,$8E,$B5,$E9,$CF,$BF,$BA,$EA,$77,$39,$AF,$33,$C9,$62,$71,
+    $81,$79,$09,$AD,$24,$CD,$F9,$D8,$E5,$C5,$B9,$4D,$44,$08,$86,$E7,
+    $A1,$1D,$AA,$ED,$06,$70,$B2,$D2,$41,$7B,$A0,$11,$31,$C2,$27,$90,
+    $20,$F6,$60,$FF,$96,$5C,$B1,$AB,$9E,$9C,$52,$1B,$5F,$93,$0A,$EF,
+    $91,$85,$49,$EE,$2D,$4F,$8F,$3B,$47,$87,$6D,$46,$D6,$3E,$69,$64,
+    $2A,$CE,$CB,$2F,$FC,$97,$05,$7A,$AC,$7F,$D5,$1A,$4B,$0E,$A7,$5A,
+    $28,$14,$3F,$29,$88,$3C,$4C,$02,$B8,$DA,$B0,$17,$55,$1F,$8A,$7D,
+    $57,$C7,$8D,$74,$B7,$C4,$9F,$72,$7E,$15,$22,$12,$58,$07,$99,$34,
+    $6E,$50,$DE,$68,$65,$BC,$DB,$F8,$C8,$A8,$2B,$40,$DC,$FE,$32,$A4,
+    $CA,$10,$21,$F0,$D3,$5D,$0F,$00,$6F,$9D,$36,$42,$4A,$5E,$C1,$E0),
+   ($75,$F3,$C6,$F4,$DB,$7B,$FB,$C8,$4A,$D3,$E6,$6B,$45,$7D,$E8,$4B,
+    $D6,$32,$D8,$FD,$37,$71,$F1,$E1,$30,$0F,$F8,$1B,$87,$FA,$06,$3F,
+    $5E,$BA,$AE,$5B,$8A,$00,$BC,$9D,$6D,$C1,$B1,$0E,$80,$5D,$D2,$D5,
+    $A0,$84,$07,$14,$B5,$90,$2C,$A3,$B2,$73,$4C,$54,$92,$74,$36,$51,
+    $38,$B0,$BD,$5A,$FC,$60,$62,$96,$6C,$42,$F7,$10,$7C,$28,$27,$8C,
+    $13,$95,$9C,$C7,$24,$46,$3B,$70,$CA,$E3,$85,$CB,$11,$D0,$93,$B8,
+    $A6,$83,$20,$FF,$9F,$77,$C3,$CC,$03,$6F,$08,$BF,$40,$E7,$2B,$E2,
+    $79,$0C,$AA,$82,$41,$3A,$EA,$B9,$E4,$9A,$A4,$97,$7E,$DA,$7A,$17,
+    $66,$94,$A1,$1D,$3D,$F0,$DE,$B3,$0B,$72,$A7,$1C,$EF,$D1,$53,$3E,
+    $8F,$33,$26,$5F,$EC,$76,$2A,$49,$81,$88,$EE,$21,$C4,$1A,$EB,$D9,
+    $C5,$39,$99,$CD,$AD,$31,$8B,$01,$18,$23,$DD,$1F,$4E,$2D,$F9,$48,
+    $4F,$F2,$65,$8E,$78,$5C,$58,$19,$8D,$E5,$98,$57,$67,$7F,$05,$64,
+    $AF,$63,$B6,$FE,$F5,$B7,$3C,$A5,$CE,$E9,$68,$44,$E0,$4D,$43,$69,
+    $29,$2E,$AC,$15,$59,$A8,$0A,$9E,$6E,$47,$DF,$34,$35,$6A,$CF,$DC,
+    $22,$C9,$C0,$9B,$89,$D4,$ED,$AB,$12,$A2,$0D,$52,$BB,$02,$2F,$A9,
+    $D7,$61,$1E,$B4,$50,$04,$F6,$C2,$16,$25,$86,$56,$55,$09,$BE,$91));
+
+  Twofish_Data: array[0..3, 0..255] of LongWord = (
+  ($BCBC3275,$ECEC21F3,$202043C6,$B3B3C9F4,$DADA03DB,$02028B7B,$E2E22BFB,$9E9EFAC8,
+   $C9C9EC4A,$D4D409D3,$18186BE6,$1E1E9F6B,$98980E45,$B2B2387D,$A6A6D2E8,$2626B74B,
+   $3C3C57D6,$93938A32,$8282EED8,$525298FD,$7B7BD437,$BBBB3771,$5B5B97F1,$474783E1,
+   $24243C30,$5151E20F,$BABAC6F8,$4A4AF31B,$BFBF4887,$0D0D70FA,$B0B0B306,$7575DE3F,
+   $D2D2FD5E,$7D7D20BA,$666631AE,$3A3AA35B,$59591C8A,$00000000,$CDCD93BC,$1A1AE09D,
+   $AEAE2C6D,$7F7FABC1,$2B2BC7B1,$BEBEB90E,$E0E0A080,$8A8A105D,$3B3B52D2,$6464BAD5,
+   $D8D888A0,$E7E7A584,$5F5FE807,$1B1B1114,$2C2CC2B5,$FCFCB490,$3131272C,$808065A3,
+   $73732AB2,$0C0C8173,$79795F4C,$6B6B4154,$4B4B0292,$53536974,$94948F36,$83831F51,
+   $2A2A3638,$C4C49CB0,$2222C8BD,$D5D5F85A,$BDBDC3FC,$48487860,$FFFFCE62,$4C4C0796,
+   $4141776C,$C7C7E642,$EBEB24F7,$1C1C1410,$5D5D637C,$36362228,$6767C027,$E9E9AF8C,
+   $4444F913,$1414EA95,$F5F5BB9C,$CFCF18C7,$3F3F2D24,$C0C0E346,$7272DB3B,$54546C70,
+   $29294CCA,$F0F035E3,$0808FE85,$C6C617CB,$F3F34F11,$8C8CE4D0,$A4A45993,$CACA96B8,
+   $68683BA6,$B8B84D83,$38382820,$E5E52EFF,$ADAD569F,$0B0B8477,$C8C81DC3,$9999FFCC,
+   $5858ED03,$19199A6F,$0E0E0A08,$95957EBF,$70705040,$F7F730E7,$6E6ECF2B,$1F1F6EE2,
+   $B5B53D79,$09090F0C,$616134AA,$57571682,$9F9F0B41,$9D9D803A,$111164EA,$2525CDB9,
+   $AFAFDDE4,$4545089A,$DFDF8DA4,$A3A35C97,$EAEAD57E,$353558DA,$EDEDD07A,$4343FC17,
+   $F8F8CB66,$FBFBB194,$3737D3A1,$FAFA401D,$C2C2683D,$B4B4CCF0,$32325DDE,$9C9C71B3,
+   $5656E70B,$E3E3DA72,$878760A7,$15151B1C,$F9F93AEF,$6363BFD1,$3434A953,$9A9A853E,
+   $B1B1428F,$7C7CD133,$88889B26,$3D3DA65F,$A1A1D7EC,$E4E4DF76,$8181942A,$91910149,
+   $0F0FFB81,$EEEEAA88,$161661EE,$D7D77321,$9797F5C4,$A5A5A81A,$FEFE3FEB,$6D6DB5D9,
+   $7878AEC5,$C5C56D39,$1D1DE599,$7676A4CD,$3E3EDCAD,$CBCB6731,$B6B6478B,$EFEF5B01,
+   $12121E18,$6060C523,$6A6AB0DD,$4D4DF61F,$CECEE94E,$DEDE7C2D,$55559DF9,$7E7E5A48,
+   $2121B24F,$03037AF2,$A0A02665,$5E5E198E,$5A5A6678,$65654B5C,$62624E58,$FDFD4519,
+   $0606F48D,$404086E5,$F2F2BE98,$3333AC57,$17179067,$05058E7F,$E8E85E05,$4F4F7D64,
+   $89896AAF,$10109563,$74742FB6,$0A0A75FE,$5C5C92F5,$9B9B74B7,$2D2D333C,$3030D6A5,
+   $2E2E49CE,$494989E9,$46467268,$77775544,$A8A8D8E0,$9696044D,$2828BD43,$A9A92969,
+   $D9D97929,$8686912E,$D1D187AC,$F4F44A15,$8D8D1559,$D6D682A8,$B9B9BC0A,$42420D9E,
+   $F6F6C16E,$2F2FB847,$DDDD06DF,$23233934,$CCCC6235,$F1F1C46A,$C1C112CF,$8585EBDC,
+   $8F8F9E22,$7171A1C9,$9090F0C0,$AAAA539B,$0101F189,$8B8BE1D4,$4E4E8CED,$8E8E6FAB,
+   $ABABA212,$6F6F3EA2,$E6E6540D,$DBDBF252,$92927BBB,$B7B7B602,$6969CA2F,$3939D9A9,
+   $D3D30CD7,$A7A72361,$A2A2AD1E,$C3C399B4,$6C6C4450,$07070504,$04047FF6,$272746C2,
+   $ACACA716,$D0D07625,$50501386,$DCDCF756,$84841A55,$E1E15109,$7A7A25BE,$1313EF91),
+  ($A9D93939,$67901717,$B3719C9C,$E8D2A6A6,$04050707,$FD985252,$A3658080,$76DFE4E4,
+   $9A084545,$92024B4B,$80A0E0E0,$78665A5A,$E4DDAFAF,$DDB06A6A,$D1BF6363,$38362A2A,
+   $0D54E6E6,$C6432020,$3562CCCC,$98BEF2F2,$181E1212,$F724EBEB,$ECD7A1A1,$6C774141,
+   $43BD2828,$7532BCBC,$37D47B7B,$269B8888,$FA700D0D,$13F94444,$94B1FBFB,$485A7E7E,
+   $F27A0303,$D0E48C8C,$8B47B6B6,$303C2424,$84A5E7E7,$54416B6B,$DF06DDDD,$23C56060,
+   $1945FDFD,$5BA33A3A,$3D68C2C2,$59158D8D,$F321ECEC,$AE316666,$A23E6F6F,$82165757,
+   $63951010,$015BEFEF,$834DB8B8,$2E918686,$D9B56D6D,$511F8383,$9B53AAAA,$7C635D5D,
+   $A63B6868,$EB3FFEFE,$A5D63030,$BE257A7A,$16A7ACAC,$0C0F0909,$E335F0F0,$6123A7A7,
+   $C0F09090,$8CAFE9E9,$3A809D9D,$F5925C5C,$73810C0C,$2C273131,$2576D0D0,$0BE75656,
+   $BB7B9292,$4EE9CECE,$89F10101,$6B9F1E1E,$53A93434,$6AC4F1F1,$B499C3C3,$F1975B5B,
+   $E1834747,$E66B1818,$BDC82222,$450E9898,$E26E1F1F,$F4C9B3B3,$B62F7474,$66CBF8F8,
+   $CCFF9999,$95EA1414,$03ED5858,$56F7DCDC,$D4E18B8B,$1C1B1515,$1EADA2A2,$D70CD3D3,
+   $FB2BE2E2,$C31DC8C8,$8E195E5E,$B5C22C2C,$E9894949,$CF12C1C1,$BF7E9595,$BA207D7D,
+   $EA641111,$77840B0B,$396DC5C5,$AF6A8989,$33D17C7C,$C9A17171,$62CEFFFF,$7137BBBB,
+   $81FB0F0F,$793DB5B5,$0951E1E1,$ADDC3E3E,$242D3F3F,$CDA47676,$F99D5555,$D8EE8282,
+   $E5864040,$C5AE7878,$B9CD2525,$4D049696,$44557777,$080A0E0E,$86135050,$E730F7F7,
+   $A1D33737,$1D40FAFA,$AA346161,$ED8C4E4E,$06B3B0B0,$706C5454,$B22A7373,$D2523B3B,
+   $410B9F9F,$7B8B0202,$A088D8D8,$114FF3F3,$3167CBCB,$C2462727,$27C06767,$90B4FCFC,
+   $20283838,$F67F0404,$60784848,$FF2EE5E5,$96074C4C,$5C4B6565,$B1C72B2B,$AB6F8E8E,
+   $9E0D4242,$9CBBF5F5,$52F2DBDB,$1BF34A4A,$5FA63D3D,$9359A4A4,$0ABCB9B9,$EF3AF9F9,
+   $91EF1313,$85FE0808,$49019191,$EE611616,$2D7CDEDE,$4FB22121,$8F42B1B1,$3BDB7272,
+   $47B82F2F,$8748BFBF,$6D2CAEAE,$46E3C0C0,$D6573C3C,$3E859A9A,$6929A9A9,$647D4F4F,
+   $2A948181,$CE492E2E,$CB17C6C6,$2FCA6969,$FCC3BDBD,$975CA3A3,$055EE8E8,$7AD0EDED,
+   $AC87D1D1,$7F8E0505,$D5BA6464,$1AA8A5A5,$4BB72626,$0EB9BEBE,$A7608787,$5AF8D5D5,
+   $28223636,$14111B1B,$3FDE7575,$2979D9D9,$88AAEEEE,$3C332D2D,$4C5F7979,$02B6B7B7,
+   $B896CACA,$DA583535,$B09CC4C4,$17FC4343,$551A8484,$1FF64D4D,$8A1C5959,$7D38B2B2,
+   $57AC3333,$C718CFCF,$8DF40606,$74695353,$B7749B9B,$C4F59797,$9F56ADAD,$72DAE3E3,
+   $7ED5EAEA,$154AF4F4,$229E8F8F,$12A2ABAB,$584E6262,$07E85F5F,$99E51D1D,$34392323,
+   $6EC1F6F6,$50446C6C,$DE5D3232,$68724646,$6526A0A0,$BC93CDCD,$DB03DADA,$F8C6BABA,
+   $C8FA9E9E,$A882D6D6,$2BCF6E6E,$40507070,$DCEB8585,$FE750A0A,$328A9393,$A48DDFDF,
+   $CA4C2929,$10141C1C,$2173D7D7,$F0CCB4B4,$D309D4D4,$5D108A8A,$0FE25151,$00000000,
+   $6F9A1919,$9DE01A1A,$368F9494,$42E6C7C7,$4AECC9C9,$5EFDD2D2,$C1AB7F7F,$E0D8A8A8),
+  ($BC75BC32,$ECF3EC21,$20C62043,$B3F4B3C9,$DADBDA03,$027B028B,$E2FBE22B,$9EC89EFA,
+   $C94AC9EC,$D4D3D409,$18E6186B,$1E6B1E9F,$9845980E,$B27DB238,$A6E8A6D2,$264B26B7,
+   $3CD63C57,$9332938A,$82D882EE,$52FD5298,$7B377BD4,$BB71BB37,$5BF15B97,$47E14783,
+   $2430243C,$510F51E2,$BAF8BAC6,$4A1B4AF3,$BF87BF48,$0DFA0D70,$B006B0B3,$753F75DE,
+   $D25ED2FD,$7DBA7D20,$66AE6631,$3A5B3AA3,$598A591C,$00000000,$CDBCCD93,$1A9D1AE0,
+   $AE6DAE2C,$7FC17FAB,$2BB12BC7,$BE0EBEB9,$E080E0A0,$8A5D8A10,$3BD23B52,$64D564BA,
+   $D8A0D888,$E784E7A5,$5F075FE8,$1B141B11,$2CB52CC2,$FC90FCB4,$312C3127,$80A38065,
+   $73B2732A,$0C730C81,$794C795F,$6B546B41,$4B924B02,$53745369,$9436948F,$8351831F,
+   $2A382A36,$C4B0C49C,$22BD22C8,$D55AD5F8,$BDFCBDC3,$48604878,$FF62FFCE,$4C964C07,
+   $416C4177,$C742C7E6,$EBF7EB24,$1C101C14,$5D7C5D63,$36283622,$672767C0,$E98CE9AF,
+   $441344F9,$149514EA,$F59CF5BB,$CFC7CF18,$3F243F2D,$C046C0E3,$723B72DB,$5470546C,
+   $29CA294C,$F0E3F035,$088508FE,$C6CBC617,$F311F34F,$8CD08CE4,$A493A459,$CAB8CA96,
+   $68A6683B,$B883B84D,$38203828,$E5FFE52E,$AD9FAD56,$0B770B84,$C8C3C81D,$99CC99FF,
+   $580358ED,$196F199A,$0E080E0A,$95BF957E,$70407050,$F7E7F730,$6E2B6ECF,$1FE21F6E,
+   $B579B53D,$090C090F,$61AA6134,$57825716,$9F419F0B,$9D3A9D80,$11EA1164,$25B925CD,
+   $AFE4AFDD,$459A4508,$DFA4DF8D,$A397A35C,$EA7EEAD5,$35DA3558,$ED7AEDD0,$431743FC,
+   $F866F8CB,$FB94FBB1,$37A137D3,$FA1DFA40,$C23DC268,$B4F0B4CC,$32DE325D,$9CB39C71,
+   $560B56E7,$E372E3DA,$87A78760,$151C151B,$F9EFF93A,$63D163BF,$345334A9,$9A3E9A85,
+   $B18FB142,$7C337CD1,$8826889B,$3D5F3DA6,$A1ECA1D7,$E476E4DF,$812A8194,$91499101,
+   $0F810FFB,$EE88EEAA,$16EE1661,$D721D773,$97C497F5,$A51AA5A8,$FEEBFE3F,$6DD96DB5,
+   $78C578AE,$C539C56D,$1D991DE5,$76CD76A4,$3EAD3EDC,$CB31CB67,$B68BB647,$EF01EF5B,
+   $1218121E,$602360C5,$6ADD6AB0,$4D1F4DF6,$CE4ECEE9,$DE2DDE7C,$55F9559D,$7E487E5A,
+   $214F21B2,$03F2037A,$A065A026,$5E8E5E19,$5A785A66,$655C654B,$6258624E,$FD19FD45,
+   $068D06F4,$40E54086,$F298F2BE,$335733AC,$17671790,$057F058E,$E805E85E,$4F644F7D,
+   $89AF896A,$10631095,$74B6742F,$0AFE0A75,$5CF55C92,$9BB79B74,$2D3C2D33,$30A530D6,
+   $2ECE2E49,$49E94989,$46684672,$77447755,$A8E0A8D8,$964D9604,$284328BD,$A969A929,
+   $D929D979,$862E8691,$D1ACD187,$F415F44A,$8D598D15,$D6A8D682,$B90AB9BC,$429E420D,
+   $F66EF6C1,$2F472FB8,$DDDFDD06,$23342339,$CC35CC62,$F16AF1C4,$C1CFC112,$85DC85EB,
+   $8F228F9E,$71C971A1,$90C090F0,$AA9BAA53,$018901F1,$8BD48BE1,$4EED4E8C,$8EAB8E6F,
+   $AB12ABA2,$6FA26F3E,$E60DE654,$DB52DBF2,$92BB927B,$B702B7B6,$692F69CA,$39A939D9,
+   $D3D7D30C,$A761A723,$A21EA2AD,$C3B4C399,$6C506C44,$07040705,$04F6047F,$27C22746,
+   $AC16ACA7,$D025D076,$50865013,$DC56DCF7,$8455841A,$E109E151,$7ABE7A25,$139113EF),
+  ($D939A9D9,$90176790,$719CB371,$D2A6E8D2,$05070405,$9852FD98,$6580A365,$DFE476DF,
+   $08459A08,$024B9202,$A0E080A0,$665A7866,$DDAFE4DD,$B06ADDB0,$BF63D1BF,$362A3836,
+   $54E60D54,$4320C643,$62CC3562,$BEF298BE,$1E12181E,$24EBF724,$D7A1ECD7,$77416C77,
+   $BD2843BD,$32BC7532,$D47B37D4,$9B88269B,$700DFA70,$F94413F9,$B1FB94B1,$5A7E485A,
+   $7A03F27A,$E48CD0E4,$47B68B47,$3C24303C,$A5E784A5,$416B5441,$06DDDF06,$C56023C5,
+   $45FD1945,$A33A5BA3,$68C23D68,$158D5915,$21ECF321,$3166AE31,$3E6FA23E,$16578216,
+   $95106395,$5BEF015B,$4DB8834D,$91862E91,$B56DD9B5,$1F83511F,$53AA9B53,$635D7C63,
+   $3B68A63B,$3FFEEB3F,$D630A5D6,$257ABE25,$A7AC16A7,$0F090C0F,$35F0E335,$23A76123,
+   $F090C0F0,$AFE98CAF,$809D3A80,$925CF592,$810C7381,$27312C27,$76D02576,$E7560BE7,
+   $7B92BB7B,$E9CE4EE9,$F10189F1,$9F1E6B9F,$A93453A9,$C4F16AC4,$99C3B499,$975BF197,
+   $8347E183,$6B18E66B,$C822BDC8,$0E98450E,$6E1FE26E,$C9B3F4C9,$2F74B62F,$CBF866CB,
+   $FF99CCFF,$EA1495EA,$ED5803ED,$F7DC56F7,$E18BD4E1,$1B151C1B,$ADA21EAD,$0CD3D70C,
+   $2BE2FB2B,$1DC8C31D,$195E8E19,$C22CB5C2,$8949E989,$12C1CF12,$7E95BF7E,$207DBA20,
+   $6411EA64,$840B7784,$6DC5396D,$6A89AF6A,$D17C33D1,$A171C9A1,$CEFF62CE,$37BB7137,
+   $FB0F81FB,$3DB5793D,$51E10951,$DC3EADDC,$2D3F242D,$A476CDA4,$9D55F99D,$EE82D8EE,
+   $8640E586,$AE78C5AE,$CD25B9CD,$04964D04,$55774455,$0A0E080A,$13508613,$30F7E730,
+   $D337A1D3,$40FA1D40,$3461AA34,$8C4EED8C,$B3B006B3,$6C54706C,$2A73B22A,$523BD252,
+   $0B9F410B,$8B027B8B,$88D8A088,$4FF3114F,$67CB3167,$4627C246,$C06727C0,$B4FC90B4,
+   $28382028,$7F04F67F,$78486078,$2EE5FF2E,$074C9607,$4B655C4B,$C72BB1C7,$6F8EAB6F,
+   $0D429E0D,$BBF59CBB,$F2DB52F2,$F34A1BF3,$A63D5FA6,$59A49359,$BCB90ABC,$3AF9EF3A,
+   $EF1391EF,$FE0885FE,$01914901,$6116EE61,$7CDE2D7C,$B2214FB2,$42B18F42,$DB723BDB,
+   $B82F47B8,$48BF8748,$2CAE6D2C,$E3C046E3,$573CD657,$859A3E85,$29A96929,$7D4F647D,
+   $94812A94,$492ECE49,$17C6CB17,$CA692FCA,$C3BDFCC3,$5CA3975C,$5EE8055E,$D0ED7AD0,
+   $87D1AC87,$8E057F8E,$BA64D5BA,$A8A51AA8,$B7264BB7,$B9BE0EB9,$6087A760,$F8D55AF8,
+   $22362822,$111B1411,$DE753FDE,$79D92979,$AAEE88AA,$332D3C33,$5F794C5F,$B6B702B6,
+   $96CAB896,$5835DA58,$9CC4B09C,$FC4317FC,$1A84551A,$F64D1FF6,$1C598A1C,$38B27D38,
+   $AC3357AC,$18CFC718,$F4068DF4,$69537469,$749BB774,$F597C4F5,$56AD9F56,$DAE372DA,
+   $D5EA7ED5,$4AF4154A,$9E8F229E,$A2AB12A2,$4E62584E,$E85F07E8,$E51D99E5,$39233439,
+   $C1F66EC1,$446C5044,$5D32DE5D,$72466872,$26A06526,$93CDBC93,$03DADB03,$C6BAF8C6,
+   $FA9EC8FA,$82D6A882,$CF6E2BCF,$50704050,$EB85DCEB,$750AFE75,$8A93328A,$8DDFA48D,
+   $4C29CA4C,$141C1014,$73D72173,$CCB4F0CC,$09D4D309,$108A5D10,$E2510FE2,$00000000,
+   $9A196F9A,$E01A9DE0,$8F94368F,$E6C742E6,$ECC94AEC,$FDD25EFD,$AB7FC1AB,$D8A8E0D8));
+
+  Shark_SE: array[0..255] of Byte = (
+   177, 206, 195, 149,  90, 173, 231,   2,  77,  68, 251, 145,  12, 135, 161,  80,
+   203, 103,  84, 221,  70, 143, 225,  78, 240, 253, 252, 235, 249, 196,  26, 110,
+    94, 245, 204, 141,  28,  86,  67, 254,   7,  97, 248, 117,  89, 255,   3,  34,
+   138, 209,  19, 238, 136,   0,  14,  52,  21, 128, 148, 227, 237, 181,  83,  35,
+    75,  71,  23, 167, 144,  53, 171, 216, 184, 223,  79,  87, 154, 146, 219,  27,
+    60, 200, 153,   4, 142, 224, 215, 125, 133, 187,  64,  44,  58,  69, 241,  66,
+   101,  32,  65,  24, 114,  37, 147, 112,  54,   5, 242,  11, 163, 121, 236,   8,
+    39,  49,  50, 182, 124, 176,  10, 115,  91, 123, 183, 129, 210,  13, 106,  38,
+   158,  88, 156, 131, 116, 179, 172,  48, 122, 105, 119,  15, 174,  33, 222, 208,
+    46, 151,  16, 164, 152, 168, 212, 104,  45,  98,  41, 109,  22,  73, 118, 199,
+   232, 193, 150,  55, 229, 202, 244, 233,  99,  18, 194, 166,  20, 188, 211,  40,
+   175,  47, 230,  36,  82, 198, 160,   9, 189, 140, 207,  93,  17,  95,   1, 197,
+   159,  61, 162, 155, 201,  59, 190,  81,  25,  31,  63,  92, 178, 239,  74, 205,
+   191, 186, 111, 100, 217, 243,  62, 180, 170, 220, 213,   6, 192, 126, 246, 102,
+   108, 132, 113,  56, 185,  29, 127, 157,  72, 139,  42, 218, 165,  51, 130,  57,
+   214, 120, 134, 250, 228,  43, 169,  30, 137,  96, 107, 234,  85,  76, 247, 226);
+
+  Shark_SD: array[0..255] of Byte = (
+    53, 190,   7,  46,  83, 105, 219,  40, 111, 183, 118, 107,  12, 125,  54, 139,
+   146, 188, 169,  50, 172,  56, 156,  66,  99, 200,  30,  79,  36, 229, 247, 201,
+    97, 141,  47,  63, 179, 101, 127, 112, 175, 154, 234, 245,  91, 152, 144, 177,
+   135, 113, 114, 237,  55,  69, 104, 163, 227, 239,  92, 197,  80, 193, 214, 202,
+    90,  98,  95,  38,   9,  93,  20,  65, 232, 157, 206,  64, 253,   8,  23,  74,
+    15, 199, 180,  62,  18, 252,  37,  75, 129,  44,   4, 120, 203, 187,  32, 189,
+   249,  41, 153, 168, 211,  96, 223,  17, 151, 137, 126, 250, 224, 155,  31, 210,
+   103, 226, 100, 119, 132,  43, 158, 138, 241, 109, 136, 121, 116,  87, 221, 230,
+    57, 123, 238, 131, 225,  88, 242,  13,  52, 248,  48, 233, 185,  35,  84,  21,
+    68,  11,  77, 102,  58,   3, 162, 145, 148,  82,  76, 195, 130, 231, 128, 192,
+   182,  14, 194, 108, 147, 236, 171,  67, 149, 246, 216,  70, 134,   5, 140, 176,
+   117,   0, 204, 133, 215,  61, 115, 122,  72, 228, 209,  89, 173, 184, 198, 208,
+   220, 161, 170,   2,  29, 191, 181, 159,  81, 196, 165,  16,  34, 207,   1, 186,
+   143,  49, 124, 174, 150, 218, 240,  86,  71, 212, 235,  78, 217,  19, 142,  73,
+    85,  22, 255,  59, 244, 164, 178,   6, 160, 167, 251,  27, 110,  60,  51, 205,
+    24,  94, 106, 213, 166,  33, 222, 254,  42,  28, 243,  10,  26,  25,  39,  45);
+
+  Shark_G: array[0..7, 0..7] of Byte = (
+   ($CE,$95,$57,$82,$8A,$19,$B0,$01),($E7,$FE,$05,$D2,$52,$C1,$88,$F1),
+   ($B9,$DA,$4D,$D1,$9E,$17,$83,$86),($D0,$9D,$26,$2C,$5D,$9F,$6D,$75),
+   ($52,$A9,$07,$6C,$B9,$8F,$70,$17),($87,$28,$3A,$5A,$F4,$33,$0B,$6C),
+   ($74,$51,$15,$CF,$09,$A4,$62,$09),($0B,$31,$7F,$86,$BE,$05,$83,$34));
+
+  Shark_I: array[0..7, 0..7] of Byte = (
+   ($E7,$30,$90,$85,$D0,$4B,$91,$41),($53,$95,$9B,$A5,$96,$BC,$A1,$68),
+   ($02,$45,$F7,$65,$5C,$1F,$B6,$52),($A2,$CA,$22,$94,$44,$63,$2A,$A2),
+   ($FC,$67,$8E,$10,$29,$75,$85,$71),($24,$45,$A2,$CF,$2F,$22,$C1,$0E),
+   ($A1,$F1,$71,$40,$91,$27,$18,$A5),($56,$F4,$AF,$32,$D2,$A4,$DC,$71));
+
+  Shark_CE: array[0..7, 0..511] of LongWord = (
+  ($16F3A365,$060D838F,$5CAE56F6,$A68857EE,$3C2C4D89,$EBF51635,$88E85BDC,$652174BE,
+   $86C17921,$0D4E9A80,$CFFA58A1,$27BA7D33,$A237B530,$88D9E104,$A4FBE816,$693B8755,
+   $26B254A0,$DAC95918,$FB336AF3,$45C2E369,$7B3E4EF4,$A96E1FB8,$35EB7EF0,$B7578F14,
+   $32056F74,$839AF80B,$C71F277A,$AE37F55C,$FDFF37D5,$A4208538,$AD3CDB6F,$35991E74,
+   $B32A07D1,$BA191594,$2E572B7B,$5344D177,$103FFE43,$E7EFE5DE,$41DE5E5B,$A3796FDC,
+   $5FC882E5,$2CF9643C,$48196D22,$FFDBF6FD,$BBCF780A,$33949DFB,$D0CEC8BD,$7D15679D,
+   $024498B1,$5F5E229C,$62C683CE,$12236347,$3041F7C5,$DCC4DA97,$9032DA44,$0B43190F,
+   $DFC5A6E2,$C05598ED,$7753F4B8,$9E5FD31A,$C0F136FE,$9AFA8243,$F3D61528,$CC4F6B06,
+   $3BC25C0D,$DF38612A,$EDC0C996,$43CF60E6,$F855BEE0,$CFB3D0BB,$ECE28534,$96E071A8,
+   $D909FBC4,$21B7FEBC,$B4C41655,$8ED4628B,$B04CD3C2,$30682646,$94BA1FD3,$B5FF5DC2,
+   $4B7FB931,$75AAC52F,$37AFE641,$E809AD88,$8D42D2E9,$0EB2213D,$61A057DD,$98525095,
+   $70BDE53C,$AA92A405,$C63D6BD8,$7B18E412,$F67C9C1D,$A7DC3E85,$87E33583,$D8618BCE,
+   $A79D3C05,$E34AB487,$73DB312F,$20E397D7,$1D7008AD,$05F13832,$7FB68B63,$17D25B75,
+   $0366D413,$8A7133D2,$00000000,$00000000,$96FE8762,$EAA17F5E,$75176C09,$C101F186,
+   $0488C597,$BEBC44CD,$8C609E4B,$DB9D3073,$DA6F2FD7,$ABC6CD6E,$1F34901C,$5AAF1AAE,
+   $89CA177E,$B00E65F0,$ABF08649,$D47B7825,$5B404772,$924520F1,$D5644188,$1686321E,
+   $3F4A999A,$618425E7,$0D4FF6EE,$E21EDDEC,$A0732D81,$D787C398,$E407FAEF,$1F6DF9C7,
+   $676C0AFB,$79B036C4,$27901802,$0FE64856,$D602959B,$9CF701CC,$AE5A0F7C,$BFE82DA6,
+   $CB729D36,$990639FE,$E525B64D,$CA42E889,$8249BCB6,$B3F2DE4D,$E643625E,$4033DB5B,
+   $4C91A8B5,$4167B230,$C397E2ED,$108BB191,$58269361,$18341323,$927642F5,$541D3B93,
+   $FA112651,$90EDF227,$45569BCC,$1DC52B11,$BAED34A8,$E6BB8CB5,$BD03252C,$D276FBAA,
+   $1A9E1929,$313C4F2D,$E9480C01,$FD73242B,$6A23FC15,$9BAEEB28,$EEA61D85,$C9BE5334,
+   $63E4CF6C,$C70C7209,$3D0E012B,$3EDA077B,$46304FDF,$97B418C3,$111DB2E1,$32C0F490,
+   $E3E9EB6B,$2BA08ED8,$A9B41EF8,$8B255AB9,$50C3ECBA,$91B99B4C,$E2CBA7C9,$FE8F9F96,
+   $8AACC36D,$3A7F5622,$2318DD95,$B15A0C9B,$14B73BD4,$5953A113,$640ADEE8,$F3C10516,
+   $2ADFEEEC,$EDF895BA,$CC9C8CB2,$ADCB4EE1,$911096E6,$DE6C0841,$8E2406FA,$84C312EF,
+   $D1EC841F,$A83A76D3,$EF845127,$1C91427A,$A6BF70A7,$3665A5C9,$797AD645,$F6303D24,
+   $5904DFC3,$CD1B026D,$53A538A9,$1BC8A89E,$DB4D6375,$7EE9DC20,$8F064A58,$51EC03A1,
+   $686764A4,$C4F0C9B4,$9A933D2E,$DD90B3FC,$6CEFA133,$7A4C8D79,$5D8C1A54,$73A746A0,
+   $BC21698E,$0759EAE4,$4474D76E,$C8EA3A5F,$2BFDA24E,$38D784F4,$78589AE7,$231F2C6A,
+   $D4460D2A,$C3A92350,$F75ED0BF,$72F32FCB,$0F0B6E5F,$BD40FF70,$DEE7EA40,$157A89A3,
+   $85A7AD32,$873FA952,$60821B7F,$4D7D41DB,$4ED53004,$1E3990AC,$3AE010AF,$0A177064,
+   $F1928D99,$9311499A,$223A9137,$64751DD5,$5569658F,$FA2ACECF,$7A1C0256,$7C410EF6,
+   $332723D6,$56B5E945,$B2084B73,$6F3604DA,$9D7D2CAA,$E95DC4E3,$C8144925,$13770A2C,
+   $A5D9A4B4,$BC14961B,$B8A9AC19,$B9E5AE29,$C55BBFCB,$F169D7C0,$C479F369,$2446C68E,
+   $3986C4BC,$806643B6,$719FA99E,$7FBDB54B,$B7A2C246,$04A55159,$215C4524,$EE042E07,
+   $B5E65AF7,$5BFB73C5,$2C13B3CA,$0C1AF3EB,$EB0C94B0,$A22D06B7,$127B66F2,$B8B1C742,
+   $E86A40A3,$285C3565,$207E0986,$3B2B3F49,$9C5F6008,$3C72D5AD,$EA2ED812,$770217F9,
+   $439AC6EA,$FC274D40,$C1D37A5C,$4FD5930D,$FE99E3C6,$2E51B6EA,$05AA8935,$6B935583,
+   $F2F4598A,$19607A48,$9BB1718C,$08BFA2B2,$97DCCBC0,$3F8E6E10,$812F68A5,$3983ED9F,
+   $664E4659,$AC9F278A,$98D7A59F,$82CE9160,$7E94C7C1,$C2FD4A3B,$836BF014,$66DDCF03,
+   $06CC5D26,$E1E26651,$E1AD73DA,$74FEAC44,$BF47BD9D,$8D28D936,$34C93252,$62789E5A,
+   $93540E57,$81322ADD,$4FF77CA6,$CB1681E2,$6EAB3982,$2512AFE5,$B6808EE4,$D18A4017,
+   $560FB19C,$705BFD1D,$7671B81A,$4B70C254,$D720D939,$49D81082,$AC1E97CD,$E0B60F3A,
+   $6B01B0B7,$4E81FA66,$E7612EFC,$951CCA15,$F0B0C13B,$463E58D4,$9E1BF8B9,$632CF731,
+   $09C73379,$5CA29921,$D3A81CAE,$F764544F,$AF7843DE,$6AC73CE8,$DD813E53,$9F0BBA71,
+   $24F6CC11,$85977B84,$BE65F13F,$5807C878,$0E2922FD,$686FEE3E,$CDBEC010,$78E45FAF,
+   $B98BE0BB,$6CCABF67,$69452806,$11DFD8FA,$5287740B,$CEE7B9D0,$25D480B3,$50B86ACA,
+   $A315F992,$5DF6F04A,$A896525A,$5E0A4BF7,$0B83ABC8,$03FCBBBD,$1E16DCBE,$8F800BE0,
+   $17D1EFC7,$D32292C1,$B16E9F60,$E5473708,$D28A500C,$224B4501,$FFBBAF64,$FB7EA7A4,
+   $368DAAE3,$3D26BCC6,$2F7567D9,$866BC039,$0C6DBA4C,$3731CCA2,$9F39B41B,$B603E67F,
+   $E08F3F78,$A1D1BD0A,$2D31FF68,$D935E2A5,$6DCDED91,$AF639C37,$AAD2CAEB,$0154696B,
+   $800D2407,$ECACFCD1,$6F897520,$F03DBEAB,$A1516123,$02A8D2D6,$D82BB766,$F498EFF2,
+   $FCDD7B77,$710F9476,$F43804AC,$F8821C19,$5EEACE47,$F9D67572,$F977F242,$1A9CC1F5,
+   $8485E190,$5210B81C,$13592A50,$6D9ED60C,$CED81403,$F2956C7D,$19F8CD3A,$BB4D7CFF,
+   $CA50D194,$4C2928B0,$18DA8198,$6E626DB1,$1BBC558B,$E4135E63,$7CD05F70,$9DA368A7,
+   $572DFD3E,$A574EC53,$3163BB67,$09EBCBD9,$DCA372F1,$4A24AB3F,$4712037D,$429B098D,
+   $99F5E93D,$57E1802E,$8B8E8FCF,$EF50476C,$4A5DF593,$A085D461,$07EE1184,$34CD771F,
+   $C9360587,$C6581B62,$F51A480E,$2DAD0D57,$08E57FDB,$898D886F,$0AA1E76A,$D6D3AAF3,
+   $40FC12F9,$76567E92,$3E68D538,$B4AB34A9,$289B765D,$B2A6B726,$15957776,$8C7CB05D,
+   $38A4881E,$554952F8,$01224CA2,$D52F114E,$95985371,$60D04C8C,$29B93AFF,$6789A668,
+   $544B292D,$2F05DF81,$5A620BD0,$476A31BF,$72F97D8D,$F5CC8699,$7DF213D2,$488C79E9,
+   $51E1A018,$44968A02,$6528924A,$26EE1458,$1C52440F,$D0DE297C,$C2B5AE4F,$C5A4A0DF,
+   $42B88A48,$29085C0E,$743520AB,$142EE0C8,$493B2180,$2AF4E7B3,$4DB3E417,$9448A37E),
+  ($05BA30CE,$E2795BA1,$F5E0FBDD,$65B5D634,$64DD8C55,$2D7D7F14,$ADD1C20B,$EEFBF778,
+   $F11968E7,$1EB0FBD1,$CE30CD8D,$E6073F45,$CCB67E90,$21FFD3CD,$A750A262,$DF0941CF,
+   $B75EF18A,$C61DF5B1,$9DC337C6,$C5C7DEFA,$073C83D3,$2581B729,$167173CF,$A5E97513,
+   $381526B9,$DD3673BD,$F91EBB93,$E8BAA1EE,$F625EB34,$3B314CF8,$D5FC5DF8,$579D4BC8,
+   $E7681B28,$BB598EC2,$80708794,$C8A06B1A,$6E5CEC3C,$1C8FC9A3,$0807D374,$F60A5A3F,
+   $3A9395A4,$1ACE9F35,$7AAB2CEE,$7E9E5038,$D0466D36,$B5E41069,$B92602D9,$8CEA6EE3,
+   $8AF1E7FD,$F952DDAD,$1BCC9075,$B19A748D,$B2E4C144,$2464AE10,$F4A35829,$FCC9A070,
+   $A06C21B1,$FA88F6E6,$D105CEC2,$2C98662D,$D77AEEE5,$9065A740,$AAED41D8,$CB7A4051,
+   $4AB9D923,$55A279BA,$98790708,$27BE855B,$52B059BF,$BABC97FB,$DDFB8E8C,$A19711F7,
+   $CB8AFD43,$047E64E4,$C90C4E5E,$C386886C,$281B7551,$C422C7C3,$15B46326,$FB6DEFDF,
+   $B5D84297,$01E51939,$9C809432,$5CBBA8BE,$09447080,$6F762C7B,$D4BFFE0C,$CEE13D8C,
+   $FF619BB4,$54476083,$BC9C3217,$6E933542,$0E78F353,$4AF79B52,$B49BE163,$98996F7D,
+   $6823CC1B,$A07208CE,$3012F5CD,$2B3C2982,$FDE728A9,$93BF8C0B,$E62BB8DC,$2225F886,
+   $CF736E79,$7F7B4901,$00000000,$00000000,$9F4584DB,$023F3272,$5BF4293F,$D5CABB80,
+   $E1173B0F,$07A44FAF,$4CC6F904,$E95FB8D7,$04F9933A,$7B052DE5,$7716CF54,$6AED51A6,
+   $E8534B8F,$68D263D4,$BE1A810A,$A96BD9CA,$DB84AEAB,$1D6AD09A,$1DB3B052,$0D67B5E0,
+   $ABAEE22C,$52063615,$93BBC495,$8F3045A8,$4647996D,$D8AD0E60,$EAD5F892,$AF2A8F5C,
+   $BF5922FE,$3017AF8E,$F2DC780E,$4034611D,$D2C0DE2B,$721CFCE1,$1A8F3381,$28E602C9,
+   $2F27F682,$E1A370EA,$AF577116,$29031BF0,$100E53E8,$1914B47E,$60241F6F,$567852F1,
+   $9BBC17E1,$793A1F97,$1809809C,$EF1EEE41,$14F7C0D2,$6211999B,$7E52BFD4,$059B7DDD,
+   $D841BE42,$43EE4A56,$E910E87B,$F1AE1590,$95C4E4B2,$33CD84C5,$BBA0B1C4,$4B12826B,
+   $D3837DDF,$EB608AA5,$796E3C07,$201ACAF4,$2CE2E66B,$BF27EA26,$570A6971,$58C5CC5A,
+   $5E4E19F1,$37B3E021,$215F05D1,$AB54EBB8,$26638602,$8ED55C91,$2BDE65B8,$9AA65D0F,
+   $C4B1ADE4,$D7F589F2,$34EB66F7,$50390467,$23D9B6CC,$6CAC0730,$81332460,$51DC1D5E,
+   $272025F6,$17A92AD5,$13CB4301,$47902EB2,$8F4BD733,$1B2B860C,$702A4C87,$4F6CE68F,
+   $6167BC9B,$CF0424B5,$0143A3F4,$997C7644,$B121D1AD,$7AE034DC,$C6371EF9,$100D657A,
+   $FCA48B5D,$0AC3FA4F,$1288E0F5,$DEEC58F6,$2DA1459F,$265B9C62,$8DCD642E,$DCD36A84,
+   $51754956,$E4380D37,$ECAAD8B5,$13D74E31,$417B1ABE,$FD2CB949,$83B5977D,$9624F1D6,
+   $A6130196,$4675378B,$497CC9CA,$0B26E376,$47043A99,$41D17824,$B0627259,$E39C4298,
+   $FE223840,$CD3B16C7,$AC9261FF,$7787813C,$24E5351F,$492DB019,$C84FEDAA,$5AFAFE28,
+   $583139D6,$8B4E214C,$4BFA7AD7,$CCDE0FFE,$194A2368,$76629805,$E5EEA835,$7CA1624A,
+   $3E6A069E,$61CBB2D0,$913D7788,$48C8A920,$114DF01C,$8068C23A,$0F3B50A7,$D38BED16,
+   $201CA625,$32289DFC,$5649CA85,$C1B9BA1E,$874C0447,$ED21DC33,$42BE0A57,$A3A82385,
+   $7D97AF3D,$5B1FE711,$A2EA92AC,$3D701A6E,$67189CBC,$73F9E5D8,$E05498FB,$9ED839EB,
+   $E2D22BE6,$5920D563,$1F35034F,$CA9F5968,$73EF5C6E,$11E87C43,$366DD5EA,$97C1E8EF,
+   $C0483EDE,$ACF0A417,$BAE31230,$D26EF42F,$067F2027,$BCFDC16D,$993AA4FC,$BEC2F31F,
+   $8C8EC7DA,$45AF1CC0,$0A816069,$31F2B6B7,$F39FDBFA,$D9481759,$E4AD0BC1,$E5DD140E,
+   $3CECB583,$A6335E58,$DCB82D78,$38EB67B3,$229A1538,$F5D07174,$B61D527E,$5F6183F5,
+   $82F63489,$0F588792,$92F86761,$164C33EC,$3956854D,$444A05F9,$A495B28B,$818DDB03,
+   $EF6FC85C,$4D53D4FD,$0CFE404E,$8D0F77DA,$DAC70D5F,$8416A6DE,$DF7D3D91,$666FFD7F,
+   $FADBAB7A,$B63E3B22,$C38D2E37,$F2743EDB,$A3A93158,$A40C6C2A,$558CDA6C,$9F3D20D2,
+   $6BE6DCF2,$FEF69202,$4E404A19,$2EA7545F,$31515639,$B2405FC6,$53F3FA4B,$23C0E1BF,
+   $3BD03650,$83B2E971,$54CF7998,$06415696,$CDF5DD64,$B883A589,$43FDA9A3,$3AD455C1,
+   $483F6A3E,$925A9532,$94874746,$AAB1F281,$974257AF,$F435684D,$907ED47C,$D1B4DF64,
+   $69606FEF,$390E7E8A,$25A696EB,$D051C65D,$659E2FA1,$B4010950,$A86BF2C5,$0C82ACD9,
+   $72ACFF9A,$88940A07,$76556CA0,$F39127E2,$5F0DBA05,$AECF9665,$2A9DC64C,$03DA2B4B,
+   $3DAF1677,$3F4F281C,$74D3DFBD,$3469CB6A,$5CC8AAEC,$F04B0CA9,$44C12A70,$1F55E2E8,
+   $5AB78ACB,$4CB6CDC4,$E3918812,$C05CA327,$A9285131,$95FEDA9D,$782D9FF3,$B966BCB0,
+   $8934F714,$A7D64761,$7169EF73,$D61090CB,$F85D1867,$71C6D7AA,$329446D0,$ECC4C50A,
+   $4038B94A,$6450CF0D,$6D99FCD5,$420B536F,$33D7E524,$75B8B34E,$7CD40CC9,$C2639155,
+   $D9021DB6,$DA923C12,$C5F20E10,$4E89FFB6,$D6394D11,$0919D104,$EDE97B41,$8AAB3875,
+   $0BC2C39D,$A88EC0F3,$4F03E9ED,$B7DB221B,$0286B31D,$C7F8EC88,$FB98088E,$2F424D66,
+   $9AFFB415,$E04669D3,$887754E0,$3EAA3125,$03C510E9,$5E849ACC,$8E0874C7,$8257F048,
+   $B3A762B0,$BD18D854,$848914AE,$B3A546FF,$7F111C20,$9CE70B99,$1732D03B,$3C950357,
+   $7BE88F1A,$E7E2267C,$A12F8245,$63F480A2,$8BB24409,$602EABE9,$1CF013A6,$941BC3A4,
+   $6AA57F06,$678AE446,$59729A22,$12325708,$9601F45B,$6D491E09,$2958D6A5,$5D5EB187,
+   $0DBDE3BA,$1473019E,$F76648C0,$A24D3ABC,$6F1F4FC8,$85F3BFE7,$63E10F86,$08FCC83D,
+   $860FA7B3,$745DAA77,$62A2AC72,$9180BE79,$F05ACB13,$87CC8D95,$2E645576,$78DF06AE,
+   $A5D6117F,$18F1AD47,$C10B9D2A,$358CD253,$372E761E,$0EBD9EAB,$BDDF91E3,$F7EF4306,
+   $4D855AF0,$7023CE93,$EE2C6BA8,$D42FA2B9,$EB965B66,$3656F918,$CAC95EB7,$9D0212A0,
+   $85CAB75A,$2AD930BB,$45828984,$862994AC,$5036EAA2,$7D447B73,$AE14D2E2,$B07F6DB4,
+   $C2CE8DC3,$6B08489F,$9E06272F,$9B434436,$75907C49,$AD15BD2E,$6CDA5F21,$DB77252B,
+   $665B3F48,$EA85939C,$35A8C503,$C9457223,$B865A12D,$159618A7,$5D8B0918,$69377AED,
+   $C774BD0D,$8971133E,$1E76A0BB,$53E32F2C,$3F29A56A,$F8B7C494,$DE3E9E65,$FF138B3B),
+  ($FDABECC6,$7C6A2EB5,$752BBEA0,$401CDA0A,$56DC57C4,$19252171,$01D70787,$56DEC6D3,
+   $73C6AC58,$41C751FF,$A92CB5F9,$C9067697,$AAA0BC85,$3391C917,$0E742AFE,$AE0A9A4C,
+   $162A62F4,$AA8CA972,$2935DF99,$5AA19391,$FE27E5BA,$86FD9135,$1D3F538E,$FFCA074B,
+   $24CDFC1B,$0E3CB65D,$7FE9885D,$4384B2E0,$8DE149E2,$C73AC0CA,$45972EB4,$48E5BC76,
+   $6EF9FFD6,$BE0D56B4,$C0EF5F50,$200E6D05,$597F7ABD,$E1F17DEE,$0C2F2405,$0243E31F,
+   $2741F567,$F4AB09DD,$47CC204F,$E4ACC525,$B83CC272,$348F92C3,$1F645D75,$53837E18,
+   $CF4C7229,$D8DA319A,$ECBB9B4D,$81E3CAE1,$EB818E32,$D6E687C7,$8E6D409E,$3DAD7F4A,
+   $F053CF44,$28F70B79,$437A3C4C,$493E3783,$461B27C8,$B27203F6,$FFF0E23D,$D02357E6,
+   $6F2EF851,$E8D39067,$D49E335F,$26CBBD24,$7B5F945E,$EE164046,$49B80AB1,$4AA65F69,
+   $5487593F,$B56C5822,$570B5043,$4FFBE7A2,$3C93B411,$0ABA8563,$E5F5A4CC,$78EC1D8B,
+   $15A66B88,$501B16F2,$D27321A7,$271036D1,$F769DA3B,$7FF2465F,$BED1D08A,$35541936,
+   $7A8893D9,$B8C88695,$E2CFB1B3,$2FE950AD,$094E3F81,$F90FD76A,$EEE095B6,$2DAAB3B2,
+   $5C1E6139,$1ABD499B,$28E2D81E,$0C7F5542,$79049AA5,$425F3915,$95BF01E8,$C3BCF3F4,
+   $526A4BC7,$B4B7D3D7,$00000000,$00000000,$2AB9D6E5,$A0362C11,$8C364E65,$91E40619,
+   $6B98E452,$454162C1,$6A4FE3D5,$139FA412,$06ED12F8,$01DB8BF5,$B648E88C,$9A85088F,
+   $9CF13E69,$3AB3249E,$E143B8CF,$D57EEF2D,$4CD91135,$B1EA6B1C,$E9DA80C9,$7AAFFE94,
+   $04B61C03,$AD92F2A6,$207BE018,$A3AE44FB,$65ECCEAC,$EB4BF88D,$9F7D3715,$C0249B1E,
+   $1A0546F1,$A8CF4A6D,$8B0C5B1A,$C6E14B3F,$BBB0CB0E,$CE182D43,$17FD6573,$FC526FA1,
+   $C2B451AB,$8C471456,$025B0EFB,$AC497953,$185E480A,$0486333E,$5031453C,$18FEAA84,
+   $2C54C41D,$A1EDA7E4,$14716C0F,$06C5D021,$1EB35AF2,$055DB8CB,$412132B7,$E5774ED0,
+   $B413E677,$36CC71DC,$67B7C057,$470281DE,$251AFB9C,$58E2708E,$1CE85409,$A914C198,
+   $40F63530,$B3A98803,$BF06D70D,$638ADFE5,$3A7EA6E9,$0B610E96,$86F47898,$927C6EF3,
+   $719DA2A3,$ED8E28AC,$CBFA6E2A,$7548C33C,$35DD8B90,$F3B55209,$C4594353,$8D9C9FA3,
+   $A68F9880,$31D22A08,$2E0FCAE6,$0DA4DEB7,$C8766756,$8FDF7CBC,$3BA9A16E,$5DBFC845,
+   $CE9B75AE,$8E04F749,$E094BF48,$83A029FE,$32E79EEF,$A4B01F2F,$486F0D36,$1C7899BA,
+   $AB77BB02,$654F0FC4,$FB46FE3E,$7DB1A540,$134B7970,$51C09D07,$A50391FC,$CB459588,
+   $8242649B,$3FEE9C55,$1BD24176,$FE118CBE,$C13858D7,$76D0ABD6,$316B9793,$5E27A0AF,
+   $8395631C,$69305A86,$9A1C2C91,$3B68AF6B,$9BCB2B16,$6DB669B8,$3825A812,$A72877C5,
+   $F532D4C0,$D3BB3F0C,$97E40F13,$6FF58AA7,$9EAA3092,$96FA5DCD,$E80D874E,$2C713847,
+   $81CE6DE7,$C57923D5,$FA91F9B9,$2B6F6393,$365182EC,$0922ED89,$AC4DAE7D,$324A42E2,
+   $74FCB927,$16C21CD9,$9468066F,$95623527,$EF379231,$7B747561,$6D75F6AA,$449AE934,
+   $21ACE79F,$F5708228,$23F7E964,$5939FB7B,$E318B634,$7937967E,$F208C1BF,$84BE722A,
+   $30BC9014,$08F9667C,$7DB286A6,$EFCDCBB3,$3EC8BAEA,$A6F3FC30,$6301DC54,$EA907378,
+   $B9EBC5F5,$62515410,$F3DFC638,$D260B4F9,$AE16A086,$9E033BB1,$90DE1A6C,$38F0C781,
+   $93521310,$C2677801,$EA5689B5,$80384114,$B0A5FA74,$9B5E837A,$2D83C39A,$F7336137,
+   $A0628A78,$3009A1FD,$E7AEAA37,$D4A564D8,$05611B84,$FB4C3475,$2FD8CD61,$5B7A1864,
+   $CA2D69AD,$239605EF,$0FA32D79,$F8D45C9F,$704AA524,$BB50EE7F,$96330894,$392B4C74,
+   $2220EEE3,$0FE73DA8,$B2FEF48F,$3717FA29,$33309968,$F26ED9FC,$ED6C9CCA,$D73D0C32,
+   $C363562C,$DA99D285,$DB3D1E26,$DE1FE1BB,$DF8B0225,$738D131D,$F6BEDDBC,$292C808C,
+   $62D6DBD3,$BC4EB5AB,$0AC236FD,$039868EA,$B79FEF0B,$CC5BCE5C,$4A3403CD,$B031E0E9,
+   $87237F1F,$C4A2A820,$58A87D3A,$B72FBB3D,$08993806,$AFD111B9,$857871E4,$68EBD173,
+   $A4D4967B,$9D9B535B,$69C3EAA9,$E9081B92,$D3A42620,$71CEF002,$80196A60,$93A7E506,
+   $DC070B59,$891AAC9D,$7E3E8FDA,$155A7433,$51E642BB,$4E206C57,$9847226A,$9721D638,
+   $6CA2F12D,$12442FE7,$DE5C05A2,$2553D5CE,$2696F2E0,$A275CF0E,$D8B1175A,$24885E3B,
+   $A7589F07,$670CECDB,$CD177CD2,$749348C9,$AD9AA9FA,$64948431,$FC7CEB41,$2AB4E866,
+   $4BE3044A,$E6EF263A,$4D0E16B2,$E734ADCF,$8ADB5C9D,$903F8DEC,$3F1FBD6D,$F02D3AE3,
+   $D96610DD,$725698E8,$4E821FCE,$1DA3124F,$7211ABDF,$1719972C,$6660C7D0,$11DC470D,
+   $7770B05B,$EC55A359,$6814ED2E,$BFD6DD41,$073A157F,$57054D26,$44402933,$1E3B7AA5,
+   $3786856B,$5FFC2B5A,$B329F308,$61C93CFA,$84AF7663,$3E3517A0,$2B6ED162,$F6E8EAC2,
+   $608DD528,$1007CCF8,$A1B58DFF,$66D7672E,$D0282F5C,$8B594F82,$42AD3BCB,$1FE0F150,
+   $4F551849,$4B7DD49C,$5DC966BE,$4C638F48,$BD5DD9F6,$CFC3A6B6,$615AD2AF,$46D90A2B,
+   $F4E5D347,$8565F9DF,$92851497,$94B9BED2,$038C097C,$FA97BF80,$7C658121,$B9130D60,
+   $D7123A23,$DC5C02A4,$CCC07B55,$224D8E1A,$F8CAF742,$87261AC0,$C9A160D1,$D901BA6F,
+   $10C7700C,$AB572287,$C6024DA8,$21D5E6F0,$BA67CC89,$98C6EB90,$E679ADB0,$827BA20B,
+   $BC8ADE71,$991D6065,$0B15317A,$5546AE39,$340A8C17,$A56B94DA,$129C7EF7,$071E5BD4,
+   $5F926845,$E02AF61B,$8FBA4719,$6B73B999,$DDD00CDE,$DFC46A4E,$C7D54A2F,$770B2023,
+   $F184C8C3,$7E29CDAA,$76A7B7DC,$BA8B658A,$A2398483,$9C40D8AE,$A8FBB27E,$9FD8B044,
+   $C58E44D4,$DB425970,$53BD4C40,$E2691504,$88805266,$3C76F4BF,$39F2AF95,$F1F6B116,
+   $0DF82382,$549D25CC,$5B247446,$4DB804BD,$D6C53DA4,$8A82C477,$19894F8D,$5258F5ED,
+   $91091DEB,$6E2E0152,$999025ED,$C1FF10EB,$643BC92B,$BD953E5E,$AFC1A701,$C8DDFD62,
+   $3D44B396,$5C6443B0,$9D2639EE,$6C6DE24D,$78D39D22,$1481FFC6,$F91DF0C5,$D1F8DC13,
+   $A3EE8304,$CA9E1E7D,$D1FF28DB,$DD878951,$B5C4E1F0,$6012B70F,$5AF373C1,$1B66C26E,
+   $55505EB8,$E3B29EF1,$D54934D8,$70157BF7,$E422A34B,$2E32DB58,$895755E1,$6AA8326C,
+   $5E456FC2,$B6F430C8,$1110778B,$FD89E454,$DAEA19A1,$88C12768,$B172FDF3,$CD8045A9),
+  ($6655B742,$99183E61,$A50D6860,$B2872032,$060528EF,$0946F63B,$141EF07D,$36612B9A,
+   $DD49579B,$0634DA84,$486C8A57,$FC9C9E9B,$744E6FD0,$A63FE3C0,$D8B46BF9,$F1515758,
+   $CD5197FF,$3E82559F,$2BC40177,$92E12D26,$5A7752C5,$C3BB433A,$5183267A,$21C3852A,
+   $CF528F09,$39130725,$2DC12998,$9BA7DB1D,$873E055E,$C58F99BE,$8F32656C,$D9D42449,
+   $8CCA71E1,$27F75FAE,$A8FC3430,$59B91019,$CAAFB36B,$CE768AF9,$F0887E03,$9D930199,
+   $F3706A8E,$63B07A7E,$A70E7096,$B5167288,$E967D22E,$40CC1A28,$79BF3380,$4D01D3EB,
+   $6456AFB4,$9E896CDB,$C75EEF3B,$2548BAD2,$AB0420BD,$A79A6BFE,$BB1CE0D9,$9F2CE4E5,
+   $82C3393C,$32EA1462,$F7765A97,$6D67DEFF,$B31080EB,$83775912,$4E69A2B8,$F5DA68A0,
+   $98D4819C,$11967434,$4D91B635,$0BF91347,$7DB90399,$43D6776A,$7FBA1B6F,$444725D0,
+   $2E393D15,$6584A0FA,$121BD892,$3F27DDA1,$DAB7730F,$F6C005E2,$73B04B44,$56CB3CA6,
+   $F1737278,$642128C4,$35D589CE,$BF4AE9F1,$EE99F6BA,$B038C54E,$9123EDD5,$F47FE09E,
+   $69A7F3E4,$75B75CF0,$1FEA84C2,$D419ED8A,$B4EEA47F,$73838674,$EF62FAC1,$498AEC13,
+   $8EC96917,$20660D14,$3FDAF10A,$A48006BC,$55851663,$2F1421AB,$92DBF958,$0A5C9B79,
+   $567D02EE,$D1375A4C,$00000000,$00000000,$17E6E4F0,$C842507D,$9320F523,$F3EEB224,
+   $C8ACAB9D,$C9E7D843,$DCB25BE0,$FF86F3D9,$78443FFB,$B4B3FAB6,$31D3B9D7,$B19D4D70,
+   $26355D27,$79DF1D0D,$23C86145,$8EBA90D1,$3BDCC113,$AA57A23D,$83383547,$CB583D3F,
+   $50782A01,$D871AC77,$9F2AA508,$E162AB52,$1018C064,$38B68F1B,$1A17B8A0,$237C6056,
+   $3DD9E9FC,$A3115406,$FF7A3AA5,$713C6308,$D54537A9,$1A6F6773,$D94F6782,$08E37E05,
+   $80C021CA,$357B46D8,$283C15FA,$6CC256C1,$15E5FC06,$CFD302C7,$7E411714,$BDF50C8D,
+   $6FA2DB0B,$7CF1AACB,$E56D8205,$5240035E,$6DA1C3FD,$7B60F871,$DF4A4F6D,$01A5883E,
+   $19EFAC2D,$DD5F1BB1,$3824D59E,$5474D9DA,$DB4C7F74,$0F722CBF,$459DD607,$17A2AEB0,
+   $CB54BF10,$37C4A3A4,$853D1DA8,$C21ECB04,$A2F34CF4,$4273FF54,$1BECB4DB,$DACE490B,
+   $F5754261,$6AF68C45,$342E85B5,$46F8C0AC,$6E59D770,$85438396,$F8841E31,$81C8BC6E,
+   $84C611D3,$3BACE259,$479ECEF1,$1033FC0A,$080C6032,$1C5BBDF7,$B6EDBC89,$7412D4CE,
+   $70485FC9,$A8E84741,$37D69138,$B8DBBB4B,$020318F6,$079152BA,$6BA4EB12,$72260E4A,
+   $60509FAD,$905EC85A,$1E1188B9,$2DABC4D7,$89374D83,$D092D272,$B8E4F454,$610F9F02,
+   $4B949EDA,$02BFE57C,$29C71981,$95707F9C,$BCE2C44D,$6FD83B83,$3E21FD71,$5D322FE1,
+   $5F8A6EA7,$34DECEE6,$5E7162DC,$CD6CE7BB,$4A6F92A1,$FB0DCC21,$8ACF590E,$2EB1A995,
+   $C6A5E340,$DCFA938F,$BAE7ECA2,$669ECDB8,$0E0948DD,$151D4BCC,$9726C53A,$FD3916A5,
+   $77B67B5D,$581C9827,$0A0F78C4,$1BCAEF4D,$527B32F7,$DFE0FECD,$0C0A502B,$128C1976,
+   $B113981D,$84E60BA8,$86C50925,$3C3DB0E3,$FB7C0ABC,$7FEBC789,$B0E89466,$7D5422F5,
+   $8B345575,$D70380C8,$A308408F,$BBC1D609,$0BF474BF,$E278C610,$AAFF2CC6,$5E2842A3,
+   $2A3F0D0C,$6B53047B,$05FD3C62,$F7658DDC,$F28B66F5,$9A025323,$685CFF9F,$8C0575AD,
+   $FD792253,$76AD31B2,$BEE1DCBB,$68496939,$243645D1,$7E4E4FB7,$D6BD2324,$E44C1C94,
+   $EA9FC6A3,$BEEF61CF,$BF1AD0C0,$91FB4064,$4997862C,$052EB7C6,$7BBC2B76,$4A908151,
+   $FC822E28,$8F1F18EF,$5B8C5EBE,$3A096A67,$4466DA7C,$EE1087ED,$53803E8C,$2652D790,
+   $203075C8,$7099EB36,$CCAA9B84,$C7307CC2,$E16BB21C,$5C97A7DF,$AEF91CDF,$50FFE622,
+   $B716B0F2,$8DA0FD93,$61AB93D6,$69ECE107,$161DE88B,$31F07920,$D3401F46,$13299148,
+   $94DED1B7,$031A6D42,$813B2DB1,$CCC96F85,$D14307B0,$14B8C3F2,$FA8706C7,$8659EED4,
+   $7C420FE2,$BA645E37,$88CC41F8,$2920FB2F,$25CD49AA,$87FC66EA,$4398FEE8,$1EE4588B,
+   $0FF244A6,$ECAF6291,$DEB14316,$F817A163,$A0F05402,$45E2ADEE,$27CE515C,$806D3450,
+   $ACFA0429,$576EB498,$E090BE67,$A5258E82,$21CB79B3,$892BC26B,$63A88B20,$6E7DB3BD,
+   $ED61E237,$4E1BBEA9,$39DFD9E5,$ADC6F087,$6A5FE769,$8B942717,$764D7726,$A1AEB17A,
+   $A4F6641B,$4B35096F,$C55DF7CD,$22D9E868,$E76E9AF3,$55D151E4,$BD19C836,$966A12DE,
+   $90D8E1AE,$0DCDC9C3,$4C6ABA4E,$F24B3A1A,$1814A056,$24ED32EC,$724B473F,$AF7915FB,
+   $57860E95,$28857311,$2FC2316E,$9C3689A7,$EB64CAD8,$475D4892,$E6959688,$AC6378B9,
+   $A907384B,$A00B3944,$13E0D4E9,$C695F4FC,$C957A7E6,$3055F11E,$2C3A25E3,$6215F240,
+   $8D317D9A,$DE4576F3,$F48E4E1A,$9344A518,$6C5ACF86,$82D2D12C,$9B2C9511,$EFB50FD3,
+   $4665C28A,$E981D557,$75B563AB,$5F8DCA9D,$33D0A121,$B60C1FCA,$03F8148D,$FE237BE7,
+   $547E1A18,$D6A608F6,$E89CDE55,$B97E3375,$1DE99C34,$D388BF30,$E368AAEA,$5B06F565,
+   $07FE2494,$F0F4DF66,$9AD7996A,$1607268E,$AD010852,$AEDC9DC5,$4060EA65,$E0C7236C,
+   $D2BB133D,$EA9BB815,$FE8136DE,$888E4A55,$3C22E587,$5AA37D5B,$11E3CC1F,$C104A646,
+   $71B353B2,$515A6E1C,$58744A33,$C42A1180,$22336D3E,$7708B98C,$1C12904F,$2A3A966D,
+   $B515A804,$8A31AF29,$D0B80BCB,$ED0AEAAF,$C15BC7D4,$2C0E4CE9,$4F92AEC3,$0C6841FD,
+   $B91FF82F,$98BDB65F,$9CD2B185,$1F41D0B5,$7A47270D,$B322A80C,$9D29BDFE,$E6F3F9E8,
+   $B2EB8C90,$7AC5704F,$AF0210A4,$A94DCF7F,$F97F124A,$787A9533,$C4A6FBB6,$DB6BC135,
+   $96DDC941,$048B3FF8,$992F8DE7,$E8245D69,$D4BE3BD2,$E3DD4E2E,$5C727A2A,$CAFDB501,
+   $EC9AEE4C,$B7A997F4,$4263F293,$E75671D6,$C358DF22,$2B9F1E53,$9ED1A973,$18D0820F,
+   $E4968E7E,$ABF22A03,$E293A691,$A2B4DC38,$65ADA3CF,$673B4586,$01FB0C7B,$F9B2295D,
+   $C2A3D359,$D22D370E,$6253875B,$97CF9AE0,$04063019,$0ED7A481,$3028B5AC,$482F642D,
+   $CEA98372,$C0A12E78,$322BAD5A,$4FBE3697,$419BE61E,$19750A31,$362D9D43,$41699216,
+   $C0A0CBAF,$D5BC65B4,$09F76C49,$E5E994AA,$0DF15C50,$EB3E302B,$F68D56EC,$94D5F7A2,
+   $3A27CD68,$53E58B60,$598F4648,$3D9838DD,$67AEBB39,$60AA173C,$D7462F5F,$1DFE35C9,
+   $A6F57CED,$4CA45BD5,$A10B5879,$BC5084B3,$9525DDCC,$FAA8441F,$5D897651,$334F9C5C),
+  ($83ADF27E,$DA1687A8,$578D9F22,$E35C9378,$1637FA40,$303CA453,$74B20375,$A088321F,
+   $9ACB95E9,$C9863F3A,$7D0B0ED4,$5FCF47C5,$E1280B4B,$4AA211E4,$871D1289,$E1A4C9BA,
+   $59F03A4F,$49266647,$E3707BCA,$ADFB36ED,$1F8EF7E1,$CF7BD189,$8F882792,$9735559E,
+   $F84E6CDC,$5932A976,$F547818A,$9DC792BE,$85456208,$06FDEEB3,$1EA2CF5B,$46AD3877,
+   $1543B27B,$5EB36AA4,$D1BCB511,$8B2EB33C,$E598EBBC,$71105FF6,$6F8C1463,$5441AD84,
+   $646D6943,$4C5FFF57,$F633C9B1,$F3485C49,$9D0F3D25,$9CBBBFDF,$67192178,$22D031A0,
+   $2213A4ED,$CA024899,$63A9C18F,$19627FB2,$DA5DC831,$9330E1EF,$19666797,$1390B892,
+   $9893E568,$2EDF1833,$D3E4C590,$6C779435,$8281CAC4,$53C06E56,$6B3CF494,$6FF3E396,
+   $61F1B10E,$FE3B58BB,$60DD89B4,$77EDB145,$D0908DAB,$02F85AC2,$712EDB38,$12EC95F3,
+   $FEA6FCAA,$85D9C06D,$6285F935,$90B4964C,$26A3441A,$F1B0068B,$5D40DAB8,$72942855,
+   $C5D33FD0,$5C4B3066,$AD9B837F,$5D371D07,$2167ECD6,$A48D866E,$504937EE,$B661139D,
+   $A4228EDE,$A27068DD,$E4B4D306,$F8C6B608,$3EE91B37,$6BF657E7,$8B38C765,$AC871B8C,
+   $B4FDE4E8,$4EA7A595,$97C278BF,$0D7304F2,$38018B41,$B71D3EFC,$5BA84ACE,$AE7F414E,
+   $33E0F661,$AF036C2F,$00000000,$00000000,$7F537E55,$B89660CC,$F1F7617D,$A675DCAC,
+   $4426BD2F,$610490C7,$3094BE5A,$C18CA2D8,$CD460ACB,$2ADAAC42,$1A122FAC,$7D1F7665,
+   $654151F9,$C58916A9,$7897D699,$EDABE029,$204BD46C,$2D5B6F90,$32CCCEDB,$26D585D1,
+   $25D70C21,$9F3FC87C,$DD9960FD,$C60D610A,$C33BAFA6,$80A0597D,$F9625466,$D0E44088,
+   $367C2E2C,$1D67CBC3,$480368C3,$2C2742F1,$012C38BA,$89D6E9FE,$2D42393A,$E9AE5458,
+   $392DB3FB,$3ECBD702,$E89106EA,$B5E5643E,$DEED28C6,$A882AFFD,$DB71F08B,$1AE60811,
+   $B215749E,$924CCC8E,$B1613CA5,$FCC30279,$13AB220D,$825803BF,$3B75C37A,$D992F00B,
+   $F2832946,$C8FA125B,$2BAAA94C,$35453D43,$8CFC6FA9,$F9BA9B69,$FB3A24E7,$37BD6781,
+   $4FC7C00F,$791AC214,$24FB349B,$16E92182,$EBE54ED1,$DB6AAAC9,$533D7FD5,$D8EEDD6A,
+   $725A9303,$7C635B04,$07C4A8CC,$553D80E5,$184A5F2D,$9A46516C,$F46BB930,$14117B40,
+   $8EA41F28,$1EE3BC60,$5A847274,$27A9A8B0,$9BE7AD53,$4050D6C4,$9F574DA4,$7BE298D6,
+   $56A1A798,$6A8A7A86,$0C25D5EC,$4D23D236,$A1BE5693,$1014CF31,$059CD84D,$B264A7EC,
+   $959A083E,$EA2A23FB,$4EEBF8B5,$F0CC2BEA,$0895351B,$76919C24,$12871AB7,$0B8EEA41,
+   $76EA73F4,$47D11516,$42CE2D59,$BDEFF9DC,$A50EB664,$2BA68123,$3D9D530C,$05799910,
+   $02587081,$E7592709,$A8075B32,$EF53BAEB,$DCB55847,$4FDB88F4,$0374483B,$6E8FCEF7,
+   $C9F6EA3C,$1168E250,$B3394C24,$1B9A2570,$8DD05713,$706C7297,$467ECDAE,$865DB7CE,
+   $EAC9766B,$52BC4337,$3A59FBC0,$504419F5,$84695AB2,$8F2B074D,$2C6E0180,$6078BDA6,
+   $233F9C57,$43D4A167,$2F1A49BB,$0EF77351,$FF8AC410,$0C0F2993,$8960B7E4,$4BDE3C85,
+   $A92B6388,$66855315,$41BA6562,$D360372B,$9006D073,$584E8417,$7002E382,$9B3A7C0D,
+   $492F5079,$A5F1AB0F,$1DD68760,$2822F680,$CE3242F0,$445562B5,$0E7DA56D,$AA7AF53F,
+   $E9BD3E50,$3C338DC0,$04B0E0F7,$3BB24E12,$C4FF076A,$D59DD998,$0ACD459A,$91C8BB2D,
+   $96EE4005,$84A5ED0C,$AEEFCB44,$33B8D3F0,$D7542567,$57C5DA27,$C6A777EB,$32C4FE91,
+   $43E215E3,$34391022,$B5D1DC52,$C7714C6B,$51650F54,$3FB7FA63,$2E367101,$87219AAF,
+   $7376ABB9,$F5B5B2FA,$F3AF11FC,$412CFBA5,$06E89076,$DCEB691B,$C78B4F51,$BB12176F,
+   $35086617,$73E80534,$3FC5238D,$E220BE19,$D50C55E6,$B09CFD2E,$171BC2FA,$B9EA4DAD,
+   $4D9FB08E,$9E43E51D,$93729848,$36C14AE0,$B6A59469,$A9FE829C,$55D5EFA3,$0405B471,
+   $7ACFA618,$0AF2C720,$A2CA1EA8,$7E9B01C6,$6EA02CD9,$DD97447A,$ED0DDEA7,$0781C3D2,
+   $278F7CA0,$7866EF75,$912AE8C9,$D1986DE9,$4A5B1842,$CB7E65F8,$CF1E7A4A,$CD838B4B,
+   $663519C2,$AB06D85E,$ACB7BBC5,$D4E1F4F9,$D929800A,$FDBF2F18,$9E7B751E,$F2347128,
+   $2A8691F6,$BC93D4BD,$81F582FF,$3D4FA0A1,$AFC3F3FE,$BA6E3A0E,$40965DD8,$5AB6DED5,
+   $FDD2B491,$EB560E9A,$C217971C,$0976B083,$10DF6A36,$ECD7CD48,$0F519DD7,$23AC1CC1,
+   $FA161C5D,$BE6B8E7F,$CA82A207,$7FE72CA7,$58DC02F5,$C0F08FB9,$F71FF10B,$7A9EB5B7,
+   $99BFDDD2,$A709F1CD,$54F9D719,$8DD35D8F,$3CB16BB6,$8CAF70EE,$BA804185,$E4DD50AA,
+   $7BE39EA2,$83242EDE,$C8DAD286,$98BE0BAE,$EE79969C,$690E0D25,$5F18AA39,$95CD0F5C,
+   $BF1C99C8,$56B9F746,$D805B8B0,$7469C6E6,$B9F409BE,$8A529E5D,$6A10CC2E,$E6250A68,
+   $F0DB59C7,$2FA33552,$4B7720F8,$42A88C06,$BBAC793F,$6D0BB954,$0BE17D20,$181E52D3,
+   $925EA0F2,$BF17A31E,$37501696,$94B1223D,$450A8595,$E8D27939,$A756C6E5,$CCFFA62A,
+   $BC68D1F3,$383639B1,$C04FE79D,$EE2F978A,$CC6A3271,$A30C45BC,$E6ECA387,$1F9F9101,
+   $BD44E949,$B1E0D04F,$E25C4370,$242DDF13,$9C23059F,$156D5621,$69648415,$88AAC49F,
+   $FCFE8C2B,$6280E764,$BE30A172,$DF6F1EB8,$D2C8FD2A,$E5A17DCB,$EF55AE26,$E0D8E4DB,
+   $94B63084,$63FCCA05,$1CFABFDA,$A1F41F7E,$759E3BCF,$295EDBE1,$C163DF27,$67F97E74,
+   $B8D83104,$038477A3,$D6781DDD,$DE1333D9,$6CF85C58,$3ACE6373,$7C27366E,$D619AE3B,
+   $28DEE177,$5BCAF3B4,$6DD464E2,$B3188A8D,$5E349283,$1C1BE6A2,$6848BCAF,$017C2D61,
+   $EC21E61D,$8E572A2C,$CBAE9ABD,$F631C559,$AB731309,$81DC741C,$09B90DA1,$FF4775DA,
+   $80D9BA45,$B499495F,$4752F514,$0F8B5E30,$D4206D5C,$394A14D0,$77C64B4E,$CE07FCE8,
+   $1B3E1716,$F4C99F9B,$0D09ED56,$C4F53BC8,$884C8F5E,$C208D57B,$AA5F2BB3,$080A9DE2,
+   $7E7F46EF,$31408932,$34245EAD,$FA3EECCA,$B789ACD3,$20286B62,$B04D041F,$7515EB87,
+   $5211476F,$51383494,$11F3528C,$650124B6,$4CB38834,$17950CE3,$A67AFE5F,$45294FD4,
+   $DFC1107C,$21544603,$31B886E0,$485A4B26,$86312A33,$68722044,$79BBEE23,$647D09D7,
+   $8A14FFDF,$2551F272,$146F8AC1,$D765835A,$29F2D9CD,$D21C1A4A,$A0926E29,$99C226CF,
+   $5C6CE202,$FB42C1AB,$E00433F1,$C374F81A,$E7C09B3D,$964978FF,$A3E62612,$F74DE838),
+  ($B0592C6A,$74B87B36,$FFB4B81C,$3D82D75D,$15267825,$88842467,$7ED4E5DE,$DAF2D8A7,
+   $0E53F9C7,$FEB11865,$59226B06,$BD2D1AEA,$DBABB191,$26CE87F6,$EB66BD0A,$32772ECB,
+   $C5104C8C,$D4BBF82B,$0C4E03A1,$05535772,$32D0F6FD,$EF5BE62A,$5D186ACA,$BE1C84C4,
+   $65A1643C,$ACC7E4A5,$19687B84,$8DD77315,$3C830F3A,$11EAFE4F,$A358AFE5,$04EF8E68,
+   $534B930D,$40AD9CA1,$855A5C0E,$E44191D4,$809420F1,$6001D20B,$173B8243,$73666B70,
+   $E728BEAB,$372479B9,$5F0590AC,$45FECBD3,$1301838F,$7057F55E,$A1455583,$FF0DC17F,
+   $10E804DA,$0CC467B8,$FA7AC4E3,$B9C29482,$754960E6,$A003831D,$BE0AD5AD,$8A096353,
+   $D9B64BF7,$DD2CC8E1,$52BFEE3E,$C7DC4150,$21D17572,$9F0C1374,$4C041323,$35A93E8D,
+   $2D9F76D3,$9A5F4406,$BC172FCB,$71EB2C44,$14D20516,$0FF5F996,$B4632DA6,$7789E518,
+   $E97B476C,$C99561DC,$6BF29DFB,$5276FCC0,$4BD795BA,$4A0B3245,$9E2FDDEC,$9274ADD6,
+   $4799961B,$4F586537,$4DF06E10,$B2D8E37C,$5685EFF2,$C4EDDF7E,$E2E6C254,$B3643A66,
+   $6A06E0C8,$D5072131,$111C79E9,$8BB5BA49,$6455190F,$2BB63954,$0627FBAA,$F8D3D139,
+   $F3FABBBD,$38D1802F,$729AE67F,$DFA18FD5,$E88F3A5F,$4EE4BC2D,$12F5FEBC,$F72628AF,
+   $189C06B7,$0AA6AEE4,$00000000,$00000000,$8EC7D936,$9EB0CA6E,$4257EAE4,$CB1826E8,
+   $20250841,$187DCE85,$5EF1ED9F,$C28F1622,$F1E741DB,$C333CF38,$F8673E85,$4220DB95,
+   $76A0E7B3,$DC9011FB,$9395A37E,$10562755,$C70DB6EA,$2F59B73C,$89145FAF,$E112C6A6,
+   $0DBA7E92,$82228A83,$681B1AAE,$2EE56E26,$CB43B54B,$2A0AE04E,$F4293D24,$47738CE7,
+   $D22BCECF,$A7DD935B,$CD644EE1,$D2D93177,$91885918,$EBB46842,$BBC4A952,$0E49208C,
+   $79076347,$A550D46F,$FC5D3F49,$411145BB,$2E76F186,$E6CCD6E0,$E4C139FE,$4BB7EB5F,
+   $7F2098ED,$5D830556,$394D73C5,$95AABD90,$DF91B05D,$25FF19D8,$AEE2D177,$86CD04EB,
+   $043A01CC,$03319E2E,$371E8A02,$6B1BA5F5,$1B7581E2,$76353C02,$23CC8F14,$64EE5C63,
+   $D03634A9,$5C3FDC4C,$9C32278A,$6996E2C1,$BA30D461,$8938FD7D,$A48B297C,$7B4D82A0,
+   $F20EC68E,$BFA05DDE,$1D527A48,$8EE6ED3B,$2F828CB5,$61BD0B11,$88E0229C,$66631B57,
+   $CC9033D2,$55A8EC86,$837DA7A4,$1C9240ED,$9FDBA0DF,$15057027,$C4E431BF,$53CA25DA,
+   $6E3CE104,$D636BF1F,$ED4146A0,$CAA4FFF2,$A0B128B0,$787C1C8E,$CAB7C878,$AD7B3DBF,
+   $A57F544F,$FC3C5F51,$41BE6DB1,$B78BB40E,$B67ED7C0,$8C6BAA0F,$4E19E945,$CE4B719A,
+   $A93157EE,$F96F0823,$ACFF2B11,$7D2F4BFC,$FB8EB9D0,$3EB34973,$2238F227,$E39F8192,
+   $D7E5B230,$239DD084,$8747A668,$1FA3DEC3,$F99343B6,$C5510664,$466DEB28,$C829B8C6,
+   $AAD8D0BB,$85FC9AC5,$EEA8C1F5,$B6376D14,$8AFDD8FA,$9D815440,$F7C0BA71,$3BE01E01,
+   $2BB88D79,$628C953F,$3F6A886F,$6D796CA9,$AD0B5622,$FA5E960D,$2A4CF04A,$E5FD48CE,
+   $81605DC2,$E7700FFA,$6C211B62,$2DD4F008,$78F31E74,$2221099E,$D1C2499A,$DB4E01BD,
+   $16CFFF70,$F417B681,$EA92C039,$B506F33A,$6FC89C37,$514762EE,$25EB74BE,$9C3D8D5A,
+   $5CEC17F9,$396D5935,$E53544CD,$CCC636AE,$B78AAAF3,$0B1A77FE,$3AA4F490,$E9392F76,
+   $6DD56651,$AAA52DF9,$5B3F9160,$46CF55FD,$D611CF03,$A4EC0D75,$619B65F0,$AFF67A8B,
+   $E312BF67,$3415E797,$0B9D8538,$7AF15BBA,$09807F5E,$811314AD,$01F47D33,$8771DDF1,
+   $3D777209,$969B23BE,$6272E2A5,$D365E86D,$736E9B4C,$58D05224,$FDA9427A,$C660984A,
+   $63869F96,$5414359C,$95B258D4,$E885F66C,$8CDA2350,$65528579,$907C242B,$6CC5B5B3,
+   $944625E7,$6FF42B9D,$F5DD4017,$C0025116,$DE65CD6E,$A28EC429,$84AE213D,$63304C25,
+   $07D38699,$7FA20CC8,$29A5771F,$996EDA28,$241F098D,$1B4C50AB,$28510A2C,$1E1F07D9,
+   $4470114E,$33CBF7D1,$E6DCC398,$B055A448,$86B3DB5B,$98D20332,$36EAF731,$EC6A7804,
+   $DA5FCCA2,$A1BF5A07,$FE40C52F,$BAF30AAC,$1A81FCD1,$F144E1F3,$2602F3EB,$E0AE1FBC,
+   $30CD0C9B,$14B9A93D,$DC783708,$596C8B3E,$33248BCE,$682A3BDB,$556C68A7,$B87E4D98,
+   $A696D31A,$80AFCDB7,$67BC9E5A,$5725ABB2,$9A15DC20,$914533F8,$7B1A9921,$5EB29B78,
+   $AF16AC44,$01BCD91A,$5ACBEC53,$C1BE880C,$99FC5B75,$EDD6A11E,$AB2CAD88,$028D4734,
+   $B244D60C,$8F5A3421,$ECB53B93,$4DD52203,$54981594,$3F0F9069,$CE8DC9B4,$AE4AA391,
+   $483E12EF,$3698A0A3,$B9D95334,$F5AB6F9B,$B3B0AB3F,$082BE9D0,$C95E4F2D,$D1E8AF59,
+   $D5F84856,$D87F9F93,$3B5089A3,$6E48F287,$70871C19,$2443C0C2,$49CA6FDC,$B1E97D52,
+   $03E98755,$7C9392E6,$A2ACD2D6,$839E5399,$8F33A405,$19C1179F,$DD8C4A3B,$DE1D56CF,
+   $D3DFB3FC,$20AC4EAA,$8B09A5C9,$1AF089B1,$58D61635,$3A5CC71B,$F0133CE8,$444212C9,
+   $B82D2E07,$72DAB26A,$43A397D7,$4C69FB19,$B1AD5159,$F3C9A6C7,$2C6B0BE0,$1D2E99F7,
+   $45846C7D,$B4BA2A20,$8D2E5E63,$E2235888,$606F18C3,$2887A77A,$C6F9CBD9,$A8286ACD,
+   $D40C3565,$5F0E4262,$9DC65AB9,$EEE73F30,$8289DA97,$9BE39D1C,$9BE1A113,$1634EE09,
+   $3E9EF55C,$EA08B158,$9261DE4D,$9727FAA4,$C337B726,$2C682912,$E10F4501,$CFF7A880,
+   $34F70D57,$17883713,$74BD1DD5,$27725EEC,$EF5CBCC6,$3146B0E5,$1CA6077B,$099730CA,
+   $1EBBFD1D,$F2757FDD,$98082646,$6AA77CEF,$5156696B,$BB4FD3B6,$C8AA321E,$569972A8,
+   $7173612A,$A3321D33,$C0DE3073,$50FBBBF4,$D84236C4,$5A5D1510,$0A69F80B,$FD80864B,
+   $A762AE29,$07DE1046,$7D3D628B,$A6614A41,$C12A4D40,$D78A6605,$27F68ED8,$67DFC24D,
+   $F634C742,$BC91C3F0,$6648E369,$D0547643,$4FED9476,$493AAC6B,$38B90EF6,$12DB6061,
+   $69EF679D,$A994B3D7,$7CC91FB8,$211097B0,$404A1082,$30FA69FF,$50A21458,$3C3E0E47,
+   $1F4F802E,$7504A22C,$05CE7CFF,$844043DF,$B5975095,$F0F838E9,$A8C52ADD,$7E1ED5D2,
+   $35037064,$90F9EAE2,$0874026D,$0662C95C,$965BDF81,$9416648A,$BDE352F8,$F69AF1B5,
+   $BFFEA89E,$0D78BEA2,$CF79B487,$293B7E60,$7AEEE412,$D9C34689,$021DFA66,$FBE24F17,
+   $97AFA2B2,$1367B97B,$C2C3CA15,$AB19F4E3,$E0FB3832,$48867571,$313971A8,$93C874CC,
+   $0FA784F4,$79C0C594,$4A23E889,$CD7AEFB4,$577192C1,$439C028F,$77549A80,$5BE1CC0A),
+  ($78656928,$714D28D7,$84F64F7C,$C88A7C6B,$AB89AACA,$EC43CAC5,$10DC16A3,$777FA381,
+   $E4213B5C,$0F7D5C87,$F3A1EF51,$73F051E5,$C330D541,$EA714193,$E016C4F3,$95E5F3DA,
+   $95A0E173,$63D37380,$8FF379D6,$9825D66F,$48F45338,$E8CC38A1,$25F06BB0,$A840B0C0,
+   $5F748735,$944135C3,$247AD31C,$74661CAA,$ACD56864,$E7B16426,$6E6F0589,$D1E689DF,
+   $C1D150EC,$A73DEC47,$427BDD3E,$64453ECF,$5B43789A,$0ED99A9E,$C05BE840,$7B1B402D,
+   $6FE5BD25,$0DC025B5,$4E22293A,$3F183A28,$160A6CA1,$A0ABA108,$05BD4703,$46BE0337,
+   $B2B10F6E,$86DF6E94,$9DCEEAD8,$A216D83A,$EDC5885B,$129E5B57,$9C445274,$7E307450,
+   $A8E297CB,$7D29CB7B,$0EB871A9,$1611A933,$5EFE3F99,$486799A9,$5828459B,$9FB39B20,
+   $D10D464F,$D0424FC6,$F79610FE,$E968FEB8,$64E08B8F,$5D6F8FB1,$AE34EDC9,$AAFDC9F2,
+   $8BC48679,$02BD7932,$BB55BC69,$9B3C6944,$2AC2A2B5,$6277B599,$0DD34CA8,$877BA88D,
+   $A531DB63,$FA5263F6,$974164DE,$2E9FDE54,$D8E9F548,$CDA14816,$76DD1881,$675C81E4,
+   $743C9D2C,$2A102C30,$7DD82E2B,$37F32BE0,$901DA670,$256D70B7,$BD83C66B,$4CE86BCD,
+   $0B0536AA,$50AFAA04,$9F2F6F75,$EF5A75EE,$44ADA73C,$B3913C46,$D9634DE4,$1187E47C,
+   $EB13F259,$C54A59DE,$00000000,$00000000,$BF6243C6,$01A4C619,$BC097EC7,$90CEC7A7,
+   $91971EDC,$F94BDCDD,$814B087F,$8E347F5C,$60D77420,$C7F720EC,$F61CA852,$354E52D2,
+   $497EEB94,$34EA94CB,$4D49143B,$AE723B96,$FE72A3F9,$F48BF968,$CD88A4E8,$FC60E8A0,
+   $409A5893,$2909931B,$1FEEDFA6,$BD48A6D8,$7181DA2F,$6CAE2F07,$79EFD184,$AD6B84BD,
+   $55FB0933,$18C833AD,$CC021C44,$204644CA,$269B56B1,$392AB17E,$857CF7D0,$14ACD001,
+   $6236F18D,$8ABB8D38,$204D2CB3,$EEFEB3F7,$75B62580,$F636805A,$CB5EDEEA,$2BB4EA29,
+   $DFB537E6,$C653E6F5,$B5EDCDC0,$8D2DC077,$156151A0,$31C1A0B6,$2EF55D1A,$F8EF1AC4,
+   $D65184E1,$DBB0E125,$51CCF69C,$82509CF0,$4FA89196,$E33E9642,$352C7D13,$DF3F1341,
+   $3E294BB9,$8F90B945,$66010E22,$10232265,$4A15D695,$A5809575,$1C85E2A7,$2C22A766,
+   $C46C17EF,$E183EF70,$F22B57FD,$AFD6FD8F,$BADF04C5,$471AC52E,$02E185AD,$4D4CADD4,
+   $036B3D01,$916A01BE,$FFF81B55,$28AD5502,$C2BA6DED,$3657EDF9,$5AC9C036,$D2FF36F4,
+   $A26D19CD,$F1A0CD15,$5D950298,$D90D9817,$CAD46646,$F7924643,$BEE8FB6A,$DD826A73,
+   $D3ECC3E2,$9D0EE212,$18B21D08,$B6BA083B,$C5E6AF43,$3DA5431A,$33FA0711,$08EB11C8,
+   $5C1FBA34,$052B347D,$45271F90,$6FB7902C,$52A7CB9D,$133A9D4E,$FA455C56,$6E135635,
+   $4CC3AC97,$725497FC,$29A99FB4,$F31DB427,$39758917,$846217A6,$6A58FA26,$4B7E2682,
+   $F8A4D9FB,$235FFBE1,$F92E6157,$FF79578B,$6933C727,$DA14273C,$DD54B24B,$8B1F4B21,
+   $6C8E8024,$9CAA240B,$086E0BAB,$C1C5ABBA,$8A4E3ED5,$DE9BD558,$A3E7A161,$2D86617F,
+   $942A59DF,$BFF5DFEA,$C9BF5B47,$66F847FD,$AD5FD0C8,$3B97C84C,$F1406AFC,$3EBCFC31,
+   $0F32C905,$CA370559,$2F7FE5B6,$24C9B6AE,$6D043888,$408C8861,$88AFBB78,$93D7788C,
+   $EA994AF5,$196CF5B4,$0437FFAF,$9A98AF5D,$0A8F8E06,$8C89066E,$1156AE0F,$AB590FEB,
+   $06D67A02,$D7D40289,$9873ADDB,$E4A8DB0D,$83AA8DD2,$C378D288,$892503D4,$4FF1D4E6,
+   $B9B439C4,$D670C490,$FD199EF8,$65E1F8D6,$96CBDC72,$F2B9723E,$CF692145,$B12C4574,
+   $63BC4921,$569D2152,$2D9E601B,$69851B7A,$50464E30,$5E76309A,$EF240DF6,$5FD2F683,
+   $E2F7415E,$D8A95E0E,$F0CAD250,$E29A505B,$D4B0014C,$96FC4CF1,$E9F277F4,$8806F40A,
+   $3FA3F315,$53B6152F,$B686F0C1,$1C47C1C9,$DA0870E5,$80EDE5C2,$8D12FC7B,$D5697BBB,
+   $72EAE72E,$FDC42EB9,$075CC2AE,$0BF2AEE3,$47C69A3D,$22FB3DF8,$C835E3EB,$BADEEB97,
+   $018AB8AC,$DC26AC6A,$A08C9C60,$BCEC60C1,$E6C0BEF1,$4231F153,$9EA5D7D9,$337CD984,
+   $0C59F404,$5B5D04E7,$4B9F6E39,$79A6391F,$80C1B0D3,$5212D336,$2C14D8B7,$B5A3B710,
+   $232611B2,$7F94B249,$B1DA326F,$17B56F2A,$879D727D,$59E07DD5,$7C529687,$EBD5878A,
+   $7757A02D,$BB7A2D8E,$34A6C5BF,$0319BF2B,$DB82C849,$5CCB49A8,$09E4B307,$1DE307D0,
+   $E19C7C5F,$49C35FB0,$571A8C9E,$55849E79,$7F39AB86,$7ABF8634,$37CDF8BE,$9273BE95,
+   $13B72BA2,$E615A23F,$92FC23DD,$6821DD63,$B33BB7C2,$5AF9C2FE,$68B97F8B,$06328B56,
+   $8E79C17A,$44037A05,$EEAEB55A,$83F45AE9,$DCDE0AE7,$5739E74B,$1A5398A5,$FBF6A5EF,
+   $2711EE1D,$E50C1D14,$DE3F8F4A,$1A754A9F,$F4FD2DFF,$7802FF06,$4110E03F,$F52F3F71,
+   $A4BB63CF,$2674CF9C,$A10624CC,$60CACCAB,$700B6283,$B088836D,$7EB3132A,$A6992A5E,
+   $9A922876,$A9E476D9,$A65AE662,$6B386248,$3CC8CE14,$C2DC1491,$AFBE5565,$76DB6598,
+   $21C7941F,$32D81F9D,$73605F82,$21E282D3,$B70C486D,$C0616DA3,$1E64670A,$616E0AB2,
+   $CEE399E9,$6D0AE91E,$1BD92009,$27D00985,$464C2291,$FEDD9192,$311B82BC,$45A7BC1C,
+   $E878CF58,$54205860,$A9682F67,$A10F6711,$30913A10,$99811076,$14EBE90C,$EDE70CDC,
+   $C7072AEE,$70E9EECE,$8220357E,$1F5E7EE2,$28232718,$2F3B184D,$D2667B4E,$41284E78,
+   $F5779553,$A424536C,$22ACA91E,$A3B21E23,$36474012,$4E5512FF,$3D4276B8,$1EFAB8FB,
+   $56903432,$89A23213,$B0508AC3,$CB93C340,$AA031266,$306566AF,$D53AB9E0,$4ADAE09B,
+   $3B940CBA,$C92EBA72,$8C9844D7,$094FD7D1,$678BB68E,$CC058E0F,$3270BFBD,$D4CDBDA2,
+   $B83E8168,$0A5668FA,$B467756C,$510B6C1D,$43F16592,$B86392A5,$E37DF9F2,$048FF264,
+   $123D930E,$3A330E55,$FBCFE4FA,$B235FA5F,$FC932654,$B9C754BC,$7A84EC85,$3C018503,
+   $D087FEE3,$0C64E3AC,$7B0E5429,$E0272969,$D7DB3C4D,$07964D4F,$656A3323,$814923DB,
+   $99F91577,$388E7767,$1938A5A4,$6A9CA451,$615DCC8C,$1BD18C86,$93769B71,$B4077109,
+   $3A1EB416,$15081618,$59A2FD37,$4395374A,$5471B19F,$C4EE9FC7,$38FF31BB,$5844BBCC,
+   $532D7331,$CF1C3124,$A7D05ECE,$B71ECE22,$C68D9242,$ACCF42A4,$6BD2428A,$97588AE8,
+   $9B1890DA,$75C2DAB3,$E74A065D,$9E175D39,$1D0F5A0B,$F0040B0C,$EC4F30F7,$CEB8F73D,
+   $2B481A19,$BE5119F3,$E5AB83F0,$D35BF0ED,$1780D40D,$7C8D0D62,$8617CAD1,$85C6D1BF),
+  ($7B66F2A4,$B1C74212,$D7A59FC1,$CE916098,$2406FA70,$C312EF8E,$D81403D5,$956C7DCE,
+   $18DD9520,$5A0C9B23,$1A480E8B,$AD0D57F5,$87740B01,$E7B9D052,$2ED81268,$0217F9EA,
+   $F8CD3A06,$4D7CFF19,$572B7B67,$44D1772E,$E65AF72E,$FB73C5B5,$84512705,$91427AEF,
+   $E4CF6C85,$0C720963,$732D8117,$87C398A0,$FE87620E,$A17F5E96,$8E8FCF1D,$50476C8B,
+   $9C8CB225,$CB4EE1CC,$91A8B59A,$67B2304C,$D2CAEBCD,$54696BAA,$6BF01437,$DDCF0383,
+   $79F3690F,$46C68EC4,$CBA7C942,$8F9F96E2,$F5E93DB9,$E1802E99,$C179215A,$4E9A8086,
+   $6764A427,$F0C9B468,$94C7C196,$FD4A3B7E,$83ABC8A2,$FCBBBD0B,$63BB6784,$EBCBD931,
+   $C882E546,$F9643C5F,$41F7C5FC,$C4DA9730,$13B3CA97,$1AF3EB2C,$3E4EF4FB,$6E1FB87B,
+   $4498B1F0,$5E229C02,$2C4D89C3,$F516353C,$F97D8DA9,$CC869972,$E57FDB2A,$8D886F08,
+   $612EFC2F,$1CCA15E7,$FC12F9A5,$567E9240,$32DA44EB,$43190F90,$AD73DACA,$FEAC44E1,
+   $65F13F8C,$07C878BE,$E3358322,$618BCE87,$DFEEEC72,$F895BA2A,$3A913758,$751DD522,
+   $21698E7C,$59EAE4BC,$BA1FD3FE,$FF5DC294,$39B41B5C,$03E67F9F,$D1EFC7C9,$2292C117,
+   $808EE4A6,$8A4017B6,$8F3F78B2,$D1BD0AE0,$BC558BF6,$135E631B,$28924A60,$EE145865,
+   $AE56F6CE,$8857EE5C,$00000000,$00000000,$CA177EED,$0E65F089,$269361DB,$34132358,
+   $CEC8BD4E,$15679DD0,$16DCBE9B,$800BE01E,$CF780AE1,$949DFBBB,$DB312FD1,$E397D773,
+   $1126513C,$EDF227FA,$2723D674,$B5E94533,$B73BD441,$53A11314,$C683CEFD,$23634762,
+   $8A500CBE,$4B4501D2,$6E9F603B,$473708B1,$E010AF26,$1770643A,$8C1A54B6,$A746A05D,
+   $933D2E31,$90B3FC9A,$31FF68EF,$35E2A52D,$68D53833,$AB34A93E,$20D939D3,$D81082D7,
+   $D480B3C5,$B86ACA25,$4528065F,$DFD8FA69,$D615286E,$4F6B06F3,$EB7EF091,$578F1435,
+   $056F740C,$9AF80B32,$BDE53C59,$92A40570,$196D228F,$DBF6FD48,$04DFC3A3,$1B026D59,
+   $9E19298E,$3C4F2D1A,$A538A979,$C8A89E53,$3CDB6F50,$991E74AD,$5C4524D0,$042E0721,
+   $DCCBC076,$8E6E1097,$E285348D,$E071A8EC,$FDA24E0A,$D784F42B,$821B7F0D,$7D41DB60,
+   $5DF5937F,$85D4614A,$ED34A899,$BB8CB5BA,$0B6E5FB7,$40FF700F,$1BF8B924,$2CF7319E,
+   $EC841F36,$3A76D3D1,$40477253,$4520F15B,$7008AD13,$F138321D,$25B64DDF,$42E889E5,
+   $BF70A7F2,$65A5C9A6,$FF37D5A1,$208538FD,$1C025683,$410EF67A,$3D6BD8FF,$18E412C6,
+   $5F6008D4,$72D5AD9C,$B41EF845,$255AB9A9,$AA89356D,$93558305,$71B81ABC,$70C25476,
+   $084B73B3,$3604DAB2,$4B292DE4,$05DF8154,$49BCB64F,$F2DE4D82,$813E5309,$0BBA71DD,
+   $D05F7066,$A368A77C,$DE5E5BDD,$796FDC41,$064A5808,$EC03A18F,$B88A4855,$085C0E42,
+   $9AC6EA2D,$274D4043,$6DBA4C3F,$31CCA20C,$540E5763,$322ADD93,$1E97CD28,$B60F3AAC,
+   $95777639,$7CB05D15,$6C0AFB90,$B036C467,$96525A3D,$0A4BF7A8,$480C01E0,$73242BE9,
+   $0FB19C14,$5BFD1D56,$F08649B5,$7B7825AB,$09FBC41C,$B7FEBCD9,$01B0B7AF,$81FA666B,
+   $B68B63EE,$D25B757F,$F3A365B1,$0D838F16,$620BD02B,$6A31BF5A,$8DAAE319,$26BCC636,
+   $592A50DC,$9ED60C13,$36058748,$581B62C9,$77F242B4,$9CC1F5F9,$2F68A5C7,$83ED9F81,
+   $2DFD3E6C,$74EC5357,$55BEE0CC,$B3D0BBF8,$0D2407BF,$ACFCD180,$7AD6450B,$303D2479,
+   $E7EA4081,$7A89A3DE,$5BBFCB77,$69D7C0C5,$14492530,$770A2CC8,$DD7B77D9,$0F9476FC,
+   $23FC15D7,$AEEB286A,$E85BDC95,$2174BE88,$52440F6B,$DE297C1C,$98537186,$D04C8C95,
+   $3520AB4C,$2EE0C874,$F6CC11BD,$977B8424,$85E190AA,$10B81C84,$B5AE4FEA,$A4A0DFC2,
+   $2BB76664,$98EFF2D8,$5161236F,$A8D2D6A1,$C4165556,$D4628BB4,$4CD3C243,$682646B0,
+   $0C94B010,$2D06B7EB,$DA81987E,$626DB118,$50D194C0,$2928B0CA,$07FAEFA7,$6DF9C7E4,
+   $F77CA612,$1681E24F,$A4881ED6,$4952F838,$03252C04,$76FBAABD,$7843DEA0,$C73CE8AF,
+   $5A0F7CD8,$E82DA6AE,$0ADEE818,$C1051664,$E1A01889,$968A0251,$1F277A87,$37F55CC7,
+   $A9AC1969,$E5AE29B8,$8BE0BB11,$CABF67B9,$3B2180F7,$F4E7B349,$4D6375EC,$E9DC20DB,
+   $CDED914A,$639C376D,$AB3982C2,$12AFE56E,$336AF344,$C2E369FB,$9B765D82,$A6B72628,
+   $D9A4B47A,$14961BA5,$88C59715,$BC44CD04,$A1E76ADA,$D3AAF30A,$47BD9DF4,$28D936BF,
+   $34901CE3,$AF1AAE1F,$224CA278,$2F114E01,$90180235,$E6485627,$A372F171,$24AB3FDC,
+   $A057DD75,$52509561,$6F2FD794,$C6CD6EDA,$E9EB6B3A,$A08ED8E3,$AFE64161,$09AD8837,
+   $9FA99E21,$BDB54B71,$F213D21E,$8C79E97D,$C0C996F5,$CF60E6ED,$7D2CAAAC,$5DC4E39D,
+   $928D999E,$11499AF1,$53F4B8C4,$5FD31A77,$176C0934,$01F18675,$569BCCC8,$C52B1145,
+   $4E4659E8,$9F278A66,$897520BA,$3DBEAB6F,$C7337952,$A2992109,$12037D38,$9B098D47,
+   $B254A04D,$C9591826,$FBE81602,$3B8755A4,$A61D857D,$BE5334EE,$99E3C629,$51B6EAFE,
+   $2A07D1CB,$191594B3,$589AE773,$1F2C6A78,$A7AD32D2,$3FA95285,$6A40A398,$5C3565E8,
+   $42D2E9F8,$B2213D8D,$3FFE4354,$EFE5DE10,$9D3C058A,$4AB487A7,$EE11849D,$CD771F07,
+   $B1718C49,$BFA2B29B,$FA58A1AD,$BA7D33CF,$2922FDCF,$6FEE3E0E,$A81CAEC6,$64544FD3,
+   $37B530E7,$D9E104A2,$5ED0BF7B,$F32FCBF7,$B0C13BE6,$3E58D4F0,$304FDF40,$B418C346,
+   $7FB93107,$AAC52F4B,$7C9C1D03,$DC3E85F6,$D37A5C62,$D5930DC1,$729D36B8,$0639FECB,
+   $1DB2E12C,$C0F49011,$BBAF6451,$7EA7A4FF,$15F9929F,$F6F04AA3,$86C4BCAE,$6643B639,
+   $1096E693,$6C084191,$4A999A4B,$8425E73F,$66D41388,$7133D203,$C25C0D5E,$38612A3B,
+   $C3ECBAF1,$B99B4C50,$7642F51B,$1D3B9392,$ACC36D65,$7F56228A,$609E4B80,$9D30738C,
+   $B3E417E2,$48A37E4D,$97E2ED92,$8BB191C3,$69658F9C,$2ACECF55,$0E012BBB,$DA077B3D,
+   $A2C246DE,$A55159B7,$43625E57,$33DB5BE6,$3804ACF3,$821C19F4,$D530046A,$3990AC4E,
+   $EACE473E,$D675725E,$C93252E9,$789E5A34,$64418823,$86321ED5,$F136FE1A,$FA8243C0,
+   $BEC0105D,$E45FAFCD,$7E0986A8,$2B3F4920,$460D2A5B,$A92350D4,$4FF6EE47,$1EDDEC0D,
+   $B93AFFFA,$89A66829,$F4598A16,$607A48F2,$7567D91F,$6BC0392F,$74D76EB0,$EA3A5F44,
+   $C5A6E2F9,$5598EDDF,$EFA13332,$4C8D796C,$02959BAB,$F701CCD6,$CC5D26E5,$E2665106));
+
+ Shark_CD: array[0..7, 0..511] of LongWord = (
+  ($5E55AFF3,$E6126AF0,$310B0835,$4B6C893F,$EBFC8D57,$AA4C0E84,$F3B3090D,$FB9B5C7B,
+   $CCBA5CE2,$4508A6A9,$4DC6BDE9,$E5D1D206,$5288EDDE,$34834375,$E46B250C,$B684505D,
+   $5A1E91E8,$A8CEDE20,$F9FA6ACC,$40B89B46,$FAB080BA,$8EE1EC1A,$408E0A45,$DE77D6B7,
+   $2E455802,$9A3E184C,$3F0955EF,$BE93FAD2,$AF39B909,$3AE76CE3,$6F5EA7C6,$AD7EE3CF,
+   $CFF0B694,$8B51D1F5,$3C43BF99,$70CA8D8E,$B2A8F6C9,$CCDBA7F8,$B5A922A4,$4C5E6474,
+   $541CCC32,$5D31ADCD,$8C3456A7,$9B7F701E,$ECFD593A,$2AC9CD08,$58C18E1F,$8FA08448,
+   $745BC9EA,$32F0C66C,$CBBB888F,$C58D6525,$4B529C05,$8C633CBE,$8AA0774B,$F2CD9EA6,
+   $CA2E7D0E,$2CBA4811,$C9649778,$E2E33F4D,$AC73537F,$F4BE1BBF,$379F29D9,$22DE6787,
+   $79137E46,$0956C2DD,$78868BC7,$E061EFE9,$0F97A85B,$1CC85ED9,$67C8DBF0,$31337E9A,
+   $E36AF161,$360193D1,$6383E5EB,$7FEFCA4A,$3241E243,$8535FE63,$ED68ACBB,$C3FEE03C,
+   $A570DAC8,$81C4ABDE,$FB25753B,$67D6C12E,$164DD980,$A4282112,$A13BE4D3,$CF181F0E,
+   $F86F9F4D,$A98FB672,$F66DC297,$5C70C59F,$C2B80138,$B0F7D544,$EE2246CD,$0DA79760,
+   $411BFFC4,$3740FB83,$114C0DED,$24ADE29E,$E0201B17,$F858E48D,$FDB154D7,$0E642F96,
+   $531D185F,$DDB46E41,$B33D0348,$25EC8ACC,$B1E21CBF,$0282D0A4,$8B3582CA,$1BFAB392,
+   $DEBCBB79,$AFFC336B,$F0F9E37B,$35C22B27,$1393121A,$03C3B8F6,$19DA71DB,$B8E07FCB,
+   $3DD64A18,$99FDA0BA,$034AEA76,$CE59775C,$80E9148A,$49EE599B,$C6F33F23,$FE2B6194,
+   $044B3E1B,$4EDCB4D0,$887F68BC,$D5A3C4CE,$E2FF04E0,$DF36BEE5,$C766CAA2,$171C4CA0,
+   $C8F162F9,$0BD41279,$EFB7B34C,$E490BA54,$72CFE806,$5B4228D4,$A9AD98E5,$5355825B,
+   $1B056E2C,$9F8E25A3,$10D9F86C,$CD9ACFAA,$DC63A48E,$88926903,$558939B3,$B40680F9,
+   $95EE277C,$239F0FD5,$34D5C3AF,$EC8710DB,$83A3FEFC,$87B72EC7,$6C144DB0,$63279493,
+   $DF294EF8,$46CB1E5F,$1492C677,$83467B7A,$08967C36,$9C4D9D55,$9BEC7AA6,$D6607C38,
+   $6517C407,$165D24F2,$69CA862A,$C4CC0D77,$360ADC58,$CBE94AB3,$9030ECE6,$84749631,
+   $56C3D3C5,$7A5FF7A5,$FEFBBEA1,$C03D58CA,$1A909BAD,$76B90897,$D9BD6F14,$2F79F0E7,
+   $3AD79E75,$19786336,$D7BF32CE,$DA86830A,$D0BEE6A3,$5A034086,$C0671ECF,$97998F2C,
+   $8F7EBCD1,$55260742,$184F845A,$51D752FF,$0A4963C1,$BB23C73D,$4E8C579F,$2B88A55A,
+   $665D2E71,$D80453AE,$8537DF10,$EE05C07F,$48187673,$423A4BE2,$947BD2FD,$CAA822E1,
+   $29448C6F,$1ABBDBC0,$6216106A,$96D8E77E,$CE654315,$6266FCC1,$7E12AA2B,$89D30151,
+   $2FD0AD83,$73093578,$0701D46D,$8085C38C,$B7763D53,$6B303E1C,$9A798F27,$3F57510C,
+   $6ECB5247,$4449CEFB,$22981A2F,$48AF31C9,$9FA744BD,$98BCC8E8,$069421EC,$69B2EEB8,
+   $B077E93E,$EBB5FD90,$150733F6,$6A71564E,$E1B5EE96,$116FC9B9,$937A0690,$4A2DE16D,
+   $BBAB7F7E,$B9A11799,$57562644,$9368DA91,$9E32B13C,$718BE5DC,$2599CE42,$C82AF245,
+   $F7F83716,$B547E8AB,$D62AC74F,$33B1AE3E,$4550C1DF,$799C4F53,$38088182,$3E16395E,
+   $7010F7F1,$7C2C72BC,$28D179EE,$F38CF6F4,$0CDD422D,$D2912985,$5B8B6469,$41F9F314,
+   $D3F40CD5,$945A37DA,$090389B7,$757AB061,$4AC76984,$6554118A,$D261F954,$7D6D1AEE,
+   $A2710EA5,$01416852,$735A1D87,$B27505E0,$B8E19508,$77F860C5,$E721CF7A,$78DD2701,
+   $DAF78562,$E12087BB,$21D2F059,$86F64695,$2746D1B5,$EF44A82D,$8EEB4950,$BC112A76,
+   $4F19A21E,$C2BF886E,$C5B9D555,$307216C8,$87E8C0E7,$C96B9A17,$92EFF311,$A31ACC59,
+   $817CE10B,$A0D974AF,$F16C16FA,$DCF50613,$7711239C,$FCA9B130,$3E9CA06E,$57A4D7E6,
+   $D8289A95,$C64EDDD3,$309EFDB4,$A25BA40B,$7BCC61B1,$2E3898B5,$0E025DDA,$F5FF73ED,
+   $A7AFC53F,$A6AAF1B6,$C42C20D4,$D9453BFC,$AAE77293,$9D0CF507,$FF6E4B20,$290A75FE,
+   $05DECB9A,$A7EB99E4,$230DEFAE,$A1981CFD,$F226FC8C,$12AC714F,$AB728712,$743BD833,
+   $33D417C2,$6C02D357,$0195F581,$E9372D34,$BFE04165,$F77DA349,$A4E52F49,$68F386EA,
+   $240C3BC3,$211DDF71,$5057F229,$13ED191D,$A3E4FB24,$E8764566,$425115B2,$F9198CDF,
+   $BD3F5E92,$D013F921,$E6B43AFB,$91EA0A35,$84A22A91,$0732ED4B,$1206E79B,$EAF495C2,
+   $0BDC9640,$5214EA09,$00000000,$00000000,$D12B1322,$B3346DB2,$4C534868,$0CE6FF32,
+   $7CCDB5DC,$AEBD5B39,$6A806C5C,$0A957A2B,$1C04BA41,$1F0BE62F,$D4F5D8B8,$14DFF456,
+   $615CFA1C,$58819022,$3540362E,$05B03DEF,$6B1599DD,$E3A2571F,$F52728E1,$9229B2C3,
+   $A8386D64,$BA62AF6F,$26D32434,$06738519,$E8B66721,$641579D8,$9731388B,$04F155BD,
+   $B9746089,$9ECF4DF1,$867D3566,$205CB723,$43C4E033,$102EA1EB,$0D48B7AC,$3BA604B1,
+   $BA3E8AFF,$50963AAD,$CD2FA963,$AC3F8B9D,$F4B2DD60,$7B1E9FF7,$1D914FC0,$F63CCB1B,
+   $C1F2EB4E,$7EAEA218,$E5FED08D,$5FB37D69,$9CEDAECB,$56E5BFB4,$685F73AB,$2DFB2043,
+   $DDF6510F,$61A54437,$204705D8,$6FC16BA1,$FC24A156,$E75302A2,$2B9B9398,$3DD581A8,
+   $75CE3C6B,$DBC7EB58,$44C5345E,$90AB6267,$C32DF4B9,$59C0F870,$59547B9E,$6697A97C,
+   $D5602D39,$FDE8D962,$AEAC4C88,$D3D041D7,$478FDE28,$5EF2153B,$2A0E6619,$D4E2AC9C,
+   $BE75B4E4,$1E4A8E7D,$8DA1A326,$72485D2A,$EA6978D6,$437B23B0,$7684D61D,$159E9C04,
+   $5FC05A72,$0F2547C4,$99336551,$F10E2650,$89EA9D3D,$3C94E9FA,$9D785B4A,$BFD29280,
+   $DB6270E3,$0817AA8F,$7F875FAA,$60E42C65,$98A690D0,$18390B64,$7D58405D,$478A760D,
+   $5D1F4585,$284B1DAC,$60C90F9D,$B1B6BD16,$1F4E5037,$D1529173,$17D82C01,$4D1F0C26,
+   $7A599430,$C70FB581,$91A51967,$6D43BB05,$82360B7D,$6E8003F3,$ADE6A6FE,$1D89368B,
+   $A63A30BE,$4F9DDC82,$96A4CD0A,$EDC67889,$498D83F2,$AB0D66D6,$2D0FB274,$54676F10,
+   $5C8AB004,$C17C3098,$1EDBA5B6,$3865BC47,$BCAAAB13,$3924D415,$71850270,$951B5F88,
+   $6D81B831,$8A10B9A7,$2C9A47F5,$BD504224,$B43CD725,$A5694940,$64823186,$FF6A09C6,
+   $E92392A0,$8D2254EC,$461A2BA9,$B7C5380F,$B6E3C8D2,$82071328,$399D7403,$D721146A,
+   $51C207A8,$FADA3429,$A0AE1152,$262F323A,$3B426BF4,$F04F4E02,$02DF1FF7,$276E5A68),
+  ($FD16E203,$3B4016DB,$1174530A,$9A7574C5,$C02EC8D3,$90012E69,$D780E076,$F44580E3,
+   $49ECA14B,$F81DEC2B,$A6E3D7EF,$26CAE3E8,$0C41F6AB,$0962419E,$70EBD951,$54D1EB40,
+   $0188EEC8,$865E884B,$A406FE8A,$DF76067E,$E594FBA0,$29849412,$6869C0F2,$46156989,
+   $BBD6724E,$B5DDD6B3,$9E6C413D,$0C586CC8,$54D904EA,$6B0AD970,$EC62B109,$A135621E,
+   $087EA461,$0EEF7E47,$DFFE4417,$FAAAFEA4,$80342331,$E0AD344E,$3D382AD0,$AB4138B2,
+   $8E90FCFF,$10739046,$218561B9,$BE0885A2,$7D22C132,$DBED2295,$7FC7E857,$2251C703,
+   $BA5E9C86,$33835EF8,$F4E0A8AA,$B3F1E0D7,$2432DDBB,$3FDB3230,$A3546BED,$A719547A,
+   $CB3DAB1F,$E10C3DF3,$8AAFAE35,$17FEAF9F,$154B01C0,$9DF84B1C,$93A5595E,$8364A51D,
+   $74D48B9B,$535CD499,$4B09882E,$01A109BD,$B0C51182,$C4D0C529,$E1ABA96A,$2E09ABCB,
+   $CDE7D0B0,$1F3DE7BC,$1D35A5A1,$9317355B,$50E65620,$6C87E6A9,$42FFC287,$8910FFB1,
+   $275F1A16,$40395FED,$DA49F815,$7B794936,$98B63A92,$F269B687,$DBC116DD,$FD27C17D,
+   $9BDBFD3F,$8D8BDB5A,$14C3EF08,$1BA6C357,$C6F4B37C,$6E30F426,$036DC7AD,$7FE26DDD,
+   $57B4C347,$14E8B4AD,$25BA3373,$B985BA7B,$8C75D59A,$E9CF75D0,$5898F241,$626898EE,
+   $339CF51E,$5B9F9CBA,$BFE92084,$B250E96A,$C1A6261B,$165FA622,$9C896858,$F5E4895E,
+   $2DC49712,$B76AC43C,$9612E55C,$02B7128F,$5BF535EC,$1D8AF533,$28732B10,$36B973AE,
+   $E02347A2,$A8572380,$4192052A,$F6F2926C,$D0D27511,$8C2AD2E7,$3A6ABFB7,$D32E6AB6,
+   $FC9E0CCB,$BD1E9E90,$DD1B6D72,$03161B32,$F23AD305,$4DC03A98,$05B7BC02,$81D3B792,
+   $B572AD80,$450372BB,$3CB0C418,$2D1FB0F9,$388F96D2,$2A928F20,$D6080EBE,$721B08A8,
+   $563C2D8F,$92B63CE6,$1A6730C6,$EB78675F,$538B918D,$13658B74,$B14DFF4A,$428E4D62,
+   $09F64AA9,$88B1F60C,$D2375C74,$75963771,$9140703B,$7AD8408B,$ADF0B423,$57C7F072,
+   $121994A7,$E5971918,$E6F93C0D,$5666F9CF,$0DC91863,$8F3CC9D5,$86EE589E,$1E9CEE01,
+   $9FE4AFF5,$8A06E483,$6EB3BB5D,$B824B3C6,$AC785AEB,$D1997839,$CAB545D7,$6752B5B8,
+   $F0DFFA60,$B47CDF0E,$190AF76B,$949A0A82,$69E12E3A,$C04BE1C2,$90C89EF3,$FC86C8C0,
+   $5D2F4E43,$E3BB2F7C,$1FD08CC4,$6AABD0CD,$A2DC8525,$2147DC31,$B8BBB5E3,$CA3FBB6E,
+   $60176493,$48FA17CE,$17AE28A5,$6444AE8A,$73861EFC,$2B33869D,$E771D2C5,$D0387184,
+   $DE76AADF,$7CF476EF,$13917A6F,$63C99153,$65A0D891,$C929A05C,$362B491C,$DA4C2B28,
+   $06DA7BAF,$FE31DA4F,$22E8A614,$C1EAE87F,$37A3A7D4,$5C12A363,$C9D8827A,$18B0D865,
+   $840B71FB,$E7200B97,$BD0C09E1,$4BEC0CFC,$43772C4F,$0F4E77FA,$B9335B2B,$4C613325,
+   $D3BFB2BC,$F3C8BF3A,$4A8166E6,$87FF81F6,$7A705455,$A3827091,$82D10A54,$1911D1D8,
+   $FE7B25AE,$44A27B06,$D9243FB8,$049B24EB,$B3A8D62F,$BB32A8F4,$8B2740FD,$91A027D4,
+   $B22038E7,$3D6C20BF,$CF02F9D5,$E681022A,$45AD57E0,$F17FADB5,$F78D6F07,$CC138D0A,
+   $2B1EECBD,$495B1E73,$200D8F71,$38560DE9,$AB2ACF8C,$A9F62A3D,$236048DC,$47B46034,
+   $46C0904D,$8E9DC068,$3907781A,$ACCC076B,$F15714A8,$32225745,$3E55ED7D,$D4A3556F,
+   $E34E800F,$D7B54E5D,$32141BD6,$DDC114F1,$1BEFDE0E,$6D26EF14,$DC9383BA,$85489379,
+   $9A5313F7,$0BD55311,$07529567,$786F5204,$F3B23DCD,$CB9EB2D3,$3179DC7B,$A223792C,
+   $D15A9BD9,$0A745AAC,$0B1363CC,$710D139A,$89C26998,$681CC242,$5FCA6726,$1A07CAEA,
+   $D8ACD170,$82C5ACA0,$7BF8BA9D,$25DCF8DA,$6DDE7CF0,$C7C6DE1B,$B4FA4348,$C35DFAF0,
+   $EF0F76A4,$DED70FC3,$A9CFE6E9,$504ACFAB,$FBCC99AC,$C571CC94,$A1B14288,$5EA5B1EC,
+   $AF159D46,$AE7B15E4,$2EA950BF,$C888A9E1,$0A9B8D04,$F7539BD1,$8F181237,$962D180D,
+   $59101C89,$E43610A5,$4425B928,$772125FE,$979A0B94,$84E99AC4,$26D7F4DE,$C667D7A6,
+   $C3430F7E,$EFE343B4,$755C6553,$D5025CD2,$E85DE3C3,$A6B85DC7,$A8470821,$D61447E0,
+   $6F3B5595,$3E7A3B8D,$3FDD03B5,$52FDDD24,$4EBE342C,$8072BE2F,$188219A3,$12C482C9,
+   $C8506CB2,$9EEE502E,$720EF034,$AD6D0ED6,$A58E1042,$59288E35,$1626C66D,$E21A26C1,
+   $30F132B3,$247DF167,$0EA4DFCE,$F0DEA408,$2C4C79DA,$31344C77,$64283659,$4F772817,
+   $4C5B1D49,$79CE5BB9,$00000000,$00000000,$9D018690,$73BA0115,$993ED45A,$74373ECC,
+   $B79784E5,$BCBF972D,$2F21BE77,$4ED621AA,$EB30246E,$D95A301A,$5E4289EE,$9C5942A1,
+   $637AA33E,$37187A13,$EDEA5FC1,$276BEA55,$10FCBDC2,$1C2BFC8E,$5551EA22,$ED54513B,
+   $E9D50D0B,$20E6D58C,$B61F6A2D,$3AE11F66,$81BCCDF9,$66F3BC05,$77B94C36,$2CBEB944,
+   $CC6F3E78,$99636FF7,$52037F45,$953B033F,$29FBC5D8,$B0E7FBE5,$CE8A171D,$60DF8A61,
+   $8DFD3B52,$6F91FD9B,$7631A2FE,$AAE0310F,$6A8CE997,$BFA98C1F,$D4ED27DB,$8BA7ED3E,
+   $8766B656,$98C2664A,$4F36DAE4,$062C3664,$3BE2517F,$5570E2FD,$516EB8E8,$EAD96EE2,
+   $6C569238,$41985650,$34CE6079,$23F0CEBE,$6745F1F4,$309545CA,$78957D30,$5A3E9507,
+   $85839F33,$617E83DC,$94F7CC39,$FB0BF719,$F929B0C9,$3CCD2902,$401AEBE2,$70AC1A27,
+   $619F8A5B,$CEA49F85,$6B04075F,$39F70454,$D565C913,$0DF96575,$47487E85,$08C34823,
+   $71633799,$D28F630B,$1E58620C,$ECF55886,$FFF3CB66,$C2FCF34D,$C4119A19,$978C11B0,
+   $C2CBE1B6,$69BDCBFF,$F8A15E01,$BA93A149,$E2C66EC7,$51EBC616,$043F52CA,$078D3FD9,
+   $EE87986C,$58898788,$F60581CF,$4A4D0541,$C77C5DB4,$E86E7C6D,$884A8750,$EE424A09,
+   $BC84E729,$CDB284B7,$5CA7A08B,$65E5A737,$AAA22144,$2FA8A276,$A76B3927,$A0946BA3,
+   $35468EB1,$A5AE46F5,$F5684662,$35AF689C,$AE9D738E,$28259DAF,$2A960275,$CF059638,
+   $66CD1F3C,$B6CBCD81,$48644F83,$7E436460,$5A7DDB24,$9BD47D78,$FA447764,$432F44DF,
+   $8359E49C,$9F4F5993,$957F22F1,$7D557F52,$0F2C3106,$76802C43,$791D93F8,$DC601D4C,
+   $922DB796,$053A2D56,$C59974D1,$11D299FB,$02E52965,$F9BCE596,$A039AC40,$D8FB39A7,
+   $BE61CE4C,$340E6121,$EAB8CAA6,$5F04B851,$7CAA2FFA,$5DB3AADE,$1CBD4B69,$1549BD10,
+   $4DD3F381,$FF90D3F2,$E41C1568,$AFDA1C59,$62F24DF6,$B146F258,$7E4F069F,$A40F4F48),
+  ($F8F0F94C,$A1A35CEB,$0F3F095D,$2C203D65,$4084A2A7,$1A2BDAEE,$4D7BCC68,$D3240457,
+   $94A9ADC4,$F785BEA5,$6206949C,$F2EB5445,$0475CED1,$3F5E334D,$835D1F60,$5994299B,
+   $AC204794,$785B7989,$CF461A41,$025DA6A2,$F01A901B,$DF1F3A71,$8BB77637,$27284F01,
+   $694C5310,$E1955A6D,$D9D261AC,$24A1BAF2,$9FE36A48,$E4FBB08D,$F7CFF011,$8D83618E,
+   $ABF5279E,$2AC72276,$E68EEBF6,$F9E32621,$D3F86F69,$BF323FB4,$B8745BEB,$BB888605,
+   $7ACD2F65,$70DAFE1E,$1F1EDBF3,$D0ADF1A4,$2B089625,$1E91635F,$864818F8,$EE2791B8,
+   $C56C1484,$99CE23E4,$FF259946,$F33F0714,$1CBE7528,$BD6F9916,$61A63A47,$9F293CF7,
+   $EA114C70,$B80173F6,$D54DC62A,$6543EF25,$A0BFE012,$39B92C5E,$7187E8E9,$63A4F036,
+   $2CDDF62F,$4C0D38A0,$39E92319,$07334C42,$C3D9BDC7,$43BFF375,$5F9A7954,$CA862B4A,
+   $E8D12BE2,$5D2E902A,$0B4AC78C,$137E0E28,$30638307,$F162A1B6,$3E3C4313,$55AF17BD,
+   $1DDEBC61,$35821278,$E52E452D,$94214E93,$DB12063E,$C18E592E,$490E02B9,$EC7A371A,
+   $DA72CF77,$4963D240,$0C9FA786,$41E255D7,$4244C535,$FF043932,$0160C949,$88ED8B6E,
+   $9E83A301,$6C163BE3,$B09E32BC,$C534E09F,$D78DA1B8,$806C0CF9,$9B96A499,$DBA583C0,
+   $11411BE7,$746047AF,$C6CCBA5F,$F40C4B56,$ECA4E533,$6270A367,$7492EF71,$D4174815,
+   $1B6B1522,$EFF3C2E9,$72274632,$0E669884,$9AF66DD0,$534808AE,$18CBBBF9,$8231AA5B,
+   $F3BA3EC0,$B2DD52C3,$3F5C8A5A,$DD429CD3,$E39BEC6E,$4E509E02,$16947BED,$26FC1C50,
+   $54D0BED8,$D9F82562,$4BCE652B,$0955D4C6,$FDE5FED4,$1610E4C8,$03A0AEDB,$6DC268B2,
+   $C079131C,$2E7D9BC7,$14541C7F,$C3D3FF8C,$BBD4F530,$D64AEEB7,$E15B8BFC,$AB7F7DDE,
+   $32A3E495,$144D426A,$A5AAE78A,$8E0A947D,$31034A4E,$798F2AD8,$6FF9FA53,$3BE48AFC,
+   $07D5600A,$529C5BFF,$4EDB62B3,$BEE66CE5,$DCC76634,$931202D1,$C8937A4B,$50C1FD5D,
+   $0E5FC014,$A4CDB60B,$F17A5952,$57F2B11F,$A8558945,$47054AC4,$D13808FB,$5A1DDC68,
+   $75F22638,$5CFAC37B,$897711A5,$C207ACDD,$64B33DDF,$289A84D4,$46310BE4,$C05A0A7F,
+   $50A57009,$E6A6162F,$A4CA2EC3,$06E71F13,$279731A3,$5F733688,$70E721A0,$EB497B58,
+   $98360A42,$B667EB72,$A60A4951,$E3C8FCCF,$CD867DD3,$E772457E,$682C9A59,$6978D103,
+   $204251A9,$0DEF6D77,$0DFF6ECF,$C90FDEB9,$823DD629,$D179A2F5,$5D5A1EC6,$2FA9C896,
+   $4AAEAC62,$81B85FA8,$A27F8780,$DC96CF82,$23E2FF72,$602D05C5,$12E1B53C,$19A22F1D,
+   $02C06792,$E52FE3DC,$1E7E12BA,$58407ACA,$BEC1F2A8,$61F95694,$4751C2AD,$48B78111,
+   $7C788626,$AAAB2E8F,$6B8C3482,$04BAB9B1,$921C0487,$2DF46E34,$C40CDDCD,$1123A88A,
+   $E2FB2527,$C6BD156C,$95C9648D,$7F6835CB,$85E8B623,$83E5F90A,$7EB8E1B4,$4F84CD53,
+   $F9903005,$294ED785,$E44E8C64,$1CCCC5FD,$C2B9748E,$CB52781B,$796D81BE,$1D1896AC,
+   $6E99331A,$B3090192,$4591A53F,$AD9862CD,$90DC6315,$C8DB8DE8,$FE45500F,$7BD28C7A,
+   $19AB72B0,$0ADC2135,$B33E9C67,$A8F6882D,$CA531DD9,$B5EE1E81,$B25E552E,$201B0343,
+   $91BCAA5C,$40360686,$17F4B2A4,$AE11973E,$FC85379D,$9EFD6FA6,$B91492A2,$33650D6B,
+   $F2DAF789,$3A30D9AD,$BD615C73,$0C3B3E26,$098AA01E,$F651EDF4,$E7EE22BF,$710EAD4F,
+   $765288E3,$3138ABC9,$AEE02006,$9D749A55,$51C5B940,$6E4B9D41,$BC01953A,$84D6B548,
+   $4FBBABFA,$360BE78B,$AA95EED7,$A22AA918,$D42D0F63,$EDAE644B,$3576849F,$46D11995,
+   $486ECBF0,$6497BC74,$29C8F1B7,$FBBE8083,$8817D8EC,$4AEA27B3,$6C595488,$5626E24E,
+   $F6AF3958,$056EEAE0,$67139304,$4558EC66,$FA309EDE,$448CBF37,$CCE6B49A,$6F9FCE10,
+   $65D3F496,$A0770FBA,$1A0BDC6B,$671E4987,$06B5A943,$DA71D091,$D6ED68F1,$08818797,
+   $37B6E30D,$A3FEFA49,$3CFC2481,$B080F461,$DE0701A6,$763DE10D,$B1FEFBF5,$4DD96BF1,
+   $41E46BEE,$92C65180,$80FDB1BB,$34564129,$584F195E,$981A70B5,$CB33D490,$3D0395EF,
+   $25575631,$BA5CD554,$1534D536,$4B3E74E2,$3A498DC2,$6AF124F0,$08EA6957,$7EBC669A,
+   $EB718539,$30ECF898,$2E1D91BD,$A922DB7C,$63665DD5,$7A06DF2B,$A1DF295B,$B154A730,
+   $1021D2AE,$FC8DCCC1,$A935400C,$CFE8C1AA,$B74B52B6,$97A8BB60,$8FC2B8E6,$18767C4C,
+   $9709031F,$9A47D617,$00000000,$00000000,$D8B2A8E5,$AC4C319C,$773241AA,$B9D520A7,
+   $6D399DC1,$DECB6920,$B62B9BFF,$1F45300E,$592FD017,$10F7FBDB,$9956C30B,$3E8A601C,
+   $212298E0,$8502E619,$5BEFB785,$F5D81807,$A31F4EC9,$547B44EC,$33C32DDC,$9CA0C904,
+   $F46F5ECA,$E041093C,$C119DA55,$A69010A9,$7FD828FD,$C769463D,$2DBD3F66,$C4E0B3CE,
+   $44F16C76,$2575E9A3,$9D230DDA,$01D45351,$B4EBFC6D,$FA6AD3D2,$E9B1E2AB,$D5C31B44,
+   $7BADE62C,$F8377570,$819D78F2,$BCBBCA47,$26F7F8EA,$D79EBDE6,$4C1B0521,$5BC98F39,
+   $7D184F6F,$2246A5E1,$9669CA56,$12AA5D79,$BAB43C79,$5EA765D9,$9C43C493,$8939D83F,
+   $24379F78,$32B15E3A,$BFA13BE1,$E914DDFA,$8EA271AF,$909BF722,$28A838FE,$73530BED,
+   $D058C1B2,$D2F05706,$DF67C8EF,$FED06A63,$57701003,$B43A4DD0,$937CCDCE,$A519E55A,
+   $8C62163D,$75B414FE,$8AD7BF7E,$AFC5C46F,$E03B42B5,$2392F6B0,$3D9CEDC8,$386D7F0F,
+   $2F7D58F4,$21CF5012,$0A2A0EC5,$9B938546,$55B07791,$5115AE0C,$EF044BE8,$0FB2CBD5,
+   $EDC42C7A,$EA9D2809,$FB505797,$CC613459,$5EFAB01D,$426BA024,$AF80E94F,$1599113B,
+   $5A8F7ECC,$7D359369,$5265179B,$0389F5F3,$EE6482A1,$875F40BB,$780D48F7,$95F51DC2,
+   $C7AC7316,$7CE1C038,$34164DD6,$CE3C92FB,$66735A4D,$CDB56708,$CE26D308,$8AB02DCC,
+   $13817C75,$914FA473,$5305DED2,$8B647E9D,$C9F3B302,$D82C7633,$B58B3524,$728758BC,
+   $2282363B,$E8C08EAB,$3889EA50,$8FDEC72C,$36D62A44,$2B137127,$5610D94A,$3CD7C6BE,
+   $D298A620,$37DFB4DA,$73478F7B,$868B13EA,$05150798,$B7B3B823,$84887F6A,$0B087264,
+   $DDA7AF7D,$1BFF89BF,$43240C7C,$77E9B25C,$AD408EDD,$F0B6F2E7,$60C6F30E,$17C4B799,
+   $6AECFDCB,$8C5732DF,$F50F9783,$68AC8252,$8728D1B1,$66CA1AD6,$A76A8018,$6B2577A1,
+   $3B29448B,$E21CAF9E,$5C3AD78F,$A74443F8,$8D02DF74,$FD599F90,$2A685F6C,$967CE831),
+  ($BA3AF751,$FA7B9775,$769C2D13,$03EF98CB,$7072359E,$7191CE06,$FF7516A8,$BAB18B6B,
+   $FBC1065E,$E6E5EF4E,$B1D0DBF4,$7BEC74A3,$07C31C4A,$656B4FB9,$9FC86304,$4E8520F9,
+   $D16DAE58,$8FD8DF31,$E60A7244,$90A93FC1,$B449CFC5,$30AD09F2,$91BB5B90,$8453BE7E,
+   $C08FEAAD,$1D68A3D1,$04B410F6,$5C546425,$8A9E3707,$8061383C,$CCA6DA42,$F9940FBE,
+   $A982BBDF,$46E1D97D,$56F7AD77,$FC505216,$F35C2647,$5E4D2704,$CA48C2CF,$8BEA5973,
+   $A34593BD,$D06323DF,$6A7A5DCE,$62B65130,$4966D116,$A436B071,$1EBC78A6,$4F73FB13,
+   $11E244F5,$92B07CE0,$C2D5E2D6,$33429139,$15565403,$CEE418C5,$CEFCD239,$D7BE3D56,
+   $5F4789A9,$53ED8328,$0D043428,$F3E9B51B,$D8DD8A86,$20650E0F,$D21AA2E4,$B6E7F4AD,
+   $3189C491,$6D0FB63D,$AC1BAFEE,$0DA0A42C,$EFBA569A,$3F14EEFF,$1A086850,$13279F36,
+   $A6DC878C,$9B225E8E,$715F3159,$6684D772,$24DF9092,$A3EBAEF8,$D4F4BA69,$C499A260,
+   $93E153EB,$AA798C96,$29DBA4BA,$50021BE3,$FD2F1ED3,$949BB983,$F8B60AE2,$DFDAC4D2,
+   $7B98193B,$F0062DD0,$09B024DE,$AFBDD13E,$89E93BBB,$B95E13A0,$86B707E8,$649D9453,
+   $0C2930EF,$E4FCAC6F,$C43BFA5B,$413CC7F4,$F49F3A0D,$3B2668BD,$8D5D2B4D,$E50A7785,
+   $9A517735,$05C45DA8,$6ECE4D38,$3EE23515,$A11F9BC6,$FE491137,$536EB946,$B7112F47,
+   $6DB94184,$07DD1E89,$AD36AB29,$1AB5BD58,$0BEA2CA5,$8197E3D6,$12954849,$AB8F577C,
+   $CB65C608,$9CFF4007,$5243BD81,$A0043633,$D783B6D5,$FDA689FC,$E2BE62B2,$CCFD5BE4,
+   $6B575909,$75A34844,$012D04C7,$17151974,$3B4EECF3,$FB8D4C9F,$7F2C09CD,$AC5249F5,
+   $90965F57,$9346A70A,$1B256C97,$04328642,$B564CB02,$27B81086,$2E18B8F0,$3569545A,
+   $DD449EB7,$6B24735E,$59A99124,$2193D5E5,$A268977A,$C7763AAB,$3ED7F8C2,$B0CC31CE,
+   $78EF1587,$C939064C,$80591F65,$16E3C29E,$85C00B54,$5DA2BFCF,$9EE567C3,$5990398D,
+   $F02B2AFB,$67720C98,$32FEC82D,$54309DA1,$D6AEB212,$EAB39088,$0AC72862,$9682FAA2,
+   $D5D9BEAE,$D38CBB14,$682055B5,$4C9C63D8,$4F88C99B,$D648E6BC,$8E2A27F1,$DC355C19,
+   $6C944543,$10C807FD,$DF1E96CC,$450E41B6,$40D6F5C8,$0B8B614F,$54ADA50C,$D27A60FE,
+   $F2712280,$49583E70,$268598E9,$8DC19C10,$1F917C61,$5866E267,$4638ED45,$79F53782,
+   $3839E04F,$C2B26703,$8F072336,$CB20456D,$197F64EC,$2A18B4AA,$E3936675,$DBE84290,
+   $879A032F,$73888D27,$214684A3,$E8AAD3A9,$4715E982,$6EE02EF6,$E57D7EF8,$A996145D,
+   $F99B0E25,$C8CFDDA6,$ECCD5A26,$062BC563,$3410D0A0,$264ECB6C,$089D2019,$B8A8C84A,
+   $5D1D81D2,$7DC7B1C0,$3914E488,$D5A77E77,$05991431,$4B417D51,$9755431D,$F62DE8B3,
+   $5134B13D,$993B1DAF,$7D7601B6,$82787B1D,$6190716B,$E321B2E6,$A4868FF7,$B5086C66,
+   $3C8DF0B9,$9EE60326,$AF6CA352,$349F8FB0,$690D5172,$5B897AAC,$DC699A70,$7C316A2A,
+   $B860FF2A,$D451A59D,$F1062E3C,$706715EC,$FC021A14,$838EA0F7,$4462E53E,$57DF056A,
+   $94224FA1,$CF12C32F,$BB17F396,$ED6E8E01,$677E69E6,$915FE42B,$3DA0F47E,$89F31A52,
+   $7AB51DFC,$E71334A4,$6409655A,$A860CFB7,$BDF9EB1B,$9F10D8CC,$4CFFC527,$EF77CD20,
+   $4DD2C1E0,$F862D454,$4B3CD96D,$8A1C8299,$88C43F7C,$AE4B0AD4,$D040AA9F,$98CDC645,
+   $AAF5B763,$7FDEF2E1,$28F6A07D,$47170297,$EA2342AB,$745593AE,$CD8BDE85,$EE8116CA,
+   $06EE188D,$727E56CD,$2F35BC37,$227C4D2E,$8BB333C0,$97742148,$A5AB8B30,$A21D7512,
+   $7E010D0A,$BB475081,$B0FDDF33,$6CF96DD7,$EE97525D,$2801F78B,$41FBF10F,$1C9E783B,
+   $4A11DDAA,$9D099BED,$30A4C056,$7A1AAF49,$43A1F974,$32B44AD3,$99267B89,$3CFB7634,
+   $C93FCE73,$B2D572EF,$EB0E466C,$63408ADA,$FE58126F,$ADA4921F,$72283DE5,$5FBBFCEE,
+   $5C308515,$6AD2A8B4,$2D6FB44C,$0C567FC6,$7C5B0571,$956D6269,$428CFDB3,$25A153A7,
+   $F6C53276,$150C5A55,$E0E46AC9,$E2D7690C,$62E77DD7,$DA1E997A,$E1C96E0E,$F5C27078,
+   $B94DFBED,$C344BCE9,$9D926B7F,$60AF1211,$D337A623,$A1F2EDD9,$0E733894,$CAD69E87,
+   $D9F08E41,$3770177B,$C812CAB4,$A5C06B9B,$3767DC1C,$1F71E0F0,$5E6A8D6E,$44F89A5C,
+   $1CE670DD,$6159C9FB,$5019B5FA,$8E2E04DB,$BCD4EFDC,$8805C1B8,$967847DA,$E138F1C7,
+   $84ED0F93,$4AB7A6BB,$00000000,$00000000,$8203171E,$38C9F076,$2C42B08B,$1B4366B2,
+   $C74CF6E7,$7803EC68,$3A63E834,$EC9855EB,$E4507A3F,$BE830D29,$74C62568,$2DC5AA23,
+   $BE8EE7A7,$A62FF350,$1DCB741A,$764CD08F,$A7F1834B,$8C3747FA,$5BF3995F,$0FB9E70D,
+   $B38AD38F,$55C6464B,$162158BF,$F7DB3359,$2231881F,$D195F835,$B73EC379,$0992226E,
+   $77B129D4,$14FA81BF,$73053922,$48AEE59A,$C3F8E611,$2457884D,$206B8064,$FFBFCADD,
+   $25F29455,$B4FEB78C,$66536D21,$864AFD5F,$C661F220,$6F16F51C,$79C21140,$DE2C1F38,
+   $DBAA863A,$195A2593,$025A087B,$2E2A32E8,$33D3CCEA,$432584D5,$F5B23ECA,$2C3371C9,
+   $3FFAFC05,$A7D928BA,$B2A7D748,$42D35F3F,$10CF4032,$85A56594,$364AD8DB,$0864F984,
+   $8C702F8A,$F21F6EF1,$FAEC0299,$F1F0F63A,$147B50C4,$D9F101B1,$832E13D9,$2FDCE902,
+   $E9544E17,$4D6AB832,$170C5C78,$E0CE2A2D,$A8AFBF18,$51F4C009,$ABD8B3A4,$68CBEB95,
+   $4EA5CD5C,$C15DFFC8,$F7E836B1,$02194321,$EDE05EE1,$113EDC17,$DE33920B,$521B58C2,
+   $27A89C2E,$9AD48564,$C516FE9C,$5629DE80,$9CBF6FB8,$77BA0B65,$AE41A795,$238A96C4,
+   $9B7C73F2,$12D144DC,$950F4B66,$D807DA5B,$588495E3,$3686CC91,$5ADE9D98,$18ACFE79,
+   $E8794AD0,$5A7FA146,$231C8CD8,$C680E141,$B613C7BE,$1E873B1A,$60BD75AC,$F434AB92,
+   $63CA7910,$CD0B800E,$13B84C8E,$BC9A4E08,$1852602B,$3D0DADDE,$454FE1F9,$40CA1C1E,
+   $C1A2EE6A,$0A7DBAA5,$2AACA806,$693D307F,$DA8782FD,$0E4F3CE7,$92CC572C,$BD6C95E2,
+   $75EB21AF,$3AD0B357,$2B81ACC1,$7E28290B,$81741BA2,$01F6DBEA,$E7277683,$87BC26B5,
+   $03770CBC,$393F2B9C,$0F5E3C53,$DDC387F3,$57DAA9B0,$EB454B62,$484BD5D1,$B323A905,
+   $BFA3E360,$B13AEA24,$353DD467,$315BD218,$980B7F4E,$2BEE6F40,$A0329F01,$E95C0843,
+   $5580A1CB,$C56F798A,$6524619D,$BF75D6C3,$6FE349FF,$29F72C61,$CFD1D6FE,$C0AB2422),
+  ($E957943C,$561FC423,$69079288,$014287CA,$DFCD1D21,$2F086129,$A044FD99,$C537D4AE,
+   $D7C8A457,$F1E8C3BF,$5CDF9BFB,$2971998A,$2CE9E460,$23FA649A,$56A6716A,$3AA9E9C3,
+   $AA3D1708,$D6EFA4E7,$FDA5B5EB,$705A24B1,$B170A9FC,$101E0CE2,$0E814CAA,$7CA82102,
+   $1931ED13,$0BC97ADA,$778C59CE,$34DF1711,$9226D2BF,$D35020EF,$805006B4,$575D43E9,
+   $9B1DB840,$91ACEBEC,$3B5945D9,$549B3F42,$3925163E,$99A3ED9D,$369A891D,$7917A50A,
+   $B4B6DC4E,$E372343C,$D949E8FD,$8D40E2BD,$D0728202,$CFBC29BE,$7108AC12,$96979485,
+   $B30CFA1B,$DD26DE3D,$D8773B74,$115C8B28,$C480A3D5,$E9F9C92C,$4116D0D3,$4DC8B21B,
+   $4F979C79,$31609319,$0342806E,$5124BB4A,$DEF3CEA8,$B31408BC,$F158AAA6,$C1CAD76C,
+   $E1522D4A,$88FF66B5,$76B28A47,$A8C37E84,$896B6C4B,$15A188EA,$0684F5DC,$A2488394,
+   $5919EE49,$DA1DA154,$45EE76E8,$22B8E350,$25D28E9F,$6106AF99,$4792250F,$EF80318F,
+   $CFC79ACD,$663DD0F0,$26900EF1,$302214D3,$61022BFE,$DFA2255C,$8CAD19F9,$E6CDB034,
+   $6A4512E6,$50663C80,$74CED9A0,$65FBAC5B,$C9436F11,$C4755364,$0B473918,$8FC419DC,
+   $9961EBA7,$5C943933,$6EBDB4DD,$3F166DCB,$15CCF25E,$BA598907,$BECF36DF,$F0AA4475,
+   $BB09436D,$03C67CAB,$AEC5B133,$B99FF5AC,$75F00A29,$F9E7C5CE,$D6F677DE,$6DF4AA2A,
+   $F5A00C9D,$AEBA8627,$EC91E18E,$A573FCFD,$B5880FC7,$7F6E5DA9,$E86947B5,$CA03ADB6,
+   $ACB9E2D4,$74A72773,$4CD51C17,$60442853,$1CF798A1,$F8A54204,$8A29EC25,$448533A0,
+   $436A8334,$80F060C4,$9A236BC9,$0DB08279,$CEF94944,$FA21B965,$1DC94B28,$64B92B91,
+   $94A22763,$7118A37B,$9CA79E15,$AFF801ED,$2B53C235,$1DAE8E9B,$0A79EA91,$13D87049,
+   $335CFCAF,$8A7B9DD4,$F95D13D0,$1F2A75FA,$2E95B787,$EEC2B645,$23567B43,$C34E2C0D,
+   $3120AF48,$47434F0B,$BD8DB6B1,$A18EFF3F,$502284B6,$98E16A57,$CC851AA3,$37196BBA,
+   $6240AB90,$8E869E16,$BA3790E4,$9FDA153E,$86D4F368,$F515C07D,$2FAB640E,$72DEDFD0,
+   $DDB14EC6,$E230B3F6,$180F3E9A,$97D5134F,$66B80DAB,$E1F6CF5D,$E5AA8B71,$E78F37FE,
+   $6F836754,$A30A045E,$F21A2AC8,$90EE6C26,$A4BC5BA2,$AA4785E5,$FA1F93BE,$4E0ECEB0,
+   $A3067DF7,$94136FE4,$E49458F8,$7B935E6B,$EB2BC7DB,$9B2716FC,$1276D40B,$840D6306,
+   $959CF4EA,$ED04CAEE,$7F89E0B8,$EA3FB587,$5DE14872,$B56DF01F,$100A87EC,$4935B1D9,
+   $916452D1,$82749BA5,$C87DBC98,$58693AF1,$8855BFC2,$89BDE17F,$A6C00845,$677F573A,
+   $168E7230,$EB7D324D,$D20ED1E5,$0284FB61,$0CFD1F4D,$B190F3DD,$EEEDB269,$684B2E22,
+   $8ED14A1E,$2BF562EB,$0FBF9F23,$E0B44897,$EDAF3207,$396F9568,$B84BC303,$52E2C7E1,
+   $17B0A1B9,$77615BD8,$DC8F9D4F,$7E2CDA63,$6CC1E73A,$F22EBF14,$985F382E,$C08850A6,
+   $E210AD24,$D9DBDDFF,$2DD737E9,$BFE60D0F,$822C5553,$9A659136,$A97F9766,$87CB1FAD,
+   $2811425B,$4C8A35D1,$F863C059,$83361C6F,$FB214037,$D212A725,$D330026C,$9E9892F4,
+   $E32E7EAD,$45C7B46A,$7374FFF5,$5BAF465A,$DA0B6893,$DC6459F7,$7833C6ED,$D46B5F86,
+   $F066792F,$5DD6BEF9,$816ED53D,$CB412A7C,$C5BE705C,$75E5A0B9,$3DDDB005,$F6D3BCD6,
+   $A7FEDBCC,$FB633EAF,$11345465,$D529D84C,$536004D8,$C9C5D11D,$301E7CC1,$DB5F269E,
+   $C07805EE,$86899867,$BCB36538,$3D9296AA,$64C45E4C,$2CCE1D82,$1A736D7D,$5AEDC190,
+   $B6CA8FA9,$2E4AE6E3,$905A8158,$1E68F230,$0805B976,$DEE0A296,$027C53E7,$CD38D2DF,
+   $87EA20E1,$6909A9E8,$C6FCF032,$24C11BF3,$13480782,$18110A93,$3E9F306B,$A7F7079C,
+   $8B173FAC,$D8995A35,$7B714683,$854FE4CC,$FFD9E60C,$BD62F66E,$E06CFEC3,$14E30F20,
+   $6DFF34B3,$6E32D681,$FEE73585,$217E9FFB,$3A679650,$C88756D7,$1E8BCB46,$359D90DB,
+   $14F221D7,$2645E092,$511C573F,$04FD03C2,$46ACF686,$739C581A,$65FA8DC5,$B0D27417,
+   $D48A2439,$A0CC78F5,$4B6F3A42,$5E10C252,$37A45A94,$E50BCC9F,$D14C518B,$53A0402B,
+   $B2322992,$413AB7A8,$97E0A70D,$203C1831,$6B7BC16F,$CC7A5515,$58273DC0,$4601C8C1,
+   $44D0A561,$BEA48AC5,$F7DC5F7A,$638254F8,$5798A2E3,$A6B58056,$D5B4F7B0,$3CD01160,
+   $B04E7A75,$8C026577,$8D93CA70,$7AD1D9A1,$5F9D1B95,$785522C0,$2268A8CA,$5F524598,
+   $CA01EF7F,$9551E82E,$00000000,$00000000,$7CCB60D6,$BB1B0ECD,$CB3F3CF6,$094D81BB,
+   $35D80973,$28331E40,$54DA228D,$F7913B1C,$3CE3638C,$6ACFD543,$A84144EF,$1BD77638,
+   $9EDBCDF2,$62C0D332,$2A6D11BC,$81B2E70E,$C33A8580,$D7AD232D,$381BC5B7,$05BF8408,
+   $9D994D9C,$33E46878,$9FE51E7B,$FEDCBAA7,$93180136,$4F4C497A,$EA151452,$073B7F69,
+   $F324F941,$0CF205B3,$84A8A08F,$382D12A2,$425450BD,$1CEC0951,$525ED751,$55D9B888,
+   $BFF1E556,$6CB62DE0,$4028035A,$D1D4DB8E,$AFFB62BA,$25839C39,$AB03C481,$4AF3CD72,
+   $85967306,$A4317B37,$C146D667,$1A95F1F2,$2014FB2D,$926A9747,$8FEF9997,$B7E90B7E,
+   $B975108A,$CEFEAE74,$07BA2655,$3E54EA01,$292F91D2,$D0965C44,$CDBBC92A,$AB05022F,
+   $24EC5D16,$FD1AC60C,$4DEBCF9E,$FC5841C6,$5EA3C81C,$E4494B55,$E6E80B1F,$B6AB8CB4,
+   $3FA1E3E2,$3BEB6E09,$05C675B2,$F36C38DE,$013ED389,$9C1C6995,$5A5B6E27,$8B391A1E,
+   $FC9B6662,$EC464D24,$4EA94FF0,$AD7CFA8C,$482DBA2C,$0F347918,$68394101,$9D5EEE5F,
+   $7EB73331,$7623DC12,$F49EDF14,$32A6EFB2,$0DC3CCC4,$2D8C9A48,$B7F45C20,$B2568F76,
+   $212A28A4,$0E76FED2,$790D1564,$48773613,$637E7819,$129AF783,$A238AE7E,$080F0671,
+   $A582882B,$365BEC70,$093B6AFF,$42FCCB03,$70367F9B,$0A8BFD10,$F6E28CF3,$FF9E3D6D,
+   $AD87315D,$E8BB4EE6,$724A2C7C,$C7B32FCF,$C7C223BB,$B8DD7266,$491369A5,$9328108D,
+   $831286DA,$0679F8A3,$7DF5B35F,$27076758,$1FB518CF,$A981F94E,$55E4F104,$6B8D5289,
+   $32622F26,$1667F441,$E7D6D896,$2AB7E521,$27AEDD78,$AC3E7D46,$6786DE22,$7DEAA6C8,
+   $5B65BDAE,$1725738B,$C2045609,$4BB14AB8,$A17A2E10,$592BBD3B,$4A51E9CB,$C20CABC7,
+   $04F8A63B,$6F70514B,$96DE7484,$BC2071A4,$7A4F950A,$19538D59,$EFD361E0,$F45747B7,
+   $603CF877,$43BE4CC9,$1B4DBEF4,$C6F1A805,$34E6DAFA,$B42F77D5,$DB35BB1A,$40783062),
+  ($2DEB0A4E,$F5A96C29,$EE653C51,$211C9DF6,$BEEEF596,$04DE5DDC,$7457C19F,$E1E5B06F,
+   $14A54FB6,$74CA30F0,$C5457D85,$C296F9F7,$484D10B0,$7D4EE08A,$BF9B13AD,$AE87F2D0,
+   $0E89AFB7,$8DF4BB48,$D9A2D61E,$2D8B7A67,$BD712ADB,$0F3559C8,$2F013338,$541BC731,
+   $636D5164,$9EC4848B,$60F28E29,$952F809F,$B28D6357,$28984D8C,$C38E361F,$D4B5F1DF,
+   $7076B373,$5674135F,$042172EC,$B791A330,$D4B4A6E4,$AB94C53B,$9305FFD8,$F17731F5,
+   $801E1DCF,$39C7A621,$3BA47C8E,$20D1F7C1,$F95FACAA,$5E3DA912,$E5B80731,$B1202A82,
+   $6DE4FED3,$13303FC3,$5314168A,$2E29C43E,$0D1670FA,$861FBF5C,$F3F771F1,$6458B16A,
+   $DCF642C9,$3043765B,$B825BE0C,$12FD55F4,$D65E9F92,$0A266E23,$2636312E,$6595DB5D,
+   $87A0B06E,$85BD0105,$0842E42D,$9BD7B360,$0175E63B,$AA59AF0C,$854A8918,$240FAA1D,
+   $F82A4A91,$F464061E,$A6282CE1,$5C527D7C,$8AB6C094,$03A2BE59,$76BDF8E9,$40571B77,
+   $1F7874D6,$E4F68784,$32937E98,$115FEBAD,$442E8671,$5108F0DA,$3C1AD12F,$9CAB50E5,
+   $5640825D,$33E1C802,$D8D73025,$87D2D56B,$9A32FDCE,$C0F92D99,$126E042C,$62E938D8,
+   $A0E3677B,$4A717554,$039FDF4D,$0BEB0414,$9CF9B654,$D6DA25B1,$FAC073E7,$55D6AD06,
+   $C7AF44F3,$632452EF,$5B56F2A7,$B5FE775E,$B0675A21,$892AE694,$7C1525B2,$7A32030F,
+   $73E96C3E,$5D9F174B,$10843D5A,$C35B93C0,$E8AE77CB,$373F95DE,$455B604A,$FB515FD6,
+   $8BC326AF,$A9FB1155,$64D3FCC5,$22BE23AF,$5E026670,$A8367B62,$B9505837,$B8A4FAF8,
+   $2362A5F9,$785DD761,$18C6D977,$588C20A0,$77C81ED2,$EA0EB47B,$36B20C74,$A6CE489D,
+   $37C7EA4F,$0C97E791,$9D8C506F,$7C838ABD,$A5B7F3AC,$57B97968,$7ADE6E28,$6C110B27,
+   $AE6AC8CC,$C785CE1C,$8C7D8B0E,$1581B671,$98D8C4B8,$614B8681,$0FFC498C,$27AD1444,
+   $7EFF1CC4,$DB80A817,$42E5CDEB,$472BF8F2,$3AD19AB5,$8A8858CD,$A75DCADA,$F60BD270,
+   $FC0B387D,$43F5A52E,$AF1F2EF7,$6DDC6110,$46C4BF07,$F0BA5BC2,$F068AEBC,$6FB3B57E,
+   $6E7B219E,$18DB3BD7,$0BDD3B60,$903CB774,$A9D4656D,$7BFF6938,$D27FED7E,$BDB7CD13,
+   $6B2FB549,$051337EB,$9E138F22,$77688EA9,$21889C8F,$D9EF7C79,$34583502,$077CE385,
+   $CC727F93,$F318E59B,$BACF877A,$B34FFEEC,$FD7EDE46,$E9AC0A22,$71035548,$FC2DBC53,
+   $5F77804B,$026FD46E,$CAB93409,$E53BEDB3,$ADF51781,$CC6ECA08,$A1968140,$E028DA58,
+   $0AA8DD5B,$3A651878,$F28297CA,$CE011E66,$69C58C3F,$A4A19CF3,$F11D4887,$C5EA1A72,
+   $24DC0858,$C4277045,$29CA78A2,$4238CF19,$FF94E730,$481EA13A,$C011E952,$DF5EF5CB,
+   $EC8F0527,$80AE36EE,$47B1593C,$5AE3F4CE,$7834575E,$CDA3A03F,$7F8AFAFF,$71D9071B,
+   $4C6C625C,$CADF43BA,$06CB4B9A,$16230828,$D30A0B45,$17EE621F,$C8530D7F,$448946AB,
+   $3F850E62,$974054F1,$20FD7AB4,$73B6D375,$131BE217,$C8B097D4,$B6AC11BB,$9F09EEBC,
+   $1D924DA0,$45442C9C,$E4CDE10A,$1B79858E,$5CE85F06,$0984D07A,$417A12A6,$4CC0FCE6,
+   $57356466,$99B8670E,$352DD339,$AD254C89,$8381C282,$322CA235,$2743D715,$CFCC7451,
+   $4E865B2A,$6B6DE8A2,$AB3E5C1B,$DA4DC220,$65A61AFE,$88E78CA3,$816BFBF4,$939E092D,
+   $99AD2283,$CB12298D,$C926EB44,$EED0E9A7,$82F424B9,$98750D39,$164F76C0,$D5789BE8,
+   $58C92DEA,$BE15734A,$2A55A7EF,$49D3CB0D,$7941B165,$67FA0F33,$DB48EF68,$8C39D17F,
+   $508BC9C7,$25C2C02A,$6218B75F,$349D2B87,$AA4BBA20,$70146D2C,$D095D408,$1C05660B,
+   $2E74D503,$FE42683D,$DD83A4F2,$9A1AD957,$19B33F4C,$F2D58FAC,$394E45F8,$81635CD9,
+   $D1E03233,$B65CC907,$9F666919,$DD3121A5,$09370216,$318E1C6C,$EF10DA6A,$8B4532FA,
+   $BBBA6141,$191651E0,$61876812,$3F762F93,$6C9118E8,$B96990CF,$8E97B278,$B4331D69,
+   $F449DC50,$D822164E,$5261F0B1,$84706B32,$1E0D92ED,$4EAF2888,$11F1DB61,$69023CCC,
+   $AC80F1BA,$66376504,$89291FD9,$0849BA4D,$FBB595DC,$FF8F020A,$91EFC6AE,$50C59AED,
+   $055494D7,$1DC80C3C,$8FE25443,$1E6AB265,$3EF0E859,$3D19FBFD,$909A2095,$FA9C35E1,
+   $CE9846E5,$52AA4E83,$A37CB836,$419A7140,$D72B79A9,$A07FC12F,$C4309BBE,$68CF56FB,
+   $D5C140DF,$01CD6A37,$54AABB2B,$9253631A,$7D60C389,$D06BAC03,$674C2388,$295527BB,
+   $221743C2,$D204786D,$00000000,$00000000,$729C8A05,$F7C6B847,$4AA729C6,$DCFC4B92,
+   $2B2041D4,$E38A6401,$6F0EC7A5,$B28294DB,$E9DB91F0,$9D663AD2,$DE1C7BBF,$91F1DD43,
+   $4D198467,$6086ECB6,$CD0799A8,$59414A97,$E0EC93E6,$ACE826BE,$BC04CCE0,$A56CF6C4,
+   $F53C3A6B,$727BB942,$25A9EE63,$6E7EDF49,$DA3D0953,$26607E73,$95CEB442,$E75439DD,
+   $F6A3E526,$7990BD56,$96516B0F,$ECBF3DC9,$4BD2CFFD,$76A5E49E,$EA444EBD,$968D3EC6,
+   $927019E3,$5B2E9EF9,$9B471BF5,$6AA08295,$33E698A3,$BB0644A1,$6639C5B3,$830C88B7,
+   $FEE1010B,$E2470E36,$307947EE,$B0ED40B5,$B7D9F780,$355041B0,$843F6F23,$8E560511,
+   $173A90FB,$7F2134E4,$EDFAE31C,$2AF799E2,$752227A4,$4BBC1F63,$CFEDA0DE,$F8F3E18F,
+   $E206AA90,$0D5A8DA6,$0C6396C1,$2C461050,$15D0A98D,$DE939FFC,$6A5A5372,$AF4A98E7,
+   $51FE2FFC,$8F9B6F26,$3D6F3714,$36F2FFE9,$68B06A04,$0EF833FF,$400FF49D,$E69953EA,
+   $B112BC1A,$23734998,$B44628CD,$3EBB45A4,$310CA1D5,$1AB4EFB9,$86D55655,$2FE4AE09,
+   $A2095E0D,$EBC3DE4C,$1B59063A,$536724B4,$97248D34,$46E692C5,$383BA3C3,$2B3AF3D5,
+   $DF699D84,$3BA8724F,$4FF3BD11,$C13447AE,$94BB5279,$4D0D96D1,$A4C21597,$FDE0D664,
+   $4938F68B,$D7174F86,$C2FBD024,$7EEC5ED3,$8D086D35,$BFD8197D,$CBCCD232,$4F6242BF,
+   $E3734CAB,$A70322AA,$5D9DB93D,$A3DD7F76,$B533CEF6,$94E2EAA8,$59BCCBD1,$144CDC46,
+   $7BAB8813,$C648A42B,$1A2CE001,$F93E8BB8,$E627D87C,$BACB2E96,$07BEADA1,$BC7AA724,
+   $C6DAA2C8,$C97DFDE3,$02EA3976,$A1B2AB18,$5A23149C,$1FA7D852,$C1640F69,$75075AC7,
+   $28BF9E99,$E8616015,$885CF9E2,$A2101541,$1CE7AB9B,$EF1D8390,$E19975DD,$06B189B2,
+   $55DF5D10,$380ACC16,$E7523E47,$1092819A,$F7D6031D,$D3C9125A,$A8A18356,$D1A6C634,
+   $2C9EEC75,$5FF0C325,$B3F8856C,$82C1E280,$43902BD0,$ED7257FE,$EB31A886,$3CD491CA),
+  ($FAD9E7DF,$94AF9EB6,$03C94DDD,$9208AE5E,$7158480B,$1D8DE8D6,$BA147AF8,$FD093CD2,
+   $E6597CCF,$A45CEB22,$7BF113DA,$9BBDE6E7,$65FFFE5C,$E4EDF4B4,$4E8D2A2F,$7125622E,
+   $8F68430D,$1791B81B,$902195C0,$B56A63D1,$30D2EE67,$A980832B,$84862397,$4C0A7FB3,
+   $1DC7A05B,$ED58BC0D,$5C4D0637,$5955D7F0,$806FCF4E,$D2B9B1C8,$F910AA02,$06A730E8,
+   $46AA0768,$B8B60BD8,$FCBE7D90,$45BF370A,$5EC370A1,$16F6B037,$8B81AFD4,$89227660,
+   $D0EC08E7,$DCCCC1B5,$62DF5F58,$E8569491,$A41A977E,$82592E81,$4FCA1164,$AC8EABB7,
+   $92AFE356,$FAC90416,$331BA3BA,$3B882D75,$CEE2E561,$A39CD3E6,$D7CCA9E3,$D077A190,
+   $534A8A74,$9C7DDE23,$F3B9F1D3,$80973ED9,$209CB4E9,$CE535132,$B6DABB66,$AA299B5F,
+   $6DD8D31B,$2D7E9D42,$0D89FAD5,$8A8B6E14,$3FD56224,$6CA88AF8,$13871753,$F5DB7C47,
+   $9BCFF55A,$EEF1A479,$6636B381,$76E55AEA,$A33A367A,$8EE24EA4,$C44BBEB0,$25ACDDD7,
+   $AA5A2076,$9ADAEECB,$5083C7A9,$0E75707D,$94C87919,$2BD9ADAA,$DFEB84A4,$19E4C866,
+   $F070BC0E,$129F9087,$AFF4F7E4,$D9C2E929,$B9DD3725,$6F01928C,$64B8C517,$39463D2D,
+   $E4D70A59,$EBFF8CE5,$418AA66C,$B40D6BFD,$3B3C8EFD,$F21B4483,$E5903112,$3654457C,
+   $05AED792,$431807E2,$3E92596F,$B1034361,$FE300B06,$0A1C50CD,$B79D802D,$778252C6,
+   $0720A104,$0CBB6025,$1AE7015F,$E1E3DC28,$8128F405,$0F127851,$AB1D1B3D,$47712752,
+   $9CEF545E,$E24AC45C,$A0F37BA7,$1CEAE0FA,$FDF946DB,$9814FE93,$CC6C93F7,$EC3FB421,
+   $75B1A4D2,$833E26AD,$176EFB8A,$6B68B23C,$FB9EDC94,$4904572F,$AC3DBA39,$4BCA4777,
+   $93E8D81D,$2762CD8F,$04E9ECD9,$9EB3CE7B,$27BC15ED,$C2E83117,$357C39F5,$EA9884C9,
+   $6BBF4954,$FC6E34FE,$21DB8FA2,$13F898AB,$C782F36D,$B7A47389,$B0BD2129,$7B3932E3,
+   $C9C24465,$AF27B3C3,$1629C0C1,$B6C37BA5,$5D0A3D7C,$84FE1E69,$59E3D1A5,$1A4DD012,
+   $677188CA,$AB4E9373,$546A2B70,$90C6BE06,$EA97BD51,$F37C4CAF,$96460F8F,$647ACA6D,
+   $D325453A,$4EC46FEB,$4C035CB9,$3E8605E9,$D68B92A8,$0DDC6809,$DC22C979,$8BEC6638,
+   $104E5A8E,$67D3D219,$45634AB5,$2ABEA586,$0BEE609A,$5B9BC7A8,$D2627E71,$936FA672,
+   $49AD8B2B,$7D9E020B,$8DE6359B,$5832DFDC,$58A4EAEE,$C7E6198B,$797F654C,$D41E8120,
+   $C22C24FF,$F4BC746B,$CB4C32F3,$E084D404,$2A35EF38,$48635F03,$DB02687D,$8757061D,
+   $73D63E9D,$522E8F11,$E819CBC7,$BCDF2B68,$6E119EC6,$BF76331C,$A9936DAB,$08D24095,
+   $C8857F2E,$728C7A5A,$06679A4F,$D110A9BC,$26FB2EA6,$1F43F88E,$B89A0C6E,$B2AA5B15,
+   $7D968995,$4AAD4F5B,$D542DF75,$9FD4C657,$4B23FDBD,$323D65CC,$F6172641,$C38F393B,
+   $994183CC,$A152C3BE,$82E1B9D8,$9D1AD60F,$E3F7AB5D,$E744ECC0,$B513F6BB,$38213501,
+   $9E6122C8,$ADE9A39B,$343B02BE,$37334D50,$5B6DA733,$55EEB7D5,$7CD1B2DE,$970686C2,
+   $D405E43E,$427F0FCE,$701F7340,$C026214F,$83A68293,$40B11F96,$57A366AD,$02CE1058,
+   $CFA5DE2A,$7E371A7F,$EDB71C55,$FFC72C8A,$9166AE8B,$68C1AA48,$890FD942,$C68111A7,
+   $E71E4784,$79F722BB,$A8D456E0,$D579890C,$9F261983,$70426A02,$EF396AC3,$B0644B4D,
+   $F8579149,$DB0CF971,$8AC6949F,$5489BFF9,$AEB3CCAF,$046920B0,$9806B887,$7CF90A27,
+   $7F18FF03,$050E289C,$47ED3C23,$651DC241,$74F69F99,$5E95EF34,$EE7E5188,$6DCF82D4,
+   $729105D6,$8F854688,$2212C27F,$81F036F5,$970134C4,$B9D103F4,$A27D0D31,$5349873D,
+   $BB5341B3,$20A2F54B,$6C9FE850,$F0D554DB,$28BB99AE,$07C038C4,$1C809B10,$30F37594,
+   $9DA86F15,$3FE10DC5,$7AB62891,$46162F7E,$325C98F1,$E623E4EC,$3C1C2FF9,$FEA024A6,
+   $B23357BF,$349A5524,$63986413,$35FD5D08,$AD7A8172,$96618EEE,$5F844BEA,$CB5D79AE,
+   $6AF8721F,$21C5FD67,$0CCEC19E,$5720A78D,$958F4252,$F6726433,$2532637B,$8D4B56D0,
+   $15E08D1C,$24CBD5FB,$E2B09016,$3AEF2559,$DA455336,$5AFCCF84,$F5DE6B9C,$51879765,
+   $C36B1FB4,$2917BDF2,$605129CE,$A7F5F356,$A1B440EC,$C1412963,$CA0B09B8,$3D2F1D9D,
+   $37F24F63,$A53BE30E,$A55DAC35,$5FF2E718,$1F49D6CD,$A2FBDBCA,$442471FE,$F7156C1F,
+   $61161285,$7A5E3ACF,$8E2F7846,$CA3A7182,$8848E209,$1B2AD83E,$E179DDCB,$A8E78B07,
+   $4A64C6F6,$EF96AC55,$00000000,$00000000,$38F5C320,$6013EADD,$1BA03A14,$3C4815B1,
+   $78385E07,$09B548B9,$ECF0271E,$226CE513,$BEFD9621,$63BAF2A9,$2D154E3C,$44D83F26,
+   $A694E1E8,$CDFA4946,$7678E90F,$113688F3,$8CA10ED0,$85991645,$0F078C43,$C52809D3,
+   $552D103B,$4D6D779F,$F7501D0A,$1E24F0A2,$D1AB33AC,$0167082C,$0960160C,$1438A06F,
+   $14A7B657,$F9601C62,$48EAB060,$A035CB92,$24755830,$50E09F49,$FF77304D,$D7B79954,
+   $B454CDF0,$E58AFC98,$86085501,$03A91874,$6F56A58D,$62DDFA85,$DEACBFEF,$C44F01FF,
+   $192E4C82,$73EB7276,$2EDC03E1,$D6D09178,$4304D0FA,$FBAE0C3A,$2C527577,$9973F6BF,
+   $A7D3DAA3,$105180DF,$4243EBB1,$2605C5A3,$85C118DC,$91A1B62A,$08272D47,$C99369F6,
+   $F2FECA98,$5D3CF740,$F1378745,$CF34591E,$D98C1EEB,$C8F461DA,$2F9B38AA,$0B7B58E1,
+   $4D4467F2,$E32DCC70,$E03EE680,$754C429E,$51C4FCE2,$D3DEB9E4,$68760489,$6E669AA0,
+   $C1E56922,$66B4DA35,$028E7696,$4FA367C7,$110961C5,$BA781B80,$520DB13F,$41D617BA,
+   $9A88CE11,$335A6DE0,$56E45DE6,$DF65D9C1,$773FD244,$CC9D416A,$2355F934,$5C5BFF6C,
+   $12C02C18,$2870B5DE,$D8CB25A0,$155FA843,$36B57428,$78902A97,$186977C9,$AE40BBEF,
+   $5A2A9C78,$88457E4C,$C6C5C826,$6A0FBA10,$1E0EED86,$7F501253,$F49950D7,$8C2C5EFC,
+   $CD2BA8BC,$31947DB8,$BC73E0B7,$2C19956E,$3D5B14B2,$230BED3F,$40CD9D27,$69A6A264,
+   $0AA95BD1,$86300E31,$69313FC2,$B3CD5339,$0E40B708,$1883C04A,$BD34DBFC,$F1B25CF7,
+   $3A7BB5B6,$2FB08D1A,$7E5FC448,$D8A5E105,$01473B4B,$DDABC999,$874F6E4A,$DE02D1ED,
+   $39B2F86B,$BDB82344,$DD65F232,$5647AFA1,$EBD0861A,$2ED78536,$B3746CF4,$E9319CBD,
+   $B1FA1A62,$A692FB7A,$3195D52C,$742B4AB2,$2B72D473,$95C8969A,$E95EF08C,$6174E2F1,
+   $C50C85FB,$F807144E,$BFBAAD6A,$BE113B30,$29FCA2E5,$DA6BF15D,$C0A25269,$BB1F13AC),
+  ($F9E37BF9,$C22B27F0,$0955EF09,$93FAD23F,$A22A91A2,$32ED4B84,$CC61B1CC,$3898B57B,
+   $AD98E5AD,$55825BA9,$9421EC94,$B2EEB806,$CE3C6BCE,$C7EB5875,$1F45851F,$4B1DAC5D,
+   $4705D847,$C16BA120,$1A2BA91A,$C5380F46,$909BAD90,$B908971A,$763D5376,$303E1CB7,
+   $53486853,$E6FF324C,$61F95461,$6D1AEED2,$6AF1616A,$0193D1E3,$F0B694F0,$51D1F5CF,
+   $2728E127,$29B2C3F5,$EB4950EB,$112A768E,$6F9F4D6F,$8FB672F8,$5BC9EA5B,$F0C66C74,
+   $2FA9632F,$3F8B9DCD,$DBA5B6DB,$65BC471E,$967C3696,$4D9D5508,$18767318,$3A4BE248,
+   $144DB014,$2794936C,$99CE4299,$2AF24525,$75B4E475,$4A8E7DBE,$3A30BE3A,$9DDC82A6,
+   $4C0DED4C,$ADE29E11,$C6BDE9C6,$D1D2064D,$E04165E0,$7DA349BF,$E8C0E7E8,$6B9A1787,
+   $F6510FF6,$A54437DD,$2392A023,$2254ECE9,$BD6F14BD,$79F0E7D9,$798F2779,$57510C9A,
+   $2B13222B,$346DB2D1,$C76984C7,$54118A4A,$83E5EB83,$EFCA4A63,$43BF9943,$CA8D8E3C,
+   $BCBB79BC,$FC336BDE,$45580245,$3E184C2E,$06E79B06,$F495C212,$025DDA02,$FF73ED0E,
+   $CFE806CF,$4228D472,$A744BDA7,$BCC8E89F,$C5345EC5,$AB626744,$C90F9DC9,$B6BD1660,
+   $A3FEFCA3,$B72EC783,$32B13C32,$8BE5DC9E,$A1A326A1,$485D2A8D,$A4CD0AA4,$C6788996,
+   $1BFFC41B,$40FB8341,$BA5CE2BA,$08A6A9CC,$E52F49E5,$F386EAA4,$EFF311EF,$1ACC5992,
+   $1599DD15,$A2571F6B,$46D1B546,$44A82D27,$6DC2976D,$70C59FF6,$BB888FBB,$8D6525CB,
+   $3E8AFF3E,$963AADBA,$8AB0048A,$7C30985C,$EC7AA6EC,$607C389B,$7BD2FD7B,$A822E194,
+   $BEE6A3BE,$034086D0,$65431565,$66FCC1CE,$FED08DFE,$B37D69E5,$AE1152AE,$2F323AA0,
+   $137E4613,$56C2DD79,$1CCC321C,$31ADCD54,$F5D8B8F5,$DFF456D4,$8B64698B,$F9F3145B,
+   $E4FB24E4,$764566A3,$E77293E7,$0CF507AA,$4AEA764A,$59775C03,$FA6ACCFA,$B89B46F9,
+   $602D3960,$E8D962D5,$6270E362,$17AA8FDB,$66CAA266,$1C4CA0C7,$7A06907A,$2DE16D93,
+   $C05A72C0,$2547C45F,$59943059,$0FB5817A,$8939B389,$0680F955,$08818208,$16395E38,
+   $26FC8C26,$AC714FF2,$11239C11,$A9B13077,$3D03483D,$EC8ACCB3,$0B08350B,$6C893F31,
+   $70DAC870,$C4ABDEA5,$2E7D0E2E,$BA4811CA,$31388B31,$F155BD97,$21CF7A21,$DD2701E7,
+   $0ADC580A,$E94AB336,$4963C149,$23C73D0A,$7D35667D,$5CB72386,$9A47F59A,$5042242C,
+   $5115B251,$198CDF42,$6E4B206E,$0A75FEFF,$D64A18D6,$FDA0BA3D,$1E91E81E,$CEDE205A,
+   $AC4C88AC,$D041D7AE,$875FAA87,$E42C657F,$FF04E0FF,$36BEE5E2,$B5EE96B5,$6FC9B9E1,
+   $671ECF67,$998F2CC0,$12AA2B12,$D301517E,$F2EB4EF2,$AEA218C1,$C207A8C2,$DA342951,
+   $868BC786,$61EFE978,$3456A734,$7F701E8C,$04BA4104,$0BE62F1C,$DD422DDD,$9129850C,
+   $25753B25,$D6C12EFB,$64977864,$E33F4DC9,$B66721B6,$1579D8E8,$E19508E1,$F860C5B8,
+   $30ECE630,$74963190,$8C579F8C,$88A55A4E,$74608974,$CF4DF1B9,$81B83181,$10B9A76D,
+   $33655133,$0E265099,$A51967A5,$43BB0591,$63A48E63,$926903DC,$50C1DF50,$9C4F5345,
+   $72871272,$3BD833AB,$9CA06E9C,$A4D7E63E,$1D185F1D,$B46E4153,$55AFF355,$126AF05E,
+   $AAAB13AA,$24D415BC,$B2DD60B2,$1E9FF7F4,$37DF1037,$05C07F85,$92C67792,$467B7A14,
+   $F78562F7,$2087BBDA,$5CFA1C5C,$81902261,$A0774BA0,$CD9EA68A,$2246CD22,$A79760EE,
+   $88EDDE88,$83437552,$201B1720,$58E48DE0,$B9D555B9,$7216C8C5,$95F58195,$372D3401,
+   $AB7F7EAB,$A11799BB,$EE277CEE,$9F0FD595,$0FB2740F,$676F102D,$84D61D84,$9E9C0476,
+   $CB5247CB,$49CEFB6E,$F162F9F1,$D41279C8,$D82C01D8,$1F0C2617,$547B9E54,$97A97C59,
+   $39B90939,$E76CE3AF,$93121A93,$C3B8F613,$9EFDB49E,$5BA40B30,$B43AFBB4,$EA0A35E6,
+   $F40CD5F4,$5A37DAD3,$DC9640DC,$14EA090B,$A922A4A9,$5E6474B5,$68ACBB68,$FEE03CED,
+   $E3C8D2E3,$071328B6,$24A15624,$5302A2FC,$01D46D01,$85C38C07,$FBBEA1FB,$3D58CAFE,
+   $6B250C6B,$84505DE4,$B154D7B1,$642F96FD,$19A21E19,$BF886E4F,$D417C2D4,$02D35733,
+   $56264456,$68DA9157,$D5C3AFD5,$8710DB34,$8D83F28D,$0D66D649,$6978D669,$7B23B0EA,
+   $85027085,$1B5F8871,$914FC091,$3CCB1B1D,$5D2E715D,$0453AE66,$294EF829,$CB1E5FDF,
+   $D2F059D2,$F6469521,$40362E40,$B03DEF35,$529C0552,$633CBE4B,$B80138B8,$F7D544C2,
+   $0389B703,$7AB06109,$00000000,$00000000,$A8F6C9A8,$DBA7F8B2,$41E24341,$35FE6332,
+   $9D74039D,$21146A39,$9B93989B,$D581A82B,$D0AD83D0,$0935782F,$C3D3C5C3,$5FF7A556,
+   $981A2F98,$AF31C922,$B7B34CB7,$90BA54EF,$4E50374E,$5291731F,$2DF4B92D,$C0F870C3,
+   $5EA7C65E,$7EE3CF6F,$DA71DBDA,$E07FCB19,$289A9528,$4EDDD3D8,$3F5E923F,$13F921BD,
+   $6C16FA6C,$F50613F1,$0DEFAE0D,$981CFD23,$FC8D57FC,$4C0E84EB,$E21CBFE2,$82D0A4B1,
+   $E6A6FEE6,$89368BAD,$785B4A78,$D292809D,$F83716F8,$47E8ABF7,$056E2C05,$8E25A31B,
+   $4F845A4F,$D752FF18,$CA862ACA,$CC0D7769,$3CD7253C,$694940B4,$C4E033C4,$2EA1EB43,
+   $9F29D99F,$DE678737,$3BE4D33B,$181F0EA1,$710EA571,$416852A2,$386D6438,$62AF6FA8,
+   $C18E1FC1,$A0844858,$C8DBF0C8,$337E9A67,$10F7F110,$2C72BC70,$CDB5DCCD,$BD5B397C,
+   $16106A16,$D8E77E62,$BF32CEBF,$86830AD7,$426BF442,$4F4E023B,$EDAECBED,$E5BFB49C,
+   $58405D58,$8A760D7D,$0E66190E,$E2AC9C2A,$77E93E77,$B5FD90B0,$4B3E1B4B,$DCB4D004,
+   $2C20D42C,$453BFCC4,$57F22957,$ED191D50,$B080BAB0,$E1EC1AFA,$E9148AE9,$EE599B80,
+   $7EBCD17E,$2607428F,$17C40717,$5D24F265,$82318682,$6A09C664,$48B7AC48,$A604B10D,
+   $73537F73,$BE1BBFAC,$4DD9804D,$28211216,$5A1D875A,$7505E073,$D32434D3,$73851926,
+   $7CE10B7C,$D974AF81,$DECB9ADE,$EB99E405,$B3090DB3,$9B5C7BF3,$3582CA35,$FAB3928B,
+   $360B7D36,$8003F382,$EA9D3DEA,$94E9FA89,$2AC74F2A,$B1AE3ED6,$D9F86CD9,$9ACFAA10,
+   $A690D0A6,$390B6498,$8FDE288F,$F2153B47,$0733F607,$71564E15,$7F68BC7F,$A3C4CE88,
+   $AFC53FAF,$AAF1B6A7,$0C3BC30C,$1DDF7124,$8E0A458E,$77D6B740,$F33F23F3,$2B6194C6,
+   $FD593AFD,$C9CD08EC,$97A85B97,$C85ED90F,$D179EED1,$8CF6F428,$806C5C80,$957A2B6A,
+   $448C6F44,$BBDBC029,$D79E75D7,$7863363A,$DF1FF7DF,$6E5A6802,$5F73AB5F,$FB204368));
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROcipher1.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROcipher1.inc
new file mode 100644
index 0000000..95f6bc2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODEC/uROcipher1.inc	
@@ -0,0 +1,1013 @@
+const
+  Cast128_Data: array[0..3, 0..255] of LongWord = (
+   ($30FB40D4,$9FA0FF0B,$6BECCD2F,$3F258C7A,$1E213F2F,$9C004DD3,$6003E540,$CF9FC949,
+    $BFD4AF27,$88BBBDB5,$E2034090,$98D09675,$6E63A0E0,$15C361D2,$C2E7661D,$22D4FF8E,
+    $28683B6F,$C07FD059,$FF2379C8,$775F50E2,$43C340D3,$DF2F8656,$887CA41A,$A2D2BD2D,
+    $A1C9E0D6,$346C4819,$61B76D87,$22540F2F,$2ABE32E1,$AA54166B,$22568E3A,$A2D341D0,
+    $66DB40C8,$A784392F,$004DFF2F,$2DB9D2DE,$97943FAC,$4A97C1D8,$527644B7,$B5F437A7,
+    $B82CBAEF,$D751D159,$6FF7F0ED,$5A097A1F,$827B68D0,$90ECF52E,$22B0C054,$BC8E5935,
+    $4B6D2F7F,$50BB64A2,$D2664910,$BEE5812D,$B7332290,$E93B159F,$B48EE411,$4BFF345D,
+    $FD45C240,$AD31973F,$C4F6D02E,$55FC8165,$D5B1CAAD,$A1AC2DAE,$A2D4B76D,$C19B0C50,
+    $882240F2,$0C6E4F38,$A4E4BFD7,$4F5BA272,$564C1D2F,$C59C5319,$B949E354,$B04669FE,
+    $B1B6AB8A,$C71358DD,$6385C545,$110F935D,$57538AD5,$6A390493,$E63D37E0,$2A54F6B3,
+    $3A787D5F,$6276A0B5,$19A6FCDF,$7A42206A,$29F9D4D5,$F61B1891,$BB72275E,$AA508167,
+    $38901091,$C6B505EB,$84C7CB8C,$2AD75A0F,$874A1427,$A2D1936B,$2AD286AF,$AA56D291,
+    $D7894360,$425C750D,$93B39E26,$187184C9,$6C00B32D,$73E2BB14,$A0BEBC3C,$54623779,
+    $64459EAB,$3F328B82,$7718CF82,$59A2CEA6,$04EE002E,$89FE78E6,$3FAB0950,$325FF6C2,
+    $81383F05,$6963C5C8,$76CB5AD6,$D49974C9,$CA180DCF,$380782D5,$C7FA5CF6,$8AC31511,
+    $35E79E13,$47DA91D0,$F40F9086,$A7E2419E,$31366241,$051EF495,$AA573B04,$4A805D8D,
+    $548300D0,$00322A3C,$BF64CDDF,$BA57A68E,$75C6372B,$50AFD341,$A7C13275,$915A0BF5,
+    $6B54BFAB,$2B0B1426,$AB4CC9D7,$449CCD82,$F7FBF265,$AB85C5F3,$1B55DB94,$AAD4E324,
+    $CFA4BD3F,$2DEAA3E2,$9E204D02,$C8BD25AC,$EADF55B3,$D5BD9E98,$E31231B2,$2AD5AD6C,
+    $954329DE,$ADBE4528,$D8710F69,$AA51C90F,$AA786BF6,$22513F1E,$AA51A79B,$2AD344CC,
+    $7B5A41F0,$D37CFBAD,$1B069505,$41ECE491,$B4C332E6,$032268D4,$C9600ACC,$CE387E6D,
+    $BF6BB16C,$6A70FB78,$0D03D9C9,$D4DF39DE,$E01063DA,$4736F464,$5AD328D8,$B347CC96,
+    $75BB0FC3,$98511BFB,$4FFBCC35,$B58BCF6A,$E11F0ABC,$BFC5FE4A,$A70AEC10,$AC39570A,
+    $3F04442F,$6188B153,$E0397A2E,$5727CB79,$9CEB418F,$1CACD68D,$2AD37C96,$0175CB9D,
+    $C69DFF09,$C75B65F0,$D9DB40D8,$EC0E7779,$4744EAD4,$B11C3274,$DD24CB9E,$7E1C54BD,
+    $F01144F9,$D2240EB1,$9675B3FD,$A3AC3755,$D47C27AF,$51C85F4D,$56907596,$A5BB15E6,
+    $580304F0,$CA042CF1,$011A37EA,$8DBFAADB,$35BA3E4A,$3526FFA0,$C37B4D09,$BC306ED9,
+    $98A52666,$5648F725,$FF5E569D,$0CED63D0,$7C63B2CF,$700B45E1,$D5EA50F1,$85A92872,
+    $AF1FBDA7,$D4234870,$A7870BF3,$2D3B4D79,$42E04198,$0CD0EDE7,$26470DB8,$F881814C,
+    $474D6AD7,$7C0C5E5C,$D1231959,$381B7298,$F5D2F4DB,$AB838653,$6E2F1E23,$83719C9E,
+    $BD91E046,$9A56456E,$DC39200C,$20C8C571,$962BDA1C,$E1E696FF,$B141AB08,$7CCA89B9,
+    $1A69E783,$02CC4843,$A2F7C579,$429EF47D,$427B169C,$5AC9F049,$DD8F0F00,$5C8165BF),
+   ($1F201094,$EF0BA75B,$69E3CF7E,$393F4380,$FE61CF7A,$EEC5207A,$55889C94,$72FC0651,
+    $ADA7EF79,$4E1D7235,$D55A63CE,$DE0436BA,$99C430EF,$5F0C0794,$18DCDB7D,$A1D6EFF3,
+    $A0B52F7B,$59E83605,$EE15B094,$E9FFD909,$DC440086,$EF944459,$BA83CCB3,$E0C3CDFB,
+    $D1DA4181,$3B092AB1,$F997F1C1,$A5E6CF7B,$01420DDB,$E4E7EF5B,$25A1FF41,$E180F806,
+    $1FC41080,$179BEE7A,$D37AC6A9,$FE5830A4,$98DE8B7F,$77E83F4E,$79929269,$24FA9F7B,
+    $E113C85B,$ACC40083,$D7503525,$F7EA615F,$62143154,$0D554B63,$5D681121,$C866C359,
+    $3D63CF73,$CEE234C0,$D4D87E87,$5C672B21,$071F6181,$39F7627F,$361E3084,$E4EB573B,
+    $602F64A4,$D63ACD9C,$1BBC4635,$9E81032D,$2701F50C,$99847AB4,$A0E3DF79,$BA6CF38C,
+    $10843094,$2537A95E,$F46F6FFE,$A1FF3B1F,$208CFB6A,$8F458C74,$D9E0A227,$4EC73A34,
+    $FC884F69,$3E4DE8DF,$EF0E0088,$3559648D,$8A45388C,$1D804366,$721D9BFD,$A58684BB,
+    $E8256333,$844E8212,$128D8098,$FED33FB4,$CE280AE1,$27E19BA5,$D5A6C252,$E49754BD,
+    $C5D655DD,$EB667064,$77840B4D,$A1B6A801,$84DB26A9,$E0B56714,$21F043B7,$E5D05860,
+    $54F03084,$066FF472,$A31AA153,$DADC4755,$B5625DBF,$68561BE6,$83CA6B94,$2D6ED23B,
+    $ECCF01DB,$A6D3D0BA,$B6803D5C,$AF77A709,$33B4A34C,$397BC8D6,$5EE22B95,$5F0E5304,
+    $81ED6F61,$20E74364,$B45E1378,$DE18639B,$881CA122,$B96726D1,$8049A7E8,$22B7DA7B,
+    $5E552D25,$5272D237,$79D2951C,$C60D894C,$488CB402,$1BA4FE5B,$A4B09F6B,$1CA815CF,
+    $A20C3005,$8871DF63,$B9DE2FCB,$0CC6C9E9,$0BEEFF53,$E3214517,$B4542835,$9F63293C,
+    $EE41E729,$6E1D2D7C,$50045286,$1E6685F3,$F33401C6,$30A22C95,$31A70850,$60930F13,
+    $73F98417,$A1269859,$EC645C44,$52C877A9,$CDFF33A6,$A02B1741,$7CBAD9A2,$2180036F,
+    $50D99C08,$CB3F4861,$C26BD765,$64A3F6AB,$80342676,$25A75E7B,$E4E6D1FC,$20C710E6,
+    $CDF0B680,$17844D3B,$31EEF84D,$7E0824E4,$2CCB49EB,$846A3BAE,$8FF77888,$EE5D60F6,
+    $7AF75673,$2FDD5CDB,$A11631C1,$30F66F43,$B3FAEC54,$157FD7FA,$EF8579CC,$D152DE58,
+    $DB2FFD5E,$8F32CE19,$306AF97A,$02F03EF8,$99319AD5,$C242FA0F,$A7E3EBB0,$C68E4906,
+    $B8DA230C,$80823028,$DCDEF3C8,$D35FB171,$088A1BC8,$BEC0C560,$61A3C9E8,$BCA8F54D,
+    $C72FEFFA,$22822E99,$82C570B4,$D8D94E89,$8B1C34BC,$301E16E6,$273BE979,$B0FFEAA6,
+    $61D9B8C6,$00B24869,$B7FFCE3F,$08DC283B,$43DAF65A,$F7E19798,$7619B72F,$8F1C9BA4,
+    $DC8637A0,$16A7D3B1,$9FC393B7,$A7136EEB,$C6BCC63E,$1A513742,$EF6828BC,$520365D6,
+    $2D6A77AB,$3527ED4B,$821FD216,$095C6E2E,$DB92F2FB,$5EEA29CB,$145892F5,$91584F7F,
+    $5483697B,$2667A8CC,$85196048,$8C4BACEA,$833860D4,$0D23E0F9,$6C387E8A,$0AE6D249,
+    $B284600C,$D835731D,$DCB1C647,$AC4C56EA,$3EBD81B3,$230EABB0,$6438BC87,$F0B5B1FA,
+    $8F5EA2B3,$FC184642,$0A036B7A,$4FB089BD,$649DA589,$A345415E,$5C038323,$3E5D3BB9,
+    $43D79572,$7E6DD07C,$06DFDF1E,$6C6CC4EF,$7160A539,$73BFBE70,$83877605,$4523ECF1),
+   ($8DEFC240,$25FA5D9F,$EB903DBF,$E810C907,$47607FFF,$369FE44B,$8C1FC644,$AECECA90,
+    $BEB1F9BF,$EEFBCAEA,$E8CF1950,$51DF07AE,$920E8806,$F0AD0548,$E13C8D83,$927010D5,
+    $11107D9F,$07647DB9,$B2E3E4D4,$3D4F285E,$B9AFA820,$FADE82E0,$A067268B,$8272792E,
+    $553FB2C0,$489AE22B,$D4EF9794,$125E3FBC,$21FFFCEE,$825B1BFD,$9255C5ED,$1257A240,
+    $4E1A8302,$BAE07FFF,$528246E7,$8E57140E,$3373F7BF,$8C9F8188,$A6FC4EE8,$C982B5A5,
+    $A8C01DB7,$579FC264,$67094F31,$F2BD3F5F,$40FFF7C1,$1FB78DFC,$8E6BD2C1,$437BE59B,
+    $99B03DBF,$B5DBC64B,$638DC0E6,$55819D99,$A197C81C,$4A012D6E,$C5884A28,$CCC36F71,
+    $B843C213,$6C0743F1,$8309893C,$0FEDDD5F,$2F7FE850,$D7C07F7E,$02507FBF,$5AFB9A04,
+    $A747D2D0,$1651192E,$AF70BF3E,$58C31380,$5F98302E,$727CC3C4,$0A0FB402,$0F7FEF82,
+    $8C96FDAD,$5D2C2AAE,$8EE99A49,$50DA88B8,$8427F4A0,$1EAC5790,$796FB449,$8252DC15,
+    $EFBD7D9B,$A672597D,$ADA840D8,$45F54504,$FA5D7403,$E83EC305,$4F91751A,$925669C2,
+    $23EFE941,$A903F12E,$60270DF2,$0276E4B6,$94FD6574,$927985B2,$8276DBCB,$02778176,
+    $F8AF918D,$4E48F79E,$8F616DDF,$E29D840E,$842F7D83,$340CE5C8,$96BBB682,$93B4B148,
+    $EF303CAB,$984FAF28,$779FAF9B,$92DC560D,$224D1E20,$8437AA88,$7D29DC96,$2756D3DC,
+    $8B907CEE,$B51FD240,$E7C07CE3,$E566B4A1,$C3E9615E,$3CF8209D,$6094D1E3,$CD9CA341,
+    $5C76460E,$00EA983B,$D4D67881,$FD47572C,$F76CEDD9,$BDA8229C,$127DADAA,$438A074E,
+    $1F97C090,$081BDB8A,$93A07EBE,$B938CA15,$97B03CFF,$3DC2C0F8,$8D1AB2EC,$64380E51,
+    $68CC7BFB,$D90F2788,$12490181,$5DE5FFD4,$DD7EF86A,$76A2E214,$B9A40368,$925D958F,
+    $4B39FFFA,$BA39AEE9,$A4FFD30B,$FAF7933B,$6D498623,$193CBCFA,$27627545,$825CF47A,
+    $61BD8BA0,$D11E42D1,$CEAD04F4,$127EA392,$10428DB7,$8272A972,$9270C4A8,$127DE50B,
+    $285BA1C8,$3C62F44F,$35C0EAA5,$E805D231,$428929FB,$B4FCDF82,$4FB66A53,$0E7DC15B,
+    $1F081FAB,$108618AE,$FCFD086D,$F9FF2889,$694BCC11,$236A5CAE,$12DECA4D,$2C3F8CC5,
+    $D2D02DFE,$F8EF5896,$E4CF52DA,$95155B67,$494A488C,$B9B6A80C,$5C8F82BC,$89D36B45,
+    $3A609437,$EC00C9A9,$44715253,$0A874B49,$D773BC40,$7C34671C,$02717EF6,$4FEB5536,
+    $A2D02FFF,$D2BF60C4,$D43F03C0,$50B4EF6D,$07478CD1,$006E1888,$A2E53F55,$B9E6D4BC,
+    $A2048016,$97573833,$D7207D67,$DE0F8F3D,$72F87B33,$ABCC4F33,$7688C55D,$7B00A6B0,
+    $947B0001,$570075D2,$F9BB88F8,$8942019E,$4264A5FF,$856302E0,$72DBD92B,$EE971B69,
+    $6EA22FDE,$5F08AE2B,$AF7A616D,$E5C98767,$CF1FEBD2,$61EFC8C2,$F1AC2571,$CC8239C2,
+    $67214CB8,$B1E583D1,$B7DC3E62,$7F10BDCE,$F90A5C38,$0FF0443D,$606E6DC6,$60543A49,
+    $5727C148,$2BE98A1D,$8AB41738,$20E1BE24,$AF96DA0F,$68458425,$99833BE5,$600D457D,
+    $282F9350,$8334B362,$D91D1120,$2B6D8DA0,$642B1E31,$9C305A00,$52BCE688,$1B03588A,
+    $F7BAEFD5,$4142ED9C,$A4315C11,$83323EC5,$DFEF4636,$A133C501,$E9D3531C,$EE353783),
+   ($9DB30420,$1FB6E9DE,$A7BE7BEF,$D273A298,$4A4F7BDB,$64AD8C57,$85510443,$FA020ED1,
+    $7E287AFF,$E60FB663,$095F35A1,$79EBF120,$FD059D43,$6497B7B1,$F3641F63,$241E4ADF,
+    $28147F5F,$4FA2B8CD,$C9430040,$0CC32220,$FDD30B30,$C0A5374F,$1D2D00D9,$24147B15,
+    $EE4D111A,$0FCA5167,$71FF904C,$2D195FFE,$1A05645F,$0C13FEFE,$081B08CA,$05170121,
+    $80530100,$E83E5EFE,$AC9AF4F8,$7FE72701,$D2B8EE5F,$06DF4261,$BB9E9B8A,$7293EA25,
+    $CE84FFDF,$F5718801,$3DD64B04,$A26F263B,$7ED48400,$547EEBE6,$446D4CA0,$6CF3D6F5,
+    $2649ABDF,$AEA0C7F5,$36338CC1,$503F7E93,$D3772061,$11B638E1,$72500E03,$F80EB2BB,
+    $ABE0502E,$EC8D77DE,$57971E81,$E14F6746,$C9335400,$6920318F,$081DBB99,$FFC304A5,
+    $4D351805,$7F3D5CE3,$A6C866C6,$5D5BCCA9,$DAEC6FEA,$9F926F91,$9F46222F,$3991467D,
+    $A5BF6D8E,$1143C44F,$43958302,$D0214EEB,$022083B8,$3FB6180C,$18F8931E,$281658E6,
+    $26486E3E,$8BD78A70,$7477E4C1,$B506E07C,$F32D0A25,$79098B02,$E4EABB81,$28123B23,
+    $69DEAD38,$1574CA16,$DF871B62,$211C40B7,$A51A9EF9,$0014377B,$041E8AC8,$09114003,
+    $BD59E4D2,$E3D156D5,$4FE876D5,$2F91A340,$557BE8DE,$00EAE4A7,$0CE5C2EC,$4DB4BBA6,
+    $E756BDFF,$DD3369AC,$EC17B035,$06572327,$99AFC8B0,$56C8C391,$6B65811C,$5E146119,
+    $6E85CB75,$BE07C002,$C2325577,$893FF4EC,$5BBFC92D,$D0EC3B25,$B7801AB7,$8D6D3B24,
+    $20C763EF,$C366A5FC,$9C382880,$0ACE3205,$AAC9548A,$ECA1D7C7,$041AFA32,$1D16625A,
+    $6701902C,$9B757A54,$31D477F7,$9126B031,$36CC6FDB,$C70B8B46,$D9E66A48,$56E55A79,
+    $026A4CEB,$52437EFF,$2F8F76B4,$0DF980A5,$8674CDE3,$EDDA04EB,$17A9BE04,$2C18F4DF,
+    $B7747F9D,$AB2AF7B4,$EFC34D20,$2E096B7C,$1741A254,$E5B6A035,$213D42F6,$2C1C7C26,
+    $61C2F50F,$6552DAF9,$D2C231F8,$25130F69,$D8167FA2,$0418F2C8,$001A96A6,$0D1526AB,
+    $63315C21,$5E0A72EC,$49BAFEFD,$187908D9,$8D0DBD86,$311170A7,$3E9B640C,$CC3E10D7,
+    $D5CAD3B6,$0CAEC388,$F73001E1,$6C728AFF,$71EAE2A1,$1F9AF36E,$CFCBD12F,$C1DE8417,
+    $AC07BE6B,$CB44A1D8,$8B9B0F56,$013988C3,$B1C52FCA,$B4BE31CD,$D8782806,$12A3A4E2,
+    $6F7DE532,$58FD7EB6,$D01EE900,$24ADFFC2,$F4990FC5,$9711AAC5,$001D7B95,$82E5E7D2,
+    $109873F6,$00613096,$C32D9521,$ADA121FF,$29908415,$7FBB977F,$AF9EB3DB,$29C9ED2A,
+    $5CE2A465,$A730F32C,$D0AA3FE8,$8A5CC091,$D49E2CE7,$0CE454A9,$D60ACD86,$015F1919,
+    $77079103,$DEA03AF6,$78A8565E,$DEE356DF,$21F05CBE,$8B75E387,$B3C50651,$B8A5C3EF,
+    $D8EEB6D2,$E523BE77,$C2154529,$2F69EFDF,$AFE67AFB,$F470C4B2,$F3E0EB5B,$D6CC9876,
+    $39E4460C,$1FDA8538,$1987832F,$CA007367,$A99144F8,$296B299E,$492FC295,$9266BEAB,
+    $B5676E69,$9BD3DDDA,$DF7E052F,$DB25701C,$1B5E51EE,$F65324E6,$6AFCE36C,$0316CC04,
+    $8644213E,$B7DC59D0,$7965291F,$CCD6FD43,$41823979,$932BCDF6,$B657C34D,$4EDFD282,
+    $7AE5290C,$3CB9536B,$851E20FE,$9833557E,$13ECF0B0,$D3FFB372,$3F85C5C1,$0AEF7ED2));
+
+  Cast128_Key: array[0..3, 0..255] of LongWord = (
+   ($7EC90C04,$2C6E74B9,$9B0E66DF,$A6337911,$B86A7FFF,$1DD358F5,$44DD9D44,$1731167F,
+    $08FBF1FA,$E7F511CC,$D2051B00,$735ABA00,$2AB722D8,$386381CB,$ACF6243A,$69BEFD7A,
+    $E6A2E77F,$F0C720CD,$C4494816,$CCF5C180,$38851640,$15B0A848,$E68B18CB,$4CAADEFF,
+    $5F480A01,$0412B2AA,$259814FC,$41D0EFE2,$4E40B48D,$248EB6FB,$8DBA1CFE,$41A99B02,
+    $1A550A04,$BA8F65CB,$7251F4E7,$95A51725,$C106ECD7,$97A5980A,$C539B9AA,$4D79FE6A,
+    $F2F3F763,$68AF8040,$ED0C9E56,$11B4958B,$E1EB5A88,$8709E6B0,$D7E07156,$4E29FEA7,
+    $6366E52D,$02D1C000,$C4AC8E05,$9377F571,$0C05372A,$578535F2,$2261BE02,$D642A0C9,
+    $DF13A280,$74B55BD2,$682199C0,$D421E5EC,$53FB3CE8,$C8ADEDB3,$28A87FC9,$3D959981,
+    $5C1FF900,$FE38D399,$0C4EFF0B,$062407EA,$AA2F4FB1,$4FB96976,$90C79505,$B0A8A774,
+    $EF55A1FF,$E59CA2C2,$A6B62D27,$E66A4263,$DF65001F,$0EC50966,$DFDD55BC,$29DE0655,
+    $911E739A,$17AF8975,$32C7911C,$89F89468,$0D01E980,$524755F4,$03B63CC9,$0CC844B2,
+    $BCF3F0AA,$87AC36E9,$E53A7426,$01B3D82B,$1A9E7449,$64EE2D7E,$CDDBB1DA,$01C94910,
+    $B868BF80,$0D26F3FD,$9342EDE7,$04A5C284,$636737B6,$50F5B616,$F24766E3,$8ECA36C1,
+    $136E05DB,$FEF18391,$FB887A37,$D6E7F7D4,$C7FB7DC9,$3063FCDF,$B6F589DE,$EC2941DA,
+    $26E46695,$B7566419,$F654EFC5,$D08D58B7,$48925401,$C1BACB7F,$E5FF550F,$B6083049,
+    $5BB5D0E8,$87D72E5A,$AB6A6EE1,$223A66CE,$C62BF3CD,$9E0885F9,$68CB3E47,$086C010F,
+    $A21DE820,$D18B69DE,$F3F65777,$FA02C3F6,$407EDAC3,$CBB3D550,$1793084D,$B0D70EBA,
+    $0AB378D5,$D951FB0C,$DED7DA56,$4124BBE4,$94CA0B56,$0F5755D1,$E0E1E56E,$6184B5BE,
+    $580A249F,$94F74BC0,$E327888E,$9F7B5561,$C3DC0280,$05687715,$646C6BD7,$44904DB3,
+    $66B4F0A3,$C0F1648A,$697ED5AF,$49E92FF6,$309E374F,$2CB6356A,$85808573,$4991F840,
+    $76F0AE02,$083BE84D,$28421C9A,$44489406,$736E4CB8,$C1092910,$8BC95FC6,$7D869CF4,
+    $134F616F,$2E77118D,$B31B2BE1,$AA90B472,$3CA5D717,$7D161BBA,$9CAD9010,$AF462BA2,
+    $9FE459D2,$45D34559,$D9F2DA13,$DBC65487,$F3E4F94E,$176D486F,$097C13EA,$631DA5C7,
+    $445F7382,$175683F4,$CDC66A97,$70BE0288,$B3CDCF72,$6E5DD2F3,$20936079,$459B80A5,
+    $BE60E2DB,$A9C23101,$EBA5315C,$224E42F2,$1C5C1572,$F6721B2C,$1AD2FFF3,$8C25404E,
+    $324ED72F,$4067B7FD,$0523138E,$5CA3BC78,$DC0FD66E,$75922283,$784D6B17,$58EBB16E,
+    $44094F85,$3F481D87,$FCFEAE7B,$77B5FF76,$8C2302BF,$AAF47556,$5F46B02A,$2B092801,
+    $3D38F5F7,$0CA81F36,$52AF4A8A,$66D5E7C0,$DF3B0874,$95055110,$1B5AD7A8,$F61ED5AD,
+    $6CF6E479,$20758184,$D0CEFA65,$88F7BE58,$4A046826,$0FF6F8F3,$A09C7F70,$5346ABA0,
+    $5CE96C28,$E176EDA3,$6BAC307F,$376829D2,$85360FA9,$17E3FE2A,$24B79767,$F5A96B20,
+    $D6CD2595,$68FF1EBF,$7555442C,$F19F06BE,$F9E0659A,$EEB9491D,$34010718,$BB30CAB8,
+    $E822FE15,$88570983,$750E6249,$DA627E55,$5E76FFA8,$B1534546,$6D47DE08,$EFE9E7D4),
+   ($F6FA8F9D,$2CAC6CE1,$4CA34867,$E2337F7C,$95DB08E7,$016843B4,$ECED5CBC,$325553AC,
+    $BF9F0960,$DFA1E2ED,$83F0579D,$63ED86B9,$1AB6A6B8,$DE5EBE39,$F38FF732,$8989B138,
+    $33F14961,$C01937BD,$F506C6DA,$E4625E7E,$A308EA99,$4E23E33C,$79CBD7CC,$48A14367,
+    $A3149619,$FEC94BD5,$A114174A,$EAA01866,$A084DB2D,$09A8486F,$A888614A,$2900AF98,
+    $01665991,$E1992863,$C8F30C60,$2E78EF3C,$D0D51932,$CF0FEC14,$F7CA07D2,$D0A82072,
+    $FD41197E,$9305A6B0,$E86BE3DA,$74BED3CD,$372DA53C,$4C7F4448,$DAB5D440,$6DBA0EC3,
+    $083919A7,$9FBAEED9,$49DBCFB0,$4E670C53,$5C3D9C01,$64BDB941,$2C0E636A,$BA7DD9CD,
+    $EA6F7388,$E70BC762,$35F29ADB,$5C4CDD8D,$F0D48D8C,$B88153E2,$08A19866,$1AE2EAC8,
+    $284CAF89,$AA928223,$9334BE53,$3B3A21BF,$16434BE3,$9AEA3906,$EFE8C36E,$F890CDD9,
+    $80226DAE,$C340A4A3,$DF7E9C09,$A694A807,$5B7C5ECC,$221DB3A6,$9A69A02F,$68818A54,
+    $CEB2296F,$53C0843A,$FE893655,$25BFE68A,$B4628ABC,$CF222EBF,$25AC6F48,$A9A99387,
+    $53BDDB65,$E76FFBE7,$E967FD78,$0BA93563,$8E342BC1,$E8A11BE9,$4980740D,$C8087DFC,
+    $8DE4BF99,$A11101A0,$7FD37975,$DA5A26C0,$E81F994F,$9528CD89,$FD339FED,$B87834BF,
+    $5F04456D,$22258698,$C9C4C83B,$2DC156BE,$4F628DAA,$57F55EC5,$E2220ABE,$D2916EBF,
+    $4EC75B95,$24F2C3C0,$42D15D99,$CD0D7FA0,$7B6E27FF,$A8DC8AF0,$7345C106,$F41E232F,
+    $35162386,$E6EA8926,$3333B094,$157EC6F2,$372B74AF,$692573E4,$E9A9D848,$F3160289,
+    $3A62EF1D,$A787E238,$F3A5F676,$74364853,$20951063,$4576698D,$B6FAD407,$592AF950,
+    $36F73523,$4CFB6E87,$7DA4CEC0,$6C152DAA,$CB0396A8,$C50DFE5D,$FCD707AB,$0921C42F,
+    $89DFF0BB,$5FE2BE78,$448F4F33,$754613C9,$2B05D08D,$48B9D585,$DC049441,$C8098F9B,
+    $7DEDE786,$C39A3373,$42410005,$6A091751,$0EF3C8A6,$890072D6,$28207682,$A9A9F7BE,
+    $BF32679D,$D45B5B75,$B353FD00,$CBB0E358,$830F220A,$1F8FB214,$D372CF08,$CC3C4A13,
+    $8CF63166,$061C87BE,$88C98F88,$6062E397,$47CF8E7A,$B6C85283,$3CC2ACFB,$3FC06976,
+    $4E8F0252,$64D8314D,$DA3870E3,$1E665459,$C10908F0,$513021A5,$6C5B68B7,$822F8AA0,
+    $3007CD3E,$74719EEF,$DC872681,$073340D4,$7E432FD9,$0C5EC241,$8809286C,$F592D891,
+    $08A930F6,$957EF305,$B7FBFFBD,$C266E96F,$6FE4AC98,$B173ECC0,$BC60B42A,$953498DA,
+    $FBA1AE12,$2D4BD736,$0F25FAAB,$A4F3FCEB,$E2969123,$257F0C3D,$9348AF49,$361400BC,
+    $E8816F4A,$3814F200,$A3F94043,$9C7A54C2,$BC704F57,$DA41E7F9,$C25AD33A,$54F4A084,
+    $B17F5505,$59357CBE,$EDBD15C8,$7F97C5AB,$BA5AC7B5,$B6F6DEAF,$3A479C3A,$5302DA25,
+    $653D7E6A,$54268D49,$51A477EA,$5017D55B,$D7D25D88,$44136C76,$0404A8C8,$B8E5A121,
+    $B81A928A,$60ED5869,$97C55B96,$EAEC991B,$29935913,$01FDB7F1,$088E8DFA,$9AB6F6F5,
+    $3B4CBF9F,$4A5DE3AB,$E6051D35,$A0E1D855,$D36B4CF1,$F544EDEB,$B0E93524,$BEBB8FBD,
+    $A2D762CF,$49C92F54,$38B5F331,$7128A454,$48392905,$A65B1DB8,$851C97BD,$D675CF2F),
+   ($85E04019,$332BF567,$662DBFFF,$CFC65693,$2A8D7F6F,$AB9BC912,$DE6008A1,$2028DA1F,
+    $0227BCE7,$4D642916,$18FAC300,$50F18B82,$2CB2CB11,$B232E75C,$4B3695F2,$B28707DE,
+    $A05FBCF6,$CD4181E9,$E150210C,$E24EF1BD,$B168C381,$FDE4E789,$5C79B0D8,$1E8BFD43,
+    $4D495001,$38BE4341,$913CEE1D,$92A79C3F,$089766BE,$BAEEADF4,$1286BECF,$B6EACB19,
+    $2660C200,$7565BDE4,$64241F7A,$8248DCA9,$C3B3AD66,$28136086,$0BD8DFA8,$356D1CF2,
+    $107789BE,$B3B2E9CE,$0502AA8F,$0BC0351E,$166BF52A,$EB12FF82,$E3486911,$D34D7516,
+    $4E7B3AFF,$5F43671B,$9CF6E037,$4981AC83,$334266CE,$8C9341B7,$D0D854C0,$CB3A6C88,
+    $47BC2829,$4725BA37,$A66AD22B,$7AD61F1E,$0C5CBAFA,$4437F107,$B6E79962,$42D2D816,
+    $0A961288,$E1A5C06E,$13749E67,$72FC081A,$B1D139F7,$F9583745,$CF19DF58,$BEC3F756,
+    $C06EBA30,$07211B24,$45C28829,$C95E317F,$BC8EC511,$38BC46E9,$C6E6FA14,$BAE8584A,
+    $AD4EBC46,$468F508B,$7829435F,$F124183B,$821DBA9F,$AFF60FF4,$EA2C4E6D,$16E39264,
+    $92544A8B,$009B4FC3,$ABA68CED,$9AC96F78,$06A5B79A,$B2856E6E,$1AEC3CA9,$BE838688,
+    $0E0804E9,$55F1BE56,$E7E5363B,$B3A1F25D,$F7DEBB85,$61FE033C,$16746233,$3C034C28,
+    $DA6D0C74,$79AAC56C,$3CE4E1AD,$51F0C802,$98F8F35A,$1626A49F,$EED82B29,$1D382FE3,
+    $0C4FB99A,$BB325778,$3EC6D97B,$6E77A6A9,$CB658B5C,$D45230C7,$2BD1408B,$60C03EB7,
+    $B9068D78,$A33754F4,$F430C87D,$C8A71302,$B96D8C32,$EBD4E7BE,$BE8B9D2D,$7979FB06,
+    $E7225308,$8B75CF77,$11EF8DA4,$E083C858,$8D6B786F,$5A6317A6,$FA5CF7A0,$5DDA0033,
+    $F28EBFB0,$F5B9C310,$A0EAC280,$08B9767A,$A3D9D2B0,$79D34217,$021A718D,$9AC6336A,
+    $2711FD60,$438050E3,$069908A8,$3D7FEDC4,$826D2BEF,$4EEB8476,$488DCF25,$36C9D566,
+    $28E74E41,$C2610ACA,$3D49A9CF,$BAE3B9DF,$B65F8DE6,$92AEAF64,$3AC7D5E6,$9EA80509,
+    $F22B017D,$A4173F70,$DD1E16C3,$15E0D7F9,$50B1B887,$2B9F4FD5,$625ABA82,$6A017962,
+    $2EC01B9C,$15488AA9,$D716E740,$40055A2C,$93D29A22,$E32DBF9A,$058745B9,$3453DC1E,
+    $D699296E,$496CFF6F,$1C9F4986,$DFE2ED07,$B87242D1,$19DE7EAE,$053E561A,$15AD6F8C,
+    $66626C1C,$7154C24C,$EA082B2A,$93EB2939,$17DCB0F0,$58D4F2AE,$9EA294FB,$52CF564C,
+    $9883FE66,$2EC40581,$763953C3,$01D6692E,$D3A0C108,$A1E7160E,$E4F2DFA6,$693ED285,
+    $74904698,$4C2B0EDD,$4F757656,$5D393378,$A132234F,$3D321C5D,$C3F5E194,$4B269301,
+    $C79F022F,$3C997E7E,$5E4F9504,$3FFAFBBD,$76F7AD0E,$296693F4,$3D1FCE6F,$C61E45BE,
+    $D3B5AB34,$F72BF9B7,$1B0434C0,$4E72B567,$5592A33D,$B5229301,$CFD2A87F,$60AEB767,
+    $1814386B,$30BCC33D,$38A0C07D,$FD1606F2,$C363519B,$589DD390,$5479F8E6,$1CB8D647,
+    $97FD61A9,$EA7759F4,$2D57539D,$569A58CF,$E84E63AD,$462E1B78,$6580F87E,$F3817914,
+    $91DA55F4,$40A230F3,$D1988F35,$B6E318D2,$3FFA50BC,$3D40F021,$C3C0BDAE,$4958C24C,
+    $518F36B2,$84B1D370,$0FEDCE83,$878DDADA,$F2A279C7,$94E01BE8,$90716F4B,$954B8AA3),
+   ($E216300D,$BBDDFFFC,$A7EBDABD,$35648095,$7789F8B7,$E6C1121B,$0E241600,$052CE8B5,
+    $11A9CFB0,$E5952F11,$ECE7990A,$9386D174,$2A42931C,$76E38111,$B12DEF3A,$37DDDDFC,
+    $DE9ADEB1,$0A0CC32C,$BE197029,$84A00940,$BB243A0F,$B4D137CF,$B44E79F0,$049EEDFD,
+    $0B15A15D,$480D3168,$8BBBDE5A,$669DED42,$C7ECE831,$3F8F95E7,$72DF191B,$7580330D,
+    $94074251,$5C7DCDFA,$ABBE6D63,$AA402164,$B301D40A,$02E7D1CA,$53571DAE,$7A3182A2,
+    $12A8DDEC,$FDAA335D,$176F43E8,$71FB46D4,$38129022,$CE949AD4,$B84769AD,$965BD862,
+    $82F3D055,$66FB9767,$15B80B4E,$1D5B47A0,$4CFDE06F,$C28EC4B8,$57E8726E,$647A78FC,
+    $99865D44,$608BD593,$6C200E03,$39DC5FF6,$5D0B00A3,$AE63AFF2,$7E8BD632,$70108C0C,
+    $BBD35049,$2998DF04,$980CF42A,$9B6DF491,$9E7EDD53,$06918548,$58CB7E07,$3B74EF2E,
+    $522FFFB1,$D24708CC,$1C7E27CD,$A4EB215B,$3CF1D2E2,$19B47A38,$424F7618,$35856039,
+    $9D17DEE7,$27EB35E6,$C9AFF67B,$36BAF5B8,$09C467CD,$C18910B1,$E11DBF7B,$06CD1AF8,
+    $7170C608,$2D5E3354,$D4DE495A,$64C6D006,$BCC0C62C,$3DD00DB3,$708F8F34,$77D51B42,
+    $264F620F,$24B8D2BF,$15C1B79E,$46A52564,$F8D7E54E,$3E378160,$7895CDA5,$859C15A5,
+    $E6459788,$C37BC75F,$DB07BA0C,$0676A3AB,$7F229B1E,$31842E7B,$24259FD7,$F8BEF472,
+    $835FFCB8,$6DF4C1F2,$96F5B195,$FD0AF0FC,$B0FE134C,$E2506D3D,$4F9B12EA,$F215F225,
+    $A223736F,$9FB4C428,$25D04979,$34C713F8,$C4618187,$EA7A6E98,$7CD16EFC,$1436876C,
+    $F1544107,$BEDEEE14,$56E9AF27,$A04AA441,$3CF7C899,$92ECBAE6,$DD67016D,$151682EB,
+    $A842EEDF,$FDBA60B4,$F1907B75,$20E3030F,$24D8C29E,$E139673B,$EFA63FB8,$71873054,
+    $B6F2CF3B,$9F326442,$CB15A4CC,$B01A4504,$F1E47D8D,$844A1BE5,$BAE7DFDC,$42CBDA70,
+    $CD7DAE0A,$57E85B7A,$D53F5AF6,$20CF4D8C,$CEA4D428,$79D130A4,$3486EBFB,$33D3CDDC,
+    $77853B53,$37EFFCB5,$C5068778,$E580B3E6,$4E68B8F4,$C5C8B37E,$0D809EA2,$398FEB7C,
+    $132A4F94,$43B7950E,$2FEE7D1C,$223613BD,$DD06CAA2,$37DF932B,$C4248289,$ACF3EBC3,
+    $5715F6B7,$EF3478DD,$F267616F,$C148CBE4,$9052815E,$5E410FAB,$B48A2465,$2EDA7FA4,
+    $E87B40E4,$E98EA084,$5889E9E1,$EFD390FC,$DD07D35B,$DB485694,$38D7E5B2,$57720101,
+    $730EDEBC,$5B643113,$94917E4F,$503C2FBA,$646F1282,$7523D24A,$E0779695,$F9C17A8F,
+    $7A5B2121,$D187B896,$29263A4D,$BA510CDF,$81F47C9F,$AD1163ED,$EA7B5965,$1A00726E,
+    $11403092,$00DA6D77,$4A0CDD61,$AD1F4603,$605BDFB0,$9EEDC364,$22EBE6A8,$CEE7D28A,
+    $A0E736A0,$5564A6B9,$10853209,$C7EB8F37,$2DE705CA,$8951570F,$DF09822B,$BD691A6C,
+    $AA12E4F2,$87451C0F,$E0F6A27A,$3ADA4819,$4CF1764F,$0D771C2B,$67CDB156,$350D8384,
+    $5938FA0F,$42399EF3,$36997B07,$0E84093D,$4AA93E61,$8360D87B,$1FA98B0C,$1149382C,
+    $E97625A5,$0614D1B7,$0E25244B,$0C768347,$589E8D82,$0D2059D1,$A466BB1E,$F8DA0A82,
+    $04F19130,$BA6E4EC0,$99265164,$1EE7230D,$50B2AD80,$EAEE6801,$8DB2A283,$EA8BF59E));
+
+  Cast256_Data: array[0..3, 0..255] of LongWord = (
+   ($30FB40D4,$9FA0FF0B,$6BECCD2F,$3F258C7A,$1E213F2F,$9C004DD3,$6003E540,$CF9FC949,
+    $BFD4AF27,$88BBBDB5,$E2034090,$98D09675,$6E63A0E0,$15C361D2,$C2E7661D,$22D4FF8E,
+    $28683B6F,$C07FD059,$FF2379C8,$775F50E2,$43C340D3,$DF2F8656,$887CA41A,$A2D2BD2D,
+    $A1C9E0D6,$346C4819,$61B76D87,$22540F2F,$2ABE32E1,$AA54166B,$22568E3A,$A2D341D0,
+    $66DB40C8,$A784392F,$004DFF2F,$2DB9D2DE,$97943FAC,$4A97C1D8,$527644B7,$B5F437A7,
+    $B82CBAEF,$D751D159,$6FF7F0ED,$5A097A1F,$827B68D0,$90ECF52E,$22B0C054,$BC8E5935,
+    $4B6D2F7F,$50BB64A2,$D2664910,$BEE5812D,$B7332290,$E93B159F,$B48EE411,$4BFF345D,
+    $FD45C240,$AD31973F,$C4F6D02E,$55FC8165,$D5B1CAAD,$A1AC2DAE,$A2D4B76D,$C19B0C50,
+    $882240F2,$0C6E4F38,$A4E4BFD7,$4F5BA272,$564C1D2F,$C59C5319,$B949E354,$B04669FE,
+    $B1B6AB8A,$C71358DD,$6385C545,$110F935D,$57538AD5,$6A390493,$E63D37E0,$2A54F6B3,
+    $3A787D5F,$6276A0B5,$19A6FCDF,$7A42206A,$29F9D4D5,$F61B1891,$BB72275E,$AA508167,
+    $38901091,$C6B505EB,$84C7CB8C,$2AD75A0F,$874A1427,$A2D1936B,$2AD286AF,$AA56D291,
+    $D7894360,$425C750D,$93B39E26,$187184C9,$6C00B32D,$73E2BB14,$A0BEBC3C,$54623779,
+    $64459EAB,$3F328B82,$7718CF82,$59A2CEA6,$04EE002E,$89FE78E6,$3FAB0950,$325FF6C2,
+    $81383F05,$6963C5C8,$76CB5AD6,$D49974C9,$CA180DCF,$380782D5,$C7FA5CF6,$8AC31511,
+    $35E79E13,$47DA91D0,$F40F9086,$A7E2419E,$31366241,$051EF495,$AA573B04,$4A805D8D,
+    $548300D0,$00322A3C,$BF64CDDF,$BA57A68E,$75C6372B,$50AFD341,$A7C13275,$915A0BF5,
+    $6B54BFAB,$2B0B1426,$AB4CC9D7,$449CCD82,$F7FBF265,$AB85C5F3,$1B55DB94,$AAD4E324,
+    $CFA4BD3F,$2DEAA3E2,$9E204D02,$C8BD25AC,$EADF55B3,$D5BD9E98,$E31231B2,$2AD5AD6C,
+    $954329DE,$ADBE4528,$D8710F69,$AA51C90F,$AA786BF6,$22513F1E,$AA51A79B,$2AD344CC,
+    $7B5A41F0,$D37CFBAD,$1B069505,$41ECE491,$B4C332E6,$032268D4,$C9600ACC,$CE387E6D,
+    $BF6BB16C,$6A70FB78,$0D03D9C9,$D4DF39DE,$E01063DA,$4736F464,$5AD328D8,$B347CC96,
+    $75BB0FC3,$98511BFB,$4FFBCC35,$B58BCF6A,$E11F0ABC,$BFC5FE4A,$A70AEC10,$AC39570A,
+    $3F04442F,$6188B153,$E0397A2E,$5727CB79,$9CEB418F,$1CACD68D,$2AD37C96,$0175CB9D,
+    $C69DFF09,$C75B65F0,$D9DB40D8,$EC0E7779,$4744EAD4,$B11C3274,$DD24CB9E,$7E1C54BD,
+    $F01144F9,$D2240EB1,$9675B3FD,$A3AC3755,$D47C27AF,$51C85F4D,$56907596,$A5BB15E6,
+    $580304F0,$CA042CF1,$011A37EA,$8DBFAADB,$35BA3E4A,$3526FFA0,$C37B4D09,$BC306ED9,
+    $98A52666,$5648F725,$FF5E569D,$0CED63D0,$7C63B2CF,$700B45E1,$D5EA50F1,$85A92872,
+    $AF1FBDA7,$D4234870,$A7870BF3,$2D3B4D79,$42E04198,$0CD0EDE7,$26470DB8,$F881814C,
+    $474D6AD7,$7C0C5E5C,$D1231959,$381B7298,$F5D2F4DB,$AB838653,$6E2F1E23,$83719C9E,
+    $BD91E046,$9A56456E,$DC39200C,$20C8C571,$962BDA1C,$E1E696FF,$B141AB08,$7CCA89B9,
+    $1A69E783,$02CC4843,$A2F7C579,$429EF47D,$427B169C,$5AC9F049,$DD8F0F00,$5C8165BF),
+   ($1F201094,$EF0BA75B,$69E3CF7E,$393F4380,$FE61CF7A,$EEC5207A,$55889C94,$72FC0651,
+    $ADA7EF79,$4E1D7235,$D55A63CE,$DE0436BA,$99C430EF,$5F0C0794,$18DCDB7D,$A1D6EFF3,
+    $A0B52F7B,$59E83605,$EE15B094,$E9FFD909,$DC440086,$EF944459,$BA83CCB3,$E0C3CDFB,
+    $D1DA4181,$3B092AB1,$F997F1C1,$A5E6CF7B,$01420DDB,$E4E7EF5B,$25A1FF41,$E180F806,
+    $1FC41080,$179BEE7A,$D37AC6A9,$FE5830A4,$98DE8B7F,$77E83F4E,$79929269,$24FA9F7B,
+    $E113C85B,$ACC40083,$D7503525,$F7EA615F,$62143154,$0D554B63,$5D681121,$C866C359,
+    $3D63CF73,$CEE234C0,$D4D87E87,$5C672B21,$071F6181,$39F7627F,$361E3084,$E4EB573B,
+    $602F64A4,$D63ACD9C,$1BBC4635,$9E81032D,$2701F50C,$99847AB4,$A0E3DF79,$BA6CF38C,
+    $10843094,$2537A95E,$F46F6FFE,$A1FF3B1F,$208CFB6A,$8F458C74,$D9E0A227,$4EC73A34,
+    $FC884F69,$3E4DE8DF,$EF0E0088,$3559648D,$8A45388C,$1D804366,$721D9BFD,$A58684BB,
+    $E8256333,$844E8212,$128D8098,$FED33FB4,$CE280AE1,$27E19BA5,$D5A6C252,$E49754BD,
+    $C5D655DD,$EB667064,$77840B4D,$A1B6A801,$84DB26A9,$E0B56714,$21F043B7,$E5D05860,
+    $54F03084,$066FF472,$A31AA153,$DADC4755,$B5625DBF,$68561BE6,$83CA6B94,$2D6ED23B,
+    $ECCF01DB,$A6D3D0BA,$B6803D5C,$AF77A709,$33B4A34C,$397BC8D6,$5EE22B95,$5F0E5304,
+    $81ED6F61,$20E74364,$B45E1378,$DE18639B,$881CA122,$B96726D1,$8049A7E8,$22B7DA7B,
+    $5E552D25,$5272D237,$79D2951C,$C60D894C,$488CB402,$1BA4FE5B,$A4B09F6B,$1CA815CF,
+    $A20C3005,$8871DF63,$B9DE2FCB,$0CC6C9E9,$0BEEFF53,$E3214517,$B4542835,$9F63293C,
+    $EE41E729,$6E1D2D7C,$50045286,$1E6685F3,$F33401C6,$30A22C95,$31A70850,$60930F13,
+    $73F98417,$A1269859,$EC645C44,$52C877A9,$CDFF33A6,$A02B1741,$7CBAD9A2,$2180036F,
+    $50D99C08,$CB3F4861,$C26BD765,$64A3F6AB,$80342676,$25A75E7B,$E4E6D1FC,$20C710E6,
+    $CDF0B680,$17844D3B,$31EEF84D,$7E0824E4,$2CCB49EB,$846A3BAE,$8FF77888,$EE5D60F6,
+    $7AF75673,$2FDD5CDB,$A11631C1,$30F66F43,$B3FAEC54,$157FD7FA,$EF8579CC,$D152DE58,
+    $DB2FFD5E,$8F32CE19,$306AF97A,$02F03EF8,$99319AD5,$C242FA0F,$A7E3EBB0,$C68E4906,
+    $B8DA230C,$80823028,$DCDEF3C8,$D35FB171,$088A1BC8,$BEC0C560,$61A3C9E8,$BCA8F54D,
+    $C72FEFFA,$22822E99,$82C570B4,$D8D94E89,$8B1C34BC,$301E16E6,$273BE979,$B0FFEAA6,
+    $61D9B8C6,$00B24869,$B7FFCE3F,$08DC283B,$43DAF65A,$F7E19798,$7619B72F,$8F1C9BA4,
+    $DC8637A0,$16A7D3B1,$9FC393B7,$A7136EEB,$C6BCC63E,$1A513742,$EF6828BC,$520365D6,
+    $2D6A77AB,$3527ED4B,$821FD216,$095C6E2E,$DB92F2FB,$5EEA29CB,$145892F5,$91584F7F,
+    $5483697B,$2667A8CC,$85196048,$8C4BACEA,$833860D4,$0D23E0F9,$6C387E8A,$0AE6D249,
+    $B284600C,$D835731D,$DCB1C647,$AC4C56EA,$3EBD81B3,$230EABB0,$6438BC87,$F0B5B1FA,
+    $8F5EA2B3,$FC184642,$0A036B7A,$4FB089BD,$649DA589,$A345415E,$5C038323,$3E5D3BB9,
+    $43D79572,$7E6DD07C,$06DFDF1E,$6C6CC4EF,$7160A539,$73BFBE70,$83877605,$4523ECF1),
+   ($8DEFC240,$25FA5D9F,$EB903DBF,$E810C907,$47607FFF,$369FE44B,$8C1FC644,$AECECA90,
+    $BEB1F9BF,$EEFBCAEA,$E8CF1950,$51DF07AE,$920E8806,$F0AD0548,$E13C8D83,$927010D5,
+    $11107D9F,$07647DB9,$B2E3E4D4,$3D4F285E,$B9AFA820,$FADE82E0,$A067268B,$8272792E,
+    $553FB2C0,$489AE22B,$D4EF9794,$125E3FBC,$21FFFCEE,$825B1BFD,$9255C5ED,$1257A240,
+    $4E1A8302,$BAE07FFF,$528246E7,$8E57140E,$3373F7BF,$8C9F8188,$A6FC4EE8,$C982B5A5,
+    $A8C01DB7,$579FC264,$67094F31,$F2BD3F5F,$40FFF7C1,$1FB78DFC,$8E6BD2C1,$437BE59B,
+    $99B03DBF,$B5DBC64B,$638DC0E6,$55819D99,$A197C81C,$4A012D6E,$C5884A28,$CCC36F71,
+    $B843C213,$6C0743F1,$8309893C,$0FEDDD5F,$2F7FE850,$D7C07F7E,$02507FBF,$5AFB9A04,
+    $A747D2D0,$1651192E,$AF70BF3E,$58C31380,$5F98302E,$727CC3C4,$0A0FB402,$0F7FEF82,
+    $8C96FDAD,$5D2C2AAE,$8EE99A49,$50DA88B8,$8427F4A0,$1EAC5790,$796FB449,$8252DC15,
+    $EFBD7D9B,$A672597D,$ADA840D8,$45F54504,$FA5D7403,$E83EC305,$4F91751A,$925669C2,
+    $23EFE941,$A903F12E,$60270DF2,$0276E4B6,$94FD6574,$927985B2,$8276DBCB,$02778176,
+    $F8AF918D,$4E48F79E,$8F616DDF,$E29D840E,$842F7D83,$340CE5C8,$96BBB682,$93B4B148,
+    $EF303CAB,$984FAF28,$779FAF9B,$92DC560D,$224D1E20,$8437AA88,$7D29DC96,$2756D3DC,
+    $8B907CEE,$B51FD240,$E7C07CE3,$E566B4A1,$C3E9615E,$3CF8209D,$6094D1E3,$CD9CA341,
+    $5C76460E,$00EA983B,$D4D67881,$FD47572C,$F76CEDD9,$BDA8229C,$127DADAA,$438A074E,
+    $1F97C090,$081BDB8A,$93A07EBE,$B938CA15,$97B03CFF,$3DC2C0F8,$8D1AB2EC,$64380E51,
+    $68CC7BFB,$D90F2788,$12490181,$5DE5FFD4,$DD7EF86A,$76A2E214,$B9A40368,$925D958F,
+    $4B39FFFA,$BA39AEE9,$A4FFD30B,$FAF7933B,$6D498623,$193CBCFA,$27627545,$825CF47A,
+    $61BD8BA0,$D11E42D1,$CEAD04F4,$127EA392,$10428DB7,$8272A972,$9270C4A8,$127DE50B,
+    $285BA1C8,$3C62F44F,$35C0EAA5,$E805D231,$428929FB,$B4FCDF82,$4FB66A53,$0E7DC15B,
+    $1F081FAB,$108618AE,$FCFD086D,$F9FF2889,$694BCC11,$236A5CAE,$12DECA4D,$2C3F8CC5,
+    $D2D02DFE,$F8EF5896,$E4CF52DA,$95155B67,$494A488C,$B9B6A80C,$5C8F82BC,$89D36B45,
+    $3A609437,$EC00C9A9,$44715253,$0A874B49,$D773BC40,$7C34671C,$02717EF6,$4FEB5536,
+    $A2D02FFF,$D2BF60C4,$D43F03C0,$50B4EF6D,$07478CD1,$006E1888,$A2E53F55,$B9E6D4BC,
+    $A2048016,$97573833,$D7207D67,$DE0F8F3D,$72F87B33,$ABCC4F33,$7688C55D,$7B00A6B0,
+    $947B0001,$570075D2,$F9BB88F8,$8942019E,$4264A5FF,$856302E0,$72DBD92B,$EE971B69,
+    $6EA22FDE,$5F08AE2B,$AF7A616D,$E5C98767,$CF1FEBD2,$61EFC8C2,$F1AC2571,$CC8239C2,
+    $67214CB8,$B1E583D1,$B7DC3E62,$7F10BDCE,$F90A5C38,$0FF0443D,$606E6DC6,$60543A49,
+    $5727C148,$2BE98A1D,$8AB41738,$20E1BE24,$AF96DA0F,$68458425,$99833BE5,$600D457D,
+    $282F9350,$8334B362,$D91D1120,$2B6D8DA0,$642B1E31,$9C305A00,$52BCE688,$1B03588A,
+    $F7BAEFD5,$4142ED9C,$A4315C11,$83323EC5,$DFEF4636,$A133C501,$E9D3531C,$EE353783),
+   ($9DB30420,$1FB6E9DE,$A7BE7BEF,$D273A298,$4A4F7BDB,$64AD8C57,$85510443,$FA020ED1,
+    $7E287AFF,$E60FB663,$095F35A1,$79EBF120,$FD059D43,$6497B7B1,$F3641F63,$241E4ADF,
+    $28147F5F,$4FA2B8CD,$C9430040,$0CC32220,$FDD30B30,$C0A5374F,$1D2D00D9,$24147B15,
+    $EE4D111A,$0FCA5167,$71FF904C,$2D195FFE,$1A05645F,$0C13FEFE,$081B08CA,$05170121,
+    $80530100,$E83E5EFE,$AC9AF4F8,$7FE72701,$D2B8EE5F,$06DF4261,$BB9E9B8A,$7293EA25,
+    $CE84FFDF,$F5718801,$3DD64B04,$A26F263B,$7ED48400,$547EEBE6,$446D4CA0,$6CF3D6F5,
+    $2649ABDF,$AEA0C7F5,$36338CC1,$503F7E93,$D3772061,$11B638E1,$72500E03,$F80EB2BB,
+    $ABE0502E,$EC8D77DE,$57971E81,$E14F6746,$C9335400,$6920318F,$081DBB99,$FFC304A5,
+    $4D351805,$7F3D5CE3,$A6C866C6,$5D5BCCA9,$DAEC6FEA,$9F926F91,$9F46222F,$3991467D,
+    $A5BF6D8E,$1143C44F,$43958302,$D0214EEB,$022083B8,$3FB6180C,$18F8931E,$281658E6,
+    $26486E3E,$8BD78A70,$7477E4C1,$B506E07C,$F32D0A25,$79098B02,$E4EABB81,$28123B23,
+    $69DEAD38,$1574CA16,$DF871B62,$211C40B7,$A51A9EF9,$0014377B,$041E8AC8,$09114003,
+    $BD59E4D2,$E3D156D5,$4FE876D5,$2F91A340,$557BE8DE,$00EAE4A7,$0CE5C2EC,$4DB4BBA6,
+    $E756BDFF,$DD3369AC,$EC17B035,$06572327,$99AFC8B0,$56C8C391,$6B65811C,$5E146119,
+    $6E85CB75,$BE07C002,$C2325577,$893FF4EC,$5BBFC92D,$D0EC3B25,$B7801AB7,$8D6D3B24,
+    $20C763EF,$C366A5FC,$9C382880,$0ACE3205,$AAC9548A,$ECA1D7C7,$041AFA32,$1D16625A,
+    $6701902C,$9B757A54,$31D477F7,$9126B031,$36CC6FDB,$C70B8B46,$D9E66A48,$56E55A79,
+    $026A4CEB,$52437EFF,$2F8F76B4,$0DF980A5,$8674CDE3,$EDDA04EB,$17A9BE04,$2C18F4DF,
+    $B7747F9D,$AB2AF7B4,$EFC34D20,$2E096B7C,$1741A254,$E5B6A035,$213D42F6,$2C1C7C26,
+    $61C2F50F,$6552DAF9,$D2C231F8,$25130F69,$D8167FA2,$0418F2C8,$001A96A6,$0D1526AB,
+    $63315C21,$5E0A72EC,$49BAFEFD,$187908D9,$8D0DBD86,$311170A7,$3E9B640C,$CC3E10D7,
+    $D5CAD3B6,$0CAEC388,$F73001E1,$6C728AFF,$71EAE2A1,$1F9AF36E,$CFCBD12F,$C1DE8417,
+    $AC07BE6B,$CB44A1D8,$8B9B0F56,$013988C3,$B1C52FCA,$B4BE31CD,$D8782806,$12A3A4E2,
+    $6F7DE532,$58FD7EB6,$D01EE900,$24ADFFC2,$F4990FC5,$9711AAC5,$001D7B95,$82E5E7D2,
+    $109873F6,$00613096,$C32D9521,$ADA121FF,$29908415,$7FBB977F,$AF9EB3DB,$29C9ED2A,
+    $5CE2A465,$A730F32C,$D0AA3FE8,$8A5CC091,$D49E2CE7,$0CE454A9,$D60ACD86,$015F1919,
+    $77079103,$DEA03AF6,$78A8565E,$DEE356DF,$21F05CBE,$8B75E387,$B3C50651,$B8A5C3EF,
+    $D8EEB6D2,$E523BE77,$C2154529,$2F69EFDF,$AFE67AFB,$F470C4B2,$F3E0EB5B,$D6CC9876,
+    $39E4460C,$1FDA8538,$1987832F,$CA007367,$A99144F8,$296B299E,$492FC295,$9266BEAB,
+    $B5676E69,$9BD3DDDA,$DF7E052F,$DB25701C,$1B5E51EE,$F65324E6,$6AFCE36C,$0316CC04,
+    $8644213E,$B7DC59D0,$7965291F,$CCD6FD43,$41823979,$932BCDF6,$B657C34D,$4EDFD282,
+    $7AE5290C,$3CB9536B,$851E20FE,$9833557E,$13ECF0B0,$D3FFB372,$3F85C5C1,$0AEF7ED2));
+
+  Mars_Data: array[0..511] of LongWord = (
+    $09D0C479,$28C8FFE0,$84AA6C39,$9DAD7287,$7DFF9BE3,$D4268361,$C96DA1D4,$7974CC93,
+    $85D0582E,$2A4B5705,$1CA16A62,$C3BD279D,$0F1F25E5,$5160372F,$C695C1FB,$4D7FF1E4,
+    $AE5F6BF4,$0D72EE46,$FF23DE8A,$B1CF8E83,$F14902E2,$3E981E42,$8BF53EB6,$7F4BF8AC,
+    $83631F83,$25970205,$76AFE784,$3A7931D4,$4F846450,$5C64C3F6,$210A5F18,$C6986A26,
+    $28F4E826,$3A60A81C,$D340A664,$7EA820C4,$526687C5,$7EDDD12B,$32A11D1D,$9C9EF086,
+    $80F6E831,$AB6F04AD,$56FB9B53,$8B2E095C,$B68556AE,$D2250B0D,$294A7721,$E21FB253,
+    $AE136749,$E82AAE86,$93365104,$99404A66,$78A784DC,$B69BA84B,$04046793,$23DB5C1E,
+    $46CAE1D6,$2FE28134,$5A223942,$1863CD5B,$C190C6E3,$07DFB846,$6EB88816,$2D0DCC4A,
+    $A4CCAE59,$3798670D,$CBFA9493,$4F481D45,$EAFC8CA8,$DB1129D6,$B0449E20,$0F5407FB,
+    $6167D9A8,$D1F45763,$4DAA96C3,$3BEC5958,$ABABA014,$B6CCD201,$38D6279F,$02682215,
+    $8F376CD5,$092C237E,$BFC56593,$32889D2C,$854B3E95,$05BB9B43,$7DCD5DCD,$A02E926C,
+    $FAE527E5,$36A1C330,$3412E1AE,$F257F462,$3C4F1D71,$30A2E809,$68E5F551,$9C61BA44,
+    $5DED0AB8,$75CE09C8,$9654F93E,$698C0CCA,$243CB3E4,$2B062B97,$0F3B8D9E,$00E050DF,
+    $FC5D6166,$E35F9288,$C079550D,$0591AEE8,$8E531E74,$75FE3578,$2F6D829A,$F60B21AE,
+    $95E8EB8D,$6699486B,$901D7D9B,$FD6D6E31,$1090ACEF,$E0670DD8,$DAB2E692,$CD6D4365,
+    $E5393514,$3AF345F0,$6241FC4D,$460DA3A3,$7BCF3729,$8BF1D1E0,$14AAC070,$1587ED55,
+    $3AFD7D3E,$D2F29E01,$29A9D1F6,$EFB10C53,$CF3B870F,$B414935C,$664465ED,$024ACAC7,
+    $59A744C1,$1D2936A7,$DC580AA6,$CF574CA8,$040A7A10,$6CD81807,$8A98BE4C,$ACCEA063,
+    $C33E92B5,$D1E0E03D,$B322517E,$2092BD13,$386B2C4A,$52E8DD58,$58656DFB,$50820371,
+    $41811896,$E337EF7E,$D39FB119,$C97F0DF6,$68FEA01B,$A150A6E5,$55258962,$EB6FF41B,
+    $D7C9CD7A,$A619CD9E,$BCF09576,$2672C073,$F003FB3C,$4AB7A50B,$1484126A,$487BA9B1,
+    $A64FC9C6,$F6957D49,$38B06A75,$DD805FCD,$63D094CF,$F51C999E,$1AA4D343,$B8495294,
+    $CE9F8E99,$BFFCD770,$C7C275CC,$378453A7,$7B21BE33,$397F41BD,$4E94D131,$92CC1F98,
+    $5915EA51,$99F861B7,$C9980A88,$1D74FD5F,$B0A495F8,$614DEED0,$B5778EEA,$5941792D,
+    $FA90C1F8,$33F824B4,$C4965372,$3FF6D550,$4CA5FEC0,$8630E964,$5B3FBBD6,$7DA26A48,
+    $B203231A,$04297514,$2D639306,$2EB13149,$16A45272,$532459A0,$8E5F4872,$F966C7D9,
+    $07128DC0,$0D44DB62,$AFC8D52D,$06316131,$D838E7CE,$1BC41D00,$3A2E8C0F,$EA83837E,
+    $B984737D,$13BA4891,$C4F8B949,$A6D6ACB3,$A215CDCE,$8359838B,$6BD1AA31,$F579DD52,
+    $21B93F93,$F5176781,$187DFDDE,$E94AEB76,$2B38FD54,$431DE1DA,$AB394825,$9AD3048F,
+    $DFEA32AA,$659473E3,$623F7863,$F3346C59,$AB3AB685,$3346A90B,$6B56443E,$C6DE01F8,
+    $8D421FC0,$9B0ED10C,$88F1A1E9,$54C1F029,$7DEAD57B,$8D7BA426,$4CF5178A,$551A7CCA,
+    $1A9A5F08,$FCD651B9,$25605182,$E11FC6C3,$B6FD9676,$337B3027,$B7C8EB14,$9E5FD030,
+    $6B57E354,$AD913CF7,$7E16688D,$58872A69,$2C2FC7DF,$E389CCC6,$30738DF1,$0824A734,
+    $E1797A8B,$A4A8D57B,$5B5D193B,$C8A8309B,$73F9A978,$73398D32,$0F59573E,$E9DF2B03,
+    $E8A5B6C8,$848D0704,$98DF93C2,$720A1DC3,$684F259A,$943BA848,$A6370152,$863B5EA3,
+    $D17B978B,$6D9B58EF,$0A700DD4,$A73D36BF,$8E6A0829,$8695BC14,$E35B3447,$933AC568,
+    $8894B022,$2F511C27,$DDFBCC3C,$006662B6,$117C83FE,$4E12B414,$C2BCA766,$3A2FEC10,
+    $F4562420,$55792E2A,$46F5D857,$CEDA25CE,$C3601D3B,$6C00AB46,$EFAC9C28,$B3C35047,
+    $611DFEE3,$257C3207,$FDD58482,$3B14D84F,$23BECB64,$A075F3A3,$088F8EAD,$07ADF158,
+    $7796943C,$FACABF3D,$C09730CD,$F7679969,$DA44E9ED,$2C854C12,$35935FA3,$2F057D9F,
+    $690624F8,$1CB0BAFD,$7B0DBDC6,$810F23BB,$FA929A1A,$6D969A17,$6742979B,$74AC7D05,
+    $010E65C4,$86A3D963,$F907B5A0,$D0042BD3,$158D7D03,$287A8255,$BBA8366F,$096EDC33,
+    $21916A7B,$77B56B86,$951622F9,$A6C5E650,$8CEA17D1,$CD8C62BC,$A3D63433,$358A68FD,
+    $0F9B9D3C,$D6AA295B,$FE33384A,$C000738E,$CD67EB2F,$E2EB6DC2,$97338B02,$06C9F246,
+    $419CF1AD,$2B83C045,$3723F18A,$CB5B3089,$160BEAD7,$5D494656,$35F8A74B,$1E4E6C9E,
+    $000399BD,$67466880,$B4174831,$ACF423B2,$CA815AB3,$5A6395E7,$302A67C5,$8BDB446B,
+    $108F8FA4,$10223EDA,$92B8B48B,$7F38D0EE,$AB2701D4,$0262D415,$AF224A30,$B3D88ABA,
+    $F8B2C3AF,$DAF7EF70,$CC97D3B7,$E9614B6C,$2BAEBFF4,$70F687CF,$386C9156,$CE092EE5,
+    $01E87DA6,$6CE91E6A,$BB7BCC84,$C7922C20,$9D3B71FD,$060E41C6,$D7590F15,$4E03BB47,
+    $183C198E,$63EEB240,$2DDBF49A,$6D5CBA54,$923750AF,$F9E14236,$7838162B,$59726C72,
+    $81B66760,$BB2926C1,$48A0CE0D,$A6C0496D,$AD43507B,$718D496A,$9DF057AF,$44B1BDE6,
+    $054356DC,$DE7CED35,$D51A138B,$62088CC9,$35830311,$C96EFCA2,$686F86EC,$8E77CB68,
+    $63E1D6B8,$C80F9778,$79C491FD,$1B4C67F2,$72698D7D,$5E368C31,$F7D95E2E,$A1D3493F,
+    $DCD9433E,$896F1552,$4BC4CA7A,$A6D1BAF4,$A5A96DCC,$0BEF8B46,$A169FDA7,$74DF40B7,
+    $4E208804,$9A756607,$038E87C8,$20211E44,$8B7AD4BF,$C6403F35,$1848E36D,$80BDB038,
+    $1E62891C,$643D2107,$BF04D6F8,$21092C8C,$F644F389,$0778404E,$7B78ADB8,$A2C52D53,
+    $42157ABE,$A2253E2E,$7BF3F4AE,$80F594F9,$953194E7,$77EB92ED,$B3816930,$DA8D9336,
+    $BF447469,$F26D9483,$EE6FAED5,$71371235,$DE425F73,$B4E59F43,$7DBE2D4E,$2D37B185,
+    $49DC9A63,$98C39D98,$1301C9A2,$389B1BBF,$0C18588D,$A421C1BA,$7AA3865C,$71E08558,
+    $3C5CFCAA,$7D239CA4,$0297D9DD,$D7DC2830,$4B37802B,$7428AB54,$AEEE0347,$4B3FBB85,
+    $692F2F08,$134E578E,$36D9E0BF,$AE8B5FCF,$EDB93ECF,$2B27248E,$170EB1EF,$7DC57FD6,
+    $1E760F16,$B1136601,$864E1B9B,$D7EA7319,$3AB871BD,$CFA4D76F,$E31BD782,$0DBEB469,
+    $ABB96061,$5370F85D,$FFB07E37,$DA30D0FB,$EBC977B6,$0B98B40F,$3A4D0FE6,$DF4FC26B,
+    $159CF22A,$C298D6E2,$2B78EF6A,$61A94AC0,$AB561187,$14EEA0F0,$DF0D4164,$19AF70EE);
+
+  Mars_Key: array[0..6] of LongWord =
+   ($09D0C479,$28C8FFE0,$84AA6C39,$9DAD7287,$7DFF9BE3,$D4268361,$C96DA1D4);
+
+
+  Misty_Data7: array[0..$7F] of Byte =
+   ($1B,$32,$33,$5A,$3B,$10,$17,$54,$5B,$1A,$72,$73,$6B,$2C,$66,$49,
+    $1F,$24,$13,$6C,$37,$2E,$3F,$4A,$5D,$0F,$40,$56,$25,$51,$1C,$04,
+    $0B,$46,$20,$0D,$7B,$35,$44,$42,$2B,$1E,$41,$14,$4B,$79,$15,$6F,
+    $0E,$55,$09,$36,$74,$0C,$67,$53,$28,$0A,$7E,$38,$02,$07,$60,$29,
+    $19,$12,$65,$2F,$30,$39,$08,$68,$5F,$78,$2A,$4C,$64,$45,$75,$3D,
+    $59,$48,$03,$57,$7C,$4F,$62,$3C,$1D,$21,$5E,$27,$6A,$70,$4D,$3A,
+    $01,$6D,$6E,$63,$18,$77,$23,$05,$26,$76,$00,$31,$2D,$7A,$7F,$61,
+    $50,$22,$11,$06,$47,$16,$52,$4E,$71,$3E,$69,$43,$34,$5C,$58,$7D);
+
+  Misty_Data9: array[0..$1FF] of Word =
+   ($01C3,$00CB,$0153,$019F,$01E3,$00E9,$00FB,$0035,
+    $0181,$00B9,$0117,$01EB,$0133,$0009,$002D,$00D3,
+    $00C7,$014A,$0037,$007E,$00EB,$0164,$0193,$01D8,
+    $00A3,$011E,$0055,$002C,$001D,$01A2,$0163,$0118,
+    $014B,$0152,$01D2,$000F,$002B,$0030,$013A,$00E5,
+    $0111,$0138,$018E,$0063,$00E3,$00C8,$01F4,$001B,
+    $0001,$009D,$00F8,$01A0,$016D,$01F3,$001C,$0146,
+    $007D,$00D1,$0082,$01EA,$0183,$012D,$00F4,$019E,
+    $01D3,$00DD,$01E2,$0128,$01E0,$00EC,$0059,$0091,
+    $0011,$012F,$0026,$00DC,$00B0,$018C,$010F,$01F7,
+    $00E7,$016C,$00B6,$00F9,$00D8,$0151,$0101,$014C,
+    $0103,$00B8,$0154,$012B,$01AE,$0017,$0071,$000C,
+    $0047,$0058,$007F,$01A4,$0134,$0129,$0084,$015D,
+    $019D,$01B2,$01A3,$0048,$007C,$0051,$01CA,$0023,
+    $013D,$01A7,$0165,$003B,$0042,$00DA,$0192,$00CE,
+    $00C1,$006B,$009F,$01F1,$012C,$0184,$00FA,$0196,
+    $01E1,$0169,$017D,$0031,$0180,$010A,$0094,$01DA,
+    $0186,$013E,$011C,$0060,$0175,$01CF,$0067,$0119,
+    $0065,$0068,$0099,$0150,$0008,$0007,$017C,$00B7,
+    $0024,$0019,$00DE,$0127,$00DB,$00E4,$01A9,$0052,
+    $0109,$0090,$019C,$01C1,$0028,$01B3,$0135,$016A,
+    $0176,$00DF,$01E5,$0188,$00C5,$016E,$01DE,$01B1,
+    $00C3,$01DF,$0036,$00EE,$01EE,$00F0,$0093,$0049,
+    $009A,$01B6,$0069,$0081,$0125,$000B,$005E,$00B4,
+    $0149,$01C7,$0174,$003E,$013B,$01B7,$008E,$01C6,
+    $00AE,$0010,$0095,$01EF,$004E,$00F2,$01FD,$0085,
+    $00FD,$00F6,$00A0,$016F,$0083,$008A,$0156,$009B,
+    $013C,$0107,$0167,$0098,$01D0,$01E9,$0003,$01FE,
+    $00BD,$0122,$0089,$00D2,$018F,$0012,$0033,$006A,
+    $0142,$00ED,$0170,$011B,$00E2,$014F,$0158,$0131,
+    $0147,$005D,$0113,$01CD,$0079,$0161,$01A5,$0179,
+    $009E,$01B4,$00CC,$0022,$0132,$001A,$00E8,$0004,
+    $0187,$01ED,$0197,$0039,$01BF,$01D7,$0027,$018B,
+    $00C6,$009C,$00D0,$014E,$006C,$0034,$01F2,$006E,
+    $00CA,$0025,$00BA,$0191,$00FE,$0013,$0106,$002F,
+    $01AD,$0172,$01DB,$00C0,$010B,$01D6,$00F5,$01EC,
+    $010D,$0076,$0114,$01AB,$0075,$010C,$01E4,$0159,
+    $0054,$011F,$004B,$00C4,$01BE,$00F7,$0029,$00A4,
+    $000E,$01F0,$0077,$004D,$017A,$0086,$008B,$00B3,
+    $0171,$00BF,$010E,$0104,$0097,$015B,$0160,$0168,
+    $00D7,$00BB,$0066,$01CE,$00FC,$0092,$01C5,$006F,
+    $0016,$004A,$00A1,$0139,$00AF,$00F1,$0190,$000A,
+    $01AA,$0143,$017B,$0056,$018D,$0166,$00D4,$01FB,
+    $014D,$0194,$019A,$0087,$01F8,$0123,$00A7,$01B8,
+    $0141,$003C,$01F9,$0140,$002A,$0155,$011A,$01A1,
+    $0198,$00D5,$0126,$01AF,$0061,$012E,$0157,$01DC,
+    $0072,$018A,$00AA,$0096,$0115,$00EF,$0045,$007B,
+    $008D,$0145,$0053,$005F,$0178,$00B2,$002E,$0020,
+    $01D5,$003F,$01C9,$01E7,$01AC,$0044,$0038,$0014,
+    $00B1,$016B,$00AB,$00B5,$005A,$0182,$01C8,$01D4,
+    $0018,$0177,$0064,$00CF,$006D,$0100,$0199,$0130,
+    $015A,$0005,$0120,$01BB,$01BD,$00E0,$004F,$00D6,
+    $013F,$01C4,$012A,$0015,$0006,$00FF,$019B,$00A6,
+    $0043,$0088,$0050,$015F,$01E8,$0121,$0073,$017E,
+    $00BC,$00C2,$00C9,$0173,$0189,$01F5,$0074,$01CC,
+    $01E6,$01A8,$0195,$001F,$0041,$000D,$01BA,$0032,
+    $003D,$01D1,$0080,$00A8,$0057,$01B9,$0162,$0148,
+    $00D9,$0105,$0062,$007A,$0021,$01FF,$0112,$0108,
+    $01C0,$00A9,$011D,$01B0,$01A6,$00CD,$00F3,$005C,
+    $0102,$005B,$01D9,$0144,$01F6,$00AD,$00A5,$003A,
+    $01CB,$0136,$017F,$0046,$00E1,$001E,$01DD,$00E6,
+    $0137,$01FA,$0185,$008C,$008F,$0040,$01B5,$00BE,
+    $0078,$0000,$00AC,$0110,$015E,$0124,$0002,$01BC,
+    $00A2,$00EA,$0070,$01FC,$0116,$015C,$004C,$01C2);
+
+  RC2_Data: array[0..255] of Byte =
+   ($D9,$78,$F9,$C4,$19,$DD,$B5,$ED,$28,$E9,$FD,$79,$4A,$A0,$D8,$9D,
+    $C6,$7E,$37,$83,$2B,$76,$53,$8E,$62,$4C,$64,$88,$44,$8B,$FB,$A2,
+    $17,$9A,$59,$F5,$87,$B3,$4F,$13,$61,$45,$6D,$8D,$09,$81,$7D,$32,
+    $BD,$8F,$40,$EB,$86,$B7,$7B,$0B,$F0,$95,$21,$22,$5C,$6B,$4E,$82,
+    $54,$D6,$65,$93,$CE,$60,$B2,$1C,$73,$56,$C0,$14,$A7,$8C,$F1,$DC,
+    $12,$75,$CA,$1F,$3B,$BE,$E4,$D1,$42,$3D,$D4,$30,$A3,$3C,$B6,$26,
+    $6F,$BF,$0E,$DA,$46,$69,$07,$57,$27,$F2,$1D,$9B,$BC,$94,$43,$03,
+    $F8,$11,$C7,$F6,$90,$EF,$3E,$E7,$06,$C3,$D5,$2F,$C8,$66,$1E,$D7,
+    $08,$E8,$EA,$DE,$80,$52,$EE,$F7,$84,$AA,$72,$AC,$35,$4D,$6A,$2A,
+    $96,$1A,$D2,$71,$5A,$15,$49,$74,$4B,$9F,$D0,$5E,$04,$18,$A4,$EC,
+    $C2,$E0,$41,$6E,$0F,$51,$CB,$CC,$24,$91,$AF,$50,$A1,$F4,$70,$39,
+    $99,$7C,$3A,$85,$23,$B8,$B4,$7A,$FC,$02,$36,$5B,$25,$55,$97,$31,
+    $2D,$5D,$FA,$98,$E3,$8A,$92,$AE,$05,$DF,$29,$10,$67,$6C,$BA,$C9,
+    $D3,$00,$E6,$CF,$E1,$9E,$A8,$2C,$63,$16,$01,$3F,$58,$E2,$89,$A9,
+    $0D,$38,$34,$1B,$AB,$33,$FF,$B0,$BB,$48,$0C,$5F,$B9,$B1,$CD,$2E,
+    $C5,$F3,$DB,$47,$E5,$A5,$9C,$77,$0A,$A6,$20,$68,$FE,$7F,$C1,$AD);
+
+  FROG_Data: array[0..250] of Byte = (
+    $71,$15,$E8,$12,$71,$5C,$3F,$9D,$7C,$C1,$A6,$C5,$7E,$38,$E5,$E5,
+    $9C,$A2,$36,$11,$E6,$59,$BD,$57,$A9,$00,$51,$CC,$08,$46,$CB,$E1,
+    $A0,$3B,$A7,$BD,$64,$9D,$54,$0B,$07,$82,$1D,$33,$20,$2D,$87,$ED,
+    $8B,$21,$11,$DD,$18,$32,$59,$4A,$15,$CD,$BF,$F2,$54,$35,$03,$E6,
+    $E7,$76,$0F,$0F,$6B,$04,$15,$22,$03,$9C,$39,$42,$5D,$FF,$BF,$03,
+    $55,$87,$CD,$C8,$B9,$CC,$34,$25,$23,$18,$44,$B9,$C9,$0A,$E0,$EA,
+    $07,$78,$C9,$73,$D8,$67,$39,$FF,$5D,$6E,$2A,$F9,$44,$0E,$1D,$37,
+    $80,$54,$25,$98,$DD,$89,$27,$0B,$FC,$32,$90,$23,$B2,$BE,$2B,$A2,
+    $67,$F9,$6D,$08,$EB,$21,$9E,$6F,$FC,$CD,$A9,$36,$0A,$14,$DD,$C9,
+    $B2,$E0,$59,$B8,$B6,$41,$C9,$0A,$3C,$06,$BF,$AE,$4F,$62,$1A,$A0,
+    $FC,$33,$3F,$4F,$06,$66,$7B,$AD,$31,$03,$6E,$E9,$5A,$9E,$E4,$D2,
+    $D1,$ED,$1E,$5F,$1C,$B3,$CC,$DC,$48,$A3,$4D,$A6,$C0,$62,$A5,$19,
+    $91,$A2,$5B,$D4,$29,$E6,$6E,$06,$6B,$BB,$7F,$26,$52,$62,$1E,$43,
+    $E1,$50,$D0,$86,$3C,$FA,$99,$57,$94,$3C,$42,$A5,$48,$1D,$A5,$52,
+    $D3,$CF,$00,$B1,$CE,$0D,$06,$0E,$5C,$F8,$3C,$C9,$84,$5F,$23,$D7,
+    $76,$B1,$79,$B4,$1B,$53,$83,$1A,$27,$2E,$0C);
+
+  Rijndael_S: array[0..1, 0..255] of Byte = (
+   ($63,$7C,$77,$7B,$F2,$6B,$6F,$C5,$30,$01,$67,$2B,$FE,$D7,$AB,$76,
+    $CA,$82,$C9,$7D,$FA,$59,$47,$F0,$AD,$D4,$A2,$AF,$9C,$A4,$72,$C0,
+    $B7,$FD,$93,$26,$36,$3F,$F7,$CC,$34,$A5,$E5,$F1,$71,$D8,$31,$15,
+    $04,$C7,$23,$C3,$18,$96,$05,$9A,$07,$12,$80,$E2,$EB,$27,$B2,$75,
+    $09,$83,$2C,$1A,$1B,$6E,$5A,$A0,$52,$3B,$D6,$B3,$29,$E3,$2F,$84,
+    $53,$D1,$00,$ED,$20,$FC,$B1,$5B,$6A,$CB,$BE,$39,$4A,$4C,$58,$CF,
+    $D0,$EF,$AA,$FB,$43,$4D,$33,$85,$45,$F9,$02,$7F,$50,$3C,$9F,$A8,
+    $51,$A3,$40,$8F,$92,$9D,$38,$F5,$BC,$B6,$DA,$21,$10,$FF,$F3,$D2,
+    $CD,$0C,$13,$EC,$5F,$97,$44,$17,$C4,$A7,$7E,$3D,$64,$5D,$19,$73,
+    $60,$81,$4F,$DC,$22,$2A,$90,$88,$46,$EE,$B8,$14,$DE,$5E,$0B,$DB,
+    $E0,$32,$3A,$0A,$49,$06,$24,$5C,$C2,$D3,$AC,$62,$91,$95,$E4,$79,
+    $E7,$C8,$37,$6D,$8D,$D5,$4E,$A9,$6C,$56,$F4,$EA,$65,$7A,$AE,$08,
+    $BA,$78,$25,$2E,$1C,$A6,$B4,$C6,$E8,$DD,$74,$1F,$4B,$BD,$8B,$8A,
+    $70,$3E,$B5,$66,$48,$03,$F6,$0E,$61,$35,$57,$B9,$86,$C1,$1D,$9E,
+    $E1,$F8,$98,$11,$69,$D9,$8E,$94,$9B,$1E,$87,$E9,$CE,$55,$28,$DF,
+    $8C,$A1,$89,$0D,$BF,$E6,$42,$68,$41,$99,$2D,$0F,$B0,$54,$BB,$16),
+   ($52,$09,$6A,$D5,$30,$36,$A5,$38,$BF,$40,$A3,$9E,$81,$F3,$D7,$FB,
+    $7C,$E3,$39,$82,$9B,$2F,$FF,$87,$34,$8E,$43,$44,$C4,$DE,$E9,$CB,
+    $54,$7B,$94,$32,$A6,$C2,$23,$3D,$EE,$4C,$95,$0B,$42,$FA,$C3,$4E,
+    $08,$2E,$A1,$66,$28,$D9,$24,$B2,$76,$5B,$A2,$49,$6D,$8B,$D1,$25,
+    $72,$F8,$F6,$64,$86,$68,$98,$16,$D4,$A4,$5C,$CC,$5D,$65,$B6,$92,
+    $6C,$70,$48,$50,$FD,$ED,$B9,$DA,$5E,$15,$46,$57,$A7,$8D,$9D,$84,
+    $90,$D8,$AB,$00,$8C,$BC,$D3,$0A,$F7,$E4,$58,$05,$B8,$B3,$45,$06,
+    $D0,$2C,$1E,$8F,$CA,$3F,$0F,$02,$C1,$AF,$BD,$03,$01,$13,$8A,$6B,
+    $3A,$91,$11,$41,$4F,$67,$DC,$EA,$97,$F2,$CF,$CE,$F0,$B4,$E6,$73,
+    $96,$AC,$74,$22,$E7,$AD,$35,$85,$E2,$F9,$37,$E8,$1C,$75,$DF,$6E,
+    $47,$F1,$1A,$71,$1D,$29,$C5,$89,$6F,$B7,$62,$0E,$AA,$18,$BE,$1B,
+    $FC,$56,$3E,$4B,$C6,$D2,$79,$20,$9A,$DB,$C0,$FE,$78,$CD,$5A,$F4,
+    $1F,$DD,$A8,$33,$88,$07,$C7,$31,$B1,$12,$10,$59,$27,$80,$EC,$5F,
+    $60,$51,$7F,$A9,$19,$B5,$4A,$0D,$2D,$E5,$7A,$9F,$93,$C9,$9C,$EF,
+    $A0,$E0,$3B,$4D,$AE,$2A,$F5,$B0,$C8,$EB,$BB,$3C,$83,$53,$99,$61,
+    $17,$2B,$04,$7E,$BA,$77,$D6,$26,$E1,$69,$14,$63,$55,$21,$0C,$7D));
+
+  Rijndael_T: array[0..7, 0..255] of LongWord = (
+   ($A56363C6,$847C7CF8,$997777EE,$8D7B7BF6,$0DF2F2FF,$BD6B6BD6,$B16F6FDE,$54C5C591,
+    $50303060,$03010102,$A96767CE,$7D2B2B56,$19FEFEE7,$62D7D7B5,$E6ABAB4D,$9A7676EC,
+    $45CACA8F,$9D82821F,$40C9C989,$877D7DFA,$15FAFAEF,$EB5959B2,$C947478E,$0BF0F0FB,
+    $ECADAD41,$67D4D4B3,$FDA2A25F,$EAAFAF45,$BF9C9C23,$F7A4A453,$967272E4,$5BC0C09B,
+    $C2B7B775,$1CFDFDE1,$AE93933D,$6A26264C,$5A36366C,$413F3F7E,$02F7F7F5,$4FCCCC83,
+    $5C343468,$F4A5A551,$34E5E5D1,$08F1F1F9,$937171E2,$73D8D8AB,$53313162,$3F15152A,
+    $0C040408,$52C7C795,$65232346,$5EC3C39D,$28181830,$A1969637,$0F05050A,$B59A9A2F,
+    $0907070E,$36121224,$9B80801B,$3DE2E2DF,$26EBEBCD,$6927274E,$CDB2B27F,$9F7575EA,
+    $1B090912,$9E83831D,$742C2C58,$2E1A1A34,$2D1B1B36,$B26E6EDC,$EE5A5AB4,$FBA0A05B,
+    $F65252A4,$4D3B3B76,$61D6D6B7,$CEB3B37D,$7B292952,$3EE3E3DD,$712F2F5E,$97848413,
+    $F55353A6,$68D1D1B9,$00000000,$2CEDEDC1,$60202040,$1FFCFCE3,$C8B1B179,$ED5B5BB6,
+    $BE6A6AD4,$46CBCB8D,$D9BEBE67,$4B393972,$DE4A4A94,$D44C4C98,$E85858B0,$4ACFCF85,
+    $6BD0D0BB,$2AEFEFC5,$E5AAAA4F,$16FBFBED,$C5434386,$D74D4D9A,$55333366,$94858511,
+    $CF45458A,$10F9F9E9,$06020204,$817F7FFE,$F05050A0,$443C3C78,$BA9F9F25,$E3A8A84B,
+    $F35151A2,$FEA3A35D,$C0404080,$8A8F8F05,$AD92923F,$BC9D9D21,$48383870,$04F5F5F1,
+    $DFBCBC63,$C1B6B677,$75DADAAF,$63212142,$30101020,$1AFFFFE5,$0EF3F3FD,$6DD2D2BF,
+    $4CCDCD81,$140C0C18,$35131326,$2FECECC3,$E15F5FBE,$A2979735,$CC444488,$3917172E,
+    $57C4C493,$F2A7A755,$827E7EFC,$473D3D7A,$AC6464C8,$E75D5DBA,$2B191932,$957373E6,
+    $A06060C0,$98818119,$D14F4F9E,$7FDCDCA3,$66222244,$7E2A2A54,$AB90903B,$8388880B,
+    $CA46468C,$29EEEEC7,$D3B8B86B,$3C141428,$79DEDEA7,$E25E5EBC,$1D0B0B16,$76DBDBAD,
+    $3BE0E0DB,$56323264,$4E3A3A74,$1E0A0A14,$DB494992,$0A06060C,$6C242448,$E45C5CB8,
+    $5DC2C29F,$6ED3D3BD,$EFACAC43,$A66262C4,$A8919139,$A4959531,$37E4E4D3,$8B7979F2,
+    $32E7E7D5,$43C8C88B,$5937376E,$B76D6DDA,$8C8D8D01,$64D5D5B1,$D24E4E9C,$E0A9A949,
+    $B46C6CD8,$FA5656AC,$07F4F4F3,$25EAEACF,$AF6565CA,$8E7A7AF4,$E9AEAE47,$18080810,
+    $D5BABA6F,$887878F0,$6F25254A,$722E2E5C,$241C1C38,$F1A6A657,$C7B4B473,$51C6C697,
+    $23E8E8CB,$7CDDDDA1,$9C7474E8,$211F1F3E,$DD4B4B96,$DCBDBD61,$868B8B0D,$858A8A0F,
+    $907070E0,$423E3E7C,$C4B5B571,$AA6666CC,$D8484890,$05030306,$01F6F6F7,$120E0E1C,
+    $A36161C2,$5F35356A,$F95757AE,$D0B9B969,$91868617,$58C1C199,$271D1D3A,$B99E9E27,
+    $38E1E1D9,$13F8F8EB,$B398982B,$33111122,$BB6969D2,$70D9D9A9,$898E8E07,$A7949433,
+    $B69B9B2D,$221E1E3C,$92878715,$20E9E9C9,$49CECE87,$FF5555AA,$78282850,$7ADFDFA5,
+    $8F8C8C03,$F8A1A159,$80898909,$170D0D1A,$DABFBF65,$31E6E6D7,$C6424284,$B86868D0,
+    $C3414182,$B0999929,$772D2D5A,$110F0F1E,$CBB0B07B,$FC5454A8,$D6BBBB6D,$3A16162C),
+   ($6363C6A5,$7C7CF884,$7777EE99,$7B7BF68D,$F2F2FF0D,$6B6BD6BD,$6F6FDEB1,$C5C59154,
+    $30306050,$01010203,$6767CEA9,$2B2B567D,$FEFEE719,$D7D7B562,$ABAB4DE6,$7676EC9A,
+    $CACA8F45,$82821F9D,$C9C98940,$7D7DFA87,$FAFAEF15,$5959B2EB,$47478EC9,$F0F0FB0B,
+    $ADAD41EC,$D4D4B367,$A2A25FFD,$AFAF45EA,$9C9C23BF,$A4A453F7,$7272E496,$C0C09B5B,
+    $B7B775C2,$FDFDE11C,$93933DAE,$26264C6A,$36366C5A,$3F3F7E41,$F7F7F502,$CCCC834F,
+    $3434685C,$A5A551F4,$E5E5D134,$F1F1F908,$7171E293,$D8D8AB73,$31316253,$15152A3F,
+    $0404080C,$C7C79552,$23234665,$C3C39D5E,$18183028,$969637A1,$05050A0F,$9A9A2FB5,
+    $07070E09,$12122436,$80801B9B,$E2E2DF3D,$EBEBCD26,$27274E69,$B2B27FCD,$7575EA9F,
+    $0909121B,$83831D9E,$2C2C5874,$1A1A342E,$1B1B362D,$6E6EDCB2,$5A5AB4EE,$A0A05BFB,
+    $5252A4F6,$3B3B764D,$D6D6B761,$B3B37DCE,$2929527B,$E3E3DD3E,$2F2F5E71,$84841397,
+    $5353A6F5,$D1D1B968,$00000000,$EDEDC12C,$20204060,$FCFCE31F,$B1B179C8,$5B5BB6ED,
+    $6A6AD4BE,$CBCB8D46,$BEBE67D9,$3939724B,$4A4A94DE,$4C4C98D4,$5858B0E8,$CFCF854A,
+    $D0D0BB6B,$EFEFC52A,$AAAA4FE5,$FBFBED16,$434386C5,$4D4D9AD7,$33336655,$85851194,
+    $45458ACF,$F9F9E910,$02020406,$7F7FFE81,$5050A0F0,$3C3C7844,$9F9F25BA,$A8A84BE3,
+    $5151A2F3,$A3A35DFE,$404080C0,$8F8F058A,$92923FAD,$9D9D21BC,$38387048,$F5F5F104,
+    $BCBC63DF,$B6B677C1,$DADAAF75,$21214263,$10102030,$FFFFE51A,$F3F3FD0E,$D2D2BF6D,
+    $CDCD814C,$0C0C1814,$13132635,$ECECC32F,$5F5FBEE1,$979735A2,$444488CC,$17172E39,
+    $C4C49357,$A7A755F2,$7E7EFC82,$3D3D7A47,$6464C8AC,$5D5DBAE7,$1919322B,$7373E695,
+    $6060C0A0,$81811998,$4F4F9ED1,$DCDCA37F,$22224466,$2A2A547E,$90903BAB,$88880B83,
+    $46468CCA,$EEEEC729,$B8B86BD3,$1414283C,$DEDEA779,$5E5EBCE2,$0B0B161D,$DBDBAD76,
+    $E0E0DB3B,$32326456,$3A3A744E,$0A0A141E,$494992DB,$06060C0A,$2424486C,$5C5CB8E4,
+    $C2C29F5D,$D3D3BD6E,$ACAC43EF,$6262C4A6,$919139A8,$959531A4,$E4E4D337,$7979F28B,
+    $E7E7D532,$C8C88B43,$37376E59,$6D6DDAB7,$8D8D018C,$D5D5B164,$4E4E9CD2,$A9A949E0,
+    $6C6CD8B4,$5656ACFA,$F4F4F307,$EAEACF25,$6565CAAF,$7A7AF48E,$AEAE47E9,$08081018,
+    $BABA6FD5,$7878F088,$25254A6F,$2E2E5C72,$1C1C3824,$A6A657F1,$B4B473C7,$C6C69751,
+    $E8E8CB23,$DDDDA17C,$7474E89C,$1F1F3E21,$4B4B96DD,$BDBD61DC,$8B8B0D86,$8A8A0F85,
+    $7070E090,$3E3E7C42,$B5B571C4,$6666CCAA,$484890D8,$03030605,$F6F6F701,$0E0E1C12,
+    $6161C2A3,$35356A5F,$5757AEF9,$B9B969D0,$86861791,$C1C19958,$1D1D3A27,$9E9E27B9,
+    $E1E1D938,$F8F8EB13,$98982BB3,$11112233,$6969D2BB,$D9D9A970,$8E8E0789,$949433A7,
+    $9B9B2DB6,$1E1E3C22,$87871592,$E9E9C920,$CECE8749,$5555AAFF,$28285078,$DFDFA57A,
+    $8C8C038F,$A1A159F8,$89890980,$0D0D1A17,$BFBF65DA,$E6E6D731,$424284C6,$6868D0B8,
+    $414182C3,$999929B0,$2D2D5A77,$0F0F1E11,$B0B07BCB,$5454A8FC,$BBBB6DD6,$16162C3A),
+   ($63C6A563,$7CF8847C,$77EE9977,$7BF68D7B,$F2FF0DF2,$6BD6BD6B,$6FDEB16F,$C59154C5,
+    $30605030,$01020301,$67CEA967,$2B567D2B,$FEE719FE,$D7B562D7,$AB4DE6AB,$76EC9A76,
+    $CA8F45CA,$821F9D82,$C98940C9,$7DFA877D,$FAEF15FA,$59B2EB59,$478EC947,$F0FB0BF0,
+    $AD41ECAD,$D4B367D4,$A25FFDA2,$AF45EAAF,$9C23BF9C,$A453F7A4,$72E49672,$C09B5BC0,
+    $B775C2B7,$FDE11CFD,$933DAE93,$264C6A26,$366C5A36,$3F7E413F,$F7F502F7,$CC834FCC,
+    $34685C34,$A551F4A5,$E5D134E5,$F1F908F1,$71E29371,$D8AB73D8,$31625331,$152A3F15,
+    $04080C04,$C79552C7,$23466523,$C39D5EC3,$18302818,$9637A196,$050A0F05,$9A2FB59A,
+    $070E0907,$12243612,$801B9B80,$E2DF3DE2,$EBCD26EB,$274E6927,$B27FCDB2,$75EA9F75,
+    $09121B09,$831D9E83,$2C58742C,$1A342E1A,$1B362D1B,$6EDCB26E,$5AB4EE5A,$A05BFBA0,
+    $52A4F652,$3B764D3B,$D6B761D6,$B37DCEB3,$29527B29,$E3DD3EE3,$2F5E712F,$84139784,
+    $53A6F553,$D1B968D1,$00000000,$EDC12CED,$20406020,$FCE31FFC,$B179C8B1,$5BB6ED5B,
+    $6AD4BE6A,$CB8D46CB,$BE67D9BE,$39724B39,$4A94DE4A,$4C98D44C,$58B0E858,$CF854ACF,
+    $D0BB6BD0,$EFC52AEF,$AA4FE5AA,$FBED16FB,$4386C543,$4D9AD74D,$33665533,$85119485,
+    $458ACF45,$F9E910F9,$02040602,$7FFE817F,$50A0F050,$3C78443C,$9F25BA9F,$A84BE3A8,
+    $51A2F351,$A35DFEA3,$4080C040,$8F058A8F,$923FAD92,$9D21BC9D,$38704838,$F5F104F5,
+    $BC63DFBC,$B677C1B6,$DAAF75DA,$21426321,$10203010,$FFE51AFF,$F3FD0EF3,$D2BF6DD2,
+    $CD814CCD,$0C18140C,$13263513,$ECC32FEC,$5FBEE15F,$9735A297,$4488CC44,$172E3917,
+    $C49357C4,$A755F2A7,$7EFC827E,$3D7A473D,$64C8AC64,$5DBAE75D,$19322B19,$73E69573,
+    $60C0A060,$81199881,$4F9ED14F,$DCA37FDC,$22446622,$2A547E2A,$903BAB90,$880B8388,
+    $468CCA46,$EEC729EE,$B86BD3B8,$14283C14,$DEA779DE,$5EBCE25E,$0B161D0B,$DBAD76DB,
+    $E0DB3BE0,$32645632,$3A744E3A,$0A141E0A,$4992DB49,$060C0A06,$24486C24,$5CB8E45C,
+    $C29F5DC2,$D3BD6ED3,$AC43EFAC,$62C4A662,$9139A891,$9531A495,$E4D337E4,$79F28B79,
+    $E7D532E7,$C88B43C8,$376E5937,$6DDAB76D,$8D018C8D,$D5B164D5,$4E9CD24E,$A949E0A9,
+    $6CD8B46C,$56ACFA56,$F4F307F4,$EACF25EA,$65CAAF65,$7AF48E7A,$AE47E9AE,$08101808,
+    $BA6FD5BA,$78F08878,$254A6F25,$2E5C722E,$1C38241C,$A657F1A6,$B473C7B4,$C69751C6,
+    $E8CB23E8,$DDA17CDD,$74E89C74,$1F3E211F,$4B96DD4B,$BD61DCBD,$8B0D868B,$8A0F858A,
+    $70E09070,$3E7C423E,$B571C4B5,$66CCAA66,$4890D848,$03060503,$F6F701F6,$0E1C120E,
+    $61C2A361,$356A5F35,$57AEF957,$B969D0B9,$86179186,$C19958C1,$1D3A271D,$9E27B99E,
+    $E1D938E1,$F8EB13F8,$982BB398,$11223311,$69D2BB69,$D9A970D9,$8E07898E,$9433A794,
+    $9B2DB69B,$1E3C221E,$87159287,$E9C920E9,$CE8749CE,$55AAFF55,$28507828,$DFA57ADF,
+    $8C038F8C,$A159F8A1,$89098089,$0D1A170D,$BF65DABF,$E6D731E6,$4284C642,$68D0B868,
+    $4182C341,$9929B099,$2D5A772D,$0F1E110F,$B07BCBB0,$54A8FC54,$BB6DD6BB,$162C3A16),
+   ($C6A56363,$F8847C7C,$EE997777,$F68D7B7B,$FF0DF2F2,$D6BD6B6B,$DEB16F6F,$9154C5C5,
+    $60503030,$02030101,$CEA96767,$567D2B2B,$E719FEFE,$B562D7D7,$4DE6ABAB,$EC9A7676,
+    $8F45CACA,$1F9D8282,$8940C9C9,$FA877D7D,$EF15FAFA,$B2EB5959,$8EC94747,$FB0BF0F0,
+    $41ECADAD,$B367D4D4,$5FFDA2A2,$45EAAFAF,$23BF9C9C,$53F7A4A4,$E4967272,$9B5BC0C0,
+    $75C2B7B7,$E11CFDFD,$3DAE9393,$4C6A2626,$6C5A3636,$7E413F3F,$F502F7F7,$834FCCCC,
+    $685C3434,$51F4A5A5,$D134E5E5,$F908F1F1,$E2937171,$AB73D8D8,$62533131,$2A3F1515,
+    $080C0404,$9552C7C7,$46652323,$9D5EC3C3,$30281818,$37A19696,$0A0F0505,$2FB59A9A,
+    $0E090707,$24361212,$1B9B8080,$DF3DE2E2,$CD26EBEB,$4E692727,$7FCDB2B2,$EA9F7575,
+    $121B0909,$1D9E8383,$58742C2C,$342E1A1A,$362D1B1B,$DCB26E6E,$B4EE5A5A,$5BFBA0A0,
+    $A4F65252,$764D3B3B,$B761D6D6,$7DCEB3B3,$527B2929,$DD3EE3E3,$5E712F2F,$13978484,
+    $A6F55353,$B968D1D1,$00000000,$C12CEDED,$40602020,$E31FFCFC,$79C8B1B1,$B6ED5B5B,
+    $D4BE6A6A,$8D46CBCB,$67D9BEBE,$724B3939,$94DE4A4A,$98D44C4C,$B0E85858,$854ACFCF,
+    $BB6BD0D0,$C52AEFEF,$4FE5AAAA,$ED16FBFB,$86C54343,$9AD74D4D,$66553333,$11948585,
+    $8ACF4545,$E910F9F9,$04060202,$FE817F7F,$A0F05050,$78443C3C,$25BA9F9F,$4BE3A8A8,
+    $A2F35151,$5DFEA3A3,$80C04040,$058A8F8F,$3FAD9292,$21BC9D9D,$70483838,$F104F5F5,
+    $63DFBCBC,$77C1B6B6,$AF75DADA,$42632121,$20301010,$E51AFFFF,$FD0EF3F3,$BF6DD2D2,
+    $814CCDCD,$18140C0C,$26351313,$C32FECEC,$BEE15F5F,$35A29797,$88CC4444,$2E391717,
+    $9357C4C4,$55F2A7A7,$FC827E7E,$7A473D3D,$C8AC6464,$BAE75D5D,$322B1919,$E6957373,
+    $C0A06060,$19988181,$9ED14F4F,$A37FDCDC,$44662222,$547E2A2A,$3BAB9090,$0B838888,
+    $8CCA4646,$C729EEEE,$6BD3B8B8,$283C1414,$A779DEDE,$BCE25E5E,$161D0B0B,$AD76DBDB,
+    $DB3BE0E0,$64563232,$744E3A3A,$141E0A0A,$92DB4949,$0C0A0606,$486C2424,$B8E45C5C,
+    $9F5DC2C2,$BD6ED3D3,$43EFACAC,$C4A66262,$39A89191,$31A49595,$D337E4E4,$F28B7979,
+    $D532E7E7,$8B43C8C8,$6E593737,$DAB76D6D,$018C8D8D,$B164D5D5,$9CD24E4E,$49E0A9A9,
+    $D8B46C6C,$ACFA5656,$F307F4F4,$CF25EAEA,$CAAF6565,$F48E7A7A,$47E9AEAE,$10180808,
+    $6FD5BABA,$F0887878,$4A6F2525,$5C722E2E,$38241C1C,$57F1A6A6,$73C7B4B4,$9751C6C6,
+    $CB23E8E8,$A17CDDDD,$E89C7474,$3E211F1F,$96DD4B4B,$61DCBDBD,$0D868B8B,$0F858A8A,
+    $E0907070,$7C423E3E,$71C4B5B5,$CCAA6666,$90D84848,$06050303,$F701F6F6,$1C120E0E,
+    $C2A36161,$6A5F3535,$AEF95757,$69D0B9B9,$17918686,$9958C1C1,$3A271D1D,$27B99E9E,
+    $D938E1E1,$EB13F8F8,$2BB39898,$22331111,$D2BB6969,$A970D9D9,$07898E8E,$33A79494,
+    $2DB69B9B,$3C221E1E,$15928787,$C920E9E9,$8749CECE,$AAFF5555,$50782828,$A57ADFDF,
+    $038F8C8C,$59F8A1A1,$09808989,$1A170D0D,$65DABFBF,$D731E6E6,$84C64242,$D0B86868,
+    $82C34141,$29B09999,$5A772D2D,$1E110F0F,$7BCBB0B0,$A8FC5454,$6DD6BBBB,$2C3A1616),
+   ($50A7F451,$5365417E,$C3A4171A,$965E273A,$CB6BAB3B,$F1459D1F,$AB58FAAC,$9303E34B,
+    $55FA3020,$F66D76AD,$9176CC88,$254C02F5,$FCD7E54F,$D7CB2AC5,$80443526,$8FA362B5,
+    $495AB1DE,$671BBA25,$980EEA45,$E1C0FE5D,$02752FC3,$12F04C81,$A397468D,$C6F9D36B,
+    $E75F8F03,$959C9215,$EB7A6DBF,$DA595295,$2D83BED4,$D3217458,$2969E049,$44C8C98E,
+    $6A89C275,$78798EF4,$6B3E5899,$DD71B927,$B64FE1BE,$17AD88F0,$66AC20C9,$B43ACE7D,
+    $184ADF63,$82311AE5,$60335197,$457F5362,$E07764B1,$84AE6BBB,$1CA081FE,$942B08F9,
+    $58684870,$19FD458F,$876CDE94,$B7F87B52,$23D373AB,$E2024B72,$578F1FE3,$2AAB5566,
+    $0728EBB2,$03C2B52F,$9A7BC586,$A50837D3,$F2872830,$B2A5BF23,$BA6A0302,$5C8216ED,
+    $2B1CCF8A,$92B479A7,$F0F207F3,$A1E2694E,$CDF4DA65,$D5BE0506,$1F6234D1,$8AFEA6C4,
+    $9D532E34,$A055F3A2,$32E18A05,$75EBF6A4,$39EC830B,$AAEF6040,$069F715E,$51106EBD,
+    $F98A213E,$3D06DD96,$AE053EDD,$46BDE64D,$B58D5491,$055DC471,$6FD40604,$FF155060,
+    $24FB9819,$97E9BDD6,$CC434089,$779ED967,$BD42E8B0,$888B8907,$385B19E7,$DBEEC879,
+    $470A7CA1,$E90F427C,$C91E84F8,$00000000,$83868009,$48ED2B32,$AC70111E,$4E725A6C,
+    $FBFF0EFD,$5638850F,$1ED5AE3D,$27392D36,$64D90F0A,$21A65C68,$D1545B9B,$3A2E3624,
+    $B1670A0C,$0FE75793,$D296EEB4,$9E919B1B,$4FC5C080,$A220DC61,$694B775A,$161A121C,
+    $0ABA93E2,$E52AA0C0,$43E0223C,$1D171B12,$0B0D090E,$ADC78BF2,$B9A8B62D,$C8A91E14,
+    $8519F157,$4C0775AF,$BBDD99EE,$FD607FA3,$9F2601F7,$BCF5725C,$C53B6644,$347EFB5B,
+    $7629438B,$DCC623CB,$68FCEDB6,$63F1E4B8,$CADC31D7,$10856342,$40229713,$2011C684,
+    $7D244A85,$F83DBBD2,$1132F9AE,$6DA129C7,$4B2F9E1D,$F330B2DC,$EC52860D,$D0E3C177,
+    $6C16B32B,$99B970A9,$FA489411,$2264E947,$C48CFCA8,$1A3FF0A0,$D82C7D56,$EF903322,
+    $C74E4987,$C1D138D9,$FEA2CA8C,$360BD498,$CF81F5A6,$28DE7AA5,$268EB7DA,$A4BFAD3F,
+    $E49D3A2C,$0D927850,$9BCC5F6A,$62467E54,$C2138DF6,$E8B8D890,$5EF7392E,$F5AFC382,
+    $BE805D9F,$7C93D069,$A92DD56F,$B31225CF,$3B99ACC8,$A77D1810,$6E639CE8,$7BBB3BDB,
+    $097826CD,$F418596E,$01B79AEC,$A89A4F83,$656E95E6,$7EE6FFAA,$08CFBC21,$E6E815EF,
+    $D99BE7BA,$CE366F4A,$D4099FEA,$D67CB029,$AFB2A431,$31233F2A,$3094A5C6,$C066A235,
+    $37BC4E74,$A6CA82FC,$B0D090E0,$15D8A733,$4A9804F1,$F7DAEC41,$0E50CD7F,$2FF69117,
+    $8DD64D76,$4DB0EF43,$544DAACC,$DF0496E4,$E3B5D19E,$1B886A4C,$B81F2CC1,$7F516546,
+    $04EA5E9D,$5D358C01,$737487FA,$2E410BFB,$5A1D67B3,$52D2DB92,$335610E9,$1347D66D,
+    $8C61D79A,$7A0CA137,$8E14F859,$893C13EB,$EE27A9CE,$35C961B7,$EDE51CE1,$3CB1477A,
+    $59DFD29C,$3F73F255,$79CE1418,$BF37C773,$EACDF753,$5BAAFD5F,$146F3DDF,$86DB4478,
+    $81F3AFCA,$3EC468B9,$2C342438,$5F40A3C2,$72C31D16,$0C25E2BC,$8B493C28,$41950DFF,
+    $7101A839,$DEB30C08,$9CE4B4D8,$90C15664,$6184CB7B,$70B632D5,$745C6C48,$4257B8D0),
+   ($A7F45150,$65417E53,$A4171AC3,$5E273A96,$6BAB3BCB,$459D1FF1,$58FAACAB,$03E34B93,
+    $FA302055,$6D76ADF6,$76CC8891,$4C02F525,$D7E54FFC,$CB2AC5D7,$44352680,$A362B58F,
+    $5AB1DE49,$1BBA2567,$0EEA4598,$C0FE5DE1,$752FC302,$F04C8112,$97468DA3,$F9D36BC6,
+    $5F8F03E7,$9C921595,$7A6DBFEB,$595295DA,$83BED42D,$217458D3,$69E04929,$C8C98E44,
+    $89C2756A,$798EF478,$3E58996B,$71B927DD,$4FE1BEB6,$AD88F017,$AC20C966,$3ACE7DB4,
+    $4ADF6318,$311AE582,$33519760,$7F536245,$7764B1E0,$AE6BBB84,$A081FE1C,$2B08F994,
+    $68487058,$FD458F19,$6CDE9487,$F87B52B7,$D373AB23,$024B72E2,$8F1FE357,$AB55662A,
+    $28EBB207,$C2B52F03,$7BC5869A,$0837D3A5,$872830F2,$A5BF23B2,$6A0302BA,$8216ED5C,
+    $1CCF8A2B,$B479A792,$F207F3F0,$E2694EA1,$F4DA65CD,$BE0506D5,$6234D11F,$FEA6C48A,
+    $532E349D,$55F3A2A0,$E18A0532,$EBF6A475,$EC830B39,$EF6040AA,$9F715E06,$106EBD51,
+    $8A213EF9,$06DD963D,$053EDDAE,$BDE64D46,$8D5491B5,$5DC47105,$D406046F,$155060FF,
+    $FB981924,$E9BDD697,$434089CC,$9ED96777,$42E8B0BD,$8B890788,$5B19E738,$EEC879DB,
+    $0A7CA147,$0F427CE9,$1E84F8C9,$00000000,$86800983,$ED2B3248,$70111EAC,$725A6C4E,
+    $FF0EFDFB,$38850F56,$D5AE3D1E,$392D3627,$D90F0A64,$A65C6821,$545B9BD1,$2E36243A,
+    $670A0CB1,$E757930F,$96EEB4D2,$919B1B9E,$C5C0804F,$20DC61A2,$4B775A69,$1A121C16,
+    $BA93E20A,$2AA0C0E5,$E0223C43,$171B121D,$0D090E0B,$C78BF2AD,$A8B62DB9,$A91E14C8,
+    $19F15785,$0775AF4C,$DD99EEBB,$607FA3FD,$2601F79F,$F5725CBC,$3B6644C5,$7EFB5B34,
+    $29438B76,$C623CBDC,$FCEDB668,$F1E4B863,$DC31D7CA,$85634210,$22971340,$11C68420,
+    $244A857D,$3DBBD2F8,$32F9AE11,$A129C76D,$2F9E1D4B,$30B2DCF3,$52860DEC,$E3C177D0,
+    $16B32B6C,$B970A999,$489411FA,$64E94722,$8CFCA8C4,$3FF0A01A,$2C7D56D8,$903322EF,
+    $4E4987C7,$D138D9C1,$A2CA8CFE,$0BD49836,$81F5A6CF,$DE7AA528,$8EB7DA26,$BFAD3FA4,
+    $9D3A2CE4,$9278500D,$CC5F6A9B,$467E5462,$138DF6C2,$B8D890E8,$F7392E5E,$AFC382F5,
+    $805D9FBE,$93D0697C,$2DD56FA9,$1225CFB3,$99ACC83B,$7D1810A7,$639CE86E,$BB3BDB7B,
+    $7826CD09,$18596EF4,$B79AEC01,$9A4F83A8,$6E95E665,$E6FFAA7E,$CFBC2108,$E815EFE6,
+    $9BE7BAD9,$366F4ACE,$099FEAD4,$7CB029D6,$B2A431AF,$233F2A31,$94A5C630,$66A235C0,
+    $BC4E7437,$CA82FCA6,$D090E0B0,$D8A73315,$9804F14A,$DAEC41F7,$50CD7F0E,$F691172F,
+    $D64D768D,$B0EF434D,$4DAACC54,$0496E4DF,$B5D19EE3,$886A4C1B,$1F2CC1B8,$5165467F,
+    $EA5E9D04,$358C015D,$7487FA73,$410BFB2E,$1D67B35A,$D2DB9252,$5610E933,$47D66D13,
+    $61D79A8C,$0CA1377A,$14F8598E,$3C13EB89,$27A9CEEE,$C961B735,$E51CE1ED,$B1477A3C,
+    $DFD29C59,$73F2553F,$CE141879,$37C773BF,$CDF753EA,$AAFD5F5B,$6F3DDF14,$DB447886,
+    $F3AFCA81,$C468B93E,$3424382C,$40A3C25F,$C31D1672,$25E2BC0C,$493C288B,$950DFF41,
+    $01A83971,$B30C08DE,$E4B4D89C,$C1566490,$84CB7B61,$B632D570,$5C6C4874,$57B8D042),
+   ($F45150A7,$417E5365,$171AC3A4,$273A965E,$AB3BCB6B,$9D1FF145,$FAACAB58,$E34B9303,
+    $302055FA,$76ADF66D,$CC889176,$02F5254C,$E54FFCD7,$2AC5D7CB,$35268044,$62B58FA3,
+    $B1DE495A,$BA25671B,$EA45980E,$FE5DE1C0,$2FC30275,$4C8112F0,$468DA397,$D36BC6F9,
+    $8F03E75F,$9215959C,$6DBFEB7A,$5295DA59,$BED42D83,$7458D321,$E0492969,$C98E44C8,
+    $C2756A89,$8EF47879,$58996B3E,$B927DD71,$E1BEB64F,$88F017AD,$20C966AC,$CE7DB43A,
+    $DF63184A,$1AE58231,$51976033,$5362457F,$64B1E077,$6BBB84AE,$81FE1CA0,$08F9942B,
+    $48705868,$458F19FD,$DE94876C,$7B52B7F8,$73AB23D3,$4B72E202,$1FE3578F,$55662AAB,
+    $EBB20728,$B52F03C2,$C5869A7B,$37D3A508,$2830F287,$BF23B2A5,$0302BA6A,$16ED5C82,
+    $CF8A2B1C,$79A792B4,$07F3F0F2,$694EA1E2,$DA65CDF4,$0506D5BE,$34D11F62,$A6C48AFE,
+    $2E349D53,$F3A2A055,$8A0532E1,$F6A475EB,$830B39EC,$6040AAEF,$715E069F,$6EBD5110,
+    $213EF98A,$DD963D06,$3EDDAE05,$E64D46BD,$5491B58D,$C471055D,$06046FD4,$5060FF15,
+    $981924FB,$BDD697E9,$4089CC43,$D967779E,$E8B0BD42,$8907888B,$19E7385B,$C879DBEE,
+    $7CA1470A,$427CE90F,$84F8C91E,$00000000,$80098386,$2B3248ED,$111EAC70,$5A6C4E72,
+    $0EFDFBFF,$850F5638,$AE3D1ED5,$2D362739,$0F0A64D9,$5C6821A6,$5B9BD154,$36243A2E,
+    $0A0CB167,$57930FE7,$EEB4D296,$9B1B9E91,$C0804FC5,$DC61A220,$775A694B,$121C161A,
+    $93E20ABA,$A0C0E52A,$223C43E0,$1B121D17,$090E0B0D,$8BF2ADC7,$B62DB9A8,$1E14C8A9,
+    $F1578519,$75AF4C07,$99EEBBDD,$7FA3FD60,$01F79F26,$725CBCF5,$6644C53B,$FB5B347E,
+    $438B7629,$23CBDCC6,$EDB668FC,$E4B863F1,$31D7CADC,$63421085,$97134022,$C6842011,
+    $4A857D24,$BBD2F83D,$F9AE1132,$29C76DA1,$9E1D4B2F,$B2DCF330,$860DEC52,$C177D0E3,
+    $B32B6C16,$70A999B9,$9411FA48,$E9472264,$FCA8C48C,$F0A01A3F,$7D56D82C,$3322EF90,
+    $4987C74E,$38D9C1D1,$CA8CFEA2,$D498360B,$F5A6CF81,$7AA528DE,$B7DA268E,$AD3FA4BF,
+    $3A2CE49D,$78500D92,$5F6A9BCC,$7E546246,$8DF6C213,$D890E8B8,$392E5EF7,$C382F5AF,
+    $5D9FBE80,$D0697C93,$D56FA92D,$25CFB312,$ACC83B99,$1810A77D,$9CE86E63,$3BDB7BBB,
+    $26CD0978,$596EF418,$9AEC01B7,$4F83A89A,$95E6656E,$FFAA7EE6,$BC2108CF,$15EFE6E8,
+    $E7BAD99B,$6F4ACE36,$9FEAD409,$B029D67C,$A431AFB2,$3F2A3123,$A5C63094,$A235C066,
+    $4E7437BC,$82FCA6CA,$90E0B0D0,$A73315D8,$04F14A98,$EC41F7DA,$CD7F0E50,$91172FF6,
+    $4D768DD6,$EF434DB0,$AACC544D,$96E4DF04,$D19EE3B5,$6A4C1B88,$2CC1B81F,$65467F51,
+    $5E9D04EA,$8C015D35,$87FA7374,$0BFB2E41,$67B35A1D,$DB9252D2,$10E93356,$D66D1347,
+    $D79A8C61,$A1377A0C,$F8598E14,$13EB893C,$A9CEEE27,$61B735C9,$1CE1EDE5,$477A3CB1,
+    $D29C59DF,$F2553F73,$141879CE,$C773BF37,$F753EACD,$FD5F5BAA,$3DDF146F,$447886DB,
+    $AFCA81F3,$68B93EC4,$24382C34,$A3C25F40,$1D1672C3,$E2BC0C25,$3C288B49,$0DFF4195,
+    $A8397101,$0C08DEB3,$B4D89CE4,$566490C1,$CB7B6184,$32D570B6,$6C48745C,$B8D04257),
+   ($5150A7F4,$7E536541,$1AC3A417,$3A965E27,$3BCB6BAB,$1FF1459D,$ACAB58FA,$4B9303E3,
+    $2055FA30,$ADF66D76,$889176CC,$F5254C02,$4FFCD7E5,$C5D7CB2A,$26804435,$B58FA362,
+    $DE495AB1,$25671BBA,$45980EEA,$5DE1C0FE,$C302752F,$8112F04C,$8DA39746,$6BC6F9D3,
+    $03E75F8F,$15959C92,$BFEB7A6D,$95DA5952,$D42D83BE,$58D32174,$492969E0,$8E44C8C9,
+    $756A89C2,$F478798E,$996B3E58,$27DD71B9,$BEB64FE1,$F017AD88,$C966AC20,$7DB43ACE,
+    $63184ADF,$E582311A,$97603351,$62457F53,$B1E07764,$BB84AE6B,$FE1CA081,$F9942B08,
+    $70586848,$8F19FD45,$94876CDE,$52B7F87B,$AB23D373,$72E2024B,$E3578F1F,$662AAB55,
+    $B20728EB,$2F03C2B5,$869A7BC5,$D3A50837,$30F28728,$23B2A5BF,$02BA6A03,$ED5C8216,
+    $8A2B1CCF,$A792B479,$F3F0F207,$4EA1E269,$65CDF4DA,$06D5BE05,$D11F6234,$C48AFEA6,
+    $349D532E,$A2A055F3,$0532E18A,$A475EBF6,$0B39EC83,$40AAEF60,$5E069F71,$BD51106E,
+    $3EF98A21,$963D06DD,$DDAE053E,$4D46BDE6,$91B58D54,$71055DC4,$046FD406,$60FF1550,
+    $1924FB98,$D697E9BD,$89CC4340,$67779ED9,$B0BD42E8,$07888B89,$E7385B19,$79DBEEC8,
+    $A1470A7C,$7CE90F42,$F8C91E84,$00000000,$09838680,$3248ED2B,$1EAC7011,$6C4E725A,
+    $FDFBFF0E,$0F563885,$3D1ED5AE,$3627392D,$0A64D90F,$6821A65C,$9BD1545B,$243A2E36,
+    $0CB1670A,$930FE757,$B4D296EE,$1B9E919B,$804FC5C0,$61A220DC,$5A694B77,$1C161A12,
+    $E20ABA93,$C0E52AA0,$3C43E022,$121D171B,$0E0B0D09,$F2ADC78B,$2DB9A8B6,$14C8A91E,
+    $578519F1,$AF4C0775,$EEBBDD99,$A3FD607F,$F79F2601,$5CBCF572,$44C53B66,$5B347EFB,
+    $8B762943,$CBDCC623,$B668FCED,$B863F1E4,$D7CADC31,$42108563,$13402297,$842011C6,
+    $857D244A,$D2F83DBB,$AE1132F9,$C76DA129,$1D4B2F9E,$DCF330B2,$0DEC5286,$77D0E3C1,
+    $2B6C16B3,$A999B970,$11FA4894,$472264E9,$A8C48CFC,$A01A3FF0,$56D82C7D,$22EF9033,
+    $87C74E49,$D9C1D138,$8CFEA2CA,$98360BD4,$A6CF81F5,$A528DE7A,$DA268EB7,$3FA4BFAD,
+    $2CE49D3A,$500D9278,$6A9BCC5F,$5462467E,$F6C2138D,$90E8B8D8,$2E5EF739,$82F5AFC3,
+    $9FBE805D,$697C93D0,$6FA92DD5,$CFB31225,$C83B99AC,$10A77D18,$E86E639C,$DB7BBB3B,
+    $CD097826,$6EF41859,$EC01B79A,$83A89A4F,$E6656E95,$AA7EE6FF,$2108CFBC,$EFE6E815,
+    $BAD99BE7,$4ACE366F,$EAD4099F,$29D67CB0,$31AFB2A4,$2A31233F,$C63094A5,$35C066A2,
+    $7437BC4E,$FCA6CA82,$E0B0D090,$3315D8A7,$F14A9804,$41F7DAEC,$7F0E50CD,$172FF691,
+    $768DD64D,$434DB0EF,$CC544DAA,$E4DF0496,$9EE3B5D1,$4C1B886A,$C1B81F2C,$467F5165,
+    $9D04EA5E,$015D358C,$FA737487,$FB2E410B,$B35A1D67,$9252D2DB,$E9335610,$6D1347D6,
+    $9A8C61D7,$377A0CA1,$598E14F8,$EB893C13,$CEEE27A9,$B735C961,$E1EDE51C,$7A3CB147,
+    $9C59DFD2,$553F73F2,$1879CE14,$73BF37C7,$53EACDF7,$5F5BAAFD,$DF146F3D,$7886DB44,
+    $CA81F3AF,$B93EC468,$382C3424,$C25F40A3,$1672C31D,$BC0C25E2,$288B493C,$FF41950D,
+    $397101A8,$08DEB30C,$D89CE4B4,$6490C156,$7B6184CB,$D570B632,$48745C6C,$D04257B8));
+
+  Rijndael_Key: array[0..255] of LongWord = (
+    $00000000,$0B0D090E,$161A121C,$1D171B12,$2C342438,$27392D36,$3A2E3624,$31233F2A,
+    $58684870,$5365417E,$4E725A6C,$457F5362,$745C6C48,$7F516546,$62467E54,$694B775A,
+    $B0D090E0,$BBDD99EE,$A6CA82FC,$ADC78BF2,$9CE4B4D8,$97E9BDD6,$8AFEA6C4,$81F3AFCA,
+    $E8B8D890,$E3B5D19E,$FEA2CA8C,$F5AFC382,$C48CFCA8,$CF81F5A6,$D296EEB4,$D99BE7BA,
+    $7BBB3BDB,$70B632D5,$6DA129C7,$66AC20C9,$578F1FE3,$5C8216ED,$41950DFF,$4A9804F1,
+    $23D373AB,$28DE7AA5,$35C961B7,$3EC468B9,$0FE75793,$04EA5E9D,$19FD458F,$12F04C81,
+    $CB6BAB3B,$C066A235,$DD71B927,$D67CB029,$E75F8F03,$EC52860D,$F1459D1F,$FA489411,
+    $9303E34B,$980EEA45,$8519F157,$8E14F859,$BF37C773,$B43ACE7D,$A92DD56F,$A220DC61,
+    $F66D76AD,$FD607FA3,$E07764B1,$EB7A6DBF,$DA595295,$D1545B9B,$CC434089,$C74E4987,
+    $AE053EDD,$A50837D3,$B81F2CC1,$B31225CF,$82311AE5,$893C13EB,$942B08F9,$9F2601F7,
+    $46BDE64D,$4DB0EF43,$50A7F451,$5BAAFD5F,$6A89C275,$6184CB7B,$7C93D069,$779ED967,
+    $1ED5AE3D,$15D8A733,$08CFBC21,$03C2B52F,$32E18A05,$39EC830B,$24FB9819,$2FF69117,
+    $8DD64D76,$86DB4478,$9BCC5F6A,$90C15664,$A1E2694E,$AAEF6040,$B7F87B52,$BCF5725C,
+    $D5BE0506,$DEB30C08,$C3A4171A,$C8A91E14,$F98A213E,$F2872830,$EF903322,$E49D3A2C,
+    $3D06DD96,$360BD498,$2B1CCF8A,$2011C684,$1132F9AE,$1A3FF0A0,$0728EBB2,$0C25E2BC,
+    $656E95E6,$6E639CE8,$737487FA,$78798EF4,$495AB1DE,$4257B8D0,$5F40A3C2,$544DAACC,
+    $F7DAEC41,$FCD7E54F,$E1C0FE5D,$EACDF753,$DBEEC879,$D0E3C177,$CDF4DA65,$C6F9D36B,
+    $AFB2A431,$A4BFAD3F,$B9A8B62D,$B2A5BF23,$83868009,$888B8907,$959C9215,$9E919B1B,
+    $470A7CA1,$4C0775AF,$51106EBD,$5A1D67B3,$6B3E5899,$60335197,$7D244A85,$7629438B,
+    $1F6234D1,$146F3DDF,$097826CD,$02752FC3,$335610E9,$385B19E7,$254C02F5,$2E410BFB,
+    $8C61D79A,$876CDE94,$9A7BC586,$9176CC88,$A055F3A2,$AB58FAAC,$B64FE1BE,$BD42E8B0,
+    $D4099FEA,$DF0496E4,$C2138DF6,$C91E84F8,$F83DBBD2,$F330B2DC,$EE27A9CE,$E52AA0C0,
+    $3CB1477A,$37BC4E74,$2AAB5566,$21A65C68,$10856342,$1B886A4C,$069F715E,$0D927850,
+    $64D90F0A,$6FD40604,$72C31D16,$79CE1418,$48ED2B32,$43E0223C,$5EF7392E,$55FA3020,
+    $01B79AEC,$0ABA93E2,$17AD88F0,$1CA081FE,$2D83BED4,$268EB7DA,$3B99ACC8,$3094A5C6,
+    $59DFD29C,$52D2DB92,$4FC5C080,$44C8C98E,$75EBF6A4,$7EE6FFAA,$63F1E4B8,$68FCEDB6,
+    $B1670A0C,$BA6A0302,$A77D1810,$AC70111E,$9D532E34,$965E273A,$8B493C28,$80443526,
+    $E90F427C,$E2024B72,$FF155060,$F418596E,$C53B6644,$CE366F4A,$D3217458,$D82C7D56,
+    $7A0CA137,$7101A839,$6C16B32B,$671BBA25,$5638850F,$5D358C01,$40229713,$4B2F9E1D,
+    $2264E947,$2969E049,$347EFB5B,$3F73F255,$0E50CD7F,$055DC471,$184ADF63,$1347D66D,
+    $CADC31D7,$C1D138D9,$DCC623CB,$D7CB2AC5,$E6E815EF,$EDE51CE1,$F0F207F3,$FBFF0EFD,
+    $92B479A7,$99B970A9,$84AE6BBB,$8FA362B5,$BE805D9F,$B58D5491,$A89A4F83,$A397468D);
+
+  Skipjack_Data: array[0..255] of Byte = (
+    $A3,$D7,$09,$83,$F8,$48,$F6,$F4,$B3,$21,$15,$78,$99,$B1,$AF,$F9,
+    $E7,$2D,$4D,$8A,$CE,$4C,$CA,$2E,$52,$95,$D9,$1E,$4E,$38,$44,$28,
+    $0A,$DF,$02,$A0,$17,$F1,$60,$68,$12,$B7,$7A,$C3,$E9,$FA,$3D,$53,
+    $96,$84,$6B,$BA,$F2,$63,$9A,$19,$7C,$AE,$E5,$F5,$F7,$16,$6A,$A2,
+    $39,$B6,$7B,$0F,$C1,$93,$81,$1B,$EE,$B4,$1A,$EA,$D0,$91,$2F,$B8,
+    $55,$B9,$DA,$85,$3F,$41,$BF,$E0,$5A,$58,$80,$5F,$66,$0B,$D8,$90,
+    $35,$D5,$C0,$A7,$33,$06,$65,$69,$45,$00,$94,$56,$6D,$98,$9B,$76,
+    $97,$FC,$B2,$C2,$B0,$FE,$DB,$20,$E1,$EB,$D6,$E4,$DD,$47,$4A,$1D,
+    $42,$ED,$9E,$6E,$49,$3C,$CD,$43,$27,$D2,$07,$D4,$DE,$C7,$67,$18,
+    $89,$CB,$30,$1F,$8D,$C6,$8F,$AA,$C8,$74,$DC,$C9,$5D,$5C,$31,$A4,
+    $70,$88,$61,$2C,$9F,$0D,$2B,$87,$50,$82,$54,$64,$26,$7D,$03,$40,
+    $34,$4B,$1C,$73,$D1,$C4,$FD,$3B,$CC,$FB,$7F,$AB,$E6,$3E,$5B,$A5,
+    $AD,$04,$23,$9C,$14,$51,$22,$F0,$29,$79,$71,$7E,$FF,$8C,$0E,$E2,
+    $0C,$EF,$BC,$72,$75,$6F,$37,$A1,$EC,$D3,$8E,$62,$8B,$86,$10,$E8,
+    $08,$77,$11,$BE,$92,$4F,$24,$C5,$32,$36,$9D,$CF,$F3,$A6,$BB,$AC,
+    $5E,$6C,$A9,$13,$57,$25,$B5,$E3,$BD,$A8,$3A,$01,$05,$59,$2A,$46);
+
+  DES_PC1: array[0..55] of Byte =
+   (56, 48, 40, 32, 24, 16,  8,  0, 57, 49, 41, 33, 25, 17,
+     9,  1, 58, 50, 42, 34, 26,	18, 10,  2, 59, 51, 43, 35,
+    62, 54, 46, 38, 30, 22, 14,	 6, 61, 53, 45, 37, 29, 21,
+    13,  5, 60, 52, 44, 36, 28,	20, 12,  4, 27, 19, 11,  3);
+
+  DES_PC2: array[0..47] of Byte =
+   (13, 16, 10, 23,  0,  4,  2, 27, 14,  5, 20,  9,
+    22, 18, 11,  3, 25,  7, 15,  6, 26, 19, 12,  1,
+    40, 51, 30, 36, 46, 54, 29, 39, 50, 44, 32, 47,
+    43, 48, 38, 55, 33, 52, 45, 41, 49, 35, 28, 31);
+
+  DES_Data: array[0..7, 0..63] of LongWord = (
+   ($00200000,$04200002,$04000802,$00000000,$00000800,$04000802,$00200802,$04200800,
+    $04200802,$00200000,$00000000,$04000002,$00000002,$04000000,$04200002,$00000802,
+    $04000800,$00200802,$00200002,$04000800,$04000002,$04200000,$04200800,$00200002,
+    $04200000,$00000800,$00000802,$04200802,$00200800,$00000002,$04000000,$00200800,
+    $04000000,$00200800,$00200000,$04000802,$04000802,$04200002,$04200002,$00000002,
+    $00200002,$04000000,$04000800,$00200000,$04200800,$00000802,$00200802,$04200800,
+    $00000802,$04000002,$04200802,$04200000,$00200800,$00000000,$00000002,$04200802,
+    $00000000,$00200802,$04200000,$00000800,$04000002,$04000800,$00000800,$00200002),
+   ($00000100,$02080100,$02080000,$42000100,$00080000,$00000100,$40000000,$02080000,
+    $40080100,$00080000,$02000100,$40080100,$42000100,$42080000,$00080100,$40000000,
+    $02000000,$40080000,$40080000,$00000000,$40000100,$42080100,$42080100,$02000100,
+    $42080000,$40000100,$00000000,$42000000,$02080100,$02000000,$42000000,$00080100,
+    $00080000,$42000100,$00000100,$02000000,$40000000,$02080000,$42000100,$40080100,
+    $02000100,$40000000,$42080000,$02080100,$40080100,$00000100,$02000000,$42080000,
+    $42080100,$00080100,$42000000,$42080100,$02080000,$00000000,$40080000,$42000000,
+    $00080100,$02000100,$40000100,$00080000,$00000000,$40080000,$02080100,$40000100),
+   ($00000208,$08020200,$00000000,$08020008,$08000200,$00000000,$00020208,$08000200,
+    $00020008,$08000008,$08000008,$00020000,$08020208,$00020008,$08020000,$00000208,
+    $08000000,$00000008,$08020200,$00000200,$00020200,$08020000,$08020008,$00020208,
+    $08000208,$00020200,$00020000,$08000208,$00000008,$08020208,$00000200,$08000000,
+    $08020200,$08000000,$00020008,$00000208,$00020000,$08020200,$08000200,$00000000,
+    $00000200,$00020008,$08020208,$08000200,$08000008,$00000200,$00000000,$08020008,
+    $08000208,$00020000,$08000000,$08020208,$00000008,$00020208,$00020200,$08000008,
+    $08020000,$08000208,$00000208,$08020000,$00020208,$00000008,$08020008,$00020200),
+   ($01010400,$00000000,$00010000,$01010404,$01010004,$00010404,$00000004,$00010000,
+    $00000400,$01010400,$01010404,$00000400,$01000404,$01010004,$01000000,$00000004,
+    $00000404,$01000400,$01000400,$00010400,$00010400,$01010000,$01010000,$01000404,
+    $00010004,$01000004,$01000004,$00010004,$00000000,$00000404,$00010404,$01000000,
+    $00010000,$01010404,$00000004,$01010000,$01010400,$01000000,$01000000,$00000400,
+    $01010004,$00010000,$00010400,$01000004,$00000400,$00000004,$01000404,$00010404,
+    $01010404,$00010004,$01010000,$01000404,$01000004,$00000404,$00010404,$01010400,
+    $00000404,$01000400,$01000400,$00000000,$00010004,$00010400,$00000000,$01010004),
+   ($10001040,$00001000,$00040000,$10041040,$10000000,$10001040,$00000040,$10000000,
+    $00040040,$10040000,$10041040,$00041000,$10041000,$00041040,$00001000,$00000040,
+    $10040000,$10000040,$10001000,$00001040,$00041000,$00040040,$10040040,$10041000,
+    $00001040,$00000000,$00000000,$10040040,$10000040,$10001000,$00041040,$00040000,
+    $00041040,$00040000,$10041000,$00001000,$00000040,$10040040,$00001000,$00041040,
+    $10001000,$00000040,$10000040,$10040000,$10040040,$10000000,$00040000,$10001040,
+    $00000000,$10041040,$00040040,$10000040,$10040000,$10001000,$10001040,$00000000,
+    $10041040,$00041000,$00041000,$00001040,$00001040,$00040040,$10000000,$10041000),
+   ($20000010,$20400000,$00004000,$20404010,$20400000,$00000010,$20404010,$00400000,
+    $20004000,$00404010,$00400000,$20000010,$00400010,$20004000,$20000000,$00004010,
+    $00000000,$00400010,$20004010,$00004000,$00404000,$20004010,$00000010,$20400010,
+    $20400010,$00000000,$00404010,$20404000,$00004010,$00404000,$20404000,$20000000,
+    $20004000,$00000010,$20400010,$00404000,$20404010,$00400000,$00004010,$20000010,
+    $00400000,$20004000,$20000000,$00004010,$20000010,$20404010,$00404000,$20400000,
+    $00404010,$20404000,$00000000,$20400010,$00000010,$00004000,$20400000,$00404010,
+    $00004000,$00400010,$20004010,$00000000,$20404000,$20000000,$00400010,$20004010),
+   ($00802001,$00002081,$00002081,$00000080,$00802080,$00800081,$00800001,$00002001,
+    $00000000,$00802000,$00802000,$00802081,$00000081,$00000000,$00800080,$00800001,
+    $00000001,$00002000,$00800000,$00802001,$00000080,$00800000,$00002001,$00002080,
+    $00800081,$00000001,$00002080,$00800080,$00002000,$00802080,$00802081,$00000081,
+    $00800080,$00800001,$00802000,$00802081,$00000081,$00000000,$00000000,$00802000,
+    $00002080,$00800080,$00800081,$00000001,$00802001,$00002081,$00002081,$00000080,
+    $00802081,$00000081,$00000001,$00002000,$00800001,$00002001,$00802080,$00800081,
+    $00002001,$00002080,$00800000,$00802001,$00000080,$00800000,$00002000,$00802080),
+   ($80108020,$80008000,$00008000,$00108020,$00100000,$00000020,$80100020,$80008020,
+    $80000020,$80108020,$80108000,$80000000,$80008000,$00100000,$00000020,$80100020,
+    $00108000,$00100020,$80008020,$00000000,$80000000,$00008000,$00108020,$80100000,
+    $00100020,$80000020,$00000000,$00108000,$00008020,$80108000,$80100000,$00008020,
+    $00000000,$00108020,$80100020,$00100000,$80008020,$80100000,$80108000,$00008000,
+    $80100000,$80008000,$00000020,$80108020,$00108020,$00000020,$00008000,$80000000,
+    $00008020,$80108000,$00100000,$80000020,$00100020,$80008020,$80000020,$00100020,
+    $00108000,$00000000,$80008000,$00008020,$80000000,$80100020,$80108020,$00108000));
+
+  NewDES_Data: array[0..255] of Byte = (
+    32,137,239,188,102,125,221, 72,212, 68, 81, 37, 86,237,147,149,
+    70,229, 17,124,115,207, 33, 20,122,143, 25,215, 51,183,138,142,
+   146,211,110,173,  1,228,189, 14,103, 78,162, 36,253,167,116,255,
+   158, 45,185, 50, 98,168,250,235, 54,141,195,247,240, 63,148,  2,
+   224,169,214,180, 62, 22,117,108, 19,172,161,159,160, 47, 43,171,
+   194,175,178, 56,196,112, 23,220, 89, 21,164,130,157,  8, 85,251,
+   216, 44, 94,179,226, 38, 90,119, 40,202, 34,206, 35, 69,231,246,
+    29,109, 74, 71,176,  6, 60,145, 65, 13, 77,151, 12,127, 95,199,
+    57,101,  5,232,150,210,129, 24,181, 10,121,187, 48,193,139,252,
+   219, 64, 88,233, 96,128, 80, 53,191,144,218, 11,106,132,155,104,
+    91,136, 31, 42,243, 66,126,135, 30, 26, 87,186,182,154,242,123,
+    82,166,208, 39,152,190,113,205,114,105,225, 84, 73,163, 99,111,
+   204, 61,200,217,170, 15,198, 28,192,254,134,234,222,  7,236,248,
+   201, 41,177,156, 92,131, 67,249,245,184,203,  9,241,  0, 27, 46,
+   133,174, 75, 18, 93,209,100,120, 76,213, 16, 83,  4,107,140, 52,
+   58, 55,  3,244, 97,197,238,227,118, 49, 79,230,223,165,153, 59);
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.bdsproj
new file mode 100644
index 0000000..24569b2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.bdsproj	
@@ -0,0 +1,181 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{0FE2BA34-A199-4666-87ED-E47A2B9D252C}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_RODX_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">0</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects SDK - RODXSock Library</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\;..\..\Dcu\D10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String"></Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">4</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">404</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+	<ModelSupport>False</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.cfg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.cfg
new file mode 100644
index 0000000..74d82bb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.cfg	
@@ -0,0 +1,52 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\..\Dcu\D10"
+-LE"..\..\Dcu\D10"
+-LN"..\..\Dcu\D10"
+-U"..\;..\..\Dcu\D10"
+-O"..\;..\..\Dcu\D10"
+-I"..\;..\..\Dcu\D10"
+-R"..\;..\..\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.dpk
new file mode 100644
index 0000000..0e7beb1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.dpk	
@@ -0,0 +1,46 @@
+package RemObjects_RODX_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - RODXSock Library'}
+{$IMPLICITBUILD OFF}
+{%File 'RemObjects.inc'}
+
+requires
+  vcl,
+  rtl;
+
+contains
+  uRODXServerCore in 'uRODXServerCore.pas',
+  uRODXSessionTracker in 'uRODXSessionTracker.pas',
+  uRODXSock in 'uRODXSock.pas',
+  uRODXSockClient in 'uRODXSockClient.pas',
+  uRODXSocket in 'uRODXSocket.pas',
+  uRODXString in 'uRODXString.pas',
+  uRODXHTTPHeaderTools in 'uRODXHTTPHeaderTools.pas',
+  uRODXHTTPServerCore in 'uRODXHTTPServerCore.pas',
+  uRODXISAPI in 'uRODXISAPI.pas',
+  uRODXISAPIFilter in 'uRODXISAPIFilter.pas',
+  uRODXSecurity in 'uRODXSecurity.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.res
new file mode 100644
index 0000000..fe0f936
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D10.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.dpk
new file mode 100644
index 0000000..038776a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.dpk	
@@ -0,0 +1,46 @@
+package RemObjects_RODX_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - RODXSock Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  vcl,
+  rtl;
+
+contains
+  uRODXServerCore in 'uRODXServerCore.pas',
+  uRODXSessionTracker in 'uRODXSessionTracker.pas',
+  uRODXSock in 'uRODXSock.pas',
+  uRODXSockClient in 'uRODXSockClient.pas',
+  uRODXSocket in 'uRODXSocket.pas',
+  uRODXString in 'uRODXString.pas',
+  uRODXHTTPHeaderTools in 'uRODXHTTPHeaderTools.pas',
+  uRODXHTTPServerCore in 'uRODXHTTPServerCore.pas',
+  uRODXISAPI in 'uRODXISAPI.pas',
+  uRODXISAPIFilter in 'uRODXISAPIFilter.pas',
+  uRODXSecurity in 'uRODXSecurity.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.dproj
new file mode 100644
index 0000000..1cc897d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.dproj	
@@ -0,0 +1,576 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{27e9e5ec-4c40-4f0d-8fcb-942f127195d1}</ProjectGuid>
+    <MainSource>RemObjects_RODX_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_RODX_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\;..\..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\;..\..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\;..\..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\;..\..\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects SDK - RODXSock Library</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemObjects_RODX_D11.dpk</Source></Source><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+    </Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_RODX_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="uRODXHTTPHeaderTools.pas" />
+    <DCCReference Include="uRODXHTTPServerCore.pas" />
+    <DCCReference Include="uRODXISAPI.pas" />
+    <DCCReference Include="uRODXISAPIFilter.pas" />
+    <DCCReference Include="uRODXSecurity.pas" />
+    <DCCReference Include="uRODXServerCore.pas" />
+    <DCCReference Include="uRODXSessionTracker.pas" />
+    <DCCReference Include="uRODXSock.pas" />
+    <DCCReference Include="uRODXSockClient.pas" />
+    <DCCReference Include="uRODXSocket.pas" />
+    <DCCReference Include="uRODXString.pas" />
+    <None Include="RemObjects.inc" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.dpk
new file mode 100644
index 0000000..9e5c5e1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.dpk	
@@ -0,0 +1,45 @@
+package RemObjects_RODX_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - RODXSock Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  vcl,
+  rtl;
+
+contains
+  uRODXServerCore in 'uRODXServerCore.pas',
+  uRODXSessionTracker in 'uRODXSessionTracker.pas',
+  uRODXSock in 'uRODXSock.pas',
+  uRODXSockClient in 'uRODXSockClient.pas',
+  uRODXSocket in 'uRODXSocket.pas',
+  uRODXString in 'uRODXString.pas',
+  uRODXHTTPHeaderTools in 'uRODXHTTPHeaderTools.pas',
+  uRODXHTTPServerCore in 'uRODXHTTPServerCore.pas',
+  uRODXISAPI in 'uRODXISAPI.pas',
+  uRODXISAPIFilter in 'uRODXISAPIFilter.pas',
+  uRODXSecurity in 'uRODXSecurity.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.dproj
new file mode 100644
index 0000000..642b975
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.dproj	
@@ -0,0 +1,111 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{27e9e5ec-4c40-4f0d-8fcb-942f127195d1}</ProjectGuid>
+			<MainSource>RemObjects_RODX_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_RODX_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcpOutput>..\..\Dcu\D12</DCC_DcpOutput>
+			<DCC_DcuOutput>..\..\Dcu\D12</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D12\RemObjects_RODX_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects SDK - RODXSock Library</DCC_Description>
+			<DCC_UnitSearchPath>..\..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_BplOutput>..\..\Dcu\D12</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_RODX_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="uRODXServerCore.pas"/>
+			<DCCReference Include="uRODXSessionTracker.pas"/>
+			<DCCReference Include="uRODXSock.pas"/>
+			<DCCReference Include="uRODXSockClient.pas"/>
+			<DCCReference Include="uRODXSocket.pas"/>
+			<DCCReference Include="uRODXString.pas"/>
+			<DCCReference Include="uRODXHTTPHeaderTools.pas"/>
+			<DCCReference Include="uRODXHTTPServerCore.pas"/>
+			<DCCReference Include="uRODXISAPI.pas"/>
+			<DCCReference Include="uRODXISAPIFilter.pas"/>
+			<DCCReference Include="uRODXSecurity.pas"/>
+			<None Include="RemObjects.inc"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_RODX_D12.dpk</Source>
+					</Source>
+					<Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclbde100.bpl">CodeGear BDE DB Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D12.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.dof
new file mode 100644
index 0000000..77d8281
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.dof	
@@ -0,0 +1,94 @@
+[Compiler]
+A=1
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - RODXSock Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D5
+PackageDLLOutputDir=..\..\Dcu\D5
+PackageDCPOutputDir=..\..\Dcu\D5
+SearchPath=..\..\Dcu\D5
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+[Language]
+ActiveLang=
+ProjectLang=$00000409
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=s:\exe\dcu50
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=l:\Packages
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=l:\Packages
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.dpk
new file mode 100644
index 0000000..60ba7f5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.dpk	
@@ -0,0 +1,45 @@
+package RemObjects_RODX_D5;
+
+{$R *.RES}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - RODXSock Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  Vcl50;
+
+contains
+  uRODXServerCore in 'uRODXServerCore.pas',
+  uRODXSessionTracker in 'uRODXSessionTracker.pas',
+  uRODXSock in 'uRODXSock.pas',
+  uRODXSockClient in 'uRODXSockClient.pas',
+  uRODXSocket in 'uRODXSocket.pas',
+  uRODXString in 'uRODXString.pas',
+  uRODXHTTPHeaderTools in 'uRODXHTTPHeaderTools.pas',
+  uRODXHTTPServerCore in 'uRODXHTTPServerCore.pas',
+  uRODXISAPI in 'uRODXISAPI.pas',
+  uRODXISAPIFilter in 'uRODXISAPIFilter.pas',
+  uRODXSecurity in 'uRODXSecurity.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.res
new file mode 100644
index 0000000..a2de886
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D5.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.dof
new file mode 100644
index 0000000..f7b2069
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.dof	
@@ -0,0 +1,91 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects - RODXSock Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D6
+PackageDLLOutputDir=..\..\Dcu\D6
+PackageDCPOutputDir=..\..\Dcu\D6
+SearchPath=..\..\Dcu\D6
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+L:\Packages\addict3db_d6.bpl=Addict 3.2 for Delphi 6 (DB Aware Components)
+L:\Packages\X255PD60.bpl=TurboPower XMLPartner Professional 2.55 Designtime package - VCL60
+l:\Packages\dclcxLibraryVCLD6.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxEditorsVCLD6.bpl=ExpressEditors Library 4 (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxGridUtilsVCLD6.bpl=ExpressQuantumGrid 4 Utils (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxGridVCLD6.bpl=ExpressQuantumGrid 4 (VCL Edition) by Developer Express Inc.
+L:\Packages\dclcxSpreadSheetVCLD6.bpl=ExpressSpreadSheet (VCL Edition) by Developer Express Inc.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.dpk
new file mode 100644
index 0000000..eb4b9de
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.dpk	
@@ -0,0 +1,47 @@
+package RemObjects_RODX_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - RODXSock Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  vcl,
+  rtl;
+
+{%File '..\RemObjects.inc'}
+
+contains
+  uRODXServerCore in 'uRODXServerCore.pas',
+  uRODXSessionTracker in 'uRODXSessionTracker.pas',
+  uRODXSock in 'uRODXSock.pas',
+  uRODXSockClient in 'uRODXSockClient.pas',
+  uRODXSocket in 'uRODXSocket.pas',
+  uRODXString in 'uRODXString.pas',
+  uRODXHTTPHeaderTools in 'uRODXHTTPHeaderTools.pas',
+  uRODXHTTPServerCore in 'uRODXHTTPServerCore.pas',
+  uRODXISAPI in 'uRODXISAPI.pas',
+  uRODXISAPIFilter in 'uRODXISAPIFilter.pas',
+  uRODXSecurity in 'uRODXSecurity.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.res
new file mode 100644
index 0000000..940698e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D6.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.dof
new file mode 100644
index 0000000..90385b4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.dof	
@@ -0,0 +1,138 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - RODXSock Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\..\Dcu\D7
+PackageDLLOutputDir=..\..\Dcu\D7
+PackageDCPOutputDir=..\..\Dcu\D7
+SearchPath=..\..\Dcu\D7
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\Program Files\BoldSoft\Bold\Bin\Bold40D7ComGUI.bpl=Bold for Delphi 4.0 (COM GUI controls)
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.dpk
new file mode 100644
index 0000000..acfe631
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.dpk	
@@ -0,0 +1,47 @@
+package RemObjects_RODX_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - RODXSock Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  vcl,
+  rtl;
+
+{%File '..\RemObjects.inc'}
+
+contains
+  uRODXServerCore in 'uRODXServerCore.pas',
+  uRODXSessionTracker in 'uRODXSessionTracker.pas',
+  uRODXSock in 'uRODXSock.pas',
+  uRODXSockClient in 'uRODXSockClient.pas',
+  uRODXSocket in 'uRODXSocket.pas',
+  uRODXString in 'uRODXString.pas',
+  uRODXHTTPHeaderTools in 'uRODXHTTPHeaderTools.pas',
+  uRODXHTTPServerCore in 'uRODXHTTPServerCore.pas',
+  uRODXISAPI in 'uRODXISAPI.pas',
+  uRODXISAPIFilter in 'uRODXISAPIFilter.pas',
+  uRODXSecurity in 'uRODXSecurity.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_D7.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Mac.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Mac.lpk
new file mode 100644
index 0000000..a015294
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Mac.lpk	
@@ -0,0 +1,82 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="RemObjects_RODX_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="../units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="12">
+      <Item1>
+        <Filename Value="uRODXHTTPHeaderTools.pas"/>
+        <UnitName Value="uRODXHTTPHeaderTools"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uRODXHTTPServerCore.pas"/>
+        <UnitName Value="uRODXHTTPServerCore"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uRODXISAPI.pas"/>
+        <UnitName Value="uRODXISAPI"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uRODXISAPIFilter.pas"/>
+        <UnitName Value="uRODXISAPIFilter"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uRODXSecurity.pas"/>
+        <UnitName Value="uRODXSecurity"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uRODXServerCore.pas"/>
+        <UnitName Value="uRODXServerCore"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uRODXSessionTracker.pas"/>
+        <UnitName Value="uRODXSessionTracker"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uRODXSock.pas"/>
+        <UnitName Value="uRODXSock"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uRODXSockClient.pas"/>
+        <UnitName Value="uRODXSockClient"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uRODXSocket.pas"/>
+        <UnitName Value="uRODXSocket"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uRODXString.pas"/>
+        <UnitName Value="uRODXString"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uRODXSock.def"/>
+        <Type Value="Text"/>
+      </Item12>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Mac"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Unix.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Unix.lpk
new file mode 100644
index 0000000..0726b39
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Unix.lpk	
@@ -0,0 +1,87 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_RODX_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\units\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="12">
+      <Item1>
+        <Filename Value="uRODXHTTPHeaderTools.pas"/>
+        <UnitName Value="uRODXHTTPHeaderTools"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uRODXHTTPServerCore.pas"/>
+        <UnitName Value="uRODXHTTPServerCore"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uRODXISAPI.pas"/>
+        <UnitName Value="uRODXISAPI"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uRODXISAPIFilter.pas"/>
+        <UnitName Value="uRODXISAPIFilter"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uRODXSecurity.pas"/>
+        <UnitName Value="uRODXSecurity"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uRODXServerCore.pas"/>
+        <UnitName Value="uRODXServerCore"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uRODXSessionTracker.pas"/>
+        <UnitName Value="uRODXSessionTracker"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uRODXSock.pas"/>
+        <UnitName Value="uRODXSock"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uRODXSockClient.pas"/>
+        <UnitName Value="uRODXSockClient"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uRODXSocket.pas"/>
+        <UnitName Value="uRODXSocket"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uRODXString.pas"/>
+        <UnitName Value="uRODXString"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uRODXSock.def"/>
+        <Type Value="Text"/>
+      </Item12>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Windows.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Windows.lpk
new file mode 100644
index 0000000..0ca79c6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_Lazarus_Windows.lpk	
@@ -0,0 +1,87 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_RODX_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="12">
+      <Item1>
+        <Filename Value="uRODXHTTPHeaderTools.pas"/>
+        <UnitName Value="uRODXHTTPHeaderTools"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uRODXHTTPServerCore.pas"/>
+        <UnitName Value="uRODXHTTPServerCore"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uRODXISAPI.pas"/>
+        <UnitName Value="uRODXISAPI"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uRODXISAPIFilter.pas"/>
+        <UnitName Value="uRODXISAPIFilter"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uRODXSecurity.pas"/>
+        <UnitName Value="uRODXSecurity"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uRODXServerCore.pas"/>
+        <UnitName Value="uRODXServerCore"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uRODXSessionTracker.pas"/>
+        <UnitName Value="uRODXSessionTracker"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uRODXSock.pas"/>
+        <UnitName Value="uRODXSock"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uRODXSockClient.pas"/>
+        <UnitName Value="uRODXSockClient"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uRODXSocket.pas"/>
+        <UnitName Value="uRODXSocket"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uRODXString.pas"/>
+        <UnitName Value="uRODXString"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uRODXSock.def"/>
+        <Type Value="Text"/>
+      </Item12>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.dpk
new file mode 100644
index 0000000..1c24d10
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.dpk	
@@ -0,0 +1,45 @@
+package RemObjects_RODX_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - RODXSock Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  vcl,
+  rtl;
+
+contains
+  uRODXServerCore in 'uRODXServerCore.pas',
+  uRODXSessionTracker in 'uRODXSessionTracker.pas',
+  uRODXSock in 'uRODXSock.pas',
+  uRODXSockClient in 'uRODXSockClient.pas',
+  uRODXSocket in 'uRODXSocket.pas',
+  uRODXString in 'uRODXString.pas',
+  uRODXHTTPHeaderTools in 'uRODXHTTPHeaderTools.pas',
+  uRODXHTTPServerCore in 'uRODXHTTPServerCore.pas',
+  uRODXISAPI in 'uRODXISAPI.pas',
+  uRODXISAPIFilter in 'uRODXISAPIFilter.pas',
+  uRODXSecurity in 'uRODXSecurity.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.dproj
new file mode 100644
index 0000000..78d53a6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.dproj	
@@ -0,0 +1,114 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{27e9e5ec-4c40-4f0d-8fcb-942f127195d1}</ProjectGuid>
+			<MainSource>RemObjects_RODX_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D11\RemObjects_RODX_D11.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcpOutput>..\..\Dcu\D14</DCC_DcpOutput>
+			<DCC_DcuOutput>..\..\Dcu\D14</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\..\Dcu\D14\RemObjects_RODX_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects SDK - RODXSock Library</DCC_Description>
+			<DCC_UnitSearchPath>..\..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_BplOutput>..\..\Dcu\D14</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_RODX_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="uRODXServerCore.pas"/>
+			<DCCReference Include="uRODXSessionTracker.pas"/>
+			<DCCReference Include="uRODXSock.pas"/>
+			<DCCReference Include="uRODXSockClient.pas"/>
+			<DCCReference Include="uRODXSocket.pas"/>
+			<DCCReference Include="uRODXString.pas"/>
+			<DCCReference Include="uRODXHTTPHeaderTools.pas"/>
+			<DCCReference Include="uRODXHTTPServerCore.pas"/>
+			<DCCReference Include="uRODXISAPI.pas"/>
+			<DCCReference Include="uRODXISAPIFilter.pas"/>
+			<DCCReference Include="uRODXSecurity.pas"/>
+			<None Include="RemObjects.inc"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_RODX_D14.dpk</Source>
+					</Source>
+					<Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclbde100.bpl">CodeGear BDE DB Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+						<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+					</Excluded_Packages>
+					<isVersionControl>
+						<isVersionControl Name="isVersionControlID"/>
+					</isVersionControl>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/RemObjects_RODX_d14.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_English.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_English.inc
new file mode 100644
index 0000000..3c5a17d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_English.inc	
@@ -0,0 +1,53 @@
+ResourceString
+
+      _WSAEINTR           = 'Interrupted system call';                         // 10004 L:4
+      _WSAEBADF           = 'Bad file number';                                 // 10009 L:9
+      _WSAEACCES          = 'Permission denied';                               // 10013 L:13
+      _WSAEFAULT          = 'Bad address';                                     // 10014 L:14
+      _WSAEINVAL          = 'Invalid argument';                                // 10022 L:22
+      _WSAEMFILE          = 'Too many open files';                             // 10024 L:24
+      _WSAEWOULDBLOCK     = 'Operation would block';                           // 10035 L:11 (?L:35?)
+      _WSAEINPROGRESS     = 'Operation now in progress';                       // 10036 L:115
+      _WSAEALREADY        = 'Operation already in progress';                   // 10037 L:114
+      _WSAENOTSOCK        = 'Socket operation on non-socket';                  // 10038 L:88
+      _WSAEDESTADDRREQ    = 'Destination address required';                    // 10039 L:89
+      _WSAEMSGSIZE        = 'Message too long';                                // 10040 L:90
+      _WSAEPROTOTYPE      = 'Protocol wrong type for socket';                  // 10041 L:91
+      _WSAENOPROTOOPT     = 'Protocol not available';                          // 10042 L:92
+      _WSAEPROTONOSUPPORT = 'Protocol not supported';                          // 10043 L:93
+      _WSAESOCKTNOSUPPORT = 'Socket type not supported';                       // 10044 L:94
+      _WSAEOPNOTSUPP      = 'Operation not supported on socket';               // 10045 L:95
+      _WSAEPFNOSUPPORT    = 'Protocol family not supported';                   // 10046 L:96
+      _WSAEAFNOSUPPORT    = 'Address family not supported by protocol family'; // 10047 L:97
+      _WSAEADDRINUSE      = 'Address already in use';                          // 10048 L:98
+      _WSAEADDRNOTAVAIL   = 'Can''t assign requested address';                 // 10049 L:99
+      _WSAENETDOWN        = 'Network is down';                                 // 10050 L:100
+      _WSAENETUNREACH     = 'Network is unreachable';                          // 10051 L:101
+      _WSAENETRESET       = 'Network dropped connection on reset';             // 10052 L:102
+      _WSAECONNABORTED    = 'Software caused connection abort';                // 10053 L:103
+      _WSAECONNRESET      = 'Connection reset by peer';                        // 10054 L:104
+      _WSAENOBUFS         = 'No buffer space available';                       // 10055 L:105
+      _WSAEISCONN         = 'Socket is already connected';                     // 10056 L:106
+      _WSAENOTCONN        = 'Socket is not connected';                         // 10057 L:107
+      _WSAESHUTDOWN       = 'Can''t send after socket shutdown';               // 10058 L:108
+      _WSAETOOMANYREFS    = 'Too many references can''t splice';               // 10059 L:109
+      _WSAETIMEDOUT       = 'Connection timed out';                            // 10060 L:110
+      _WSAECONNREFUSED    = 'Connection refused';                              // 10061 L:111
+      _WSAELOOP           = 'Too many levels of symbolic links';               // 10062 L:40
+      _WSAENAMETOOLONG    = 'File name too long';                              // 10063 L:36
+      _WSAEHOSTDOWN       = 'Host is down';                                    // 10064 L:112
+      _WSAEHOSTUNREACH    = 'No route to host';                                // 10065 L:113
+      _WSAENOTEMPTY       = 'Directory not empty';                             // 10066 L:39
+      _WSAEPROCLIM        = 'Too many processes';                              // 10067
+      _WSAEUSERS          = 'Too many users';                                  // 10068 L:87
+      _WSAEDQUOT          = 'Disk quota exceeded';                             // 10069 L:122
+      _WSAESTALE          = 'Stale NFS file handle';                           // 10070 L:116
+      _WSAEREMOTE         = 'Too many levels of remote in path';               // 10071 L:66
+      _WSASYSNOTREADY     = 'Network sub-system is unusable';                  // 10091
+      _WSAVERNOTSUPPORTED = 'WSOCK32.DLL DLL cannot support this application'; // 10092
+      _WSANOTINITIALISED  = 'WSOCK32.DLL not initialized';                     // 10093
+      _WSAHOST_NOT_FOUND  = 'Host not found';                                  // 11001 L:1
+      _WSATRY_AGAIN       = 'Non-authoritative host not found';                // 11002 L:2
+      _WSANO_RECOVERY     = 'Non-recoverable error';                           // 11003 L:3
+      _WSANO_DATA         = 'No Data';                                         // 11004 L:4
+      _WSAUNKNOWN         = 'Unknown Socket Error';
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_French.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_French.inc
new file mode 100644
index 0000000..0e564d0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_French.inc	
@@ -0,0 +1,53 @@
+ResourceString
+
+      _WSAEINTR            = 'Proc�dure de systeme interrompue'; // 10004
+      _WSAEBADF            = 'Mauvais numero de fichier'; // 10009
+      _WSAEACCES           = 'Permission refus�e'; // 10013
+      _WSAEFAULT           = 'Mauvais adresse'; // 10014
+      _WSAEINVAL           = 'Argument invalide'; // 10022
+      _WSAEMFILE           = 'Trop de fichier ouverts'; // 10024
+      _WSAEWOULDBLOCK      = 'Op�ration terminer� en blocage'; // 10035
+      _WSAEINPROGRESS      = 'Op�ration est en progr�s'; // 10036
+      _WSAEALREADY         = 'Op�ration est d�j� en progr�s'; // 10037
+      _WSAENOTSOCK         = 'Op�ration en non-socket'; // 10038
+      _WSAEDESTADDRREQ     = 'Destination adresse necessaire'; // 10039
+      _WSAEMSGSIZE         = 'Message trop long'; // 10040
+      _WSAEPROTOTYPE       = 'Protocole type incorrect pour ce socket'; // 10041
+      _WSAENOPROTOOPT      = 'Protocole est pas disponible'; // 10042
+      _WSAEPROTONOSUPPORT  = 'Protocole pas support�e'; // 10043
+      _WSAESOCKTNOSUPPORT  = 'Socket type pas support�'; // 10044
+      _WSAEOPNOTSUPP       = 'Op�ration pas support�e on socket'; // 10045
+      _WSAEPFNOSUPPORT     = 'Famille de protocole pas support�e'; // 10046
+      _WSAEAFNOSUPPORT     = 'Famille de adresse pas support�e par la famille de protocole'; // 10047
+      _WSAEADDRINUSE       = 'Adresse d�j� en use'; // 10048
+      _WSAEADDRNOTAVAIL    = 'Impossible de assigner l''address en question'; // 10049
+      _WSAENETDOWN         = 'R�seau est inactif'; // 10050
+      _WSAENETUNREACH      = 'R�seau est innaccessible'; // 10051
+      _WSAENETRESET        = 'Connexion de r�seau est tomb�e'; // 10052
+      _WSAECONNABORTED     = 'Programme a provoqu� la connexion de s''arr�ter'; // 10053
+      _WSAECONNRESET       = 'Connexion recommenc�e'; // 10054
+      _WSAENOBUFS          = 'Pas de espace dans le buffer'; // 10055
+      _WSAEISCONN          = 'Socket d�j� connect�'; // 10056
+      _WSAENOTCONN         = 'Socket est pas connect�'; // 10057
+      _WSAESHUTDOWN        = 'Impossible d''envoyer quand le socket est inactif'; // 10058
+      _WSAETOOMANYREFS     = 'Trop de references'; // 10059
+      _WSAETIMEDOUT        = 'Connexion timed-out'; // 10060
+      _WSAECONNREFUSED     = 'Connexion refus�e'; // 10061
+      _WSAELOOP            = 'Trop de niveau de symbolique links'; // 10062
+      _WSAENAMETOOLONG     = 'Nom du fichier trop long'; // 10063
+      _WSAEHOSTDOWN        = 'Host est inactif'; // 10064
+      _WSAEHOSTUNREACH     = 'Host untrouvable'; // 10065
+      _WSAENOTEMPTY        = 'Directory pas vide'; // 10066
+      _WSAEPROCLIM         = 'Trop de process'; // 10067
+      _WSAEUSERS           = 'Trop de utulisateurs'; // 10068
+      _WSAEDQUOT           = 'Disk quota dexcad�e'; // 10069
+      _WSAESTALE           = 'NFS handle du fichier timeout'; // 10070
+      _WSAEREMOTE          = 'Trop niveau de remote dans le path'; // 10071
+      _WSASYSNOTREADY      = 'Reseau sub-system est inutilisable'; // 10091
+      _WSAVERNOTSUPPORTED  = 'WSOCK32.DLL DLL ne supporte pas cette application'; // 10092
+      _WSANOTINITIALISED   = 'WSOCK32.DLL pas initialis�'; // 10093
+      _WSAHOST_NOT_FOUND   = 'Host pas trouv�'; // 11001
+      _WSATRY_AGAIN        = 'Non-authoritative host pas trouv�'; // 11002
+      _WSANO_RECOVERY      = 'Unrecoverable error'; // 11003
+      _WSANO_DATA          = 'Pas de data'; // 11004
+      _WSAUNKNOWN          = 'Inconnu Socket Error';
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_German.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_German.inc
new file mode 100644
index 0000000..765cf34
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_German.inc	
@@ -0,0 +1,53 @@
+ResourceString
+
+      _WSAEINTR            = 'Unterbrochener Systemaufruf'; // 10004
+      _WSAEBADF            = 'Ung�ltige Dateinummer'; // 10009
+      _WSAEACCES           = 'Zugriff verweigert'; // 10013
+      _WSAEFAULT           = 'Ung�ltige Adresse'; // 10014
+      _WSAEINVAL           = 'Ung�ltiger oder falscher Parameter'; // 10022
+      _WSAEMFILE           = 'Zu viele offene Dateien'; // 10024
+      _WSAEWOULDBLOCK      = 'Aktion w�rde System blockieren'; // 10035
+      _WSAEINPROGRESS      = 'Aktion wird ausgef�hrt'; // 10036
+      _WSAEALREADY         = 'Aktion wird bereits ausgef�hrt'; // 10037
+      _WSAENOTSOCK         = 'Socket Aktion auf ung�ltigem Socket'; // 10038
+      _WSAEDESTADDRREQ     = 'Zieladresse erforderlich'; // 10039
+      _WSAEMSGSIZE         = 'Nachricht ist zu lang'; // 10040
+      _WSAEPROTOTYPE       = 'Falsches Protokoll f�r Socket'; // 10041
+      _WSAENOPROTOOPT      = 'Protokoll ist nicht verf�gbar'; // 10042
+      _WSAEPROTONOSUPPORT  = 'Protokoll wird nicht unterst�tzt'; // 10043
+      _WSAESOCKTNOSUPPORT  = 'Socket Typ wird nicht unterst�tzt'; // 10044
+      _WSAEOPNOTSUPP       = 'Aktion wird nicht von Socket unterst�tzt'; // 10045
+      _WSAEPFNOSUPPORT     = 'Protokollfamilie wird nicht unterst�tzt'; // 10046
+      _WSAEAFNOSUPPORT     = 'Addressfamilie wird durch Protokollfamilie nicht unterst�tzt'; // 10047
+      _WSAEADDRINUSE       = 'Addresse wird bereits benutzt'; // 10048
+      _WSAEADDRNOTAVAIL    = 'Kann angeforderte Adresse nicht zuweisen'; // 10049
+      _WSAENETDOWN         = 'Kein Netzwerk'; // 10050
+      _WSAENETUNREACH      = 'Netzwerk ist nicht erreichbar'; // 10051
+      _WSAENETRESET        = 'Netzwerk hat Verbindung durch Reset abgebrochen'; // 10052
+      _WSAECONNABORTED     = 'Software hat Verbindungsabbruch ausgel�st'; // 10053
+      _WSAECONNRESET       = 'Verbindungsreset durch Peer'; // 10054
+      _WSAENOBUFS          = 'Kein Bufferplatz verf�gbar'; // 10055
+      _WSAEISCONN          = 'Socket ist bereits verbunden'; // 10056
+      _WSAENOTCONN         = 'Socket ist nicht verbunden'; // 10057
+      _WSAESHUTDOWN        = 'Kann nach Socket-Trennung nicht verbinden'; // 10058
+      _WSAETOOMANYREFS     = 'Zu viele Referenzen   Kann nicht splitten'; // 10059
+      _WSAETIMEDOUT        = 'Verbindung   Time out !'; // 10060
+      _WSAECONNREFUSED     = 'Verbindung abgelehnt'; // 10061
+      _WSAELOOP            = 'Zu viele Ebenen symbolischer Verkn�pfungen'; // 10062
+      _WSAENAMETOOLONG     = 'Dateiname zu lang'; // 10063
+      _WSAEHOSTDOWN        = 'Host ist nicht verf�gbar'; // 10064
+      _WSAEHOSTUNREACH     = 'Keine Verbindung zum Host'; // 10065
+      _WSAENOTEMPTY        = 'Verzeichnis ist nicht leer'; // 10066
+      _WSAEPROCLIM         = 'Zu viele Prozesse'; // 10067
+      _WSAEUSERS           = 'Zu viele Benutzer'; // 10068
+      _WSAEDQUOT           = 'Festplattenspeicherplatz erreicht'; // 10069
+      _WSAESTALE           = 'Alte NFS Dateiverkn�pfung'; // 10070
+      _WSAEREMOTE          = 'Zu viele Ebenen im Remote Pfad'; // 10071
+      _WSASYSNOTREADY      = 'Netzwerk Subsystem ist nicht zu gebrauchen'; // 10091
+      _WSAVERNOTSUPPORTED  = 'WSOCK32.DLL DLL kann diese Anwendung nicht unterst�tzen'; // 10092
+      _WSANOTINITIALISED   = 'WSOCK32.DLL nicht initialisiert'; // 10093
+      _WSAHOST_NOT_FOUND   = 'Host nicht gefunden'; // 11001
+      _WSATRY_AGAIN        = 'Unzuverl�ssigen Host nicht gefunden'; // 11002
+      _WSANO_RECOVERY      = 'Fehler - Kein Wiederherstellung m�glich'; // 11003
+      _WSANO_DATA          = 'Keine Daten'; // 11004
+      _WSAUNKNOWN          = 'Unbekannter Socket Fehler';
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Italian.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Italian.inc
new file mode 100644
index 0000000..c1529b8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Italian.inc	
@@ -0,0 +1,54 @@
+ResourceString
+
+      _WSAEINTR            = 'Chiamata di sistema interrotta';
+      _WSAEBADF            = 'Numero di file errato';
+      _WSAEACCES           = 'Accesso negato';
+      _WSAEFAULT           = 'Indirizzo errato';
+      _WSAEINVAL           = 'Argomento non valido';
+      _WSAEMFILE           = 'Troppi file aperti';
+      _WSAEWOULDBLOCK      = 'Operazione bloccante';
+      _WSAEINPROGRESS      = 'Operazione in corso';
+      _WSAEALREADY         = 'Operation gi� in corso';
+      _WSAENOTSOCK         = 'Operazione socket eseguita non su socket';
+      _WSAEDESTADDRREQ     = 'Indirizzo di destinazione necessario';
+      _WSAEMSGSIZE         = 'Messaggio troppo lungo';
+      _WSAEPROTOTYPE       = 'Tipo di protocollo errato per questa socket';
+      _WSAENOPROTOOPT      = 'Protocollo non disponibile';
+      _WSAEPROTONOSUPPORT  = 'Protocollo non supportato';
+      _WSAESOCKTNOSUPPORT  = 'Tipo di socket non supportato';
+      _WSAEOPNOTSUPP       = 'Operazione non supportata dalla socket';
+      _WSAEPFNOSUPPORT     = 'Famiglia di protocolli non supportata';
+      _WSAEAFNOSUPPORT     = 'Famiglia di indirizzi non supportata dalla famiglia di protocolli';
+      _WSAEADDRINUSE       = 'Indirizzo gi� in uso';
+      _WSAEADDRNOTAVAIL    = 'Impossibile assegnare l''indirizzo richiesto';
+      _WSAENETDOWN         = 'La rete non funziona';
+      _WSAENETUNREACH      = 'La rete � irraggiungibile';
+      _WSAENETRESET        = 'La rete ha interrotto la connessione';
+      _WSAECONNABORTED     = 'Il software ha causato l''interruzione della connessione';
+      _WSAECONNRESET       = 'Connessione interrotta';
+      _WSAENOBUFS          = 'Non c''� spazio buffer disponibile';
+      _WSAEISCONN          = 'La socket � gi� connessa';
+      _WSAENOTCONN         = 'La socket non � connessa';
+      _WSAESHUTDOWN        = 'Impossibile inviare pacchetti su una socket chiusa';
+      _WSAETOOMANYREFS     = 'Troppi riferimenti';
+      _WSAETIMEDOUT        = 'Timeout della connessione';
+      _WSAECONNREFUSED     = 'Connessione rifiutata';
+      _WSAELOOP            = 'Troppi livelli di link simbolici';
+      _WSAENAMETOOLONG     = 'Il nome del file � troppo lungo';
+      _WSAEHOSTDOWN        = 'L''host � fermo';
+      _WSAEHOSTUNREACH     = 'L''host � irraggiungibile';
+      _WSAENOTEMPTY        = 'La directory non � vuota';
+      _WSAEPROCLIM         = 'Troppi processi in esecuzione';
+      _WSAEUSERS           = 'Troppi utenti collegati';
+      _WSAEDQUOT           = 'La quota disco � stata superata';
+      _WSAESTALE           = 'NFS file handle scaduto';
+      _WSAEREMOTE          = 'Troppi livelli remoti nel path';
+      _WSASYSNOTREADY      = 'Il sottosistema di rete � inutilizzabile';
+      _WSAVERNOTSUPPORTED  = 'WSOCK32.DLL non supporta questa applicazione';
+      _WSANOTINITIALISED   = 'WSOCK32.DLL non inizializzata';
+      _WSAHOST_NOT_FOUND   = 'Host non trovato';
+      _WSATRY_AGAIN        = 'Host non-autoritativo non trovato';
+      _WSANO_RECOVERY      = 'Errore irreversibile';
+      _WSANO_DATA          = 'Dati mancanti';
+      _WSAUNKNOWN          = 'Unknown Socket Error';
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_LowMem.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_LowMem.inc
new file mode 100644
index 0000000..53247f8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_LowMem.inc	
@@ -0,0 +1,53 @@
+ResourceString
+
+      _WSAEINTR            = '10004';
+      _WSAEBADF            = '10009';
+      _WSAEACCES           = '10013';
+      _WSAEFAULT           = '10014';
+      _WSAEINVAL           = '10022';
+      _WSAEMFILE           = '10024';
+      _WSAEWOULDBLOCK      = '10035';
+      _WSAEINPROGRESS      = '10036';
+      _WSAEALREADY         = '10037';
+      _WSAENOTSOCK         = '10038';
+      _WSAEDESTADDRREQ     = '10039';
+      _WSAEMSGSIZE         = '10040';
+      _WSAEPROTOTYPE       = '10041';
+      _WSAENOPROTOOPT      = '10042';
+      _WSAEPROTONOSUPPORT  = '10043';
+      _WSAESOCKTNOSUPPORT  = '10044';
+      _WSAEOPNOTSUPP       = '10045';
+      _WSAEPFNOSUPPORT     = '10046';
+      _WSAEAFNOSUPPORT     = '10047';
+      _WSAEADDRINUSE       = '10048';
+      _WSAEADDRNOTAVAIL    = '10049';
+      _WSAENETDOWN         = '10050';
+      _WSAENETUNREACH      = '10051';
+      _WSAENETRESET        = '10052';
+      _WSAECONNABORTED     = '10053';
+      _WSAECONNRESET       = '10054';
+      _WSAENOBUFS          = '10055';
+      _WSAEISCONN          = '10056';
+      _WSAENOTCONN         = '10057';
+      _WSAESHUTDOWN        = '10058';
+      _WSAETOOMANYREFS     = '10059';
+      _WSAETIMEDOUT        = '10060';
+      _WSAECONNREFUSED     = '10061';
+      _WSAELOOP            = '10062';
+      _WSAENAMETOOLONG     = '10063';
+      _WSAEHOSTDOWN        = '10064';
+      _WSAEHOSTUNREACH     = '10065';
+      _WSAENOTEMPTY        = '10066';
+      _WSAEPROCLIM         = '10067';
+      _WSAEUSERS           = '10068';
+      _WSAEDQUOT           = '10069';
+      _WSAESTALE           = '10070';
+      _WSAEREMOTE          = '10071';
+      _WSASYSNOTREADY      = '10091';
+      _WSAVERNOTSUPPORTED  = '10092';
+      _WSANOTINITIALISED   = '10093';
+      _WSAHOST_NOT_FOUND   = '11001';
+      _WSATRY_AGAIN        = '11002';
+      _WSANO_RECOVERY      = '11003';
+      _WSANO_DATA          = '11004';
+      _WSAUNKNOWN          = '';
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Portuguese.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Portuguese.inc
new file mode 100644
index 0000000..5b34750
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Portuguese.inc	
@@ -0,0 +1,53 @@
+ResourceString
+
+      _WSAEINTR            = 'Chamada de sistema interrompida'; // 10004
+      _WSAEBADF            = 'Numero de arquivo invalido'; // 10009
+      _WSAEACCES           = 'Permissao negada'; // 10013
+      _WSAEFAULT           = 'Endereco invalido'; // 10014
+      _WSAEINVAL           = 'Argumento invalido'; // 10022
+      _WSAEMFILE           = 'Muitos arquivos abertos'; // 10024
+      _WSAEWOULDBLOCK      = 'Operacao sera bloqueada'; // 10035
+      _WSAEINPROGRESS      = 'Operacao em andamento'; // 10036
+      _WSAEALREADY         = 'Operacao ja esta em andamento'; // 10037
+      _WSAENOTSOCK         = 'Operacao de Socket em Nao-Socket'; // 10038
+      _WSAEDESTADDRREQ     = 'Endereco de destino obrigatorio'; // 10039
+      _WSAEMSGSIZE         = 'Menssagem muito longa'; // 10040
+      _WSAEPROTOTYPE       = 'Tipo errado de protocolo para este socket'; // 10041
+      _WSAENOPROTOOPT      = 'Protocolo nao disponivel'; // 10042
+      _WSAEPROTONOSUPPORT  = 'Protocolo nao suportado'; // 10043
+      _WSAESOCKTNOSUPPORT  = 'Tipo de Socket nao suportado'; // 10044
+      _WSAEOPNOTSUPP       = 'Operacao nao suportada pelo socket'; // 10045
+      _WSAEPFNOSUPPORT     = 'Familia de protocolo nao suportada'; // 10046
+      _WSAEAFNOSUPPORT     = 'Endereco de familia nao suportado pela familia do protocolo'; // 10047
+      _WSAEADDRINUSE       = 'Endereco em uso'; // 10048
+      _WSAEADDRNOTAVAIL    = 'Nao e possivel atribuir o endereco solicitado'; // 10049
+      _WSAENETDOWN         = 'A rede esta fora do ar'; // 10050
+      _WSAENETUNREACH      = 'A rede nao pode ser encontrada'; // 10051
+      _WSAENETRESET        = 'A rede desligou a conexao ao reinicializar'; // 10052
+      _WSAECONNABORTED     = 'O software causou uma desconexao'; // 10053
+      _WSAECONNRESET       = 'Conexao reinicializada por outro computador'; // 10054
+      _WSAENOBUFS          = 'Nao ha espaco no buffer'; // 10055
+      _WSAEISCONN          = 'Socket ja esta conectado'; // 10056
+      _WSAENOTCONN         = 'Socket nao esta conectado'; // 10057
+      _WSAESHUTDOWN        = 'Nao e possivel enviar apos desligamento do socket'; // 10058
+      _WSAETOOMANYREFS     = 'Muitas referencias  nao e possivel fazer mais ligacoes'; // 10059
+      _WSAETIMEDOUT        = 'Tempo maximo da conexao excedido'; // 10060
+      _WSAECONNREFUSED     = 'Conexao recusada'; // 10061
+      _WSAELOOP            = 'Muitos niveis de links simbolicos'; // 10062
+      _WSAENAMETOOLONG     = 'Nome de arquivo muito longo'; // 10063
+      _WSAEHOSTDOWN        = 'Servidor esta fora do ar'; // 10064
+      _WSAEHOSTUNREACH     = 'Nao ha rota para o servidor'; // 10065
+      _WSAENOTEMPTY        = 'Diretorio nao esta vazio'; // 10066
+      _WSAEPROCLIM         = 'Muitos processos'; // 10067
+      _WSAEUSERS           = 'Muitos usuarios'; // 10068
+      _WSAEDQUOT           = 'Quota de disco excedida'; // 10069
+      _WSAESTALE           = 'Handle do arquivo NFS antigo'; // 10070
+      _WSAEREMOTE          = 'Muitos niveis de caminhos remotos'; // 10071
+      _WSASYSNOTREADY      = 'Nao e possivel usar o sub-sistema da rede'; // 10091
+      _WSAVERNOTSUPPORTED  = 'WSOCK32.DLL DLL nao suporta esta operacao'; // 10092
+      _WSANOTINITIALISED   = 'WSOCK32.DLL nao inicializada'; // 10093
+      _WSAHOST_NOT_FOUND   = 'Servidor nao encontrado'; // 11001
+      _WSATRY_AGAIN        = 'Servidor secundario nao encontrado'; // 11002
+      _WSANO_RECOVERY      = 'Erro nao-recuperavel'; // 11003
+      _WSANO_DATA          = 'Nao ha dados'; // 11004
+      _WSAUNKNOWN          = 'Erro de socket desconhecido';
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Russian.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Russian.inc
new file mode 100644
index 0000000..91a932a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Russian.inc	
@@ -0,0 +1,53 @@
+ResourceString
+
+      _WSAEINTR            = '���������� ��������� �����';
+      _WSAEBADF            = '������ ����� �����';
+      _WSAEACCES           = '������ ��������';
+      _WSAEFAULT           = '������ �����';
+      _WSAEINVAL           = '������������ ��������';
+      _WSAEMFILE           = '������� ����� �������� ������';
+      _WSAEWOULDBLOCK      = '�������� �������� �������������';
+      _WSAEINPROGRESS      = '�������� ������ �����������';
+      _WSAEALREADY         = '�������� ��� �����������';
+      _WSAENOTSOCK         = '������������ ��������. ������������ �� �����';
+      _WSAEDESTADDRREQ     = '��������� ����� ����������';
+      _WSAEMSGSIZE         = '��������� ������� �������';
+      _WSAEPROTOTYPE       = '������������ ��� ��������� ��� ������';
+      _WSAENOPROTOOPT      = '�������� �� ��������';
+      _WSAEPROTONOSUPPORT  = '�������� �� ��������������';
+      _WSAESOCKTNOSUPPORT  = '��� ������ �� ��������������';
+      _WSAEOPNOTSUPP       = '�������� �� �������������� ��� ������';
+      _WSAEPFNOSUPPORT     = '��������� ���������� �� ��������������';
+      _WSAEAFNOSUPPORT     = '������ ������� �� �������������� ���������� ����������';
+      _WSAEADDRINUSE       = '����� ��� ������������';
+      _WSAEADDRNOTAVAIL    = '���������� ��������� ��������� �����';
+      _WSAENETDOWN         = '���� �����������';
+      _WSAENETUNREACH      = '���� ����������';
+      _WSAENETRESET        = '���� �������� ���������� ��� ��������� �������������';
+      _WSAECONNABORTED     = '����������� ����������� ������� ��������� ����������� ����������';
+      _WSAECONNRESET       = '���������� �������� ������ ����� ����';
+      _WSAENOBUFS          = '����� ����������';
+      _WSAEISCONN          = '����� ��� ���������';
+      _WSAENOTCONN         = '����� �� ���������';
+      _WSAESHUTDOWN        = '���������� ��������� ����� ���������� ����������';
+      _WSAETOOMANYREFS     = '������� ����� ������  ���������� ����������';
+      _WSAETIMEDOUT        = '��������� ����� �������� ������';
+      _WSAECONNREFUSED     = '���������� ����������';
+      _WSAELOOP            = '������� ����� ������� ���������� ������';
+      _WSAENAMETOOLONG     = '������� ������� ��� �����';
+      _WSAEHOSTDOWN        = '���� ��������';
+      _WSAEHOSTUNREACH     = '��� �������� � �����';
+      _WSAENOTEMPTY        = '���������� �� �����';
+      _WSAEPROCLIM         = '������� ����� ���������';
+      _WSAEUSERS           = '������� ����� �������������';
+      _WSAEDQUOT           = '��������� ���������� �������� ������������';
+      _WSAESTALE           = '������� �������� ���������� NFS';
+      _WSAEREMOTE          = '������� ������� ����������� ��������� � ��������� ����';
+      _WSASYSNOTREADY      = '������� ���������� �� ������������';
+      _WSAVERNOTSUPPORTED  = 'WSOCK32.DLL ���������� �� �������������� ���� �����������';
+      _WSANOTINITIALISED   = 'WSOCK32.DLL �� ����������������';
+      _WSAHOST_NOT_FOUND   = '���� �� ������';
+      _WSATRY_AGAIN        = '������������� ���� �� ������';
+      _WSANO_RECOVERY      = '������������ ������';
+      _WSANO_DATA          = '��� ������';
+      _WSAUNKNOWN          = '����������� ������ ������';
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Spanish.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Spanish.inc
new file mode 100644
index 0000000..cc3db98
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Spanish.inc	
@@ -0,0 +1,55 @@
+ResourceString
+
+       _WSAEINTR            = 'Procedura de sistema interrumpida'; // 10004
+       _WSAEBADF            = 'N�mero de archivo incorrecto'; // 10009
+       _WSAEACCES           = 'Permiso negado'; // 10013
+       _WSAEFAULT           = 'Direcci�n incorrecta'; // 10014
+       _WSAEINVAL           = 'Argumento inv�lido'; // 10022
+       _WSAEMFILE           = 'Demasiados archivos abiertos'; // 10024
+       _WSAEWOULDBLOCK      = 'Operaci�n se bloquear�a'; // 10035
+       _WSAEINPROGRESS      = 'Operaci�n ahora en marcha'; // 10036
+       _WSAEALREADY         = 'Operaci�n ya en marcha'; // 10037
+       _WSAENOTSOCK         = 'Operaci�n de socket en un non-socket'; // 10038
+       _WSAEDESTADDRREQ     = 'Direcci�n del destinatario requerido'; // 10039
+       _WSAEMSGSIZE         = 'Mensaje demasiado largo'; // 10040
+       _WSAEPROTOTYPE       = 'Tipo de protocolo incorrecto para el socket'; // 10041
+       _WSAENOPROTOOPT      = 'Protocolo no disponible'; // 10042
+       _WSAEPROTONOSUPPORT  = 'Protocolo no soportado'; // 10043
+       _WSAESOCKTNOSUPPORT  = 'Tipo de socket no soportado'; // 10044
+       _WSAEOPNOTSUPP       = 'Operaci�n no soportada en socket'; // 10045
+       _WSAEPFNOSUPPORT     = 'Familia de protocolos no soportada'; // 10046
+       _WSAEAFNOSUPPORT     = 'Familia de direcciones no soportada por la familia de protocolos'; // 10047
+       _WSAEADDRINUSE       = 'Direcci�n ya en uso'; // 10048
+       _WSAEADDRNOTAVAIL    = 'No se puede asignar la direcci�n solicitada'; // 10049
+       _WSAENETDOWN         = 'La red est� parada'; // 10050
+       _WSAENETUNREACH      = 'La red est� inutilizable'; // 10051
+       _WSAENETRESET        = 'La red interrumpi� la conexi�n'; // 10052
+       _WSAECONNABORTED     = 'El sistema caus� la interrupci�n de la conexi�n'; // 10053
+       _WSAECONNRESET       = 'Conexi�n interrumpida'; // 10054
+       _WSAENOBUFS          = 'No hay espacio disponible en el buffer'; // 10055
+       _WSAEISCONN          = 'Socket ya est� conectado'; // 10056
+       _WSAENOTCONN         = 'Socket no est� conectado'; // 10057
+       _WSAESHUTDOWN        = 'Imposible enviar cuando el socket esta cerrado'; // 10058
+       _WSAETOOMANYREFS     = 'Demasiadas referencias'; // 10059
+       _WSAETIMEDOUT        = 'Conexi�n tuvo un timeout'; // 10060
+       _WSAECONNREFUSED     = 'Conexi�n rechazada'; // 10061
+       _WSAELOOP            = 'Demasiados niveles de links simb�licos'; // 10062
+       _WSAENAMETOOLONG     = 'El nombre del archivo es muy grande'; // 10063
+       _WSAEHOSTDOWN        = 'Host est� parado'; // 10064
+       _WSAEHOSTUNREACH     = 'No hay ruta para el host'; // 10065
+       _WSAENOTEMPTY        = 'El directorio no est� vac�o'; // 10066
+       _WSAEPROCLIM         = 'Demasiados procesos'; // 10067
+       _WSAEUSERS           = 'Demasiados usuarios'; // 10068
+       _WSAEDQUOT           = 'Contingente del disco excedido'; // 10069
+       _WSAESTALE           = 'NFS handle archivo vencido'; // 10070
+       _WSAEREMOTE          = 'Demasiados niveles remotos en el path'; // 10071
+       _WSASYSNOTREADY      = 'Sub-sistema de la red inutilizable'; // 10091
+       _WSAVERNOTSUPPORTED  = 'WSOCK32.DLL DLL no puede soportar esta aplicaci�n'; // 10092
+       _WSANOTINITIALISED   = 'WSOCK32.DLL no fue inicializado'; // 10093
+       _WSAHOST_NOT_FOUND   = 'Host no fue encontrado'; // 11001
+       _WSATRY_AGAIN        = 'Host no-autoritativo no fue encontrado'; // 11002
+       _WSANO_RECOVERY      = 'No recuperable error'; // 11003
+       _WSANO_DATA          = 'No hay datos'; // 11004
+       _WSAUNKNOWN          = 'Error de socket desconocido';
+
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Turkish.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Turkish.inc
new file mode 100644
index 0000000..e4a2501
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/Resource_Turkish.inc	
@@ -0,0 +1,53 @@
+ResourceString
+
+      _WSAEINTR            = 'Kesilmi� system �a�r�s�';
+      _WSAEBADF            = 'Yanl�� dosya numaras�';
+      _WSAEACCES           = 'Eri�im engellendi';
+      _WSAEFAULT           = 'Yanl�� adres';
+      _WSAEINVAL           = 'Ge�ersiz arg�man';
+      _WSAEMFILE           = '�ok fazla a��k dosya';
+      _WSAEWOULDBLOCK      = 'Operasyon kesintiye u�rar';
+      _WSAEINPROGRESS      = 'Operasyon �u anda s�r�yor';
+      _WSAEALREADY         = 'Operasyon zaten devam ediyor';
+      _WSAENOTSOCK         = 'Soket olmayan �zerinde soket operasyonu';
+      _WSAEDESTADDRREQ     = 'Hedef adresi gerekli';
+      _WSAEMSGSIZE         = 'Mesaj �ok uzun';
+      _WSAEPROTOTYPE       = 'Soket i�in protokol�n tipi yanl��';
+      _WSAENOPROTOOPT      = 'Protokol mevcut de�il';
+      _WSAEPROTONOSUPPORT  = 'Protokol desteklenmiyor';
+      _WSAESOCKTNOSUPPORT  = 'Soket tipi desteklenmiyor';
+      _WSAEOPNOTSUPP       = 'Operasyon soket �zerinde desteklenmiyor';
+      _WSAEPFNOSUPPORT     = 'Protokol ailesi desteklenmiyor';
+      _WSAEAFNOSUPPORT     = 'Adres ailesi protokol ailesi taraf�ndan desteklenmiyor';
+      _WSAEADDRINUSE       = 'Adres zaten kullan�mda';
+      _WSAEADDRNOTAVAIL    = '�stenen adres atanam�yor';
+      _WSAENETDOWN         = 'A� trafi�e kapal�';
+      _WSAENETUNREACH      = 'A�a eri�ilemiyor';
+      _WSAENETRESET        = 'A� ba�lant�y� kapatt�';
+      _WSAECONNABORTED     = 'Yaz�l�m ba�lant�n�n kopmas�na sebep oldu';
+      _WSAECONNRESET       = 'Di�er u�taki bilgisayar ba�lant�y� kesti';
+      _WSAENOBUFS          = 'Bellek alan� kalmad�';
+      _WSAEISCONN          = 'Soket zaten ba�l�';
+      _WSAENOTCONN         = 'Soket ba�l� de�il';
+      _WSAESHUTDOWN        = 'Soket kapand�ktan sonra g�nderilemiyor';
+      _WSAETOOMANYREFS     = '�ok fazla referans  ili�tirilemiyor';
+      _WSAETIMEDOUT        = 'Ba�ant� zaman� doldu';
+      _WSAECONNREFUSED     = 'Ba�lant� geri �evrildi';
+      _WSAELOOP            = '�ok fazla sembolik hat';
+      _WSAENAMETOOLONG     = 'Dosya ismi �ok uzun';
+      _WSAEHOSTDOWN        = 'Hedef bilgisayar kullan�m d���';
+      _WSAEHOSTUNREACH     = 'Hedef bilgisayara yol bulunamad�';
+      _WSAENOTEMPTY        = 'Dizin bo� de�il';
+      _WSAEPROCLIM         = '�ok fazla s�re�';
+      _WSAEUSERS           = '�ok fazla kullan�c�';
+      _WSAEDQUOT           = 'Disk kotas� a��ld�';
+      _WSAESTALE           = 'Ge�ersiz NFS dosya g�stergeci';
+      _WSAEREMOTE          = 'Uzaktakinin yolunda �ok fazla seviye';
+      _WSASYSNOTREADY      = 'A� altsistemi kullan�lamaz durumda';
+      _WSAVERNOTSUPPORTED  = 'WSOCK32.DLL DLL bu uygulamay� destekliyemiyor';
+      _WSANOTINITIALISED   = 'WSOCK32.DLL ba�lat�lmam��';
+      _WSAHOST_NOT_FOUND   = 'Hedef bilgisayar bulunamad�';
+      _WSATRY_AGAIN        = '�zin gerektirmeyen hedef bilgisayar bulunamad�';
+      _WSANO_RECOVERY      = 'Geri d�n�lemez hata';
+      _WSANO_DATA          = 'Veri yok';
+      _WSAUNKNOWN          = 'Bilinmeyen soket hatas�';
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXFree.def b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXFree.def
new file mode 100644
index 0000000..24d4191
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXFree.def	
@@ -0,0 +1,72 @@
+{$IFDEF LINUX}
+{$I ../eDefines.inc}
+{$ELSE}
+{$I ..\eDefines.inc}
+{$ENDIF LINUX}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+// ONLY ENABLE THIS - IF YOU LICENSED OUR TLS-EDITION OF DXSOCK
+// IT IS NOT FREE - IT IS NOT INCLUDED WITH WWS - IT'S AS A LEGAL ISSUE!
+//
+{.$DEFINE TLS_EDITION}
+
+// ONLY ENABLE THIS - IF YOU LICENSED OUR CODE TRACER SUITE
+{.$DEFINE CODE_TRACER}
+
+// custom feature for SMTP Sender -> SMTP Relay -> track session ID
+{$DEFINE SMTP_SESSION_FEATURE}
+
+// THESE CAN BE CHANGED BY YOU:
+{.$DEFINE FINALBUILD}
+{.$DEFINE OCX_ONLY}    // not done - will be in DXSock 4.0
+{.$DEFINE OBJECTS_ONLY}
+{$IFNDEF CPU64}
+{$DEFINE ASM8086}
+{$ENDIF}
+// LANGUAGE FILE FOR ERROR MESSAGE TEXT
+{$DEFINE ENGLISH1}
+{.$DEFINE FRENCH1}
+{.$DEFINE GERMAN1}
+{.$DEFINE ITALIAN1}
+{.$DEFINE LOWMEM1}
+{.$DEFINE PORTUGUESE1}
+{.$DEFINE RUSSIAN1}
+{.$DEFINE SPANISH1}
+{.$DEFINE TURKISH1}
+
+////////////////////////////////////////////////////////////////////////////////
+{$IFDEF VER90}
+   {$DEFINE VER100}
+{$ENDIF}
+{$IFDEF VER105}
+   {$DEFINE VER100}
+{$ENDIF}
+
+{$IFDEF FINALBUILD}
+ {$ALIGN ON}
+ {$ASSERTIONS OFF}
+ {$DEBUGINFO OFF}
+ {$DEFINITIONINFO OFF}
+ {$DESCRIPTION 'Uses Brain Patchwork DX, LLC. DXSock 3.0.0'}
+ {$EXTENDEDSYNTAX ON}
+ {$HINTS ON}
+ {$IMAGEBASE $2112CAFE}
+ {$IMPORTEDDATA ON}
+ {$IOCHECKS ON}
+ {$LOCALSYMBOLS OFF}
+ {$LONGSTRINGS ON}
+ {$OBJEXPORTALL ON}
+ {$OPTIMIZATION ON}
+ {$OVERFLOWCHECKS OFF}
+ {$RANGECHECKS OFF}
+ {$REALCOMPATIBILITY OFF}
+ {$REFERENCEINFO OFF}
+ {$RUNONLY OFF}
+ {$STACKFRAMES OFF}
+ {$VARSTRINGCHECKS ON}
+ {$WARNINGS ON}
+{$ENDIF}
+// END OF FILE //
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXHTTPHeaderTools.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXHTTPHeaderTools.pas
new file mode 100644
index 0000000..dbd2617
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXHTTPHeaderTools.pas	
@@ -0,0 +1,570 @@
+unit uRODXHTTPHeaderTools;
+
+interface
+
+///////////////////////////////////////////////////////////////////////////////
+//    Component: TDXHTTPHeaderTools
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description:
+// ========================================================================
+///////////////////////////////////////////////////////////////////////////////
+{$I uRODXSock.def}
+uses
+  uRODXString,
+  Classes;
+
+Type
+  PHeaderInfo=^THeaderInfo;
+  THeaderInfo=Record
+    ContentLength:Integer;
+    Raw:AnsiString;       // Original Header Request
+    Protocol:AnsiString;
+    Method:AnsiString;    //GET, HEAD, etc.  All caps!!!
+    URI:AnsiString;
+    PhysPath:AnsiString;
+    Allow:AnsiString;
+    AuthType:AnsiString;  // BASIC
+    AuthName:AnsiString;
+    AuthPass:AnsiString;
+    Date:AnsiString;
+    Pragma:AnsiString;
+    CacheControl:AnsiString;
+    Connection:AnsiString;
+    TransferEncoding:AnsiString;
+    Upgrade:AnsiString;
+    Via:AnsiString;
+    Host:AnsiString;      // multiple domains on single IP!
+    From:AnsiString;
+    IfModSince:AnsiString;
+    IfMatch:AnsiString;
+    IfNoneMatch:AnsiString;
+    IfRange:AnsiString;
+    IfUnModSince:AnsiString;
+    MaxForwards:AnsiString;
+    ProxyAuthorization:AnsiString;
+    KeepAlive:AnsiString;
+    PublicCache:AnsiString; // 2.3 renamed field!
+    Range:AnsiString;
+    Referer:AnsiString;
+    UserAgent:AnsiString;
+    ContentType:AnsiString;
+    Accept:AnsiString;
+    AcceptCharset:AnsiString;
+    AcceptEncoding:AnsiString;
+    AcceptLanguage:AnsiString;
+    ClientName:AnsiString;
+    ClientAddr:AnsiString;
+    ClientHost:AnsiString;
+    Cookie:AnsiString;
+    QueryString:AnsiString;
+    Weferer:AnsiString;
+    WserAgent:AnsiString;
+    Forwarded:AnsiString;
+    ForwardedFor:AnsiString;
+    ProxyConnection:AnsiString;
+    CacheInfo:AnsiString;
+    PostData:AnsiString;  // 3.0
+    HostRootPath:AnsiString;  // needed for SSI+ Banner routines and ISAPI Variables
+    All_RAW:AnsiString; // needed for trace, and ISAPIs!
+    All_HTTP:AnsiString;
+    Unknown:AnsiString;
+  end;
+
+  TDXHTTPHeaderTools = class(TDXComponent)
+  private
+    fSessionHeader:PHeaderInfo;
+  protected
+    Function FindUnknownHeader(ServerVariable:AnsiString):AnsiString;
+    Procedure ReplaceUnknownHeader(ServerVariable, VariableValue:AnsiString);
+    Function UnknownHeaderExists(ServerVariable:AnsiString):Boolean;
+  public
+    constructor Create(AOwner:TComponent); {$IFNDEF OBJECTS_ONLY} override; {$ENDIF}
+    Destructor Destroy; override;
+    Procedure Init(HTTPHeader:PHeaderInfo);
+    // 2.0.12
+    Function HeaderGetString(ServerVariable:AnsiString):AnsiString;
+    Function HeaderGetInteger(ServerVariable:AnsiString):Integer;
+    Function HeaderDataExists(ServerVariable:AnsiString):Boolean;
+    Function QueryGetString(ServerVariable:AnsiString):AnsiString;
+    Function QueryGetInteger(ServerVariable:AnsiString):Integer;
+    Function QueryDataExists(ServerVariable:AnsiString):Boolean;
+
+    Function AddHeader(ServerVariable, VariableValue:AnsiString):Boolean;
+    Function SetHeader(ServerVariable, VariableValue:AnsiString):Boolean;
+    Function ToStrings:TStrings;
+
+  published
+  end;
+
+implementation
+
+Uses
+   SysUtils
+   {$IFDEF DELPHI2009UP},AnsiStrings{$ENDIF};
+
+constructor TDXHTTPHeaderTools.Create(AOwner:TComponent);
+Begin
+   Inherited Create(AOwner);
+end;
+
+Destructor TDXHTTPHeaderTools.Destroy;
+Begin
+   Inherited Destroy;
+end;
+
+Procedure TDXHTTPHeaderTools.Init(HTTPHeader:PHeaderInfo);
+Begin
+   fSessionHeader:=HTTPHeader;
+   fSessionHeader^.ContentLength:=0;
+End;
+
+Function TDXHTTPHeaderTools.HeaderGetString(ServerVariable:AnsiString):AnsiString;
+Var
+   Ch:AnsiChar;
+   Ws:AnsiString;
+   URI2:AnsiString;
+
+Begin
+   Result:='';
+   Ws:=UpperCase(ServerVariable);
+   If Ws='' then Exit; //2.0.11
+   If (Copy(Ws,1,5)='HTTP_') then Begin
+      Delete(Ws,1,5); // 3.0
+   End;
+   Ch:=Ws[1];
+   With fSessionHeader^ do
+   Case Ch of
+      'A':If (Ws='ALLOW') then Result:=Allow
+          Else If (Ws='ALL_RAW') then Result:=All_Raw // .9k & 2.3b
+          Else If (Ws='ALL_HTTP') then Result:=All_HTTP // 3.0
+          Else If (Ws='AUTHTYPE') or (Ws='AUTH_TYPE') then Result:=AuthType
+          Else If (Ws='AUTHNAME') or (Ws='AUTH_NAME') or (Ws='AUTH_USER') then Result:=AuthName
+          Else If (Ws='AUTHPASS') or (Ws='AUTH_PASS') or (Ws='AUTH_PASSWORD') then Result:=AuthPass
+          Else If (Ws='ACCEPT') then Result:=Accept
+          Else If (Ws='ACCEPT_CHARSET') or (Ws='ACCEPTCHARSET') then Result:=AcceptCharset
+          Else If (Ws='ACCEPT_ENCODING') or (Ws='ACCEPTENCODING') then Result:=AcceptEncoding
+          Else If (Ws='ACCEPT_LANGUAGE') or (Ws='ACCEPTLANGUAGE') then Result:=AcceptLanguage
+          Else Result := FindUnknownHeader(ServerVariable);
+      'C':If (Ws='CONTENT_LENGTH') or (Ws='CONTENTLENGTH') then Result:=Ansi_IntToStr(ContentLength)
+          Else If (Ws='CACHECONTROL') or (Ws='CACHE_CONTROL') then Result:=CacheControl
+          Else If (Ws='CACHE_INFO') then Result:=CacheInfo
+          Else If (Ws='CONNECTION') then Result:=Connection
+          Else If (Ws='CONTENT_TYPE') or (Ws='CONTENTTYPE') then Result:=ContentType
+          Else If (Ws='CLIENTNAME') or (Ws='CLIENT_NAME') then Result:=ClientName
+          Else If (Ws='CLIENTADDR') or (Ws='CLIENT_ADDR') then Result:=ClientAddr
+          Else If (Ws='COOKIE') then Result:=Cookie
+          Else Result := FindUnknownHeader(ServerVariable);
+      'D':If (Ws='DATE') then Result:=Date
+          Else Result := FindUnknownHeader(ServerVariable);
+      'F':If (Ws='FROM') then Result:=From
+          Else If (Ws='FORWARDED') then Result:=Forwarded
+          Else If (Ws='FORWARDED_FOR') then Result:=ForwardedFor
+          Else Result := FindUnknownHeader(ServerVariable);
+      'H':If (Ws='HOST') then Begin
+             Result:=Host;
+             If Pos(AnsiChar('@'),Result)>0 then Delete(Result,1,Pos(AnsiChar(':'),Result));
+             If Pos(AnsiChar(':'),Result)>0 then Delete(Result,Pos(AnsiChar(':'),Result),Length(Result));
+          End
+          Else If (Ws='HTTPS') then Result:='off'
+          Else Result := FindUnknownHeader(ServerVariable);
+      'I':If (Ws='IFMODSINCE') or (Ws='IF_MODSINCE') or (Ws='IF_MOD_SINCE') then Result:=IfModSince
+          Else If (Ws='IFMATCH') or (Ws='IF_MATCH') then Result:=IfMatch
+          Else If (Ws='IFNONEMATCH') or (Ws='IF_NONEMATCH') or (Ws='IF_NONE_MATCH') then Result:=IfNoneMatch
+          Else If (Ws='IFRANGE') or (Ws='IF_RANGE') then Result:=IfRange
+          Else If (Ws='IFUNMODSINCE') or (Ws='IF_UNMODSINCE') or (Ws='IF_UNMOD_SINCE') then Result:=IfUnModSince
+          Else Result := FindUnknownHeader(ServerVariable);
+      'K':If (Ws='KEEPALIVE') or (Ws='KEEP_ALIVE') then Result:=KeepAlive
+          Else Result := FindUnknownHeader(ServerVariable);
+      'M':If (Ws='METHOD') then Result:=Method
+          Else If (Ws='MAXFORWARDS') or (Ws='MAX_FORWARDS') then Result:=MaxForwards
+          Else Result := FindUnknownHeader(ServerVariable);
+      'P':If (Ws='PROTOCOL') then Result:=Protocol
+          Else If (Ws='PRAGMA') then Result:=Pragma
+          Else if (Ws='PROXYAUTHORIZATION') or (Ws='PROXY_AUTHORIZATION') then Result:=ProxyAuthorization
+          Else if (Ws='PUBLIC') then Result:=PublicCache
+          Else if (Ws='PROXY_CONNECTION') then Result:=ProxyConnection
+          Else Result := FindUnknownHeader(ServerVariable);
+      'Q':If (Ws='QUERYSTRING') or (Ws='QUERY_STRING') then Result:=QueryString
+          Else Result := FindUnknownHeader(ServerVariable);
+      'R':If (Ws='RANGE') then Result:=Range
+          Else If (Ws='REFERER') or (Ws='REFERRER') or (Ws='REFFERER') then Result:=Referer
+          Else If (Ws='REQUEST_METHOD') then Result:=Method
+          Else If (Ws='REMOTE_NAME') or (Ws='REMOTE_HOST') then Result:=ClientName
+          Else If (Ws='REMOTE_ADDR') then Result:=ClientAddr
+          Else If (Ws='REQUEST_URI') then Begin
+             URI2:=ToUnixSlashes(URI);
+             If Pos(AnsiChar('/'),URI2)=0 then Result:=AnsiChar('/')+URI2
+             Else Begin
+                If Copy(URI2,1,1)<>'/' then URI2:=AnsiChar('/')+URI2;
+                Result:=URI2; // 4/2/2002 Copy(URI2,1,PosLastChar('/',URI2));
+             End;
+          End
+          Else Result := FindUnknownHeader(ServerVariable);
+      'S':If (Ws='SERVER_PROTOCOL') then Result:=Protocol
+          Else If (Ws='SERVER_NAME') then Begin
+             Result:=Host;
+             If Pos(AnsiChar('@'),Result)>0 then Delete(Result,1,Pos(AnsiChar(':'),Result));
+             If Pos(AnsiChar(':'),Result)>0 then Delete(Result,Pos(AnsiChar(':'),Result),Length(Result));
+          End
+          Else If (Ws='SERVER_PORT_SECURE') then Result:=AnsiChar('0')
+          Else Result := FindUnknownHeader(ServerVariable);
+      'T':If (Ws='TRANSFERENCODING') or (Ws='TRANSFER_ENCODING') then Result:=TransferEncoding
+          Else Result := FindUnknownHeader(ServerVariable);
+      'U':If (Ws='URI') then Begin
+             URI2:=ToUnixSlashes(URI);
+             If Pos(AnsiChar('/'),URI2)=0 then Result:=AnsiChar('/')+URI2
+             Else Begin
+                If Copy(URI2,1,1)<>AnsiChar('/') then URI2:=AnsiChar('/')+URI2;
+                Result:=URI2; // 4/2/2002 Copy(URI2,1,PosLastChar('/',URI2));
+             End;
+          End
+          Else If (Ws='URL') then Begin
+             URI2:=ToUnixSlashes(URI);
+             If Copy(URI2,1,1)=AnsiChar('/') then Result:=URI2
+             Else Result:=AnsiChar('/')+URI2;
+          End
+          Else If (Ws='UPGRADE') then Result:=Upgrade
+          Else if (Ws='USERAGENT') or (Ws='USER_AGENT') then Result:=UserAgent
+          Else Result := FindUnknownHeader(ServerVariable);
+      'V':If (Ws='VIA') then Result:=Via
+          Else Result := FindUnknownHeader(ServerVariable);
+      'W':If (Ws='WEFERER') then Result:=Weferer
+          Else If (Ws='WSER_AGENT') then Result:=WserAgent
+          Else Result := FindUnknownHeader(ServerVariable);
+       Else
+          Result := FindUnknownHeader(ServerVariable);
+   End;
+End;
+
+Function TDXHTTPHeaderTools.HeaderGetInteger(ServerVariable:AnsiString):Integer;
+Var
+   Ch:AnsiChar;
+   Ws:AnsiString;
+
+Begin
+   Result:=0;
+   Ws:=UpperCase(ServerVariable);
+   If Ws='' then Exit; // 2.0.11
+   Ch:=Ws[1];
+   With fSessionHeader^ do
+   Case Ch of
+      'C':If (Ws='CONTENT_LENGTH') or (Ws='CONTENTLENGTH') then Result:=ContentLength;
+   End;
+End;
+
+Function TDXHTTPHeaderTools.HeaderDataExists(ServerVariable:AnsiString):Boolean;
+Begin
+   Result:=HeaderGetString(ServerVariable)<>'';
+End;
+
+// 2.0.12
+Function TDXHTTPHeaderTools.QueryGetString(ServerVariable:AnsiString):AnsiString;
+Var
+   Ws:AnsiString;
+   Tmp:AnsiString;
+   Value:AnsiString;
+
+Begin
+   Result:='';
+   Tmp:=fSessionHeader^.QueryString+AnsiChar('&');
+   While (Pos(AnsiChar('&'),Tmp)>0) do Begin
+      Ws:=Copy(Tmp,1,Pos(AnsiChar('&'),Tmp)-1);
+      Delete(Tmp,1,Pos(AnsiChar('&'),Tmp));
+      Value:=Copy(Ws,1,Pos(AnsiChar('='),Ws)-1);
+      Delete(Ws,1,Pos(AnsiChar('='),Ws));
+      If UpperCase(Value)=UpperCase(ServerVariable) then Begin
+         If Result<>'' then Result:=Result+AnsiChar(#13)+AnsiChar(#10)+Ws
+         Else Result:=Ws;
+      End;
+   End;
+End;
+
+Function TDXHTTPHeaderTools.QueryGetInteger(ServerVariable:AnsiString):Integer;
+Var
+   Ws:AnsiString;
+
+Begin
+   Ws:=QueryGetString(ServerVariable);
+   If (Ws<>'') and (IsNumericString(Ws)) then Result:=Ansi_StrToInt(Ws)
+   Else Result:=-1;
+End;
+
+Function TDXHTTPHeaderTools.QueryDataExists(ServerVariable:AnsiString):Boolean;
+Begin
+   Result:=QueryGetString(ServerVariable)<>'';
+End;
+
+Function TDXHTTPHeaderTools.AddHeader(ServerVariable, VariableValue:AnsiString):Boolean;
+Var
+   Ch:AnsiChar;
+   Ws:AnsiString;
+
+  Procedure AddToUnknown; // 7-27
+  Begin
+     If fSessionHeader^.Unknown='' then fSessionHeader^.Unknown:=ServerVariable+AnsiString(': ')+VariableValue
+     Else fSessionHeader^.Unknown:=fSessionHeader^.Unknown+AnsiString(#13#10)+ServerVariable+AnsiString(': ')+VariableValue;
+  End;
+
+Begin
+   Result:=False;
+   Ws:=Uppercase(ServerVariable);
+   If Ws='' then Exit;
+// 7-27
+   Ws:=StringReplace(Ws,AnsiChar('-'),AnsiChar('_'),[rfReplaceAll]);
+   Ch:=Ws[1];
+   With fSessionHeader^ do
+   Case Ch of
+      'A':If (Ws='ALLOW') then Allow:=VariableValue
+          Else If (Ws='AUTHTYPE') or (Ws='AUTH_TYPE') then AuthType:=VariableValue
+          Else If (Ws='AUTHNAME') or (Ws='AUTH_NAME') then AuthName:=VariableValue
+          Else If (Ws='AUTHPASS') or (Ws='AUTH_PASS') then AuthPass:=VariableValue
+          Else If (Ws='ACCEPT') then Accept:=VariableValue
+          Else If (Ws='ACCEPT_CHARSET') or (Ws='ACCEPTCHARSET') then AcceptCharset:=VariableValue
+          Else If (Ws='ACCEPT_ENCODING') or (Ws='ACCEPTENCODING') then AcceptEncoding:=VariableValue
+          Else If (Ws='ACCEPT_LANGUAGE') or (Ws='ACCEPTLANGUAGE') then AcceptLanguage:=VariableValue
+          Else AddToUnknown;
+      'C':If (Ws='CONTENT_LENGTH') or (Ws='CONTENTLENGTH') then ContentLength:=Ansi_StrToInt(VariableValue)
+          Else If (Ws='CACHECONTROL') or (Ws='CACHE_CONTROL') then CacheControl:=VariableValue
+          Else If (Ws='CACHE_INFO') then CacheInfo:=VariableValue
+          Else If (Ws='CONNECTION') then Connection:=VariableValue
+          Else If (Ws='CONTENT_TYPE') or (Ws='CONTENTTYPE') then ContentType:=VariableValue
+          Else If (Ws='CLIENTNAME') or (Ws='CLIENT_NAME') then ClientName:=VariableValue
+          Else If (Ws='CLIENTADDR') or (Ws='CLIENT_ADDR') then ClientAddr:=VariableValue
+          Else If (Ws='COOKIE') then Cookie:=VariableValue
+          Else AddToUnknown;
+      'D':If (Ws='DATE') then Date:=VariableValue
+          Else AddToUnknown;
+      'F':If (Ws='FROM') then From:=VariableValue
+          Else If (Ws='FORWARDED') then Forwarded:=VariableValue
+          Else If (Ws='FORWARDED_FOR') then ForwardedFor:=VariableValue
+          Else AddToUnknown;
+      'H':If (Ws='HOST') then Host:=VariableValue
+          Else AddToUnknown;
+      'I':If (Ws='IFMODSINCE') or (Ws='IF_MODSINCE') or (Ws='IF_MOD_SINCE') then IfModSince:=VariableValue
+          Else If (Ws='IFMATCH') or (Ws='IF_MATCH') then IfMatch:=VariableValue
+          Else If (Ws='IFNONEMATCH') or (Ws='IF_NONEMATCH') or (Ws='IF_NONE_MATCH') then IfNoneMatch:=VariableValue
+          Else If (Ws='IFRANGE') or (Ws='IF_RANGE') then IfRange:=VariableValue
+          Else If (Ws='IFUNMODSINCE') or (Ws='IF_UNMODSINCE') or (Ws='IF_UNMOD_SINCE') then IfUnModSince:=VariableValue
+          Else AddToUnknown;
+      'K':If (Ws='KEEPALIVE') or (Ws='KEEP_ALIVE') then KeepAlive:=VariableValue
+          Else AddToUnknown;
+      'M':If (Ws='METHOD') then Method:=VariableValue
+          Else If (Ws='MAXFORWARDS') or (Ws='MAX_FORWARDS') then MaxForwards:=VariableValue
+          Else AddToUnknown;
+      'P':If (Ws='PROTOCOL') then Protocol:=VariableValue
+          Else If (Ws='PRAGMA') then Pragma:=VariableValue
+          Else if (Ws='PROXYAUTHORIZATION') or (Ws='PROXY_AUTHORIZATION') then ProxyAuthorization:=VariableValue
+          Else if (Ws='PUBLIC') then PublicCache:=VariableValue
+          Else if (Ws='PROXY_CONNECTION') then ProxyConnection:=VariableValue
+          Else AddToUnknown;
+      'Q':If (Ws='QUERYSTRING') or (Ws='QUERY_STRING') then QueryString:=VariableValue
+          Else AddToUnknown;
+      'R':If (Ws='RANGE') then Range:=VariableValue
+          Else If (Ws='REFERER') or (Ws='REFERRER') or (Ws='REFFERER') then Referer:=VariableValue
+          Else AddToUnknown;
+      'U':If (Ws='URI') then URI:=VariableValue
+          Else If (Ws='UPGRADE') then Upgrade:=VariableValue
+          Else if (Ws='USERAGENT') or (Ws='USER_AGENT') then UserAgent:=VariableValue
+          Else AddToUnknown;
+      'T':If (Ws='TRANSFERENCODING') or (Ws='TRANSFER_ENCODING') then TransferEncoding:=VariableValue
+          Else AddToUnknown;
+      'V':If (Ws='VIA') then Via:=VariableValue // 7-27
+          Else AddToUnknown;
+      'W':If (Ws='WEFERER') then Weferer:=VariableValue // 7-27
+          Else If (Ws='WSER_AGENT') then WserAgent:=VariableValue // 7-27
+          Else AddToUnknown;
+     Else
+       AddToUnknown;
+   End;//case
+   Result:=True;
+End;
+
+Function TDXHTTPHeaderTools.SetHeader(ServerVariable, VariableValue:AnsiString):Boolean;
+Begin
+   Result:=AddHeader(ServerVariable, VariableValue);
+End;
+
+Function TDXHTTPHeaderTools.FindUnknownHeader(ServerVariable:AnsiString):AnsiString;
+var
+   line, buf:AnsiString;
+   i : Integer;
+
+Begin
+   line:=fSessionHeader^.Unknown;
+   i := Pos(ServerVariable, line);
+   if i <> 0 then
+   Begin
+      buf := Copy(line, i, Length(line));
+      i := Pos(AnsiString(#13#10), buf);
+      buf := Copy(buf, 0, i-1);
+      i := Pos(AnsiChar(#32), buf);
+      Result := Copy(buf, i, Length(buf));
+   End; //IF
+End;
+
+Procedure TDXHTTPHeaderTools.ReplaceUnknownHeader(ServerVariable, VariableValue:AnsiString);
+var line:PAnsiString;
+   str, buf:AnsiString;
+   i, k, m:Integer;
+Begin
+   if Not UnknownHeaderExists(ServerVariable) then Exit;
+   line:=@fSessionHeader^.Unknown;
+   k := Pos(ServerVariable, line^);
+   if k <> 0 then
+   Begin
+      str := Copy(line^, k, Length(line^));
+      m := Pos(AnsiString(#13#10), str);
+      buf := Copy(str, 0, k-1);
+      i := Pos(AnsiChar(#32), buf);
+      k := k + i;
+      Delete(line^, k, m);
+      Insert(VariableValue, line^, k);
+   End;
+End;
+
+Function TDXHTTPHeaderTools.UnknownHeaderExists(ServerVariable:AnsiString):Boolean;
+Begin
+   if ServerVariable = '' then Result:=False
+   Else if fSessionHeader^.Unknown = '' then Result:=False
+   Else if Pos(ServerVariable, fSessionHeader^.Unknown) = 0 then Result:=False
+   Else Result:=True;
+End;
+
+Function TDXHTTPHeaderTools.ToStrings:TStrings;
+
+   procedure AddIntoStringList(res:TStrings; AValue: AnsiString);
+   begin
+     Res.Add({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(AValue));
+   end;
+
+var res:TStrings;
+    endch:AnsiString;
+    split :AnsiString;
+//    CleanLoop:Integer;
+
+Begin
+   split:=': ';
+   endch :='';// 7-27 #13#10;
+   res := TStringList.Create;
+   With fSessionHeader^ do
+   Begin
+    if Allow <> '' then
+       AddIntoStringList(Res,'ALLOW'+split+Allow+endch);
+    if AuthType <> '' then
+       AddIntoStringList(Res,'AUTHTYPE'+split+AuthType+endch);
+    if AuthName <> '' then
+       AddIntoStringList(Res,'AUTHNAME'+split+AuthName+endch);
+    if AuthPass <> '' then
+       AddIntoStringList(Res,'AUTHPASS'+split+AuthPass+endch);
+    if Accept <> '' then
+       AddIntoStringList(Res,'ACCEPT'+split+Accept+endch);
+    if AcceptCharset <> '' then
+       AddIntoStringList(Res,'ACCEPT-CHARSET'+split+AcceptCharset+endch);
+    if AcceptEncoding <> '' then
+       AddIntoStringList(Res,'ACCEPT-ENCODING'+split+AcceptEncoding+endch);
+    if AcceptLanguage <> '' then
+       AddIntoStringList(Res,'ACCEPT-LANGUAGE'+split+AcceptLanguage+endch);
+    if ContentLength <> 0 then
+       AddIntoStringList(Res,'CONTENT-LENGTH'+split+Ansi_IntToStr(ContentLength)+endch);
+    if CacheControl <> '' then // 7-27
+       AddIntoStringList(Res,'CACHE-CONTROL'+split+CacheControl+endch);
+    if CacheInfo <> '' then // 7-27
+       AddIntoStringList(Res,'CACHE-INFO'+split+CacheInfo+endch);
+    if Connection <> '' then
+       AddIntoStringList(Res,'CONNECTION'+split+Connection+endch);
+    if ContentType <> '' then
+       AddIntoStringList(Res,'CONTENT-TYPE'+split+ContentType+endch);
+    if ClientName <> '' then
+       AddIntoStringList(Res,'CLIENTNAME'+split+ClientName+endch);
+    if ClientAddr <> '' then
+       AddIntoStringList(Res,'CLIENTADDR'+split+ClientAddr+endch);
+    if Cookie <> '' then
+       AddIntoStringList(Res,'COOKIE'+split+Cookie+endch);
+    if Date <> '' then
+       AddIntoStringList(Res,'DATE'+split+Date+endch);
+    if From <> '' then
+       AddIntoStringList(Res,'FROM'+split+From+endch);
+    if Forwarded <> '' then
+       AddIntoStringList(Res,'FORWARDED'+split+Forwarded+endch);
+    if ForwardedFor <> '' then
+       AddIntoStringList(Res,'FORWARDED-FOR'+split+ForwardedFor+endch);
+    if Host <> '' then
+       AddIntoStringList(Res,'HOST'+split+Host+endch);
+    if IfModSince <> '' then
+       AddIntoStringList(Res,'IFMODSINCE'+split+IfModSince+endch);
+    if IfMatch <> '' then
+       AddIntoStringList(Res,'IFMATCH'+split+IfMatch+endch);
+    if IfNoneMatch <> '' then
+       AddIntoStringList(Res,'IFNONEMATCH'+split+IfNoneMatch+endch);
+    if IfRange <> '' then
+       AddIntoStringList(Res,'IFRANGE'+split+IfRange+endch);
+    if IfUnModSince <> '' then
+       AddIntoStringList(Res,'IFUNMODSINCE'+split+IfUnModSince+endch);
+    if KeepAlive <> '' then
+       AddIntoStringList(Res,'KEEPALIVE'+split+KeepAlive+endch);
+    if Method <> '' then
+       AddIntoStringList(Res,'METHOD'+split+Method+endch);
+    if MaxForwards <> '' then
+       AddIntoStringList(Res,'MAXFORWARDS'+split+MaxForwards+endch);
+    if Protocol <> '' then
+       AddIntoStringList(Res,'PROTOCOL'+split+Protocol+endch);
+    if ProxyConnection <> '' then
+       AddIntoStringList(Res,'PROXY-CONNECTION'+split+ProxyConnection+endch);
+    if Pragma <> '' then
+       AddIntoStringList(Res,'PRAGMA'+split+Pragma+endch);
+    if ProxyAuthorization <> '' then
+       AddIntoStringList(Res,'PROXYAUTHORIZATION'+split+ProxyAuthorization+endch);
+    if PublicCache <> '' then
+       AddIntoStringList(Res,'PUBLIC'+split+PublicCache+endch);
+    if QueryString <> '' then
+       AddIntoStringList(Res,'QUERYSTRING'+split+QueryString+endch);
+    if Range <> '' then
+       AddIntoStringList(Res,'RANGE'+split+Range+endch);
+    if Referer <> '' then
+       AddIntoStringList(Res,'REFERER'+split+Referer+endch);
+    if URI <> '' then
+       AddIntoStringList(Res,'URI'+split+URI+endch);
+    if Upgrade <> '' then
+       AddIntoStringList(Res,'UPGRADE'+split+Upgrade+endch);
+    if UserAgent <> '' then
+       AddIntoStringList(Res,'USERAGENT'+split+UserAgent+endch);
+    if TransferEncoding <> '' then
+       AddIntoStringList(Res,'TRANSFERENCODING'+split+TransferEncoding+endch);
+    if Via <> '' then
+       AddIntoStringList(Res,'VIA'+split+Via+endch);
+    if Weferer <> '' then
+       AddIntoStringList(Res,'WEFERER'+split+Weferer+endch);
+    if WserAgent <> '' then
+       AddIntoStringList(Res,'WSER-AGENT'+split+WserAgent+endch);
+    if Unknown <> '' then
+       AddIntoStringList(Res,Unknown+endch);
+   End; //With
+{   CleanLoop:=res.Count;
+   While CleanLoop>0 do Begin
+      if res[CleanLoop-1]='' then res.delete(CleanLoop-1);
+      Dec(CleanLoop);
+   End;}
+   Result:=res;
+End;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXHTTPServerCore.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXHTTPServerCore.pas
new file mode 100644
index 0000000..4f38e44
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXHTTPServerCore.pas	
@@ -0,0 +1,767 @@
+unit uRODXHTTPServerCore;
+
+interface
+
+///////////////////////////////////////////////////////////////////////////////
+//    Component: TDXHTTPServerCore
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description:
+// ========================================================================
+///////////////////////////////////////////////////////////////////////////////
+
+{$I uRODXSock.def}
+
+uses
+{$IFDEF CODE_TRACER}
+  DXCodeTracer,
+{$ENDIF}
+  uRODXSocket, // 3.0
+  Classes,
+  uRODXServerCore,
+  uRODXISAPI,
+  uRODXHTTPHeaderTools;
+
+// RFC2068, Response Codes
+Const
+   MaxStatusCodes=40;
+   StatusCodes:array[0..MaxStatusCodes] of record
+      Code:Integer;
+      Msg:AnsiString
+   end =
+  ((Code:100; Msg:'Continue'),
+   (Code:101; Msg:'Switching Protocols'),
+   (Code:200; Msg:'OK'),
+   (Code:201; Msg:'Created'),
+   (Code:202; Msg:'Accepted'),
+   (Code:203; Msg:'Non-Authoritative Information'),
+   (Code:204; Msg:'No Content'),
+   (Code:205; Msg:'Reset Content'),
+   (Code:206; Msg:'Partial Content'),
+   (Code:300; Msg:'Multiple Choices'),
+   (Code:301; Msg:'Moved Permanently'),
+   (Code:302; Msg:'Moved Temporarily'),
+   (Code:303; Msg:'See Other'),
+   (Code:304; Msg:'Not Modified'),
+   (Code:305; Msg:'Use Proxy'),
+   (Code:306; Msg:'Unused'),
+   (Code:307; Msg:'Temporary Redirect'),
+   (Code:400; Msg:'Bad Request'),
+   (Code:401; Msg:'Unauthorized'),
+   (Code:402; Msg:'Payment Required'),
+   (Code:403; Msg:'Forbidden'),
+   (Code:404; Msg:'Not Found'),
+   (Code:405; Msg:'Method Not Allowed'),
+   (Code:406; Msg:'Not Acceptable'),
+   (Code:407; Msg:'Proxy Authentication Required'),
+   (Code:408; Msg:'Request Time-out'),
+   (Code:409; Msg:'Conflict'),
+   (Code:410; Msg:'Gone'),
+   (Code:411; Msg:'Length Required'),
+   (Code:412; Msg:'Precondition Failed'),
+   (Code:413; Msg:'Request Entity Too Large'),
+   (Code:414; Msg:'Request-URI Too Large'),
+   (Code:415; Msg:'Unsupported Media Type'),
+   (Code:416; Msg:'Requested Range Not Satisfiable'),
+   (Code:417; Msg:'Expectation Failed'),
+   (Code:500; Msg:'Internal Server Error'),
+   (Code:501; Msg:'Not Implemented'),
+   (Code:502; Msg:'Bad Gateway'),
+   (Code:503; Msg:'Service Unavailable'),
+   (Code:504; Msg:'Gateway Time-out'),
+   (Code:505; Msg:'HTTP Version Not Supported'));
+
+Type
+  HTTPTBasicEvent = procedure(ClientThread:TDXClientThread;HeaderInfo:PHeaderInfo;Var EnableKeepAlive:Boolean) of object;
+  HTTPTOtherEvent = procedure(ClientThread:TDXClientThread;HeaderInfo:PHeaderInfo;var Handled:Boolean) of object;
+
+  TDXHTTPServerCore = class(TDXServerCore)
+  private
+    fOnCommandGET:HTTPTBasicEvent;         // GET <file> HTTP/1.0
+    fOnCommandPOST:HTTPTBasicEvent;        // POST <file> HTTP/1.0
+    fOnCommandHEAD:HTTPTBasicEvent;        // HEAD <file> HTTP/1.0
+    fOnCommandCHECKOUT:HTTPTBasicEvent;
+    fOnCommandSHOWMETHOD:HTTPTBasicEvent;
+    fOnCommandPUT:HTTPTBasicEvent;
+    fOnCommandDELETE:HTTPTBasicEvent;
+    fOnCommandLINK:HTTPTBasicEvent;
+    fOnCommandUNLINK:HTTPTBasicEvent;
+    fOnCommandCHECKIN:HTTPTBasicEvent;
+    fOnCommandTEXTSEARCH:HTTPTBasicEvent;
+    fOnCommandSPACEJUMP:HTTPTBasicEvent;
+    fOnCommandSEARCH:HTTPTBasicEvent;
+    fOnCommandOPTIONS:HTTPTBasicEvent;
+    fOnCommandTRACE:HTTPTBasicEvent;
+    fOnCommandCONNECT:HTTPTBasicEvent;
+    fOnCommandPATCH:HTTPTBasicEvent;
+    fOnCommandOther:HTTPTOtherEvent;
+    fEventArray:TList;
+    fiTimeout:Cardinal;
+    fSupportKeepAlive:Boolean;
+    fDXISAPI:TDXISAPI;
+  protected
+    Procedure SetOnCommandGET(value:HTTPTBasicEvent);
+    Procedure SetOnCommandPOST(value:HTTPTBasicEvent);
+    Procedure SetOnCommandHEAD(value:HTTPTBasicEvent);
+    Procedure SetOnCommandCHECKOUT(value:HTTPTBasicEvent);
+    Procedure SetOnCommandSHOWMETHOD(value:HTTPTBasicEvent);
+    Procedure SetOnCommandPUT(value:HTTPTBasicEvent);
+    Procedure SetOnCommandDELETE(value:HTTPTBasicEvent);
+    Procedure SetOnCommandLINK(value:HTTPTBasicEvent);
+    Procedure SetOnCommandUNLINK(value:HTTPTBasicEvent);
+    Procedure SetOnCommandCHECKIN(value:HTTPTBasicEvent);
+    Procedure SetOnCommandTEXTSEARCH(value:HTTPTBasicEvent);
+    Procedure SetOnCommandSPACEJUMP(value:HTTPTBasicEvent);
+    Procedure SetOnCommandSEARCH(value:HTTPTBasicEvent);
+    Procedure SetOnCommandOPTIONS(value:HTTPTBasicEvent);
+    Procedure SetOnCommandTRACE(value:HTTPTBasicEvent);
+    Procedure SetOnCommandCONNECT(value:HTTPTBasicEvent);
+    Procedure SetOnCommandPATCH(value:HTTPTBasicEvent);
+  public
+    constructor Create(AOwner:TComponent); {$IFNDEF OBJECTS_ONLY} override; {$ENDIF}
+    destructor Destroy; override;
+    procedure ProcessSession(ClientThread:TDXClientThread);
+    Procedure AddBasicEvent(Command:AnsiString;EventProc:HTTPTBasicEvent);
+    Function HeaderText(StatusCode:Integer):AnsiString; //2.0.12
+    procedure Start; override;
+    procedure Stop; override;
+  published
+    property Timeout:Cardinal read fiTimeout
+                           write fiTimeout;
+    property SupportKeepAlive:Boolean read fSupportKeepAlive
+                                      write fSupportKeepAlive;
+    property OnCommandGET: HTTPTBasicEvent read fOnCommandGET
+                                           write SetOnCommandGET;
+    property OnCommandPOST: HTTPTBasicEvent read fOnCommandPOST
+                                            write SetOnCommandPOST;
+    property OnCommandHEAD: HTTPTBasicEvent read fOnCommandHEAD
+                                            write SetOnCommandHEAD;
+    property OnCommandCHECKOUT: HTTPTBasicEvent read fOnCommandCHECKOUT
+                                                write SetOnCommandCHECKOUT;
+    property OnCommandSHOWMETHOD: HTTPTBasicEvent read fOnCommandSHOWMETHOD
+                                                  write SetOnCommandSHOWMETHOD;
+    property OnCommandPUT: HTTPTBasicEvent read fOnCommandPUT
+                                           write SetOnCommandPUT;
+    property OnCommandDELETE: HTTPTBasicEvent read fOnCommandDELETE
+                                              write SetOnCommandDELETE;
+    property OnCommandLINK: HTTPTBasicEvent read fOnCommandLINK
+                                            write SetOnCommandLINK;
+    property OnCommandUNLINK: HTTPTBasicEvent read fOnCommandUNLINK
+                                              write SetOnCommandUNLINK;
+    property OnCommandCHECKIN: HTTPTBasicEvent read fOnCommandCHECKIN
+                                               write SetOnCommandCHECKIN;
+    property OnCommandTEXTSEARCH: HTTPTBasicEvent read fOnCommandTEXTSEARCH
+                                                  write SetOnCommandTEXTSEARCH;
+    property OnCommandSPACEJUMP: HTTPTBasicEvent read fOnCommandSPACEJUMP
+                                                 write SetOnCommandSPACEJUMP;
+    property OnCommandSEARCH: HTTPTBasicEvent read fOnCommandSEARCH
+                                              write SetOnCommandSEARCH;
+    property OnCommandOPTIONS: HTTPTBasicEvent read fOnCommandOPTIONS
+                                               write SetOnCommandOPTIONS;
+    property OnCommandTRACE: HTTPTBasicEvent read fOnCommandTRACE
+                                             write SetOnCommandTRACE;
+    property OnCommandCONNECT: HTTPTBasicEvent read fOnCommandCONNECT
+                                             write SetOnCommandCONNECT;
+    property OnCommandPATCH: HTTPTBasicEvent read fOnCommandPATCH
+                                             write SetOnCommandPATCH;
+    property OnCommandOther: HTTPTOtherEvent read fOnCommandOther
+                                             write fOnCommandOther;
+    property ISAPIServer: TDXISAPI read fDXISAPI
+                                   write fDXISAPI;
+  end;
+
+implementation
+
+Uses
+   uRODXSock,
+   SysUtils,
+   {$IFDEF DELPHI2009UP}AnsiStrings,{$ENDIF}
+   uRODXString;
+
+Type
+  PHTTPBasicEvent=^THTTPBasicEvent;
+  THTTPBasicEvent=record
+     Tag:Integer;
+     Command:AnsiString;
+     EventProcedure:HTTPTBasicEvent;
+  End;
+
+///////////////////////////////////////////////////////////////////////////////
+//CREATE:
+//       Define the Default Port number to Listen On.
+///////////////////////////////////////////////////////////////////////////////
+constructor TDXHTTPServerCore.Create(AOwner:TComponent);
+begin
+   inherited Create(AOwner);
+   ServerPort:=80;
+   fEventArray:=TList.Create;
+   fiTimeout:=30000;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+//DESTROY:
+//        Destory this object.
+///////////////////////////////////////////////////////////////////////////////
+destructor TDXHTTPServerCore.Destroy;
+Var
+   PBasicEvent:PHTTPBasicEvent;
+
+begin
+   If Assigned(fEventArray) then Begin
+      While fEventArray.Count>0 do Begin
+         Case PHTTPBasicEvent(fEventArray[0])^.Tag of
+            1:Begin
+              PBasicEvent:=fEventArray[0];
+              Dispose(PBasicEvent);
+            End;
+         End;
+         fEventArray.Delete(0);
+      End;
+      fEventArray.Free;
+      fEventArray:=Nil;
+   End;
+   inherited Destroy;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+//ADDBASICEVENT:
+//              Allows you to dynamically assign a new command to the internal
+//              parser. This allows the servercore to support the 'pre-defined'
+//              OnCommand* events, plus you can add other commands dynamically
+//              at run-time in your application without requiring a source code
+//              modification to our components!
+//
+//              To make support easier for us, we ask that you use the Add*Event
+//              procedures to expand our code, reducing code changes when an
+//              upgrade is released!
+//
+//              See documentation for complete information on how this works.
+//
+//              Example Usage: AddBasicEvent('CDROM',MySpecialEvent);
+///////////////////////////////////////////////////////////////////////////////
+Procedure TDXHTTPServerCore.AddBasicEvent(Command:AnsiString;EventProc:HTTPTBasicEvent);
+Var
+   PBasicEvent:PHTTPBasicEvent;
+   Loop:Integer;
+
+Begin
+   Command:=Uppercase(Command);
+   Loop:=0;
+   While Loop<fEventArray.Count do Begin
+      If PHTTPBasicEvent(fEventArray[Loop])^.Command=Command then Begin
+         PHTTPBasicEvent(fEventArray[Loop])^.EventProcedure:=EventProc;
+         Exit;
+      End
+      Else Inc(Loop);
+   End;
+   New(PBasicEvent);
+   PBasicEvent^.Tag:=1;      // Denotes Event in fEventArray is a TBasicEvent!
+   PBasicEvent^.Command:=Command;
+   PBasicEvent^.EventProcedure:=EventProc;
+   fEventArray.Add(PBasicEvent);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandGET(value:HTTPTBasicEvent);
+Begin
+   fOnCommandGET:=Value;
+   AddBasicEvent('GET',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandPOST(value:HTTPTBasicEvent);
+Begin
+   fOnCommandPOST:=Value;
+   AddBasicEvent('POST',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandHEAD(value:HTTPTBasicEvent);
+Begin
+   fOnCommandHEAD:=Value;
+   AddBasicEvent('HEAD',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandCHECKOUT(value:HTTPTBasicEvent);
+Begin
+   fOnCommandCHECKOUT:=Value;
+   AddBasicEvent('CHECKOUT',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandSHOWMETHOD(value:HTTPTBasicEvent);
+Begin
+   fOnCommandSHOWMETHOD:=Value;
+   AddBasicEvent('SHOWMETHOD',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandPUT(value:HTTPTBasicEvent);
+Begin
+   fOnCommandPUT:=Value;
+   AddBasicEvent('PUT',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandDELETE(value:HTTPTBasicEvent);
+Begin
+   fOnCommandDELETE:=Value;
+   AddBasicEvent('DELETE',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandLINK(value:HTTPTBasicEvent);
+Begin
+   fOnCommandLINK:=Value;
+   AddBasicEvent('LINK',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandUNLINK(value:HTTPTBasicEvent);
+Begin
+   fOnCommandUNLINK:=Value;
+   AddBasicEvent('UNLINK',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandCHECKIN(value:HTTPTBasicEvent);
+Begin
+   fOnCommandCHECKIN:=Value;
+   AddBasicEvent('CHECKIN',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandTEXTSEARCH(value:HTTPTBasicEvent);
+Begin
+   fOnCommandTEXTSEARCH:=Value;
+   AddBasicEvent('TEXTSEARCH',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandSPACEJUMP(value:HTTPTBasicEvent);
+Begin
+   fOnCommandSPACEJUMP:=Value;
+   AddBasicEvent('SPACEJUMP',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandSEARCH(value:HTTPTBasicEvent);
+Begin
+   fOnCommandSEARCH:=Value;
+   AddBasicEvent('SEARCH',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandOPTIONS(value:HTTPTBasicEvent);
+Begin
+   fOnCommandOPTIONS:=Value;
+   AddBasicEvent('OPTIONS',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandTRACE(value:HTTPTBasicEvent);
+Begin
+   fOnCommandTRACE:=Value;
+   AddBasicEvent('TRACE',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandCONNECT(value:HTTPTBasicEvent);
+Begin
+   fOnCommandCONNECT:=Value;
+   AddBasicEvent('CONNECT',Value);
+End;
+
+Procedure TDXHTTPServerCore.SetOnCommandPATCH(value:HTTPTBasicEvent);
+Begin
+   fOnCommandPATCH:=Value;
+   AddBasicEvent('PATCH',Value);
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+//PROCESSSESSION:
+//               If you want this CORE to process the parsing, you should call
+//               this from your "OnNewConnect" implementation. This should be
+//               right after your call to SayHello (optional).
+///////////////////////////////////////////////////////////////////////////////
+procedure TDXHTTPServerCore.ProcessSession(ClientThread:TDXClientThread);
+var
+  S,WS:Ansistring;
+  HeaderInfo:PHeaderInfo;
+  Loop:Integer;
+  WasHandled:Boolean;
+  OutData:Pointer;
+  WantKeepAlive:Boolean;
+  //SmartTimeout:Integer; // 3.0a
+  ManualTimeout:Cardinal;
+
+  procedure NotHandled;
+  begin
+     ClientThread.Socket.Write(
+        AnsiString('HTTP/1.0 ')+HeaderText(400)+AnsiString(#13#10+#13#10+
+        '<html><head><title>Error</title>'+
+        '<body><h1>Error</h1><hr><h3>Unsupported Method <B>"')+
+        HeaderInfo^.Method+AnsiString('"</B></h3></body></head></html>'));
+  end;
+
+  Procedure BuildHeader(ClientHeader:AnsiString);
+  var
+     line,token1,token2:AnsiString;
+     Error:Integer;
+     Ch:AnsiChar;
+
+   Procedure AddToUnknown; // 7-27
+   Begin
+      If HeaderInfo^.Unknown='' then HeaderInfo^.Unknown:=token1+AnsiString(': ')+line
+      Else HeaderInfo^.Unknown:=HeaderInfo^.Unknown+AnsiString(#13#10)+token1+AnsiString(': ')+line;
+   End;
+
+  Begin
+     line:=ClientHeader;
+     With HeaderInfo^ do Begin
+        If RAW='' then Begin
+           RAW:=Line;
+           Method:=Uppercase(FetchByChar(line,#32,False));
+           URI:=(EscapeDecode(FetchByChar(line,#32,False)));
+           If Pos(AnsiChar('?'),URI)>0 then Begin
+              QueryString:=Copy(URI,Pos(AnsiChar('?'),URI)+1,Length(URI));
+              Delete(URI,Pos(AnsiChar('?'),URI),Length(URI));
+           End;
+           Protocol:=FetchByChar(line,#32,False);
+        End
+        Else Begin
+           ALL_RAW:=ALL_RAW+Line+AnsiString(#13#10);
+           token1:=Uppercase(FetchByChar(line,#32,False));
+           token2:=StringReplace(token1,AnsiChar('-'),AnsiChar('_'),[rfReplaceAll]);
+           ALL_HTTP:=ALL_HTTP+AnsiString('HTTP_')+Token2+Line+AnsiString(#13#10);
+           Ch:=Token1[1];
+           Case Ch of // 2.0
+              'A':if token1='ACCEPT:' then Accept:=Accept+Line
+                else if token1='ACCEPT-CHARSET:' then AcceptCharset:=Line
+                else if token1='ACCEPT-ENCODING:' then AcceptEncoding:=Line
+                else if token1='ACCEPT-LANGUAGE:' then AcceptLanguage:=Line
+                else if token1='ALLOW:' then Allow:=Line
+                else if token1='AUTHORIZATION:' then begin
+                   AuthType:=FetchByChar(line,#32,False); // Usually is "Basic"
+                   token2:=FetchByChar(line,#32,False);
+                   token2:=Base64ToString(token2); // Decode the "Basic" encoded AnsiString
+                   AuthName:=FetchByChar(token2,':',False);
+                   AuthPass:=FetchByChar(token2,';',False); // should actually be leftovers
+                end
+                Else AddToUnknown;
+              'C':if token1='CACHE-CONTROL:' then CacheControl:=Line
+                else if token1='CONNECTION:' then Connection:=Line
+                else if token1='CACHE-INFO:' then CacheInfo:=Line
+                else if token1='CONTENT-LENGTH:' then Begin
+                   Val({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(FetchByChar(line,#32,False)),ContentLength,Error);
+                end
+                else if token1='CONTENT-TYPE:' then ContentType:=Line
+                else if token1='COOKIE:' then Cookie:=Line
+                Else AddToUnknown;
+              'D':if token1='DATE:' then Date:=Line
+                Else AddToUnknown;
+              'F':if token1='FROM:' then From:=Line
+                Else if token1='FORWARDED:' then Forwarded:=Line
+                Else if token1='FORWARDED-FOR:' then ForwardedFor:=Line
+                Else AddToUnknown;
+              'H':if token1='HOST:' then Host:=Line
+                Else AddToUnknown;
+              'I':if token1='IF-MODIFIED-SINCE:' then IfModSince:=Line
+                else if token1='IF-MATCH:' then IfMatch:=Line
+                else if token1='IF-NONE-MATCH:' then IfNoneMatch:=Line
+                else if token1='IF-RANGE:' then IfRange:=Line
+                else if token1='IF-UNMODIFIED-SINCE:' then IfUnModSince:=Line
+                Else AddToUnknown;
+              'K':if token1='KEEP-ALIVE:' then KeepAlive:=Line
+                Else AddToUnknown;
+              'M':if token1='MAX-FORWARDS:' then MaxForwards:=Line
+                Else AddToUnknown;
+              'P':if token1='PUBLIC:' then PublicCache:=Line
+                else if token1='PRAGMA:' then Pragma:=Line
+                else if token1='PROXY-CONNECTION:' then ProxyConnection:=Line
+                else if token1='PROXY-AUTHORIZATION:' then ProxyAuthorization:=Line
+                Else AddToUnknown;
+              'R':if token1='REFERER:' then Referer:=Line
+                else if token1='RANGE:' then Range:=Line
+                Else AddToUnknown;
+              'T':if token1='TRANSFER-ENCODING:' then TransferEncoding:=Line
+                Else AddToUnknown;
+              'U':if token1='UPGRADE:' then Upgrade:=Line
+                else if token1='USER-AGENT:' then
+                UserAgent:=Trim(Line)
+                Else AddToUnknown;
+              'V':if token1='VIA:' then Via:=Line
+                Else AddToUnknown;
+              'W':if token1='WEFERER:' then Weferer:=Line
+                Else if token1='WSER-AGENT:' then WserAgent:=Line
+                Else AddToUnknown;
+              Else AddToUnknown;
+           End;
+        End;
+     end;
+  End;
+
+  Procedure ManuallyGetHost;
+  Begin
+     With HeaderInfo^ do Begin
+        If Pos(AnsiString('//'),URI)>0 then Begin
+           Host:=Copy(URI,1,Pos(AnsiString('//'),URI)+1);
+           Delete(URI,1,Length(Host));
+        End;
+        If URI<>'/' then Begin
+           Host:=Host+Copy(URI,1,Pos(AnsiChar('/'),URI));
+           Delete(URI,1,Pos(AnsiChar('/'),URI));
+        End;
+     End;
+  End;
+
+begin
+   New(HeaderInfo); // 2.4 moved before repeat
+   repeat
+{      FillChar(HeaderInfo^,Sizeof(HeaderInfo^),#0);
+      HeaderInfo^.ClientAddr:=ClientThread.Socket.PeerIPAddress;
+      HeaderInfo^.ClientHost:=HeaderInfo^.ClientAddr;
+      HeaderInfo^.ContentLength:=0;}
+// this is faster than above code
+   With HeaderInfo^ do Begin
+      ClientAddr:=ClientThread.Socket.PeerIPAddress;
+      ClientHost:=HeaderInfo^.ClientAddr;
+      ContentLength:=0;
+      Raw:='';
+      Protocol:='';
+      Method:='';
+      URI:='';
+      PhysPath:='';
+      Allow:='';
+      AuthType:='';
+      AuthName:='';
+      AuthPass:='';
+      Date:='';
+      Pragma:='';
+      CacheControl:='';
+      Connection:='';
+      TransferEncoding:='';
+      Upgrade:='';
+      Via:='';
+      Host:='';
+      From:='';
+      IfMatch:='';
+      IfNoneMatch:='';
+      IfRange:='';
+      IfRange:='';
+      IfUnModSince:='';
+      MaxForwards:='';
+      ProxyAuthorization:='';
+      KeepAlive:='';
+      PublicCache:='';
+      Range:='';
+      Referer:='';
+      UserAgent:='';
+      ContentType:='';
+      Accept:='';
+      AcceptCharset:='';
+      AcceptEncoding:='';
+      AcceptLanguage:='';
+      Cookie:='';
+      ClientName:='';
+      QueryString:='';
+      HostRootPath:='';
+      Weferer:='';
+      WserAgent:='';
+      CacheInfo:='';
+      ProxyConnection:='';
+      Forwarded:='';
+      ForwardedFor:='';
+      All_HTTP:='';
+      All_RAW:='';
+      PostData:='';
+      Unknown:='';
+   End;
+   with ClientThread.Socket do begin
+{$IFDEF DXSOCK2}
+      S:='*';
+      SmartTimeout:=fiTimeout;
+      While (S<>'') do Begin
+         S:=Readln(SmartTimeout);
+         SmartTimeout:=500;
+         If LastReadTimeout or Not Connected then Begin
+{$IFDEF CODE_TRACER}
+            If Assigned(ClientThread.DXCodeTracer) then Begin
+               ClientThread.DXCodeTracer.SendMessage(dxctDebug,'TDXServerCore.ProcessSession - Header timeout - aborting.');
+            End;
+{$ENDIF}
+            Dispose(Headerinfo);
+            Exit;
+         End;
+         If S<>'' then Begin
+            If Assigned(OnFilter) then Begin
+               Loop:=FilterRead(@S[1],OutData,Length(S),ClientThread);
+               SetLength(S,Loop);
+               If Assigned(Outdata) then Begin
+                  Move(TDXBSArray(OutData^),S[1],Loop);
+                  OnFilter(ddFreePointer,Nil,OutData,Loop,Loop,WasHandled,ClientThread);
+               End;
+            End;
+            //SF_NOTIFY_READ_RAW_DATA
+            if assigned(fDXISAPI) and (fDXISAPI.FilterCount>0) then
+               fDXISAPI.ServerRawRead(S,Length(S));
+            BuildHeader(S);
+         End
+         Else If (S='') and (HeaderInfo^.Method='') then S:='*'; //2.3 Keep-Alive
+      End;
+{$ELSE}
+//      ShowMessageWindow('','Starting Read!');
+      If Not fSupportKeepAlive then Begin
+         S:='';
+         While (Pos(AnsiString(#13#10#13#10),S)=0) and
+            (Length(S)<8192) do Begin
+            S:=S+ReadStr(-1);
+            if ((LastCommandStatus<>0) and (LastCommandStatus<>WSAETIMEDOUT))
+               Or (Not Connected)
+               then Begin
+{$IFDEF CODE_TRACER}
+               If Assigned(ClientThread.DXCodeTracer) then Begin
+                  ClientThread.DXCodeTracer.SendMessage(dxctDebug,'TDXServerCore.ProcessSession - Header timeout - aborting.');
+               End;
+{$ENDIF}
+               Dispose(Headerinfo);
+               Exit;
+            End;
+         End;
+      End
+      Else Begin
+         ManualTimeout:=TimeCounter+fiTimeout;
+         S:='';
+         While (Pos(AnsiString(#13#10#13#10),S)=0) and
+            (Length(S)<8192) and
+            (ManualTimeout>TimeCounter) do Begin
+            S:=S+ReadStr(-1);
+            if ((LastCommandStatus<>0) and (LastCommandStatus<>WSAETIMEDOUT))
+               Or (Not Connected)
+               then Begin
+{$IFDEF CODE_TRACER}
+               If Assigned(ClientThread.DXCodeTracer) then Begin
+                  ClientThread.DXCodeTracer.SendMessage(dxctDebug,'TDXServerCore.ProcessSession - Header timeout - aborting.');
+               End;
+{$ENDIF}
+               Dispose(Headerinfo);
+               Exit;
+            End;
+         End;
+      End;
+      If LastReadTimeout or Not Connected then Begin
+{$IFDEF CODE_TRACER}
+         If Assigned(ClientThread.DXCodeTracer) then Begin
+            ClientThread.DXCodeTracer.SendMessage(dxctDebug,'TDXServerCore.ProcessSession - Header timeout - aborting.');
+         End;
+{$ENDIF}
+         Dispose(Headerinfo);
+         Exit;
+      End;
+      While Length(S)>0 do Begin
+         Ws:=Copy(S,1,Pos(AnsiString(#13#10),S)-1);
+         If Assigned(OnFilter) then Begin
+            Loop:=FilterRead(@WS[1],OutData,Length(WS),ClientThread);
+            SetLength(WS,Loop);
+            If Assigned(Outdata) then Begin
+               Move(TDXBSArray(OutData^),WS[1],Loop);
+               OnFilter(ddFreePointer,Nil,OutData,Loop,Loop,WasHandled,ClientThread);
+            End;
+         End;
+         //SF_NOTIFY_READ_RAW_DATA
+         if assigned(fDXISAPI) and (fDXISAPI.FilterCount>0) then
+            fDXISAPI.ServerRawRead(WS,Length(WS));
+         BuildHeader(Ws);
+         Delete(S,1,Length(Ws)+2);
+         If Copy(S,1,2)=#13#10 then Begin //end of header
+            HeaderInfo^.PostData:=Copy(S,3,Length(S));
+            S:='';
+         End;
+      End;
+{$ENDIF}
+//      ShowMessageWindow('','Finished Read!'+#13#10+HeaderInfo^.All_RAW);
+      If HeaderInfo^.Host='' then ManuallyGetHost;
+      Delete(HeaderInfo^.ALL_HTTP,Length(HeaderInfo^.ALL_HTTP)-1,2);
+      HeaderInfo^.ALL_HTTP:=HeaderInfo^.ALL_HTTP+AnsiChar(#0);
+      //SF_NOTIFY_PREPROC_HEADERS
+      if assigned(fDXISAPI) and (fDXISAPI.FilterCount>0) then
+         fDXISAPI.ServerPreprocHeaderEvent(HeaderInfo);
+      Loop:=0;
+      WasHandled:=False;
+      WantKeepAlive:=fSupportKeepAlive;
+      While (Loop<fEventArray.Count) and (Not WasHandled) do Begin
+         If PHTTPBasicEvent(fEventArray[Loop])^.Command=HeaderInfo^.Method then Begin
+            Case PHTTPBasicEvent(fEventArray[Loop]).Tag of
+               1:if Assigned(PHTTPBasicEvent(fEventArray[Loop]).EventProcedure) then
+                    HTTPTBasicEvent(PHTTPBasicEvent(fEventArray[Loop]).EventProcedure)(ClientThread,HeaderInfo,WantKeepAlive);
+            End;
+            WasHandled:=True;
+         End
+         Else Inc(Loop);
+      End;
+      If Not WasHandled then Begin
+         if assigned(OnCommandOther) then
+            OnCommandOther(ClientThread,HeaderInfo,WasHandled);
+         if not WasHandled then NotHandled;
+         WantKeepAlive:=False;
+      end;
+   end;
+   //SF_NOTIFY_END_OF_REQUEST
+   if assigned(fDXISAPI) and (fDXISAPI.FilterCount>0) then
+      fDXISAPI.ServerEndOfRequest;
+   If Not fSupportKeepAlive then WantKeepAlive:=False;
+   If WantKeepAlive then ProcessWindowsMessageQueue; // 9/11/2002
+{$IFDEF CODE_TRACER}
+   If Assigned(ClientThread.DXCodeTracer) then Begin
+      If WantKeepAlive then
+         ClientThread.DXCodeTracer.SendMessage(dxctDebug,'TDXServerCore.ProcessSession - looping for keepalive.');
+   End;
+{$ENDIF}
+   Until (Not WantKeepAlive) or (Not ClientThread.Socket.Connected);
+   Dispose(HeaderInfo); //2.4
+   //SF_NOTIFY_END_OF_NET_SESSION
+   if assigned(fDXISAPI) and (fDXISAPI.FilterCount>0) then
+     fDXISAPI.ServerEndSession;
+end;
+
+//2.0.12
+Function TDXHTTPServerCore.HeaderText(StatusCode:Integer):AnsiString;
+Var
+   Loop:Integer;
+
+Begin
+   If StatusCode>404 then Begin // divide and conquor
+      Loop:=MaxStatusCodes;
+      While StatusCodes[Loop].Code>StatusCode do Dec(Loop);
+   End
+   Else begin
+      Loop:=0;
+      While StatusCodes[Loop].Code<StatusCode do Inc(Loop);
+   End;
+   If StatusCodes[Loop].Code=StatusCode then
+      Result:=Ansi_IntToStr(StatusCode)+AnsiChar(#32)+StatusCodes[Loop].Msg
+   Else
+      Result:=AnsiString('500 Internal Server Error');
+End;
+
+Procedure TDXHTTPServerCore.Start;
+Begin
+   if assigned(fDXISAPI) and (fDXISAPI.FilterCount>0) then
+     fDXISAPI.ServerStartEvent;
+   inherited Start;
+End;
+
+Procedure TDXHTTPServerCore.Stop;
+Begin
+   if assigned(fDXISAPI) and (fDXISAPI.FilterCount>0) then Begin
+     fDXISAPI.ServerStopEvent;
+   End;
+   inherited Stop;
+End;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXISAPI.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXISAPI.pas
new file mode 100644
index 0000000..a4f4171
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXISAPI.pas	
@@ -0,0 +1,1640 @@
+unit uRODXISAPI;
+
+///////////////////////////////////////////////////////////////////////////////
+//    Component: TDXISAPI
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description:
+// ========================================================================
+// IMPLEMENTATION OF ISAPI 4.0 SPECIFICATIONS (FEBRUARY 2002)
+// Create one instance of the TDXIAPI component in your application. To use:
+// TDXISAPI.RegisterDLL(Path+Filename) - Registers the DLL with our DLLManager!
+// TDXISAPI.Execute(TDXClientThread;Path+Filename) - Executes the DLL
+// TDXISAPI.UnregisterDLL(Path+Filename) - removes from our DLLManager.
+//
+// You must specify the following events!
+// TDXISAPI.GetServerVariable(Session:TDXClientThread;Variable:AnsiString;Var Results:AnsiString);
+//
+// All other ISAPI callbacks are actually handled internal to this component.
+//
+// To achieve HIGH-SPEED, register all known DLL's at the startup of your
+// application, and then on termination unregister all of these DLL's. Then
+// all you have to do is execute the DLL as needed.
+//
+// MSDN:
+// Important - It is vital that the work performed by ISAPI filters is minimized,
+// because the effects on scalability and performance is potentially quite severe.
+// For example, if your ISAPI filter implemented your own custom encryption scheme,
+// the encryption and decryption would need to take place within your ISAPI filter
+// code, but the reading and writing of the data should be handled by IIS.
+///////////////////////////////////////////////////////////////////////////////
+
+interface
+{$I uRODXSock.def}
+
+{.$DEFINE USE_DLL_MGR}
+{$IFDEF MSWINDOWS}
+{$DEFINE SUPPORT_COM}
+{$ENDIF}
+
+Uses
+{$IFDEF MSWINDOWS}
+  Windows,
+{$ENDIF}
+{$IFDEF SUPPORT_COM}
+  ActiveX,
+{$ENDIF}
+  Classes,
+  uRODXString,
+  uRODXServerCore,
+{$IFDEF USE_DLL_MGR}
+  DXDLLManager,
+{$ENDIF}
+  uRODXSecurity,
+  uRODXISAPIFilter,
+  uRODXHTTPHeaderTools;
+
+Type
+{$IFDEF FPC}
+   HCONN = TThreadID;
+{$ELSE}
+   HCONN=THandle;
+{$ENDIF}
+{$IFDEF VER100}
+   Longword=Cardinal;
+{$ENDIF}
+{$IFNDEF MSWINDOWS}
+   LPDWord=^Longword;
+   LPCSTR=PAnsiChar;
+{$ENDIF}
+
+Const
+   HSE_LOG_BUFFER_LEN=80;
+   HSE_MAX_EXT_DLL_NAME_LEN=256;
+
+type
+  TGetServerVariableProc = function ( hConn: HCONN;
+                                      VariableName: PAnsiChar;
+                                      Buffer: Pointer;
+                                      Size:LPDWord): BOOLEAN; stdcall;
+
+  TWriteClientProc = function ( ConnID: HCONN;
+                                Buffer: Pointer;
+                                var Bytes: Longword;
+                                dwReserved: Longword ): BOOLEAN; stdcall;
+
+  TReadClientProc = function ( ConnID: HCONN;
+                               Buffer: Pointer;
+                               var Size: Longword ): BOOLEAN; stdcall;
+
+  TServerSupportFunctionProc = function ( hConn: HCONN;
+                                          HSERRequest: Longword;
+                                          Buffer: Pointer;
+                                          Size:Pointer{LPDWord};
+                                          DataType: Pointer{LPDWord} ): BOOLEAN; stdcall;
+
+//
+// passed to extension procedure on a new request
+//
+type
+
+  PEXTENSION_CONTROL_BLOCK = ^TEXTENSION_CONTROL_BLOCK;
+  TEXTENSION_CONTROL_BLOCK = packed record
+    cbSize: Longword;                    // size of this struct.
+    dwVersion: Longword;                 // version info of this spec
+    ConnID: HCONN;                    // Context number not to be modified!
+    dwHTTPStatusCode: Longword;          // HTTP Status code
+                     // null terminated log info specific to this Extension DLL
+    lpszLogData: array [0..HSE_LOG_BUFFER_LEN-1] of AnsiChar;
+    lpszMethod: PAnsiChar;                // REQUEST_METHOD
+    lpszQueryString: PAnsiChar;           // QUERY_STRING
+    lpszPathInfo: PAnsiChar;              // PATH_INFO
+    lpszPathTranslated: PAnsiChar;        // PATH_TRANSLATED
+    cbTotalBytes: Longword;              // Total bytes indicated from client
+    cbAvailable: Longword;               // Available number of bytes
+    lpbData: Pointer;                 // pointer to cbAvailable bytes
+    lpszContentType: PAnsiChar;           // Content type of client data
+
+    GetServerVariable: TGetServerVariableProc;
+    WriteClient: TWriteClientProc;
+    ReadClient: TReadClientProc;
+    ServerSupportFunction: TServerSupportFunctionProc;
+  end;
+  PHSE_VERSION_INFO = ^HSE_VERSION_INFO;
+  HSE_VERSION_INFO = packed record
+    dwExtensionVersion: Longword;
+    lpszExtensionDesc: array [0..HSE_MAX_EXT_DLL_NAME_LEN-1] of AnsiChar;
+  end;
+  THSE_VERSION_INFO = HSE_VERSION_INFO;
+  LPHSE_VERSION_INFO = PHSE_VERSION_INFO;
+
+Type
+   TDX_GetServerVariable=procedure(ClientThread:TDXClientThread;Variable:AnsiString;Var Results:AnsiString) of object;
+   TDX_RedirectHeader=Procedure(ClientThread:TDXClientThread;Location:AnsiString;Var Header:AnsiString) of object;
+   TDX_BuildHeader=Procedure(dwHTTPStatusCode:Integer;var Results:AnsiString) of object;
+
+   //Extension Function
+   TGetExtensionVersion = function (var Ver: THSE_VERSION_INFO): BOOLEAN; stdcall;
+   THTTPExtensionProc = function (var ECB: TEXTENSION_CONTROL_BLOCK): Longword; stdcall;
+   TTerminateExtension = function (dwFlags: Longword): BOOLEAN; stdcall;
+
+   TNotificationFiltersProc = Procedure (Notify:Longword; Buf1:Pointer;
+                        sizeBuf1:Longword; Buf2:Pointer; sizeBuf2:Longword);
+
+   TDX_FilterGetServerVariable = function (var pfc: THTTP_FILTER_CONTEXT;
+    VariableName: PAnsiChar; Buffer: Pointer; var Size: Longword ): BOOLEAN of Object;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This structure is used to send certificate information to the
+// ISAPI extension when the HSE_REQ_GET_CERT_INFO_EX value is set for the
+// dwHSERRequest parameter of the ServerSupportFunction.
+///////////////////////////////////////////////////////////////////////////////
+
+
+type
+  TDXISAPI = class(TDXComponent)
+  private
+    fGetServerVariable:TDX_GetServerVariable;
+    fRedirectHeader:TDX_RedirectHeader;
+    fBuildHeader:TDX_BuildHeader;
+    fTimeout:Integer;
+//    fCertificate:TCERT_CONTEXT_EX;
+  protected
+    Procedure RegisterFilters(var ResultLog:AnsiString);
+    Procedure UnRegisterFilters(var ResultLog:AnsiString);
+    Procedure SetServerVariableProc(value:TFilterGetServerVariableProc);
+    Function GetServerVariableProc:TFilterGetServerVariableProc;
+  public
+    //////////////////////////////
+    // Server Event Procedure
+    // Not of use to end-user.
+    //////////////////////////////
+    Procedure ServerStartEvent;
+    Procedure ServerStopEvent;
+    Procedure ServerRawRead(ReadString:AnsiString;Len:Longword);
+    Procedure ServerPreprocHeaderEvent(DXHeaderInfo:PHeaderInfo);
+    Procedure ConvertedURL2Physical(URL:AnsiString;Physical:AnsiString);
+    //////////////////////////////
+    // there are more to be added between converted and end of request in 2.4
+    //////////////////////////////
+    Procedure ServerEndOfRequest;
+    Procedure ServerEndSession;
+
+  public
+    constructor Create(AOwner:TComponent); {$IFNDEF OBJECTS_ONLY} override; {$ENDIF}
+    Destructor Destroy; override;
+    Function Execute(Session:TDXClientThread;ISAPI,Method,QueryString,
+                     PathInfo,PathTranslated,POSTContent_Type,POSTData:AnsiString;
+                     POSTDataSize:Integer;Var ResultLog:AnsiString):Boolean;
+
+    Function RegisterDLL(ISAPI:AnsiString):Boolean;
+    Function UnRegisterDLL(ISAPI:AnsiString):Boolean;
+
+    Function AddFilter(ISAPI:AnsiString):Boolean;
+    Function RemoveFilter(ISAPI:AnsiString):Boolean;
+    Function FilterCount:Integer;
+
+  published
+    Property GetVariable:TDX_GetServerVariable read fGetServerVariable
+                                               write fGetServerVariable;
+    Property GetVariableFilter:TFilterGetServerVariableProc read GetServerVariableProc
+                                               write SetServerVariableProc;
+    Property NeedHeaderForRedirect:TDX_RedirectHeader read fRedirectHeader
+                                               write fRedirectHeader;
+    Property NeedHeader:TDX_BuildHeader read fBuildHeader
+                                        write fBuildHeader;
+    Property ReadSocketTimeout:Integer read fTimeout
+                                       write fTimeout;
+  end;
+
+Implementation
+
+Uses
+{$IFNDEF MSWINDOWS}
+   {$IFDEF FPC}dynlibs,{$ENDIF}
+//   Libc,
+{$ENDIF}
+
+   SysUtils(*{, {StrPCopy}
+   uRODXHTTPServerCore*)
+   {$IFDEF DELPHI2009UP},AnsiStrings{$ENDIF};
+
+Const
+{from Microsoft's .h files for ISAPI!}
+   HSE_VERSION_MAJOR=5;
+   HSE_VERSION_MINOR=1;
+   HSE_VERSION=$0501;
+   HSE_REQ_END_RESERVED=1000;
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The extension has finished processing and the server should disconnect the
+// client and free up allocated resources.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_STATUS_SUCCESS=1;
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The extension has finished processing and the server should wait for the next
+// HTTP request if the client supports Keep-Alive connections. The extension
+// can return this only if it was able to send the correct Content-Length header
+// to the client.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_STATUS_SUCCESS_AND_KEEP_CONN=2;
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The extension has queued the request for processing and will notify the
+// server when it has finished. See HSE_REQ_DONE_WITH_SESSION under
+// ServerSupportFunction.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_STATUS_PENDING=3;
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The extension has encountered an error while processing the request, so the
+// server can disconnect the client and free up allocated resources. An HTTP
+// status code of 500 is written to the IIS log for the request.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_STATUS_ERROR=4;
+// The following are the values to request services with the
+//   ServerSupportFunction().
+//  Values from 0 to 1000 are reserved for future versions of the interface
+   HSE_REQ_BASE=0;
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function allows your ISAPI extension to redirect a client
+// browser to a different URL from the one they initially requested. When this
+// support function is called, you must provide the new URL. IIS then sends the
+// HTTP status code 302 (URL Redirect) to the client browser.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_SEND_URL_REDIRECT_RESP=( HSE_REQ_BASE + 1 ); // ISAPI 2.0/3.0
+   HSE_REQ_SEND_URL=( HSE_REQ_BASE + 2 ); // ISAPI 2.0/3.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function allows you to request that IIS send a complete HTTP
+// response header to the client browser, including the HTTP status, server
+// version, message time, and MIME version. Your extension can also, optionally,
+// append other header information to the end of IIS-generated header, such as
+// Content-Type or Content-Length.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_SEND_RESPONSE_HEADER=( HSE_REQ_BASE + 3 ); // ISAPI 2.0/3.0 // depreciated
+   HSE_REQ_SEND_RESPONSE_HEADER_EX=(HSE_REQ_END_RESERVED+16); // ISAPI 2.0/3.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// If your extension is performing some form of extended processing, and its
+// HTTPExtensionProc entry-point function has returned the status code
+// HSE_STATUS_PENDING, then your extension should notify IIS when all
+// processing is complete by using this support function. Calling this function
+// will terminate the session connection.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_DONE_WITH_SESSION=( HSE_REQ_BASE + 4 ); // ISAPI 2.0/3.0
+
+//  These are Microsoft specific extensions
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function allows your ISAPI extension to map a logical URL path
+// to a physical path.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_MAP_URL_TO_PATH=(HSE_REQ_END_RESERVED+1); // ISAPI 2.0/3.0
+   HSE_REQ_MAP_URL_TO_PATH_EX=(HSE_REQ_END_RESERVED+12); // ISAPI 4.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function allows your ISAPI extension to retrieve context and
+// credential handles to the CtxtHandle and CredHandle structures, as defined
+// in the header file sspi.h. Once these handles are retrieved, they can be
+// used to query or manipulate the server certificate information by using the
+// standard certificate APIs that are also defined in sspi.h.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_GET_SSPI_INFO=(HSE_REQ_END_RESERVED+2); // ISAPI 2.0/3.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// You can use this support function to write your own custom log strings to
+// the log record. When this function is called, the string contained in the
+// buffer you specify is appended to the log record for the current HTTP
+// request.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_APPEND_LOG_PARAMETER=(HSE_REQ_END_RESERVED+3); // ISAPI 2.0/3.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// Using this support function, you can set a special callback function that
+// will be used for handling asynchronous I/O operations.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_IO_COMPLETION=(HSE_REQ_END_RESERVED+5); // ISAPI 2.0/3.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function enables your ISAPI extension to call the
+// high-performance Win32� API TransmitFile function to send a file to the
+// client browser. This function accepts as a parameter a pointer to a
+// structure, HSE_TF_INFO, so that you can specify the file handle of the file
+// to be sent, HTTP headers for the response, and other important information.
+//
+// TransmitFile is carried out asynchronously, so your extension must specify a
+// special callback function so IIS can notify your extension when the
+// asynchronous write operation has completed. You can do this either by using
+// the pfnHseIO member of the HSE_TF_INFO used in the function call, or by using
+// the support function HSE_REQ_IO_COMPLETION.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_TRANSMIT_FILE=(HSE_REQ_END_RESERVED+6); // ISAPI 2.0/3.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function forces IIS to reprocess the discretionary access
+// control list (DACL) for an ISAPI extension's DLL. Given sufficient security
+// permissions, this support function can be used to reprocess another
+// extension's DACL, as well.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_REFRESH_ISAPI_ACL=(HSE_REQ_END_RESERVED+7); // ISAPI 2.0/3.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function can be used to determine the Keep-Alive status of the
+// current connection.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_IS_KEEP_CONN=(HSE_REQ_END_RESERVED+8);
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// Using this support function, your ISAPI extension can request that IIS
+// attempt to read from the client asynchronously. In order for this function
+// to work properly, however, you must have specified a special callback
+// function, which IIS will call when the asynchronous read has completed. This
+// callback function can be set using the ServerSupportFunction request
+// HSE_REQ_IO_COMPLETION.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_ASYNC_READ_CLIENT=(HSE_REQ_END_RESERVED+10);
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function allows you to retrieve a handle to the impersonation
+// token that the request is using. An impersonation token represents a user
+// context.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_GET_IMPERSONATION_TOKEN=(HSE_REQ_END_RESERVED+11); // ISAPI 4.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function can be used to request that, when disconnecting the
+// current connection, IIS will use an abortive shutdown sequence to close the
+// TCP/IP connection socket.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_ABORTIVE_CLOSE=(HSE_REQ_END_RESERVED+14);
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This support function specifies the certificate context for the first
+// certificate in the client's certificate chain.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_GET_CERT_INFO_EX=(HSE_REQ_END_RESERVED+15); // ISAPI 4.0
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// This server support function sends a request to IIS to close the current
+// client socket connection, even if there is an asynchronous read pending.
+///////////////////////////////////////////////////////////////////////////////
+   HSE_REQ_CLOSE_CONNECTION=(HSE_REQ_END_RESERVED+17); // ISAPI 5.0/5.1
+
+   HSE_TERM_MUST_UNLOAD=2;
+
+Type
+   PHSE_SEND_HEADER_EX_INFO=^HSE_SEND_HEADER_EX_INFO;
+   HSE_SEND_HEADER_EX_INFO=Record
+      pszStatus:LPCSTR;   // HTTP status code; for example "200 OK".
+      pszHeader:LPCSTR;  // HTTP header.
+      cchStatus:Longword;   // Number of characters in status code.
+      cchHeader:Longword;   // Number of characters in header.
+      fKeepConn:BOOLEAN;    // Keep client connection alive?
+   End;
+Const
+   MAX_PATH = (256);
+
+Type
+   PCERT_CONTEXT_EX=^TCERT_CONTEXT_EX;
+   TCERT_CONTEXT_EX = packed record
+      CertContext:TCERT_CONTEXT;
+      cbAllocated:Longword;
+      dwCertificateFlags:Longword;
+   End;
+   PHSE_URL_MAPEX_INFO = ^THSE_URL_MAPEX_INFO;
+   THSE_URL_MAPEX_INFO = record
+      lpszPath: array [0..MAX_PATH-1] of AnsiChar; // Physical path mapped to by the URL.
+      dwFlags:Longword;              // Flags associated with this URL path.
+      cchMatchingPath:Longword;    // Number of matching characters in
+      cchMatchingURL:Longword;     // Number of matching characters in URL.
+      dwReserved1:Longword;
+      dwReserved2:Longword;
+   End;
+   PDXThreadRecord=^TDXThreadRecord;
+   TDXThreadRecord=record
+      fAllocMem:TList;
+      fToken:THandle;
+      fDopHeaders:AnsiString;
+      fDopDeniedHeaders:AnsiString;
+      fHeaderInfo:PHeaderInfo;
+      ThreadID:HCONN;
+      Thread:TDXClientThread;
+      fGetServerVariable:TDX_GetServerVariable;
+      fRedirectHeader:TDX_RedirectHeader;
+      fBuildHeader:TDX_BuildHeader;
+      fiTimeout:Integer;
+      ECB:TEXTENSION_CONTROL_BLOCK;
+      mapex:THSE_URL_MAPEX_INFO;
+      fRealPath:AnsiString; // 3.0
+      fISAPIThreadPoolDone:Boolean;
+   end;
+   PDXFilterRecord = ^TDXFilterRecord;
+   TDXFilterRecord = record
+      fName:AnsiString;
+      fVersion:PHTTP_FILTER_VERSION;
+      fNotification:Boolean;
+      fDisableNotification:Longword;
+      fNextReadSize:Longword;
+   End;
+   PDXMemoryBlock= ^TDXMemoryBlock;
+   TDXMemoryBlock = record
+      fPointer:Pointer;
+      fSize:Longword;
+   End;
+
+Var
+   fDXThreadArray:TList;
+   fActiveFilter:PDXFilterRecord;
+   fFilter:TList;
+{$IFDEF USE_DLL_MGR}
+   fDLLManager:TDXDLLManager;
+{$ENDIF}
+   fPreprocHeader:PHeaderInfo;
+   fGetServerVariableFilterProc:TFilterGetServerVariableProc;
+
+constructor TDXISAPI.Create(AOwner:TComponent);
+begin
+   inherited Create(AOwner);
+{$IFDEF USE_DLL_MGR}
+   fDLLManager:=TDXDLLManager.Create(Nil);
+{$ENDIF}
+   fDXThreadArray:=TList.Create;
+   fFilter:=TList.Create;
+   fTimeout:=30000;
+end;
+
+destructor TDXISAPI.Destroy;
+Var
+   DXThreadRecord:PDXThreadRecord;
+   DXMemoryBlock:PDXMemoryBlock;
+
+begin
+   MyCriticalSection.StartingWrite;
+   If Assigned(fDXThreadArray) then Begin
+      MyCriticalSection.StartingWrite;
+      While fDXThreadArray.Count>0 do Begin
+         DXThreadRecord:=fDXThreadArray[0];
+         //Free memory for FilterAllocMem
+         while DXThreadRecord^.fAllocMem.Count>0 do Begin
+            DXMemoryBlock:=DXThreadRecord^.fAllocMem[0];
+            FreeMem(DXMemoryBlock^.fPointer, DXMemoryBlock^.fSize);
+            DXThreadRecord^.fAllocMem.Delete(0);
+         End;
+         Dispose(DXThreadRecord);
+         fDXThreadArray.Delete(0);
+      End;
+      MyCriticalSection.FinishedWrite;
+      fDXThreadArray.Free;
+      fDXThreadArray := Nil;
+   End;
+   MyCriticalSection.FinishedWrite;
+
+{$IFDEF USE_DLL_MGR}
+   If Assigned(fDLLManager) then Begin
+      fDLLManager.Free;
+      fDLLManager := Nil;
+   End;
+{$ENDIF}
+
+   If Assigned(fFilter) then Begin
+      fFilter.Free;
+      fFilter := Nil;
+   End;
+
+   inherited destroy;
+end;
+
+Function FindThread(FindHCONN:HCONN):PDXThreadRecord;
+Var
+   Loop:Integer;
+   DXThreadRecord:PDXThreadRecord;
+
+Begin
+   Result:=Nil;
+//   MyCriticalSection.StartingRead;
+   For Loop:=fDXThreadArray.Count-1 downto 0 do Begin
+      DXThreadRecord:=PDXThreadRecord(fDXThreadArray[Loop]);
+      If DXThreadRecord^.ThreadID=FindHCONN then Begin
+         Result:=DXThreadRecord;
+         Break; // o.z
+      End;
+   End;
+//   MyCriticalSection.FinishedRead;
+End;
+
+Function FindThreadToFilter(var pfc: THTTP_FILTER_CONTEXT):PDXThreadRecord;
+var
+   conn:Pointer;
+Begin
+   GetMem(conn, sizeof(Longword));
+   THTTP_FILTER_CONTEXT(pfc).ServerSupportFunction(pfc, SF_REQ_GET_CONNID, conn, 0, 0);
+   Result:=FindThread(HCONN(conn^));
+   FreeMem(conn, sizeof(Longword));
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+// Filter function implementation
+///////////////////////////////////////////////////////////////////////////////
+
+Function FilterAddResponseHeaders(var pfc{: THTTP_FILTER_CONTEXT};
+    lpszHeaders: PAnsiChar; dwReserved: Longword):BOOLEAN; stdcall;
+var
+   DXThreadRecord:PDXThreadRecord;
+Begin
+   DXThreadRecord:=FindThreadToFilter(THTTP_FILTER_CONTEXT(pfc));
+   DXThreadRecord^.fDopHeaders:=DXThreadRecord^.fDopHeaders+lpszHeaders;
+   Result:=True;
+End;
+
+Function FilterWriteClient(var pfc{: THTTP_FILTER_CONTEXT};
+    Buffer: Pointer; var Bytes: Longword; dwReserved: Longword): BOOLEAN; stdcall;
+var   DXThreadRecord:PDXThreadRecord;
+      conn:Pointer;
+Begin
+   GetMem(conn, sizeof(Longword));
+   THTTP_FILTER_CONTEXT(pfc).ServerSupportFunction(pfc, SF_REQ_GET_CONNID, conn, 0, 0);
+   DXThreadRecord:=FindThread(HCONN(conn^));
+   FreeMem(conn, sizeof(Longword));
+{$IFDEF VER100} // D3
+   DXThreadRecord^.Thread.Socket.BlockWrite(Buffer,Bytes);
+{$ELSE}
+   DXThreadRecord^.Thread.Socket.Write(Buffer,Bytes);
+{$ENDIF}
+   Result:=True;
+End;
+
+Function FilterAllocMem(var pfc{: THTTP_FILTER_CONTEXT}; cbSize: Longword;
+    dwReserved: Longword):Pointer;  stdcall;
+var p:Pointer;
+   MemoryBlock:TDXMemoryBlock;
+   DXThreadRecord:PDXThreadRecord;
+Begin
+   p:=Nil;
+Try
+   GetMem(p, cbSize);
+Except
+   FreeMem(p);
+   Result:=Nil;
+   Exit;
+End;
+   MemoryBlock.fPointer:=p;
+   MemoryBlock.fSize:=cbSize;
+   DXThreadRecord:=FindThreadToFilter(THTTP_FILTER_CONTEXT(pfc));
+   DXThreadRecord^.fAllocMem.Add(@MemoryBlock);
+   Result:=p;
+End;
+
+Function FilterServerSupportFunction(var pfc{: THTTP_FILTER_CONTEXT};
+    sfReq: Longword; pData: Pointer; ul1, ul2: {$IFDEF cpu64}UInt64{$ELSE}Longword{$ENDIF}):BOOLEAN; stdcall;
+var
+   Results, hex:AnsiString;
+   normal:PAnsiString;
+   size:Longword;
+   DXThreadRecord:PDXThreadRecord;
+   i, dec, code : Integer;
+Begin
+   Result:=True;
+
+   case sfReq of
+      SF_REQ_SEND_RESPONSE_HEADER:Begin
+         If pData = Nil then Results:='HTTP/1.1 200 OK'+#13#10
+         Else Results:=AnsiString(pData^);
+         Results:=Results+AnsiString(Pointer(ul1)^);
+         size:=Length(Results)+1;
+         THTTP_FILTER_CONTEXT(pfc).WriteClient(pfc, PAnsiChar(Results), size, 0);
+      End; //SF_REQ_SEND_RESPONSE_HEADER
+
+      SF_REQ_ADD_HEADERS_ON_DENIAL:Begin
+         DXThreadRecord := FindThreadToFilter(THTTP_FILTER_CONTEXT(pfc));
+         DXThreadRecord.fDopDeniedHeaders :=
+            DXThreadRecord.fDopDeniedHeaders+ AnsiString(pData);
+      End;//SF_REQ_ADD_HEADERS_ON_DENIAL
+
+      SF_REQ_SET_NEXT_READ_SIZE:Begin
+         fActiveFilter.fNextReadSize := ul1;
+      End; //SF_REQ_SET_NEXT_READ_SIZE
+
+      SF_REQ_SET_PROXY_INFO:Begin
+         //You can use this support function to indicate whether
+         //the current request is an HTTP proxy request.
+         if ul1 = 1 then Begin
+           //request is a proxy request.
+         End
+         Else
+         if ul1 = 0 then Begin
+           //request is not a proxy request
+         End;
+      End; //SF_REQ_SET_PROXY_INFO
+
+      SF_REQ_GET_CONNID:Begin
+         HCONN(pData^):=GetCurrentThreadId;
+      End;
+
+      SF_REQ_DISABLE_NOTIFICATIONS:Begin
+         fActiveFilter.fDisableNotification:=ul1;
+      End;
+
+      SF_REQ_GET_PROPERTY:Begin
+         //You can use this support function to retrieve special IIS
+         //properties defined in SF_PROPERTY_IIS.
+         case ul1 of
+            SF_PROPERTY_INSTANCE_NUM_ID:Begin
+               pData := Nil;
+            End;
+         End; //case
+      End;
+
+      SF_REQ_NORMALIZE_URL:Begin
+         normal := PAnsiString(pData);
+         i:=1;
+         while i<> Length(normal^) do
+         Begin
+            if normal^[i] = '%' then Begin
+               hex := Copy(normal^, i, 3);
+               hex[1] := '$';
+               Val({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(hex), dec, Code);
+               if code <> 0 then Delete(normal^, i, 3)
+               Else Begin
+                  Delete(normal^, i, 2);
+                  normal^[i]:=AnsiChar(dec);
+               End;
+            End;
+            i := i + 1;
+         End;//while
+      End; //SF_REQ_NORMALIZE_URL
+   else
+      Result:=False;
+   End;
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The AddHeader callback function adds an HTTP header to the incoming request
+// or outgoing response. This callback function is available only during
+// notifications for the SF_NOTIFY_PREPROC_HEADERS and
+// SF_NOTIFY_SEND_RESPONSE events.
+///////////////////////////////////////////////////////////////////////////////
+Function FilterAddHeader(var pfc: THTTP_FILTER_CONTEXT; lpszName,
+          lpszValue: PAnsiChar): BOOLEAN; stdcall;
+var DXThreadRecord:PDXThreadRecord;
+    HeaderTools:TDXHTTPHeaderTools;
+Begin
+   DXThreadRecord:=FindThreadToFilter(pfc);
+   HeaderTools := TDXHTTPHeaderTools.Create(Nil);
+   if Not Assigned(DXThreadRecord) then HeaderTools.Init(fPreprocHeader)
+   Else HeaderTools.Init(DXThreadRecord.fHeaderInfo);
+   Result := HeaderTools.AddHeader(AnsiString(lpszName), AnsiString(lpszValue));
+   HeaderTools.Free;
+End;
+
+Function FilterGetHeader(var pfc: THTTP_FILTER_CONTEXT; lpszName: PAnsiChar;
+    var lpvBuffer; var lpdwSize: Longword):BOOLEAN; stdcall;
+var DXThreadRecord:PDXThreadRecord;
+    HeaderTools:TDXHTTPHeaderTools;
+    res:AnsiString;
+    resLength:Longword;
+Begin
+   Result := False;
+   DXThreadRecord:=FindThreadToFilter(pfc);
+   HeaderTools := TDXHTTPHeaderTools.Create(Nil);
+   if Not Assigned(DXThreadRecord) then HeaderTools.Init(fPreprocHeader)
+   Else HeaderTools.Init(DXThreadRecord.fHeaderInfo);
+   res := HeaderTools.HeaderGetString(AnsiString(lpszName));
+   if res <> '' then Begin
+      resLength:=Length(res);
+      Result := True;
+      PAnsiChar(lpvBuffer) := PAnsiChar(res);
+      lpdwSize := resLength;
+   End;
+   HeaderTools.Free;
+End;
+
+Function FilterSetHeader(var pfc: THTTP_FILTER_CONTEXT; lpszName,
+    lpszValue: PAnsiChar):BOOLEAN; stdcall;
+var DXThreadRecord:PDXThreadRecord;
+    HeaderTools:TDXHTTPHeaderTools;
+Begin
+   DXThreadRecord:=FindThreadToFilter(pfc);
+   HeaderTools := TDXHTTPHeaderTools.Create(Nil);
+   if Not Assigned(DXThreadRecord) then HeaderTools.Init(fPreprocHeader)
+   Else HeaderTools.Init(DXThreadRecord.fHeaderInfo);
+   Result := HeaderTools.SetHeader(AnsiString(lpszName), AnsiString(lpszValue));
+   HeaderTools.Free;
+End;
+
+Procedure NotificationFilters(Notify:Longword; Buf1:Pointer; sizeBuf1:Longword;
+                                                     Buf2:Pointer; sizeBuf2:Longword);
+var p:Pointer;
+    filterContext:THTTP_FILTER_CONTEXT;
+    i:Integer;
+    filterRecord:PDXFilterRecord;
+    DLLHandle:THandle;
+    filterProc:THTTPFilterProc;
+    outRes:PAnsiChar;
+    str:AnsiString;
+    outResSize:Longword;
+    DXThreadRecord:PDXThreadRecord;
+
+Begin
+   If fFilter.Count<1 then Exit;
+   with filterContext do Begin
+      cbSize:=sizeof(THTTP_FILTER_CONTEXT);
+      Revision:=4;
+      ServerContext:=Nil;
+      ulReserved:=0;
+      fIsSecurePort:=False;
+      pFilterContext:=Nil;
+      GetServerVariable:=fGetServerVariableFilterProc;
+      AddResponseHeaders:=FilterAddresponseHeaders;
+      WriteClient:=FilterWriteClient;
+      AllocMem:=FilterAllocMem;
+      ServerSupportFunction:=FilterServerSupportFunction;
+   End;
+   DXThreadRecord:=FindThreadToFilter(filterContext);
+
+   Case Notify of
+      //Port Security Settings
+      SF_NOTIFY_SECURE_PORT : Begin
+         filterContext.fIsSecurePort:=True;
+         p:=Nil;
+      End;
+
+      SF_NOTIFY_NONSECURE_PORT : Begin
+         filterContext.fIsSecurePort:=False;
+         p:=Nil;
+      End;
+
+////////////////////////////////////////////////////////////////////////////////
+// This event was used when the ISAPI sends data to the client.
+// Or when the server is reading data from the client.
+////////////////////////////////////////////////////////////////////////////////
+      SF_NOTIFY_SEND_RAW_DATA: Begin
+         //this probably needs to be redesigned
+         GetMem(p, sizeof(THTTP_FILTER_RAW_DATA));
+         with PHTTP_FILTER_RAW_DATA(p)^ do Begin
+            pvInData:=Buf1;
+            cbInData:=sizeBuf1;
+            cbInBuffer:=sizeof(Buf1);
+            dwReserved:=0;
+         End;
+      End;
+      SF_NOTIFY_READ_RAW_DATA:Begin
+         //HTTP_FILTER_RAW_DATA
+         GetMem(p, sizeof(THTTP_FILTER_RAW_DATA));
+         with PHTTP_FILTER_RAW_DATA(p)^ do Begin
+            pvInData:=Buf1;
+            cbInData:=sizeBuf1;
+            cbInBuffer:=sizeof(Buf1);
+            dwReserved:=0;
+         End;
+      End;
+
+////////////////////////////////////////////////////////////////////////////////
+// Create hooks for Get/Set/Add Header Routines
+////////////////////////////////////////////////////////////////////////////////
+      SF_NOTIFY_PREPROC_HEADERS:Begin
+         //HTTP_FILTER_PREPROC_HEADERS
+         GetMem(p, sizeof(THTTP_FILTER_PREPROC_HEADERS));
+         with PHTTP_FILTER_PREPROC_HEADERS(p)^ do Begin
+            GetHeader:=FilterGetHeader;
+            SetHeader:=FilterSetHeader;
+            AddHeader:=FilterAddHeader;
+            HTTPStatus:=200; //HTTP_STATUS_CONTINUE
+            dwReserved:=0;
+         End;
+         fPreprocHeader := PHeaderInfo(Buf1);
+      End;
+
+      SF_NOTIFY_AUTHENTICATION:Begin
+         //HTTP_FILTER_AUTHENT
+         GetMem(p, sizeof(THTTP_FILTER_AUTHENT));
+         with PHTTP_FILTER_AUTHENT(p)^ do Begin
+            pszUser:=PAnsiChar(Buf1);
+            cbUserBuff:=sizeBuf1;
+            pszPassword:=PAnsiChar(Buf2);
+            cbPasswordBuff:=sizeBuf2;
+         End;
+      End;
+///////////////////////////////////////////////////////////////////////////////
+// Notification is given to the filters after you have looked up the physical
+// path. If the filters do not like it, then they can only close the connection
+// and use SF_NOTIFY_PREPROC_HEADERS to write a 302 url.
+///////////////////////////////////////////////////////////////////////////////
+      SF_NOTIFY_URL_MAP:Begin
+         // HTTP_FILTER_URL_MAP
+         GetMem(p, sizeof(THTTP_FILTER_URL_MAP));
+         with PHTTP_FILTER_URL_MAP(p)^ do Begin
+            pszURL:=PAnsiChar(Buf1);
+            pszPhysicalPath:=PAnsiChar(Buf2);
+            cbPathBuff:=sizeBuf2;
+         End;
+      End;
+
+      SF_NOTIFY_ACCESS_DENIED:Begin
+         // HTTP_FILTER_ACCESS_DENIED
+         GetMem(p, sizeof(THTTP_FILTER_ACCESS_DENIED));
+         with PHTTP_FILTER_ACCESS_DENIED(p)^ do Begin
+            pszURL:=PAnsiChar(Buf1);            // Requesting URL
+            dwReason:=sizeBuf1;          // Bitfield of SF_DENIED flags
+            pszPhysicalPath:=PAnsiChar(Buf2);   // Physical path of resource
+         End;
+      End;
+
+      SF_NOTIFY_LOG:Begin
+         //HTTP_FILTER_LOG
+         GetMem(p, sizeof(THTTP_FILTER_LOG));
+         with PHTTP_FILTER_LOG(p)^ do Begin
+            pszClientHostName:='not support';
+            pszClientUserName:='not support';
+            pszServerName:='not support';
+            pszOperation:='not support';
+            pszTarget:='not support';
+            pszParameters:='not support';
+            dwHTTPStatus:=200;
+            dwWin32Status:=0;
+            dwBytesSent:=0;
+            dwBytesRecvd:=0;
+            msTimeForProcessing:=0;
+         End;
+      End;
+
+      SF_NOTIFY_END_OF_REQUEST:Begin
+         p:=Nil;
+      End;
+
+      SF_NOTIFY_END_OF_NET_SESSION:Begin
+         p:=Nil;
+      End;
+
+////////////////////////////////////////////////////////////////////////////////
+// Create hooks for Get/Set/Add Header Routines - guess means to actually
+// transmit the header to the client.
+////////////////////////////////////////////////////////////////////////////////
+      SF_NOTIFY_SEND_RESPONSE:Begin
+         //HTTP_FILTER_SEND_RESPONSE
+         GetMem(p, sizeof(THTTP_FILTER_SEND_RESPONSE));
+         with PHTTP_FILTER_SEND_RESPONSE(p)^ do Begin
+            GetHeader:=FilterGetHeader;
+            SetHeader:=FilterSetHeader;
+            AddHeader:=FilterAddHeader;
+            HTTPStatus:=200;
+            dwReserved:=0;
+         End;
+//         DXThreadRecord.fHeaderInfo := PHeaderInfo(Buf1);
+      End;
+      Else
+       Exit;
+   End;
+
+   for i:=fFilter.Count-1 downto 0 do Begin
+      filterRecord:=fFilter.Items[i];
+      if Not filterRecord.fNotification then continue;
+      if (filterRecord.fVersion.dwFlags AND
+         (Not filterRecord.fDisableNotification) AND Notify)=0 then continue;
+      fActiveFilter:=filterRecord;
+{$IFDEF USE_DLL_MGR}
+      DLLHandle:=fDLLManager.GetDLLHandle(filterRecord.fName);
+{$ELSE}
+{$IFNDEF MSWINDOWS}
+      DLLHandle:=LoadLibrary(PAnsiChar(filterRecord.fName));
+{$ELSE}
+      DLLHandle:=LoadLibraryExA(PAnsiChar(filterRecord.fName),0,0);
+{$ENDIF}
+{$ENDIF}
+      If DLLHandle=0 then continue;
+      @filterProc:=GetProcAddress(DLLHandle,PAnsiChar('HTTPFilterProc'));
+      If Not Assigned(filterProc) then continue;
+      case filterProc(filterContext, Notify, p) of
+          SF_STATUS_REQ_FINISHED_KEEP_CONN,
+          SF_STATUS_REQ_FINISHED:Begin
+            if Assigned(DXThreadRecord) then
+               DXThreadRecord.Thread.Socket.CloseNow;
+          End;
+          SF_STATUS_REQ_NEXT_NOTIFICATION:Begin
+             continue; // pass to next filter
+          End;
+          SF_STATUS_REQ_HANDLED_NOTIFICATION:Begin
+             Break; // handled and done
+          End;
+          SF_STATUS_REQ_ERROR:Begin
+            NotificationFilters(SF_NOTIFY_ACCESS_DENIED, PAnsiChar(filterRecord.fName),
+                                SF_DENIED_FILTER, PAnsiChar(''), 0);
+
+{$IFDEF MSWINDOWS}
+            FormatMessage(
+                FORMAT_MESSAGE_ALLOCATE_BUFFER OR
+                FORMAT_MESSAGE_FROM_SYSTEM OR
+                FORMAT_MESSAGE_IGNORE_INSERTS,
+                Nil,
+                GetLastError(),
+                0, // Default language
+                @outRes,
+                0,
+                Nil
+             );
+{$ENDIF}
+            if outRes <> '' then Begin
+               str := AnsiString('HTTP/1.1 500 ')+sLineBreak;
+               str := str + DXThreadRecord.fDopDeniedHeaders;
+               str := str + AnsiString(outRes) +sLineBreak;
+               outResSize:=Length(str);
+               filterContext.WriteClient(filterContext, PAnsiChar(str), outResSize, 0);
+            End
+            Else Begin
+               str:=AnsiString('HTTP/1.1 500') + sLineBreak + DXThreadRecord.fDopDeniedHeaders;
+               outResSize:=Length(str);
+               filterContext.WriteClient(filterContext, PAnsiChar(str), outResSize, 0);
+            End;
+            if Assigned(DXThreadRecord) then
+               DXThreadRecord.Thread.Socket.CloseNow;
+          End; //SF_STATUS_REQ_ERROR
+
+// to-do: this has to be able to let the web server object do the read,
+// that way no data disappear from the stream. Normally this status type
+// is only returned when the filter is opaque (like SSL).
+          SF_STATUS_REQ_READ_NEXT:Begin
+            DXThreadRecord.ECB.ReadClient(DXThreadRecord.ThreadID, Pointer(outRes), filterRecord.fNextReadSize);
+          End; //SF_STATUS_REQ_READ_NEXT
+      End; //case
+
+   End; //for
+// once done - we have to return the changes to the P content!
+   if Assigned(p) then FreeMem(p);
+   fActiveFilter:=Nil;
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+// Extension ISAPI implementation
+// ==============================
+// ISAPI CALLBACK FUNCTIONS
+///////////////////////////////////////////////////////////////////////////////
+
+function ServerVariable(ThreadID:HCONN;Variable:PAnsiChar;Buffer:Pointer;Size:LPDWord):BOOLEAN; stdcall;
+var
+   DXThreadRecord:PDXThreadRecord;
+   Results:AnsiString;
+   Str:AnsiString;
+
+begin
+   Result:=False;
+   LongWord(Size^):=0;
+   DXThreadRecord:=FindThread(ThreadID);
+   If Not Assigned(DXThreadRecord) then Exit;
+   Results:='';
+   str := Variable;
+   If Str=AnsiString('INSTANCE_ID') then Results:=Ansi_IntToStr(DWORD(ThreadID))
+   Else if Assigned(DXThreadRecord^.fGetServerVariable) then
+      DXThreadRecord^.fGetServerVariable(DXThreadRecord^.Thread,Str,Results);
+   StrPCopy(PAnsiChar(Buffer),Results);
+   If Results<>'' then LongWord(Size^):=Length(Results)+1;
+   Result:=True;
+end;
+
+Function ExtensionWriteClient(ThreadID:HCONN;Buf:Pointer;Var Bytes:Longword;dwReserved:Longword):BOOLEAN; stdcall;
+var
+   DXThreadRecord:PDXThreadRecord;
+
+begin
+   If Bytes=0 then Begin // PHP occasionally calls this with zero bytes?!
+      Result:=True;
+      Exit;
+   End;
+   Result:=False;
+   DXThreadRecord:=FindThread(ThreadID);
+   If Not Assigned(DXThreadRecord) then Exit;
+   NotificationFilters(SF_NOTIFY_SEND_RAW_DATA, Buf, Bytes, Nil, 0);
+{$IFDEF VER100} // D3
+   DXThreadRecord^.Thread.Socket.BlockWrite(Buf,Bytes);
+{$ELSE}
+   DXThreadRecord^.Thread.Socket.Write(Buf,Bytes);
+{$ENDIF}
+   Result:=DXThreadRecord^.Thread.Socket.LastCommandStatus=0;
+end;
+
+function ExtensionReadClient(ThreadID:HCONN;Buf:Pointer;var Size:Longword):BOOLEAN; stdcall;
+var
+   DXThreadRecord:PDXThreadRecord;
+begin
+   Result:=False;
+   DXThreadRecord:=FindThread(ThreadID);
+   If Not Assigned(DXThreadRecord) then Exit;
+   NotificationFilters(SF_NOTIFY_READ_RAW_DATA, Buf, Size, Nil, 0);
+{$IFDEF VER100}
+   Size:=DXThreadRecord^.Thread.Socket.BlockRead(Buf,Size);
+{$ELSE}
+   Size:=DXThreadRecord^.Thread.Socket.Read(Buf,Size);
+{$ENDIF}
+   Result:=True;
+end;
+
+{$HINTS OFF}
+function ServerSupportFunctionS(ThreadID:HCONN;
+                                HSE_REQ:Longword;
+                                Buf:Pointer;
+                                Size:Pointer{PDWORD};
+                                DataType:Pointer{PDWORD}):BOOLEAN; stdcall;
+var
+   DXThreadRecord:PDXThreadRecord;
+   Results:AnsiString;
+
+begin // HTTPODBC.DLL calls with HSE_REQ=61442 (wtf?)
+   Result:=False;
+   Results:='';
+   DXThreadRecord:=FindThread(ThreadID);
+   If Not Assigned(DXThreadRecord) then Exit;
+   Case HSE_REQ of
+      HSE_APPEND_LOG_PARAMETER:Begin
+         Move(Buf^,DXThreadRecord^.ECB.lpszLogData,StrLen(PAnsiChar(Buf)));
+         Result:=False;
+      End;
+      HSE_REQ_ABORTIVE_CLOSE,
+      HSE_REQ_CLOSE_CONNECTION:Begin
+         DXThreadRecord^.Thread.Socket.CloseNow;
+         Result:=True;
+      End;
+      HSE_REQ_IS_KEEP_CONN:Begin
+         Boolean(Buf^):=False; // when I get keep alive for ISAPI working set this to true
+         Result:=True;
+      End;
+      HSE_REQ_MAP_URL_TO_PATH:
+      Begin
+         Results := StringReplace(AnsiString(PAnsiChar(Buf)), AnsiChar('/'), AnsiChar('\'), [rfReplaceAll]);
+         Results := StringReplace(DXThreadRecord^.fRealPath + Results,AnsiString('\\'),AnsiChar('\'),[rfReplaceAll]);
+         LongWord(Size^):=Length(Results); // 9/11/2002
+         Buf:=PAnsiChar(Results);
+         with DXThreadRecord^.mapex do Begin
+            StrPCopy(lpszPath, Results);
+            dwFlags:=1+2+4; //READ+WRITE+EXECUTE
+            cchMatchingPath:=StrLen(lpszPath);
+            cchMatchingURL:=StrLen(lpszPath);
+            dwReserved1:=0;
+            dwReserved2:=0;
+         End;
+         Move(DXThreadRecord^.Mapex,DataType^,Sizeof(DXThreadRecord^.Mapex));
+         NotificationFilters(SF_NOTIFY_URL_MAP, Buf, Longword(Size), @Results, Length(Results));
+         Result:=True;
+      End;
+      HSE_REQ_MAP_URL_TO_PATH_EX:
+      Begin
+         Results := StringReplace(AnsiString(PAnsiChar(Buf)), AnsiChar('/'), AnsiChar('\'), [rfReplaceAll]);
+         Results := StringReplace(DXThreadRecord^.fRealPath + Results,AnsiString('\\'),AnsiChar('\'),[rfReplaceAll]);
+         with DXThreadRecord^.mapex do Begin
+            StrPCopy(lpszPath,Results);
+            dwFlags:=1+2+4; //READ+WRITE+EXECUTE
+            cchMatchingPath:=StrLen(lpszPath);
+            cchMatchingURL:=StrLen(lpszPath);
+            dwReserved1:=0;
+            dwReserved2:=0;
+         End;
+         Move(DXThreadRecord^.Mapex,DataType^,Sizeof(DXThreadRecord^.Mapex));
+         NotificationFilters(SF_NOTIFY_URL_MAP, Buf, Longword(Size), @Results, Length(Results));
+         Result:=True;
+      End;
+      HSE_REQ_SEND_URL_REDIRECT_RESP,
+      HSE_REQ_SEND_URL:Begin
+         If Assigned(DXThreadRecord^.fRedirectHeader) then
+            DXThreadRecord^.fRedirectHeader(
+            DXThreadRecord^.Thread,
+            StrPas(PAnsiChar(Buf)),Results)
+         Else Results:=AnsiString('HTTP/1.1 302 Moved Temporarily'+#13#10+'Location: ')+StrPas(PAnsiChar(Buf))+AnsiString(#13#10);
+         DXThreadRecord^.Thread.Socket.Writeln(Results);
+         Result:=True;
+      End;
+      HSE_REQ_SEND_RESPONSE_HEADER:Begin
+         Result := True;
+         Results:='';
+         If Assigned(Buf) then begin
+            If PAnsiChar(Buf)<>'' then Begin
+               Results:=AnsiString('HTTP/1.1 ')+PAnsiChar(Buf)+AnsiString(#13#10);
+            End;
+         End;
+         If Results='' then Begin
+            If Assigned(DXThreadRecord^.fBuildHeader) then
+               DXThreadRecord^.fBuildHeader(DXThreadRecord^.ECB.dwHTTPStatusCode,Results)
+            Else Begin
+               Results:='HTTP/1.1 200 OK'+#13#10;
+            End;
+         End;
+         If Assigned(DataType) then begin
+            Results:=Results+PAnsiChar(DataType);
+         End;
+         If Copy(Results,Length(Results)-1,2)<>#13#10 then
+            Results:=Results+AnsiString(#13#10);
+         {// 5-11-2002
+         If Copy(Results,Length(Results)-3,4)<>#13#10#13#10 then
+            DXThreadRecord^.Thread.Socket.Writeln(Results)}
+
+         // 5-11-2002
+         If (Copy(Results,Length(Results)-3,4)<>#13#10#13#10) and
+            (Copy(Results,Length(Results)-1,2)<>#10#10) and //10-3-2002
+            (Copy(Results,Length(Results)-1,2)<>#13#13) then Begin //10-3-2002
+            // 10-3-2002
+            If PAnsiChar(Buf)<>'' then DXThreadRecord^.Thread.Socket.Writeln(Results)
+            Else DXThreadRecord^.Thread.Socket.Write(Results);
+         End
+         Else
+            DXThreadRecord^.Thread.Socket.Write(Results)
+      End;
+      HSE_REQ_SEND_RESPONSE_HEADER_EX:Begin
+         Results:='';
+         If Assigned(DXThreadRecord^.fBuildHeader) then
+            DXThreadRecord^.fBuildHeader(DXThreadRecord^.ECB.dwHTTPStatusCode,Results)
+         Else Begin
+            If PHSE_SEND_HEADER_EX_INFO(Buf)^.cchStatus>0 then
+               Results:=AnsiString('HTTP/1.1 ')+PAnsiChar(PHSE_SEND_HEADER_EX_INFO(Buf)^.pszStatus)+AnsiString(#13#10)
+            Else
+               Results:=AnsiString('HTTP/1.1 200 OK'+#13#10);
+         End;
+         If PHSE_SEND_HEADER_EX_INFO(Buf)^.cchHeader=0 then
+           Results:=Results+AnsiString(#13#10)
+         Else
+           Results:=Results+PHSE_SEND_HEADER_EX_INFO(Buf)^.pszHeader;
+         // redesign
+         NotificationFilters(SF_NOTIFY_SEND_RESPONSE, @Results, 0, Nil, 0);
+         DXThreadRecord^.Thread.Socket.Write(Results);
+         Result:=True;
+      End;
+      HSE_REQ_TRANSMIT_FILE:Begin
+         Result:=False;
+      // ?
+      //if access denied to call
+      //NotificationFilters(SF_NOTIFY_ACCESS_DENIED, Pointer1, SF_DENIED_RESOURCE, Pointer2, 0);
+      //This: Pointer1 - Requesting URL,
+      //      Pointer2 - Physical path of resource
+      End;
+      HSE_REQ_DONE_WITH_SESSION:Begin
+         DXThreadRecord^.fISAPIThreadPoolDone:=True;
+         Result:=True;
+      End;
+      HSE_REQ_GET_SSPI_INFO:Begin
+         Result:=False;
+      End;
+      HSE_REQ_IO_COMPLETION:Begin
+         Result:=False;
+      End;
+      HSE_REQ_REFRESH_ISAPI_ACL:Begin
+         Result:=False;
+      End;
+      HSE_REQ_ASYNC_READ_CLIENT:Begin
+         Result:=True;
+      End;
+{ do not know there values!
+      HSE_REQ_EXECUTE_CHILD:Begin // ISAPI 5.1
+         Result:=False;
+      End;
+      HSE_REQ_GET_EXECUTE_FLAGS:Begin // ISAPI 5.1
+         Reslut:=True;
+         Move(HSE_EXEC_CUSTOM_ERROR,DataType,Sizeof(HSE_EXEC_CUSTOM_ERROR));
+      End;
+}
+      HSE_REQ_GET_IMPERSONATION_TOKEN:Begin
+        Result:=False;
+{$IFDEF MSWINDOWS}
+        If Assigned(Buf) then Begin
+          Result:=OpenThreadToken(HCONN(DXThreadRecord^.Thread), TOKEN_ALL_ACCESS, False, THandle(DXThreadRecord^.fToken));
+          if Result then Buf:=@DXThreadRecord^.fToken;
+        End;
+{$ENDIF}
+      End;
+      HSE_REQ_GET_CERT_INFO_EX:Begin
+         Result:=False;
+//         fCertificate:=TCERT_CONTEXT_EX(Buf);
+      End;
+
+   End;
+end;
+{$HINTS ON}
+
+///////////////////////////////////////////////////////////////////////////////
+// LOG INFORMATION
+// Use to write log information of transaction request and response.
+///////////////////////////////////////////////////////////////////////////////
+function WriteTransactionToLog(LogStr:AnsiString; Size:Longword):BOOLEAN;
+Begin
+  NotificationFilters(SF_NOTIFY_LOG, PAnsiChar(LogStr), Size, Nil, 0);
+  Result:=True;
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+// Find and Load DLL instance
+///////////////////////////////////////////////////////////////////////////////
+Function TDXISAPI.RegisterDLL(ISAPI:AnsiString):Boolean;
+Begin
+{$IFDEF USE_DLL_MGR}
+   Result:=fDLLManager.LoadThisDLL(ISAPI);
+{$ELSE}
+   Result:=True;
+{$ENDIF}
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+// Find and Un-Load DLL instance
+///////////////////////////////////////////////////////////////////////////////
+Function TDXISAPI.UnRegisterDLL(ISAPI:AnsiString):Boolean;
+Begin
+{$IFDEF USE_DLL_MGR}
+   Result:=fDLLManager.UnLoadThisDLL(ISAPI);
+{$ELSE}
+   Result:=True;
+{$ENDIF}
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+// LAUNCH THE DLL!
+///////////////////////////////////////////////////////////////////////////////
+
+Function TDXISAPI.Execute(Session:TDXClientThread;
+                          ISAPI,
+                          Method,
+                          QueryString,
+                          PathInfo,
+                          PathTranslated,
+                          POSTContent_Type,
+                          POSTData:AnsiString;
+                          POSTDataSize:Integer;
+                          Var ResultLog:AnsiString):Boolean;
+Var
+   DXThreadRecord:PDXThreadRecord;
+   Version:TGetExtensionVersion;
+   Proc:THTTPExtensionProc;
+   AllDone:TTerminateExtension;
+   Loop:Integer;
+   DLLHandle:THandle;
+   ProcResults:Longword;
+   Err:PAnsiChar;
+   EVI:THSE_VERSION_INFO;
+   StartTime:Cardinal; // 3.0.b
+
+Begin
+   Result:=False;
+{$IFDEF USE_DLL_MGR}
+   DLLHandle:=fDLLManager.GetDLLHandle(ISAPI);
+{$ELSE}
+{$IFNDEF MSWINDOWS}
+   DLLHandle:=LoadLibrary(PAnsiChar(ISAPI));
+{$ELSE}
+   DLLHandle:=LoadLibraryExA(PAnsiChar(ISAPI),0,0);
+{$ENDIF}
+{$ENDIF}
+   If DLLHandle=0 then Begin
+      GetMem(Err,256);
+{$IFDEF MSWINDOWS}
+      FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM,nil,GetLastError,0,Err,256,Nil);
+{$ENDIF}
+      ResultLog:=ISAPI+AnsiString(' was not registered! (')+Err+AnsiChar(')');
+      FreeMem(Err,256);
+{$IFNDEF USE_DLL_MGR}
+      FreeLibrary(DLLHandle);
+{$ENDIF}
+      Exit;
+   End;
+   @Version:=GetProcAddress(DLLHandle,PAnsiChar('GetExtensionVersion'));
+   If Not Assigned(Version) then Begin
+      ResultLog:=ISAPI+AnsiString(' does not export "GetExtensionVersion"');
+{$IFNDEF USE_DLL_MGR}
+      FreeLibrary(DLLHandle);
+{$ENDIF}
+      Exit;
+   End;
+   @Proc:=GetProcAddress(DLLHandle,PAnsiChar('HTTPExtensionProc'));
+   If Not Assigned(Proc) then Begin
+      ResultLog:=ISAPI+AnsiString(' does not export "HTTPExtensionProc"');
+{$IFNDEF USE_DLL_MGR}
+      FreeLibrary(DLLHandle);
+{$ENDIF}
+      Exit;
+   End;
+
+   New(DXThreadRecord);
+   With DXThreadRecord^ do Begin
+      ThreadID:=GetCurrentThreadID;
+      Thread:=Session;
+      fToken:=0;
+      fDopHeaders:='';
+      fDopDeniedHeaders:='';
+      fGetServerVariable:=self.fGetServerVariable;
+      fRedirectHeader:=self.fRedirectHeader;
+      fBuildHeader:=self.fBuildHeader;
+      fRealPath:=ExtractFilePath(PathTranslated);
+      fiTimeout:=fTimeout;
+      fISAPIThreadPoolDone:=False;
+   End;
+   If Assigned(Version) then Begin
+      FillChar(EVI,Sizeof(EVI),#0);
+      If Not Version(EVI) then Begin
+         Dispose(DXThreadRecord);
+         ResultLog:=ISAPI+AnsiString(' Version Hook Refused');
+{$IFNDEF USE_DLL_MGR}
+         FreeLibrary(DLLHandle);
+{$ENDIF}
+         Exit;
+      End
+      Else ResultLog:=EVI.lpszExtensionDesc;
+   End;
+
+   With DXThreadRecord^.ECB do Begin
+      cbSize:=sizeof(TEXTENSION_CONTROL_BLOCK);
+      dwVersion:=HSE_VERSION_MAJOR shl 16 + HSE_VERSION_MINOR;
+      ConnID:=DXThreadRecord^.ThreadID;
+      dwHTTPStatusCode:=200;
+      FillChar(lpszLogData,HSE_LOG_BUFFER_LEN,#0);
+      lpszMethod:=PAnsiChar(Method);
+      lpszQueryString:=PAnsiChar(QueryString);
+      lpszPathInfo:=PAnsiChar(PathInfo);
+      lpszPathTranslated:=PAnsiChar(PathTranslated);
+      cbAvailable:=Length(PostData);
+      lpbData:=PAnsiChar(PostData);
+      cbTotalBytes:=POSTDataSize;
+      lpszContentType:=PAnsiChar(PostContent_Type);
+      GetServerVariable:=ServerVariable;
+      ServerSupportFunction:=ServerSupportFunctionS;
+      WriteClient:=ExtensionWriteClient;
+      ReadClient:=ExtensionReadClient;
+   End;
+
+   MyCriticalSection.StartingWrite;
+   fDXThreadArray.Add(DXThreadRecord);
+   MyCriticalSection.FinishedWrite;
+try
+   ProcResults:=Proc(DXThreadRecord^.ECB);
+   Result:=True;
+   Case ProcResults of
+      HSE_STATUS_SUCCESS,
+      HSE_STATUS_SUCCESS_AND_KEEP_CONN:Begin
+         ResultLog:=ResultLog+AnsiString(' success: ')+StrPas(DXThreadRecord^.ECB.lpszLogData);
+      End;
+      HSE_STATUS_PENDING:Begin
+         // we must loop here and wait for ISAPIThreadPool to finish.
+         // 3.0.b
+         StartTime:=TimeCounter; // 9/11/2002 moved down here.
+         While (Not DXThreadRecord^.fISAPIThreadPoolDone) and (TimeCounter<StartTime+30000) do Begin
+            DoSleepEx(1);
+         End;
+      End;
+      HSE_STATUS_ERROR:Begin
+         ResultLog:=ResultLog+AnsiString(' failed: ')+StrPas(DXThreadRecord^.ECB.lpszLogData);
+         Result:=False;
+         NotificationFilters(SF_NOTIFY_ACCESS_DENIED, PAnsiChar(ISAPI), SF_DENIED_APPLICATION, PAnsiChar(PathTranslated), 0);
+      End;
+      else Begin
+         ResultLog:=ResultLog+ansiString(' returned unknown status ')+
+            StrPas(DXThreadRecord^.ECB.lpszLogData);
+         Result:=False;
+      End; //else
+   End; //case
+except
+   on E: Exception do Begin
+      ResultLog:=ISAPI+' failed: '+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(E.Message);
+      Result:=False;
+   End;
+end;
+   NotificationFilters(SF_NOTIFY_END_OF_REQUEST, Nil, 0, Nil, 0); //END Request
+   @AllDone:=GetProcAddress(DLLHandle,PAnsiChar('TerminateExtension'));
+   If Assigned(AllDone) then AllDone(HSE_TERM_MUST_UNLOAD);
+{$IFNDEF USE_DLL_MGR}
+   FreeLibrary(DLLHandle);
+{$ENDIF}
+   WriteTransactionToLog('',0);
+   Loop:=0;
+   MyCriticalSection.StartingRead;
+   While (Loop<fDXThreadArray.Count) do Begin
+      DXThreadRecord:=fDXThreadArray[Loop];
+      If DXThreadRecord^.ThreadID=getCurrentThreadID then  Begin
+         // closing token if he is exist
+         MyCriticalSection.FinishedRead;
+         MyCriticalSection.StartingWrite;
+{$IFDEF MSWINDOWS}
+         If DXThreadRecord^.fToken<>0 then
+            CloseHandle(DXThreadRecord^.fToken);
+{$ENDIF}
+         Dispose(DXThreadRecord);
+         fDXThreadArray.Delete(Loop);
+         MyCriticalSection.FinishedWrite;
+         Exit;
+      End
+      Else Inc(Loop);
+   End;
+   MyCriticalSection.FinishedRead;
+End;
+
+function SortFilterCompare(Item1, Item2: Pointer): Integer;
+var fv1, fv2 : PHTTP_FILTER_VERSION;
+Begin
+   fv1:=PDXFilterRecord(Item1).fVersion;
+   fv2:=PDXFilterRecord(Item2).fVersion;
+   Result:= (fv1.dwFlags AND SF_NOTIFY_ORDER_MASK) -
+            (fv2.dwFlags AND SF_NOTIFY_ORDER_MASK);
+End;
+
+Procedure TDXISAPI.RegisterFilters(var ResultLog:AnsiString);
+var DXFilterRecord:PDXFilterRecord;
+    filterVersion:THTTP_FILTER_VERSION;
+    i:Integer;
+    DLLHandle:THandle;
+    ISAPI:AnsiString;
+    Version:TGetFilterVersion;
+Begin
+   for i:=0 to fFilter.Count-1 do Begin
+      DXFilterRecord:=fFilter.Items[i];
+      ISAPI:=DXFilterRecord.fName;
+      RegisterDLL(ISAPI);
+{$IFDEF USE_DLL_MGR}
+      DLLHandle:=fDLLManager.GetDLLHandle(ISAPI);
+{$ELSE}
+{$IFNDEF MSWINDOWS}
+      DLLHandle:=LoadLibrary(PAnsiChar(ISAPI));
+{$ELSE}
+      DLLHandle:=LoadLibraryExA(PAnsiChar(ISAPI),0,0);
+{$ENDIF}
+{$ENDIF}
+      If DLLHandle=0 then Begin
+         ResultLog:=ISAPI+AnsiString(' was not registered!');
+         Continue;
+      End;
+
+      @Version:=GetProcAddress(DLLHandle,PAnsiChar('GetFilterVersion'));
+      If Not Assigned(Version) then Begin
+         ResultLog:=ISAPI+AnsiString(' does not export "GetFilterVersion"');
+         RemoveFilter(ISAPI);
+         Exit;
+      End;
+
+      DXFilterRecord.fNotification:=Version(filterVersion);
+      DXFilterRecord.fVersion^:=filterVersion;
+   End;
+
+   fFilter.Sort(SortFilterCompare);
+End;
+
+Procedure TDXISAPI.UnRegisterFilters(var ResultLog:AnsiString);
+var DXFilterRecord:PDXFilterRecord;
+    i:Integer;
+    DLLHandle:THandle;
+    Term:TTerminateFilter;
+Begin
+   for i:=0 to fFilter.Count-1 do Begin
+      DXFilterRecord:=fFilter.Items[i];
+{$IFDEF USE_DLL_MGR}
+      DLLHandle:=fDLLManager.GetDLLHandle(DXFilterRecord.fName);
+{$ELSE}
+{$IFNDEF MSWINDOWS}
+      DLLHandle:=LoadLibrary(PAnsiChar(DXFilterRecord.fName));
+{$ELSE}
+      DLLHandle:=LoadLibraryExA(PAnsiChar(DXFilterRecord.fName),0,0);
+{$ENDIF}
+{$ENDIF}
+      If DLLHandle=0 then Begin
+         ResultLog:=DXFilterRecord.fName+AnsiString(' was not registered!');
+         Continue;
+      End;
+
+      @Term:=GetProcAddress(DLLHandle,PAnsiChar('TerminateFilter'));
+      If Not Assigned(Term) then
+         Continue;
+
+      Term(0);
+{$IFDEF USE_DLL_MGR}
+      fDLLManager.UnLoadThisDLL(DXFilterRecord.fName);
+{$ELSE}
+      FreeLibrary(DLLHandle);
+{$ENDIF}
+   End;
+End;
+
+Function TDXISAPI.AddFilter(ISAPI:AnsiString):Boolean;
+var DXFilterRecord:PDXFilterRecord;
+    filterVersion:PHTTP_FILTER_VERSION;
+Begin
+   Result:=False;
+   New(DXFilterRecord);
+   New(filterVersion);
+   DXFilterRecord.fName:=ISAPI;
+   with filterVersion^ do
+   Begin
+      dwServerFilterVersion:=HTTP_FILTER_REVISION;
+      dwFilterVersion:=0;
+      lpszFilterDesc:='';
+      dwFlags:=0;
+   End;
+   DXFilterRecord.fVersion := filterVersion;
+   DXFilterRecord.fNotification := True;
+   DXFilterRecord.fDisableNotification := 0;
+   DXFilterRecord.fNextReadSize := 16*1024; //16Kb
+   if (fFilter.Add(DXFilterRecord) >= 0) then Result:=True
+   else Begin
+      Dispose(filterVersion);
+      Dispose(DXFilterRecord);
+   End;
+End;
+
+Function TDXISAPI.RemoveFilter(ISAPI:AnsiString):Boolean;
+var DXFilterRecord:PDXFilterRecord;
+    HTTP_FILTER_VERSION:PHTTP_FILTER_VERSION;
+    i : Integer;
+Begin
+   Result:=False;
+   MyCriticalSection.StartingWrite;
+   for i:=0 to fFilter.Count-1 do
+   Begin
+      DXFilterRecord:=fFilter.Items[i];
+      if DXFilterRecord.fName = ISAPI then
+      Begin
+       HTTP_FILTER_VERSION:=DXFilterRecord.fVersion;
+       Dispose(HTTP_FILTER_VERSION);
+       Dispose(DXFilterRecord);
+       fFilter.Delete(i);
+       Result:=True;
+       MyCriticalSection.FinishedWrite;
+       Exit;
+      End;
+   End;
+   MyCriticalSection.FinishedRead;
+End;
+
+Procedure TDXISAPI.ServerStartEvent;
+var
+   res:AnsiString;
+Begin
+   RegisterFilters(res);
+End;
+
+Procedure TDXISAPI.ServerStopEvent;
+var
+   res:AnsiString;
+Begin
+   self.UnRegisterFilters(res);
+End;
+
+Procedure TDXISAPI.ServerRawRead(ReadString:AnsiString;Len:Longword);
+Begin
+   NotificationFilters(SF_NOTIFY_READ_RAW_DATA, @ReadString, Len, Nil, 0);
+End;
+
+Procedure TDXISAPI.ServerPreprocHeaderEvent(DXHeaderInfo:PHeaderInfo);
+Begin
+   NotificationFilters(SF_NOTIFY_PREPROC_HEADERS, DXHeaderInfo, 0, Nil, 0);
+End;
+
+Procedure TDXISAPI.ConvertedURL2Physical(URL:AnsiString;Physical:AnsiString);
+Begin
+   NotificationFilters(SF_NOTIFY_URL_MAP,@URL,Length(URL),@Physical,Length(Physical));
+End;
+
+Procedure TDXISAPI.ServerEndOfRequest;
+Begin
+   NotificationFilters(SF_NOTIFY_END_OF_REQUEST, Nil, 0, Nil, 0);
+End;
+
+Procedure TDXISAPI.ServerEndSession;
+Begin
+   NotificationFilters(SF_NOTIFY_END_OF_NET_SESSION, Nil, 0, Nil, 0);
+End;
+
+Procedure TDXISAPI.SetServerVariableProc(value:TFilterGetServerVariableProc);
+Begin
+   fGetServerVariableFilterProc:=value;
+End;
+
+Function TDXISAPI.GetServerVariableProc:TFilterGetServerVariableProc;
+Begin
+   Result := fGetServerVariableFilterProc;
+End;
+
+Function TDXISAPI.FilterCount:Integer;
+Begin
+   Result:=fFilter.Count;
+End;
+
+{$IFDEF SUPPORT_COM}
+initialization
+  CoInitializeEx(nil,COINIT_MULTITHREADED);
+finalization
+  CoUninitialize;
+{$ENDIF}
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXISAPIFilter.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXISAPIFilter.pas
new file mode 100644
index 0000000..6450cec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXISAPIFilter.pas	
@@ -0,0 +1,481 @@
+unit uRODXISAPIFilter;
+
+interface
+
+///////////////////////////////////////////////////////////////////////////////
+//    Component: TDXISAPIFilter
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description:
+// ========================================================================
+///////////////////////////////////////////////////////////////////////////////
+
+{$IFDEF VER100}
+Type
+   Longword=Cardinal;
+{$ENDIF}
+
+Const
+  HTTP_FILTER_REVISION    = $00040000;
+
+  SF_MAX_USERNAME         = (256+1);
+  SF_MAX_PASSWORD         = (256+1);
+
+  SF_MAX_FILTER_DESC_LEN  = (256+1);
+
+  //
+  //  These values can be used with the pfnSFCallback function supplied in
+  //  the filter context structure
+  //
+
+  //
+  //  Sends a complete HTTP server response header including
+  //  the status, server version, message time and MIME version.
+  //
+  //  Server extensions should append other information at the end,
+  //  such as Content-type, Content-length etc followed by an extra
+  //  '\r\n'.
+  //
+  //  pData - Zero terminated string pointing to optional
+  //      status string (i.e., "401 Access Denied") or NULL for
+  //      the default response of "200 OK".
+  //
+  //  ul1 - Zero terminated string pointing to optional data to be
+  //      appended and set with the header.  If NULL, the header will
+  //      be terminated with an empty line.
+  //
+
+  SF_REQ_SEND_RESPONSE_HEADER = 0;
+  {.$EXTERNALSYM SF_REQ_SEND_RESPONSE_HEADER}
+
+  //
+  //  If the server denies the HTTP request, add the specified headers
+  //  to the server error response.
+  //
+  //  This allows an authentication filter to advertise its services
+  //  w/o filtering every request.  Generally the headers will be
+  //  WWW-Authenticate headers with custom authentication schemes but
+  //  no restriction is placed on what headers may be specified.
+  //
+  //  pData - Zero terminated string pointing to one or more header lines
+  //      with terminating '\r\n'.
+  //
+
+  SF_REQ_ADD_HEADERS_ON_DENIAL = 1;
+  {.$EXTERNALSYM SF_REQ_ADD_HEADERS_ON_DENIAL}
+
+  //
+  //  Only used by raw data filters that return SF_STATUS_READ_NEXT
+  //
+  //  ul1 - size in bytes for the next read
+  //
+
+  SF_REQ_SET_NEXT_READ_SIZE = 2;
+  {.$EXTERNALSYM SF_REQ_SET_NEXT_READ_SIZE}
+
+  //
+  //  Used to indicate this request is a proxy request
+  //
+  //  ul1 - The proxy flags to set
+  //      0x00000001 - This is a HTTP proxy request
+  //
+  //
+
+  SF_REQ_SET_PROXY_INFO = 3;
+  {.$EXTERNALSYM SF_REQ_SET_PROXY_INFO}
+
+  SF_REQ_GET_CONNID = 4;
+  {.$EXTERNALSYM SF_REQ_GET_CONNID}
+
+  SF_REQ_DISABLE_NOTIFICATIONS = 5;
+  {.$EXTERNALSYM SF_REQ_DISABLE_NOTIFICATIONS}
+
+  SF_REQ_GET_PROPERTY = 6;
+  {.$EXTERNALSYM SF_REQ_GET_PROPERTY}
+
+  SF_REQ_NORMALIZE_URL = 7;
+  {.$EXTERNALSYM SF_REQ_NORMALIZE_URL}
+
+  //
+  //  These values are returned by the filter entry point when a new request is
+  //  received indicating their interest in this particular request
+  //
+
+  //
+  //  The filter has handled the HTTP request.  The server should disconnect
+  //  the session.
+  //
+
+  SF_STATUS_REQ_FINISHED = $8000000;
+  {.$EXTERNALSYM SF_STATUS_REQ_FINISHED}
+
+  //
+  //  Same as SF_STATUS_FINISHED except the server should keep the TCP
+  //  session open if the option was negotiated
+  //
+
+  SF_STATUS_REQ_FINISHED_KEEP_CONN = $8000001;
+  {.$EXTERNALSYM SF_STATUS_REQ_FINISHED_KEEP_CONN}
+
+  //
+  //  The next filter in the notification chain should be called
+  //
+
+  SF_STATUS_REQ_NEXT_NOTIFICATION = $8000002;
+  {.$EXTERNALSYM SF_STATUS_REQ_NEXT_NOTIFICATION}
+
+  //
+  //  This filter handled the notification.  No other handles should be
+  //  called for this particular notification type
+  //
+
+  SF_STATUS_REQ_HANDLED_NOTIFICATION = $8000003;
+  {.$EXTERNALSYM SF_STATUS_REQ_HANDLED_NOTIFICATION}
+
+  //
+  //  An error occurred.  The server should use GetLastError() and indicate
+  //  the error to the client
+  //
+
+  SF_STATUS_REQ_ERROR = $8000004;
+  {.$EXTERNALSYM SF_STATUS_REQ_ERROR}
+
+  //
+  //  The filter is an opaque stream filter and we're negotiating the
+  //  session parameters.  Only valid for raw read notification.
+  //
+
+  SF_STATUS_REQ_READ_NEXT = $8000005;
+  {.$EXTERNALSYM SF_STATUS_REQ_READ_NEXT}
+
+  //
+  //  Bitfield indicating the requested resource has been denied by the server due
+  //  to a logon failure, an ACL on a resource, an ISAPI Filter or an
+  //  ISAPI Application/CGI Application.
+  //
+  //  SF_DENIED_BY_CONFIG can appear with SF_DENIED_LOGON if the server
+  //  configuration did not allow the user to logon.
+  //
+
+  SF_DENIED_LOGON             = $00000001;
+  {.$EXTERNALSYM SF_DENIED_LOGON}
+  SF_DENIED_RESOURCE          = $00000002;
+  {.$EXTERNALSYM SF_DENIED_RESOURCE}
+  SF_DENIED_FILTER            = $00000004;
+  {.$EXTERNALSYM SF_DENIED_FILTER}
+  SF_DENIED_APPLICATION       = $00000008;
+  {.$EXTERNALSYM SF_DENIED_APPLICATION}
+  SF_DENIED_BY_CONFIG         = $00010000;
+  {.$EXTERNALSYM SF_DENIED_BY_CONFIG}
+
+
+  //
+  //  Notification Flags
+  //
+  //  SF_NOTIFY_SECURE_PORT
+  //  SF_NOTIFY_NONSECURE_PORT
+  //
+  //      Indicates whether the application wants to be notified for transactions
+  //      that are happenning on the server port(s) that support data encryption
+  //      (such as PCT and SSL), on only the non-secure port(s) or both.
+  //
+  //  SF_NOTIFY_READ_RAW_DATA
+  //
+  //      Applications are notified after the server reads a block of memory
+  //      from the client but before the server does any processing on the
+  //      block.  The data block may contain HTTP headers and entity data.
+  //
+  //
+  //
+
+  SF_NOTIFY_SECURE_PORT               = $00000001;
+  {.$EXTERNALSYM SF_NOTIFY_SECURE_PORT}
+  SF_NOTIFY_NONSECURE_PORT            = $00000002;
+  {.$EXTERNALSYM SF_NOTIFY_NONSECURE_PORT}
+  SF_NOTIFY_READ_RAW_DATA             = $00008000;
+  {.$EXTERNALSYM SF_NOTIFY_READ_RAW_DATA}
+  SF_NOTIFY_PREPROC_HEADERS           = $00004000;
+  {.$EXTERNALSYM SF_NOTIFY_PREPROC_HEADERS}
+  SF_NOTIFY_AUTHENTICATION            = $00002000;
+  {.$EXTERNALSYM SF_NOTIFY_AUTHENTICATION}
+  SF_NOTIFY_URL_MAP                   = $00001000;
+  {.$EXTERNALSYM SF_NOTIFY_URL_MAP}
+  SF_NOTIFY_ACCESS_DENIED             = $00000800;
+  {.$EXTERNALSYM SF_NOTIFY_ACCESS_DENIED}
+  SF_NOTIFY_SEND_RAW_DATA             = $00000400;
+  {.$EXTERNALSYM SF_NOTIFY_SEND_RAW_DATA}
+  SF_NOTIFY_LOG                       = $00000200;
+  {.$EXTERNALSYM SF_NOTIFY_LOG}
+  SF_NOTIFY_END_OF_NET_SESSION        = $00000100;
+  {.$EXTERNALSYM SF_NOTIFY_END_OF_NET_SESSION}
+  SF_NOTIFY_END_OF_REQUEST =            $00000080;
+  {.$EXTERNALSYM SF_NOTIFY_END_OF_REQUEST}
+  SF_NOTIFY_SEND_RESPONSE =             $00010000;
+  {.$EXTERNALSYM SF_NOTIFY_SEND_RESPONSE}
+
+  //
+  //  Filter ordering flags
+  //
+  //  Filters will tend to be notified by their specified
+  //  ordering.  For ties, notification order is determined by load order.
+  //
+  //  SF_NOTIFY_ORDER_HIGH - Authentication or data transformation filters
+  //  SF_NOTIFY_ORDER_MEDIUM
+  //  SF_NOTIFY_ORDER_LOW  - Logging filters that want the results of any other
+  //                      filters might specify this order.
+  //
+
+  SF_NOTIFY_ORDER_HIGH               = $00080000;
+  {.$EXTERNALSYM SF_NOTIFY_ORDER_HIGH}
+  SF_NOTIFY_ORDER_MEDIUM             = $00040000;
+  {.$EXTERNALSYM SF_NOTIFY_ORDER_MEDIUM}
+  SF_NOTIFY_ORDER_LOW                = $00020000;
+  {.$EXTERNALSYM SF_NOTIFY_ORDER_LOW}
+  SF_NOTIFY_ORDER_DEFAULT            = SF_NOTIFY_ORDER_LOW;
+  {.$EXTERNALSYM SF_NOTIFY_ORDER_DEFAULT}
+  SF_NOTIFY_ORDER_MASK               = SF_NOTIFY_ORDER_HIGH or
+                                       SF_NOTIFY_ORDER_MEDIUM or
+                                       SF_NOTIFY_ORDER_LOW;
+  {.$EXTERNALSYM SF_NOTIFY_ORDER_MASK}
+
+  SF_PROPERTY_INSTANCE_NUM_ID = 1;
+  {.$EXTERNALSYM SF_PROPERTY_INSTANCE_NUM_ID}
+//
+//  pvNotification points to this structure for all request notification types
+//
+
+Type
+   SF_REQ_TYPE = LONGWORD;
+   SF_STATUS_TYPE = LONGWORD;
+
+  PHTTP_FILTER_CONTEXT = ^THTTP_FILTER_CONTEXT;
+  TFilterGetServerVariableProc = function (pfc: PHTTP_FILTER_CONTEXT;
+    VariableName: PAnsiChar; Buffer: Pointer; var Size: LONGWORD ): BOOLEAN of Object;
+//  TFilterGetServerVariableProc = function (var pfc{: THTTP_FILTER_CONTEXT};
+//    VariableName: PChar; Buffer: Pointer; var Size: DWORD ): BOOL of Object;
+
+  TFilterAddResponseHeadersProc = function (var pfc{: THTTP_FILTER_CONTEXT};
+    lpszHeaders: PAnsiChar; dwReserved: Longword): BOOLEAN; stdcall;
+
+  TFilterWriteClientProc = function (var pfc{: THTTP_FILTER_CONTEXT};
+    Buffer: Pointer; var Bytes: Longword; dwReserved: Longword ): BOOLEAN; stdcall;
+
+  TFilterAllocMemProc = function (var pfc{: THTTP_FILTER_CONTEXT}; cbSize: Longword;
+    dwReserved: Longword): Pointer; stdcall;
+
+  TFilterServerSupportFunctionProc = function (var pfc{: THTTP_FILTER_CONTEXT};
+    sfReq: Longword; pData: Pointer; ul1, ul2:{$IFDEF cpu64}UInt64{$ELSE}Longword{$ENDIF}): BOOLEAN; stdcall;
+
+  THTTP_FILTER_CONTEXT = record
+    cbSize: LONGWORD;
+
+    //
+    //  This is the structure revision level.
+    //
+
+    Revision: LONGWORD;
+
+    //
+    //  Private context information for the server.
+    //
+
+    ServerContext: Pointer;
+    ulReserved: LONGWORD;
+
+    //
+    //  TRUE if this request is coming over a secure port
+    //
+
+    fIsSecurePort: BOOLEAN;
+
+    //
+    //  A context that can be used by the filter
+    //
+
+    pFilterContext: Pointer;
+
+    //
+    //  Server callbacks
+    //
+
+    GetServerVariable: TFilterGetServerVariableProc;
+    AddResponseHeaders: TFilterAddResponseHeadersProc;
+    WriteClient: TFilterWriteClientProc;
+    AllocMem: TFilterAllocMemProc;
+    ServerSupportFunction: TFilterServerSupportFunctionProc;
+  end;
+
+  PHTTP_FILTER_RAW_DATA = ^THTTP_FILTER_RAW_DATA;
+  THTTP_FILTER_RAW_DATA = record
+    //
+    //  This is a pointer to the data for the filter to process.
+    //
+    pvInData: Pointer;
+    cbInData: LONGWORD;       // Number of valid data bytes
+    cbInBuffer: LONGWORD;     // Total size of buffer
+    dwReserved: LONGWORD;
+  end;
+
+  //
+  //  This structure is the notification info for when the server is about to
+  //  process the client headers
+  //
+
+  TGetHeaderProc = function (var pfc: THTTP_FILTER_CONTEXT; lpszName: PAnsiChar;
+    var lpvBuffer; var lpdwSize: Longword): BOOLEAN; stdcall;
+
+  TSetHeaderProc = function (var pfc: THTTP_FILTER_CONTEXT; lpszName,
+    lpszValue: PAnsiChar): BOOLEAN; stdcall;
+
+  TAddHeaderProc = function (var pfc: THTTP_FILTER_CONTEXT; lpszName,
+    lpszValue: PAnsiChar): BOOLEAN; stdcall;
+
+
+   PHTTP_FILTER_SEND_RESPONSE = ^THTTP_FILTER_SEND_RESPONSE;
+   THTTP_FILTER_SEND_RESPONSE = record
+      AddHeader:TAddHeaderProc;
+      SetHeader:TSetHeaderProc;
+      GetHeader:TGetHeaderProc;
+      HTTPStatus:LONGWORD;
+      dwReserved:LONGWORD;
+   End;
+
+
+  PHTTP_FILTER_PREPROC_HEADERS = ^THTTP_FILTER_PREPROC_HEADERS;
+  THTTP_FILTER_PREPROC_HEADERS = record
+    //
+    //  Retrieves the specified header value.  Header names should include
+    //  the trailing ':'.  The special values 'method', 'url' and 'version'
+    //  can be used to retrieve the individual portions of the request line
+    //
+
+    GetHeader: TGetHeaderProc;
+
+    //
+    //  Replaces this header value to the specified value.  To delete a header,
+    //  specified a value of '\0'.
+    //
+
+    SetHeader: TSetHeaderProc;
+
+    //
+    //  Adds the specified header and value
+    //
+
+    AddHeader: TAddHeaderProc;
+
+    HTTPStatus: LONGWORD;
+
+    dwReserved: LONGWORD;
+  end;
+
+
+  //
+  //  Authentication information for this request.
+  //
+
+  PHTTP_FILTER_AUTHENT = ^THTTP_FILTER_AUTHENT;
+  THTTP_FILTER_AUTHENT = record
+    //
+    //  Pointer to username and password, empty strings for the anonymous user
+    //
+    //  Client's can overwrite these buffers which are guaranteed to be at
+    //  least SF_MAX_USERNAME and SF_MAX_PASSWORD bytes large.
+    //
+
+    pszUser: PAnsiChar;
+    cbUserBuff: LONGWORD;
+
+    pszPassword: PAnsiChar;
+    cbPasswordBuff: LONGWORD;
+  end;
+
+  //
+  //  Indicates the server is going to use the specific physical mapping for
+  //  the specified URL.  Filters can modify the physical path in place.
+  //
+
+  PHTTP_FILTER_URL_MAP = ^THTTP_FILTER_URL_MAP;
+  THTTP_FILTER_URL_MAP = record
+    pszURL: PAnsiChar;
+    pszPhysicalPath: PAnsiChar;
+    cbPathBuff: LONGWORD;
+  end;
+
+  PHTTP_FILTER_ACCESS_DENIED = ^THTTP_FILTER_ACCESS_DENIED;
+  THTTP_FILTER_ACCESS_DENIED = record
+    pszURL: PAnsiChar;            // Requesting URL
+    pszPhysicalPath: PAnsiChar;   // Physical path of resource
+    dwReason: LONGWORD;          // Bitfield of SF_DENIED flags
+  end;
+
+  //
+  //  The log information about to be written to the server log file.  The
+  //  string pointers can be replaced but the memory must remain valid until
+  //  the next notification
+  //
+
+  PHTTP_FILTER_LOG = ^THTTP_FILTER_LOG;
+  THTTP_FILTER_LOG = record
+    pszClientHostName: PAnsiChar;
+    pszClientUserName: PAnsiChar;
+    pszServerName: PAnsiChar;
+    pszOperation: PAnsiChar;
+    pszTarget: PAnsiChar;
+    pszParameters: PAnsiChar;
+    dwHTTPStatus: LONGWORD;
+    dwWin32Status: LONGWORD;
+    dwBytesSent:LONGWORD;
+    dwBytesRecvd:LONGWORD;
+    msTimeForProcessing:LONGWORD;
+  end;
+
+  //
+  //  Filter version information, passed to GetFilterVersion
+  //
+  PHTTP_FILTER_VERSION = ^THTTP_FILTER_VERSION;
+  THTTP_FILTER_VERSION = record
+    //
+    //  Version of the spec the server is using
+    //
+
+    dwServerFilterVersion: LONGWORD;
+
+    //
+    //  Fields specified by the client
+    //
+    dwFilterVersion: LONGWORD;
+    lpszFilterDesc: array[0..SF_MAX_FILTER_DESC_LEN - 1] of AnsiChar;
+    dwFlags: LONGWORD;
+  end;
+
+
+  THTTPFilterProc = function (var pfc: THTTP_FILTER_CONTEXT;
+    Notificationtype: LONGWORD; pvNotification: Pointer): LONGWORD; stdcall;
+
+  TGetFilterVersion = function (var pVer: THTTP_FILTER_VERSION): BOOLEAN; stdcall;
+  
+  TTerminateFilter = function(flags:LONGWORD): BOOLEAN; stdcall;
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSecurity.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSecurity.pas
new file mode 100644
index 0000000..d9783f8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSecurity.pas	
@@ -0,0 +1,306 @@
+unit uRODXSecurity;
+
+///////////////////////////////////////////////////////////////////////////////
+//         Unit: DXSecurity
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description:
+// ========================================================================
+// Content all certificates and security structures and types.
+///////////////////////////////////////////////////////////////////////////////
+
+interface
+
+{$IFDEF VER100}
+Uses
+   Windows;
+   
+Type
+   LongWord=DWord;
+{$ENDIF}
+
+Const
+   //Encoding/decoding algoritms
+   X509_ASN_ENCODING = 1;
+   PKCS_7_ASN_ENCODING = 2;
+
+   //certificat vervion
+   CERT_V1=1;
+   CERT_V2=2;
+   CERT_V3=3;
+
+   //OID of algorithm
+   szOID_RSA='1.2.840.113549';
+   szOID_PKCS='1.2.840.113549.1';
+   szOID_RSA_HASH='1.2.840.113549.2';
+   szOID_RSA_ENCRYPT='1.2.840.113549.3';
+   szOID_PKCS_1='1.2.840.113549.1.1';
+   szOID_PKCS_2='1.2.840.113549.1.2';
+   szOID_PKCS_3='1.2.840.113549.1.3';
+   szOID_PKCS_4='1.2.840.113549.1.4';
+   szOID_PKCS_5='1.2.840.113549.1.5';
+   szOID_PKCS_6='1.2.840.113549.1.6';
+   szOID_PKCS_7='1.2.840.113549.1.7';
+   szOID_PKCS_8='1.2.840.113549.1.8';
+   szOID_PKCS_9='1.2.840.113549.1.9';
+   szOID_PKCS_10='1.2.840.113549.1.10';
+   szOID_PKCS_12='1.2.840.113549.1.12';
+   szOID_RSA_MD2='1.2.840.113549.1.1.2';
+   szOID_RSA_MD4='1.2.840.113549.1.1.3';
+   szOID_RSA_MD5='1.2.840.113549.1.1.4';
+   szOID_RSA_RSA='1.2.840.113549.1.1.1';
+   szOID_RSA_MD2RSA='1.2.840.113549.1.1.2';
+   szOID_RSA_MD4RSA='1.2.840.113549.1.1.3';
+   szOID_RSA_MD5RSA='1.2.840.113549.1.1.4';
+   szOID_RSA_SHA1RSA='1.2.840.113549.1.1.5';
+   szOID_RSA_SETOAEP_RSA='1.2.840.113549.1.1.5';
+   szOID_RSA_DH='1.2.840.113549.1.3.1';
+   szOID_RSA_data='1.2.840.113549.1.7.1';
+   szOID_RSA_signedData='1.2.840.113549.1.7.2';
+   szOID_RSA_envelopedData='1.2.840.113549.1.7.3';
+   szOID_RSA_signEnvData='1.2.840.113549.1.7.4';
+   szOID_RSA_digestedData='1.2.840.113549.1.7.5';
+   szOID_RSA_hashedData='1.2.840.113549.1.7.5';
+   szOID_RSA_encryptedData='1.2.840.113549.1.7.6';
+   szOID_RSA_emailAddr='1.2.840.113549.1.9.1';
+   szOID_RSA_unstructName='1.2.840.113549.1.9.2';
+   szOID_RSA_contentType='1.2.840.113549.1.9.3';
+   szOID_RSA_messageDigest='1.2.840.113549.1.9.4';
+   szOID_RSA_signingTime='1.2.840.113549.1.9.5';
+   szOID_RSA_counterSign='1.2.840.113549.1.9.6';
+   szOID_RSA_challengePwd='1.2.840.113549.1.9.7';
+   szOID_RSA_unstructAddr='1.2.840.113549.1.9.8';
+   szOID_RSA_extCertAttrs='1.2.840.113549.1.9.9';
+   szOID_RSA_SMIMECapabilities='1.2.840.113549.1.9.15';
+   szOID_RSA_preferSignedData='1.2.840.113549.1.9.15.1';
+   szOID_RSA_RC2CBC='1.2.840.113549.3.2';
+   szOID_RSA_RC4='1.2.840.113549.3.4';
+   szOID_RSA_DES_EDE3_CBC='1.2.840.113549.3.7';
+   szOID_RSA_RC5_CBCPad='1.2.840.113549.3.9';
+   szOID_ANSI_x942='1.2.840.10046';
+   szOID_ANSI_x942_DH='1.2.840.10046.2.1';
+   szOID_X957='1.2.840.10040';
+   szOID_X957_DSA='1.2.840.10040.4.1';
+   szOID_DATA_STRUCTURE='1.2.840.10040.4.3';
+   szOId_DS='2.5';
+   szOID_DSALG='2.5.8';
+   szOID_DSALG_CRPT='2.5.8.1';
+   szOID_DSALG_HASH='2.5.8.2';
+   szOID_DSALG_SIGN='2.5.8.3';
+   szOID_DSALG_RSA='2.5.8.1.1';
+   szOID_OIW='1.3.14';
+   szOID_OIWSEC='1.3.14.3.2';
+   szOID_OIWSEC_md4RSA='1.3.14.3.2.2';
+   szOID_OIWSEC_md5RSA='1.3.14.3.2.3';
+   szOID_OIWSEC_md4RSA2='1.3.14.3.2.4';
+   szOID_OIWSEC_desECB='1.3.14.3.2.6';
+   szOID_OIWSEC_desCBC='1.3.14.3.2.7';
+   szOID_OIWSEC_desOFB='1.3.14.3.2.8';
+   szOID_OIWSEC_desCFB='1.3.14.3.2.9';
+   szOID_OIWSEC_desMAC='1.3.14.3.2.10';
+   szOID_OIWSEC_rsaSign='1.3.14.3.2.11';
+   szOID_OIWSEC_dsa='1.3.14.3.2.12';
+   szOID_OIWSEC_shaDSA='1.3.14.3.2.13';
+   szOID_OIWSEC_mdc2RSA='1.3.14.3.2.14';
+   szOID_OIWSEC_shaRSA='1.3.14.3.2.15';
+   szOID_OIWSEC_dhCommMod='1.3.14.3.2.16';
+   szOID_OIWSEC_desEDE='1.3.14.3.2.17';
+   szOID_OIWSEC_sha='1.3.14.3.2.18';
+   szOID_OIWSEC_mdc2='1.3.14.3.2.19';
+   szOID_OIWSEC_dsaComm='1.3.14.3.2.20';
+   szOID_OIWSEC_dsaCommSHA='1.3.14.3.2.21';
+   szOID_OIWSEC_rsaXchg='1.3.14.3.2.22';
+   szOID_OIWSEC_keyHashSeal='1.3.14.3.2.23';
+   szOID_OIWSEC_md2RSASign='1.3.14.3.2.24';
+   szOID_OIWSEC_md5RSASign='1.3.14.3.2.25';
+   szOID_OIWSEC_sha1='1.3.14.3.2.26';
+   szOID_OIWSEC_dsaSHA1='1.3.14.3.2.27';
+   szOID_OIWSEC_dsaCommSHA1='1.3.14.3.2.28';
+   szOID_OIWSEC_sha1RSASign='1.3.14.3.2.29';
+   szOID_OIWDIR='1.3.14.7.2';
+   szOID_OIWDIR_CRPT='1.3.14.7.2.1';
+   szOID_OIWDIR_HASH='1.3.14.7.2.2';
+   szOID_OIWDIR_SIGN='1.3.14.7.2.3';
+   szOID_OIWDIR_md2='1.3.14.7.2.2.1';
+   szOID_OIWDIR_md2RSA='1.3.14.7.2.3.1';
+   szOID_INFOSEC='2.16.840.1.101.2.1';
+   szOID_INFOSEC_sdnsSignature='2.16.840.1.101.2.1.1.1';
+   szOID_INFOSEC_mosaicSignature='2.16.840.1.101.2.1.1.2';
+   szOID_INFOSEC_sdnsConfidentiality='2.16.840.1.101.2.1.1.3';
+   szOID_INFOSEC_mosaicConfidentiality='2.16.840.1.101.2.1.1.4';
+   szOID_INFOSEC_sdnsIntegrity='2.16.840.1.101.2.1.1.5';
+   szOID_INFOSEC_mosaicIntegrity='2.16.840.1.101.2.1.1.6';
+   szOID_INFOSEC_sdnsTokenProtection='2.16.840.1.101.2.1.1.7';
+   szOID_INFOSEC_mosaicTokenProtection='2.16.840.1.101.2.1.1.8';
+   szOID_INFOSEC_sdnsKeyManagement='2.16.840.1.101.2.1.1.9';
+   szOID_INFOSEC_mosaicKeyManagement='2.16.840.1.101.2.1.1.10';
+   szOID_INFOSEC_sdnsKMandSig='2.16.840.1.101.2.1.1.11';
+   szOID_INFOSEC_mosaicKMandSig='2.16.840.1.101.2.1.1.12';
+   szOID_INFOSEC_SuiteASignature='2.16.840.1.101.2.1.1.13';
+   szOID_INFOSEC_SuiteAConfidentiality='2.16.840.1.101.2.1.1.14';
+   szOID_INFOSEC_SuiteAIntegrity='2.16.840.1.101.2.1.1.15';
+   szOID_INFOSEC_SuiteATokenProtection='2.16.840.1.101.2.1.1.16';
+   szOID_INFOSEC_SuiteAKeyManagement='2.16.840.1.101.2.1.1.17';
+   szOID_INFOSEC_SuiteAKMandSig='2.16.840.1.101.2.1.1.18';
+   szOID_INFOSEC_mosaicUpdatedSig='2.16.840.1.101.2.1.1.19';
+   szOID_INFOSEC_mosaicKMandUpdSig='2.16.840.1.101.2.1.1.20';
+   szOID_INFOSEC_mosaicUpdatedInteg='2.16.840.1.101.2.1.1.21';
+
+   //predefine algorithm types
+   X509_DSS_PARAMETERS = szOID_OIWSEC_dsa;
+   PKCS_RC2_CBC_PARAMETERS = szOID_RSA_RC2CBC;
+   X509_OCTET_STRING = szOID_OIWSEC_desCBC;
+{   X509_OCTET_STRING = szOID_RSA_DES_EDE3_CBC;
+   X509_OCTET_STRING = szOID_RSA_RC4;}
+
+Type
+   HCERTSTORE = Cardinal;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The CryptoAPI BLOB structure is used for an arbitrary array of bytes.
+// It is declared in Wincrypt.h and provides
+// flexibility for objects that can contain various data types.
+///////////////////////////////////////////////////////////////////////////////
+   TBLOB = record
+      cbData:LONGWORD;
+      pbData:^BYTE;
+   End;
+
+   TCRYPT_INTEGER_BLOB=TBLOB;
+   PCRYPT_INTEGER_BLOB=^TBLOB;
+   TCRYPT_UINT_BLOB=TBLOB;
+   PCRYPT_UINT_BLOB=^TBLOB;
+   TCRYPT_OBJID_BLOB=TBLOB;
+   PCRYPT_OBJID_BLOB=^TBLOB;
+   TCERT_NAME_BLOB=TBLOB;
+   PCERT_NAME_BLOB=^TBLOB;
+   TCERT_RDN_VALUE_BLOB=TBLOB;
+   PCERT_RDN_VALUE_BLOB=^TBLOB;
+   TCERT_BLOB=TBLOB;
+   PCERT_BLOB=^TBLOB;
+   TCRL_BLOB=TBLOB;
+   PCRL_BLOB=^TBLOB;
+   TDATA_BLOB=TBLOB;
+   PDATA_BLOB=^TBLOB;
+   TCRYPT_DATA_BLOB=TBLOB;
+   PCRYPT_DATA_BLOB=^TBLOB;
+   TCRYPT_HASH_BLOB=TBLOB;
+   PCRYPT_HASH_BLOB=^TBLOB;
+   TCRYPT_DIGEST_BLOB=TBLOB;
+   PCRYPT_DIGEST_BLOB=^TBLOB;
+   TCRYPT_DER_BLOB=TBLOB;
+   PCRYPT_DER_BLOB=^TBLOB;
+   TCRYPT_ATTR_BLOB=TBLOB;
+   PCRYPT_ATTR_BLOB=^TBLOB;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The CRYPT_BIT_BLOB structure contains an array of bytes. In a
+// CRYPT_BIT_BLOB the last byte in the array can contain zero to seven
+// unused bits. Therefore, the number of meaningful bits in the pbData
+// member is cbData * 8 � cUnusedBits.
+///////////////////////////////////////////////////////////////////////////////
+   PCRYPT_BIT_BLOB=^TCRYPT_BIT_BLOB;
+   TCRYPT_BIT_BLOB = packed record
+      cbData:LONGWORD;
+      pbData:^BYTE;
+      cUnusedBits:LONGWORD;
+   End;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The CRYPT_ALGORITHM_IDENTIFIER structure specifies an algorithm.
+// The structure includes the object identifier (OID) of the algorithm and
+// any needed parameters for that algorithm. The parameters contained in
+// its CRYPT_OBJID_BLOB are encoded.
+///////////////////////////////////////////////////////////////////////////////
+   PCRYPT_ALGORITHM_IDENTIFIER=^TCRYPT_ALGORITHM_IDENTIFIER;
+   TCRYPT_ALGORITHM_IDENTIFIER = packed record
+      pszObjId:AnsiString;
+      Parameters:TCRYPT_OBJID_BLOB;
+   End;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The CERT_PUBLIC_KEY_INFO structure contains a public key and its algorithm.
+///////////////////////////////////////////////////////////////////////////////
+   PCERT_PUBLIC_KEY_INFO=^TCERT_PUBLIC_KEY_INFO;
+   TCERT_PUBLIC_KEY_INFO = packed record
+      Algorithm:TCRYPT_ALGORITHM_IDENTIFIER;
+      PublicKey:TCRYPT_BIT_BLOB;
+   End;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The CERT_EXTENSION structure contains the extension information for a
+// certificate, Certificate Revocation List (CRL)
+// or Certificate Trust List (CTL).
+///////////////////////////////////////////////////////////////////////////////
+   PCERT_EXTENSION = ^TCERT_EXTENSION;
+   TCERT_EXTENSION = packed record
+      pszObjId:AnsiString;
+      fCritical:Boolean;
+      Value:TCRYPT_OBJID_BLOB;
+   End;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The CERT_INFO structure contains a certificate's information.
+///////////////////////////////////////////////////////////////////////////////
+   PCERT_INFO=^TCERT_INFO;
+   TCERT_INFO = packed record
+      dwVersion:LONGWORD;
+      SerialNumber:TCRYPT_INTEGER_BLOB;
+      SignatureAlgorithm:TCRYPT_ALGORITHM_IDENTIFIER;
+      Issuer:TCERT_NAME_BLOB;
+      NotBefore:TDATETIME;
+      NotAfter:TDATETIME;
+      Subject:TCERT_NAME_BLOB;
+      SubjectPublicKeyInfo:TCERT_PUBLIC_KEY_INFO;
+      IssuerUniqueId:TCRYPT_BIT_BLOB;
+      SubjectUniqueId:TCRYPT_BIT_BLOB;
+      cExtension:LONGWORD;
+      rgExtension:PCERT_EXTENSION;
+   End;
+
+///////////////////////////////////////////////////////////////////////////////
+// MSDN:
+// The CERT_CONTEXT structure contains both the encoded and decoded
+// representations of a certificate. A certificate context returned by one
+// of the functions defined in Wincrypt.h must be freed by calling the
+// CertFreeCertificateContext function. The CertDuplicateCertificateContext
+// function can be called to make a duplicate copy (which also must be
+// freed by calling CertFreeCertificateContext).
+///////////////////////////////////////////////////////////////////////////////
+   PCERT_CONTEXT=^TCERT_CONTEXT;
+   TCERT_CONTEXT = packed record
+      dwCertEncodingType:LONGWORD;
+      pbCertEncoded:^BYTE;
+      cbCertEncoded:LONGWORD;
+      pCertInfo:^PCERT_INFO;
+      hCertStore:HCERTSTORE;
+   End;
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXServerCore.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXServerCore.pas
new file mode 100644
index 0000000..0855bdb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXServerCore.pas	
@@ -0,0 +1,1157 @@
+unit uRODXServerCore;
+
+///////////////////////////////////////////////////////////////////////////////
+//    Component: TDXServerCore
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description: Ancestor to all our Protocol Implementations.
+// ========================================================================
+// Parent Thread Object and "Defacto" Server Object.
+// The Server Object (DXServerCore) is the heart of all protocols. It is used
+// to initiate winsock listening, and start the Parent Thread
+// (DXServerCoreThread). The Parent Thread constantly checks if the listener
+// has received a connection request, accepts the connection and spawns a
+// (DXServerThread) Session. And continues checking for more connections.
+///////////////////////////////////////////////////////////////////////////////
+
+interface
+
+{$I uRODXSock.def}
+
+uses
+{$IFDEF CODE_TRACER}
+  DXCodeTracer,
+{$ENDIF}
+  uRODXSessionTracker,
+  uRODXSock,
+  uRODXString,
+  Classes;
+
+type
+  TWhichProtocol =
+     (wpUDPOnly, wpTCPOnly);
+  TServerType =
+     (stNonBlocking, stThreadBlocking); // so you can port Borland code to DXSOCK!
+
+//*****************************************************************************
+// This thread is the spawned "Session" thread. Every connection detected by
+// the "Listener" thread is created as a TDXServerThread, and then that new
+// thread takes over communications with the new session.
+//*****************************************************************************
+  TDXClientThread = class;
+  TDX_NewConnect = procedure(ClientThread: TDXClientThread) of object;
+  TDX_DestroySessionData = procedure(ClientThread: TDXClientThread; SessionData: Pointer) of object;
+
+  {$IFDEF FPC}
+  TMy_SessionID = TThreadID;
+  {$ELSE}
+  TMy_SessionID = THandle;
+  {$ENDIF}
+
+  TDXClientThread = class(TThread)
+  private
+{$IFDEF CODE_TRACER}
+    CodeTracer:TDXCodeTracer;
+{$ENDIF}
+    Client: TDXSock;
+    feNewConnect: TDX_NewConnect;
+    feDestroySessionData: TDX_DestroySessionData;
+    fBlockSizeFlags: TDXBlockSizeFlags;
+    ListenerThreadObject:TThread;
+  protected
+    procedure Execute; override;
+    function GetSessionID:TMy_SessionID; // making move from INDY easier!
+  public
+    fpSessionData: Pointer;
+    constructor Create(CreateSuspended: Boolean);
+    destructor Destroy; override;
+    procedure SetSocketLater(Socket: TDXSock);
+  //published
+    property SessionID:TMy_SessionID read GetSessionID;
+    property Socket: TDXSock read Client
+      write Client;
+    property OnNewConnect: TDX_Newconnect read feNewConnect
+      write feNewConnect;
+    property OnDestroySessionData: TDX_DestroySessionData read feDestroySessionData
+      write feDestroySessionData;
+{$IFDEF CODE_TRACER}
+    property DXCodeTracer:TDXCodeTracer read CodeTracer
+                                        write CodeTracer;
+{$ENDIF}
+     Property Terminated;
+  end;
+
+//*****************************************************************************
+// All protocols use this thread to listen for incoming connections. This is
+// the "Listener" thread.
+//*****************************************************************************
+type
+  TDX_ListenerFailed = procedure(ErrorCode: Integer) of object;
+  TDXServerCoreThread = class;
+  TDX_MaxConnects = procedure(ServerCoreThread: TDXServerCoreThread) of object;
+  TDX_Idle = procedure(ServerCoreThread: TDXServerCoreThread) of object;
+  TDX_Sleep = procedure(ServerCoreThread: TDXServerCoreThread) of object;
+  TDX_WakeUp = procedure(ServerCoreThread: TDXServerCoreThread) of object;
+// 3.0c
+  TDX_UDPData = procedure(Data:Pointer;PeerIP:AnsiString;PeerPort,DataLen:Integer) of object;
+
+  TDXServerCoreThread = class(TThread)
+  private
+{$IFDEF CODE_TRACER}
+    CodeTracer:TDXCodeTracer;
+{$ENDIF}
+    fbSuspend: Boolean;
+    fbBufferCreates: Boolean;
+    ListenerSocket: TDXSock;
+    fSessionTracker:TDXSessionTracker;
+    fsBindTo: AnsiString;
+    fiServerPort: Integer;
+    fiMaxConn: Integer;
+    fbAnnouncedIdle: Boolean;
+    feNewConnect: TDX_NewConnect;
+    feMaxConnects: TDX_MaxConnects;
+    feListenerFailed: TDX_ListenerFailed;
+    feIdle: TDX_Idle;
+    feSleep: TDX_Sleep;
+    feWakeUp: TDX_WakeUp;
+    feUDPData: TDX_UDPData;
+{$IFDEF MSWINDOWS}
+    fstPriority: TThreadPriority;
+{$ENDIF}
+    fThreadPool: TList;
+    fWhichprotocol: TWhichProtocol;
+    FActiveConnections: Integer;
+    fBlockSizeFlags: TDXBlockSizeFlags;
+  protected
+    MyCriticalSection:TDXCritical;
+    procedure Execute; override;
+    procedure SetBufferCreates(value: Boolean);
+    procedure SetSuspend(value: Boolean);
+    function GetSocket: TDXSock;
+  public
+    constructor Create(CreateSuspended: Boolean);
+    destructor Destroy; override;
+    function ActiveNumberOfConnections: Integer;
+  //published
+    property MainSocket: TDXSock read GetSocket;
+{$IFDEF MSWINDOWS}
+    property SpawnedThreadPriority: TThreadPriority read fstPriority
+      write fstPriority;
+{$ENDIF}
+    property BufferCreates: Boolean read fbBufferCreates
+      write SetBufferCreates;
+    property SuspendListener: Boolean read fbSuspend
+      write SetSuspend;
+    property BindTo: AnsiString read fsBindTo
+      write fsBindTo;
+    property ServerPort: Integer read fiServerPort
+      write fiServerPort;
+    property ThreadCacheSize: Integer read fiMaxConn
+      write fiMaxConn;
+    property OnNewConnect: TDX_NewConnect read feNewConnect
+      write feNewConnect;
+    property OnMaxConnects: TDX_MaxConnects read feMaxConnects
+      write feMaxConnects;
+    property OnGoingIdle: TDX_Idle read feIdle
+      write feIdle;
+    property OnAsleep: TDX_Sleep read feSleep
+      write feSleep;
+    property OnWakeUp: TDX_WakeUp read feWakeUp
+      write feWakeUp;
+    property OnListenerFailed: TDX_ListenerFailed read feListenerFailed
+      write feListenerFailed;
+    property OnUDPDataNoPool: TDX_UDPData read feUDPData
+      write feUDPData;
+    property ProtocolToBind: TWhichProtocol read fWhichprotocol
+      write fWhichprotocol;
+{$IFDEF CODE_TRACER}
+    property DXCodeTracer:TDXCodeTracer read CodeTracer
+                                        write CodeTracer;
+{$ENDIF}
+  end;
+
+//*****************************************************************************
+// All protocols are descendants of this object/component. When making changes
+// that need to flow to the actual protocol, like supporting a change to the
+// spawned thread. You would make the "property" in this piece of code, and
+// then when this piece of code creates the listener thread you can pass the
+// information to the listener. At that point, you could pass it down to the
+// protocol thread TDXServerThread.
+//*****************************************************************************
+type
+  TDXServerCore = class(TDXComponent)
+  private
+{$IFDEF CODE_TRACER}
+    CodeTracer:TDXCodeTracer;
+{$ENDIF}
+    fbSSL:Boolean;
+    fbActive: Boolean;
+    fbSuspend: Boolean;
+    fbBufferCreates: Boolean;
+    fsBindTo: AnsiString;
+    fiServerPort: Integer;
+    fiMaxConn: Integer;
+    feNewConnect: TDX_NewConnect;
+    feMaxConnects: TDX_MaxConnects;
+    feListenerFailed: TDX_ListenerFailed;
+    feIdle: TDX_Idle;
+    feSleep: TDX_Sleep;
+    feWakeUp: TDX_WakeUp;
+    feUDPData: TDX_UDPData;
+    ListenerThread: TDXServerCoreThread;
+{$IFDEF MSWINDOWS}
+    fltPriority: TThreadPriority;
+    fstPriority: TThreadPriority;
+{$ENDIF}
+    fWhichprotocol: TWhichProtocol;
+    fBlockSizeFlags: TDXBlockSizeFlags;
+    fServerType: TServerType;
+    fDummy: AnsiString;
+  protected
+    procedure SetActive(value: boolean);
+    procedure SetSuspend(value: boolean);
+    function GetThreadCacheSize: Integer;
+    procedure SetThreadCacheSize(value: Integer);
+    function GetSocket: TDXSock;
+    procedure SetfiMaxConn(Value: Integer);
+  public
+    constructor Create(AOwner:TComponent); {$IFNDEF OBJECTS_ONLY} override; {$ENDIF}
+    destructor Destroy; override;
+    function ActiveNumberOfConnections: Integer;
+    procedure Start; virtual;
+    procedure Stop; virtual;
+    procedure Open;
+    procedure Close;
+    procedure Pause;
+    procedure Resume;
+    property Socket: TDXSock read GetSocket;
+    function InternalSessionTracker:TDXSessionTracker;
+//    property :TDXSessionTracker read GetSessionTracker;
+  published
+{$IFDEF MSWINDOWS}
+    property ListenerThreadPriority: TThreadPriority read fltPriority
+      write fltPriority;
+    property SpawnedThreadPriority: TThreadPriority read fstPriority
+      write fstPriority;
+{$ENDIF}
+    property IsActive: Boolean read fbActive;
+    property Suspend: Boolean read fbSuspend
+      write SetSuspend;
+    property UseSSL: Boolean read fbSSL
+      write fbSSL;
+    property UseThreadPool: Boolean read fbBufferCreates
+      write fbBufferCreates;
+    property BindTo: AnsiString read fsBindTo
+      write fsBindTo;
+    property ServerPort: Integer read fiServerPort
+      write fiServerPort;
+    property OnNewConnect: TDX_NewConnect read feNewConnect
+      write feNewConnect;
+    property OnMaxConnects: TDX_MaxConnects read feMaxConnects
+      write feMaxConnects;
+    property OnGoingIdle: TDX_Idle read feIdle
+      write feIdle;
+    property OnAsleep: TDX_Sleep read feSleep
+      write feSleep;
+    property OnWakeUp: TDX_WakeUp read feWakeUp
+      write feWakeUp;
+    property OnListenerFailed: TDX_ListenerFailed read feListenerFailed
+      write feListenerFailed;
+    property ProtocolToBind: TWhichProtocol read fWhichprotocol
+      write fWhichprotocol;
+    property SocketOutputBufferSize: TDXBlockSizeFlags read fBlockSizeFlags
+      write fBlockSizeFlags;
+    property ServerType: TServerType read fServerType
+      write fServerType;
+    property Service: AnsiString read fDummy write fDummy;
+    property ThreadCacheSize: Integer read GetThreadCacheSize
+      write SetThreadCacheSize;
+    property OnUDPDataNoPool: TDX_UDPData read feUDPData
+      write feUDPData;
+{$IFDEF CODE_TRACER}
+    property DXCodeTracer:TDXCodeTracer read CodeTracer
+                                        write CodeTracer;
+{$ENDIF}
+  end;
+
+implementation
+
+uses
+{$IFDEF MSWINDOWS}
+   Windows, // InterlockedXX thanks to EYAL!
+{$ENDIF}
+   SysUtils,
+   uRODXSocket;
+
+///////////////////////////////////////////////////////////////////////////////
+//CREATE:
+//       This section is created when the DXServerCore has accepted a valid
+//       socket connection from a client.
+///////////////////////////////////////////////////////////////////////////////
+
+constructor TDXClientThread.Create(CreateSuspended: Boolean);
+begin
+   inherited Create(CreateSuspended);
+   FreeOnTerminate := True;
+   Client := nil;
+   fpSessionData := nil;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+//DESTROY:
+//        Cleans-up this instance of the socket connection. Does not effect the
+//        "Listener" thread socket.
+///////////////////////////////////////////////////////////////////////////////
+
+destructor TDXClientThread.Destroy;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'ClientThread.Terminating');
+   End;
+{$ENDIF}
+try
+   If Assigned(ListenerThreadObject) then
+      If Assigned(TDXServerCoreThread(ListenerThreadObject).fSessionTracker) then
+         TDXServerCoreThread(ListenerThreadObject).fSessionTracker.UnregisterSession(Self);
+except
+   on E: Exception do begin
+//         E.Message;
+   end;
+end;
+try
+   if Assigned(fpSessionData) then
+      if assigned(feDestroySessionData) then
+         feDestroySessionData(Self, fpSessionData);
+except
+   on E: Exception do begin
+//         E.Message;
+   end;
+end;
+try
+   if Assigned(Client) then begin
+      Client.Free;
+      Client := nil;
+   end;
+except
+   on E: Exception do begin
+//         E.Message;
+   end;
+end;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'ClientThread.Terminated!');
+   End;
+{$ENDIF}
+   inherited Destroy;
+end;
+
+function TDXClientThread.GetSessionID:TMy_SessionID; // making move from INDY easier!
+Begin
+   Result:=ThreadID;
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+//EXECUTE:
+//        Once this thread has "Resume"d, execute is called by TThread. This will
+//        fire the OnExecute (where the server protocol processes the connection)
+//        and once that is finished it fires the OnDisconnet event.
+///////////////////////////////////////////////////////////////////////////////
+
+procedure TDXClientThread.Execute;
+begin
+try
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'TDXClientThread.Execute Starting '+
+         IntToStr(TDXServerCoreThread(ListenerThreadObject).FActiveConnections));
+   End;
+{$ENDIF}
+   while not Terminated do begin
+      if Assigned(Client) then begin
+         Client.OutputBufferSize := fBlockSizeFlags;
+         if Client.ValidSocket then begin
+{$IFDEF CODE_TRACER}
+            If Assigned(CodeTracer) then Begin
+               CodeTracer.SendMessage(dxctInfo,'TDXClientThread.Execute ONNEWCONNECT '+
+                  IntToStr(TDXServerCoreThread(ListenerThreadObject).FActiveConnections));
+            End;
+{$ENDIF}
+try
+            if Assigned(feNewConnect) then feNewConnect(Self);
+finally
+{$IFNDEF MSWINDOWS}
+            TDXServerCoreThread(ListenerThreadObject).MyCriticalSection.StartingWrite;
+            Dec(TDXServerCoreThread(ListenerThreadObject).FActiveConnections);
+            TDXServerCoreThread(ListenerThreadObject).MyCriticalSection.FinishedWrite;
+{$ELSE}
+            InterlockedDecrement(TDXServerCoreThread(ListenerThreadObject).FActiveConnections);
+{$ENDIF}
+end;
+{$IFDEF CODE_TRACER}
+            If Assigned(CodeTracer) then Begin
+               CodeTracer.SendMessage(dxctInfo,'TDXClientThread.Execute ONNEWCONNECT-DONE '+
+                  IntToStr(TDXServerCoreThread(ListenerThreadObject).FActiveConnections));
+            End;
+{$ENDIF}
+         end;
+      end
+      Else Begin
+         FreeOnTerminate:=True;
+         Break;
+      End;
+      // incase user destoryed my DXSock client object, test client.
+      if Assigned(Client) then begin
+try
+         if Client.IsUDPMode then Client.Sock := INVALID_SOCKET
+         else If Client.Sock<>INVALID_SOCKET then Client.CloseGracefully;
+except
+try
+         Client.Free;
+finally
+         Client:=Nil;
+end;
+end;
+      end;
+      If FreeOnTerminate then Break;
+      if not Terminated then Suspended:=True;
+      if Terminated {and Assigned(Client)} then FreeOnTerminate:=True;
+   end;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'TDXClientThread.Execute Exiting.'+
+         IntToStr(TDXServerCoreThread(ListenerThreadObject).FActiveConnections));
+   End;
+{$ENDIF}
+finally
+   Terminate;
+end;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+//SETSOCKETLATER:
+//               Simple implementation of this "Thread" is to pass the Create the
+//               recently "Accept"ed Socket during the create. But, if you are
+//               producing speed by pre-creating the threads, this procedure will
+//               allow you to pre-create threads, and pass the "Socket" when the
+//               new accept is valid.
+///////////////////////////////////////////////////////////////////////////////
+
+procedure TDXClientThread.SetSocketLater(Socket: TDXSock);
+begin
+  if Assigned(Client) then begin
+    Client.Free;
+    Client := nil;
+  end;
+  Client := Socket;
+  Client.PeerIPAddress := Socket.PeerIPAddress;
+  Client.PeerPort := Socket.PeerPort;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+// 'LISTENER' THREAD
+// =================
+///////////////////////////////////////////////////////////////////////////////
+
+///////////////////////////////////////////////////////////////////////////////
+//CREATE:
+//       This is the "Outter" Thread of a server. It does the listening loop, and
+//       creates the thread that interacts with the client. Think of this as a
+//       while active listen for a connection, and on connection spawn a thread
+//       for the client connection (DXServerThread).
+///////////////////////////////////////////////////////////////////////////////
+
+constructor TDXServerCoreThread.Create(CreateSuspended: Boolean);
+begin
+  inherited Create(CreateSuspended);
+  {$IFDEF MSWINDOWS}
+  FreeOnTerminate := True;
+  {$ELSE}
+  FreeOnTerminate := False;
+  {$ENDIF}
+  ListenerSocket := TDXSock.Create;
+  fsBindTo := '';
+  fiServerPort := 0;
+  fiMaxConn := 200;
+  FActiveConnections := 0;
+  fbAnnouncedIdle := False;
+  fbBufferCreates := True;
+  fThreadPool := TList.Create;
+  MyCriticalSection:=TDXCritical.Create;
+  fSessionTracker:=TDXSessionTracker.Create(Nil);
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+//DESTROY:
+//        Kills the Listener Socket.
+///////////////////////////////////////////////////////////////////////////////
+
+destructor TDXServerCoreThread.Destroy;
+begin
+  if Assigned(fThreadPool) then begin
+    MyCriticalSection.StartingWrite;
+    while fThreadPool.Count > 0 do begin
+      if Assigned(fThreadPool[0]) then
+      try
+        TDXClientThread(fThreadPool[0]).ListenerThreadObject:=Nil;
+        fSessionTracker.UnRegisterSession(TDXClientThread(fThreadPool[0]));
+      finally
+        try
+// this will raise an exception if it is already set "FreeOnTerminate"!
+          TDXClientThread(fThreadPool[0]).FreeOnTerminate:=True;
+          TDXClientThread(fThreadPool[0]).Terminate;
+        except
+        end;
+      end;
+      fThreadPool.Delete(0);
+    end;
+    fThreadPool.Free;
+    fThreadPool := nil;
+    MyCriticalSection.FinishedWrite;
+  end;
+  fSessionTracker.Free;
+  fSessionTracker:=Nil;
+try
+  if Assigned(ListenerSocket) then ListenerSocket.Free;
+finally
+  ListenerSocket:=Nil;
+end;
+  MyCriticalSection.Free;
+  inherited Destroy;
+end;
+
+function TDXServerCoreThread.ActiveNumberOfConnections: Integer;
+begin
+// 7-27   MyCriticalSection.StartingRead;
+   Result := fActiveConnections;
+// 7-27   MyCriticalSection.FinishedRead;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+//SETBUFFERCREATES:
+//                 To be safe, you should not change the Buffer Creates if you
+//                 have already started listening. I try to make sure nothing gets
+//                 messed up, but potentially you could crash yourself!
+///////////////////////////////////////////////////////////////////////////////
+
+procedure TDXServerCoreThread.SetBufferCreates(value: Boolean);
+begin
+  if fActiveConnections > 0 then Exit;
+  fbBufferCreates := Value;
+  if not Value then
+    if fiMaxConn < 1 then fiMaxConn := 100;
+end;
+
+procedure TDXServerCoreThread.SetSuspend(value: Boolean);
+begin
+  fbSuspend := Value;
+end;
+
+function TDXServerCoreThread.GetSocket: TDXSock;
+begin
+  Result := ListenerSocket;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+//EXECUTE:
+//        This is the "Loop" for the server. It listens on the specified port and
+//        IP address(es). As a connection comes in, it creates a DXServerThread
+//        and gives it a new instance of the client socket. At that point the new
+//        DXServerThread runs independant of this thread. If you wish to have a
+//        pool of DXServerThreads suspended this is the section to change! When
+//        a new DXServerThread is created, all of the "Events" are passed to it,
+//        which means you "Server" events better be threadsafe!
+//
+//        Events: OnIdle is fired one the server has stopped receiving connection
+//        requests. It is fired everytime the server goes idle from connection(s)
+//        OnSleep is fired every two seconds after this loop has gone Idle.
+///////////////////////////////////////////////////////////////////////////////
+
+procedure TDXServerCoreThread.Execute;
+var
+  toggleSleep: Integer;
+  DXClientThread: TDXClientThread;
+  newClient: TDXSock;
+
+  function InitializeThreading(UDP: Boolean): Boolean;
+  var
+    NewListen: PNewListen;
+    Ws:AnsiString;
+
+  begin
+    toggleSleep := 0;
+    Result := False;
+    if (Length(fsBindTo) > 7) then ListenerSocket.BindTo := fsBindTo;
+    New(NewListen);
+    with NewListen^ do begin
+      Port := fiServerPort;
+      UseNAGLE := True;
+      UseBlocking := True;
+      UseUDP := UDP;
+      WinsockQueue := 100;
+      ConnectionLess := UDP; // 2.0.12
+    end;
+    if not ListenerSocket.Listen(NewListen) then begin
+{$IFDEF CODE_TRACER}
+       If Assigned(CodeTracer) then Begin
+          CodeTracer.SendMessage(dxctInfo,'Listener Initialization Error: '+
+             ListenerSocket.GetErrorDesc(ListenerSocket.LastCommandStatus));
+       End;
+{$ENDIF}
+      if Assigned(feListenerFailed) then begin
+        feListenerFailed(ListenerSocket.LastCommandStatus);
+      end
+      else begin
+        Str(fiServerPort,Ws);
+{$IFDEF MSWINDOWS}
+        If IsConsole then Begin
+           Beep;
+           Beep;
+           Beep;
+           Writeln(AnsiString('Listener on port ') +Ws+AnsiString(', ')+
+              ListenerSocket.GetErrorDesc(ListenerSocket.LastCommandStatus));
+           DoSleepEx(1000);
+        End
+        Else
+{$ENDIF}
+           ShowMessageWindow(
+            'Listener on port ' +{$IFDEF UNICODE}AnsiStringToWideString{$ENDIF} (Ws),
+             {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(ListenerSocket.GetErrorDesc(ListenerSocket.LastCommandStatus)));
+      end;
+      Dispose(NewListen);
+      Exit;
+    end;
+    Dispose(NewListen);
+    Result := True;
+  end;
+
+  procedure EventsOrSleep;
+  begin
+// 3.0b    DoSleepEx(1);
+    if toggleSleep < 2000 then begin
+      Inc(toggleSleep);
+      if (toggleSleep>1000) and not fbAnnouncedIdle then begin
+{$IFDEF CODE_TRACER}
+         If Assigned(CodeTracer) then Begin
+            CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.GoingIdle');
+         End;
+{$ENDIF}
+        fbAnnouncedIdle := True;
+        if assigned(feIdle) then feIdle(Self);
+        ProcessWindowsMessageQueue; // have to do incase event was GUI based.
+      end;
+    end
+    else begin
+      if fbAnnouncedIdle then begin
+{$IFDEF CODE_TRACER}
+         If Assigned(CodeTracer) then Begin
+            CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.GoingAsleep');
+         End;
+{$ENDIF}
+        if assigned(feSleep) then feSleep(Self);
+        ProcessWindowsMessageQueue; // have to do - incase event was GUI based.
+        fbAnnouncedIdle := False;
+      end;
+      if toggleSleep < 5000 {3.0 - was 50} then Inc(toggleSleep)
+      else begin
+        DoSleepEx(1); // 7-27
+        ProcessWindowsMessageQueue;
+      end;
+    end;
+  end;
+
+procedure ThreadAtATime;
+begin
+   DXClientThread := TDXClientThread.Create(True);
+   DXClientThread.Client:=TDXSock.Create; // 3.0d
+{$IFDEF MSWINDOWS}
+   DXClientThread.Priority := fstPriority;
+{$ENDIF}
+   DXClientThread.OnNewConnect := feNewConnect;
+   DXClientThread.fBlockSizeFlags := fBlockSizeFlags;
+   DXClientThread.ListenerThreadObject:=Self;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.Execute.ThreadAtATime Ready');
+   End;
+{$ENDIF}
+   While not Terminated do Begin
+      if (FActiveConnections < fiMaxConn) then begin
+         if fbSuspend then DoSleepEx(20)
+         else
+         if ListenerSocket.Accept(DXClientThread.Client) then begin
+{$IFDEF CODE_TRACER}
+            If Assigned(CodeTracer) then Begin
+               DXClientThread.CodeTracer:=CodeTracer;
+            End;
+{$ENDIF}
+            fSessionTracker.RegisterSession(DXClientThread);
+            DXClientThread.Suspended := False;
+{$IFNDEF MSWINDOWS}
+            MyCriticalSection.StartingWrite;
+            Inc(FActiveConnections);
+            MyCriticalSection.FinishedWrite;
+{$ELSE}
+            InterlockedIncrement(FActiveConnections);
+{$ENDIF}
+            if (fbAnnouncedIdle) then Begin
+{$IFDEF CODE_TRACER}
+               If Assigned(CodeTracer) then Begin
+                  CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.WakeUp');
+               End;
+{$ENDIF}
+               If Assigned(feWakeUp) then feWakeUp(Self);
+            End;
+            DXClientThread := TDXClientThread.Create(True);
+            DXClientThread.Client:=TDXSock.Create; // 3.0d
+{$IFDEF MSWINDOWS}
+            DXClientThread.Priority := fstPriority;
+{$ENDIF}
+            DXClientThread.OnNewConnect := feNewConnect;
+            DXClientThread.fBlockSizeFlags := fBlockSizeFlags;
+            DXClientThread.ListenerThreadObject:=Self;
+
+            fbAnnouncedIdle := False;
+            toggleSleep := 0;
+         end
+         else EventsOrSleep;
+      end
+      else
+      begin
+         if assigned(feMaxConnects) then Begin
+            feMaxConnects(Self);
+            ProcessWindowsMessageQueue; // have to do incase event was GUI based.
+         End
+         else
+         DoSleepEx(1); //3.0
+      end;
+
+   End;
+   fSessionTracker.UnRegisterSession(DXClientThread);
+   {$IFDEF MSWINDOWS}
+   DXClientThread.Suspended := False;
+   DXClientThread.Terminate;
+   WaitForSingleObject(DXClientThread.Handle, INFINITE);
+   {$ELSE}
+   DXClientThread.FreeOnTerminate:=True;
+   DXClientThread.Terminate;
+   {$ENDIF}
+end;
+
+procedure ThreadPool;
+var
+   NextThread: Integer;
+   LoopCount: Integer;
+   Done:Boolean;
+
+begin
+   while fThreadPool.Count < fiMaxConn - 1 do begin
+      DXClientThread := TDXClientThread.Create(True);
+      DXClientThread.FreeOnTerminate:=False; // flags "Is ThreadPool".
+{$IFDEF MSWINDOWS}
+      DXClientThread.Priority:=fstPriority;
+{$ENDIF}
+      DXClientThread.OnNewConnect:=feNewConnect;
+      DXClientThread.fBlockSizeFlags:=fBlockSizeFlags;
+      DXClientThread.ListenerThreadObject:=Self;
+      DXClientThread.Client:=Nil;
+      fThreadPool.Add(DXClientThread);
+      fSessionTracker.RegisterSession(DXClientThread);
+   end;
+   LoopCount := fThreadPool.Count;
+   NextThread := 0;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.Execute.ThreadPool Ready');
+   End;
+{$ENDIF}
+   While not Terminated do Begin
+      if fbSuspend then DoSleepEx(20)
+      else if ListenerSocket.Accept(TDXClientThread(fThreadPool[NextThread]).Client) then begin
+{$IFDEF CODE_TRACER}
+         If Assigned(CodeTracer) then Begin
+            DXClientThread.CodeTracer:=CodeTracer;
+         End;
+{$ENDIF}
+         TDXClientThread(fThreadPool[NextThread]).Suspended := False;
+{$IFNDEF MSWINDOWS}
+         MyCriticalSection.StartingWrite;
+         Inc(FActiveConnections);
+         MyCriticalSection.FinishedWrite;
+{$ELSE}
+         InterlockedIncrement(FActiveConnections);
+{$ENDIF}
+         Inc(NextThread);
+         if NextThread >= LoopCount then NextThread := 0;
+         Done:=False;
+         while (not Terminated) and (not fbSuspend) and (not done) do begin
+            If TDXClientThread(fThreadPool[NextThread]).Client=Nil then Done:=True
+            Else If Not TDXClientThread(fThreadPool[NextThread]).Client.ValidSocket then Done:=True
+            Else Begin
+               Inc(NextThread);
+               if NextThread >= LoopCount then NextThread := 0;
+            End;
+         end;
+         toggleSleep := 0;
+         if (fbAnnouncedIdle) then Begin
+{$IFDEF CODE_TRACER}
+            If Assigned(CodeTracer) then Begin
+               CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.WakeUp');
+            End;
+{$ENDIF}
+            If Assigned(feWakeUp) then feWakeUp(Self);
+         End;
+         fbAnnouncedIdle := False;
+      end
+      else EventsOrSleep;
+   End;
+end;
+
+{$WARNINGS OFF}
+procedure UDPSingleThreaded;
+Var
+   Data:Pointer;
+   DataSize:Integer;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.Execute.UDPSingleThread Ready');
+   End;
+{$ENDIF}
+   if Assigned(feUDPData) then Data:=SysGetMem(TDXMaxSocketBuffer) else Data := nil;
+   While not Terminated do Begin
+      if (FActiveConnections < fiMaxConn) then begin
+         if fbSuspend then DoSleepEx(20)
+         else if ListenerSocket.Readable then begin
+            if Assigned(feUDPData) then Begin
+{$IFDEF VER100}
+               DataSize:=ListenerSocket.BlockRead(Data,TDXMaxSocketBuffer);
+{$ELSE}
+               DataSize:=ListenerSocket.Read(Data,TDXMaxSocketBuffer);
+{$ENDIF}
+               feUDPData(Data,inet_ntoa(ListenerSocket.SockAddr.sin_addr),
+                  ntohs(ListenerSocket.SockAddr.sin_port),DataSize);
+            End
+            Else Begin
+               newClient := TDXSock.Create;
+               newClient.Sock := ListenerSocket.Sock;
+               newClient.IsUDPMode := True;
+               DXClientThread := TDXClientThread.Create(True);
+               DXClientThread.SetSocketLater(newClient);
+{$IFDEF MSWINDOWS}
+               DXClientThread.Priority := fstPriority;
+{$ENDIF}
+               DXClientThread.OnNewConnect := feNewConnect;
+               DXClientThread.fBlockSizeFlags := fBlockSizeFlags;
+               DXClientThread.ListenerThreadObject:=Self;
+               fSessionTracker.RegisterSession(DXClientThread);
+{$IFDEF CODE_TRACER}
+               If Assigned(CodeTracer) then Begin
+                  DXClientThread.CodeTracer:=CodeTracer;
+               End;
+{$ENDIF}
+               DXClientThread.Resume;
+            End;
+ //           DoSleepEx(1); { a must - tests show this cleans up the reads tremendously!}
+            if (fbAnnouncedIdle) then Begin
+{$IFDEF CODE_TRACER}
+               If Assigned(CodeTracer) then Begin
+                  CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.WakeUp');
+               End;
+{$ENDIF}
+               If Assigned(feWakeUp) then feWakeUp(Self);
+            End;
+            toggleSleep:=0;
+            fbAnnouncedIdle:=False;
+         end
+         else
+            EventsOrSleep;
+      end
+      else begin
+         if assigned(feMaxConnects) then Begin
+            feMaxConnects(Self);
+            ProcessWindowsMessageQueue; // have to do incase event was GUI based.
+         end
+         else
+         begin
+            DoSleepEx(1);
+         end;
+      end;
+   End;
+   if Assigned(feUDPData) then SysFreeMem(Data);
+end;
+{$WARNINGS ON}
+
+begin
+   If terminated then exit;
+   if not Assigned(ListenerSocket) then begin
+      ShowMessageWindow(
+         'Developer Trap #2',
+         'You must pass the listerner socket. You have coded around ' +
+         'our fail-safe routines!');
+      Exit;
+   end;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'TDXServerCoreThread.Execute');
+   End;
+{$ENDIF}
+try
+   if not InitializeThreading({False}fWhichprotocol=wpUDPOnly) then Exit;
+   if fWhichprotocol=wpUDPOnly then UDPSinglethreaded
+   else begin
+      case fbBufferCreates of
+         False: begin
+            ThreadAtATime;
+         end;
+         else begin
+            ThreadPool;
+         end;
+      end;
+   end;
+finally
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctInfo,'TDXClientThread.Execute Terminating');
+   End;
+{$ENDIF}
+{$IFNDEF MSWINDOWS}
+   FreeOnTerminate:=False;
+   Terminate;
+{$ENDIF}
+end;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+// ANCESTOR TO ALL PROTOCOLS
+// =========================
+// DXSERVERCORE - Mainly Allows for "Properties" to be defined. And to Start,
+// Stop, and Suspend the 'LISTNER' Thread.
+///////////////////////////////////////////////////////////////////////////////
+
+///////////////////////////////////////////////////////////////////////////////
+//CREATE:
+//       Protocols use this object to interact with the DXSock environment. This
+//       Section allows the protocol to specify the status of the server.
+///////////////////////////////////////////////////////////////////////////////
+constructor TDXServerCore.Create(AOwner: TComponent);
+begin
+   inherited create(aowner);
+   fbActive:=False;
+   fiMaxConn:=200;
+   fbBufferCreates:=True;
+{$IFDEF MSWINDOWS}
+   fstPriority:=tpNormal;
+   fltPriority:=tpNormal;
+{$ENDIF}
+   fWhichProtocol:=wpTCPOnly;
+   fBlockSizeFlags:=bsfHuge;
+   fServerType:=stThreadBlocking;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+//DESTROY:
+//        If the cleans up any pending threads.
+///////////////////////////////////////////////////////////////////////////////
+
+destructor TDXServerCore.Destroy;
+begin
+   if fbActive then SetActive(False);
+   inherited destroy;
+end;
+
+function TDXServerCore.GetSocket: TDXSock;
+begin
+   if Assigned(ListenerThread) then
+      Result := ListenerThread.ListenerSocket
+   else Result := nil;
+end;
+
+function TDXServerCore.ActiveNumberOfConnections: Integer;
+begin
+   if Assigned(ListenerThread) then  Result := ListenerThread.ActiveNumberOfConnections
+   else Result := 0;
+end;
+
+procedure TDXServerCore.SetActive(value: boolean);
+begin
+{$IFNDEF OBJECTS_ONLY}
+   if (csDesigning in ComponentState) then exit;
+{$ENDIF}
+   fbSuspend := False;
+
+   if Value <> fbActive then begin
+      if Value then begin
+         if not Assigned(feNewConnect) then begin
+            if Not Assigned(feUDPData) then Begin
+               ShowMessageWindow(
+                  'Developer Trap #1!',
+                  'You must specify a OnNewConnect Event!');
+               Exit;
+            End;
+         end;
+         fbActive:=Value;
+{$IFDEF CODE_TRACER}
+         If Assigned(CodeTracer) then Begin
+            CodeTracer.StartTransaction;
+            CodeTracer.SendMessage(dxctDebug,'TDXSServerCore.Active=True');
+            CodeTracer.SendObject(dxctDebug,Self);
+         End;
+{$ENDIF}
+         fbSuspend := False;
+         ListenerThread := TDXServerCoreThread.Create(True);
+         ListenerThread.fsBindTo := fsBindTo;
+         ListenerThread.fiServerPort := fiServerPort;
+         ListenerThread.fiMaxConn := fiMaxConn;
+         ListenerThread.feNewConnect := feNewConnect;
+         ListenerThread.feMaxConnects := feMaxConnects;
+         ListenerThread.feListenerFailed := feListenerFailed;
+         ListenerThread.feIdle := feIdle;
+         ListenerThread.feSleep := feSleep;
+         ListenerThread.feWakeUp := feWakeUp;
+{$IFDEF MSWINDOWS}
+         ListenerThread.Priority := fltPriority;
+         ListenerThread.SpawnedThreadPriority := fstPriority;
+{$ENDIF}
+         ListenerThread.fBlockSizeFlags := fBlockSizeFlags;
+         ListenerThread.fbSuspend := False;
+         ListenerThread.feUDPData:=feUDPData; // 3.0c
+{$IFNDEF FPC}
+       {$WARN SYMBOL_PLATFORM	OFF}
+         If DebugHOOK<>0 then ListenerThread.fbBufferCreates:=False
+       {$WARN SYMBOL_PLATFORM	ON}  
+         Else
+{$ENDIF}
+           ListenerThread.fbBufferCreates := fbBufferCreates;
+
+{$IFDEF CODE_TRACER}
+         If Assigned(CodeTracer) then Begin
+            ListenerThread.CodeTracer:=CodeTracer;
+         End;
+{$ENDIF}
+
+         ListenerThread.fWhichProtocol := fWhichProtocol;
+         ListenerThread.Suspended := False;
+      end
+      else begin
+         fbActive:=Value;
+         if Assigned(ListenerThread) then begin
+{$IFDEF CODE_TRACER}
+            If Assigned(CodeTracer) then Begin
+               CodeTracer.SendMessage(dxctInfo,'DXServerCore.ListenerThread still existed - terminating');
+            End;
+{$ENDIF}
+            If ListenerThread.Suspended then ListenerThread.Suspended := False;
+            {$IFNDEF MSWINDOWS}
+            ListenerThread.FreeOnTerminate:=True;
+            {$ENDIF}
+            ListenerThread.Terminate;
+// 9/11/2002
+            {$IFDEF MSWINDOWS}
+            WaitForSingleObject(ListenerThread.Handle, INFINITE); 
+            {$ENDIF}
+//            ListenerThread.WaitFor;
+//            ListenerThread.Free;
+         end;
+// 9/11/2002
+//         ListenerThread:=Nil;
+{$IFDEF CODE_TRACER}
+         If Assigned(CodeTracer) then Begin
+            CodeTracer.SendObject(dxctDebug,Self);
+            CodeTracer.SendMessage(dxctDebug,'TDXSServerCore.Active=False');
+            CodeTracer.EndTransaction;
+         End;
+{$ENDIF}
+      end;
+   end;
+end;
+
+procedure TDXServerCore.Start;
+begin
+   SetActive(True);
+end;
+
+procedure TDXServerCore.Stop;
+begin
+   SetActive(False);
+end;
+
+procedure TDXServerCore.Open;
+begin
+   Start;
+end;
+
+procedure TDXServerCore.Close;
+begin
+   Stop;
+end;
+
+procedure TDXServerCore.Pause;
+begin
+   SetSuspend(True);
+End;
+
+procedure TDXServerCore.Resume;
+begin
+   SetSuspend(False);
+End;
+
+procedure TDXServerCore.SetSuspend(value: boolean);
+begin
+   if fbActive then begin
+      fbSuspend := Value;
+      ListenerThread.SuspendListener := Value;
+   end;
+end;
+
+procedure TDXServerCore.SetfiMaxConn(Value: Integer);
+begin
+   if Value < 1 then begin
+{$IFNDEF FPC}
+   {$WARN SYMBOL_PLATFORM	OFF}
+      if DebugHOOK <> 0 then Exit; {cant enable this from within DELPHI live!}
+   {$WARN SYMBOL_PLATFORM	ON}   
+{$ENDIF}
+      fiMaxConn := -1;
+      fbBufferCreates := True;
+   end
+   else fiMaxConn := Value;
+end;
+
+function TDXServerCore.GetThreadCacheSize: Integer;
+begin
+   Result := fiMaxConn;
+end;
+
+procedure TDXServerCore.SetThreadCacheSize(value: Integer);
+begin
+   SetfiMaxConn(Value);
+end;
+
+function TDXServerCore.InternalSessionTracker:TDXSessionTracker;
+Begin
+   if Assigned(ListenerThread) then  Result:=ListenerThread.fSessionTracker
+   Else Result:=Nil;
+End;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSessionTracker.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSessionTracker.pas
new file mode 100644
index 0000000..12dd243
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSessionTracker.pas	
@@ -0,0 +1,135 @@
+unit uRODXSessionTracker;
+
+interface
+
+///////////////////////////////////////////////////////////////////////////////
+//    Component: TDXSessionTracker
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description:
+// ========================================================================
+///////////////////////////////////////////////////////////////////////////////
+{$I uRODXSock.def}
+uses
+  uRODXString,
+  Classes;
+
+{$DEFINE BYPASS}
+
+type
+  TDXSessionTracker = class(TDXComponent)
+  private
+    fSessionArray:TList;
+  protected
+  public
+    constructor Create(AOwner:TComponent); override;
+    destructor Destroy; override;
+    Procedure RegisterSession(ClientThread:TThread);
+    Procedure UnregisterSession(ClientThread:TThread);
+    Procedure CloseAllSessions;
+    Procedure ClearAllSessions;
+  published
+  end;
+
+implementation
+
+Uses
+   uRODXServerCore;
+
+constructor TDXSessionTracker.Create(AOwner:TComponent);
+begin
+   inherited;
+   fSessionArray:=TList.Create;
+end;
+
+destructor TDXSessionTracker.Destroy;
+begin
+   fSessionArray.Free;
+   CloseAllSessions;
+   ClearAllSessions;
+   inherited Destroy;
+end;
+
+Procedure TDXSessionTracker.RegisterSession(ClientThread:TThread);
+Begin
+{$IFNDEF BYPASS}
+   MyCriticalSection.StartingWrite;
+   fSessionArray.Add(TDXClientThread(ClientThread));
+   MyCriticalSection.FinishedWrite;
+{$ENDIF}
+End;
+
+Procedure TDXSessionTracker.UnregisterSession(ClientThread:TThread);
+//Var
+   //Loop:Integer;
+   //LookingFor:Cardinal;
+
+Begin
+{$IFNDEF BYPASS}
+   LookingFor:=TDXClientThread(ClientThread).ThreadID;
+   MyCriticalSection.StartingRead;
+   Loop:=0;
+   While Loop<fSessionArray.Count do Begin
+      If TDXClientThread(fSessionArray[Loop]).ThreadID=LookingFor then Begin
+         MyCriticalSection.FinishedRead;
+         MyCriticalSection.StartingWrite;
+         fSessionArray.Delete(Loop);
+         MyCriticalSection.FinishedWrite;
+         Exit;
+      End
+      Else Inc(Loop);
+   End;
+   MyCriticalSection.FinishedRead;
+{$ENDIF}
+End;
+
+Procedure TDXSessionTracker.CloseAllSessions;
+//Var Loop:Integer;
+
+Begin
+{$IFNDEF BYPASS}
+   MyCriticalSection.StartingWrite;
+   Loop:=0;
+   While Loop<fSessionArray.Count do Begin
+      If Assigned(TDXClientThread(fSessionArray[Loop]).Socket) then
+         TDXClientThread(fSessionArray[Loop]).Socket.CloseGracefully;
+      Inc(Loop);
+   End;
+   MyCriticalSection.FinishedWrite;
+{$ENDIF}
+End;
+
+Procedure TDXSessionTracker.ClearAllSessions;
+Begin
+{$IFNDEF BYPASS}
+   MyCriticalSection.StartingWrite;
+   If Assigned(fSessionArray) then Begin
+      While fSessionArray.Count>0 do Begin
+         fSessionArray.Delete(0);
+      End;
+   End;
+   MyCriticalSection.FinishedWrite;
+{$ENDIF}
+End;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSock.def b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSock.def
new file mode 100644
index 0000000..5073be9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSock.def	
@@ -0,0 +1,72 @@
+{$IFDEF LINUX}
+{$I ../eDefines.inc}
+{$ELSE}
+{$I ..\eDefines.inc}
+{$ENDIF LINUX}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+// ONLY ENABLE THIS - IF YOU LICENSED OUR TLS-EDITION OF DXSOCK
+// IT IS NOT FREE - IT IS NOT INCLUDED WITH WWS - IT'S AS A LEGAL ISSUE!
+//
+{.$DEFINE TLS_EDITION}
+
+// ONLY ENABLE THIS - IF YOU LICENSED OUR CODE TRACER SUITE
+{.$DEFINE CODE_TRACER}
+
+// custom feature for SMTP Sender -> SMTP Relay -> track session ID
+{$DEFINE SMTP_SESSION_FEATURE}
+
+// THESE CAN BE CHANGED BY YOU:
+{.$DEFINE FINALBUILD}
+{.$DEFINE OCX_ONLY}    // not done - will be in DXSock 4.0
+{.$DEFINE OBJECTS_ONLY}
+{$IFNDEF CPU64}
+  {$DEFINE ASM8086}
+{$ENDIF}
+// LANGUAGE FILE FOR ERROR MESSAGE TEXT
+{$DEFINE ENGLISH1}
+{.$DEFINE FRENCH1}
+{.$DEFINE GERMAN1}
+{.$DEFINE ITALIAN1}
+{.$DEFINE LOWMEM1}
+{.$DEFINE PORTUGUESE1}
+{.$DEFINE RUSSIAN1}
+{.$DEFINE SPANISH1}
+{.$DEFINE TURKISH1}
+
+////////////////////////////////////////////////////////////////////////////////
+{$IFDEF VER90}
+   {$DEFINE VER100}
+{$ENDIF}
+{$IFDEF VER105}
+   {$DEFINE VER100}
+{$ENDIF}
+
+{$IFDEF FINALBUILD}
+ {$ALIGN ON}
+ {$ASSERTIONS OFF}
+ {$DEBUGINFO OFF}
+ {$DEFINITIONINFO OFF}
+ {$DESCRIPTION 'Uses Brain Patchwork DX, LLC. DXSock 3.0.0'}
+ {$EXTENDEDSYNTAX ON}
+ {$HINTS ON}
+ {$IMAGEBASE $2112CAFE}
+ {$IMPORTEDDATA ON}
+ {$IOCHECKS ON}
+ {$LOCALSYMBOLS OFF}
+ {$LONGSTRINGS ON}
+ {$OBJEXPORTALL ON}
+ {$OPTIMIZATION ON}
+ {$OVERFLOWCHECKS OFF}
+ {$RANGECHECKS OFF}
+ {$REALCOMPATIBILITY OFF}
+ {$REFERENCEINFO OFF}
+ {$RUNONLY OFF}
+ {$STACKFRAMES OFF}
+ {$VARSTRINGCHECKS ON}
+ {$WARNINGS ON}
+{$ENDIF}
+// END OF FILE //
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSock.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSock.pas
new file mode 100644
index 0000000..5bd2ac4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSock.pas	
@@ -0,0 +1,1879 @@
+unit uRODXSock;
+
+///////////////////////////////////////////////////////////////////////////////
+//    Component: TDXSock
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description: Low-Level Socket Wrapper as an Object.
+// ========================================================================
+// 3.0a (pre-release)
+// Changes GetMem/FreeMem to SysGetMem/SysFreeMem
+///////////////////////////////////////////////////////////////////////////////
+
+interface
+
+{$I uRODXSock.def}
+
+uses
+{$IFNDEF MSWINDOWS}
+  sockets,
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+  WinSock,  
+{$ENDIF}
+  uRODXSocket,
+{$IFDEF CODE_TRACER}
+  DXCodeTracer,
+{$ENDIF}
+{$IFDEF TLS_EDITION}
+  MjbLIFO,
+  BrkApart,
+{$ENDIF}
+  Classes;
+
+const
+  TDXHugeSize=8192{*2};                      // 16kb CHUNKS
+  TDXXferTimeout: Word = 500;              // if data loss then set to 5000
+  TDXMaxSocketBuffer: Word = TDXHugeSize;  // Winsock Buffer Size
+  PeekBufferSize: Byte = 250;              // do not go over 250!
+
+type
+  Str1 = ansistring;
+  Str2 = AnsiChar;
+
+  //
+//     *   <B>ddAboutToWrite</B> denotes that your Socket Layer
+//         filter should encode, or compress the data.
+//     *   <B>ddAfterRead</B> denotes that your Socket Layer
+//         filter should decode, or decompres the data
+//     *   <B>dFreePointer</B> denotes that your Socket Layer
+//         filter should free the work pointer
+  TDXDataDirection = (ddAboutToWrite, ddAfterRead, ddCleanRead, ddFreePointer);
+
+  TDXFilterCallBack = Procedure(DataDirection: TDXDataDirection; Const InData: Pointer; Var OutData: Pointer; Const
+    InSize: Integer; Var OutSize: Integer; Var Handled: Boolean; xClientThread: TThread) Of Object;
+
+  // This controls outbound data only. It was implemented to
+  // assist people who wanted to be able to just say send this big
+  // chunk of data, without undertsanding the socket layer itself.
+  //
+  //
+  //     *   <B>bsfRealSmall</B> uses 128 byte block of data.
+  //         Obviously smaller than a TCP packet. And with Nagle
+  //         enabled it would actually slow down your output.
+  //         However, if you are designing a UDP based
+  //         application, and know the average package size will
+  //         be under 128 bytes, then you should set your output
+  //         buffer to this setting. Used: <B>Very Rare</B>
+  //     *   <B>bsfSmall</B> uses 256 byte block of data. Which is
+  //         a standard TCP packet. Used: <B>Occasionally</B>
+  //     *   <B>bsfNormal</B> uses 512 byte block of data. Which
+  //         is bigger than a standard TCP packet, but is optimial
+  //         when you know your data is usually bigger than 256
+  //         bytes, and smaller than 512. Our testing has shown
+  //         this to be very optimal when using that rule. Used: <B>Very
+  //         Frequently</B>
+  //     *   <B>bsfBigger</B> uses a 2048 byte block of data.
+  //         Again, bigger than a standard TCP packet. Used <B>Very
+  //         Rare</B>
+  //     *   <B>bsgBiggest</B> uses a 4096 byte block of data.
+  //         Bigger than a standard TCP packet, but is used very
+  //         often by people who are porting from DOS based
+  //         applications to windows. They are used to the old
+  //         Borland examples which used 4kb buffers for file copy
+  //         etc. Used: <B>Often</B>
+  //     *   <B>bsfHUGE</B> uses a 8192 byte block of data. Bigger
+  //         than a standard TCP packet, but produces the best
+  //         performance. Especially is you plan to just say "Send
+  //         this data, who cares how big it is". Used: <B>Most
+  //         Often</B>
+  // <B>Note</B> when we point out that the block of data is
+  // bigger then a standard TCP packet, that is just a mental note
+  // for you. The socket layer will always build the packet to the
+  // appropriate network packet size. These buffers are strictly
+  // used internally for how to break the data apart and shove it
+  // down to the socket layer.
+  //
+  //
+  //
+  // Summary
+  // Define the packet size between DXSock and the Socket Layer.
+  TDXBlockSizeFlags = (
+    bsfZero, // special meaning for TLS!
+    bsfRealSmall,
+    bsfSmall, bsfNormal,
+    bsfBigger,
+    bsfBiggest,
+    bsfHUGE);
+
+Type
+  TDXBSArray=Array [0..65500] of AnsiChar;
+  TDXBSArray2=Array [0..250] of AnsiChar;
+
+  TDXSock = class
+  private
+{$IFDEF CODE_TRACER}
+    CodeTracer:TDXCodeTracer;
+{$ENDIF}
+{$IFDEF TLS_EDITION}
+    tBuf: TBrkApart;
+    tStack: TMJBLIFO;
+    Straggler: AnsiString;
+{$ENDIF}
+    FClientThread:TThread;
+    FTLS:Boolean;
+    fChunkBuf:Pointer; // 3.0a
+    fbClientMode: Boolean;
+    fbIsUDP: Boolean;
+    fbIsKeepAlive: Boolean;
+    FsBindTo: AnsiString;
+    FPeekBuffer: ^TDXBSArray2;
+    FReadTimeout: Boolean;
+    FUseBlocking: Boolean;
+    FBlockSizeFlags: TDXBlockSizeFlags;
+    FActualBlockSize: Integer;
+    FErrStatus: Integer;
+    fTooManyCharacters: Integer;
+    feOnFilter: TDXFilterCallBack;
+{$IFDEF TLS_EDITION}
+    feOnReadFilter: TDXFilterCallBack;
+{$ENDIF}
+    GlobalPeerPort: Integer;
+    GlobalPeerIPAddress: Ansistring;
+    GlobalTimeout: TTimeVal;
+    VarConstSizeofTSockAddrIn:Integer;
+  protected
+    function GetReleaseDate: AnsiString;
+    procedure SetReleaseDate(value: AnsiString);
+    function GetLocalPort: Integer;
+    function GetLocalIPAddr: AnsiString;
+    function IsConnected: Boolean;
+    function IsValidSocket: Boolean;
+    function IsReadable: Boolean;
+    function IsWritable: Boolean;
+    function DidReadTimeout: Boolean;
+    procedure SetfBlockSizeFlags(Value: TDXBlockSizeFlags);
+    function CountWaiting: Integer;
+  public
+    SockAddr: TSockAddrIn;
+    Sock: TSocket;
+    constructor Create;
+    destructor Destroy; override;
+    function Connect(Parameters: PNewConnect): Boolean;
+    function Listen(Parameters: PNewListen): Boolean;
+    function Accept(var NewSock: TDXSock): Boolean;
+    procedure CloseGracefully;
+    procedure Disconnect; // Borland Friendly
+    procedure CloseNow;
+    function SendBuf(const Buf; Count: Integer): Integer; // Borland friendly
+    function ReceiveBuf(var Buf; Count: Integer): Integer; // Borland friendly
+{$IFDEF VER100}
+    function BlockWrite(buf: Pointer; len: Integer): Integer;
+    function WriteCh(c: AnsiChar): Integer;
+    function Write(const s: Ansistring): Integer;
+{$ELSE}
+    function Write(c: AnsiChar): Integer; overload;
+    function Write(const s: Ansistring): Integer; overload;
+    function Write(buf: Pointer; len: Integer): Integer; overload;
+{$ENDIF}
+    function WriteLn(const s: Ansistring): Integer;
+    function WriteResultCode(const Code: Integer; const Rslt: AnsiString): Integer;
+    function WriteWithSize(S: AnsiString): Boolean; //2.4 for ASTAIO
+    function WriteInteger(const n: integer): integer;
+
+{$IFDEF VER100}
+    function SendFromStream(Stream: TStream): Boolean;
+    function SendFromWindowsFile(var Handle: Integer): boolean;
+    function SendFromBorlandFile(var Handle: file): boolean;
+{$ELSE}
+    function SendFrom(Stream: TStream): Boolean; overload;
+    function SendFrom(var Handle: Integer): boolean; overload;
+    function SendFrom(var Handle: file): boolean; overload;
+{$ENDIF}
+    function SendFromStreamWithSize(Stream: TStream): Boolean;
+{$IFDEF VER100}
+    function BlockRead(buf: Pointer; len: Integer): Integer;
+    function Read:AnsiChar;
+{$ELSE}
+    function Read(buf: Pointer; len: Integer): Integer; overload;
+    function Read: AnsiChar; overload;
+{$ENDIF}
+    function ReadInteger: integer;
+    function ReadStr(MaxLength: Integer): Ansistring;
+    function ReadString(MaxLength: Integer; Timeout: Longword): AnsiString;
+    function ReadLn(Timeout: Longword): Ansistring;
+    function ReadCRLF(Timeout: Longword): AnsiString;
+    function ReadToAnyDelimiter(Timeout: Longword;Delimiter:AnsiString): AnsiString;
+    function ReadNull(Timeout: Longword): AnsiString;
+    function ReadSpace(Timeout: Longword): AnsiString;
+    function ReadWithSize: Ansistring; // 2.4 for ASTAIO (no TIMEOUT, just error check)
+{$IFDEF VER100}
+    function SaveToStream(Stream: TStream; Timeout: Longword): Boolean;
+    function SaveToWindowsFile(var Handle: Integer; Timeout: Longword): boolean;
+    function SaveToBorlandFile(var Handle: file; Timeout: Longword): boolean;
+{$ELSE}
+    function SaveTo(Stream: TStream; Timeout: Longword): Boolean; overload;
+    function SaveTo(var Handle: Integer; Timeout: Longword): boolean; overload;
+    function SaveTo(var Handle: file; Timeout: Longword): boolean; overload;
+{$ENDIF}
+    function SaveToStreamWithSize(Stream: TStream; Timeout: Longword): Boolean;
+    function GetChar: Str1;
+    function GetByte: Byte;
+    function FilterRead(Const InBuf: Pointer; var OutBuf: Pointer; InSize: Integer;xClientThread: TThread): Integer;
+    function PeekString: AnsiString;
+    function PeekChar: AnsiChar;
+    function GetErrorStr: AnsiString;
+    function GetErrorDesc(errorCode: Integer): AnsiString;
+    procedure SetNagle(TurnOn: Boolean);
+    procedure SetBlocking(TurnOn: Boolean);
+    procedure WinsockVersion(var WinsockInfo: PWinsockInfo);
+    // made public for new TDXSockClient:
+    procedure SockClientSetGlobal(I:AnsiString;P:Integer);
+    procedure SetTimeoutAndBuffer(SocketHandle: Integer);
+// new 3.0 features:
+    Function DroppedConnection:Boolean;
+    Function WaitForData(timeout:Longint):Boolean;
+  //published
+    property TLSActive: Boolean read FTLS write FTLS;
+    property TLSClientThread: TThread read FClientThread write FClientThread;
+    property BindTo: AnsiString read fsBindTo
+      write fsBindTo;
+    property Connected: Boolean read IsConnected;
+    property CharactersToRead: Integer read CountWaiting;
+    property ReceiveLength: Integer read CountWaiting; // Borland Friendly
+    property ValidSocket: Boolean read IsValidSocket;
+    property LastReadTimeout: Boolean read DidReadTimeout;
+    property LastCommandStatus: Integer read FErrStatus write FErrStatus;
+    property OutputBufferSize: TDXBlockSizeFlags read fBlockSizeFlags
+      write SetfBlockSizeFlags;
+    property TooManyCharacters: Integer read fTooManyCharacters
+      write fTooManyCharacters;
+    property IsUDPMode: Boolean read fbIsUDP
+      write fbIsUDP;
+    property IsKeepAliveMode: Boolean read fbIsKeepAlive write fbIsKeepAlive;
+    property PeerIPAddress: Ansistring read GlobalPeerIPAddress
+      write GlobalPeerIPAddress;
+    property PeerPort: Integer read GlobalPeerPort
+      write GlobalPeerPort;
+    property LocalIPAddress: AnsiString read GetLocalIPAddr;
+    property LocalPort: Integer read GetLocalPort;
+    property Readable: Boolean read IsReadable;
+    property Writable: Boolean read IsWritable;
+    property ReleaseDate: AnsiString read GetReleaseDate
+      write SetReleaseDate;
+    property OnFilter: TDXFilterCallBack read feOnFilter
+      write feOnFilter;
+{$IFDEF CODE_TRACER}
+    property DXCodeTracer:TDXCodeTracer read CodeTracer
+                                        write CodeTracer;
+{$ENDIF}
+{$IFDEF TLS_EDITION}
+    Property OnReadFilter: TDXFilterCallBack READ feOnReadFilter
+      WRITE feOnReadFilter;
+{$ENDIF}
+  end;
+
+implementation
+
+uses
+{$IFDEF MSWINDOWS}
+  Windows,
+{$ENDIF}
+  uRODXString, Math,
+  SysUtils;
+
+function TDXSock.GetReleaseDate: AnsiString;
+begin
+  Result := BPDX_RELEASE_DATE;
+end;
+
+procedure TDXSock.SetReleaseDate(value: AnsiString);
+begin
+       // Absorb!
+end;
+
+constructor TDXSock.Create;
+begin
+   inherited Create;
+   FReadTimeout := False;
+   FPeekBuffer:=SysGetMem(PeekBufferSize);
+   fChunkBuf:=Nil;
+   SetFBlockSizeFlags(bsfNormal); // allocates fChunkBuf
+   if not SocketLayerLoaded then
+      ShowMessageWindow('Fatal Socket Error', '(WSAStartup) ' +{$IFDEF UNICODE}AnsiStringToWideString{$ENDIF} (GetErrorStr));
+   fTooManyCharacters := 2048;
+   Sock := INVALID_SOCKET;
+   fbIsUDP := False;
+   fbIsKeepAlive := False;
+   fbClientMode := False;
+   FUseBlocking := True;
+   GlobalPeerPort := 0;
+   GlobalPeerIPAddress := '';
+   GlobalTimeout.tv_Sec := 0;
+   GlobalTimeout.tv_uSec := 10000;
+   VarConstSizeofTSockAddrIn := ConstSizeofTSockAddrIn;
+end;
+
+destructor TDXSock.Destroy;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.EndTransaction;
+   End;
+{$ENDIF}
+{$IFDEF TLS_EDITION}
+   If assigned(tstack) Then Begin
+      tStack.Free;
+      tStack := Nil;
+   End;
+{$ENDIF}
+   If Assigned(fChunkBuf) then SysFreeMem(fChunkBuf); //,FActualBlockSize);
+   fChunkBuf:=Nil;
+   if Assigned(FPeekBuffer) then SysFreeMem(FPeekBuffer); // ,PeekBufferSize);
+   fPeekBuffer:=Nil;
+   if Sock <> INVALID_SOCKET then CloseNow;
+   inherited Destroy;
+end;
+
+procedure TDXSock.SetTimeoutAndBuffer(SocketHandle: Integer);
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SetTimeoutAndBuffer('+IntToStr(SocketHandle)+')');
+   End;
+{$ENDIF}
+   SetReceiveTimeout(SocketHandle, TDXXferTimeout, FErrStatus);
+   SetSendTimeout(SocketHandle, TDXXferTimeout, FErrStatus);
+   SetSendBuffer(SocketHandle, TDXMaxSocketBuffer, FErrStatus);
+// Certain Protocol Implementations you may want to add the div 2
+   SetReceiveBuffer(SocketHandle, TDXMaxSocketBuffer div 2, FErrStatus);
+   FErrStatus := 0;
+end;
+
+function TDXSock.Connect(Parameters: PNewConnect): Boolean;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.StartTransaction;
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.Connect');
+   End;
+{$ENDIF}
+   Result := False;
+   with Parameters^ do begin
+      FUseBlocking := UseBlocking;
+      fbIsUDP := UseUDP;
+      Sock := ClientConnectToServer(ipAddress, Port, UseUDP, UseNAGLE, @SockAddr, FErrStatus);
+      if (FErrStatus <> 0) then Exit;
+      GlobalPeerPort := ntohs(SockAddr.sin_port);
+      GlobalPeerIPAddress := inet_ntoa(SockAddr.sin_addr);
+      uRODXSocket.SetBlocking(Sock, UseBlocking, FErrStatus);
+      fbIsKeepAlive := False;
+      if not FbIsUDP then begin
+         SetSockStatusBool(Sock, SO_KeepAlive, True, FErrStatus);
+         fbIsKeepAlive := FErrStatus = 0;
+      end;
+      SetTimeoutAndBuffer(Sock);
+      // 3.0c
+      if FbIsUDP then begin
+         // try to scale up the primary buffer.
+         SetReceiveBuffer(Sock, TDXMaxSocketBuffer*4, FErrStatus);
+         If FErrStatus<>0 then
+            SetReceiveBuffer(Sock, TDXMaxSocketBuffer*3, FErrStatus);
+         If FErrStatus<>0 then
+            SetReceiveBuffer(Sock, TDXMaxSocketBuffer*2, FErrStatus);
+         If FErrStatus<>0 then
+            SetReceiveBuffer(Sock, TDXMaxSocketBuffer, FErrStatus);
+      End;
+   end;
+   fbClientMode := True;
+   Result := True;
+end;
+
+function TDXSock.Listen(Parameters: PNewListen): Boolean;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.StartTransaction;
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.Listen');
+   End;
+{$ENDIF}
+   Result := False;
+   with Parameters^ do begin
+      FUseBlocking := UseBlocking;
+      Sock := BindAndListen(fsBindTo, Port, WinsockQueue, UseUDP, UseNAGLE,
+         Connectionless, @SockAddr, FErrStatus);
+      fbIsUDP := UseUDP;
+      If Sock=Invalid_Socket then Exit; // linux does not set FErrStatus!
+      if FErrStatus = 0 then uRODXSocket.SetBlocking(Sock, UseBlocking, FErrStatus)
+      else Exit;
+      if not fbIsUDP then begin
+         SetSockStatusBool(Sock, SO_KeepAlive, True, FErrStatus);
+         fbIsKeepAlive := fErrStatus = 0;
+      end;
+      SetTimeoutAndBuffer(Sock);
+   end;
+   fErrStatus := 0;
+   fbClientMode := False;
+   Result := True;
+   GlobalPeerPort := 0;
+   GlobalPeerIPAddress := '';
+end;
+
+function TDXSock.Accept(var NewSock: TDXSock): Boolean;
+var
+  ICreatedIt: Boolean;
+
+begin
+   Result:=False;
+   if Sock=INVALID_SOCKET then exit;
+   Result:=IsAcceptWaiting(Sock);
+   if (not Result) or fbIsUDP then Exit;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.Accept');
+   End;
+{$ENDIF}
+   ICreatedIt:=not Assigned(NewSock);
+   If ICreatedIt then NewSock := TDXSock.Create;
+   NewSock.Sock := AcceptNewConnect(Sock, @NewSock.SockAddr, @VarConstSizeofTSockAddrIn, FErrStatus);
+   if FErrStatus <> 0 then begin
+      NewSock.Sock := Invalid_Socket;
+      if ICreatedIt then begin
+         NewSock.Free;
+         NewSock := nil;
+      end;
+      Result := False;
+      Exit;
+   end;
+   NewSock.GlobalPeerPort := ntohs(NewSock.SockAddr.sin_port);
+   NewSock.GlobalPeerIPAddress := inet_ntoa(NewSock.SockAddr.sin_addr);
+   NewSock.fbClientMode := False;
+//   SetTimeoutAndBuffer(NewSock.Sock);
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      NewSock.DXCodeTracer:=CodeTracer; // link new sessions automatically
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.Accepted/Configured');
+   End;
+{$ENDIF}
+end;
+
+{$IFDEF VER100}
+function TDXSock.BlockWrite(buf: Pointer; len: Integer): Integer;
+{$ELSE}
+function TDXSock.Write(buf: Pointer; len: Integer): Integer;
+{$ENDIF}
+var
+  BytesLeft: Integer;
+  BytesSent: Integer;
+  XferSize: Integer;
+  TmpP: Pointer;
+  Filtered: Pointer;
+  NewLen: Integer;
+  Handled: Boolean;
+
+begin
+{$IFDEF TLS_EDITION}
+   DoSleepEx(0);
+{$ENDIF}
+   Result := 0;
+   if Sock = INVALID_SOCKET then Exit;
+   if (Len < 1) then begin
+      if fbIsUDP then Begin
+         UDPSend(Sock, Buf^, 0, 0, SockAddr, ConstSizeofTSockAddrIn, FErrStatus); // 2.3 - empty udp packet
+         GlobalPeerPort := ntohs(SockAddr.sin_port);
+         GlobalPeerIPAddress := inet_ntoa(SockAddr.sin_addr);
+      End;
+      Exit;
+   end;
+   NewLen := 0;
+   if Assigned(feOnFilter) then begin
+      Handled := False;
+      Filtered := nil;
+      feOnFilter(ddAboutToWrite, Buf, Filtered, Len, NewLen, Handled,FClientThread);
+      if not Handled then begin
+         fErrStatus := 9999; {onFilter failed!}
+         Exit;
+      end;
+   end;
+   if fbIsUDP then begin
+      if NewLen = 0 then
+         Result := UDPSend(Sock, Buf^, Len, 0, SockAddr, ConstSizeofTSockAddrIn, FErrStatus)
+      else begin
+         Result := UDPSend(Sock, Filtered^, NewLen, 0, SockAddr, ConstSizeofTSockAddrIn, FErrStatus);
+         if Assigned(feOnFilter) then
+            feOnFilter(ddFreePointer, Filtered, Filtered, NewLen, NewLen, Handled,FClientThread);
+      end;
+      GlobalPeerPort := ntohs(SockAddr.sin_port);
+      GlobalPeerIPAddress := inet_ntoa(SockAddr.sin_addr);
+      Exit;
+   end;
+   if NewLen = 0 then begin
+      BytesLeft := Len;
+      TmpP := Buf;
+   end
+   else begin
+      BytesLeft := NewLen;
+      Len := NewLen;
+      TmpP := Filtered;
+   end;
+   fErrStatus := 0;
+   repeat
+      XferSize:=BytesLeft;
+{$IFDEF MSWINDOWS}
+      If IsWritAble then Begin
+{$ENDIF}
+//      If XFerSize>FActualBlockSize then XFerSize:=FActualBlockSize;
+         BytesSent := BasicSend(Sock, TmpP^, XferSize, 0, FErrStatus);
+{$IFDEF CODE_TRACER}
+         If Assigned(CodeTracer) then Begin
+            CodeTracer.SendMessage(dxctDebug,'TDXSock.Write SENT: ['+IntToStr(BytesSent)+' bytes] FErrStatus='+IntToStr(FErrStatus));
+         End;
+{$ENDIF}
+         Case BytesSent of
+            -1:Begin
+               Case fErrStatus of
+                  WSAENOBUFS:fErrStatus := 0;
+                  WSAETIMEDOUT:Begin
+                     // if this code is execute then TDXXferTimeout is too small!
+                     fErrStatus := 0;
+                     Break;
+                  End;
+                  WSAECONNABORTED:CloseNow;
+               End;
+            End;
+            0:CloseNow;
+            else begin
+               If BytesSent>0 then Dec(BytesLeft,BytesSent);
+               If (BytesLeft>0) and (fErrStatus=0) then begin// 3.0 [major bug fix!!]
+                  TmpP := PAnsiChar(TmpP)+BytesSent;
+               End;
+            End;
+         end;
+{$IFDEF MSWINDOWS}
+      End; // Is Write able.
+{$ENDIF}
+   until (BytesLeft=0) or (FErrStatus<>0) or (sock=Invalid_Socket);
+   Result := Len - BytesLeft;
+   if Assigned(feOnFilter) then
+      feOnFilter(ddFreePointer, nil, Filtered, NewLen, NewLen, Handled,FClientThread);
+end;
+
+function TDXSock.WriteInteger(const n: integer): integer;
+var
+  x: integer;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.WriteInteger('+IntToStr(N)+')');
+   End;
+{$ENDIF}
+  x := htonl(n);
+{$IFDEF VER100}
+  result := BlockWrite(@x, sizeof(x));
+{$ELSE}
+  result := Write(@x, sizeof(x));
+{$ENDIF}
+end;
+
+{$IFDEF VER100}
+function TDXSock.WriteCh(c: AnsiChar): Integer;
+{$ELSE}
+function TDXSock.Write(c: AnsiChar): Integer;
+{$ENDIF}
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.WriteCh('+C+')');
+   End;
+{$ENDIF}
+{$IFDEF VER100}
+  Result := BlockWrite(@C, SizeOf(AnsiChar));
+{$ELSE}
+  Result := Write(@C, SizeOf(AnsiChar));
+{$ENDIF}
+end;
+
+function TDXSock.Write(const s: Ansistring): Integer;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.Write('+S+')');
+   End;
+{$ENDIF}
+{$IFDEF VER100}
+  Result := BlockWrite(@S[1], Length(s)*SizeOf(AnsiChar));
+{$ELSE}
+  Result := Write(@S[1], Length(s)*SizeOf(AnsiChar));
+{$ENDIF}
+end;
+
+function TDXSock.WriteLn(const s: Ansistring): Integer;
+var
+  Len: Integer;
+  Ws: Ansistring;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.WriteLn('+S+')');
+   End;
+{$ENDIF}
+  Ws := #13#10;
+  if Assigned(feOnFilter) then begin
+     Len := 2;
+     Result := Write(S) + Len; // send via filter
+     if fbIsUDP then begin // append CRLF unfiltered!
+        UDPSend(Sock, Ws[1], Len, 0, SockAddr, ConstSizeofTSockAddrIn, FErrStatus);
+     end
+     else begin
+        BasicSend(Sock, Ws[1], Len, 0, FErrStatus);
+     end;
+  end
+  else
+     Result := Write(S+Ws);
+end;
+
+function TDXSock.WriteResultCode(const Code: Integer; const Rslt: AnsiString): Integer;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.WriteResult()');
+   End;
+{$ENDIF}
+   Result:=Writeln(Ansi_IntToStr(Code)+#32+Rslt);
+end;
+
+function TDXSock.ReadInteger: integer;
+var
+  n: integer;
+  cnt: integer;
+
+begin
+{$IFDEF VER100}
+  cnt := BlockRead(@n, sizeof(n));
+{$ELSE}
+  cnt := Read(@n, sizeof(n));
+{$ENDIF}
+  if cnt = sizeof(n) then begin
+     n := ntohl(n);
+     result := n;
+  end
+  else result := -1;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.ReadInteger='+IntToStr(Result));
+   End;
+{$ENDIF}
+end;
+
+{$IFDEF VER100}
+function TDXSock.BlockRead(buf: Pointer; len:Integer): Integer;
+{$ELSE}
+function TDXSock.Read(buf: Pointer; len:Integer): Integer;
+{$ENDIF}
+var
+  UDPAddrSize: Integer;
+  Tries:Integer;
+{$IFDEF TLS_EDITION}
+  Filtered, InData: Pointer;
+  Handled: Boolean;
+  NewLen: Integer;
+  StartTime: Longword;
+  SizeToRead: Integer;
+{$ENDIF}
+
+begin
+// 7-27 try
+{$IFDEF TLS_EDITION}
+   DoSleepEx(0);
+{$ENDIF}
+   fReadTimeout := False;
+   Result := 0;
+   if (Sock=INVALID_SOCKET) or (Len<1) then exit;
+   Tries:=0;
+   if fbIsUDP then begin
+      UDPAddrSize := ConstSizeofTSockAddrIn;
+      Result := UDPRecv(Sock, Buf^, Len, 0, SockAddr, UDPAddrSize, FErrStatus);
+      GlobalPeerPort := ntohs(SockAddr.sin_port);
+      GlobalPeerIPAddress := inet_ntoa(SockAddr.sin_addr);
+   end
+   else begin
+      While (Not IsReadAble) and (Tries<3) Do Begin
+         DoSleepEx(1);
+         Inc(Tries);
+      End;
+{$IFNDEF TLS_EDITION}
+      If (CountWaiting>0) or (Tries>=3) then Begin
+         Result := BasicRecv(Sock, Buf^, Len, 0, FErrStatus);
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      If (Result=-1) and (fErrStatus=10060) then {absorb}
+      Else
+      If Result>0 then
+         CodeTracer.SendMessage(dxctDebug,'TDXSock.Read RECV: '+PAnsiChar(Buf)+' ['+IntToStr(Result)+'] fes='+IntToStr(FErrStatus))
+      Else
+         CodeTracer.SendMessage(dxctDebug,'TDXSock.Read RECV: ['+IntToStr(Result)+'] fes='+IntToStr(FErrStatus));
+   End;
+{$ENDIF}
+      End;
+{$ELSE}
+       If (CountWaiting > 0) Or (Tries >= 3) Then
+      Begin
+        If Assigned(feOnFilter) Then
+        Begin
+          SetBlocking(True);
+          SizeToRead := 0;
+          StartTime := DxString.TimeCounter + 120000;
+          While (SizeToRead = 0) And Connected And (Not DXString.Timeout(StartTime)) Do
+          Begin
+            ioctlsocket(Sock, FIONREAD, Longint(SizeToRead));
+            DoSleepEx(1);
+          End;
+          If SizeToRead <> 0 Then Begin
+            InData := Nil;
+            Filtered:=Nil;
+        //    Freemem(Buf,Len);
+            GetMem(InData, SizeToRead);
+            Result := Recv(Sock, InData^, SizeToRead, 0);
+          End;
+        End
+        Else Result := BasicRecv(Sock, Buf^, Len, 0, FErrStatus);
+      End;
+    End;
+    If Result = 0 Then CloseGracefully;
+    fReadTimeout := Result < 1;
+    If (Result > 0) And Assigned(feOnFilter) Then
+    Begin
+      Handled := False; Len :=0;
+      feOnFilter(ddAfterRead, InData, Filtered, SizeToRead, Len, Handled, FClientThread);
+      If Not Handled Then
+      Begin
+        fErrStatus := 9999; {onFilter failed!}
+        If InData <> Nil Then
+        Begin
+          FreeMem(InData, SizeToRead);
+          InData := Nil;
+        End;
+        CloseGracefully;
+      End else Result := Len;
+      If Filtered = Nil Then Result := 0;
+      If Filtered <> Nil Then Move(Filtered^,Buf^,Len);
+      If InData <> Nil Then
+      Begin
+        FreeMem(InData, SizeToRead);
+        InData := Nil;
+      End;
+      feOnFilter(ddFreePointer, Nil, Filtered, Len, Len, Handled, FClientThread);
+    End;
+{$ENDIF}
+   end;
+   fReadTimeout := Result < 1;
+   if Result = 0 then CloseGracefully;
+// 7-27 finally
+// 7-27 end;
+end;
+
+function TDXSock.Read: AnsiChar;
+var
+  Size: Integer;
+
+begin
+{$IFDEF VER100}
+  Size := BlockRead(@Result, 1);
+{$ELSE}
+  Size := Read(@Result, 1);
+{$ENDIF}
+  if Size < 1 then Result := #0;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.Read='+Result);
+   End;
+{$ENDIF}
+end;
+
+function TDXSock.ReadStr(MaxLength: Integer): AnsiString;
+var
+  Size: Integer;
+
+begin
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then Exit;
+  if MaxLength < 0 then MaxLength := TDXHugeSize;
+  Result:='';
+  if MaxLength=0 then Exit; //2.3c
+  Setlength(Result, MaxLength);
+  FillChar(Result[1],MaxLength,0);
+{$IFDEF VER100}
+  Size := BlockRead(@Result[1], MaxLength);
+{$ELSE}
+  Size := Read(@Result[1], MaxLength);
+{$ENDIF}
+  if (((fErrStatus <> 0) and (fErrStatus <> WSAETIMEDOUT))) or (Size = 0) then Result := ''
+  // 3.0
+  else if (Size=Socket_Error) then Result:=''
+       else Setlength(Result, Size);
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      If Result<>'' then
+         CodeTracer.SendMessage(dxctDebug,'TDXSock.ReadStr='+Result);
+   End;
+{$ENDIF}
+end;
+
+function TDXSock.ReadString(MaxLength: Integer; Timeout: Longword): AnsiString;
+var
+  Size: Integer;
+  StartTime: Longword;
+
+begin
+  Result := '';
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then Exit;
+  fReadTimeout := False;
+  if (MaxLength < 1) or (MaxLength > 250) then Exit; // 2.3
+  StartTime := TimeCounter + Timeout;
+  fErrStatus := 0;
+  while (CountWaiting < MaxLength) and
+    (not uRODXString.Timeout(StartTime)) and
+    ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) do begin
+    DoSleepEx(1);
+  end;
+  if (CountWaiting < MaxLength) then begin
+    fReadTimeout := True;
+    Exit;
+  end;
+  Setlength(Result, MaxLength);
+  FillChar(Result[1],MaxLength,0);
+{$IFDEF VER100}
+  Size := BlockRead(@Result[1], MaxLength);
+{$ELSE}
+  Size := Read(@Result[1], MaxLength);
+{$ENDIF}
+  if (((fErrStatus <> 0) and (fErrStatus <> WSAETIMEDOUT))) or (Size = 0) then Result := ''
+  // 3.0
+  else if (Size=Socket_Error) then Result:=''
+     else Setlength(Result, Size);
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.ReadString='+Result);
+   End;
+{$ENDIF}
+end;
+
+function TDXSock.GetChar: Str1;
+var
+  Size: Integer;
+
+begin
+// 7-27   SetLength(Result, 1);
+  Result:=Str2(#32);
+{$IFDEF VER100}
+  Size := BlockRead(@Result[1], 1);
+{$ELSE}
+  Size := Read(@Result[1], 1);
+{$ENDIF}
+  case Size of
+    0: begin
+        CloseNow; // 2.3
+        Result := '';
+      end;
+    1: begin
+      end;
+  else begin
+      if fErrStatus=WSAETIMEDOUT then fReadTimeout := False; // 2.3b
+      Result := '';
+    end;
+  end;
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.GetChar='+Result);
+   End;
+{$ENDIF}
+end;
+
+function TDXSock.GetByte: Byte;
+var
+  L: Str1;
+
+begin
+  L := GetChar;
+  if L = '' then Result := 0
+  else Result := Ord(L[1]);
+end;
+
+function TDXSock.ReadLn(Timeout: Longword): Ansistring;
+var
+  markerCR, markerLF: Integer;
+  s: Ansistring;
+  startTime: Longword;
+  LastChar: Str1;
+  pstring: Ansistring;
+
+{$IFDEF TLS_EDITION}
+  Function TestStack(ts: TMJBLIFO): Boolean;
+  Begin
+    Result := False;
+    If assigned(tStack) Then
+      Result := ts.ItemCount > 0
+    Else tStack := TMJBLIFO.Create;
+  End;
+{$ENDIF}
+
+begin
+  Result := '';
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then exit;
+{$IFDEF TLS_EDITION}
+  If FTLS = True Then
+  Begin
+    If TestStack(tStack) Then
+      Result := tStack.Pop
+    Else
+    Begin
+      pString := ReadStr(-1);
+      If pString = '' Then pString := ReadStr(-1);
+  //   If pString[1] = #0 Then pString := ReadStr(-1);
+      If Straggler <> '' Then pString := Straggler + pString;
+      {$IFDEF OBJECTS_ONLY}
+      tBuf := TBrkApart.Create;
+      {$ELSE}
+      tBuf := TBrkApart.Create(Nil);
+      {$ENDIF}
+      tBuf.AllowEmptyString := True;
+      tBuf.BaseString := pString;
+      tBuf.BreakString := #13#10;
+      tBuf.BreakApart;
+      MarkerLF := tbuf.StringList.Count - 2; // Allow for last String as CRLF
+      For markerCR := MarkerLF Downto 0 Do
+      Begin
+        tStack.Push(tbuf.StringList.Strings[markerCR]);
+      End;
+      Straggler := tBuf.Straggler;
+      FreeAndNil(tBuf);
+      If tStack.ItemCount > 0 Then
+        Result := tStack.Pop
+      Else
+        Result := pString;
+    End;
+    Exit;
+  End;
+{$ENDIF}
+  S := GetChar;
+  LastChar := S;
+  if (Sock = INVALID_SOCKET) {or (fReadTimeout) removed 7-27} then exit;
+  MarkerLF := 0;
+  MarkerCR := 0;
+  fErrStatus := 0;
+  StartTime := TimeCounter + Timeout;
+  while (Sock <> Invalid_Socket) and
+    (MarkerLF + MarkerCR = 0) and
+    (not uRODXString.Timeout(StartTime)) and
+    (Length(S) < fTooManyCharacters) and
+    ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)
+    // 7-27:
+    or (fErrStatus = WSAEWOULDBLOCK)) do begin
+    If fErrStatus = WSAEWOULDBLOCK then ProcessWindowsMessageQueue;
+    if (LastChar = '') or (not (LastChar[1] in [#10, #13])) then begin {handles getchar from above!}
+      pString := PeekString;
+      if uRODXString.Timeout(StartTime) then Break;
+      if (pString = '') then begin
+        LastChar := GetChar;
+      end
+      else begin
+        MarkerLF := Pos(AnsiChar(#10), pString);
+        MarkerCR := Pos(AnsiChar(#13), pString);
+        if MarkerLF + MarkerCR > 0 then begin
+          if MarkerLF = 0 then MarkerLF := MarkerCR
+          else if MarkerCR = 0 then MarkerCR := MarkerLF;
+          if Min(MarkerLF, MarkerCR)>1 then // 2.4
+             S := S + Copy(pString, 1, Min(MarkerLF, MarkerCR)-1);
+          ReadStr(Min(MarkerLF, MarkerCR));
+          LastChar := AnsiChar(#13);
+        end
+        else begin
+          S := S + pString;
+          ReadStr(Length(pString));
+          LastChar := '';
+        end;
+      end;
+      if uRODXString.Timeout(StartTime) then Break;
+      if LastChar > '' then begin
+        S := S + LastChar;
+      end;
+    end;
+    if (Length(LastChar) > 0) and (LastChar[1] in [#10, #13]) then begin
+      MarkerLF := Pos(AnsiChar(#10), S);
+      MarkerCR := Pos(AnsiChar(#13), S);
+      if MarkerLF + MarkerCR > 0 then begin
+        if MarkerLF = Length(S) then begin {unix or DOS}
+          if MarkerCR = 0 then begin {unix or Mac}
+            if CountWaiting > 0 then
+              if PeekChar = #13 then begin {Mac}
+                LastChar := GetChar;
+                S := S + LastChar;
+              end;
+          end
+          else if MarkerCR < MarkerLF then MarkerLF := MarkerCR;
+          MarkerCR := MarkerLF;
+        end;
+        if MarkerCR = Length(S) then begin {Mac or DOS}
+          if MarkerLF = 0 then begin {Mac or DOS}
+            if CountWaiting > 0 then
+              if PeekChar = #10 then begin {DOS}
+                LastChar := GetChar;
+                S := S + LastChar;
+              end;
+          end
+          else if MarkerLF < MarkerCR then MarkerCR := MarkerLF;
+          MarkerLF := MarkerCR;
+        end;
+      end;
+    end;
+  end;
+  if Sock = INVALID_SOCKET then exit;
+  FReadTimeout := (MarkerCR < 1) and (uRODXString.Timeout(StartTime));
+  Result := Copy(S, 1, MarkerCR - 1);
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.ReadLn='+Result);
+   End;
+{$ENDIF}
+end;
+
+function TDXSock.ReadCRLF(Timeout: Longword): AnsiString;
+Begin
+   Result:=ReadToAnyDelimiter(Timeout,#13#10);
+End;
+{var
+  marker: Integer;
+  s: AnsiString;
+  startTime: Longword;
+
+begin
+  Result := '';
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then exit;
+  Marker := 0;
+  StartTime := TimeCounter + Timeout;
+  fErrStatus := 0;
+  while (sock <> Invalid_Socket) and
+    (Marker = 0) and
+    (not DXString.Timeout(StartTime)) and
+    (Length(S) < fTooManyCharacters) and
+    ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) do begin
+    S := S + GetChar;
+    Marker := QuickPos(#13#10, S);
+  end;
+  if Sock = INVALID_SOCKET then exit;
+  Result := Copy(S, 1, Marker - 1);
+end;}
+
+function TDXSock.ReadToAnyDelimiter(Timeout: Longword;Delimiter:AnsiString): AnsiString;
+var
+  slen: Integer;
+  marker: Integer;
+  s: AnsiString;
+  startTime: Longword;
+  pString:AnsiString;
+  iDel:Integer;
+
+Begin
+  Result := '';
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then exit;
+  S := '';
+  sLen:=0;
+  StartTime := TimeCounter + Timeout;
+  Marker:=0;
+  while (sock <> Invalid_Socket) and
+    (Marker = 0) and
+    (not uRODXString.Timeout(StartTime)) and
+    (sLen < fTooManyCharacters) and
+    ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) do begin
+    pString := PeekString;
+    if pString<>'' then Begin
+       sLen:=Length(S);
+       S:=S+pString;
+       Marker := Pos(Delimiter, S);
+       If Marker=0 then Begin
+          ReadStr(Length(pString)); // clear socket
+       End
+       Else Begin
+          S:=Copy(S,1,Marker-1);
+          If Marker<sLen then iDel:=Length(Delimiter)-(sLen-Marker)
+          Else iDel:=(Marker-sLen)+Length(Delimiter);
+//          If Marker<sLen then iDel:=Length(Delimiter)-(sLen-Marker+1)
+//          Else iDel:=Marker-sLen+(Length(Delimiter)-1);
+          ReadStr(iDel);
+       End;
+    End
+    Else Begin
+       pString:=GetChar;
+       if pString='' then DoSleepEx(1)
+       Else begin
+          Inc(sLen);
+          S:=S+pString;
+       End;
+    End;
+  End;
+  if Sock = INVALID_SOCKET then exit;
+  fReadTimeout:=uRODXString.Timeout(StartTime);
+  Result := S; // return what ever is collected, even if not done!
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.ReadToAnyDelimeter='+Result);
+   End;
+{$ENDIF}
+End;
+
+function TDXSock.ReadNull(Timeout: Longword): AnsiString;
+begin
+  Result := ReadToAnyDelimiter(Timeout,AnsiChar(#0));
+end;
+
+function TDXSock.ReadSpace(Timeout: Longword): AnsiString;
+begin
+  Result := ReadToAnyDelimiter(Timeout,AnsiChar(#32));
+end;
+
+function TDXSock.SendBuf(const Buf; Count: Integer): Integer; // Borland friendly
+begin
+{$IFDEF VER100}
+  Result := BlockWrite(@Buf, Count);
+{$ELSE}
+  Result := Write(@Buf, Count);
+{$ENDIF}
+end;
+
+function TDXSock.ReceiveBuf(var Buf; Count: Integer): Integer; // Borland friendly
+begin
+{$IFDEF VER100}
+  Result := BlockRead(@Buf, Count);
+{$ELSE}
+  Result := Read(@Buf, Count);
+{$ENDIF}
+end;
+
+{$IFDEF VER100}
+function TDXSock.SendFromStream(Stream: TStream): Boolean;
+{$ELSE}
+function TDXSock.SendFrom(Stream: TStream): Boolean;
+{$ENDIF}
+var
+  Len: Integer;
+  SSize, SPosition: Integer;
+  Tries: Integer;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SendFrom');
+   End;
+{$ENDIF}
+  fErrStatus := 0;
+  SSize := Stream.Size;
+  SPosition := Stream.Position;
+  Tries := 0;
+  while (sock <> Invalid_Socket) and
+    (Stream.Position < Stream.Size) and
+    (fErrStatus = 0) and
+    (Tries < 3) do begin
+    if (SSize - SPosition) < FActualBlockSize then Len := SSize - SPosition
+    else Len := FActualBlockSize;
+    if Len > 0 then begin
+      Stream.Seek(SPosition, 0);
+      Stream.Read(fChunkBuf^, Len);
+{$IFDEF VER100}
+      Len := BlockWrite(fChunkBuf, Len);
+{$ELSE}
+      Len := Write(fChunkBuf, Len);
+{$ENDIF}
+      SPosition := SPosition + Len;
+      if fErrStatus > 0 then begin
+        Tries := 3;
+      end
+      else if Len < 1 then Inc(Tries)
+      else Tries := 0;
+    end;
+  end;
+  Result := (Sock <> INVALID_SOCKET) and (fErrStatus = 0);
+end;
+
+{$IFDEF VER100}
+function TDXSock.SendFromWindowsFile(var Handle: Integer): boolean;
+{$ELSE}
+function TDXSock.SendFrom(var Handle: Integer): boolean;
+{$ENDIF}
+var
+  Len: Integer;
+  SLen: Integer;
+  Offset: Integer;
+  FSize: Integer;
+  Tries: Integer;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SendFrom');
+   End;
+{$ENDIF}
+  Result := False;
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then Exit;
+  if Handle <> 0 then begin
+    Offset := FileSeek(Handle, 0, 1);
+    FSize := FileSeek(Handle, 0, 2);
+    FileSeek(Handle, Offset, 0);
+    fErrStatus := 0;
+    Tries := 0;
+    while (sock <> Invalid_Socket) and
+      (Offset < FSize) and
+      (fErrStatus = 0) and
+      (Tries < 3) do begin
+      if Sock <> INVALID_SOCKET then begin
+        Len := FileRead(Handle, fChunkBuf^, FActualBlockSize - 1);
+        if Len > 0 then begin
+{$IFDEF VER100}
+          SLen := BlockWrite(fChunkBuf, Len);
+{$ELSE}
+          SLen := Write(fChunkBuf, Len);
+{$ENDIF}
+          if SLen <> Len then begin
+            Offset := SLen + Offset;
+            FileSeek(Handle, Offset, 0);
+            Inc(Tries);
+          end
+          else Tries := 0;
+          if fErrStatus > 0 then Tries := 3;
+        end;
+      end;
+      Offset := FileSeek(Handle, 0, 1);
+    end;
+  end;
+  Result := (Sock <> INVALID_SOCKET) and (fErrStatus = 0);
+end;
+
+{$IFDEF VER100}
+function TDXSock.SendFromBorlandFile(var Handle: file): boolean;
+{$ELSE}
+function TDXSock.SendFrom(var Handle: file): boolean;
+{$ENDIF}
+var
+  Len: Integer;
+  SLen: Integer;
+  OffSet: Integer;
+  Tries: Integer;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SendFrom');
+   End;
+{$ENDIF}
+  Result := False;
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then Exit;
+  fErrStatus := 0;
+  Tries := 0;
+  while not Eof(Handle) and (fErrStatus = 0) and (Tries < 3) and (sock <> Invalid_Socket) do begin
+    Offset := System.FilePos(Handle);
+    if (Sock <> INVALID_SOCKET) then begin
+      System.BlockRead(Handle, fChunkBuf^, FActualBlockSize - 1, Len);
+{$IFDEF VER100}
+      SLen := BlockWrite(fChunkBuf, Len);
+{$ELSE}
+      SLen := Write(fChunkBuf, Len);
+{$ENDIF}
+      if SLen = Len then begin
+        Tries := 0;
+      end
+      else begin
+        Offset := SLen + Offset;
+        System.Seek(Handle, Offset);
+        Inc(Tries);
+      end;
+      if fErrStatus > 0 then Tries := 3;
+    end;
+  end;
+  Result := (Sock <> INVALID_SOCKET) and (fErrStatus = 0);
+end;
+
+{$IFDEF VER100}
+function TDXSock.SaveToStream(Stream: TStream; Timeout: Longword): Boolean;
+{$ELSE}
+function TDXSock.SaveTo(Stream: TStream; Timeout: Longword): Boolean;
+{$ENDIF}
+var
+  SLen: Integer;
+  StartTime: Longword;
+  OldSize:Integer;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SaveTo');
+   End;
+{$ENDIF}
+   OldSize:=Stream.Size;
+   fErrStatus := 0;
+   fReadTimeout := False;
+   StartTime := TimeCounter + Timeout;
+   while ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) and
+      (not uRODXString.Timeout(StartTime)) do begin
+{$IFDEF VER100}
+      SLen := BlockRead(fChunkBuf, FActualBlockSize);
+{$ELSE}
+      SLen := Read(fChunkBuf, FActualBlockSize);
+{$ENDIF}
+      if SLen < 1 then begin
+         if SLen = 0 then Break;
+      end
+      else Stream.Write(fChunkBuf^, SLen);
+      If SLen < FActualBlockSize Then Break; //GT for TLS Stops looping until timeout
+   end;
+   Result := (Sock <> INVALID_SOCKET) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT));
+   If Result then Result:=Stream.Size<>OldSize;
+end;
+
+{$IFDEF VER100}
+function TDXSock.SaveToWindowsFile(var Handle: Integer; Timeout: Longword): boolean;
+{$ELSE}
+function TDXSock.SaveTo(var Handle: Integer; Timeout: Longword): boolean;
+{$ENDIF}
+var
+  SLen: Integer;
+{$IFDEF VER100}
+  STmp: Integer;
+{$ELSE}
+  STmp: Cardinal;
+{$ENDIF}
+  StartTime: Longword;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SaveTo');
+   End;
+{$ENDIF}
+  fErrStatus := 0;
+  fReadTimeout := False;
+  StartTime := TimeCounter + Timeout;
+  while ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) and
+    (not uRODXString.Timeout(StartTime)) do begin
+{$IFDEF VER100}
+    SLen := BlockRead(fChunkBuf, FActualBlockSize);
+{$ELSE}
+    SLen := Read(fChunkBuf, FActualBlockSize);
+{$ENDIF}
+    STmp := 0;
+    if SLen < 1 then begin
+      if SLen = 0 then Break;
+    end
+    else
+      WindowsWriteFile(Handle, fChunkBuf^, SLen, STmp);
+  end;
+  Result := (Sock <> INVALID_SOCKET) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT));
+end;
+
+{$IFDEF VER100}
+function TDXSock.SaveToBorlandFile(var Handle: file; Timeout: Longword): boolean;
+{$ELSE}
+function TDXSock.SaveTo(var Handle: file; Timeout: Longword): boolean;
+{$ENDIF}
+var
+  SLen: Integer;
+  StartTime: Longword;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SaveTo');
+   End;
+{$ENDIF}
+  fErrStatus := 0;
+  fReadTimeout := False;
+  StartTime := TimeCounter + Timeout;
+  while ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) and
+    (not uRODXString.Timeout(StartTime)) do begin
+{$IFDEF VER100}
+    SLen := BlockRead(fChunkBuf, FActualBlockSize);
+{$ELSE}
+    SLen := Read(fChunkBuf, FActualBlockSize);
+{$ENDIF}
+    if SLen < 1 then begin
+      if SLen = 0 then Break;
+    end
+    else
+      System.BlockWrite(Handle, fChunkBuf^, SLen);
+  end;
+  Result := (Sock <> INVALID_SOCKET) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT));
+end;
+
+function TDXSock.WriteWithSize(S: AnsiString): Boolean;
+var
+  Size: Integer;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.WriteWithSize('+S+')');
+   End;
+{$ENDIF}
+  Result := False;
+  Size := Length(S);
+  size := htonl(size);
+{$IFDEF VER100}
+  if BlockWrite(@Size, 4) = 4 then
+    Result := BlockWrite(@S[1], Size) = Size;
+{$ELSE}
+  if Write(@Size, 4) = 4 then
+    Result := Write(@S[1], Size) = Size;
+{$ENDIF}
+end;
+
+function TDXSock.ReadWithSize: Ansistring; // 2.4 for ASTAIO (no TIMEOUT, just error check)
+var
+  Done: Boolean;
+  Size: Integer;
+
+begin
+  Result := '';
+  Done := False;
+  Size := 0;
+  FErrStatus := 0;
+  while (not Done) and (Connected) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) and (Size >= 0) and (Length(Result) <= Size) do begin
+    if Size = 0 then begin
+{$IFDEF VER100}
+      BlockRead(@Size, 4);
+{$ELSE}
+      Read(@Size, 4);
+{$ENDIF}
+      If fErrStatus = WSAETIMEDOUT Then Done := True; //gt while not does not work
+      size := ntohl(size);
+    end
+    else begin
+      Result := Result + ReadStr(Size-Length(Result));
+      Done := Length(Result) = Size;
+    end;
+  end;
+  if ((fErrStatus <> 0) and (fErrStatus <> WSAETIMEDOUT)) or (Size = 0) then Result := ''
+  // 3.0
+  else if (Size=Socket_Error) then Result:=''
+     else Setlength(Result, Size);
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.ReadWithSize='+Result);
+   End;
+{$ENDIF}
+end;
+
+function TDXSock.SendFromStreamWithSize(Stream: TStream): Boolean;
+var
+  Size: Integer;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SendFromStreamWithSize');
+   End;
+{$ENDIF}
+  Result:=False;
+  Size:=Stream.Size;
+  if size<1 then Exit;
+  size:=htonl(size);
+  Stream.Seek(0, 0);
+{$IFDEF VER100}
+  if BlockWrite(@Size, 4) = 4 then
+    Result := SendFromStream(Stream);
+{$ELSE}
+  if Write(@Size, 4) = 4 then
+    Result := SendFrom(Stream);
+{$ENDIF}
+end;
+
+function TDXSock.SaveToStreamWithSize(Stream: TStream; Timeout: Longword): Boolean;
+var
+  Size: Integer;
+  StartTime: Longword;
+  SLen: Integer;
+
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SaveToStreamWithSize');
+   End;
+{$ENDIF}
+  Stream.Size := 0;
+  fReadTimeout := False;
+{$IFDEF VER100}
+  if BlockRead(@Size, 4) = 4 then begin
+{$ELSE}
+  if Read(@Size, 4) = 4 then begin
+{$ENDIF}
+    size := ntohl(size);
+    StartTime := TimeCounter + Timeout;
+    fErrStatus := 0;
+    while ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) and
+      (not uRODXString.Timeout(StartTime)) and
+      (Size > 0) do begin
+{$IFDEF VER100}
+      SLen := BlockRead(fChunkBuf, Min(Size, FActualBlockSize));
+{$ELSE}
+      SLen := Read(fChunkBuf, Min(Size, FActualBlockSize));
+{$ENDIF}
+      Case SLen of
+         -1:Begin // non-fatal
+         End;
+         0:Break; // fatal
+         Else Begin
+            Stream.Write(fChunkBuf^, SLen);
+            Dec(Size, SLen);
+         end;
+      End;
+    end;
+  end;
+  Result := (Sock <> INVALID_SOCKET) and ((fErrStatus = 0) or (fErrStatus = WSAETIMEDOUT)) and
+    ((Size=0) and (Stream.Size>0)); // 2.3c
+end;
+
+function TDXSock.PeekString: AnsiString;
+var
+  Size: Integer;
+{$IFDEF TLS_EDITION}
+  Filtered, InData: Pointer;
+  Handled: Boolean;
+  NewLen: Integer;
+  SizeToRead: Integer;
+  S: AnsiString;
+  StartTime: Longword;
+{$ENDIF}
+
+begin
+  Result := '';
+{$IFDEF TLS_EDITION}
+  indata := Nil;
+{$ENDIF}
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then exit;
+{$IFDEF TLS_EDITION}
+  If Assigned(feOnFilter) Then
+  Begin
+    SizeToRead := 0;
+    StartTime := DxString.TimeCounter + 1000;
+    While (SizeToRead = 0) And Connected And (Not DXString.Timeout(StartTime)) Do
+    Begin
+      ioctlsocket(Sock, FIONREAD, Longint(SizeToRead));
+      DoSleepEx(1);
+    End;
+    If SizeToRead = 0 Then Begin Result := ''; Exit; End;
+
+    GetMem(InData, SizeToRead);
+
+    If Sock <> Invalid_Socket Then
+      FErrStatus := Recv(Sock, Indata^, SizeToRead, 0)
+    Else
+      FErrStatus := Socket_Error;
+  End
+  Else
+{$ENDIF}
+  FErrStatus := BasicPeek(Sock, FPeekBuffer^, PeekBufferSize);
+  if FErrStatus = Socket_Error then begin
+    FErrStatus := 0;
+    Exit;
+  end
+  else Size := FErrStatus;
+{$IFDEF TLS_EDITION}
+  If Assigned(feOnFilter) Then
+  Begin
+    Handled := False;
+    Filtered := Nil;
+    feOnFilter(ddAfterRead, InData, Filtered, SizeToRead, NewLen, Handled, FClientThread);
+    If Not Handled Then Begin
+      fErrStatus := 9999; {onFilter failed!}
+      If Assigned(feOnFilter) Then
+      Begin
+        feOnFilter(ddFreePointer, Nil, Filtered, NewLen, NewLen, Handled, FClientThread);
+        If InData <> Nil Then
+        Begin
+          FreeMem(InData, SizeToRead);
+          InData := Nil;
+        End;
+      End;
+      Exit;
+    End;
+    If Filtered <> Nil Then
+    Begin
+      SetLength(S, NewLen);
+      Move(TDXBSArray(Filtered^), S[1], NewLen);
+      Result := S;
+      fReadTimeout := False;
+      FErrStatus := 0;
+    End Else Result := '';
+    If Assigned(feOnFilter) Then
+    Begin
+      feOnFilter(ddFreePointer, Nil, Filtered, NewLen, NewLen, Handled, FClientThread);
+      If InData <> Nil Then
+      Begin
+        FreeMem(InData, SizeToRead);
+        InData := Nil;
+      End;
+    End;
+  End Else
+  Begin
+{$ENDIF}
+  Setlength(Result, Size);
+  If Size>0 then Move(FPeekBuffer^, Result[1], Size); // 3.0
+{$IFDEF TLS_EDITION}
+    fReadTimeout := False;
+    FErrStatus := 0;
+  End;
+{$ENDIF}
+end;
+
+function TDXSock.PeekChar: AnsiChar;
+begin
+  Result := #0;
+  fReadTimeout := False;
+  if Sock = INVALID_SOCKET then exit;
+  FErrStatus := BasicPeek(Sock, FPeekBuffer^, 1);
+// 3.0
+//  if FErrStatus = Socket_Error then CloseNow
+//  else Result := FPeekBuffer^[0];
+   Case fErrStatus of
+      0:CloseNow;
+      Socket_Error:FErrStatus:=0;
+      Else Result:=FPeekBuffer^[0];
+   End;
+end;
+
+procedure TDXSock.CloseGracefully;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.CloseGraceFully');
+   End;
+{$ENDIF}
+  CloseConnection(Sock, True);
+end;
+
+procedure TDXSock.Disconnect;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.Disconnect');
+   End;
+{$ENDIF}
+  CloseConnection(Sock, True);
+end;
+
+procedure TDXSock.CloseNow;
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.CloseNow');
+   End;
+{$ENDIF}
+  CloseConnection(Sock, False);
+end;
+
+function TDXSock.IsValidSocket: Boolean;
+begin
+  Result := Sock <> INVALID_SOCKET;
+end;
+
+function TDXSock.IsConnected: Boolean;
+begin
+  Result := (Sock <> INVALID_SOCKET)
+    and ((LastCommandStatus = 0) or (LastCommandStatus = WSAETIMEDOUT));
+  if not Result and (CountWaiting > 0) then Result := True;
+end;
+
+function TDXSock.IsReadable: Boolean;
+begin
+  fReadTimeout := False;
+  Result := False;
+  if Sock = INVALID_SOCKET then exit;
+  Result:=BasicSelect(Sock,True,GlobalTimeout)>0;
+// Global Timout sometimes sets these write - do we do it to be safe:
+  SetReceiveTimeout(Sock, TDXXferTimeout, FErrStatus);
+  SetSendTimeout(Sock, TDXXferTimeout, FErrStatus);
+  fErrStatus := 0;
+end;
+
+function TDXSock.IsWritable: Boolean;
+begin
+  fReadTimeout := False;
+  Result := False;
+  if Sock = INVALID_SOCKET then exit;
+  Result:=BasicSelect(Sock,False,GlobalTimeout)>0;
+// Global Timout sometimes sets these write - do we do it to be safe:
+  SetReceiveTimeout(Sock, TDXXferTimeout, FErrStatus);
+  SetSendTimeout(Sock, TDXXferTimeout, FErrStatus);
+  fErrStatus := 0;
+end;
+
+function TDXSock.DidReadTimeout: Boolean;
+begin
+  Result := fReadTimeout;
+end;
+
+function TDXSock.GetLocalPort: Integer;
+begin
+  Result := 0;
+  if Sock = INVALID_SOCKET then exit;
+  Result:=uRODXSocket.GetLocalPort(Sock);
+end;
+
+function TDXSock.GetLocalIPAddr: AnsiString;
+begin
+  Result := '';
+  if Sock = INVALID_SOCKET then exit;
+  Result:=uRODXSocket.GetLocalIPAddr(Sock);
+end;
+
+function TDXSock.GetErrorStr: AnsiString;
+begin
+  result := GetErrorDesc(GetLastError);
+end;
+
+procedure TDXSock.WinsockVersion(var WinsockInfo: PWinsockInfo);
+begin
+  if not Assigned(WinsockInfo) then Exit;
+  if not SocketLayerLoaded then Exit;
+  GetSocketVersion(WinsockInfo);
+end;
+
+procedure TDXSock.SetNagle(TurnOn: Boolean);
+begin
+  uRODXSocket.SetNagle(Sock, TurnOn, FErrStatus);
+end;
+
+procedure TDXSock.SetBlocking(TurnOn: Boolean);
+begin
+  fUseBlocking := TurnOn;
+  uRODXSocket.SetBlocking(Sock, TurnOn, FErrStatus);
+end;
+
+function TDXSock.GetErrorDesc(errorCode: Integer): AnsiString;
+begin
+  Result := uRODXSocket.GetErrorDesc(ErrorCode);
+end;
+
+procedure TDXSock.SetfBlockSizeFlags(Value: TDXBlockSizeFlags);
+begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.SetfBlockSizeFlags');
+   End;
+{$ENDIF}
+  If Assigned(fChunkBuf) then SysFreeMem(fChunkBuf); // ,FActualBlockSize);
+  fChunkBuf:=Nil;
+  fBlockSizeFlags := Value;
+  case FBlockSizeFlags of
+    bsfZero: fActualBlockSize := 0;
+    bsfRealSmall: fActualBlockSize := 128;
+    bsfSmall: fActualBlockSize := 256;
+    bsfNormal: fActualBlockSize := 512;
+    bsfBigger: fActualBlockSize := 2048;
+    bsfBiggest: fActualBlockSize := 4096;
+      {bsfHUGE:}
+  else fActualBlockSize := TDXHugeSize;
+  end;
+  If FBlockSizeFlags <> bsfZero then fChunkBuf:=SysGetMem(FActualBlockSize);
+end;
+
+function TDXSOCK.CountWaiting: Integer;
+begin
+  Result := uRODXSocket.CountWaiting(Sock, FErrStatus);
+  if FErrStatus <> 0 then begin
+    Result := 0;
+    Exit;
+  end;
+end;
+
+function TDXSOCK.FilterRead(Const InBuf: Pointer; var OutBuf: Pointer; InSize: Integer;xClientThread: TThread): Integer;
+var
+  Handled: Boolean;
+
+begin
+  if InSize > 0 then
+    if Assigned(feOnFilter) then begin
+      Handled := False;
+      Result := 0;
+      feOnFilter(ddAfterRead, InBuf, OutBuf, InSize, Result, Handled,xClientThread);
+      if not Handled then begin
+        fErrStatus := 9999; {onFilter failed!}
+        Exit;
+      end;
+    end;
+end;
+
+// used by TDXSockClient only!
+procedure TDXSock.SockClientSetGlobal(I:AnsiString;P:Integer);
+Begin
+   GlobalPeerPort:=P;
+   GlobalPeerIPAddress:=I;
+End;
+
+// new 3.0 features:
+Function TDXSock.DroppedConnection:Boolean;
+Begin
+   Result:=False;
+   If IsReadable then
+      If CharactersToRead=0 then Begin
+         CloseNow; // invalidates the handle
+         Result:=True;
+      End;
+End;
+
+Function TDXSock.WaitForData(timeout:Longint):Boolean;
+Var
+   StartTime:Cardinal;
+
+Begin
+{$IFDEF CODE_TRACER}
+   If Assigned(CodeTracer) then Begin
+      CodeTracer.SendMessage(dxctDebug,'TDXSock.WaitForData');
+   End;
+{$ENDIF}
+   Result:=False;
+   StartTime:=Int64(TimeCounter)+timeout;
+   While Not uRODXString.TimeOut(StartTime) do Begin
+      If DroppedConnection then Begin
+         CloseNow;
+         Exit;
+      End
+      Else Begin
+         If CharactersToRead>0 then Begin
+            Result:=True;
+            Exit;
+         End
+         Else Begin
+            ProcessWindowsMessageQueue;
+            DoSleepEx(0);
+         End;
+      End;
+   End;
+End;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSockClient.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSockClient.pas
new file mode 100644
index 0000000..ca28670
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSockClient.pas	
@@ -0,0 +1,697 @@
+unit uRODXSockClient;
+
+///////////////////////////////////////////////////////////////////////////////
+//    Component: TDXSockClient
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description:
+//  This is a low-level wrapper for the Winsock dll. It is designed to be a
+//  CLIENT core. If you need to develop a client that supports server type
+//  connections, you should visit our DXSockClientFTP component. It demonstrates
+//  using this layer with an add-on for supporting listener routines.
+// ========================================================================
+///////////////////////////////////////////////////////////////////////////////
+
+interface
+{$I uRODXSock.def} {2.0}
+uses
+   Classes,
+   uRODXString,
+   uRODXSock,
+   uRODXSocket;
+
+
+
+type
+  TDX_Connecting=procedure(ConnectingTo:AnsiString;Port:Integer) of object;
+  TDX_Connected=procedure(ConnectedTo:AnsiString;Port:Integer) of object;
+  TDX_ConnectFailed=procedure(ConnectTo:AnsiString;ErrorCode:Integer) of object;
+  TDX_Disconnected=procedure(ConnectedTo:AnsiString) of object;
+  TDX_SendingData=procedure(ConnectTo:AnsiString;Bytes:Integer) of object;
+  TDX_DataSent=procedure(ConnectTo:AnsiString;Bytes:Integer) of object;
+  TDX_DataPendingRead=procedure(CharactersWaiting:Integer) of object;
+//  TDX_NewClientPendingAccept=procedure(Socket:u_Int) of object;
+  TDX_ResolvingHost=procedure(ConnectTo:AnsiString) of object;
+  TDX_ResolvedHost=procedure(ConnectTo:AnsiString;ResolvedTo:AnsiString) of object;
+  TDX_ResolveFailed=procedure(ConnectTo:AnsiString) of object;
+
+  TDXSockClient=class(TDXComponent)
+  private
+    // Component Oriented Variables:
+    fsHost:AnsiString;
+    fiPort:Integer;
+    fbUseNagle:Boolean;
+    fbUseUDP:Boolean;
+    fbUseBlocking:Boolean;
+    // Events:
+    feResolvingHost:TDX_ResolvingHost;
+    feResolvedHost:TDX_ResolvedHost;
+    fMimicAsynch:Boolean;
+    feConnecting:TDX_Connecting;
+    feConnected:TDX_Connected;
+    feConnectFailed:TDX_ConnectFailed;
+    feSendingData:TDX_SendingData;
+    feSendingDone:TDX_DataSent;
+    feDisconnected:TDX_Disconnected;
+    // Asynch Notification Variables:
+    fNotifiedOfData:Boolean;
+    fLastAddress:AnsiString;
+    fLastIP:AnsiString;
+
+(*
+    feDataPendingRead:TDX_DataPendingRead;
+//    feNewClientPendingAccept:TDX_NewClientPendingAccept;
+    feResolveFailed:TDX_ResolveFailed;
+    fiSleepBetweenReads:Integer;
+*)
+  protected
+//    Procedure CheckInBuffer;
+    Function GetPeerPort:Integer;
+    Function GetPeerIPAddr:AnsiString;
+    Function GetLocalPort:Integer;
+    Function GetLocalIPAddr:AnsiString;
+    Function IsConnected:Boolean;
+    Function IsValidSocket:Boolean;
+    Function IsReadable:Boolean;
+    Function IsWritable:Boolean;
+    Function DidReadTimeout:Boolean;
+//    Procedure SetfBlockSizeFlags(Value:TBlockSizeFlags);
+    Function CountWaiting:Integer;
+    Function GetFErrStatus:Integer;
+  public
+    Socket:TDXSock;
+    constructor Create(AOwner:TComponent); override;
+    Destructor Destroy; override;
+    Function DoConnect:Boolean;
+    Function QuickConnect(DestAddr:AnsiString;DestPort:Integer):Boolean;
+    Function Connect(Parameters:PNewConnect):Boolean;
+    Function Listen(Parameters:PNewListen):Boolean;
+    Function Accept(Var NewSock:TDXSockClient):Boolean;
+    Procedure Disconnect; {2.0}
+{$IFDEF VER100} // D3
+    Function WriteCh(c:AnsiChar):Integer;
+    Function Write(Const s:AnsiString):Integer;
+    Function BlockWrite(buf:Pointer;len:Integer):Integer;
+    Function BlockRead(buf:Pointer;len,tOut:Integer):Integer;
+    Function Read(tOut:Integer):AnsiChar;
+    Function SendFromStream(Stream:TStream):Boolean;
+    Function SendFromWindowsFile(var Handle:Integer):boolean;
+    Function SendFromBorlandFile(var Handle:File):boolean;
+    Function SaveToStream(Stream:TStream;Timeout:Integer):Boolean;
+    Function SaveToWindowsFile(var Handle:Integer;Timeout:Integer):boolean;
+    Function SaveToBorlandFile(var Handle:File;Timeout:Integer):boolean;
+{$ELSE} // D4 or D5
+    Function Read(buf:Pointer;len,tOut:Integer):Integer; overload;
+    Function Read(tOut:Integer):AnsiChar; overload;
+    Function Write(c:AnsiChar):Integer; overload;
+    Function Write(Const s:AnsiString):Integer; overload;
+    Function Write(buf:Pointer;len:Integer):Integer; overload;
+    Function SendFrom(Stream:TStream):Boolean; overload;
+    Function SendFrom(var Handle:Integer):boolean; overload;
+    Function SendFrom(var Handle:File):boolean; overload;
+    Function SaveTo(Stream:TStream;Timeout:Integer):Boolean; overload;
+    Function SaveTo(var Handle:Integer;Timeout:Integer):boolean; overload;
+    Function SaveTo(var Handle:File;Timeout:Integer):boolean; overload;
+{$ENDIF}
+    Function WriteLn(Const s:AnsiString):Integer;
+    Function ReadStr(MaxLength,Timeout:Integer):AnsiString; {2.0.70}
+    Function ReadLn(Timeout: Longword): Ansistring;
+    Function PeekString:AnsiString;
+    Function PeekChar:AnsiChar;
+    Function GetErrorStr:AnsiString;
+    Function GetErrorDesc(errorCode:Integer):AnsiString;
+    Procedure SetNagle(TurnOn:Boolean);
+    Procedure SetBlocking(TurnOn:Boolean); {2.0}
+    Procedure WinsockVersion(Var WinsockInfo:PWinsockInfo);
+  published
+    Property Host:AnsiString read fsHost
+                         write fsHost;
+    Property Port:Integer read fiPort
+                          write fiPort;
+    Property EnabledNagle:Boolean read fbUseNagle
+                                  write fbUseNagle;
+    Property EnabledUDP:Boolean read fbUseUDP
+                                  write fbUseUDP;
+    Property EnabledBlocking:Boolean read fbUseBlocking
+                                     write fbUseBlocking;
+    Property PeerIPAddress:AnsiString read GetPeerIPAddr; {2.0}
+    Property PeerPort:Integer read GetPeerPort; {2.0}
+    Property LocalIPAddress:AnsiString read GetLocalIPAddr; {2.0}
+    Property LocalPort:Integer read GetLocalPort; {2.0}
+    Property Connected:Boolean read IsConnected; {2.0}
+    Property ValidSocket:Boolean read IsValidSocket; {2.0}
+    Property Readable:Boolean read IsReadable; {2.0}
+    Property Writable:Boolean read IsWritable; {2.0}
+    Property LastReadTimeout:Boolean read DidReadTimeout; {2.0}
+    Property CharactersToRead:Integer read CountWaiting; {2.0}
+    Property LastCommandStatus:Integer read GetFErrStatus;
+    Property ConnectingToServer:TDX_Connecting read feConnecting
+                                               write feConnecting; {2.0.70}
+    Property ConnectedToServer:TDX_Connected read feConnected
+                                             write feConnected; {2.0.70}
+    Property ConnectionFailed:TDX_ConnectFailed read feConnectFailed
+                                                write feConnectFailed; {2.0.70}
+    Property ConnectionTerminated:TDX_Disconnected read feDisconnected
+                                                   write feDisconnected; {2.0.70}
+    Property SendInProgress:TDX_SendingData read feSendingData
+                                            write feSendingData; {2.0.70}
+    Property SendDone:TDX_DataSent read feSendingDone
+                                   write feSendingDone; {2.0.70}
+    Property ResolvingHost:TDX_ResolvingHost read feResolvingHost
+                                             write feResolvingHost; {2.0.70}
+    Property ResolvedHost:TDX_ResolvedHost read feResolvedHost
+                                           write feResolvedHost; {2.0.70}
+(*    Property CheckData:Integer read fiSleepBetweenReads
+                               write fiSleepBetweenReads;
+    Property PacketType:TPacketTypeFlags read fPacketType
+                                         write fPacketType;
+    Property OutputBufferSize:TBlockSizeFlags read fBlockSizeFlags
+                                              write SetfBlockSizeFlags;
+    Property DataReadyToRead:TDX_DataPendingRead read feDataPendingRead
+                                                 write feDataPendingRead; {2.0.70}
+    Property ResolveFailed:TDX_ResolveFailed read feResolveFailed
+                                             write feResolveFailed; {2.0.70}
+*)
+  end;
+
+(*  TDXClientThread=class(TThread)
+  private
+    TT:TDXSockClient;
+  protected
+  public
+    constructor CreateTimerThread(TT:TDXSockClient);
+    procedure Execute; override;
+  end; *)
+
+implementation
+
+constructor TDXSockClient.Create(AOwner:TComponent);
+begin
+   inherited Create(AOwner);
+   Socket:=TDXSock.Create;
+   fsHost:='127.0.0.1';
+   fiPort:=0;
+   fbUseNagle:=True;
+   fbUseUDP:=False;
+   fMimicAsynch:=False;
+   fNotifiedOfData:=False;
+   fbUseBlocking:=True;
+   fLastAddress:='';
+   fLastIP:='';
+(*
+   fiSleepBetweenReads:=500;
+*)
+end;
+
+destructor TDXSockClient.Destroy;
+begin
+try
+   Socket.Free;
+finally
+   inherited Destroy;
+end;
+end;
+
+Function TDXSockClient.DoConnect:Boolean;
+Var
+   NewConnect:PNewConnect;
+
+Begin
+   New(NewConnect);
+   NewConnect^.Port:=fiPort;
+   NewConnect^.UseNAGLE:=fbUseNagle;
+   NewConnect^.UseUDP:=fbUseUDP;
+   NewConnect^.UseBlocking:=fbUseBlocking;
+   NewConnect^.ipAddress:=fsHost;
+   Result:=Connect(NewConnect);
+   Dispose(NewConnect);
+End;
+
+Function TDXSockClient.QuickConnect(DestAddr:AnsiString;DestPort:Integer):Boolean;
+Begin
+   fiPort:=DestPort;
+//   fbUseNagle:=True;
+//   fbUseUDP:=False;
+   fsHost:=DestAddr;
+   Result:=DoConnect;
+End;
+
+Function TDXSockClient.Connect(Parameters:PNewConnect):Boolean;
+Var
+   Ws:AnsiString;
+   fErrStatus:Integer;
+   Addr:AnsiString;
+
+begin
+   Result := False;
+   with Parameters^ do begin
+      fsHost:=ipAddress;
+      If Assigned(feResolvingHost) then Begin
+         feResolvingHost(ipAddress);
+         ProcessWindowsMessageQueue;
+      End;
+      If ipAddress<>fLastAddress then Begin
+         If isNumericString(ipAddress) then Begin
+            Ws:=GetHostByIPAddress(ipAddress);
+            Addr:=ipAddress;
+         End
+         Else Begin
+            Ws:=GetIPAddressByHost(ipAddress,1);
+            Addr:=Ws;
+         End;
+         fLastIP:=Addr;
+         fLastAddress:=ipAddress;
+      End
+      Else Begin
+         Addr:=fLastIP;
+         Ws:=fLastIP;
+      End;
+      If Ws='' then Ws:=ipAddress;
+      If Assigned(feResolvedHost) then Begin
+         feResolvedHost(ipAddress,Ws);
+         ProcessWindowsMessageQueue;
+      End;
+      FbUseBlocking := UseBlocking;
+      fbUseUDP := UseUDP;
+      Socket.IsUDPMode:=fbUseUDP;
+      If Assigned(feConnecting) then Begin
+         feConnecting(ipAddress,Port);
+         ProcessWindowsMessageQueue;
+      End;
+      Socket.Sock:=ClientConnectToServer(Addr, Port, UseUDP, UseNAGLE,
+         @Socket.SockAddr,fErrStatus);
+      Socket.LastCommandStatus:=fErrStatus;
+      if (FErrStatus <> 0) then Begin
+         If Assigned(feConnectFailed) then Begin
+            feConnectFailed(IpAddress,FErrStatus);
+            ProcessWindowsMessageQueue;
+         End;
+         Exit;
+      End;
+      Socket.SockClientSetGlobal(
+         inet_ntoa(Socket.SockAddr.sin_addr),
+         ntohs(Socket.SockAddr.sin_port));
+      If Not UseBlocking then Socket.SetBlocking(UseBlocking);
+      Socket.IsKeepAliveMode:=False;
+{
+      if not FbUseUDP then begin
+         SetSockStatusBool(Socket.Sock, SO_KeepAlive, True, FErrStatus);
+         Socket.IsKeepAliveMode:=FErrStatus = 0;
+      end;
+}      Socket.SetTimeoutAndBuffer(Socket.Sock);
+      // 3.0c
+      if FbUseUDP then begin
+         // try to scale up the primary buffer.
+         SetReceiveBuffer(Socket.Sock, TDXMaxSocketBuffer*4, FErrStatus);
+         If FErrStatus<>0 then
+            SetReceiveBuffer(Socket.Sock, TDXMaxSocketBuffer*3, FErrStatus);
+         If FErrStatus<>0 then
+            SetReceiveBuffer(Socket.Sock, TDXMaxSocketBuffer*2, FErrStatus);
+         If FErrStatus<>0 then
+            SetReceiveBuffer(Socket.Sock, TDXMaxSocketBuffer, FErrStatus);
+      End;
+   end;
+   If Assigned(feConnected) then Begin
+      feConnected(Parameters^.IpAddress,Parameters^.Port);
+      ProcessWindowsMessageQueue;
+   End;
+   Result := True;
+   If fMimicAsynch then Begin
+      fNotifiedOfData:=False;
+(*      with TDXClientThread.CreateTimerThread(self) do begin
+         Priority:=tpIdle; // make a property!
+         Resume;
+      end; *)
+   End;
+end;
+
+Function TDXSockClient.Listen(Parameters:PNewListen):Boolean;
+begin
+   Result:=Socket.Listen(Parameters);
+end;
+
+{$WARNINGS OFF}
+function TDXSockClient.Accept(Var NewSock:TDXSockClient):Boolean;
+begin
+//   Result:=Client.Accept(NewSock);
+  //mh: result := false;
+end;
+{$WARNINGS ON}
+
+{$IFDEF VER100} // D3
+function TDXSockClient.BlockWrite(buf:Pointer;len:Integer):Integer;
+{$ELSE}
+function TDXSockClient.Write(buf:Pointer;len:Integer):Integer;
+{$ENDIF}
+begin
+   If Assigned(feSendingData) then Begin
+      feSendingData(fsHost,Len);
+      ProcessWindowsMessageQueue;
+   End;
+   Result:=Socket.
+       {$IFDEF VER100} BlockWrite( {$ELSE} Write( {$ENDIF}
+       Buf,Len);
+   If Assigned(feSendingDone) then Begin
+      feSendingDone(fsHost,Result);
+      ProcessWindowsMessageQueue;
+   End;
+end;
+
+{$IFDEF VER100}
+function  TDXSockClient.WriteCh(c:AnsiChar):Integer;
+{$ELSE}
+function TDXSockClient.Write(c:AnsiChar):Integer;
+{$ENDIF}
+begin
+{$IFDEF VER100} // D3
+   Result:=BlockWrite(@C,1);
+{$ELSE}
+   Result:=Write(@C,1);
+{$ENDIF}
+end;
+
+function TDXSockClient.Write(Const S:AnsiString):Integer;
+begin
+{$IFDEF VER100} // D3
+   Result:=BlockWrite(@S[1],Length(S));
+{$ELSE}
+   Result:=Write(@S[1],Length(S));
+{$ENDIF}
+end;
+
+// this talks directly to DXSock to support OnFilter encoding
+// thus, you can not do write(AnsiString+#13#10) you have to do it
+// this way - to let TDXSock encode AnsiString and send raw #13#10!
+function TDXSockClient.WriteLn(Const s:AnsiString):Integer;
+begin
+   If Assigned(feSendingData) then Begin
+      feSendingData(fsHost,Length(S));
+      ProcessWindowsMessageQueue;
+   End;
+   Result:=Socket.WriteLn(S);
+   If Assigned(feSendingDone) then Begin
+      feSendingDone(fsHost,Result);
+      ProcessWindowsMessageQueue;
+   End;
+end;
+
+{$IFDEF VER100}
+function TDXSockClient.BlockRead(buf:Pointer;len,tOut:Integer):Integer;
+{$ELSE}
+function TDXSockClient.Read(buf:Pointer;len,tOut:Integer):Integer;
+{$ENDIF}
+begin
+   Result:=Socket.
+       {$IFDEF VER100} BlockRead( {$ELSE} Read( {$ENDIF}
+       Buf,Len);
+   fNotifiedOfData:=False;
+End;
+
+function TDXSockClient.Read(tOut:Integer):AnsiChar;
+begin
+{$IFDEF VER100}
+   BlockRead(@Result,1,tOut);
+{$ELSE}
+   Read(@Result,1,tOut);
+{$ENDIF}
+end;
+
+function TDXSockClient.ReadStr(MaxLength,Timeout:Integer):AnsiString;
+begin
+   Result:=Socket.ReadStr(MaxLength);
+   fNotifiedOfData:=False;
+end;
+
+function TDXSockClient.ReadLn(Timeout: Longword): Ansistring;
+begin
+   Result:=Socket.ReadLn(Timeout);
+   fNotifiedOfData:=False;
+end;
+
+{$IFDEF VER100}
+function  TDXSockClient.SendFromStream(Stream:TStream):Boolean;
+{$ELSE}
+function  TDXSockClient.SendFrom(Stream:TStream):Boolean;
+{$ENDIF}
+Begin
+   If Assigned(feSendingData) then Begin
+      feSendingData(fsHost,Stream.Size);
+      ProcessWindowsMessageQueue;
+   End;
+   Result:=Socket.
+       {$IFDEF VER100} SendFromStream( {$ELSE} SendFrom( {$ENDIF}
+       Stream);
+   If Assigned(feSendingDone) then Begin
+      feSendingDone(fsHost,Stream.Position);
+      ProcessWindowsMessageQueue;
+   End;
+   fNotifiedOfData:=False;
+End;
+
+{$IFDEF VER100}
+function  TDXSockClient.SendFromWindowsFile(var Handle:Integer):boolean;
+{$ELSE}
+function  TDXSockClient.SendFrom(var Handle:Integer):boolean;
+{$ENDIF}
+Begin
+   If Assigned(feSendingData) then Begin
+//      feSendingData(fsHost,Stream.Size);
+      ProcessWindowsMessageQueue;
+   End;
+   Result:=Socket.
+       {$IFDEF VER100} SendFromWindowsFile( {$ELSE} SendFrom( {$ENDIF}
+       Handle);
+   If Assigned(feSendingDone) then Begin
+//      feSendingDone(fsHost,Stream.Position);
+      ProcessWindowsMessageQueue;
+   End;
+   fNotifiedOfData:=False;
+End;
+
+//*****************************************************************************
+// SENDFROMBORLANDFILE: Send the Borland File handle to the socket until end of
+// file
+//*****************************************************************************
+{$IFDEF VER100}
+function  TDXSockClient.SendFromBorlandFile(var Handle:File):boolean;
+{$ELSE}
+function  TDXSockClient.SendFrom(var Handle:File):boolean;
+{$ENDIF}
+Begin
+   If Assigned(feSendingData) then Begin
+//      feSendingData(fsHost,Stream.Size);
+      ProcessWindowsMessageQueue;
+   End;
+   Result:=Socket.
+       {$IFDEF VER100} SendFromBorlandFile( {$ELSE} SendFrom( {$ENDIF}
+       Handle);
+   If Assigned(feSendingDone) then Begin
+//      feSendingDone(fsHost,Stream.Position);
+      ProcessWindowsMessageQueue;
+   End;
+   fNotifiedOfData:=False;
+End;
+
+{$IFDEF VER100}
+function  TDXSockClient.SaveToStream(Stream:TStream;Timeout:Integer):Boolean;
+{$ELSE}
+function  TDXSockClient.SaveTo(Stream:TStream;Timeout:Integer):Boolean;
+{$ENDIF}
+Begin
+   Result:=Socket.
+       {$IFDEF VER100} SaveToStream( {$ELSE} SaveTo( {$ENDIF}
+       Stream,Timeout);
+   fNotifiedOfData:=False;
+End;
+
+{$IFDEF VER100}
+function  TDXSockClient.SaveToWindowsFile(var Handle:Integer;Timeout:Integer):boolean;
+{$ELSE}
+function  TDXSockClient.SaveTo(var Handle:Integer;Timeout:Integer):boolean;
+{$ENDIF}
+Begin
+   Result:=Socket.
+       {$IFDEF VER100} SaveToWindowsFile( {$ELSE} SaveTo( {$ENDIF}
+       Handle,Timeout);
+   fNotifiedOfData:=False;
+End;
+
+{$IFDEF VER100}
+function  TDXSockClient.SaveToBorlandFile(var Handle:File;Timeout:Integer):boolean;
+{$ELSE}
+function  TDXSockClient.SaveTo(var Handle:File;Timeout:Integer):boolean;
+{$ENDIF}
+Begin
+   Result:=Socket.
+       {$IFDEF VER100} SaveToBorlandFile( {$ELSE} SaveTo( {$ENDIF}
+       Handle,Timeout);
+   fNotifiedOfData:=False;
+End;
+
+function TDXSockClient.PeekString:AnsiString;
+begin
+   Result:=Socket.PeekString;
+end;
+
+function TDXSockClient.PeekChar:AnsiChar;
+begin
+   Result:=Socket.PeekChar;
+end;
+
+procedure TDXSockClient.Disconnect;
+begin
+   if Not IsValidSocket then Exit;
+   If Assigned(feDisconnected) then Begin
+      feDisconnected(fsHost);
+      ProcessWindowsMessageQueue;
+   End;
+   Socket.CloseGracefully;
+end;
+
+function  TDXSockClient.IsValidSocket:Boolean;
+Begin
+   If Assigned(Socket) then Result:=Socket.ValidSocket
+   Else Result:=False;
+End;
+
+function TDXSockClient.IsConnected:Boolean;
+begin
+   If Assigned(Socket) then Result:=Socket.Connected
+   Else Result:=False;
+end;
+
+function TDXSockClient.IsReadable:Boolean;
+begin
+   If Assigned(Socket) then Result:=Socket.Readable
+   Else Result:=False;
+end;
+
+function TDXSockClient.IsWritable:Boolean;
+begin
+   If Assigned(Socket) then Result:=Socket.Writable
+   Else Result:=False;
+end;
+
+Function  TDXSockClient.DidReadTimeout:Boolean;
+Begin
+   If Assigned(Socket) then Result:=Socket.LastReadTimeout
+   Else Result:=True;
+End;
+
+function TDXSockClient.GetPeerPort:Integer;
+begin
+   If Assigned(Socket) then Result:=Socket.PeerPort
+   Else Result:=-1;
+end;
+
+function TDXSockClient.GetPeerIPAddr:AnsiString;
+begin
+   If Assigned(Socket) then Result:=Socket.PeerIPAddress
+   Else Result:='';
+end;
+
+function TDXSockClient.GetLocalPort:Integer;
+begin
+   If Assigned(Socket) then Result:=Socket.LocalPort
+   Else Result:=-1;
+end;
+
+function TDXSockClient.GetLocalIPAddr:AnsiString;
+begin
+   If Assigned(Socket) then Result:=Socket.LocalIPAddress
+   Else Result:='';
+end;
+
+Function TDXSockClient.GetErrorStr:AnsiString;
+begin
+   If Assigned(Socket) then Result:=Socket.GetErrorStr
+   Else Result:='Socket instance does not exist';
+end;
+
+Procedure  TDXSockClient.WinsockVersion(Var WinsockInfo:PWinsockInfo);
+begin
+   Socket.WinsockVersion(WinsockInfo);
+end;
+
+Procedure  TDXSockClient.SetNagle(TurnOn:Boolean);
+Begin
+   fbUseNagle:=TurnOn;
+   Socket.SetNagle(fbUseNagle);
+End;
+
+Procedure  TDXSockClient.SetBlocking(TurnOn:Boolean);
+Begin
+   fbUseBlocking:=TurnOn;
+   Socket.SetBlocking(fbUseBlocking);
+End;
+
+function TDXSockClient.GetErrorDesc(errorCode:Integer):AnsiString;
+begin
+   Result:=Socket.GetErrorDesc(ErrorCode);
+end;
+
+Function TDXSockClient.CountWaiting:Integer;
+Begin
+   Result:=Socket.CharactersToRead;
+End;
+
+Function TDXSockClient.GetFErrStatus:Integer;
+Begin
+   Result:=Socket.LastCommandStatus;
+End;
+
+(* Procedure TDXSockClient.CheckInBuffer;
+Var
+   MsgRec:TMsg;
+
+Begin
+   While isValidSocket do Begin
+      If (CountWaiting>0) then Begin
+         If (Not fNotifiedOfData) then Begin
+            fNotifiedOfData:=True;
+            if Assigned(feDataPendingRead) then
+               feDataPendingRead(CountWaiting);
+         End
+      End;
+      SleepEx(fiSleepBetweenReads,True);
+      {2.0.91}
+      while PeekMessage(MsgRec,0{WindowHandle},0,0,PM_REMOVE) do begin
+         TranslateMessage(MsgRec);
+         DispatchMessage(MsgRec)
+      end;
+   End;
+End;
+
+constructor TDXClientThread.CreateTimerThread(TT:TDXSockClient);
+begin
+  inherited Create(true);
+  self.tt:=tt;
+  FreeOnTerminate:=true;
+end;
+
+procedure TDXClientThread.Execute;
+begin
+   Synchronize(TT.CheckInBuffer);
+end; *)
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSocket.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSocket.pas
new file mode 100644
index 0000000..41c36b4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXSocket.pas	
@@ -0,0 +1,1175 @@
+{$I uRODXSock.def}
+
+unit uRODXSocket;
+
+///////////////////////////////////////////////////////////////////////////////
+//         Unit: DXSocket
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description: Low-Level Socket Wrapper, producing a common framework.
+// ========================================================================
+///////////////////////////////////////////////////////////////////////////////
+
+interface
+
+{$IFDEF MSWINDOWS}
+uses
+   Windows,
+   Winsock;
+{$ENDIF}
+
+{$IFNDEF MSWINDOWS}
+uses
+  baseunix, sockets;
+
+Const
+   TCP_NODELAY = 1;
+   
+   INVALID_SOCKET = -1;
+   SO_KeepAlive=sockets.SO_KEEPALIVE;
+   WSAEINTR=ESysEINTR;
+   WSAEBADF=ESysEBADF;
+   WSAEACCES=ESysEACCES;
+   WSAEFAULT=ESysEFAULT;
+   WSAEINVAL=ESysEINVAL;
+   WSAEMFILE=ESysEMFILE;
+   WSAEWOULDBLOCK=ESysEWOULDBLOCK;
+   WSAEINPROGRESS=ESysEINPROGRESS;
+   WSAEALREADY=ESysEALREADY;
+   WSAENOTSOCK=ESysENOTSOCK;
+   WSAEDESTADDRREQ=ESysEDESTADDRREQ;
+   WSAEMSGSIZE=ESysEMSGSIZE;
+   WSAEPROTOTYPE=ESysEPROTOTYPE;
+   WSAENOPROTOOPT=ESysENOPROTOOPT;
+   WSAEPROTONOSUPPORT=ESysEPROTONOSUPPORT;
+   WSAESOCKTNOSUPPORT=ESysESOCKTNOSUPPORT;
+   WSAEOPNOTSUPP=ESysEOPNOTSUPP;
+   WSAEPFNOSUPPORT=ESysEPFNOSUPPORT;
+   WSAEAFNOSUPPORT=ESysEAFNOSUPPORT;
+   WSAEADDRINUSE=ESysEADDRINUSE;
+   WSAEADDRNOTAVAIL=ESysEADDRNOTAVAIL;
+   WSAENETDOWN=ESysENETDOWN;
+   WSAENETUNREACH=ESysENETUNREACH;
+   WSAENETRESET=ESysENETRESET;
+   WSAECONNABORTED=ESysECONNABORTED;
+   WSAECONNRESET=ESysECONNRESET;
+   WSAENOBUFS=ESysENOBUFS;
+   WSAEISCONN=ESysEISCONN;
+   WSAENOTCONN=ESysENOTCONN;
+   WSAESHUTDOWN=ESysESHUTDOWN;
+   WSAETOOMANYREFS=ESysETOOMANYREFS;
+   WSAETIMEDOUT=ESysETIMEDOUT;
+   WSAECONNREFUSED=ESysECONNREFUSED;
+   WSAELOOP=ESysELOOP;
+   WSAENAMETOOLONG=ESysENAMETOOLONG;
+   WSAEHOSTDOWN=ESysEHOSTDOWN;
+   WSAEHOSTUNREACH=ESysEHOSTUNREACH;
+   WSAENOTEMPTY=ESysENOTEMPTY;
+   WSAEPROCLIM=1000; // not applicable
+   WSAEUSERS=ESysEUSERS;
+   WSAEDQUOT=ESysEDQUOT;
+   WSAESTALE=ESysESTALE;
+   WSAEREMOTE=ESysEREMOTE;
+   WSASYSNOTREADY=1001; // not applicable
+   WSAVERNOTSUPPORTED=1002; // not applicable
+   WSANOTINITIALISED=1003; // not applicable
+   WSAHOST_NOT_FOUND=1;
+   WSATRY_AGAIN=2;
+   WSANO_RECOVERY=3;
+   WSANO_DATA=4;
+   WSAUNKNOWN=5;
+   Socket_Error=-1;
+
+{$DEFINE USE_LIBC_functions}
+
+{$IFDEF USE_LIBC_functions}
+const clib = 'c';
+type
+  Phostent = ^hostent;
+  hostent = record
+    h_name: PChar;
+    h_aliases: PPChar;
+    h_addrtype: Integer;
+    h_length: socklen_t;
+    case Byte of
+      0: (h_addr_list: PPChar);
+      1: (h_addr: PPChar);
+  end;
+__socklen_t = dword;
+function gethostbyaddr(__addr:pointer; __len:__socklen_t; __type:longint):Phostent;cdecl;external clib name 'gethostbyaddr';
+function gethostbyname(__name:Pchar):Phostent;cdecl;external clib name 'gethostbyname';
+{$ENDIF}
+   
+{$ENDIF}
+
+{$IFDEF MSWINDOWS}
+Const
+   INVALID_SOCKET=Winsock.INVALID_SOCKET;
+   SO_KeepAlive=Winsock.SO_KEEPALIVE;
+   WSAENOBUFS=Winsock.WSAENOBUFS;
+   WSAETIMEDOUT=Winsock.WSAETIMEDOUT;
+   WSAECONNABORTED=Winsock.WSAECONNABORTED;
+   Socket_Error=Winsock.SOCKET_ERROR;
+   // 7-27:
+   WSAEWOULDBLOCK=Winsock.WSAEWOULDBLOCK;
+{$ENDIF}
+
+{$IFDEF VER100}
+type
+  in_addr = TInAddr;
+{$ENDIF}
+
+Type
+{$IFNDEF MSWINDOWS}
+   TSockAddrIn = sockaddr;
+   TTimeVal = timeval;
+  // TFDSet=Libc.TFDSet;
+{$ENDIF}
+
+{$IFDEF MSWINDOWS}
+   TSockAddrIn=Winsock.TSockAddrIn;
+   TTimeVal=Winsock.TTimeVal;
+   TFDSet=Winsock.TFDSet;
+   pSockLen = PInteger;
+{$ENDIF}
+   PNewConnect=^TNewConnect;
+   TNewConnect=Record
+      Port:Integer;
+      UseNAGLE:Boolean;
+      UseUDP:Boolean;
+      UseBlocking:Boolean;
+      ipAddress:AnsiString;
+   End;
+
+   PNewListen=^TNewListen;
+   TNewListen=Record
+      Port:Integer;
+      WinsockQueue:Integer;
+      UseNAGLE:Boolean;
+      UseUDP:Boolean;
+      UseBlocking:Boolean;
+      ConnectionLess:Boolean;
+   End;
+
+   PWinsockInfo=^TWinsockInfo; // 2.3 changed array from 0.. to 1..
+   TWinsockInfo=Record
+     Major_Version:Byte;                 {current version}
+     Minor_Version:Byte;                 {current version}
+     Highest_Major_Version:Byte;         {available on disk}
+     Highest_Minor_Version:Byte;         {available on disk}
+     Description:array[1..256] of AnsiChar;  // C++ Char Description[256];
+     SystemStatus:array[1..128] of AnsiChar; // C++ Char Description[128];
+     MaxSockets:Word;                    // C++ Unsigned short MaxSockets;
+     MaxUDPDatagramSize:Word;            // C++ Unsigned short MaxUDPDatagramSize;
+     VendorInfo:PAnsiChar;                   // C++ Char FAR * VendorInfo;
+   End;
+
+Const
+   ConstSizeofTSockAddrIn=16;
+
+Function CreateSocket(sin_family,socket_type,protocol:integer;
+                      Var ErrorCode:Integer):TSocket;
+Function ClientConnectToServer(ServerIPAddress:AnsiString;
+                               ServerPort:Integer;
+                               UseUDP,UseNAGLE:Boolean;
+                               ResultSockAddr:PSockAddr;
+                               Var ErrorCode:Integer):TSocket;
+Function BindAndListen(BindToIPAddress:AnsiString;
+                       BindToPort,WinsockQueue:Integer;
+                       UseUDP,UseNAGLE,ConnectionLess:Boolean;
+                       ResultSockAddr:PSockAddr;
+                       Var ErrorCode:Integer):TSocket;
+Function IsAcceptWaiting(ListenerSock:TSocket):Boolean;
+Function AcceptNewConnect(ListenerSock:TSocket;
+                          ResultAddr:PSockAddr;
+                          ResultAddrlen:pSockLen;
+                          Var ErrorCode:Integer):TSocket;
+Procedure CloseConnection(Var Sock:TSocket;
+                          Gracefully:Boolean);
+Function BasicSend(Sock:TSocket;
+                   Var Buf;
+                   Len:Integer;
+                   Flags:Integer;
+                   Var ErrorCode:Integer):Integer;
+Function BasicRecv(Sock:TSocket;
+                   Var Buf;
+                   Len:Integer;
+                   Flags:Integer;
+                   Var ErrorCode:Integer):Integer;
+Function UDPSend(Sock:TSocket;
+                 Var Buf;
+                 Len:Integer;
+                 Flags:Integer;
+                 SendTo:TSockAddr;
+                 SendToSize:Integer;
+                 Var ErrorCode:Integer):Integer;
+Function UDPRecv(Sock:TSocket;
+                 Var Buf;
+                 Len:Integer;
+                 Flags:Integer;
+                 Var RcvFrom:TSockAddr;
+                 Var RcvFromSize:Integer;
+                 Var ErrorCode:Integer):Integer;
+Function BasicPeek(Sock:TSocket;
+                   Var Buf;
+                   Len:Integer):Integer;
+Function BasicSelect(Sock:TSocket;
+                     CheckRead:Boolean;
+                     Timeout:TTimeVal):Integer;
+Procedure SetNagle(Sock:TSocket;
+                   TurnOn:Boolean;
+                   Var ErrorCode:Integer);
+Procedure SetBlocking(Sock:TSocket;
+                      UseBlocking:Boolean;
+                      Var ErrorCode:Integer);
+Procedure SetReceiveTimeout(Sock:TSocket;
+                            TimeoutMS:Integer;
+                            Var ErrorCode:Integer);
+Procedure SetSendTimeout(Sock:TSocket;
+                         TimeoutMS:Integer;
+                         Var ErrorCode:Integer);
+Procedure SetReceiveBuffer(Sock:TSocket;
+                           WantedSize:Integer;
+                           Var ErrorCode:Integer);
+Procedure SetSendBuffer(Sock:TSocket;
+                        WantedSize:Integer;
+                        Var ErrorCode:Integer);
+Function GetReceiveBuffer(Sock:TSocket;
+                          Var ErrorCode:Integer):Integer;
+Function GetSendBuffer(Sock:TSocket;
+                       Var ErrorCode:Integer):Integer;
+Function GetSockStatusBool(Sock:TSocket;
+                           SO_Flag:Integer;
+                           Var ErrorCode:Integer):Boolean;
+Function GetSockStatusInt(Sock:TSocket;
+                          SO_Flag:Integer;
+                          Var ErrorCode:Integer):Integer;
+Procedure SetSockStatusBool(Sock:TSocket;
+                           SO_Flag:Integer;
+                           Setting:Boolean;
+                           Var ErrorCode:Integer);
+Procedure SetSockStatusInt(Sock:TSocket;
+                          SO_Flag:Integer;
+                          Setting:Integer;
+                          Var ErrorCode:Integer);
+Function CountWaiting(Sock:TSocket;
+                      Var ErrorCode:Integer):Integer;
+Function GetAddressCountByIP(IPAddress:AnsiString):Integer;
+Function GetAddressCountByHost(Host:AnsiString):Integer;
+Function GetIPAddressByHost(Host:AnsiString;Which:Integer):AnsiString;
+Function GetHostByIPAddress(IPAddress:AnsiString):AnsiString;
+Function GetLocalHostName:AnsiString;
+function GetLocalPort(Sock:TSocket):Integer;
+function GetLocalIPAddr(Sock:TSocket):AnsiString;
+function GetLastError:Integer;
+Function GetErrorDesc(ErrorCode:Integer):AnsiString;
+function ByteSwap4(long:Cardinal):Cardinal;
+function ByteSwap2(short:smallint):smallint;
+Function IPIntToIPStr(IPAddr:Integer):AnsiString;
+Function IPStrToIPInt(IPAddr:AnsiString):Integer;
+Function SocketLayerLoaded:Boolean;
+Procedure GetSocketVersion(WinsockInfo:PWinsockInfo);
+Function ntohs(netshort:Word):Word;
+Function inet_ntoa(inaddr:in_addr):PAnsiChar;
+Function htonl(Hostlong:Integer):Integer;
+Function ntohl(Netlong:Integer):Integer;
+Function SetErrorCode(ResultCode:Integer):Integer;
+
+implementation
+
+Uses
+   uRODXString,
+   SysUtils;
+
+Var
+{$IFDEF MSWINDOWS}
+   DLLData:TWSAData;
+{$ENDIF}
+   StartupResult:Integer;
+   GlobalTimeout:TTimeVal; //6-9
+
+Var
+{$IFNDEF MSWINDOWS}
+   SizeOfInt:Cardinal=4; // optimize compiling
+{$ELSE}
+   SizeOfInt:Integer=4; // optimize compiling
+{$ENDIF}
+
+{$IFDEF ENGLISH1}
+{$I Resource_English.inc}
+{$ENDIF}
+{$IFDEF FRENCH1}
+{$I Resource_French.inc}
+{$ENDIF}
+{$IFDEF GERMAN1}
+{$I Resource_German.inc}
+{$ENDIF}
+{$IFDEF ITALIAN1}
+{$I Resource_Italian.inc}
+{$ENDIF}
+{$IFDEF LOWMEM1}
+{$I Resource_LowMem.inc}
+{$ENDIF}
+{$IFDEF PORTUGUESE1}
+{$I Resource_Portuguese.inc}
+{$ENDIF}
+{$IFDEF RUSSIAN1}
+{$I Resource_Russian.inc}
+{$ENDIF}
+{$IFDEF SPANISH1}
+{$I Resource_Spanish.inc}
+{$ENDIF}
+{$IFDEF TURKISH1}
+{$I Resource_Turkish.inc}
+{$ENDIF}
+
+{$IFNDEF MSWINDOWS}
+Function WSAGetLastError:Integer;
+Begin
+   Result:=fpGetErrno;
+End;
+{$ENDIF}
+
+Function CreateSocket(sin_family,socket_type,protocol:integer;
+                      Var ErrorCode:Integer):TSocket;
+Begin
+   ErrorCode:=0;
+// 7-27   Case StartupResult of
+// 7-27      999:Begin
+         Result:={$IFNDEF MSWINDOWS}fpsocket(sin_family,socket_type,protocol){$ENDIF}
+                 {$IFDEF MSWINDOWS}Winsock.Socket(sin_family,socket_type,protocol){$ENDIF}
+                 ;
+         If Result=Invalid_Socket then ErrorCode:=WSAGetLastError;
+// 7-27      End
+// 7-27      Else Begin
+// 7-27         Result:=Invalid_Socket;
+// 7-27         ErrorCode:=WSANotInitialised;
+// 7-27      End;
+// 7-27   End;
+End;
+
+Function SetErrorCode(ResultCode:Integer):Integer;
+Begin
+   If ResultCode=Socket_Error then Result:=WSAGetLastError
+   Else Result:=0;
+End;
+
+Procedure SetNagle(Sock:TSocket;
+                   TurnOn:Boolean;
+                   Var ErrorCode:Integer);
+Var
+   TA:Array[0..3] of AnsiChar;
+
+Begin
+   If Not TurnOn then TA:='1111'
+   Else TA:='0000';
+   ErrorCode:=SetErrorCode(
+   {$IFNDEF MSWINDOWS}fpSetSockOpt(Sock,IPPROTO_TCP,TCP_NODELAY,@TA,SizeofInt){$ENDIF}
+   {$IFDEF MSWINDOWS}SetSockOpt(Sock,IPPROTO_TCP,TCP_NODELAY,@TA,SizeofInt){$ENDIF}
+   );
+End;
+
+Procedure SetBlocking(Sock:TSocket;
+                      UseBlocking:Boolean;
+                      Var ErrorCode:Integer);
+{$IFNDEF MSWINDOWS}
+Const
+   FIONBIO=$5421;
+{$ENDIF}
+
+Var
+{$IFDEF VER90}
+   iBlocking:u_long;
+{$ELSE}
+   iBlocking:Integer;
+{$ENDIF}
+
+Begin
+   If UseBlocking then iBlocking:=0
+   Else iBlocking:=1;
+   ErrorCode:=SetErrorCode(
+   {$IFNDEF MSWINDOWS}fpioctl(Sock,FIONBIO,@iBlocking){$ENDIF}
+   {$IFDEF MSWINDOWS}Winsock.ioctlsocket(Sock,FIONBIO,iBlocking){$ENDIF}
+   );
+End;
+
+Procedure SetReceiveTimeout(Sock:TSocket;
+                            TimeoutMS:Integer;
+                            Var ErrorCode:Integer);
+Begin
+   ErrorCode:=SetErrorCode(
+     {$IFNDEF MSWINDOWS}fpsetsockopt(Sock,SOL_SOCKET,SO_RCVTIMEO,@TimeoutMS,SizeOfInt){$ENDIF}
+     {$IFDEF MSWINDOWS}setsockopt(Sock,SOL_SOCKET,SO_RCVTIMEO,@TimeoutMS,SizeOfInt){$ENDIF}
+     );
+End;
+
+Procedure SetSendTimeout(Sock:TSocket;
+                         TimeoutMS:Integer;
+                         Var ErrorCode:Integer);
+Begin
+   ErrorCode:=SetErrorCode(
+     {$IFNDEF MSWINDOWS}fpsetsockopt(Sock,SOL_SOCKET,SO_SNDTIMEO,@TimeoutMS,SizeofInt){$ENDIF}
+     {$IFDEF MSWINDOWS}setsockopt(Sock,SOL_SOCKET,SO_SNDTIMEO,@TimeoutMS,SizeofInt){$ENDIF}
+   );
+End;
+
+Procedure SetReceiveBuffer(Sock:TSocket;
+                           WantedSize:Integer;
+                           Var ErrorCode:Integer);
+Begin
+   ErrorCode:=SetErrorCode(
+     {$IFNDEF MSWINDOWS}fpsetsockopt(Sock,SOL_SOCKET,SO_RCVBUF,@WantedSize,SizeofInt){$ENDIF}
+     {$IFDEF MSWINDOWS}setsockopt(Sock,SOL_SOCKET,SO_RCVBUF,@WantedSize,SizeofInt){$ENDIF}
+   );
+End;
+
+Function GetSockStatusBool(Sock:TSocket;
+                           SO_Flag:Integer;
+                           Var ErrorCode:Integer):Boolean;
+Var
+   Rslt:Boolean;
+
+Begin
+// 7-27
+   ErrorCode:=SetErrorCode(
+     {$IFNDEF MSWINDOWS}fpGetSockOpt(Sock,SOL_SOCKET,SO_Flag,@Rslt,@SizeofInt){$ENDIF}
+     {$IFDEF MSWINDOWS}GetSockOpt(Sock,SOL_SOCKET,SO_Flag,PAnsiChar(@Rslt),SizeofInt){$ENDIF}
+   );
+   If ErrorCode=0 then Result:=Rslt
+   Else Result:=False;
+End;
+
+Function GetSockStatusInt(Sock:TSocket;
+                          SO_Flag:Integer;
+                          Var ErrorCode:Integer):Integer;
+Var
+   Rslt:Integer;
+
+Begin
+// 7-27
+   ErrorCode:=SetErrorCode(
+     {$IFNDEF MSWINDOWS}fpGetSockOpt(Sock,SOL_SOCKET,SO_Flag,@Rslt,@SizeofInt){$ENDIF}
+     {$IFDEF MSWINDOWS}GetSockOpt(Sock,SOL_SOCKET,SO_Flag,PAnsiChar(@Rslt),SizeofInt){$ENDIF}
+   );
+   If ErrorCode=0 then Result:=Rslt
+   Else Result:=0;
+End;
+
+Procedure SetSockStatusBool(Sock:TSocket;
+                           SO_Flag:Integer;
+                           Setting:Boolean;
+                           Var ErrorCode:Integer);
+var
+   intval:integer;
+
+Begin
+   if (Setting) then intval:=1
+   else intval:=0;
+   ErrorCode:=SetErrorCode(
+     {$IFNDEF MSWINDOWS}fpSetSockOpt(Sock,SOL_Socket,SO_Flag,@intval,SizeofInt){$ENDIF}
+     {$IFDEF MSWINDOWS}SetSockOpt(Sock,SOL_Socket,SO_Flag,@intval,SizeofInt){$ENDIF}
+   );
+End;
+
+Procedure SetSockStatusInt(Sock:TSocket;
+                          SO_Flag:Integer;
+                          Setting:Integer;
+                          Var ErrorCode:Integer);
+Begin
+   ErrorCode:=SetErrorCode(
+     {$IFNDEF MSWINDOWS}fpSetSockOpt(Sock,SOL_Socket,SO_Flag,@Setting,SizeofInt){$ENDIF}
+     {$IFDEF MSWINDOWS}SetSockOpt(Sock,SOL_Socket,SO_Flag,@Setting,SizeofInt){$ENDIF}
+   );
+End;
+
+
+Procedure SetSendBuffer(Sock:TSocket;
+                        WantedSize:Integer;
+                        Var ErrorCode:Integer);
+Begin
+   ErrorCode:=SetErrorCode(
+     {$IFNDEF MSWINDOWS}fpsetsockopt(Sock,SOL_SOCKET,SO_SNDBUF,@WantedSize,SizeofInt){$ENDIF}
+     {$IFDEF MSWINDOWS}setsockopt(Sock,SOL_SOCKET,SO_SNDBUF,@WantedSize,SizeofInt){$ENDIF}
+   );
+End;
+
+Function GetReceiveBuffer(Sock:TSocket;
+                          Var ErrorCode:Integer):Integer;
+Begin
+   Result:=GetSockStatusInt(Sock,SO_RCVBUF,ErrorCode);
+End;
+
+Function GetSendBuffer(Sock:TSocket;
+                       Var ErrorCode:Integer):Integer;
+Begin
+   Result:=GetSockStatusInt(Sock,SO_SNDBUF,ErrorCode);
+End;
+
+Procedure KillSocket(Var Sock:TSocket);
+Begin
+   If Sock<>Invalid_Socket then Begin
+      {$IFDEF MSWINDOWS}
+         ShutDown(Sock,2);
+      {$ELSE}
+         fpshutdown(Sock,2);
+      {$ENDIF}
+      CloseSocket(Sock);
+      Sock:=Invalid_Socket;
+   End;
+End;
+
+Procedure CloseConnection(Var Sock:TSocket;
+                          Gracefully:Boolean);
+Var
+{$IFDEF VER100} // Delphi3 code
+   Lin:TLinger;
+{$ELSE}
+   Lin:Linger;
+{$ENDIF}
+
+Begin
+   If Sock=Invalid_Socket then Exit;
+   Lin.l_linger:=0;
+   If Gracefully then Begin
+      Lin.l_onoff:=1; // Not(0);
+      {$IFNDEF MSWINDOWS}fpsetsockopt(Sock,SOL_SOCKET,SO_LINGER,@lin,Sizeof(Lin));{$ENDIF}
+      {$IFDEF MSWINDOWS}Winsock.setsockopt(Sock,SOL_SOCKET,SO_LINGER,@lin,Sizeof(Lin));{$ENDIF}
+   End
+   Else Begin
+      Lin.l_onoff:=0;
+      {$IFNDEF MSWINDOWS}fpsetsockopt(Sock,SOL_SOCKET,SO_LINGER,@lin,sizeof(lin));{$ENDIF}
+      {$IFDEF MSWINDOWS}Winsock.setsockopt(Sock,SOL_SOCKET,SO_LINGER,@lin,sizeof(lin));{$ENDIF}
+   End;
+//   DoSleepEx(0);
+   KillSocket(Sock);
+End;
+
+{$IFDEF MSWINDOWS}
+function CheckForSocketError(ResultCode:Integer):Boolean;
+begin
+  Result := ResultCode = SOCKET_ERROR;
+end;
+{$ENDIF}
+{$IFNDEF MSWINDOWS}
+function CheckForSocketError(ResultCode: Boolean):Boolean;
+begin
+  Result := ResultCode = False;
+end;
+{$ENDIF}
+
+
+Function ClientConnectToServer(ServerIPAddress:AnsiString;
+                               ServerPort:Integer;
+                               UseUDP,UseNAGLE:Boolean;
+                               ResultSockAddr:PSockAddr;
+                               Var ErrorCode:Integer):TSocket;
+{$IFNDEF MSWINDOWS}
+Const
+   SOCK_dgram=2;
+   SOCK_stream=1;
+{$ENDIF}
+
+begin
+   Result:=Invalid_Socket;
+   If ServerIPAddress='' then Exit;
+   ServerIPAddress:=FixDottedIp(ServerIPAddress);
+   FillChar(ResultSockAddr^,Sizeof(ResultSockAddr^),#0);
+   ResultSockAddr.sin_family:=AF_INET;
+   ResultSockAddr.sin_port:=htons(ServerPort);
+   {$IFNDEF MSWINDOWS}
+   ResultSockAddr.sin_addr.S_addr:= StrToNetAddr(ServerIPAddress).s_addr;
+   {$ENDIF}
+   {$IFDEF MSWINDOWS}
+   ResultSockAddr.sin_addr.S_addr:=Inet_Addr(PAnsichar(ServerIPAddress));
+   {$ENDIF}
+   Case UseUDP of
+      True:Begin
+         Result:=CreateSocket(AF_INET,SOCK_DGRAM,IPPROTO_UDP,ErrorCode);
+         Exit;
+      End;
+      Else Begin
+         Result:=CreateSocket(AF_INET,SOCK_STREAM,IPPROTO_TCP,ErrorCode);
+         If (Result<>Invalid_Socket) and (Not UseNAGLE) then
+            SetNAGLE(Result,UseNAGLE,ErrorCode);
+      End;
+   End;
+   If Result=Invalid_Socket then Exit;
+   SetSendTimeout(Result,5000,ErrorCode);
+   {$IFDEF MSWINDOWS}
+   If CheckForSocketError(connect(Result,ResultSockAddr^,ConstSizeofTSockAddrIn)) then begin
+   {$ELSE}
+   If CheckForSocketError(fpconnect(Result,ResultSockAddr,ConstSizeofTSockAddrIn)=0) then begin
+   {$ENDIF}
+      ErrorCode:=WSAGetLastError;
+      KillSocket(Result);
+   End;
+end;
+
+Function BindAndListen(BindToIPAddress:AnsiString;
+                       BindToPort,WinsockQueue:Integer;
+                       UseUDP,UseNAGLE,ConnectionLess:Boolean;
+                       ResultSockAddr:PSockAddr;
+                       Var ErrorCode:Integer):TSocket;
+{$IFNDEF MSWINDOWS}
+Const
+   SOCK_dgram=2;
+   SOCK_stream=1;
+{$ENDIF}
+
+begin
+   FillChar(ResultSockAddr^,Sizeof(ResultSockAddr^),#0); // DO ! USE ZEROMEMORY
+// SPX: Result:=CreateSocket(AF_IPX,SOCK_STREAM,NSPROTO_SPX,ErrorCode);
+// IPX: Result:=CreateSocket(AF_IPX,SOCK_DGRAM,NSPROTO_IPX,ErrorCode);
+   Case UseUDP of
+      True:Result:=CreateSocket(AF_INET,SOCK_DGRAM,IPPROTO_UDP,ErrorCode);
+      Else Begin
+         Result:=CreateSocket(AF_INET,SOCK_STREAM,IPPROTO_TCP,ErrorCode);
+         If (Result<>Invalid_Socket) and (Not UseNAGLE) then SetNAGLE(Result,UseNAGLE,ErrorCode);
+      End;
+   End;
+   If Result=Invalid_Socket then Exit;
+   ResultSockAddr.sin_family:=AF_INET;
+   ResultSockAddr.sin_port:=htons(BindToPORT);
+// 7-27
+   if (length(BindToIPAddress)<7) then
+     ResultSockAddr.sin_addr.S_addr:=INADDR_ANY
+   else
+     {$IFNDEF MSWINDOWS}
+     ResultSockAddr.sin_addr.S_addr:=StrToNetAddr(BindToIPAddress).s_addr;
+     {$ELSE}
+     ResultSockAddr.sin_addr.S_addr:=Inet_Addr(PAnsiChar(BindToIPAddress));
+     {$ENDIF}
+   {$IFDEF MSWINDOWS}
+   If CheckForSocketError(Bind(Result,ResultSockAddr^,ConstSizeofTSockAddrIn)) then Begin
+   {$ELSE}
+   If CheckForSocketError(fpbind(Result,ResultSockAddr,ConstSizeofTSockAddrIn)=0) then Begin
+   {$ENDIF}
+      Result:=Invalid_Socket;
+      ErrorCode:=WSAGetLastError;
+      Exit;
+   End;
+// 7-27
+   If Not ConnectionLess then
+      {$IFDEF MSWINDOWS}
+      If CheckForSocketError(Listen(Result,WinsockQueue)) then Begin
+      {$ELSE}
+      If CheckForSocketError(fplisten(Result,WinsockQueue)=0) then Begin
+      {$ENDIF}
+         Result:=Invalid_Socket;
+         ErrorCode:=WSAGetLastError;
+      End;
+End;
+
+Function IsAcceptWaiting(ListenerSock:TSocket):Boolean;
+{$IFDEF MSWINDOWS}
+Var
+   SockList:TFDSet;
+{$ENDIF}
+
+Begin
+{$IFNDEF MSWINDOWS}
+   Result:=BasicSelect(ListenerSock,True,GlobalTimeout)>0;
+{$ELSE}
+   SockList.fd_count:=1;
+   SockList.fd_array[0]:=ListenerSock;
+   Result:=Select(0,@sockList,nil,nil,@GlobalTimeout)>0;
+{$ENDIF}
+End;
+
+Function AcceptNewConnect(ListenerSock:TSocket;
+                          ResultAddr:PSockAddr;
+                          ResultAddrlen:pSockLen;
+                          Var ErrorCode:Integer):TSocket;
+Begin
+   Result:={$IFNDEF MSWINDOWS}fpaccept(ListenerSock,ResultAddr,ResultAddrLen);{$ENDIF}
+           {$IFDEF MSWINDOWS}
+              {$IFDEF VER90}
+              Winsock.Accept(ListenerSock,ResultAddr^,ResultAddrLen^);
+              {$ELSE}
+              Winsock.Accept(ListenerSock,ResultAddr,ResultAddrLen);
+              {$ENDIF}
+           {$ENDIF}
+   If Result=Invalid_Socket then ErrorCode:=WSAGetLastError
+   Else If ResultAddrLen^=0 then ErrorCode:=WSAEFault
+   Else ErrorCode:=0;
+End;
+
+Function BasicSend(Sock:TSocket;
+                   Var Buf;
+                   Len:Integer;
+                   Flags:Integer;
+                   Var ErrorCode:Integer):Integer;
+Begin
+//   Result:=Socket_Error;
+//   ErrorCode:=WSAEINTR;
+//   While (Result<0) and ((ErrorCode=WSAEINTR) or (ErrorCode=WSAETIMEDOUT)) do Begin
+  {$IFDEF MSWINDOWS}
+       Result:=Send(Sock,Buf,Len,Flags);
+  {$ELSE}
+       Result:=fpsend(Sock,@Buf,Len,Flags);
+  {$ENDIF}
+       ErrorCode:=SetErrorCode(Result);
+//   End;
+End;
+
+Function UDPSend(Sock:TSocket;
+                 Var Buf;
+                 Len:Integer;
+                 Flags:Integer;
+                 SendTo:TSockAddr;
+                 SendToSize:Integer;
+                 Var ErrorCode:Integer):Integer;
+Begin
+   Result:={$IFNDEF MSWINDOWS}fpSendTo(Sock,@Buf,Len,Flags,@SendTo,SendToSize);{$ENDIF}
+           {$IFDEF MSWINDOWS}Winsock.SendTo(Sock,Buf,Len,Flags,SendTo,SendToSize);{$ENDIF}
+   ErrorCode:=SetErrorCode(Result);
+End;
+
+Function BasicRecv(Sock:TSocket;
+                   Var Buf;
+                   Len:Integer;
+                   Flags:Integer;
+                   Var ErrorCode:Integer):Integer;
+Begin
+// 7-27   If Sock<>Invalid_Socket then Begin
+  {$IFDEF MSWINDOWS}
+      Result:=Recv(Sock,Buf,Len,Flags);
+  {$ELSE}
+      Result:=fprecv(Sock,@Buf,Len,Flags);
+  {$ENDIF}
+      ErrorCode:=SetErrorCode(Result);
+// 7-27   End
+// 7-27   Else Result:=0;
+End;
+
+Function UDPRecv(Sock:TSocket;
+                 Var Buf;
+                 Len:Integer;
+                 Flags:Integer;
+                 Var RcvFrom:TSockAddr;
+                 Var RcvFromSize:Integer;
+                 Var ErrorCode:Integer):Integer;
+Begin
+// 7-27   If Sock<>Invalid_Socket then Begin
+      Result:={$IFNDEF MSWINDOWS}fprecvfrom(Sock,@Buf,Len,Flags,@RcvFrom,@RcvFromSize);{$ENDIF}
+              {$IFDEF MSWINDOWS}Winsock.recvfrom(Sock,Buf,Len,Flags,RcvFrom,RcvFromSize);{$ENDIF}
+      ErrorCode:=SetErrorCode(Result);
+// 7-27   End
+// 7-27   Else Result:=0;
+End;
+
+Function BasicPeek(Sock:TSocket;
+                   Var Buf;
+                   Len:Integer):Integer;
+Begin
+// 7-27   If Sock<>Invalid_Socket then Begin
+  {$IFDEF MSWINDOWS}
+      Result:=Recv(Sock, Buf, Len, MSG_PEEK);
+  {$ELSE}
+      Result:=fprecv(Sock,@Buf,Len,MSG_PEEK);
+  {$ENDIF}
+// 7-27   End
+// 7-27   Else Result:=Socket_Error;
+End;
+
+Function BasicSelect(Sock:TSocket;
+                     CheckRead:Boolean;
+                     Timeout:TTimeVal):Integer;
+var
+  SockList: TFDSet;
+
+Begin
+{$IFNDEF MSWINDOWS}
+   fpFD_ZERO(SockList);
+   SockList[0]:=Sock;
+   If CheckRead then
+      Result:=fpSelect(1,@SockList,nil,nil,@Timeout)
+   Else
+      Result:=fpSelect(1,nil,@SockList,nil,@Timeout);
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+   SockList.fd_count:=1;
+   SockList.fd_array[0]:=Sock;
+   If CheckRead then
+     Result:=Select(0,@sockList,nil,nil,@Timeout)
+   Else
+     Result:=Select(0,nil,@sockList,nil,@Timeout)
+{$ENDIF}
+End;
+
+Function CountWaiting(Sock:TSocket;Var ErrorCode:Integer):Integer;
+{$IFNDEF MSWINDOWS}
+Const
+   FIONREAD=$541B;
+{$ENDIF}
+var
+   numWaiting:longint;
+
+begin
+   Result:=0;
+// in linux IOCtl is used to "set" not "get" values.
+   ErrorCode:=SetErrorCode({$IFNDEF MSWINDOWS}fpIOCtl(Sock,FIONREAD,@numWaiting));{$ENDIF}
+                           {$IFDEF MSWINDOWS}Winsock.IOCtlSocket(Sock,FIONREAD,numWaiting));{$ENDIF}
+   If ErrorCode=0 then Result:=numWaiting;
+end;
+
+Function GetAddressCountByIP(IPAddress:AnsiString):Integer;
+Var
+   HostEnt:PHostEnt;
+   {$IFDEF MSWINDOWS}
+   InAddr: integer;
+   {$ENDIF}
+   {$IFNDEF MSWINDOWS}
+   InAddr:cuint32;
+   {$ENDIF}
+
+Begin
+   IPAddress:=FixDottedIp(IPAddress);
+   {$IFDEF MSWINDOWS}
+   InAddr:=inet_addr(PAnsiChar(IPAddress));
+   {$ENDIF}
+   {$IFNDEF MSWINDOWS}
+   InAddr:=StrToNetAddr(IPAddress).s_addr;
+   {$ENDIF}
+{$WARNINGS OFF}
+   HostEnt:=gethostbyaddr(@InAddr,Length(IPAddress),AF_INET);
+   If Assigned(HostEnt) then Result:=HostEnt.h_length div 4
+   Else Result:=0;
+{$WARNINGS ON}
+End;
+
+Function GetAddressCountByHost(Host:AnsiString):Integer;
+Var
+   HostEnt:PHostEnt;
+
+Begin
+// 7-27   if Host='' then Begin
+// 7-27      Result:=0;
+// 7-27      Exit;
+// 7-27   End;
+   HostEnt:=gethostbyname(PAnsiChar(Host));
+// 7-27
+   If Assigned(HostEnt) then Result:=GetAddressCountByIP(HostEnt.h_addr^)
+   Else Result:=0;
+End;
+
+Function GetIPAddressByHost(Host:AnsiString;Which:Integer):AnsiString;
+Var
+   HostEnt:PHostEnt;
+   iAddr:Integer;
+
+Begin
+// 7-27   if (Host='') or (Which<1) then Begin
+// 7-27      Result:='';
+// 7-27      Exit;
+// 7-27   End;
+   HostEnt:=gethostbyname(PAnsiChar(Host));
+   If Assigned(HostEnt) then Begin
+      If Which<=(HostEnt.h_length div 4) then Begin
+         Move(PByteArray(HostEnt.h_addr_list^)[(Which-1)*4],iAddr,4);
+         Result:=inet_ntoa(in_Addr(iAddr));
+      End
+      Else Result:='';
+   End
+   Else Result:='';
+End;
+
+Function GetHostByIPAddress(IPAddress:AnsiString):AnsiString;
+Var
+   HostEnt:PHostEnt;
+   {$IFDEF MSWINDOWS}
+   InAddr: integer;
+   {$ENDIF}
+   {$IFNDEF MSWINDOWS}
+   InAddr:cuint32;
+   {$ENDIF}
+
+Begin
+   IPAddress:=FixDottedIp(IPAddress);
+   {$IFDEF MSWINDOWS}
+   InAddr:=inet_addr(PAnsiChar(IPAddress));
+   {$ENDIF}
+   {$IFNDEF MSWINDOWS}
+   InAddr:=StrToNetAddr(IPAddress).s_addr;
+   {$ENDIF}
+{$WARNINGS OFF}
+   HostEnt:=gethostbyaddr(@InAddr,Length(IPAddress),AF_INET);
+   If Assigned(HostEnt) then Result:=StrPas(HostEnt.h_name)
+   Else Result:='';
+{$WARNINGS ON}
+End;
+
+Function GetLocalHostName:AnsiString;
+Begin
+   Result:=GetHostByIPAddress(
+      GetIPAddressByHost('localhost',1));
+   If Result='' then Result:='Localhost';
+End;
+
+function GetLocalPort(Sock:TSocket):Integer;
+var
+  addr: TSockAddrIn;
+{$IFNDEF MSWINDOWS}
+  addrlen: cardinal;
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+  addrlen: integer;
+{$ENDIF}
+
+begin
+  addrlen:=ConstSizeofTSockAddrIn;
+  {$IFDEF MSWINDOWS}
+  if getsockname(Sock,addr,addrlen)=0 then
+  {$ENDIF}
+  {$IFNDEF MSWINDOWS}
+  if fpgetsockname(Sock,@addr,@addrlen)=0 then
+  {$ENDIF}
+    Result:=ntohs(addr.sin_port)
+  else Result := 0;
+end;
+
+function GetLocalIPAddr(Sock:TSocket):AnsiString;
+var
+  addr: TSockAddrIn;
+{$IFNDEF MSWINDOWS}
+  addrlen: cardinal;
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+  addrlen: integer;
+{$ENDIF}
+
+begin
+  addrlen:=ConstSizeofTSockAddrIn;
+  FillChar(Addr,Sizeof(TSockAddrIn),#0);
+{$IFNDEF MSWINDOWS}
+  fpgetsockname(Sock,@addr,@addrlen);
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+  getsockname(Sock,addr,addrlen);
+{$ENDIF}
+  Result:=inet_ntoa(addr.sin_addr);
+end;
+
+Procedure GetRemoteSockAddr(Sock:TSocket;
+                            ResultAddr:PSockAddr;
+                            ResultAddrlen:PSockLen;
+                            Var ErrorCode:Integer);
+Begin
+{$IFNDEF MSWINDOWS}
+   ErrorCode:=SetErrorCode(fpgetpeername(Sock,ResultAddr,ResultAddrLen));
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+   ErrorCode:=SetErrorCode(getpeername(Sock,ResultAddr^,ResultAddrlen^));
+{$ENDIF}
+End;
+
+function GetLastError:Integer;
+Begin
+   Result:=WSAGetLastError;
+End;
+
+Function GetErrorDesc(errorCode:Integer):AnsiString;
+var
+  r: string;
+begin
+// If you compile and get "Undeclared Identified -
+// Edit DXSock.DEF - and select a language!
+   case errorCode of
+      WSAEINTR:R:=_WSAEINTR;
+      WSAEBADF:R:=_WSAEBADF;
+      WSAEACCES:R:=_WSAEACCES;
+      WSAEFAULT:R:=_WSAEFAULT;
+      WSAEINVAL:R:=_WSAEINVAL;
+      WSAEMFILE:R:=_WSAEMFILE;
+      WSAEWOULDBLOCK:R:=_WSAEWOULDBLOCK;
+      WSAEINPROGRESS:R:=_WSAEINPROGRESS;
+      WSAEALREADY:R:=_WSAEALREADY;
+      WSAENOTSOCK:R:=_WSAENOTSOCK;
+      WSAEDESTADDRREQ:R:=_WSAEDESTADDRREQ;
+      WSAEMSGSIZE:R:=_WSAEMSGSIZE;
+      WSAEPROTOTYPE:R:=_WSAEPROTOTYPE;
+      WSAENOPROTOOPT:R:=_WSAENOPROTOOPT;
+      WSAEPROTONOSUPPORT:R:=_WSAEPROTONOSUPPORT;
+      WSAESOCKTNOSUPPORT:R:=_WSAESOCKTNOSUPPORT;
+      WSAEOPNOTSUPP:R:=_WSAEOPNOTSUPP;
+      WSAEPFNOSUPPORT:R:=_WSAEPFNOSUPPORT;
+      WSAEAFNOSUPPORT:R:=_WSAEAFNOSUPPORT;
+      WSAEADDRINUSE:R:=_WSAEADDRINUSE;
+      WSAEADDRNOTAVAIL:R:=_WSAEADDRNOTAVAIL;
+      WSAENETDOWN:R:=_WSAENETDOWN;
+      WSAENETUNREACH:R:=_WSAENETUNREACH;
+      WSAENETRESET:R:=_WSAENETRESET;
+      WSAECONNABORTED:R:=_WSAECONNABORTED;
+      WSAECONNRESET:R:=_WSAECONNRESET;
+      WSAENOBUFS:R:=_WSAENOBUFS;
+      WSAEISCONN:R:=_WSAEISCONN;
+      WSAENOTCONN:R:=_WSAENOTCONN;
+      WSAESHUTDOWN:R:=_WSAESHUTDOWN;
+      WSAETOOMANYREFS:R:=_WSAETOOMANYREFS;
+      WSAETIMEDOUT:R:=_WSAETIMEDOUT;
+      WSAECONNREFUSED:R:=_WSAECONNREFUSED;
+      WSAELOOP:R:=_WSAELOOP;
+      WSAENAMETOOLONG:R:=_WSAENAMETOOLONG;
+      WSAEHOSTDOWN:R:=_WSAEHOSTDOWN;
+      WSAEHOSTUNREACH:R:=_WSAEHOSTUNREACH;
+      WSAENOTEMPTY:R:=_WSAENOTEMPTY;
+      WSAEPROCLIM:R:=_WSAEPROCLIM;
+      WSAEUSERS:R:=_WSAEUSERS;
+      WSAEDQUOT:R:=_WSAEDQUOT;
+      WSAESTALE:R:=_WSAESTALE;
+      WSAEREMOTE:R:=_WSAEREMOTE;
+      WSASYSNOTREADY:R:=_WSASYSNOTREADY;
+      WSAVERNOTSUPPORTED:R:=_WSAVERNOTSUPPORTED;
+      WSANOTINITIALISED:R:=_WSANOTINITIALISED;
+      WSAHOST_NOT_FOUND:R:=_WSAHOST_NOT_FOUND;
+      WSATRY_AGAIN:R:=_WSATRY_AGAIN;
+      WSANO_RECOVERY:R:=_WSANO_RECOVERY;
+      {$IFDEF MSWINDOWS}
+      WSANO_DATA:R:=_WSANO_DATA;
+      {$ENDIF}
+      Else R:=_WSAUNKNOWN+' ('+IntToCommaStr(ErrorCode)+')';
+   end;
+   // message in the native Ansi so
+   Result := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(R);
+end;
+
+function ByteSwap4(long:Cardinal):Cardinal;
+begin
+   result:=ntohl(long);
+end;
+
+function ByteSwap2(short:smallint):smallint;
+begin
+   result:=ntohs(short);
+end;
+
+Function IPIntToIPStr(IPAddr:Integer):AnsiString;
+Var
+   Ws:AnsiString;
+
+Begin
+   Setlength(Ws,4);
+   Move(IPAddr,Ws[1],4);
+   Result:=
+      Ansi_IntToStr(Ord(Ws[1]))+'.'+
+      Ansi_IntToStr(Ord(Ws[2]))+'.'+
+      Ansi_IntToStr(Ord(Ws[3]))+'.'+
+      Ansi_IntToStr(Ord(Ws[4]));
+End;
+
+Function IPStrToIPInt(IPAddr:AnsiString):Integer;
+  function _getChar(AValue: Ansistring): AnsiChar;
+  begin
+    Result :=AnsiChar(Ansi_StrToInt(AValue));
+  end;
+Var
+   Ws:AnsiString;
+
+Begin
+   Setlength(Ws,4);
+   Ws[1]:=_getChar(FetchByChar(IPAddr,'.',False));
+   Ws[2]:=_getChar(FetchByChar(IPAddr,'.',False));
+   Ws[3]:=_getChar(FetchByChar(IPAddr,'.',False));
+   Ws[4]:=_getChar(FetchByChar(IPAddr,'.',False));
+   Move(Ws[1],Result,4);
+End;
+
+Function SocketLayerLoaded:Boolean;
+Begin
+   Result:=(StartupResult=999);
+End;
+
+Procedure GetSocketVersion(WinsockInfo:PWinsockInfo);
+Begin
+{$IFNDEF MSWINDOWS}
+   With WinsockInfo^ do Begin
+      Major_Version:=2;
+      Minor_Version:=0;
+      Highest_Major_Version:=2;
+      Highest_Minor_Version:=0;
+      Move('Linux Socket Layer 2.0',Description,256);
+      Move('Ready',SystemStatus,128);
+      MaxSockets:=65000;
+      MaxUDPDatagramSize:=1500;
+      VendorInfo:='Brain Patchwork DX, LLC.';
+   End;
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+   With WinsockInfo^ do Begin
+      Major_Version:=BYTE(DllData.wVersion);
+      Minor_Version:=HIBYTEOfWORD(DllData.wVersion);
+      Highest_Major_Version:=BYTE(DllData.wHighVersion);
+      Highest_Minor_Version:=HIBYTEOfWORD(DllData.wHighVersion);
+      Move(DllData.szDescription,Description,256);
+      Move(DllData.szSystemStatus,SystemStatus,128);
+      MaxSockets:=DllData.iMaxSockets;
+      MaxUDPDatagramSize:=DllData.iMaxUDPDg;
+      VendorInfo:=DllData.lpVendorInfo;
+   End;
+{$ENDIF}
+End;
+
+Function ntohs(netshort:Word):Word;
+Begin
+   Result:={$IFNDEF MSWINDOWS}sockets.ntohs(Netshort);{$ENDIF}
+           {$IFDEF MSWINDOWS}Winsock.ntohs(Netshort);{$ENDIF}
+End;
+
+Function inet_ntoa(inaddr:in_addr):PAnsiChar;
+Begin
+   Result:={$IFNDEF MSWINDOWS}PAnsiChar(NetAddrToStr(inaddr));{$ENDIF}
+           {$IFDEF MSWINDOWS}Winsock.inet_ntoa(inaddr);{$ENDIF}
+End;
+
+Function htonl(Hostlong:Integer):Integer;
+Begin
+   Result:={$IFNDEF MSWINDOWS}sockets.htonl(Hostlong);{$ENDIF}
+           {$IFDEF MSWINDOWS}Winsock.htonl(Hostlong);{$ENDIF}
+End;
+
+Function ntohl(Netlong:Integer):Integer;
+Begin
+   Result:={$IFNDEF MSWINDOWS}sockets.ntohl(netlong);{$ENDIF}
+           {$IFDEF MSWINDOWS}Winsock.ntohl(netlong);{$ENDIF}
+End;
+
+initialization
+{$IFNDEF MSWINDOWS}
+   StartupResult:=0;
+{$ELSE}
+   StartupResult:=WSAStartup(MAKEBytesToWORD(2,2),DLLData);
+{$ENDIF}
+   if StartupResult=0 then Begin
+      StartupResult:=999;
+      // 6-9: added to load 1 time.
+      GlobalTimeout.tv_Sec:=0;
+      GlobalTimeout.tv_uSec:=2500;
+   End
+   else StartupResult:=123;
+
+finalization
+{$IFDEF MSWINDOWS}
+   If StartupResult=999 then WSACleanup;
+{$ENDIF}
+
+End.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXString.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXString.pas
new file mode 100644
index 0000000..33fb6c8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RODX/uRODXString.pas	
@@ -0,0 +1,802 @@
+{$I uRODXSock.def}
+
+unit uRODXString;
+
+interface
+
+///////////////////////////////////////////////////////////////////////////////
+//         Unit: DXString
+//       Author: G.E. Ozz Nixon Jr. (onixon@dxsock.com)
+//     Assembly: Pete Morris and Ozz Nixon {all asm by Ozz is denoted!}
+// ========================================================================
+// Source Owner: DX, Inc. 1995-2002
+//    Copyright: All code is the property of DX, Inc. Licensed for
+//               resell by Brain Patchwork DX (tm) and part of the
+//               DX (r) product lines, which are (c) 1999-2002
+//               DX, Inc. Source may not be distributed without
+//               written permission from both Brain Patchwork DX,
+//               and DX, Inc.
+//      License: (Reminder), None of this code can be added to other
+//               developer products without permission. This includes
+//               but not limited to DCU's, DCP's, DLL's, OCX's, or
+//               any other form of merging our technologies. All of
+//               your products released to a public consumer be it
+//               shareware, freeware, commercial, etc. must contain a
+//               license notification somewhere visible in the
+//               application.
+//               Example is Internet Explorer - Help->About screen
+//               shows the licensed code contained in the application.
+// Code Version: (3rd Generation Code)
+// ========================================================================
+//  Description:
+// ========================================================================
+///////////////////////////////////////////////////////////////////////////////
+
+Uses
+{$IFDEF MSWINDOWS}
+   Windows,
+{$ENDIF}
+   Classes,
+   SyncObjs,
+   SysUtils;
+
+
+// DO NOT CHANGE THIS ONE
+// BRAIN PATCHWORK DX ONLY CHANGES THIS
+// IT IS USED FOR TECHNICAL SUPPORT (VERSION CONTROLS)
+CONST BPDX_RELEASE_DATE='2002-09-01'; {YYYY-MM-DD}
+
+
+///////////////////////////////////////////////////////////////////////////////
+// Brain Patchwork - Just so you can verify which release you have at run-time.
+///////////////////////////////////////////////////////////////////////////////
+Type
+   TDXCritical = Class(TObject)
+   private
+     Synchronizer:TCriticalSection;
+   public
+     constructor Create;
+     destructor Destroy; override;
+     procedure StartingRead;
+     procedure FinishedRead;
+     procedure StartingWrite;
+     procedure FinishedWrite;
+   End;
+   
+{$IFDEF OBJECTS_ONLY}
+   TDXComponent = Class(TObject)
+{$ELSE}
+   TDXComponent = Class(TComponent)
+{$ENDIF}
+   private
+         procedure SetReleaseDate(value: AnsiString);
+         Function GetReleaseDate:AnsiString;
+   public
+         MyCriticalSection:TDXCritical;
+         constructor Create(AOwner: TComponent); {$IFNDEF OBJECTS_ONLY} override; {$ENDIF}
+         destructor Destroy; override;
+   published
+         property ReleaseDate:AnsiString Read GetReleaseDate write SetReleaseDate;
+   End;
+
+///////////////////////////////////////////////////////////////////////////////
+// Routines to centralize "Windows" calls
+///////////////////////////////////////////////////////////////////////////////
+{$IFNDEF MSWINDOWS}
+Type
+   DWord=LongWord;
+   TThreadPriority = (tpIdle, tpLowest, tpLower, tpNormal, tpHigher, tpHighest, pTimeCritical);
+{$ELSE}
+Type
+   PInteger = Windows.PInteger;
+   DWORD = Windows.DWord;
+{$ENDIF}
+
+// LINUX:
+Function LocalTimeZoneBias:Integer;
+// WINDOWS:
+Procedure ProcessWindowsMessageQueue;
+function  HiByteOfWord(Const W:Word):Byte;
+function  MakeBytesToWord(Const A,B:Byte):Word;
+function  WindowsWriteFile(hFile:THandle;
+   const Buffer;nNumberOfBytesToWrite:DWORD;
+   var lpNumberOfBytesWritten:DWORD):Boolean;
+Procedure ShowMessageWindow(Const Caption,Message:String);
+Procedure DoSleepEX(Const Interval:DWord);
+
+///////////////////////////////////////////////////////////////////////////////
+// Numeric Routines
+///////////////////////////////////////////////////////////////////////////////
+Function IsNumeric(Const c:AnsiChar):Boolean; // 2.3 asm
+Function isNumericString(Const S:AnsiString):Boolean;
+Function IntToCommaStr(Const Number:Integer):String; // 2.3 const
+
+///////////////////////////////////////////////////////////////////////////////
+// AnsiString Routines
+///////////////////////////////////////////////////////////////////////////////
+Function FetchByChar(var S:AnsiString;Const Sub:AnsiChar;Const IgnoreCase:Boolean):AnsiString;
+function Ansi_StrToInt(const S: Ansistring): Integer;
+function Ansi_IntToStr(Value: Integer): Ansistring;
+function AnsiStringToWideString(AValue: AnsiString): WideString;
+function WideStringToAnsiString(AValue: WideString): AnsiString;
+
+///////////////////////////////////////////////////////////////////////////////
+// Internet Routines
+///////////////////////////////////////////////////////////////////////////////
+Function GetIndex(Const c:AnsiChar):Integer;
+Function Base64ToString(Const S:AnsiString):AnsiString;
+function FixDottedIP(Const S:AnsiString):AnsiString;
+Function EscapeDecode(Const S:ansiString):AnsiString;
+
+///////////////////////////////////////////////////////////////////////////////
+// Date and/or Time Routines
+///////////////////////////////////////////////////////////////////////////////
+Function DateTimeToGMTRFC822(Const DT:TDateTime):AnsiString;
+Function TimeOut(Const MyTime:DWord):Boolean;
+Function TimeCounter:DWord;
+Function DateTimeToGMT(const DT:TDateTime):TDateTime;
+
+///////////////////////////////////////////////////////////////////////////////
+// File/Disk Routines
+///////////////////////////////////////////////////////////////////////////////
+Function ToUnixSlashes(Const S:AnsiString):AnsiString;
+
+implementation
+
+{$IFNDEF MSWINDOWS}
+Uses
+   baseunix, unix, Forms, Dialogs;
+{$ELSE}
+Uses
+   {$IFDEF DELPHI2009UP}AnsiStrings,{$ENDIF}
+   Registry; {to avoid Win2K security issue!}
+{$ENDIF}
+
+Const
+   Alphabet='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
+   AlphabetLength = 64; //Needed in GetIndex
+{$IFDEF VER100} // D3 Windows.PAS is missing these:
+   TIME_ZONE_ID_STANDARD = 1;
+   TIME_ZONE_ID_DAYLIGHT = 2;
+{$ENDIF}
+{$IFNDEF VER90}
+   ole32='ole32.dll';
+{$ENDIF}
+{$WARNINGS OFF}
+   crc_32_tab: ARRAY[0..255] OF LONGINT = (
+      $00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f, $e963a535, $9e6495a3,
+      $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988, $09b64c2b, $7eb17cbd, $e7b82d07, $90bf1d91,
+      $1db71064, $6ab020f2, $f3b97148, $84be41de, $1adad47d, $6ddde4eb, $f4d4b551, $83d385c7,
+      $136c9856, $646ba8c0, $fd62f97a, $8a65c9ec, $14015c4f, $63066cd9, $fa0f3d63, $8d080df5,
+      $3b6e20c8, $4c69105e, $d56041e4, $a2677172, $3c03e4d1, $4b04d447, $d20d85fd, $a50ab56b,
+      $35b5a8fa, $42b2986c, $dbbbc9d6, $acbcf940, $32d86ce3, $45df5c75, $dcd60dcf, $abd13d59,
+      $26d930ac, $51de003a, $c8d75180, $bfd06116, $21b4f4b5, $56b3c423, $cfba9599, $b8bda50f,
+      $2802b89e, $5f058808, $c60cd9b2, $b10be924, $2f6f7c87, $58684c11, $c1611dab, $b6662d3d,
+      $76dc4190, $01db7106, $98d220bc, $efd5102a, $71b18589, $06b6b51f, $9fbfe4a5, $e8b8d433,
+      $7807c9a2, $0f00f934, $9609a88e, $e10e9818, $7f6a0dbb, $086d3d2d, $91646c97, $e6635c01,
+      $6b6b51f4, $1c6c6162, $856530d8, $f262004e, $6c0695ed, $1b01a57b, $8208f4c1, $f50fc457,
+      $65b0d9c6, $12b7e950, $8bbeb8ea, $fcb9887c, $62dd1ddf, $15da2d49, $8cd37cf3, $fbd44c65,
+      $4db26158, $3ab551ce, $a3bc0074, $d4bb30e2, $4adfa541, $3dd895d7, $a4d1c46d, $d3d6f4fb,
+      $4369e96a, $346ed9fc, $ad678846, $da60b8d0, $44042d73, $33031de5, $aa0a4c5f, $dd0d7cc9,
+      $5005713c, $270241aa, $be0b1010, $c90c2086, $5768b525, $206f85b3, $b966d409, $ce61e49f,
+      $5edef90e, $29d9c998, $b0d09822, $c7d7a8b4, $59b33d17, $2eb40d81, $b7bd5c3b, $c0ba6cad,
+      $edb88320, $9abfb3b6, $03b6e20c, $74b1d29a, $ead54739, $9dd277af, $04db2615, $73dc1683,
+      $e3630b12, $94643b84, $0d6d6a3e, $7a6a5aa8, $e40ecf0b, $9309ff9d, $0a00ae27, $7d079eb1,
+      $f00f9344, $8708a3d2, $1e01f268, $6906c2fe, $f762575d, $806567cb, $196c3671, $6e6b06e7,
+      $fed41b76, $89d32be0, $10da7a5a, $67dd4acc, $f9b9df6f, $8ebeeff9, $17b7be43, $60b08ed5,
+      $d6d6a3e8, $a1d1937e, $38d8c2c4, $4fdff252, $d1bb67f1, $a6bc5767, $3fb506dd, $48b2364b,
+      $d80d2bda, $af0a1b4c, $36034af6, $41047a60, $df60efc3, $a867df55, $316e8eef, $4669be79,
+      $cb61b38c, $bc66831a, $256fd2a0, $5268e236, $cc0c7795, $bb0b4703, $220216b9, $5505262f,
+      $c5ba3bbe, $b2bd0b28, $2bb45a92, $5cb36a04, $c2d7ffa7, $b5d0cf31, $2cd99e8b, $5bdeae1d,
+      $9b64c2b0, $ec63f226, $756aa39c, $026d930a, $9c0906a9, $eb0e363f, $72076785, $05005713,
+      $95bf4a82, $e2b87a14, $7bb12bae, $0cb61b38, $92d28e9b, $e5d5be0d, $7cdcefb7, $0bdbdf21,
+      $86d3d2d4, $f1d4e242, $68ddb3f8, $1fda836e, $81be16cd, $f6b9265b, $6fb077e1, $18b74777,
+      $88085ae6, $ff0f6a70, $66063bca, $11010b5c, $8f659eff, $f862ae69, $616bffd3, $166ccf45,
+      $a00ae278, $d70dd2ee, $4e048354, $3903b3c2, $a7672661, $d06016f7, $4969474d, $3e6e77db,
+      $aed16a4a, $d9d65adc, $40df0b66, $37d83bf0, $a9bcae53, $debb9ec5, $47b2cf7f, $30b5ffe9,
+      $bdbdf21c, $cabac28a, $53b39330, $24b4a3a6, $bad03605, $cdd70693, $54de5729, $23d967bf,
+      $b3667a2e, $c4614ab8, $5d681b02, $2a6f2b94, $b40bbe37, $c30c8ea1, $5a05df1b, $2d02ef8d);
+ crc_arc_tab: Array[0..$FF] of Word =
+    ($00000, $0C0C1, $0C181, $00140, $0C301, $003C0, $00280, $0C241,
+     $0C601, $006C0, $00780, $0C741, $00500, $0C5C1, $0C481, $00440,
+     $0CC01, $00CC0, $00D80, $0CD41, $00F00, $0CFC1, $0CE81, $00E40,
+     $00A00, $0CAC1, $0CB81, $00B40, $0C901, $009C0, $00880, $0C841,
+     $0D801, $018C0, $01980, $0D941, $01B00, $0DBC1, $0DA81, $01A40,
+     $01E00, $0DEC1, $0DF81, $01F40, $0DD01, $01DC0, $01C80, $0DC41,
+     $01400, $0D4C1, $0D581, $01540, $0D701, $017C0, $01680, $0D641,
+     $0D201, $012C0, $01380, $0D341, $01100, $0D1C1, $0D081, $01040,
+     $0F001, $030C0, $03180, $0F141, $03300, $0F3C1, $0F281, $03240,
+     $03600, $0F6C1, $0F781, $03740, $0F501, $035C0, $03480, $0F441,
+     $03C00, $0FCC1, $0FD81, $03D40, $0FF01, $03FC0, $03E80, $0FE41,
+     $0FA01, $03AC0, $03B80, $0FB41, $03900, $0F9C1, $0F881, $03840,
+     $02800, $0E8C1, $0E981, $02940, $0EB01, $02BC0, $02A80, $0EA41,
+     $0EE01, $02EC0, $02F80, $0EF41, $02D00, $0EDC1, $0EC81, $02C40,
+     $0E401, $024C0, $02580, $0E541, $02700, $0E7C1, $0E681, $02640,
+     $02200, $0E2C1, $0E381, $02340, $0E101, $021C0, $02080, $0E041,
+     $0A001, $060C0, $06180, $0A141, $06300, $0A3C1, $0A281, $06240,
+     $06600, $0A6C1, $0A781, $06740, $0A501, $065C0, $06480, $0A441,
+     $06C00, $0ACC1, $0AD81, $06D40, $0AF01, $06FC0, $06E80, $0AE41,
+     $0AA01, $06AC0, $06B80, $0AB41, $06900, $0A9C1, $0A881, $06840,
+     $07800, $0B8C1, $0B981, $07940, $0BB01, $07BC0, $07A80, $0BA41,
+     $0BE01, $07EC0, $07F80, $0BF41, $07D00, $0BDC1, $0BC81, $07C40,
+     $0B401, $074C0, $07580, $0B541, $07700, $0B7C1, $0B681, $07640,
+     $07200, $0B2C1, $0B381, $07340, $0B101, $071C0, $07080, $0B041,
+     $05000, $090C1, $09181, $05140, $09301, $053C0, $05280, $09241,
+     $09601, $056C0, $05780, $09741, $05500, $095C1, $09481, $05440,
+     $09C01, $05CC0, $05D80, $09D41, $05F00, $09FC1, $09E81, $05E40,
+     $05A00, $09AC1, $09B81, $05B40, $09901, $059C0, $05880, $09841,
+     $08801, $048C0, $04980, $08941, $04B00, $08BC1, $08A81, $04A40,
+     $04E00, $08EC1, $08F81, $04F40, $08D01, $04DC0, $04C80, $08C41,
+     $04400, $084C1, $08581, $04540, $08701, $047C0, $04680, $08641,
+     $08201, $042C0, $04380, $08341, $04100, $081C1, $08081, $04040);
+ crc_16_tab: Array[0..$FF] of Word =
+    ($00000, $01021, $02042, $03063, $04084, $050a5, $060c6, $070e7,
+     $08108, $09129, $0a14a, $0b16b, $0c18c, $0d1ad, $0e1ce, $0f1ef,
+     $01231, $00210, $03273, $02252, $052b5, $04294, $072f7, $062d6,
+     $09339, $08318, $0b37b, $0a35a, $0d3bd, $0c39c, $0f3ff, $0e3de,
+     $02462, $03443, $00420, $01401, $064e6, $074c7, $044a4, $05485,
+     $0a56a, $0b54b, $08528, $09509, $0e5ee, $0f5cf, $0c5ac, $0d58d,
+     $03653, $02672, $01611, $00630, $076d7, $066f6, $05695, $046b4,
+     $0b75b, $0a77a, $09719, $08738, $0f7df, $0e7fe, $0d79d, $0c7bc,
+     $048c4, $058e5, $06886, $078a7, $00840, $01861, $02802, $03823,
+     $0c9cc, $0d9ed, $0e98e, $0f9af, $08948, $09969, $0a90a, $0b92b,
+     $05af5, $04ad4, $07ab7, $06a96, $01a71, $00a50, $03a33, $02a12,
+     $0dbfd, $0cbdc, $0fbbf, $0eb9e, $09b79, $08b58, $0bb3b, $0ab1a,
+     $06ca6, $07c87, $04ce4, $05cc5, $02c22, $03c03, $00c60, $01c41,
+     $0edae, $0fd8f, $0cdec, $0ddcd, $0ad2a, $0bd0b, $08d68, $09d49,
+     $07e97, $06eb6, $05ed5, $04ef4, $03e13, $02e32, $01e51, $00e70,
+     $0ff9f, $0efbe, $0dfdd, $0cffc, $0bf1b, $0af3a, $09f59, $08f78,
+     $09188, $081a9, $0b1ca, $0a1eb, $0d10c, $0c12d, $0f14e, $0e16f,
+     $01080, $000a1, $030c2, $020e3, $05004, $04025, $07046, $06067,
+     $083b9, $09398, $0a3fb, $0b3da, $0c33d, $0d31c, $0e37f, $0f35e,
+     $002b1, $01290, $022f3, $032d2, $04235, $05214, $06277, $07256,
+     $0b5ea, $0a5cb, $095a8, $08589, $0f56e, $0e54f, $0d52c, $0c50d,
+     $034e2, $024c3, $014a0, $00481, $07466, $06447, $05424, $04405,
+     $0a7db, $0b7fa, $08799, $097b8, $0e75f, $0f77e, $0c71d, $0d73c,
+     $026d3, $036f2, $00691, $016b0, $06657, $07676, $04615, $05634,
+     $0d94c, $0c96d, $0f90e, $0e92f, $099c8, $089e9, $0b98a, $0a9ab,
+     $05844, $04865, $07806, $06827, $018c0, $008e1, $03882, $028a3,
+     $0cb7d, $0db5c, $0eb3f, $0fb1e, $08bf9, $09bd8, $0abbb, $0bb9a,
+     $04a75, $05a54, $06a37, $07a16, $00af1, $01ad0, $02ab3, $03a92,
+     $0fd2e, $0ed0f, $0dd6c, $0cd4d, $0bdaa, $0ad8b, $09de8, $08dc9,
+     $07c26, $06c07, $05c64, $04c45, $03ca2, $02c83, $01ce0, $00cc1,
+     $0ef1f, $0ff3e, $0cf5d, $0df7c, $0af9b, $0bfba, $08fd9, $09ff8,
+     $06e17, $07e36, $04e55, $05e74, $02e93, $03eb2, $00ed1, $01ef0);
+{$WARNINGS ON}
+
+///////////////////////////////////////////////////////////////////////////////
+// Internal Version Control Routines (used for DCU's mainly)
+///////////////////////////////////////////////////////////////////////////////
+procedure TDXComponent.SetReleaseDate(value: AnsiString);
+Begin
+End;
+
+Function TDXComponent.GetReleaseDate:AnsiString;
+Begin
+   Result:=BPDX_RELEASE_DATE;
+End;
+
+constructor TDXComponent.Create(AOwner: TComponent);
+Begin
+{$IFDEF OBJECTS_ONLY}
+   inherited create;
+{$ELSE}
+   inherited create(AOwner);
+{$ENDIF}
+   MyCriticalSection:=TDXCritical.Create;
+End;
+
+destructor TDXComponent.Destroy;
+Begin
+   MyCriticalSection.Free;
+   MyCriticalSection:=Nil;
+   inherited;
+End;
+
+constructor TDXCritical.Create;
+Begin
+  inherited;
+  Synchronizer:=TCriticalSection.Create;
+End;
+
+destructor TDXCritical.Destroy;
+Begin
+  try
+     Synchronizer.Free;
+  except
+  end;
+  inherited;
+End;
+
+Procedure TDXCritical.StartingRead;
+Begin
+  Synchronizer.Acquire; 
+End;
+
+Procedure TDXCritical.FinishedRead;
+Begin
+   Synchronizer.Release;
+End;
+
+Procedure TDXCritical.StartingWrite;
+Begin
+   Synchronizer.Acquire;
+End;
+
+Procedure TDXCritical.FinishedWrite;
+Begin
+   Synchronizer.Release;
+End;
+
+///////////////////////////////////////////////////////////////////////////////
+// Windows/Operating System Routines
+///////////////////////////////////////////////////////////////////////////////
+
+Procedure ProcessWindowsMessageQueue;
+{$IFNDEF MSWINDOWS}
+Begin
+   Application.ProcessMessages;
+End;
+{$ELSE}
+Var
+   MsgRec:TMsg;
+
+Begin
+   If Not IsConsole then
+      while PeekMessage(MsgRec,0,0,0,PM_REMOVE) do begin
+         TranslateMessage(MsgRec);
+         DispatchMessage(MsgRec)
+      end;
+End;
+{$ENDIF}
+
+function HiByteOfWord(Const W:Word):Byte;
+Begin
+   Result:=Hi(W);
+End;
+
+function MakeBytesToWord(Const A,B:Byte):Word;
+Begin
+   Result:=(A shl 8) + B;
+End;
+
+function WindowsWriteFile(hFile:THandle;const Buffer;nNumberOfBytesToWrite:DWORD;
+  var lpNumberOfBytesWritten: DWORD):Boolean;
+Begin
+{$IFNDEF MSWINDOWS}
+   lpNumberOfBytesWritten:=FileWrite(hFile,Buffer,nNumberOfBytesToWrite);
+   Result:=lpNumberOfBytesWritten=nNumberOfBytesToWrite;
+{$ELSE}
+   Result:=WriteFile(hFile,Buffer,nNumberOfBytesToWrite,lpNumberOfBytesWritten,Nil);
+{$ENDIF}
+End;
+Procedure ShowMessageWindow(Const Caption,Message:String);
+Begin
+{$IFNDEF MSWINDOWS}
+   MessageDlg(Caption,Message,mtError,[mbOk],0);
+{$ELSE}
+   MessageBox(0,PChar(Message),PChar(Caption),MB_ICONEXCLAMATION or MB_SYSTEMMODAL);
+{$ENDIF}
+End;
+
+Procedure DoSleepEX(Const Interval:DWord);
+Begin
+{$IFNDEF MSWINDOWS}
+   Sleep(Interval);
+{$ELSE}
+   SleepEx(Interval,False{True});
+{$ENDIF}
+End;
+
+Function IsNumeric(Const c:AnsiChar):Boolean;
+begin
+{$IFNDEF ASM8086}
+  Result:= c in ['0'..'9'];
+{$ELSE} // ASM BY OZZ
+asm
+   mov AL,C
+   cmp AL, $30   // 0
+   jl @NoMatch   // it's before '0' so Result=False/Exit
+   cmp AL, $39   // 9
+   jg @NoMatch   // it's after '9' so Result=False/Exit
+   jmp @Matched  // it's 0..9 so Result=True/Exit
+@NoMatch:
+   mov Result,0
+   jmp @TheEnd
+@Matched:
+   mov Result,1
+@TheEnd:
+end {asm}
+{$ENDIF}
+end;
+Function isNumericString(Const S:AnsiString):Boolean;
+Var
+   Loop,MaxLoop:Integer;
+begin
+   Result:=True;
+   MaxLoop:=Length(S);
+   Loop:=0;
+   While (Loop<MaxLoop) and (Result) do Begin
+      If S[Loop+1]<>'.' then
+         Result:=IsNumeric(S[Loop+1]);
+      Inc(Loop);
+   End;
+end;
+
+Function IntToCommaStr(Const Number:Integer):String;
+Var
+   StrPos:Integer;
+Begin
+   Result:=IntToStr(Number);
+   StrPos:=Length(Result)-2;
+   While StrPos>1 Do Begin
+      Insert(',',Result,StrPos);
+      StrPos:=StrPos-3;
+   End;
+End;
+
+//////////////////////////////////////////////////////////////////////////////
+// AnsiString Routines
+///////////////////////////////////////////////////////////////////////////////
+function AnsiStringToWideString(AValue: AnsiString): WideString;
+begin
+  {$IFDEF UNICODE} //AnsiStringToWideString
+  Result := StringOf(BytesOf(AValue));
+  {$ELSE}
+  Result := AValue;
+  {$ENDIF}
+end;
+
+function WideStringToAnsiString(AValue: WideString): AnsiString;
+{$IFDEF UNICODE} //WideStringToAnsiString
+var
+  b: TBytes;
+begin
+  b := BytesOf(AValue);
+  SetLength(Result, Length(b));
+  Move(b[0], pointer(Result)^,Length(b));
+end;
+{$ELSE}
+begin
+  Result := AValue;
+end;
+{$ENDIF}
+
+
+function Ansi_StrToInt(const S: Ansistring): Integer;
+begin
+  Result := StrToInt({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(s));
+end;
+
+function Ansi_IntToStr(Value: Integer): Ansistring;
+begin
+  Result := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(IntToStr(Value));
+end;
+
+Function FetchByChar(var S:AnsiString;Const Sub:AnsiChar;Const IgnoreCase:Boolean):AnsiString;
+var
+   P:Integer;
+begin
+   If IgnoreCase then
+     P:=Pos(UpCase(Sub),UpperCase(S))
+   else
+     P:=Pos(Sub,S);
+   if (P=0) then Begin
+      Result:=S;
+      S:='';
+   End
+   Else Begin
+      Result:=Copy(S,1,P-1);
+      Delete(S,1,P);
+   End;
+end;
+(*
+Function Uppercase(Const S:AnsiString):AnsiString;
+{$IFNDEF ASM8086}
+var
+   Loop:Integer;
+   MaxLoop:Integer;
+
+Begin
+   Result:=S;
+   MaxLoop:=Length(Result);
+   For Loop:=MaxLoop downto 1 do
+      If Result[Loop] in ['a'..'z'] then Dec(Result[Loop],32);
+End;
+{$ELSE} // Ozz: tweaked to use Pointer() which is faster than @AnsiString!
+var
+  LenOfString:Integer;
+  FirstSource,FirstDest:Pointer;
+
+begin
+   LenOfString:=Length(S);
+   If LenOfString=0 then Begin
+      Result:='';
+      Exit;
+   End;
+   SetLength(Result,LenOfString);
+   FirstSource:=Pointer(s);
+   FirstDest:=Pointer(Result);
+asm
+   PUSH ESI            //Firstly and most importantly
+   PUSH EDI            //Delphi uses EBX, ESI, EDI extensively, so we need to
+                       //push them onto the stack, and then pop them off after
+   mov ESI, FirstSource//Move the address of Result into ESI
+   mov EDI, FirstDest  //ESI and EDI are 2 generic "data moving" registers
+                       //ESI = Source, EDI = Destination
+                       //MovSB (MoveString Byte, there is also, MovSW word and MovSD double)
+                       //MovXX copy from EDI to ESI, and then INC *both* ESI and EDI
+                       //  and also DEC ECX (generic AnsiString length counter)
+                       //But I will not use these as I need to Uppercase the results
+   mov ECX, LenOfString//ECX will contain a count of how many chars left to do
+@NextChar:
+   mov AL, [ESI]       //Move ESI^ into AL
+                       //  AL = AnsiChar, AX = Word, EAX = DWord, all different parts
+                       //  of the same register
+   cmp AL, $61
+   jl  @NoUpper        // < 'a' don't convert
+   cmp AL, $7A
+   jg  @NoUpper        // > 'z' don't convert
+   and AL, $DF          // Convert to uppercase
+@NoUpper:
+   mov [EDI], AL       // Put AL back into EDI^  (That's what [] means)
+   Inc ESI             //Point to next character
+   Inc EDI
+   Dec ECX             //Decrement the count, if it reaches 0, the ZERO flag will be set
+   jnz @NextChar       //"J"ump if "n"ot "z"ero to the next character
+   POP EDI
+   POP ESI
+end; {asm}
+end;
+{$ENDIF}
+
+Function Trim(const S:AnsiString):AnsiString;
+var
+   I, L: Integer;
+begin
+   L := Length(S);
+   I := 1;
+   while (I <= L) and (S[I] <= ' ') do Inc(I);
+   if I > L then Result := ''
+   else begin
+      while S[L] <= ' ' do Dec(L);
+      Result := Copy(S, I, L - I + 1);
+   end;
+end;
+*)
+///////////////////////////////////////////////////////////////////////////////
+// Internet Routines
+///////////////////////////////////////////////////////////////////////////////
+Function GetIndex(Const c:AnsiChar):Integer;
+var
+   i:Integer;
+{$IFDEF ASM8086}
+   S:AnsiString;
+{$ENDIF}
+
+begin
+{$IFNDEF ASM8086}
+   i:=Pos(c,Alphabet);  //overkill for just 1 character
+{$ELSE}
+   S := Alphabet;
+asm
+   PUSH EDI                 //Preserve this register
+   mov  EDI, S              //Point EDI at Alphabet AnsiString
+   mov  ECX, AlphaBetLength //Tell CPU how big Alphabet is
+   mov  AL,  C              //and which AnsiChar we want
+   RepNE ScaSB              //"Rep"eat while "N"ot "E"qual
+                            //this is the same as
+                            //While (EDI^ <> AL) and (ECX>0) do begin
+                            //  Inc(EDI);
+                            //  Dec(ECX);
+                            //end;
+   jnz  @NotFound           //Zero flag will be set if there was a match
+   sub  EDI, S              //EDI has been incremented, so EDI-OrigAdress = AnsiChar pos !
+   mov  I,   EDI
+@NotFound:
+   POP  EDI
+end;
+{$ENDIF}
+   if (i>0) then Dec(i);
+   result:=i;
+end;
+
+//gsw and ozz
+function DecodeUnit(Const InStr:AnsiString):ShortString;
+var
+   a,b,c,d:Byte;
+
+
+begin
+   a:=GetIndex(InStr[1]);
+   b:=GetIndex(InStr[2]);
+   If InStr[3]='=' then Begin
+      SetLength(Result,1);
+      result[1]:=AnsiChar((a shl 2) or (b shr 4));
+   end
+   Else If InStr[4]='=' then Begin
+      SetLength(Result,2);
+      c:=GetIndex(InStr[3]);
+      result[1]:=AnsiChar((a shl 2) or (b shr 4));
+      result[2]:=AnsiChar((b shl 4) or (c shr 2));
+   End
+   Else Begin
+      c:=GetIndex(InStr[3]);
+      d:=GetIndex(InStr[4]);
+      SetLength(result,3);
+      result[1]:=AnsiChar((a shl 2) or (b shr 4));
+      result[2]:=AnsiChar((b shl 4) or (c shr 2));
+      result[3]:=AnsiChar((c shl 6) or d);
+   End;
+end;
+
+
+Function Base64ToString(Const S:AnsiString):AnsiString;
+var
+  i:Integer;
+
+begin
+   Result:='';
+   for i:=((Length(s) div 4)-1) downto 0  do
+      Result:=DecodeUnit(Copy(s,i*4+1,4))+Result;
+end;
+
+function FixDottedIP(Const S:AnsiString):AnsiString;
+var
+   n:Cardinal;
+begin
+   Result:=AnsiChar('.')+S;
+   n:=Pos(AnsiString('.0'),Result);
+   while n>0 do begin
+      Delete(Result,n+1,1);
+      n:=Pos(AnsiString('.0'),Result);
+   end;
+   n:=Pos(AnsiString('..'),Result);
+   While N>0 do begin
+      Insert(AnsiChar('0'),Result,n+1);
+      n:=Pos(AnsiString('..'),Result);
+   End;
+   If Result[Length(Result)]=AnsiChar('.') then Result:=Result+AnsiChar('0');
+   Delete(Result,1,1);
+end;
+
+function EscapeDecode(Const S: AnsiString):AnsiString;
+var
+   ch:AnsiChar;
+   val:AnsiString;
+   I:Integer;
+begin
+   Result:=S;
+   I:=Pos(AnsiChar('%'),Result);
+   While I>0 do Begin
+     Val:=AnsiChar('$')+ Result[I+1]+Result[I+2];
+     try
+       Ch:=AnsiChar(Ansi_StrToInt(Val));
+     except
+       Ch:='a'; // 2.0.12
+     end;
+     Result:=Copy(Result,1,I-1)+Ch+Copy(Result,I+3,Length(Result));
+     I:=Pos(AnsiChar('%'),Result);
+   End;
+   I:=Pos(AnsiChar('+'),Result);
+   While I>0 do Begin
+      Result:=Copy(Result,1,I-1)+#32+Copy(Result,I+1,Length(Result));
+      I:=Pos(AnsiChar('+'),Result);
+   End;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+// Date and/or Time Routines
+///////////////////////////////////////////////////////////////////////////////
+
+Function DateTimeToGMT(const DT:TDateTime):TDateTime;
+begin
+   Result:=DT+LocalTimeZoneBias/1440;
+end;
+
+Function LocalTimeZoneBias:Integer;
+{$IFNDEF MSWINDOWS}
+Var
+   TV:TTimeval;
+   TZ:TTimezone;
+
+Begin
+   fpgettimeofday(@TV,@TZ);
+   Result:=TZ.tz_minuteswest;
+End;
+{$ELSE}
+var
+   TimeZoneInformation:TTimeZoneInformation;
+   Bias:Longint;
+
+begin
+   case GetTimeZoneInformation(TimeZoneInformation) of
+      TIME_ZONE_ID_STANDARD:Bias:=TimeZoneInformation.Bias+TimeZoneInformation.StandardBias;
+      TIME_ZONE_ID_DAYLIGHT:Bias:=TimeZoneInformation.Bias+((TimeZoneInformation.DaylightBias div 60)*-100);
+      else Bias:=TimeZoneInformation.Bias;
+   End;
+   Result:=Bias;
+End;
+{$ENDIF}
+
+Function ToUnixSlashes(Const S:AnsiString):AnsiString;
+var
+   Loop:Integer;
+   MaxLoop:Integer;
+
+begin
+   Result:=S;
+   MaxLoop:=Length(Result);
+   For Loop:=1 to MaxLoop do If Result[Loop]='\' then Result[Loop]:='/';
+end;
+
+const
+  f_formatA  = AnsiString('dddd, dd-mmm-yy hh:nn:ss');
+  f_formatB  = AnsiString('ddd, dd mmm yyyy hh:nn:ss');
+
+const
+  s_Month : array [1..12] of AnsiString =( 'Jan','Feb','Mar','Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep',  'Oct', 'Nov', 'Dec');
+  s_ShortDayNames: array[1..7] of AnsiString =('Mon','Tue','Wed','Thu','Fri','Sat','Sun');
+  s_LongDayNames: array[1..7] of AnsiString =('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday');
+
+function FormatDateTime_English(const Format: AnsiString; ADateTime: TDateTime): AnsiString;
+var
+  lYear, lMonth, lDay: Word;
+  lHour, lMin, lSec, lMsec: Word;
+begin
+  DecodeDate(ADateTime,lYear, lMonth, lDay);
+  DecodeTime(ADateTime,lHour, lMin, lSec, lMsec);
+  if Format = f_formatA then
+    Result:={$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(SysUtils.Format('%s, %.2d-%s-%.2d %.2d:%.2d:%.2d',[s_LongDayNames[DayOfWeek(ADateTime)], lDay, s_Month[lMonth], lYear, lHour, lMin, lSec]))
+  else if Format = f_formatB then
+    Result:={$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}( SysUtils.Format('%s, %.2d %s %.4d %.2d:%.2d:%.2d',[s_ShortDayNames[DayOfWeek(ADateTime)], lDay, s_Month[lMonth], lYear, lHour, lMin, lSec]));
+end;
+
+Function DateTimeToGMTRFC822(Const DT:TDateTime):AnsiString;
+Begin
+   Result:=FormatDateTime_English(f_formatB,DateTimeToGMT(DT))+AnsiString(' GMT');
+End;
+
+Function TimeOut(Const MyTime:DWord):Boolean;
+Begin
+   Result:=MyTime<=TimeCounter;
+End;
+
+Function TimeCounter:DWord;
+{$IFNDEF MSWINDOWS}
+Var
+   TV:TTimeval;
+
+Begin
+   fpgettimeofday(@TV,nil);
+   Result:=(TV.tv_sec*1000)+(TV.tv_usec div 1000);
+End;
+(* the following code returns EPOCH
+var
+  T: TTime_T;
+begin
+  __time(@T);
+  Result:=T;
+end;
+//*)
+{$ELSE}
+Var
+   lpSystemTimeAsFileTime:TFileTime;
+   X:Cardinal;
+
+Begin
+   GetSystemTimeAsFileTime(lpSystemTimeAsFileTime);
+   {$WARNINGS OFF}
+   If lpSystemTimeAsFileTime.dwLowDateTime<0 then X:=lpSystemTimeAsFileTime.dwLowDateTime shr 1
+   {$WARNINGS ON}
+   Else X:=lpSystemTimeAsFileTime.dwLowDateTime;
+   Result:=(((lpSystemTimeAsFileTime.dwHighDateTime mod 1000)*1000000)+
+         X div 10000);
+//   Result:=GetTickCount;
+End;
+{$ENDIF}
+
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROMasterServerLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROMasterServerLibrary_Intf.pas
new file mode 100644
index 0000000..4740630
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROMasterServerLibrary_Intf.pas	
@@ -0,0 +1,571 @@
+unit ROMasterServerLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{3B3A1E32-67EF-4541-A26A-73F27A8608BD}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IROSessionManager_IID : TGUID = '{9B77C6B4-F2CA-4CFF-91F5-A194265725CF}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IROSessionManager = interface;
+
+  TROSessionManagerConfiguration = class;
+  TROUserSession = class;
+
+
+  { TROSessionManagerConfiguration }
+  TROSessionManagerConfiguration = class(TROComplexType)
+  private
+    fMaxSessions: Integer;
+    fSessionDuration: Integer;
+    fMessageDuration: Integer;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property MaxSessions:Integer read fMaxSessions write fMaxSessions;
+    property SessionDuration:Integer read fSessionDuration write fSessionDuration;
+    property MessageDuration:Integer read fMessageDuration write fMessageDuration;
+  end;
+
+  { TROSessionManagerConfigurationCollection }
+  TROSessionManagerConfigurationCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TROSessionManagerConfiguration;
+    procedure SetItems(aIndex: integer; const Value: TROSessionManagerConfiguration);
+  public
+    constructor Create; overload;
+    function Add: TROSessionManagerConfiguration; reintroduce;
+    property Items[Index: integer]:TROSessionManagerConfiguration read GetItems write SetItems; default;
+  end;
+
+  { TROUserSession }
+  TROUserSession = class(TROComplexType)
+  private
+    fSessionID: AnsiString;
+    fCreated: DateTime;
+    fLastAccessed: DateTime;
+    fData: Binary;
+    function GetData: Binary;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property SessionID:AnsiString read fSessionID write fSessionID;
+    property Created:DateTime read fCreated write fCreated;
+    property LastAccessed:DateTime read fLastAccessed write fLastAccessed;
+    property Data:Binary read GetData write fData;
+  end;
+
+  { TROUserSessionCollection }
+  TROUserSessionCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TROUserSession;
+    procedure SetItems(aIndex: integer; const Value: TROUserSession);
+  public
+    constructor Create; overload;
+    function Add: TROUserSession; reintroduce;
+    property Items[Index: integer]:TROUserSession read GetItems write SetItems; default;
+  end;
+
+  { IROSessionManager }
+  IROSessionManager = interface
+    ['{9B77C6B4-F2CA-4CFF-91F5-A194265725CF}']
+    function ReadConfiguration: TROSessionManagerConfiguration;
+    procedure UpdateConfiguration(const Configuration: TROSessionManagerConfiguration);
+    function CreateSession(const SessionID: AnsiString; const SessionData: Binary): Boolean;
+    function ReadSession(const SessionID: AnsiString): TROUserSession;
+    procedure UpdateSession(const SessionID: AnsiString; const SessionData: Binary);
+    function DeleteSession(const SessionID: AnsiString): Boolean;
+    procedure ClearSessions(const OnlyExpired: Boolean);
+    function GetSessionCount: Integer;
+    procedure StoreMessage(const SourceSessionID: AnsiString; const MessageData: Binary);
+    function GetMessages(const SessionID: AnsiString; out MessageData: Binary): Integer;
+    function GetTimeout: Integer;
+    procedure SetTimeout(const value: Integer);
+  end;
+
+  { CoROSessionManager }
+  CoROSessionManager = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IROSessionManager;
+  end;
+
+  { TROSessionManager_Proxy }
+  TROSessionManager_Proxy = class(TROProxy, IROSessionManager)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function ReadConfiguration: TROSessionManagerConfiguration;
+    procedure UpdateConfiguration(const Configuration: TROSessionManagerConfiguration);
+    function CreateSession(const SessionID: AnsiString; const SessionData: Binary): Boolean;
+    function ReadSession(const SessionID: AnsiString): TROUserSession;
+    procedure UpdateSession(const SessionID: AnsiString; const SessionData: Binary);
+    function DeleteSession(const SessionID: AnsiString): Boolean;
+    procedure ClearSessions(const OnlyExpired: Boolean);
+    function GetSessionCount: Integer;
+    procedure StoreMessage(const SourceSessionID: AnsiString; const MessageData: Binary);
+    function GetMessages(const SessionID: AnsiString; out MessageData: Binary): Integer;
+    function GetTimeout: Integer;
+    procedure SetTimeout(const value: Integer);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ TROSessionManagerConfiguration }
+
+procedure TROSessionManagerConfiguration.Assign(iSource: TPersistent); 
+var lSource: ROMasterServerLibrary_Intf.TROSessionManagerConfiguration;
+begin
+  inherited Assign(iSource);
+  if (iSource is ROMasterServerLibrary_Intf.TROSessionManagerConfiguration) then begin
+    lSource := ROMasterServerLibrary_Intf.TROSessionManagerConfiguration(iSource);
+    MaxSessions := lSource.MaxSessions;
+    SessionDuration := lSource.SessionDuration;
+    MessageDuration := lSource.MessageDuration;
+  end;
+end;
+
+procedure TROSessionManagerConfiguration.ReadComplex(ASerializer: TObject);
+var
+  l_MaxSessions: Integer;
+  l_MessageDuration: Integer;
+  l_SessionDuration: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_MaxSessions := MaxSessions;
+    TROSerializer(ASerializer).ReadInteger('MaxSessions', otSLong, l_MaxSessions);
+    MaxSessions := l_MaxSessions;
+    l_SessionDuration := SessionDuration;
+    TROSerializer(ASerializer).ReadInteger('SessionDuration', otSLong, l_SessionDuration);
+    SessionDuration := l_SessionDuration;
+    l_MessageDuration := MessageDuration;
+    TROSerializer(ASerializer).ReadInteger('MessageDuration', otSLong, l_MessageDuration);
+    MessageDuration := l_MessageDuration;
+  end
+  else begin
+    l_MaxSessions := MaxSessions;
+    TROSerializer(ASerializer).ReadInteger('MaxSessions', otSLong, l_MaxSessions);
+    MaxSessions := l_MaxSessions;
+    l_MessageDuration := MessageDuration;
+    TROSerializer(ASerializer).ReadInteger('MessageDuration', otSLong, l_MessageDuration);
+    MessageDuration := l_MessageDuration;
+    l_SessionDuration := SessionDuration;
+    TROSerializer(ASerializer).ReadInteger('SessionDuration', otSLong, l_SessionDuration);
+    SessionDuration := l_SessionDuration;
+  end;
+end;
+
+procedure TROSessionManagerConfiguration.WriteComplex(ASerializer: TObject);
+var
+  l_MaxSessions: Integer;
+  l_MessageDuration: Integer;
+  l_SessionDuration: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TROSessionManagerConfiguration);
+    l_MaxSessions := MaxSessions;
+    TROSerializer(ASerializer).WriteInteger('MaxSessions', otSLong, l_MaxSessions);
+    l_SessionDuration := SessionDuration;
+    TROSerializer(ASerializer).WriteInteger('SessionDuration', otSLong, l_SessionDuration);
+    l_MessageDuration := MessageDuration;
+    TROSerializer(ASerializer).WriteInteger('MessageDuration', otSLong, l_MessageDuration);
+  end
+  else begin
+    l_MaxSessions := MaxSessions;
+    TROSerializer(ASerializer).WriteInteger('MaxSessions', otSLong, l_MaxSessions);
+    l_MessageDuration := MessageDuration;
+    TROSerializer(ASerializer).WriteInteger('MessageDuration', otSLong, l_MessageDuration);
+    l_SessionDuration := SessionDuration;
+    TROSerializer(ASerializer).WriteInteger('SessionDuration', otSLong, l_SessionDuration);
+  end;
+end;
+
+{ TROSessionManagerConfigurationCollection }
+constructor TROSessionManagerConfigurationCollection.Create;
+begin
+  inherited Create(TROSessionManagerConfiguration);
+end;
+
+constructor TROSessionManagerConfigurationCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TROSessionManagerConfigurationCollection.Add: TROSessionManagerConfiguration;
+begin
+  result := TROSessionManagerConfiguration(inherited Add);
+end;
+
+function TROSessionManagerConfigurationCollection.GetItems(aIndex: integer): TROSessionManagerConfiguration;
+begin
+  result := TROSessionManagerConfiguration(inherited Items[aIndex]);
+end;
+
+procedure TROSessionManagerConfigurationCollection.SetItems(aIndex: integer; const Value: TROSessionManagerConfiguration);
+begin
+  TROSessionManagerConfiguration(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ TROUserSession }
+
+procedure TROUserSession.Assign(iSource: TPersistent); 
+var lSource: ROMasterServerLibrary_Intf.TROUserSession;
+begin
+  inherited Assign(iSource);
+  if (iSource is ROMasterServerLibrary_Intf.TROUserSession) then begin
+    lSource := ROMasterServerLibrary_Intf.TROUserSession(iSource);
+    SessionID := lSource.SessionID;
+    Created := lSource.Created;
+    LastAccessed := lSource.LastAccessed;
+    if Assigned(Data) then
+
+    Data.Assign(lSource.Data);
+  end;
+end;
+
+function TROUserSession.GetData: Binary;
+begin
+  result := fData;
+end;
+
+procedure TROUserSession.ReadComplex(ASerializer: TObject);
+var
+  l_Created: DateTime;
+  l_Data: Binary;
+  l_LastAccessed: DateTime;
+  l_SessionID: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+    l_Created := Created;
+    TROSerializer(ASerializer).ReadDateTime('Created', l_Created);
+    Created := l_Created;
+    l_LastAccessed := LastAccessed;
+    TROSerializer(ASerializer).ReadDateTime('LastAccessed', l_LastAccessed);
+    LastAccessed := l_LastAccessed;
+    l_Data := Data;
+    TROSerializer(ASerializer).ReadBinary('Data', l_Data);
+    if Data <> l_Data then Data.Free;
+    Data := l_Data;
+  end
+  else begin
+    l_Created := Created;
+    TROSerializer(ASerializer).ReadDateTime('Created', l_Created);
+    Created := l_Created;
+    l_Data := Data;
+    TROSerializer(ASerializer).ReadBinary('Data', l_Data);
+    if Data <> l_Data then Data.Free;
+    Data := l_Data;
+    l_LastAccessed := LastAccessed;
+    TROSerializer(ASerializer).ReadDateTime('LastAccessed', l_LastAccessed);
+    LastAccessed := l_LastAccessed;
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+  end;
+end;
+
+procedure TROUserSession.WriteComplex(ASerializer: TObject);
+var
+  l_Created: DateTime;
+  l_Data: Binary;
+  l_LastAccessed: DateTime;
+  l_SessionID: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TROUserSession);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
+    l_Created := Created;
+    TROSerializer(ASerializer).WriteDateTime('Created', l_Created);
+    l_LastAccessed := LastAccessed;
+    TROSerializer(ASerializer).WriteDateTime('LastAccessed', l_LastAccessed);
+    l_Data := Data;
+    TROSerializer(ASerializer).WriteBinary('Data', l_Data);
+  end
+  else begin
+    l_Created := Created;
+    TROSerializer(ASerializer).WriteDateTime('Created', l_Created);
+    l_Data := Data;
+    TROSerializer(ASerializer).WriteBinary('Data', l_Data);
+    l_LastAccessed := LastAccessed;
+    TROSerializer(ASerializer).WriteDateTime('LastAccessed', l_LastAccessed);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
+  end;
+end;
+
+{ TROUserSessionCollection }
+constructor TROUserSessionCollection.Create;
+begin
+  inherited Create(TROUserSession);
+end;
+
+constructor TROUserSessionCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TROUserSessionCollection.Add: TROUserSession;
+begin
+  result := TROUserSession(inherited Add);
+end;
+
+function TROUserSessionCollection.GetItems(aIndex: integer): TROUserSession;
+begin
+  result := TROUserSession(inherited Items[aIndex]);
+end;
+
+procedure TROUserSessionCollection.SetItems(aIndex: integer; const Value: TROUserSession);
+begin
+  TROUserSession(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoROSessionManager }
+
+class function CoROSessionManager.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IROSessionManager;
+begin
+  result := TROSessionManager_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TROSessionManager_Proxy }
+
+function TROSessionManager_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ROSessionManager';
+end;
+
+function TROSessionManager_Proxy.ReadConfiguration: TROSessionManagerConfiguration;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'ReadConfiguration');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(ROMasterServerLibrary_Intf.TROSessionManagerConfiguration), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TROSessionManager_Proxy.UpdateConfiguration(const Configuration: TROSessionManagerConfiguration);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'UpdateConfiguration');
+    __Message.Write('Configuration', TypeInfo(ROMasterServerLibrary_Intf.TROSessionManagerConfiguration), Configuration, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TROSessionManager_Proxy.CreateSession(const SessionID: AnsiString; const SessionData: Binary): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'CreateSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Write('SessionData', TypeInfo(Binary), SessionData, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TROSessionManager_Proxy.ReadSession(const SessionID: AnsiString): TROUserSession;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'ReadSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(ROMasterServerLibrary_Intf.TROUserSession), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TROSessionManager_Proxy.UpdateSession(const SessionID: AnsiString; const SessionData: Binary);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'UpdateSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Write('SessionData', TypeInfo(Binary), SessionData, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TROSessionManager_Proxy.DeleteSession(const SessionID: AnsiString): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'DeleteSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TROSessionManager_Proxy.ClearSessions(const OnlyExpired: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'ClearSessions');
+    __Message.Write('OnlyExpired', TypeInfo(Boolean), OnlyExpired, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TROSessionManager_Proxy.GetSessionCount: Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'GetSessionCount');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TROSessionManager_Proxy.StoreMessage(const SourceSessionID: AnsiString; const MessageData: Binary);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'StoreMessage');
+    __Message.Write('SourceSessionID', TypeInfo(AnsiString), SourceSessionID, []);
+    __Message.Write('MessageData', TypeInfo(Binary), MessageData, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TROSessionManager_Proxy.GetMessages(const SessionID: AnsiString; out MessageData: Binary): Integer;
+begin
+  try
+    MessageData := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'GetMessages');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+    __Message.Read('MessageData', TypeInfo(Binary), MessageData, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TROSessionManager_Proxy.GetTimeout: Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'GetTimeout');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TROSessionManager_Proxy.SetTimeout(const value: Integer);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROMasterServerLibrary', __InterfaceName, 'SetTimeout');
+    __Message.Write('value', TypeInfo(Integer), value, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TROSessionManagerConfiguration);
+  RegisterROClass(TROUserSession);
+  RegisterProxyClass(IROSessionManager_IID, TROSessionManager_Proxy);
+
+
+finalization
+  UnregisterROClass(TROSessionManagerConfiguration);
+  UnregisterROClass(TROUserSession);
+  UnregisterProxyClass(IROSessionManager_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROOlympia_Intf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROOlympia_Intf.pas
new file mode 100644
index 0000000..7bde3fd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROOlympia_Intf.pas	
@@ -0,0 +1,1315 @@
+unit ROOlympia_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{EBA4557B-CD8A-4434-B34F-1954640CE0A0}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IOlympiaSessionManager_IID : TGUID = '{C7008E94-B6A2-47A0-822C-201C86CE0C8B}';
+  IOlympia_IID : TGUID = '{3F453A86-7FD2-4FE8-B589-7FA6F7DD0C86}';
+
+  { Event ID's }
+  EID_OlympiaEvents = 'OlympiaEvents';
+  EID_OlympiaSessionManagerEvents = 'OlympiaSessionManagerEvents';
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  IOlympiaSessionManager = interface;
+  IOlympia = interface;
+
+  GuidArray = class;
+  BinaryArray = class;
+
+  OlympiaSessionManagerConfiguration = class;
+  OlympiaUserSession = class;
+
+  OlympiaException = class;
+
+  IOlympiaEvents = interface;
+  IOlympiaSessionManagerEvents = interface;
+
+
+  { OlympiaSessionManagerConfiguration }
+  OlympiaSessionManagerConfiguration = class(TROComplexType)
+  private
+    fMaxSessions: Integer;
+    fSessionDuration: Integer;
+    fMessageDuration: Integer;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property MaxSessions:Integer read fMaxSessions write fMaxSessions;
+    property SessionDuration:Integer read fSessionDuration write fSessionDuration;
+    property MessageDuration:Integer read fMessageDuration write fMessageDuration;
+  end;
+
+  { OlympiaSessionManagerConfigurationCollection }
+  OlympiaSessionManagerConfigurationCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): OlympiaSessionManagerConfiguration;
+    procedure SetItems(aIndex: integer; const Value: OlympiaSessionManagerConfiguration);
+  public
+    constructor Create; overload;
+    function Add: OlympiaSessionManagerConfiguration; reintroduce;
+    property Items[Index: integer]:OlympiaSessionManagerConfiguration read GetItems write SetItems; default;
+  end;
+
+  { OlympiaUserSession }
+  OlympiaUserSession = class(TROComplexType)
+  private
+    fSessionID: AnsiString;
+    fCreated: DateTime;
+    fLastAccessed: DateTime;
+    fData: Binary;
+    function GetData: Binary;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property SessionID:AnsiString read fSessionID write fSessionID;
+    property Created:DateTime read fCreated write fCreated;
+    property LastAccessed:DateTime read fLastAccessed write fLastAccessed;
+    property Data:Binary read GetData write fData;
+  end;
+
+  { OlympiaUserSessionCollection }
+  OlympiaUserSessionCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): OlympiaUserSession;
+    procedure SetItems(aIndex: integer; const Value: OlympiaUserSession);
+  public
+    constructor Create; overload;
+    function Add: OlympiaUserSession; reintroduce;
+    property Items[Index: integer]:OlympiaUserSession read GetItems write SetItems; default;
+  end;
+
+  { GuidArray }
+  GuidArray_Guid = array of Guid;
+  GuidArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : GuidArray_Guid;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): Guid;
+    procedure SetItems(aIndex: integer; const Value: Guid);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:Guid): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Guid read GetItems write SetItems; default;
+    property InnerArray: GuidArray_Guid read fItems;
+  end;
+
+  { BinaryArray }
+  BinaryArray_Binary = array of Binary;
+  BinaryArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : BinaryArray_Binary;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): Binary;
+    procedure SetItems(aIndex: integer; const Value: Binary);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: Binary; overload;
+    function Add(const Value: Binary):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Binary read GetItems write SetItems; default;
+    property InnerArray: BinaryArray_Binary read fItems;
+  end;
+
+  { Exceptions }
+  OlympiaException = class(EROException)
+  private
+  public
+  published
+  end;
+
+
+  { IOlympiaSessionManager }
+  IOlympiaSessionManager = interface
+    ['{C7008E94-B6A2-47A0-822C-201C86CE0C8B}']
+    function ReadConfiguration: OlympiaSessionManagerConfiguration;
+    procedure UpdateConfiguration(const Configuration: OlympiaSessionManagerConfiguration);
+    function CreateSession(const SessionID: AnsiString; const ApplicationID: AnsiString; const SessionData: Binary): Boolean;
+    function ReadSession(const SessionID: AnsiString): OlympiaUserSession;
+    function CheckSession(const SessionID: AnsiString): Boolean;
+    procedure UpdateSession(const SessionID: AnsiString; const SessionData: Binary);
+    function DeleteSession(const SessionID: AnsiString): Boolean;
+    procedure ClearSessions(const ApplicationID: AnsiString);
+    function GetSessionCount(const ApplicationID: AnsiString): Integer;
+    function GetAllSessions(const ApplicationID: AnsiString): GuidArray;
+    procedure StoreMessage(const SourceSessionID: AnsiString; const MessageData: Binary);
+    function GetMessages(const SessionID: AnsiString; out MessageData: Binary): Integer;
+    function GetTimeout: Integer;
+    procedure SetTimeout(const value: Integer);
+    procedure RegisterForSessionEvents(const aApplicationID: AnsiString);
+  end;
+
+  { CoOlympiaSessionManager }
+  CoOlympiaSessionManager = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IOlympiaSessionManager;
+  end;
+
+  { TOlympiaSessionManager_Proxy }
+  TOlympiaSessionManager_Proxy = class(TROProxy, IOlympiaSessionManager)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function ReadConfiguration: OlympiaSessionManagerConfiguration;
+    procedure UpdateConfiguration(const Configuration: OlympiaSessionManagerConfiguration);
+    function CreateSession(const SessionID: AnsiString; const ApplicationID: AnsiString; const SessionData: Binary): Boolean;
+    function ReadSession(const SessionID: AnsiString): OlympiaUserSession;
+    function CheckSession(const SessionID: AnsiString): Boolean;
+    procedure UpdateSession(const SessionID: AnsiString; const SessionData: Binary);
+    function DeleteSession(const SessionID: AnsiString): Boolean;
+    procedure ClearSessions(const ApplicationID: AnsiString);
+    function GetSessionCount(const ApplicationID: AnsiString): Integer;
+    function GetAllSessions(const ApplicationID: AnsiString): GuidArray;
+    procedure StoreMessage(const SourceSessionID: AnsiString; const MessageData: Binary);
+    function GetMessages(const SessionID: AnsiString; out MessageData: Binary): Integer;
+    function GetTimeout: Integer;
+    procedure SetTimeout(const value: Integer);
+    procedure RegisterForSessionEvents(const aApplicationID: AnsiString);
+  end;
+
+  { IOlympia }
+  IOlympia = interface(IOlympiaSessionManager)
+    ['{3F453A86-7FD2-4FE8-B589-7FA6F7DD0C86}']
+    procedure StoreMessageEx(const SourceSessionID: AnsiString; const DestinationSessionIDs: GuidArray; const Data: Binary);
+    procedure RemoveEventMessage(const SessionID: AnsiString; const EventID: GuidArray);
+    procedure GetMessagesEx(const SessionID: AnsiString; out EventIDs: GuidArray; out EventData: BinaryArray);
+    procedure RegisterActiveEvents(const SessionIDs: GuidArray);
+    procedure UnregisterActiveEvents(const SessionIDs: GuidArray);
+    procedure Login(const UserName: Widestring; const Password: Widestring);
+    procedure Logout;
+  end;
+
+  { CoOlympia }
+  CoOlympia = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IOlympia;
+  end;
+
+  { TOlympia_Proxy }
+  TOlympia_Proxy = class(TOlympiaSessionManager_Proxy, IOlympia)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure StoreMessageEx(const SourceSessionID: AnsiString; const DestinationSessionIDs: GuidArray; const Data: Binary);
+    procedure RemoveEventMessage(const SessionID: AnsiString; const EventID: GuidArray);
+    procedure GetMessagesEx(const SessionID: AnsiString; out EventIDs: GuidArray; out EventData: BinaryArray);
+    procedure RegisterActiveEvents(const SessionIDs: GuidArray);
+    procedure UnregisterActiveEvents(const SessionIDs: GuidArray);
+    procedure Login(const UserName: Widestring; const Password: Widestring);
+    procedure Logout;
+  end;
+
+  { IOlympiaEvents }
+  IOlympiaEvents = interface
+    ['{72F2E1D6-9FB5-4AE7-AEBE-81AAD18AF8C9}']
+    procedure HaveMessage(const Targets: GuidArray; const EventID: AnsiString; const Data: Binary);
+  end;
+
+  { IOlympiaEvents_Writer }
+  IOlympiaEvents_Writer = interface(IROEventWriter)
+    ['{72F2E1D6-9FB5-4AE7-AEBE-81AAD18AF8C9}']
+    procedure HaveMessage(const __Sender : TGUID; const Targets: GuidArray; const EventID: AnsiString; const Data: Binary);
+  end;
+
+  { IOlympiaSessionManagerEvents }
+  IOlympiaSessionManagerEvents = interface
+    ['{5831850E-752D-4D1A-9685-06E408BB90FF}']
+    procedure SessionsExpired(const aExpiredSessionIDs: GuidArray);
+  end;
+
+  { IOlympiaSessionManagerEvents_Writer }
+  IOlympiaSessionManagerEvents_Writer = interface(IROEventWriter)
+    ['{5831850E-752D-4D1A-9685-06E408BB90FF}']
+    procedure SessionsExpired(const __Sender : TGUID; const aExpiredSessionIDs: GuidArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ GuidArray }
+
+procedure GuidArray.Assign(iSource: TPersistent);
+var lSource:GuidArray;
+    i:integer;
+begin
+  if (iSource is GuidArray) then begin
+    lSource := GuidArray(iSource);
+    Clear();
+
+    Resize(lSource.Count);
+    for i := 0 to lSource.Count-1 do
+      Items[i] := lSource.Items[i];
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function GuidArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Guid);
+end;
+
+class function GuidArray.GetItemSize: integer;
+begin
+  result := SizeOf(Guid);
+end;
+
+function GuidArray.GetItems(aIndex: integer): Guid;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function GuidArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure GuidArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure GuidArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure GuidArray.SetItems(aIndex: integer; const Value: Guid);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure GuidArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function GuidArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure GuidArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function GuidArray.Add(const Value: Guid): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function GuidArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure GuidArray.ReadComplex(ASerializer: TObject);
+var
+  lval: Guid;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadGuid(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure GuidArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteGuid(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ BinaryArray }
+
+procedure BinaryArray.Assign(iSource: TPersistent);
+var lSource:BinaryArray;
+    i:integer;
+    lItem:Binary;
+begin
+  if (iSource is BinaryArray) then begin
+    lSource := BinaryArray(iSource);
+    Clear();
+
+    for i := 0 to lSource.Count-1 do
+      if Assigned(lSource.Items[i]) then begin
+        lItem := Binary(lSource.Items[i].ClassType.Create);
+        lItem.Assign(lSource.Items[i]);
+        Add(lItem);
+      end
+      else begin
+        Add(nil);
+      end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function BinaryArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Binary);
+end;
+
+class function BinaryArray.GetItemClass: TClass;
+begin
+  result := Binary;
+end;
+
+class function BinaryArray.GetItemSize: integer;
+begin
+  result := SizeOf(Binary);
+end;
+
+function BinaryArray.GetItems(aIndex: integer): Binary;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function BinaryArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure BinaryArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure BinaryArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure BinaryArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure BinaryArray.SetItems(aIndex: integer; const Value: Binary);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure BinaryArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := Binary.Create;
+  FCount := ElementCount;
+end;
+
+function BinaryArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure BinaryArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function BinaryArray.Add: Binary;
+begin
+  result := Binary.Create;
+  Add(Result);
+end;
+
+function BinaryArray.Add(const Value:Binary): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure BinaryArray.ReadComplex(ASerializer: TObject);
+var
+  lval: Binary;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadBinary(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure BinaryArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteBinary(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ OlympiaSessionManagerConfiguration }
+
+procedure OlympiaSessionManagerConfiguration.Assign(iSource: TPersistent); 
+var lSource: ROOlympia_Intf.OlympiaSessionManagerConfiguration;
+begin
+  inherited Assign(iSource);
+  if (iSource is ROOlympia_Intf.OlympiaSessionManagerConfiguration) then begin
+    lSource := ROOlympia_Intf.OlympiaSessionManagerConfiguration(iSource);
+    MaxSessions := lSource.MaxSessions;
+    SessionDuration := lSource.SessionDuration;
+    MessageDuration := lSource.MessageDuration;
+  end;
+end;
+
+procedure OlympiaSessionManagerConfiguration.ReadComplex(ASerializer: TObject);
+var
+  l_MaxSessions: Integer;
+  l_MessageDuration: Integer;
+  l_SessionDuration: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_MaxSessions := MaxSessions;
+    TROSerializer(ASerializer).ReadInteger('MaxSessions', otSLong, l_MaxSessions);
+    MaxSessions := l_MaxSessions;
+    l_SessionDuration := SessionDuration;
+    TROSerializer(ASerializer).ReadInteger('SessionDuration', otSLong, l_SessionDuration);
+    SessionDuration := l_SessionDuration;
+    l_MessageDuration := MessageDuration;
+    TROSerializer(ASerializer).ReadInteger('MessageDuration', otSLong, l_MessageDuration);
+    MessageDuration := l_MessageDuration;
+  end
+  else begin
+    l_MaxSessions := MaxSessions;
+    TROSerializer(ASerializer).ReadInteger('MaxSessions', otSLong, l_MaxSessions);
+    MaxSessions := l_MaxSessions;
+    l_MessageDuration := MessageDuration;
+    TROSerializer(ASerializer).ReadInteger('MessageDuration', otSLong, l_MessageDuration);
+    MessageDuration := l_MessageDuration;
+    l_SessionDuration := SessionDuration;
+    TROSerializer(ASerializer).ReadInteger('SessionDuration', otSLong, l_SessionDuration);
+    SessionDuration := l_SessionDuration;
+  end;
+end;
+
+procedure OlympiaSessionManagerConfiguration.WriteComplex(ASerializer: TObject);
+var
+  l_MaxSessions: Integer;
+  l_MessageDuration: Integer;
+  l_SessionDuration: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(OlympiaSessionManagerConfiguration);
+    l_MaxSessions := MaxSessions;
+    TROSerializer(ASerializer).WriteInteger('MaxSessions', otSLong, l_MaxSessions);
+    l_SessionDuration := SessionDuration;
+    TROSerializer(ASerializer).WriteInteger('SessionDuration', otSLong, l_SessionDuration);
+    l_MessageDuration := MessageDuration;
+    TROSerializer(ASerializer).WriteInteger('MessageDuration', otSLong, l_MessageDuration);
+  end
+  else begin
+    l_MaxSessions := MaxSessions;
+    TROSerializer(ASerializer).WriteInteger('MaxSessions', otSLong, l_MaxSessions);
+    l_MessageDuration := MessageDuration;
+    TROSerializer(ASerializer).WriteInteger('MessageDuration', otSLong, l_MessageDuration);
+    l_SessionDuration := SessionDuration;
+    TROSerializer(ASerializer).WriteInteger('SessionDuration', otSLong, l_SessionDuration);
+  end;
+end;
+
+{ OlympiaSessionManagerConfigurationCollection }
+constructor OlympiaSessionManagerConfigurationCollection.Create;
+begin
+  inherited Create(OlympiaSessionManagerConfiguration);
+end;
+
+constructor OlympiaSessionManagerConfigurationCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function OlympiaSessionManagerConfigurationCollection.Add: OlympiaSessionManagerConfiguration;
+begin
+  result := OlympiaSessionManagerConfiguration(inherited Add);
+end;
+
+function OlympiaSessionManagerConfigurationCollection.GetItems(aIndex: integer): OlympiaSessionManagerConfiguration;
+begin
+  result := OlympiaSessionManagerConfiguration(inherited Items[aIndex]);
+end;
+
+procedure OlympiaSessionManagerConfigurationCollection.SetItems(aIndex: integer; const Value: OlympiaSessionManagerConfiguration);
+begin
+  OlympiaSessionManagerConfiguration(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ OlympiaUserSession }
+
+procedure OlympiaUserSession.Assign(iSource: TPersistent); 
+var lSource: ROOlympia_Intf.OlympiaUserSession;
+begin
+  inherited Assign(iSource);
+  if (iSource is ROOlympia_Intf.OlympiaUserSession) then begin
+    lSource := ROOlympia_Intf.OlympiaUserSession(iSource);
+    SessionID := lSource.SessionID;
+    Created := lSource.Created;
+    LastAccessed := lSource.LastAccessed;
+    if Assigned(Data) then
+
+    Data.Assign(lSource.Data);
+  end;
+end;
+
+function OlympiaUserSession.GetData: Binary;
+begin
+  result := fData;
+end;
+
+procedure OlympiaUserSession.ReadComplex(ASerializer: TObject);
+var
+  l_Created: DateTime;
+  l_Data: Binary;
+  l_LastAccessed: DateTime;
+  l_SessionID: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+    l_Created := Created;
+    TROSerializer(ASerializer).ReadDateTime('Created', l_Created);
+    Created := l_Created;
+    l_LastAccessed := LastAccessed;
+    TROSerializer(ASerializer).ReadDateTime('LastAccessed', l_LastAccessed);
+    LastAccessed := l_LastAccessed;
+    l_Data := Data;
+    TROSerializer(ASerializer).ReadBinary('Data', l_Data);
+    if Data <> l_Data then Data.Free;
+    Data := l_Data;
+  end
+  else begin
+    l_Created := Created;
+    TROSerializer(ASerializer).ReadDateTime('Created', l_Created);
+    Created := l_Created;
+    l_Data := Data;
+    TROSerializer(ASerializer).ReadBinary('Data', l_Data);
+    if Data <> l_Data then Data.Free;
+    Data := l_Data;
+    l_LastAccessed := LastAccessed;
+    TROSerializer(ASerializer).ReadDateTime('LastAccessed', l_LastAccessed);
+    LastAccessed := l_LastAccessed;
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+  end;
+end;
+
+procedure OlympiaUserSession.WriteComplex(ASerializer: TObject);
+var
+  l_Created: DateTime;
+  l_Data: Binary;
+  l_LastAccessed: DateTime;
+  l_SessionID: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(OlympiaUserSession);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
+    l_Created := Created;
+    TROSerializer(ASerializer).WriteDateTime('Created', l_Created);
+    l_LastAccessed := LastAccessed;
+    TROSerializer(ASerializer).WriteDateTime('LastAccessed', l_LastAccessed);
+    l_Data := Data;
+    TROSerializer(ASerializer).WriteBinary('Data', l_Data);
+  end
+  else begin
+    l_Created := Created;
+    TROSerializer(ASerializer).WriteDateTime('Created', l_Created);
+    l_Data := Data;
+    TROSerializer(ASerializer).WriteBinary('Data', l_Data);
+    l_LastAccessed := LastAccessed;
+    TROSerializer(ASerializer).WriteDateTime('LastAccessed', l_LastAccessed);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
+  end;
+end;
+
+{ OlympiaUserSessionCollection }
+constructor OlympiaUserSessionCollection.Create;
+begin
+  inherited Create(OlympiaUserSession);
+end;
+
+constructor OlympiaUserSessionCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function OlympiaUserSessionCollection.Add: OlympiaUserSession;
+begin
+  result := OlympiaUserSession(inherited Add);
+end;
+
+function OlympiaUserSessionCollection.GetItems(aIndex: integer): OlympiaUserSession;
+begin
+  result := OlympiaUserSession(inherited Items[aIndex]);
+end;
+
+procedure OlympiaUserSessionCollection.SetItems(aIndex: integer; const Value: OlympiaUserSession);
+begin
+  OlympiaUserSession(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoOlympiaSessionManager }
+
+class function CoOlympiaSessionManager.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IOlympiaSessionManager;
+begin
+  result := TOlympiaSessionManager_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TOlympiaSessionManager_Proxy }
+
+function TOlympiaSessionManager_Proxy.__GetInterfaceName:string;
+begin
+  result := 'OlympiaSessionManager';
+end;
+
+function TOlympiaSessionManager_Proxy.ReadConfiguration: OlympiaSessionManagerConfiguration;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'ReadConfiguration');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(ROOlympia_Intf.OlympiaSessionManagerConfiguration), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympiaSessionManager_Proxy.UpdateConfiguration(const Configuration: OlympiaSessionManagerConfiguration);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'UpdateConfiguration');
+    __Message.Write('Configuration', TypeInfo(ROOlympia_Intf.OlympiaSessionManagerConfiguration), Configuration, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TOlympiaSessionManager_Proxy.CreateSession(const SessionID: AnsiString; const ApplicationID: AnsiString; const SessionData: Binary): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'CreateSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Write('ApplicationID', TypeInfo(AnsiString), ApplicationID, []);
+    __Message.Write('SessionData', TypeInfo(Binary), SessionData, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TOlympiaSessionManager_Proxy.ReadSession(const SessionID: AnsiString): OlympiaUserSession;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'ReadSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(ROOlympia_Intf.OlympiaUserSession), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TOlympiaSessionManager_Proxy.CheckSession(const SessionID: AnsiString): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'CheckSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympiaSessionManager_Proxy.UpdateSession(const SessionID: AnsiString; const SessionData: Binary);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'UpdateSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Write('SessionData', TypeInfo(Binary), SessionData, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TOlympiaSessionManager_Proxy.DeleteSession(const SessionID: AnsiString): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'DeleteSession');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympiaSessionManager_Proxy.ClearSessions(const ApplicationID: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'ClearSessions');
+    __Message.Write('ApplicationID', TypeInfo(AnsiString), ApplicationID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TOlympiaSessionManager_Proxy.GetSessionCount(const ApplicationID: AnsiString): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'GetSessionCount');
+    __Message.Write('ApplicationID', TypeInfo(AnsiString), ApplicationID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TOlympiaSessionManager_Proxy.GetAllSessions(const ApplicationID: AnsiString): GuidArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'GetAllSessions');
+    __Message.Write('ApplicationID', TypeInfo(AnsiString), ApplicationID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(ROOlympia_Intf.GuidArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympiaSessionManager_Proxy.StoreMessage(const SourceSessionID: AnsiString; const MessageData: Binary);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'StoreMessage');
+    __Message.Write('SourceSessionID', TypeInfo(AnsiString), SourceSessionID, []);
+    __Message.Write('MessageData', TypeInfo(Binary), MessageData, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TOlympiaSessionManager_Proxy.GetMessages(const SessionID: AnsiString; out MessageData: Binary): Integer;
+begin
+  try
+    MessageData := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'GetMessages');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+    __Message.Read('MessageData', TypeInfo(Binary), MessageData, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TOlympiaSessionManager_Proxy.GetTimeout: Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'GetTimeout');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympiaSessionManager_Proxy.SetTimeout(const value: Integer);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'SetTimeout');
+    __Message.Write('value', TypeInfo(Integer), value, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympiaSessionManager_Proxy.RegisterForSessionEvents(const aApplicationID: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'RegisterForSessionEvents');
+    __Message.Write('aApplicationID', TypeInfo(AnsiString), aApplicationID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoOlympia }
+
+class function CoOlympia.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IOlympia;
+begin
+  result := TOlympia_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TOlympia_Proxy }
+
+function TOlympia_Proxy.__GetInterfaceName:string;
+begin
+  result := 'Olympia';
+end;
+
+procedure TOlympia_Proxy.StoreMessageEx(const SourceSessionID: AnsiString; const DestinationSessionIDs: GuidArray; const Data: Binary);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'StoreMessageEx');
+    __Message.Write('SourceSessionID', TypeInfo(AnsiString), SourceSessionID, []);
+    __Message.Write('DestinationSessionIDs', TypeInfo(ROOlympia_Intf.GuidArray), DestinationSessionIDs, []);
+    __Message.Write('Data', TypeInfo(Binary), Data, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympia_Proxy.RemoveEventMessage(const SessionID: AnsiString; const EventID: GuidArray);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'RemoveEventMessage');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Write('EventID', TypeInfo(ROOlympia_Intf.GuidArray), EventID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympia_Proxy.GetMessagesEx(const SessionID: AnsiString; out EventIDs: GuidArray; out EventData: BinaryArray);
+begin
+  try
+    EventIDs := nil;
+    EventData := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'GetMessagesEx');
+    __Message.Write('SessionID', TypeInfo(AnsiString), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('EventIDs', TypeInfo(ROOlympia_Intf.GuidArray), EventIDs, []);
+    __Message.Read('EventData', TypeInfo(ROOlympia_Intf.BinaryArray), EventData, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympia_Proxy.RegisterActiveEvents(const SessionIDs: GuidArray);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'RegisterActiveEvents');
+    __Message.Write('SessionIDs', TypeInfo(ROOlympia_Intf.GuidArray), SessionIDs, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympia_Proxy.UnregisterActiveEvents(const SessionIDs: GuidArray);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'UnregisterActiveEvents');
+    __Message.Write('SessionIDs', TypeInfo(ROOlympia_Intf.GuidArray), SessionIDs, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympia_Proxy.Login(const UserName: Widestring; const Password: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'Login');
+    __Message.Write('UserName', TypeInfo(Widestring), UserName, []);
+    __Message.Write('Password', TypeInfo(Widestring), Password, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TOlympia_Proxy.Logout;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ROOlympia', __InterfaceName, 'Logout');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TOlympiaEvents_Writer }
+  TOlympiaEvents_Writer = class(TROEventWriter, IOlympiaEvents_Writer)
+  protected
+    procedure HaveMessage(const __Sender : TGUID; const Targets: GuidArray; const EventID: AnsiString; const Data: Binary);
+  end;
+
+procedure TOlympiaEvents_Writer.HaveMessage(const __Sender : TGUID; const Targets: GuidArray; const EventID: AnsiString; const Data: Binary);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'ROOlympia', EID_OlympiaEvents, 'HaveMessage');
+    __Message.Write('Targets', TypeInfo(GuidArray), Targets, []);
+    __Message.Write('EventID', TypeInfo(AnsiString), EventID, []);
+    __Message.Write('Data', TypeInfo(Binary), Data, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TOlympiaEvents_Invoker }
+  TOlympiaEvents_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_HaveMessage(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TOlympiaEvents_Invoker.Invoke_HaveMessage(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  Targets: GuidArray;
+  EventID: AnsiString;
+  Data: Binary;
+begin
+  Targets := NIL;
+  Data := NIL;
+
+  try
+    __Message.Read('Targets', TypeInfo(GuidArray), Targets, []);
+    __Message.Read('EventID', TypeInfo(AnsiString), EventID, []);
+    __Message.Read('Data', TypeInfo(Binary), Data, []);
+
+    (__Target as IOlympiaEvents).HaveMessage(Targets, EventID, Data);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(Targets);
+      __lObjectDisposer.Add(Data);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+type
+  { TOlympiaSessionManagerEvents_Writer }
+  TOlympiaSessionManagerEvents_Writer = class(TROEventWriter, IOlympiaSessionManagerEvents_Writer)
+  protected
+    procedure SessionsExpired(const __Sender : TGUID; const aExpiredSessionIDs: GuidArray);
+  end;
+
+procedure TOlympiaSessionManagerEvents_Writer.SessionsExpired(const __Sender : TGUID; const aExpiredSessionIDs: GuidArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'ROOlympia', EID_OlympiaSessionManagerEvents, 'SessionsExpired');
+    __Message.Write('aExpiredSessionIDs', TypeInfo(GuidArray), aExpiredSessionIDs, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TOlympiaSessionManagerEvents_Invoker }
+  TOlympiaSessionManagerEvents_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_SessionsExpired(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TOlympiaSessionManagerEvents_Invoker.Invoke_SessionsExpired(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  aExpiredSessionIDs: GuidArray;
+begin
+  aExpiredSessionIDs := NIL;
+
+  try
+    __Message.Read('aExpiredSessionIDs', TypeInfo(GuidArray), aExpiredSessionIDs, []);
+
+    (__Target as IOlympiaSessionManagerEvents).SessionsExpired(aExpiredSessionIDs);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(aExpiredSessionIDs);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(OlympiaSessionManagerConfiguration);
+  RegisterROClass(OlympiaUserSession);
+  RegisterROClass(GuidArray);
+  RegisterROClass(BinaryArray);
+  RegisterExceptionClass(OlympiaException);
+  RegisterProxyClass(IOlympiaSessionManager_IID, TOlympiaSessionManager_Proxy);
+  RegisterProxyClass(IOlympia_IID, TOlympia_Proxy);
+
+  RegisterEventWriterClass(IOlympiaEvents_Writer, TOlympiaEvents_Writer);
+  RegisterEventInvokerClass(EID_OlympiaEvents, TOlympiaEvents_Invoker);
+  RegisterEventWriterClass(IOlympiaSessionManagerEvents_Writer, TOlympiaSessionManagerEvents_Writer);
+  RegisterEventInvokerClass(EID_OlympiaSessionManagerEvents, TOlympiaSessionManagerEvents_Invoker);
+
+finalization
+  UnregisterROClass(OlympiaSessionManagerConfiguration);
+  UnregisterROClass(OlympiaUserSession);
+  UnregisterROClass(GuidArray);
+  UnregisterROClass(BinaryArray);
+  UnregisterExceptionClass(OlympiaException);
+  UnregisterProxyClass(IOlympiaSessionManager_IID);
+  UnregisterProxyClass(IOlympia_IID);
+
+  UnregisterEventWriterClass(IOlympiaEvents_Writer);
+  UnregisterEventInvokerClass(EID_OlympiaEvents);
+  UnregisterEventWriterClass(IOlympiaSessionManagerEvents_Writer);
+  UnregisterEventInvokerClass(EID_OlympiaSessionManagerEvents);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROServiceDiscovery.RODL b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROServiceDiscovery.RODL
new file mode 100644
index 0000000..39ed565
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ROServiceDiscovery.RODL	
@@ -0,0 +1,35 @@
+<Library Name="ROServerDiscovery" UID="{943975A3-664A-4F07-AD0F-7357744276BF}" Version="3.0">
+<Services>
+<Service Name="IROServerDiscoveryService">
+<Interfaces>
+<Interface Name="Default" UID="{D0F69433-544B-4003-946F-AD35046169B0}">
+<Operations>
+<Operation Name="FindService" UID="{F3CBA367-1C02-4BAE-AEC3-ECD092090883}" ForceAsyncResponse="1">
+<Parameters>
+<Parameter Name="Result" DataType="String" Flag="Result">
+</Parameter>
+<Parameter Name="iName" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="ioServerOptions" DataType="TRODiscoveryOptions" Flag="InOut" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="TRODiscoveryOptions" UID="{F9C17F81-F8C2-4890-A282-AF6DF0E38462}" AutoCreateParams="1">
+<Documentation>
+<![CDATA[Use this base class to define custom Option strcuts that you can pass back from your Server Discovery calls]]>
+</Documentation>
+<Elements>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects.inc
new file mode 100644
index 0000000..bbc33e5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects.inc	
@@ -0,0 +1,151 @@
+{$INCLUDE eDefines.inc}
+
+{ Define to check for RemObjects SDK 3.0 [vs. future versions] }
+{.$DEFINE ROSDK4}
+{$DEFINE ROSDK5}
+
+{ Define to check for RemObjects SDK 3.0 and above [vs. older versions] }
+{$DEFINE ROSDK3UP}
+{$DEFINE ROSDK4UP}
+{$DEFINE ROSDK5UP}
+
+{ DXSock }
+
+    { To use RemObjects with the standalone version of DXSock, simply remove the
+      define below. Note that this has only been tested with DXSock 3.0, and that
+      doing so requires a separate license for DXSock from Brain PatchWorks
+      see http://www.bpdx.com for more information }
+
+    {$DEFINE RemObjects_USE_RODX}
+
+{ Internet Component Suite (ICS) }
+    { Internet Component Suite - http://www.overbyte.be }
+    
+    {$DEFINE RemObjects_ICS_v5}
+    {.$DEFINE RemObjects_ICS_v6}
+
+{ Indy }
+
+   { If you are using Indy 10.2.3 or the latest just uncomment the
+     RemObjects_INDY10C DEFINE right below, and remove the Indy
+     package references from the Requires section of RemObjects_Indy_Dx.dpk
+     before re-compiling your RemObjects Indy package. }
+
+  {.$DEFINE RemObjects_INDY10C}
+  {$IFDEF RemObjects_INDY10C}
+    {$DEFINE RemObjects_INDY10}  
+    {$DEFINE RemObjects_INDY10B}
+    {$DEFINE RemObjects_GLOBAL_INDY_DEFINE}
+  {$ENDIF}
+
+   { If you are using latest Indy 10 in Delphi 6 or 7, just uncomment the 
+     RemObjects_INDY10_in_Delphi67 DEFINE right below, and remove the Indy 
+     package references from the Requires section of RemObjects_Indy_Dx.dpk 
+     before re-compiling your RemObjects Indy package. }
+
+  {.$DEFINE RemObjects_INDY10_in_Delphi67}
+  {$IFDEF RemObjects_INDY10_in_Delphi67}
+    {$DEFINE RemObjects_INDY10}  
+    {$DEFINE RemObjects_INDY10B}  
+    {$DEFINE RemObjects_GLOBAL_INDY_DEFINE}
+  {$ENDIF}
+
+  {$IFNDEF RemObjects_GLOBAL_INDY_DEFINE}
+
+    {$UNDEF RemObjects_INDY8}
+    {$UNDEF RemObjects_INDY9}
+    {$UNDEF RemObjects_INDY10}
+
+    {$IFDEF FPC}
+    	{$DEFINE RemObjects_INDY10}
+    	{$DEFINE RemObjects_INDY10B}
+      {$DEFINE RemObjects_INDY10C}
+    {$ELSE}
+      {$IFDEF DELPHI12UP}
+        {$DEFINE RemObjects_INDY10}
+        {$DEFINE RemObjects_INDY10B}
+        {$DEFINE RemObjects_INDY10C}
+      {$ELSE}
+        {$IFDEF DELPHI10UP}
+          {$DEFINE RemObjects_INDY10}
+          {$DEFINE RemObjects_INDY10B}
+        {$ELSE}
+          {$IFDEF DELPHI9UP}
+            {$DEFINE RemObjects_INDY10}
+            {$DEFINE RemObjects_INDY10A}
+          {$ELSE}
+            {$IFDEF DELPHI7UP}
+              {$DEFINE RemObjects_INDY9}
+            {$ELSE}
+              {$DEFINE RemObjects_INDY8}
+            {$ENDIF}
+          {$ENDIF}
+        {$ENDIF}          
+      {$ENDIF}
+
+      {$IFDEF KYLIX}
+        {$IFDEF KYLIX3UP}
+          {$DEFINE RemObjects_INDY9}
+        {$ELSE}
+          {$DEFINE RemObjects_INDY8}
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+
+    { If you are using Indy 9 in Delphi 6 just uncomment the Indy9 DEFINE below,
+      and remove the Indy package references from the Requires section of
+      RemObjects_Indy_D6.dpk before compiling your RemObjects Indy package. }
+
+    {.$DEFINE RemObjects_INDY9}
+
+    {$IFDEF RemObjects_INDY9}
+      {$UNDEF RemObjects_INDY8}
+    {$ENDIF}
+
+  {$ENDIF}
+
+    { If you are using a newer version of Indy that properly works at designtime,
+      you can set define the define below. If the define is not set (as is the
+      default), Indy channels cannot be used to connect at designtime, trying so
+      will display a warning message.
+
+      If you enable this define and receive an Access Violation when trying to
+      connect at designtime, then your Indy version does not yet include the
+      fix for this problem. Please contact the Indy Crew for details.
+
+      This problem applies to the Delphi Windows IDE's only; Kylix is not affected. }
+
+    {.$DEFINE RemObjects_INDY_DESIGNTIME_FIX}
+
+{ Thread Names in Debugger }
+
+    {$IFDEF DELPHI7UP}
+      {$DEFINE RemObjects_SetThreadName}
+    {$ENDIF}
+
+{ XML }
+
+    {$IFDEF MSWINDOWS}
+      {$DEFINE RemObjects_MSXML}
+    {$ELSE}
+      {$DEFINE RemObjects_OpenXML}
+    {$ENDIF}
+
+    { if we someone manually defined RemObjects_OpenXML, then undef RemObjects_MSXML }
+    {$IFDEF RemObjects_OpenXML}
+      {$UNDEF RemObjects_MSXML}
+    {$ENDIF}
+
+{ Encryption }
+
+    {$IFDEF MSWINDOWS}
+      {$DEFINE RemObjects_UseEncryption }
+    {$ENDIF MSWINDOWS}
+
+    {$IFDEF FPC}
+      {$MODE DELPHI}
+      {$UNDEF RemObjects_UseEncryption}
+      {$DEFINE RemObjects_OpenXML}
+      {$UNDEF RemObjects_MSXML}
+    {$ENDIF}
+ {$Q-,B-,R-}
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.bdsproj
new file mode 100644
index 0000000..437e515
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.bdsproj	
@@ -0,0 +1,181 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{ADCC1E83-6977-48E1-B7B7-21A9890C8C6F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_BPDX_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">0</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects SDK - BPDX Library</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String"></Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">4</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">404</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+	<ModelSupport>False</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.cfg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.cfg
new file mode 100644
index 0000000..b1c5a4f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.cfg	
@@ -0,0 +1,52 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\Dcu\D10"
+-LE"..\Dcu\D10"
+-LN"..\Dcu\D10"
+-U"..\Dcu\D10"
+-O"..\Dcu\D10"
+-I"..\Dcu\D10"
+-R"..\Dcu\D10"
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.dpk
new file mode 100644
index 0000000..0134bf6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.dpk	
@@ -0,0 +1,40 @@
+package RemObjects_BPDX_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - BPDX Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  designide,
+  RemObjects_Core_D10,
+  RemObjects_RODX_D10;
+
+contains
+  uROBPDXHTTPServer in 'uROBPDXHTTPServer.pas',
+  uROBPDXTCPServer in 'uROBPDXTCPServer.pas',
+  RemObjects_BPDX_Reg in 'RemObjects_BPDX_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.res
new file mode 100644
index 0000000..fe0f936
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D10.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.dpk
new file mode 100644
index 0000000..97e78a3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.dpk	
@@ -0,0 +1,41 @@
+package RemObjects_BPDX_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - BPDX Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  designide,
+  RemObjects_Core_D11,
+  RemObjects_RODX_D11;
+
+contains
+  uROBPDXHTTPServer in 'uROBPDXHTTPServer.pas',
+  uROBPDXTCPServer in 'uROBPDXTCPServer.pas',
+  RemObjects_BPDX_Reg in 'RemObjects_BPDX_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.dproj
new file mode 100644
index 0000000..ae90ec0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.dproj	
@@ -0,0 +1,559 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e83cd92a-d359-4246-b0d2-a93d5f176eba}</ProjectGuid>
+    <MainSource>RemObjects_BPDX_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\RemObjects_BPDX_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects SDK - BPDX Library</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemObjects_BPDX_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_BPDX_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="designide.dcp" />
+    <DCCReference Include="RemObjects_BPDX_Reg.pas" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="RemObjects_RODX_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uROBPDXHTTPServer.pas" />
+    <DCCReference Include="uROBPDXTCPServer.pas" />
+    <DCCReference Include="vcl.dcp" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.dpk
new file mode 100644
index 0000000..6e49a31
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.dpk	
@@ -0,0 +1,40 @@
+package RemObjects_BPDX_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - BPDX Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  designide,
+  RemObjects_Core_D12,
+  RemObjects_RODX_D12;
+
+contains
+  uROBPDXHTTPServer in 'uROBPDXHTTPServer.pas',
+  uROBPDXTCPServer in 'uROBPDXTCPServer.pas',
+  RemObjects_BPDX_Reg in 'RemObjects_BPDX_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.dproj
new file mode 100644
index 0000000..f2a3611
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.dproj	
@@ -0,0 +1,99 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{e83cd92a-d359-4246-b0d2-a93d5f176eba}</ProjectGuid>
+			<MainSource>RemObjects_BPDX_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_BPDX_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+			<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_BPDX_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects SDK - BPDX Library</DCC_Description>
+			<DCC_UnitSearchPath>..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_BPDX_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="RemObjects_RODX_D12.dcp"/>
+			<DCCReference Include="uROBPDXHTTPServer.pas"/>
+			<DCCReference Include="uROBPDXTCPServer.pas"/>
+			<DCCReference Include="RemObjects_BPDX_Reg.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_BPDX_D12.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D12.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.dof
new file mode 100644
index 0000000..5281b65
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.dof	
@@ -0,0 +1,94 @@
+[Compiler]
+A=1
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - BPDX Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D5
+PackageDLLOutputDir=..\Dcu\D5
+PackageDCPOutputDir=..\Dcu\D5
+SearchPath=..\Dcu\D5
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+[Language]
+ActiveLang=
+ProjectLang=$00000409
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=s:\exe\dcu50
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=l:\Packages
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=l:\Packages
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.dpk
new file mode 100644
index 0000000..7a5622e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.dpk	
@@ -0,0 +1,39 @@
+package RemObjects_BPDX_D5;
+
+{$R *.res}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - BPDX Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  RemObjects_Core_D5,
+  RemObjects_RODX_D5;
+
+{%File 'RemObjects.inc'}
+
+contains
+  RemObjects_BPDX_Reg in 'RemObjects_BPDX_Reg.pas',
+  uROBPDXTCPServer in 'uROBPDXTCPServer.pas',
+  uROBPDXHTTPServer in 'uROBPDXHTTPServer.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.res
new file mode 100644
index 0000000..a2de886
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D5.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.dof
new file mode 100644
index 0000000..53b983a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.dof	
@@ -0,0 +1,95 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - BPDX Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=..\Dcu\D6
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\Program Files\Developer Express Inc\ExpressLayout Control\Delphi 6\Lib\dcldxLayoutControlD6.bpl=ExpressLayout Control by Developer Express Inc.
+C:\Program Files\Borland\Delphi6\Projects\BPL\SAX_D60.BPL=SAX for Pascal Design Package
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\Xdom_2_3Delphi6.bpl=Extended Document Object Model (XDOM)
+C:\Program Files\Borland\Delphi6\Projects\BPL\SAXMS_D60.BPL=MSXML Vendor Design Package for SAX by Keith Wood
+C:\Program Files\Developer Express Inc\ExpressLayout Control\Delphi 6\Lib\dxLayoutControldxEditAdaptersD6.bpl=ExpressLayoutControl Adapters for ExpressEditors Library by Developer Express Inc.
+[HistoryLists\hlConditionals]
+Count=1
+Item0=Development
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.dpk
new file mode 100644
index 0000000..80945c2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.dpk	
@@ -0,0 +1,38 @@
+package RemObjects_BPDX_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - BPDX Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  RemObjects_Core_D6,
+  RemObjects_RODX_D6;
+
+contains
+  uROBPDXHTTPServer in 'uROBPDXHTTPServer.pas',
+  uROBPDXTCPServer in 'uROBPDXTCPServer.pas',
+  RemObjects_BPDX_Reg in 'RemObjects_BPDX_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.res
new file mode 100644
index 0000000..940698e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D6.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.dof
new file mode 100644
index 0000000..9766921
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.dof	
@@ -0,0 +1,149 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - BPDX Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=..\Dcu\D7
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=258
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.258
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+[Excluded Packages]
+R:\Data Abstract\Dcu\D7\DataAbstract_Core_D7.bpl=Data Abstract - Core Library
+R:\Data Abstract\Dcu\D7\DataAbstract_DBXDriver_D7.bpl=Data Abstract - dbExpress Driver
+R:\Data Abstract\Dcu\D7\DataAbstract_ADODriver_D7.bpl=Data Abstract - ADOExpress/dbGo Driver
+R:\Data Abstract\Dcu\D7\DataAbstract_IBXDriver_D7.bpl=Data Abstract - InterBase Express Driver
+l:\Packages\RO_ServiceTesterDesigntime_D7.bpl=(untitled)
+L:\Packages\eBrazil_70.bpl=elitedevelopments Library - Brazil - FOR INTERNAL USE ONLY
+L:\Packages\eBrazilComponents_70.bpl=elitedevelopments Library - Brazil Components - FOR INTERNAL USE ONLY
+L:\Packages\eBrazilContentEditor_70.bpl=elitedevelopments Library - Brazil Content Editor 2.0 - FOR INTERNAL USE ONLY
+R:\NexusDB Pack\Dcu\D7\RemObjects_NexusDB_IDE_D7.bpl=(untitled)
+R:\Data Abstract\Dcu\D7\DataAbstract_IDE_D7.bpl=Data Abstract - IDE Package
+R:\Hydra\Dcu\D7\Hydra_RO_IDE_D7.bpl=RemObjects' Hydra - RemObjects SDK IDE Integration
+R:\Hydra\Dcu\D7\Hydra_RO_D7.bpl=RemObjects' Hydra - RemObjects SDK Integration Library
+C:\Program Files\Borland\Delphi7\Projects\Bpl\NexusDB103dv70.bpl=NexusDB 1.03 - designtime - VCL70
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.dpk
new file mode 100644
index 0000000..37e7ff1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.dpk	
@@ -0,0 +1,39 @@
+package RemObjects_BPDX_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - BPDX Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  RemObjects_Core_D7,
+  RemObjects_RODX_D7;
+
+contains
+  uROBPDXHTTPServer in 'uROBPDXHTTPServer.pas',
+  uROBPDXTCPServer in 'uROBPDXTCPServer.pas',
+  RemObjects_BPDX_Reg in 'RemObjects_BPDX_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_D7.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Glyphs.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Glyphs.lrs
new file mode 100644
index 0000000..1364243
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Glyphs.lrs	
@@ -0,0 +1,226 @@
+LazarusResources.Add('TROBPDXHTTPSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'HJK'#196#189
+  +#194#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{'#169'~H'
+  +#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189'H'#22#166'%'#26
+  +#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0'HJK'#198#193#198#194
+  +#189#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{{{{\'#191'Ux'#219
+  +'|'#165#241#165#165#241#165'u'#218'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255
+  +#135#22't~'#2#2#129#0#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#227#226#230'HJK{{{{{{{{{BqCh'#207'h'#129#221#130#129#221#130'e'
+  +#206'fD'#186'E'#28#163'#:'#151#26#217#146'#'#255#132#18'R~'#2#2#129#0#255#0
+  +#255'HJK'#206#202#206#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'H'
+  +'JK{{{{{{{{{{{{F'#134'FV'#197'WV'#197'WI'#188'I2'#172'3'#12#153#22'#'#139#12
+  +#206#139#24#255'~'#10#255'~'#10#255#0#255#255#0#255'HJK'#212#208#212#207#202
+  +#207#203#197#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134
+  +#134#134#134#146#146#146'{{{BqC.q0%'#168')'#26#152#23#6#139#8'`'#137#14#244
+  +#132#16#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#217#213#216#212#208#212
+  +#207#202#207#203#197#202'HJK'#237#237#239'HJK{{{{{{{{{ooo'#134#134#134#134
+  +#134#134#167#167#167'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJK'#222#218#221#217#213#217#233#231#234#207
+  +#202#207'HJK'#238#237#240'HJK'#140#140#140#140#140#140#146#146#146'{{{{{{{{{'
+  +#143#143#143'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'HJK'#227#224#227#238#237#238#156#154#156#211#207#211'HJ'
+  +'K'#237#237#239'HJKTVWcddnnn'#140#140#140#140#140#140#140#140#140#166#166#166
+  +'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'HJK'#231#230#231#144#144#146#158#157#158#216#212#216'HJK'#206#207
+  +#208#207#207#207#134#135#135'ceeNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#237
+  +#235#237#146#146#147#227#224#226#255#255#255#176#176#178'QRSUVWuvw'#169#170
+  +#170#211#211#212#189#189#191''#128#129'[\]JLMHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#240#240#242#237
+  +#235#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191#151#149
+  +#152'onrXYZNPQhij'#147#149#150#208#209#209'HJK'#255#0#255#0#0#0#0#0#0#255#0
+  +#255#255#0#255#0#0#0#255#0#255#0#0#0'HJK'#246#246#246#255#255#255#238#238#240
+  +#242#242#244#238#237#239#229#227#231#217#215#218#203#199#204#189#183#189#173
+  +#167#173#153#145#151#153#145#151'zsuHJK'#255#0#255#255#0#255#0#0#0#255#0#255
+  +#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0'HJK'#255#255#255#237#237#239#248#248
+  +#250#251#251#252#246#244#247#234#234#237#221#220#224#207#204#208#192#187#193
+  +#176#170#176#160#152#158'HJKHJK'#255#0#255#255#0#255#255#0#255#0#0#0#255#0
+  ,#255#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255'HJKHJK'#233#233#234
+  +#252#252#252#246#246#247#235#234#238#222#220#224#208#204#208#193#187#193'HJK'
+  +'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0
+  +#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKH'
+  +'JKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#0#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROBPDXTCPSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#128'PK@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#242#216
+  +#177#240#212#171#239#209#165#238#206#158#238#202#152#237#199#146#235#197#142
+  +#235#196#137#234#193#134#233#191#130#128'PK@'#0#192#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'@'#0#192'@@@'#231#183'y'#230#181'u'#230#180'r'#230#177
+  +'n'#229#176'k'#227#173'h'#227#172'e'#226#170'b'#226#169'^'#234#194#135#128'P'
+  +'K@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#246#226#197#243#222
+  +#189#243#218#182#183#180#164#7'9z'#182#175#154#238#206#157#238#202#151#235
+  +#199#145#235#197#140#128'PK@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +'@@@'#234#188#132#233#187#128#176#157'{'#7'9z'#9'b'#208#7'9z'#173#150'o'#229
+  +#173'j'#227#172'g'#237#201#147#128'PK@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#248#235#215#188#192#191#7'9z'#15'j'#211#17't'#234#9'b'#208
+  +#7'9z'#182#177#158#239#208#160#238#204#154#128'PK@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#171#144't'#7'9z'#25'x'#216'6'#150#240'('#138#238
+  +#27''#235#12'e'#209#7'9z'#183#177#160#239#209#163#128'PK@'#0#192#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'@'#0#192'@@@'#7'9z'#7'9z'#7'9z@'#157#242'@'
+  +#157#242'5'#150#239#7'9z'#7'9z'#7'9z'#242#213#172#128'PK@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192#252#251#246#227#173'y'#128#196'w'#7'9z@'#157#242'@'#157#242'@'
+  +#157#242#7'9z'#246#225#196#244#222#189#242#218#182#128'PKHJK'#196#189#194#192
+  +#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{{{{'#209#146'm'
+  +#255#254#251#227#175'}'#226#173'{'#7'9z'#7'9z'#7'9z'#7'9z'#7'9z'#233#188#130
+  +#231#187#128#244#224#192#128'PKHJK'#198#193#198#194#189#194#192#186#192#189
+  +#183#189'HJK'#222#221#225'HJK{{{{{{{{{'#218#157'u'#255#255#255#254#254#252
+  +#254#251#250#254#250#244#252#247#239#251#244#233#251#242#227#250#239#221#248
+  +#235#215#247#231#207#246#227#201#128'PKHJK'#203#197#203#198#192#198#194#188
+  +#194#192#186#192'HJK'#227#226#230'HJK{{{{{{{{{'#218#157'u'#255#255#255#227
+  +#177#129#227#177#128#227#176''#226#173'}'#227#173'y'#225#171'x'#225#170'u'
+  +#225#169'r'#224#166'n'#247#233#211#128'PKHJK'#206#202#206#202#197#202#198#193
+  +#198#196#188#196'HJK'#231#230#234'HJK{{{{{{{{{'#231#171'y'#255#255#255#227
+  +#177#129#227#177#129#227#177#129#227#176''#227#175'}'#226#173'{'#226#172'x'
+  +#225#170'v'#225#169'r'#248#237#220#128'PKHJK'#212#208#212#207#202#207#203#197
+  +#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134#134#134#134
+  +#231#171'y'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#254#252#255#252#250#254#250#244#252#247#240#251#244#234#251#242#229#128'PKH'
+  +'JK'#217#213#216#212#208#212#207#202#207#203#197#202'HJK'#237#237#239'HJK{{{'
+  +'{{{{{{'#231#171'y'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'
+  +#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#128'PKHJK'
+  +#222#218#221#217#213#217#233#231#234#207#202#207'HJK'#238#237#240'HJK'#140
+  +#140#140#140#140#140#146#146#146'{{{{{{{{{'#143#143#143'HJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#227#224
+  +#227#238#237#238#156#154#156#211#207#211'HJK'#237#237#239'HJKTVWcddnnn'#140
+  +#140#140#140#140#140#140#140#140#166#166#166'HJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#231#230#231#144
+  +#144#146#158#157#158#216#212#216'HJK'#206#207#208#207#207#207#134#135#135'ce'
+  +'eNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'HJK'#237#235#237#146#146#147#227#224#226
+  +#255#255#255#176#176#178'QRSUVWuvw'#169#170#170#211#211#212#189#189#191''
+  +#128#129'[\]JLMHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'HJK'#240#240#242#237#235#237#255#255#255#233#233#235
+  +#226#225#229#220#217#221#191#187#191#151#149#152'onrXYZNPQhij'#147#149#150
+  +#208#209#209'HJK'#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#0
+  +#0#0'HJK'#246#246#246#255#255#255#238#238#240#242#242#244#238#237#239#229#227
+  +#231#217#215#218#203#199#204#189#183#189#173#167#173#153#145#151#153#145#151
+  +'zsuHJK'#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255
+  ,#0#0#0'HJK'#255#255#255#237#237#239#248#248#250#251#251#252#246#244#247#234
+  +#234#237#221#220#224#207#204#208#192#187#193#176#170#176#160#152#158'HJKHJK'
+  +#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#0#0
+  +#0#255#0#255#255#0#255'HJKHJK'#233#233#234#252#252#252#246#246#247#235#234
+  +#238#222#220#224#208#204#208#193#187#193'HJKHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0
+  +#0#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255#255
+  +#0#255#0#0#0#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROBPDXSPACE','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#194#30#0#0#194#30#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255
+  +#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255#128#128#128#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255
+  +#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255#128#128#128#255#0
+  +#255#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#255#0
+  +#255#0#0#0#255#0#255#255#0#255#255#255#255#128#128#128#255#0#255#0#0#0#255#0
+  +#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0
+  +#255#0#255#255#0#255#255#255#255#128#128#128#255#0#255#0#0#0#255#0#255#255#0
+  +#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255
+  +#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#0
+  +#0#0#255#255#255#128#128#128#255#0#255#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255
+  +#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#255#0
+  +#255#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#255#255#128#128
+  +#128#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255
+  +#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0
+  +#255#255#0#255#0#0#0#255#0#255#0#0#0#255#255#255#128#128#128#255#0#255#0#0#0
+  +#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#255#0
+  +#255#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#0#0
+  +#0#255#0#255#255#0#255#255#255#255#128#128#128#255#0#255#0#0#0#0#0#0#0#0#0
+  +#255#0#255#255#0#255#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0#0#0#0
+  +#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255
+  +#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#255#255#128#128#128#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255#128#128
+  +#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255#128#128#128#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255#128
+  +#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#255#255#128#128#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Mac.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Mac.lpk
new file mode 100644
index 0000000..e72a557
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Mac.lpk	
@@ -0,0 +1,53 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="RemObjects_BPDX_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="$(LazarusDir)/lcl/units/$(TargetCPU)-$(TargetOS)/;RODX/"/>
+        <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - BPDX Library
+"/>
+    <Files Count="3">
+      <Item1>
+        <Filename Value="RemObjects_BPDX_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_BPDX_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uROBPDXHTTPServer.pas"/>
+        <UnitName Value="uROBPDXHTTPServer"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uROBPDXTCPServer.pas"/>
+        <UnitName Value="uROBPDXTCPServer"/>
+      </Item3>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="3">
+      <Item1>
+        <PackageName Value="RemObjects_RODX_Lazarus_Mac"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Mac"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item3>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)/"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Unix.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Unix.lpk
new file mode 100644
index 0000000..6c19738
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Unix.lpk	
@@ -0,0 +1,53 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="RemObjects_BPDX_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="$(LazarusDir)/lcl/units/$(TargetCPU)-$(TargetOS)/;RODX/"/>
+        <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - BPDX Library
+"/>
+    <Files Count="3">
+      <Item1>
+        <Filename Value="RemObjects_BPDX_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_BPDX_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uROBPDXHTTPServer.pas"/>
+        <UnitName Value="uROBPDXHTTPServer"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uROBPDXTCPServer.pas"/>
+        <UnitName Value="uROBPDXTCPServer"/>
+      </Item3>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="3">
+      <Item1>
+        <PackageName Value="RemObjects_RODX_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Unix"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item3>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)/"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Windows.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Windows.lpk
new file mode 100644
index 0000000..3190e60
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Lazarus_Windows.lpk	
@@ -0,0 +1,53 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_BPDX_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="RODX\"/>
+        <UnitOutputDirectory Value="..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="3">
+      <Item1>
+        <Filename Value="RemObjects_BPDX_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_BPDX_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uROBPDXHTTPServer.pas"/>
+        <UnitName Value="uROBPDXHTTPServer"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uROBPDXTCPServer.pas"/>
+        <UnitName Value="uROBPDXTCPServer"/>
+      </Item3>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="3">
+      <Item1>
+        <PackageName Value="RemObjects_RODX_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item3>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Reg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Reg.pas
new file mode 100644
index 0000000..9d7a4c4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_Reg.pas	
@@ -0,0 +1,51 @@
+unit RemObjects_BPDX_Reg;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses {$IFDEF FPC} LResources, {$ENDIF}
+     uRORes, Classes, uROClasses,
+     {$IFDEF BDS}DesignIntf,{$ENDIF}
+     {$IFDEF REMOBJECTS_DEPRECATED_BPDX_CLIENTS}
+     uROBPDXTCPChannel, uROBPDXHTTPChannel,
+     {$ENDIF REMOBJECTS_DEPRECATED_BPDX_CLIENTS}
+     uROBPDXHTTPServer, uROBPDXTCPServer;
+
+{$IFNDEF FPC}
+  {$R RemObjects_Bpdx_Glyphs.res}
+{$ENDIF FPC}
+
+procedure Register;
+begin
+  {$IFDEF BDS}
+  ForceDemandLoadState(dlDisable);
+  {$ENDIF}
+  RegisterComponents(str_ProductName,
+    [{$IFDEF REMOBJECTS_DEPRECATED_BPDX_CLIENTS}
+     TROBPDXTCPChannel, TROBPDXHTTPChannel,
+     {$ENDIF REMOBJECTS_DEPRECATED_BPDX_CLIENTS}
+     TROBPDXTCPServer, TROBPDXHTTPServer]);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I RemObjects_BPDX_Glyphs.lrs}
+{$ENDIF FPC}  
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.dpk
new file mode 100644
index 0000000..4bd16b4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.dpk	
@@ -0,0 +1,40 @@
+package RemObjects_BPDX_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - BPDX Library'}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  designide,
+  RemObjects_Core_D14,
+  RemObjects_RODX_D14;
+
+contains
+  uROBPDXHTTPServer in 'uROBPDXHTTPServer.pas',
+  uROBPDXTCPServer in 'uROBPDXTCPServer.pas',
+  RemObjects_BPDX_Reg in 'RemObjects_BPDX_Reg.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.dproj
new file mode 100644
index 0000000..b91dfb5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.dproj	
@@ -0,0 +1,106 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{e83cd92a-d359-4246-b0d2-a93d5f176eba}</ProjectGuid>
+			<MainSource>RemObjects_BPDX_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_BPDX_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+			<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D14\RemObjects_BPDX_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_Description>RemObjects SDK - BPDX Library</DCC_Description>
+			<DCC_UnitSearchPath>..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_BPDX_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="RemObjects_Core_D13.dcp"/>
+			<DCCReference Include="RemObjects_RODX_D13.dcp"/>
+			<DCCReference Include="uROBPDXHTTPServer.pas"/>
+			<DCCReference Include="uROBPDXTCPServer.pas"/>
+			<DCCReference Include="RemObjects_BPDX_Reg.pas"/>
+			<DCCReference Include="RemObjects_RODX_D1.dcp"/>
+			<DCCReference Include="RemObjects_RODX_D12.dcp"/>
+			<DCCReference Include="RemObjects_Core_D1.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_BPDX_D14.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+					<isVersionControl>
+						<isVersionControl Name="isVersionControlID"/>
+					</isVersionControl>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_BPDX_d14.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Bpdx_Glyphs.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Bpdx_Glyphs.res
new file mode 100644
index 0000000..db1f298
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Bpdx_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.bdsproj
new file mode 100644
index 0000000..50a863a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.bdsproj	
@@ -0,0 +1,180 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{99EA5527-0200-455E-815C-646FF77F0ACD}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_Core_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">1</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects SDK - Core Library</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String"></Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String">DESIGNTIME</Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">4</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">404</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName" Type="String">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion" Type="String">4.0.0.404</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName" Type="String">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion" Type="String">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+	</Delphi.Personality>
+	<ModelSupport>True</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.cfg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.cfg
new file mode 100644
index 0000000..5d79656
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.cfg	
@@ -0,0 +1,53 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\Dcu\D10"
+-LE"..\Dcu\D10"
+-LN"..\Dcu\D10"
+-U"..\Dcu\D10"
+-O"..\Dcu\D10"
+-I"..\Dcu\D10"
+-R"..\Dcu\D10"
+-DDESIGNTIME
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.dpk
new file mode 100644
index 0000000..7233d44
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.dpk	
@@ -0,0 +1,123 @@
+package RemObjects_Core_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Core Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{%File 'RemObjects.inc'}
+{%TogetherDiagram 'ModelSupport_RemObjects_Core_D10\default.txaPackage'}
+
+requires
+  vcl,
+  rtl,
+  dbrtl;
+
+contains
+  uROWinMessageChannel in 'uROWinMessageChannel.pas',
+  uROWinMessageServer in 'uROWinMessageServer.pas',
+  uROWinInetHttpChannel in 'uROWinInetHttpChannel.pas',
+  uROZLib in 'Zlib\uROZLib.pas',
+  uRORng in 'RODEC\uRORng.pas',
+  uROCipher1 in 'RODEC\uROCipher1.pas',
+  uROCipher in 'RODEC\uROCipher.pas',
+  uROCiphers in 'RODEC\uROCiphers.pas',
+  uRODECConst in 'RODEC\uRODECConst.pas',
+  uRODECUtil in 'RODEC\uRODECUtil.pas',
+  uROHash in 'RODEC\uROHash.pas',
+  uROHCMngr in 'RODEC\uROHCMngr.pas',
+  uRORFC2289 in 'RODEC\uRORFC2289.pas',
+  uRODLLChannel in 'uRODLLChannel.pas',
+  uRODLLHelpers in 'uRODLLHelpers.pas',
+  uROMSXMLImpl in 'uROMSXMLImpl.pas',
+  uROMSXML2_TLB in 'uROMSXML2_TLB.pas',
+  uROEncryption in 'uROEncryption.pas',
+  uRODLToXML in 'CodeGen\uRODLToXML.pas',
+  uRODLToWSDL in 'CodeGen\uRODLToWSDL.pas',
+  uROSOAPMessage in 'uROSOAPMessage.pas',
+  uROBinMessage in 'uROBinMessage.pas',
+  uRODL in 'uRODL.pas',
+  uROServerIntf in 'uROServerIntf.pas',
+  uROClient in 'uROClient.pas',
+  uROClientIntf in 'uROClientIntf.pas',
+  uRORes in 'uRORes.pas',
+  uROServer in 'uROServer.pas',
+  uROUnicodeConv in 'uROUnicodeConv.pas',
+  uROXDOM_2_3 in 'uROXDOM_2_3.pas',
+  uROTypes in 'uROTypes.pas',
+  RemObjects_Core_Reg in 'RemObjects_Core_Reg.pas',
+  uROSerializer in 'uROSerializer.pas',
+  uROStreamSerializer in 'uROStreamSerializer.pas',
+  uROXMLSerializer in 'uROXMLSerializer.pas',
+  uROHTTPTools in 'uROHTTPTools.pas',
+  uROIdeOnly in 'uROIdeOnly.pas',
+  uROHTTPDispatch in 'uROHTTPDispatch.pas',
+  uROPoweredByRemObjectsButton in 'uROPoweredByRemObjectsButton.pas',
+  uROCompression in 'uROCompression.pas',
+  uROXMLIntf in 'uROXMLIntf.pas',
+  uROOpenXMLImpl in 'uROOpenXMLImpl.pas',
+  uROClasses in 'uROClasses.pas',
+  uROClassFactories in 'uROClassFactories.pas',
+  uRORemoteDataModule in 'uRORemoteDataModule.pas',
+  uROAsync in 'uROAsync.pas',
+  uROThread in 'uROThread.pas',
+  uROSessions in 'uROSessions.pas',
+  uRORemoteService in 'uRORemoteService.pas',
+  uROBinaryHelpers in 'uROBinaryHelpers.pas',
+  uROPleaseWaitForm in 'uROPleaseWaitForm.pas' {PleaseWaitForm},
+  uRONamedPipeServer in 'uRONamedPipeServer.pas',
+  uRONamedPipeChannel in 'uRONamedPipeChannel.pas',
+  uRODBSessionManager in 'uRODBSessionManager.pas',
+  uRODynamicRequest in 'uRODynamicRequest.pas',
+  uROEventRepository in 'uROEventRepository.pas',
+  uROMasterServerEventRepository in 'uROMasterServerEventRepository.pas',
+  ROMasterServerLibrary_Intf in 'ROMasterServerLibrary_Intf.pas',
+  uROMasterServerSessionManager in 'uROMasterServerSessionManager.pas',
+  uROPostMessage in 'uROPostMessage.pas',
+  uROComboService in 'uROComboService.pas',
+  uROLocalChannel in 'uROLocalChannel.pas',
+  uROLocalServer in 'uROLocalServer.pas',
+  uROHtmlServerInfo in 'uROHtmlServerInfo.pas',
+  uROXmlRpcMessage in 'uROXmlRpcMessage.pas',
+  uROThreadPool in 'uROThreadPool.pas',
+  uIPHttpHeaders in 'uIPHttpHeaders.pas',
+  uROBaseSuperHttpServer in 'uROBaseSuperHttpServer.pas',
+  uROBaseSuperHttpChannel in 'uROBaseSuperHttpChannel.pas',
+  uROServerMultiMessage in 'uROServerMultiMessage.pas',
+  uROAsyncSCHelpers in 'uROAsyncSCHelpers.pas',
+  uROAsyncSuperTcpServer in 'uROAsyncSuperTcpServer.pas',
+  uROEncryptionEnvelope in 'uROEncryptionEnvelope.pas',
+  uRODBEventRepository in 'uRODBEventRepository.pas',
+  uROJSONParser in 'uROJSONParser.pas',
+  uROJSONMessage in 'uROJSONMessage.pas',
+  // after .37
+  uROOlympiaEventRepository in 'uROOlympiaEventRepository.pas',  
+  uROOlympiaSessionManager in 'uROOlympiaSessionManager.pas',  
+  ROOlympia_Intf in 'ROOlympia_Intf.pas',
+  uROmDNS in 'uROmDNS.pas',
+  uROZeroConfHub in 'uROZeroConfHub.pas',
+  uROZeroConfStreamWorker in 'uROZeroConfStreamWorker.pas',
+  uROEndianness in 'uROEndianness.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.res
new file mode 100644
index 0000000..fe0f936
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D10.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.dpk
new file mode 100644
index 0000000..a88c58e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.dpk	
@@ -0,0 +1,122 @@
+package RemObjects_Core_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Core Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{$DEFINE RELEASE}
+
+requires
+  vcl,
+  rtl,
+  dbrtl;
+
+contains
+  uROWinMessageChannel in 'uROWinMessageChannel.pas',
+  uROWinMessageServer in 'uROWinMessageServer.pas',
+  uROWinInetHttpChannel in 'uROWinInetHttpChannel.pas',
+  uROZLib in 'Zlib\uROZLib.pas',
+  uRORng in 'RODEC\uRORng.pas',
+  uROCipher1 in 'RODEC\uROCipher1.pas',
+  uROCipher in 'RODEC\uROCipher.pas',
+  uROCiphers in 'RODEC\uROCiphers.pas',
+  uRODECConst in 'RODEC\uRODECConst.pas',
+  uRODECUtil in 'RODEC\uRODECUtil.pas',
+  uROHash in 'RODEC\uROHash.pas',
+  uROHCMngr in 'RODEC\uROHCMngr.pas',
+  uRORFC2289 in 'RODEC\uRORFC2289.pas',
+  uRODLLChannel in 'uRODLLChannel.pas',
+  uRODLLHelpers in 'uRODLLHelpers.pas',
+  uROMSXMLImpl in 'uROMSXMLImpl.pas',
+  uROMSXML2_TLB in 'uROMSXML2_TLB.pas',
+  uROEncryption in 'uROEncryption.pas',
+  uRODLToXML in 'CodeGen\uRODLToXML.pas',
+  uRODLToWSDL in 'CodeGen\uRODLToWSDL.pas',
+  uROSOAPMessage in 'uROSOAPMessage.pas',
+  uROBinMessage in 'uROBinMessage.pas',
+  uRODL in 'uRODL.pas',
+  uROServerIntf in 'uROServerIntf.pas',
+  uROClient in 'uROClient.pas',
+  uROClientIntf in 'uROClientIntf.pas',
+  uRORes in 'uRORes.pas',
+  uROServer in 'uROServer.pas',
+  uROUnicodeConv in 'uROUnicodeConv.pas',
+  uROXDOM_2_3 in 'uROXDOM_2_3.pas',
+  uROTypes in 'uROTypes.pas',
+  RemObjects_Core_Reg in 'RemObjects_Core_Reg.pas',
+  uROSerializer in 'uROSerializer.pas',
+  uROStreamSerializer in 'uROStreamSerializer.pas',
+  uROXMLSerializer in 'uROXMLSerializer.pas',
+  uROHTTPTools in 'uROHTTPTools.pas',
+  uROIdeOnly in 'uROIdeOnly.pas',
+  uROHTTPDispatch in 'uROHTTPDispatch.pas',
+  uROPoweredByRemObjectsButton in 'uROPoweredByRemObjectsButton.pas',
+  uROCompression in 'uROCompression.pas',
+  uROXMLIntf in 'uROXMLIntf.pas',
+  uROOpenXMLImpl in 'uROOpenXMLImpl.pas',
+  uROClasses in 'uROClasses.pas',
+  uROClassFactories in 'uROClassFactories.pas',
+  uRORemoteDataModule in 'uRORemoteDataModule.pas',
+  uROAsync in 'uROAsync.pas',
+  uROThread in 'uROThread.pas',
+  uROSessions in 'uROSessions.pas',
+  uRORemoteService in 'uRORemoteService.pas',
+  uROBinaryHelpers in 'uROBinaryHelpers.pas',
+  uROPleaseWaitForm in 'uROPleaseWaitForm.pas' {PleaseWaitForm},
+  uRONamedPipeServer in 'uRONamedPipeServer.pas',
+  uRONamedPipeChannel in 'uRONamedPipeChannel.pas',
+  uRODBSessionManager in 'uRODBSessionManager.pas',
+  uRODynamicRequest in 'uRODynamicRequest.pas',
+  uROEventRepository in 'uROEventRepository.pas',
+  uROMasterServerEventRepository in 'uROMasterServerEventRepository.pas',
+  ROMasterServerLibrary_Intf in 'ROMasterServerLibrary_Intf.pas',
+  uROMasterServerSessionManager in 'uROMasterServerSessionManager.pas',
+  uROPostMessage in 'uROPostMessage.pas',
+  uROComboService in 'uROComboService.pas',
+  uROLocalChannel in 'uROLocalChannel.pas',
+  uROLocalServer in 'uROLocalServer.pas',
+  uROHtmlServerInfo in 'uROHtmlServerInfo.pas',
+  uROXmlRpcMessage in 'uROXmlRpcMessage.pas',
+  uROThreadPool in 'uROThreadPool.pas',
+  uIPHttpHeaders in 'uIPHttpHeaders.pas',
+  uROBaseSuperHttpServer in 'uROBaseSuperHttpServer.pas',
+  uROBaseSuperHttpChannel in 'uROBaseSuperHttpChannel.pas',
+  uROServerMultiMessage in 'uROServerMultiMessage.pas',
+  uROAsyncSCHelpers in 'uROAsyncSCHelpers.pas',
+  uROAsyncSuperTcpServer in 'uROAsyncSuperTcpServer.pas',
+  uROEncryptionEnvelope in 'uROEncryptionEnvelope.pas',
+  uRODBEventRepository in 'uRODBEventRepository.pas',
+  uROJSONParser in 'uROJSONParser.pas',
+  uROJSONMessage in 'uROJSONMessage.pas',
+  uROOlympiaEventRepository in 'uROOlympiaEventRepository.pas',
+  uROOlympiaSessionManager in 'uROOlympiaSessionManager.pas',
+  ROOlympia_Intf in 'ROOlympia_Intf.pas',
+  uROmDNS in 'uROmDNS.pas',
+  uROZeroConfHub in 'uROZeroConfHub.pas',
+  uROZeroConfStreamWorker in 'uROZeroConfStreamWorker.pas',
+  uROEndianness in 'uROEndianness.pas',
+  uROCOMInit in 'uROCOMInit.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.dproj
new file mode 100644
index 0000000..ff44347
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.dproj	
@@ -0,0 +1,739 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{698068b8-4884-426d-a991-66d8c3907ce0}</ProjectGuid>
+    <MainSource>RemObjects_Core_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\RemObjects_Core_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_Define>DESIGNTIME;RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_Define>DESIGNTIME</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects SDK - Core Library</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemObjects_Core_D11.dpk</Source></Source><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_RODX_D10.bpl">RemObjects SDK - RODXSock Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_BPDX_D10.bpl">RemObjects SDK - BPDX Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_Core_D10.bpl">RemObjects SDK - Core Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Pascal Script for Delphi\Dcu\D10\PascalScript_Core_D10.bpl">RemObjects Pascal Script - Core Package</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_WebBroker_D10.bpl">RemObjects SDK - WebBroker Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_Core_D10.bpl">RemObjects Data Abstract - Core Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IBXDriver_D10.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_ADODriver_D10.bpl">RemObjects Data Abstract - ADOExpress/dbGo Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_Scripting_D10.bpl">RemObjects Data Abstract - Scripting Integration Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_DBXDriver_D10B.bpl">RemObjects Data Abstract - dbExpress Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_BDEDriver_D10.bpl">RemObjects Data Abstract - BDE Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_SQLiteDriver_D10.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_Synapse_D10.bpl">RemObjects SDK - Synapse based Channels</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_DataSnap_D10.bpl">RemObjects SDK - DataSnap Integration Pack</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Everwood\Bin\RemObjects_Everwood_D10.bpl">RemObjects Everwood for Delphi</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_Indy_D10.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\RemObjects SDK for Delphi\Dcu\D10\RemObjects_IDE_D10.bpl">RemObjects SDK - IDE Integration for Win32</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IDE_D10.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_DBISAMDriver_D10.bpl">RemObjects Data Abstract - DBISAM Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclbde100.bpl">CodeGear BDE DB Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Pascal Script for Delphi\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - Core Package</Excluded_Packages>
+    </Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_Core_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="CodeGen\uRODLToWSDL.pas" />
+    <DCCReference Include="CodeGen\uRODLToXML.pas" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="RemObjects_Core_Reg.pas" />
+    <DCCReference Include="RODEC\uROCipher.pas" />
+    <DCCReference Include="RODEC\uROCipher1.pas" />
+    <DCCReference Include="RODEC\uROCiphers.pas" />
+    <DCCReference Include="RODEC\uRODECConst.pas" />
+    <DCCReference Include="RODEC\uRODECUtil.pas" />
+    <DCCReference Include="RODEC\uROHash.pas" />
+    <DCCReference Include="RODEC\uROHCMngr.pas" />
+    <DCCReference Include="RODEC\uRORFC2289.pas" />
+    <DCCReference Include="RODEC\uRORng.pas" />
+    <DCCReference Include="ROMasterServerLibrary_Intf.pas" />
+    <DCCReference Include="ROOlympia_Intf.pas" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uIPHttpHeaders.pas" />
+    <DCCReference Include="uROAsync.pas" />
+    <DCCReference Include="uROAsyncSCHelpers.pas" />
+    <DCCReference Include="uROAsyncSuperTcpServer.pas" />
+    <DCCReference Include="uROBaseSuperHttpChannel.pas" />
+    <DCCReference Include="uROBaseSuperHttpServer.pas" />
+    <DCCReference Include="uROBinaryHelpers.pas" />
+    <DCCReference Include="uROBinMessage.pas" />
+    <DCCReference Include="uROClasses.pas" />
+    <DCCReference Include="uROClassFactories.pas" />
+    <DCCReference Include="uROClient.pas" />
+    <DCCReference Include="uROClientIntf.pas" />
+    <DCCReference Include="uROComboService.pas" />
+    <DCCReference Include="uROCOMInit.pas" />
+    <DCCReference Include="uROCompression.pas" />
+    <DCCReference Include="uRODBEventRepository.pas" />
+    <DCCReference Include="uRODBSessionManager.pas" />
+    <DCCReference Include="uRODL.pas" />
+    <DCCReference Include="uRODLLChannel.pas" />
+    <DCCReference Include="uRODLLHelpers.pas" />
+    <DCCReference Include="uRODLLServer.pas" />
+    <DCCReference Include="uRODynamicRequest.pas" />
+    <DCCReference Include="uROEncryption.pas" />
+    <DCCReference Include="uROEncryptionEnvelope.pas" />
+    <DCCReference Include="uROEndianness.pas" />
+    <DCCReference Include="uROEventRepository.pas" />
+    <DCCReference Include="uROHtmlServerInfo.pas" />
+    <DCCReference Include="uROHTTPDispatch.pas" />
+    <DCCReference Include="uROHTTPTools.pas" />
+    <DCCReference Include="uROIdeOnly.pas" />
+    <DCCReference Include="uROJSONMessage.pas" />
+    <DCCReference Include="uROJSONParser.pas" />
+    <DCCReference Include="uROLocalChannel.pas" />
+    <DCCReference Include="uROLocalServer.pas" />
+    <DCCReference Include="uROMasterServerEventRepository.pas" />
+    <DCCReference Include="uROMasterServerSessionManager.pas" />
+    <DCCReference Include="uROmDNS.pas" />
+    <DCCReference Include="uROMSXML2_TLB.pas" />
+    <DCCReference Include="uROMSXMLImpl.pas" />
+    <DCCReference Include="uRONamedPipeChannel.pas" />
+    <DCCReference Include="uRONamedPipeServer.pas" />
+    <DCCReference Include="uROOlympiaEventRepository.pas" />
+    <DCCReference Include="uROOlympiaSessionManager.pas" />
+    <DCCReference Include="uROOpenXMLImpl.pas" />
+    <DCCReference Include="uROPleaseWaitForm.pas">
+      <Form>PleaseWaitForm</Form>
+    </DCCReference>
+    <DCCReference Include="uROPostMessage.pas" />
+    <DCCReference Include="uROPoweredByRemObjectsButton.pas" />
+    <DCCReference Include="uRORemoteDataModule.pas" />
+    <DCCReference Include="uRORemoteService.pas" />
+    <DCCReference Include="uRORes.pas" />
+    <DCCReference Include="uROSerializer.pas" />
+    <DCCReference Include="uROServer.pas" />
+    <DCCReference Include="uROServerIntf.pas" />
+    <DCCReference Include="uROServerMultiMessage.pas" />
+    <DCCReference Include="uROSessions.pas" />
+    <DCCReference Include="uROSOAPMessage.pas" />
+    <DCCReference Include="uROStreamSerializer.pas" />
+    <DCCReference Include="uROThread.pas" />
+    <DCCReference Include="uROThreadPool.pas" />
+    <DCCReference Include="uROTypes.pas" />
+    <DCCReference Include="uROUnicodeConv.pas" />
+    <DCCReference Include="uROWinInetHttpChannel.pas" />
+    <DCCReference Include="uROWinMessageChannel.pas" />
+    <DCCReference Include="uROWinMessageServer.pas" />
+    <DCCReference Include="uROXDOM_2_3.pas" />
+    <DCCReference Include="uROXMLIntf.pas" />
+    <DCCReference Include="uROXmlRpcMessage.pas" />
+    <DCCReference Include="uROXMLSerializer.pas" />
+    <DCCReference Include="uROZeroConfHub.pas" />
+    <DCCReference Include="uROZeroConfStreamWorker.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="Zlib\uROZLib.pas" />
+    <None Include="ModelSupport_RemObjects_Core_D10\default.txaPackage" />
+    <None Include="RemObjects.inc" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.dpk
new file mode 100644
index 0000000..450b9bf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.dpk	
@@ -0,0 +1,120 @@
+package RemObjects_Core_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Core Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uROWinMessageChannel in 'uROWinMessageChannel.pas',
+  uROWinMessageServer in 'uROWinMessageServer.pas',
+  uROWinInetHttpChannel in 'uROWinInetHttpChannel.pas',
+  uROZLib in 'Zlib\uROZLib.pas',
+  uRORng in 'RODEC\uRORng.pas',
+  uROCipher1 in 'RODEC\uROCipher1.pas',
+  uROCipher in 'RODEC\uROCipher.pas',
+  uROCiphers in 'RODEC\uROCiphers.pas',
+  uRODECConst in 'RODEC\uRODECConst.pas',
+  uRODECUtil in 'RODEC\uRODECUtil.pas',
+  uROHash in 'RODEC\uROHash.pas',
+  uROHCMngr in 'RODEC\uROHCMngr.pas',
+  uRORFC2289 in 'RODEC\uRORFC2289.pas',
+  uRODLLChannel in 'uRODLLChannel.pas',
+  uRODLLHelpers in 'uRODLLHelpers.pas',
+  uROMSXMLImpl in 'uROMSXMLImpl.pas',
+  uROMSXML2_TLB in 'uROMSXML2_TLB.pas',
+  uROEncryption in 'uROEncryption.pas',
+  uRODLToXML in 'CodeGen\uRODLToXML.pas',
+  uRODLToWSDL in 'CodeGen\uRODLToWSDL.pas',
+  uROSOAPMessage in 'uROSOAPMessage.pas',
+  uROBinMessage in 'uROBinMessage.pas',
+  uRODL in 'uRODL.pas',
+  uROServerIntf in 'uROServerIntf.pas',
+  uROClient in 'uROClient.pas',
+  uROClientIntf in 'uROClientIntf.pas',
+  uRORes in 'uRORes.pas',
+  uROServer in 'uROServer.pas',
+  uROUnicodeConv in 'uROUnicodeConv.pas',
+  uROXDOM_2_3 in 'uROXDOM_2_3.pas',
+  uROTypes in 'uROTypes.pas',
+  RemObjects_Core_Reg in 'RemObjects_Core_Reg.pas',
+  uROSerializer in 'uROSerializer.pas',
+  uROStreamSerializer in 'uROStreamSerializer.pas',
+  uROXMLSerializer in 'uROXMLSerializer.pas',
+  uROHTTPTools in 'uROHTTPTools.pas',
+  uROIdeOnly in 'uROIdeOnly.pas',
+  uROHTTPDispatch in 'uROHTTPDispatch.pas',
+  uROPoweredByRemObjectsButton in 'uROPoweredByRemObjectsButton.pas',
+  uROCompression in 'uROCompression.pas',
+  uROXMLIntf in 'uROXMLIntf.pas',
+  uROOpenXMLImpl in 'uROOpenXMLImpl.pas',
+  uROClasses in 'uROClasses.pas',
+  uROClassFactories in 'uROClassFactories.pas',
+  uRORemoteDataModule in 'uRORemoteDataModule.pas',
+  uROAsync in 'uROAsync.pas',
+  uROThread in 'uROThread.pas',
+  uROSessions in 'uROSessions.pas',
+  uRORemoteService in 'uRORemoteService.pas',
+  uROBinaryHelpers in 'uROBinaryHelpers.pas',
+  uROPleaseWaitForm in 'uROPleaseWaitForm.pas' {PleaseWaitForm},
+  uRONamedPipeServer in 'uRONamedPipeServer.pas',
+  uRONamedPipeChannel in 'uRONamedPipeChannel.pas',
+  uRODBSessionManager in 'uRODBSessionManager.pas',
+  uRODynamicRequest in 'uRODynamicRequest.pas',
+  uROEventRepository in 'uROEventRepository.pas',
+  uROMasterServerEventRepository in 'uROMasterServerEventRepository.pas',
+  ROMasterServerLibrary_Intf in 'ROMasterServerLibrary_Intf.pas',
+  uROMasterServerSessionManager in 'uROMasterServerSessionManager.pas',
+  uROPostMessage in 'uROPostMessage.pas',
+  uROComboService in 'uROComboService.pas',
+  uROLocalChannel in 'uROLocalChannel.pas',
+  uROLocalServer in 'uROLocalServer.pas',
+  uROHtmlServerInfo in 'uROHtmlServerInfo.pas',
+  uROXmlRpcMessage in 'uROXmlRpcMessage.pas',
+  uROThreadPool in 'uROThreadPool.pas',
+  uIPHttpHeaders in 'uIPHttpHeaders.pas',
+  uROBaseSuperHttpServer in 'uROBaseSuperHttpServer.pas',
+  uROBaseSuperHttpChannel in 'uROBaseSuperHttpChannel.pas',
+  uROServerMultiMessage in 'uROServerMultiMessage.pas',
+  uROAsyncSCHelpers in 'uROAsyncSCHelpers.pas',
+  uROAsyncSuperTcpServer in 'uROAsyncSuperTcpServer.pas',
+  uROEncryptionEnvelope in 'uROEncryptionEnvelope.pas',
+  uRODBEventRepository in 'uRODBEventRepository.pas',
+  uROJSONParser in 'uROJSONParser.pas',
+  uROJSONMessage in 'uROJSONMessage.pas',
+  uROOlympiaEventRepository in 'uROOlympiaEventRepository.pas',
+  uROOlympiaSessionManager in 'uROOlympiaSessionManager.pas',
+  ROOlympia_Intf in 'ROOlympia_Intf.pas',
+  uROmDNS in 'uROmDNS.pas',
+  uROZeroConfHub in 'uROZeroConfHub.pas',
+  uROZeroConfStreamWorker in 'uROZeroConfStreamWorker.pas',
+  uROEndianness in 'uROEndianness.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.dproj
new file mode 100644
index 0000000..d26e812
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.dproj	
@@ -0,0 +1,183 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{698068b8-4884-426d-a991-66d8c3907ce0}</ProjectGuid>
+			<MainSource>RemObjects_Core_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Core_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Core_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - Core Library</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_Core_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="uROWinMessageChannel.pas"/>
+			<DCCReference Include="uROWinMessageServer.pas"/>
+			<DCCReference Include="uROWinInetHttpChannel.pas"/>
+			<DCCReference Include="Zlib\uROZLib.pas"/>
+			<DCCReference Include="RODEC\uRORng.pas"/>
+			<DCCReference Include="RODEC\uROCipher1.pas"/>
+			<DCCReference Include="RODEC\uROCipher.pas"/>
+			<DCCReference Include="RODEC\uROCiphers.pas"/>
+			<DCCReference Include="RODEC\uRODECConst.pas"/>
+			<DCCReference Include="RODEC\uRODECUtil.pas"/>
+			<DCCReference Include="RODEC\uROHash.pas"/>
+			<DCCReference Include="RODEC\uROHCMngr.pas"/>
+			<DCCReference Include="RODEC\uRORFC2289.pas"/>
+			<DCCReference Include="uRODLLChannel.pas"/>
+			<DCCReference Include="uRODLLHelpers.pas"/>
+			<DCCReference Include="uROMSXMLImpl.pas"/>
+			<DCCReference Include="uROMSXML2_TLB.pas"/>
+			<DCCReference Include="uROEncryption.pas"/>
+			<DCCReference Include="CodeGen\uRODLToXML.pas"/>
+			<DCCReference Include="CodeGen\uRODLToWSDL.pas"/>
+			<DCCReference Include="uROSOAPMessage.pas"/>
+			<DCCReference Include="uROBinMessage.pas"/>
+			<DCCReference Include="uRODL.pas"/>
+			<DCCReference Include="uROServerIntf.pas"/>
+			<DCCReference Include="uROClient.pas"/>
+			<DCCReference Include="uROClientIntf.pas"/>
+			<DCCReference Include="uRORes.pas"/>
+			<DCCReference Include="uROServer.pas"/>
+			<DCCReference Include="uROUnicodeConv.pas"/>
+			<DCCReference Include="uROXDOM_2_3.pas"/>
+			<DCCReference Include="uROTypes.pas"/>
+			<DCCReference Include="RemObjects_Core_Reg.pas"/>
+			<DCCReference Include="uROSerializer.pas"/>
+			<DCCReference Include="uROStreamSerializer.pas"/>
+			<DCCReference Include="uROXMLSerializer.pas"/>
+			<DCCReference Include="uROHTTPTools.pas"/>
+			<DCCReference Include="uROIdeOnly.pas"/>
+			<DCCReference Include="uROHTTPDispatch.pas"/>
+			<DCCReference Include="uROPoweredByRemObjectsButton.pas"/>
+			<DCCReference Include="uROCompression.pas"/>
+			<DCCReference Include="uROXMLIntf.pas"/>
+			<DCCReference Include="uROOpenXMLImpl.pas"/>
+			<DCCReference Include="uROClasses.pas"/>
+			<DCCReference Include="uROClassFactories.pas"/>
+			<DCCReference Include="uRORemoteDataModule.pas"/>
+			<DCCReference Include="uROAsync.pas"/>
+			<DCCReference Include="uROThread.pas"/>
+			<DCCReference Include="uROSessions.pas"/>
+			<DCCReference Include="uRORemoteService.pas"/>
+			<DCCReference Include="uROBinaryHelpers.pas"/>
+			<DCCReference Include="uROPleaseWaitForm.pas">
+				<Form>PleaseWaitForm</Form>
+			</DCCReference>
+			<DCCReference Include="uRONamedPipeServer.pas"/>
+			<DCCReference Include="uRONamedPipeChannel.pas"/>
+			<DCCReference Include="uRODBSessionManager.pas"/>
+			<DCCReference Include="uRODynamicRequest.pas"/>
+			<DCCReference Include="uROEventRepository.pas"/>
+			<DCCReference Include="uROMasterServerEventRepository.pas"/>
+			<DCCReference Include="ROMasterServerLibrary_Intf.pas"/>
+			<DCCReference Include="uROMasterServerSessionManager.pas"/>
+			<DCCReference Include="uROPostMessage.pas"/>
+			<DCCReference Include="uROComboService.pas"/>
+			<DCCReference Include="uROLocalChannel.pas"/>
+			<DCCReference Include="uROLocalServer.pas"/>
+			<DCCReference Include="uROHtmlServerInfo.pas"/>
+			<DCCReference Include="uROXmlRpcMessage.pas"/>
+			<DCCReference Include="uROThreadPool.pas"/>
+			<DCCReference Include="uIPHttpHeaders.pas"/>
+			<DCCReference Include="uROBaseSuperHttpServer.pas"/>
+			<DCCReference Include="uROBaseSuperHttpChannel.pas"/>
+			<DCCReference Include="uROServerMultiMessage.pas"/>
+			<DCCReference Include="uROAsyncSCHelpers.pas"/>
+			<DCCReference Include="uROAsyncSuperTcpServer.pas"/>
+			<DCCReference Include="uROEncryptionEnvelope.pas"/>
+			<DCCReference Include="uRODBEventRepository.pas"/>
+			<DCCReference Include="uROJSONParser.pas"/>
+			<DCCReference Include="uROJSONMessage.pas"/>
+			<DCCReference Include="uROOlympiaEventRepository.pas"/>
+			<DCCReference Include="uROOlympiaSessionManager.pas"/>
+			<DCCReference Include="ROOlympia_Intf.pas"/>
+			<DCCReference Include="uROmDNS.pas"/>
+			<DCCReference Include="uROZeroConfHub.pas"/>
+			<DCCReference Include="uROZeroConfStreamWorker.pas"/>
+			<DCCReference Include="uROEndianness.pas"/>
+			<None Include="RemObjects.inc">
+				<ContainerId>File</ContainerId>
+			</None>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_Core_D12.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D12.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.dof
new file mode 100644
index 0000000..a9b8faf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.dof	
@@ -0,0 +1,107 @@
+[Compiler]
+A=1
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - Core Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D5
+PackageDLLOutputDir=..\Dcu\D5
+PackageDCPOutputDir=..\Dcu\D5
+SearchPath=ZLib;CodeGen;..\Dcu\D5
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+[Language]
+ActiveLang=
+ProjectLang=$00000409
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[HistoryLists\hlConditionals]
+Count=1
+Item0=DESIGNTIME
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=3
+Item0=..\Dcu\D5
+Item1=..\Dcu\D6
+Item2=..\Dcu\D7
+[HistoryLists\hlUnitOutputDirectory]
+Count=3
+Item0=..\Dcu\D5
+Item1=..\Dcu\D6
+Item2=..\Dcu\D7
+[HistoryLists\hlBPLOutput]
+Count=2
+Item0=..\Dcu\D5
+Item1=..\Dcu\D6
+[HistoryLists\hlDCPOutput]
+Count=3
+Item0=..\Dcu\D5
+Item1=..\Dcu\D6
+Item2=..\Dcu\D7
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.dpk
new file mode 100644
index 0000000..94f5b08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.dpk	
@@ -0,0 +1,121 @@
+package RemObjects_Core_D5;
+
+{$R *.res}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Core Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{%File 'RemObjects.inc'}
+
+requires
+  Vcl50,
+  Inet50;
+
+contains
+  uROWinMessageChannel in 'uROWinMessageChannel.pas',
+  uROWinMessageServer in 'uROWinMessageServer.pas',
+  uROWinInetHttpChannel in 'uROWinInetHttpChannel.pas',
+  uROZLib in 'Zlib\uROZLib.pas',
+  uRORng in 'RODEC\uRORng.pas',
+  uROCipher1 in 'RODEC\uROCipher1.pas',
+  uROCipher in 'RODEC\uROCipher.pas',
+  uROCiphers in 'RODEC\uROCiphers.pas',
+  uRODECConst in 'RODEC\uRODECConst.pas',
+  uRODECUtil in 'RODEC\uRODECUtil.pas',
+  uROHash in 'RODEC\uROHash.pas',
+  uROHCMngr in 'RODEC\uROHCMngr.pas',
+  uRORFC2289 in 'RODEC\uRORFC2289.pas',
+  uRODLLChannel in 'uRODLLChannel.pas',
+  uRODLLHelpers in 'uRODLLHelpers.pas',
+  uROMSXMLImpl in 'uROMSXMLImpl.pas',
+  uROMSXML2_TLB in 'uROMSXML2_TLB.pas',
+  uROEncryption in 'uROEncryption.pas',
+  uRODLToXML in 'CodeGen\uRODLToXML.pas',
+  uRODLToWSDL in 'CodeGen\uRODLToWSDL.pas',
+  uROSOAPMessage in 'uROSOAPMessage.pas',
+  uROBinMessage in 'uROBinMessage.pas',
+  uRODL in 'uRODL.pas',
+  uROServerIntf in 'uROServerIntf.pas',
+  uROClient in 'uROClient.pas',
+  uROClientIntf in 'uROClientIntf.pas',
+  uRORes in 'uRORes.pas',
+  uROServer in 'uROServer.pas',
+  uROUnicodeConv in 'uROUnicodeConv.pas',
+  uROXDOM_2_3 in 'uROXDOM_2_3.pas',
+  uROTypes in 'uROTypes.pas',
+  RemObjects_Core_Reg in 'RemObjects_Core_Reg.pas',
+  uROSerializer in 'uROSerializer.pas',
+  uROStreamSerializer in 'uROStreamSerializer.pas',
+  uROXMLSerializer in 'uROXMLSerializer.pas',
+  uROHTTPTools in 'uROHTTPTools.pas',
+  uROIdeOnly in 'uROIdeOnly.pas',
+  uROHTTPDispatch in 'uROHTTPDispatch.pas',
+  uROPoweredByRemObjectsButton in 'uROPoweredByRemObjectsButton.pas',
+  uROCompression in 'uROCompression.pas',
+  uROXMLIntf in 'uROXMLIntf.pas',
+  uROOpenXMLImpl in 'uROOpenXMLImpl.pas',
+  uROClasses in 'uROClasses.pas',
+  uROClassFactories in 'uROClassFactories.pas',
+  uRORemoteDataModule in 'uRORemoteDataModule.pas',
+  uROAsync in 'uROAsync.pas',
+  uROThread in 'uROThread.pas',
+  uROSessions in 'uROSessions.pas',
+  uRORemoteService in 'uRORemoteService.pas',
+  uROBinaryHelpers in 'uROBinaryHelpers.pas',
+  uROPleaseWaitForm in 'uROPleaseWaitForm.pas' {PleaseWaitForm},
+  uRONamedPipeServer in 'uRONamedPipeServer.pas',
+  uRONamedPipeChannel in 'uRONamedPipeChannel.pas',
+  uRODBSessionManager in 'uRODBSessionManager.pas',
+  uRODynamicRequest in 'uRODynamicRequest.pas',
+  uROEventRepository in 'uROEventRepository.pas',
+  uROMasterServerEventRepository in 'uROMasterServerEventRepository.pas',
+  ROMasterServerLibrary_Intf in 'ROMasterServerLibrary_Intf.pas',
+  uROMasterServerSessionManager in 'uROMasterServerSessionManager.pas',
+  uROPostMessage in 'uROPostMessage.pas',
+  uROComboService in 'uROComboService.pas',
+  uROLocalChannel in 'uROLocalChannel.pas',
+  uROLocalServer in 'uROLocalServer.pas',
+  uROHtmlServerInfo in 'uROHtmlServerInfo.pas',
+  uROXmlRpcMessage in 'uROXmlRpcMessage.pas',  
+  uROThreadPool in 'uROThreadPool.pas',
+  uIPHttpHeaders in 'uIPHttpHeaders.pas',
+  uROBaseSuperHttpServer in 'uROBaseSuperHttpServer.pas',
+  uROBaseSuperHttpChannel in 'uROBaseSuperHttpChannel.pas',
+  uROServerMultiMessage in 'uROServerMultiMessage.pas',
+  uROAsyncSCHelpers in 'uROAsyncSCHelpers.pas',
+  uROAsyncSuperTcpServer in 'uROAsyncSuperTcpServer.pas',
+  uROEncryptionEnvelope in 'uROEncryptionEnvelope.pas',
+  uRODBEventRepository in 'uRODBEventRepository.pas',
+  uROJSONParser in 'uROJSONParser.pas',
+  uROJSONMessage in 'uROJSONMessage.pas',
+  // after .37
+  uROOlympiaEventRepository in 'uROOlympiaEventRepository.pas',  
+  uROOlympiaSessionManager in 'uROOlympiaSessionManager.pas',  
+  ROOlympia_Intf in 'ROOlympia_Intf.pas',
+  uROmDNS in 'uROmDNS.pas',
+  uROZeroConfHub in 'uROZeroConfHub.pas',
+  uROZeroConfStreamWorker in 'uROZeroConfStreamWorker.pas',
+  uROEndianness in 'uROEndianness.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.res
new file mode 100644
index 0000000..a2de886
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D5.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.dof
new file mode 100644
index 0000000..29c940c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.dof	
@@ -0,0 +1,82 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - Core Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=CodeGen;..\Dcu\D6
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=2
+MinorVer=0
+Release=3
+Build=237
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=2.0.3.237
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.dpk
new file mode 100644
index 0000000..4a37dbe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.dpk	
@@ -0,0 +1,122 @@
+package RemObjects_Core_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Core Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{%File 'RemObjects.inc'}
+
+requires
+  vcl,
+  rtl,
+  dbrtl;
+
+contains
+  uROWinMessageChannel in 'uROWinMessageChannel.pas',
+  uROWinMessageServer in 'uROWinMessageServer.pas',
+  uROWinInetHttpChannel in 'uROWinInetHttpChannel.pas',
+  uROZLib in 'Zlib\uROZLib.pas',
+  uRORng in 'RODEC\uRORng.pas',
+  uROCipher1 in 'RODEC\uROCipher1.pas',
+  uROCipher in 'RODEC\uROCipher.pas',
+  uROCiphers in 'RODEC\uROCiphers.pas',
+  uRODECConst in 'RODEC\uRODECConst.pas',
+  uRODECUtil in 'RODEC\uRODECUtil.pas',
+  uROHash in 'RODEC\uROHash.pas',
+  uROHCMngr in 'RODEC\uROHCMngr.pas',
+  uRORFC2289 in 'RODEC\uRORFC2289.pas',
+  uRODLLChannel in 'uRODLLChannel.pas',
+  uRODLLHelpers in 'uRODLLHelpers.pas',
+  uROMSXMLImpl in 'uROMSXMLImpl.pas',
+  uROMSXML2_TLB in 'uROMSXML2_TLB.pas',
+  uROEncryption in 'uROEncryption.pas',
+  uRODLToXML in 'CodeGen\uRODLToXML.pas',
+  uRODLToWSDL in 'CodeGen\uRODLToWSDL.pas',
+  uROSOAPMessage in 'uROSOAPMessage.pas',
+  uROBinMessage in 'uROBinMessage.pas',
+  uRODL in 'uRODL.pas',
+  uROServerIntf in 'uROServerIntf.pas',
+  uROClient in 'uROClient.pas',
+  uROClientIntf in 'uROClientIntf.pas',
+  uRORes in 'uRORes.pas',
+  uROServer in 'uROServer.pas',
+  uROUnicodeConv in 'uROUnicodeConv.pas',
+  uROXDOM_2_3 in 'uROXDOM_2_3.pas',
+  uROTypes in 'uROTypes.pas',
+  RemObjects_Core_Reg in 'RemObjects_Core_Reg.pas',
+  uROSerializer in 'uROSerializer.pas',
+  uROStreamSerializer in 'uROStreamSerializer.pas',
+  uROXMLSerializer in 'uROXMLSerializer.pas',
+  uROHTTPTools in 'uROHTTPTools.pas',
+  uROIdeOnly in 'uROIdeOnly.pas',
+  uROHTTPDispatch in 'uROHTTPDispatch.pas',
+  uROPoweredByRemObjectsButton in 'uROPoweredByRemObjectsButton.pas',
+  uROCompression in 'uROCompression.pas',
+  uROXMLIntf in 'uROXMLIntf.pas',
+  uROOpenXMLImpl in 'uROOpenXMLImpl.pas',
+  uROClasses in 'uROClasses.pas',
+  uROClassFactories in 'uROClassFactories.pas',
+  uRORemoteDataModule in 'uRORemoteDataModule.pas',
+  uROAsync in 'uROAsync.pas',
+  uROThread in 'uROThread.pas',
+  uROSessions in 'uROSessions.pas',
+  uRORemoteService in 'uRORemoteService.pas',
+  uROBinaryHelpers in 'uROBinaryHelpers.pas',
+  uROPleaseWaitForm in 'uROPleaseWaitForm.pas' {PleaseWaitForm},
+  uRONamedPipeServer in 'uRONamedPipeServer.pas',
+  uRONamedPipeChannel in 'uRONamedPipeChannel.pas',
+  uRODBSessionManager in 'uRODBSessionManager.pas',
+  uRODynamicRequest in 'uRODynamicRequest.pas',
+  uROEventRepository in 'uROEventRepository.pas',
+  uROMasterServerEventRepository in 'uROMasterServerEventRepository.pas',
+  ROMasterServerLibrary_Intf in 'ROMasterServerLibrary_Intf.pas',
+  uROMasterServerSessionManager in 'uROMasterServerSessionManager.pas',
+  uROPostMessage in 'uROPostMessage.pas',
+  uROComboService in 'uROComboService.pas',
+  uROLocalChannel in 'uROLocalChannel.pas',
+  uROLocalServer in 'uROLocalServer.pas',
+  uROHtmlServerInfo in 'uROHtmlServerInfo.pas',
+  uROXmlRpcMessage in 'uROXmlRpcMessage.pas',  
+  uROThreadPool in 'uROThreadPool.pas',
+  uIPHttpHeaders in 'uIPHttpHeaders.pas',
+  uROBaseSuperHttpServer in 'uROBaseSuperHttpServer.pas',
+  uROBaseSuperHttpChannel in 'uROBaseSuperHttpChannel.pas',
+  uROServerMultiMessage in 'uROServerMultiMessage.pas',
+  uROAsyncSCHelpers in 'uROAsyncSCHelpers.pas',
+  uROAsyncSuperTcpServer in 'uROAsyncSuperTcpServer.pas',
+  uROEncryptionEnvelope in 'uROEncryptionEnvelope.pas',
+  uRODBEventRepository in 'uRODBEventRepository.pas',
+  uROJSONParser in 'uROJSONParser.pas',
+  uROJSONMessage in 'uROJSONMessage.pas',
+  // after .37
+  uROOlympiaEventRepository in 'uROOlympiaEventRepository.pas',  
+  uROOlympiaSessionManager in 'uROOlympiaSessionManager.pas',  
+  ROOlympia_Intf in 'ROOlympia_Intf.pas',
+  uROmDNS in 'uROmDNS.pas',
+  uROZeroConfHub in 'uROZeroConfHub.pas',
+  uROZeroConfStreamWorker in 'uROZeroConfStreamWorker.pas',
+  uROEndianness in 'uROEndianness.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.res
new file mode 100644
index 0000000..17ebc63
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D6.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.dof
new file mode 100644
index 0000000..be28ecf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.dof	
@@ -0,0 +1,132 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=1
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - Core Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=..\Dcu\D7;RODEC
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=260
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.260
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+[Excluded Packages]
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.dpk
new file mode 100644
index 0000000..2bb55df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.dpk	
@@ -0,0 +1,121 @@
+package RemObjects_Core_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Core Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  vcl,
+  rtl,
+  dbrtl;
+
+contains
+  uROWinMessageChannel in 'uROWinMessageChannel.pas',
+  uROWinMessageServer in 'uROWinMessageServer.pas',
+  uROWinInetHttpChannel in 'uROWinInetHttpChannel.pas',
+  uROZLib in 'Zlib\uROZLib.pas',
+  uRORng in 'RODEC\uRORng.pas',
+  uROCipher1 in 'RODEC\uROCipher1.pas',
+  uROCipher in 'RODEC\uROCipher.pas',
+  uROCiphers in 'RODEC\uROCiphers.pas',
+  uRODECConst in 'RODEC\uRODECConst.pas',
+  uRODECUtil in 'RODEC\uRODECUtil.pas',
+  uROHash in 'RODEC\uROHash.pas',
+  uROHCMngr in 'RODEC\uROHCMngr.pas',
+  uRORFC2289 in 'RODEC\uRORFC2289.pas',
+  uRODLLChannel in 'uRODLLChannel.pas',
+  uRODLLHelpers in 'uRODLLHelpers.pas',
+  uROMSXMLImpl in 'uROMSXMLImpl.pas',
+  uROMSXML2_TLB in 'uROMSXML2_TLB.pas',
+  uROEncryption in 'uROEncryption.pas',
+  uRODLToXML in 'CodeGen\uRODLToXML.pas',
+  uRODLToWSDL in 'CodeGen\uRODLToWSDL.pas',
+  uROSOAPMessage in 'uROSOAPMessage.pas',
+  uROBinMessage in 'uROBinMessage.pas',
+  uRODL in 'uRODL.pas',
+  uROServerIntf in 'uROServerIntf.pas',
+  uROClient in 'uROClient.pas',
+  uROClientIntf in 'uROClientIntf.pas',
+  uRORes in 'uRORes.pas',
+  uROServer in 'uROServer.pas',
+  uROUnicodeConv in 'uROUnicodeConv.pas',
+  uROXDOM_2_3 in 'uROXDOM_2_3.pas',
+  uROTypes in 'uROTypes.pas',
+  RemObjects_Core_Reg in 'RemObjects_Core_Reg.pas',
+  uROSerializer in 'uROSerializer.pas',
+  uROStreamSerializer in 'uROStreamSerializer.pas',
+  uROXMLSerializer in 'uROXMLSerializer.pas',
+  uROHTTPTools in 'uROHTTPTools.pas',
+  uROIdeOnly in 'uROIdeOnly.pas',
+  uROHTTPDispatch in 'uROHTTPDispatch.pas',
+  uROPoweredByRemObjectsButton in 'uROPoweredByRemObjectsButton.pas',
+  uROCompression in 'uROCompression.pas',
+  uROXMLIntf in 'uROXMLIntf.pas',
+  uROOpenXMLImpl in 'uROOpenXMLImpl.pas',
+  uROClasses in 'uROClasses.pas',
+  uROClassFactories in 'uROClassFactories.pas',
+  uRORemoteDataModule in 'uRORemoteDataModule.pas',
+  uROAsync in 'uROAsync.pas',
+  uROThread in 'uROThread.pas',
+  uROSessions in 'uROSessions.pas',
+  uRORemoteService in 'uRORemoteService.pas',
+  uROBinaryHelpers in 'uROBinaryHelpers.pas',
+  uROPleaseWaitForm in 'uROPleaseWaitForm.pas' {PleaseWaitForm},
+  uRONamedPipeServer in 'uRONamedPipeServer.pas',
+  uRONamedPipeChannel in 'uRONamedPipeChannel.pas',
+  uRODBSessionManager in 'uRODBSessionManager.pas',
+  uRODynamicRequest in 'uRODynamicRequest.pas',
+  uROEventRepository in 'uROEventRepository.pas',
+  uROMasterServerEventRepository in 'uROMasterServerEventRepository.pas',
+  ROMasterServerLibrary_Intf in 'ROMasterServerLibrary_Intf.pas',
+  uROMasterServerSessionManager in 'uROMasterServerSessionManager.pas',
+  uROPostMessage in 'uROPostMessage.pas',
+  uROComboService in 'uROComboService.pas',
+  uROLocalChannel in 'uROLocalChannel.pas',
+  uROLocalServer in 'uROLocalServer.pas',
+  uROHtmlServerInfo in 'uROHtmlServerInfo.pas',
+  uROXmlRpcMessage in 'uROXmlRpcMessage.pas',
+  uROThreadPool in 'uROThreadPool.pas',
+  uIPHttpHeaders in 'uIPHttpHeaders.pas',
+  uROBaseSuperHttpServer in 'uROBaseSuperHttpServer.pas',
+  uROBaseSuperHttpChannel in 'uROBaseSuperHttpChannel.pas',
+  uROServerMultiMessage in 'uROServerMultiMessage.pas',
+  uROEncryptionEnvelope in 'uROEncryptionEnvelope.pas',
+  uROAsyncSCHelpers in 'uROAsyncSCHelpers.pas',
+  uROAsyncSuperTcpServer in 'uROAsyncSuperTcpServer.pas',
+  uRODBEventRepository in 'uRODBEventRepository.pas',
+  uROJSONParser in 'uROJSONParser.pas',
+  uROJSONMessage in 'uROJSONMessage.pas',
+  // after .37
+  uROOlympiaEventRepository in 'uROOlympiaEventRepository.pas',
+  uROOlympiaSessionManager in 'uROOlympiaSessionManager.pas',
+  ROOlympia_Intf in 'ROOlympia_Intf.pas',
+  uROmDNS in 'uROmDNS.pas',
+  uROZeroConfHub in 'uROZeroConfHub.pas',
+  uROZeroConfStreamWorker in 'uROZeroConfStreamWorker.pas',
+  uROEndianness in 'uROEndianness.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_D7.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Glyphs.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Glyphs.lrs
new file mode 100644
index 0000000..d855747
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Glyphs.lrs	
@@ -0,0 +1,2491 @@
+LazarusResources.Add('TROBINMESSAGE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#255#0#255#0#0#0'@'#0#192#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'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192#255#255#255'@'
+  +#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0'@'#0#192#255#255#255
+  +'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0#0
+  +#129#0#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0
+  +'8'#196'Z'#0#129#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#0#129#0#0#129#0#0#129#0#0#129#0'G'
+  +#212't:'#196'['#0#129#0#150#150#150#150#150#150#150#150#150#255#0#255'@'#0
+  +#192#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'@'#0#192'@@@2'#218'e1'#217
+  +'d/'#215'b5'#212'eJ'#215'vG'#211's2'#184'J'#0#129#0#224#224#224#224#224#224
+  +#152#152#152'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'6'#225'j7'#226'k6'#225'j5'#221
+  +'hL'#222'yL'#218'xI'#213'uF'#209'r1'#183'I'#0#129#0#238#238#238#154#154#154
+  +#157#157#157#246#246#246#246#246#246#246#246#246#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#0#129#0'#'#197'F8'#227'l='#234'r>'#235's<'
+  +#233'pK'#230'{S'#226#128'N'#221'{J'#216'wG'#211's,'#181'D'#0#129#0#246#246
+  +#246#157#157#157#158#158#158#251#251#251#251#251#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#251#251#251#251#251#0#129#0'%'#199'H<'#233'pA'
+  +#240'wE'#246'{A'#239'vZ'#235#136'U'#229#130'P'#222'}K'#217'w.'#184'F'#0#129#0
+  +#251#251#251#251#251#251#158#158#158#158#158#158#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#0#129#0
+  +#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0'P'#222'}0'#187'I'#0
+  +#129#0#254#254#254#254#254#254#254#254#254#158#158#158#159#159#159#255#255
+  +#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#0#129#0'8'#193'Q'#0#129#0#157#157#157#255#255#255#255
+  +#255#255#255#255#255#159#159#159#159#159#159#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#0
+  +#129#0#0#129#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#159#159#159#159#159#159#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#0#129#0#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#159#159#159#158#158
+  +#158#255#255#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#255#255#255#255#255#255#255#255#255#158#158#158#158#158#158#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#158#158#158#157#157#157#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#157#157#157#156#156#156#242#242#242#242#242#242#242#242#242#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#242#242#242#242#242#242#242#242#242#156#156
+  ,#156#153#153#153#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#153#153#153#150#150#150
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#150#150#150#146#146#146#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#146#146#146#255#0#255#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROPOSTMESSAGE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0'@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0
+  +#0#129#0#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0
+  +'8'#196'Z'#0#129#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#0#129#0#0#129#0#0#129#0#0#129#0'G'
+  +#212't:'#196'['#0#129#0#150#150#150#150#150#150#150#150#150#255#0#255'@'#0
+  +#192#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'@'#0#192'@@@2'#218'e1'#217
+  +'d/'#215'b5'#212'eJ'#215'vG'#211's2'#184'J'#0#129#0#224#224#224#224#224#224
+  +#152#152#152'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'6'#225'j7'#226'k6'#225'j5'#221
+  +'hL'#222'yL'#218'xI'#213'uF'#209'r1'#183'I'#0#129#0#238#238#238#154#154#154
+  +#157#157#157#246#246#246#246#246#246#246#246#246#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#0#129#0'#'#197'F8'#227'l='#234'r>'#235's<'
+  +#233'pK'#230'{S'#226#128'N'#221'{J'#216'wG'#211's,'#181'D'#0#129#0#246#246
+  +#246#157#157#157#158#158#158#251#251#251#251#251#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#251#251#251#251#251#0#129#0'%'#199'H<'#233'pA'
+  +#240'wE'#246'{A'#239'vZ'#235#136'U'#229#130'P'#222'}K'#217'w.'#184'F'#0#129#0
+  +#251#251#251#251#251#251#158#158#158#158#158#158#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#0#129#0
+  +#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0'P'#222'}0'#187'I'#0
+  +#129#0#254#254#254#254#254#254#254#254#254#158#158#158#159#159#159#255#255
+  +#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#0#129#0'8'#193'Q'#0#129#0#157#157#157#255#255#255#255
+  +#255#255#255#255#255#159#159#159#159#159#159#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#0
+  +#129#0#0#129#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#159#159#159#159#159#159#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#0#129#0#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#159#159#159#158#158
+  +#158#255#255#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#255#255#255#255#255#255#255#255#255#158#158#158#158#158#158#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#158#158#158#157#157#157#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#157#157#157#156#156#156#242#242#242#242#242#242#242#242#242#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#242#242#242#242#242#242#242#242#242#156#156
+  ,#156#153#153#153#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#153#153#153#150#150#150
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#150#150#150#146#146#146#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#146#146#146#255#0#255#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROSOAPMESSAGE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0#0'@'#0#192#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'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255
+  +#0#129#0#0#129#0#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0'@'#0#192
+  +#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255
+  +#0#129#0'8'#196'Z'#0#129#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#0#129#0#0#129#0#0#129#0#0
+  +#129#0'G'#212't:'#196'['#0#129#0#150#150#150#150#150#150#150#150#150#255#0
+  +#255'@'#0#192#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'@'#0#192'@@@2'#218
+  +'e1'#217'd/'#215'b5'#212'eJ'#215'vG'#211's2'#184'J'#0#129#0#224#224#224#224
+  +#224#224#152#152#152'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'6'#225'j7'#226'k6'#225'j'
+  +'5'#221'hL'#222'yL'#218'xI'#213'uF'#209'r1'#183'I'#0#129#0#238#238#238#154
+  +#154#154#157#157#157#246#246#246#246#246#246#246#246#246#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#0#129#0'#'#197'F8'#227'l='#234'r>'
+  +#235's<'#233'pK'#230'{S'#226#128'N'#221'{J'#216'wG'#211's,'#181'D'#0#129#0
+  +#246#246#246#157#157#157#158#158#158#251#251#251#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#251#251#251#251#251#251#251#0#129#0'%'#199'H<'
+  +#233'pA'#240'wE'#246'{A'#239'vZ'#235#136'U'#229#130'P'#222'}K'#217'w.'#184'F'
+  +#0#129#0#251#251#251#251#251#251#158#158#158#158#158#158#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0'P'#222'}0'
+  +#187'I'#0#129#0#254#254#254#254#254#254#254#254#254#158#158#158#159#159#159
+  +#255#255#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#0#129#0'8'#193'Q'#0#129#0#157#157#157#255#255
+  +#255#255#255#255#255#255#255#159#159#159#159#159#159#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#0#129#0#0#129#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#159#159#159#159#159#159#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#0#129#0#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#159#159#159#158
+  +#158#158#255#255#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#255#255#255#255#255#255#255#255#255#158#158#158#158#158#158#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#158#158#158#157#157#157#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#157#157#157#156#156#156#242#242#242#242#242#242#242#242#242#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#242#242#242#242#242#242#242#242#242#156
+  ,#156#156#153#153#153#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#153#153#153#150#150
+  +#150#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#150#150#150#146#146#146#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#146#146#146#255#0#255#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROXMLRPCMESSAGE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#255#0#255#0#0#0'@'#0#192#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'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0'@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0
+  +#0#129#0#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0
+  +'8'#196'Z'#0#129#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#0#129#0#0#129#0#0#129#0#0#129#0'G'
+  +#212't:'#196'['#0#129#0#150#150#150#150#150#150#150#150#150#255#0#255'@'#0
+  +#192#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'@'#0#192'@@@2'#218'e1'#217
+  +'d/'#215'b5'#212'eJ'#215'vG'#211's2'#184'J'#0#129#0#224#224#224#224#224#224
+  +#152#152#152'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'6'#225'j7'#226'k6'#225'j5'#221
+  +'hL'#222'yL'#218'xI'#213'uF'#209'r1'#183'I'#0#129#0#238#238#238#154#154#154
+  +#157#157#157#246#246#246#246#246#246#246#246#246#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#0#129#0'#'#197'F8'#227'l='#234'r>'#235's<'
+  +#233'pK'#230'{S'#226#128'N'#221'{J'#216'wG'#211's,'#181'D'#0#129#0#246#246
+  +#246#157#157#157#158#158#158#251#251#251#251#251#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#251#251#251#251#251#0#129#0'%'#199'H<'#233'pA'
+  +#240'wE'#246'{A'#239'vZ'#235#136'U'#229#130'P'#222'}K'#217'w.'#184'F'#0#129#0
+  +#251#251#251#251#251#251#158#158#158#158#158#158#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#0#129#0
+  +#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0'P'#222'}0'#187'I'#0
+  +#129#0#254#254#254#254#254#254#254#254#254#158#158#158#159#159#159#255#255
+  +#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#0#129#0'8'#193'Q'#0#129#0#157#157#157#255#255#255#255
+  +#255#255#255#255#255#159#159#159#159#159#159#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#0
+  +#129#0#0#129#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#159#159#159#159#159#159#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#0#129#0#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#159#159#159#158#158
+  +#158#255#255#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#255#255#255#255#255#255#255#255#255#158#158#158#158#158#158#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#158#158#158#157#157#157#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#157#157#157#156#156#156#242#242#242#242#242#242#242#242#242#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#242#242#242#242#242#242#242#242#242#156#156
+  ,#156#153#153#153#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#153#153#153#150#150#150
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#150#150#150#146#146#146#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#146#146#146#255#0#255#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROJSONMESSAGE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0#0'@'#0#192#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'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0#129#0
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255
+  +#0#129#0#0#129#0#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#0#0#0'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#0
+  +#129#0'8'#196'Z'#0#129#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'
+  +#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#0#129#0#0#129#0#0#129#0#0
+  +#129#0'G'#212't:'#196'['#0#129#0#150#150#150#150#150#150#150#150#150#255#0
+  +#255'@'#0#192#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'@'#0#192'@@@2'#218
+  +'e1'#217'd/'#215'b5'#212'eJ'#215'vG'#211's2'#184'J'#0#129#0#224#224#224#224
+  +#224#224#152#152#152'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'6'#225'j7'#226'k6'#225'j'
+  +'5'#221'hL'#222'yL'#218'xI'#213'uF'#209'r1'#183'I'#0#129#0#238#238#238#154
+  +#154#154#157#157#157#246#246#246#246#246#246#246#246#246#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#0#129#0'#'#197'F8'#227'l='#234'r>'
+  +#235's<'#233'pK'#230'{S'#226#128'N'#221'{J'#216'wG'#211's,'#181'D'#0#129#0
+  +#246#246#246#157#157#157#158#158#158#251#251#251#251#251#251#251#251#251#251
+  +#251#251#251#251#251#251#251#251#251#251#251#251#251#251#0#129#0'%'#199'H<'
+  +#233'pA'#240'wE'#246'{A'#239'vZ'#235#136'U'#229#130'P'#222'}K'#217'w.'#184'F'
+  +#0#129#0#251#251#251#251#251#251#158#158#158#158#158#158#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0'P'#222'}0'
+  +#187'I'#0#129#0#254#254#254#254#254#254#254#254#254#158#158#158#159#159#159
+  +#255#255#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#0#129#0'8'#193'Q'#0#129#0#157#157#157#255#255
+  +#255#255#255#255#255#255#255#159#159#159#159#159#159#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#0#129#0#0#129#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#159#159#159#159#159#159#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#0#129#0#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#159#159#159#158
+  +#158#158#255#255#255#255#255#255#255#255#255#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#255#255#255#255#255#255#255#255#255#158#158#158#158#158#158#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252#252
+  +#252#252#252#252#252#252#252#158#158#158#157#157#157#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248#248
+  +#248#248#248#157#157#157#156#156#156#242#242#242#242#242#242#242#242#242#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157#157
+  +#157#157#157#157#157#157#157#157#157#242#242#242#242#242#242#242#242#242#156
+  ,#156#156#153#153#153#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231#231
+  +#231#231#231#231#231#231#231#231#231#231#231#231#231#231#153#153#153#150#150
+  +#150#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218#218
+  +#218#218#218#218#218#218#218#218#218#218#150#150#150#146#146#146#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201#201
+  +#201#201#201#201#201#201#146#146#146#255#0#255#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144#144
+  +#144#144#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROMESSAGEENVELOPE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0#0
+  +#0#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']'
+  +'Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#142']Y'#255#0#255#255#0#255#142']Y'#172'yg'#235#178
+  +#131#255#196#139#255#196#138#254#196#138#255#196#139#255#196#139#255#196#138
+  +#255#196#138#255#196#139#255#196#138#255#196#138#255#196#138#255#196#138#255
+  +#196#139#255#196#139#255#196#139#255#196#139#255#197#139#235#178#130#172'yg'
+  +#142']Y'#255#0#255#142']Y'#217#167#132#166'ug'#247#197#150#255#203#152#254
+  +#203#152#255#203#153#255#203#152#255#203#153#254#203#152#255#202#152#254#203
+  +#153#254#203#153#255#203#152#255#203#153#255#203#152#254#203#152#255#203#153
+  +#255#203#152#248#197#150#166'ug'#217#166#132#142']Y'#255#0#255#142']Y'#254
+  +#212#170#194#147'~'#186#138'x'#255#212#169#255#212#170#255#212#170#255#212
+  +#170#254#212#170#254#212#170#255#212#169#255#212#170#254#212#170#255#212#170
+  +#254#212#170#254#212#170#255#212#170#255#212#170#255#212#170#184#138'x'#194
+  +#147'~'#254#212#170#142']Y'#255#0#255#142']Y'#254#222#189#251#218#187#172#128
+  +'u'#209#170#149#254#222#188#255#221#188#255#222#188#254#222#188#254#221#189
+  +#255#221#189#255#221#189#255#222#188#254#221#189#254#222#189#254#222#188#255
+  +#221#188#255#221#189#209#170#149#172#128't'#252#218#186#255#222#188#142']Y'
+  +#255#0#255#142']Y'#254#231#208#255#231#208#240#213#194#161'um'#233#203#183
+  +#255#231#208#255#231#208#254#231#208#255#231#208#254#231#208#255#231#208#254
+  +#231#208#254#231#208#254#231#208#254#231#208#254#231#208#231#203#184#161'um'
+  +#239#213#193#254#231#208#254#231#208#142']Y'#255#0#255#142']Y'#254#240#226
+  +#254#240#227#254#240#226#221#197#187#163'xs'#246#230#218#255#240#227#254#240
+  +#227#254#240#227#254#240#226#254#240#227#254#240#226#254#240#227#254#240#226
+  +#254#240#226#247#230#218#163'xs'#222#197#186#254#240#226#254#240#227#254#240
+  +#226#142']Y'#255#0#255#142']Y'#254#248#242#254#248#243#254#248#242#255#247
+  +#243#197#167#163#181#145#140#254#248#243#254#248#243#254#248#242#254#247#242
+  +#254#248#243#254#248#242#254#248#243#254#248#242#255#248#243#181#145#140#197
+  +#169#164#254#247#243#254#248#243#254#248#242#254#248#242#142']Y'#255#0#255
+  +#142']Y'#254#254#254#254#254#254#254#254#254#254#254#254#252#251#251#173#137
+  +#135#204#181#180#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#202#178#176#175#139#136#252#251#251#254#254#254#254
+  +#254#254#254#254#254#254#254#254#142']Y'#255#0#255#142']Y'#254#254#254#254
+  +#254#254#254#254#254#252#251#251#199#173#172#172#136#132#152'kh'#152'kh'#152
+  +'kh'#152'kh'#152'kh'#152'kh'#152'kh'#152'kh'#152'kh'#194#166#164#252#251#251
+  +#254#254#254#254#254#254#254#254#254#254#254#254#142']Y'#255#0#255#142']Y'
+  +#254#254#254#254#254#254#240#235#234#173#137#134#180#145#143#244#240#240#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#254#244#240#240#180#145#143#173#137#134#240#235#234#254#254#254
+  +#254#254#254#254#254#254#142']Y'#255#0#255#142']Y'#254#254#254#220#204#202
+  +#160'vs'#206#182#181#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#206#182#181#160'vs'#220#204#202#254#254#254#254#254#254#142']Y'
+  +#255#0#255#142']Y'#198#172#170#165'~z'#172#172#172#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#233#222
+  +#221#165'~z'#198#172#170#254#254#254#142']Y'#255#0#255#142']Y'#161#134#135
+  +#165#230#230#172#172#172#255#255#255#251#255#255#250#255#255#246#255#255#246
+  +#255#255#239#255#255#239#255#255#239#255#255#242#255#255#242#255#255#244#255
+  +#255#246#255#255#244#255#255#239#255#255#231#246#246#209#225#225#181#183#183
+  +#178#157#157#142']Y'#255#0#255#142']Y'#166#149#152#167#254#255#172#172#172
+  +#254#255#255#251#255#255#251#255#255#251#255#255#255#255#255#255#255#255#255
+  +#255#255#251#255#255#238#247#247#213#222#224#193#204#206#182#189#191#173#180
+  +#181#172#173#173#170#173#175#161#175#180#154#172#178#163#144#146#142']Y'#255
+  +#0#255#255#0#255#142']Y'#184#150#150#172#172#172#255#255#255#255#255#255#255
+  +#255#255#233#235#235#206#213#215#189#197#198#177#186#186#170#175#176#170#172
+  +#173#163#173#176#151#175#181#137#175#186'~'#175#192's'#177#204'g'#186#224'y'
+  ,#170#199#166#131#137#142']Y'#255#0#255#255#0#255#255#0#255#255#0#255#142']Y'
+  +#198#150#149#173#180#181#171#186#186#172#172#172#165#182#184#154#186#188#143
+  +#191#197#129#201#207'v'#209#218'm'#216#231'n'#216#235'p'#212#235'r'#209#237
+  +'o'#215#247'm'#215#252#145#173#194#142']Y'#142']Y'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#142']Y'#151'tr'#153#182#187'r'#240#251'k'
+  +#246#255'p'#234#250'r'#235#251'r'#238#252't'#239#255't'#240#255'u'#237#254'v'
+  +#231#252'o'#235#255'w'#218#244#154#169#182#142']Y'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#142']Y'#176#149#150#134#209#217'k'#255#255'r'#246#255't'#239#255't'#239#255
+  +'t'#239#255'p'#244#255'm'#248#255#135#202#217#176#146#150#142']Y'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#142']Y'#142']Y'#152#186#191'w'#235#246'm'
+  +#251#255'm'#251#255'n'#248#255'u'#238#251#152#186#191#142']Y'#142']Y'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#142']'
+  +'Y'#142']Y'#157#175#178#149#187#193#158#173#176#142']Y'#142']Y'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#142']Y'#142']Y'#142']Y'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
+  +#0
+]);
+LazarusResources.Add('TROAESENCRYPTIONENVELOPE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#0#153#204#0#153#204#0#153#204#0#153#204#0#153#204#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@A'#225#255'K'#228#255'<'#223#255','
+  +#218#255#24#202#245#0#153#204#0#153#204#142']Y'#142']Y'#142']Y'#255#0#255'@'
+  +#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@O'#229#255'_'#234#255'Q'
+  +#230#255'7'#200#232#13#132#177'#'#215#255#16#200#245#0#153#204#235#178#130
+  +#172'yg'#142']Y@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@['#233#255
+  +'p'#240#255'd'#236#255''''#138#166#0'Jo.'#194#228'+'#218#255#0#153#204#166'u'
+  +'g'#217#166#132#142']Y@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@d'
+  +#236#255'~'#244#255'u'#241#255'#i~'#0'2L'#23'n'#139'B'#225#255#0#153#204#194
+  +#147'~'#254#212#170#142']Y@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@l'
+  +#239#255#138#248#255#130#246#255'U'#180#194#0''';D'#175#194'W'#232#255#0#153
+  +#204#252#218#186#255#222#188#142']Y@'#0#192#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'@'#0#192'@@@q'#240#255#147#251#255#141#249#255'~'#234#243'Q'#168
+  +#182't'#241#255'i'#238#255#0#153#204#254#231#208#254#231#208#142']Y@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192't'#228#243#152#152#152#143#175#179#210#254#255#203#253
+  +#255#190#251#255#156#248#255'y'#243#255#0#153#204#254#240#227#254#240#226#142
+  +']Y'#255#0#255#142']Y'#254#248#242#254#248#243#254#248#242#255#247#243#197
+  +#167#163#181#145#140#254#248#243#254#248#243#254#248#242#0#153#204#24#152#190
+  +#152#152#152#143#175#179't'#241#255#134#245#255#151#249#255#152#152#152#164
+  +#251#255#0#153#204#254#248#242#254#248#242#142']Y'#255#0#255#142']Y'#254#254
+  +#254#254#254#254#254#254#254#254#254#254#252#251#251#173#137#135#204#181#180
+  +#254#254#254#254#254#254#254#254#254#0#153#204#152#152#152'x'#161#172#25#193
+  +#236''''#204#242'g'#187#204#152#152#152'h'#209#226#0#153#204#254#254#254#254
+  +#254#254#142']Y'#255#0#255#142']Y'#254#254#254#254#254#254#254#254#254#252
+  +#251#251#199#173#172#172#136#132#152'kh'#152'kh'#152'kh'#152'kh'#152'kh'#152
+  +#152#152#131#153#160#0#153#204#0#153#204'R'#153#177#152#152#152#0#153#204#254
+  +#254#254#254#254#254#254#254#254#142']Y'#255#0#255#142']Y'#254#254#254#254
+  +#254#254#240#235#234#173#137#134#180#145#143#244#240#240#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#152#152#152#153#153#153#254#254#254
+  +#244#240#240#153#153#153#152#152#152#240#235#234#254#254#254#254#254#254#254
+  +#254#254#142']Y'#255#0#255#142']Y'#254#254#254#220#204#202#160'vs'#206#182
+  +#181#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#152#152#152#223#222#222#152#152#152#152#152#152#146#145#144#152
+  +#152#152#160'vs'#220#204#202#254#254#254#254#254#254#142']Y'#255#0#255#142']'
+  +'Y'#198#172#170#165'~z'#172#172#172#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#152#152#152#182#182
+  +#182#224#224#224#159#159#159#163#163#163#152#152#152#233#222#221#165'~z'#198
+  +#172#170#254#254#254#142']Y'#255#0#255#142']Y'#161#134#135#165#230#230#172
+  +#172#172#255#255#255#251#255#255#250#255#255#246#255#255#246#255#255#239#255
+  +#255#239#255#255#239#255#255#242#255#255#152#152#152#152#152#152#152#152#152
+  +#152#152#152#239#255#255#231#246#246#209#225#225#181#183#183#178#157#157#142
+  +']Y'#255#0#255#142']Y'#166#149#152#167#254#255#172#172#172#254#255#255#251
+  +#255#255#251#255#255#251#255#255#255#255#255#255#255#255#255#255#255#251#255
+  +#255#238#247#247#213#222#224#193#204#206#182#189#191#173#180#181#172#173#173
+  +#170#173#175#161#175#180#154#172#178#163#144#146#142']Y'#255#0#255#255#0#255
+  +#142']Y'#184#150#150#172#172#172#255#255#255#255#255#255#255#255#255#233#235
+  +#235#206#213#215#189#197#198#177#186#186#170#175#176#170#172#173#163#173#176
+  +#151#175#181#137#175#186'~'#175#192's'#177#204'g'#186#224'y'#170#199#166#131
+  +#137#142']Y'#255#0#255#255#0#255#255#0#255#255#0#255#142']Y'#198#150#149#173
+  +#180#181#171#186#186#172#172#172#165#182#184#154#186#188#143#191#197#129#201
+  +#207'v'#209#218'm'#216#231'n'#216#235'p'#212#235'r'#209#237'o'#215#247'm'#215
+  ,#252#145#173#194#142']Y'#142']Y'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#142']Y'#151'tr'#153#182#187'r'#240#251'k'#246#255'p'#234#250
+  +'r'#235#251'r'#238#252't'#239#255't'#240#255'u'#237#254'v'#231#252'o'#235#255
+  +'w'#218#244#154#169#182#142']Y'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#142']Y'#176#149#150
+  +#134#209#217'k'#255#255'r'#246#255't'#239#255't'#239#255't'#239#255'p'#244
+  +#255'm'#248#255#135#202#217#176#146#150#142']Y'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#142']Y'#142']Y'#152#186#191'w'#235#246'm'#251#255'm'#251#255
+  +'n'#248#255'u'#238#251#152#186#191#142']Y'#142']Y'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#142']Y'#142']Y'#157#175
+  +#178#149#187#193#158#173#176#142']Y'#142']Y'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#142']Y'#142']Y'#142']Y'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROWININETHTTPCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'422'#168#162
+  +#167'}st'#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#254#150#18
+  +#254#150#18#169'~H'#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189
+  +'H'#22#166'%'#26#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0':77'
+  +#165#164#165'opp'#254#150#18#254#150#18#254#150#18#254#150#18#254#162'!'#254
+  +#162'!'#254#162'!'#254#162'!\'#191'Ux'#219'|'#165#241#165#165#241#165'u'#218
+  +'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255#135#22't~'#2#2#129#0#255#0#255'42'
+  +'2'#178#176#178'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'
+  +#255#172'0'#255#176'6'#255#172'0BqCh'#207'h'#129#221#130#129#221#130'e'#206
+  +'fD'#186'E'#28#163'#:'#151#26#217#146'#'#255#132#18'R~'#2#2#129#0#255#0#255
+  +'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255#186'D'
+  +#255#186'D'#255#186'D'#255#186'D'#255#180'<F'#134'FV'#197'WV'#197'WI'#188'I2'
+  +#172'3'#12#153#22'#'#139#12#206#139#24#255'~'#10#255'~'#10#255#0#255#255#0
+  +#255'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255
+  +#196'U'#255#196'U'#255#199'\'#255#196'U'#255#192'M'#255#186'DBqC.q0%'#168')'
+  +#26#152#23#6#139#8'`'#137#14#244#132#16#255#0#255#255#0#255#255#0#255#255#0
+  +#255'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199'\'#255
+  +#205'e'#255#208'j'#255#205'e'#255#205'e'#255#199'\'#255#196'U'#255#186'D'#255
+  +#180'<'#255#172'0'#137'h8*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'#255#208
+  +'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'#255#196
+  +'U'#255#186'D'#255#172'0'#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'
+  +#255#216'v'#255#221#129#254#226#136#254#226#136#255#221#129#255#217'x'#255
+  +#208'j'#255#199'\'#255#192'M'#255#180'<'#130'kM*%%'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201
+  +']'#255#216'v'#255#217'x'#254#230#144#254#234#152#254#234#152#254#230#144#255
+  +#221#129#255#216'v'#255#205'e'#255#196'U'#255#186'D'#130'kM*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'opp'#255#196
+  +'U'#255#205'e'#255#216'v'#255#221#129#254#234#152#254#242#166#254#243#169#254
+  +#234#152#254#226#136#255#216'v'#255#205'e'#255#196'U'#255#186'D'#134'oS*%%'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181
+  +'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226#136#254#234#150#254#242#166
+  +#254#243#169#254#234#152#254#226#136#255#216'v'#255#208'j'#255#196'U'#255#186
+  +'D'#137'tW*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'9'
+  +'89'#184#183#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'
+  +#203#181'y'#197#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<------'#212#209#213#196
+  +#196#197#173#172#173#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'
+  +#135't`}st*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'HJKHJK'#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161
+  +#154#160#144#141#145#139#131#137#132'yzZST*%%'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJK'
+  +#30#30#30'111------------989422111'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROWINMESSAGECHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188
+  +'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'
+  +#255#224#186#255#220#177#255#216#169#255#212#163#255#209#159#255#209#159#255
+  +#209#159#255#209#159#255#209#159#255#216#169#188'K'#0'@'#0#192#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'@'#0#192'@@@'#188'K'#0#188'K'#0#188'K'#0#188
+  +'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#255#216#169#188'K'#0'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#188'K'#0#199#199#198#199
+  +#194#187#199#189#175#199#182#160#199#180#157#199#180#157#199#180#157#188'K'#0
+  +#255#212#163#188'K'#0'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#188'K'#0#199#199#198#199#194#187#199#190#180#199#184#167#6'C'#150#199#175
+  +#150#202#181#158#188'K'#0#255#212#163#188'K'#0'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +#255#255#255'@'#0#192'@@@'#188'K'#0#199#199#198#199#199#198#199#199#198#199
+  +#189#175'+b'#145#22'V'#154#202#184#161#188'K'#0#255#212#163#188'K'#0'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#188'K'#0#199#199#198#199#199#198
+  +#199#199#198#199#194#187#199#190#180#18'p'#218#202#184#161#188'K'#0#255#212
+  +#163#188'K'#0'@'#0#192#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'@'#0#192
+  +'@@@'#188'K'#0#199#199#198#199#199#198#199#199#198#199#199#198#22'S'#149#26
+  +#128#230'"V'#142#188'K'#0#255#216#169#188'K'#0'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192#255#254#254#188'K'#0#189#158'}'#1'G'#165#189#158'}'#189#158'}!'#129#220
+  +#23'u'#216#8'Mo'#188'K'#0#255#220#177#188'K'#0'422'#168#162#167'}st'#254#150
+  +#18#254#145#12#254#150#18#188'K'#0#255#254#254#255#254#254#255#254#254#255
+  +#254#254#255#254#254#255#254#254#255#254#254#188'K'#0#1'G'#165#24't'#207#30
+  +''#216'"'#146#251#11'Q'#146#31'x<'#255#216#169#254#229#201#188'K'#0':77'#165
+  +#164#165'opp'#254#150#18#254#150#18#254#150#18#188'K'#0#255#254#254#255#254
+  +#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254
+  +#1'G'#165#21#131#251#22#131#248#12'['#188#255#233#207#254#229#201#254#229#198
+  +#254#229#198#188'K'#0'422'#178#176#178'xux'#254#150#18#254#158#28#254#162'!'
+  +#188'K'#0#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254
+  +#254#255#254#254#255#254#254#1'G'#165#10'n'#235#10'o'#235#6'P'#181#255#239
+  +#224#254#233#208#254#229#201#254#233#208#188'K'#0'989'#182#176#181'}st'#254
+  +#162'!'#255#172'0'#255#172'0'#188'K'#0#255#254#254#255#254#254#255#254#254
+  +#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#1'G'#165#1'G'
+  +#165#1'G'#165#1'G'#165#1'G'#165#255#254#254#255#248#240#255#254#254#188'K'#0
+  +'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'#188'K'#0#239#172'_'
+  +#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'
+  +#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'#238#164'S'#238#164'S'
+  +#239#169'W'#188'K'#0'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'
+  +#188'K'#0#196'H'#0#196'H'#0#196'H'#0#196'H'#0#196'H'#0#196'H'#0#196'H'#0#196
+  +'H'#0#196'H'#0#196'H'#0#196'H'#0#194'H'#0#194'H'#0#194'H'#0#196'H'#0#196'H'#0
+  +#188'K'#0'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'#255#208'j'
+  +#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188
+  +'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#255#0
+  +#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'#255#216'v'#255
+  +#221#129#254#226#136#254#226#136#255#221#129#255#217'x'#255#208'j'#255#199'\'
+  +#255#192'M'#255#180'<'#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201']'#255#216'v'#255
+  +#217'x'#254#230#144#254#234#152#254#234#152#254#230#144#255#221#129#255#216
+  +'v'#255#205'e'#255#196'U'#255#186'D'#130'kM*%%'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'989'#184#183#184'opp'#255#196'U'#255#205'e'
+  +#255#216'v'#255#221#129#254#234#152#254#242#166#254#243#169#254#234#152#254
+  +#226#136#255#216'v'#255#205'e'#255#196'U'#255#186'D'#134'oS*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181'vtv'#201#161
+  +'W'#189#154'Q'#238#201'n'#254#226#136#254#234#150#254#242#166#254#243#169#254
+  +#234#152#254#226#136#255#216'v'#255#208'j'#255#196'U'#255#186'D'#137'tW*%%'
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184
+  +'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203#181'y'#197
+  +#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'A<<------'#212#209#213#196#196#197#173#172
+  +#173#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%%'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154
+  +#160#144#141#145#139#131#137#132'yzZST*%%'#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#30#30#30'111------------989422111'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROWINMESSAGESERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188
+  +'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'
+  +#255#224#186#255#220#177#255#216#169#255#212#163#255#209#159#255#209#159#255
+  +#209#159#255#209#159#255#209#159#255#216#169#188'K'#0'@'#0#192#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'@'#0#192'@@@'#188'K'#0#188'K'#0#188'K'#0#188
+  +'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#255#216#169#188'K'#0'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#188'K'#0#199#199#198#199
+  +#194#187#199#189#175#199#182#160#199#180#157#199#180#157#199#180#157#188'K'#0
+  +#255#212#163#188'K'#0'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#188'K'#0#199#199#198#199#194#187#199#190#180#199#184#167#6'C'#150#199#175
+  +#150#202#181#158#188'K'#0#255#212#163#188'K'#0'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +#255#255#255'@'#0#192'@@@'#188'K'#0#199#199#198#199#199#198#199#199#198#199
+  +#189#175'+b'#145#22'V'#154#202#184#161#188'K'#0#255#212#163#188'K'#0'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#188'K'#0#199#199#198#199#199#198
+  +#199#199#198#199#194#187#199#190#180#18'p'#218#202#184#161#188'K'#0#255#212
+  +#163#188'K'#0'@'#0#192#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'@'#0#192
+  +'@@@'#188'K'#0#199#199#198#199#199#198#199#199#198#199#199#198#22'S'#149#26
+  +#128#230'"V'#142#188'K'#0#255#216#169#188'K'#0'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192#255#254#254#188'K'#0#189#158'}'#1'G'#165#189#158'}'#189#158'}!'#129#220
+  +#23'u'#216#8'Mo'#188'K'#0#255#220#177#188'K'#0'HJK'#196#189#194#192#186#192
+  +#189#183#189#189#183#189'HJK'#188'K'#0#255#254#254#255#254#254#255#254#254
+  +#255#254#254#255#254#254#255#254#254#255#254#254#188'K'#0#1'G'#165#24't'#207
+  +#30''#216'"'#146#251#11'Q'#146#31'x<'#255#216#169#254#229#201#188'K'#0'HJK'
+  +#198#193#198#194#189#194#192#186#192#189#183#189'HJK'#188'K'#0#255#254#254
+  +#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255
+  +#254#254#1'G'#165#21#131#251#22#131#248#12'['#188#255#233#207#254#229#201#254
+  +#229#198#254#229#198#188'K'#0'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#188'K'#0#255#254#254#255#254#254#255#254#254#255#254#254#255
+  +#254#254#255#254#254#255#254#254#255#254#254#1'G'#165#10'n'#235#10'o'#235#6
+  +'P'#181#255#239#224#254#233#208#254#229#201#254#233#208#188'K'#0'HJK'#206#202
+  +#206#202#197#202#198#193#198#196#188#196'HJK'#188'K'#0#255#254#254#255#254
+  +#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254#255#254#254
+  +#1'G'#165#1'G'#165#1'G'#165#1'G'#165#1'G'#165#255#254#254#255#248#240#255#254
+  +#254#188'K'#0'HJK'#212#208#212#207#202#207#203#197#202#198#192#198'HJK'#188
+  +'K'#0#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239
+  +#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'#239#172'_'#238
+  +#164'S'#238#164'S'#239#169'W'#188'K'#0'HJK'#217#213#216#212#208#212#207#202
+  +#207#203#197#202'HJK'#188'K'#0#196'H'#0#196'H'#0#196'H'#0#196'H'#0#196'H'#0
+  +#196'H'#0#196'H'#0#196'H'#0#196'H'#0#196'H'#0#196'H'#0#194'H'#0#194'H'#0#194
+  +'H'#0#196'H'#0#196'H'#0#188'K'#0'HJK'#222#218#221#217#213#217#233#231#234#207
+  +#202#207'HJK'#238#237#240#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'
+  +#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0#188'K'#0
+  +#188'K'#0#188'K'#0#255#0#255'HJK'#227#224#227#238#237#238#156#154#156#211#207
+  +#211'HJK'#237#237#239'HJKTVWcddnnn'#140#140#140#140#140#140#140#140#140#166
+  +#166#166'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'HJK'#231#230#231#144#144#146#158#157#158#216#212#216'HJK'
+  +#206#207#208#207#207#207#134#135#135'ceeNPQMOP\]]kkl'#146#146#146'HJK'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'H'
+  +'JK'#237#235#237#146#146#147#227#224#226#255#255#255#176#176#178'QRSUVWuvw'
+  +#169#170#170#211#211#212#189#189#191''#128#129'[\]JLMHJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#240#240
+  +#242#237#235#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191
+  +#151#149#152'onrXYZNPQhij'#147#149#150#208#209#209'HJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#246#246#246
+  ,#255#255#255#238#238#240#242#242#244#238#237#239#229#227#231#217#215#218#203
+  +#199#204#189#183#189#173#167#173#153#145#151#153#145#151'zsuHJK'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'HJK'#255#255#255#237#237#239#248#248#250#251#251#252#246#244#247#234#234
+  +#237#221#220#224#207#204#208#192#187#193#176#170#176#160#152#158'HJKHJK'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJKHJK'#233#233#234#252#252#252#246#246#247
+  +#235#234#238#222#220#224#208#204#208#193#187#193'HJKHJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKHJK'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROLOCALCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#30#30#30#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#132'yzFFF'#30#30#30#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#132'yz'#132'yz'#30#30#30#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0
+  +#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#132'yzZST---'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@FFF---'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0
+  +#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#137'&'#2#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'@'#0#192#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'@'#0#192'@@@'#30#30
+  +#30#30#30#30#255#0#255#138''''#3#156'4'#2#138''''#3#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#144#133#136'tlnFF'
+  +'F'#30#30#30#138''''#3#173'A'#1#171'>'#1#138''''#3#255#0#255#255#0#255#255#0
+  +#255#255#0#255'422'#168#162#167'}st'#254#150#18#254#145#12#254#150#18#254#150
+  +#18#254#150#18#254#150#18#254#150#18#254#171'9'#234#181'h'#215#186#147#182
+  +#176#181#156#146#147#136'}~'#138''''#3#142')'#3#184'I'#0#159'5'#1#138''''#3
+  +#255#0#255#255#0#255#255#0#255':77'#165#164#165'opp'#254#150#18#254#150#18
+  +#254#150#18#254#150#18#137'&'#2#137'&'#2#137'&'#2#137'&'#2#137'&'#2#137'&'#2
+  +#137'&'#2#138''''#3#138''''#3#255#0#255#138''''#3#142')'#3#184'I'#0#152'0'#2
+  +#138''''#3#255#0#255#255#0#255'422'#178#176#178'xux'#254#150#18#254#158#28
+  +#254#162'!'#255#172'0'#137'&'#2#216'r'#27#198'['#12#182'I'#2#180'C'#0#181'E'
+  +#0#182'E'#0#182'F'#0#156'4'#2#137'&'#2'422'#138''''#3#147'.'#2#184'I'#0#142
+  +')'#3#255#0#255#255#0#255'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172
+  +'0'#255#180'<'#137'&'#2#255#166'7'#226'{'#30#216'l'#16#137'&'#2#137'&'#2#137
+  +'&'#2#137'&'#2#137'&'#2#159'l*'#30#30#30#255#0#255#138''''#3#166';'#1#166';'
+  +#1#138''''#3#255#0#255'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'
+  +#255#191'M'#137'&'#2#255#170'9'#226'{'#30#222'y'#30#193'Y'#15#135'#'#2#255
+  +#180'<'#255#172'0'#254#162'!'#159'l*---'#255#0#255#255#0#255#144'+'#2#182'E'
+  +#0#137''''#3#255#0#255'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'
+  +#255#199'\'#137'&'#2#255#170'9'#160';'#10#138'('#3#246#147'*'#172'F'#12#135
+  +'$'#2#255#180'<'#255#172'0'#137'h8*%%'#255#0#255#255#0#255#137'&'#3#196'Q'#0
+  +#137'&'#3#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'
+  +#255#208'j'#137'&'#2#255#171':'#137'&'#2#134'#'#1#157'8'#9#250#152'.'#194'['
+  +#18#135'$'#2#255#172'0'#130'kM*%%'#255#0#255#138''''#3#147'-'#2#188'K'#0#137
+  +'&'#3#255#0#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'#255
+  +#216'v'#137'&'#2#255#171':'#137'&'#2#255#221#129#136'$'#2#158'8'#9#235#137'('
+  +#209'l'#25#142'('#3#137'%'#2'*%%'#138'&'#3#137'&'#3#177'C'#0#166';'#1#138''''
+  +#3#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201']'#255#216'v'#255#217
+  +'x'#137'&'#2#255#172':'#137'&'#2#254#230#144#255#221#129#137'%'#2#143'*'#3
+  +#213'p'#31#234#134'#'#171'C'#9#154'4'#3#151'/'#2#177'C'#0#182'E'#0#142')'#3
+  +#255#0#255#255#0#255'989'#184#183#184'opp'#255#196'U'#255#205'e'#255#216'v'
+  +#255#221#129#136'$'#2#251#156'3'#137'&'#2#254#234#152#254#226#136#255#216'v'
+  +#137'&'#2#136'$'#2#165'@'#12#203'e'#22#203'`'#15#178'F'#3#154'3'#2#137'&'#3
+  +#138''''#3#255#0#255#255#0#255'A<<'#182#176#181'vtv'#201#161'W'#189#154'Q'
+  +#238#201'n'#254#226#136#254#234#150#137'%'#2#254#243#169#254#234#152#254#226
+  +#136#255#216'v'#255#208'j'#255#196'U'#137'&'#2#137'%'#2#137'&'#2#137'&'#3#138
+  +''''#3#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'nmnnmnoppopp'
+  +'a]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203#181'y'#197#167'b'#238#192
+  +'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255'A<<------'#212#209#213#196#196#197#173#172#173#160#160
+  +#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160#144#141#145
+  +#139#131#137#132'yzZST*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#30#30#30'111------------989422111'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROLOCALSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@HJKHJKHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#137
+  +'&'#2#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#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'@'#0#192'@@@{{{'#147#147#147'II'
+  +'I'#138''''#3#156'4'#2#138''''#3#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'{{{{{{'#147#147#147'III'#138''''#3
+  +#173'A'#1#171'>'#1#138''''#3#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#196
+  +#189#194#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{{{{{{'
+  +'{{{{{{{'#147#147#147'III'#138''''#3#142')'#3#184'I'#0#159'5'#1#138''''#3#255
+  +#0#255#255#0#255#255#0#255'HJK'#198#193#198#194#189#194#192#186#192#189#183
+  +#189'HJK'#222#221#225#137'&'#2#137'&'#2#137'&'#2#137'&'#2#137'&'#2#137'&'#2
+  +#137'&'#2#138''''#3#138''''#3#255#0#255#138''''#3#142')'#3#184'I'#0#152'0'#2
+  +#138''''#3#255#0#255#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#227#226#230#137'&'#2#216'r'#27#198'['#12#182'I'#2#180'C'#0#181
+  +'E'#0#182'E'#0#182'F'#0#156'4'#2#137'&'#2#255#0#255#138''''#3#147'.'#2#184'I'
+  +#0#142')'#3#255#0#255#255#0#255'HJK'#206#202#206#202#197#202#198#193#198#196
+  +#188#196'HJK'#231#230#234#137'&'#2#255#166'7'#226'{'#30#216'l'#16#137'&'#2
+  +#137'&'#2#137'&'#2#137'&'#2#137'&'#2#255#0#255#255#0#255#255#0#255#138''''#3
+  +#166';'#1#166';'#1#138''''#3#255#0#255'HJK'#212#208#212#207#202#207#203#197
+  +#202#198#192#198'HJK'#235#234#237#137'&'#2#255#170'9'#226'{'#30#222'y'#30#193
+  +'Y'#15#135'#'#2'{{{'#147#147#147'HJK'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#144'+'#2#182'E'#0#137''''#3#255#0#255'HJK'#217#213#216#212#208#212#207#202
+  +#207#203#197#202'HJK'#237#237#239#137'&'#2#255#170'9'#160';'#10#138'('#3#246
+  +#147'*'#172'F'#12#135'$'#2#167#167#167'HJK'#255#0#255#255#0#255#255#0#255#255
+  +#0#255#137'&'#3#196'Q'#0#137'&'#3#255#0#255'HJK'#222#218#221#217#213#217#233
+  +#231#234#207#202#207'HJK'#238#237#240#137'&'#2#255#171':'#137'&'#2#134'#'#1
+  +#157'8'#9#250#152'.'#194'['#18#135'$'#2'HJK'#255#0#255#255#0#255#255#0#255
+  +#138''''#3#147'-'#2#188'K'#0#137'&'#3#255#0#255'HJK'#227#224#227#238#237#238
+  +#156#154#156#211#207#211'HJK'#237#237#239#137'&'#2#255#171':'#137'&'#2'nnn'
+  +#136'$'#2#158'8'#9#235#137'('#209'l'#25#142'('#3#137'%'#2#255#0#255#138'&'#3
+  +#137'&'#3#177'C'#0#166';'#1#138''''#3#255#0#255'HJK'#231#230#231#144#144#146
+  +#158#157#158#216#212#216'HJK'#206#207#208#137'&'#2#255#172':'#137'&'#2'NPQMO'
+  +'P'#137'%'#2#143'*'#3#213'p'#31#234#134'#'#171'C'#9#154'4'#3#151'/'#2#177'C'
+  +#0#182'E'#0#142')'#3#255#0#255#255#0#255'HJK'#237#235#237#146#146#147#227#224
+  +#226#255#255#255#176#176#178'QRS'#136'$'#2#251#156'3'#137'&'#2#211#211#212
+  +#189#189#191''#128#129#137'&'#2#136'$'#2#165'@'#12#203'e'#22#203'`'#15#178
+  +'F'#3#154'3'#2#137'&'#3#138''''#3#255#0#255#255#0#255'HJK'#240#240#242#237
+  +#235#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191#137'%'#2
+  +'onrXYZNPQhij'#147#149#150#208#209#209#137'&'#2#137'%'#2#137'&'#2#137'&'#3
+  +#138''''#3#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#246#246#246#255#255
+  +#255#238#238#240#242#242#244#238#237#239#229#227#231#217#215#218#203#199#204
+  +#189#183#189#173#167#173#153#145#151#153#145#151'zsuHJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'
+  ,#255#255#255#237#237#239#248#248#250#251#251#252#246#244#247#234#234#237#221
+  +#220#224#207#204#208#192#187#193#176#170#176#160#152#158'HJKHJK'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'HJKHJK'#233#233#234#252#252#252#246#246#247#235#234
+  +#238#222#220#224#208#204#208#193#187#193'HJKHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKHJK'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TRONAMEDPIPECHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#206'l'#9#255#240#194#235
+  +#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@@@'#30#30#30#30#30#30#255#0#255#206'l'#9#255#240#194#235#140
+  +')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#132'yzFFF'#30#30#30#206'l'#9#255
+  +#240#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#132'yz'#132'yz'#30#30#30#206
+  +'l'#9#255#240#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#132'yzZST---'#206'l'
+  +#9#255#240#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'
+  +#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@FFF---III'#206'l'#9#255#240
+  +#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#206'l'#9#255#240
+  +#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#30#30#30#30#30#30'III'
+  +#206'l'#9#255#240#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192#144#133#136'tln'#8'u'#13#8'u'#13#8'u'#13
+  +#8'u'#13#8'u'#13#8'u'#13#8'u'#13#8'u'#13#255#0#255#255#0#255'422'#168#162#167
+  +'}st'#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#254#150#18#254
+  +#150#18#254#171'9'#234#181'h'#215#186#147#182#176#181#8'u'#13'7'#199'T/'#192
+  +'I'''#186'= '#179'2'#23#174''''#17#169#31#8'u'#13#255#0#255#255#0#255':77'
+  +#165#164#165'opp'#254#150#18#254#150#18#254#150#18#254#150#18#254#162'!'#254
+  +#162'!'#254#162'!'#254#162'!'#254#153#22#254#153#22#254#150#18#8'u'#13'D'#209
+  +'f<'#203'[4'#197'P-'#190'E$'#183'9'#28#178'/'#8'u'#13#255#0#255#255#0#255'42'
+  +'2'#178#176#178'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'
+  +#255#172'0'#255#176'6'#255#172'0'#255#172'0'#8'u'#13#8'u'#13#8'u'#13'N'#218
+  +'uH'#213'lA'#207'c9'#201'W2'#195'M)'#189'A'#8'u'#13#8'u'#13#8'u'#13'989'#182
+  +#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255#186'D'#255#186
+  +'D'#255#186'D'#255#186'D'#255#180'<'#8'u'#13'A'#196'aT'#222'}T'#222'}Q'#220
+  +'yL'#216'rF'#211'j?'#205'_7'#199'T/'#192'I'#31#169'1'#8'u'#13'989'#182#176
+  +#181'xux'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255#196'U'#255#196'U'
+  +#255#199'\'#255#196'U'#255#192'M'#255#186'D'#8'u'#13'A'#196'aT'#222'}T'#222
+  +'}T'#222'}P'#219'xK'#214'pD'#209'f/'#181'G'#8'u'#13#255#0#255'989'#188#185
+  +#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199'\'#255#205'e'#255#208'j'
+  +#255#205'e'#255#205'e'#255#199'\'#255#196'U'#255#186'D'#8'u'#13'A'#196'aT'
+  +#222'}T'#222'}T'#222'}R'#221'{<'#192'['#8'u'#13#255#0#255#255#0#255'A<<'#184
+  +#183#184'opp'#255#186'D'#255#196'U'#255#199'\'#255#208'j'#255#215't'#255#216
+  +'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'#255#196'U'#255#186'D'#8'u'#13
+  +'A'#196'aT'#222'}T'#222'}A'#196'a'#8'u'#13#255#0#255#255#0#255#255#0#255'989'
+  +#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'#255#216'v'#255#221#129#254
+  +#226#136#254#226#136#255#221#129#255#217'x'#255#208'j'#255#199'\'#255#192'M'
+  +#255#180'<'#8'u'#13'A'#196'aA'#196'a'#8'u'#13#255#0#255#255#0#255#255#0#255
+  +#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201']'#255#216'v'#255#217'x'
+  +#254#230#144#254#234#152#254#234#152#254#230#144#255#221#129#255#216'v'#255
+  +#205'e'#255#196'U'#255#186'D'#130'kM'#8'u'#13#8'u'#13#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'989'#184#183#184'opp'#255#196'U'#255#205'e'#255
+  +#216'v'#255#221#129#254#234#152#254#242#166#254#243#169#254#234#152#254#226
+  +#136#255#216'v'#255#205'e'#255#196'U'#255#186'D'#134'oS*%%'#2'g'#155#2'g'#155
+  +#2'g'#155#255#0#255#255#0#255#255#0#255'A<<'#182#176#181'vtv'#201#161'W'#189
+  +#154'Q'#238#201'n'#254#226#136#254#234#150#254#242#166#254#243#169#254#234
+  +#152#254#226#136#255#216'v'#255#208'j'#255#196'U'#255#186'D'#137'tW*%%8'#189
+  +#229'#'#192#229#2'g'#155'k$'#0#153'3'#0#153'3'#0'989'#184#183#184'nmnnmnoppo'
+  +'ppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203#181'y'#197#167'b'#238
+  +#192'^'#255#196'U'#255#186'D'#142'w[*%%h'#227#255'K'#233#255#2'g'#155#170'l,'
+  ,#243#155'?'#243#155'?A<<------'#212#209#213#196#196#197#173#172#173#160#160
+  +#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%%'#136#231#255'l'
+  +#237#255#2'g'#155#178#168#135#255#240#194#255#240#194#255#0#255'HJKHJK'#30#30
+  +#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160#144#141#145#139
+  +#131#137#132'yzZST*%%'#169#238#255#145#244#255#2'g'#155#144'K'#6#206'l'#9#206
+  +'l'#9#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJK'#30#30#30'111-----------'
+  +'-989422111'#2'g'#155#2'g'#155#2'g'#155#2'g'#155#255#0#255#255#0#255#255#0
+  +#255
+]);
+LazarusResources.Add('TRONAMEDPIPESERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#206'l'#9#255#240#194#235
+  +#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#206'l'#9#255#240#194#235#140
+  +')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@HJKHJKHJK'#206'l'#9#255#240#194#235
+  +#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#206'l'#9#255#240#194
+  +#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#206'l'#9#255#240
+  +#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#206'l'#9#255
+  +#240#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#206'l'#9#255
+  +#240#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#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'@'#0#192'@@@{{{'#147#147#147'II'
+  +'I'#206'l'#9#255#240#194#235#140')'#153'3'#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'{{{{{{'#8'u'#13#8'u'#13#8'u'#13#8
+  +'u'#13#8'u'#13#8'u'#13#8'u'#13#8'u'#13#255#0#255#255#0#255'HJK'#196#189#194
+  +#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{{{{{{{{{{{{{'
+  +#8'u'#13'7'#199'T/'#192'I'''#186'= '#179'2'#23#174''''#17#169#31#8'u'#13#255
+  +#0#255#255#0#255'HJK'#198#193#198#194#189#194#192#186#192#189#183#189'HJK'
+  +#222#221#225'HJK{{{{{{{{{{{{{{{{{{'#8'u'#13'D'#209'f<'#203'[4'#197'P-'#190'E'
+  +'$'#183'9'#28#178'/'#8'u'#13#255#0#255#255#0#255'HJK'#203#197#203#198#192#198
+  +#194#188#194#192#186#192'HJK'#227#226#230'HJK{{{{{{{{{{{{'#8'u'#13#8'u'#13#8
+  +'u'#13'N'#218'uH'#213'lA'#207'c9'#201'W2'#195'M)'#189'A'#8'u'#13#8'u'#13#8'u'
+  +#13'HJK'#206#202#206#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'HJ'
+  +'K{{{{{{{{{{{{'#8'u'#13'A'#196'aT'#222'}T'#222'}Q'#220'yL'#216'rF'#211'j?'
+  +#205'_7'#199'T/'#192'I'#31#169'1'#8'u'#13'HJK'#212#208#212#207#202#207#203
+  +#197#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134#134#134
+  +#134#146#146#146'{{{'#8'u'#13'A'#196'aT'#222'}T'#222'}T'#222'}P'#219'xK'#214
+  +'pD'#209'f/'#181'G'#8'u'#13#255#0#255'HJK'#217#213#216#212#208#212#207#202
+  +#207#203#197#202'HJK'#237#237#239'HJK{{{{{{{{{ooo'#134#134#134#134#134#134#8
+  +'u'#13'A'#196'aT'#222'}T'#222'}T'#222'}R'#221'{<'#192'['#8'u'#13#255#0#255
+  +#255#0#255'HJK'#222#218#221#217#213#217#233#231#234#207#202#207'HJK'#238#237
+  +#240'HJK'#140#140#140#140#140#140#146#146#146'{{{{{{{{{'#143#143#143#8'u'#13
+  +'A'#196'aT'#222'}T'#222'}A'#196'a'#8'u'#13#255#0#255#255#0#255#255#0#255'HJK'
+  +#227#224#227#238#237#238#156#154#156#211#207#211'HJK'#237#237#239'HJKTVWcddn'
+  +'nn'#140#140#140#140#140#140#140#140#140#166#166#166'HJK'#8'u'#13'A'#196'aA'
+  +#196'a'#8'u'#13#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#231#230#231#144
+  +#144#146#158#157#158#216#212#216'HJK'#206#207#208#207#207#207#134#135#135'ce'
+  +'eNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#8'u'#13#8'u'#13#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'HJK'#237#235#237#146#146#147#227#224#226
+  +#255#255#255#176#176#178'QRSUVWuvw'#169#170#170#211#211#212#189#189#191''
+  +#128#129'[\]JLMHJK'#2'g'#155#2'g'#155#2'g'#155#2'g'#155#2'g'#155#255#0#255
+  +#255#0#255#255#0#255'HJK'#240#240#242#237#235#237#255#255#255#233#233#235#226
+  +#225#229#220#217#221#191#187#191#151#149#152'onrXYZNPQhij'#147#149#150#208
+  +#209#209'HJKw'#210#229'O'#194#229'8'#189#229'#'#192#229#2'g'#155'k$'#0#153'3'
+  +#0#153'3'#0'HJK'#246#246#246#255#255#255#238#238#240#242#242#244#238#237#239
+  +#229#227#231#217#215#218#203#199#204#189#183#189#173#167#173#153#145#151#153
+  +#145#151'zsuHJK'#2'g'#155#194#255#255#138#234#255'h'#227#255'K'#233#255#2'g'
+  +#155#170'l,'#243#155'?'#243#155'?HJK'#255#255#255#237#237#239#248#248#250#251
+  +#251#252#246#244#247#234#234#237#221#220#224#207#204#208#192#187#193#176#170
+  +#176#160#152#158'HJKHJK'#255#240#194#2'g'#155#222#255#255#167#237#255#136#231
+  +#255'l'#237#255#2'g'#155#178#168#135#255#240#194#255#240#194#255#0#255'HJKHJ'
+  ,'K'#233#233#234#252#252#252#246#246#247#235#234#238#222#220#224#208#204#208
+  +#193#187#193'HJKHJK'#206'l'#9#206'l'#9#206'l'#9#2'g'#155#253#255#255#198#244
+  +#255#169#238#255#145#244#255#2'g'#155#144'K'#6#206'l'#9#206'l'#9#255#0#255
+  +#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#2'g'#155#2'g'#155#2'g'#155#2'g'#155#2'g'#155#2'g'#155#255#0
+  +#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TRODLLCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30
+  +#0'w'#23#0'w'#23#0#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@@@'#30#30#30#30#30#30#255#0#255#129#30#0#129#30#0#129#30#0#252#154'*'
+  +#184':'#0#184':'#0#128'*'#3#255#0#255'@'#0#192#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'@'#0#192'@@@'#132'yzFFF'#130#24#0#129#30#0#248'w'#0#255#129
+  +#0#255#149#19#255#170'4'#255#189'Z'#138#31#0#255#0#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@'#132'yz'#132'yz'#130#24#0'y'#16#0#255#158
+  +' '#252'w'#0#143#30#0#213'g'#10#255#171'8'#138#31#0#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#132'yz'#130#24#0#130#24#0#221#152
+  +'Z'#255#191']'#186'M'#5#255#0#255'v'#12#0#242#134#20#252#160'4'#138#31#0'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#9'o'#164'W9'#23#171'3'#0
+  +#233#171'n'#255#215#146#193'e%'#255#0#255'v'#12#0#242'w'#1#255#150#25#138#31
+  +#0'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'
+  +#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@I'#221#255#0'v'#186#0'v'
+  +#186'YVE'#255#218#154#233#170'j'#145'%'#0#193'M'#0#255'~'#0#138#31#0#255#0
+  +#255'@'#0#192#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'@'#0#192'@@@'''#212
+  +#255'N'#222#255'y'#233#255#0'v'#186#255#218#154#255#218#154#255#211#137#255
+  +#177'C'#255#138#7#138#31#0#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#0#158#218
+  +#0'N'#138#22#163#212'R'#224#255#0'v'#186#196'f#'#203'g'#25#255#218#154#184':'
+  +#0#184':'#0#184':'#0#255#0#255'422'#168#162#167'}st'#254#150#18#254#145#12
+  +#254#150#18#254#150#18#254#150#18#0';v'#11#128#176#156#233#254'h'#230#255#255
+  +#0#255#0'A~'#0'F'#129'0'#215#255'M'#215#254'%_p'#184':'#0#184':'#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255':77'#165#164#165'opp'#254#150#18#254#150#18
+  +#254#150#18#254#150#18#254#162'!'#0';v'#3'{'#176#165#235#254#167#243#255#255
+  +#0#255#0'L'#138#0'N'#138#19#204#255'-'#206#252#13'b'#145#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'422'#178#176#178'xux'#254#150#18#254
+  +#158#28#254#162'!'#255#172'0'#255#172'0'#255#172'0'#0'@z'#24#150#196#182#246
+  +#255'~'#212#238#3'g'#157#13#182#235#1#198#255#13'b'#145'422'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#182#176#181'}st'#254#162'!'
+  +#255#172'0'#255#172'0'#255#180'<'#255#186'D'#255#186'D'#0'A~'#27#153#196#181
+  +#244#255#182#246#255#154#240#255'N'#222#255#13#202#255#13'b'#145#30#30#30#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#182#176#181'xu'
+  +'x'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255#196'U'#255#196'U'#255#199
+  +'\'#0'Ay'#0'E~;'#175#213#182#246#255#13'b'#145#13'b'#145#159'l*---'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#188#185#189'opp'#255
+  +#176'6'#255#186'D'#255#196'U'#255#199'\'#255#205'e'#255#208'j'#255#205'e'#255
+  +#205'e'#255#199'\'#0'A{'#0'E{'#255#180'<'#255#172'0'#137'h8*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#184#183#184'opp'#255#186
+  +'D'#255#196'U'#255#199'\'#255#208'j'#255#215't'#255#216'v'#255#217'x'#255#216
+  +'v'#255#208'j'#255#205'e'#255#196'U'#255#186'D'#255#172'0'#130'kM*%%'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#188#185#189'opp'
+  +#255#186'D'#255#201']'#255#208'j'#255#216'v'#255#221#129#254#226#136#254#226
+  +#136#255#221#129#255#217'x'#255#208'j'#255#199'\'#255#192'M'#255#180'<'#130
+  +'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182
+  +#176#181'vtv'#255#196'U'#255#201']'#255#216'v'#255#217'x'#254#230#144#254#234
+  +#152#254#234#152#254#230#144#255#221#129#255#216'v'#255#205'e'#255#196'U'#255
+  +#186'D'#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'989'#184#183#184'opp'#255#196'U'#255#205'e'#255#216'v'#255#221#129#254
+  +#234#152#254#242#166#254#243#169#254#234#152#254#226#136#255#216'v'#255#205
+  +'e'#255#196'U'#255#186'D'#134'oS*%%'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'A<<'#182#176#181'vtv'#201#161'W'#189#154'Q'#238#201'n'
+  +#254#226#136#254#234#150#254#242#166#254#243#169#254#234#152#254#226#136#255
+  +#216'v'#255#208'j'#255#196'U'#255#186'D'#137'tW*%%'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'nmnnmnoppoppa]]'#135#130
+  +'u'#130'~m'#167#160#129#163#152'r'#203#181'y'#197#167'b'#238#192'^'#255#196
+  ,'U'#255#186'D'#142'w[*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'A<<------'#212#209#213#196#196#197#173#172#173#160#160#163#141#137
+  +#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%%'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJK'#30#30#30'422788FFFZVWnm'
+  +'nopp'#144#141#145#128#128#128#161#154#160#144#141#145#139#131#137#132'yzZST'
+  +'*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'HJKHJKHJKHJKHJK'#30#30#30'111------------989422111'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROREMOTESERVICE','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255'UUVUUVUUVUUV'#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@'#255#0#255'---jhj'#165#164#166#156#153#157#145#142#146'ifi/..'
+  +#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@EAB'#225#224#226#225#224#226#165#164#166#156#153#157#145#142#146#176
+  +#172#177#160#152#158'EAB'#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +#255#255#255'@'#0#192'@@@eee'#246#244#247#176#172#177#142#139#142#166#165#167
+  +#134#130#134'KHJ'#160#152#158'c]_'#255#0#255#255#0#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192'@@@'#28'3'#31'bbc`_`ooo'#166#165#167#176#172
+  +#177'ZVYYVX)(('#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#184#181#184#204#199#203#171#163#166#129'zwogiWSU989'#30#30#30#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@'#189#135'5'#254#171'9'#249#202't'#254#217#164#230#215#194#204
+  +#199#203#184#181#184#159#153#159'\Z\'#30#30#30#255#0#255'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192#22'K'#140#31'KwJYT'#151's/'#250#150#20#252#158#31#253#160'"'
+  +#243#169'H'#218#171'j'#187#169#137#142#139#142'989'#255#0#255#244#129#13#244
+  +#134#19#244#139#27#244#143' '#11'=~/Mg'#246#147'()bP'#6'A'#138#15'^'#187#24
+  +'~'#229#30#137#242#25#133#243#18'v'#230#9'V'#181':Wg'#225#159'4'#254#169'*'
+  +#254#167')'#253#160'"'#254#152#20#197't'#28'LKL'#244#134#17#244#139#27#244
+  +#146''''#246#152'0'#246#154'4'#11'?'#130#3'A'#154#15'@}'#9'L'#161#22'y'#225
+  +'$'#146#250'&'#145#242#25't'#206#17'_'#183#17']'#178#12'`'#197#7'R'#182'(Tz'
+  +#229#173'I'#255#186'C'#255#177'5'#254#165'%'#190'y'#28'HGH'#244#139#27#244
+  +#146''''#246#157'6'#246#163'B'#246#166'I'#11'?'#130#10'l'#231#9'b'#209#21'}'
+  +#237'$'#146#250'('#147#238#14'P'#157#21'A{ecI'#196#157'L'#136#135'd''V'#131#5
+  +'@'#145'Lit'#255#196'T'#255#189'J'#255#177'5'#190'y'#28'EAB'#244#146''''#246
+  +#157'6C'#164'-C'#164'-t'#169'='#9'?'#129#10'l'#231#13't'#237#24#129#239'&'
+  +#145#242#15'V'#164#11'DOuss'#189#135'5'#255#196'T'#255#207'g'#249#202'ts'#135
+  +'}'#5':'#130#255#208'j'#255#199'Z'#255#186'C'#189#134'-A>@'#246#152'0'#177
+  +#163':'#17#163'#'#17#163'#'#17#163'#'#5'>'#10'l'#231#13't'#237#25#133#243#26
+  +'x'#212#5':{'#22'Y$vut'#189#146'B'#255#203'`'#255#215'u'#255#225#134#254#230
+  +#145#149#163#136#255#219'|'#255#207'g'#255#194'Q'#173'~1>:;'#246#159';'#204
+  +#165'M'#28#164'('#17#163'#'#17#163'#'#5'>'#10'l'#231#10'r'#242#20'~'#242#30
+  +#137#242#20'f'#187#6'<xWgx'#189#146'B'#255#207'g'#255#219'|'#254#233#150#254
+  +#243#167#254#235#154#255#225#134#255#211'm'#255#197'V'#161'F>:;'#246#163'B'
+  +#247#175'X'#187#182'^%'#167'.'#17#163'#'#5'='#128#3'K'#182#7'R'#182#9'Q'#171
+  +#11'O'#163#10'M'#151#6'=}+Q}'#129'zw'#187#175#150#169#160#130#187#169#137#169
+  +#160#130#189#171'n'#189#171'n'#255#208'j'#255#194'Q'#164#129'H/..'#243#169'H'
+  +#247#177'^'#247#189'w'#226#202#135'u'#188'b'#8'Jp'#7'In'#9'ZY'#11'nH'#15#146
+  +'/'#15#146'/'#22'c!J=,(% '#30#30#30'''''''HGHPPQdce`_`HGHYVXdZN'#30#30#30#255
+  +#0#255#247#177'^'#247#189'w'#248#203#146#250#217#175#231#225#189'X'#189'_'#17
+  +#163'#'#17#163'#'#17#163'#'#17#163'#%'#165'+'#230#176'Y'#246#164'D'#246#152
+  +'0'#197't'#28#183'e'#11']\'#19#23'Z!'#24'Q &/'''#30#30#30#30#30#30#255#0#255
+  +#255#0#255#28#164'('#163#181'Y'#248#200#141#248#211#164#250#222#187#231#225
+  +#189#27#166'+'#17#163'#'#17#163'#'#17#163'#'#17#163'#%'#164')='#163'+'#26#161
+  +'#'#244#138#24#244''#9'5'#152#27#17#163'#'#17#163'#'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#17#163'#'#147#183'['#248#203#146#248#211
+  +#164#250#217#175'='#176'A'#17#163'#'#17#163'#'#17#163'#'#17#163'#'#17#163'#'
+  +#17#163'#%'#160'#'#244#136#22#243'}'#7#17#163'#'#17#163'#'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#17#163'#'
+  +#147#183'['#248#200#141#248#203#146'='#172'<'#17#163'#'#17#163'#'#17#163'#'
+  +#17#163'#'#17#163'#'#17#163'#q'#151#31#244#132#16#243'y'#4#17#163'#'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255#17#163'#'#187#182'^'#230#188'r%'#167'.'#17#163'#'#17#163
+  +'#'#17#163'#'#17#163'#'#17#163'#'#26#161'#'#227#138#24#244''#9#236'r'#1#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#17#163'#%'#165'+'#17#163'#'#17#163
+  +'#'#17#163'#'#17#163'#'#17#163'#'#17#163'#'#160#146#28#244#131#15#243'y'#4
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#17
+  +#163'#'#17#163'#'#17#163'#'#17#163'#'#17#163'#q'#151#31#244#134#19#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255
+]);
+LazarusResources.Add('TRODYNAMICREQUEST','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#130#0#0#130#0#0#130#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#4#9#151#8''''#218
+  +#0#3#199#0#0#169#0#0#130#255#0#255'@'#0#192#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'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#7#14#159
+  +#29'@'#242#16'3'#250#3'"'#251#0#2#196#0#0#167#0#0#130'@'#0#192#255#255#255'@'
+  +#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#8#16#163#31'='
+  +#242#3#5#171#13'3'#254#1#27#248#2#23#240#0#1#193#0#0#130'@'#0#192#255#255#255
+  +'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#9#16#163' >'#242#3#5
+  +#171'Bg'#254#3#31#248#3#17#230#6#9#212#0#0#175#0#0#130'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192'@@@'#255#0#255#9#17#163'!?'#242#3#5#171'Cg'
+  +#254#3#31#250#1#5#176#12'*'#246#15#15#202#0#0#130#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@'#17'!'#186'"A'#242#3#5#171'Cg'#254#3' '#251
+  +#1#5#175'6O'#244#28'.'#225#0#0#130#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#16#29#191#3#5#171'Cg'#254#3'"'
+  +#252#1#5#175'4H'#240#26','#225#0#0#130#255#0#255#255#0#255#255#0#255'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192#255#0#255#7#13#192'Dh'#254#3'#'#252#1#5#173'3A'#235#22
+  +'('#225#0#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#192'Q'#3
+  +#255#235#177#239#131'('#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#1#0#139#1#0#139#0#0#130#1#28#242#1#5#173'3='#230#19'$'#226#0
+  +#0#130#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#192'Q'#3
+  +#255#235#177#239#131'('#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#1#0#139'$I'#243#15'5'#255#0#22#222#0#2#145#0#0#130#0#0#130#0#0#130#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#192'Q'#3
+  +#255#235#177#239#131'('#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#5#11#192#16'5'#252#0#22#222#0#3#151#0#0#130#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#192'Q'#3#255#235#177#239#131'('#129#30#0#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#5#11#192#5#31#243#4#14#194#1#3#137#1#0#139#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#192'Q'#3#255#235#177#239#131'('#129#30#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255'wuoIHD'#8#4#142#0#0#130#0#0#130#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +'w2'#2#158#146'm'#149'Q'#24'P'#19#0#255#0#255#255#0#255#255#0#255'ifcIHD'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'L'#131#0'L'
+  +#131#0'L'#131#0'L'#131#0'L'#131#0'L'#131#255#0#255'[XWIHD'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0'L'#131'x'#240
+  +#255'Q'#231#255'2'#226#255#18#175#221#0'L'#131'P'#19#0'IHD[XW'#129#30#0#129
+  +#30#0#129#30#0#129#30#0'{ '#2'{ '#2'{ '#2'{ '#2'{ '#2'{ '#2'{ '#2'{ '#2'{ '#2
+  +'{ '#2'{ '#2#0'L'#131#147#233#255'n'#224#255'M'#218#255'"'#171#221#0'L'#131
+  +#142'G'#14#229's'#22#229's'#22#229's'#22#229's'#22#229's'#22#229's'#22#229's'
+  +#22#229's'#22#229's'#22#229's'#22#229's'#22#229's'#22#229's'#22#229's'#22#229
+  +'s'#22#229's'#22#229's'#22#0'L'#131#182#240#255#145#231#255'p'#227#255'5'#177
+  +#221#0'L'#131#158#146'm'#255#235#177#255#235#177#255#235#177#255#235#177#255
+  +#235#177#255#235#177#255#235#177#255#235#177#255#235#177#255#235#177#255#235
+  +#177#255#235#177#255#235#177#255#235#177#255#235#177#255#235#177#255#235#177
+  +#0'L'#131#252#255#255#212#255#255#177#255#255'\'#197#221#0'L'#131'w2'#2#192
+  +'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3
+  +#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#192'Q'#3#0'L'
+  +#131#0'L'#131#0'L'#131#0'L'#131#0'L'#131#0'L'#131#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  ,#255#255#0#255#192'Q'#3#255#235#177#239#131'('#129#30#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#192'Q'#3#255#235#177#239#131'('#129#30#0#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#192'Q'#3#255#235#177#239#131'('
+  +#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROMASTERSERVERSESSIONMANAGER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'
+  +#3#143#10#17#172'.'#22#175'2'#13#146#15#0''#0#0'Z'#0#0'Z'#0#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@'#31#189'L'#23#186'K'#15#147#19#140#226#140#17#144#19#0'z'#0#0
+  +']'#0'n-'#19'n-'#19#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@@@"'#202'Y'#15#147#19'p'#211'j'#255#240#239#30#157'"'#7#147#24
+  +#0'\'#0#244'[A'#248'J6n-'#19'n-'#19'@'#0#192#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#23#178'='#15#147#19#160#199#188#251#252#252#25#164'$'#12
+  +#150'%'#0'Z'#1#237#156#136#234#136't'#225'@#n-'#19'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192'@@@'#12')'#24'1X~.X'#146'5i'#130#17#135'8'#0'Z'#0
+  +#184'A'#23#255#240#239#226#176#154#212'C'#31'n-'#19'@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#9#17'?'#7')'#154#5'('#149#2#29#143#2#29#143#184'A'
+  +#23#233#161#140#251#252#252#229#160#136#226'U-n-'#19'@'#0#192#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'@'#0#192'@@@'#14'?'#167#13'A'#181#13'?'#172#14
+  +'@'#175#2#28#145#134'wwZ'#135#153'W'#131#143#149'hR'#181'2'#21#255#0#255'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192#10#28'='#18'T'#213#16'M'#198#17'M'#197#17'M'#197
+  +#17'L'#203#17'W'#139#9'_'#194#4'W'#193#11'n'#154#13#13#13#255#0#255'~~~UUUII'
+  +'IIII$F'#196#14'?'#255#7':'#255#1'4'#254#28'4'#153'111'#3#3#4#0#0#0#10#26'1'
+  +#24'j'#229#22'g'#229#22'c'#221#22'c'#221#23'e'#231#17'W'#139' '#129#251#30'{'
+  +#247#22'k'#239#11'n'#154'UUUdddUUUUUUIII6O'#166#14'?'#255#14'?'#255#7':'#255
+  +'*9x888'#5#5#6#10#9#7#24#27#31#28'['#169#31#139#255#31#138#255#31#139#255#31
+  +#138#255#17'W'#139')'#145#250'&'#142#250'!'#132#250#26'p'#235#11'n'#154'^^^U'
+  +'UUUUUUUUJMX+J'#187' E'#209'(A'#161'AAA888888%%%USP+2:'#17'5]'#19'K'#135#23
+  +'W'#154#22'Cx('#142#230'0'#157#251'-'#152#250'('#144#251#31#130#247#11'n'#154
+  +'^^^^^^UUUUUUIIIUUUIIIAAAAAAAAA888'#5#5#6'AABNKJ865'#22#19#19#5#3#3#5#2#1#2
+  +'7\5'#166#255'1'#157#251','#150#251'#'#137#246#11'n'#154'hhh^^^UUU^^^UUUIIIP'
+  +'PPIIIIIIAAAAAA4;T'#1'4'#254' '#31'"'#29#28#28#20#20#20#12#12#12#2'Bm'#29'x'
+  +#189'9'#172#255'7'#167#255'4'#160#255#11'n'#154'...'#138#138#138'ddd^^^UUUUU'
+  +'UUUUUUUIIIIIICJ`?BN888'#29'<'#182#1'4'#254'+3Y111'#19'i'#156'R'#152#188#21
+  +'c'#146#3'>h'#3'>h'#0'<j'#11'n'#154'UUU'#255#0#255'dddddd^^^X[eNZ'#129'QT^UU'
+  +'UDMn'#29'K'#243#23'E'#243'"A'#184#7':'#255#16'6'#205'58D111111#w'#166#22'i'
+  +#151#7'P~'#0'<j!!!!!!'#255#0#255#255#0#255'dddddd_bkEk'#224'9h'#255'A^'#191
+  +'UUU>S'#157' Q'#255#26'K'#255#14'?'#255#14'?'#255'AAA888888888'#31'-u'#12'%'
+  +#178#16'#'#150')))!!!!!!'#255#0#255#255#0#255#143#143#143'hhhagxGs'#245'9h'
+  +#255'9h'#255'C^'#181'2\'#233' Q'#255' Q'#255' Q'#255#14'?'#255#14'?'#255'"A'
+  +#184'888888111111)))))))))~~~'#255#0#255#255#0#255#255#0#255'hhhhhh[l'#159'F'
+  +'t'#255'?n'#255'9h'#255'3b'#255'3b'#255' Q'#255' Q'#255' Q'#255#14'?'#255#20
+  +'@'#231'AAA888888888111111888'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'hhhhhh[l'#159'Ft'#255'?n'#255'9h'#255'3b'#255'3b'#255' Q'#255' Q'#255' '
+  +'Q'#255'$F'#196'2A}"A'#184'1:`888888111'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'hhhhhh_h'#130'Lo'#216'9h'#255'9h'#255'3b'
+  +#255'3b'#255' Q'#255' Q'#255#26'K'#255#14'?'#255' E'#209'8>W888888'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'hhhhhhddd_h'#130'Nf'#175'Cd'#204'<_'#213'<_'#213'3U'#200'6O'#166'CJ`III'
+  +'AAAIII'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#143#143#143'hhhdddddd^^^^^^UUUU'
+  +'UUUUUIIIIIIvvv'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#138#138#138'hhh^^^^^^^^^~~~'#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROINMEMORYSESSIONMANAGER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'
+  +#3#143#10#17#172'.'#22#175'2'#13#146#15#0''#0#0'Z'#0#0'Z'#0#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@'#31#189'L'#23#186'K'#15#147#19#140#226#140#17#144#19#0'z'#0#0
+  +']'#0'n-'#19'n-'#19#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@@@"'#202'Y'#15#147#19'p'#211'j'#255#240#239#30#157'"'#7#147#24
+  +#0'\'#0#244'[A'#248'J6n-'#19'n-'#19'@'#0#192#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#23#178'='#15#147#19#160#199#188#251#252#252#25#164'$'#12
+  +#150'%'#0'Z'#1#237#156#136#234#136't'#225'@#n-'#19'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192'@@@'#12')'#24'1X~.X'#146'5i'#130#17#135'8'#0'Z'#0
+  +#184'A'#23#255#240#239#226#176#154#212'C'#31'n-'#19'@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#9#17'?'#7')'#154#5'('#149#2#29#143#2#29#143#184'A'
+  +#23#233#161#140#251#252#252#229#160#136#226'U-n-'#19'@'#0#192#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'@'#0#192'@@@'#14'?'#167#13'A'#181#13'?'#172#14
+  +'@'#175#2#28#145#134'wwZ'#135#153'W'#131#143#149'hR'#181'2'#21#255#0#255'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192#10#28'='#18'T'#213#16'M'#198#17'M'#197#17'M'#197
+  +#17'L'#203#17'W'#139#9'_'#194#4'W'#193#11'n'#154#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'Z[[==='#203#202#202
+  +#158#157#157#3#3#4#0#0#0#10#26'1'#24'j'#229#22'g'#229#22'c'#221#22'c'#221#23
+  +'e'#231#17'W'#139' '#129#251#30'{'#247#22'k'#239#11'n'#154#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'Z[[QQQmkl'#233#230#231#152#151
+  +#152#5#5#6#10#9#7#24#27#31#28'['#169#31#139#255#31#138#255#31#139#255#31#138
+  +#255#17'W'#139')'#145#250'&'#142#250'!'#132#250#26'p'#235#11'n'#154#255#0#255
+  +#255#0#255#255#0#255#255#0#255'Z[[QQQ'#226#225#225'mkl'#218#215#217#146#144
+  +#145'v9'#23'%%%USP+2:'#17'5]'#19'K'#135#23'W'#154#22'Cx('#142#230'0'#157#251
+  +'-'#152#250'('#144#251#31#130#247#11'n'#154#255#0#255#255#0#255#255#0#255'Z['
+  +'[[[['#224#221#222#227#224#226'mkl'#203#198#201#138#135#137'I7.'#5#5#6'AABNK'
+  +'J865'#22#19#19#5#3#3#5#2#1#2'7\5'#166#255'1'#157#251','#150#251'#'#137#246
+  +#11'n'#154#255#0#255#255#0#255'Z[[rpr'#234#233#233#224#221#222#212#207#209'm'
+  +'kl'#176#170#172#201#197#198#153#152#152'wvw[[[ '#31'"'#29#28#28#20#20#20#12
+  +#12#12#2'Bm'#29'x'#189'9'#172#255'7'#167#255'4'#160#255#11'n'#154'CDD'#255#0
+  +#255'Z[[pop'#231#229#230#221#217#218#208#203#206#196#189#192#186#178#182'mkl'
+  +'mklmkl'#193#189#191#191#187#188#156#152#153'~{}kjj'#19'i'#156'R'#152#188#21
+  +'c'#146#3'>h'#3'>h'#0'<j'#11'n'#154'CDDZ[['#135#134#135#229#226#227#217#213
+  +#215#204#199#202#192#186#189#189#182#186#240#239#240#250#250#250#225#222#224
+  +#188#186#187#144#140#142'mklmkl'#135#130#132#165#160#163#171#166#169'#w'#166
+  +#22'i'#151#7'P~'#0'<j\\\tnpCDDZ[['#225#222#224#213#209#212#202#196#198#189
+  +#182#186#191#183#187#231#229#230#254#254#254#250#250#250#243#240#242#233#230
+  +#231#222#218#221#211#206#208#191#186#188#163#158#160'mklmklmkl'#144#140#142
+  +#184#181#182#184#183#183#166#166#166'RPQCDDZ[['#211#206#208#197#191#194#187
+  +#180#183#191#183#187#225#221#224#242#240#242#254#254#254#250#250#250#243#240
+  +#242#233#230#231#222#218#221#211#206#208#197#192#194#186#178#182#191#184#188
+  +#202#196#198#211#206#208#194#192#193'mkl'#143#140#142'sprZ[['#255#0#255'Z[['
+  +#194#188#191#186#178#182#189#183#187#211#206#208#227#224#226#242#240#242#254
+  +#254#254#250#250#250#243#240#242#233#230#231#222#218#221#211#206#208#197#192
+  +#194#186#178#182#191#184#188#202#196#198#212#207#209#222#218#221#181#180#180
+  +']]]Z[['#255#0#255#255#0#255'Z[['#184#177#181#184#178#182#198#192#196#212#208
+  +#211#227#224#226#242#240#242#254#254#254#250#250#250#243#240#242#233#230#231
+  +#222#218#221#211#206#208#197#192#194#186#178#182#191#184#188#202#196#198#212
+  +#207#209#129''#128'Z[[Z[['#255#0#255#255#0#255#255#0#255'Z[['#183#176#180
+  +#184#177#181#198#192#196#212#208#211#227#224#226#242#240#242#254#254#254#250
+  +#250#250#243#240#242#233#230#231#222#218#221#211#206#208#197#192#194#186#178
+  +#182#191#184#188#181#175#177'`_`Z[['#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255'Z[[Z[['#147#144#145#189#186#188#227#224#226#242#240#242
+  +#254#254#254#250#250#250#243#240#242#233#230#231#222#218#221#211#206#208#197
+  +#192#194#186#178#182#142#138#140'Z[['#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'Z[[Z[[Z[[Z[[Z[['
+  +#180#180#180#202#201#201#233#230#231#222#218#221#211#206#208#187#182#184'mkl'
+  +'Z[['#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'Z[[Z[[Z[[Z[[Z[[Z[['#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROEVENTSESSIONMANAGER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'
+  +#3#143#10#17#172'.'#22#175'2'#13#146#15#0''#0#0'Z'#0#0'Z'#0#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@'#31#189'L'#23#186'K'#15#147#19#140#226#140#17#144#19#0'z'#0#0
+  +']'#0'n-'#19'n-'#19#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@@@"'#202'Y'#15#147#19'p'#211'j'#255#240#239#30#157'"'#7#147#24
+  +#0'\'#0#244'[A'#248'J6n-'#19'n-'#19'@'#0#192#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#23#178'='#15#147#19#160#199#188#251#252#252#25#164'$'#12
+  +#150'%'#0'Z'#1#237#156#136#234#136't'#225'@#n-'#19'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192'@@@'#12')'#24'1X~.X'#146'5i'#130#17#135'8'#0'Z'#0
+  +#184'A'#23#255#240#239#226#176#154#212'C'#31'n-'#19'@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#9#17'?'#7')'#154#5'('#149#2#29#143#2#29#143#184'A'
+  +#23#233#161#140#251#252#252#229#160#136#226'U-n-'#19'@'#0#192#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'@'#0#192'@@@'#14'?'#167#13'A'#181#13'?'#172#14
+  +'@'#175#2#28#145#134'wwZ'#135#153'W'#131#143#149'hR'#181'2'#21#255#0#255'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192#10#28'='#18'T'#213#16'M'#198#17'M'#197#17'M'#197
+  +#17'L'#203#17'W'#139#9'_'#194#4'W'#193#11'n'#154#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#225#191#176#230#215#208#227#229#230#220#224#230#206
+  +#199#199#196#189#191#188#188#192#3#3#4#0#0#0#10#26'1'#24'j'#229#22'g'#229#22
+  +'c'#221#22'c'#221#23'e'#231#17'W'#139' '#129#251#30'{'#247#22'k'#239#11'n'
+  +#154#255#0#255#255#0#255#255#0#255#227#193#178#240#237#233#240#248#252#222
+  +#191#177#203'~Y'#201'sJ'#199'rI'#194'vS'#5#5#6#10#9#7#24#27#31#28'['#169#31
+  +#139#255#31#138#255#31#139#255#31#138#255#17'W'#139')'#145#250'&'#142#250'!'
+  +#132#250#26'p'#235#11'n'#154#255#0#255#225#189#173#246#240#239#250#255#255
+  +#211#139'i'#188'F'#22#191'J'#26#243#216#201#238#199#181#189'F'#22#191'I'#24
+  +'%%%USP+2:'#17'5]'#19'K'#135#23'W'#154#22'Cx('#142#230'0'#157#251'-'#152#250
+  +'('#144#251#31#130#247#11'n'#154#255#0#255#240#225#217#255#255#255#218#154'z'
+  +#186'A'#17#189'K'#27#191'N'#31#226#170#142#222#159#129#189'L'#28#189'L'#28#5
+  +#5#6'AABNKJ865'#22#19#19#5#3#3#5#2#1#2'7\5'#166#255'1'#157#251','#150#251'#'
+  +#137#246#11'n'#154#227#193#178#254#252#252#244#222#209#194'U$'#191'L'#29#189
+  +'J'#28#194'W('#222#159#128#215#139'g'#189'J'#26#191'N'#30#191'L'#28#191'O'#31
+  +' '#31'"'#29#28#28#20#20#20#12#12#12#2'Bm'#29'x'#189'9'#172#255'7'#167#255'4'
+  +#160#255#11'n'#154#255#0#255#234#206#194#255#255#255#226#167#135#196'W#'#197
+  +'Z)'#191'O'#30#198']/'#254#248#244#248#235#229#193'T%'#187'F'#22#191'O'#31
+  +#189'E'#22#203#137'k'#213#216#221#220#188#175#19'i'#156'R'#152#188#21'c'#146
+  +#3'>h'#3'>h'#0'<j'#11'n'#154#255#0#255#238#215#206#255#255#255#220#151'm'#202
+  +'f-'#202'f1'#199'^+'#193'T#'#231#183#159#255#255#255#235#201#183#194'Y+'#188
+  +'I'#25#188'G'#23#202'uM'#225#230#237#221#194#182#255#0#255'#w'#166#22'i'#151
+  +#7'P~'#0'<j'#255#0#255#255#0#255#255#0#255#238#215#204#255#255#255#225#163'u'
+  +#208't9'#208'r;'#203'i3'#201'c.'#198'\)'#230#182#156#255#255#255#244#224#213
+  +#196'Z,'#186'A'#18#204'xP'#237#243#248#225#197#186#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#233#204#192#255#255
+  +#255#235#192#156#213'~A'#215#131'L'#216#135'T'#207'r;'#203'g1'#197'Z&'#230
+  +#181#153#255#255#255#220#154'y'#183';'#12#215#150'v'#243#250#255#226#196#182
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#233#204#192#252#250#250#250#238#224#220#142'O'#242#209#183#255#255#254
+  +#225#163'w'#206'k0'#199'^%'#221#153'r'#255#255#255#226#169#138#192'M'#28#238
+  +#217#206#243#240#239#226#196#182#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#240#224#215#255#255#255#238
+  +#197#159#233#178#130#255#255#255#252#247#243#234#187#156#233#186#152#252#246
+  +#242#254#250#247#211'{J'#222#160''#255#255#255#234#212#202#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#230#199#186#248#238#234#255#255#255#237#194#152#235#192#146#248
+  ,#233#217#252#247#242#252#246#239#246#224#207#225#158'r'#227#171#132#255#255
+  +#255#243#231#226#234#212#202#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#230#199#186
+  +#247#237#233#255#255#255#247#227#207#239#199#160#237#194#153#234#187#147#234
+  +#184#146#244#217#197#255#255#255#244#233#227#226#193#177#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#230#199#186#243#230#224#248#243#242#254
+  +#252#251#255#254#252#254#252#251#252#251#251#250#243#242#242#224#215#242#224
+  +#215#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#229#198#184#229#198#184#233#204#193#233#203#191#230#199#186
+  +#230#199#186#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TRODBSESSIONMANAGER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#2't'#169#2't'#169#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#3
+  +#143#10#17#172'.'#22#175'2'#13#146#15#0''#0#0'Z'#0#0'Z'#0#2't'#169#2't'#169
+  +#255#0#255#255#0#255'@'#0#192#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'@'#0
+  +#192'@@@'#31#189'L'#23#186'K'#15#147#19#140#226#140#17#144#19#0'z'#0#0']'#0
+  +'n-'#19'n-'#19#2't'#169#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192'@@@"'#202'Y'#15#147#19'p'#211'j'#255#240#239#30#157'"'#7#147#24#0
+  +'\'#0#244'[A'#248'J6n-'#19'n-'#19'@'#0#192#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192'@@@'#23#178'='#15#147#19#160#199#188#251#252#252#25#164'$'#12#150'%'#0
+  +'Z'#1#237#156#136#234#136't'#225'@#n-'#19'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192'@@@'#12')'#24'1X~.X'#146'5i'#130#17#135'8'#0'Z'#0#184'A'#23
+  +#255#240#239#226#176#154#212'C'#31'n-'#19'@'#0#192#255#255#255'@'#0#192'@'#0
+  +#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@@@'#9#17'?'#7')'#154#5'('#149#2#29#143#2#29#143#184'A'#23#233
+  +#161#140#251#252#252#229#160#136#226'U-n-'#19'@'#0#192#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'@'#0#192'@@@'#14'?'#167#13'A'#181#13'?'#172#14'@'
+  +#175#2#28#145#134'wwZ'#135#153'W'#131#143#149'hR'#181'2'#21#255#0#255'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192#10#28'='#18'T'#213#16'M'#198#17'M'#197#17'M'#197
+  +#17'L'#203#17'W'#139#9'_'#194#4'W'#193#11'n'#154#2't'#169#255#0#255#255#0#255
+  +#2't'#169'`'#221#231'b'#244#255'5'#222#254#17#203#254#20#201#252'7'#207#246
+  +'\'#202#226'\'#176#196#3#3#4#0#0#0#10#26'1'#24'j'#229#22'g'#229#22'c'#221#22
+  +'c'#221#23'e'#231#17'W'#139' '#129#251#30'{'#247#22'k'#239#11'n'#154#255#0
+  +#255#255#0#255#2't'#169'`'#221#231'`'#244#255'3'#222#254#15#203#254#18#199
+  +#252'5'#207#246'Z'#202#226'\'#176#196#5#5#6#10#9#7#24#27#31#28'['#169#31#139
+  +#255#31#138#255#31#139#255#31#138#255#17'W'#139')'#145#250'&'#142#250'!'#132
+  +#250#26'p'#235#11'n'#154#255#0#255#2't'#169']'#220#231'd'#246#255'='#226#255
+  +#30#209#255'$'#209#254'J'#216#246'k'#208#226'g'#180#197#2't'#169'%%%USP+2:'
+  +#17'5]'#19'K'#135#23'W'#154#22'Cx('#142#230'0'#157#251'-'#152#250'('#144#251
+  +#31#130#247#11'n'#154#255#0#255#2't'#169'w'#227#237#144#250#255'x'#226#247'o'
+  +#213#239'y'#206#231#136#201#222#136#192#206'}'#172#186#2't'#169#5#5#6'AABNKJ'
+  +'865'#22#19#19#5#3#3#5#2#1#2'7\5'#166#255'1'#157#251','#150#251'#'#137#246#11
+  +'n'#154#255#0#255#2't'#169#137#212#226'j'#197#217'?'#181#213#24#160#204#12
+  +#145#194#19#140#186'('#142#176'5'#131#159#2't'#169'_'#221#231']'#244#255' '
+  +#31'"'#29#28#28#20#20#20#12#12#12#2'Bm'#29'x'#189'9'#172#255'7'#167#255'4'
+  +#160#255#11'n'#154#255#0#255#255#0#255#2't'#169'A'#173#199'7'#193#218''''#199
+  +#234#14#196#246#20#203#254';'#215#246'^'#204#226'U'#169#191#2't'#169']'#221
+  +#231'n'#246#255'N'#229#254'3'#218#254'3'#218#254#19'i'#156'R'#152#188#21'c'
+  +#146#3'>h'#3'>h'#0'<j'#11'n'#154#255#0#255#255#0#255#2't'#169'X'#213#226'g'
+  +#252#255'6'#226#255#17#204#255#20#202#254'7'#207#246']'#203#226'^'#178#197#2
+  +'t'#169#156#225#235#206#254#255#186#252#255#172#255#254#150#255#254#135#255
+  +#254'#w'#166#22'i'#151#7'P~'#0'<j'#24#171#216#2't'#169#255#0#255#255#0#255#2
+  +'t'#169'c'#224#233'b'#244#255'5'#222#254#17#203#254#20#201#252'7'#207#246']'
+  +#204#229'^'#180#199#2't'#169#154#194#213#255#255#255#237#255#255#194#255#255
+  +#159#255#255#136#255#255#131#255#255#132#255#255#138#255#255#130#255#255'8'
+  +#197#225#2't'#169#255#0#255#255#0#255#2't'#169'`'#221#231'b'#244#255'5'#222
+  +#254#17#203#254#20#201#252'7'#209#248'_'#208#234'b'#186#207'.'#139#170#2't'
+  +#169#2't'#169#137#196#215#149#215#229#144#227#237't'#226#234'j'#227#235'^'
+  +#217#229'O'#198#215#2't'#169#2't'#169#255#0#255#255#0#255#255#0#255#2't'#169
+  +'_'#221#231']'#244#255'.'#221#254#12#199#254#15#197#252'4'#208#251'`'#215#242
+  +'h'#196#220'0'#150#183#7'n'#154#0'['#136#2't'#169#2't'#169#2't'#169#2't'#169
+  +#2't'#169#2't'#169#2't'#169#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#2't'#169']'#221#231'n'#246#255'N'#229#254'3'#218#254'3'#218#254'N'#226#254
+  +'n'#231#250's'#221#237'B'#181#209#15#132#177#0'e'#151#2'b'#142#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#2't'#169#156#225#235#206#254#255#186#252#255#172#255#254
+  ,#150#255#254#135#255#254#131#254#252#128#251#250'v'#240#244'C'#206#226#22#159
+  +#201#2'n'#160#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2't'#169#154#194#213#255#255
+  +#255#237#255#255#194#255#255#159#255#255#136#255#255#131#255#255#131#254#254
+  +#137#252#252#128#251#251'7'#193#220#2's'#167#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#2't'#169#2't'#169#137#196#215#149#215#229#144#227#237't'#226
+  +#234'j'#227#235'^'#217#229'O'#198#215#2's'#167#2's'#167#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2't'#169#2't'#169#2't'
+  +#169#2't'#169#2't'#169#2't'#169#2't'#169#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROEVENTRECEIVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#129#30#0#129#30#0
+  +#129#30#0#129#30#0#129#30#0'['#128'&'#9']W'#7'Ay'#22'K'#140#31'KwJYT'#151's/'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#129#30#0#129#30#0'`'''#22#128'4'#13#11'=~/Mg'#157'>'#5')bP'#6
+  +'A'#138#15'^'#187#24'~'#229#30#137#242#25#133#243#18'v'#230#9'V'#181':Wg'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0#129#30#0'l'
+  +'+'#18#163'A'#4#196'N'#0#199'P'#0#11'?'#130#3'A'#154#15'@}'#9'L'#161#22'y'
+  +#225'$'#146#250'&'#145#242#25't'#206#17'_'#183#17']'#178#12'`'#197#7'R'#182
+  +'(Tz'#255#0#255#255#0#255#255#0#255#255#0#255#129#30#0'`'''#22#146'<'#8#201
+  +'Q'#0#198'O'#0#188'K'#0#187'J'#0#11'?'#130#10'l'#231#9'b'#209#21'}'#237'$'
+  +#146#250'('#147#238#14'P'#157#21'A{'#151'='#7#129#30#0#129#30#0'''V'#131#5'@'
+  +#145'Lit'#255#0#255#255#0#255#129#30#0'i*'#19#153'='#6#202'Q'#0#191'M'#0#187
+  +'K'#0#188'K'#0#188'K'#0#9'?'#129#10'l'#231#13't'#237#24#129#239'&'#145#242#15
+  +'V'#164#11'DO'#188'L'#0#206'R'#0#153'='#6#129#30#0#129#30#0#255#0#255#5':'
+  +#130#255#0#255#255#0#255#129#30#0#154'?'#5#199'P'#0#189'K'#0#188'K'#0#188'K'
+  +#0#188'K'#0#188'K'#0#5'>'#10'l'#231#13't'#237#25#133#243#26'x'#212#5':{'#22
+  +'Y$'#188'K'#0#187'J'#0#206'Q'#0#151'='#7#129#30#0#255#0#255#255#0#255#255#0
+  +#255#129#30#0#139'7'#9#196'N'#0#189'L'#0#188'K'#0#188'K'#0#188'L'#0#188'K'#0
+  +#197'`'#19#5'>'#10'l'#231#10'r'#242#20'~'#242#30#137#242#20'f'#187#6'<x'#188
+  +'K'#0#188'K'#0#188'K'#0#202'P'#0't-'#16#129#30#0#255#0#255#255#0#255#129#30#0
+  +#172'E'#3#197'O'#0#191'O'#2#192'P'#3#192'S'#4#189'L'#0#192'P'#2#234#197#161#5
+  +'='#128#3'K'#182#7'R'#182#9'Q'#171#11'O'#163#10'M'#151#6'=}+Q}'#188'K'#0#187
+  +'K'#0#197'N'#0#167'C'#3#129#30#0#255#0#255#202'h'#0#145':'#9#193'S'#3#197'W'
+  +#6#197'['#9#198'\'#12#199'^'#13#197'W'#6#199'['#11#229#177#128#8'Jp'#7'In'#9
+  +'ZY'#11'nH'#15#146'/'#15#146'/'#22'c!'#229#181#136#188'K'#0#188'K'#0#188'K'#0
+  +#198'O'#0'e('#21#129#30#0#202'h'#0#164'D'#8#204'_'#10#201'b'#16#203'e'#19#204
+  +'g'#22#206'i'#23#203'b'#16#206'f'#21#203'd'#18#202'_'#14#198'['#10#193'S'#5
+  +#189'N'#1#188'K'#0#203'p&'#248#239#230#254#254#254#206'x/'#188'K'#0#188'K'#0
+  +#199'P'#0#130'5'#12#129#30#0#202'h'#0#177'P'#11#212'k'#22#209'l'#28#209'm'#29
+  +#211'p '#212's#'#211'm'#26#212'o'#31#209'l'#28#207'i'#23#203'c'#17#198'\'#12
+  +#196'U'#5#189'N'#1#188'K'#0#213#140'K'#254#254#254#229#181#136#188'K'#0#188
+  +'K'#0#198'O'#0#149';'#7#129#30#0#202'h'#0#187'['#18#218'~-'#216#129'4'#216'x'
+  +'*'#217'z,'#218'}.'#218'}-'#217'y*'#215'v%'#254#254#254#208'k'#25#203'c'#18
+  +#199'\'#12#193'T'#5#188'M'#1#202'n#'#254#254#254#235#198#164#188'K'#0#187'J'
+  +#0#197'N'#0#157'>'#5#129#30#0#202'h'#0#193'c'#27#226#147'K'#227#153'W'#224
+  +#136';'#224#135'9'#226#137'<'#225#137';'#224#134'7'#254#254#254#254#254#254
+  +#213'u$'#208'k'#26#202'c'#19#198'Z'#10#192'P'#3#217#149'W'#254#254#254#227
+  +#176#129#188'K'#0#187'J'#0#197'N'#0#157'>'#5#129#30#0#202'h'#0#193'd'#27#231
+  +#159'^'#235#178'}'#230#153'R'#230#145'E'#231#149'I'#231#147'H'#254#254#254
+  +#254#254#254#254#254#254#220#129'5'#212'r '#207'i'#23#202'_'#14#215#136'B'
+  +#251#244#238#252#251#250#202'l!'#188'K'#0#188'K'#0#198'O'#0#149';'#7#129#30#0
+  +#202'h'#0#188'['#19#234#163'c'#242#198#156#239#177'w'#237#157'T'#246#204#165
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#221#159'g'#188'K'#0#188'K'#0#188
+  +'K'#0#199'P'#0#128'4'#13#129#30#0#202'h'#0#202'h'#0#230#153'U'#244#204#166
+  +#248#208#169#243#176't'#248#212#175#254#254#254#254#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#252#250#242#216#191#211#130
+  +'<'#188'L'#0#188'K'#0#188'K'#0#189'K'#0#196'N'#0'b('#22#129#30#0#255#0#255
+  +#202'h'#0#213'}3'#246#196#149#250#227#203#248#208#169#251#189#128#250#178'n'
+  +#254#254#254#254#254#254#254#254#254#226#144'D'#218'}-'#212's"'#206'h'#23#199
+  +']'#13#192'R'#3#188'L'#0#188'K'#0#187'K'#0#198'O'#0#165'B'#3#129#30#0#255#0
+  +#255#255#0#255#202'h'#0#202'h'#0#239#175'r'#251#221#191#252#234#215#254#213
+  +#172#251#187'z'#244#176'n'#254#254#254#254#254#254#226#139'@'#217'}-'#212's"'
+  +#206'h'#23#199']'#13#192'R'#4#188'L'#0#188'K'#0#189'K'#0#202'P'#0'm,'#18#129
+  +#30#0#255#0#255#255#0#255#255#0#255#202'h'#0#207't*'#248#197#146#252#231#211
+  +#254#238#222#250#211#172#246#187#134#235#156'S'#254#254#254#224#135'9'#217'z'
+  +'+'#211'p '#204'g'#22#198'\'#12#192'Q'#3#188'K'#0#189'L'#0#204'Q'#0#142'8'#9
+  +#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#202'h'#0#202'h'#0#211'{3'
+  +#247#198#151#251#229#206#254#238#222#248#221#193#243#199#156#235#166'i'#225
+  +#142'B'#217#129'3'#212'v'''#207'o '#203'j'#27#197'b'#19#196'W'#7#204'Q'#0#144
+  +'8'#9'O'#31#28#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#202
+  +'h'#0#202'h'#0#207'v-'#242#182'~'#250#213#177#250#229#208#250#229#208#246#217
+  ,#189#238#199#161#234#184#136#229#171'u'#225#161'h'#218#144'M'#212'v'''#202'['
+  +#10#145'9'#8'T#'#25#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#202'h'#0#202'h'#0#202'h'#0#215#135'B'#235#175'u'#242
+  +#196#149#244#204#166#243#204#167#240#197#154#234#181#129#226#157'\'#209'{1'
+  +#175'S'#19'5'#16#129#30#0#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#202'h'#0#202'h'
+  +#0#202'h'#0#186'f$'#197'v7'#201'}>'#196'w9'#186'h,'#161'Q'#28#132';'#20'n-'
+  +#19#129#30#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#202'h'#0#202'h'#0#202'h'#0#202'h'#0#202'h'#0#202'h'#0#202'h'#0#202'h'#0#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TRODBEVENTREPOSITORY','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@@&'#129'A%'#129'A%'#129'A%'#129'A%'#129'A%'#2't'#169#255#0
+  +#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#203
+  +'f'#0#203'f'#0#203'f'#0#203'f'#0#203'f'#0#203'f'#0#129'A%'#129'A%'#2't'#169
+  +#255#0#255#255#0#255'@'#0#192#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'@'#0
+  +#192'@@@'#202'e'#0#202'e'#0#202'e'#0#202'e'#0#203'f'#0#203'f'#0#203'f'#0#197
+  +'c'#3#129'A%'#2't'#169#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#198'a'#0#198'a'#0#198'a'#0#200'c'#0#201'd'#0#203'f'#0#203'f'#0#203
+  +'f'#0#197'c'#3#129'A%'#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192'@@@'#191'['#2#206#131'?'#214#149'Z'#216#151'['#214#143'K'#208'w '#203
+  +'f'#0#203'f'#0#203'f'#0#130'A%'#255#0#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192'@@@'#193'd'#5#231#195#160#254#254#254#254#254#254#254#254
+  +#254#254#254#254#219#153'W'#203'f'#0#203'f'#0#203'f'#0'@&@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@'#197'o'#23#197'o'#24#198'q'#28#196'n'#26
+  +#197'm'#30#228#183#141#254#254#254#202'e'#0#203'f'#0#203'f'#0#130'A%@'#0#192
+  +#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'@'#0#192'@@@'#204'},'#234#204
+  +#172#198'p'#25#194'h'#12#191'`'#3#198'i'#21#254#254#254#202'e'#0#203'f'#0#203
+  +'f'#0#130'A%@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#212#141'D'#236#207#177#254#254#254
+  +#203'{*'#198'p'#25#195'g'#11#215#152']'#254#254#254#202'e'#0#203'f'#0#203'f'
+  +#0#130'A%'#255#0#255#2't'#169'`'#221#231'b'#244#255'5'#222#254#17#203#254#20
+  +#201#252'7'#207#246#170'W'#17#230#180#130#227#177'|'#218#152'T'#244#224#204
+  +#254#254#254#254#254#254#248#238#227#243#225#207#242#223#204#254#254#254#229
+  +#184#141#202'e'#0#203'f'#0#203'f'#0#130'A%'#255#0#255#2't'#169'`'#221#231'`'
+  +#244#255'3'#222#254#15#203#254#18#199#252'5'#207#246#170'U'#14#231#178'}'#240
+  +#211#181#229#176'y'#245#225#204#254#254#254#254#254#254#244#226#208#235#203
+  +#171#233#199#164#219#158'`'#199'c'#3#202'e'#0#203'f'#0#203'f'#0'@&'#255#0
+  +#255#2't'#169']'#220#231'd'#246#255'='#226#255#30#209#255'$'#209#254'J'#216
+  +#246'k'#208#226#175'b!'#243#217#191#244#217#190#234#187#139#242#216#189#254
+  +#254#254#213#142'E'#208#130'2'#205'w '#203'o'#17#202'f'#4#202'e'#0#203'f'#0
+  +#130'A%'#255#0#255#255#0#255#2't'#169'w'#227#237#144#250#255'x'#226#247'o'
+  +#213#239'y'#206#231#136#201#222#136#192#206#170'U'#14#233#183#130#248#231#213
+  +#246#223#200#233#187#139#239#207#174#215#143'E'#211#132'3'#208'z"'#207't'#23
+  +#203'h'#8#203'f'#0#197'c'#3'}?'''#255#0#255#255#0#255#2't'#169#137#212#226'j'
+  +#197#217'?'#181#213#24#160#204#12#145#194#19#140#186'('#142#176'5'#131#159
+  +#171'V'#16#235#185#134#246#224#202#247#230#212#240#209#177#232#185#138#227
+  +#170'q'#223#160'`'#217#143'D'#206'q'#17#197'c'#3#143'H'#30#2't'#169#255#0#255
+  +#255#0#255#2't'#169'A'#173#199'7'#193#218''''#199#234#14#196#246#20#203#254
+  +';'#215#246'^'#204#226'U'#169#191#2't'#169#172'W'#15#179'g('#236#188#139#240
+  +#203#166#238#202#164#234#188#142#225#162'c'#212'~('#176'\'#21#137'E!'#0'y'
+  +#182#2't'#169#255#0#255#255#0#255#2't'#169'X'#213#226'g'#252#255'6'#226#255
+  +#17#204#255#20#202#254'7'#207#246']'#203#226'^'#178#197#2't'#169#156#225#235
+  +#206#254#255#174'Y'#17#176']'#23#178'a'#29#177'`'#26#176'['#20#156'P'#25'z'
+  +#250#254'H'#220#242#24#171#216#2't'#169#255#0#255#255#0#255#2't'#169'c'#224
+  +#233'b'#244#255'5'#222#254#17#203#254#20#201#252'7'#207#246']'#204#229'^'#180
+  +#199#2't'#169#154#194#213#255#255#255#237#255#255#194#255#255#159#255#255#136
+  +#255#255#131#255#255#132#255#255#138#255#255#130#255#255'8'#197#225#2't'#169
+  +#255#0#255#255#0#255#2't'#169'`'#221#231'b'#244#255'5'#222#254#17#203#254#20
+  +#201#252'7'#209#248'_'#208#234'b'#186#207'.'#139#170#2't'#169#2't'#169#137
+  +#196#215#149#215#229#144#227#237't'#226#234'j'#227#235'^'#217#229'O'#198#215
+  +#2't'#169#2't'#169#255#0#255#255#0#255#255#0#255#2't'#169'_'#221#231']'#244
+  +#255'.'#221#254#12#199#254#15#197#252'4'#208#251'`'#215#242'h'#196#220'0'#150
+  +#183#7'n'#154#0'['#136#2't'#169#2't'#169#2't'#169#2't'#169#2't'#169#2't'#169
+  +#2't'#169#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#2't'#169']'#221
+  +#231'n'#246#255'N'#229#254'3'#218#254'3'#218#254'N'#226#254'n'#231#250's'#221
+  +#237'B'#181#209#15#132#177#0'e'#151#2'b'#142#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#2't'#169#156#225#235#206#254#255#186#252#255#172#255#254#150#255#254#135
+  +#255#254#131#254#252#128#251#250'v'#240#244'C'#206#226#22#159#201#2'n'#160
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#2't'#169#154#194#213#255#255#255#237#255
+  +#255#194#255#255#159#255#255#136#255#255#131#255#255#131#254#254#137#252#252
+  +#128#251#251'7'#193#220#2's'#167#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#2't'#169#2't'#169#137#196#215#149#215#229#144#227#237't'#226#234'j'#227#235
+  +'^'#217#229'O'#198#215#2's'#167#2's'#167#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#2't'#169#2't'#169#2't'#169#2't'#169
+  +#2't'#169#2't'#169#2't'#169#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0
+]);
+LazarusResources.Add('TROINMEMORYEVENTREPOSITORY','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@@&'#129'A%'#129'A%'#129'A%'#129'A%'#129'A%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#203
+  +'f'#0#203'f'#0#203'f'#0#203'f'#0#203'f'#0#203'f'#0#129'A%'#129'A%'#255#0#255
+  +#255#0#255#255#0#255'@'#0#192#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'@'#0
+  +#192'@@@'#202'e'#0#202'e'#0#202'e'#0#202'e'#0#203'f'#0#203'f'#0#203'f'#0#197
+  +'c'#3#129'A%'#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192'@@@'#198'a'#0#198'a'#0#198'a'#0#200'c'#0#201'd'#0#203'f'#0#203'f'#0
+  +#203'f'#0#197'c'#3#129'A%'#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#191'['#2#206#131'?'#214#149'Z'#216#151'['#214#143'K'#208
+  +'w '#203'f'#0#203'f'#0#203'f'#0#130'A%'#255#0#255'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192'@@@'#193'd'#5#231#195#160#254#254#254#254#254#254
+  +#254#254#254#254#254#254#219#153'W'#203'f'#0#203'f'#0#203'f'#0'@&@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#197'o'#23#197'o'#24#198'q'#28#196
+  +'n'#26#197'm'#30#228#183#141#254#254#254#202'e'#0#203'f'#0#203'f'#0#130'A%@'
+  +#0#192#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'@'#0#192'@@@'#204'},'
+  +#234#204#172#198'p'#25#194'h'#12#191'`'#3#198'i'#21#254#254#254#202'e'#0#203
+  +'f'#0#203'f'#0#130'A%@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#212#141'D'#236#207#177
+  +#254#254#254#203'{*'#198'p'#25#195'g'#11#215#152']'#254#254#254#202'e'#0#203
+  +'f'#0#203'f'#0#130'A%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255'Z[[==='#170'W'#17#230#180#130#227#177'|'#218#152'T'#244#224#204#254
+  +#254#254#254#254#254#248#238#227#243#225#207#242#223#204#254#254#254#229#184
+  +#141#202'e'#0#203'f'#0#203'f'#0#130'A%'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'Z[[QQQmkl'#170'U'#14#231#178'}'#240#211#181#229#176'y'#245#225
+  +#204#254#254#254#254#254#254#244#226#208#235#203#171#233#199#164#219#158'`'
+  +#199'c'#3#202'e'#0#203'f'#0#203'f'#0'@&'#255#0#255#255#0#255#255#0#255#255#0
+  +#255'Z[[QQQ'#226#225#225'mkl'#218#215#217#175'b!'#243#217#191#244#217#190#234
+  +#187#139#242#216#189#254#254#254#213#142'E'#208#130'2'#205'w '#203'o'#17#202
+  +'f'#4#202'e'#0#203'f'#0#130'A%CDD'#255#0#255#255#0#255#255#0#255'Z[[[[['#224
+  +#221#222#227#224#226'mkl'#203#198#201#170'U'#14#233#183#130#248#231#213#246
+  +#223#200#233#187#139#239#207#174#215#143'E'#211#132'3'#208'z"'#207't'#23#203
+  +'h'#8#203'f'#0#197'c'#3'}?''CDD'#255#0#255#255#0#255'Z[[rpr'#234#233#233#224
+  +#221#222#212#207#209'mkl'#176#170#172#201#197#198#171'V'#16#235#185#134#246
+  +#224#202#247#230#212#240#209#177#232#185#138#227#170'q'#223#160'`'#217#143'D'
+  +#206'q'#17#197'c'#3#143'H'#30#149#146#147'CDD'#255#0#255'Z[[pop'#231#229#230
+  +#221#217#218#208#203#206#196#189#192#186#178#182'mklmklmkl'#172'W'#15#179'g('
+  +#236#188#139#240#203#166#238#202#164#234#188#142#225#162'c'#212'~('#176'\'#21
+  +#137'E!WKD'#134#130#131'CDDZ[['#135#134#135#229#226#227#217#213#215#204#199
+  +#202#192#186#189#189#182#186#240#239#240#250#250#250#225#222#224#188#186#187
+  +#144#140#142'mkl'#174'Y'#17#176']'#23#178'a'#29#177'`'#26#176'['#20#156'P'#25
+  +'jjjAAA\\\tnpCDDZ[['#225#222#224#213#209#212#202#196#198#189#182#186#191#183
+  +#187#231#229#230#254#254#254#250#250#250#243#240#242#233#230#231#222#218#221
+  +#211#206#208#191#186#188#163#158#160'mklmklmkl'#144#140#142#184#181#182#184
+  +#183#183#166#166#166'RPQCDDZ[['#211#206#208#197#191#194#187#180#183#191#183
+  +#187#225#221#224#242#240#242#254#254#254#250#250#250#243#240#242#233#230#231
+  +#222#218#221#211#206#208#197#192#194#186#178#182#191#184#188#202#196#198#211
+  +#206#208#194#192#193'mkl'#143#140#142'sprZ[['#255#0#255'Z[['#194#188#191#186
+  +#178#182#189#183#187#211#206#208#227#224#226#242#240#242#254#254#254#250#250
+  +#250#243#240#242#233#230#231#222#218#221#211#206#208#197#192#194#186#178#182
+  +#191#184#188#202#196#198#212#207#209#222#218#221#181#180#180']]]Z[['#255#0
+  +#255#255#0#255'Z[['#184#177#181#184#178#182#198#192#196#212#208#211#227#224
+  +#226#242#240#242#254#254#254#250#250#250#243#240#242#233#230#231#222#218#221
+  +#211#206#208#197#192#194#186#178#182#191#184#188#202#196#198#212#207#209#129
+  +''#128'Z[[Z[['#255#0#255#255#0#255#255#0#255'Z[['#183#176#180#184#177#181
+  +#198#192#196#212#208#211#227#224#226#242#240#242#254#254#254#250#250#250#243
+  ,#240#242#233#230#231#222#218#221#211#206#208#197#192#194#186#178#182#191#184
+  +#188#181#175#177'`_`Z[['#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'Z[[Z[['#147#144#145#189#186#188#227#224#226#242#240#242#254#254
+  +#254#250#250#250#243#240#242#233#230#231#222#218#221#211#206#208#197#192#194
+  +#186#178#182#142#138#140'Z[['#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'Z[[Z[[Z[[Z[[Z[['#180
+  +#180#180#202#201#201#233#230#231#222#218#221#211#206#208#187#182#184'mklZ[['
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'Z[[Z[[Z[[Z[[Z[[Z[['#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROMASTERSERVEREVENTREPOSITORY','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@@&'#129'A%'#129'A%'#129'A%'#129'A%'#129'A%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#203
+  +'f'#0#203'f'#0#203'f'#0#203'f'#0#203'f'#0#203'f'#0#129'A%'#129'A%'#255#0#255
+  +#255#0#255#255#0#255'@'#0#192#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'@'#0
+  +#192'@@@'#202'e'#0#202'e'#0#202'e'#0#202'e'#0#203'f'#0#203'f'#0#203'f'#0#197
+  +'c'#3#129'A%'#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192'@@@'#198'a'#0#198'a'#0#198'a'#0#200'c'#0#201'd'#0#203'f'#0#203'f'#0
+  +#203'f'#0#197'c'#3#129'A%'#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#191'['#2#206#131'?'#214#149'Z'#216#151'['#214#143'K'#208
+  +'w '#203'f'#0#203'f'#0#203'f'#0#130'A%'#255#0#255'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192'@@@'#193'd'#5#231#195#160#254#254#254#254#254#254
+  +#254#254#254#254#254#254#219#153'W'#203'f'#0#203'f'#0#203'f'#0'@&@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#197'o'#23#197'o'#24#198'q'#28#196
+  +'n'#26#197'm'#30#228#183#141#254#254#254#202'e'#0#203'f'#0#203'f'#0#130'A%@'
+  +#0#192#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'@'#0#192'@@@'#204'},'
+  +#234#204#172#198'p'#25#194'h'#12#191'`'#3#198'i'#21#254#254#254#202'e'#0#203
+  +'f'#0#203'f'#0#130'A%@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#212#141'D'#236#207#177
+  +#254#254#254#203'{*'#198'p'#25#195'g'#11#215#152']'#254#254#254#202'e'#0#203
+  +'f'#0#203'f'#0#130'A%~~~UUUIIIIII$F'#196#14'?'#255#7':'#255#1'4'#254#170'W'
+  +#17#230#180#130#227#177'|'#218#152'T'#244#224#204#254#254#254#254#254#254#248
+  +#238#227#243#225#207#242#223#204#254#254#254#229#184#141#202'e'#0#203'f'#0
+  +#203'f'#0#130'A%dddUUUUUUIII6O'#166#14'?'#255#14'?'#255#7':'#255#170'U'#14
+  +#231#178'}'#240#211#181#229#176'y'#245#225#204#254#254#254#254#254#254#244
+  +#226#208#235#203#171#233#199#164#219#158'`'#199'c'#3#202'e'#0#203'f'#0#203'f'
+  +#0'@&^^^UUUUUUUUUJMX+J'#187' E'#209'(A'#161'AAA'#175'b!'#243#217#191#244#217
+  +#190#234#187#139#242#216#189#254#254#254#213#142'E'#208#130'2'#205'w '#203'o'
+  +#17#202'f'#4#202'e'#0#203'f'#0#130'A%'#13#13#13'^^^^^^UUUUUUIIIUUUIIIAAAAAA'
+  +#170'U'#14#233#183#130#248#231#213#246#223#200#233#187#139#239#207#174#215
+  +#143'E'#211#132'3'#208'z"'#207't'#23#203'h'#8#203'f'#0#197'c'#3'}?'''#16#16
+  +#16'hhh^^^UUU^^^UUUIIIPPPIIIIIIAAA'#171'V'#16#235#185#134#246#224#202#247#230
+  +#212#240#209#177#232#185#138#227#170'q'#223#160'`'#217#143'D'#206'q'#17#197
+  +'c'#3#143'H'#30#30#30#30'...'#138#138#138'ddd^^^UUUUUUUUUUUUIIIIIICJ`?BN'#172
+  +'W'#15#179'g('#236#188#139#240#203#166#238#202#164#234#188#142#225#162'c'#212
+  +'~('#176'\'#21#137'E!'#30#30#30#18#18#28'UUU'#255#0#255'dddddd^^^X[eNZ'#129
+  +'QT^UUUDMn'#29'K'#243#23'E'#243'"A'#184#7':'#255#174'Y'#17#176']'#23#178'a'
+  +#29#177'`'#26#176'['#20#156'P'#25#0#27#206#27'!M!!!!!!'#255#0#255#255#0#255
+  +'dddddd_bkEk'#224'9h'#255'A^'#191'UUU>S'#157' Q'#255#26'K'#255#14'?'#255#14
+  +'?'#255'AAA888888888'#31'-u'#12'%'#178#16'#'#150')))!!!!!!'#255#0#255#255#0
+  +#255#143#143#143'hhhagxGs'#245'9h'#255'9h'#255'C^'#181'2\'#233' Q'#255' Q'
+  +#255' Q'#255#14'?'#255#14'?'#255'"A'#184'888888111111)))))))))~~~'#255#0#255
+  +#255#0#255#255#0#255'hhhhhh[l'#159'Ft'#255'?n'#255'9h'#255'3b'#255'3b'#255' '
+  +'Q'#255' Q'#255' Q'#255#14'?'#255#20'@'#231'AAA888888888111111888'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'hhhhhh[l'#159'Ft'#255'?n'#255'9h'
+  +#255'3b'#255'3b'#255' Q'#255' Q'#255' Q'#255'$F'#196'2A}"A'#184'1:`888888111'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'hhhhh'
+  +'h_h'#130'Lo'#216'9h'#255'9h'#255'3b'#255'3b'#255' Q'#255' Q'#255#26'K'#255
+  +#14'?'#255' E'#209'8>W888888'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'hhhhhhddd_h'#130'Nf'#175'Cd'#204
+  +'<_'#213'<_'#213'3U'#200'6O'#166'CJ`IIIAAAIII'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#143#143#143'hhhdddddd^^^^^^UUUUUUUUUIIIIIIvvv'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#138#138#138'hhh^^^^^^^^^~'
+  +'~~'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROPOWEREDBYREMOBJECTSBUTTON','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#255#0#255#135'L*'#135'N.'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#152'bA'#142'V5'#135'N.'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#191#144'm'#169'vR'#135'N.'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'
+  +#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#224#186#152#173'}Y'#135
+  +'N.'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#226#191#159
+  +#166'tU'#137'P2'#134'L-'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#231
+  +#199#169#182#138'j'#156'hI'#144'Z:'#139'R2'#135'N.'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@'#250#225#198#237#207#177#211#172#142#180#132'g'#153'eE'#142'T5'
+  +#136'P/'#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192#254#233#209#254#233#209#255#235#207#255#231#202#239#208#178#203#163#130
+  +#165'rQ'#144'W8'#137'P2'#135'M-'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#208#183#169#207#182#164#224#201#181#247#229#209#255#240#221#255#240
+  +#221#254#238#218#254#237#216#254#235#213#254#234#212#254#233#209#254#233#207
+  +#255#234#206#255#235#207#251#225#196#220#183#151#170'xX'#143'Y:'#138'R3'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#218#198#187#216#192#180#224#203#187#246
+  +#230#212#255#243#225#255#240#221#254#239#222#254#239#222#254#237#220#254#238
+  +#218#254#237#216#254#234#212#254#233#209#254#231#207#255#231#202#255#234#206
+  +#255#230#198#215#177#144#161'oP'#143'Y:'#139'T4'#255#0#255#255#0#255#255#0
+  +#255#225#208#197#226#206#194#240#224#209#254#240#226#255#243#227#254#240#226
+  +#254#240#226#254#240#226#254#240#224#254#239#222#254#237#220#254#237#216#254
+  +#234#212#254#233#209#254#231#206#255#231#202#255#234#202#247#217#184#193#150
+  +'v'#151'dD'#143'Y:'#255#0#255#255#0#255#235#225#218#231#218#208#235#221#208
+  +#250#237#224#254#242#231#254#242#231#254#243#230#254#243#230#254#243#230#255
+  +#243#227#254#239#225#254#239#222#254#237#220#254#237#216#254#234#212#254#233
+  +#209#254#231#206#255#231#201#255#230#198#222#184#153#164'tU'#147'_A'#145'[<'
+  +#255#0#255#240#235#230#237#227#220#242#230#220#252#242#230#254#244#237#254
+  +#244#237#254#244#237#254#244#237#254#244#237#254#242#231#254#242#229#254#239
+  +#225#254#239#221#254#238#218#254#235#213#254#233#209#254#231#207#255#231#202
+  +#255#231#201#234#202#170#176#129'e'#153'gH'#150'bC'#255#0#255#247#243#242#243
+  +#235#230#246#237#227#252#243#234#254#247#239#254#247#240#254#247#239#254#247
+  +#240#254#247#239#254#244#237#254#242#231#254#242#229#254#240#224#254#237#220
+  +#254#237#216#254#234#212#254#233#207#255#231#202#255#231#202#237#204#173#180
+  +#136'k'#158'mP'#154'iJ'#255#0#255#254#252#252#250#246#243#247#240#234#252#244
+  +#235#254#248#240#254#250#244#254#250#244#254#250#244#254#248#240#254#244#237
+  +#254#244#234#254#243#230#254#240#226#254#239#221#254#237#217#254#235#213#254
+  +#233#207#254#231#206#255#231#202#229#197#166#178#137'l'#161'tX'#159'oR'#255#0
+  +#255#255#255#255#255#254#254#252#248#246#252#246#239#254#250#244#254#251#247
+  +#254#251#248#254#251#247#254#250#244#254#247#239#254#246#235#254#243#230#254
+  +#240#226#254#239#222#254#237#217#254#235#213#254#233#209#254#233#207#252#226
+  +#197#213#180#151#177#136'm'#167'z`'#164'wZ'#255#0#255#255#0#255#255#255#255
+  +#255#255#255#254#250#247#254#250#244#254#251#248#254#252#252#254#251#248#254
+  +#250#244#254#248#240#254#244#237#254#243#230#254#240#226#254#239#222#254#237
+  +#217#254#235#213#254#233#209#255#234#206#235#208#181#197#160#136#178#138'r'
+  +#172#130'i'#255#0#255#255#0#255#255#0#255#255#255#255#255#255#255#255#255#252
+  +#254#250#247#254#250#247#254#251#247#254#251#247#254#250#244#252#246#239#254
+  +#246#234#254#243#230#254#240#226#254#239#221#254#237#217#254#237#216#254#233
+  ,#209#242#218#192#211#181#157#189#154#131#182#144'z'#178#138't'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#255#255#255#255#255#255#254#254#254#251#248
+  +#254#250#244#254#247#240#254#247#240#254#244#237#254#244#234#254#243#230#254
+  +#240#226#255#240#221#254#237#216#251#231#208#239#216#193#217#191#171#198#167
+  +#149#192#159#139#187#153#132#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#255#255#255#255#255#255#255#255#254#251#248#254#250#244
+  +#252#246#239#252#243#234#252#240#229#251#239#226#250#235#220#248#231#215#242
+  +#224#206#230#211#193#218#194#178#208#181#164#202#173#156#198#167#149#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#255#255#255#255#255#255#255#255#255#254#254#252#252#248#250#247#240#247
+  +#239#233#244#234#225#239#227#217#235#220#209#229#212#201#221#203#191#216#196
+  +#182#213#189#175#208#183#166#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255
+  +#255#255#255#255#255#255#255#254#254#251#247#246#246#239#235#242#233#227#237
+  +#225#220#231#218#211#227#212#202#221#204#193#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#255#255#255#254
+  +#254#251#247#246#246#240#237#242#233#227#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROWEBSOCKETSHTTPCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'422'#168#162
+  +#167'}st'#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#254#150#18
+  +#254#150#18#169'~H'#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189
+  +'H'#22#166'%'#26#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0':77'
+  +#165#164#165'opp'#254#150#18#254#150#18#254#150#18#254#150#18#254#162'!'#254
+  +#162'!'#254#162'!'#254#162'!\'#191'Ux'#219'|'#165#241#165#165#241#165'u'#218
+  +'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255#135#22't~'#2#2#129#0#255#0#255'42'
+  +'2'#178#176#178'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'
+  +#255#172'0'#255#176'6'#255#172'0BqCh'#207'h'#129#221#130#129#221#130'e'#206
+  +'fD'#186'E'#28#163'#:'#151#26#217#146'#'#255#132#18'R~'#2#2#129#0#255#0#255
+  +'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255#186'D'
+  +#255#186'D'#255#186'D'#255#186'D'#255#180'<F'#134'FV'#197'WV'#197'WI'#188'I2'
+  +#172'3'#12#153#22'#'#139#12#206#139#24#255'~'#10#255'~'#10#255#0#255#255#0
+  +#255'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255
+  +#196'U'#255#196'U'#255#199'\'#255#196'U'#255#192'M'#255#186'DBqC.q0%'#168')'
+  +#26#152#23#6#139#8'`'#137#14#244#132#16#255#0#255#255#0#255#255#0#255#255#0
+  +#255'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199'\'#255
+  +#205'e'#255#208'j'#255#205'e'#255#205'e'#255#199'\'#255#196'U'#255#186'D'#255
+  +#180'<'#255#172'0'#137'h8*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'#255#208
+  +'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'#255#196
+  +'U'#255#186'D'#255#172'0'#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'
+  +#255#216'v'#255#221#129#254#226#136#254#226#136#255#221#129#255#217'x'#255
+  +#208'j'#255#199'\'#255#192'M'#255#180'<'#130'kM*%%'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201
+  +']'#255#216'v'#255#217'x'#254#230#144#254#234#152#254#234#152#254#230#144#255
+  +#221#129#255#216'v'#255#205'e'#255#196'U'#255#186'D'#130'kM*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'opp'#255#196
+  +'U'#255#205'e'#255#216'v'#255#221#129#254#234#152#254#242#166#254#243#169#254
+  +#234#152#254#226#136#255#216'v'#255#205'e'#255#196'U'#255#186'D'#134'oS*%%'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181
+  +'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226#136#254#234#150#254#242#166
+  +#254#243#169#254#234#152#254#226#136#255#216'v'#255#208'j'#255#196'U'#255#186
+  +'D'#137'tW*%%'#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255'989'#184
+  +#183#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203#181
+  +'y'#197#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255#0#0#0
+  ,#255#0#255#0#0#0#255#0#255#0#0#0'A<<------'#212#209#213#196#196#197#173#172
+  +#173#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%%'
+  +#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#255#0
+  +#255#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160#144#141
+  +#145#139#131#137#132'yzZST*%%'#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255
+  +#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#30#30#30'111------------989422111'#255#0#255#255#0#255#0#0#0#255#0
+  +#255#255#0#255#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROWEBSOCKETSHTTPSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'HJK'#196#189
+  +#194#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{'#169'~H'
+  +#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189'H'#22#166'%'#26
+  +#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0'HJK'#198#193#198#194
+  +#189#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{{{{\'#191'Ux'#219
+  +'|'#165#241#165#165#241#165'u'#218'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255
+  +#135#22't~'#2#2#129#0#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#227#226#230'HJK{{{{{{{{{BqCh'#207'h'#129#221#130#129#221#130'e'
+  +#206'fD'#186'E'#28#163'#:'#151#26#217#146'#'#255#132#18'R~'#2#2#129#0#255#0
+  +#255'HJK'#206#202#206#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'H'
+  +'JK{{{{{{{{{{{{F'#134'FV'#197'WV'#197'WI'#188'I2'#172'3'#12#153#22'#'#139#12
+  +#206#139#24#255'~'#10#255'~'#10#255#0#255#255#0#255'HJK'#212#208#212#207#202
+  +#207#203#197#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134
+  +#134#134#134#146#146#146'{{{BqC.q0%'#168')'#26#152#23#6#139#8'`'#137#14#244
+  +#132#16#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#217#213#216#212#208#212
+  +#207#202#207#203#197#202'HJK'#237#237#239'HJK{{{{{{{{{ooo'#134#134#134#134
+  +#134#134#167#167#167'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJK'#222#218#221#217#213#217#233#231#234#207
+  +#202#207'HJK'#238#237#240'HJK'#140#140#140#140#140#140#146#146#146'{{{{{{{{{'
+  +#143#143#143'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'HJK'#227#224#227#238#237#238#156#154#156#211#207#211'HJ'
+  +'K'#237#237#239'HJKTVWcddnnn'#140#140#140#140#140#140#140#140#140#166#166#166
+  +'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'HJK'#231#230#231#144#144#146#158#157#158#216#212#216'HJK'#206#207
+  +#208#207#207#207#134#135#135'ceeNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#237
+  +#235#237#146#146#147#227#224#226#255#255#255#176#176#178'QRSUVWuvw'#169#170
+  +#170#211#211#212#189#189#191''#128#129'[\]JLMHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#240#240#242#237
+  +#235#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191#151#149
+  +#152'onrXYZNPQhij'#147#149#150#208#209#209'HJK'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255'HJK'#246#246#246#255#255#255#238
+  +#238#240#242#242#244#238#237#239#229#227#231#217#215#218#203#199#204#189#183
+  +#189#173#167#173#153#145#151#153#145#151'zsuHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0'HJK'#255#255#255#237#237
+  +#239#248#248#250#251#251#252#246#244#247#234#234#237#221#220#224#207#204#208
+  +#192#187#193#176#170#176#160#152#158'HJKHJK'#255#0#255#255#0#255#255#0#255
+  ,#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255'HJKHJK'
+  +#233#233#234#252#252#252#246#246#247#235#234#238#222#220#224#208#204#208#193
+  +#187#193'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255
+  +#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255#0
+  +#255#0#0#0
+]);
+LazarusResources.Add('TROSERVERMULTIMESSAGE','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0#153#204#0#153#204#0#153#204#0#153
+  +#204#0#153#204#0#153#204#0#153#204#0#153#204#0#153#204#0#153#204#0#153#204#0
+  +#153#204#0#153#204#0#153#204#0#153#204#0#153#204#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#153#204#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#0#153#204#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#153#204#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#0#153#204#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#153#204
+  +#253#255#255#253#255#255#253#255#255#253#255#255#253#255#255#253#255#255#253
+  +#255#255#253#255#255#253#255#255#253#255#255#253#255#255#253#255#255#253#255
+  +#255#253#255#255#0#153#204#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#153#204#251#255#255#251#255#255#251#255#255
+  +#251#255#255#251#255#255#251#255#255#251#255#255#251#255#255#251#255#255#251
+  +#255#255#251#255#255#251#255#255#251#255#255#251#255#255#0#153#204#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#153
+  +#204#247#255#255#247#255#255#247#255#255#247#255#255#247#255#255#247#255#255
+  +#247#255#255#247#255#255#247#255#255#247#255#255#247#255#255#247#255#255#247
+  +#255#255#247#255#255#0#153#204#255#0#255#154'ff'#154'ff'#154'ff'#154'ff'#154
+  +'ff'#154'ff'#154'ff'#0#153#204#242#255#255#242#255#255#242#255#255#242#255
+  +#255#242#255#255#242#255#255#242#255#255#242#255#255#242#255#255#242#255#255
+  +#242#255#255#242#255#255#242#255#255#242#255#255#0#153#204#255#0#255#154'ff'
+  +#245#218#189#246#217#188#246#217#187#247#216#185#247#214#179#247#188#135#0
+  +#153#204#237#255#255#237#255#255#237#255#255#198#213#213#154#166#166#154#166
+  +#166#154#166#166#186#200#200#231#249#249#237#255#255#237#255#255#237#255#255
+  +#237#255#255#237#255#255#0#153#204#255#0#255#154'ff'#243#221#198#244#221#197
+  +#244#220#196#244#220#195#245#217#188#245#192#142#0#153#204#231#255#255#231
+  +#255#255#184#148'u'#173'H'#1#173'H'#1#173'H'#1#164'k>'#150#166#166#186#205
+  +#205#231#255#255#231#255#255#231#255#255#231#255#255#231#255#255#0#153#204
+  +#255#0#255#154'ff'#242#224#206#242#224#205#242#223#204#242#223#203#243#220
+  +#196#243#194#148#0#153#204#224#255#255#204#183#156#173'H'#1#242#144#10#255
+  +#154#2#252#163'!'#173'H'#1#163'rI'#146#166#166#224#255#255#224#255#255#224
+  +#255#255#224#255#255#224#255#255#0#153#204#255#0#255#154'ff'#240#226#212#240
+  +#226#211#241#226#210#241#225#209#241#222#203#241#197#153#0#153#204#217#255
+  +#255#173'H'#1#236#145'!'#255#162#27#189'Y'#3#217#147'P'#252#163'!'#173'H'#1
+  +#141#166#166#217#255#255#217#255#255#217#255#255#217#255#255#217#255#255#0
+  +#153#204#255#0#255#154'ff'#239#228#215#239#228#215#239#227#214#240#227#214
+  +#223#152'='#223#134'.'#0#153#204#210#255#255#173'H'#1#255#187']'#172'M'#23
+  +#141#137'|'#173'H'#1#255#179'A'#173'H'#1#137#166#166#210#255#255#210#255#255
+  +#210#255#255#210#255#255#210#255#255#0#153#204#255#0#255#154'ff'#240#230#219
+  +#240#230#218#240#229#218#239#229#217#239#225#210#239#199#160#0#153#204#202
+  +#255#254#173'H'#1#255#196't'#172'M'#23#131#166#165#173'H'#1#255#181'H'#173'H'
+  +#1#131#165#165#196#248#247#191#241#241#188#238#237#186#235#235#183#231#231#0
+  +#153#204#255#0#255#154'ff'#242#234#224#242#233#223#242#233#223#241#232#222
+  +#223#152'='#223#134'.'#0#153#204#193#255#254#173'H'#1#255#200#128#172'M'#23
+  +'~'#166#165#173'H'#1#255#185'S'#173'H'#1'z'#161#161#171#225#224#158#208#207
+  +#148#195#195#142#187#188#136#186#189#0#153#204#255#0#255#154'ff'#245#237#229
+  +#244#237#228#244#236#228#244#236#227#243#232#220#243#206#167#0#153#204#184
+  +#255#254#173'H'#1#255#204#138#172'M'#23'x'#166#165#173'H'#1#255#189']'#173'H'
+  +#1'w'#165#164#196#231#231#176#214#218#145#200#208'm'#198#217#27#176#220#0#153
+  +#204#255#0#255#154'ff'#247#241#234#246#240#234#246#240#233#246#239#232#245
+  +#236#225#245#208#171#0#153#204#175#255#254#173'H'#1#255#208#150#172'M'#23'r'
+  +#166#165#173'H'#1#255#192'i'#173'H'#1'r'#166#165#191#243#246#183#240#254'y'
+  +#228#255#27#179#225#0#153#204#255#0#255#255#0#255#154'ff'#249#244#240#248#244
+  +#239#248#243#238#248#243#237#247#239#230#247#212#175#0#153#204#166#255#254
+  +#173'H'#1#255#211#161#172'M'#23'l'#166#165#173'H'#1#255#196's'#173'H'#1'l'
+  +#166#165#152#227#233'w'#227#255#26#179#225#0#153#204#255#0#255#255#0#255#255
+  +#0#255#154'ff'#251#248#245#251#247#244#250#247#243#250#246#242#250#243#235
+  +#249#214#179#0#153#204#156#255#254#173'H'#1#255#215#172#172'M'#23'f'#166#165
+  +#173'H'#1#255#200''#173'H'#1'f'#166#165'o'#216#233#25#178#225#0#153#204'^z'
+  ,#142#255#0#255#255#0#255#255#0#255#154'ff'#253#252#250#253#251#249#252#251
+  +#248#252#250#248#252#246#240#251#218#182#0#153#204#153#255#254#173'H'#1#236
+  +#192#156#172'M'#23#140#233#232#173'H'#1#255#204#137#173'H'#1'^'#161#162#27
+  +#177#220#0#153#204#151#207#224#154'ff'#255#0#255#255#0#255#255#0#255#154'ff'
+  +#255#255#254#255#254#254#254#254#253#254#254#253#254#250#245#254#220#186#0
+  +#153#204#0#153#204'&'#153#173'H'#1'&'#153#0#153#204#173'H'#1#255#200#132
+  +#173'H'#1#0'd'#133#0#153#204' '#153#235#249#245#241#154'ff'#255#0#255#255#0
+  +#255#255#0#255#154'ff'#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#254#254#255#254#254#254#254#253#254#253
+  +#252#181#141'r'#173'H'#1#255#197#130#173'H'#1#164#163#162#252#250#248#252#250
+  +#247#251#249#246#154'ff'#255#0#255#255#0#255#255#0#255#154'ff'#154'ff'#154'f'
+  +'f'#154'ff'#154'ff'#154'ff'#154'ff'#173'H'#1#154'ff'#154'ff'#154'ff'#168'S'
+  +#26#173'H'#1#229#158'9'#249#193#135#173'H'#1#150'dd'#154'ff'#154'ff'#154'ff'
+  +#154'ff'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#173'H'#1#252#217#176#245#182'f'
+  +#245#186's'#247#191'|'#249#195#143#173'H'#1#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#173'H'
+  +#1#173'H'#1#173'H'#1#173'H'#1#173'H'#1#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TRODESIGNTIMECALL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@'#1'2'#2#1'2'#2#1'2'#2#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'
+  +#2'p'#7#2'p'#7#1'J'#4#1'2'#2#1'2'#2#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'@'#0#192#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'@'#0
+  +#192'@@@'#3#166#12#3#166#12#3#166#12#3'{'#9#1'J'#4#1'2'#2#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#3#166#12#3#154#11#3#154#11#3#166#12#3#166#12#2'l'#7#1'2'#2#255#0
+  +#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192'@@@'#3#166#12#3#166#12#3#166#12#3#154#11#3#166#12#3#166#12#2'l'#7#1'2'
+  +#2#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192'@@@'#3#166#12#3#154#11#3#154#11#3#154#11#3#154#11#3#166#12#3#166#12#2'l'
+  +#7#1'2'#2#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#3#166#12#3#154#11#3#166#12#3#154#11#3#166#12#3#154#11#3#166#12#3#166#12
+  +#1'J'#4#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#3#166#12#3#166#12#3#154#11#3#154#11#3#154#11#3#154#11#3
+  +#154#11#3#166#12#3'{'#9#1'2'#2#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#3
+  +#166#12#3#154#11#3#154#11#3#166#12#3#154#11#3#166#12#3#154#11#3#166#12#3#154
+  +#11#3#166#12#1'@'#3#255#0#255#1'J'#4#7'i'#20#28#184'P'#25#177'A'#20#175'A'
+  +#218#244#225#246#252#246'#'#176'-'#3#154#11#3#166#12#3#154#11#3#154#11#3#166
+  +#12' '#175'+.'#181'9'#3#154#11#3#166#12#3#154#11#3#154#11#3#154#11#3#166#12#3
+  +#166#12#1'Y'#5#2'='#4#1'Y'#5#13#128'#!'#186'V'#28#178'N'#20#175'A'#218#244
+  +#225#255#255#255#153#222#160#8#163#25#8#163#25#6#164#21#8#163#25#8#161#22'='
+  +#187'G'#231#247#233'Y'#199'c'#3#154#11#3#166#12#3#154#11#3#166#12#3#154#11#3
+  +#166#12#2'p'#7#2'='#4#1'Y'#5#19#144'/*'#191'`'#30#180'P"'#181'T'#181#233#199
+  +#255#255#255#255#255#255#134#217#160')'#183'Q'#25#177'A'#28#178'N)'#183'Q1'
+  +#182'?'#255#255#255#255#255#255'r'#208'z'#3#154#11#3#166#12#3#154#11#3#154#11
+  +#3#166#12#3#129#9#1'2'#2#2'l'#7#29#154'9C'#197's"'#181'T"'#181'Tc'#206#138
+  +#255#255#255#255#255#255#255#255#255#202#239#216'}'#215#158'W'#202#128'W'#202
+  +#128#132#216#144#255#255#255#255#255#255#255#255#255#146#220#153#8#163#25#3
+  +#154#11#3#166#12#3#166#12#3#129#9#1'@'#3#4'm'#8#29#154'9\'#208#137'9'#191'h"'
+  +#181'T('#184'Y'#183#234#202#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#178#230#186'1'#182'?'#3#154#11#3#166#12#3#129#9#2'='#4#3'u'#9#26#150
+  +'0l'#212#149'Y'#205#133'"'#181'T"'#181'T9'#191'h'#192#237#209#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#159#225#175#6#164#21#3#166#12#4'm'#8
+  +#2'='#4#255#0#255#14#139#28'l'#212#149#134#217#160'='#192'k'#22#175'I"'#181
+  +'T('#184'Y'#140#220#170#230#248#237#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#178#230#186'#'#178
+  +';'#4#159#17#3#166#12#1'Y'#5#255#0#255#255#0#255#15#146#28'I'#193'l'#167#230
+  +#192'v'#213#152'('#184'Y'#22#175'I"'#181'T"'#181'T9'#191'hv'#213#152#177#231
+  +#198#208#242#221#246#252#246#255#255#255#255#255#255#255#255#255#147#221#163
+  +#22#171'-'#8#163#25#6#164#21#4#159#17#1'@'#3#255#0#255#255#0#255#255#0#255#26
+  +#161'1'#154#227#186#181#233#199'Y'#205#133'"'#181'T'#20#175'A'#30#180'P"'#181
+  +'T"'#181'T"'#181'T9'#191'h'#159#225#175#255#255#255#255#255#255'z'#212#138#22
+  +#171'-'#12#167'$'#8#163#25#9#176#28#3'u'#9#255#0#255#255#0#255#255#0#255#255
+  +#0#255'('#161'2I'#193'l'#183#234#202#183#234#202'W'#202#128'('#184'Y'#22#175
+  +'I'#30#180'P"'#181'T'#30#180'P'#30#180'P'#147#222#175#246#252#246'Y'#205#133
+  +#16#170'0'#16#170'0'#12#173''''#12#173''''#12#167'$'#1'@'#3#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#20#156'$k'#209#139#192#237#209#189#237#208
+  +'v'#213#152'9'#191'h"'#181'T'#28#178'N('#184'Y"'#181'Tl'#212#149'Y'#205#133
+  +#25#177'A'#25#177'A'#21#166'<'#16#170'0'#15#176'-'#5'_'#13#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#21#151'$l'#212#149#192
+  +#237#209#208#242#221#164#227#188'l'#212#149'P'#198'y9'#191'h('#184'Y='#192'k'
+  ,'9'#191'h9'#191'h('#184'Y '#183'L'#25#177'A'#7'i'#20#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#28#158'(O'
+  +#196's'#154#227#186#189#237#208#192#237#209#183#234#202#154#227#186#140#220
+  +#170#129#217#164'l'#212#149'Y'#205#133'9'#191'h '#183'L'#7'i'#20#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#28#158'('#26#161'1P'#198'y'#129#217#164#149#226#181
+  +#149#226#181#140#220#170'v'#213#152'\'#208#137'9'#191'h'#22#145'2'#5'_'#13
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#28#158'('#26
+  +#161'1&'#169'C&'#169'C&'#169'C#'#161'@'#19#144'/'#2'l'#7#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROOLYMPIAEVENTREPOSITORY','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@@&'#129'A%'#129'A%'#129'A%'#129'A%'#129'A%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#203
+  +'f'#0#203'f'#0#203'f'#0#203'f'#0#203'f'#0#203'f'#0#129'A%'#129'A%'#255#0#255
+  +#255#0#255#255#0#255'@'#0#192#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'@'#0
+  +#192'@@@'#202'e'#0#202'e'#0#202'e'#0#202'e'#0#203'f'#0#203'f'#0#203'f'#0#197
+  +'c'#3#129'A%'#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192'@@@'#198'a'#0#198'a'#0#198'a'#0#200'c'#0#201'd'#0#203'f'#0#203'f'#0
+  +#203'f'#0#197'c'#3#129'A%'#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#191'['#2#206#131'?'#214#149'Z'#216#151'['#214#143'K'#208
+  +'w '#203'f'#0#203'f'#0#203'f'#0#130'A%'#255#0#255'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192'@@@'#193'd'#5#231#195#160#254#254#254#254#254#254
+  +#254#254#254#254#254#254#219#153'W'#203'f'#0#203'f'#0#203'f'#0'@&@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#197'o'#23#197'o'#24#198'q'#28#196
+  +'n'#26#197'm'#30#228#183#141#254#254#254#202'e'#0#203'f'#0#203'f'#0#130'A%@'
+  +#0#192#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'@'#0#192'@@@'#204'},'
+  +#234#204#172#198'p'#25#194'h'#12#191'`'#3#198'i'#21#254#254#254#202'e'#0#203
+  +'f'#0#203'f'#0#130'A%@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#212#141'D'#236#207#177
+  +#254#254#254#203'{*'#198'p'#25#195'g'#11#215#152']'#254#254#254#202'e'#0#203
+  +'f'#0#203'f'#0#130'A%z3'#202'NN'#205'MM'#206'66'#174#168#167#198#255#255#247
+  +#238#238#237#250#250#240#170'W'#17#230#180#130#227#177'|'#218#152'T'#244#224
+  +#204#254#254#254#254#254#254#248#238#227#243#225#207#242#223#204#254#254#254
+  +#229#184#141#202'e'#0#203'f'#0#203'f'#0#130'A%gE'#206'SS'#211'PP'#209'=='#185
+  +'zz'#177#254#253#245#255#255#248#228#228#228#170'U'#14#231#178'}'#240#211#181
+  +#229#176'y'#245#225#204#254#254#254#254#254#254#244#226#208#235#203#171#233
+  +#199#164#219#158'`'#199'c'#3#202'e'#0#203'f'#0#203'f'#0'@&dQ'#214'WW'#215'S'
+  +'S'#211'NN'#206'=='#172'vv'#175#153#153#191'XX'#164'44'#173#175'b!'#243#217
+  +#191#244#217#190#234#187#139#242#216#189#254#254#254#213#142'E'#208#130'2'
+  +#205'w '#203'o'#17#202'f'#4#202'e'#0#203'f'#0#130'A%'#28#9'xiV'#223'ZZ'#218
+  +'VV'#214'SS'#211'NN'#206'>>'#186'66'#175'<<'#186'CC'#195#170'U'#14#233#183
+  +#130#248#231#213#246#223#200#233#187#139#239#207#174#215#143'E'#211#132'3'
+  +#208'z"'#207't'#23#203'h'#8#203'f'#0#197'c'#3'}?'''#30#11'zzW'#229'^^'#221'Y'
+  +'Y'#217'VV'#214'SS'#211'PP'#209'MM'#206'II'#202'FF'#198'AA'#194#171'V'#16#235
+  +#185#134#246#224#202#247#230#212#240#209#177#232#185#138#227#170'q'#223#160
+  +'`'#217#143'D'#206'q'#17#197'c'#3#143'H'#30#22#22#149','#12''#152'P'#237'cc'
+  +#225'\\'#221'ZZ'#218'UU'#215'PP'#210'OO'#207'LL'#204'EE'#198'RQ'#200'YY'#204
+  +#172'W'#15#179'g('#236#188#139#240#203#166#238#202#164#234#188#142#225#162'c'
+  +#212'~('#176'\'#21#137'E!'#26#26#158#25#25#149'J'#12#140#193'8'#245'jj'#228
+  +'``'#225'YY'#218'\\'#213''#223'bb'#215'JJ'#202'UU'#184#215#214#233#212#211
+  +#235#148#148#214#213#213#225#174'Y'#17#176']'#23#178'a'#29#177'`'#26#176'['
+  +#20#156'P'#25#234#232#221'QQ'#167#25#25#159#27#27#143#136#8#176#236#20#252'{'
+  +'t'#234'bb'#227'WW'#200#189#189#226#253#253#252#166#166#232'DD'#203'gg'#180
+  +#255#254#245#249#248#243#255#255#245#213#213#230'??'#180'??'#187';;'#186'..'
+  +#172'>>'#148#159#159#184''#169'$$'#147'##'#164#29#26#130#215#3#227#255#0
+  +#255#178'W'#244'jj'#231']]'#189#235#235#237#255#255#255#233#233#246#167#167
+  +#230#198#198#229#249#249#246#244#243#243#244#243#242#240#239#241#215#215#235
+  +#167#167#220'??'#189'77'#184'..'#171'!"'#150'  '#153'))'#169'&&'#159'd'#16
+  +#158#255#0#255#255#0#255#240#19#253#138'{'#240'XX'#209'rr'#180#244#245#245
+  +#255#255#254#255#255#250#255#255#250#246#246#246#245#245#245#244#243#243#244
+  +#242#242#255#255#245#186#186#220'66'#184'66'#187'99'#186'55'#183'22'#180'..'
+  +#174', '#144#220#4#232#255#0#255#255#0#255#255#0#255#217'5'#250#128#128#240
+  +'QQ'#203'rr'#180#231#231#237#255#255#255#253#253#250#248#248#247#246#246#247
+  +#245#245#245#244#244#243#250#249#244#170#169#221'VV'#200#151#151#217'YY'#196
+  +'55'#184'55'#181',,'#160#170#13#205#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#208'D'#249#129#129#240'VV'#210'YY'#176#173#173#206#241#241#242#255
+  ,#255#253#255#255#253#255#255#251#254#254#250#255#255#249#254#253#248#221#220
+  +#231#176#176#202'LL'#181'88'#187'55'#173#154#20#202#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#219'9'#250#147#128#242'hh'#226
+  +'KK'#191'[['#177#135#135#189#175#175#206#194#194#216#193#193#215#171#171#202
+  +#130#130#181'SS'#165'33'#167'=='#187'I9'#188#176#20#219#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#241#23
+  +#253#188'_'#246#134'~'#239'jj'#225'SS'#205'II'#190'EE'#182'CC'#179'@@'#180'A'
+  +'A'#188'IJ'#199'RK'#205#135'-'#217#224#9#243#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#238#25#253#205'C'#247#170'`'#242#143'j'#235'~j'#230'xd'#226''
+  +'['#226#145'H'#229#179'+'#235#225#14#246#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROOLYMPIASESSIONMANAGER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'
+  +#3#143#10#17#172'.'#22#175'2'#13#146#15#0''#0#0'Z'#0#0'Z'#0#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@'#31#189'L'#23#186'K'#15#147#19#140#226#140#17#144#19#0'z'#0#0
+  +']'#0'n-'#19'n-'#19#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@@@"'#202'Y'#15#147#19'p'#211'j'#255#240#239#30#157'"'#7#147#24
+  +#0'\'#0#244'[A'#248'J6n-'#19'n-'#19'@'#0#192#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#23#178'='#15#147#19#160#199#188#251#252#252#25#164'$'#12
+  +#150'%'#0'Z'#1#237#156#136#234#136't'#225'@#n-'#19'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192'@@@'#12')'#24'1X~.X'#146'5i'#130#17#135'8'#0'Z'#0
+  +#184'A'#23#255#240#239#226#176#154#212'C'#31'n-'#19'@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#9#17'?'#7')'#154#5'('#149#2#29#143#2#29#143#184'A'
+  +#23#233#161#140#251#252#252#229#160#136#226'U-n-'#19'@'#0#192#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'@'#0#192'@@@'#14'?'#167#13'A'#181#13'?'#172#14
+  +'@'#175#2#28#145#134'wwZ'#135#153'W'#131#143#149'hR'#181'2'#21#210#0#223'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192#10#28'='#18'T'#213#16'M'#198#17'M'#197#17'M'#197
+  +#17'L'#203#17'W'#139#9'_'#194#4'W'#193#11'n'#154#3#3'y~'#1#166'z3'#202'NN'
+  +#205'MM'#206'66'#174#168#167#198#255#255#247#238#238#237#250#250#240'oo'#197
+  +'--'#178#3#3#4#0#0#0#10#26'1'#24'j'#229#22'g'#229#22'c'#221#22'c'#221#23'e'
+  +#231#17'W'#139' '#129#251#30'{'#247#22'k'#239#11'n'#154'?'#2#130'gE'#206'SS'
+  +#211'PP'#209'=='#185'zz'#177#254#253#245#255#255#248#228#228#228'JJ'#169'33'
+  +#182#5#5#6#10#9#7#24#27#31#28'['#169#31#139#255#31#138#255#31#139#255#31#138
+  +#255#17'W'#139')'#145#250'&'#142#250'!'#132#250#26'p'#235#11'n'#154'dQ'#214
+  +'WW'#215'SS'#211'NN'#206'=='#172'vv'#175#153#153#191'XX'#164'44'#173'<<'#188
+  +'88'#184'%%%USP+2:'#17'5]'#19'K'#135#23'W'#154#22'Cx('#142#230'0'#157#251'-'
+  +#152#250'('#144#251#31#130#247#11'n'#154'iV'#223'ZZ'#218'VV'#214'SS'#211'NN'
+  +#206'>>'#186'66'#175'<<'#186'CC'#195'??'#192'77'#185#5#5#6'AABNKJ865'#22#19
+  +#19#5#3#3#5#2#1#2'7\5'#166#255'1'#157#251','#150#251'#'#137#246#11'n'#154'zW'
+  +#229'^^'#221'YY'#217'VV'#214'SS'#211'PP'#209'MM'#206'II'#202'FF'#198'AA'#194
+  +'::'#189'88'#155#196#195#208' '#31'"'#29#28#28#20#20#20#12#12#12#2'Bm'#29'x'
+  +#189'9'#172#255'7'#167#255'4'#160#255#11'n'#154','#12''#152'P'#237'cc'#225
+  +'\\'#221'ZZ'#218'UU'#215'PP'#210'OO'#207'LL'#204'EE'#198'RQ'#200'YY'#204'(('
+  +#167#132#132#176#245#243#242'MM'#188'..'#178#19'i'#156'R'#152#188#21'c'#146#3
+  +'>h'#3'>h'#0'<j'#11'n'#154'J'#12#140#193'8'#245'jj'#228'``'#225'YY'#218'\\'
+  +#213''#223'bb'#215'JJ'#202'UU'#184#215#214#233#212#211#235#148#148#214#213
+  +#213#225#145#144#187'55'#169'44'#183'""'#154'#w'#166#22'i'#151#7'P~'#0'<j'#25
+  +#25#159#27#27#143#136#8#176#236#20#252'{t'#234'bb'#227'WW'#200#189#189#226
+  +#253#253#252#166#166#232'DD'#203'gg'#180#255#254#245#249#248#243#255#255#245
+  +#213#213#230'??'#180'??'#187';;'#186'..'#172'>>'#148#159#159#184''#169'$$'
+  +#147'##'#164#29#26#130#215#3#227#255#0#255#178'W'#244'jj'#231']]'#189#235#235
+  +#237#255#255#255#233#233#246#167#167#230#198#198#229#249#249#246#244#243#243
+  +#244#243#242#240#239#241#215#215#235#167#167#220'??'#189'77'#184'..'#171'!"'
+  +#150'  '#153'))'#169'&&'#159'd'#16#158#255#0#255#255#0#255#240#19#253#138'{'
+  +#240'XX'#209'rr'#180#244#245#245#255#255#254#255#255#250#255#255#250#246#246
+  +#246#245#245#245#244#243#243#244#242#242#255#255#245#186#186#220'66'#184'66'
+  +#187'99'#186'55'#183'22'#180'..'#174', '#144#220#4#232#255#0#255#255#0#255
+  +#255#0#255#217'5'#250#128#128#240'QQ'#203'rr'#180#231#231#237#255#255#255#253
+  +#253#250#248#248#247#246#246#247#245#245#245#244#244#243#250#249#244#170#169
+  +#221'VV'#200#151#151#217'YY'#196'55'#184'55'#181',,'#160#170#13#205#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#208'D'#249#129#129#240'VV'#210'YY'
+  +#176#173#173#206#241#241#242#255#255#253#255#255#253#255#255#251#254#254#250
+  +#255#255#249#254#253#248#221#220#231#176#176#202'LL'#181'88'#187'55'#173#154
+  +#20#202#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  ,#219'9'#250#147#128#242'hh'#226'KK'#191'[['#177#135#135#189#175#175#206#194
+  +#194#216#193#193#215#171#171#202#130#130#181'SS'#165'33'#167'=='#187'I9'#188
+  +#176#20#219#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#241#23#253#188'_'#246#134'~'#239'jj'#225'SS'#205'II'
+  +#190'EE'#182'CC'#179'@@'#180'AA'#188'IJ'#199'RK'#205#135'-'#217#224#9#243#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#238#25#253#205'C'#247#170'`'#242#143
+  +'j'#235'~j'#230'xd'#226'['#226#145'H'#229#179'+'#235#225#14#246#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Glyphs.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Glyphs.res
new file mode 100644
index 0000000..08caef6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Mac.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Mac.lpk
new file mode 100644
index 0000000..d152e76
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Mac.lpk	
@@ -0,0 +1,332 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Core_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="$(LazarusDir)\lcl\units\$(TargetCPU)-$(TargetOS)\;$(LazarusDir)\packager\units\$(TargetCPU)-$(TargetOS)\;CodeGen\;ZLib\FPC\"/>
+        <UnitOutputDirectory Value="units\$(TargetCPU)-$(TargetOS)"/>
+        <SrcPath Value="$(LazarusDir)\lcl\"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - Core Library"/>
+    <Files Count="75">
+      <Item1>
+        <Filename Value="eDefines.inc"/>
+        <Type Value="Include"/>
+      </Item1>
+      <Item2>
+        <Filename Value="RemObjects.inc"/>
+        <Type Value="Include"/>
+      </Item2>
+      <Item3>
+        <Filename Value="RemObjects_Core_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item3>
+      <Item4>
+        <Filename Value="RemObjects_Core_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Core_Reg"/>
+      </Item4>
+      <Item5>
+        <Filename Value="ROMasterServerLibrary_Intf.pas"/>
+        <UnitName Value="ROMasterServerLibrary_Intf"/>
+      </Item5>
+      <Item6>
+        <Filename Value="ROOlympia_Intf.pas"/>
+        <UnitName Value="ROOlympia_Intf"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uIPHttpHeaders.pas"/>
+        <UnitName Value="uIPHttpHeaders"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uROAsync.pas"/>
+        <UnitName Value="uROAsync"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uROAsyncSCHelpers.pas"/>
+        <UnitName Value="uROAsyncSCHelpers"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROAsyncSuperTcpServer.pas"/>
+        <UnitName Value="uROAsyncSuperTcpServer"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROBaseSuperHttpChannel.pas"/>
+        <UnitName Value="uROBaseSuperHttpChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROBaseSuperHttpServer.pas"/>
+        <UnitName Value="uROBaseSuperHttpServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROBinaryHelpers.pas"/>
+        <UnitName Value="uROBinaryHelpers"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROBinMessage.pas"/>
+        <UnitName Value="uROBinMessage"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROClasses.pas"/>
+        <UnitName Value="uROClasses"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROClassFactories.pas"/>
+        <UnitName Value="uROClassFactories"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROClient.pas"/>
+        <UnitName Value="uROClient"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROClientIntf.pas"/>
+        <UnitName Value="uROClientIntf"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROCOMInit.pas"/>
+        <UnitName Value="uROCOMInit"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROCompression.pas"/>
+        <UnitName Value="uROCompression"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uRODBEventRepository.pas"/>
+        <UnitName Value="uRODBEventRepository"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uRODBSessionManager.pas"/>
+        <UnitName Value="uRODBSessionManager"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uRODL.pas"/>
+        <UnitName Value="uRODL"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uRODynamicRequest.pas"/>
+        <UnitName Value="uRODynamicRequest"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uROEventRepository.pas"/>
+        <UnitName Value="uROEventRepository"/>
+      </Item25>
+      <Item26>
+        <Filename Value="uROHtmlServerInfo.pas"/>
+        <UnitName Value="uROHtmlServerInfo"/>
+      </Item26>
+      <Item27>
+        <Filename Value="uROHtmlServerInfo.lrs"/>
+        <Type Value="LRS"/>
+      </Item27>
+      <Item28>
+        <Filename Value="uROHTTPDispatch.pas"/>
+        <UnitName Value="uROHTTPDispatch"/>
+      </Item28>
+      <Item29>
+        <Filename Value="uROHTTPTools.pas"/>
+        <UnitName Value="uROHTTPTools"/>
+      </Item29>
+      <Item30>
+        <Filename Value="uROIdeOnly.pas"/>
+        <UnitName Value="uROIdeOnly"/>
+      </Item30>
+      <Item31>
+        <Filename Value="uROJSONMessage.pas"/>
+        <UnitName Value="uROJSONMessage"/>
+      </Item31>
+      <Item32>
+        <Filename Value="uROJSONParser.pas"/>
+        <UnitName Value="uROJSONParser"/>
+      </Item32>
+      <Item33>
+        <Filename Value="uROLocalChannel.pas"/>
+        <UnitName Value="uROLocalChannel"/>
+      </Item33>
+      <Item34>
+        <Filename Value="uROLocalServer.pas"/>
+        <UnitName Value="uROLocalServer"/>
+      </Item34>
+      <Item35>
+        <Filename Value="uROMasterServerEventRepository.pas"/>
+        <UnitName Value="uROMasterServerEventRepository"/>
+      </Item35>
+      <Item36>
+        <Filename Value="uROMasterServerSessionManager.pas"/>
+        <UnitName Value="uROMasterServerSessionManager"/>
+      </Item36>
+      <Item37>
+        <Filename Value="uROmDNS.pas"/>
+        <UnitName Value="uROmDNS"/>
+      </Item37>
+      <Item38>
+        <Filename Value="uROOlympiaEventRepository.pas"/>
+        <UnitName Value="uROOlympiaEventRepository"/>
+      </Item38>
+      <Item39>
+        <Filename Value="uROOlympiaSessionManager.pas"/>
+        <UnitName Value="uROOlympiaSessionManager"/>
+      </Item39>
+      <Item40>
+        <Filename Value="uROOpenXMLImpl.pas"/>
+        <UnitName Value="uROOpenXMLImpl"/>
+      </Item40>
+      <Item41>
+        <Filename Value="uROPleaseWaitForm.pas"/>
+        <UnitName Value="uROPleaseWaitForm"/>
+      </Item41>
+      <Item42>
+        <Filename Value="uROPleaseWaitForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item42>
+      <Item43>
+        <Filename Value="uROPleaseWaitForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item43>
+      <Item44>
+        <Filename Value="uROPostMessage.pas"/>
+        <UnitName Value="uROPostMessage"/>
+      </Item44>
+      <Item45>
+        <Filename Value="uROPoweredByRemObjectsButton.pas"/>
+        <UnitName Value="uROPoweredByRemObjectsButton"/>
+      </Item45>
+      <Item46>
+        <Filename Value="uRORemoteDataModule.pas"/>
+        <UnitName Value="uRORemoteDataModule"/>
+      </Item46>
+      <Item47>
+        <Filename Value="uRORemoteService.pas"/>
+        <UnitName Value="uRORemoteService"/>
+      </Item47>
+      <Item48>
+        <Filename Value="uRORes.pas"/>
+        <UnitName Value="uRORes"/>
+      </Item48>
+      <Item49>
+        <Filename Value="uROSerializer.pas"/>
+        <UnitName Value="uROSerializer"/>
+      </Item49>
+      <Item50>
+        <Filename Value="uROServer.pas"/>
+        <UnitName Value="uROServer"/>
+      </Item50>
+      <Item51>
+        <Filename Value="uROServerIntf.pas"/>
+        <UnitName Value="uROServerIntf"/>
+      </Item51>
+      <Item52>
+        <Filename Value="uROServerMultiMessage.pas"/>
+        <UnitName Value="uROServerMultiMessage"/>
+      </Item52>
+      <Item53>
+        <Filename Value="uROSessions.pas"/>
+        <UnitName Value="uROSessions"/>
+      </Item53>
+      <Item54>
+        <Filename Value="uROSOAPMessage.pas"/>
+        <UnitName Value="uROSOAPMessage"/>
+      </Item54>
+      <Item55>
+        <Filename Value="uROStreamSerializer.pas"/>
+        <UnitName Value="uROStreamSerializer"/>
+      </Item55>
+      <Item56>
+        <Filename Value="uROThread.pas"/>
+        <UnitName Value="uROThread"/>
+      </Item56>
+      <Item57>
+        <Filename Value="uROThreadPool.pas"/>
+        <UnitName Value="uROThreadPool"/>
+      </Item57>
+      <Item58>
+        <Filename Value="uROTypes.pas"/>
+        <UnitName Value="uROTypes"/>
+      </Item58>
+      <Item59>
+        <Filename Value="uROUnicodeConv.pas"/>
+        <UnitName Value="uROUnicodeConv"/>
+      </Item59>
+      <Item60>
+        <Filename Value="uROXDOM_2_3.pas"/>
+        <UnitName Value="uROXDOM_2_3"/>
+      </Item60>
+      <Item61>
+        <Filename Value="uROXMLIntf.pas"/>
+        <UnitName Value="uROXMLIntf"/>
+      </Item61>
+      <Item62>
+        <Filename Value="uROXmlRpcMessage.pas"/>
+        <UnitName Value="uROXmlRpcMessage"/>
+      </Item62>
+      <Item63>
+        <Filename Value="uROXMLSerializer.pas"/>
+        <UnitName Value="uROXMLSerializer"/>
+      </Item63>
+      <Item64>
+        <Filename Value="uROZeroConfHub.pas"/>
+        <UnitName Value="uROZeroConfHub"/>
+      </Item64>
+      <Item65>
+        <Filename Value="uROZeroConfStreamWorker.pas"/>
+        <UnitName Value="uROZeroConfStreamWorker"/>
+      </Item65>
+      <Item66>
+        <Filename Value="CodeGen\uRODLGenTools.pas"/>
+        <UnitName Value="uRODLGenTools"/>
+      </Item66>
+      <Item67>
+        <Filename Value="CodeGen\uRODLToPascal.pas"/>
+        <UnitName Value="uRODLToPascal"/>
+      </Item67>
+      <Item68>
+        <Filename Value="CodeGen\uRODLToPascalAsync.pas"/>
+        <UnitName Value="uRODLToPascalAsync"/>
+      </Item68>
+      <Item69>
+        <Filename Value="CodeGen\uRODLToPascalImpl.pas"/>
+        <UnitName Value="uRODLToPascalImpl"/>
+      </Item69>
+      <Item70>
+        <Filename Value="CodeGen\uRODLToPascalIntf.pas"/>
+        <UnitName Value="uRODLToPascalIntf"/>
+      </Item70>
+      <Item71>
+        <Filename Value="CodeGen\uRODLToPascalInvk.pas"/>
+        <UnitName Value="uRODLToPascalInvk"/>
+      </Item71>
+      <Item72>
+        <Filename Value="CodeGen\uRODLToWSDL.pas"/>
+        <UnitName Value="uRODLToWSDL"/>
+      </Item72>
+      <Item73>
+        <Filename Value="CodeGen\uRODLToXML.pas"/>
+        <UnitName Value="uRODLToXML"/>
+      </Item73>
+      <Item74>
+        <Filename Value="ZLib\FPC\uROZLib.pas"/>
+        <UnitName Value="uROZLib"/>
+      </Item74>
+      <Item75>
+        <Filename Value="uROEndianness.pas"/>
+      </Item75>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="1">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Unix.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Unix.lpk
new file mode 100644
index 0000000..7b32982
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Unix.lpk	
@@ -0,0 +1,332 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Core_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="$(LazarusDir)\lcl\units\$(TargetCPU)-$(TargetOS)\;$(LazarusDir)\packager\units\$(TargetCPU)-$(TargetOS)\;CodeGen\;ZLib\FPC\"/>
+        <UnitOutputDirectory Value="units\$(TargetCPU)-$(TargetOS)"/>
+        <SrcPath Value="$(LazarusDir)\lcl\"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - Core Library"/>
+    <Files Count="75">
+      <Item1>
+        <Filename Value="eDefines.inc"/>
+        <Type Value="Include"/>
+      </Item1>
+      <Item2>
+        <Filename Value="RemObjects.inc"/>
+        <Type Value="Include"/>
+      </Item2>
+      <Item3>
+        <Filename Value="RemObjects_Core_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item3>
+      <Item4>
+        <Filename Value="RemObjects_Core_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Core_Reg"/>
+      </Item4>
+      <Item5>
+        <Filename Value="ROMasterServerLibrary_Intf.pas"/>
+        <UnitName Value="ROMasterServerLibrary_Intf"/>
+      </Item5>
+      <Item6>
+        <Filename Value="ROOlympia_Intf.pas"/>
+        <UnitName Value="ROOlympia_Intf"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uIPHttpHeaders.pas"/>
+        <UnitName Value="uIPHttpHeaders"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uROAsync.pas"/>
+        <UnitName Value="uROAsync"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uROAsyncSCHelpers.pas"/>
+        <UnitName Value="uROAsyncSCHelpers"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROAsyncSuperTcpServer.pas"/>
+        <UnitName Value="uROAsyncSuperTcpServer"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROBaseSuperHttpChannel.pas"/>
+        <UnitName Value="uROBaseSuperHttpChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROBaseSuperHttpServer.pas"/>
+        <UnitName Value="uROBaseSuperHttpServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROBinaryHelpers.pas"/>
+        <UnitName Value="uROBinaryHelpers"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROBinMessage.pas"/>
+        <UnitName Value="uROBinMessage"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROClasses.pas"/>
+        <UnitName Value="uROClasses"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROClassFactories.pas"/>
+        <UnitName Value="uROClassFactories"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROClient.pas"/>
+        <UnitName Value="uROClient"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROClientIntf.pas"/>
+        <UnitName Value="uROClientIntf"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROCOMInit.pas"/>
+        <UnitName Value="uROCOMInit"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROCompression.pas"/>
+        <UnitName Value="uROCompression"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uRODBEventRepository.pas"/>
+        <UnitName Value="uRODBEventRepository"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uRODBSessionManager.pas"/>
+        <UnitName Value="uRODBSessionManager"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uRODL.pas"/>
+        <UnitName Value="uRODL"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uRODynamicRequest.pas"/>
+        <UnitName Value="uRODynamicRequest"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uROEventRepository.pas"/>
+        <UnitName Value="uROEventRepository"/>
+      </Item25>
+      <Item26>
+        <Filename Value="uROHtmlServerInfo.pas"/>
+        <UnitName Value="uROHtmlServerInfo"/>
+      </Item26>
+      <Item27>
+        <Filename Value="uROHtmlServerInfo.lrs"/>
+        <Type Value="LRS"/>
+      </Item27>
+      <Item28>
+        <Filename Value="uROHTTPDispatch.pas"/>
+        <UnitName Value="uROHTTPDispatch"/>
+      </Item28>
+      <Item29>
+        <Filename Value="uROHTTPTools.pas"/>
+        <UnitName Value="uROHTTPTools"/>
+      </Item29>
+      <Item30>
+        <Filename Value="uROIdeOnly.pas"/>
+        <UnitName Value="uROIdeOnly"/>
+      </Item30>
+      <Item31>
+        <Filename Value="uROJSONMessage.pas"/>
+        <UnitName Value="uROJSONMessage"/>
+      </Item31>
+      <Item32>
+        <Filename Value="uROJSONParser.pas"/>
+        <UnitName Value="uROJSONParser"/>
+      </Item32>
+      <Item33>
+        <Filename Value="uROLocalChannel.pas"/>
+        <UnitName Value="uROLocalChannel"/>
+      </Item33>
+      <Item34>
+        <Filename Value="uROLocalServer.pas"/>
+        <UnitName Value="uROLocalServer"/>
+      </Item34>
+      <Item35>
+        <Filename Value="uROMasterServerEventRepository.pas"/>
+        <UnitName Value="uROMasterServerEventRepository"/>
+      </Item35>
+      <Item36>
+        <Filename Value="uROMasterServerSessionManager.pas"/>
+        <UnitName Value="uROMasterServerSessionManager"/>
+      </Item36>
+      <Item37>
+        <Filename Value="uROmDNS.pas"/>
+        <UnitName Value="uROmDNS"/>
+      </Item37>
+      <Item38>
+        <Filename Value="uROOlympiaEventRepository.pas"/>
+        <UnitName Value="uROOlympiaEventRepository"/>
+      </Item38>
+      <Item39>
+        <Filename Value="uROOlympiaSessionManager.pas"/>
+        <UnitName Value="uROOlympiaSessionManager"/>
+      </Item39>
+      <Item40>
+        <Filename Value="uROOpenXMLImpl.pas"/>
+        <UnitName Value="uROOpenXMLImpl"/>
+      </Item40>
+      <Item41>
+        <Filename Value="uROPleaseWaitForm.pas"/>
+        <UnitName Value="uROPleaseWaitForm"/>
+      </Item41>
+      <Item42>
+        <Filename Value="uROPleaseWaitForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item42>
+      <Item43>
+        <Filename Value="uROPleaseWaitForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item43>
+      <Item44>
+        <Filename Value="uROPostMessage.pas"/>
+        <UnitName Value="uROPostMessage"/>
+      </Item44>
+      <Item45>
+        <Filename Value="uROPoweredByRemObjectsButton.pas"/>
+        <UnitName Value="uROPoweredByRemObjectsButton"/>
+      </Item45>
+      <Item46>
+        <Filename Value="uRORemoteDataModule.pas"/>
+        <UnitName Value="uRORemoteDataModule"/>
+      </Item46>
+      <Item47>
+        <Filename Value="uRORemoteService.pas"/>
+        <UnitName Value="uRORemoteService"/>
+      </Item47>
+      <Item48>
+        <Filename Value="uRORes.pas"/>
+        <UnitName Value="uRORes"/>
+      </Item48>
+      <Item49>
+        <Filename Value="uROSerializer.pas"/>
+        <UnitName Value="uROSerializer"/>
+      </Item49>
+      <Item50>
+        <Filename Value="uROServer.pas"/>
+        <UnitName Value="uROServer"/>
+      </Item50>
+      <Item51>
+        <Filename Value="uROServerIntf.pas"/>
+        <UnitName Value="uROServerIntf"/>
+      </Item51>
+      <Item52>
+        <Filename Value="uROServerMultiMessage.pas"/>
+        <UnitName Value="uROServerMultiMessage"/>
+      </Item52>
+      <Item53>
+        <Filename Value="uROSessions.pas"/>
+        <UnitName Value="uROSessions"/>
+      </Item53>
+      <Item54>
+        <Filename Value="uROSOAPMessage.pas"/>
+        <UnitName Value="uROSOAPMessage"/>
+      </Item54>
+      <Item55>
+        <Filename Value="uROStreamSerializer.pas"/>
+        <UnitName Value="uROStreamSerializer"/>
+      </Item55>
+      <Item56>
+        <Filename Value="uROThread.pas"/>
+        <UnitName Value="uROThread"/>
+      </Item56>
+      <Item57>
+        <Filename Value="uROThreadPool.pas"/>
+        <UnitName Value="uROThreadPool"/>
+      </Item57>
+      <Item58>
+        <Filename Value="uROTypes.pas"/>
+        <UnitName Value="uROTypes"/>
+      </Item58>
+      <Item59>
+        <Filename Value="uROUnicodeConv.pas"/>
+        <UnitName Value="uROUnicodeConv"/>
+      </Item59>
+      <Item60>
+        <Filename Value="uROXDOM_2_3.pas"/>
+        <UnitName Value="uROXDOM_2_3"/>
+      </Item60>
+      <Item61>
+        <Filename Value="uROXMLIntf.pas"/>
+        <UnitName Value="uROXMLIntf"/>
+      </Item61>
+      <Item62>
+        <Filename Value="uROXmlRpcMessage.pas"/>
+        <UnitName Value="uROXmlRpcMessage"/>
+      </Item62>
+      <Item63>
+        <Filename Value="uROXMLSerializer.pas"/>
+        <UnitName Value="uROXMLSerializer"/>
+      </Item63>
+      <Item64>
+        <Filename Value="uROZeroConfHub.pas"/>
+        <UnitName Value="uROZeroConfHub"/>
+      </Item64>
+      <Item65>
+        <Filename Value="uROZeroConfStreamWorker.pas"/>
+        <UnitName Value="uROZeroConfStreamWorker"/>
+      </Item65>
+      <Item66>
+        <Filename Value="CodeGen\uRODLGenTools.pas"/>
+        <UnitName Value="uRODLGenTools"/>
+      </Item66>
+      <Item67>
+        <Filename Value="CodeGen\uRODLToPascal.pas"/>
+        <UnitName Value="uRODLToPascal"/>
+      </Item67>
+      <Item68>
+        <Filename Value="CodeGen\uRODLToPascalAsync.pas"/>
+        <UnitName Value="uRODLToPascalAsync"/>
+      </Item68>
+      <Item69>
+        <Filename Value="CodeGen\uRODLToPascalImpl.pas"/>
+        <UnitName Value="uRODLToPascalImpl"/>
+      </Item69>
+      <Item70>
+        <Filename Value="CodeGen\uRODLToPascalIntf.pas"/>
+        <UnitName Value="uRODLToPascalIntf"/>
+      </Item70>
+      <Item71>
+        <Filename Value="CodeGen\uRODLToPascalInvk.pas"/>
+        <UnitName Value="uRODLToPascalInvk"/>
+      </Item71>
+      <Item72>
+        <Filename Value="CodeGen\uRODLToWSDL.pas"/>
+        <UnitName Value="uRODLToWSDL"/>
+      </Item72>
+      <Item73>
+        <Filename Value="CodeGen\uRODLToXML.pas"/>
+        <UnitName Value="uRODLToXML"/>
+      </Item73>
+      <Item74>
+        <Filename Value="ZLib\FPC\uROZLib.pas"/>
+        <UnitName Value="uROZLib"/>
+      </Item74>
+      <Item75>
+        <Filename Value="uROEndianness.pas"/>
+      </Item75>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="1">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Windows.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Windows.lpk
new file mode 100644
index 0000000..bf5ed8c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Lazarus_Windows.lpk	
@@ -0,0 +1,337 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Core_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="CodeGen\;ZLib\FPC\"/>
+        <UnitOutputDirectory Value="..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+        <SrcPath Value="$(LazarusDir)\lcl\"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <CStyleOperator Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - Core Library"/>
+    <Files Count="75">
+      <Item1>
+        <Filename Value="eDefines.inc"/>
+        <Type Value="Include"/>
+      </Item1>
+      <Item2>
+        <Filename Value="RemObjects.inc"/>
+        <Type Value="Include"/>
+      </Item2>
+      <Item3>
+        <Filename Value="RemObjects_Core_Glyphs.lrs"/>
+        <Type Value="LRS"/>
+      </Item3>
+      <Item4>
+        <Filename Value="RemObjects_Core_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Core_Reg"/>
+      </Item4>
+      <Item5>
+        <Filename Value="ROMasterServerLibrary_Intf.pas"/>
+        <UnitName Value="ROMasterServerLibrary_Intf"/>
+      </Item5>
+      <Item6>
+        <Filename Value="ROOlympia_Intf.pas"/>
+        <UnitName Value="ROOlympia_Intf"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uIPHttpHeaders.pas"/>
+        <UnitName Value="uIPHttpHeaders"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uROAsync.pas"/>
+        <UnitName Value="uROAsync"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uROAsyncSCHelpers.pas"/>
+        <UnitName Value="uROAsyncSCHelpers"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROAsyncSuperTcpServer.pas"/>
+        <UnitName Value="uROAsyncSuperTcpServer"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROBaseSuperHttpChannel.pas"/>
+        <UnitName Value="uROBaseSuperHttpChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROBaseSuperHttpServer.pas"/>
+        <UnitName Value="uROBaseSuperHttpServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROBinaryHelpers.pas"/>
+        <UnitName Value="uROBinaryHelpers"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROBinMessage.pas"/>
+        <UnitName Value="uROBinMessage"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROClasses.pas"/>
+        <UnitName Value="uROClasses"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROClassFactories.pas"/>
+        <UnitName Value="uROClassFactories"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROClient.pas"/>
+        <UnitName Value="uROClient"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROClientIntf.pas"/>
+        <UnitName Value="uROClientIntf"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROCOMInit.pas"/>
+        <UnitName Value="uROCOMInit"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROCompression.pas"/>
+        <UnitName Value="uROCompression"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uRODBEventRepository.pas"/>
+        <UnitName Value="uRODBEventRepository"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uRODBSessionManager.pas"/>
+        <UnitName Value="uRODBSessionManager"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uRODL.pas"/>
+        <UnitName Value="uRODL"/>
+      </Item23>
+      <Item24>
+        <Filename Value="uRODynamicRequest.pas"/>
+        <UnitName Value="uRODynamicRequest"/>
+      </Item24>
+      <Item25>
+        <Filename Value="uROEventRepository.pas"/>
+        <UnitName Value="uROEventRepository"/>
+      </Item25>
+      <Item26>
+        <Filename Value="uROHtmlServerInfo.pas"/>
+        <UnitName Value="uROHtmlServerInfo"/>
+      </Item26>
+      <Item27>
+        <Filename Value="uROHtmlServerInfo.lrs"/>
+        <Type Value="LRS"/>
+      </Item27>
+      <Item28>
+        <Filename Value="uROHTTPDispatch.pas"/>
+        <UnitName Value="uROHTTPDispatch"/>
+      </Item28>
+      <Item29>
+        <Filename Value="uROHTTPTools.pas"/>
+        <UnitName Value="uROHTTPTools"/>
+      </Item29>
+      <Item30>
+        <Filename Value="uROIdeOnly.pas"/>
+        <UnitName Value="uROIdeOnly"/>
+      </Item30>
+      <Item31>
+        <Filename Value="uROJSONMessage.pas"/>
+        <UnitName Value="uROJSONMessage"/>
+      </Item31>
+      <Item32>
+        <Filename Value="uROJSONParser.pas"/>
+        <UnitName Value="uROJSONParser"/>
+      </Item32>
+      <Item33>
+        <Filename Value="uROLocalChannel.pas"/>
+        <UnitName Value="uROLocalChannel"/>
+      </Item33>
+      <Item34>
+        <Filename Value="uROLocalServer.pas"/>
+        <UnitName Value="uROLocalServer"/>
+      </Item34>
+      <Item35>
+        <Filename Value="uROMasterServerEventRepository.pas"/>
+        <UnitName Value="uROMasterServerEventRepository"/>
+      </Item35>
+      <Item36>
+        <Filename Value="uROMasterServerSessionManager.pas"/>
+        <UnitName Value="uROMasterServerSessionManager"/>
+      </Item36>
+      <Item37>
+        <Filename Value="uROmDNS.pas"/>
+        <UnitName Value="uROmDNS"/>
+      </Item37>
+      <Item38>
+        <Filename Value="uROOlympiaEventRepository.pas"/>
+        <UnitName Value="uROOlympiaEventRepository"/>
+      </Item38>
+      <Item39>
+        <Filename Value="uROOlympiaSessionManager.pas"/>
+        <UnitName Value="uROOlympiaSessionManager"/>
+      </Item39>
+      <Item40>
+        <Filename Value="uROOpenXMLImpl.pas"/>
+        <UnitName Value="uROOpenXMLImpl"/>
+      </Item40>
+      <Item41>
+        <Filename Value="uROPleaseWaitForm.pas"/>
+        <UnitName Value="uROPleaseWaitForm"/>
+      </Item41>
+      <Item42>
+        <Filename Value="uROPleaseWaitForm.lfm"/>
+        <Type Value="LFM"/>
+      </Item42>
+      <Item43>
+        <Filename Value="uROPleaseWaitForm.lrs"/>
+        <Type Value="LRS"/>
+      </Item43>
+      <Item44>
+        <Filename Value="uROPostMessage.pas"/>
+        <UnitName Value="uROPostMessage"/>
+      </Item44>
+      <Item45>
+        <Filename Value="uROPoweredByRemObjectsButton.pas"/>
+        <UnitName Value="uROPoweredByRemObjectsButton"/>
+      </Item45>
+      <Item46>
+        <Filename Value="uRORemoteDataModule.pas"/>
+        <UnitName Value="uRORemoteDataModule"/>
+      </Item46>
+      <Item47>
+        <Filename Value="uRORemoteService.pas"/>
+        <UnitName Value="uRORemoteService"/>
+      </Item47>
+      <Item48>
+        <Filename Value="uRORes.pas"/>
+        <UnitName Value="uRORes"/>
+      </Item48>
+      <Item49>
+        <Filename Value="uROSerializer.pas"/>
+        <UnitName Value="uROSerializer"/>
+      </Item49>
+      <Item50>
+        <Filename Value="uROServer.pas"/>
+        <UnitName Value="uROServer"/>
+      </Item50>
+      <Item51>
+        <Filename Value="uROServerIntf.pas"/>
+        <UnitName Value="uROServerIntf"/>
+      </Item51>
+      <Item52>
+        <Filename Value="uROServerMultiMessage.pas"/>
+        <UnitName Value="uROServerMultiMessage"/>
+      </Item52>
+      <Item53>
+        <Filename Value="uROSessions.pas"/>
+        <UnitName Value="uROSessions"/>
+      </Item53>
+      <Item54>
+        <Filename Value="uROSOAPMessage.pas"/>
+        <UnitName Value="uROSOAPMessage"/>
+      </Item54>
+      <Item55>
+        <Filename Value="uROStreamSerializer.pas"/>
+        <UnitName Value="uROStreamSerializer"/>
+      </Item55>
+      <Item56>
+        <Filename Value="uROThread.pas"/>
+        <UnitName Value="uROThread"/>
+      </Item56>
+      <Item57>
+        <Filename Value="uROThreadPool.pas"/>
+        <UnitName Value="uROThreadPool"/>
+      </Item57>
+      <Item58>
+        <Filename Value="uROTypes.pas"/>
+        <UnitName Value="uROTypes"/>
+      </Item58>
+      <Item59>
+        <Filename Value="uROUnicodeConv.pas"/>
+        <UnitName Value="uROUnicodeConv"/>
+      </Item59>
+      <Item60>
+        <Filename Value="uROXDOM_2_3.pas"/>
+        <UnitName Value="uROXDOM_2_3"/>
+      </Item60>
+      <Item61>
+        <Filename Value="uROXMLIntf.pas"/>
+        <UnitName Value="uROXMLIntf"/>
+      </Item61>
+      <Item62>
+        <Filename Value="uROXmlRpcMessage.pas"/>
+        <UnitName Value="uROXmlRpcMessage"/>
+      </Item62>
+      <Item63>
+        <Filename Value="uROXMLSerializer.pas"/>
+        <UnitName Value="uROXMLSerializer"/>
+      </Item63>
+      <Item64>
+        <Filename Value="uROZeroConfHub.pas"/>
+        <UnitName Value="uROZeroConfHub"/>
+      </Item64>
+      <Item65>
+        <Filename Value="uROZeroConfStreamWorker.pas"/>
+        <UnitName Value="uROZeroConfStreamWorker"/>
+      </Item65>
+      <Item66>
+        <Filename Value="CodeGen\uRODLGenTools.pas"/>
+        <UnitName Value="uRODLGenTools"/>
+      </Item66>
+      <Item67>
+        <Filename Value="CodeGen\uRODLToPascal.pas"/>
+        <UnitName Value="uRODLToPascal"/>
+      </Item67>
+      <Item68>
+        <Filename Value="CodeGen\uRODLToPascalAsync.pas"/>
+        <UnitName Value="uRODLToPascalAsync"/>
+      </Item68>
+      <Item69>
+        <Filename Value="CodeGen\uRODLToPascalImpl.pas"/>
+        <UnitName Value="uRODLToPascalImpl"/>
+      </Item69>
+      <Item70>
+        <Filename Value="CodeGen\uRODLToPascalIntf.pas"/>
+        <UnitName Value="uRODLToPascalIntf"/>
+      </Item70>
+      <Item71>
+        <Filename Value="CodeGen\uRODLToPascalInvk.pas"/>
+        <UnitName Value="uRODLToPascalInvk"/>
+      </Item71>
+      <Item72>
+        <Filename Value="CodeGen\uRODLToWSDL.pas"/>
+        <UnitName Value="uRODLToWSDL"/>
+      </Item72>
+      <Item73>
+        <Filename Value="CodeGen\uRODLToXML.pas"/>
+        <UnitName Value="uRODLToXML"/>
+      </Item73>
+      <Item74>
+        <Filename Value="ZLib\FPC\uROZLib.pas"/>
+        <UnitName Value="uROZLib"/>
+      </Item74>
+      <Item75>
+        <Filename Value="uROEndianness.pas"/>
+      </Item75>
+    </Files>
+    <Type Value="DesignTime"/>
+    <RequiredPkgs Count="1">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Reg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Reg.pas
new file mode 100644
index 0000000..71e8497
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Reg.pas	
@@ -0,0 +1,117 @@
+unit RemObjects_Core_Reg;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  {$IFDEF FPC}
+  LResources,
+  {$ENDIF}
+  Classes,
+  uRORes,
+  uROSOAPMessage,
+  uROXmlRpcMessage,
+  uROServerMultiMessage,
+  uRODynamicRequest,
+  {$IFNDEF FPC}
+  {$IFDEF MSWINDOWS}
+  uROWinMessageChannel,
+  uROWinMessageServer,
+  uROWinInetHttpChannel,
+  {$ENDIF MSWINDOWS}
+  {$ENDIF FPC}
+  {$IFDEF MSWINDOWS}
+  uRODLLChannel,
+  uRONamedPipeChannel, uRONamedPipeServer,
+  {$ENDIF MSWINDOWS}
+  uROBinMessage,
+  uROPostMessage,
+  {$IF defined(VER140UP) OR defined(FPC)}
+  uROSessions,
+  uRORemoteService,
+  {$IFEND}
+  uROPoweredByRemObjectsButton,
+  uROEventRepository,
+  uRODBSessionManager,uRODBEventRepository,
+  uROMasterServerSessionManager,
+  uROMasterServerEventRepository,
+  {$IFDEF RemObjects_UseEncryption}
+  uROEncryptionEnvelope,
+  {$ENDIF}
+  uROLocalChannel,
+  uROLocalServer,
+  uROJSONMessage,
+  uROOlympiaSessionManager,
+  uROOlympiaEventRepository;
+
+{$IFNDEF FPC}
+  {$R RemObjects_Core_Glyphs.res}
+{$ENDIF}
+
+procedure Register;
+begin
+  RegisterComponents(str_ProductName,
+                     [TROBinMessage,
+                      TROPostMessage,
+                      TROSoapMessage,
+                      TROXmlRpcMessage,
+                      TROJSONMessage,
+                      TROServerMultiMessage,
+                      TRODynamicRequest,
+
+                      {$IFNDEF FPC}
+                        {$IFDEF MSWINDOWS}
+                          TROWinInetHTTPChannel,
+                          TROWinMessageChannel, TROWinMessageServer,
+                        {$ENDIF MSWINDOWS}
+                      {$ENDIF FPC}
+
+                      {$IFDEF MSWINDOWS}
+                        TROLocalChannel, TROLocalServer,
+                        TRODLLChannel,
+                        TRONamedPipeChannel, TRONamedPipeServer,
+                      {$ENDIF MSWINDOWS}                    
+
+                      {$IF defined(VER140UP) OR defined(FPC)}
+                        TROEventSessionManager,
+                        TROInMemorySessionManager,
+                        TRORemoteService,
+                      {$IFEND}
+
+                      TRODBSessionManager, TRODBEventRepository,
+
+                      TROPoweredByRemObjectsButton,
+                      TROInMemoryEventRepository,
+                      TROEventReceiver,
+                      TROMasterServerSessionManager,
+                      {$IFDEF RemObjects_UseEncryption}
+                      TROEncryptionEnvelope, TROAESEncryptionEnvelope,
+                      {$ENDIF RemObjects_UseEncryption}
+                      TROMasterServerEventRepository,
+                      TRODesigntimeCall,
+                      TROOlympiaSessionManager,
+                      TROOlympiaEventRepository]);
+end;
+
+{$IFDEF FPC}
+initialization
+  {$i RemObjects_Core_Glyphs.lrs}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Reg.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Reg.res
new file mode 100644
index 0000000..1f3a610
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_Reg.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.dpk
new file mode 100644
index 0000000..5ec67ea
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.dpk	
@@ -0,0 +1,120 @@
+package RemObjects_Core_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Core Library'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  dbrtl;
+
+contains
+  uROWinMessageChannel in 'uROWinMessageChannel.pas',
+  uROWinMessageServer in 'uROWinMessageServer.pas',
+  uROWinInetHttpChannel in 'uROWinInetHttpChannel.pas',
+  uROZLib in 'Zlib\uROZLib.pas',
+  uRORng in 'RODEC\uRORng.pas',
+  uROCipher1 in 'RODEC\uROCipher1.pas',
+  uROCipher in 'RODEC\uROCipher.pas',
+  uROCiphers in 'RODEC\uROCiphers.pas',
+  uRODECConst in 'RODEC\uRODECConst.pas',
+  uRODECUtil in 'RODEC\uRODECUtil.pas',
+  uROHash in 'RODEC\uROHash.pas',
+  uROHCMngr in 'RODEC\uROHCMngr.pas',
+  uRORFC2289 in 'RODEC\uRORFC2289.pas',
+  uRODLLChannel in 'uRODLLChannel.pas',
+  uRODLLHelpers in 'uRODLLHelpers.pas',
+  uROMSXMLImpl in 'uROMSXMLImpl.pas',
+  uROMSXML2_TLB in 'uROMSXML2_TLB.pas',
+  uROEncryption in 'uROEncryption.pas',
+  uRODLToXML in 'CodeGen\uRODLToXML.pas',
+  uRODLToWSDL in 'CodeGen\uRODLToWSDL.pas',
+  uROSOAPMessage in 'uROSOAPMessage.pas',
+  uROBinMessage in 'uROBinMessage.pas',
+  uRODL in 'uRODL.pas',
+  uROServerIntf in 'uROServerIntf.pas',
+  uROClient in 'uROClient.pas',
+  uROClientIntf in 'uROClientIntf.pas',
+  uRORes in 'uRORes.pas',
+  uROServer in 'uROServer.pas',
+  uROUnicodeConv in 'uROUnicodeConv.pas',
+  uROXDOM_2_3 in 'uROXDOM_2_3.pas',
+  uROTypes in 'uROTypes.pas',
+  RemObjects_Core_Reg in 'RemObjects_Core_Reg.pas',
+  uROSerializer in 'uROSerializer.pas',
+  uROStreamSerializer in 'uROStreamSerializer.pas',
+  uROXMLSerializer in 'uROXMLSerializer.pas',
+  uROHTTPTools in 'uROHTTPTools.pas',
+  uROIdeOnly in 'uROIdeOnly.pas',
+  uROHTTPDispatch in 'uROHTTPDispatch.pas',
+  uROPoweredByRemObjectsButton in 'uROPoweredByRemObjectsButton.pas',
+  uROCompression in 'uROCompression.pas',
+  uROXMLIntf in 'uROXMLIntf.pas',
+  uROOpenXMLImpl in 'uROOpenXMLImpl.pas',
+  uROClasses in 'uROClasses.pas',
+  uROClassFactories in 'uROClassFactories.pas',
+  uRORemoteDataModule in 'uRORemoteDataModule.pas',
+  uROAsync in 'uROAsync.pas',
+  uROThread in 'uROThread.pas',
+  uROSessions in 'uROSessions.pas',
+  uRORemoteService in 'uRORemoteService.pas',
+  uROBinaryHelpers in 'uROBinaryHelpers.pas',
+  uROPleaseWaitForm in 'uROPleaseWaitForm.pas' {PleaseWaitForm},
+  uRONamedPipeServer in 'uRONamedPipeServer.pas',
+  uRONamedPipeChannel in 'uRONamedPipeChannel.pas',
+  uRODBSessionManager in 'uRODBSessionManager.pas',
+  uRODynamicRequest in 'uRODynamicRequest.pas',
+  uROEventRepository in 'uROEventRepository.pas',
+  uROMasterServerEventRepository in 'uROMasterServerEventRepository.pas',
+  ROMasterServerLibrary_Intf in 'ROMasterServerLibrary_Intf.pas',
+  uROMasterServerSessionManager in 'uROMasterServerSessionManager.pas',
+  uROPostMessage in 'uROPostMessage.pas',
+  uROComboService in 'uROComboService.pas',
+  uROLocalChannel in 'uROLocalChannel.pas',
+  uROLocalServer in 'uROLocalServer.pas',
+  uROHtmlServerInfo in 'uROHtmlServerInfo.pas',
+  uROXmlRpcMessage in 'uROXmlRpcMessage.pas',
+  uROThreadPool in 'uROThreadPool.pas',
+  uIPHttpHeaders in 'uIPHttpHeaders.pas',
+  uROBaseSuperHttpServer in 'uROBaseSuperHttpServer.pas',
+  uROBaseSuperHttpChannel in 'uROBaseSuperHttpChannel.pas',
+  uROServerMultiMessage in 'uROServerMultiMessage.pas',
+  uROAsyncSCHelpers in 'uROAsyncSCHelpers.pas',
+  uROAsyncSuperTcpServer in 'uROAsyncSuperTcpServer.pas',
+  uROEncryptionEnvelope in 'uROEncryptionEnvelope.pas',
+  uRODBEventRepository in 'uRODBEventRepository.pas',
+  uROJSONParser in 'uROJSONParser.pas',
+  uROJSONMessage in 'uROJSONMessage.pas',
+  uROOlympiaEventRepository in 'uROOlympiaEventRepository.pas',
+  uROOlympiaSessionManager in 'uROOlympiaSessionManager.pas',
+  ROOlympia_Intf in 'ROOlympia_Intf.pas',
+  uROmDNS in 'uROmDNS.pas',
+  uROZeroConfHub in 'uROZeroConfHub.pas',
+  uROZeroConfStreamWorker in 'uROZeroConfStreamWorker.pas',
+  uROEndianness in 'uROEndianness.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.dproj
new file mode 100644
index 0000000..cfdb862
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.dproj	
@@ -0,0 +1,186 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{698068b8-4884-426d-a991-66d8c3907ce0}</ProjectGuid>
+			<MainSource>RemObjects_Core_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Core_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>true</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D14\RemObjects_Core_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - Core Library</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_Core_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="dbrtl.dcp"/>
+			<DCCReference Include="uROWinMessageChannel.pas"/>
+			<DCCReference Include="uROWinMessageServer.pas"/>
+			<DCCReference Include="uROWinInetHttpChannel.pas"/>
+			<DCCReference Include="Zlib\uROZLib.pas"/>
+			<DCCReference Include="RODEC\uRORng.pas"/>
+			<DCCReference Include="RODEC\uROCipher1.pas"/>
+			<DCCReference Include="RODEC\uROCipher.pas"/>
+			<DCCReference Include="RODEC\uROCiphers.pas"/>
+			<DCCReference Include="RODEC\uRODECConst.pas"/>
+			<DCCReference Include="RODEC\uRODECUtil.pas"/>
+			<DCCReference Include="RODEC\uROHash.pas"/>
+			<DCCReference Include="RODEC\uROHCMngr.pas"/>
+			<DCCReference Include="RODEC\uRORFC2289.pas"/>
+			<DCCReference Include="uRODLLChannel.pas"/>
+			<DCCReference Include="uRODLLHelpers.pas"/>
+			<DCCReference Include="uROMSXMLImpl.pas"/>
+			<DCCReference Include="uROMSXML2_TLB.pas"/>
+			<DCCReference Include="uROEncryption.pas"/>
+			<DCCReference Include="CodeGen\uRODLToXML.pas"/>
+			<DCCReference Include="CodeGen\uRODLToWSDL.pas"/>
+			<DCCReference Include="uROSOAPMessage.pas"/>
+			<DCCReference Include="uROBinMessage.pas"/>
+			<DCCReference Include="uRODL.pas"/>
+			<DCCReference Include="uROServerIntf.pas"/>
+			<DCCReference Include="uROClient.pas"/>
+			<DCCReference Include="uROClientIntf.pas"/>
+			<DCCReference Include="uRORes.pas"/>
+			<DCCReference Include="uROServer.pas"/>
+			<DCCReference Include="uROUnicodeConv.pas"/>
+			<DCCReference Include="uROXDOM_2_3.pas"/>
+			<DCCReference Include="uROTypes.pas"/>
+			<DCCReference Include="RemObjects_Core_Reg.pas"/>
+			<DCCReference Include="uROSerializer.pas"/>
+			<DCCReference Include="uROStreamSerializer.pas"/>
+			<DCCReference Include="uROXMLSerializer.pas"/>
+			<DCCReference Include="uROHTTPTools.pas"/>
+			<DCCReference Include="uROIdeOnly.pas"/>
+			<DCCReference Include="uROHTTPDispatch.pas"/>
+			<DCCReference Include="uROPoweredByRemObjectsButton.pas"/>
+			<DCCReference Include="uROCompression.pas"/>
+			<DCCReference Include="uROXMLIntf.pas"/>
+			<DCCReference Include="uROOpenXMLImpl.pas"/>
+			<DCCReference Include="uROClasses.pas"/>
+			<DCCReference Include="uROClassFactories.pas"/>
+			<DCCReference Include="uRORemoteDataModule.pas"/>
+			<DCCReference Include="uROAsync.pas"/>
+			<DCCReference Include="uROThread.pas"/>
+			<DCCReference Include="uROSessions.pas"/>
+			<DCCReference Include="uRORemoteService.pas"/>
+			<DCCReference Include="uROBinaryHelpers.pas"/>
+			<DCCReference Include="uROPleaseWaitForm.pas">
+				<Form>PleaseWaitForm</Form>
+			</DCCReference>
+			<DCCReference Include="uRONamedPipeServer.pas"/>
+			<DCCReference Include="uRONamedPipeChannel.pas"/>
+			<DCCReference Include="uRODBSessionManager.pas"/>
+			<DCCReference Include="uRODynamicRequest.pas"/>
+			<DCCReference Include="uROEventRepository.pas"/>
+			<DCCReference Include="uROMasterServerEventRepository.pas"/>
+			<DCCReference Include="ROMasterServerLibrary_Intf.pas"/>
+			<DCCReference Include="uROMasterServerSessionManager.pas"/>
+			<DCCReference Include="uROPostMessage.pas"/>
+			<DCCReference Include="uROComboService.pas"/>
+			<DCCReference Include="uROLocalChannel.pas"/>
+			<DCCReference Include="uROLocalServer.pas"/>
+			<DCCReference Include="uROHtmlServerInfo.pas"/>
+			<DCCReference Include="uROXmlRpcMessage.pas"/>
+			<DCCReference Include="uROThreadPool.pas"/>
+			<DCCReference Include="uIPHttpHeaders.pas"/>
+			<DCCReference Include="uROBaseSuperHttpServer.pas"/>
+			<DCCReference Include="uROBaseSuperHttpChannel.pas"/>
+			<DCCReference Include="uROServerMultiMessage.pas"/>
+			<DCCReference Include="uROAsyncSCHelpers.pas"/>
+			<DCCReference Include="uROAsyncSuperTcpServer.pas"/>
+			<DCCReference Include="uROEncryptionEnvelope.pas"/>
+			<DCCReference Include="uRODBEventRepository.pas"/>
+			<DCCReference Include="uROJSONParser.pas"/>
+			<DCCReference Include="uROJSONMessage.pas"/>
+			<DCCReference Include="uROOlympiaEventRepository.pas"/>
+			<DCCReference Include="uROOlympiaSessionManager.pas"/>
+			<DCCReference Include="ROOlympia_Intf.pas"/>
+			<DCCReference Include="uROmDNS.pas"/>
+			<DCCReference Include="uROZeroConfHub.pas"/>
+			<DCCReference Include="uROZeroConfStreamWorker.pas"/>
+			<DCCReference Include="uROEndianness.pas"/>
+			<None Include="RemObjects.inc">
+				<ContainerId>File</ContainerId>
+			</None>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_Core_D14.dpk</Source>
+					</Source>
+					<Excluded_Packages/>
+					<isVersionControl>
+						<isVersionControl Name="isVersionControlID"/>
+					</isVersionControl>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Core_d14.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.bdsproj
new file mode 100644
index 0000000..09886ed
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.bdsproj	
@@ -0,0 +1,184 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{C7097D35-5E65-41AB-A425-381DD819B555}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_Indy_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">1</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects SDK - Indy Library</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\Dcu\D10;$(BDS)\lib\Indy10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String">DESIGNTIME</Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName" Type="String">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion" Type="String">0.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName" Type="String">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion" Type="String">1.0.0.0</VersionInfoKeys>
+		</VersionInfoKeys>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>  <Excluded_Packages>
+      <Excluded_Packages Name="R:\Everwood\Dcu\D10\RemObjects_Everwood_D10.bpl">RemObjects Everwood for Delphi</Excluded_Packages>
+      <Excluded_Packages Name="R:\RemObjects SDK for Delphi\Dcu\D10\RemObjects_Core_D10.bpl">RemObjects SDK - Core Library</Excluded_Packages>
+      <Excluded_Packages Name="R:\RemObjects SDK for Delphi\Dcu\D10\RemObjects_IDE_D10.bpl">RemObjects SDK - IDE Integration for Win32</Excluded_Packages>
+    </Excluded_Packages>
+  </Delphi.Personality>
+	<ModelSupport>False</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.cfg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.cfg
new file mode 100644
index 0000000..5d79656
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.cfg	
@@ -0,0 +1,53 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\Dcu\D10"
+-LE"..\Dcu\D10"
+-LN"..\Dcu\D10"
+-U"..\Dcu\D10"
+-O"..\Dcu\D10"
+-I"..\Dcu\D10"
+-R"..\Dcu\D10"
+-DDESIGNTIME
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.dpk
new file mode 100644
index 0000000..b905d30
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.dpk	
@@ -0,0 +1,69 @@
+package RemObjects_Indy_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Indy Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{%File 'RemObjects.inc'}
+
+requires
+  rtl,
+  {$IFDEF RemObjects_INDY9}
+  Indy,
+  {$ELSE}
+  IndyCore, IndySystem, IndyProtocols,
+  {$ENDIF}
+  vcl,
+  vclx,
+  {$IFNDEF RemObjects_NO_DEMANDLOAD_FIX}
+  designide,
+  {$ENDIF}  
+  RemObjects_Core_D10;
+
+contains
+  RemObjects_Indy_Reg in 'RemObjects_Indy_Reg.pas',
+  uROIndyHTTPChannel in 'uROIndyHTTPChannel.pas',
+  uROIndyTCPChannel in 'uROIndyTCPChannel.pas',
+  uROIndyTCPServer in 'uROIndyTCPServer.pas',
+  uROIndyHTTPServer in 'uROIndyHTTPServer.pas',
+  uROIndyUDPServer in 'uROIndyUDPServer.pas',
+  uROIndyUDPChannel in 'uROIndyUDPChannel.pas',
+  uROBroadcastServer in 'uROBroadcastServer.pas',
+  uROBroadcastChannel in 'uROBroadcastChannel.pas',
+  uROStreamUtils in 'uROStreamUtils.pas',
+  uROIndyEmailChannel in 'uROIndyEmailChannel.pas',
+  uROIndyEmailServer in 'uROIndyEmailServer.pas',
+  uROIndyEmail in 'uROIndyEmail.pas',
+  uRODiscovery in 'uRODiscovery.pas',
+  uRODiscoveryService_Impl in 'uRODiscoveryService_Impl.pas',
+  uRODiscovery_Async in 'uRODiscovery_Async.pas',
+  uRODiscovery_Intf in 'uRODiscovery_Intf.pas',
+  uRODiscovery_Invk in 'uRODiscovery_Invk.pas',
+  uROAsyncResponseStorage in 'uROAsyncResponseStorage.pas',
+  uROSuperTCPServer in 'uROSuperTCPServer.pas',
+  uROSuperTCPChannel in 'uROSuperTCPChannel.pas',
+  uROSCHelpers in 'uROSCHelpers.pas',
+  uROIndySuperHttpChannel in 'uROIndySuperHttpChannel.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.res
new file mode 100644
index 0000000..9e5018c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D10.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.dpk
new file mode 100644
index 0000000..40515fe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.dpk	
@@ -0,0 +1,65 @@
+package RemObjects_Indy_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Indy Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  IndyCore,
+  IndySystem,
+  IndyProtocols,
+  vcl,
+  vclx,
+  designide,
+  RemObjects_Core_D11;
+
+contains
+  RemObjects_Indy_Reg in 'RemObjects_Indy_Reg.pas',
+  uROIndyHTTPChannel in 'uROIndyHTTPChannel.pas',
+  uROIndyTCPChannel in 'uROIndyTCPChannel.pas',
+  uROIndyTCPServer in 'uROIndyTCPServer.pas',
+  uROIndyHTTPServer in 'uROIndyHTTPServer.pas',
+  uROIndyUDPServer in 'uROIndyUDPServer.pas',
+  uROIndyUDPChannel in 'uROIndyUDPChannel.pas',
+  uROBroadcastServer in 'uROBroadcastServer.pas',
+  uROBroadcastChannel in 'uROBroadcastChannel.pas',
+  uROStreamUtils in 'uROStreamUtils.pas',
+  uROIndyEmailChannel in 'uROIndyEmailChannel.pas',
+  uROIndyEmailServer in 'uROIndyEmailServer.pas',
+  uROIndyEmail in 'uROIndyEmail.pas',
+  uRODiscovery in 'uRODiscovery.pas',
+  uRODiscoveryService_Impl in 'uRODiscoveryService_Impl.pas',
+  uRODiscovery_Async in 'uRODiscovery_Async.pas',
+  uRODiscovery_Intf in 'uRODiscovery_Intf.pas',
+  uRODiscovery_Invk in 'uRODiscovery_Invk.pas',
+  uROAsyncResponseStorage in 'uROAsyncResponseStorage.pas',
+  uROSuperTCPServer in 'uROSuperTCPServer.pas',
+  uROSuperTCPChannel in 'uROSuperTCPChannel.pas',
+  uROSCHelpers in 'uROSCHelpers.pas',
+  uROIndySuperHttpChannel in 'uROIndySuperHttpChannel.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.dproj
new file mode 100644
index 0000000..b825f7e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.dproj	
@@ -0,0 +1,599 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{2c907631-bcb2-4bfe-83c9-ce4d30a1f7e0}</ProjectGuid>
+    <MainSource>RemObjects_Indy_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\RemObjects_Indy_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11;$(BDS)\lib\Indy10</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11;$(BDS)\lib\Indy10</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11;$(BDS)\lib\Indy10</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11;$(BDS)\lib\Indy10</DCC_IncludePath>
+    <DCC_Define>DESIGNTIME;RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>DESIGNTIME</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects SDK - Indy Library</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="R:\Everwood\Dcu\D10\RemObjects_Everwood_D10.bpl">RemObjects Everwood for Delphi</Excluded_Packages>
+      <Excluded_Packages Name="R:\RemObjects SDK for Delphi\Dcu\D10\RemObjects_Core_D10.bpl">RemObjects SDK - Core Library</Excluded_Packages>
+      <Excluded_Packages Name="R:\RemObjects SDK for Delphi\Dcu\D10\RemObjects_IDE_D10.bpl">RemObjects SDK - IDE Integration for Win32</Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">RemObjects_Indy_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_Indy_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="designide.dcp" />
+    <DCCReference Include="IndyCore.dcp" />
+    <DCCReference Include="IndyProtocols.dcp" />
+    <DCCReference Include="IndySystem.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="RemObjects_Indy_Reg.pas" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uROAsyncResponseStorage.pas" />
+    <DCCReference Include="uROBroadcastChannel.pas" />
+    <DCCReference Include="uROBroadcastServer.pas" />
+    <DCCReference Include="uRODiscovery.pas" />
+    <DCCReference Include="uRODiscoveryService_Impl.pas" />
+    <DCCReference Include="uRODiscovery_Async.pas" />
+    <DCCReference Include="uRODiscovery_Intf.pas" />
+    <DCCReference Include="uRODiscovery_Invk.pas" />
+    <DCCReference Include="uROIndyEmail.pas" />
+    <DCCReference Include="uROIndyEmailChannel.pas" />
+    <DCCReference Include="uROIndyEmailServer.pas" />
+    <DCCReference Include="uROIndyHTTPChannel.pas" />
+    <DCCReference Include="uROIndyHTTPServer.pas" />
+    <DCCReference Include="uROIndySuperHttpChannel.pas" />
+    <DCCReference Include="uROIndyTCPChannel.pas" />
+    <DCCReference Include="uROIndyTCPServer.pas" />
+    <DCCReference Include="uROIndyUDPChannel.pas" />
+    <DCCReference Include="uROIndyUDPServer.pas" />
+    <DCCReference Include="uROSCHelpers.pas" />
+    <DCCReference Include="uROStreamUtils.pas" />
+    <DCCReference Include="uROSuperTCPChannel.pas" />
+    <DCCReference Include="uROSuperTCPServer.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclx.dcp" />
+    <None Include="RemObjects.inc" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.dpk
new file mode 100644
index 0000000..0f7491f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.dpk	
@@ -0,0 +1,68 @@
+package RemObjects_Indy_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Indy Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+{$INCLUDE RemObjects.inc}
+
+requires
+  rtl,
+  {$IFDEF RemObjects_INDY9}
+  Indy,
+  {$ELSE}
+  IndyCore, IndySystem, IndyProtocols,
+  {$ENDIF}
+  vcl,
+  vclx,
+  designide,
+  RemObjects_Core_D12;
+
+contains
+  RemObjects_Indy_Reg in 'RemObjects_Indy_Reg.pas',
+  uROIndyHTTPChannel in 'uROIndyHTTPChannel.pas',
+  uROIndyTCPChannel in 'uROIndyTCPChannel.pas',
+  uROIndyTCPServer in 'uROIndyTCPServer.pas',
+  uROIndyHTTPServer in 'uROIndyHTTPServer.pas',
+  uROIndyUDPServer in 'uROIndyUDPServer.pas',
+  uROIndyUDPChannel in 'uROIndyUDPChannel.pas',
+  uROBroadcastServer in 'uROBroadcastServer.pas',
+  uROBroadcastChannel in 'uROBroadcastChannel.pas',
+  uROStreamUtils in 'uROStreamUtils.pas',
+  uROIndyEmailChannel in 'uROIndyEmailChannel.pas',
+  uROIndyEmailServer in 'uROIndyEmailServer.pas',
+  uROIndyEmail in 'uROIndyEmail.pas',
+  uRODiscovery in 'uRODiscovery.pas',
+  uRODiscoveryService_Impl in 'uRODiscoveryService_Impl.pas',
+  uRODiscovery_Async in 'uRODiscovery_Async.pas',
+  uRODiscovery_Intf in 'uRODiscovery_Intf.pas',
+  uRODiscovery_Invk in 'uRODiscovery_Invk.pas',
+  uROAsyncResponseStorage in 'uROAsyncResponseStorage.pas',
+  uROSuperTCPServer in 'uROSuperTCPServer.pas',
+  uROSuperTCPChannel in 'uROSuperTCPChannel.pas',
+  uROSCHelpers in 'uROSCHelpers.pas',
+  uROIndySuperHttpChannel in 'uROIndySuperHttpChannel.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.dproj
new file mode 100644
index 0000000..c2c2102
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.dproj	
@@ -0,0 +1,124 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{2c907631-bcb2-4bfe-83c9-ce4d30a1f7e0}</ProjectGuid>
+			<MainSource>RemObjects_Indy_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Indy_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Indy_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - Indy Library</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_Indy_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="IndyCore.dcp"/>
+			<DCCReference Include="IndySystem.dcp"/>
+			<DCCReference Include="IndyProtocols.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="vclx.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="RemObjects_Indy_Reg.pas"/>
+			<DCCReference Include="uROIndyHTTPChannel.pas"/>
+			<DCCReference Include="uROIndyTCPChannel.pas"/>
+			<DCCReference Include="uROIndyTCPServer.pas"/>
+			<DCCReference Include="uROIndyHTTPServer.pas"/>
+			<DCCReference Include="uROIndyUDPServer.pas"/>
+			<DCCReference Include="uROIndyUDPChannel.pas"/>
+			<DCCReference Include="uROBroadcastServer.pas"/>
+			<DCCReference Include="uROBroadcastChannel.pas"/>
+			<DCCReference Include="uROStreamUtils.pas"/>
+			<DCCReference Include="uROIndyEmailChannel.pas"/>
+			<DCCReference Include="uROIndyEmailServer.pas"/>
+			<DCCReference Include="uROIndyEmail.pas"/>
+			<DCCReference Include="uRODiscovery.pas"/>
+			<DCCReference Include="uRODiscoveryService_Impl.pas"/>
+			<DCCReference Include="uRODiscovery_Async.pas"/>
+			<DCCReference Include="uRODiscovery_Intf.pas"/>
+			<DCCReference Include="uRODiscovery_Invk.pas"/>
+			<DCCReference Include="uROAsyncResponseStorage.pas"/>
+			<DCCReference Include="uROSuperTCPServer.pas"/>
+			<DCCReference Include="uROSuperTCPChannel.pas"/>
+			<DCCReference Include="uROSCHelpers.pas"/>
+			<DCCReference Include="uROIndySuperHttpChannel.pas"/>
+			<None Include="RemObjects.inc"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">516</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.0.516</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Excluded_Packages/>
+					<Source>
+						<Source Name="MainSource">RemObjects_Indy_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D12.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.dof
new file mode 100644
index 0000000..44f59f8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.dof	
@@ -0,0 +1,95 @@
+[Compiler]
+A=1
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects - Indy Package
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D5
+PackageDLLOutputDir=..\Dcu\D5
+PackageDCPOutputDir=..\Dcu\D5
+SearchPath=..\Dcu\D5
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+[Language]
+ActiveLang=
+ProjectLang=$00000409
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=0
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=0.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+[Excluded Packages]
+L:\Others\Async Professional 4.0\A405_D50.BPL=Async Professional components
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=s:\exe\dcu50
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=l:\Packages
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=l:\Packages
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.dpk
new file mode 100644
index 0000000..664961b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.dpk	
@@ -0,0 +1,59 @@
+package RemObjects_Indy_D5;
+
+{$R *.res}
+{$ALIGN ON}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Indy Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{%File 'RemObjects.inc'}
+
+requires
+  Vcl50,
+  RemObjects_Core_D5;
+
+contains
+  RemObjects_Indy_Reg in 'RemObjects_Indy_Reg.pas',
+  uROIndyHTTPChannel in 'uROIndyHTTPChannel.pas',
+  uROIndyTCPChannel in 'uROIndyTCPChannel.pas',
+  uROIndyTCPServer in 'uROIndyTCPServer.pas',
+  uROIndyHTTPServer in 'uROIndyHTTPServer.pas',
+  uROIndyUDPServer in 'uROIndyUDPServer.pas',
+  uROIndyUDPChannel in 'uROIndyUDPChannel.pas',
+  uROBroadcastServer in 'uROBroadcastServer.pas',
+  uROBroadcastChannel in 'uROBroadcastChannel.pas',
+  uROStreamUtils in 'uROStreamUtils.pas',
+  uROIndyEmailChannel in 'uROIndyEmailChannel.pas',
+  uROIndyEmailServer in 'uROIndyEmailServer.pas',
+  uROIndyEmail in 'uROIndyEmail.pas',
+  uRODiscovery in 'uRODiscovery.pas',
+  uRODiscoveryService_Impl in 'uRODiscoveryService_Impl.pas',
+  uRODiscovery_Async in 'uRODiscovery_Async.pas',
+  uRODiscovery_Intf in 'uRODiscovery_Intf.pas',
+  uRODiscovery_Invk in 'uRODiscovery_Invk.pas',
+  uROAsyncResponseStorage in 'uROAsyncResponseStorage.pas',
+  uROSuperTCPServer in 'uROSuperTCPServer.pas',
+  uROSuperTCPChannel in 'uROSuperTCPChannel.pas',
+  uROSCHelpers in 'uROSCHelpers.pas',
+  uROIndySuperHttpChannel in 'uROIndySuperHttpChannel.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.res
new file mode 100644
index 0000000..a2de886
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D5.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.dof
new file mode 100644
index 0000000..1fda2aa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.dof	
@@ -0,0 +1,104 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - Indy Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=..\Dcu\D6
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=4
+Build=47
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=1.0.4.47
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+[Excluded Packages]
+W:\Ginger\RemObjects\Dcu\D6\RemObjects_DataSnap_D6.bpl=RemObjects - DataSnap Package
+W:\Ginger\RemObjects\Dcu\D6\RemObjects_IDE_D6.bpl=RemObjects - IDE
+W:\Ginger\RemObjects\Dcu\D6\RemObjects_Indy_D6.bpl=RemObjects - Indy Package
+W:\Ginger\RemObjects\Dcu\D6\RemObjects_BPDX_D6.bpl=RemObjects - BPDX Package
+L:\Others\DevEx\ExpressWeb Framework\Delphi 6\Lib\dclcxWebD6.bpl=ExpressWeb Framework by Developer Express Inc.
+L:\Others\DevEx\ExpressWeb Framework\Delphi 6\Lib\dclcxWebTeeChartD6.bpl=WebTeeChart for EWF by Developer Express Inc.
+L:\Others\DevEx\ExpressWeb Framework\Delphi 6\Lib\dclcxWebSnapD6.bpl=ExpressWebPage Module for WebSnap Application by Developer Express Inc.
+L:\Packages\addict3db_d6.bpl=Addict 3.2 for Delphi 6 (DB Aware Components)
+L:\Packages\X255PD60.bpl=TurboPower XMLPartner Professional 2.55 Designtime package - VCL60
+l:\Others\DevEx\CX Library\Delphi 6\Lib\dclcxLibraryVCLD6.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+l:\Others\DevEx\ExpressEditors Library 4\Delphi 6\Lib\dclcxEditorsVCLD6.bpl=ExpressEditors Library 4 (VCL Edition) by Developer Express Inc.
+l:\Others\DevEx\ExpressQuantumGrid 4\Delphi 6\Lib\dclcxGridVCLD6.bpl=ExpressQuantumGrid 4 (VCL Edition) by Developer Express Inc.
+l:\Others\DevEx\ExpressQuantumGrid 4\Delphi 6\Lib\dclcxGridUtilsVCLD6.bpl=ExpressQuantumGrid 4 Utils (VCL Edition) by Developer Express Inc.
+l:\Others\DevEx\ExpressSpreadSheet\Delphi 6\Lib\dclcxSpreadSheetVCLD6.bpl=ExpressSpreadSheet (VCL Edition) by Developer Express Inc.
+l:\Others\DevEx\ExpressPageControl 2\Delphi 6\Lib\dclcxPageControlVCLD6.bpl=Express Cross Platform PageControl (VCL Edition) by Developer Express Inc.
+[HistoryLists\hlConditionals]
+Count=1
+Item0=Development
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.dpk
new file mode 100644
index 0000000..097ea3b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.dpk	
@@ -0,0 +1,62 @@
+package RemObjects_Indy_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Indy Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{%File 'RemObjects.inc'}
+
+requires
+  rtl,
+  indy,
+  vcl,
+  vclx,
+  RemObjects_Core_D6;
+
+contains
+  RemObjects_Indy_Reg in 'RemObjects_Indy_Reg.pas',
+  uROIndyHTTPChannel in 'uROIndyHTTPChannel.pas',
+  uROIndyTCPChannel in 'uROIndyTCPChannel.pas',
+  uROIndyTCPServer in 'uROIndyTCPServer.pas',
+  uROIndyHTTPServer in 'uROIndyHTTPServer.pas',
+  uROIndyUDPServer in 'uROIndyUDPServer.pas',
+  uROIndyUDPChannel in 'uROIndyUDPChannel.pas',
+  uROBroadcastServer in 'uROBroadcastServer.pas',
+  uROBroadcastChannel in 'uROBroadcastChannel.pas',
+  uROStreamUtils in 'uROStreamUtils.pas',
+  uROIndyEmailChannel in 'uROIndyEmailChannel.pas',
+  uROIndyEmailServer in 'uROIndyEmailServer.pas',
+  uROIndyEmail in 'uROIndyEmail.pas',
+  uRODiscovery in 'uRODiscovery.pas',
+  uRODiscoveryService_Impl in 'uRODiscoveryService_Impl.pas',
+  uRODiscovery_Async in 'uRODiscovery_Async.pas',
+  uRODiscovery_Intf in 'uRODiscovery_Intf.pas',
+  uRODiscovery_Invk in 'uRODiscovery_Invk.pas',
+  uROAsyncResponseStorage in 'uROAsyncResponseStorage.pas',
+  uROSuperTCPServer in 'uROSuperTCPServer.pas',
+  uROSuperTCPChannel in 'uROSuperTCPChannel.pas',
+  uROSCHelpers in 'uROSCHelpers.pas',
+  uROIndySuperHttpChannel in 'uROIndySuperHttpChannel.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.res
new file mode 100644
index 0000000..940698e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D6.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.dof
new file mode 100644
index 0000000..1f1a621
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.dof	
@@ -0,0 +1,131 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - Indy Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=$(DELPHI)\Lib\Debug;..\Dcu\D7
+Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;Vclbde50;vcldbx50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;dclocx50;dclaxserver50;Indy50;RemObjects_Core_D5
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=257
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.257
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.dpk
new file mode 100644
index 0000000..b6139f6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.dpk	
@@ -0,0 +1,62 @@
+package RemObjects_Indy_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Indy Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{%File 'RemObjects.inc'}
+
+requires
+  rtl,
+  indy,
+  vcl,
+  vclx,
+  RemObjects_Core_D7;
+
+contains
+  RemObjects_Indy_Reg in 'RemObjects_Indy_Reg.pas',
+  uROIndyHTTPChannel in 'uROIndyHTTPChannel.pas',
+  uROIndyTCPChannel in 'uROIndyTCPChannel.pas',
+  uROIndyTCPServer in 'uROIndyTCPServer.pas',
+  uROIndyHTTPServer in 'uROIndyHTTPServer.pas',
+  uROIndyUDPServer in 'uROIndyUDPServer.pas',
+  uROIndyUDPChannel in 'uROIndyUDPChannel.pas',
+  uROBroadcastServer in 'uROBroadcastServer.pas',
+  uROBroadcastChannel in 'uROBroadcastChannel.pas',
+  uROStreamUtils in 'uROStreamUtils.pas',
+  uROIndyEmailChannel in 'uROIndyEmailChannel.pas',
+  uROIndyEmailServer in 'uROIndyEmailServer.pas',
+  uROIndyEmail in 'uROIndyEmail.pas',
+  uRODiscovery in 'uRODiscovery.pas',
+  uRODiscoveryService_Impl in 'uRODiscoveryService_Impl.pas',
+  uRODiscovery_Async in 'uRODiscovery_Async.pas',
+  uRODiscovery_Intf in 'uRODiscovery_Intf.pas',
+  uRODiscovery_Invk in 'uRODiscovery_Invk.pas',
+  uROAsyncResponseStorage in 'uROAsyncResponseStorage.pas',
+  uROSuperTCPServer in 'uROSuperTCPServer.pas',
+  uROSuperTCPChannel in 'uROSuperTCPChannel.pas',
+  uROSCHelpers in 'uROSCHelpers.pas',
+  uROIndySuperHttpChannel in 'uROIndySuperHttpChannel.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_D7.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Glyphs.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Glyphs.lrs
new file mode 100644
index 0000000..2f8fa04
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Glyphs.lrs	
@@ -0,0 +1,1112 @@
+LazarusResources.Add('TROINDYHTTPCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'422'#168#162
+  +#167'}st'#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#254#150#18
+  +#254#150#18#169'~H'#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189
+  +'H'#22#166'%'#26#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0':77'
+  +#165#164#165'opp'#254#150#18#254#150#18#254#150#18#254#150#18#254#162'!'#254
+  +#162'!'#254#162'!'#254#162'!\'#191'Ux'#219'|'#165#241#165#165#241#165'u'#218
+  +'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255#135#22't~'#2#2#129#0#255#0#255'42'
+  +'2'#178#176#178'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'
+  +#255#172'0'#255#176'6'#255#172'0BqCh'#207'h'#129#221#130#129#221#130'e'#206
+  +'fD'#186'E'#28#163'#:'#151#26#217#146'#'#255#132#18'R~'#2#2#129#0#255#0#255
+  +'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255#186'D'
+  +#255#186'D'#255#186'D'#255#186'D'#255#180'<F'#134'FV'#197'WV'#197'WI'#188'I2'
+  +#172'3'#12#153#22'#'#139#12#206#139#24#255'~'#10#255'~'#10#255#0#255#255#0
+  +#255'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255
+  +#196'U'#255#196'U'#255#199'\'#255#196'U'#255#192'M'#255#186'DBqC.q0%'#168')'
+  +#26#152#23#6#139#8'`'#137#14#244#132#16#255#0#255#255#0#255#255#0#255#255#0
+  +#255'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199'\'#255
+  +#205'e'#255#208'j'#255#205'e'#255#205'e'#255#199'\'#255#196'U'#255#186'D'#255
+  +#180'<'#255#172'0'#137'h8*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'#255#208
+  +'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'#255#196
+  +'U'#255#186'D'#255#172'0'#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'
+  +#255#216'v'#255#221#129#254#226#136#254#226#136#255#221#129#255#217'x'#255
+  +#208'j'#255#199'\'#255#192'M'#255#180'<'#130'kM*%%'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201
+  +']'#255#216'v'#255#217'x'#254#230#144#254#234#152#254#234#152#254#230#144#255
+  +#221#129#255#216'v'#255#205'e'#255#196'U'#255#186'D'#130'kM*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'opp'#255#196
+  +'U'#255#205'e'#255#216'v'#255#221#129#254#234#152#254#242#166#254#243#169#254
+  +#234#152#254#226#136#255#216'v'#255#205'e'#255#196'U'#255#186'D'#134'oS*%%'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181
+  +'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226#136#254#234#150#254#242#166
+  +#254#243#169#254#234#152#254#226#136#255#216'v'#255#208'j'#255#196'U'#255#186
+  +'D'#137'tW*%%'#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0'989'#184#183
+  +#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203#181'y'
+  +#197#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255#0#0#0#255#0
+  ,#255#0#0#0#255#0#255#0#0#0'A<<------'#212#209#213#196#196#197#173#172#173#160
+  +#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%%'#255#0#255
+  +#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#30#30#30
+  +'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160#144#141#145#139#131
+  +#137#132'yzZST*%%'#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#30#30
+  +#30'111------------989422111'#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255
+  +#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROINDYHTTPSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'HJK'#196#189
+  +#194#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{'#169'~H'
+  +#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189'H'#22#166'%'#26
+  +#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0'HJK'#198#193#198#194
+  +#189#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{{{{\'#191'Ux'#219
+  +'|'#165#241#165#165#241#165'u'#218'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255
+  +#135#22't~'#2#2#129#0#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#227#226#230'HJK{{{{{{{{{BqCh'#207'h'#129#221#130#129#221#130'e'
+  +#206'fD'#186'E'#28#163'#:'#151#26#217#146'#'#255#132#18'R~'#2#2#129#0#255#0
+  +#255'HJK'#206#202#206#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'H'
+  +'JK{{{{{{{{{{{{F'#134'FV'#197'WV'#197'WI'#188'I2'#172'3'#12#153#22'#'#139#12
+  +#206#139#24#255'~'#10#255'~'#10#255#0#255#255#0#255'HJK'#212#208#212#207#202
+  +#207#203#197#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134
+  +#134#134#134#146#146#146'{{{BqC.q0%'#168')'#26#152#23#6#139#8'`'#137#14#244
+  +#132#16#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#217#213#216#212#208#212
+  +#207#202#207#203#197#202'HJK'#237#237#239'HJK{{{{{{{{{ooo'#134#134#134#134
+  +#134#134#167#167#167'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJK'#222#218#221#217#213#217#233#231#234#207
+  +#202#207'HJK'#238#237#240'HJK'#140#140#140#140#140#140#146#146#146'{{{{{{{{{'
+  +#143#143#143'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'HJK'#227#224#227#238#237#238#156#154#156#211#207#211'HJ'
+  +'K'#237#237#239'HJKTVWcddnnn'#140#140#140#140#140#140#140#140#140#166#166#166
+  +'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'HJK'#231#230#231#144#144#146#158#157#158#216#212#216'HJK'#206#207
+  +#208#207#207#207#134#135#135'ceeNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#237
+  +#235#237#146#146#147#227#224#226#255#255#255#176#176#178'QRSUVWuvw'#169#170
+  +#170#211#211#212#189#189#191''#128#129'[\]JLMHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#240#240#242#237
+  +#235#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191#151#149
+  +#152'onrXYZNPQhij'#147#149#150#208#209#209'HJK'#255#0#255#255#0#255#255#0#255
+  +#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0'HJK'#246#246#246#255#255#255#238#238
+  +#240#242#242#244#238#237#239#229#227#231#217#215#218#203#199#204#189#183#189
+  +#173#167#173#153#145#151#153#145#151'zsuHJK'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0'HJK'#255#255#255#237#237#239
+  +#248#248#250#251#251#252#246#244#247#234#234#237#221#220#224#207#204#208#192
+  +#187#193#176#170#176#160#152#158'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0
+  ,#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255'HJKHJK'#233
+  +#233#234#252#252#252#246#246#247#235#234#238#222#220#224#208#204#208#193#187
+  +#193'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255'H'
+  +'JKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#0#0
+  +#0
+]);
+LazarusResources.Add('TROINDYTCPCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#128'PK@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#242#216
+  +#177#240#212#171#239#209#165#238#206#158#238#202#152#237#199#146#235#197#142
+  +#235#196#137#234#193#134#233#191#130#128'PK@'#0#192#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'@'#0#192'@@@'#231#183'y'#230#181'u'#230#180'r'#230#177
+  +'n'#229#176'k'#227#173'h'#227#172'e'#226#170'b'#226#169'^'#234#194#135#128'P'
+  +'K@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#246#226#197#243#222
+  +#189#243#218#182#183#180#164#7'9z'#182#175#154#238#206#157#238#202#151#235
+  +#199#145#235#197#140#128'PK@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +'@@@'#234#188#132#233#187#128#176#157'{'#7'9z'#9'b'#208#7'9z'#173#150'o'#229
+  +#173'j'#227#172'g'#237#201#147#128'PK@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#248#235#215#188#192#191#7'9z'#15'j'#211#17't'#234#9'b'#208
+  +#7'9z'#182#177#158#239#208#160#238#204#154#128'PK@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#171#144't'#7'9z'#25'x'#216'6'#150#240'('#138#238
+  +#27''#235#12'e'#209#7'9z'#183#177#160#239#209#163#128'PK@'#0#192#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'@'#0#192'@@@'#7'9z'#7'9z'#7'9z@'#157#242'@'
+  +#157#242'5'#150#239#7'9z'#7'9z'#7'9z'#242#213#172#128'PK@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192#252#251#246#227#173'y'#128#196'w'#7'9z@'#157#242'@'#157#242'@'
+  +#157#242#7'9z'#246#225#196#244#222#189#242#218#182#128'PK422'#168#162#167'}s'
+  +'t'#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#254#150#18#254#150
+  +#18#254#171'9'#209#146'm'#255#254#251#227#175'}'#226#173'{'#7'9z'#7'9z'#7'9z'
+  +#7'9z'#7'9z'#233#188#130#231#187#128#244#224#192#128'PK:77'#165#164#165'opp'
+  +#254#150#18#254#150#18#254#150#18#254#150#18#254#162'!'#254#162'!'#254#162'!'
+  +#254#162'!'#218#157'u'#255#255#255#254#254#252#254#251#250#254#250#244#252
+  +#247#239#251#244#233#251#242#227#250#239#221#248#235#215#247#231#207#246#227
+  +#201#128'PK422'#178#176#178'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'
+  +#255#172'0'#255#172'0'#255#176'6'#255#172'0'#218#157'u'#255#255#255#227#177
+  +#129#227#177#128#227#176''#226#173'}'#227#173'y'#225#171'x'#225#170'u'#225
+  +#169'r'#224#166'n'#247#233#211#128'PK989'#182#176#181'}st'#254#162'!'#255#172
+  +'0'#255#172'0'#255#180'<'#255#186'D'#255#186'D'#255#186'D'#255#186'D'#231#171
+  +'y'#255#255#255#227#177#129#227#177#129#227#177#129#227#176''#227#175'}'#226
+  +#173'{'#226#172'x'#225#170'v'#225#169'r'#248#237#220#128'PK989'#182#176#181
+  +'xux'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255#196'U'#255#196'U'#255
+  +#199'\'#255#196'U'#231#171'y'#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#254#252#255#252#250#254#250#244#252#247#240#251#244#234#251
+  +#242#229#128'PK989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199
+  +'\'#255#205'e'#255#208'j'#255#205'e'#255#205'e'#231#171'y'#207#142'h'#207#142
+  +'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142
+  +'h'#207#142'h'#207#142'h'#128'PKA<<'#184#183#184'opp'#255#186'D'#255#196'U'
+  +#255#199'\'#255#208'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255#208'j'
+  +#255#205'e'#255#196'U'#255#186'D'#255#172'0'#130'kM*%%'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'989'#188#185#189'opp'#255#186'D'#255
+  +#201']'#255#208'j'#255#216'v'#255#221#129#254#226#136#254#226#136#255#221#129
+  +#255#217'x'#255#208'j'#255#199'\'#255#192'M'#255#180'<'#130'kM*%%'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181'vtv'#255
+  +#196'U'#255#201']'#255#216'v'#255#217'x'#254#230#144#254#234#152#254#234#152
+  +#254#230#144#255#221#129#255#216'v'#255#205'e'#255#196'U'#255#186'D'#130'kM*'
+  +'%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183
+  +#184'opp'#255#196'U'#255#205'e'#255#216'v'#255#221#129#254#234#152#254#242
+  +#166#254#243#169#254#234#152#254#226#136#255#216'v'#255#205'e'#255#196'U'#255
+  +#186'D'#134'oS*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'A<<'#182#176#181'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226#136#254
+  +#234#150#254#242#166#254#243#169#254#234#152#254#226#136#255#216'v'#255#208
+  +'j'#255#196'U'#255#186'D'#137'tW*%%'#255#0#255#0#0#0#255#0#255#255#0#255#0#0
+  ,#0#0#0#0'989'#184#183#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163
+  +#152'r'#203#181'y'#197#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255
+  +#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0'A<<------'#212#209#213#196#196
+  +#197#173#172#173#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135
+  +'t`}st*%%'#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0
+  +#255#255#0#255#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154
+  +#160#144#141#145#139#131#137#132'yzZST*%%'#255#0#255#0#0#0#255#0#255#255#0
+  +#255#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#30#30#30'111------------989422111'#255#0#255#255#0#255#0
+  +#0#0#255#0#255#255#0#255#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROINDYTCPSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#128'PK@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#242#216
+  +#177#240#212#171#239#209#165#238#206#158#238#202#152#237#199#146#235#197#142
+  +#235#196#137#234#193#134#233#191#130#128'PK@'#0#192#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'@'#0#192'@@@'#231#183'y'#230#181'u'#230#180'r'#230#177
+  +'n'#229#176'k'#227#173'h'#227#172'e'#226#170'b'#226#169'^'#234#194#135#128'P'
+  +'K@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#246#226#197#243#222
+  +#189#243#218#182#183#180#164#7'9z'#182#175#154#238#206#157#238#202#151#235
+  +#199#145#235#197#140#128'PK@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +'@@@'#234#188#132#233#187#128#176#157'{'#7'9z'#9'b'#208#7'9z'#173#150'o'#229
+  +#173'j'#227#172'g'#237#201#147#128'PK@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#248#235#215#188#192#191#7'9z'#15'j'#211#17't'#234#9'b'#208
+  +#7'9z'#182#177#158#239#208#160#238#204#154#128'PK@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#171#144't'#7'9z'#25'x'#216'6'#150#240'('#138#238
+  +#27''#235#12'e'#209#7'9z'#183#177#160#239#209#163#128'PK@'#0#192#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'@'#0#192'@@@'#7'9z'#7'9z'#7'9z@'#157#242'@'
+  +#157#242'5'#150#239#7'9z'#7'9z'#7'9z'#242#213#172#128'PK@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192#252#251#246#227#173'y'#128#196'w'#7'9z@'#157#242'@'#157#242'@'
+  +#157#242#7'9z'#246#225#196#244#222#189#242#218#182#128'PKHJK'#196#189#194#192
+  +#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{{{{'#209#146'm'
+  +#255#254#251#227#175'}'#226#173'{'#7'9z'#7'9z'#7'9z'#7'9z'#7'9z'#233#188#130
+  +#231#187#128#244#224#192#128'PKHJK'#198#193#198#194#189#194#192#186#192#189
+  +#183#189'HJK'#222#221#225'HJK{{{{{{{{{'#218#157'u'#255#255#255#254#254#252
+  +#254#251#250#254#250#244#252#247#239#251#244#233#251#242#227#250#239#221#248
+  +#235#215#247#231#207#246#227#201#128'PKHJK'#203#197#203#198#192#198#194#188
+  +#194#192#186#192'HJK'#227#226#230'HJK{{{{{{{{{'#218#157'u'#255#255#255#227
+  +#177#129#227#177#128#227#176''#226#173'}'#227#173'y'#225#171'x'#225#170'u'
+  +#225#169'r'#224#166'n'#247#233#211#128'PKHJK'#206#202#206#202#197#202#198#193
+  +#198#196#188#196'HJK'#231#230#234'HJK{{{{{{{{{'#231#171'y'#255#255#255#227
+  +#177#129#227#177#129#227#177#129#227#176''#227#175'}'#226#173'{'#226#172'x'
+  +#225#170'v'#225#169'r'#248#237#220#128'PKHJK'#212#208#212#207#202#207#203#197
+  +#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134#134#134#134
+  +#231#171'y'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#254#252#255#252#250#254#250#244#252#247#240#251#244#234#251#242#229#128'PKH'
+  +'JK'#217#213#216#212#208#212#207#202#207#203#197#202'HJK'#237#237#239'HJK{{{'
+  +'{{{{{{'#231#171'y'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'
+  +#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#128'PKHJK'
+  +#222#218#221#217#213#217#233#231#234#207#202#207'HJK'#238#237#240'HJK'#140
+  +#140#140#140#140#140#146#146#146'{{{{{{{{{'#143#143#143'HJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#227#224
+  +#227#238#237#238#156#154#156#211#207#211'HJK'#237#237#239'HJKTVWcddnnn'#140
+  +#140#140#140#140#140#140#140#140#166#166#166'HJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#231#230#231#144
+  +#144#146#158#157#158#216#212#216'HJK'#206#207#208#207#207#207#134#135#135'ce'
+  +'eNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'HJK'#237#235#237#146#146#147#227#224#226
+  +#255#255#255#176#176#178'QRSUVWuvw'#169#170#170#211#211#212#189#189#191''
+  +#128#129'[\]JLMHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'HJK'#240#240#242#237#235#237#255#255#255#233#233#235
+  +#226#225#229#220#217#221#191#187#191#151#149#152'onrXYZNPQhij'#147#149#150
+  +#208#209#209'HJK'#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#0#0
+  +#0#0#0#0'HJK'#246#246#246#255#255#255#238#238#240#242#242#244#238#237#239#229
+  +#227#231#217#215#218#203#199#204#189#183#189#173#167#173#153#145#151#153#145
+  +#151'zsuHJK'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0
+  ,#255#0#255#0#0#0'HJK'#255#255#255#237#237#239#248#248#250#251#251#252#246#244
+  +#247#234#234#237#221#220#224#207#204#208#192#187#193#176#170#176#160#152#158
+  +'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0
+  +#0#0#255#0#255#0#0#0#255#0#255'HJKHJK'#233#233#234#252#252#252#246#246#247
+  +#235#234#238#222#220#224#208#204#208#193#187#193'HJKHJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255
+  +#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#0#255#0#255#255#0#255#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROINDYUDPCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#128'PK@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#242#216
+  +#177#240#212#171#239#209#165#238#206#158#238#202#152#237#199#146#235#197#142
+  +#235#196#137#234#193#134#233#191#130#128'PK@'#0#192#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'@'#0#192'@@@'#243#221#187#242#217#180#242#215#173#183
+  +#176#158#7'9z'#180#171#147#237#202#149#235#198#143#235#196#138#234#194#135
+  +#128'PK@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#246#226#197#243
+  +#222#189#184#182#170#7'9z'#31#134#243#7'9z'#181#172#150#238#202#151#235#199
+  +#145#235#197#140#128'PK@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#247#231#207#187#189#183#7'9z3'#153#248'3'#153#248'4'#153#250#7'9z'#182#172
+  +#152#238#203#153#237#201#147#128'PK@'#0#192#255#255#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255
+  +'@'#0#192'@@@'#248#235#215#7'9z'#7'9zI'#172#255'I'#172#255'I'#172#255#7'9z'#7
+  +'9z'#239#208#160#238#204#154#128'PK@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#250#240#224#248#237#217#248#233#211#7'9z'#7'9z'#7'9z'#242#220#183
+  +#242#216#177#240#212#170#239#209#163#128'PK@'#0#192#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'@'#0#192'@@@'#252#244#233#250#242#227#250#238#220#248
+  +#235#213#247#231#207#246#227#199#246#224#193#244#221#186#242#217#178#242#213
+  +#172#128'PK@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#252#251#246#254#248#240#252#244
+  +#235#251#242#229#189#198#201#7'9z'#188#192#191#247#230#202#246#225#196#244
+  +#222#189#242#218#182#128'PK422'#168#162#167'}st'#254#150#18#254#145#12#254
+  +#150#18#254#150#18#254#150#18#254#150#18#254#150#18#254#171'9'#209#146'm'#255
+  +#254#251#254#251#247#252#248#243#191#204#213#7'9z'#31#134#243#7'9z'#188#193
+  +#192#246#230#204#244#227#199#244#224#192#128'PK:77'#165#164#165'opp'#254#150
+  +#18#254#150#18#254#150#18#254#150#18#254#162'!'#254#162'!'#254#162'!'#254#162
+  +'!'#218#157'u'#255#255#255#254#254#252#193#207#222#7'9z3'#153#248'3'#153#248
+  +'4'#153#250#7'9z'#188#196#196#247#231#207#246#227#201#128'PK422'#178#176#178
+  +'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'#255#172'0'#255
+  +#176'6'#255#172'0'#218#157'u'#255#255#255#255#255#255#7'9z'#7'9zI'#172#255'I'
+  +#172#255'I'#172#255#7'9z'#7'9z'#248#235#217#247#233#211#128'PK989'#182#176
+  +#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255#186'D'#255#186'D'
+  +#255#186'D'#255#186'D'#231#171'y'#255#255#255#255#255#255#255#255#255#255#255
+  +#255#7'9z'#7'9z'#7'9z'#252#247#238#251#243#233#250#240#225#248#237#220#128'P'
+  +'K989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255#196
+  +'U'#255#196'U'#255#199'\'#255#196'U'#231#171'y'#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#254#252#255#252#250#254#250#244#252#247
+  +#240#251#244#234#251#242#229#128'PK989'#188#185#189'opp'#255#176'6'#255#186
+  +'D'#255#196'U'#255#199'\'#255#205'e'#255#208'j'#255#205'e'#255#205'e'#231#171
+  +'y'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142
+  +'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#128'PKA<<'#184#183#184'opp'
+  +#255#186'D'#255#196'U'#255#199'\'#255#208'j'#255#215't'#255#216'v'#255#217'x'
+  +#255#216'v'#255#208'j'#255#205'e'#255#196'U'#255#186'D'#255#172'0'#130'kM*%%'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#188#185#189
+  +'opp'#255#186'D'#255#201']'#255#208'j'#255#216'v'#255#221#129#254#226#136#254
+  +#226#136#255#221#129#255#217'x'#255#208'j'#255#199'\'#255#192'M'#255#180'<'
+  +#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'
+  +#182#176#181'vtv'#255#196'U'#255#201']'#255#216'v'#255#217'x'#254#230#144#254
+  +#234#152#254#234#152#254#230#144#255#221#129#255#216'v'#255#205'e'#255#196'U'
+  +#255#186'D'#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255'989'#184#183#184'opp'#255#196'U'#255#205'e'#255#216'v'#255#221#129#254
+  +#234#152#254#242#166#254#243#169#254#234#152#254#226#136#255#216'v'#255#205
+  +'e'#255#196'U'#255#186'D'#134'oS*%%'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'A<<'#182#176#181'vtv'#201#161'W'#189#154'Q'#238#201'n'
+  +#254#226#136#254#234#150#254#242#166#254#243#169#254#234#152#254#226#136#255
+  +#216'v'#255#208'j'#255#196'U'#255#186'D'#137'tW*%%'#255#0#255#0#0#0#255#0#255
+  ,#255#0#255#0#0#0#0#0#0'989'#184#183#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'
+  +#167#160#129#163#152'r'#203#181'y'#197#167'b'#238#192'^'#255#196'U'#255#186
+  +'D'#142'w[*%%'#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0'A<<------'#212
+  +#209#213#196#196#197#173#172#173#160#160#163#141#137#140#141#137#140'xux}}~o'
+  +'ppxuxxuxddd'#135't`}st*%%'#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0
+  +#255#0#255#255#0#255#255#0#255#30#30#30'422788FFFZVWnmnopp'#144#141#145#128
+  +#128#128#161#154#160#144#141#145#139#131#137#132'yzZST*%%'#255#0#255#0#0#0
+  +#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#30#30#30'111------------989422111'#255#0
+  +#255#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROINDYUDPSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#128'PK@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#242#216
+  +#177#240#212#171#239#209#165#238#206#158#238#202#152#237#199#146#235#197#142
+  +#235#196#137#234#193#134#233#191#130#128'PK@'#0#192#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'@'#0#192'@@@'#243#221#187#242#217#180#242#215#173#183
+  +#176#158#7'9z'#180#171#147#237#202#149#235#198#143#235#196#138#234#194#135
+  +#128'PK@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#246#226#197#243
+  +#222#189#184#182#170#7'9z'#31#134#243#7'9z'#181#172#150#238#202#151#235#199
+  +#145#235#197#140#128'PK@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#247#231#207#187#189#183#7'9z3'#153#248'3'#153#248'4'#153#250#7'9z'#182#172
+  +#152#238#203#153#237#201#147#128'PK@'#0#192#255#255#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255
+  +'@'#0#192'@@@'#248#235#215#7'9z'#7'9zI'#172#255'I'#172#255'I'#172#255#7'9z'#7
+  +'9z'#239#208#160#238#204#154#128'PK@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#250#240#224#248#237#217#248#233#211#7'9z'#7'9z'#7'9z'#242#220#183
+  +#242#216#177#240#212#170#239#209#163#128'PK@'#0#192#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'@'#0#192'@@@'#252#244#233#250#242#227#250#238#220#248
+  +#235#213#247#231#207#246#227#199#246#224#193#244#221#186#242#217#178#242#213
+  +#172#128'PK@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#252#251#246#254#248#240#252#244
+  +#235#251#242#229#189#198#201#7'9z'#188#192#191#247#230#202#246#225#196#244
+  +#222#189#242#218#182#128'PKHJK'#196#189#194#192#186#192#189#183#189#189#183
+  +#189'HJK'#217#215#218'HJK{{{{{{{{{'#209#146'm'#255#254#251#254#251#247#252
+  +#248#243#191#204#213#7'9z'#31#134#243#7'9z'#188#193#192#246#230#204#244#227
+  +#199#244#224#192#128'PKHJK'#198#193#198#194#189#194#192#186#192#189#183#189
+  +'HJK'#222#221#225'HJK{{{{{{{{{'#218#157'u'#255#255#255#254#254#252#193#207
+  +#222#7'9z3'#153#248'3'#153#248'4'#153#250#7'9z'#188#196#196#247#231#207#246
+  +#227#201#128'PKHJK'#203#197#203#198#192#198#194#188#194#192#186#192'HJK'#227
+  +#226#230'HJK{{{{{{{{{'#218#157'u'#255#255#255#255#255#255#7'9z'#7'9zI'#172
+  +#255'I'#172#255'I'#172#255#7'9z'#7'9z'#248#235#217#247#233#211#128'PKHJK'#206
+  +#202#206#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'HJK{{{{{{{{{'
+  +#231#171'y'#255#255#255#255#255#255#255#255#255#255#255#255#7'9z'#7'9z'#7'9z'
+  +#252#247#238#251#243#233#250#240#225#248#237#220#128'PKHJK'#212#208#212#207
+  +#202#207#203#197#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134
+  +#134#134#134#134#231#171'y'#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#254#252#255#252#250#254#250#244#252#247#240#251#244#234#251
+  +#242#229#128'PKHJK'#217#213#216#212#208#212#207#202#207#203#197#202'HJK'#237
+  +#237#239'HJK{{{{{{{{{'#231#171'y'#207#142'h'#207#142'h'#207#142'h'#207#142'h'
+  +#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'
+  +#128'PKHJK'#222#218#221#217#213#217#233#231#234#207#202#207'HJK'#238#237#240
+  +'HJK'#140#140#140#140#140#140#146#146#146'{{{{{{{{{'#143#143#143'HJK'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'H'
+  +'JK'#227#224#227#238#237#238#156#154#156#211#207#211'HJK'#237#237#239'HJKTVW'
+  +'cddnnn'#140#140#140#140#140#140#140#140#140#166#166#166'HJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#231#230
+  +#231#144#144#146#158#157#158#216#212#216'HJK'#206#207#208#207#207#207#134#135
+  +#135'ceeNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#237#235#237#146#146#147#227
+  +#224#226#255#255#255#176#176#178'QRSUVWuvw'#169#170#170#211#211#212#189#189
+  +#191''#128#129'[\]JLMHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJK'#240#240#242#237#235#237#255#255#255#233
+  +#233#235#226#225#229#220#217#221#191#187#191#151#149#152'onrXYZNPQhij'#147
+  +#149#150#208#209#209'HJK'#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0
+  +#255#0#0#0#0#0#0'HJK'#246#246#246#255#255#255#238#238#240#242#242#244#238#237
+  +#239#229#227#231#217#215#218#203#199#204#189#183#189#173#167#173#153#145#151
+  +#153#145#151'zsuHJK'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255
+  ,#0#0#0#255#0#255#0#0#0'HJK'#255#255#255#237#237#239#248#248#250#251#251#252
+  +#246#244#247#234#234#237#221#220#224#207#204#208#192#187#193#176#170#176#160
+  +#152#158'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255
+  +#0#255#0#0#0#255#0#255#0#0#0#255#0#255'HJKHJK'#233#233#234#252#252#252#246
+  +#246#247#235#234#238#222#220#224#208#204#208#193#187#193'HJKHJK'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255
+  +#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKHJK'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROEMAILCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#255
+  +#204#151#255#204#151#255#204#151#255#204#151#255#204#151#255#204#151#255#204
+  +#150#255#211#153#229#173#140#180'{u'#142']Y@'#0#192#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'@'#0#192'@@@'#242#207#173#242#208#173#242#208#173#242
+  +#208#173#242#208#173#242#207#173#244#211#175#235#196#166#181'}w'#216#169#143
+  +#142']Y@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#237#216#196#237
+  +#216#196#237#216#196#237#216#196#237#216#196#237#216#196#239#221#199#189#140
+  +#135#194#145#131#239#216#193#142']Y@'#0#192#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192'@@@'#239#231#217#238#226#215#238#226#215#238#226#215#238#226#215#242
+  +#234#220#208#175#167#180'~v'#239#220#198#234#220#208#142']Y@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@'#231#213#207#242#229#220#239#226#217
+  +#239#226#217#240#227#218#227#202#196#178'zv'#226#197#181#247#244#234#240#227
+  +#220#142']Y@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#142']Y'#142
+  +']Y'#142']Y'#142']Y'#142']Y'#142']Y'#175'vs'#215#182#176#255#255#254#246#239
+  +#237#142']Y@'#0#192#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'@'#0#192'@@'
+  +'@'#240#240#240#231#226#227#230#227#229#227#227#227#226#233#234#233#247#247
+  +#213#206#204#177#128''#189#143#142#237#220#220#142']Y@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192#251#255#255#248#255#255#244#255#255#242#255#255#238#255#255#235#255
+  +#255#234#255#255#235#255#255#230#246#246#194#163#161#181#130''#142']Y422'
+  +#168#162#167'}st'#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#142
+  +']Y'#163#218#222#255#255#255#252#255#255#250#255#255#250#255#255#250#255#255
+  +#247#255#255#247#255#255#240#254#252#235#248#248#225#244#244#213#237#238#197
+  +#237#242#171#187#192#142']Y:77'#165#164#165'opp'#254#150#18#254#150#18#254
+  +#150#18#254#150#18#254#162'!'#254#162'!'#142']Y'#255#255#255#255#255#255#255
+  +#255#255#240#247#248#225#237#238#201#226#229#166#204#209#147#193#202#132#184
+  +#198'z'#177#197'n'#175#203'r'#161#191#142']Y'#255#0#255'422'#178#176#178'xux'
+  +#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'#255#172'0'#255#176'6'
+  +#142']Y'#167#216#222#139#252#255'}'#222#234's'#212#225'l'#216#227'j'#218#233
+  +'l'#216#238'm'#216#242'l'#218#252#135#186#211#142']Y'#255#0#255#255#0#255'98'
+  +'9'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255#186'D'
+  +#255#186'D'#255#186'D'#255#186'D'#142']Y'#146#183#189'p'#240#252'n'#247#255
+  +'s'#242#255's'#243#255'o'#247#255'v'#230#250#156#170#182#142']Y'#255#0#255
+  +#255#0#255#255#0#255'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'
+  +#255#191'M'#255#196'U'#255#196'U'#255#199'\'#255#196'U'#255#192'M'#142']Y'
+  +#142']Y'#130#216#224's'#240#250't'#239#248#131#215#224#142']Y'#142']Y'#255#0
+  +#255#255#0#255#255#0#255#255#0#255'989'#188#185#189'opp'#255#176'6'#255#186
+  +'D'#255#196'U'#255#199'\'#255#205'e'#255#208'j'#255#205'e'#255#205'e'#255#199
+  +'\'#255#196'U'#255#186'D'#142']Y'#142']Y'#142']Y'#142']Y'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255
+  +#196'U'#255#199'\'#255#208'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255
+  +#208'j'#255#205'e'#255#196'U'#255#186'D'#255#172'0'#130'kM*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#188#185#189'opp'#255#186
+  +'D'#255#201']'#255#208'j'#255#216'v'#255#221#129#254#226#136#254#226#136#255
+  +#221#129#255#217'x'#255#208'j'#255#199'\'#255#192'M'#255#180'<'#130'kM*%%'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181
+  +'vtv'#255#196'U'#255#201']'#255#216'v'#255#217'x'#254#230#144#254#234#152#254
+  +#234#152#254#230#144#255#221#129#255#216'v'#255#205'e'#255#196'U'#255#186'D'
+  +#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'
+  +#184#183#184'opp'#255#196'U'#255#205'e'#255#216'v'#255#221#129#254#234#152
+  +#254#242#166#254#243#169#254#234#152#254#226#136#255#216'v'#255#205'e'#255
+  +#196'U'#255#186'D'#134'oS*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'A<<'#182#176#181'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226
+  +#136#254#234#150#254#242#166#254#243#169#254#234#152#254#226#136#255#216'v'
+  ,#255#208'j'#255#196'U'#255#186'D'#137'tW*%%'#255#0#255#0#0#0#255#0#255#255#0
+  +#255#0#0#0#0#0#0'989'#184#183#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160
+  +#129#163#152'r'#203#181'y'#197#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w'
+  +'[*%%'#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0'A<<------'#212#209#213
+  +#196#196#197#173#172#173#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxux'
+  +'ddd'#135't`}st*%%'#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255
+  +#255#0#255#255#0#255#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161
+  +#154#160#144#141#145#139#131#137#132'yzZST*%%'#255#0#255#0#0#0#255#0#255#255
+  +#0#255#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#30#30#30'111------------989422111'#255#0#255#255#0
+  +#255#0#0#0#255#0#255#255#0#255#255#0#255#0#0#0
+]);
+LazarusResources.Add('TROEMAILSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#255
+  +#204#151#255#204#151#255#204#151#255#204#151#255#204#151#255#204#151#255#204
+  +#150#255#211#153#229#173#140#180'{u'#142']Y@'#0#192#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'@'#0#192'@@@'#242#207#173#242#208#173#242#208#173#242
+  +#208#173#242#208#173#242#207#173#244#211#175#235#196#166#181'}w'#216#169#143
+  +#142']Y@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#237#216#196#237
+  +#216#196#237#216#196#237#216#196#237#216#196#237#216#196#239#221#199#189#140
+  +#135#194#145#131#239#216#193#142']Y@'#0#192#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192'@@@'#239#231#217#238#226#215#238#226#215#238#226#215#238#226#215#242
+  +#234#220#208#175#167#180'~v'#239#220#198#234#220#208#142']Y@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@'#231#213#207#242#229#220#239#226#217
+  +#239#226#217#240#227#218#227#202#196#178'zv'#226#197#181#247#244#234#240#227
+  +#220#142']Y@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#142']Y'#142
+  +']Y'#142']Y'#142']Y'#142']Y'#142']Y'#175'vs'#215#182#176#255#255#254#246#239
+  +#237#142']Y@'#0#192#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'@'#0#192'@@'
+  +'@'#240#240#240#231#226#227#230#227#229#227#227#227#226#233#234#233#247#247
+  +#213#206#204#177#128''#189#143#142#237#220#220#142']Y@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192#251#255#255#248#255#255#244#255#255#242#255#255#238#255#255#235#255
+  +#255#234#255#255#235#255#255#230#246#246#194#163#161#181#130''#142']YHJK'
+  +#196#189#194#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK'#142']'
+  +'Y'#163#218#222#255#255#255#252#255#255#250#255#255#250#255#255#250#255#255
+  +#247#255#255#247#255#255#240#254#252#235#248#248#225#244#244#213#237#238#197
+  +#237#242#171#187#192#142']YHJK'#198#193#198#194#189#194#192#186#192#189#183
+  +#189'HJK'#222#221#225'HJK{{{'#142']Y'#255#255#255#255#255#255#255#255#255#240
+  +#247#248#225#237#238#201#226#229#166#204#209#147#193#202#132#184#198'z'#177
+  +#197'n'#175#203'r'#161#191#142']Y'#255#0#255'HJK'#203#197#203#198#192#198#194
+  +#188#194#192#186#192'HJK'#227#226#230'HJK{{{{{{'#142']Y'#167#216#222#139#252
+  +#255'}'#222#234's'#212#225'l'#216#227'j'#218#233'l'#216#238'm'#216#242'l'#218
+  +#252#135#186#211#142']Y'#255#0#255#255#0#255'HJK'#206#202#206#202#197#202#198
+  +#193#198#196#188#196'HJK'#231#230#234'HJK{{{{{{{{{'#142']Y'#146#183#189'p'
+  +#240#252'n'#247#255's'#242#255's'#243#255'o'#247#255'v'#230#250#156#170#182
+  +#142']Y'#255#0#255#255#0#255#255#0#255'HJK'#212#208#212#207#202#207#203#197
+  +#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134#134#134#134
+  +#146#146#146#142']Y'#142']Y'#130#216#224's'#240#250't'#239#248#131#215#224
+  +#142']Y'#142']Y'#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#217#213#216#212
+  +#208#212#207#202#207#203#197#202'HJK'#237#237#239'HJK{{{{{{{{{ooo'#134#134
+  +#134#134#134#134#142']Y'#142']Y'#142']Y'#142']Y'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'HJK'#222#218#221#217#213#217#233#231#234
+  +#207#202#207'HJK'#238#237#240'HJK'#140#140#140#140#140#140#146#146#146'{{{{{'
+  +'{{{{'#143#143#143'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'HJK'#227#224#227#238#237#238#156#154#156#211#207
+  +#211'HJK'#237#237#239'HJKTVWcddnnn'#140#140#140#140#140#140#140#140#140#166
+  +#166#166'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'HJK'#231#230#231#144#144#146#158#157#158#216#212#216'HJK'
+  +#206#207#208#207#207#207#134#135#135'ceeNPQMOP\]]kkl'#146#146#146'HJK'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'H'
+  +'JK'#237#235#237#146#146#147#227#224#226#255#255#255#176#176#178'QRSUVWuvw'
+  +#169#170#170#211#211#212#189#189#191''#128#129'[\]JLMHJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#240#240
+  +#242#237#235#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191
+  +#151#149#152'onrXYZNPQhij'#147#149#150#208#209#209'HJK'#255#0#255#255#0#255
+  +#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0'HJK'#246#246#246#255#255#255
+  +#238#238#240#242#242#244#238#237#239#229#227#231#217#215#218#203#199#204#189
+  ,#183#189#173#167#173#153#145#151#153#145#151'zsuHJK'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0'HJK'#255#255#255#237
+  +#237#239#248#248#250#251#251#252#246#244#247#234#234#237#221#220#224#207#204
+  +#208#192#187#193#176#170#176#160#152#158'HJKHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255'HJK'
+  +'HJK'#233#233#234#252#252#252#246#246#247#235#234#238#222#220#224#208#204#208
+  +#193#187#193'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255#255
+  +#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255#0
+  +#255#0#0#0
+]);
+LazarusResources.Add('TROBROADCASTCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#30#30#30#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#132'yzFFF'#30#30#30#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#132'yz'#132'yz'#30#30#30#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0
+  +#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#132'yzZST---'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@FFF---'#255#0#255#7#7#187#6
+  +#11#197#7#7#187#7#7#187#7#7#187#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@@@'#255#0#255#7#7#187#5#8#184#3'$'#250#3
+  +'$'#250#2' '#250#1#28#246#1#27#243#7#7#187#7#7#187#255#0#255'@'#0#192#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'@'#0#192'@@@'#4#5#171#30#30#30#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#30#255#0#28#247#7#7#187
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192#144#133#136'tlnFFF'#6#9#194#6#10#196#6#9#192
+  +#7#7#187#7#7#187#255#0#255#255#0#255#255#0#255#7#7#187'422'#168#162#167'}st'
+  +#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#254#150#18#254#150#18
+  +#254#171'9'#234#181'h'#215#186#147#182#176#181#8#5#182#136'}~111'#30#30#30#1
+  +''''#255#7#7#187#7#7#187#255#0#255#255#0#255#7#7#187':77'#165#164#165'opp'
+  +#254#150#18#254#150#18#254#150#18#254#150#18#254#162'!'#254#162'!'#254#162'!'
+  +'333333333'#254#150#18#227#153'5'#6#10#196#6#10#196#6#10#196#255#0#255#255#0
+  +#255#7#7#187#255#0#255#7#7#187#255#0#255'422'#178#176#178'xux'#254#150#18#254
+  +#158#28#254#162'!'#255#172'0'#255#172'0'#255#172'0333mjktpsIII "f'#6#10#196#6
+  +#10#196#159'l*'#6#10#196#255#0#255#6#10#196#255#0#255#255#0#255#255#0#255#255
+  +#0#255'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255
+  +#186'DZ[['#222#221#221'TSTffjOQ`jobhn=Em(1]'#6#10#196#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'989'#182#176#181'xux'#255#172'0'#255
+  +#172'0'#255#186'D'#255#191'M'#255#196'UZ[['#250#247#247'88;'#12#14#21#31'%?-'
+  +'9zAO'#167']h'#156'gl'#130'TVj7J'#143'333'#255#0#255#255#0#255#255#0#255#255
+  +#0#255'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199'\'#255
+  +#205'eZ[['#230#225#229'./3'#0#0#4#1#6'+'#7#23#154#12' '#207#20'#'#145'18\HKY'
+  +#201#198#189'333'#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#184#183#184'o'
+  +'pp'#255#186'D'#255#196'U'#255#199'\'#255#208'j'#255#215'tZ[['#215#207#211'+'
+  +',0'#0#0#3#0#3'&'#7#31#166#14'/'#250#3#15#147#4#9'&'#17#19#28#172#172#175'33'
+  +'3'#255#0#255#255#0#255#255#0#255#255#0#255'989'#188#185#189'opp'#255#186'D'
+  +#255#201']'#255#208'j'#255#216'v'#255#221#129'Z[['#175#167#171#150#146#149'_'
+  +']`#)C'#17#30'^'#5#23#142#0#4'I'#0#0#10#0#0#3#134#130#132'333'#255#0#255#255
+  +#0#255#255#0#255#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201']'#255
+  +#216'v'#255#217'x'#254#230#144#254#234#152'Z[[Z[[Z[['#134#131#130#158#153#151
+  +'{'#152'TWg$&-'#7#7#10'hcf333'#255#0#255#255#0#255#255#0#255#255#0#255'989'
+  +#184#183#184'opp'#255#196'U'#255#205'e'#255#216'v'#255#221#129#254#234#152
+  +#254#242#166#254#243#169#254#234#152#254#226#136'Z[[Z[[Z[[vus'#202#201#201
+  +#171#171#173'hcf333'#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181
+  +'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226#136#254#234#150#254#242#166
+  +#254#243#169#254#234#152#254#226#136#255#216'v'#255#208'j'#255#196'UZ[[Z[[Z['
+  +'[555'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'nm'
+  +'nnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203#181'y'#197#167
+  +'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'A<<------'#212#209#213#196#196#197#173#172#173
+  +#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%%'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160
+  ,#144#141#145#139#131#137#132'yzZST*%%'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#30#30#30'111------------989422111'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROBROADCASTSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@HJKHJKHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#7#7#187#6#11
+  +#197#7#7#187#7#7#187#7#7#187#255#0#255#255#0#255#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@{{{'#7#7#187#5#8#184#3'$'#250#3'$'#250#2' '
+  +#250#1#28#246#1#27#243#7#7#187#7#7#187#255#0#255'@'#0#192#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'@'#0#192'@@@'#4#5#171#147#147#147'III'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0#30#255#0#28#247#7#7#187'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'{{{{{{'#147#147#147#6#9#194#6#10#196#6#9#192#7#7#187#7#7
+  +#187#255#0#255#255#0#255#255#0#255#7#7#187'HJK'#196#189#194#192#186#192#189
+  +#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{{{{{{{{{{{{{'#8#5#182'III'#255
+  +#0#255#255#0#255#1''''#255#7#7#187#7#7#187#255#0#255#255#0#255#7#7#187'HJK'
+  +#198#193#198#194#189#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{3'
+  +'33333333{{{'#147#147#147#6#10#196#6#10#196#6#10#196#255#0#255#255#0#255#7#7
+  +#187#255#0#255#7#7#187#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#227#226#230'HJK{{{333mjktpsIII "f'#6#10#196#6#10#196#255#0#255
+  +#6#10#196#255#0#255#6#10#196#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#206
+  +#202#206#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'HJKZ[['#222#221
+  +#221'TSTffjOQ`jobhn=Em(1]'#6#10#196#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'HJK'#212#208#212#207#202#207#203#197#202#198#192#198'HJ'
+  +'K'#235#234#237'HJKZ[['#250#247#247'88;'#12#14#21#31'%?-9zAO'#167']h'#156'gl'
+  +#130'TVj7J'#143'333'#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#217#213#216
+  +#212#208#212#207#202#207#203#197#202'HJK'#237#237#239'HJKZ[['#230#225#229'./'
+  +'3'#0#0#4#1#6'+'#7#23#154#12' '#207#20'#'#145'18\HKY'#201#198#189'333'#255#0
+  +#255#255#0#255#255#0#255#255#0#255'HJK'#222#218#221#217#213#217#233#231#234
+  +#207#202#207'HJK'#238#237#240'HJKZ[['#215#207#211'+,0'#0#0#3#0#3'&'#7#31#166
+  +#14'/'#250#3#15#147#4#9'&'#17#19#28#172#172#175'333'#255#0#255#255#0#255#255
+  +#0#255#255#0#255'HJK'#227#224#227#238#237#238#156#154#156#211#207#211'HJK'
+  +#237#237#239'HJKZ[['#175#167#171#150#146#149'_]`#)C'#17#30'^'#5#23#142#0#4'I'
+  +#0#0#10#0#0#3#134#130#132'333'#255#0#255#255#0#255#255#0#255#255#0#255'HJK'
+  +#231#230#231#144#144#146#158#157#158#216#212#216'HJK'#206#207#208#207#207#207
+  +#134#135#135'Z[[Z[[Z[['#134#131#130#158#153#151'{'#152'TWg$&-'#7#7#10'hcf33'
+  +'3'#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#237#235#237#146#146#147#227
+  +#224#226#255#255#255#176#176#178'QRSUVWuvw'#169#170#170#211#211#212#189#189
+  +#191'Z[[Z[[Z[[vus'#202#201#201#171#171#173'hcf333'#255#0#255#255#0#255#255#0
+  +#255#255#0#255'HJK'#240#240#242#237#235#237#255#255#255#233#233#235#226#225
+  +#229#220#217#221#191#187#191#151#149#152'onrXYZNPQhij'#147#149#150#208#209
+  +#209'Z[[Z[[Z[[555'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#246
+  +#246#246#255#255#255#238#238#240#242#242#244#238#237#239#229#227#231#217#215
+  +#218#203#199#204#189#183#189#173#167#173#153#145#151#153#145#151'zsuHJK'#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'HJK'#255#255#255#237#237#239#248#248#250#251#251#252#246#244#247
+  +#234#234#237#221#220#224#207#204#208#192#187#193#176#170#176#160#152#158'HJK'
+  +'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJK'#233#233#234#252#252#252#246
+  +#246#247#235#234#238#222#220#224#208#204#208#193#187#193'HJKHJK'#255#0#255
+  ,#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJ'
+  +'KHJKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TRODISCOVERYCLIENT','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#30#30#30#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#132'yzFFF'#30#30#30#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@'#132'yz'#132'yz'#30#30#30#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0
+  +#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#132'yzZST---'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@FFF---'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0
+  +#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'@'#0#192#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'@'#0#192'@@@'#30#30
+  +#30#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192#144#133#136'tlnFF'
+  +'F'#30#30#30#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'422'#168#162#167'}st'#254#150#18#254#145#12#254#150#18#254#150
+  +#18#254#150#18#254#150#18#254#150#18#254#171'9'#2'U'#142#11'['#137#11'f'#152
+  +#2'U'#142#136'}~111'#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255':77'#165#164#165'opp'#254#150#18#254#150#18#254#150#18#254#150
+  +#18#254#162'!'#254#162'!'#254#162'!'#8'n'#169#25't'#156#5#5#5#2#2#2#13'4F'#5
+  +'d'#157#147'~m422'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'422'#178#176#178'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'#255
+  +#172'0'#2'U'#142#21#151#213'#'#189#254'<z'#136#238#180'zfO:'#0#0#0#22'G_'#159
+  +'l*422'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#182
+  +#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#3'['#147#9's'#175
+  +'#'#189#254'#'#189#254'<z'#136#255#191#129#255#191#129'4)'#31#10#13#15#23'j'
+  +#157#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'98'
+  +'9'#182#176#181'xux'#255#172'0'#255#172'0'#0'K'#130#14#129#189'#'#189#254#14
+  +#129#189'$'#189#254'0'#193#254':'#142#173#238#180'z'#255#191#129#152'tR'#2#2
+  +#2'A~'#160'---'#255#0#255#0'8l'#24'l'#159#0'K'#130#255#0#255#255#0#255'989'
+  +#188#185#189'opp'#255#176'6'#5'd'#157#26#166#229'#'#189#254'&'#191#254#19'}'
+  +#182'X'#206#255'z'#216#255#153#224#255#151#132'l'#255#191#129#191#145'g'#2#2
+  +#2'7u'#152#0'K'#130','#129#177'J'#135#164#11#13#15#13#31')'#5'W'#139#255#0
+  +#255'A<<'#184#183#184'opp'#9's'#175'#'#189#254'*'#192#254'A'#199#254'd'#208
+  +#255'+'#132#182#150#217#247#194#237#255#220#244#255#225#234#239#144'liO7'#29
+  +'4@ v'#167'h'#197#238'`'#208#255'Ct'#129#134'gI'#1#1#1#7#25'$'#0'K'#130'989'
+  +#2'U'#142#9'l'#166'1'#194#254'M'#202#254'o'#212#255#144#221#255#175#231#255
+  +#171#216#238'>'#134#175#242#251#255#235#248#255#211#242#255#169#222#247'C'
+  +#146#191#5'~'#178'='#177#230'7'#196#254''''#191#254'<z'#136#255#191#129'R@.'
+  +#1#1#1#4'Ai'#5']'#150#31#147#206'5'#154#206'z'#216#255#154#225#255#184#234
+  +#255#212#242#255#234#248#255#242#251#255#27#134#180#25#132#180'K'#165#204'-'
+  +#132#180#4'o'#164#0'X'#143#1#152#203#28#166#229'#'#189#254'#'#189#254#28#132
+  +#172#238#180'z'#191#145'g'#0#0#0#13'X'#130#0'K'#130'{'#209#247'#v'#167#194
+  +#237#255#221#244#255#239#250#255#239#250#255#220#244#255#191#235#255'w'#194
+  +#230#13#132#184#1#137#189#1'y'#175#1#152#203#0'k'#161#1#147#198#19#165#225'#'
+  +#189#254'#'#189#254'#'#189#254'mzl'#191#145'g'#0#0#0#11'R{'#0'K'#130#203#239
+  +#255'j'#165#198'`'#157#191#235#248#255#209#240#255#180#231#255#149#222#255'u'
+  +#213#255'U'#204#255'6'#196#254#14#139#199#1'Z'#146#1''#180#0'b'#152#1#142
+  +#193#3#136#191'#'#189#254'#'#189#254'#'#189#254'#'#178#238';fl'#2' 1'#2'U'
+  +#142#0'K'#130'r'#169#198#194#224#238#23'g'#152#19'e'#152'I'#161#206'F'#166
+  +#213'I'#201#254'/'#193#254'$'#189#254'#'#189#254'#'#189#254#31#182#246#14#134
+  ,#194#2'w'#173#1#137#189#1#142#193#10#145#202#31#182#246#15#150#212#6'y'#181#0
+  +'['#149#0'8l'#255#0#255'A<<'#0'K'#130#0'K'#130#212#209#213#196#196#197#4'V'
+  +#142#21#138#197#19#144#206#19#144#206#31#182#246'#'#189#254'#'#189#254'#'#189
+  +#254'#'#189#254#31#182#246#19#144#206#0'Q'#135#0'['#143#0'8l'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#30#30#30'42'
+  +'2788FFF'#4'b'#154#21#151#213#9's'#175#14#129#189#10#136#196#6'y'#181#1'e'
+  +#158#0'Q'#136#0'8lZST*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0'Y'#145#1'`'#153#0'J'#128'---------989422111'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TRODISCOVERYSERVER','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@HJKHJKHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255#255
+  +#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +#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'@'#0#192'@@@{{{'#147#147#147'II'
+  +'I'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'{{{{{{'#147#147#147'III'#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'
+  +#196#189#194#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{{'
+  +'{{'#2'U'#142#11'['#137#11'f'#152#2'U'#142'III'#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#198#193#198#194#189
+  +#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{'#8'n'#169#25't'#156#5
+  +#5#5#2#2#2#13'4F'#5'd'#157#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#227#226#230'HJK'#2'U'#142#21#151#213'#'#189#254'<z'#136#238#180
+  +'zfO:'#0#0#0#22'G_'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'HJK'#206#202#206#202#197#202#198#193#198#196#188#196
+  +'HJK'#231#230#234#3'['#147#9's'#175'#'#189#254'#'#189#254'<z'#136#255#191#129
+  +#255#191#129'4)'#31#10#13#15#23'j'#157#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'HJK'#212#208#212#207#202#207#203#197#202
+  +#198#192#198#0'K'#130#14#129#189'#'#189#254#14#129#189'$'#189#254'0'#193#254
+  +':'#142#173#238#180'z'#255#191#129#152'tR'#2#2#2'A~'#160#255#0#255#255#0#255
+  +#0'8l'#24'l'#159#0'K'#130#255#0#255#255#0#255'HJK'#217#213#216#212#208#212
+  +#207#202#207#5'd'#157#26#166#229'#'#189#254'&'#191#254#19'}'#182'X'#206#255
+  +'z'#216#255#153#224#255#151#132'l'#255#191#129#191#145'g'#2#2#2'7u'#152#0'K'
+  +#130','#129#177'J'#135#164#11#13#15#13#31')'#5'W'#139#255#0#255'HJK'#222#218
+  +#221#217#213#217#9's'#175'#'#189#254'*'#192#254'A'#199#254'd'#208#255'+'#132
+  +#182#150#217#247#194#237#255#220#244#255#225#234#239#144'liO7'#29'4@ v'#167
+  +'h'#197#238'`'#208#255'Ct'#129#134'gI'#1#1#1#7#25'$'#0'K'#130'HJK'#2'U'#142#9
+  +'l'#166'1'#194#254'M'#202#254'o'#212#255#144#221#255#175#231#255#171#216#238
+  +'>'#134#175#242#251#255#235#248#255#211#242#255#169#222#247'C'#146#191#5'~'
+  +#178'='#177#230'7'#196#254''''#191#254'<z'#136#255#191#129'R@.'#1#1#1#4'Ai'#5
+  +']'#150#31#147#206'5'#154#206'z'#216#255#154#225#255#184#234#255#212#242#255
+  +#234#248#255#242#251#255#27#134#180#25#132#180'K'#165#204'-'#132#180#4'o'#164
+  +#0'X'#143#1#152#203#28#166#229'#'#189#254'#'#189#254#28#132#172#238#180'z'
+  +#191#145'g'#0#0#0#13'X'#130#0'K'#130'{'#209#247'#v'#167#194#237#255#221#244
+  +#255#239#250#255#239#250#255#220#244#255#191#235#255'w'#194#230#13#132#184#1
+  +#137#189#1'y'#175#1#152#203#0'k'#161#1#147#198#19#165#225'#'#189#254'#'#189
+  +#254'#'#189#254'mzl'#191#145'g'#0#0#0#11'R{'#0'K'#130#203#239#255'j'#165#198
+  +'`'#157#191#235#248#255#209#240#255#180#231#255#149#222#255'u'#213#255'U'#204
+  +#255'6'#196#254#14#139#199#1'Z'#146#1''#180#0'b'#152#1#142#193#3#136#191'#'
+  +#189#254'#'#189#254'#'#189#254'#'#178#238';fl'#2' 1'#2'U'#142#0'K'#130'r'#169
+  +#198#194#224#238#23'g'#152#19'e'#152'I'#161#206'F'#166#213'I'#201#254'/'#193
+  +#254'$'#189#254'#'#189#254'#'#189#254#31#182#246#14#134#194#2'w'#173#1#137
+  ,#189#1#142#193#10#145#202#31#182#246#15#150#212#6'y'#181#0'['#149#0'8l'#255#0
+  +#255'HJK'#0'K'#130#0'K'#130#248#248#250#251#251#252#4'V'#142#21#138#197#19
+  +#144#206#19#144#206#31#182#246'#'#189#254'#'#189#254'#'#189#254'#'#189#254#31
+  +#182#246#19#144#206#0'Q'#135#0'['#143#0'8l'#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'HJKHJK'#233#233#234#252#252#252#246#246#247#235
+  +#234#238#4'b'#154#21#151#213#9's'#175#14#129#189#10#136#196#6'y'#181#1'e'#158
+  +#0'Q'#136#0'8l'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJK'#0'Y'#145
+  +#1'`'#153#0'J'#128#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+]);
+LazarusResources.Add('TROSUPERTCPCHANNEL','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@@@'#30#30#30#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0
+  +#255#0#0#0#255#0#255#0#0#0'@'#0#192#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'@'#0#192'@@@'#132'yzFFF'#30#30#30#255#0#255#255#0#255#255#0#255#0#0#0
+  +#255#0#255#0#0#0#255#0#255#0#0#0'@'#0#192#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#132'yz'#132'yz'#30#30#30#255#0#255#255#0#255#255#0#255#0#0#0#255#0
+  +#255#255#0#255#0#0#0#0#0#0'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +'@@@'#132'yzZST---'#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255
+  +#255#0#255#0#0#0'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@FFF--'
+  +'-'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#30#30#30#30#30#30#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192#144#133#136'tlnFFF'#30#30#30#30#30#30#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'422'#168#162#167'}st'#254#150#18#254
+  +#145#12#254#150#18#254#150#18#254#150#18#254#150#18#254#150#18#254#171'9'#234
+  +#181'h'#215#186#147#182#176#181#156#146#147#136'}~111'#30#30#30#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255':77'#165#164#165'opp'#254#150
+  +#18#254#150#18#254#150#18#254#150#18#254#162'!'#254#162'!'#254#162'!'#254#162
+  +'!'#254#153#22#254#153#22#254#150#18#227#153'5'#201#150'U'#147'~m422'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'422'#178#176#178'xux'
+  +#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'#255#172'0'#255#176'6'
+  +#255#172'0'#255#172'0'#254#162'!'#254#162'!'#254#150#18#254#150#18#0#0''#3
+  +#24#221#1#9#172#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#182
+  +#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255#186'D'#255#186
+  +'D'#255#186'D'#255#186'D'#255#180'<'#255#172'0'#255#172'0'#4#3''#254#150#18
+  +#0#0''#20'7'#255#4#17#188#255#0#255#28#26#144#28#26#144#255#0#255#255#0#255
+  +'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255#196'U'
+  +#255#196'U'#255#199'\'#255#196'U'#255#192'M'#255#186'D'#4#8#150'$<'#221#7#8
+  +#140#0#0''#28'?'#255#6#19#188#6#6#132#3#20#204#1#10#172#28#26#144#255#0#255
+  +'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199'\'#255#205'e'
+  +#255#208'j'#255#205'e'#255#205'e'#255#199'\'#255#196'U'#5#9#150'Wr'#247'8P'
+  +#230#0#1#135'(J'#255#8#22#188#9#27#204#19'6'#255#3#20#204#28#25#143#255#0#255
+  +'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'#255#208'j'#255#215't'
+  +#255#216'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'#255#196'U'#5#9#150'Z'
+  +'u'#247'<V'#238'9Z'#255'#D'#247',N'#255#9#27#204#6#6#132#255#0#255#255#0#255
+  +'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'#255#216'v'#255#221
+  +#129#254#226#136#254#226#136#255#221#129#255#217'x'#4#3''#4#3'%1'#188'.D'
+  +#221'n'#137#255'd'#128#255'Qp'#255'''F'#247#10#24#188#6#20#188#3#16#188#0#0
+  +'A<<'#182#176#181'vtv'#255#196'U'#255#201']'#255#216'v'#255#217'x'#254#230
+  +#144#254#234#152#254#234#152#254#230#144#255#221#129#4#3''#151#171#255#137
+  +#159#255'z'#147#255#130#153#255'x'#145#255'g'#130#255'@`'#255'1S'#255'#F'#255
+  +#17'4'#255#0#0'989'#184#183#184'opp'#255#196'U'#255#205'e'#255#216'v'#255
+  +#221#129#254#234#152#254#242#166#254#243#169#254#234#152#254#226#136#0#0''#0
+  +#0''#0#0'EU'#213#157#176#255#132#156#255'u'#143#255'D^'#238#1#1#135#0#0''
+  +#0#0''#28#24#140'A<<'#182#176#181'vtv'#201#161'W'#189#154'Q'#238#201'n'#254
+  +#226#136#254#234#150#254#242#166#254#243#169#254#234#152#254#226#136#255#216
+  +'v'#255#208'jP['#204#192#204#255'BP'#204#129#153#255'3E'#213'f'#247'D['#230
+  +#8#9#139#255#0#255#255#0#255'989'#184#183#184'nmnnmnoppoppa]]'#135#130'u'#130
+  +'~m'#167#160#129#163#152'r'#203#181'y'#197#167'b'#4#3''#220#227#255'R\'#204
+  +#0#0''#146#167#255'+5'#188#7#11#150'i'#129#247'5K'#221#6#6#131#255#0#255'A<'
+  ,'<------'#212#209#213#196#196#197#173#172#173#160#160#163#141#137#140#141#137
+  +#140'xux}}~oppxux'#4#3',1'#172#28#24#139#0#0''#163#181#255'1;'#188#28#24
+  +#139#8#12#150#7#11#150#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#30
+  +#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160#144#141#145
+  +#139#131#137#132'yz'#0#0''#178#194#255'7A'#188#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#30#30#30'111------------989422'#6#5#131#16#21#157#6
+  +#8#142#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROSUPERTCPSERVER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0
+  +#255#0#0#0#255#0#255#0#0#0'@'#0#192#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'@'#0#192'@@@HJKHJKHJK'#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0
+  +#0#255#0#255#0#0#0'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@{{{'
+  +#147#147#147'III'#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#0#0
+  +#0#0#0#0'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147
+  +#147'III'#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#0
+  +#0#0'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@{{{'#147#147#147'I'
+  +'II'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@{{{'#147#147
+  +#147'III'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@{{{'#147#147#147'III'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'{{{{{{'#147
+  +#147#147'III'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'HJK'#196#189#194#192#186#192#189#183#189#189#183#189'HJK'
+  +#217#215#218'HJK{{{{{{{{{{{{{{{{{{'#147#147#147'III'#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#198#193#198#194
+  +#189#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{{{{{{{{{{{{{'#147
+  +#147#147'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192#186#192'HJK'
+  +#227#226#230'HJK{{{{{{{{{{{{{{{{{{'#147#147#147'HJK'#0#0''#3#24#221#1#9#172
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#206#202#206#202#197
+  +#202#198#193#198#196#188#196'HJK'#231#230#234'HJK{{{{{{{{{{{{{{{{{{'#4#3'HJ'
+  +'K'#0#0''#20'7'#255#4#17#188#255#0#255#28#26#144#28#26#144#255#0#255#255#0
+  +#255'HJK'#212#208#212#207#202#207#203#197#202#198#192#198'HJK'#235#234#237'H'
+  +'JK'#134#134#134#134#134#134#134#134#134#146#146#146'{{{'#4#8#150'$<'#221#7#8
+  +#140#0#0''#28'?'#255#6#19#188#6#6#132#3#20#204#1#10#172#28#26#144#255#0#255
+  +'HJK'#217#213#216#212#208#212#207#202#207#203#197#202'HJK'#237#237#239'HJK{{'
+  +'{{{{{{{ooo'#134#134#134#5#9#150'Wr'#247'8P'#230#0#1#135'(J'#255#8#22#188#9
+  +#27#204#19'6'#255#3#20#204#28#25#143#255#0#255'HJK'#222#218#221#217#213#217
+  +#233#231#234#207#202#207'HJK'#238#237#240'HJK'#140#140#140#140#140#140#146
+  +#146#146'{{{{{{{{{'#5#9#150'Zu'#247'<V'#238'9Z'#255'#D'#247',N'#255#9#27#204
+  +#6#6#132#255#0#255#255#0#255'HJK'#227#224#227#238#237#238#156#154#156#211#207
+  +#211'HJK'#237#237#239'HJKTVWcddnnn'#140#140#140#4#3''#4#3'%1'#188'.D'#221
+  +'n'#137#255'd'#128#255'Qp'#255'''F'#247#10#24#188#6#20#188#3#16#188#0#0'HJK'
+  +#231#230#231#144#144#146#158#157#158#216#212#216'HJK'#206#207#208#207#207#207
+  +#134#135#135'ceeNPQMOP'#4#3''#151#171#255#137#159#255'z'#147#255#130#153#255
+  +'x'#145#255'g'#130#255'@`'#255'1S'#255'#F'#255#17'4'#255#0#0'HJK'#237#235
+  +#237#146#146#147#227#224#226#255#255#255#176#176#178'QRSUVWuvw'#169#170#170
+  +#211#211#212#189#189#191#0#0''#0#0''#0#0'EU'#213#157#176#255#132#156#255
+  +'u'#143#255'D^'#238#1#1#135#0#0''#0#0''#28#24#140'HJK'#240#240#242#237#235
+  +#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191#151#149#152
+  +'onrXYZNPQhij'#147#149#150'P['#204#192#204#255'BP'#204#129#153#255'3E'#213'f'
+  +''#247'D['#230#8#9#139#255#0#255#255#0#255'HJK'#246#246#246#255#255#255#238
+  +#238#240#242#242#244#238#237#239#229#227#231#217#215#218#203#199#204#189#183
+  +#189#173#167#173#153#145#151#153#145#151#4#3''#220#227#255'R\'#204#0#0''
+  +#146#167#255'+5'#188#7#11#150'i'#129#247'5K'#221#6#6#131#255#0#255'HJK'#255
+  +#255#255#237#237#239#248#248#250#251#251#252#246#244#247#234#234#237#221#220
+  +#224#207#204#208#192#187#193#176#170#176#160#152#158'HJK'#4#3',1'#172#28#24
+  +#139#0#0''#163#181#255'1;'#188#28#24#139#8#12#150#7#11#150#255#0#255#255#0
+  +#255#255#0#255'HJKHJK'#233#233#234#252#252#252#246#246#247#235#234#238#222
+  ,#220#224#208#204#208#193#187#193'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0''#178#194#255'7A'#188#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#6#5#131#16#21#157#6#8#142#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROINDYSUPERHTTPCHANNEL','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#0#0''#3#24#221#1#9#172#255#138#25
+  +#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#4#3''#215#201#134#0#0''#20'7'#255#4
+  +#17#188#240#147'&'#28#26#144#28#26#144'tb'#3'lB'#22'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'~'#204'k'#4#8#150'$<'#221#7#8#140#0#0''#28'?'#255#6#19#188#6#6#132
+  +#3#20#204#1#10#172#28#26#144'#c'#5'422'#168#162#167'}st'#254#150#18#254#145
+  +#12#254#150#18#254#150#18#254#150#18#254#150#18#254#150#18#169'~H'#192#191'j'
+  +'u'#218'{'#5#9#150'Wr'#247'8P'#230#0#1#135'(J'#255#8#22#188#9#27#204#19'6'
+  +#255#3#20#204#28#25#143#2'}'#0':77'#165#164#165'opp'#254#150#18#254#150#18
+  +#254#150#18#254#150#18#254#162'!'#254#162'!'#254#162'!'#254#162'!\'#191'Ux'
+  +#219'|'#165#241#165#5#9#150'Zu'#247'<V'#238'9Z'#255'#D'#247',N'#255#9#27#204
+  +#6#6#132#2#129#0#255#0#255'422'#178#176#178'xux'#254#150#18#254#158#28#254
+  +#162'!'#255#172'0'#255#172'0'#255#172'0'#255#176'6'#255#172'0BqC'#4#3''#4#3
+  +'%1'#188'.D'#221'n'#137#255'd'#128#255'Qp'#255'''F'#247#10#24#188#6#20#188#3
+  +#16#188#0#0'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180
+  +'<'#255#186'D'#255#186'D'#255#186'D'#255#186'D'#255#180'<'#4#3''#151#171#255
+  +#137#159#255'z'#147#255#130#153#255'x'#145#255'g'#130#255'@`'#255'1S'#255'#F'
+  +#255#17'4'#255#0#0'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'
+  +#255#191'M'#255#196'U'#255#196'U'#255#199'\'#255#196'U'#255#192'M'#0#0''#0#0
+  +''#0#0'EU'#213#157#176#255#132#156#255'u'#143#255'D^'#238#1#1#135#0#0''#0
+  +#0''#28#24#140'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255
+  +#199'\'#255#205'e'#255#208'j'#255#205'e'#255#205'e'#255#199'\'#255#196'U'#255
+  +#186'DP['#204#192#204#255'BP'#204#129#153#255'3E'#213'f'#247'D['#230#8#9#139
+  +#255#0#255#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'
+  +#255#208'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'
+  +#4#3''#220#227#255'R\'#204#0#0''#146#167#255'+5'#188#7#11#150'i'#129#247'5'
+  +'K'#221#6#6#131#255#0#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208
+  +'j'#255#216'v'#255#221#129#254#226#136#254#226#136#255#221#129#255#217'x'#255
+  +#208'j'#4#3',1'#172#28#24#139#0#0''#163#181#255'1;'#188#28#24#139#8#12#150
+  +#7#11#150#255#0#255#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201']'#255
+  +#216'v'#255#217'x'#254#230#144#254#234#152#254#234#152#254#230#144#255#221
+  +#129#255#216'v'#255#205'e'#255#196'U'#255#186'D'#0#0''#178#194#255'7A'#188
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'opp'#255
+  +#196'U'#255#205'e'#255#216'v'#255#221#129#254#234#152#254#242#166#254#243#169
+  +#254#234#152#254#226#136#255#216'v'#255#205'e'#255#196'U'#255#186'D'#6#5#131
+  +#16#21#157#6#8#142#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182
+  +#176#181'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226#136#254#234#150#254
+  +#242#166#254#243#169#254#234#152#254#226#136#255#216'v'#255#208'j'#255#196'U'
+  +#255#186'D'#137'tW*%%'#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0'989'
+  +#184#183#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203
+  +#181'y'#197#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255#0#0
+  +#0#255#0#255#0#0#0#255#0#255#0#0#0'A<<------'#212#209#213#196#196#197#173#172
+  ,#173#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%%'
+  +#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255'HJKHJK'#30#30#30
+  +'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160#144#141#145#139#131
+  +#137#132'yzZST*%%'#255#0#255#0#0#0#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255
+  +#255#0#255#255#0#255'HJKHJKHJKHJKHJK'#30#30#30'111------------989422111'#255
+  +#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255#0#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Glyphs.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Glyphs.res
new file mode 100644
index 0000000..759fd3e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Mac.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Mac.lpk
new file mode 100644
index 0000000..edc9578
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Mac.lpk	
@@ -0,0 +1,143 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="RemObjects_Indy_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="CodeGen/;ZLib/FPC/"/>
+        <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - Indy Library
+"/>
+    <Files Count="23">
+      <Item1>
+        <Filename Value="RemObjects_Indy_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Indy_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uROAsyncResponseStorage.pas"/>
+        <UnitName Value="uROAsyncResponseStorage"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uROBroadcastChannel.pas"/>
+        <UnitName Value="uROBroadcastChannel"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uROBroadcastServer.pas"/>
+        <UnitName Value="uROBroadcastServer"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uRODiscovery.pas"/>
+        <UnitName Value="uRODiscovery"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uRODiscovery_Async.pas"/>
+        <UnitName Value="uRODiscovery_Async"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uRODiscovery_Intf.pas"/>
+        <UnitName Value="uRODiscovery_Intf"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uRODiscovery_Invk.pas"/>
+        <UnitName Value="uRODiscovery_Invk"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uRODiscoveryService_Impl.pas"/>
+        <UnitName Value="uRODiscoveryService_Impl"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROIndyEmail.pas"/>
+        <UnitName Value="uROIndyEmail"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROIndyEmailChannel.pas"/>
+        <UnitName Value="uROIndyEmailChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROIndyEmailServer.pas"/>
+        <UnitName Value="uROIndyEmailServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROIndyHTTPChannel.pas"/>
+        <UnitName Value="uROIndyHTTPChannel"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROIndyHTTPServer.pas"/>
+        <UnitName Value="uROIndyHTTPServer"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROIndyTCPChannel.pas"/>
+        <UnitName Value="uROIndyTCPChannel"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROIndyTCPServer.pas"/>
+        <UnitName Value="uROIndyTCPServer"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROIndyUDPChannel.pas"/>
+        <UnitName Value="uROIndyUDPChannel"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROIndyUDPServer.pas"/>
+        <UnitName Value="uROIndyUDPServer"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROSCHelpers.pas"/>
+        <UnitName Value="uROSCHelpers"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROStreamUtils.pas"/>
+        <UnitName Value="uROStreamUtils"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uROSuperTCPChannel.pas"/>
+        <UnitName Value="uROSuperTCPChannel"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROSuperTCPServer.pas"/>
+        <UnitName Value="uROSuperTCPServer"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uROIndySuperHttpChannel.pas"/>
+        <UnitName Value="uROIndySuperHttpChannel"/>
+      </Item23>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="6">
+      <Item1>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="IDEIntf"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="RemObjects_Core_Lazarus_Mac"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="indysystemlaz"/>
+        <MinVersion Major="10" Minor="2"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="indycorelaz"/>
+      </Item5>
+      <Item6>
+        <PackageName Value="indyprotocolslaz"/>
+      </Item6>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)/"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Unix.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Unix.lpk
new file mode 100644
index 0000000..26faff7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Unix.lpk	
@@ -0,0 +1,154 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Indy_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="CodeGen\;ZLib\FPC\"/>
+        <UnitOutputDirectory Value="units\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <D2Extensions Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - Indy Library
+"/>
+    <Files Count="23">
+      <Item1>
+        <Filename Value="RemObjects_Indy_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Indy_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uROAsyncResponseStorage.pas"/>
+        <UnitName Value="uROAsyncResponseStorage"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uROBroadcastChannel.pas"/>
+        <UnitName Value="uROBroadcastChannel"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uROBroadcastServer.pas"/>
+        <UnitName Value="uROBroadcastServer"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uRODiscovery.pas"/>
+        <UnitName Value="uRODiscovery"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uRODiscovery_Async.pas"/>
+        <UnitName Value="uRODiscovery_Async"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uRODiscovery_Intf.pas"/>
+        <UnitName Value="uRODiscovery_Intf"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uRODiscovery_Invk.pas"/>
+        <UnitName Value="uRODiscovery_Invk"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uRODiscoveryService_Impl.pas"/>
+        <UnitName Value="uRODiscoveryService_Impl"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROIndyEmail.pas"/>
+        <UnitName Value="uROIndyEmail"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROIndyEmailChannel.pas"/>
+        <UnitName Value="uROIndyEmailChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROIndyEmailServer.pas"/>
+        <UnitName Value="uROIndyEmailServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROIndyHTTPChannel.pas"/>
+        <UnitName Value="uROIndyHTTPChannel"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROIndyHTTPServer.pas"/>
+        <UnitName Value="uROIndyHTTPServer"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROIndyTCPChannel.pas"/>
+        <UnitName Value="uROIndyTCPChannel"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROIndyTCPServer.pas"/>
+        <UnitName Value="uROIndyTCPServer"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROIndyUDPChannel.pas"/>
+        <UnitName Value="uROIndyUDPChannel"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROIndyUDPServer.pas"/>
+        <UnitName Value="uROIndyUDPServer"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROSCHelpers.pas"/>
+        <UnitName Value="uROSCHelpers"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROStreamUtils.pas"/>
+        <UnitName Value="uROStreamUtils"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uROSuperTCPChannel.pas"/>
+        <UnitName Value="uROSuperTCPChannel"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROSuperTCPServer.pas"/>
+        <UnitName Value="uROSuperTCPServer"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uROIndySuperHttpChannel.pas"/>
+        <UnitName Value="uROIndySuperHttpChannel"/>
+      </Item23>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="6">
+      <Item1>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="IDEIntf"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="RemObjects_Core_Lazarus_Unix"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="indysystemlaz"/>
+        <MinVersion Major="10" Minor="2"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="indycorelaz"/>
+      </Item5>
+      <Item6>
+        <PackageName Value="indyprotocolslaz"/>
+      </Item6>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)\"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Windows.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Windows.lpk
new file mode 100644
index 0000000..fbcc167
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Lazarus_Windows.lpk	
@@ -0,0 +1,147 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Indy_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <CStyleOperator Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="23">
+      <Item1>
+        <Filename Value="RemObjects_Indy_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Indy_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uROAsyncResponseStorage.pas"/>
+        <UnitName Value="uROAsyncResponseStorage"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uROBroadcastChannel.pas"/>
+        <UnitName Value="uROBroadcastChannel"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uROBroadcastServer.pas"/>
+        <UnitName Value="uROBroadcastServer"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uRODiscovery.pas"/>
+        <UnitName Value="uRODiscovery"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uRODiscovery_Async.pas"/>
+        <UnitName Value="uRODiscovery_Async"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uRODiscovery_Intf.pas"/>
+        <UnitName Value="uRODiscovery_Intf"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uRODiscovery_Invk.pas"/>
+        <UnitName Value="uRODiscovery_Invk"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uRODiscoveryService_Impl.pas"/>
+        <UnitName Value="uRODiscoveryService_Impl"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROIndyEmail.pas"/>
+        <UnitName Value="uROIndyEmail"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROIndyEmailChannel.pas"/>
+        <UnitName Value="uROIndyEmailChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROIndyEmailServer.pas"/>
+        <UnitName Value="uROIndyEmailServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROIndyHTTPChannel.pas"/>
+        <UnitName Value="uROIndyHTTPChannel"/>
+      </Item13>
+      <Item14>
+        <Filename Value="uROIndyHTTPServer.pas"/>
+        <UnitName Value="uROIndyHTTPServer"/>
+      </Item14>
+      <Item15>
+        <Filename Value="uROIndyTCPChannel.pas"/>
+        <UnitName Value="uROIndyTCPChannel"/>
+      </Item15>
+      <Item16>
+        <Filename Value="uROIndyTCPServer.pas"/>
+        <UnitName Value="uROIndyTCPServer"/>
+      </Item16>
+      <Item17>
+        <Filename Value="uROIndyUDPChannel.pas"/>
+        <UnitName Value="uROIndyUDPChannel"/>
+      </Item17>
+      <Item18>
+        <Filename Value="uROIndyUDPServer.pas"/>
+        <UnitName Value="uROIndyUDPServer"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROSCHelpers.pas"/>
+        <UnitName Value="uROSCHelpers"/>
+      </Item19>
+      <Item20>
+        <Filename Value="uROStreamUtils.pas"/>
+        <UnitName Value="uROStreamUtils"/>
+      </Item20>
+      <Item21>
+        <Filename Value="uROSuperTCPChannel.pas"/>
+        <UnitName Value="uROSuperTCPChannel"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROSuperTCPServer.pas"/>
+        <UnitName Value="uROSuperTCPServer"/>
+      </Item22>
+      <Item23>
+        <Filename Value="uROIndySuperHttpChannel.pas"/>
+        <UnitName Value="uROIndySuperHttpChannel"/>
+      </Item23>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="6">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="IDEIntf"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="indysystemlaz"/>
+        <MinVersion Major="10" Minor="2"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="indycorelaz"/>
+      </Item5>
+      <Item6>
+        <PackageName Value="indyprotocolslaz"/>
+      </Item6>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)\"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Reg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Reg.pas
new file mode 100644
index 0000000..416bbf4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_Reg.pas	
@@ -0,0 +1,65 @@
+unit RemObjects_Indy_Reg;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses 
+     {$IFDEF FPC}LResources,{$ENDIF}
+     Classes,
+     {$IFDEF BDS}DesignIntf,{$ENDIF}
+     uRORes,
+     uROSuperTCPChannel, uROSuperTCPServer,
+     uROIndyTCPChannel, uROIndyHTTPChannel, uROIndyUDPChannel,
+     uROIndyHTTPServer, uROIndyTCPServer, uROIndyUDPServer,
+     uROBroadcastChannel, uROBroadcastServer,
+     uROIndyEmailChannel, uROIndyEmailServer,
+     uRODiscovery, uROIndySuperHttpChannel;
+
+{$IFNDEF FPC}
+  {$R RemObjects_Indy_Glyphs.res}
+{$ENDIF}   
+     
+procedure Register;
+begin
+  {$IFDEF BDS}
+  {$IFNDEF RemObjects_NO_DEMANDLOAD_FIX}
+  ForceDemandLoadState(dlDisable);
+  {$ENDIF}
+  {$ENDIF}
+  RegisterComponents(str_ProductName,
+                     [TROIndyHTTPServer, TROIndyHTTPChannel,
+                      TROIndyTCPServer, TROIndyTCPChannel,
+                      TROSuperTCPServer, TROSuperTCPChannel,
+                      TROIndyUDPServer, TROIndyUDPChannel,
+                      {$IFDEF MSWINDOWS}
+                      TROBroadcastChannel, TROBroadcastServer,
+                      TRODiscoveryClient, TRODiscoveryServer,
+                      {$ENDIF MSWINDOWS}
+                      TROEmailChannel, TROEmailServer,
+					  TROIndySuperHTTPChannel]);
+
+
+end;
+
+{$IFDEF FPC}
+initialization
+  {$i RemObjects_Indy_Glyphs.lrs}
+{$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.dpk
new file mode 100644
index 0000000..d072de8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.dpk	
@@ -0,0 +1,64 @@
+package RemObjects_Indy_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Indy Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  IndyCore,
+  IndySystem,
+  IndyProtocols,
+  vcl,
+  vclx,
+  designide,
+  RemObjects_Core_D14;
+
+contains
+  RemObjects_Indy_Reg in 'RemObjects_Indy_Reg.pas',
+  uROIndyHTTPChannel in 'uROIndyHTTPChannel.pas',
+  uROIndyTCPChannel in 'uROIndyTCPChannel.pas',
+  uROIndyTCPServer in 'uROIndyTCPServer.pas',
+  uROIndyHTTPServer in 'uROIndyHTTPServer.pas',
+  uROIndyUDPServer in 'uROIndyUDPServer.pas',
+  uROIndyUDPChannel in 'uROIndyUDPChannel.pas',
+  uROBroadcastServer in 'uROBroadcastServer.pas',
+  uROBroadcastChannel in 'uROBroadcastChannel.pas',
+  uROStreamUtils in 'uROStreamUtils.pas',
+  uROIndyEmailChannel in 'uROIndyEmailChannel.pas',
+  uROIndyEmailServer in 'uROIndyEmailServer.pas',
+  uROIndyEmail in 'uROIndyEmail.pas',
+  uRODiscovery in 'uRODiscovery.pas',
+  uRODiscoveryService_Impl in 'uRODiscoveryService_Impl.pas',
+  uRODiscovery_Async in 'uRODiscovery_Async.pas',
+  uRODiscovery_Intf in 'uRODiscovery_Intf.pas',
+  uRODiscovery_Invk in 'uRODiscovery_Invk.pas',
+  uROAsyncResponseStorage in 'uROAsyncResponseStorage.pas',
+  uROSuperTCPServer in 'uROSuperTCPServer.pas',
+  uROSuperTCPChannel in 'uROSuperTCPChannel.pas',
+  uROSCHelpers in 'uROSCHelpers.pas',
+  uROIndySuperHttpChannel in 'uROIndySuperHttpChannel.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.dproj
new file mode 100644
index 0000000..f1caee7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.dproj	
@@ -0,0 +1,130 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{2c907631-bcb2-4bfe-83c9-ce4d30a1f7e0}</ProjectGuid>
+			<MainSource>RemObjects_Indy_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Indy_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D14\RemObjects_Indy_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - Indy Library</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_Indy_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="IndyCore.dcp"/>
+			<DCCReference Include="IndySystem.dcp"/>
+			<DCCReference Include="IndyProtocols.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="vclx.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="RemObjects_Indy_Reg.pas"/>
+			<DCCReference Include="uROIndyHTTPChannel.pas"/>
+			<DCCReference Include="uROIndyTCPChannel.pas"/>
+			<DCCReference Include="uROIndyTCPServer.pas"/>
+			<DCCReference Include="uROIndyHTTPServer.pas"/>
+			<DCCReference Include="uROIndyUDPServer.pas"/>
+			<DCCReference Include="uROIndyUDPChannel.pas"/>
+			<DCCReference Include="uROBroadcastServer.pas"/>
+			<DCCReference Include="uROBroadcastChannel.pas"/>
+			<DCCReference Include="uROStreamUtils.pas"/>
+			<DCCReference Include="uROIndyEmailChannel.pas"/>
+			<DCCReference Include="uROIndyEmailServer.pas"/>
+			<DCCReference Include="uROIndyEmail.pas"/>
+			<DCCReference Include="uRODiscovery.pas"/>
+			<DCCReference Include="uRODiscoveryService_Impl.pas"/>
+			<DCCReference Include="uRODiscovery_Async.pas"/>
+			<DCCReference Include="uRODiscovery_Intf.pas"/>
+			<DCCReference Include="uRODiscovery_Invk.pas"/>
+			<DCCReference Include="uROAsyncResponseStorage.pas"/>
+			<DCCReference Include="uROSuperTCPServer.pas"/>
+			<DCCReference Include="uROSuperTCPChannel.pas"/>
+			<DCCReference Include="uROSCHelpers.pas"/>
+			<DCCReference Include="uROIndySuperHttpChannel.pas"/>
+			<DCCReference Include="RemObjects_Core_D13.dcp"/>
+			<DCCReference Include="RemObjects_Core_D1.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<None Include="RemObjects.inc"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">516</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">3.0.0.516</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Excluded_Packages/>
+					<Source>
+						<Source Name="MainSource">RemObjects_Indy_D14.dpk</Source>
+					</Source>
+					<isVersionControl>
+						<isVersionControl Name="isVersionControlID"/>
+					</isVersionControl>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Indy_d14.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.bdsproj
new file mode 100644
index 0000000..f3d5040
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.bdsproj	
@@ -0,0 +1,181 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{273ED1C9-0197-4A8B-B785-4B4C22EE13B8}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">RemObjects_Synapse_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">False</Compiler>
+			<Compiler Name="SymbolLibrary">False</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">False</Compiler>
+			<Compiler Name="UnitLibrary">False</Compiler>
+			<Compiler Name="UnitPlatform">False</Compiler>
+			<Compiler Name="UnitDeprecated">False</Compiler>
+			<Compiler Name="UnitExperimental">False</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">RemObjects SDK - Synapse based Channels</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir">..\Dcu\D10</Directories>
+			<Directories Name="UnitOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath">..\Dcu\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals">DESIGNTIME</Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="RemoteHost"></Parameters>
+			<Parameters Name="RemotePath"></Parameters>
+			<Parameters Name="RemoteLauncher"></Parameters>
+			<Parameters Name="RemoteCWD"></Parameters>
+			<Parameters Name="RemoteDebug">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">257</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription">ROServiceTester</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.0.257</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName">ROServiceTester</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">Copyright RemObjects Software 2002</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">RemObjects Software 2002</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename">ROServiceTester.exe</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Compile Date">Sunday, March 21, 2004 5:55 PM</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+	<ModelSupport>False</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.cfg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.cfg
new file mode 100644
index 0000000..5094cf5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.cfg	
@@ -0,0 +1,54 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\Dcu\D10"
+-N0"..\Dcu\D10"
+-LE"..\Dcu\D10"
+-LN"..\Dcu\D10"
+-U"..\Dcu\D10"
+-O"..\Dcu\D10"
+-I"..\Dcu\D10"
+-R"..\Dcu\D10"
+-DDESIGNTIME
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.dpk
new file mode 100644
index 0000000..4573457
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.dpk	
@@ -0,0 +1,61 @@
+package RemObjects_Synapse_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Synapse based Channels'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D10;
+
+contains
+  RemObjects_Synapse_Reg in 'RemObjects_Synapse_Reg.pas',
+  uROSynapseHTTPChannel in 'uROSynapseHTTPChannel.pas',
+  synsock in 'Synapse\synsock.pas',
+  blcksock in 'Synapse\blcksock.pas',
+  httpsend in 'Synapse\httpsend.pas',
+  synacode in 'Synapse\synacode.pas',
+  synafpc in 'Synapse\synafpc.pas',
+  synaip in 'Synapse\synaip.pas',
+  synautil in 'Synapse\synautil.pas',
+  uIPAsyncSocket in 'uIPAsyncSocket.pas',
+  uIPAsyncHttpServer in 'uIPAsyncHttpServer.pas',
+  uROIpSuperHttpServer in  'uROIpSuperHttpServer.pas',  
+  uROSynapseSuperHttpChannel in 'uROSynapseSuperHttpChannel.pas',
+  uROSynapseSCHelpers in 'uROSynapseSCHelpers.pas',
+  uROSynapseServerSocket in 'uROSynapseServerSocket.pas',
+  uROSynapseSuperTCPChannel in 'uROSynapseSuperTCPCHannel.pas',
+  uROSynapseSuperTCPServer in 'uROSynapseSuperTCPServer.pas',
+  uROIpHttpServer in 'uROIpHttpServer.pas', 
+  uROIpTcpServer in 'uROIpTcpServer.pas',
+  uROZeroConf in 'uROZeroConf.pas',
+  uROZeroConfHubSynapse in 'uROZeroConfHubSynapse.pas',
+  ldapsend in 'Synapse\ldapsend.pas',
+  asn1util in 'Synapse\asn1util.pas',
+  uROLDAP in 'uROLDAP.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.res
new file mode 100644
index 0000000..6efa1f1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D10.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.dpk
new file mode 100644
index 0000000..3581bf4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.dpk	
@@ -0,0 +1,62 @@
+package RemObjects_Synapse_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Synapse based Channels'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D11;
+
+contains
+  RemObjects_Synapse_Reg in 'RemObjects_Synapse_Reg.pas',
+  uROSynapseHTTPChannel in 'uROSynapseHTTPChannel.pas',
+  synsock in 'Synapse\synsock.pas',
+  blcksock in 'Synapse\blcksock.pas',
+  httpsend in 'Synapse\httpsend.pas',
+  synacode in 'Synapse\synacode.pas',
+  synafpc in 'Synapse\synafpc.pas',
+  synaip in 'Synapse\synaip.pas',
+  synautil in 'Synapse\synautil.pas',
+  uIPAsyncSocket in 'uIPAsyncSocket.pas',
+  uIPAsyncHttpServer in 'uIPAsyncHttpServer.pas',
+  uROIpSuperHttpServer in 'uROIpSuperHttpServer.pas',
+  uROSynapseSuperHttpChannel in 'uROSynapseSuperHttpChannel.pas',
+  uROSynapseSCHelpers in 'uROSynapseSCHelpers.pas',
+  uROSynapseServerSocket in 'uROSynapseServerSocket.pas',
+  uROSynapseSuperTCPCHannel in 'uROSynapseSuperTCPCHannel.pas',
+  uROSynapseSuperTCPServer in 'uROSynapseSuperTCPServer.pas',
+  uROIpHttpServer in 'uROIpHttpServer.pas',
+  uROIpTcpServer in 'uROIpTcpServer.pas',
+  uROZeroConf in 'uROZeroConf.pas',
+  uROZeroConfHubSynapse in 'uROZeroConfHubSynapse.pas',
+  ldapsend in 'Synapse\ldapsend.pas',
+  asn1util in 'Synapse\asn1util.pas',
+  uROLDAP in 'uROLDAP.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.dproj
new file mode 100644
index 0000000..0032db0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.dproj	
@@ -0,0 +1,588 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{5c79699f-2653-4670-a29a-e5e2459651b1}</ProjectGuid>
+    <MainSource>RemObjects_Synapse_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\RemObjects_Synapse_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_ExeOutput>..\Dcu\D11</DCC_ExeOutput>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>DESIGNTIME;RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_ExeOutput>..\Dcu\D11</DCC_ExeOutput>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>DESIGNTIME</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects SDK - Synapse based Channels</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Compile Date">Sunday, March 21, 2004 5:55 PM</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemObjects_Synapse_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_Synapse_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="inet.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="RemObjects_Synapse_Reg.pas" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="Synapse\asn1util.pas" />
+    <DCCReference Include="Synapse\blcksock.pas" />
+    <DCCReference Include="Synapse\httpsend.pas" />
+    <DCCReference Include="Synapse\ldapsend.pas" />
+    <DCCReference Include="Synapse\synacode.pas" />
+    <DCCReference Include="Synapse\synafpc.pas" />
+    <DCCReference Include="Synapse\synaip.pas" />
+    <DCCReference Include="Synapse\synautil.pas" />
+    <DCCReference Include="Synapse\synsock.pas" />
+    <DCCReference Include="uIPAsyncHttpServer.pas" />
+    <DCCReference Include="uIPAsyncSocket.pas" />
+    <DCCReference Include="uROIpHttpServer.pas" />
+    <DCCReference Include="uROIpSuperHttpServer.pas" />
+    <DCCReference Include="uROIpTcpServer.pas" />
+    <DCCReference Include="uROLDAP.pas" />
+    <DCCReference Include="uROSynapseHTTPChannel.pas" />
+    <DCCReference Include="uROSynapseSCHelpers.pas" />
+    <DCCReference Include="uROSynapseServerSocket.pas" />
+    <DCCReference Include="uROSynapseSuperHttpChannel.pas" />
+    <DCCReference Include="uROSynapseSuperTCPCHannel.pas" />
+    <DCCReference Include="uROSynapseSuperTCPServer.pas" />
+    <DCCReference Include="uROSynSCHelpers.pas" />
+    <DCCReference Include="uROSynServerSocket.pas" />
+    <DCCReference Include="uROSynSuperTCPCHannel.pas" />
+    <DCCReference Include="uROSynSuperTCPServer.pas" />
+    <DCCReference Include="uROZeroConf.pas" />
+    <DCCReference Include="uROZeroConfHubSynapse.pas" />
+    <DCCReference Include="vcl.dcp" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.dpk
new file mode 100644
index 0000000..e2fb724
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.dpk	
@@ -0,0 +1,61 @@
+package RemObjects_Synapse_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Synapse based Channels'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D12;
+
+contains
+  RemObjects_Synapse_Reg in 'RemObjects_Synapse_Reg.pas',
+  uROSynapseHTTPChannel in 'uROSynapseHTTPChannel.pas',
+  synsock in 'Synapse\synsock.pas',
+  blcksock in 'Synapse\blcksock.pas',
+  httpsend in 'Synapse\httpsend.pas',
+  synacode in 'Synapse\synacode.pas',
+  synafpc in 'Synapse\synafpc.pas',
+  synaip in 'Synapse\synaip.pas',
+  synautil in 'Synapse\synautil.pas',
+  uIPAsyncSocket in 'uIPAsyncSocket.pas',
+  uIPAsyncHttpServer in 'uIPAsyncHttpServer.pas',
+  uROIpSuperHttpServer in 'uROIpSuperHttpServer.pas',
+  uROSynapseSuperHttpChannel in 'uROSynapseSuperHttpChannel.pas',
+  uROSynapseSCHelpers in 'uROSynapseSCHelpers.pas',
+  uROSynapseServerSocket in 'uROSynapseServerSocket.pas',
+  uROSynapseSuperTCPCHannel in 'uROSynapseSuperTCPCHannel.pas',
+  uROSynapseSuperTCPServer in 'uROSynapseSuperTCPServer.pas',
+  uROIpHttpServer in 'uROIpHttpServer.pas',
+  uROIpTcpServer in 'uROIpTcpServer.pas',
+  uROZeroConf in 'uROZeroConf.pas',
+  uROZeroConfHubSynapse in 'uROZeroConfHubSynapse.pas',
+  ldapsend in 'Synapse\ldapsend.pas',
+  asn1util in 'Synapse\asn1util.pas',
+  uROLDAP in 'uROLDAP.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.dproj
new file mode 100644
index 0000000..64ea2a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.dproj	
@@ -0,0 +1,107 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{5c79699f-2653-4670-a29a-e5e2459651b1}</ProjectGuid>
+			<MainSource>RemObjects_Synapse_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Synapse_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Synapse_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - Synapse based Channels</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_Synapse_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="inet.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="RemObjects_Synapse_Reg.pas"/>
+			<DCCReference Include="uROSynapseHTTPChannel.pas"/>
+			<DCCReference Include="Synapse\synsock.pas"/>
+			<DCCReference Include="Synapse\blcksock.pas"/>
+			<DCCReference Include="Synapse\httpsend.pas"/>
+			<DCCReference Include="Synapse\synacode.pas"/>
+			<DCCReference Include="Synapse\synafpc.pas"/>
+			<DCCReference Include="Synapse\synaip.pas"/>
+			<DCCReference Include="Synapse\synautil.pas"/>
+			<DCCReference Include="uIPAsyncSocket.pas"/>
+			<DCCReference Include="uIPAsyncHttpServer.pas"/>
+			<DCCReference Include="uROIpSuperHttpServer.pas"/>
+			<DCCReference Include="uROSynapseSuperHttpChannel.pas"/>
+			<DCCReference Include="uROSynapseSCHelpers.pas"/>
+			<DCCReference Include="uROSynapseServerSocket.pas"/>
+			<DCCReference Include="uROSynapseSuperTCPCHannel.pas"/>
+			<DCCReference Include="uROSynapseSuperTCPServer.pas"/>
+			<DCCReference Include="uROIpHttpServer.pas"/>
+			<DCCReference Include="uROIpTcpServer.pas"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">257</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription">ROServiceTester</VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">3.0.0.257</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName">ROServiceTester</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalCopyright">Copyright RemObjects Software 2002</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software 2002</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename">ROServiceTester.exe</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Compile Date">Sunday, March 21, 2004 5:55 PM</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_Synapse_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D12.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.dof
new file mode 100644
index 0000000..b4be9d9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.dof	
@@ -0,0 +1,131 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - Synapse based Channels
+[Directories]
+OutputDir=..\Dcu\D5
+UnitOutputDir=..\Dcu\D5
+PackageDLLOutputDir=..\Dcu\D5
+PackageDCPOutputDir=..\Dcu\D5
+SearchPath=..\Dcu\D5
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=257
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=ROServiceTester
+FileVersion=3.0.0.257
+InternalName=ROServiceTester
+LegalCopyright=Copyright RemObjects Software 2002
+LegalTrademarks=RemObjects Software 2002
+OriginalFilename=ROServiceTester.exe
+ProductName=RemObjects SDK
+ProductVersion=3.0.0.0
+Compile Date=Sunday, March 21, 2004 5:55 PM
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.dpk
new file mode 100644
index 0000000..2bfb325
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.dpk	
@@ -0,0 +1,59 @@
+package RemObjects_Synapse_D5;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Synapse based Channels'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  vcl50,
+  RemObjects_Core_D5;
+
+contains
+  RemObjects_Synapse_Reg in 'RemObjects_Synapse_Reg.pas',
+  uROSynapseHTTPChannel in 'uROSynapseHTTPChannel.pas',
+  synsock in 'Synapse\synsock.pas',
+  blcksock in 'Synapse\blcksock.pas',
+  httpsend in 'Synapse\httpsend.pas',
+  synacode in 'Synapse\synacode.pas',
+  synafpc in 'Synapse\synafpc.pas',
+  synaip in 'Synapse\synaip.pas',
+  synautil in 'Synapse\synautil.pas',
+  uIPAsyncSocket in 'uIPAsyncSocket.pas',
+  uIPAsyncHttpServer in 'uIPAsyncHttpServer.pas',
+  uROIpSuperHttpServer in  'uROIpSuperHttpServer.pas',  
+  uROSynapseSuperHttpChannel in 'uROSynapseSuperHttpChannel.pas',
+  uROSynapseSCHelpers in 'uROSynapseSCHelpers.pas',
+  uROSynapseServerSocket in 'uROSynapseServerSocket.pas',
+  uROSynapseSuperTCPChannel in 'uROSynapseSuperTCPCHannel.pas',
+  uROSynapseSuperTCPServer in 'uROSynapseSuperTCPServer.pas',
+  uROIpHttpServer in 'uROIpHttpServer.pas', 
+  uROIpTcpServer in 'uROIpTcpServer.pas',
+  uROZeroConf in 'uROZeroConf.pas',
+  uROZeroConfHubSynapse in 'uROZeroConfHubSynapse.pas',
+  ldapsend in 'Synapse\ldapsend.pas',
+  asn1util in 'Synapse\asn1util.pas',
+  uROLDAP in 'uROLDAP.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.res
new file mode 100644
index 0000000..fff68a1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D5.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.dof
new file mode 100644
index 0000000..ca66914
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.dof	
@@ -0,0 +1,132 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - Synapse based Channels
+[Directories]
+OutputDir=..\Dcu\D6
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=..\Dcu\D6
+Packages=
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=257
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=ROServiceTester
+FileVersion=3.0.0.257
+InternalName=ROServiceTester
+LegalCopyright=Copyright RemObjects Software 2002
+LegalTrademarks=RemObjects Software 2002
+OriginalFilename=ROServiceTester.exe
+ProductName=RemObjects SDK
+ProductVersion=3.0.0.0
+Compile Date=Sunday, March 21, 2004 5:55 PM
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.dpk
new file mode 100644
index 0000000..e8c6818
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.dpk	
@@ -0,0 +1,61 @@
+package RemObjects_Synapse_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Synapse based Channels'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D6;
+
+contains
+  RemObjects_Synapse_Reg in 'RemObjects_Synapse_Reg.pas',
+  uROSynapseHTTPChannel in 'uROSynapseHTTPChannel.pas',
+  synsock in 'Synapse\synsock.pas',
+  blcksock in 'Synapse\blcksock.pas',
+  httpsend in 'Synapse\httpsend.pas',
+  synacode in 'Synapse\synacode.pas',
+  synafpc in 'Synapse\synafpc.pas',
+  synaip in 'Synapse\synaip.pas',
+  synautil in 'Synapse\synautil.pas',
+  uIPAsyncSocket in 'uIPAsyncSocket.pas',
+  uIPAsyncHttpServer in 'uIPAsyncHttpServer.pas',
+  uROIpSuperHttpServer in  'uROIpSuperHttpServer.pas',  
+  uROSynapseSuperHttpChannel in 'uROSynapseSuperHttpChannel.pas',
+  uROSynapseSCHelpers in 'uROSynapseSCHelpers.pas',
+  uROSynapseServerSocket in 'uROSynapseServerSocket.pas',
+  uROSynapseSuperTCPChannel in 'uROSynapseSuperTCPCHannel.pas',
+  uROSynapseSuperTCPServer in 'uROSynapseSuperTCPServer.pas',
+  uROIpHttpServer in 'uROIpHttpServer.pas', 
+  uROIpTcpServer in 'uROIpTcpServer.pas',
+  uROZeroConf in 'uROZeroConf.pas',
+  uROZeroConfHubSynapse in 'uROZeroConfHubSynapse.pas',
+  ldapsend in 'Synapse\ldapsend.pas',
+  asn1util in 'Synapse\asn1util.pas',
+  uROLDAP in 'uROLDAP.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.res
new file mode 100644
index 0000000..fff68a1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D6.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.dof
new file mode 100644
index 0000000..f7aba1c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.dof	
@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - Synapse based Channels
+[Directories]
+OutputDir=..\Dcu\D7
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=..\Dcu\D7
+Packages=
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=257
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=ROServiceTester
+FileVersion=3.0.0.257
+InternalName=ROServiceTester
+LegalCopyright=Copyright RemObjects Software 2002
+LegalTrademarks=RemObjects Software 2002
+OriginalFilename=ROServiceTester.exe
+ProductName=RemObjects SDK
+ProductVersion=3.0.0.0
+Compile Date=Sunday, March 21, 2004 5:55 PM
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.dpk
new file mode 100644
index 0000000..ed60547
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.dpk	
@@ -0,0 +1,61 @@
+package RemObjects_Synapse_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Synapse based Channels'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D7;
+
+contains
+  RemObjects_Synapse_Reg in 'RemObjects_Synapse_Reg.pas',
+  uROSynapseHTTPChannel in 'uROSynapseHTTPChannel.pas',
+  synsock in 'Synapse\synsock.pas',
+  blcksock in 'Synapse\blcksock.pas',
+  httpsend in 'Synapse\httpsend.pas',
+  synacode in 'Synapse\synacode.pas',
+  synafpc in 'Synapse\synafpc.pas',
+  synaip in 'Synapse\synaip.pas',
+  synautil in 'Synapse\synautil.pas',
+  uIPAsyncSocket in 'uIPAsyncSocket.pas',
+  uIPAsyncHttpServer in 'uIPAsyncHttpServer.pas',
+  uROIpSuperHttpServer in 'uROIpSuperHttpServer.pas',
+  uROSynapseSuperHttpChannel in 'uROSynapseSuperHttpChannel.pas',
+  uROSynapseSCHelpers in 'uROSynapseSCHelpers.pas',
+  uROSynapseServerSocket in 'uROSynapseServerSocket.pas',
+  uROSynapseSuperTCPChannel in 'uROSynapseSuperTCPCHannel.pas',
+  uROSynapseSuperTCPServer in 'uROSynapseSuperTCPServer.pas',
+  uROIpHttpServer in 'uROIpHttpServer.pas', 
+  uROIpTcpServer in 'uROIpTcpServer.pas',
+  uROZeroConf in 'uROZeroConf.pas',
+  uROZeroConfHubSynapse in 'uROZeroConfHubSynapse.pas',
+  ldapsend in 'Synapse\ldapsend.pas',
+  asn1util in 'Synapse\asn1util.pas',
+  uROLDAP in 'uROLDAP.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_D7.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Glyphs.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Glyphs.lrs
new file mode 100644
index 0000000..a0c63f3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Glyphs.lrs	
@@ -0,0 +1,677 @@
+LazarusResources.Add('TROSYNAPSEHTTPCHANNEL','BMP',[
+  'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#192#6#0#0#19#11#0#0#19#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'422'#168#162
+  +#167'}st'#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#254#150#18
+  +#254#150#18#169'~H'#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189
+  +'H'#22#166'%'#26#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0':77'
+  +#165#164#165'opp'#254#150#18#254#150#18#254#150#18#254#150#18#254#162'!'#254
+  +#162'!'#254#162'!'#254#162'!\'#191'Ux'#219'|'#165#241#165#165#241#165'u'#218
+  +'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255#135#22't~'#2#2#129#0#255#0#255'42'
+  +'2'#178#176#178'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'
+  +#255#172'0'#255#176'6'#255#172'0BqCh'#207'h'#129#221#130#129#221#130'e'#206
+  +'fD'#186'E'#28#163'#:'#151#26#217#146'#'#255#132#18'R~'#2#2#129#0#255#0#255
+  +'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255#186'D'
+  +#255#186'D'#255#186'D'#255#186'D'#255#180'<F'#134'FV'#197'WV'#197'WI'#188'I2'
+  +#172'3'#12#153#22'#'#139#12#206#139#24#255'~'#10#255'~'#10#255#0#255#255#0
+  +#255'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'#255#191'M'#255
+  +#196'U'#255#196'U'#255#199'\'#255#196'U'#255#192'M'#255#186'DBqC.q0%'#168')'
+  +#26#152#23#6#139#8'`'#137#14#244#132#16#255#0#255#255#0#255#255#0#255#255#0
+  +#255'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199'\'#255
+  +#205'e'#255#208'j'#255#205'e'#255#205'e'#255#199'\'#255#196'U'#255#186'D'#255
+  +#180'<'#255#172'0'#137'h8*%%'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'#255#208
+  +'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'#255#196
+  +'U'#255#186'D'#255#172'0'#130'kM*%%'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'
+  +#255#216'v'#255#221#129#254#226#136#254#226#136#255#221#129#255#217'x'#255
+  +#208'j'#255#199'\'#255#192'M'#255#180'<'#130'kM*%%'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201
+  +']'#255#216'v'#255#217'x'#254#230#144#254#234#152#254#234#152#254#230#144#255
+  +#221#129#255#216'v'#255#205'e'#255#196'U'#255#186'D'#130'kM*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'opp'#255#196
+  +'U'#255#205'e'#255#216'v'#255#221#129#254#234#152#254#242#166#254#243#169#254
+  +#234#152#254#226#136#255#216'v'#255#205'e'#255#196'U'#255#186'D'#134'oS*%%'
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182#176#181
+  +'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226#136#254#234#150#254#242#166
+  +#254#243#169#254#234#152#254#226#136#255#216'v'#255#208'j'#255#196'U'#255#186
+  +'D'#137'tW*%%'#255#0#255#255#0#255#0#0#0#0#0#0#0#0#0#255#0#255'989'#184#183
+  +#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203#181'y'
+  +#197#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255#255#0#255
+  ,#255#0#255#255#0#255#255#0#255#0#0#0'A<<------'#212#209#213#196#196#197#173
+  +#172#173#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}st*%'
+  +'%'#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255'HJKHJK'#30
+  +#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160#144#141#145
+  +#139#131#137#132'yzZST*%%'#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJK'#30#30#30'111----------'
+  +'--989422111'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#0#0#0
+]);
+LazarusResources.Add('TROSYNAPSESUPERHTTPCHANNEL','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#0#0''#3#24#221#1#9#172#255#138#25
+  +#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#4#3''#215#201#134#0#0''#20'7'#255#4
+  +#17#188#240#147'&'#28#26#144#28#26#144'tb'#3'lB'#22'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'~'#204'k'#4#8#150'$<'#221#7#8#140#0#0''#28'?'#255#6#19#188#6#6#132
+  +#3#20#204#1#10#172#28#26#144'#c'#5'422'#168#162#167'}st'#254#150#18#254#145
+  +#12#254#150#18#254#150#18#254#150#18#254#150#18#254#150#18#169'~H'#192#191'j'
+  +'u'#218'{'#5#9#150'Wr'#247'8P'#230#0#1#135'(J'#255#8#22#188#9#27#204#19'6'
+  +#255#3#20#204#28#25#143#2'}'#0':77'#165#164#165'opp'#254#150#18#254#150#18
+  +#254#150#18#254#150#18#254#162'!'#254#162'!'#254#162'!'#254#162'!\'#191'Ux'
+  +#219'|'#165#241#165#5#9#150'Zu'#247'<V'#238'9Z'#255'#D'#247',N'#255#9#27#204
+  +#6#6#132#2#129#0#255#0#255'422'#178#176#178'xux'#254#150#18#254#158#28#254
+  +#162'!'#255#172'0'#255#172'0'#255#172'0'#255#176'6'#255#172'0BqC'#4#3''#4#3
+  +'%1'#188'.D'#221'n'#137#255'd'#128#255'Qp'#255'''F'#247#10#24#188#6#20#188#3
+  +#16#188#0#0'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180
+  +'<'#255#186'D'#255#186'D'#255#186'D'#255#186'D'#255#180'<'#4#3''#151#171#255
+  +#137#159#255'z'#147#255#130#153#255'x'#145#255'g'#130#255'@`'#255'1S'#255'#F'
+  +#255#17'4'#255#0#0'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'
+  +#255#191'M'#255#196'U'#255#196'U'#255#199'\'#255#196'U'#255#192'M'#0#0''#0#0
+  +''#0#0'EU'#213#157#176#255#132#156#255'u'#143#255'D^'#238#1#1#135#0#0''#0
+  +#0''#28#24#140'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255
+  +#199'\'#255#205'e'#255#208'j'#255#205'e'#255#205'e'#255#199'\'#255#196'U'#255
+  +#186'DP['#204#192#204#255'BP'#204#129#153#255'3E'#213'f'#247'D['#230#8#9#139
+  +#255#0#255#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'
+  +#255#208'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'
+  +#4#3''#220#227#255'R\'#204#0#0''#146#167#255'+5'#188#7#11#150'i'#129#247'5'
+  +'K'#221#6#6#131#255#0#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208
+  +'j'#255#216'v'#255#221#129#254#226#136#254#226#136#255#221#129#255#217'x'#255
+  +#208'j'#4#3',1'#172#28#24#139#0#0''#163#181#255'1;'#188#28#24#139#8#12#150
+  +#7#11#150#255#0#255#255#0#255'A<<'#182#176#181'vtv'#255#196'U'#255#201']'#255
+  +#216'v'#255#217'x'#254#230#144#254#234#152#254#234#152#254#230#144#255#221
+  +#129#255#216'v'#255#205'e'#255#196'U'#255#186'D'#0#0''#178#194#255'7A'#188
+  +#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'989'#184#183#184'opp'#255
+  +#196'U'#255#205'e'#255#216'v'#255#221#129#254#234#152#254#242#166#254#243#169
+  +#254#234#152#254#226#136#255#216'v'#255#205'e'#255#196'U'#255#186'D'#6#5#131
+  +#16#21#157#6#8#142#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'A<<'#182
+  +#176#181'vtv'#201#161'W'#189#154'Q'#238#201'n'#254#226#136#254#234#150#254
+  +#242#166#254#243#169#254#234#152#254#226#136#255#216'v'#255#208'j'#255#196'U'
+  +#255#186'D'#137'tW*%%'#255#0#255#255#0#255#0#0#0#0#0#0#0#0#0#255#0#255'989'
+  +#184#183#184'nmnnmnoppoppa]]'#135#130'u'#130'~m'#167#160#129#163#152'r'#203
+  +#181'y'#197#167'b'#238#192'^'#255#196'U'#255#186'D'#142'w[*%%'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#0#0#0'A<<------'#212#209#213#196#196#197
+  ,#173#172#173#160#160#163#141#137#140#141#137#140'xux}}~oppxuxxuxddd'#135't`}'
+  +'st*%%'#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255'HJKHJK'
+  +#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154#160#144#141#145
+  +#139#131#137#132'yzZST*%%'#255#0#255#255#0#255#0#0#0#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJK'#30#30#30'111----------'
+  +'--989422111'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#0#0#0#0#0#0#0#0
+]);
+LazarusResources.Add('TROSYNAPSESUPERTCPCHANNEL','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#0#0#0#0#0#0#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@@@'#30#30#30#30#30#30#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#0#0#0'@'#0#192#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'@'#0#192'@@@'#132'yzFFF'#30#30#30#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@@@'#132'yz'#132'yz'#30#30#30#255#0#255#255#0#255#255#0#255#255
+  +#0#255#0#0#0#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192'@@@'#132'yzZST---'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#0#0#0#0#0#0#0'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192'@@@FFF---'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0
+  +#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192#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'@'#0#192'@@@'#30#30#30#30#30#30#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192#144#133#136'tlnFFF'#30#30#30#30#30#30#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'422'#168#162#167'}st'
+  +#254#150#18#254#145#12#254#150#18#254#150#18#254#150#18#254#150#18#254#150#18
+  +#254#171'9'#234#181'h'#215#186#147#182#176#181#156#146#147#136'}~111'#30#30
+  +#30#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255':77'#165#164
+  +#165'opp'#254#150#18#254#150#18#254#150#18#254#150#18#254#162'!'#254#162'!'
+  +#254#162'!'#254#162'!'#254#153#22#254#153#22#254#150#18#227#153'5'#201#150'U'
+  +#147'~m422'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'422'
+  +#178#176#178'xux'#254#150#18#254#158#28#254#162'!'#255#172'0'#255#172'0'#255
+  +#172'0'#255#176'6'#255#172'0'#255#172'0'#254#162'!'#254#162'!'#254#150#18#254
+  +#150#18#0#0''#3#24#221#1#9#172#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255'989'#182#176#181'}st'#254#162'!'#255#172'0'#255#172'0'#255#180'<'#255
+  +#186'D'#255#186'D'#255#186'D'#255#186'D'#255#180'<'#255#172'0'#255#172'0'#4#3
+  +''#254#150#18#0#0''#20'7'#255#4#17#188#255#0#255#28#26#144#28#26#144#255#0
+  +#255#255#0#255'989'#182#176#181'xux'#255#172'0'#255#172'0'#255#186'D'#255#191
+  +'M'#255#196'U'#255#196'U'#255#199'\'#255#196'U'#255#192'M'#255#186'D'#4#8#150
+  +'$<'#221#7#8#140#0#0''#28'?'#255#6#19#188#6#6#132#3#20#204#1#10#172#28#26
+  +#144#255#0#255'989'#188#185#189'opp'#255#176'6'#255#186'D'#255#196'U'#255#199
+  +'\'#255#205'e'#255#208'j'#255#205'e'#255#205'e'#255#199'\'#255#196'U'#5#9#150
+  +'Wr'#247'8P'#230#0#1#135'(J'#255#8#22#188#9#27#204#19'6'#255#3#20#204#28#25
+  +#143#255#0#255'A<<'#184#183#184'opp'#255#186'D'#255#196'U'#255#199'\'#255#208
+  +'j'#255#215't'#255#216'v'#255#217'x'#255#216'v'#255#208'j'#255#205'e'#255#196
+  +'U'#5#9#150'Zu'#247'<V'#238'9Z'#255'#D'#247',N'#255#9#27#204#6#6#132#255#0
+  +#255#255#0#255'989'#188#185#189'opp'#255#186'D'#255#201']'#255#208'j'#255#216
+  +'v'#255#221#129#254#226#136#254#226#136#255#221#129#255#217'x'#4#3''#4#3'%'
+  +'1'#188'.D'#221'n'#137#255'd'#128#255'Qp'#255'''F'#247#10#24#188#6#20#188#3
+  +#16#188#0#0'A<<'#182#176#181'vtv'#255#196'U'#255#201']'#255#216'v'#255#217
+  +'x'#254#230#144#254#234#152#254#234#152#254#230#144#255#221#129#4#3''#151
+  +#171#255#137#159#255'z'#147#255#130#153#255'x'#145#255'g'#130#255'@`'#255'1S'
+  +#255'#F'#255#17'4'#255#0#0'989'#184#183#184'opp'#255#196'U'#255#205'e'#255
+  +#216'v'#255#221#129#254#234#152#254#242#166#254#243#169#254#234#152#254#226
+  +#136#0#0''#0#0''#0#0'EU'#213#157#176#255#132#156#255'u'#143#255'D^'#238#1
+  +#1#135#0#0''#0#0''#28#24#140'A<<'#182#176#181'vtv'#201#161'W'#189#154'Q'
+  +#238#201'n'#254#226#136#254#234#150#254#242#166#254#243#169#254#234#152#254
+  +#226#136#255#216'v'#255#208'jP['#204#192#204#255'BP'#204#129#153#255'3E'#213
+  +'f'#247'D['#230#8#9#139#255#0#255#255#0#255'989'#184#183#184'nmnnmnoppoppa]'
+  +']'#135#130'u'#130'~m'#167#160#129#163#152'r'#203#181'y'#197#167'b'#4#3''
+  +#220#227#255'R\'#204#0#0''#146#167#255'+5'#188#7#11#150'i'#129#247'5K'#221#6
+  ,#6#131#255#0#255'A<<------'#212#209#213#196#196#197#173#172#173#160#160#163
+  +#141#137#140#141#137#140'xux}}~oppxux'#4#3',1'#172#28#24#139#0#0''#163#181
+  +#255'1;'#188#28#24#139#8#12#150#7#11#150#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#30#30#30'422788FFFZVWnmnopp'#144#141#145#128#128#128#161#154
+  +#160#144#141#145#139#131#137#132'yz'#0#0''#178#194#255'7A'#188#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#30#30#30'111------------989422'#6#5
+  +#131#16#21#157#6#8#142#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROSYNAPSESUPERTCPSERVER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#0#0#0#0#0#0#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@@@'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#0#0#0'@'#0#192#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'@'#0#192'@@@HJKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#0#0#0#0#0#0#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@{{{'#147#147#147'III'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0
+  +#255#0#255#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192'@@@{{{'#147#147#147'III'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0#0#0#0#0#0#0#0'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@{'
+  +'{{'#147#147#147'III'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'#0#192#255
+  +#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@{'
+  +'{{'#147#147#147'III'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'@'#0#192#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
+  +'@'#0#192'@@@{{{'#147#147#147'III'#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'{{{'
+  +'{{{'#147#147#147'III'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'HJK'#196#189#194#192#186#192#189#183#189#189#183
+  +#189'HJK'#217#215#218'HJK{{{{{{{{{{{{{{{{{{'#147#147#147'III'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#198#193
+  +#198#194#189#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{{{{{{{{{{'
+  +'{{{'#147#147#147'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192#186
+  +#192'HJK'#227#226#230'HJK{{{{{{{{{{{{{{{{{{'#147#147#147'HJK'#0#0''#3#24#221
+  +#1#9#172#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#206#202#206
+  +#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'HJK{{{{{{{{{{{{{{{{{{'
+  +#4#3'HJK'#0#0''#20'7'#255#4#17#188#255#0#255#28#26#144#28#26#144#255#0#255
+  +#255#0#255'HJK'#212#208#212#207#202#207#203#197#202#198#192#198'HJK'#235#234
+  +#237'HJK'#134#134#134#134#134#134#134#134#134#146#146#146'{{{'#4#8#150'$<'
+  +#221#7#8#140#0#0''#28'?'#255#6#19#188#6#6#132#3#20#204#1#10#172#28#26#144
+  +#255#0#255'HJK'#217#213#216#212#208#212#207#202#207#203#197#202'HJK'#237#237
+  +#239'HJK{{{{{{{{{ooo'#134#134#134#5#9#150'Wr'#247'8P'#230#0#1#135'(J'#255#8
+  +#22#188#9#27#204#19'6'#255#3#20#204#28#25#143#255#0#255'HJK'#222#218#221#217
+  +#213#217#233#231#234#207#202#207'HJK'#238#237#240'HJK'#140#140#140#140#140
+  +#140#146#146#146'{{{{{{{{{'#5#9#150'Zu'#247'<V'#238'9Z'#255'#D'#247',N'#255#9
+  +#27#204#6#6#132#255#0#255#255#0#255'HJK'#227#224#227#238#237#238#156#154#156
+  +#211#207#211'HJK'#237#237#239'HJKTVWcddnnn'#140#140#140#4#3''#4#3'%1'#188
+  +'.D'#221'n'#137#255'd'#128#255'Qp'#255'''F'#247#10#24#188#6#20#188#3#16#188#0
+  +#0'HJK'#231#230#231#144#144#146#158#157#158#216#212#216'HJK'#206#207#208#207
+  +#207#207#134#135#135'ceeNPQMOP'#4#3''#151#171#255#137#159#255'z'#147#255#130
+  +#153#255'x'#145#255'g'#130#255'@`'#255'1S'#255'#F'#255#17'4'#255#0#0'HJK'
+  +#237#235#237#146#146#147#227#224#226#255#255#255#176#176#178'QRSUVWuvw'#169
+  +#170#170#211#211#212#189#189#191#0#0''#0#0''#0#0'EU'#213#157#176#255#132
+  +#156#255'u'#143#255'D^'#238#1#1#135#0#0''#0#0''#28#24#140'HJK'#240#240#242
+  +#237#235#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191#151
+  +#149#152'onrXYZNPQhij'#147#149#150'P['#204#192#204#255'BP'#204#129#153#255'3'
+  +'E'#213'f'#247'D['#230#8#9#139#255#0#255#255#0#255'HJK'#246#246#246#255#255
+  +#255#238#238#240#242#242#244#238#237#239#229#227#231#217#215#218#203#199#204
+  +#189#183#189#173#167#173#153#145#151#153#145#151#4#3''#220#227#255'R\'#204#0
+  +#0''#146#167#255'+5'#188#7#11#150'i'#129#247'5K'#221#6#6#131#255#0#255'HJK'
+  +#255#255#255#237#237#239#248#248#250#251#251#252#246#244#247#234#234#237#221
+  +#220#224#207#204#208#192#187#193#176#170#176#160#152#158'HJK'#4#3',1'#172#28
+  +#24#139#0#0''#163#181#255'1;'#188#28#24#139#8#12#150#7#11#150#255#0#255#255
+  +#0#255#255#0#255'HJKHJK'#233#233#234#252#252#252#246#246#247#235#234#238#222
+  ,#220#224#208#204#208#193#187#193'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0
+  +#255#0#0''#178#194#255'7A'#188#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#6#5#131#16#21#157#6#8#142#255#0#255
+  +#255#0#255#255#0#255#255#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROIPSUPERHTTPSERVER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'HJK'#196#189
+  +#194#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{'#169'~H'
+  +#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189'H'#22#166'%'#26
+  +#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0'HJK'#198#193#198#194
+  +#189#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{{{{\'#191'Ux'#219
+  +'|'#165#241#165#165#241#165'u'#218'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255
+  +#135#22't~'#2#2#129#0#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#227#226#230'HJK{{{{{{{{{BqCh'#207'h'#129#221#130#129#221#130'e'
+  +#206'f'#0#0''#3#24#221#1#9#172#217#146'#'#255#132#18'R~'#2#2#129#0#255#0#255
+  +'HJK'#206#202#206#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'HJK{{'
+  +'{{{{{{{{{{F'#134'FV'#197'W'#4#3'I'#188'I'#0#0''#20'7'#255#4#17#188#206#139
+  +#24#28#26#144#28#26#144#255#0#255#255#0#255'HJK'#212#208#212#207#202#207#203
+  +#197#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134#134#134
+  +#134#146#146#146'{{{'#4#8#150'$<'#221#7#8#140#0#0''#28'?'#255#6#19#188#6#6
+  +#132#3#20#204#1#10#172#28#26#144#255#0#255'HJK'#217#213#216#212#208#212#207
+  +#202#207#203#197#202'HJK'#237#237#239'HJK{{{{{{{{{ooo'#134#134#134#5#9#150'W'
+  +'r'#247'8P'#230#0#1#135'(J'#255#8#22#188#9#27#204#19'6'#255#3#20#204#28#25
+  +#143#255#0#255'HJK'#222#218#221#217#213#217#233#231#234#207#202#207'HJK'#238
+  +#237#240'HJK'#140#140#140#140#140#140#146#146#146'{{{{{{{{{'#5#9#150'Zu'#247
+  +'<V'#238'9Z'#255'#D'#247',N'#255#9#27#204#6#6#132#255#0#255#255#0#255'HJK'
+  +#227#224#227#238#237#238#156#154#156#211#207#211'HJK'#237#237#239'HJKTVWcddn'
+  +'nn'#140#140#140#4#3''#4#3'%1'#188'.D'#221'n'#137#255'd'#128#255'Qp'#255
+  +'''F'#247#10#24#188#6#20#188#3#16#188#0#0'HJK'#231#230#231#144#144#146#158
+  +#157#158#216#212#216'HJK'#206#207#208#207#207#207#134#135#135'ceeNPQMOP'#4#3
+  +''#151#171#255#137#159#255'z'#147#255#130#153#255'x'#145#255'g'#130#255'@`'
+  +#255'1S'#255'#F'#255#17'4'#255#0#0'HJK'#237#235#237#146#146#147#227#224#226
+  +#255#255#255#176#176#178'QRSUVWuvw'#169#170#170#211#211#212#189#189#191#0#0
+  +''#0#0''#0#0'EU'#213#157#176#255#132#156#255'u'#143#255'D^'#238#1#1#135#0
+  +#0''#0#0''#28#24#140'HJK'#240#240#242#237#235#237#255#255#255#233#233#235
+  +#226#225#229#220#217#221#191#187#191#151#149#152'onrXYZNPQhij'#147#149#150'P'
+  +'['#204#192#204#255'BP'#204#129#153#255'3E'#213'f'#247'D['#230#8#9#139#255#0
+  +#255#255#0#255'HJK'#246#246#246#255#255#255#238#238#240#242#242#244#238#237
+  +#239#229#227#231#217#215#218#203#199#204#189#183#189#173#167#173#153#145#151
+  +#153#145#151#4#3''#220#227#255'R\'#204#0#0''#146#167#255'+5'#188#7#11#150
+  +'i'#129#247'5K'#221#6#6#131#255#0#255'HJK'#255#255#255#237#237#239#248#248
+  +#250#251#251#252#246#244#247#234#234#237#221#220#224#207#204#208#192#187#193
+  +#176#170#176#160#152#158'HJK'#4#3',1'#172#28#24#139#0#0''#163#181#255'1;'
+  ,#188#28#24#139#8#12#150#7#11#150#255#0#255#255#0#255#255#0#255'HJKHJK'#233
+  +#233#234#252#252#252#246#246#247#235#234#238#222#220#224#208#204#208#193#187
+  +#193'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#0#0''#178#194#255'7A'
+  +#188#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#6#5#131#16#21#157#6#8#142#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#0#0
+]);
+LazarusResources.Add('TROIPHTTPSERVER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#255#0#255#153'c@'#149'^<'#153'c@'#146']Hmk?H'#146'>'#255
+  +#0#255#255#0#255#255#0#255#255#0#255'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#185
+  +'x='#185'x='#173'e'''#171'P'#20'jb'#30'$'#137'!1'#153'1@'#157'?@'#157'?'#255
+  +#0#255#255#0#255'@'#0#192#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'@'#0#192
+  +'@@@'#231#129#22#227'm'#3#224']'#0#144'Z'#0#2'h'#0#0'k'#0#0'l'#0#15#134#15'@'
+  +#139'5H'#146'>'#255#0#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192
+  +'@@@'#252#134#15#237#135#15#186'~'#7'R~'#2#18'z'#1#9'n'#0#0'l'#0#0'p'#0#5's'
+  +#4#151'6'#1#255#0#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@'
+  +#207#146'#`'#137#14'l'#143#22#217#146'#'#255#135#22#186'~'#7'>x'#0#17'w'#0#28
+  +'['#1'lB'#22#136'2'#7'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@:'
+  +#151#26'E'#153'"'#255#170'P'#255#161'B'#251#153'1'#255#140#28#255#128#9#237
+  +'n'#1#194'P'#4#144'8'#11#145'9'#12'@'#0#192#255#255#255'@'#0#192'@'#0#192'@'
+  +#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0
+  +#192'@@@'#22#166'%'#172#177'Q'#255#188'{'#251#177'_'#251#166'H'#251#153'1'
+  +#255#138#25#255'{'#4#224'e'#2#171'P'#20#150'='#14'@'#0#192#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'@'#0#192'@@@;'#189'H'#194'a'#215#201#134#239
+  +#192'{'#251#177'_'#246#163'C'#240#147'&'#251#132#12#215'r'#2'tb'#3'lB'#22'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'~'#204'kl'#215'sl'#215'sn'#203'g'#194'av'
+  +#173'Dh'#156'('#185#149'&'#255#135#22#168'z'#3#13#131#0'#c'#5'HJK'#196#189
+  +#194#192#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{'#169'~H'
+  +#192#191'ju'#218'{'#156#238#158#156#238#158'i'#213'oA'#189'H'#22#166'%'#26
+  +#152#23#185#149'&'#255#137#28#168'z'#3#13#131#0#2'}'#0'HJK'#198#193#198#194
+  +#189#194#192#186#192#189#183#189'HJK'#222#221#225'HJK{{{{{{{{{\'#191'Ux'#219
+  +'|'#165#241#165#165#241#165'u'#218'{O'#193'Q%'#168')R'#156'$'#242#154'3'#255
+  +#135#22't~'#2#2#129#0#255#0#255'HJK'#203#197#203#198#192#198#194#188#194#192
+  +#186#192'HJK'#227#226#230'HJK{{{{{{{{{BqCh'#207'h'#129#221#130#129#221#130'e'
+  +#206'fD'#186'E'#28#163'#:'#151#26#217#146'#'#255#132#18'R~'#2#2#129#0#255#0
+  +#255'HJK'#206#202#206#202#197#202#198#193#198#196#188#196'HJK'#231#230#234'H'
+  +'JK{{{{{{{{{{{{F'#134'FV'#197'WV'#197'WI'#188'I2'#172'3'#12#153#22'#'#139#12
+  +#206#139#24#255'~'#10#255'~'#10#255#0#255#255#0#255'HJK'#212#208#212#207#202
+  +#207#203#197#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134
+  +#134#134#134#146#146#146'{{{BqC.q0%'#168')'#26#152#23#6#139#8'`'#137#14#244
+  +#132#16#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#217#213#216#212#208#212
+  +#207#202#207#203#197#202'HJK'#237#237#239'HJK{{{{{{{{{ooo'#134#134#134#134
+  +#134#134#167#167#167'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#255#0#255'HJK'#222#218#221#217#213#217#233#231#234#207
+  +#202#207'HJK'#238#237#240'HJK'#140#140#140#140#140#140#146#146#146'{{{{{{{{{'
+  +#143#143#143'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255'HJK'#227#224#227#238#237#238#156#154#156#211#207#211'HJ'
+  +'K'#237#237#239'HJKTVWcddnnn'#140#140#140#140#140#140#140#140#140#166#166#166
+  +'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255'HJK'#231#230#231#144#144#146#158#157#158#216#212#216'HJK'#206#207
+  +#208#207#207#207#134#135#135'ceeNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#237
+  +#235#237#146#146#147#227#224#226#255#255#255#176#176#178'QRSUVWuvw'#169#170
+  +#170#211#211#212#189#189#191''#128#129'[\]JLMHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#240#240#242#237
+  +#235#237#255#255#255#233#233#235#226#225#229#220#217#221#191#187#191#151#149
+  +#152'onrXYZNPQhij'#147#149#150#208#209#209'HJK'#255#0#255#255#0#255#255#0#255
+  +#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255'HJK'#246#246#246#255#255#255#238
+  +#238#240#242#242#244#238#237#239#229#227#231#217#215#218#203#199#204#189#183
+  +#189#173#167#173#153#145#151#153#145#151'zsuHJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255'HJK'#255#255#255#237
+  +#237#239#248#248#250#251#251#252#246#244#247#234#234#237#221#220#224#207#204
+  +#208#192#187#193#176#170#176#160#152#158'HJKHJK'#255#0#255#255#0#255#255#0
+  ,#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255'HJK'
+  +'HJK'#233#233#234#252#252#252#246#246#247#235#234#238#222#220#224#208#204#208
+  +#193#187#193'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#255
+  +#0#255'HJKHJKHJKHJKHJKHJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#0#0#0#255
+  +#0#255#0#0
+]);
+LazarusResources.Add('TROIPTCPSERVER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#255#0#255'@@@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'#142']Y'
+  +#142']Y'#142']Y'#142']Y'#128'PK@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@@@'#242#216
+  +#177#240#212#171#239#209#165#238#206#158#238#202#152#237#199#146#235#197#142
+  +#235#196#137#234#193#134#233#191#130#128'PK@'#0#192#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'@'#0#192'@@@'#231#183'y'#230#181'u'#230#180'r'#230#177
+  +'n'#229#176'k'#227#173'h'#227#172'e'#226#170'b'#226#169'^'#234#194#135#128'P'
+  +'K@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@'#246#226#197#243#222
+  +#189#243#218#182#183#180#164#7'9z'#182#175#154#238#206#157#238#202#151#235
+  +#199#145#235#197#140#128'PK@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192
+  +'@@@'#234#188#132#233#187#128#176#157'{'#7'9z'#9'b'#208#7'9z'#173#150'o'#229
+  +#173'j'#227#172'g'#237#201#147#128'PK@'#0#192#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255
+  +#255'@'#0#192'@@@'#248#235#215#188#192#191#7'9z'#15'j'#211#17't'#234#9'b'#208
+  +#7'9z'#182#177#158#239#208#160#238#204#154#128'PK@'#0#192#255#255#255'@'#0
+  +#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255
+  +#255#255#255'@'#0#192'@@@'#171#144't'#7'9z'#25'x'#216'6'#150#240'('#138#238
+  +#27''#235#12'e'#209#7'9z'#183#177#160#239#209#163#128'PK@'#0#192#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'@'#0#192'@@@'#7'9z'#7'9z'#7'9z@'#157#242'@'
+  +#157#242'5'#150#239#7'9z'#7'9z'#7'9z'#242#213#172#128'PK@'#0#192'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192#252#251#246#227#173'y'#128#196'w'#7'9z@'#157#242'@'#157#242'@'
+  +#157#242#7'9z'#246#225#196#244#222#189#242#218#182#128'PKHJK'#196#189#194#192
+  +#186#192#189#183#189#189#183#189'HJK'#217#215#218'HJK{{{{{{{{{'#209#146'm'
+  +#255#254#251#227#175'}'#226#173'{'#7'9z'#7'9z'#7'9z'#7'9z'#7'9z'#233#188#130
+  +#231#187#128#244#224#192#128'PKHJK'#198#193#198#194#189#194#192#186#192#189
+  +#183#189'HJK'#222#221#225'HJK{{{{{{{{{'#218#157'u'#255#255#255#254#254#252
+  +#254#251#250#254#250#244#252#247#239#251#244#233#251#242#227#250#239#221#248
+  +#235#215#247#231#207#246#227#201#128'PKHJK'#203#197#203#198#192#198#194#188
+  +#194#192#186#192'HJK'#227#226#230'HJK{{{{{{{{{'#218#157'u'#255#255#255#227
+  +#177#129#227#177#128#227#176''#226#173'}'#227#173'y'#225#171'x'#225#170'u'
+  +#225#169'r'#224#166'n'#247#233#211#128'PKHJK'#206#202#206#202#197#202#198#193
+  +#198#196#188#196'HJK'#231#230#234'HJK{{{{{{{{{'#231#171'y'#255#255#255#227
+  +#177#129#227#177#129#227#177#129#227#176''#227#175'}'#226#173'{'#226#172'x'
+  +#225#170'v'#225#169'r'#248#237#220#128'PKHJK'#212#208#212#207#202#207#203#197
+  +#202#198#192#198'HJK'#235#234#237'HJK'#134#134#134#134#134#134#134#134#134
+  +#231#171'y'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#254#252#255#252#250#254#250#244#252#247#240#251#244#234#251#242#229#128'PKH'
+  +'JK'#217#213#216#212#208#212#207#202#207#203#197#202'HJK'#237#237#239'HJK{{{'
+  +'{{{{{{'#231#171'y'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'
+  +#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#207#142'h'#128'PKHJK'
+  +#222#218#221#217#213#217#233#231#234#207#202#207'HJK'#238#237#240'HJK'#140
+  +#140#140#140#140#140#146#146#146'{{{{{{{{{'#143#143#143'HJK'#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#227#224
+  +#227#238#237#238#156#154#156#211#207#211'HJK'#237#237#239'HJKTVWcddnnn'#140
+  +#140#140#140#140#140#140#140#140#166#166#166'HJK'#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255'HJK'#231#230#231#144
+  +#144#146#158#157#158#216#212#216'HJK'#206#207#208#207#207#207#134#135#135'ce'
+  +'eNPQMOP\]]kkl'#146#146#146'HJK'#255#0#255#255#0#255#255#0#255#255#0#255#255
+  +#0#255#255#0#255#255#0#255#255#0#255'HJK'#237#235#237#146#146#147#227#224#226
+  +#255#255#255#176#176#178'QRSUVWuvw'#169#170#170#211#211#212#189#189#191''
+  +#128#129'[\]JLMHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
+  +#255#255#0#255#255#0#255'HJK'#240#240#242#237#235#237#255#255#255#233#233#235
+  +#226#225#229#220#217#221#191#187#191#151#149#152'onrXYZNPQhij'#147#149#150
+  +#208#209#209'HJK'#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#255#0
+  +#255#255#0#255'HJK'#246#246#246#255#255#255#238#238#240#242#242#244#238#237
+  +#239#229#227#231#217#215#218#203#199#204#189#183#189#173#167#173#153#145#151
+  +#153#145#151'zsuHJK'#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0#255
+  ,#0#0#0#255#0#255#255#0#255'HJK'#255#255#255#237#237#239#248#248#250#251#251
+  +#252#246#244#247#234#234#237#221#220#224#207#204#208#192#187#193#176#170#176
+  +#160#152#158'HJKHJK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0
+  +#255#0#255#0#0#0#0#0#0#255#0#255#255#0#255'HJKHJK'#233#233#234#252#252#252
+  +#246#246#247#235#234#238#222#220#224#208#204#208#193#187#193'HJKHJK'#255#0
+  +#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#0#255#0
+  +#255#0#0#0#255#0#255#0#0#0#255#0#255#255#0#255#255#0#255'HJKHJKHJKHJKHJKHJKH'
+  +'JK'#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
+  +#255#0#255#255#0#255#0#0#0#255#0#255#0#0#0#0#0#0#255#0#255#0#0
+]);
+LazarusResources.Add('TROZEROCONFREGISTRATION','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#254#254#254'@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@@@'#253#253#253#254#254#254'||'#201#0#0#151'||'#201#254#254
+  +#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254'@'#0#192'@'
+  +#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@@@'#191#191#201#235#235#235#0#0#151#28'E'#232#0#0#151
+  +#254#254#254#255#255#255#11#12#157#18#18#159#204#204#234#255#255#255'@'#0#192
+  +#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'@'#0#192'@@@'#6#13#164#137#137
+  +#137#0#0#151'/T'#234#0#0#151#254#254#254#10#17#169#2'3'#249#17'9'#242#18#18
+  +#159#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@@@1Y'
+  +#249#4#10#164#0#0#151'Ac'#235#0#0#151#3#9#165#13';'#246#20'>'#231#5'5'#246#11
+  +#12#157#255#255#255'@'#0#192#255#255#255'@'#0#192'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@@@u'
+  +#142#241'6]'#249#14#31#191'Tr'#237#8#27#191#24'D'#248'2W'#234#24'C'#241#10#17
+  +#168#239#239#248#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192'@@@b'#128#247'|'#148#241'Qr'#246'f'#129#239'>b'#245'Po'#237'+S'#243#3#10
+  +#166#254#254#254#255#255#255#255#255#255'@'#0#192#255#255#255'@'#0#192'@'#0
+  +#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255#255#255#255
+  +#255'@'#0#192'@@@'#20'$'#193'h'#133#247#131#154#242'x'#145#241'm'#136#240'Cf'
+  +#245#4#24#193#0#0#151#0#0#151#0#0#151'||'#201'@'#0#192#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'@'#0#192'@@@'#173#188#246#161#178#245#150#169#244
+  +#138#160#243''#150#242't'#141#241'i'#132#239'^z'#238'Sq'#237'Gh'#236#0#0#151
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192#0#0#151')5'#192#158#177#248#168#184#246#157
+  +#175#245#146#165#243'u'#143#245#21'%'#191#0#0#151#0#0#151#0#0#151'||'#202#0#0
+  +#0#254#254#254#254#254#254#254#254#254#254#254#254#254#254#254#223#223#223
+  +#154#154#154#159#159#159#249#249#249#246#246#246#244#244#244#15#20#166#163
+  +#181#252#198#208#249#145#166#249#176#190#246#143#164#247#153#171#244'i'#134
+  +#248#8#13#165#254#254#254#254#254#254#254#254#254#0#0#0#255#255#255#255#255
+  +#255#254#254#254#246#246#246#233#233#233#220#220#220#149#149#149#143#143#143
+  +#187#187#187#171#171#171'%,'#176#189#202#254#228#233#252#140#163#252'-8'#192
+  +#194#205#248'''4'#192#129#153#249#160#177#245'o'#139#248#16#21#168#239#239
+  +#248#255#255#255#0#0#0#254#254#254#249#249#249#216#216#216#160#160#160#140
+  +#140#140#155#155#155#169#169#169#139#139#139#208#208#208#21#22#159#196#208
+  +#255#253#254#254#163#182#254#14#18#164#0#0#151#213#220#250#0#0#151#11#14#164
+  +#135#159#250#167#183#246'[{'#251#12#13#157#254#254#254#0#0#0#250#250#250#191
+  +#191#191#136#136#136#149#149#149#184#184#184#253#253#253#241#241#241#150#150
+  +#150#222#222#222'&'''#168#162#180#250#188#203#255'.4'#182#246#246#246#0#0#151
+  +#231#235#252#0#0#151#165#165#165#16#20#164'q'#141#251''#148#244#18#18#158
+  +#255#255#255#254#254#254#215#215#215#139#139#139#151#151#151#170#170#170#254
+  +#254#254#254#254#254#254#254#254#180#180#180#164#164#164#202#202#232'%&'#167
+  +#21#22#161#252#252#252#193#193#193#0#0#151#249#250#254#0#0#151#165#165#166
+  +#149#149#158#8#10#154#10#12#153#173#174#205#253#253#253#250#250#250#148#148
+  +#148#152#152#152#153#153#153#211#211#211#255#255#255#254#254#254#255#255#255
+  +#237#237#237#147#147#147#241#241#241#254#254#254#254#254#254#222#222#222#153
+  +#153#153'yy'#198#0#0#151'||'#202#244#244#245't'#142#183'$'#140#253'&'#144#254
+  +'M'#128#197#241#242#244#242#242#242#145#145#145#157#157#157#155#155#155#225
+  +#225#225#254#254#254#254#254#254#254#254#254#254#254#254#187#187#187#189#189
+  +#189#252#252#252#233#233#233#146#146#146#203#203#203#254#254#254#254#254#254
+  +#254#254#254#249#250#251'''a'#215' x'#253'${'#253#13'`'#240#225#229#237#233
+  +#233#233#153#153#153#161#161#161#154#154#154#191#191#191#254#254#254#254#254
+  +#254#255#255#255#255#255#255#246#246#246#162#162#162#223#223#223#151#151#151
+  +#171#171#171#253#253#253#254#254#254#255#255#255#255#255#255#253#253#254'[q'
+  +#197'K'#128#234'I'#129#235'5^'#214#247#249#251#241#241#241#153#153#153#164
+  +#164#164#160#160#160#142#142#142#245#245#245#250#250#250#254#254#254#254#254
+  +#254#252#252#252#195#195#195#144#144#144#160#160#160#235#235#235#255#255#255
+  +#254#254#254#255#255#255#254#254#254#232#232#233#172#173#178''#132#173'}'
+  +#130#177#189#190#199#253#253#254#253#253#253#155#155#155#180#180#180#152#152
+  +#152#168#171#174#137#155#171#173#179#184#238#239#239#227#228#228#194#194#194
+  +#140#140#140#162#162#162#166#166#166#238#238#238#251#251#251#253#253#253#251
+  ,#251#251#233#233#233#150#150#150#136#136#136#135#135#135#137#137#137#169#169
+  +#171#254#254#254#254#254#254#205#205#205#177#177#177#183#185#189'-{'#223'('
+  +#147#254'$'#133#247#161#171#186#148#148#148#148#148#148#164#164#164#196#196
+  +#196#181#181#181#146#146#146#183#183#183#199#199#199#182#182#182#137#137#137
+  +#141#141#141#150#150#150#157#157#157#157#157#157#222#222#222#254#254#254#0#0
+  +#0#253#253#253#172#172#173#172#181#207#16'g'#247''''#254#26'q'#251'Y{'#189
+  +#150#150#150#172#172#172#192#192#192#254#254#254#252#252#252#172#172#172#160
+  +#160#160#151#151#151#153#153#153#155#155#155#160#160#160#166#166#166#171#171
+  +#171#191#191#191#255#255#255#0#0#0#0#0#0#254#254#254#254#254#254#219#224#241
+  +'/^'#222'Q'#135#237'7o'#228#148#161#207#154#154#155#205#205#205#255#255#255
+  +#254#254#254#254#254#254#253#253#253#202#202#202#176#176#176#185#185#185#187
+  +#187#187#182#182#182#167#167#167#208#208#208#255#255#255#254#254#254#0#0#0#0
+  +#0#0#255#255#255#255#255#255#254#254#255#201#207#241#156#167#231#169#177#230
+  +#250#251#253#250#250#251#254#254#254#255#255#255#254#254#254#255#255#255#255
+  +#255#255#255#255#255#249#249#249#225#225#225#213#213#213#227#227#227#251#251
+  +#251#255#255#255#254#254#254#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#255
+  +#255#255#255#255#255#254#254#255#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#255#255#255#255#255#255#254#254#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0
+]);
+LazarusResources.Add('TROZEROCONFBROWSER','BMP',[
+  'BM'#248#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
+  +#194#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#254#254#254'@@@@@@@@@@@@@@@@@'
+  +'@@@@@@@@@@@@@@@@@@@'#174#146#146#146'aT'#131'=!'#133'='#31#128';!'#144'^T'
+  +#174#147#147#245#241#241#254#254#254#254#254#254#254#254#254'@'#0#192'@'#0
+  +#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@@@'#177'W'#13#199'a'#0#168'Z'#13'2u1a_ '#174'K'#3#150'@'
+  +#16#128'J@'#213#199#199#255#255#255#255#255#255'@'#0#192#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'@'#0#192'@@@'#217's'#0#217's'#0'mv/#'#172'G#'#155'<'
+  +'}U zH'#30#174'H'#0#130'B.'#214#200#200#255#255#255'@'#0#192#255#255#255'@'#0
+  +#192#255#255#255'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192#255#255
+  +#255#255#255#255'@'#0#192'@@@'#235#133#0#235#133#0'l'#136'>0'#196'`*'#185'T4'
+  +#142'B'#160'X'#19#188'V'#0#175'I'#0#128'I@'#245#242#242'@'#0#192#255#255#255
+  +'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192#255#255#255#255#255#255
+  +'@'#0#192#255#255#255'@'#0#192'@@@'#252#151#2#242#144#4'G'#168'_8'#208'l4'
+  +#203'gO'#158'J'#206'k'#3#201'c'#0#187'U'#0#157'C'#13#175#147#147'@'#0#192#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255'@'#0#192#255#255#255#255
+  +#255#255'@'#0#192#255#255#255'@'#0#192'@@@'#214#135#29#215#149'!H'#192'l?'
+  +#215's:'#211'n5'#205'i^'#135'@'#212'n'#0#198'`'#0#182'P'#0#144'_T@'#0#192#255
+  +#255#255'@'#0#192'@'#0#192'@'#0#192#255#255#255#255#255#255'@'#0#192'@'#0#192
+  +#255#255#255#255#255#255'@'#0#192'@@@N'#218'{S'#181'lI'#226'}E'#221'y@'#216
+  +'t:'#210'n='#173'\'#161'i'#27#207'i'#0#160'L'#19'~;$@'#0#192#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'@'#0#192'@@@T'#237#135'S'#236#134'P'#232#131'K'
+  +#227'~D'#221'xC'#194'j'#136'w1u'#137'6'#207'l'#3'Ui'#28'w9)@'#0#192'@'#0#192
+  +'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0#192'@'#0
+  +#192'@'#0#192#150#169']\'#224#134'Z'#243#141'U'#238#137'O'#231#130'H'#224'{e'
+  +#159'TD'#169'^G'#167'S'#133'a#'#27#139',UB.'#0#0#0#254#254#254#254#254#254
+  +#254#254#254#254#254#254#254#254#254#223#223#223#154#154#154#159#159#159#155
+  +'o['#255#196'A'#255#212'X'#213#189'bk'#177'p`'#228#137'Y'#241#140'U'#199'uQ'
+  +#179'icyJ:'#211'nR'#140'K%'#175'J'#23#148'/xhX'#0#0#0#255#255#255#255#255#255
+  +#254#254#254#246#246#246#233#233#233#220#220#220#149#149#149#143#143#143#143
+  +'ss'#217#164'C'#255#216'_'#255#233'x'#213#205'{c'#162'if'#179'm'#199#167'I'
+  +#201#141'8~'#145'I:'#210'n2'#200'd%'#175'J,~2'#175#147#147#0#0#0#254#254#254
+  +#249#249#249#216#216#216#160#160#160#140#140#140#155#155#155#169#169#169#139
+  +#139#139#201#198#198#138'[H'#255#214'['#255#229'r'#255#240#130#245#210'g'#200
+  +#178'L'#178#150'EG'#217'wB'#206'o9'#209'm0'#196'`#'#171'FlWH'#245#241#241#0#0
+  +#0#250#250#250#191#191#191#136#136#136#149#149#149#184#184#184#253#253#253
+  +#241#241#241#150#150#150#222#222#222#213#199#199#156'mH'#255#217'`'#255#224
+  +'j'#255#222'g'#226#201'aq'#218's['#167'\='#213'q='#187'd4'#173'UZaB'#212#198
+  +#198#255#255#255#254#254#254#215#215#215#139#139#139#151#151#151#170#170#170
+  +#254#254#254#254#254#254#254#254#254#180#180#180#164#164#164#252#252#252#213
+  +#199#199#142'_L'#217#170'L'#255#206'O'#244#193'K'#237#192'S'#231#189'O'#171
+  +#143'2'#154'p.sC='#134#130#139#216#217#218#253#253#253#250#250#250#148#148
+  +#148#152#152#152#153#153#153#211#211#211#255#255#255#254#254#254#255#255#255
+  +#237#237#237#147#147#147#241#241#241#254#254#254#245#241#241#156''#135']I'
+  +#157'c4'#164'f/'#157'])'#154'jTnf}('#134#240'&'#144#254'M'#128#197#241#242
+  +#244#242#242#242#145#145#145#157#157#157#155#155#155#225#225#225#254#254#254
+  +#254#254#254#254#254#254#254#254#254#187#187#187#189#189#189#252#252#252#233
+  +#233#233#146#146#146#203#203#203#254#254#254#254#254#254#254#254#254#249#250
+  +#251'''a'#215' x'#253'${'#253#13'`'#240#225#229#237#233#233#233#153#153#153
+  +#161#161#161#154#154#154#191#191#191#254#254#254#254#254#254#255#255#255#255
+  +#255#255#246#246#246#162#162#162#223#223#223#151#151#151#171#171#171#253#253
+  +#253#254#254#254#255#255#255#255#255#255#253#253#254'[q'#197'K'#128#234'I'
+  +#129#235'5^'#214#247#249#251#241#241#241#153#153#153#164#164#164#160#160#160
+  +#142#142#142#245#245#245#250#250#250#254#254#254#254#254#254#252#252#252#195
+  +#195#195#144#144#144#160#160#160#235#235#235#255#255#255#254#254#254#255#255
+  +#255#254#254#254#232#232#233#172#173#178''#132#173'}'#130#177#189#190#199
+  +#253#253#254#253#253#253#155#155#155#180#180#180#152#152#152#168#171#174#137
+  +#155#171#173#179#184#238#239#239#227#228#228#194#194#194#140#140#140#162#162
+  +#162#166#166#166#238#238#238#251#251#251#253#253#253#251#251#251#233#233#233
+  +#150#150#150#136#136#136#135#135#135#137#137#137#169#169#171#254#254#254#254
+  +#254#254#205#205#205#177#177#177#183#185#189'-{'#223'('#147#254'$'#133#247
+  +#161#171#186#148#148#148#148#148#148#164#164#164#196#196#196#181#181#181#146
+  ,#146#146#183#183#183#199#199#199#182#182#182#137#137#137#141#141#141#150#150
+  +#150#157#157#157#157#157#157#222#222#222#254#254#254#0#0#0#253#253#253#172
+  +#172#173#172#181#207#16'g'#247''''#254#26'q'#251'Y{'#189#150#150#150#172#172
+  +#172#192#192#192#254#254#254#252#252#252#172#172#172#160#160#160#151#151#151
+  +#153#153#153#155#155#155#160#160#160#166#166#166#171#171#171#191#191#191#255
+  +#255#255#0#0#0#0#0#0#254#254#254#254#254#254#219#224#241'/^'#222'Q'#135#237
+  +'7o'#228#148#161#207#154#154#155#205#205#205#255#255#255#254#254#254#254#254
+  +#254#253#253#253#202#202#202#176#176#176#185#185#185#187#187#187#182#182#182
+  +#167#167#167#208#208#208#255#255#255#254#254#254#0#0#0#0#0#0#255#255#255#255
+  +#255#255#254#254#255#201#207#241#156#167#231#169#177#230#250#251#253#250#250
+  +#251#254#254#254#255#255#255#254#254#254#255#255#255#255#255#255#255#255#255
+  +#249#249#249#225#225#225#213#213#213#227#227#227#251#251#251#255#255#255#254
+  +#254#254#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#255#255#255#255#255#255
+  +#254#254#255#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#255#255
+  +#255#255#255#255#254#254#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Glyphs.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Glyphs.res
new file mode 100644
index 0000000..6d65489
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Mac.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Mac.lpk
new file mode 100644
index 0000000..0ff2cdf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Mac.lpk	
@@ -0,0 +1,122 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <Name Value="RemObjects_Synapse_Lazarus_Mac"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="$(LazarusDir)/lcl/units/$(TargetCPU)-$(TargetOS)/;Synapse/"/>
+        <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - Synapse based Channels"/>
+    <Files Count="22">
+      <Item1>
+        <Filename Value="RemObjects_Synapse_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Synapse_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uIPAsyncHttpServer.pas"/>
+        <UnitName Value="uIPAsyncHttpServer"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uIPAsyncSocket.pas"/>
+        <UnitName Value="uIPAsyncSocket"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uROIpHttpServer.pas"/>
+        <UnitName Value="uROIpHttpServer"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uROIpSuperHttpServer.pas"/>
+        <UnitName Value="uROIpSuperHttpServer"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uROIpTcpServer.pas"/>
+        <UnitName Value="uROIpTcpServer"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uROSynapseHTTPChannel.pas"/>
+        <UnitName Value="uROSynapseHTTPChannel"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uROSynapseSCHelpers.pas"/>
+        <UnitName Value="uROSynapseSCHelpers"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uROSynapseServerSocket.pas"/>
+        <UnitName Value="uROSynapseServerSocket"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROSynapseSuperHttpChannel.pas"/>
+        <UnitName Value="uROSynapseSuperHttpChannel"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROSynapseSuperTCPChannel.pas"/>
+        <UnitName Value="uROSynapseSuperTCPChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROSynapseSuperTCPServer.pas"/>
+        <UnitName Value="uROSynapseSuperTCPServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROZeroConfHubSynapse.pas"/>
+        <UnitName Value="uROZeroConfHubSynapse"/>
+      </Item13>
+      <Item14>
+        <Filename Value="Synapse/blcksock.pas"/>
+        <UnitName Value="blcksock"/>
+      </Item14>
+      <Item15>
+        <Filename Value="Synapse/httpsend.pas"/>
+        <UnitName Value="httpsend"/>
+      </Item15>
+      <Item16>
+        <Filename Value="Synapse/synacode.pas"/>
+        <UnitName Value="synacode"/>
+      </Item16>
+      <Item17>
+        <Filename Value="Synapse/synautil.pas"/>
+        <UnitName Value="synautil"/>
+      </Item17>
+      <Item18>
+        <Filename Value="Synapse/synsock.pas"/>
+        <UnitName Value="synsock"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROZeroConf.pas"/>
+        <UnitName Value="uROZeroConf"/>
+      </Item19>
+      <Item20>
+        <Filename Value="Synapse/ldapsend.pas"/>
+        <UnitName Value="ldapsend"/>
+      </Item20>
+      <Item21>
+        <Filename Value="Synapse/asn1util.pas"/>
+        <UnitName Value="asn1util"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROLDAP.pas"/>
+        <UnitName Value="uROLDAP"/>
+      </Item22>      
+    </Files>     
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Mac"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Unix.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Unix.lpk
new file mode 100644
index 0000000..0e4c3df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Unix.lpk	
@@ -0,0 +1,133 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Synapse_Lazarus_Unix"/>
+    <CompilerOptions>
+      <Version Value="5"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="$(LazarusDir)\lcl\units\$(TargetCPU)-$(TargetOS)\;Synapse/"/>
+        <UnitOutputDirectory Value="units\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Parsing>
+        <SyntaxOptions>
+          <D2Extensions Value="False"/>
+        </SyntaxOptions>
+      </Parsing>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Description Value="RemObjects SDK - Synapse based Channels"/>
+    <Files Count="22">
+      <Item1>
+        <Filename Value="RemObjects_Synapse_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Synapse_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uIPAsyncHttpServer.pas"/>
+        <UnitName Value="uIPAsyncHttpServer"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uIPAsyncSocket.pas"/>
+        <UnitName Value="uIPAsyncSocket"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uROIpHttpServer.pas"/>
+        <UnitName Value="uROIpHttpServer"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uROIpSuperHttpServer.pas"/>
+        <UnitName Value="uROIpSuperHttpServer"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uROIpTcpServer.pas"/>
+        <UnitName Value="uROIpTcpServer"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uROSynapseHTTPChannel.pas"/>
+        <UnitName Value="uROSynapseHTTPChannel"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uROSynapseSCHelpers.pas"/>
+        <UnitName Value="uROSynapseSCHelpers"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uROSynapseServerSocket.pas"/>
+        <UnitName Value="uROSynapseServerSocket"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROSynapseSuperHttpChannel.pas"/>
+        <UnitName Value="uROSynapseSuperHttpChannel"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROSynapseSuperTCPChannel.pas"/>
+        <UnitName Value="uROSynapseSuperTCPChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROSynapseSuperTCPServer.pas"/>
+        <UnitName Value="uROSynapseSuperTCPServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROZeroConfHubSynapse.pas"/>
+        <UnitName Value="uROZeroConfHubSynapse"/>
+      </Item13>
+      <Item14>
+        <Filename Value="Synapse/blcksock.pas"/>
+        <UnitName Value="blcksock"/>
+      </Item14>
+      <Item15>
+        <Filename Value="Synapse/httpsend.pas"/>
+        <UnitName Value="httpsend"/>
+      </Item15>
+      <Item16>
+        <Filename Value="Synapse/synacode.pas"/>
+        <UnitName Value="synacode"/>
+      </Item16>
+      <Item17>
+        <Filename Value="Synapse/synautil.pas"/>
+        <UnitName Value="synautil"/>
+      </Item17>
+      <Item18>
+        <Filename Value="Synapse/synsock.pas"/>
+        <UnitName Value="synsock"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROZeroConf.pas"/>
+        <UnitName Value="uROZeroConf"/>
+      </Item19>
+      <Item20>
+        <Filename Value="Synapse/ldapsend.pas"/>
+        <UnitName Value="ldapsend"/>
+      </Item20>
+      <Item21>
+        <Filename Value="Synapse/asn1util.pas"/>
+        <UnitName Value="asn1util"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROLDAP.pas"/>
+        <UnitName Value="uROLDAP"/>
+      </Item22>      
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Unix"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Windows.lpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Windows.lpk
new file mode 100644
index 0000000..5ecb895
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Lazarus_Windows.lpk	
@@ -0,0 +1,126 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="RemObjects_Synapse_Lazarus_Windows"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <OtherUnitFiles Value="Synapse\;Codegen\"/>
+        <UnitOutputDirectory Value="..\Dcu\Lazarus\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="22">
+      <Item1>
+        <Filename Value="RemObjects_Synapse_Reg.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="RemObjects_Synapse_Reg"/>
+      </Item1>
+      <Item2>
+        <Filename Value="uIPAsyncHttpServer.pas"/>
+        <UnitName Value="uIPAsyncHttpServer"/>
+      </Item2>
+      <Item3>
+        <Filename Value="uIPAsyncSocket.pas"/>
+        <UnitName Value="uIPAsyncSocket"/>
+      </Item3>
+      <Item4>
+        <Filename Value="uROIpHttpServer.pas"/>
+        <UnitName Value="uROIpHttpServer"/>
+      </Item4>
+      <Item5>
+        <Filename Value="uROIpSuperHttpServer.pas"/>
+        <UnitName Value="uROIpSuperHttpServer"/>
+      </Item5>
+      <Item6>
+        <Filename Value="uROIpTcpServer.pas"/>
+        <UnitName Value="uROIpTcpServer"/>
+      </Item6>
+      <Item7>
+        <Filename Value="uROSynapseHTTPChannel.pas"/>
+        <UnitName Value="uROSynapseHTTPChannel"/>
+      </Item7>
+      <Item8>
+        <Filename Value="uROSynapseSCHelpers.pas"/>
+        <UnitName Value="uROSynapseSCHelpers"/>
+      </Item8>
+      <Item9>
+        <Filename Value="uROSynapseServerSocket.pas"/>
+        <UnitName Value="uROSynapseServerSocket"/>
+      </Item9>
+      <Item10>
+        <Filename Value="uROSynapseSuperHttpChannel.pas"/>
+        <UnitName Value="uROSynapseSuperHttpChannel"/>
+      </Item10>
+      <Item11>
+        <Filename Value="uROSynapseSuperTCPChannel.pas"/>
+        <UnitName Value="uROSynapseSuperTCPChannel"/>
+      </Item11>
+      <Item12>
+        <Filename Value="uROSynapseSuperTCPServer.pas"/>
+        <UnitName Value="uROSynapseSuperTCPServer"/>
+      </Item12>
+      <Item13>
+        <Filename Value="uROZeroConfHubSynapse.pas"/>
+        <UnitName Value="uROZeroConfHubSynapse"/>
+      </Item13>
+      <Item14>
+        <Filename Value="Synapse\blcksock.pas"/>
+        <UnitName Value="blcksock"/>
+      </Item14>
+      <Item15>
+        <Filename Value="Synapse\httpsend.pas"/>
+        <UnitName Value="httpsend"/>
+      </Item15>
+      <Item16>
+        <Filename Value="Synapse\synacode.pas"/>
+        <UnitName Value="synacode"/>
+      </Item16>
+      <Item17>
+        <Filename Value="Synapse\synautil.pas"/>
+        <UnitName Value="synautil"/>
+      </Item17>
+      <Item18>
+        <Filename Value="Synapse\synsock.pas"/>
+        <UnitName Value="synsock"/>
+      </Item18>
+      <Item19>
+        <Filename Value="uROZeroConf.pas"/>
+        <UnitName Value="uROZeroConf"/>
+      </Item19>
+      <Item20>
+        <Filename Value="Synapse\ldapsend.pas"/>
+        <UnitName Value="ldapsend"/>
+      </Item20>
+      <Item21>
+        <Filename Value="Synapse\asn1util.pas"/>
+        <UnitName Value="asn1util"/>
+      </Item21>
+      <Item22>
+        <Filename Value="uROLDAP.pas"/>
+        <UnitName Value="uROLDAP"/>
+      </Item22>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="3">
+      <Item1>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="LCL"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item3>
+    </RequiredPkgs>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Reg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Reg.pas
new file mode 100644
index 0000000..79f2475
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_Reg.pas	
@@ -0,0 +1,50 @@
+unit RemObjects_Synapse_Reg;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Synapse Components                                }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  Classes,
+  uROSynapseHTTPChannel, uROClasses, uRORes,
+  uROSynapseSuperHttpChannel, uIPAsyncSocket,
+  uIPAsyncHttpServer, uROIpSuperHttpServer,
+  uROIpHttpServer, uROIpTcpServer,
+  uROSynapseSuperTCPChannel, uROSynapseSuperTCPServer, uROZeroConf;
+
+{$IFNDEF FPC}
+  {$R RemObjects_Synapse_Glyphs.res}
+{$ENDIF}
+  
+procedure Register;
+begin
+  RegisterComponents(str_ProductName,
+                     [TROSynapseHTTPChannel, TROSynapseSuperHTTPChannel, TROIpSuperHTTPServer,
+                      TROSynapseSuperTCPServer, TROSynapseSuperTCPChannel, TROIpTCPServer, TROIpHTTPServer,
+                      TROZeroConfRegistration, TROZeroConfBrowser]);
+
+end;
+
+{$IFDEF FPC}
+initialization
+  {$i RemObjects_Synapse_Glyphs.lrs}
+{$ENDIF}
+end.
+ 
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.dpk
new file mode 100644
index 0000000..f4d0af8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.dpk	
@@ -0,0 +1,61 @@
+package RemObjects_Synapse_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - Synapse based Channels'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D14;
+
+contains
+  RemObjects_Synapse_Reg in 'RemObjects_Synapse_Reg.pas',
+  uROSynapseHTTPChannel in 'uROSynapseHTTPChannel.pas',
+  synsock in 'Synapse\synsock.pas',
+  blcksock in 'Synapse\blcksock.pas',
+  httpsend in 'Synapse\httpsend.pas',
+  synacode in 'Synapse\synacode.pas',
+  synafpc in 'Synapse\synafpc.pas',
+  synaip in 'Synapse\synaip.pas',
+  synautil in 'Synapse\synautil.pas',
+  uIPAsyncSocket in 'uIPAsyncSocket.pas',
+  uIPAsyncHttpServer in 'uIPAsyncHttpServer.pas',
+  uROIpSuperHttpServer in 'uROIpSuperHttpServer.pas',
+  uROSynapseSuperHttpChannel in 'uROSynapseSuperHttpChannel.pas',
+  uROSynapseSCHelpers in 'uROSynapseSCHelpers.pas',
+  uROSynapseServerSocket in 'uROSynapseServerSocket.pas',
+  uROSynapseSuperTCPCHannel in 'uROSynapseSuperTCPCHannel.pas',
+  uROSynapseSuperTCPServer in 'uROSynapseSuperTCPServer.pas',
+  uROIpHttpServer in 'uROIpHttpServer.pas',
+  uROIpTcpServer in 'uROIpTcpServer.pas',
+  uROZeroConf in 'uROZeroConf.pas',
+  uROZeroConfHubSynapse in 'uROZeroConfHubSynapse.pas',
+  ldapsend in 'Synapse\ldapsend.pas',
+  asn1util in 'Synapse\asn1util.pas',
+  uROLDAP in 'uROLDAP.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.dproj
new file mode 100644
index 0000000..aa22bee
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.dproj	
@@ -0,0 +1,115 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{5c79699f-2653-4670-a29a-e5e2459651b1}</ProjectGuid>
+			<MainSource>RemObjects_Synapse_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_Synapse_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D14\RemObjects_Synapse_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - Synapse based Channels</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_Synapse_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="inet.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="RemObjects_Synapse_Reg.pas"/>
+			<DCCReference Include="uROSynapseHTTPChannel.pas"/>
+			<DCCReference Include="Synapse\synsock.pas"/>
+			<DCCReference Include="Synapse\blcksock.pas"/>
+			<DCCReference Include="Synapse\httpsend.pas"/>
+			<DCCReference Include="Synapse\synacode.pas"/>
+			<DCCReference Include="Synapse\synafpc.pas"/>
+			<DCCReference Include="Synapse\synaip.pas"/>
+			<DCCReference Include="Synapse\synautil.pas"/>
+			<DCCReference Include="uIPAsyncSocket.pas"/>
+			<DCCReference Include="uIPAsyncHttpServer.pas"/>
+			<DCCReference Include="uROIpSuperHttpServer.pas"/>
+			<DCCReference Include="uROSynapseSuperHttpChannel.pas"/>
+			<DCCReference Include="uROSynapseSCHelpers.pas"/>
+			<DCCReference Include="uROSynapseServerSocket.pas"/>
+			<DCCReference Include="uROSynapseSuperTCPCHannel.pas"/>
+			<DCCReference Include="uROSynapseSuperTCPServer.pas"/>
+			<DCCReference Include="uROIpHttpServer.pas"/>
+			<DCCReference Include="uROIpTcpServer.pas"/>
+			<DCCReference Include="uROZeroConf.pas"/>
+			<DCCReference Include="uROZeroConfHubSynapse.pas"/>
+			<DCCReference Include="RemObjects_Core_D13.dcp"/>
+			<DCCReference Include="RemObjects_Core_D1.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">3</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">257</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription">ROServiceTester</VersionInfoKeys>
+						<VersionInfoKeys Name="FileVersion">3.0.0.257</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName">ROServiceTester</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalCopyright">Copyright RemObjects Software 2002</VersionInfoKeys>
+						<VersionInfoKeys Name="LegalTrademarks">RemObjects Software 2002</VersionInfoKeys>
+						<VersionInfoKeys Name="OriginalFilename">ROServiceTester.exe</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Compile Date">Sunday, March 21, 2004 5:55 PM</VersionInfoKeys>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_Synapse_D14.dpk</Source>
+					</Source>
+					<isVersionControl>
+						<isVersionControl Name="isVersionControlID"/>
+					</isVersionControl>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_Synapse_d14.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.bdsproj
new file mode 100644
index 0000000..e539593
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.bdsproj	
@@ -0,0 +1,181 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality" Type="String">Delphi.Personality</Option>
+			<Option Name="ProjectType" Type="String"></Option>
+			<Option Name="Version" Type="String">1.0</Option>
+			<Option Name="GUID" Type="String">{9661820C-D398-4219-806E-11B42219A50F}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource" Type="String">RemObjects_WebBroker_D10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version" Type="String">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A" Type="Integer">8</Compiler>
+			<Compiler Name="B" Type="Integer">0</Compiler>
+			<Compiler Name="C" Type="Integer">1</Compiler>
+			<Compiler Name="D" Type="Integer">1</Compiler>
+			<Compiler Name="E" Type="Integer">0</Compiler>
+			<Compiler Name="F" Type="Integer">0</Compiler>
+			<Compiler Name="G" Type="Integer">1</Compiler>
+			<Compiler Name="H" Type="Integer">1</Compiler>
+			<Compiler Name="I" Type="Integer">1</Compiler>
+			<Compiler Name="J" Type="Integer">0</Compiler>
+			<Compiler Name="K" Type="Integer">0</Compiler>
+			<Compiler Name="L" Type="Integer">1</Compiler>
+			<Compiler Name="M" Type="Integer">0</Compiler>
+			<Compiler Name="N" Type="Integer">1</Compiler>
+			<Compiler Name="O" Type="Integer">1</Compiler>
+			<Compiler Name="P" Type="Integer">1</Compiler>
+			<Compiler Name="Q" Type="Integer">0</Compiler>
+			<Compiler Name="R" Type="Integer">0</Compiler>
+			<Compiler Name="S" Type="Integer">0</Compiler>
+			<Compiler Name="T" Type="Integer">0</Compiler>
+			<Compiler Name="U" Type="Integer">0</Compiler>
+			<Compiler Name="V" Type="Integer">1</Compiler>
+			<Compiler Name="W" Type="Integer">0</Compiler>
+			<Compiler Name="X" Type="Integer">1</Compiler>
+			<Compiler Name="Y" Type="Integer">1</Compiler>
+			<Compiler Name="Z" Type="Integer">1</Compiler>
+			<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
+			<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitAliases" Type="String">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix" Type="String"></Compiler>
+			<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
+			<Compiler Name="DefaultNamespace" Type="String"></Compiler>
+			<Compiler Name="SymbolDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="SymbolExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitLibrary" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitPlatform" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitDeprecated" Type="Boolean">False</Compiler>
+			<Compiler Name="UnitExperimental" Type="Boolean">False</Compiler>
+			<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
+			<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
+			<Compiler Name="Garbage" Type="Boolean">True</Compiler>
+			<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
+			<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
+			<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
+			<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
+			<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
+			<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
+			<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
+			<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
+			<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
+			<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
+			<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
+			<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
+			<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
+			<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
+			<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
+			<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
+			<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
+			<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
+			<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
+			<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
+			<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
+			<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
+			<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
+			<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
+			<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
+			<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile" Type="Integer">0</Linker>
+			<Linker Name="OutputObjs" Type="Integer">0</Linker>
+			<Linker Name="ConsoleApp" Type="Integer">1</Linker>
+			<Linker Name="DebugInfo" Type="Boolean">False</Linker>
+			<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
+			<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
+			<Linker Name="MinStackSize" Type="Integer">16384</Linker>
+			<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
+			<Linker Name="ImageBase" Type="Integer">4194304</Linker>
+			<Linker Name="ExeDescription" Type="String">RemObjects SDK - WebBroker Library</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir" Type="String"></Directories>
+			<Directories Name="UnitOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDLLOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="PackageDCPOutputDir" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="SearchPath" Type="String">..\Dcu\D10</Directories>
+			<Directories Name="Packages" Type="String"></Directories>
+			<Directories Name="Conditionals" Type="String">DESIGNTIME</Directories>
+			<Directories Name="DebugSourceDirs" Type="String"></Directories>
+			<Directories Name="UsePackages" Type="Boolean">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams" Type="String"></Parameters>
+			<Parameters Name="HostApplication" Type="String"></Parameters>
+			<Parameters Name="Launcher" Type="String"></Parameters>
+			<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
+			<Parameters Name="DebugCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteHost" Type="String"></Parameters>
+			<Parameters Name="RemotePath" Type="String"></Parameters>
+			<Parameters Name="RemoteLauncher" Type="String"></Parameters>
+			<Parameters Name="RemoteCWD" Type="String"></Parameters>
+			<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="MajorVer" Type="Integer">4</VersionInfo>
+			<VersionInfo Name="MinorVer" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
+			<VersionInfo Name="Build" Type="Integer">404</VersionInfo>
+			<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
+			<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
+			<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
+		</VersionInfo>
+		<Language>
+			<Language Name="ActiveLang" Type="String"></Language>
+			<Language Name="ProjectLang" Type="String">$00000000</Language>
+			<Language Name="RootDir" Type="String"></Language>
+		</Language>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+	<ModelSupport>True</ModelSupport>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.cfg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.cfg
new file mode 100644
index 0000000..05ca7ed
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.cfg	
@@ -0,0 +1,53 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\Dcu\D10"
+-LE"..\Dcu\D10"
+-LN"..\Dcu\D10"
+-U"..\Dcu\D10"
+-O"..\Dcu\D10"
+-I"..\Dcu\D10"
+-R"..\Dcu\D10"
+-DDESIGNTIME
+-Z
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-SYMBOL_EXPERIMENTAL
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNIT_EXPERIMENTAL
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.dpk
new file mode 100644
index 0000000..5302175
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.dpk	
@@ -0,0 +1,41 @@
+package RemObjects_WebBroker_D10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - WebBroker Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{%TogetherDiagram 'ModelSupport_RemObjects_WebBroker_D10\default.txaPackage'}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  designide,
+  RemObjects_Core_D10;
+
+contains
+  RemObjects_WebBroker_Reg in 'RemObjects_WebBroker_Reg.pas',
+  uROWebBrokerServer in 'uROWebBrokerServer.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.res
new file mode 100644
index 0000000..fe0f936
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D10.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.dpk
new file mode 100644
index 0000000..2b9cb67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.dpk	
@@ -0,0 +1,41 @@
+package RemObjects_WebBroker_D11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - WebBroker Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+{$DEFINE RELEASE}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  designide,
+  RemObjects_Core_D11;
+
+contains
+  RemObjects_WebBroker_Reg in 'RemObjects_WebBroker_Reg.pas',
+  uROWebBrokerServer in 'uROWebBrokerServer.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.dproj
new file mode 100644
index 0000000..84b2544
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.dproj	
@@ -0,0 +1,560 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{850d4f71-0ea3-4073-a632-8eafa8318d76}</ProjectGuid>
+    <MainSource>RemObjects_WebBroker_D11.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\Dcu\D11\RemObjects_WebBroker_D11.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>DESIGNTIME;RELEASE</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
+    <DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
+    <DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
+    <DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
+    <DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
+    <DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
+    <DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
+    <DCC_Define>DESIGNTIME</DCC_Define>
+    <DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
+    <DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
+    <DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
+    <DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
+    <DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
+    <DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
+    <DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
+    <DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects SDK - WebBroker Library</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">6</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">43</VersionInfo><VersionInfo Name="Build">801</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">6.0.43.801</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemObjects_WebBroker_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="RemObjects_WebBroker_D11.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="designide.dcp" />
+    <DCCReference Include="inet.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="RemObjects_WebBroker_Reg.pas" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uROWebBrokerServer.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <None Include="ModelSupport_RemObjects_WebBroker_D10\default.txaPackage" />
+  </ItemGroup>
+</Project>
+
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6011
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.res
new file mode 100644
index 0000000..aef77e0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D11.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.dpk
new file mode 100644
index 0000000..235601c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.dpk	
@@ -0,0 +1,40 @@
+package RemObjects_WebBroker_D12;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - WebBroker Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  designide,
+  RemObjects_Core_D12;
+
+contains
+  RemObjects_WebBroker_Reg in 'RemObjects_WebBroker_Reg.pas',
+  uROWebBrokerServer in 'uROWebBrokerServer.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.dproj
new file mode 100644
index 0000000..d16da4e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.dproj	
@@ -0,0 +1,99 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{850d4f71-0ea3-4073-a632-8eafa8318d76}</ProjectGuid>
+			<MainSource>RemObjects_WebBroker_D12.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_WebBroker_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_WebBroker_D12.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - WebBroker Library</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_WebBroker_D12.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="inet.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<DCCReference Include="RemObjects_WebBroker_Reg.pas"/>
+			<DCCReference Include="uROWebBrokerServer.pas"/>
+			<None Include="ModelSupport_RemObjects_WebBroker_D10\default.txaPackage"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_WebBroker_D12.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D12.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.dof
new file mode 100644
index 0000000..fa3480e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.dof	
@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - WebBroker Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D5
+PackageDLLOutputDir=..\Dcu\D5
+PackageDCPOutputDir=..\Dcu\D5
+SearchPath=..\Dcu\D5
+Packages=
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=261
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.261
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+Comments=
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.dpk
new file mode 100644
index 0000000..46bd58d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.dpk	
@@ -0,0 +1,39 @@
+package RemObjects_WebBroker_D5;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - WebBroker Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D5;
+
+contains
+  RemObjects_WebBroker_Reg in 'RemObjects_WebBroker_Reg.pas',
+  uROWebBrokerServer in 'uROWebBrokerServer.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.res
new file mode 100644
index 0000000..1644e97
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D5.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.dof
new file mode 100644
index 0000000..a25bd14
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.dof	
@@ -0,0 +1,106 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - WebBroker Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D6
+PackageDLLOutputDir=..\Dcu\D6
+PackageDCPOutputDir=..\Dcu\D6
+SearchPath=..\Dcu\D6
+Packages=
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=261
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.261
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\Dev\DA3\Dcu\D6\DataAbstract_Core_D6.bpl=Data Abstract - Core Library
+C:\Dev\DA3\Dcu\D6\DataAbstract_IDE_D6.bpl=Data Abstract - IDE Package
+C:\Dev\DA3\Dcu\D6\DataAbstract_ADODriver_D6.bpl=Data Abstract - ADOExpress/dbGo Driver
+[HistoryLists\hlConditionals]
+Count=2
+Item0=DESIGNTIME
+Item1=Development
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=1
+Item0=..\Dcu\D6
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=..\Dcu\D6
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=..\Dcu\D6
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=..\Dcu\D6
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.dpk
new file mode 100644
index 0000000..573a901
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.dpk	
@@ -0,0 +1,39 @@
+package RemObjects_WebBroker_D6;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - WebBroker Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D6;
+
+contains
+  RemObjects_WebBroker_Reg in 'RemObjects_WebBroker_Reg.pas',
+  uROWebBrokerServer in 'uROWebBrokerServer.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.res
new file mode 100644
index 0000000..940698e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D6.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.dof b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.dof
new file mode 100644
index 0000000..c504a97
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.dof	
@@ -0,0 +1,170 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=RemObjects SDK - WebBroker Library
+[Directories]
+OutputDir=
+UnitOutputDir=..\Dcu\D7
+PackageDLLOutputDir=..\Dcu\D7
+PackageDCPOutputDir=..\Dcu\D7
+SearchPath=..\Dcu\D7
+Packages=
+Conditionals=DESIGNTIME
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=0
+Release=0
+Build=261
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=
+FileVersion=3.0.0.261
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=RemObjects SDK
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+c:\program files\borland\delphi7\RBServer\Lib\dclRBS77.bpl=ReportBuilder Server
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSTLLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumTreeList by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBTLLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumDBTreeList by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBGrLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumGrid by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBTVLnkD7.bpl=ExpressPrinting System ReportLink for ExpressDBTree by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxInsLnkD7.bpl=ExpressPrinting System ReportLink for ExpressInspector by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxOILnkD7.bpl=ExpressPrinting System ReportLink for ExpressRTTIInspector by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxMVLnkD7.bpl=ExpressPrinting System ReportLink for ExpressMasterView by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxOCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressOrgChart by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxDBOCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressDBOrgChart by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxFCLnkD7.bpl=ExpressPrinting System ReportLinks for ExpressFlowChart by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPSdxLCLnkD7.bpl=ExpressPrinting System ReportLink for ExpressLayoutControl by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPScxSSLnkD7.bpl=ExpressPrinting System ReportLink for ExpressSpreadSheet by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressPrinting System\Delphi 7\Lib\dxPscxTLLnkD7.bpl=ExpressPrinting System ReportLink for ExpressQuantumTreeList 4 by Developer Express Inc.
+C:\Dev\DataAbstract\Dcu\D7\DataAbstract_ReportBuilder_D7.bpl=(untitled)
+[HistoryLists\hlConditionals]
+Count=1
+Item0=DESIGNTIME
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=1
+Item0=..\Dcu\D7
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=..\Dcu\D7
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=..\Dcu\D7
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=..\Dcu\D7
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.dpk
new file mode 100644
index 0000000..4648f41
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.dpk	
@@ -0,0 +1,39 @@
+package RemObjects_WebBroker_D7;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - WebBroker Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  RemObjects_Core_D7;
+
+contains
+  RemObjects_WebBroker_Reg in 'RemObjects_WebBroker_Reg.pas',
+  uROWebBrokerServer in 'uROWebBrokerServer.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.res
new file mode 100644
index 0000000..8acd804
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_D7.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_Glyphs.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_Glyphs.res
new file mode 100644
index 0000000..7bdcb7f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_Glyphs.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_Reg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_Reg.pas
new file mode 100644
index 0000000..a823749
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_Reg.pas	
@@ -0,0 +1,38 @@
+unit RemObjects_WebBroker_Reg;
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+{$R RemObjects_WebBroker_Glyphs.res}
+
+interface
+
+procedure Register;
+
+implementation
+
+uses Classes,
+     {$IFDEF BDS}DesignIntf,{$ENDIF}
+     uRORes, uROWebBrokerServer;
+
+procedure Register;
+begin
+  {$IFDEF BDS}
+  ForceDemandLoadState(dlDisable);
+  {$ENDIF}
+  RegisterComponents(str_ProductName,
+                     [TROWebBrokerServer]);
+
+
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.dpk b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.dpk
new file mode 100644
index 0000000..64958f6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.dpk	
@@ -0,0 +1,40 @@
+package RemObjects_WebBroker_D14;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'RemObjects SDK - WebBroker Library'}
+{$IMPLICITBUILD OFF}
+{$DEFINE DESIGNTIME}
+
+requires
+  rtl,
+  vcl,
+  inet,
+  designide,
+  RemObjects_Core_D14;
+
+contains
+  RemObjects_WebBroker_Reg in 'RemObjects_WebBroker_Reg.pas',
+  uROWebBrokerServer in 'uROWebBrokerServer.pas';
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.dproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.dproj
new file mode 100644
index 0000000..90f2b71
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.dproj	
@@ -0,0 +1,102 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{850d4f71-0ea3-4073-a632-8eafa8318d76}</ProjectGuid>
+			<MainSource>RemObjects_WebBroker_D14.dpk</MainSource>
+			<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+			<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<DCC_DependencyCheckOutputName>..\Dcu\D12\RemObjects_WebBroker_D12.bpl</DCC_DependencyCheckOutputName>
+			<ProjectVersion>11.1</ProjectVersion>
+			<Config Condition="'$(Config)'==''">Base</Config>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+			<DCC_CVT_WCHAR_TO_ACHAR>error</DCC_CVT_WCHAR_TO_ACHAR>
+			<DCC_IMPLICIT_STRING_CAST>error</DCC_IMPLICIT_STRING_CAST>
+			<DCC_EXPLICIT_STRING_CAST_LOSS>error</DCC_EXPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_WIDENING_STRING_LOST>error</DCC_CVT_WIDENING_STRING_LOST>
+			<DCC_EXPLICIT_STRING_CAST>error</DCC_EXPLICIT_STRING_CAST>
+			<DCC_CVT_ACHAR_TO_WCHAR>error</DCC_CVT_ACHAR_TO_WCHAR>
+			<DCC_IMPLICIT_STRING_CAST_LOSS>error</DCC_IMPLICIT_STRING_CAST_LOSS>
+			<DCC_CVT_NARROWING_STRING_LOST>error</DCC_CVT_NARROWING_STRING_LOST>
+			<GenDll>true</GenDll>
+			<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
+			<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+			<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
+			<GenPackage>true</GenPackage>
+			<DesignOnlyPackage>false</DesignOnlyPackage>
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_DependencyCheckOutputName>..\Dcu\D14\RemObjects_WebBroker_D14.bpl</DCC_DependencyCheckOutputName>
+			<DCC_UnitSearchPath>..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+			<DCC_Description>RemObjects SDK - WebBroker Library</DCC_Description>
+			<DCC_Define>DESIGNTIME;$(DCC_Define)</DCC_Define>
+			<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="RemObjects_WebBroker_D14.dpk">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="rtl.dcp"/>
+			<DCCReference Include="vcl.dcp"/>
+			<DCCReference Include="inet.dcp"/>
+			<DCCReference Include="designide.dcp"/>
+			<DCCReference Include="RemObjects_Core_D14.dcp"/>
+			<DCCReference Include="RemObjects_WebBroker_Reg.pas"/>
+			<DCCReference Include="uROWebBrokerServer.pas"/>
+			<DCCReference Include="RemObjects_Core_D1.dcp"/>
+			<DCCReference Include="RemObjects_Core_D13.dcp"/>
+			<DCCReference Include="RemObjects_Core_D12.dcp"/>
+			<None Include="ModelSupport_RemObjects_WebBroker_D10\default.txaPackage"/>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>Package</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">4</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">404</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">4.0.0.404</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName">RemObjects SDK</VersionInfoKeys>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+					<Source>
+						<Source Name="MainSource">RemObjects_WebBroker_D14.dpk</Source>
+					</Source>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.res
new file mode 100644
index 0000000..0593ed9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/RemObjects_WebBroker_d14.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/asn1util.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/asn1util.pas
new file mode 100644
index 0000000..55d0892
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/asn1util.pas	
@@ -0,0 +1,505 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.004.004 |
+|==============================================================================|
+| Content: support for ASN.1 BER coding and decoding                           |
+|==============================================================================|
+| Copyright (c)1999-2003, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c) 1999-2003                |
+| Portions created by Hernan Sanchez are Copyright (c) 2000.                   |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|   Hernan Sanchez (hernan.sanchez@iname.com)                                  |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{: @abstract(Utilities for handling ASN.1 BER encoding)
+By this unit you can parse ASN.1 BER encoded data to elements or build back any
+ elements to ASN.1 BER encoded buffer. You can dump ASN.1 BER encoded data to
+ human readable form for easy debugging, too.
+
+Supported element types are: ASN1_BOOL, ASN1_INT, ASN1_OCTSTR, ASN1_NULL,
+ ASN1_OBJID, ASN1_ENUM, ASN1_SEQ, ASN1_SETOF, ASN1_IPADDR, ASN1_COUNTER,
+ ASN1_GAUGE, ASN1_TIMETICKS, ASN1_OPAQUE
+
+For sample of using, look to @link(TSnmpSend) or @link(TLdapSend)class.
+}
+
+{$Q-}
+{$H+}
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+unit asn1util;
+
+interface
+
+uses
+  SysUtils, Classes, synautil;
+
+const
+  ASN1_BOOL = $01;
+  ASN1_INT = $02;
+  ASN1_OCTSTR = $04;
+  ASN1_NULL = $05;
+  ASN1_OBJID = $06;
+  ASN1_ENUM = $0a;
+  ASN1_SEQ = $30;
+  ASN1_SETOF = $31;
+  ASN1_IPADDR = $40;
+  ASN1_COUNTER = $41;
+  ASN1_GAUGE = $42;
+  ASN1_TIMETICKS = $43;
+  ASN1_OPAQUE = $44;
+
+{:Encodes OID item to binary form.}
+function ASNEncOIDItem(Value: Integer): AnsiString;
+
+{:Decodes an OID item of the next element in the "Buffer" from the "Start"
+ position.}
+function ASNDecOIDItem(var Start: Integer; const Buffer: AnsiString): Integer;
+
+{:Encodes the length of ASN.1 element to binary.}
+function ASNEncLen(Len: Integer): AnsiString;
+
+{:Decodes length of next element in "Buffer" from the "Start" position.}
+function ASNDecLen(var Start: Integer; const Buffer: AnsiString): Integer;
+
+{:Encodes a signed integer to ASN.1 binary}
+function ASNEncInt(Value: Integer): AnsiString;
+
+{:Encodes unsigned integer into ASN.1 binary}
+function ASNEncUInt(Value: Integer): AnsiString;
+
+{:Encodes ASN.1 object to binary form.}
+function ASNObject(const Data: AnsiString; ASNType: Integer): AnsiString;
+
+{:Beginning with the "Start" position, decode the ASN.1 item of the next element
+ in "Buffer". Type of item is stored in "ValueType."}
+function ASNItem(var Start: Integer; const Buffer: AnsiString;
+  var ValueType: Integer): AnsiString;
+
+{:Encodes an MIB OID string to binary form.}
+function MibToId(Mib: String): AnsiString;
+
+{:Decodes MIB OID from binary form to string form.}
+function IdToMib(const Id: AnsiString): String;
+
+{:Encodes an one number from MIB OID to binary form. (used internally from
+@link(MibToId))}
+function IntMibToStr(const Value: AnsiString): AnsiString;
+
+{:Convert ASN.1 BER encoded buffer to human readable form for debugging.}
+function ASNdump(const Value: AnsiString): AnsiString;
+
+implementation
+
+{==============================================================================}
+function ASNEncOIDItem(Value: Integer): AnsiString;
+var
+  x, xm: Integer;
+  b: Boolean;
+begin
+  x := Value;
+  b := False;
+  Result := '';
+  repeat
+    xm := x mod 128;
+    x := x div 128;
+    if b then
+      xm := xm or $80;
+    if x > 0 then
+      b := True;
+    Result := AnsiChar(xm) + Result;
+  until x = 0;
+end;
+
+{==============================================================================}
+function ASNDecOIDItem(var Start: Integer; const Buffer: AnsiString): Integer;
+var
+  x: Integer;
+  b: Boolean;
+begin
+  Result := 0;
+  repeat
+    Result := Result * 128;
+    x := Ord(Buffer[Start]);
+    Inc(Start);
+    b := x > $7F;
+    x := x and $7F;
+    Result := Result + x;
+  until not b;
+end;
+
+{==============================================================================}
+function ASNEncLen(Len: Integer): AnsiString;
+var
+  x, y: Integer;
+begin
+  if Len < $80 then
+    Result := AnsiChar(Len)
+  else
+  begin
+    x := Len;
+    Result := '';
+    repeat
+      y := x mod 256;
+      x := x div 256;
+      Result := AnsiChar(y) + Result;
+    until x = 0;
+    y := Length(Result);
+    y := y or $80;
+    Result := AnsiChar(y) + Result;
+  end;
+end;
+
+{==============================================================================}
+function ASNDecLen(var Start: Integer; const Buffer: AnsiString): Integer;
+var
+  x, n: Integer;
+begin
+  x := Ord(Buffer[Start]);
+  Inc(Start);
+  if x < $80 then
+    Result := x
+  else
+  begin
+    Result := 0;
+    x := x and $7F;
+    for n := 1 to x do
+    begin
+      Result := Result * 256;
+      x := Ord(Buffer[Start]);
+      Inc(Start);
+      Result := Result + x;
+    end;
+  end;
+end;
+
+{==============================================================================}
+function ASNEncInt(Value: Integer): AnsiString;
+var
+  x, y: Cardinal;
+  neg: Boolean;
+begin
+  neg := Value < 0;
+  x := Abs(Value);
+  if neg then
+    x := not (x - 1);
+  Result := '';
+  repeat
+    y := x mod 256;
+    x := x div 256;
+    Result := AnsiChar(y) + Result;
+  until x = 0;
+  if (not neg) and (Result[1] > #$7F) then
+    Result := #0 + Result;
+end;
+
+{==============================================================================}
+function ASNEncUInt(Value: Integer): AnsiString;
+var
+  x, y: Integer;
+  neg: Boolean;
+begin
+  neg := Value < 0;
+  x := Value;
+  if neg then
+    x := x and $7FFFFFFF;
+  Result := '';
+  repeat
+    y := x mod 256;
+    x := x div 256;
+    Result := AnsiChar(y) + Result;
+  until x = 0;
+  if neg then
+    Result[1] := AnsiChar(Ord(Result[1]) or $80);
+end;
+
+{==============================================================================}
+function ASNObject(const Data: AnsiString; ASNType: Integer): AnsiString;
+begin
+  Result := AnsiChar(ASNType) + ASNEncLen(Length(Data)) + Data;
+end;
+
+{==============================================================================}
+function ASNItem(var Start: Integer; const Buffer: AnsiString;
+  var ValueType: Integer): AnsiString;
+var
+  ASNType: Integer;
+  ASNSize: Integer;
+  y, n: Integer;
+  x: byte;
+  s: AnsiString;
+  c: AnsiChar;
+  neg: Boolean;
+  l: Integer;
+begin
+  Result := '';
+  ValueType := ASN1_NULL;
+  l := Length(Buffer);
+  if l < (Start + 1) then
+    Exit;
+  ASNType := Ord(Buffer[Start]);
+  ValueType := ASNType;
+  Inc(Start);
+  ASNSize := ASNDecLen(Start, Buffer);
+  if (Start + ASNSize - 1) > l then
+    Exit;
+  if (ASNType and $20) > 0 then
+//    Result := '$' + IntToHex(ASNType, 2)
+    Result := Copy(Buffer, Start, ASNSize)
+  else
+    case ASNType of
+      ASN1_INT, ASN1_ENUM, ASN1_BOOL:
+        begin
+          y := 0;
+          neg := False;
+          for n := 1 to ASNSize do
+          begin
+            x := Ord(Buffer[Start]);
+            if (n = 1) and (x > $7F) then
+              neg := True;
+            if neg then
+              x := not x;
+            y := y * 256 + x;
+            Inc(Start);
+          end;
+          if neg then
+            y := -(y + 1);
+          Result := IntToStr(y);
+        end;
+      ASN1_COUNTER, ASN1_GAUGE, ASN1_TIMETICKS:
+        begin
+          y := 0;
+          for n := 1 to ASNSize do
+          begin
+            y := y * 256 + Ord(Buffer[Start]);
+            Inc(Start);
+          end;
+          Result := IntToStr(y);
+        end;
+      ASN1_OCTSTR, ASN1_OPAQUE:
+        begin
+          for n := 1 to ASNSize do
+          begin
+            c := AnsiChar(Buffer[Start]);
+            Inc(Start);
+            s := s + c;
+          end;
+          Result := s;
+        end;
+      ASN1_OBJID:
+        begin
+          for n := 1 to ASNSize do
+          begin
+            c := AnsiChar(Buffer[Start]);
+            Inc(Start);
+            s := s + c;
+          end;
+          Result := IdToMib(s);
+        end;
+      ASN1_IPADDR:
+        begin
+          s := '';
+          for n := 1 to ASNSize do
+          begin
+            if (n <> 1) then
+              s := s + '.';
+            y := Ord(Buffer[Start]);
+            Inc(Start);
+            s := s + IntToStr(y);
+          end;
+          Result := s;
+        end;
+      ASN1_NULL:
+        begin
+          Result := '';
+          Start := Start + ASNSize;
+        end;
+    else // unknown
+      begin
+        for n := 1 to ASNSize do
+        begin
+          c := AnsiChar(Buffer[Start]);
+          Inc(Start);
+          s := s + c;
+        end;
+        Result := s;
+      end;
+    end;
+end;
+
+{==============================================================================}
+function MibToId(Mib: String): AnsiString;
+var
+  x: Integer;
+
+  function WalkInt(var s: String): Integer;
+  var
+    x: Integer;
+    t: AnsiString;
+  begin
+    x := Pos('.', s);
+    if x < 1 then
+    begin
+      t := s;
+      s := '';
+    end
+    else
+    begin
+      t := Copy(s, 1, x - 1);
+      s := Copy(s, x + 1, Length(s) - x);
+    end;
+    Result := StrToIntDef(t, 0);
+  end;
+
+begin
+  Result := '';
+  x := WalkInt(Mib);
+  x := x * 40 + WalkInt(Mib);
+  Result := ASNEncOIDItem(x);
+  while Mib <> '' do
+  begin
+    x := WalkInt(Mib);
+    Result := Result + ASNEncOIDItem(x);
+  end;
+end;
+
+{==============================================================================}
+function IdToMib(const Id: AnsiString): String;
+var
+  x, y, n: Integer;
+begin
+  Result := '';
+  n := 1;
+  while Length(Id) + 1 > n do
+  begin
+    x := ASNDecOIDItem(n, Id);
+    if (n - 1) = 1 then
+    begin
+      y := x div 40;
+      x := x mod 40;
+      Result := IntToStr(y);
+    end;
+    Result := Result + '.' + IntToStr(x);
+  end;
+end;
+
+{==============================================================================}
+function IntMibToStr(const Value: AnsiString): AnsiString;
+var
+  n, y: Integer;
+begin
+  y := 0;
+  for n := 1 to Length(Value) - 1 do
+    y := y * 256 + Ord(Value[n]);
+  Result := IntToStr(y);
+end;
+
+{==============================================================================}
+function ASNdump(const Value: AnsiString): AnsiString;
+var
+  i, at, x, n: integer;
+  s, indent: AnsiString;
+  il: TStringList;
+begin
+  il := TStringList.Create;
+  try
+    Result := '';
+    i := 1;
+    indent := '';
+    while i < Length(Value) do
+    begin
+      for n := il.Count - 1 downto 0 do
+      begin
+        x := StrToIntDef(il[n], 0);
+        if x <= i then
+        begin
+          il.Delete(n);
+          Delete(indent, 1, 2);
+        end;
+      end;
+      s := ASNItem(i, Value, at);
+      Result := Result + indent + '$' + IntToHex(at, 2);
+      if (at and $20) > 0 then
+      begin
+        x := Length(s);
+        Result := Result + ' constructed: length ' + IntToStr(x);
+        indent := indent + '  ';
+        il.Add(IntToStr(x + i - 1));
+      end
+      else
+      begin
+        case at of
+          ASN1_BOOL:
+            Result := Result + ' BOOL: ';
+          ASN1_INT:
+            Result := Result + ' INT: ';
+          ASN1_ENUM:
+            Result := Result + ' ENUM: ';
+          ASN1_COUNTER:
+            Result := Result + ' COUNTER: ';
+          ASN1_GAUGE:
+            Result := Result + ' GAUGE: ';
+          ASN1_TIMETICKS:
+            Result := Result + ' TIMETICKS: ';
+          ASN1_OCTSTR:
+            Result := Result + ' OCTSTR: ';
+          ASN1_OPAQUE:
+            Result := Result + ' OPAQUE: ';
+          ASN1_OBJID:
+            Result := Result + ' OBJID: ';
+          ASN1_IPADDR:
+            Result := Result + ' IPADDR: ';
+          ASN1_NULL:
+            Result := Result + ' NULL: ';
+        else // other
+          Result := Result + ' unknown: ';
+        end;
+        if IsBinaryString(s) then
+          s := DumpExStr(s);
+        Result := Result + s;
+      end;
+      Result := Result + #$0d + #$0a;
+    end;
+  finally
+    il.Free;
+  end;
+end;
+
+{==============================================================================}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/blcksock.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/blcksock.pas
new file mode 100644
index 0000000..ff6987c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/blcksock.pas	
@@ -0,0 +1,4170 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 009.006.000 |
+|==============================================================================|
+| Content: Library base                                                        |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)1999-2008.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{
+Special thanks to Gregor Ibic <gregor.ibic@intelicom.si>
+ (Intelicom d.o.o., http://www.intelicom.si)
+ for good inspiration about SSL programming.
+}
+
+{$DEFINE ONCEWINSOCK}
+{Note about define ONCEWINSOCK:
+If you remove this compiler directive, then socket interface is loaded and
+initialized on constructor of TBlockSocket class for each socket separately.
+Socket interface is used only if your need it.
+
+If you leave this directive here, then socket interface is loaded and
+initialized only once at start of your program! It boost performace on high
+count of created and destroyed sockets. It eliminate possible small resource
+leak on Windows systems too.
+}
+
+//{$DEFINE RAISEEXCEPT}
+{When you enable this define, then is Raiseexcept property is on by default
+}
+
+{:@abstract(Synapse's library core)
+
+Core with implementation basic socket classes.
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$IFDEF VER125}
+  {$DEFINE BCB}
+{$ENDIF}
+{$IFDEF BCB}
+  {$ObjExportAll On}
+{$ENDIF}
+{$Q-}
+{$H+}
+{$M+}
+
+unit blcksock;
+
+interface
+
+uses
+  SysUtils, Classes,
+  synafpc,
+  synsock, synautil, synacode, synaip
+{$IFDEF CIL}
+  ,System.Net
+  ,System.Net.Sockets
+  ,System.Text
+{$ENDIF}
+  ;
+
+const
+
+  SynapseRelease = '38';
+
+  cLocalhost = '127.0.0.1';
+  cAnyHost = '0.0.0.0';
+  cBroadcast = '255.255.255.255';
+  c6Localhost = '::1';
+  c6AnyHost = '::0';
+  c6Broadcast = 'ffff::1';
+  cAnyPort = '0';
+  CR = #$0d;
+  LF = #$0a;
+  CRLF = CR + LF;
+  c64k = 65536;
+
+type
+
+  {:@abstract(Exception clas used by Synapse)
+   When you enable generating of exceptions, this exception is raised by
+   Synapse's units.}
+  ESynapseError = class(Exception)
+  private
+    FErrorCode: Integer;
+    FErrorMessage: string;
+  published
+    {:Code of error. Value depending on used operating system}
+    property ErrorCode: Integer read FErrorCode Write FErrorCode;
+    {:Human readable description of error.}
+    property ErrorMessage: string read FErrorMessage Write FErrorMessage;
+  end;
+
+  {:Types of OnStatus events}
+  THookSocketReason = (
+    {:Resolving is begin. Resolved IP and port is in parameter in format like:
+     'localhost.somewhere.com:25'.}
+    HR_ResolvingBegin,
+    {:Resolving is done. Resolved IP and port is in parameter in format like:
+     'localhost.somewhere.com:25'. It is always same as in HR_ResolvingBegin!}
+    HR_ResolvingEnd,
+    {:Socket created by CreateSocket method. It reporting Family of created
+     socket too!}
+    HR_SocketCreate,
+    {:Socket closed by CloseSocket method.}
+    HR_SocketClose,
+    {:Socket binded to IP and Port. Binded IP and Port is in parameter in format
+     like: 'localhost.somewhere.com:25'.}
+    HR_Bind,
+    {:Socket connected to IP and Port. Connected IP and Port is in parameter in
+     format like: 'localhost.somewhere.com:25'.}
+    HR_Connect,
+    {:Called when CanRead method is used with @True result.}
+    HR_CanRead,
+    {:Called when CanWrite method is used with @True result.}
+    HR_CanWrite,
+    {:Socket is swithed to Listen mode. (TCP socket only)}
+    HR_Listen,
+    {:Socket Accepting client connection. (TCP socket only)}
+    HR_Accept,
+    {:report count of bytes readed from socket. Number is in parameter string.
+     If you need is in integer, you must use StrToInt function!}
+    HR_ReadCount,
+    {:report count of bytes writed to socket. Number is in parameter string. If
+     you need is in integer, you must use StrToInt function!}
+    HR_WriteCount,
+    {:If is limiting of bandwidth on, then this reason is called when sending or
+     receiving is stopped for satisfy bandwidth limit. Parameter is count of
+     waiting milliseconds.}
+    HR_Wait,
+    {:report situation where communication error occured. When raiseexcept is
+     @true, then exception is called after this Hook reason.}
+    HR_Error
+    );
+
+  {:Procedural type for OnStatus event. Sender is calling TBlockSocket object,
+   Reason is one of set Status events and value is optional data.}
+  THookSocketStatus = procedure(Sender: TObject; Reason: THookSocketReason;
+    const Value: String) of object;
+
+  {:This procedural type is used for DataFilter hooks.}
+  THookDataFilter = procedure(Sender: TObject; var Value: AnsiString) of object;
+
+  {:This procedural type is used for hook OnCreateSocket. By this hook you can
+   insert your code after initialisation of socket. (you can set special socket
+   options, etc.)}
+  THookCreateSocket = procedure(Sender: TObject) of object;
+
+  {:This procedural type is used for monitoring of communication.}
+  THookMonitor = procedure(Sender: TObject; Writing: Boolean;
+    const Buffer: TMemory; Len: Integer) of object;
+
+  {:This procedural type is used for hook OnAfterConnect. By this hook you can
+   insert your code after TCP socket has been sucessfully connected.}
+  THookAfterConnect = procedure(Sender: TObject) of object;
+
+  {:This procedural type is used for hook OnHeartbeat. By this hook you can
+   call your code repeately during long socket operations.
+   You must enable heartbeats by @Link(HeartbeatRate) property!}
+  THookHeartbeat = procedure(Sender: TObject) of object;
+
+  {:Specify family of socket.}
+  TSocketFamily = (
+    {:Default mode. Socket family is defined by target address for connection.
+     It allows instant access to IPv4 and IPv6 nodes. When you need IPv6 address
+     as destination, then is used IPv6 mode. othervise is used IPv4 mode.
+     However this mode not working properly with preliminary IPv6 supports!}
+    SF_Any,
+    {:Turn this class to pure IPv4 mode. This mode is totally compatible with
+     previous Synapse releases.}
+    SF_IP4,
+    {:Turn to only IPv6 mode.}
+    SF_IP6
+    );
+
+  {:specify possible values of SOCKS modes.}
+  TSocksType = (
+    ST_Socks5,
+    ST_Socks4
+    );
+
+  {:Specify requested SSL/TLS version for secure connection.}
+  TSSLType = (
+    LT_all,
+    LT_SSLv2,
+    LT_SSLv3,
+    LT_TLSv1,
+    LT_TLSv1_1,
+    LT_SSHv2
+    );
+
+  {:Specify type of socket delayed option.}
+  TSynaOptionType = (
+    SOT_Linger,
+    SOT_RecvBuff,
+    SOT_SendBuff,
+    SOT_NonBlock,
+    SOT_RecvTimeout,
+    SOT_SendTimeout,
+    SOT_Reuse,
+    SOT_TTL,
+    SOT_Broadcast,
+    SOT_MulticastTTL,
+    SOT_MulticastLoop
+    );
+
+  {:@abstract(this object is used for remember delayed socket option set.)}
+  TSynaOption = class(TObject)
+  public
+    Option: TSynaOptionType;
+    Enabled: Boolean;
+    Value: Integer;
+  end;
+
+  TCustomSSL = class;
+  TSSLClass = class of TCustomSSL;
+
+  {:@abstract(Basic IP object.)
+   This is parent class for other class with protocol implementations. Do not
+   use this class directly! Use @link(TICMPBlockSocket), @link(TRAWBlockSocket),
+   @link(TTCPBlockSocket) or @link(TUDPBlockSocket) instead.}
+  TBlockSocket = class(TObject)
+  private
+    FOnStatus: THookSocketStatus;
+    FOnReadFilter: THookDataFilter;
+    FOnCreateSocket: THookCreateSocket;
+    FOnMonitor: THookMonitor;
+    FOnHeartbeat: THookHeartbeat;
+    FLocalSin: TVarSin;
+    FRemoteSin: TVarSin;
+    FTag: integer;
+    FBuffer: AnsiString;
+    FRaiseExcept: Boolean;
+    FNonBlockMode: Boolean;
+    FMaxLineLength: Integer;
+    FMaxSendBandwidth: Integer;
+    FNextSend: LongWord;
+    FMaxRecvBandwidth: Integer;
+    FNextRecv: LongWord;
+    FConvertLineEnd: Boolean;
+    FLastCR: Boolean;
+    FLastLF: Boolean;
+    FBinded: Boolean;
+    FFamily: TSocketFamily;
+    FFamilySave: TSocketFamily;
+    FIP6used: Boolean;
+    FPreferIP4: Boolean;
+    FDelayedOptions: TList;
+    FInterPacketTimeout: Boolean;
+    {$IFNDEF CIL}
+    FFDSet: TFDSet;
+    {$ENDIF}
+    FRecvCounter: Integer;
+    FSendCounter: Integer;
+    FSendMaxChunk: Integer;
+    FStopFlag: Boolean;
+    FNonblockSendTimeout: Integer;
+    FHeartbeatRate: integer;
+    function GetSizeRecvBuffer: Integer;
+    procedure SetSizeRecvBuffer(Size: Integer);
+    function GetSizeSendBuffer: Integer;
+    procedure SetSizeSendBuffer(Size: Integer);
+    procedure SetNonBlockMode(Value: Boolean);
+    procedure SetTTL(TTL: integer);
+    function GetTTL:integer;
+    procedure SetFamily(Value: TSocketFamily); virtual;
+    procedure SetSocket(Value: TSocket); virtual;
+    function GetWsaData: TWSAData;
+    function FamilyToAF(f: TSocketFamily): TAddrFamily;
+  protected
+    FSocket: TSocket;
+    FLastError: Integer;
+    FLastErrorDesc: string;
+    procedure SetDelayedOption(const Value: TSynaOption);
+    procedure DelayedOption(const Value: TSynaOption);
+    procedure ProcessDelayedOptions;
+    procedure InternalCreateSocket(Sin: TVarSin);
+    procedure SetSin(var Sin: TVarSin; IP, Port: string);
+    function GetSinIP(Sin: TVarSin): string;
+    function GetSinPort(Sin: TVarSin): Integer;
+    procedure DoStatus(Reason: THookSocketReason; const Value: string);
+    procedure DoReadFilter(Buffer: TMemory; var Len: Integer);
+    procedure DoMonitor(Writing: Boolean; const Buffer: TMemory; Len: Integer);
+    procedure DoCreateSocket;
+    procedure DoHeartbeat;
+    procedure LimitBandwidth(Length: Integer; MaxB: integer; var Next: LongWord);
+    procedure SetBandwidth(Value: Integer);
+    function TestStopFlag: Boolean;
+    procedure InternalSendStream(const Stream: TStream; WithSize, Indy: boolean); virtual;
+    function InternalCanRead(Timeout: Integer): Boolean; virtual;
+  public
+    constructor Create;
+
+    {:Create object and load all necessary socket library. What library is
+     loaded is described by STUB parameter. If STUB is empty string, then is
+     loaded default libraries.}
+    constructor CreateAlternate(Stub: string);
+    destructor Destroy; override;
+
+    {:If @link(family) is not SF_Any, then create socket with type defined in
+     @link(Family) property. If family is SF_Any, then do nothing! (socket is
+     created automaticly when you know what type of socket you need to create.
+     (i.e. inside @link(Connect) or @link(Bind) call.) When socket is created,
+     then is aplyed all stored delayed socket options.}
+    procedure CreateSocket;
+
+    {:It create socket. Address resolving of Value tells what type of socket is
+     created. If Value is resolved as IPv4 IP, then is created IPv4 socket. If
+     value is resolved as IPv6 address, then is created IPv6 socket.}
+    procedure CreateSocketByName(const Value: String);
+
+    {:Destroy socket in use. This method is also automatically called from
+     object destructor.}
+    procedure CloseSocket; virtual;
+
+    {:Abort any work on Socket and destroy them.}
+    procedure AbortSocket; virtual;
+
+    {:Connects socket to local IP address and PORT. IP address may be numeric or
+     symbolic ('192.168.74.50', 'cosi.nekde.cz', 'ff08::1'). The same for PORT
+     - it may be number or mnemonic port ('23', 'telnet').
+
+     If port value is '0', system chooses itself and conects unused port in the
+     range 1024 to 4096 (this depending by operating system!). Structure
+     LocalSin is filled after calling this method.
+
+     Note: If you call this on non-created socket, then socket is created
+     automaticly.
+
+     Warning: when you call : Bind('0.0.0.0','0'); then is nothing done! In this
+     case is used implicit system bind instead.}
+    procedure Bind(IP, Port: string);
+
+    {:Connects socket to remote IP address and PORT. The same rules as with
+     @link(BIND) method are valid. The only exception is that PORT with 0 value
+     will not be connected!
+
+     Structures LocalSin and RemoteSin will be filled with valid values.
+
+     When you call this on non-created socket, then socket is created
+     automaticly. Type of created socket is by @link(Family) property. If is
+     used SF_IP4, then is created socket for IPv4. If is used SF_IP6, then is
+     created socket for IPv6. When you have family on SF_Any (default!), then
+     type of created socket is determined by address resolving of destination
+     address. (Not work properly on prilimitary winsock IPv6 support!)}
+    procedure Connect(IP, Port: string); virtual;
+
+    {:Sends data of LENGTH from BUFFER address via connected socket. System
+     automatically splits data to packets.}
+    function SendBuffer(Buffer: Tmemory; Length: Integer): Integer; virtual;
+
+    {:One data BYTE is sent via connected socket.}
+    procedure SendByte(Data: Byte); virtual;
+
+    {:Send data string via connected socket. Any terminator is not added! If you
+     need send true string with CR-LF termination, you must add CR-LF characters
+     to sended string! Because any termination is not added automaticly, you can
+     use this function for sending any binary data in binary string.}
+    procedure SendString(Data: AnsiString); virtual;
+
+    {:Send integer as four bytes to socket.}
+    procedure SendInteger(Data: integer); virtual;
+
+    {:Send data as one block to socket. Each block begin with 4 bytes with
+     length of data in block. This 4 bytes is added automaticly by this
+     function.}
+    procedure SendBlock(const Data: AnsiString); virtual;
+
+    {:Send data from stream to socket.}
+    procedure SendStreamRaw(const Stream: TStream); virtual;
+
+    {:Send content of stream to socket. It using @link(SendBlock) method}
+    procedure SendStream(const Stream: TStream); virtual;
+
+    {:Send content of stream to socket. It using @link(SendBlock) method and
+    this is compatible with streams in Indy library.}
+    procedure SendStreamIndy(const Stream: TStream); virtual;
+
+    {:Note: This is low-level receive function. You must be sure if data is
+     waiting for read before call this function for avoid deadlock!
+
+     Waits until allocated buffer is filled by received data. Returns number of
+     data received, which equals to LENGTH value under normal operation. If it
+     is not equal the communication channel is possibly broken.
+
+     On stream oriented sockets if is received 0 bytes, it mean 'socket is
+     closed!"
+
+     On datagram socket is readed first waiting datagram.}
+    function RecvBuffer(Buffer: TMemory; Length: Integer): Integer; virtual;
+
+    {:Note: This is high-level receive function. It using internal
+     @link(LineBuffer) and you can combine this function freely with other
+     high-level functions!
+
+     Method waits until data is received. If no data is received within TIMEOUT
+     (in milliseconds) period, @link(LastError) is set to WSAETIMEDOUT. Methods
+     serves for reading any size of data (i.e. one megabyte...). This method is
+     preffered for reading from stream sockets (like TCP).}
+    function RecvBufferEx(Buffer: Tmemory; Len: Integer;
+      Timeout: Integer): Integer; virtual;
+
+    {:Similar to @link(RecvBufferEx), but readed data is stored in binary
+     string, not in memory buffer.}
+    function RecvBufferStr(Len: Integer; Timeout: Integer): AnsiString; virtual;
+
+    {:Note: This is high-level receive function. It using internal
+     @link(LineBuffer) and you can combine this function freely with other
+     high-level functions.
+
+     Waits until one data byte is received which is also returned as function
+     result. If no data is received within TIMEOUT (in milliseconds)period,
+     @link(LastError) is set to WSAETIMEDOUT and result have value 0.}
+    function RecvByte(Timeout: Integer): Byte; virtual;
+
+    {:Note: This is high-level receive function. It using internal
+     @link(LineBuffer) and you can combine this function freely with other
+     high-level functions.
+
+     Waits until one four bytes are received and return it as one Ineger Value.
+     If no data is received within TIMEOUT (in milliseconds)period,
+     @link(LastError) is set to WSAETIMEDOUT and result have value 0.}
+    function RecvInteger(Timeout: Integer): Integer; virtual;
+
+    {:Note: This is high-level receive function. It using internal
+     @link(LineBuffer) and you can combine this function freely with other
+     high-level functions.
+
+     Method waits until data string is received. This string is terminated by
+     CR-LF characters. The resulting string is returned without this termination
+     (CR-LF)! If @link(ConvertLineEnd) is used, then CR-LF sequence may not be
+     exactly CR-LF. See @link(ConvertLineEnd) description. If no data is
+     received within TIMEOUT (in milliseconds) period, @link(LastError) is set
+     to WSAETIMEDOUT. You may also specify maximum length of reading data by
+     @link(MaxLineLength) property.}
+    function RecvString(Timeout: Integer): AnsiString; virtual;
+
+    {:Note: This is high-level receive function. It using internal
+     @link(LineBuffer) and you can combine this function freely with other
+     high-level functions.
+
+     Method waits until data string is received. This string is terminated by
+     Terminator string. The resulting string is returned without this
+     termination. If no data is received within TIMEOUT (in milliseconds)
+     period, @link(LastError) is set to WSAETIMEDOUT. You may also specify
+     maximum length of reading data by @link(MaxLineLength) property.}
+    function RecvTerminated(Timeout: Integer; const Terminator: AnsiString): AnsiString; virtual;
+
+    {:Note: This is high-level receive function. It using internal
+     @link(LineBuffer) and you can combine this function freely with other
+     high-level functions.
+
+     Method reads all data waiting for read. If no data is received within
+     TIMEOUT (in milliseconds) period, @link(LastError) is set to WSAETIMEDOUT.
+     Methods serves for reading unknown size of data. Because before call this
+     function you don't know size of received data, returned data is stored in
+     dynamic size binary string. This method is preffered for reading from
+     stream sockets (like TCP). It is very goot for receiving datagrams too!
+     (UDP protocol)}
+    function RecvPacket(Timeout: Integer): AnsiString; virtual;
+
+    {:Read one block of data from socket. Each block begin with 4 bytes with
+     length of data in block. This function read first 4 bytes for get lenght,
+     then it wait for reported count of bytes.}
+    function RecvBlock(Timeout: Integer): AnsiString; virtual;
+
+    {:Read all data from socket to stream until socket is closed (or any error
+     occured.)}
+    procedure RecvStreamRaw(const Stream: TStream; Timeout: Integer); virtual;
+    {:Read requested count of bytes from socket to stream.}
+    procedure RecvStreamSize(const Stream: TStream; Timeout: Integer; Size: Integer);
+
+    {:Receive data to stream. It using @link(RecvBlock) method.}
+    procedure RecvStream(const Stream: TStream; Timeout: Integer); virtual;
+
+    {:Receive data to stream. This function is compatible with similar function
+    in Indy library. It using @link(RecvBlock) method.}
+    procedure RecvStreamIndy(const Stream: TStream; Timeout: Integer); virtual;
+
+    {:Same as @link(RecvBuffer), but readed data stays in system input buffer.
+    Warning: this function not respect data in @link(LineBuffer)! Is not
+    recommended to use this function!}
+    function PeekBuffer(Buffer: TMemory; Length: Integer): Integer; virtual;
+
+    {:Same as @link(RecvByte), but readed data stays in input system buffer.
+     Warning: this function not respect data in @link(LineBuffer)! Is not
+    recommended to use this function!}
+    function PeekByte(Timeout: Integer): Byte; virtual;
+
+    {:On stream sockets it returns number of received bytes waiting for picking.
+     0 is returned when there is no such data. On datagram socket it returns
+     length of the first waiting datagram. Returns 0 if no datagram is waiting.}
+    function WaitingData: Integer; virtual;
+
+    {:Same as @link(WaitingData), but if exists some of data in @link(Linebuffer),
+     return their length instead.}
+    function WaitingDataEx: Integer;
+
+    {:Clear all waiting data for read from buffers.}
+    procedure Purge;
+
+    {:Sets linger. Enabled linger means that the system waits another LINGER
+     (in milliseconds) time for delivery of sent data. This function is only for
+     stream type of socket! (TCP)}
+    procedure SetLinger(Enable: Boolean; Linger: Integer);
+
+    {:Actualize values in @link(LocalSin).}
+    procedure GetSinLocal;
+
+    {:Actualize values in @link(RemoteSin).}
+    procedure GetSinRemote;
+
+    {:Actualize values in @link(LocalSin) and @link(RemoteSin).}
+    procedure GetSins;
+
+    {:Reset @link(LastError) and @link(LastErrorDesc) to non-error state.}
+    procedure ResetLastError;
+
+    {:If you "manually" call Socket API functions, forward their return code as
+     parameter to this function, which evaluates it, eventually calls
+     GetLastError and found error code returns and stores to @link(LastError).}
+    function SockCheck(SockResult: Integer): Integer; virtual;
+
+    {:If @link(LastError) contains some error code and @link(RaiseExcept)
+     property is @true, raise adequate exception.}
+    procedure ExceptCheck;
+
+    {:Returns local computer name as numerical or symbolic value. It try get
+     fully qualified domain name. Name is returned in the format acceptable by
+     functions demanding IP as input parameter.}
+    function LocalName: string;
+
+    {:Try resolve name to all possible IP address. i.e. If you pass as name
+     result of @link(LocalName) method, you get all IP addresses used by local
+     system.}
+    procedure ResolveNameToIP(Name: string; const IPList: TStrings);
+
+    {:Try resolve name to primary IP address. i.e. If you pass as name result of
+     @link(LocalName) method, you get primary IP addresses used by local system.}
+    function ResolveName(Name: string): string;
+
+    {:Try resolve IP to their primary domain name. If IP not have domain name,
+     then is returned original IP.}
+    function ResolveIPToName(IP: string): string;
+
+    {:Try resolve symbolic port name to port number. (i.e. 'Echo' to 8)}
+    function ResolvePort(Port: string): Word;
+
+    {:Set information about remote side socket. It is good for seting remote
+     side for sending UDP packet, etc.}
+    procedure SetRemoteSin(IP, Port: string);
+
+    {:Picks IP socket address from @link(LocalSin).}
+    function GetLocalSinIP: string; virtual;
+
+    {:Picks IP socket address from @link(RemoteSin).}
+    function GetRemoteSinIP: string; virtual;
+
+    {:Picks socket PORT number from @link(LocalSin).}
+    function GetLocalSinPort: Integer; virtual;
+
+    {:Picks socket PORT number from @link(RemoteSin).}
+    function GetRemoteSinPort: Integer; virtual;
+
+    {:Return @TRUE, if you can read any data from socket or is incoming
+     connection on TCP based socket. Status is tested for time Timeout (in
+     milliseconds). If value in Timeout is 0, status is only tested and
+     continue. If value in Timeout is -1, run is breaked and waiting for read
+     data maybe forever.
+
+     This function is need only on special cases, when you need use
+     @link(RecvBuffer) function directly! read functioms what have timeout as
+     calling parameter, calling this function internally.}
+    function CanRead(Timeout: Integer): Boolean; virtual;
+
+    {:Same as @link(CanRead), but additionally return @TRUE if is some data in
+     @link(LineBuffer).}
+    function CanReadEx(Timeout: Integer): Boolean; virtual;
+
+    {:Return @TRUE, if you can to socket write any data (not full sending
+     buffer). Status is tested for time Timeout (in milliseconds). If value in
+     Timeout is 0, status is only tested and continue. If value in Timeout is
+     -1, run is breaked and waiting for write data maybe forever.
+
+     This function is need only on special cases!}
+    function CanWrite(Timeout: Integer): Boolean; virtual;
+
+    {:Same as @link(SendBuffer), but send datagram to address from
+     @link(RemoteSin). Usefull for sending reply to datagram received by
+     function @link(RecvBufferFrom).}
+    function SendBufferTo(Buffer: TMemory; Length: Integer): Integer; virtual;
+
+    {:Note: This is low-lever receive function. You must be sure if data is
+     waiting for read before call this function for avoid deadlock!
+
+     Receives first waiting datagram to allocated buffer. If there is no waiting
+     one, then waits until one comes. Returns length of datagram stored in
+     BUFFER. If length exceeds buffer datagram is truncated. After this
+     @link(RemoteSin) structure contains information about sender of UDP packet.}
+    function RecvBufferFrom(Buffer: TMemory; Length: Integer): Integer; virtual;
+{$IFNDEF CIL}
+    {:This function is for check for incoming data on set of sockets. Whitch
+    sockets is checked is decribed by SocketList Tlist with TBlockSocket
+    objects. TList may have maximal number of objects defined by FD_SETSIZE
+    constant. Return @TRUE, if you can from some socket read any data or is
+    incoming connection on TCP based socket. Status is tested for time Timeout
+    (in milliseconds). If value in Timeout is 0, status is only tested and
+    continue. If value in Timeout is -1, run is breaked and waiting for read
+    data maybe forever. If is returned @TRUE, CanReadList TList is filled by all
+    TBlockSocket objects what waiting for read.}
+    function GroupCanRead(const SocketList: TList; Timeout: Integer;
+      const CanReadList: TList): Boolean;
+{$ENDIF}
+    {:By this method you may turn address reuse mode for local @link(bind). It
+     is good specially for UDP protocol. Using this with TCP protocol is
+     hazardous!}
+    procedure EnableReuse(Value: Boolean);
+
+    {:Try set timeout for all sending and receiving operations, if socket
+     provider can do it. (It not supported by all socket providers!)}
+    procedure SetTimeout(Timeout: Integer);
+
+    {:Try set timeout for all sending operations, if socket provider can do it.
+     (It not supported by all socket providers!)}
+    procedure SetSendTimeout(Timeout: Integer);
+
+    {:Try set timeout for all receiving operations, if socket provider can do
+     it. (It not supported by all socket providers!)}
+    procedure SetRecvTimeout(Timeout: Integer);
+
+    {:Return value of socket type.}
+    function GetSocketType: integer; Virtual;
+
+    {:Return value of protocol type for socket creation.}
+    function GetSocketProtocol: integer; Virtual;
+
+    {:WSA structure with information about socket provider. On linux is this
+     structure simulated!}
+    property WSAData: TWSADATA read GetWsaData;
+
+    {:Structure describing local socket side.}
+    property LocalSin: TVarSin read FLocalSin write FLocalSin;
+
+    {:Structure describing remote socket side.}
+    property RemoteSin: TVarSin read FRemoteSin write FRemoteSin;
+
+    {:Socket handler. Suitable for "manual" calls to socket API or manual
+     connection of socket to a previously created socket (i.e by Accept method
+     on TCP socket)}
+    property Socket: TSocket read FSocket write SetSocket;
+
+    {:Last socket operation error code. Error codes are described in socket
+     documentation. Human readable error description is stored in
+     @link(LastErrorDesc) property.}
+    property LastError: Integer read FLastError;
+
+    {:Human readable error description of @link(LastError) code.}
+    property LastErrorDesc: string read FLastErrorDesc;
+
+    {:Buffer used by all high-level receiving functions. This buffer is used for
+     optimized reading of data from socket. In normal cases you not need access
+     to this buffer directly!}
+    property LineBuffer: AnsiString read FBuffer write FBuffer;
+
+    {:Size of Winsock receive buffer. If it is not supported by socket provider,
+     it return as size one kilobyte.}
+    property SizeRecvBuffer: Integer read GetSizeRecvBuffer write SetSizeRecvBuffer;
+
+    {:Size of Winsock send buffer. If it is not supported by socket provider, it
+     return as size one kilobyte.}
+    property SizeSendBuffer: Integer read GetSizeSendBuffer write SetSizeSendBuffer;
+
+    {:If @True, turn class to non-blocking mode. Not all functions are working
+     properly in this mode, you must know exactly what you are doing! However
+     when you have big experience with non-blocking programming, then you can
+     optimise your program by non-block mode!}
+    property NonBlockMode: Boolean read FNonBlockMode Write SetNonBlockMode;
+
+    {:Set Time-to-live value. (if system supporting it!)}
+    property TTL: Integer read GetTTL Write SetTTL;
+
+    {:If is @true, then class in in IPv6 mode.}
+    property IP6used: Boolean read FIP6used;
+
+    {:Return count of received bytes on this socket from begin of current
+     connection.}
+    property RecvCounter: Integer read FRecvCounter;
+
+    {:Return count of sended bytes on this socket from begin of current
+     connection.}
+    property SendCounter: Integer read FSendCounter;
+  published
+    {:Return descriptive string for given error code. This is class function.
+     You may call it without created object!}
+    class function GetErrorDesc(ErrorCode: Integer): string;
+
+    {:Return descriptive string for @link(LastError).}
+    function GetErrorDescEx: string; virtual;
+
+    {:this value is for free use.}
+    property Tag: Integer read FTag write FTag;
+
+    {:If @true, winsock errors raises exception. Otherwise is setted
+    @link(LastError) value only and you must check it from your program! Default
+    value is @false.}
+    property RaiseExcept: Boolean read FRaiseExcept write FRaiseExcept;
+
+    {:Define maximum length in bytes of @link(LineBuffer) for high-level
+     receiving functions. If this functions try to read more data then this
+     limit, error is returned! If value is 0 (default), no limitation is used.
+     This is very good protection for stupid attacks to your server by sending
+     lot of data without proper terminator... until all your memory is allocated
+     by LineBuffer!
+
+     Note: This maximum length is checked only in functions, what read unknown
+     number of bytes! (like @link(RecvString) or @link(RecvTerminated))}
+    property MaxLineLength: Integer read FMaxLineLength Write FMaxLineLength;
+
+    {:Define maximal bandwidth for all sending operations in bytes per second.
+     If value is 0 (default), bandwidth limitation is not used.}
+    property MaxSendBandwidth: Integer read FMaxSendBandwidth Write FMaxSendBandwidth;
+
+    {:Define maximal bandwidth for all receiving operations in bytes per second.
+     If value is 0 (default), bandwidth limitation is not used.}
+    property MaxRecvBandwidth: Integer read FMaxRecvBandwidth Write FMaxRecvBandwidth;
+
+    {:Define maximal bandwidth for all sending and receiving operations in bytes
+     per second. If value is 0 (default), bandwidth limitation is not used.}
+    property MaxBandwidth: Integer Write SetBandwidth;
+
+    {:Do a conversion of non-standard line terminators to CRLF. (Off by default)
+     If @True, then terminators like sigle CR, single LF or LFCR are converted
+     to CRLF internally. This have effect only in @link(RecvString) method!}
+    property ConvertLineEnd: Boolean read FConvertLineEnd Write FConvertLineEnd;
+
+    {:Specified Family of this socket. When you are using Windows preliminary
+     support for IPv6, then I recommend to set this property!}
+    property Family: TSocketFamily read FFamily Write SetFamily;
+
+    {:When resolving of domain name return both IPv4 and IPv6 addresses, then
+     specify if is used IPv4 (dafault - @true) or IPv6.}
+    property PreferIP4: Boolean read FPreferIP4 Write FPreferIP4;
+
+    {:By default (@true) is all timeouts used as timeout between two packets in
+     reading operations. If you set this to @false, then Timeouts is for overall
+     reading operation!}
+    property InterPacketTimeout: Boolean read FInterPacketTimeout Write FInterPacketTimeout;
+
+    {:All sended datas was splitted by this value.}
+    property SendMaxChunk: Integer read FSendMaxChunk Write FSendMaxChunk;
+
+    {:By setting this property to @true you can stop any communication. You can
+     use this property for soft abort of communication.}
+    property StopFlag: Boolean read FStopFlag Write FStopFlag;
+
+    {:Timeout for data sending by non-blocking socket mode.}
+    property NonblockSendTimeout: Integer read FNonblockSendTimeout Write FNonblockSendTimeout;
+
+    {:This event is called by various reasons. It is good for monitoring socket,
+     create gauges for data transfers, etc.}
+    property OnStatus: THookSocketStatus read FOnStatus write FOnStatus;
+
+    {:this event is good for some internal thinks about filtering readed datas.
+     It is used by telnet client by example.}
+    property OnReadFilter: THookDataFilter read FOnReadFilter write FOnReadFilter;
+
+    {:This event is called after real socket creation for setting special socket
+     options, because you not know when socket is created. (it is depended on
+     Ipv4, IPv6 or automatic mode)}
+    property OnCreateSocket: THookCreateSocket read FOnCreateSocket write FOnCreateSocket;
+
+    {:This event is good for monitoring content of readed or writed datas.}
+    property OnMonitor: THookMonitor read FOnMonitor write FOnMonitor;
+
+    {:This event is good for calling your code during long socket operations.
+      (Example, for refresing UI if class in not called within the thread.)
+      Rate of heartbeats can be modified by @link(HeartbeatRate) property.}
+    property OnHeartbeat: THookHeartbeat read FOnHeartbeat write FOnHeartbeat;
+
+    {:Specify typical rate of @link(OnHeartbeat) event and @link(StopFlag) testing.
+      Default value 0 disabling heartbeats! Value is in milliseconds.
+      Real rate can be higher or smaller then this value, because it depending
+      on real socket operations too!
+      Note: Each heartbeat slowing socket processing.}
+    property HeartbeatRate: integer read FHeartbeatRate Write FHeartbeatRate;
+  end;
+
+  {:@abstract(Support for SOCKS4 and SOCKS5 proxy)
+   Layer with definition all necessary properties and functions for
+   implementation SOCKS proxy client. Do not use this class directly.}
+  TSocksBlockSocket = class(TBlockSocket)
+  protected
+    FSocksIP: string;
+    FSocksPort: string;
+    FSocksTimeout: integer;
+    FSocksUsername: string;
+    FSocksPassword: string;
+    FUsingSocks: Boolean;
+    FSocksResolver: Boolean;
+    FSocksLastError: integer;
+    FSocksResponseIP: string;
+    FSocksResponsePort: string;
+    FSocksLocalIP: string;
+    FSocksLocalPort: string;
+    FSocksRemoteIP: string;
+    FSocksRemotePort: string;
+    FBypassFlag: Boolean;
+    FSocksType: TSocksType;
+    function SocksCode(IP, Port: string): Ansistring;
+    function SocksDecode(Value: Ansistring): integer;
+  public
+    constructor Create;
+
+    {:Open connection to SOCKS proxy and if @link(SocksUsername) is set, do
+     authorisation to proxy. This is needed only in special cases! (it is called
+     internally!)}
+    function SocksOpen: Boolean;
+
+    {:Send specified request to SOCKS proxy. This is needed only in special
+     cases! (it is called internally!)}
+    function SocksRequest(Cmd: Byte; const IP, Port: string): Boolean;
+
+    {:Receive response to previosly sended request. This is needed only in
+     special cases! (it is called internally!)}
+    function SocksResponse: Boolean;
+
+    {:Is @True when class is using SOCKS proxy.}
+    property UsingSocks: Boolean read FUsingSocks;
+
+    {:If SOCKS proxy failed, here is error code returned from SOCKS proxy.}
+    property SocksLastError: integer read FSocksLastError;
+  published
+    {:Address of SOCKS server. If value is empty string, SOCKS support is
+     disabled. Assingning any value to this property enable SOCKS mode.
+     Warning: You cannot combine this mode with HTTP-tunneling mode!}
+    property SocksIP: string read FSocksIP write FSocksIP;
+
+    {:Port of SOCKS server. Default value is '1080'.}
+    property SocksPort: string read FSocksPort write FSocksPort;
+
+    {:If you need authorisation on SOCKS server, set username here.}
+    property SocksUsername: string read FSocksUsername write FSocksUsername;
+
+    {:If you need authorisation on SOCKS server, set password here.}
+    property SocksPassword: string read FSocksPassword write FSocksPassword;
+
+    {:Specify timeout for communicatin with SOCKS server. Default is one minute.}
+    property SocksTimeout: integer read FSocksTimeout write FSocksTimeout;
+
+    {:If @True, all symbolic names of target hosts is not translated to IP's
+     locally, but resolving is by SOCKS proxy. Default is @True.}
+    property SocksResolver: Boolean read FSocksResolver write FSocksResolver;
+
+    {:Specify SOCKS type. By default is used SOCKS5, but you can use SOCKS4 too.
+     When you select SOCKS4, then if @link(SOCKSResolver) is enabled, then is
+     used SOCKS4a. Othervise is used pure SOCKS4.}
+    property SocksType: TSocksType read FSocksType write FSocksType;
+  end;
+
+  {:@abstract(Implementation of TCP socket.)
+   Supported features: IPv4, IPv6, SSL/TLS or SSH (depending on used plugin),
+   SOCKS5 proxy (outgoing connections and limited incomming), SOCKS4/4a proxy
+   (outgoing connections and limited incomming), TCP through HTTP proxy tunnel.}
+  TTCPBlockSocket = class(TSocksBlockSocket)
+  protected
+    FOnAfterConnect: THookAfterConnect;
+    FSSL: TCustomSSL;
+    FHTTPTunnelIP: string;
+    FHTTPTunnelPort: string;
+    FHTTPTunnel: Boolean;
+    FHTTPTunnelRemoteIP: string;
+    FHTTPTunnelRemotePort: string;
+    FHTTPTunnelUser: string;
+    FHTTPTunnelPass: string;
+    FHTTPTunnelTimeout: integer;
+    procedure SocksDoConnect(IP, Port: string);
+    procedure HTTPTunnelDoConnect(IP, Port: string);
+    procedure DoAfterConnect;
+  public
+    {:Create TCP socket class with default plugin for SSL/TSL/SSH implementation
+    (see @link(SSLImplementation))}
+    constructor Create;
+
+    {:Create TCP socket class with desired plugin for SSL/TSL/SSH implementation}
+    constructor CreateWithSSL(SSLPlugin: TSSLClass);
+    destructor Destroy; override;
+
+    {:Return descriptive string for @link(LastError). On case of error
+     in SSL/TLS subsystem, it returns right error description.}
+    function GetErrorDescEx: string; override;
+
+    {:See @link(TBlockSocket.CloseSocket)}
+    procedure CloseSocket; override;
+
+    {:See @link(TBlockSocket.WaitingData)}
+    function WaitingData: Integer; override;
+
+    {:Sets socket to receive mode for new incoming connections. It is necessary
+     to use @link(TBlockSocket.BIND) function call before this method to select
+     receiving port!
+
+     If you use SOCKS, activate incoming TCP connection by this proxy. (By BIND
+     method of SOCKS.)}
+    procedure Listen; virtual;
+
+    {:Waits until new incoming connection comes. After it comes a new socket is
+     automatically created (socket handler is returned by this function as
+     result).
+
+     If you use SOCKS, new socket is not created! In this case is used same
+     socket as socket for listening! So, you can accept only one connection in
+     SOCKS mode.}
+    function Accept: TSocket;
+
+    {:Connects socket to remote IP address and PORT. The same rules as with
+     @link(TBlockSocket.BIND) method are valid. The only exception is that PORT
+     with 0 value will not be connected. After call to this method
+     a communication channel between local and remote socket is created. Local
+     socket is assigned automatically if not controlled by previous call to
+     @link(TBlockSocket.BIND) method. Structures @link(TBlockSocket.LocalSin)
+     and @link(TBlockSocket.RemoteSin) will be filled with valid values.
+
+     If you use SOCKS, activate outgoing TCP connection by SOCKS proxy specified
+     in @link(TSocksBlockSocket.SocksIP). (By CONNECT method of SOCKS.)
+
+     If you use HTTP-tunnel mode, activate outgoing TCP connection by HTTP
+     tunnel specified in @link(HTTPTunnelIP). (By CONNECT method of HTTP
+     protocol.)
+
+     Note: If you call this on non-created socket, then socket is created
+     automaticly.}
+    procedure Connect(IP, Port: string); override;
+
+    {:If you need upgrade existing TCP connection to SSL/TLS (or SSH2, if plugin
+     allows it) mode, then call this method. This method switch this class to
+     SSL mode and do SSL/TSL handshake.}
+    procedure SSLDoConnect;
+
+    {:By this method you can downgrade existing SSL/TLS connection to normal TCP
+     connection.}
+    procedure SSLDoShutdown;
+
+    {:If you need use this component as SSL/TLS TCP server, then after accepting
+     of inbound connection you need start SSL/TLS session by this method. Before
+     call this function, you must have assigned all neeeded certificates and
+     keys!}
+    function SSLAcceptConnection: Boolean;
+
+    {:See @link(TBlockSocket.GetLocalSinIP)}
+    function GetLocalSinIP: string; override;
+
+    {:See @link(TBlockSocket.GetRemoteSinIP)}
+    function GetRemoteSinIP: string; override;
+
+    {:See @link(TBlockSocket.GetLocalSinPort)}
+    function GetLocalSinPort: Integer; override;
+
+    {:See @link(TBlockSocket.GetRemoteSinPort)}
+    function GetRemoteSinPort: Integer; override;
+
+    {:See @link(TBlockSocket.SendBuffer)}
+    function SendBuffer(Buffer: TMemory; Length: Integer): Integer; override;
+
+    {:See @link(TBlockSocket.RecvBuffer)}
+    function RecvBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+
+    {:Return value of socket type. For TCP return SOCK_STREAM.}
+    function GetSocketType: integer; override;
+
+    {:Return value of protocol type for socket creation. For TCP return
+     IPPROTO_TCP.}
+    function GetSocketProtocol: integer; override;
+
+    {:Class implementing SSL/TLS support. It is allways some descendant
+     of @link(TCustomSSL) class. When programmer not select some SSL plugin
+     class, then is used @link(TSSLNone)}
+    property SSL: TCustomSSL read FSSL;
+
+    {:@True if is used HTTP tunnel mode.}
+    property HTTPTunnel: Boolean read FHTTPTunnel;
+  published
+    {:Specify IP address of HTTP proxy. Assingning non-empty value to this
+     property enable HTTP-tunnel mode. This mode is for tunnelling any outgoing
+     TCP connection through HTTP proxy server. (If policy on HTTP proxy server
+     allow this!) Warning: You cannot combine this mode with SOCK5 mode!}
+    property HTTPTunnelIP: string read FHTTPTunnelIP Write FHTTPTunnelIP;
+
+    {:Specify port of HTTP proxy for HTTP-tunneling.}
+    property HTTPTunnelPort: string read FHTTPTunnelPort Write FHTTPTunnelPort;
+
+    {:Specify authorisation username for access to HTTP proxy in HTTP-tunnel
+     mode. If you not need authorisation, then let this property empty.}
+    property HTTPTunnelUser: string read FHTTPTunnelUser Write FHTTPTunnelUser;
+
+    {:Specify authorisation password for access to HTTP proxy in HTTP-tunnel
+     mode.}
+    property HTTPTunnelPass: string read FHTTPTunnelPass Write FHTTPTunnelPass;
+
+    {:Specify timeout for communication with HTTP proxy in HTTPtunnel mode.}
+    property HTTPTunnelTimeout: integer read FHTTPTunnelTimeout Write FHTTPTunnelTimeout;
+
+    {:This event is called after sucessful TCP socket connection.}
+    property OnAfterConnect: THookAfterConnect read FOnAfterConnect write FOnAfterConnect;
+  end;
+
+  {:@abstract(Datagram based communication)
+   This class implementing datagram based communication instead default stream
+   based communication style.}
+  TDgramBlockSocket = class(TSocksBlockSocket)
+  public
+    {:Fill @link(TBlockSocket.RemoteSin) structure. This address is used for
+     sending data.}
+    procedure Connect(IP, Port: string); override;
+
+    {:Silently redirected to @link(TBlockSocket.SendBufferTo).}
+    function SendBuffer(Buffer: TMemory; Length: Integer): Integer; override;
+
+    {:Silently redirected to @link(TBlockSocket.RecvBufferFrom).}
+    function RecvBuffer(Buffer: TMemory; Length: Integer): Integer; override;
+  end;
+
+  {:@abstract(Implementation of UDP socket.)
+   NOTE: in this class is all receiving redirected to RecvBufferFrom. You can
+   use for reading any receive function. Preffered is RecvPacket! Similary all
+   sending is redirected to SendbufferTo. You can use for sending UDP packet any
+   sending function, like SendString.
+
+   Supported features: IPv4, IPv6, unicasts, broadcasts, multicasts, SOCKS5
+   proxy (only unicasts! Outgoing and incomming.)}
+  TUDPBlockSocket = class(TDgramBlockSocket)
+  protected
+    FSocksControlSock: TTCPBlockSocket;
+    function UdpAssociation: Boolean;
+    procedure SetMulticastTTL(TTL: integer);
+    function GetMulticastTTL:integer;
+  public
+    destructor Destroy; override;
+
+    {:Enable or disable sending of broadcasts. If seting OK, result is @true.
+     This method is not supported in SOCKS5 mode! IPv6 does not support
+     broadcasts! In this case you must use Multicasts instead.}
+    procedure EnableBroadcast(Value: Boolean);
+
+    {:See @link(TBlockSocket.SendBufferTo)}
+    function SendBufferTo(Buffer: TMemory; Length: Integer): Integer; override;
+
+    {:See @link(TBlockSocket.RecvBufferFrom)}
+    function RecvBufferFrom(Buffer: TMemory; Length: Integer): Integer; override;
+{$IFNDEF CIL}
+    {:Add this socket to given multicast group. You cannot use Multicasts in
+     SOCKS mode!}
+    procedure AddMulticast(MCastIP:string);
+
+    {:Remove this socket from given multicast group.}
+    procedure DropMulticast(MCastIP:string);
+{$ENDIF}
+    {:All sended multicast datagrams is loopbacked to your interface too. (you
+     can read your sended datas.) You can disable this feature by this function.
+     This function not working on some Windows systems!}
+    procedure EnableMulticastLoop(Value: Boolean);
+
+    {:Return value of socket type. For UDP return SOCK_DGRAM.}
+    function GetSocketType: integer; override;
+
+    {:Return value of protocol type for socket creation. For UDP return
+     IPPROTO_UDP.}
+    function GetSocketProtocol: integer; override;
+
+    {:Set Time-to-live value for multicasts packets. It define number of routers
+     for transfer of datas. If you set this to 1 (dafault system value), then
+     multicasts packet goes only to you local network. If you need transport
+     multicast packet to worldwide, then increase this value, but be carefull,
+     lot of routers on internet does not transport multicasts packets!}
+    property MulticastTTL: Integer read GetMulticastTTL Write SetMulticastTTL;
+  end;
+
+  {:@abstract(Implementation of RAW ICMP socket.)
+   For this object you must have rights for creating RAW sockets!}
+  TICMPBlockSocket = class(TDgramBlockSocket)
+  public
+    {:Return value of socket type. For RAW and ICMP return SOCK_RAW.}
+    function GetSocketType: integer; override;
+
+    {:Return value of protocol type for socket creation. For ICMP returns
+     IPPROTO_ICMP or IPPROTO_ICMPV6}
+    function GetSocketProtocol: integer; override;
+  end;
+
+  {:@abstract(Implementation of RAW socket.)
+   For this object you must have rights for creating RAW sockets!}
+  TRAWBlockSocket = class(TBlockSocket)
+  public
+    {:Return value of socket type. For RAW and ICMP return SOCK_RAW.}
+    function GetSocketType: integer; override;
+
+    {:Return value of protocol type for socket creation. For RAW returns
+     IPPROTO_RAW.}
+    function GetSocketProtocol: integer; override;
+  end;
+
+  {:@abstract(Parent class for all SSL plugins.)
+   This is abstract class defining interface for other SSL plugins.
+
+   Instance of this class will be created for each @link(TTCPBlockSocket).
+
+   Warning: not all methods and propertis can work in all existing SSL plugins!
+   Please, read documentation of used SSL plugin.}
+  TCustomSSL = class(TObject)
+  protected
+    FSocket: TTCPBlockSocket;
+    FSSLEnabled: Boolean;
+    FLastError: integer;
+    FLastErrorDesc: string;
+    FSSLType: TSSLType;
+    FKeyPassword: string;
+    FCiphers: string;
+    FCertificateFile: string;
+    FPrivateKeyFile: string;
+    FCertificate: Ansistring;
+    FPrivateKey: Ansistring;
+    FPFX: Ansistring;
+    FPFXfile: string;
+    FCertCA: Ansistring;
+    FCertCAFile: string;
+    FTrustCertificate: Ansistring;
+    FTrustCertificateFile: string;
+    FVerifyCert: Boolean;
+    FUsername: string;
+    FPassword: string;
+    FSSHChannelType: string;
+    FSSHChannelArg1: string;
+    FSSHChannelArg2: string;
+    procedure ReturnError;
+    function CreateSelfSignedCert(Host: string): Boolean; virtual;
+  public
+    {: Create plugin class. it is called internally from @link(TTCPBlockSocket)}
+    constructor Create(const Value: TTCPBlockSocket); virtual;
+
+    {: Assign settings (certificates and configuration) from another SSL plugin
+     class.}
+    procedure Assign(const Value: TCustomSSL); virtual;
+
+    {: return description of used plugin. It usually return name and version
+     of used SSL library.}
+    function LibVersion: String; virtual;
+
+    {: return name of used plugin.}
+    function LibName: String; virtual;
+
+    {: Do not call this directly. It is used internally by @link(TTCPBlockSocket)!
+
+     Here is needed code for start SSL connection.}
+    function Connect: boolean; virtual;
+
+    {: Do not call this directly. It is used internally by @link(TTCPBlockSocket)!
+
+     Here is needed code for acept new SSL connection.}
+    function Accept: boolean; virtual;
+
+    {: Do not call this directly. It is used internally by @link(TTCPBlockSocket)!
+
+     Here is needed code for hard shutdown of SSL connection. (for example,
+     before socket is closed)}
+    function Shutdown: boolean; virtual;
+
+    {: Do not call this directly. It is used internally by @link(TTCPBlockSocket)!
+
+     Here is needed code for soft shutdown of SSL connection. (for example,
+     when you need to continue with unprotected connection.)}
+    function BiShutdown: boolean; virtual;
+
+    {: Do not call this directly. It is used internally by @link(TTCPBlockSocket)!
+
+     Here is needed code for sending some datas by SSL connection.}
+    function SendBuffer(Buffer: TMemory; Len: Integer): Integer; virtual;
+
+    {: Do not call this directly. It is used internally by @link(TTCPBlockSocket)!
+
+     Here is needed code for receiving some datas by SSL connection.}
+    function RecvBuffer(Buffer: TMemory; Len: Integer): Integer; virtual;
+
+    {: Do not call this directly. It is used internally by @link(TTCPBlockSocket)!
+
+     Here is needed code for getting count of datas what waiting for read.
+     If SSL plugin not allows this, then it should return 0.}
+    function WaitingData: Integer; virtual;
+
+    {:Return string with identificator of SSL/TLS version of existing
+     connection.}
+    function GetSSLVersion: string; virtual;
+
+    {:Return subject of remote SSL peer.}
+    function GetPeerSubject: string; virtual;
+
+    {:Return issuer certificate of remote SSL peer.}
+    function GetPeerIssuer: string; virtual;
+
+    {:Return peer name from remote side certificate. This is good for verify,
+     if certificate is generated for remote side IP name.}
+    function GetPeerName: string; virtual;
+
+    {:Return fingerprint of remote SSL peer.}
+    function GetPeerFingerprint: string; virtual;
+
+    {:Return all detailed information about certificate from remote side of
+     SSL/TLS connection. Result string can be multilined! Each plugin can return
+     this informations in different format!}
+    function GetCertInfo: string; virtual;
+
+    {:Return currently used Cipher.}
+    function GetCipherName: string; virtual;
+
+    {:Return currently used number of bits in current Cipher algorythm.}
+    function GetCipherBits: integer; virtual;
+
+    {:Return number of bits in current Cipher algorythm.}
+    function GetCipherAlgBits: integer; virtual;
+
+    {:Return result value of verify remote side certificate. Look to OpenSSL
+     documentation for possible values. For example 0 is successfuly verified
+     certificate, or 18 is self-signed certificate.}
+    function GetVerifyCert: integer; virtual;
+
+    {: Resurn @true if SSL mode is enabled on existing cvonnection.}
+    property SSLEnabled: Boolean read FSSLEnabled;
+
+    {:Return error code of last SSL operation. 0 is OK.}
+    property LastError: integer read FLastError;
+
+    {:Return error description of last SSL operation.}
+    property LastErrorDesc: string read FLastErrorDesc;
+  published
+    {:Here you can specify requested SSL/TLS mode. Default is autodetection, but
+     on some servers autodetection not working properly. In this case you must
+     specify requested SSL/TLS mode by your hand!}
+    property SSLType: TSSLType read FSSLType write FSSLType;
+
+    {:Password for decrypting of encoded certificate or key.}
+    property KeyPassword: string read FKeyPassword write FKeyPassword;
+
+    {:Username for possible credentials.}
+    property Username: string read FUsername write FUsername;
+
+    {:password for possible credentials.}
+    property Password: string read FPassword write FPassword;
+
+    {:By this property you can modify default set of SSL/TLS ciphers.}
+    property Ciphers: string read FCiphers write FCiphers;
+
+    {:Used for loading certificate from disk file. See to plugin documentation
+     if this method is supported and how!}
+    property CertificateFile: string read FCertificateFile write FCertificateFile;
+
+    {:Used for loading private key from disk file. See to plugin documentation
+     if this method is supported and how!}
+    property PrivateKeyFile: string read FPrivateKeyFile write FPrivateKeyFile;
+
+    {:Used for loading certificate from binary string. See to plugin documentation
+     if this method is supported and how!}
+    property Certificate: Ansistring read FCertificate write FCertificate;
+
+    {:Used for loading private key from binary string. See to plugin documentation
+     if this method is supported and how!}
+    property PrivateKey: Ansistring read FPrivateKey write FPrivateKey;
+
+    {:Used for loading PFX from binary string. See to plugin documentation
+     if this method is supported and how!}
+    property PFX: Ansistring read FPFX write FPFX;
+
+    {:Used for loading PFX from disk file. See to plugin documentation
+     if this method is supported and how!}
+    property PFXfile: string read FPFXfile write FPFXfile;
+
+    {:Used for loading trusted certificates from disk file. See to plugin documentation
+     if this method is supported and how!}
+    property TrustCertificateFile: string read FTrustCertificateFile write FTrustCertificateFile;
+
+    {:Used for loading trusted certificates from binary string. See to plugin documentation
+     if this method is supported and how!}
+    property TrustCertificate: Ansistring read FTrustCertificate write FTrustCertificate;
+
+    {:Used for loading CA certificates from binary string. See to plugin documentation
+     if this method is supported and how!}
+    property CertCA: Ansistring read FCertCA write FCertCA;
+
+    {:Used for loading CA certificates from disk file. See to plugin documentation
+     if this method is supported and how!}
+    property CertCAFile: string read FCertCAFile write FCertCAFile;
+
+    {:If @true, then is verified client certificate. (it is good for writing
+     SSL/TLS servers.) When you are not server, but you are client, then if this
+     property is @true, verify servers certificate.}
+    property VerifyCert: Boolean read FVerifyCert write FVerifyCert;
+
+    {:channel type for possible SSH connections}
+    property SSHChannelType: string read FSSHChannelType write FSSHChannelType;
+
+    {:First argument of channel type for possible SSH connections}
+    property SSHChannelArg1: string read FSSHChannelArg1 write FSSHChannelArg1;
+
+    {:Second argument of channel type for possible SSH connections}
+    property SSHChannelArg2: string read FSSHChannelArg2 write FSSHChannelArg2;
+  end;
+
+  {:@abstract(Default SSL plugin with no SSL support.)
+   Dummy SSL plugin implementation for applications without SSL/TLS support.}
+  TSSLNone = class (TCustomSSL)
+  public
+    {:See @inherited}
+    function LibVersion: String; override;
+    {:See @inherited}
+    function LibName: String; override;
+  end;
+
+  {:@abstract(Record with definition of IP packet header.)
+   For reading data from ICMP or RAW sockets.}
+  TIPHeader = record
+    VerLen: Byte;
+    TOS: Byte;
+    TotalLen: Word;
+    Identifer: Word;
+    FragOffsets: Word;
+    TTL: Byte;
+    Protocol: Byte;
+    CheckSum: Word;
+    SourceIp: LongWord;
+    DestIp: LongWord;
+    Options: LongWord;
+  end;
+
+  {:@abstract(Parent class of application protocol implementations.)
+   By this class is defined common properties.}
+  TSynaClient = Class(TObject)
+  protected
+    FTargetHost: string;
+    FTargetPort: string;
+    FIPInterface: string;
+    FTimeout: integer;
+    FUserName: string;
+    FPassword: string;
+  public
+    constructor Create;
+  published
+    {:Specify terget server IP (or symbolic name). Default is 'localhost'.}
+    property TargetHost: string read FTargetHost Write FTargetHost;
+
+    {:Specify terget server port (or symbolic name).}
+    property TargetPort: string read FTargetPort Write FTargetPort;
+
+    {:Defined local socket address. (outgoing IP address). By default is used
+     '0.0.0.0' as wildcard for default IP.}
+    property IPInterface: string read FIPInterface Write FIPInterface;
+
+    {:Specify default timeout for socket operations.}
+    property Timeout: integer read FTimeout Write FTimeout;
+
+    {:If protocol need user authorization, then fill here username.}
+    property UserName: string read FUserName Write FUserName;
+
+    {:If protocol need user authorization, then fill here password.}
+    property Password: string read FPassword Write FPassword;
+  end;
+
+var
+  {:Selected SSL plugin. Default is @link(TSSLNone).
+
+   Do not change this value directly!!!
+
+   Just add your plugin unit to your project uses instead. Each plugin unit have
+   initialization code what modify this variable.}
+  SSLImplementation: TSSLClass = TSSLNone;
+
+implementation
+
+{$IFDEF ONCEWINSOCK}
+var
+  WsaDataOnce: TWSADATA;
+  e: ESynapseError;
+{$ENDIF}
+
+
+constructor TBlockSocket.Create;
+begin
+  CreateAlternate('');
+end;
+
+constructor TBlockSocket.CreateAlternate(Stub: string);
+{$IFNDEF ONCEWINSOCK}
+var
+  e: ESynapseError;
+{$ENDIF}
+begin
+  inherited Create;
+  FDelayedOptions := TList.Create;
+  FRaiseExcept := False;
+{$IFDEF RAISEEXCEPT}
+  FRaiseExcept := True;
+{$ENDIF}
+  FSocket := INVALID_SOCKET;
+  FBuffer := '';
+  FLastCR := False;
+  FLastLF := False;
+  FBinded := False;
+  FNonBlockMode := False;
+  FMaxLineLength := 0;
+  FMaxSendBandwidth := 0;
+  FNextSend := 0;
+  FMaxRecvBandwidth := 0;
+  FNextRecv := 0;
+  FConvertLineEnd := False;
+  FFamily := SF_Any;
+  FFamilySave := SF_Any;
+  FIP6used := False;
+  FPreferIP4 := True;
+  FInterPacketTimeout := True;
+  FRecvCounter := 0;
+  FSendCounter := 0;
+  FSendMaxChunk := c64k;
+  FStopFlag := False;
+  FNonblockSendTimeout := 15000;
+  FHeartbeatRate := 0;
+{$IFNDEF ONCEWINSOCK}
+  if Stub = '' then
+    Stub := DLLStackName;
+  if not InitSocketInterface(Stub) then
+  begin
+    e := ESynapseError.Create('Error loading Socket interface (' + Stub + ')!');
+    e.ErrorCode := 0;
+    e.ErrorMessage := 'Error loading Socket interface (' + Stub + ')!';
+    raise e;
+  end;
+  SockCheck(synsock.WSAStartup(WinsockLevel, FWsaDataOnce));
+  ExceptCheck;
+{$ENDIF}
+end;
+
+destructor TBlockSocket.Destroy;
+var
+  n: integer;
+  p: TSynaOption;
+begin
+  CloseSocket;
+{$IFNDEF ONCEWINSOCK}
+  synsock.WSACleanup;
+  DestroySocketInterface;
+{$ENDIF}
+  for n := FDelayedOptions.Count - 1 downto 0 do
+    begin
+      p := TSynaOption(FDelayedOptions[n]);
+      p.Free;
+    end;
+  FDelayedOptions.Free;
+  inherited Destroy;
+end;
+
+function TBlockSocket.FamilyToAF(f: TSocketFamily): TAddrFamily;
+begin
+  case f of
+    SF_ip4:
+      Result := AF_INET;
+    SF_ip6:
+      Result := AF_INET6;
+  else
+    Result := AF_UNSPEC;
+  end;
+end;
+
+procedure TBlockSocket.SetDelayedOption(const Value: TSynaOption);
+var
+  li: TLinger;
+  x: integer;
+  buf: TMemory;
+{$IFNDEF WIN32}
+  timeval: TTimeval;
+{$ENDIF}
+begin
+  case value.Option of
+    SOT_Linger:
+      begin
+        {$IFDEF CIL}
+        li := TLinger.Create(Value.Enabled, Value.Value div 1000);
+        synsock.SetSockOptObj(FSocket, integer(SOL_SOCKET), integer(SO_LINGER), li);
+        {$ELSE}
+        li.l_onoff := Ord(Value.Enabled);
+        li.l_linger := Value.Value div 1000;
+        buf := @li;
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_LINGER), buf, SizeOf(li));
+        {$ENDIF}
+      end;
+    SOT_RecvBuff:
+      begin
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(value.Value);
+        {$ELSE}
+        buf := @Value.Value;
+        {$ENDIF}
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_RCVBUF),
+          buf, SizeOf(Value.Value));
+      end;
+    SOT_SendBuff:
+      begin
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(value.Value);
+        {$ELSE}
+        buf := @Value.Value;
+        {$ENDIF}
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_SNDBUF),
+          buf, SizeOf(Value.Value));
+      end;
+    SOT_NonBlock:
+      begin
+        FNonBlockMode := Value.Enabled;
+        x := Ord(FNonBlockMode);
+        synsock.IoctlSocket(FSocket, FIONBIO, x);
+      end;
+    SOT_RecvTimeout:
+      begin
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(value.Value);
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_RCVTIMEO),
+          buf, SizeOf(Value.Value));
+        {$ELSE}
+          {$IFDEF WIN32}
+        buf := @Value.Value;
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_RCVTIMEO),
+          buf, SizeOf(Value.Value));
+          {$ELSE}
+        timeval.tv_sec:=Value.Value div 1000;
+        timeval.tv_usec:=(Value.Value mod 1000) * 1000;
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_RCVTIMEO),
+          @timeval, SizeOf(timeval));
+          {$ENDIF}
+        {$ENDIF}
+      end;
+    SOT_SendTimeout:
+      begin
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(value.Value);
+        {$ELSE}
+          {$IFDEF WIN32}
+        buf := @Value.Value;
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_SNDTIMEO),
+          buf, SizeOf(Value.Value));
+          {$ELSE}
+        timeval.tv_sec:=Value.Value div 1000;
+        timeval.tv_usec:=(Value.Value mod 1000) * 1000;
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_SNDTIMEO),
+          @timeval, SizeOf(timeval));
+          {$ENDIF}
+        {$ENDIF}
+      end;
+    SOT_Reuse:
+      begin
+        x := Ord(Value.Enabled);
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(x);
+        {$ELSE}
+        buf := @x;
+        {$ENDIF}
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_REUSEADDR), buf, SizeOf(x));
+      end;
+    SOT_TTL:
+      begin
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(value.Value);
+        {$ELSE}
+        buf := @Value.Value;
+        {$ENDIF}
+        if FIP6Used then
+          synsock.SetSockOpt(FSocket, integer(IPPROTO_IPV6), integer(IPV6_UNICAST_HOPS),
+            buf, SizeOf(Value.Value))
+        else
+          synsock.SetSockOpt(FSocket, integer(IPPROTO_IP), integer(IP_TTL),
+            buf, SizeOf(Value.Value));
+      end;
+    SOT_Broadcast:
+      begin
+//#todo1 broadcasty na IP6
+        x := Ord(Value.Enabled);
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(x);
+        {$ELSE}
+        buf := @x;
+        {$ENDIF}
+        synsock.SetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_BROADCAST), buf, SizeOf(x));
+      end;
+    SOT_MulticastTTL:
+      begin
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(value.Value);
+        {$ELSE}
+        buf := @Value.Value;
+        {$ENDIF}
+        if FIP6Used then
+          synsock.SetSockOpt(FSocket, integer(IPPROTO_IPV6), integer(IPV6_MULTICAST_HOPS),
+            buf, SizeOf(Value.Value))
+        else
+          synsock.SetSockOpt(FSocket, integer(IPPROTO_IP), integer(IP_MULTICAST_TTL),
+            buf, SizeOf(Value.Value));
+      end;
+   SOT_MulticastLoop:
+      begin
+        x := Ord(Value.Enabled);
+        {$IFDEF CIL}
+        buf := System.BitConverter.GetBytes(x);
+        {$ELSE}
+        buf := @x;
+        {$ENDIF}
+        if FIP6Used then
+          synsock.SetSockOpt(FSocket, integer(IPPROTO_IPV6), integer(IPV6_MULTICAST_LOOP), buf, SizeOf(x))
+        else
+          synsock.SetSockOpt(FSocket, integer(IPPROTO_IP), integer(IP_MULTICAST_LOOP), buf, SizeOf(x));
+      end;
+  end;
+  Value.free;
+end;
+
+procedure TBlockSocket.DelayedOption(const Value: TSynaOption);
+begin
+  if FSocket = INVALID_SOCKET then
+  begin
+    FDelayedOptions.Insert(0, Value);
+  end
+  else
+    SetDelayedOption(Value);
+end;
+
+procedure TBlockSocket.ProcessDelayedOptions;
+var
+  n: integer;
+  d: TSynaOption;
+begin
+  for n := FDelayedOptions.Count - 1 downto 0 do
+  begin
+    d := TSynaOption(FDelayedOptions[n]);
+    SetDelayedOption(d);
+  end;
+  FDelayedOptions.Clear;
+end;
+
+procedure TBlockSocket.SetSin(var Sin: TVarSin; IP, Port: string);
+var
+  f: TSocketFamily;
+begin
+  DoStatus(HR_ResolvingBegin, IP + ':' + Port);
+  ResetLastError;
+  //if socket exists, then use their type, else use users selection
+  f := SF_Any;
+  if (FSocket = INVALID_SOCKET) and (FFamily = SF_any) then
+  begin
+    if IsIP(IP) then
+      f := SF_IP4
+    else
+      if IsIP6(IP) then
+        f := SF_IP6;
+  end
+  else
+    f := FFamily;
+  FLastError := synsock.SetVarSin(sin, ip, port, FamilyToAF(f),
+    GetSocketprotocol, GetSocketType, FPreferIP4);
+  DoStatus(HR_ResolvingEnd, GetSinIP(sin) + ':' + IntTostr(GetSinPort(sin)));
+end;
+
+function TBlockSocket.GetSinIP(Sin: TVarSin): string;
+begin
+  Result := synsock.GetSinIP(sin);
+end;
+
+function TBlockSocket.GetSinPort(Sin: TVarSin): Integer;
+begin
+  Result := synsock.GetSinPort(sin);
+end;
+
+procedure TBlockSocket.CreateSocket;
+var
+  sin: TVarSin;
+begin
+  //dummy for SF_Any Family mode
+  ResetLastError;
+  if (FFamily <> SF_Any) and (FSocket = INVALID_SOCKET) then
+  begin
+    {$IFDEF CIL}
+    if FFamily = SF_IP6 then
+      sin := TVarSin.Create(IPAddress.Parse('::0'), 0)
+    else
+      sin := TVarSin.Create(IPAddress.Parse('0.0.0.0'), 0);
+    {$ELSE}
+    FillChar(Sin, Sizeof(Sin), 0);
+    if FFamily = SF_IP6 then
+      sin.sin_family := AF_INET6
+    else
+      sin.sin_family := AF_INET;
+    {$ENDIF}
+    InternalCreateSocket(Sin);
+  end;
+end;
+
+procedure TBlockSocket.CreateSocketByName(const Value: String);
+var
+  sin: TVarSin;
+begin
+  ResetLastError;
+  if FSocket = INVALID_SOCKET then
+  begin
+    SetSin(sin, value, '0');
+    if FLastError = 0 then
+      InternalCreateSocket(Sin);
+  end;
+end;
+
+procedure TBlockSocket.InternalCreateSocket(Sin: TVarSin);
+begin
+  FStopFlag := False;
+  FRecvCounter := 0;
+  FSendCounter := 0;
+  ResetLastError;
+  if FSocket = INVALID_SOCKET then
+  begin
+    FBuffer := '';
+    FBinded := False;
+    FIP6Used := Sin.AddressFamily = AF_INET6;
+    FSocket := synsock.Socket(integer(Sin.AddressFamily), GetSocketType, GetSocketProtocol);
+    if FSocket = INVALID_SOCKET then
+      FLastError := synsock.WSAGetLastError;
+    {$IFNDEF CIL}
+    FD_ZERO(FFDSet);
+    FD_SET(FSocket, FFDSet);
+    {$ENDIF}
+    ExceptCheck;
+    if FIP6used then
+      DoStatus(HR_SocketCreate, 'IPv6')
+    else
+      DoStatus(HR_SocketCreate, 'IPv4');
+    ProcessDelayedOptions;
+    DoCreateSocket;
+  end;
+end;
+
+procedure TBlockSocket.CloseSocket;
+begin
+  AbortSocket;
+end;
+
+procedure TBlockSocket.AbortSocket;
+var
+  n: integer;
+  p: TSynaOption;
+begin
+  if FSocket <> INVALID_SOCKET then
+    synsock.CloseSocket(FSocket);
+  FSocket := INVALID_SOCKET;
+  for n := FDelayedOptions.Count - 1 downto 0 do
+    begin
+      p := TSynaOption(FDelayedOptions[n]);
+      p.Free;
+    end;
+  FDelayedOptions.Clear;
+  FFamily := FFamilySave;
+  DoStatus(HR_SocketClose, '');
+end;
+
+procedure TBlockSocket.Bind(IP, Port: string);
+var
+  Sin: TVarSin;
+begin
+  ResetLastError;
+  if (FSocket <> INVALID_SOCKET)
+    or not((FFamily = SF_ANY) and (IP = cAnyHost) and (Port = cAnyPort)) then
+  begin
+    SetSin(Sin, IP, Port);
+    if FLastError = 0 then
+    begin
+      if FSocket = INVALID_SOCKET then
+        InternalCreateSocket(Sin);
+      SockCheck(synsock.Bind(FSocket, Sin));
+      GetSinLocal;
+      FBuffer := '';
+      FBinded := True;
+    end;
+    ExceptCheck;
+    DoStatus(HR_Bind, IP + ':' + Port);
+  end;
+end;
+
+procedure TBlockSocket.Connect(IP, Port: string);
+var
+  Sin: TVarSin;
+begin
+  SetSin(Sin, IP, Port);
+  if FLastError = 0 then
+  begin
+    if FSocket = INVALID_SOCKET then
+      InternalCreateSocket(Sin);
+    SockCheck(synsock.Connect(FSocket, Sin));
+    if FLastError = 0 then
+      GetSins;
+    FBuffer := '';
+    FLastCR := False;
+    FLastLF := False;
+  end;
+  ExceptCheck;
+  DoStatus(HR_Connect, IP + ':' + Port);
+end;
+
+procedure TBlockSocket.GetSinLocal;
+begin
+  synsock.GetSockName(FSocket, FLocalSin);
+end;
+
+procedure TBlockSocket.GetSinRemote;
+begin
+  synsock.GetPeerName(FSocket, FRemoteSin);
+end;
+
+procedure TBlockSocket.GetSins;
+begin
+  GetSinLocal;
+  GetSinRemote;
+end;
+
+procedure TBlockSocket.SetBandwidth(Value: Integer);
+begin
+  MaxSendBandwidth := Value;
+  MaxRecvBandwidth := Value;
+end;
+
+procedure TBlockSocket.LimitBandwidth(Length: Integer; MaxB: integer; var Next: LongWord);
+var
+  x: LongWord;
+  y: LongWord;
+  n: integer;
+begin
+  if FStopFlag then
+    exit;
+  if MaxB > 0 then
+  begin
+    y := GetTick;
+    if Next > y then
+    begin
+      x := Next - y;
+      if x > 0 then
+      begin
+        DoStatus(HR_Wait, IntToStr(x));
+        sleep(x mod 250);
+        for n := 1 to x div 250 do
+          if FStopFlag then
+            Break
+          else
+            sleep(250);
+      end;
+    end;
+    Next := GetTick + Trunc((Length / MaxB) * 1000);
+  end;
+end;
+
+function TBlockSocket.TestStopFlag: Boolean;
+begin
+  DoHeartbeat;
+  Result := FStopFlag;
+  if Result then
+  begin
+    FStopFlag := False;
+    FLastError := WSAECONNABORTED;
+    ExceptCheck;
+  end;
+end;
+
+
+function TBlockSocket.SendBuffer(Buffer: TMemory; Length: Integer): Integer;
+{$IFNDEF CIL}
+var
+  x, y: integer;
+  l, r: integer;
+  p: Pointer;
+{$ENDIF}
+begin
+  Result := 0;
+  if TestStopFlag then
+    Exit;
+  DoMonitor(True, Buffer, Length);
+{$IFDEF CIL}
+  Result := synsock.Send(FSocket, Buffer, Length, 0);
+{$ELSE}
+  l := Length;
+  x := 0;
+  while x < l do
+  begin
+    y := l - x;
+    if y > FSendMaxChunk then
+      y := FSendMaxChunk;
+    if y > 0 then
+    begin
+      LimitBandwidth(y, FMaxSendBandwidth, FNextsend);
+      p := IncPoint(Buffer, x);
+      r := synsock.Send(FSocket, p, y, MSG_NOSIGNAL);
+      SockCheck(r);
+      if FLastError = WSAEWOULDBLOCK then
+      begin
+        if CanWrite(FNonblockSendTimeout) then
+        begin
+          r := synsock.Send(FSocket, p, y, MSG_NOSIGNAL);
+          SockCheck(r);
+        end
+        else
+          FLastError := WSAETIMEDOUT;
+      end;
+      if FLastError <> 0 then
+        Break;
+      Inc(x, r);
+      Inc(Result, r);
+      Inc(FSendCounter, r);
+      DoStatus(HR_WriteCount, IntToStr(r));
+    end
+    else
+      break;
+  end;
+{$ENDIF}
+  ExceptCheck;
+end;
+
+procedure TBlockSocket.SendByte(Data: Byte);
+{$IFDEF CIL}
+var
+  buf: TMemory;
+{$ENDIF}
+begin
+{$IFDEF CIL}
+  setlength(buf, 1);
+  buf[0] := Data;
+  SendBuffer(buf, 1);
+{$ELSE}
+  SendBuffer(@Data, 1);
+{$ENDIF}
+end;
+
+procedure TBlockSocket.SendString(Data: AnsiString);
+var
+  buf: TMemory;
+begin
+  {$IFDEF CIL}
+  buf := BytesOf(Data);
+  {$ELSE}
+  buf := Pointer(data);
+  {$ENDIF}
+  SendBuffer(buf, Length(Data));
+end;
+
+procedure TBlockSocket.SendInteger(Data: integer);
+var
+  buf: TMemory;
+begin
+  {$IFDEF CIL}
+  buf := System.BitConverter.GetBytes(Data);
+  {$ELSE}
+  buf := @Data;
+  {$ENDIF}
+  SendBuffer(buf, SizeOf(Data));
+end;
+
+procedure TBlockSocket.SendBlock(const Data: AnsiString);
+var
+  i: integer;
+begin
+  i := SwapBytes(Length(data));
+  SendString(Codelongint(i) + Data);
+end;
+
+procedure TBlockSocket.InternalSendStream(const Stream: TStream; WithSize, Indy: boolean);
+var
+  l: integer;
+  yr: integer;
+  s: AnsiString;
+  b: boolean;
+{$IFDEF CIL}
+  buf: TMemory;
+{$ENDIF}
+begin
+  l:=0;
+  b := true;
+  if WithSize then
+  begin
+    l := Stream.Size - Stream.Position;;
+    if Indy then
+      l := SwapBytes(l);
+  end;
+  repeat
+    {$IFDEF CIL}
+    Setlength(buf, FSendMaxChunk);
+    yr := Stream.read(buf, FSendMaxChunk);
+    if yr > 0 then
+    begin
+      if WithSize and b then
+      begin
+        b := false;
+        SendString(CodeLongInt(l));
+      end;
+      SendBuffer(buf, yr);
+      if FLastError <> 0 then
+        break;
+    end
+    {$ELSE}
+    Setlength(s, FSendMaxChunk);
+    yr := Stream.read(Pointer(s)^, FSendMaxChunk);
+    if yr > 0 then
+    begin
+      SetLength(s, yr);
+      if WithSize and b then
+      begin
+        b := false;
+        SendString(CodeLongInt(l) + s);
+      end
+      else
+        SendString(s);
+      if FLastError <> 0 then
+        break;
+    end
+    {$ENDIF}
+  until yr <= 0;
+end;
+
+procedure TBlockSocket.SendStreamRaw(const Stream: TStream);
+begin
+  InternalSendStream(Stream, false, false);
+end;
+
+procedure TBlockSocket.SendStreamIndy(const Stream: TStream);
+begin
+  InternalSendStream(Stream, true, true);
+end;
+
+procedure TBlockSocket.SendStream(const Stream: TStream);
+begin
+  InternalSendStream(Stream, true, false);
+end;
+
+function TBlockSocket.RecvBuffer(Buffer: TMemory; Length: Integer): Integer;
+begin
+  Result := 0;
+  if TestStopFlag then
+    Exit;
+  LimitBandwidth(Length, FMaxRecvBandwidth, FNextRecv);
+//  Result := synsock.Recv(FSocket, Buffer^, Length, MSG_NOSIGNAL);
+  Result := synsock.Recv(FSocket, Buffer, Length, MSG_NOSIGNAL);
+  if Result = 0 then
+    FLastError := WSAECONNRESET
+  else
+    SockCheck(Result);
+  ExceptCheck;
+  if Result > 0 then
+  begin
+    Inc(FRecvCounter, Result);
+    DoStatus(HR_ReadCount, IntToStr(Result));
+    DoMonitor(False, Buffer, Result);
+    DoReadFilter(Buffer, Result);
+  end;
+end;
+
+function TBlockSocket.RecvBufferEx(Buffer: TMemory; Len: Integer;
+  Timeout: Integer): Integer;
+var
+  s: AnsiString;
+  rl, l: integer;
+  ti: LongWord;
+{$IFDEF CIL}
+  n: integer;
+  b: TMemory;
+{$ENDIF}
+begin
+  ResetLastError;
+  Result := 0;
+  if Len > 0 then
+  begin
+    rl := 0;
+    repeat
+      ti := GetTick;
+      s := RecvPacket(Timeout);
+      l := Length(s);
+      if (rl + l) > Len then
+        l := Len - rl;
+      {$IFDEF CIL}
+      b := BytesOf(s);
+      for n := 0 to l do
+        Buffer[rl + n] := b[n];
+      {$ELSE}
+      Move(Pointer(s)^, IncPoint(Buffer, rl)^, l);
+      {$ENDIF}
+      rl := rl + l;
+      if FLastError <> 0 then
+        Break;
+      if rl >= Len then
+        Break;
+      if not FInterPacketTimeout then
+      begin
+        Timeout := Timeout - integer(TickDelta(ti, GetTick));
+        if Timeout <= 0 then
+        begin
+          FLastError := WSAETIMEDOUT;
+          Break;
+        end;
+      end;
+    until False;
+    delete(s, 1, l);
+    FBuffer := s;
+    Result := rl;
+  end;
+end;
+
+function TBlockSocket.RecvBufferStr(Len: Integer; Timeout: Integer): AnsiString;
+var
+  x: integer;
+{$IFDEF CIL}
+  buf: Tmemory;
+{$ENDIF}
+begin
+  Result := '';
+  if Len > 0 then
+  begin
+    {$IFDEF CIL}
+    Setlength(Buf, Len);
+    x := RecvBufferEx(buf, Len , Timeout);
+    if FLastError = 0 then
+    begin
+      SetLength(Buf, x);
+      Result := StringOf(buf);
+    end
+    else
+      Result := '';
+    {$ELSE}
+    Setlength(Result, Len);
+    x := RecvBufferEx(Pointer(Result), Len , Timeout);
+    if FLastError = 0 then
+      SetLength(Result, x)
+    else
+      Result := '';
+    {$ENDIF}
+  end;
+end;
+
+function TBlockSocket.RecvPacket(Timeout: Integer): AnsiString;
+var
+  x: integer;
+{$IFDEF CIL}
+  buf: TMemory;
+{$ENDIF}
+begin
+  Result := '';
+  ResetLastError;
+  if FBuffer <> '' then
+  begin
+    Result := FBuffer;
+    FBuffer := '';
+  end
+  else
+  begin
+    {$IFDEF WIN32}
+    //not drain CPU on large downloads...
+    Sleep(0);
+    {$ENDIF}
+    x := WaitingData;
+    if x > 0 then
+    begin
+      {$IFDEF CIL}
+      SetLength(Buf, x);
+      x := RecvBuffer(Buf, x);
+      if x >= 0 then
+      begin
+        SetLength(Buf, x);
+        Result := StringOf(Buf);
+      end;
+      {$ELSE}
+      SetLength(Result, x);
+      x := RecvBuffer(Pointer(Result), x);
+      if x >= 0 then
+        SetLength(Result, x);
+      {$ENDIF}
+    end
+    else
+    begin
+      if CanRead(Timeout) then
+      begin
+        x := WaitingData;
+        if x = 0 then
+          FLastError := WSAECONNRESET;
+        if x > 0 then
+        begin
+          {$IFDEF CIL}
+          SetLength(Buf, x);
+          x := RecvBuffer(Buf, x);
+          if x >= 0 then
+          begin
+            SetLength(Buf, x);
+            result := StringOf(Buf);
+          end;
+          {$ELSE}
+          SetLength(Result, x);
+          x := RecvBuffer(Pointer(Result), x);
+          if x >= 0 then
+            SetLength(Result, x);
+          {$ENDIF}
+        end;
+      end
+      else
+        FLastError := WSAETIMEDOUT;
+    end;
+  end;
+  if FConvertLineEnd and (Result <> '') then
+  begin
+    if FLastCR and (Result[1] = LF) then
+      Delete(Result, 1, 1);
+    if FLastLF and (Result[1] = CR) then
+      Delete(Result, 1, 1);
+    FLastCR := False;
+    FLastLF := False;
+  end;
+  ExceptCheck;
+end;
+
+
+function TBlockSocket.RecvByte(Timeout: Integer): Byte;
+begin
+  Result := 0;
+  ResetLastError;
+  if FBuffer = '' then
+    FBuffer := RecvPacket(Timeout);
+  if (FLastError = 0) and (FBuffer <> '') then
+  begin
+    Result := Ord(FBuffer[1]);
+    Delete(FBuffer, 1, 1);
+  end;
+  ExceptCheck;
+end;
+
+function TBlockSocket.RecvInteger(Timeout: Integer): Integer;
+var
+  s: AnsiString;
+begin
+  Result := 0;
+  s := RecvBufferStr(4, Timeout);
+  if FLastError = 0 then
+    Result := (ord(s[1]) + ord(s[2]) * 256) + (ord(s[3]) + ord(s[4]) * 256) * 65536;
+end;
+
+function TBlockSocket.RecvTerminated(Timeout: Integer; const Terminator: AnsiString): AnsiString;
+var
+  x: Integer;
+  s: AnsiString;
+  l: Integer;
+  CorCRLF: Boolean;
+  t: AnsiString;
+  tl: integer;
+  ti: LongWord;
+begin
+  ResetLastError;
+  Result := '';
+  l := Length(Terminator);
+  if l = 0 then
+    Exit;
+  tl := l;
+  CorCRLF := FConvertLineEnd and (Terminator = CRLF);
+  s := '';
+  x := 0;
+  repeat
+    //get rest of FBuffer or incomming new data...
+    ti := GetTick;
+    s := s + RecvPacket(Timeout);
+    if FLastError <> 0 then
+      Break;
+    x := 0;
+    if Length(s) > 0 then
+      if CorCRLF then
+      begin
+        t := '';
+        x := PosCRLF(s, t);
+        tl := Length(t);
+        if t = CR then
+          FLastCR := True;
+        if t = LF then
+          FLastLF := True;
+      end
+      else
+      begin
+        x := pos(Terminator, s);
+        tl := l;
+      end;
+    if (FMaxLineLength <> 0) and (Length(s) > FMaxLineLength) then
+    begin
+      FLastError := WSAENOBUFS;
+      Break;
+    end;
+    if x > 0 then
+      Break;
+    if not FInterPacketTimeout then
+    begin
+      Timeout := Timeout - integer(TickDelta(ti, GetTick));
+      if Timeout <= 0 then
+      begin
+        FLastError := WSAETIMEDOUT;
+        Break;
+      end;
+    end;
+  until False;
+  if x > 0 then
+  begin
+    Result := Copy(s, 1, x - 1);
+    Delete(s, 1, x + tl - 1);
+  end;
+  FBuffer := s;
+  ExceptCheck;
+end;
+
+function TBlockSocket.RecvString(Timeout: Integer): AnsiString;
+var
+  s: AnsiString;
+begin
+  Result := '';
+  s := RecvTerminated(Timeout, CRLF);
+  if FLastError = 0 then
+    Result := s;
+end;
+
+function TBlockSocket.RecvBlock(Timeout: Integer): AnsiString;
+var
+  x: integer;
+begin
+  Result := '';
+  x := RecvInteger(Timeout);
+  if FLastError = 0 then
+    Result := RecvBufferStr(x, Timeout);
+end;
+
+procedure TBlockSocket.RecvStreamRaw(const Stream: TStream; Timeout: Integer);
+var
+  s: AnsiString;
+begin
+  repeat
+    s := RecvPacket(Timeout);
+    if FLastError = 0 then
+      WriteStrToStream(Stream, s);
+  until FLastError <> 0;
+end;
+
+procedure TBlockSocket.RecvStreamSize(const Stream: TStream; Timeout: Integer; Size: Integer);
+var
+  s: AnsiString;
+  n: integer;
+{$IFDEF CIL}
+  buf: TMemory;
+{$ENDIF}
+begin
+  for n := 1 to (Size div FSendMaxChunk) do
+  begin
+    {$IFDEF CIL}
+    SetLength(buf, FSendMaxChunk);
+    RecvBufferEx(buf, FSendMaxChunk, Timeout);
+    if FLastError <> 0 then
+      Exit;
+    Stream.Write(buf, FSendMaxChunk);
+    {$ELSE}
+    s := RecvBufferStr(FSendMaxChunk, Timeout);
+    if FLastError <> 0 then
+      Exit;
+    WriteStrToStream(Stream, s);
+    {$ENDIF}
+  end;
+  n := Size mod FSendMaxChunk;
+  if n > 0 then
+  begin
+    {$IFDEF CIL}
+    SetLength(buf, n);
+    RecvBufferEx(buf, n, Timeout);
+    if FLastError <> 0 then
+      Exit;
+    Stream.Write(buf, n);
+    {$ELSE}
+    s := RecvBufferStr(n, Timeout);
+    if FLastError <> 0 then
+      Exit;
+    WriteStrToStream(Stream, s);
+    {$ENDIF}
+  end;
+end;
+
+procedure TBlockSocket.RecvStreamIndy(const Stream: TStream; Timeout: Integer);
+var
+  x: integer;
+begin
+  x := RecvInteger(Timeout);
+  x := synsock.NToHL(x);
+  if FLastError = 0 then
+    RecvStreamSize(Stream, Timeout, x);
+end;
+
+procedure TBlockSocket.RecvStream(const Stream: TStream; Timeout: Integer);
+var
+  x: integer;
+begin
+  x := RecvInteger(Timeout);
+  if FLastError = 0 then
+    RecvStreamSize(Stream, Timeout, x);
+end;
+
+function TBlockSocket.PeekBuffer(Buffer: TMemory; Length: Integer): Integer;
+begin
+ {$IFNDEF CIL}
+//  Result := synsock.Recv(FSocket, Buffer^, Length, MSG_PEEK + MSG_NOSIGNAL);
+  Result := synsock.Recv(FSocket, Buffer, Length, MSG_PEEK + MSG_NOSIGNAL);
+  SockCheck(Result);
+  ExceptCheck;
+  {$ENDIF}
+end;
+
+function TBlockSocket.PeekByte(Timeout: Integer): Byte;
+var
+  s: string;
+begin
+ {$IFNDEF CIL}
+  Result := 0;
+  if CanRead(Timeout) then
+  begin
+    SetLength(s, 1);
+    PeekBuffer(Pointer(s), 1);
+    if s <> '' then
+      Result := Ord(s[1]);
+  end
+  else
+    FLastError := WSAETIMEDOUT;
+  ExceptCheck;
+  {$ENDIF}
+end;
+
+procedure TBlockSocket.ResetLastError;
+begin
+  FLastError := 0;
+  FLastErrorDesc := '';
+end;
+
+function TBlockSocket.SockCheck(SockResult: Integer): Integer;
+begin
+  ResetLastError;
+  if SockResult = integer(SOCKET_ERROR) then
+  begin
+    FLastError := synsock.WSAGetLastError;
+    FLastErrorDesc := GetErrorDescEx;
+  end;
+  Result := FLastError;
+end;
+
+procedure TBlockSocket.ExceptCheck;
+var
+  e: ESynapseError;
+begin
+  FLastErrorDesc := GetErrorDescEx;
+  if (LastError <> 0) and (LastError <> WSAEINPROGRESS)
+    and (LastError <> WSAEWOULDBLOCK) then
+  begin
+    DoStatus(HR_Error, IntToStr(FLastError) + ',' + FLastErrorDesc);
+    if FRaiseExcept then
+    begin
+      e := ESynapseError.Create(Format('Synapse TCP/IP Socket error %d: %s',
+        [FLastError, FLastErrorDesc]));
+      e.ErrorCode := FLastError;
+      e.ErrorMessage := FLastErrorDesc;
+      raise e;
+    end;
+  end;
+end;
+
+function TBlockSocket.WaitingData: Integer;
+var
+  x: Integer;
+begin
+  Result := 0;
+  if synsock.IoctlSocket(FSocket, FIONREAD, x) = 0 then
+    Result := x;
+  if Result > c64k then
+    Result := c64k;
+end;
+
+function TBlockSocket.WaitingDataEx: Integer;
+begin
+  if FBuffer <> '' then
+    Result := Length(FBuffer)
+  else
+    Result := WaitingData;
+end;
+
+procedure TBlockSocket.Purge;
+begin
+  Sleep(1);
+  try
+    while (Length(FBuffer) > 0) or (WaitingData > 0) do
+    begin
+      RecvPacket(0);
+      if FLastError <> 0 then
+        break;
+    end;
+  except
+    on exception do;
+  end;
+  ResetLastError;
+end;
+
+procedure TBlockSocket.SetLinger(Enable: Boolean; Linger: Integer);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_Linger;
+  d.Enabled := Enable;
+  d.Value := Linger;
+  DelayedOption(d);
+end;
+
+function TBlockSocket.LocalName: string;
+begin
+  Result := synsock.GetHostName;
+  if Result = '' then
+    Result := '127.0.0.1';
+end;
+
+procedure TBlockSocket.ResolveNameToIP(Name: string; const IPList: TStrings);
+begin
+  IPList.Clear;
+  synsock.ResolveNameToIP(Name, FamilyToAF(FFamily), GetSocketprotocol, GetSocketType, IPList);
+  if IPList.Count = 0 then
+    IPList.Add(cAnyHost);
+end;
+
+function TBlockSocket.ResolveName(Name: string): string;
+var
+  l: TStringList;
+begin
+  l := TStringList.Create;
+  try
+    ResolveNameToIP(Name, l);
+    Result := l[0];
+  finally
+    l.Free;
+  end;
+end;
+
+function TBlockSocket.ResolvePort(Port: string): Word;
+begin
+  Result := synsock.ResolvePort(Port, FamilyToAF(FFamily), GetSocketProtocol, GetSocketType);
+end;
+
+function TBlockSocket.ResolveIPToName(IP: string): string;
+begin
+  if not IsIP(IP) or not IsIp6(IP) then
+    IP := ResolveName(IP);
+  Result := synsock.ResolveIPToName(IP, FamilyToAF(FFamily), GetSocketProtocol, GetSocketType);
+end;
+
+procedure TBlockSocket.SetRemoteSin(IP, Port: string);
+begin
+  SetSin(FRemoteSin, IP, Port);
+end;
+
+function TBlockSocket.GetLocalSinIP: string;
+begin
+  Result := GetSinIP(FLocalSin);
+end;
+
+function TBlockSocket.GetRemoteSinIP: string;
+begin
+  Result := GetSinIP(FRemoteSin);
+end;
+
+function TBlockSocket.GetLocalSinPort: Integer;
+begin
+  Result := GetSinPort(FLocalSin);
+end;
+
+function TBlockSocket.GetRemoteSinPort: Integer;
+begin
+  Result := GetSinPort(FRemoteSin);
+end;
+
+function TBlockSocket.InternalCanRead(Timeout: Integer): Boolean;
+{$IFDEF CIL}
+begin
+  Result := FSocket.Poll(Timeout * 1000, SelectMode.SelectRead);
+{$ELSE}
+var
+  TimeVal: PTimeVal;
+  TimeV: TTimeVal;
+  x: Integer;
+  FDSet: TFDSet;
+begin
+  TimeV.tv_usec := (Timeout mod 1000) * 1000;
+  TimeV.tv_sec := Timeout div 1000;
+  TimeVal := @TimeV;
+  if Timeout = -1 then
+    TimeVal := nil;
+  FDSet := FFdSet;
+  x := synsock.Select(FSocket + 1, @FDSet, nil, nil, TimeVal);
+  SockCheck(x);
+  if FLastError <> 0 then
+    x := 0;
+  Result := x > 0;
+{$ENDIF}
+end;
+
+function TBlockSocket.CanRead(Timeout: Integer): Boolean;
+var
+  ti, tr: Integer;
+  n: integer;
+begin
+  if (FHeartbeatRate <> 0) and (Timeout <> -1) then
+  begin
+    ti := Timeout div FHeartbeatRate;
+    tr := Timeout mod FHeartbeatRate;
+  end
+  else
+  begin
+    ti := 0;
+    tr := Timeout;
+  end;
+  Result := InternalCanRead(tr);
+  if not Result then
+    for n := 0 to ti do
+    begin
+      DoHeartbeat;
+      if FStopFlag then
+      begin
+        Result := False;
+        FStopFlag := False;
+        Break;
+      end;
+      Result := InternalCanRead(FHeartbeatRate);
+      if Result then
+        break;
+    end;
+  ExceptCheck;
+  if Result then
+    DoStatus(HR_CanRead, '');
+end;
+
+function TBlockSocket.CanWrite(Timeout: Integer): Boolean;
+{$IFDEF CIL}
+begin
+  Result := FSocket.Poll(Timeout * 1000, SelectMode.SelectWrite);
+{$ELSE}
+var
+  TimeVal: PTimeVal;
+  TimeV: TTimeVal;
+  x: Integer;
+  FDSet: TFDSet;
+begin
+  TimeV.tv_usec := (Timeout mod 1000) * 1000;
+  TimeV.tv_sec := Timeout div 1000;
+  TimeVal := @TimeV;
+  if Timeout = -1 then
+    TimeVal := nil;
+  FDSet := FFdSet;
+  x := synsock.Select(FSocket + 1, nil, @FDSet, nil, TimeVal);
+  SockCheck(x);
+  if FLastError <> 0 then
+    x := 0;
+  Result := x > 0;
+{$ENDIF}
+  ExceptCheck;
+  if Result then
+    DoStatus(HR_CanWrite, '');
+end;
+
+function TBlockSocket.CanReadEx(Timeout: Integer): Boolean;
+begin
+  if FBuffer <> '' then
+    Result := True
+  else
+    Result := CanRead(Timeout);
+end;
+
+function TBlockSocket.SendBufferTo(Buffer: TMemory; Length: Integer): Integer;
+begin
+  Result := 0;
+  if TestStopFlag then
+    Exit;
+  DoMonitor(True, Buffer, Length);
+  LimitBandwidth(Length, FMaxSendBandwidth, FNextsend);
+  Result := synsock.SendTo(FSocket, Buffer, Length, MSG_NOSIGNAL, FRemoteSin);
+  SockCheck(Result);
+  ExceptCheck;
+  Inc(FSendCounter, Result);
+  DoStatus(HR_WriteCount, IntToStr(Result));
+end;
+
+function TBlockSocket.RecvBufferFrom(Buffer: TMemory; Length: Integer): Integer;
+begin
+  Result := 0;
+  if TestStopFlag then
+    Exit;
+  LimitBandwidth(Length, FMaxRecvBandwidth, FNextRecv);
+  Result := synsock.RecvFrom(FSocket, Buffer, Length, MSG_NOSIGNAL, FRemoteSin);
+  SockCheck(Result);
+  ExceptCheck;
+  Inc(FRecvCounter, Result);
+  DoStatus(HR_ReadCount, IntToStr(Result));
+  DoMonitor(False, Buffer, Result);
+end;
+
+function TBlockSocket.GetSizeRecvBuffer: Integer;
+var
+  l: Integer;
+{$IFDEF CIL}
+  buf: TMemory;
+{$ENDIF}
+begin
+{$IFDEF CIL}
+  setlength(buf, 4);
+  SockCheck(synsock.GetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_RCVBUF), buf, l));
+  Result := System.BitConverter.ToInt32(buf,0);
+{$ELSE}
+  l := SizeOf(Result);
+  SockCheck(synsock.GetSockOpt(FSocket, SOL_SOCKET, SO_RCVBUF, @Result, l));
+  if FLastError <> 0 then
+    Result := 1024;
+  ExceptCheck;
+{$ENDIF}
+end;
+
+procedure TBlockSocket.SetSizeRecvBuffer(Size: Integer);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_RecvBuff;
+  d.Value := Size;
+  DelayedOption(d);
+end;
+
+function TBlockSocket.GetSizeSendBuffer: Integer;
+var
+  l: Integer;
+{$IFDEF CIL}
+  buf: TMemory;
+{$ENDIF}
+begin
+{$IFDEF CIL}
+  setlength(buf, 4);
+  SockCheck(synsock.GetSockOpt(FSocket, integer(SOL_SOCKET), integer(SO_SNDBUF), buf, l));
+  Result := System.BitConverter.ToInt32(buf,0);
+{$ELSE}
+  l := SizeOf(Result);
+  SockCheck(synsock.GetSockOpt(FSocket, SOL_SOCKET, SO_SNDBUF, @Result, l));
+  if FLastError <> 0 then
+    Result := 1024;
+  ExceptCheck;
+{$ENDIF}
+end;
+
+procedure TBlockSocket.SetSizeSendBuffer(Size: Integer);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_SendBuff;
+  d.Value := Size;
+  DelayedOption(d);
+end;
+
+procedure TBlockSocket.SetNonBlockMode(Value: Boolean);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_nonblock;
+  d.Enabled := Value;
+  DelayedOption(d);
+end;
+
+procedure TBlockSocket.SetTimeout(Timeout: Integer);
+begin
+  SetSendTimeout(Timeout);
+  SetRecvTimeout(Timeout);
+end;
+
+procedure TBlockSocket.SetSendTimeout(Timeout: Integer);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_sendtimeout;
+  d.Value := Timeout;
+  DelayedOption(d);
+end;
+
+procedure TBlockSocket.SetRecvTimeout(Timeout: Integer);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_recvtimeout;
+  d.Value := Timeout;
+  DelayedOption(d);
+end;
+
+{$IFNDEF CIL}
+function TBlockSocket.GroupCanRead(const SocketList: TList; Timeout: Integer;
+  const CanReadList: TList): boolean;
+var
+  FDSet: TFDSet;
+  TimeVal: PTimeVal;
+  TimeV: TTimeVal;
+  x, n: Integer;
+  Max: Integer;
+begin
+  TimeV.tv_usec := (Timeout mod 1000) * 1000;
+  TimeV.tv_sec := Timeout div 1000;
+  TimeVal := @TimeV;
+  if Timeout = -1 then
+    TimeVal := nil;
+  FD_ZERO(FDSet);
+  Max := 0;
+  for n := 0 to SocketList.Count - 1 do
+    if TObject(SocketList.Items[n]) is TBlockSocket then
+    begin
+      if TBlockSocket(SocketList.Items[n]).Socket > Max then
+        Max := TBlockSocket(SocketList.Items[n]).Socket;
+      FD_SET(TBlockSocket(SocketList.Items[n]).Socket, FDSet);
+    end;
+  x := synsock.Select(Max + 1, @FDSet, nil, nil, TimeVal);
+  SockCheck(x);
+  ExceptCheck;
+  if FLastError <> 0 then
+    x := 0;
+  Result := x > 0;
+  CanReadList.Clear;
+  if Result then
+    for n := 0 to SocketList.Count - 1 do
+      if TObject(SocketList.Items[n]) is TBlockSocket then
+        if FD_ISSET(TBlockSocket(SocketList.Items[n]).Socket, FDSet) then
+          CanReadList.Add(TBlockSocket(SocketList.Items[n]));
+end;
+{$ENDIF}
+
+procedure TBlockSocket.EnableReuse(Value: Boolean);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_reuse;
+  d.Enabled := Value;
+  DelayedOption(d);
+end;
+
+procedure TBlockSocket.SetTTL(TTL: integer);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_TTL;
+  d.Value := TTL;
+  DelayedOption(d);
+end;
+
+function TBlockSocket.GetTTL:integer;
+var
+  l: Integer;
+begin
+{$IFNDEF CIL}
+  l := SizeOf(Result);
+  if FIP6Used then
+    synsock.GetSockOpt(FSocket, IPPROTO_IPV6, IPV6_UNICAST_HOPS, @Result, l)
+  else
+    synsock.GetSockOpt(FSocket, IPPROTO_IP, IP_TTL, @Result, l);
+{$ENDIF}
+end;
+
+procedure TBlockSocket.SetFamily(Value: TSocketFamily);
+begin
+  FFamily := Value;
+  FFamilySave := Value;
+end;
+
+procedure TBlockSocket.SetSocket(Value: TSocket);
+begin
+  FRecvCounter := 0;
+  FSendCounter := 0;
+  FSocket := Value;
+{$IFNDEF CIL}
+  FD_ZERO(FFDSet);
+  FD_SET(FSocket, FFDSet);
+{$ENDIF}
+  GetSins;
+  FIP6Used := FRemoteSin.AddressFamily = AF_INET6;
+end;
+
+function TBlockSocket.GetWsaData: TWSAData;
+begin
+  Result := WsaDataOnce;
+end;
+
+function TBlockSocket.GetSocketType: integer;
+begin
+  Result := 0;
+end;
+
+function TBlockSocket.GetSocketProtocol: integer;
+begin
+  Result := integer(IPPROTO_IP);
+end;
+
+procedure TBlockSocket.DoStatus(Reason: THookSocketReason; const Value: string);
+begin
+  if assigned(OnStatus) then
+    OnStatus(Self, Reason, Value);
+end;
+
+procedure TBlockSocket.DoReadFilter(Buffer: TMemory; var Len: Integer);
+var
+  s: AnsiString;
+begin
+  if assigned(OnReadFilter) then
+    if Len > 0 then
+      begin
+        {$IFDEF CIL}
+        s := StringOf(Buffer);
+        {$ELSE}
+        SetLength(s, Len);
+        Move(Buffer^, Pointer(s)^, Len);
+        {$ENDIF}
+        OnReadFilter(Self, s);
+        if Length(s) > Len then
+          SetLength(s, Len);
+        Len := Length(s);
+        {$IFDEF CIL}
+        Buffer := BytesOf(s);
+        {$ELSE}
+        Move(Pointer(s)^, Buffer^, Len);
+        {$ENDIF}
+      end;
+end;
+
+procedure TBlockSocket.DoCreateSocket;
+begin
+  if assigned(OnCreateSocket) then
+    OnCreateSocket(Self);
+end;
+
+procedure TBlockSocket.DoMonitor(Writing: Boolean; const Buffer: TMemory; Len: Integer);
+begin
+  if assigned(OnMonitor) then
+  begin
+    OnMonitor(Self, Writing, Buffer, Len);
+  end;
+end;
+
+procedure TBlockSocket.DoHeartbeat;
+begin
+  if assigned(OnHeartbeat) and (FHeartbeatRate <> 0) then
+  begin
+    OnHeartbeat(Self);
+  end;
+end;
+
+function TBlockSocket.GetErrorDescEx: string;
+begin
+  Result := GetErrorDesc(FLastError);
+end;
+
+class function TBlockSocket.GetErrorDesc(ErrorCode: Integer): string;
+begin
+{$IFDEF CIL}
+  if ErrorCode = 0 then
+    Result := ''
+  else
+  begin
+    Result := WSAGetLastErrorDesc;
+    if Result = '' then
+      Result := 'Other Winsock error (' + IntToStr(ErrorCode) + ')';
+  end;
+{$ELSE}
+  case ErrorCode of
+    0:
+      Result := '';
+    WSAEINTR: {10004}
+      Result := 'Interrupted system call';
+    WSAEBADF: {10009}
+      Result := 'Bad file number';
+    WSAEACCES: {10013}
+      Result := 'Permission denied';
+    WSAEFAULT: {10014}
+      Result := 'Bad address';
+    WSAEINVAL: {10022}
+      Result := 'Invalid argument';
+    WSAEMFILE: {10024}
+      Result := 'Too many open files';
+    WSAEWOULDBLOCK: {10035}
+      Result := 'Operation would block';
+    WSAEINPROGRESS: {10036}
+      Result := 'Operation now in progress';
+    WSAEALREADY: {10037}
+      Result := 'Operation already in progress';
+    WSAENOTSOCK: {10038}
+      Result := 'Socket operation on nonsocket';
+    WSAEDESTADDRREQ: {10039}
+      Result := 'Destination address required';
+    WSAEMSGSIZE: {10040}
+      Result := 'Message too long';
+    WSAEPROTOTYPE: {10041}
+      Result := 'Protocol wrong type for Socket';
+    WSAENOPROTOOPT: {10042}
+      Result := 'Protocol not available';
+    WSAEPROTONOSUPPORT: {10043}
+      Result := 'Protocol not supported';
+    WSAESOCKTNOSUPPORT: {10044}
+      Result := 'Socket not supported';
+    WSAEOPNOTSUPP: {10045}
+      Result := 'Operation not supported on Socket';
+    WSAEPFNOSUPPORT: {10046}
+      Result := 'Protocol family not supported';
+    WSAEAFNOSUPPORT: {10047}
+      Result := 'Address family not supported';
+    WSAEADDRINUSE: {10048}
+      Result := 'Address already in use';
+    WSAEADDRNOTAVAIL: {10049}
+      Result := 'Can''t assign requested address';
+    WSAENETDOWN: {10050}
+      Result := 'Network is down';
+    WSAENETUNREACH: {10051}
+      Result := 'Network is unreachable';
+    WSAENETRESET: {10052}
+      Result := 'Network dropped connection on reset';
+    WSAECONNABORTED: {10053}
+      Result := 'Software caused connection abort';
+    WSAECONNRESET: {10054}
+      Result := 'Connection reset by peer';
+    WSAENOBUFS: {10055}
+      Result := 'No Buffer space available';
+    WSAEISCONN: {10056}
+      Result := 'Socket is already connected';
+    WSAENOTCONN: {10057}
+      Result := 'Socket is not connected';
+    WSAESHUTDOWN: {10058}
+      Result := 'Can''t send after Socket shutdown';
+    WSAETOOMANYREFS: {10059}
+      Result := 'Too many references:can''t splice';
+    WSAETIMEDOUT: {10060}
+      Result := 'Connection timed out';
+    WSAECONNREFUSED: {10061}
+      Result := 'Connection refused';
+    WSAELOOP: {10062}
+      Result := 'Too many levels of symbolic links';
+    WSAENAMETOOLONG: {10063}
+      Result := 'File name is too long';
+    WSAEHOSTDOWN: {10064}
+      Result := 'Host is down';
+    WSAEHOSTUNREACH: {10065}
+      Result := 'No route to host';
+    WSAENOTEMPTY: {10066}
+      Result := 'Directory is not empty';
+    WSAEPROCLIM: {10067}
+      Result := 'Too many processes';
+    WSAEUSERS: {10068}
+      Result := 'Too many users';
+    WSAEDQUOT: {10069}
+      Result := 'Disk quota exceeded';
+    WSAESTALE: {10070}
+      Result := 'Stale NFS file handle';
+    WSAEREMOTE: {10071}
+      Result := 'Too many levels of remote in path';
+    WSASYSNOTREADY: {10091}
+      Result := 'Network subsystem is unusable';
+    WSAVERNOTSUPPORTED: {10092}
+      Result := 'Winsock DLL cannot support this application';
+    WSANOTINITIALISED: {10093}
+      Result := 'Winsock not initialized';
+    WSAEDISCON: {10101}
+      Result := 'Disconnect';
+    WSAHOST_NOT_FOUND: {11001}
+      Result := 'Host not found';
+    WSATRY_AGAIN: {11002}
+      Result := 'Non authoritative - host not found';
+    WSANO_RECOVERY: {11003}
+      Result := 'Non recoverable error';
+    WSANO_DATA: {11004}
+      Result := 'Valid name, no data record of requested type'
+  else
+    Result := 'Other Winsock error (' + IntToStr(ErrorCode) + ')';
+  end;
+{$ENDIF}
+end;
+
+{======================================================================}
+
+constructor TSocksBlockSocket.Create;
+begin
+  inherited Create;
+  FSocksIP:= '';
+  FSocksPort:= '1080';
+  FSocksTimeout:= 60000;
+  FSocksUsername:= '';
+  FSocksPassword:= '';
+  FUsingSocks := False;
+  FSocksResolver := True;
+  FSocksLastError := 0;
+  FSocksResponseIP := '';
+  FSocksResponsePort := '';
+  FSocksLocalIP := '';
+  FSocksLocalPort := '';
+  FSocksRemoteIP := '';
+  FSocksRemotePort := '';
+  FBypassFlag := False;
+  FSocksType := ST_Socks5;
+end;
+
+function TSocksBlockSocket.SocksOpen: boolean;
+var
+  Buf: string;
+  n: integer;
+begin
+  Result := False;
+  FUsingSocks := False;
+  if FSocksType <> ST_Socks5 then
+  begin
+    FUsingSocks := True;
+    Result := True;
+  end
+  else
+  begin
+    FBypassFlag := True;
+    try
+      if FSocksUsername = '' then
+        Buf := #5 + #1 + #0
+      else
+        Buf := #5 + #2 + #2 +#0;
+      SendString(Buf);
+      Buf := RecvBufferStr(2, FSocksTimeout);
+      if Length(Buf) < 2 then
+        Exit;
+      if Buf[1] <> #5 then
+        Exit;
+      n := Ord(Buf[2]);
+      case n of
+        0: //not need authorisation
+          ;
+        2:
+          begin
+            Buf := #1 + char(Length(FSocksUsername)) + FSocksUsername
+              + char(Length(FSocksPassword)) + FSocksPassword;
+            SendString(Buf);
+            Buf := RecvBufferStr(2, FSocksTimeout);
+            if Length(Buf) < 2 then
+              Exit;
+            if Buf[2] <> #0 then
+              Exit;
+          end;
+      else
+        //other authorisation is not supported!
+        Exit;
+      end;
+      FUsingSocks := True;
+      Result := True;
+    finally
+      FBypassFlag := False;
+    end;
+  end;
+end;
+
+function TSocksBlockSocket.SocksRequest(Cmd: Byte;
+  const IP, Port: string): Boolean;
+var
+  Buf: string;
+begin
+  FBypassFlag := True;
+  try
+    if FSocksType <> ST_Socks5 then
+      Buf := #4 + char(Cmd) + SocksCode(IP, Port)
+    else
+      Buf := #5 + char(Cmd) + #0 + SocksCode(IP, Port);
+    SendString(Buf);
+    Result := FLastError = 0;
+  finally
+    FBypassFlag := False;
+  end;
+end;
+
+function TSocksBlockSocket.SocksResponse: Boolean;
+var
+  Buf, s: string;
+  x: integer;
+begin
+  Result := False;
+  FBypassFlag := True;
+  try
+    FSocksResponseIP := '';
+    FSocksResponsePort := '';
+    FSocksLastError := -1;
+    if FSocksType <> ST_Socks5 then
+    begin
+      Buf := RecvBufferStr(8, FSocksTimeout);
+      if FLastError <> 0 then
+        Exit;
+      if Buf[1] <> #0 then
+        Exit;
+      FSocksLastError := Ord(Buf[2]);
+    end
+    else
+    begin
+      Buf := RecvBufferStr(4, FSocksTimeout);
+      if FLastError <> 0 then
+        Exit;
+      if Buf[1] <> #5 then
+        Exit;
+      case Ord(Buf[4]) of
+        1:
+          s := RecvBufferStr(4, FSocksTimeout);
+        3:
+          begin
+            x := RecvByte(FSocksTimeout);
+            if FLastError <> 0 then
+              Exit;
+            s := char(x) + RecvBufferStr(x, FSocksTimeout);
+          end;
+        4:
+          s := RecvBufferStr(16, FSocksTimeout);
+      else
+        Exit;
+      end;
+      Buf := Buf + s + RecvBufferStr(2, FSocksTimeout);
+      if FLastError <> 0 then
+        Exit;
+      FSocksLastError := Ord(Buf[2]);
+    end;
+    if ((FSocksLastError <> 0) and (FSocksLastError <> 90)) then
+      Exit;
+    SocksDecode(Buf);
+    Result := True;
+  finally
+    FBypassFlag := False;
+  end;
+end;
+
+function TSocksBlockSocket.SocksCode(IP, Port: string): Ansistring;
+var
+  ip6: TIp6Bytes;
+  n: integer;
+begin
+  if FSocksType <> ST_Socks5 then
+  begin
+    Result := CodeInt(ResolvePort(Port));
+    if not FSocksResolver then
+      IP := ResolveName(IP);
+    if IsIP(IP) then
+    begin
+      Result := Result + IPToID(IP);
+      Result := Result + FSocksUsername + #0;
+    end
+    else
+    begin
+      Result := Result + IPToID('0.0.0.1');
+      Result := Result + FSocksUsername + #0;
+      Result := Result + IP + #0;
+    end;
+  end
+  else
+  begin
+    if not FSocksResolver then
+      IP := ResolveName(IP);
+    if IsIP(IP) then
+      Result := #1 + IPToID(IP)
+    else
+      if IsIP6(IP) then
+      begin
+        ip6 := StrToIP6(IP);
+        Result := #4;
+        for n := 0 to 15 do
+          Result := Result + char(ip6[n]);
+      end
+      else
+        Result := #3 + char(Length(IP)) + IP;
+    Result := Result + CodeInt(ResolvePort(Port));
+  end;
+end;
+
+function TSocksBlockSocket.SocksDecode(Value: Ansistring): integer;
+var
+  Atyp: Byte;
+  y, n: integer;
+  w: Word;
+  ip6: TIp6Bytes;
+begin
+  FSocksResponsePort := '0';
+  Result := 0;
+  if FSocksType <> ST_Socks5 then
+  begin
+    if Length(Value) < 8 then
+      Exit;
+    Result := 3;
+    w := DecodeInt(Value, Result);
+    FSocksResponsePort := IntToStr(w);
+    FSocksResponseIP := Format('%d.%d.%d.%d',
+      [Ord(Value[5]), Ord(Value[6]), Ord(Value[7]), Ord(Value[8])]);
+    Result := 9;
+  end
+  else
+  begin
+    if Length(Value) < 4 then
+      Exit;
+    Atyp := Ord(Value[4]);
+    Result := 5;
+    case Atyp of
+      1:
+        begin
+          if Length(Value) < 10 then
+            Exit;
+          FSocksResponseIP := Format('%d.%d.%d.%d',
+              [Ord(Value[5]), Ord(Value[6]), Ord(Value[7]), Ord(Value[8])]);
+          Result := 9;
+        end;
+      3:
+        begin
+          y := Ord(Value[5]);
+          if Length(Value) < (5 + y + 2) then
+            Exit;
+          for n := 6 to 6 + y - 1 do
+            FSocksResponseIP := FSocksResponseIP + Value[n];
+          Result := 5 + y + 1;
+        end;
+      4:
+        begin
+          if Length(Value) < 22 then
+            Exit;
+          for n := 0 to 15 do
+            ip6[n] := ord(Value[n + 5]);
+          FSocksResponseIP := IP6ToStr(ip6);
+          Result := 21;
+        end;
+    else
+      Exit;
+    end;
+    w := DecodeInt(Value, Result);
+    FSocksResponsePort := IntToStr(w);
+    Result := Result + 2;
+  end;
+end;
+
+{======================================================================}
+
+procedure TDgramBlockSocket.Connect(IP, Port: string);
+begin
+  SetRemoteSin(IP, Port);
+  InternalCreateSocket(FRemoteSin);
+  FBuffer := '';
+  DoStatus(HR_Connect, IP + ':' + Port);
+end;
+
+function TDgramBlockSocket.RecvBuffer(Buffer: TMemory; Length: Integer): Integer;
+begin
+  Result := RecvBufferFrom(Buffer, Length);
+end;
+
+function TDgramBlockSocket.SendBuffer(Buffer: TMemory; Length: Integer): Integer;
+begin
+  Result := SendBufferTo(Buffer, Length);
+end;
+
+{======================================================================}
+
+destructor TUDPBlockSocket.Destroy;
+begin
+  if Assigned(FSocksControlSock) then
+    FSocksControlSock.Free;
+  inherited;
+end;
+
+procedure TUDPBlockSocket.EnableBroadcast(Value: Boolean);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_Broadcast;
+  d.Enabled := Value;
+  DelayedOption(d);
+end;
+
+function TUDPBlockSocket.UdpAssociation: Boolean;
+var
+  b: Boolean;
+begin
+  Result := True;
+  FUsingSocks := False;
+  if FSocksIP <> '' then
+  begin
+    Result := False;
+    if not Assigned(FSocksControlSock) then
+      FSocksControlSock := TTCPBlockSocket.Create;
+    FSocksControlSock.CloseSocket;
+    FSocksControlSock.CreateSocketByName(FSocksIP);
+    FSocksControlSock.Connect(FSocksIP, FSocksPort);
+    if FSocksControlSock.LastError <> 0 then
+      Exit;
+    // if not assigned local port, assign it!
+    if not FBinded then
+      Bind(cAnyHost, cAnyPort);
+    //open control TCP connection to SOCKS
+    FSocksControlSock.FSocksUsername := FSocksUsername;
+    FSocksControlSock.FSocksPassword := FSocksPassword;
+    b := FSocksControlSock.SocksOpen;
+    if b then
+      b := FSocksControlSock.SocksRequest(3, GetLocalSinIP, IntToStr(GetLocalSinPort));
+    if b then
+      b := FSocksControlSock.SocksResponse;
+    if not b and (FLastError = 0) then
+      FLastError := WSANO_RECOVERY;
+    FUsingSocks :=FSocksControlSock.UsingSocks;
+    FSocksRemoteIP := FSocksControlSock.FSocksResponseIP;
+    FSocksRemotePort := FSocksControlSock.FSocksResponsePort;
+    Result := b and (FLastError = 0);
+  end;
+end;
+
+function TUDPBlockSocket.SendBufferTo(Buffer: TMemory; Length: Integer): Integer;
+var
+  SIp: string;
+  SPort: integer;
+  Buf: Ansistring;
+begin
+  Result := 0;
+  FUsingSocks := False;
+  if (FSocksIP <> '') and (not UdpAssociation) then
+    FLastError := WSANO_RECOVERY
+  else
+  begin
+    if FUsingSocks then
+    begin
+{$IFNDEF CIL}
+      Sip := GetRemoteSinIp;
+      SPort := GetRemoteSinPort;
+      SetRemoteSin(FSocksRemoteIP, FSocksRemotePort);
+      SetLength(Buf,Length);
+      Move(Buffer^, Pointer(Buf)^, Length);
+      Buf := #0 + #0 + #0 + SocksCode(Sip, IntToStr(SPort)) + Buf;
+      Result := inherited SendBufferTo(Pointer(Buf), System.Length(buf));
+      SetRemoteSin(Sip, IntToStr(SPort));
+{$ENDIF}
+    end
+    else
+      Result := inherited SendBufferTo(Buffer, Length);
+  end;
+end;
+
+function TUDPBlockSocket.RecvBufferFrom(Buffer: TMemory; Length: Integer): Integer;
+var
+  Buf: Ansistring;
+  x: integer;
+begin
+  Result := inherited RecvBufferFrom(Buffer, Length);
+  if FUsingSocks then
+  begin
+{$IFNDEF CIL}
+    SetLength(Buf, Result);
+    Move(Buffer^, Pointer(Buf)^, Result);
+    x := SocksDecode(Buf);
+    Result := Result - x + 1;
+    Buf := Copy(Buf, x, Result);
+    Move(Pointer(Buf)^, Buffer^, Result);
+    SetRemoteSin(FSocksResponseIP, FSocksResponsePort);
+{$ENDIF}
+  end;
+end;
+
+{$IFNDEF CIL}
+procedure TUDPBlockSocket.AddMulticast(MCastIP: string);
+var
+  Multicast: TIP_mreq;
+  Multicast6: TIPv6_mreq;
+  n: integer;
+  ip6: Tip6bytes;
+begin
+  if FIP6Used then
+  begin
+    ip6 := StrToIp6(MCastIP);
+    for n := 0 to 15 do
+      Multicast6.ipv6mr_multiaddr.u6_addr8[n] := Ip6[n];
+    Multicast6.ipv6mr_interface := 0;
+    SockCheck(synsock.SetSockOpt(FSocket, IPPROTO_IPV6, IPV6_JOIN_GROUP,
+      PAnsiChar(@Multicast6), SizeOf(Multicast6)));
+  end
+  else
+  begin
+    Multicast.imr_multiaddr.S_addr := swapbytes(strtoip(MCastIP));
+    Multicast.imr_interface.S_addr := INADDR_ANY;
+    SockCheck(synsock.SetSockOpt(FSocket, IPPROTO_IP, IP_ADD_MEMBERSHIP,
+      PAnsiChar(@Multicast), SizeOf(Multicast)));
+  end;
+  ExceptCheck;
+end;
+
+procedure TUDPBlockSocket.DropMulticast(MCastIP: string);
+var
+  Multicast: TIP_mreq;
+  Multicast6: TIPv6_mreq;
+  n: integer;
+  ip6: Tip6bytes;
+begin
+  if FIP6Used then
+  begin
+    ip6 := StrToIp6(MCastIP);
+    for n := 0 to 15 do
+      Multicast6.ipv6mr_multiaddr.u6_addr8[n] := Ip6[n];
+    Multicast6.ipv6mr_interface := 0;
+    SockCheck(synsock.SetSockOpt(FSocket, IPPROTO_IPV6, IPV6_LEAVE_GROUP,
+      PAnsiChar(@Multicast6), SizeOf(Multicast6)));
+  end
+  else
+  begin
+    Multicast.imr_multiaddr.S_addr := swapbytes(strtoip(MCastIP));
+    Multicast.imr_interface.S_addr := INADDR_ANY;
+    SockCheck(synsock.SetSockOpt(FSocket, IPPROTO_IP, IP_DROP_MEMBERSHIP,
+      PAnsiChar(@Multicast), SizeOf(Multicast)));
+  end;
+  ExceptCheck;
+end;
+{$ENDIF}
+
+procedure TUDPBlockSocket.SetMulticastTTL(TTL: integer);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_MulticastTTL;
+  d.Value := TTL;
+  DelayedOption(d);
+end;
+
+function TUDPBlockSocket.GetMulticastTTL:integer;
+var
+  l: Integer;
+begin
+{$IFNDEF CIL}
+  l := SizeOf(Result);
+  if FIP6Used then
+    synsock.GetSockOpt(FSocket, IPPROTO_IPV6, IPV6_MULTICAST_HOPS, @Result, l)
+  else
+    synsock.GetSockOpt(FSocket, IPPROTO_IP, IP_MULTICAST_TTL, @Result, l);
+{$ENDIF}
+end;
+
+procedure TUDPBlockSocket.EnableMulticastLoop(Value: Boolean);
+var
+  d: TSynaOption;
+begin
+  d := TSynaOption.Create;
+  d.Option := SOT_MulticastLoop;
+  d.Enabled := Value;
+  DelayedOption(d);
+end;
+
+function TUDPBlockSocket.GetSocketType: integer;
+begin
+  Result := integer(SOCK_DGRAM);
+end;
+
+function TUDPBlockSocket.GetSocketProtocol: integer;
+begin
+ Result := integer(IPPROTO_UDP);
+end;
+
+{======================================================================}
+constructor TTCPBlockSocket.CreateWithSSL(SSLPlugin: TSSLClass);
+begin
+  inherited Create;
+  FSSL := SSLPlugin.Create(self);
+  FHTTPTunnelIP := '';
+  FHTTPTunnelPort := '';
+  FHTTPTunnel := False;
+  FHTTPTunnelRemoteIP := '';
+  FHTTPTunnelRemotePort := '';
+  FHTTPTunnelUser := '';
+  FHTTPTunnelPass := '';
+  FHTTPTunnelTimeout := 30000;
+end;
+
+constructor TTCPBlockSocket.Create;
+begin
+  CreateWithSSL(SSLImplementation);
+end;
+
+destructor TTCPBlockSocket.Destroy;
+begin
+  inherited Destroy;
+  FSSL.Free;
+end;
+
+function TTCPBlockSocket.GetErrorDescEx: string;
+begin
+  Result := inherited GetErrorDescEx;
+  if (FLastError = WSASYSNOTREADY) and (self.SSL.LastError <> 0) then
+  begin
+    Result := self.SSL.LastErrorDesc;
+  end;
+end;
+
+procedure TTCPBlockSocket.CloseSocket;
+begin
+  if FSSL.SSLEnabled then
+    FSSL.Shutdown;
+  if (FSocket <> INVALID_SOCKET) and (FLastError = 0) then
+  begin
+    Synsock.Shutdown(FSocket, 1);
+    Purge;
+  end;
+  inherited CloseSocket;
+end;
+
+procedure TTCPBlockSocket.DoAfterConnect;
+begin
+  if assigned(OnAfterConnect) then
+  begin
+    OnAfterConnect(Self);
+  end;
+end;
+
+function TTCPBlockSocket.WaitingData: Integer;
+begin
+  Result := 0;
+  if FSSL.SSLEnabled and (FSocket <> INVALID_SOCKET) then
+    Result := FSSL.WaitingData;
+  if Result = 0 then
+    Result := inherited WaitingData;
+end;
+
+procedure TTCPBlockSocket.Listen;
+var
+  b: Boolean;
+  Sip,SPort: string;
+begin
+  if FSocksIP = '' then
+  begin
+    SockCheck(synsock.Listen(FSocket, SOMAXCONN));
+    GetSins;
+  end
+  else
+  begin
+    Sip := GetLocalSinIP;
+    if Sip = cAnyHost then
+      Sip := LocalName;
+    SPort := IntToStr(GetLocalSinPort);
+    inherited Connect(FSocksIP, FSocksPort);
+    b := SocksOpen;
+    if b then
+      b := SocksRequest(2, Sip, SPort);
+    if b then
+      b := SocksResponse;
+    if not b and (FLastError = 0) then
+      FLastError := WSANO_RECOVERY;
+    FSocksLocalIP := FSocksResponseIP;
+    if FSocksLocalIP = cAnyHost then
+      FSocksLocalIP := FSocksIP;
+    FSocksLocalPort := FSocksResponsePort;
+    FSocksRemoteIP := '';
+    FSocksRemotePort := '';
+  end;
+  ExceptCheck;
+  DoStatus(HR_Listen, '');
+end;
+
+function TTCPBlockSocket.Accept: TSocket;
+begin
+  if FUsingSocks then
+  begin
+    if not SocksResponse and (FLastError = 0) then
+      FLastError := WSANO_RECOVERY;
+    FSocksRemoteIP := FSocksResponseIP;
+    FSocksRemotePort := FSocksResponsePort;
+    Result := FSocket;
+  end
+  else
+  begin
+    Result := synsock.Accept(FSocket, FRemoteSin);
+///    SockCheck(Result);
+  end;
+  ExceptCheck;
+  DoStatus(HR_Accept, '');
+end;
+
+procedure TTCPBlockSocket.Connect(IP, Port: string);
+begin
+  if FSocksIP <> '' then
+    SocksDoConnect(IP, Port)
+  else
+    if FHTTPTunnelIP <> '' then
+      HTTPTunnelDoConnect(IP, Port)
+    else
+      inherited Connect(IP, Port);
+  if FLasterror = 0 then
+    DoAfterConnect;
+end;
+
+procedure TTCPBlockSocket.SocksDoConnect(IP, Port: string);
+var
+  b: Boolean;
+begin
+  inherited Connect(FSocksIP, FSocksPort);
+  if FLastError = 0 then
+  begin
+    b := SocksOpen;
+    if b then
+      b := SocksRequest(1, IP, Port);
+    if b then
+      b := SocksResponse;
+    if not b and (FLastError = 0) then
+      FLastError := WSASYSNOTREADY;
+    FSocksLocalIP := FSocksResponseIP;
+    FSocksLocalPort := FSocksResponsePort;
+    FSocksRemoteIP := IP;
+    FSocksRemotePort := Port;
+  end;
+  ExceptCheck;
+  DoStatus(HR_Connect, IP + ':' + Port);
+end;
+
+procedure TTCPBlockSocket.HTTPTunnelDoConnect(IP, Port: string);
+//bugfixed by Mike Green (mgreen@emixode.com)
+var
+  s: string;
+begin
+  Port := IntToStr(ResolvePort(Port));
+  inherited Connect(FHTTPTunnelIP, FHTTPTunnelPort);
+  if FLastError <> 0 then
+    Exit;
+  FHTTPTunnel := False;
+  if IsIP6(IP) then
+    IP := '[' + IP + ']';
+  SendString('CONNECT ' + IP + ':' + Port + ' HTTP/1.0' + CRLF);
+  if FHTTPTunnelUser <> '' then
+  Sendstring('Proxy-Authorization: Basic ' +
+    EncodeBase64(FHTTPTunnelUser + ':' + FHTTPTunnelPass) + CRLF);
+  SendString(CRLF);
+  repeat
+    s := RecvTerminated(FHTTPTunnelTimeout, #$0a);
+    if FLastError <> 0 then
+      Break;
+    if (Pos('HTTP/', s) = 1) and (Length(s) > 11) then
+      FHTTPTunnel := s[10] = '2';
+  until (s = '') or (s = #$0d);
+  if (FLasterror = 0) and not FHTTPTunnel then
+    FLastError := WSASYSNOTREADY;
+  FHTTPTunnelRemoteIP := IP;
+  FHTTPTunnelRemotePort := Port;
+  ExceptCheck;
+end;
+
+procedure TTCPBlockSocket.SSLDoConnect;
+begin
+  ResetLastError;
+  if not FSSL.Connect then
+    FLastError := WSASYSNOTREADY;
+  ExceptCheck;
+end;
+
+procedure TTCPBlockSocket.SSLDoShutdown;
+begin
+  ResetLastError;
+  FSSL.BiShutdown;
+end;
+
+function TTCPBlockSocket.GetLocalSinIP: string;
+begin
+  if FUsingSocks then
+    Result := FSocksLocalIP
+  else
+    Result := inherited GetLocalSinIP;
+end;
+
+function TTCPBlockSocket.GetRemoteSinIP: string;
+begin
+  if FUsingSocks then
+    Result := FSocksRemoteIP
+  else
+    if FHTTPTunnel then
+      Result := FHTTPTunnelRemoteIP
+    else
+      Result := inherited GetRemoteSinIP;
+end;
+
+function TTCPBlockSocket.GetLocalSinPort: Integer;
+begin
+  if FUsingSocks then
+    Result := StrToIntDef(FSocksLocalPort, 0)
+  else
+    Result := inherited GetLocalSinPort;
+end;
+
+function TTCPBlockSocket.GetRemoteSinPort: Integer;
+begin
+  if FUsingSocks then
+    Result := ResolvePort(FSocksRemotePort)
+  else
+    if FHTTPTunnel then
+      Result := StrToIntDef(FHTTPTunnelRemotePort, 0)
+    else
+      Result := inherited GetRemoteSinPort;
+end;
+
+function TTCPBlockSocket.RecvBuffer(Buffer: TMemory; Len: Integer): Integer;
+begin
+  if FSSL.SSLEnabled then
+  begin
+    Result := 0;
+    if TestStopFlag then
+      Exit;
+    ResetLastError;
+    LimitBandwidth(Len, FMaxRecvBandwidth, FNextRecv);
+    Result := FSSL.RecvBuffer(Buffer, Len);
+    if FSSL.LastError <> 0 then
+      FLastError := WSASYSNOTREADY;
+    ExceptCheck;
+    Inc(FRecvCounter, Result);
+    DoStatus(HR_ReadCount, IntToStr(Result));
+    DoMonitor(False, Buffer, Result);
+    DoReadFilter(Buffer, Result);
+  end
+  else
+    Result := inherited RecvBuffer(Buffer, Len);
+end;
+
+function TTCPBlockSocket.SendBuffer(Buffer: TMemory; Length: Integer): Integer;
+var
+  x, y: integer;
+  l, r: integer;
+{$IFNDEF CIL}
+  p: Pointer;
+{$ENDIF}
+begin
+  if FSSL.SSLEnabled then
+  begin
+    Result := 0;
+    if TestStopFlag then
+      Exit;
+    ResetLastError;
+    DoMonitor(True, Buffer, Length);
+{$IFDEF CIL}
+    Result := FSSL.SendBuffer(Buffer, Length);
+    if FSSL.LastError <> 0 then
+      FLastError := WSASYSNOTREADY;
+    Inc(FSendCounter, Result);
+    DoStatus(HR_WriteCount, IntToStr(Result));
+{$ELSE}
+    l := Length;
+    x := 0;
+    while x < l do
+    begin
+      y := l - x;
+      if y > FSendMaxChunk then
+        y := FSendMaxChunk;
+      if y > 0 then
+      begin
+        LimitBandwidth(y, FMaxSendBandwidth, FNextsend);
+        p := IncPoint(Buffer, x);
+        r := FSSL.SendBuffer(p, y);
+        if FSSL.LastError <> 0 then
+          FLastError := WSASYSNOTREADY;
+        if Flasterror <> 0 then
+          Break;
+        Inc(x, r);
+        Inc(Result, r);
+        Inc(FSendCounter, r);
+        DoStatus(HR_WriteCount, IntToStr(r));
+      end
+      else
+        break;
+    end;
+{$ENDIF}
+    ExceptCheck;
+  end
+  else
+    Result := inherited SendBuffer(Buffer, Length);
+end;
+
+function TTCPBlockSocket.SSLAcceptConnection: Boolean;
+begin
+  ResetLastError;
+  if not FSSL.Accept then
+    FLastError := WSASYSNOTREADY;
+  ExceptCheck;
+  Result := FLastError = 0;
+end;
+
+function TTCPBlockSocket.GetSocketType: integer;
+begin
+  Result := integer(SOCK_STREAM);
+end;
+
+function TTCPBlockSocket.GetSocketProtocol: integer;
+begin
+  Result := integer(IPPROTO_TCP);
+end;
+
+{======================================================================}
+
+function TICMPBlockSocket.GetSocketType: integer;
+begin
+  Result := integer(SOCK_RAW);
+end;
+
+function TICMPBlockSocket.GetSocketProtocol: integer;
+begin
+  if FIP6Used then
+    Result := integer(IPPROTO_ICMPV6)
+  else
+    Result := integer(IPPROTO_ICMP);
+end;
+
+{======================================================================}
+
+function TRAWBlockSocket.GetSocketType: integer;
+begin
+  Result := integer(SOCK_RAW);
+end;
+
+function TRAWBlockSocket.GetSocketProtocol: integer;
+begin
+  Result := integer(IPPROTO_RAW);
+end;
+
+{======================================================================}
+
+constructor TSynaClient.Create;
+begin
+  inherited Create;
+  FIPInterface := cAnyHost;
+  FTargetHost := cLocalhost;
+  FTargetPort := cAnyPort;
+  FTimeout := 5000;
+  FUsername := '';
+  FPassword := '';
+end;
+
+{======================================================================}
+
+constructor TCustomSSL.Create(const Value: TTCPBlockSocket);
+begin
+  inherited Create;
+  FSocket := Value;
+  FSSLEnabled := False;
+  FUsername := '';
+  FPassword := '';
+  FLastError := 0;
+  FLastErrorDesc := '';
+  FVerifyCert := False;
+  FSSLType := LT_all;
+  FKeyPassword := '';
+  FCiphers := '';
+  FCertificateFile := '';
+  FPrivateKeyFile := '';
+  FCertCAFile := '';
+  FCertCA := '';
+  FTrustCertificate := '';
+  FTrustCertificateFile := '';
+  FCertificate := '';
+  FPrivateKey := '';
+  FPFX := '';
+  FPFXfile := '';
+  FSSHChannelType := '';
+  FSSHChannelArg1 := '';
+  FSSHChannelArg2 := '';
+end;
+
+procedure TCustomSSL.Assign(const Value: TCustomSSL);
+begin
+  FUsername := Value.Username;
+  FPassword := Value.Password;
+  FVerifyCert := Value.VerifyCert;
+  FSSLType := Value.SSLType;
+  FKeyPassword := Value.KeyPassword;
+  FCiphers := Value.Ciphers;
+  FCertificateFile := Value.CertificateFile;
+  FPrivateKeyFile := Value.PrivateKeyFile;
+  FCertCAFile := Value.CertCAFile;
+  FCertCA := Value.CertCA;
+  FTrustCertificate := Value.TrustCertificate;
+  FTrustCertificateFile := Value.TrustCertificateFile;
+  FCertificate := Value.Certificate;
+  FPrivateKey := Value.PrivateKey;
+  FPFX := Value.PFX;
+  FPFXfile := Value.PFXfile;
+end;
+
+procedure TCustomSSL.ReturnError;
+begin
+  FLastError := -1;
+  FLastErrorDesc := 'SSL/TLS support is not compiled!';
+end;
+
+function TCustomSSL.LibVersion: String;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.LibName: String;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.CreateSelfSignedCert(Host: string): Boolean;
+begin
+  Result := False;
+end;
+
+function TCustomSSL.Connect: boolean;
+begin
+  ReturnError;
+  Result := False;
+end;
+
+function TCustomSSL.Accept: boolean;
+begin
+  ReturnError;
+  Result := False;
+end;
+
+function TCustomSSL.Shutdown: boolean;
+begin
+  ReturnError;
+  Result := False;
+end;
+
+function TCustomSSL.BiShutdown: boolean;
+begin
+  ReturnError;
+  Result := False;
+end;
+
+function TCustomSSL.SendBuffer(Buffer: TMemory; Len: Integer): Integer;
+begin
+  ReturnError;
+  Result := integer(SOCKET_ERROR);
+end;
+
+function TCustomSSL.RecvBuffer(Buffer: TMemory; Len: Integer): Integer;
+begin
+  ReturnError;
+  Result := integer(SOCKET_ERROR);
+end;
+
+function TCustomSSL.WaitingData: Integer;
+begin
+  ReturnError;
+  Result := 0;
+end;
+
+function TCustomSSL.GetSSLVersion: string;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.GetPeerSubject: string;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.GetPeerName: string;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.GetPeerIssuer: string;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.GetPeerFingerprint: string;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.GetCertInfo: string;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.GetCipherName: string;
+begin
+  Result := '';
+end;
+
+function TCustomSSL.GetCipherBits: integer;
+begin
+  Result := 0;
+end;
+
+function TCustomSSL.GetCipherAlgBits: integer;
+begin
+  Result := 0;
+end;
+
+function TCustomSSL.GetVerifyCert: integer;
+begin
+  Result := 1;
+end;
+
+{======================================================================}
+
+function TSSLNone.LibVersion: String;
+begin
+  Result := 'Without SSL support';
+end;
+
+function TSSLNone.LibName: String;
+begin
+  Result := 'ssl_none';
+end;
+
+{======================================================================}
+
+{$IFDEF ONCEWINSOCK}
+initialization
+begin
+  if not InitSocketInterface(DLLStackName) then
+  begin
+    e := ESynapseError.Create('Error loading Socket interface (' + DLLStackName + ')!');
+    e.ErrorCode := 0;
+    e.ErrorMessage := 'Error loading Socket interface (' + DLLStackName + ')!';
+    raise e;
+  end;
+  synsock.WSAStartup(WinsockLevel, WsaDataOnce);
+end;
+{$ENDIF}
+
+finalization
+begin
+{$IFDEF ONCEWINSOCK}
+  synsock.WSACleanup;
+  DestroySocketInterface;
+{$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/clamsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/clamsend.pas
new file mode 100644
index 0000000..91a9f56
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/clamsend.pas	
@@ -0,0 +1,271 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.000 |
+|==============================================================================|
+| Content: ClamAV-daemon client                                                |
+|==============================================================================|
+| Copyright (c)2005-2009, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2005-2009.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract( ClamAV-daemon client)
+
+This unit is capable to do antivirus scan of your data by TCP channel to ClamD
+daemon from ClamAV. See more about ClamAV on @LINK(http://www.clamav.net)
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$H+}
+
+unit clamsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  synsock, blcksock, synautil;
+
+const
+  cClamProtocol = '3310';
+
+type
+
+  {:@abstract(Implementation of ClamAV-daemon client protocol)
+   By this class you can scan any your data by ClamAV opensource antivirus.
+
+   This class can connect to ClamD by TCP channel, send your data to ClamD
+   and read result.}
+  TClamSend = class(TSynaClient)
+  private
+    FSock: TTCPBlockSocket;
+    FDSock: TTCPBlockSocket;
+    FSession: boolean;
+    function Login: boolean; virtual;
+    function Logout: Boolean; virtual;
+    function OpenStream: Boolean; virtual;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Call any command to ClamD. Used internally by other methods.}
+    function DoCommand(const Value: AnsiString): AnsiString; virtual;
+
+    {:Return ClamAV version and version of loaded databases.}
+    function GetVersion: AnsiString; virtual;
+
+    {:Scan content of TStrings.}
+    function ScanStrings(const Value: TStrings): AnsiString; virtual;
+
+    {:Scan content of TStream.}
+    function ScanStream(const Value: TStream): AnsiString; virtual;
+
+    {:Scan content of TStrings by new 0.95 API.}
+    function ScanStrings2(const Value: TStrings): AnsiString; virtual;
+
+    {:Scan content of TStream by new 0.95 API.}
+    function ScanStream2(const Value: TStream): AnsiString; virtual;
+  published
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TTCPBlockSocket read FSock;
+
+    {:Socket object used for TCP data transfer operation. Good for seting OnStatus hook, etc.}
+    property DSock: TTCPBlockSocket read FDSock;
+
+    {:Can turn-on session mode of communication with ClamD. Default is @false,
+     because ClamAV developers design their TCP code very badly and session mode
+     is broken now (CVS-20051031). Maybe ClamAV developers fix their bugs
+     and this mode will be possible in future.}
+    property Session: boolean read FSession write FSession;
+  end;
+
+implementation
+
+constructor TClamSend.Create;
+begin
+  inherited Create;
+  FSock := TTCPBlockSocket.Create;
+  FDSock := TTCPBlockSocket.Create;
+  FTimeout := 60000;
+  FTargetPort := cClamProtocol;
+  FSession := false;
+end;
+
+destructor TClamSend.Destroy;
+begin
+  Logout;
+  FDSock.Free;
+  FSock.Free;
+  inherited Destroy;
+end;
+
+function TClamSend.DoCommand(const Value: AnsiString): AnsiString;
+begin
+  Result := '';
+  if not FSession then
+    FSock.CloseSocket
+  else
+    FSock.SendString(Value + LF);
+  if not FSession or (FSock.LastError <> 0) then
+  begin
+    if Login then
+      FSock.SendString(Value + LF)
+    else
+      Exit;
+  end;
+  Result := FSock.RecvTerminated(FTimeout, LF);
+end;
+
+function TClamSend.Login: boolean;
+begin
+  Result := False;
+  Sock.CloseSocket;
+  FSock.Bind(FIPInterface, cAnyPort);
+  if FSock.LastError <> 0 then
+    Exit;
+  FSock.Connect(FTargetHost, FTargetPort);
+  if FSock.LastError <> 0 then
+    Exit;
+  if FSession then
+    FSock.SendString('SESSION' + LF);
+  Result := FSock.LastError = 0;
+end;
+
+function TClamSend.Logout: Boolean;
+begin
+  FSock.SendString('END' + LF);
+  Result := FSock.LastError = 0;
+  FSock.CloseSocket;
+end;
+
+function TClamSend.GetVersion: AnsiString;
+begin
+  Result := DoCommand('nVERSION');
+end;
+
+function TClamSend.OpenStream: Boolean;
+var
+  S: AnsiString;
+begin
+  Result := False;
+  s := DoCommand('nSTREAM');
+  if (s <> '') and (Copy(s, 1, 4) = 'PORT') then
+  begin
+    s := SeparateRight(s, ' ');
+    FDSock.CloseSocket;
+    FDSock.Bind(FIPInterface, cAnyPort);
+    if FDSock.LastError <> 0 then
+      Exit;
+    FDSock.Connect(FTargetHost, s);
+    if FDSock.LastError <> 0 then
+      Exit;
+    Result := True;
+  end;
+end;
+
+function TClamSend.ScanStrings(const Value: TStrings): AnsiString;
+begin
+  Result := '';
+  if OpenStream then
+  begin
+    DSock.SendString(Value.Text);
+    DSock.CloseSocket;
+    Result := FSock.RecvTerminated(FTimeout, LF);
+  end;
+end;
+
+function TClamSend.ScanStream(const Value: TStream): AnsiString;
+begin
+  Result := '';
+  if OpenStream then
+  begin
+    DSock.SendStreamRaw(Value);
+    DSock.CloseSocket;
+    Result := FSock.RecvTerminated(FTimeout, LF);
+  end;
+end;
+
+function TClamSend.ScanStrings2(const Value: TStrings): AnsiString;
+var
+  i: integer;
+  s: AnsiString;
+begin
+  Result := '';
+  if not FSession then
+    FSock.CloseSocket
+  else
+    FSock.sendstring('nINSTREAM' + LF);
+  if not FSession or (FSock.LastError <> 0) then
+  begin
+    if Login then
+      FSock.sendstring('nINSTREAM' + LF)
+    else
+      Exit;
+  end;
+  s := Value.text;
+  i := length(s);
+  FSock.SendString(CodeLongint(i) + s + #0#0#0#0);
+  Result := FSock.RecvTerminated(FTimeout, LF);
+end;
+
+function TClamSend.ScanStream2(const Value: TStream): AnsiString;
+var
+  i: integer;
+  s: AnsiString;
+begin
+  Result := '';
+  if not FSession then
+    FSock.CloseSocket
+  else
+    FSock.sendstring('nINSTREAM' + LF);
+  if not FSession or (FSock.LastError <> 0) then
+  begin
+    if Login then
+      FSock.sendstring('nINSTREAM' + LF)
+    else
+      Exit;
+  end;
+  i := value.Size;
+  FSock.SendString(CodeLongint(i));
+  FSock.SendStreamRaw(Value);
+  FSock.SendString(#0#0#0#0);
+  Result := FSock.RecvTerminated(FTimeout, LF);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/dnssend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/dnssend.pas
new file mode 100644
index 0000000..f7684ce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/dnssend.pas	
@@ -0,0 +1,596 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 002.007.004 |
+|==============================================================================|
+| Content: DNS client                                                          |
+|==============================================================================|
+| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2007.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+{: @abstract(DNS client by UDP or TCP)
+Support for sending DNS queries by UDP or TCP protocol. It can retrieve zone
+ transfers too!
+
+Used RFC: RFC-1035, RFC-1183, RFC1706, RFC1712, RFC2163, RFC2230
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$H+}
+
+unit dnssend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil, synaip, synsock;
+
+const
+  cDnsProtocol = '53';
+
+  QTYPE_A = 1;
+  QTYPE_NS = 2;
+  QTYPE_MD = 3;
+  QTYPE_MF = 4;
+  QTYPE_CNAME = 5;
+  QTYPE_SOA = 6;
+  QTYPE_MB = 7;
+  QTYPE_MG = 8;
+  QTYPE_MR = 9;
+  QTYPE_NULL = 10;
+  QTYPE_WKS = 11; //
+  QTYPE_PTR = 12;
+  QTYPE_HINFO = 13;
+  QTYPE_MINFO = 14;
+  QTYPE_MX = 15;
+  QTYPE_TXT = 16;
+
+  QTYPE_RP = 17;
+  QTYPE_AFSDB = 18;
+  QTYPE_X25 = 19;
+  QTYPE_ISDN = 20;
+  QTYPE_RT = 21;
+  QTYPE_NSAP = 22;
+  QTYPE_NSAPPTR = 23;
+  QTYPE_SIG = 24; // RFC-2065
+  QTYPE_KEY = 25; // RFC-2065
+  QTYPE_PX = 26;
+  QTYPE_GPOS = 27;
+  QTYPE_AAAA = 28;
+  QTYPE_LOC = 29; // RFC-1876
+  QTYPE_NXT = 30; // RFC-2065
+
+  QTYPE_SRV = 33;
+  QTYPE_NAPTR = 35; // RFC-2168
+  QTYPE_KX = 36;
+  QTYPE_SPF = 99;
+
+  QTYPE_AXFR = 252;
+  QTYPE_MAILB = 253; //
+  QTYPE_MAILA = 254; //
+  QTYPE_ALL = 255;
+
+type
+  {:@abstract(Implementation of DNS protocol by UDP or TCP protocol.)
+
+   Note: Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TDNSSend = class(TSynaClient)
+  private
+    FID: Word;
+    FRCode: Integer;
+    FBuffer: AnsiString;
+    FSock: TUDPBlockSocket;
+    FTCPSock: TTCPBlockSocket;
+    FUseTCP: Boolean;
+    FAnswerInfo: TStringList;
+    FNameserverInfo: TStringList;
+    FAdditionalInfo: TStringList;
+    FAuthoritative: Boolean;
+    FTruncated: Boolean;
+    function CompressName(const Value: AnsiString): AnsiString;
+    function CodeHeader: AnsiString;
+    function CodeQuery(const Name: AnsiString; QType: Integer): AnsiString;
+    function DecodeLabels(var From: Integer): AnsiString;
+    function DecodeString(var From: Integer): AnsiString;
+    function DecodeResource(var i: Integer; const Info: TStringList;
+      QType: Integer): AnsiString;
+    function RecvTCPResponse(const WorkSock: TBlockSocket): AnsiString;
+    function DecodeResponse(const Buf: AnsiString; const Reply: TStrings;
+      QType: Integer):boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Query a DNSHost for QType resources correspond to a name. Supported QType
+     values are: Qtype_A, Qtype_NS, Qtype_MD, Qtype_MF, Qtype_CNAME, Qtype_SOA,
+     Qtype_MB, Qtype_MG, Qtype_MR, Qtype_NULL, Qtype_PTR, Qtype_HINFO,
+     Qtype_MINFO, Qtype_MX, Qtype_TXT, Qtype_RP, Qtype_AFSDB, Qtype_X25,
+     Qtype_ISDN, Qtype_RT, Qtype_NSAP, Qtype_NSAPPTR, Qtype_PX, Qtype_GPOS,
+     Qtype_KX.
+
+     Type for zone transfers QTYPE_AXFR is supported too, but only in TCP mode!
+
+     "Name" is domain name or host name for queried resource. If "name" is
+     IP address, automatically convert to reverse domain form (.in-addr.arpa).
+
+     If result is @true, Reply contains resource records. One record on one line.
+     If Resource record have multiple fields, they are stored on line divided by
+     comma. (example: MX record contains value 'rs.cesnet.cz' with preference
+     number 10, string in Reply is: '10,rs.cesnet.cz'). All numbers or IP address
+     in resource are converted to string form.}
+    function DNSQuery(Name: AnsiString; QType: Integer;
+      const Reply: TStrings): Boolean;
+  published
+
+    {:Socket object used for UDP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TUDPBlockSocket read FSock;
+
+    {:Socket object used for TCP operation. Good for seting OnStatus hook, etc.}
+    property TCPSock: TTCPBlockSocket read FTCPSock;
+
+    {:if @true, then is used TCP protocol instead UDP. It is needed for zone
+     transfers, etc.}
+    property UseTCP: Boolean read FUseTCP Write FUseTCP;
+
+    {:After DNS operation contains ResultCode of DNS operation.
+      Values are: 0-no error, 1-format error, 2-server failure, 3-name error,
+      4-not implemented, 5-refused.}
+    property RCode: Integer read FRCode;
+
+    {:@True, if answer is authoritative.}
+    property Authoritative: Boolean read FAuthoritative;
+
+    {:@True, if answer is truncated to 512 bytes.}
+    property Truncated: Boolean read FTRuncated;
+
+    {:Detailed informations from name server reply. One record per line. Record
+     have comma delimited entries with type number, TTL and data filelds.
+     This information contains detailed information about query reply.}
+    property AnswerInfo: TStringList read FAnswerInfo;
+
+    {:Detailed informations from name server reply. One record per line. Record
+     have comma delimited entries with type number, TTL and data filelds.
+     This information contains detailed information about nameserver.}
+    property NameserverInfo: TStringList read FNameserverInfo;
+
+    {:Detailed informations from name server reply. One record per line. Record
+     have comma delimited entries with type number, TTL and data filelds.
+     This information contains detailed additional information.}
+    property AdditionalInfo: TStringList read FAdditionalInfo;
+  end;
+
+{:A very useful function, and example of it's use is found in the TDNSSend object.
+ This function is used to get mail servers for a domain and sort them by
+ preference numbers. "Servers" contains only the domain names of the mail
+ servers in the right order (without preference number!). The first domain name
+ will always be the highest preferenced mail server. Returns boolean @TRUE if
+ all went well.}
+function GetMailServers(const DNSHost, Domain: AnsiString;
+  const Servers: TStrings): Boolean;
+
+implementation
+
+constructor TDNSSend.Create;
+begin
+  inherited Create;
+  FSock := TUDPBlockSocket.Create;
+  FTCPSock := TTCPBlockSocket.Create;
+  FUseTCP := False;
+  FTimeout := 10000;
+  FTargetPort := cDnsProtocol;
+  FAnswerInfo := TStringList.Create;
+  FNameserverInfo := TStringList.Create;
+  FAdditionalInfo := TStringList.Create;
+  Randomize;
+end;
+
+destructor TDNSSend.Destroy;
+begin
+  FAnswerInfo.Free;
+  FNameserverInfo.Free;
+  FAdditionalInfo.Free;
+  FTCPSock.Free;
+  FSock.Free;
+  inherited Destroy;
+end;
+
+function TDNSSend.CompressName(const Value: AnsiString): AnsiString;
+var
+  n: Integer;
+  s: AnsiString;
+begin
+  Result := '';
+  if Value = '' then
+    Result := #0
+  else
+  begin
+    s := '';
+    for n := 1 to Length(Value) do
+      if Value[n] = '.' then
+      begin
+        Result := Result + Char(Length(s)) + s;
+        s := '';
+      end
+      else
+        s := s + Value[n];
+    if s <> '' then
+      Result := Result + Char(Length(s)) + s;
+    Result := Result + #0;
+  end;
+end;
+
+function TDNSSend.CodeHeader: AnsiString;
+begin
+  FID := Random(32767);
+  Result := CodeInt(FID); // ID
+  Result := Result + CodeInt($0100); // flags
+  Result := Result + CodeInt(1); // QDCount
+  Result := Result + CodeInt(0); // ANCount
+  Result := Result + CodeInt(0); // NSCount
+  Result := Result + CodeInt(0); // ARCount
+end;
+
+function TDNSSend.CodeQuery(const Name: AnsiString; QType: Integer): AnsiString;
+begin
+  Result := CompressName(Name);
+  Result := Result + CodeInt(QType);
+  Result := Result + CodeInt(1); // Type INTERNET
+end;
+
+function TDNSSend.DecodeString(var From: Integer): AnsiString;
+var
+  Len: integer;
+begin
+  Len := Ord(FBuffer[From]);
+  Inc(From);
+  Result := Copy(FBuffer, From, Len);
+  Inc(From, Len);
+end;
+
+function TDNSSend.DecodeLabels(var From: Integer): AnsiString;
+var
+  l, f: Integer;
+begin
+  Result := '';
+  while True do
+  begin
+    if From >= Length(FBuffer) then
+      Break;
+    l := Ord(FBuffer[From]);
+    Inc(From);
+    if l = 0 then
+      Break;
+    if Result <> '' then
+      Result := Result + '.';
+    if (l and $C0) = $C0 then
+    begin
+      f := l and $3F;
+      f := f * 256 + Ord(FBuffer[From]) + 1;
+      Inc(From);
+      Result := Result + DecodeLabels(f);
+      Break;
+    end
+    else
+    begin
+      Result := Result + Copy(FBuffer, From, l);
+      Inc(From, l);
+    end;
+  end;
+end;
+
+function TDNSSend.DecodeResource(var i: Integer; const Info: TStringList;
+  QType: Integer): AnsiString;
+var
+  Rname: AnsiString;
+  RType, Len, j, x, y, z, n: Integer;
+  R: AnsiString;
+  t1, t2, ttl: integer;
+  ip6: TIp6bytes;
+begin
+  Result := '';
+  R := '';
+  Rname := DecodeLabels(i);
+  RType := DecodeInt(FBuffer, i);
+  Inc(i, 4);
+  t1 := DecodeInt(FBuffer, i);
+  Inc(i, 2);
+  t2 := DecodeInt(FBuffer, i);
+  Inc(i, 2);
+  ttl := t1 * 65536 + t2;
+  Len := DecodeInt(FBuffer, i);
+  Inc(i, 2); // i point to begin of data
+  j := i;
+  i := i + len; // i point to next record
+  if Length(FBuffer) >= (i - 1) then
+    case RType of
+      QTYPE_A:
+        begin
+          R := IntToStr(Ord(FBuffer[j]));
+          Inc(j);
+          R := R + '.' + IntToStr(Ord(FBuffer[j]));
+          Inc(j);
+          R := R + '.' + IntToStr(Ord(FBuffer[j]));
+          Inc(j);
+          R := R + '.' + IntToStr(Ord(FBuffer[j]));
+        end;
+      QTYPE_AAAA:
+        begin
+          for n := 0 to 15 do
+            ip6[n] := ord(FBuffer[j + n]);
+          R := IP6ToStr(ip6);
+        end;
+      QTYPE_NS, QTYPE_MD, QTYPE_MF, QTYPE_CNAME, QTYPE_MB,
+        QTYPE_MG, QTYPE_MR, QTYPE_PTR, QTYPE_X25, QTYPE_NSAP,
+        QTYPE_NSAPPTR:
+        R := DecodeLabels(j);
+      QTYPE_SOA:
+        begin
+          R := DecodeLabels(j);
+          R := R + ',' + DecodeLabels(j);
+          for n := 1 to 5 do
+          begin
+            x := DecodeInt(FBuffer, j) * 65536 + DecodeInt(FBuffer, j + 2);
+            Inc(j, 4);
+            R := R + ',' + IntToStr(x);
+          end;
+        end;
+      QTYPE_NULL:
+        begin
+        end;
+      QTYPE_WKS:
+        begin
+        end;
+      QTYPE_HINFO:
+        begin
+          R := DecodeString(j);
+          R := R + ',' + DecodeString(j);
+        end;
+      QTYPE_MINFO, QTYPE_RP, QTYPE_ISDN:
+        begin
+          R := DecodeLabels(j);
+          R := R + ',' + DecodeLabels(j);
+        end;
+      QTYPE_MX, QTYPE_AFSDB, QTYPE_RT, QTYPE_KX:
+        begin
+          x := DecodeInt(FBuffer, j);
+          Inc(j, 2);
+          R := IntToStr(x);
+          R := R + ',' + DecodeLabels(j);
+        end;
+      QTYPE_TXT, QTYPE_SPF:
+        begin
+          R := '';
+          while j < i do
+            R := R + DecodeString(j);
+        end;
+      QTYPE_GPOS:
+        begin
+          R := DecodeLabels(j);
+          R := R + ',' + DecodeLabels(j);
+          R := R + ',' + DecodeLabels(j);
+        end;
+      QTYPE_PX:
+        begin
+          x := DecodeInt(FBuffer, j);
+          Inc(j, 2);
+          R := IntToStr(x);
+          R := R + ',' + DecodeLabels(j);
+          R := R + ',' + DecodeLabels(j);
+        end;
+      QTYPE_SRV:
+      // Author: Dan <ml@mutox.org>
+        begin
+          x := DecodeInt(FBuffer, j);
+          Inc(j, 2);
+          y := DecodeInt(FBuffer, j);
+          Inc(j, 2);
+          z := DecodeInt(FBuffer, j);
+          Inc(j, 2);
+          R := IntToStr(x);                     // Priority
+          R := R + ',' + IntToStr(y);           // Weight
+          R := R + ',' + IntToStr(z);           // Port
+          R := R + ',' + DecodeLabels(j);       // Server DNS Name
+        end;
+    end;
+  if R <> '' then
+    Info.Add(RName + ',' + IntToStr(RType) + ',' + IntToStr(ttl) + ',' + R);
+  if QType = RType then
+    Result := R;
+end;
+
+function TDNSSend.RecvTCPResponse(const WorkSock: TBlockSocket): AnsiString;
+var
+  l: integer;
+begin
+  Result := '';
+  l := WorkSock.recvbyte(FTimeout) * 256 + WorkSock.recvbyte(FTimeout);
+  if l > 0 then
+    Result := WorkSock.RecvBufferStr(l, FTimeout);
+end;
+
+function TDNSSend.DecodeResponse(const Buf: AnsiString; const Reply: TStrings;
+  QType: Integer):boolean;
+var
+  n, i: Integer;
+  flag, qdcount, ancount, nscount, arcount: Integer;
+  s: AnsiString;
+begin
+  Result := False;
+  Reply.Clear;
+  FAnswerInfo.Clear;
+  FNameserverInfo.Clear;
+  FAdditionalInfo.Clear;
+  FAuthoritative := False;
+  if (Length(Buf) > 13) and (FID = DecodeInt(Buf, 1)) then
+  begin
+    Result := True;
+    flag := DecodeInt(Buf, 3);
+    FRCode := Flag and $000F;
+    FAuthoritative := (Flag and $0400) > 0;
+    FTruncated := (Flag and $0200) > 0;
+    if FRCode = 0 then
+    begin
+      qdcount := DecodeInt(Buf, 5);
+      ancount := DecodeInt(Buf, 7);
+      nscount := DecodeInt(Buf, 9);
+      arcount := DecodeInt(Buf, 11);
+      i := 13; //begin of body
+      if (qdcount > 0) and (Length(Buf) > i) then //skip questions
+        for n := 1 to qdcount do
+        begin
+          while (Buf[i] <> #0) and ((Ord(Buf[i]) and $C0) <> $C0) do
+            Inc(i);
+          Inc(i, 5);
+        end;
+      if (ancount > 0) and (Length(Buf) > i) then // decode reply
+        for n := 1 to ancount do
+        begin
+          s := DecodeResource(i, FAnswerInfo, QType);
+          if s <> '' then
+            Reply.Add(s);
+        end;
+      if (nscount > 0) and (Length(Buf) > i) then // decode nameserver info
+        for n := 1 to nscount do
+          DecodeResource(i, FNameserverInfo, QType);
+      if (arcount > 0) and (Length(Buf) > i) then // decode additional info
+        for n := 1 to arcount do
+          DecodeResource(i, FAdditionalInfo, QType);
+    end;
+  end;
+end;
+
+function TDNSSend.DNSQuery(Name: AnsiString; QType: Integer;
+  const Reply: TStrings): Boolean;
+var
+  WorkSock: TBlockSocket;
+  t: TStringList;
+  b: boolean;
+begin
+  Result := False;
+  if IsIP(Name) then
+    Name := ReverseIP(Name) + '.in-addr.arpa';
+  if IsIP6(Name) then
+    Name := ReverseIP6(Name) + '.ip6.arpa';
+  FBuffer := CodeHeader + CodeQuery(Name, QType);
+  if FUseTCP then
+    WorkSock := FTCPSock
+  else
+    WorkSock := FSock;
+  WorkSock.Bind(FIPInterface, cAnyPort);
+  WorkSock.Connect(FTargetHost, FTargetPort);
+  if FUseTCP then
+    FBuffer := Codeint(length(FBuffer)) + FBuffer;
+  WorkSock.SendString(FBuffer);
+  if FUseTCP then
+    FBuffer := RecvTCPResponse(WorkSock)
+  else
+    FBuffer := WorkSock.RecvPacket(FTimeout);
+  if FUseTCP and (QType = QTYPE_AXFR) then //zone transfer
+  begin
+    t := TStringList.Create;
+    try
+      repeat
+        b := DecodeResponse(FBuffer, Reply, QType);
+        if (t.Count > 1) and (AnswerInfo.Count > 0) then  //find end of transfer
+          b := b and (t[0] <> AnswerInfo[AnswerInfo.count - 1]);
+        if b then
+        begin
+          t.AddStrings(AnswerInfo);
+          FBuffer := RecvTCPResponse(WorkSock);
+          if FBuffer = '' then
+            Break;
+          if WorkSock.LastError <> 0 then
+            Break;
+        end;
+      until not b;
+      Reply.Assign(t);
+      Result := True;
+    finally
+      t.free;
+    end;
+  end
+  else //normal query
+    if WorkSock.LastError = 0 then
+      Result := DecodeResponse(FBuffer, Reply, QType);
+end;
+
+{==============================================================================}
+
+function GetMailServers(const DNSHost, Domain: AnsiString;
+  const Servers: TStrings): Boolean;
+var
+  DNS: TDNSSend;
+  t: TStringList;
+  n, m, x: Integer;
+begin
+  Result := False;
+  Servers.Clear;
+  t := TStringList.Create;
+  DNS := TDNSSend.Create;
+  try
+    DNS.TargetHost := DNSHost;
+    if DNS.DNSQuery(Domain, QType_MX, t) then
+    begin
+      { normalize preference number to 5 digits }
+      for n := 0 to t.Count - 1 do
+      begin
+        x := Pos(',', t[n]);
+        if x > 0 then
+          for m := 1 to 6 - x do
+            t[n] := '0' + t[n];
+      end;
+      { sort server list }
+      t.Sorted := True;
+      { result is sorted list without preference numbers }
+      for n := 0 to t.Count - 1 do
+      begin
+        x := Pos(',', t[n]);
+        Servers.Add(Copy(t[n], x + 1, Length(t[n]) - x));
+      end;
+      Result := True;
+    end;
+  finally
+    DNS.Free;
+    t.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ftpsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ftpsend.pas
new file mode 100644
index 0000000..49b2a00
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ftpsend.pas	
@@ -0,0 +1,1943 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 003.005.001 |
+|==============================================================================|
+| Content: FTP client                                                          |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c) 1999-2008.               |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|   Petr Esner <petr.esner@atlas.cz>                                           |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{: @abstract(FTP client protocol)
+
+Used RFC: RFC-959, RFC-2228, RFC-2428
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit ftpsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil, synaip, synsock;
+
+const
+  cFtpProtocol = '21';
+  cFtpDataProtocol = '20';
+
+  {:Terminating value for TLogonActions}
+  FTP_OK = 255;
+  {:Terminating value for TLogonActions}
+  FTP_ERR = 254;
+
+type
+  {:Array for holding definition of logon sequence.}
+  TLogonActions = array [0..17] of byte;
+
+  {:Procedural type for OnStatus event. Sender is calling @link(TFTPSend) object.
+   Value is FTP command or reply to this comand. (if it is reply, Response
+   is @True).}
+  TFTPStatus = procedure(Sender: TObject; Response: Boolean;
+    const Value: string) of object;
+
+  {: @abstract(Object for holding file information) parsed from directory
+   listing of FTP server.}
+  TFTPListRec = class(TObject)
+  private
+    FFileName: string;
+    FDirectory: Boolean;
+    FReadable: Boolean;
+    FFileSize: Longint;
+    FFileTime: TDateTime;
+    FOriginalLine: string;
+    FMask: string;
+    FPermission: string;
+  public
+    {: You can assign another TFTPListRec to this object.}
+    procedure Assign(Value: TFTPListRec); virtual;
+  published
+    {:name of file}
+    property FileName: string read FFileName write FFileName;
+    {:if name is subdirectory not file.}
+    property Directory: Boolean read FDirectory write FDirectory;
+    {:if you have rights to read}
+    property Readable: Boolean read FReadable write FReadable;
+    {:size of file in bytes}
+    property FileSize: Longint read FFileSize write FFileSize;
+    {:date and time of file. Local server timezone is used. Any timezone
+     conversions was not done!}
+    property FileTime: TDateTime read FFileTime write FFileTime;
+    {:original unparsed line}
+    property OriginalLine: string read FOriginalLine write FOriginalLine;
+    {:mask what was used for parsing}
+    property Mask: string read FMask write FMask;
+    {:permission string (depending on used mask!)}
+    property Permission: string read FPermission write FPermission;
+  end;
+
+  {:@abstract(This is TList of TFTPListRec objects.)
+   This object is used for holding lististing of all files information in listed
+   directory on FTP server.}
+  TFTPList = class(TObject)
+  protected
+    FList: TList;
+    FLines: TStringList;
+    FMasks: TStringList;
+    FUnparsedLines: TStringList;
+    Monthnames: string;
+    BlockSize: string;
+    DirFlagValue: string;
+    FileName: string;
+    VMSFileName: string;
+    Day: string;
+    Month: string;
+    ThreeMonth: string;
+    YearTime: string;
+    Year: string;
+    Hours: string;
+    HoursModif: string;
+    Minutes: string;
+    Seconds: string;
+    Size: string;
+    Permissions: string;
+    DirFlag: string;
+    function GetListItem(Index: integer): TFTPListRec; virtual;
+    function ParseEPLF(Value: string): Boolean; virtual;
+    procedure ClearStore; virtual;
+    function ParseByMask(Value, NextValue, Mask: string): Integer; virtual;
+    function CheckValues: Boolean; virtual;
+    procedure FillRecord(const Value: TFTPListRec); virtual;
+  public
+    {:Constructor. You not need create this object, it is created by TFTPSend
+     class as their property.}
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Clear list.}
+    procedure Clear; virtual;
+
+    {:count of holded @link(TFTPListRec) objects}
+    function Count: integer; virtual;
+
+    {:Assigns one list to another}
+    procedure Assign(Value: TFTPList); virtual;
+
+    {:try to parse raw directory listing in @link(lines) to list of
+     @link(TFTPListRec).}
+    procedure ParseLines; virtual;
+
+    {:By this property you have access to list of @link(TFTPListRec).
+     This is for compatibility only. Please, use @link(Items) instead.}
+    property List: TList read FList;
+
+    {:By this property you have access to list of @link(TFTPListRec).}
+    property Items[Index: Integer]: TFTPListRec read GetListItem; default;
+
+    {:Set of lines with RAW directory listing for @link(parseLines)}
+    property Lines: TStringList read FLines;
+
+    {:Set of masks for directory listing parser. It is predefined by default,
+    however you can modify it as you need. (for example, you can add your own
+    definition mask.) Mask is same as mask used in TotalCommander.}
+    property Masks: TStringList read FMasks;
+
+    {:After @link(ParseLines) it holding lines what was not sucessfully parsed.}
+    property UnparsedLines: TStringList read FUnparsedLines;
+  end;
+
+  {:@abstract(Implementation of FTP protocol.)
+   Note: Are you missing properties for setting Username and Password? Look to
+   parent @link(TSynaClient) object! (Username and Password have default values
+   for "anonymous" FTP login)
+
+   Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TFTPSend = class(TSynaClient)
+  protected
+    FOnStatus: TFTPStatus;
+    FSock: TTCPBlockSocket;
+    FDSock: TTCPBlockSocket;
+    FResultCode: Integer;
+    FResultString: string;
+    FFullResult: TStringList;
+    FAccount: string;
+    FFWHost: string;
+    FFWPort: string;
+    FFWUsername: string;
+    FFWPassword: string;
+    FFWMode: integer;
+    FDataStream: TMemoryStream;
+    FDataIP: string;
+    FDataPort: string;
+    FDirectFile: Boolean;
+    FDirectFileName: string;
+    FCanResume: Boolean;
+    FPassiveMode: Boolean;
+    FForceDefaultPort: Boolean;
+    FForceOldPort: Boolean;
+    FFtpList: TFTPList;
+    FBinaryMode: Boolean;
+    FAutoTLS: Boolean;
+    FIsTLS: Boolean;
+    FIsDataTLS: Boolean;
+    FTLSonData: Boolean;
+    FFullSSL: Boolean;
+    function Auth(Mode: integer): Boolean; virtual;
+    function Connect: Boolean; virtual;
+    function InternalStor(const Command: string; RestoreAt: integer): Boolean; virtual;
+    function DataSocket: Boolean; virtual;
+    function AcceptDataSocket: Boolean; virtual;
+    procedure DoStatus(Response: Boolean; const Value: string); virtual;
+  public
+    {:Custom definition of login sequence. You can use this when you set
+     @link(FWMode) to value -1.}
+    CustomLogon: TLogonActions;
+
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Waits and read FTP server response. You need this only in special cases!}
+    function ReadResult: Integer; virtual;
+
+    {:Parse remote side information of data channel from value string (returned
+     by PASV command). This function you need only in special cases!}
+    procedure ParseRemote(Value: string); virtual;
+
+    {:Parse remote side information of data channel from value string (returned
+     by EPSV command). This function you need only in special cases!}
+    procedure ParseRemoteEPSV(Value: string); virtual;
+
+    {:Send Value as FTP command to FTP server. Returned result code is result of
+     this function.
+     This command is good for sending site specific command, or non-standard
+     commands.}
+    function FTPCommand(const Value: string): integer; virtual;
+
+    {:Connect and logon to FTP server. If you specify any FireWall, connect to
+     firewall and throw them connect to FTP server. Login sequence depending on
+     @link(FWMode).}
+    function Login: Boolean; virtual;
+
+    {:Logoff and disconnect from FTP server.}
+    function Logout: Boolean; virtual;
+
+    {:Break current transmission of data. (You can call this method from
+     Sock.OnStatus event, or from another thread.)}
+    procedure Abort; virtual;
+
+    {:Break current transmission of data. It is same as Abort, but it send abort
+     telnet commands prior ABOR FTP command. Some servers need it. (You can call
+     this method from Sock.OnStatus event, or from another thread.)}
+    procedure TelnetAbort; virtual;
+
+    {:Download directory listing of Directory on FTP server. If Directory is
+     empty string, download listing of current working directory.
+     If NameList is @true, download only names of files in directory.
+     (internally use NLST command instead LIST command)
+     If NameList is @false, returned list is also parsed to @link(FTPList)
+     property.}
+    function List(Directory: string; NameList: Boolean): Boolean; virtual;
+
+    {:Read data from FileName on FTP server. If Restore is @true and server
+     supports resume dowloads, download is resumed. (received is only rest
+     of file)}
+    function RetrieveFile(const FileName: string; Restore: Boolean): Boolean; virtual;
+
+    {:Send data to FileName on FTP server. If Restore is @true and server
+     supports resume upload, upload is resumed. (send only rest of file)
+     In this case if remote file is same length as local file, nothing will be
+     done. If remote file is larger then local, resume is disabled and file is
+     transfered from begin!}
+    function StoreFile(const FileName: string; Restore: Boolean): Boolean; virtual;
+
+    {:Send data to FTP server and assing unique name for this file.}
+    function StoreUniqueFile: Boolean; virtual;
+
+    {:Append data to FileName on FTP server.}
+    function AppendFile(const FileName: string): Boolean; virtual;
+
+    {:Rename on FTP server file with OldName to NewName.}
+    function RenameFile(const OldName, NewName: string): Boolean; virtual;
+
+    {:Delete file FileName on FTP server.}
+    function DeleteFile(const FileName: string): Boolean; virtual;
+
+    {:Return size of Filename file on FTP server. If command failed (i.e. not
+     implemented), return -1.}
+    function FileSize(const FileName: string): integer; virtual;
+
+    {:Send NOOP command to FTP server for preserve of disconnect by inactivity
+     timeout.}
+    function NoOp: Boolean; virtual;
+
+    {:Change currect working directory to Directory on FTP server.}
+    function ChangeWorkingDir(const Directory: string): Boolean; virtual;
+
+    {:walk to upper directory on FTP server.}
+    function ChangeToParentDir: Boolean; virtual;
+
+    {:walk to root directory on FTP server. (May not work with all servers properly!)}
+    function ChangeToRootDir: Boolean; virtual;
+
+    {:Delete Directory on FTP server.}
+    function DeleteDir(const Directory: string): Boolean; virtual;
+
+    {:Create Directory on FTP server.}
+    function CreateDir(const Directory: string): Boolean; virtual;
+
+    {:Return current working directory on FTP server.}
+    function GetCurrentDir: String; virtual;
+
+    {:Establish data channel to FTP server and retrieve data.
+     This function you need only in special cases, i.e. when you need to implement
+     some special unsupported FTP command!}
+    function DataRead(const DestStream: TStream): Boolean; virtual;
+
+    {:Establish data channel to FTP server and send data.
+     This function you need only in special cases, i.e. when you need to implement
+     some special unsupported FTP command.}
+    function DataWrite(const SourceStream: TStream): Boolean; virtual;
+  published
+    {:After FTP command contains result number of this operation.}
+    property ResultCode: Integer read FResultCode;
+
+    {:After FTP command contains main line of result.}
+    property ResultString: string read FResultString;
+
+    {:After any FTP command it contains all lines of FTP server reply.}
+    property FullResult: TStringList read FFullResult;
+
+    {:Account information used in some cases inside login sequence.}
+    property Account: string read FAccount Write FAccount;
+
+    {:Address of firewall. If empty string (default), firewall not used.}
+    property FWHost: string read FFWHost Write FFWHost;
+
+    {:port of firewall. standard value is same port as ftp server used. (21)}
+    property FWPort: string read FFWPort Write FFWPort;
+
+    {:Username for login to firewall. (if needed)}
+    property FWUsername: string read FFWUsername Write FFWUsername;
+
+    {:password for login to firewall. (if needed)}
+    property FWPassword: string read FFWPassword Write FFWPassword;
+
+    {:Type of Firewall. Used only if you set some firewall address. Supported
+     predefined firewall login sequences are described by comments in source
+     file where you can see pseudocode decribing each sequence.}
+    property FWMode: integer read FFWMode Write FFWMode;
+
+    {:Socket object used for TCP/IP operation on control channel. Good for
+     seting OnStatus hook, etc.}
+    property Sock: TTCPBlockSocket read FSock;
+
+    {:Socket object used for TCP/IP operation on data channel. Good for seting
+     OnStatus hook, etc.}
+    property DSock: TTCPBlockSocket read FDSock;
+
+    {:If you not use @link(DirectFile) mode, all data transfers is made to or
+     from this stream.}
+    property DataStream: TMemoryStream read FDataStream;
+
+    {:After data connection is established, contains remote side IP of this
+     connection.}
+    property DataIP: string read FDataIP;
+
+    {:After data connection is established, contains remote side port of this
+     connection.}
+    property DataPort: string read FDataPort;
+
+    {:Mode of data handling by data connection. If @False, all data operations
+     are made to or from @link(DataStream) TMemoryStream.
+     If @true, data operations is made directly to file in your disk. (filename
+     is specified by @link(DirectFileName) property.) Dafault is @False!}
+    property DirectFile: Boolean read FDirectFile Write FDirectFile;
+
+    {:Filename for direct disk data operations.}
+    property DirectFileName: string read FDirectFileName Write FDirectFileName;
+
+    {:Indicate after @link(Login) if remote server support resume downloads and
+     uploads.}
+    property CanResume: Boolean read FCanResume;
+
+    {:If true (default value), all transfers is made by passive method.
+     It is safer method for various firewalls.}
+    property PassiveMode: Boolean read FPassiveMode Write FPassiveMode;
+
+    {:Force to listen for dataconnection on standard port (20). Default is @false,
+     dataconnections will be made to any non-standard port reported by PORT FTP
+     command. This setting is not used, if you use passive mode.}
+    property ForceDefaultPort: Boolean read FForceDefaultPort Write FForceDefaultPort;
+
+    {:When is @true, then is disabled EPSV and EPRT support. However without this
+     commands you cannot use IPv6! (Disabling of this commands is needed only
+     when you are behind some crap firewall/NAT.}
+    property ForceOldPort: Boolean read FForceOldPort Write FForceOldPort;
+
+    {:You may set this hook for monitoring FTP commands and replies.}
+    property OnStatus: TFTPStatus read FOnStatus write FOnStatus;
+
+    {:After LIST command is here parsed list of files in given directory.}
+    property FtpList: TFTPList read FFtpList;
+
+    {:if @true (default), then data transfers is in binary mode. If this is set
+     to @false, then ASCII mode is used.}
+    property BinaryMode: Boolean read FBinaryMode Write FBinaryMode;
+
+    {:if is true, then if server support upgrade to SSL/TLS mode, then use them.}
+    property AutoTLS: Boolean read FAutoTLS Write FAutoTLS;
+
+    {:if server listen on SSL/TLS port, then you set this to true.}
+    property FullSSL: Boolean read FFullSSL Write FFullSSL;
+
+    {:Signalise, if control channel is in SSL/TLS mode.}
+    property IsTLS: Boolean read FIsTLS;
+
+    {:Signalise, if data transfers is in SSL/TLS mode.}
+    property IsDataTLS: Boolean read FIsDataTLS;
+
+    {:If @true (default), then try to use SSL/TLS on data transfers too.
+     If @false, then SSL/TLS is used only for control connection.}
+    property TLSonData: Boolean read FTLSonData write FTLSonData;
+  end;
+
+{:A very useful function, and example of use can be found in the TFtpSend object.
+ Dowload specified file from FTP server to LocalFile.}
+function FtpGetFile(const IP, Port, FileName, LocalFile,
+  User, Pass: string): Boolean;
+
+{:A very useful function, and example of use can be found in the TFtpSend object.
+ Upload specified LocalFile to FTP server.}
+function FtpPutFile(const IP, Port, FileName, LocalFile,
+  User, Pass: string): Boolean;
+
+{:A very useful function, and example of use can be found in the TFtpSend object.
+ Initiate transfer of file between two FTP servers.}
+function FtpInterServerTransfer(
+  const FromIP, FromPort, FromFile, FromUser, FromPass: string;
+  const ToIP, ToPort, ToFile, ToUser, ToPass: string): Boolean;
+
+implementation
+
+constructor TFTPSend.Create;
+begin
+  inherited Create;
+  FFullResult := TStringList.Create;
+  FDataStream := TMemoryStream.Create;
+  FSock := TTCPBlockSocket.Create;
+  FSock.ConvertLineEnd := True;
+  FDSock := TTCPBlockSocket.Create;
+  FFtpList := TFTPList.Create;
+  FTimeout := 300000;
+  FTargetPort := cFtpProtocol;
+  FUsername := 'anonymous';
+  FPassword := 'anonymous@' + FSock.LocalName;
+  FDirectFile := False;
+  FPassiveMode := True;
+  FForceDefaultPort := False;
+  FForceOldPort := false;
+  FAccount := '';
+  FFWHost := '';
+  FFWPort := cFtpProtocol;
+  FFWUsername := '';
+  FFWPassword := '';
+  FFWMode := 0;
+  FBinaryMode := True;
+  FAutoTLS := False;
+  FFullSSL := False;
+  FIsTLS := False;
+  FIsDataTLS := False;
+  FTLSonData := True;
+end;
+
+destructor TFTPSend.Destroy;
+begin
+  FDSock.Free;
+  FSock.Free;
+  FFTPList.Free;
+  FDataStream.Free;
+  FFullResult.Free;
+  inherited Destroy;
+end;
+
+procedure TFTPSend.DoStatus(Response: Boolean; const Value: string);
+begin
+  if assigned(OnStatus) then
+    OnStatus(Self, Response, Value);
+end;
+
+function TFTPSend.ReadResult: Integer;
+var
+  s, c: string;
+begin
+  FFullResult.Clear;
+  c := '';
+  repeat
+    s := FSock.RecvString(FTimeout);
+    if c = '' then
+      if length(s) > 3 then
+        if s[4] in [' ', '-'] then
+          c :=Copy(s, 1, 3);
+    FResultString := s;
+    FFullResult.Add(s);
+    DoStatus(True, s);
+    if FSock.LastError <> 0 then
+      Break;
+  until (c <> '') and (Pos(c + ' ', s) = 1);
+  Result := StrToIntDef(c, 0);
+  FResultCode := Result;
+end;
+
+function TFTPSend.FTPCommand(const Value: string): integer;
+begin
+  FSock.Purge;
+  FSock.SendString(Value + CRLF);
+  DoStatus(False, Value);
+  Result := ReadResult;
+end;
+
+// based on idea by Petr Esner <petr.esner@atlas.cz>
+function TFTPSend.Auth(Mode: integer): Boolean;
+const
+  //if not USER <username> then
+  //  if not PASS <password> then
+  //    if not ACCT <account> then ERROR!
+  //OK!
+  Action0: TLogonActions =
+    (0, FTP_OK, 3,
+     1, FTP_OK, 6,
+     2, FTP_OK, FTP_ERR,
+     0, 0, 0, 0, 0, 0, 0, 0, 0);
+
+  //if not USER <FWusername> then
+  //  if not PASS <FWPassword> then ERROR!
+  //if SITE <FTPServer> then ERROR!
+  //if not USER <username> then
+  //  if not PASS <password> then
+  //    if not ACCT <account> then ERROR!
+  //OK!
+  Action1: TLogonActions =
+    (3, 6, 3,
+     4, 6, FTP_ERR,
+     5, FTP_ERR, 9,
+     0, FTP_OK, 12,
+     1, FTP_OK, 15,
+     2, FTP_OK, FTP_ERR);
+
+  //if not USER <FWusername> then
+  //  if not PASS <FWPassword> then ERROR!
+  //if USER <UserName>'@'<FTPServer> then OK!
+  //if not PASS <password> then
+  //  if not ACCT <account> then ERROR!
+  //OK!
+  Action2: TLogonActions =
+    (3, 6, 3,
+     4, 6, FTP_ERR,
+     6, FTP_OK, 9,
+     1, FTP_OK, 12,
+     2, FTP_OK, FTP_ERR,
+     0, 0, 0);
+
+  //if not USER <FWusername> then
+  //  if not PASS <FWPassword> then ERROR!
+  //if not USER <username> then
+  //  if not PASS <password> then
+  //    if not ACCT <account> then ERROR!
+  //OK!
+  Action3: TLogonActions =
+    (3, 6, 3,
+     4, 6, FTP_ERR,
+     0, FTP_OK, 9,
+     1, FTP_OK, 12,
+     2, FTP_OK, FTP_ERR,
+     0, 0, 0);
+
+  //OPEN <FTPserver>
+  //if not USER <username> then
+  //  if not PASS <password> then
+  //    if not ACCT <account> then ERROR!
+  //OK!
+  Action4: TLogonActions =
+    (7, 3, 3,
+     0, FTP_OK, 6,
+     1, FTP_OK, 9,
+     2, FTP_OK, FTP_ERR,
+     0, 0, 0, 0, 0, 0);
+
+  //if USER <UserName>'@'<FTPServer> then OK!
+  //if not PASS <password> then
+  //  if not ACCT <account> then ERROR!
+  //OK!
+  Action5: TLogonActions =
+    (6, FTP_OK, 3,
+     1, FTP_OK, 6,
+     2, FTP_OK, FTP_ERR,
+     0, 0, 0, 0, 0, 0, 0, 0, 0);
+
+  //if not USER <FWUserName>@<FTPServer> then
+  //  if not PASS <FWPassword> then ERROR!
+  //if not USER <username> then
+  //  if not PASS <password> then
+  //    if not ACCT <account> then ERROR!
+  //OK!
+  Action6: TLogonActions =
+    (8, 6, 3,
+     4, 6, FTP_ERR,
+     0, FTP_OK, 9,
+     1, FTP_OK, 12,
+     2, FTP_OK, FTP_ERR,
+     0, 0, 0);
+
+  //if USER <UserName>@<FTPServer> <FWUserName> then ERROR!
+  //if not PASS <password> then
+  //  if not ACCT <account> then ERROR!
+  //OK!
+  Action7: TLogonActions =
+    (9, FTP_ERR, 3,
+     1, FTP_OK, 6,
+     2, FTP_OK, FTP_ERR,
+     0, 0, 0, 0, 0, 0, 0, 0, 0);
+
+  //if not USER <UserName>@<FWUserName>@<FTPServer> then
+  //  if not PASS <Password>@<FWPassword> then
+  //    if not ACCT <account> then ERROR!
+  //OK!
+  Action8: TLogonActions =
+    (10, FTP_OK, 3,
+     11, FTP_OK, 6,
+     2, FTP_OK, FTP_ERR,
+     0, 0, 0, 0, 0, 0, 0, 0, 0);
+var
+  FTPServer: string;
+  LogonActions: TLogonActions;
+  i: integer;
+  s: string;
+  x: integer;
+begin
+  Result := False;
+  if FFWHost = '' then
+    Mode := 0;
+  if (FTargetPort = cFtpProtocol) or (FTargetPort = '21') then
+    FTPServer := FTargetHost
+  else
+    FTPServer := FTargetHost + ':' + FTargetPort;
+  case Mode of
+    -1:
+      LogonActions := CustomLogon;
+    1:
+      LogonActions := Action1;
+    2:
+      LogonActions := Action2;
+    3:
+      LogonActions := Action3;
+    4:
+      LogonActions := Action4;
+    5:
+      LogonActions := Action5;
+    6:
+      LogonActions := Action6;
+    7:
+      LogonActions := Action7;
+    8:
+      LogonActions := Action8;
+  else
+    LogonActions := Action0;
+  end;
+  i := 0;
+  repeat
+    case LogonActions[i] of
+      0:  s := 'USER ' + FUserName;
+      1:  s := 'PASS ' + FPassword;
+      2:  s := 'ACCT ' + FAccount;
+      3:  s := 'USER ' + FFWUserName;
+      4:  s := 'PASS ' + FFWPassword;
+      5:  s := 'SITE ' + FTPServer;
+      6:  s := 'USER ' + FUserName + '@' + FTPServer;
+      7:  s := 'OPEN ' + FTPServer;
+      8:  s := 'USER ' + FFWUserName + '@' + FTPServer;
+      9:  s := 'USER ' + FUserName + '@' + FTPServer + ' ' + FFWUserName;
+      10: s := 'USER ' + FUserName + '@' + FFWUserName + '@' + FTPServer;
+      11: s := 'PASS ' + FPassword + '@' + FFWPassword;
+    end;
+    x := FTPCommand(s);
+    x := x div 100;
+    if (x <> 2) and (x <> 3) then
+      Exit;
+    i := LogonActions[i + x - 1];
+    case i of
+      FTP_ERR:
+        Exit;
+      FTP_OK:
+        begin
+          Result := True;
+          Exit;
+        end;
+    end;
+  until False;
+end;
+
+
+function TFTPSend.Connect: Boolean;
+begin
+  FSock.CloseSocket;
+  FSock.Bind(FIPInterface, cAnyPort);
+  if FSock.LastError = 0 then
+    if FFWHost = '' then
+      FSock.Connect(FTargetHost, FTargetPort)
+    else
+      FSock.Connect(FFWHost, FFWPort);
+  if FSock.LastError = 0 then
+    if FFullSSL then
+      FSock.SSLDoConnect;
+  Result := FSock.LastError = 0;
+end;
+
+function TFTPSend.Login: Boolean;
+var
+  x: integer;
+begin
+  Result := False;
+  FCanResume := False;
+  if not Connect then
+    Exit;
+  FIsTLS := FFullSSL;
+  FIsDataTLS := False;
+  repeat
+    x := ReadResult div 100;
+  until x <> 1;
+  if x <> 2 then
+    Exit;
+  if FAutoTLS and not(FIsTLS) then
+    if (FTPCommand('AUTH TLS') div 100) = 2 then
+    begin
+      FSock.SSLDoConnect;
+      FIsTLS := FSock.LastError = 0;
+      if not FIsTLS then
+      begin
+        Result := False;
+        Exit;
+      end;
+    end;
+  if not Auth(FFWMode) then
+    Exit;
+  if FIsTLS then
+  begin
+    FTPCommand('PBSZ 0');
+    if FTLSonData then
+      FIsDataTLS := (FTPCommand('PROT P') div 100) = 2;
+    if not FIsDataTLS then
+      FTPCommand('PROT C');
+  end;
+  FTPCommand('TYPE I');
+  FTPCommand('STRU F');
+  FTPCommand('MODE S');
+  if FTPCommand('REST 0') = 350 then
+    if FTPCommand('REST 1') = 350 then
+    begin
+      FTPCommand('REST 0');
+      FCanResume := True;
+    end;
+  Result := True;
+end;
+
+function TFTPSend.Logout: Boolean;
+begin
+  Result := (FTPCommand('QUIT') div 100) = 2;
+  FSock.CloseSocket;
+end;
+
+procedure TFTPSend.ParseRemote(Value: string);
+var
+  n: integer;
+  nb, ne: integer;
+  s: string;
+  x: integer;
+begin
+  Value := trim(Value);
+  nb := Pos('(',Value);
+  ne := Pos(')',Value);
+  if (nb = 0) or (ne = 0) then
+  begin
+    nb:=RPos(' ',Value);
+    s:=Copy(Value, nb + 1, Length(Value) - nb);
+  end
+  else
+  begin
+    s:=Copy(Value,nb+1,ne-nb-1);
+  end;
+  for n := 1 to 4 do
+    if n = 1 then
+      FDataIP := Fetch(s, ',')
+    else
+      FDataIP := FDataIP + '.' + Fetch(s, ',');
+  x := StrToIntDef(Fetch(s, ','), 0) * 256;
+  x := x + StrToIntDef(Fetch(s, ','), 0);
+  FDataPort := IntToStr(x);
+end;
+
+procedure TFTPSend.ParseRemoteEPSV(Value: string);
+var
+  n: integer;
+  s, v: string;
+begin
+  s := SeparateRight(Value, '(');
+  s := Trim(SeparateLeft(s, ')'));
+  Delete(s, Length(s), 1);
+  v := '';
+  for n := Length(s) downto 1 do
+    if s[n] in ['0'..'9'] then
+      v := s[n] + v
+    else
+      Break;
+  FDataPort := v;
+  FDataIP := FTargetHost;
+end;
+
+function TFTPSend.DataSocket: boolean;
+var
+  s: string;
+begin
+  Result := False;
+  if FIsDataTLS then
+    FPassiveMode := True;
+  if FPassiveMode then
+  begin
+    if FSock.IP6used then
+      s := '2'
+    else
+      s := '1';
+    if not(FForceOldPort) and ((FTPCommand('EPSV ' + s) div 100) = 2) then
+    begin
+      ParseRemoteEPSV(FResultString);
+    end
+    else
+      if FSock.IP6used then
+        Exit
+      else
+      begin
+        if (FTPCommand('PASV') div 100) <> 2 then
+          Exit;
+        ParseRemote(FResultString);
+      end;
+    FDSock.CloseSocket;
+    FDSock.Bind(FIPInterface, cAnyPort);
+    FDSock.Connect(FDataIP, FDataPort);
+    Result := FDSock.LastError = 0;
+  end
+  else
+  begin
+    FDSock.CloseSocket;
+    if FForceDefaultPort then
+      s := cFtpDataProtocol
+    else
+      s := '0';
+    //data conection from same interface as command connection
+    FDSock.Bind(FSock.GetLocalSinIP, s);
+    if FDSock.LastError <> 0 then
+      Exit;
+    FDSock.SetLinger(True, 10000);
+    FDSock.Listen;
+    FDSock.GetSins;
+    FDataIP := FDSock.GetLocalSinIP;
+    FDataIP := FDSock.ResolveName(FDataIP);
+    FDataPort := IntToStr(FDSock.GetLocalSinPort);
+    if not FForceOldPort then
+    begin
+      if IsIp6(FDataIP) then
+        s := '2'
+      else
+        s := '1';
+      s := 'EPRT |' + s +'|' + FDataIP + '|' + FDataPort + '|';
+      Result := (FTPCommand(s) div 100) = 2;
+    end;
+    if not Result and IsIP(FDataIP) then
+    begin
+      s := ReplaceString(FDataIP, '.', ',');
+      s := 'PORT ' + s + ',' + IntToStr(FDSock.GetLocalSinPort div 256)
+        + ',' + IntToStr(FDSock.GetLocalSinPort mod 256);
+      Result := (FTPCommand(s) div 100) = 2;
+    end;
+  end;
+end;
+
+function TFTPSend.AcceptDataSocket: Boolean;
+var
+  x: TSocket;
+begin
+  if FPassiveMode then
+    Result := True
+  else
+  begin
+    Result := False;
+    if FDSock.CanRead(FTimeout) then
+    begin
+      x := FDSock.Accept;
+      if not FDSock.UsingSocks then
+        FDSock.CloseSocket;
+      FDSock.Socket := x;
+      Result := True;
+    end;
+  end;
+  if Result and FIsDataTLS then
+  begin
+    FDSock.SSL.Assign(FSock.SSL);
+    FDSock.SSLDoConnect;
+    Result := FDSock.LastError = 0;
+  end;
+end;
+
+function TFTPSend.DataRead(const DestStream: TStream): Boolean;
+var
+  x: integer;
+begin
+  Result := False;
+  try
+    if not AcceptDataSocket then
+      Exit;
+    FDSock.RecvStreamRaw(DestStream, FTimeout);
+    FDSock.CloseSocket;
+    x := ReadResult;
+    Result := (x div 100) = 2;
+  finally
+    FDSock.CloseSocket;
+  end;
+end;
+
+function TFTPSend.DataWrite(const SourceStream: TStream): Boolean;
+var
+  x: integer;
+  b: Boolean;
+begin
+  Result := False;
+  try
+    if not AcceptDataSocket then
+      Exit;
+    FDSock.SendStreamRaw(SourceStream);
+    b := FDSock.LastError = 0;
+    FDSock.CloseSocket;
+    x := ReadResult;
+    Result := b and ((x div 100) = 2);
+  finally
+    FDSock.CloseSocket;
+  end;
+end;
+
+function TFTPSend.List(Directory: string; NameList: Boolean): Boolean;
+var
+  x: integer;
+begin
+  Result := False;
+  FDataStream.Clear;
+  FFTPList.Clear;
+  if Directory <> '' then
+    Directory := ' ' + Directory;
+  FTPCommand('TYPE A');
+  if not DataSocket then
+    Exit;
+  if NameList then
+    x := FTPCommand('NLST' + Directory)
+  else
+    x := FTPCommand('LIST' + Directory);
+  if (x div 100) <> 1 then
+    Exit;
+  Result := DataRead(FDataStream);
+  if (not NameList) and Result then
+  begin
+    FDataStream.Position := 0;
+    FFTPList.Lines.LoadFromStream(FDataStream);
+    FFTPList.ParseLines;
+  end;
+  FDataStream.Position := 0;
+end;
+
+function TFTPSend.RetrieveFile(const FileName: string; Restore: Boolean): Boolean;
+var
+  RetrStream: TStream;
+begin
+  Result := False;
+  if FileName = '' then
+    Exit;
+  if not DataSocket then
+    Exit;
+  Restore := Restore and FCanResume;
+  if FDirectFile then
+    if Restore and FileExists(FDirectFileName) then
+      RetrStream := TFileStream.Create(FDirectFileName,
+        fmOpenReadWrite  or fmShareExclusive)
+    else
+      RetrStream := TFileStream.Create(FDirectFileName,
+        fmCreate or fmShareDenyWrite)
+  else
+    RetrStream := FDataStream;
+  try
+    if FBinaryMode then
+      FTPCommand('TYPE I')
+    else
+      FTPCommand('TYPE A');
+    if Restore then
+    begin
+      RetrStream.Position := RetrStream.Size;
+      if (FTPCommand('REST ' + IntToStr(RetrStream.Size)) div 100) <> 3 then
+        Exit;
+    end
+    else
+      if RetrStream is TMemoryStream then
+        TMemoryStream(RetrStream).Clear;
+    if (FTPCommand('RETR ' + FileName) div 100) <> 1 then
+      Exit;
+    Result := DataRead(RetrStream);
+    if not FDirectFile then
+      RetrStream.Position := 0;
+  finally
+    if FDirectFile then
+      RetrStream.Free;
+  end;
+end;
+
+function TFTPSend.InternalStor(const Command: string; RestoreAt: integer): Boolean;
+var
+  SendStream: TStream;
+  StorSize: integer;
+begin
+  Result := False;
+  if FDirectFile then
+    if not FileExists(FDirectFileName) then
+      Exit
+    else
+      SendStream := TFileStream.Create(FDirectFileName,
+        fmOpenRead or fmShareDenyWrite)
+  else
+    SendStream := FDataStream;
+  try
+    if not DataSocket then
+      Exit;
+    if FBinaryMode then
+      FTPCommand('TYPE I')
+    else
+      FTPCommand('TYPE A');
+    StorSize := SendStream.Size;
+    if not FCanResume then
+      RestoreAt := 0;
+    if (StorSize > 0) and (RestoreAt = StorSize) then
+    begin
+      Result := True;
+      Exit;
+    end;
+    if RestoreAt > StorSize then
+      RestoreAt := 0;
+    FTPCommand('ALLO ' + IntToStr(StorSize - RestoreAt));
+    if FCanResume then
+      if (FTPCommand('REST ' + IntToStr(RestoreAt)) div 100) <> 3 then
+        Exit;
+    SendStream.Position := RestoreAt;
+    if (FTPCommand(Command) div 100) <> 1 then
+      Exit;
+    Result := DataWrite(SendStream);
+  finally
+    if FDirectFile then
+      SendStream.Free;
+  end;
+end;
+
+function TFTPSend.StoreFile(const FileName: string; Restore: Boolean): Boolean;
+var
+  RestoreAt: integer;
+begin
+  Result := False;
+  if FileName = '' then
+    Exit;
+  RestoreAt := 0;
+  Restore := Restore and FCanResume;
+  if Restore then
+  begin
+    RestoreAt := Self.FileSize(FileName);
+    if RestoreAt < 0 then
+      RestoreAt := 0;
+  end;
+  Result := InternalStor('STOR ' + FileName, RestoreAt);
+end;
+
+function TFTPSend.StoreUniqueFile: Boolean;
+begin
+  Result := InternalStor('STOU', 0);
+end;
+
+function TFTPSend.AppendFile(const FileName: string): Boolean;
+begin
+  Result := False;
+  if FileName = '' then
+    Exit;
+  Result := InternalStor('APPE '+FileName, 0);
+end;
+
+function TFTPSend.NoOp: Boolean;
+begin
+  Result := (FTPCommand('NOOP') div 100) = 2;
+end;
+
+function TFTPSend.RenameFile(const OldName, NewName: string): Boolean;
+begin
+  Result := False;
+  if (FTPCommand('RNFR ' + OldName) div 100) <> 3  then
+    Exit;
+  Result := (FTPCommand('RNTO ' + NewName) div 100) = 2;
+end;
+
+function TFTPSend.DeleteFile(const FileName: string): Boolean;
+begin
+  Result := (FTPCommand('DELE ' + FileName) div 100) = 2;
+end;
+
+function TFTPSend.FileSize(const FileName: string): integer;
+var
+  s: string;
+begin
+  Result := -1;
+  if (FTPCommand('SIZE ' + FileName) div 100) = 2 then
+  begin
+    s := Trim(SeparateRight(ResultString, ' '));
+    s := Trim(SeparateLeft(s, ' '));
+    Result := StrToIntDef(s, -1);
+  end;
+end;
+
+function TFTPSend.ChangeWorkingDir(const Directory: string): Boolean;
+begin
+  Result := (FTPCommand('CWD ' + Directory) div 100) = 2;
+end;
+
+function TFTPSend.ChangeToParentDir: Boolean;
+begin
+  Result := (FTPCommand('CDUP') div 100) = 2;
+end;
+
+function TFTPSend.ChangeToRootDir: Boolean;
+begin
+  Result := ChangeWorkingDir('/');
+end;
+
+function TFTPSend.DeleteDir(const Directory: string): Boolean;
+begin
+  Result := (FTPCommand('RMD ' + Directory) div 100) = 2;
+end;
+
+function TFTPSend.CreateDir(const Directory: string): Boolean;
+begin
+  Result := (FTPCommand('MKD ' + Directory) div 100) = 2;
+end;
+
+function TFTPSend.GetCurrentDir: String;
+begin
+  Result := '';
+  if (FTPCommand('PWD') div 100) = 2 then
+  begin
+    Result := SeparateRight(FResultString, '"');
+    Result := Trim(Separateleft(Result, '"'));
+  end;
+end;
+
+procedure TFTPSend.Abort;
+begin
+  FSock.SendString('ABOR' + CRLF);
+  FDSock.StopFlag := True;
+end;
+
+procedure TFTPSend.TelnetAbort;
+begin
+  FSock.SendString(#$FF + #$F4 + #$FF + #$F2);
+  Abort;
+end;
+
+{==============================================================================}
+
+procedure TFTPListRec.Assign(Value: TFTPListRec);
+begin
+  FFileName := Value.FileName;
+  FDirectory := Value.Directory;
+  FReadable := Value.Readable;
+  FFileSize := Value.FileSize;
+  FFileTime := Value.FileTime;
+  FOriginalLine := Value.OriginalLine;
+  FMask := Value.Mask;
+end;
+
+constructor TFTPList.Create;
+begin
+  inherited Create;
+  FList := TList.Create;
+  FLines := TStringList.Create;
+  FMasks := TStringList.Create;
+  FUnparsedLines := TStringList.Create;
+  //various UNIX
+  FMasks.add('pppppppppp $!!!S*$TTT$DD$hh mm ss$YYYY$n*');
+  FMasks.add('pppppppppp $!!!S*$DD$TTT$hh mm ss$YYYY$n*');
+  FMasks.add('pppppppppp $!!!S*$TTT$DD$UUUUU$n*');  //mostly used UNIX format
+  FMasks.add('pppppppppp $!!!S*$DD$TTT$UUUUU$n*');
+  //MacOS
+  FMasks.add('pppppppppp $!!S*$TTT$DD$UUUUU$n*');
+  FMasks.add('pppppppppp $!S*$TTT$DD$UUUUU$n*');
+  //Novell
+  FMasks.add('d            $!S*$TTT$DD$UUUUU$n*');
+  //Windows
+  FMasks.add('MM DD YY  hh mmH !S* n*');
+  FMasks.add('MM DD YY  hh mmH $ d!n*');
+  FMasks.add('MM DD YYYY  hh mmH !S* n*');
+  FMasks.add('MM DD YYYY  hh mmH $ d!n*');
+  FMasks.add('DD MM YYYY  hh mmH !S* n*');
+  FMasks.add('DD MM YYYY  hh mmH $ d!n*');
+  //VMS
+  FMasks.add('v*$  DD TTT YYYY hh mm');
+  FMasks.add('v*$!DD TTT YYYY hh mm');
+  FMasks.add('n*$                 YYYY MM DD hh mm$S*');
+  //AS400
+  FMasks.add('!S*$MM DD YY hh mm ss !n*');
+  FMasks.add('!S*$DD MM YY hh mm ss !n*');
+  FMasks.add('n*!S*$MM DD YY hh mm ss d');
+  FMasks.add('n*!S*$DD MM YY hh mm ss d');
+  //VxWorks
+  FMasks.add('$S*    TTT DD YYYY  hh mm ss $n* $ d');
+  FMasks.add('$S*    TTT DD YYYY  hh mm ss $n*');
+  //Distinct
+  FMasks.add('d    $S*$TTT DD YYYY  hh mm$n*');
+  FMasks.add('d    $S*$TTT DD$hh mm$n*');
+  //PC-NFSD
+  FMasks.add('nnnnnnnn.nnn  dSSSSSSSSSSS MM DD YY  hh mmH');
+  //VOS
+  FMasks.add('-   SSSSS            YY MM DD hh mm ss  n*');
+  FMasks.add('- d=  SSSSS  YY MM DD hh mm ss  n*');
+  //Unissys ClearPath
+  FMasks.add('nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn               SSSSSSSSS MM DD YYYY hh mm');
+  FMasks.add('n*\x                                               SSSSSSSSS MM DD YYYY hh mm');
+  //IBM
+  FMasks.add('-     SSSSSSSSSSSS           d   MM DD YYYY   hh mm  n*');
+  //OS9
+  FMasks.add('-         YY MM DD hhmm d                        SSSSSSSSS n*');
+  //tandem
+  FMasks.add('nnnnnnnn                   SSSSSSS DD TTT YY hh mm ss');
+  //MVS
+  FMasks.add('-             YYYY MM DD                     SSSSS   d=O n*');
+  //BullGCOS8
+  FMasks.add('             $S* MM DD YY hh mm ss  !n*');
+  FMasks.add('d            $S* MM DD YY           !n*');
+  //BullGCOS7
+  FMasks.add('                                         TTT DD  YYYY n*');
+  FMasks.add('  d                                                   n*');
+end;
+
+destructor TFTPList.Destroy;
+begin
+  Clear;
+  FList.Free;
+  FLines.Free;
+  FMasks.Free;
+  FUnparsedLines.Free;
+  inherited Destroy;
+end;
+
+procedure TFTPList.Clear;
+var
+  n:integer;
+begin
+  for n := 0 to FList.Count - 1 do
+    if Assigned(FList[n]) then
+      TFTPListRec(FList[n]).Free;
+  FList.Clear;
+  FLines.Clear;
+  FUnparsedLines.Clear;
+end;
+
+function TFTPList.Count: integer;
+begin
+  Result := FList.Count;
+end;
+
+function TFTPList.GetListItem(Index: integer): TFTPListRec;
+begin
+  Result := nil;
+  if Index < Count then
+    Result := TFTPListRec(FList[Index]);
+end;
+
+procedure TFTPList.Assign(Value: TFTPList);
+var
+  flr: TFTPListRec;
+  n: integer;
+begin
+  Clear;
+  for n := 0 to Value.Count - 1 do
+  begin
+    flr := TFTPListRec.Create;
+    flr.Assign(Value[n]);
+    Flist.Add(flr);
+  end;
+  Lines.Assign(Value.Lines);
+  Masks.Assign(Value.Masks);
+  UnparsedLines.Assign(Value.UnparsedLines);
+end;
+
+procedure TFTPList.ClearStore;
+begin
+  Monthnames := '';
+  BlockSize := '';
+  DirFlagValue := '';
+  FileName := '';
+  VMSFileName := '';
+  Day := '';
+  Month := '';
+  ThreeMonth := '';
+  YearTime := '';
+  Year := '';
+  Hours := '';
+  HoursModif := '';
+  Minutes := '';
+  Seconds := '';
+  Size := '';
+  Permissions := '';
+  DirFlag := '';
+end;
+
+function TFTPList.ParseByMask(Value, NextValue, Mask: string): Integer;
+var
+  Ivalue, IMask: integer;
+  MaskC, LastMaskC: Char;
+  c: char;
+  s: string;
+begin
+  ClearStore;
+  Result := 0;
+  if Value = '' then
+    Exit;
+  if Mask = '' then
+    Exit;
+  Ivalue := 1;
+  IMask := 1;
+  Result := 1;
+  LastMaskC := ' ';
+  while Imask <= Length(mask) do
+  begin
+    if (Mask[Imask] <> '*') and (Ivalue > Length(Value)) then
+    begin
+      Result := 0;
+      Exit;
+    end;
+    MaskC := Mask[Imask];
+    if Ivalue > Length(Value) then
+      Exit;
+    c := Value[Ivalue];
+    case MaskC of
+      'n':
+        FileName := FileName + c;
+      'v':
+        VMSFileName := VMSFileName + c;
+      '.':
+        begin
+          if c in ['.', ' '] then
+            FileName := TrimSP(FileName) + '.'
+          else
+          begin
+            Result := 0;
+            Exit;
+          end;
+        end;
+      'D':
+        Day := Day + c;
+      'M':
+        Month := Month + c;
+      'T':
+        ThreeMonth := ThreeMonth + c;
+      'U':
+        YearTime := YearTime + c;
+      'Y':
+        Year := Year + c;
+      'h':
+        Hours := Hours + c;
+      'H':
+        HoursModif := HoursModif + c;
+      'm':
+        Minutes := Minutes + c;
+      's':
+        Seconds := Seconds + c;
+      'S':
+        Size := Size + c;
+      'p':
+        Permissions := Permissions + c;
+      'd':
+        DirFlag := DirFlag + c;
+      'x':
+        if c <> ' ' then
+          begin
+            Result := 0;
+            Exit;
+          end;
+      '*':
+        begin
+          s := '';
+          if LastMaskC in ['n', 'v'] then
+          begin
+            if Imask = Length(Mask) then
+              s := Copy(Value, IValue, Maxint)
+            else
+              while IValue <= Length(Value) do
+              begin
+                if Value[Ivalue] = ' ' then
+                  break;
+                s := s + Value[Ivalue];
+                Inc(Ivalue);
+              end;
+            if LastMaskC = 'n' then
+              FileName := FileName + s
+            else
+              VMSFileName := VMSFileName + s;
+          end
+          else
+          begin
+            while IValue <= Length(Value) do
+            begin
+              if not(Value[Ivalue] in ['0'..'9']) then
+                break;
+              s := s + Value[Ivalue];
+              Inc(Ivalue);
+            end;
+            case LastMaskC of
+              'S':
+                Size := Size + s;
+            end;
+          end;
+          Dec(IValue);
+        end;
+      '!':
+        begin
+          while IValue <= Length(Value) do
+          begin
+            if Value[Ivalue] = ' ' then
+              break;
+            Inc(Ivalue);
+          end;
+          while IValue <= Length(Value) do
+          begin
+            if Value[Ivalue] <> ' ' then
+              break;
+            Inc(Ivalue);
+          end;
+          Dec(IValue);
+        end;
+      '$':
+        begin
+          while IValue <= Length(Value) do
+          begin
+            if not(Value[Ivalue] in [' ', #9]) then
+              break;
+            Inc(Ivalue);
+          end;
+          Dec(IValue);
+        end;
+      '=':
+        begin
+          s := '';
+          case LastmaskC of
+            'S':
+              begin
+                while Imask <= Length(Mask) do
+                begin
+                  if not(Mask[Imask] in ['0'..'9']) then
+                    break;
+                  s := s + Mask[Imask];
+                  Inc(Imask);
+                end;
+                Dec(Imask);
+                BlockSize := s;
+              end;
+            'T':
+              begin
+                Monthnames := Copy(Mask, IMask, 12 * 3);
+                Inc(IMask, 12 * 3);
+              end;
+            'd':
+              begin
+                Inc(Imask);
+                DirFlagValue := Mask[Imask];
+              end;
+          end;
+        end;
+      '\':
+        begin
+          Value := NextValue;
+          IValue := 0;
+          Result := 2;
+        end;
+    end;
+    Inc(Ivalue);
+    Inc(Imask);
+    LastMaskC := MaskC;
+  end;
+end;
+
+function TFTPList.CheckValues: Boolean;
+var
+  x, n: integer;
+begin
+  Result := false;
+  if FileName <> '' then
+  begin
+    if pos('?', VMSFilename) > 0 then
+      Exit;
+    if pos('*', VMSFilename) > 0 then
+      Exit;
+  end;
+  if VMSFileName <> '' then
+    if pos(';', VMSFilename) <= 0 then
+      Exit;
+  if (FileName = '') and (VMSFileName = '') then
+    Exit;
+  if Permissions <> '' then
+  begin
+    if length(Permissions) <> 10 then
+      Exit;
+    for n := 1 to 10 do
+      if not(Permissions[n] in
+        ['a', 'b', 'c', 'd', 'h', 'l', 'p', 'r', 's', 't', 'w', 'x', 'y', '-']) then
+        Exit;
+  end;
+  if Day <> '' then
+  begin
+    Day := TrimSP(Day);
+    x := StrToIntDef(day, -1);
+    if (x < 1) or (x > 31) then
+      Exit;
+  end;
+  if Month <> '' then
+  begin
+    Month := TrimSP(Month);
+    x := StrToIntDef(Month, -1);
+    if (x < 1) or (x > 12) then
+      Exit;
+  end;
+  if Hours <> '' then
+  begin
+    Hours := TrimSP(Hours);
+    x := StrToIntDef(Hours, -1);
+    if (x < 0) or (x > 24) then
+      Exit;
+  end;
+  if HoursModif <> '' then
+  begin
+    if not (HoursModif[1] in ['a', 'A', 'p', 'P']) then
+      Exit;
+  end;
+  if Minutes <> '' then
+  begin
+    Minutes := TrimSP(Minutes);
+    x := StrToIntDef(Minutes, -1);
+    if (x < 0) or (x > 59) then
+      Exit;
+  end;
+  if Seconds <> '' then
+  begin
+    Seconds := TrimSP(Seconds);
+    x := StrToIntDef(Seconds, -1);
+    if (x < 0) or (x > 59) then
+      Exit;
+  end;
+  if Size <> '' then
+  begin
+    Size := TrimSP(Size);
+    for n := 1 to Length(Size) do
+      if not (Size[n] in ['0'..'9']) then
+        Exit;
+  end;
+
+  if length(Monthnames) = (12 * 3) then
+    for n := 1 to 12 do
+      CustomMonthNames[n] := Copy(Monthnames, ((n - 1) * 3) + 1, 3);
+  if ThreeMonth <> '' then
+  begin
+    x := GetMonthNumber(ThreeMonth);
+    if (x = 0) then
+      Exit;
+  end;
+  if YearTime <> '' then
+  begin
+    YearTime := ReplaceString(YearTime, '-', ':');
+    if pos(':', YearTime) > 0 then
+    begin
+      if (GetTimeFromstr(YearTime) = -1) then
+        Exit;
+    end
+    else
+    begin
+      YearTime := TrimSP(YearTime);
+      x := StrToIntDef(YearTime, -1);
+      if (x = -1) then
+        Exit;
+      if (x < 1900) or (x > 2100) then
+        Exit;
+    end;
+  end;
+  if Year <> '' then
+  begin
+    Year := TrimSP(Year);
+    x := StrToIntDef(Year, -1);
+    if (x = -1) then
+      Exit;
+    if Length(Year) = 4 then
+    begin
+      if not((x > 1900) and (x < 2100)) then
+        Exit;
+    end
+    else
+      if Length(Year) = 2 then
+      begin
+        if not((x >= 0) and (x <= 99)) then
+          Exit;
+      end
+      else
+        if Length(Year) = 3 then
+        begin
+          if not((x >= 100) and (x <= 110)) then
+            Exit;
+        end
+        else
+          Exit;
+  end;
+  Result := True;
+end;
+
+procedure TFTPList.FillRecord(const Value: TFTPListRec);
+var
+  s: string;
+  x: integer;
+  myear: Word;
+  mmonth: Word;
+  mday: Word;
+  mhours, mminutes, mseconds: word;
+  n: integer;
+begin
+  s := DirFlagValue;
+  if s = '' then
+    s := 'D';
+  s := Uppercase(s);
+  Value.Directory :=  s = Uppercase(DirFlag);
+  if FileName <> '' then
+    Value.FileName := SeparateLeft(Filename, ' -> ');
+  if VMSFileName <> '' then
+  begin
+    Value.FileName := VMSFilename;
+    Value.Directory := Pos('.DIR;',VMSFilename) > 0;
+  end;
+  Value.FileName := TrimSPRight(Value.FileName);
+  Value.Readable := not Value.Directory;
+  if BlockSize <> '' then
+    x := StrToIntDef(BlockSize, 1)
+  else
+    x := 1;
+  Value.FileSize := x * StrToIntDef(Size, 0);
+
+  DecodeDate(Date,myear,mmonth,mday);
+  mhours := 0;
+  mminutes := 0;
+  mseconds := 0;
+
+  if Day <> '' then
+    mday := StrToIntDef(day, 1);
+  if Month <> '' then
+    mmonth := StrToIntDef(Month, 1);
+  if length(Monthnames) = (12 * 3) then
+    for n := 1 to 12 do
+      CustomMonthNames[n] := Copy(Monthnames, ((n - 1) * 3) + 1, 3);
+  if ThreeMonth <> '' then
+    mmonth := GetMonthNumber(ThreeMonth);
+  if Year <> '' then
+  begin
+    myear := StrToIntDef(Year, 0);
+    if (myear <= 99) and (myear > 50) then
+      myear := myear + 1900;
+    if myear <= 50 then
+      myear := myear + 2000;
+  end;
+  if YearTime <> '' then
+  begin
+    if pos(':', YearTime) > 0 then
+    begin
+      YearTime := TrimSP(YearTime);
+      mhours := StrToIntDef(Separateleft(YearTime, ':'), 0);
+      mminutes := StrToIntDef(SeparateRight(YearTime, ':'), 0);
+      if (Encodedate(myear, mmonth, mday)
+        + EncodeTime(mHours, mminutes, 0, 0)) > now then
+        Dec(mYear);
+    end
+    else
+      myear := StrToIntDef(YearTime, 0);
+  end;
+  if Minutes <> '' then
+    mminutes := StrToIntDef(Minutes, 0);
+  if Seconds <> '' then
+    mseconds := StrToIntDef(Seconds, 0);
+  if Hours <> '' then
+  begin
+    mHours := StrToIntDef(Hours, 0);
+    if HoursModif <> '' then
+      if Uppercase(HoursModif[1]) = 'P' then
+        if mHours <> 12 then
+          mHours := MHours + 12;
+  end;
+  Value.FileTime := Encodedate(myear, mmonth, mday)
+    + EncodeTime(mHours, mminutes, mseconds, 0);
+  if Permissions <> '' then
+  begin
+    Value.Permission := Permissions;
+    Value.Readable := Uppercase(permissions)[2] = 'R';
+    if Uppercase(permissions)[1] = 'D' then
+    begin
+      Value.Directory := True;
+      Value.Readable := false;
+    end
+    else
+      if Uppercase(permissions)[1] = 'L' then
+        Value.Directory := True;
+  end;
+end;
+
+function TFTPList.ParseEPLF(Value: string): Boolean;
+var
+  s, os: string;
+  flr: TFTPListRec;
+begin
+  Result := False;
+  if Value <> '' then
+    if Value[1] = '+' then
+    begin
+      os := Value;
+      Delete(Value, 1, 1);
+      flr := TFTPListRec.create;
+      flr.FileName := SeparateRight(Value, #9);
+      s := Fetch(Value, ',');
+      while s <> '' do
+      begin
+        if s[1] = #9 then
+          Break;
+        case s[1] of
+          '/':
+            flr.Directory := true;
+          'r':
+            flr.Readable := true;
+          's':
+            flr.FileSize := StrToIntDef(Copy(s, 2, Length(s) - 1), 0);
+          'm':
+            flr.FileTime := (StrToIntDef(Copy(s, 2, Length(s) - 1), 0) / 86400)
+              + 25569;
+        end;
+        s := Fetch(Value, ',');
+      end;
+      if flr.FileName <> '' then
+      if (flr.Directory and ((flr.FileName = '.') or (flr.FileName = '..')))
+        or (flr.FileName = '') then
+        flr.free
+      else
+      begin
+        flr.OriginalLine := os;
+        flr.Mask := 'EPLF';
+        Flist.Add(flr);
+        Result := True;
+      end;
+    end;
+end;
+
+procedure TFTPList.ParseLines;
+var
+  flr: TFTPListRec;
+  n, m: Integer;
+  S: string;
+  x: integer;
+  b: Boolean;
+begin
+  n := 0;
+  while n < Lines.Count do
+  begin
+    if n = Lines.Count - 1 then
+      s := ''
+    else
+      s := Lines[n + 1];
+    b := False;
+    x := 0;
+    if ParseEPLF(Lines[n]) then
+    begin
+      b := True;
+      x := 1;
+    end
+    else
+      for m := 0 to Masks.Count - 1 do
+      begin
+        x := ParseByMask(Lines[n], s, Masks[m]);
+        if x > 0 then
+          if CheckValues then
+          begin
+            flr := TFTPListRec.create;
+            FillRecord(flr);
+            flr.OriginalLine := Lines[n];
+            flr.Mask := Masks[m];
+            if flr.Directory and ((flr.FileName = '.') or (flr.FileName = '..')) then
+              flr.free
+            else
+              Flist.Add(flr);
+            b := True;
+            Break;
+          end;
+      end;
+    if not b then
+      FUnparsedLines.Add(Lines[n]);
+    Inc(n);
+    if x > 1 then
+      Inc(n, x - 1);
+  end;
+end;
+
+{==============================================================================}
+
+function FtpGetFile(const IP, Port, FileName, LocalFile,
+  User, Pass: string): Boolean;
+begin
+  Result := False;
+  with TFTPSend.Create do
+  try
+    if User <> '' then
+    begin
+      Username := User;
+      Password := Pass;
+    end;
+    TargetHost := IP;
+    TargetPort := Port;
+    if not Login then
+      Exit;
+    DirectFileName := LocalFile;
+    DirectFile:=True;
+    Result := RetrieveFile(FileName, False);
+    Logout;
+  finally
+    Free;
+  end;
+end;
+
+function FtpPutFile(const IP, Port, FileName, LocalFile,
+  User, Pass: string): Boolean;
+begin
+  Result := False;
+  with TFTPSend.Create do
+  try
+    if User <> '' then
+    begin
+      Username := User;
+      Password := Pass;
+    end;
+    TargetHost := IP;
+    TargetPort := Port;
+    if not Login then
+      Exit;
+    DirectFileName := LocalFile;
+    DirectFile:=True;
+    Result := StoreFile(FileName, False);
+    Logout;
+  finally
+    Free;
+  end;
+end;
+
+function FtpInterServerTransfer(
+  const FromIP, FromPort, FromFile, FromUser, FromPass: string;
+  const ToIP, ToPort, ToFile, ToUser, ToPass: string): Boolean;
+var
+  FromFTP, ToFTP: TFTPSend;
+  s: string;
+  x: integer;
+begin
+  Result := False;
+  FromFTP := TFTPSend.Create;
+  toFTP := TFTPSend.Create;
+  try
+    if FromUser <> '' then
+    begin
+      FromFTP.Username := FromUser;
+      FromFTP.Password := FromPass;
+    end;
+    if ToUser <> '' then
+    begin
+      ToFTP.Username := ToUser;
+      ToFTP.Password := ToPass;
+    end;
+    FromFTP.TargetHost := FromIP;
+    FromFTP.TargetPort := FromPort;
+    ToFTP.TargetHost := ToIP;
+    ToFTP.TargetPort := ToPort;
+    if not FromFTP.Login then
+      Exit;
+    if not ToFTP.Login then
+      Exit;
+    if (FromFTP.FTPCommand('PASV') div 100) <> 2 then
+      Exit;
+    FromFTP.ParseRemote(FromFTP.ResultString);
+    s := ReplaceString(FromFTP.DataIP, '.', ',');
+    s := 'PORT ' + s + ',' + IntToStr(StrToIntDef(FromFTP.DataPort, 0) div 256)
+      + ',' + IntToStr(StrToIntDef(FromFTP.DataPort, 0) mod 256);
+    if (ToFTP.FTPCommand(s) div 100) <> 2 then
+      Exit;
+    x := ToFTP.FTPCommand('RETR ' + FromFile);
+    if (x div 100) <> 1 then
+      Exit;
+    x := FromFTP.FTPCommand('STOR ' + ToFile);
+    if (x div 100) <> 1 then
+      Exit;
+    FromFTP.Timeout := 21600000;
+    x := FromFTP.ReadResult;
+    if (x  div 100) <> 2 then
+      Exit;
+    ToFTP.Timeout := 21600000;
+    x := ToFTP.ReadResult;
+    if (x div 100) <> 2 then
+      Exit;
+    Result := True;
+  finally
+    ToFTP.Free;
+    FromFTP.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ftptsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ftptsend.pas
new file mode 100644
index 0000000..9cf7bab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ftptsend.pas	
@@ -0,0 +1,397 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.000 |
+|==============================================================================|
+| Content: Trivial FTP (TFTP) client and server                                |
+|==============================================================================|
+| Copyright (c)1999-2004, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2003-2004.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{: @abstract(TFTP client and server protocol)
+
+Used RFC: RFC-1350
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$H+}
+
+unit ftptsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil;
+
+const
+  cTFTPProtocol = '69';
+
+  cTFTP_RRQ = word(1);
+  cTFTP_WRQ = word(2);
+  cTFTP_DTA = word(3);
+  cTFTP_ACK = word(4);
+  cTFTP_ERR = word(5);
+
+type
+  {:@abstract(Implementation of TFTP client and server)
+   Note: Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TTFTPSend = class(TSynaClient)
+  private
+    FSock: TUDPBlockSocket;
+    FErrorCode: integer;
+    FErrorString: string;
+    FData: TMemoryStream;
+    FRequestIP: string;
+    FRequestPort: string;
+    function SendPacket(Cmd: word; Serial: word; const Value: string): Boolean;
+    function RecvPacket(Serial: word; var Value: string): Boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Upload @link(data) as file to TFTP server.}
+    function SendFile(const Filename: string): Boolean;
+
+    {:Download file from TFTP server to @link(data).}
+    function RecvFile(const Filename: string): Boolean;
+
+    {:Acts as TFTP server and wait for client request. When some request
+     incoming within Timeout, result is @true and parametres is filled with
+     information from request. You must handle this request, validate it, and
+     call @link(ReplyError), @link(ReplyRecv) or @link(ReplySend) for send reply
+     to TFTP Client.}
+    function WaitForRequest(var Req: word; var filename: string): Boolean;
+
+    {:send error to TFTP client, when you acts as TFTP server.}
+    procedure ReplyError(Error: word; Description: string);
+
+    {:Accept uploaded file from TFTP client to @link(data), when you acts as
+     TFTP server.}
+    function ReplyRecv: Boolean;
+
+    {:Accept download request file from TFTP client and send content of
+     @link(data), when you acts as TFTP server.}
+    function ReplySend: Boolean;
+  published
+    {:Code of TFTP error.}
+    property ErrorCode: integer read FErrorCode;
+
+    {:Human readable decription of TFTP error. (if is sended by remote side)}
+    property ErrorString: string read FErrorString;
+
+    {:MemoryStream with datas for sending or receiving}
+    property Data: TMemoryStream read FData;
+
+    {:Address of TFTP remote side.}
+    property RequestIP: string read FRequestIP write FRequestIP;
+
+    {:Port of TFTP remote side.}
+    property RequestPort: string read FRequestPort write FRequestPort;
+  end;
+
+implementation
+
+constructor TTFTPSend.Create;
+begin
+  inherited Create;
+  FSock := TUDPBlockSocket.Create;
+  FTargetPort := cTFTPProtocol;
+  FData := TMemoryStream.Create;
+  FErrorCode := 0;
+  FErrorString := '';
+end;
+
+destructor TTFTPSend.Destroy;
+begin
+  FSock.Free;
+  FData.Free;
+  inherited Destroy;
+end;
+
+function TTFTPSend.SendPacket(Cmd: word; Serial: word; const Value: string): Boolean;
+var
+  s, sh: string;
+begin
+  FErrorCode := 0;
+  FErrorString := '';
+  Result := false;
+  if Cmd <> 2 then
+    s := CodeInt(Cmd) + CodeInt(Serial) + Value
+  else
+    s := CodeInt(Cmd) + Value;
+  FSock.SendString(s);
+  s := FSock.RecvPacket(FTimeout);
+  if FSock.LastError = 0 then
+    if length(s) >= 4 then
+    begin
+      sh := CodeInt(4) + CodeInt(Serial);
+      if Pos(sh, s) = 1 then
+        Result := True
+      else
+        if s[1] = #5 then
+        begin
+          FErrorCode := DecodeInt(s, 3);
+          Delete(s, 1, 4);
+          FErrorString := SeparateLeft(s, #0);
+        end;
+    end;
+end;
+
+function TTFTPSend.RecvPacket(Serial: word; var Value: string): Boolean;
+var
+  s: string;
+  ser: word;
+begin
+  FErrorCode := 0;
+  FErrorString := '';
+  Result := False;
+  Value := '';
+  s := FSock.RecvPacket(FTimeout);
+  if FSock.LastError = 0 then
+    if length(s) >= 4 then
+      if DecodeInt(s, 1) = 3 then
+      begin
+        ser := DecodeInt(s, 3);
+        if ser = Serial then
+        begin
+          Delete(s, 1, 4);
+          Value := s;
+          S := CodeInt(4) + CodeInt(ser);
+          FSock.SendString(s);
+          Result := FSock.LastError = 0;
+        end
+        else
+        begin
+          S := CodeInt(5) + CodeInt(5) + 'Unexcepted serial#' + #0;
+          FSock.SendString(s);
+        end;
+      end;
+      if DecodeInt(s, 1) = 5 then
+      begin
+        FErrorCode := DecodeInt(s, 3);
+        Delete(s, 1, 4);
+        FErrorString := SeparateLeft(s, #0);
+      end;
+end;
+
+function TTFTPSend.SendFile(const Filename: string): Boolean;
+var
+  s: string;
+  ser: word;
+  n, n1, n2: integer;
+begin
+  Result := False;
+  FErrorCode := 0;
+  FErrorString := '';
+  FSock.CloseSocket;
+  FSock.Connect(FTargetHost, FTargetPort);
+  try
+    if FSock.LastError = 0 then
+    begin
+      s := Filename + #0 + 'octet' + #0;
+      if not Sendpacket(2, 0, s) then
+        Exit;
+      ser := 1;
+      FData.Position := 0;
+      n1 := FData.Size div 512;
+      n2 := FData.Size mod 512;
+      for n := 1 to n1 do
+      begin
+        s := ReadStrFromStream(FData, 512);
+//        SetLength(s, 512);
+//        FData.Read(pointer(s)^, 512);
+        if not Sendpacket(3, ser, s) then
+          Exit;
+        inc(ser);
+      end;
+      s := ReadStrFromStream(FData, n2);
+//      SetLength(s, n2);
+//      FData.Read(pointer(s)^, n2);
+      if not Sendpacket(3, ser, s) then
+        Exit;
+      Result := True;
+    end;
+  finally
+    FSock.CloseSocket;
+  end;
+end;
+
+function TTFTPSend.RecvFile(const Filename: string): Boolean;
+var
+  s: string;
+  ser: word;
+begin
+  Result := False;
+  FErrorCode := 0;
+  FErrorString := '';
+  FSock.CloseSocket;
+  FSock.Connect(FTargetHost, FTargetPort);
+  try
+    if FSock.LastError = 0 then
+    begin
+      s := CodeInt(1) + Filename + #0 + 'octet' + #0;
+      FSock.SendString(s);
+      if FSock.LastError <> 0 then
+        Exit;
+      FData.Clear;
+      ser := 1;
+      repeat
+        if not RecvPacket(ser, s) then
+          Exit;
+        inc(ser);
+        WriteStrToStream(FData, s);
+//        FData.Write(pointer(s)^, length(s));
+      until length(s) <> 512;
+      FData.Position := 0;
+      Result := true;
+    end;
+  finally
+    FSock.CloseSocket;
+  end;
+end;
+
+function TTFTPSend.WaitForRequest(var Req: word; var filename: string): Boolean;
+var
+  s: string;
+begin
+  Result := False;
+  FErrorCode := 0;
+  FErrorString := '';
+  FSock.CloseSocket;
+  FSock.Bind('0.0.0.0', FTargetPort);
+  if FSock.LastError = 0 then
+  begin
+    s := FSock.RecvPacket(FTimeout);
+    if FSock.LastError = 0 then
+      if Length(s) >= 4 then
+      begin
+        FRequestIP := FSock.GetRemoteSinIP;
+        FRequestPort := IntToStr(FSock.GetRemoteSinPort);
+        Req := DecodeInt(s, 1);
+        delete(s, 1, 2);
+        filename := Trim(SeparateLeft(s, #0));
+        s := SeparateRight(s, #0);
+        s := SeparateLeft(s, #0);
+        Result := lowercase(trim(s)) = 'octet';
+      end;
+  end;
+end;
+
+procedure TTFTPSend.ReplyError(Error: word; Description: string);
+var
+  s: string;
+begin
+  FSock.CloseSocket;
+  FSock.Connect(FRequestIP, FRequestPort);
+  s := CodeInt(5) + CodeInt(Error) + Description + #0;
+  FSock.SendString(s);
+  FSock.CloseSocket;
+end;
+
+function TTFTPSend.ReplyRecv: Boolean;
+var
+  s: string;
+  ser: integer;
+begin
+  Result := False;
+  FErrorCode := 0;
+  FErrorString := '';
+  FSock.CloseSocket;
+  FSock.Connect(FRequestIP, FRequestPort);
+  try
+    s := CodeInt(4) + CodeInt(0);
+    FSock.SendString(s);
+    FData.Clear;
+    ser := 1;
+    repeat
+      if not RecvPacket(ser, s) then
+        Exit;
+      inc(ser);
+      WriteStrToStream(FData, s);
+//      FData.Write(pointer(s)^, length(s));
+    until length(s) <> 512;
+    FData.Position := 0;
+    Result := true;
+  finally
+    FSock.CloseSocket;
+  end;
+end;
+
+function TTFTPSend.ReplySend: Boolean;
+var
+  s: string;
+  ser: word;
+  n, n1, n2: integer;
+begin
+  Result := False;
+  FErrorCode := 0;
+  FErrorString := '';
+  FSock.CloseSocket;
+  FSock.Connect(FRequestIP, FRequestPort);
+  try
+    ser := 1;
+    FData.Position := 0;
+    n1 := FData.Size div 512;
+    n2 := FData.Size mod 512;
+    for n := 1 to n1 do
+    begin
+      s := ReadStrFromStream(FData, 512);
+//      SetLength(s, 512);
+//      FData.Read(pointer(s)^, 512);
+      if not Sendpacket(3, ser, s) then
+        Exit;
+      inc(ser);
+    end;
+    s := ReadStrFromStream(FData, n2);
+//    SetLength(s, n2);
+//    FData.Read(pointer(s)^, n2);
+    if not Sendpacket(3, ser, s) then
+      Exit;
+    Result := True;
+  finally
+    FSock.CloseSocket;
+  end;
+end;
+
+{==============================================================================}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/httpsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/httpsend.pas
new file mode 100644
index 0000000..b9fa063
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/httpsend.pas	
@@ -0,0 +1,829 @@
+{$IFDEF WIN64}{$DEFINE WIN32}{$ENDIF}
+{==============================================================================|
+| Project : Ararat Synapse                                       | 003.012.002 |
+|==============================================================================|
+| Content: HTTP client                                                         |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c) 1999-2008.               |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(HTTP protocol client)
+
+Used RFC: RFC-1867, RFC-1947, RFC-2388, RFC-2616
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit httpsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil, synaip, synacode, synsock;
+
+const
+  cHttpProtocol = '80';
+
+type
+  {:These encoding types are used internally by the THTTPSend object to identify
+   the transfer data types.}
+  TTransferEncoding = (TE_UNKNOWN, TE_IDENTITY, TE_CHUNKED);
+
+  {:abstract(Implementation of HTTP protocol.)}
+  THTTPSend = class(TSynaClient)
+  protected
+    FSock: TTCPBlockSocket;
+    FTransferEncoding: TTransferEncoding;
+    FAliveHost: string;
+    FAlivePort: string;
+    FHeaders: TStringList;
+    FDocument: TMemoryStream;
+    FMimeType: string;
+    FProtocol: string;
+    FKeepAlive: Boolean;
+    FKeepAliveTimeout: integer;
+    FStatus100: Boolean;
+    FProxyHost: string;
+    FProxyPort: string;
+    FProxyUser: string;
+    FProxyPass: string;
+    FResultCode: Integer;
+    FResultString: string;
+    FUserAgent: string;
+    FCookies: TStringList;
+    FDownloadSize: integer;
+    FUploadSize: integer;
+    FRangeStart: integer;
+    FRangeEnd: integer;
+    FAddPortNumberToHost: Boolean;
+    function ReadUnknown: Boolean;
+    function ReadIdentity(Size: Integer): Boolean;
+    function ReadChunked: Boolean;
+    procedure ParseCookies;
+    function PrepareHeaders: string;
+    function InternalDoConnect(needssl: Boolean): Boolean;
+    function InternalConnect(needssl: Boolean): Boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Reset headers and document and Mimetype.}
+    procedure Clear;
+
+    {:Decode ResultCode and ResultString from Value.}
+    procedure DecodeStatus(const Value: string);
+
+    {:Connects to host define in URL and access to resource defined in URL by
+     method. If Document is not empty, send it to server as part of HTTP request.
+     Server response is in Document and headers. Connection may be authorised
+     by username and password in URL. If you define proxy properties, connection
+     is made by this proxy. If all OK, result is @true, else result is @false.
+
+     If you use in URL 'https:' instead only 'http:', then your request is made
+     by SSL/TLS connection (if you not specify port, then port 443 is used
+     instead standard port 80). If you use SSL/TLS request and you have defined
+     HTTP proxy, then HTTP-tunnel mode is automaticly used .}
+    function HTTPMethod(const Method, URL: string): Boolean;
+
+    {:You can call this method from OnStatus event for break current data
+     transfer. (or from another thread.)}
+    procedure Abort;
+  published
+    {:Before HTTP operation you may define any non-standard headers for HTTP
+     request, except of: 'Expect: 100-continue', 'Content-Length', 'Content-Type',
+     'Connection', 'Authorization', 'Proxy-Authorization' and 'Host' headers.
+     After HTTP operation contains full headers of returned document.}
+    property Headers: TStringList read FHeaders;
+
+    {:This is stringlist with name-value stringlist pairs. Each this pair is one
+     cookie. After HTTP request is returned cookies parsed to this stringlist.
+     You can leave this cookies untouched for next HTTP request. You can also
+     save this stringlist for later use.}
+    property Cookies: TStringList read FCookies;
+
+    {:Stream with document to send (before request, or with document received
+     from HTTP server (after request).}
+    property Document: TMemoryStream read FDocument;
+
+    {:If you need download only part of requested document, here specify
+     possition of subpart begin. If here 0, then is requested full document.}
+    property RangeStart: integer read FRangeStart Write FRangeStart;
+
+    {:If you need download only part of requested document, here specify
+     possition of subpart end. If here 0, then is requested document from
+     rangeStart to end of document. (for broken download restoration,
+     for example.)}
+    property RangeEnd: integer read FRangeEnd Write FRangeEnd;
+
+    {:Mime type of sending data. Default is: 'text/html'.}
+    property MimeType: string read FMimeType Write FMimeType;
+
+    {:Define protocol version. Possible values are: '1.1', '1.0' (default)
+     and '0.9'.}
+    property Protocol: string read FProtocol Write FProtocol;
+
+    {:If @true (default value), keepalives in HTTP protocol 1.1 is enabled.}
+    property KeepAlive: Boolean read FKeepAlive Write FKeepAlive;
+
+    {:Define timeout for keepalives in seconds!}
+    property KeepAliveTimeout: integer read FKeepAliveTimeout Write FKeepAliveTimeout;
+
+    {:if @true, then server is requested for 100status capability when uploading
+     data. Default is @false (off).}
+    property Status100: Boolean read FStatus100 Write FStatus100;
+
+    {:Address of proxy server (IP address or domain name) where you want to
+     connect in @link(HTTPMethod) method.}
+    property ProxyHost: string read FProxyHost Write FProxyHost;
+
+    {:Port number for proxy connection. Default value is 8080.}
+    property ProxyPort: string read FProxyPort Write FProxyPort;
+
+    {:Username for connect to proxy server where you want to connect in
+     HTTPMethod method.}
+    property ProxyUser: string read FProxyUser Write FProxyUser;
+
+    {:Password for connect to proxy server where you want to connect in
+     HTTPMethod method.}
+    property ProxyPass: string read FProxyPass Write FProxyPass;
+
+    {:Here you can specify custom User-Agent indentification. By default is
+     used: 'Mozilla/4.0 (compatible; Synapse)'}
+    property UserAgent: string read FUserAgent Write FUserAgent;
+
+    {:After successful @link(HTTPMethod) method contains result code of
+     operation.}
+    property ResultCode: Integer read FResultCode;
+
+    {:After successful @link(HTTPMethod) method contains string after result code.}
+    property ResultString: string read FResultString;
+
+    {:if this value is not 0, then data download pending. In this case you have
+     here total sice of downloaded data. It is good for draw download
+     progressbar from OnStatus event.}
+    property DownloadSize: integer read FDownloadSize;
+
+    {:if this value is not 0, then data upload pending. In this case you have
+     here total sice of uploaded data. It is good for draw upload progressbar
+     from OnStatus event.}
+    property UploadSize: integer read FUploadSize;
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TTCPBlockSocket read FSock;
+
+    {:To have possibility to switch off port number in 'Host:' HTTP header, by
+    default @TRUE. Some buggy servers not like port informations in this header.}
+    property AddPortNumberToHost: Boolean read FAddPortNumberToHost write FAddPortNumberToHost;
+  end;
+
+{:A very usefull function, and example of use can be found in the THTTPSend
+ object. It implements the GET method of the HTTP protocol. This function sends
+ the GET method for URL document to an HTTP server. Returned document is in the
+ "Response" stringlist (without any headers). Returns boolean TRUE if all went
+ well.}
+function HttpGetText(const URL: string; const Response: TStrings): Boolean;
+
+{:A very usefull function, and example of use can be found in the THTTPSend
+ object. It implements the GET method of the HTTP protocol. This function sends
+ the GET method for URL document to an HTTP server. Returned document is in the
+ "Response" stream. Returns boolean TRUE if all went well.}
+function HttpGetBinary(const URL: string; const Response: TStream): Boolean;
+
+{:A very useful function, and example of use can be found in the THTTPSend
+ object. It implements the POST method of the HTTP protocol. This function sends
+ the SEND method for a URL document to an HTTP server. The document to be sent
+ is located in "Data" stream. The returned document is in the "Data" stream.
+ Returns boolean TRUE if all went well.}
+function HttpPostBinary(const URL: string; const Data: TStream): Boolean;
+
+{:A very useful function, and example of use can be found in the THTTPSend
+ object. It implements the POST method of the HTTP protocol. This function is
+ good for POSTing form data. It sends the POST method for a URL document to
+ an HTTP server. You must prepare the form data in the same manner as you would
+ the URL data, and pass this prepared data to "URLdata". The following is
+ a sample of how the data would appear: 'name=Lukas&field1=some%20data'.
+ The information in the field must be encoded by EncodeURLElement function.
+ The returned document is in the "Data" stream. Returns boolean TRUE if all
+ went well.}
+function HttpPostURL(const URL, URLData: string; const Data: TStream): Boolean;
+
+{:A very useful function, and example of use can be found in the THTTPSend
+ object. It implements the POST method of the HTTP protocol. This function sends
+ the POST method for a URL document to an HTTP server. This function simulate
+ posting of file by HTML form used method 'multipart/form-data'. Posting file
+ is in DATA stream. Its name is Filename string. Fieldname is for name of
+ formular field with file. (simulate HTML INPUT FILE) The returned document is
+ in the ResultData Stringlist. Returns boolean TRUE if all went well.}
+function HttpPostFile(const URL, FieldName, FileName: string;
+  const Data: TStream; const ResultData: TStrings): Boolean;
+
+implementation
+
+constructor THTTPSend.Create;
+begin
+  inherited Create;
+  FHeaders := TStringList.Create;
+  FCookies := TStringList.Create;
+  FDocument := TMemoryStream.Create;
+  FSock := TTCPBlockSocket.Create;
+  FSock.ConvertLineEnd := True;
+  FSock.SizeRecvBuffer := c64k;
+  FSock.SizeSendBuffer := c64k;
+  FTimeout := 90000;
+  FTargetPort := cHttpProtocol;
+  FProxyHost := '';
+  FProxyPort := '8080';
+  FProxyUser := '';
+  FProxyPass := '';
+  FAliveHost := '';
+  FAlivePort := '';
+  FProtocol := '1.0';
+  FKeepAlive := True;
+  FStatus100 := False;
+  FUserAgent := 'Mozilla/4.0 (compatible; Synapse)';
+  FDownloadSize := 0;
+  FUploadSize := 0;
+  FAddPortNumberToHost := true;
+  FKeepAliveTimeout := 300;
+  Clear;
+end;
+
+destructor THTTPSend.Destroy;
+begin
+  FSock.Free;
+  FDocument.Free;
+  FCookies.Free;
+  FHeaders.Free;
+  inherited Destroy;
+end;
+
+procedure THTTPSend.Clear;
+begin
+  FRangeStart := 0;
+  FRangeEnd := 0;
+  FDocument.Clear;
+  FHeaders.Clear;
+  FMimeType := 'text/html';
+end;
+
+procedure THTTPSend.DecodeStatus(const Value: string);
+var
+  s, su: string;
+begin
+  s := Trim(SeparateRight(Value, ' '));
+  su := Trim(SeparateLeft(s, ' '));
+  FResultCode := StrToIntDef(su, 0);
+  FResultString := Trim(SeparateRight(s, ' '));
+  if FResultString = s then
+    FResultString := '';
+end;
+
+function THTTPSend.PrepareHeaders: string;
+begin
+  if FProtocol = '0.9' then
+    Result := FHeaders[0] + CRLF
+  else
+{$IFNDEF WIN32}
+    Result := AdjustLineBreaks(FHeaders.Text, tlbsCRLF);
+{$ELSE}
+    Result := FHeaders.Text;
+{$ENDIF}
+end;
+
+function THTTPSend.InternalDoConnect(needssl: Boolean): Boolean;
+begin
+  Result := False;
+  FSock.CloseSocket;
+  FSock.Bind(FIPInterface, cAnyPort);
+  if FSock.LastError <> 0 then
+    Exit;
+  FSock.Connect(FTargetHost, FTargetPort);
+  if FSock.LastError <> 0 then
+    Exit;
+  if needssl then
+  begin
+    FSock.SSLDoConnect;
+    if FSock.LastError <> 0 then
+      Exit;
+  end;
+  FAliveHost := FTargetHost;
+  FAlivePort := FTargetPort;
+  Result := True;
+end;
+
+function THTTPSend.InternalConnect(needssl: Boolean): Boolean;
+begin
+  if FSock.Socket = INVALID_SOCKET then
+    Result := InternalDoConnect(needssl)
+  else
+    if (FAliveHost <> FTargetHost) or (FAlivePort <> FTargetPort)
+      or FSock.CanRead(0) then
+      Result := InternalDoConnect(needssl)
+    else
+      Result := True;
+end;
+
+function THTTPSend.HTTPMethod(const Method, URL: string): Boolean;
+var
+  Sending, Receiving: Boolean;
+  status100: Boolean;
+  status100error: string;
+  ToClose: Boolean;
+  Size: Integer;
+  Prot, User, Pass, Host, Port, Path, Para, URI: string;
+  s, su: string;
+  HttpTunnel: Boolean;
+  n: integer;
+  pp: string;
+  UsingProxy: boolean;
+  l: TStringList;
+  x: integer;
+begin
+  {initial values}
+  Result := False;
+  FResultCode := 500;
+  FResultString := '';
+  FDownloadSize := 0;
+  FUploadSize := 0;
+
+  URI := ParseURL(URL, Prot, User, Pass, Host, Port, Path, Para);
+  if User = '' then
+  begin
+    User := FUsername;
+    Pass := FPassword;
+  end;
+  if UpperCase(Prot) = 'HTTPS' then
+  begin
+    HttpTunnel := FProxyHost <> '';
+    FSock.HTTPTunnelIP := FProxyHost;
+    FSock.HTTPTunnelPort := FProxyPort;
+    FSock.HTTPTunnelUser := FProxyUser;
+    FSock.HTTPTunnelPass := FProxyPass;
+  end
+  else
+  begin
+    HttpTunnel := False;
+    FSock.HTTPTunnelIP := '';
+    FSock.HTTPTunnelPort := '';
+    FSock.HTTPTunnelUser := '';
+    FSock.HTTPTunnelPass := '';
+  end;
+  UsingProxy := (FProxyHost <> '') and not(HttpTunnel);
+  Sending := FDocument.Size > 0;
+  {Headers for Sending data}
+  status100 := FStatus100 and Sending and (FProtocol = '1.1');
+  if status100 then
+    FHeaders.Insert(0, 'Expect: 100-continue');
+  if Sending then
+  begin
+    FHeaders.Insert(0, 'Content-Length: ' + IntToStr(FDocument.Size));
+    if FMimeType <> '' then
+      FHeaders.Insert(0, 'Content-Type: ' + FMimeType);
+  end;
+  { setting User-agent }
+  if FUserAgent <> '' then
+    FHeaders.Insert(0, 'User-Agent: ' + FUserAgent);
+  { setting Ranges }
+  if (FRangeStart > 0) or (FRangeEnd > 0) then
+  begin
+    if FRangeEnd >= FRangeStart then
+      FHeaders.Insert(0, 'Range: bytes=' + IntToStr(FRangeStart) + '-' + IntToStr(FRangeEnd))
+    else
+      FHeaders.Insert(0, 'Range: bytes=' + IntToStr(FRangeStart) + '-');
+  end;
+  { setting Cookies }
+  s := '';
+  for n := 0 to FCookies.Count - 1 do
+  begin
+    if s <> '' then
+      s := s + '; ';
+    s := s + FCookies[n];
+  end;
+  if s <> '' then
+    FHeaders.Insert(0, 'Cookie: ' + s);
+  { setting KeepAlives }
+  pp := '';
+  if UsingProxy then
+    pp := 'Proxy-';
+  if FKeepAlive then
+  begin
+    FHeaders.Insert(0, pp + 'Connection: keep-alive');
+    FHeaders.Insert(0, 'Keep-Alive: ' + IntToStr(FKeepAliveTimeout));
+  end
+  else
+    FHeaders.Insert(0, pp + 'Connection: close');
+  { set target servers/proxy, authorizations, etc... }
+  if User <> '' then
+    FHeaders.Insert(0, 'Authorization: Basic ' + EncodeBase64(User + ':' + Pass));
+  if UsingProxy and (FProxyUser <> '') then
+    FHeaders.Insert(0, 'Proxy-Authorization: Basic ' +
+      EncodeBase64(FProxyUser + ':' + FProxyPass));
+  if isIP6(Host) then
+    s := '[' + Host + ']'
+  else
+    s := Host;
+  if FAddPortNumberToHost and (Port <> '80') then
+     FHeaders.Insert(0, 'Host: ' + s + ':' + Port)
+  else
+     FHeaders.Insert(0, 'Host: ' + s);
+  if UsingProxy then
+    URI := Prot + '://' + s + ':' + Port + URI;
+  if URI = '/*' then
+    URI := '*';
+  if FProtocol = '0.9' then
+    FHeaders.Insert(0, UpperCase(Method) + ' ' + URI)
+  else
+    FHeaders.Insert(0, UpperCase(Method) + ' ' + URI + ' HTTP/' + FProtocol);
+  if UsingProxy then
+  begin
+    FTargetHost := FProxyHost;
+    FTargetPort := FProxyPort;
+  end
+  else
+  begin
+    FTargetHost := Host;
+    FTargetPort := Port;
+  end;
+  if FHeaders[FHeaders.Count - 1] <> '' then
+    FHeaders.Add('');
+
+  { connect }
+  if not InternalConnect(UpperCase(Prot) = 'HTTPS') then
+  begin
+    FAliveHost := '';
+    FAlivePort := '';
+    Exit;
+  end;
+
+  { reading Status }
+  FDocument.Position := 0;
+  Status100Error := '';
+  if status100 then
+  begin
+    { send Headers }
+    FSock.SendString(PrepareHeaders);
+    if FSock.LastError <> 0 then
+      Exit;
+    repeat
+      s := FSock.RecvString(FTimeout);
+      if s <> '' then
+        Break;
+    until FSock.LastError <> 0;
+    DecodeStatus(s);
+    Status100Error := s;
+    repeat
+      s := FSock.recvstring(FTimeout);
+      if s = '' then
+        Break;
+    until FSock.LastError <> 0;
+    if (FResultCode >= 100) and (FResultCode < 200) then
+    begin
+      { we can upload content }
+      Status100Error := '';
+      FUploadSize := FDocument.Size;
+      FSock.SendBuffer(FDocument.Memory, FDocument.Size);
+    end;
+  end
+  else
+    { upload content }
+    if sending then
+    begin
+      if FDocument.Size >= c64k then
+      begin
+        FSock.SendString(PrepareHeaders);
+        FUploadSize := FDocument.Size;
+        FSock.SendBuffer(FDocument.Memory, FDocument.Size);
+      end
+      else
+      begin
+        s := PrepareHeaders + ReadStrFromStream(FDocument, FDocument.Size);
+        FUploadSize := Length(s);
+        FSock.SendString(s);
+      end;
+    end
+    else
+    begin
+      { we not need to upload document, send headers only }
+      FSock.SendString(PrepareHeaders);
+    end;
+
+  if FSock.LastError <> 0 then
+    Exit;
+
+  Clear;
+  Size := -1;
+  FTransferEncoding := TE_UNKNOWN;
+
+  { read status }
+  if Status100Error = '' then
+  begin
+    repeat
+      repeat
+        s := FSock.RecvString(FTimeout);
+        if s <> '' then
+          Break;
+      until FSock.LastError <> 0;
+      if Pos('HTTP/', UpperCase(s)) = 1 then
+      begin
+        FHeaders.Add(s);
+        DecodeStatus(s);
+      end
+      else
+      begin
+        { old HTTP 0.9 and some buggy servers not send result }
+        s := s + CRLF;
+        WriteStrToStream(FDocument, s);
+        FResultCode := 0;
+      end;
+    until (FSock.LastError <> 0) or (FResultCode <> 100);
+  end
+  else
+    FHeaders.Add(Status100Error);
+
+  { if need receive headers, receive and parse it }
+  ToClose := FProtocol <> '1.1';
+  if FHeaders.Count > 0 then
+  begin
+    l := TStringList.Create;
+    try
+      repeat
+        s := FSock.RecvString(FTimeout);
+        l.Add(s);
+        if s = '' then
+          Break;
+      until FSock.LastError <> 0;
+      x := 0;
+      while l.Count > x do
+      begin
+        s := NormalizeHeader(l, x);
+        FHeaders.Add(s);
+        su := UpperCase(s);
+        if Pos('CONTENT-LENGTH:', su) = 1 then
+        begin
+          Size := StrToIntDef(Trim(SeparateRight(s, ' ')), -1);
+          if (Size <> -1) and (FTransferEncoding = TE_UNKNOWN) then
+            FTransferEncoding := TE_IDENTITY;
+        end;
+        if Pos('CONTENT-TYPE:', su) = 1 then
+          FMimeType := Trim(SeparateRight(s, ' '));
+        if Pos('TRANSFER-ENCODING:', su) = 1 then
+        begin
+          s := Trim(SeparateRight(su, ' '));
+          if Pos('CHUNKED', s) > 0 then
+            FTransferEncoding := TE_CHUNKED;
+        end;
+        if UsingProxy then
+        begin
+          if Pos('PROXY-CONNECTION:', su) = 1 then
+            if Pos('CLOSE', su) > 0 then
+              ToClose := True;
+        end
+        else
+        begin
+          if Pos('CONNECTION:', su) = 1 then
+            if Pos('CLOSE', su) > 0 then
+              ToClose := True;
+        end;
+      end;
+    finally
+      l.free;
+    end;
+  end;
+
+  Result := FSock.LastError = 0;
+  if not Result then
+    Exit;
+
+  {if need receive response body, read it}
+  Receiving := Method <> 'HEAD';
+  Receiving := Receiving and (FResultCode <> 204);
+  Receiving := Receiving and (FResultCode <> 304);
+  if Receiving then
+    case FTransferEncoding of
+      TE_UNKNOWN:
+        Result := ReadUnknown;
+      TE_IDENTITY:
+        Result := ReadIdentity(Size);
+      TE_CHUNKED:
+        Result := ReadChunked;
+    end;
+
+  FDocument.Seek(0, soFromBeginning);
+  if ToClose then
+  begin
+    FSock.CloseSocket;
+    FAliveHost := '';
+    FAlivePort := '';
+  end;
+  ParseCookies;
+end;
+
+function THTTPSend.ReadUnknown: Boolean;
+var
+  s: string;
+begin
+  Result := false;
+  repeat
+    s := FSock.RecvPacket(FTimeout);
+    if FSock.LastError = 0 then
+      WriteStrToStream(FDocument, s);
+  until FSock.LastError <> 0;
+  if FSock.LastError = WSAECONNRESET then
+  begin
+    Result := true;
+    FSock.ResetLastError;
+  end;
+end;
+
+function THTTPSend.ReadIdentity(Size: Integer): Boolean;
+begin
+  if Size > 0 then
+  begin
+    FDownloadSize := Size;
+    FSock.RecvStreamSize(FDocument, FTimeout, Size);
+    FDocument.Position := FDocument.Size;
+    Result := FSock.LastError = 0;
+  end
+  else
+    Result := true;
+end;
+
+function THTTPSend.ReadChunked: Boolean;
+var
+  s: string;
+  Size: Integer;
+begin
+  repeat
+    repeat
+      s := FSock.RecvString(FTimeout);
+    until (s <> '') or (FSock.LastError <> 0);
+    if FSock.LastError <> 0 then
+      Break;
+    s := Trim(SeparateLeft(s, ' '));
+    s := Trim(SeparateLeft(s, ';'));
+    Size := StrToIntDef('$' + s, 0);
+    if Size = 0 then
+      Break;
+    if not ReadIdentity(Size) then
+      break;
+  until False;
+  Result := FSock.LastError = 0;
+end;
+
+procedure THTTPSend.ParseCookies;
+var
+  n: integer;
+  s: string;
+  sn, sv: string;
+begin
+  for n := 0 to FHeaders.Count - 1 do
+    if Pos('set-cookie:', lowercase(FHeaders[n])) = 1 then
+    begin
+      s := SeparateRight(FHeaders[n], ':');
+      s := trim(SeparateLeft(s, ';'));
+      sn := trim(SeparateLeft(s, '='));
+      sv := trim(SeparateRight(s, '='));
+      FCookies.Values[sn] := sv;
+    end;
+end;
+
+procedure THTTPSend.Abort;
+begin
+  FSock.StopFlag := True;
+end;
+
+{==============================================================================}
+
+function HttpGetText(const URL: string; const Response: TStrings): Boolean;
+var
+  HTTP: THTTPSend;
+begin
+  HTTP := THTTPSend.Create;
+  try
+    Result := HTTP.HTTPMethod('GET', URL);
+    if Result then
+      Response.LoadFromStream(HTTP.Document);
+  finally
+    HTTP.Free;
+  end;
+end;
+
+function HttpGetBinary(const URL: string; const Response: TStream): Boolean;
+var
+  HTTP: THTTPSend;
+begin
+  HTTP := THTTPSend.Create;
+  try
+    Result := HTTP.HTTPMethod('GET', URL);
+    if Result then
+    begin
+      Response.Seek(0, soFromBeginning);
+      Response.CopyFrom(HTTP.Document, 0);
+    end;
+  finally
+    HTTP.Free;
+  end;
+end;
+
+function HttpPostBinary(const URL: string; const Data: TStream): Boolean;
+var
+  HTTP: THTTPSend;
+begin
+  HTTP := THTTPSend.Create;
+  try
+    HTTP.Document.CopyFrom(Data, 0);
+    HTTP.MimeType := 'Application/octet-stream';
+    Result := HTTP.HTTPMethod('POST', URL);
+    Data.Size := 0;
+    if Result then
+    begin
+      Data.Seek(0, soFromBeginning);
+      Data.CopyFrom(HTTP.Document, 0);
+    end;
+  finally
+    HTTP.Free;
+  end;
+end;
+
+function HttpPostURL(const URL, URLData: string; const Data: TStream): Boolean;
+var
+  HTTP: THTTPSend;
+begin
+  HTTP := THTTPSend.Create;
+  try
+    WriteStrToStream(HTTP.Document, URLData);
+    HTTP.MimeType := 'application/x-www-form-urlencoded';
+    Result := HTTP.HTTPMethod('POST', URL);
+    if Result then
+      Data.CopyFrom(HTTP.Document, 0);
+  finally
+    HTTP.Free;
+  end;
+end;
+
+function HttpPostFile(const URL, FieldName, FileName: string;
+  const Data: TStream; const ResultData: TStrings): Boolean;
+var
+  HTTP: THTTPSend;
+  Bound, s: string;
+begin
+  Bound := IntToHex(Random(MaxInt), 8) + '_Synapse_boundary';
+  HTTP := THTTPSend.Create;
+  try
+    s := '--' + Bound + CRLF;
+    s := s + 'content-disposition: form-data; name="' + FieldName + '";';
+    s := s + ' filename="' + FileName +'"' + CRLF;
+    s := s + 'Content-Type: Application/octet-string' + CRLF + CRLF;
+    WriteStrToStream(HTTP.Document, s);
+    HTTP.Document.CopyFrom(Data, 0);
+    s := CRLF + '--' + Bound + '--' + CRLF;
+    WriteStrToStream(HTTP.Document, s);
+    HTTP.MimeType := 'multipart/form-data; boundary=' + Bound;
+    Result := HTTP.HTTPMethod('POST', URL);
+    if Result then
+      ResultData.LoadFromStream(HTTP.Document);
+  finally
+    HTTP.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/imapsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/imapsend.pas
new file mode 100644
index 0000000..1e91b08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/imapsend.pas	
@@ -0,0 +1,863 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 002.005.001 |
+|==============================================================================|
+| Content: IMAP4rev1 client                                                    |
+|==============================================================================|
+| Copyright (c)1999-2004, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2001-2004.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(IMAP4 rev1 protocol client)
+
+Used RFC: RFC-2060, RFC-2595
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit imapsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil;
+
+const
+  cIMAPProtocol = '143';
+
+type
+  {:@abstract(Implementation of IMAP4 protocol.)
+   Note: Are you missing properties for setting Username and Password? Look to
+   parent @link(TSynaClient) object!
+
+   Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TIMAPSend = class(TSynaClient)
+  protected
+    FSock: TTCPBlockSocket;
+    FTagCommand: integer;
+    FResultString: string;
+    FFullResult: TStringList;
+    FIMAPcap: TStringList;
+    FAuthDone: Boolean;
+    FSelectedFolder: string;
+    FSelectedCount: integer;
+    FSelectedRecent: integer;
+    FSelectedUIDvalidity: integer;
+    FUID: Boolean;
+    FAutoTLS: Boolean;
+    FFullSSL: Boolean;
+    function ReadResult: string;
+    function AuthLogin: Boolean;
+    function Connect: Boolean;
+    procedure ParseMess(Value:TStrings);
+    procedure ParseFolderList(Value:TStrings);
+    procedure ParseSelect;
+    procedure ParseSearch(Value:TStrings);
+    procedure ProcessLiterals;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:By this function you can call any IMAP command. Result of this command is
+     in adequate properties.}
+    function IMAPcommand(Value: string): string;
+
+    {:By this function you can call any IMAP command what need upload any data.
+     Result of this command is in adequate properties.}
+    function IMAPuploadCommand(Value: string; const Data:TStrings): string;
+
+    {:Call CAPABILITY command and fill IMAPcap property by new values.}
+    function Capability: Boolean;
+
+    {:Connect to IMAP server and do login to this server. This command begin
+     session.}
+    function Login: Boolean;
+
+    {:Disconnect from IMAP server and terminate session session. If exists some
+     deleted and non-purged messages, these messages are not deleted!}
+    function Logout: Boolean;
+
+    {:Do NOOP. It is for prevent disconnect by timeout.}
+    function NoOp: Boolean;
+
+    {:Lists folder names. You may specify level of listing. If you specify
+     FromFolder as empty string, return is all folders in system.}
+    function List(FromFolder: string; const FolderList: TStrings): Boolean;
+
+    {:Lists folder names what match search criteria. You may specify level of
+     listing. If you specify FromFolder as empty string, return is all folders
+     in system.}
+    function ListSearch(FromFolder, Search: string; const FolderList: TStrings): Boolean;
+
+    {:Lists subscribed folder names. You may specify level of listing. If you
+     specify FromFolder as empty string, return is all subscribed folders in
+     system.}
+    function ListSubscribed(FromFolder: string; const FolderList: TStrings): Boolean;
+
+    {:Lists subscribed folder names what matching search criteria. You may
+     specify level of listing. If you specify FromFolder as empty string, return
+     is all subscribed folders in system.}
+    function ListSearchSubscribed(FromFolder, Search: string; const FolderList: TStrings): Boolean;
+
+    {:Create a new folder.}
+    function CreateFolder(FolderName: string): Boolean;
+
+    {:Delete a folder.}
+    function DeleteFolder(FolderName: string): Boolean;
+
+    {:Rename folder names.}
+    function RenameFolder(FolderName, NewFolderName: string): Boolean;
+
+    {:Subscribe folder.}
+    function SubscribeFolder(FolderName: string): Boolean;
+
+    {:Unsubscribe folder.}
+    function UnsubscribeFolder(FolderName: string): Boolean;
+
+    {:Select folder.}
+    function SelectFolder(FolderName: string): Boolean;
+
+    {:Select folder, but only for reading. Any changes are not allowed!}
+    function SelectROFolder(FolderName: string): Boolean;
+
+    {:Close a folder. (end of Selected state)}
+    function CloseFolder: Boolean;
+
+    {:Ask for given status of folder. I.e. if you specify as value 'UNSEEN',
+     result is number of unseen messages in folder. For another status
+     indentificator check IMAP documentation and documentation of your IMAP
+     server (each IMAP server can have their own statuses.)}
+    function StatusFolder(FolderName, Value: string): integer;
+
+    {:Hardly delete all messages marked as 'deleted' in current selected folder.}
+    function ExpungeFolder: Boolean;
+
+    {:Touch to folder. (use as update status of folder, etc.)}
+    function CheckFolder: Boolean;
+
+    {:Append given message to specified folder.}
+    function AppendMess(ToFolder: string; const Mess: TStrings): Boolean;
+
+    {:'Delete' message from current selected folder. It mark message as Deleted.
+     Real deleting will be done after sucessfull @link(CloseFolder) or
+     @link(ExpungeFolder)}
+    function DeleteMess(MessID: integer): boolean;
+
+    {:Get full message from specified message in selected folder.}
+    function FetchMess(MessID: integer; const Mess: TStrings): Boolean;
+
+    {:Get message headers only from specified message in selected folder.}
+    function FetchHeader(MessID: integer; const Headers: TStrings): Boolean;
+
+    {:Return message size of specified message from current selected folder.}
+    function MessageSize(MessID: integer): integer;
+
+    {:Copy message from current selected folder to another folder.}
+    function CopyMess(MessID: integer; ToFolder: string): Boolean;
+
+    {:Return message numbers from currently selected folder as result
+     of searching. Search criteria is very complex language (see to IMAP
+     specification) similar to SQL (but not same syntax!).}
+    function SearchMess(Criteria: string; const FoundMess: TStrings): Boolean;
+
+    {:Sets flags of message from current selected folder.}
+    function SetFlagsMess(MessID: integer; Flags: string): Boolean;
+
+    {:Gets flags of message from current selected folder.}
+    function GetFlagsMess(MessID: integer; var Flags: string): Boolean;
+
+    {:Add flags to message's flags.}
+    function AddFlagsMess(MessID: integer; Flags: string): Boolean;
+
+    {:Remove flags from message's flags.}
+    function DelFlagsMess(MessID: integer; Flags: string): Boolean;
+
+    {:Call STARTTLS command for upgrade connection to SSL/TLS mode.}
+    function StartTLS: Boolean;
+
+    {:return UID of requested message ID.}
+    function GetUID(MessID: integer; var UID : Integer): Boolean;
+
+    {:Try to find given capabily in capabilty string returned from IMAP server.}
+    function FindCap(const Value: string): string;
+  published
+    {:Status line with result of last operation.}
+    property ResultString: string read FResultString;
+
+    {:Full result of last IMAP operation.}
+    property FullResult: TStringList read FFullResult;
+
+    {:List of server capabilites.}
+    property IMAPcap: TStringList read FIMAPcap;
+
+    {:Authorization is successful done.}
+    property AuthDone: Boolean read FAuthDone;
+
+    {:Turn on or off usage of UID (unicate identificator) of messages instead
+     only sequence numbers.}
+    property UID: Boolean read FUID Write FUID;
+
+    {:Name of currently selected folder.}
+    property SelectedFolder: string read FSelectedFolder;
+
+    {:Count of messages in currently selected folder.}
+    property SelectedCount: integer read FSelectedCount;
+
+    {:Count of not-visited messages in currently selected folder.}
+    property SelectedRecent: integer read FSelectedRecent;
+
+    {:This number with name of folder is unique indentificator of folder.
+     (If someone delete folder and next create new folder with exactly same name
+     of folder, this number is must be different!)}
+    property SelectedUIDvalidity: integer read FSelectedUIDvalidity;
+
+    {:If is set to true, then upgrade to SSL/TLS mode if remote server support it.}
+    property AutoTLS: Boolean read FAutoTLS Write FAutoTLS;
+
+    {:SSL/TLS mode is used from first contact to server. Servers with full
+     SSL/TLS mode usualy using non-standard TCP port!}
+    property FullSSL: Boolean read FFullSSL Write FFullSSL;
+
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TTCPBlockSocket read FSock;
+  end;
+
+implementation
+
+constructor TIMAPSend.Create;
+begin
+  inherited Create;
+  FFullResult := TStringList.Create;
+  FIMAPcap := TStringList.Create;
+  FSock := TTCPBlockSocket.Create;
+  FSock.ConvertLineEnd := True;
+  FSock.SizeRecvBuffer := 32768;
+  FSock.SizeSendBuffer := 32768;
+  FTimeout := 60000;
+  FTargetPort := cIMAPProtocol;
+  FTagCommand := 0;
+  FSelectedFolder := '';
+  FSelectedCount := 0;
+  FSelectedRecent := 0;
+  FSelectedUIDvalidity := 0;
+  FUID := False;
+  FAutoTLS := False;
+  FFullSSL := False;
+end;
+
+destructor TIMAPSend.Destroy;
+begin
+  FSock.Free;
+  FIMAPcap.Free;
+  FFullResult.Free;
+  inherited Destroy;
+end;
+
+
+function TIMAPSend.ReadResult: string;
+var
+  s: string;
+  x, l: integer;
+begin
+  Result := '';
+  FFullResult.Clear;
+  FResultString := '';
+  repeat
+    s := FSock.RecvString(FTimeout);
+    if Pos('S' + IntToStr(FTagCommand) + ' ', s) = 1 then
+    begin
+      FResultString := s;
+      break;
+    end
+    else
+      FFullResult.Add(s);
+    if (s <> '') and (s[Length(s)]='}') then
+    begin
+      s := Copy(s, 1, Length(s) - 1);
+      x := RPos('{', s);
+      s := Copy(s, x + 1, Length(s) - x);
+      l := StrToIntDef(s, -1);
+      if l <> -1 then
+      begin
+        s := FSock.RecvBufferStr(l, FTimeout);
+        FFullResult.Add(s);
+      end;
+    end;
+  until FSock.LastError <> 0;
+  s := Trim(separateright(FResultString, ' '));
+  Result:=uppercase(Trim(separateleft(s, ' ')));
+end;
+
+procedure TIMAPSend.ProcessLiterals;
+var
+  l: TStringList;
+  n, x: integer;
+  b: integer;
+  s: string;
+begin
+  l := TStringList.Create;
+  try
+    l.Assign(FFullResult);
+    FFullResult.Clear;
+    b := 0;
+    for n := 0 to l.Count - 1 do
+    begin
+      s := l[n];
+      if b > 0 then
+      begin
+        FFullResult[FFullresult.Count - 1] :=
+          FFullResult[FFullresult.Count - 1] + s;
+        inc(b);
+        if b > 2 then
+          b := 0;
+      end
+      else
+      begin
+        if (s <> '') and (s[Length(s)]='}') then
+        begin
+          x := RPos('{', s);
+          Delete(s, x, Length(s) - x + 1);
+          b := 1;
+        end
+        else
+          b := 0;
+        FFullResult.Add(s);
+      end;
+    end;
+  finally
+    l.Free;
+  end;
+end;
+
+function TIMAPSend.IMAPcommand(Value: string): string;
+begin
+  Inc(FTagCommand);
+  FSock.SendString('S' + IntToStr(FTagCommand) + ' ' + Value + CRLF);
+  Result := ReadResult;
+end;
+
+function TIMAPSend.IMAPuploadCommand(Value: string; const Data:TStrings): string;
+var
+  l: integer;
+begin
+  Inc(FTagCommand);
+  l := Length(Data.Text);
+  FSock.SendString('S' + IntToStr(FTagCommand) + ' ' + Value + ' {'+ IntToStr(l) + '}' + CRLF);
+  FSock.RecvString(FTimeout);
+  FSock.SendString(Data.Text + CRLF);
+  Result := ReadResult;
+end;
+
+procedure TIMAPSend.ParseMess(Value:TStrings);
+var
+  n: integer;
+begin
+  Value.Clear;
+  for n := 0 to FFullResult.Count - 2 do
+    if FFullResult[n][Length(FFullResult[n])] = '}' then
+    begin
+      Value.Text := FFullResult[n + 1];
+      Break;
+    end;
+end;
+
+procedure TIMAPSend.ParseFolderList(Value:TStrings);
+var
+  n, x: integer;
+  s: string;
+begin
+  ProcessLiterals;
+  Value.Clear;
+  for n := 0 to FFullResult.Count - 1 do
+  begin
+    s := FFullResult[n];
+    if (s <> '') and (Pos('\NOSELECT', UpperCase(s)) = 0) then
+    begin
+      if s[Length(s)] = '"' then
+      begin
+        Delete(s, Length(s), 1);
+        x := RPos('"', s);
+      end
+      else
+        x := RPos(' ', s);
+      if (x > 0) then
+        Value.Add(Copy(s, x + 1, Length(s) - x));
+    end;
+  end;
+end;
+
+procedure TIMAPSend.ParseSelect;
+var
+  n: integer;
+  s, t: string;
+begin
+  ProcessLiterals;
+  FSelectedCount := 0;
+  FSelectedRecent := 0;
+  FSelectedUIDvalidity := 0;
+  for n := 0 to FFullResult.Count - 1 do
+  begin
+    s := uppercase(FFullResult[n]);
+    if Pos(' EXISTS', s) > 0 then
+    begin
+      t := Trim(separateleft(s, ' EXISTS'));
+      t := Trim(separateright(t, '* '));
+      FSelectedCount := StrToIntDef(t, 0);
+    end;
+    if Pos(' RECENT', s) > 0 then
+    begin
+      t := Trim(separateleft(s, ' RECENT'));
+      t := Trim(separateright(t, '* '));
+      FSelectedRecent := StrToIntDef(t, 0);
+    end;
+    if Pos('UIDVALIDITY', s) > 0 then
+    begin
+      t := Trim(separateright(s, 'UIDVALIDITY '));
+      t := Trim(separateleft(t, ']'));
+      FSelectedUIDvalidity := StrToIntDef(t, 0);
+    end;
+  end;
+end;
+
+procedure TIMAPSend.ParseSearch(Value:TStrings);
+var
+  n: integer;
+  s: string;
+begin
+  ProcessLiterals;
+  Value.Clear;
+  for n := 0 to FFullResult.Count - 1 do
+  begin
+    s := uppercase(FFullResult[n]);
+    if Pos('* SEARCH', s) = 1 then
+    begin
+      s := Trim(SeparateRight(s, '* SEARCH'));
+      while s <> '' do
+        Value.Add(Fetch(s, ' '));
+    end;
+  end;
+end;
+
+function TIMAPSend.FindCap(const Value: string): string;
+var
+  n: Integer;
+  s: string;
+begin
+  s := UpperCase(Value);
+  Result := '';
+  for n := 0 to FIMAPcap.Count - 1 do
+    if Pos(s, UpperCase(FIMAPcap[n])) = 1 then
+    begin
+      Result := FIMAPcap[n];
+      Break;
+    end;
+end;
+
+function TIMAPSend.AuthLogin: Boolean;
+begin
+  Result := IMAPcommand('LOGIN "' + FUsername + '" "' + FPassword + '"') = 'OK';
+end;
+
+function TIMAPSend.Connect: Boolean;
+begin
+  FSock.CloseSocket;
+  FSock.Bind(FIPInterface, cAnyPort);
+  if FSock.LastError = 0 then
+    FSock.Connect(FTargetHost, FTargetPort);
+  if FSock.LastError = 0 then
+    if FFullSSL then
+      FSock.SSLDoConnect;
+  Result := FSock.LastError = 0;
+end;
+
+function TIMAPSend.Capability: Boolean;
+var
+  n: Integer;
+  s, t: string;
+begin
+  Result := False;
+  FIMAPcap.Clear;
+  s := IMAPcommand('CAPABILITY');
+  if s = 'OK' then
+  begin
+    ProcessLiterals;
+    for n := 0 to FFullResult.Count - 1 do
+      if Pos('* CAPABILITY ', FFullResult[n]) = 1 then
+      begin
+        s := Trim(SeparateRight(FFullResult[n], '* CAPABILITY '));
+        while not (s = '') do
+        begin
+          t := Trim(separateleft(s, ' '));
+          s := Trim(separateright(s, ' '));
+          if s = t then
+            s := '';
+          FIMAPcap.Add(t);
+        end;
+      end;
+    Result := True;
+  end;
+end;
+
+function TIMAPSend.Login: Boolean;
+var
+  s: string;
+begin
+  FSelectedFolder := '';
+  FSelectedCount := 0;
+  FSelectedRecent := 0;
+  FSelectedUIDvalidity := 0;
+  Result := False;
+  FAuthDone := False;
+  if not Connect then
+    Exit;
+  s := FSock.RecvString(FTimeout);
+  if Pos('* PREAUTH', s) = 1 then
+    FAuthDone := True
+  else
+    if Pos('* OK', s) = 1 then
+      FAuthDone := False
+    else
+      Exit;
+  if Capability then
+  begin
+    if Findcap('IMAP4rev1') = '' then
+      Exit;
+    if FAutoTLS and (Findcap('STARTTLS') <> '') then
+      if StartTLS then
+        Capability;
+  end;
+  Result := AuthLogin;
+end;
+
+function TIMAPSend.Logout: Boolean;
+begin
+  Result := IMAPcommand('LOGOUT') = 'OK';
+  FSelectedFolder := '';
+  FSock.CloseSocket;
+end;
+
+function TIMAPSend.NoOp: Boolean;
+begin
+  Result := IMAPcommand('NOOP') = 'OK';
+end;
+
+function TIMAPSend.List(FromFolder: string; const FolderList: TStrings): Boolean;
+begin
+  Result := IMAPcommand('LIST "' + FromFolder + '" *') = 'OK';
+  ParseFolderList(FolderList);
+end;
+
+function TIMAPSend.ListSearch(FromFolder, Search: string; const FolderList: TStrings): Boolean;
+begin
+  Result := IMAPcommand('LIST "' + FromFolder + '" "' + Search +'"') = 'OK';
+  ParseFolderList(FolderList);
+end;
+
+function TIMAPSend.ListSubscribed(FromFolder: string; const FolderList: TStrings): Boolean;
+begin
+  Result := IMAPcommand('LSUB "' + FromFolder + '" *') = 'OK';
+  ParseFolderList(FolderList);
+end;
+
+function TIMAPSend.ListSearchSubscribed(FromFolder, Search: string; const FolderList: TStrings): Boolean;
+begin
+  Result := IMAPcommand('LSUB "' + FromFolder + '" "' + Search +'"') = 'OK';
+  ParseFolderList(FolderList);
+end;
+
+function TIMAPSend.CreateFolder(FolderName: string): Boolean;
+begin
+  Result := IMAPcommand('CREATE "' + FolderName + '"') = 'OK';
+end;
+
+function TIMAPSend.DeleteFolder(FolderName: string): Boolean;
+begin
+  Result := IMAPcommand('DELETE "' + FolderName + '"') = 'OK';
+end;
+
+function TIMAPSend.RenameFolder(FolderName, NewFolderName: string): Boolean;
+begin
+  Result := IMAPcommand('RENAME "' + FolderName + '" "' + NewFolderName + '"') = 'OK';
+end;
+
+function TIMAPSend.SubscribeFolder(FolderName: string): Boolean;
+begin
+  Result := IMAPcommand('SUBSCRIBE "' + FolderName + '"') = 'OK';
+end;
+
+function TIMAPSend.UnsubscribeFolder(FolderName: string): Boolean;
+begin
+  Result := IMAPcommand('UNSUBSCRIBE "' + FolderName + '"') = 'OK';
+end;
+
+function TIMAPSend.SelectFolder(FolderName: string): Boolean;
+begin
+  Result := IMAPcommand('SELECT "' + FolderName + '"') = 'OK';
+  FSelectedFolder := FolderName;
+  ParseSelect;
+end;
+
+function TIMAPSend.SelectROFolder(FolderName: string): Boolean;
+begin
+  Result := IMAPcommand('EXAMINE "' + FolderName + '"') = 'OK';
+  FSelectedFolder := FolderName;
+  ParseSelect;
+end;
+
+function TIMAPSend.CloseFolder: Boolean;
+begin
+  Result := IMAPcommand('CLOSE') = 'OK';
+  FSelectedFolder := '';
+end;
+
+function TIMAPSend.StatusFolder(FolderName, Value: string): integer;
+var
+  n: integer;
+  s, t: string;
+begin
+  Result := -1;
+  Value := Uppercase(Value);
+  if IMAPcommand('STATUS "' + FolderName + '" (' + Value + ')' ) = 'OK' then
+  begin
+    ProcessLiterals;
+    for n := 0 to FFullResult.Count - 1 do
+    begin
+      s := FFullResult[n];
+//      s := UpperCase(FFullResult[n]);
+      if (Pos('* ', s) = 1) and (Pos(FolderName, s) >= 1) and (Pos(Value, s) > 0 ) then
+      begin
+        t := SeparateRight(s, Value);
+        t := SeparateLeft(t, ')');
+        t := trim(t);
+        Result := StrToIntDef(t, -1);
+        Break;
+      end;
+    end;
+  end;
+end;
+
+function TIMAPSend.ExpungeFolder: Boolean;
+begin
+  Result := IMAPcommand('EXPUNGE') = 'OK';
+end;
+
+function TIMAPSend.CheckFolder: Boolean;
+begin
+  Result := IMAPcommand('CHECK') = 'OK';
+end;
+
+function TIMAPSend.AppendMess(ToFolder: string; const Mess: TStrings): Boolean;
+begin
+  Result := IMAPuploadCommand('APPEND "' + ToFolder + '"', Mess) = 'OK';
+end;
+
+function TIMAPSend.DeleteMess(MessID: integer): boolean;
+var
+  s: string;
+begin
+  s := 'STORE ' + IntToStr(MessID) + ' +FLAGS.SILENT (\Deleted)';
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+end;
+
+function TIMAPSend.FetchMess(MessID: integer; const Mess: TStrings): Boolean;
+var
+  s: string;
+begin
+  s := 'FETCH ' + IntToStr(MessID) + ' (RFC822)';
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+  ParseMess(Mess);
+end;
+
+function TIMAPSend.FetchHeader(MessID: integer; const Headers: TStrings): Boolean;
+var
+  s: string;
+begin
+  s := 'FETCH ' + IntToStr(MessID) + ' (RFC822.HEADER)';
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+  ParseMess(Headers);
+end;
+
+function TIMAPSend.MessageSize(MessID: integer): integer;
+var
+  n: integer;
+  s, t: string;
+begin
+  Result := -1;
+  s := 'FETCH ' + IntToStr(MessID) + ' (RFC822.SIZE)';
+  if FUID then
+    s := 'UID ' + s;
+  if IMAPcommand(s) = 'OK' then
+  begin
+    ProcessLiterals;
+    for n := 0 to FFullResult.Count - 1 do
+    begin
+      s := UpperCase(FFullResult[n]);
+      if (Pos('* ', s) = 1) and (Pos('RFC822.SIZE', s) > 0 ) then
+      begin
+        t := SeparateRight(s, 'RFC822.SIZE ');
+        t := Trim(SeparateLeft(t, ')'));
+        t := Trim(SeparateLeft(t, ' '));
+        Result := StrToIntDef(t, -1);
+        Break;
+      end;
+    end;
+  end;
+end;
+
+function TIMAPSend.CopyMess(MessID: integer; ToFolder: string): Boolean;
+var
+  s: string;
+begin
+  s := 'COPY ' + IntToStr(MessID) + ' "' + ToFolder + '"';
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+end;
+
+function TIMAPSend.SearchMess(Criteria: string; const FoundMess: TStrings): Boolean;
+var
+  s: string;
+begin
+  s := 'SEARCH ' + Criteria;
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+  ParseSearch(FoundMess);
+end;
+
+function TIMAPSend.SetFlagsMess(MessID: integer; Flags: string): Boolean;
+var
+  s: string;
+begin
+  s := 'STORE ' + IntToStr(MessID) + ' FLAGS.SILENT (' + Flags + ')';
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+end;
+
+function TIMAPSend.AddFlagsMess(MessID: integer; Flags: string): Boolean;
+var
+  s: string;
+begin
+  s := 'STORE ' + IntToStr(MessID) + ' +FLAGS.SILENT (' + Flags + ')';
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+end;
+
+function TIMAPSend.DelFlagsMess(MessID: integer; Flags: string): Boolean;
+var
+  s: string;
+begin
+  s := 'STORE ' + IntToStr(MessID) + ' -FLAGS.SILENT (' + Flags + ')';
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+end;
+
+function TIMAPSend.GetFlagsMess(MessID: integer; var Flags: string): Boolean;
+var
+  s: string;
+  n: integer;
+begin
+  Flags := '';
+  s := 'FETCH ' + IntToStr(MessID) + ' (FLAGS)';
+  if FUID then
+    s := 'UID ' + s;
+  Result := IMAPcommand(s) = 'OK';
+  ProcessLiterals;
+  for n := 0 to FFullResult.Count - 1 do
+  begin
+    s := uppercase(FFullResult[n]);
+    if (Pos('* ', s) = 1) and (Pos('FLAGS', s) > 0 ) then
+    begin
+      s := SeparateRight(s, 'FLAGS');
+      s := Separateright(s, '(');
+      Flags := Trim(SeparateLeft(s, ')'));
+    end;
+  end;
+end;
+
+function TIMAPSend.StartTLS: Boolean;
+begin
+  Result := False;
+  if FindCap('STARTTLS') <> '' then
+  begin
+    if IMAPcommand('STARTTLS') = 'OK' then
+    begin
+      Fsock.SSLDoConnect;
+      Result := FSock.LastError = 0;
+    end;
+  end;
+end;
+
+//Paul Buskermolen <p.buskermolen@pinkroccade.com>
+function TIMAPSend.GetUID(MessID: integer; var UID : Integer): boolean;
+var
+  s, sUid: string;
+  n: integer;
+begin
+  sUID := '';
+  s := 'FETCH ' + IntToStr(MessID) + ' UID';
+  Result := IMAPcommand(s) = 'OK';
+  ProcessLiterals;
+  for n := 0 to FFullResult.Count - 1 do
+  begin
+    s := uppercase(FFullResult[n]);
+    if Pos('FETCH (UID', s) >= 1 then
+    begin
+      s := Separateright(s, '(UID ');
+      sUID := Trim(SeparateLeft(s, ')'));
+    end;
+  end;
+  UID := StrToIntDef(sUID, 0);
+end;
+
+{==============================================================================}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ldapsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ldapsend.pas
new file mode 100644
index 0000000..20fcfe3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ldapsend.pas	
@@ -0,0 +1,1190 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.006.001 |
+|==============================================================================|
+| Content: LDAP client                                                         |
+|==============================================================================|
+| Copyright (c)1999-2009, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2003-2009.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(LDAP client)
+
+Used RFC: RFC-2251, RFC-2254, RFC-2829, RFC-2830
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit ldapsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil, asn1util, synacode;
+
+const
+  cLDAPProtocol = '389';
+
+  LDAP_ASN1_BIND_REQUEST = $60;
+  LDAP_ASN1_BIND_RESPONSE = $61;
+  LDAP_ASN1_UNBIND_REQUEST = $42;
+  LDAP_ASN1_SEARCH_REQUEST = $63;
+  LDAP_ASN1_SEARCH_ENTRY = $64;
+  LDAP_ASN1_SEARCH_DONE = $65;
+  LDAP_ASN1_SEARCH_REFERENCE = $73;
+  LDAP_ASN1_MODIFY_REQUEST = $66;
+  LDAP_ASN1_MODIFY_RESPONSE = $67;
+  LDAP_ASN1_ADD_REQUEST = $68;
+  LDAP_ASN1_ADD_RESPONSE = $69;
+  LDAP_ASN1_DEL_REQUEST = $4A;
+  LDAP_ASN1_DEL_RESPONSE = $6B;
+  LDAP_ASN1_MODIFYDN_REQUEST = $6C;
+  LDAP_ASN1_MODIFYDN_RESPONSE = $6D;
+  LDAP_ASN1_COMPARE_REQUEST = $6E;
+  LDAP_ASN1_COMPARE_RESPONSE = $6F;
+  LDAP_ASN1_ABANDON_REQUEST = $70;
+  LDAP_ASN1_EXT_REQUEST = $77;
+  LDAP_ASN1_EXT_RESPONSE = $78;
+
+
+type
+
+  {:@abstract(LDAP attribute with list of their values)
+   This class holding name of LDAP attribute and list of their values. This is
+   descendant of TStringList class enhanced by some new properties.}
+  TLDAPAttribute = class(TStringList)
+  private
+    FAttributeName: AnsiString;
+    FIsBinary: Boolean;
+  protected
+    function Get(Index: integer): string; override;
+    procedure Put(Index: integer; const Value: string); override;
+    procedure SetAttributeName(Value: AnsiString);
+  published
+    {:Name of LDAP attribute.}
+    property AttributeName: AnsiString read FAttributeName Write SetAttributeName;
+    {:Return @true when attribute contains binary data.}
+    property IsBinary: Boolean read FIsBinary;
+  end;
+
+  {:@abstract(List of @link(TLDAPAttribute))
+   This object can hold list of TLDAPAttribute objects.}
+  TLDAPAttributeList = class(TObject)
+  private
+    FAttributeList: TList;
+    function GetAttribute(Index: integer): TLDAPAttribute;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    {:Clear list.}
+    procedure Clear;
+    {:Return count of TLDAPAttribute objects in list.}
+    function Count: integer;
+    {:Add new TLDAPAttribute object to list.}
+    function Add: TLDAPAttribute;
+    {:Delete one TLDAPAttribute object from list.}
+    procedure Del(Index: integer);
+    {:Find and return attribute with requested name. Returns nil if not found.}
+    function Find(AttributeName: AnsiString): TLDAPAttribute;
+    {:List of TLDAPAttribute objects.}
+    property Items[Index: Integer]: TLDAPAttribute read GetAttribute; default;
+  end;
+
+  {:@abstract(LDAP result object)
+   This object can hold LDAP object. (their name and all their attributes with
+   values)}
+  {$M+} 
+  TLDAPResult = class(TObject)
+  private
+    FObjectName: AnsiString;
+    FAttributes: TLDAPAttributeList;
+  public
+    constructor Create;
+    destructor Destroy; override;
+  published
+    {:Name of this LDAP object.}
+    property ObjectName: AnsiString read FObjectName write FObjectName;
+    {:Here is list of object attributes.}
+    property Attributes: TLDAPAttributeList read FAttributes;
+  end;
+
+  {:@abstract(List of LDAP result objects)
+   This object can hold list of LDAP objects. (for example result of LDAP SEARCH.)}
+  TLDAPResultList = class(TObject)
+  private
+    FResultList: TList;
+    function GetResult(Index: integer): TLDAPResult;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    {:Clear all TLDAPResult objects in list.}
+    procedure Clear;
+    {:Return count of TLDAPResult objects in list.}
+    function Count: integer;
+    {:Create and add new TLDAPResult object to list.}
+    function Add: TLDAPResult;
+    {:List of TLDAPResult objects.}
+    property Items[Index: Integer]: TLDAPResult read GetResult; default;
+  end;
+
+  {:Define possible operations for LDAP MODIFY operations.}
+  TLDAPModifyOp = (
+    MO_Add,
+    MO_Delete,
+    MO_Replace
+  );
+
+  {:Specify possible values for search scope.}
+  TLDAPSearchScope = (
+    SS_BaseObject,
+    SS_SingleLevel,
+    SS_WholeSubtree
+  );
+
+  {:Specify possible values about alias dereferencing.}
+  TLDAPSearchAliases = (
+    SA_NeverDeref,
+    SA_InSearching,
+    SA_FindingBaseObj,
+    SA_Always
+  );
+
+  {:@abstract(Implementation of LDAP client)
+   (version 2 and 3)
+
+   Note: Are you missing properties for setting Username and Password? Look to
+   parent @link(TSynaClient) object!
+
+   Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TLDAPSend = class(TSynaClient)
+  private
+    FSock: TTCPBlockSocket;
+    FResultCode: Integer;
+    FResultString: AnsiString;
+    FFullResult: AnsiString;
+    FAutoTLS: Boolean;
+    FFullSSL: Boolean;
+    FSeq: integer;
+    FResponseCode: integer;
+    FResponseDN: AnsiString;
+    FReferals: TStringList;
+    FVersion: integer;
+    FSearchScope: TLDAPSearchScope;
+    FSearchAliases: TLDAPSearchAliases;
+    FSearchSizeLimit: integer;
+    FSearchTimeLimit: integer;
+    FSearchResult: TLDAPResultList;
+    FExtName: AnsiString;
+    FExtValue: AnsiString;
+    function Connect: Boolean;
+    function BuildPacket(const Value: AnsiString): AnsiString;
+    function ReceiveResponse: AnsiString;
+    function DecodeResponse(const Value: AnsiString): AnsiString;
+    function LdapSasl(Value: AnsiString): AnsiString;
+    function TranslateFilter(Value: AnsiString): AnsiString;
+    function GetErrorString(Value: integer): AnsiString;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Try to connect to LDAP server and start secure channel, when it is required.}
+    function Login: Boolean;
+
+    {:Try to bind to LDAP server with @link(TSynaClient.Username) and
+     @link(TSynaClient.Password). If this is empty strings, then it do annonymous
+     Bind. When you not call Bind on LDAPv3, then is automaticly used anonymous
+     mode.
+
+     This method using plaintext transport of password! It is not secure!}
+    function Bind: Boolean;
+
+    {:Try to bind to LDAP server with @link(TSynaClient.Username) and
+     @link(TSynaClient.Password). If this is empty strings, then it do annonymous
+     Bind. When you not call Bind on LDAPv3, then is automaticly used anonymous
+     mode.
+
+     This method using SASL with DIGEST-MD5 method for secure transfer of your
+     password.}
+    function BindSasl: Boolean;
+
+    {:Close connection to LDAP server.}
+    function Logout: Boolean;
+
+    {:Modify content of LDAP attribute on this object.}
+    function Modify(obj: AnsiString; Op: TLDAPModifyOp; const Value: TLDAPAttribute): Boolean;
+
+    {:Add list of attributes to specified object.}
+    function Add(obj: AnsiString; const Value: TLDAPAttributeList): Boolean;
+
+    {:Delete this LDAP object from server.}
+    function Delete(obj: AnsiString): Boolean;
+
+    {:Modify object name of this LDAP object.}
+    function ModifyDN(obj, newRDN, newSuperior: AnsiString; DeleteoldRDN: Boolean): Boolean;
+
+    {:Try to compare Attribute value with this LDAP object.}
+    function Compare(obj, AttributeValue: AnsiString): Boolean;
+
+    {:Search LDAP base for LDAP objects by Filter.}
+    function Search(obj: AnsiString; TypesOnly: Boolean; Filter: AnsiString;
+      const Attributes: TStrings): Boolean;
+
+    {:Call any LDAPv3 extended command.}
+    function Extended(const Name, Value: AnsiString): Boolean;
+
+    {:Try to start SSL/TLS connection to LDAP server.}
+    function StartTLS: Boolean;
+  published
+    {:Specify version of used LDAP protocol. Default value is 3.}
+    property Version: integer read FVersion Write FVersion;
+
+    {:Result code of last LDAP operation.}
+    property ResultCode: Integer read FResultCode;
+
+    {:Human readable description of result code of last LDAP operation.}
+    property ResultString: AnsiString read FResultString;
+
+    {:Binary string with full last response of LDAP server. This string is
+     encoded by ASN.1 BER encoding! You need this only for debugging.}
+    property FullResult: AnsiString read FFullResult;
+
+    {:If @true, then try to start TSL mode in Login procedure.}
+    property AutoTLS: Boolean read FAutoTLS Write FAutoTLS;
+
+    {:If @true, then use connection to LDAP server through SSL/TLS tunnel.}
+    property FullSSL: Boolean read FFullSSL Write FFullSSL;
+
+    {:Sequence number of last LDAp command. It is incremented by any LDAP command.}
+    property Seq: integer read FSeq;
+
+    {:Specify what search scope is used in search command.}
+    property SearchScope: TLDAPSearchScope read FSearchScope Write FSearchScope;
+
+    {:Specify how to handle aliases in search command.}
+    property SearchAliases: TLDAPSearchAliases read FSearchAliases Write FSearchAliases;
+
+    {:Specify result size limit in search command. Value 0 means without limit.}
+    property SearchSizeLimit: integer read FSearchSizeLimit Write FSearchSizeLimit;
+
+    {:Specify search time limit in search command (seconds). Value 0 means
+     without limit.}
+    property SearchTimeLimit: integer read FSearchTimeLimit Write FSearchTimeLimit;
+
+    {:Here is result of search command.}
+    property SearchResult: TLDAPResultList read FSearchResult;
+
+    {:On each LDAP operation can LDAP server return some referals URLs. Here is
+     their list.}
+    property Referals: TStringList read FReferals;
+
+    {:When you call @link(Extended) operation, then here is result Name returned
+     by server.}
+    property ExtName: AnsiString read FExtName;
+
+    {:When you call @link(Extended) operation, then here is result Value returned
+     by server.}
+    property ExtValue: AnsiString read FExtValue;
+
+    {:TCP socket used by all LDAP operations.}
+    property Sock: TTCPBlockSocket read FSock;
+  end;
+
+{:Dump result of LDAP SEARCH into human readable form. Good for debugging.}
+function LDAPResultDump(const Value: TLDAPResultList): AnsiString;
+
+implementation
+
+{==============================================================================}
+function TLDAPAttribute.Get(Index: integer): string;
+begin
+  Result := inherited Get(Index);
+  if FIsbinary then
+    Result := DecodeBase64(Result);
+end;
+
+procedure TLDAPAttribute.Put(Index: integer; const Value: string);
+var
+  s: AnsiString;
+begin
+  s := Value;
+  if FIsbinary then
+    s := EncodeBase64(Value)
+  else
+    s :=UnquoteStr(s, '"');
+  inherited Put(Index, s);
+end;
+
+procedure TLDAPAttribute.SetAttributeName(Value: AnsiString);
+begin
+  FAttributeName := Value;
+  FIsBinary := Pos(';binary', Lowercase(value)) > 0;
+end;
+
+{==============================================================================}
+constructor TLDAPAttributeList.Create;
+begin
+  inherited Create;
+  FAttributeList := TList.Create;
+end;
+
+destructor TLDAPAttributeList.Destroy;
+begin
+  Clear;
+  FAttributeList.Free;
+  inherited Destroy;
+end;
+
+procedure TLDAPAttributeList.Clear;
+var
+  n: integer;
+  x: TLDAPAttribute;
+begin
+  for n := Count - 1 downto 0 do
+  begin
+    x := GetAttribute(n);
+    if Assigned(x) then
+      x.Free;
+  end;
+  FAttributeList.Clear;
+end;
+
+function TLDAPAttributeList.Count: integer;
+begin
+  Result := FAttributeList.Count;
+end;
+
+function TLDAPAttributeList.GetAttribute(Index: integer): TLDAPAttribute;
+begin
+  Result := nil;
+  if Index < Count then
+    Result := TLDAPAttribute(FAttributeList[Index]);
+end;
+
+function TLDAPAttributeList.Add: TLDAPAttribute;
+begin
+  Result := TLDAPAttribute.Create;
+  FAttributeList.Add(Result);
+end;
+
+procedure TLDAPAttributeList.Del(Index: integer);
+var
+  x: TLDAPAttribute;
+begin
+  x := GetAttribute(Index);
+  if Assigned(x) then
+    x.free;
+  FAttributeList.Delete(Index);
+end;
+
+function TLDAPAttributeList.Find(AttributeName: AnsiString): TLDAPAttribute;
+var
+  n: integer;
+  x: TLDAPAttribute;
+begin
+  Result := nil;
+  AttributeName := lowercase(AttributeName);
+  for n := 0 to Count - 1 do
+  begin
+    x := GetAttribute(n);
+    if Assigned(x) then
+      if lowercase(x.AttributeName) = Attributename then
+      begin
+        result := x;
+        break;
+      end;
+  end;
+end;
+
+{==============================================================================}
+constructor TLDAPResult.Create;
+begin
+  inherited Create;
+  FAttributes := TLDAPAttributeList.Create;
+end;
+
+destructor TLDAPResult.Destroy;
+begin
+  FAttributes.Free;
+  inherited Destroy;
+end;
+
+{==============================================================================}
+constructor TLDAPResultList.Create;
+begin
+  inherited Create;
+  FResultList := TList.Create;
+end;
+
+destructor TLDAPResultList.Destroy;
+begin
+  Clear;
+  FResultList.Free;
+  inherited Destroy;
+end;
+
+procedure TLDAPResultList.Clear;
+var
+  n: integer;
+  x: TLDAPResult;
+begin
+  for n := Count - 1 downto 0 do
+  begin
+    x := GetResult(n);
+    if Assigned(x) then
+      x.Free;
+  end;
+  FResultList.Clear;
+end;
+
+function TLDAPResultList.Count: integer;
+begin
+  Result := FResultList.Count;
+end;
+
+function TLDAPResultList.GetResult(Index: integer): TLDAPResult;
+begin
+  Result := nil;
+  if Index < Count then
+    Result := TLDAPResult(FResultList[Index]);
+end;
+
+function TLDAPResultList.Add: TLDAPResult;
+begin
+  Result := TLDAPResult.Create;
+  FResultList.Add(Result);
+end;
+
+{==============================================================================}
+constructor TLDAPSend.Create;
+begin
+  inherited Create;
+  FReferals := TStringList.Create;
+  FFullResult := '';
+  FSock := TTCPBlockSocket.Create;
+  FTimeout := 60000;
+  FTargetPort := cLDAPProtocol;
+  FAutoTLS := False;
+  FFullSSL := False;
+  FSeq := 0;
+  FVersion := 3;
+  FSearchScope := SS_WholeSubtree;
+  FSearchAliases := SA_Always;
+  FSearchSizeLimit := 0;
+  FSearchTimeLimit := 0;
+  FSearchResult := TLDAPResultList.Create;
+end;
+
+destructor TLDAPSend.Destroy;
+begin
+  FSock.Free;
+  FSearchResult.Free;
+  FReferals.Free;
+  inherited Destroy;
+end;
+
+function TLDAPSend.GetErrorString(Value: integer): AnsiString;
+begin
+  case Value of
+    0:
+      Result := 'Success';
+    1:
+      Result := 'Operations error';
+    2:
+      Result := 'Protocol error';
+    3:
+      Result := 'Time limit Exceeded';
+    4:
+      Result := 'Size limit Exceeded';
+    5:
+      Result := 'Compare FALSE';
+    6:
+      Result := 'Compare TRUE';
+    7:
+      Result := 'Auth method not supported';
+    8:
+      Result := 'Strong auth required';
+    9:
+      Result := '-- reserved --';
+    10:
+      Result := 'Referal';
+    11:
+      Result := 'Admin limit exceeded';
+    12:
+      Result := 'Unavailable critical extension';
+    13:
+      Result := 'Confidentality required';
+    14:
+      Result := 'Sasl bind in progress';
+    16:
+      Result := 'No such attribute';
+    17:
+      Result := 'Undefined attribute type';
+    18:
+      Result := 'Inappropriate matching';
+    19:
+      Result := 'Constraint violation';
+    20:
+      Result := 'Attribute or value exists';
+    21:
+      Result := 'Invalid attribute syntax';
+    32:
+      Result := 'No such object';
+    33:
+      Result := 'Alias problem';
+    34:
+      Result := 'Invalid DN syntax';
+    36:
+      Result := 'Alias dereferencing problem';
+    48:
+      Result := 'Inappropriate authentication';
+    49:
+      Result := 'Invalid credentials';
+    50:
+      Result := 'Insufficient access rights';
+    51:
+      Result := 'Busy';
+    52:
+      Result := 'Unavailable';
+    53:
+      Result := 'Unwilling to perform';
+    54:
+      Result := 'Loop detect';
+    64:
+      Result := 'Naming violation';
+    65:
+      Result := 'Object class violation';
+    66:
+      Result := 'Not allowed on non leaf';
+    67:
+      Result := 'Not allowed on RDN';
+    68:
+      Result := 'Entry already exists';
+    69:
+      Result := 'Object class mods prohibited';
+    71:
+      Result := 'Affects multiple DSAs';
+    80:
+      Result := 'Other';
+  else
+    Result := '--unknown--';
+  end;
+end;
+
+function TLDAPSend.Connect: Boolean;
+begin
+  // Do not call this function! It is calling by LOGIN method!
+  FSock.CloseSocket;
+  FSock.LineBuffer := '';
+  FSeq := 0;
+  FSock.Bind(FIPInterface, cAnyPort);
+  if FSock.LastError = 0 then
+    FSock.Connect(FTargetHost, FTargetPort);
+  if FSock.LastError = 0 then
+    if FFullSSL then
+      FSock.SSLDoConnect;
+  Result := FSock.LastError = 0;
+end;
+
+function TLDAPSend.BuildPacket(const Value: AnsiString): AnsiString;
+begin
+  Inc(FSeq);
+  Result := ASNObject(ASNObject(ASNEncInt(FSeq), ASN1_INT) + Value,  ASN1_SEQ);
+end;
+
+function TLDAPSend.ReceiveResponse: AnsiString;
+var
+  x: Byte;
+  i,j: integer;
+begin
+  Result := '';
+  FFullResult := '';
+  x := FSock.RecvByte(FTimeout);
+  if x <> ASN1_SEQ then
+    Exit;
+  Result := AnsiChar(x);
+  x := FSock.RecvByte(FTimeout);
+  Result := Result + AnsiChar(x);
+  if x < $80 then
+    i := 0
+  else
+    i := x and $7F;
+  if i > 0 then
+    Result := Result + FSock.RecvBufferStr(i, Ftimeout);
+  if FSock.LastError <> 0 then
+  begin
+    Result := '';
+    Exit;
+  end;
+  //get length of LDAP packet
+  j := 2;
+  i := ASNDecLen(j, Result);
+  //retreive rest of LDAP packet
+  if i > 0 then
+    Result := Result + FSock.RecvBufferStr(i, Ftimeout);
+  if FSock.LastError <> 0 then
+  begin
+    Result := '';
+    Exit;
+  end;
+  FFullResult := Result;
+end;
+
+function TLDAPSend.DecodeResponse(const Value: AnsiString): AnsiString;
+var
+  i, x: integer;
+  Svt: Integer;
+  s, t: AnsiString;
+begin
+  Result := '';
+  FResultCode := -1;
+  FResultstring := '';
+  FResponseCode := -1;
+  FResponseDN := '';
+  FReferals.Clear;
+  i := 1;
+  ASNItem(i, Value, Svt);
+  x := StrToIntDef(ASNItem(i, Value, Svt), 0);
+  if (svt <> ASN1_INT) or (x <> FSeq) then
+    Exit;
+  s := ASNItem(i, Value, Svt);
+  FResponseCode := svt;
+  if FResponseCode in [LDAP_ASN1_BIND_RESPONSE, LDAP_ASN1_SEARCH_DONE,
+    LDAP_ASN1_MODIFY_RESPONSE, LDAP_ASN1_ADD_RESPONSE, LDAP_ASN1_DEL_RESPONSE,
+    LDAP_ASN1_MODIFYDN_RESPONSE, LDAP_ASN1_COMPARE_RESPONSE,
+    LDAP_ASN1_EXT_RESPONSE] then
+  begin
+    FResultCode := StrToIntDef(ASNItem(i, Value, Svt), -1);
+    FResponseDN := ASNItem(i, Value, Svt);
+    FResultString := ASNItem(i, Value, Svt);
+    if FResultString = '' then
+      FResultString := GetErrorString(FResultCode);
+    if FResultCode = 10 then
+    begin
+      s := ASNItem(i, Value, Svt);
+      if svt = $A3 then
+      begin
+        x := 1;
+        while x < Length(s) do
+        begin
+          t := ASNItem(x, s, Svt);
+          FReferals.Add(t);
+        end;
+      end;
+    end;
+  end;
+  Result := Copy(Value, i, Length(Value) - i + 1);
+end;
+
+function TLDAPSend.LdapSasl(Value: AnsiString): AnsiString;
+var
+  nonce, cnonce, nc, realm, qop, uri, response: AnsiString;
+  s: AnsiString;
+  a1, a2: AnsiString;
+  l: TStringList;
+  n: integer;
+begin
+  l := TStringList.Create;
+  try
+    nonce := '';
+    realm := '';
+    l.CommaText := Value;
+    n := IndexByBegin('nonce=', l);
+    if n >= 0 then
+      nonce := UnQuoteStr(Trim(SeparateRight(l[n], 'nonce=')), '"');
+    n := IndexByBegin('realm=', l);
+    if n >= 0 then
+      realm := UnQuoteStr(Trim(SeparateRight(l[n], 'realm=')), '"');
+    cnonce := IntToHex(GetTick, 8);
+    nc := '00000001';
+    qop := 'auth';
+    uri := 'ldap/' + FSock.ResolveIpToName(FSock.GetRemoteSinIP);
+    a1 := md5(FUsername + ':' + realm + ':' + FPassword)
+      + ':' + nonce + ':' + cnonce;
+    a2 := 'AUTHENTICATE:' + uri;
+    s := strtohex(md5(a1))+':' + nonce + ':' + nc + ':' + cnonce + ':'
+      + qop +':'+strtohex(md5(a2));
+    response := strtohex(md5(s));
+
+    Result := 'username="' + Fusername + '",realm="' + realm + '",nonce="';
+    Result := Result + nonce + '",cnonce="' + cnonce + '",nc=' + nc + ',qop=';
+    Result := Result + qop + ',digest-uri="' + uri + '",response=' + response;
+  finally
+    l.Free;
+  end;
+end;
+
+function TLDAPSend.TranslateFilter(Value: AnsiString): AnsiString;
+var
+  x: integer;
+  s, t, l: AnsiString;
+  r: string;
+  c: Ansichar;
+  attr, rule: AnsiString;
+  dn: Boolean;
+begin
+  Result := '';
+  if Value = '' then
+    Exit;
+  s := Value;
+  if Value[1] = '(' then
+  begin
+    x := RPos(')', Value);
+    s := Copy(Value, 2, x - 2);
+  end;
+  if s = '' then
+    Exit;
+  case s[1] of
+    '!':
+      // NOT rule (recursive call)
+      begin
+        Result := ASNOBject(TranslateFilter(GetBetween('(', ')', s)), $A2);
+      end;
+    '&':
+      // AND rule (recursive call)
+      begin
+        repeat
+          t := GetBetween('(', ')', s);
+          s := Trim(SeparateRight(s, t));
+          if s <> '' then
+            if s[1] = ')' then
+              {$IFDEF CIL}Borland.Delphi.{$ENDIF}System.Delete(s, 1, 1);
+          Result := Result + TranslateFilter(t);
+        until s = '';
+        Result := ASNOBject(Result, $A0);
+      end;
+    '|':
+      // OR rule (recursive call)
+      begin
+        repeat
+          t := GetBetween('(', ')', s);
+          s := Trim(SeparateRight(s, t));
+          if s <> '' then
+            if s[1] = ')' then
+              {$IFDEF CIL}Borland.Delphi.{$ENDIF}System.Delete(s, 1, 1);
+          Result := Result + TranslateFilter(t);
+        until s = '';
+        Result := ASNOBject(Result, $A1);
+      end;
+    else
+      begin
+        l := Trim(SeparateLeft(s, '='));
+        r := Trim(SeparateRight(s, '='));
+        if l <> '' then
+        begin
+          c := l[Length(l)];
+          case c of
+            ':':
+              // Extensible match
+              begin
+                {$IFDEF CIL}Borland.Delphi.{$ENDIF}System.Delete(l, Length(l), 1);
+                dn := False;
+                attr := '';
+                rule := '';
+                if Pos(':dn', l) > 0 then
+                begin
+                  dn := True;
+                  l := ReplaceString(l, ':dn', '');
+                end;
+                attr := Trim(SeparateLeft(l, ':'));
+                rule := Trim(SeparateRight(l, ':'));
+                if rule = l then
+                  rule := '';
+                if rule <> '' then
+                  Result := ASNObject(rule, $81);
+                if attr <> '' then
+                  Result := Result + ASNObject(attr, $82);
+                Result := Result + ASNObject(DecodeTriplet(r, '\'), $83);
+                if dn then
+                  Result := Result + ASNObject(AsnEncInt($ff), $84)
+                else
+                  Result := Result + ASNObject(AsnEncInt(0), $84);
+                Result := ASNOBject(Result, $a9);
+              end;
+            '~':
+              // Approx match
+              begin
+                {$IFDEF CIL}Borland.Delphi.{$ENDIF}System.Delete(l, Length(l), 1);
+                Result := ASNOBject(l, ASN1_OCTSTR)
+                  + ASNOBject(DecodeTriplet(r, '\'), ASN1_OCTSTR);
+                Result := ASNOBject(Result, $a8);
+              end;
+            '>':
+              // Greater or equal match
+              begin
+                {$IFDEF CIL}Borland.Delphi.{$ENDIF}System.Delete(l, Length(l), 1);
+                Result := ASNOBject(l, ASN1_OCTSTR)
+                  + ASNOBject(DecodeTriplet(r, '\'), ASN1_OCTSTR);
+                Result := ASNOBject(Result, $a5);
+              end;
+            '<':
+              // Less or equal match
+              begin
+                {$IFDEF CIL}Borland.Delphi.{$ENDIF}System.Delete(l, Length(l), 1);
+                Result := ASNOBject(l, ASN1_OCTSTR)
+                  + ASNOBject(DecodeTriplet(r, '\'), ASN1_OCTSTR);
+                Result := ASNOBject(Result, $a6);
+              end;
+          else
+            // present
+            if r = '*' then
+              Result := ASNOBject(l, $87)
+            else
+              if Pos('*', r) > 0 then
+              // substrings
+              begin
+                s := Fetch(r, '*');
+                if s <> '' then
+                  Result := ASNOBject(DecodeTriplet(s, '\'), $80);
+                while r <> '' do
+                begin
+                  if Pos('*', r) <= 0 then
+                    break;
+                  s := Fetch(r, '*');
+                  Result := Result + ASNOBject(DecodeTriplet(s, '\'), $81);
+                end;
+                if r <> '' then
+                  Result := Result + ASNOBject(DecodeTriplet(r, '\'), $82);
+                Result := ASNOBject(l, ASN1_OCTSTR)
+                  + ASNOBject(Result, ASN1_SEQ);
+                Result := ASNOBject(Result, $a4);
+              end
+              else
+              begin
+                // Equality match
+                Result := ASNOBject(l, ASN1_OCTSTR)
+                  + ASNOBject(DecodeTriplet(r, '\'), ASN1_OCTSTR);
+                Result := ASNOBject(Result, $a3);
+              end;
+          end;
+        end;
+      end;
+  end;
+end;
+
+function TLDAPSend.Login: Boolean;
+begin
+  Result := False;
+  if not Connect then
+    Exit;
+  Result := True;
+  if FAutoTLS then
+    Result := StartTLS;
+end;
+
+function TLDAPSend.Bind: Boolean;
+var
+  s: AnsiString;
+begin
+  s := ASNObject(ASNEncInt(FVersion), ASN1_INT)
+    + ASNObject(FUsername, ASN1_OCTSTR)
+    + ASNObject(FPassword, $80);
+  s := ASNObject(s, LDAP_ASN1_BIND_REQUEST);
+  Fsock.SendString(BuildPacket(s));
+  s := ReceiveResponse;
+  DecodeResponse(s);
+  Result := FResultCode = 0;
+end;
+
+function TLDAPSend.BindSasl: Boolean;
+var
+  s, t: AnsiString;
+  x, xt: integer;
+  digreq: AnsiString;
+begin
+  Result := False;
+  if FPassword = '' then
+    Result := Bind
+  else
+  begin
+    digreq := ASNObject(ASNEncInt(FVersion), ASN1_INT)
+      + ASNObject('', ASN1_OCTSTR)
+      + ASNObject(ASNObject('DIGEST-MD5', ASN1_OCTSTR), $A3);
+    digreq := ASNObject(digreq, LDAP_ASN1_BIND_REQUEST);
+    Fsock.SendString(BuildPacket(digreq));
+    s := ReceiveResponse;
+    t := DecodeResponse(s);
+    if FResultCode = 14 then
+    begin
+      s := t;
+      x := 1;
+      t := ASNItem(x, s, xt);
+      s := ASNObject(ASNEncInt(FVersion), ASN1_INT)
+        + ASNObject('', ASN1_OCTSTR)
+        + ASNObject(ASNObject('DIGEST-MD5', ASN1_OCTSTR)
+          + ASNObject(LdapSasl(t), ASN1_OCTSTR), $A3);
+      s := ASNObject(s, LDAP_ASN1_BIND_REQUEST);
+      Fsock.SendString(BuildPacket(s));
+      s := ReceiveResponse;
+      DecodeResponse(s);
+      if FResultCode = 14 then
+      begin
+        Fsock.SendString(BuildPacket(digreq));
+        s := ReceiveResponse;
+        DecodeResponse(s);
+      end;
+      Result := FResultCode = 0;
+    end;
+  end;
+end;
+
+function TLDAPSend.Logout: Boolean;
+begin
+  Fsock.SendString(BuildPacket(ASNObject('', LDAP_ASN1_UNBIND_REQUEST)));
+  FSock.CloseSocket;
+  Result := True;
+end;
+
+function TLDAPSend.Modify(obj: AnsiString; Op: TLDAPModifyOp; const Value: TLDAPAttribute): Boolean;
+var
+  s: AnsiString;
+  n: integer;
+begin
+  s := '';
+  for n := 0 to Value.Count -1 do
+    s := s + ASNObject(Value[n], ASN1_OCTSTR);
+  s := ASNObject(Value.AttributeName, ASN1_OCTSTR) + ASNObject(s, ASN1_SETOF);
+  s := ASNObject(ASNEncInt(Ord(Op)), ASN1_ENUM) + ASNObject(s, ASN1_SEQ);
+  s := ASNObject(s, ASN1_SEQ);
+  s := ASNObject(obj, ASN1_OCTSTR) + ASNObject(s, ASN1_SEQ);
+  s := ASNObject(s, LDAP_ASN1_MODIFY_REQUEST);
+  Fsock.SendString(BuildPacket(s));
+  s := ReceiveResponse;
+  DecodeResponse(s);
+  Result := FResultCode = 0;
+end;
+
+function TLDAPSend.Add(obj: AnsiString; const Value: TLDAPAttributeList): Boolean;
+var
+  s, t: AnsiString;
+  n, m: integer;
+begin
+  s := '';
+  for n := 0 to Value.Count - 1 do
+  begin
+    t := '';
+    for m := 0 to Value[n].Count - 1 do
+      t := t + ASNObject(Value[n][m], ASN1_OCTSTR);
+    t := ASNObject(Value[n].AttributeName, ASN1_OCTSTR)
+      + ASNObject(t, ASN1_SETOF);
+    s := s + ASNObject(t, ASN1_SEQ);
+  end;
+  s := ASNObject(obj, ASN1_OCTSTR) + ASNObject(s, ASN1_SEQ);
+  s := ASNObject(s, LDAP_ASN1_ADD_REQUEST);
+  Fsock.SendString(BuildPacket(s));
+  s := ReceiveResponse;
+  DecodeResponse(s);
+  Result := FResultCode = 0;
+end;
+
+function TLDAPSend.Delete(obj: AnsiString): Boolean;
+var
+  s: AnsiString;
+begin
+  s := ASNObject(obj, LDAP_ASN1_DEL_REQUEST);
+  Fsock.SendString(BuildPacket(s));
+  s := ReceiveResponse;
+  DecodeResponse(s);
+  Result := FResultCode = 0;
+end;
+
+function TLDAPSend.ModifyDN(obj, newRDN, newSuperior: AnsiString; DeleteOldRDN: Boolean): Boolean;
+var
+  s: AnsiString;
+begin
+  s := ASNObject(obj, ASN1_OCTSTR) + ASNObject(newRDN, ASN1_OCTSTR);
+  if DeleteOldRDN then
+    s := s + ASNObject(ASNEncInt($ff), ASN1_BOOL)
+  else
+    s := s + ASNObject(ASNEncInt(0), ASN1_BOOL);
+  if newSuperior <> '' then
+    s := s + ASNObject(newSuperior, $80);
+  s := ASNObject(s, LDAP_ASN1_MODIFYDN_REQUEST);
+  Fsock.SendString(BuildPacket(s));
+  s := ReceiveResponse;
+  DecodeResponse(s);
+  Result := FResultCode = 0;
+end;
+
+function TLDAPSend.Compare(obj, AttributeValue: AnsiString): Boolean;
+var
+  s: AnsiString;
+begin
+  s := ASNObject(Trim(SeparateLeft(AttributeValue, '=')), ASN1_OCTSTR)
+    + ASNObject(Trim(SeparateRight(AttributeValue, '=')), ASN1_OCTSTR);
+  s := ASNObject(obj, ASN1_OCTSTR) + ASNObject(s, ASN1_SEQ);
+  s := ASNObject(s, LDAP_ASN1_COMPARE_REQUEST);
+  Fsock.SendString(BuildPacket(s));
+  s := ReceiveResponse;
+  DecodeResponse(s);
+  Result := FResultCode = 0;
+end;
+
+function TLDAPSend.Search(obj: AnsiString; TypesOnly: Boolean; Filter: AnsiString;
+  const Attributes: TStrings): Boolean;
+var
+  s, t, u: AnsiString;
+  n, i, x: integer;
+  r: TLDAPResult;
+  a: TLDAPAttribute;
+begin
+  FSearchResult.Clear;
+  FReferals.Clear;
+  s := ASNObject(obj, ASN1_OCTSTR);
+  s := s + ASNObject(ASNEncInt(Ord(FSearchScope)), ASN1_ENUM);
+  s := s + ASNObject(ASNEncInt(Ord(FSearchAliases)), ASN1_ENUM);
+  s := s + ASNObject(ASNEncInt(FSearchSizeLimit), ASN1_INT);
+  s := s + ASNObject(ASNEncInt(FSearchTimeLimit), ASN1_INT);
+  if TypesOnly then
+    s := s + ASNObject(ASNEncInt($ff), ASN1_BOOL)
+  else
+    s := s + ASNObject(ASNEncInt(0), ASN1_BOOL);
+  if Filter = '' then
+    Filter := '(objectclass=*)';
+  t := TranslateFilter(Filter);
+  if t = '' then
+    s := s + ASNObject('', ASN1_NULL)
+  else
+    s := s + t;
+  t := '';
+  for n := 0 to Attributes.Count - 1 do
+    t := t + ASNObject(Attributes[n], ASN1_OCTSTR);
+  s := s + ASNObject(t, ASN1_SEQ);
+  s := ASNObject(s, LDAP_ASN1_SEARCH_REQUEST);
+  Fsock.SendString(BuildPacket(s));
+  repeat
+    s := ReceiveResponse;
+    t := DecodeResponse(s);
+    if FResponseCode = LDAP_ASN1_SEARCH_ENTRY then
+    begin
+      //dekoduj zaznam
+      r := FSearchResult.Add;
+      n := 1;
+      r.ObjectName := ASNItem(n, t, x);
+      ASNItem(n, t, x);
+      if x = ASN1_SEQ then
+      begin
+        while n < Length(t) do
+        begin
+          s := ASNItem(n, t, x);
+          if x = ASN1_SEQ then
+          begin
+            i := n + Length(s);
+            a := r.Attributes.Add;
+            u := ASNItem(n, t, x);
+            a.AttributeName := u;
+            ASNItem(n, t, x);
+            if x = ASN1_SETOF then
+              while n < i do
+              begin
+                u := ASNItem(n, t, x);
+                a.Add(u);
+              end;
+          end;
+        end;
+      end;
+    end;
+    if FResponseCode = LDAP_ASN1_SEARCH_REFERENCE then
+    begin
+      n := 1;
+      while n < Length(t) do
+        FReferals.Add(ASNItem(n, t, x));
+    end;
+  until FResponseCode = LDAP_ASN1_SEARCH_DONE;
+  Result := FResultCode = 0;
+end;
+
+function TLDAPSend.Extended(const Name, Value: AnsiString): Boolean;
+var
+  s, t: AnsiString;
+  x, xt: integer;
+begin
+  s := ASNObject(Name, $80);
+  if Value <> '' then
+    s := s + ASNObject(Value, $81);
+  s := ASNObject(s, LDAP_ASN1_EXT_REQUEST);
+  Fsock.SendString(BuildPacket(s));
+  s := ReceiveResponse;
+  t := DecodeResponse(s);
+  Result := FResultCode = 0;
+  if Result then
+  begin
+    x := 1;
+    FExtName := ASNItem(x, t, xt);
+    FExtValue := ASNItem(x, t, xt);
+  end;
+end;
+
+
+function TLDAPSend.StartTLS: Boolean;
+begin
+  Result := Extended('1.3.6.1.4.1.1466.20037', '');
+  if Result then
+  begin
+    Fsock.SSLDoConnect;
+    Result := FSock.LastError = 0;
+  end;
+end;
+
+{==============================================================================}
+function LDAPResultDump(const Value: TLDAPResultList): AnsiString;
+var
+  n, m, o: integer;
+  r: TLDAPResult;
+  a: TLDAPAttribute;
+begin
+  Result := 'Results: ' + IntToStr(Value.Count) + CRLF +CRLF;
+  for n := 0 to Value.Count - 1 do
+  begin
+    Result := Result + 'Result: ' + IntToStr(n) + CRLF;
+    r := Value[n];
+    Result := Result + '  Object: ' + r.ObjectName + CRLF;
+    for m := 0 to r.Attributes.Count - 1 do
+    begin
+      a := r.Attributes[m];
+      Result := Result + '  Attribute: ' + a.AttributeName + CRLF;
+      for o := 0 to a.Count - 1 do
+        Result := Result + '    ' + a[o] + CRLF;
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimeinln.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimeinln.pas
new file mode 100644
index 0000000..4f0331a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimeinln.pas	
@@ -0,0 +1,258 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.011 |
+|==============================================================================|
+| Content: Inline MIME support procedures and functions                        |
+|==============================================================================|
+| Copyright (c)1999-2006, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2006.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(Utilities for inline MIME)
+Support for Inline MIME encoding and decoding.
+
+Used RFC: RFC-2047, RFC-2231
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit mimeinln;
+
+interface
+
+uses
+  SysUtils, Classes,
+  synachar, synacode, synautil;
+
+{:Decodes mime inline encoding (i.e. in headers) uses target characterset "CP".}
+function InlineDecode(const Value: string; CP: TMimeChar): string;
+
+{:Encodes string to MIME inline encoding. The source characterset is "CP", and
+ the target charset is "MimeP".}
+function InlineEncode(const Value: string; CP, MimeP: TMimeChar): string;
+
+{:Returns @true, if "Value" contains characters needed for inline coding.}
+function NeedInline(const Value: AnsiString): boolean;
+
+{:Inline mime encoding similar to @link(InlineEncode), but you can specify
+ source charset, and the target characterset is automatically assigned.}
+function InlineCodeEx(const Value: string; FromCP: TMimeChar): string;
+
+{:Inline MIME encoding similar to @link(InlineEncode), but the source charset
+ is automatically set to the system default charset, and the target charset is
+ automatically assigned from set of allowed encoding for MIME.}
+function InlineCode(const Value: string): string;
+
+{:Converts e-mail address to canonical mime form. You can specify source charset.}
+function InlineEmailEx(const Value: string; FromCP: TMimeChar): string;
+
+{:Converts e-mail address to canonical mime form. Source charser it system
+ default charset.}
+function InlineEmail(const Value: string): string;
+
+implementation
+
+{==============================================================================}
+
+function InlineDecode(const Value: string; CP: TMimeChar): string;
+var
+  s, su, v: string;
+  x, y, z, n: Integer;
+  ichar: TMimeChar;
+  c: Char;
+
+  function SearchEndInline(const Value: string; be: Integer): Integer;
+  var
+    n, q: Integer;
+  begin
+    q := 0;
+    Result := 0;
+    for n := be + 2 to Length(Value) - 1 do
+      if Value[n] = '?' then
+      begin
+        Inc(q);
+        if (q > 2) and (Value[n + 1] = '=') then
+        begin
+          Result := n;
+          Break;
+        end;
+      end;
+  end;
+
+begin
+  Result := '';
+  v := Value;
+  x := Pos('=?', v);
+  y := SearchEndInline(v, x);
+  //fix for broken coding with begin, but not with end.
+  if (x > 0) and (y <= 0) then
+    y := Length(Result);
+  while (y > x) and (x > 0) do
+  begin
+    s := Copy(v, 1, x - 1);
+    if Trim(s) <> '' then
+      Result := Result + s;
+    s := Copy(v, x, y - x + 2);
+    Delete(v, 1, y + 1);
+    su := Copy(s, 3, Length(s) - 4);
+    z := Pos('?', su);
+    if (Length(su) >= (z + 2)) and (su[z + 2] = '?') then
+    begin
+      ichar := GetCPFromID(SeparateLeft(Copy(su, 1, z - 1), '*'));
+      c := UpperCase(su)[z + 1];
+      su := Copy(su, z + 3, Length(su) - z - 2);
+      if c = 'B' then
+      begin
+        s := DecodeBase64(su);
+        s := CharsetConversion(s, ichar, CP);
+      end;
+      if c = 'Q' then
+      begin
+        s := '';
+        for n := 1 to Length(su) do
+          if su[n] = '_' then
+            s := s + ' '
+          else
+            s := s + su[n];
+        s := DecodeQuotedPrintable(s);
+        s := CharsetConversion(s, ichar, CP);
+      end;
+    end;
+    Result := Result + s;
+    x := Pos('=?', v);
+    y := SearchEndInline(v, x);
+  end;
+  Result := Result + v;
+end;
+
+{==============================================================================}
+
+function InlineEncode(const Value: string; CP, MimeP: TMimeChar): string;
+var
+  s, s1, e: string;
+  n: Integer;
+begin
+  s := CharsetConversion(Value, CP, MimeP);
+  s := EncodeSafeQuotedPrintable(s);
+  e := GetIdFromCP(MimeP);
+  s1 := '';
+  Result := '';
+  for n := 1 to Length(s) do
+    if s[n] = ' ' then
+    begin
+//      s1 := s1 + '=20';
+      s1 := s1 + '_';
+      if Length(s1) > 32 then
+      begin
+        if Result <> '' then
+          Result := Result + ' ';
+        Result := Result + '=?' + e + '?Q?' + s1 + '?=';
+        s1 := '';
+      end;
+    end
+    else
+      s1 := s1 + s[n];
+  if s1 <> '' then
+  begin
+    if Result <> '' then
+      Result := Result + ' ';
+    Result := Result + '=?' + e + '?Q?' + s1 + '?=';
+  end;
+end;
+
+{==============================================================================}
+
+function NeedInline(const Value: AnsiString): boolean;
+var
+  n: Integer;
+begin
+  Result := False;
+  for n := 1 to Length(Value) do
+    if Value[n] in (SpecialChar + NonAsciiChar - ['_']) then
+    begin
+      Result := True;
+      Break;
+    end;
+end;
+
+{==============================================================================}
+
+function InlineCodeEx(const Value: string; FromCP: TMimeChar): string;
+var
+  c: TMimeChar;
+begin
+  if NeedInline(Value) then
+  begin
+    c := IdealCharsetCoding(Value, FromCP, IdealCharsets);
+    Result := InlineEncode(Value, FromCP, c);
+  end
+  else
+    Result := Value;
+end;
+
+{==============================================================================}
+
+function InlineCode(const Value: string): string;
+begin
+  Result := InlineCodeEx(Value, GetCurCP);
+end;
+
+{==============================================================================}
+
+function InlineEmailEx(const Value: string; FromCP: TMimeChar): string;
+var
+  sd, se: string;
+begin
+  sd := GetEmailDesc(Value);
+  se := GetEmailAddr(Value);
+  if sd = '' then
+    Result := se
+  else
+    Result := '"' + InlineCodeEx(sd, FromCP) + '" <' + se + '>';
+end;
+
+{==============================================================================}
+
+function InlineEmail(const Value: string): string;
+begin
+  Result := InlineEmailEx(Value, GetCurCP);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimemess.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimemess.pas
new file mode 100644
index 0000000..261c942
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimemess.pas	
@@ -0,0 +1,824 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 002.005.002 |
+|==============================================================================|
+| Content: MIME message object                                                 |
+|==============================================================================|
+| Copyright (c)1999-2006, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2006.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM From distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(MIME message handling)
+Classes for easy handling with e-mail message.
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit mimemess;
+
+interface
+
+uses
+  Classes, SysUtils,
+  mimepart, synachar, synautil, mimeinln;
+
+type
+
+  {:Possible values for message priority}
+  TMessPriority = (MP_unknown, MP_low, MP_normal, MP_high);
+
+  {:@abstract(Object for basic e-mail header fields.)}
+  TMessHeader = class(TObject)
+  private
+    FFrom: string;
+    FToList: TStringList;
+    FCCList: TStringList;
+    FSubject: string;
+    FOrganization: string;
+    FCustomHeaders: TStringList;
+    FDate: TDateTime;
+    FXMailer: string;
+    FCharsetCode: TMimeChar;
+    FReplyTo: string;
+    FMessageID: string;
+    FPriority: TMessPriority;
+    Fpri: TMessPriority;
+    Fxpri: TMessPriority;
+    Fxmspri: TMessPriority;
+  protected
+    function ParsePriority(value: string): TMessPriority;
+    function DecodeHeader(value: string): boolean; virtual;
+  public
+    constructor Create; virtual;
+    destructor Destroy; override;
+
+    {:Clears all data fields.}
+    procedure Clear; virtual;
+
+    {Add headers from from this object to Value.}
+    procedure EncodeHeaders(const Value: TStrings); virtual;
+
+    {:Parse header from Value to this object.}
+    procedure DecodeHeaders(const Value: TStrings);
+
+    {:Try find specific header in CustomHeader. Search is case insensitive.
+     This is good for reading any non-parsed header.}
+    function FindHeader(Value: string): string;
+
+    {:Try find specific headers in CustomHeader. This metod is for repeatly used
+     headers like 'received' header, etc. Search is case insensitive.
+     This is good for reading ano non-parsed header.}
+    procedure FindHeaderList(Value: string; const HeaderList: TStrings);
+  published
+    {:Sender of message.}
+    property From: string read FFrom Write FFrom;
+
+    {:Stringlist with receivers of message. (one per line)}
+    property ToList: TStringList read FToList;
+
+    {:Stringlist with Carbon Copy receivers of message. (one per line)}
+    property CCList: TStringList read FCCList;
+
+    {:Subject of message.}
+    property Subject: string read FSubject Write FSubject;
+
+    {:Organization string.}
+    property Organization: string read FOrganization Write FOrganization;
+
+    {:After decoding contains all headers lines witch not have parsed to any
+     other structures in this object. It mean: this conatins all other headers
+     except:
+
+     X-MAILER, FROM, SUBJECT, ORGANIZATION, TO, CC, DATE, MIME-VERSION,
+     CONTENT-TYPE, CONTENT-DESCRIPTION, CONTENT-DISPOSITION, CONTENT-ID,
+     CONTENT-TRANSFER-ENCODING, REPLY-TO, MESSAGE-ID, X-MSMAIL-PRIORITY,
+     X-PRIORITY, PRIORITY
+
+     When you encode headers, all this lines is added as headers. Be carefull
+     for duplicites!}
+    property CustomHeaders: TStringList read FCustomHeaders;
+
+    {:Date and time of message.}
+    property Date: TDateTime read FDate Write FDate;
+
+    {:Mailer identification.}
+    property XMailer: string read FXMailer Write FXMailer;
+
+    {:Address for replies}
+    property ReplyTo: string read FReplyTo Write FReplyTo;
+
+    {:message indetifier}
+    property MessageID: string read FMessageID Write FMessageID;
+
+    {:message priority}
+    property Priority: TMessPriority read FPriority Write FPriority;
+
+    {:Specify base charset. By default is used system charset.}
+    property CharsetCode: TMimeChar read FCharsetCode Write FCharsetCode;
+  end;
+
+  TMessHeaderClass = class of TMessHeader;
+
+  {:@abstract(Object for handling of e-mail message.)}
+  TMimeMess = class(TObject)
+  private
+    FMessagePart: TMimePart;
+    FLines: TStringList;
+    FHeader: TMessHeader;
+  public
+    constructor Create;
+    {:create this object and assign your own descendant of @link(TMessHeader)
+     object to @link(header) property. So, you can create your own message
+     headers parser and use it by this object.}
+    constructor CreateAltHeaders(HeadClass: TMessHeaderClass);
+    destructor Destroy; override;
+
+    {:Reset component to default state.}
+    procedure Clear; virtual;
+
+    {:Add MIME part as subpart of PartParent. If you need set root MIME part,
+     then set as PartParent @NIL value. If you need set more then one subpart,
+     you must have PartParent of multipart type!}
+    function AddPart(const PartParent: TMimePart): TMimePart;
+
+    {:Add MIME part as subpart of PartParent. If you need set root MIME part,
+     then set as PartParent @NIL value. If you need set more then 1 subpart, you
+     must have PartParent of multipart type!
+
+     This part is marked as multipart with secondary MIME type specified by
+     MultipartType parameter. (typical value is 'mixed')
+
+     This part can be used as PartParent for another parts (include next
+     multipart). If you need only one part, then you not need Multipart part.}
+    function AddPartMultipart(const MultipartType: String; const PartParent: TMimePart): TMimePart;
+
+    {:Add MIME part as subpart of PartParent. If you need set root MIME part,
+     then set as PartParent @NIL value. If you need set more then 1 subpart, you
+     must have PartParent of multipart type!
+
+     After creation of part set type to text part and set all necessary
+     properties. Content of part is readed from value stringlist.}
+    function AddPartText(const Value: TStrings; const PartParent: TMimePart): TMimepart;
+
+    {:Add MIME part as subpart of PartParent. If you need set root MIME part,
+     then set as PartParent @NIL value. If you need set more then 1 subpart, you
+     must have PartParent of multipart type!
+
+     After creation of part set type to text part and set all necessary
+     properties. Content of part is readed from value stringlist. You can select
+     your charset and your encoding type. If Raw is @true, then it not doing
+     charset conversion!}
+    function AddPartTextEx(const Value: TStrings; const PartParent: TMimePart;
+      PartCharset: TMimeChar; Raw: Boolean; PartEncoding: TMimeEncoding): TMimepart;
+
+    {:Add MIME part as subpart of PartParent. If you need set root MIME part,
+     then set as PartParent @NIL value. If you need set more then 1 subpart, you
+     must have PartParent of multipart type!
+
+     After creation of part set type to text part to HTML type and set all
+     necessary properties. Content of HTML part is readed from Value stringlist.}
+    function AddPartHTML(const Value: TStrings; const PartParent: TMimePart): TMimepart;
+
+    {:Same as @link(AddPartText), but content is readed from file}
+    function AddPartTextFromFile(const FileName: String; const PartParent: TMimePart): TMimepart;
+
+    {:Same as @link(AddPartHTML), but content is readed from file}
+    function AddPartHTMLFromFile(const FileName: String; const PartParent: TMimePart): TMimepart;
+
+    {:Add MIME part as subpart of PartParent. If you need set root MIME part,
+     then set as PartParent @NIL value. If you need set more then 1 subpart,
+     you must have PartParent of multipart type!
+
+     After creation of part set type to binary and set all necessary properties.
+     MIME primary and secondary types defined automaticly by filename extension.
+     Content of binary part is readed from Stream. This binary part is encoded
+     as file attachment.}
+    function AddPartBinary(const Stream: TStream; const FileName: string; const PartParent: TMimePart): TMimepart;
+
+    {:Same as @link(AddPartBinary), but content is readed from file}
+    function AddPartBinaryFromFile(const FileName: string; const PartParent: TMimePart): TMimepart;
+
+    {:Add MIME part as subpart of PartParent. If you need set root MIME part,
+     then set as PartParent @NIL value. If you need set more then 1 subpart, you
+     must have PartParent of multipart type!
+
+     After creation of part set type to binary and set all necessary properties.
+     MIME primary and secondary types defined automaticly by filename extension.
+     Content of binary part is readed from Stream.
+
+     This binary part is encoded as inline data with given Conten ID (cid).
+     Content ID can be used as reference ID in HTML source in HTML part.}
+    function AddPartHTMLBinary(const Stream: TStream; const FileName, Cid: string; const PartParent: TMimePart): TMimepart;
+
+    {:Same as @link(AddPartHTMLBinary), but content is readed from file}
+    function AddPartHTMLBinaryFromFile(const FileName, Cid: string; const PartParent: TMimePart): TMimepart;
+
+    {:Add MIME part as subpart of PartParent. If you need set root MIME part,
+     then set as PartParent @NIL value. If you need set more then 1 subpart, you
+     must have PartParent of multipart type!
+
+     After creation of part set type to message and set all necessary properties.
+     MIME primary and secondary types are setted to 'message/rfc822'.
+     Content of raw RFC-822 message is readed from Stream.}
+    function AddPartMess(const Value: TStrings; const PartParent: TMimePart): TMimepart;
+
+    {:Same as @link(AddPartMess), but content is readed from file}
+    function AddPartMessFromFile(const FileName: string; const PartParent: TMimePart): TMimepart;
+
+    {:Compose message from @link(MessagePart) to @link(Lines). Headers from
+     @link(Header) object is added also.}
+    procedure EncodeMessage;
+
+    {:Decode message from @link(Lines) to @link(MessagePart). Massage headers
+     are parsed into @link(Header) object.}
+    procedure DecodeMessage;
+  published
+    {:@link(TMimePart) object with decoded MIME message. This object can handle
+     any number of nested @link(TMimePart) objects itself. It is used for handle
+     any tree of MIME subparts.}
+    property MessagePart: TMimePart read FMessagePart;
+
+    {:Raw MIME encoded message.}
+    property Lines: TStringList read FLines;
+
+    {:Object for e-mail header fields. This object is created automaticly.
+     Do not free this object!}
+    property Header: TMessHeader read FHeader;
+  end;
+
+implementation
+
+{==============================================================================}
+
+constructor TMessHeader.Create;
+begin
+  inherited Create;
+  FToList := TStringList.Create;
+  FCCList := TStringList.Create;
+  FCustomHeaders := TStringList.Create;
+  FCharsetCode := GetCurCP;
+end;
+
+destructor TMessHeader.Destroy;
+begin
+  FCustomHeaders.Free;
+  FCCList.Free;
+  FToList.Free;
+  inherited Destroy;
+end;
+
+{==============================================================================}
+
+procedure TMessHeader.Clear;
+begin
+  FFrom := '';
+  FToList.Clear;
+  FCCList.Clear;
+  FSubject := '';
+  FOrganization := '';
+  FCustomHeaders.Clear;
+  FDate := 0;
+  FXMailer := '';
+  FReplyTo := '';
+  FMessageID := '';
+  FPriority := MP_unknown;
+end;
+
+procedure TMessHeader.EncodeHeaders(const Value: TStrings);
+var
+  n: Integer;
+  s: string;
+begin
+  if FDate = 0 then
+    FDate := Now;
+  for n := FCustomHeaders.Count - 1 downto 0 do
+    if FCustomHeaders[n] <> '' then
+      Value.Insert(0, FCustomHeaders[n]);
+  if FPriority <> MP_unknown then
+    case FPriority of
+      MP_high:
+        begin
+          Value.Insert(0, 'X-MSMAIL-Priority: High');
+          Value.Insert(0, 'X-Priority: 1');
+          Value.Insert(0, 'Priority: urgent');
+        end;
+      MP_low:
+        begin
+          Value.Insert(0, 'X-MSMAIL-Priority: low');
+          Value.Insert(0, 'X-Priority: 5');
+          Value.Insert(0, 'Priority: non-urgent');
+        end;
+    end;
+  if FReplyTo <> '' then
+    Value.Insert(0, 'Reply-To: ' + GetEmailAddr(FReplyTo));
+  if FMessageID <> '' then
+    Value.Insert(0, 'Message-ID: <' + trim(FMessageID) + '>');
+  if FXMailer = '' then
+    Value.Insert(0, 'X-mailer: Synapse - Pascal TCP/IP library by Lukas Gebauer')
+  else
+    Value.Insert(0, 'X-mailer: ' + FXMailer);
+  Value.Insert(0, 'MIME-Version: 1.0 (produced by Synapse)');
+  if FOrganization <> '' then
+    Value.Insert(0, 'Organization: ' + InlineCodeEx(FOrganization, FCharsetCode));
+  s := '';
+  for n := 0 to FCCList.Count - 1 do
+    if s = '' then
+      s := InlineEmailEx(FCCList[n], FCharsetCode)
+    else
+      s := s + ', ' + InlineEmailEx(FCCList[n], FCharsetCode);
+  if s <> '' then
+    Value.Insert(0, 'CC: ' + s);
+  Value.Insert(0, 'Date: ' + Rfc822DateTime(FDate));
+  if FSubject <> '' then
+    Value.Insert(0, 'Subject: ' + InlineCodeEx(FSubject, FCharsetCode));
+  s := '';
+  for n := 0 to FToList.Count - 1 do
+    if s = '' then
+      s := InlineEmailEx(FToList[n], FCharsetCode)
+    else
+      s := s + ', ' + InlineEmailEx(FToList[n], FCharsetCode);
+  if s <> '' then
+    Value.Insert(0, 'To: ' + s);
+  Value.Insert(0, 'From: ' + InlineEmailEx(FFrom, FCharsetCode));
+end;
+
+function TMessHeader.ParsePriority(value: string): TMessPriority;
+var
+  s: string;
+  x: integer;
+begin
+  Result := MP_unknown;
+  s := Trim(separateright(value, ':'));
+  s := Separateleft(s, ' ');
+  x := StrToIntDef(s, -1);
+  if x >= 0 then
+    case x of
+      1, 2:
+        Result := MP_High;
+      3:
+        Result := MP_Normal;
+      4, 5:
+        Result := MP_Low;
+    end
+  else
+  begin
+    s := lowercase(s);
+    if (s = 'urgent') or (s = 'high') or (s = 'highest') then
+      Result := MP_High;
+    if (s = 'normal') or (s = 'medium') then
+      Result := MP_Normal;
+    if (s = 'low') or (s = 'lowest')
+      or (s = 'no-priority')  or (s = 'non-urgent') then
+      Result := MP_Low;
+  end;
+end;
+
+function TMessHeader.DecodeHeader(value: string): boolean;
+var
+  s, t: string;
+  cp: TMimeChar;
+begin
+  Result := True;
+  cp := FCharsetCode;
+  s := uppercase(value);
+  if Pos('X-MAILER:', s) = 1 then
+  begin
+    FXMailer := Trim(SeparateRight(Value, ':'));
+    Exit;
+  end;
+  if Pos('FROM:', s) = 1 then
+  begin
+    FFrom := InlineDecode(Trim(SeparateRight(Value, ':')), cp);
+    Exit;
+  end;
+  if Pos('SUBJECT:', s) = 1 then
+  begin
+    FSubject := InlineDecode(Trim(SeparateRight(Value, ':')), cp);
+    Exit;
+  end;
+  if Pos('ORGANIZATION:', s) = 1 then
+  begin
+    FOrganization := InlineDecode(Trim(SeparateRight(Value, ':')), cp);
+    Exit;
+  end;
+  if Pos('TO:', s) = 1 then
+  begin
+    s := Trim(SeparateRight(Value, ':'));
+    repeat
+      t := InlineDecode(Trim(FetchEx(s, ',', '"')), cp);
+      if t <> '' then
+        FToList.Add(t);
+    until s = '';
+    Exit;
+  end;
+  if Pos('CC:', s) = 1 then
+  begin
+    s := Trim(SeparateRight(Value, ':'));
+    repeat
+      t := InlineDecode(Trim(FetchEx(s, ',', '"')), cp);
+      if t <> '' then
+        FCCList.Add(t);
+    until s = '';
+    Exit;
+  end;
+  if Pos('DATE:', s) = 1 then
+  begin
+    FDate := DecodeRfcDateTime(Trim(SeparateRight(Value, ':')));
+    Exit;
+  end;
+  if Pos('REPLY-TO:', s) = 1 then
+  begin
+    FReplyTo := InlineDecode(Trim(SeparateRight(Value, ':')), cp);
+    Exit;
+  end;
+  if Pos('MESSAGE-ID:', s) = 1 then
+  begin
+    FMessageID := GetEmailAddr(Trim(SeparateRight(Value, ':')));
+    Exit;
+  end;
+  if Pos('PRIORITY:', s) = 1 then
+  begin
+    FPri := ParsePriority(value);
+    Exit;
+  end;
+  if Pos('X-PRIORITY:', s) = 1 then
+  begin
+    FXPri := ParsePriority(value);
+    Exit;
+  end;
+  if Pos('X-MSMAIL-PRIORITY:', s) = 1 then
+  begin
+    FXmsPri := ParsePriority(value);
+    Exit;
+  end;
+  if Pos('MIME-VERSION:', s) = 1 then
+    Exit;
+  if Pos('CONTENT-TYPE:', s) = 1 then
+    Exit;
+  if Pos('CONTENT-DESCRIPTION:', s) = 1 then
+    Exit;
+  if Pos('CONTENT-DISPOSITION:', s) = 1 then
+    Exit;
+  if Pos('CONTENT-ID:', s) = 1 then
+    Exit;
+  if Pos('CONTENT-TRANSFER-ENCODING:', s) = 1 then
+    Exit;
+  Result := False;
+end;
+
+procedure TMessHeader.DecodeHeaders(const Value: TStrings);
+var
+  s: string;
+  x: Integer;
+begin
+  Clear;
+  Fpri := MP_unknown;
+  Fxpri := MP_unknown;
+  Fxmspri := MP_unknown;
+  x := 0;
+  while Value.Count > x do
+  begin
+    s := NormalizeHeader(Value, x);
+    if s = '' then
+      Break;
+    if not DecodeHeader(s) then
+      FCustomHeaders.Add(s);
+  end;
+  if Fpri <> MP_unknown then
+    FPriority := Fpri
+  else
+    if Fxpri <> MP_unknown then
+      FPriority := Fxpri
+    else
+      if Fxmspri <> MP_unknown then
+        FPriority := Fxmspri
+end;
+
+function TMessHeader.FindHeader(Value: string): string;
+var
+  n: integer;
+begin
+  Result := '';
+  for n := 0 to FCustomHeaders.Count - 1 do
+    if Pos(UpperCase(Value), UpperCase(FCustomHeaders[n])) = 1 then
+    begin
+      Result := Trim(SeparateRight(FCustomHeaders[n], ':'));
+      break;
+    end;
+end;
+
+procedure TMessHeader.FindHeaderList(Value: string; const HeaderList: TStrings);
+var
+  n: integer;
+begin
+  HeaderList.Clear;
+  for n := 0 to FCustomHeaders.Count - 1 do
+    if Pos(UpperCase(Value), UpperCase(FCustomHeaders[n])) = 1 then
+    begin
+      HeaderList.Add(Trim(SeparateRight(FCustomHeaders[n], ':')));
+    end;
+end;
+
+{==============================================================================}
+
+constructor TMimeMess.Create;
+begin
+  CreateAltHeaders(TMessHeader);
+end;
+
+constructor TMimeMess.CreateAltHeaders(HeadClass: TMessHeaderClass);
+begin
+  inherited Create;
+  FMessagePart := TMimePart.Create;
+  FLines := TStringList.Create;
+  FHeader := HeadClass.Create;
+end;
+
+destructor TMimeMess.Destroy;
+begin
+  FMessagePart.Free;
+  FHeader.Free;
+  FLines.Free;
+  inherited Destroy;
+end;
+
+{==============================================================================}
+
+procedure TMimeMess.Clear;
+begin
+  FMessagePart.Clear;
+  FLines.Clear;
+  FHeader.Clear;
+end;
+
+{==============================================================================}
+
+function TMimeMess.AddPart(const PartParent: TMimePart): TMimePart;
+begin
+  if PartParent = nil then
+    Result := FMessagePart
+  else
+    Result := PartParent.AddSubPart;
+  Result.Clear;
+end;
+
+{==============================================================================}
+
+function TMimeMess.AddPartMultipart(const MultipartType: String; const PartParent: TMimePart): TMimePart;
+begin
+  Result := AddPart(PartParent);
+  with Result do
+  begin
+    Primary := 'Multipart';
+    Secondary := MultipartType;
+    Description := 'Multipart message';
+    Boundary := GenerateBoundary;
+    EncodePartHeader;
+  end;
+end;
+
+function TMimeMess.AddPartText(const Value: TStrings; const PartParent: TMimePart): TMimepart;
+begin
+  Result := AddPart(PartParent);
+  with Result do
+  begin
+    Value.SaveToStream(DecodedLines);
+    Primary := 'text';
+    Secondary := 'plain';
+    Description := 'Message text';
+    Disposition := 'inline';
+    CharsetCode := IdealCharsetCoding(Value.Text, TargetCharset, IdealCharsets);
+    EncodingCode := ME_QUOTED_PRINTABLE;
+    EncodePart;
+    EncodePartHeader;
+  end;
+end;
+
+function TMimeMess.AddPartTextEx(const Value: TStrings; const PartParent: TMimePart;
+  PartCharset: TMimeChar; Raw: Boolean; PartEncoding: TMimeEncoding): TMimepart;
+begin
+  Result := AddPart(PartParent);
+  with Result do
+  begin
+    Value.SaveToStream(DecodedLines);
+    Primary := 'text';
+    Secondary := 'plain';
+    Description := 'Message text';
+    Disposition := 'inline';
+    CharsetCode := PartCharset;
+    EncodingCode := PartEncoding;
+    ConvertCharset := not Raw;
+    EncodePart;
+    EncodePartHeader;
+  end;
+end;
+
+function TMimeMess.AddPartHTML(const Value: TStrings; const PartParent: TMimePart): TMimepart;
+begin
+  Result := AddPart(PartParent);
+  with Result do
+  begin
+    Value.SaveToStream(DecodedLines);
+    Primary := 'text';
+    Secondary := 'html';
+    Description := 'HTML text';
+    Disposition := 'inline';
+    CharsetCode := UTF_8;
+    EncodingCode := ME_QUOTED_PRINTABLE;
+    EncodePart;
+    EncodePartHeader;
+  end;
+end;
+
+function TMimeMess.AddPartTextFromFile(const FileName: String; const PartParent: TMimePart): TMimepart;
+var
+  tmp: TStrings;
+begin
+  tmp := TStringList.Create;
+  try
+    tmp.LoadFromFile(FileName);
+    Result := AddPartText(tmp, PartParent);
+  Finally
+    tmp.Free;
+  end;
+end;
+
+function TMimeMess.AddPartHTMLFromFile(const FileName: String; const PartParent: TMimePart): TMimepart;
+var
+  tmp: TStrings;
+begin
+  tmp := TStringList.Create;
+  try
+    tmp.LoadFromFile(FileName);
+    Result := AddPartHTML(tmp, PartParent);
+  Finally
+    tmp.Free;
+  end;
+end;
+
+function TMimeMess.AddPartBinary(const Stream: TStream; const FileName: string; const PartParent: TMimePart): TMimepart;
+begin
+  Result := AddPart(PartParent);
+  Result.DecodedLines.LoadFromStream(Stream);
+  Result.MimeTypeFromExt(FileName);
+  Result.Description := 'Attached file: ' + FileName;
+  Result.Disposition := 'attachment';
+  Result.FileName := FileName;
+  Result.EncodingCode := ME_BASE64;
+  Result.EncodePart;
+  Result.EncodePartHeader;
+end;
+
+function TMimeMess.AddPartBinaryFromFile(const FileName: string; const PartParent: TMimePart): TMimepart;
+var
+  tmp: TMemoryStream;
+begin
+  tmp := TMemoryStream.Create;
+  try
+    tmp.LoadFromFile(FileName);
+    Result := AddPartBinary(tmp, ExtractFileName(FileName), PartParent);
+  finally
+    tmp.Free;
+  end;
+end;
+
+function TMimeMess.AddPartHTMLBinary(const Stream: TStream; const FileName, Cid: string; const PartParent: TMimePart): TMimepart;
+begin
+  Result := AddPart(PartParent);
+  Result.DecodedLines.LoadFromStream(Stream);
+  Result.MimeTypeFromExt(FileName);
+  Result.Description := 'Included file: ' + FileName;
+  Result.Disposition := 'inline';
+  Result.ContentID := Cid;
+  Result.FileName := FileName;
+  Result.EncodingCode := ME_BASE64;
+  Result.EncodePart;
+  Result.EncodePartHeader;
+end;
+
+function TMimeMess.AddPartHTMLBinaryFromFile(const FileName, Cid: string; const PartParent: TMimePart): TMimepart;
+var
+  tmp: TMemoryStream;
+begin
+  tmp := TMemoryStream.Create;
+  try
+    tmp.LoadFromFile(FileName);
+    Result :=AddPartHTMLBinary(tmp, ExtractFileName(FileName), Cid, PartParent);
+  finally
+    tmp.Free;
+  end;
+end;
+
+function TMimeMess.AddPartMess(const Value: TStrings; const PartParent: TMimePart): TMimepart;
+var
+  part: Tmimepart;
+begin
+  Result := AddPart(PartParent);
+  part := AddPart(result);
+  part.lines.addstrings(Value);
+  part.DecomposeParts;
+  with Result do
+  begin
+    Primary := 'message';
+    Secondary := 'rfc822';
+    Description := 'E-mail Message';
+    EncodePart;
+    EncodePartHeader;
+  end;
+end;
+
+function TMimeMess.AddPartMessFromFile(const FileName: String; const PartParent: TMimePart): TMimepart;
+var
+  tmp: TStrings;
+begin
+  tmp := TStringList.Create;
+  try
+    tmp.LoadFromFile(FileName);
+    Result := AddPartMess(tmp, PartParent);
+  Finally
+    tmp.Free;
+  end;
+end;
+
+{==============================================================================}
+
+procedure TMimeMess.EncodeMessage;
+var
+  l: TStringList;
+  x: integer;
+begin
+  //merge headers from THeaders and header field from MessagePart
+  l := TStringList.Create;
+  try
+    FHeader.EncodeHeaders(l);
+    x := IndexByBegin('CONTENT-TYPE', FMessagePart.Headers);
+    if x >= 0 then
+      l.add(FMessagePart.Headers[x]);
+    x := IndexByBegin('CONTENT-DESCRIPTION', FMessagePart.Headers);
+    if x >= 0 then
+      l.add(FMessagePart.Headers[x]);
+    x := IndexByBegin('CONTENT-DISPOSITION', FMessagePart.Headers);
+    if x >= 0 then
+      l.add(FMessagePart.Headers[x]);
+    x := IndexByBegin('CONTENT-ID', FMessagePart.Headers);
+    if x >= 0 then
+      l.add(FMessagePart.Headers[x]);
+    x := IndexByBegin('CONTENT-TRANSFER-ENCODING', FMessagePart.Headers);
+    if x >= 0 then
+      l.add(FMessagePart.Headers[x]);
+    FMessagePart.Headers.Assign(l);
+  finally
+    l.Free;
+  end;
+  FMessagePart.ComposeParts;
+  FLines.Assign(FMessagePart.Lines);
+end;
+
+{==============================================================================}
+
+procedure TMimeMess.DecodeMessage;
+begin
+  FHeader.Clear;
+  FHeader.DecodeHeaders(FLines);
+  FMessagePart.Lines.Assign(FLines);
+  FMessagePart.DecomposeParts;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimepart.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimepart.pas
new file mode 100644
index 0000000..5c29aaf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/mimepart.pas	
@@ -0,0 +1,1089 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 002.008.000 |
+|==============================================================================|
+| Content: MIME support procedures and functions                               |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2008.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(MIME part handling)
+Handling with MIME parts.
+
+Used RFC: RFC-2045
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+{$Q-}
+{$R-}
+
+unit mimepart;
+
+interface
+
+uses
+  SysUtils, Classes,
+  synafpc,
+  synachar, synacode, synautil, mimeinln;
+
+type
+
+  TMimePart = class;
+
+  {:@abstract(Procedural type for @link(TMimepart.Walkpart) hook). This hook is used for
+   easy walking through MIME subparts.}
+  THookWalkPart = procedure(const Sender: TMimePart) of object;
+
+  {:The four types of MIME parts. (textual, multipart, message or any other
+   binary data.)}
+  TMimePrimary = (MP_TEXT, MP_MULTIPART, MP_MESSAGE, MP_BINARY);
+
+  {:The various types of possible part encodings.}
+  TMimeEncoding = (ME_7BIT, ME_8BIT, ME_QUOTED_PRINTABLE,
+    ME_BASE64, ME_UU, ME_XX);
+
+  {:@abstract(Object for working with parts of MIME e-mail.)
+   Each TMimePart object can handle any number of nested subparts as new
+   TMimepart objects. It can handle any tree hierarchy structure of nested MIME
+   subparts itself.
+
+   Basic tasks are:
+
+   Decoding of MIME message:
+   - store message into Lines property
+   - call DecomposeParts. Now you have decomposed MIME parts in all nested levels!
+   - now you can explore all properties and subparts. (You can use WalkPart method)
+   - if you need decode part, call DecodePart.
+
+   Encoding of MIME message:
+
+   - if you need multipart message, you must create subpart by AddSubPart.
+   - set all properties of all parts.
+   - set content of part into DecodedLines stream
+   - encode this stream by EncodePart.
+   - compose full message by ComposeParts. (it build full MIME message from all subparts. Do not call this method for each subpart! It is needed on root part!)
+   - encoded MIME message is stored in Lines property.
+  }
+  TMimePart = class(TObject)
+  private
+    FPrimary: string;
+    FPrimaryCode: TMimePrimary;
+    FSecondary: string;
+    FEncoding: string;
+    FEncodingCode: TMimeEncoding;
+    FDefaultCharset: string;
+    FCharset: string;
+    FCharsetCode: TMimeChar;
+    FTargetCharset: TMimeChar;
+    FDescription: string;
+    FDisposition: string;
+    FContentID: string;
+    FBoundary: string;
+    FFileName: string;
+    FLines: TStringList;
+    FPartBody: TStringList;
+    FHeaders: TStringList;
+    FPrePart: TStringList;
+    FPostPart: TStringList;
+    FDecodedLines: TMemoryStream;
+    FSubParts: TList;
+    FOnWalkPart: THookWalkPart;
+    FMaxLineLength: integer;
+    FSubLevel: integer;
+    FMaxSubLevel: integer;
+    FAttachInside: boolean;
+    FConvertCharset: Boolean;
+    FForcedHTMLConvert: Boolean;
+    procedure SetPrimary(Value: string);
+    procedure SetEncoding(Value: string);
+    procedure SetCharset(Value: string);
+    function IsUUcode(Value: string): boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Assign content of another object to this object. (Only this part,
+     not subparts!)}
+    procedure Assign(Value: TMimePart);
+
+    {:Assign content of another object to this object. (With all subparts!)}
+    procedure AssignSubParts(Value: TMimePart);
+
+    {:Clear all data values to default values. It also call @link(ClearSubparts).}
+    procedure Clear;
+
+    {:Decode Mime part from @link(Lines) to @link(DecodedLines).}
+    procedure DecodePart;
+
+    {:Parse header lines from Headers property into another properties.}
+    procedure DecodePartHeader;
+
+    {:Encode mime part from @link(DecodedLines) to @link(Lines) and build mime
+     headers.}
+    procedure EncodePart;
+
+    {:Build header lines in Headers property from another properties.}
+    procedure EncodePartHeader;
+
+    {:generate primary and secondary mime type from filename extension in value.
+     If type not recognised, it return 'Application/octet-string' type.}
+    procedure MimeTypeFromExt(Value: string);
+
+    {:Return number of decomposed subparts. (On this level! Each of this
+     subparts can hold any number of their own nested subparts!)}
+    function GetSubPartCount: integer;
+
+    {:Get nested subpart object as new TMimePart. For getting maximum possible
+     index you can use @link(GetSubPartCount) method.}
+    function GetSubPart(index: integer): TMimePart;
+
+    {:delete subpart on given index.}
+    procedure DeleteSubPart(index: integer);
+
+    {:Clear and destroy all subpart TMimePart objects.}
+    procedure ClearSubParts;
+
+    {:Add and create new subpart.}
+    function AddSubPart: TMimePart;
+
+    {:E-mail message in @link(Lines) property is parsed into this object.
+     E-mail headers are stored in @link(Headers) property and is parsed into
+     another properties automaticly. Not need call @link(DecodePartHeader)!
+     Content of message (part) is stored into @link(PartBody) property. This
+     part is in undecoded form! If you need decode it, then you must call
+     @link(DecodePart) method by your hands. Lot of another properties is filled
+     also.
+
+     Decoding of parts you must call separately due performance reasons. (Not
+     needed to decode all parts in all reasons.)
+
+     For each MIME subpart is created new TMimepart object (accessible via
+     method @link(GetSubPart)).}
+    procedure DecomposeParts;
+
+    {:This part and all subparts is composed into one MIME message stored in
+     @link(Lines) property.}
+    procedure ComposeParts;
+
+    {:By calling this method is called @link(OnWalkPart) event for each part
+     and their subparts. It is very good for calling some code for each part in
+     MIME message}
+    procedure WalkPart;
+
+    {:Return @true when is possible create next subpart. (@link(maxSublevel)
+     is still not reached)}
+    function CanSubPart: boolean;
+  published
+    {:Primary Mime type of part. (i.e. 'application') Writing to this property
+     automaticly generate value of @link(PrimaryCode).}
+    property Primary: string read FPrimary write SetPrimary;
+
+    {:String representation of used Mime encoding in part. (i.e. 'base64')
+     Writing to this property automaticly generate value of @link(EncodingCode).}
+    property Encoding: string read FEncoding write SetEncoding;
+
+    {:String representation of used Mime charset in part. (i.e. 'iso-8859-1')
+     Writing to this property automaticly generate value of @link(CharsetCode).
+     Charset is used only for text parts.}
+    property Charset: string read FCharset write SetCharset;
+
+    {:Define default charset for decoding text MIME parts without charset
+     specification. Default value is 'ISO-8859-1' by RCF documents.
+     But Microsoft Outlook use windows codings as default. This property allows
+     properly decode textual parts from some broken versions of Microsoft
+     Outlook. (this is bad software!)}
+    property DefaultCharset: string read FDefaultCharset write FDefaultCharset;
+
+    {:Decoded primary type. Possible values are: MP_TEXT, MP_MULTIPART,
+     MP_MESSAGE and MP_BINARY. If type not recognised, result is MP_BINARY.}
+    property PrimaryCode: TMimePrimary read FPrimaryCode Write FPrimaryCode;
+
+    {:Decoded encoding type. Possible values are: ME_7BIT, ME_8BIT,
+     ME_QUOTED_PRINTABLE and ME_BASE64. If type not recognised, result is
+     ME_7BIT.}
+    property EncodingCode: TMimeEncoding read FEncodingCode Write FEncodingCode;
+
+    {:Decoded charset type. Possible values are defined in @link(SynaChar) unit.}
+    property CharsetCode: TMimeChar read FCharsetCode Write FCharsetCode;
+
+    {:System charset type. Default value is charset used by default in your
+     operating system.}
+    property TargetCharset: TMimeChar read FTargetCharset Write FTargetCharset;
+
+    {:If @true, then do internal charset translation of part content between @link(CharsetCode)
+     and @link(TargetCharset)}
+    property ConvertCharset: Boolean read FConvertCharset Write FConvertCharset;
+
+    {:If @true, then allways do internal charset translation of HTML parts
+     by MIME even it have their own charset in META tag. Default is @false.}
+    property ForcedHTMLConvert: Boolean read FForcedHTMLConvert Write FForcedHTMLConvert;
+
+    {:Secondary Mime type of part. (i.e. 'mixed')}
+    property Secondary: string read FSecondary Write FSecondary;
+
+    {:Description of Mime part.}
+    property Description: string read FDescription Write FDescription;
+
+    {:Value of content disposition field. (i.e. 'inline' or 'attachment')}
+    property Disposition: string read FDisposition Write FDisposition;
+
+    {:Content ID.}
+    property ContentID: string read FContentID Write FContentID;
+
+    {:Boundary delimiter of multipart Mime part. Used only in multipart part.}
+    property Boundary: string read FBoundary Write FBoundary;
+
+    {:Filename of file in binary part.}
+    property FileName: string read FFileName Write FFileName;
+
+    {:String list with lines contains mime part (It can be a full message).}
+    property Lines: TStringList read FLines;
+
+    {:Encoded form of MIME part data.}
+    property PartBody: TStringList read FPartBody;
+
+    {:All header lines of MIME part.}
+    property Headers: TStringList read FHeaders;
+
+    {:On multipart this contains part of message between first line of message
+     and first boundary.}
+    property PrePart: TStringList read FPrePart;
+
+    {:On multipart this contains part of message between last boundary and end
+     of message.}
+    property PostPart: TStringList read FPostPart;
+
+    {:Stream with decoded form of budy part.}
+    property DecodedLines: TMemoryStream read FDecodedLines;
+
+    {:Show nested level in subpart tree. Value 0 means root part. 1 means
+     subpart from this root. etc.}
+    property SubLevel: integer read FSubLevel write FSubLevel;
+
+    {:Specify maximum sublevel value for decomposing.}
+    property MaxSubLevel: integer read FMaxSubLevel write FMaxSubLevel;
+
+    {:When is @true, then this part maybe(!) have included some uuencoded binary
+    data.}
+    property AttachInside: boolean read FAttachInside;
+
+    {:Here you can assign hook procedure for walking through all part and their
+     subparts.}
+    property OnWalkPart: THookWalkPart read FOnWalkPart write FOnWalkPart;
+
+    {:Here you can specify maximum line length for encoding of MIME part.
+     If line is longer, then is splitted by standard of MIME. Correct MIME
+     mailers can de-split this line into original length.}
+    property MaxLineLength: integer read FMaxLineLength Write FMaxLineLength;
+  end;
+
+const
+  MaxMimeType = 25;
+  MimeType: array[0..MaxMimeType, 0..2] of string =
+  (
+    ('AU', 'audio', 'basic'),
+    ('AVI', 'video', 'x-msvideo'),
+    ('BMP', 'image', 'BMP'),
+    ('DOC', 'application', 'MSWord'),
+    ('EPS', 'application', 'Postscript'),
+    ('GIF', 'image', 'GIF'),
+    ('JPEG', 'image', 'JPEG'),
+    ('JPG', 'image', 'JPEG'),
+    ('MID', 'audio', 'midi'),
+    ('MOV', 'video', 'quicktime'),
+    ('MPEG', 'video', 'MPEG'),
+    ('MPG', 'video', 'MPEG'),
+    ('MP2', 'audio', 'mpeg'),
+    ('MP3', 'audio', 'mpeg'),
+    ('PDF', 'application', 'PDF'),
+    ('PNG', 'image', 'PNG'),
+    ('PS', 'application', 'Postscript'),
+    ('QT', 'video', 'quicktime'),
+    ('RA', 'audio', 'x-realaudio'),
+    ('RTF', 'application', 'RTF'),
+    ('SND', 'audio', 'basic'),
+    ('TIF', 'image', 'TIFF'),
+    ('TIFF', 'image', 'TIFF'),
+    ('WAV', 'audio', 'x-wav'),
+    ('WPD', 'application', 'Wordperfect5.1'),
+    ('ZIP', 'application', 'ZIP')
+    );
+
+{:Generates a unique boundary string.}
+function GenerateBoundary: string;
+
+implementation
+
+{==============================================================================}
+
+constructor TMIMEPart.Create;
+begin
+  inherited Create;
+  FOnWalkPart := nil;
+  FLines := TStringList.Create;
+  FPartBody := TStringList.Create;
+  FHeaders := TStringList.Create;
+  FPrePart := TStringList.Create;
+  FPostPart := TStringList.Create;
+  FDecodedLines := TMemoryStream.Create;
+  FSubParts := TList.Create;
+  FTargetCharset := GetCurCP;
+  //was 'US-ASCII' before, but RFC-ignorant Outlook sometimes using default
+  //system charset instead.
+  FDefaultCharset := GetIDFromCP(GetCurCP);
+  FMaxLineLength := 78;
+  FSubLevel := 0;
+  FMaxSubLevel := -1;
+  FAttachInside := false;
+  FConvertCharset := true;
+  FForcedHTMLConvert := false;
+end;
+
+destructor TMIMEPart.Destroy;
+begin
+  ClearSubParts;
+  FSubParts.Free;
+  FDecodedLines.Free;
+  FPartBody.Free;
+  FLines.Free;
+  FHeaders.Free;
+  FPrePart.Free;
+  FPostPart.Free;
+  inherited Destroy;
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.Clear;
+begin
+  FPrimary := '';
+  FEncoding := '';
+  FCharset := '';
+  FPrimaryCode := MP_TEXT;
+  FEncodingCode := ME_7BIT;
+  FCharsetCode := ISO_8859_1;
+  FTargetCharset := GetCurCP;
+  FSecondary := '';
+  FDisposition := '';
+  FContentID := '';
+  FDescription := '';
+  FBoundary := '';
+  FFileName := '';
+  FAttachInside := False;
+  FPartBody.Clear;
+  FHeaders.Clear;
+  FPrePart.Clear;
+  FPostPart.Clear;
+  FDecodedLines.Clear;
+  FConvertCharset := true;
+  FForcedHTMLConvert := false;
+  ClearSubParts;
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.Assign(Value: TMimePart);
+begin
+  Primary := Value.Primary;
+  Encoding := Value.Encoding;
+  Charset := Value.Charset;
+  DefaultCharset := Value.DefaultCharset;
+  PrimaryCode := Value.PrimaryCode;
+  EncodingCode := Value.EncodingCode;
+  CharsetCode := Value.CharsetCode;
+  TargetCharset := Value.TargetCharset;
+  Secondary := Value.Secondary;
+  Description := Value.Description;
+  Disposition := Value.Disposition;
+  ContentID := Value.ContentID;
+  Boundary := Value.Boundary;
+  FileName := Value.FileName;
+  Lines.Assign(Value.Lines);
+  PartBody.Assign(Value.PartBody);
+  Headers.Assign(Value.Headers);
+  PrePart.Assign(Value.PrePart);
+  PostPart.Assign(Value.PostPart);
+  MaxLineLength := Value.MaxLineLength;
+  FAttachInside := Value.AttachInside;
+  FConvertCharset := Value.ConvertCharset;
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.AssignSubParts(Value: TMimePart);
+var
+  n: integer;
+  p: TMimePart;
+begin
+  Assign(Value);
+  for n := 0 to Value.GetSubPartCount - 1 do
+  begin
+    p := AddSubPart;
+    p.AssignSubParts(Value.GetSubPart(n));
+  end;
+end;
+
+{==============================================================================}
+
+function TMIMEPart.GetSubPartCount: integer;
+begin
+  Result :=  FSubParts.Count;
+end;
+
+{==============================================================================}
+
+function TMIMEPart.GetSubPart(index: integer): TMimePart;
+begin
+  Result := nil;
+  if Index < GetSubPartCount then
+    Result := TMimePart(FSubParts[Index]);
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.DeleteSubPart(index: integer);
+begin
+  if Index < GetSubPartCount then
+  begin
+    GetSubPart(Index).Free;
+    FSubParts.Delete(Index);
+  end;
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.ClearSubParts;
+var
+  n: integer;
+begin
+  for n := 0 to GetSubPartCount - 1 do
+    TMimePart(FSubParts[n]).Free;
+  FSubParts.Clear;
+end;
+
+{==============================================================================}
+
+function TMIMEPart.AddSubPart: TMimePart;
+begin
+  Result := TMimePart.Create;
+  Result.DefaultCharset := FDefaultCharset;
+  FSubParts.Add(Result);
+  Result.SubLevel := FSubLevel + 1;
+  Result.MaxSubLevel := FMaxSubLevel;  
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.DecomposeParts;
+var
+  x: integer;
+  s: string;
+  Mime: TMimePart;
+
+  procedure SkipEmpty;
+  begin
+    while FLines.Count > x do
+    begin
+      s := TrimRight(FLines[x]);
+      if s <> '' then
+        Break;
+      Inc(x);
+    end;
+  end;
+
+begin
+  x := 0;
+  Clear;
+  //extract headers
+  while FLines.Count > x do
+  begin
+    s := NormalizeHeader(FLines, x);
+    if s = '' then
+      Break;
+    FHeaders.Add(s);
+  end;
+  DecodePartHeader;
+  //extract prepart
+  if FPrimaryCode = MP_MULTIPART then
+  begin
+    while FLines.Count > x do
+    begin
+      s := FLines[x];
+      Inc(x);
+      if TrimRight(s) = '--' + FBoundary then
+        Break;
+      FPrePart.Add(s);
+      if not FAttachInside then
+        FAttachInside := IsUUcode(s);
+    end;
+  end;
+  //extract body part
+  if FPrimaryCode = MP_MULTIPART then
+  begin
+    repeat
+      if CanSubPart then
+      begin
+        Mime := AddSubPart;
+        while FLines.Count > x do
+        begin
+          s := FLines[x];
+          Inc(x);
+          if Pos('--' + FBoundary, s) = 1 then
+            Break;
+          Mime.Lines.Add(s);
+        end;
+        Mime.DecomposeParts;
+      end
+      else
+      begin
+        s := FLines[x];
+        Inc(x);
+        FPartBody.Add(s);
+      end;
+      if x >= FLines.Count then
+        break;
+    until s = '--' + FBoundary + '--';
+  end;
+  if (FPrimaryCode = MP_MESSAGE) and CanSubPart then
+  begin
+    Mime := AddSubPart;
+    SkipEmpty;
+    while FLines.Count > x do
+    begin
+      s := TrimRight(FLines[x]);
+      Inc(x);
+      Mime.Lines.Add(s);
+    end;
+    Mime.DecomposeParts;
+  end
+  else
+  begin
+    while FLines.Count > x do
+    begin
+      s := FLines[x];
+      Inc(x);
+      FPartBody.Add(s);
+      if not FAttachInside then
+        FAttachInside := IsUUcode(s);
+    end;
+  end;
+  //extract postpart
+  if FPrimaryCode = MP_MULTIPART then
+  begin
+    while FLines.Count > x do
+    begin
+      s := TrimRight(FLines[x]);
+      Inc(x);
+      FPostPart.Add(s);
+      if not FAttachInside then
+        FAttachInside := IsUUcode(s);
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.ComposeParts;
+var
+  n: integer;
+  mime: TMimePart;
+  s, t: string;
+  d1, d2, d3: integer;
+  x: integer;
+begin
+  FLines.Clear;
+  //add headers
+  for n := 0 to FHeaders.Count -1 do
+  begin
+    s := FHeaders[n];
+    repeat
+      if Length(s) < FMaxLineLength then
+      begin
+        t := s;
+        s := '';
+      end
+      else
+      begin
+        d1 := RPosEx('; ', s, FMaxLineLength);
+        d2 := RPosEx(' ', s, FMaxLineLength);
+        d3 := RPosEx(', ', s, FMaxLineLength);
+        if (d1 <= 1) and (d2 <= 1) and (d3 <= 1) then
+        begin
+          x := Pos(' ', Copy(s, 2, Length(s) - 1));
+          if x < 1 then
+            x := Length(s);
+        end
+        else
+          if d1 > 0 then
+            x := d1
+          else
+            if d3 > 0 then
+              x := d3
+            else
+              x := d2 - 1;
+        t := Copy(s, 1, x);
+        Delete(s, 1, x);
+      end;
+      Flines.Add(t);
+    until s = '';
+  end;
+
+  Flines.Add('');
+  //add body
+  //if multipart
+  if FPrimaryCode = MP_MULTIPART then
+  begin
+    Flines.AddStrings(FPrePart);
+    for n := 0 to GetSubPartCount - 1 do
+    begin
+      Flines.Add('--' + FBoundary);
+      mime := GetSubPart(n);
+      mime.ComposeParts;
+      FLines.AddStrings(mime.Lines);
+    end;
+    Flines.Add('--' + FBoundary + '--');
+    Flines.AddStrings(FPostPart);
+  end;
+  //if message
+  if FPrimaryCode = MP_MESSAGE then
+  begin
+    if GetSubPartCount > 0 then
+    begin
+      mime := GetSubPart(0);
+      mime.ComposeParts;
+      FLines.AddStrings(mime.Lines);
+    end;
+  end
+  else
+  //if normal part
+  begin
+    FLines.AddStrings(FPartBody);
+  end;
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.DecodePart;
+var
+  n: Integer;
+  s, t, t2: string;
+  b: Boolean;
+begin
+  FDecodedLines.Clear;
+  case FEncodingCode of
+    ME_QUOTED_PRINTABLE:
+      s := DecodeQuotedPrintable(FPartBody.Text);
+    ME_BASE64:
+      s := DecodeBase64(FPartBody.Text);
+    ME_UU, ME_XX:
+      begin
+        s := '';
+        for n := 0 to FPartBody.Count - 1 do
+          if FEncodingCode = ME_UU then
+            s := s + DecodeUU(FPartBody[n])
+          else
+            s := s + DecodeXX(FPartBody[n]);
+      end;
+  else
+    s := FPartBody.Text;
+  end;
+  if FConvertCharset and (FPrimaryCode = MP_TEXT) then
+    if (not FForcedHTMLConvert) and (uppercase(FSecondary) = 'HTML') then
+    begin
+      b := false;
+      t2 := uppercase(s);
+      t := SeparateLeft(t2, '</HEAD>');
+      if length(t) <> length(s) then
+      begin
+        t := SeparateRight(t, '<HEAD>');
+        t := ReplaceString(t, '"', '');
+        t := ReplaceString(t, ' ', '');
+        b := Pos('HTTP-EQUIV=CONTENT-TYPE', t) > 0;
+      end;
+      //workaround for shitty M$ Outlook 11 which is placing this information
+      //outside <head> section
+      if not b then
+      begin
+        t := Copy(t2, 1, 2048);
+        t := ReplaceString(t, '"', '');
+        t := ReplaceString(t, ' ', '');
+        b := Pos('HTTP-EQUIV=CONTENT-TYPE', t) > 0;
+      end;
+      if not b then
+        s := CharsetConversion(s, FCharsetCode, FTargetCharset);
+    end
+    else
+      s := CharsetConversion(s, FCharsetCode, FTargetCharset);
+  WriteStrToStream(FDecodedLines, s);
+  FDecodedLines.Seek(0, soFromBeginning);
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.DecodePartHeader;
+var
+  n: integer;
+  s, su, fn: string;
+  st, st2: string;
+begin
+  Primary := 'text';
+  FSecondary := 'plain';
+  FDescription := '';
+  Charset := FDefaultCharset;
+  FFileName := '';
+  //was 7bit before, but this is more compatible with RFC-ignorant outlook
+  Encoding := '8BIT';
+  FDisposition := '';
+  FContentID := '';
+  fn := '';
+  for n := 0 to FHeaders.Count - 1 do
+    if FHeaders[n] <> '' then
+    begin
+      s := FHeaders[n];
+      su := UpperCase(s);
+      if Pos('CONTENT-TYPE:', su) = 1 then
+      begin
+        st := Trim(SeparateRight(su, ':'));
+        st2 := Trim(SeparateLeft(st, ';'));
+        Primary := Trim(SeparateLeft(st2, '/'));
+        FSecondary := Trim(SeparateRight(st2, '/'));
+        if (FSecondary = Primary) and (Pos('/', st2) < 1) then
+          FSecondary := '';
+        case FPrimaryCode of
+          MP_TEXT:
+            begin
+              Charset := UpperCase(GetParameter(s, 'charset'));
+              FFileName := GetParameter(s, 'name');
+            end;
+          MP_MULTIPART:
+            FBoundary := GetParameter(s, 'Boundary');
+          MP_MESSAGE:
+            begin
+            end;
+          MP_BINARY:
+            FFileName := GetParameter(s, 'name');
+        end;
+      end;
+      if Pos('CONTENT-TRANSFER-ENCODING:', su) = 1 then
+        Encoding := Trim(SeparateRight(su, ':'));
+      if Pos('CONTENT-DESCRIPTION:', su) = 1 then
+        FDescription := Trim(SeparateRight(s, ':'));
+      if Pos('CONTENT-DISPOSITION:', su) = 1 then
+      begin
+        FDisposition := SeparateRight(su, ':');
+        FDisposition := Trim(SeparateLeft(FDisposition, ';'));
+        fn := GetParameter(s, 'FileName');
+      end;
+      if Pos('CONTENT-ID:', su) = 1 then
+        FContentID := Trim(SeparateRight(s, ':'));
+    end;
+  if fn <> '' then
+    FFileName := fn;
+  FFileName := InlineDecode(FFileName, FTargetCharset);
+  FFileName := ExtractFileName(FFileName);
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.EncodePart;
+var
+  l: TStringList;
+  s, t: string;
+  n, x: Integer;
+  d1, d2: integer;
+begin
+  if (FEncodingCode = ME_UU) or (FEncodingCode = ME_XX) then
+    Encoding := 'base64';
+  l := TStringList.Create;
+  FPartBody.Clear;
+  FDecodedLines.Seek(0, soFromBeginning);
+  try
+    case FPrimaryCode of
+      MP_MULTIPART, MP_MESSAGE:
+        FPartBody.LoadFromStream(FDecodedLines);
+      MP_TEXT, MP_BINARY:
+        begin
+          s := ReadStrFromStream(FDecodedLines, FDecodedLines.Size);
+          if FConvertCharset and (FPrimaryCode = MP_TEXT) and (FEncodingCode <> ME_7BIT) then
+            s := GetBOM(FCharSetCode) + CharsetConversion(s, FTargetCharset, FCharsetCode);
+          if FEncodingCode = ME_BASE64 then
+          begin
+            x := 1;
+            while x <= length(s) do
+            begin
+              t := copy(s, x, 54);
+              x := x + length(t);
+              t := EncodeBase64(t);
+              FPartBody.Add(t);
+            end;
+          end
+          else
+          begin
+            if FPrimaryCode = MP_BINARY then
+              l.Add(s)
+            else
+              l.Text := s;
+            for n := 0 to l.Count - 1 do
+            begin
+              s := l[n];
+              if FEncodingCode = ME_QUOTED_PRINTABLE then
+              begin
+                s := EncodeQuotedPrintable(s);
+                repeat
+                  if Length(s) < FMaxLineLength then
+                  begin
+                    t := s;
+                    s := '';
+                  end
+                  else
+                  begin
+                    d1 := RPosEx('=', s, FMaxLineLength);
+                    d2 := RPosEx(' ', s, FMaxLineLength);
+                    if (d1 = 0) and (d2 = 0) then
+                      x := FMaxLineLength
+                    else
+                      if d1 > d2 then
+                        x := d1 - 1
+                      else
+                        x := d2 - 1;
+                    if x = 0 then
+                      x := FMaxLineLength;
+                    t := Copy(s, 1, x);
+                    Delete(s, 1, x);
+                    if s <> '' then
+                      t := t + '=';
+                  end;
+                  FPartBody.Add(t);
+                until s = '';
+              end
+              else
+                FPartBody.Add(s);
+            end;
+            if (FPrimaryCode = MP_BINARY)
+              and (FEncodingCode = ME_QUOTED_PRINTABLE) then
+              FPartBody[FPartBody.Count - 1] := FPartBody[FPartBody.Count - 1] + '=';
+          end;
+        end;
+    end;
+  finally
+    l.Free;
+  end;
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.EncodePartHeader;
+var
+  s: string;
+begin
+  FHeaders.Clear;
+  if FSecondary = '' then
+    case FPrimaryCode of
+      MP_TEXT:
+        FSecondary := 'plain';
+      MP_MULTIPART:
+        FSecondary := 'mixed';
+      MP_MESSAGE:
+        FSecondary := 'rfc822';
+      MP_BINARY:
+        FSecondary := 'octet-stream';
+    end;
+  if FDescription <> '' then
+    FHeaders.Insert(0, 'Content-Description: ' + FDescription);
+  if FDisposition <> '' then
+  begin
+    s := '';
+    if FFileName <> '' then
+      s := '; FileName=' + QuoteStr(InlineCodeEx(FileName, FTargetCharset), '"');
+    FHeaders.Insert(0, 'Content-Disposition: ' + LowerCase(FDisposition) + s);
+  end;
+  if FContentID <> '' then
+    FHeaders.Insert(0, 'Content-ID: ' + FContentID);
+
+  case FEncodingCode of
+    ME_7BIT:
+      s := '7bit';
+    ME_8BIT:
+      s := '8bit';
+    ME_QUOTED_PRINTABLE:
+      s := 'Quoted-printable';
+    ME_BASE64:
+      s := 'Base64';
+  end;
+  case FPrimaryCode of
+    MP_TEXT,
+      MP_BINARY: FHeaders.Insert(0, 'Content-Transfer-Encoding: ' + s);
+  end;
+  case FPrimaryCode of
+    MP_TEXT:
+      s := FPrimary + '/' + FSecondary + '; charset=' + GetIDfromCP(FCharsetCode);
+    MP_MULTIPART:
+      s := FPrimary + '/' + FSecondary + '; boundary="' + FBoundary + '"';
+    MP_MESSAGE, MP_BINARY:
+      s := FPrimary + '/' + FSecondary;
+  end;
+  if FFileName <> '' then
+    s := s + '; name=' + QuoteStr(InlineCodeEx(FileName, FTargetCharset), '"');
+  FHeaders.Insert(0, 'Content-type: ' + s);
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.MimeTypeFromExt(Value: string);
+var
+  s: string;
+  n: Integer;
+begin
+  Primary := '';
+  FSecondary := '';
+  s := UpperCase(ExtractFileExt(Value));
+  if s = '' then
+    s := UpperCase(Value);
+  s := SeparateRight(s, '.');
+  for n := 0 to MaxMimeType do
+    if MimeType[n, 0] = s then
+    begin
+      Primary := MimeType[n, 1];
+      FSecondary := MimeType[n, 2];
+      Break;
+    end;
+  if Primary = '' then
+    Primary := 'application';
+  if FSecondary = '' then
+    FSecondary := 'octet-stream';
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.WalkPart;
+var
+  n: integer;
+  m: TMimepart;
+begin
+  if assigned(OnWalkPart) then
+  begin
+    OnWalkPart(self);
+    for n := 0 to GetSubPartCount - 1 do
+    begin
+      m := GetSubPart(n);
+      m.OnWalkPart := OnWalkPart;
+      m.WalkPart;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+procedure TMIMEPart.SetPrimary(Value: string);
+var
+  s: string;
+begin
+  FPrimary := Value;
+  s := UpperCase(Value);
+  FPrimaryCode := MP_BINARY;
+  if Pos('TEXT', s) = 1 then
+    FPrimaryCode := MP_TEXT;
+  if Pos('MULTIPART', s) = 1 then
+    FPrimaryCode := MP_MULTIPART;
+  if Pos('MESSAGE', s) = 1 then
+    FPrimaryCode := MP_MESSAGE;
+end;
+
+procedure TMIMEPart.SetEncoding(Value: string);
+var
+  s: string;
+begin
+  FEncoding := Value;
+  s := UpperCase(Value);
+  FEncodingCode := ME_7BIT;
+  if Pos('8BIT', s) = 1 then
+    FEncodingCode := ME_8BIT;
+  if Pos('QUOTED-PRINTABLE', s) = 1 then
+    FEncodingCode := ME_QUOTED_PRINTABLE;
+  if Pos('BASE64', s) = 1 then
+    FEncodingCode := ME_BASE64;
+  if Pos('X-UU', s) = 1 then
+    FEncodingCode := ME_UU;
+  if Pos('X-XX', s) = 1 then
+    FEncodingCode := ME_XX;
+end;
+
+procedure TMIMEPart.SetCharset(Value: string);
+begin
+  if value <> '' then
+  begin
+    FCharset := Value;
+    FCharsetCode := GetCPFromID(Value);
+  end;
+end;
+
+function TMIMEPart.CanSubPart: boolean;
+begin
+  Result := True;
+  if FMaxSubLevel <> -1 then
+    Result := FMaxSubLevel > FSubLevel;
+end;
+
+function TMIMEPart.IsUUcode(Value: string): boolean;
+begin
+  Value := UpperCase(Value);
+  Result := (pos('BEGIN ', Value) = 1) and (Trim(SeparateRight(Value, ' ')) <> '');
+end;
+
+{==============================================================================}
+
+function GenerateBoundary: string;
+var
+  x, y: Integer;
+begin
+  y := GetTick;
+  x := y;
+  while TickDelta(y, x) = 0 do
+  begin
+    Sleep(1);
+    x := GetTick;
+  end;
+  Randomize;
+  y := Random(MaxInt);
+  Result := IntToHex(x, 8) + '_' + IntToHex(y, 8) + '_Synapse_boundary';
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/nntpsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/nntpsend.pas
new file mode 100644
index 0000000..ef35f77
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/nntpsend.pas	
@@ -0,0 +1,474 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.005.001 |
+|==============================================================================|
+| Content: NNTP client                                                         |
+|==============================================================================|
+| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c) 1999-2007.               |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(NNTP client)
+NNTP (network news transfer protocol)
+
+Used RFC: RFC-977, RFC-2980
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit nntpsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil;
+
+const
+  cNNTPProtocol = '119';
+
+type
+
+  {:abstract(Implementation of Network News Transfer Protocol.
+
+   Note: Are you missing properties for setting Username and Password? Look to
+   parent @link(TSynaClient) object!
+
+   Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TNNTPSend = class(TSynaClient)
+  private
+    FSock: TTCPBlockSocket;
+    FResultCode: Integer;
+    FResultString: string;
+    FData: TStringList;
+    FDataToSend: TStringList;
+    FAutoTLS: Boolean;
+    FFullSSL: Boolean;
+    FNNTPcap: TStringList;
+    function ReadResult: Integer;
+    function ReadData: boolean;
+    function SendData: boolean;
+    function Connect: Boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Connects to NNTP server and begin session.}
+    function Login: Boolean;
+
+    {:Logout from NNTP server and terminate session.}
+    function Logout: Boolean;
+
+    {:By this you can call any NNTP command.}
+    function DoCommand(const Command: string): boolean;
+
+    {:by this you can call any NNTP command. This variant is used for commands
+     for download information from server.}
+    function DoCommandRead(const Command: string): boolean;
+
+    {:by this you can call any NNTP command. This variant is used for commands
+     for upload information to server.}
+    function DoCommandWrite(const Command: string): boolean;
+
+    {:Download full message to @link(data) property. Value can be number of
+     message or message-id (in brackets).}
+    function GetArticle(const Value: string): Boolean;
+
+    {:Download only body of message to @link(data) property. Value can be number
+     of message or message-id (in brackets).}
+    function GetBody(const Value: string): Boolean;
+
+    {:Download only headers of message to @link(data) property. Value can be
+     number of message or message-id (in brackets).}
+    function GetHead(const Value: string): Boolean;
+
+    {:Get message status. Value can be number of message or message-id
+     (in brackets).}
+    function GetStat(const Value: string): Boolean;
+
+    {:Select given group.}
+    function SelectGroup(const Value: string): Boolean;
+
+    {:Tell to server 'I have mesage with given message-ID.' If server need this
+     message, message is uploaded to server.}
+    function IHave(const MessID: string): Boolean;
+
+    {:Move message pointer to last item in group.}
+    function GotoLast: Boolean;
+
+    {:Move message pointer to next item in group.}
+    function GotoNext: Boolean;
+
+    {:Download to @link(data) property list of all groups on NNTP server.}
+    function ListGroups: Boolean;
+
+    {:Download to @link(data) property list of all groups created after given time.}
+    function ListNewGroups(Since: TDateTime): Boolean;
+
+    {:Download to @link(data) property list of message-ids in given group since
+     given time.}
+    function NewArticles(const Group: string; Since: TDateTime): Boolean;
+
+    {:Upload new article to server. (for new messages by you)}
+    function PostArticle: Boolean;
+
+    {:Tells to remote NNTP server 'I am not NNTP client, but I am another NNTP
+     server'.}
+    function SwitchToSlave: Boolean;
+
+    {:Call NNTP XOVER command.}
+    function Xover(xoStart, xoEnd: string): boolean;
+
+    {:Call STARTTLS command for upgrade connection to SSL/TLS mode.}
+    function StartTLS: Boolean;
+
+    {:Try to find given capability in extension list. This list is getted after
+     successful login to NNTP server. If extension capability is not found,
+     then return is empty string.}
+    function FindCap(const Value: string): string;
+
+    {:Try get list of server extensions. List is returned in @link(data) property.}
+    function ListExtensions: Boolean;
+  published
+    {:Result code number of last operation.}
+    property ResultCode: Integer read FResultCode;
+
+    {:String description of last result code from NNTP server.}
+    property ResultString: string read FResultString;
+
+    {:Readed data. (message, etc.)}
+    property Data: TStringList read FData;
+
+    {:If is set to @true, then upgrade to SSL/TLS mode after login if remote
+     server support it.}
+    property AutoTLS: Boolean read FAutoTLS Write FAutoTLS;
+
+    {:SSL/TLS mode is used from first contact to server. Servers with full
+     SSL/TLS mode usualy using non-standard TCP port!}
+    property FullSSL: Boolean read FFullSSL Write FFullSSL;
+
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TTCPBlockSocket read FSock;
+  end;
+
+implementation
+
+constructor TNNTPSend.Create;
+begin
+  inherited Create;
+  FSock := TTCPBlockSocket.Create;
+  FData := TStringList.Create;
+  FDataToSend := TStringList.Create;
+  FNNTPcap := TStringList.Create;
+  FSock.ConvertLineEnd := True;
+  FTimeout := 60000;
+  FTargetPort := cNNTPProtocol;
+  FAutoTLS := False;
+  FFullSSL := False;
+end;
+
+destructor TNNTPSend.Destroy;
+begin
+  FSock.Free;
+  FDataToSend.Free;
+  FData.Free;
+  FNNTPcap.Free;
+  inherited Destroy;
+end;
+
+function TNNTPSend.ReadResult: Integer;
+var
+  s: string;
+begin
+  Result := 0;
+  FData.Clear;
+  s := FSock.RecvString(FTimeout);
+  FResultString := Copy(s, 5, Length(s) - 4);
+  if FSock.LastError <> 0 then
+    Exit;
+  if Length(s) >= 3 then
+    Result := StrToIntDef(Copy(s, 1, 3), 0);
+  FResultCode := Result;
+end;
+
+function TNNTPSend.ReadData: boolean;
+var
+  s: string;
+begin
+  repeat
+    s := FSock.RecvString(FTimeout);
+    if s = '.' then
+      break;
+    if (s <> '') and (s[1] = '.') then
+      s := Copy(s, 2, Length(s) - 1);
+    FData.Add(s);
+  until FSock.LastError <> 0;
+  Result := FSock.LastError = 0;
+end;
+
+function TNNTPSend.SendData: boolean;
+var
+  s: string;
+  n: integer;
+begin
+  for n := 0 to FDataToSend.Count - 1 do
+  begin
+    s := FDataToSend[n];
+    if (s <> '') and (s[1] = '.') then
+      s := s + '.';
+    FSock.SendString(s + CRLF);
+    if FSock.LastError <> 0 then
+      break;
+  end;
+  if FDataToSend.Count = 0 then
+    FSock.SendString(CRLF);
+  if FSock.LastError = 0 then
+    FSock.SendString('.' + CRLF);
+  FDataToSend.Clear;
+  Result := FSock.LastError = 0;
+end;
+
+function TNNTPSend.Connect: Boolean;
+begin
+  FSock.CloseSocket;
+  FSock.Bind(FIPInterface, cAnyPort);
+  if FSock.LastError = 0 then
+    FSock.Connect(FTargetHost, FTargetPort);
+  if FSock.LastError = 0 then
+    if FFullSSL then
+      FSock.SSLDoConnect;
+  Result := FSock.LastError = 0;
+end;
+
+function TNNTPSend.Login: Boolean;
+begin
+  Result := False;
+  FNNTPcap.Clear;
+  if not Connect then
+    Exit;
+  Result := (ReadResult div 100) = 2;
+  ListExtensions;
+  FNNTPcap.Assign(Fdata);
+  if Result then
+    if (not FullSSL) and FAutoTLS and (FindCap('STARTTLS') <> '') then
+      Result := StartTLS;
+  if (FUsername <> '') and Result then
+  begin
+    FSock.SendString('AUTHINFO USER ' + FUsername + CRLF);
+    if (ReadResult div 100) = 3 then
+    begin
+      FSock.SendString('AUTHINFO PASS ' + FPassword + CRLF);
+      Result := (ReadResult div 100) = 2;
+    end;
+  end;
+end;
+
+function TNNTPSend.Logout: Boolean;
+begin
+  FSock.SendString('QUIT' + CRLF);
+  Result := (ReadResult div 100) = 2;
+  FSock.CloseSocket;
+end;
+
+function TNNTPSend.DoCommand(const Command: string): Boolean;
+begin
+  FSock.SendString(Command + CRLF);
+  Result := (ReadResult div 100) = 2;
+  Result := Result and (FSock.LastError = 0);
+end;
+
+function TNNTPSend.DoCommandRead(const Command: string): Boolean;
+begin
+  Result := DoCommand(Command);
+  if Result then
+  begin
+    Result := ReadData;
+    Result := Result and (FSock.LastError = 0);
+  end;
+end;
+
+function TNNTPSend.DoCommandWrite(const Command: string): Boolean;
+var
+  x: integer;
+begin
+  FDataToSend.Assign(FData);
+  FSock.SendString(Command + CRLF);
+  x := (ReadResult div 100);
+  if x = 3 then
+  begin
+    SendData;
+    x := (ReadResult div 100);
+  end;
+  Result := x = 2;
+  Result := Result and (FSock.LastError = 0);
+end;
+
+function TNNTPSend.GetArticle(const Value: string): Boolean;
+var
+  s: string;
+begin
+  s := 'ARTICLE';
+  if Value <> '' then
+    s := s + ' ' + Value;
+  Result := DoCommandRead(s);
+end;
+
+function TNNTPSend.GetBody(const Value: string): Boolean;
+var
+  s: string;
+begin
+  s := 'BODY';
+  if Value <> '' then
+    s := s + ' ' + Value;
+  Result := DoCommandRead(s);
+end;
+
+function TNNTPSend.GetHead(const Value: string): Boolean;
+var
+  s: string;
+begin
+  s := 'HEAD';
+  if Value <> '' then
+    s := s + ' ' + Value;
+  Result := DoCommandRead(s);
+end;
+
+function TNNTPSend.GetStat(const Value: string): Boolean;
+var
+  s: string;
+begin
+  s := 'STAT';
+  if Value <> '' then
+    s := s + ' ' + Value;
+  Result := DoCommand(s);
+end;
+
+function TNNTPSend.SelectGroup(const Value: string): Boolean;
+begin
+  Result := DoCommand('GROUP ' + Value);
+end;
+
+function TNNTPSend.IHave(const MessID: string): Boolean;
+begin
+  Result := DoCommandWrite('IHAVE ' + MessID);
+end;
+
+function TNNTPSend.GotoLast: Boolean;
+begin
+  Result := DoCommand('LAST');
+end;
+
+function TNNTPSend.GotoNext: Boolean;
+begin
+  Result := DoCommand('NEXT');
+end;
+
+function TNNTPSend.ListGroups: Boolean;
+begin
+  Result := DoCommandRead('LIST');
+end;
+
+function TNNTPSend.ListNewGroups(Since: TDateTime): Boolean;
+begin
+  Result := DoCommandRead('NEWGROUPS ' + SimpleDateTime(Since) + ' GMT');
+end;
+
+function TNNTPSend.NewArticles(const Group: string; Since: TDateTime): Boolean;
+begin
+  Result := DoCommandRead('NEWNEWS ' + Group + ' ' + SimpleDateTime(Since) + ' GMT');
+end;
+
+function TNNTPSend.PostArticle: Boolean;
+begin
+  Result := DoCommandWrite('POST');
+end;
+
+function TNNTPSend.SwitchToSlave: Boolean;
+begin
+  Result := DoCommand('SLAVE');
+end;
+
+function TNNTPSend.Xover(xoStart, xoEnd: string): Boolean;
+var
+  s: string;
+begin
+  s := 'XOVER ' + xoStart;
+  if xoEnd <> xoStart then
+    s := s + '-' + xoEnd;
+  Result := DoCommandRead(s);
+end;
+
+function TNNTPSend.StartTLS: Boolean;
+begin
+  Result := False;
+  if FindCap('STARTTLS') <> '' then
+  begin
+    if DoCommand('STARTTLS') then
+    begin
+      Fsock.SSLDoConnect;
+      Result := FSock.LastError = 0;
+    end;
+  end;
+end;
+
+function TNNTPSend.ListExtensions: Boolean;
+begin
+  Result := DoCommandRead('LIST EXTENSIONS');
+end;
+
+function TNNTPSend.FindCap(const Value: string): string;
+var
+  n: Integer;
+  s: string;
+begin
+  s := UpperCase(Value);
+  Result := '';
+  for n := 0 to FNNTPcap.Count - 1 do
+    if Pos(s, UpperCase(FNNTPcap[n])) = 1 then
+    begin
+      Result := FNNTPcap[n];
+      Break;
+    end;
+end;
+
+{==============================================================================}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/pingsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/pingsend.pas
new file mode 100644
index 0000000..ddab79e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/pingsend.pas	
@@ -0,0 +1,708 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 004.000.000 |
+|==============================================================================|
+| Content: PING sender                                                         |
+|==============================================================================|
+| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2007.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(ICMP PING implementation.)
+Allows create PING and TRACEROUTE. Or you can diagnose your network.
+
+This unit using IpHlpApi (on WinXP or higher) if available. Otherwise it trying
+ to use RAW sockets.
+
+Warning: For use of RAW sockets you must have some special rights on some
+ systems. So, it working allways when you have administator/root rights.
+ Otherwise you can have problems!
+
+Note: This unit is NOT portable to .NET!
+  Use native .NET classes for Ping instead.
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$R-}
+{$H+}
+
+{$IFDEF CIL}
+  Sorry, this unit is not for .NET!
+{$ENDIF}
+
+unit pingsend;
+
+interface
+
+uses
+  SysUtils,
+  synsock, blcksock, synautil, synafpc, synaip
+{$IFDEF WIN32}
+  , windows
+{$ENDIF}
+  ;
+
+const
+  ICMP_ECHO = 8;
+  ICMP_ECHOREPLY = 0;
+  ICMP_UNREACH = 3;
+  ICMP_TIME_EXCEEDED = 11;
+//rfc-2292
+  ICMP6_ECHO = 128;
+  ICMP6_ECHOREPLY = 129;
+  ICMP6_UNREACH = 1;
+  ICMP6_TIME_EXCEEDED = 3;
+
+type
+  {:List of possible ICMP reply packet types.}
+  TICMPError = (
+    IE_NoError,
+    IE_Other,
+    IE_TTLExceed,
+    IE_UnreachOther,
+    IE_UnreachRoute,
+    IE_UnreachAdmin,
+    IE_UnreachAddr,
+    IE_UnreachPort
+    );
+
+  {:@abstract(Implementation of ICMP PING and ICMPv6 PING.)}
+  TPINGSend = class(TSynaClient)
+  private
+    FSock: TICMPBlockSocket;
+    FBuffer: string;
+    FSeq: Integer;
+    FId: Integer;
+    FPacketSize: Integer;
+    FPingTime: Integer;
+    FIcmpEcho: Byte;
+    FIcmpEchoReply: Byte;
+    FIcmpUnreach: Byte;
+    FReplyFrom: string;
+    FReplyType: byte;
+    FReplyCode: byte;
+    FReplyError: TICMPError;
+    FReplyErrorDesc: string;
+    FTTL: Byte;
+    Fsin: TVarSin;
+    function Checksum(Value: string): Word;
+    function Checksum6(Value: string): Word;
+    function ReadPacket: Boolean;
+    procedure TranslateError;
+    procedure TranslateErrorIpHlp(value: integer);
+    function InternalPing(const Host: string): Boolean;
+    function InternalPingIpHlp(const Host: string): Boolean;
+    function IsHostIP6(const Host: string): Boolean;
+    procedure GenErrorDesc;
+  public
+    {:Send ICMP ping to host and count @link(pingtime). If ping OK, result is
+     @true.}
+    function Ping(const Host: string): Boolean;
+    constructor Create;
+    destructor Destroy; override;
+  published
+    {:Size of PING packet. Default size is 32 bytes.}
+    property PacketSize: Integer read FPacketSize Write FPacketSize;
+
+    {:Time between request and reply.}
+    property PingTime: Integer read FPingTime;
+
+    {:From this address is sended reply for your PING request. It maybe not your
+     requested destination, when some error occured!}
+    property ReplyFrom: string read FReplyFrom;
+
+    {:ICMP type of PING reply. Each protocol using another values! For IPv4 and
+     IPv6 are used different values!}
+    property ReplyType: byte read FReplyType;
+
+    {:ICMP code of PING reply. Each protocol using another values! For IPv4 and
+     IPv6 are used different values! For protocol independent value look to
+     @link(ReplyError)}
+    property ReplyCode: byte read FReplyCode;
+
+    {:Return type of returned ICMP message. This value is independent on used
+     protocol!}
+    property ReplyError: TICMPError read FReplyError;
+
+    {:Return human readable description of returned packet type.}
+    property ReplyErrorDesc: string read FReplyErrorDesc;
+
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TICMPBlockSocket read FSock;
+
+    {:TTL value for ICMP query}
+    property TTL: byte read FTTL write FTTL;
+  end;
+
+{:A very useful function and example of its use would be found in the TPINGSend
+ object. Use it to ping to any host. If successful, returns the ping time in
+ milliseconds.  Returns -1 if an error occurred.}
+function PingHost(const Host: string): Integer;
+
+{:A very useful function and example of its use would be found in the TPINGSend
+ object. Use it to TraceRoute to any host.}
+function TraceRouteHost(const Host: string): string;
+
+implementation
+
+type
+  {:Record for ICMP ECHO packet header.}
+  TIcmpEchoHeader = record
+    i_type: Byte;
+    i_code: Byte;
+    i_checkSum: Word;
+    i_Id: Word;
+    i_seq: Word;
+    TimeStamp: integer;
+  end;
+
+  {:record used internally by TPingSend for compute checksum of ICMPv6 packet
+   pseudoheader.}
+  TICMP6Packet = record
+    in_source: TInAddr6;
+    in_dest: TInAddr6;
+    Length: integer;
+    free0: Byte;
+    free1: Byte;
+    free2: Byte;
+    proto: Byte;
+  end;
+
+{$IFDEF WIN32}
+const
+  DLLIcmpName = 'iphlpapi.dll';
+type
+  TIP_OPTION_INFORMATION = packed record
+    TTL: Byte;
+    TOS: Byte;
+    Flags: Byte;
+    OptionsSize: Byte;
+    OptionsData: PChar;
+  end;
+  PIP_OPTION_INFORMATION = ^TIP_OPTION_INFORMATION;
+
+  TICMP_ECHO_REPLY = packed record
+    Address: TInAddr;
+    Status: integer;
+    RoundTripTime: integer;
+    DataSize: Word;
+    Reserved: Word;
+    Data: pointer;
+    Options: TIP_OPTION_INFORMATION;
+  end;
+  PICMP_ECHO_REPLY = ^TICMP_ECHO_REPLY;
+
+  TICMPV6_ECHO_REPLY = packed record
+    Address: TSockAddrIn6;
+    Status: integer;
+    RoundTripTime: integer;
+  end;
+  PICMPV6_ECHO_REPLY = ^TICMPV6_ECHO_REPLY;
+
+  TIcmpCreateFile = function: integer; stdcall;
+  TIcmpCloseHandle = function(handle: integer): boolean; stdcall;
+  TIcmpSendEcho2 = function(handle: integer; Event: pointer; ApcRoutine: pointer;
+    ApcContext: pointer; DestinationAddress: TInAddr; RequestData: pointer;
+    RequestSize: integer; RequestOptions: PIP_OPTION_INFORMATION;
+    ReplyBuffer: pointer; ReplySize: integer; Timeout: Integer): integer; stdcall;
+  TIcmp6CreateFile = function: integer; stdcall;
+  TIcmp6SendEcho2 = function(handle: integer; Event: pointer; ApcRoutine: pointer;
+    ApcContext: pointer; SourceAddress: PSockAddrIn6; DestinationAddress: PSockAddrIn6;
+    RequestData: pointer; RequestSize: integer; RequestOptions: PIP_OPTION_INFORMATION;
+    ReplyBuffer: pointer; ReplySize: integer; Timeout: Integer): integer; stdcall;
+
+var
+  IcmpDllHandle: TLibHandle = 0;
+  IcmpHelper4: boolean = false;
+  IcmpHelper6: boolean = false;
+  IcmpCreateFile: TIcmpCreateFile = nil;
+  IcmpCloseHandle: TIcmpCloseHandle = nil;
+  IcmpSendEcho2: TIcmpSendEcho2 = nil;
+  Icmp6CreateFile: TIcmp6CreateFile = nil;
+  Icmp6SendEcho2: TIcmp6SendEcho2 = nil;
+{$ENDIF}
+{==============================================================================}
+
+constructor TPINGSend.Create;
+begin
+  inherited Create;
+  FSock := TICMPBlockSocket.Create;
+  FTimeout := 5000;
+  FPacketSize := 32;
+  FSeq := 0;
+  Randomize;
+  FTTL := 128;
+end;
+
+destructor TPINGSend.Destroy;
+begin
+  FSock.Free;
+  inherited Destroy;
+end;
+
+function TPINGSend.ReadPacket: Boolean;
+begin
+  FBuffer := FSock.RecvPacket(Ftimeout);
+  Result := FSock.LastError = 0;
+end;
+
+procedure TPINGSend.GenErrorDesc;
+begin
+  case FReplyError of
+    IE_NoError:
+      FReplyErrorDesc := '';
+    IE_Other:
+      FReplyErrorDesc := 'Unknown error';
+    IE_TTLExceed:
+      FReplyErrorDesc := 'TTL Exceeded';
+    IE_UnreachOther:
+      FReplyErrorDesc := 'Unknown unreachable';
+    IE_UnreachRoute:
+      FReplyErrorDesc := 'No route to destination';
+    IE_UnreachAdmin:
+      FReplyErrorDesc := 'Administratively prohibited';
+    IE_UnreachAddr:
+      FReplyErrorDesc := 'Address unreachable';
+    IE_UnreachPort:
+      FReplyErrorDesc := 'Port unreachable';
+  end;
+end;
+
+function TPINGSend.IsHostIP6(const Host: string): Boolean;
+var
+  f: integer;
+begin
+  f := AF_UNSPEC;
+  if IsIp(Host) then
+    f := AF_INET
+  else
+    if IsIp6(Host) then
+      f := AF_INET6;
+  synsock.SetVarSin(Fsin, host, '0', f,
+    IPPROTO_UDP, SOCK_DGRAM, Fsock.PreferIP4);
+  result := Fsin.sin_family = AF_INET6;
+end;
+
+function TPINGSend.Ping(const Host: string): Boolean;
+var
+  b: boolean;
+begin
+  FPingTime := -1;
+  FReplyFrom := '';
+  FReplyType := 0;
+  FReplyCode := 0;
+  FReplyError := IE_Other;
+  GenErrorDesc;
+  FBuffer := StringOfChar(#55, SizeOf(TICMPEchoHeader) + FPacketSize);
+{$IFDEF WIN32}
+  b := IsHostIP6(host);
+  if not(b) and IcmpHelper4 then
+    result := InternalPingIpHlp(host)
+  else
+    if b and IcmpHelper6 then
+      result := InternalPingIpHlp(host)
+    else
+      result := InternalPing(host);
+{$ELSE}
+   result := InternalPing(host);
+{$ENDIF}
+end;
+
+function TPINGSend.InternalPing(const Host: string): Boolean;
+var
+  IPHeadPtr: ^TIPHeader;
+  IpHdrLen: Integer;
+  IcmpEchoHeaderPtr: ^TICMPEchoHeader;
+  t: Boolean;
+  x: cardinal;
+  IcmpReqHead: string;
+begin
+  Result := False;
+  FSock.TTL := FTTL;
+  FSock.Bind(FIPInterface, cAnyPort);
+  FSock.Connect(Host, '0');
+  if FSock.LastError <> 0 then
+    Exit;
+  FSock.SizeRecvBuffer := 60 * 1024;
+  if FSock.IP6used then
+  begin
+    FIcmpEcho := ICMP6_ECHO;
+    FIcmpEchoReply := ICMP6_ECHOREPLY;
+    FIcmpUnreach := ICMP6_UNREACH;
+  end
+  else
+  begin
+    FIcmpEcho := ICMP_ECHO;
+    FIcmpEchoReply := ICMP_ECHOREPLY;
+    FIcmpUnreach := ICMP_UNREACH;
+  end;
+  IcmpEchoHeaderPtr := Pointer(FBuffer);
+  with IcmpEchoHeaderPtr^ do
+  begin
+    i_type := FIcmpEcho;
+    i_code := 0;
+    i_CheckSum := 0;
+    FId := System.Random(32767);
+    i_Id := FId;
+    TimeStamp := GetTick;
+    Inc(FSeq);
+    i_Seq := FSeq;
+    if fSock.IP6used then
+      i_CheckSum := CheckSum6(FBuffer)
+    else
+      i_CheckSum := CheckSum(FBuffer);
+  end;
+  FSock.SendString(FBuffer);
+  // remember first 8 bytes of ICMP packet
+  IcmpReqHead := Copy(FBuffer, 1, 8);
+  x := GetTick;
+  repeat
+    t := ReadPacket;
+    if not t then
+      break;
+    if fSock.IP6used then
+    begin
+{$IFNDEF WIN32}
+      IcmpEchoHeaderPtr := Pointer(FBuffer);
+{$ELSE}
+//WinXP SP1 with networking update doing this think by another way ;-O
+//      FBuffer := StringOfChar(#0, 4) + FBuffer;
+      IcmpEchoHeaderPtr := Pointer(FBuffer);
+//      IcmpEchoHeaderPtr^.i_type := FIcmpEchoReply;
+{$ENDIF}
+    end
+    else
+    begin
+      IPHeadPtr := Pointer(FBuffer);
+      IpHdrLen := (IPHeadPtr^.VerLen and $0F) * 4;
+      IcmpEchoHeaderPtr := @FBuffer[IpHdrLen + 1];
+    end;
+  //check for timeout
+    if TickDelta(x, GetTick) > FTimeout then
+    begin
+      t := false;
+      Break;
+    end;
+  //it discard sometimes possible 'echoes' of previosly sended packet
+  //or other unwanted ICMP packets...
+  until (IcmpEchoHeaderPtr^.i_type <> FIcmpEcho)
+    and ((IcmpEchoHeaderPtr^.i_id = FId)
+    or (Pos(IcmpReqHead, FBuffer) > 0));
+  if t then
+    begin
+      FPingTime := TickDelta(x, GetTick);
+      FReplyFrom := FSock.GetRemoteSinIP;
+      FReplyType := IcmpEchoHeaderPtr^.i_type;
+      FReplyCode := IcmpEchoHeaderPtr^.i_code;
+      TranslateError;
+      Result := True;
+    end;
+end;
+
+function TPINGSend.Checksum(Value: string): Word;
+var
+  CkSum: integer;
+  Num, Remain: Integer;
+  n, i: Integer;
+begin
+  Num := Length(Value) div 2;
+  Remain := Length(Value) mod 2;
+  CkSum := 0;
+  i := 1;
+  for n := 0 to Num - 1 do
+  begin
+    CkSum := CkSum + Synsock.HtoNs(DecodeInt(Value, i));
+    inc(i, 2);
+  end;
+  if Remain <> 0 then
+    CkSum := CkSum + Ord(Value[Length(Value)]);
+  CkSum := (CkSum shr 16) + (CkSum and $FFFF);
+  CkSum := CkSum + (CkSum shr 16);
+  Result := Word(not CkSum);
+end;
+
+function TPINGSend.Checksum6(Value: string): Word;
+const
+  IOC_OUT = $40000000;
+  IOC_IN = $80000000;
+  IOC_INOUT = (IOC_IN or IOC_OUT);
+  IOC_WS2 = $08000000;
+  SIO_ROUTING_INTERFACE_QUERY = 20 or IOC_WS2 or IOC_INOUT;
+var
+  ICMP6Ptr: ^TICMP6Packet;
+  s: string;
+  b: integer;
+  ip6: TSockAddrIn6;
+  x: integer;
+begin
+  Result := 0;
+{$IFDEF WIN32}
+  s := StringOfChar(#0, SizeOf(TICMP6Packet)) + Value;
+  ICMP6Ptr := Pointer(s);
+  x := synsock.WSAIoctl(FSock.Socket, SIO_ROUTING_INTERFACE_QUERY,
+    @FSock.RemoteSin, SizeOf(FSock.RemoteSin),
+    @ip6, SizeOf(ip6), @b, nil, nil);
+  if x <> -1 then
+    ICMP6Ptr^.in_dest := ip6.sin6_addr
+  else
+    ICMP6Ptr^.in_dest := FSock.LocalSin.sin6_addr;
+  ICMP6Ptr^.in_source := FSock.RemoteSin.sin6_addr;
+  ICMP6Ptr^.Length := synsock.htonl(Length(Value));
+  ICMP6Ptr^.proto := IPPROTO_ICMPV6;
+  Result := Checksum(s);
+{$ENDIF}
+end;
+
+procedure TPINGSend.TranslateError;
+begin
+  if fSock.IP6used then
+  begin
+    case FReplyType of
+      ICMP6_ECHOREPLY:
+        FReplyError := IE_NoError;
+      ICMP6_TIME_EXCEEDED:
+        FReplyError := IE_TTLExceed;
+      ICMP6_UNREACH:
+        case FReplyCode of
+          0:
+            FReplyError := IE_UnreachRoute;
+          3:
+            FReplyError := IE_UnreachAddr;
+          4:
+            FReplyError := IE_UnreachPort;
+          1:
+            FReplyError := IE_UnreachAdmin;
+        else
+          FReplyError := IE_UnreachOther;
+        end;
+    else
+      FReplyError := IE_Other;
+    end;
+  end
+  else
+  begin
+    case FReplyType of
+      ICMP_ECHOREPLY:
+        FReplyError := IE_NoError;
+      ICMP_TIME_EXCEEDED:
+        FReplyError := IE_TTLExceed;
+      ICMP_UNREACH:
+        case FReplyCode of
+          0:
+            FReplyError := IE_UnreachRoute;
+          1:
+            FReplyError := IE_UnreachAddr;
+          3:
+            FReplyError := IE_UnreachPort;
+          13:
+            FReplyError := IE_UnreachAdmin;
+        else
+          FReplyError := IE_UnreachOther;
+        end;
+    else
+      FReplyError := IE_Other;
+    end;
+  end;
+  GenErrorDesc;
+end;
+
+procedure TPINGSend.TranslateErrorIpHlp(value: integer);
+begin
+  case value of
+    11000, 0:
+      FReplyError := IE_NoError;
+    11013:
+      FReplyError := IE_TTLExceed;
+    11002:
+      FReplyError := IE_UnreachRoute;
+    11003:
+      FReplyError := IE_UnreachAddr;
+    11005:
+      FReplyError := IE_UnreachPort;
+    11004:
+      FReplyError := IE_UnreachAdmin;
+  else
+    FReplyError := IE_Other;
+  end;
+  GenErrorDesc;
+end;
+
+function TPINGSend.InternalPingIpHlp(const Host: string): Boolean;
+{$IFDEF WIN32}
+var
+  PingIp6: boolean;
+  PingHandle: integer;
+  r: integer;
+  ipo: TIP_OPTION_INFORMATION;
+  RBuff: string;
+  ip4reply: PICMP_ECHO_REPLY;
+  ip6reply: PICMPV6_ECHO_REPLY;
+  ip6: TSockAddrIn6;
+begin
+  Result := False;
+  PingIp6 := Fsin.sin_family = AF_INET6;
+  if pingIp6 then
+    PingHandle := Icmp6CreateFile
+  else
+    PingHandle := IcmpCreateFile;
+  if PingHandle <> -1 then
+  begin
+    try
+      ipo.TTL := FTTL;
+      ipo.TOS := 0;
+      ipo.Flags := 0;
+      ipo.OptionsSize := 0;
+      ipo.OptionsData := nil;
+      setlength(RBuff, 4096);
+      if pingIp6 then
+      begin
+        FillChar(ip6, sizeof(ip6), 0);
+        r := Icmp6SendEcho2(PingHandle, nil, nil, nil, @ip6, @Fsin,
+          Pchar(FBuffer), length(FBuffer), @ipo, pchar(RBuff), length(RBuff), FTimeout);
+        if r > 0 then
+        begin
+          RBuff := #0 + #0 + RBuff;
+          ip6reply := PICMPV6_ECHO_REPLY(pointer(RBuff));
+          FPingTime := ip6reply^.RoundTripTime;
+          ip6reply^.Address.sin6_family := AF_INET6;
+          FReplyFrom := GetSinIp(TVarSin(ip6reply^.Address));
+          TranslateErrorIpHlp(ip6reply^.Status);
+          Result := True;
+        end;
+      end
+      else
+      begin
+        r := IcmpSendEcho2(PingHandle, nil, nil, nil, Fsin.sin_addr,
+          Pchar(FBuffer), length(FBuffer), @ipo, pchar(RBuff), length(RBuff), FTimeout);
+        if r > 0 then
+        begin
+          ip4reply := PICMP_ECHO_REPLY(pointer(RBuff));
+          FPingTime := ip4reply^.RoundTripTime;
+          FReplyFrom := IpToStr(swapbytes(ip4reply^.Address.S_addr));
+          TranslateErrorIpHlp(ip4reply^.Status);
+          Result := True;
+        end;
+      end
+    finally
+      IcmpCloseHandle(PingHandle);
+    end;
+  end;
+end;
+{$ELSE}
+begin
+  result := false;
+end;
+{$ENDIF}
+
+{==============================================================================}
+
+function PingHost(const Host: string): Integer;
+begin
+  with TPINGSend.Create do
+  try
+    Result := -1;
+    if Ping(Host) then
+      if ReplyError = IE_NoError then
+        Result := PingTime;
+  finally
+    Free;
+  end;
+end;
+
+function TraceRouteHost(const Host: string): string;
+var
+  Ping: TPingSend;
+  ttl : byte;
+begin
+  Result := '';
+  Ping := TPINGSend.Create;
+  try
+    ttl := 1;
+    repeat
+      ping.TTL := ttl;
+      inc(ttl);
+      if ttl > 30 then
+        Break;
+      if not ping.Ping(Host) then
+      begin
+        Result := Result + cAnyHost+ ' Timeout' + CRLF;
+        continue;
+      end;
+      if (ping.ReplyError <> IE_NoError)
+        and (ping.ReplyError <> IE_TTLExceed) then
+      begin
+        Result := Result + Ping.ReplyFrom + ' ' + Ping.ReplyErrorDesc + CRLF;
+        break;
+      end;
+      Result := Result + Ping.ReplyFrom + ' ' + IntToStr(Ping.PingTime) + CRLF;
+    until ping.ReplyError = IE_NoError;
+  finally
+    Ping.Free;
+  end;
+end;
+
+{$IFDEF WIN32}
+initialization
+begin
+  IcmpHelper4 := false;
+  IcmpHelper6 := false;
+  IcmpDllHandle := LoadLibrary(DLLIcmpName);
+  if IcmpDllHandle <> 0 then
+  begin
+    IcmpCreateFile := GetProcAddress(IcmpDLLHandle, 'IcmpCreateFile');
+    IcmpCloseHandle := GetProcAddress(IcmpDLLHandle, 'IcmpCloseHandle');
+    IcmpSendEcho2 := GetProcAddress(IcmpDLLHandle, 'IcmpSendEcho2');
+    Icmp6CreateFile := GetProcAddress(IcmpDLLHandle, 'Icmp6CreateFile');
+    Icmp6SendEcho2 := GetProcAddress(IcmpDLLHandle, 'Icmp6SendEcho2');
+    IcmpHelper4 := assigned(IcmpCreateFile)
+      and assigned(IcmpCloseHandle)
+      and assigned(IcmpSendEcho2);
+    IcmpHelper6 := assigned(Icmp6CreateFile)
+      and assigned(Icmp6SendEcho2);
+  end;
+end;
+
+finalization
+begin
+  FreeLibrary(IcmpDllHandle);
+end;
+{$ENDIF}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/pop3send.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/pop3send.pas
new file mode 100644
index 0000000..a261c56
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/pop3send.pas	
@@ -0,0 +1,476 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 002.006.000 |
+|==============================================================================|
+| Content: POP3 client                                                         |
+|==============================================================================|
+| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2001-2007.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(POP3 protocol client)
+
+Used RFC: RFC-1734, RFC-1939, RFC-2195, RFC-2449, RFC-2595
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit pop3send;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil, synacode;
+
+const
+  cPop3Protocol = '110';
+
+type
+
+  {:The three types of possible authorization methods for "logging in" to a POP3
+   server.}
+  TPOP3AuthType = (POP3AuthAll, POP3AuthLogin, POP3AuthAPOP);
+
+  {:@abstract(Implementation of POP3 client protocol.)
+
+   Note: Are you missing properties for setting Username and Password? Look to
+   parent @link(TSynaClient) object!
+
+   Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TPOP3Send = class(TSynaClient)
+  private
+    FSock: TTCPBlockSocket;
+    FResultCode: Integer;
+    FResultString: string;
+    FFullResult: TStringList;
+    FStatCount: Integer;
+    FStatSize: Integer;
+    FListSize: Integer;
+    FTimeStamp: string;
+    FAuthType: TPOP3AuthType;
+    FPOP3cap: TStringList;
+    FAutoTLS: Boolean;
+    FFullSSL: Boolean;
+    function ReadResult(Full: Boolean): Integer;
+    function Connect: Boolean;
+    function AuthLogin: Boolean;
+    function AuthApop: Boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:You can call any custom by this method. Call Command without trailing CRLF.
+      If MultiLine parameter is @true, multilined response are expected.
+      Result is @true on sucess.}
+    function CustomCommand(const Command: string; MultiLine: Boolean): boolean;
+
+    {:Call CAPA command for get POP3 server capabilites.
+     note: not all servers support this command!}
+    function Capability: Boolean;
+
+    {:Connect to remote POP3 host. If all OK, result is @true.}
+    function Login: Boolean;
+
+    {:Disconnects from POP3 server.}
+    function Logout: Boolean;
+
+    {:Send RSET command. If all OK, result is @true.}
+    function Reset: Boolean;
+
+    {:Send NOOP command. If all OK, result is @true.}
+    function NoOp: Boolean;
+
+    {:Send STAT command and fill @link(StatCount) and @link(StatSize) property.
+     If all OK, result is @true.}
+    function Stat: Boolean;
+
+    {:Send LIST command. If Value is 0, LIST is for all messages. After
+     successful operation is listing in FullResult. If all OK, result is @True.}
+    function List(Value: Integer): Boolean;
+
+    {:Send RETR command. After successful operation dowloaded message in
+     @link(FullResult). If all OK, result is @true.}
+    function Retr(Value: Integer): Boolean;
+
+    {:Send RETR command. After successful operation dowloaded message in
+     @link(Stream). If all OK, result is @true.}
+    function RetrStream(Value: Integer; Stream: TStream): Boolean;
+
+    {:Send DELE command for delete specified message. If all OK, result is @true.}
+    function Dele(Value: Integer): Boolean;
+
+    {:Send TOP command. After successful operation dowloaded headers of message
+     and maxlines count of message in @link(FullResult). If all OK, result is
+     @true.}
+    function Top(Value, Maxlines: Integer): Boolean;
+
+    {:Send UIDL command. If Value is 0, UIDL is for all messages. After
+     successful operation is listing in FullResult. If all OK, result is @True.}
+    function Uidl(Value: Integer): Boolean;
+
+    {:Call STLS command for upgrade connection to SSL/TLS mode.}
+    function StartTLS: Boolean;
+
+    {:Try to find given capabily in capabilty string returned from POP3 server
+     by CAPA command.}
+    function FindCap(const Value: string): string;
+  published
+    {:Result code of last POP3 operation. 0 - error, 1 - OK.}
+    property ResultCode: Integer read FResultCode;
+
+    {:Result string of last POP3 operation.}
+    property ResultString: string read FResultString;
+
+    {:Stringlist with full lines returned as result of POP3 operation. I.e. if
+     operation is LIST, this property is filled by list of messages. If
+     operation is RETR, this property have downloaded message.}
+    property FullResult: TStringList read FFullResult;
+
+    {:After STAT command is there count of messages in inbox.}
+    property StatCount: Integer read FStatCount;
+
+    {:After STAT command is there size of all messages in inbox.}
+    property StatSize: Integer read  FStatSize;
+
+    {:After LIST 0 command size of all messages on server, After LIST x size of message x on server}
+    property ListSize: Integer read  FListSize;
+
+    {:If server support this, after comnnect is in this property timestamp of
+     remote server.}
+    property TimeStamp: string read FTimeStamp;
+
+    {:Type of authorisation for login to POP3 server. Dafault is autodetect one
+     of possible authorisation. Autodetect do this:
+
+     If remote POP3 server support APOP, try login by APOP method. If APOP is
+     not supported, or if APOP login failed, try classic USER+PASS login method.}
+    property AuthType: TPOP3AuthType read FAuthType Write FAuthType;
+
+    {:If is set to @true, then upgrade to SSL/TLS mode if remote server support it.}
+    property AutoTLS: Boolean read FAutoTLS Write FAutoTLS;
+
+    {:SSL/TLS mode is used from first contact to server. Servers with full
+     SSL/TLS mode usualy using non-standard TCP port!}
+    property FullSSL: Boolean read FFullSSL Write FFullSSL;
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TTCPBlockSocket read FSock;
+  end;
+
+implementation
+
+constructor TPOP3Send.Create;
+begin
+  inherited Create;
+  FFullResult := TStringList.Create;
+  FPOP3cap := TStringList.Create;
+  FSock := TTCPBlockSocket.Create;
+  FSock.ConvertLineEnd := true;
+  FTimeout := 60000;
+  FTargetPort := cPop3Protocol;
+  FStatCount := 0;
+  FStatSize := 0;
+  FListSize := 0;
+  FAuthType := POP3AuthAll;
+  FAutoTLS := False;
+  FFullSSL := False;
+end;
+
+destructor TPOP3Send.Destroy;
+begin
+  FSock.Free;
+  FPOP3cap.Free;
+  FullResult.Free;
+  inherited Destroy;
+end;
+
+function TPOP3Send.ReadResult(Full: Boolean): Integer;
+var
+  s: string;
+begin
+  Result := 0;
+  FFullResult.Clear;
+  s := FSock.RecvString(FTimeout);
+  if Pos('+OK', s) = 1 then
+    Result := 1;
+  FResultString := s;
+  if Full and (Result = 1) then
+    repeat
+      s := FSock.RecvString(FTimeout);
+      if s = '.' then
+        Break;
+      if s <> '' then
+        if s[1] = '.' then
+          Delete(s, 1, 1);
+      FFullResult.Add(s);
+    until FSock.LastError <> 0;
+  if not Full and (Result = 1) then
+    FFullResult.Add(SeparateRight(FResultString, ' '));
+  if FSock.LastError <> 0 then
+    Result := 0;
+  FResultCode := Result;
+end;
+
+function TPOP3Send.CustomCommand(const Command: string; MultiLine: Boolean): boolean;
+begin
+  FSock.SendString(Command + CRLF);
+  Result := ReadResult(MultiLine) <> 0;
+end;
+
+function TPOP3Send.AuthLogin: Boolean;
+begin
+  Result := False;
+  if not CustomCommand('USER ' + FUserName, False) then
+    exit;
+  Result := CustomCommand('PASS ' + FPassword, False)
+end;
+
+function TPOP3Send.AuthAPOP: Boolean;
+var
+  s: string;
+begin
+  s := StrToHex(MD5(FTimeStamp + FPassWord));
+  Result := CustomCommand('APOP ' + FUserName + ' ' + s, False);
+end;
+
+function TPOP3Send.Connect: Boolean;
+begin
+  // Do not call this function! It is calling by LOGIN method!
+  FStatCount := 0;
+  FStatSize := 0;
+  FSock.CloseSocket;
+  FSock.LineBuffer := '';
+  FSock.Bind(FIPInterface, cAnyPort);
+  if FSock.LastError = 0 then
+    FSock.Connect(FTargetHost, FTargetPort);
+  if FSock.LastError = 0 then
+    if FFullSSL then
+      FSock.SSLDoConnect;
+  Result := FSock.LastError = 0;
+end;
+
+function TPOP3Send.Capability: Boolean;
+begin
+  FPOP3cap.Clear;
+  Result := CustomCommand('CAPA', True);
+  if Result then
+    FPOP3cap.AddStrings(FFullResult);
+end;
+
+function TPOP3Send.Login: Boolean;
+var
+  s, s1: string;
+begin
+  Result := False;
+  FTimeStamp := '';
+  if not Connect then
+    Exit;
+  if ReadResult(False) <> 1 then
+    Exit;
+  s := SeparateRight(FResultString, '<');
+  if s <> FResultString then
+  begin
+    s1 := Trim(SeparateLeft(s, '>'));
+    if s1 <> s then
+      FTimeStamp := '<' + s1 + '>';
+  end;
+  Result := False;
+  if Capability then
+    if FAutoTLS and (Findcap('STLS') <> '') then
+      if StartTLS then
+        Capability
+      else
+      begin
+        Result := False;
+        Exit;
+      end;
+  if (FTimeStamp <> '') and not (FAuthType = POP3AuthLogin) then
+  begin
+    Result := AuthApop;
+    if not Result then
+    begin
+      if not Connect then
+        Exit;
+      if ReadResult(False) <> 1 then
+        Exit;
+    end;
+  end;
+  if not Result and not (FAuthType = POP3AuthAPOP) then
+    Result := AuthLogin;
+end;
+
+function TPOP3Send.Logout: Boolean;
+begin
+  Result := CustomCommand('QUIT', False);
+  FSock.CloseSocket;
+end;
+
+function TPOP3Send.Reset: Boolean;
+begin
+  Result := CustomCommand('RSET', False);
+end;
+
+function TPOP3Send.NoOp: Boolean;
+begin
+  Result := CustomCommand('NOOP', False);
+end;
+
+function TPOP3Send.Stat: Boolean;
+var
+  s: string;
+begin
+  Result := CustomCommand('STAT', False);
+  if Result then
+  begin
+    s := SeparateRight(ResultString, '+OK ');
+    FStatCount := StrToIntDef(Trim(SeparateLeft(s, ' ')), 0);
+    FStatSize := StrToIntDef(Trim(SeparateRight(s, ' ')), 0);
+  end;
+end;
+
+function TPOP3Send.List(Value: Integer): Boolean;
+var
+  s: string;
+  n: integer;
+begin
+  if Value = 0 then
+    s := 'LIST'
+  else
+    s := 'LIST ' + IntToStr(Value);
+  Result := CustomCommand(s, Value = 0);
+  FListSize := 0;
+  if Result then
+    if Value <> 0 then
+    begin
+      s := SeparateRight(ResultString, '+OK ');
+      FListSize := StrToIntDef(SeparateLeft(SeparateRight(s, ' '), ' '), 0);
+    end
+    else
+      for n := 0 to FFullResult.Count - 1 do
+        FListSize := FListSize + StrToIntDef(SeparateLeft(SeparateRight(s, ' '), ' '), 0);
+end;
+
+function TPOP3Send.Retr(Value: Integer): Boolean;
+begin
+  Result := CustomCommand('RETR ' + IntToStr(Value), True);
+end;
+
+//based on code by Miha Vrhovnik
+function TPOP3Send.RetrStream(Value: Integer; Stream: TStream): Boolean;
+var
+  s: string;
+begin
+  Result := False;
+  FFullResult.Clear;
+  Stream.Size := 0;
+  FSock.SendString('RETR ' + IntToStr(Value) + CRLF);
+
+  s := FSock.RecvString(FTimeout);
+  if Pos('+OK', s) = 1 then
+    Result := True;
+  FResultString := s;
+  if Result then begin
+    repeat
+      s := FSock.RecvString(FTimeout);
+      if s = '.' then
+        Break;
+      if s <> '' then begin
+        if s[1] = '.' then
+          Delete(s, 1, 1);
+      end;
+      WriteStrToStream(Stream, s);
+      WriteStrToStream(Stream, CRLF);
+    until FSock.LastError <> 0;
+  end;
+
+  if Result then
+    FResultCode := 1
+  else
+    FResultCode := 0;
+end;
+
+function TPOP3Send.Dele(Value: Integer): Boolean;
+begin
+  Result := CustomCommand('DELE ' + IntToStr(Value), False);
+end;
+
+function TPOP3Send.Top(Value, Maxlines: Integer): Boolean;
+begin
+  Result := CustomCommand('TOP ' + IntToStr(Value) + ' ' + IntToStr(Maxlines), True);
+end;
+
+function TPOP3Send.Uidl(Value: Integer): Boolean;
+var
+  s: string;
+begin
+  if Value = 0 then
+    s := 'UIDL'
+  else
+    s := 'UIDL ' + IntToStr(Value);
+  Result := CustomCommand(s, Value = 0);
+end;
+
+function TPOP3Send.StartTLS: Boolean;
+begin
+  Result := False;
+  if CustomCommand('STLS', False) then
+  begin
+    Fsock.SSLDoConnect;
+    Result := FSock.LastError = 0;
+  end;
+end;
+
+function TPOP3Send.FindCap(const Value: string): string;
+var
+  n: Integer;
+  s: string;
+begin
+  s := UpperCase(Value);
+  Result := '';
+  for n := 0 to FPOP3cap.Count - 1 do
+    if Pos(s, UpperCase(FPOP3cap[n])) = 1 then
+    begin
+      Result := FPOP3cap[n];
+      Break;
+    end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/slogsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/slogsend.pas
new file mode 100644
index 0000000..9c0625d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/slogsend.pas	
@@ -0,0 +1,319 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.002.002 |
+|==============================================================================|
+| Content: SysLog client                                                       |
+|==============================================================================|
+| Copyright (c)1999-2003, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2001-2003.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|    Christian Brosius                                                         |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(BSD SYSLOG protocol)
+
+Used RFC: RFC-3164
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$H+}
+
+unit slogsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil;
+
+const
+  cSysLogProtocol = '514';
+
+  FCL_Kernel = 0;
+  FCL_UserLevel = 1;
+  FCL_MailSystem = 2;
+  FCL_System = 3;
+  FCL_Security = 4;
+  FCL_Syslogd = 5;
+  FCL_Printer = 6;
+  FCL_News = 7;
+  FCL_UUCP = 8;
+  FCL_Clock = 9;
+  FCL_Authorization = 10;
+  FCL_FTP = 11;
+  FCL_NTP = 12;
+  FCL_LogAudit = 13;
+  FCL_LogAlert = 14;
+  FCL_Time = 15;
+  FCL_Local0 = 16;
+  FCL_Local1 = 17;
+  FCL_Local2 = 18;
+  FCL_Local3 = 19;
+  FCL_Local4 = 20;
+  FCL_Local5 = 21;
+  FCL_Local6 = 22;
+  FCL_Local7 = 23;
+
+type
+  {:@abstract(Define possible priority of Syslog message)}
+  TSyslogSeverity = (Emergency, Alert, Critical, Error, Warning, Notice, Info,
+    Debug);
+
+  {:@abstract(encoding or decoding of SYSLOG message)}
+  TSyslogMessage = class(TObject)
+  private
+    FFacility:Byte;
+    FSeverity:TSyslogSeverity;
+    FDateTime:TDateTime;
+    FTag:String;
+    FMessage:String;
+    FLocalIP:String;
+    function GetPacketBuf:String;
+    procedure SetPacketBuf(Value:String);
+  public
+    {:Reset values to defaults}
+    procedure Clear;
+  published
+    {:Define facilicity of Syslog message. For specify you may use predefined
+     FCL_* constants. Default is "FCL_Local0".}
+    property Facility:Byte read FFacility write FFacility;
+
+    {:Define possible priority of Syslog message. Default is "Debug".}
+    property Severity:TSyslogSeverity read FSeverity write FSeverity;
+
+    {:date and time of Syslog message}
+    property DateTime:TDateTime read FDateTime write FDateTime;
+
+    {:This is used for identify process of this message. Default is filename
+     of your executable file.}
+    property Tag:String read FTag write FTag;
+
+    {:Text of your message for log.}
+    property LogMessage:String read FMessage write FMessage;
+
+    {:IP address of message sender.}
+    property LocalIP:String read FLocalIP write FLocalIP;
+
+    {:This property holds encoded binary SYSLOG packet}
+    property PacketBuf:String read GetPacketBuf write SetPacketBuf;
+  end;
+
+  {:@abstract(This object implement BSD SysLog client)
+
+   Note: Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TSyslogSend = class(TSynaClient)
+  private
+    FSock: TUDPBlockSocket;
+    FSysLogMessage: TSysLogMessage;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    {:Send Syslog UDP packet defined by @link(SysLogMessage).}
+    function DoIt: Boolean;
+  published
+    {:Syslog message for send}
+    property SysLogMessage:TSysLogMessage read FSysLogMessage write FSysLogMessage;
+  end;
+
+{:Simply send packet to specified Syslog server.}
+function ToSysLog(const SyslogServer: string; Facil: Byte;
+  Sever: TSyslogSeverity; const Content: string): Boolean;
+
+implementation
+
+function TSyslogMessage.GetPacketBuf:String;
+begin
+  Result := '<' + IntToStr((FFacility * 8) + Ord(FSeverity)) + '>';
+  Result := Result + CDateTime(FDateTime) + ' ';
+  Result := Result + FLocalIP + ' ';
+  Result := Result + FTag + ': ' + FMessage;
+end;
+
+procedure TSyslogMessage.SetPacketBuf(Value:String);
+var StrBuf:String;
+    IntBuf,Pos:Integer;
+begin
+  if Length(Value) < 1 then exit;
+  Pos := 1;
+  if Value[Pos] <> '<' then exit;
+  Inc(Pos);
+  // Facility and Severity
+  StrBuf := '';
+  while (Value[Pos] <> '>')do
+  begin
+    StrBuf := StrBuf + Value[Pos];
+    Inc(Pos);
+  end;
+  IntBuf := StrToInt(StrBuf);
+  FFacility := IntBuf div 8;
+  case (IntBuf mod 8)of
+    0:FSeverity := Emergency;
+    1:FSeverity := Alert;
+    2:FSeverity := Critical;
+    3:FSeverity := Error;
+    4:FSeverity := Warning;
+    5:FSeverity := Notice;
+    6:FSeverity := Info;
+    7:FSeverity := Debug;
+  end;
+  // DateTime
+  Inc(Pos);
+  StrBuf := '';
+    // Month
+  while (Value[Pos] <> ' ')do
+    begin
+      StrBuf := StrBuf + Value[Pos];
+      Inc(Pos);
+    end;
+    StrBuf := StrBuf + Value[Pos];
+    Inc(Pos);
+    // Day
+  while (Value[Pos] <> ' ')do
+    begin
+      StrBuf := StrBuf + Value[Pos];
+      Inc(Pos);
+    end;
+    StrBuf := StrBuf + Value[Pos];
+    Inc(Pos);
+    // Time
+  while (Value[Pos] <> ' ')do
+    begin
+      StrBuf := StrBuf + Value[Pos];
+      Inc(Pos);
+    end;
+  FDateTime := DecodeRFCDateTime(StrBuf);
+  Inc(Pos);
+
+  // LocalIP
+  StrBuf := '';
+  while (Value[Pos] <> ' ')do
+    begin
+      StrBuf := StrBuf + Value[Pos];
+      Inc(Pos);
+    end;
+  FLocalIP := StrBuf;
+  Inc(Pos);
+  // Tag
+  StrBuf := '';
+  while (Value[Pos] <> ':')do
+    begin
+      StrBuf := StrBuf + Value[Pos];
+      Inc(Pos);
+    end;
+  FTag := StrBuf;
+  // LogMessage
+  Inc(Pos);
+  StrBuf := '';
+  while (Pos <= Length(Value))do
+    begin
+      StrBuf := StrBuf + Value[Pos];
+      Inc(Pos);
+    end;
+  FMessage := TrimSP(StrBuf);
+end;
+
+procedure TSysLogMessage.Clear;
+begin
+  FFacility := FCL_Local0;
+  FSeverity := Debug;
+  FTag := ExtractFileName(ParamStr(0));
+  FMessage := '';
+  FLocalIP  := '0.0.0.0';
+end;
+
+//------------------------------------------------------------------------------
+
+constructor TSyslogSend.Create;
+begin
+  inherited Create;
+  FSock := TUDPBlockSocket.Create;
+  FSysLogMessage := TSysLogMessage.Create;
+  FTargetPort := cSysLogProtocol;
+end;
+
+destructor TSyslogSend.Destroy;
+begin
+  FSock.Free;
+  FSysLogMessage.Free;
+  inherited Destroy;
+end;
+
+function TSyslogSend.DoIt: Boolean;
+var
+  L: TStringList;
+begin
+  Result := False;
+  L := TStringList.Create;
+  try
+    FSock.ResolveNameToIP(FSock.Localname, L);
+    if L.Count < 1 then
+      FSysLogMessage.LocalIP := '0.0.0.0'
+    else
+      FSysLogMessage.LocalIP := L[0];
+  finally
+    L.Free;
+  end;
+  FSysLogMessage.DateTime := Now;
+  if Length(FSysLogMessage.PacketBuf) <= 1024 then
+  begin
+    FSock.Connect(FTargetHost, FTargetPort);
+    FSock.SendString(FSysLogMessage.PacketBuf);
+    Result := FSock.LastError = 0;
+  end;
+end;
+
+{==============================================================================}
+
+function ToSysLog(const SyslogServer: string; Facil: Byte;
+  Sever: TSyslogSeverity; const Content: string): Boolean;
+begin
+  with TSyslogSend.Create do
+    try
+      TargetHost :=SyslogServer;
+      SysLogMessage.Facility := Facil;
+      SysLogMessage.Severity := Sever;
+      SysLogMessage.LogMessage := Content;
+      Result := DoIt;
+    finally
+      Free;
+    end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/smtpsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/smtpsend.pas
new file mode 100644
index 0000000..f597ef9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/smtpsend.pas	
@@ -0,0 +1,719 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 003.005.000 |
+|==============================================================================|
+| Content: SMTP client                                                         |
+|==============================================================================|
+| Copyright (c)1999-2009, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c) 1999-2009.               |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(SMTP client)
+
+Used RFC: RFC-1869, RFC-1870, RFC-1893, RFC-2034, RFC-2104, RFC-2195, RFC-2487,
+ RFC-2554, RFC-2821
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit smtpsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil, synacode;
+
+const
+  cSmtpProtocol = '25';
+
+type
+  {:@abstract(Implementation of SMTP and ESMTP procotol),
+   include some ESMTP extensions, include SSL/TLS too.
+
+   Note: Are you missing properties for setting Username and Password for ESMTP?
+   Look to parent @link(TSynaClient) object!
+
+   Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TSMTPSend = class(TSynaClient)
+  private
+    FSock: TTCPBlockSocket;
+    FResultCode: Integer;
+    FResultString: string;
+    FFullResult: TStringList;
+    FESMTPcap: TStringList;
+    FESMTP: Boolean;
+    FAuthDone: Boolean;
+    FESMTPSize: Boolean;
+    FMaxSize: Integer;
+    FEnhCode1: Integer;
+    FEnhCode2: Integer;
+    FEnhCode3: Integer;
+    FSystemName: string;
+    FAutoTLS: Boolean;
+    FFullSSL: Boolean;
+    procedure EnhancedCode(const Value: string);
+    function ReadResult: Integer;
+    function AuthLogin: Boolean;
+    function AuthCram: Boolean;
+    function AuthPlain: Boolean;
+    function Helo: Boolean;
+    function Ehlo: Boolean;
+    function Connect: Boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Connects to SMTP server (defined in @link(TSynaClient.TargetHost)) and
+     begin SMTP session. (First try ESMTP EHLO, next old HELO handshake). Parses
+     ESMTP capabilites and if you specified Username and password and remote
+     server can handle AUTH command, try login by AUTH command. Preffered login
+     method is CRAM-MD5 (if safer!). If all OK, result is @true, else result is
+     @false.}
+    function Login: Boolean;
+
+    {:Close SMTP session (QUIT command) and disconnect from SMTP server.}
+    function Logout: Boolean;
+
+    {:Send RSET SMTP command for reset SMTP session. If all OK, result is @true,
+     else result is @false.}
+    function Reset: Boolean;
+
+    {:Send NOOP SMTP command for keep SMTP session. If all OK, result is @true,
+     else result is @false.}
+    function NoOp: Boolean;
+
+    {:Send MAIL FROM SMTP command for set sender e-mail address. If sender's
+     e-mail address is empty string, transmited message is error message.
+
+     If size not 0 and remote server can handle SIZE parameter, append SIZE
+     parameter to request. If all OK, result is @true, else result is @false.}
+    function MailFrom(const Value: string; Size: Integer): Boolean;
+
+    {:Send RCPT TO SMTP command for set receiver e-mail address. It cannot be an
+     empty string. If all OK, result is @true, else result is @false.}
+    function MailTo(const Value: string): Boolean;
+
+    {:Send DATA SMTP command and transmit message data. If all OK, result is
+     @true, else result is @false.}
+    function MailData(const Value: Tstrings): Boolean;
+
+    {:Send ETRN SMTP command for start sending of remote queue for domain in
+     Value. If all OK, result is @true, else result is @false.}
+    function Etrn(const Value: string): Boolean;
+
+    {:Send VRFY SMTP command for check receiver e-mail address. It cannot be
+     an empty string. If all OK, result is @true, else result is @false.}
+    function Verify(const Value: string): Boolean;
+
+    {:Call STARTTLS command for upgrade connection to SSL/TLS mode.}
+    function StartTLS: Boolean;
+
+    {:Return string descriptive text for enhanced result codes stored in
+     @link(EnhCode1), @link(EnhCode2) and @link(EnhCode3).}
+    function EnhCodeString: string;
+
+    {:Try to find specified capability in ESMTP response.}
+    function FindCap(const Value: string): string;
+  published
+    {:result code of last SMTP command.}
+    property ResultCode: Integer read FResultCode;
+
+    {:result string of last SMTP command (begin with string representation of
+     result code).}
+    property ResultString: string read FResultString;
+
+    {:All result strings of last SMTP command (result is maybe multiline!).}
+    property FullResult: TStringList read FFullResult;
+
+    {:List of ESMTP capabilites of remote ESMTP server. (If you connect to ESMTP
+     server only!).}
+    property ESMTPcap: TStringList read FESMTPcap;
+
+    {:@TRUE if you successfuly logged to ESMTP server.}
+    property ESMTP: Boolean read FESMTP;
+
+    {:@TRUE if you successfuly pass authorisation to remote server.}
+    property AuthDone: Boolean read FAuthDone;
+
+    {:@TRUE if remote server can handle SIZE parameter.}
+    property ESMTPSize: Boolean read FESMTPSize;
+
+    {:When @link(ESMTPsize) is @TRUE, contains max length of message that remote
+     server can handle.}
+    property MaxSize: Integer read FMaxSize;
+
+    {:First digit of Enhanced result code. If last operation does not have
+     enhanced result code, values is 0.}
+    property EnhCode1: Integer read FEnhCode1;
+
+    {:Second digit of Enhanced result code. If last operation does not have
+     enhanced result code, values is 0.}
+    property EnhCode2: Integer read FEnhCode2;
+
+    {:Third digit of Enhanced result code. If last operation does not have
+     enhanced result code, values is 0.}
+    property EnhCode3: Integer read FEnhCode3;
+
+    {:name of our system used in HELO and EHLO command. Implicit value is
+     internet address of your machine.}
+    property SystemName: string read FSystemName Write FSystemName;
+
+    {:If is set to true, then upgrade to SSL/TLS mode if remote server support it.}
+    property AutoTLS: Boolean read FAutoTLS Write FAutoTLS;
+
+    {:SSL/TLS mode is used from first contact to server. Servers with full
+     SSL/TLS mode usualy using non-standard TCP port!}
+    property FullSSL: Boolean read FFullSSL Write FFullSSL;
+
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TTCPBlockSocket read FSock;
+  end;
+
+{:A very useful function and example of its use would be found in the TSMTPsend
+ object. Send maildata (text of e-mail with all SMTP headers! For example when
+ text of message is created by @link(TMimemess) object) from "MailFrom" e-mail
+ address to "MailTo" e-mail address (If you need more then one receiver, then
+ separate their addresses by comma).
+
+ Function sends e-mail to a SMTP server defined in "SMTPhost" parameter.
+ Username and password are used for authorization to the "SMTPhost". If you
+ don't want authorization, set "Username" and "Password" to empty strings. If
+ e-mail message is successfully sent, the result returns @true.
+
+ If you need use different port number then standard, then add this port number
+ to SMTPhost after colon. (i.e. '127.0.0.1:1025')}
+function SendToRaw(const MailFrom, MailTo, SMTPHost: string;
+  const MailData: TStrings; const Username, Password: string): Boolean;
+
+{:A very useful function and example of its use would be found in the TSMTPsend
+ object. Send "Maildata" (text of e-mail without any SMTP headers!) from
+ "MailFrom" e-mail address to "MailTo" e-mail address with "Subject".  (If you
+ need more then one receiver, then separate their addresses by comma).
+
+ This function constructs all needed SMTP headers (with DATE header) and sends
+ the e-mail to the SMTP server defined in the "SMTPhost" parameter. If the
+ e-mail message is successfully sent, the result will be @TRUE.
+
+ If you need use different port number then standard, then add this port number
+ to SMTPhost after colon. (i.e. '127.0.0.1:1025')}
+function SendTo(const MailFrom, MailTo, Subject, SMTPHost: string;
+  const MailData: TStrings): Boolean;
+
+{:A very useful function and example of its use would be found in the TSMTPsend
+ object. Sends "MailData" (text of e-mail without any SMTP headers!) from
+ "MailFrom" e-mail address to "MailTo" e-mail address (If you need more then one
+ receiver, then separate their addresses by comma).
+
+ This function sends the e-mail to the SMTP server defined in the "SMTPhost"
+ parameter. Username and password are used for authorization to the "SMTPhost".
+ If you dont want authorization, set "Username" and "Password" to empty Strings.
+ If the e-mail message is successfully sent, the result will be @TRUE.
+
+ If you need use different port number then standard, then add this port number
+ to SMTPhost after colon. (i.e. '127.0.0.1:1025')}
+function SendToEx(const MailFrom, MailTo, Subject, SMTPHost: string;
+  const MailData: TStrings; const Username, Password: string): Boolean;
+
+implementation
+
+constructor TSMTPSend.Create;
+begin
+  inherited Create;
+  FFullResult := TStringList.Create;
+  FESMTPcap := TStringList.Create;
+  FSock := TTCPBlockSocket.Create;
+  FSock.ConvertLineEnd := true;
+  FTimeout := 60000;
+  FTargetPort := cSmtpProtocol;
+  FSystemName := FSock.LocalName;
+  FAutoTLS := False;
+  FFullSSL := False;
+end;
+
+destructor TSMTPSend.Destroy;
+begin
+  FSock.Free;
+  FESMTPcap.Free;
+  FFullResult.Free;
+  inherited Destroy;
+end;
+
+procedure TSMTPSend.EnhancedCode(const Value: string);
+var
+  s, t: string;
+  e1, e2, e3: Integer;
+begin
+  FEnhCode1 := 0;
+  FEnhCode2 := 0;
+  FEnhCode3 := 0;
+  s := Copy(Value, 5, Length(Value) - 4);
+  t := Trim(SeparateLeft(s, '.'));
+  s := Trim(SeparateRight(s, '.'));
+  if t = '' then
+    Exit;
+  if Length(t) > 1 then
+    Exit;
+  e1 := StrToIntDef(t, 0);
+  if e1 = 0 then
+    Exit;
+  t := Trim(SeparateLeft(s, '.'));
+  s := Trim(SeparateRight(s, '.'));
+  if t = '' then
+    Exit;
+  if Length(t) > 3 then
+    Exit;
+  e2 := StrToIntDef(t, 0);
+  t := Trim(SeparateLeft(s, ' '));
+  if t = '' then
+    Exit;
+  if Length(t) > 3 then
+    Exit;
+  e3 := StrToIntDef(t, 0);
+  FEnhCode1 := e1;
+  FEnhCode2 := e2;
+  FEnhCode3 := e3;
+end;
+
+function TSMTPSend.ReadResult: Integer;
+var
+  s: string;
+begin
+  Result := 0;
+  FFullResult.Clear;
+  repeat
+    s := FSock.RecvString(FTimeout);
+    FResultString := s;
+    FFullResult.Add(s);
+    if FSock.LastError <> 0 then
+      Break;
+  until Pos('-', s) <> 4;
+  s := FFullResult[0];
+  if Length(s) >= 3 then
+    Result := StrToIntDef(Copy(s, 1, 3), 0);
+  FResultCode := Result;
+  EnhancedCode(s);
+end;
+
+function TSMTPSend.AuthLogin: Boolean;
+begin
+  Result := False;
+  FSock.SendString('AUTH LOGIN' + CRLF);
+  if ReadResult <> 334 then
+    Exit;
+  FSock.SendString(EncodeBase64(FUsername) + CRLF);
+  if ReadResult <> 334 then
+    Exit;
+  FSock.SendString(EncodeBase64(FPassword) + CRLF);
+  Result := ReadResult = 235;
+end;
+
+function TSMTPSend.AuthCram: Boolean;
+var
+  s: ansistring;
+begin
+  Result := False;
+  FSock.SendString('AUTH CRAM-MD5' + CRLF);
+  if ReadResult <> 334 then
+    Exit;
+  s := Copy(FResultString, 5, Length(FResultString) - 4);
+  s := DecodeBase64(s);
+  s := HMAC_MD5(s, FPassword);
+  s := FUsername + ' ' + StrToHex(s);
+  FSock.SendString(EncodeBase64(s) + CRLF);
+  Result := ReadResult = 235;
+end;
+
+function TSMTPSend.AuthPlain: Boolean;
+var
+  s: ansistring;
+begin
+  Result := False;
+  s := ansichar(0) + FUsername + ansichar(0) + FPassword;
+  FSock.SendString('AUTH PLAIN ' + EncodeBase64(s) + CRLF);
+  Result := ReadResult = 235;
+end;
+
+function TSMTPSend.Connect: Boolean;
+begin
+  FSock.CloseSocket;
+  FSock.Bind(FIPInterface, cAnyPort);
+  if FSock.LastError = 0 then
+    FSock.Connect(FTargetHost, FTargetPort);
+  if FSock.LastError = 0 then
+    if FFullSSL then
+      FSock.SSLDoConnect;
+  Result := FSock.LastError = 0;
+end;
+
+function TSMTPSend.Helo: Boolean;
+var
+  x: Integer;
+begin
+  FSock.SendString('HELO ' + FSystemName + CRLF);
+  x := ReadResult;
+  Result := (x >= 250) and (x <= 259);
+end;
+
+function TSMTPSend.Ehlo: Boolean;
+var
+  x: Integer;
+begin
+  FSock.SendString('EHLO ' + FSystemName + CRLF);
+  x := ReadResult;
+  Result := (x >= 250) and (x <= 259);
+end;
+
+function TSMTPSend.Login: Boolean;
+var
+  n: Integer;
+  auths: string;
+  s: string;
+begin
+  Result := False;
+  FESMTP := True;
+  FAuthDone := False;
+  FESMTPcap.clear;
+  FESMTPSize := False;
+  FMaxSize := 0;
+  if not Connect then
+    Exit;
+  if ReadResult <> 220 then
+    Exit;
+  if not Ehlo then
+  begin
+    FESMTP := False;
+    if not Helo then
+      Exit;
+  end;
+  Result := True;
+  if FESMTP then
+  begin
+    for n := 1 to FFullResult.Count - 1 do
+      FESMTPcap.Add(Copy(FFullResult[n], 5, Length(FFullResult[n]) - 4));
+    if (not FullSSL) and FAutoTLS and (FindCap('STARTTLS') <> '') then
+      if StartTLS then
+      begin
+        Ehlo;
+        FESMTPcap.Clear;
+        for n := 1 to FFullResult.Count - 1 do
+          FESMTPcap.Add(Copy(FFullResult[n], 5, Length(FFullResult[n]) - 4));
+      end
+      else
+      begin
+        Result := False;
+        Exit;
+      end;
+    if not ((FUsername = '') and (FPassword = '')) then
+    begin
+      s := FindCap('AUTH ');
+      if s = '' then
+        s := FindCap('AUTH=');
+      auths := UpperCase(s);
+      if s <> '' then
+      begin
+        if Pos('CRAM-MD5', auths) > 0 then
+          FAuthDone := AuthCram;
+        if (not FauthDone) and (Pos('PLAIN', auths) > 0) then
+          FAuthDone := AuthPlain;
+        if (not FauthDone) and (Pos('LOGIN', auths) > 0) then
+          FAuthDone := AuthLogin;
+      end;
+    end;
+    s := FindCap('SIZE');
+    if s <> '' then
+    begin
+      FESMTPsize := True;
+      FMaxSize := StrToIntDef(Copy(s, 6, Length(s) - 5), 0);
+    end;
+  end;
+end;
+
+function TSMTPSend.Logout: Boolean;
+begin
+  FSock.SendString('QUIT' + CRLF);
+  Result := ReadResult = 221;
+  FSock.CloseSocket;
+end;
+
+function TSMTPSend.Reset: Boolean;
+begin
+  FSock.SendString('RSET' + CRLF);
+  Result := ReadResult div 100 = 2;
+end;
+
+function TSMTPSend.NoOp: Boolean;
+begin
+  FSock.SendString('NOOP' + CRLF);
+  Result := ReadResult div 100 = 2;
+end;
+
+function TSMTPSend.MailFrom(const Value: string; Size: Integer): Boolean;
+var
+  s: string;
+begin
+  s := 'MAIL FROM:<' + Value + '>';
+  if FESMTPsize and (Size > 0) then
+    s := s + ' SIZE=' + IntToStr(Size);
+  FSock.SendString(s + CRLF);
+  Result := ReadResult div 100 = 2;
+end;
+
+function TSMTPSend.MailTo(const Value: string): Boolean;
+begin
+  FSock.SendString('RCPT TO:<' + Value + '>' + CRLF);
+  Result := ReadResult div 100 = 2;
+end;
+
+function TSMTPSend.MailData(const Value: TStrings): Boolean;
+var
+  n: Integer;
+  s: string;
+  t: string;
+  x: integer;
+begin
+  Result := False;
+  FSock.SendString('DATA' + CRLF);
+  if ReadResult <> 354 then
+    Exit;
+  t := '';
+  x := 1500;
+  for n := 0 to Value.Count - 1 do
+  begin
+    s := Value[n];
+    if Length(s) >= 1 then
+      if s[1] = '.' then
+        s := '.' + s;
+    if Length(t) + Length(s) >= x then
+    begin
+      FSock.SendString(t);
+      t := '';
+    end;
+    t := t + s + CRLF;
+  end;
+  if t <> '' then
+    FSock.SendString(t);
+  FSock.SendString('.' + CRLF);
+  Result := ReadResult div 100 = 2;
+end;
+
+function TSMTPSend.Etrn(const Value: string): Boolean;
+var
+  x: Integer;
+begin
+  FSock.SendString('ETRN ' + Value + CRLF);
+  x := ReadResult;
+  Result := (x >= 250) and (x <= 259);
+end;
+
+function TSMTPSend.Verify(const Value: string): Boolean;
+var
+  x: Integer;
+begin
+  FSock.SendString('VRFY ' + Value + CRLF);
+  x := ReadResult;
+  Result := (x >= 250) and (x <= 259);
+end;
+
+function TSMTPSend.StartTLS: Boolean;
+begin
+  Result := False;
+  if FindCap('STARTTLS') <> '' then
+  begin
+    FSock.SendString('STARTTLS' + CRLF);
+    if (ReadResult = 220) and (FSock.LastError = 0) then
+    begin
+      Fsock.SSLDoConnect;
+      Result := FSock.LastError = 0;
+    end;
+  end;
+end;
+
+function TSMTPSend.EnhCodeString: string;
+var
+  s, t: string;
+begin
+  s := IntToStr(FEnhCode2) + '.' + IntToStr(FEnhCode3);
+  t := '';
+  if s = '0.0' then t := 'Other undefined Status';
+  if s = '1.0' then t := 'Other address status';
+  if s = '1.1' then t := 'Bad destination mailbox address';
+  if s = '1.2' then t := 'Bad destination system address';
+  if s = '1.3' then t := 'Bad destination mailbox address syntax';
+  if s = '1.4' then t := 'Destination mailbox address ambiguous';
+  if s = '1.5' then t := 'Destination mailbox address valid';
+  if s = '1.6' then t := 'Mailbox has moved';
+  if s = '1.7' then t := 'Bad sender''s mailbox address syntax';
+  if s = '1.8' then t := 'Bad sender''s system address';
+  if s = '2.0' then t := 'Other or undefined mailbox status';
+  if s = '2.1' then t := 'Mailbox disabled, not accepting messages';
+  if s = '2.2' then t := 'Mailbox full';
+  if s = '2.3' then t := 'Message Length exceeds administrative limit';
+  if s = '2.4' then t := 'Mailing list expansion problem';
+  if s = '3.0' then t := 'Other or undefined mail system status';
+  if s = '3.1' then t := 'Mail system full';
+  if s = '3.2' then t := 'System not accepting network messages';
+  if s = '3.3' then t := 'System not capable of selected features';
+  if s = '3.4' then t := 'Message too big for system';
+  if s = '3.5' then t := 'System incorrectly configured';
+  if s = '4.0' then t := 'Other or undefined network or routing status';
+  if s = '4.1' then t := 'No answer from host';
+  if s = '4.2' then t := 'Bad connection';
+  if s = '4.3' then t := 'Routing server failure';
+  if s = '4.4' then t := 'Unable to route';
+  if s = '4.5' then t := 'Network congestion';
+  if s = '4.6' then t := 'Routing loop detected';
+  if s = '4.7' then t := 'Delivery time expired';
+  if s = '5.0' then t := 'Other or undefined protocol status';
+  if s = '5.1' then t := 'Invalid command';
+  if s = '5.2' then t := 'Syntax error';
+  if s = '5.3' then t := 'Too many recipients';
+  if s = '5.4' then t := 'Invalid command arguments';
+  if s = '5.5' then t := 'Wrong protocol version';
+  if s = '6.0' then t := 'Other or undefined media error';
+  if s = '6.1' then t := 'Media not supported';
+  if s = '6.2' then t := 'Conversion required and prohibited';
+  if s = '6.3' then t := 'Conversion required but not supported';
+  if s = '6.4' then t := 'Conversion with loss performed';
+  if s = '6.5' then t := 'Conversion failed';
+  if s = '7.0' then t := 'Other or undefined security status';
+  if s = '7.1' then t := 'Delivery not authorized, message refused';
+  if s = '7.2' then t := 'Mailing list expansion prohibited';
+  if s = '7.3' then t := 'Security conversion required but not possible';
+  if s = '7.4' then t := 'Security features not supported';
+  if s = '7.5' then t := 'Cryptographic failure';
+  if s = '7.6' then t := 'Cryptographic algorithm not supported';
+  if s = '7.7' then t := 'Message integrity failure';
+  s := '???-';
+  if FEnhCode1 = 2 then s := 'Success-';
+  if FEnhCode1 = 4 then s := 'Persistent Transient Failure-';
+  if FEnhCode1 = 5 then s := 'Permanent Failure-';
+  Result := s + t;
+end;
+
+function TSMTPSend.FindCap(const Value: string): string;
+var
+  n: Integer;
+  s: string;
+begin
+  s := UpperCase(Value);
+  Result := '';
+  for n := 0 to FESMTPcap.Count - 1 do
+    if Pos(s, UpperCase(FESMTPcap[n])) = 1 then
+    begin
+      Result := FESMTPcap[n];
+      Break;
+    end;
+end;
+
+{==============================================================================}
+
+function SendToRaw(const MailFrom, MailTo, SMTPHost: string;
+  const MailData: TStrings; const Username, Password: string): Boolean;
+var
+  SMTP: TSMTPSend;
+  s, t: string;
+begin
+  Result := False;
+  SMTP := TSMTPSend.Create;
+  try
+// if you need SOCKS5 support, uncomment next lines:
+    // SMTP.Sock.SocksIP := '127.0.0.1';
+    // SMTP.Sock.SocksPort := '1080';
+// if you need support for upgrade session to TSL/SSL, uncomment next lines:
+    // SMTP.AutoTLS := True;
+// if you need support for TSL/SSL tunnel, uncomment next lines:
+    // SMTP.FullSSL := True;
+    SMTP.TargetHost := Trim(SeparateLeft(SMTPHost, ':'));
+    s := Trim(SeparateRight(SMTPHost, ':'));
+    if (s <> '') and (s <> SMTPHost) then
+      SMTP.TargetPort := s;
+    SMTP.Username := Username;
+    SMTP.Password := Password;
+    if SMTP.Login then
+    begin
+      if SMTP.MailFrom(GetEmailAddr(MailFrom), Length(MailData.Text)) then
+      begin
+        s := MailTo;
+        repeat
+          t := GetEmailAddr(Trim(FetchEx(s, ',', '"')));
+          if t <> '' then
+            Result := SMTP.MailTo(t);
+          if not Result then
+            Break;
+        until s = '';
+        if Result then
+          Result := SMTP.MailData(MailData);
+      end;
+      SMTP.Logout;
+    end;
+  finally
+    SMTP.Free;
+  end;
+end;
+
+function SendToEx(const MailFrom, MailTo, Subject, SMTPHost: string;
+  const MailData: TStrings; const Username, Password: string): Boolean;
+var
+  t: TStrings;
+begin
+  t := TStringList.Create;
+  try
+    t.Assign(MailData);
+    t.Insert(0, '');
+    t.Insert(0, 'X-mailer: Synapse - Delphi & Kylix TCP/IP library by Lukas Gebauer');
+    t.Insert(0, 'Subject: ' + Subject);
+    t.Insert(0, 'Date: ' + Rfc822DateTime(now));
+    t.Insert(0, 'To: ' + MailTo);
+    t.Insert(0, 'From: ' + MailFrom);
+    Result := SendToRaw(MailFrom, MailTo, SMTPHost, t, Username, Password);
+  finally
+    t.Free;
+  end;
+end;
+
+function SendTo(const MailFrom, MailTo, Subject, SMTPHost: string;
+  const MailData: TStrings): Boolean;
+begin
+  Result := SendToEx(MailFrom, MailTo, Subject, SMTPHost, MailData, '', '');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/snmpsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/snmpsend.pas
new file mode 100644
index 0000000..d8909cf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/snmpsend.pas	
@@ -0,0 +1,1083 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 003.000.009 |
+|==============================================================================|
+| Content: SNMP client                                                         |
+|==============================================================================|
+| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2007.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|   Jean-Fabien Connault (cycocrew@worldnet.fr)                                |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(SNMP client)
+Supports SNMPv1 include traps, SNMPv2c and SNMPv3 include authorization
+ (encryption not yet supported!)
+
+Used RFC: RFC-1157, RFC-1901, RFC-3412, RFC-3414, RFC-3416
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$H+}
+
+unit snmpsend;
+
+interface
+
+uses
+  Classes, SysUtils,
+  blcksock, synautil, asn1util, synaip, synacode;
+
+const
+  cSnmpProtocol = '161';
+  cSnmpTrapProtocol = '162';
+
+  SNMP_V1 = 0;
+  SNMP_V2C = 1;
+  SNMP_V3 = 3;
+
+  //PDU type
+  PDUGetRequest = $A0;
+  PDUGetNextRequest = $A1;
+  PDUGetResponse = $A2;
+  PDUSetRequest = $A3;
+  PDUTrap = $A4; //Obsolete
+  //for SNMPv2
+  PDUGetBulkRequest = $A5;
+  PDUInformRequest = $A6;
+  PDUTrapV2 = $A7;
+  PDUReport = $A8;
+
+  //errors
+  ENoError = 0;
+  ETooBig = 1;
+  ENoSuchName = 2;
+  EBadValue = 3;
+  EReadOnly = 4;
+  EGenErr = 5;
+  //errors SNMPv2
+  ENoAccess = 6;
+  EWrongType = 7;
+  EWrongLength = 8;
+  EWrongEncoding = 9;
+  EWrongValue = 10;
+  ENoCreation = 11;
+  EInconsistentValue = 12;
+  EResourceUnavailable = 13;
+  ECommitFailed = 14;
+  EUndoFailed = 15;
+  EAuthorizationError = 16;
+  ENotWritable = 17;
+  EInconsistentName = 18;
+
+type
+
+  {:@abstract(Possible values for SNMPv3 flags.)
+   This flags specify level of authorization and encryption.}
+  TV3Flags = (
+    NoAuthNoPriv,
+    AuthNoPriv,
+    AuthPriv);
+
+  {:@abstract(Type of SNMPv3 authorization)}
+  TV3Auth = (
+    AuthMD5,
+    AuthSHA1);
+
+  {:@abstract(Data object with one record of MIB OID and corresponding values.)}
+  TSNMPMib = class(TObject)
+  protected
+    FOID: AnsiString;
+    FValue: AnsiString;
+    FValueType: Integer;
+  published
+    {:OID number in string format.}
+    property OID: AnsiString read FOID write FOID;
+
+    {:Value of OID object in string format.}
+    property Value: AnsiString read FValue write FValue;
+
+    {:Define type of Value. Supported values are defined in @link(asn1util).
+     For queries use ASN1_NULL, becouse you don't know type in response!}
+    property ValueType: Integer read FValueType write FValueType;
+  end;
+
+  {:@abstract(It holding all information for SNMPv3 agent synchronization)
+   Used internally.}
+  TV3Sync = record
+    EngineID: AnsiString;
+    EngineBoots: integer;
+    EngineTime: integer;
+    EngineStamp: Cardinal;
+  end;
+
+  {:@abstract(Data object abstracts SNMP data packet)}
+  TSNMPRec = class(TObject)
+  protected
+    FVersion: Integer;
+    FPDUType: Integer;
+    FID: Integer;
+    FErrorStatus: Integer;
+    FErrorIndex: Integer;
+    FCommunity: AnsiString;
+    FSNMPMibList: TList;
+    FMaxSize: Integer;
+    FFlags: TV3Flags;
+    FFlagReportable: Boolean;
+    FContextEngineID: AnsiString;
+    FContextName: AnsiString;
+    FAuthMode: TV3Auth;
+    FAuthEngineID: AnsiString;
+    FAuthEngineBoots: integer;
+    FAuthEngineTime: integer;
+    FAuthEngineTimeStamp: cardinal;
+    FUserName: AnsiString;
+    FPassword: AnsiString;
+    FAuthKey: AnsiString;
+    FPrivKey: AnsiString;
+    FOldTrapEnterprise: AnsiString;
+    FOldTrapHost: AnsiString;
+    FOldTrapGen: Integer;
+    FOldTrapSpec: Integer;
+    FOldTrapTimeTicks: Integer;
+    function Pass2Key(const Value: AnsiString): AnsiString;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Decode SNMP packet in buffer to object properties.}
+    function DecodeBuf(const Buffer: AnsiString): Boolean;
+
+    {:Encode obeject properties to SNMP packet.}
+    function EncodeBuf: AnsiString;
+
+    {:Clears all object properties to default values.}
+    procedure Clear;
+
+    {:Add entry to @link(SNMPMibList). For queries use value as empty string,
+     and ValueType as ASN1_NULL.}
+    procedure MIBAdd(const MIB, Value: AnsiString; ValueType: Integer);
+
+    {:Delete entry from @link(SNMPMibList).}
+    procedure MIBDelete(Index: Integer);
+
+    {:Search @link(SNMPMibList) list for MIB and return correspond value.}
+    function MIBGet(const MIB: AnsiString): AnsiString;
+
+    {:return number of entries in MIB array.}
+    function MIBCount: integer;
+
+    {:Return MIB information from given row of MIB array.}
+    function MIBByIndex(Index: Integer): TSNMPMib;
+
+    {:List of @link(TSNMPMib) objects.}
+    property SNMPMibList: TList read FSNMPMibList;
+  published
+    {:Version of SNMP packet. Default value is 0 (SNMP ver. 1). You can use
+     value 1 for SNMPv2c or value 3 for SNMPv3.}
+    property Version: Integer read FVersion write FVersion;
+
+    {:Community string for autorize access to SNMP server. (Case sensitive!)
+     Community string is not used in SNMPv3! Use @link(Username) and
+     @link(password) instead!}
+    property Community: AnsiString read FCommunity write FCommunity;
+
+    {:Define type of SNMP operation.}
+    property PDUType: Integer read FPDUType write FPDUType;
+
+    {:Contains ID number. Not need to use.}
+    property ID: Integer read FID write FID;
+
+    {:When packet is reply, contains error code. Supported values are defined by
+     E* constants.}
+    property ErrorStatus: Integer read FErrorStatus write FErrorStatus;
+
+    {:Point to error position in reply packet. Not usefull for users. It only
+     good for debugging!}
+    property ErrorIndex: Integer read FErrorIndex write FErrorIndex;
+
+    {:special value for GetBulkRequest of SNMPv2 and v3.}
+    property NonRepeaters: Integer read FErrorStatus write FErrorStatus;
+
+    {:special value for GetBulkRequest of SNMPv2 and v3.}
+    property MaxRepetitions: Integer read FErrorIndex write FErrorIndex;
+
+    {:Maximum message size in bytes for SNMPv3. For sending is default 1472 bytes.}
+    property MaxSize: Integer read FMaxSize write FMaxSize;
+
+    {:Specify if message is authorised or encrypted. Used only in SNMPv3, and
+     encryption is not yet supported!}
+    property Flags: TV3Flags read FFlags write FFlags;
+
+    {:For SNMPv3.... If is @true, SNMP agent must send reply (at least with some
+     error).}
+    property FlagReportable: Boolean read FFlagReportable write FFlagReportable;
+
+    {:For SNMPv3. If not specified, is used value from @link(AuthEngineID)}
+    property ContextEngineID: AnsiString read FContextEngineID write FContextEngineID;
+
+    {:For SNMPv3.}
+    property ContextName: AnsiString read FContextName write FContextName;
+
+    {:For SNMPv3. Specify Authorization mode. (specify used hash for
+     authorization)}
+    property AuthMode: TV3Auth read FAuthMode write FAuthMode;
+
+    {:value used by SNMPv3 authorisation for synchronization with SNMP agent.}
+    property AuthEngineID: AnsiString read FAuthEngineID write FAuthEngineID;
+
+    {:value used by SNMPv3 authorisation for synchronization with SNMP agent.}
+    property AuthEngineBoots: Integer read FAuthEngineBoots write FAuthEngineBoots;
+
+    {:value used by SNMPv3 authorisation for synchronization with SNMP agent.}
+    property AuthEngineTime: Integer read FAuthEngineTime write FAuthEngineTime;
+
+    {:value used by SNMPv3 authorisation for synchronization with SNMP agent.}
+    property AuthEngineTimeStamp: Cardinal read FAuthEngineTimeStamp Write FAuthEngineTimeStamp;
+
+    {:SNMPv3 authorization username}
+    property UserName: AnsiString read FUserName write FUserName;
+
+    {:SNMPv3 authorization password}
+    property Password: AnsiString read FPassword write FPassword;
+
+    {:For SNMPv3. Computed Athorization key from @link(password).}
+    property AuthKey: AnsiString read FAuthKey write FAuthKey;
+
+    {:For SNMPv3. Encryption key for message encryption. Not yet used!}
+    property PrivKey: AnsiString read FPrivKey write FPrivKey;
+
+    {:MIB value to identify the object that sent the TRAPv1.}
+    property OldTrapEnterprise: AnsiString read FOldTrapEnterprise write FOldTrapEnterprise;
+
+    {:Address of TRAPv1 sender (IP address).}
+    property OldTrapHost: AnsiString read FOldTrapHost write FOldTrapHost;
+
+    {:Generic TRAPv1 identification.}
+    property OldTrapGen: Integer read FOldTrapGen write FOldTrapGen;
+
+    {:Specific TRAPv1 identification.}
+    property OldTrapSpec: Integer read FOldTrapSpec write FOldTrapSpec;
+
+    {:Number of 1/100th of seconds since last reboot or power up. (for TRAPv1)}
+    property OldTrapTimeTicks: Integer read FOldTrapTimeTicks write FOldTrapTimeTicks;
+  end;
+
+  {:@abstract(Implementation of SNMP protocol.)
+
+   Note: Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TSNMPSend = class(TSynaClient)
+  protected
+    FSock: TUDPBlockSocket;
+    FBuffer: AnsiString;
+    FHostIP: AnsiString;
+    FQuery: TSNMPRec;
+    FReply: TSNMPRec;
+    function InternalSendSnmp(const Value: TSNMPRec): Boolean;
+    function InternalRecvSnmp(const Value: TSNMPRec): Boolean;
+    function InternalSendRequest(const QValue, RValue: TSNMPRec): Boolean;
+    function GetV3EngineID: AnsiString;
+    function GetV3Sync: TV3Sync;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Connects to a Host and send there query. If in timeout SNMP server send
+     back query, result is @true. If is used SNMPv3, then it synchronize self
+     with SNMPv3 agent first. (It is needed for SNMPv3 auhorization!)}
+    function SendRequest: Boolean;
+
+    {:Send SNMP packet only, but not waits for reply. Good for sending traps.}
+    function SendTrap: Boolean;
+
+    {:Receive SNMP packet only. Good for receiving traps.}
+    function RecvTrap: Boolean;
+
+    {:Mapped to @link(SendRequest) internally. This function is only for
+     backward compatibility.}
+    function DoIt: Boolean;
+  published
+    {:contains raw binary form of SNMP packet. Good for debugging.}
+    property Buffer: AnsiString read FBuffer write FBuffer;
+
+    {:After SNMP operation hold IP address of remote side.}
+    property HostIP: AnsiString read FHostIP;
+
+    {:Data object contains SNMP query.}
+    property Query: TSNMPRec read FQuery;
+
+    {:Data object contains SNMP reply.}
+    property Reply: TSNMPRec read FReply;
+
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TUDPBlockSocket read FSock;
+  end;
+
+{:A very useful function and example of its use would be found in the TSNMPSend
+ object. It implements basic GET method of the SNMP protocol. The MIB value is
+ located in the "OID" variable, and is sent to the requested "SNMPHost" with
+ the proper "Community" access identifier. Upon a successful retrieval, "Value"
+ will contain the information requested. If the SNMP operation is successful,
+ the result returns @true.}
+function SNMPGet(const OID, Community, SNMPHost: AnsiString; var Value: AnsiString): Boolean;
+
+{:This is useful function and example of use TSNMPSend object. It implements
+ the basic SET method of the SNMP protocol. If the SNMP operation is successful,
+ the result is @true. "Value" is value of MIB Oid for "SNMPHost" with "Community"
+ access identifier. You must specify "ValueType" too.}
+function SNMPSet(const OID, Community, SNMPHost, Value: AnsiString; ValueType: Integer): Boolean;
+
+{:A very useful function and example of its use would be found in the TSNMPSend
+ object. It implements basic GETNEXT method of the SNMP protocol. The MIB value
+ is located in the "OID" variable, and is sent to the requested "SNMPHost" with
+ the proper "Community" access identifier. Upon a successful retrieval, "Value"
+ will contain the information requested. If the SNMP operation is successful,
+ the result returns @true.}
+function SNMPGetNext(var OID: AnsiString; const Community, SNMPHost: AnsiString; var Value: AnsiString): Boolean;
+
+{:A very useful function and example of its use would be found in the TSNMPSend
+ object. It implements basic read of SNMP MIB tables. As BaseOID you must
+ specify basic MIB OID of requested table (base IOD is OID without row and
+ column specificator!)
+ Table is readed into stringlist, where each string is comma delimited string.
+
+ Warning: this function is not have best performance. For better performance
+ you must write your own function. best performace you can get by knowledge
+ of structuture of table and by more then one MIB on one query. }
+function SNMPGetTable(const BaseOID, Community, SNMPHost: AnsiString; const Value: TStrings): Boolean;
+
+{:A very useful function and example of its use would be found in the TSNMPSend
+ object. It implements basic read of SNMP MIB table element. As BaseOID you must
+ specify basic MIB OID of requested table (base IOD is OID without row and
+ column specificator!)
+ As next you must specify identificator of row and column for specify of needed
+ field of table.}
+function SNMPGetTableElement(const BaseOID, RowID, ColID, Community, SNMPHost: AnsiString; var Value: AnsiString): Boolean;
+
+{:A very useful function and example of its use would be found in the TSNMPSend
+ object. It implements a TRAPv1 to send with all data in the parameters.}
+function SendTrap(const Dest, Source, Enterprise, Community: AnsiString;
+  Generic, Specific, Seconds: Integer; const MIBName, MIBValue: AnsiString;
+  MIBtype: Integer): Integer;
+
+{:A very useful function and example of its use would be found in the TSNMPSend
+ object. It receives a TRAPv1 and returns all the data that comes with it.}
+function RecvTrap(var Dest, Source, Enterprise, Community: AnsiString;
+  var Generic, Specific, Seconds: Integer; const MIBName,
+  MIBValue: TStringList): Integer;
+
+implementation
+
+{==============================================================================}
+
+constructor TSNMPRec.Create;
+begin
+  inherited Create;
+  FSNMPMibList := TList.Create;
+  Clear;
+  FID := 1;
+  FMaxSize := 1472;
+end;
+
+destructor TSNMPRec.Destroy;
+var
+  i: Integer;
+begin
+  for i := 0 to FSNMPMibList.Count - 1 do
+    TSNMPMib(FSNMPMibList[i]).Free;
+  FSNMPMibList.Clear;
+  FSNMPMibList.Free;
+  inherited Destroy;
+end;
+
+function TSNMPRec.Pass2Key(const Value: AnsiString): AnsiString;
+var
+  key: AnsiString;
+begin
+  case FAuthMode of
+    AuthMD5:
+      begin
+        key := MD5LongHash(Value, 1048576);
+        Result := MD5(key + FAuthEngineID + key);
+      end;
+    AuthSHA1:
+      begin
+        key := SHA1LongHash(Value, 1048576);
+        Result := SHA1(key + FAuthEngineID + key);
+      end;
+  else
+    Result := '';
+  end;
+end;
+
+
+function TSNMPRec.DecodeBuf(const Buffer: AnsiString): Boolean;
+var
+  Pos: Integer;
+  EndPos: Integer;
+  sm, sv: AnsiString;
+  Svt: Integer;
+  s: AnsiString;
+  Spos: integer;
+  x: Byte;
+begin
+  Clear;
+  Result := False;
+  if Length(Buffer) < 2 then
+    Exit;
+  if (Ord(Buffer[1]) and $20) = 0 then
+    Exit;
+  Pos := 2;
+  EndPos := ASNDecLen(Pos, Buffer);
+  if Length(Buffer) < (EndPos + 2) then
+    Exit;
+  Self.FVersion := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+
+  if FVersion = 3 then
+  begin
+    ASNItem(Pos, Buffer, Svt);  //header data seq
+    ASNItem(Pos, Buffer, Svt);  //ID
+    FMaxSize := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+    s := ASNItem(Pos, Buffer, Svt);
+    x := 0;
+    if s <> '' then
+      x := Ord(s[1]);
+    FFlagReportable := (x and 4) > 0;
+    x := x and 3;
+    case x of
+      1:
+        FFlags := AuthNoPriv;
+      3:
+        FFlags := AuthPriv;
+    else
+      FFlags := NoAuthNoPriv;
+    end;
+
+    x := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+    s := ASNItem(Pos, Buffer, Svt); //SecurityParameters
+    //if SecurityModel is USM, then try to decode SecurityParameters
+    if (x = 3) and (s <> '') then
+    begin
+      spos := 1;
+      ASNItem(SPos, s, Svt);
+      FAuthEngineID := ASNItem(SPos, s, Svt);
+      FAuthEngineBoots := StrToIntDef(ASNItem(SPos, s, Svt), 0);
+      FAuthEngineTime := StrToIntDef(ASNItem(SPos, s, Svt), 0);
+      FAuthEngineTimeStamp := GetTick;
+      FUserName := ASNItem(SPos, s, Svt);
+      FAuthKey := ASNItem(SPos, s, Svt);
+      FPrivKey := ASNItem(SPos, s, Svt);
+    end;
+    //scopedPDU
+    s := ASNItem(Pos, Buffer, Svt);
+    if Svt = ASN1_OCTSTR then
+    begin
+      //decrypt!
+    end;
+    FContextEngineID := ASNItem(Pos, Buffer, Svt);
+    FContextName := ASNItem(Pos, Buffer, Svt);
+  end
+  else
+  begin
+    //old packet
+    Self.FCommunity := ASNItem(Pos, Buffer, Svt);
+  end;
+
+  ASNItem(Pos, Buffer, Svt);
+  Self.FPDUType := Svt;
+  if Self.FPDUType = PDUTrap then
+  begin
+    FOldTrapEnterprise := ASNItem(Pos, Buffer, Svt);
+    FOldTrapHost := ASNItem(Pos, Buffer, Svt);
+    FOldTrapGen := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+    FOldTrapSpec := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+    FOldTrapTimeTicks := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+  end
+  else
+  begin
+    Self.FID := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+    Self.FErrorStatus := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+    Self.FErrorIndex := StrToIntDef(ASNItem(Pos, Buffer, Svt), 0);
+  end;
+  ASNItem(Pos, Buffer, Svt);
+  while Pos < EndPos do
+  begin
+    ASNItem(Pos, Buffer, Svt);
+    Sm := ASNItem(Pos, Buffer, Svt);
+    Sv := ASNItem(Pos, Buffer, Svt);
+    Self.MIBAdd(sm, sv, Svt);
+  end;
+  Result := True;
+end;
+
+function TSNMPRec.EncodeBuf: AnsiString;
+var
+  s: AnsiString;
+  SNMPMib: TSNMPMib;
+  n: Integer;
+  pdu, head, auth, authbeg: AnsiString;
+  x: Byte;
+begin
+  pdu := '';
+  for n := 0 to FSNMPMibList.Count - 1 do
+  begin
+    SNMPMib := TSNMPMib(FSNMPMibList[n]);
+    case SNMPMib.ValueType of
+      ASN1_INT:
+        s := ASNObject(MibToID(SNMPMib.OID), ASN1_OBJID) +
+          ASNObject(ASNEncInt(StrToIntDef(SNMPMib.Value, 0)), SNMPMib.ValueType);
+      ASN1_COUNTER, ASN1_GAUGE, ASN1_TIMETICKS:
+        s := ASNObject(MibToID(SNMPMib.OID), ASN1_OBJID) +
+          ASNObject(ASNEncUInt(StrToIntDef(SNMPMib.Value, 0)), SNMPMib.ValueType);
+      ASN1_OBJID:
+        s := ASNObject(MibToID(SNMPMib.OID), ASN1_OBJID) +
+          ASNObject(MibToID(SNMPMib.Value), SNMPMib.ValueType);
+      ASN1_IPADDR:
+        s := ASNObject(MibToID(SNMPMib.OID), ASN1_OBJID) +
+          ASNObject(IPToID(SNMPMib.Value), SNMPMib.ValueType);
+      ASN1_NULL:
+        s := ASNObject(MibToID(SNMPMib.OID), ASN1_OBJID) +
+          ASNObject('', ASN1_NULL);
+    else
+      s := ASNObject(MibToID(SNMPMib.OID), ASN1_OBJID) +
+        ASNObject(SNMPMib.Value, SNMPMib.ValueType);
+    end;
+    pdu := pdu + ASNObject(s, ASN1_SEQ);
+  end;
+  pdu := ASNObject(pdu, ASN1_SEQ);
+
+  if Self.FPDUType = PDUTrap then
+    pdu := ASNObject(MibToID(FOldTrapEnterprise), ASN1_OBJID) +
+      ASNObject(IPToID(FOldTrapHost), ASN1_IPADDR) +
+      ASNObject(ASNEncInt(FOldTrapGen), ASN1_INT) +
+      ASNObject(ASNEncInt(FOldTrapSpec), ASN1_INT) +
+      ASNObject(ASNEncUInt(FOldTrapTimeTicks), ASN1_TIMETICKS) +
+      pdu
+  else
+    pdu := ASNObject(ASNEncInt(Self.FID), ASN1_INT) +
+      ASNObject(ASNEncInt(Self.FErrorStatus), ASN1_INT) +
+      ASNObject(ASNEncInt(Self.FErrorIndex), ASN1_INT) +
+      pdu;
+  pdu := ASNObject(pdu, Self.FPDUType);
+
+  if FVersion = 3 then
+  begin
+    if FContextEngineID = '' then
+      FContextEngineID := FAuthEngineID;
+    //complete PDUv3...
+    pdu := ASNObject(FContextEngineID, ASN1_OCTSTR)
+      + ASNObject(FContextName, ASN1_OCTSTR)
+      + pdu;
+    //maybe encrypt pdu... in future
+    pdu := ASNObject(pdu, ASN1_SEQ);
+
+    //prepare flags
+    case FFlags of
+      AuthNoPriv:
+        x := 1;
+      AuthPriv:
+        x := 3;
+    else
+      x := 0;
+    end;
+    if FFlagReportable then
+      x := x or 4;
+    head := ASNObject(ASNEncInt(Self.FVersion), ASN1_INT);
+    s := ASNObject(ASNEncInt(FID), ASN1_INT)
+      + ASNObject(ASNEncInt(FMaxSize), ASN1_INT)
+      + ASNObject(AnsiChar(x), ASN1_OCTSTR)
+    //encode security model USM
+      + ASNObject(ASNEncInt(3), ASN1_INT);
+    head := head + ASNObject(s, ASN1_SEQ);
+
+    //compute engine time difference
+    x := TickDelta(FAuthEngineTimeStamp, GetTick) div 1000;
+
+    authbeg := ASNObject(FAuthEngineID, ASN1_OCTSTR)
+      + ASNObject(ASNEncInt(FAuthEngineBoots), ASN1_INT)
+      + ASNObject(ASNEncInt(FAuthEngineTime + x), ASN1_INT)
+      + ASNObject(FUserName, ASN1_OCTSTR);
+
+
+    case FFlags of
+      AuthNoPriv,
+      AuthPriv:
+        begin
+          s := authbeg + ASNObject(StringOfChar(#0, 12), ASN1_OCTSTR)
+             + ASNObject(FPrivKey, ASN1_OCTSTR);
+          s := ASNObject(s, ASN1_SEQ);
+          s := head + ASNObject(s, ASN1_OCTSTR);
+          s := ASNObject(s + pdu, ASN1_SEQ);
+          //in s is entire packet without auth info...
+          case FAuthMode of
+            AuthMD5:
+              begin
+                s := HMAC_MD5(s, Pass2Key(FPassword) + StringOfChar(#0, 48));
+                //strip to HMAC-MD5-96
+                delete(s, 13, 4);
+              end;
+            AuthSHA1:
+              begin
+                s := HMAC_SHA1(s, Pass2Key(FPassword) + StringOfChar(#0, 44));
+                //strip to HMAC-SHA-96
+                delete(s, 13, 8);
+              end;
+          else
+            s := '';
+          end;
+          FAuthKey := s;
+        end;
+    end;
+
+    auth := authbeg + ASNObject(FAuthKey, ASN1_OCTSTR)
+     + ASNObject(FPrivKey, ASN1_OCTSTR);
+    auth := ASNObject(auth, ASN1_SEQ);
+
+    head := head + ASNObject(auth, ASN1_OCTSTR);
+    Result := ASNObject(head + pdu, ASN1_SEQ);
+  end
+  else
+  begin
+    head := ASNObject(ASNEncInt(Self.FVersion), ASN1_INT) +
+      ASNObject(Self.FCommunity, ASN1_OCTSTR);
+    Result := ASNObject(head + pdu, ASN1_SEQ);
+  end;
+  inc(self.FID);
+end;
+
+procedure TSNMPRec.Clear;
+var
+  i: Integer;
+begin
+  FVersion := SNMP_V1;
+  FCommunity := 'public';
+  FUserName := '';
+  FPassword := '';
+  FPDUType := 0;
+  FErrorStatus := 0;
+  FErrorIndex := 0;
+  for i := 0 to FSNMPMibList.Count - 1 do
+    TSNMPMib(FSNMPMibList[i]).Free;
+  FSNMPMibList.Clear;
+  FOldTrapEnterprise := '';
+  FOldTrapHost := '';
+  FOldTrapGen := 0;
+  FOldTrapSpec := 0;
+  FOldTrapTimeTicks := 0;
+  FFlags := NoAuthNoPriv;
+  FFlagReportable := false;
+  FContextEngineID := '';
+  FContextName := '';
+  FAuthMode := AuthMD5;
+  FAuthEngineID := '';
+  FAuthEngineBoots := 0;
+  FAuthEngineTime := 0;
+  FAuthEngineTimeStamp := 0;
+  FAuthKey := '';
+  FPrivKey := '';
+end;
+
+procedure TSNMPRec.MIBAdd(const MIB, Value: AnsiString; ValueType: Integer);
+var
+  SNMPMib: TSNMPMib;
+begin
+  SNMPMib := TSNMPMib.Create;
+  SNMPMib.OID := MIB;
+  SNMPMib.Value := Value;
+  SNMPMib.ValueType := ValueType;
+  FSNMPMibList.Add(SNMPMib);
+end;
+
+procedure TSNMPRec.MIBDelete(Index: Integer);
+begin
+  if (Index >= 0) and (Index < MIBCount) then
+  begin
+    TSNMPMib(FSNMPMibList[Index]).Free;
+    FSNMPMibList.Delete(Index);
+  end;
+end;
+
+function TSNMPRec.MIBCount: integer;
+begin
+  Result := FSNMPMibList.Count;
+end;
+
+function TSNMPRec.MIBByIndex(Index: Integer): TSNMPMib;
+begin
+  Result := nil;
+  if (Index >= 0) and (Index < MIBCount) then
+    Result := TSNMPMib(FSNMPMibList[Index]);
+end;
+
+function TSNMPRec.MIBGet(const MIB: AnsiString): AnsiString;
+var
+  i: Integer;
+begin
+  Result := '';
+  for i := 0 to MIBCount - 1 do
+  begin
+    if ((TSNMPMib(FSNMPMibList[i])).OID = MIB) then
+    begin
+      Result := (TSNMPMib(FSNMPMibList[i])).Value;
+      Break;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+constructor TSNMPSend.Create;
+begin
+  inherited Create;
+  FQuery := TSNMPRec.Create;
+  FReply := TSNMPRec.Create;
+  FQuery.Clear;
+  FReply.Clear;
+  FSock := TUDPBlockSocket.Create;
+  FTimeout := 5000;
+  FTargetPort := cSnmpProtocol;
+  FHostIP := '';
+end;
+
+destructor TSNMPSend.Destroy;
+begin
+  FSock.Free;
+  FReply.Free;
+  FQuery.Free;
+  inherited Destroy;
+end;
+
+function TSNMPSend.InternalSendSnmp(const Value: TSNMPRec): Boolean;
+begin
+  FBuffer := Value.EncodeBuf;
+  FSock.SendString(FBuffer);
+  Result := FSock.LastError = 0;
+end;
+
+function TSNMPSend.InternalRecvSnmp(const Value: TSNMPRec): Boolean;
+begin
+  Result := False;
+  FReply.Clear;
+  FHostIP := cAnyHost;
+  FBuffer := FSock.RecvPacket(FTimeout);
+  if FSock.LastError = 0 then
+  begin
+    FHostIP := FSock.GetRemoteSinIP;
+    Result := Value.DecodeBuf(FBuffer);
+  end;
+end;
+
+function TSNMPSend.InternalSendRequest(const QValue, RValue: TSNMPRec): Boolean;
+begin
+  Result := False;
+  FSock.Bind(FIPInterface, cAnyPort);
+  FSock.Connect(FTargetHost, FTargetPort);
+  if InternalSendSnmp(QValue) then
+    Result := InternalRecvSnmp(RValue);
+end;
+
+function TSNMPSend.SendRequest: Boolean;
+var
+  sync: TV3Sync;
+begin
+  Result := False;
+  if FQuery.FVersion = 3 then
+  begin
+    sync := GetV3Sync;
+    FQuery.AuthEngineBoots := Sync.EngineBoots;
+    FQuery.AuthEngineTime := Sync.EngineTime;
+    FQuery.AuthEngineTimeStamp := Sync.EngineStamp;
+    FQuery.AuthEngineID := Sync.EngineID;
+  end;
+  FSock.Bind(FIPInterface, cAnyPort);
+  FSock.Connect(FTargetHost, FTargetPort);
+  if InternalSendSnmp(FQuery) then
+    Result := InternalRecvSnmp(FReply);
+end;
+
+function TSNMPSend.SendTrap: Boolean;
+begin
+  FSock.Bind(FIPInterface, cAnyPort);
+  FSock.Connect(FTargetHost, FTargetPort);
+  Result := InternalSendSnmp(FQuery);
+end;
+
+function TSNMPSend.RecvTrap: Boolean;
+begin
+  FSock.Bind(FIPInterface, FTargetPort);
+  Result := InternalRecvSnmp(FReply);
+end;
+
+function TSNMPSend.DoIt: Boolean;
+begin
+  Result := SendRequest;
+end;
+
+function TSNMPSend.GetV3EngineID: AnsiString;
+var
+  DisQuery: TSNMPRec;
+begin
+  Result := '';
+  DisQuery := TSNMPRec.Create;
+  try
+    DisQuery.Version := 3;
+    DisQuery.UserName := '';
+    DisQuery.FlagReportable := True;
+    DisQuery.PDUType := PDUGetRequest;
+    if InternalSendRequest(DisQuery, FReply) then
+      Result := FReply.FAuthEngineID;
+  finally
+    DisQuery.Free;
+  end;
+end;
+
+function TSNMPSend.GetV3Sync: TV3Sync;
+var
+  SyncQuery: TSNMPRec;
+begin
+  Result.EngineID := GetV3EngineID;
+  Result.EngineBoots := FReply.AuthEngineBoots;
+  Result.EngineTime := FReply.AuthEngineTime;
+  Result.EngineStamp := FReply.AuthEngineTimeStamp;
+  if Result.EngineTime = 0 then
+  begin
+    //still not have sync...
+    SyncQuery := TSNMPRec.Create;
+    try
+      SyncQuery.Version := 3;
+      SyncQuery.UserName := FQuery.UserName;
+      SyncQuery.Password := FQuery.Password;
+      SyncQuery.FlagReportable := True;
+      SyncQuery.Flags := FQuery.Flags;
+      SyncQuery.PDUType := PDUGetRequest;
+      SyncQuery.AuthEngineID := FReply.FAuthEngineID;
+      if InternalSendRequest(SyncQuery, FReply) then
+      begin
+        Result.EngineBoots := FReply.AuthEngineBoots;
+        Result.EngineTime := FReply.AuthEngineTime;
+        Result.EngineStamp := FReply.AuthEngineTimeStamp;
+      end;
+    finally
+      SyncQuery.Free;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+function SNMPGet(const OID, Community, SNMPHost: AnsiString; var Value: AnsiString): Boolean;
+var
+  SNMPSend: TSNMPSend;
+begin
+  SNMPSend := TSNMPSend.Create;
+  try
+    SNMPSend.Query.Clear;
+    SNMPSend.Query.Community := Community;
+    SNMPSend.Query.PDUType := PDUGetRequest;
+    SNMPSend.Query.MIBAdd(OID, '', ASN1_NULL);
+    SNMPSend.TargetHost := SNMPHost;
+    Result := SNMPSend.SendRequest;
+    Value := '';
+    if Result then
+      Value := SNMPSend.Reply.MIBGet(OID);
+  finally
+    SNMPSend.Free;
+  end;
+end;
+
+function SNMPSet(const OID, Community, SNMPHost, Value: AnsiString; ValueType: Integer): Boolean;
+var
+  SNMPSend: TSNMPSend;
+begin
+  SNMPSend := TSNMPSend.Create;
+  try
+    SNMPSend.Query.Clear;
+    SNMPSend.Query.Community := Community;
+    SNMPSend.Query.PDUType := PDUSetRequest;
+    SNMPSend.Query.MIBAdd(OID, Value, ValueType);
+    SNMPSend.TargetHost := SNMPHost;
+    Result := SNMPSend.Sendrequest = True;
+  finally
+    SNMPSend.Free;
+  end;
+end;
+
+function InternalGetNext(const SNMPSend: TSNMPSend; var OID: AnsiString;
+  const Community: AnsiString; var Value: AnsiString): Boolean;
+begin
+  SNMPSend.Query.Clear;
+  SNMPSend.Query.ID := SNMPSend.Query.ID + 1;
+  SNMPSend.Query.Community := Community;
+  SNMPSend.Query.PDUType := PDUGetNextRequest;
+  SNMPSend.Query.MIBAdd(OID, '', ASN1_NULL);
+  Result := SNMPSend.Sendrequest;
+  Value := '';
+  if Result then
+    if SNMPSend.Reply.SNMPMibList.Count > 0 then
+    begin
+      OID := TSNMPMib(SNMPSend.Reply.SNMPMibList[0]).OID;
+      Value := TSNMPMib(SNMPSend.Reply.SNMPMibList[0]).Value;
+    end;
+end;
+
+function SNMPGetNext(var OID: AnsiString; const Community, SNMPHost: AnsiString; var Value: AnsiString): Boolean;
+var
+  SNMPSend: TSNMPSend;
+begin
+  SNMPSend := TSNMPSend.Create;
+  try
+    SNMPSend.TargetHost := SNMPHost;
+    Result := InternalGetNext(SNMPSend, OID, Community, Value);
+  finally
+    SNMPSend.Free;
+  end;
+end;
+
+function SNMPGetTable(const BaseOID, Community, SNMPHost: AnsiString; const Value: TStrings): Boolean;
+var
+  OID: AnsiString;
+  s: AnsiString;
+  col,row: String;
+  x: integer;
+  SNMPSend: TSNMPSend;
+  RowList: TStringList;
+begin
+  Value.Clear;
+  SNMPSend := TSNMPSend.Create;
+  RowList := TStringList.Create;
+  try
+    SNMPSend.TargetHost := SNMPHost;
+    OID := BaseOID;
+    repeat
+      Result := InternalGetNext(SNMPSend, OID, Community, s);
+      if Pos(BaseOID, OID) <> 1 then
+          break;
+      row := separateright(oid, baseoid + '.');
+      col := fetch(row, '.');
+
+      if IsBinaryString(s) then
+        s := StrToHex(s);
+      x := RowList.indexOf(Row);
+      if x < 0 then
+      begin
+        x := RowList.add(Row);
+        Value.Add('');
+      end;
+      if (Value[x] <> '') then
+        Value[x] := Value[x] + ',';
+      Value[x] := Value[x] + AnsiQuotedStr(s, '"');
+    until not result;
+  finally
+    SNMPSend.Free;
+    RowList.Free;
+  end;
+end;
+
+function SNMPGetTableElement(const BaseOID, RowID, ColID, Community, SNMPHost: AnsiString; var Value: AnsiString): Boolean;
+var
+  s: AnsiString;
+begin
+  s := BaseOID + '.' + ColID + '.' + RowID;
+  Result := SnmpGet(s, Community, SNMPHost, Value);
+end;
+
+function SendTrap(const Dest, Source, Enterprise, Community: AnsiString;
+  Generic, Specific, Seconds: Integer; const MIBName, MIBValue: AnsiString;
+  MIBtype: Integer): Integer;
+var
+  SNMPSend: TSNMPSend;
+begin
+  SNMPSend := TSNMPSend.Create;
+  try
+    SNMPSend.TargetHost := Dest;
+    SNMPSend.TargetPort := cSnmpTrapProtocol;
+    SNMPSend.Query.Community := Community;
+    SNMPSend.Query.Version := SNMP_V1;
+    SNMPSend.Query.PDUType := PDUTrap;
+    SNMPSend.Query.OldTrapHost := Source;
+    SNMPSend.Query.OldTrapEnterprise := Enterprise;
+    SNMPSend.Query.OldTrapGen := Generic;
+    SNMPSend.Query.OldTrapSpec := Specific;
+    SNMPSend.Query.OldTrapTimeTicks := Seconds;
+    SNMPSend.Query.MIBAdd(MIBName, MIBValue, MIBType);
+    Result := Ord(SNMPSend.SendTrap);
+  finally
+    SNMPSend.Free;
+  end;
+end;
+
+function RecvTrap(var Dest, Source, Enterprise, Community: AnsiString;
+  var Generic, Specific, Seconds: Integer;
+  const MIBName, MIBValue: TStringList): Integer;
+var
+  SNMPSend: TSNMPSend;
+  i: Integer;
+begin
+  SNMPSend := TSNMPSend.Create;
+  try
+    Result := 0;
+    SNMPSend.TargetPort := cSnmpTrapProtocol;
+    if SNMPSend.RecvTrap then
+    begin
+      Result := 1;
+      Dest := SNMPSend.HostIP;
+      Community := SNMPSend.Reply.Community;
+      Source := SNMPSend.Reply.OldTrapHost;
+      Enterprise := SNMPSend.Reply.OldTrapEnterprise;
+      Generic := SNMPSend.Reply.OldTrapGen;
+      Specific := SNMPSend.Reply.OldTrapSpec;
+      Seconds := SNMPSend.Reply.OldTrapTimeTicks;
+      MIBName.Clear;
+      MIBValue.Clear;
+      for i := 0 to SNMPSend.Reply.SNMPMibList.Count - 1 do
+      begin
+        MIBName.Add(TSNMPMib(SNMPSend.Reply.SNMPMibList[i]).OID);
+        MIBValue.Add(TSNMPMib(SNMPSend.Reply.SNMPMibList[i]).Value);
+      end;
+    end;
+  finally
+    SNMPSend.Free;
+  end;
+end;
+
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sntpsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sntpsend.pas
new file mode 100644
index 0000000..c4958b2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sntpsend.pas	
@@ -0,0 +1,373 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 003.000.002 |
+|==============================================================================|
+| Content: SNTP client                                                         |
+|==============================================================================|
+| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2007.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|   Patrick Chevalley                                                          |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract( NTP and SNTP client)
+
+Used RFC: RFC-1305, RFC-2030
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$H+}
+
+unit sntpsend;
+
+interface
+
+uses
+  SysUtils,
+  synsock, blcksock, synautil;
+
+const
+  cNtpProtocol = '123';
+
+type
+
+  {:@abstract(Record containing the NTP packet.)}
+  TNtp = packed record
+    mode: Byte;
+    stratum: Byte;
+    poll: Byte;
+    Precision: Byte;
+    RootDelay: Longint;
+    RootDisperson: Longint;
+    RefID: Longint;
+    Ref1: Longint;
+    Ref2: Longint;
+    Org1: Longint;
+    Org2: Longint;
+    Rcv1: Longint;
+    Rcv2: Longint;
+    Xmit1: Longint;
+    Xmit2: Longint;
+  end;
+
+  {:@abstract(Implementation of NTP and SNTP client protocol),
+   include time synchronisation. It can send NTP or SNTP time queries, or it
+   can receive NTP broadcasts too.
+   
+   Note: Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TSNTPSend = class(TSynaClient)
+  private
+    FNTPReply: TNtp;
+    FNTPTime: TDateTime;
+    FNTPOffset: double;
+    FNTPDelay: double;
+    FMaxSyncDiff: double;
+    FSyncTime: Boolean;
+    FSock: TUDPBlockSocket;
+    FBuffer: string;
+    FLi, FVn, Fmode : byte;
+    function StrToNTP(const Value: AnsiString): TNtp;
+    function NTPtoStr(const Value: Tntp): AnsiString;
+    procedure ClearNTP(var Value: Tntp);
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Decode 128 bit timestamp used in NTP packet to TDateTime type.}
+    function DecodeTs(Nsec, Nfrac: Longint): TDateTime;
+
+    {:Decode TDateTime type to 128 bit timestamp used in NTP packet.}
+    procedure EncodeTs(dt: TDateTime; var Nsec, Nfrac: Longint);
+
+    {:Send request to @link(TSynaClient.TargetHost) and wait for reply. If all
+     is OK, then result is @true and @link(NTPReply) and @link(NTPTime) are
+     valid.}
+    function GetSNTP: Boolean;
+
+    {:Send request to @link(TSynaClient.TargetHost) and wait for reply. If all
+     is OK, then result is @true and @link(NTPReply) and @link(NTPTime) are
+     valid. Result time is after all needed corrections.}
+    function GetNTP: Boolean;
+
+    {:Wait for broadcast NTP packet. If all OK, result is @true and
+     @link(NTPReply) and @link(NTPTime) are valid.}
+    function GetBroadcastNTP: Boolean;
+
+    {:Holds last received NTP packet.}
+    property NTPReply: TNtp read FNTPReply;
+  published
+    {:Date and time of remote NTP or SNTP server. (UTC time!!!)}
+    property NTPTime: TDateTime read FNTPTime;
+
+    {:Offset between your computer and remote NTP or SNTP server.}
+    property NTPOffset: Double read FNTPOffset;
+
+    {:Delay between your computer and remote NTP or SNTP server.}
+    property NTPDelay: Double read FNTPDelay;
+
+    {:Define allowed maximum difference between your time and remote time for
+     synchronising time. If difference is bigger, your system time is not
+     changed!}
+    property MaxSyncDiff: double read FMaxSyncDiff write FMaxSyncDiff;
+
+    {:If @true, after successfull getting time is local computer clock
+     synchronised to given time.
+     For synchronising time you must have proper rights! (Usually Administrator)}
+    property SyncTime: Boolean read FSyncTime write FSyncTime;
+
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TUDPBlockSocket read FSock;
+  end;
+
+implementation
+
+constructor TSNTPSend.Create;
+begin
+  inherited Create;
+  FSock := TUDPBlockSocket.Create;
+  FTimeout := 5000;
+  FTargetPort := cNtpProtocol;
+  FMaxSyncDiff := 3600;
+  FSyncTime := False;
+end;
+
+destructor TSNTPSend.Destroy;
+begin
+  FSock.Free;
+  inherited Destroy;
+end;
+
+function TSNTPSend.StrToNTP(const Value: AnsiString): TNtp;
+begin
+  if length(FBuffer) >= SizeOf(Result) then
+  begin
+    Result.mode := ord(Value[1]);
+    Result.stratum := ord(Value[2]);
+    Result.poll := ord(Value[3]);
+    Result.Precision := ord(Value[4]);
+    Result.RootDelay := DecodeLongInt(value, 5);
+    Result.RootDisperson := DecodeLongInt(value, 9);
+    Result.RefID := DecodeLongInt(value, 13);
+    Result.Ref1 := DecodeLongInt(value, 17);
+    Result.Ref2 := DecodeLongInt(value, 21);
+    Result.Org1 := DecodeLongInt(value, 25);
+    Result.Org2 := DecodeLongInt(value, 29);
+    Result.Rcv1 := DecodeLongInt(value, 33);
+    Result.Rcv2 := DecodeLongInt(value, 37);
+    Result.Xmit1 := DecodeLongInt(value, 41);
+    Result.Xmit2 := DecodeLongInt(value, 45);
+  end;
+
+end;
+
+function TSNTPSend.NTPtoStr(const Value: Tntp): AnsiString;
+begin
+  SetLength(Result, 4);
+  Result[1] := AnsiChar(Value.mode);
+  Result[2] := AnsiChar(Value.stratum);
+  Result[3] := AnsiChar(Value.poll);
+  Result[4] := AnsiChar(Value.precision);
+  Result := Result + CodeLongInt(Value.RootDelay);
+  Result := Result + CodeLongInt(Value.RootDisperson);
+  Result := Result + CodeLongInt(Value.RefID);
+  Result := Result + CodeLongInt(Value.Ref1);
+  Result := Result + CodeLongInt(Value.Ref2);
+  Result := Result + CodeLongInt(Value.Org1);
+  Result := Result + CodeLongInt(Value.Org2);
+  Result := Result + CodeLongInt(Value.Rcv1);
+  Result := Result + CodeLongInt(Value.Rcv2);
+  Result := Result + CodeLongInt(Value.Xmit1);
+  Result := Result + CodeLongInt(Value.Xmit2);
+end;
+
+procedure TSNTPSend.ClearNTP(var Value: Tntp);
+begin
+  Value.mode := 0;
+  Value.stratum := 0;
+  Value.poll := 0;
+  Value.Precision := 0;
+  Value.RootDelay := 0;
+  Value.RootDisperson := 0;
+  Value.RefID := 0;
+  Value.Ref1 := 0;
+  Value.Ref2 := 0;
+  Value.Org1 := 0;
+  Value.Org2 := 0;
+  Value.Rcv1 := 0;
+  Value.Rcv2 := 0;
+  Value.Xmit1 := 0;
+  Value.Xmit2 := 0;
+end;
+
+function TSNTPSend.DecodeTs(Nsec, Nfrac: Longint): TDateTime;
+const
+  maxi = 4294967295.0;
+var
+  d, d1: Double;
+begin
+  d := Nsec;
+  if d < 0 then
+    d := maxi + d + 1;
+  d1 := Nfrac;
+  if d1 < 0 then
+    d1 := maxi + d1 + 1;
+  d1 := d1 / maxi;
+  d1 := Trunc(d1 * 10000) / 10000;
+  Result := (d + d1) / 86400;
+  Result := Result + 2;
+end;
+
+procedure TSNTPSend.EncodeTs(dt: TDateTime; var Nsec, Nfrac: Longint);
+const
+  maxi = 4294967295.0;
+  maxilongint = 2147483647;
+var
+  d, d1: Double;
+begin
+  d  := (dt - 2) * 86400;
+  d1 := frac(d);
+  if d > maxilongint then
+     d := d - maxi - 1;
+  d  := trunc(d);
+  d1 := Trunc(d1 * 10000) / 10000;
+  d1 := d1 * maxi;
+  if d1 > maxilongint then
+     d1 := d1 - maxi - 1;
+  Nsec:=trunc(d);
+  Nfrac:=trunc(d1);
+end;
+
+function TSNTPSend.GetBroadcastNTP: Boolean;
+var
+  x: Integer;
+begin
+  Result := False;
+  FSock.Bind(FIPInterface, FTargetPort);
+  FBuffer := FSock.RecvPacket(FTimeout);
+  if FSock.LastError = 0 then
+  begin
+    x := Length(FBuffer);
+    if (FTargetHost = '0.0.0.0') or (FSock.GetRemoteSinIP = FSock.ResolveName(FTargetHost)) then
+      if x >= SizeOf(NTPReply) then
+      begin
+        FNTPReply := StrToNTP(FBuffer);
+        FNTPTime := DecodeTs(NTPReply.Xmit1, NTPReply.Xmit2);
+        if FSyncTime and ((abs(FNTPTime - GetUTTime) * 86400) <= FMaxSyncDiff) then
+          SetUTTime(FNTPTime);
+        Result := True;
+      end;
+  end;
+end;
+
+function TSNTPSend.GetSNTP: Boolean;
+var
+  q: TNtp;
+  x: Integer;
+begin
+  Result := False;
+  FSock.CloseSocket;
+  FSock.Bind(FIPInterface, cAnyPort);
+  FSock.Connect(FTargetHost, FTargetPort);
+  ClearNtp(q);
+  q.mode := $1B;
+  FBuffer := NTPtoStr(q);
+  FSock.SendString(FBuffer);
+  FBuffer := FSock.RecvPacket(FTimeout);
+  if FSock.LastError = 0 then
+  begin
+    x := Length(FBuffer);
+    if x >= SizeOf(NTPReply) then
+    begin
+      FNTPReply := StrToNTP(FBuffer);
+      FNTPTime := DecodeTs(NTPReply.Xmit1, NTPReply.Xmit2);
+      if FSyncTime and ((abs(FNTPTime - GetUTTime) * 86400) <= FMaxSyncDiff) then
+        SetUTTime(FNTPTime);
+      Result := True;
+    end;
+  end;
+end;
+
+function TSNTPSend.GetNTP: Boolean;
+var
+  q: TNtp;
+  x: Integer;
+  t1, t2, t3, t4 : TDateTime;
+begin
+  Result := False;
+  FSock.CloseSocket;
+  FSock.Bind(FIPInterface, cAnyPort);
+  FSock.Connect(FTargetHost, FTargetPort);
+  ClearNtp(q);
+  q.mode := $1B;
+  t1 := GetUTTime;
+  EncodeTs(t1, q.org1, q.org2);
+  FBuffer := NTPtoStr(q);
+  FSock.SendString(FBuffer);
+  FBuffer := FSock.RecvPacket(FTimeout);
+  if FSock.LastError = 0 then
+  begin
+    x := Length(FBuffer);
+    t4 := GetUTTime;
+    if x >= SizeOf(NTPReply) then
+    begin
+      FNTPReply := StrToNTP(FBuffer);
+      FLi := (NTPReply.mode and $C0) shr 6;
+      FVn := (NTPReply.mode and $38) shr 3;
+      Fmode := NTPReply.mode and $07;
+      if (Fli < 3) and (Fmode = 4) and
+         (NTPReply.stratum >= 1) and (NTPReply.stratum <= 15) and
+         (NTPReply.Rcv1 <> 0) and (NTPReply.Xmit1 <> 0)
+         then begin
+           t2 := DecodeTs(NTPReply.Rcv1, NTPReply.Rcv2);
+           t3 := DecodeTs(NTPReply.Xmit1, NTPReply.Xmit2);
+           FNTPDelay := (T4 - T1) - (T2 - T3);
+           FNTPTime := t3 + FNTPDelay / 2;
+           FNTPOffset := (((T2 - T1) + (T3 - T4)) / 2) * 86400;
+           FNTPDelay := FNTPDelay * 86400;
+           if FSyncTime and ((abs(FNTPTime - t1) * 86400) <= FMaxSyncDiff) then
+             SetUTTime(FNTPTime);
+           Result := True;
+           end
+         else result:=false;
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssdotnet.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssdotnet.pas
new file mode 100644
index 0000000..8a54cd8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssdotnet.pas	
@@ -0,0 +1,1099 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.000.002 |
+|==============================================================================|
+| Content: Socket Independent Platform Layer - .NET definition include         |
+|==============================================================================|
+| Copyright (c)2004, Lukas Gebauer                                             |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2004.                     |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@exclude}
+
+{$IFDEF CIL}
+
+interface
+
+uses
+  SyncObjs, SysUtils, Classes,
+  System.Net,
+  System.Net.Sockets;
+
+const
+  DLLStackName = '';
+  WinsockLevel = $0202;
+
+function InitSocketInterface(stack: string): Boolean;
+function DestroySocketInterface: Boolean;
+
+type
+  u_char = Char;
+  u_short = Word;
+  u_int = Integer;
+  u_long = Longint;
+  pu_long = ^u_long;
+  pu_short = ^u_short;
+  PSockAddr = IPEndPoint;
+  DWORD = integer;
+  ULong = cardinal;
+  TMemory = Array of byte;
+  TLinger = LingerOption;
+  TSocket = socket;
+  TAddrFamily = AddressFamily;
+
+const
+  WSADESCRIPTION_LEN     =   256;
+  WSASYS_STATUS_LEN      =   128;
+type
+  PWSAData = ^TWSAData;
+  TWSAData = packed record
+    wVersion: Word;
+    wHighVersion: Word;
+    szDescription: array[0..WSADESCRIPTION_LEN] of Char;
+    szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char;
+    iMaxSockets: Word;
+    iMaxUdpDg: Word;
+//    lpVendorInfo: PChar;
+  end;
+
+const
+  MSG_NOSIGNAL = 0;
+  INVALID_SOCKET = nil;
+  AF_UNSPEC = AddressFamily.Unspecified;
+  AF_INET = AddressFamily.InterNetwork;
+  AF_INET6 = AddressFamily.InterNetworkV6;
+  SOCKET_ERROR = integer(-1);
+
+  FIONREAD     = integer($4004667f);
+  FIONBIO      = integer($8004667e);
+  FIOASYNC     = integer($8004667d);
+
+  SOMAXCONN       = integer($7fffffff);
+
+  IPPROTO_IP = ProtocolType.IP;
+  IPPROTO_ICMP = ProtocolType.Icmp;
+  IPPROTO_IGMP = ProtocolType.Igmp;
+  IPPROTO_TCP = ProtocolType.Tcp;
+  IPPROTO_UDP = ProtocolType.Udp;
+  IPPROTO_RAW = ProtocolType.Raw;
+  IPPROTO_IPV6 = ProtocolType.IPV6;
+//
+  IPPROTO_ICMPV6 = ProtocolType.Icmp; //??
+
+  SOCK_STREAM     = SocketType.Stream;
+  SOCK_DGRAM      = SocketType.Dgram;
+  SOCK_RAW        = SocketType.Raw;
+  SOCK_RDM        = SocketType.Rdm;
+  SOCK_SEQPACKET  = SocketType.Seqpacket;
+
+  SOL_SOCKET = SocketOptionLevel.Socket;
+  SOL_IP = SocketOptionLevel.Ip;
+
+
+  IP_OPTIONS          = SocketOptionName.IPOptions;
+  IP_HDRINCL          = SocketOptionName.HeaderIncluded;
+  IP_TOS              = SocketOptionName.TypeOfService;           { set/get IP Type Of Service       }
+  IP_TTL              = SocketOptionName.IpTimeToLive;           { set/get IP Time To Live          }
+  IP_MULTICAST_IF     = SocketOptionName.MulticastInterface;           { set/get IP multicast interface   }
+  IP_MULTICAST_TTL    = SocketOptionName.MulticastTimeToLive;           { set/get IP multicast timetolive  }
+  IP_MULTICAST_LOOP   = SocketOptionName.MulticastLoopback;           { set/get IP multicast loopback    }
+  IP_ADD_MEMBERSHIP   = SocketOptionName.AddMembership;           { add  an IP group membership      }
+  IP_DROP_MEMBERSHIP  = SocketOptionName.DropMembership;           { drop an IP group membership      }
+  IP_DONTFRAGMENT     = SocketOptionName.DontFragment;           { set/get IP Don't Fragment flag   }
+
+  IPV6_UNICAST_HOPS      = 8;  // TTL
+  IPV6_MULTICAST_IF      = 9;  // set/get IP multicast i/f
+  IPV6_MULTICAST_HOPS    = 10; // set/get IP multicast ttl
+  IPV6_MULTICAST_LOOP    = 11; // set/get IP multicast loopback
+  IPV6_JOIN_GROUP        = 12; // add an IP group membership
+  IPV6_LEAVE_GROUP       = 13; // drop an IP group membership
+
+  SO_DEBUG        = SocketOptionName.Debug;          { turn on debugging info recording }
+  SO_ACCEPTCONN   = SocketOptionName.AcceptConnection;          { socket has had listen() }
+  SO_REUSEADDR    = SocketOptionName.ReuseAddress;          { allow local address reuse }
+  SO_KEEPALIVE    = SocketOptionName.KeepAlive;          { keep connections alive }
+  SO_DONTROUTE    = SocketOptionName.DontRoute;          { just use interface addresses }
+  SO_BROADCAST    = SocketOptionName.Broadcast;          { permit sending of broadcast msgs }
+  SO_USELOOPBACK  = SocketOptionName.UseLoopback;          { bypass hardware when possible }
+  SO_LINGER       = SocketOptionName.Linger;          { linger on close if data present }
+  SO_OOBINLINE    = SocketOptionName.OutOfBandInline;          { leave received OOB data in line }
+  SO_DONTLINGER   = SocketOptionName.DontLinger;
+{ Additional options. }
+  SO_SNDBUF       = SocketOptionName.SendBuffer;          { send buffer size }
+  SO_RCVBUF       = SocketOptionName.ReceiveBuffer;          { receive buffer size }
+  SO_SNDLOWAT     = SocketOptionName.SendLowWater;          { send low-water mark }
+  SO_RCVLOWAT     = SocketOptionName.ReceiveLowWater;          { receive low-water mark }
+  SO_SNDTIMEO     = SocketOptionName.SendTimeout;          { send timeout }
+  SO_RCVTIMEO     = SocketOptionName.ReceiveTimeout;          { receive timeout }
+  SO_ERROR        = SocketOptionName.Error;          { get error status and clear }
+  SO_TYPE         = SocketOptionName.Type;          { get socket type }
+
+{ WinSock 2 extension -- new options }
+//  SO_GROUP_ID       = $2001; { ID of a socket group}
+//  SO_GROUP_PRIORITY = $2002; { the relative priority within a group}
+//  SO_MAX_MSG_SIZE   = $2003; { maximum message size }
+//  SO_PROTOCOL_INFOA = $2004; { WSAPROTOCOL_INFOA structure }
+//  SO_PROTOCOL_INFOW = $2005; { WSAPROTOCOL_INFOW structure }
+//  SO_PROTOCOL_INFO  = SO_PROTOCOL_INFOA;
+//  PVD_CONFIG        = $3001; {configuration info for service provider }
+{ Option for opening sockets for synchronous access. }
+//  SO_OPENTYPE     = $7008;
+//  SO_SYNCHRONOUS_ALERT    = $10;
+//  SO_SYNCHRONOUS_NONALERT = $20;
+{ Other NT-specific options. }
+//  SO_MAXDG        = $7009;
+//  SO_MAXPATHDG    = $700A;
+//  SO_UPDATE_ACCEPT_CONTEXT     = $700B;
+//  SO_CONNECT_TIME = $700C;
+
+
+  { All Windows Sockets error constants are biased by WSABASEERR from the "normal" }
+  WSABASEERR              = 10000;
+
+{ Windows Sockets definitions of regular Microsoft C error constants }
+
+  WSAEINTR                = (WSABASEERR+4);
+  WSAEBADF                = (WSABASEERR+9);
+  WSAEACCES               = (WSABASEERR+13);
+  WSAEFAULT               = (WSABASEERR+14);
+  WSAEINVAL               = (WSABASEERR+22);
+  WSAEMFILE               = (WSABASEERR+24);
+
+{ Windows Sockets definitions of regular Berkeley error constants }
+
+  WSAEWOULDBLOCK          = (WSABASEERR+35);
+  WSAEINPROGRESS          = (WSABASEERR+36);
+  WSAEALREADY             = (WSABASEERR+37);
+  WSAENOTSOCK             = (WSABASEERR+38);
+  WSAEDESTADDRREQ         = (WSABASEERR+39);
+  WSAEMSGSIZE             = (WSABASEERR+40);
+  WSAEPROTOTYPE           = (WSABASEERR+41);
+  WSAENOPROTOOPT          = (WSABASEERR+42);
+  WSAEPROTONOSUPPORT      = (WSABASEERR+43);
+  WSAESOCKTNOSUPPORT      = (WSABASEERR+44);
+  WSAEOPNOTSUPP           = (WSABASEERR+45);
+  WSAEPFNOSUPPORT         = (WSABASEERR+46);
+  WSAEAFNOSUPPORT         = (WSABASEERR+47);
+  WSAEADDRINUSE           = (WSABASEERR+48);
+  WSAEADDRNOTAVAIL        = (WSABASEERR+49);
+  WSAENETDOWN             = (WSABASEERR+50);
+  WSAENETUNREACH          = (WSABASEERR+51);
+  WSAENETRESET            = (WSABASEERR+52);
+  WSAECONNABORTED         = (WSABASEERR+53);
+  WSAECONNRESET           = (WSABASEERR+54);
+  WSAENOBUFS              = (WSABASEERR+55);
+  WSAEISCONN              = (WSABASEERR+56);
+  WSAENOTCONN             = (WSABASEERR+57);
+  WSAESHUTDOWN            = (WSABASEERR+58);
+  WSAETOOMANYREFS         = (WSABASEERR+59);
+  WSAETIMEDOUT            = (WSABASEERR+60);
+  WSAECONNREFUSED         = (WSABASEERR+61);
+  WSAELOOP                = (WSABASEERR+62);
+  WSAENAMETOOLONG         = (WSABASEERR+63);
+  WSAEHOSTDOWN            = (WSABASEERR+64);
+  WSAEHOSTUNREACH         = (WSABASEERR+65);
+  WSAENOTEMPTY            = (WSABASEERR+66);
+  WSAEPROCLIM             = (WSABASEERR+67);
+  WSAEUSERS               = (WSABASEERR+68);
+  WSAEDQUOT               = (WSABASEERR+69);
+  WSAESTALE               = (WSABASEERR+70);
+  WSAEREMOTE              = (WSABASEERR+71);
+
+{ Extended Windows Sockets error constant definitions }
+
+  WSASYSNOTREADY          = (WSABASEERR+91);
+  WSAVERNOTSUPPORTED      = (WSABASEERR+92);
+  WSANOTINITIALISED       = (WSABASEERR+93);
+  WSAEDISCON              = (WSABASEERR+101);
+  WSAENOMORE              = (WSABASEERR+102);
+  WSAECANCELLED           = (WSABASEERR+103);
+  WSAEEINVALIDPROCTABLE   = (WSABASEERR+104);
+  WSAEINVALIDPROVIDER     = (WSABASEERR+105);
+  WSAEPROVIDERFAILEDINIT  = (WSABASEERR+106);
+  WSASYSCALLFAILURE       = (WSABASEERR+107);
+  WSASERVICE_NOT_FOUND    = (WSABASEERR+108);
+  WSATYPE_NOT_FOUND       = (WSABASEERR+109);
+  WSA_E_NO_MORE           = (WSABASEERR+110);
+  WSA_E_CANCELLED         = (WSABASEERR+111);
+  WSAEREFUSED             = (WSABASEERR+112);
+
+{ Error return codes from gethostbyname() and gethostbyaddr()
+  (when using the resolver). Note that these errors are
+  retrieved via WSAGetLastError() and must therefore follow
+  the rules for avoiding clashes with error numbers from
+  specific implementations or language run-time systems.
+  For this reason the codes are based at WSABASEERR+1001.
+  Note also that [WSA]NO_ADDRESS is defined only for
+  compatibility purposes. }
+
+{ Authoritative Answer: Host not found }
+  WSAHOST_NOT_FOUND       = (WSABASEERR+1001);
+  HOST_NOT_FOUND          = WSAHOST_NOT_FOUND;
+{ Non-Authoritative: Host not found, or SERVERFAIL }
+  WSATRY_AGAIN            = (WSABASEERR+1002);
+  TRY_AGAIN               = WSATRY_AGAIN;
+{ Non recoverable errors, FORMERR, REFUSED, NOTIMP }
+  WSANO_RECOVERY          = (WSABASEERR+1003);
+  NO_RECOVERY             = WSANO_RECOVERY;
+{ Valid name, no data record of requested type }
+  WSANO_DATA              = (WSABASEERR+1004);
+  NO_DATA                 = WSANO_DATA;
+{ no address, look for MX record }
+  WSANO_ADDRESS           = WSANO_DATA;
+  NO_ADDRESS              = WSANO_ADDRESS;
+
+  EWOULDBLOCK        =  WSAEWOULDBLOCK;
+  EINPROGRESS        =  WSAEINPROGRESS;
+  EALREADY           =  WSAEALREADY;
+  ENOTSOCK           =  WSAENOTSOCK;
+  EDESTADDRREQ       =  WSAEDESTADDRREQ;
+  EMSGSIZE           =  WSAEMSGSIZE;
+  EPROTOTYPE         =  WSAEPROTOTYPE;
+  ENOPROTOOPT        =  WSAENOPROTOOPT;
+  EPROTONOSUPPORT    =  WSAEPROTONOSUPPORT;
+  ESOCKTNOSUPPORT    =  WSAESOCKTNOSUPPORT;
+  EOPNOTSUPP         =  WSAEOPNOTSUPP;
+  EPFNOSUPPORT       =  WSAEPFNOSUPPORT;
+  EAFNOSUPPORT       =  WSAEAFNOSUPPORT;
+  EADDRINUSE         =  WSAEADDRINUSE;
+  EADDRNOTAVAIL      =  WSAEADDRNOTAVAIL;
+  ENETDOWN           =  WSAENETDOWN;
+  ENETUNREACH        =  WSAENETUNREACH;
+  ENETRESET          =  WSAENETRESET;
+  ECONNABORTED       =  WSAECONNABORTED;
+  ECONNRESET         =  WSAECONNRESET;
+  ENOBUFS            =  WSAENOBUFS;
+  EISCONN            =  WSAEISCONN;
+  ENOTCONN           =  WSAENOTCONN;
+  ESHUTDOWN          =  WSAESHUTDOWN;
+  ETOOMANYREFS       =  WSAETOOMANYREFS;
+  ETIMEDOUT          =  WSAETIMEDOUT;
+  ECONNREFUSED       =  WSAECONNREFUSED;
+  ELOOP              =  WSAELOOP;
+  ENAMETOOLONG       =  WSAENAMETOOLONG;
+  EHOSTDOWN          =  WSAEHOSTDOWN;
+  EHOSTUNREACH       =  WSAEHOSTUNREACH;
+  ENOTEMPTY          =  WSAENOTEMPTY;
+  EPROCLIM           =  WSAEPROCLIM;
+  EUSERS             =  WSAEUSERS;
+  EDQUOT             =  WSAEDQUOT;
+  ESTALE             =  WSAESTALE;
+  EREMOTE            =  WSAEREMOTE;
+
+
+type
+  TVarSin = IPEndpoint;
+
+{  function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
+  function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6):boolean;
+  procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
+  procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
+var
+  in6addr_any, in6addr_loopback : TInAddr6;
+}
+
+{procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
+function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
+procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
+procedure FD_ZERO(var FDSet: TFDSet);
+}
+{=============================================================================}
+
+  function WSAStartup(wVersionRequired: Word; var WSData: TWSAData): Integer;
+  function WSACleanup: Integer;
+  function WSAGetLastError: Integer;
+  function WSAGetLastErrorDesc: String;
+  function GetHostName: string;
+  function Shutdown(s: TSocket; how: Integer): Integer;
+//  function SetSockOpt(s: TSocket; level, optname: Integer; optval: PChar;
+//    optlen: Integer): Integer;
+  function SetSockOpt(s: TSocket; level, optname: Integer; optval: TMemory;
+    optlen: Integer): Integer;
+  function SetSockOptObj(s: TSocket; level, optname: Integer; optval: TObject): Integer;
+  function GetSockOpt(s: TSocket; level, optname: Integer; optval: TMemory;
+    var optlen: Integer): Integer;
+//  function SendTo(s: TSocket; const Buf; len, flags: Integer; addrto: PSockAddr;
+//    tolen: Integer): Integer;
+///  function SendTo(s: TSocket; const Buf; len, flags: Integer; addrto: TVarSin): Integer;
+///  function Send(s: TSocket; const Buf; len, flags: Integer): Integer;
+///  function  Recv(s: TSocket; var Buf; len, flags: Integer): Integer;
+//  function  RecvFrom(s: TSocket; var Buf; len, flags: Integer; from: PSockAddr;
+//    var fromlen: Integer): Integer;
+///  function  RecvFrom(s: TSocket; var Buf; len, flags: Integer; from: TVarSin): Integer;
+function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+  function  ntohs(netshort: u_short): u_short;
+  function  ntohl(netlong: u_long): u_long;
+  function  Listen(s: TSocket; backlog: Integer): Integer;
+  function  IoctlSocket(s: TSocket; cmd: DWORD; var arg: integer): Integer;
+  function  htons(hostshort: u_short): u_short;
+  function  htonl(hostlong: u_long): u_long;
+//  function  GetSockName(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
+  function  GetSockName(s: TSocket; var name: TVarSin): Integer;
+//  function  GetPeerName(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
+  function  GetPeerName(s: TSocket; var name: TVarSin): Integer;
+//  function  Connect(s: TSocket; name: PSockAddr; namelen: Integer): Integer;
+  function  Connect(s: TSocket; const name: TVarSin): Integer;
+  function  CloseSocket(s: TSocket): Integer;
+//  function  Bind(s: TSocket; addr: PSockAddr; namelen: Integer): Integer;
+  function  Bind(s: TSocket; const addr: TVarSin): Integer;
+//  function  Accept(s: TSocket; addr: PSockAddr; var addrlen: Integer): TSocket;
+  function  Accept(s: TSocket; var addr: TVarSin): TSocket;
+  function  Socket(af, Struc, Protocol: Integer): TSocket;
+//  Select = function(nfds: Integer; readfds, writefds, exceptfds: PFDSet;
+//    timeout: PTimeVal): Longint;
+//    {$IFDEF LINUX}cdecl{$ELSE}stdcall{$ENDIF};
+
+//  TWSAIoctl = function (s: TSocket; dwIoControlCode: DWORD; lpvInBuffer: Pointer;
+//    cbInBuffer: DWORD; lpvOutBuffer: Pointer; cbOutBuffer: DWORD;
+//    lpcbBytesReturned: PDWORD; lpOverlapped: Pointer;
+//    lpCompletionRoutine: pointer): u_int;
+//    stdcall;
+
+  function GetPortService(value: string): integer;
+
+function IsNewApi(Family: TAddrFamily): Boolean;
+function SetVarSin(var Sin: TVarSin; IP, Port: string; Family: TAddrFamily; SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
+function GetSinIP(Sin: TVarSin): string;
+function GetSinPort(Sin: TVarSin): Integer;
+procedure ResolveNameToIP(Name: string; Family: TAddrFamily; SockProtocol, SockType: integer; const IPList: TStrings);
+function ResolveIPToName(IP: string; Family: TAddrFamily; SockProtocol, SockType: integer): string;
+function ResolvePort(Port: string; Family: TAddrFamily; SockProtocol, SockType: integer): Word;
+
+var
+  SynSockCS: SyncObjs.TCriticalSection;
+  SockEnhancedApi: Boolean;
+  SockWship6Api: Boolean;
+
+{==============================================================================}
+implementation
+
+threadvar
+  WSALastError: integer;
+  WSALastErrorDesc: string;
+
+var
+  services: Array [0..139, 0..1] of string =
+  (
+    ('echo', '7'),
+    ('discard', '9'),
+    ('sink', '9'),
+    ('null', '9'),
+    ('systat', '11'),
+    ('users', '11'),
+    ('daytime', '13'),
+    ('qotd', '17'),
+    ('quote', '17'),
+    ('chargen', '19'),
+    ('ttytst', '19'),
+    ('source', '19'),
+    ('ftp-data', '20'),
+    ('ftp', '21'),
+    ('telnet', '23'),
+    ('smtp', '25'),
+    ('mail', '25'),
+    ('time', '37'),
+    ('timeserver', '37'),
+    ('rlp', '39'),
+    ('nameserver', '42'),
+    ('name', '42'),
+    ('nickname', '43'),
+    ('whois', '43'),
+    ('domain', '53'),
+    ('bootps', '67'),
+    ('dhcps', '67'),
+    ('bootpc', '68'),
+    ('dhcpc', '68'),
+    ('tftp', '69'),
+    ('gopher', '70'),
+    ('finger', '79'),
+    ('http', '80'),
+    ('www', '80'),
+    ('www-http', '80'),
+    ('kerberos', '88'),
+    ('hostname', '101'),
+    ('hostnames', '101'),
+    ('iso-tsap', '102'),
+    ('rtelnet', '107'),
+    ('pop2', '109'),
+    ('postoffice', '109'),
+    ('pop3', '110'),
+    ('sunrpc', '111'),
+    ('rpcbind', '111'),
+    ('portmap', '111'),
+    ('auth', '113'),
+    ('ident', '113'),
+    ('tap', '113'),
+    ('uucp-path', '117'),
+    ('nntp', '119'),
+    ('usenet', '119'),
+    ('ntp', '123'),
+    ('epmap', '135'),
+    ('loc-srv', '135'),
+    ('netbios-ns', '137'),
+    ('nbname', '137'),
+    ('netbios-dgm', '138'),
+    ('nbdatagram', '138'),
+    ('netbios-ssn', '139'),
+    ('nbsession', '139'),
+    ('imap', '143'),
+    ('imap4', '143'),
+    ('pcmail-srv', '158'),
+    ('snmp', '161'),
+    ('snmptrap', '162'),
+    ('snmp-trap', '162'),
+    ('print-srv', '170'),
+    ('bgp', '179'),
+    ('irc', '194'),
+    ('ipx', '213'),
+    ('ldap', '389'),
+    ('https', '443'),
+    ('mcom', '443'),
+    ('microsoft-ds', '445'),
+    ('kpasswd', '464'),
+    ('isakmp', '500'),
+    ('ike', '500'),
+    ('exec', '512'),
+    ('biff', '512'),
+    ('comsat', '512'),
+    ('login', '513'),
+    ('who', '513'),
+    ('whod', '513'),
+    ('cmd', '514'),
+    ('shell', '514'),
+    ('syslog', '514'),
+    ('printer', '515'),
+    ('spooler', '515'),
+    ('talk', '517'),
+    ('ntalk', '517'),
+    ('efs', '520'),
+    ('router', '520'),
+    ('route', '520'),
+    ('routed', '520'),
+    ('timed', '525'),
+    ('timeserver', '525'),
+    ('tempo', '526'),
+    ('newdate', '526'),
+    ('courier', '530'),
+    ('rpc', '530'),
+    ('conference', '531'),
+    ('chat', '531'),
+    ('netnews', '532'),
+    ('readnews', '532'),
+    ('netwall', '533'),
+    ('uucp', '540'),
+    ('uucpd', '540'),
+    ('klogin', '543'),
+    ('kshell', '544'),
+    ('krcmd', '544'),
+    ('new-rwho', '550'),
+    ('new-who', '550'),
+    ('remotefs', '556'),
+    ('rfs', '556'),
+    ('rfs_server', '556'),
+    ('rmonitor', '560'),
+    ('rmonitord', '560'),
+    ('monitor', '561'),
+    ('ldaps', '636'),
+    ('sldap', '636'),
+    ('doom', '666'),
+    ('kerberos-adm', '749'),
+    ('kerberos-iv', '750'),
+    ('kpop', '1109'),
+    ('phone', '1167'),
+    ('ms-sql-s', '1433'),
+    ('ms-sql-m', '1434'),
+    ('wins', '1512'),
+    ('ingreslock', '1524'),
+    ('ingres', '1524'),
+    ('l2tp', '1701'),
+    ('pptp', '1723'),
+    ('radius', '1812'),
+    ('radacct', '1813'),
+    ('nfsd', '2049'),
+    ('nfs', '2049'),
+    ('knetd', '2053'),
+    ('gds_db', '3050'),
+    ('man', '9535')
+    );
+
+{function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.s_un_dw.s_dw1 = 0) and (a^.s_un_dw.s_dw2 = 0) and
+             (a^.s_un_dw.s_dw3 = 0) and (a^.s_un_dw.s_dw4 = 0));
+end;
+
+function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.s_un_dw.s_dw1 = 0) and (a^.s_un_dw.s_dw2 = 0) and
+             (a^.s_un_dw.s_dw3 = 0) and
+             (a^.s_un_b.s_b13 = char(0)) and (a^.s_un_b.s_b14 = char(0)) and
+             (a^.s_un_b.s_b15 = char(0)) and (a^.s_un_b.s_b16 = char(1)));
+end;
+
+function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.s_un_b.s_b1 = u_char($FE)) and (a^.s_un_b.s_b2 = u_char($80)));
+end;
+
+function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.s_un_b.s_b1 = u_char($FE)) and (a^.s_un_b.s_b2 = u_char($C0)));
+end;
+
+function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
+begin
+  Result := (a^.s_un_b.s_b1 = char($FF));
+end;
+
+function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6): boolean;
+begin
+  Result := (CompareMem( a, b, sizeof(TInAddr6)));
+end;
+
+procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
+begin
+  FillChar(a^, sizeof(TInAddr6), 0);
+end;
+
+procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
+begin
+  FillChar(a^, sizeof(TInAddr6), 0);
+  a^.s_un_b.s_b16 := char(1);
+end;
+}
+
+{=============================================================================}
+
+procedure NullErr;
+begin
+  WSALastError := 0;
+  WSALastErrorDesc := '';
+end;
+
+procedure GetErrCode(E: System.Exception);
+var
+  SE: System.Net.Sockets.SocketException;
+begin
+  if E is System.Net.Sockets.SocketException then
+  begin
+    SE := E as System.Net.Sockets.SocketException;
+    WSALastError := SE.ErrorCode;
+    WSALastErrorDesc := SE.Message;
+  end
+end;
+
+function WSAStartup(wVersionRequired: Word; var WSData: TWSAData): Integer;
+begin
+  NullErr;
+  with WSData do
+  begin
+    wVersion := wVersionRequired;
+    wHighVersion := $202;
+    szDescription := 'Synsock - Synapse Platform Independent Socket Layer';
+    szSystemStatus := 'Running on .NET';
+    iMaxSockets := 32768;
+    iMaxUdpDg := 8192;
+  end;
+  Result := 0;
+end;
+
+function WSACleanup: Integer;
+begin
+  NullErr;
+  Result := 0;
+end;
+
+function WSAGetLastError: Integer;
+begin
+  Result := WSALastError;
+end;
+
+function WSAGetLastErrorDesc: String;
+begin
+  Result := WSALastErrorDesc;
+end;
+
+function GetHostName: string;
+begin
+  Result := System.Net.DNS.GetHostName;
+end;
+
+function Shutdown(s: TSocket; how: Integer): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    s.ShutDown(SocketShutdown(how));
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function SetSockOpt(s: TSocket; level, optname: Integer; optval: Tmemory;
+  optlen: Integer): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    s.SetSocketOption(SocketOptionLevel(level), SocketOptionName(optname), optval);
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function SetSockOptObj(s: TSocket; level, optname: Integer; optval: TObject): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    s.SetSocketOption(SocketOptionLevel(level), SocketOptionName(optname), optval);
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function GetSockOpt(s: TSocket; level, optname: Integer; optval: Tmemory;
+  var optlen: Integer): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    s.GetSocketOption(SocketOptionLevel(level), SocketOptionName(optname), optval);
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+//function SendTo(s: TSocket; const Buf; len, flags: Integer; addrto: TVarSin): Integer;
+begin
+  NullErr;
+  try
+    result := s.SendTo(Buf, len, SocketFlags(flags), addrto);
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+//function Send(s: TSocket; const Buf; len, flags: Integer): Integer;
+begin
+  NullErr;
+  try
+    result := s.Send(Buf, len, SocketFlags(flags));
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+//function  Recv(s: TSocket; var Buf; len, flags: Integer): Integer;
+begin
+  NullErr;
+  try
+    result := s.Receive(Buf, len, SocketFlags(flags));
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+//function  RecvFrom(s: TSocket; var Buf; len, flags: Integer; from: PSockAddr;
+//  var fromlen: Integer): Integer;
+function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+//function  RecvFrom(s: TSocket; var Buf; len, flags: Integer; from: TVarSin): Integer;
+var
+  EP: EndPoint;
+begin
+  NullErr;
+  try
+    EP := from;
+    result := s.ReceiveFrom(Buf, len, SocketFlags(flags), EndPoint(EP));
+    from := EP as IPEndPoint;
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function  ntohs(netshort: u_short): u_short;
+begin
+  Result := IPAddress.NetworkToHostOrder(NetShort);
+end;
+
+function  ntohl(netlong: u_long): u_long;
+begin
+  Result := IPAddress.NetworkToHostOrder(NetLong);
+end;
+
+function  Listen(s: TSocket; backlog: Integer): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    s.Listen(backlog);
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function  IoctlSocket(s: TSocket; cmd: DWORD; var arg: integer): Integer;
+var
+  inv, outv: TMemory;
+begin
+  Result := 0;
+  NullErr;
+  try
+    if cmd = DWORD(FIONBIO) then
+      s.Blocking := arg = 0
+    else
+    begin
+      inv := BitConverter.GetBytes(arg);
+      outv := BitConverter.GetBytes(integer(0));
+      s.IOControl(cmd, inv, outv);
+      arg := BitConverter.ToInt32(outv, 0);
+    end;
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function  htons(hostshort: u_short): u_short;
+begin
+  Result := IPAddress.HostToNetworkOrder(Hostshort);
+end;
+
+function  htonl(hostlong: u_long): u_long;
+begin
+  Result := IPAddress.HostToNetworkOrder(HostLong);
+end;
+
+//function  GetSockName(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
+function  GetSockName(s: TSocket; var name: TVarSin): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    Name := s.localEndPoint as IPEndpoint;
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+//function  GetPeerName(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
+function  GetPeerName(s: TSocket; var name: TVarSin): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    Name := s.RemoteEndPoint as IPEndpoint;
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+//function  Connect(s: TSocket; name: PSockAddr; namelen: Integer): Integer;
+function Connect(s: TSocket; const name: TVarSin): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    s.Connect(name);
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+function CloseSocket(s: TSocket): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    s.Close;
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+//function  Bind(s: TSocket; addr: PSockAddr; namelen: Integer): Integer;
+function Bind(s: TSocket; const addr: TVarSin): Integer;
+begin
+  Result := 0;
+  NullErr;
+  try
+    s.Bind(addr);
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := integer(SOCKET_ERROR);
+    end;
+  end;
+end;
+
+//function  Accept(s: TSocket; addr: PSockAddr; var addrlen: Integer): TSocket;
+function Accept(s: TSocket; var addr: TVarSin): TSocket;
+begin
+  NullErr;
+  try
+    result := s.Accept();
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := nil;
+    end;
+  end;
+end;
+
+function Socket(af, Struc, Protocol: Integer): TSocket;
+begin
+  NullErr;
+  try
+    result := TSocket.Create(AddressFamily(af), SocketType(Struc), ProtocolType(Protocol));
+  except
+    on e: System.Net.Sockets.SocketException do
+    begin
+      GetErrCode(e);
+      Result := nil;
+    end;
+  end;
+end;
+
+{=============================================================================}
+function GetPortService(value: string): integer;
+var
+  n: integer;
+begin
+  Result := 0;
+  value := Lowercase(value);
+  for n := 0 to High(Services) do
+    if services[n, 0] = value then
+    begin
+      Result := strtointdef(services[n, 1], 0);
+      break;
+    end;
+  if Result = 0 then
+    Result := StrToIntDef(value, 0);
+end;
+
+{=============================================================================}
+function IsNewApi(Family: TAddrFamily): Boolean;
+begin
+  Result := true;
+end;
+
+function SetVarSin(var Sin: TVarSin; IP, Port: string; Family: TAddrFamily; SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
+var
+  IPs: array of IPAddress;
+  n: integer;
+  ip4, ip6: string;
+  sip: string;
+begin
+  sip := '';
+  ip4 := '';
+  ip6 := '';
+  IPs := Dns.Resolve(IP).AddressList;
+  for n :=low(IPs) to high(IPs) do begin
+    if (ip4 = '') and (IPs[n].AddressFamily = AF_INET) then
+      ip4 := IPs[n].toString;
+    if (ip6 = '') and (IPs[n].AddressFamily = AF_INET6) then
+      ip6 := IPs[n].toString;
+    if (ip4 <> '') and (ip6 <> '') then
+      break;
+  end;
+  case Family of
+    AF_UNSPEC:
+      begin
+        if (ip4 <> '') and (ip6 <> '') then
+        begin
+          if PreferIP4 then
+            sip := ip4
+          else
+            Sip := ip6;
+          end
+        else
+        begin
+          sip := ip4;
+          if (ip6 <> '') then
+            sip := ip6;
+        end;
+      end;
+    AF_INET:
+      sip := ip4;
+    AF_INET6:
+      sip := ip6;
+  end;
+  sin := TVarSin.Create(IPAddress.Parse(sip), GetPortService(Port));
+end;
+
+function GetSinIP(Sin: TVarSin): string;
+begin
+  Result := Sin.Address.ToString;
+end;
+
+function GetSinPort(Sin: TVarSin): Integer;
+begin
+  Result := Sin.Port;
+end;
+
+procedure ResolveNameToIP(Name: string; Family: TAddrFamily; SockProtocol, SockType: integer; const IPList: TStrings);
+var
+  IPs :array of IPAddress;
+  n: integer;
+begin
+  IPList.Clear;
+  IPs := Dns.Resolve(Name).AddressList;
+  for n := low(IPs) to high(IPs) do
+  begin
+    if not(((Family = AF_INET6) and (IPs[n].AddressFamily = AF_INET))
+      or ((Family = AF_INET) and (IPs[n].AddressFamily = AF_INET6))) then
+    begin
+      IPList.Add(IPs[n].toString);
+    end;
+  end;
+end;
+
+function ResolvePort(Port: string; Family: TAddrFamily; SockProtocol, SockType: integer): Word;
+var
+  n: integer;
+begin
+  Result := StrToIntDef(port, 0);
+  if Result = 0 then
+  begin
+    port := Lowercase(port);
+    for n := 0 to High(Services) do
+      if services[n, 0] = port then
+      begin
+        Result := strtointdef(services[n, 1], 0);
+        break;
+      end;
+  end;
+end;
+
+function ResolveIPToName(IP: string; Family: TAddrFamily; SockProtocol, SockType: integer): string;
+begin
+  Result := Dns.GetHostByAddress(IP).HostName;
+end;
+
+
+{=============================================================================}
+function InitSocketInterface(stack: string): Boolean;
+begin
+  Result := True;
+end;
+
+function DestroySocketInterface: Boolean;
+begin
+  NullErr;
+  Result := True;
+end;
+
+initialization
+begin
+  SynSockCS := SyncObjs.TCriticalSection.Create;
+//  SET_IN6_IF_ADDR_ANY (@in6addr_any);
+//  SET_LOOPBACK_ADDR6  (@in6addr_loopback);
+end;
+
+finalization
+begin
+  NullErr;
+  SynSockCS.Free;
+end;
+
+{$ENDIF}
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssfpc.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssfpc.pas
new file mode 100644
index 0000000..ea94669
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssfpc.pas	
@@ -0,0 +1,895 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.000 |
+|==============================================================================|
+| Content: Socket Independent Platform Layer - FreePascal definition include   |
+|==============================================================================|
+| Copyright (c)2006-2009, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2006-2009.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@exclude}
+
+{$IFDEF FPC}
+{For FreePascal 2.x.x}
+
+//{$DEFINE FORCEOLDAPI}
+{Note about define FORCEOLDAPI:
+If you activate this compiler directive, then is allways used old socket API
+for name resolution. If you leave this directive inactive, then the new API
+is used, when running system allows it.
+
+For IPv6 support you must have new API!
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+{$ifdef FreeBSD}
+{$DEFINE SOCK_HAS_SINLEN}               // BSD definition of scoketaddr
+{$endif}
+{$ifdef darwin}
+{$DEFINE SOCK_HAS_SINLEN}               // BSD definition of scoketaddr
+{$endif}
+
+interface
+
+uses
+  SyncObjs, SysUtils, Classes,
+  synafpc, BaseUnix, Unix, termio, sockets, netdb;
+
+function InitSocketInterface(stack: string): Boolean;
+function DestroySocketInterface: Boolean;
+
+const
+  DLLStackName = '';
+  WinsockLevel = $0202;
+
+  cLocalHost = '127.0.0.1';
+  cAnyHost = '0.0.0.0';
+  c6AnyHost = '::0';
+  c6Localhost = '::1';
+  cLocalHostStr = 'localhost';
+
+type
+  TSocket = longint;
+  TAddrFamily = integer;
+
+  TMemory = pointer;
+
+
+type
+  TFDSet = Baseunix.TFDSet;
+  PFDSet = ^TFDSet;
+  Ptimeval = Baseunix.ptimeval;
+  Ttimeval = Baseunix.ttimeval;
+
+const
+  FIONREAD        = termio.FIONREAD;
+  FIONBIO         = termio.FIONBIO;
+  FIOASYNC        = termio.FIOASYNC;
+
+const
+  IPPROTO_IP     =   0;		{ Dummy					}
+  IPPROTO_ICMP   =   1;		{ Internet Control Message Protocol }
+  IPPROTO_IGMP   =   2;		{ Internet Group Management Protocol}
+  IPPROTO_TCP    =   6;		{ TCP           			}
+  IPPROTO_UDP    =   17;	{ User Datagram Protocol		}
+  IPPROTO_IPV6   =   41;
+  IPPROTO_ICMPV6 =   58;
+
+  IPPROTO_RAW    =   255;
+  IPPROTO_MAX    =   256;
+
+type
+  PInAddr = ^TInAddr;
+  TInAddr = sockets.in_addr;
+
+  PSockAddrIn = ^TSockAddrIn;
+  TSockAddrIn = sockets.TInetSockAddr;
+
+
+  TIP_mreq =  record
+    imr_multiaddr: TInAddr;     // IP multicast address of group
+    imr_interface: TInAddr;     // local IP address of interface
+  end;
+
+
+  PInAddr6 = ^TInAddr6;
+  TInAddr6 = sockets.Tin6_addr;
+
+  PSockAddrIn6 = ^TSockAddrIn6;
+  TSockAddrIn6 = sockets.TInetSockAddr6;
+
+
+  TIPv6_mreq = record
+    ipv6mr_multiaddr: TInAddr6; // IPv6 multicast address.
+    ipv6mr_interface: integer;   // Interface index.
+  end;
+
+const
+  INADDR_ANY       = $00000000;
+  INADDR_LOOPBACK  = $7F000001;
+  INADDR_BROADCAST = $FFFFFFFF;
+  INADDR_NONE      = $FFFFFFFF;
+  ADDR_ANY		 = INADDR_ANY;
+  INVALID_SOCKET		= TSocket(NOT(0));
+  SOCKET_ERROR			= -1;
+
+Const
+  IP_TOS             = sockets.IP_TOS;             { int; IP type of service and precedence.  }
+  IP_TTL             = sockets.IP_TTL;             { int; IP time to live.  }
+  IP_HDRINCL         = sockets.IP_HDRINCL;         { int; Header is included with data.  }
+  IP_OPTIONS         = sockets.IP_OPTIONS;         { ip_opts; IP per-packet options.  }
+//  IP_ROUTER_ALERT    = sockets.IP_ROUTER_ALERT;    { bool }
+  IP_RECVOPTS        = sockets.IP_RECVOPTS;        { bool }
+  IP_RETOPTS         = sockets.IP_RETOPTS;         { bool }
+//  IP_PKTINFO         = sockets.IP_PKTINFO;         { bool }
+//  IP_PKTOPTIONS      = sockets.IP_PKTOPTIONS;
+//  IP_PMTUDISC        = sockets.IP_PMTUDISC;        { obsolete name? }
+//  IP_MTU_DISCOVER    = sockets.IP_MTU_DISCOVER;    { int; see below }
+//  IP_RECVERR         = sockets.IP_RECVERR;         { bool }
+//  IP_RECVTTL         = sockets.IP_RECVTTL;         { bool }
+//  IP_RECVTOS         = sockets.IP_RECVTOS;         { bool }
+  IP_MULTICAST_IF    = sockets.IP_MULTICAST_IF;    { in_addr; set/get IP multicast i/f }
+  IP_MULTICAST_TTL   = sockets.IP_MULTICAST_TTL;   { u_char; set/get IP multicast ttl }
+  IP_MULTICAST_LOOP  = sockets.IP_MULTICAST_LOOP;  { i_char; set/get IP multicast loopback }
+  IP_ADD_MEMBERSHIP  = sockets.IP_ADD_MEMBERSHIP;  { ip_mreq; add an IP group membership }
+  IP_DROP_MEMBERSHIP = sockets.IP_DROP_MEMBERSHIP; { ip_mreq; drop an IP group membership }
+
+  SOL_SOCKET    = sockets.SOL_SOCKET;
+
+  SO_DEBUG      = sockets.SO_DEBUG;
+  SO_REUSEADDR  = sockets.SO_REUSEADDR;
+  SO_TYPE       = sockets.SO_TYPE;
+  SO_ERROR      = sockets.SO_ERROR;
+  SO_DONTROUTE  = sockets.SO_DONTROUTE;
+  SO_BROADCAST  = sockets.SO_BROADCAST;
+  SO_SNDBUF     = sockets.SO_SNDBUF;
+  SO_RCVBUF     = sockets.SO_RCVBUF;
+  SO_KEEPALIVE  = sockets.SO_KEEPALIVE;
+  SO_OOBINLINE  = sockets.SO_OOBINLINE;
+//  SO_NO_CHECK   = sockets.SO_NO_CHECK;
+//  SO_PRIORITY   = sockets.SO_PRIORITY;
+  SO_LINGER     = sockets.SO_LINGER;
+//  SO_BSDCOMPAT  = sockets.SO_BSDCOMPAT;
+//  SO_REUSEPORT  = sockets.SO_REUSEPORT;
+//  SO_PASSCRED   = sockets.SO_PASSCRED;
+//  SO_PEERCRED   = sockets.SO_PEERCRED;
+  SO_RCVLOWAT   = sockets.SO_RCVLOWAT;
+  SO_SNDLOWAT   = sockets.SO_SNDLOWAT;
+  SO_RCVTIMEO   = sockets.SO_RCVTIMEO;
+  SO_SNDTIMEO   = sockets.SO_SNDTIMEO;
+{ Security levels - as per NRL IPv6 - don't actually do anything }
+//  SO_SECURITY_AUTHENTICATION       = sockets.SO_SECURITY_AUTHENTICATION;
+//  SO_SECURITY_ENCRYPTION_TRANSPORT = sockets.SO_SECURITY_ENCRYPTION_TRANSPORT;
+//  SO_SECURITY_ENCRYPTION_NETWORK   = sockets.SO_SECURITY_ENCRYPTION_NETWORK;
+//  SO_BINDTODEVICE                  = sockets.SO_BINDTODEVICE;
+{ Socket filtering }
+//  SO_ATTACH_FILTER = sockets.SO_ATTACH_FILTER;
+//  SO_DETACH_FILTER = sockets.SO_DETACH_FILTER;
+
+  SOMAXCONN       = 1024;
+
+  IPV6_UNICAST_HOPS     = sockets.IPV6_UNICAST_HOPS;
+  IPV6_MULTICAST_IF     = sockets.IPV6_MULTICAST_IF;
+  IPV6_MULTICAST_HOPS   = sockets.IPV6_MULTICAST_HOPS;
+  IPV6_MULTICAST_LOOP   = sockets.IPV6_MULTICAST_LOOP;
+  IPV6_JOIN_GROUP       = sockets.IPV6_JOIN_GROUP;
+  IPV6_LEAVE_GROUP      = sockets.IPV6_LEAVE_GROUP;
+
+const
+  SOCK_STREAM     = 1;               { stream socket }
+  SOCK_DGRAM      = 2;               { datagram socket }
+  SOCK_RAW        = 3;               { raw-protocol interface }
+  SOCK_RDM        = 4;               { reliably-delivered message }
+  SOCK_SEQPACKET  = 5;               { sequenced packet stream }
+
+{ TCP options. }
+  TCP_NODELAY     = $0001;
+
+{ Address families. }
+
+  AF_UNSPEC       = 0;               { unspecified }
+  AF_INET         = 2;               { internetwork: UDP, TCP, etc. }
+  AF_INET6        = 10;              { Internetwork Version 6 }
+  AF_MAX          = 24;
+
+{ Protocol families, same as address families for now. }
+  PF_UNSPEC       = AF_UNSPEC;
+  PF_INET         = AF_INET;
+  PF_INET6        = AF_INET6;
+  PF_MAX          = AF_MAX;
+
+type
+{ Structure used for manipulating linger option. }
+  PLinger = ^TLinger;
+  TLinger = packed record
+    l_onoff: integer;
+    l_linger: integer;
+  end;
+
+const
+
+  MSG_OOB       = sockets.MSG_OOB;      // Process out-of-band data.
+  MSG_PEEK      = sockets.MSG_PEEK;     // Peek at incoming messages.
+  {$IFDEF DARWIN}
+  MSG_NOSIGNAL = $4000;
+  {$ELSE}
+  MSG_NOSIGNAL  = sockets.MSG_NOSIGNAL; // Do not generate SIGPIPE.
+  {$ENDIF}
+  
+const
+  WSAEINTR = ESysEINTR;
+  WSAEBADF = ESysEBADF;
+  WSAEACCES = ESysEACCES;
+  WSAEFAULT = ESysEFAULT;
+  WSAEINVAL = ESysEINVAL;
+  WSAEMFILE = ESysEMFILE;
+  WSAEWOULDBLOCK = ESysEWOULDBLOCK;
+  WSAEINPROGRESS = ESysEINPROGRESS;
+  WSAEALREADY = ESysEALREADY;
+  WSAENOTSOCK = ESysENOTSOCK;
+  WSAEDESTADDRREQ = ESysEDESTADDRREQ;
+  WSAEMSGSIZE = ESysEMSGSIZE;
+  WSAEPROTOTYPE = ESysEPROTOTYPE;
+  WSAENOPROTOOPT = ESysENOPROTOOPT;
+  WSAEPROTONOSUPPORT = ESysEPROTONOSUPPORT;
+  WSAESOCKTNOSUPPORT = ESysESOCKTNOSUPPORT;
+  WSAEOPNOTSUPP = ESysEOPNOTSUPP;
+  WSAEPFNOSUPPORT = ESysEPFNOSUPPORT;
+  WSAEAFNOSUPPORT = ESysEAFNOSUPPORT;
+  WSAEADDRINUSE = ESysEADDRINUSE;
+  WSAEADDRNOTAVAIL = ESysEADDRNOTAVAIL;
+  WSAENETDOWN = ESysENETDOWN;
+  WSAENETUNREACH = ESysENETUNREACH;
+  WSAENETRESET = ESysENETRESET;
+  WSAECONNABORTED = ESysECONNABORTED;
+  WSAECONNRESET = ESysECONNRESET;
+  WSAENOBUFS = ESysENOBUFS;
+  WSAEISCONN = ESysEISCONN;
+  WSAENOTCONN = ESysENOTCONN;
+  WSAESHUTDOWN = ESysESHUTDOWN;
+  WSAETOOMANYREFS = ESysETOOMANYREFS;
+  WSAETIMEDOUT = ESysETIMEDOUT;
+  WSAECONNREFUSED = ESysECONNREFUSED;
+  WSAELOOP = ESysELOOP;
+  WSAENAMETOOLONG = ESysENAMETOOLONG;
+  WSAEHOSTDOWN = ESysEHOSTDOWN;
+  WSAEHOSTUNREACH = ESysEHOSTUNREACH;
+  WSAENOTEMPTY = ESysENOTEMPTY;
+  WSAEPROCLIM = -1;
+  WSAEUSERS = ESysEUSERS;
+  WSAEDQUOT = ESysEDQUOT;
+  WSAESTALE = ESysESTALE;
+  WSAEREMOTE = ESysEREMOTE;
+  WSASYSNOTREADY = -2;
+  WSAVERNOTSUPPORTED = -3;
+  WSANOTINITIALISED = -4;
+  WSAEDISCON = -5;
+  WSAHOST_NOT_FOUND = 1;
+  WSATRY_AGAIN = 2;
+  WSANO_RECOVERY = 3;
+  WSANO_DATA = -6;
+
+const
+  WSADESCRIPTION_LEN     =   256;
+  WSASYS_STATUS_LEN      =   128;
+type
+  PWSAData = ^TWSAData;
+  TWSAData = packed record
+    wVersion: Word;
+    wHighVersion: Word;
+    szDescription: array[0..WSADESCRIPTION_LEN] of Char;
+    szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char;
+    iMaxSockets: Word;
+    iMaxUdpDg: Word;
+    lpVendorInfo: PChar;
+  end;
+
+  function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
+  function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6):boolean;
+  procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
+  procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
+
+var
+  in6addr_any, in6addr_loopback : TInAddr6;
+
+procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
+function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
+procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
+procedure FD_ZERO(var FDSet: TFDSet);
+
+{=============================================================================}
+
+var
+  SynSockCS: SyncObjs.TCriticalSection;
+  SockEnhancedApi: Boolean;
+  SockWship6Api: Boolean;
+
+type
+  TVarSin = packed record
+  {$ifdef SOCK_HAS_SINLEN}
+     sin_len     : cuchar;
+  {$endif}
+    case integer of
+      0: (AddressFamily: sa_family_t);
+      1: (
+        case sin_family: sa_family_t of
+          AF_INET: (sin_port: word;
+                    sin_addr: TInAddr;
+                    sin_zero: array[0..7] of Char);
+          AF_INET6: (sin6_port:     word;
+                		sin6_flowinfo: longword;
+      	    	      sin6_addr:     TInAddr6;
+      		          sin6_scope_id: longword);
+          );
+  end;
+
+function SizeOfVarSin(sin: TVarSin): integer;
+
+  function WSAStartup(wVersionRequired: Word; var WSData: TWSAData): Integer;
+  function WSACleanup: Integer;
+  function WSAGetLastError: Integer;
+  function GetHostName: string;
+  function Shutdown(s: TSocket; how: Integer): Integer;
+  function SetSockOpt(s: TSocket; level, optname: Integer; optval: TMemory;
+    optlen: Integer): Integer;
+  function GetSockOpt(s: TSocket; level, optname: Integer; optval: TMemory;
+    var optlen: Integer): Integer;
+  function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+  function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+  function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+  function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+  function ntohs(netshort: word): word;
+  function ntohl(netlong: longword): longword;
+  function Listen(s: TSocket; backlog: Integer): Integer;
+  function IoctlSocket(s: TSocket; cmd: DWORD; var arg: integer): Integer;
+  function htons(hostshort: word): word;
+  function htonl(hostlong: longword): longword;
+  function GetSockName(s: TSocket; var name: TVarSin): Integer;
+  function GetPeerName(s: TSocket; var name: TVarSin): Integer;
+  function Connect(s: TSocket; const name: TVarSin): Integer;
+  function CloseSocket(s: TSocket): Integer;
+  function Bind(s: TSocket; const addr: TVarSin): Integer;
+  function Accept(s: TSocket; var addr: TVarSin): TSocket;
+  function Socket(af, Struc, Protocol: Integer): TSocket;
+  function Select(nfds: Integer; readfds, writefds, exceptfds: PFDSet;
+    timeout: PTimeVal): Longint;
+
+function IsNewApi(Family: integer): Boolean;
+function SetVarSin(var Sin: TVarSin; IP, Port: string; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
+function GetSinIP(Sin: TVarSin): string;
+function GetSinPort(Sin: TVarSin): Integer;
+procedure ResolveNameToIP(Name: string;  Family, SockProtocol, SockType: integer; const IPList: TStrings);
+function ResolveIPToName(IP: string; Family, SockProtocol, SockType: integer): string;
+function ResolvePort(Port: string; Family, SockProtocol, SockType: integer): Word;
+
+
+{==============================================================================}
+implementation
+
+
+function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr32[0] = 0) and (a^.u6_addr32[1] = 0) and
+             (a^.u6_addr32[2] = 0) and (a^.u6_addr32[3] = 0));
+end;
+
+function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr32[0] = 0) and (a^.u6_addr32[1] = 0) and
+             (a^.u6_addr32[2] = 0) and
+             (a^.u6_addr8[12] = 0) and (a^.u6_addr8[13] = 0) and
+             (a^.u6_addr8[14] = 0) and (a^.u6_addr8[15] = 1));
+end;
+
+function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr8[0] = $FE) and (a^.u6_addr8[1] = $80));
+end;
+
+function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr8[0] = $FE) and (a^.u6_addr8[1] = $C0));
+end;
+
+function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
+begin
+  Result := (a^.u6_addr8[0] = $FF);
+end;
+
+function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6): boolean;
+begin
+  Result := (CompareMem( a, b, sizeof(TInAddr6)));
+end;
+
+procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
+begin
+  FillChar(a^, sizeof(TInAddr6), 0);
+end;
+
+procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
+begin
+  FillChar(a^, sizeof(TInAddr6), 0);
+  a^.u6_addr8[15] := 1;
+end;
+
+{=============================================================================}
+
+function WSAStartup(wVersionRequired: Word; var WSData: TWSAData): Integer;
+begin
+  with WSData do
+  begin
+    wVersion := wVersionRequired;
+    wHighVersion := $202;
+    szDescription := 'Synsock - Synapse Platform Independent Socket Layer';
+    szSystemStatus := 'Running on Unix/Linux by FreePascal';
+    iMaxSockets := 32768;
+    iMaxUdpDg := 8192;
+  end;
+  Result := 0;
+end;
+
+function WSACleanup: Integer;
+begin
+  Result := 0;
+end;
+
+function WSAGetLastError: Integer;
+begin
+  Result := fpGetErrno; 
+end;
+
+function FD_ISSET(Socket: TSocket; var fdset: TFDSet): Boolean;
+begin
+  Result := fpFD_ISSET(socket, fdset) <> 0;
+end;
+
+procedure FD_SET(Socket: TSocket; var fdset: TFDSet);
+begin
+  fpFD_SET(Socket, fdset);
+end;
+
+procedure FD_CLR(Socket: TSocket; var fdset: TFDSet);
+begin
+  fpFD_CLR(Socket, fdset);
+end;
+
+procedure FD_ZERO(var fdset: TFDSet);
+begin
+  fpFD_ZERO(fdset);
+end;
+
+{=============================================================================}
+
+function SizeOfVarSin(sin: TVarSin): integer;
+begin
+  case sin.sin_family of
+    AF_INET:
+            Result := SizeOf(TSockAddrIn);
+    AF_INET6:
+            Result := SizeOf(TSockAddrIn6);
+  else
+    Result := 0;
+  end;
+end;
+
+{=============================================================================}
+
+function Bind(s: TSocket; const addr: TVarSin): Integer;
+begin
+  if fpBind(s, @addr, SizeOfVarSin(addr)) = 0 then
+    Result := 0
+  else
+    Result := SOCKET_ERROR;
+end;
+
+function Connect(s: TSocket; const name: TVarSin): Integer;
+begin
+  if fpConnect(s, @name, SizeOfVarSin(name)) = 0 then
+    Result := 0
+  else
+    Result := SOCKET_ERROR;
+end;
+
+function GetSockName(s: TSocket; var name: TVarSin): Integer;
+var
+  len: integer;
+begin
+  len := SizeOf(name);
+  FillChar(name, len, 0);
+  Result := fpGetSockName(s, @name, @Len);
+end;
+
+function GetPeerName(s: TSocket; var name: TVarSin): Integer;
+var
+  len: integer;
+begin
+  len := SizeOf(name);
+  FillChar(name, len, 0);
+  Result := fpGetPeerName(s, @name, @Len);
+end;
+
+function GetHostName: string;
+begin
+  Result := unix.GetHostName;
+end;
+
+function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+begin
+  Result := fpSend(s, pointer(Buf), len, flags);
+end;
+
+function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+begin
+  Result := fpRecv(s, pointer(Buf), len, flags);
+end;
+
+function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+begin
+  Result := fpSendTo(s, pointer(Buf), len, flags, @addrto, SizeOfVarSin(addrto));
+end;
+
+function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+var
+  x: integer;
+begin
+  x := SizeOf(from);
+  Result := fpRecvFrom(s, pointer(Buf), len, flags, @from, @x);
+end;
+
+function Accept(s: TSocket; var addr: TVarSin): TSocket;
+var
+  x: integer;
+begin
+  x := SizeOf(addr);
+  Result := fpAccept(s, @addr, @x);
+end;
+
+function Shutdown(s: TSocket; how: Integer): Integer;
+begin
+  Result := fpShutdown(s, how);
+end;
+
+function SetSockOpt(s: TSocket; level, optname: Integer; optval: Tmemory;
+  optlen: Integer): Integer;
+begin
+  Result := fpsetsockopt(s, level, optname, pointer(optval), optlen);
+end;
+
+function GetSockOpt(s: TSocket; level, optname: Integer; optval: Tmemory;
+  var optlen: Integer): Integer;
+begin
+  Result := fpgetsockopt(s, level, optname, pointer(optval), @optlen);
+end;
+
+function  ntohs(netshort: word): word;
+begin
+  Result := sockets.ntohs(NetShort);
+end;
+
+function  ntohl(netlong: longword): longword;
+begin
+  Result := sockets.ntohl(NetLong);
+end;
+
+function  Listen(s: TSocket; backlog: Integer): Integer;
+begin
+  if fpListen(s, backlog) = 0 then
+    Result := 0
+  else
+    Result := SOCKET_ERROR;
+end;
+
+function  IoctlSocket(s: TSocket; cmd: DWORD; var arg: integer): Integer;
+begin
+  Result := fpIoctl(s, cmd, @arg);
+end;
+
+function  htons(hostshort: word): word;
+begin
+  Result := sockets.htons(Hostshort);
+end;
+
+function  htonl(hostlong: longword): longword;
+begin
+  Result := sockets.htonl(HostLong);
+end;
+
+function CloseSocket(s: TSocket): Integer;
+begin
+  Result := sockets.CloseSocket(s);
+end;
+
+function Socket(af, Struc, Protocol: Integer): TSocket;
+begin
+  Result := fpSocket(af, struc, protocol);
+end;
+
+function Select(nfds: Integer; readfds, writefds, exceptfds: PFDSet;
+  timeout: PTimeVal): Longint;
+begin
+  Result := fpSelect(nfds, readfds, writefds, exceptfds, timeout);
+end;
+
+{=============================================================================}
+function IsNewApi(Family: integer): Boolean;
+begin
+  Result := SockEnhancedApi;
+  if not Result then
+    Result := (Family = AF_INET6) and SockWship6Api;
+end;
+
+function SetVarSin(var Sin: TVarSin; IP, Port: string; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
+var
+  TwoPass: boolean;
+  f1, f2: integer;
+
+  function GetAddr(f:integer): integer;
+  var
+    a4: array [1..1] of in_addr;
+    a6: array [1..1] of Tin6_addr;
+  begin
+    Result := WSAEPROTONOSUPPORT;
+    case f of
+      AF_INET:
+        begin
+          if IP = cAnyHost then
+          begin
+            Sin.sin_family := AF_INET;
+            Result := 0;
+          end
+          else
+          begin
+            if lowercase(IP) = cLocalHostStr then
+              a4[1].s_addr := htonl(INADDR_LOOPBACK)
+            else
+            begin
+              a4[1].s_addr := 0;
+              Result := WSAHOST_NOT_FOUND;
+              a4[1] := StrTonetAddr(IP);
+              if a4[1].s_addr = INADDR_ANY then
+                Resolvename(ip, a4);
+            end;
+            if a4[1].s_addr <> INADDR_ANY then
+            begin
+              Sin.sin_family := AF_INET;
+              sin.sin_addr := a4[1];
+              Result := 0;
+            end;
+          end;
+        end;
+      AF_INET6:
+        begin
+          if IP = c6AnyHost then
+          begin
+            Sin.sin_family := AF_INET6;
+            Result := 0;
+          end
+          else
+          begin
+            if lowercase(IP) = cLocalHostStr then
+              SET_LOOPBACK_ADDR6(@a6[1])
+            else
+            begin
+              Result := WSAHOST_NOT_FOUND;
+              SET_IN6_IF_ADDR_ANY(@a6[1]);
+              a6[1] := StrTonetAddr6(IP);
+              if IN6_IS_ADDR_UNSPECIFIED(@a6[1]) then
+                Resolvename6(ip, a6);
+            end;
+            if IN6_IS_ADDR_UNSPECIFIED(@a6[1]) then
+            begin
+              Sin.sin_family := AF_INET6;
+              sin.sin6_addr := a6[1];
+              Result := 0;
+            end;
+          end;
+        end;
+    end;
+  end;
+begin
+  Result := 0;
+  FillChar(Sin, Sizeof(Sin), 0);
+  Sin.sin_port := Resolveport(port, family, SockProtocol, SockType);
+  TwoPass := False;
+  if Family = AF_UNSPEC then
+  begin
+    if PreferIP4 then
+    begin
+      f1 := AF_INET;
+      f2 := AF_INET6;
+      TwoPass := True;
+    end
+    else
+    begin
+      f2 := AF_INET;
+      f1 := AF_INET6;
+      TwoPass := True;
+    end;
+  end
+  else
+    f1 := Family;
+  Result := GetAddr(f1);
+  if Result <> 0 then
+    if TwoPass then
+      Result := GetAddr(f2);
+end;
+
+function GetSinIP(Sin: TVarSin): string;
+begin
+  Result := '';
+  case sin.AddressFamily of
+    AF_INET:
+      begin
+        result := NetAddrToStr(sin.sin_addr);
+      end;
+    AF_INET6:
+      begin
+        result := NetAddrToStr6(sin.sin6_addr);
+      end;
+  end;
+end;
+
+function GetSinPort(Sin: TVarSin): Integer;
+begin
+  if (Sin.sin_family = AF_INET6) then
+    Result := synsock.ntohs(Sin.sin6_port)
+  else
+    Result := synsock.ntohs(Sin.sin_port);
+end;
+
+procedure ResolveNameToIP(Name: string; Family, SockProtocol, SockType: integer; const IPList: TStrings);
+var
+  x, n: integer;
+  a4: array [1..255] of in_addr;
+  a6: array [1..255] of Tin6_addr;
+begin
+  IPList.Clear;
+  if (family = AF_INET) or (family = AF_UNSPEC) then
+  begin
+    if lowercase(name) = cLocalHostStr then
+      IpList.Add(cLocalHost)
+    else
+    begin
+      a4[1] := StrTonetAddr(name);
+      if a4[1].s_addr = INADDR_ANY then
+        x := Resolvename(name, a4)
+      else
+        x := 1;
+      for n := 1  to x do
+        IpList.Add(netaddrToStr(a4[n]));
+    end;
+  end;
+
+  if (family = AF_INET6) or (family = AF_UNSPEC) then
+  begin
+    if lowercase(name) = cLocalHostStr then
+      IpList.Add(c6LocalHost)
+    else
+    begin
+      a6[1] := StrTonetAddr6(name);
+      if IN6_IS_ADDR_UNSPECIFIED(@a6[1]) then
+        x := Resolvename6(name, a6)
+      else
+        x := 1;
+      for n := 1  to x do
+        IpList.Add(netaddrToStr6(a6[n]));
+    end;
+  end;
+
+  if IPList.Count = 0 then
+    IPList.Add(cLocalHost);
+end;
+
+function ResolvePort(Port: string; Family, SockProtocol, SockType: integer): Word;
+var
+  ProtoEnt: TProtocolEntry;
+  ServEnt: TServiceEntry;
+begin
+  Result := synsock.htons(StrToIntDef(Port, 0));
+  if Result = 0 then
+  begin
+    ProtoEnt.Name := '';
+    GetProtocolByNumber(SockProtocol, ProtoEnt);
+    ServEnt.port := 0;
+    GetServiceByName(Port, ProtoEnt.Name, ServEnt);
+    Result := ServEnt.port;  
+  end;
+end;
+
+function ResolveIPToName(IP: string; Family, SockProtocol, SockType: integer): string;
+var
+  n: integer;
+  a4: array [1..1] of in_addr;
+  a6: array [1..1] of Tin6_addr;
+  a: array [1..1] of string;
+begin
+  Result := IP;
+  a4[1] := StrToNetAddr(IP);
+  if a4[1].s_addr <> INADDR_ANY then
+  begin
+//why ResolveAddress need address in HOST order? :-O 
+    n := ResolveAddress(nettohost(a4[1]), a);
+    if n > 0 then
+      Result := a[1];
+  end
+  else
+  begin
+    a6[1] := StrToNetAddr6(IP);
+    n := ResolveAddress6(a6[1], a);
+    if n > 0 then
+      Result := a[1];
+  end;
+end;
+
+{=============================================================================}
+
+function InitSocketInterface(stack: string): Boolean;
+begin
+  SockEnhancedApi := False;
+  SockWship6Api := False;
+//  Libc.Signal(Libc.SIGPIPE, TSignalHandler(Libc.SIG_IGN));
+  Result := True;
+end;
+
+function DestroySocketInterface: Boolean;
+begin
+  Result := True;
+end;
+
+initialization
+begin
+  SynSockCS := SyncObjs.TCriticalSection.Create;
+  SET_IN6_IF_ADDR_ANY (@in6addr_any);
+  SET_LOOPBACK_ADDR6  (@in6addr_loopback);
+end;
+
+finalization
+begin
+  SynSockCS.Free;
+end;
+
+{$ENDIF}
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_cryptlib.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_cryptlib.pas
new file mode 100644
index 0000000..84dd4d8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_cryptlib.pas	
@@ -0,0 +1,569 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.000 |
+|==============================================================================|
+| Content: SSL/SSH support by Peter Gutmann's CryptLib                         |
+|==============================================================================|
+| Copyright (c)1999-2005, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2005.                     |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(SSL/SSH plugin for CryptLib)
+
+This plugin requires cl32.dll at least version 3.2.0! It can be used on Win32
+and Linux. This library is staticly linked - when you compile your application
+with this plugin, you MUST distribute it with Cryptib library, otherwise you
+cannot run your application!
+
+It can work with keys and certificates stored as PKCS#15 only! It must be stored
+as disk file only, you cannot load them from memory! Each file can hold multiple
+keys and certificates. You must identify it by 'label' stored in
+@link(TSSLCryptLib.PrivateKeyLabel).
+
+If you need to use secure connection and authorize self by certificate
+(each SSL/TLS server or client with client authorization), then use
+@link(TCustomSSL.PrivateKeyFile), @link(TSSLCryptLib.PrivateKeyLabel) and
+@link(TCustomSSL.KeyPassword) properties.
+
+If you need to use server what verifying client certificates, then use
+@link(TCustomSSL.CertCAFile) as PKCS#15 file with public keyas of allowed clients. Clients
+with non-matching certificates will be rejected by cryptLib.
+
+This plugin is capable to create Ad-Hoc certificates. When you start SSL/TLS
+server without explicitly assigned key and certificate, then this plugin create
+Ad-Hoc key and certificate for each incomming connection by self. It slowdown
+accepting of new connections!
+
+You can use this plugin for SSHv2 connections too! You must explicitly set
+@link(TCustomSSL.SSLType) to value LT_SSHv2 and set @link(TCustomSSL.username)
+and @link(TCustomSSL.password). You can use special SSH channels too, see
+@link(TCustomSSL).
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit ssl_cryptlib;
+
+interface
+
+uses
+  SysUtils,
+  blcksock, synsock, synautil, synacode,
+  cryptlib;
+
+type
+  {:@abstract(class implementing CryptLib SSL/SSH plugin.)
+   Instance of this class will be created for each @link(TTCPBlockSocket).
+   You not need to create instance of this class, all is done by Synapse itself!}
+  TSSLCryptLib = class(TCustomSSL)
+  protected
+    FCryptSession: CRYPT_SESSION;
+    FPrivateKeyLabel: string;
+    FDelCert: Boolean;
+    FReadBuffer: string;
+    function SSLCheck(Value: integer): Boolean;
+    function Init(server:Boolean): Boolean;
+    function DeInit: Boolean;
+    function Prepare(server:Boolean): Boolean;
+    function GetString(const cryptHandle: CRYPT_HANDLE; const attributeType: CRYPT_ATTRIBUTE_TYPE): string;
+    function CreateSelfSignedCert(Host: string): Boolean; override;
+    function PopAll: string;
+  public
+    {:See @inherited}
+    constructor Create(const Value: TTCPBlockSocket); override;
+    destructor Destroy; override;
+    {:See @inherited}
+    function LibVersion: String; override;
+    {:See @inherited}
+    function LibName: String; override;
+    {:See @inherited}
+    procedure Assign(const Value: TCustomSSL); override;
+    {:See @inherited and @link(ssl_cryptlib) for more details.}
+    function Connect: boolean; override;
+    {:See @inherited and @link(ssl_cryptlib) for more details.}
+    function Accept: boolean; override;
+    {:See @inherited}
+    function Shutdown: boolean; override;
+    {:See @inherited}
+    function BiShutdown: boolean; override;
+    {:See @inherited}
+    function SendBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+    {:See @inherited}
+    function RecvBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+    {:See @inherited}
+    function WaitingData: Integer; override;
+    {:See @inherited}
+    function GetSSLVersion: string; override;
+    {:See @inherited}
+    function GetPeerSubject: string; override;
+    {:See @inherited}
+    function GetPeerIssuer: string; override;
+    {:See @inherited}
+    function GetPeerName: string; override;
+    {:See @inherited}
+    function GetPeerFingerprint: string; override;
+  published
+    {:name of certificate/key within PKCS#15 file. It can hold more then one
+     certificate/key and each certificate/key must have unique label within one file.}
+    property PrivateKeyLabel: string read FPrivateKeyLabel Write FPrivateKeyLabel;
+  end;
+
+implementation
+
+{==============================================================================}
+
+constructor TSSLCryptLib.Create(const Value: TTCPBlockSocket);
+begin
+  inherited Create(Value);
+  FcryptSession := CRYPT_SESSION(CRYPT_SESSION_NONE);
+  FPrivateKeyLabel := 'synapse';
+  FDelCert := false;
+end;
+
+destructor TSSLCryptLib.Destroy;
+begin
+  DeInit;
+  inherited Destroy;
+end;
+
+procedure TSSLCryptLib.Assign(const Value: TCustomSSL);
+begin
+  inherited Assign(Value);
+  if Value is TSSLCryptLib then
+  begin
+    FPrivateKeyLabel := TSSLCryptLib(Value).privatekeyLabel;
+  end;
+end;
+
+function TSSLCryptLib.GetString(const cryptHandle: CRYPT_HANDLE; const attributeType: CRYPT_ATTRIBUTE_TYPE): string;
+var
+  l: integer;
+begin
+  l := 0;
+  cryptGetAttributeString(cryptHandle, attributeType, nil, l);
+  setlength(Result, l);
+  cryptGetAttributeString(cryptHandle, attributeType, pointer(Result), l);
+  setlength(Result, l);
+end;
+
+function TSSLCryptLib.LibVersion: String;
+var
+  x: integer;
+begin
+  Result := GetString(CRYPT_UNUSED, CRYPT_OPTION_INFO_DESCRIPTION);
+  cryptGetAttribute(CRYPT_UNUSED, CRYPT_OPTION_INFO_MAJORVERSION, x);
+  Result := Result + ' v' + IntToStr(x);
+  cryptGetAttribute(CRYPT_UNUSED, CRYPT_OPTION_INFO_MINORVERSION, x);
+  Result := Result + '.' + IntToStr(x);
+  cryptGetAttribute(CRYPT_UNUSED, CRYPT_OPTION_INFO_STEPPING, x);
+  Result := Result + '.' + IntToStr(x);
+end;
+
+function TSSLCryptLib.LibName: String;
+begin
+  Result := 'ssl_cryptlib';
+end;
+
+function TSSLCryptLib.SSLCheck(Value: integer): Boolean;
+begin
+  Result := true;
+  FLastErrorDesc := '';
+  if Value = CRYPT_ERROR_COMPLETE then
+    Value := 0;
+  FLastError := Value;
+  if FLastError <> 0 then
+  begin
+    Result := False;
+    FLastErrorDesc := GetString(FCryptSession, CRYPT_ATTRIBUTE_INT_ERRORMESSAGE);
+  end;
+end;
+
+function TSSLCryptLib.CreateSelfSignedCert(Host: string): Boolean;
+var
+  privateKey: CRYPT_CONTEXT;
+  keyset: CRYPT_KEYSET;
+  cert: CRYPT_CERTIFICATE;
+  publicKey: CRYPT_CONTEXT;
+begin
+  Result := False;
+  if FPrivatekeyFile = '' then
+    FPrivatekeyFile := GetTempFile('', 'key');
+  cryptCreateContext(privateKey, CRYPT_UNUSED, CRYPT_ALGO_RSA);
+  cryptSetAttributeString(privateKey, CRYPT_CTXINFO_LABEL, Pointer(FPrivatekeyLabel),
+    Length(FPrivatekeyLabel));
+  cryptSetAttribute(privateKey, CRYPT_CTXINFO_KEYSIZE, 1024);
+  cryptGenerateKey(privateKey);
+  cryptKeysetOpen(keyset, CRYPT_UNUSED, CRYPT_KEYSET_FILE, PChar(FPrivatekeyFile), CRYPT_KEYOPT_CREATE);
+  FDelCert := True;
+  cryptAddPrivateKey(keyset, privateKey, PChar(FKeyPassword));
+  cryptCreateCert(cert, CRYPT_UNUSED, CRYPT_CERTTYPE_CERTIFICATE);
+  cryptSetAttribute(cert, CRYPT_CERTINFO_XYZZY, 1);
+  cryptGetPublicKey(keyset, publicKey, CRYPT_KEYID_NAME, PChar(FPrivatekeyLabel));
+  cryptSetAttribute(cert, CRYPT_CERTINFO_SUBJECTPUBLICKEYINFO, publicKey);
+  cryptSetAttributeString(cert, CRYPT_CERTINFO_COMMONNAME, Pointer(host), Length(host));
+  cryptSignCert(cert, privateKey);
+  cryptAddPublicKey(keyset, cert);
+  cryptKeysetClose(keyset);
+  cryptDestroyCert(cert);
+  cryptDestroyContext(privateKey);
+  cryptDestroyContext(publicKey);
+  Result := True;
+end;
+
+function TSSLCryptLib.PopAll: string;
+const
+  BufferMaxSize = 32768;
+var
+  Outbuffer: string;
+  WriteLen: integer;
+begin
+  Result := '';
+  repeat
+    setlength(outbuffer, BufferMaxSize);
+    Writelen := 0;
+    SSLCheck(CryptPopData(FCryptSession, @OutBuffer[1], BufferMaxSize, Writelen));
+    if FLastError <> 0 then
+      Break;
+    if WriteLen > 0 then
+    begin
+      setlength(outbuffer, WriteLen);
+      Result := Result + outbuffer;
+    end;
+  until WriteLen = 0;
+end;
+
+function TSSLCryptLib.Init(server:Boolean): Boolean;
+var
+  st: CRYPT_SESSION_TYPE;
+  keysetobj: CRYPT_KEYSET;
+  cryptContext: CRYPT_CONTEXT;
+  x: integer;
+begin
+  Result := False;
+  FLastErrorDesc := '';
+  FLastError := 0;
+  FDelCert := false;
+  FcryptSession := CRYPT_SESSION(CRYPT_SESSION_NONE);
+  if server then
+    case FSSLType of
+      LT_all, LT_SSLv3, LT_TLSv1, LT_TLSv1_1:
+        st := CRYPT_SESSION_SSL_SERVER;
+      LT_SSHv2:
+        st := CRYPT_SESSION_SSH_SERVER;
+    else
+      Exit;
+    end
+  else
+    case FSSLType of
+      LT_all, LT_SSLv3, LT_TLSv1, LT_TLSv1_1:
+        st := CRYPT_SESSION_SSL;
+      LT_SSHv2:
+        st := CRYPT_SESSION_SSH;
+    else
+      Exit;
+    end;
+  if not SSLCheck(cryptCreateSession(FcryptSession, CRYPT_UNUSED, st)) then
+    Exit;
+  x := -1;
+  case FSSLType of
+    LT_SSLv3:
+      x := 0;
+    LT_TLSv1:
+      x := 1;
+    LT_TLSv1_1:
+      x := 2;
+  end;
+  if x >= 0 then
+    if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_VERSION, x)) then
+      Exit;
+  if FUsername <> '' then
+  begin
+    cryptSetAttributeString(FcryptSession, CRYPT_SESSINFO_USERNAME,
+      Pointer(FUsername), Length(FUsername));
+    cryptSetAttributeString(FcryptSession, CRYPT_SESSINFO_PASSWORD,
+      Pointer(FPassword), Length(FPassword));
+  end;
+  if FSSLType = LT_SSHv2 then
+    if FSSHChannelType <> '' then
+    begin
+      cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_SSH_CHANNEL, CRYPT_UNUSED);
+      cryptSetAttributeString(FCryptSession, CRYPT_SESSINFO_SSH_CHANNEL_TYPE,
+        Pointer(FSSHChannelType), Length(FSSHChannelType));
+      if FSSHChannelArg1 <> '' then
+        cryptSetAttributeString(FCryptSession, CRYPT_SESSINFO_SSH_CHANNEL_ARG1,
+          Pointer(FSSHChannelArg1), Length(FSSHChannelArg1));
+      if FSSHChannelArg2 <> '' then
+        cryptSetAttributeString(FCryptSession, CRYPT_SESSINFO_SSH_CHANNEL_ARG2,
+          Pointer(FSSHChannelArg2), Length(FSSHChannelArg2));
+    end;
+
+
+  if server and (FPrivatekeyFile = '') then
+  begin
+    if FPrivatekeyLabel = '' then
+      FPrivatekeyLabel := 'synapse';
+    if FkeyPassword = '' then
+      FkeyPassword := 'synapse';
+    CreateSelfSignedcert(FSocket.ResolveIPToName(FSocket.GetRemoteSinIP));
+  end;
+
+  if (FPrivatekeyLabel <> '') and (FPrivatekeyFile <> '') then
+  begin
+    if not SSLCheck(cryptKeysetOpen(KeySetObj, CRYPT_UNUSED, CRYPT_KEYSET_FILE,
+      PChar(FPrivatekeyFile), CRYPT_KEYOPT_READONLY)) then
+      Exit;
+    try
+    if not SSLCheck(cryptGetPrivateKey(KeySetObj, cryptcontext, CRYPT_KEYID_NAME,
+      PChar(FPrivatekeyLabel), PChar(FKeyPassword))) then
+      Exit;
+    if not SSLCheck(cryptSetAttribute(FcryptSession, CRYPT_SESSINFO_PRIVATEKEY,
+      cryptcontext)) then
+      Exit;
+    finally
+      cryptKeysetClose(keySetObj);
+      cryptDestroyContext(cryptcontext);
+    end;
+  end;
+  if server and FVerifyCert then
+  begin
+    if not SSLCheck(cryptKeysetOpen(KeySetObj, CRYPT_UNUSED, CRYPT_KEYSET_FILE,
+      PChar(FCertCAFile), CRYPT_KEYOPT_READONLY)) then
+      Exit;
+    try
+    if not SSLCheck(cryptSetAttribute(FcryptSession, CRYPT_SESSINFO_KEYSET,
+      keySetObj)) then
+      Exit;
+    finally
+      cryptKeysetClose(keySetObj);
+    end;
+  end;
+  Result := true;
+end;
+
+function TSSLCryptLib.DeInit: Boolean;
+begin
+  Result := True;
+  if FcryptSession <> CRYPT_SESSION(CRYPT_SESSION_NONE) then
+    CryptDestroySession(FcryptSession);
+  FcryptSession := CRYPT_SESSION(CRYPT_SESSION_NONE);
+  FSSLEnabled := False;
+  if FDelCert then
+    Deletefile(FPrivatekeyFile);
+end;
+
+function TSSLCryptLib.Prepare(server:Boolean): Boolean;
+begin
+  Result := false;
+  DeInit;
+  if Init(server) then
+    Result := true
+  else
+    DeInit;
+end;
+
+function TSSLCryptLib.Connect: boolean;
+begin
+  Result := False;
+  if FSocket.Socket = INVALID_SOCKET then
+    Exit;
+  if Prepare(false) then
+  begin
+    if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_NETWORKSOCKET, FSocket.Socket)) then
+      Exit;
+    if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_ACTIVE, 1)) then
+      Exit;
+    FSSLEnabled := True;
+    Result := True;
+    FReadBuffer := '';
+  end;
+end;
+
+function TSSLCryptLib.Accept: boolean;
+begin
+  Result := False;
+  if FSocket.Socket = INVALID_SOCKET then
+    Exit;
+  if Prepare(true) then
+  begin
+    if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_NETWORKSOCKET, FSocket.Socket)) then
+      Exit;
+    if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_ACTIVE, 1)) then
+      Exit;
+    FSSLEnabled := True;
+    Result := True;
+    FReadBuffer := '';
+  end;
+end;
+
+function TSSLCryptLib.Shutdown: boolean;
+begin
+  Result := BiShutdown;
+end;
+
+function TSSLCryptLib.BiShutdown: boolean;
+begin
+  if FcryptSession <> CRYPT_SESSION(CRYPT_SESSION_NONE) then
+    cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_ACTIVE, 0);
+  DeInit;
+  FReadBuffer := '';
+  Result := True;
+end;
+
+function TSSLCryptLib.SendBuffer(Buffer: TMemory; Len: Integer): Integer;
+var
+  l: integer;
+begin
+  FLastError := 0;
+  FLastErrorDesc := '';
+  SSLCheck(cryptPushData(FCryptSession, Buffer, Len, L));
+  cryptFlushData(FcryptSession);
+  Result := l;
+end;
+
+function TSSLCryptLib.RecvBuffer(Buffer: TMemory; Len: Integer): Integer;
+var
+  l: integer;
+begin
+  FLastError := 0;
+  FLastErrorDesc := '';
+  if Length(FReadBuffer) = 0 then
+    FReadBuffer := PopAll;
+  if Len > Length(FReadBuffer) then
+    Len := Length(FReadBuffer);
+  Move(Pointer(FReadBuffer)^, buffer^, Len);
+  Delete(FReadBuffer, 1, Len);
+  Result := Len;
+end;
+
+function TSSLCryptLib.WaitingData: Integer;
+begin
+  Result := Length(FReadBuffer);
+end;
+
+function TSSLCryptLib.GetSSLVersion: string;
+var
+  x: integer;
+begin
+  Result := '';
+  if FcryptSession = CRYPT_SESSION(CRYPT_SESSION_NONE) then
+    Exit;
+  cryptGetAttribute(FCryptSession, CRYPT_SESSINFO_VERSION, x);
+  if FSSLType in [LT_SSLv3, LT_TLSv1, LT_TLSv1_1, LT_all] then
+    case x of
+      0:
+        Result := 'SSLv3';
+      1:
+        Result := 'TLSv1';
+      2:
+        Result := 'TLSv1.1';
+    end;
+  if FSSLType in [LT_SSHv2] then
+    case x of
+      0:
+        Result := 'SSHv1';
+      1:
+        Result := 'SSHv2';
+    end;
+end;
+
+function TSSLCryptLib.GetPeerSubject: string;
+var
+  cert: CRYPT_CERTIFICATE;
+begin
+  Result := '';
+  if FcryptSession = CRYPT_SESSION(CRYPT_SESSION_NONE) then
+    Exit;
+  cryptGetAttribute(FCryptSession, CRYPT_SESSINFO_RESPONSE, cert);
+  cryptSetAttribute(cert, CRYPT_CERTINFO_SUBJECTNAME, CRYPT_UNUSED);
+  Result := GetString(cert, CRYPT_CERTINFO_DN);
+  cryptDestroyCert(cert);
+end;
+
+function TSSLCryptLib.GetPeerName: string;
+var
+  cert: CRYPT_CERTIFICATE;
+begin
+  Result := '';
+  if FcryptSession = CRYPT_SESSION(CRYPT_SESSION_NONE) then
+    Exit;
+  cryptGetAttribute(FCryptSession, CRYPT_SESSINFO_RESPONSE, cert);
+  cryptSetAttribute(cert, CRYPT_CERTINFO_ISSUERNAME, CRYPT_UNUSED);
+  Result := GetString(cert, CRYPT_CERTINFO_COMMONNAME);
+  cryptDestroyCert(cert);
+end;
+
+function TSSLCryptLib.GetPeerIssuer: string;
+var
+  cert: CRYPT_CERTIFICATE;
+begin
+  Result := '';
+  if FcryptSession = CRYPT_SESSION(CRYPT_SESSION_NONE) then
+    Exit;
+  cryptGetAttribute(FCryptSession, CRYPT_SESSINFO_RESPONSE, cert);
+  cryptSetAttribute(cert, CRYPT_CERTINFO_ISSUERNAME, CRYPT_UNUSED);
+  Result := GetString(cert, CRYPT_CERTINFO_DN);
+  cryptDestroyCert(cert);
+end;
+
+function TSSLCryptLib.GetPeerFingerprint: string;
+var
+  cert: CRYPT_CERTIFICATE;
+begin
+  Result := '';
+  if FcryptSession = CRYPT_SESSION(CRYPT_SESSION_NONE) then
+    Exit;
+  cryptGetAttribute(FCryptSession, CRYPT_SESSINFO_RESPONSE, cert);
+  Result := GetString(cert, CRYPT_CERTINFO_FINGERPRINT);
+  Result := MD5(Result);
+  cryptDestroyCert(cert);
+end;
+
+{==============================================================================}
+
+initialization
+  if cryptInit = CRYPT_OK then
+    SSLImplementation := TSSLCryptLib;
+  cryptAddRandom(nil, CRYPT_RANDOM_SLOWPOLL);
+
+finalization
+  cryptEnd;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_openssl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_openssl.pas
new file mode 100644
index 0000000..b3659f5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_openssl.pas	
@@ -0,0 +1,821 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.000 |
+|==============================================================================|
+| Content: SSL support by OpenSSL                                              |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2005-2008.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+//requires OpenSSL libraries!
+
+{:@abstract(SSL plugin for OpenSSL)
+
+You need OpenSSL libraries version 0.9.7. It can work with 0.9.6 too, but
+application mysteriously crashing when you are using freePascal on Linux.
+Use Kylix on Linux is OK! If you have version 0.9.7 on Linux, then I not see
+any problems with FreePascal.
+
+OpenSSL libraries are loaded dynamicly - you not need OpenSSl librares even you
+compile your application with this unit. SSL just not working when you not have
+OpenSSL libraries.
+
+This plugin have limited support for .NET too! Because is not possible to use
+callbacks with CDECL calling convention under .NET, is not supported
+key/certificate passwords and multithread locking. :-(
+
+For handling keys and certificates you can use this properties:
+
+@link(TCustomSSL.CertificateFile) for PEM or ASN1 DER (cer) format. @br
+@link(TCustomSSL.Certificate) for ASN1 DER format only. @br
+@link(TCustomSSL.PrivateKeyFile) for PEM or ASN1 DER (key) format. @br
+@link(TCustomSSL.PrivateKey) for ASN1 DER format only. @br
+@link(TCustomSSL.CertCAFile) for PEM CA certificate bundle. @br
+@link(TCustomSSL.PFXFile) for PFX format. @br
+@link(TCustomSSL.PFX) for PFX format from binary string. @br
+
+This plugin is capable to create Ad-Hoc certificates. When you start SSL/TLS
+server without explicitly assigned key and certificate, then this plugin create
+Ad-Hoc key and certificate for each incomming connection by self. It slowdown
+accepting of new connections!
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit ssl_openssl;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synsock, synautil,
+{$IFDEF CIL}
+  System.Text,
+{$ENDIF}
+  ssl_openssl_lib;
+
+type
+  {:@abstract(class implementing OpenSSL SSL plugin.)
+   Instance of this class will be created for each @link(TTCPBlockSocket).
+   You not need to create instance of this class, all is done by Synapse itself!}
+  TSSLOpenSSL = class(TCustomSSL)
+  protected
+    FSsl: PSSL;
+    Fctx: PSSL_CTX;
+    function SSLCheck: Boolean;
+    function SetSslKeys: boolean;
+    function Init(server:Boolean): Boolean;
+    function DeInit: Boolean;
+    function Prepare(server:Boolean): Boolean;
+    function LoadPFX(pfxdata: ansistring): Boolean;
+    function CreateSelfSignedCert(Host: string): Boolean; override;
+  public
+    {:See @inherited}
+    constructor Create(const Value: TTCPBlockSocket); override;
+    destructor Destroy; override;
+    {:See @inherited}
+    function LibVersion: String; override;
+    {:See @inherited}
+    function LibName: String; override;
+    {:See @inherited and @link(ssl_cryptlib) for more details.}
+    function Connect: boolean; override;
+    {:See @inherited and @link(ssl_cryptlib) for more details.}
+    function Accept: boolean; override;
+    {:See @inherited}
+    function Shutdown: boolean; override;
+    {:See @inherited}
+    function BiShutdown: boolean; override;
+    {:See @inherited}
+    function SendBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+    {:See @inherited}
+    function RecvBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+    {:See @inherited}
+    function WaitingData: Integer; override;
+    {:See @inherited}
+    function GetSSLVersion: string; override;
+    {:See @inherited}
+    function GetPeerSubject: string; override;
+    {:See @inherited}
+    function GetPeerIssuer: string; override;
+    {:See @inherited}
+    function GetPeerName: string; override;
+    {:See @inherited}
+    function GetPeerFingerprint: string; override;
+    {:See @inherited}
+    function GetCertInfo: string; override;
+    {:See @inherited}
+    function GetCipherName: string; override;
+    {:See @inherited}
+    function GetCipherBits: integer; override;
+    {:See @inherited}
+    function GetCipherAlgBits: integer; override;
+    {:See @inherited}
+    function GetVerifyCert: integer; override;
+  end;
+
+implementation
+
+{==============================================================================}
+
+{$IFNDEF CIL}
+function PasswordCallback(buf:PAnsiChar; size:Integer; rwflag:Integer; userdata: Pointer):Integer; cdecl;
+var
+  Password: AnsiString;
+begin
+  Password := '';
+  if TCustomSSL(userdata) is TCustomSSL then
+    Password := TCustomSSL(userdata).KeyPassword;
+  if Length(Password) > (Size - 1) then
+    SetLength(Password, Size - 1);
+  Result := Length(Password);
+  StrLCopy(buf, PAnsiChar(Password + #0), Result + 1);
+end;
+{$ENDIF}
+
+{==============================================================================}
+
+constructor TSSLOpenSSL.Create(const Value: TTCPBlockSocket);
+begin
+  inherited Create(Value);
+  FCiphers := 'DEFAULT';
+  FSsl := nil;
+  Fctx := nil;
+end;
+
+destructor TSSLOpenSSL.Destroy;
+begin
+  DeInit;
+  inherited Destroy;
+end;
+
+function TSSLOpenSSL.LibVersion: String;
+begin
+  Result := SSLeayversion(0);
+end;
+
+function TSSLOpenSSL.LibName: String;
+begin
+  Result := 'ssl_openssl';
+end;
+
+function TSSLOpenSSL.SSLCheck: Boolean;
+var
+{$IFDEF CIL}
+  sb: StringBuilder;
+{$ENDIF}
+  s : AnsiString;
+begin
+  Result := true;
+  FLastErrorDesc := '';
+  FLastError := ErrGetError;
+  ErrClearError;
+  if FLastError <> 0 then
+  begin
+    Result := False;
+{$IFDEF CIL}
+    sb := StringBuilder.Create(256);
+    ErrErrorString(FLastError, sb, 256);
+    FLastErrorDesc := Trim(sb.ToString);
+{$ELSE}
+    s := StringOfChar(#0, 256);
+    ErrErrorString(FLastError, s, Length(s));
+    FLastErrorDesc := s;
+{$ENDIF}
+  end;
+end;
+
+function TSSLOpenSSL.CreateSelfSignedCert(Host: string): Boolean;
+var
+  pk: EVP_PKEY;
+  x: PX509;
+  rsa: PRSA;
+  t: PASN1_UTCTIME;
+  name: PX509_NAME;
+  b: PBIO;
+  xn, y: integer;
+  s: AnsiString;
+{$IFDEF CIL}
+  sb: StringBuilder;
+{$ENDIF}
+begin
+  Result := True;
+  pk := EvpPkeynew;
+  x := X509New;
+  try
+    rsa := RsaGenerateKey(1024, $10001, nil, nil);
+    EvpPkeyAssign(pk, EVP_PKEY_RSA, rsa);
+    X509SetVersion(x, 2);
+    Asn1IntegerSet(X509getSerialNumber(x), 0);
+    t := Asn1UtctimeNew;
+    try
+      X509GmtimeAdj(t, -60 * 60 *24);
+      X509SetNotBefore(x, t);
+      X509GmtimeAdj(t, 60 * 60 * 60 *24);
+      X509SetNotAfter(x, t);
+    finally
+      Asn1UtctimeFree(t);
+    end;
+    X509SetPubkey(x, pk);
+    Name := X509GetSubjectName(x);
+    X509NameAddEntryByTxt(Name, 'C', $1001, 'CZ', -1, -1, 0);
+    X509NameAddEntryByTxt(Name, 'CN', $1001, host, -1, -1, 0);
+    x509SetIssuerName(x, Name);
+    x509Sign(x, pk, EvpGetDigestByName('SHA1'));
+    b := BioNew(BioSMem);
+    try
+      i2dX509Bio(b, x);
+      xn := bioctrlpending(b);
+{$IFDEF CIL}
+      sb := StringBuilder.Create(xn);
+      y := bioread(b, sb, xn);
+      if y > 0 then
+      begin
+        sb.Length := y;
+        s := sb.ToString;
+      end;
+{$ELSE}
+      setlength(s, xn);
+      y := bioread(b, s, xn);
+      if y > 0 then
+        setlength(s, y);
+{$ENDIF}
+    finally
+      BioFreeAll(b);
+    end;
+    FCertificate := s;
+    b := BioNew(BioSMem);
+    try
+      i2dPrivatekeyBio(b, pk);
+      xn := bioctrlpending(b);
+{$IFDEF CIL}
+      sb := StringBuilder.Create(xn);
+      y := bioread(b, sb, xn);
+      if y > 0 then
+      begin
+        sb.Length := y;
+        s := sb.ToString;
+      end;
+{$ELSE}
+      setlength(s, xn);
+      y := bioread(b, s, xn);
+      if y > 0 then
+        setlength(s, y);
+{$ENDIF}
+    finally
+      BioFreeAll(b);
+    end;
+    FPrivatekey := s;
+  finally
+    X509free(x);
+    EvpPkeyFree(pk);
+  end;
+end;
+
+function TSSLOpenSSL.LoadPFX(pfxdata: Ansistring): Boolean;
+var
+  cert, pkey, ca: SslPtr;
+  b: PBIO;
+  p12: SslPtr;
+begin
+  Result := False;
+  b := BioNew(BioSMem);
+  try
+    BioWrite(b, pfxdata, Length(PfxData));
+    p12 := d2iPKCS12bio(b, nil);
+    if not Assigned(p12) then
+      Exit;
+    try
+      cert := nil;
+      pkey := nil;
+      ca := nil;
+      if PKCS12parse(p12, FKeyPassword, pkey, cert, ca) > 0 then
+        if SSLCTXusecertificate(Fctx, cert) > 0 then
+          if SSLCTXusePrivateKey(Fctx, pkey) > 0 then
+            Result := True;
+    finally
+      PKCS12free(p12);
+    end;
+  finally
+    BioFreeAll(b);
+  end;
+end;
+
+function TSSLOpenSSL.SetSslKeys: boolean;
+var
+  st: TFileStream;
+  s: string;
+begin
+  Result := False;
+  if not assigned(FCtx) then
+    Exit;
+  try
+    if FCertificateFile <> '' then
+      if SslCtxUseCertificateChainFile(FCtx, FCertificateFile) <> 1 then
+        if SslCtxUseCertificateFile(FCtx, FCertificateFile, SSL_FILETYPE_PEM) <> 1 then
+          if SslCtxUseCertificateFile(FCtx, FCertificateFile, SSL_FILETYPE_ASN1) <> 1 then
+            Exit;
+    if FCertificate <> '' then
+      if SslCtxUseCertificateASN1(FCtx, length(FCertificate), FCertificate) <> 1 then
+        Exit;
+    SSLCheck;
+    if FPrivateKeyFile <> '' then
+      if SslCtxUsePrivateKeyFile(FCtx, FPrivateKeyFile, SSL_FILETYPE_PEM) <> 1 then
+        if SslCtxUsePrivateKeyFile(FCtx, FPrivateKeyFile, SSL_FILETYPE_ASN1) <> 1 then
+          Exit;
+    if FPrivateKey <> '' then
+      if SslCtxUsePrivateKeyASN1(EVP_PKEY_RSA, FCtx, FPrivateKey, length(FPrivateKey)) <> 1 then
+        Exit;
+    SSLCheck;
+    if FCertCAFile <> '' then
+      if SslCtxLoadVerifyLocations(FCtx, FCertCAFile, '') <> 1 then
+        Exit;
+    if FPFXfile <> '' then
+    begin
+      try
+        st := TFileStream.Create(FPFXfile, fmOpenRead	 or fmShareDenyNone);
+        try
+          s := ReadStrFromStream(st, st.Size);
+        finally
+          st.Free;
+        end;
+        if not LoadPFX(s) then
+          Exit;
+      except
+        on Exception do
+          Exit;
+      end;
+    end;
+    if FPFX <> '' then
+      if not LoadPFX(FPfx) then
+        Exit;
+    SSLCheck;
+    Result := True;
+  finally
+    SSLCheck;
+  end;
+end;
+
+function TSSLOpenSSL.Init(server:Boolean): Boolean;
+var
+  s: AnsiString;
+begin
+  Result := False;
+  FLastErrorDesc := '';
+  FLastError := 0;
+  Fctx := nil;
+  case FSSLType of
+    LT_SSLv2:
+      Fctx := SslCtxNew(SslMethodV2);
+    LT_SSLv3:
+      Fctx := SslCtxNew(SslMethodV3);
+    LT_TLSv1:
+      Fctx := SslCtxNew(SslMethodTLSV1);
+    LT_all:
+      Fctx := SslCtxNew(SslMethodV23);
+  else
+    Exit;
+  end;
+  if Fctx = nil then
+  begin
+    SSLCheck;
+    Exit;
+  end
+  else
+  begin
+    s := FCiphers;
+    SslCtxSetCipherList(Fctx, s);
+    if FVerifyCert then
+      SslCtxSetVerify(FCtx, SSL_VERIFY_PEER, nil)
+    else
+      SslCtxSetVerify(FCtx, SSL_VERIFY_NONE, nil);
+{$IFNDEF CIL}
+    SslCtxSetDefaultPasswdCb(FCtx, @PasswordCallback);
+    SslCtxSetDefaultPasswdCbUserdata(FCtx, self);
+{$ENDIF}
+
+    if server and (FCertificateFile = '') and (FCertificate = '')
+      and (FPFXfile = '') and (FPFX = '') then
+    begin
+      CreateSelfSignedcert(FSocket.ResolveIPToName(FSocket.GetRemoteSinIP));
+    end;
+
+    if not SetSSLKeys then
+      Exit
+    else
+    begin
+      Fssl := nil;
+      Fssl := SslNew(Fctx);
+      if Fssl = nil then
+      begin
+        SSLCheck;
+        exit;
+      end;
+    end;
+  end;
+  Result := true;
+end;
+
+function TSSLOpenSSL.DeInit: Boolean;
+begin
+  Result := True;
+  if assigned (Fssl) then
+    sslfree(Fssl);
+  Fssl := nil;
+  if assigned (Fctx) then
+  begin
+    SslCtxFree(Fctx);
+    Fctx := nil;
+    ErrRemoveState(0);
+  end;
+  FSSLEnabled := False;
+end;
+
+function TSSLOpenSSL.Prepare(server:Boolean): Boolean;
+begin
+  Result := false;
+  DeInit;
+  if Init(server) then
+    Result := true
+  else
+    DeInit;
+end;
+
+function TSSLOpenSSL.Connect: boolean;
+var
+  x: integer;
+begin
+  Result := False;
+  if FSocket.Socket = INVALID_SOCKET then
+    Exit;
+  if Prepare(False) then
+  begin
+{$IFDEF CIL}
+    if sslsetfd(FSsl, FSocket.Socket.Handle.ToInt32) < 1 then
+{$ELSE}
+    if sslsetfd(FSsl, FSocket.Socket) < 1 then
+{$ENDIF}
+    begin
+      SSLCheck;
+      Exit;
+    end;
+    x := sslconnect(FSsl);
+    if x < 1 then
+    begin
+      SSLcheck;
+      Exit;
+    end;
+  if FverifyCert then
+    if GetVerifyCert <> 0 then
+      Exit;
+    FSSLEnabled := True;
+    Result := True;
+  end;
+end;
+
+function TSSLOpenSSL.Accept: boolean;
+var
+  x: integer;
+begin
+  Result := False;
+  if FSocket.Socket = INVALID_SOCKET then
+    Exit;
+  if Prepare(True) then
+  begin
+{$IFDEF CIL}
+    if sslsetfd(FSsl, FSocket.Socket.Handle.ToInt32) < 1 then
+{$ELSE}
+    if sslsetfd(FSsl, FSocket.Socket) < 1 then
+{$ENDIF}
+    begin
+      SSLCheck;
+      Exit;
+    end;
+    x := sslAccept(FSsl);
+    if x < 1 then
+    begin
+      SSLcheck;
+      Exit;
+    end;
+    FSSLEnabled := True;
+    Result := True;
+  end;
+end;
+
+function TSSLOpenSSL.Shutdown: boolean;
+begin
+  if assigned(FSsl) then
+    sslshutdown(FSsl);
+  DeInit;
+  Result := True;
+end;
+
+function TSSLOpenSSL.BiShutdown: boolean;
+var
+  x: integer;
+begin
+  if assigned(FSsl) then
+  begin
+    x := sslshutdown(FSsl);
+    if x = 0 then
+    begin
+      Synsock.Shutdown(FSocket.Socket, 1);
+      sslshutdown(FSsl);
+    end;
+  end;
+  DeInit;
+  Result := True;
+end;
+
+function TSSLOpenSSL.SendBuffer(Buffer: TMemory; Len: Integer): Integer;
+var
+  err: integer;
+{$IFDEF CIL}
+  s: ansistring;
+{$ENDIF}
+begin
+  FLastError := 0;
+  FLastErrorDesc := '';
+  repeat
+{$IFDEF CIL}
+    s := StringOf(Buffer);
+    Result := SslWrite(FSsl, s, Len);
+{$ELSE}
+    Result := SslWrite(FSsl, Buffer , Len);
+{$ENDIF}
+    err := SslGetError(FSsl, Result);
+  until (err <> SSL_ERROR_WANT_READ) and (err <> SSL_ERROR_WANT_WRITE);
+  if err = SSL_ERROR_ZERO_RETURN then
+    Result := 0
+  else
+    if (err <> 0) then
+      FLastError := err;
+end;
+
+function TSSLOpenSSL.RecvBuffer(Buffer: TMemory; Len: Integer): Integer;
+var
+  err: integer;
+{$IFDEF CIL}
+  sb: stringbuilder;
+  s: ansistring;
+{$ENDIF}
+begin
+  FLastError := 0;
+  FLastErrorDesc := '';
+  repeat
+{$IFDEF CIL}
+    sb := StringBuilder.Create(Len);
+    Result := SslRead(FSsl, sb, Len);
+    if Result > 0 then
+    begin
+      sb.Length := Result;
+      s := sb.ToString;
+      System.Array.Copy(BytesOf(s), Buffer, length(s));
+    end;
+{$ELSE}
+    Result := SslRead(FSsl, Buffer , Len);
+{$ENDIF}
+    err := SslGetError(FSsl, Result);
+  until (err <> SSL_ERROR_WANT_READ) and (err <> SSL_ERROR_WANT_WRITE);
+  if err = SSL_ERROR_ZERO_RETURN then
+    Result := 0
+  else
+    if (err <> 0) then
+      FLastError := err;
+end;
+
+function TSSLOpenSSL.WaitingData: Integer;
+begin
+  Result := sslpending(Fssl);
+end;
+
+function TSSLOpenSSL.GetSSLVersion: string;
+begin
+  if not assigned(FSsl) then
+    Result := ''
+  else
+    Result := SSlGetVersion(FSsl);
+end;
+
+function TSSLOpenSSL.GetPeerSubject: string;
+var
+  cert: PX509;
+  s: ansistring;
+{$IFDEF CIL}
+  sb: StringBuilder;
+{$ENDIF}
+begin
+  if not assigned(FSsl) then
+  begin
+    Result := '';
+    Exit;
+  end;
+  cert := SSLGetPeerCertificate(Fssl);
+  if not assigned(cert) then
+  begin
+    Result := '';
+    Exit;
+  end;
+{$IFDEF CIL}
+  sb := StringBuilder.Create(4096);
+  Result := X509NameOneline(X509GetSubjectName(cert), sb, 4096);
+{$ELSE}
+  setlength(s, 4096);
+  Result := X509NameOneline(X509GetSubjectName(cert), s, Length(s));
+{$ENDIF}
+  X509Free(cert);
+end;
+
+function TSSLOpenSSL.GetPeerName: string;
+var
+  s: ansistring;
+begin
+  s := GetPeerSubject;
+  s := SeparateRight(s, '/CN=');
+  Result := Trim(SeparateLeft(s, '/'));
+end;
+
+function TSSLOpenSSL.GetPeerIssuer: string;
+var
+  cert: PX509;
+  s: ansistring;
+{$IFDEF CIL}
+  sb: StringBuilder;
+{$ENDIF}
+begin
+  if not assigned(FSsl) then
+  begin
+    Result := '';
+    Exit;
+  end;
+  cert := SSLGetPeerCertificate(Fssl);
+  if not assigned(cert) then
+  begin
+    Result := '';
+    Exit;
+  end;
+{$IFDEF CIL}
+  sb := StringBuilder.Create(4096);
+  Result := X509NameOneline(X509GetIssuerName(cert), sb, 4096);
+{$ELSE}
+  setlength(s, 4096);
+  Result := X509NameOneline(X509GetIssuerName(cert), s, Length(s));
+{$ENDIF}
+  X509Free(cert);
+end;
+
+function TSSLOpenSSL.GetPeerFingerprint: string;
+var
+  cert: PX509;
+  x: integer;
+{$IFDEF CIL}
+  sb: StringBuilder;
+{$ENDIF}
+begin
+  if not assigned(FSsl) then
+  begin
+    Result := '';
+    Exit;
+  end;
+  cert := SSLGetPeerCertificate(Fssl);
+  if not assigned(cert) then
+  begin
+    Result := '';
+    Exit;
+  end;
+{$IFDEF CIL}
+  sb := StringBuilder.Create(EVP_MAX_MD_SIZE);
+  X509Digest(cert, EvpGetDigestByName('MD5'), sb, x);
+  sb.Length := x;
+  Result := sb.ToString;
+{$ELSE}
+  setlength(Result, EVP_MAX_MD_SIZE);
+  X509Digest(cert, EvpGetDigestByName('MD5'), Result, x);
+  SetLength(Result, x);
+{$ENDIF}
+  X509Free(cert);
+end;
+
+function TSSLOpenSSL.GetCertInfo: string;
+var
+  cert: PX509;
+  x, y: integer;
+  b: PBIO;
+  s: AnsiString;
+{$IFDEF CIL}
+  sb: stringbuilder;
+{$ENDIF}
+begin
+  if not assigned(FSsl) then
+  begin
+    Result := '';
+    Exit;
+  end;
+  cert := SSLGetPeerCertificate(Fssl);
+  if not assigned(cert) then
+  begin
+    Result := '';
+    Exit;
+  end;
+  b := BioNew(BioSMem);
+  try
+    X509Print(b, cert);
+    x := bioctrlpending(b);
+{$IFDEF CIL}
+    sb := StringBuilder.Create(x);
+    y := bioread(b, sb, x);
+    if y > 0 then
+    begin
+      sb.Length := y;
+      s := sb.ToString;
+    end;
+{$ELSE}
+    setlength(s,x);
+    y := bioread(b,s,x);
+    if y > 0 then
+      setlength(s, y);
+{$ENDIF}
+    Result := ReplaceString(s, LF, CRLF);
+  finally
+    BioFreeAll(b);
+  end;
+end;
+
+function TSSLOpenSSL.GetCipherName: string;
+begin
+  if not assigned(FSsl) then
+    Result := ''
+  else
+    Result := SslCipherGetName(SslGetCurrentCipher(FSsl));
+end;
+
+function TSSLOpenSSL.GetCipherBits: integer;
+var
+  x: integer;
+begin
+  if not assigned(FSsl) then
+    Result := 0
+  else
+    Result := SSLCipherGetBits(SslGetCurrentCipher(FSsl), x);
+end;
+
+function TSSLOpenSSL.GetCipherAlgBits: integer;
+begin
+  if not assigned(FSsl) then
+    Result := 0
+  else
+    SSLCipherGetBits(SslGetCurrentCipher(FSsl), Result);
+end;
+
+function TSSLOpenSSL.GetVerifyCert: integer;
+begin
+  if not assigned(FSsl) then
+    Result := 1
+  else
+    Result := SslGetVerifyResult(FSsl);
+end;
+
+{==============================================================================}
+
+initialization
+  if InitSSLInterface then
+    SSLImplementation := TSSLOpenSSL;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_openssl_lib.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_openssl_lib.pas
new file mode 100644
index 0000000..ff755c0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_openssl_lib.pas	
@@ -0,0 +1,2018 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 003.005.000 |
+|==============================================================================|
+| Content: SSL support by OpenSSL                                              |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2002-2008.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{
+Special thanks to Gregor Ibic <gregor.ibic@intelicom.si>
+ (Intelicom d.o.o., http://www.intelicom.si)
+ for good inspiration about begin with SSL programming.
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+{$IFDEF VER125}
+  {$DEFINE BCB}
+{$ENDIF}
+{$IFDEF BCB}
+  {$ObjExportAll On}
+  (*$HPPEMIT 'namespace ssl_openssl_lib { using System::Shortint; }' *)
+{$ENDIF}
+
+{:@abstract(OpenSSL support)
+
+This unit is Pascal interface to OpenSSL library (used by @link(ssl_openssl) unit).
+OpenSSL is loaded dynamicly on-demand. If this library is not found in system,
+requested OpenSSL function just return errorcode.
+}
+unit ssl_openssl_lib;
+
+interface
+
+uses
+{$IFDEF CIL}
+  System.Runtime.InteropServices,
+  System.Text,
+{$ENDIF}
+  Classes,
+  synafpc,
+{$IFNDEF WIN32}
+  Libc, SysUtils;
+{$ELSE}
+  Windows;
+{$ENDIF}
+
+
+{$IFDEF CIL}
+const
+  {$IFDEF LINUX}
+  DLLSSLName = 'libssl.so';
+  DLLUtilName = 'libcrypto.so';
+  {$ELSE}
+  DLLSSLName = 'ssleay32.dll';
+  DLLUtilName = 'libeay32.dll';
+  {$ENDIF}
+{$ELSE}
+var
+  {$IFNDEF WIN32}
+  DLLSSLName: string = 'libssl.so';
+  DLLUtilName: string = 'libcrypto.so';
+  {$ELSE}
+  DLLSSLName: string = 'ssleay32.dll';
+  DLLSSLName2: string = 'libssl32.dll';
+  DLLUtilName: string = 'libeay32.dll';
+  {$ENDIF}
+{$ENDIF}
+
+type
+{$IFDEF CIL}
+  SslPtr = IntPtr;
+{$ELSE}
+  SslPtr = Pointer;
+{$ENDIF}
+  PSslPtr = ^SslPtr;
+  PSSL_CTX = SslPtr;
+  PSSL = SslPtr;
+  PSSL_METHOD = SslPtr;
+  PX509 = SslPtr;
+  PX509_NAME = SslPtr;
+  PEVP_MD	= SslPtr;
+  PInteger = ^Integer;
+  PBIO_METHOD = SslPtr;
+  PBIO = SslPtr;
+  EVP_PKEY = SslPtr;
+  PRSA = SslPtr;
+  PASN1_UTCTIME = SslPtr;
+  PASN1_INTEGER = SslPtr;
+  PPasswdCb = SslPtr;
+  PFunction = procedure;
+
+  DES_cblock = array[0..7] of Byte;
+  PDES_cblock = ^DES_cblock;
+  des_ks_struct = packed record
+    ks: DES_cblock;
+    weak_key: Integer;
+  end;
+  des_key_schedule = array[1..16] of des_ks_struct;
+
+const
+  EVP_MAX_MD_SIZE = 16 + 20;
+
+  SSL_ERROR_NONE = 0;
+  SSL_ERROR_SSL = 1;
+  SSL_ERROR_WANT_READ = 2;
+  SSL_ERROR_WANT_WRITE = 3;
+  SSL_ERROR_WANT_X509_LOOKUP = 4;
+  SSL_ERROR_SYSCALL = 5; //look at error stack/return value/errno
+  SSL_ERROR_ZERO_RETURN = 6;
+  SSL_ERROR_WANT_CONNECT = 7;
+  SSL_ERROR_WANT_ACCEPT = 8;
+
+  SSL_OP_NO_SSLv2 = $01000000;
+  SSL_OP_NO_SSLv3 = $02000000;
+  SSL_OP_NO_TLSv1 = $04000000;
+  SSL_OP_ALL = $000FFFFF;
+  SSL_VERIFY_NONE = $00;
+  SSL_VERIFY_PEER = $01;
+
+  OPENSSL_DES_DECRYPT = 0;
+  OPENSSL_DES_ENCRYPT = 1;
+
+  X509_V_OK =	0;
+  X509_V_ILLEGAL = 1;
+  X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT = 2;
+  X509_V_ERR_UNABLE_TO_GET_CRL = 3;
+  X509_V_ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE = 4;
+  X509_V_ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE = 5;
+  X509_V_ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY = 6;
+  X509_V_ERR_CERT_SIGNATURE_FAILURE = 7;
+  X509_V_ERR_CRL_SIGNATURE_FAILURE = 8;
+  X509_V_ERR_CERT_NOT_YET_VALID = 9;
+  X509_V_ERR_CERT_HAS_EXPIRED = 10;
+  X509_V_ERR_CRL_NOT_YET_VALID = 11;
+  X509_V_ERR_CRL_HAS_EXPIRED = 12;
+  X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD = 13;
+  X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD = 14;
+  X509_V_ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD = 15;
+  X509_V_ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD = 16;
+  X509_V_ERR_OUT_OF_MEM = 17;
+  X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT = 18;
+  X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN = 19;
+  X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY = 20;
+  X509_V_ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE = 21;
+  X509_V_ERR_CERT_CHAIN_TOO_LONG = 22;
+  X509_V_ERR_CERT_REVOKED = 23;
+  X509_V_ERR_INVALID_CA = 24;
+  X509_V_ERR_PATH_LENGTH_EXCEEDED = 25;
+  X509_V_ERR_INVALID_PURPOSE = 26;
+  X509_V_ERR_CERT_UNTRUSTED = 27;
+  X509_V_ERR_CERT_REJECTED = 28;
+  //These are 'informational' when looking for issuer cert
+  X509_V_ERR_SUBJECT_ISSUER_MISMATCH = 29;
+  X509_V_ERR_AKID_SKID_MISMATCH = 30;
+  X509_V_ERR_AKID_ISSUER_SERIAL_MISMATCH = 31;
+  X509_V_ERR_KEYUSAGE_NO_CERTSIGN = 32;
+  X509_V_ERR_UNABLE_TO_GET_CRL_ISSUER = 33;
+  X509_V_ERR_UNHANDLED_CRITICAL_EXTENSION = 34;
+  //The application is not happy
+  X509_V_ERR_APPLICATION_VERIFICATION = 50;
+
+  SSL_FILETYPE_ASN1	= 2;
+  SSL_FILETYPE_PEM = 1;
+  EVP_PKEY_RSA = 6;
+
+var
+  SSLLibHandle: TLibHandle = 0;
+  SSLUtilHandle: TLibHandle = 0;
+  SSLLibFile: string = '';
+  SSLUtilFile: string = '';
+
+{$IFDEF CIL}
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_get_error')]
+    function SslGetError(s: PSSL; ret_code: Integer): Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_library_init')]
+    function SslLibraryInit: Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_load_error_strings')]
+    procedure SslLoadErrorStrings; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_set_cipher_list')]
+    function SslCtxSetCipherList(arg0: PSSL_CTX; var str: String): Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_new')]
+    function SslCtxNew(meth: PSSL_METHOD):PSSL_CTX;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_free')]
+    procedure SslCtxFree (arg0: PSSL_CTX);   external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_set_fd')]
+    function SslSetFd(s: PSSL; fd: Integer):Integer;    external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSLv2_method')]
+    function SslMethodV2 : PSSL_METHOD; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSLv3_method')]
+    function SslMethodV3 : PSSL_METHOD;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'TLSv1_method')]
+    function SslMethodTLSV1:PSSL_METHOD;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSLv23_method')]
+    function SslMethodV23 : PSSL_METHOD; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_use_PrivateKey')]
+    function SslCtxUsePrivateKey(ctx: PSSL_CTX; pkey: SslPtr):Integer;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_use_PrivateKey_ASN1')]
+    function SslCtxUsePrivateKeyASN1(pk: integer; ctx: PSSL_CTX; d: String; len: integer):Integer;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_use_RSAPrivateKey_file')]
+    function SslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: String; _type: Integer):Integer;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_use_certificate')]
+    function SslCtxUseCertificate(ctx: PSSL_CTX; x: SslPtr):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_use_certificate_ASN1')]
+    function SslCtxUseCertificateASN1(ctx: PSSL_CTX; len: integer; d: String):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_use_certificate_file')]
+    function SslCtxUseCertificateFile(ctx: PSSL_CTX; const _file: String; _type: Integer):Integer;external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_use_certificate_chain_file')]
+    function SslCtxUseCertificateChainFile(ctx: PSSL_CTX; const _file: String):Integer;external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_check_private_key')]
+    function SslCtxCheckPrivateKeyFile(ctx: PSSL_CTX):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_set_default_passwd_cb')]
+    procedure SslCtxSetDefaultPasswdCb(ctx: PSSL_CTX; cb: PPasswdCb); external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_set_default_passwd_cb_userdata')]
+    procedure SslCtxSetDefaultPasswdCbUserdata(ctx: PSSL_CTX; u: IntPtr); external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_load_verify_locations')]
+    function SslCtxLoadVerifyLocations(ctx: PSSL_CTX; CAfile: string; CApath: String):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_new')]
+    function SslNew(ctx: PSSL_CTX):PSSL;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_free')]
+    procedure SslFree(ssl: PSSL); external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_accept')]
+    function SslAccept(ssl: PSSL):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_connect')]
+    function SslConnect(ssl: PSSL):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_shutdown')]
+    function SslShutdown(s: PSSL):Integer;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_read')]
+    function SslRead(ssl: PSSL; buf: StringBuilder; num: Integer):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_peek')]
+    function SslPeek(ssl: PSSL; buf: StringBuilder; num: Integer):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_write')]
+    function SslWrite(ssl: PSSL; buf: String; num: Integer):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_pending')]
+    function SslPending(ssl: PSSL):Integer; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_get_version')]
+    function SslGetVersion(ssl: PSSL):String; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_get_peer_certificate')]
+    function SslGetPeerCertificate(s: PSSL):PX509; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CTX_set_verify')]
+    procedure SslCtxSetVerify(ctx: PSSL_CTX; mode: Integer; arg2: PFunction); external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_get_current_cipher')]
+    function SSLGetCurrentCipher(s: PSSL): SslPtr;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CIPHER_get_name')]
+    function SSLCipherGetName(c: SslPtr):String; external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_CIPHER_get_bits')]
+    function SSLCipherGetBits(c: SslPtr; var alg_bits: Integer):Integer;  external;
+
+  [DllImport(DLLSSLName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'SSL_get_verify_result')]
+    function SSLGetVerifyResult(ssl: PSSL):Integer;external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'X509_new')]
+    function X509New: PX509; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'X509_free')]
+    procedure X509Free(x: PX509); external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'X509_NAME_oneline')]
+    function X509NameOneline(a: PX509_NAME; buf: StringBuilder; size: Integer): String; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'X509_get_subject_name')]
+    function X509GetSubjectName(a: PX509):PX509_NAME; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'X509_get_issuer_name')]
+    function X509GetIssuerName(a: PX509):PX509_NAME;  external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'X509_NAME_hash')]
+    function X509NameHash(x: PX509_NAME):Cardinal;   external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'X509_digest')]
+    function X509Digest (data: PX509; _type: PEVP_MD; md: StringBuilder; var len: Integer):Integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_set_version')]
+    function X509SetVersion(x: PX509; version: integer): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_set_pubkey')]
+    function X509SetPubkey(x: PX509; pkey: EVP_PKEY): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_set_issuer_name')]
+    function X509SetIssuerName(x: PX509; name: PX509_NAME): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_NAME_add_entry_by_txt')]
+    function X509NameAddEntryByTxt(name: PX509_NAME; field: string; _type: integer;
+      bytes: string; len, loc, _set: integer): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_sign')]
+    function X509Sign(x: PX509; pkey: EVP_PKEY; const md: PEVP_MD): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_print')]
+    function X509print(b: PBIO; a: PX509): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_gmtime_adj')]
+    function X509GmtimeAdj(s: PASN1_UTCTIME; adj: integer): PASN1_UTCTIME; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_set_notBefore')]
+    function X509SetNotBefore(x: PX509; tm: PASN1_UTCTIME): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_set_notAfter')]
+    function X509SetNotAfter(x: PX509; tm: PASN1_UTCTIME): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'X509_get_serialNumber')]
+    function X509GetSerialNumber(x: PX509): PASN1_INTEGER; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'EVP_PKEY_new')]
+    function EvpPkeyNew: EVP_PKEY; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'EVP_PKEY_free')]
+    procedure EvpPkeyFree(pk: EVP_PKEY); external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'EVP_PKEY_assign')]
+    function EvpPkeyAssign(pkey: EVP_PKEY; _type: integer; key: Prsa): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'EVP_get_digestbyname')]
+    function EvpGetDigestByName(Name: String): PEVP_MD; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'EVP_cleanup')]
+    procedure EVPcleanup; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'SSLeay_version')]
+    function SSLeayversion(t: integer): String; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'ERR_error_string_n')]
+    procedure ErrErrorString(e: integer; buf: StringBuilder; len: integer); external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'ERR_get_error')]
+    function ErrGetError: integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'ERR_clear_error')]
+    procedure ErrClearError; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'ERR_free_strings')]
+    procedure ErrFreeStrings; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'ERR_remove_state')]
+    procedure ErrRemoveState(pid: integer); external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'OPENSSL_add_all_algorithms_noconf')]
+    procedure OPENSSLaddallalgorithms; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'CRYPTO_cleanup_all_ex_data')]
+    procedure CRYPTOcleanupAllExData; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'RAND_screen')]
+    procedure RandScreen; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'BIO_new')]
+    function BioNew(b: PBIO_METHOD): PBIO; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'BIO_free_all')]
+    procedure BioFreeAll(b: PBIO); external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'BIO_s_mem')]
+    function BioSMem: PBIO_METHOD; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'BIO_ctrl_pending')]
+    function BioCtrlPending(b: PBIO): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'BIO_read')]
+    function BioRead(b: PBIO; Buf: StringBuilder; Len: integer): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'BIO_write')]
+    function BioWrite(b: PBIO; var Buf: String; Len: integer): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'd2i_PKCS12_bio')]
+    function d2iPKCS12bio(b:PBIO; Pkcs12: SslPtr): SslPtr; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'PKCS12_parse')]
+    function PKCS12parse(p12: SslPtr; pass: string; var pkey, cert, ca: SslPtr): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'PKCS12_free')]
+    procedure PKCS12free(p12: SslPtr); external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'RSA_generate_key')]
+    function RsaGenerateKey(bits, e: integer; callback: PFunction; cb_arg: SslPtr): PRSA; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'ASN1_UTCTIME_new')]
+    function Asn1UtctimeNew: PASN1_UTCTIME; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'ASN1_UTCTIME_free')]
+    procedure Asn1UtctimeFree(a: PASN1_UTCTIME); external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'ASN1_INTEGER_set')]
+    function Asn1IntegerSet(a: PASN1_INTEGER; v: integer): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'i2d_X509_bio')]
+    function i2dX509bio(b: PBIO; x: PX509): integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint =  'i2d_PrivateKey_bio')]
+    function i2dPrivateKeyBio(b: PBIO; pkey: EVP_PKEY): integer; external;
+
+  // 3DES functions
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'DES_set_odd_parity')]
+    procedure DESsetoddparity(Key: des_cblock); external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'DES_set_key_checked')]
+    function DESsetkeychecked(key: des_cblock; schedule: des_key_schedule): Integer; external;
+
+  [DllImport(DLLUtilName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'DES_ecb_encrypt')]
+    procedure DESecbencrypt(Input: des_cblock; output: des_cblock; ks: des_key_schedule; enc: Integer); external;
+
+{$ELSE}
+// libssl.dll
+  function SslGetError(s: PSSL; ret_code: Integer):Integer;
+  function SslLibraryInit:Integer;
+  procedure SslLoadErrorStrings;
+//  function SslCtxSetCipherList(arg0: PSSL_CTX; str: PChar):Integer;
+  function SslCtxSetCipherList(arg0: PSSL_CTX; var str: AnsiString):Integer;
+  function SslCtxNew(meth: PSSL_METHOD):PSSL_CTX;
+  procedure SslCtxFree(arg0: PSSL_CTX);
+  function SslSetFd(s: PSSL; fd: Integer):Integer;
+  function SslMethodV2:PSSL_METHOD;
+  function SslMethodV3:PSSL_METHOD;
+  function SslMethodTLSV1:PSSL_METHOD;
+  function SslMethodV23:PSSL_METHOD;
+  function SslCtxUsePrivateKey(ctx: PSSL_CTX; pkey: SslPtr):Integer;
+  function SslCtxUsePrivateKeyASN1(pk: integer; ctx: PSSL_CTX; d: AnsiString; len: integer):Integer;
+//  function SslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: PChar; _type: Integer):Integer;
+  function SslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: AnsiString; _type: Integer):Integer;
+  function SslCtxUseCertificate(ctx: PSSL_CTX; x: SslPtr):Integer;
+  function SslCtxUseCertificateASN1(ctx: PSSL_CTX; len: integer; d: AnsiString):Integer;
+  function SslCtxUseCertificateFile(ctx: PSSL_CTX; const _file: AnsiString; _type: Integer):Integer;
+//  function SslCtxUseCertificateChainFile(ctx: PSSL_CTX; const _file: PChar):Integer;
+  function SslCtxUseCertificateChainFile(ctx: PSSL_CTX; const _file: AnsiString):Integer;
+  function SslCtxCheckPrivateKeyFile(ctx: PSSL_CTX):Integer;
+  procedure SslCtxSetDefaultPasswdCb(ctx: PSSL_CTX; cb: PPasswdCb);
+  procedure SslCtxSetDefaultPasswdCbUserdata(ctx: PSSL_CTX; u: SslPtr);
+//  function SslCtxLoadVerifyLocations(ctx: PSSL_CTX; const CAfile: PChar; const CApath: PChar):Integer;
+  function SslCtxLoadVerifyLocations(ctx: PSSL_CTX; const CAfile: AnsiString; const CApath: AnsiString):Integer;
+  function SslNew(ctx: PSSL_CTX):PSSL;
+  procedure SslFree(ssl: PSSL);
+  function SslAccept(ssl: PSSL):Integer;
+  function SslConnect(ssl: PSSL):Integer;
+  function SslShutdown(ssl: PSSL):Integer;
+  function SslRead(ssl: PSSL; buf: SslPtr; num: Integer):Integer;
+  function SslPeek(ssl: PSSL; buf: SslPtr; num: Integer):Integer;
+  function SslWrite(ssl: PSSL; buf: SslPtr; num: Integer):Integer;
+  function SslPending(ssl: PSSL):Integer;
+  function SslGetVersion(ssl: PSSL):AnsiString;
+  function SslGetPeerCertificate(ssl: PSSL):PX509;
+  procedure SslCtxSetVerify(ctx: PSSL_CTX; mode: Integer; arg2: PFunction);
+  function SSLGetCurrentCipher(s: PSSL):SslPtr;
+  function SSLCipherGetName(c: SslPtr): AnsiString;
+  function SSLCipherGetBits(c: SslPtr; var alg_bits: Integer):Integer;
+  function SSLGetVerifyResult(ssl: PSSL):Integer;
+
+// libeay.dll
+  function X509New: PX509;
+  procedure X509Free(x: PX509);
+  function X509NameOneline(a: PX509_NAME; var buf: AnsiString; size: Integer):AnsiString;
+  function X509GetSubjectName(a: PX509):PX509_NAME;
+  function X509GetIssuerName(a: PX509):PX509_NAME;
+  function X509NameHash(x: PX509_NAME):Cardinal;
+//  function SslX509Digest(data: PX509; _type: PEVP_MD; md: PChar; len: PInteger):Integer;
+  function X509Digest(data: PX509; _type: PEVP_MD; md: AnsiString; var len: Integer):Integer;
+  function X509print(b: PBIO; a: PX509): integer;
+  function X509SetVersion(x: PX509; version: integer): integer;
+  function X509SetPubkey(x: PX509; pkey: EVP_PKEY): integer;
+  function X509SetIssuerName(x: PX509; name: PX509_NAME): integer;
+  function X509NameAddEntryByTxt(name: PX509_NAME; field: Ansistring; _type: integer;
+    bytes: Ansistring; len, loc, _set: integer): integer;
+  function X509Sign(x: PX509; pkey: EVP_PKEY; const md: PEVP_MD): integer;
+  function X509GmtimeAdj(s: PASN1_UTCTIME; adj: integer): PASN1_UTCTIME;
+  function X509SetNotBefore(x: PX509; tm: PASN1_UTCTIME): integer;
+  function X509SetNotAfter(x: PX509; tm: PASN1_UTCTIME): integer;
+  function X509GetSerialNumber(x: PX509): PASN1_INTEGER;
+  function EvpPkeyNew: EVP_PKEY;
+  procedure EvpPkeyFree(pk: EVP_PKEY);
+  function EvpPkeyAssign(pkey: EVP_PKEY; _type: integer; key: Prsa): integer;
+  function EvpGetDigestByName(Name: AnsiString): PEVP_MD;
+  procedure EVPcleanup;
+//  function ErrErrorString(e: integer; buf: PChar): PChar;
+  function SSLeayversion(t: integer): Ansistring;
+  procedure ErrErrorString(e: integer; var buf: Ansistring; len: integer);
+  function ErrGetError: integer;
+  procedure ErrClearError;
+  procedure ErrFreeStrings;
+  procedure ErrRemoveState(pid: integer);
+  procedure OPENSSLaddallalgorithms;
+  procedure CRYPTOcleanupAllExData;
+  procedure RandScreen;
+  function BioNew(b: PBIO_METHOD): PBIO;
+  procedure BioFreeAll(b: PBIO);
+  function BioSMem: PBIO_METHOD;
+  function BioCtrlPending(b: PBIO): integer;
+  function BioRead(b: PBIO; var Buf: AnsiString; Len: integer): integer;
+  function BioWrite(b: PBIO; Buf: AnsiString; Len: integer): integer;
+  function d2iPKCS12bio(b:PBIO; Pkcs12: SslPtr): SslPtr;
+  function PKCS12parse(p12: SslPtr; pass: Ansistring; var pkey, cert, ca: SslPtr): integer;
+  procedure PKCS12free(p12: SslPtr);
+  function RsaGenerateKey(bits, e: integer; callback: PFunction; cb_arg: SslPtr): PRSA;
+  function Asn1UtctimeNew: PASN1_UTCTIME;
+  procedure Asn1UtctimeFree(a: PASN1_UTCTIME);
+  function Asn1IntegerSet(a: PASN1_INTEGER; v: integer): integer;
+  function i2dX509bio(b: PBIO; x: PX509): integer;
+  function i2dPrivateKeyBio(b: PBIO; pkey: EVP_PKEY): integer;
+
+  // 3DES functions
+  procedure DESsetoddparity(Key: des_cblock);
+  function DESsetkeychecked(key: des_cblock; schedule: des_key_schedule): Integer;
+  procedure DESecbencrypt(Input: des_cblock; output: des_cblock; ks: des_key_schedule; enc: Integer);
+
+{$ENDIF}
+
+function IsSSLloaded: Boolean;
+function InitSSLInterface: Boolean;
+function DestroySSLInterface: Boolean;
+
+implementation
+
+uses SyncObjs;
+
+{$IFNDEF CIL}
+type
+// libssl.dll
+  TSslGetError = function(s: PSSL; ret_code: Integer):Integer; cdecl;
+  TSslLibraryInit = function:Integer; cdecl;
+  TSslLoadErrorStrings = procedure; cdecl;
+  TSslCtxSetCipherList = function(arg0: PSSL_CTX; str: PAnsiChar):Integer; cdecl;
+  TSslCtxNew = function(meth: PSSL_METHOD):PSSL_CTX; cdecl;
+  TSslCtxFree = procedure(arg0: PSSL_CTX); cdecl;
+  TSslSetFd = function(s: PSSL; fd: Integer):Integer; cdecl;
+  TSslMethodV2 = function:PSSL_METHOD; cdecl;
+  TSslMethodV3 = function:PSSL_METHOD; cdecl;
+  TSslMethodTLSV1 = function:PSSL_METHOD; cdecl;
+  TSslMethodV23 = function:PSSL_METHOD; cdecl;
+  TSslCtxUsePrivateKey = function(ctx: PSSL_CTX; pkey: sslptr):Integer; cdecl;
+  TSslCtxUsePrivateKeyASN1 = function(pk: integer; ctx: PSSL_CTX; d: sslptr; len: integer):Integer; cdecl;
+  TSslCtxUsePrivateKeyFile = function(ctx: PSSL_CTX; const _file: PAnsiChar; _type: Integer):Integer; cdecl;
+  TSslCtxUseCertificate = function(ctx: PSSL_CTX; x: SslPtr):Integer; cdecl;
+  TSslCtxUseCertificateASN1 = function(ctx: PSSL_CTX; len: Integer; d: SslPtr):Integer; cdecl;
+  TSslCtxUseCertificateFile = function(ctx: PSSL_CTX; const _file: PAnsiChar; _type: Integer):Integer; cdecl;
+  TSslCtxUseCertificateChainFile = function(ctx: PSSL_CTX; const _file: PAnsiChar):Integer; cdecl;
+  TSslCtxCheckPrivateKeyFile = function(ctx: PSSL_CTX):Integer; cdecl;
+  TSslCtxSetDefaultPasswdCb = procedure(ctx: PSSL_CTX; cb: SslPtr); cdecl;
+  TSslCtxSetDefaultPasswdCbUserdata = procedure(ctx: PSSL_CTX; u: SslPtr); cdecl;
+  TSslCtxLoadVerifyLocations = function(ctx: PSSL_CTX; const CAfile: PAnsiChar; const CApath: PAnsiChar):Integer; cdecl;
+  TSslNew = function(ctx: PSSL_CTX):PSSL; cdecl;
+  TSslFree = procedure(ssl: PSSL); cdecl;
+  TSslAccept = function(ssl: PSSL):Integer; cdecl;
+  TSslConnect = function(ssl: PSSL):Integer; cdecl;
+  TSslShutdown = function(ssl: PSSL):Integer; cdecl;
+  TSslRead = function(ssl: PSSL; buf: PAnsiChar; num: Integer):Integer; cdecl;
+  TSslPeek = function(ssl: PSSL; buf: PAnsiChar; num: Integer):Integer; cdecl;
+  TSslWrite = function(ssl: PSSL; const buf: PAnsiChar; num: Integer):Integer; cdecl;
+  TSslPending = function(ssl: PSSL):Integer; cdecl;
+  TSslGetVersion = function(ssl: PSSL):PAnsiChar; cdecl;
+  TSslGetPeerCertificate = function(ssl: PSSL):PX509; cdecl;
+  TSslCtxSetVerify = procedure(ctx: PSSL_CTX; mode: Integer; arg2: SslPtr); cdecl;
+  TSSLGetCurrentCipher = function(s: PSSL):SslPtr; cdecl;
+  TSSLCipherGetName = function(c: Sslptr):PAnsiChar; cdecl;
+  TSSLCipherGetBits = function(c: SslPtr; alg_bits: PInteger):Integer; cdecl;
+  TSSLGetVerifyResult = function(ssl: PSSL):Integer; cdecl;
+
+// libeay.dll
+  TX509New = function: PX509; cdecl;
+  TX509Free = procedure(x: PX509); cdecl;
+  TX509NameOneline = function(a: PX509_NAME; buf: PAnsiChar; size: Integer):PAnsiChar; cdecl;
+  TX509GetSubjectName = function(a: PX509):PX509_NAME; cdecl;
+  TX509GetIssuerName = function(a: PX509):PX509_NAME; cdecl;
+  TX509NameHash = function(x: PX509_NAME):Cardinal; cdecl;
+  TX509Digest = function(data: PX509; _type: PEVP_MD; md: PAnsiChar; len: PInteger):Integer; cdecl;
+  TX509print = function(b: PBIO; a: PX509): integer; cdecl;
+  TX509SetVersion = function(x: PX509; version: integer): integer; cdecl;
+  TX509SetPubkey = function(x: PX509; pkey: EVP_PKEY): integer; cdecl;
+  TX509SetIssuerName = function(x: PX509; name: PX509_NAME): integer; cdecl;
+  TX509NameAddEntryByTxt = function(name: PX509_NAME; field: PAnsiChar; _type: integer;
+    bytes: PAnsiChar; len, loc, _set: integer): integer; cdecl;
+  TX509Sign = function(x: PX509; pkey: EVP_PKEY; const md: PEVP_MD): integer; cdecl;
+  TX509GmtimeAdj = function(s: PASN1_UTCTIME; adj: integer): PASN1_UTCTIME; cdecl;
+  TX509SetNotBefore = function(x: PX509; tm: PASN1_UTCTIME): integer; cdecl;
+  TX509SetNotAfter = function(x: PX509; tm: PASN1_UTCTIME): integer; cdecl;
+  TX509GetSerialNumber = function(x: PX509): PASN1_INTEGER; cdecl;
+  TEvpPkeyNew = function: EVP_PKEY; cdecl;
+  TEvpPkeyFree = procedure(pk: EVP_PKEY); cdecl;
+  TEvpPkeyAssign = function(pkey: EVP_PKEY; _type: integer; key: Prsa): integer; cdecl;
+  TEvpGetDigestByName = function(Name: PAnsiChar): PEVP_MD; cdecl;
+  TEVPcleanup = procedure; cdecl;
+  TSSLeayversion = function(t: integer): PAnsiChar; cdecl;
+  TErrErrorString = procedure(e: integer; buf: PAnsiChar; len: integer); cdecl;
+  TErrGetError = function: integer; cdecl;
+  TErrClearError = procedure; cdecl;
+  TErrFreeStrings = procedure; cdecl;
+  TErrRemoveState = procedure(pid: integer); cdecl;
+  TOPENSSLaddallalgorithms = procedure; cdecl;
+  TCRYPTOcleanupAllExData = procedure; cdecl;
+  TRandScreen = procedure; cdecl;
+  TBioNew = function(b: PBIO_METHOD): PBIO; cdecl;
+  TBioFreeAll = procedure(b: PBIO); cdecl;
+  TBioSMem = function: PBIO_METHOD; cdecl;
+  TBioCtrlPending = function(b: PBIO): integer; cdecl;
+  TBioRead = function(b: PBIO; Buf: PAnsiChar; Len: integer): integer; cdecl;
+  TBioWrite = function(b: PBIO; Buf: PAnsiChar; Len: integer): integer; cdecl;
+  Td2iPKCS12bio = function(b:PBIO; Pkcs12: SslPtr): SslPtr; cdecl;
+  TPKCS12parse = function(p12: SslPtr; pass: PAnsiChar; var pkey, cert, ca: SslPtr): integer; cdecl;
+  TPKCS12free = procedure(p12: SslPtr); cdecl;
+  TRsaGenerateKey = function(bits, e: integer; callback: PFunction; cb_arg: SslPtr): PRSA; cdecl;
+  TAsn1UtctimeNew = function: PASN1_UTCTIME; cdecl;
+  TAsn1UtctimeFree = procedure(a: PASN1_UTCTIME); cdecl;
+  TAsn1IntegerSet = function(a: PASN1_INTEGER; v: integer): integer; cdecl;
+  Ti2dX509bio = function(b: PBIO; x: PX509): integer; cdecl;
+  Ti2dPrivateKeyBio= function(b: PBIO; pkey: EVP_PKEY): integer; cdecl;
+
+  // 3DES functions
+  TDESsetoddparity = procedure(Key: des_cblock); cdecl;
+  TDESsetkeychecked = function(key: des_cblock; schedule: des_key_schedule): Integer; cdecl;
+  TDESecbencrypt = procedure(Input: des_cblock; output: des_cblock; ks: des_key_schedule; enc: Integer); cdecl;
+  //thread lock functions
+  TCRYPTOnumlocks = function: integer; cdecl;
+  TCRYPTOSetLockingCallback = procedure(cb: Sslptr); cdecl;
+
+var
+// libssl.dll
+  _SslGetError: TSslGetError = nil;
+  _SslLibraryInit: TSslLibraryInit = nil;
+  _SslLoadErrorStrings: TSslLoadErrorStrings = nil;
+  _SslCtxSetCipherList: TSslCtxSetCipherList = nil;
+  _SslCtxNew: TSslCtxNew = nil;
+  _SslCtxFree: TSslCtxFree = nil;
+  _SslSetFd: TSslSetFd = nil;
+  _SslMethodV2: TSslMethodV2 = nil;
+  _SslMethodV3: TSslMethodV3 = nil;
+  _SslMethodTLSV1: TSslMethodTLSV1 = nil;
+  _SslMethodV23: TSslMethodV23 = nil;
+  _SslCtxUsePrivateKey: TSslCtxUsePrivateKey = nil;
+  _SslCtxUsePrivateKeyASN1: TSslCtxUsePrivateKeyASN1 = nil;
+  _SslCtxUsePrivateKeyFile: TSslCtxUsePrivateKeyFile = nil;
+  _SslCtxUseCertificate: TSslCtxUseCertificate = nil;
+  _SslCtxUseCertificateASN1: TSslCtxUseCertificateASN1 = nil;
+  _SslCtxUseCertificateFile: TSslCtxUseCertificateFile = nil;
+  _SslCtxUseCertificateChainFile: TSslCtxUseCertificateChainFile = nil;
+  _SslCtxCheckPrivateKeyFile: TSslCtxCheckPrivateKeyFile = nil;
+  _SslCtxSetDefaultPasswdCb: TSslCtxSetDefaultPasswdCb = nil;
+  _SslCtxSetDefaultPasswdCbUserdata: TSslCtxSetDefaultPasswdCbUserdata = nil;
+  _SslCtxLoadVerifyLocations: TSslCtxLoadVerifyLocations = nil;
+  _SslNew: TSslNew = nil;
+  _SslFree: TSslFree = nil;
+  _SslAccept: TSslAccept = nil;
+  _SslConnect: TSslConnect = nil;
+  _SslShutdown: TSslShutdown = nil;
+  _SslRead: TSslRead = nil;
+  _SslPeek: TSslPeek = nil;
+  _SslWrite: TSslWrite = nil;
+  _SslPending: TSslPending = nil;
+  _SslGetVersion: TSslGetVersion = nil;
+  _SslGetPeerCertificate: TSslGetPeerCertificate = nil;
+  _SslCtxSetVerify: TSslCtxSetVerify = nil;
+  _SSLGetCurrentCipher: TSSLGetCurrentCipher = nil;
+  _SSLCipherGetName: TSSLCipherGetName = nil;
+  _SSLCipherGetBits: TSSLCipherGetBits = nil;
+  _SSLGetVerifyResult: TSSLGetVerifyResult = nil;
+
+// libeay.dll
+  _X509New: TX509New = nil;
+  _X509Free: TX509Free = nil;
+  _X509NameOneline: TX509NameOneline = nil;
+  _X509GetSubjectName: TX509GetSubjectName = nil;
+  _X509GetIssuerName: TX509GetIssuerName = nil;
+  _X509NameHash: TX509NameHash = nil;
+  _X509Digest: TX509Digest = nil;
+  _X509print: TX509print = nil;
+  _X509SetVersion: TX509SetVersion = nil;
+  _X509SetPubkey: TX509SetPubkey = nil;
+  _X509SetIssuerName: TX509SetIssuerName = nil;
+  _X509NameAddEntryByTxt: TX509NameAddEntryByTxt = nil;
+  _X509Sign: TX509Sign = nil;
+  _X509GmtimeAdj: TX509GmtimeAdj = nil;
+  _X509SetNotBefore: TX509SetNotBefore = nil;
+  _X509SetNotAfter: TX509SetNotAfter = nil;
+  _X509GetSerialNumber: TX509GetSerialNumber = nil;
+  _EvpPkeyNew: TEvpPkeyNew = nil;
+  _EvpPkeyFree: TEvpPkeyFree = nil;
+  _EvpPkeyAssign: TEvpPkeyAssign = nil;
+  _EvpGetDigestByName: TEvpGetDigestByName = nil;
+  _EVPcleanup: TEVPcleanup = nil;
+  _SSLeayversion: TSSLeayversion = nil;
+  _ErrErrorString: TErrErrorString = nil;
+  _ErrGetError: TErrGetError = nil;
+  _ErrClearError: TErrClearError = nil;
+  _ErrFreeStrings: TErrFreeStrings = nil;
+  _ErrRemoveState: TErrRemoveState = nil;
+  _OPENSSLaddallalgorithms: TOPENSSLaddallalgorithms = nil;
+  _CRYPTOcleanupAllExData: TCRYPTOcleanupAllExData = nil;
+  _RandScreen: TRandScreen = nil;
+  _BioNew: TBioNew = nil;
+  _BioFreeAll: TBioFreeAll = nil;
+  _BioSMem: TBioSMem = nil;
+  _BioCtrlPending: TBioCtrlPending = nil;
+  _BioRead: TBioRead = nil;
+  _BioWrite: TBioWrite = nil;
+  _d2iPKCS12bio: Td2iPKCS12bio = nil;
+  _PKCS12parse: TPKCS12parse = nil;
+  _PKCS12free: TPKCS12free = nil;
+  _RsaGenerateKey: TRsaGenerateKey = nil;
+  _Asn1UtctimeNew: TAsn1UtctimeNew = nil;
+  _Asn1UtctimeFree: TAsn1UtctimeFree = nil;
+  _Asn1IntegerSet: TAsn1IntegerSet = nil;
+  _i2dX509bio: Ti2dX509bio = nil;
+  _i2dPrivateKeyBio: Ti2dPrivateKeyBio = nil;
+
+  // 3DES functions
+  _DESsetoddparity: TDESsetoddparity = nil;
+  _DESsetkeychecked: TDESsetkeychecked = nil;
+  _DESecbencrypt: TDESecbencrypt = nil;
+  //thread lock functions
+  _CRYPTOnumlocks: TCRYPTOnumlocks = nil;
+  _CRYPTOSetLockingCallback: TCRYPTOSetLockingCallback = nil;
+{$ENDIF}
+
+var
+  SSLCS: TCriticalSection;
+  SSLloaded: boolean = false;
+{$IFNDEF CIL}
+  Locks: TList;
+{$ENDIF}
+
+{$IFNDEF CIL}
+// libssl.dll
+function SslGetError(s: PSSL; ret_code: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslGetError) then
+    Result := _SslGetError(s, ret_code)
+  else
+    Result := SSL_ERROR_SSL;
+end;
+
+function SslLibraryInit:Integer;
+begin
+  if InitSSLInterface and Assigned(_SslLibraryInit) then
+    Result := _SslLibraryInit
+  else
+    Result := 1;
+end;
+
+procedure SslLoadErrorStrings;
+begin
+  if InitSSLInterface and Assigned(_SslLoadErrorStrings) then
+    _SslLoadErrorStrings;
+end;
+
+//function SslCtxSetCipherList(arg0: PSSL_CTX; str: PChar):Integer;
+function SslCtxSetCipherList(arg0: PSSL_CTX; var str: AnsiString):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxSetCipherList) then
+    Result := _SslCtxSetCipherList(arg0, PAnsiChar(str))
+  else
+    Result := 0;
+end;
+
+function SslCtxNew(meth: PSSL_METHOD):PSSL_CTX;
+begin
+  if InitSSLInterface and Assigned(_SslCtxNew) then
+    Result := _SslCtxNew(meth)
+  else
+    Result := nil;
+end;
+
+procedure SslCtxFree(arg0: PSSL_CTX);
+begin
+  if InitSSLInterface and Assigned(_SslCtxFree) then
+    _SslCtxFree(arg0);
+end;
+
+function SslSetFd(s: PSSL; fd: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslSetFd) then
+    Result := _SslSetFd(s, fd)
+  else
+    Result := 0;
+end;
+
+function SslMethodV2:PSSL_METHOD;
+begin
+  if InitSSLInterface and Assigned(_SslMethodV2) then
+    Result := _SslMethodV2
+  else
+    Result := nil;
+end;
+
+function SslMethodV3:PSSL_METHOD;
+begin
+  if InitSSLInterface and Assigned(_SslMethodV3) then
+    Result := _SslMethodV3
+  else
+    Result := nil;
+end;
+
+function SslMethodTLSV1:PSSL_METHOD;
+begin
+  if InitSSLInterface and Assigned(_SslMethodTLSV1) then
+    Result := _SslMethodTLSV1
+  else
+    Result := nil;
+end;
+
+function SslMethodV23:PSSL_METHOD;
+begin
+  if InitSSLInterface and Assigned(_SslMethodV23) then
+    Result := _SslMethodV23
+  else
+    Result := nil;
+end;
+
+function SslCtxUsePrivateKey(ctx: PSSL_CTX; pkey: SslPtr):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxUsePrivateKey) then
+    Result := _SslCtxUsePrivateKey(ctx, pkey)
+  else
+    Result := 0;
+end;
+
+function SslCtxUsePrivateKeyASN1(pk: integer; ctx: PSSL_CTX; d: AnsiString; len: integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxUsePrivateKeyASN1) then
+    Result := _SslCtxUsePrivateKeyASN1(pk, ctx, Sslptr(d), len)
+  else
+    Result := 0;
+end;
+
+//function SslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: PChar; _type: Integer):Integer;
+function SslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: AnsiString; _type: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxUsePrivateKeyFile) then
+    Result := _SslCtxUsePrivateKeyFile(ctx, PAnsiChar(_file), _type)
+  else
+    Result := 0;
+end;
+
+function SslCtxUseCertificate(ctx: PSSL_CTX; x: SslPtr):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxUseCertificate) then
+    Result := _SslCtxUseCertificate(ctx, x)
+  else
+    Result := 0;
+end;
+
+function SslCtxUseCertificateASN1(ctx: PSSL_CTX; len: integer; d: AnsiString):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxUseCertificateASN1) then
+    Result := _SslCtxUseCertificateASN1(ctx, len, SslPtr(d))
+  else
+    Result := 0;
+end;
+
+function SslCtxUseCertificateFile(ctx: PSSL_CTX; const _file: AnsiString; _type: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxUseCertificateFile) then
+    Result := _SslCtxUseCertificateFile(ctx, PAnsiChar(_file), _type)
+  else
+    Result := 0;
+end;
+
+//function SslCtxUseCertificateChainFile(ctx: PSSL_CTX; const _file: PChar):Integer;
+function SslCtxUseCertificateChainFile(ctx: PSSL_CTX; const _file: AnsiString):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxUseCertificateChainFile) then
+    Result := _SslCtxUseCertificateChainFile(ctx, PAnsiChar(_file))
+  else
+    Result := 0;
+end;
+
+function SslCtxCheckPrivateKeyFile(ctx: PSSL_CTX):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxCheckPrivateKeyFile) then
+    Result := _SslCtxCheckPrivateKeyFile(ctx)
+  else
+    Result := 0;
+end;
+
+procedure SslCtxSetDefaultPasswdCb(ctx: PSSL_CTX; cb: PPasswdCb);
+begin
+  if InitSSLInterface and Assigned(_SslCtxSetDefaultPasswdCb) then
+    _SslCtxSetDefaultPasswdCb(ctx, cb);
+end;
+
+procedure SslCtxSetDefaultPasswdCbUserdata(ctx: PSSL_CTX; u: SslPtr);
+begin
+  if InitSSLInterface and Assigned(_SslCtxSetDefaultPasswdCbUserdata) then
+    _SslCtxSetDefaultPasswdCbUserdata(ctx, u);
+end;
+
+//function SslCtxLoadVerifyLocations(ctx: PSSL_CTX; const CAfile: PChar; const CApath: PChar):Integer;
+function SslCtxLoadVerifyLocations(ctx: PSSL_CTX; const CAfile: AnsiString; const CApath: AnsiString):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslCtxLoadVerifyLocations) then
+    Result := _SslCtxLoadVerifyLocations(ctx, SslPtr(CAfile), SslPtr(CApath))
+  else
+    Result := 0;
+end;
+
+function SslNew(ctx: PSSL_CTX):PSSL;
+begin
+  if InitSSLInterface and Assigned(_SslNew) then
+    Result := _SslNew(ctx)
+  else
+    Result := nil;
+end;
+
+procedure SslFree(ssl: PSSL);
+begin
+  if InitSSLInterface and Assigned(_SslFree) then
+    _SslFree(ssl);
+end;
+
+function SslAccept(ssl: PSSL):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslAccept) then
+    Result := _SslAccept(ssl)
+  else
+    Result := -1;
+end;
+
+function SslConnect(ssl: PSSL):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslConnect) then
+    Result := _SslConnect(ssl)
+  else
+    Result := -1;
+end;
+
+function SslShutdown(ssl: PSSL):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslShutdown) then
+    Result := _SslShutdown(ssl)
+  else
+    Result := -1;
+end;
+
+//function SslRead(ssl: PSSL; buf: PChar; num: Integer):Integer;
+function SslRead(ssl: PSSL; buf: SslPtr; num: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslRead) then
+    Result := _SslRead(ssl, PAnsiChar(buf), num)
+  else
+    Result := -1;
+end;
+
+//function SslPeek(ssl: PSSL; buf: PChar; num: Integer):Integer;
+function SslPeek(ssl: PSSL; buf: SslPtr; num: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslPeek) then
+    Result := _SslPeek(ssl, PAnsiChar(buf), num)
+  else
+    Result := -1;
+end;
+
+//function SslWrite(ssl: PSSL; const buf: PChar; num: Integer):Integer;
+function SslWrite(ssl: PSSL; buf: SslPtr; num: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslWrite) then
+    Result := _SslWrite(ssl, PAnsiChar(buf), num)
+  else
+    Result := -1;
+end;
+
+function SslPending(ssl: PSSL):Integer;
+begin
+  if InitSSLInterface and Assigned(_SslPending) then
+    Result := _SslPending(ssl)
+  else
+    Result := 0;
+end;
+
+//function SslGetVersion(ssl: PSSL):PChar;
+function SslGetVersion(ssl: PSSL):AnsiString;
+begin
+  if InitSSLInterface and Assigned(_SslGetVersion) then
+    Result := _SslGetVersion(ssl)
+  else
+    Result := '';
+end;
+
+function SslGetPeerCertificate(ssl: PSSL):PX509;
+begin
+  if InitSSLInterface and Assigned(_SslGetPeerCertificate) then
+    Result := _SslGetPeerCertificate(ssl)
+  else
+    Result := nil;
+end;
+
+//procedure SslCtxSetVerify(ctx: PSSL_CTX; mode: Integer; arg2: SslPtr);
+procedure SslCtxSetVerify(ctx: PSSL_CTX; mode: Integer; arg2: PFunction);
+begin
+  if InitSSLInterface and Assigned(_SslCtxSetVerify) then
+    _SslCtxSetVerify(ctx, mode, @arg2);
+end;
+
+function SSLGetCurrentCipher(s: PSSL):SslPtr;
+begin
+  if InitSSLInterface and Assigned(_SSLGetCurrentCipher) then
+{$IFDEF CIL}
+{$ELSE}
+    Result := _SSLGetCurrentCipher(s)
+{$ENDIF}
+  else
+    Result := nil;
+end;
+
+//function SSLCipherGetName(c: SslPtr):PChar;
+function SSLCipherGetName(c: SslPtr):AnsiString;
+begin
+  if InitSSLInterface and Assigned(_SSLCipherGetName) then
+    Result := _SSLCipherGetName(c)
+  else
+    Result := '';
+end;
+
+//function SSLCipherGetBits(c: SslPtr; alg_bits: PInteger):Integer;
+function SSLCipherGetBits(c: SslPtr; var alg_bits: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_SSLCipherGetBits) then
+    Result := _SSLCipherGetBits(c, @alg_bits)
+  else
+    Result := 0;
+end;
+
+function SSLGetVerifyResult(ssl: PSSL):Integer;
+begin
+  if InitSSLInterface and Assigned(_SSLGetVerifyResult) then
+    Result := _SSLGetVerifyResult(ssl)
+  else
+    Result := X509_V_ERR_APPLICATION_VERIFICATION;
+end;
+
+// libeay.dll
+function X509New: PX509;
+begin
+  if InitSSLInterface and Assigned(_X509New) then
+    Result := _X509New
+  else
+    Result := nil;
+end;
+
+procedure X509Free(x: PX509);
+begin
+  if InitSSLInterface and Assigned(_X509Free) then
+    _X509Free(x);
+end;
+
+//function SslX509NameOneline(a: PX509_NAME; buf: PChar; size: Integer):PChar;
+function X509NameOneline(a: PX509_NAME; var buf: AnsiString; size: Integer):AnsiString;
+begin
+  if InitSSLInterface and Assigned(_X509NameOneline) then
+    Result := _X509NameOneline(a, PAnsiChar(buf),size)
+  else
+    Result := '';
+end;
+
+function X509GetSubjectName(a: PX509):PX509_NAME;
+begin
+  if InitSSLInterface and Assigned(_X509GetSubjectName) then
+    Result := _X509GetSubjectName(a)
+  else
+    Result := nil;
+end;
+
+function X509GetIssuerName(a: PX509):PX509_NAME;
+begin
+  if InitSSLInterface and Assigned(_X509GetIssuerName) then
+    Result := _X509GetIssuerName(a)
+  else
+    Result := nil;
+end;
+
+function X509NameHash(x: PX509_NAME):Cardinal;
+begin
+  if InitSSLInterface and Assigned(_X509NameHash) then
+    Result := _X509NameHash(x)
+  else
+    Result := 0;
+end;
+
+//function SslX509Digest(data: PX509; _type: PEVP_MD; md: PChar; len: PInteger):Integer;
+function X509Digest(data: PX509; _type: PEVP_MD; md: AnsiString; var len: Integer):Integer;
+begin
+  if InitSSLInterface and Assigned(_X509Digest) then
+    Result := _X509Digest(data, _type, PAnsiChar(md), @len)
+  else
+    Result := 0;
+end;
+
+function EvpPkeyNew: EVP_PKEY;
+begin
+  if InitSSLInterface and Assigned(_EvpPkeyNew) then
+    Result := _EvpPkeyNew
+  else
+    Result := nil;
+end;
+
+procedure EvpPkeyFree(pk: EVP_PKEY);
+begin
+  if InitSSLInterface and Assigned(_EvpPkeyFree) then
+    _EvpPkeyFree(pk);
+end;
+
+function SSLeayversion(t: integer): Ansistring;
+begin
+  if InitSSLInterface and Assigned(_SSLeayversion) then
+    Result := PAnsiChar(_SSLeayversion(t))
+  else
+    Result := '';
+end;
+
+procedure ErrErrorString(e: integer; var buf: Ansistring; len: integer);
+begin
+  if InitSSLInterface and Assigned(_ErrErrorString) then
+    _ErrErrorString(e, Pointer(buf), len);
+  buf := PAnsiChar(Buf);
+end;
+
+function ErrGetError: integer;
+begin
+  if InitSSLInterface and Assigned(_ErrGetError) then
+    Result := _ErrGetError
+  else
+    Result := SSL_ERROR_SSL;
+end;
+
+procedure ErrClearError;
+begin
+  if InitSSLInterface and Assigned(_ErrClearError) then
+    _ErrClearError;
+end;
+
+procedure ErrFreeStrings;
+begin
+  if InitSSLInterface and Assigned(_ErrFreeStrings) then
+    _ErrFreeStrings;
+end;
+
+procedure ErrRemoveState(pid: integer);
+begin
+  if InitSSLInterface and Assigned(_ErrRemoveState) then
+    _ErrRemoveState(pid);
+end;
+
+procedure OPENSSLaddallalgorithms;
+begin
+  if InitSSLInterface and Assigned(_OPENSSLaddallalgorithms) then
+    _OPENSSLaddallalgorithms;
+end;
+
+procedure EVPcleanup;
+begin
+  if InitSSLInterface and Assigned(_EVPcleanup) then
+    _EVPcleanup;
+end;
+
+procedure CRYPTOcleanupAllExData;
+begin
+  if InitSSLInterface and Assigned(_CRYPTOcleanupAllExData) then
+    _CRYPTOcleanupAllExData;
+end;
+
+procedure RandScreen;
+begin
+  if InitSSLInterface and Assigned(_RandScreen) then
+    _RandScreen;
+end;
+
+function BioNew(b: PBIO_METHOD): PBIO;
+begin
+  if InitSSLInterface and Assigned(_BioNew) then
+    Result := _BioNew(b)
+  else
+    Result := nil;
+end;
+
+procedure BioFreeAll(b: PBIO);
+begin
+  if InitSSLInterface and Assigned(_BioFreeAll) then
+    _BioFreeAll(b);
+end;
+
+function BioSMem: PBIO_METHOD;
+begin
+  if InitSSLInterface and Assigned(_BioSMem) then
+    Result := _BioSMem
+  else
+    Result := nil;
+end;
+
+function BioCtrlPending(b: PBIO): integer;
+begin
+  if InitSSLInterface and Assigned(_BioCtrlPending) then
+    Result := _BioCtrlPending(b)
+  else
+    Result := 0;
+end;
+
+//function BioRead(b: PBIO; Buf: PChar; Len: integer): integer;
+function BioRead(b: PBIO; var Buf: AnsiString; Len: integer): integer;
+begin
+  if InitSSLInterface and Assigned(_BioRead) then
+    Result := _BioRead(b, PAnsiChar(Buf), Len)
+  else
+    Result := -2;
+end;
+
+//function BioWrite(b: PBIO; Buf: PChar; Len: integer): integer;
+function BioWrite(b: PBIO; Buf: AnsiString; Len: integer): integer;
+begin
+  if InitSSLInterface and Assigned(_BioWrite) then
+    Result := _BioWrite(b, PAnsiChar(Buf), Len)
+  else
+    Result := -2;
+end;
+
+function X509print(b: PBIO; a: PX509): integer;
+begin
+  if InitSSLInterface and Assigned(_X509print) then
+    Result := _X509print(b, a)
+  else
+    Result := 0;
+end;
+
+function d2iPKCS12bio(b:PBIO; Pkcs12: SslPtr): SslPtr;
+begin
+  if InitSSLInterface and Assigned(_d2iPKCS12bio) then
+    Result := _d2iPKCS12bio(b, Pkcs12)
+  else
+    Result := nil;
+end;
+
+function PKCS12parse(p12: SslPtr; pass: Ansistring; var pkey, cert, ca: SslPtr): integer;
+begin
+  if InitSSLInterface and Assigned(_PKCS12parse) then
+    Result := _PKCS12parse(p12, SslPtr(pass), pkey, cert, ca)
+  else
+    Result := 0;
+end;
+
+procedure PKCS12free(p12: SslPtr);
+begin
+  if InitSSLInterface and Assigned(_PKCS12free) then
+    _PKCS12free(p12);
+end;
+
+function RsaGenerateKey(bits, e: integer; callback: PFunction; cb_arg: SslPtr): PRSA;
+begin
+  if InitSSLInterface and Assigned(_RsaGenerateKey) then
+    Result := _RsaGenerateKey(bits, e, callback, cb_arg)
+  else
+    Result := nil;
+end;
+
+function EvpPkeyAssign(pkey: EVP_PKEY; _type: integer; key: Prsa): integer;
+begin
+  if InitSSLInterface and Assigned(_EvpPkeyAssign) then
+    Result := _EvpPkeyAssign(pkey, _type, key)
+  else
+    Result := 0;
+end;
+
+function X509SetVersion(x: PX509; version: integer): integer;
+begin
+  if InitSSLInterface and Assigned(_X509SetVersion) then
+    Result := _X509SetVersion(x, version)
+  else
+    Result := 0;
+end;
+
+function X509SetPubkey(x: PX509; pkey: EVP_PKEY): integer;
+begin
+  if InitSSLInterface and Assigned(_X509SetPubkey) then
+    Result := _X509SetPubkey(x, pkey)
+  else
+    Result := 0;
+end;
+
+function X509SetIssuerName(x: PX509; name: PX509_NAME): integer;
+begin
+  if InitSSLInterface and Assigned(_X509SetIssuerName) then
+    Result := _X509SetIssuerName(x, name)
+  else
+    Result := 0;
+end;
+
+function X509NameAddEntryByTxt(name: PX509_NAME; field: Ansistring; _type: integer;
+  bytes: Ansistring; len, loc, _set: integer): integer;
+begin
+  if InitSSLInterface and Assigned(_X509NameAddEntryByTxt) then
+    Result := _X509NameAddEntryByTxt(name, PAnsiChar(field), _type, PAnsiChar(Bytes), len, loc, _set)
+  else
+    Result := 0;
+end;
+
+function X509Sign(x: PX509; pkey: EVP_PKEY; const md: PEVP_MD): integer;
+begin
+  if InitSSLInterface and Assigned(_X509Sign) then
+    Result := _X509Sign(x, pkey, md)
+  else
+    Result := 0;
+end;
+
+function Asn1UtctimeNew: PASN1_UTCTIME;
+begin
+  if InitSSLInterface and Assigned(_Asn1UtctimeNew) then
+    Result := _Asn1UtctimeNew
+  else
+    Result := nil;
+end;
+
+procedure Asn1UtctimeFree(a: PASN1_UTCTIME);
+begin
+  if InitSSLInterface and Assigned(_Asn1UtctimeFree) then
+    _Asn1UtctimeFree(a);
+end;
+
+function X509GmtimeAdj(s: PASN1_UTCTIME; adj: integer): PASN1_UTCTIME;
+begin
+  if InitSSLInterface and Assigned(_X509GmtimeAdj) then
+    Result := _X509GmtimeAdj(s, adj)
+  else
+    Result := nil;
+end;
+
+function X509SetNotBefore(x: PX509; tm: PASN1_UTCTIME): integer;
+begin
+  if InitSSLInterface and Assigned(_X509SetNotBefore) then
+    Result := _X509SetNotBefore(x, tm)
+  else
+    Result := 0;
+end;
+
+function X509SetNotAfter(x: PX509; tm: PASN1_UTCTIME): integer;
+begin
+  if InitSSLInterface and Assigned(_X509SetNotAfter) then
+    Result := _X509SetNotAfter(x, tm)
+  else
+    Result := 0;
+end;
+
+function i2dX509bio(b: PBIO; x: PX509): integer;
+begin
+  if InitSSLInterface and Assigned(_i2dX509bio) then
+    Result := _i2dX509bio(b, x)
+  else
+    Result := 0;
+end;
+
+function i2dPrivateKeyBio(b: PBIO; pkey: EVP_PKEY): integer;
+begin
+  if InitSSLInterface and Assigned(_i2dPrivateKeyBio) then
+    Result := _i2dPrivateKeyBio(b, pkey)
+  else
+    Result := 0;
+end;
+
+function EvpGetDigestByName(Name: AnsiString): PEVP_MD;
+begin
+  if InitSSLInterface and Assigned(_EvpGetDigestByName) then
+    Result := _EvpGetDigestByName(PAnsiChar(Name))
+  else
+    Result := nil;
+end;
+
+function Asn1IntegerSet(a: PASN1_INTEGER; v: integer): integer;
+begin
+  if InitSSLInterface and Assigned(_Asn1IntegerSet) then
+    Result := _Asn1IntegerSet(a, v)
+  else
+    Result := 0;
+end;
+
+function X509GetSerialNumber(x: PX509): PASN1_INTEGER;
+begin
+  if InitSSLInterface and Assigned(_X509GetSerialNumber) then
+    Result := _X509GetSerialNumber(x)
+  else
+    Result := nil;
+end;
+
+// 3DES functions
+procedure DESsetoddparity(Key: des_cblock);
+begin
+  if InitSSLInterface and Assigned(_DESsetoddparity) then
+    _DESsetoddparity(Key);
+end;
+
+function DESsetkeychecked(key: des_cblock; schedule: des_key_schedule): Integer;
+begin
+  if InitSSLInterface and Assigned(_DESsetkeychecked) then
+    Result := _DESsetkeychecked(key, schedule)
+  else
+    Result := -1;
+end;
+
+procedure DESecbencrypt(Input: des_cblock; output: des_cblock; ks: des_key_schedule; enc: Integer);
+begin
+  if InitSSLInterface and Assigned(_DESecbencrypt) then
+    _DESecbencrypt(Input, output, ks, enc);
+end;
+
+procedure locking_callback(mode, ltype: integer; lfile: PChar; line: integer); cdecl;
+begin
+  if (mode and 1) > 0 then
+    TCriticalSection(Locks[ltype]).Enter
+  else
+    TCriticalSection(Locks[ltype]).Leave;
+end;
+
+procedure InitLocks;
+var
+  n: integer;
+  max: integer;
+begin
+  Locks := TList.Create;
+  max := _CRYPTOnumlocks;
+  for n := 1 to max do
+    Locks.Add(TCriticalSection.Create);
+  _CRYPTOsetlockingcallback(@locking_callback);
+end;
+
+procedure FreeLocks;
+var
+  n: integer;
+begin
+  _CRYPTOsetlockingcallback(nil);
+  for n := 0 to Locks.Count - 1 do
+    TCriticalSection(Locks[n]).Free;
+  Locks.Free;
+end;
+
+{$ENDIF}
+
+function LoadLib(const Value: String): HModule;
+begin
+{$IFDEF CIL}
+  Result := LoadLibrary(Value);
+{$ELSE}
+  Result := LoadLibrary(PChar(Value));
+{$ENDIF}
+end;
+
+function GetProcAddr(module: HModule; const ProcName: string): SslPtr;
+begin
+{$IFDEF CIL}
+  Result := GetProcAddress(module, ProcName);
+{$ELSE}
+  Result := GetProcAddress(module, PChar(ProcName));
+{$ENDIF}
+end;
+
+function InitSSLInterface: Boolean;
+var
+  s: string;
+  x: integer;
+begin
+  SSLCS.Enter;
+  try
+    if not IsSSLloaded then
+    begin
+{$IFDEF CIL}
+      SSLLibHandle := 1;
+      SSLUtilHandle := 1;
+{$ELSE}
+      SSLLibHandle := LoadLib(DLLSSLName);
+      SSLUtilHandle := LoadLib(DLLUtilName);
+  {$IFNDEF LINUX}
+      if (SSLLibHandle = 0) then
+        SSLLibHandle := LoadLib(DLLSSLName2);
+  {$ENDIF}
+{$ENDIF}
+      if (SSLLibHandle <> 0) and (SSLUtilHandle <> 0) then
+      begin
+{$IFNDEF CIL}
+        _SslGetError := GetProcAddr(SSLLibHandle, 'SSL_get_error');
+        _SslLibraryInit := GetProcAddr(SSLLibHandle, 'SSL_library_init');
+        _SslLoadErrorStrings := GetProcAddr(SSLLibHandle, 'SSL_load_error_strings');
+        _SslCtxSetCipherList := GetProcAddr(SSLLibHandle, 'SSL_CTX_set_cipher_list');
+        _SslCtxNew := GetProcAddr(SSLLibHandle, 'SSL_CTX_new');
+        _SslCtxFree := GetProcAddr(SSLLibHandle, 'SSL_CTX_free');
+        _SslSetFd := GetProcAddr(SSLLibHandle, 'SSL_set_fd');
+        _SslMethodV2 := GetProcAddr(SSLLibHandle, 'SSLv2_method');
+        _SslMethodV3 := GetProcAddr(SSLLibHandle, 'SSLv3_method');
+        _SslMethodTLSV1 := GetProcAddr(SSLLibHandle, 'TLSv1_method');
+        _SslMethodV23 := GetProcAddr(SSLLibHandle, 'SSLv23_method');
+        _SslCtxUsePrivateKey := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_PrivateKey');
+        _SslCtxUsePrivateKeyASN1 := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_PrivateKey_ASN1');
+        //use SSL_CTX_use_RSAPrivateKey_file instead SSL_CTX_use_PrivateKey_file,
+        //because SSL_CTX_use_PrivateKey_file not support DER format. :-O
+        _SslCtxUsePrivateKeyFile := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_RSAPrivateKey_file');
+        _SslCtxUseCertificate := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_certificate');
+        _SslCtxUseCertificateASN1 := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_certificate_ASN1');
+        _SslCtxUseCertificateFile := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_certificate_file');
+        _SslCtxUseCertificateChainFile := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_certificate_chain_file');
+        _SslCtxCheckPrivateKeyFile := GetProcAddr(SSLLibHandle, 'SSL_CTX_check_private_key');
+        _SslCtxSetDefaultPasswdCb := GetProcAddr(SSLLibHandle, 'SSL_CTX_set_default_passwd_cb');
+        _SslCtxSetDefaultPasswdCbUserdata := GetProcAddr(SSLLibHandle, 'SSL_CTX_set_default_passwd_cb_userdata');
+        _SslCtxLoadVerifyLocations := GetProcAddr(SSLLibHandle, 'SSL_CTX_load_verify_locations');
+        _SslNew := GetProcAddr(SSLLibHandle, 'SSL_new');
+        _SslFree := GetProcAddr(SSLLibHandle, 'SSL_free');
+        _SslAccept := GetProcAddr(SSLLibHandle, 'SSL_accept');
+        _SslConnect := GetProcAddr(SSLLibHandle, 'SSL_connect');
+        _SslShutdown := GetProcAddr(SSLLibHandle, 'SSL_shutdown');
+        _SslRead := GetProcAddr(SSLLibHandle, 'SSL_read');
+        _SslPeek := GetProcAddr(SSLLibHandle, 'SSL_peek');
+        _SslWrite := GetProcAddr(SSLLibHandle, 'SSL_write');
+        _SslPending := GetProcAddr(SSLLibHandle, 'SSL_pending');
+        _SslGetPeerCertificate := GetProcAddr(SSLLibHandle, 'SSL_get_peer_certificate');
+        _SslGetVersion := GetProcAddr(SSLLibHandle, 'SSL_get_version');
+        _SslCtxSetVerify := GetProcAddr(SSLLibHandle, 'SSL_CTX_set_verify');
+        _SslGetCurrentCipher := GetProcAddr(SSLLibHandle, 'SSL_get_current_cipher');
+        _SslCipherGetName := GetProcAddr(SSLLibHandle, 'SSL_CIPHER_get_name');
+        _SslCipherGetBits := GetProcAddr(SSLLibHandle, 'SSL_CIPHER_get_bits');
+        _SslGetVerifyResult := GetProcAddr(SSLLibHandle, 'SSL_get_verify_result');
+
+        _X509New := GetProcAddr(SSLUtilHandle, 'X509_new');
+        _X509Free := GetProcAddr(SSLUtilHandle, 'X509_free');
+        _X509NameOneline := GetProcAddr(SSLUtilHandle, 'X509_NAME_oneline');
+        _X509GetSubjectName := GetProcAddr(SSLUtilHandle, 'X509_get_subject_name');
+        _X509GetIssuerName := GetProcAddr(SSLUtilHandle, 'X509_get_issuer_name');
+        _X509NameHash := GetProcAddr(SSLUtilHandle, 'X509_NAME_hash');
+        _X509Digest := GetProcAddr(SSLUtilHandle, 'X509_digest');
+        _X509print := GetProcAddr(SSLUtilHandle, 'X509_print');
+        _X509SetVersion := GetProcAddr(SSLUtilHandle, 'X509_set_version');
+        _X509SetPubkey := GetProcAddr(SSLUtilHandle, 'X509_set_pubkey');
+        _X509SetIssuerName := GetProcAddr(SSLUtilHandle, 'X509_set_issuer_name');
+        _X509NameAddEntryByTxt := GetProcAddr(SSLUtilHandle, 'X509_NAME_add_entry_by_txt');
+        _X509Sign := GetProcAddr(SSLUtilHandle, 'X509_sign');
+        _X509GmtimeAdj := GetProcAddr(SSLUtilHandle, 'X509_gmtime_adj');
+        _X509SetNotBefore := GetProcAddr(SSLUtilHandle, 'X509_set_notBefore');
+        _X509SetNotAfter := GetProcAddr(SSLUtilHandle, 'X509_set_notAfter');
+        _X509GetSerialNumber := GetProcAddr(SSLUtilHandle, 'X509_get_serialNumber');
+        _EvpPkeyNew := GetProcAddr(SSLUtilHandle, 'EVP_PKEY_new');
+        _EvpPkeyFree := GetProcAddr(SSLUtilHandle, 'EVP_PKEY_free');
+        _EvpPkeyAssign := GetProcAddr(SSLUtilHandle, 'EVP_PKEY_assign');
+        _EVPCleanup := GetProcAddr(SSLUtilHandle, 'EVP_cleanup');
+        _EvpGetDigestByName := GetProcAddr(SSLUtilHandle, 'EVP_get_digestbyname');
+        _SSLeayversion := GetProcAddr(SSLUtilHandle, 'SSLeay_version');
+        _ErrErrorString := GetProcAddr(SSLUtilHandle, 'ERR_error_string_n');
+        _ErrGetError := GetProcAddr(SSLUtilHandle, 'ERR_get_error');
+        _ErrClearError := GetProcAddr(SSLUtilHandle, 'ERR_clear_error');
+        _ErrFreeStrings := GetProcAddr(SSLUtilHandle, 'ERR_free_strings');
+        _ErrRemoveState := GetProcAddr(SSLUtilHandle, 'ERR_remove_state');
+        _OPENSSLaddallalgorithms := GetProcAddr(SSLUtilHandle, 'OPENSSL_add_all_algorithms_noconf');
+        _CRYPTOcleanupAllExData := GetProcAddr(SSLUtilHandle, 'CRYPTO_cleanup_all_ex_data');
+        _RandScreen := GetProcAddr(SSLUtilHandle, 'RAND_screen');
+        _BioNew := GetProcAddr(SSLUtilHandle, 'BIO_new');
+        _BioFreeAll := GetProcAddr(SSLUtilHandle, 'BIO_free_all');
+        _BioSMem := GetProcAddr(SSLUtilHandle, 'BIO_s_mem');
+        _BioCtrlPending := GetProcAddr(SSLUtilHandle, 'BIO_ctrl_pending');
+        _BioRead := GetProcAddr(SSLUtilHandle, 'BIO_read');
+        _BioWrite := GetProcAddr(SSLUtilHandle, 'BIO_write');
+        _d2iPKCS12bio := GetProcAddr(SSLUtilHandle, 'd2i_PKCS12_bio');
+        _PKCS12parse := GetProcAddr(SSLUtilHandle, 'PKCS12_parse');
+        _PKCS12free := GetProcAddr(SSLUtilHandle, 'PKCS12_free');
+        _RsaGenerateKey := GetProcAddr(SSLUtilHandle, 'RSA_generate_key');
+        _Asn1UtctimeNew := GetProcAddr(SSLUtilHandle, 'ASN1_UTCTIME_new');
+        _Asn1UtctimeFree := GetProcAddr(SSLUtilHandle, 'ASN1_UTCTIME_free');
+        _Asn1IntegerSet := GetProcAddr(SSLUtilHandle, 'ASN1_INTEGER_set');
+        _i2dX509bio := GetProcAddr(SSLUtilHandle, 'i2d_X509_bio');
+        _i2dPrivateKeyBio := GetProcAddr(SSLUtilHandle, 'i2d_PrivateKey_bio');
+
+        // 3DES functions
+        _DESsetoddparity := GetProcAddr(SSLUtilHandle, 'DES_set_odd_parity');
+        _DESsetkeychecked := GetProcAddr(SSLUtilHandle, 'DES_set_key_checked');
+        _DESecbencrypt := GetProcAddr(SSLUtilHandle, 'DES_ecb_encrypt');
+        //
+        _CRYPTOnumlocks := GetProcAddr(SSLUtilHandle, 'CRYPTO_num_locks');
+        _CRYPTOsetlockingcallback := GetProcAddr(SSLUtilHandle, 'CRYPTO_set_locking_callback');
+{$ENDIF}
+{$IFDEF CIL}
+        SslLibraryInit;
+        SslLoadErrorStrings;
+        OPENSSLaddallalgorithms;
+        RandScreen;
+{$ELSE}
+        SetLength(s, 1024);
+        x := GetModuleFilename(SSLLibHandle,PChar(s),Length(s));
+        SetLength(s, x);
+        SSLLibFile := s;
+        SetLength(s, 1024);
+        x := GetModuleFilename(SSLUtilHandle,PChar(s),Length(s));
+        SetLength(s, x);
+        SSLUtilFile := s;
+        //init library
+        if assigned(_SslLibraryInit) then
+          _SslLibraryInit;
+        if assigned(_SslLoadErrorStrings) then
+          _SslLoadErrorStrings;
+        if assigned(_OPENSSLaddallalgorithms) then
+          _OPENSSLaddallalgorithms;
+        if assigned(_RandScreen) then
+          _RandScreen;
+        if assigned(_CRYPTOnumlocks) and assigned(_CRYPTOsetlockingcallback) then
+          InitLocks;
+{$ENDIF}
+        Result := True;
+        SSLloaded := True;
+      end
+      else
+      begin
+        //load failed!
+        if SSLLibHandle <> 0 then
+        begin
+{$IFNDEF CIL}
+          FreeLibrary(SSLLibHandle);
+{$ENDIF}
+          SSLLibHandle := 0;
+        end;
+        if SSLUtilHandle <> 0 then
+        begin
+{$IFNDEF CIL}
+          FreeLibrary(SSLUtilHandle);
+{$ENDIF}
+          SSLLibHandle := 0;
+        end;
+        Result := False;
+      end;
+    end
+    else
+      //loaded before...
+      Result := true;
+  finally
+    SSLCS.Leave;
+  end;
+end;
+
+function DestroySSLInterface: Boolean;
+begin
+  SSLCS.Enter;
+  try
+    if IsSSLLoaded then
+    begin
+      //deinit library
+{$IFNDEF CIL}
+      if assigned(_CRYPTOnumlocks) and assigned(_CRYPTOsetlockingcallback) then
+        FreeLocks;
+{$ENDIF}
+      EVPCleanup;
+      CRYPTOcleanupAllExData;
+      ErrRemoveState(0);
+    end;
+    SSLloaded := false;
+    if SSLLibHandle <> 0 then
+    begin
+{$IFNDEF CIL}
+      FreeLibrary(SSLLibHandle);
+{$ENDIF}
+      SSLLibHandle := 0;
+    end;
+    if SSLUtilHandle <> 0 then
+    begin
+{$IFNDEF CIL}
+      FreeLibrary(SSLUtilHandle);
+{$ENDIF}
+      SSLLibHandle := 0;
+    end;
+
+{$IFNDEF CIL}
+    _SslGetError := nil;
+    _SslLibraryInit := nil;
+    _SslLoadErrorStrings := nil;
+    _SslCtxSetCipherList := nil;
+    _SslCtxNew := nil;
+    _SslCtxFree := nil;
+    _SslSetFd := nil;
+    _SslMethodV2 := nil;
+    _SslMethodV3 := nil;
+    _SslMethodTLSV1 := nil;
+    _SslMethodV23 := nil;
+    _SslCtxUsePrivateKey := nil;
+    _SslCtxUsePrivateKeyASN1 := nil;
+    _SslCtxUsePrivateKeyFile := nil;
+    _SslCtxUseCertificate := nil;
+    _SslCtxUseCertificateASN1 := nil;
+    _SslCtxUseCertificateFile := nil;
+    _SslCtxUseCertificateChainFile := nil;
+    _SslCtxCheckPrivateKeyFile := nil;
+    _SslCtxSetDefaultPasswdCb := nil;
+    _SslCtxSetDefaultPasswdCbUserdata := nil;
+    _SslCtxLoadVerifyLocations := nil;
+    _SslNew := nil;
+    _SslFree := nil;
+    _SslAccept := nil;
+    _SslConnect := nil;
+    _SslShutdown := nil;
+    _SslRead := nil;
+    _SslPeek := nil;
+    _SslWrite := nil;
+    _SslPending := nil;
+    _SslGetPeerCertificate := nil;
+    _SslGetVersion := nil;
+    _SslCtxSetVerify := nil;
+    _SslGetCurrentCipher := nil;
+    _SslCipherGetName := nil;
+    _SslCipherGetBits := nil;
+    _SslGetVerifyResult := nil;
+
+    _X509New := nil;
+    _X509Free := nil;
+    _X509NameOneline := nil;
+    _X509GetSubjectName := nil;
+    _X509GetIssuerName := nil;
+    _X509NameHash := nil;
+    _X509Digest := nil;
+    _X509print := nil;
+    _X509SetVersion := nil;
+    _X509SetPubkey := nil;
+    _X509SetIssuerName := nil;
+    _X509NameAddEntryByTxt := nil;
+    _X509Sign := nil;
+    _X509GmtimeAdj := nil;
+    _X509SetNotBefore := nil;
+    _X509SetNotAfter := nil;
+    _X509GetSerialNumber := nil;
+    _EvpPkeyNew := nil;
+    _EvpPkeyFree := nil;
+    _EvpPkeyAssign := nil;
+    _EVPCleanup := nil;
+    _EvpGetDigestByName := nil;
+    _SSLeayversion := nil;
+    _ErrErrorString := nil;
+    _ErrGetError := nil;
+    _ErrClearError := nil;
+    _ErrFreeStrings := nil;
+    _ErrRemoveState := nil;
+    _OPENSSLaddallalgorithms := nil;
+    _CRYPTOcleanupAllExData := nil;
+    _RandScreen := nil;
+    _BioNew := nil;
+    _BioFreeAll := nil;
+    _BioSMem := nil;
+    _BioCtrlPending := nil;
+    _BioRead := nil;
+    _BioWrite := nil;
+    _d2iPKCS12bio := nil;
+    _PKCS12parse := nil;
+    _PKCS12free := nil;
+    _RsaGenerateKey := nil;
+    _Asn1UtctimeNew := nil;
+    _Asn1UtctimeFree := nil;
+    _Asn1IntegerSet := nil;
+    _i2dX509bio := nil;
+    _i2dPrivateKeyBio := nil;
+
+    // 3DES functions
+    _DESsetoddparity := nil;
+    _DESsetkeychecked := nil;
+    _DESecbencrypt := nil;
+    //
+    _CRYPTOnumlocks := nil;
+    _CRYPTOsetlockingcallback := nil;
+{$ENDIF}
+  finally
+    SSLCS.Leave;
+  end;
+  Result := True;
+end;
+
+function IsSSLloaded: Boolean;
+begin
+  Result := SSLLoaded;
+end;
+
+initialization
+begin
+  SSLCS:= TCriticalSection.Create;
+end;
+
+finalization
+begin
+{$IFNDEF CIL}
+  DestroySSLInterface;
+{$ENDIF}
+  SSLCS.Free;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_sbb.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_sbb.pas
new file mode 100644
index 0000000..c9380a4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_sbb.pas	
@@ -0,0 +1,697 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.000.003 |
+|==============================================================================|
+| Content: SSL support for SecureBlackBox                                     |
+|==============================================================================|
+| Copyright (c)1999-2005, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2005.                     |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|   Allen Drennan (adrennan@wiredred.com)                                      |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(SSL plugin for Eldos SecureBlackBox)
+
+For handling keys and certificates you can use this properties:
+@link(TCustomSSL.CertCAFile), @link(TCustomSSL.CertCA),
+@link(TCustomSSL.TrustCertificateFile), @link(TCustomSSL.TrustCertificate),
+@link(TCustomSSL.PrivateKeyFile), @link(TCustomSSL.PrivateKey),
+@link(TCustomSSL.CertificateFile), @link(TCustomSSL.Certificate),
+@link(TCustomSSL.PFXFile). For usage of this properties and for possible formats
+of keys and certificates refer to SecureBlackBox documentation.
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit ssl_sbb;
+
+interface
+
+uses
+  SysUtils, Classes, Windows, blcksock, synsock, synautil, synacode,
+  SBClient, SBServer, SBX509, SBWinCertStorage, SBCustomCertStorage,
+  SBUtils, SBConstants, SBSessionPool;
+
+const
+  DEFAULT_RECV_BUFFER=32768;
+
+type
+  {:@abstract(class implementing SecureBlackbox SSL plugin.)
+   Instance of this class will be created for each @link(TTCPBlockSocket).
+   You not need to create instance of this class, all is done by Synapse itself!}
+  TSSLSBB=class(TCustomSSL)
+  protected
+    FServer: Boolean;
+    FElSecureClient:TElSecureClient;
+    FElSecureServer:TElSecureServer;
+    FElCertStorage:TElMemoryCertStorage;
+    FElX509Certificate:TElX509Certificate;
+    FElX509CACertificate:TElX509Certificate;
+    FCipherSuites:TBits;
+  private
+    FRecvBuffer:String;
+    FRecvBuffers:String;
+    FRecvBuffersLock:TRTLCriticalSection;
+    FRecvDecodedBuffers:String;
+    function GetCipherSuite:Integer;
+    procedure Reset;
+    function Prepare(Server:Boolean):Boolean;
+    procedure OnError(Sender:TObject; ErrorCode:Integer; Fatal:Boolean; Remote:Boolean);
+    procedure OnSend(Sender:TObject;Buffer:Pointer;Size:LongInt);
+    procedure OnReceive(Sender:TObject;Buffer:Pointer;MaxSize:LongInt;var Written:LongInt);
+    procedure OnData(Sender:TObject;Buffer:Pointer;Size:LongInt);
+  public
+    constructor Create(const Value: TTCPBlockSocket); override;
+    destructor Destroy; override;
+    {:See @inherited}
+    function LibVersion: String; override;
+    {:See @inherited}
+    function LibName: String; override;
+    {:See @inherited and @link(ssl_sbb) for more details.}
+    function Connect: boolean; override;
+    {:See @inherited and @link(ssl_sbb) for more details.}
+    function Accept: boolean; override;
+    {:See @inherited}
+    function Shutdown: boolean; override;
+    {:See @inherited}
+    function BiShutdown: boolean; override;
+    {:See @inherited}
+    function SendBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+    {:See @inherited}
+    function RecvBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+    {:See @inherited}
+    function WaitingData: Integer; override;
+    {:See @inherited}
+    function GetSSLVersion: string; override;
+    {:See @inherited}
+    function GetPeerSubject: string; override;
+    {:See @inherited}
+    function GetPeerIssuer: string; override;
+    {:See @inherited}
+    function GetPeerName: string; override;
+    {:See @inherited}
+    function GetPeerFingerprint: string; override;
+    {:See @inherited}
+    function GetCertInfo: string; override;
+  published
+    property ElSecureClient:TElSecureClient read FElSecureClient write FElSecureClient;
+    property ElSecureServer:TElSecureServer read FElSecureServer write FElSecureServer;
+    property CipherSuites:TBits read FCipherSuites write FCipherSuites;
+    property CipherSuite:Integer read GetCipherSuite;
+  end;
+
+implementation
+
+var
+  FAcceptThread:THandle=0;
+
+// on error
+procedure TSSLSBB.OnError(Sender:TObject; ErrorCode:Integer; Fatal:Boolean; Remote:Boolean);
+
+begin
+  FLastErrorDesc:='';
+  FLastError:=ErrorCode;
+end;
+
+// on send
+procedure TSSLSBB.OnSend(Sender:TObject;Buffer:Pointer;Size:LongInt);
+
+var
+  lResult:Integer;
+
+begin
+  if FSocket.Socket=INVALID_SOCKET then
+    Exit;
+  lResult:=Send(FSocket.Socket,Buffer,Size,0);
+  if lResult=SOCKET_ERROR then
+    begin
+      FLastErrorDesc:='';
+      FLastError:=WSAGetLastError;
+    end;
+end;
+
+// on receive
+procedure TSSLSBB.OnReceive(Sender:TObject;Buffer:Pointer;MaxSize:LongInt;var Written:LongInt);
+
+begin
+  if GetCurrentThreadId<>FAcceptThread then EnterCriticalSection(FRecvBuffersLock);
+  try
+    if Length(FRecvBuffers)<=MaxSize then
+      begin
+        Written:=Length(FRecvBuffers);
+        Move(FRecvBuffers[1],Buffer^,Written);
+        FRecvBuffers:='';
+      end
+    else
+      begin
+        Written:=MaxSize;
+        Move(FRecvBuffers[1],Buffer^,Written);
+        Delete(FRecvBuffers,1,Written);
+      end;
+  finally
+    if GetCurrentThreadId<>FAcceptThread then LeaveCriticalSection(FRecvBuffersLock);
+  end;
+end;
+
+// on data
+procedure TSSLSBB.OnData(Sender:TObject;Buffer:Pointer;Size:LongInt);
+
+var
+  lString:String;
+
+begin
+  SetLength(lString,Size);
+  Move(Buffer^,lString[1],Size);
+  FRecvDecodedBuffers:=FRecvDecodedBuffers+lString;
+end;
+
+{ inherited }
+
+constructor TSSLSBB.Create(const Value: TTCPBlockSocket);
+
+var
+  loop1:Integer;
+
+begin
+  inherited Create(Value);
+  FServer:=FALSE;
+  FElSecureClient:=NIL;
+  FElSecureServer:=NIL;
+  FElCertStorage:=NIL;
+  FElX509Certificate:=NIL;
+  FElX509CACertificate:=NIL;
+  SetLength(FRecvBuffer,DEFAULT_RECV_BUFFER);
+  FRecvBuffers:='';
+  InitializeCriticalSection(FRecvBuffersLock);
+  FRecvDecodedBuffers:='';
+  FCipherSuites:=TBits.Create;
+  if FCipherSuites<>NIL then
+    begin
+      FCipherSuites.Size:=SB_SUITE_LAST+1;
+      for loop1:=SB_SUITE_FIRST to SB_SUITE_LAST do
+        FCipherSuites[loop1]:=TRUE;
+    end;
+end;
+
+destructor TSSLSBB.Destroy;
+
+begin
+  Reset;
+  inherited Destroy;
+  if FCipherSuites<>NIL then
+    FreeAndNIL(FCipherSuites);
+  DeleteCriticalSection(FRecvBuffersLock);
+end;
+
+function TSSLSBB.LibVersion: String;
+
+begin
+  Result:='SecureBlackBox';
+end;
+
+function TSSLSBB.LibName: String;
+
+begin
+  Result:='ssl_sbb';
+end;
+
+function FileToString(lFile:String):String;
+
+var
+  lStream:TMemoryStream;
+
+begin
+  Result:='';
+  lStream:=TMemoryStream.Create;
+  if lStream<>NIL then
+    begin
+      lStream.LoadFromFile(lFile);
+      if lStream.Size>0 then
+        begin
+          lStream.Position:=0;
+          SetLength(Result,lStream.Size);
+          Move(lStream.Memory^,Result[1],lStream.Size);
+        end;
+      lStream.Free;
+    end;
+end;
+
+function TSSLSBB.GetCipherSuite:Integer;
+
+begin
+  if FServer then
+    Result:=FElSecureServer.CipherSuite
+  else
+    Result:=FElSecureClient.CipherSuite;
+end;
+
+procedure TSSLSBB.Reset;
+
+begin
+  if FElSecureServer<>NIL then
+    FreeAndNIL(FElSecureServer);
+  if FElSecureClient<>NIL then
+    FreeAndNIL(FElSecureClient);
+  if FElX509Certificate<>NIL then
+    FreeAndNIL(FElX509Certificate);
+  if FElX509CACertificate<>NIL then
+    FreeAndNIL(FElX509CACertificate);
+  if FElCertStorage<>NIL then
+    FreeAndNIL(FElCertStorage);
+  FSSLEnabled:=FALSE;
+end;
+
+function TSSLSBB.Prepare(Server:Boolean): Boolean;
+
+var
+  loop1:Integer;
+  lStream:TMemoryStream;
+  lCertificate,lPrivateKey,lCertCA:String;
+
+begin
+  Result:=FALSE;
+  FServer:=Server;
+
+  // reset, if necessary
+  Reset;
+
+  // init, certificate
+  if FCertificateFile<>'' then
+    lCertificate:=FileToString(FCertificateFile)
+  else
+    lCertificate:=FCertificate;
+  if FPrivateKeyFile<>'' then
+    lPrivateKey:=FileToString(FPrivateKeyFile)
+  else
+    lPrivateKey:=FPrivateKey;
+  if FCertCAFile<>'' then
+    lCertCA:=FileToString(FCertCAFile)
+  else
+    lCertCA:=FCertCA;
+  if (lCertificate<>'') and (lPrivateKey<>'') then
+    begin
+      FElCertStorage:=TElMemoryCertStorage.Create(NIL);
+      if FElCertStorage<>NIL then
+        FElCertStorage.Clear;
+
+      // apply ca certificate
+      if lCertCA<>'' then
+        begin
+          FElX509CACertificate:=TElX509Certificate.Create(NIL);
+          if FElX509CACertificate<>NIL then
+            begin
+              with FElX509CACertificate do
+                begin
+                  lStream:=TMemoryStream.Create;
+                  try
+                    WriteStrToStream(lStream,lCertCA);
+                    lStream.Seek(0,soFromBeginning);
+                    LoadFromStream(lStream);
+                  finally
+                    lStream.Free;
+                  end;
+                end;
+              if FElCertStorage<>NIL then
+                FElCertStorage.Add(FElX509CACertificate);
+            end;
+        end;
+
+      // apply certificate
+      FElX509Certificate:=TElX509Certificate.Create(NIL);
+      if FElX509Certificate<>NIL then
+        begin
+          with FElX509Certificate do
+            begin
+              lStream:=TMemoryStream.Create;
+              try
+                WriteStrToStream(lStream,lCertificate);
+                lStream.Seek(0,soFromBeginning);
+                LoadFromStream(lStream);
+              finally
+                lStream.Free;
+              end;
+              lStream:=TMemoryStream.Create;
+              try
+                WriteStrToStream(lStream,lPrivateKey);
+                lStream.Seek(0,soFromBeginning);
+                LoadKeyFromStream(lStream);
+              finally
+                lStream.Free;
+              end;
+              if FElCertStorage<>NIL then
+                FElCertStorage.Add(FElX509Certificate);
+            end;
+        end;
+    end;
+
+  // init, as server
+  if FServer then
+    begin
+      FElSecureServer:=TElSecureServer.Create(NIL);
+      if FElSecureServer<>NIL then
+        begin
+          // init, ciphers
+          for loop1:=SB_SUITE_FIRST to SB_SUITE_LAST do
+            FElSecureServer.CipherSuites[loop1]:=FCipherSuites[loop1];
+          FElSecureServer.Versions:=[sbSSL2,sbSSL3,sbTLS1];
+          FElSecureServer.ClientAuthentication:=FALSE;
+          FElSecureServer.OnError:=OnError;
+          FElSecureServer.OnSend:=OnSend;
+          FElSecureServer.OnReceive:=OnReceive;
+          FElSecureServer.OnData:=OnData;
+          FElSecureServer.CertStorage:=FElCertStorage;
+          Result:=TRUE;
+        end;
+    end
+  else
+    // init, as client
+    begin
+      FElSecureClient:=TElSecureClient.Create(NIL);
+      if FElSecureClient<>NIL then
+        begin
+          // init, ciphers
+          for loop1:=SB_SUITE_FIRST to SB_SUITE_LAST do
+            FElSecureClient.CipherSuites[loop1]:=FCipherSuites[loop1];
+          FElSecureClient.Versions:=[sbSSL3,sbTLS1];
+          FElSecureClient.OnError:=OnError;
+          FElSecureClient.OnSend:=OnSend;
+          FElSecureClient.OnReceive:=OnReceive;
+          FElSecureClient.OnData:=OnData;
+          FElSecureClient.CertStorage:=FElCertStorage;
+          Result:=TRUE;
+        end;
+    end;
+end;
+
+function TSSLSBB.Connect:Boolean;
+
+var
+  lResult:Integer;
+
+begin
+  Result:=FALSE;
+  if FSocket.Socket=INVALID_SOCKET then
+    Exit;
+  if Prepare(FALSE) then
+    begin
+      FElSecureClient.Open;
+
+      // reset
+      FRecvBuffers:='';
+      FRecvDecodedBuffers:='';
+
+      // wait for open or error
+      while (not FElSecureClient.Active) and
+        (FLastError=0) do
+        begin
+          // data available?
+          if FRecvBuffers<>'' then
+            FElSecureClient.DataAvailable
+          else
+            begin
+              // socket recv
+              lResult:=Recv(FSocket.Socket,@FRecvBuffer[1],Length(FRecvBuffer),0);
+              if lResult=SOCKET_ERROR then
+                begin
+                  FLastErrorDesc:='';
+                  FLastError:=WSAGetLastError;
+                end
+              else
+                begin
+                  if lResult>0 then
+                    FRecvBuffers:=FRecvBuffers+Copy(FRecvBuffer,1,lResult)
+                  else
+                    Break;
+                end;
+            end;
+        end;
+      if FLastError<>0 then
+        Exit;
+      FSSLEnabled:=FElSecureClient.Active;
+      Result:=FSSLEnabled;
+    end;
+end;
+
+function TSSLSBB.Accept:Boolean;
+
+var
+  lResult:Integer;
+
+begin
+  Result:=FALSE;
+  if FSocket.Socket=INVALID_SOCKET then
+    Exit;
+  if Prepare(TRUE) then
+    begin
+      FAcceptThread:=GetCurrentThreadId;
+      FElSecureServer.Open;
+
+      // reset
+      FRecvBuffers:='';
+      FRecvDecodedBuffers:='';
+
+      // wait for open or error
+      while (not FElSecureServer.Active) and
+        (FLastError=0) do
+        begin
+          // data available?
+          if FRecvBuffers<>'' then
+            FElSecureServer.DataAvailable
+          else
+            begin
+              // socket recv
+              lResult:=Recv(FSocket.Socket,@FRecvBuffer[1],Length(FRecvBuffer),0);
+              if lResult=SOCKET_ERROR then
+                begin
+                  FLastErrorDesc:='';
+                  FLastError:=WSAGetLastError;
+                end
+              else
+                begin
+                  if lResult>0 then
+                    FRecvBuffers:=FRecvBuffers+Copy(FRecvBuffer,1,lResult)
+                  else
+                    Break;
+                end;
+            end;
+        end;
+      if FLastError<>0 then
+        Exit;
+      FSSLEnabled:=FElSecureServer.Active;
+      Result:=FSSLEnabled;
+    end;
+end;
+
+function TSSLSBB.Shutdown:Boolean;
+
+begin
+  Result:=BiShutdown;
+end;
+
+function TSSLSBB.BiShutdown: boolean;
+
+begin
+  Reset;
+  Result:=TRUE;
+end;
+
+function TSSLSBB.SendBuffer(Buffer: TMemory; Len: Integer): Integer;
+
+begin
+  if FServer then
+    FElSecureServer.SendData(Buffer,Len)
+  else
+    FElSecureClient.SendData(Buffer,Len);
+  Result:=Len;
+end;
+
+function TSSLSBB.RecvBuffer(Buffer: TMemory; Len: Integer): Integer;
+
+begin
+  Result:=0;
+  try
+    // recv waiting, if necessary
+    if FRecvDecodedBuffers='' then
+      WaitingData;
+
+    // received
+    if Length(FRecvDecodedBuffers)<Len then
+      begin
+        Result:=Length(FRecvDecodedBuffers);
+        Move(FRecvDecodedBuffers[1],Buffer^,Result);
+        FRecvDecodedBuffers:='';
+      end
+    else
+      begin
+        Result:=Len;
+        Move(FRecvDecodedBuffers[1],Buffer^,Result);
+        Delete(FRecvDecodedBuffers,1,Result);
+      end;
+  except
+    // ignore
+  end;
+end;
+
+function TSSLSBB.WaitingData: Integer;
+
+var
+  lResult:Integer;
+  lRecvBuffers:Boolean;
+
+begin
+  Result:=0;
+  if FSocket.Socket=INVALID_SOCKET then
+    Exit;
+  // data available?
+  if GetCurrentThreadId<>FAcceptThread then EnterCriticalSection(FRecvBuffersLock);
+  try
+    lRecvBuffers:=FRecvBuffers<>'';
+  finally
+    if GetCurrentThreadId<>FAcceptThread then LeaveCriticalSection(FRecvBuffersLock);
+  end;
+  if lRecvBuffers then
+    begin
+      if FServer then
+        FElSecureServer.DataAvailable
+      else
+        FElSecureClient.DataAvailable;
+    end
+  else
+    begin
+      // socket recv
+      lResult:=Recv(FSocket.Socket,@FRecvBuffer[1],Length(FRecvBuffer),0);
+      if lResult=SOCKET_ERROR then
+        begin
+          FLastErrorDesc:='';
+          FLastError:=WSAGetLastError;
+        end
+      else
+        begin
+          if GetCurrentThreadId<>FAcceptThread then EnterCriticalSection(FRecvBuffersLock);
+          try
+            FRecvBuffers:=FRecvBuffers+Copy(FRecvBuffer,1,lResult);
+          finally
+            if GetCurrentThreadId<>FAcceptThread then LeaveCriticalSection(FRecvBuffersLock);
+          end;
+
+          // data available?
+          if GetCurrentThreadId<>FAcceptThread then EnterCriticalSection(FRecvBuffersLock);
+          try
+            lRecvBuffers:=FRecvBuffers<>'';
+          finally
+            if GetCurrentThreadId<>FAcceptThread then LeaveCriticalSection(FRecvBuffersLock);
+          end;
+          if lRecvBuffers then
+            begin
+              if FServer then
+                FElSecureServer.DataAvailable
+              else
+                FElSecureClient.DataAvailable;
+            end;
+        end;
+    end;
+
+  // decoded buffers result
+  Result:=Length(FRecvDecodedBuffers);
+end;
+
+function TSSLSBB.GetSSLVersion: string;
+
+begin
+  Result:='SSLv3 or TLSv1';
+end;
+
+function TSSLSBB.GetPeerSubject: string;
+
+begin
+  Result := '';
+//  if FServer then
+    // must return subject of the client certificate
+//  else
+    // must return subject of the server certificate
+end;
+
+function TSSLSBB.GetPeerName: string;
+
+begin
+  Result := '';
+//  if FServer then
+    // must return commonname of the client certificate
+//  else
+    // must return commonname of the server certificate
+end;
+
+function TSSLSBB.GetPeerIssuer: string;
+
+begin
+  Result := '';
+//  if FServer then
+    // must return issuer of the client certificate
+//  else
+    // must return issuer of the server certificate
+end;
+
+function TSSLSBB.GetPeerFingerprint: string;
+
+begin
+  Result := '';
+//  if FServer then
+    // must return a unique hash string of the client certificate
+//  else
+    // must return a unique hash string of the server certificate
+end;
+
+function TSSLSBB.GetCertInfo: string;
+
+begin
+  Result := '';
+//  if FServer then
+    // must return a text representation of the ASN of the client certificate
+//  else
+    // must return a text representation of the ASN of the server certificate
+end;
+
+{==============================================================================}
+
+initialization
+  SSLImplementation := TSSLSBB;
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_streamsec.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_streamsec.pas
new file mode 100644
index 0000000..8c36ac8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/ssl_streamsec.pas	
@@ -0,0 +1,539 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.000.006 |
+|==============================================================================|
+| Content: SSL support by StreamSecII                                          |
+|==============================================================================|
+| Copyright (c)1999-2005, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2005.                     |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|   Henrick Hellstr�m <henrick@streamsec.se>                                   |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(SSL plugin for StreamSecII or OpenStreamSecII)
+
+StreamSecII is native pascal library, you not need any external libraries!
+
+You can tune lot of StreamSecII properties by using your GlobalServer. If you not
+using your GlobalServer, then this plugin create own TSimpleTLSInternalServer
+instance for each TCP connection. Formore information about GlobalServer usage
+refer StreamSecII documentation.
+
+If you are not using key and certificate by GlobalServer, then you can use
+properties of this plugin instead, but this have limited features and
+@link(TCustomSSL.KeyPassword) not working properly yet!
+
+For handling keys and certificates you can use this properties:
+@link(TCustomSSL.CertCAFile), @link(TCustomSSL.CertCA),
+@link(TCustomSSL.TrustCertificateFile), @link(TCustomSSL.TrustCertificate),
+@link(TCustomSSL.PrivateKeyFile), @link(TCustomSSL.PrivateKey),
+@link(TCustomSSL.CertificateFile), @link(TCustomSSL.Certificate),
+@link(TCustomSSL.PFXFile). For usage of this properties and for possible formats
+of keys and certificates refer to StreamSecII documentation.
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit ssl_streamsec;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synsock, synautil, synacode,
+  TlsInternalServer, TlsSynaSock, TlsConst, StreamSecII, Asn1, X509Base,
+  SecUtils;
+
+type
+  {:@exclude}
+  TMyTLSSynSockSlave = class(TTLSSynSockSlave)
+  protected
+    procedure SetMyTLSServer(const Value: TCustomTLSInternalServer);
+    function GetMyTLSServer: TCustomTLSInternalServer;
+  published
+    property MyTLSServer: TCustomTLSInternalServer read GetMyTLSServer write SetMyTLSServer;
+  end;
+
+  {:@abstract(class implementing StreamSecII SSL plugin.)
+   Instance of this class will be created for each @link(TTCPBlockSocket).
+   You not need to create instance of this class, all is done by Synapse itself!}
+  TSSLStreamSec = class(TCustomSSL)
+  protected
+    FSlave: TMyTLSSynSockSlave;
+    FIsServer: Boolean;
+    FTLSServer: TCustomTLSInternalServer;
+    FServerCreated: Boolean;
+    function SSLCheck: Boolean;
+    function Init(server:Boolean): Boolean;
+    function DeInit: Boolean;
+    function Prepare(server:Boolean): Boolean;
+    procedure NotTrustEvent(Sender: TObject; Cert: TASN1Struct; var ExplicitTrust: Boolean);
+    function X500StrToStr(const Prefix: string; const Value: TX500String): string;
+    function X501NameToStr(const Value: TX501Name): string;
+    function GetCert: PASN1Struct;
+  public
+    constructor Create(const Value: TTCPBlockSocket); override;
+    destructor Destroy; override;
+    {:See @inherited}
+    function LibVersion: String; override;
+    {:See @inherited}
+    function LibName: String; override;
+    {:See @inherited and @link(ssl_streamsec) for more details.}
+    function Connect: boolean; override;
+    {:See @inherited and @link(ssl_streamsec) for more details.}
+    function Accept: boolean; override;
+    {:See @inherited}
+    function Shutdown: boolean; override;
+    {:See @inherited}
+    function BiShutdown: boolean; override;
+    {:See @inherited}
+    function SendBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+    {:See @inherited}
+    function RecvBuffer(Buffer: TMemory; Len: Integer): Integer; override;
+    {:See @inherited}
+    function WaitingData: Integer; override;
+    {:See @inherited}
+    function GetSSLVersion: string; override;
+    {:See @inherited}
+    function GetPeerSubject: string; override;
+    {:See @inherited}
+    function GetPeerIssuer: string; override;
+    {:See @inherited}
+    function GetPeerName: string; override;
+    {:See @inherited}
+    function GetPeerFingerprint: string; override;
+    {:See @inherited}
+    function GetCertInfo: string; override;
+  published
+    {:TLS server for tuning of StreamSecII.}
+    property TLSServer: TCustomTLSInternalServer read FTLSServer write FTLSServer;
+  end;
+
+implementation
+
+{==============================================================================}
+procedure TMyTLSSynSockSlave.SetMyTLSServer(const Value: TCustomTLSInternalServer);
+begin
+  TLSServer := Value;
+end;
+
+function TMyTLSSynSockSlave.GetMyTLSServer: TCustomTLSInternalServer;
+begin
+  Result := TLSServer;
+end;
+
+{==============================================================================}
+
+constructor TSSLStreamSec.Create(const Value: TTCPBlockSocket);
+begin
+  inherited Create(Value);
+  FSlave := nil;
+  FIsServer := False;
+  FTLSServer := nil;
+end;
+
+destructor TSSLStreamSec.Destroy;
+begin
+  DeInit;
+  inherited Destroy;
+end;
+
+function TSSLStreamSec.LibVersion: String;
+begin
+  Result := 'StreamSecII';
+end;
+
+function TSSLStreamSec.LibName: String;
+begin
+  Result := 'ssl_streamsec';
+end;
+
+function TSSLStreamSec.SSLCheck: Boolean;
+begin
+  Result := true;
+  FLastErrorDesc := '';
+  if not Assigned(FSlave) then
+    Exit;
+  FLastError := FSlave.ErrorCode;
+  if FLastError <> 0 then
+  begin
+    FLastErrorDesc := TlsConst.AlertMsg(FLastError);
+  end;
+end;
+
+procedure TSSLStreamSec.NotTrustEvent(Sender: TObject; Cert: TASN1Struct; var ExplicitTrust: Boolean);
+begin
+  ExplicitTrust := true;
+end;
+
+function TSSLStreamSec.Init(server:Boolean): Boolean;
+var
+  st: TMemoryStream;
+  pass: ISecretKey;
+  ws: WideString;
+begin
+  Result := False;
+  ws := FKeyPassword;
+  pass := TSecretKey.CreateBmpStr(PWideChar(ws), length(ws));
+  try
+    FIsServer := Server;
+    FSlave := TMyTLSSynSockSlave.CreateSocket(FSocket.Socket);
+    if Assigned(FTLSServer) then
+      FSlave.MyTLSServer := FTLSServer
+    else
+      if Assigned(TLSInternalServer.GlobalServer) then
+        FSlave.MyTLSServer := TLSInternalServer.GlobalServer
+      else begin
+        FSlave.MyTLSServer := TSimpleTLSInternalServer.Create(nil);
+        FServerCreated := True;
+      end;
+    if server then
+      FSlave.MyTLSServer.ClientOrServer := cosServerSide
+    else
+      FSlave.MyTLSServer.ClientOrServer := cosClientSide;
+    if not FVerifyCert then
+    begin
+      FSlave.MyTLSServer.OnCertNotTrusted := NotTrustEvent;
+    end;
+    FSlave.MyTLSServer.Options.VerifyServerName := [];
+    FSlave.MyTLSServer.Options.Export40Bit := prAllowed;
+    FSlave.MyTLSServer.Options.Export56Bit := prAllowed;
+    FSlave.MyTLSServer.Options.RequestClientCertificate := False;
+    FSlave.MyTLSServer.Options.RequireClientCertificate := False;
+    if server and FVerifyCert then
+    begin
+      FSlave.MyTLSServer.Options.RequestClientCertificate := True;
+      FSlave.MyTLSServer.Options.RequireClientCertificate := True;
+    end;
+    if FCertCAFile <> '' then
+      FSlave.MyTLSServer.LoadRootCertsFromFile(CertCAFile);
+    if FCertCA <> '' then
+    begin
+      st := TMemoryStream.Create;
+      try
+        WriteStrToStream(st, FCertCA);
+        st.Seek(0, soFromBeginning);
+        FSlave.MyTLSServer.LoadRootCertsFromStream(st);
+      finally
+        st.free;
+      end;
+    end;
+    if FTrustCertificateFile <> '' then
+      FSlave.MyTLSServer.LoadTrustedCertsFromFile(FTrustCertificateFile);
+    if FTrustCertificate <> '' then
+    begin
+      st := TMemoryStream.Create;
+      try
+        WriteStrToStream(st, FTrustCertificate);
+        st.Seek(0, soFromBeginning);
+        FSlave.MyTLSServer.LoadTrustedCertsFromStream(st);
+      finally
+        st.free;
+      end;
+    end;
+    if FPrivateKeyFile <> '' then
+      FSlave.MyTLSServer.LoadPrivateKeyRingFromFile(FPrivateKeyFile, pass);
+//      FSlave.MyTLSServer.PrivateKeyRing.LoadPrivateKeyFromFile(FPrivateKeyFile, pass);
+    if FPrivateKey <> '' then
+    begin
+      st := TMemoryStream.Create;
+      try
+        WriteStrToStream(st, FPrivateKey);
+        st.Seek(0, soFromBeginning);
+        FSlave.MyTLSServer.LoadPrivateKeyRingFromStream(st, pass);
+      finally
+        st.free;
+      end;
+    end;
+    if FCertificateFile <> '' then
+      FSlave.MyTLSServer.LoadMyCertsFromFile(FCertificateFile);
+    if FCertificate <> '' then
+    begin
+      st := TMemoryStream.Create;
+      try
+        WriteStrToStream(st, FCertificate);
+        st.Seek(0, soFromBeginning);
+        FSlave.MyTLSServer.LoadMyCertsFromStream(st);
+      finally
+        st.free;
+      end;
+    end;
+    if FPFXfile <> '' then
+      FSlave.MyTLSServer.ImportFromPFX(FPFXfile, pass);
+    if server and FServerCreated then
+    begin
+      FSlave.MyTLSServer.Options.BulkCipherAES128 := prPrefer;
+      FSlave.MyTLSServer.Options.BulkCipherAES256 := prAllowed;
+      FSlave.MyTLSServer.Options.EphemeralECDHKeySize := ecs256;
+      FSlave.MyTLSServer.Options.SignatureRSA := prPrefer;
+      FSlave.MyTLSServer.Options.KeyAgreementRSA := prAllowed;
+      FSlave.MyTLSServer.Options.KeyAgreementECDHE := prAllowed;
+      FSlave.MyTLSServer.Options.KeyAgreementDHE := prPrefer;
+      FSlave.MyTLSServer.TLSSetupServer;
+    end;
+    Result := true;
+  finally
+    pass := nil;
+  end;
+end;
+
+function TSSLStreamSec.DeInit: Boolean;
+var
+  obj: TObject;
+begin
+  Result := True;
+  if assigned(FSlave) then
+  begin
+    FSlave.Close;
+    if FServerCreated then
+      obj := FSlave.TLSServer
+    else
+      obj := nil;
+    FSlave.Free;
+    obj.Free;
+    FSlave := nil;
+  end;
+  FSSLEnabled := false;
+end;
+
+function TSSLStreamSec.Prepare(server:Boolean): Boolean;
+begin
+  Result := false;
+  DeInit;
+  if Init(server) then
+    Result := true
+  else
+    DeInit;
+end;
+
+function TSSLStreamSec.Connect: boolean;
+begin
+  Result := False;
+  if FSocket.Socket = INVALID_SOCKET then
+    Exit;
+  if Prepare(false) then
+  begin
+    FSlave.Open;
+    SSLCheck;
+    if FLastError <> 0 then
+      Exit;
+    FSSLEnabled := True;
+    Result := True;
+  end;
+end;
+
+function TSSLStreamSec.Accept: boolean;
+begin
+  Result := False;
+  if FSocket.Socket = INVALID_SOCKET then
+    Exit;
+  if Prepare(true) then
+  begin
+    FSlave.DoConnect;
+    SSLCheck;
+    if FLastError <> 0 then
+      Exit;
+    FSSLEnabled := True;
+    Result := True;
+  end;
+end;
+
+function TSSLStreamSec.Shutdown: boolean;
+begin
+  Result := BiShutdown;
+end;
+
+function TSSLStreamSec.BiShutdown: boolean;
+begin
+  DeInit;
+  Result := True;
+end;
+
+function TSSLStreamSec.SendBuffer(Buffer: TMemory; Len: Integer): Integer;
+var
+  l: integer;
+begin
+  l := len;
+  FSlave.SendBuf(Buffer^, l, true);
+  Result := l;
+  SSLCheck;
+end;
+
+function TSSLStreamSec.RecvBuffer(Buffer: TMemory; Len: Integer): Integer;
+var
+  l: integer;
+begin
+  l := Len;
+  Result := FSlave.ReceiveBuf(Buffer^, l);
+  SSLCheck;
+end;
+
+function TSSLStreamSec.WaitingData: Integer;
+begin
+  Result := 0;
+  while FSlave.Connected do begin
+    Result := FSlave.ReceiveLength;
+    if Result > 0 then
+      Break;
+    Sleep(1);
+  end;
+end;
+
+function TSSLStreamSec.GetSSLVersion: string;
+begin
+  Result := 'SSLv3 or TLSv1';
+end;
+
+function TSSLStreamSec.GetCert: PASN1Struct;
+begin
+  if FIsServer then
+    Result := FSlave.GetClientCert
+  else
+    Result := FSlave.GetServerCert;
+end;
+
+function TSSLStreamSec.GetPeerSubject: string;
+var
+  XName: TX501Name;
+  Cert: PASN1Struct;
+begin
+  Result := '';
+  Cert := GetCert;
+  if Assigned(cert) then
+  begin
+    ExtractSubject(Cert^,XName, false);
+    Result := X501NameToStr(XName);
+  end;
+end;
+
+function TSSLStreamSec.GetPeerName: string;
+var
+  XName: TX501Name;
+  Cert: PASN1Struct;
+begin
+  Result := '';
+  Cert := GetCert;
+  if Assigned(cert) then
+  begin
+    ExtractSubject(Cert^,XName, false);
+    Result := XName.commonName.Str;
+  end;
+end;
+
+function TSSLStreamSec.GetPeerIssuer: string;
+var
+  XName: TX501Name;
+  Cert: PASN1Struct;
+begin
+  Result := '';
+  Cert := GetCert;
+  if Assigned(cert) then
+  begin
+    ExtractIssuer(Cert^, XName, false);
+    Result := X501NameToStr(XName);
+  end;
+end;
+
+function TSSLStreamSec.GetPeerFingerprint: string;
+var
+  Cert: PASN1Struct;
+begin
+  Result := '';
+  Cert := GetCert;
+  if Assigned(cert) then
+    Result := MD5(Cert.ContentAsOctetString);
+end;
+
+function TSSLStreamSec.GetCertInfo: string;
+var
+  Cert: PASN1Struct;
+  l: Tstringlist;
+begin
+  Result := '';
+  Cert := GetCert;
+  if Assigned(cert) then
+  begin
+    l := TStringList.Create;
+    try
+      Asn1.RenderAsText(cert^, l, true, true, true, 2);
+      Result := l.Text;
+    finally
+      l.free;
+    end;
+  end;
+end;
+
+function TSSLStreamSec.X500StrToStr(const Prefix: string;
+  const Value: TX500String): string;
+begin
+  if Value.Str = '' then
+    Result := ''
+  else
+    Result := '/' + Prefix + '=' + Value.Str;
+end;
+
+function TSSLStreamSec.X501NameToStr(const Value: TX501Name): string;
+begin
+  Result := X500StrToStr('CN',Value.commonName) +
+           X500StrToStr('C',Value.countryName) +
+           X500StrToStr('L',Value.localityName) +
+           X500StrToStr('ST',Value.stateOrProvinceName) +
+           X500StrToStr('O',Value.organizationName) +
+           X500StrToStr('OU',Value.organizationalUnitName) +
+           X500StrToStr('T',Value.title) +
+           X500StrToStr('N',Value.name) +
+           X500StrToStr('G',Value.givenName) +
+           X500StrToStr('I',Value.initials) +
+           X500StrToStr('SN',Value.surname) +
+           X500StrToStr('GQ',Value.generationQualifier) +
+           X500StrToStr('DNQ',Value.dnQualifier) +
+           X500StrToStr('E',Value.emailAddress);
+end;
+
+
+{==============================================================================}
+
+initialization
+  SSLImplementation := TSSLStreamSec;
+
+finalization
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sslinux.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sslinux.pas
new file mode 100644
index 0000000..c337281
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sslinux.pas	
@@ -0,0 +1,1313 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 002.000.008 |
+|==============================================================================|
+| Content: Socket Independent Platform Layer - Linux definition include        |
+|==============================================================================|
+| Copyright (c)1999-2003, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2003.                     |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@exclude}
+
+{$IFDEF LINUX}
+
+//{$DEFINE FORCEOLDAPI}
+{Note about define FORCEOLDAPI:
+If you activate this compiler directive, then is allways used old socket API
+for name resolution. If you leave this directive inactive, then the new API
+is used, when running system allows it.
+
+For IPv6 support you must have new API!
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+interface
+
+uses
+  SyncObjs, SysUtils, Classes,
+  synafpc,
+  Libc;
+
+function InitSocketInterface(stack: string): Boolean;
+function DestroySocketInterface: Boolean;
+
+const
+  WinsockLevel = $0202;
+
+type
+  u_char = Char;
+  u_short = Word;
+  u_int = Integer;
+  u_long = Longint;
+  pu_long = ^u_long;
+  pu_short = ^u_short;
+  TSocket = u_int;
+  TAddrFamily = integer;
+
+  TMemory = pointer;
+
+
+const
+  DLLStackName = 'libc.so.6';
+
+  cLocalhost = '127.0.0.1';
+  cAnyHost = '0.0.0.0';
+  cBroadcast = '255.255.255.255';
+  c6Localhost = '::1';
+  c6AnyHost = '::0';
+  c6Broadcast = 'ffff::1';
+  cAnyPort = '0';
+
+type
+  DWORD = Integer;
+  __fd_mask = LongWord;
+const
+  __FD_SETSIZE    = 1024;
+  __NFDBITS       = 8 * sizeof(__fd_mask);
+type
+  __fd_set = {packed} record
+    fds_bits: packed array[0..(__FD_SETSIZE div __NFDBITS)-1] of __fd_mask;
+  end;
+  TFDSet = __fd_set;
+  PFDSet = ^TFDSet;
+
+const
+  FIONREAD        = $541B;
+  FIONBIO         = $5421;
+  FIOASYNC        = $5452;
+
+type
+  PTimeVal = ^TTimeVal;
+  TTimeVal = packed record
+    tv_sec: Longint;
+    tv_usec: Longint;
+  end;
+
+const
+  IPPROTO_IP     =   0;		{ Dummy					}
+  IPPROTO_ICMP   =   1;		{ Internet Control Message Protocol }
+  IPPROTO_IGMP   =   2;		{ Internet Group Management Protocol}
+  IPPROTO_TCP    =   6;		{ TCP           			}
+  IPPROTO_UDP    =   17;	{ User Datagram Protocol		}
+  IPPROTO_IPV6   =   41;
+  IPPROTO_ICMPV6 =   58;
+
+  IPPROTO_RAW    =   255;
+  IPPROTO_MAX    =   256;
+
+type
+  PInAddr = ^TInAddr;
+  TInAddr = packed record
+    case integer of
+      0: (S_bytes: packed array [0..3] of byte);
+      1: (S_addr: u_long);
+  end;
+
+  PSockAddrIn = ^TSockAddrIn;
+  TSockAddrIn = packed record
+    case Integer of
+      0: (sin_family: u_short;
+          sin_port: u_short;
+          sin_addr: TInAddr;
+          sin_zero: array[0..7] of Char);
+      1: (sa_family: u_short;
+          sa_data: array[0..13] of Char)
+  end;
+
+  TIP_mreq =  record
+    imr_multiaddr: TInAddr;     { IP multicast address of group }
+    imr_interface: TInAddr;     { local IP address of interface }
+  end;
+
+  PInAddr6 = ^TInAddr6;
+  TInAddr6 = packed record
+    case integer of
+      0: (S6_addr: packed array [0..15] of byte);
+      1: (u6_addr8: packed array [0..15] of byte);
+      2: (u6_addr16: packed array [0..7] of word);
+      3: (u6_addr32: packed array [0..3] of integer);
+  end;
+
+  PSockAddrIn6 = ^TSockAddrIn6;
+  TSockAddrIn6 = packed record
+		sin6_family:   u_short;     // AF_INET6
+		sin6_port:     u_short;     // Transport level port number
+		sin6_flowinfo: u_long;	    // IPv6 flow information
+		sin6_addr:     TInAddr6;    // IPv6 address
+		sin6_scope_id: u_long;      // Scope Id: IF number for link-local
+                                //           SITE id for site-local
+  end;
+
+  TIPv6_mreq = record
+    ipv6mr_multiaddr: TInAddr6; // IPv6 multicast address.
+    ipv6mr_interface: integer;   // Interface index.
+    padding: u_long;
+  end;
+
+  PHostEnt = ^THostEnt;
+  THostent = record
+    h_name: PChar;
+    h_aliases: PPChar;
+    h_addrtype: Integer;
+    h_length: Cardinal;
+    case Byte of
+      0: (h_addr_list: PPChar);
+      1: (h_addr: PPChar);
+  end;
+
+  PNetEnt = ^TNetEnt;
+  TNetEnt = record
+    n_name: PChar;
+    n_aliases: PPChar;
+    n_addrtype: Integer;
+    n_net: uint32_t;
+  end;
+
+  PServEnt = ^TServEnt;
+  TServEnt = record
+    s_name: PChar;
+    s_aliases: PPChar;
+    s_port: Integer;
+    s_proto: PChar;
+  end;
+
+  PProtoEnt = ^TProtoEnt;
+  TProtoEnt = record
+    p_name: PChar;
+    p_aliases: ^PChar;
+    p_proto: u_short;
+  end;
+
+const
+  INADDR_ANY       = $00000000;
+  INADDR_LOOPBACK  = $7F000001;
+  INADDR_BROADCAST = $FFFFFFFF;
+  INADDR_NONE      = $FFFFFFFF;
+  ADDR_ANY		 = INADDR_ANY;
+  INVALID_SOCKET		= TSocket(NOT(0));
+  SOCKET_ERROR			= -1;
+
+Const
+  IP_TOS             = 1;  { int; IP type of service and precedence.  }
+  IP_TTL             = 2;  { int; IP time to live.  }
+  IP_HDRINCL         = 3;  { int; Header is included with data.  }
+  IP_OPTIONS         = 4;  { ip_opts; IP per-packet options.  }
+  IP_ROUTER_ALERT    = 5;  { bool }
+  IP_RECVOPTS        = 6;  { bool }
+  IP_RETOPTS         = 7;  { bool }
+  IP_PKTINFO         = 8;  { bool }
+  IP_PKTOPTIONS      = 9;
+  IP_PMTUDISC        = 10; { obsolete name? }
+  IP_MTU_DISCOVER    = 10; { int; see below }
+  IP_RECVERR         = 11; { bool }
+  IP_RECVTTL         = 12; { bool }
+  IP_RECVTOS         = 13; { bool }
+  IP_MULTICAST_IF    = 32; { in_addr; set/get IP multicast i/f }
+  IP_MULTICAST_TTL   = 33; { u_char; set/get IP multicast ttl }
+  IP_MULTICAST_LOOP  = 34; { i_char; set/get IP multicast loopback }
+  IP_ADD_MEMBERSHIP  = 35; { ip_mreq; add an IP group membership }
+  IP_DROP_MEMBERSHIP = 36; { ip_mreq; drop an IP group membership }
+
+  SOL_SOCKET    = 1;
+
+  SO_DEBUG      = 1;
+  SO_REUSEADDR  = 2;
+  SO_TYPE       = 3;
+  SO_ERROR      = 4;
+  SO_DONTROUTE  = 5;
+  SO_BROADCAST  = 6;
+  SO_SNDBUF     = 7;
+  SO_RCVBUF     = 8;
+  SO_KEEPALIVE  = 9;
+  SO_OOBINLINE  = 10;
+  SO_NO_CHECK   = 11;
+  SO_PRIORITY   = 12;
+  SO_LINGER     = 13;
+  SO_BSDCOMPAT  = 14;
+  SO_REUSEPORT  = 15;
+  SO_PASSCRED   = 16;
+  SO_PEERCRED   = 17;
+  SO_RCVLOWAT   = 18;
+  SO_SNDLOWAT   = 19;
+  SO_RCVTIMEO   = 20;
+  SO_SNDTIMEO   = 21;
+{ Security levels - as per NRL IPv6 - don't actually do anything }
+  SO_SECURITY_AUTHENTICATION       = 22;
+  SO_SECURITY_ENCRYPTION_TRANSPORT = 23;
+  SO_SECURITY_ENCRYPTION_NETWORK   = 24;
+  SO_BINDTODEVICE                  = 25;
+{ Socket filtering }
+  SO_ATTACH_FILTER = 26;
+  SO_DETACH_FILTER = 27;
+
+  SOMAXCONN       = 128;
+
+  IPV6_UNICAST_HOPS     = 16;
+  IPV6_MULTICAST_IF     = 17;
+  IPV6_MULTICAST_HOPS   = 18;
+  IPV6_MULTICAST_LOOP   = 19;
+  IPV6_JOIN_GROUP       = 20;
+  IPV6_LEAVE_GROUP      = 21;
+
+  MSG_NOSIGNAL  = $4000;                // Do not generate SIGPIPE.
+
+  // getnameinfo constants
+  NI_MAXHOST	   = 1025;
+  NI_MAXSERV	   = 32;
+  NI_NOFQDN 	   = $4;
+  NI_NUMERICHOST = $1;
+  NI_NAMEREQD	   = $8;
+  NI_NUMERICSERV = $2;
+  NI_DGRAM       = $10;
+
+const
+  SOCK_STREAM     = 1;               { stream socket }
+  SOCK_DGRAM      = 2;               { datagram socket }
+  SOCK_RAW        = 3;               { raw-protocol interface }
+  SOCK_RDM        = 4;               { reliably-delivered message }
+  SOCK_SEQPACKET  = 5;               { sequenced packet stream }
+
+{ TCP options. }
+  TCP_NODELAY     = $0001;
+
+{ Address families. }
+
+  AF_UNSPEC       = 0;               { unspecified }
+  AF_INET         = 2;               { internetwork: UDP, TCP, etc. }
+  AF_INET6        = 10;              { Internetwork Version 6 }
+  AF_MAX          = 24;
+
+{ Protocol families, same as address families for now. }
+  PF_UNSPEC       = AF_UNSPEC;
+  PF_INET         = AF_INET;
+  PF_INET6        = AF_INET6;
+  PF_MAX          = AF_MAX;
+
+type
+  { Structure used by kernel to store most addresses. }
+  PSockAddr = ^TSockAddr;
+  TSockAddr = TSockAddrIn;
+
+  { Structure used by kernel to pass protocol information in raw sockets. }
+  PSockProto = ^TSockProto;
+  TSockProto = packed record
+    sp_family: u_short;
+    sp_protocol: u_short;
+  end;
+
+type
+  PAddrInfo = ^TAddrInfo;
+  TAddrInfo = record
+                ai_flags: integer;    // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST.
+                ai_family: integer;   // PF_xxx.
+                ai_socktype: integer; // SOCK_xxx.
+                ai_protocol: integer; // 0 or IPPROTO_xxx for IPv4 and IPv6.
+                ai_addrlen: u_int;    // Length of ai_addr.
+                ai_addr: PSockAddr;   // Binary address.
+                ai_canonname: PChar;  // Canonical name for nodename.
+                ai_next: PAddrInfo;     // Next structure in linked list.
+              end;
+
+const
+  // Flags used in "hints" argument to getaddrinfo().
+  AI_PASSIVE     = $1;  // Socket address will be used in bind() call.
+  AI_CANONNAME   = $2;  // Return canonical name in first ai_canonname.
+  AI_NUMERICHOST = $4;  // Nodename must be a numeric address string.
+
+type
+{ Structure used for manipulating linger option. }
+  PLinger = ^TLinger;
+  TLinger = packed record
+    l_onoff: integer;
+    l_linger: integer;
+  end;
+
+const
+
+  MSG_OOB       = $01;                  // Process out-of-band data.
+  MSG_PEEK      = $02;                  // Peek at incoming messages.
+
+const
+  WSAEINTR = EINTR;
+  WSAEBADF = EBADF;
+  WSAEACCES = EACCES;
+  WSAEFAULT = EFAULT;
+  WSAEINVAL = EINVAL;
+  WSAEMFILE = EMFILE;
+  WSAEWOULDBLOCK = EWOULDBLOCK;
+  WSAEINPROGRESS = EINPROGRESS;
+  WSAEALREADY = EALREADY;
+  WSAENOTSOCK = ENOTSOCK;
+  WSAEDESTADDRREQ = EDESTADDRREQ;
+  WSAEMSGSIZE = EMSGSIZE;
+  WSAEPROTOTYPE = EPROTOTYPE;
+  WSAENOPROTOOPT = ENOPROTOOPT;
+  WSAEPROTONOSUPPORT = EPROTONOSUPPORT;
+  WSAESOCKTNOSUPPORT = ESOCKTNOSUPPORT;
+  WSAEOPNOTSUPP = EOPNOTSUPP;
+  WSAEPFNOSUPPORT = EPFNOSUPPORT;
+  WSAEAFNOSUPPORT = EAFNOSUPPORT;
+  WSAEADDRINUSE = EADDRINUSE;
+  WSAEADDRNOTAVAIL = EADDRNOTAVAIL;
+  WSAENETDOWN = ENETDOWN;
+  WSAENETUNREACH = ENETUNREACH;
+  WSAENETRESET = ENETRESET;
+  WSAECONNABORTED = ECONNABORTED;
+  WSAECONNRESET = ECONNRESET;
+  WSAENOBUFS = ENOBUFS;
+  WSAEISCONN = EISCONN;
+  WSAENOTCONN = ENOTCONN;
+  WSAESHUTDOWN = ESHUTDOWN;
+  WSAETOOMANYREFS = ETOOMANYREFS;
+  WSAETIMEDOUT = ETIMEDOUT;
+  WSAECONNREFUSED = ECONNREFUSED;
+  WSAELOOP = ELOOP;
+  WSAENAMETOOLONG = ENAMETOOLONG;
+  WSAEHOSTDOWN = EHOSTDOWN;
+  WSAEHOSTUNREACH = EHOSTUNREACH;
+  WSAENOTEMPTY = ENOTEMPTY;
+  WSAEPROCLIM = -1;
+  WSAEUSERS = EUSERS;
+  WSAEDQUOT = EDQUOT;
+  WSAESTALE = ESTALE;
+  WSAEREMOTE = EREMOTE;
+  WSASYSNOTREADY = -2;
+  WSAVERNOTSUPPORTED = -3;
+  WSANOTINITIALISED = -4;
+  WSAEDISCON = -5;
+  WSAHOST_NOT_FOUND = HOST_NOT_FOUND;
+  WSATRY_AGAIN = TRY_AGAIN;
+  WSANO_RECOVERY = NO_RECOVERY;
+  WSANO_DATA = -6;
+
+  EAI_BADFLAGS    = -1;   { Invalid value for `ai_flags' field.  }
+  EAI_NONAME      = -2;   { NAME or SERVICE is unknown.  }
+  EAI_AGAIN       = -3;   { Temporary failure in name resolution.  }
+  EAI_FAIL        = -4;   { Non-recoverable failure in name res.  }
+  EAI_NODATA      = -5;   { No address associated with NAME.  }
+  EAI_FAMILY      = -6;   { `ai_family' not supported.  }
+  EAI_SOCKTYPE    = -7;   { `ai_socktype' not supported.  }
+  EAI_SERVICE     = -8;   { SERVICE not supported for `ai_socktype'.  }
+  EAI_ADDRFAMILY  = -9;   { Address family for NAME not supported.  }
+  EAI_MEMORY      = -10;  { Memory allocation failure.  }
+  EAI_SYSTEM      = -11;  { System error returned in `errno'.  }
+
+const
+  WSADESCRIPTION_LEN     =   256;
+  WSASYS_STATUS_LEN      =   128;
+type
+  PWSAData = ^TWSAData;
+  TWSAData = packed record
+    wVersion: Word;
+    wHighVersion: Word;
+    szDescription: array[0..WSADESCRIPTION_LEN] of Char;
+    szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char;
+    iMaxSockets: Word;
+    iMaxUdpDg: Word;
+    lpVendorInfo: PChar;
+  end;
+
+  function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
+  function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6):boolean;
+  procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
+  procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
+var
+  in6addr_any, in6addr_loopback : TInAddr6;
+
+procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
+function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
+procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
+procedure FD_ZERO(var FDSet: TFDSet);
+
+{=============================================================================}
+
+type
+  TWSAStartup = function(wVersionRequired: Word; var WSData: TWSAData): Integer;
+    cdecl;
+  TWSACleanup = function: Integer;
+    cdecl;
+  TWSAGetLastError = function: Integer;
+    cdecl;
+  TGetServByName = function(name, proto: PChar): PServEnt;
+    cdecl;
+  TGetServByPort = function(port: Integer; proto: PChar): PServEnt;
+    cdecl;
+  TGetProtoByName = function(name: PChar): PProtoEnt;
+    cdecl;
+  TGetProtoByNumber = function(proto: Integer): PProtoEnt;
+    cdecl;
+  TGetHostByName = function(name: PChar): PHostEnt;
+    cdecl;
+  TGetHostByAddr = function(addr: Pointer; len, Struc: Integer): PHostEnt;
+    cdecl;
+  TGetHostName = function(name: PChar; len: Integer): Integer;
+    cdecl;
+  TShutdown = function(s: TSocket; how: Integer): Integer;
+    cdecl;
+  TSetSockOpt = function(s: TSocket; level, optname: Integer; optval: PChar;
+    optlen: Integer): Integer;
+    cdecl;
+  TGetSockOpt = function(s: TSocket; level, optname: Integer; optval: PChar;
+    var optlen: Integer): Integer;
+    cdecl;
+  TSendTo = function(s: TSocket; const Buf; len, flags: Integer; addrto: PSockAddr;
+    tolen: Integer): Integer;
+    cdecl;
+  TSend = function(s: TSocket; const Buf; len, flags: Integer): Integer;
+    cdecl;
+  TRecv = function(s: TSocket; var Buf; len, flags: Integer): Integer;
+    cdecl;
+  TRecvFrom = function(s: TSocket; var Buf; len, flags: Integer; from: PSockAddr;
+    var fromlen: Integer): Integer;
+    cdecl;
+  Tntohs = function(netshort: u_short): u_short;
+    cdecl;
+  Tntohl = function(netlong: u_long): u_long;
+    cdecl;
+  TListen = function(s: TSocket; backlog: Integer): Integer;
+    cdecl;
+  TIoctlSocket = function(s: TSocket; cmd: DWORD; var arg: integer): Integer;
+    cdecl;
+  TInet_ntoa = function(inaddr: TInAddr): PChar;
+    cdecl;
+  TInet_addr = function(cp: PChar): u_long;
+    cdecl;
+  Thtons = function(hostshort: u_short): u_short;
+    cdecl;
+  Thtonl = function(hostlong: u_long): u_long;
+    cdecl;
+  TGetSockName = function(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
+    cdecl;
+  TGetPeerName = function(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
+    cdecl;
+  TConnect = function(s: TSocket; name: PSockAddr; namelen: Integer): Integer;
+    cdecl;
+  TCloseSocket = function(s: TSocket): Integer;
+    cdecl;
+  TBind = function(s: TSocket; addr: PSockAddr; namelen: Integer): Integer;
+    cdecl;
+  TAccept = function(s: TSocket; addr: PSockAddr; var addrlen: Integer): TSocket;
+    cdecl;
+  TTSocket = function(af, Struc, Protocol: Integer): TSocket;
+    cdecl;
+  TSelect = function(nfds: Integer; readfds, writefds, exceptfds: PFDSet;
+    timeout: PTimeVal): Longint;
+    cdecl;
+
+  TGetAddrInfo = function(NodeName: PChar; ServName: PChar; Hints: PAddrInfo;
+    var Addrinfo: PAddrInfo): integer;
+    cdecl;
+  TFreeAddrInfo = procedure(ai: PAddrInfo);
+    cdecl;
+  TGetNameInfo = function( addr: PSockAddr; namelen: Integer; host: PChar;
+    hostlen: DWORD; serv: PChar; servlen: DWORD; flags: integer): integer;
+    cdecl;
+
+var
+  WSAStartup: TWSAStartup = nil;
+  WSACleanup: TWSACleanup = nil;
+  WSAGetLastError: TWSAGetLastError = nil;
+  GetServByName: TGetServByName = nil;
+  GetServByPort: TGetServByPort = nil;
+  GetProtoByName: TGetProtoByName = nil;
+  GetProtoByNumber: TGetProtoByNumber = nil;
+  GetHostByName: TGetHostByName = nil;
+  GetHostByAddr: TGetHostByAddr = nil;
+  ssGetHostName: TGetHostName = nil;
+  Shutdown: TShutdown = nil;
+  SetSockOpt: TSetSockOpt = nil;
+  GetSockOpt: TGetSockOpt = nil;
+  ssSendTo: TSendTo = nil;
+  ssSend: TSend = nil;
+  ssRecv: TRecv = nil;
+  ssRecvFrom: TRecvFrom = nil;
+  ntohs: Tntohs = nil;
+  ntohl: Tntohl = nil;
+  Listen: TListen = nil;
+  IoctlSocket: TIoctlSocket = nil;
+  Inet_ntoa: TInet_ntoa = nil;
+  Inet_addr: TInet_addr = nil;
+  htons: Thtons = nil;
+  htonl: Thtonl = nil;
+  ssGetSockName: TGetSockName = nil;
+  ssGetPeerName: TGetPeerName = nil;
+  ssConnect: TConnect = nil;
+  CloseSocket: TCloseSocket = nil;
+  ssBind: TBind = nil;
+  ssAccept: TAccept = nil;
+  Socket: TTSocket = nil;
+  Select: TSelect = nil;
+
+  GetAddrInfo: TGetAddrInfo = nil;
+  FreeAddrInfo: TFreeAddrInfo = nil;
+  GetNameInfo: TGetNameInfo = nil;
+
+function LSWSAStartup(wVersionRequired: Word; var WSData: TWSAData): Integer; cdecl;
+function LSWSACleanup: Integer; cdecl;
+function LSWSAGetLastError: Integer; cdecl;
+
+var
+  SynSockCS: SyncObjs.TCriticalSection;
+  SockEnhancedApi: Boolean;
+  SockWship6Api: Boolean;
+
+type
+  TVarSin = packed record
+    case integer of
+      0: (AddressFamily: u_short);
+      1: (
+        case sin_family: u_short of
+          AF_INET: (sin_port: u_short;
+                    sin_addr: TInAddr;
+                    sin_zero: array[0..7] of Char);
+          AF_INET6: (sin6_port:     u_short;
+                		sin6_flowinfo: u_long;
+      	    	      sin6_addr:     TInAddr6;
+      		          sin6_scope_id: u_long);
+          );
+  end;
+
+function SizeOfVarSin(sin: TVarSin): integer;
+
+function Bind(s: TSocket; const addr: TVarSin): Integer;
+function Connect(s: TSocket; const name: TVarSin): Integer;
+function GetSockName(s: TSocket; var name: TVarSin): Integer;
+function GetPeerName(s: TSocket; var name: TVarSin): Integer;
+function GetHostName: string;
+function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+function Accept(s: TSocket; var addr: TVarSin): TSocket;
+
+function IsNewApi(Family: integer): Boolean;
+function SetVarSin(var Sin: TVarSin; IP, Port: string; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
+function GetSinIP(Sin: TVarSin): string;
+function GetSinPort(Sin: TVarSin): Integer;
+procedure ResolveNameToIP(Name: string;  Family, SockProtocol, SockType: integer; const IPList: TStrings);
+function ResolveIPToName(IP: string; Family, SockProtocol, SockType: integer): string;
+function ResolvePort(Port: string; Family, SockProtocol, SockType: integer): Word;
+
+{==============================================================================}
+implementation
+
+var
+  SynSockCount: Integer = 0;
+  LibHandle: TLibHandle = 0;
+  Libwship6Handle: TLibHandle = 0;
+
+function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr32[0] = 0) and (a^.u6_addr32[1] = 0) and
+             (a^.u6_addr32[2] = 0) and (a^.u6_addr32[3] = 0));
+end;
+
+function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr32[0] = 0) and (a^.u6_addr32[1] = 0) and
+             (a^.u6_addr32[2] = 0) and
+             (a^.u6_addr8[12] = 0) and (a^.u6_addr8[13] = 0) and
+             (a^.u6_addr8[14] = 0) and (a^.u6_addr8[15] = 1));
+end;
+
+function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr8[0] = $FE) and (a^.u6_addr8[1] = $80));
+end;
+
+function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr8[0] = $FE) and (a^.u6_addr8[1] = $C0));
+end;
+
+function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
+begin
+  Result := (a^.u6_addr8[0] = $FF);
+end;
+
+function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6): boolean;
+begin
+  Result := (CompareMem( a, b, sizeof(TInAddr6)));
+end;
+
+procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
+begin
+  FillChar(a^, sizeof(TInAddr6), 0);
+end;
+
+procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
+begin
+  FillChar(a^, sizeof(TInAddr6), 0);
+  a^.u6_addr8[15] := 1;
+end;
+
+{=============================================================================}
+var
+{$IFNDEF VER1_0}  //FTP version 1.0.x
+  errno_loc: function: PInteger cdecl = nil;
+{$ELSE}
+  errno_loc: function: PInteger = nil; cdecl;
+{$ENDIF}
+
+function LSWSAStartup(wVersionRequired: Word; var WSData: TWSAData): Integer;
+begin
+  with WSData do
+  begin
+    wVersion := wVersionRequired;
+    wHighVersion := $202;
+    szDescription := 'Synsock - Synapse Platform Independent Socket Layer';
+    szSystemStatus := 'Running on Linux';
+    iMaxSockets := 32768;
+    iMaxUdpDg := 8192;
+  end;
+  Result := 0;
+end;
+
+function LSWSACleanup: Integer;
+begin
+  Result := 0;
+end;
+
+function LSWSAGetLastError: Integer;
+var
+  p: PInteger;
+begin
+  p := errno_loc;
+  Result := p^;
+end;
+
+function __FDELT(Socket: TSocket): Integer;
+begin
+  Result := Socket div __NFDBITS;
+end;
+
+function __FDMASK(Socket: TSocket): __fd_mask;
+begin
+  Result := LongWord(1) shl (Socket mod __NFDBITS);
+end;
+
+function FD_ISSET(Socket: TSocket; var fdset: TFDSet): Boolean;
+begin
+  Result := (fdset.fds_bits[__FDELT(Socket)] and __FDMASK(Socket)) <> 0;
+end;
+
+procedure FD_SET(Socket: TSocket; var fdset: TFDSet);
+begin
+  fdset.fds_bits[__FDELT(Socket)] := fdset.fds_bits[__FDELT(Socket)] or __FDMASK(Socket);
+end;
+
+procedure FD_CLR(Socket: TSocket; var fdset: TFDSet);
+begin
+  fdset.fds_bits[__FDELT(Socket)] := fdset.fds_bits[__FDELT(Socket)] and (not __FDMASK(Socket));
+end;
+
+procedure FD_ZERO(var fdset: TFDSet);
+var
+  I: Integer;
+begin
+  with fdset do
+    for I := Low(fds_bits) to High(fds_bits) do
+      fds_bits[I] := 0;
+end;
+
+{=============================================================================}
+
+function SizeOfVarSin(sin: TVarSin): integer;
+begin
+  case sin.sin_family of
+    AF_INET:
+            Result := SizeOf(TSockAddrIn);
+    AF_INET6:
+            Result := SizeOf(TSockAddrIn6);
+  else
+    Result := 0;
+  end;
+end;
+
+{=============================================================================}
+
+function Bind(s: TSocket; const addr: TVarSin): Integer;
+begin
+  Result := ssBind(s, @addr, SizeOfVarSin(addr));
+end;
+
+function Connect(s: TSocket; const name: TVarSin): Integer;
+begin
+  Result := ssConnect(s, @name, SizeOfVarSin(name));
+end;
+
+function GetSockName(s: TSocket; var name: TVarSin): Integer;
+var
+  len: integer;
+begin
+  len := SizeOf(name);
+  FillChar(name, len, 0);
+  Result := ssGetSockName(s, @name, Len);
+end;
+
+function GetPeerName(s: TSocket; var name: TVarSin): Integer;
+var
+  len: integer;
+begin
+  len := SizeOf(name);
+  FillChar(name, len, 0);
+  Result := ssGetPeerName(s, @name, Len);
+end;
+
+function GetHostName: string;
+var
+  s: string;
+begin
+  Result := '';
+  setlength(s, 255);
+  ssGetHostName(pchar(s), Length(s) - 1);
+  Result := Pchar(s);
+end;
+
+function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+begin
+  Result := ssSend(s, Buf^, len, flags);
+end;
+
+function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+begin
+  Result := ssRecv(s, Buf^, len, flags);
+end;
+
+function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+begin
+  Result := ssSendTo(s, Buf^, len, flags, @addrto, SizeOfVarSin(addrto));
+end;
+
+function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+var
+  x: integer;
+begin
+  x := SizeOf(from);
+  Result := ssRecvFrom(s, Buf^, len, flags, @from, x);
+end;
+
+function Accept(s: TSocket; var addr: TVarSin): TSocket;
+var
+  x: integer;
+begin
+  x := SizeOf(addr);
+  Result := ssAccept(s, @addr, x);
+end;
+
+{=============================================================================}
+function IsNewApi(Family: integer): Boolean;
+begin
+  Result := SockEnhancedApi;
+  if not Result then
+    Result := (Family = AF_INET6) and SockWship6Api;
+end;
+
+function SetVarSin(var Sin: TVarSin; IP, Port: string; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
+type
+  pu_long = ^u_long;
+var
+  ProtoEnt: PProtoEnt;
+  ServEnt: PServEnt;
+  HostEnt: PHostEnt;
+  r: integer;
+  Hints1, Hints2: TAddrInfo;
+  Sin1, Sin2: TVarSin;
+  TwoPass: boolean;
+
+  function GetAddr(const IP, port: string; Hints: TAddrInfo; var Sin: TVarSin): integer;
+  var
+    Addr: PAddrInfo;
+  begin
+    Addr := nil;
+    try
+      FillChar(Sin, Sizeof(Sin), 0);
+      if Hints.ai_socktype = SOCK_RAW then
+      begin
+        Hints.ai_socktype := 0;
+        Hints.ai_protocol := 0;
+        Result := synsock.GetAddrInfo(PChar(IP), nil, @Hints, Addr);
+      end
+      else
+      begin
+        if (IP = cAnyHost) or (IP = c6AnyHost) then
+        begin
+          Hints.ai_flags := AI_PASSIVE;
+          Result := synsock.GetAddrInfo(nil, PChar(Port), @Hints, Addr);
+        end
+        else
+          if (IP = cLocalhost) or (IP = c6Localhost) then
+          begin
+            Result := synsock.GetAddrInfo(nil, PChar(Port), @Hints, Addr);
+          end
+          else
+          begin
+            Result := synsock.GetAddrInfo(PChar(IP), PChar(Port), @Hints, Addr);
+          end;
+      end;
+      if Result = 0 then
+        if (Addr <> nil) then
+          Move(Addr^.ai_addr^, Sin, Addr^.ai_addrlen);
+    finally
+      if Assigned(Addr) then
+        synsock.FreeAddrInfo(Addr);
+    end;
+  end;
+
+begin
+  Result := 0;
+  FillChar(Sin, Sizeof(Sin), 0);
+  if not IsNewApi(family) then
+  begin
+    SynSockCS.Enter;
+    try
+      Sin.sin_family := AF_INET;
+      ProtoEnt := synsock.GetProtoByNumber(SockProtocol);
+      ServEnt := nil;
+      if ProtoEnt <> nil then
+        ServEnt := synsock.GetServByName(PChar(Port), ProtoEnt^.p_name);
+      if ServEnt = nil then
+        Sin.sin_port := synsock.htons(StrToIntDef(Port, 0))
+      else
+        Sin.sin_port := ServEnt^.s_port;
+      if IP = cBroadcast then
+        Sin.sin_addr.s_addr := u_long(INADDR_BROADCAST)
+      else
+      begin
+        Sin.sin_addr.s_addr := synsock.inet_addr(PChar(IP));
+        if Sin.sin_addr.s_addr = u_long(INADDR_NONE) then
+        begin
+          HostEnt := synsock.GetHostByName(PChar(IP));
+          Result := synsock.WSAGetLastError;
+          if HostEnt <> nil then
+            Sin.sin_addr.S_addr := u_long(Pu_long(HostEnt^.h_addr_list^)^);
+        end;
+      end;
+    finally
+      SynSockCS.Leave;
+    end;
+  end
+  else
+  begin
+    FillChar(Hints1, Sizeof(Hints1), 0);
+    FillChar(Hints2, Sizeof(Hints2), 0);
+    TwoPass := False;
+    if Family = AF_UNSPEC then
+    begin
+      if PreferIP4 then
+      begin
+        Hints1.ai_family := AF_INET;
+        Hints2.ai_family := AF_INET6;
+        TwoPass := True;
+      end
+      else
+      begin
+        Hints2.ai_family := AF_INET;
+        Hints1.ai_family := AF_INET6;
+        TwoPass := True;
+      end;
+    end
+    else
+      Hints1.ai_family := Family;
+
+    Hints1.ai_socktype := SockType;
+    Hints1.ai_protocol := SockProtocol;
+    Hints2.ai_socktype := Hints1.ai_socktype;
+    Hints2.ai_protocol := Hints1.ai_protocol;
+
+    r := GetAddr(IP, Port, Hints1, Sin1);
+    Result := r;
+    sin := sin1;
+    if r <> 0 then
+      if TwoPass then
+      begin
+        r := GetAddr(IP, Port, Hints2, Sin2);
+        Result := r;
+        if r = 0 then
+          sin := sin2;
+      end;
+  end;
+end;
+
+function GetSinIP(Sin: TVarSin): string;
+var
+  p: PChar;
+  host, serv: string;
+  hostlen, servlen: integer;
+  r: integer;
+begin
+  Result := '';
+  if not IsNewApi(Sin.AddressFamily) then
+  begin
+    p := synsock.inet_ntoa(Sin.sin_addr);
+    if p <> nil then
+      Result := p;
+  end
+  else
+  begin
+    hostlen := NI_MAXHOST;
+    servlen := NI_MAXSERV;
+    setlength(host, hostlen);
+    setlength(serv, servlen);
+    r := getnameinfo(@sin, SizeOfVarSin(sin), PChar(host), hostlen,
+      PChar(serv), servlen, NI_NUMERICHOST + NI_NUMERICSERV);
+    if r = 0 then
+      Result := PChar(host);
+  end;
+end;
+
+function GetSinPort(Sin: TVarSin): Integer;
+begin
+  if (Sin.sin_family = AF_INET6) then
+    Result := synsock.ntohs(Sin.sin6_port)
+  else
+    Result := synsock.ntohs(Sin.sin_port);
+end;
+
+procedure ResolveNameToIP(Name: string; Family, SockProtocol, SockType: integer; const IPList: TStrings);
+type
+  TaPInAddr = array[0..250] of PInAddr;
+  PaPInAddr = ^TaPInAddr;
+var
+  Hints: TAddrInfo;
+  Addr: PAddrInfo;
+  AddrNext: PAddrInfo;
+  r: integer;
+  host, serv: string;
+  hostlen, servlen: integer;
+  RemoteHost: PHostEnt;
+  IP: u_long;
+  PAdrPtr: PaPInAddr;
+  i: Integer;
+  s: string;
+  InAddr: TInAddr;
+begin
+  IPList.Clear;
+  if not IsNewApi(Family) then
+  begin
+    IP := synsock.inet_addr(PChar(Name));
+    if IP = u_long(INADDR_NONE) then
+    begin
+      SynSockCS.Enter;
+      try
+        RemoteHost := synsock.GetHostByName(PChar(Name));
+        if RemoteHost <> nil then
+        begin
+          PAdrPtr := PAPInAddr(RemoteHost^.h_addr_list);
+          i := 0;
+          while PAdrPtr^[i] <> nil do
+          begin
+            InAddr := PAdrPtr^[i]^;
+            s := Format('%d.%d.%d.%d', [InAddr.S_bytes[0], InAddr.S_bytes[1],
+              InAddr.S_bytes[2], InAddr.S_bytes[3]]);
+            IPList.Add(s);
+            Inc(i);
+          end;
+        end;
+      finally
+        SynSockCS.Leave;
+      end;
+    end
+    else
+      IPList.Add(Name);
+  end
+  else
+  begin
+    Addr := nil;
+    try
+      FillChar(Hints, Sizeof(Hints), 0);
+      Hints.ai_family := AF_UNSPEC;
+      Hints.ai_socktype := SockType;
+      Hints.ai_protocol := SockProtocol;
+      Hints.ai_flags := 0;
+      r := synsock.GetAddrInfo(PChar(Name), nil, @Hints, Addr);
+      if r = 0 then
+      begin
+        AddrNext := Addr;
+        while not(AddrNext = nil) do
+        begin
+          if not(((Family = AF_INET6) and (AddrNext^.ai_family = AF_INET))
+            or ((Family = AF_INET) and (AddrNext^.ai_family = AF_INET6))) then
+          begin
+            hostlen := NI_MAXHOST;
+            servlen := NI_MAXSERV;
+            setlength(host, hostlen);
+            setlength(serv, servlen);
+            r := getnameinfo(AddrNext^.ai_addr, AddrNext^.ai_addrlen,
+              PChar(host), hostlen, PChar(serv), servlen,
+              NI_NUMERICHOST + NI_NUMERICSERV);
+            if r = 0 then
+            begin
+              host := PChar(host);
+              IPList.Add(host);
+            end;
+          end;
+          AddrNext := AddrNext^.ai_next;
+        end;
+      end;
+    finally
+      if Assigned(Addr) then
+        synsock.FreeAddrInfo(Addr);
+    end;
+  end;
+  if IPList.Count = 0 then
+    IPList.Add(cAnyHost);
+end;
+
+function ResolvePort(Port: string; Family, SockProtocol, SockType: integer): Word;
+var
+  ProtoEnt: PProtoEnt;
+  ServEnt: PServEnt;
+  Hints: TAddrInfo;
+  Addr: PAddrInfo;
+  r: integer;
+begin
+  Result := 0;
+  if not IsNewApi(Family) then
+  begin
+    SynSockCS.Enter;
+    try
+      ProtoEnt := synsock.GetProtoByNumber(SockProtocol);
+      ServEnt := nil;
+      if ProtoEnt <> nil then
+        ServEnt := synsock.GetServByName(PChar(Port), ProtoEnt^.p_name);
+      if ServEnt = nil then
+        Result := StrToIntDef(Port, 0)
+      else
+        Result := synsock.htons(ServEnt^.s_port);
+    finally
+      SynSockCS.Leave;
+    end;
+  end
+  else
+  begin
+    Addr := nil;
+    try
+      FillChar(Hints, Sizeof(Hints), 0);
+      Hints.ai_family := AF_UNSPEC;
+      Hints.ai_socktype := SockType;
+      Hints.ai_protocol := Sockprotocol;
+      Hints.ai_flags := AI_PASSIVE;
+      r := synsock.GetAddrInfo(nil, PChar(Port), @Hints, Addr);
+      if (r = 0) and Assigned(Addr) then
+      begin
+        if Addr^.ai_family = AF_INET then
+          Result := synsock.htons(Addr^.ai_addr^.sin_port);
+        if Addr^.ai_family = AF_INET6 then
+          Result := synsock.htons(PSockAddrIn6(Addr^.ai_addr)^.sin6_port);
+      end;
+    finally
+      if Assigned(Addr) then
+        synsock.FreeAddrInfo(Addr);
+    end;
+  end;
+end;
+
+function ResolveIPToName(IP: string; Family, SockProtocol, SockType: integer): string;
+var
+  Hints: TAddrInfo;
+  Addr: PAddrInfo;
+  r: integer;
+  host, serv: string;
+  hostlen, servlen: integer;
+  RemoteHost: PHostEnt;
+  IPn: u_long;
+begin
+  Result := IP;
+  if not IsNewApi(Family) then
+  begin
+    IPn := synsock.inet_addr(PChar(IP));
+    if IPn <> u_long(INADDR_NONE) then
+    begin
+      SynSockCS.Enter;
+      try
+        RemoteHost := GetHostByAddr(@IPn, SizeOf(IPn), AF_INET);
+        if RemoteHost <> nil then
+          Result := RemoteHost^.h_name;
+      finally
+        SynSockCS.Leave;
+      end;
+    end;
+  end
+  else
+  begin
+    Addr := nil;
+    try
+      FillChar(Hints, Sizeof(Hints), 0);
+      Hints.ai_family := AF_UNSPEC;
+      Hints.ai_socktype := SockType;
+      Hints.ai_protocol := SockProtocol;
+      Hints.ai_flags := 0;
+      r := synsock.GetAddrInfo(PChar(IP), nil, @Hints, Addr);
+      if (r = 0) and Assigned(Addr)then
+      begin
+        hostlen := NI_MAXHOST;
+        servlen := NI_MAXSERV;
+        setlength(host, hostlen);
+        setlength(serv, servlen);
+        r := getnameinfo(Addr^.ai_addr, Addr^.ai_addrlen,
+          PChar(host), hostlen, PChar(serv), servlen,
+          NI_NUMERICSERV);
+        if r = 0 then
+          Result := PChar(host);
+      end;
+    finally
+      if Assigned(Addr) then
+        synsock.FreeAddrInfo(Addr);
+    end;
+  end;
+end;
+
+{=============================================================================}
+
+function InitSocketInterface(stack: string): Boolean;
+begin
+  Result := False;
+  SockEnhancedApi := False;
+  if stack = '' then
+    stack := DLLStackName;
+  SynSockCS.Enter;
+  try
+    if SynSockCount = 0 then
+    begin
+      SockEnhancedApi := False;
+      SockWship6Api := False;
+      Libc.Signal(Libc.SIGPIPE, TSignalHandler(Libc.SIG_IGN));
+      LibHandle := LoadLibrary(PChar(Stack));
+      if LibHandle <> 0 then
+      begin
+        errno_loc := GetProcAddress(LibHandle, PChar('__errno_location'));
+        CloseSocket := GetProcAddress(LibHandle, PChar('close'));
+        IoctlSocket := GetProcAddress(LibHandle, PChar('ioctl'));
+        WSAGetLastError := LSWSAGetLastError;
+        WSAStartup := LSWSAStartup;
+        WSACleanup := LSWSACleanup;
+        ssAccept := GetProcAddress(LibHandle, PChar('accept'));
+        ssBind := GetProcAddress(LibHandle, PChar('bind'));
+        ssConnect := GetProcAddress(LibHandle, PChar('connect'));
+        ssGetPeerName := GetProcAddress(LibHandle, PChar('getpeername'));
+        ssGetSockName := GetProcAddress(LibHandle, PChar('getsockname'));
+        GetSockOpt := GetProcAddress(LibHandle, PChar('getsockopt'));
+        Htonl := GetProcAddress(LibHandle, PChar('htonl'));
+        Htons := GetProcAddress(LibHandle, PChar('htons'));
+        Inet_Addr := GetProcAddress(LibHandle, PChar('inet_addr'));
+        Inet_Ntoa := GetProcAddress(LibHandle, PChar('inet_ntoa'));
+        Listen := GetProcAddress(LibHandle, PChar('listen'));
+        Ntohl := GetProcAddress(LibHandle, PChar('ntohl'));
+        Ntohs := GetProcAddress(LibHandle, PChar('ntohs'));
+        ssRecv := GetProcAddress(LibHandle, PChar('recv'));
+        ssRecvFrom := GetProcAddress(LibHandle, PChar('recvfrom'));
+        Select := GetProcAddress(LibHandle, PChar('select'));
+        ssSend := GetProcAddress(LibHandle, PChar('send'));
+        ssSendTo := GetProcAddress(LibHandle, PChar('sendto'));
+        SetSockOpt := GetProcAddress(LibHandle, PChar('setsockopt'));
+        ShutDown := GetProcAddress(LibHandle, PChar('shutdown'));
+        Socket := GetProcAddress(LibHandle, PChar('socket'));
+        GetHostByAddr := GetProcAddress(LibHandle, PChar('gethostbyaddr'));
+        GetHostByName := GetProcAddress(LibHandle, PChar('gethostbyname'));
+        GetProtoByName := GetProcAddress(LibHandle, PChar('getprotobyname'));
+        GetProtoByNumber := GetProcAddress(LibHandle, PChar('getprotobynumber'));
+        GetServByName := GetProcAddress(LibHandle, PChar('getservbyname'));
+        GetServByPort := GetProcAddress(LibHandle, PChar('getservbyport'));
+        ssGetHostName := GetProcAddress(LibHandle, PChar('gethostname'));
+
+{$IFNDEF FORCEOLDAPI}
+        GetAddrInfo := GetProcAddress(LibHandle, PChar('getaddrinfo'));
+        FreeAddrInfo := GetProcAddress(LibHandle, PChar('freeaddrinfo'));
+        GetNameInfo := GetProcAddress(LibHandle, PChar('getnameinfo'));
+        SockEnhancedApi := Assigned(GetAddrInfo) and Assigned(FreeAddrInfo)
+          and Assigned(GetNameInfo);
+{$ENDIF}
+        Result := True;
+      end;
+    end
+    else Result := True;
+    if Result then
+      Inc(SynSockCount);
+  finally
+    SynSockCS.Leave;
+  end;
+end;
+
+function DestroySocketInterface: Boolean;
+begin
+  SynSockCS.Enter;
+  try
+    Dec(SynSockCount);
+    if SynSockCount < 0 then
+      SynSockCount := 0;
+    if SynSockCount = 0 then
+    begin
+      if LibHandle <> 0 then
+      begin
+        FreeLibrary(libHandle);
+        LibHandle := 0;
+      end;
+      if LibWship6Handle <> 0 then
+      begin
+        FreeLibrary(LibWship6Handle);
+        LibWship6Handle := 0;
+      end;
+    end;
+  finally
+    SynSockCS.Leave;
+  end;
+  Result := True;
+end;
+
+initialization
+begin
+  SynSockCS := SyncObjs.TCriticalSection.Create;
+  SET_IN6_IF_ADDR_ANY (@in6addr_any);
+  SET_LOOPBACK_ADDR6  (@in6addr_loopback);
+end;
+
+finalization
+begin
+  SynSockCS.Free;
+end;
+
+{$ENDIF}
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sswin32.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sswin32.pas
new file mode 100644
index 0000000..202e288
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/sswin32.pas	
@@ -0,0 +1,1586 @@
+{$IFDEF WIN64}{$DEFINE WIN32}{$ENDIF}
+{==============================================================================|
+| Project : Ararat Synapse                                       | 002.002.000 |
+|==============================================================================|
+| Content: Socket Independent Platform Layer - Win32 definition include        |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2003.                     |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@exclude}
+
+{$IFDEF WIN32}
+
+//{$DEFINE WINSOCK1}
+{Note about define WINSOCK1:
+If you activate this compiler directive, then socket interface level 1.1 is
+used instead default level 2.2. Level 2.2 is not available on old W95, however
+you can install update.
+}
+
+//{$DEFINE FORCEOLDAPI}
+{Note about define FORCEOLDAPI:
+If you activate this compiler directive, then is allways used old socket API
+for name resolution. If you leave this directive inactive, then the new API
+is used, when running system allows it.
+
+For IPv6 support you must have new API!
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+{$IFDEF VER125}
+  {$DEFINE BCB}
+{$ENDIF}
+{$IFDEF BCB}
+  {$ObjExportAll On}
+  (*$HPPEMIT '/* EDE 2003-02-19 */' *)
+  (*$HPPEMIT 'namespace Synsock { using System::Shortint; }' *)
+  (*$HPPEMIT '#undef h_addr' *)
+  (*$HPPEMIT '#undef IOCPARM_MASK' *)
+  (*$HPPEMIT '#undef FD_SETSIZE' *)
+  (*$HPPEMIT '#undef IOC_VOID' *)
+  (*$HPPEMIT '#undef IOC_OUT' *)
+  (*$HPPEMIT '#undef IOC_IN' *)
+  (*$HPPEMIT '#undef IOC_INOUT' *)
+  (*$HPPEMIT '#undef FIONREAD' *)
+  (*$HPPEMIT '#undef FIONBIO' *)
+  (*$HPPEMIT '#undef FIOASYNC' *)
+  (*$HPPEMIT '#undef IPPROTO_IP' *)
+  (*$HPPEMIT '#undef IPPROTO_ICMP' *)
+  (*$HPPEMIT '#undef IPPROTO_IGMP' *)
+  (*$HPPEMIT '#undef IPPROTO_TCP' *)
+  (*$HPPEMIT '#undef IPPROTO_UDP' *)
+  (*$HPPEMIT '#undef IPPROTO_RAW' *)
+  (*$HPPEMIT '#undef IPPROTO_MAX' *)
+  (*$HPPEMIT '#undef INADDR_ANY' *)
+  (*$HPPEMIT '#undef INADDR_LOOPBACK' *)
+  (*$HPPEMIT '#undef INADDR_BROADCAST' *)
+  (*$HPPEMIT '#undef INADDR_NONE' *)
+  (*$HPPEMIT '#undef INVALID_SOCKET' *)
+  (*$HPPEMIT '#undef SOCKET_ERROR' *)
+  (*$HPPEMIT '#undef WSADESCRIPTION_LEN' *)
+  (*$HPPEMIT '#undef WSASYS_STATUS_LEN' *)
+  (*$HPPEMIT '#undef IP_OPTIONS' *)
+  (*$HPPEMIT '#undef IP_TOS' *)
+  (*$HPPEMIT '#undef IP_TTL' *)
+  (*$HPPEMIT '#undef IP_MULTICAST_IF' *)
+  (*$HPPEMIT '#undef IP_MULTICAST_TTL' *)
+  (*$HPPEMIT '#undef IP_MULTICAST_LOOP' *)
+  (*$HPPEMIT '#undef IP_ADD_MEMBERSHIP' *)
+  (*$HPPEMIT '#undef IP_DROP_MEMBERSHIP' *)
+  (*$HPPEMIT '#undef IP_DONTFRAGMENT' *)
+  (*$HPPEMIT '#undef IP_DEFAULT_MULTICAST_TTL' *)
+  (*$HPPEMIT '#undef IP_DEFAULT_MULTICAST_LOOP' *)
+  (*$HPPEMIT '#undef IP_MAX_MEMBERSHIPS' *)
+  (*$HPPEMIT '#undef SOL_SOCKET' *)
+  (*$HPPEMIT '#undef SO_DEBUG' *)
+  (*$HPPEMIT '#undef SO_ACCEPTCONN' *)
+  (*$HPPEMIT '#undef SO_REUSEADDR' *)
+  (*$HPPEMIT '#undef SO_KEEPALIVE' *)
+  (*$HPPEMIT '#undef SO_DONTROUTE' *)
+  (*$HPPEMIT '#undef SO_BROADCAST' *)
+  (*$HPPEMIT '#undef SO_USELOOPBACK' *)
+  (*$HPPEMIT '#undef SO_LINGER' *)
+  (*$HPPEMIT '#undef SO_OOBINLINE' *)
+  (*$HPPEMIT '#undef SO_DONTLINGER' *)
+  (*$HPPEMIT '#undef SO_SNDBUF' *)
+  (*$HPPEMIT '#undef SO_RCVBUF' *)
+  (*$HPPEMIT '#undef SO_SNDLOWAT' *)
+  (*$HPPEMIT '#undef SO_RCVLOWAT' *)
+  (*$HPPEMIT '#undef SO_SNDTIMEO' *)
+  (*$HPPEMIT '#undef SO_RCVTIMEO' *)
+  (*$HPPEMIT '#undef SO_ERROR' *)
+  (*$HPPEMIT '#undef SO_OPENTYPE' *)
+  (*$HPPEMIT '#undef SO_SYNCHRONOUS_ALERT' *)
+  (*$HPPEMIT '#undef SO_SYNCHRONOUS_NONALERT' *)
+  (*$HPPEMIT '#undef SO_MAXDG' *)
+  (*$HPPEMIT '#undef SO_MAXPATHDG' *)
+  (*$HPPEMIT '#undef SO_UPDATE_ACCEPT_CONTEXT' *)
+  (*$HPPEMIT '#undef SO_CONNECT_TIME' *)
+  (*$HPPEMIT '#undef SO_TYPE' *)
+  (*$HPPEMIT '#undef SOCK_STREAM' *)
+  (*$HPPEMIT '#undef SOCK_DGRAM' *)
+  (*$HPPEMIT '#undef SOCK_RAW' *)
+  (*$HPPEMIT '#undef SOCK_RDM' *)
+  (*$HPPEMIT '#undef SOCK_SEQPACKET' *)
+  (*$HPPEMIT '#undef TCP_NODELAY' *)
+  (*$HPPEMIT '#undef AF_UNSPEC' *)
+  (*$HPPEMIT '#undef SOMAXCONN' *)
+  (*$HPPEMIT '#undef AF_INET' *)
+  (*$HPPEMIT '#undef AF_MAX' *)
+  (*$HPPEMIT '#undef PF_UNSPEC' *)
+  (*$HPPEMIT '#undef PF_INET' *)
+  (*$HPPEMIT '#undef PF_MAX' *)
+  (*$HPPEMIT '#undef MSG_OOB' *)
+  (*$HPPEMIT '#undef MSG_PEEK' *)
+  (*$HPPEMIT '#undef WSABASEERR' *)
+  (*$HPPEMIT '#undef WSAEINTR' *)
+  (*$HPPEMIT '#undef WSAEBADF' *)
+  (*$HPPEMIT '#undef WSAEACCES' *)
+  (*$HPPEMIT '#undef WSAEFAULT' *)
+  (*$HPPEMIT '#undef WSAEINVAL' *)
+  (*$HPPEMIT '#undef WSAEMFILE' *)
+  (*$HPPEMIT '#undef WSAEWOULDBLOCK' *)
+  (*$HPPEMIT '#undef WSAEINPROGRESS' *)
+  (*$HPPEMIT '#undef WSAEALREADY' *)
+  (*$HPPEMIT '#undef WSAENOTSOCK' *)
+  (*$HPPEMIT '#undef WSAEDESTADDRREQ' *)
+  (*$HPPEMIT '#undef WSAEMSGSIZE' *)
+  (*$HPPEMIT '#undef WSAEPROTOTYPE' *)
+  (*$HPPEMIT '#undef WSAENOPROTOOPT' *)
+  (*$HPPEMIT '#undef WSAEPROTONOSUPPORT' *)
+  (*$HPPEMIT '#undef WSAESOCKTNOSUPPORT' *)
+  (*$HPPEMIT '#undef WSAEOPNOTSUPP' *)
+  (*$HPPEMIT '#undef WSAEPFNOSUPPORT' *)
+  (*$HPPEMIT '#undef WSAEAFNOSUPPORT' *)
+  (*$HPPEMIT '#undef WSAEADDRINUSE' *)
+  (*$HPPEMIT '#undef WSAEADDRNOTAVAIL' *)
+  (*$HPPEMIT '#undef WSAENETDOWN' *)
+  (*$HPPEMIT '#undef WSAENETUNREACH' *)
+  (*$HPPEMIT '#undef WSAENETRESET' *)
+  (*$HPPEMIT '#undef WSAECONNABORTED' *)
+  (*$HPPEMIT '#undef WSAECONNRESET' *)
+  (*$HPPEMIT '#undef WSAENOBUFS' *)
+  (*$HPPEMIT '#undef WSAEISCONN' *)
+  (*$HPPEMIT '#undef WSAENOTCONN' *)
+  (*$HPPEMIT '#undef WSAESHUTDOWN' *)
+  (*$HPPEMIT '#undef WSAETOOMANYREFS' *)
+  (*$HPPEMIT '#undef WSAETIMEDOUT' *)
+  (*$HPPEMIT '#undef WSAECONNREFUSED' *)
+  (*$HPPEMIT '#undef WSAELOOP' *)
+  (*$HPPEMIT '#undef WSAENAMETOOLONG' *)
+  (*$HPPEMIT '#undef WSAEHOSTDOWN' *)
+  (*$HPPEMIT '#undef WSAEHOSTUNREACH' *)
+  (*$HPPEMIT '#undef WSAENOTEMPTY' *)
+  (*$HPPEMIT '#undef WSAEPROCLIM' *)
+  (*$HPPEMIT '#undef WSAEUSERS' *)
+  (*$HPPEMIT '#undef WSAEDQUOT' *)
+  (*$HPPEMIT '#undef WSAESTALE' *)
+  (*$HPPEMIT '#undef WSAEREMOTE' *)
+  (*$HPPEMIT '#undef WSASYSNOTREADY' *)
+  (*$HPPEMIT '#undef WSAVERNOTSUPPORTED' *)
+  (*$HPPEMIT '#undef WSANOTINITIALISED' *)
+  (*$HPPEMIT '#undef WSAEDISCON' *)
+  (*$HPPEMIT '#undef WSAENOMORE' *)
+  (*$HPPEMIT '#undef WSAECANCELLED' *)
+  (*$HPPEMIT '#undef WSAEEINVALIDPROCTABLE' *)
+  (*$HPPEMIT '#undef WSAEINVALIDPROVIDER' *)
+  (*$HPPEMIT '#undef WSAEPROVIDERFAILEDINIT' *)
+  (*$HPPEMIT '#undef WSASYSCALLFAILURE' *)
+  (*$HPPEMIT '#undef WSASERVICE_NOT_FOUND' *)
+  (*$HPPEMIT '#undef WSATYPE_NOT_FOUND' *)
+  (*$HPPEMIT '#undef WSA_E_NO_MORE' *)
+  (*$HPPEMIT '#undef WSA_E_CANCELLED' *)
+  (*$HPPEMIT '#undef WSAEREFUSED' *)
+  (*$HPPEMIT '#undef WSAHOST_NOT_FOUND' *)
+  (*$HPPEMIT '#undef HOST_NOT_FOUND' *)
+  (*$HPPEMIT '#undef WSATRY_AGAIN' *)
+  (*$HPPEMIT '#undef TRY_AGAIN' *)
+  (*$HPPEMIT '#undef WSANO_RECOVERY' *)
+  (*$HPPEMIT '#undef NO_RECOVERY' *)
+  (*$HPPEMIT '#undef WSANO_DATA' *)
+  (*$HPPEMIT '#undef NO_DATA' *)
+  (*$HPPEMIT '#undef WSANO_ADDRESS' *)
+  (*$HPPEMIT '#undef ENAMETOOLONG' *)
+  (*$HPPEMIT '#undef ENOTEMPTY' *)
+  (*$HPPEMIT '#undef FD_CLR' *)
+  (*$HPPEMIT '#undef FD_ISSET' *)
+  (*$HPPEMIT '#undef FD_SET' *)
+  (*$HPPEMIT '#undef FD_ZERO' *)
+  (*$HPPEMIT '#undef NO_ADDRESS' *)
+  (*$HPPEMIT '#undef ADDR_ANY' *)
+  (*$HPPEMIT '#undef SO_GROUP_ID' *)
+  (*$HPPEMIT '#undef SO_GROUP_PRIORITY' *)
+  (*$HPPEMIT '#undef SO_MAX_MSG_SIZE' *)
+  (*$HPPEMIT '#undef SO_PROTOCOL_INFOA' *)
+  (*$HPPEMIT '#undef SO_PROTOCOL_INFOW' *)
+  (*$HPPEMIT '#undef SO_PROTOCOL_INFO' *)
+  (*$HPPEMIT '#undef PVD_CONFIG' *)
+  (*$HPPEMIT '#undef AF_INET6' *)
+  (*$HPPEMIT '#undef PF_INET6' *)
+{$ENDIF}
+
+interface
+
+uses
+  SyncObjs, SysUtils, Classes,
+  Windows;
+
+function InitSocketInterface(stack: String): Boolean;
+function DestroySocketInterface: Boolean;
+
+const
+{$IFDEF WINSOCK1}
+  WinsockLevel = $0101;
+{$ELSE}
+  WinsockLevel = $0202;
+{$ENDIF}
+
+type
+  u_short = Word;
+  u_int = Integer;
+  u_long = Longint;
+  pu_long = ^u_long;
+  pu_short = ^u_short;
+  TSocket = u_int;
+  TAddrFamily = integer;
+
+  TMemory = pointer;
+
+const
+  {$IFDEF WINSOCK1}
+    DLLStackName = 'wsock32.dll';
+  {$ELSE}
+    DLLStackName = 'ws2_32.dll';
+  {$ENDIF}
+  DLLwship6 = 'wship6.dll';
+
+  cLocalhost = '127.0.0.1';
+  cAnyHost = '0.0.0.0';
+  cBroadcast = '255.255.255.255';
+  c6Localhost = '::1';
+  c6AnyHost = '::0';
+  c6Broadcast = 'ffff::1';
+  cAnyPort = '0';
+  
+
+const
+  FD_SETSIZE     =   64;
+type
+  PFDSet = ^TFDSet;
+  TFDSet = packed record
+    fd_count: u_int;
+    fd_array: array[0..FD_SETSIZE-1] of TSocket;
+  end;
+
+const
+  FIONREAD     = $4004667f;
+  FIONBIO      = $8004667e;
+  FIOASYNC     = $8004667d;
+
+type
+  PTimeVal = ^TTimeVal;
+  TTimeVal = packed record
+    tv_sec: Longint;
+    tv_usec: Longint;
+  end;
+
+const
+  IPPROTO_IP     =   0;		{ Dummy					}
+  IPPROTO_ICMP   =   1;		{ Internet Control Message Protocol }
+  IPPROTO_IGMP   =   2;		{ Internet Group Management Protocol}
+  IPPROTO_TCP    =   6;		{ TCP           			}
+  IPPROTO_UDP    =   17;	{ User Datagram Protocol		}
+  IPPROTO_IPV6   =   41;
+  IPPROTO_ICMPV6 =   58;
+
+  IPPROTO_RAW    =   255;
+  IPPROTO_MAX    =   256;
+
+type
+
+  PInAddr = ^TInAddr;
+  TInAddr = packed record
+    case integer of
+      0: (S_bytes: packed array [0..3] of byte);
+      1: (S_addr: u_long);
+  end;
+
+  PSockAddrIn = ^TSockAddrIn;
+  TSockAddrIn = packed record
+    case Integer of
+      0: (sin_family: u_short;
+          sin_port: u_short;
+          sin_addr: TInAddr;
+          sin_zero: array[0..7] of byte);
+      1: (sa_family: u_short;
+          sa_data: array[0..13] of byte)
+  end;
+
+  TIP_mreq =  record
+    imr_multiaddr: TInAddr;     { IP multicast address of group }
+    imr_interface: TInAddr;     { local IP address of interface }
+  end;
+
+  PInAddr6 = ^TInAddr6;
+  TInAddr6 = packed record
+    case integer of
+      0: (S6_addr: packed array [0..15] of byte);
+      1: (u6_addr8: packed array [0..15] of byte);
+      2: (u6_addr16: packed array [0..7] of word);
+      3: (u6_addr32: packed array [0..3] of integer);
+  end;
+
+  PSockAddrIn6 = ^TSockAddrIn6;
+  TSockAddrIn6 = packed record
+		sin6_family:   u_short;     // AF_INET6
+		sin6_port:     u_short;     // Transport level port number
+		sin6_flowinfo: u_long;	    // IPv6 flow information
+		sin6_addr:     TInAddr6;    // IPv6 address
+		sin6_scope_id: u_long;      // Scope Id: IF number for link-local
+                                //           SITE id for site-local
+  end;
+
+  TIPv6_mreq = record
+    ipv6mr_multiaddr: TInAddr6; // IPv6 multicast address.
+    ipv6mr_interface: integer;   // Interface index.
+    padding: integer;
+  end;
+
+  PHostEnt = ^THostEnt;
+  THostEnt = packed record
+    h_name: PAnsiChar;
+    h_aliases: ^PAnsiChar;
+    h_addrtype: Smallint;
+    h_length: Smallint;
+    case integer of
+     0: (h_addr_list: ^PAnsiChar);
+     1: (h_addr: ^PInAddr);
+  end;
+
+  PNetEnt = ^TNetEnt;
+  TNetEnt = packed record
+    n_name: PAnsiChar;
+    n_aliases: ^PAnsiChar;
+    n_addrtype: Smallint;
+    n_net: u_long;
+  end;
+
+  PServEnt = ^TServEnt;
+  TServEnt = packed record
+    s_name: PAnsiChar;
+    s_aliases: ^PAnsiChar;
+    s_port: Smallint;
+    s_proto: PAnsiChar;
+  end;
+
+  PProtoEnt = ^TProtoEnt;
+  TProtoEnt = packed record
+    p_name: PAnsiChar;
+    p_aliases: ^PAnsichar;
+    p_proto: Smallint;
+  end;
+
+const
+  INADDR_ANY       = $00000000;
+  INADDR_LOOPBACK  = $7F000001;
+  INADDR_BROADCAST = $FFFFFFFF;
+  INADDR_NONE      = $FFFFFFFF;
+  ADDR_ANY		 = INADDR_ANY;
+  INVALID_SOCKET		= TSocket(NOT(0));
+  SOCKET_ERROR			= -1;
+
+Const
+  {$IFDEF WINSOCK1}
+    IP_OPTIONS          = 1;
+    IP_MULTICAST_IF     = 2;           { set/get IP multicast interface   }
+    IP_MULTICAST_TTL    = 3;           { set/get IP multicast timetolive  }
+    IP_MULTICAST_LOOP   = 4;           { set/get IP multicast loopback    }
+    IP_ADD_MEMBERSHIP   = 5;           { add  an IP group membership      }
+    IP_DROP_MEMBERSHIP  = 6;           { drop an IP group membership      }
+    IP_TTL              = 7;           { set/get IP Time To Live          }
+    IP_TOS              = 8;           { set/get IP Type Of Service       }
+    IP_DONTFRAGMENT     = 9;           { set/get IP Don't Fragment flag   }
+  {$ELSE}
+    IP_OPTIONS          = 1;
+    IP_HDRINCL          = 2;
+    IP_TOS              = 3;           { set/get IP Type Of Service       }
+    IP_TTL              = 4;           { set/get IP Time To Live          }
+    IP_MULTICAST_IF     = 9;           { set/get IP multicast interface   }
+    IP_MULTICAST_TTL    = 10;           { set/get IP multicast timetolive  }
+    IP_MULTICAST_LOOP   = 11;           { set/get IP multicast loopback    }
+    IP_ADD_MEMBERSHIP   = 12;           { add  an IP group membership      }
+    IP_DROP_MEMBERSHIP  = 13;           { drop an IP group membership      }
+    IP_DONTFRAGMENT     = 14;           { set/get IP Don't Fragment flag   }
+  {$ENDIF}
+
+  IP_DEFAULT_MULTICAST_TTL   = 1;    { normally limit m'casts to 1 hop  }
+  IP_DEFAULT_MULTICAST_LOOP  = 1;    { normally hear sends if a member  }
+  IP_MAX_MEMBERSHIPS         = 20;   { per socket; must fit in one mbuf }
+
+  SOL_SOCKET      = $ffff;          {options for socket level }
+{ Option flags per-socket. }
+  SO_DEBUG        = $0001;          { turn on debugging info recording }
+  SO_ACCEPTCONN   = $0002;          { socket has had listen() }
+  SO_REUSEADDR    = $0004;          { allow local address reuse }
+  SO_KEEPALIVE    = $0008;          { keep connections alive }
+  SO_DONTROUTE    = $0010;          { just use interface addresses }
+  SO_BROADCAST    = $0020;          { permit sending of broadcast msgs }
+  SO_USELOOPBACK  = $0040;          { bypass hardware when possible }
+  SO_LINGER       = $0080;          { linger on close if data present }
+  SO_OOBINLINE    = $0100;          { leave received OOB data in line }
+  SO_DONTLINGER  =   $ff7f;
+{ Additional options. }
+  SO_SNDBUF       = $1001;          { send buffer size }
+  SO_RCVBUF       = $1002;          { receive buffer size }
+  SO_SNDLOWAT     = $1003;          { send low-water mark }
+  SO_RCVLOWAT     = $1004;          { receive low-water mark }
+  SO_SNDTIMEO     = $1005;          { send timeout }
+  SO_RCVTIMEO     = $1006;          { receive timeout }
+  SO_ERROR        = $1007;          { get error status and clear }
+  SO_TYPE         = $1008;          { get socket type }
+{ WinSock 2 extension -- new options }
+  SO_GROUP_ID       = $2001; { ID of a socket group}
+  SO_GROUP_PRIORITY = $2002; { the relative priority within a group}
+  SO_MAX_MSG_SIZE   = $2003; { maximum message size }
+  SO_PROTOCOL_INFOA = $2004; { WSAPROTOCOL_INFOA structure }
+  SO_PROTOCOL_INFOW = $2005; { WSAPROTOCOL_INFOW structure }
+  SO_PROTOCOL_INFO  = SO_PROTOCOL_INFOA;
+  PVD_CONFIG        = $3001; {configuration info for service provider }
+{ Option for opening sockets for synchronous access. }
+  SO_OPENTYPE     = $7008;
+  SO_SYNCHRONOUS_ALERT    = $10;
+  SO_SYNCHRONOUS_NONALERT = $20;
+{ Other NT-specific options. }
+  SO_MAXDG        = $7009;
+  SO_MAXPATHDG    = $700A;
+  SO_UPDATE_ACCEPT_CONTEXT     = $700B;
+  SO_CONNECT_TIME = $700C;
+
+  SOMAXCONN       = $7fffffff;
+
+  IPV6_UNICAST_HOPS      = 8;  // ???
+  IPV6_MULTICAST_IF      = 9;  // set/get IP multicast i/f
+  IPV6_MULTICAST_HOPS    = 10; // set/get IP multicast ttl
+  IPV6_MULTICAST_LOOP    = 11; // set/get IP multicast loopback
+  IPV6_JOIN_GROUP        = 12; // add an IP group membership
+  IPV6_LEAVE_GROUP       = 13; // drop an IP group membership
+
+  MSG_NOSIGNAL  = 0;
+
+  // getnameinfo constants
+  NI_MAXHOST	   = 1025;
+  NI_MAXSERV	   = 32;
+  NI_NOFQDN 	   = $1;
+  NI_NUMERICHOST = $2;
+  NI_NAMEREQD	   = $4;
+  NI_NUMERICSERV = $8;
+  NI_DGRAM       = $10;
+
+
+const
+  SOCK_STREAM     = 1;               { stream socket }
+  SOCK_DGRAM      = 2;               { datagram socket }
+  SOCK_RAW        = 3;               { raw-protocol interface }
+  SOCK_RDM        = 4;               { reliably-delivered message }
+  SOCK_SEQPACKET  = 5;               { sequenced packet stream }
+
+{ TCP options. }
+  TCP_NODELAY     = $0001;
+
+{ Address families. }
+
+  AF_UNSPEC       = 0;               { unspecified }
+  AF_INET         = 2;               { internetwork: UDP, TCP, etc. }
+  AF_INET6        = 23;              { Internetwork Version 6 }
+  AF_MAX          = 24;
+
+{ Protocol families, same as address families for now. }
+  PF_UNSPEC       = AF_UNSPEC;
+  PF_INET         = AF_INET;
+  PF_INET6        = AF_INET6;
+  PF_MAX          = AF_MAX;
+
+type
+  { Structure used by kernel to store most addresses. }
+  PSockAddr = ^TSockAddr;
+  TSockAddr = TSockAddrIn;
+
+  { Structure used by kernel to pass protocol information in raw sockets. }
+  PSockProto = ^TSockProto;
+  TSockProto = packed record
+    sp_family: u_short;
+    sp_protocol: u_short;
+  end;
+
+type
+  PAddrInfo = ^TAddrInfo;
+  TAddrInfo = record
+                ai_flags: integer;    // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST.
+                ai_family: integer;   // PF_xxx.
+                ai_socktype: integer; // SOCK_xxx.
+                ai_protocol: integer; // 0 or IPPROTO_xxx for IPv4 and IPv6.
+                ai_addrlen: u_int;    // Length of ai_addr.
+                ai_canonname: PAnsiChar;  // Canonical name for nodename.
+                ai_addr: PSockAddr;   // Binary address.
+                ai_next: PAddrInfo;     // Next structure in linked list.
+              end;
+
+const
+  // Flags used in "hints" argument to getaddrinfo().
+  AI_PASSIVE     = $1;  // Socket address will be used in bind() call.
+  AI_CANONNAME   = $2;  // Return canonical name in first ai_canonname.
+  AI_NUMERICHOST = $4;  // Nodename must be a numeric address string.
+
+type
+{ Structure used for manipulating linger option. }
+  PLinger = ^TLinger;
+  TLinger = packed record
+    l_onoff: u_short;
+    l_linger: u_short;
+  end;
+
+const
+
+  MSG_OOB       = $01;                  // Process out-of-band data.
+  MSG_PEEK      = $02;                  // Peek at incoming messages.
+
+const
+
+{ All Windows Sockets error constants are biased by WSABASEERR from the "normal" }
+  WSABASEERR              = 10000;
+
+{ Windows Sockets definitions of regular Microsoft C error constants }
+
+  WSAEINTR                = (WSABASEERR+4);
+  WSAEBADF                = (WSABASEERR+9);
+  WSAEACCES               = (WSABASEERR+13);
+  WSAEFAULT               = (WSABASEERR+14);
+  WSAEINVAL               = (WSABASEERR+22);
+  WSAEMFILE               = (WSABASEERR+24);
+
+{ Windows Sockets definitions of regular Berkeley error constants }
+
+  WSAEWOULDBLOCK          = (WSABASEERR+35);
+  WSAEINPROGRESS          = (WSABASEERR+36);
+  WSAEALREADY             = (WSABASEERR+37);
+  WSAENOTSOCK             = (WSABASEERR+38);
+  WSAEDESTADDRREQ         = (WSABASEERR+39);
+  WSAEMSGSIZE             = (WSABASEERR+40);
+  WSAEPROTOTYPE           = (WSABASEERR+41);
+  WSAENOPROTOOPT          = (WSABASEERR+42);
+  WSAEPROTONOSUPPORT      = (WSABASEERR+43);
+  WSAESOCKTNOSUPPORT      = (WSABASEERR+44);
+  WSAEOPNOTSUPP           = (WSABASEERR+45);
+  WSAEPFNOSUPPORT         = (WSABASEERR+46);
+  WSAEAFNOSUPPORT         = (WSABASEERR+47);
+  WSAEADDRINUSE           = (WSABASEERR+48);
+  WSAEADDRNOTAVAIL        = (WSABASEERR+49);
+  WSAENETDOWN             = (WSABASEERR+50);
+  WSAENETUNREACH          = (WSABASEERR+51);
+  WSAENETRESET            = (WSABASEERR+52);
+  WSAECONNABORTED         = (WSABASEERR+53);
+  WSAECONNRESET           = (WSABASEERR+54);
+  WSAENOBUFS              = (WSABASEERR+55);
+  WSAEISCONN              = (WSABASEERR+56);
+  WSAENOTCONN             = (WSABASEERR+57);
+  WSAESHUTDOWN            = (WSABASEERR+58);
+  WSAETOOMANYREFS         = (WSABASEERR+59);
+  WSAETIMEDOUT            = (WSABASEERR+60);
+  WSAECONNREFUSED         = (WSABASEERR+61);
+  WSAELOOP                = (WSABASEERR+62);
+  WSAENAMETOOLONG         = (WSABASEERR+63);
+  WSAEHOSTDOWN            = (WSABASEERR+64);
+  WSAEHOSTUNREACH         = (WSABASEERR+65);
+  WSAENOTEMPTY            = (WSABASEERR+66);
+  WSAEPROCLIM             = (WSABASEERR+67);
+  WSAEUSERS               = (WSABASEERR+68);
+  WSAEDQUOT               = (WSABASEERR+69);
+  WSAESTALE               = (WSABASEERR+70);
+  WSAEREMOTE              = (WSABASEERR+71);
+
+{ Extended Windows Sockets error constant definitions }
+
+  WSASYSNOTREADY          = (WSABASEERR+91);
+  WSAVERNOTSUPPORTED      = (WSABASEERR+92);
+  WSANOTINITIALISED       = (WSABASEERR+93);
+  WSAEDISCON              = (WSABASEERR+101);
+  WSAENOMORE              = (WSABASEERR+102);
+  WSAECANCELLED           = (WSABASEERR+103);
+  WSAEEINVALIDPROCTABLE   = (WSABASEERR+104);
+  WSAEINVALIDPROVIDER     = (WSABASEERR+105);
+  WSAEPROVIDERFAILEDINIT  = (WSABASEERR+106);
+  WSASYSCALLFAILURE       = (WSABASEERR+107);
+  WSASERVICE_NOT_FOUND    = (WSABASEERR+108);
+  WSATYPE_NOT_FOUND       = (WSABASEERR+109);
+  WSA_E_NO_MORE           = (WSABASEERR+110);
+  WSA_E_CANCELLED         = (WSABASEERR+111);
+  WSAEREFUSED             = (WSABASEERR+112);
+
+{ Error return codes from gethostbyname() and gethostbyaddr()
+  (when using the resolver). Note that these errors are
+  retrieved via WSAGetLastError() and must therefore follow
+  the rules for avoiding clashes with error numbers from
+  specific implementations or language run-time systems.
+  For this reason the codes are based at WSABASEERR+1001.
+  Note also that [WSA]NO_ADDRESS is defined only for
+  compatibility purposes. }
+
+{ Authoritative Answer: Host not found }
+  WSAHOST_NOT_FOUND       = (WSABASEERR+1001);
+  HOST_NOT_FOUND          = WSAHOST_NOT_FOUND;
+{ Non-Authoritative: Host not found, or SERVERFAIL }
+  WSATRY_AGAIN            = (WSABASEERR+1002);
+  TRY_AGAIN               = WSATRY_AGAIN;
+{ Non recoverable errors, FORMERR, REFUSED, NOTIMP }
+  WSANO_RECOVERY          = (WSABASEERR+1003);
+  NO_RECOVERY             = WSANO_RECOVERY;
+{ Valid name, no data record of requested type }
+  WSANO_DATA              = (WSABASEERR+1004);
+  NO_DATA                 = WSANO_DATA;
+{ no address, look for MX record }
+  WSANO_ADDRESS           = WSANO_DATA;
+  NO_ADDRESS              = WSANO_ADDRESS;
+
+  EWOULDBLOCK        =  WSAEWOULDBLOCK;
+  EINPROGRESS        =  WSAEINPROGRESS;
+  EALREADY           =  WSAEALREADY;
+  ENOTSOCK           =  WSAENOTSOCK;
+  EDESTADDRREQ       =  WSAEDESTADDRREQ;
+  EMSGSIZE           =  WSAEMSGSIZE;
+  EPROTOTYPE         =  WSAEPROTOTYPE;
+  ENOPROTOOPT        =  WSAENOPROTOOPT;
+  EPROTONOSUPPORT    =  WSAEPROTONOSUPPORT;
+  ESOCKTNOSUPPORT    =  WSAESOCKTNOSUPPORT;
+  EOPNOTSUPP         =  WSAEOPNOTSUPP;
+  EPFNOSUPPORT       =  WSAEPFNOSUPPORT;
+  EAFNOSUPPORT       =  WSAEAFNOSUPPORT;
+  EADDRINUSE         =  WSAEADDRINUSE;
+  EADDRNOTAVAIL      =  WSAEADDRNOTAVAIL;
+  ENETDOWN           =  WSAENETDOWN;
+  ENETUNREACH        =  WSAENETUNREACH;
+  ENETRESET          =  WSAENETRESET;
+  ECONNABORTED       =  WSAECONNABORTED;
+  ECONNRESET         =  WSAECONNRESET;
+  ENOBUFS            =  WSAENOBUFS;
+  EISCONN            =  WSAEISCONN;
+  ENOTCONN           =  WSAENOTCONN;
+  ESHUTDOWN          =  WSAESHUTDOWN;
+  ETOOMANYREFS       =  WSAETOOMANYREFS;
+  ETIMEDOUT          =  WSAETIMEDOUT;
+  ECONNREFUSED       =  WSAECONNREFUSED;
+  ELOOP              =  WSAELOOP;
+  ENAMETOOLONG       =  WSAENAMETOOLONG;
+  EHOSTDOWN          =  WSAEHOSTDOWN;
+  EHOSTUNREACH       =  WSAEHOSTUNREACH;
+  ENOTEMPTY          =  WSAENOTEMPTY;
+  EPROCLIM           =  WSAEPROCLIM;
+  EUSERS             =  WSAEUSERS;
+  EDQUOT             =  WSAEDQUOT;
+  ESTALE             =  WSAESTALE;
+  EREMOTE            =  WSAEREMOTE;
+
+  EAI_ADDRFAMILY  = 1;   // Address family for nodename not supported.
+  EAI_AGAIN       = 2;   // Temporary failure in name resolution.
+  EAI_BADFLAGS    = 3;   // Invalid value for ai_flags.
+  EAI_FAIL        = 4;   // Non-recoverable failure in name resolution.
+  EAI_FAMILY      = 5;   // Address family ai_family not supported.
+  EAI_MEMORY      = 6;   // Memory allocation failure.
+  EAI_NODATA      = 7;   // No address associated with nodename.
+  EAI_NONAME      = 8;   // Nodename nor servname provided, or not known.
+  EAI_SERVICE     = 9;   // Servname not supported for ai_socktype.
+  EAI_SOCKTYPE    = 10;  // Socket type ai_socktype not supported.
+  EAI_SYSTEM      = 11;  // System error returned in errno.
+
+const
+  WSADESCRIPTION_LEN     =   256;
+  WSASYS_STATUS_LEN      =   128;
+type
+  PWSAData = ^TWSAData;
+  TWSAData = packed record
+    wVersion: Word;
+    wHighVersion: Word;
+    szDescription: array[0..WSADESCRIPTION_LEN] of AnsiChar;
+    szSystemStatus: array[0..WSASYS_STATUS_LEN] of AnsiChar;
+    iMaxSockets: Word;
+    iMaxUdpDg: Word;
+    lpVendorInfo: PAnsiChar;
+  end;
+
+  function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
+  function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
+  function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6):boolean;
+  procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
+  procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
+var
+  in6addr_any, in6addr_loopback : TInAddr6;
+
+procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
+function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
+procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
+procedure FD_ZERO(var FDSet: TFDSet);
+
+{=============================================================================}
+
+type
+  TWSAStartup = function(wVersionRequired: Word; var WSData: TWSAData): Integer;
+    stdcall;
+  TWSACleanup = function: Integer;
+    stdcall;
+  TWSAGetLastError = function: Integer;
+    stdcall;
+  TGetServByName = function(name, proto: PAnsiChar): PServEnt;
+    stdcall;
+  TGetServByPort = function(port: Integer; proto: PAnsiChar): PServEnt;
+    stdcall;
+  TGetProtoByName = function(name: PAnsiChar): PProtoEnt;
+    stdcall;
+  TGetProtoByNumber = function(proto: Integer): PProtoEnt;
+    stdcall;
+  TGetHostByName = function(name: PAnsiChar): PHostEnt;
+    stdcall;
+  TGetHostByAddr = function(addr: Pointer; len, Struc: Integer): PHostEnt;
+    stdcall;
+  TGetHostName = function(name: PAnsiChar; len: Integer): Integer;
+    stdcall;
+  TShutdown = function(s: TSocket; how: Integer): Integer;
+    stdcall;
+  TSetSockOpt = function(s: TSocket; level, optname: Integer; optval: PAnsiChar;
+    optlen: Integer): Integer;
+    stdcall;
+  TGetSockOpt = function(s: TSocket; level, optname: Integer; optval: PAnsiChar;
+    var optlen: Integer): Integer;
+    stdcall;
+  TSendTo = function(s: TSocket; const Buf; len, flags: Integer; addrto: PSockAddr;
+    tolen: Integer): Integer;
+    stdcall;
+  TSend = function(s: TSocket; const Buf; len, flags: Integer): Integer;
+    stdcall;
+  TRecv = function(s: TSocket; var Buf; len, flags: Integer): Integer;
+    stdcall;
+  TRecvFrom = function(s: TSocket; var Buf; len, flags: Integer; from: PSockAddr;
+    var fromlen: Integer): Integer;
+    stdcall;
+  Tntohs = function(netshort: u_short): u_short;
+    stdcall;
+  Tntohl = function(netlong: u_long): u_long;
+    stdcall;
+  TListen = function(s: TSocket; backlog: Integer): Integer;
+    stdcall;
+  TIoctlSocket = function(s: TSocket; cmd: DWORD; var arg: Integer): Integer;
+    stdcall;
+  TInet_ntoa = function(inaddr: TInAddr): PAnsiChar;
+    stdcall;
+  TInet_addr = function(cp: PAnsiChar): u_long;
+    stdcall;
+  Thtons = function(hostshort: u_short): u_short;
+    stdcall;
+  Thtonl = function(hostlong: u_long): u_long;
+    stdcall;
+  TGetSockName = function(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
+    stdcall;
+  TGetPeerName = function(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
+    stdcall;
+  TConnect = function(s: TSocket; name: PSockAddr; namelen: Integer): Integer;
+    stdcall;
+  TCloseSocket = function(s: TSocket): Integer;
+    stdcall;
+  TBind = function(s: TSocket; addr: PSockAddr; namelen: Integer): Integer;
+    stdcall;
+  TAccept = function(s: TSocket; addr: PSockAddr; var addrlen: Integer): TSocket;
+    stdcall;
+  TTSocket = function(af, Struc, Protocol: Integer): TSocket;
+    stdcall;
+  TSelect = function(nfds: Integer; readfds, writefds, exceptfds: PFDSet;
+    timeout: PTimeVal): Longint;
+    stdcall;
+
+  TGetAddrInfo = function(NodeName: PAnsiChar; ServName: PAnsiChar; Hints: PAddrInfo;
+    var Addrinfo: PAddrInfo): integer;
+    stdcall;
+  TFreeAddrInfo = procedure(ai: PAddrInfo);
+    stdcall;
+  TGetNameInfo = function( addr: PSockAddr; namelen: Integer; host: PAnsiChar;
+    hostlen: DWORD; serv: PAnsiChar; servlen: DWORD; flags: integer): integer;
+    stdcall;
+
+  T__WSAFDIsSet = function (s: TSocket; var FDSet: TFDSet): Bool;
+    stdcall;
+
+  TWSAIoctl = function (s: TSocket; dwIoControlCode: DWORD; lpvInBuffer: Pointer;
+    cbInBuffer: DWORD; lpvOutBuffer: Pointer; cbOutBuffer: DWORD;
+    lpcbBytesReturned: PDWORD; lpOverlapped: Pointer;
+    lpCompletionRoutine: pointer): u_int;
+    stdcall;
+
+var
+  WSAStartup: TWSAStartup = nil;
+  WSACleanup: TWSACleanup = nil;
+  WSAGetLastError: TWSAGetLastError = nil;
+  GetServByName: TGetServByName = nil;
+  GetServByPort: TGetServByPort = nil;
+  GetProtoByName: TGetProtoByName = nil;
+  GetProtoByNumber: TGetProtoByNumber = nil;
+  GetHostByName: TGetHostByName = nil;
+  GetHostByAddr: TGetHostByAddr = nil;
+  ssGetHostName: TGetHostName = nil;
+  Shutdown: TShutdown = nil;
+  SetSockOpt: TSetSockOpt = nil;
+  GetSockOpt: TGetSockOpt = nil;
+  ssSendTo: TSendTo = nil;
+  ssSend: TSend = nil;
+  ssRecv: TRecv = nil;
+  ssRecvFrom: TRecvFrom = nil;
+  ntohs: Tntohs = nil;
+  ntohl: Tntohl = nil;
+  Listen: TListen = nil;
+  IoctlSocket: TIoctlSocket = nil;
+  Inet_ntoa: TInet_ntoa = nil;
+  Inet_addr: TInet_addr = nil;
+  htons: Thtons = nil;
+  htonl: Thtonl = nil;
+  ssGetSockName: TGetSockName = nil;
+  ssGetPeerName: TGetPeerName = nil;
+  ssConnect: TConnect = nil;
+  CloseSocket: TCloseSocket = nil;
+  ssBind: TBind = nil;
+  ssAccept: TAccept = nil;
+  Socket: TTSocket = nil;
+  Select: TSelect = nil;
+
+  GetAddrInfo: TGetAddrInfo = nil;
+  FreeAddrInfo: TFreeAddrInfo = nil;
+  GetNameInfo: TGetNameInfo = nil;
+
+  __WSAFDIsSet: T__WSAFDIsSet = nil;
+
+  WSAIoctl: TWSAIoctl = nil;
+
+var
+  SynSockCS: SyncObjs.TCriticalSection;
+  SockEnhancedApi: Boolean;
+  SockWship6Api: Boolean;
+
+type
+  TVarSin = packed record
+    case integer of
+      0: (AddressFamily: u_short);
+      1: (
+        case sin_family: u_short of
+          AF_INET: (sin_port: u_short;
+                    sin_addr: TInAddr;
+                    sin_zero: array[0..7] of byte);
+          AF_INET6: (sin6_port:     u_short;
+                		sin6_flowinfo: u_long;
+      	    	      sin6_addr:     TInAddr6;
+      		          sin6_scope_id: u_long);
+          );
+  end;
+
+function SizeOfVarSin(sin: TVarSin): integer;
+
+function Bind(s: TSocket; const addr: TVarSin): Integer;
+function Connect(s: TSocket; const name: TVarSin): Integer;
+function GetSockName(s: TSocket; var name: TVarSin): Integer;
+function GetPeerName(s: TSocket; var name: TVarSin): Integer;
+function GetHostName: AnsiString;
+function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+function Accept(s: TSocket; var addr: TVarSin): TSocket;
+
+function IsNewApi(Family: integer): Boolean;
+function SetVarSin(var Sin: TVarSin; IP, Port: AnsiString; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
+function GetSinIP(Sin: TVarSin): AnsiString;
+function GetSinPort(Sin: TVarSin): Integer;
+procedure ResolveNameToIP(Name: AnsiString;  Family, SockProtocol, SockType: integer; const IPList: TStrings);
+function ResolveIPToName(IP: AnsiString; Family, SockProtocol, SockType: integer): AnsiString;
+function ResolvePort(Port: AnsiString; Family, SockProtocol, SockType: integer): Word;
+
+{==============================================================================}
+implementation
+
+var
+  SynSockCount: Integer = 0;
+  LibHandle: THandle = 0;
+  Libwship6Handle: THandle = 0;
+
+function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr32[0] = 0) and (a^.u6_addr32[1] = 0) and
+             (a^.u6_addr32[2] = 0) and (a^.u6_addr32[3] = 0));
+end;
+
+function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr32[0] = 0) and (a^.u6_addr32[1] = 0) and
+             (a^.u6_addr32[2] = 0) and
+             (a^.u6_addr8[12] = 0) and (a^.u6_addr8[13] = 0) and
+             (a^.u6_addr8[14] = 0) and (a^.u6_addr8[15] = 1));
+end;
+
+function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr8[0] = $FE) and (a^.u6_addr8[1] = $80));
+end;
+
+function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
+begin
+  Result := ((a^.u6_addr8[0] = $FE) and (a^.u6_addr8[1] = $C0));
+end;
+
+function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
+begin
+  Result := (a^.u6_addr8[0] = $FF);
+end;
+
+function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6): boolean;
+begin
+  Result := (CompareMem( a, b, sizeof(TInAddr6)));
+end;
+
+procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
+begin
+  FillChar(a^, sizeof(TInAddr6), 0);
+end;
+
+procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
+begin
+  FillChar(a^, sizeof(TInAddr6), 0);
+  a^.u6_addr8[15] := 1;
+end;
+
+{=============================================================================}
+procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
+var
+  I: Integer;
+begin
+  I := 0;
+  while I < FDSet.fd_count do
+  begin
+    if FDSet.fd_array[I] = Socket then
+    begin
+      while I < FDSet.fd_count - 1 do
+      begin
+        FDSet.fd_array[I] := FDSet.fd_array[I + 1];
+        Inc(I);
+      end;
+      Dec(FDSet.fd_count);
+      Break;
+    end;
+    Inc(I);
+  end;
+end;
+
+function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
+begin
+  Result := __WSAFDIsSet(Socket, FDSet);
+end;
+
+procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
+begin
+  if FDSet.fd_count < FD_SETSIZE then
+  begin
+    FDSet.fd_array[FDSet.fd_count] := Socket;
+    Inc(FDSet.fd_count);
+  end;
+end;
+
+procedure FD_ZERO(var FDSet: TFDSet);
+begin
+  FDSet.fd_count := 0;
+end;
+
+{=============================================================================}
+
+function SizeOfVarSin(sin: TVarSin): integer;
+begin
+  case sin.sin_family of
+    AF_INET:
+            Result := SizeOf(TSockAddrIn);
+    AF_INET6:
+            Result := SizeOf(TSockAddrIn6);
+  else
+    Result := 0;
+  end;
+end;
+
+{=============================================================================}
+
+function Bind(s: TSocket; const addr: TVarSin): Integer;
+begin
+  Result := ssBind(s, @addr, SizeOfVarSin(addr));
+end;
+
+function Connect(s: TSocket; const name: TVarSin): Integer;
+begin
+  Result := ssConnect(s, @name, SizeOfVarSin(name));
+end;
+
+function GetSockName(s: TSocket; var name: TVarSin): Integer;
+var
+  len: integer;
+begin
+  len := SizeOf(name);
+  FillChar(name, len, 0);
+  Result := ssGetSockName(s, @name, Len);
+end;
+
+function GetPeerName(s: TSocket; var name: TVarSin): Integer;
+var
+  len: integer;
+begin
+  len := SizeOf(name);
+  FillChar(name, len, 0);
+  Result := ssGetPeerName(s, @name, Len);
+end;
+
+function GetHostName: AnsiString;
+var
+  s: AnsiString;
+begin
+  Result := '';
+  setlength(s, 255);
+  ssGetHostName(pAnsichar(s), Length(s) - 1);
+  Result := PAnsichar(s);
+end;
+
+function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+begin
+  Result := ssSend(s, Buf^, len, flags);
+end;
+
+function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
+begin
+  Result := ssRecv(s, Buf^, len, flags);
+end;
+
+function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
+begin
+  Result := ssSendTo(s, Buf^, len, flags, @addrto, SizeOfVarSin(addrto));
+end;
+
+function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
+var
+  x: integer;
+begin
+  x := SizeOf(from);
+  Result := ssRecvFrom(s, Buf^, len, flags, @from, x);
+end;
+
+function Accept(s: TSocket; var addr: TVarSin): TSocket;
+var
+  x: integer;
+begin
+  x := SizeOf(addr);
+  Result := ssAccept(s, @addr, x);
+end;
+
+{=============================================================================}
+function IsNewApi(Family: integer): Boolean;
+begin
+  Result := SockEnhancedApi;
+  if not Result then
+    Result := (Family = AF_INET6) and SockWship6Api;
+end;
+
+function SetVarSin(var Sin: TVarSin; IP, Port: AnsiString; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
+type
+  pu_long = ^u_long;
+var
+  ProtoEnt: PProtoEnt;
+  ServEnt: PServEnt;
+  HostEnt: PHostEnt;
+  r: integer;
+  Hints1, Hints2: TAddrInfo;
+  Sin1, Sin2: TVarSin;
+  TwoPass: boolean;
+
+  function GetAddr(const IP, port: AnsiString; Hints: TAddrInfo; var Sin: TVarSin): integer;
+  var
+    Addr: PAddrInfo;
+  begin
+    Addr := nil;
+    try
+      FillChar(Sin, Sizeof(Sin), 0);
+      if Hints.ai_socktype = SOCK_RAW then
+      begin
+        Hints.ai_socktype := 0;
+        Hints.ai_protocol := 0;
+        Result := synsock.GetAddrInfo(PAnsiChar(IP), nil, @Hints, Addr);
+      end
+      else
+      begin
+        if (IP = cAnyHost) or (IP = c6AnyHost) then
+        begin
+          Hints.ai_flags := AI_PASSIVE;
+          Result := synsock.GetAddrInfo(nil, PAnsiChar(Port), @Hints, Addr);
+        end
+        else
+          if (IP = cLocalhost) or (IP = c6Localhost) then
+          begin
+            Result := synsock.GetAddrInfo(nil, PAnsiChar(Port), @Hints, Addr);
+          end
+          else
+          begin
+            Result := synsock.GetAddrInfo(PAnsiChar(IP), PAnsiChar(Port), @Hints, Addr);
+          end;
+      end;
+      if Result = 0 then
+        if (Addr <> nil) then
+          Move(Addr^.ai_addr^, Sin, Addr^.ai_addrlen);
+    finally
+      if Assigned(Addr) then
+        synsock.FreeAddrInfo(Addr);
+    end;
+  end;
+
+begin
+  Result := 0;
+  FillChar(Sin, Sizeof(Sin), 0);
+  if not IsNewApi(family) then
+  begin
+    SynSockCS.Enter;
+    try
+      Sin.sin_family := AF_INET;
+      ProtoEnt := synsock.GetProtoByNumber(SockProtocol);
+      ServEnt := nil;
+      if ProtoEnt <> nil then
+        ServEnt := synsock.GetServByName(PAnsiChar(Port), ProtoEnt^.p_name);
+      if ServEnt = nil then
+        Sin.sin_port := synsock.htons(StrToIntDef(Port, 0))
+      else
+        Sin.sin_port := ServEnt^.s_port;
+      if IP = cBroadcast then
+        Sin.sin_addr.s_addr := u_long(INADDR_BROADCAST)
+      else
+      begin
+        Sin.sin_addr.s_addr := synsock.inet_addr(PAnsiChar(IP));
+        if Sin.sin_addr.s_addr = u_long(INADDR_NONE) then
+        begin
+          HostEnt := synsock.GetHostByName(PAnsiChar(IP));
+          Result := synsock.WSAGetLastError;
+          if HostEnt <> nil then
+            Sin.sin_addr.S_addr := u_long(Pu_long(HostEnt^.h_addr_list^)^);
+        end;
+      end;
+    finally
+      SynSockCS.Leave;
+    end;
+  end
+  else
+  begin
+    FillChar(Hints1, Sizeof(Hints1), 0);
+    FillChar(Hints2, Sizeof(Hints2), 0);
+    TwoPass := False;
+    if Family = AF_UNSPEC then
+    begin
+      if PreferIP4 then
+      begin
+        Hints1.ai_family := AF_INET;
+        Hints2.ai_family := AF_INET6;
+        TwoPass := True;
+      end
+      else
+      begin
+        Hints2.ai_family := AF_INET;
+        Hints1.ai_family := AF_INET6;
+        TwoPass := True;
+      end;
+    end
+    else
+      Hints1.ai_family := Family;
+
+    Hints1.ai_socktype := SockType;
+    Hints1.ai_protocol := SockProtocol;
+    Hints2.ai_socktype := Hints1.ai_socktype;
+    Hints2.ai_protocol := Hints1.ai_protocol;
+
+    r := GetAddr(IP, Port, Hints1, Sin1);
+    Result := r;
+    sin := sin1;
+    if r <> 0 then
+      if TwoPass then
+      begin
+        r := GetAddr(IP, Port, Hints2, Sin2);
+        Result := r;
+        if r = 0 then
+          sin := sin2;
+      end;
+  end;
+end;
+
+function GetSinIP(Sin: TVarSin): AnsiString;
+var
+  p: PAnsiChar;
+  host, serv: AnsiString;
+  hostlen, servlen: integer;
+  r: integer;
+begin
+  Result := '';
+  if not IsNewApi(Sin.AddressFamily) then
+  begin
+    p := synsock.inet_ntoa(Sin.sin_addr);
+    if p <> nil then
+      Result := p;
+  end
+  else
+  begin
+    hostlen := NI_MAXHOST;
+    servlen := NI_MAXSERV;
+    setlength(host, hostlen);
+    setlength(serv, servlen);
+    r := getnameinfo(@sin, SizeOfVarSin(sin), PAnsiChar(host), hostlen,
+      PAnsiChar(serv), servlen, NI_NUMERICHOST + NI_NUMERICSERV);
+    if r = 0 then
+      Result := PAnsiChar(host);
+  end;
+end;
+
+function GetSinPort(Sin: TVarSin): Integer;
+begin
+  if (Sin.sin_family = AF_INET6) then
+    Result := synsock.ntohs(Sin.sin6_port)
+  else
+    Result := synsock.ntohs(Sin.sin_port);
+end;
+
+procedure ResolveNameToIP(Name: AnsiString; Family, SockProtocol, SockType: integer; const IPList: TStrings);
+type
+  TaPInAddr = array[0..250] of PInAddr;
+  PaPInAddr = ^TaPInAddr;
+var
+  Hints: TAddrInfo;
+  Addr: PAddrInfo;
+  AddrNext: PAddrInfo;
+  r: integer;
+  host, serv: AnsiString;
+  hostlen, servlen: integer;
+  RemoteHost: PHostEnt;
+  IP: u_long;
+  PAdrPtr: PaPInAddr;
+  i: Integer;
+  s: AnsiString;
+  InAddr: TInAddr;
+begin
+  IPList.Clear;
+  if not IsNewApi(Family) then
+  begin
+    IP := synsock.inet_addr(PAnsiChar(Name));
+    if IP = u_long(INADDR_NONE) then
+    begin
+      SynSockCS.Enter;
+      try
+        RemoteHost := synsock.GetHostByName(PAnsiChar(Name));
+        if RemoteHost <> nil then
+        begin
+          PAdrPtr := PAPInAddr(RemoteHost^.h_addr_list);
+          i := 0;
+          while PAdrPtr^[i] <> nil do
+          begin
+            InAddr := PAdrPtr^[i]^;
+            s := Format('%d.%d.%d.%d', [InAddr.S_bytes[0], InAddr.S_bytes[1],
+              InAddr.S_bytes[2], InAddr.S_bytes[3]]);
+            IPList.Add(s);
+            Inc(i);
+          end;
+        end;
+      finally
+        SynSockCS.Leave;
+      end;
+    end
+    else
+      IPList.Add(Name);
+  end
+  else
+  begin
+    Addr := nil;
+    try
+      FillChar(Hints, Sizeof(Hints), 0);
+      Hints.ai_family := AF_UNSPEC;
+      Hints.ai_socktype := SockType;
+      Hints.ai_protocol := SockProtocol;
+      Hints.ai_flags := 0;
+      r := synsock.GetAddrInfo(PAnsiChar(Name), nil, @Hints, Addr);
+      if r = 0 then
+      begin
+        AddrNext := Addr;
+        while not(AddrNext = nil) do
+        begin
+          if not(((Family = AF_INET6) and (AddrNext^.ai_family = AF_INET))
+            or ((Family = AF_INET) and (AddrNext^.ai_family = AF_INET6))) then
+          begin
+            hostlen := NI_MAXHOST;
+            servlen := NI_MAXSERV;
+            setlength(host, hostlen);
+            setlength(serv, servlen);
+            r := getnameinfo(AddrNext^.ai_addr, AddrNext^.ai_addrlen,
+              PAnsiChar(host), hostlen, PAnsiChar(serv), servlen,
+              NI_NUMERICHOST + NI_NUMERICSERV);
+            if r = 0 then
+            begin
+              host := PAnsiChar(host);
+              IPList.Add(host);
+            end;
+          end;
+          AddrNext := AddrNext^.ai_next;
+        end;
+      end;
+    finally
+      if Assigned(Addr) then
+        synsock.FreeAddrInfo(Addr);
+    end;
+  end;
+  if IPList.Count = 0 then
+    IPList.Add(cAnyHost);
+end;
+
+function ResolvePort(Port: AnsiString; Family, SockProtocol, SockType: integer): Word;
+var
+  ProtoEnt: PProtoEnt;
+  ServEnt: PServEnt;
+  Hints: TAddrInfo;
+  Addr: PAddrInfo;
+  r: integer;
+begin
+  Result := 0;
+  if not IsNewApi(Family) then
+  begin
+    SynSockCS.Enter;
+    try
+      ProtoEnt := synsock.GetProtoByNumber(SockProtocol);
+      ServEnt := nil;
+      if ProtoEnt <> nil then
+        ServEnt := synsock.GetServByName(PAnsiChar(Port), ProtoEnt^.p_name);
+      if ServEnt = nil then
+        Result := StrToIntDef(Port, 0)
+      else
+        Result := synsock.htons(ServEnt^.s_port);
+    finally
+      SynSockCS.Leave;
+    end;
+  end
+  else
+  begin
+    Addr := nil;
+    try
+      FillChar(Hints, Sizeof(Hints), 0);
+      Hints.ai_family := AF_UNSPEC;
+      Hints.ai_socktype := SockType;
+      Hints.ai_protocol := Sockprotocol;
+      Hints.ai_flags := AI_PASSIVE;
+      r := synsock.GetAddrInfo(nil, PAnsiChar(Port), @Hints, Addr);
+      if (r = 0) and Assigned(Addr) then
+      begin
+        if Addr^.ai_family = AF_INET then
+          Result := synsock.htons(Addr^.ai_addr^.sin_port);
+        if Addr^.ai_family = AF_INET6 then
+          Result := synsock.htons(PSockAddrIn6(Addr^.ai_addr)^.sin6_port);
+      end;
+    finally
+      if Assigned(Addr) then
+        synsock.FreeAddrInfo(Addr);
+    end;
+  end;
+end;
+
+function ResolveIPToName(IP: AnsiString; Family, SockProtocol, SockType: integer): AnsiString;
+var
+  Hints: TAddrInfo;
+  Addr: PAddrInfo;
+  r: integer;
+  host, serv: AnsiString;
+  hostlen, servlen: integer;
+  RemoteHost: PHostEnt;
+  IPn: u_long;
+begin
+  Result := IP;
+  if not IsNewApi(Family) then
+  begin
+    IPn := synsock.inet_addr(PAnsiChar(IP));
+    if IPn <> u_long(INADDR_NONE) then
+    begin
+      SynSockCS.Enter;
+      try
+        RemoteHost := GetHostByAddr(@IPn, SizeOf(IPn), AF_INET);
+        if RemoteHost <> nil then
+          Result := RemoteHost^.h_name;
+      finally
+        SynSockCS.Leave;
+      end;
+    end;
+  end
+  else
+  begin
+    Addr := nil;
+    try
+      FillChar(Hints, Sizeof(Hints), 0);
+      Hints.ai_family := AF_UNSPEC;
+      Hints.ai_socktype := SockType;
+      Hints.ai_protocol := SockProtocol;
+      Hints.ai_flags := 0;
+      r := synsock.GetAddrInfo(PAnsiChar(IP), nil, @Hints, Addr);
+      if (r = 0) and Assigned(Addr)then
+      begin
+        hostlen := NI_MAXHOST;
+        servlen := NI_MAXSERV;
+        setlength(host, hostlen);
+        setlength(serv, servlen);
+        r := getnameinfo(Addr^.ai_addr, Addr^.ai_addrlen,
+          PAnsiChar(host), hostlen, PAnsiChar(serv), servlen,
+          NI_NUMERICSERV);
+        if r = 0 then
+          Result := PAnsiChar(host);
+      end;
+    finally
+      if Assigned(Addr) then
+        synsock.FreeAddrInfo(Addr);
+    end;
+  end;
+end;
+
+{=============================================================================}
+
+function InitSocketInterface(stack: String): Boolean;
+begin
+  Result := False;
+  SockEnhancedApi := False;
+  if stack = '' then
+    stack := DLLStackName;
+  SynSockCS.Enter;
+  try
+    if SynSockCount = 0 then
+    begin
+      SockEnhancedApi := False;
+      SockWship6Api := False;
+      LibHandle := LoadLibrary(PChar(Stack));
+      if LibHandle <> 0 then
+      begin
+        WSAIoctl := GetProcAddress(LibHandle, PAnsiChar(AnsiString('WSAIoctl')));
+        __WSAFDIsSet := GetProcAddress(LibHandle, PAnsiChar(AnsiString('__WSAFDIsSet')));
+        CloseSocket := GetProcAddress(LibHandle, PAnsiChar(AnsiString('closesocket')));
+        IoctlSocket := GetProcAddress(LibHandle, PAnsiChar(AnsiString('ioctlsocket')));
+        WSAGetLastError := GetProcAddress(LibHandle, PAnsiChar(AnsiString('WSAGetLastError')));
+        WSAStartup := GetProcAddress(LibHandle, PAnsiChar(AnsiString('WSAStartup')));
+        WSACleanup := GetProcAddress(LibHandle, PAnsiChar(AnsiString('WSACleanup')));
+        ssAccept := GetProcAddress(LibHandle, PAnsiChar(AnsiString('accept')));
+        ssBind := GetProcAddress(LibHandle, PAnsiChar(AnsiString('bind')));
+        ssConnect := GetProcAddress(LibHandle, PAnsiChar(AnsiString('connect')));
+        ssGetPeerName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getpeername')));
+        ssGetSockName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getsockname')));
+        GetSockOpt := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getsockopt')));
+        Htonl := GetProcAddress(LibHandle, PAnsiChar(AnsiString('htonl')));
+        Htons := GetProcAddress(LibHandle, PAnsiChar(AnsiString('htons')));
+        Inet_Addr := GetProcAddress(LibHandle, PAnsiChar(AnsiString('inet_addr')));
+        Inet_Ntoa := GetProcAddress(LibHandle, PAnsiChar(AnsiString('inet_ntoa')));
+        Listen := GetProcAddress(LibHandle, PAnsiChar(AnsiString('listen')));
+        Ntohl := GetProcAddress(LibHandle, PAnsiChar(AnsiString('ntohl')));
+        Ntohs := GetProcAddress(LibHandle, PAnsiChar(AnsiString('ntohs')));
+        ssRecv := GetProcAddress(LibHandle, PAnsiChar(AnsiString('recv')));
+        ssRecvFrom := GetProcAddress(LibHandle, PAnsiChar(AnsiString('recvfrom')));
+        Select := GetProcAddress(LibHandle, PAnsiChar(AnsiString('select')));
+        ssSend := GetProcAddress(LibHandle, PAnsiChar(AnsiString('send')));
+        ssSendTo := GetProcAddress(LibHandle, PAnsiChar(AnsiString('sendto')));
+        SetSockOpt := GetProcAddress(LibHandle, PAnsiChar(AnsiString('setsockopt')));
+        ShutDown := GetProcAddress(LibHandle, PAnsiChar(AnsiString('shutdown')));
+        Socket := GetProcAddress(LibHandle, PAnsiChar(AnsiString('socket')));
+        GetHostByAddr := GetProcAddress(LibHandle, PAnsiChar(AnsiString('gethostbyaddr')));
+        GetHostByName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('gethostbyname')));
+        GetProtoByName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getprotobyname')));
+        GetProtoByNumber := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getprotobynumber')));
+        GetServByName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getservbyname')));
+        GetServByPort := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getservbyport')));
+        ssGetHostName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('gethostname')));
+
+{$IFNDEF FORCEOLDAPI}
+        GetAddrInfo := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getaddrinfo')));
+        FreeAddrInfo := GetProcAddress(LibHandle, PAnsiChar(AnsiString('freeaddrinfo')));
+        GetNameInfo := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getnameinfo')));
+        SockEnhancedApi := Assigned(GetAddrInfo) and Assigned(FreeAddrInfo)
+          and Assigned(GetNameInfo);
+        if not SockEnhancedApi then
+        begin
+          LibWship6Handle := LoadLibrary(PChar(DLLWship6));
+          if LibWship6Handle <> 0 then
+          begin
+            GetAddrInfo := GetProcAddress(LibWship6Handle, PAnsiChar(AnsiString('getaddrinfo')));
+            FreeAddrInfo := GetProcAddress(LibWship6Handle, PAnsiChar(AnsiString('freeaddrinfo')));
+            GetNameInfo := GetProcAddress(LibWship6Handle, PAnsiChar(AnsiString('getnameinfo')));
+            SockWship6Api := Assigned(GetAddrInfo) and Assigned(FreeAddrInfo)
+              and Assigned(GetNameInfo);
+          end;
+        end;
+{$ENDIF}
+        Result := True;
+      end;
+    end
+    else Result := True;
+    if Result then
+      Inc(SynSockCount);
+  finally
+    SynSockCS.Leave;
+  end;
+end;
+
+function DestroySocketInterface: Boolean;
+begin
+  SynSockCS.Enter;
+  try
+    Dec(SynSockCount);
+    if SynSockCount < 0 then
+      SynSockCount := 0;
+    if SynSockCount = 0 then
+    begin
+      if LibHandle <> 0 then
+      begin
+        FreeLibrary(libHandle);
+        LibHandle := 0;
+      end;
+      if LibWship6Handle <> 0 then
+      begin
+        FreeLibrary(LibWship6Handle);
+        LibWship6Handle := 0;
+      end;
+    end;
+  finally
+    SynSockCS.Leave;
+  end;
+  Result := True;
+end;
+
+initialization
+begin
+  SynSockCS := SyncObjs.TCriticalSection.Create;
+  SET_IN6_IF_ADDR_ANY (@in6addr_any);
+  SET_LOOPBACK_ADDR6  (@in6addr_loopback);
+end;
+
+finalization
+begin
+  SynSockCS.Free;
+end;
+
+{$ENDIF}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synachar.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synachar.pas
new file mode 100644
index 0000000..da7c7f7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synachar.pas	
@@ -0,0 +1,2030 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 005.002.002 |
+|==============================================================================|
+| Content: Charset conversion support                                          |
+|==============================================================================|
+| Copyright (c)1999-2004, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2004.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{: @abstract(Charset conversion support)
+This unit contains a routines for lot of charset conversions.
+
+It using built-in conversion tables or external Iconv library. Iconv is used
+ when needed conversion is known by Iconv library. When Iconv library is not
+ found or Iconv not know requested conversion, then are internal routines used
+ for conversion. (You can disable Iconv support from your program too!)
+
+Internal routines knows all major charsets for Europe or America. For East-Asian
+ charsets you must use Iconv library!
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$H+}
+
+unit synachar;
+
+interface
+
+uses
+{$IFNDEF WIN32}
+  {$IFNDEF FPC}
+  Libc,
+  {$ELSE}
+    {$IFDEF FPC_USE_LIBC}
+  Libc,
+    {$ENDIF}
+  {$ENDIF}
+{$ELSE}
+  Windows,
+{$ENDIF}
+  SysUtils,
+  synautil, synacode, synaicnv;
+
+type
+  {:Type with all supported charsets.}
+  TMimeChar = (ISO_8859_1, ISO_8859_2, ISO_8859_3, ISO_8859_4, ISO_8859_5,
+    ISO_8859_6, ISO_8859_7, ISO_8859_8, ISO_8859_9, ISO_8859_10, ISO_8859_13,
+    ISO_8859_14, ISO_8859_15, CP1250, CP1251, CP1252, CP1253, CP1254, CP1255,
+    CP1256, CP1257, CP1258, KOI8_R, CP895, CP852, UCS_2, UCS_4, UTF_8, UTF_7,
+    UTF_7mod, UCS_2LE, UCS_4LE,
+    //next is supported by Iconv only...
+    UTF_16, UTF_16LE, UTF_32, UTF_32LE, C99, JAVA, ISO_8859_16, KOI8_U, KOI8_RU,
+    CP862, CP866, MAC, MACCE, MACICE, MACCRO, MACRO, MACCYR, MACUK, MACGR, MACTU,
+    MACHEB, MACAR, MACTH, ROMAN8, NEXTSTEP, ARMASCII, GEORGIAN_AC, GEORGIAN_PS,
+    KOI8_T, MULELAO, CP1133, TIS620, CP874, VISCII, TCVN, ISO_IR_14, JIS_X0201,
+    JIS_X0208, JIS_X0212, GB1988_80, GB2312_80, ISO_IR_165, ISO_IR_149, EUC_JP,
+    SHIFT_JIS, CP932, ISO_2022_JP, ISO_2022_JP1, ISO_2022_JP2, GB2312, CP936,
+    GB18030, ISO_2022_CN, ISO_2022_CNE, HZ, EUC_TW, BIG5, CP950, BIG5_HKSCS,
+    EUC_KR, CP949, CP1361, ISO_2022_KR, CP737, CP775, CP853, CP855, CP857,
+    CP858, CP860, CP861, CP863, CP864, CP865, CP869, CP1125);
+
+  {:Set of any charsets.}
+  TMimeSetChar = set of TMimeChar;
+
+const
+  {:Set of charsets supported by Iconv library only.}
+  IconvOnlyChars: set of TMimeChar = [UTF_16, UTF_16LE, UTF_32, UTF_32LE,
+    C99, JAVA, ISO_8859_16, KOI8_U, KOI8_RU, CP862, CP866, MAC, MACCE, MACICE,
+    MACCRO, MACRO, MACCYR, MACUK, MACGR, MACTU, MACHEB, MACAR, MACTH, ROMAN8,
+    NEXTSTEP, ARMASCII, GEORGIAN_AC, GEORGIAN_PS, KOI8_T, MULELAO, CP1133,
+    TIS620, CP874, VISCII, TCVN, ISO_IR_14, JIS_X0201, JIS_X0208, JIS_X0212,
+    GB1988_80, GB2312_80, ISO_IR_165, ISO_IR_149, EUC_JP, SHIFT_JIS, CP932,
+    ISO_2022_JP, ISO_2022_JP1, ISO_2022_JP2, GB2312, CP936, GB18030,
+    ISO_2022_CN, ISO_2022_CNE, HZ, EUC_TW, BIG5, CP950, BIG5_HKSCS, EUC_KR,
+    CP949, CP1361, ISO_2022_KR, CP737, CP775, CP853, CP855, CP857, CP858,
+    CP860, CP861, CP863, CP864, CP865, CP869, CP1125];
+
+  {:Set of charsets supported by internal routines only.}
+  NoIconvChars: set of TMimeChar = [CP895, UTF_7mod];
+
+  {:null character replace table. (Usable for disable charater replacing.)}
+  Replace_None: array[0..0] of Word =
+    (0);
+
+  {:Character replace table for remove Czech diakritics.}
+  Replace_Czech: array[0..59] of Word =
+    (
+      $00E1, $0061,
+      $010D, $0063,
+      $010F, $0064,
+      $010E, $0044,
+      $00E9, $0065,
+      $011B, $0065,
+      $00ED, $0069,
+      $0148, $006E,
+      $00F3, $006F,
+      $0159, $0072,
+      $0161, $0073,
+      $0165, $0074,
+      $00FA, $0075,
+      $016F, $0075,
+      $00FD, $0079,
+      $017E, $007A,
+      $00C1, $0041,
+      $010C, $0043,
+      $00C9, $0045,
+      $011A, $0045,
+      $00CD, $0049,
+      $0147, $004E,
+      $00D3, $004F,
+      $0158, $0052,
+      $0160, $0053,
+      $0164, $0054,
+      $00DA, $0055,
+      $016E, $0055,
+      $00DD, $0059,
+      $017D, $005A
+    );
+
+var
+  {:By this you can generally disable/enable Iconv support.}
+  DisableIconv: Boolean = False;
+
+  {:Default set of charsets for @link(IdealCharsetCoding) function.}
+  IdealCharsets: TMimeSetChar =
+    [ISO_8859_1, ISO_8859_2, ISO_8859_3, ISO_8859_4, ISO_8859_5,
+    ISO_8859_6, ISO_8859_7, ISO_8859_8, ISO_8859_9, ISO_8859_10,
+    KOI8_R, KOI8_U
+    {$IFNDEF CIL} //error URW778 ??? :-O
+    , GB2312, EUC_KR, ISO_2022_JP, EUC_TW
+    {$ENDIF}
+    ];
+
+{==============================================================================}
+{:Convert Value from one charset to another. See: @link(CharsetConversionEx)}
+function CharsetConversion(const Value: AnsiString; CharFrom: TMimeChar;
+  CharTo: TMimeChar): AnsiString;
+
+{:Convert Value from one charset to another with additional character conversion.
+see: @link(Replace_None) and @link(Replace_Czech)}
+function CharsetConversionEx(const Value: AnsiString; CharFrom: TMimeChar;
+  CharTo: TMimeChar; const TransformTable: array of Word): AnsiString;
+
+{:Convert Value from one charset to another with additional character conversion.
+ This funtion is similar to @link(CharsetConversionEx), but you can disable
+ transliteration of unconvertible characters.}
+function CharsetConversionTrans(Value: AnsiString; CharFrom: TMimeChar;
+  CharTo: TMimeChar; const TransformTable: array of Word; Translit: Boolean): AnsiString;
+
+{:Returns charset used by operating system.}
+function GetCurCP: TMimeChar;
+
+{:Returns charset used by operating system as OEM charset. (in Windows DOS box,
+ for example)}
+function GetCurOEMCP: TMimeChar;
+
+{:Converting string with charset name to TMimeChar.}
+function GetCPFromID(Value: AnsiString): TMimeChar;
+
+{:Converting TMimeChar to string with name of charset.}
+function GetIDFromCP(Value: TMimeChar): AnsiString;
+
+{:return @true when value need to be converted. (It is not 7-bit ASCII)}
+function NeedCharsetConversion(const Value: AnsiString): Boolean;
+
+{:Finding best target charset from set of TMimeChars with minimal count of
+ unconvertible characters.}
+function IdealCharsetCoding(const Value: AnsiString; CharFrom: TMimeChar;
+  CharTo: TMimeSetChar): TMimeChar;
+
+{:Return BOM (Byte Order Mark) for given unicode charset.}
+function GetBOM(Value: TMimeChar): AnsiString;
+
+{:Convert binary string with unicode content to WideString.}
+function StringToWide(const Value: AnsiString): WideString;
+
+{:Convert WideString to binary string with unicode content.}
+function WideToString(const Value: WideString): AnsiString;
+
+{==============================================================================}
+implementation
+
+//character transcoding tables X to UCS-2
+{
+//dummy table
+$0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+$0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+$0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+$0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+$00A0, $00A1, $00A2, $00A3, $00A4, $00A5, $00A6, $00A7,
+$00A8, $00A9, $00AA, $00AB, $00AC, $00AD, $00AE, $00AF,
+$00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+$00B8, $00B9, $00BA, $00BB, $00BC, $00BD, $00BE, $00BF,
+$00C0, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $00C7,
+$00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
+$00D0, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $00D7,
+$00D8, $00D9, $00DA, $00DB, $00DC, $00DD, $00DE, $00DF,
+$00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
+$00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
+$00F0, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $00F7,
+$00F8, $00F9, $00FA, $00FB, $00FC, $00FD, $00FE, $00FF
+}
+
+const
+
+{Latin-1
+  Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
+  Irish, Italian, Norwegian, Portuguese, Spanish and Swedish.
+}
+  CharISO_8859_1: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $00A1, $00A2, $00A3, $00A4, $00A5, $00A6, $00A7,
+    $00A8, $00A9, $00AA, $00AB, $00AC, $00AD, $00AE, $00AF,
+    $00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+    $00B8, $00B9, $00BA, $00BB, $00BC, $00BD, $00BE, $00BF,
+    $00C0, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $00C7,
+    $00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
+    $00D0, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $00D7,
+    $00D8, $00D9, $00DA, $00DB, $00DC, $00DD, $00DE, $00DF,
+    $00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
+    $00F0, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $00F7,
+    $00F8, $00F9, $00FA, $00FB, $00FC, $00FD, $00FE, $00FF
+    );
+
+{Latin-2
+  Albanian, Czech, English, German, Hungarian, Polish, Rumanian,
+  Serbo-Croatian, Slovak, Slovene and Swedish.
+}
+  CharISO_8859_2: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $0104, $02D8, $0141, $00A4, $013D, $015A, $00A7,
+    $00A8, $0160, $015E, $0164, $0179, $00AD, $017D, $017B,
+    $00B0, $0105, $02DB, $0142, $00B4, $013E, $015B, $02C7,
+    $00B8, $0161, $015F, $0165, $017A, $02DD, $017E, $017C,
+    $0154, $00C1, $00C2, $0102, $00C4, $0139, $0106, $00C7,
+    $010C, $00C9, $0118, $00CB, $011A, $00CD, $00CE, $010E,
+    $0110, $0143, $0147, $00D3, $00D4, $0150, $00D6, $00D7,
+    $0158, $016E, $00DA, $0170, $00DC, $00DD, $0162, $00DF,
+    $0155, $00E1, $00E2, $0103, $00E4, $013A, $0107, $00E7,
+    $010D, $00E9, $0119, $00EB, $011B, $00ED, $00EE, $010F,
+    $0111, $0144, $0148, $00F3, $00F4, $0151, $00F6, $00F7,
+    $0159, $016F, $00FA, $0171, $00FC, $00FD, $0163, $02D9
+    );
+
+{Latin-3
+  Afrikaans, Catalan, English, Esperanto, French, Galician,
+  German, Italian, Maltese and Turkish.
+}
+  CharISO_8859_3: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $0126, $02D8, $00A3, $00A4, $FFFD, $0124, $00A7,
+    $00A8, $0130, $015E, $011E, $0134, $00AD, $FFFD, $017B,
+    $00B0, $0127, $00B2, $00B3, $00B4, $00B5, $0125, $00B7,
+    $00B8, $0131, $015F, $011F, $0135, $00BD, $FFFD, $017C,
+    $00C0, $00C1, $00C2, $FFFD, $00C4, $010A, $0108, $00C7,
+    $00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
+    $FFFD, $00D1, $00D2, $00D3, $00D4, $0120, $00D6, $00D7,
+    $011C, $00D9, $00DA, $00DB, $00DC, $016C, $015C, $00DF,
+    $00E0, $00E1, $00E2, $FFFD, $00E4, $010B, $0109, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
+    $FFFD, $00F1, $00F2, $00F3, $00F4, $0121, $00F6, $00F7,
+    $011D, $00F9, $00FA, $00FB, $00FC, $016D, $015D, $02D9
+    );
+
+{Latin-4
+  Danish, English, Estonian, Finnish, German, Greenlandic,
+  Lappish, Latvian, Lithuanian, Norwegian and Swedish.
+}
+  CharISO_8859_4: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $0104, $0138, $0156, $00A4, $0128, $013B, $00A7,
+    $00A8, $0160, $0112, $0122, $0166, $00AD, $017D, $00AF,
+    $00B0, $0105, $02DB, $0157, $00B4, $0129, $013C, $02C7,
+    $00B8, $0161, $0113, $0123, $0167, $014A, $017E, $014B,
+    $0100, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $012E,
+    $010C, $00C9, $0118, $00CB, $0116, $00CD, $00CE, $012A,
+    $0110, $0145, $014C, $0136, $00D4, $00D5, $00D6, $00D7,
+    $00D8, $0172, $00DA, $00DB, $00DC, $0168, $016A, $00DF,
+    $0101, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $012F,
+    $010D, $00E9, $0119, $00EB, $0117, $00ED, $00EE, $012B,
+    $0111, $0146, $014D, $0137, $00F4, $00F5, $00F6, $00F7,
+    $00F8, $0173, $00FA, $00FB, $00FC, $0169, $016B, $02D9
+    );
+
+{CYRILLIC
+  Bulgarian, Bielorussian, English, Macedonian, Russian,
+  Serbo-Croatian and Ukrainian.
+}
+  CharISO_8859_5: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $0401, $0402, $0403, $0404, $0405, $0406, $0407,
+    $0408, $0409, $040A, $040B, $040C, $00AD, $040E, $040F,
+    $0410, $0411, $0412, $0413, $0414, $0415, $0416, $0417,
+    $0418, $0419, $041A, $041B, $041C, $041D, $041E, $041F,
+    $0420, $0421, $0422, $0423, $0424, $0425, $0426, $0427,
+    $0428, $0429, $042A, $042B, $042C, $042D, $042E, $042F,
+    $0430, $0431, $0432, $0433, $0434, $0435, $0436, $0437,
+    $0438, $0439, $043A, $043B, $043C, $043D, $043E, $043F,
+    $0440, $0441, $0442, $0443, $0444, $0445, $0446, $0447,
+    $0448, $0449, $044A, $044B, $044C, $044D, $044E, $044F,
+    $2116, $0451, $0452, $0453, $0454, $0455, $0456, $0457,
+    $0458, $0459, $045A, $045B, $045C, $00A7, $045E, $045F
+    );
+
+{ARABIC
+}
+  CharISO_8859_6: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $FFFD, $FFFD, $FFFD, $00A4, $FFFD, $FFFD, $FFFD,
+    $FFFD, $FFFD, $FFFD, $FFFD, $060C, $00AD, $FFFD, $FFFD,
+    $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD,
+    $FFFD, $FFFD, $FFFD, $061B, $FFFD, $FFFD, $FFFD, $061F,
+    $FFFD, $0621, $0622, $0623, $0624, $0625, $0626, $0627,
+    $0628, $0629, $062A, $062B, $062C, $062D, $062E, $062F,
+    $0630, $0631, $0632, $0633, $0634, $0635, $0636, $0637,
+    $0638, $0639, $063A, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD,
+    $0640, $0641, $0642, $0643, $0644, $0645, $0646, $0647,
+    $0648, $0649, $064A, $064B, $064C, $064D, $064E, $064F,
+    $0650, $0651, $0652, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD,
+    $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD
+    );
+
+{GREEK
+}
+  CharISO_8859_7: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $2018, $2019, $00A3, $FFFD, $FFFD, $00A6, $00A7,
+    $00A8, $00A9, $FFFD, $00AB, $00AC, $00AD, $FFFD, $2015,
+    $00B0, $00B1, $00B2, $00B3, $0384, $0385, $0386, $00B7,
+    $0388, $0389, $038A, $00BB, $038C, $00BD, $038E, $038F,
+    $0390, $0391, $0392, $0393, $0394, $0395, $0396, $0397,
+    $0398, $0399, $039A, $039B, $039C, $039D, $039E, $039F,
+    $03A0, $03A1, $FFFD, $03A3, $03A4, $03A5, $03A6, $03A7,
+    $03A8, $03A9, $03AA, $03AB, $03AC, $03AD, $03AE, $03AF,
+    $03B0, $03B1, $03B2, $03B3, $03B4, $03B5, $03B6, $03B7,
+    $03B8, $03B9, $03BA, $03BB, $03BC, $03BD, $03BE, $03BF,
+    $03C0, $03C1, $03C2, $03C3, $03C4, $03C5, $03C6, $03C7,
+    $03C8, $03C9, $03CA, $03CB, $03CC, $03CD, $03CE, $FFFD
+    );
+
+{HEBREW
+}
+  CharISO_8859_8: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $FFFD, $00A2, $00A3, $00A4, $00A5, $00A6, $00A7,
+    $00A8, $00A9, $00D7, $00AB, $00AC, $00AD, $00AE, $00AF,
+    $00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+    $00B8, $00B9, $00F7, $00BB, $00BC, $00BD, $00BE, $FFFD,
+    $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD,
+    $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD,
+    $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD,
+    $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $2017,
+    $05D0, $05D1, $05D2, $05D3, $05D4, $05D5, $05D6, $05D7,
+    $05D8, $05D9, $05DA, $05DB, $05DC, $05DD, $05DE, $05DF,
+    $05E0, $05E1, $05E2, $05E3, $05E4, $05E5, $05E6, $05E7,
+    $05E8, $05E9, $05EA, $FFFD, $FFFD, $200E, $200F, $FFFD
+    );
+
+{Latin-5
+  English, Finnish, French, German, Irish, Italian, Norwegian,
+  Portuguese, Spanish, Swedish and Turkish.
+}
+  CharISO_8859_9: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $0104, $02D8, $0141, $00A4, $013D, $015A, $00A7,
+    $00A8, $0160, $015E, $0164, $0179, $00AD, $017D, $017B,
+    $00B0, $0105, $02DB, $0142, $00B4, $013E, $015B, $02C7,
+    $00B8, $0161, $015F, $0165, $017A, $02DD, $017E, $017C,
+    $0154, $00C1, $00C2, $0102, $00C4, $0139, $0106, $00C7,
+    $010C, $00C9, $0118, $00CB, $011A, $00CD, $00CE, $010E,
+    $011E, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $00D7,
+    $00D8, $00D9, $00DA, $00DB, $00DC, $0130, $015E, $00DF,
+    $00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
+    $011F, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $00F7,
+    $00F8, $00F9, $00FA, $00FB, $00FC, $0131, $015F, $00FF
+    );
+
+{Latin-6
+  Danish, English, Estonian, Faeroese, Finnish, German, Greenlandic,
+  Icelandic, Lappish, Latvian, Lithuanian, Norwegian and Swedish.
+}
+  CharISO_8859_10: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $0104, $0112, $0122, $012A, $0128, $0136, $00A7,
+    $013B, $0110, $0160, $0166, $017D, $00AD, $016A, $014A,
+    $00B0, $0105, $0113, $0123, $012B, $0129, $0137, $00B7,
+    $013C, $0111, $0161, $0167, $017E, $2015, $016B, $014B,
+    $0100, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $012E,
+    $010C, $00C9, $0118, $00CB, $0116, $00CD, $00CE, $00CF,
+    $00D0, $0145, $014C, $00D3, $00D4, $00D5, $00D6, $0168,
+    $00D8, $0172, $00DA, $00DB, $00DC, $00DD, $00DE, $00DF,
+    $0101, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $012F,
+    $010D, $00E9, $0119, $00EB, $0117, $00ED, $00EE, $00EF,
+    $00F0, $0146, $014D, $00F3, $00F4, $00F5, $00F6, $0169,
+    $00F8, $0173, $00FA, $00FB, $00FC, $00FD, $00FE, $0138
+    );
+
+  CharISO_8859_13: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $201D, $00A2, $00A3, $00A4, $201E, $00A6, $00A7,
+    $00D8, $00A9, $0156, $00AB, $00AC, $00AD, $00AE, $00C6,
+    $00B0, $00B1, $00B2, $00B3, $201C, $00B5, $00B6, $00B7,
+    $00F8, $00B9, $0157, $00BB, $00BC, $00BD, $00BE, $00E6,
+    $0104, $012E, $0100, $0106, $00C4, $00C5, $0118, $0112,
+    $010C, $00C9, $0179, $0116, $0122, $0136, $012A, $013B,
+    $0160, $0143, $0145, $00D3, $014C, $00D5, $00D6, $00D7,
+    $0172, $0141, $015A, $016A, $00DC, $017B, $017D, $00DF,
+    $0105, $012F, $0101, $0107, $00E4, $00E5, $0119, $0113,
+    $010D, $00E9, $017A, $0117, $0123, $0137, $012B, $013C,
+    $0161, $0144, $0146, $00F3, $014D, $00F5, $00F6, $00F7,
+    $0173, $0142, $015B, $016B, $00FC, $017C, $017E, $2019
+    );
+
+  CharISO_8859_14: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $1E02, $1E03, $00A3, $010A, $010B, $1E0A, $00A7,
+    $1E80, $00A9, $1E82, $1E0B, $1EF2, $00AD, $00AE, $0178,
+    $1E1E, $1E1F, $0120, $0121, $1E40, $1E41, $00B6, $1E56,
+    $1E81, $1E57, $1E83, $1E60, $1EF3, $1E84, $1E85, $1E61,
+    $00C0, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $00C7,
+    $00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
+    $0174, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $1E6A,
+    $00D8, $00D9, $00DA, $00DB, $00DC, $00DD, $0176, $00DF,
+    $00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
+    $0175, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $1E6B,
+    $00F8, $00F9, $00FA, $00FB, $00FC, $00FD, $0177, $00FF
+    );
+
+  CharISO_8859_15: array[128..255] of Word =
+  (
+    $0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
+    $0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
+    $0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
+    $0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
+    $00A0, $00A1, $00A2, $00A3, $20AC, $00A5, $0160, $00A7,
+    $0161, $00A9, $00AA, $00AB, $00AC, $00AD, $00AE, $00AF,
+    $00B0, $00B1, $00B2, $00B3, $017D, $00B5, $00B6, $00B7,
+    $017E, $00B9, $00BA, $00BB, $0152, $0153, $0178, $00BF,
+    $00C0, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $00C7,
+    $00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
+    $00D0, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $00D7,
+    $00D8, $00D9, $00DA, $00DB, $00DC, $00DD, $00DE, $00DF,
+    $00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
+    $00F0, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $00F7,
+    $00F8, $00F9, $00FA, $00FB, $00FC, $00FD, $00FE, $00FF
+    );
+
+{Eastern European
+}
+  CharCP_1250: array[128..255] of Word =
+  (
+    $20AC, $FFFD, $201A, $FFFD, $201E, $2026, $2020, $2021,
+    $FFFD, $2030, $0160, $2039, $015A, $0164, $017D, $0179,
+    $FFFD, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $FFFD, $2122, $0161, $203A, $015B, $0165, $017E, $017A,
+    $00A0, $02C7, $02D8, $0141, $00A4, $0104, $00A6, $00A7,
+    $00A8, $00A9, $015E, $00AB, $00AC, $00AD, $00AE, $017B,
+    $00B0, $00B1, $02DB, $0142, $00B4, $00B5, $00B6, $00B7,
+    $00B8, $0105, $015F, $00BB, $013D, $02DD, $013E, $017C,
+    $0154, $00C1, $00C2, $0102, $00C4, $0139, $0106, $00C7,
+    $010C, $00C9, $0118, $00CB, $011A, $00CD, $00CE, $010E,
+    $0110, $0143, $0147, $00D3, $00D4, $0150, $00D6, $00D7,
+    $0158, $016E, $00DA, $0170, $00DC, $00DD, $0162, $00DF,
+    $0155, $00E1, $00E2, $0103, $00E4, $013A, $0107, $00E7,
+    $010D, $00E9, $0119, $00EB, $011B, $00ED, $00EE, $010F,
+    $0111, $0144, $0148, $00F3, $00F4, $0151, $00F6, $00F7,
+    $0159, $016F, $00FA, $0171, $00FC, $00FD, $0163, $02D9
+    );
+
+{Cyrillic
+}
+  CharCP_1251: array[128..255] of Word =
+  (
+    $0402, $0403, $201A, $0453, $201E, $2026, $2020, $2021,
+    $20AC, $2030, $0409, $2039, $040A, $040C, $040B, $040F,
+    $0452, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $FFFD, $2122, $0459, $203A, $045A, $045C, $045B, $045F,
+    $00A0, $040E, $045E, $0408, $00A4, $0490, $00A6, $00A7,
+    $0401, $00A9, $0404, $00AB, $00AC, $00AD, $00AE, $0407,
+    $00B0, $00B1, $0406, $0456, $0491, $00B5, $00B6, $00B7,
+    $0451, $2116, $0454, $00BB, $0458, $0405, $0455, $0457,
+    $0410, $0411, $0412, $0413, $0414, $0415, $0416, $0417,
+    $0418, $0419, $041A, $041B, $041C, $041D, $041E, $041F,
+    $0420, $0421, $0422, $0423, $0424, $0425, $0426, $0427,
+    $0428, $0429, $042A, $042B, $042C, $042D, $042E, $042F,
+    $0430, $0431, $0432, $0433, $0434, $0435, $0436, $0437,
+    $0438, $0439, $043A, $043B, $043C, $043D, $043E, $043F,
+    $0440, $0441, $0442, $0443, $0444, $0445, $0446, $0447,
+    $0448, $0449, $044A, $044B, $044C, $044D, $044E, $044F
+    );
+
+{Latin-1 (US, Western Europe)
+}
+  CharCP_1252: array[128..255] of Word =
+  (
+    $20AC, $FFFD, $201A, $0192, $201E, $2026, $2020, $2021,
+    $02C6, $2030, $0160, $2039, $0152, $FFFD, $017D, $FFFD,
+    $FFFD, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $02DC, $2122, $0161, $203A, $0153, $FFFD, $017E, $0178,
+    $00A0, $00A1, $00A2, $00A3, $00A4, $00A5, $00A6, $00A7,
+    $00A8, $00A9, $00AA, $00AB, $00AC, $00AD, $00AE, $00AF,
+    $00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+    $00B8, $00B9, $00BA, $00BB, $00BC, $00BD, $00BE, $00BF,
+    $00C0, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $00C7,
+    $00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
+    $00D0, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $00D7,
+    $00D8, $00D9, $00DA, $00DB, $00DC, $00DD, $00DE, $00DF,
+    $00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
+    $00F0, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $00F7,
+    $00F8, $00F9, $00FA, $00FB, $00FC, $00FD, $00FE, $00FF
+    );
+
+{Greek
+}
+  CharCP_1253: array[128..255] of Word =
+  (
+    $20AC, $FFFD, $201A, $0192, $201E, $2026, $2020, $2021,
+    $FFFD, $2030, $FFFD, $2039, $FFFD, $FFFD, $FFFD, $FFFD,
+    $FFFD, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $FFFD, $2122, $FFFD, $203A, $FFFD, $FFFD, $FFFD, $FFFD,
+    $00A0, $0385, $0386, $00A3, $00A4, $00A5, $00A6, $00A7,
+    $00A8, $00A9, $FFFD, $00AB, $00AC, $00AD, $00AE, $2015,
+    $00B0, $00B1, $00B2, $00B3, $0384, $00B5, $00B6, $00B7,
+    $0388, $0389, $038A, $00BB, $038C, $00BD, $038E, $038F,
+    $0390, $0391, $0392, $0393, $0394, $0395, $0396, $0397,
+    $0398, $0399, $039A, $039B, $039C, $039D, $039E, $039F,
+    $03A0, $03A1, $FFFD, $03A3, $03A4, $03A5, $03A6, $03A7,
+    $03A8, $03A9, $03AA, $03AB, $03AC, $03AD, $03AE, $03AF,
+    $03B0, $03B1, $03B2, $03B3, $03B4, $03B5, $03B6, $03B7,
+    $03B8, $03B9, $03BA, $03BB, $03BC, $03BD, $03BE, $03BF,
+    $03C0, $03C1, $03C2, $03C3, $03C4, $03C5, $03C6, $03C7,
+    $03C8, $03C9, $03CA, $03CB, $03CC, $03CD, $03CE, $FFFD
+    );
+
+{Turkish
+}
+  CharCP_1254: array[128..255] of Word =
+  (
+    $20AC, $FFFD, $201A, $0192, $201E, $2026, $2020, $2021,
+    $02C6, $2030, $0160, $2039, $0152, $FFFD, $FFFD, $FFFD,
+    $FFFD, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $02DC, $2122, $0161, $203A, $0153, $FFFD, $FFFD, $0178,
+    $00A0, $00A1, $00A2, $00A3, $00A4, $00A5, $00A6, $00A7,
+    $00A8, $00A9, $00AA, $00AB, $00AC, $00AD, $00AE, $00AF,
+    $00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+    $00B8, $00B9, $00BA, $00BB, $00BC, $00BD, $00BE, $00BF,
+    $00C0, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $00C7,
+    $00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
+    $011E, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $00D7,
+    $00D8, $00D9, $00DA, $00DB, $00DC, $0130, $015E, $00DF,
+    $00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
+    $011F, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $00F7,
+    $00F8, $00F9, $00FA, $00FB, $00FC, $0131, $015F, $00FF
+    );
+
+{Hebrew
+}
+  CharCP_1255: array[128..255] of Word =
+  (
+    $20AC, $FFFD, $201A, $0192, $201E, $2026, $2020, $2021,
+    $02C6, $2030, $FFFD, $2039, $FFFD, $FFFD, $FFFD, $FFFD,
+    $FFFD, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $02DC, $2122, $FFFD, $203A, $FFFD, $FFFD, $FFFD, $FFFD,
+    $00A0, $00A1, $00A2, $00A3, $20AA, $00A5, $00A6, $00A7,
+    $00A8, $00A9, $00D7, $00AB, $00AC, $00AD, $00AE, $00AF,
+    $00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+    $00B8, $00B9, $00F7, $00BB, $00BC, $00BD, $00BE, $00BF,
+    $05B0, $05B1, $05B2, $05B3, $05B4, $05B5, $05B6, $05B7,
+    $05B8, $05B9, $FFFD, $05BB, $05BC, $05BD, $05BE, $05BF,
+    $05C0, $05C1, $05C2, $05C3, $05F0, $05F1, $05F2, $05F3,
+    $05F4, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD, $FFFD,
+    $05D0, $05D1, $05D2, $05D3, $05D4, $05D5, $05D6, $05D7,
+    $05D8, $05D9, $05DA, $05DB, $05DC, $05DD, $05DE, $05DF,
+    $05E0, $05E1, $05E2, $05E3, $05E4, $05E5, $05E6, $05E7,
+    $05E8, $05E9, $05EA, $FFFD, $FFFD, $200E, $200F, $FFFD
+    );
+
+{Arabic
+}
+  CharCP_1256: array[128..255] of Word =
+  (
+    $20AC, $067E, $201A, $0192, $201E, $2026, $2020, $2021,
+    $02C6, $2030, $0679, $2039, $0152, $0686, $0698, $0688,
+    $06AF, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $06A9, $2122, $0691, $203A, $0153, $200C, $200D, $06BA,
+    $00A0, $060C, $00A2, $00A3, $00A4, $00A5, $00A6, $00A7,
+    $00A8, $00A9, $06BE, $00AB, $00AC, $00AD, $00AE, $00AF,
+    $00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+    $00B8, $00B9, $061B, $00BB, $00BC, $00BD, $00BE, $061F,
+    $06C1, $0621, $0622, $0623, $0624, $0625, $0626, $0627,
+    $0628, $0629, $062A, $062B, $062C, $062D, $062E, $062F,
+    $0630, $0631, $0632, $0633, $0634, $0635, $0636, $00D7,
+    $0637, $0638, $0639, $063A, $0640, $0641, $0642, $0643,
+    $00E0, $0644, $00E2, $0645, $0646, $0647, $0648, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $0649, $064A, $00EE, $00EF,
+    $064B, $064C, $064D, $064E, $00F4, $064F, $0650, $00F7,
+    $0651, $00F9, $0652, $00FB, $00FC, $200E, $200F, $06D2
+    );
+
+{Baltic
+}
+  CharCP_1257: array[128..255] of Word =
+  (
+    $20AC, $FFFD, $201A, $FFFD, $201E, $2026, $2020, $2021,
+    $FFFD, $2030, $FFFD, $2039, $FFFD, $00A8, $02C7, $00B8,
+    $FFFD, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $FFFD, $2122, $FFFD, $203A, $FFFD, $00AF, $02DB, $FFFD,
+    $00A0, $FFFD, $00A2, $00A3, $00A4, $FFFD, $00A6, $00A7,
+    $00D8, $00A9, $0156, $00AB, $00AC, $00AD, $00AE, $00C6,
+    $00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+    $00F8, $00B9, $0157, $00BB, $00BC, $00BD, $00BE, $00E6,
+    $0104, $012E, $0100, $0106, $00C4, $00C5, $0118, $0112,
+    $010C, $00C9, $0179, $0116, $0122, $0136, $012A, $013B,
+    $0160, $0143, $0145, $00D3, $014C, $00D5, $00D6, $00D7,
+    $0172, $0141, $015A, $016A, $00DC, $017B, $017D, $00DF,
+    $0105, $012F, $0101, $0107, $00E4, $00E5, $0119, $0113,
+    $010D, $00E9, $017A, $0117, $0123, $0137, $012B, $013C,
+    $0161, $0144, $0146, $00F3, $014D, $00F5, $00F6, $00F7,
+    $0173, $0142, $015B, $016B, $00FC, $017C, $017E, $02D9
+    );
+
+{Vietnamese
+}
+  CharCP_1258: array[128..255] of Word =
+  (
+    $20AC, $FFFD, $201A, $0192, $201E, $2026, $2020, $2021,
+    $02C6, $2030, $FFFD, $2039, $0152, $FFFD, $FFFD, $FFFD,
+    $FFFD, $2018, $2019, $201C, $201D, $2022, $2013, $2014,
+    $02DC, $2122, $FFFD, $203A, $0153, $FFFD, $FFFD, $0178,
+    $00A0, $00A1, $00A2, $00A3, $00A4, $00A5, $00A6, $00A7,
+    $00A8, $00A9, $00AA, $00AB, $00AC, $00AD, $00AE, $00AF,
+    $00B0, $00B1, $00B2, $00B3, $00B4, $00B5, $00B6, $00B7,
+    $00B8, $00B9, $00BA, $00BB, $00BC, $00BD, $00BE, $00BF,
+    $00C0, $00C1, $00C2, $0102, $00C4, $00C5, $00C6, $00C7,
+    $00C8, $00C9, $00CA, $00CB, $0300, $00CD, $00CE, $00CF,
+    $0110, $00D1, $0309, $00D3, $00D4, $01A0, $00D6, $00D7,
+    $00D8, $00D9, $00DA, $00DB, $00DC, $01AF, $0303, $00DF,
+    $00E0, $00E1, $00E2, $0103, $00E4, $00E5, $00E6, $00E7,
+    $00E8, $00E9, $00EA, $00EB, $0301, $00ED, $00EE, $00EF,
+    $0111, $00F1, $0323, $00F3, $00F4, $01A1, $00F6, $00F7,
+    $00F8, $00F9, $00FA, $00FB, $00FC, $01B0, $20AB, $00FF
+    );
+
+{Cyrillic
+}
+  CharKOI8_R: array[128..255] of Word =
+  (
+    $2500, $2502, $250C, $2510, $2514, $2518, $251C, $2524,
+    $252C, $2534, $253C, $2580, $2584, $2588, $258C, $2590,
+    $2591, $2592, $2593, $2320, $25A0, $2219, $221A, $2248,
+    $2264, $2265, $00A0, $2321, $00B0, $00B2, $00B7, $00F7,
+    $2550, $2551, $2552, $0451, $2553, $2554, $2555, $2556,
+    $2557, $2558, $2559, $255A, $255B, $255C, $255D, $255E,
+    $255F, $2560, $2561, $0401, $2562, $2563, $2564, $2565,
+    $2566, $2567, $2568, $2569, $256A, $256B, $256C, $00A9,
+    $044E, $0430, $0431, $0446, $0434, $0435, $0444, $0433,
+    $0445, $0438, $0439, $043A, $043B, $043C, $043D, $043E,
+    $043F, $044F, $0440, $0441, $0442, $0443, $0436, $0432,
+    $044C, $044B, $0437, $0448, $044D, $0449, $0447, $044A,
+    $042E, $0410, $0411, $0426, $0414, $0415, $0424, $0413,
+    $0425, $0418, $0419, $041A, $041B, $041C, $041D, $041E,
+    $041F, $042F, $0420, $0421, $0422, $0423, $0416, $0412,
+    $042C, $042B, $0417, $0428, $042D, $0429, $0427, $042A
+    );
+
+{Czech (Kamenicky)
+}
+  CharCP_895: array[128..255] of Word =
+  (
+    $010C, $00FC, $00E9, $010F, $00E4, $010E, $0164, $010D,
+    $011B, $011A, $0139, $00CD, $013E, $013A, $00C4, $00C1,
+    $00C9, $017E, $017D, $00F4, $00F6, $00D3, $016F, $00DA,
+    $00FD, $00D6, $00DC, $0160, $013D, $00DD, $0158, $0165,
+    $00E1, $00ED, $00F3, $00FA, $0148, $0147, $016E, $00D4,
+    $0161, $0159, $0155, $0154, $00BC, $00A7, $00AB, $00BB,
+    $2591, $2592, $2593, $2502, $2524, $2561, $2562, $2556,
+    $2555, $2563, $2551, $2557, $255D, $255C, $255B, $2510,
+    $2514, $2534, $252C, $251C, $2500, $253C, $255E, $255F,
+    $255A, $2554, $2569, $2566, $2560, $2550, $256C, $2567,
+    $2568, $2564, $2565, $2559, $2558, $2552, $2553, $256B,
+    $256A, $2518, $250C, $2588, $2584, $258C, $2590, $2580,
+    $03B1, $03B2, $0393, $03C0, $03A3, $03C3, $03BC, $03C4,
+    $03A6, $0398, $03A9, $03B4, $221E, $2205, $03B5, $2229,
+    $2261, $00B1, $2265, $2264, $2320, $2321, $00F7, $2248,
+    $2218, $00B7, $2219, $221A, $207F, $00B2, $25A0, $00A0
+    );
+
+{Eastern European
+}
+  CharCP_852: array[128..255] of Word =
+  (
+    $00C7, $00FC, $00E9, $00E2, $00E4, $016F, $0107, $00E7,
+    $0142, $00EB, $0150, $0151, $00EE, $0179, $00C4, $0106,
+    $00C9, $0139, $013A, $00F4, $00F6, $013D, $013E, $015A,
+    $015B, $00D6, $00DC, $0164, $0165, $0141, $00D7, $010D,
+    $00E1, $00ED, $00F3, $00FA, $0104, $0105, $017D, $017E,
+    $0118, $0119, $00AC, $017A, $010C, $015F, $00AB, $00BB,
+    $2591, $2592, $2593, $2502, $2524, $00C1, $00C2, $011A,
+    $015E, $2563, $2551, $2557, $255D, $017B, $017C, $2510,
+    $2514, $2534, $252C, $251C, $2500, $253C, $0102, $0103,
+    $255A, $2554, $2569, $2566, $2560, $2550, $256C, $00A4,
+    $0111, $0110, $010E, $00CB, $010F, $0147, $00CD, $00CE,
+    $011B, $2518, $250C, $2588, $2584, $0162, $016E, $2580,
+    $00D3, $00DF, $00D4, $0143, $0144, $0148, $0160, $0161,
+    $0154, $00DA, $0155, $0170, $00FD, $00DD, $0163, $00B4,
+    $00AD, $02DD, $02DB, $02C7, $02D8, $00A7, $00F7, $00B8,
+    $00B0, $00A8, $02D9, $0171, $0158, $0159, $25A0, $00A0
+    );
+
+{==============================================================================}
+type
+  TIconvChar = record
+    Charset: TMimeChar;
+    CharName: string;
+  end;
+  TIconvArr = array [0..112] of TIconvChar;
+
+const
+  NotFoundChar = '_';
+
+var
+  SetTwo: set of TMimeChar = [UCS_2, UCS_2LE, UTF_7, UTF_7mod];
+  SetFour: set of TMimeChar = [UCS_4, UCS_4LE, UTF_8];
+  SetLE: set of TMimeChar = [UCS_2LE, UCS_4LE];
+
+  IconvArr: TIconvArr;
+
+{==============================================================================}
+function FindIconvID(const Value, Charname: string): Boolean;
+var
+  s: string;
+begin
+  Result := True;
+  //exact match
+  if Value = Charname then
+    Exit;
+  //Value is on begin of charname
+  s := Value + ' ';
+  if s = Copy(Charname, 1, Length(s)) then
+    Exit;
+  //Value is on end of charname
+  s := ' ' + Value;
+  if s = Copy(Charname, Length(Charname) - Length(s) + 1, Length(s)) then
+    Exit;
+  //value is somewhere inside charname
+  if Pos( s + ' ', Charname) > 0 then
+    Exit;
+  Result := False;
+end;
+
+function GetCPFromIconvID(Value: AnsiString): TMimeChar;
+var
+  n: integer;
+begin
+  Result := ISO_8859_1;
+  Value := UpperCase(Value);
+  for n := 0 to High(IconvArr) do
+    if FindIconvID(Value, IconvArr[n].Charname) then
+    begin
+      Result := IconvArr[n].Charset;
+      Break;
+    end;
+end;
+
+{==============================================================================}
+function GetIconvIDFromCP(Value: TMimeChar): AnsiString;
+var
+  n: integer;
+begin
+  Result := 'ISO-8859-1';
+  for n := 0 to High(IconvArr) do
+    if IconvArr[n].Charset = Value then
+    begin
+      Result := Separateleft(IconvArr[n].Charname, ' ');
+      Break;
+    end;
+end;
+
+{==============================================================================}
+function ReplaceUnicode(Value: Word; const TransformTable: array of Word): Word;
+var
+  n: integer;
+begin
+  if High(TransformTable) <> 0 then
+    for n := 0 to High(TransformTable) do
+      if not odd(n) then
+        if TransformTable[n] = Value then
+          begin
+            Value := TransformTable[n+1];
+            break;
+          end;
+  Result := Value;
+end;
+
+{==============================================================================}
+procedure CopyArray(const SourceTable: array of Word;
+  var TargetTable: array of Word);
+var
+  n: Integer;
+begin
+  for n := 0 to 127 do
+    TargetTable[n] := SourceTable[n];
+end;
+
+{==============================================================================}
+procedure GetArray(CharSet: TMimeChar; var Result: array of Word);
+begin
+  case CharSet of
+    ISO_8859_2:
+      CopyArray(CharISO_8859_2, Result);
+    ISO_8859_3:
+      CopyArray(CharISO_8859_3, Result);
+    ISO_8859_4:
+      CopyArray(CharISO_8859_4, Result);
+    ISO_8859_5:
+      CopyArray(CharISO_8859_5, Result);
+    ISO_8859_6:
+      CopyArray(CharISO_8859_6, Result);
+    ISO_8859_7:
+      CopyArray(CharISO_8859_7, Result);
+    ISO_8859_8:
+      CopyArray(CharISO_8859_8, Result);
+    ISO_8859_9:
+      CopyArray(CharISO_8859_9, Result);
+    ISO_8859_10:
+      CopyArray(CharISO_8859_10, Result);
+    ISO_8859_13:
+      CopyArray(CharISO_8859_13, Result);
+    ISO_8859_14:
+      CopyArray(CharISO_8859_14, Result);
+    ISO_8859_15:
+      CopyArray(CharISO_8859_15, Result);
+    CP1250:
+      CopyArray(CharCP_1250, Result);
+    CP1251:
+      CopyArray(CharCP_1251, Result);
+    CP1252:
+      CopyArray(CharCP_1252, Result);
+    CP1253:
+      CopyArray(CharCP_1253, Result);
+    CP1254:
+      CopyArray(CharCP_1254, Result);
+    CP1255:
+      CopyArray(CharCP_1255, Result);
+    CP1256:
+      CopyArray(CharCP_1256, Result);
+    CP1257:
+      CopyArray(CharCP_1257, Result);
+    CP1258:
+      CopyArray(CharCP_1258, Result);
+    KOI8_R:
+      CopyArray(CharKOI8_R, Result);
+    CP895:
+      CopyArray(CharCP_895, Result);
+    CP852:
+      CopyArray(CharCP_852, Result);
+  else
+      CopyArray(CharISO_8859_1, Result);
+  end;
+end;
+
+{==============================================================================}
+procedure ReadMulti(const Value: AnsiString; var Index: Integer; mb: Byte;
+  var b1, b2, b3, b4: Byte; le: boolean);
+Begin
+  b1 := 0;
+  b2 := 0;
+  b3 := 0;
+  b4 := 0;
+  if Index < 0 then
+    Index := 1;
+  if mb > 4 then
+    mb := 1;
+  if (Index + mb - 1) <= Length(Value) then
+  begin
+    if le then
+      Case mb Of
+        1:
+          b1 := Ord(Value[Index]);
+        2:
+          Begin
+            b1 := Ord(Value[Index]);
+            b2 := Ord(Value[Index + 1]);
+          End;
+        3:
+          Begin
+            b1 := Ord(Value[Index]);
+            b2 := Ord(Value[Index + 1]);
+            b3 := Ord(Value[Index + 2]);
+          End;
+        4:
+          Begin
+            b1 := Ord(Value[Index]);
+            b2 := Ord(Value[Index + 1]);
+            b3 := Ord(Value[Index + 2]);
+            b4 := Ord(Value[Index + 3]);
+          End;
+      end
+    else
+      Case mb Of
+        1:
+          b1 := Ord(Value[Index]);
+        2:
+          Begin
+            b2 := Ord(Value[Index]);
+            b1 := Ord(Value[Index + 1]);
+          End;
+        3:
+          Begin
+            b3 := Ord(Value[Index]);
+            b2 := Ord(Value[Index + 1]);
+            b1 := Ord(Value[Index + 2]);
+          End;
+        4:
+          Begin
+            b4 := Ord(Value[Index]);
+            b3 := Ord(Value[Index + 1]);
+            b2 := Ord(Value[Index + 2]);
+            b1 := Ord(Value[Index + 3]);
+          End;
+      end;
+  end;
+  Inc(Index, mb);
+end;
+
+{==============================================================================}
+function WriteMulti(b1, b2, b3, b4: Byte; mb: Byte; le: boolean): AnsiString;
+begin
+  if mb > 4 then
+    mb := 1;
+  SetLength(Result, mb);
+  if le then
+    case mb Of
+      1:
+        Result[1] := AnsiChar(b1);
+      2:
+        begin
+          Result[1] := AnsiChar(b1);
+          Result[2] := AnsiChar(b2);
+        end;
+      3:
+        begin
+          Result[1] := AnsiChar(b1);
+          Result[2] := AnsiChar(b2);
+          Result[3] := AnsiChar(b3);
+        end;
+      4:
+        begin
+          Result[1] := AnsiChar(b1);
+          Result[2] := AnsiChar(b2);
+          Result[3] := AnsiChar(b3);
+          Result[4] := AnsiChar(b4);
+        end;
+    end
+  else
+    case mb Of
+      1:
+        Result[1] := AnsiChar(b1);
+      2:
+        begin
+          Result[2] := AnsiChar(b1);
+          Result[1] := AnsiChar(b2);
+        end;
+      3:
+        begin
+          Result[3] := AnsiChar(b1);
+          Result[2] := AnsiChar(b2);
+          Result[1] := AnsiChar(b3);
+        end;
+      4:
+        begin
+          Result[4] := AnsiChar(b1);
+          Result[3] := AnsiChar(b2);
+          Result[2] := AnsiChar(b3);
+          Result[1] := AnsiChar(b4);
+        end;
+    end;
+end;
+
+{==============================================================================}
+function UTF8toUCS4(const Value: AnsiString): AnsiString;
+var
+  n, x, ul, m: Integer;
+  s: AnsiString;
+  w1, w2: Word;
+begin
+  Result := '';
+  n := 1;
+  while Length(Value) >= n do
+  begin
+    x := Ord(Value[n]);
+    Inc(n);
+    if x < 128 then
+      Result := Result + WriteMulti(x, 0, 0, 0, 4, false)
+    else
+    begin
+      m := 0;
+      if (x and $E0) = $C0 then
+        m := $1F;
+      if (x and $F0) = $E0 then
+        m := $0F;
+      if (x and $F8) = $F0 then
+        m := $07;
+      if (x and $FC) = $F8 then
+        m := $03;
+      if (x and $FE) = $FC then
+        m := $01;
+      ul := x and m;
+      s := IntToBin(ul, 0);
+      while Length(Value) >= n do
+      begin
+        x := Ord(Value[n]);
+        Inc(n);
+        if (x and $C0) = $80 then
+          s := s + IntToBin(x and $3F, 6)
+        else
+        begin
+          Dec(n);
+          Break;
+        end;
+      end;
+      ul := BinToInt(s);
+      w1 := ul div 65536;
+      w2 := ul mod 65536;
+      Result := Result + WriteMulti(Lo(w2), Hi(w2), Lo(w1), Hi(w1), 4, false);
+    end;
+  end;
+end;
+
+{==============================================================================}
+function UCS4toUTF8(const Value: AnsiString): AnsiString;
+var
+  s, l, k: AnsiString;
+  b1, b2, b3, b4: Byte;
+  n, m, x, y: Integer;
+  b: Byte;
+begin
+  Result := '';
+  n := 1;
+  while Length(Value) >= n do
+  begin
+    ReadMulti(Value, n, 4, b1, b2, b3, b4, false);
+    if (b2 = 0) and (b3 = 0) and (b4 = 0) and (b1 < 128) then
+      Result := Result + AnsiChar(b1)
+    else
+    begin
+      x := (b1 + 256 * b2) + (b3 + 256 * b4) * 65536;
+      l := IntToBin(x, 0);
+      y := Length(l) div 6;
+      s := '';
+      for m := 1 to y do
+      begin
+        k := Copy(l, Length(l) - 5, 6);
+        l := Copy(l, 1, Length(l) - 6);
+        b := BinToInt(k) or $80;
+        s := AnsiChar(b) + s;
+      end;
+      b := BinToInt(l);
+      case y of
+        5:
+          b := b or $FC;
+        4:
+          b := b or $F8;
+        3:
+          b := b or $F0;
+        2:
+          b := b or $E0;
+        1:
+          b := b or $C0;
+      end;
+      s := AnsiChar(b) + s;
+      Result := Result + s;
+    end;
+  end;
+end;
+
+{==============================================================================}
+function UTF7toUCS2(const Value: AnsiString; Modified: Boolean): AnsiString;
+var
+  n, i: Integer;
+  c: AnsiChar;
+  s, t: AnsiString;
+  shift: AnsiChar;
+  table: String;
+begin
+  Result := '';
+  n := 1;
+  if modified then
+  begin
+    shift := '&';
+    table := TableBase64mod;
+  end
+  else
+  begin
+    shift := '+';
+    table := TableBase64;
+  end;
+  while Length(Value) >= n do
+  begin
+    c := Value[n];
+    Inc(n);
+    if c <> shift then
+      Result := Result + WriteMulti(Ord(c), 0, 0, 0, 2, false)
+    else
+    begin
+      s := '';
+      while Length(Value) >= n do
+      begin
+        c := Value[n];
+        Inc(n);
+        if c = '-' then
+          Break;
+        if (c = '=') or (Pos(c, table) < 1) then
+        begin
+          Dec(n);
+          Break;
+        end;
+        s := s + c;
+      end;
+      if s = '' then
+        s := WriteMulti(Ord(shift), 0, 0, 0, 2, false)
+      else
+      begin
+        if modified then
+          t := DecodeBase64mod(s)
+        else
+          t := DecodeBase64(s);
+        if not odd(length(t)) then
+          s := t
+        else
+        begin //ill-formed sequence
+          t := s;
+          s := WriteMulti(Ord(shift), 0, 0, 0, 2, false);
+          for i := 1 to length(t) do
+            s := s + WriteMulti(Ord(t[i]), 0, 0, 0, 2, false);
+        end;
+      end;
+      Result := Result + s;
+    end;
+  end;
+end;
+
+{==============================================================================}
+function UCS2toUTF7(const Value: AnsiString; Modified: Boolean): AnsiString;
+var
+  s: AnsiString;
+  b1, b2, b3, b4: Byte;
+  n, m: Integer;
+  shift: AnsiChar;
+begin
+  Result := '';
+  n := 1;
+  if modified then
+    shift := '&'
+  else
+    shift := '+';
+  while Length(Value) >= n do
+  begin
+    ReadMulti(Value, n, 2, b1, b2, b3, b4, false);
+    if (b2 = 0) and (b1 < 128) then
+      if AnsiChar(b1) = shift then
+        Result := Result + shift + '-'
+      else
+        Result := Result + AnsiChar(b1)
+    else
+    begin
+      s := AnsiChar(b2) + AnsiChar(b1);
+      while Length(Value) >= n do
+      begin
+        ReadMulti(Value, n, 2, b1, b2, b3, b4, false);
+        if (b2 = 0) and (b1 < 128) then
+        begin
+          Dec(n, 2);
+          Break;
+        end;
+        s := s + AnsiChar(b2) + AnsiChar(b1);
+      end;
+      if modified then
+        s := EncodeBase64mod(s)
+      else
+        s := EncodeBase64(s);
+      m := Pos('=', s);
+      if m > 0 then
+        s := Copy(s, 1, m - 1);
+      Result := Result + shift + s + '-';
+    end;
+  end;
+end;
+
+{==============================================================================}
+function CharsetConversion(const Value: AnsiString; CharFrom: TMimeChar;
+  CharTo: TMimeChar): AnsiString;
+begin
+  Result := CharsetConversionEx(Value, CharFrom, CharTo, Replace_None);
+end;
+
+{==============================================================================}
+function CharsetConversionEx(const Value: AnsiString; CharFrom: TMimeChar;
+  CharTo: TMimeChar; const TransformTable: array of Word): AnsiString;
+begin
+  Result := CharsetConversionTrans(Value, CharFrom, CharTo, TransformTable, True);
+end;
+
+{==============================================================================}
+
+function InternalToUcs(const Value: AnsiString; Charfrom: TMimeChar): AnsiString;
+var
+  uni: Word;
+  n: Integer;
+  b1, b2, b3, b4: Byte;
+  SourceTable: array[128..255] of Word;
+  mbf: Byte;
+  lef: Boolean;
+  s: AnsiString;
+begin
+  if CharFrom = UTF_8 then
+    s := UTF8toUCS4(Value)
+  else
+    if CharFrom = UTF_7 then
+      s := UTF7toUCS2(Value, False)
+    else
+      if CharFrom = UTF_7mod then
+        s := UTF7toUCS2(Value, True)
+      else
+        s := Value;
+  GetArray(CharFrom, SourceTable);
+  mbf := 1;
+  if CharFrom in SetTwo then
+    mbf := 2;
+  if CharFrom in SetFour then
+    mbf := 4;
+  lef := CharFrom in SetLe;
+  Result := '';
+  n := 1;
+  while Length(s) >= n do
+  begin
+    ReadMulti(s, n, mbf, b1, b2, b3, b4, lef);
+    //handle BOM
+    if (b3 = 0) and (b4 = 0) then
+    begin
+      if (b1 = $FE) and (b2 = $FF) then
+      begin
+        lef := not lef;
+        continue;
+      end;
+      if (b1 = $FF) and (b2 = $FE) then
+        continue;
+    end;
+    if mbf = 1 then
+      if b1 > 127 then
+      begin
+        uni := SourceTable[b1];
+        b1 := Lo(uni);
+        b2 := Hi(uni);
+      end;
+    Result := Result + WriteMulti(b1, b2, b3, b4, 2, False);
+  end;
+end;
+
+function CharsetConversionTrans(Value: AnsiString; CharFrom: TMimeChar;
+  CharTo: TMimeChar; const TransformTable: array of Word; Translit: Boolean): AnsiString;
+var
+  uni: Word;
+  n, m: Integer;
+  b: Byte;
+  b1, b2, b3, b4: Byte;
+  TargetTable: array[128..255] of Word;
+  mbt: Byte;
+  let: Boolean;
+  ucsstring, s, t: AnsiString;
+  cd: iconv_t;
+  f: Boolean;
+  NotNeedTransform: Boolean;
+  FromID, ToID: string;
+begin
+  NotNeedTransform := (High(TransformTable) = 0);
+  if (CharFrom = CharTo) and NotNeedTransform then
+  begin
+    Result := Value;
+    Exit;
+  end;
+  FromID := GetIDFromCP(CharFrom);
+  ToID := GetIDFromCP(CharTo);
+  cd := Iconv_t(-1);
+  //do two-pass conversion. Transform to UCS-2 first.
+  if not DisableIconv then
+    cd := SynaIconvOpenIgnore('UCS-2BE', FromID);
+  try
+    if cd <> iconv_t(-1) then
+      SynaIconv(cd, Value, ucsstring)
+    else
+      ucsstring := InternalToUcs(Value, CharFrom);
+  finally
+    SynaIconvClose(cd);
+  end;
+  //here we allways have ucstring with UCS-2 encoding
+  //second pass... from UCS-2 to target encoding.
+    if not DisableIconv then
+      if translit then
+        cd := SynaIconvOpenTranslit(ToID, 'UCS-2BE')
+      else
+        cd := SynaIconvOpenIgnore(ToID, 'UCS-2BE');
+  try
+    if (cd <> iconv_t(-1)) and NotNeedTransform then
+    begin
+      if CharTo = UTF_7 then
+        ucsstring := ucsstring + #0 + '-';
+      //when transformtable is not needed and Iconv know target charset,
+      //do it fast by one call.
+      SynaIconv(cd, ucsstring, Result);
+      if CharTo = UTF_7 then
+        Delete(Result, Length(Result), 1);
+    end
+    else
+    begin
+      GetArray(CharTo, TargetTable);
+      mbt := 1;
+      if CharTo in SetTwo then
+        mbt := 2;
+      if CharTo in SetFour then
+        mbt := 4;
+      let := CharTo in SetLe;
+      b3 := 0;
+      b4 := 0;
+      Result := '';
+      for n:= 0 to (Length(ucsstring) div 2) - 1 do
+      begin
+        s := Copy(ucsstring, n * 2 + 1, 2);
+        b2 := Ord(s[1]);
+        b1 := Ord(s[2]);
+        uni := b2 * 256 + b1;
+        if not NotNeedTransform then
+        begin
+          uni := ReplaceUnicode(uni, TransformTable);
+          b1 := Lo(uni);
+          b2 := Hi(uni);
+          s[1] := AnsiChar(b2);
+          s[2] := AnsiChar(b1);
+        end;
+        if cd <> iconv_t(-1) then
+        begin
+          if CharTo = UTF_7 then
+            s := s + #0 + '-';
+          SynaIconv(cd, s, t);
+          if CharTo = UTF_7 then
+            Delete(t, Length(t), 1);
+          Result := Result + t;
+        end
+        else
+        begin
+          f := True;
+          if mbt = 1 then
+            if uni > 127 then
+            begin
+              f := False;
+              b := 0;
+              for m := 128 to 255 do
+                if TargetTable[m] = uni then
+                begin
+                  b := m;
+                  f := True;
+                  Break;
+                end;
+              b1 := b;
+              b2 := 0;
+            end
+            else
+              b1 := Lo(uni);
+          if not f then
+            if translit then
+            begin
+              b1 := Ord(NotFoundChar);
+              b2 := 0;
+              f := True;
+            end;
+          if f then
+            Result := Result + WriteMulti(b1, b2, b3, b4, mbt, let)
+        end;
+      end;
+      if cd = iconv_t(-1) then
+      begin
+        if CharTo = UTF_7 then
+          Result := UCS2toUTF7(Result, false);
+        if CharTo = UTF_7mod then
+          Result := UCS2toUTF7(Result, true);
+        if CharTo = UTF_8 then
+          Result := UCS4toUTF8(Result);
+      end;
+    end;
+  finally
+    SynaIconvClose(cd);
+  end;
+end;
+
+{==============================================================================}
+{$IFNDEF WIN32}
+
+function GetCurCP: TMimeChar;
+begin
+  {$IFNDEF FPC}
+  Result := GetCPFromID(nl_langinfo(_NL_CTYPE_CODESET_NAME));
+  {$ELSE}
+    {$IFDEF FPC_USE_LIBC}
+  Result := GetCPFromID(nl_langinfo(_NL_CTYPE_CODESET_NAME));
+    {$ELSE}
+  //How to get system codepage without LIBC?
+  Result := UTF_8;
+    {$ENDIF}
+  {$ENDIF}
+end;
+
+function GetCurOEMCP: TMimeChar;
+begin
+  Result := GetCurCP;
+end;
+
+{$ELSE}
+
+function CPToMimeChar(Value: Integer): TMimeChar;
+begin
+  case Value of
+    437, 850, 20127:
+      Result := ISO_8859_1; //I know, it is not ideal!
+    737:
+      Result := CP737;
+    775:
+      Result := CP775;
+    852:
+      Result := CP852;
+    855:
+      Result := CP855;
+    857:
+      Result := CP857;
+    858:
+      Result := CP858;
+    860:
+      Result := CP860;
+    861:
+      Result := CP861;
+    862:
+      Result := CP862;
+    863:
+      Result := CP863;
+    864:
+      Result := CP864;
+    865:
+      Result := CP865;
+    866:
+      Result := CP866;
+    869:
+      Result := CP869;
+    874:
+      Result := ISO_8859_15;
+    895:
+      Result := CP895;
+    932:
+      Result := CP932;
+    936:
+      Result := CP936;
+    949:
+      Result := CP949;
+    950:
+      Result := CP950;
+    1200:
+      Result := UCS_2LE;
+    1201:
+      Result := UCS_2;
+    1250:
+      Result := CP1250;
+    1251:
+      Result := CP1251;
+    1253:
+      Result := CP1253;
+    1254:
+      Result := CP1254;
+    1255:
+      Result := CP1255;
+    1256:
+      Result := CP1256;
+    1257:
+      Result := CP1257;
+    1258:
+      Result := CP1258;
+    1361:
+      Result := CP1361;
+    10000:
+      Result := MAC;
+    10004:
+      Result := MACAR;
+    10005:
+      Result := MACHEB;
+    10006:
+      Result := MACGR;
+    10007:
+      Result := MACCYR;
+    10010:
+      Result := MACRO;
+    10017:
+      Result := MACUK;
+    10021:
+      Result := MACTH;
+    10029:
+      Result := MACCE;
+    10079:
+      Result := MACICE;
+    10081:
+      Result := MACTU;
+    10082:
+      Result := MACCRO;
+    12000:
+      Result := UCS_4LE;
+    12001:
+      Result := UCS_4;
+    20866:
+      Result := KOI8_R;
+    20932:
+      Result := JIS_X0208;
+    20936:
+      Result := GB2312;
+    21866:
+      Result := KOI8_U;
+    28591:
+      Result := ISO_8859_1;
+    28592:
+      Result := ISO_8859_2;
+    28593:
+      Result := ISO_8859_3;
+    28594:
+      Result := ISO_8859_4;
+    28595:
+      Result := ISO_8859_5;
+    28596, 708:
+      Result := ISO_8859_6;
+    28597:
+      Result := ISO_8859_7;
+    28598, 38598:
+      Result := ISO_8859_8;
+    28599:
+      Result := ISO_8859_9;
+    28605:
+      Result := ISO_8859_15;
+    50220:
+      Result := ISO_2022_JP; //? ISO 2022 Japanese with no halfwidth Katakana
+    50221:
+      Result := ISO_2022_JP1;//? Japanese with halfwidth Katakana
+    50222:
+      Result := ISO_2022_JP2;//? Japanese JIS X 0201-1989
+    50225:
+      Result := ISO_2022_KR;
+    50227:
+      Result := ISO_2022_CN;//? ISO 2022 Simplified Chinese
+    50229:
+      Result := ISO_2022_CNE;//? ISO 2022 Traditional Chinese
+    51932:
+      Result := EUC_JP;
+    51936:
+      Result := GB2312;
+    51949:
+      Result := EUC_KR;
+    52936:
+      Result := HZ;
+    54936:
+      Result := GB18030;
+    65000:
+      Result := UTF_7;
+    65001:
+      Result := UTF_8;
+    0:
+      Result := UCS_2LE;
+  else
+    Result := CP1252;
+  end;
+end;
+
+function GetCurCP: TMimeChar;
+begin
+  Result := CPToMimeChar(GetACP);
+end;
+
+function GetCurOEMCP: TMimeChar;
+begin
+  Result := CPToMimeChar(GetOEMCP);
+end;
+{$ENDIF}
+
+{==============================================================================}
+function NeedCharsetConversion(const Value: AnsiString): Boolean;
+var
+  n: Integer;
+begin
+  Result := False;
+  for n := 1 to Length(Value) do
+    if (Ord(Value[n]) > 127) or (Ord(Value[n]) = 0) then
+    begin
+      Result := True;
+      Break;
+    end;
+end;
+
+{==============================================================================}
+function IdealCharsetCoding(const Value: AnsiString; CharFrom: TMimeChar;
+  CharTo: TMimeSetChar): TMimeChar;
+var
+  n: Integer;
+  max: Integer;
+  s, t, u: AnsiString;
+  CharSet: TMimeChar;
+begin
+  Result := ISO_8859_1;
+  s := Copy(Value, 1, 1024);  //max first 1KB for next procedure
+  max := 0;
+  for n := Ord(Low(TMimeChar)) to Ord(High(TMimeChar)) do
+  begin
+    CharSet := TMimeChar(n);
+    if CharSet in CharTo then
+    begin
+      t := CharsetConversionTrans(s, CharFrom, CharSet, Replace_None, False);
+      u := CharsetConversionTrans(t, CharSet, CharFrom, Replace_None, False);
+      if s = u then
+      begin
+        Result := CharSet;
+        Exit;
+      end;
+      if Length(u) > max then
+      begin
+        Result := CharSet;
+        max := Length(u);
+      end;
+    end;
+  end;
+end;
+
+{==============================================================================}
+function GetBOM(Value: TMimeChar): AnsiString;
+begin
+  Result := '';
+  case Value of
+    UCS_2:
+      Result := #$fe + #$ff;
+    UCS_4:
+      Result := #$00 + #$00 + #$fe + #$ff;
+    UCS_2LE:
+      Result := #$ff + #$fe;
+    UCS_4LE:
+      Result := #$ff + #$fe + #$00 + #$00;
+    UTF_8:
+      Result := #$ef + #$bb + #$bf;
+  end;
+end;
+
+{==============================================================================}
+function GetCPFromID(Value: AnsiString): TMimeChar;
+begin
+  Value := UpperCase(Value);
+  if (Pos('KAMENICKY', Value) > 0) or (Pos('895', Value) > 0) then
+    Result := CP895
+  else
+  if Pos('MUTF-7', Value) > 0 then
+    Result := UTF_7mod
+  else
+    Result := GetCPFromIconvID(Value);
+end;
+
+{==============================================================================}
+function GetIDFromCP(Value: TMimeChar): AnsiString;
+begin
+  case Value of
+    CP895:
+      Result := 'CP-895';
+    UTF_7mod:
+      Result := 'mUTF-7';
+  else
+    Result := GetIconvIDFromCP(Value);
+  end;
+end;
+
+{==============================================================================}
+function StringToWide(const Value: AnsiString): WideString;
+var
+  n: integer;
+  x, y: integer;
+begin
+  SetLength(Result, Length(Value) div 2);
+  for n := 1 to Length(Value) div 2 do
+  begin
+    x := Ord(Value[((n-1) * 2) + 1]);
+    y := Ord(Value[((n-1) * 2) + 2]);
+    Result[n] := WideChar(x * 256 + y);
+  end;
+end;
+
+{==============================================================================}
+function WideToString(const Value: WideString): AnsiString;
+var
+  n: integer;
+  x: integer;
+begin
+  SetLength(Result, Length(Value) * 2);
+  for n := 1 to Length(Value) do
+  begin
+    x := Ord(Value[n]);
+    Result[((n-1) * 2) + 1] := AnsiChar(x div 256);
+    Result[((n-1) * 2) + 2] := AnsiChar(x mod 256);
+  end;
+end;
+
+{==============================================================================}
+initialization
+begin
+  IconvArr[0].Charset := ISO_8859_1;
+  IconvArr[0].Charname := 'ISO-8859-1 CP819 IBM819 ISO-IR-100 ISO8859-1 ISO_8859-1 ISO_8859-1:1987 L1 LATIN1 CSISOLATIN1';
+  IconvArr[1].Charset := UTF_8;
+  IconvArr[1].Charname := 'UTF-8';
+  IconvArr[2].Charset := UCS_2;
+  IconvArr[2].Charname := 'ISO-10646-UCS-2 UCS-2 CSUNICODE';
+  IconvArr[3].Charset := UCS_2;
+  IconvArr[3].Charname := 'UCS-2BE UNICODE-1-1 UNICODEBIG CSUNICODE11';
+  IconvArr[4].Charset := UCS_2LE;
+  IconvArr[4].Charname := 'UCS-2LE UNICODELITTLE';
+  IconvArr[5].Charset := UCS_4;
+  IconvArr[5].Charname := 'ISO-10646-UCS-4 UCS-4 CSUCS4';
+  IconvArr[6].Charset := UCS_4;
+  IconvArr[6].Charname := 'UCS-4BE';
+  IconvArr[7].Charset := UCS_2LE;
+  IconvArr[7].Charname := 'UCS-4LE';
+  IconvArr[8].Charset := UTF_16;
+  IconvArr[8].Charname := 'UTF-16';
+  IconvArr[9].Charset := UTF_16;
+  IconvArr[9].Charname := 'UTF-16BE';
+  IconvArr[10].Charset := UTF_16LE;
+  IconvArr[10].Charname := 'UTF-16LE';
+  IconvArr[11].Charset := UTF_32;
+  IconvArr[11].Charname := 'UTF-32';
+  IconvArr[12].Charset := UTF_32;
+  IconvArr[12].Charname := 'UTF-32BE';
+  IconvArr[13].Charset := UTF_32;
+  IconvArr[13].Charname := 'UTF-32LE';
+  IconvArr[14].Charset := UTF_7;
+  IconvArr[14].Charname := 'UNICODE-1-1-UTF-7 UTF-7 CSUNICODE11UTF7';
+  IconvArr[15].Charset := C99;
+  IconvArr[15].Charname := 'C99';
+  IconvArr[16].Charset := JAVA;
+  IconvArr[16].Charname := 'JAVA';
+  IconvArr[17].Charset := ISO_8859_1;
+  IconvArr[17].Charname := 'US-ASCII ANSI_X3.4-1968 ANSI_X3.4-1986 ASCII CP367 IBM367 ISO-IR-6 ISO646-US ISO_646.IRV:1991 US CSASCII';
+  IconvArr[18].Charset := ISO_8859_2;
+  IconvArr[18].Charname := 'ISO-8859-2 ISO-IR-101 ISO8859-2 ISO_8859-2 ISO_8859-2:1987 L2 LATIN2 CSISOLATIN2';
+  IconvArr[19].Charset := ISO_8859_3;
+  IconvArr[19].Charname := 'ISO-8859-3 ISO-IR-109 ISO8859-3 ISO_8859-3 ISO_8859-3:1988 L3 LATIN3 CSISOLATIN3';
+  IconvArr[20].Charset := ISO_8859_4;
+  IconvArr[20].Charname := 'ISO-8859-4 ISO-IR-110 ISO8859-4 ISO_8859-4 ISO_8859-4:1988 L4 LATIN4 CSISOLATIN4';
+  IconvArr[21].Charset := ISO_8859_5;
+  IconvArr[21].Charname := 'ISO-8859-5 CYRILLIC ISO-IR-144 ISO8859-5 ISO_8859-5 ISO_8859-5:1988 CSISOLATINCYRILLIC';
+  IconvArr[22].Charset := ISO_8859_6;
+  IconvArr[22].Charname := 'ISO-8859-6 ARABIC ASMO-708 ECMA-114 ISO-IR-127 ISO8859-6 ISO_8859-6 ISO_8859-6:1987 CSISOLATINARABIC';
+  IconvArr[23].Charset := ISO_8859_7;
+  IconvArr[23].Charname := 'ISO-8859-7 ECMA-118 ELOT_928 GREEK GREEK8 ISO-IR-126 ISO8859-7 ISO_8859-7 ISO_8859-7:1987 CSISOLATINGREEK';
+  IconvArr[24].Charset := ISO_8859_8;
+  IconvArr[24].Charname := 'ISO-8859-8 HEBREW ISO_8859-8 ISO-IR-138 ISO8859-8 ISO_8859-8:1988 CSISOLATINHEBREW ISO-8859-8-I';
+  IconvArr[25].Charset := ISO_8859_9;
+  IconvArr[25].Charname := 'ISO-8859-9 ISO-IR-148 ISO8859-9 ISO_8859-9 ISO_8859-9:1989 L5 LATIN5 CSISOLATIN5';
+  IconvArr[26].Charset := ISO_8859_10;
+  IconvArr[26].Charname := 'ISO-8859-10 ISO-IR-157 ISO8859-10 ISO_8859-10 ISO_8859-10:1992 L6 LATIN6 CSISOLATIN6';
+  IconvArr[27].Charset := ISO_8859_13;
+  IconvArr[27].Charname := 'ISO-8859-13 ISO-IR-179 ISO8859-13 ISO_8859-13 L7 LATIN7';
+  IconvArr[28].Charset := ISO_8859_14;
+  IconvArr[28].Charname := 'ISO-8859-14 ISO-CELTIC ISO-IR-199 ISO8859-14 ISO_8859-14 ISO_8859-14:1998 L8 LATIN8';
+  IconvArr[29].Charset := ISO_8859_15;
+  IconvArr[29].Charname := 'ISO-8859-15 ISO-IR-203 ISO8859-15 ISO_8859-15 ISO_8859-15:1998';
+  IconvArr[30].Charset := ISO_8859_16;
+  IconvArr[30].Charname := 'ISO-8859-16 ISO-IR-226 ISO8859-16 ISO_8859-16 ISO_8859-16:2000';
+  IconvArr[31].Charset := KOI8_R;
+  IconvArr[31].Charname := 'KOI8-R CSKOI8R';
+  IconvArr[32].Charset := KOI8_U;
+  IconvArr[32].Charname := 'KOI8-U';
+  IconvArr[33].Charset := KOI8_RU;
+  IconvArr[33].Charname := 'KOI8-RU';
+  IconvArr[34].Charset := CP1250;
+  IconvArr[34].Charname := 'WINDOWS-1250 CP1250 MS-EE';
+  IconvArr[35].Charset := CP1251;
+  IconvArr[35].Charname := 'WINDOWS-1251 CP1251 MS-CYRL';
+  IconvArr[36].Charset := CP1252;
+  IconvArr[36].Charname := 'WINDOWS-1252 CP1252 MS-ANSI';
+  IconvArr[37].Charset := CP1253;
+  IconvArr[37].Charname := 'WINDOWS-1253 CP1253 MS-GREEK';
+  IconvArr[38].Charset := CP1254;
+  IconvArr[38].Charname := 'WINDOWS-1254 CP1254 MS-TURK';
+  IconvArr[39].Charset := CP1255;
+  IconvArr[39].Charname := 'WINDOWS-1255 CP1255 MS-HEBR';
+  IconvArr[40].Charset := CP1256;
+  IconvArr[40].Charname := 'WINDOWS-1256 CP1256 MS-ARAB';
+  IconvArr[41].Charset := CP1257;
+  IconvArr[41].Charname := 'WINDOWS-1257 CP1257 WINBALTRIM';
+  IconvArr[42].Charset := CP1258;
+  IconvArr[42].Charname := 'WINDOWS-1258 CP1258';
+  IconvArr[43].Charset := ISO_8859_1;
+  IconvArr[43].Charname := '850 CP850 IBM850 CSPC850MULTILINGUAL';
+  IconvArr[44].Charset := CP862;
+  IconvArr[44].Charname := '862 CP862 IBM862 CSPC862LATINHEBREW';
+  IconvArr[45].Charset := CP866;
+  IconvArr[45].Charname := '866 CP866 IBM866 CSIBM866';
+  IconvArr[46].Charset := MAC;
+  IconvArr[46].Charname := 'MAC MACINTOSH MACROMAN CSMACINTOSH';
+  IconvArr[47].Charset := MACCE;
+  IconvArr[47].Charname := 'MACCENTRALEUROPE';
+  IconvArr[48].Charset := MACICE;
+  IconvArr[48].Charname := 'MACICELAND';
+  IconvArr[49].Charset := MACCRO;
+  IconvArr[49].Charname := 'MACCROATIAN';
+  IconvArr[50].Charset := MACRO;
+  IconvArr[50].Charname := 'MACROMANIA';
+  IconvArr[51].Charset := MACCYR;
+  IconvArr[51].Charname := 'MACCYRILLIC';
+  IconvArr[52].Charset := MACUK;
+  IconvArr[52].Charname := 'MACUKRAINE';
+  IconvArr[53].Charset := MACGR;
+  IconvArr[53].Charname := 'MACGREEK';
+  IconvArr[54].Charset := MACTU;
+  IconvArr[54].Charname := 'MACTURKISH';
+  IconvArr[55].Charset := MACHEB;
+  IconvArr[55].Charname := 'MACHEBREW';
+  IconvArr[56].Charset := MACAR;
+  IconvArr[56].Charname := 'MACARABIC';
+  IconvArr[57].Charset := MACTH;
+  IconvArr[57].Charname := 'MACTHAI';
+  IconvArr[58].Charset := ROMAN8;
+  IconvArr[58].Charname := 'HP-ROMAN8 R8 ROMAN8 CSHPROMAN8';
+  IconvArr[59].Charset := NEXTSTEP;
+  IconvArr[59].Charname := 'NEXTSTEP';
+  IconvArr[60].Charset := ARMASCII;
+  IconvArr[60].Charname := 'ARMSCII-8';
+  IconvArr[61].Charset := GEORGIAN_AC;
+  IconvArr[61].Charname := 'GEORGIAN-ACADEMY';
+  IconvArr[62].Charset := GEORGIAN_PS;
+  IconvArr[62].Charname := 'GEORGIAN-PS';
+  IconvArr[63].Charset := KOI8_T;
+  IconvArr[63].Charname := 'KOI8-T';
+  IconvArr[64].Charset := MULELAO;
+  IconvArr[64].Charname := 'MULELAO-1';
+  IconvArr[65].Charset := CP1133;
+  IconvArr[65].Charname := 'CP1133 IBM-CP1133';
+  IconvArr[66].Charset := TIS620;
+  IconvArr[66].Charname := 'TIS-620 ISO-IR-166 TIS620 TIS620-0 TIS620.2529-1 TIS620.2533-0 TIS620.2533-1';
+  IconvArr[67].Charset := CP874;
+  IconvArr[67].Charname := 'CP874 WINDOWS-874';
+  IconvArr[68].Charset := VISCII;
+  IconvArr[68].Charname := 'VISCII VISCII1.1-1 CSVISCII';
+  IconvArr[69].Charset := TCVN;
+  IconvArr[69].Charname := 'TCVN TCVN-5712 TCVN5712-1 TCVN5712-1:1993';
+  IconvArr[70].Charset := ISO_IR_14;
+  IconvArr[70].Charname := 'ISO-IR-14 ISO646-JP JIS_C6220-1969-RO JP CSISO14JISC6220RO';
+  IconvArr[71].Charset := JIS_X0201;
+  IconvArr[71].Charname := 'JISX0201-1976 JIS_X0201 X0201 CSHALFWIDTHKATAKANA';
+  IconvArr[72].Charset := JIS_X0208;
+  IconvArr[72].Charname := 'ISO-IR-87 JIS0208 JIS_C6226-1983 JIS_X0208 JIS_X0208-1983 JIS_X0208-1990 X0208 CSISO87JISX0208';
+  IconvArr[73].Charset := JIS_X0212;
+  IconvArr[73].Charname := 'ISO-IR-159 JIS_X0212 JIS_X0212-1990 JIS_X0212.1990-0 X0212 CSISO159JISX02121990';
+  IconvArr[74].Charset := GB1988_80;
+  IconvArr[74].Charname := 'CN GB_1988-80 ISO-IR-57 ISO646-CN CSISO57GB1988';
+  IconvArr[75].Charset := GB2312_80;
+  IconvArr[75].Charname := 'CHINESE GB_2312-80 ISO-IR-58 CSISO58GB231280';
+  IconvArr[76].Charset := ISO_IR_165;
+  IconvArr[76].Charname := 'CN-GB-ISOIR165 ISO-IR-165';
+  IconvArr[77].Charset := ISO_IR_149;
+  IconvArr[77].Charname := 'ISO-IR-149 KOREAN KSC_5601 KS_C_5601-1987 KS_C_5601-1989 CSKSC56011987';
+  IconvArr[78].Charset := EUC_JP;
+  IconvArr[78].Charname := 'EUC-JP EUCJP EXTENDED_UNIX_CODE_PACKED_FORMAT_FOR_JAPANESE CSEUCPKDFMTJAPANESE';
+  IconvArr[79].Charset := SHIFT_JIS;
+  IconvArr[79].Charname := 'SHIFT-JIS MS_KANJI SHIFT_JIS SJIS CSSHIFTJIS';
+  IconvArr[80].Charset := CP932;
+  IconvArr[80].Charname := 'CP932';
+  IconvArr[81].Charset := ISO_2022_JP;
+  IconvArr[81].Charname := 'ISO-2022-JP CSISO2022JP';
+  IconvArr[82].Charset := ISO_2022_JP1;
+  IconvArr[82].Charname := 'ISO-2022-JP-1';
+  IconvArr[83].Charset := ISO_2022_JP2;
+  IconvArr[83].Charname := 'ISO-2022-JP-2 CSISO2022JP2';
+  IconvArr[84].Charset := GB2312;
+  IconvArr[84].Charname := 'CN-GB EUC-CN EUCCN GB2312 CSGB2312';
+  IconvArr[85].Charset := CP936;
+  IconvArr[85].Charname := 'CP936 GBK';
+  IconvArr[86].Charset := GB18030;
+  IconvArr[86].Charname := 'GB18030';
+  IconvArr[87].Charset := ISO_2022_CN;
+  IconvArr[87].Charname := 'ISO-2022-CN CSISO2022CN';
+  IconvArr[88].Charset := ISO_2022_CNE;
+  IconvArr[88].Charname := 'ISO-2022-CN-EXT';
+  IconvArr[89].Charset := HZ;
+  IconvArr[89].Charname := 'HZ HZ-GB-2312';
+  IconvArr[90].Charset := EUC_TW;
+  IconvArr[90].Charname := 'EUC-TW EUCTW CSEUCTW';
+  IconvArr[91].Charset := BIG5;
+  IconvArr[91].Charname := 'BIG5 BIG-5 BIG-FIVE BIGFIVE CN-BIG5 CSBIG5';
+  IconvArr[92].Charset := CP950;
+  IconvArr[92].Charname := 'CP950';
+  IconvArr[93].Charset := BIG5_HKSCS;
+  IconvArr[93].Charname := 'BIG5-HKSCS BIG5HKSCS';
+  IconvArr[94].Charset := EUC_KR;
+  IconvArr[94].Charname := 'EUC-KR EUCKR CSEUCKR';
+  IconvArr[95].Charset := CP949;
+  IconvArr[95].Charname := 'CP949 UHC';
+  IconvArr[96].Charset := CP1361;
+  IconvArr[96].Charname := 'CP1361 JOHAB';
+  IconvArr[97].Charset := ISO_2022_KR;
+  IconvArr[97].Charname := 'ISO-2022-KR CSISO2022KR';
+  IconvArr[98].Charset := ISO_8859_1;
+  IconvArr[98].Charname := '437 CP437 IBM437 CSPC8CODEPAGE437';
+  IconvArr[99].Charset := CP737;
+  IconvArr[99].Charname := 'CP737';
+  IconvArr[100].Charset := CP775;
+  IconvArr[100].Charname := 'CP775 IBM775 CSPC775BALTIC';
+  IconvArr[101].Charset := CP852;
+  IconvArr[101].Charname := '852 CP852 IBM852 CSPCP852';
+  IconvArr[102].Charset := CP853;
+  IconvArr[102].Charname := 'CP853';
+  IconvArr[103].Charset := CP855;
+  IconvArr[103].Charname := '855 CP855 IBM855 CSIBM855';
+  IconvArr[104].Charset := CP857;
+  IconvArr[104].Charname := '857 CP857 IBM857 CSIBM857';
+  IconvArr[105].Charset := CP858;
+  IconvArr[105].Charname := 'CP858';
+  IconvArr[106].Charset := CP860;
+  IconvArr[106].Charname := '860 CP860 IBM860 CSIBM860';
+  IconvArr[107].Charset := CP861;
+  IconvArr[107].Charname := '861 CP-IS CP861 IBM861 CSIBM861';
+  IconvArr[108].Charset := CP863;
+  IconvArr[108].Charname := '863 CP863 IBM863 CSIBM863';
+  IconvArr[109].Charset := CP864;
+  IconvArr[109].Charname := 'CP864 IBM864 CSIBM864';
+  IconvArr[110].Charset := CP865;
+  IconvArr[110].Charname := '865 CP865 IBM865 CSIBM865';
+  IconvArr[111].Charset := CP869;
+  IconvArr[111].Charname := '869 CP-GR CP869 IBM869 CSIBM869';
+  IconvArr[112].Charset := CP1125;
+  IconvArr[112].Charname := 'CP1125';
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synacode.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synacode.pas
new file mode 100644
index 0000000..f183c8c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synacode.pas	
@@ -0,0 +1,1454 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 002.002.000 |
+|==============================================================================|
+| Content: Coding and decoding support                                         |
+|==============================================================================|
+| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2000-2007.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(Various encoding and decoding support)}
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$R-}
+{$H+}
+
+unit synacode;
+
+interface
+
+uses
+  SysUtils;
+
+type
+  TSpecials = set of AnsiChar;
+
+const
+
+  SpecialChar: TSpecials =
+  ['=', '(', ')', '[', ']', '<', '>', ':', ';', ',', '@', '/', '?', '\',
+    '"', '_'];
+  NonAsciiChar: TSpecials =
+  [Char(0)..Char(31), Char(127)..Char(255)];
+  URLFullSpecialChar: TSpecials =
+  [';', '/', '?', ':', '@', '=', '&', '#', '+'];
+  URLSpecialChar: TSpecials =
+  [#$00..#$20, '_', '<', '>', '"', '%', '{', '}', '|', '\', '^', '~', '[', ']',
+    '`', #$7F..#$FF];
+  TableBase64 =
+    'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
+  TableBase64mod =
+    'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+,=';
+  TableUU =
+    '`!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_';
+  TableXX =
+    '+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
+  ReTablebase64 =
+    #$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$3E +#$40
+    +#$40 +#$40 +#$3F +#$34 +#$35 +#$36 +#$37 +#$38 +#$39 +#$3A +#$3B +#$3C
+    +#$3D +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$00 +#$01 +#$02 +#$03
+    +#$04 +#$05 +#$06 +#$07 +#$08 +#$09 +#$0A +#$0B +#$0C +#$0D +#$0E +#$0F
+    +#$10 +#$11 +#$12 +#$13 +#$14 +#$15 +#$16 +#$17 +#$18 +#$19 +#$40 +#$40
+    +#$40 +#$40 +#$40 +#$40 +#$1A +#$1B +#$1C +#$1D +#$1E +#$1F +#$20 +#$21
+    +#$22 +#$23 +#$24 +#$25 +#$26 +#$27 +#$28 +#$29 +#$2A +#$2B +#$2C +#$2D
+    +#$2E +#$2F +#$30 +#$31 +#$32 +#$33 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40;
+  ReTableUU =
+    #$01 +#$02 +#$03 +#$04 +#$05 +#$06 +#$07 +#$08 +#$09 +#$0A +#$0B +#$0C
+    +#$0D +#$0E +#$0F +#$10 +#$11 +#$12 +#$13 +#$14 +#$15 +#$16 +#$17 +#$18
+    +#$19 +#$1A +#$1B +#$1C +#$1D +#$1E +#$1F +#$20 +#$21 +#$22 +#$23 +#$24
+    +#$25 +#$26 +#$27 +#$28 +#$29 +#$2A +#$2B +#$2C +#$2D +#$2E +#$2F +#$30
+    +#$31 +#$32 +#$33 +#$34 +#$35 +#$36 +#$37 +#$38 +#$39 +#$3A +#$3B +#$3C
+    +#$3D +#$3E +#$3F +#$00 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40
+    +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40
+    +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40;
+  ReTableXX =
+    #$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$00 +#$40
+    +#$01 +#$40 +#$40 +#$02 +#$03 +#$04 +#$05 +#$06 +#$07 +#$08 +#$09 +#$0A
+    +#$0B +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$0C +#$0D +#$0E +#$0F
+    +#$10 +#$11 +#$12 +#$13 +#$14 +#$15 +#$16 +#$17 +#$18 +#$19 +#$1A +#$1B
+    +#$1C +#$1D +#$1E +#$1F +#$20 +#$21 +#$22 +#$23 +#$24 +#$25 +#$40 +#$40
+    +#$40 +#$40 +#$40 +#$40 +#$26 +#$27 +#$28 +#$29 +#$2A +#$2B +#$2C +#$2D
+    +#$2E +#$2F +#$30 +#$31 +#$32 +#$33 +#$34 +#$35 +#$36 +#$37 +#$38 +#$39
+    +#$3A +#$3B +#$3C +#$3D +#$3E +#$3F +#$40 +#$40 +#$40 +#$40 +#$40 +#$40;
+
+{:Decodes triplet encoding with a given character delimiter. It is used for
+ decoding quoted-printable or URL encoding.}
+function DecodeTriplet(const Value: AnsiString; Delimiter: AnsiChar): AnsiString;
+
+{:Decodes a string from quoted printable form. (also decodes triplet sequences
+ like '=7F')}
+function DecodeQuotedPrintable(const Value: AnsiString): AnsiString;
+
+{:Decodes a string of URL encoding. (also decodes triplet sequences like '%7F')}
+function DecodeURL(const Value: AnsiString): AnsiString;
+
+{:Performs triplet encoding with a given character delimiter. Used for encoding
+ quoted-printable or URL encoding.}
+function EncodeTriplet(const Value: AnsiString; Delimiter: AnsiChar;
+  Specials: TSpecials): AnsiString;
+
+{:Encodes a string to triplet quoted printable form. All @link(NonAsciiChar)
+ are encoded.}
+function EncodeQuotedPrintable(const Value: AnsiString): AnsiString;
+
+{:Encodes a string to triplet quoted printable form. All @link(NonAsciiChar) and
+ @link(SpecialChar) are encoded.}
+function EncodeSafeQuotedPrintable(const Value: AnsiString): AnsiString;
+
+{:Encodes a string to URL format. Used for encoding data from a form field in
+ HTTP, etc. (Encodes all critical characters including characters used as URL
+ delimiters ('/',':', etc.)}
+function EncodeURLElement(const Value: AnsiString): AnsiString;
+
+{:Encodes a string to URL format. Used to encode critical characters in all
+ URLs.}
+function EncodeURL(const Value: AnsiString): AnsiString;
+
+{:Decode 4to3 encoding with given table. If some element is not found in table,
+ first item from table is used. This is good for buggy coded items by Microsoft
+ Outlook. This software sometimes using wrong table for UUcode, where is used
+ ' ' instead '`'.}
+function Decode4to3(const Value, Table: AnsiString): AnsiString;
+
+{:Decode 4to3 encoding with given REVERSE table. Using this function with
+reverse table is much faster then @link(Decode4to3). This function is used
+internally for Base64, UU or XX decoding.}
+function Decode4to3Ex(const Value, Table: AnsiString): AnsiString;
+
+{:Encode by system 3to4 (used by Base64, UU coding, etc) by given table.}
+function Encode3to4(const Value, Table: AnsiString): AnsiString;
+
+{:Decode string from base64 format.}
+function DecodeBase64(const Value: AnsiString): AnsiString;
+
+{:Encodes a string to base64 format.}
+function EncodeBase64(const Value: AnsiString): AnsiString;
+
+{:Decode string from modified base64 format. (used in IMAP, for example.)}
+function DecodeBase64mod(const Value: AnsiString): AnsiString;
+
+{:Encodes a string to  modified base64 format. (used in IMAP, for example.)}
+function EncodeBase64mod(const Value: AnsiString): AnsiString;
+
+{:Decodes a string from UUcode format.}
+function DecodeUU(const Value: AnsiString): AnsiString;
+
+{:encode UUcode. it encode only datas, you must also add header and footer for
+ proper encode.}
+function EncodeUU(const Value: AnsiString): AnsiString;
+
+{:Decodes a string from XXcode format.}
+function DecodeXX(const Value: AnsiString): AnsiString;
+
+{:decode line with Yenc code. This code is sometimes used in newsgroups.}
+function DecodeYEnc(const Value: AnsiString): AnsiString;
+
+{:Returns a new CRC32 value after adding a new byte of data.}
+function UpdateCrc32(Value: Byte; Crc32: Integer): Integer;
+
+{:return CRC32 from a value string.}
+function Crc32(const Value: AnsiString): Integer;
+
+{:Returns a new CRC16 value after adding a new byte of data.}
+function UpdateCrc16(Value: Byte; Crc16: Word): Word;
+
+{:return CRC16 from a value string.}
+function Crc16(const Value: AnsiString): Word;
+
+{:Returns a binary string with a RSA-MD5 hashing of "Value" string.}
+function MD5(const Value: AnsiString): AnsiString;
+
+{:Returns a binary string with HMAC-MD5 hash.}
+function HMAC_MD5(Text, Key: AnsiString): AnsiString;
+
+{:Returns a binary string with a RSA-MD5 hashing of string what is constructed
+ by repeating "value" until length is "Len".}
+function MD5LongHash(const Value: AnsiString; Len: integer): AnsiString;
+
+{:Returns a binary string with a SHA-1 hashing of "Value" string.}
+function SHA1(const Value: AnsiString): AnsiString;
+
+{:Returns a binary string with HMAC-SHA1 hash.}
+function HMAC_SHA1(Text, Key: AnsiString): AnsiString;
+
+{:Returns a binary string with a SHA-1 hashing of string what is constructed
+ by repeating "value" until length is "Len".}
+function SHA1LongHash(const Value: AnsiString; Len: integer): AnsiString;
+
+{:Returns a binary string with a RSA-MD4 hashing of "Value" string.}
+function MD4(const Value: AnsiString): AnsiString;
+
+implementation
+
+const
+
+  Crc32Tab: array[0..255] of Integer = (
+    Integer($00000000), Integer($77073096), Integer($EE0E612C), Integer($990951BA),
+    Integer($076DC419), Integer($706AF48F), Integer($E963A535), Integer($9E6495A3),
+    Integer($0EDB8832), Integer($79DCB8A4), Integer($E0D5E91E), Integer($97D2D988),
+    Integer($09B64C2B), Integer($7EB17CBD), Integer($E7B82D07), Integer($90BF1D91),
+    Integer($1DB71064), Integer($6AB020F2), Integer($F3B97148), Integer($84BE41DE),
+    Integer($1ADAD47D), Integer($6DDDE4EB), Integer($F4D4B551), Integer($83D385C7),
+    Integer($136C9856), Integer($646BA8C0), Integer($FD62F97A), Integer($8A65C9EC),
+    Integer($14015C4F), Integer($63066CD9), Integer($FA0F3D63), Integer($8D080DF5),
+    Integer($3B6E20C8), Integer($4C69105E), Integer($D56041E4), Integer($A2677172),
+    Integer($3C03E4D1), Integer($4B04D447), Integer($D20D85FD), Integer($A50AB56B),
+    Integer($35B5A8FA), Integer($42B2986C), Integer($DBBBC9D6), Integer($ACBCF940),
+    Integer($32D86CE3), Integer($45DF5C75), Integer($DCD60DCF), Integer($ABD13D59),
+    Integer($26D930AC), Integer($51DE003A), Integer($C8D75180), Integer($BFD06116),
+    Integer($21B4F4B5), Integer($56B3C423), Integer($CFBA9599), Integer($B8BDA50F),
+    Integer($2802B89E), Integer($5F058808), Integer($C60CD9B2), Integer($B10BE924),
+    Integer($2F6F7C87), Integer($58684C11), Integer($C1611DAB), Integer($B6662D3D),
+    Integer($76DC4190), Integer($01DB7106), Integer($98D220BC), Integer($EFD5102A),
+    Integer($71B18589), Integer($06B6B51F), Integer($9FBFE4A5), Integer($E8B8D433),
+    Integer($7807C9A2), Integer($0F00F934), Integer($9609A88E), Integer($E10E9818),
+    Integer($7F6A0DBB), Integer($086D3D2D), Integer($91646C97), Integer($E6635C01),
+    Integer($6B6B51F4), Integer($1C6C6162), Integer($856530D8), Integer($F262004E),
+    Integer($6C0695ED), Integer($1B01A57B), Integer($8208F4C1), Integer($F50FC457),
+    Integer($65B0D9C6), Integer($12B7E950), Integer($8BBEB8EA), Integer($FCB9887C),
+    Integer($62DD1DDF), Integer($15DA2D49), Integer($8CD37CF3), Integer($FBD44C65),
+    Integer($4DB26158), Integer($3AB551CE), Integer($A3BC0074), Integer($D4BB30E2),
+    Integer($4ADFA541), Integer($3DD895D7), Integer($A4D1C46D), Integer($D3D6F4FB),
+    Integer($4369E96A), Integer($346ED9FC), Integer($AD678846), Integer($DA60B8D0),
+    Integer($44042D73), Integer($33031DE5), Integer($AA0A4C5F), Integer($DD0D7CC9),
+    Integer($5005713C), Integer($270241AA), Integer($BE0B1010), Integer($C90C2086),
+    Integer($5768B525), Integer($206F85B3), Integer($B966D409), Integer($CE61E49F),
+    Integer($5EDEF90E), Integer($29D9C998), Integer($B0D09822), Integer($C7D7A8B4),
+    Integer($59B33D17), Integer($2EB40D81), Integer($B7BD5C3B), Integer($C0BA6CAD),
+    Integer($EDB88320), Integer($9ABFB3B6), Integer($03B6E20C), Integer($74B1D29A),
+    Integer($EAD54739), Integer($9DD277AF), Integer($04DB2615), Integer($73DC1683),
+    Integer($E3630B12), Integer($94643B84), Integer($0D6D6A3E), Integer($7A6A5AA8),
+    Integer($E40ECF0B), Integer($9309FF9D), Integer($0A00AE27), Integer($7D079EB1),
+    Integer($F00F9344), Integer($8708A3D2), Integer($1E01F268), Integer($6906C2FE),
+    Integer($F762575D), Integer($806567CB), Integer($196C3671), Integer($6E6B06E7),
+    Integer($FED41B76), Integer($89D32BE0), Integer($10DA7A5A), Integer($67DD4ACC),
+    Integer($F9B9DF6F), Integer($8EBEEFF9), Integer($17B7BE43), Integer($60B08ED5),
+    Integer($D6D6A3E8), Integer($A1D1937E), Integer($38D8C2C4), Integer($4FDFF252),
+    Integer($D1BB67F1), Integer($A6BC5767), Integer($3FB506DD), Integer($48B2364B),
+    Integer($D80D2BDA), Integer($AF0A1B4C), Integer($36034AF6), Integer($41047A60),
+    Integer($DF60EFC3), Integer($A867DF55), Integer($316E8EEF), Integer($4669BE79),
+    Integer($CB61B38C), Integer($BC66831A), Integer($256FD2A0), Integer($5268E236),
+    Integer($CC0C7795), Integer($BB0B4703), Integer($220216B9), Integer($5505262F),
+    Integer($C5BA3BBE), Integer($B2BD0B28), Integer($2BB45A92), Integer($5CB36A04),
+    Integer($C2D7FFA7), Integer($B5D0CF31), Integer($2CD99E8B), Integer($5BDEAE1D),
+    Integer($9B64C2B0), Integer($EC63F226), Integer($756AA39C), Integer($026D930A),
+    Integer($9C0906A9), Integer($EB0E363F), Integer($72076785), Integer($05005713),
+    Integer($95BF4A82), Integer($E2B87A14), Integer($7BB12BAE), Integer($0CB61B38),
+    Integer($92D28E9B), Integer($E5D5BE0D), Integer($7CDCEFB7), Integer($0BDBDF21),
+    Integer($86D3D2D4), Integer($F1D4E242), Integer($68DDB3F8), Integer($1FDA836E),
+    Integer($81BE16CD), Integer($F6B9265B), Integer($6FB077E1), Integer($18B74777),
+    Integer($88085AE6), Integer($FF0F6A70), Integer($66063BCA), Integer($11010B5C),
+    Integer($8F659EFF), Integer($F862AE69), Integer($616BFFD3), Integer($166CCF45),
+    Integer($A00AE278), Integer($D70DD2EE), Integer($4E048354), Integer($3903B3C2),
+    Integer($A7672661), Integer($D06016F7), Integer($4969474D), Integer($3E6E77DB),
+    Integer($AED16A4A), Integer($D9D65ADC), Integer($40DF0B66), Integer($37D83BF0),
+    Integer($A9BCAE53), Integer($DEBB9EC5), Integer($47B2CF7F), Integer($30B5FFE9),
+    Integer($BDBDF21C), Integer($CABAC28A), Integer($53B39330), Integer($24B4A3A6),
+    Integer($BAD03605), Integer($CDD70693), Integer($54DE5729), Integer($23D967BF),
+    Integer($B3667A2E), Integer($C4614AB8), Integer($5D681B02), Integer($2A6F2B94),
+    Integer($B40BBE37), Integer($C30C8EA1), Integer($5A05DF1B), Integer($2D02EF8D)
+    );
+
+  Crc16Tab: array[0..255] of Word = (
+    $0000, $1189, $2312, $329B, $4624, $57AD, $6536, $74BF,
+    $8C48, $9DC1, $AF5A, $BED3, $CA6C, $DBE5, $E97E, $F8F7,
+    $1081, $0108, $3393, $221A, $56A5, $472C, $75B7, $643E,
+    $9CC9, $8D40, $BFDB, $AE52, $DAED, $CB64, $F9FF, $E876,
+    $2102, $308B, $0210, $1399, $6726, $76AF, $4434, $55BD,
+    $AD4A, $BCC3, $8E58, $9FD1, $EB6E, $FAE7, $C87C, $D9F5,
+    $3183, $200A, $1291, $0318, $77A7, $662E, $54B5, $453C,
+    $BDCB, $AC42, $9ED9, $8F50, $FBEF, $EA66, $D8FD, $C974,
+    $4204, $538D, $6116, $709F, $0420, $15A9, $2732, $36BB,
+    $CE4C, $DFC5, $ED5E, $FCD7, $8868, $99E1, $AB7A, $BAF3,
+    $5285, $430C, $7197, $601E, $14A1, $0528, $37B3, $263A,
+    $DECD, $CF44, $FDDF, $EC56, $98E9, $8960, $BBFB, $AA72,
+    $6306, $728F, $4014, $519D, $2522, $34AB, $0630, $17B9,
+    $EF4E, $FEC7, $CC5C, $DDD5, $A96A, $B8E3, $8A78, $9BF1,
+    $7387, $620E, $5095, $411C, $35A3, $242A, $16B1, $0738,
+    $FFCF, $EE46, $DCDD, $CD54, $B9EB, $A862, $9AF9, $8B70,
+    $8408, $9581, $A71A, $B693, $C22C, $D3A5, $E13E, $F0B7,
+    $0840, $19C9, $2B52, $3ADB, $4E64, $5FED, $6D76, $7CFF,
+    $9489, $8500, $B79B, $A612, $D2AD, $C324, $F1BF, $E036,
+    $18C1, $0948, $3BD3, $2A5A, $5EE5, $4F6C, $7DF7, $6C7E,
+    $A50A, $B483, $8618, $9791, $E32E, $F2A7, $C03C, $D1B5,
+    $2942, $38CB, $0A50, $1BD9, $6F66, $7EEF, $4C74, $5DFD,
+    $B58B, $A402, $9699, $8710, $F3AF, $E226, $D0BD, $C134,
+    $39C3, $284A, $1AD1, $0B58, $7FE7, $6E6E, $5CF5, $4D7C,
+    $C60C, $D785, $E51E, $F497, $8028, $91A1, $A33A, $B2B3,
+    $4A44, $5BCD, $6956, $78DF, $0C60, $1DE9, $2F72, $3EFB,
+    $D68D, $C704, $F59F, $E416, $90A9, $8120, $B3BB, $A232,
+    $5AC5, $4B4C, $79D7, $685E, $1CE1, $0D68, $3FF3, $2E7A,
+    $E70E, $F687, $C41C, $D595, $A12A, $B0A3, $8238, $93B1,
+    $6B46, $7ACF, $4854, $59DD, $2D62, $3CEB, $0E70, $1FF9,
+    $F78F, $E606, $D49D, $C514, $B1AB, $A022, $92B9, $8330,
+    $7BC7, $6A4E, $58D5, $495C, $3DE3, $2C6A, $1EF1, $0F78
+    );
+
+procedure ArrByteToLong(var ArByte: Array of byte; var ArLong: Array of Integer);
+{$IFDEF CIL}
+var
+  n: integer;
+{$ENDIF}
+begin
+  if (High(ArByte) + 1) > ((High(ArLong) + 1) * 4) then
+    Exit;
+  {$IFDEF CIL}
+  for n := 0 to ((high(ArByte) + 1) div 4) - 1 do
+    ArLong[n] := ArByte[n * 4 + 0]
+      + (ArByte[n * 4 + 1] shl 8)
+      + (ArByte[n * 4 + 2] shl 16)
+      + (ArByte[n * 4 + 3] shl 24);
+  {$ELSE}
+  Move(ArByte[0], ArLong[0], High(ArByte) + 1);
+  {$ENDIF}
+end;
+
+procedure ArrLongToByte(var ArLong: Array of Integer; var ArByte: Array of byte);
+{$IFDEF CIL}
+var
+  n: integer;
+{$ENDIF}
+begin
+  if (High(ArByte) + 1) < ((High(ArLong) + 1) * 4) then
+    Exit;
+  {$IFDEF CIL}
+  for n := 0 to high(ArLong) do
+  begin
+    ArByte[n * 4 + 0] := ArLong[n] and $000000FF;
+    ArByte[n * 4 + 1] := (ArLong[n] shr 8) and $000000FF;
+    ArByte[n * 4 + 2] := (ArLong[n] shr 16) and $000000FF;
+    ArByte[n * 4 + 3] := (ArLong[n] shr 24) and $000000FF;
+  end;
+  {$ELSE}
+  Move(ArLong[0], ArByte[0], High(ArByte) + 1);
+  {$ENDIF}
+end;
+
+type
+  TMDCtx = record
+    State: array[0..3] of Integer;
+    Count: array[0..1] of Integer;
+    BufAnsiChar: array[0..63] of Byte;
+    BufLong: array[0..15] of Integer;
+  end;
+  TSHA1Ctx= record
+    Hi, Lo: integer;
+    Buffer: array[0..63] of byte;
+    Index: integer;
+    Hash: array[0..4] of Integer;
+    HashByte: array[0..19] of byte;
+  end;
+
+  TMDTransform = procedure(var Buf: array of LongInt; const Data: array of LongInt);
+
+{==============================================================================}
+
+function DecodeTriplet(const Value: AnsiString; Delimiter: AnsiChar): AnsiString;
+var
+  x, l, lv: Integer;
+  c: AnsiChar;
+  b: Byte;
+  bad: Boolean;
+begin
+  lv := Length(Value);
+  SetLength(Result, lv);
+  x := 1;
+  l := 1;
+  while x <= lv do
+  begin
+    c := Value[x];
+    Inc(x);
+    if c <> Delimiter then
+    begin
+      Result[l] := c;
+      Inc(l);
+    end
+    else
+      if x < lv then
+      begin
+        Case Value[x] Of
+          #13:
+            if (Value[x + 1] = #10) then
+              Inc(x, 2)
+            else
+              Inc(x);
+          #10:
+            if (Value[x + 1] = #13) then
+              Inc(x, 2)
+            else
+              Inc(x);
+        else
+          begin
+            bad := False;
+            Case Value[x] Of
+              '0'..'9': b := (Byte(Value[x]) - 48) Shl 4;
+              'a'..'f', 'A'..'F': b := ((Byte(Value[x]) And 7) + 9) shl 4;
+            else
+              begin
+                b := 0;
+                bad := True;
+              end;
+            end;
+            Case Value[x + 1] Of
+              '0'..'9': b := b Or (Byte(Value[x + 1]) - 48);
+              'a'..'f', 'A'..'F': b := b Or ((Byte(Value[x + 1]) And 7) + 9);
+            else
+              bad := True;
+            end;
+            if bad then
+            begin
+              Result[l] := c;
+              Inc(l);
+            end
+            else
+            begin
+              Inc(x, 2);
+              Result[l] := AnsiChar(b);
+              Inc(l);
+            end;
+          end;
+        end;
+      end
+      else
+        break;
+  end;
+  Dec(l);
+  SetLength(Result, l);
+end;
+
+{==============================================================================}
+
+function DecodeQuotedPrintable(const Value: AnsiString): AnsiString;
+begin
+  Result := DecodeTriplet(Value, '=');
+end;
+
+{==============================================================================}
+
+function DecodeURL(const Value: AnsiString): AnsiString;
+begin
+  Result := DecodeTriplet(Value, '%');
+end;
+
+{==============================================================================}
+
+function EncodeTriplet(const Value: AnsiString; Delimiter: AnsiChar;
+  Specials: TSpecials): AnsiString;
+var
+  n, l: Integer;
+  s: AnsiString;
+  c: AnsiChar;
+begin
+  SetLength(Result, Length(Value) * 3);
+  l := 1;
+  for n := 1 to Length(Value) do
+  begin
+    c := Value[n];
+    if c in Specials then
+    begin
+      Result[l] := Delimiter;
+      Inc(l);
+      s := IntToHex(Ord(c), 2);
+      Result[l] := s[1];
+      Inc(l);
+      Result[l] := s[2];
+      Inc(l);
+    end
+    else
+    begin
+      Result[l] := c;
+      Inc(l);
+    end;
+  end;
+  Dec(l);
+  SetLength(Result, l);
+end;
+
+{==============================================================================}
+
+function EncodeQuotedPrintable(const Value: AnsiString): AnsiString;
+begin
+  Result := EncodeTriplet(Value, '=',  ['='] + NonAsciiChar);
+end;
+
+{==============================================================================}
+
+function EncodeSafeQuotedPrintable(const Value: AnsiString): AnsiString;
+begin
+  Result := EncodeTriplet(Value, '=', SpecialChar + NonAsciiChar);
+end;
+
+{==============================================================================}
+
+function EncodeURLElement(const Value: AnsiString): AnsiString;
+begin
+  Result := EncodeTriplet(Value, '%', URLSpecialChar + URLFullSpecialChar);
+end;
+
+{==============================================================================}
+
+function EncodeURL(const Value: AnsiString): AnsiString;
+begin
+  Result := EncodeTriplet(Value, '%', URLSpecialChar);
+end;
+
+{==============================================================================}
+
+function Decode4to3(const Value, Table: AnsiString): AnsiString;
+var
+  x, y, n, l: Integer;
+  d: array[0..3] of Byte;
+begin
+  SetLength(Result, Length(Value));
+  x := 1;
+  l := 1;
+  while x <= Length(Value) do
+  begin
+    for n := 0 to 3 do
+    begin
+      if x > Length(Value) then
+        d[n] := 64
+      else
+      begin
+        y := Pos(Value[x], Table);
+        if y < 1 then
+          y := 1;
+        d[n] := y - 1;
+      end;
+      Inc(x);
+    end;
+    Result[l] := AnsiChar((D[0] and $3F) shl 2 + (D[1] and $30) shr 4);
+    Inc(l);
+    if d[2] <> 64 then
+    begin
+      Result[l] := AnsiChar((D[1] and $0F) shl 4 + (D[2] and $3C) shr 2);
+      Inc(l);
+      if d[3] <> 64 then
+      begin
+        Result[l] := AnsiChar((D[2] and $03) shl 6 + (D[3] and $3F));
+        Inc(l);
+      end;
+    end;
+  end;
+  Dec(l);
+  SetLength(Result, l);
+end;
+
+{==============================================================================}
+function Decode4to3Ex(const Value, Table: AnsiString): AnsiString;
+var
+  x, y, lv: Integer;
+  d: integer;
+  dl: integer;
+  c: byte;
+  p: integer;
+begin
+  lv := Length(Value);
+  SetLength(Result, lv);
+  x := 1;
+  dl := 4;
+  d := 0;
+  p := 1;
+  while x <= lv do
+  begin
+    y := Ord(Value[x]);
+    if y in [33..127] then
+      c := Ord(Table[y - 32])
+    else
+      c := 64;
+    Inc(x);
+    if c > 63 then
+      continue;
+    d := (d shl 6) or c;
+    dec(dl);
+    if dl <> 0 then
+      continue;
+    Result[p] := AnsiChar((d shr 16) and $ff);
+    inc(p);
+    Result[p] := AnsiChar((d shr 8) and $ff);
+    inc(p);
+    Result[p] := AnsiChar(d and $ff);
+    inc(p);
+    d := 0;
+    dl := 4;
+  end;
+  case dl of
+    1:
+      begin
+        d := d shr 2;
+        Result[p] := AnsiChar((d shr 8) and $ff);
+        inc(p);
+        Result[p] := AnsiChar(d and $ff);
+        inc(p);
+      end;
+    2:
+      begin
+        d := d shr 4;
+        Result[p] := AnsiChar(d and $ff);
+        inc(p);
+      end;
+  end;
+  SetLength(Result, p - 1);
+end;
+
+{==============================================================================}
+
+function Encode3to4(const Value, Table: AnsiString): AnsiString;
+var
+  c: Byte;
+  n, l: Integer;
+  Count: Integer;
+  DOut: array[0..3] of Byte;
+begin
+  setlength(Result, ((Length(Value) + 2) div 3) * 4);
+  l := 1;
+  Count := 1;
+  while Count <= Length(Value) do
+  begin
+    c := Ord(Value[Count]);
+    Inc(Count);
+    DOut[0] := (c and $FC) shr 2;
+    DOut[1] := (c and $03) shl 4;
+    if Count <= Length(Value) then
+    begin
+      c := Ord(Value[Count]);
+      Inc(Count);
+      DOut[1] := DOut[1] + (c and $F0) shr 4;
+      DOut[2] := (c and $0F) shl 2;
+      if Count <= Length(Value) then
+      begin
+        c := Ord(Value[Count]);
+        Inc(Count);
+        DOut[2] := DOut[2] + (c and $C0) shr 6;
+        DOut[3] := (c and $3F);
+      end
+      else
+      begin
+        DOut[3] := $40;
+      end;
+    end
+    else
+    begin
+      DOut[2] := $40;
+      DOut[3] := $40;
+    end;
+    for n := 0 to 3 do
+    begin
+      if (DOut[n] + 1) <= Length(Table) then
+      begin
+        Result[l] := Table[DOut[n] + 1];
+        Inc(l);
+      end;
+    end;
+  end;
+  SetLength(Result, l - 1);
+end;
+
+{==============================================================================}
+
+function DecodeBase64(const Value: AnsiString): AnsiString;
+begin
+  Result := Decode4to3Ex(Value, ReTableBase64);
+end;
+
+{==============================================================================}
+
+function EncodeBase64(const Value: AnsiString): AnsiString;
+begin
+  Result := Encode3to4(Value, TableBase64);
+end;
+
+{==============================================================================}
+
+function DecodeBase64mod(const Value: AnsiString): AnsiString;
+begin
+  Result := Decode4to3(Value, TableBase64mod);
+end;
+
+{==============================================================================}
+
+function EncodeBase64mod(const Value: AnsiString): AnsiString;
+begin
+  Result := Encode3to4(Value, TableBase64mod);
+end;
+
+{==============================================================================}
+
+function DecodeUU(const Value: AnsiString): AnsiString;
+var
+  s: AnsiString;
+  uut: AnsiString;
+  x: Integer;
+begin
+  Result := '';
+  uut := TableUU;
+  s := trim(UpperCase(Value));
+  if s = '' then Exit;
+  if Pos('BEGIN', s) = 1 then
+    Exit;
+  if Pos('END', s) = 1 then
+    Exit;
+  if Pos('TABLE', s) = 1 then
+    Exit; //ignore Table yet (set custom UUT)
+  //begin decoding
+  x := Pos(Value[1], uut) - 1;
+  case (x mod 3) of
+    0: x :=(x div 3)* 4;
+    1: x :=((x div 3) * 4) + 2;
+    2: x :=((x  div 3) * 4) + 3;
+  end;
+  //x - lenght UU line
+  s := Copy(Value, 2, x);
+  if s = '' then
+    Exit;
+  s := s + StringOfChar(' ', x - length(s));
+  Result := Decode4to3(s, uut);
+end;
+
+{==============================================================================}
+
+function EncodeUU(const Value: AnsiString): AnsiString;
+begin
+  Result := '';
+  if Length(Value) < Length(TableUU) then
+    Result := TableUU[Length(Value) + 1] + Encode3to4(Value, TableUU);
+end;
+
+{==============================================================================}
+
+function DecodeXX(const Value: AnsiString): AnsiString;
+var
+  s: AnsiString;
+  x: Integer;
+begin
+  Result := '';
+  s := trim(UpperCase(Value));
+  if s = '' then
+    Exit;
+  if Pos('BEGIN', s) = 1 then
+    Exit;
+  if Pos('END', s) = 1 then
+    Exit;
+  //begin decoding
+  x := Pos(Value[1], TableXX) - 1;
+  case (x mod 3) of
+    0: x :=(x div 3)* 4;
+    1: x :=((x div 3) * 4) + 2;
+    2: x :=((x  div 3) * 4) + 3;
+  end;
+  //x - lenght XX line
+  s := Copy(Value, 2, x);
+  if s = '' then
+    Exit;
+  s := s + StringOfChar(' ', x - length(s));
+  Result := Decode4to3(s, TableXX);
+end;
+
+{==============================================================================}
+
+function DecodeYEnc(const Value: AnsiString): AnsiString;
+var
+  C : Byte;
+  i: integer;
+begin
+  Result := '';
+  i := 1;
+  while i <= Length(Value) do
+  begin
+    c := Ord(Value[i]);
+    Inc(i);
+    if c = Ord('=') then
+    begin
+      c := Ord(Value[i]);
+      Inc(i);
+      Dec(c, 64);
+    end;
+    Dec(C, 42);
+    Result := Result + AnsiChar(C);
+  end;
+end;
+
+{==============================================================================}
+
+function UpdateCrc32(Value: Byte; Crc32: Integer): Integer;
+begin
+  Result := (Crc32 shr 8)
+    xor crc32tab[Byte(Value xor (Crc32 and Integer($000000FF)))];
+end;
+
+{==============================================================================}
+
+function Crc32(const Value: AnsiString): Integer;
+var
+  n: Integer;
+begin
+  Result := Integer($FFFFFFFF);
+  for n := 1 to Length(Value) do
+    Result := UpdateCrc32(Ord(Value[n]), Result);
+  Result := not Result;
+end;
+
+{==============================================================================}
+
+function UpdateCrc16(Value: Byte; Crc16: Word): Word;
+begin
+  Result := ((Crc16 shr 8) and $00FF) xor
+    crc16tab[Byte(Crc16 xor (Word(Value)) and $00FF)];
+end;
+
+{==============================================================================}
+
+function Crc16(const Value: AnsiString): Word;
+var
+  n: Integer;
+begin
+  Result := $FFFF;
+  for n := 1 to Length(Value) do
+    Result := UpdateCrc16(Ord(Value[n]), Result);
+end;
+
+{==============================================================================}
+
+procedure MDInit(var MDContext: TMDCtx);
+var
+  n: integer;
+begin
+  MDContext.Count[0] := 0;
+  MDContext.Count[1] := 0;
+  for n := 0 to high(MDContext.BufAnsiChar) do
+    MDContext.BufAnsiChar[n] := 0;
+  for n := 0 to high(MDContext.BufLong) do
+    MDContext.BufLong[n] := 0;
+  MDContext.State[0] := Integer($67452301);
+  MDContext.State[1] := Integer($EFCDAB89);
+  MDContext.State[2] := Integer($98BADCFE);
+  MDContext.State[3] := Integer($10325476);
+end;
+
+procedure MD5Transform(var Buf: array of LongInt; const Data: array of LongInt);
+var
+  A, B, C, D: LongInt;
+
+  procedure Round1(var W: LongInt; X, Y, Z, Data: LongInt; S: Byte);
+  begin
+    Inc(W, (Z xor (X and (Y xor Z))) + Data);
+    W := (W shl S) or (W shr (32 - S));
+    Inc(W, X);
+  end;
+
+  procedure Round2(var W: LongInt; X, Y, Z, Data: LongInt; S: Byte);
+  begin
+    Inc(W, (Y xor (Z and (X xor Y))) + Data);
+    W := (W shl S) or (W shr (32 - S));
+    Inc(W, X);
+  end;
+
+  procedure Round3(var W: LongInt; X, Y, Z, Data: LongInt; S: Byte);
+  begin
+    Inc(W, (X xor Y xor Z) + Data);
+    W := (W shl S) or (W shr (32 - S));
+    Inc(W, X);
+  end;
+
+  procedure Round4(var W: LongInt; X, Y, Z, Data: LongInt; S: Byte);
+  begin
+    Inc(W, (Y xor (X or not Z)) + Data);
+    W := (W shl S) or (W shr (32 - S));
+    Inc(W, X);
+  end;
+begin
+  A := Buf[0];
+  B := Buf[1];
+  C := Buf[2];
+  D := Buf[3];
+
+  Round1(A, B, C, D, Data[0] + Longint($D76AA478), 7);
+  Round1(D, A, B, C, Data[1] + Longint($E8C7B756), 12);
+  Round1(C, D, A, B, Data[2] + Longint($242070DB), 17);
+  Round1(B, C, D, A, Data[3] + Longint($C1BDCEEE), 22);
+  Round1(A, B, C, D, Data[4] + Longint($F57C0FAF), 7);
+  Round1(D, A, B, C, Data[5] + Longint($4787C62A), 12);
+  Round1(C, D, A, B, Data[6] + Longint($A8304613), 17);
+  Round1(B, C, D, A, Data[7] + Longint($FD469501), 22);
+  Round1(A, B, C, D, Data[8] + Longint($698098D8), 7);
+  Round1(D, A, B, C, Data[9] + Longint($8B44F7AF), 12);
+  Round1(C, D, A, B, Data[10] + Longint($FFFF5BB1), 17);
+  Round1(B, C, D, A, Data[11] + Longint($895CD7BE), 22);
+  Round1(A, B, C, D, Data[12] + Longint($6B901122), 7);
+  Round1(D, A, B, C, Data[13] + Longint($FD987193), 12);
+  Round1(C, D, A, B, Data[14] + Longint($A679438E), 17);
+  Round1(B, C, D, A, Data[15] + Longint($49B40821), 22);
+
+  Round2(A, B, C, D, Data[1] + Longint($F61E2562), 5);
+  Round2(D, A, B, C, Data[6] + Longint($C040B340), 9);
+  Round2(C, D, A, B, Data[11] + Longint($265E5A51), 14);
+  Round2(B, C, D, A, Data[0] + Longint($E9B6C7AA), 20);
+  Round2(A, B, C, D, Data[5] + Longint($D62F105D), 5);
+  Round2(D, A, B, C, Data[10] + Longint($02441453), 9);
+  Round2(C, D, A, B, Data[15] + Longint($D8A1E681), 14);
+  Round2(B, C, D, A, Data[4] + Longint($E7D3FBC8), 20);
+  Round2(A, B, C, D, Data[9] + Longint($21E1CDE6), 5);
+  Round2(D, A, B, C, Data[14] + Longint($C33707D6), 9);
+  Round2(C, D, A, B, Data[3] + Longint($F4D50D87), 14);
+  Round2(B, C, D, A, Data[8] + Longint($455A14ED), 20);
+  Round2(A, B, C, D, Data[13] + Longint($A9E3E905), 5);
+  Round2(D, A, B, C, Data[2] + Longint($FCEFA3F8), 9);
+  Round2(C, D, A, B, Data[7] + Longint($676F02D9), 14);
+  Round2(B, C, D, A, Data[12] + Longint($8D2A4C8A), 20);
+
+  Round3(A, B, C, D, Data[5] + Longint($FFFA3942), 4);
+  Round3(D, A, B, C, Data[8] + Longint($8771F681), 11);
+  Round3(C, D, A, B, Data[11] + Longint($6D9D6122), 16);
+  Round3(B, C, D, A, Data[14] + Longint($FDE5380C), 23);
+  Round3(A, B, C, D, Data[1] + Longint($A4BEEA44), 4);
+  Round3(D, A, B, C, Data[4] + Longint($4BDECFA9), 11);
+  Round3(C, D, A, B, Data[7] + Longint($F6BB4B60), 16);
+  Round3(B, C, D, A, Data[10] + Longint($BEBFBC70), 23);
+  Round3(A, B, C, D, Data[13] + Longint($289B7EC6), 4);
+  Round3(D, A, B, C, Data[0] + Longint($EAA127FA), 11);
+  Round3(C, D, A, B, Data[3] + Longint($D4EF3085), 16);
+  Round3(B, C, D, A, Data[6] + Longint($04881D05), 23);
+  Round3(A, B, C, D, Data[9] + Longint($D9D4D039), 4);
+  Round3(D, A, B, C, Data[12] + Longint($E6DB99E5), 11);
+  Round3(C, D, A, B, Data[15] + Longint($1FA27CF8), 16);
+  Round3(B, C, D, A, Data[2] + Longint($C4AC5665), 23);
+
+  Round4(A, B, C, D, Data[0] + Longint($F4292244), 6);
+  Round4(D, A, B, C, Data[7] + Longint($432AFF97), 10);
+  Round4(C, D, A, B, Data[14] + Longint($AB9423A7), 15);
+  Round4(B, C, D, A, Data[5] + Longint($FC93A039), 21);
+  Round4(A, B, C, D, Data[12] + Longint($655B59C3), 6);
+  Round4(D, A, B, C, Data[3] + Longint($8F0CCC92), 10);
+  Round4(C, D, A, B, Data[10] + Longint($FFEFF47D), 15);
+  Round4(B, C, D, A, Data[1] + Longint($85845DD1), 21);
+  Round4(A, B, C, D, Data[8] + Longint($6FA87E4F), 6);
+  Round4(D, A, B, C, Data[15] + Longint($FE2CE6E0), 10);
+  Round4(C, D, A, B, Data[6] + Longint($A3014314), 15);
+  Round4(B, C, D, A, Data[13] + Longint($4E0811A1), 21);
+  Round4(A, B, C, D, Data[4] + Longint($F7537E82), 6);
+  Round4(D, A, B, C, Data[11] + Longint($BD3AF235), 10);
+  Round4(C, D, A, B, Data[2] + Longint($2AD7D2BB), 15);
+  Round4(B, C, D, A, Data[9] + Longint($EB86D391), 21);
+
+  Inc(Buf[0], A);
+  Inc(Buf[1], B);
+  Inc(Buf[2], C);
+  Inc(Buf[3], D);
+end;
+
+//fixed by James McAdams
+procedure MDUpdate(var MDContext: TMDCtx; const Data: AnsiString; transform: TMDTransform);
+var
+  Index, partLen, InputLen, I: integer;
+{$IFDEF CIL}
+  n: integer;
+{$ENDIF}
+begin
+  InputLen := Length(Data);
+  with MDContext do
+  begin
+    Index := (Count[0] shr 3) and $3F;
+    Inc(Count[0], InputLen shl 3);
+    if Count[0] < (InputLen shl 3) then
+      Inc(Count[1]);
+    Inc(Count[1], InputLen shr 29);
+    partLen := 64 - Index;
+    if InputLen >= partLen then
+    begin
+      ArrLongToByte(BufLong, BufAnsiChar);
+      {$IFDEF CIL}
+      for n := 1 to partLen do
+        BufAnsiChar[index - 1 + n] := Ord(Data[n]);
+      {$ELSE}
+      Move(Data[1], BufAnsiChar[Index], partLen);
+      {$ENDIF}
+      ArrByteToLong(BufAnsiChar, BufLong);
+      Transform(State, Buflong);
+      I := partLen;
+  		while I + 63 < InputLen do
+      begin
+        ArrLongToByte(BufLong, BufAnsiChar);
+        {$IFDEF CIL}
+        for n := 1 to 64 do
+          BufAnsiChar[n - 1] := Ord(Data[i + n]);
+        {$ELSE}
+        Move(Data[I+1], BufAnsiChar, 64);
+        {$ENDIF}
+        ArrByteToLong(BufAnsiChar, BufLong);
+        Transform(State, Buflong);
+	  	  inc(I, 64);
+		  end;
+      Index := 0;
+    end
+    else
+      I := 0;
+    ArrLongToByte(BufLong, BufAnsiChar);
+    {$IFDEF CIL}
+    for n := 1 to InputLen-I do
+      BufAnsiChar[Index + n - 1] := Ord(Data[i + n]);
+    {$ELSE}
+    Move(Data[I+1], BufAnsiChar[Index], InputLen-I);
+    {$ENDIF}
+    ArrByteToLong(BufAnsiChar, BufLong);
+  end
+end;
+
+function MDFinal(var MDContext: TMDCtx; transform: TMDTransform): AnsiString;
+var
+  Cnt: Word;
+  P: Byte;
+  digest: array[0..15] of Byte;
+  i: Integer;
+  n: integer;
+begin
+  for I := 0 to 15 do
+    Digest[I] := I + 1;
+  with MDContext do
+  begin
+    Cnt := (Count[0] shr 3) and $3F;
+    P := Cnt;
+    BufAnsiChar[P] := $80;
+    Inc(P);
+    Cnt := 64 - 1 - Cnt;
+    if Cnt < 8 then
+    begin
+      for n := 0 to cnt - 1 do
+        BufAnsiChar[P + n] := 0;
+      ArrByteToLong(BufAnsiChar, BufLong);
+//      FillChar(BufAnsiChar[P], Cnt, #0);
+      Transform(State, BufLong);
+      ArrLongToByte(BufLong, BufAnsiChar);
+      for n := 0 to 55 do
+        BufAnsiChar[n] := 0;
+      ArrByteToLong(BufAnsiChar, BufLong);
+//      FillChar(BufAnsiChar, 56, #0);
+    end
+    else
+    begin
+      for n := 0 to Cnt - 8 - 1 do
+        BufAnsiChar[p + n] := 0;
+      ArrByteToLong(BufAnsiChar, BufLong);
+//      FillChar(BufAnsiChar[P], Cnt - 8, #0);
+    end;
+    BufLong[14] := Count[0];
+    BufLong[15] := Count[1];
+    Transform(State, BufLong);
+    ArrLongToByte(State, Digest);
+//    Move(State, Digest, 16);
+    Result := '';
+    for i := 0 to 15 do
+      Result := Result + AnsiChar(digest[i]);
+  end;
+//  FillChar(MD5Context, SizeOf(TMD5Ctx), #0)
+end;
+
+{==============================================================================}
+
+function MD5(const Value: AnsiString): AnsiString;
+var
+  MDContext: TMDCtx;
+begin
+  MDInit(MDContext);
+  MDUpdate(MDContext, Value, @MD5Transform);
+  Result := MDFinal(MDContext, @MD5Transform);
+end;
+
+{==============================================================================}
+
+function HMAC_MD5(Text, Key: AnsiString): AnsiString;
+var
+  ipad, opad, s: AnsiString;
+  n: Integer;
+  MDContext: TMDCtx;
+begin
+  if Length(Key) > 64 then
+    Key := md5(Key);
+  ipad := StringOfChar(#$36, 64);
+  opad := StringOfChar(#$5C, 64);
+  for n := 1 to Length(Key) do
+  begin
+    ipad[n] := AnsiChar(Byte(ipad[n]) xor Byte(Key[n]));
+    opad[n] := AnsiChar(Byte(opad[n]) xor Byte(Key[n]));
+  end;
+  MDInit(MDContext);
+  MDUpdate(MDContext, ipad, @MD5Transform);
+  MDUpdate(MDContext, Text, @MD5Transform);
+  s := MDFinal(MDContext, @MD5Transform);
+  MDInit(MDContext);
+  MDUpdate(MDContext, opad, @MD5Transform);
+  MDUpdate(MDContext, s, @MD5Transform);
+  Result := MDFinal(MDContext, @MD5Transform);
+end;
+
+{==============================================================================}
+
+function MD5LongHash(const Value: AnsiString; Len: integer): AnsiString;
+var
+  cnt, rest: integer;
+  l: integer;
+  n: integer;
+  MDContext: TMDCtx;
+begin
+  l := length(Value);
+  cnt := Len div l;
+  rest := Len mod l;
+  MDInit(MDContext);
+  for n := 1 to cnt do
+    MDUpdate(MDContext, Value, @MD5Transform);
+  if rest > 0 then
+    MDUpdate(MDContext, Copy(Value, 1, rest), @MD5Transform);
+  Result := MDFinal(MDContext, @MD5Transform);
+end;
+
+{==============================================================================}
+// SHA1 is based on sources by Dave Barton (davebarton@bigfoot.com)
+
+procedure SHA1init( var SHA1Context: TSHA1Ctx );
+var
+  n: integer;
+begin
+  SHA1Context.Hi := 0;
+  SHA1Context.Lo := 0;
+  SHA1Context.Index := 0;
+  for n := 0 to High(SHA1Context.Buffer) do
+    SHA1Context.Buffer[n] := 0;
+  for n := 0 to High(SHA1Context.HashByte) do
+    SHA1Context.HashByte[n] := 0;
+//  FillChar(SHA1Context, SizeOf(TSHA1Ctx), #0);
+  SHA1Context.Hash[0] := integer($67452301);
+  SHA1Context.Hash[1] := integer($EFCDAB89);
+  SHA1Context.Hash[2] := integer($98BADCFE);
+  SHA1Context.Hash[3] := integer($10325476);
+  SHA1Context.Hash[4] := integer($C3D2E1F0);
+end;
+
+//******************************************************************************
+function RB(A: integer): integer;
+begin
+  Result := (A shr 24) or ((A shr 8) and $FF00) or ((A shl 8) and $FF0000) or (A shl 24);
+end;
+
+procedure SHA1Compress(var Data: TSHA1Ctx);
+var
+  A, B, C, D, E, T: integer;
+  W: array[0..79] of integer;
+  i: integer;
+  n: integer;
+
+  function F1(x, y, z: integer): integer;
+  begin
+    Result := z xor (x and (y xor z));
+  end;
+  function F2(x, y, z: integer): integer;
+  begin
+    Result := x xor y xor z;
+  end;
+  function F3(x, y, z: integer): integer;
+  begin
+    Result := (x and y) or (z and (x or y));
+  end;
+  function LRot32(X: integer; c: integer): integer;
+  begin
+    result := (x shl c) or (x shr (32 - c));
+  end;
+begin
+  ArrByteToLong(Data.Buffer, W);
+//  Move(Data.Buffer, W, Sizeof(Data.Buffer));
+  for i := 0 to 15 do
+    W[i] := RB(W[i]);
+  for i := 16 to 79 do
+    W[i] := LRot32(W[i-3] xor W[i-8] xor W[i-14] xor W[i-16], 1);
+  A := Data.Hash[0];
+  B := Data.Hash[1];
+  C := Data.Hash[2];
+  D := Data.Hash[3];
+  E := Data.Hash[4];
+  for i := 0 to 19 do
+  begin
+    T := LRot32(A, 5) + F1(B, C, D) + E + W[i] + integer($5A827999);
+    E := D;
+    D := C;
+    C := LRot32(B, 30);
+    B := A;
+    A := T;
+  end;
+  for i := 20 to 39 do
+  begin
+    T := LRot32(A, 5) + F2(B, C, D) + E + W[i] + integer($6ED9EBA1);
+    E := D;
+    D := C;
+    C := LRot32(B, 30);
+    B := A;
+    A := T;
+  end;
+  for i := 40 to 59 do
+  begin
+    T := LRot32(A, 5) + F3(B, C, D) + E + W[i] + integer($8F1BBCDC);
+    E := D;
+    D := C;
+    C := LRot32(B, 30);
+    B := A;
+    A := T;
+  end;
+  for i := 60 to 79 do
+  begin
+    T := LRot32(A, 5) + F2(B, C, D) + E + W[i] + integer($CA62C1D6);
+    E := D;
+    D := C;
+    C := LRot32(B, 30);
+    B := A;
+    A := T;
+  end;
+  Data.Hash[0] := Data.Hash[0] + A;
+  Data.Hash[1] := Data.Hash[1] + B;
+  Data.Hash[2] := Data.Hash[2] + C;
+  Data.Hash[3] := Data.Hash[3] + D;
+  Data.Hash[4] := Data.Hash[4] + E;
+  for n := 0 to high(w) do
+    w[n] := 0;
+//  FillChar(W, Sizeof(W), 0);
+  for n := 0 to high(Data.Buffer) do
+    Data.Buffer[n] := 0;
+//  FillChar(Data.Buffer, Sizeof(Data.Buffer), 0);
+end;
+
+//******************************************************************************
+procedure SHA1Update(var Context: TSHA1Ctx; const Data: AnsiString);
+var
+  Len: integer;
+  n: integer;
+  i, k: integer;
+begin
+  Len := Length(data);
+  for k := 0 to 7 do
+  begin
+    i := Context.Lo;
+    Inc(Context.Lo, Len);
+    if Context.Lo < i then
+      Inc(Context.Hi);
+  end;
+  for n := 1 to len do
+  begin
+    Context.Buffer[Context.Index] := byte(Data[n]);
+    Inc(Context.Index);
+    if Context.Index = 64 then
+    begin
+      Context.Index := 0;
+      SHA1Compress(Context);
+    end;
+  end;
+end;
+
+//******************************************************************************
+function SHA1Final(var Context: TSHA1Ctx): AnsiString;
+type
+  Pinteger = ^integer;
+var
+  i: integer;
+  procedure ItoArr(var Ar: Array of byte; I, value: Integer);
+  begin
+    Ar[i + 0] := Value and $000000FF;
+    Ar[i + 1] := (Value shr 8) and $000000FF;
+    Ar[i + 2] := (Value shr 16) and $000000FF;
+    Ar[i + 3] := (Value shr 24) and $000000FF;
+  end;
+begin
+  Context.Buffer[Context.Index] := $80;
+  if Context.Index >= 56 then
+    SHA1Compress(Context);
+  ItoArr(Context.Buffer, 56, RB(Context.Hi));
+  ItoArr(Context.Buffer, 60, RB(Context.Lo));
+//  Pinteger(@Context.Buffer[56])^ := RB(Context.Hi);
+//  Pinteger(@Context.Buffer[60])^ := RB(Context.Lo);
+  SHA1Compress(Context);
+  Context.Hash[0] := RB(Context.Hash[0]);
+  Context.Hash[1] := RB(Context.Hash[1]);
+  Context.Hash[2] := RB(Context.Hash[2]);
+  Context.Hash[3] := RB(Context.Hash[3]);
+  Context.Hash[4] := RB(Context.Hash[4]);
+  ArrLongToByte(Context.Hash, Context.HashByte);
+  Result := '';
+  for i := 0 to 19 do
+    Result := Result + AnsiChar(Context.HashByte[i]);
+end;
+
+function SHA1(const Value: AnsiString): AnsiString;
+var
+  SHA1Context: TSHA1Ctx;
+begin
+  SHA1Init(SHA1Context);
+  SHA1Update(SHA1Context, Value);
+  Result := SHA1Final(SHA1Context);
+end;
+
+{==============================================================================}
+
+function HMAC_SHA1(Text, Key: AnsiString): AnsiString;
+var
+  ipad, opad, s: AnsiString;
+  n: Integer;
+  SHA1Context: TSHA1Ctx;
+begin
+  if Length(Key) > 64 then
+    Key := SHA1(Key);
+  ipad := StringOfChar(#$36, 64);
+  opad := StringOfChar(#$5C, 64);
+  for n := 1 to Length(Key) do
+  begin
+    ipad[n] := AnsiChar(Byte(ipad[n]) xor Byte(Key[n]));
+    opad[n] := AnsiChar(Byte(opad[n]) xor Byte(Key[n]));
+  end;
+  SHA1Init(SHA1Context);
+  SHA1Update(SHA1Context, ipad);
+  SHA1Update(SHA1Context, Text);
+  s := SHA1Final(SHA1Context);
+  SHA1Init(SHA1Context);
+  SHA1Update(SHA1Context, opad);
+  SHA1Update(SHA1Context, s);
+  Result := SHA1Final(SHA1Context);
+end;
+
+{==============================================================================}
+
+function SHA1LongHash(const Value: AnsiString; Len: integer): AnsiString;
+var
+  cnt, rest: integer;
+  l: integer;
+  n: integer;
+  SHA1Context: TSHA1Ctx;
+begin
+  l := length(Value);
+  cnt := Len div l;
+  rest := Len mod l;
+  SHA1Init(SHA1Context);
+  for n := 1 to cnt do
+    SHA1Update(SHA1Context, Value);
+  if rest > 0 then
+    SHA1Update(SHA1Context, Copy(Value, 1, rest));
+  Result := SHA1Final(SHA1Context);
+end;
+
+{==============================================================================}
+
+procedure MD4Transform(var Buf: array of LongInt; const Data: array of LongInt);
+var
+  A, B, C, D: LongInt;
+  function LRot32(a, b: longint): longint;
+  begin
+    Result:= (a shl b) or (a shr (32 - b));
+  end;
+begin
+  A := Buf[0];
+  B := Buf[1];
+  C := Buf[2];
+  D := Buf[3];
+
+  A:= LRot32(A + (D xor (B and (C xor D))) + Data[ 0], 3);
+  D:= LRot32(D + (C xor (A and (B xor C))) + Data[ 1], 7);
+  C:= LRot32(C + (B xor (D and (A xor B))) + Data[ 2], 11);
+  B:= LRot32(B + (A xor (C and (D xor A))) + Data[ 3], 19);
+  A:= LRot32(A + (D xor (B and (C xor D))) + Data[ 4], 3);
+  D:= LRot32(D + (C xor (A and (B xor C))) + Data[ 5], 7);
+  C:= LRot32(C + (B xor (D and (A xor B))) + Data[ 6], 11);
+  B:= LRot32(B + (A xor (C and (D xor A))) + Data[ 7], 19);
+  A:= LRot32(A + (D xor (B and (C xor D))) + Data[ 8], 3);
+  D:= LRot32(D + (C xor (A and (B xor C))) + Data[ 9], 7);
+  C:= LRot32(C + (B xor (D and (A xor B))) + Data[10], 11);
+  B:= LRot32(B + (A xor (C and (D xor A))) + Data[11], 19);
+  A:= LRot32(A + (D xor (B and (C xor D))) + Data[12], 3);
+  D:= LRot32(D + (C xor (A and (B xor C))) + Data[13], 7);
+  C:= LRot32(C + (B xor (D and (A xor B))) + Data[14], 11);
+  B:= LRot32(B + (A xor (C and (D xor A))) + Data[15], 19);
+
+  A:= LRot32(A + ((B and C) or (B and D) or (C and D)) + Data[ 0] + longint($5a827999), 3);
+  D:= LRot32(D + ((A and B) or (A and C) or (B and C)) + Data[ 4] + longint($5a827999), 5);
+  C:= LRot32(C + ((D and A) or (D and B) or (A and B)) + Data[ 8] + longint($5a827999), 9);
+  B:= LRot32(B + ((C and D) or (C and A) or (D and A)) + Data[12] + longint($5a827999), 13);
+  A:= LRot32(A + ((B and C) or (B and D) or (C and D)) + Data[ 1] + longint($5a827999), 3);
+  D:= LRot32(D + ((A and B) or (A and C) or (B and C)) + Data[ 5] + longint($5a827999), 5);
+  C:= LRot32(C + ((D and A) or (D and B) or (A and B)) + Data[ 9] + longint($5a827999), 9);
+  B:= LRot32(B + ((C and D) or (C and A) or (D and A)) + Data[13] + longint($5a827999), 13);
+  A:= LRot32(A + ((B and C) or (B and D) or (C and D)) + Data[ 2] + longint($5a827999), 3);
+  D:= LRot32(D + ((A and B) or (A and C) or (B and C)) + Data[ 6] + longint($5a827999), 5);
+  C:= LRot32(C + ((D and A) or (D and B) or (A and B)) + Data[10] + longint($5a827999), 9);
+  B:= LRot32(B + ((C and D) or (C and A) or (D and A)) + Data[14] + longint($5a827999), 13);
+  A:= LRot32(A + ((B and C) or (B and D) or (C and D)) + Data[ 3] + longint($5a827999), 3);
+  D:= LRot32(D + ((A and B) or (A and C) or (B and C)) + Data[ 7] + longint($5a827999), 5);
+  C:= LRot32(C + ((D and A) or (D and B) or (A and B)) + Data[11] + longint($5a827999), 9);
+  B:= LRot32(B + ((C and D) or (C and A) or (D and A)) + Data[15] + longint($5a827999), 13);
+
+  A:= LRot32(A + (B xor C xor D) + Data[ 0] + longint($6ed9eba1), 3);
+  D:= LRot32(D + (A xor B xor C) + Data[ 8] + longint($6ed9eba1), 9);
+  C:= LRot32(C + (D xor A xor B) + Data[ 4] + longint($6ed9eba1), 11);
+  B:= LRot32(B + (C xor D xor A) + Data[12] + longint($6ed9eba1), 15);
+  A:= LRot32(A + (B xor C xor D) + Data[ 2] + longint($6ed9eba1), 3);
+  D:= LRot32(D + (A xor B xor C) + Data[10] + longint($6ed9eba1), 9);
+  C:= LRot32(C + (D xor A xor B) + Data[ 6] + longint($6ed9eba1), 11);
+  B:= LRot32(B + (C xor D xor A) + Data[14] + longint($6ed9eba1), 15);
+  A:= LRot32(A + (B xor C xor D) + Data[ 1] + longint($6ed9eba1), 3);
+  D:= LRot32(D + (A xor B xor C) + Data[ 9] + longint($6ed9eba1), 9);
+  C:= LRot32(C + (D xor A xor B) + Data[ 5] + longint($6ed9eba1), 11);
+  B:= LRot32(B + (C xor D xor A) + Data[13] + longint($6ed9eba1), 15);
+  A:= LRot32(A + (B xor C xor D) + Data[ 3] + longint($6ed9eba1), 3);
+  D:= LRot32(D + (A xor B xor C) + Data[11] + longint($6ed9eba1), 9);
+  C:= LRot32(C + (D xor A xor B) + Data[ 7] + longint($6ed9eba1), 11);
+  B:= LRot32(B + (C xor D xor A) + Data[15] + longint($6ed9eba1), 15);
+
+  Inc(Buf[0], A);
+  Inc(Buf[1], B);
+  Inc(Buf[2], C);
+  Inc(Buf[3], D);
+end;
+
+{==============================================================================}
+
+function MD4(const Value: AnsiString): AnsiString;
+var
+  MDContext: TMDCtx;
+begin
+  MDInit(MDContext);
+  MDUpdate(MDContext, Value, @MD4Transform);
+  Result := MDFinal(MDContext, @MD4Transform);
+end;
+
+{==============================================================================}
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synacrypt.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synacrypt.pas
new file mode 100644
index 0000000..c80e891
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synacrypt.pas	
@@ -0,0 +1,1223 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.000.000 |
+|==============================================================================|
+| Content: Encryption support                                                  |
+|==============================================================================|
+| Copyright (c)2007, Lukas Gebauer                                             |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2007.                     |
+| All Rights Reserved.                                                         |
+| Based on work of David Barton and Eric Young                                 |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(Encryption support)
+
+Implemented are DES and 3DES encryption/decryption by ECB, CBC, CFB-8bit,
+ CFB-block, OFB and CTR methods.
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$R-}
+{$H+}
+
+unit synacrypt;
+
+interface
+
+uses
+  SysUtils, Classes, synautil;
+
+type
+  {:@abstract(Implementation of common routines for 64-bit block ciphers)
+
+   Do not use this class directly, use descendants only!}
+  TSynaBlockCipher= class(TObject)
+  protected
+    procedure InitKey(Key: AnsiString); virtual;
+  private
+    IV, CV: AnsiString;
+    procedure IncCounter;
+  public
+    {:Sets the IV to Value and performs a reset}
+    procedure SetIV(const Value: AnsiString); virtual;
+    {:Returns the current chaining information, not the actual IV}
+    function GetIV: AnsiString; virtual;
+    {:Reset any stored chaining information}
+    procedure Reset; virtual;
+    {:Encrypt a 64-bit block of data using the ECB method of encryption}
+    function EncryptECB(const InData: AnsiString): AnsiString; virtual;
+    {:Decrypt a 64-bit block of data using the ECB method of decryption}
+    function DecryptECB(const InData: AnsiString): AnsiString; virtual;
+    {:Encrypt data using the CBC method of encryption}
+    function EncryptCBC(const Indata: AnsiString): AnsiString; virtual;
+    {:Decrypt data using the CBC method of decryption}
+    function DecryptCBC(const Indata: AnsiString): AnsiString; virtual;
+    {:Encrypt data using the CFB (8 bit) method of encryption}
+    function EncryptCFB8bit(const Indata: AnsiString): AnsiString; virtual;
+    {:Decrypt data using the CFB (8 bit) method of decryption}
+    function DecryptCFB8bit(const Indata: AnsiString): AnsiString; virtual;
+    {:Encrypt data using the CFB (block) method of encryption}
+    function EncryptCFBblock(const Indata: AnsiString): AnsiString; virtual;
+    {:Decrypt data using the CFB (block) method of decryption}
+    function DecryptCFBblock(const Indata: AnsiString): AnsiString; virtual;
+    {:Encrypt data using the OFB method of encryption}
+    function EncryptOFB(const Indata: AnsiString): AnsiString; virtual;
+    {:Decrypt data using the OFB method of decryption}
+    function DecryptOFB(const Indata: AnsiString): AnsiString; virtual;
+    {:Encrypt data using the CTR method of encryption}
+    function EncryptCTR(const Indata: AnsiString): AnsiString; virtual;
+    {:Decrypt data using the CTR method of decryption}
+    function DecryptCTR(const Indata: AnsiString): AnsiString; virtual;
+    {:Create a encryptor/decryptor instance and initialize it by the Key.}
+    constructor Create(Key: AnsiString);
+  end;
+
+  {:@abstract(Datatype for holding one DES key data)
+
+    This data type is used internally.}
+  TDesKeyData = array[0..31] of integer;
+
+  {:@abstract(Implementation of common routines for DES encryption)
+
+   Do not use this class directly, use descendants only!}
+  TSynaCustomDes = class(TSynaBlockcipher)
+  protected
+    procedure DoInit(KeyB: AnsiString; var KeyData: TDesKeyData);
+    function EncryptBlock(const InData: AnsiString; var KeyData: TDesKeyData): AnsiString;
+    function DecryptBlock(const InData: AnsiString; var KeyData: TDesKeyData): AnsiString;
+  end;
+
+  {:@abstract(Implementation of DES encryption)}
+  TSynaDes= class(TSynaCustomDes)
+  protected
+    KeyData: TDesKeyData;
+    procedure InitKey(Key: AnsiString); override;
+  public
+    {:Encrypt a 64-bit block of data using the ECB method of encryption}
+    function EncryptECB(const InData: AnsiString): AnsiString; override;
+    {:Decrypt a 64-bit block of data using the ECB method of decryption}
+    function DecryptECB(const InData: AnsiString): AnsiString; override;
+  end;
+
+  {:@abstract(Implementation of 3DES encryption)}
+  TSyna3Des= class(TSynaCustomDes)
+  protected
+    KeyData: array[0..2] of TDesKeyData;
+    procedure InitKey(Key: AnsiString); override;
+  public
+    {:Encrypt a 64-bit block of data using the ECB method of encryption}
+    function EncryptECB(const InData: AnsiString): AnsiString; override;
+    {:Decrypt a 64-bit block of data using the ECB method of decryption}
+    function DecryptECB(const InData: AnsiString): AnsiString; override;
+  end;
+
+{:Call internal test of all DES encryptions. Returns @true if all is OK.}
+function TestDes: boolean;
+{:Call internal test of all 3DES encryptions. Returns @true if all is OK.}
+function Test3Des: boolean;
+
+{==============================================================================}
+implementation
+
+const
+  shifts2: array[0..15]of byte=
+    (0,0,1,1,1,1,1,1,0,1,1,1,1,1,1,0);
+
+  des_skb: array[0..7,0..63]of integer=(
+    (
+    (* for C bits (numbered as per FIPS 46) 1 2 3 4 5 6 *)
+    integer($00000000),integer($00000010),integer($20000000),integer($20000010),
+    integer($00010000),integer($00010010),integer($20010000),integer($20010010),
+    integer($00000800),integer($00000810),integer($20000800),integer($20000810),
+    integer($00010800),integer($00010810),integer($20010800),integer($20010810),
+    integer($00000020),integer($00000030),integer($20000020),integer($20000030),
+    integer($00010020),integer($00010030),integer($20010020),integer($20010030),
+    integer($00000820),integer($00000830),integer($20000820),integer($20000830),
+    integer($00010820),integer($00010830),integer($20010820),integer($20010830),
+    integer($00080000),integer($00080010),integer($20080000),integer($20080010),
+    integer($00090000),integer($00090010),integer($20090000),integer($20090010),
+    integer($00080800),integer($00080810),integer($20080800),integer($20080810),
+    integer($00090800),integer($00090810),integer($20090800),integer($20090810),
+    integer($00080020),integer($00080030),integer($20080020),integer($20080030),
+    integer($00090020),integer($00090030),integer($20090020),integer($20090030),
+    integer($00080820),integer($00080830),integer($20080820),integer($20080830),
+    integer($00090820),integer($00090830),integer($20090820),integer($20090830)
+    ),(
+    (* for C bits (numbered as per FIPS 46) 7 8 10 11 12 13 *)
+    integer($00000000),integer($02000000),integer($00002000),integer($02002000),
+    integer($00200000),integer($02200000),integer($00202000),integer($02202000),
+    integer($00000004),integer($02000004),integer($00002004),integer($02002004),
+    integer($00200004),integer($02200004),integer($00202004),integer($02202004),
+    integer($00000400),integer($02000400),integer($00002400),integer($02002400),
+    integer($00200400),integer($02200400),integer($00202400),integer($02202400),
+    integer($00000404),integer($02000404),integer($00002404),integer($02002404),
+    integer($00200404),integer($02200404),integer($00202404),integer($02202404),
+    integer($10000000),integer($12000000),integer($10002000),integer($12002000),
+    integer($10200000),integer($12200000),integer($10202000),integer($12202000),
+    integer($10000004),integer($12000004),integer($10002004),integer($12002004),
+    integer($10200004),integer($12200004),integer($10202004),integer($12202004),
+    integer($10000400),integer($12000400),integer($10002400),integer($12002400),
+    integer($10200400),integer($12200400),integer($10202400),integer($12202400),
+    integer($10000404),integer($12000404),integer($10002404),integer($12002404),
+    integer($10200404),integer($12200404),integer($10202404),integer($12202404)
+    ),(
+    (* for C bits (numbered as per FIPS 46) 14 15 16 17 19 20 *)
+    integer($00000000),integer($00000001),integer($00040000),integer($00040001),
+    integer($01000000),integer($01000001),integer($01040000),integer($01040001),
+    integer($00000002),integer($00000003),integer($00040002),integer($00040003),
+    integer($01000002),integer($01000003),integer($01040002),integer($01040003),
+    integer($00000200),integer($00000201),integer($00040200),integer($00040201),
+    integer($01000200),integer($01000201),integer($01040200),integer($01040201),
+    integer($00000202),integer($00000203),integer($00040202),integer($00040203),
+    integer($01000202),integer($01000203),integer($01040202),integer($01040203),
+    integer($08000000),integer($08000001),integer($08040000),integer($08040001),
+    integer($09000000),integer($09000001),integer($09040000),integer($09040001),
+    integer($08000002),integer($08000003),integer($08040002),integer($08040003),
+    integer($09000002),integer($09000003),integer($09040002),integer($09040003),
+    integer($08000200),integer($08000201),integer($08040200),integer($08040201),
+    integer($09000200),integer($09000201),integer($09040200),integer($09040201),
+    integer($08000202),integer($08000203),integer($08040202),integer($08040203),
+    integer($09000202),integer($09000203),integer($09040202),integer($09040203)
+    ),(
+    (* for C bits (numbered as per FIPS 46) 21 23 24 26 27 28 *)
+    integer($00000000),integer($00100000),integer($00000100),integer($00100100),
+    integer($00000008),integer($00100008),integer($00000108),integer($00100108),
+    integer($00001000),integer($00101000),integer($00001100),integer($00101100),
+    integer($00001008),integer($00101008),integer($00001108),integer($00101108),
+    integer($04000000),integer($04100000),integer($04000100),integer($04100100),
+    integer($04000008),integer($04100008),integer($04000108),integer($04100108),
+    integer($04001000),integer($04101000),integer($04001100),integer($04101100),
+    integer($04001008),integer($04101008),integer($04001108),integer($04101108),
+    integer($00020000),integer($00120000),integer($00020100),integer($00120100),
+    integer($00020008),integer($00120008),integer($00020108),integer($00120108),
+    integer($00021000),integer($00121000),integer($00021100),integer($00121100),
+    integer($00021008),integer($00121008),integer($00021108),integer($00121108),
+    integer($04020000),integer($04120000),integer($04020100),integer($04120100),
+    integer($04020008),integer($04120008),integer($04020108),integer($04120108),
+    integer($04021000),integer($04121000),integer($04021100),integer($04121100),
+    integer($04021008),integer($04121008),integer($04021108),integer($04121108)
+    ),(
+    (* for D bits (numbered as per FIPS 46) 1 2 3 4 5 6 *)
+    integer($00000000),integer($10000000),integer($00010000),integer($10010000),
+    integer($00000004),integer($10000004),integer($00010004),integer($10010004),
+    integer($20000000),integer($30000000),integer($20010000),integer($30010000),
+    integer($20000004),integer($30000004),integer($20010004),integer($30010004),
+    integer($00100000),integer($10100000),integer($00110000),integer($10110000),
+    integer($00100004),integer($10100004),integer($00110004),integer($10110004),
+    integer($20100000),integer($30100000),integer($20110000),integer($30110000),
+    integer($20100004),integer($30100004),integer($20110004),integer($30110004),
+    integer($00001000),integer($10001000),integer($00011000),integer($10011000),
+    integer($00001004),integer($10001004),integer($00011004),integer($10011004),
+    integer($20001000),integer($30001000),integer($20011000),integer($30011000),
+    integer($20001004),integer($30001004),integer($20011004),integer($30011004),
+    integer($00101000),integer($10101000),integer($00111000),integer($10111000),
+    integer($00101004),integer($10101004),integer($00111004),integer($10111004),
+    integer($20101000),integer($30101000),integer($20111000),integer($30111000),
+    integer($20101004),integer($30101004),integer($20111004),integer($30111004)
+    ),(
+    (* for D bits (numbered as per FIPS 46) 8 9 11 12 13 14 *)
+    integer($00000000),integer($08000000),integer($00000008),integer($08000008),
+    integer($00000400),integer($08000400),integer($00000408),integer($08000408),
+    integer($00020000),integer($08020000),integer($00020008),integer($08020008),
+    integer($00020400),integer($08020400),integer($00020408),integer($08020408),
+    integer($00000001),integer($08000001),integer($00000009),integer($08000009),
+    integer($00000401),integer($08000401),integer($00000409),integer($08000409),
+    integer($00020001),integer($08020001),integer($00020009),integer($08020009),
+    integer($00020401),integer($08020401),integer($00020409),integer($08020409),
+    integer($02000000),integer($0A000000),integer($02000008),integer($0A000008),
+    integer($02000400),integer($0A000400),integer($02000408),integer($0A000408),
+    integer($02020000),integer($0A020000),integer($02020008),integer($0A020008),
+    integer($02020400),integer($0A020400),integer($02020408),integer($0A020408),
+    integer($02000001),integer($0A000001),integer($02000009),integer($0A000009),
+    integer($02000401),integer($0A000401),integer($02000409),integer($0A000409),
+    integer($02020001),integer($0A020001),integer($02020009),integer($0A020009),
+    integer($02020401),integer($0A020401),integer($02020409),integer($0A020409)
+    ),(
+    (* for D bits (numbered as per FIPS 46) 16 17 18 19 20 21 *)
+    integer($00000000),integer($00000100),integer($00080000),integer($00080100),
+    integer($01000000),integer($01000100),integer($01080000),integer($01080100),
+    integer($00000010),integer($00000110),integer($00080010),integer($00080110),
+    integer($01000010),integer($01000110),integer($01080010),integer($01080110),
+    integer($00200000),integer($00200100),integer($00280000),integer($00280100),
+    integer($01200000),integer($01200100),integer($01280000),integer($01280100),
+    integer($00200010),integer($00200110),integer($00280010),integer($00280110),
+    integer($01200010),integer($01200110),integer($01280010),integer($01280110),
+    integer($00000200),integer($00000300),integer($00080200),integer($00080300),
+    integer($01000200),integer($01000300),integer($01080200),integer($01080300),
+    integer($00000210),integer($00000310),integer($00080210),integer($00080310),
+    integer($01000210),integer($01000310),integer($01080210),integer($01080310),
+    integer($00200200),integer($00200300),integer($00280200),integer($00280300),
+    integer($01200200),integer($01200300),integer($01280200),integer($01280300),
+    integer($00200210),integer($00200310),integer($00280210),integer($00280310),
+    integer($01200210),integer($01200310),integer($01280210),integer($01280310)
+    ),(
+    (* for D bits (numbered as per FIPS 46) 22 23 24 25 27 28 *)
+    integer($00000000),integer($04000000),integer($00040000),integer($04040000),
+    integer($00000002),integer($04000002),integer($00040002),integer($04040002),
+    integer($00002000),integer($04002000),integer($00042000),integer($04042000),
+    integer($00002002),integer($04002002),integer($00042002),integer($04042002),
+    integer($00000020),integer($04000020),integer($00040020),integer($04040020),
+    integer($00000022),integer($04000022),integer($00040022),integer($04040022),
+    integer($00002020),integer($04002020),integer($00042020),integer($04042020),
+    integer($00002022),integer($04002022),integer($00042022),integer($04042022),
+    integer($00000800),integer($04000800),integer($00040800),integer($04040800),
+    integer($00000802),integer($04000802),integer($00040802),integer($04040802),
+    integer($00002800),integer($04002800),integer($00042800),integer($04042800),
+    integer($00002802),integer($04002802),integer($00042802),integer($04042802),
+    integer($00000820),integer($04000820),integer($00040820),integer($04040820),
+    integer($00000822),integer($04000822),integer($00040822),integer($04040822),
+    integer($00002820),integer($04002820),integer($00042820),integer($04042820),
+    integer($00002822),integer($04002822),integer($00042822),integer($04042822)
+    ));
+
+  des_sptrans: array[0..7,0..63] of integer=(
+    (
+    (* nibble 0 *)
+    integer($02080800), integer($00080000), integer($02000002), integer($02080802),
+    integer($02000000), integer($00080802), integer($00080002), integer($02000002),
+    integer($00080802), integer($02080800), integer($02080000), integer($00000802),
+    integer($02000802), integer($02000000), integer($00000000), integer($00080002),
+    integer($00080000), integer($00000002), integer($02000800), integer($00080800),
+    integer($02080802), integer($02080000), integer($00000802), integer($02000800),
+    integer($00000002), integer($00000800), integer($00080800), integer($02080002),
+    integer($00000800), integer($02000802), integer($02080002), integer($00000000),
+    integer($00000000), integer($02080802), integer($02000800), integer($00080002),
+    integer($02080800), integer($00080000), integer($00000802), integer($02000800),
+    integer($02080002), integer($00000800), integer($00080800), integer($02000002),
+    integer($00080802), integer($00000002), integer($02000002), integer($02080000),
+    integer($02080802), integer($00080800), integer($02080000), integer($02000802),
+    integer($02000000), integer($00000802), integer($00080002), integer($00000000),
+    integer($00080000), integer($02000000), integer($02000802), integer($02080800),
+    integer($00000002), integer($02080002), integer($00000800), integer($00080802)
+    ),(
+    (* nibble 1 *)
+    integer($40108010), integer($00000000), integer($00108000), integer($40100000),
+    integer($40000010), integer($00008010), integer($40008000), integer($00108000),
+    integer($00008000), integer($40100010), integer($00000010), integer($40008000),
+    integer($00100010), integer($40108000), integer($40100000), integer($00000010),
+    integer($00100000), integer($40008010), integer($40100010), integer($00008000),
+    integer($00108010), integer($40000000), integer($00000000), integer($00100010),
+    integer($40008010), integer($00108010), integer($40108000), integer($40000010),
+    integer($40000000), integer($00100000), integer($00008010), integer($40108010),
+    integer($00100010), integer($40108000), integer($40008000), integer($00108010),
+    integer($40108010), integer($00100010), integer($40000010), integer($00000000),
+    integer($40000000), integer($00008010), integer($00100000), integer($40100010),
+    integer($00008000), integer($40000000), integer($00108010), integer($40008010),
+    integer($40108000), integer($00008000), integer($00000000), integer($40000010),
+    integer($00000010), integer($40108010), integer($00108000), integer($40100000),
+    integer($40100010), integer($00100000), integer($00008010), integer($40008000),
+    integer($40008010), integer($00000010), integer($40100000), integer($00108000)
+    ),(
+    (* nibble 2 *)
+    integer($04000001), integer($04040100), integer($00000100), integer($04000101),
+    integer($00040001), integer($04000000), integer($04000101), integer($00040100),
+    integer($04000100), integer($00040000), integer($04040000), integer($00000001),
+    integer($04040101), integer($00000101), integer($00000001), integer($04040001),
+    integer($00000000), integer($00040001), integer($04040100), integer($00000100),
+    integer($00000101), integer($04040101), integer($00040000), integer($04000001),
+    integer($04040001), integer($04000100), integer($00040101), integer($04040000),
+    integer($00040100), integer($00000000), integer($04000000), integer($00040101),
+    integer($04040100), integer($00000100), integer($00000001), integer($00040000),
+    integer($00000101), integer($00040001), integer($04040000), integer($04000101),
+    integer($00000000), integer($04040100), integer($00040100), integer($04040001),
+    integer($00040001), integer($04000000), integer($04040101), integer($00000001),
+    integer($00040101), integer($04000001), integer($04000000), integer($04040101),
+    integer($00040000), integer($04000100), integer($04000101), integer($00040100),
+    integer($04000100), integer($00000000), integer($04040001), integer($00000101),
+    integer($04000001), integer($00040101), integer($00000100), integer($04040000)
+    ),(
+    (* nibble 3 *)
+    integer($00401008), integer($10001000), integer($00000008), integer($10401008),
+    integer($00000000), integer($10400000), integer($10001008), integer($00400008),
+    integer($10401000), integer($10000008), integer($10000000), integer($00001008),
+    integer($10000008), integer($00401008), integer($00400000), integer($10000000),
+    integer($10400008), integer($00401000), integer($00001000), integer($00000008),
+    integer($00401000), integer($10001008), integer($10400000), integer($00001000),
+    integer($00001008), integer($00000000), integer($00400008), integer($10401000),
+    integer($10001000), integer($10400008), integer($10401008), integer($00400000),
+    integer($10400008), integer($00001008), integer($00400000), integer($10000008),
+    integer($00401000), integer($10001000), integer($00000008), integer($10400000),
+    integer($10001008), integer($00000000), integer($00001000), integer($00400008),
+    integer($00000000), integer($10400008), integer($10401000), integer($00001000),
+    integer($10000000), integer($10401008), integer($00401008), integer($00400000),
+    integer($10401008), integer($00000008), integer($10001000), integer($00401008),
+    integer($00400008), integer($00401000), integer($10400000), integer($10001008),
+    integer($00001008), integer($10000000), integer($10000008), integer($10401000)
+    ),(
+    (* nibble 4 *)
+    integer($08000000), integer($00010000), integer($00000400), integer($08010420),
+    integer($08010020), integer($08000400), integer($00010420), integer($08010000),
+    integer($00010000), integer($00000020), integer($08000020), integer($00010400),
+    integer($08000420), integer($08010020), integer($08010400), integer($00000000),
+    integer($00010400), integer($08000000), integer($00010020), integer($00000420),
+    integer($08000400), integer($00010420), integer($00000000), integer($08000020),
+    integer($00000020), integer($08000420), integer($08010420), integer($00010020),
+    integer($08010000), integer($00000400), integer($00000420), integer($08010400),
+    integer($08010400), integer($08000420), integer($00010020), integer($08010000),
+    integer($00010000), integer($00000020), integer($08000020), integer($08000400),
+    integer($08000000), integer($00010400), integer($08010420), integer($00000000),
+    integer($00010420), integer($08000000), integer($00000400), integer($00010020),
+    integer($08000420), integer($00000400), integer($00000000), integer($08010420),
+    integer($08010020), integer($08010400), integer($00000420), integer($00010000),
+    integer($00010400), integer($08010020), integer($08000400), integer($00000420),
+    integer($00000020), integer($00010420), integer($08010000), integer($08000020)
+    ),(
+    (* nibble 5 *)
+    integer($80000040), integer($00200040), integer($00000000), integer($80202000),
+    integer($00200040), integer($00002000), integer($80002040), integer($00200000),
+    integer($00002040), integer($80202040), integer($00202000), integer($80000000),
+    integer($80002000), integer($80000040), integer($80200000), integer($00202040),
+    integer($00200000), integer($80002040), integer($80200040), integer($00000000),
+    integer($00002000), integer($00000040), integer($80202000), integer($80200040),
+    integer($80202040), integer($80200000), integer($80000000), integer($00002040),
+    integer($00000040), integer($00202000), integer($00202040), integer($80002000),
+    integer($00002040), integer($80000000), integer($80002000), integer($00202040),
+    integer($80202000), integer($00200040), integer($00000000), integer($80002000),
+    integer($80000000), integer($00002000), integer($80200040), integer($00200000),
+    integer($00200040), integer($80202040), integer($00202000), integer($00000040),
+    integer($80202040), integer($00202000), integer($00200000), integer($80002040),
+    integer($80000040), integer($80200000), integer($00202040), integer($00000000),
+    integer($00002000), integer($80000040), integer($80002040), integer($80202000),
+    integer($80200000), integer($00002040), integer($00000040), integer($80200040)
+    ),(
+    (* nibble 6 *)
+    integer($00004000), integer($00000200), integer($01000200), integer($01000004),
+    integer($01004204), integer($00004004), integer($00004200), integer($00000000),
+    integer($01000000), integer($01000204), integer($00000204), integer($01004000),
+    integer($00000004), integer($01004200), integer($01004000), integer($00000204),
+    integer($01000204), integer($00004000), integer($00004004), integer($01004204),
+    integer($00000000), integer($01000200), integer($01000004), integer($00004200),
+    integer($01004004), integer($00004204), integer($01004200), integer($00000004),
+    integer($00004204), integer($01004004), integer($00000200), integer($01000000),
+    integer($00004204), integer($01004000), integer($01004004), integer($00000204),
+    integer($00004000), integer($00000200), integer($01000000), integer($01004004),
+    integer($01000204), integer($00004204), integer($00004200), integer($00000000),
+    integer($00000200), integer($01000004), integer($00000004), integer($01000200),
+    integer($00000000), integer($01000204), integer($01000200), integer($00004200),
+    integer($00000204), integer($00004000), integer($01004204), integer($01000000),
+    integer($01004200), integer($00000004), integer($00004004), integer($01004204),
+    integer($01000004), integer($01004200), integer($01004000), integer($00004004)
+    ),(
+    (* nibble 7 *)
+    integer($20800080), integer($20820000), integer($00020080), integer($00000000),
+    integer($20020000), integer($00800080), integer($20800000), integer($20820080),
+    integer($00000080), integer($20000000), integer($00820000), integer($00020080),
+    integer($00820080), integer($20020080), integer($20000080), integer($20800000),
+    integer($00020000), integer($00820080), integer($00800080), integer($20020000),
+    integer($20820080), integer($20000080), integer($00000000), integer($00820000),
+    integer($20000000), integer($00800000), integer($20020080), integer($20800080),
+    integer($00800000), integer($00020000), integer($20820000), integer($00000080),
+    integer($00800000), integer($00020000), integer($20000080), integer($20820080),
+    integer($00020080), integer($20000000), integer($00000000), integer($00820000),
+    integer($20800080), integer($20020080), integer($20020000), integer($00800080),
+    integer($20820000), integer($00000080), integer($00800080), integer($20020000),
+    integer($20820080), integer($00800000), integer($20800000), integer($20000080),
+    integer($00820000), integer($00020080), integer($20020080), integer($20800000),
+    integer($00000080), integer($20820000), integer($00820080), integer($00000000),
+    integer($20000000), integer($20800080), integer($00020000), integer($00820080)
+    ));
+
+{==============================================================================}
+
+function XorString(Indata1, Indata2: AnsiString): AnsiString;
+var
+  i: integer;
+begin
+  Indata2 := PadString(Indata2, length(Indata1), #0);
+  Result := '';
+  for i := 1 to length(Indata1) do
+    Result := Result + AnsiChar(ord(Indata1[i]) xor ord(Indata2[i]));
+end;
+
+procedure hperm_op(var a, t: integer; n, m: integer);
+begin
+  t:= ((a shl (16 - n)) xor a) and m;
+  a:= a xor t xor (t shr (16 - n));
+end;
+
+procedure perm_op(var a, b, t: integer; n, m: integer);
+begin
+  t:= ((a shr n) xor b) and m;
+  b:= b xor t;
+  a:= a xor (t shl n);
+end;
+
+{==============================================================================}
+procedure TSynaBlockCipher.IncCounter;
+var
+  i: integer;
+begin
+  Inc(CV[8]);
+  i:= 7;
+  while (i> 0) and (CV[i + 1] = #0) do
+  begin
+    Inc(CV[i]);
+    Dec(i);
+  end;
+end;
+
+procedure TSynaBlockCipher.Reset;
+begin
+  CV := IV;
+end;
+
+procedure TSynaBlockCipher.InitKey(Key: AnsiString);
+begin
+end;
+
+procedure TSynaBlockCipher.SetIV(const Value: AnsiString);
+begin
+  IV := PadString(Value, 8, #0);
+  Reset;
+end;
+
+function TSynaBlockCipher.GetIV: AnsiString;
+begin
+  Result := CV;
+end;
+
+function TSynaBlockCipher.EncryptECB(const InData: AnsiString): AnsiString;
+begin
+  Result := InData;
+end;
+
+function TSynaBlockCipher.DecryptECB(const InData: AnsiString): AnsiString;
+begin
+  Result := InData;
+end;
+
+function TSynaBlockCipher.EncryptCBC(const Indata: AnsiString): AnsiString;
+var
+  i: integer;
+  s: ansistring;
+  l: integer;
+begin
+  Result := '';
+  l := Length(InData);
+  for i:= 1 to (l div 8) do
+  begin
+    s := copy(Indata, (i - 1) * 8 + 1, 8);
+    s := XorString(s, CV);
+    s := EncryptECB(s);
+    CV := s;
+    Result := Result + s;
+  end;
+  if (l mod 8)<> 0 then
+  begin
+    CV := EncryptECB(CV);
+    s := copy(Indata, (l div 8) * 8 + 1, l mod 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+  end;
+end;
+
+function TSynaBlockCipher.DecryptCBC(const Indata: AnsiString): AnsiString;
+var
+  i: integer;
+  s, temp: ansistring;
+  l: integer;
+begin
+  Result := '';
+  l := Length(InData);
+  for i:= 1 to (l div 8) do
+  begin
+    s := copy(Indata, (i - 1) * 8 + 1, 8);
+    temp := s;
+    s := DecryptECB(s);
+    s := XorString(s, CV);
+    Result := Result + s;
+    CV := Temp;
+  end;
+  if (l mod 8)<> 0 then
+  begin
+    CV := EncryptECB(CV);
+    s := copy(Indata, (l div 8) * 8 + 1, l mod 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+  end;
+end;
+
+function TSynaBlockCipher.EncryptCFB8bit(const Indata: AnsiString): AnsiString;
+var
+  i: integer;
+  Temp: AnsiString;
+  c: AnsiChar;
+begin
+  Result := '';
+  for i:= 1 to Length(Indata) do
+  begin
+    Temp := EncryptECB(CV);
+    c := AnsiChar(ord(InData[i]) xor ord(temp[1]));
+    Result := Result + c;
+    Delete(CV, 1, 1);
+    CV := CV + c;
+  end;
+end;
+
+function TSynaBlockCipher.DecryptCFB8bit(const Indata: AnsiString): AnsiString;
+var
+  i: integer;
+  Temp: AnsiString;
+  c: AnsiChar;
+begin
+  Result := '';
+  for i:= 1 to length(Indata) do
+  begin
+    c:= Indata[i];
+    Temp := EncryptECB(CV);
+    Result := Result + AnsiChar(ord(InData[i]) xor ord(temp[1]));
+    Delete(CV, 1, 1);
+    CV := CV + c;
+  end;
+end;
+
+function TSynaBlockCipher.EncryptCFBblock(const Indata: AnsiString): AnsiString;
+var
+  i: integer;
+  s: AnsiString;
+  l: integer;
+begin
+  Result := '';
+  l := Length(InData);
+  for i:= 1 to (l div 8) do
+  begin
+    CV := EncryptECB(CV);
+    s := copy(Indata, (i - 1) * 8 + 1, 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+    CV := s;
+  end;
+  if (l mod 8)<> 0 then
+  begin
+    CV := EncryptECB(CV);
+    s := copy(Indata, (l div 8) * 8 + 1, l mod 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+  end;
+end;
+
+function TSynaBlockCipher.DecryptCFBblock(const Indata: AnsiString): AnsiString;
+var
+  i: integer;
+  S, Temp: AnsiString;
+  l: integer;
+begin
+  Result := '';
+  l := Length(InData);
+  for i:= 1 to (l div 8) do
+  begin
+    s := copy(Indata, (i - 1) * 8 + 1, 8);
+    Temp := s;
+    CV := EncryptECB(CV);
+    s := XorString(s, CV);
+    Result := result + s;
+    CV := temp;
+  end;
+  if (l mod 8)<> 0 then
+  begin
+    CV := EncryptECB(CV);
+    s := copy(Indata, (l div 8) * 8 + 1, l mod 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+  end;
+end;
+
+function TSynaBlockCipher.EncryptOFB(const Indata: AnsiString): AnsiString;
+var
+  i: integer;
+  s: AnsiString;
+  l: integer;
+begin
+  Result := '';
+  l := Length(InData);
+  for i:= 1 to (l div 8) do
+  begin
+    CV := EncryptECB(CV);
+    s := copy(Indata, (i - 1) * 8 + 1, 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+  end;
+  if (l mod 8)<> 0 then
+  begin
+    CV := EncryptECB(CV);
+    s := copy(Indata, (l div 8) * 8 + 1, l mod 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+  end;
+end;
+
+function TSynaBlockCipher.DecryptOFB(const Indata: AnsiString): AnsiString;
+var
+  i: integer;
+  s: AnsiString;
+  l: integer;
+begin
+  Result := '';
+  l := Length(InData);
+  for i:= 1 to (l div 8) do
+  begin
+    Cv := EncryptECB(CV);
+    s := copy(Indata, (i - 1) * 8 + 1, 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+  end;
+  if (l mod 8)<> 0 then
+  begin
+    CV := EncryptECB(CV);
+    s := copy(Indata, (l div 8) * 8 + 1, l mod 8);
+    s := XorString(s, CV);
+    Result := Result + s;
+  end;
+end;
+
+function TSynaBlockCipher.EncryptCTR(const Indata: AnsiString): AnsiString;
+var
+  temp: AnsiString;
+  i: integer;
+  s: AnsiString;
+  l: integer;
+begin
+  Result := '';
+  l := Length(InData);
+  for i:= 1 to (l div 8) do
+  begin
+    temp := EncryptECB(CV);
+    IncCounter;
+    s := copy(Indata, (i - 1) * 8 + 1, 8);
+    s := XorString(s, temp);
+    Result := Result + s;
+  end;
+  if (l mod 8)<> 0 then
+  begin
+    temp := EncryptECB(CV);
+    IncCounter;
+    s := copy(Indata, (l div 8) * 8 + 1, l mod 8);
+    s := XorString(s, temp);
+    Result := Result + s;
+  end;
+end;
+
+function TSynaBlockCipher.DecryptCTR(const Indata: AnsiString): AnsiString;
+var
+  temp: AnsiString;
+  s: AnsiString;
+  i: integer;
+  l: integer;
+begin
+  Result := '';
+  l := Length(InData);
+  for i:= 1 to (l div 8) do
+  begin
+    temp := EncryptECB(CV);
+    IncCounter;
+    s := copy(Indata, (i - 1) * 8 + 1, 8);
+    s := XorString(s, temp);
+    Result := Result + s;
+  end;
+  if (l mod 8)<> 0 then
+  begin
+    temp := EncryptECB(CV);
+    IncCounter;
+    s := copy(Indata, (l div 8) * 8 + 1, l mod 8);
+    s := XorString(s, temp);
+    Result := Result + s;
+  end;
+end;
+
+constructor TSynaBlockCipher.Create(Key: AnsiString);
+begin
+  inherited Create;
+  InitKey(Key);
+  IV := StringOfChar(#0, 8);
+  IV := EncryptECB(IV);
+  Reset;
+end;
+
+{==============================================================================}
+
+procedure TSynaCustomDes.DoInit(KeyB: AnsiString; var KeyData: TDesKeyData);
+var
+  c, d, t, s, t2, i: integer;
+begin
+  KeyB := PadString(KeyB, 8, #0);
+  c:= ord(KeyB[1]) or (ord(KeyB[2]) shl 8) or (ord(KeyB[3]) shl 16) or (ord(KeyB[4]) shl 24);
+  d:= ord(KeyB[5]) or (ord(KeyB[6]) shl 8) or (ord(KeyB[7]) shl 16) or (ord(KeyB[8]) shl 24);
+  perm_op(d,c,t,4,integer($0f0f0f0f));
+  hperm_op(c,t,integer(-2),integer($cccc0000));
+  hperm_op(d,t,integer(-2),integer($cccc0000));
+  perm_op(d,c,t,1,integer($55555555));
+  perm_op(c,d,t,8,integer($00ff00ff));
+  perm_op(d,c,t,1,integer($55555555));
+  d:= ((d and $ff) shl 16) or (d and $ff00) or ((d and $ff0000) shr 16) or
+        ((c and integer($f0000000)) shr 4);
+  c:= c and $fffffff;
+  for i:= 0 to 15 do
+  begin
+    if shifts2[i]<> 0 then
+    begin
+      c:= ((c shr 2) or (c shl 26));
+      d:= ((d shr 2) or (d shl 26));
+    end
+    else
+    begin
+      c:= ((c shr 1) or (c shl 27));
+      d:= ((d shr 1) or (d shl 27));
+    end;
+    c:= c and $fffffff;
+    d:= d and $fffffff;
+    s:= des_skb[0,c and $3f] or
+        des_skb[1,((c shr  6) and $03) or ((c shr  7) and $3c)] or
+        des_skb[2,((c shr 13) and $0f) or ((c shr 14) and $30)] or
+        des_skb[3,((c shr 20) and $01) or ((c shr 21) and $06) or ((c shr 22) and $38)];
+    t:= des_skb[4,d and $3f] or
+        des_skb[5,((d shr  7) and $03) or ((d shr  8) and $3c)] or
+        des_skb[6, (d shr 15) and $3f                         ] or
+        des_skb[7,((d shr 21) and $0f) or ((d shr 22) and $30)];
+    t2:= ((t shl 16) or (s and $ffff));
+    KeyData[(i shl 1)]:= ((t2 shl 2) or (t2 shr 30));
+    t2:= ((s shr 16) or (t and integer($ffff0000)));
+    KeyData[(i shl 1)+1]:= ((t2 shl 6) or (t2 shr 26));
+  end;
+end;
+
+function TSynaCustomDes.EncryptBlock(const InData: AnsiString; var KeyData: TDesKeyData): AnsiString;
+var
+  l, r, t, u: integer;
+  i: longint;
+begin
+  r := Swapbytes(DecodeLongint(Indata, 1));
+  l := swapbytes(DecodeLongint(Indata, 5));
+  t:= ((l shr 4) xor r) and $0f0f0f0f;
+  r:= r xor t;
+  l:= l xor (t shl 4);
+  t:= ((r shr 16) xor l) and $0000ffff;
+  l:= l xor t;
+  r:= r xor (t shl 16);
+  t:= ((l shr 2) xor r) and $33333333;
+  r:= r xor t;
+  l:= l xor (t shl 2);
+  t:= ((r shr 8) xor l) and $00ff00ff;
+  l:= l xor t;
+  r:= r xor (t shl 8);
+  t:= ((l shr 1) xor r) and $55555555;
+  r:= r xor t;
+  l:= l xor (t shl 1);
+  r:= (r shr 29) or (r shl 3);
+  l:= (l shr 29) or (l shl 3);
+  i:= 0;
+  while i< 32 do
+  begin
+    u:= r xor KeyData[i  ];
+    t:= r xor KeyData[i+1];
+    t:= (t shr 4) or (t shl 28);
+    l:= l xor des_SPtrans[0,(u shr  2) and $3f] xor
+              des_SPtrans[2,(u shr 10) and $3f] xor
+              des_SPtrans[4,(u shr 18) and $3f] xor
+              des_SPtrans[6,(u shr 26) and $3f] xor
+              des_SPtrans[1,(t shr  2) and $3f] xor
+              des_SPtrans[3,(t shr 10) and $3f] xor
+              des_SPtrans[5,(t shr 18) and $3f] xor
+              des_SPtrans[7,(t shr 26) and $3f];
+    u:= l xor KeyData[i+2];
+    t:= l xor KeyData[i+3];
+    t:= (t shr 4) or (t shl 28);
+    r:= r xor des_SPtrans[0,(u shr  2) and $3f] xor
+              des_SPtrans[2,(u shr 10) and $3f] xor
+              des_SPtrans[4,(u shr 18) and $3f] xor
+              des_SPtrans[6,(u shr 26) and $3f] xor
+              des_SPtrans[1,(t shr  2) and $3f] xor
+              des_SPtrans[3,(t shr 10) and $3f] xor
+              des_SPtrans[5,(t shr 18) and $3f] xor
+              des_SPtrans[7,(t shr 26) and $3f];
+    u:= r xor KeyData[i+4];
+    t:= r xor KeyData[i+5];
+    t:= (t shr 4) or (t shl 28);
+    l:= l xor des_SPtrans[0,(u shr  2) and $3f] xor
+              des_SPtrans[2,(u shr 10) and $3f] xor
+              des_SPtrans[4,(u shr 18) and $3f] xor
+              des_SPtrans[6,(u shr 26) and $3f] xor
+              des_SPtrans[1,(t shr  2) and $3f] xor
+              des_SPtrans[3,(t shr 10) and $3f] xor
+              des_SPtrans[5,(t shr 18) and $3f] xor
+              des_SPtrans[7,(t shr 26) and $3f];
+    u:= l xor KeyData[i+6];
+    t:= l xor KeyData[i+7];
+    t:= (t shr 4) or (t shl 28);
+    r:= r xor des_SPtrans[0,(u shr  2) and $3f] xor
+              des_SPtrans[2,(u shr 10) and $3f] xor
+              des_SPtrans[4,(u shr 18) and $3f] xor
+              des_SPtrans[6,(u shr 26) and $3f] xor
+              des_SPtrans[1,(t shr  2) and $3f] xor
+              des_SPtrans[3,(t shr 10) and $3f] xor
+              des_SPtrans[5,(t shr 18) and $3f] xor
+              des_SPtrans[7,(t shr 26) and $3f];
+    Inc(i,8);
+  end;
+  r:= (r shr 3) or (r shl 29);
+  l:= (l shr 3) or (l shl 29);
+  t:= ((r shr 1) xor l) and $55555555;
+  l:= l xor t;
+  r:= r xor (t shl 1);
+  t:= ((l shr 8) xor r) and $00ff00ff;
+  r:= r xor t;
+  l:= l xor (t shl 8);
+  t:= ((r shr 2) xor l) and $33333333;
+  l:= l xor t;
+  r:= r xor (t shl 2);
+  t:= ((l shr 16) xor r) and $0000ffff;
+  r:= r xor t;
+  l:= l xor (t shl 16);
+  t:= ((r shr 4) xor l) and $0f0f0f0f;
+  l:= l xor t;
+  r:= r xor (t shl 4);
+  Result := CodeLongInt(Swapbytes(l)) + CodeLongInt(Swapbytes(r));
+end;
+
+function TSynaCustomDes.DecryptBlock(const InData: AnsiString; var KeyData: TDesKeyData): AnsiString;
+var
+  l, r, t, u: integer;
+  i: longint;
+begin
+  r := Swapbytes(DecodeLongint(Indata, 1));
+  l := Swapbytes(DecodeLongint(Indata, 5));
+  t:= ((l shr 4) xor r) and $0f0f0f0f;
+  r:= r xor t;
+  l:= l xor (t shl 4);
+  t:= ((r shr 16) xor l) and $0000ffff;
+  l:= l xor t;
+  r:= r xor (t shl 16);
+  t:= ((l shr 2) xor r) and $33333333;
+  r:= r xor t;
+  l:= l xor (t shl 2);
+  t:= ((r shr 8) xor l) and $00ff00ff;
+  l:= l xor t;
+  r:= r xor (t shl 8);
+  t:= ((l shr 1) xor r) and $55555555;
+  r:= r xor t;
+  l:= l xor (t shl 1);
+  r:= (r shr 29) or (r shl 3);
+  l:= (l shr 29) or (l shl 3);
+  i:= 30;
+  while i> 0 do
+  begin
+    u:= r xor KeyData[i  ];
+    t:= r xor KeyData[i+1];
+    t:= (t shr 4) or (t shl 28);
+    l:= l xor des_SPtrans[0,(u shr  2) and $3f] xor
+              des_SPtrans[2,(u shr 10) and $3f] xor
+              des_SPtrans[4,(u shr 18) and $3f] xor
+              des_SPtrans[6,(u shr 26) and $3f] xor
+              des_SPtrans[1,(t shr  2) and $3f] xor
+              des_SPtrans[3,(t shr 10) and $3f] xor
+              des_SPtrans[5,(t shr 18) and $3f] xor
+              des_SPtrans[7,(t shr 26) and $3f];
+    u:= l xor KeyData[i-2];
+    t:= l xor KeyData[i-1];
+    t:= (t shr 4) or (t shl 28);
+    r:= r xor des_SPtrans[0,(u shr  2) and $3f] xor
+              des_SPtrans[2,(u shr 10) and $3f] xor
+              des_SPtrans[4,(u shr 18) and $3f] xor
+              des_SPtrans[6,(u shr 26) and $3f] xor
+              des_SPtrans[1,(t shr  2) and $3f] xor
+              des_SPtrans[3,(t shr 10) and $3f] xor
+              des_SPtrans[5,(t shr 18) and $3f] xor
+              des_SPtrans[7,(t shr 26) and $3f];
+    u:= r xor KeyData[i-4];
+    t:= r xor KeyData[i-3];
+    t:= (t shr 4) or (t shl 28);
+    l:= l xor des_SPtrans[0,(u shr  2) and $3f] xor
+              des_SPtrans[2,(u shr 10) and $3f] xor
+              des_SPtrans[4,(u shr 18) and $3f] xor
+              des_SPtrans[6,(u shr 26) and $3f] xor
+              des_SPtrans[1,(t shr  2) and $3f] xor
+              des_SPtrans[3,(t shr 10) and $3f] xor
+              des_SPtrans[5,(t shr 18) and $3f] xor
+              des_SPtrans[7,(t shr 26) and $3f];
+    u:= l xor KeyData[i-6];
+    t:= l xor KeyData[i-5];
+    t:= (t shr 4) or (t shl 28);
+    r:= r xor des_SPtrans[0,(u shr  2) and $3f] xor
+              des_SPtrans[2,(u shr 10) and $3f] xor
+              des_SPtrans[4,(u shr 18) and $3f] xor
+              des_SPtrans[6,(u shr 26) and $3f] xor
+              des_SPtrans[1,(t shr  2) and $3f] xor
+              des_SPtrans[3,(t shr 10) and $3f] xor
+              des_SPtrans[5,(t shr 18) and $3f] xor
+              des_SPtrans[7,(t shr 26) and $3f];
+    Dec(i,8);
+  end;
+  r:= (r shr 3) or (r shl 29);
+  l:= (l shr 3) or (l shl 29);
+  t:= ((r shr 1) xor l) and $55555555;
+  l:= l xor t;
+  r:= r xor (t shl 1);
+  t:= ((l shr 8) xor r) and $00ff00ff;
+  r:= r xor t;
+  l:= l xor (t shl 8);
+  t:= ((r shr 2) xor l) and $33333333;
+  l:= l xor t;
+  r:= r xor (t shl 2);
+  t:= ((l shr 16) xor r) and $0000ffff;
+  r:= r xor t;
+  l:= l xor (t shl 16);
+  t:= ((r shr 4) xor l) and $0f0f0f0f;
+  l:= l xor t;
+  r:= r xor (t shl 4);
+  Result := CodeLongInt(Swapbytes(l)) + CodeLongInt(Swapbytes(r));
+end;
+
+{==============================================================================}
+
+procedure TSynaDes.InitKey(Key: AnsiString);
+begin
+  Key := PadString(Key, 8, #0);
+  DoInit(Key,KeyData);
+end;
+
+function TSynaDes.EncryptECB(const InData: AnsiString): AnsiString;
+begin
+  Result := EncryptBlock(InData,KeyData);
+end;
+
+function TSynaDes.DecryptECB(const InData: AnsiString): AnsiString;
+begin
+  Result := DecryptBlock(Indata,KeyData);
+end;
+
+{==============================================================================}
+
+procedure TSyna3Des.InitKey(Key: AnsiString);
+var
+  Size: integer;
+  n: integer;
+begin
+  Size := length(Key);
+  key := PadString(key, 3 * 8, #0);
+  DoInit(Copy(key, 1, 8),KeyData[0]);
+  DoInit(Copy(key, 9, 8),KeyData[1]);
+  if Size > 16 then
+    DoInit(Copy(key, 17, 8),KeyData[2])
+  else
+    for n := 0 to high(KeyData[0]) do
+      KeyData[2][n] := Keydata[0][n];
+end;
+
+function TSyna3Des.EncryptECB(const InData: AnsiString): AnsiString;
+begin
+  Result := EncryptBlock(Indata,KeyData[0]);
+  Result := DecryptBlock(Result,KeyData[1]);
+  Result := EncryptBlock(Result,KeyData[2]);
+end;
+
+function TSyna3Des.DecryptECB(const InData: AnsiString): AnsiString;
+begin
+  Result := DecryptBlock(InData,KeyData[2]);
+  Result := EncryptBlock(Result,KeyData[1]);
+  Result := DecryptBlock(Result,KeyData[0]);
+end;
+
+{==============================================================================}
+
+function TestDes: boolean;
+var
+  des: TSynaDes;
+  s, t: string;
+const
+  key = '01234567';
+  data1= '01234567';
+  data2= '0123456789abcdefghij';
+begin
+  //ECB
+  des := TSynaDes.Create(key);
+  try
+    s := des.EncryptECB(data1);
+    t := strtohex(s);
+    result := t = 'c50ad028c6da9800';
+    s := des.DecryptECB(s);
+    result := result and (data1 = s);
+  finally
+    des.free;
+  end;
+  //CBC
+  des := TSynaDes.Create(key);
+  try
+    s := des.EncryptCBC(data2);
+    t := strtohex(s);
+    result := result and (t = 'eec50f6353115ad6dee90a22ed1b6a88a0926e35');
+    des.Reset;
+    s := des.DecryptCBC(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+  //CFB-8bit
+  des := TSynaDes.Create(key);
+  try
+    s := des.EncryptCFB8bit(data2);
+    t := strtohex(s);
+    result := result and (t = 'eb6aa12c2f0ff634b4dfb6da6cb2af8f9c5c1452');
+    des.Reset;
+    s := des.DecryptCFB8bit(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+  //CFB-block
+  des := TSynaDes.Create(key);
+  try
+    s := des.EncryptCFBblock(data2);
+    t := strtohex(s);
+    result := result and (t = 'ebdbbaa7f9286cdec28605e07f9b7f3be1053257');
+    des.Reset;
+    s := des.DecryptCFBblock(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+  //OFB
+  des := TSynaDes.Create(key);
+  try
+    s := des.EncryptOFB(data2);
+    t := strtohex(s);
+    result := result and (t = 'ebdbbaa7f9286cdee0b8b3798c4c34baac87dbdc');
+    des.Reset;
+    s := des.DecryptOFB(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+  //CTR
+  des := TSynaDes.Create(key);
+  try
+    s := des.EncryptCTR(data2);
+    t := strtohex(s);
+    result := result and (t = 'ebdbbaa7f9286cde0dd20b45f3afd9aa1b91b87e');
+    des.Reset;
+    s := des.DecryptCTR(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+end;
+
+function Test3Des: boolean;
+var
+  des: TSyna3Des;
+  s, t: string;
+const
+  key = '0123456789abcdefghijklmn';
+  data1= '01234567';
+  data2= '0123456789abcdefghij';
+begin
+  //ECB
+  des := TSyna3Des.Create(key);
+  try
+    s := des.EncryptECB(data1);
+    t := strtohex(s);
+    result := t = 'e0dee91008dc460c';
+    s := des.DecryptECB(s);
+    result := result and (data1 = s);
+  finally
+    des.free;
+  end;
+  //CBC
+  des := TSyna3Des.Create(key);
+  try
+    s := des.EncryptCBC(data2);
+    t := strtohex(s);
+    result := result and (t = 'ee844a2a4f49c01b91a1599b8eba29128c1ad87a');
+    des.Reset;
+    s := des.DecryptCBC(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+  //CFB-8bit
+  des := TSyna3Des.Create(key);
+  try
+    s := des.EncryptCFB8bit(data2);
+    t := strtohex(s);
+    result := result and (t = '935bbf5210c32cfa1faf61f91e8dc02dfa0ff1e8');
+    des.Reset;
+    s := des.DecryptCFB8bit(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+  //CFB-block
+  des := TSyna3Des.Create(key);
+  try
+    s := des.EncryptCFBblock(data2);
+    t := strtohex(s);
+    result := result and (t = '93754e3d54828fbf4bd81f1739419e8d2cfe1671');
+    des.Reset;
+    s := des.DecryptCFBblock(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+  //OFB
+  des := TSyna3Des.Create(key);
+  try
+    s := des.EncryptOFB(data2);
+    t := strtohex(s);
+    result := result and (t = '93754e3d54828fbf04ef0a5efc926ebdf2d95f20');
+    des.Reset;
+    s := des.DecryptOFB(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+  //CTR
+  des := TSyna3Des.Create(key);
+  try
+    s := des.EncryptCTR(data2);
+    t := strtohex(s);
+    result := result and (t = '93754e3d54828fbf1c51a121d2c93f989e70b3ad');
+    des.Reset;
+    s := des.DecryptCTR(s);
+    result := result and (data2 = s);
+  finally
+    des.free;
+  end;
+end;
+
+{==============================================================================}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synadbg.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synadbg.pas
new file mode 100644
index 0000000..ef84626
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synadbg.pas	
@@ -0,0 +1,152 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.000 |
+|==============================================================================|
+| Content: Socket debug tools                                                  |
+|==============================================================================|
+| Copyright (c)2008, Lukas Gebauer                                             |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2008.                     |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(Socket debug tools)
+
+Routines for help with debugging of events on the Sockets.
+}
+
+
+unit synadbg;
+
+interface
+
+uses
+  blcksock, synsock, synautil, classes, sysutils;
+
+type
+  TSynaDebug = class(TObject)
+    class procedure HookStatus(Sender: TObject; Reason: THookSocketReason; const Value: string);
+    class procedure HookMonitor(Sender: TObject; Writing: Boolean; const Buffer: TMemory; Len: Integer);
+  end;
+
+procedure AppendToLog(const value: Ansistring);
+
+var
+  LogFile: string;
+
+implementation
+
+procedure AppendToLog(const value: Ansistring);
+var
+  st: TFileStream;
+  s: string;
+  h, m, ss, ms: word;
+  dt: Tdatetime;
+begin
+  if fileexists(LogFile) then
+    st := TFileStream.Create(LogFile, fmOpenReadWrite or fmShareDenyWrite)
+  else
+    st := TFileStream.Create(LogFile, fmCreate or fmShareDenyWrite);
+  try
+    st.Position := st.Size;
+    dt := now;
+    decodetime(dt, h, m, ss, ms);
+    s := formatdatetime('yyyymmdd-hhnnss', dt) + format('.%.3d', [ms]) + ' ' + value;
+    WriteStrToStream(st, s);
+  finally
+    st.free;
+  end;
+end;
+
+class procedure TSynaDebug.HookStatus(Sender: TObject; Reason: THookSocketReason; const Value: string);
+var
+  s: string;
+begin
+  case Reason of
+    HR_ResolvingBegin:
+      s := 'HR_ResolvingBegin';
+    HR_ResolvingEnd:
+      s := 'HR_ResolvingEnd';
+    HR_SocketCreate:
+      s := 'HR_SocketCreate';
+    HR_SocketClose:
+      s := 'HR_SocketClose';
+    HR_Bind:
+      s := 'HR_Bind';
+    HR_Connect:
+      s := 'HR_Connect';
+    HR_CanRead:
+      s := 'HR_CanRead';
+    HR_CanWrite:
+      s := 'HR_CanWrite';
+    HR_Listen:
+      s := 'HR_Listen';
+    HR_Accept:
+      s := 'HR_Accept';
+    HR_ReadCount:
+      s := 'HR_ReadCount';
+    HR_WriteCount:
+      s := 'HR_WriteCount';
+    HR_Wait:
+      s := 'HR_Wait';
+    HR_Error:
+      s := 'HR_Error';
+  else
+    s := '-unknown-';
+  end;
+  s := inttohex(integer(Sender), 8) + s + ': ' + value + CRLF;
+  AppendToLog(s);
+end;
+
+class procedure TSynaDebug.HookMonitor(Sender: TObject; Writing: Boolean; const Buffer: TMemory; Len: Integer);
+var
+  s, d: Ansistring;
+begin
+  setlength(s, len);
+  move(Buffer^, pointer(s)^, len);
+  if writing then
+    d := '-> '
+  else
+    d := '<- ';
+  s :=inttohex(integer(Sender), 8) + d + s + CRLF;
+  AppendToLog(s);
+end;
+
+initialization
+begin
+  Logfile := changefileext(paramstr(0), '.slog');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synafpc.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synafpc.pas
new file mode 100644
index 0000000..457d858
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synafpc.pas	
@@ -0,0 +1,132 @@
+{$IFDEF WIN64}{$DEFINE WIN32}{$ENDIF}
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.001 |
+|==============================================================================|
+| Content: Utils for FreePascal compatibility                                  |
+|==============================================================================|
+| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2003-2007.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@exclude}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit synafpc;
+
+interface
+
+uses
+{$IFDEF FPC}
+  dynlibs, sysutils;
+{$ELSE}
+  {$IFDEF WIN32}
+  Windows;
+  {$ELSE}
+  SysUtils;
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF FPC}
+type
+  TLibHandle = dynlibs.TLibHandle;
+  
+function LoadLibrary(ModuleName: PChar): TLibHandle;
+function FreeLibrary(Module: TLibHandle): LongBool;
+function GetProcAddress(Module: TLibHandle; Proc: PChar): Pointer;
+function GetModuleFileName(Module: TLibHandle; Buffer: PChar; BufLen: Integer): Integer;
+{$ELSE}
+type
+  {$IFDEF CIL}
+  TLibHandle = Integer;
+  {$ELSE}
+  TLibHandle = HModule;
+  {$ENDIF}
+  {$IFDEF VER100}
+  LongWord = DWord;
+  {$ENDIF}
+{$ENDIF}
+
+procedure Sleep(milliseconds: Cardinal);
+
+
+implementation
+
+{==============================================================================}
+{$IFDEF FPC}
+function LoadLibrary(ModuleName: PChar): TLibHandle;
+begin
+  Result := dynlibs.LoadLibrary(Modulename);
+end;
+
+function FreeLibrary(Module: TLibHandle): LongBool;
+begin
+  Result := dynlibs.UnloadLibrary(Module);
+end;
+
+function GetProcAddress(Module: TLibHandle; Proc: PChar): Pointer;
+begin
+  Result := dynlibs.GetProcedureAddress(Module, Proc);
+end;
+
+function GetModuleFileName(Module: TLibHandle; Buffer: PChar; BufLen: Integer): Integer;
+begin
+  Result := 0;
+end;
+
+{$ELSE}
+{$ENDIF}
+
+procedure Sleep(milliseconds: Cardinal);
+begin
+{$IFDEF WIN32}
+  {$IFDEF FPC}
+  sysutils.sleep(milliseconds);
+  {$ELSE}
+  windows.sleep(milliseconds);
+  {$ENDIF}
+{$ELSE}
+  sysutils.sleep(milliseconds);
+{$ENDIF}
+
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaicnv.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaicnv.pas
new file mode 100644
index 0000000..8d01b74
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaicnv.pas	
@@ -0,0 +1,357 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.001.000 |
+|==============================================================================|
+| Content: ICONV support for Win32, Linux and .NET                             |
+|==============================================================================|
+| Copyright (c)2004-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2004-2008.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+{:@abstract(LibIconv support)
+
+This unit is Pascal interface to LibIconv library for charset translations.
+LibIconv is loaded dynamicly on-demand. If this library is not found in system,
+requested LibIconv function just return errorcode.
+}
+unit synaicnv;
+
+interface
+
+uses
+{$IFDEF CIL}
+  System.Runtime.InteropServices,
+  System.Text,
+{$ENDIF}
+  synafpc,
+{$IFNDEF WIN32}
+  {$IFNDEF FPC}
+  Libc,
+  {$ENDIF}
+  SysUtils;
+{$ELSE}
+  Windows;
+{$ENDIF}
+
+
+const
+  {$IFNDEF WIN32}
+  DLLIconvName = 'libiconv.so';
+  {$ELSE}
+  DLLIconvName = 'iconv.dll';
+  {$ENDIF}
+
+type
+  size_t = Cardinal;
+{$IFDEF CIL}
+  iconv_t = IntPtr;
+{$ELSE}
+  iconv_t = Pointer;
+{$ENDIF}
+  argptr = iconv_t;
+
+var
+  iconvLibHandle: TLibHandle = 0;
+
+function SynaIconvOpen(const tocode, fromcode: Ansistring): iconv_t;
+function SynaIconvOpenTranslit(const tocode, fromcode: Ansistring): iconv_t;
+function SynaIconvOpenIgnore(const tocode, fromcode: Ansistring): iconv_t;
+function SynaIconv(cd: iconv_t; inbuf: AnsiString; var outbuf: AnsiString): integer;
+function SynaIconvClose(var cd: iconv_t): integer;
+function SynaIconvCtl(cd: iconv_t; request: integer; argument: argptr): integer;
+
+function IsIconvloaded: Boolean;
+function InitIconvInterface: Boolean;
+function DestroyIconvInterface: Boolean;
+
+const
+  ICONV_TRIVIALP          = 0;  // int *argument
+  ICONV_GET_TRANSLITERATE = 1;  // int *argument
+  ICONV_SET_TRANSLITERATE = 2;  // const int *argument
+  ICONV_GET_DISCARD_ILSEQ = 3;  // int *argument
+  ICONV_SET_DISCARD_ILSEQ = 4;  // const int *argument
+
+
+implementation
+
+uses SyncObjs;
+
+{$IFDEF CIL}
+  [DllImport(DLLIconvName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'libiconv_open')]
+    function _iconv_open(tocode: string; fromcode: string): iconv_t; external;
+
+  [DllImport(DLLIconvName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'libiconv')]
+    function _iconv(cd: iconv_t; var inbuf: IntPtr; var inbytesleft: size_t;
+    var outbuf: IntPtr; var outbytesleft: size_t): size_t; external;
+
+  [DllImport(DLLIconvName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'libiconv_close')]
+    function _iconv_close(cd: iconv_t): integer; external;
+
+  [DllImport(DLLIconvName, CharSet = CharSet.Ansi,
+    SetLastError = False, CallingConvention= CallingConvention.cdecl,
+    EntryPoint = 'libiconvctl')]
+    function _iconvctl(cd: iconv_t; request: integer; argument: argptr): integer; external;
+
+{$ELSE}
+type
+  Ticonv_open = function(tocode: pAnsichar; fromcode: pAnsichar): iconv_t; cdecl;
+  Ticonv = function(cd: iconv_t; var inbuf: pointer; var inbytesleft: size_t;
+    var outbuf: pointer; var outbytesleft: size_t): size_t; cdecl;
+  Ticonv_close = function(cd: iconv_t): integer; cdecl;
+  Ticonvctl = function(cd: iconv_t; request: integer; argument: argptr): integer; cdecl;
+var
+  _iconv_open: Ticonv_open = nil;
+  _iconv: Ticonv = nil;
+  _iconv_close: Ticonv_close = nil;
+  _iconvctl: Ticonvctl = nil;
+{$ENDIF}
+
+
+var
+  IconvCS: TCriticalSection;
+  Iconvloaded: boolean = false;
+
+function SynaIconvOpen (const tocode, fromcode: Ansistring): iconv_t;
+begin
+{$IFDEF CIL}
+  try
+    Result := _iconv_open(tocode, fromcode);
+  except
+    on Exception do
+      Result := iconv_t(-1);
+  end;
+{$ELSE}
+  if InitIconvInterface and Assigned(_iconv_open) then
+    Result := _iconv_open(PAnsiChar(tocode), PAnsiChar(fromcode))
+  else
+    Result := iconv_t(-1);
+{$ENDIF}
+end;
+
+function SynaIconvOpenTranslit (const tocode, fromcode: Ansistring): iconv_t;
+begin
+  Result := SynaIconvOpen(tocode + '//IGNORE//TRANSLIT', fromcode);
+end;
+
+function SynaIconvOpenIgnore (const tocode, fromcode: Ansistring): iconv_t;
+begin
+  Result := SynaIconvOpen(tocode + '//IGNORE', fromcode);
+end;
+
+function SynaIconv (cd: iconv_t; inbuf: AnsiString; var outbuf: AnsiString): integer;
+var
+{$IFDEF CIL}
+  ib, ob: IntPtr;
+  ibsave, obsave: IntPtr;
+  l: integer;
+{$ELSE}
+  ib, ob: Pointer;
+{$ENDIF}
+  ix, ox: size_t;
+begin
+{$IFDEF CIL}
+  l := Length(inbuf) * 4;
+  ibsave := IntPtr.Zero;
+  obsave := IntPtr.Zero;
+  try
+    ibsave := Marshal.StringToHGlobalAnsi(inbuf);
+    obsave := Marshal.AllocHGlobal(l);
+    ib := ibsave;
+    ob := obsave;
+    ix := Length(inbuf);
+    ox := l;
+    _iconv(cd, ib, ix, ob, ox);
+    Outbuf := Marshal.PtrToStringAnsi(obsave, l);
+    setlength(Outbuf, l - ox);
+    Result := Length(inbuf) - ix;
+  finally
+    Marshal.FreeCoTaskMem(ibsave);
+    Marshal.FreeHGlobal(obsave);
+  end;
+{$ELSE}
+  if InitIconvInterface and Assigned(_iconv) then
+  begin
+    setlength(Outbuf, Length(inbuf) * 4);
+    ib := Pointer(inbuf);
+    ob := Pointer(Outbuf);
+    ix := Length(inbuf);
+    ox := Length(Outbuf);
+    _iconv(cd, ib, ix, ob, ox);
+    setlength(Outbuf, cardinal(Length(Outbuf)) - ox);
+    Result := Cardinal(Length(inbuf)) - ix;
+  end
+  else
+  begin
+    Outbuf := '';
+    Result := 0;
+  end;
+{$ENDIF}
+end;
+
+function SynaIconvClose(var cd: iconv_t): integer;
+begin
+  if cd = iconv_t(-1) then
+  begin
+    Result := 0;
+    Exit;
+  end;
+{$IFDEF CIL}
+  try;
+    Result := _iconv_close(cd)
+  except
+    on Exception do
+      Result := -1;
+  end;
+  cd := iconv_t(-1);
+{$ELSE}
+  if InitIconvInterface and Assigned(_iconv_close) then
+    Result := _iconv_close(cd)
+  else
+    Result := -1;
+  cd := iconv_t(-1);
+{$ENDIF}
+end;
+
+function SynaIconvCtl (cd: iconv_t; request: integer; argument: argptr): integer;
+begin
+{$IFDEF CIL}
+  Result := _iconvctl(cd, request, argument)
+{$ELSE}
+  if InitIconvInterface and Assigned(_iconvctl) then
+    Result := _iconvctl(cd, request, argument)
+  else
+    Result := 0;
+{$ENDIF}
+end;
+
+function InitIconvInterface: Boolean;
+begin
+  IconvCS.Enter;
+  try
+    if not IsIconvloaded then
+    begin
+{$IFDEF CIL}
+      IconvLibHandle := 1;
+{$ELSE}
+      IconvLibHandle := LoadLibrary(PChar(DLLIconvName));
+{$ENDIF}
+      if (IconvLibHandle <> 0) then
+      begin
+{$IFNDEF CIL}
+        _iconv_open := GetProcAddress(IconvLibHandle, PAnsiChar(AnsiString('libiconv_open')));
+        _iconv := GetProcAddress(IconvLibHandle, PAnsiChar(AnsiString('libiconv')));
+        _iconv_close := GetProcAddress(IconvLibHandle, PAnsiChar(AnsiString('libiconv_close')));
+        _iconvctl := GetProcAddress(IconvLibHandle, PAnsiChar(AnsiString('libiconvctl')));
+{$ENDIF}
+        Result := True;
+        Iconvloaded := True;
+      end
+      else
+      begin
+        //load failed!
+        if IconvLibHandle <> 0 then
+        begin
+{$IFNDEF CIL}
+          FreeLibrary(IconvLibHandle);
+{$ENDIF}
+          IconvLibHandle := 0;
+        end;
+        Result := False;
+      end;
+    end
+    else
+      //loaded before...
+      Result := true;
+  finally
+    IconvCS.Leave;
+  end;
+end;
+
+function DestroyIconvInterface: Boolean;
+begin
+  IconvCS.Enter;
+  try
+    Iconvloaded := false;
+    if IconvLibHandle <> 0 then
+    begin
+{$IFNDEF CIL}
+      FreeLibrary(IconvLibHandle);
+{$ENDIF}
+      IconvLibHandle := 0;
+    end;
+{$IFNDEF CIL}
+    _iconv_open := nil;
+    _iconv := nil;
+    _iconv_close := nil;
+    _iconvctl := nil;
+{$ENDIF}
+  finally
+    IconvCS.Leave;
+  end;
+  Result := True;
+end;
+
+function IsIconvloaded: Boolean;
+begin
+  Result := IconvLoaded;
+end;
+
+ initialization
+begin
+  IconvCS:= TCriticalSection.Create;
+end;
+
+finalization
+begin
+{$IFNDEF CIL}
+  DestroyIconvInterface;
+{$ENDIF}
+  IconvCS.Free;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaip.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaip.pas
new file mode 100644
index 0000000..01c0691
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaip.pas	
@@ -0,0 +1,416 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.002.000 |
+|==============================================================================|
+| Content: IP address support procedures and functions                         |
+|==============================================================================|
+| Copyright (c)2006-2009, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c) 2006-2008.               |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(IP adress support procedures and functions)}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$R-}
+{$H+}
+
+unit synaip;
+
+interface
+
+uses
+  SysUtils, SynaUtil;
+
+type
+{:binary form of IPv6 adress (for string conversion routines)}
+  TIp6Bytes = array [0..15] of Byte;
+{:binary form of IPv6 adress (for string conversion routines)}
+  TIp6Words = array [0..7] of Word;
+
+{:Returns @TRUE, if "Value" is a valid IPv4 address. Cannot be a symbolic Name!}
+function IsIP(const Value: string): Boolean;
+
+{:Returns @TRUE, if "Value" is a valid IPv6 address. Cannot be a symbolic Name!}
+function IsIP6(const Value: string): Boolean;
+
+{:Returns a string with the "Host" ip address converted to binary form.}
+function IPToID(Host: string): Ansistring;
+
+{:Convert IPv6 address from their string form to binary byte array.}
+function StrToIp6(value: string): TIp6Bytes;
+
+{:Convert IPv6 address from binary byte array to string form.}
+function Ip6ToStr(value: TIp6Bytes): string;
+
+{:Convert IPv4 address from their string form to binary.}
+function StrToIp(value: string): integer;
+
+{:Convert IPv4 address from binary to string form.}
+function IpToStr(value: integer): string;
+
+{:Convert IPv4 address to reverse form.}
+function ReverseIP(Value: AnsiString): AnsiString;
+
+{:Convert IPv6 address to reverse form.}
+function ReverseIP6(Value: AnsiString): AnsiString;
+
+{:Expand short form of IPv6 address to long form.}
+function ExpandIP6(Value: AnsiString): AnsiString;
+
+
+implementation
+
+{==============================================================================}
+
+function IsIP(const Value: string): Boolean;
+var
+  TempIP: string;
+  function ByteIsOk(const Value: string): Boolean;
+  var
+    x, n: integer;
+  begin
+    x := StrToIntDef(Value, -1);
+    Result := (x >= 0) and (x < 256);
+    // X may be in correct range, but value still may not be correct value!
+    // i.e. "$80"
+    if Result then
+      for n := 1 to length(Value) do
+        if not (Value[n] in ['0'..'9']) then
+        begin
+          Result := False;
+          Break;
+        end;
+  end;
+begin
+  TempIP := Value;
+  Result := False;
+  if not ByteIsOk(Fetch(TempIP, '.')) then
+    Exit;
+  if not ByteIsOk(Fetch(TempIP, '.')) then
+    Exit;
+  if not ByteIsOk(Fetch(TempIP, '.')) then
+    Exit;
+  if ByteIsOk(TempIP) then
+    Result := True;
+end;
+
+{==============================================================================}
+
+function IsIP6(const Value: string): Boolean;
+var
+  TempIP: string;
+  s,t: string;
+  x: integer;
+  partcount: integer;
+  zerocount: integer;
+  First: Boolean;
+begin
+  TempIP := Value;
+  Result := False;
+  if Value = '::' then
+  begin
+    Result := True;
+    Exit;
+  end;
+  partcount := 0;
+  zerocount := 0;
+  First := True;
+  while tempIP <> '' do
+  begin
+    s := fetch(TempIP, ':');
+    if not(First) and (s = '') then
+      Inc(zerocount);
+    First := False;
+    if zerocount > 1 then
+      break;
+    Inc(partCount);
+    if s = '' then
+      Continue;
+    if partCount > 8 then
+      break;
+    if tempIP = '' then
+    begin
+      t := SeparateRight(s, '%');
+      s := SeparateLeft(s, '%');
+      x := StrToIntDef('$' + t, -1);
+      if (x < 0) or (x > $ffff) then
+        break;
+    end;
+    x := StrToIntDef('$' + s, -1);
+    if (x < 0) or (x > $ffff) then
+      break;
+    if tempIP = '' then
+      if not((PartCount = 1) and (ZeroCount = 0)) then
+        Result := True;
+  end;
+end;
+
+{==============================================================================}
+function IPToID(Host: string): Ansistring;
+var
+  s: string;
+  i, x: Integer;
+begin
+  Result := '';
+  for x := 0 to 3 do
+  begin
+    s := Fetch(Host, '.');
+    i := StrToIntDef(s, 0);
+    Result := Result + Chr(i);
+  end;
+end;
+
+{==============================================================================}
+
+function StrToIp(value: string): integer;
+var
+  s: string;
+  i, x: Integer;
+begin
+  Result := 0;
+  for x := 0 to 3 do
+  begin
+    s := Fetch(value, '.');
+    i := StrToIntDef(s, 0);
+    Result := (256 * Result) + i;
+  end;
+end;
+
+{==============================================================================}
+
+function IpToStr(value: integer): string;
+var
+  x1, x2: word;
+  y1, y2: byte;
+begin
+  Result := '';
+  x1 := value shr 16;
+  x2 := value and $FFFF;
+  y1 := x1 div $100;
+  y2 := x1 mod $100;
+  Result := inttostr(y1) + '.' + inttostr(y2) + '.';
+  y1 := x2 div $100;
+  y2 := x2 mod $100;
+  Result := Result + inttostr(y1) + '.' + inttostr(y2);
+end;
+
+{==============================================================================}
+
+function ExpandIP6(Value: AnsiString): AnsiString;
+var
+ n: integer;
+ s: ansistring;
+ x: integer;
+begin
+  Result := '';
+  if value = '' then
+    exit;
+  x := countofchar(value, ':');
+  if x > 7 then
+    exit;
+  if value[1] = ':' then
+    value := '0' + value;
+  if value[length(value)] = ':' then
+    value := value + '0';
+  x := 8 - x;
+  s := '';
+  for n := 1 to x do
+    s := s + ':0';
+  s := s + ':';
+  Result := replacestring(value, '::', s);
+end;
+{==============================================================================}
+
+function StrToIp6(Value: string): TIp6Bytes;
+var
+ IPv6: TIp6Words;
+ Index: Integer;
+ n: integer;
+ b1, b2: byte;
+ s: string;
+ x: integer;
+begin
+  for n := 0 to 15 do
+    Result[n] := 0;
+  for n := 0 to 7 do
+    Ipv6[n] := 0;
+  Index := 0;
+  Value := ExpandIP6(value);
+  if value = '' then
+    exit;
+  while Value <> '' do
+  begin
+    if Index > 7 then
+      Exit;
+    s := fetch(value, ':');
+    if s = '@' then
+      break;
+    if s = '' then
+    begin
+      IPv6[Index] := 0;
+    end
+    else
+    begin
+      x := StrToIntDef('$' + s, -1);
+      if (x > 65535) or (x < 0) then
+        Exit;
+      IPv6[Index] := x;
+    end;
+    Inc(Index);
+  end;
+  for n := 0 to 7 do
+  begin
+    b1 := ipv6[n] div 256;
+    b2 := ipv6[n] mod 256;
+    Result[n * 2] := b1;
+    Result[(n * 2) + 1] := b2;
+  end;
+end;
+
+{==============================================================================}
+//based on routine by the Free Pascal development team
+function Ip6ToStr(value: TIp6Bytes): string;
+var
+  i, x: byte;
+  zr1,zr2: set of byte;
+  zc1,zc2: byte;
+  have_skipped: boolean;
+  ip6w: TIp6words;
+begin
+  zr1 := [];
+  zr2 := [];
+  zc1 := 0;
+  zc2 := 0;
+  for i := 0 to 7 do
+  begin
+    x := i * 2;
+    ip6w[i] := value[x] * 256 + value[x + 1];
+    if ip6w[i] = 0 then
+    begin
+      include(zr2, i);
+      inc(zc2);
+    end
+    else
+    begin
+      if zc1 < zc2 then
+      begin
+        zc1 := zc2;
+        zr1 := zr2;
+        zc2 := 0;
+        zr2 := [];
+      end;
+    end;
+  end;
+  if zc1 < zc2 then
+  begin
+    zr1 := zr2;
+  end;
+  SetLength(Result, 8*5-1);
+  SetLength(Result, 0);
+  have_skipped := false;
+  for i := 0 to 7 do
+  begin
+    if not(i in zr1) then
+    begin
+      if have_skipped then
+      begin
+        if Result = '' then
+          Result := '::'
+        else
+          Result := Result + ':';
+        have_skipped := false;
+      end;
+      Result := Result + IntToHex(Ip6w[i], 1) + ':';
+    end
+    else
+    begin
+      have_skipped := true;
+    end;
+  end;
+  if have_skipped then
+    if Result = '' then
+      Result := '::0'
+    else
+      Result := Result + ':';
+
+  if Result = '' then
+    Result := '::0';
+  if not (7 in zr1) then
+    SetLength(Result, Length(Result)-1);
+  Result := LowerCase(result);
+end;
+
+{==============================================================================}
+function ReverseIP(Value: AnsiString): AnsiString;
+var
+  x: Integer;
+begin
+  Result := '';
+  repeat
+    x := LastDelimiter('.', Value);
+    Result := Result + '.' + Copy(Value, x + 1, Length(Value) - x);
+    Delete(Value, x, Length(Value) - x + 1);
+  until x < 1;
+  if Length(Result) > 0 then
+    if Result[1] = '.' then
+      Delete(Result, 1, 1);
+end;
+
+{==============================================================================}
+function ReverseIP6(Value: AnsiString): AnsiString;
+var
+  ip6: TIp6bytes;
+  n: integer;
+  x, y: integer;
+begin
+  ip6 := StrToIP6(Value);
+  x := ip6[15] div 16;
+  y := ip6[15] mod 16;
+  Result := IntToHex(y, 1) + '.' + IntToHex(x, 1);
+  for n := 14 downto 0 do
+  begin
+    x := ip6[n] div 16;
+    y := ip6[n] mod 16;
+    Result := Result + '.' + IntToHex(y, 1) + '.' + IntToHex(x, 1);
+  end;
+end;
+
+{==============================================================================}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synamisc.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synamisc.pas
new file mode 100644
index 0000000..354fa45
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synamisc.pas	
@@ -0,0 +1,389 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.003.000 |
+|==============================================================================|
+| Content: misc. procedures and functions                                      |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c) 2002-2008.               |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(Misc. network based utilities)}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$H+}
+
+unit synamisc;
+
+interface
+
+{$IFDEF VER125}
+  {$DEFINE BCB}
+{$ENDIF}
+{$IFDEF BCB}
+  {$ObjExportAll On}
+  {$HPPEMIT '#pragma comment( lib , "wininet.lib" )'}
+{$ENDIF}
+
+uses
+  synautil, blcksock, SysUtils, Classes,
+{$IFDEF LINUX}
+  Libc;
+{$ELSE}
+  Windows;
+{$ENDIF}
+
+Type
+  {:@abstract(This record contains information about proxy setting.)}
+  TProxySetting = record
+    Host: string;
+    Port: string;
+    Bypass: string;
+  end;
+
+{:By this function you can turn-on computer on network, if this computer
+ supporting Wake-on-lan feature. You need MAC number (network card indentifier)
+ of computer for turn-on. You can also assign target IP addres. If you not
+ specify it, then is used broadcast for delivery magic wake-on packet. However
+ broadcasts workinh only on your local network. When you need to wake-up
+ computer on another network, you must specify any existing IP addres on same
+ network segment as targeting computer.}
+procedure WakeOnLan(MAC, IP: string);
+
+{:Autodetect current DNS servers used by system. If is defined more then one DNS
+ server, then result is comma-delimited.}
+function GetDNS: string;
+
+{:Autodetect InternetExplorer proxy setting for given protocol. This function
+working only on windows!}
+function GetIEProxy(protocol: string): TProxySetting;
+
+{:Return all known IP addresses on local system. Addresses are divided by comma.}
+function GetLocalIPs: string;
+
+implementation
+
+{==============================================================================}
+procedure WakeOnLan(MAC, IP: string);
+var
+  sock: TUDPBlockSocket;
+  HexMac: Ansistring;
+  data: Ansistring;
+  n: integer;
+  b: Byte;
+begin
+  if MAC <> '' then
+  begin
+    MAC := ReplaceString(MAC, '-', '');
+    MAC := ReplaceString(MAC, ':', '');
+    if Length(MAC) < 12 then
+      Exit;
+    HexMac := '';
+    for n := 0 to 5 do
+    begin
+      b := StrToIntDef('$' + MAC[n * 2 + 1] + MAC[n * 2 + 2], 0);
+      HexMac := HexMac + char(b);
+    end;
+    if IP = '' then
+      IP := cBroadcast;
+    sock := TUDPBlockSocket.Create;
+    try
+      sock.CreateSocket;
+      sock.EnableBroadcast(true);
+      sock.Connect(IP, '9');
+      data := #$FF + #$FF + #$FF + #$FF + #$FF + #$FF;
+      for n := 1 to 16 do
+        data := data + HexMac;
+      sock.SendString(data);
+    finally
+      sock.Free;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+{$IFNDEF LINUX}
+function GetDNSbyIpHlp: string;
+type
+  PTIP_ADDRESS_STRING = ^TIP_ADDRESS_STRING;
+  TIP_ADDRESS_STRING = array[0..15] of Ansichar;
+  PTIP_ADDR_STRING = ^TIP_ADDR_STRING;
+  TIP_ADDR_STRING = packed record
+    Next: PTIP_ADDR_STRING;
+    IpAddress: TIP_ADDRESS_STRING;
+    IpMask: TIP_ADDRESS_STRING;
+    Context: DWORD;
+  end;
+  PTFixedInfo = ^TFixedInfo;
+  TFixedInfo = packed record
+    HostName: array[1..128 + 4] of Ansichar;
+    DomainName: array[1..128 + 4] of Ansichar;
+    CurrentDNSServer: PTIP_ADDR_STRING;
+    DNSServerList: TIP_ADDR_STRING;
+    NodeType: UINT;
+    ScopeID: array[1..256 + 4] of Ansichar;
+    EnableRouting: UINT;
+    EnableProxy: UINT;
+    EnableDNS: UINT;
+  end;
+const
+  IpHlpDLL = 'IPHLPAPI.DLL';
+var
+  IpHlpModule: THandle;
+  FixedInfo: PTFixedInfo;
+  InfoSize: Longint;
+  PDnsServer: PTIP_ADDR_STRING;
+  err: integer;
+  GetNetworkParams: function(FixedInfo: PTFixedInfo; pOutPutLen: PULONG): DWORD; stdcall;
+begin
+  InfoSize := 0;
+  Result := '...';
+  IpHlpModule := LoadLibrary(IpHlpDLL);
+  if IpHlpModule = 0 then
+    exit;
+  try
+    GetNetworkParams := GetProcAddress(IpHlpModule,PAnsiChar(AnsiString('GetNetworkParams')));
+    if @GetNetworkParams = nil then
+      Exit;
+    err := GetNetworkParams(Nil, @InfoSize);
+    if err <> ERROR_BUFFER_OVERFLOW then
+      Exit;
+    Result := '';
+    GetMem (FixedInfo, InfoSize);
+    try
+      err := GetNetworkParams(FixedInfo, @InfoSize);
+      if err <> ERROR_SUCCESS then
+        exit;
+      with FixedInfo^ do
+      begin
+        Result := DnsServerList.IpAddress;
+        PDnsServer := DnsServerList.Next;
+        while PDnsServer <> Nil do
+        begin
+          if Result <> '' then
+            Result := Result + ',';
+          Result := Result + PDnsServer^.IPAddress;
+          PDnsServer := PDnsServer.Next;
+        end;
+    end;
+    finally
+      FreeMem(FixedInfo);
+    end;
+  finally
+    FreeLibrary(IpHlpModule);
+  end;
+end;
+
+function ReadReg(SubKey, Vn: PChar): string;
+var
+ OpenKey: HKEY;
+ DataType, DataSize: integer;
+ Temp: array [0..2048] of char;
+begin
+  Result := '';
+  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, REG_OPTION_NON_VOLATILE,
+    KEY_READ, OpenKey) = ERROR_SUCCESS then
+  begin
+    DataType := REG_SZ;
+    DataSize := SizeOf(Temp);
+    if RegQueryValueEx(OpenKey, Vn, nil, @DataType, @Temp, @DataSize) = ERROR_SUCCESS then
+      SetString(Result, Temp, DataSize div SizeOf(Char) - 1);
+    RegCloseKey(OpenKey);
+   end;
+end ;
+{$ENDIF}
+
+function GetDNS: string;
+{$IFDEF LINUX}
+var
+  l: TStringList;
+  n: integer;
+begin
+  Result := '';
+  l := TStringList.Create;
+  try
+    l.LoadFromFile('/etc/resolv.conf');
+    for n := 0 to l.Count - 1 do
+      if Pos('NAMESERVER', uppercase(l[n])) = 1 then
+      begin
+        if Result <> '' then
+          Result := Result + ',';
+        Result := Result + SeparateRight(l[n], ' ');
+      end;
+  finally
+    l.Free;
+  end;
+end;
+{$ELSE}
+const
+  NTdyn = 'System\CurrentControlSet\Services\Tcpip\Parameters\Temporary';
+  NTfix = 'System\CurrentControlSet\Services\Tcpip\Parameters';
+  W9xfix = 'System\CurrentControlSet\Services\MSTCP';
+begin
+  Result := GetDNSbyIpHlp;
+  if Result = '...' then
+  begin
+    if Win32Platform = VER_PLATFORM_WIN32_NT then
+    begin
+      Result := ReadReg(NTdyn, 'NameServer');
+      if result = '' then
+        Result := ReadReg(NTfix, 'NameServer');
+      if result = '' then
+        Result := ReadReg(NTfix, 'DhcpNameServer');
+    end
+    else
+      Result := ReadReg(W9xfix, 'NameServer');
+    Result := ReplaceString(trim(Result), ' ', ',');
+  end;
+end;
+{$ENDIF}
+
+{==============================================================================}
+
+function GetIEProxy(protocol: string): TProxySetting;
+{$IFDEF LINUX}
+begin
+  Result.Host := '';
+  Result.Port := '';
+  Result.Bypass := '';
+end;
+{$ELSE}
+type
+  PInternetProxyInfo = ^TInternetProxyInfo;
+  TInternetProxyInfo = packed record
+    dwAccessType: DWORD;
+    lpszProxy: LPCSTR;
+    lpszProxyBypass: LPCSTR;
+  end;
+const
+  INTERNET_OPTION_PROXY = 38;
+  INTERNET_OPEN_TYPE_PROXY = 3;
+  WininetDLL = 'WININET.DLL';
+var
+  WininetModule: THandle;
+  ProxyInfo: PInternetProxyInfo;
+  Err: Boolean;
+  Len: DWORD;
+  Proxy: string;
+  DefProxy: string;
+  ProxyList: TStringList;
+  n: integer;
+  InternetQueryOption: function (hInet: Pointer; dwOption: DWORD;
+    lpBuffer: Pointer; var lpdwBufferLength: DWORD): BOOL; stdcall;
+begin
+  Result.Host := '';
+  Result.Port := '';
+  Result.Bypass := '';
+  WininetModule := LoadLibrary(WininetDLL);
+  if WininetModule = 0 then
+    exit;
+  try
+    InternetQueryOption := GetProcAddress(WininetModule,PAnsiChar(AnsiString('InternetQueryOptionA')));
+    if @InternetQueryOption = nil then
+      Exit;
+
+    if protocol = '' then
+      protocol := 'http';
+    Len := 4096;
+    GetMem(ProxyInfo, Len);
+    ProxyList := TStringList.Create;
+    try
+      Err := InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len);
+      if Err then
+        if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then
+        begin
+          ProxyList.CommaText := ReplaceString(ProxyInfo^.lpszProxy, ' ', ',');
+          Proxy := '';
+          DefProxy := '';
+          for n := 0 to ProxyList.Count -1 do
+          begin
+            if Pos(lowercase(protocol) + '=', lowercase(ProxyList[n])) = 1 then
+            begin
+              Proxy := SeparateRight(ProxyList[n], '=');
+              break;
+            end;
+            if Pos('=', ProxyList[n]) < 1 then
+              DefProxy := ProxyList[n];
+          end;
+          if Proxy = '' then
+            Proxy := DefProxy;
+          if Proxy <> '' then
+          begin
+            Result.Host := Trim(SeparateLeft(Proxy, ':'));
+            Result.Port := Trim(SeparateRight(Proxy, ':'));
+          end;
+          Result.Bypass := ReplaceString(ProxyInfo^.lpszProxyBypass, ' ', ',');
+        end;
+    finally
+      ProxyList.Free;
+      FreeMem(ProxyInfo);
+    end;
+  finally
+    FreeLibrary(WininetModule);
+  end;
+end;
+{$ENDIF}
+
+{==============================================================================}
+
+function GetLocalIPs: string;
+var
+  TcpSock: TTCPBlockSocket;
+  ipList: TStringList;
+begin
+  Result := '';
+  ipList := TStringList.Create;
+  try
+    TcpSock := TTCPBlockSocket.create;
+    try
+      TcpSock.ResolveNameToIP(TcpSock.LocalName, ipList);
+      Result := ipList.CommaText;
+    finally
+      TcpSock.Free;
+    end;
+  finally
+    ipList.Free;
+  end;
+end;
+
+{==============================================================================}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaser.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaser.pas
new file mode 100644
index 0000000..a9eec96
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synaser.pas	
@@ -0,0 +1,2298 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 007.003.000 |
+|==============================================================================|
+| Content: Serial port support                                                 |
+|==============================================================================|
+| Copyright (c)2001-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2001-2008.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|  (c)2002, Hans-Georg Joepgen (cpom Comport Ownership Manager and bugfixes)   |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{: @abstract(Serial port communication library)
+This unit contains a class that implements serial port communication for Windows
+ or Linux. This class provides numerous methods with same name and functionality
+  as methods of the Ararat Synapse TCP/IP library.
+
+The following is a small example how establish a connection by modem (in this
+case with my USB modem):
+@longcode(#
+  ser:=TBlockSerial.Create;
+  try
+    ser.Connect('COM3');
+    ser.config(460800,8,'N',0,false,true);
+    ser.ATCommand('AT');
+    if (ser.LastError <> 0) or (not ser.ATResult) then
+      Exit;
+    ser.ATConnect('ATDT+420971200111');
+    if (ser.LastError <> 0) or (not ser.ATResult) then
+      Exit;
+    // you are now connected to a modem at +420971200111
+    // you can transmit or receive data now
+  finally
+    ser.free;
+  end;
+#)
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+  {$IFDEF WIN32}
+    {$ASMMODE intel}
+  {$ENDIF}
+  {define working mode w/o LIBC for fpc}
+  {$DEFINE NO_LIBC}
+{$ENDIF}
+{$Q-}
+{$H+}
+{$M+}
+
+unit synaser;
+
+interface
+
+uses
+{$IFNDEF WIN32}
+  {$IFNDEF NO_LIBC}
+  Libc,
+  KernelIoctl,
+  {$ELSE}
+  termio, baseunix, unix,
+  {$ENDIF}
+  {$IFNDEF FPC}
+  Types,
+  {$ENDIF}
+{$ELSE}
+  Windows, registry,
+  {$IFDEF FPC}
+  winver,
+  {$ENDIF}
+{$ENDIF}
+  synafpc,
+  Classes, SysUtils, synautil;
+
+const
+  CR = #$0d;
+  LF = #$0a;
+  CRLF = CR + LF;
+  cSerialChunk = 8192;
+
+  LockfileDirectory = '/var/lock'; {HGJ}
+  PortIsClosed = -1;               {HGJ}
+  ErrAlreadyOwned = 9991;          {HGJ}
+  ErrAlreadyInUse = 9992;          {HGJ}
+  ErrWrongParameter = 9993;        {HGJ}
+  ErrPortNotOpen = 9994;           {HGJ}
+  ErrNoDeviceAnswer =  9995;       {HGJ}
+  ErrMaxBuffer = 9996;
+  ErrTimeout = 9997;
+  ErrNotRead = 9998;
+  ErrFrame = 9999;
+  ErrOverrun = 10000;
+  ErrRxOver = 10001;
+  ErrRxParity = 10002;
+  ErrTxFull = 10003;
+
+  dcb_Binary = $00000001;
+  dcb_ParityCheck = $00000002;
+  dcb_OutxCtsFlow = $00000004;
+  dcb_OutxDsrFlow = $00000008;
+  dcb_DtrControlMask = $00000030;
+  dcb_DtrControlDisable = $00000000;
+  dcb_DtrControlEnable = $00000010;
+  dcb_DtrControlHandshake = $00000020;
+  dcb_DsrSensivity = $00000040;
+  dcb_TXContinueOnXoff = $00000080;
+  dcb_OutX = $00000100;
+  dcb_InX = $00000200;
+  dcb_ErrorChar = $00000400;
+  dcb_NullStrip = $00000800;
+  dcb_RtsControlMask = $00003000;
+  dcb_RtsControlDisable = $00000000;
+  dcb_RtsControlEnable = $00001000;
+  dcb_RtsControlHandshake = $00002000;
+  dcb_RtsControlToggle = $00003000;
+  dcb_AbortOnError = $00004000;
+  dcb_Reserveds = $FFFF8000;
+
+  {:stopbit value for 1 stopbit}
+  SB1 = 0;
+  {:stopbit value for 1.5 stopbit}
+  SB1andHalf = 1;
+  {:stopbit value for 2 stopbits}
+  SB2 = 2;
+
+{$IFNDEF WIN32}
+const
+  INVALID_HANDLE_VALUE = THandle(-1);
+  CS7fix = $0000020;
+
+type
+  TDCB = packed record
+    DCBlength: DWORD;
+    BaudRate: DWORD;
+    Flags: Longint;
+    wReserved: Word;
+    XonLim: Word;
+    XoffLim: Word;
+    ByteSize: Byte;
+    Parity: Byte;
+    StopBits: Byte;
+    XonChar: CHAR;
+    XoffChar: CHAR;
+    ErrorChar: CHAR;
+    EofChar: CHAR;
+    EvtChar: CHAR;
+    wReserved1: Word;
+  end;
+  PDCB = ^TDCB;
+
+const
+//  MaxRates = 30;
+  MaxRates = 19;  //FPC on some platforms not know high speeds?
+  Rates: array[0..MaxRates, 0..1] of cardinal =
+  (
+    (0, B0),
+    (50, B50),
+    (75, B75),
+    (110, B110),
+    (134, B134),
+    (150, B150),
+    (200, B200),
+    (300, B300),
+    (600, B600),
+    (1200, B1200),
+    (1800, B1800),
+    (2400, B2400),
+    (4800, B4800),
+    (9600, B9600),
+    (19200, B19200),
+    (38400, B38400),
+    (57600, B57600),
+    (115200, B115200),
+    (230400, B230400),
+    (460800, B460800){,
+    (500000, B500000),
+    (576000, B576000),
+    (921600, B921600),
+    (1000000, B1000000),
+    (1152000, B1152000),
+    (1500000, B1500000),
+    (2000000, B2000000),
+    (2500000, B2500000),
+    (3000000, B3000000),
+    (3500000, B3500000),
+    (4000000, B4000000)}
+    );
+{$ENDIF}
+
+const
+  sOK = 0;
+  sErr = integer(-1);
+
+type
+
+  {:Possible status event types for @link(THookSerialStatus)}
+  THookSerialReason = (
+    HR_SerialClose,
+    HR_Connect,
+    HR_CanRead,
+    HR_CanWrite,
+    HR_ReadCount,
+    HR_WriteCount,
+    HR_Wait
+    );
+
+  {:procedural prototype for status event hooking}
+  THookSerialStatus = procedure(Sender: TObject; Reason: THookSerialReason;
+    const Value: string) of object;
+
+  {:@abstract(Exception type for SynaSer errors)}
+  ESynaSerError = class(Exception)
+  public
+    ErrorCode: integer;
+    ErrorMessage: string;
+  end;
+
+  {:@abstract(Main class implementing all communication routines)}
+  TBlockSerial = class(TObject)
+  protected
+    FOnStatus: THookSerialStatus;
+    Fhandle: THandle;
+    FTag: integer;
+    FDevice: string;
+    FLastError: integer;
+    FLastErrorDesc: string;
+    FBuffer: string;
+    FRaiseExcept: boolean;
+    FRecvBuffer: integer;
+    FSendBuffer: integer;
+    FModemWord: integer;
+    FRTSToggle: Boolean;
+    FDeadlockTimeout: integer;
+    FInstanceActive: boolean;      {HGJ}
+    FTestDSR: Boolean;
+    FTestCTS: Boolean;
+    FLastCR: Boolean;
+    FLastLF: Boolean;
+    FMaxLineLength: Integer;
+    FLinuxLock: Boolean;
+    FMaxSendBandwidth: Integer;
+    FNextSend: LongWord;
+    FMaxRecvBandwidth: Integer;
+    FNextRecv: LongWord;
+    FConvertLineEnd: Boolean;
+    FATResult: Boolean;
+    FAtTimeout: integer;
+    FInterPacketTimeout: Boolean;
+    FComNr: integer;
+{$IFDEF WIN32}
+    FPortAddr: Word;
+    function CanEvent(Event: dword; Timeout: integer): boolean;
+    procedure DecodeCommError(Error: DWord); virtual;
+    function GetPortAddr: Word;  virtual;
+    function ReadTxEmpty(PortAddr: Word): Boolean; virtual;
+{$ENDIF}
+    procedure SetSizeRecvBuffer(size: integer); virtual;
+    function GetDSR: Boolean; virtual;
+    procedure SetDTRF(Value: Boolean); virtual;
+    function GetCTS: Boolean; virtual;
+    procedure SetRTSF(Value: Boolean); virtual;
+    function GetCarrier: Boolean; virtual;
+    function GetRing: Boolean; virtual;
+    procedure DoStatus(Reason: THookSerialReason; const Value: string); virtual;
+    procedure GetComNr(Value: string); virtual;
+    function PreTestFailing: boolean; virtual;{HGJ}
+    function TestCtrlLine: Boolean; virtual;
+{$IFNDEF WIN32}
+    procedure DcbToTermios(const dcb: TDCB; var term: termios); virtual;
+    procedure TermiosToDcb(const term: termios; var dcb: TDCB); virtual;
+{$ENDIF}
+{$IFDEF LINUX}
+    function ReadLockfile: integer; virtual;
+    function LockfileName: String; virtual;
+    procedure CreateLockfile(PidNr: integer); virtual;
+{$ENDIF}
+    procedure LimitBandwidth(Length: Integer; MaxB: integer; var Next: LongWord); virtual;
+    procedure SetBandwidth(Value: Integer); virtual;
+  public
+    {: data Control Block with communication parameters. Usable only when you
+     need to call API directly.}
+    DCB: Tdcb;
+{$IFNDEF WIN32}
+    TermiosStruc: termios;
+{$ENDIF}
+    {:Object constructor.}
+    constructor Create;
+    {:Object destructor.}
+    destructor Destroy; override;
+
+    {:Returns a string containing the version number of the library.}
+    class function GetVersion: string; virtual;
+
+    {:Destroy handle in use. It close connection to serial port.}
+    procedure CloseSocket; virtual;
+
+    {:Reconfigure communication parameters on the fly. You must be connected to
+     port before!
+     @param(baud Define connection speed. Baud rate can be from 50 to 4000000
+      bits per second. (it depends on your hardware!))
+     @param(bits Number of bits in communication.)
+     @param(parity Define communication parity (N - None, O - Odd, E - Even, M - Mark or S - Space).)
+     @param(stop Define number of stopbits. Use constants @link(SB1),
+      @link(SB1andHalf) and @link(SB2).)
+     @param(softflow Enable XON/XOFF handshake.)
+     @param(hardflow Enable CTS/RTS handshake.)}
+    procedure Config(baud, bits: integer; parity: char; stop: integer;
+      softflow, hardflow: boolean); virtual;
+
+    {:Connects to the port indicated by comport. Comport can be used in Windows
+     style (COM2), or in Linux style (/dev/ttyS1). When you use windows style
+     in Linux, then it will be converted to Linux name. And vice versa! However
+     you can specify any device name! (other device names then standart is not
+     converted!)
+
+     After successfull connection the DTR signal is set (if you not set hardware
+     handshake, then the RTS signal is set, too!)
+
+     Connection parameters is predefined by your system configuration. If you
+     need use another parameters, then you can use Config method after.
+     Notes:
+
+      - Remember, the commonly used serial Laplink cable does not support
+       hardware handshake.
+
+      - Before setting any handshake you must be sure that it is supported by
+       your hardware.
+
+      - Some serial devices are slow. In some cases you must wait up to a few
+       seconds after connection for the device to respond.
+
+      - when you connect to a modem device, then is best to test it by an empty
+       AT command. (call ATCommand('AT'))}
+    procedure Connect(comport: string); virtual;
+
+    {:Set communication parameters from the DCB structure (the DCB structure is
+     simulated under Linux).}
+    procedure SetCommState; virtual;
+
+    {:Read communication parameters into the DCB structure (DCB structure is
+     simulated under Linux).}
+    procedure GetCommState; virtual;
+
+    {:Sends Length bytes of data from Buffer through the connected port.}
+    function SendBuffer(buffer: pointer; length: integer): integer; virtual;
+
+    {:One data BYTE is sent.}
+    procedure SendByte(data: byte); virtual;
+
+    {:Send the string in the data parameter. No terminator is appended by this
+     method. If you need to send a string with CR/LF terminator, you must append
+     the CR/LF characters to the data string!
+
+     Since no terminator is appended, you can use this function for sending
+     binary data too.}
+    procedure SendString(data: string); virtual;
+
+    {:send four bytes as integer.}
+    procedure SendInteger(Data: integer); virtual;
+
+    {:send data as one block. Each block begins with integer value with Length
+     of block.}
+    procedure SendBlock(const Data: string); virtual;
+
+    {:send content of stream from current position}
+    procedure SendStreamRaw(const Stream: TStream); virtual;
+
+    {:send content of stream as block. see @link(SendBlock)}
+    procedure SendStream(const Stream: TStream); virtual;
+
+    {:send content of stream as block, but this is compatioble with Indy library.
+     (it have swapped lenght of block). See @link(SendStream)}
+    procedure SendStreamIndy(const Stream: TStream); virtual;
+
+    {:Waits until the allocated buffer is filled by received data. Returns number
+     of data bytes received, which equals to the Length value under normal
+     operation. If it is not equal, the communication channel is possibly broken.
+
+     This method not using any internal buffering, like all others receiving
+     methods. You cannot freely combine this method with all others receiving
+     methods!}
+    function RecvBuffer(buffer: pointer; length: integer): integer; virtual;
+
+    {:Method waits until data is received. If no data is received within
+     the Timeout (in milliseconds) period, @link(LastError) is set to
+     @link(ErrTimeout). This method is used to read any amount of data
+     (e. g. 1MB), and may be freely combined with all receviving methods what
+     have Timeout parameter, like the @link(RecvString), @link(RecvByte) or
+     @link(RecvTerminated) methods.}
+    function RecvBufferEx(buffer: pointer; length: integer; timeout: integer): integer; virtual;
+
+    {:It is like recvBufferEx, but data is readed to dynamicly allocated binary
+     string.}
+    function RecvBufferStr(Length: Integer; Timeout: Integer): string; virtual;
+
+    {:Read all available data and return it in the function result string. This
+     function may be combined with @link(RecvString), @link(RecvByte) or related
+     methods.}
+    function RecvPacket(Timeout: Integer): string; virtual;
+
+    {:Waits until one data byte is received which is returned as the function
+     result. If no data is received within the Timeout (in milliseconds) period,
+     @link(LastError) is set to @link(ErrTimeout).}
+    function RecvByte(timeout: integer): byte; virtual;
+
+    {:This method waits until a terminated data string is received. This string
+     is terminated by the Terminator string. The resulting string is returned
+     without this termination string! If no data is received within the Timeout
+     (in milliseconds) period, @link(LastError) is set to @link(ErrTimeout).}
+    function RecvTerminated(Timeout: Integer; const Terminator: string): string; virtual;
+
+    {:This method waits until a terminated data string is received. The string
+     is terminated by a CR/LF sequence. The resulting string is returned without
+     the terminator (CR/LF)! If no data is received within the Timeout (in
+     milliseconds) period, @link(LastError) is set to @link(ErrTimeout).
+
+     If @link(ConvertLineEnd) is used, then the CR/LF sequence may not be exactly
+     CR/LF. See the description of @link(ConvertLineEnd).
+
+     This method serves for line protocol implementation and uses its own
+     buffers to maximize performance. Therefore do NOT use this method with the
+     @link(RecvBuffer) method to receive data as it may cause data loss.}
+    function Recvstring(timeout: integer): string; virtual;
+
+    {:Waits until four data bytes are received which is returned as the function
+     integer result. If no data is received within the Timeout (in milliseconds) period,
+     @link(LastError) is set to @link(ErrTimeout).}
+    function RecvInteger(Timeout: Integer): Integer; virtual;
+
+    {:Waits until one data block is received. See @link(sendblock). If no data
+     is received within the Timeout (in milliseconds) period, @link(LastError)
+     is set to @link(ErrTimeout).}
+    function RecvBlock(Timeout: Integer): string; virtual;
+
+    {:Receive all data to stream, until some error occured. (for example timeout)}
+    procedure RecvStreamRaw(const Stream: TStream; Timeout: Integer); virtual;
+
+    {:receive requested count of bytes to stream}
+    procedure RecvStreamSize(const Stream: TStream; Timeout: Integer; Size: Integer); virtual;
+
+    {:receive block of data to stream. (Data can be sended by @link(sendstream)}
+    procedure RecvStream(const Stream: TStream; Timeout: Integer); virtual;
+
+    {:receive block of data to stream. (Data can be sended by @link(sendstreamIndy)}
+    procedure RecvStreamIndy(const Stream: TStream; Timeout: Integer); virtual;
+
+    {:Returns the number of received bytes waiting for reading. 0 is returned
+     when there is no data waiting.}
+    function WaitingData: integer; virtual;
+
+    {:Same as @link(WaitingData), but in respect to data in the internal
+     @link(LineBuffer).}
+    function WaitingDataEx: integer; virtual;
+
+    {:Returns the number of bytes waiting to be sent in the output buffer.
+     0 is returned when the output buffer is empty.}
+    function SendingData: integer; virtual;
+
+    {:Enable or disable RTS driven communication (half-duplex). It can be used
+     to communicate with RS485 converters, or other special equipment. If you
+     enable this feature, the system automatically controls the RTS signal.
+
+     Notes:
+
+     - On Windows NT (or higher) ir RTS signal driven by system driver.
+
+     - On Win9x family is used special code for waiting until last byte is
+      sended from your UART.
+
+     - On Linux you must have kernel 2.1 or higher!}
+    procedure EnableRTSToggle(value: boolean); virtual;
+
+    {:Waits until all data to is sent and buffers are emptied.
+     Warning: On Windows systems is this method returns when all buffers are
+     flushed to the serial port controller, before the last byte is sent!}
+    procedure Flush; virtual;
+
+    {:Unconditionally empty all buffers. It is good when you need to interrupt
+     communication and for cleanups.}
+    procedure Purge; virtual;
+
+    {:Returns @True, if you can from read any data from the port. Status is
+     tested for a period of time given by the Timeout parameter (in milliseconds).
+     If the value of the Timeout parameter is 0, the status is tested only once
+     and the function returns immediately. If the value of the Timeout parameter
+     is set to -1, the function returns only after it detects data on the port
+     (this may cause the process to hang).}
+    function CanRead(Timeout: integer): boolean; virtual;
+
+    {:Returns @True, if you can write any data to the port (this function is not
+     sending the contents of the buffer). Status is tested for a period of time
+     given by the Timeout parameter (in milliseconds). If the value of
+     the Timeout parameter is 0, the status is tested only once and the function
+     returns immediately. If the value of the  Timeout parameter is set to -1,
+     the function returns only after it detects that it can write data to
+     the port (this may cause the process to hang).}
+    function CanWrite(Timeout: integer): boolean; virtual;
+
+    {:Same as @link(CanRead), but the test is against data in the internal
+    @link(LineBuffer) too.}
+    function CanReadEx(Timeout: integer): boolean; virtual;
+
+    {:Returns the status word of the modem. Decoding the status word could yield
+     the status of carrier detect signaland other signals. This method is used
+     internally by the modem status reading properties. You usually do not need
+     to call this method directly.}
+    function ModemStatus: integer; virtual;
+
+    {:Send a break signal to the communication device for Duration milliseconds.}
+    procedure SetBreak(Duration: integer); virtual;
+
+    {:This function is designed to send AT commands to the modem. The AT command
+     is sent in the Value parameter and the response is returned in the function
+     return value (may contain multiple lines!).
+     If the AT command is processed successfully (modem returns OK), then the
+     @link(ATResult) property is set to True.
+
+     This function is designed only for AT commands that return OK or ERROR
+     response! To call connection commands the @link(ATConnect) method.
+     Remember, when you connect to a modem device, it is in AT command mode.
+     Now you can send AT commands to the modem. If you need to transfer data to
+     the modem on the other side of the line, you must first switch to data mode
+     using the @link(ATConnect) method.}
+    function ATCommand(value: string): string; virtual;
+
+    {:This function is used to send connect type AT commands to the modem. It is
+     for commands to switch to connected state. (ATD, ATA, ATO,...)
+     It sends the AT command in the Value parameter and returns the modem's
+     response (may be multiple lines - usually with connection parameters info).
+     If the AT command is processed successfully (the modem returns CONNECT),
+     then the ATResult property is set to @True.
+
+     This function is designed only for AT commands which respond by CONNECT,
+     BUSY, NO DIALTONE NO CARRIER or ERROR. For other AT commands use the
+     @link(ATCommand) method.
+
+     The connect timeout is 90*@link(ATTimeout). If this command is successful
+     (@link(ATresult) is @true), then the modem is in data state. When you now
+     send or receive some data, it is not to or from your modem, but from the
+     modem on other side of the line. Now you can transfer your data.
+     If the connection attempt failed (@link(ATResult) is @False), then the
+     modem is still in AT command mode.}
+    function ATConnect(value: string): string; virtual;
+
+    {:If you "manually" call API functions, forward their return code in
+     the SerialResult parameter to this function, which evaluates it and sets
+     @link(LastError) and @link(LastErrorDesc).}
+    function SerialCheck(SerialResult: integer): integer; virtual;
+
+    {:If @link(Lasterror) is not 0 and exceptions are enabled, then this procedure
+     raises an exception. This method is used internally. You may need it only
+     in special cases.}
+    procedure ExceptCheck; virtual;
+
+    {:Set Synaser to error state with ErrNumber code. Usually used by internal
+     routines.}
+    procedure SetSynaError(ErrNumber: integer); virtual;
+
+    {:Raise Synaser error with ErrNumber code. Usually used by internal routines.}
+    procedure RaiseSynaError(ErrNumber: integer); virtual;
+{$IFDEF LINUX}
+    function  cpomComportAccessible: boolean; virtual;{HGJ}
+    procedure cpomReleaseComport; virtual; {HGJ}
+{$ENDIF}
+    {:True device name of currently used port}
+    property Device: string read FDevice;
+
+    {:Error code of last operation. Value is defined by the host operating
+     system, but value 0 is always OK.}
+    property LastError: integer read FLastError;
+
+    {:Human readable description of LastError code.}
+    property LastErrorDesc: string read FLastErrorDesc;
+
+    {:Indicates if the last @link(ATCommand) or @link(ATConnect) method was successful}
+    property ATResult: Boolean read FATResult;
+
+    {:Read the value of the RTS signal.}
+    property RTS: Boolean write SetRTSF;
+
+    {:Indicates the presence of the CTS signal}
+    property CTS: boolean read GetCTS;
+
+    {:Use this property to set the value of the DTR signal.}
+    property DTR: Boolean write SetDTRF;
+
+    {:Exposes the status of the DSR signal.}
+    property DSR: boolean read GetDSR;
+
+    {:Indicates the presence of the Carrier signal}
+    property Carrier: boolean read GetCarrier;
+
+    {:Reflects the status of the Ring signal.}
+    property Ring: boolean read GetRing;
+
+    {:indicates if this instance of SynaSer is active. (Connected to some port)}
+    property InstanceActive: boolean read FInstanceActive; {HGJ}
+
+    {:Defines maximum bandwidth for all sending operations in bytes per second.
+     If this value is set to 0 (default), bandwidth limitation is not used.}
+    property MaxSendBandwidth: Integer read FMaxSendBandwidth Write FMaxSendBandwidth;
+
+    {:Defines maximum bandwidth for all receiving operations in bytes per second.
+     If this value is set to 0 (default), bandwidth limitation is not used.}
+    property MaxRecvBandwidth: Integer read FMaxRecvBandwidth Write FMaxRecvBandwidth;
+
+    {:Defines maximum bandwidth for all sending and receiving operations
+     in bytes per second. If this value is set to 0 (default), bandwidth
+     limitation is not used.}
+    property MaxBandwidth: Integer Write SetBandwidth;
+
+    {:Size of the Windows internal receive buffer. Default value is usually
+     4096 bytes. Note: Valid only in Windows versions!}
+    property SizeRecvBuffer: integer read FRecvBuffer write SetSizeRecvBuffer;
+  published
+    {:Returns the descriptive text associated with ErrorCode. You need this
+     method only in special cases. Description of LastError is now accessible
+     through the LastErrorDesc property.}
+    class function GetErrorDesc(ErrorCode: integer): string;
+
+    {:Freely usable property}
+    property Tag: integer read FTag write FTag;
+
+    {:Contains the handle of the open communication port.
+    You may need this value to directly call communication functions outside
+    SynaSer.}
+    property Handle: THandle read Fhandle write FHandle;
+
+    {:Internally used read buffer.}
+    property LineBuffer: string read FBuffer write FBuffer;
+
+    {:If @true, communication errors raise exceptions. If @false (default), only
+     the @link(LastError) value is set.}
+    property RaiseExcept: boolean read FRaiseExcept write FRaiseExcept;
+
+    {:This event is triggered when the communication status changes. It can be
+     used to monitor communication status.}
+    property OnStatus: THookSerialStatus read FOnStatus write FOnStatus;
+
+    {:If you set this property to @true, then the value of the DSR signal
+     is tested before every data transfer. It can be used to detect the presence
+     of a communications device.}
+    property TestDSR: boolean read FTestDSR write FTestDSR;
+
+    {:If you set this property to @true, then the value of the CTS signal
+     is tested before every data transfer. It can be used to detect the presence
+     of a communications device. Warning: This property cannot be used if you
+     need hardware handshake!}
+    property TestCTS: boolean read FTestCTS write FTestCTS;
+
+    {:Use this property you to limit the maximum size of LineBuffer
+     (as a protection against unlimited memory allocation for LineBuffer).
+     Default value is 0 - no limit.}
+    property MaxLineLength: Integer read FMaxLineLength Write FMaxLineLength;
+
+    {:This timeout value is used as deadlock protection when trying to send data
+     to (or receive data from) a device that stopped communicating during data
+     transmission (e.g. by physically disconnecting the device).
+     The timeout value is in milliseconds. The default value is 30,000 (30 seconds).}
+    property DeadlockTimeout: Integer read FDeadlockTimeout Write FDeadlockTimeout;
+
+    {:If set to @true (default value), port locking is enabled (under Linux only).
+     WARNING: To use this feature, the application must run by a user with full
+     permission to the /var/lock directory!}
+    property LinuxLock: Boolean read FLinuxLock write FLinuxLock;
+
+    {:Indicates if non-standard line terminators should be converted to a CR/LF pair
+     (standard DOS line terminator). If @TRUE, line terminators CR, single LF
+     or LF/CR are converted to CR/LF. Defaults to @FALSE.
+     This property has effect only on the behavior of the RecvString method.}
+    property ConvertLineEnd: Boolean read FConvertLineEnd Write FConvertLineEnd;
+
+    {:Timeout for AT modem based operations}
+    property AtTimeout: integer read FAtTimeout Write FAtTimeout;
+
+    {:If @true (default), then all timeouts is timeout between two characters.
+     If @False, then timeout is overall for whoole reading operation.}
+    property InterPacketTimeout: Boolean read FInterPacketTimeout Write FInterPacketTimeout;
+  end;
+
+{:Returns list of existing computer serial ports. Working properly only in Windows!}
+function GetSerialPortNames: string;
+
+implementation
+
+constructor TBlockSerial.Create;
+begin
+  inherited create;
+  FRaiseExcept := false;
+  FHandle := INVALID_HANDLE_VALUE;
+  FDevice := '';
+  FComNr:= PortIsClosed;               {HGJ}
+  FInstanceActive:= false;             {HGJ}
+  Fbuffer := '';
+  FRTSToggle := False;
+  FMaxLineLength := 0;
+  FTestDSR := False;
+  FTestCTS := False;
+  FDeadlockTimeout := 30000;
+  FLinuxLock := True;
+  FMaxSendBandwidth := 0;
+  FNextSend := 0;
+  FMaxRecvBandwidth := 0;
+  FNextRecv := 0;
+  FConvertLineEnd := False;
+  SetSynaError(sOK);
+  FRecvBuffer := 4096;
+  FLastCR := False;
+  FLastLF := False;
+  FAtTimeout := 1000;
+  FInterPacketTimeout := True;
+end;
+
+destructor TBlockSerial.Destroy;
+begin
+  CloseSocket;
+  inherited destroy;
+end;
+
+class function TBlockSerial.GetVersion: string;
+begin
+	Result := 'SynaSer 6.3.5';
+end;
+
+procedure TBlockSerial.CloseSocket;
+begin
+  if Fhandle <> INVALID_HANDLE_VALUE then
+  begin
+    Purge;
+    RTS := False;
+    DTR := False;
+    FileClose(integer(FHandle));
+  end;
+  if InstanceActive then
+  begin
+    {$IFDEF LINUX}
+    if FLinuxLock then
+      cpomReleaseComport;
+    {$ENDIF}
+    FInstanceActive:= false
+  end;
+  Fhandle := INVALID_HANDLE_VALUE;
+  FComNr:= PortIsClosed;
+  SetSynaError(sOK);
+  DoStatus(HR_SerialClose, FDevice);
+end;
+
+{$IFDEF WIN32}
+function TBlockSerial.GetPortAddr: Word;
+begin
+  Result := 0;
+  if Win32Platform <> VER_PLATFORM_WIN32_NT then
+  begin
+    EscapeCommFunction(FHandle, 10);
+    asm
+      MOV @Result, DX;
+    end;
+  end;
+end;
+
+function TBlockSerial.ReadTxEmpty(PortAddr: Word): Boolean;
+begin
+  Result := True;
+  if Win32Platform <> VER_PLATFORM_WIN32_NT then
+  begin
+    asm
+      MOV DX, PortAddr;
+      ADD DX, 5;
+      IN AL, DX;
+      AND AL, $40;
+      JZ @K;
+      MOV AL,1;
+    @K: MOV @Result, AL;
+    end;
+  end;
+end;
+{$ENDIF}
+
+procedure TBlockSerial.GetComNr(Value: string);
+begin
+  FComNr := PortIsClosed;
+  if pos('COM', uppercase(Value)) = 1 then
+    FComNr := StrToIntdef(copy(Value, 4, Length(Value) - 3), PortIsClosed + 1) - 1;
+  if pos('/DEV/TTYS', uppercase(Value)) = 1 then
+    FComNr := StrToIntdef(copy(Value, 10, Length(Value) - 9), PortIsClosed - 1);
+end;
+
+procedure TBlockSerial.SetBandwidth(Value: Integer);
+begin
+  MaxSendBandwidth := Value;
+  MaxRecvBandwidth := Value;
+end;
+
+procedure TBlockSerial.LimitBandwidth(Length: Integer; MaxB: integer; var Next: LongWord);
+var
+  x: LongWord;
+  y: LongWord;
+begin
+  if MaxB > 0 then
+  begin
+    y := GetTick;
+    if Next > y then
+    begin
+      x := Next - y;
+      if x > 0 then
+      begin
+        DoStatus(HR_Wait, IntToStr(x));
+        sleep(x);
+      end;
+    end;
+    Next := GetTick + Trunc((Length / MaxB) * 1000);
+  end;
+end;
+
+procedure TBlockSerial.Config(baud, bits: integer; parity: char; stop: integer;
+  softflow, hardflow: boolean);
+begin
+  FillChar(dcb, SizeOf(dcb), 0);
+  dcb.DCBlength := SizeOf(dcb);
+  dcb.BaudRate := baud;
+  dcb.ByteSize := bits;
+  case parity of
+    'N', 'n': dcb.parity := 0;
+    'O', 'o': dcb.parity := 1;
+    'E', 'e': dcb.parity := 2;
+    'M', 'm': dcb.parity := 3;
+    'S', 's': dcb.parity := 4;
+  end;
+  dcb.StopBits := stop;
+  dcb.XonChar := #17;
+  dcb.XoffChar := #19;
+  dcb.XonLim := FRecvBuffer div 4;
+  dcb.XoffLim := FRecvBuffer div 4;
+  dcb.Flags := dcb_Binary;
+  if softflow then
+    dcb.Flags := dcb.Flags or dcb_OutX or dcb_InX;
+  if hardflow then
+    dcb.Flags := dcb.Flags or dcb_OutxCtsFlow or dcb_RtsControlHandshake
+  else
+    dcb.Flags := dcb.Flags or dcb_RtsControlEnable;
+  dcb.Flags := dcb.Flags or dcb_DtrControlEnable;
+  if dcb.Parity > 0 then
+    dcb.Flags := dcb.Flags or dcb_ParityCheck;
+  SetCommState;
+end;
+
+procedure TBlockSerial.Connect(comport: string);
+{$IFDEF WIN32}
+var
+  CommTimeouts: TCommTimeouts;
+{$ENDIF}
+begin
+  // Is this TBlockSerial Instance already busy?
+  if InstanceActive then           {HGJ}
+  begin                            {HGJ}
+    RaiseSynaError(ErrAlreadyInUse);
+    Exit;                          {HGJ}
+  end;                             {HGJ}
+  FBuffer := '';
+  FDevice := comport;
+  GetComNr(comport);
+{$IFDEF WIN32}
+  SetLastError (sOK);
+{$ELSE}
+  {$IFNDEF FPC}
+  SetLastError (sOK);
+  {$ELSE}
+  fpSetErrno(sOK);
+  {$ENDIF}
+{$ENDIF}
+{$IFNDEF WIN32}
+  if FComNr <> PortIsClosed then
+    FDevice := '/dev/ttyS' + IntToStr(FComNr);
+  // Comport already owned by another process?          {HGJ}
+  if FLinuxLock then
+    if not cpomComportAccessible then
+    begin
+      RaiseSynaError(ErrAlreadyOwned);
+      Exit;
+    end;
+{$IFNDEF FPC}
+  FHandle := THandle(Libc.open(pchar(FDevice), O_RDWR or O_SYNC));
+{$ELSE}
+  FHandle := THandle(fpOpen(FDevice, O_RDWR or O_SYNC));
+{$ENDIF}
+  SerialCheck(integer(FHandle));
+  {$IFDEF LINUX}
+  if FLastError <> sOK then
+    if FLinuxLock then
+      cpomReleaseComport;
+  {$ENDIF}
+  ExceptCheck;
+  if FLastError <> sOK then
+    Exit;
+{$ELSE}
+  if FComNr <> PortIsClosed then
+    FDevice := '\\.\COM' + IntToStr(FComNr + 1);
+  FHandle := THandle(CreateFile(PChar(FDevice), GENERIC_READ or GENERIC_WRITE,
+    0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0));
+  SerialCheck(integer(FHandle));
+  ExceptCheck;
+  if FLastError <> sOK then
+    Exit;
+  SetCommMask(FHandle, 0);
+  SetupComm(Fhandle, FRecvBuffer, 0);
+  CommTimeOuts.ReadIntervalTimeout := MAXWORD;
+  CommTimeOuts.ReadTotalTimeoutMultiplier := 0;
+  CommTimeOuts.ReadTotalTimeoutConstant := 0;
+  CommTimeOuts.WriteTotalTimeoutMultiplier := 0;
+  CommTimeOuts.WriteTotalTimeoutConstant := 0;
+  SetCommTimeOuts(FHandle, CommTimeOuts);
+  FPortAddr := GetPortAddr;
+{$ENDIF}
+  SetSynaError(sOK);
+  if not TestCtrlLine then  {HGJ}
+  begin
+    SetSynaError(ErrNoDeviceAnswer);
+    FileClose(integer(FHandle));         {HGJ}
+    {$IFDEF LINUX}
+    if FLinuxLock then
+      cpomReleaseComport;                {HGJ}
+    {$ENDIF}                             {HGJ}
+    Fhandle := INVALID_HANDLE_VALUE;     {HGJ}
+    FComNr:= PortIsClosed;               {HGJ}
+  end
+  else
+  begin
+    FInstanceActive:= True;
+    RTS := True;
+    DTR := True;
+    Purge;
+  end;
+  ExceptCheck;
+  DoStatus(HR_Connect, FDevice);
+end;
+
+function TBlockSerial.SendBuffer(buffer: pointer; length: integer): integer;
+{$IFDEF WIN32}
+var
+  Overlapped: TOverlapped;
+  x, y, Err: DWord;
+{$ENDIF}
+begin
+  Result := 0;
+  if PreTestFailing then   {HGJ}
+    Exit;                  {HGJ}
+  LimitBandwidth(Length, FMaxSendBandwidth, FNextsend);
+  if FRTSToggle then
+  begin
+    Flush;
+    RTS := True;
+  end;
+{$IFNDEF WIN32}
+  result := FileWrite(integer(Fhandle), Buffer^, Length);
+  serialcheck(result);
+{$ELSE}
+  FillChar(Overlapped, Sizeof(Overlapped), 0);
+  SetSynaError(sOK);
+  y := 0;
+  if not WriteFile(FHandle, Buffer^, Length, DWord(Result), @Overlapped) then
+    y := GetLastError;
+  if y = ERROR_IO_PENDING then
+  begin
+    x := WaitForSingleObject(FHandle, FDeadlockTimeout);
+    if x = WAIT_TIMEOUT then
+    begin
+      PurgeComm(FHandle, PURGE_TXABORT);
+      SetSynaError(ErrTimeout);
+    end;
+    GetOverlappedResult(FHandle, Overlapped, Dword(Result), False);
+  end
+  else
+    SetSynaError(y);
+  ClearCommError(FHandle, err, nil);
+  if err <> 0 then
+    DecodeCommError(err);
+{$ENDIF}
+  if FRTSToggle then
+  begin
+    Flush;
+    CanWrite(255);
+    RTS := False;
+  end;
+  ExceptCheck;
+  DoStatus(HR_WriteCount, IntToStr(Result));
+end;
+
+procedure TBlockSerial.SendByte(data: byte);
+begin
+  SendBuffer(@Data, 1);
+end;
+
+procedure TBlockSerial.SendString(data: string);
+begin
+  SendBuffer(Pointer(Data), Length(Data));
+end;
+
+procedure TBlockSerial.SendInteger(Data: integer);
+begin
+  SendBuffer(@data, SizeOf(Data));
+end;
+
+procedure TBlockSerial.SendBlock(const Data: string);
+begin
+  SendInteger(Length(data));
+  SendString(Data);
+end;
+
+procedure TBlockSerial.SendStreamRaw(const Stream: TStream);
+var
+  si: integer;
+  x, y, yr: integer;
+  s: string;
+begin
+  si := Stream.Size - Stream.Position;
+  x := 0;
+  while x < si do
+  begin
+    y := si - x;
+    if y > cSerialChunk then
+      y := cSerialChunk;
+    Setlength(s, y);
+    yr := Stream.read(Pchar(s)^, y);
+    if yr > 0 then
+    begin
+      SetLength(s, yr);
+      SendString(s);
+      Inc(x, yr);
+    end
+    else
+      break;
+  end;
+end;
+
+procedure TBlockSerial.SendStreamIndy(const Stream: TStream);
+var
+  si: integer;
+begin
+  si := Stream.Size - Stream.Position;
+  si := Swapbytes(si);
+  SendInteger(si);
+  SendStreamRaw(Stream);
+end;
+
+procedure TBlockSerial.SendStream(const Stream: TStream);
+var
+  si: integer;
+begin
+  si := Stream.Size - Stream.Position;
+  SendInteger(si);
+  SendStreamRaw(Stream);
+end;
+
+function TBlockSerial.RecvBuffer(buffer: pointer; length: integer): integer;
+{$IFNDEF WIN32}
+begin
+  Result := 0;
+  if PreTestFailing then   {HGJ}
+    Exit;                  {HGJ}
+  LimitBandwidth(Length, FMaxRecvBandwidth, FNextRecv);
+  result := FileRead(integer(FHandle), Buffer^, length);
+  serialcheck(result);
+{$ELSE}
+var
+  Overlapped: TOverlapped;
+  x, y, Err: DWord;
+begin
+  Result := 0;
+  if PreTestFailing then   {HGJ}
+    Exit;                  {HGJ}
+  LimitBandwidth(Length, FMaxRecvBandwidth, FNextRecv);
+  FillChar(Overlapped, Sizeof(Overlapped), 0);
+  SetSynaError(sOK);
+  y := 0;
+  if not ReadFile(FHandle, Buffer^, length, Dword(Result), @Overlapped) then
+    y := GetLastError;
+  if y = ERROR_IO_PENDING then
+  begin
+    x := WaitForSingleObject(FHandle, FDeadlockTimeout);
+    if x = WAIT_TIMEOUT then
+    begin
+      PurgeComm(FHandle, PURGE_RXABORT);
+      SetSynaError(ErrTimeout);
+    end;
+    GetOverlappedResult(FHandle, Overlapped, Dword(Result), False);
+  end
+  else
+    SetSynaError(y);
+  ClearCommError(FHandle, err, nil);
+  if err <> 0 then
+    DecodeCommError(err);
+{$ENDIF}
+  ExceptCheck;
+  DoStatus(HR_ReadCount, IntToStr(Result));
+end;
+
+function TBlockSerial.RecvBufferEx(buffer: pointer; length: integer; timeout: integer): integer;
+var
+  s: string;
+  rl, l: integer;
+  ti: LongWord;
+begin
+  Result := 0;
+  if PreTestFailing then   {HGJ}
+    Exit;                  {HGJ}
+  SetSynaError(sOK);
+  rl := 0;
+  repeat
+    ti := GetTick;
+    s := RecvPacket(Timeout);
+    l := System.Length(s);
+    if (rl + l) > Length then
+      l := Length - rl;
+    Move(Pointer(s)^, IncPoint(Buffer, rl)^, l);
+    rl := rl + l;
+    if FLastError <> sOK then
+      Break;
+    if rl >= Length then
+      Break;
+    if not FInterPacketTimeout then
+    begin
+      Timeout := Timeout - integer(TickDelta(ti, GetTick));
+      if Timeout <= 0 then
+      begin
+        SetSynaError(ErrTimeout);
+        Break;
+      end;
+    end;
+  until False;
+  delete(s, 1, l);
+  FBuffer := s;
+  Result := rl;
+end;
+
+function TBlockSerial.RecvBufferStr(Length: Integer; Timeout: Integer): string;
+var
+  x: integer;
+begin
+  Result := '';
+  if PreTestFailing then   {HGJ}
+    Exit;                  {HGJ}
+  SetSynaError(sOK);
+  if Length > 0 then
+  begin
+    Setlength(Result, Length);
+    x := RecvBufferEx(PChar(Result), Length , Timeout);
+    if FLastError = sOK then
+      SetLength(Result, x)
+    else
+      Result := '';
+  end;
+end;
+
+function TBlockSerial.RecvPacket(Timeout: Integer): string;
+var
+  x: integer;
+begin
+  Result := '';
+  if PreTestFailing then   {HGJ}
+    Exit;                  {HGJ}
+  SetSynaError(sOK);
+  if FBuffer <> '' then
+  begin
+    Result := FBuffer;
+    FBuffer := '';
+  end
+  else
+  begin
+    //not drain CPU on large downloads...
+    Sleep(0);
+    x := WaitingData;
+    if x > 0 then
+    begin
+      SetLength(Result, x);
+      x := RecvBuffer(Pointer(Result), x);
+      if x >= 0 then
+        SetLength(Result, x);
+    end
+    else
+    begin
+      if CanRead(Timeout) then
+      begin
+        x := WaitingData;
+        if x = 0 then
+          SetSynaError(ErrTimeout);
+        if x > 0 then
+        begin
+          SetLength(Result, x);
+          x := RecvBuffer(Pointer(Result), x);
+          if x >= 0 then
+            SetLength(Result, x);
+        end;
+      end
+      else
+        SetSynaError(ErrTimeout);
+    end;
+  end;
+  ExceptCheck;
+end;
+
+
+function TBlockSerial.RecvByte(timeout: integer): byte;
+begin
+  Result := 0;
+  if PreTestFailing then   {HGJ}
+    Exit;                  {HGJ}
+  SetSynaError(sOK);
+  if FBuffer = '' then
+    FBuffer := RecvPacket(Timeout);
+  if (FLastError = sOK) and (FBuffer <> '') then
+  begin
+    Result := Ord(FBuffer[1]);
+    System.Delete(FBuffer, 1, 1);
+  end;
+  ExceptCheck;
+end;
+
+function TBlockSerial.RecvTerminated(Timeout: Integer; const Terminator: string): string;
+var
+  x: Integer;
+  s: string;
+  l: Integer;
+  CorCRLF: Boolean;
+  t: ansistring;
+  tl: integer;
+  ti: LongWord;
+begin
+  Result := '';
+  if PreTestFailing then   {HGJ}
+    Exit;                  {HGJ}
+  SetSynaError(sOK);
+  l := system.Length(Terminator);
+  if l = 0 then
+    Exit;
+  tl := l;
+  CorCRLF := FConvertLineEnd and (Terminator = CRLF);
+  s := '';
+  x := 0;
+  repeat
+    ti := GetTick;
+    //get rest of FBuffer or incomming new data...
+    s := s + RecvPacket(Timeout);
+    if FLastError <> sOK then
+      Break;
+    x := 0;
+    if Length(s) > 0 then
+      if CorCRLF then
+      begin
+        if FLastCR and (s[1] = LF) then
+          Delete(s, 1, 1);
+        if FLastLF and (s[1] = CR) then
+          Delete(s, 1, 1);
+        FLastCR := False;
+        FLastLF := False;
+        t := '';
+        x := PosCRLF(s, t);
+        tl := system.Length(t);
+        if t = CR then
+          FLastCR := True;
+        if t = LF then
+          FLastLF := True;
+      end
+      else
+      begin
+        x := pos(Terminator, s);
+        tl := l;
+      end;
+    if (FMaxLineLength <> 0) and (system.Length(s) > FMaxLineLength) then
+    begin
+      SetSynaError(ErrMaxBuffer);
+      Break;
+    end;
+    if x > 0 then
+      Break;
+    if not FInterPacketTimeout then
+    begin
+      Timeout := Timeout - integer(TickDelta(ti, GetTick));
+      if Timeout <= 0 then
+      begin
+        SetSynaError(ErrTimeout);
+        Break;
+      end;
+    end;
+  until False;
+  if x > 0 then
+  begin
+    Result := Copy(s, 1, x - 1);
+    System.Delete(s, 1, x + tl - 1);
+  end;
+  FBuffer := s;
+  ExceptCheck;
+end;
+
+
+function TBlockSerial.RecvString(Timeout: Integer): string;
+var
+  s: string;
+begin
+  Result := '';
+  s := RecvTerminated(Timeout, #13 + #10);
+  if FLastError = sOK then
+    Result := s;
+end;
+
+function TBlockSerial.RecvInteger(Timeout: Integer): Integer;
+var
+  s: string;
+begin
+  Result := 0;
+  s := RecvBufferStr(4, Timeout);
+  if FLastError = 0 then
+    Result := (ord(s[1]) + ord(s[2]) * 256) + (ord(s[3]) + ord(s[4]) * 256) * 65536;
+end;
+
+function TBlockSerial.RecvBlock(Timeout: Integer): string;
+var
+  x: integer;
+begin
+  Result := '';
+  x := RecvInteger(Timeout);
+  if FLastError = 0 then
+    Result := RecvBufferStr(x, Timeout);
+end;
+
+procedure TBlockSerial.RecvStreamRaw(const Stream: TStream; Timeout: Integer);
+var
+  s: string;
+begin
+  repeat
+    s := RecvPacket(Timeout);
+    if FLastError = 0 then
+      WriteStrToStream(Stream, s);
+  until FLastError <> 0;
+end;
+
+procedure TBlockSerial.RecvStreamSize(const Stream: TStream; Timeout: Integer; Size: Integer);
+var
+  s: string;
+  n: integer;
+begin
+  for n := 1 to (Size div cSerialChunk) do
+  begin
+    s := RecvBufferStr(cSerialChunk, Timeout);
+    if FLastError <> 0 then
+      Exit;
+    Stream.Write(Pchar(s)^, cSerialChunk);
+  end;
+  n := Size mod cSerialChunk;
+  if n > 0 then
+  begin
+    s := RecvBufferStr(n, Timeout);
+    if FLastError <> 0 then
+      Exit;
+    Stream.Write(Pchar(s)^, n);
+  end;
+end;
+
+procedure TBlockSerial.RecvStreamIndy(const Stream: TStream; Timeout: Integer);
+var
+  x: integer;
+begin
+  x := RecvInteger(Timeout);
+  x := SwapBytes(x);
+  if FLastError = 0 then
+    RecvStreamSize(Stream, Timeout, x);
+end;
+
+procedure TBlockSerial.RecvStream(const Stream: TStream; Timeout: Integer);
+var
+  x: integer;
+begin
+  x := RecvInteger(Timeout);
+  if FLastError = 0 then
+    RecvStreamSize(Stream, Timeout, x);
+end;
+
+{$IFNDEF WIN32}
+function TBlockSerial.WaitingData: integer;
+begin
+{$IFNDEF FPC}
+  serialcheck(ioctl(integer(FHandle), FIONREAD, @result));
+{$ELSE}
+  serialcheck(fpIoctl(FHandle, FIONREAD, @result));
+{$ENDIF}
+  if FLastError <> 0 then
+    Result := 0;
+  ExceptCheck;
+end;
+{$ELSE}
+function TBlockSerial.WaitingData: integer;
+var
+  stat: TComStat;
+  err: DWORD;
+begin
+  if ClearCommError(FHandle, err, @stat) then
+  begin
+    SetSynaError(sOK);
+    Result := stat.cbInQue;
+  end
+  else
+  begin
+    SerialCheck(sErr);
+    Result := 0;
+  end;
+  ExceptCheck;
+end;
+{$ENDIF}
+
+function TBlockSerial.WaitingDataEx: integer;
+begin
+	if FBuffer <> '' then
+  	Result := Length(FBuffer)
+  else
+  	Result := Waitingdata;
+end;
+
+{$IFNDEF WIN32}
+function TBlockSerial.SendingData: integer;
+begin
+  SetSynaError(sOK);
+  Result := 0;
+end;
+{$ELSE}
+function TBlockSerial.SendingData: integer;
+var
+  stat: TComStat;
+  err: DWORD;
+begin
+  SetSynaError(sOK);
+  if not ClearCommError(FHandle, err, @stat) then
+    serialcheck(sErr);
+  ExceptCheck;
+  result := stat.cbOutQue;
+end;
+{$ENDIF}
+
+{$IFNDEF WIN32}
+procedure TBlockSerial.DcbToTermios(const dcb: TDCB; var term: termios);
+var
+  n: integer;
+  x: cardinal;
+begin
+  //others
+  cfmakeraw(term);
+  term.c_cflag := term.c_cflag or CREAD;
+  term.c_cflag := term.c_cflag or CLOCAL;
+  term.c_cflag := term.c_cflag or HUPCL;
+  //hardware handshake
+  if (dcb.flags and dcb_RtsControlHandshake) > 0 then
+    term.c_cflag := term.c_cflag or CRTSCTS
+  else
+    term.c_cflag := term.c_cflag and (not CRTSCTS);
+  //software handshake
+  if (dcb.flags and dcb_OutX) > 0 then
+    term.c_iflag := term.c_iflag or IXON or IXOFF or IXANY
+  else
+    term.c_iflag := term.c_iflag and (not (IXON or IXOFF or IXANY));
+  //size of byte
+  term.c_cflag := term.c_cflag and (not CSIZE);
+  case dcb.bytesize of
+    5:
+      term.c_cflag := term.c_cflag or CS5;
+    6:
+      term.c_cflag := term.c_cflag or CS6;
+    7:
+{$IFDEF FPC}
+      term.c_cflag := term.c_cflag or CS7;
+{$ELSE}
+      term.c_cflag := term.c_cflag or CS7fix;
+{$ENDIF}
+    8:
+      term.c_cflag := term.c_cflag or CS8;
+  end;
+  //parity
+  if (dcb.flags and dcb_ParityCheck) > 0 then
+    term.c_cflag := term.c_cflag or PARENB
+  else
+    term.c_cflag := term.c_cflag and (not PARENB);
+  case dcb.parity of
+    1: //'O'
+      term.c_cflag := term.c_cflag or PARODD;
+    2: //'E'
+      term.c_cflag := term.c_cflag and (not PARODD);
+  end;
+  //stop bits
+  if dcb.stopbits > 0 then
+    term.c_cflag := term.c_cflag or CSTOPB
+  else
+    term.c_cflag := term.c_cflag and (not CSTOPB);
+  //set baudrate;
+  x := 0;
+  for n := 0 to Maxrates do
+    if rates[n, 0] = dcb.BaudRate then
+    begin
+      x := rates[n, 1];
+      break;
+    end;
+  cfsetospeed(term, x);
+  cfsetispeed(term, x);
+end;
+
+procedure TBlockSerial.TermiosToDcb(const term: termios; var dcb: TDCB);
+var
+  n: integer;
+  x: cardinal;
+begin
+  //set baudrate;
+  dcb.baudrate := 0;
+ {$IFDEF FPC}
+  //why FPC not have cfgetospeed???
+  x := term.c_oflag and $0F;
+ {$ELSE}
+  x := cfgetospeed(term);
+ {$ENDIF}
+  for n := 0 to Maxrates do
+    if rates[n, 1] = x then
+    begin
+      dcb.baudrate := rates[n, 0];
+      break;
+    end;
+  //hardware handshake
+  if (term.c_cflag and CRTSCTS) > 0 then
+    dcb.flags := dcb.flags or dcb_RtsControlHandshake or dcb_OutxCtsFlow
+  else
+    dcb.flags := dcb.flags and (not (dcb_RtsControlHandshake or dcb_OutxCtsFlow));
+  //software handshake
+  if (term.c_cflag and IXOFF) > 0 then
+    dcb.flags := dcb.flags or dcb_OutX or dcb_InX
+  else
+    dcb.flags := dcb.flags and (not (dcb_OutX or dcb_InX));
+  //size of byte
+  case term.c_cflag and CSIZE of
+    CS5:
+      dcb.bytesize := 5;
+    CS6:
+      dcb.bytesize := 6;
+    CS7fix:
+      dcb.bytesize := 7;
+    CS8:
+      dcb.bytesize := 8;
+  end;
+  //parity
+  if (term.c_cflag and PARENB) > 0 then
+    dcb.flags := dcb.flags or dcb_ParityCheck
+  else
+    dcb.flags := dcb.flags and (not dcb_ParityCheck);
+  dcb.parity := 0;
+  if (term.c_cflag and PARODD) > 0 then
+    dcb.parity := 1
+  else
+    dcb.parity := 2;
+  //stop bits
+  if (term.c_cflag and CSTOPB) > 0 then
+    dcb.stopbits := 2
+  else
+    dcb.stopbits := 0;
+end;
+{$ENDIF}
+
+{$IFNDEF WIN32}
+procedure TBlockSerial.SetCommState;
+begin
+  DcbToTermios(dcb, termiosstruc);
+  SerialCheck(tcsetattr(integer(FHandle), TCSANOW, termiosstruc));
+  ExceptCheck;
+end;
+{$ELSE}
+procedure TBlockSerial.SetCommState;
+begin
+  SetSynaError(sOK);
+  if not windows.SetCommState(Fhandle, dcb) then
+    SerialCheck(sErr);
+  ExceptCheck;
+end;
+{$ENDIF}
+
+{$IFNDEF WIN32}
+procedure TBlockSerial.GetCommState;
+begin
+  SerialCheck(tcgetattr(integer(FHandle), termiosstruc));
+  ExceptCheck;
+  TermiostoDCB(termiosstruc, dcb);
+end;
+{$ELSE}
+procedure TBlockSerial.GetCommState;
+begin
+  SetSynaError(sOK);
+  if not windows.GetCommState(Fhandle, dcb) then
+    SerialCheck(sErr);
+  ExceptCheck;
+end;
+{$ENDIF}
+
+procedure TBlockSerial.SetSizeRecvBuffer(size: integer);
+begin
+{$IFDEF WIN32}
+  SetupComm(Fhandle, size, 0);
+  GetCommState;
+  dcb.XonLim := size div 4;
+  dcb.XoffLim := size div 4;
+  SetCommState;
+{$ENDIF}
+  FRecvBuffer := size;
+end;
+
+function TBlockSerial.GetDSR: Boolean;
+begin
+  ModemStatus;
+{$IFNDEF WIN32}
+  Result := (FModemWord and TIOCM_DSR) > 0;
+{$ELSE}
+  Result := (FModemWord and MS_DSR_ON) > 0;
+{$ENDIF}
+end;
+
+procedure TBlockSerial.SetDTRF(Value: Boolean);
+begin
+{$IFNDEF WIN32}
+  ModemStatus;
+  if Value then
+    FModemWord := FModemWord or TIOCM_DTR
+  else
+    FModemWord := FModemWord and not TIOCM_DTR;
+  {$IFNDEF FPC}
+  ioctl(integer(FHandle), TIOCMSET, @FModemWord);
+  {$ELSE}
+  fpioctl(integer(FHandle), TIOCMSET, @FModemWord);
+  {$ENDIF}
+{$ELSE}
+  if Value then
+    EscapeCommFunction(FHandle, SETDTR)
+  else
+    EscapeCommFunction(FHandle, CLRDTR);
+{$ENDIF}
+end;
+
+function TBlockSerial.GetCTS: Boolean;
+begin
+  ModemStatus;
+{$IFNDEF WIN32}
+  Result := (FModemWord and TIOCM_CTS) > 0;
+{$ELSE}
+  Result := (FModemWord and MS_CTS_ON) > 0;
+{$ENDIF}
+end;
+
+procedure TBlockSerial.SetRTSF(Value: Boolean);
+begin
+{$IFNDEF WIN32}
+  ModemStatus;
+  if Value then
+    FModemWord := FModemWord or TIOCM_RTS
+  else
+    FModemWord := FModemWord and not TIOCM_RTS;
+  {$IFNDEF FPC}
+  ioctl(integer(FHandle), TIOCMSET, @FModemWord);
+  {$ELSE}
+  fpioctl(integer(FHandle), TIOCMSET, @FModemWord);
+  {$ENDIF}
+{$ELSE}
+  if Value then
+    EscapeCommFunction(FHandle, SETRTS)
+  else
+    EscapeCommFunction(FHandle, CLRRTS);
+{$ENDIF}
+end;
+
+function TBlockSerial.GetCarrier: Boolean;
+begin
+  ModemStatus;
+{$IFNDEF WIN32}
+  Result := (FModemWord and TIOCM_CAR) > 0;
+{$ELSE}
+  Result := (FModemWord and MS_RLSD_ON) > 0;
+{$ENDIF}
+end;
+
+function TBlockSerial.GetRing: Boolean;
+begin
+  ModemStatus;
+{$IFNDEF WIN32}
+  Result := (FModemWord and TIOCM_RNG) > 0;
+{$ELSE}
+  Result := (FModemWord and MS_RING_ON) > 0;
+{$ENDIF}
+end;
+
+{$IFDEF WIN32}
+function TBlockSerial.CanEvent(Event: dword; Timeout: integer): boolean;
+var
+  ex: DWord;
+  y: Integer;
+  Overlapped: TOverlapped;
+begin
+  FillChar(Overlapped, Sizeof(Overlapped), 0);
+  Overlapped.hEvent := CreateEvent(nil, True, False, nil);
+  try
+    SetCommMask(FHandle, Event);
+    SetSynaError(sOK);
+    if (Event = EV_RXCHAR) and (Waitingdata > 0) then
+      Result := True
+    else
+    begin
+      y := 0;
+      if not WaitCommEvent(FHandle, ex, @Overlapped) then
+        y := GetLastError;
+      if y = ERROR_IO_PENDING then
+      begin
+        //timedout
+        WaitForSingleObject(Overlapped.hEvent, Timeout);
+        SetCommMask(FHandle, 0);
+        GetOverlappedResult(FHandle, Overlapped, DWord(y), True);
+      end;
+      Result := (ex and Event) = Event;
+    end;
+  finally
+    SetCommMask(FHandle, 0);
+    CloseHandle(Overlapped.hEvent);
+  end;
+end;
+{$ENDIF}
+
+{$IFNDEF WIN32}
+function TBlockSerial.CanRead(Timeout: integer): boolean;
+var
+  FDSet: TFDSet;
+  TimeVal: PTimeVal;
+  TimeV: TTimeVal;
+  x: Integer;
+begin
+  TimeV.tv_usec := (Timeout mod 1000) * 1000;
+  TimeV.tv_sec := Timeout div 1000;
+  TimeVal := @TimeV;
+  if Timeout = -1 then
+    TimeVal := nil;
+  {$IFNDEF FPC}
+  FD_ZERO(FDSet);
+  FD_SET(integer(FHandle), FDSet);
+  x := Select(integer(FHandle) + 1, @FDSet, nil, nil, TimeVal);
+  {$ELSE}
+  fpFD_ZERO(FDSet);
+  fpFD_SET(integer(FHandle), FDSet);
+  x := fpSelect(integer(FHandle) + 1, @FDSet, nil, nil, TimeVal);
+  {$ENDIF}
+  SerialCheck(x);
+  if FLastError <> sOK then
+    x := 0;
+  Result := x > 0;
+  ExceptCheck;
+  if Result then
+    DoStatus(HR_CanRead, '');
+end;
+{$ELSE}
+function TBlockSerial.CanRead(Timeout: integer): boolean;
+begin
+  Result := WaitingData > 0;
+  if not Result then
+    Result := CanEvent(EV_RXCHAR, Timeout);
+  if Result then
+    DoStatus(HR_CanRead, '');
+end;
+{$ENDIF}
+
+{$IFNDEF WIN32}
+function TBlockSerial.CanWrite(Timeout: integer): boolean;
+var
+  FDSet: TFDSet;
+  TimeVal: PTimeVal;
+  TimeV: TTimeVal;
+  x: Integer;
+begin
+  TimeV.tv_usec := (Timeout mod 1000) * 1000;
+  TimeV.tv_sec := Timeout div 1000;
+  TimeVal := @TimeV;
+  if Timeout = -1 then
+    TimeVal := nil;
+  {$IFNDEF FPC}
+  FD_ZERO(FDSet);
+  FD_SET(integer(FHandle), FDSet);
+  x := Select(integer(FHandle) + 1, nil, @FDSet, nil, TimeVal);
+  {$ELSE}
+  fpFD_ZERO(FDSet);
+  fpFD_SET(integer(FHandle), FDSet);
+  x := fpSelect(integer(FHandle) + 1, nil, @FDSet, nil, TimeVal);
+  {$ENDIF}
+  SerialCheck(x);
+  if FLastError <> sOK then
+    x := 0;
+  Result := x > 0;
+  ExceptCheck;
+  if Result then
+    DoStatus(HR_CanWrite, '');
+end;
+{$ELSE}
+function TBlockSerial.CanWrite(Timeout: integer): boolean;
+var
+  t: LongWord;
+begin
+  Result := SendingData = 0;
+  if not Result then
+	  Result := CanEvent(EV_TXEMPTY, Timeout);
+  if Result and (Win32Platform <> VER_PLATFORM_WIN32_NT) then
+  begin
+    t := GetTick;
+    while not ReadTxEmpty(FPortAddr) do
+    begin
+      if TickDelta(t, GetTick) > 255 then
+        Break;
+      Sleep(0);
+    end;
+  end;
+  if Result then
+    DoStatus(HR_CanWrite, '');
+end;
+{$ENDIF}
+
+function TBlockSerial.CanReadEx(Timeout: integer): boolean;
+begin
+	if Fbuffer <> '' then
+  	Result := True
+  else
+  	Result := CanRead(Timeout);
+end;
+
+procedure TBlockSerial.EnableRTSToggle(Value: boolean);
+begin
+  SetSynaError(sOK);
+{$IFNDEF WIN32}
+  FRTSToggle := Value;
+  if Value then
+    RTS:=False;
+{$ELSE}
+  if Win32Platform = VER_PLATFORM_WIN32_NT then
+  begin
+    GetCommState;
+    if value then
+      dcb.Flags := dcb.Flags or dcb_RtsControlToggle
+    else
+      dcb.flags := dcb.flags and (not dcb_RtsControlToggle);
+    SetCommState;
+  end
+  else
+  begin
+    FRTSToggle := Value;
+    if Value then
+      RTS:=False;
+  end;
+{$ENDIF}
+end;
+
+procedure TBlockSerial.Flush;
+begin
+{$IFNDEF WIN32}
+  SerialCheck(tcdrain(integer(FHandle)));
+{$ELSE}
+  SetSynaError(sOK);
+  if not Flushfilebuffers(FHandle) then
+    SerialCheck(sErr);
+{$ENDIF}
+  ExceptCheck;
+end;
+
+{$IFNDEF WIN32}
+procedure TBlockSerial.Purge;
+begin
+  {$IFNDEF FPC}
+  SerialCheck(ioctl(integer(FHandle), TCFLSH, TCIOFLUSH));
+  {$ELSE}
+  SerialCheck(fpioctl(integer(FHandle), TCFLSH, TCIOFLUSH));
+  {$ENDIF}
+  FBuffer := '';
+  ExceptCheck;
+end;
+{$ELSE}
+procedure TBlockSerial.Purge;
+var
+  x: integer;
+begin
+  SetSynaError(sOK);
+  x := PURGE_TXABORT or PURGE_TXCLEAR or PURGE_RXABORT or PURGE_RXCLEAR;
+  if not PurgeComm(FHandle, x) then
+    SerialCheck(sErr);
+  FBuffer := '';
+  ExceptCheck;
+end;
+{$ENDIF}
+
+function TBlockSerial.ModemStatus: integer;
+begin
+  Result := 0;
+{$IFNDEF WIN32}
+  {$IFNDEF FPC}
+  SerialCheck(ioctl(integer(FHandle), TIOCMGET, @Result));
+  {$ELSE}
+  SerialCheck(fpioctl(integer(FHandle), TIOCMGET, @Result));
+  {$ENDIF}
+{$ELSE}
+  SetSynaError(sOK);
+  if not GetCommModemStatus(FHandle, dword(Result)) then
+    SerialCheck(sErr);
+{$ENDIF}
+  ExceptCheck;
+  FModemWord := Result;
+end;
+
+procedure TBlockSerial.SetBreak(Duration: integer);
+begin
+{$IFNDEF WIN32}
+  SerialCheck(tcsendbreak(integer(FHandle), Duration));
+{$ELSE}
+  SetCommBreak(FHandle);
+  Sleep(Duration);
+  SetSynaError(sOK);
+  if not ClearCommBreak(FHandle) then
+    SerialCheck(sErr);
+{$ENDIF}
+end;
+
+{$IFDEF WIN32}
+procedure TBlockSerial.DecodeCommError(Error: DWord);
+begin
+  if (Error and DWord(CE_FRAME)) > 1 then
+    FLastError := ErrFrame;
+  if (Error and DWord(CE_OVERRUN)) > 1 then
+    FLastError := ErrOverrun;
+  if (Error and DWord(CE_RXOVER)) > 1 then
+    FLastError := ErrRxOver;
+  if (Error and DWord(CE_RXPARITY)) > 1 then
+    FLastError := ErrRxParity;
+  if (Error and DWord(CE_TXFULL)) > 1 then
+    FLastError := ErrTxFull;
+end;
+{$ENDIF}
+
+//HGJ
+function TBlockSerial.PreTestFailing: Boolean;
+begin
+  if not FInstanceActive then
+  begin
+    RaiseSynaError(ErrPortNotOpen);
+    result:= true;
+    Exit;
+  end;
+  Result := not TestCtrlLine;
+  if result then
+    RaiseSynaError(ErrNoDeviceAnswer)
+end;
+
+function TBlockSerial.TestCtrlLine: Boolean;
+begin
+  result := ((not FTestDSR) or DSR) and ((not FTestCTS) or CTS);
+end;
+
+function TBlockSerial.ATCommand(value: string): string;
+var
+  s: string;
+  ConvSave: Boolean;
+begin
+  result := '';
+  FAtResult := False;
+  ConvSave := FConvertLineEnd;
+  try
+    FConvertLineEnd := True;
+    SendString(value + #$0D);
+    repeat
+      s := RecvString(FAtTimeout);
+      if s <> Value then
+        result := result + s + CRLF;
+      if s = 'OK' then
+      begin
+        FAtResult := True;
+        break;
+      end;
+      if s = 'ERROR' then
+        break;
+    until FLastError <> sOK;
+  finally
+    FConvertLineEnd := Convsave;
+  end;
+end;
+
+
+function TBlockSerial.ATConnect(value: string): string;
+var
+  s: string;
+  ConvSave: Boolean;
+begin
+  result := '';
+  FAtResult := False;
+  ConvSave := FConvertLineEnd;
+  try
+    FConvertLineEnd := True;
+    SendString(value + #$0D);
+    repeat
+      s := RecvString(90 * FAtTimeout);
+      if s <> Value then
+        result := result + s + CRLF;
+      if s = 'NO CARRIER' then
+        break;
+      if s = 'ERROR' then
+        break;
+      if s = 'BUSY' then
+        break;
+      if s = 'NO DIALTONE' then
+        break;
+      if Pos('CONNECT', s) = 1 then
+      begin
+        FAtResult := True;
+        break;
+      end;
+    until FLastError <> sOK;
+  finally
+    FConvertLineEnd := Convsave;
+  end;
+end;
+
+function TBlockSerial.SerialCheck(SerialResult: integer): integer;
+begin
+  if SerialResult = integer(INVALID_HANDLE_VALUE) then
+{$IFDEF WIN32}
+    result := GetLastError
+{$ELSE}
+  {$IFNDEF FPC}
+    result := GetLastError
+  {$ELSE}
+    result := fpGetErrno
+  {$ENDIF}
+{$ENDIF}
+  else
+    result := sOK;
+  FLastError := result;
+  FLastErrorDesc := GetErrorDesc(FLastError);
+end;
+
+procedure TBlockSerial.ExceptCheck;
+var
+  e: ESynaSerError;
+  s: string;
+begin
+  if FRaiseExcept and (FLastError <> sOK) then
+  begin
+    s := GetErrorDesc(FLastError);
+    e := ESynaSerError.CreateFmt('Communication error %d: %s', [FLastError, s]);
+    e.ErrorCode := FLastError;
+    e.ErrorMessage := s;
+    raise e;
+  end;
+end;
+
+procedure TBlockSerial.SetSynaError(ErrNumber: integer);
+begin
+  FLastError := ErrNumber;
+  FLastErrorDesc := GetErrorDesc(FLastError);
+end;
+
+procedure TBlockSerial.RaiseSynaError(ErrNumber: integer);
+begin
+  SetSynaError(ErrNumber);
+  ExceptCheck;
+end;
+
+procedure TBlockSerial.DoStatus(Reason: THookSerialReason; const Value: string);
+begin
+  if assigned(OnStatus) then
+    OnStatus(Self, Reason, Value);
+end;
+
+{======================================================================}
+
+class function TBlockSerial.GetErrorDesc(ErrorCode: integer): string;
+begin
+  Result:= '';
+  case ErrorCode of
+    sOK:               Result := 'OK';
+    ErrAlreadyOwned:   Result := 'Port owned by other process';{HGJ}
+    ErrAlreadyInUse:   Result := 'Instance already in use';    {HGJ}
+    ErrWrongParameter: Result := 'Wrong paramter at call';     {HGJ}
+    ErrPortNotOpen:    Result := 'Instance not yet connected'; {HGJ}
+    ErrNoDeviceAnswer: Result := 'No device answer detected';  {HGJ}
+    ErrMaxBuffer:      Result := 'Maximal buffer length exceeded';
+    ErrTimeout:        Result := 'Timeout during operation';
+    ErrNotRead:        Result := 'Reading of data failed';
+    ErrFrame:          Result := 'Receive framing error';
+    ErrOverrun:        Result := 'Receive Overrun Error';
+    ErrRxOver:         Result := 'Receive Queue overflow';
+    ErrRxParity:       Result := 'Receive Parity Error';
+    ErrTxFull:         Result := 'Tranceive Queue is full';
+  end;
+  if Result = '' then
+  begin
+    Result := SysErrorMessage(ErrorCode);
+  end;
+end;
+
+
+{---------- cpom Comport Ownership Manager Routines -------------
+ by Hans-Georg Joepgen of Stuttgart, Germany.
+ Copyright (c) 2002, by Hans-Georg Joepgen
+
+  Stefan Krauss of Stuttgart, Germany, contributed literature and Internet
+  research results, invaluable advice and excellent answers to the Comport
+  Ownership Manager.
+}
+
+{$IFDEF LINUX}
+
+function TBlockSerial.LockfileName: String;
+var
+  s: string;
+begin
+  s := SeparateRight(FDevice, '/dev/');
+  result := LockfileDirectory + '/LCK..' + s;
+end;
+
+procedure TBlockSerial.CreateLockfile(PidNr: integer);
+var
+  f: TextFile;
+  s: string;
+begin
+  // Create content for file
+  s := IntToStr(PidNr);
+  while length(s) < 10 do
+    s := ' ' + s;
+  // Create file
+  try
+    AssignFile(f, LockfileName);
+    try
+      Rewrite(f);
+      writeln(f, s);
+    finally
+      CloseFile(f);
+    end;
+    // Allow all users to enjoy the benefits of cpom
+    s := 'chmod a+rw ' + LockfileName;
+{$IFNDEF FPC}
+    Libc.system(pchar(s));
+{$ELSE}
+    fpSystem(s);
+{$ENDIF}
+  except
+    // not raise exception, if you not have write permission for lock.
+    on Exception do
+      ;
+  end;
+end;
+
+function TBlockSerial.ReadLockfile: integer;
+{Returns PID from Lockfile. Lockfile must exist.}
+var
+  f: TextFile;
+  s: string;
+begin
+  AssignFile(f, LockfileName);
+  Reset(f);
+  try
+    readln(f, s);
+  finally
+    CloseFile(f);
+  end;
+  Result := StrToIntDef(s, -1)
+end;
+
+function TBlockSerial.cpomComportAccessible: boolean;
+var
+  MyPid: integer;
+  Filename: string;
+begin
+  Filename := LockfileName;
+  {$IFNDEF FPC}
+  MyPid := Libc.getpid;
+  {$ELSE}
+  MyPid := fpGetPid;
+  {$ENDIF}
+  // Make sure, the Lock Files Directory exists. We need it.
+  if not DirectoryExists(LockfileDirectory) then
+    CreateDir(LockfileDirectory);
+  // Check the Lockfile
+  if not FileExists (Filename) then
+  begin // comport is not locked. Lock it for us.
+    CreateLockfile(MyPid);
+    result := true;
+    exit;  // done.
+  end;
+  // Is port owned by orphan? Then it's time for error recovery.
+  //FPC forgot to add getsid.. :-(
+  {$IFNDEF FPC}
+  if Libc.getsid(ReadLockfile) = -1 then
+  begin //  Lockfile was left from former desaster
+    DeleteFile(Filename); // error recovery
+    CreateLockfile(MyPid);
+    result := true;
+    exit;
+  end;
+  {$ENDIF}
+  result := false // Sorry, port is owned by living PID and locked
+end;
+
+procedure TBlockSerial.cpomReleaseComport;
+begin
+  DeleteFile(LockfileName);
+end;
+
+{$ENDIF}
+{----------------------------------------------------------------}
+
+{$IFDEF WIN32}
+function GetSerialPortNames: string;
+var
+  reg: TRegistry;
+  l, v: TStringList;
+  n: integer;
+begin
+  l := TStringList.Create;
+  v := TStringList.Create;
+  reg := TRegistry.Create;
+  try
+{$IFNDEF VER100}
+{$IFNDEF VER120}
+    reg.Access := KEY_READ;
+{$ENDIF}
+{$ENDIF}
+    reg.RootKey := HKEY_LOCAL_MACHINE;
+    reg.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', false);
+    reg.GetValueNames(l);
+    for n := 0 to l.Count - 1 do
+      v.Add(reg.ReadString(l[n]));
+    Result := v.CommaText;
+  finally
+    reg.Free;
+    l.Free;
+    v.Free;
+  end;
+end;
+{$ENDIF}
+{$IFNDEF WIN32}
+function GetSerialPortNames: string;
+var
+  Index: Integer;
+  Data: string;
+  TmpPorts: String;
+  sr : TSearchRec;
+begin
+  try
+    TmpPorts := '';
+    if FindFirst('/dev/ttyS*', $FFFFFFFF, sr) = 0 then
+    begin
+      repeat
+        if (sr.Attr and $FFFFFFFF) = Sr.Attr then
+        begin
+          data := sr.Name;
+          index := length(data);
+          while (index > 1) and (data[index] <> '/') do
+            index := index - 1;
+          TmpPorts := TmpPorts + ' ' + copy(data, 1, index + 1);
+        end;
+      until FindNext(sr) <> 0;
+    end;
+    FindClose(sr);
+  finally
+    Result:=TmpPorts;
+  end;
+end;
+{$ENDIF}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synautil.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synautil.pas
new file mode 100644
index 0000000..30e5ecd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synautil.pas	
@@ -0,0 +1,1808 @@
+{$IFDEF WIN64}{$DEFINE WIN32}{$ENDIF}
+{==============================================================================|
+| Project : Ararat Synapse                                       | 004.013.000 |
+|==============================================================================|
+| Content: support procedures and functions                                    |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c) 1999-2008.               |
+| Portions created by Hernan Sanchez are Copyright (c) 2000.                   |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|   Hernan Sanchez (hernan.sanchez@iname.com)                                  |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(Support procedures and functions)}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$Q-}
+{$R-}
+{$H+}
+
+unit synautil;
+
+interface
+
+uses
+{$IFDEF WIN32}
+  Windows,
+{$ELSE}
+  {$IFDEF FPC}
+  UnixUtil, Unix, BaseUnix,
+  {$ELSE}
+  Libc,
+  {$ENDIF}
+{$ENDIF}
+{$IFDEF CIL}
+  System.IO,
+{$ENDIF}
+  SysUtils, Classes, SynaFpc;
+
+{$IFDEF VER100}
+type
+  int64 = integer;
+{$ENDIF}
+
+{:Return your timezone bias from UTC time in minutes.}
+function TimeZoneBias: integer;
+
+{:Return your timezone bias from UTC time in string representation like "+0200".}
+function TimeZone: string;
+
+{:Returns current time in format defined in RFC-822. Useful for SMTP messages,
+ but other protocols use this time format as well. Results contains the timezone
+ specification. Four digit year is used to break any Y2K concerns. (Example
+ 'Fri, 15 Oct 1999 21:14:56 +0200')}
+function Rfc822DateTime(t: TDateTime): string;
+
+{:Returns date and time in format defined in C compilers in format "mmm dd hh:nn:ss"}
+function CDateTime(t: TDateTime): string;
+
+{:Returns date and time in format defined in format 'yymmdd hhnnss'}
+function SimpleDateTime(t: TDateTime): string;
+
+{:Returns date and time in format defined in ANSI C compilers in format
+ "ddd mmm d hh:nn:ss yyyy" }
+function AnsiCDateTime(t: TDateTime): string;
+
+{:Decode three-letter string with name of month to their month number. If string
+ not match any month name, then is returned 0. For parsing are used predefined
+ names for English, French and German and names from system locale too.}
+function GetMonthNumber(Value: AnsiString): integer;
+
+{:Return decoded time from given string. Time must be witch separator ':'. You
+ can use "hh:mm" or "hh:mm:ss".}
+function GetTimeFromStr(Value: string): TDateTime;
+
+{:Decode string in format "m-d-y" to TDateTime type.}
+function GetDateMDYFromStr(Value: string): TDateTime;
+
+{:Decode various string representations of date and time to Tdatetime type.
+ This function do all timezone corrections too! This function can decode lot of
+  formats like:
+ @longcode(#
+ ddd, d mmm yyyy hh:mm:ss
+ ddd, d mmm yy hh:mm:ss
+ ddd, mmm d yyyy hh:mm:ss
+ ddd mmm dd hh:mm:ss yyyy #)
+
+and more with lot of modifications, include:
+@longcode(#
+Sun, 06 Nov 1994 08:49:37 GMT    ; RFC 822, updated by RFC 1123
+Sunday, 06-Nov-94 08:49:37 GMT   ; RFC 850, obsoleted by RFC 1036
+Sun Nov  6 08:49:37 1994         ; ANSI C's asctime() Format
+#)
+Timezone corrections known lot of symbolic timezone names (like CEST, EDT, etc.)
+or numeric representation (like +0200). By convention defined in RFC timezone
+ +0000 is GMT and -0000 is current your system timezone.}
+function DecodeRfcDateTime(Value: string): TDateTime;
+
+{:Return current system date and time in UTC timezone.}
+function GetUTTime: TDateTime;
+
+{:Set Newdt as current system date and time in UTC timezone. This function work
+ only if you have administrator rights!}
+function SetUTTime(Newdt: TDateTime): Boolean;
+
+{:Return current value of system timer with precizion 1 millisecond. Good for
+ measure time difference.}
+function GetTick: LongWord;
+
+{:Return difference between two timestamps. It working fine only for differences
+ smaller then maxint. (difference must be smaller then 24 days.)}
+function TickDelta(TickOld, TickNew: LongWord): LongWord;
+
+{:Return two characters, which ordinal values represents the value in byte
+ format. (High-endian)}
+function CodeInt(Value: Word): Ansistring;
+
+{:Decodes two characters located at "Index" offset position of the "Value"
+ string to Word values.}
+function DecodeInt(const Value: Ansistring; Index: Integer): Word;
+
+{:Return four characters, which ordinal values represents the value in byte
+ format. (High-endian)}
+function CodeLongInt(Value: LongInt): Ansistring;
+
+{:Decodes four characters located at "Index" offset position of the "Value"
+ string to LongInt values.}
+function DecodeLongInt(const Value: Ansistring; Index: Integer): LongInt;
+
+{:Dump binary buffer stored in a string to a result string.}
+function DumpStr(const Buffer: Ansistring): string;
+
+{:Dump binary buffer stored in a string to a result string. All bytes with code
+ of character is written as character, not as hexadecimal value.}
+function DumpExStr(const Buffer: Ansistring): string;
+
+{:Dump binary buffer stored in a string to a file with DumpFile filename.}
+procedure Dump(const Buffer: AnsiString; DumpFile: string);
+
+{:Dump binary buffer stored in a string to a file with DumpFile filename. All
+ bytes with code of character is written as character, not as hexadecimal value.}
+procedure DumpEx(const Buffer: AnsiString; DumpFile: string);
+
+{:Like TrimLeft, but remove only spaces, not control characters!}
+function TrimSPLeft(const S: string): string;
+
+{:Like TrimRight, but remove only spaces, not control characters!}
+function TrimSPRight(const S: string): string;
+
+{:Like Trim, but remove only spaces, not control characters!}
+function TrimSP(const S: string): string;
+
+{:Returns a portion of the "Value" string located to the left of the "Delimiter"
+ string. If a delimiter is not found, results is original string.}
+function SeparateLeft(const Value, Delimiter: string): string;
+
+{:Returns the portion of the "Value" string located to the right of the
+ "Delimiter" string. If a delimiter is not found, results is original string.}
+function SeparateRight(const Value, Delimiter: string): string;
+
+{:Returns parameter value from string in format:
+ parameter1="value1"; parameter2=value2}
+function GetParameter(const Value, Parameter: string): string;
+
+{:parse value string with elements differed by Delimiter into stringlist.}
+procedure ParseParametersEx(Value, Delimiter: string; const Parameters: TStrings);
+
+{:parse value string with elements differed by ';' into stringlist.}
+procedure ParseParameters(Value: string; const Parameters: TStrings);
+
+{:Index of string in stringlist with same beginning as Value is returned.}
+function IndexByBegin(Value: string; const List: TStrings): integer;
+
+{:Returns only the e-mail portion of an address from the full address format.
+ i.e. returns 'nobody@@somewhere.com' from '"someone" <nobody@@somewhere.com>'}
+function GetEmailAddr(const Value: string): string;
+
+{:Returns only the description part from a full address format. i.e. returns
+ 'someone' from '"someone" <nobody@@somewhere.com>'}
+function GetEmailDesc(Value: string): string;
+
+{:Returns a string with hexadecimal digits representing the corresponding values
+ of the bytes found in "Value" string.}
+function StrToHex(const Value: Ansistring): string;
+
+{:Returns a string of binary "Digits" representing "Value".}
+function IntToBin(Value: Integer; Digits: Byte): string;
+
+{:Returns an integer equivalent of the binary string in "Value".
+ (i.e. ('10001010') returns 138)}
+function BinToInt(const Value: string): Integer;
+
+{:Parses a URL to its various components.}
+function ParseURL(URL: string; var Prot, User, Pass, Host, Port, Path,
+  Para: string): string;
+
+{:Replaces all "Search" string values found within "Value" string, with the
+ "Replace" string value.}
+function ReplaceString(Value, Search, Replace: AnsiString): AnsiString;
+
+{:It is like RPos, but search is from specified possition.}
+function RPosEx(const Sub, Value: string; From: integer): Integer;
+
+{:It is like POS function, but from right side of Value string.}
+function RPos(const Sub, Value: String): Integer;
+
+{:Like @link(fetch), but working with binary strings, not with text.}
+function FetchBin(var Value: string; const Delimiter: string): string;
+
+{:Fetch string from left of Value string.}
+function Fetch(var Value: string; const Delimiter: string): string;
+
+{:Fetch string from left of Value string. This function ignore delimitesr inside
+ quotations.}
+function FetchEx(var Value: string; const Delimiter, Quotation: string): string;
+
+{:If string is binary string (contains non-printable characters), then is
+ returned true.}
+function IsBinaryString(const Value: string): Boolean;
+
+{:return position of string terminator in string. If terminator found, then is
+ returned in terminator parameter.
+ Possible line terminators are: CRLF, LFCR, CR, LF}
+function PosCRLF(const Value: AnsiString; var Terminator: AnsiString): integer;
+
+{:Delete empty strings from end of stringlist.}
+Procedure StringsTrim(const value: TStrings);
+
+{:Like Pos function, buf from given string possition.}
+function PosFrom(const SubStr, Value: String; From: integer): integer;
+
+{$IFNDEF CIL}
+{:Increase pointer by value.}
+function IncPoint(const p: pointer; Value: integer): pointer;
+{$ENDIF}
+
+{:Get string between PairBegin and PairEnd. This function respect nesting.
+ For example:
+ @longcode(#
+ Value is: 'Hi! (hello(yes!))'
+ pairbegin is: '('
+ pairend is: ')'
+ In this case result is: 'hello(yes!)'#)}
+function GetBetween(const PairBegin, PairEnd, Value: string): string;
+
+{:Return count of Chr in Value string.}
+function CountOfChar(const Value: string; Chr: char): integer;
+
+{:Remove quotation from Value string. If Value is not quoted, then return same
+ string without any modification. }
+function UnquoteStr(const Value: string; Quote: Char): string;
+
+{:Quote Value string. If Value contains some Quote chars, then it is doubled.}
+function QuoteStr(const Value: string; Quote: Char): string;
+
+{:Convert lines in stringlist from 'name: value' form to 'name=value' form.}
+procedure HeadersToList(const Value: TStrings);
+
+{:Convert lines in stringlist from 'name=value' form to 'name: value' form.}
+procedure ListToHeaders(const Value: TStrings);
+
+{:swap bytes in integer.}
+function SwapBytes(Value: integer): integer;
+
+{:read string with requested length form stream.}
+function ReadStrFromStream(const Stream: TStream; len: integer): AnsiString;
+
+{:write string to stream.}
+procedure WriteStrToStream(const Stream: TStream; Value: AnsiString);
+
+{:Return filename of new temporary file in Dir (if empty, then default temporary
+ directory is used) and with optional filename prefix.}
+function GetTempFile(const Dir, prefix: AnsiString): AnsiString;
+
+{:Return padded string. If length is greater, string is truncated. If length is
+ smaller, string is padded by Pad character.}
+function PadString(const Value: AnsiString; len: integer; Pad: AnsiChar): AnsiString;
+
+{:Read header from "Value" stringlist beginning at "Index" position. If header
+ is Splitted into multiple lines, then this procedure de-split it into one line.}
+function NormalizeHeader(Value: TStrings; var Index: Integer): string;
+
+var
+  {:can be used for your own months strings for @link(getmonthnumber)}
+  CustomMonthNames: array[1..12] of string;
+
+implementation
+
+{==============================================================================}
+
+const
+  MyDayNames: array[1..7] of AnsiString =
+    ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
+var
+  MyMonthNames: array[0..6, 1..12] of AnsiString =
+    (
+    ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',  //rewrited by system locales
+     'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'),
+    ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',  //English
+     'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'),
+    ('jan', 'f�v', 'mar', 'avr', 'mai', 'jun', //French
+     'jul', 'ao�', 'sep', 'oct', 'nov', 'd�c'),
+    ('jan', 'fev', 'mar', 'avr', 'mai', 'jun',  //French#2
+     'jul', 'aou', 'sep', 'oct', 'nov', 'dec'),
+    ('Jan', 'Feb', 'Mar', 'Apr', 'Mai', 'Jun',  //German
+     'Jul', 'Aug', 'Sep', 'Okt', 'Nov', 'Dez'),
+    ('Jan', 'Feb', 'M�r', 'Apr', 'Mai', 'Jun',  //German#2
+     'Jul', 'Aug', 'Sep', 'Okt', 'Nov', 'Dez'),
+    ('Led', '�no', 'B�e', 'Dub', 'Kv�', '�en',  //Czech
+     '�ec', 'Srp', 'Z��', '��j', 'Lis', 'Pro')
+     );
+
+
+{==============================================================================}
+
+function TimeZoneBias: integer;
+{$IFNDEF WIN32}
+{$IFNDEF FPC}
+var
+  t: TTime_T;
+  UT: TUnixTime;
+begin
+  __time(@T);
+  localtime_r(@T, UT);
+  Result := ut.__tm_gmtoff div 60;
+{$ELSE}
+begin
+  Result := TZSeconds div 60;
+{$ENDIF}
+{$ELSE}
+var
+  zoneinfo: TTimeZoneInformation;
+  bias: Integer;
+begin
+  case GetTimeZoneInformation(Zoneinfo) of
+    2:
+      bias := zoneinfo.Bias + zoneinfo.DaylightBias;
+    1:
+      bias := zoneinfo.Bias + zoneinfo.StandardBias;
+  else
+    bias := zoneinfo.Bias;
+  end;
+  Result := bias * (-1);
+{$ENDIF}
+end;
+
+{==============================================================================}
+
+function TimeZone: string;
+var
+  bias: Integer;
+  h, m: Integer;
+begin
+  bias := TimeZoneBias;
+  if bias >= 0 then
+    Result := '+'
+  else
+    Result := '-';
+  bias := Abs(bias);
+  h := bias div 60;
+  m := bias mod 60;
+  Result := Result + Format('%.2d%.2d', [h, m]);
+end;
+
+{==============================================================================}
+
+function Rfc822DateTime(t: TDateTime): string;
+var
+  wYear, wMonth, wDay: word;
+begin
+  DecodeDate(t, wYear, wMonth, wDay);
+  Result := Format('%s, %d %s %s %s', [MyDayNames[DayOfWeek(t)], wDay,
+    MyMonthNames[1, wMonth], FormatDateTime('yyyy hh":"nn":"ss', t), TimeZone]);
+end;
+
+{==============================================================================}
+
+function CDateTime(t: TDateTime): string;
+var
+  wYear, wMonth, wDay: word;
+begin
+  DecodeDate(t, wYear, wMonth, wDay);
+  Result:= Format('%s %2d %s', [MyMonthNames[1, wMonth], wDay,
+    FormatDateTime('hh":"nn":"ss', t)]);
+end;
+
+{==============================================================================}
+
+function SimpleDateTime(t: TDateTime): string;
+begin
+  Result := FormatDateTime('yymmdd hhnnss', t);
+end;
+
+{==============================================================================}
+
+function AnsiCDateTime(t: TDateTime): string;
+var
+  wYear, wMonth, wDay: word;
+begin
+  DecodeDate(t, wYear, wMonth, wDay);
+  Result := Format('%s %s %d %s', [MyDayNames[DayOfWeek(t)], MyMonthNames[1, wMonth],
+    wDay, FormatDateTime('hh":"nn":"ss yyyy ', t)]);
+end;
+
+{==============================================================================}
+
+function DecodeTimeZone(Value: string; var Zone: integer): Boolean;
+var
+  x: integer;
+  zh, zm: integer;
+  s: string;
+begin
+  Result := false;
+  s := Value;
+  if (Pos('+', s) = 1) or (Pos('-',s) = 1) then
+  begin
+    if s = '-0000' then
+      Zone := TimeZoneBias
+    else
+      if Length(s) > 4 then
+      begin
+        zh := StrToIntdef(s[2] + s[3], 0);
+        zm := StrToIntdef(s[4] + s[5], 0);
+        zone := zh * 60 + zm;
+        if s[1] = '-' then
+          zone := zone * (-1);
+      end;
+    Result := True;
+  end
+  else
+  begin
+    x := 32767;
+    if s = 'NZDT' then x := 13;
+    if s = 'IDLE' then x := 12;
+    if s = 'NZST' then x := 12;
+    if s = 'NZT' then x := 12;
+    if s = 'EADT' then x := 11;
+    if s = 'GST' then x := 10;
+    if s = 'JST' then x := 9;
+    if s = 'CCT' then x := 8;
+    if s = 'WADT' then x := 8;
+    if s = 'WAST' then x := 7;
+    if s = 'ZP6' then x := 6;
+    if s = 'ZP5' then x := 5;
+    if s = 'ZP4' then x := 4;
+    if s = 'BT' then x := 3;
+    if s = 'EET' then x := 2;
+    if s = 'MEST' then x := 2;
+    if s = 'MESZ' then x := 2;
+    if s = 'SST' then x := 2;
+    if s = 'FST' then x := 2;
+    if s = 'CEST' then x := 2;
+    if s = 'CET' then x := 1;
+    if s = 'FWT' then x := 1;
+    if s = 'MET' then x := 1;
+    if s = 'MEWT' then x := 1;
+    if s = 'SWT' then x := 1;
+    if s = 'UT' then x := 0;
+    if s = 'UTC' then x := 0;
+    if s = 'GMT' then x := 0;
+    if s = 'WET' then x := 0;
+    if s = 'WAT' then x := -1;
+    if s = 'BST' then x := -1;
+    if s = 'AT' then x := -2;
+    if s = 'ADT' then x := -3;
+    if s = 'AST' then x := -4;
+    if s = 'EDT' then x := -4;
+    if s = 'EST' then x := -5;
+    if s = 'CDT' then x := -5;
+    if s = 'CST' then x := -6;
+    if s = 'MDT' then x := -6;
+    if s = 'MST' then x := -7;
+    if s = 'PDT' then x := -7;
+    if s = 'PST' then x := -8;
+    if s = 'YDT' then x := -8;
+    if s = 'YST' then x := -9;
+    if s = 'HDT' then x := -9;
+    if s = 'AHST' then x := -10;
+    if s = 'CAT' then x := -10;
+    if s = 'HST' then x := -10;
+    if s = 'EAST' then x := -10;
+    if s = 'NT' then x := -11;
+    if s = 'IDLW' then x := -12;
+    if x <> 32767 then
+    begin
+      zone := x * 60;
+      Result := True;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+function GetMonthNumber(Value: AnsiString): integer;
+var
+  n: integer;
+  function TestMonth(Value: AnsiString; Index: Integer): Boolean;
+  var
+    n: integer;
+  begin
+    Result := False;
+    for n := 0 to 6 do
+      if Value = AnsiUppercase(MyMonthNames[n, Index]) then
+      begin
+        Result := True;
+        Break;
+      end;
+  end;
+begin
+  Result := 0;
+  Value := AnsiUppercase(Value);
+  for n := 1 to 12 do
+    if TestMonth(Value, n) or (Value = AnsiUppercase(CustomMonthNames[n])) then
+    begin
+      Result := n;
+      Break;
+    end;
+end;
+
+{==============================================================================}
+
+function GetTimeFromStr(Value: string): TDateTime;
+var
+  x: integer;
+begin
+  x := rpos(':', Value);
+  if (x > 0) and ((Length(Value) - x) > 2) then
+    Value := Copy(Value, 1, x + 2);
+  Value := ReplaceString(Value, ':', TimeSeparator);
+  Result := -1;
+  try
+    Result := StrToTime(Value);
+  except
+    on Exception do ;
+  end;
+end;
+
+{==============================================================================}
+
+function GetDateMDYFromStr(Value: string): TDateTime;
+var
+  wYear, wMonth, wDay: word;
+  s: string;
+begin
+  Result := 0;
+  s := Fetch(Value, '-');
+  wMonth := StrToIntDef(s, 12);
+  s := Fetch(Value, '-');
+  wDay := StrToIntDef(s, 30);
+  wYear := StrToIntDef(Value, 1899);
+  if wYear < 1000 then
+    if (wYear > 99) then
+      wYear := wYear + 1900
+    else
+      if wYear > 50 then
+        wYear := wYear + 1900
+      else
+        wYear := wYear + 2000;
+  try
+    Result := EncodeDate(wYear, wMonth, wDay);
+  except
+    on Exception do ;
+  end;
+end;
+
+{==============================================================================}
+
+function DecodeRfcDateTime(Value: string): TDateTime;
+var
+  day, month, year: Word;
+  zone: integer;
+  x, y: integer;
+  s: string;
+  t: TDateTime;
+begin
+// ddd, d mmm yyyy hh:mm:ss
+// ddd, d mmm yy hh:mm:ss
+// ddd, mmm d yyyy hh:mm:ss
+// ddd mmm dd hh:mm:ss yyyy
+// Sun, 06 Nov 1994 08:49:37 GMT    ; RFC 822, updated by RFC 1123
+// Sunday, 06-Nov-94 08:49:37 GMT   ; RFC 850, obsoleted by RFC 1036
+// Sun Nov  6 08:49:37 1994         ; ANSI C's asctime() Format
+
+  Result := 0;
+  if Value = '' then
+    Exit;
+  day := 0;
+  month := 0;
+  year := 0;
+  zone := 0;
+  Value := ReplaceString(Value, ' -', ' #');
+  Value := ReplaceString(Value, '-', ' ');
+  Value := ReplaceString(Value, ' #', ' -');
+  while Value <> '' do
+  begin
+    s := Fetch(Value, ' ');
+    s := uppercase(s);
+    // timezone
+    if DecodetimeZone(s, x) then
+    begin
+      zone := x;
+      continue;
+    end;
+    x := StrToIntDef(s, 0);
+    // day or year
+    if x > 0 then
+      if (x < 32) and (day = 0) then
+      begin
+        day := x;
+        continue;
+      end
+      else
+      begin
+        if (year = 0) and ((month > 0) or (x > 12)) then
+        begin
+          year := x;
+          if year < 32 then
+            year := year + 2000;
+          if year < 1000 then
+           year := year + 1900;
+          continue;
+        end;
+      end;
+    // time
+    if rpos(':', s) > Pos(':', s) then
+    begin
+      t := GetTimeFromStr(s);
+      if t <> -1 then
+        Result := t;
+      continue;
+    end;
+    //timezone daylight saving time
+    if s = 'DST' then
+    begin
+      zone := zone + 60;
+      continue;
+    end;
+    // month
+    y := GetMonthNumber(s);
+    if (y > 0) and (month = 0) then
+      month := y;
+  end;
+  if year = 0 then
+    year := 1980;
+  if month < 1 then
+    month := 1;
+  if month > 12 then
+    month := 12;
+  if day < 1 then
+    day := 1;
+  x := MonthDays[IsLeapYear(year), month];
+  if day > x then
+    day := x;
+  Result := Result + Encodedate(year, month, day);
+  zone := zone - TimeZoneBias;
+  x := zone div 1440;
+  Result := Result - x;
+  zone := zone mod 1440;
+  t := EncodeTime(Abs(zone) div 60, Abs(zone) mod 60, 0, 0);
+  if zone < 0 then
+    t := 0 - t;
+  Result := Result - t;
+end;
+
+{==============================================================================}
+
+function GetUTTime: TDateTime;
+{$IFDEF WIN32}
+{$IFNDEF FPC}
+var
+  st: TSystemTime;
+begin
+  GetSystemTime(st);
+  result := SystemTimeToDateTime(st);
+{$ELSE}
+var
+  st: SysUtils.TSystemTime;
+  stw: Windows.TSystemTime;
+begin
+  GetSystemTime(stw);
+  st.Year := stw.wYear;
+  st.Month := stw.wMonth;
+  st.Day := stw.wDay;
+  st.Hour := stw.wHour;
+  st.Minute := stw.wMinute;
+  st.Second := stw.wSecond;
+  st.Millisecond := stw.wMilliseconds;
+  result := SystemTimeToDateTime(st);
+{$ENDIF}
+{$ELSE}
+{$IFNDEF FPC}
+var
+  TV: TTimeVal;
+begin
+  gettimeofday(TV, nil);
+  Result := UnixDateDelta + (TV.tv_sec + TV.tv_usec / 1000000) / 86400;
+{$ELSE}
+var
+  TV: TimeVal;
+begin
+  fpgettimeofday(@TV, nil);
+  Result := UnixDateDelta + (TV.tv_sec + TV.tv_usec / 1000000) / 86400;
+{$ENDIF}
+{$ENDIF}
+end;
+
+{==============================================================================}
+
+function SetUTTime(Newdt: TDateTime): Boolean;
+{$IFDEF WIN32}
+{$IFNDEF FPC}
+var
+  st: TSystemTime;
+begin
+  DateTimeToSystemTime(newdt,st);
+  Result := SetSystemTime(st);
+{$ELSE}
+var
+  st: SysUtils.TSystemTime;
+  stw: Windows.TSystemTime;
+begin
+  DateTimeToSystemTime(newdt,st);
+  stw.wYear := st.Year;
+  stw.wMonth := st.Month;
+  stw.wDay := st.Day;
+  stw.wHour := st.Hour;
+  stw.wMinute := st.Minute;
+  stw.wSecond := st.Second;
+  stw.wMilliseconds := st.Millisecond;
+  Result := SetSystemTime(stw);
+{$ENDIF}
+{$ELSE}
+{$IFNDEF FPC}
+var
+  TV: TTimeVal;
+  d: double;
+  TZ: Ttimezone;
+  PZ: PTimeZone;
+begin
+  TZ.tz_minuteswest := 0;
+  TZ.tz_dsttime := 0;
+  PZ := @TZ;
+  gettimeofday(TV, PZ);
+  d := (newdt - UnixDateDelta) * 86400;
+  TV.tv_sec := trunc(d);
+  TV.tv_usec := trunc(frac(d) * 1000000);
+  Result := settimeofday(TV, TZ) <> -1;
+{$ELSE}
+var
+  TV: TimeVal;
+  d: double;
+begin
+  d := (newdt - UnixDateDelta) * 86400;
+  TV.tv_sec := trunc(d);
+  TV.tv_usec := trunc(frac(d) * 1000000);
+  Result := fpsettimeofday(@TV, nil) <> -1;
+{$ENDIF}
+{$ENDIF}
+end;
+
+{==============================================================================}
+
+{$IFNDEF WIN32}
+function GetTick: LongWord;
+var
+  Stamp: TTimeStamp;
+begin
+  Stamp := DateTimeToTimeStamp(Now);
+  Result := Stamp.Time;
+end;
+{$ELSE}
+function GetTick: LongWord;
+var
+  tick, freq: TLargeInteger;
+{$IFDEF VER100}
+  x: TLargeInteger;
+{$ENDIF}
+begin
+  if Windows.QueryPerformanceFrequency(freq) then
+  begin
+    Windows.QueryPerformanceCounter(tick);
+{$IFDEF VER100}
+    x.QuadPart := (tick.QuadPart / freq.QuadPart) * 1000;
+    Result := x.LowPart;
+{$ELSE}
+    Result := Trunc((tick / freq) * 1000) and High(LongWord)
+{$ENDIF}
+  end
+  else
+    Result := Windows.GetTickCount;
+end;
+{$ENDIF}
+
+{==============================================================================}
+
+function TickDelta(TickOld, TickNew: LongWord): LongWord;
+begin
+//if DWord is signed type (older Deplhi),
+// then it not work properly on differencies larger then maxint!
+  Result := 0;
+  if TickOld <> TickNew then
+  begin
+    if TickNew < TickOld then
+    begin
+      TickNew := TickNew + LongWord(MaxInt) + 1;
+      TickOld := TickOld + LongWord(MaxInt) + 1;
+    end;
+    Result := TickNew - TickOld;
+    if TickNew < TickOld then
+      if Result > 0 then
+        Result := 0 - Result;
+  end;
+end;
+
+{==============================================================================}
+
+function CodeInt(Value: Word): Ansistring;
+begin
+  setlength(result, 2);
+  result[1] := AnsiChar(Value div 256);
+  result[2] := AnsiChar(Value mod 256);
+//  Result := AnsiChar(Value div 256) + AnsiChar(Value mod 256)
+end;
+
+{==============================================================================}
+
+function DecodeInt(const Value: Ansistring; Index: Integer): Word;
+var
+  x, y: Byte;
+begin
+  if Length(Value) > Index then
+    x := Ord(Value[Index])
+  else
+    x := 0;
+  if Length(Value) >= (Index + 1) then
+    y := Ord(Value[Index + 1])
+  else
+    y := 0;
+  Result := x * 256 + y;
+end;
+
+{==============================================================================}
+
+function CodeLongInt(Value: Longint): Ansistring;
+var
+  x, y: word;
+begin
+  // this is fix for negative numbers on systems where longint = integer
+  x := (Value shr 16) and integer($ffff);
+  y := Value and integer($ffff);
+  setlength(result, 4);
+  result[1] := AnsiChar(x div 256);
+  result[2] := AnsiChar(x mod 256);
+  result[3] := AnsiChar(y div 256);
+  result[4] := AnsiChar(y mod 256);
+end;
+
+{==============================================================================}
+
+function DecodeLongInt(const Value: Ansistring; Index: Integer): LongInt;
+var
+  x, y: Byte;
+  xl, yl: Byte;
+begin
+  if Length(Value) > Index then
+    x := Ord(Value[Index])
+  else
+    x := 0;
+  if Length(Value) >= (Index + 1) then
+    y := Ord(Value[Index + 1])
+  else
+    y := 0;
+  if Length(Value) >= (Index + 2) then
+    xl := Ord(Value[Index + 2])
+  else
+    xl := 0;
+  if Length(Value) >= (Index + 3) then
+    yl := Ord(Value[Index + 3])
+  else
+    yl := 0;
+  Result := ((x * 256 + y) * 65536) + (xl * 256 + yl);
+end;
+
+{==============================================================================}
+
+function DumpStr(const Buffer: Ansistring): string;
+var
+  n: Integer;
+begin
+  Result := '';
+  for n := 1 to Length(Buffer) do
+    Result := Result + ' +#$' + IntToHex(Ord(Buffer[n]), 2);
+end;
+
+{==============================================================================}
+
+function DumpExStr(const Buffer: Ansistring): string;
+var
+  n: Integer;
+  x: Byte;
+begin
+  Result := '';
+  for n := 1 to Length(Buffer) do
+  begin
+    x := Ord(Buffer[n]);
+    if x in [65..90, 97..122] then
+      Result := Result + ' +''' + char(x) + ''''
+    else
+      Result := Result + ' +#$' + IntToHex(Ord(Buffer[n]), 2);
+  end;
+end;
+
+{==============================================================================}
+
+procedure Dump(const Buffer: AnsiString; DumpFile: string);
+var
+  f: Text;
+begin
+  AssignFile(f, DumpFile);
+  if FileExists(DumpFile) then
+    DeleteFile(DumpFile);
+  Rewrite(f);
+  try
+    Writeln(f, DumpStr(Buffer));
+  finally
+    CloseFile(f);
+  end;
+end;
+
+{==============================================================================}
+
+procedure DumpEx(const Buffer: AnsiString; DumpFile: string);
+var
+  f: Text;
+begin
+  AssignFile(f, DumpFile);
+  if FileExists(DumpFile) then
+    DeleteFile(DumpFile);
+  Rewrite(f);
+  try
+    Writeln(f, DumpExStr(Buffer));
+  finally
+    CloseFile(f);
+  end;
+end;
+
+{==============================================================================}
+
+function TrimSPLeft(const S: string): string;
+var
+  I, L: Integer;
+begin
+  Result := '';
+  if S = '' then
+    Exit;
+  L := Length(S);
+  I := 1;
+  while (I <= L) and (S[I] = ' ') do
+    Inc(I);
+  Result := Copy(S, I, Maxint);
+end;
+
+{==============================================================================}
+
+function TrimSPRight(const S: string): string;
+var
+  I: Integer;
+begin
+  Result := '';
+  if S = '' then
+    Exit;
+  I := Length(S);
+  while (I > 0) and (S[I] = ' ') do
+    Dec(I);
+  Result := Copy(S, 1, I);
+end;
+
+{==============================================================================}
+
+function TrimSP(const S: string): string;
+begin
+  Result := TrimSPLeft(s);
+  Result := TrimSPRight(Result);
+end;
+
+{==============================================================================}
+
+function SeparateLeft(const Value, Delimiter: string): string;
+var
+  x: Integer;
+begin
+  x := Pos(Delimiter, Value);
+  if x < 1 then
+    Result := Value
+  else
+    Result := Copy(Value, 1, x - 1);
+end;
+
+{==============================================================================}
+
+function SeparateRight(const Value, Delimiter: string): string;
+var
+  x: Integer;
+begin
+  x := Pos(Delimiter, Value);
+  if x > 0 then
+    x := x + Length(Delimiter) - 1;
+  Result := Copy(Value, x + 1, Length(Value) - x);
+end;
+
+{==============================================================================}
+
+function GetParameter(const Value, Parameter: string): string;
+var
+  s: string;
+  v: string;
+begin
+  Result := '';
+  v := Value;
+  while v <> '' do
+  begin
+    s := Trim(FetchEx(v, ';', '"'));
+    if Pos(Uppercase(parameter), Uppercase(s)) = 1 then
+    begin                       
+      Delete(s, 1, Length(Parameter));
+      s := Trim(s);
+      if s = '' then
+        Break;
+      if s[1] = '=' then
+      begin
+        Result := Trim(SeparateRight(s, '='));
+        Result := UnquoteStr(Result, '"');
+        break;
+      end;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+procedure ParseParametersEx(Value, Delimiter: string; const Parameters: TStrings);
+var
+  s: string;
+begin
+  Parameters.Clear;
+  while Value <> '' do
+  begin
+    s := Trim(FetchEx(Value, Delimiter, '"'));
+    Parameters.Add(s);
+  end;
+end;
+
+{==============================================================================}
+
+procedure ParseParameters(Value: string; const Parameters: TStrings);
+begin
+  ParseParametersEx(Value, ';', Parameters);
+end;
+
+{==============================================================================}
+
+function IndexByBegin(Value: string; const List: TStrings): integer;
+var
+  n: integer;
+  s: string;
+begin
+  Result := -1;
+  Value := uppercase(Value);
+  for n := 0 to List.Count -1 do
+  begin
+    s := UpperCase(List[n]);
+    if Pos(Value, s) = 1 then
+    begin
+      Result := n;
+      Break;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+function GetEmailAddr(const Value: string): string;
+var
+  s: string;
+begin
+  s := SeparateRight(Value, '<');
+  s := SeparateLeft(s, '>');
+  Result := Trim(s);
+end;
+
+{==============================================================================}
+
+function GetEmailDesc(Value: string): string;
+var
+  s: string;
+begin
+  Value := Trim(Value);
+  s := SeparateRight(Value, '"');
+  if s <> Value then
+    s := SeparateLeft(s, '"')
+  else
+  begin
+    s := SeparateLeft(Value, '<');
+    if s = Value then
+    begin
+      s := SeparateRight(Value, '(');
+      if s <> Value then
+        s := SeparateLeft(s, ')')
+      else
+        s := '';
+    end;
+  end;
+  Result := Trim(s);
+end;
+
+{==============================================================================}
+
+function StrToHex(const Value: Ansistring): string;
+var
+  n: Integer;
+begin
+  Result := '';
+  for n := 1 to Length(Value) do
+    Result := Result + IntToHex(Byte(Value[n]), 2);
+  Result := LowerCase(Result);
+end;
+
+{==============================================================================}
+
+function IntToBin(Value: Integer; Digits: Byte): string;
+var
+  x, y, n: Integer;
+begin
+  Result := '';
+  x := Value;
+  repeat
+    y := x mod 2;
+    x := x div 2;
+    if y > 0 then
+      Result := '1' + Result
+    else
+      Result := '0' + Result;
+  until x = 0;
+  x := Length(Result);
+  for n := x to Digits - 1 do
+    Result := '0' + Result;
+end;
+
+{==============================================================================}
+
+function BinToInt(const Value: string): Integer;
+var
+  n: Integer;
+begin
+  Result := 0;
+  for n := 1 to Length(Value) do
+  begin
+    if Value[n] = '0' then
+      Result := Result * 2
+    else
+      if Value[n] = '1' then
+        Result := Result * 2 + 1
+      else
+        Break;
+  end;
+end;
+
+{==============================================================================}
+
+function ParseURL(URL: string; var Prot, User, Pass, Host, Port, Path,
+  Para: string): string;
+var
+  x, y: Integer;
+  sURL: string;
+  s: string;
+  s1, s2: string;
+begin
+  Prot := 'http';
+  User := '';
+  Pass := '';
+  Port := '80';
+  Para := '';
+
+  x := Pos('://', URL);
+  if x > 0 then
+  begin
+    Prot := SeparateLeft(URL, '://');
+    sURL := SeparateRight(URL, '://');
+  end
+  else
+    sURL := URL;
+  if UpperCase(Prot) = 'HTTPS' then
+    Port := '443';
+  if UpperCase(Prot) = 'FTP' then
+    Port := '21';
+  x := Pos('@', sURL);
+  y := Pos('/', sURL);
+  if (x > 0) and ((x < y) or (y < 1))then
+  begin
+    s := SeparateLeft(sURL, '@');
+    sURL := SeparateRight(sURL, '@');
+    x := Pos(':', s);
+    if x > 0 then
+    begin
+      User := SeparateLeft(s, ':');
+      Pass := SeparateRight(s, ':');
+    end
+    else
+      User := s;
+  end;
+  x := Pos('/', sURL);
+  if x > 0 then
+  begin
+    s1 := SeparateLeft(sURL, '/');
+    s2 := SeparateRight(sURL, '/');
+  end
+  else
+  begin
+    s1 := sURL;
+    s2 := '';
+  end;
+  if Pos('[', s1) = 1 then
+  begin
+    Host := Separateleft(s1, ']');
+    Delete(Host, 1, 1);
+    s1 := SeparateRight(s1, ']');
+    if Pos(':', s1) = 1 then
+      Port := SeparateRight(s1, ':');
+  end
+  else
+  begin
+    x := Pos(':', s1);
+    if x > 0 then
+    begin
+      Host := SeparateLeft(s1, ':');
+      Port := SeparateRight(s1, ':');
+    end
+    else
+      Host := s1;
+  end;
+  Result := '/' + s2;
+  x := Pos('?', s2);
+  if x > 0 then
+  begin
+    Path := '/' + SeparateLeft(s2, '?');
+    Para := SeparateRight(s2, '?');
+  end
+  else
+    Path := '/' + s2;
+  if Host = '' then
+    Host := 'localhost';
+end;
+
+{==============================================================================}
+
+function ReplaceString(Value, Search, Replace: AnsiString): AnsiString;
+var
+  x, l, ls, lr: Integer;
+begin
+  if (Value = '') or (Search = '') then
+  begin
+    Result := Value;
+    Exit;
+  end;
+  ls := Length(Search);
+  lr := Length(Replace);
+  Result := '';
+  x := Pos(Search, Value);
+  while x > 0 do
+  begin
+    {$IFNDEF CIL}
+    l := Length(Result);
+    SetLength(Result, l + x - 1);
+    Move(Pointer(Value)^, Pointer(@Result[l + 1])^, x - 1);
+    {$ELSE}
+    Result:=Result+Copy(Value,1,x-1);
+    {$ENDIF}
+    {$IFNDEF CIL}
+    l := Length(Result);
+    SetLength(Result, l + lr);
+    Move(Pointer(Replace)^, Pointer(@Result[l + 1])^, lr);
+    {$ELSE}
+    Result:=Result+Replace;
+    {$ENDIF}
+    Delete(Value, 1, x - 1 + ls);
+    x := Pos(Search, Value);
+  end;
+  Result := Result + Value;
+end;
+
+{==============================================================================}
+
+function RPosEx(const Sub, Value: string; From: integer): Integer;
+var
+  n: Integer;
+  l: Integer;
+begin
+  result := 0;
+  l := Length(Sub);
+  for n := From - l + 1 downto 1 do
+  begin
+    if Copy(Value, n, l) = Sub then
+    begin
+      result := n;
+      break;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+function RPos(const Sub, Value: String): Integer;
+begin
+  Result := RPosEx(Sub, Value, Length(Value));
+end;
+
+{==============================================================================}
+
+function FetchBin(var Value: string; const Delimiter: string): string;
+var
+  s: string;
+begin
+  Result := SeparateLeft(Value, Delimiter);
+  s := SeparateRight(Value, Delimiter);
+  if s = Value then
+    Value := ''
+  else
+    Value := s;
+end;
+
+{==============================================================================}
+
+function Fetch(var Value: string; const Delimiter: string): string;
+begin
+  Result := FetchBin(Value, Delimiter);
+  Result := TrimSP(Result);
+  Value := TrimSP(Value);
+end;
+
+{==============================================================================}
+
+function FetchEx(var Value: string; const Delimiter, Quotation: string): string;
+var
+  b: Boolean;
+begin
+  Result := '';
+  b := False;
+  while Length(Value) > 0 do
+  begin
+    if b then
+    begin
+      if Pos(Quotation, Value) = 1 then
+        b := False;
+      Result := Result + Value[1];
+      Delete(Value, 1, 1);
+    end
+    else
+    begin
+      if Pos(Delimiter, Value) = 1 then
+      begin
+        Delete(Value, 1, Length(delimiter));
+        break;
+      end;
+      b := Pos(Quotation, Value) = 1;
+      Result := Result + Value[1];
+      Delete(Value, 1, 1);
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+function IsBinaryString(const Value: string): Boolean;
+var
+  n: integer;
+begin
+  Result := False;
+  for n := 1 to Length(Value) do
+    if Value[n] in [#0..#8, #10..#31] then
+      //ignore null-terminated strings
+      if not ((n = Length(value)) and (Value[n] = #0)) then
+      begin
+        Result := True;
+        Break;
+      end;
+end;
+
+{==============================================================================}
+
+function PosCRLF(const Value: AnsiString; var Terminator: AnsiString): integer;
+var
+  n, l: integer;
+begin
+  Result := -1;
+  Terminator := '';
+  l := length(value);
+  for n := 1 to l do
+    if value[n] in [#$0d, #$0a] then
+    begin
+      Result := n;
+      Terminator := Value[n];
+      if n <> l then
+        case value[n] of
+          #$0d:
+            if value[n + 1] = #$0a then
+              Terminator := #$0d + #$0a;
+          #$0a:
+            if value[n + 1] = #$0d then
+              Terminator := #$0a + #$0d;
+        end;
+      Break;
+    end;
+end;
+
+{==============================================================================}
+
+Procedure StringsTrim(const Value: TStrings);
+var
+  n: integer;
+begin
+  for n := Value.Count - 1 downto 0 do
+    if Value[n] = '' then
+      Value.Delete(n)
+    else
+      Break;
+end;
+
+{==============================================================================}
+
+function PosFrom(const SubStr, Value: String; From: integer): integer;
+var
+  ls,lv: integer;
+begin
+  Result := 0;
+  ls := Length(SubStr);
+  lv := Length(Value);
+  if (ls = 0) or (lv = 0) then
+    Exit;
+  if From < 1 then
+    From := 1;
+  while (ls + from - 1) <= (lv) do
+  begin
+    {$IFNDEF CIL}
+    if CompareMem(@SubStr[1],@Value[from],ls) then
+    {$ELSE}
+    if SubStr = copy(Value, from, ls) then
+    {$ENDIF}
+    begin
+      result := from;
+      break;
+    end
+    else
+      inc(from);
+  end;
+end;
+
+{==============================================================================}
+
+{$IFNDEF CIL}
+function IncPoint(const p: pointer; Value: integer): pointer;
+begin
+  Result := PAnsiChar(p) + Value;
+end;
+{$ENDIF}
+
+{==============================================================================}
+//improved by 'DoggyDawg'
+function GetBetween(const PairBegin, PairEnd, Value: string): string;
+var
+  n: integer;
+  x: integer;
+  s: string;
+  lenBegin: integer;
+  lenEnd: integer;
+  str: string;
+  max: integer;
+begin
+  lenBegin := Length(PairBegin);
+  lenEnd := Length(PairEnd);
+  n := Length(Value);
+  if (Value = PairBegin + PairEnd) then
+  begin
+    Result := '';//nothing between
+    exit;
+  end;
+  if (n < lenBegin + lenEnd) then
+  begin
+    Result := Value;
+    exit;
+  end;
+  s := SeparateRight(Value, PairBegin);
+  if (s = Value) then
+  begin
+    Result := Value;
+    exit;
+  end;
+  n := Pos(PairEnd, s);
+  if (n = 0) then
+  begin
+    Result := Value;
+    exit;
+  end;
+  Result := '';
+  x := 1;
+  max := Length(s) - lenEnd + 1;
+  for n := 1 to max do
+  begin
+    str := copy(s, n, lenEnd);
+    if (str = PairEnd) then
+    begin
+      Dec(x);
+      if (x <= 0) then
+        Break;
+    end;
+    str := copy(s, n, lenBegin);
+    if (str = PairBegin) then
+      Inc(x);
+    Result := Result + s[n];
+  end;
+end;
+
+{==============================================================================}
+
+function CountOfChar(const Value: string; Chr: char): integer;
+var
+  n: integer;
+begin
+  Result := 0;
+  for n := 1 to Length(Value) do
+    if Value[n] = chr then
+      Inc(Result);
+end;
+
+{==============================================================================}
+// ! do not use AnsiExtractQuotedStr, it's very buggy and can crash application!
+function UnquoteStr(const Value: string; Quote: Char): string;
+var
+  n: integer;
+  inq, dq: Boolean;
+  c, cn: char;
+begin
+  Result := '';
+  if Value = '' then
+    Exit;
+  if Value = Quote + Quote then
+    Exit;
+  inq := False;
+  dq := False;
+  for n := 1 to Length(Value) do
+  begin
+    c := Value[n];
+    if n <> Length(Value) then
+      cn := Value[n + 1]
+    else
+      cn := #0;
+    if c = quote then
+      if dq then
+        dq := False
+      else
+        if not inq then
+          inq := True
+        else
+          if cn = quote then
+          begin
+            Result := Result + Quote;
+            dq := True;
+          end
+          else
+            inq := False
+    else
+      Result := Result + c;
+  end;
+end;
+
+{==============================================================================}
+
+function QuoteStr(const Value: string; Quote: Char): string;
+var
+  n: integer;
+begin
+  Result := '';
+  for n := 1 to length(value) do
+  begin
+    Result := result + Value[n];
+    if value[n] = Quote then
+      Result := Result + Quote;
+  end;
+  Result :=  Quote + Result + Quote;
+end;
+
+{==============================================================================}
+
+procedure HeadersToList(const Value: TStrings);
+var
+  n, x, y: integer;
+  s: string;
+begin
+  for n := 0 to Value.Count -1 do
+  begin
+    s := Value[n];
+    x := Pos(':', s);
+    if x > 0 then
+    begin
+      y:= Pos('=',s); 
+      if not ((y > 0) and (y < x)) then
+      begin
+        s[x] := '=';
+        Value[n] := s;
+      end;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+procedure ListToHeaders(const Value: TStrings);
+var
+  n, x: integer;
+  s: string;
+begin
+  for n := 0 to Value.Count -1 do
+  begin
+    s := Value[n];
+    x := Pos('=', s);
+    if x > 0 then
+    begin
+      s[x] := ':';
+      Value[n] := s;
+    end;
+  end;
+end;
+
+{==============================================================================}
+
+function SwapBytes(Value: integer): integer;
+var
+  s: AnsiString;
+  x, y, xl, yl: Byte;
+begin
+  s := CodeLongInt(Value);
+  x := Ord(s[4]);
+  y := Ord(s[3]);
+  xl := Ord(s[2]);
+  yl := Ord(s[1]);
+  Result := ((x * 256 + y) * 65536) + (xl * 256 + yl);
+end;
+
+{==============================================================================}
+
+function ReadStrFromStream(const Stream: TStream; len: integer): AnsiString;
+var
+  x: integer;
+{$IFDEF CIL}
+  buf: Array of Byte;
+{$ENDIF}
+begin
+{$IFDEF CIL}
+  Setlength(buf, Len);
+  x := Stream.read(buf, Len);
+  SetLength(buf, x);
+  Result := StringOf(Buf);
+{$ELSE}
+  Setlength(Result, Len);
+  x := Stream.read(PAnsiChar(Result)^, Len);
+  SetLength(Result, x);
+{$ENDIF}
+end;
+
+{==============================================================================}
+
+procedure WriteStrToStream(const Stream: TStream; Value: AnsiString);
+{$IFDEF CIL}
+var
+  buf: Array of Byte;
+{$ENDIF}
+begin
+{$IFDEF CIL}
+  buf := BytesOf(Value);
+  Stream.Write(buf,length(Value));
+{$ELSE}
+  Stream.Write(PAnsiChar(Value)^, Length(Value));
+{$ENDIF}
+end;
+
+{==============================================================================}
+function GetTempFile(const Dir, prefix: AnsiString): AnsiString;
+{$IFNDEF FPC}
+{$IFDEF WIN32}
+var
+  Path: AnsiString;
+  x: integer;
+{$ENDIF}
+{$ENDIF}
+begin
+{$IFDEF FPC}
+  Result := GetTempFileName(Dir, Prefix);
+{$ELSE}
+  {$IFNDEF WIN32}
+    Result := tempnam(Pointer(Dir), Pointer(prefix));
+  {$ELSE}
+    {$IFDEF CIL}
+  Result := System.IO.Path.GetTempFileName;
+    {$ELSE}
+  if Dir = '' then
+  begin
+    SetLength(Path, MAX_PATH);
+	  x := GetTempPath(Length(Path), PChar(Path));
+  	SetLength(Path, x);
+  end
+  else
+    Path := Dir;
+  x := Length(Path);
+  if Path[x] <> '\' then
+    Path := Path + '\';
+  SetLength(Result, MAX_PATH + 1);
+  GetTempFileName(PChar(Path), PChar(Prefix), 0, PChar(Result));
+  Result := PChar(Result);
+  SetFileattributes(PChar(Result), GetFileAttributes(PChar(Result)) or FILE_ATTRIBUTE_TEMPORARY);
+    {$ENDIF}
+  {$ENDIF}
+{$ENDIF}
+end;
+
+{==============================================================================}
+
+function PadString(const Value: AnsiString; len: integer; Pad: AnsiChar): AnsiString;
+begin
+  if length(value) >= len then
+    Result := Copy(value, 1, len)
+  else
+    Result := Value + StringOfChar(Pad, len - length(value));
+end;
+
+{==============================================================================}
+
+function NormalizeHeader(Value: TStrings; var Index: Integer): string;
+var
+  s, t: string;
+  n: Integer;
+begin
+  s := Value[Index];
+  Inc(Index);
+  if s <> '' then
+    while (Value.Count - 1) > Index do
+    begin
+      t := Value[Index];
+      if t = '' then
+        Break;
+      for n := 1 to Length(t) do
+        if t[n] = #9 then
+          t[n] := ' ';
+      if not(t[1] in [' ', '"', ':', '=']) then
+        Break
+      else
+      begin
+        s := s + ' ' + Trim(t);
+        Inc(Index);
+      end;
+    end;
+  Result := TrimRight(s);
+end;
+
+{==============================================================================}
+var
+  n: integer;
+begin
+  for n :=  1 to 12 do
+  begin
+    CustomMonthNames[n] := ShortMonthNames[n];
+    MyMonthNames[0, n] := ShortMonthNames[n];
+  end;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synsock.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synsock.pas
new file mode 100644
index 0000000..7d6d63d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/synsock.pas	
@@ -0,0 +1,68 @@
+{$IFDEF WIN64}{$DEFINE WIN32}{$ENDIF}
+{==============================================================================|
+| Project : Ararat Synapse                                       | 005.001.000 |
+|==============================================================================|
+| Content: Socket Independent Platform Layer                                   |
+|==============================================================================|
+| Copyright (c)1999-2003, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2001-2003.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@exclude}
+
+unit synsock;
+
+{$MINENUMSIZE 4}
+
+{$IFDEF CIL}
+  {$I ssdotnet.pas}
+{$ENDIF}
+
+{$IFDEF WIN32}
+  {$I sswin32.pas}
+{$ELSE}
+  {$IFDEF FPC}
+    {$I ssfpc.pas}
+  {$ELSE}
+    {$I sslinux.pas}
+  {$ENDIF}
+{$ENDIF}
+
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/tlntsend.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/tlntsend.pas
new file mode 100644
index 0000000..0fdb9e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/Synapse/tlntsend.pas	
@@ -0,0 +1,358 @@
+{==============================================================================|
+| Project : Ararat Synapse                                       | 001.003.000 |
+|==============================================================================|
+| Content: TELNET and SSH2 client                                              |
+|==============================================================================|
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
+| All rights reserved.                                                         |
+|                                                                              |
+| Redistribution and use in source and binary forms, with or without           |
+| modification, are permitted provided that the following conditions are met:  |
+|                                                                              |
+| Redistributions of source code must retain the above copyright notice, this  |
+| list of conditions and the following disclaimer.                             |
+|                                                                              |
+| Redistributions in binary form must reproduce the above copyright notice,    |
+| this list of conditions and the following disclaimer in the documentation    |
+| and/or other materials provided with the distribution.                       |
+|                                                                              |
+| Neither the name of Lukas Gebauer nor the names of its contributors may      |
+| be used to endorse or promote products derived from this software without    |
+| specific prior written permission.                                           |
+|                                                                              |
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"  |
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE    |
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   |
+| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR  |
+| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL       |
+| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR   |
+| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER   |
+| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT           |
+| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    |
+| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH  |
+| DAMAGE.                                                                      |
+|==============================================================================|
+| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
+| Portions created by Lukas Gebauer are Copyright (c)2002-2008.                |
+| All Rights Reserved.                                                         |
+|==============================================================================|
+| Contributor(s):                                                              |
+|==============================================================================|
+| History: see HISTORY.HTM from distribution package                           |
+|          (Found at URL: http://www.ararat.cz/synapse/)                       |
+|==============================================================================}
+
+{:@abstract(Telnet script client)
+
+Used RFC: RFC-854
+}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+{$H+}
+
+unit tlntsend;
+
+interface
+
+uses
+  SysUtils, Classes,
+  blcksock, synautil;
+
+const
+  cTelnetProtocol = '23';
+  cSSHProtocol = '22';
+
+  TLNT_EOR                = #239;
+  TLNT_SE                 = #240;
+  TLNT_NOP                = #241;
+  TLNT_DATA_MARK          = #242;
+  TLNT_BREAK              = #243;
+  TLNT_IP                 = #244;
+  TLNT_AO                 = #245;
+  TLNT_AYT                = #246;
+  TLNT_EC                 = #247;
+  TLNT_EL                 = #248;
+  TLNT_GA                 = #249;
+  TLNT_SB                 = #250;
+  TLNT_WILL               = #251;
+  TLNT_WONT               = #252;
+  TLNT_DO                 = #253;
+  TLNT_DONT               = #254;
+  TLNT_IAC                = #255;
+
+type
+  {:@abstract(State of telnet protocol). Used internaly by TTelnetSend.}
+  TTelnetState =(tsDATA, tsIAC, tsIAC_SB, tsIAC_WILL, tsIAC_DO, tsIAC_WONT,
+     tsIAC_DONT, tsIAC_SBIAC, tsIAC_SBDATA, tsSBDATA_IAC);
+
+  {:@abstract(Class with implementation of Telnet/SSH script client.)
+
+   Note: Are you missing properties for specify server address and port? Look to
+   parent @link(TSynaClient) too!}
+  TTelnetSend = class(TSynaClient)
+  private
+    FSock: TTCPBlockSocket;
+    FBuffer: Ansistring;
+    FState: TTelnetState;
+    FSessionLog: Ansistring;
+    FSubNeg: Ansistring;
+    FSubType: Ansichar;
+    FTermType: Ansistring;
+    function Connect: Boolean;
+    function Negotiate(const Buf: Ansistring): Ansistring;
+    procedure FilterHook(Sender: TObject; var Value: AnsiString);
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    {:Connects to Telnet server.}
+    function Login: Boolean;
+
+    {:Connects to SSH2 server and login by Username and Password properties.
+
+     You must use some of SSL plugins with SSH support. For exammple CryptLib.}
+    function SSHLogin: Boolean;
+
+    {:Logout from telnet server.}
+    procedure Logout;
+
+    {:Send this data to telnet server.}
+    procedure Send(const Value: string);
+
+    {:Reading data from telnet server until Value is readed. If it is not readed
+     until timeout, result is @false. Otherwise result is @true.}
+    function WaitFor(const Value: string): Boolean;
+
+    {:Read data terminated by terminator from telnet server.}
+    function RecvTerminated(const Terminator: string): string;
+
+    {:Read string from telnet server.}
+    function RecvString: string;
+  published
+    {:Socket object used for TCP/IP operation. Good for seting OnStatus hook, etc.}
+    property Sock: TTCPBlockSocket read FSock;
+
+    {:all readed datas in this session (from connect) is stored in this large
+     string.}
+    property SessionLog: Ansistring read FSessionLog write FSessionLog;
+
+    {:Terminal type indentification. By default is 'SYNAPSE'.}
+    property TermType: Ansistring read FTermType write FTermType;
+  end;
+
+implementation
+
+constructor TTelnetSend.Create;
+begin
+  inherited Create;
+  FSock := TTCPBlockSocket.Create;
+  FSock.OnReadFilter := FilterHook;
+  FTimeout := 60000;
+  FTargetPort := cTelnetProtocol;
+  FSubNeg := '';
+  FSubType := #0;
+  FTermType := 'SYNAPSE';
+end;
+
+destructor TTelnetSend.Destroy;
+begin
+  FSock.Free;
+  inherited Destroy;
+end;
+
+function TTelnetSend.Connect: Boolean;
+begin
+  // Do not call this function! It is calling by LOGIN method!
+  FBuffer := '';
+  FSessionLog := '';
+  FState := tsDATA;
+  FSock.CloseSocket;
+  FSock.LineBuffer := '';
+  FSock.Bind(FIPInterface, cAnyPort);
+  FSock.Connect(FTargetHost, FTargetPort);
+  Result := FSock.LastError = 0;
+end;
+
+function TTelnetSend.RecvTerminated(const Terminator: string): string;
+begin
+  Result := FSock.RecvTerminated(FTimeout, Terminator);
+end;
+
+function TTelnetSend.RecvString: string;
+begin
+  Result := FSock.RecvTerminated(FTimeout, CRLF);
+end;
+
+function TTelnetSend.WaitFor(const Value: string): Boolean;
+begin
+  Result := FSock.RecvTerminated(FTimeout, Value) <> '';
+end;
+
+procedure TTelnetSend.FilterHook(Sender: TObject; var Value: AnsiString);
+begin
+  Value := Negotiate(Value);
+  FSessionLog := FSessionLog + Value;
+end;
+
+function TTelnetSend.Negotiate(const Buf: Ansistring): Ansistring;
+var
+  n: integer;
+  c: Ansichar;
+  Reply: Ansistring;
+  SubReply: Ansistring;
+begin
+  Result := '';
+  for n := 1 to Length(Buf) do
+  begin
+    c := Buf[n];
+    Reply := '';
+    case FState of
+      tsData:
+        if c = TLNT_IAC then
+          FState := tsIAC
+        else
+          Result := Result + c;
+
+      tsIAC:
+        case c of
+          TLNT_IAC:
+            begin
+              FState := tsData;
+              Result := Result + TLNT_IAC;
+            end;
+          TLNT_WILL:
+            FState := tsIAC_WILL;
+          TLNT_WONT:
+            FState := tsIAC_WONT;
+          TLNT_DONT:
+            FState := tsIAC_DONT;
+          TLNT_DO:
+            FState := tsIAC_DO;
+          TLNT_EOR:
+            FState := tsDATA;
+          TLNT_SB:
+            begin
+              FState := tsIAC_SB;
+              FSubType := #0;
+              FSubNeg := '';
+            end;
+        else
+          FState := tsData;
+        end;
+
+      tsIAC_WILL:
+        begin
+        case c of
+          #3:  //suppress GA
+            Reply := TLNT_DO;
+        else
+          Reply := TLNT_DONT;
+        end;
+          FState := tsData;
+        end;
+
+      tsIAC_WONT:
+        begin
+          Reply := TLNT_DONT;
+          FState := tsData;
+        end;
+
+      tsIAC_DO:
+      begin
+        case c of
+          #24:  //termtype
+            Reply := TLNT_WILL;
+        else
+          Reply := TLNT_WONT;
+        end;
+        FState := tsData;
+      end;
+
+      tsIAC_DONT:
+      begin
+        Reply := TLNT_WONT;
+        FState := tsData;
+      end;
+
+      tsIAC_SB:
+        begin
+          FSubType := c;
+          FState := tsIAC_SBDATA;
+        end;
+
+      tsIAC_SBDATA:
+        begin
+          if c = TLNT_IAC then
+            FState := tsSBDATA_IAC
+          else
+            FSubNeg := FSubNeg + c;
+        end;
+
+      tsSBDATA_IAC:
+        case c of
+          TLNT_IAC:
+            begin
+              FState := tsIAC_SBDATA;
+              FSubNeg := FSubNeg + c;
+            end;
+          TLNT_SE:
+            begin
+              SubReply := '';
+              case FSubType of
+                #24:  //termtype
+                  begin
+                    if (FSubNeg <> '') and (FSubNeg[1] = #1) then
+                      SubReply := #0 + FTermType;
+                  end;
+              end;
+              Sock.SendString(TLNT_IAC + TLNT_SB + FSubType + SubReply + TLNT_IAC + TLNT_SE);
+              FState := tsDATA;
+            end;
+         else
+           FState := tsDATA;
+         end;
+
+      else
+        FState := tsData;
+    end;
+    if Reply <> '' then
+      Sock.SendString(TLNT_IAC + Reply + c);
+  end;
+
+end;
+
+procedure TTelnetSend.Send(const Value: string);
+begin
+  Sock.SendString(ReplaceString(Value, TLNT_IAC, TLNT_IAC + TLNT_IAC));
+end;
+
+function TTelnetSend.Login: Boolean;
+begin
+  Result := False;
+  if not Connect then
+    Exit;
+  Result := True;
+end;
+
+function TTelnetSend.SSHLogin: Boolean;
+begin
+  Result := False;
+  if Connect then
+  begin
+    FSock.SSL.SSLType := LT_SSHv2;
+    FSock.SSL.Username := FUsername;
+    FSock.SSL.Password := FPassword;
+    FSock.SSLDoConnect;
+    Result := FSock.LastError = 0;
+  end;
+end;
+
+procedure TTelnetSend.Logout;
+begin
+  FSock.CloseSocket;
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/FPC/uROZLib.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/FPC/uROZLib.pas
new file mode 100644
index 0000000..d6174ff
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/FPC/uROZLib.pas	
@@ -0,0 +1,444 @@
+{******************************************************************}
+{                                                                  }
+{       Borland Delphi Supplemental Components                     }
+{       ZLIB Data Compression Interface Unit                       }
+{                                                                  }
+{       Copyright (c) 1997-2002 Borland Software Corporation       }
+{                                                                  }
+{******************************************************************}
+
+unit uROZLib;
+
+{$IFDEF LINUX}
+{$I ../../RemObjects.inc}
+{$ELSE}
+{$I ..\..\RemObjects.inc}
+{$ENDIF LINUX}
+
+interface
+
+uses SysUtils, Classes, zlib;
+
+type
+  // Abstract ancestor class
+  TCustomZlibStream = class(TStream)
+  private
+    FStrm: TStream;
+    FStrmPos: Integer;
+    FOnProgress: TNotifyEvent;
+    FZRec: TZStreamRec;
+    FBuffer: array [Word] of Char;
+  protected
+    procedure Progress(Sender: TObject); dynamic;
+    property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
+  public
+    constructor Create(Strm: TStream);
+  end;
+
+{ TCompressionStream compresses data on the fly as data is written to it, and
+  stores the compressed data to another stream.
+
+  TCompressionStream is write-only and strictly sequential. Reading from the
+  stream will raise an exception. Using Seek to move the stream pointer
+  will raise an exception.
+
+  Output data is cached internally, written to the output stream only when
+  the internal output buffer is full.  All pending output data is flushed
+  when the stream is destroyed.
+
+  The Position property returns the number of uncompressed bytes of
+  data that have been written to the stream so far.
+
+  CompressionRate returns the on-the-fly percentage by which the original
+  data has been compressed:  (1 - (CompressedBytes / UncompressedBytes)) * 100
+  If raw data size = 100 and compressed data size = 25, the CompressionRate
+  is 75%
+
+  The OnProgress event is called each time the output buffer is filled and
+  written to the output stream.  This is useful for updating a progress
+  indicator when you are writing a large chunk of data to the compression
+  stream in a single call.}
+
+
+  TCompressionLevel = (clNone, clFastest, clDefault, clMax);
+
+  TCompressionStream = class(TCustomZlibStream)
+  private
+    function GetCompressionRate: Single;
+  public
+    constructor Create(CompressionLevel: TCompressionLevel; Dest: TStream);
+    destructor Destroy; override;
+    function Read(var Buffer; Count: Longint): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+    function Seek(Offset: Longint; Origin: Word): Longint; override;
+    property CompressionRate: Single read GetCompressionRate;
+    property OnProgress;
+  end;
+
+{ TDecompressionStream decompresses data on the fly as data is read from it.
+
+  Compressed data comes from a separate source stream.  TDecompressionStream
+  is read-only and unidirectional; you can seek forward in the stream, but not
+  backwards.  The special case of setting the stream position to zero is
+  allowed.  Seeking forward decompresses data until the requested position in
+  the uncompressed data has been reached.  Seeking backwards, seeking relative
+  to the end of the stream, requesting the size of the stream, and writing to
+  the stream will raise an exception.
+
+  The Position property returns the number of bytes of uncompressed data that
+  have been read from the stream so far.
+
+  The OnProgress event is called each time the internal input buffer of
+  compressed data is exhausted and the next block is read from the input stream.
+  This is useful for updating a progress indicator when you are reading a
+  large chunk of data from the decompression stream in a single call.}
+
+  TDecompressionStream = class(TCustomZlibStream)
+  public
+    constructor Create(Source: TStream);
+    destructor Destroy; override;
+    function Read(var Buffer; Count: Longint): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+    function Seek(Offset: Longint; Origin: Word): Longint; override;
+    property OnProgress;
+  end;
+
+
+
+{ CompressBuf compresses data, buffer to buffer, in one call.
+   In: InBuf = ptr to compressed data
+       InBytes = number of bytes in InBuf
+  Out: OutBuf = ptr to newly allocated buffer containing decompressed data
+       OutBytes = number of bytes in OutBuf   }
+procedure CompressBuf(const InBuf: Pointer; InBytes: Integer;
+                      out OutBuf: Pointer; out OutBytes: Integer);
+
+
+{ DecompressBuf decompresses data, buffer to buffer, in one call.
+   In: InBuf = ptr to compressed data
+       InBytes = number of bytes in InBuf
+       OutEstimate = zero, or est. size of the decompressed data
+  Out: OutBuf = ptr to newly allocated buffer containing decompressed data
+       OutBytes = number of bytes in OutBuf   }
+procedure DecompressBuf(const InBuf: Pointer; InBytes: Integer;
+ OutEstimate: Integer; out OutBuf: Pointer; out OutBytes: Integer);
+
+{ DecompressToUserBuf decompresses data, buffer to buffer, in one call.
+   In: InBuf = ptr to compressed data
+       InBytes = number of bytes in InBuf
+  Out: OutBuf = ptr to user-allocated buffer to contain decompressed data
+       BufSize = number of bytes in OutBuf   }
+procedure DecompressToUserBuf(const InBuf: Pointer; InBytes: Integer;
+  const OutBuf: Pointer; BufSize: Integer);
+
+type
+  EZlibError = class(Exception);
+  ECompressionError = class(EZlibError);
+  EDecompressionError = class(EZlibError);
+
+implementation
+
+resourcestring
+ sTargetBufferTooSmall = 'ZLib: Target buffer may be too small';
+ sInvalidStreamOp = 'ZLib: Invalid stream operation';
+ sError = 'ZLib: Error';
+
+function CCheck(code: Integer): Integer;
+begin
+  Result := code;
+  if code < 0 then
+    raise ECompressionError.Create(sError); //!!
+end;
+
+function DCheck(code: Integer): Integer;
+begin
+  Result := code;
+  if code < 0 then
+    raise EDecompressionError.Create(sError);  //!!
+end;
+
+function zlibAllocMem(AppData: Pointer; Items, Size: uInt): Pointer; cdecl;
+begin
+  Result := zlib.zlibAllocMem(AppData, Items, Size);
+end;
+
+procedure InitStreamRec(var strm: TZStreamRec);
+begin
+{$IFDEF VER2_2}
+  strm.zalloc := zlibAllocMem;
+  strm.zfree := zlibFreeMem;
+{$ELSE}
+  strm.zalloc := nil;
+  strm.zfree := nil;
+{$ENDIF}
+end;
+
+procedure CompressBuf(const InBuf: Pointer; InBytes: Integer;
+                      out OutBuf: Pointer; out OutBytes: Integer);
+var
+  strm: TZStreamRec;
+  P: Pointer;
+begin
+  FillChar(strm, sizeof(strm), 0);
+  InitStreamRec(strm);
+  OutBytes := ((InBytes + (InBytes div 10) + 12) + 255) and not 255;
+  GetMem(OutBuf, OutBytes);
+  try
+    strm.next_in := InBuf;
+    strm.avail_in := InBytes;
+    strm.next_out := OutBuf;
+    strm.avail_out := OutBytes;
+    CCheck(deflateInit_(strm, Z_BEST_COMPRESSION, zlib_version, sizeof(strm)));
+    try
+      while CCheck(deflate(strm, Z_FINISH)) <> Z_STREAM_END do
+      begin
+        P := OutBuf;
+        Inc(OutBytes, 256);
+        ReallocMem(OutBuf, OutBytes);
+        strm.next_out := pbytef(pchar(OutBuf) + (pchar(strm.next_out) - pchar(P)));
+        strm.avail_out := 256;
+      end;
+    finally
+      CCheck(deflateEnd(strm));
+    end;
+    ReallocMem(OutBuf, strm.total_out);
+    OutBytes := strm.total_out;
+  except
+    FreeMem(OutBuf);
+    raise
+  end;
+end;
+
+
+procedure DecompressBuf(const InBuf: Pointer; InBytes: Integer;
+  OutEstimate: Integer; out OutBuf: Pointer; out OutBytes: Integer);
+var
+  strm: TZStreamRec;
+  P: Pointer;
+  BufInc: Integer;
+begin
+  FillChar(strm, sizeof(strm), 0);
+  InitStreamRec(strm);
+  BufInc := (InBytes + 255) and not 255;
+  if OutEstimate = 0 then
+    OutBytes := BufInc
+  else
+    OutBytes := OutEstimate;
+  GetMem(OutBuf, OutBytes);
+  try
+    strm.next_in := InBuf;
+    strm.avail_in := InBytes;
+    strm.next_out := OutBuf;
+    strm.avail_out := OutBytes;
+    DCheck(inflateInit_(strm, zlib_version, sizeof(strm)));
+    try
+      while DCheck(inflate(strm, Z_FINISH)) <> Z_STREAM_END do
+      begin
+        P := OutBuf;
+        Inc(OutBytes, BufInc);
+        ReallocMem(OutBuf, OutBytes);
+        strm.next_out := pbytef(pchar(OutBuf) + (pchar(strm.next_out) - pchar(P)));
+        strm.avail_out := BufInc;
+      end;
+    finally
+      DCheck(inflateEnd(strm));
+    end;
+    ReallocMem(OutBuf, strm.total_out);
+    OutBytes := strm.total_out;
+  except
+    FreeMem(OutBuf);
+    raise
+  end;
+end;
+
+procedure DecompressToUserBuf(const InBuf: Pointer; InBytes: Integer;
+  const OutBuf: Pointer; BufSize: Integer);
+var
+  strm: TZStreamRec;
+begin
+  FillChar(strm, sizeof(strm), 0);
+  InitStreamRec(strm);
+  strm.next_in := InBuf;
+  strm.avail_in := InBytes;
+  strm.next_out := OutBuf;
+  strm.avail_out := BufSize;
+  DCheck(inflateInit_(strm, zlib_version, sizeof(strm)));
+  try
+    if DCheck(inflate(strm, Z_FINISH)) <> Z_STREAM_END then
+      raise EZlibError.CreateRes(@sTargetBufferTooSmall);
+  finally
+    DCheck(inflateEnd(strm));
+  end;
+end;
+
+// TCustomZlibStream
+
+constructor TCustomZLibStream.Create(Strm: TStream);
+begin
+  inherited Create;
+  FStrm := Strm;
+  FStrmPos := Strm.Position;
+  InitStreamRec(FZRec);
+end;
+
+procedure TCustomZLibStream.Progress(Sender: TObject);
+begin
+  if Assigned(FOnProgress) then FOnProgress(Sender);
+end;
+
+
+// TCompressionStream
+
+constructor TCompressionStream.Create(CompressionLevel: TCompressionLevel;
+  Dest: TStream);
+const
+  Levels: array [TCompressionLevel] of ShortInt =
+    (Z_NO_COMPRESSION, Z_BEST_SPEED, Z_DEFAULT_COMPRESSION, Z_BEST_COMPRESSION);
+begin
+  inherited Create(Dest);
+  FZRec.next_out := pbytef(@FBuffer);
+  FZRec.avail_out := sizeof(FBuffer);
+  CCheck(deflateInit_(FZRec, Levels[CompressionLevel], zlib_version, sizeof(FZRec)));
+end;
+
+destructor TCompressionStream.Destroy;
+begin
+  FZRec.next_in := nil;
+  FZRec.avail_in := 0;
+  try
+    if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
+    while (CCheck(deflate(FZRec, Z_FINISH)) <> Z_STREAM_END)
+      and (FZRec.avail_out = 0) do
+    begin
+      FStrm.WriteBuffer(FBuffer, sizeof(FBuffer));
+      FZRec.next_out := pbytef(@FBuffer);
+      FZRec.avail_out := sizeof(FBuffer);
+    end;
+    if FZRec.avail_out < sizeof(FBuffer) then
+      FStrm.WriteBuffer(FBuffer, sizeof(FBuffer) - FZRec.avail_out);
+  finally
+    deflateEnd(FZRec);
+  end;
+  inherited Destroy;
+end;
+
+function TCompressionStream.Read(var Buffer; Count: Longint): Longint;
+begin
+  Result := 0; // else it's warn
+  raise ECompressionError.CreateRes(@sInvalidStreamOp);
+end;
+
+function TCompressionStream.Write(const Buffer; Count: Longint): Longint;
+begin
+  FZRec.next_in := @Buffer;
+  FZRec.avail_in := Count;
+  if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
+  while (FZRec.avail_in > 0) do
+  begin
+    CCheck(deflate(FZRec, 0));
+    if FZRec.avail_out = 0 then
+    begin
+      FStrm.WriteBuffer(FBuffer, sizeof(FBuffer));
+      FZRec.next_out := pbytef(@FBuffer);
+      FZRec.avail_out := sizeof(FBuffer);
+      FStrmPos := FStrm.Position;
+      Progress(Self);
+    end;
+  end;
+  Result := Count;
+end;
+
+function TCompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
+begin
+  if (Offset = 0) and (Origin = soFromCurrent) then
+    Result := FZRec.total_in
+  else
+    raise ECompressionError.CreateRes(@sInvalidStreamOp);
+end;
+
+function TCompressionStream.GetCompressionRate: Single;
+begin
+  if FZRec.total_in = 0 then
+    Result := 0
+  else
+    Result := (1.0 - (FZRec.total_out / FZRec.total_in)) * 100.0;
+end;
+
+
+// TDecompressionStream
+
+constructor TDecompressionStream.Create(Source: TStream);
+begin
+  inherited Create(Source);
+  FZRec.next_in := pbytef(@FBuffer);
+  FZRec.avail_in := 0;
+  DCheck(inflateInit_(FZRec, zlib_version, sizeof(FZRec)));
+end;
+
+destructor TDecompressionStream.Destroy;
+begin
+  FStrm.Seek(-FZRec.avail_in, 1);
+  inflateEnd(FZRec);
+  inherited Destroy;
+end;
+
+function TDecompressionStream.Read(var Buffer; Count: Longint): Longint;
+begin
+  FZRec.next_out := @Buffer;
+  FZRec.avail_out := Count;
+  if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
+  while (FZRec.avail_out > 0) do
+  begin
+    if FZRec.avail_in = 0 then
+    begin
+      FZRec.avail_in := FStrm.Read(FBuffer, sizeof(FBuffer));
+      if FZRec.avail_in = 0 then
+      begin
+        Result := Count - FZRec.avail_out;
+        Exit;
+      end;
+	  FZRec.next_in := pbytef(@FBuffer);
+      FStrmPos := FStrm.Position;
+      Progress(Self);
+    end;
+    CCheck(inflate(FZRec, 0));
+  end;
+  Result := Count;
+end;
+
+function TDecompressionStream.Write(const Buffer; Count: Longint): Longint;
+begin
+  Result := 0; // else it's warn
+  raise EDecompressionError.CreateRes(@sInvalidStreamOp);
+end;
+
+function TDecompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
+var
+  I: Integer;
+  Buf: array [0..4095] of Char;
+begin
+  if (Offset = 0) and (Origin = soFromBeginning) then
+  begin
+    DCheck(inflateReset(FZRec));
+    FZRec.next_in := pbytef(@FBuffer);
+    FZRec.avail_in := 0;
+    FStrm.Position := 0;
+    FStrmPos := 0;
+  end
+  else if ( (Offset >= 0) and (Origin = soFromCurrent)) or
+          ( ((Offset - FZRec.total_out) > 0) and (Origin = soFromBeginning)) then
+  begin
+    if Origin = soFromBeginning then Dec(Offset, FZRec.total_out);
+    if Offset > 0 then
+    begin
+      for I := 1 to Offset div sizeof(Buf) do
+        ReadBuffer(Buf, sizeof(Buf));
+      ReadBuffer(Buf, Offset mod sizeof(Buf));
+    end;
+  end
+  else
+    raise EDecompressionError.CreateRes(@sInvalidStreamOp);
+  Result := FZRec.total_out;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/adler32.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/adler32.obj
new file mode 100644
index 0000000..84d2850
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/adler32.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/compress.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/compress.obj
new file mode 100644
index 0000000..90cf74f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/compress.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/crc32.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/crc32.obj
new file mode 100644
index 0000000..ea14153
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/crc32.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/deflate.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/deflate.obj
new file mode 100644
index 0000000..3ffc8bc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/deflate.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/gzio.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/gzio.obj
new file mode 100644
index 0000000..ff94037
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/gzio.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/infback.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/infback.obj
new file mode 100644
index 0000000..2114f10
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/infback.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inffast.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inffast.obj
new file mode 100644
index 0000000..c8f5b1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inffast.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inflate.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inflate.obj
new file mode 100644
index 0000000..4c53c01
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inflate.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inftrees.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inftrees.obj
new file mode 100644
index 0000000..c37455e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/inftrees.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/trees.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/trees.obj
new file mode 100644
index 0000000..98a6110
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/trees.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/uROZLib.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/uROZLib.pas
new file mode 100644
index 0000000..08171f0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/uROZLib.pas	
@@ -0,0 +1,923 @@
+(*
+  License file:
+  The MIT License
+Copyright (c) 2002-2005 Roberto Della Pasqua and previous
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+*)
+{*****************************************************************************
+*  ZLibEx.pas (zlib 1.2.3)                                                   *
+*                                                                            *
+*  copyright (c) 2002-2005 Roberto Della Pasqua (www.dellapasqua.com)        *
+*  copyright (c) 2000-2002 base2 technologies (www.base2ti.com)              *
+*  copyright (c) 1997 Borland International (www.borland.com)                *
+*                                                                            *
+*  revision history                                                          *
+*    2006.04.21  updated with latest Borland C++ 2006 SP2                    *
+*    2005.02.03  updated with latest zlib 1.2.2, thanks to Fabio Dell'Aria   *
+*                (www.eurekalog.com) for provide me the compiled objects     *
+*                zlib is compiled without crc32-compressBound                *
+*    2003.12.18  updated with latest zlib 1.2.1 (see www.zlib.org)           *
+*                obj's compiled with fastest speed optimizations (bcc 5.6.4) *
+*                (hint:see basm newsgroup about a Move RTL fast replacement) *
+*                Thanks to Cosmin Truta for the pascal zlib reference        *
+*                                                                            *
+*    2002.11.02  ZSendToBrowser: deflate algorithm for HTTP1.1 compression   *
+*    2002.10.24  ZFastCompressString and ZFastDecompressString:300% faster   *
+*    2002.10.15  recompiled zlib 1.1.4 c sources with speed optimizations    *
+*                (and targeting 686+ cpu) and changes to accomodate Borland  *
+*                standards  (C++ v5.6 compiler)                              *
+*    2002.10.15  optimized move mem for not aligned structures  (strings,etc)*
+*    2002.10.15  little changes to avoid system unique string calls          *
+*                                                                            *
+*    2002.03.15  updated to zlib version 1.1.4                               *
+*    2001.11.27  enhanced TZDecompressionStream.Read to adjust source        *
+*                  stream position upon end of compression data              *
+*                fixed endless loop in TZDecompressionStream.Read when       *
+*                  destination count was greater than uncompressed data      *
+*    2001.10.26  renamed unit to integrate "nicely" with delphi 6            *
+*    2000.11.24  added soFromEnd condition to TZDecompressionStream.Seek     *
+*                added ZCompressStream and ZDecompressStream                 *
+*    2000.06.13  optimized, fixed, rewrote, and enhanced the zlib.pas unit   *
+*                  included on the delphi cd (zlib version 1.1.3)            *
+*                                                                            *
+*  acknowledgements                                                          *
+*    erik turner    Z*Stream routines                                        *
+*    david bennion  finding the nastly little endless loop quirk with the    *
+*                     TZDecompressionStream.Read method                      *
+*    burak kalayci  informing me about the zlib 1.1.4 update                 *
+*****************************************************************************}
+
+unit uROZlib;
+
+interface
+
+uses
+  Windows,
+  Sysutils,
+  Classes;
+
+const
+  ZLIB_VERSION = '1.2.3';
+
+type
+  TZAlloc = function(opaque: Pointer; items, size: Integer): Pointer;
+  TZFree = procedure(opaque, block: Pointer);
+  TZCompressionLevel = (clNone, clFastest, clDefault, clMax);
+
+  {** TZStreamRec ***********************************************************}
+
+  TZStreamRec = packed record
+    next_in: PAnsiChar; // next input byte
+    avail_in: Longint; // number of bytes available at next_in
+    total_in: Longint; // total nb of input bytes read so far
+    next_out: PansiChar; // next output byte should be put here
+    avail_out: Longint; // remaining free space at next_out
+    total_out: Longint; // total nb of bytes output so far
+    msg: PAnsiChar; // last error message, NULL if no error
+    state: Pointer; // not visible by applications
+    zalloc: TZAlloc; // used to allocate the internal state
+    zfree: TZFree; // used to free the internal state
+    opaque: Pointer; // private data object passed to zalloc and zfree
+    data_type: Integer; // best guess about the data type: ascii or binary
+    adler: Longint; // adler32 value of the uncompressed data
+    reserved: Longint; // reserved for future use
+  end;
+
+  {** TCustomZStream ********************************************************}
+
+  TCustomZStream = class(TStream)
+  private
+    FStream: TStream;
+    FStreamPos: Integer;
+    FOnProgress: TNotifyEvent;
+    FZStream: TZStreamRec;
+    FBuffer: array[Word] of AnsiChar;
+  protected
+    constructor Create(stream: TStream);
+    procedure DoProgress; dynamic;
+    property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
+  end;
+
+  {** TZCompressionStream ***************************************************}
+
+  TCompressionStream = class(TCustomZStream)
+  private
+    function GetCompressionRate: Single;
+  public
+    constructor Create(compressionLevel: TZCompressionLevel; dest: TStream);
+    destructor Destroy; override;
+    function Read(var buffer; count: Longint): Longint; override;
+    function Write(const buffer; count: Longint): Longint; override;
+    function Seek(offset: Longint; origin: Word): Longint; override;
+    property CompressionRate: Single read GetCompressionRate;
+    property OnProgress;
+  end;
+
+  {** TZDecompressionStream *************************************************}
+
+  TDecompressionStream = class(TCustomZStream)
+  public
+    constructor Create(source: TStream);
+    destructor Destroy; override;
+    function Read(var buffer; count: Longint): Longint; override;
+    function Write(const buffer; count: Longint): Longint; override;
+    function Seek(offset: Longint; origin: Word): Longint; override;
+    property OnProgress;
+  end;
+
+{** zlib public routines ****************************************************}
+
+{*****************************************************************************
+*  ZCompress                                                                 *
+*                                                                            *
+*  pre-conditions                                                            *
+*    inBuffer  = pointer to uncompressed data                                *
+*    inSize    = size of inBuffer (bytes)                                    *
+*    outBuffer = pointer (unallocated)                                       *
+*    level     = compression level                                           *
+*                                                                            *
+*  post-conditions                                                           *
+*    outBuffer = pointer to compressed data (allocated)                      *
+*    outSize   = size of outBuffer (bytes)                                   *
+*****************************************************************************}
+
+procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
+  out outBuffer: Pointer; out outSize: Integer;
+  level: TZCompressionLevel = clDefault);
+
+{*****************************************************************************
+*  ZDecompress                                                               *
+*                                                                            *
+*  pre-conditions                                                            *
+*    inBuffer    = pointer to compressed data                                *
+*    inSize      = size of inBuffer (bytes)                                  *
+*    outBuffer   = pointer (unallocated)                                     *
+*    outEstimate = estimated size of uncompressed data (bytes)               *
+*                                                                            *
+*  post-conditions                                                           *
+*    outBuffer = pointer to decompressed data (allocated)                    *
+*    outSize   = size of outBuffer (bytes)                                   *
+*****************************************************************************}
+
+procedure ZDecompress(const inBuffer: Pointer; inSize: Integer;
+  out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer = 0);
+
+{** string routines *********************************************************}
+
+function ZCompressStr(const s: string; level: TZCompressionLevel = clDefault): string;
+
+function ZDecompressStr(const s: string): string;
+
+{** stream routines *********************************************************}
+
+procedure ZCompressStream(inStream, outStream: TStream;
+  level: TZCompressionLevel = clDefault);
+
+procedure ZDecompressStream(inStream, outStream: TStream);
+
+{** export routines ********************************************************}
+
+function adler32(adler: LongInt; const buf: PAnsiChar; len: Integer): LongInt;
+procedure MoveI32(const Source; var Dest; Count: Integer);
+procedure ZFastCompressString(var s: ansistring; level: TZCompressionLevel);
+procedure ZFastDecompressString(var s: ansistring);
+procedure ZSendToBrowser(var s: string);
+function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar; recsize: Integer): Integer;
+function DeflateInit2_(var strm: TZStreamRec; level: integer; method: integer; windowBits: integer; memLevel: integer; strategy: integer; version: PChar; recsize: integer): integer;
+function deflate(var strm: TZStreamRec; flush: Integer): Integer;
+function deflateEnd(var strm: TZStreamRec): Integer;
+function inflateInit_(var strm: TZStreamRec; version: PChar; recsize: Integer): Integer;
+function inflateInit2_(var strm: TZStreamRec; windowBits: integer;  version: PChar; recsize: integer): integer;
+function inflate(var strm: TZStreamRec; flush: Integer): Integer;
+function inflateEnd(var strm: TZStreamRec): Integer;
+function inflateReset(var strm: TZStreamRec): Integer; 
+
+type
+  EZLibError = class(Exception);
+  EZCompressionError = class(EZLibError);
+  EZDecompressionError = class(EZLibError);
+
+implementation
+
+{** link zlib 1.2.3 **************************************************************}
+{** bcc32 -c -6 -O2 -Ve -X -pr -a8 -b -d -k- -vi -tWM -r -RT- -ff *.c **}
+
+{$L adler32.obj}
+{$L deflate.obj}
+{$L infback.obj}
+{$L inffast.obj}
+{$L inflate.obj}
+{$L inftrees.obj}
+{$L trees.obj}
+{$L compress.obj}
+{$L crc32.obj}
+
+{*****************************************************************************
+*  note: do not reorder the above -- doing so will result in external        *
+*  functions being undefined                                                 *
+*****************************************************************************}
+
+const
+  {** flush constants *******************************************************}
+
+  Z_NO_FLUSH = 0;
+  Z_PARTIAL_FLUSH = 1;
+  Z_SYNC_FLUSH = 2;
+  Z_FULL_FLUSH = 3;
+  Z_FINISH = 4;
+
+  {** return codes **********************************************************}
+
+  Z_OK = 0;
+  Z_STREAM_END = 1;
+  Z_NEED_DICT = 2;
+  Z_ERRNO = (-1);
+  Z_STREAM_ERROR = (-2);
+  Z_DATA_ERROR = (-3);
+  Z_MEM_ERROR = (-4);
+  Z_BUF_ERROR = (-5);
+  Z_VERSION_ERROR = (-6);
+
+  {** compression levels ****************************************************}
+
+  Z_NO_COMPRESSION = 0;
+  Z_BEST_SPEED = 1;
+  Z_BEST_COMPRESSION = 9;
+  Z_DEFAULT_COMPRESSION = (-1);
+
+  {** compression strategies ************************************************}
+
+  Z_FILTERED = 1;
+  Z_HUFFMAN_ONLY = 2;
+  Z_DEFAULT_STRATEGY = 0;
+
+  {** data types ************************************************************}
+
+  Z_BINARY = 0;
+  Z_ASCII = 1;
+  Z_UNKNOWN = 2;
+
+  {** compression methods ***************************************************}
+
+  Z_DEFLATED = 8;
+
+  {** return code messages **************************************************}
+
+  _z_errmsg: array[0..9] of PChar = (
+    'need dictionary', // Z_NEED_DICT      (2)
+    'stream end', // Z_STREAM_END     (1)
+    '', // Z_OK             (0)
+    'file error', // Z_ERRNO          (-1)
+    'stream error', // Z_STREAM_ERROR   (-2)
+    'data error', // Z_DATA_ERROR     (-3)
+    'insufficient memory', // Z_MEM_ERROR      (-4)
+    'buffer error', // Z_BUF_ERROR      (-5)
+    'incompatible version', // Z_VERSION_ERROR  (-6)
+    ''
+    );
+
+  ZLevels: array[TZCompressionLevel] of Shortint = (
+    Z_NO_COMPRESSION,
+    Z_BEST_SPEED,
+    Z_DEFAULT_COMPRESSION,
+    Z_BEST_COMPRESSION
+    );
+
+  SZInvalid = 'Invalid ZStream operation!';
+
+{*********************** Peter Morris not aligned move **********************}
+
+procedure MoveI32(const Source; var Dest; Count: Integer); register;
+asm
+        cmp   ECX,0
+        Je    @JustQuit
+        push  ESI
+        push  EDI
+        mov   ESI, EAX
+        mov   EDI, EDX
+    @Loop:
+	Mov   AL, [ESI]
+        Inc   ESI
+        mov   [EDI], AL
+        Inc   EDI
+        Dec   ECX
+        Jnz   @Loop
+        pop   EDI
+        pop   ESI
+    @JustQuit:
+end;
+{****************************************************************************}
+
+{** deflate routines ********************************************************}
+
+function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar;
+  recsize: Integer): Integer; external;
+
+function DeflateInit2_(var strm: TZStreamRec; level: integer; method: integer; windowBits: integer;
+  memLevel: integer; strategy: integer; version: PChar; recsize: integer): integer; external;
+
+function deflate(var strm: TZStreamRec; flush: Integer): Integer;
+  external;
+
+function deflateEnd(var strm: TZStreamRec): Integer; external;
+
+{** inflate routines ********************************************************}
+
+function inflateInit_(var strm: TZStreamRec; version: PChar;
+  recsize: Integer): Integer; external;
+
+function inflateInit2_(var strm: TZStreamRec; windowBits: integer;
+  version: PChar; recsize: integer): integer; external;
+
+function inflate(var strm: TZStreamRec; flush: Integer): Integer;
+  external;
+
+function inflateEnd(var strm: TZStreamRec): Integer; external;
+
+function inflateReset(var strm: TZStreamRec): Integer; external;
+
+{** utility routines  *******************************************************}
+
+function adler32; external;
+//function crc32; external;
+//function compressBound; external;
+
+{** zlib function implementations *******************************************}
+
+function zcalloc(opaque: Pointer; items, size: Integer): Pointer;
+begin
+  GetMem(result, items * size);
+end;
+
+procedure zcfree(opaque, block: Pointer);
+begin
+  FreeMem(block);
+end;
+
+{** c function implementations **********************************************}
+
+procedure _memset(p: Pointer; b: Byte; count: Integer); cdecl;
+begin
+  FillChar(p^, count, b);
+end;
+
+procedure _memcpy(dest, source: Pointer; count: Integer); cdecl;
+begin
+  Move(source^, dest^, count);
+end;
+
+function _malloc(Size: Integer): Pointer; cdecl;
+begin
+  GetMem(Result, Size);
+end;
+
+procedure _free(Block: Pointer); cdecl;
+begin
+  FreeMem(Block);
+end;
+
+{** custom zlib routines ****************************************************}
+
+function DeflateInit(var stream: TZStreamRec; level: Integer): Integer;
+begin
+  result := DeflateInit_(stream, level, ZLIB_VERSION, SizeOf(TZStreamRec));
+end;
+
+function DeflateInit2(var stream: TZStreamRec; level, method, windowBits,
+  memLevel, strategy: Integer): Integer;
+begin
+  result := DeflateInit2_(stream, level, method, windowBits, memLevel, strategy, ZLIB_VERSION, SizeOf(TZStreamRec));
+end;
+
+function InflateInit(var stream: TZStreamRec): Integer;
+begin
+  result := InflateInit_(stream, ZLIB_VERSION, SizeOf(TZStreamRec));
+end;
+
+function InflateInit2(var stream: TZStreamRec; windowBits: Integer): Integer;
+begin
+  result := InflateInit2_(stream, windowBits, ZLIB_VERSION, SizeOf(TZStreamRec));
+end;
+
+{****************************************************************************}
+
+function ZCompressCheck(code: Integer): Integer;
+begin
+  result := code;
+
+  if code < 0 then
+  begin
+    raise EZCompressionError.Create(_z_errmsg[2 - code]);
+  end;
+end;
+
+function ZDecompressCheck(code: Integer): Integer;
+begin
+  Result := code;
+
+  if code < 0 then
+  begin
+    raise EZDecompressionError.Create(_z_errmsg[2 - code]);
+  end;
+end;
+
+procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
+  out outBuffer: Pointer; out outSize: Integer;
+  level: TZCompressionLevel);
+const
+  delta = 256;
+var
+  zstream: TZStreamRec;
+begin
+  FillChar(zstream, SizeOf(TZStreamRec), 0);
+
+  outSize := ((inSize + (inSize div 10) + 12) + 255) and not 255;
+  GetMem(outBuffer, outSize);
+
+  try
+    zstream.next_in := inBuffer;
+    zstream.avail_in := inSize;
+    zstream.next_out := outBuffer;
+    zstream.avail_out := outSize;
+
+    ZCompressCheck(DeflateInit(zstream, ZLevels[level]));
+
+    try
+      while ZCompressCheck(deflate(zstream, Z_FINISH)) <> Z_STREAM_END do
+      begin
+        Inc(outSize, delta);
+        ReallocMem(outBuffer, outSize);
+
+        zstream.next_out := PAnsiChar(Integer(outBuffer) + zstream.total_out);
+        zstream.avail_out := delta;
+      end;
+    finally
+      ZCompressCheck(deflateEnd(zstream));
+    end;
+
+    ReallocMem(outBuffer, zstream.total_out);
+    outSize := zstream.total_out;
+  except
+    FreeMem(outBuffer);
+    raise;
+  end;
+end;
+
+procedure ZCompress2(const inBuffer: Pointer; inSize: Integer;
+  out outBuffer: Pointer; out outSize: Integer);
+const
+  delta = 256;
+var
+  zstream: TZStreamRec;
+begin
+  FillChar(zstream, SizeOf(TZStreamRec), 0);
+
+  outSize := ((inSize + (inSize div 10) + 12) + 255) and not 255;
+  GetMem(outBuffer, outSize);
+
+  try
+    zstream.next_in := inBuffer;
+    zstream.avail_in := inSize;
+    zstream.next_out := outBuffer;
+    zstream.avail_out := outSize;
+
+    ZCompressCheck(DeflateInit2(zstream, 1, 8, -15, 9, 0));
+
+    try
+      while ZCompressCheck(deflate(zstream, Z_FINISH)) <> Z_STREAM_END do
+      begin
+        Inc(outSize, delta);
+        ReallocMem(outBuffer, outSize);
+
+        zstream.next_out := PAnsiChar(Integer(outBuffer) + zstream.total_out);
+        zstream.avail_out := delta;
+      end;
+    finally
+      ZCompressCheck(deflateEnd(zstream));
+    end;
+
+    ReallocMem(outBuffer, zstream.total_out);
+    outSize := zstream.total_out;
+  except
+    FreeMem(outBuffer);
+    raise;
+  end;
+end;
+
+procedure ZDecompress(const inBuffer: Pointer; inSize: Integer;
+  out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer);
+var
+  zstream: TZStreamRec;
+  delta: Integer;
+begin
+  FillChar(zstream, SizeOf(TZStreamRec), 0);
+
+  delta := (inSize + 255) and not 255;
+
+  if outEstimate = 0 then outSize := delta
+  else outSize := outEstimate;
+
+  GetMem(outBuffer, outSize);
+
+  try
+    zstream.next_in := inBuffer;
+    zstream.avail_in := inSize;
+    zstream.next_out := outBuffer;
+    zstream.avail_out := outSize;
+
+    ZDecompressCheck(InflateInit(zstream));
+
+    try
+      while ZDecompressCheck(inflate(zstream, Z_NO_FLUSH)) <> Z_STREAM_END do
+      begin
+        Inc(outSize, delta);
+        ReallocMem(outBuffer, outSize);
+
+        zstream.next_out := PAnsiChar(Integer(outBuffer) + zstream.total_out);
+        zstream.avail_out := delta;
+      end;
+    finally
+      ZDecompressCheck(inflateEnd(zstream));
+    end;
+
+    ReallocMem(outBuffer, zstream.total_out);
+    outSize := zstream.total_out;
+  except
+    FreeMem(outBuffer);
+    raise;
+  end;
+end;
+
+{** string routines *********************************************************}
+
+function ZCompressStr(const s: string; level: TZCompressionLevel): string;
+var
+  buffer: Pointer;
+  size: Integer;
+begin
+  ZCompress(PChar(s), Length(s), buffer, size, level);
+  SetLength(result, size);
+  Move(buffer^, pointer(result)^, size);
+  FreeMem(buffer);
+end;
+
+procedure ZFastCompressString(var s: ansistring; level: TZCompressionLevel);
+var
+  outBuf: Pointer;
+  outBytes: Integer;
+begin
+  ZCompress(pointer(s), length(s), outBuf, outBytes, level);
+  SetLength(s, outBytes);
+  MoveI32(pointer(outBuf)^, pointer(s)^, outBytes);
+  FreeMem(outBuf);
+end;
+
+procedure ZFastDecompressString(var s: ansistring);
+var
+  outBuf: Pointer;
+  outBytes: Integer;
+begin
+  ZDecompress(pointer(s), Length(s), outBuf, outBytes);
+  SetLength(s, outBytes);
+  MoveI32(pointer(outBuf)^, pointer(s)^, outBytes);
+  FreeMem(outBuf);
+end;
+
+procedure ZSendToBrowser(var s: string);
+var
+  outBuf: Pointer;
+  outBytes: Integer;
+begin
+  ZCompress2(pointer(s), length(s), outBuf, outBytes);
+  SetLength(s, outBytes);
+  Move(pointer(outBuf)^, pointer(s)^, outBytes);
+  FreeMem(outBuf);
+end;
+
+function ZDecompressStr(const s: string): string;
+var
+  buffer: Pointer;
+  size: Integer;
+begin
+  ZDecompress(PChar(s), Length(s), buffer, size);
+  SetLength(result, size);
+  Move(buffer^, pointer(result)^, size);
+  FreeMem(buffer);
+end;
+
+{** stream routines *********************************************************}
+
+procedure ZCompressStream(inStream, outStream: TStream;
+  level: TZCompressionLevel);
+const
+  bufferSize = 32768;
+var
+  zstream: TZStreamRec;
+  zresult: Integer;
+  inBuffer: array[0..bufferSize - 1] of AnsiChar;
+  outBuffer: array[0..bufferSize - 1] of AnsiChar;
+  inSize: Integer;
+  outSize: Integer;
+begin
+  FillChar(zstream, SizeOf(TZStreamRec), 0);
+
+  ZCompressCheck(DeflateInit(zstream, ZLevels[level]));
+
+  inSize := inStream.Read(inBuffer, bufferSize);
+
+  while inSize > 0 do
+  begin
+    zstream.next_in := inBuffer;
+    zstream.avail_in := inSize;
+
+    repeat
+      zstream.next_out := outBuffer;
+      zstream.avail_out := bufferSize;
+
+      ZCompressCheck(deflate(zstream, Z_NO_FLUSH));
+
+      // outSize := zstream.next_out - outBuffer;
+      outSize := bufferSize - zstream.avail_out;
+
+      outStream.Write(outBuffer, outSize);
+    until (zstream.avail_in = 0) and (zstream.avail_out > 0);
+
+    inSize := inStream.Read(inBuffer, bufferSize);
+  end;
+
+  repeat
+    zstream.next_out := outBuffer;
+    zstream.avail_out := bufferSize;
+
+    zresult := ZCompressCheck(deflate(zstream, Z_FINISH));
+
+    // outSize := zstream.next_out - outBuffer;
+    outSize := bufferSize - zstream.avail_out;
+
+    outStream.Write(outBuffer, outSize);
+  until (zresult = Z_STREAM_END) and (zstream.avail_out > 0);
+
+  ZCompressCheck(deflateEnd(zstream));
+end;
+
+procedure ZDecompressStream(inStream, outStream: TStream);
+const
+  bufferSize = 32768;
+var
+  zstream: TZStreamRec;
+  zresult: Integer;
+  inBuffer: array[0..bufferSize - 1] of AnsiChar;
+  outBuffer: array[0..bufferSize - 1] of AnsiChar;
+  inSize: Integer;
+  outSize: Integer;
+begin
+  FillChar(zstream, SizeOf(TZStreamRec), 0);
+
+  ZCompressCheck(InflateInit(zstream));
+
+  inSize := inStream.Read(inBuffer, bufferSize);
+
+  while inSize > 0 do
+  begin
+    zstream.next_in := inBuffer;
+    zstream.avail_in := inSize;
+
+    repeat
+      zstream.next_out := outBuffer;
+      zstream.avail_out := bufferSize;
+      
+      ZCompressCheck(inflate(zstream, Z_NO_FLUSH));
+
+      // outSize := zstream.next_out - outBuffer;
+      outSize := bufferSize - zstream.avail_out;
+
+      outStream.Write(outBuffer, outSize);
+    until (zstream.avail_in = 0);
+
+    inSize := inStream.Read(inBuffer, bufferSize);
+  end;
+
+  repeat
+    zstream.next_out := outBuffer;
+    zstream.avail_out := bufferSize;
+
+    zresult := ZCompressCheck(inflate(zstream, Z_FINISH));
+
+    // outSize := zstream.next_out - outBuffer;
+    outSize := bufferSize - zstream.avail_out;
+
+    outStream.Write(outBuffer, outSize);
+  until (zresult = Z_STREAM_END) and (zstream.avail_out > 0);
+
+  ZCompressCheck(inflateEnd(zstream));
+end;
+
+{** TCustomZStream **********************************************************}
+
+constructor TCustomZStream.Create(stream: TStream);
+begin
+  inherited Create;
+  FStream := stream;
+  FStreamPos := stream.Position;
+end;
+
+procedure TCustomZStream.DoProgress;
+begin
+  if Assigned(FOnProgress) then FOnProgress(Self);
+end;
+
+{** TZCompressionStream *****************************************************}
+
+constructor TCompressionStream.Create(compressionLevel: TZCompressionLevel; dest: TStream);
+begin
+  inherited Create(dest);
+
+  FZStream.next_out := FBuffer;
+  FZStream.avail_out := SizeOf(FBuffer);
+
+  ZCompressCheck(DeflateInit(FZStream, ZLevels[compressionLevel]));
+end;
+
+destructor TCompressionStream.Destroy;
+begin
+  FZStream.next_in := nil;
+  FZStream.avail_in := 0;
+
+  try
+    if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
+
+    while ZCompressCheck(deflate(FZStream, Z_FINISH)) <> Z_STREAM_END do
+    begin
+      FStream.WriteBuffer(FBuffer, SizeOf(FBuffer) - FZStream.avail_out);
+
+      FZStream.next_out := FBuffer;
+      FZStream.avail_out := SizeOf(FBuffer);
+    end;
+
+    if FZStream.avail_out < SizeOf(FBuffer) then
+    begin
+      FStream.WriteBuffer(FBuffer, SizeOf(FBuffer) - FZStream.avail_out);
+    end;
+  finally
+    deflateEnd(FZStream);
+  end;
+
+  inherited Destroy;
+end;
+
+function TCompressionStream.Read(var buffer; count: Longint): Longint;
+begin
+  raise EZCompressionError.Create(SZInvalid);
+end;
+
+function TCompressionStream.Write(const buffer; count: Longint): Longint;
+begin
+  FZStream.next_in := @buffer;
+  FZStream.avail_in := count;
+
+  if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
+
+  while FZStream.avail_in > 0 do
+  begin
+    ZCompressCheck(deflate(FZStream, Z_NO_FLUSH));
+
+    if FZStream.avail_out = 0 then
+    begin
+      FStream.WriteBuffer(FBuffer, SizeOf(FBuffer));
+
+      FZStream.next_out := FBuffer;
+      FZStream.avail_out := SizeOf(FBuffer);
+
+      FStreamPos := FStream.Position;
+
+      DoProgress;
+    end;
+  end;
+
+  result := Count;
+end;
+
+function TCompressionStream.Seek(offset: Longint; origin: Word): Longint;
+begin
+  if (offset = 0) and (origin = soFromCurrent) then
+  begin
+    result := FZStream.total_in;
+  end
+  else raise EZCompressionError.Create(SZInvalid);
+end;
+
+function TCompressionStream.GetCompressionRate: Single;
+begin
+  if FZStream.total_in = 0 then result := 0
+  else result := (1.0 - (FZStream.total_out / FZStream.total_in)) * 100.0;
+end;
+
+{** TZDecompressionStream ***************************************************}
+
+constructor TDecompressionStream.Create(source: TStream);
+begin
+  inherited Create(source);
+  FZStream.next_in := FBuffer;
+  FZStream.avail_in := 0;
+  ZDecompressCheck(InflateInit(FZStream));
+end;
+
+destructor TDecompressionStream.Destroy;
+begin
+  inflateEnd(FZStream);
+  inherited Destroy;
+end;
+
+function TDecompressionStream.Read(var buffer; count: Longint): Longint;
+var
+  zresult: Integer;
+begin
+  FZStream.next_out := @buffer;
+  FZStream.avail_out := count;
+
+  if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
+
+  zresult := Z_OK;
+
+  while (FZStream.avail_out > 0) and (zresult <> Z_STREAM_END) do
+  begin
+    if FZStream.avail_in = 0 then
+    begin
+      FZStream.avail_in := FStream.Read(FBuffer, SizeOf(FBuffer));
+
+      if FZStream.avail_in = 0 then
+      begin
+        result := count - FZStream.avail_out;
+
+        Exit;
+      end;
+
+      FZStream.next_in := FBuffer;
+      FStreamPos := FStream.Position;
+
+      DoProgress;
+    end;
+
+    zresult := ZDecompressCheck(inflate(FZStream, Z_NO_FLUSH));
+  end;
+
+  if (zresult = Z_STREAM_END) and (FZStream.avail_in > 0) then
+  begin
+    FStream.Position := FStream.Position - FZStream.avail_in;
+    FStreamPos := FStream.Position;
+
+    FZStream.avail_in := 0;
+  end;
+
+  result := count - FZStream.avail_out;
+end;
+
+function TDecompressionStream.Write(const Buffer; Count: Longint): Longint;
+begin
+  raise EZDecompressionError.Create(SZInvalid);
+end;
+
+function TDecompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
+var
+  buf: array[0..8191] of Byte;
+  i: Integer;
+begin
+  if (offset = 0) and (origin = soFromBeginning) then
+  begin
+    ZDecompressCheck(inflateReset(FZStream));
+
+    FZStream.next_in := FBuffer;
+    FZStream.avail_in := 0;
+
+    FStream.Position := 0;
+    FStreamPos := 0;
+  end
+  else if ((offset >= 0) and (origin = soFromCurrent)) or
+    (((offset - FZStream.total_out) > 0) and (origin = soFromBeginning)) then
+  begin
+    if origin = soFromBeginning then Dec(offset, FZStream.total_out);
+
+    if offset > 0 then
+    begin
+      for i := 1 to offset div SizeOf(buf) do ReadBuffer(buf, SizeOf(buf));
+      ReadBuffer(buf, offset mod SizeOf(buf));
+    end;
+  end
+  else if (offset = 0) and (origin = soFromEnd) then
+  begin
+    while Read(buf, SizeOf(buf)) > 0 do ;
+  end
+  else raise EZDecompressionError.Create(SZInvalid);
+
+  result := FZStream.total_out;
+end;
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/uncompr.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/uncompr.obj
new file mode 100644
index 0000000..12cd70b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/uncompr.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/zutil.obj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/zutil.obj
new file mode 100644
index 0000000..9395409
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/ZLib/zutil.obj differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/eDefines.inc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/eDefines.inc
new file mode 100644
index 0000000..ef01d58
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/eDefines.inc	
@@ -0,0 +1,495 @@
+{----------------------------------------------------------------------------}
+{file:      eDefines.inc                                                     }
+{type:      Delphi include file                                              }
+{                                                                            }
+{compiler:  Borland Pascal 7,                                                }
+{           Delphi 1-7, 2005-2007 for Win32                                  }
+{           Kylix 1-3,                                                       }
+{           C++Builder 1-6, 2006-2007                                        }
+{           Free Pascal Compiler 2.x                                         }
+{                                                                            }
+{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X                  }
+{                                                                            }
+{author:    mh@elitedev.com                                                  }
+{                                                                            }
+{contents:  Defines that can be flexibily used to determine the exact        }
+{           compiler version used.                                           }
+{                                                                            }
+{(c)opyright elitedevelopments software. all rights reserved.                }
+{            http://www.elitedev.com                                         }
+{                                                                            }
+{ Third Party component developers are encouraged to use the set of defines  }
+{ established in this file, rather then their own system, for checking their }
+{ component libraries agains different versions of Delphi and C++Builder.    }
+{                                                                            }
+{ This file may be distributed freely with both free and commercial source   }
+{ libraries, but you are asked to please leave this comment in place, and    }
+{ to return any improvements you make to this file to the maintainer that    }
+{ is noted above.                                                            }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ Compiler and OS version defines:                                           }
+{                                                                            }
+{ exact compiler versions:                                                   }
+{                                                                            }
+{ BP7             Borland Pascal 7.0                                         }
+{ DELPHI1         Delphi 1.0 (any Delphi)                                    }
+{ DELPHI2         Delphi 2.0                                                 }
+{ DELPHI3         Delphi 3.0                                                 }
+{ DELPHI4         Delphi 4.0                                                 }
+{ DELPHI5         Delphi 5.0                                                 }
+{ DELPHI6         Delphi 6.0                                                 }
+{ DELPHI7         Delphi 7.0                                                 }
+{ DELPHI9         Delphi 2005                                                }
+{ DELPHI2005      Delphi 2005                                                }
+{ DELPHI2006      Delphi 2006                                                }
+{ DELPHI2007      Delphi 2007                                                }
+{ KYLIX1          Kylix 1.0                                                  }
+{ KYLIX2          Kylix 2.0                                                  }
+{ KYLIX3          Kylix 3.0                                                  }
+{ CBUILDER1       C++Builder 1.0                                             }
+{ CBUILDER3       C++Builder 3.0                                             }
+{ CBUILDER4       C++Builder 4.0                                             }
+{ CBUILDER5       C++Builder 5.0                                             }
+{                                                                            }
+{                                                                            }
+{ minimum compiler versions:                                                 }
+{                                                                            }
+{ DELPHI1UP       Delphi 1.0 and above (any Delphi)                          }
+{ DELPHI2UP       Delphi 2.0 and above                                       }
+{ DELPHI3UP       Delphi 3.0 and above                                       }
+{ DELPHI4UP       Delphi 4.0 and above                                       }
+{ DELPHI5UP       Delphi 5.0 and above                                       }
+{ DELPHI6UP       Delphi 6.0 and above                                       }
+{ DELPHI7UP       Delphi 7.0 and above                                       }
+{ DELPHI9UP       Delphi 9.0 (2005) and above                                }
+{ DELPHI10UP      Delphi 10.0 (2006) and above                               }
+{ DELPHI11UP      Delphi 11.0 (2007) and above                               }
+{ DELPHI2005UP    Delphi 2005 and above                                      }
+{ DELPHI2006UP    Delphi 2006 and above                                      }
+{ DELPHI2007UP    Delphi 2007 and above                                      }
+{ KYLIX1UP        Kylix 1.0 and above (any Kylix)                            }
+{ KYLIX2UP        Kylix 2.0 and above (any Kylix)                            }
+{ KYLIX3UP        Kylix 3.0 and above (any Kylix)                            }
+{ CBUILDER1UP     C++Builder 1.0 and above or Delphi 2 and above             }
+{ CBUILDER3UP     C++Builder 3.0 and above or Delphi 3.0 and above           }
+{ CBUILDER4UP     C++Builder 4.0 and above or Delphi 4.0 and above           }
+{ CBUILDER5UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{ CBUILDER6UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{                                                                            }
+{                                                                            }
+{ compiler types:                                                            }
+{                                                                            }
+{ BP              Borland Pascal (not Delphi or C++Builder)                  }
+{ DELPHI          any Delphi version (but not C++Builder or Kylix)           }
+{ KYLIX           any Kylix version (not Delphi or C++Builder for Windows)   }
+{ CBUILDER        any C++Builder for Windows (Pascal)                        }
+{                                                                            }
+{                                                                            }
+{ target platforms compiler types:                                           }
+{                                                                            }
+{ DELPHI_16BIT    16bit Delphi (but not C++Builder!)                         }
+{ DELPHI_32BIT    32bit Delphi (but not C++Builder)                          }
+{ KYLIX_32BIT     32bit Kylix (but not C++Builder)                           }
+{ CBUILDER_32BIT  32bit C++Builer's Pascal (but not Delphi)                  }
+{                                                                            }
+{                                                                            }
+{ target cpu types                                                           }
+{                                                                            }
+{ CPU16           16bit Delphi or Borland Pascal                             }
+{ CPU32           32bit Delphi or Free Pascal                                }
+{ CPU64           64bit Free Pascal                                          }
+{                                                                            }
+{ target platforms                                                           }
+{                                                                            }
+{ DOS             any DOS (plain and DPMI)                                   }
+{ REALMODE        16bit realmode DOS                                         }
+{ PROTECTEDMODE   16bit DPMI DOS                                             }
+{                                                                            }
+{ MSWINDOWS       any Windows platform                                       }
+{ WIN16           16bit Windows                                              }
+{ WIN32           32bit Windows                                              }
+{ WIN64           64bit Windows                                              }
+{ DOTNET          .NET                                                       }
+{                                                                            }
+{ LINUX           any Linux platform                                         }
+{ LINUX32         32bit Linux                                                }
+{ LINUX64         64bit Linux                                                }
+{                                                                            }
+{ DARWIN          Any Mac OS X                                               }
+{ DARWIN32        32bit Mac OS X                                             }
+{ DARWIN64        64bit Mac OS X                                             }
+{----------------------------------------------------------------------------}
+
+{ defines for Borland Pascal 7.0 }
+{$IFDEF VER70}
+  {$DEFINE BP}
+  {$DEFINE BP7}
+  {$DEFINE 16BIT}
+  {$DEFINE CPU16}
+
+  { defines for BP7 DOS real mode }
+  {$IFDEF MSDOS}
+    {$DEFINE DOS}
+    {$DEFINE REALMODE}
+  {$ENDIF}
+
+  { defines for BP7 DOS protected mode }
+  {$IFDEF DPMI}
+    {$DEFINE DOS}
+    {$DEFINE PROTECTEDMODE}
+  {$ENDIF}
+
+  { defines for BP7 Windows }
+  {$IFDEF WINDOWS}
+    {$DEFINE MSWINDOWS}
+    {$DEFINE WIN16}
+  {$ENDIF}
+{$ENDIF}
+
+{ defines for Delphi 1.0 thru 7.0 }
+{$IFDEF MSWINDOWS}
+
+  { defines for Delphi 1.0 }
+  {$IFDEF VER80}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI1}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI_16BIT}
+    {$DEFINE WIN16}
+    {$DEFINE 16BIT}
+    {$DEFINE CPU16}
+  {$ENDIF}
+
+  { defines for Delphi 2.0 }
+  {$IFDEF VER90}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI2}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+  {$ENDIF}
+
+  { defines for C++Builder 1.0 }
+  {$IFDEF VER93}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER1}
+    {$DEFINE CBUILDER1UP}
+  {$ENDIF}
+
+  { defines for Delphi 3.0 }
+  {$IFDEF VER100}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI3}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+  {$ENDIF}
+
+  { defines for C++Builder 3.0 }
+  {$IFDEF VER110}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER3}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+  {$ENDIF}
+
+  { defines for Delphi 4.0 }
+  {$IFDEF VER120}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI4}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+  {$ENDIF}
+
+  { defines for C++Builder 4.0 }
+  {$IFDEF VER125}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER4}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+  {$ENDIF}
+  { defines for Delphi 5.0 }
+  {$IFDEF VER130}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI5}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+  {$ENDIF}
+
+  { defines for C++Builder 5.0 }
+  {$IFDEF VER135}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER5}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+    {$DEFINE CBUILDER5UP}
+  {$ENDIF}
+
+  { defines for Delphi 6.0 }
+  {$IFDEF VER140}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI6}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+  {$ENDIF}
+
+  { defines for Delphi 7.0 }
+  {$IFDEF VER150}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI7}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+  {$ENDIF}
+
+  { defines for Delphi 2005 }
+  {$IFDEF VER170}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI9}
+    {$DEFINE DELPHI2005}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS3}
+    {$DEFINE BDS3UP}
+  {$ENDIF}
+
+  { defines for Delphi 2006 }
+  {$IFDEF VER180}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI10}
+    {$DEFINE DELPHI10A}  
+    {$DEFINE DELPHI2006}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS4}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+  {$ENDIF}
+
+  { defines for Delphi 2007 }
+  {$IFDEF VER185}
+    {$UNDEF DELPHI10A}  // declared in VER180
+    {$UNDEF DELPHI2006} // declared in VER180
+    {$UNDEF BDS4}       // declared in VER180
+
+    {$DEFINE DELPHI10B}    
+    {$DEFINE DELPHI10BUP}    
+    {$DEFINE DELPHI11}    
+    {$DEFINE DELPHI11UP}    
+    {$DEFINE DELPHI2007}
+    {$DEFINE DELPHI2007UP}    
+    {$DEFINE BDS5}
+    {$DEFINE BDS5UP}
+  {$ENDIF}
+
+  { defines for Delphi 2009 }
+  {$IFDEF VER200}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI12}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+
+    {$DEFINE DELPHI2009}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+
+    {$DEFINE BDS}
+    {$DEFINE BDS6}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+  {$ENDIF}
+
+  { defines for Delphi 2010 }
+  {$IFDEF VER210}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI14}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+    {$DEFINE DELPHI14UP}    
+
+    {$DEFINE DELPHI2010}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+    {$DEFINE DELPHI2010UP}    
+
+    {$DEFINE BDS}
+    {$DEFINE BDS7}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+    {$DEFINE BDS7UP}
+  {$ENDIF}
+  
+
+  {$IFDEF WIN32}
+    {$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
+    {$DEFINE 32BIT}
+    {$DEFINE CPU32}
+  {$ENDIF}
+
+{$ENDIF MSWINDOWS}
+
+{ defines for "Delphi for .NET" }
+{$IFDEF CLR}
+  {$DEFINE DOTNET}
+{$ENDIF}
+
+{$IFDEF DELPHI}
+  {$IFDEF DELPHI2UP}
+    {$DEFINE DELPHI_32BIT}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF CBUILDER}
+  {$DEFINE CBUILDER_32BIT}
+{$ENDIF}
+
+{$IFNDEF FPC}
+
+  { Kylix 1.0 thru 3.0 }
+  {$IFDEF LINUX}
+
+    {$DEFINE VER140UP}
+
+    { Any Kylix }
+    {$DEFINE 32BIT}
+    {$DEFINE LINUX32}
+    {$DEFINE KYLIX_32BIT}
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+
+    {$IFDEF CONDITIONALEXPRESSIONS}
+      {$IF Declared(CompilerVersion)}
+
+         { Kylix 2.0 }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.1)}
+           {$DEFINE KYLIX2}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+         {$IFEND}
+
+         { Kylix 3.0 - Delphi portion }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.5)}
+           {$DEFINE KYLIX3}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+           {$DEFINE KYLIX3UP}
+         {$IFEND}
+
+      { Kylix 1.0 }
+      {$ELSE}
+        {$DEFINE KYLIX1}
+      {$IFEND}
+    {$ENDIF CONDITIONALEXPRESSIONS}
+
+  {$ENDIF LINUX}
+{$ENDIF}
+
+{ CPU }
+
+{$IFDEF FPC}
+  {$IFDEF MSWINDOWS}
+    {$IFDEF CPU64}
+      {$DEFINE WIN64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF LINUX}
+    {$IFDEF CPU32}
+      {$DEFINE LINUX32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE LINUX64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF DARWIN}
+    {$IFDEF CPU32}
+      {$DEFINE DARWIN32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE DARWIN64}
+    {$ENDIF}
+  {$ENDIF}
+{$ELSE}
+  {$DEFINE ENDIAN_LITTLE} // To have endianness symbol defined in Delphi too
+{$ENDIF}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPAsyncHttpServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPAsyncHttpServer.pas
new file mode 100644
index 0000000..b30bead
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPAsyncHttpServer.pas	
@@ -0,0 +1,553 @@
+unit uIPAsyncHttpServer;
+
+interface
+
+{$I RemObjects.inc}
+
+uses
+  SysUtils, Classes, uIPAsyncSocket, uIPHttpHeaders;
+
+const
+  DefaultMaxPostData = 1024 * 1024 * 2; // 2 mb
+
+type
+  TIPAsyncHTTPServer = class;
+  TIPAsyncContext = class;
+  IIPAsyncContext = interface
+    ['{83983C87-A9ED-47F2-9352-8C61455325A0}']
+    function GetOwner: TIPAsyncHTTPServer;
+    function GetRequest: TIPHTTPRequestHeaders;
+    function GetResponse: TIPHTTPResponseHeaders;
+    function GetRequestData: TDynamicByteArray;
+    procedure SetRequestData(aData: TDynamicByteArray);
+    function GetResponseData: TDynamicByteArray;
+    procedure SetResponseData(aData: TDynamicByteArray);
+    function GetResponseSent: Boolean;
+    function GetUserData: Pointer;
+    procedure SetUserData(aData: Pointer);
+    function GetDisconnected: Boolean;
+
+    property Owner: TIPAsyncHTTPServer read GetOwner;
+    property Request: TIPHTTPRequestHeaders read GetRequest;
+    property Response: TIPHTTPResponseHeaders read GetResponse;
+    property RequestData: TDynamicByteArray read GetRequestData write SetRequestData;
+    property ResponseData: TDynamicByteArray read GetResponseData write SetResponseData;
+    property ResponseSent: Boolean read GetResponseSent;
+    property UserData: Pointer read GetUserData write SetUserData;
+    property Disconnected: Boolean read GetDisconnected;
+
+    procedure SendResponse;
+    function GetSelf: TIPAsyncContext;
+  end;
+  TIPAsyncContext = class(TInterfacedObject, IIPAsyncContext)
+  private
+    fOwner: TIPAsyncHTTPServer;
+    fRequest: TIPHTTPRequestHeaders;
+    fResponse: TIPHTTPResponseHeaders;
+    fRequestData: TDynamicByteArray;
+    fResponseData: TDynamicByteArray;
+    fResponseSent: Boolean;
+    fConnection: TIPBaseAsyncSocket;
+    fUserData: Pointer;
+    fTempBuf: TDynamicByteArray;
+    fBodyOffset: Integer;
+    fDisconnected: Boolean;
+    procedure cbDisconnect(sender: TIPBaseAsyncSocket);
+    procedure cbFirstLine(sender: TIPBaseAsyncSocket);
+    procedure cbHeaderLine(sender: TIPBaseAsyncSocket);
+    procedure cbPostData(sender: TIPBaseAsyncSocket);
+    procedure cbResponse(sender: TIPBaseAsyncSocket);
+    procedure SendInvalidRequest(aMessage: Ansistring = '');
+    function GetDisconnected: Boolean;
+    function GetOwner: TIPAsyncHTTPServer;
+    function GetRequest: TIPHTTPRequestHeaders;
+    function GetRequestData: TDynamicByteArray;
+    function GetResponse: TIPHTTPResponseHeaders;
+    function GetResponseData: TDynamicByteArray;
+    function GetResponseSent: Boolean;
+    function GetUserData: Pointer;
+    procedure SetRequestData(aData: TDynamicByteArray);
+    procedure SetResponseData(aData: TDynamicByteArray);
+    procedure SetUserData(aData: Pointer);
+  public
+    constructor Create(aOwner: TIPAsyncHTTPServer; aConnection: TIPBaseAsyncSocket);
+    destructor Destroy; override;
+
+    procedure Clear;
+
+    procedure Disconnect;
+
+    property Owner: TIPAsyncHTTPServer read fOwner;
+    property Request: TIPHTTPRequestHeaders read fRequest;
+    property Response: TIPHTTPResponseHeaders read fResponse;
+    property RequestData: TDynamicByteArray read fRequestData write fRequestData;
+    property ResponseData: TDynamicByteArray read fResponseData write fResponseData;
+    property ResponseSent: Boolean read fResponseSent;
+    property UserData: Pointer read fUserData write fUserData;
+    property Disconnected: Boolean read fDisconnected;
+
+    procedure SendResponse;
+    function GetSelf: TIPAsyncContext;
+  end;
+  TIPAsyncHTTPRequestHandler = procedure (Sender: TObject; aContext: IIPAsyncContext) of Object;
+  TIPAsyncHTTPServer = class(TObject)
+  private
+    fDisableNagle: Boolean;
+    fOnManualBind: TNotifyEvent;
+    fOnBeforeData,
+    fOnBeforeCleanupContext,
+    fOnRequest: TIPAsyncHTTPRequestHandler;
+    fOnResponseSent,
+    fOnResponsefailed: TIPAsyncHTTPRequestHandler;
+    fMaxPostData: Integer;
+    fMaxHeaderLines: Integer;
+    fActive: Boolean;
+    fSocket4,
+    fSocket6: TIPBaseAsyncSocket;
+    fBindV4,
+    fBindV6: Boolean;
+    fPort: Integer;
+    fClients: TInterfaceList;
+    procedure SetActive(aValue: Boolean);
+    procedure cbAccept(aSender: TIPBaseAsyncSocket);
+    procedure DisconnectClients;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    property Socket4: TIPBaseAsyncSocket read fSocket4;
+    property Socket6: TIPBaseAsyncSocket read fSocket6;
+    property Port: Integer read fPort write fPort default 80;
+    property BindV4: Boolean read fBindV4 write fBindV4 default true;
+    property BindV6: Boolean read fBindV6 write fBindV6 default false;
+    property MaxHeaderLines: Integer read fMaxHeaderLines write fMaxHeaderLines default 64;
+    property DisableNagle: Boolean read fDisableNagle write fDisableNagle default true;
+
+    property Active: Boolean read fActive write SetActive;
+
+    property MaxPostData: Integer read fMaxPostData write fMaxPostData default DefaultMaxPostData;
+
+    property OnManualBind: TNotifyEvent read fOnManualBind write fOnManualBind;
+    property OnBeforeData: TIPAsyncHTTPRequestHandler read fOnBeforeData write fOnBeforeData;
+    property OnRequest: TIPAsyncHTTPRequestHandler read fOnrequest write fOnrequest;
+    property OnBeforeCleanupContext: TIPAsyncHTTPRequestHandler read fOnBeforeCleanupContext write fOnBeforeCleanupContext;
+    property OnResponseSent: TIPAsyncHTTPRequestHandler read fOnResponseSent write fOnResponseSent;
+    property OnResponseFailed: TIPAsyncHTTPRequestHandler read fOnResponsefailed write fOnResponsefailed;
+
+  end;
+
+implementation
+
+uses Math, uROClasses;
+
+{ TIPAsyncContext }
+
+procedure TIPAsyncContext.cbDisconnect(sender: TIPBaseAsyncSocket);
+var
+  lConn: TIPBaseAsyncSocket;
+  lRef: integer;
+begin
+  if FRefCount <>0 then lRef := _AddRef else lRef := -1;
+  try
+    fDisconnected := true;
+    if assigned(fOwner) and assigned(fOwner.fOnBeforeCleanupContext) then
+      fOwner.fOnBeforeCleanupContext(fOwner, Self);
+    lConn := fConnection;
+    fConnection := nil;
+    if lConn <> nil then begin
+      lConn.EndDisconnect;
+      lConn.Free;
+    end;
+    if assigned(fOwner) then begin
+      fOwner.fClients.Remove(IIPAsyncContext(self));
+      fOwner := nil;
+    end;
+  finally
+    if lRef <> -1 then _Release;
+  end;
+end;
+
+procedure TIPAsyncContext.cbFirstLine(sender: TIPBaseAsyncSocket);
+var
+  lLine: Ansistring;
+  lIdx: Integer;
+begin
+  if not sender.EndReadLine(lLine) then begin
+    cbDisconnect(sender);
+    exit;
+  end;
+  lIdx := pos(AnsiChar(' '), lLine);
+  if lIdx = 0 then begin
+    SendInvalidRequest;
+    exit;
+  end;
+  fRequest.Method := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(copy(lLine, 1, lIdx-1));
+  Delete(lLine, 1, lIdx);
+  lIdx := pos(AnsiChar(' '), lLine);
+  if lIdx = 0 then begin
+    SendInvalidRequest;
+    exit;
+  end;
+  fRequest.Path := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(copy(lLine, 1, lIdx -1));
+  fRequest.Version := UpperCase({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(copy(lLine, lIdx+1, MaxInt)));
+  if (fRequest.Method <> 'GET') and (fRequest.Method <> 'POST') then begin
+    SendInvalidRequest;
+    exit;
+  end;
+
+  sender.BeginReadLine(cbHeaderLine);
+end;
+
+procedure TIPAsyncContext.cbHeaderLine(sender: TIPBaseAsyncSocket);
+var
+  lLine: Ansistring;
+  i: Integer;
+  lName, lVal: string;
+begin
+  if not Sender.EndReadLine(lLine) then begin
+    cbDisconnect(sender);
+    exit;
+  end;
+  if lLine <> '' then begin
+    if assigned(fOwner) and (fRequest.Headers.Count > fOwner.MaxHeaderLines) then begin
+      SendInvalidRequest;
+      exit;
+    end;
+    i := Pos(AnsiChar(':'), lLine);
+    if i = 0 then begin
+      SendInvalidRequest;
+      exit;
+    end;
+    lName := Trim({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(copy(lLine, 1, i-1)));
+    lVal := trim({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Copy(lLine, i+1, MaxInt)));
+    fRequest.Headers.Add(lName+'='+lVal);
+    sender.BeginReadLine(cbHeaderLine);
+  end else begin
+    if fRequest.Method = 'POST' then begin
+      try
+        if assigned(fOwner) and assigned(fowner.fOnBeforeData) then fOwner.fOnBeforeData(fOwner, Self);
+      except
+        SendInvalidRequest; // we cannot let exceptions escape to the caller thread.
+        exit;
+      end;
+      if fRequest.ContentLength > fOwner.fMaxPostData then begin
+        SendInvalidRequest('Content-Length too large');
+        exit;
+      end;
+      SetLength(fRequestData, fRequest.ContentLength);
+      sender.BeginReceive(@fRequestData[0], 0, Length(fRequestData), cbPostData);
+    end else begin
+      try
+        if assigned(fOwner) and assigned(fOwner.fOnRequest) then begin
+          fOwner.fOnRequest(fOwner, Self);
+        end else begin
+          SendInvalidRequest('Request handler not assigned');
+          exit;
+        end;
+      except
+        SendInvalidRequest;
+        exit;
+      end;
+    end;
+  end;
+end;
+
+procedure TIPAsyncContext.cbPostData(sender: TIPBaseAsyncSocket);
+begin
+  if sender.EndReceive < Length(fRequestData) then begin
+    cbDisconnect(sender); // we got disconnected when there's less data. When buffered is true it won't return until all data is there.
+    exit;
+  end;
+  try
+    if assigned(fOwner) and assigned(fOwner.fOnRequest) then begin
+      Request.ClientAddress:= sender.GetRemoteIp;
+      fOwner.fOnRequest(fOwner, Self);
+    end else begin
+      SendInvalidRequest('Request handler not assigned');
+      exit;
+    end;
+  except
+    SendInvalidRequest;
+    exit;
+  end;
+end;
+
+procedure TIPAsyncContext.Clear;
+begin
+  if assigned(fOwner) and assigned(fOwner.fOnBeforeCleanupContext) then
+    fOwner.fOnBeforeCleanupContext(fOwner, Self);
+  fRequest.Clear;
+  fResponse.Clear;
+  fRequestData := nil;
+  fResponseData := nil;
+  fResponseSent := false;
+end;
+
+constructor TIPAsyncContext.Create(aOwner: TIPAsyncHTTPServer;
+  aConnection: TIPBaseAsyncSocket);
+begin
+  fOwner := aOwner;
+  fConnection := aConnection;
+  fConnection.MaxLineLength := 8096;
+  fConnection.OnDisconnected := cbDisconnect;
+  fRequest := TIPHTTPRequestHeaders.Create;
+  fResponse := TIPHTTPResponseHeaders.Create;
+  fconnection.Buffered := true;
+  fConnection.IdleTimeout := 180; // 3min
+  fConnection.OnTimeout := cbDisconnect;
+  fConnection.BeginReadLine(cbFirstLine);
+end;
+
+destructor TIPAsyncContext.Destroy;
+begin
+  if fConnection<>nil then cbDisconnect(fConnection);
+  inc(FRefCount);
+  Clear;
+  Dec(FRefCount);
+  fRequest.Free;
+  fResponse.Free;
+  inherited Destroy;
+end;
+
+procedure TIPAsyncContext.Disconnect;
+begin
+  fDisconnected := true;
+  if fResponseSent then begin
+    if assigned(fOwner) and assigned(fOwner.fOnResponsefailed) then fOwner.fOnResponsefailed(fOwner, Self);
+  end;
+
+  if assigned(fConnection) then
+    fConnection.BeginDisconnect(cbDisconnect);
+end;
+
+procedure TIPAsyncContext.SendInvalidRequest(aMessage: Ansistring = '');
+begin
+  fResponse.Code := 500;
+  fResponse.Reason := 'Internal Server Error';
+  fResponse.Headers.VAlues['Content-Type'] := 'text/html';
+  aMessage := '<html><head><title>Invalid Request</title></head><body><h1>Invalid Request</h1>'+aMessage+'</body></html>';
+  SetLength(fResponseData, Length(aMessage));
+  Move(aMessage[1], fResponseData[0], Length(aMessage));
+  SendResponse;
+end;
+
+procedure TIPAsyncContext.SendResponse;
+var
+  lHeaderData: Ansistring;
+begin
+  if fResponseSent then raise EIPSocketError.Create('Response already sent');
+  fResponseSent := true;
+  if fDisconnected then begin
+    if assigned(fOwner)  and assigned(fOwner.fOnResponsefailed) then begin
+      fOwner.fOnResponsefailed(fOwner, self);
+    end;
+    exit;
+  end;
+  fResponse.Headers.Values['Content-Length'] := IntToStr(Length(fResponseData));
+  lHeaderData := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fResponse.ToString);
+  if (Length(lHeaderData) > 4096) or (Length(fResponseData) = 0) then begin
+    if Length(fTempBuf) < Length(lHeaderData) then begin
+      if Length(lHeaderData) > 4096 then
+        SetLength(fTempBuf, Length(lHeaderData))
+      else
+        SetLength(fTempBuf, 4096);
+    end;
+    Move(lHeaderdata[1], fTempBuf[0], Length(lHeaderData));
+    fBodyOffset := 0;
+    fConnection.BeginSend(@ftempBuf[0], 0, Length(lHeaderData), cbResponse);
+  end else begin
+    if Length(fTempBuf) < 4096 then SetLength(fTempBuf, 4096);
+    Move(lHeaderdata[1], fTempBuf[0], Length(lHeaderData));
+    fBodyOffset := 4096 - Length(lHeaderData);
+    if fBodyOffset > Length(fResponseData) then fBodyOffset := Length(fResponseData);
+    Move(fResponseData[0], fTempBuf[Length(lHeaderData)], fBodyOffset);
+    fconnection.BeginSend(@fTempBuf[0], 0, fBodyOffset + Length(lHeaderData), cbResponse);
+  end;
+end;
+
+
+procedure TIPAsyncContext.cbResponse(sender: TIPBaseAsyncSocket);
+var
+  lLen: Integer;
+begin
+  if fConnection.EndSend <= 0 then begin
+    cbDisconnect(sender);
+    exit;
+  end;
+  lLen := 4096;
+  if fBodyOffset+ lLen > Length(fResponseData) then
+    lLen := Length(fResponseData) - fBodyOffset;
+  if lLen <= 0 then begin
+    if assigned(fOwner) and assigned(fOwner.fOnResponseSent) then fOwner.fOnResponseSent(fOwner, Self);
+    Clear; // we're done
+    fConnection.BeginReadLine(cbFirstLine);
+  end else begin
+    move(fResponseData[fBodyOffset], fTempBuf[0], lLen);
+    fBodyOffset := fBodyOffset + lLen;
+    fcOnnection.BeginSend(@fTempBuf[0], 0, lLen, cbResponse);
+  end;
+end;
+
+
+function TIPAsyncContext.GetDisconnected: Boolean;
+begin
+  result := fDisconnected;
+end;
+
+function TIPAsyncContext.GetOwner: TIPAsyncHTTPServer;
+begin
+  result := fOwner;
+end;
+
+function TIPAsyncContext.GetRequest: TIPHTTPRequestHeaders;
+begin
+  result := fRequest;
+end;
+
+function TIPAsyncContext.GetRequestData: TDynamicByteArray;
+begin
+  result := fRequestData;
+end;
+
+function TIPAsyncContext.GetResponse: TIPHTTPResponseHeaders;
+begin
+  result := fREsponse;
+end;
+
+function TIPAsyncContext.GetResponseData: TDynamicByteArray;
+begin
+  result := fResponseData;
+end;
+
+function TIPAsyncContext.GetResponseSent: Boolean;
+begin
+  result := fResponseSent;
+end;
+
+function TIPAsyncContext.GetUserData: Pointer;
+begin
+  result := fUserData;
+end;
+
+procedure TIPAsyncContext.SetRequestData(aData: TDynamicByteArray);
+begin
+  fRequestData := aData;
+end;
+
+procedure TIPAsyncContext.SetResponseData(aData: TDynamicByteArray);
+begin
+  fResponseData := aData;
+end;
+
+procedure TIPAsyncContext.SetUserData(aData: Pointer);
+begin
+  fUserData := aDAta;
+end;
+
+function TIPAsyncContext.GetSelf: TIPAsyncContext;
+begin
+  result := self;
+end;
+
+{ TIPAsyncHTTPServer }
+
+procedure TIPAsyncHTTPServer.cbAccept(aSender: TIPBaseAsyncSocket);
+var
+  lSock: TIPBaseAsyncSocket;
+  lContext: IIPAsyncContext;
+begin
+  try
+    lSock := aSender.EndAccept;
+  except
+    on e: EIPSocketError do
+      exit;
+      // We're shutting down, exit now.
+  end;
+  lContext := TIPAsyncContext.Create(self, lSock);
+  if fDisableNagle then
+
+    lSock.NoDelay := true;
+  fClients.Add(lContext);
+  aSender.BeginAccept(cbAccept);
+end;
+
+constructor TIPAsyncHTTPServer.Create;
+begin
+  inherited Create;
+  fMaxPostData := DefaultMaxPostData;
+  fMaxHeaderLines := 64;
+  fBindV6 := false;
+  fBindV4 := true;
+  fDisableNagle := true;
+  fPort := 80;
+  fClients := TInterfaceList.Create;
+end;
+
+destructor TIPAsyncHTTPServer.Destroy;
+begin
+  FActive := False;
+  DisconnectClients;
+  FreeAndNil(fSocket4);
+  FreeAndNil(fSocket6);
+  fClients.Free;
+  inherited Destroy;
+end;
+
+procedure TIPAsyncHTTPServer.DisconnectClients;
+var
+  i: integer;
+  ctx: TIPAsyncContext;
+begin
+  fClients.Lock;
+  try
+    for i := fClients.Count -1 downto 0 do begin
+      ctx := IIPAsyncContext(fClients[i]).GetSelf;
+      ctx.fOwner := nil;
+      ctx.Disconnect;
+    end;
+  finally
+    fClients.Unlock;
+  end;
+  fClients.Clear;
+end;
+
+procedure TIPAsyncHTTPServer.SetActive(aValue: Boolean);
+var lActualPort: Integer;
+begin
+  if fActive = aValue then exit;
+  fActive := aValue;
+  if aValue then begin
+    lActualPort := fPort;
+    if fBindV4 then begin
+      fSocket4 := TIPAsyncSocket.Create(rsmTCPIP4);
+      if not assigned(fOnManualBind) then begin
+        fSocket4.Bind('0.0.0.0', fPort);
+      end;
+    end;
+    if fBindV6 then begin
+      fSocket6 := TIPAsyncSocket.Create(rsmTCPIP6);
+      if not assigned(fOnManualBind) then begin
+        fSocket6.Bind('::', fPort);
+      end;
+    end;
+    if assigned(fOnManualBind) then fOnManualBind(self);
+    if assigned(fSocket4) then begin
+      fSocket4.Listen(10);
+      fSocket4.BeginAccept(cbAccept);
+      lActualPort := fSocket4.GetLocalPort;
+    end;
+    if assigned(fSocket6) then begin
+      fSocket6.Listen(10);
+      fSocket6.BeginAccept(cbAccept);
+      lActualPort := fSocket6.GetLocalPort;
+    end;
+    if fPort <> lActualPort then fPort := lActualPort;
+  end else begin
+    DisconnectClients;
+    FreeAndNil(fSocket4);
+    FreeAndNil(fSocket6);
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPAsyncSocket.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPAsyncSocket.pas
new file mode 100644
index 0000000..2734d7d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPAsyncSocket.pas	
@@ -0,0 +1,985 @@
+unit uIPAsyncSocket;
+{$R-,Q-}
+interface
+
+{$I RemObjects.inc}
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  SysUtils, Classes, SyncObjs, synsock, uROThread;
+
+const
+  SocketsPerWorkerThread = 64;
+
+type
+  EIPSocketError = class(Exception);
+  TIPBaseAsyncSocket = class;
+  TIPSocketMode = (rsmTCPIP4, rsmTCPIP6);
+  TIPSocketCallback = procedure(Sender: TIPBaseAsyncSocket) of object;
+  TIPBaseAsyncSocket = class(TObject)
+  private
+    fBuffered: Boolean;
+    fMaxLineLength: Integer;
+
+    fOnDisconnected: TIPSocketCallback;
+    fBufWriteCallback, fBufReadCallback: TIPSocketCallback;
+
+    fLineSoFar: Ansistring;
+    fReadLineCallback: TIPSocketCallback;
+    fReadLineBuf: array of Byte;
+    fReadLineBufStart,
+    fReadLineBufEnd: Integer;
+    fIdleTimeout: Integer;
+    fOnTimeout: TIPSocketCallback;
+
+    procedure BufferedSendCallback(Sender: TIPBaseAsyncSocket);
+    procedure BufferedReceiveCallback(sender: TIPBaseAsyncSocket);
+    procedure ReadLineCallback(sender: TIPBaseAsyncSocket);
+
+    procedure BufferedBeginReceive(aCallback: TIPSocketCallback);
+    function BufferedEndReceive: Integer;
+  protected
+    fLastData: TDateTime;
+
+    fWriteDestData: Pointer;
+    fWriteStart,
+    fWriteLength: Integer;
+
+    fReadDestData: Pointer;
+    fReadStart,
+    fReadLength: Integer;
+    function GetNoDelay: Boolean; virtual; abstract;
+    procedure SetNoDelay(B: Boolean); virtual; abstract;
+    function GetReceiverBufferSize: Integer; virtual; abstract;
+    function GetSendBufferSize: Integer; virtual; abstract;
+    procedure SetReceiverBufferSize(const Value: Integer); virtual; abstract;
+    procedure SetSendBufferSize(const Value: Integer); virtual; abstract;
+
+    procedure IntBeginSend(aCallback: TIPSocketCallback); virtual; abstract;
+    function IntEndSend: Integer; virtual; abstract;
+    procedure IntBeginReceive(aCallback: TIPSocketCallback); virtual; abstract;
+    function IntEndReceive: Integer; virtual; abstract;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    property IdleTimeout: Integer read fIdleTimeout write fIdleTimeout;   // default: 0 = no timeout; Is checked every 30 seconds
+    property Buffered: Boolean read fBuffered write fBuffered;
+    property MaxLineLength: Integer read fMaxLineLength write fMaxLineLength; // 8192
+    function GetLocalPort: Integer; virtual; abstract;
+    function GetLocalIp: string; virtual; abstract;
+    function GetRemotePort: Integer; virtual; abstract;
+    function GetRemoteIp: string; virtual; abstract;
+
+    property ReceiverBufferSize: Integer read GetReceiverBufferSize write SetReceiverBufferSize;
+    property SendBufferSize: Integer read GetSendBufferSize write SetSendBufferSize;
+
+    procedure BeginAccept(aCallback: TIPSocketCallback); virtual; abstract;
+    function EndAccept: TIPBaseAsyncSocket; virtual; abstract;
+
+    procedure BeginConnect(const aIp: Ansistring; aPort: Integer; aCallback: TIPSocketCallback); virtual; abstract;
+    function EndConnect: Boolean; virtual; abstract;
+
+    procedure BeginDisconnect(aCallback: TIPSocketCallback); virtual; abstract;
+    procedure EndDisconnect; virtual; abstract;
+
+    property NoDelay: Boolean read GetNoDelay write SetNoDelay;
+
+    // When Buffered is set; the data to be sent and the data to be received is guaranteed to be of the size requested; or the user has been disconnected
+    procedure BeginSend(aData: Pointer; aStart, aLength: Integer; aCallback: TIPSocketCallback);
+    function EndSend: Integer;
+
+    procedure BeginReceive(aData: Pointer; aStart, aLength: Integer; aCallback: TIPSocketCallback);
+    function EndReceive: Integer;
+
+    // returns true if there still is a line in the buffers
+    function BufferReadLine(var aLine: Ansistring): Boolean;
+
+    procedure BeginReadLine(aCallback: TIPSocketCallback);
+    function EndReadLine(var aLine: Ansistring): Boolean;
+
+    procedure Bind(const aIp: Ansistring; aPort: Integer); virtual; abstract;
+    procedure Listen(aBacklog: Integer); virtual; abstract;
+
+    property OnDisconnected: TIPSocketCallback read fOnDisconnected write fOnDisconnected;
+    property OnTimeout: TIPSocketCallback read fOnTimeout write fOnTimeout;
+  end;
+
+  TIPAsyncSocket = class;
+
+  TIPSocketWorkerThread = class(TROThread)
+  private
+    fReadSet,
+    fWriteSet,
+    fErrorSet: TFDSet;
+
+    fCount: Integer;
+    fLastTimeoutCheck: TDateTime;
+
+    fData: array[0.. SocketsPerWorkerThread-1] of TIPAsyncSocket;
+    fMyCs: TCriticalSection;
+    fSleepEvent: TEvent;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TIPAsyncSocket = class(TIPBaseAsyncSocket)
+  private
+    fSock: TSocket;
+    fLocSin,
+    fRemSin: TVarSin;
+    fMode: TIPSocketMode;
+    fThread: TIPSocketWorkerThread;
+    fReadEvent,
+    fWriteEvent,
+    fAcceptEvent,
+    fConnectEvent,
+    fDisconnectEvent: TIPSocketCallback;
+    fWantRead,
+    fWantWrite,
+    fWantError: Boolean;
+    fConnectResult: Integer;
+  protected
+    function GetReceiverBufferSize: Integer; override;
+    function GetSendBufferSize: Integer; override;
+    procedure IntBeginReceive(aCallback: TIPSocketCallback); override;
+    procedure IntBeginSend(aCallback: TIPSocketCallback); override;
+    function IntEndReceive: Integer; override;
+    function IntEndSend: Integer; override;
+    procedure SetReceiverBufferSize(const Value: Integer); override;
+    procedure SetSendBufferSize(const Value: Integer); override;
+    function GetNoDelay: Boolean; override;
+    procedure SetNoDelay(B: Boolean); override;
+  public
+    constructor Create(aMode: TIPSocketMode; aHandle: TSocket); overload;
+    constructor Create(aMode: TIPSocketMode); overload;
+    destructor Destroy; override;
+
+    procedure BeginAccept(aCallback: TIPSocketCallback); override;
+    function EndAccept: TIPBaseAsyncSocket; override;
+
+    procedure BeginConnect(const aIp: AnsiString; aPort: Integer; aCallback: TIPSocketCallback); override;
+    function EndConnect: Boolean; override;
+
+    procedure BeginDisconnect(aCallback: TIPSocketCallback); override;
+    procedure EndDisconnect; override;
+
+    procedure Bind(const aIp: AnsiString; aPort: Integer); override;
+
+    function GetLocalIp: String; override;
+    function GetLocalPort: Integer; override;
+    function GetRemoteIp: String; override;
+    function GetRemotePort: Integer; override;
+    procedure Listen(aBacklog: Integer); override;
+  end;
+  
+
+function InitSocket: Boolean;
+
+implementation
+
+var
+  SockInitialized: Boolean = False;
+  WsaData: TWSAData;
+
+type
+  TByteArray = array[0..4095] of byte;
+  PByteArray = ^TByteArray;
+
+
+var
+  WorkerCS: TCriticalSection;
+  Workers: TList;
+
+function GetWorker(aSock: TIPAsyncSocket): TIPSocketWorkerThread;
+var
+  i, j: Integer;
+  lWorker: TIPSocketWorkerThread;
+begin
+  WorkerCS.Enter;
+  try
+    Result:=nil;
+    for i := 0 to Workers.Count -1 do begin
+      lWorker := TIPSocketWorkerThread(Workers[i]);
+      if lWorker.fCount < SocketsPerWorkerThread then begin
+        lWorker.Fcount := lWorker.fCount +1;
+        lWorker.fMyCs.Enter;
+        try
+          for j :=  0 to SocketsPerWorkerThread -1 do begin
+            if lworker.fData[j] = nil then begin
+              lWorker.FData[j] := aSock;
+              result := lWorker;
+              exit;
+            end;
+          end;
+        finally
+         lWorker.fMyCs.Leave;
+        end;
+      end;
+    end;
+    lWorker := TIPSocketWorkerThread.Create;
+    lWorker.fMyCs.Enter;
+    try
+      lWorker.fData[0] :=aSock;
+      lWorker.fCount := 1;
+    finally
+      lWorker.fMyCs.Leave;
+    end;
+    Workers.Add(lWorker);
+    result := lWorker;
+  finally
+    WorkerCS.Leave;
+  end;
+end;
+
+procedure ReleaseWorker(aWorker: TIPSocketWorkerThread; fSocket: TIPAsyncSocket);
+var
+  j: Integer;
+begin
+  if aworker = nil then exit;
+  if fSocket = nil then exit;
+  aWorker.fMyCs.Enter;
+  try
+    for j :=  0 to SocketsPerWorkerThread -1 do begin
+      if aWorker.fData[j] = fSocket then begin
+        aWorker.FData[j] := nil;
+        aWorker.fCount := aWorker.fCount -1;
+        Exit;
+      end;
+    end;
+  finally
+    aWorker.fMyCs.Leave;
+  end;
+end;
+
+function InitSocket: Boolean;
+begin
+  if SockInitialized then begin
+    result := true;
+    exit;
+  end;
+
+  if not InitSocketInterface(DLLStackName) then begin
+    result := False;
+    exit;
+  end;
+  synsock.WSAStartup(WinsockLevel, WsaData);
+  SockInitialized := true;
+  result := true;
+end;
+
+
+{ TIPBaseAsyncSocket }
+
+procedure TIPBaseAsyncSocket.BeginReadLine(aCallback: TIPSocketCallback);
+var
+  i, lLen: Integer;
+begin
+  if not fBuffered then raise EIPSocketError.Create('Buffered has to be set for BeginReadLine to work');
+  if (@fBufReadCallback <> nil) or (@fReadLineCallback <> nil) then raise EIPSocketError.Create('BeginReceive already running');
+  fReadLineCallback := aCallback;
+  if fReadLineBuf <> nil then begin
+    for i := fReadLineBufStart to fReadLineBufEnd -1 do begin
+      if fReadLineBuf[i] = 10 then begin
+        lLen := i - fReadLineBufStart;
+        if (i > fReadLineBufStart) and (fReadLineBuf[i-1] = 13) then dec(lLen);
+        SetLength(fLineSoFar, lLen);
+        Move(fReadLineBuf[fReadlineBufStart], fLineSoFar[1], lLen);
+        fReadLineBufStart := i +1;
+        fReadLineCallback := nil;
+        aCallback(self);
+        exit;
+      end;
+    end;
+    SetLength(fLineSoFar, fReadLineBufEnd - fReadLineBufStart);
+    Move(fReadLineBuf[fReadlineBufStart], fLineSoFar[1], fReadLineBufEnd - fReadLineBufStart);
+  end;
+  if fReadLineBuf = nil then SetLength(fReadLineBuf, 4096);
+  fReadLineBufStart := 0;
+  fReadLineBufEnd := 0;
+  fReadDestData := fReadLineBuf;
+  fReadStart := 0;
+  fReadLength := 4096;
+  IntBeginReceive(ReadLineCallback);
+end;
+
+procedure TIPBaseAsyncSocket.BeginReceive(aData: Pointer; aStart, aLength: Integer; aCallback: TIPSocketCallback);
+begin
+  if not fBuffered then begin
+    fReadDestData := aData;
+    fReadStart := aStart;
+    fReadLength := aLength;
+    IntBeginReceive(aCallback);
+    exit;
+  end;
+  if @aCallback = nil then raise EIPSocketError.Create('Invalid callback');
+  if aLength <= 0 then raise EIPSocketError.Create('Invalid length');
+  if (@fBufReadCallback <> nil) or (@fReadLineCallback <> nil) then raise EIPSocketError.Create('BeginReceive already running');
+  fBufReadCallback := aCallback;
+  fReadDestData := @(PByteArray(aData)^[aStart]); // move ahead so we always start at 0;
+  fReadStart := 0;
+  fReadLength := aLength;
+  BufferedBeginReceive(BufferedReceiveCallback);
+end;
+
+
+procedure TIPBaseAsyncSocket.BufferedBeginReceive(aCallback: TIPSocketCallback);
+begin
+  if (fReadLineBuf <> nil) and (fReadLineBufStart < fReadLineBufEnd) then begin
+    aCallback(self);
+    exit;
+  end;
+  IntBeginReceive(aCallback);
+end;
+
+function TIPBaseAsyncSocket.BufferedEndReceive: Integer;
+begin
+  if (fReadLineBufStart < fReadLineBufEnd) and (fReadLineBuf <> nil) then begin
+    result := fReadLineBufEnd - fReadLineBufStart;
+    if result > fReadLength then result := fReadLength;
+
+    Move(fReadLineBuf[fReadLineBufStart], PByteArray(fReadDestData)^[fReadStart], Result);
+    fReadLineBufStart := fReadLineBufStart + Result;
+    fReadStart := fReadStart + Result;
+    exit;
+  end;
+  result := IntEndReceive;
+  fReadStart := fReadStart + Result;
+end;
+
+
+procedure TIPBaseAsyncSocket.BufferedReceiveCallback(
+  sender: TIPBaseAsyncSocket);
+var
+  lCallback: TIPSocketCallback;
+  lEndReceiveResult: Integer;
+begin
+  lEndReceiveResult := BufferedEndReceive;
+  if lEndReceiveResult <= 0 then begin // disconnected
+    // fReadStart := fReadStart + lEndReceiveResult;
+    lCallback := fBufReadCallback;
+    fBufReadCallback := nil;
+    lCallback(self);
+//    if assigned(fOnDisconnected) then fOnDisconnected(Self); //TIPTCPContext.cbDisconnect
+    exit;
+  end;
+ //ReadStart := fReadStart + lEndReceiveResult;
+  if fReadStart < fReadLength then begin
+      BufferedBeginReceive(BufferedReceiveCallback);
+  end else begin
+    lCallback := fBufReadCallback;
+    fBufReadCallback := nil;
+    lCallback(self);
+  end;
+end;
+
+function TIPBaseAsyncSocket.EndReceive: Integer;
+begin
+  if not fBuffered then begin
+    result := IntEndReceive;
+    exit;
+  end;
+  result := fReadStart;
+  fWriteDestData := nil;
+  fBufWriteCallback := nil;
+end;
+
+procedure TIPBaseAsyncSocket.BeginSend(aData: Pointer; aStart,
+  aLength: Integer; aCallback: TIPSocketCallback);
+begin
+  if not fBuffered then begin
+    fWriteDestData:= aData;
+    fWriteStart := aStart;
+    fWriteLength := aLength;
+    IntBeginSend(aCallback);
+    exit;
+  end;
+  if @aCallback = nil then raise EIPSocketError.Create('Invalid callback');
+  if aLength <= 0 then raise EIPSocketError.Create('Invalid length');
+  if @fBufWriteCallback <> nil then raise EIPSocketError.Create('BeginSend already running');
+
+  fBufWriteCallback := aCallback;
+  fWriteDestData:= @(PByteArray(aData)^[aStart]); // move ahead so we always start at 0
+  fWriteStart := 0;
+  fWriteLength := aLength;
+  IntBeginSend(BufferedSendCallback);
+end;
+
+procedure TIPBaseAsyncSocket.BufferedSendCallback(Sender: TIPBaseAsyncSocket);
+var
+  lCallback: TIPSocketCallback;
+  lEndSendResult: Integer;
+begin
+  lEndSendResult := IntEndSend;
+  if lEndSendResult <= 0 then begin // disconnected
+    fWriteStart := fWriteStart + lEndSendResult;
+    lCallback := fBufWriteCallback;
+    fBufWriteCallback := nil;
+    lCallback(self);
+    if assigned(fOnDisconnected) then fOnDisconnected(Self);
+    exit;
+  end;
+  fWriteStart := fWriteStart + lEndSendResult;
+  if fWriteStart < fWriteLength then begin
+    IntBeginSend(BufferedSendCallback);
+  end else begin
+    lCallback := fBufWriteCallback;
+    fBufWriteCallback := nil;
+    lCallback(self);
+  end;
+end;
+
+function TIPBaseAsyncSocket.EndSend: Integer;
+begin
+  if not fBuffered then begin
+    result := IntEndSend;
+    if (Result <= 0) and assigned(fOnDisconnected) then fOnDisconnected(Self);
+    exit;
+  end;
+  result := fWriteStart;
+  fWriteDestData := nil;
+  fBufWriteCallback := nil;
+end;
+
+function TIPBaseAsyncSocket.BufferReadLine(var aLine: Ansistring): Boolean;
+var
+  lLen, i: Integer;
+begin
+  if not fBuffered then raise EIPSocketError.Create('Buffered has to be set for EndReadLine to work');
+  if fReadLineBuf <> nil then begin
+    for i := fReadLineBufStart to fReadLineBufEnd -1 do begin
+      if fReadLineBuf[i] = 10 then begin
+        lLen := i - fReadLineBufStart;
+        if (i > fReadLineBufStart) and (fReadLineBuf[i-1] = 13) then dec(lLen);
+        SetLength(aLine, lLen);
+        Move(fReadLineBuf[fReadlineBufStart], aLine[1], lLen);
+        fReadLineBufStart := i +1;
+        result := true;
+        exit;
+      end;
+    end;
+  end;
+  result := false;
+end;
+
+constructor TIPBaseAsyncSocket.Create;
+begin
+  inherited;
+  fMaxLineLength := 8192;
+end;
+
+destructor TIPBaseAsyncSocket.Destroy;
+begin
+  inherited;
+end;
+
+function TIPBaseAsyncSocket.EndReadLine(var aLine: Ansistring): Boolean;
+begin
+  aLine := fLineSoFar;
+  result := fReadLineBufEnd >= 0;
+end;
+
+procedure TIPBaseAsyncSocket.ReadLineCallback(sender: TIPBaseAsyncSocket);
+var
+  s: ansistring;
+  lCb: TIPSocketCallback;
+  i, lLen: Integer;
+begin
+  fReadLineBufEnd := IntEndReceive;
+  if (fReadLineBufEnd <= 0) then begin
+    if assigned(fOnDisconnected) then
+      OnDisconnected(self);
+    exit;
+  end;
+
+  for i := fReadLineBufStart to fReadLineBufEnd -1 do begin
+    if fReadLineBuf[i] = 10 then begin
+      lLen := i - fReadLineBufStart;
+      if (i > fReadLineBufStart) and (fReadLineBuf[i-1] = 13) then dec(lLen);
+      SetLength(s, lLen);
+      Move(fReadLineBuf[fReadlineBufStart], s[1], lLen);
+      fReadLineBufStart := i +1;
+      fLineSoFar := fLineSoFar + s;
+      lCb := fReadLineCallback;
+      fReadLineCallback := nil;
+      lCb(self);
+      exit;
+    end;
+  end;
+  SetLength(s, fReadLineBufEnd - fReadLineBufStart);
+  Move(fReadLineBuf[fReadlineBufStart], s[1], fReadLineBufEnd - fReadLineBufStart);
+  fLineSoFar := fLineSoFar + s;
+  fReadLineBufStart := 0;
+  fReadLineBufEnd := 0;
+  fReadDestData := fReadLineBuf;
+  fReadStart := 0;
+  fReadLength := 4096;
+  IntBeginReceive(ReadLineCallback);
+end;
+
+{ TIPAsyncSocket }
+
+procedure TIPAsyncSocket.BeginAccept(aCallback: TIPSocketCallback);
+begin
+  if assigned(fAcceptEvent) then raise EIPSocketError.Create('BeginAccept already called');
+  if fThread = nil then fThread := GetWorker(self);
+  fAcceptEvent := aCallback;
+  fWantRead := true;
+end;
+
+procedure TIPAsyncSocket.BeginConnect(const aIp: AnsiString; aPort: Integer;
+  aCallback: TIPSocketCallback);
+var
+  lSin: TVarSin;
+  lRes: Integer;
+begin
+  if assigned(fConnectEvent) then raise EIPSocketError.Create('BeginConnect already called');
+  if fThread = nil then fThread := GetWorker(self);
+
+  fConnectEvent := aCallback;
+  fConnectResult := 0;
+  if fMode = rsmTCPIP6 then
+    lRes := SetVarSin(lSin, aIp, IntToStr(aPort), AF_INET6, PF_INET6, SOCK_STREAM, false)
+  else
+    lRes := SetVarSin(lSin, aIp, IntToStr(aPort), AF_INET, PF_INET, SOCK_STREAM, true);
+  if lRes <> 0 then raise EIPSocketError.Create('Invalid Address/Port: '+inttostr(WSAGetLastError));
+  lRes := Connect(fSock, lSin);
+  if lRes <> 0 then begin
+    LRes := WSAGetLastError;
+    if lRes <> WSAEWOULDBLOCK then raise EIPSocketError.Create('Cannot connect: '+inttostr(Lres));
+  end;
+  fWantWrite := true;
+  fWantError := true;
+end;
+
+procedure TIPAsyncSocket.BeginDisconnect(aCallback: TIPSocketCallback);
+begin
+  if assigned(fDisconnectEvent) then raise EIPSocketError.Create('BeginDisconnect already called');
+  fDisconnectEvent := aCallback;
+  Synsock.Shutdown(FSock, 1);
+  fWantRead := true;
+end;
+
+procedure TIPAsyncSocket.Bind(const aIp: AnsiString; aPort: Integer);
+var
+  lRes: Integer;
+  lSin: TVarSin;
+begin
+  if fMode = rsmTCPIP6 then
+    lRes := SetVarSin(lSin, aIp, IntToStr(aPort), AF_INET6, PF_INET6, SOCK_STREAM, false)
+  else
+    lRes := SetVarSin(lSin, aIp, IntToStr(aPort), AF_INET, PF_INET, SOCK_STREAM, true);
+  if lRes <> 0 then raise EIPSocketError.Create('Invalid Address/Port: '+inttostr(WSAGetLastError));
+  lRes := SynSock.Bind(fSock, lSin);
+  if lRes <> 0 then raise EIPSocketError.Create('Cannot bind: '+inttostr(WSAGetLastError));
+end;
+
+constructor TIPAsyncSocket.Create(aMode: TIPSocketMode);
+var
+  lRes, lVal: Integer;
+begin
+  inherited Create;
+  if not InitSocket then raise EIPSocketError.Create('Could not load socket stack');
+  fMode := aMode;
+  if aMode = rsmTCPIP6 then
+    fSock := Socket(AF_INET6, SOCK_STREAM, IPPROTO_TCP)
+  else
+    fSock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
+  if fSock <= 0 then raise EIPSocketError.Create('Unable to create socket');
+  lVal := 1;
+  lRes := IoctlSocket(fsock, FIONBIO, lVal);
+  if lRes <> 0 then raise EIPSocketError.Create('Cannot set socket to asynchronous mode: '+inttostr(synsock.WSAGetLastError));
+end;
+
+constructor TIPAsyncSocket.Create(aMode: TIPSocketMode; aHandle: TSocket);
+var
+  lVal, lRes: Integer;
+
+begin
+  inherited Create;
+  fMode := aMode;
+  fSock := aHandle;
+  lVal := 1;
+  lRes := IoctlSocket(fsock, FIONBIO, lVal);
+  if lRes <> 0 then raise EIPSocketError.Create('Cannot set socket to asynchronous mode');
+  if fThread = nil then fThread := GetWorker(self);
+end;
+
+destructor TIPAsyncSocket.Destroy;
+begin
+  if fThread <> nil then begin
+    ReleaseWorker(fThread, self);
+    fThread := nil;
+  end;
+  if FSock <>0 then
+    CloseSocket(fSock);
+  inherited;
+end;
+
+function TIPAsyncSocket.EndAccept: TIPBaseAsyncSocket;
+var
+  lAddr: TVarSin;
+  lSock: TSocket;
+begin
+  fAcceptEvent := nil;
+
+  lSock := synsock.Accept(fSock, lAddr);
+
+  if lSock <= 0 then raise EIPSocketError.Create('Cannot accept connection');
+  Result := TIPAsyncSocket.Create(fMode, lSock);
+  fWantRead := false;
+end;
+
+function TIPAsyncSocket.EndConnect: Boolean;
+begin
+  if fConnectResult = 0 then result := true
+  else result := false;
+  fConnectEvent := nil;
+  fWantWrite := false;
+  fWantError := false;
+end;
+
+procedure TIPAsyncSocket.EndDisconnect;
+begin
+  OnTimeout := nil;
+  OnDisconnected := nil;
+  fBufWriteCallback := nil;
+  fReadEvent := nil;
+  fWriteEvent:= nil;
+  fAcceptEvent:= nil;
+  fConnectEvent:= nil;
+  fDisconnectEvent := nil;
+  CloseSocket(fSock);
+  if fThread <> nil then begin
+    ReleaseWorker(fThread, self);
+    fThread := nil;
+  end;
+  fSock := 0;
+  fWantRead := false;
+end;
+
+function TIPAsyncSocket.GetLocalIp: String;
+begin
+  if fLocSin.AddressFamily = 0 then
+    synsock.GetSockName(FSock, fLocSin);
+  result := GetSinIP(fLocSin);
+end;
+
+function TIPAsyncSocket.GetLocalPort: Integer;
+begin
+  if fLocSin.AddressFamily = 0 then
+    synsock.GetSockName(FSock, fLocSin);
+  result := GetSinPort(fLocSin);
+end;
+
+function TIPAsyncSocket.GetNoDelay: Boolean;
+var
+  lOptLen, lTmpVal: Integer;
+begin
+  lOptLen := 4;
+  GetSockOpt(fSock, 6, 1, pAnsichar(@lTmpVal), lOptLen);
+  result := lTmpVal <> 0;
+end;
+
+function TIPAsyncSocket.GetReceiverBufferSize: Integer;
+var
+  lRes: Integer;
+begin
+  result := 0;
+  lRes := 4;
+  GetSockOpt(fSock, SOL_Socket, SO_RCVBUF, PAnsiChar(@Result), lRes);
+end;
+
+function TIPAsyncSocket.GetRemoteIp: String;
+begin
+  if fRemSin.AddressFamily = 0 then
+    synsock.GetPeerName(FSock, fRemSin);
+  result := GetSinIp(fRemSin);
+end;
+
+function TIPAsyncSocket.GetRemotePort: Integer;
+begin
+  if fRemSin.AddressFamily = 0 then
+    synsock.GetPeerName(FSock, fRemSin);
+  result := GetSinPort(fRemSin);
+end;
+
+function TIPAsyncSocket.GetSendBufferSize: Integer;
+var
+  lRes: Integer;
+begin
+  result := 0;
+  lRes := 4;
+  GetSockOpt(fSock, SOL_Socket, SO_SNDBUF, PAnsiChar(@Result), lRes);
+end;
+
+procedure TIPAsyncSocket.IntBeginReceive(aCallback: TIPSocketCallback);
+begin
+  if assigned(fReadEvent) then raise EIPSocketError.Create('beginReceive already called');
+  fLastData := Now;
+  fReadEvent := aCallback;
+  fWantRead := true;
+end;
+
+procedure TIPAsyncSocket.IntBeginSend(aCallback: TIPSocketCallback);
+begin
+  if assigned(fWriteEvent) then raise EIPSocketError.Create('BeginSend already called');
+  fLastData := Now;
+  fWriteEvent := aCallback;
+  fWantWrite := true;
+end;
+
+function TIPAsyncSocket.IntEndReceive: Integer;
+begin
+  fwantRead := false;
+  fReadEvent := nil;
+  fLastData := Now;
+  result := Recv(fSock, @PByteArray(fReadDestData)[fReadStart], fReadLength, 0);
+end;
+
+function TIPAsyncSocket.IntEndSend: Integer;
+begin
+  fWriteEvent := nil;
+  fWantWrite := false;
+  fLastData := Now;
+  Result := Send(fSock, @PByteArray(fWriteDestData)[fWriteStart], fWriteLength, 0);
+end;
+
+procedure TIPAsyncSocket.Listen(aBacklog: Integer);
+begin
+  synsock.Listen(fSock, aBacklog);
+end;
+
+procedure TIPAsyncSocket.SetNoDelay(B: Boolean);
+var
+  lTmpVal: Integer;
+begin
+  if b then lTmpVal := 1 else lTmpVal := 0;
+  SetSockOpt(fSock, 6, 1, @lTmpVal, 4);
+end;
+
+procedure TIPAsyncSocket.SetReceiverBufferSize(const Value: Integer);
+var
+  lRes: Integer;
+begin
+  lRes := SetSockOpt(fsock, SOL_Socket, SO_RCVBUF, pAnsichar(@value), 4);
+  if lRes <> 0 then raise EIPSocketError.Create('Unable to set option: '+Inttostr(WSAGetLastError));
+end;
+
+procedure TIPAsyncSocket.SetSendBufferSize(const Value: Integer);
+var
+  lRes: Integer;
+begin
+  lRes := SetSockOpt(fsock, SOL_Socket, SO_SNDBUF, pAnsichar(@value), 4);
+  if lRes <> 0 then raise EIPSocketError.Create('Unable to set option: '+Inttostr(WSAGetLastError));
+end;
+
+procedure CleanupWorkers;
+var
+  i: Integer;
+  lWorker: TIPSocketWorkerThread;
+begin
+  WorkerCS.Enter;
+  try
+    for i := Workers.Count - 1 downto 0 do begin
+      lWorker := TIPSocketWorkerThread(Workers[i]);
+      lWorker.Terminate;
+      sleep(1);
+      lWorker.Free;
+    end;
+  finally
+    WorkerCS.Leave;
+  end;
+end;
+
+{ TIPSocketWorkerThread }
+
+constructor TIPSocketWorkerThread.Create;
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+  fMyCs := TCriticalSection.Create;
+  fSleepEvent := TEvent.Create(nil, false, false, '');
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TIPSocketWorkerThread.Destroy;
+begin
+  fSleepEvent.Free;
+  FMyCs.Free;
+  inherited Destroy;
+end;
+
+const
+  TimeoutCheckSpan = 1.0 / (24 * 60 * 2); // every 30 sec
+  OneSecond = 1.0 / (24 * 60 * 60);
+
+procedure TIPSocketWorkerThread.Execute;
+var
+  i: Integer;
+  lCount: Integer;
+  lDummy: Integer;
+  lDate: TDateTime;
+  lSock: TIPAsyncSocket;
+  lEvent: TIPSocketCallback;
+  TimeVal: TTimeVal;
+begin
+  TimeVal.tv_sec := 0;
+  TimeVal.tv_usec := 50;
+  fLastTimeoutCheck := Now;
+  while not Terminated do
+  begin
+    fMyCs.Enter;
+    try
+      lDate := Now;
+      if (lDate - fLastTimeoutCheck) > TimeoutCheckSpan then begin
+        fLastTimeoutCheck := lDate;
+        for i := 0 to SocketsPerWorkerThread -1 do begin
+          lSock := fData[i];
+          if lSock <> nil then begin
+            if (lSock.IdleTimeout > 0) and (lSock.fLastData + (OneSecond * lSock.IdleTimeout) < lDate) then begin
+              fMyCs.Leave;
+              try
+                if assigned(lSock.OnTimeout) then lSock.OnTimeout(lSock);
+              finally
+                fMyCs.Enter;
+              end;
+            end;
+          end;
+        end;
+
+      end;
+      fSleepEvent.ResetEvent;
+      lCount := fCount ;
+      if lCount > 0 then begin
+        FD_ZERO(fReadSet);
+        FD_ZERO(fWriteSet);
+        FD_ZERO(fErrorSet);
+
+        for i := 0 to SocketsPerWorkerThread -1 do begin
+          if fData[i] <> nil then begin
+            if fData[i].fWantRead then
+              FD_Set(fData[i].fSock, fReadset);
+            if fData[i].fWantWrite then
+              FD_Set(fData[i].fSock, fWriteset);
+            if fData[i].fWantError then
+              FD_Set(fData[i].fSock, fErrorSet);
+          end;
+        end;
+      end;
+    finally
+      fMyCs.Leave;
+    end;
+    if Terminated then Break;
+    if lCount = 0 then fSleepEvent.WaitFor(1000) else begin
+      lCount := Select(lCount, @fReadSet, @FwriteSet, @fErrorSet, @TimeVal);
+      if lCount > 0 then begin
+        fMycs.Enter;
+        try
+          for i := 0 to SocketsPerWorkerThread do begin
+            if lCount = 0 then break;
+            if Fdata[i] = nil then continue;
+
+
+            if FD_ISSET(fData[i].fSock, fReadSet) then begin // Read, Accept and Disconnect
+              lEvent := fData[i].fReadEvent;
+              if assigned(lEvent) then begin
+                fMyCS.Leave;
+                try
+                  dec(lCount);
+                  lEvent(fData[i]);
+                finally
+                  fMyCs.Enter;
+                end;
+              end else begin
+                lEvent := fData[i].fAcceptEvent;
+                if assigned(lEvent) then begin
+                  fMyCS.Leave;
+                  try
+                    dec(lCount);
+                    lEvent(fData[i]);
+                  finally
+                    fMyCs.Enter;
+                  end;
+                end else begin
+                  lEvent := fData[i].fDisconnectEvent;
+                  if assigned(lEvent) then begin
+                    fMyCS.Leave;
+                    try
+                      dec(lCount);
+                      lEvent(fData[i]);
+                    finally
+                      fMyCs.Enter;
+                    end;
+                  end;
+                end;
+              end;
+            end else
+
+            if FD_ISSET(fData[i].FSock, FWriteset) then begin // Connect, Write
+              lEvent := fData[i].fWriteEvent;
+              if assigned(lEvent) then begin
+                fMyCS.Leave;
+                try
+                  dec(lCount);
+                  lEvent(fData[i]);
+                finally
+                  fMyCs.Enter;
+                end;
+              end else begin
+                lEvent := fData[i].fConnectEvent;
+                if assigned(lEvent) then begin
+                  fMyCs.Leave;
+                  try
+                    dec(lCount);
+                    lEvent(FData[i]);
+                  finally
+                    fMyCs.Enter;
+                  end;
+                end;
+              end;
+            end else
+
+            if FD_ISSET(fData[i].FSock, fErrorSet) then begin // Connect
+              lEvent := fData[i].fConnectEvent;
+              lDummy := 4;
+              GetSockOpt(fData[i].FSock, SOL_SOCKET, SO_ERROR, PAnsichar(@fData[i].fConnectResult), lDummy);
+              if assigned(lEvent) then begin
+                fMyCS.Leave;
+                try
+                  dec(lCount);
+                  lEvent(fData[i]);
+                finally
+                  fMyCs.Enter;
+                end;
+              end;
+            end;
+          end;
+        finally
+          fMycs.Leave;
+        end;
+      end;
+    end;
+  end;
+end;
+
+initialization
+  WorkerCS := TCriticalSection.Create;
+  Workers := TList.Create;
+finalization
+  if SockInitialized then begin
+    synsock.WSACleanup;
+    DestroySocketInterface;
+  end;
+  CleanupWorkers;
+  Workers.Free;
+  WorkerCS.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPHttpHeaders.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPHttpHeaders.pas
new file mode 100644
index 0000000..72fa2fa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uIPHttpHeaders.pas	
@@ -0,0 +1,158 @@
+unit uIPHttpHeaders;
+
+interface
+
+{$I RemObjects.inc}
+
+uses
+  SysUtils, Classes;
+  
+type
+  TDynamicByteArray = array of Byte;
+  TIPHTTPRequestHeaders = class
+  private
+    fHeaders: TStrings;
+    fMethod: string;
+    fPath: string;
+    fVersion: string;
+    FClientAddress: string;
+    function GetContentType: string;
+    function GetContentLength: Int64;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    property Headers: TStrings read fHeaders;
+
+    procedure AddHeaderLine(const aLine: string);
+
+    property Method: string read fMethod write fMethod;
+    property Path: string read fPath write fPath;
+    property Version: string read fVersion write fVersion;
+
+    property ContentLength: Int64 read GetContentLength;
+    property ContentType: string read GetContentType;
+    property ClientAddress: string read FClientAddress write FClientAddress;
+    procedure Clear;
+  end;
+  TIPHTTPResponseHeaders = class
+  private
+    fHeaders: TStrings;
+    fCode: Integer;
+    fVersion, fReason: string;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    property Headers: TStrings read fHeaders;
+    property Version: string read fVersion write fVersion;
+    property Code: Integer read fCode write fCode;
+    property Reason: string read fReason write fReason;
+
+    procedure Assign(aOrg: TIPHTTPResponseHeaders);
+    procedure Clear;
+    function ToString: string; {$IFDEF DELPHI12UP} override;{$ENDIF}
+  end;
+
+implementation
+{ TIPHTTPRequestHeaders }
+
+procedure TIPHTTPRequestHeaders.AddHeaderLine(const aLine: string);
+var
+  lPos: Integer;
+  lName, lVal: string;
+begin
+  lPos := Pos(':', aline);
+  if lPos = 0 then exit;
+  lName := Trim(copy(aLine, 1, lPos -1));
+  lVal := Trim(copy(aLine, lPos+1, MaxInt));
+  fHeaders.ADd(lName+'='+lVal);
+end;
+
+procedure TIPHTTPRequestHeaders.Clear;
+begin
+  fHeaders.Clear;
+  fMethod := '';
+  fPath := '';
+  fVersion := '';
+end;
+
+constructor TIPHTTPRequestHeaders.Create;
+begin
+  fHeaders := TStringList.Create;
+end;
+
+destructor TIPHTTPRequestHeaders.Destroy;
+begin
+  fHeaders.Free;
+  inherited Destroy;
+end;
+
+function TIPHTTPRequestHeaders.GetContentLength: Int64;
+var
+  s: string;
+begin
+  s := fHeaders.Values['Content-Length'];
+  Result := StrToInt64Def(s, 0);
+end;
+
+function TIPHTTPRequestHeaders.GetContentType: string;
+begin
+  result := fHeaders.Values['Content-Type'];
+end;
+
+{ TIPHTTPResponseHeaders }
+
+procedure TIPHTTPResponseHeaders.Assign(aOrg: TIPHTTPResponseHeaders);
+begin
+  fHeaders.Assign(aOrg.Headers);
+  fCode := aOrg.Code;
+  fVersion := aOrg.Version;
+  fReason := aOrg.Reason;
+end;
+
+procedure TIPHTTPResponseHeaders.Clear;
+begin
+  fCode := 200;
+  fVersion := 'HTTP/1.1';
+  fReason := 'OK';
+  fHeaders.Clear;
+end;
+
+constructor TIPHTTPResponseHeaders.Create;
+begin
+  inherited Create;
+  fHeaders := TStringList.Create;
+  fVersion := 'HTTP/1.1';
+  Clear;
+end;
+
+destructor TIPHTTPResponseHeaders.Destroy;
+begin
+  fHeaders.Free;
+  inherited Destroy;
+end;
+
+
+
+function TIPHTTPResponseHeaders.ToString: string;
+var
+  lHeaders, lName, lVal: string;
+  lPos, i: Integer;
+begin
+  lHeaders := fVersion +' '+ IntToStr(fCode)+' '+fReason + #13#10;
+  for i := 0 to fHeaders.Count -1 do begin
+    lVal := fHeaders[i];
+    lPos := Pos('=', lVal);
+    if lPos > 0 then begin
+      lName := Trim(Copy(lVal, 1, lPos -1));
+      lVal := Trim(Copy(lVal, lPos + 1, MaxInt));
+      lHeaders := lHeaders +  lName+': '+lVal + #13#10;
+    end;
+  end;
+  lHeaders := lHeaders + #13#10;
+  Result := lHeaders;
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsync.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsync.pas
new file mode 100644
index 0000000..3cfbf66
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsync.pas	
@@ -0,0 +1,345 @@
+unit uROAsync;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, SyncObjs, SysUtils,
+     uROClientIntf, uROClasses, uROThread;
+
+type
+  IROAsyncInterface = interface
+    ['{E858979E-78C4-4AE1-A708-9E6766FDD9B4}']
+    function GetBusy:Boolean;
+    function GetMessageID:string;
+    procedure SetMessageID(aMessageID:string);
+    function GetAnswerReceived:Boolean;
+    function GetAnswerReceivedEvent:TROEvent;
+    property Busy:Boolean read GetBusy;
+    property MessageID:string read GetMessageID write SetMessageID;
+    property AnswerReceived:Boolean read GetAnswerReceived;
+    property AnswerReceivedEvent:TROEvent read GetAnswerReceivedEvent;
+  end;
+
+  IROAsyncTransportChannel = interface
+    ['{206811E7-ABE9-41E6-893C-33DA14E44FF6}']
+    function InvokeRequest(aRequest:TStream; iGetResponse:boolean=true):string;
+    procedure RetrieveResponse(const iMessageID:string; aResponse:TStream);
+    function CheckStatus(const iMessageID:string):boolean;
+  end;
+
+  IROActiveAsyncTransportChannel = interface(IROAsyncTransportChannel)
+    ['{3FC70749-3F4C-4D6A-AB30-01E0E03A25F4}']
+    function InvokeRequest(aRequest:TStream; aGetResponse:boolean=true; aEvent: TROEvent=nil):string; overload;
+  end;
+
+  IROTransportChannelEx = interface
+    ['{96C85DD3-6372-49DF-B259-04BCD5C0E369}']
+    procedure BeforeDispatch(aMessage: IROMessage);
+  end;
+
+  IROTransportChannelAsyncException = interface
+    ['{E3CC33A6-46CD-4A56-AB1A-8BC2DAA461CB}']
+    procedure AsyncException(aAsyncInterface: IROAsyncInterface; AsyncException: Exception);
+  end;
+
+  EROAsyncException = class(EROException);
+  EROAsyncNoAnswerYet = class(EROAsyncException);
+  EROAsyncNoMoreAnswers = class(EROAsyncException);
+
+  TROAsyncProxy = class;
+
+  TROAsyncProxyThread = class(TROThread)
+  private
+    fOwner:TROAsyncProxy;
+    fGetResponse:boolean;
+    fRequest:TStream;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(iOwner:TROAsyncProxy; const iName:string; iRequest:TStream; iGetResponse:boolean);
+    destructor Destroy; override;
+  end;
+
+  TROAsyncProxy = class(TInterfacedObject, IUnknown, IROAsyncInterface)
+  private
+    fCriticalSection:TCriticalSection;
+    fMessage:IROMessage;
+    fTransportChannel:IROTransportChannel;
+    fAsyncTransportChannel:IROAsyncTransportChannel;
+    fActiveAsyncTransportChannel:IROActiveAsyncTransportChannel;
+    fBeforeDispatch: IROTransportChannelEx;
+    fBusy:Boolean;
+    fAnswerReceived:Boolean;
+    fAnswerReceivedEvent: TROEvent;
+    fMethodName:string;
+    fMessageID:string;
+    fResponse:TStream;
+
+  protected
+    procedure __AssertProxyNotBusy(const iMethodName:string);
+    procedure __DispatchAsyncRequest(const iMethodName:string; iRequest:TStream; iGetResponse:boolean=true); overload;
+    procedure __DispatchAsyncRequest(const iMethodName:string; iRequest:IROMessage; iGetResponse:boolean=true); overload;
+    function __RetrieveAsyncResponse(const iMethodName:string):TStream;
+    property __Message:IROMessage read fMessage;
+    property __TransportChannel:IROTransportChannel read fTransportChannel;
+
+    function __GetInterfaceName:string; virtual; abstract;
+
+    function GetBusy:Boolean;
+    function GetMessageID:string;
+    procedure SetMessageID(aMessageID:string);
+    function GetAnswerReceived:Boolean;
+    function GetAnswerReceivedEvent:TROEvent;
+    property __InterfaceName:string read __GetInterfaceName;
+
+    property __CriticalSection: TCriticalSection read fCriticalSection;
+
+  public
+    constructor Create(const aMessage : IROMessage; const aTransportChannel : IROTransportChannel); virtual;
+    destructor Destroy; override;
+    property Busy:Boolean read fBusy;
+    property AnswerReceived:Boolean read fAnswerReceived;
+    property MessageID:string read GetMessageID write SetMessageID;
+  end;
+
+const
+  REQUEST_MESSAGE_PREFIX  = 'ROSDK REQUEST';
+  RESPONSE_MESSAGE_PREFIX = 'ROSDK RESPONSE';
+
+implementation
+uses
+  uROClient;
+{ TROAsyncProxy }
+
+constructor TROAsyncProxy.Create(const aMessage: IROMessage; const aTransportChannel: IROTransportChannel);
+begin
+  fMessage := aMessage;
+  fTransportChannel := aTransportChannel;
+  Supports(fTransportChannel, IROAsyncTransportChannel, fAsyncTransportChannel);
+  Supports(fTransportChannel, IROActiveAsyncTransportChannel, fActiveAsyncTransportChannel);
+  Supports(fTransportChannel, IROTransportChannelEx, fBeforeDispatch);
+
+  fCriticalSection := TCriticalSection.Create();
+  fAnswerReceivedEvent := TROEvent.Create(nil,false,false,'');
+end;
+
+destructor TROAsyncProxy.Destroy;
+begin
+  //Todo: important: we MUST wait for and free the worker thread here!!!
+  FreeAndNil(fResponse);
+  FreeAndNil(fCriticalSection);
+  FreeAndNil(fAnswerReceivedEvent);
+  inherited;
+end;
+
+function TROAsyncProxy.GetAnswerReceived: Boolean;
+begin
+  fCriticalSection.Enter();
+  try
+    if Assigned(fAsyncTransportChannel) then begin
+      result := fAsyncTransportChannel.CheckStatus(fMessageID);
+    end
+    else begin
+      Result := fAnswerReceived;
+    end;
+  finally
+    fCriticalSection.Leave();
+  end;
+end;
+
+function TROAsyncProxy.GetAnswerReceivedEvent: TROEvent;
+begin
+  if assigned(fAsyncTransportChannel) and not assigned(fActiveAsyncTransportChannel) then
+    raise EROAsyncException.Create('TransportChannel does not support to receive responses without explicit polling.');
+  result := fAnswerReceivedEvent;
+end;
+
+function TROAsyncProxy.GetBusy: Boolean;
+begin
+  fCriticalSection.Enter();
+  try
+    Result := fBusy;
+  finally
+    fCriticalSection.Leave();
+  end;
+end;
+
+function TROAsyncProxy.GetMessageID: string;
+begin
+  result := fMessageID;
+end;
+
+procedure TROAsyncProxy.SetMessageID(aMessageID: string);
+begin
+  fMessageID := aMessageID;
+end;
+
+procedure TROAsyncProxy.__AssertProxyNotBusy(const iMethodName: string);
+begin
+  if (Busy) then
+    raise EROChannelBusy.CreateFmt('There''s already an async request to %s in progress.',[iMethodName]);
+end;
+
+procedure TROAsyncProxy.__DispatchAsyncRequest(const iMethodName:string; iRequest:TStream; iGetResponse:boolean=true);
+begin
+  fCriticalSection.Enter();
+  try
+
+    fAnswerReceivedEvent.ResetEvent();
+    __AssertProxyNotBusy(iMethodName);
+
+    if iGetResponse then begin
+      fMethodName := iMethodName;
+    end;
+    fAnswerReceived := False;
+
+    if Assigned(fActiveAsyncTransportChannel) then begin
+      fMessageID := fActiveAsyncTransportChannel.InvokeRequest(iRequest, iGetResponse, fAnswerReceivedEvent)
+    end
+    else if Assigned(fAsyncTransportChannel) then begin
+      fMessageID := fAsyncTransportChannel.InvokeRequest(iRequest, iGetResponse);
+    end
+    else begin
+      fBusy := true;
+      TROAsyncProxyThread.Create(Self,Format('TROAsyncProxyThread for %s calling %s',[ClassName,iMethodName]),iRequest,iGetResponse);
+    end;
+
+  finally
+    fCriticalSection.Leave();
+  end;
+end;
+
+procedure TROAsyncProxy.__DispatchAsyncRequest(const iMethodName: string;
+  iRequest: IROMessage; iGetResponse: boolean);
+var
+  lRequest: TStream;
+begin
+  if fBeforeDispatch <> nil then
+    fBeforeDispatch.BeforeDispatch(iRequest);
+  lRequest := TMemoryStream.Create;
+
+  iRequest.WriteToStream(lRequest);
+
+  __DispatchAsyncRequest(iMethodName, lRequest, iGetResponse);
+end;
+
+function TROAsyncProxy.__RetrieveAsyncResponse(const iMethodName: string): TStream;
+begin
+  result := nil;
+
+  fCriticalSection.Enter();
+  try
+
+    { Only check the Methodname if we actually preserved one before. depending on
+      the call history, that might have gotten lost. }
+    if (fMethodName <> '') and (fMethodName <> iMethodName) then
+      raise EROAsyncException.CreateFmt('Call to Retrieve_%s does not match previous call to Invoke_%s.',[iMethodName,fMethodName]);
+
+    if Assigned(fAsyncTransportChannel) then begin
+      fResponse := TMemoryStream.Create();
+      try
+        fAsyncTransportChannel.RetrieveResponse(fMessageID,fResponse);
+      except
+        FreeAndNil(fResponse);
+        raise;
+      end;
+    end
+    else begin
+      //fResponse was created by thread.
+      if not fAnswerReceived then
+        raise EROAsyncNoAnswerYet.CreateFmt('Answer for %s has not been received yet.',[iMethodName]);
+    end;
+
+    Assert(Assigned(fResponse));
+
+    Result := fResponse;
+    fResponse := nil;
+
+    fBusy := False;
+    fAnswerReceived := False;
+    fMethodName := '';
+
+  finally
+    fCriticalSection.Leave();
+  end;
+end;
+
+{ TROAsyncProxyThread }
+
+constructor TROAsyncProxyThread.Create(iOwner:TROAsyncProxy; const iName: string; iRequest:TStream; iGetResponse:boolean);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False,iName);
+  {$ELSE}
+  inherited Create(True,iName);
+  {$ENDIF}
+  FreeOnTerminate := true;
+  fOwner := iOwner;
+  fGetResponse := iGetResponse;
+  fRequest := iRequest;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TROAsyncProxyThread.Destroy;
+begin
+  FreeAndNil(fRequest);
+  inherited;
+end;
+
+procedure TROAsyncProxyThread.Execute;
+var
+  lResponse:TStream;
+  temp: IROTransportChannelAsyncException;
+begin
+  inherited;
+  try
+  
+    lResponse := TMemoryStream.Create();
+    try
+      fOwner.__TransportChannel.Dispatch(fRequest, lResponse);
+
+      fOwner.fCriticalSection.Enter();
+      try
+        if fGetResponse then begin
+          fOwner.fResponse := lResponse;
+          lResponse := nil;
+          fOwner.fAnswerReceived := True;
+          fOwner.fAnswerReceivedEvent.SetEvent();
+        end
+        else begin
+          fOwner.fBusy := False;
+        end;
+      finally
+        fOwner.fCriticalSection.Leave();
+      end;
+
+
+    finally
+      FreeAndNil(lResponse);
+    end;
+
+  except
+    on E: Exception do begin
+      fOwner.fBusy := False;
+      if Supports(fOwner.__TransportChannel,IROTransportChannelAsyncException, temp) then temp.AsyncException(fOwner,E);
+      //ToDo: marshal exception to main thread.
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncResponseStorage.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncResponseStorage.pas
new file mode 100644
index 0000000..22e2a11
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncResponseStorage.pas	
@@ -0,0 +1,291 @@
+unit uROAsyncResponseStorage;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Classes, SysUtils, uROClasses, uROClient;
+
+type
+  TROResponseItem = class;
+
+  { IROAsyncResponseStorage }
+  IROAsyncResponseStorage = interface
+    ['{CD2C473C-F557-4B04-876A-4367D5959680}']
+    procedure AddResp(aResp: TROResponseItem);
+    procedure RemoveResp(aResp: TROResponseItem);
+    procedure RemoveRespByUID(aUID: String);
+    procedure DeleteResp(Index: Integer);
+    function  GetResp(Index: Integer): TROResponseItem;
+    function  GetRespByUID(aUID: String): TROResponseItem;
+    function  IndexOfResp(aResp: TROResponseItem): Integer;
+    function  CountOfResp: Integer;
+    procedure ClearStorage;
+
+    property  ResponseItem[Index: Integer]: TROResponseItem read GetResp;
+  end;
+
+  { TROAsyncResponseStorage }
+  TROAsyncResponseStorage = class(TROComponent, IROAsyncResponseStorage)
+  private
+  protected
+    function  GetResp(Index: Integer): TROResponseItem;virtual;abstract;
+  public
+    procedure DeleteResp(Index: Integer);virtual;abstract;
+    procedure AddResp(aResp: TROResponseItem);virtual;abstract;
+    procedure RemoveResp(aResp: TROResponseItem);virtual;abstract;
+    procedure RemoveRespByUID(aUID: String);virtual;abstract;
+    function  GetRespByUID(aUID: String): TROResponseItem;virtual;
+    function  IndexOfResp(aResp: TROResponseItem): Integer;virtual;abstract;
+    function  CountOfResp: Integer;virtual;
+    procedure ClearStorage;virtual;
+
+    property  ResponseItem[Index: Integer]: TROResponseItem read GetResp;
+
+  end;
+
+  { TROSimpleAsyncResponseStorage }
+  TROSimpleAsyncResponseStorage = class(TROAsyncResponseStorage, IROAsyncResponseStorage)
+  private
+    FStorage: TThreadList;
+  protected
+    function  GetResp(Index: Integer): TROResponseItem;override;
+  public
+    procedure DeleteResp(Index: Integer);override;
+    procedure AddResp(aResp: TROResponseItem);override;
+    procedure RemoveResp(aResp: TROResponseItem);override;
+    procedure RemoveRespByUID(aUID: String);override;
+    function  IndexOfResp(aResp: TROResponseItem): Integer;override;
+    function  CountOfResp: Integer;override;
+    procedure ClearStorage;override;
+
+    constructor Create(AOwner: TComponent);override;
+    Destructor Destroy;override;
+  end;
+
+  EROResponseItem = class(EROException);
+
+  { TROResponseItem }
+  TROResponseItem = class
+  private
+    FUID: String;
+    FResponse: TStream;
+    FPort: Integer;
+    FIP: String;
+    procedure SetIP(const Value: String);
+    procedure SetPort(const Value: Integer);
+  public
+    property UID: String read FUID;
+    property IP: String read FIP write SetIP;
+    property Port: Integer read FPort write SetPort;
+    property Response: TStream read FResponse;
+
+    constructor Create(aResponse: TStream;aUID: String);
+    Destructor Destroy;override;
+  end;
+
+implementation
+
+{ TROResponseItem }
+constructor TROResponseItem.Create(aResponse: TStream; aUID: String);
+begin
+  if (not(Assigned(aResponse))) or (aUID = '') then
+    raise EROResponseItem.Create('Invalid constructor parameter value''s');
+
+  FResponse := aResponse;
+  FUID := aUID;
+end;
+
+destructor TROResponseItem.Destroy;
+begin
+  FResponse.Free;
+  inherited;
+end;
+
+procedure TROResponseItem.SetIP(const Value: String);
+begin
+  FIP := Value;
+end;
+
+procedure TROResponseItem.SetPort(const Value: Integer);
+begin
+  FPort := Value;
+end;
+
+{ TROAsyncResponseStorage }
+procedure TROAsyncResponseStorage.ClearStorage;
+var i: Integer;
+begin
+  for i := 0 to CountOfResp-1 do
+    DeleteResp(0);
+end;
+
+function TROAsyncResponseStorage.CountOfResp: Integer;
+begin
+  result := 0;
+end;
+
+function TROAsyncResponseStorage.GetRespByUID(aUID: String): TROResponseItem;
+var i: Integer;
+begin
+  result := nil;
+  if aUID = '' then
+    Exit;
+
+  for i := 0 to CountOfResp-1 do
+  begin
+    if ResponseItem[i].UID = aUID then
+    begin
+      result := ResponseItem[i];
+      Break;
+    end;
+  end;
+end;
+
+{ TROSimpleAsyncResponseStorage }
+constructor TROSimpleAsyncResponseStorage.Create(AOwner: TComponent);
+begin
+  inherited;
+  FStorage := TThreadList.Create;
+end;
+
+destructor TROSimpleAsyncResponseStorage.Destroy;
+begin
+  ClearStorage;
+  FStorage.Free;
+  inherited;
+end;
+
+procedure TROSimpleAsyncResponseStorage.AddResp(aResp: TROResponseItem);
+begin
+  if not(Assigned(aResp)) then
+    Exit;
+
+  FStorage.Add(aResp);
+end;
+
+procedure TROSimpleAsyncResponseStorage.ClearStorage;
+begin
+  Inherited;
+  try
+    with FStorage.LockList do
+    begin
+      Clear;
+    end;
+  finally
+    FStorage.UnlockList;
+  end;
+end;
+
+function TROSimpleAsyncResponseStorage.CountOfResp: Integer;
+begin
+  try
+    with FStorage.LockList do
+    begin
+      result := Count;
+    end;
+  finally
+    FStorage.UnlockList;
+  end;
+end;
+
+function TROSimpleAsyncResponseStorage.GetResp(Index: Integer): TROResponseItem;
+begin
+  try
+    with FStorage.LockList do
+    begin
+      // TList will throw an exception when out of bounds
+      result := TROResponseItem(Items[Index]);
+    end;
+  finally
+    FStorage.UnlockList;
+  end;
+end;
+
+function TROSimpleAsyncResponseStorage.IndexOfResp(aResp: TROResponseItem): Integer;
+var i: Integer;
+begin
+  result := -1;
+  if not(Assigned(aResp)) then
+    Exit;
+
+  try
+    with FStorage.LockList do
+    begin
+      for i := 0 to Count-1 do
+      begin
+        if TROResponseItem(Items[i]) = aResp then
+        begin
+          result := i;
+          Break;
+        end;
+      end;
+    end;
+  finally
+    FStorage.UnlockList;
+  end;
+end;
+
+procedure TROSimpleAsyncResponseStorage.RemoveResp(aResp: TROResponseItem);
+var lIdx: Integer;
+begin
+  if not(Assigned(aResp)) then
+    Exit;
+
+  lIdx := IndexOfResp(aResp);
+  if lIdx <> -1 then
+    DeleteResp(lIdx);
+end;
+
+procedure TROSimpleAsyncResponseStorage.RemoveRespByUID(aUID: String);
+var i: Integer;
+begin
+  if aUID = '' then
+    Exit;
+
+  try
+    with FStorage.LockList do
+    begin
+      for i := 0 to Count-1 do
+      begin
+        if TROResponseItem(Items[i]).UID = aUID then
+        begin
+          DeleteResp(i);
+          Break;
+        end;
+      end;
+    end;
+  finally
+    FStorage.UnlockList;
+  end;
+end;
+
+procedure TROSimpleAsyncResponseStorage.DeleteResp(Index: Integer);
+begin
+  try
+    with FStorage.LockList do
+    begin
+      // TList will throw an exception when out of bounds
+      TROResponseItem(Items[Index]).Free;
+      Delete(Index);
+    end;
+  finally
+    FStorage.UnlockList;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncSCHelpers.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncSCHelpers.pas
new file mode 100644
index 0000000..cf9fa70
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncSCHelpers.pas	
@@ -0,0 +1,948 @@
+unit uROAsyncSCHelpers;
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+interface
+
+uses
+  SysUtils, Classes, uROClasses, uROClient, uROClientIntf,
+  uROServer {$IFDEF MSWINDOWS}, Windows {$ENDIF}, SyncObjs;
+
+type
+  EROTimeout = class(EROException);
+  TROAckState = (rNone, rAck, rNoAck);
+  IROPackageAck = interface
+    ['{89ABD257-42CB-4B4B-9BA6-3E5CED10605B}']
+    function GetEvent: TROEvent;
+    function GetAckNo: Integer;
+    function GetNoAckError: Integer;
+    procedure SetNoAckError(I: Integer);
+    function GetAckState: TROAckState;
+    procedure SetAckState(I: TROAckState);
+
+    property Event: TROEvent read GetEvent;
+    property AckNo: Integer read GetAckNo;
+    property NoAckError: Integer read GetNoAckError write SetNoAckError;
+    property AckState: TROAckState read GetAckState write SetAckState;
+
+    procedure RemoveFromList;
+  end;
+  IROAbstractTCPConnection = interface;
+  TROAsyncCallback = procedure (const Sender: IROAbstractTCPConnection) of object;
+  IROAbstractTCPConnection = interface
+    ['{17BDEB8C-4C92-40FB-9727-DC9F2FA26E8C}']
+    procedure BeginReceive(aData: Pointer; aSize: Integer; aCallback: TROAsyncCallback);
+    procedure BeginSend(aData: Pointer; aSize: Integer; aCallback: TROAsyncCallback);
+
+    function EndReceive: Integer;
+    function EndSend: Integer;
+
+    procedure BeginDisconnect(aForce: Boolean; aCallback: TROAsyncCallback);
+    procedure EndDisconnect;
+
+    procedure BeginConnect(const aAdress: string; aPort: Integer; aCallback: TROAsyncCallback);
+    function EndConnect: Boolean;
+
+    procedure SetOnDisconnected(aCallback: TROAsyncCallback);
+    function GetOnDisconnected: TROAsyncCallback;
+
+    property OnDisconnected: TROAsyncCallback read GetOnDisconnected write SetOnDisconnected;
+
+    procedure SetOnHaveIncompleteData(aCallback: TROAsyncCallback);
+    function GetOnHaveIncompleteData: TROAsyncCallback;
+
+    property OnHaveIncompleteData: TROAsyncCallback read GetOnHaveIncompleteData write SetOnHaveIncompleteData;
+  end;
+  TByteArray = array of Byte;
+  TROAsyncSuperChannelWorker = class(TObject, IUnknown, IROTransport)
+  private
+    fRefCount: Integer;
+    fMaxPackageSize: Integer;
+    fIsServer: Boolean;
+    fConnection: IROAbstractTCPConnection;
+    fClientID: TGUID;
+    fLastId: Integer;
+    fRunning, fConnected: Boolean;
+    fLastData: TDateTime;
+    fStateData: Integer;
+
+    fOtherSideMaxPackageLen: Integer;
+    fWaitingAckList: TInterfaceList;
+    fRemoteSupportsOptions, fRemoteSkipAck, fSkipAck: Boolean;
+    fPingFrequency,
+    fPingTimeout: Integer;
+    fWriteQueue: TThreadList;
+    fServerExpectAck: Integer;
+    fWorkBuffer: TByteArray;
+    procedure SetSkipAck(const Value: Boolean);
+    procedure AsyncWrite(aData: TByteArray);
+    procedure AsyncDisconnected(const Sender: IROAbstractTCPConnection); 
+    procedure AsyncHaveIncompleteData(const aSender: IROAbstractTCPConnection);
+    procedure cbAsyncWrite(const Sender: IROAbstractTCPConnection);
+    procedure cbServerWelcome(const Sender: IROAbstractTCPConnection);
+    procedure cbClientWelcome(const Sender: IROAbstractTCPConnection);
+    procedure cbServerWelcomeDone(const Sender: IROAbstractTCPConnection);
+    procedure cbClientWelcomeDone(const Sender: IROAbstractTCPConnection);
+    procedure cbErrorDone(const Sender: IROAbstractTCPConnection);
+    procedure cbMainRead(const Sender: IROAbstractTCPConnection);
+    procedure cbTimer(Sender: TObject);
+    procedure cbNoAckReply(const Sender: IROAbstractTCPConnection);
+    procedure cbOptionsReply(const Sender: IROAbstractTCPConnection);
+    procedure SetupMainLoop;
+    procedure cbPackageLength(const Sender: IROAbstractTCPConnection);
+    procedure cbPackage(const Sender: IROAbstractTCPConnection);
+    class procedure cbInternalTimer(CurrentTickCount : cardinal);
+  protected
+    { IUnkown methods }
+    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+
+    { IROTransport }
+    function GetTransportObject : TObject;
+
+    property PingFrequency: Integer read fPingFrequency write fPingFrequency;
+    property PingTimeout: Integer read fPingTimeout write fPingTimeout;
+    property LastData: TDateTime read FLastData;
+    property IsServer: Boolean read fIsServer write fIsServer;
+    procedure Connected; virtual;
+    procedure HaveGuid; virtual;
+    procedure SupportsOptions;
+    procedure ProcessOption(Data: TByteArray);
+    procedure Disconnected(var RestartLoop: Boolean); virtual;
+    procedure IncomingData(Id: Integer; aData: TByteArray); virtual; abstract;
+    function IntSendData(Id: Integer; aData: TStream): IROPackageAck;
+    procedure SetAckDetails(Id: Integer; Oke: Boolean; ErrorNo: Integer); virtual;
+    procedure SendOptions(aData: UTF8String);
+    function GetDefaultResponse: string; virtual; 
+  public
+    constructor Create(aConnection: IROAbstractTCPConnection);
+    destructor Destroy; override;
+
+    property ClientID: TGuid read fClientID write fClientID;
+    property Connection: IROAbstractTCPConnection read fConnection;
+
+    procedure DoSetup;
+
+    procedure Disconnect;
+
+    // Thread safe method
+    procedure SendError(Id: Integer; Error: Byte);
+    function SendPackage(aData: TStream; Id: Integer = 0): IROPackageAck;
+    class procedure WaitForAck(pkg: IROPackageAck; Timeout: Integer = 60000);
+    function GenerateId: Integer;
+
+    // properties
+    property MaxPackageSize: Integer read fMaxPackageSize write fMaxPackageSize;
+    property IsConnected: Boolean read fConnected write fConnected;
+    property SkipAck: Boolean read fSkipAck write SetSkipAck;
+  end;
+
+const
+  ScCmdNoAck_MsgTooLarge = 0;
+  ScCmdNoAck_Timeout = 1;
+  scCmdNoAck_UnknownCommand = 2;
+  ScCmdNoAck_QueueFull = 3;
+  ScCmdNoAck_SupportsOptions = 255;
+
+
+implementation
+
+const
+  ScWelcome :AnsiString = 'ROSC10';
+
+  ScCmdHello = 0;
+  {
+    Client:
+      'ROSC10'
+      [MyGuid] or [NullGuid]
+      MaxPackageLength: Int32;
+    Server:
+      'ROSC10'
+      [YourGuid] or [NewGuid]
+      MaxPackageLength: Int32;
+  }
+  ScCmdPackage = 1;
+  {
+    Request or Event Id: Int32; (Event < 0; Request/Response > 0)
+    Length: Int32;
+    Data: [...]
+  }
+  ScCmdAck = 2;
+  {
+    Id: Integer;
+  }
+  ScCmdNoAck = 3;
+  {
+    Id: Integer;
+    Error:
+      0 = Message too large
+      1 = Timeout
+  }
+
+  ScCmdPing = 4;
+  { Should be sent every 60 seconds by the client
+     RandomNumber: Integer;
+  }
+  ScCmdPong = 5;
+  { Reply to ping
+    OriginalRandomNumber: Integer;
+  }
+  ScCmdOptions = 6;
+  {
+    Length: Longint
+    Data: array of 0..Length -1 of byte
+    UTF8 encoded, seperated by #13
+  }
+
+
+
+type
+  TROPackageAck = class(TInterfacedObject, IROPackageAck)
+  private
+    fEvent: TROEvent;
+    fAckNo,
+    FAckNoError: Integer;
+    FAckState: TROAckState;
+    FOwner: TROAsyncSuperChannelWorker;
+  public
+    function GetEvent: TROEvent;
+    function GetAckNo: Integer;
+    function GetNoAckError: Integer;
+    procedure SetNoAckError(I: Integer);
+    function GetAckState: TROAckState;
+    procedure SetAckState(I: TROAckState);
+
+    constructor Create(aOwner: TROAsyncSuperChannelWorker; aId: Integer);
+    destructor Destroy; override;
+
+    procedure RemoveFromList;
+  end;
+
+
+  
+var
+  fTimer: TROThreadTimer;
+  fTimerList: TThreadList;
+
+class procedure TROAsyncSuperChannelWorker.cbInternalTimer(CurrentTickCount: cardinal);
+var
+  lList: TList;
+  i: Integer;
+begin
+  lList := fTimerList.LockList;
+  try
+    for i := lList.Count -1 downto 0 do
+      TROAsyncSuperChannelWorker(lList[i]).cbTimer(nil);
+  finally
+    fTimerList.UnlockList;
+  end;
+end;
+
+
+
+procedure AddTimer(aCb: TROAsyncSuperChannelWorker);
+var
+  i: Integer;
+  lList: TList;
+begin
+  lList := fTimerList.LockList;
+  try
+    if not Assigned(fTimer) then
+      fTimer := TROThreadTimer.Create(TROAsyncSuperChannelWorker.cbInternalTimer, 30000, false);
+    i := lList.IndexOf(aCb);
+    if i <> -1 then exit;
+    i := lList.IndexOf(nil);
+    if i <> -1 then
+      lList[i] := aCb
+    else
+      lList.Add(aCb);
+  finally
+    fTimerList.UnlockList;
+  end;
+end;
+
+procedure RemoveTimer(aCb: TROAsyncSuperChannelWorker);
+begin
+  fTimerList.Remove(aCb);
+end;
+
+
+{ TROPackageAck }
+
+constructor TROPackageAck.Create(aOwner: TROAsyncSuperChannelWorker; aId: Integer);
+begin
+  inherited Create;
+  if not (aOwner.fSkipAck and aOwner.fRemoteSupportsOptions) then
+  fEvent := TROEvent.Create(nil, true, false, '');
+  fAckNo := aId;
+  FOwner := aOwner;
+//  if FOwner <> nil then FOwner.fWaitingAckList.Add(Self as IROPackageAck);
+end;
+
+destructor TROPackageAck.Destroy;
+begin
+  fEvent.Free;
+  inherited;
+end;
+
+function TROPackageAck.GetAckNo: Integer;
+begin
+  result := fAckNo;
+end;
+
+function TROPackageAck.GetAckState: TROAckState;
+begin
+  Result := FAckState;
+end;
+
+function TROPackageAck.GetEvent: TROEvent;
+begin
+  Result := fEvent;
+end;
+
+function TROPackageAck.GetNoAckError: Integer;
+begin
+ Result := FAckNoError;
+end;
+
+{$ifndef fpc}
+function InterlockedExchangePointer(var Target: Pointer; Value: Pointer): Pointer;
+begin
+  Result := Pointer(InterlockedExchange(Integer(Target), Integer(Value)));
+end;
+{$else}
+function InterlockedExchangePointer(var Target: Pointer; Value: Pointer): Pointer;
+begin
+  {$IFDEF CPU64}
+  result := Pointer(InterlockedExchange64(PtrInt(target), PtrInt(value)));
+  {$ELSE}
+  result := Pointer(InterlockedExchange(PtrInt(target), PtrInt(value)));
+  {$ENDIF}
+end;
+{$endif}
+
+procedure TROPackageAck.RemoveFromList;
+var
+  lOwner: TROAsyncSuperChannelWorker;
+begin
+  lOwner := InterlockedExchangePointer(Pointer(FOwner), nil);
+  if lOwner <> nil then lOwner.fWaitingAckList.Remove(self as IROPackageAck);
+end;
+
+procedure TROPackageAck.SetAckState(I: TROAckState);
+begin
+  FAckState := I;
+end;
+
+procedure TROPackageAck.SetNoAckError(I: Integer);
+begin
+  FAckNoError := i;
+end;
+
+type
+  TWriteItem = class
+  public
+    Data: TByteArray;
+  end;
+
+{ TROAsyncSuperChannelWorker }
+
+procedure TROAsyncSuperChannelWorker.AsyncWrite(aData: TByteArray);
+var
+  lList: TList;
+  p: TWriteItem;
+begin
+  lList := fWriteQueue.LockList;
+  try
+    p := TwriteItem.Create;
+    p.Data := aData;
+    lList.Add(p);
+    if lList.Count <= 1 then begin
+      fConnection.BeginSend(@p.Data[0], Length(p.Data), cbAsyncWrite);
+    end;
+  finally
+    fWriteQueue.UnlockList;
+  end;
+end;
+
+procedure TROAsyncSuperChannelWorker.cbAsyncWrite(
+  const Sender: IROAbstractTCPConnection);
+var
+  lList: TList;
+  p: TWriteItem;
+begin
+  fConnection.EndSend;
+  lList := fWriteQueue.LockList;
+  try
+    if lList.Count = 0 then exit;
+    p := lList[0];
+    lList.Delete(0);
+    p.Free;
+    if lList.Count > 0 then begin
+      p := lList[0];
+      fConnection.BeginSend(@p.Data[0], Length(p.Data), cbAsyncWrite);
+    end;
+  finally
+    fWriteQueue.UnlockList;
+  end;
+end;
+
+procedure TROAsyncSuperChannelWorker.Connected;
+begin
+  // do nothing
+end;
+
+constructor TROAsyncSuperChannelWorker.Create(
+  aConnection: IROAbstractTCPConnection);
+begin
+  inherited Create;
+  fPingFrequency := 60;
+  fPingTimeout := 90;
+  fConnection := aConnection;
+  fMaxPackageSize := 10*1024 * 1024; // 10mb
+  fWaitingAckList:= TInterfaceList.Create;
+  fWriteQueue := TThreadList.Create;
+end;
+
+destructor TROAsyncSuperChannelWorker.Destroy;
+var
+  i: Integer;
+  pb: TWriteItem;
+  lItems: TList;
+begin
+  RemoveTimer(self);
+  fWaitingAckList.Lock;
+  try
+    for i := fWaitingAckList.Count -1 downto 0 do
+      IROPackageAck(fWaitingAckList[i]).RemoveFromList;
+  finally
+    fWaitingAckList.Unlock;
+  end;
+  lItems := fWriteQueue.LockList;
+  try
+    while lItems.Count > 0 do begin
+      pb := lItems[0];
+      lItems.Delete(0);
+      pb.Free;
+    end;
+  finally
+    fWriteQueue.UnlockList;
+  end;
+  fWriteQueue.Free;
+  fWaitingAckList.Free;
+  fConnection.OnDisconnected := nil;
+  fConnection.OnHaveIncompleteData := nil;
+  fConnection := nil;
+  inherited Destroy;
+end;
+
+procedure TROAsyncSuperChannelWorker.Disconnected(
+  var RestartLoop: Boolean);
+begin
+  RestartLoop := false;
+  // Do nothing
+end;
+
+function TROAsyncSuperChannelWorker.GenerateId: Integer;
+begin
+  fWriteQueue.LockList;
+  try
+    if IsServer then
+    begin
+      fLastId := fLastId - 1;
+      if fLastId > -1 then fLastId := -1;
+    end
+    else
+    begin
+      fLastId := fLastId + 1;
+      if fLastId < 1 then fLastId := 1;
+    end;
+    Result := fLastId;
+  finally
+    fWriteQueue.UnlockList;
+  end;
+end;
+
+function TROAsyncSuperChannelWorker.GetTransportObject: TObject;
+begin
+  Result := Self;
+end;
+
+procedure TROAsyncSuperChannelWorker.SupportsOptions;
+begin
+  if fSkipAck then SendOptions('SKIPACK'#13'ON');
+  fRemoteSupportsOptions := true;
+end;
+
+function TROAsyncSuperChannelWorker.IntSendData(Id: Integer;
+  aData: TStream): IROPackageAck;
+var
+  Buffer: TByteArray;
+  len: Integer;
+begin
+  fLastData := Now;
+  Result := TROPackageAck.Create(Self, Id);
+  fWaitingAckList.Add(Result);
+  SetLength(Buffer, (4 + 4 + 1) + aData.Size);
+  Buffer[0] := ScCmdPackage;
+  Move(Id, Buffer[1], 4);
+  Len := aData.Size;
+  Move(Len, Buffer[5], 4);
+
+  aData.Seek(0, soFromBeginning);
+  aData.Read(Buffer[9], aData.Size);
+  AsyncWrite(Buffer);
+end;
+
+procedure TROAsyncSuperChannelWorker.ProcessOption(Data: TByteArray);
+var
+  lCmd, lData: UTF8String;
+  lPos: Integer;
+begin
+  SetLength(lData, Length(Data));
+  Move(Data[0], lData[1], Length(lData));
+  lPos := Pos(AnsiChar(#13), lData);
+  if lPos = 0 then begin
+    lCmd := lData;
+    lData := '';
+  end else begin
+    lCmd := copy(lData, 1, lPos-1);
+    Delete(lData, 1, lPos);
+  end;
+  if lCmd = 'SKIPACK' then begin
+    fRemoteSkipAck := lData <> 'OFF';
+  end;
+end;
+
+
+function TROAsyncSuperChannelWorker.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+procedure TROAsyncSuperChannelWorker.SendError(Id: Integer; Error: Byte);
+var
+  Buffer: TByteArray;
+begin
+  SetLength(Buffer, 6);
+  buffer[0] := ScCmdNoAck;
+  Move(ID, Buffer[1], 4);
+  Buffer[5] := Error;
+  AsyncWrite(Buffer);
+end;
+
+procedure TROAsyncSuperChannelWorker.SendOptions(aData: UTF8String);
+var
+  Buffer: TByteArray;
+  Len: Integer;
+begin
+  fLastData := Now;
+  SetLength(Buffer, Length(aData)+5);
+  Buffer[0] := ScCmdOptions;
+  Len := Length(aData);
+  Move(Len, Buffer[1], 4);
+  Move(aData[1], Buffer[5], Length(aDAta));
+  AsyncWrite(Buffer);
+end;
+
+function TROAsyncSuperChannelWorker.SendPackage(aData: TStream;
+  Id: Integer): IROPackageAck;
+begin
+  if fOtherSideMaxPackageLen < aData.Size then begin
+    raise EROException.Create('Package too large');
+  end
+  else begin
+    if Id = 0 then
+    begin
+      id := GenerateId;
+    end;
+    Result := IntSendData(Id, aData);
+  end;  
+end;
+
+procedure TROAsyncSuperChannelWorker.SetAckDetails(Id: Integer;
+  Oke: Boolean; ErrorNo: Integer);
+var
+  i: Integer;
+  rp: IROPackageAck;
+begin
+  fWaitingAckList.Lock;
+  try
+    for i := fWaitingAckList.Count -1 downto 0 do
+    begin
+      if IROPackageAck(fWaitingAckList[i]).AckNo = Id then
+      begin
+        rp := IROPackageAck(fWaitingAckList[i]);
+        rp.RemoveFromList;
+
+        rp.NoAckError := ErrorNo;
+        if Oke then
+          rp.AckState := rAck
+        else
+          rp.AckState := rNoAck;
+        rp.Event.SetEvent;
+        exit;
+      end;
+    end;
+  finally
+    fWaitingAckList.Unlock;
+  end;
+end;
+
+procedure TROAsyncSuperChannelWorker.SetSkipAck(const Value: Boolean);
+begin
+  fSkipAck := Value;
+end;
+
+class procedure TROAsyncSuperChannelWorker.WaitForAck(pkg: IROPackageAck;
+  Timeout: Integer);
+begin
+  try
+    if pkg.Event = nil then exit; // skipack
+
+    if pkg.Event.WaitFor(Timeout) <> wrSignaled then
+      raise EROTimeout.Create('Timeout');
+    if pkg.AckState <> rAck then
+    begin
+      case pkg.NoAckError of
+        ScCmdNoAck_MsgTooLarge: raise eROMessageTooLarge.Create('Message too large');
+      else
+        raise EROException.Create('Unknown error');
+      end;
+    end;
+  finally
+    pkg.RemoveFromList;
+  end;
+end;
+
+function TROAsyncSuperChannelWorker._AddRef: Integer;
+begin
+  Result := InterlockedIncrement(fRefCount);
+end;
+
+function TROAsyncSuperChannelWorker._Release: Integer;
+begin
+  Result := InterlockedDecrement(fRefCount);
+end;
+
+procedure TROAsyncSuperChannelWorker.DoSetup;
+var
+  lWrite: TList;
+  i: Integer;
+  lData: TByteArray;
+begin
+  fRunning := true;
+  fRemoteSupportsOptions := false;
+  fRemoteSkipAck := false;
+  fServerExpectAck := 0;
+  lWrite := fWriteQueue.LockList;
+  try
+    for i:= 0 to lWRite.Count -1 do begin
+      Pointer(lData) := lWrite[i];
+      lData := nil;
+    end;
+    lWrite.Clear;
+  finally
+    fWriteQueue.UnlockList;
+  end;
+  fLastData := now;
+  fConnection.OnDisconnected := AsyncDisconnected;
+  fConnection.OnHaveIncompleteData := AsyncHaveIncompleteData;
+
+  if fIsServer then begin
+    SetLength(lData, 26);
+    fWorkBuffer := lData;
+    fConnection.BeginReceive(@lData[0], 26, cbServerWelcome);
+  end else begin
+    SetLength(lData, 26);
+    fWorkBuffer := lData;
+    Move(ScWelcome[1], lData[0], Length(ScWelcome));
+    Move(fClientId, lData[6], 16);
+    Move(fMaxPackageSize, lData[22], 4);
+    fConnection.BeginSend(@lData[0], 26, cbClientWelcome);
+  end;
+end;
+
+
+
+procedure TROAsyncSuperChannelWorker.cbClientWelcome(
+  const Sender: IROAbstractTCPConnection);
+begin
+  fConnection.EndSend;
+  fConnection.BeginReceive(@fWorkBuffer[0], 26, cbClientWelcomeDone);
+end;
+
+procedure TROAsyncSuperChannelWorker.cbServerWelcome(
+  const Sender: IROAbstractTCPConnection);
+var
+  lData: Ansistring;
+begin
+  if fConnection.EndReceive <> 26 then fWorkBuffer := nil;
+
+  if (fWorkBuffer = nil) or (fWorkBuffer[0] <> byte(scWelcome[1]))
+    or (fWorkBuffer[1] <> byte(scWelcome[2]))
+    or (fWorkBuffer[2] <> byte(scWelcome[3]))
+    or (fWorkBuffer[3] <> byte(scWelcome[4]))
+    or (fWorkBuffer[4] <> byte(scWelcome[5]))
+    or (fWorkBuffer[5] <> byte(scWelcome[6])) then begin
+    lData :={$IFDEF UNICODE}WideStringToAnsiString{$ENDIF} (GetDefaultResponse);
+    SetLength(fWorkBuffer, Length(lData));
+    move(lData[1], fWorkBuffer[0], Length(lData));
+    fConnection.BeginSend(@fWorkBuffer[0], Length(fWorkBuffer), cbErrorDone);
+    exit;
+  end;
+  Move(fWorkBuffer[6], fClientID, 16);
+  Move(fWorkBuffer[22], fOtherSideMaxPackageLen, 4);
+  if IsEqualGUID(fClientID, EmptyGUID) then
+    fClientID := NewGuid;
+  Move(fClientID, fWorkBuffer[6], 16);
+
+  Move(fMaxPackageSize, fWorkBuffer[22], 4);
+
+  fConnection.BeginSend(@fWorkBuffer[0], 26, cbServerWelcomeDone);
+  HaveGuid;
+end;
+
+procedure TROAsyncSuperChannelWorker.cbClientWelcomeDone(
+  const Sender: IROAbstractTCPConnection);
+var
+  lData: Ansistring;
+begin
+  if fConnection.EndReceive <> 26 then fWorkBuffer := nil;
+  if (fWorkBuffer = nil) or (fWorkBuffer[0] <> Byte(scWelcome[1]))
+    or (fWorkBuffer[1] <> Byte(scWelcome[2]))
+    or (fWorkBuffer[2] <> Byte(scWelcome[3]))
+    or (fWorkBuffer[3] <> Byte(scWelcome[4]))
+    or (fWorkBuffer[4] <> Byte(scWelcome[5]))
+    or (fWorkBuffer[5] <> Byte(scWelcome[6])) then begin
+    lData := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(GetDefaultResponse);
+    SetLength(fWorkBuffer, Length(lData));
+    move(lData[1], fWorkBuffer[0], Length(lData));
+    fConnection.BeginSend(@fWorkBuffer[0], Length(fWorkBuffer), cbErrorDone);
+    exit;
+  end;
+
+  Move(fWorkBuffer[6], fClientID, 16);
+  Move(fWorkBuffer[22], fOtherSideMaxPackageLen, 4);
+  HaveGuid;
+
+  SetupMainLoop;
+end;
+
+procedure TROAsyncSuperChannelWorker.cbServerWelcomeDone(
+  const Sender: IROAbstractTCPConnection);
+begin
+  fConnection.EndSend;
+  SetupMainLoop;
+end;
+
+procedure TROAsyncSuperChannelWorker.cbErrorDone(
+  const Sender: IROAbstractTCPConnection);
+begin
+  fConnection.EndSend;
+  fConnection.BeginDisconnect(True, nil);
+  AsyncDisconnected(Sender);
+end;
+
+procedure TROAsyncSuperChannelWorker.AsyncHaveIncompleteData(
+  const aSender: IROAbstractTCPConnection);
+begin
+  fLastData := Now;
+end;
+
+
+procedure TROAsyncSuperChannelWorker.HaveGuid;
+begin
+  Connected;
+end;
+
+procedure TROAsyncSuperChannelWorker.SetupMainLoop;
+begin
+  SetLength(fWorkBuffer, 6);
+  fWorkbuffer[0] := ScCmdNoAck;
+  fWorkBuffer[1] := 0;
+  fWorkBuffer[2] := 0;
+  fWorkBuffer[3] := 0;
+  fWorkBuffer[4] := 0;
+  fWorkBuffer[5] := ScCmdNoAck_SupportsOptions;
+  AsyncWrite(fWorkBuffer);
+  setlength(fWorkBuffer, 5);
+  fConnection.BeginReceive(@fWorkBuffer[0], 5, cbMainRead);
+  AddTimer(self);
+end;
+
+procedure TROAsyncSuperChannelWorker.AsyncDisconnected (const Sender: IROAbstractTCPConnection);
+begin
+  RemoveTimer(self);
+  fRunning := False;
+  Disconnected(fRunning);
+  if fRunning then DoSetup;
+end;
+
+procedure TROAsyncSuperChannelWorker.Disconnect;
+begin
+  fConnection.BeginDisconnect(true, nil);
+  AsyncDisconnected(fConnection);
+end;
+
+
+
+procedure TROAsyncSuperChannelWorker.cbTimer(Sender: TObject);
+var
+  lData: TByteArray;
+begin
+  if fIsServer then begin
+    if ((Now - fLastData) * (60 * 60 * 24)) > fPingTimeout then begin
+      fConnection.BeginDisconnect(true, nil);
+      AsyncDisconnected(fConnection);
+    end;
+  end else begin
+    if fServerExpectAck <> 0 then begin
+      if ((Now - fLastData) * (60 * 60 * 24)) > fPingTimeout then begin
+        fConnection.BeginDisconnect(true, nil);
+        AsyncDisconnected(fConnection);
+      end;
+    end else begin
+      fServerExpectAck := Trunc(Now * 24 * 60 * 60 * 7);
+      if fServerExpectAck = 0 then fServerExpectAck := 1;
+      SetLength(lData, 5);
+      lData[0] := ScCmdPing;
+      Move(fSErverExpectAck, lData[1], 4);
+      AsyncWrite(lData);
+    end;
+  end;
+end;
+
+procedure TROAsyncSuperChannelWorker.cbNoAckReply(const Sender: IROAbstractTCPConnection);
+begin
+  fConnection.EndReceive;
+  if fWorkBuffer[0] = ScCmdNoAck_SupportsOptions then
+    SupportsOptions
+  else
+    SetAckDetails(fStateData, false, fWorkBuffer[0]);
+  fConnection.BeginReceive(@fWorkBuffer[0], 5, cbMainRead);
+end;
+procedure TROAsyncSuperChannelWorker.cbOptionsReply(const Sender: IROAbstractTCPConnection);
+begin
+  fConnection.EndReceive;
+  ProcessOption(fWorkBuffer);
+  SetLength(fWorkBuffer, 5);
+  fConnection.BeginReceive(@fWorkBuffer[0], 5, cbMainRead);
+end;
+
+procedure TROAsyncSuperChannelWorker.cbPackageLength(const Sender: IROAbstractTCPConnection);
+var
+  lLen: Integer;
+begin
+  fConnection.EndREceive;
+  Move(FWorkBuffer[0], lLen, 4);
+  if (lLen < 0) or (lLen > fMaxPackageSize) then begin
+    fConnection.BeginDisconnect(true, nil);
+    AsyncDisconnected(fConnection);
+    exit;
+  end;
+  SetLength(fWorkBuffer, lLen);
+  fConnection.BeginReceive(@fWorkBuffer[0], lLen, cbPackage);
+end;
+
+procedure TROAsyncSuperChannelWorker.cbPackage(const Sender: IROAbstractTCPConnection);
+var
+  lData: TByteArray;
+begin
+  fConnection.EndReceive;
+  try
+    IncomingData(fStateData, fWorkBuffer);
+    if not fRemoteSkipAck then begin
+      SetLength(lData, 5);
+      lData[0] := ScCmdAck;
+      Move(fStateData, lData[1], 4);
+      AsyncWrite(lData);
+    end;
+  except
+    SendError(fStateData, ScCmdNoAck_QueueFull);
+  end;
+  SetLength(fWorkBuffer, 5);
+  fConnection.BeginReceive(@fWorkBuffer[0], 5, cbMainRead);
+end;
+
+
+procedure TROAsyncSuperChannelWorker.cbMainRead(const Sender: IROAbstractTCPConnection);
+var
+  lTemp: TByteArray;
+begin
+  fLastData := Now;
+  lTemp := nil;
+  fConnection.EndReceive;
+  case fWorkBuffer[0] of
+    ScCmdPong:
+      begin
+        if Integer((@fWorkBuffer[1])^) = fServerExpectAck then fServerExpectAck := 0;
+        fConnection.BeginReceive(@fWorkBuffer[0], 5, cbMainRead);
+      end;
+    ScCmdPing:
+      begin
+        fWorkBuffer[0] := ScCmdPong;
+        AsyncWrite(fWorkBuffer);
+        fWorkBuffer := nil;
+        SetLength(fWorkBuffer, 5);
+        fConnection.BeginReceive(@fWorkBuffer[0], 5, cbMainRead);
+      end;
+    ScCmdAck:
+      begin
+        SetAckDetails(Integer((@fWorkBuffer[1])^), true, 0);
+        fConnection.BeginReceive(@fWorkBuffer[0], 5, cbMainRead);
+      end;
+    ScCmdNoAck:
+      begin
+        Move(fWorkBuffer[1], fStateData, 4);
+        fConnection.BeginReceive(@fWorkBuffer[0], 1, cbNoAckReply);
+      end;
+    ScCmdOptions:
+      begin
+        Move(fWorkBuffer[1], fStateData, 4);
+        if fStateData > fMaxPackageSize then begin
+          fConnection.BeginDisconnect(true, nil);
+          AsyncDisconnected(fConnection);
+          exit;
+        end;
+        SetLength(fWorkBuffer, fStateData);
+        fConnection.BeginReceive(@fWorkBuffer[0], fStateData, cbOptionsReply);
+      end;
+    ScCmdPackage:
+      begin
+        Move(fWorkBuffer[1], fStateData, 4);
+        fConnection.BeginReceive(@fWorkBuffer[0], 4, cbPackageLength);
+      end;
+    else begin
+      fConnection.BeginDisconnect(true, nil);
+      AsyncDisconnected(fConnection);
+    end;
+  end;
+end;
+
+function TROAsyncSuperChannelWorker.GetDefaultResponse: string;
+begin
+  Result := 'ROSC:Invalid connection string';
+end;
+
+initialization
+  fTimerList := TThreadList.Create;
+finalization
+  fTimer.Free;
+  fTimerList.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncSuperTcpServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncSuperTcpServer.pas
new file mode 100644
index 0000000..8e5e4a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROAsyncSuperTcpServer.pas	
@@ -0,0 +1,313 @@
+unit uROAsyncSuperTcpServer;
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  SysUtils, Classes, uROClasses, uROClient, uROClientIntf, uROServerIntf,
+  uROSessions, uROServer{$IFDEF MSWINDOWS}, Windows{$ENDIF}, uROAsyncSCHelpers,
+  uROThreadPool, uROEventRepository;
+
+type
+  TROAsyncConnectionEvent = procedure (aChannel: IROTransport; const aGuid: TGuid) of object;
+  TROBaseAsyncSuperTcpServer = class(TROServer)
+  private
+    fAckWaitTimeout: Integer;
+    fMaxPackageSize: Integer;
+    fGuidToClientMap: TStringList;
+    fSkipAck: Boolean;
+    fEventRepository: TROEventRepository;
+    fBlockingEvents: Boolean;
+    fOnClientConnected: TROAsyncConnectionEvent;
+    fOnClientDisconnected: TROAsyncConnectionEvent;
+    procedure SetThreadPool(const Value: TROThreadPool);
+  protected
+    fOwnsThreadPool: Boolean;
+    fThreadPool: TROThreadPool;
+    fClients: TThreadList;
+    procedure HasData(Id: Integer; aClient: TROAsyncSuperChannelWorker; aData: TStream);
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+
+    property AckWaitTimeout: Integer read fAckWaitTimeout write fAckWaitTimeout default 10000;
+    property MaxPackageSize: Integer read fMaxPackageSize write fMaxPackageSize default 10*1024*1024;
+    property SkipAck: Boolean read fSkipAck write fSkipAck default false;
+
+    property ThreadPool: TROThreadPool read fThreadPool write SetThreadPool;
+    property EventRepository: TROEventRepository read fEventRepository write fEventRepository;
+    property GuidToClientMap: TStringList read fGuidToClientMap;
+    property BlockingEvents: Boolean read fBlockingEvents write fBlockingEvents default False;
+    property OnClientConnected: TROAsyncConnectionEvent read fOnClientConnected write fOnClientConnected;
+    property OnClientDisconnected: TROAsyncConnectionEvent read fOnClientDisconnected write fOnClientDisconnected;
+  end;
+
+  TROAsyncInvokerQueueItem = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fData: TStream;
+    fId: Integer;
+    fCaller: TROBaseAsyncSuperTCPServer;
+    FClient: TROAsyncSuperChannelWorker;
+  public
+    constructor Create(aCaller: TROBaseAsyncSuperTCPServer; aClient: TROAsyncSuperChannelWorker; Id: Integer; aData: TStream);
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+    destructor Destroy; override;
+  end;
+
+  TSendEvent = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fStream: TROEventData;
+    fOwner: TROBaseAsyncSuperTCPServer;
+    fClientGuid: TGUID;
+    fSender: TROEventRepository;
+    fWorkerOverride: IROTransport;
+  protected
+  public
+    constructor Create(aOwner: TROBaseAsyncSuperTCPServer; aClientGuid: TGUID; aSender: TROEventRepository; aData: TROEventData);
+    destructor Destroy; override;
+
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+    property WorkerOverride: IROTransport read fWorkerOverride write fWorkerOverride;
+  end;
+
+implementation
+uses
+  uROTypes;
+
+{ TROBaseAsyncSuperTCPServer }
+
+procedure TROBaseAsyncSuperTCPServer.Assign(Source: TPersistent);
+var
+  lSource: TROBaseAsyncSuperTCPServer;
+begin
+  inherited;
+  if Source is TROBaseAsyncSuperTCPServer then begin
+    lSource := TROBaseAsyncSuperTCPServer(Source);
+
+    AckWaitTimeout := lSource.AckWaitTimeout;
+    BlockingEvents := lSource.BlockingEvents;
+    EventRepository := lSource.EventRepository;
+    MaxPackageSize := lSource.MaxPackageSize;
+    OnClientConnected := lSource.OnClientConnected;
+    OnClientDisconnected := lSource.OnClientDisconnected;
+    SkipAck := lSource.SkipAck;
+  end;
+end;
+
+constructor TROBaseAsyncSuperTCPServer.Create(aOwner: TComponent);
+begin                                                   
+  inherited Create(aOwner);
+  fClients := TThreadList.Create;
+  AckWaitTimeout := 10000;
+  fMaxPackageSize := 10 * 1024 * 1024;
+  fGuidToClientMap := TStringList.Create;
+  fGuidToClientMap.Sorted := true;
+
+end;
+
+destructor TROBaseAsyncSuperTCPServer.Destroy;
+begin
+  Active := False;
+  fGuidToClientMap.Free;
+  fClients.Free;
+  if fOwnsThreadPool then
+    fThreadPool.Free;
+  inherited Destroy;
+end;
+
+procedure TROBaseAsyncSuperTCPServer.HasData(Id: Integer; aClient: TROAsyncSuperChannelWorker; aData: TStream);
+var
+  lItem: IROThreadPoolCallback;
+  lOrg: TROAsyncInvokerQueueItem;
+begin
+  lOrg := TROAsyncInvokerQueueItem.Create(Self, aClient, Id, aData);
+  lItem := lOrg;
+  try
+    fThreadPool.QueueItem(lItem);
+  except
+    aClient.SendError(Id, ScCmdNoAck_QueueFull);
+    lOrg.fData := nil; // caller will free it on exceptions
+    raise;
+  end;
+end;
+
+procedure TROBaseAsyncSuperTCPServer.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  if (Operation = opRemove) then begin
+    if AComponent = fThreadPool then
+      fThreadPool := nil;
+    if AComponent = fEventRepository then
+      fEventRepository := nil;
+  end;
+  inherited;
+end;
+
+procedure TROBaseAsyncSuperTCPServer.DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+var
+  i: Integer;
+  aref: IROSessionsChangesListener;
+  se: IROThreadPoolCallback;
+begin
+  fClients.LockList;
+  try
+    i := fGuidToClientMap.IndexOf(GUIDToString(aSessionReference));
+    if i = -1 then begin
+      if fEventRepository <> nil then begin
+        if Supports(fEventRepository, IROSessionsChangesListener, aref) then
+          aref.SessionsChangedNotification(aSessionReference, saRemoveActiveListener, nil);
+        fEventRepository.StoreEventData(EmptyGUID, Binary(anEventDataItem.Data), false, false, GUIDToString(aSessionReference));
+        if anEventDataItem.RemoveRef = 0 then anEventDataItem.Free;
+        exit;
+      end;
+    end;
+  finally
+    fClients.UnlockList;
+  end;
+  se := TSendEvent.Create(Self, aSessionReference, TROEventRepository(aSender), anEventDataItem);
+  if BlockingEvents then
+    se.Callback(fThreadPool, nil)
+  else
+    fThreadPool.QueueItem(se);
+end;
+
+procedure TROBaseAsyncSuperTCPServer.SetThreadPool(const Value: TROThreadPool);
+begin
+  if fOwnsThreadPool then
+  begin
+    fOwnsThreadPool := false;
+    fThreadPool.Free;
+  end;
+  fThreadPool := Value;
+end;
+
+
+
+procedure TSendEvent.Callback(Caller: TROThreadPool; Thread: TThread);
+var
+  ms: TROConstantMemoryStream;
+  i: Integer;
+  wak: IROPackageAck;
+  ass: IROActiveEventServer;
+  asv: IROValidatedSessionsChangesListener;
+  fid: TGuid;
+  obj: TROAsyncSuperChannelWorker;
+  aRef: IROSessionsChangesListener;
+begin
+  obj := nil;
+  fOwner.EncodeEventStream(fStream.Data);
+  ms := TROConstantMemoryStream.Create(TMemoryStream(fStream.Data));
+  if fStream is TRONamedEventData then
+    fid := TRONamedEventData(FStream).ID
+  else
+    fid := EmptyGUID;
+  try
+    try
+      fOwner.fClients.LockList;
+      try
+        i := fOwner.fGuidToClientMap.IndexOf(GUIDToString(fClientGuid));
+        if i = -1 then exit;
+        if fWorkerOverride <> nil then
+          obj := TROAsyncSuperChannelWorker(fWorkerOverride.GetTransportObject)
+        else
+          obj := TROAsyncSuperChannelWorker(fOwner.fGuidToClientMap.Objects[i]);
+        wak := obj.SendPackage(ms, 0);
+        if not Supports(obj, IROSessionsChangesListener, ass) then ass := nil;
+      finally
+        fOwner.fClients.UnlockList;
+      end;
+      TROAsyncSuperChannelWorker.WaitForAck(wak, fOwner.fAckWaitTimeout);
+      if Supports(fOwner.fEventRepository, IROValidatedSessionsChangesListener, asv) and not IsEqualGUID(fid, EmptyGUID) then
+        asv.EventSucceeded(fClientGuid, fid);
+    except
+      if fOwner.fEventRepository <> nil then begin
+        if Supports(fOwner.fEventRepository, IROSessionsChangesListener, aref) then
+          aref.SessionsChangedNotification(fClientGuid, saRemoveActiveListener, obj);
+        if IsEqualGUID(fid, EmptyGUID) or not Supports(fOwner.fEventRepository, IROValidatedSessionsChangesListener) then
+          fOwner.fEventRepository.StoreEventData(EmptyGUID, ms, false, false, GUIDToString(fClientGuid));
+        exit;
+      end;
+    end;
+  finally
+    ms.Free;
+  end;
+end;
+
+constructor TSendEvent.Create(aOwner: TROBaseAsyncSuperTCPServer; aClientGuid: TGUID; aSender: TROEventRepository; aData: TROEventData);
+begin
+  inherited Create;
+  fStream := aData;
+  fSender := aSender;
+  fClientGuid := aClientGuid;
+  fOwner := aOwner;
+end;
+
+destructor TSendEvent.Destroy;
+begin
+  if fStream.RemoveRef = 0 then
+    fStream.Free;
+  inherited Destroy;
+end;
+
+{ TROAsyncInvokerQueueItem }
+
+procedure TROAsyncInvokerQueueItem.Callback(Caller: TROThreadPool; Thread: TThread);
+var
+  lResponse: TMemoryStream;
+  l: TList;
+  lClient: IROTransport;
+begin
+  lResponse := TMemoryStream.Create;
+  try
+    lClient := FClient;
+    try
+      fCaller.DispatchMessage(lClient, fData, lResponse);
+    finally
+      lClient := nil;
+    end;
+    lResponse.Seek(0, soFromBeginning);
+    l := fCaller.fClients.LockList;
+    try
+      if l.IndexOf(FClient) = -1 then exit;
+    finally
+      fCaller.fClients.UnlockList;
+    end;
+    if lResponse.Size > FClient.MaxPackageSize then
+      FClient.SendError(fId, ScCmdNoAck_MsgTooLarge)
+    else
+      FClient.SendPackage(lResponse, fId).RemoveFromList; //  we're not going to wait
+  finally
+    lResponse.Free;
+  end;
+end;
+
+constructor TROAsyncInvokerQueueItem.Create(aCaller: TROBaseAsyncSuperTCPServer; aClient: TROAsyncSuperChannelWorker; Id: Integer; aData: TStream);
+begin
+  inherited Create;
+  fCaller := aCaller;
+  fId := Id;
+  fData := aData;
+  fClient := aClient;
+end;
+
+destructor TROAsyncInvokerQueueItem.Destroy;
+begin
+  fData.Free;
+  inherited Destroy;
+end;
+
+end.                                                                                                
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBPDXHTTPServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBPDXHTTPServer.pas
new file mode 100644
index 0000000..9709f67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBPDXHTTPServer.pas	
@@ -0,0 +1,565 @@
+unit uROBPDXHTTPServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, uROServer, uROClientIntf, uROBPDXTCPServer, uROHTTPTools,
+     {$IFDEF RemObjects_USE_RODX}
+     uRODXString, uRODXServerCore, uRODXSock, uRODXHTTPServerCore, uRODXHTTPHeaderTools;
+     {$ELSE}
+     DXString, DXServerCore, DXSock, DXHTTPServerCore, DXHTTPHeaderTools;
+     {$ENDIF}
+
+type
+  { TROBPDXHTTPTransport }
+  TROBPDXHTTPTransport = class(TInterfacedObject, IROTransport, IROTCPTransport, IROHTTPTransport)
+  private
+    fResponseHeaders : TStringList;
+
+    fClientThread: TDXClientThread;
+    fHeaderInfo: PHeaderInfo;
+    fOverriddenPathInfo: string;
+  protected
+    { IROHTTPTransport }
+    procedure SetHeaders(const aName, aValue : string);
+    function GetHeaders(const aName : string) : string;
+    function GetContentType : string;
+    procedure SetContentType(const aValue : string);
+    function GetUserAgent : string;
+    procedure SetUserAgent(const aValue : string);
+    function GetTargetURL : string;
+    procedure SetTargetURL(const aValue : string);
+    function GetPathInfo : string;
+    function GetLocation : string;
+    function GetQueryString : string;
+    function GetQueryParameter(const aName: string): string;
+    procedure SetPathInfo(const aValue: String);
+
+    { IROTransport }
+    function GetTransportObject : TObject;
+    function GetClientAddress : string;
+  public
+    constructor Create(aClientThread: TDXClientThread; aHeaderInfo: PHeaderInfo);
+    destructor Destroy; override;
+
+    property ClientThread: TDXClientThread read fClientThread;
+    property HeaderInfo: PHeaderInfo read fHeaderInfo;
+  end;
+
+  { TROBPDXHTTPServer }
+  TROBPDXHTTPServer = class(TROBPDXTCPServer)
+  private
+    fServeInfoPage, fServeRodl: Boolean;
+    fSendExceptionsAs500: boolean;
+    fDisableNagle:  Boolean;
+    fOnGetCustomClientAccessPolicy: TROCustomClientAccessPolicyMethod;
+    fSendClientAccessPolicyXml: TROClientAccessPolicyType;
+    function GetBPDXServer: TDXHTTPServerCore;
+    function GetSupportKeepAlive: Boolean;
+    procedure SetSupportKeepAlive(const Value: Boolean);
+
+  protected
+    function CreateBPDXServer : TDXServerCore; override;
+
+    function BuildResponseHeader(StatusCode:Integer;var EnableKeepAlive : Boolean) : Ansistring;
+    procedure CleanupNetscapeAndProxyRequests(HeaderInfo:PHeaderInfo);
+
+    procedure InternalOnNewConnect(ClientThread:TDXClientThread);
+    procedure InternalHandleSession(ClientThread: TDXClientThread; HeaderInfo: PHeaderInfo; var EnableKeepAlive: boolean);
+
+    function GetDispatchersClass : TROMessageDispatchersClass; override;
+    function GetServerType: TROServerType; override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property BPDXServer: TDXHTTPServerCore read GetBPDXServer;
+    property DisableNagle: Boolean read fDisableNagle write fDisableNagle default True;
+    property SupportKeepAlive: Boolean read GetSupportKeepAlive write SetSupportKeepAlive;
+    property ServeInfoPage : Boolean read fServeInfoPage write fServeInfoPage default true;
+    property ServeRodl : Boolean read fServeRodl write fServeRodl default true;
+    property SendExceptionsAs500: boolean read fSendExceptionsAs500 write fSendExceptionsAs500 default true;
+    property OnGetRODLReader;
+    property OnGetCustomClientAccessPolicy: TROCustomClientAccessPolicyMethod read fOnGetCustomClientAccessPolicy write fOnGetCustomClientAccessPolicy;
+    property SendClientAccessPolicyXml: TROClientAccessPolicyType read fSendClientAccessPolicyXml write fSendClientAccessPolicyXml default captAllowNone;
+  end;
+
+implementation
+
+uses SysUtils,{$IFDEF DELPHI2009UP}AnsiStrings,{$ENDIF}
+  uRORes, uROHTTPDispatch, uROClient, uROServerIntf, uROClasses,
+  uROHtmlServerInfo, uRODL, uRODXSocket;
+
+constructor TROBPDXHTTPTransport.Create(aClientThread: TDXClientThread; aHeaderInfo: PHeaderInfo);
+begin
+  inherited Create;
+  fResponseHeaders := TStringList.Create;
+  fClientThread := aClientThread;
+  fHeaderInfo := aHeaderInfo;
+end;
+
+destructor TROBPDXHTTPTransport.Destroy;
+begin
+  fResponseHeaders.Free;
+
+  inherited;
+end;
+
+procedure TROBPDXHTTPTransport.SetHeaders(const aName, aValue : string);
+begin
+  SetHeaderValue(fResponseHeaders, aName, aValue);
+end;
+
+function TROBPDXHTTPTransport.GetHeaders(const aName : string) : string;
+var
+  s: string;
+  lPos: Integer;
+  s1: string;
+begin
+  s1:={$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fHeaderInfo.Unknown);
+  lPos := Pos(#13#10+aName+'=',s1 );
+  if lPos = 0 then begin
+    result := '';
+    exit;
+  end;
+  s := Copy(s1, lPos + 2, MaxInt);
+  s := copy(s,1,pos(#13#10, s)-1);
+  s := copy(s,pos('=', s)+1, MaxInt);
+  result := s;
+end;
+
+function TROBPDXHTTPTransport.GetContentType : string;
+begin
+  result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fHeaderInfo.ContentType)
+end;
+
+procedure TROBPDXHTTPTransport.SetContentType(const aValue : string);
+begin
+  SetHeaders(id_ContentType, aValue);
+end;
+
+function TROBPDXHTTPTransport.GetUserAgent : string;
+begin
+  result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fHeaderInfo.UserAgent)
+end;
+
+procedure TROBPDXHTTPTransport.SetUserAgent(const aValue : string);
+begin
+  SetHeaders(id_UserAgent, aValue);
+end;
+
+function TROBPDXHTTPTransport.GetTargetURL : string;
+begin
+  result := ''
+end;
+
+procedure TROBPDXHTTPTransport.SetTargetURL(const aValue : string);
+begin
+
+end;
+
+function TROBPDXHTTPTransport.GetTransportObject : TObject;
+begin
+  result  :=  Self;
+end;
+
+function TROBPDXHTTPTransport.GetClientAddress : string;
+begin
+  result  :=  {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fClientThread.Socket.PeerIPAddress);
+end;
+
+function TROBPDXHTTPTransport.GetPathInfo : string;
+var
+  r: AnsiString;
+begin
+  if fOverriddenPathInfo <> '' then
+    result := fOverriddenPathInfo
+  else begin
+    r := StringReplace(fHeaderInfo^.URI, AnsiString('http://'), AnsiString(''), []);
+    result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Copy(r, Pos(AnsiChar('/'), r), MaxInt));
+  end;
+end;
+
+function TROBPDXHTTPTransport.GetLocation : string;
+begin
+  result := 'http://'+{$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fHeaderInfo^.Host);
+end;
+
+{ TROBPDXHTTPServer }
+function TROBPDXHTTPServer.GetBPDXServer: TDXHTTPServerCore;
+begin
+  result := TDXHTTPServerCore(inherited BPDXServer);
+end;
+
+function TROBPDXHTTPServer.CreateBPDXServer: TDXServerCore;
+begin
+  //DXSock.TDXXferTimeout := 100;
+  result  :=  TDXHTTPServerCore.Create(Self);
+
+  with TDXHTTPServerCore(result) do begin
+    ServerPort  :=  8099;
+    BindTo  :=  ''; // blank = ALL IP's!
+    Timeout  :=  50000; // 50 seconds for initial header
+    ThreadCacheSize  :=  10;
+    SocketOutputBufferSize  :=  bsfHuge;
+
+    // Optimized settings
+    {$IFDEF MSWINDOWS}
+    ListenerThreadPriority := tpIdle;
+    SpawnedThreadPriority := tpIdle;
+    {$ENDIF}
+    SocketOutputBufferSize := bsfNormal;
+    UseThreadPool := FALSE;
+    SupportKeepAlive  :=  FALSE;
+
+    OnNewConnect  :=  InternalOnNewConnect;
+    OnCommandGET  :=  InternalHandleSession;
+    OnCommandPOST  :=  InternalHandleSession;
+    OnCommandHEAD  :=  InternalHandleSession;
+  end;
+end;
+
+procedure TROBPDXHTTPServer.Assign(Source: TPersistent);
+var
+  lSource: TROBPDXHTTPServer;
+begin
+  inherited;
+  if Source is TROBPDXHTTPServer then begin
+    lSource := TROBPDXHTTPServer(Source);
+
+    BPDXServer.Assign(lSource.BPDXServer);
+    DisableNagle := lSource.DisableNagle;
+    OnGetCustomClientAccessPolicy := lSource.OnGetCustomClientAccessPolicy;
+    SendClientAccessPolicyXml := lSource.SendClientAccessPolicyXml;
+    SendExceptionsAs500 := lSource.SendExceptionsAs500;
+    ServeInfoPage := lSource.ServeInfoPage;
+    ServeRodl := lSource.ServeRodl;
+    SupportKeepAlive := lSource.SupportKeepAlive;
+  end;
+end;
+
+function TROBPDXHTTPServer.BuildResponseHeader(StatusCode:Integer;var EnableKeepAlive : Boolean) : Ansistring;
+begin
+   Result := AnsiString('HTTP/1.1 ')+BPDXServer.HeaderText(StatusCode)+AnsiString(#13#10+
+      'Server: RemObjects DXSock Web Server v1.0'+#13#10+
+      'Date: ')+{DXString.}DateTimeToGMTRFC822(Now)+AnsiString(#13#10+
+      'MIME-Version: 1.0'+#13#10+
+      'Public: GET,POST,HEAD,TRACE'+#13#10+
+      'Accept-Ranges: none'+#13#10);
+   if StatusCode<>200 then begin
+      Result := Result+
+         AnsiString('Pragma: no-cache'+#13#10+
+                    'Cache-Control: no-cache'+#13#10);
+      EnableKeepAlive := False;
+   end;
+   if EnableKeepAlive then begin
+      Result := Result+AnsiString('Connection: Keep-Alive'+#13#10+
+         'Keep-Alive: timeout=')+Ansi_IntToStr((BPDXServer.Timeout div 1000))+AnsiString(#13#10);
+   End
+   else begin
+      Result := Result+AnsiString('Connection: close'+#13#10);
+   end;
+end;
+
+Procedure TROBPDXHTTPServer.CleanupNetscapeAndProxyRequests(HeaderInfo:PHeaderInfo);
+Var
+   Ws:AnsiString;
+   p: integer;
+begin
+   p:= Pos(AnsiString('://'),HeaderInfo^.Raw);
+   if (p>0) and (p<10) then begin
+      Ws := Copy(HeaderInfo^.RAW,1,Pos(AnsiChar(#32),HeaderInfo^.RAW));
+      Delete(HeaderInfo^.RAW,1,p+2);
+      p := Pos(AnsiChar('/'),HeaderInfo^.RAW);
+      if p = 0 then
+        HeaderInfo^.RAW := AnsiString('/ HTTP/1.1')
+      else
+        Delete(HeaderInfo^.RAW,1,p-1);
+      HeaderInfo^.RAW := Ws+HeaderInfo^.RAW;
+   end;
+end;
+
+procedure TROBPDXHTTPServer.InternalOnNewConnect(ClientThread:TDXClientThread);
+begin
+//  ClientThread.Socket.SetNagle(False);
+  if fDisableNagle then
+    ClientThread.Socket.SetNagle(True);
+  BPDXServer.ProcessSession(ClientThread); // tell server to handle connection
+end;
+
+procedure TROBPDXHTTPServer.InternalHandleSession(ClientThread: TDXClientThread; HeaderInfo: PHeaderInfo; var EnableKeepAlive: boolean);
+
+  function GetError: ansistring;
+  begin
+    Result := AnsiString('<font size="7">500 Invalid Path</font><br />')+
+              {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(err_CannotFindMessageDispatcher);
+  end;
+
+Var
+   StatusCode:Integer; // you set this!
+   req : TMemoryStream;
+   resp:TMemoryStream; // you set this!
+   transport : IROHTTPTransport;
+   HeaderStr:ansiString;
+   disp : TROHTTPDispatcher;
+   s: Ansistring;
+    root, sub : string;
+   lIgnore: TROResponseOptions;
+   format: TDataFormat;
+   info: IRONamedModuleInfo;
+   lRodl: TRodlLibrary;
+   ok: Boolean;
+   lPolicyContent: AnsiString;
+begin
+  req  := NIL;
+  resp := NIL;
+  ok := false;
+  // if POST then collect the post data!
+  if HeaderInfo^.Method='POST' then begin // collect post data!
+    if HeaderInfo^.ContentLength=0 then begin // HACKER!!
+      ClientThread.Socket.Writeln(BuildResponseHeader(411,EnableKeepAlive));
+      Exit;
+    end;
+
+    while Length(HeaderInfo^.PostData)<HeaderInfo^.ContentLength do begin
+      HeaderInfo^.PostData  :=  HeaderInfo^.PostData+
+                                ClientThread.Socket.ReadStr(HeaderInfo^.ContentLength-Length(HeaderInfo^.PostData));
+      if (ClientThread.Socket.DroppedConnection) or (ClientThread.Socket.Sock = INVALID_SOCKET) then begin // connection aborted!
+        EnableKeepAlive := False;
+        Exit;
+      end;
+    end;
+  end;
+
+  // now we handle the request!
+  CleanupNetscapeAndProxyRequests(HeaderInfo);
+  if HeaderInfo^.URI='' then HeaderInfo^.URI := AnsiChar('/'); // fix old Netscape!
+
+  try
+    req := TROBinaryMemoryStream.Create(HeaderInfo^.PostData);
+    resp := TROBinaryMemoryStream.Create;
+    transport  :=  TROBPDXHTTPTransport.Create(ClientThread, HeaderInfo);
+
+    { make sure you set the:
+        StatusCode to the result you want to send!
+        resp - is the page body, xml, html, etc.
+        MimeType - is the Content-Type: <value_only> e.g. text/html }
+
+    root := transport.PathInfo;
+    if (root <> '') and (root[1] = '/') then delete(root, 1,1);
+    if pos('/', root) > 0 then
+    begin
+      sub := copy(root, pos('/', root)+1, maxint);
+      root := '/' + copy(root, 1, pos('/', root) - 1);
+    end else
+    begin
+      root := '/' + root;
+      sub := '';
+    end;
+
+    disp := TROHTTPMessageDispatchers(Dispatchers).GetDispatcherByPath(root) as TROHTTPDispatcher;
+
+    if disp <> nil then
+    begin
+      if (req.Size = 0) then begin
+        ok := fServeRodl;
+        if ok then
+          ok := IntDispatchMessage(disp, transport, req, resp, lIgnore)
+        else begin
+          s := GetError;
+          resp.Write(s[1], length(s));
+        end;
+      end else if (sub = '')  then
+        ok := IntDispatchMessage(disp, transport, req, resp, lIgnore)
+      else if (CompareText(sub, 'rodl') = 0) and fServeRodl then
+      begin
+        if copy(disp.PathInfo, 1, 1) = '/' then transport.PathInfo := disp.PathInfo else transport.PathInfo := '/'+disp.PathInfo;
+        GetRodl(resp, transport, format, GetRODLReader);
+        ok := true;
+      end else if Supports(disp.Message, IRONamedModuleInfo, info) and (CompareText(info.ModuleInfoName, sub) = 0) and fServeRodl then
+      begin
+        if copy(disp.PathInfo, 1, 1) = '/' then transport.PathInfo := disp.PathInfo else transport.PathInfo := '/'+disp.PathInfo;
+        info.GetModuleInfo(resp, transport, format);
+        ok := true;
+      end else
+      begin
+        ok := IntDispatchMessage(disp, transport, req, resp, lIgnore)
+      end;
+    end else if (CompareText(root, '/rodl') = 0) and (sub = '') and fServeRodl then
+    begin
+      GetRodl(resp, transport, format, GetRODLReader);
+      ok := true;
+    end else if fServeInfoPage and (CompareText(root, '/doc') = 0) then
+    begin
+      if sub = 'css' then
+      begin
+        s := GetRodlCss;
+        resp.Write(s[1], length(s));
+        transport.ContentType := 'text/css';
+        ok := true;
+      end else
+      if sub = 'xslt' then
+      begin
+        s := GetRodlStyleSheet;
+        resp.Write(s[1], length(s));
+        transport.ContentType := 'text/xml';
+        ok := true;
+      end else if sub = '' then
+      begin
+        lRodl := GetRodlLibrary(GetRODLReader);
+        try
+          s := GetRodlWithStyleSheet(lRodl, '/doc/xslt');
+          resp.Write(s[1], length(s));
+          transport.ContentType := 'text/xml';
+        finally
+          lRodl.Free;
+        end;
+        ok := true;
+      end else
+      begin
+        s := GetError;
+        resp.Write(s[1], length(s));
+        ok := false;
+      end;
+    end else if fServeInfoPage and (CompareStr(root, '/favicon.ico') = 0) then
+    begin
+      GetRodlFavIcon(resp);
+      transport.ContentType := 'image/x-icon';
+      ok := true;
+    end else if fServeInfoPage and (root = '/') then
+    begin
+      lrodl := GetRodlLibrary(GetRODLReader);
+      try
+        s := GetRodlServerInfo(transport.PathInfo, lRodl, Dispatchers);
+        resp.Write(s[1], length(s));
+      finally
+        lRodl.Free;
+      end;
+      ok := true;
+    end else
+    if CompareText(root, '/clientaccesspolicy.xml') = 0 then begin
+      case fSendClientAccessPolicyXml of
+        captAllowAll: begin
+          lPolicyContent := GetClientAccessPolicy;
+        end;
+        captCustom: begin
+          if Assigned(fOnGetCustomClientAccessPolicy) then
+            fOnGetCustomClientAccessPolicy(Self, lPolicyContent);
+        end;
+      end;
+      if lPolicyContent <> '' then begin
+        transport.ContentType := 'text/xml';
+        resp.Write(lPolicyContent[1], Length(lPolicyContent));
+        ok := true;
+      end;
+    end  else
+    begin
+      s := GetError;
+      resp.Write(s[1], length(s));
+      ok := false;
+    end;
+
+    if ok or (not fSendExceptionsAs500) then
+      StatusCode:= HTTP_OK
+    else
+      StatusCode := HTTP_FAILED;
+
+    HeaderStr := BuildResponseHeader(StatusCode,EnableKeepAlive)+
+       id_UserAgent+': '+str_ProductName+#13#10+
+       id_ContentLength+': '+Ansi_IntToStr(resp.Size)+#13#10+
+       id_ContentType+': '+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(transport.Headers[id_ContentType])+#13#10;
+
+    ClientThread.Socket.Writeln(HeaderStr);
+
+    if (HeaderInfo^.Method<>'HEAD') and (resp.Size>0) then begin
+      {$IFDEF VER100}
+      ClientThread.Socket.BlockWrite(resp.Memory,resp.Size);
+      {$ELSE}
+      ClientThread.Socket.Write(resp.Memory,resp.Size);
+      {$ENDIF}
+    end;
+  finally
+    req.Free;
+    resp.Free;
+  end;
+end;
+
+function TROBPDXHTTPServer.GetDispatchersClass : TROMessageDispatchersClass;
+begin
+  result := TROHTTPMessageDispatchers
+end;
+
+
+function TROBPDXHTTPServer.GetServerType: TROServerType;
+begin
+  Result := rstHTTP;
+end;
+
+function TROBPDXHTTPServer.GetSupportKeepAlive: Boolean;
+begin
+  Result := BPDXServer.SupportKeepAlive;
+end;
+
+procedure TROBPDXHTTPServer.SetSupportKeepAlive(const Value: Boolean);
+begin
+  BPDXServer.SupportKeepAlive := Value;
+end;
+
+function TROBPDXHTTPTransport.GetQueryString: string;
+begin
+  result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fHeaderInfo^.QueryString)
+end;
+
+constructor TROBPDXHTTPServer.Create(aOwner: TComponent);
+begin
+  inherited;
+  fServeInfoPage := true;
+  fDisableNagle := true;
+  fServeRodl := true;
+  fSendExceptionsAs500 := true;
+end;
+
+procedure TROBPDXHTTPTransport.SetPathInfo(const aValue: String);
+begin
+  fOverriddenPathInfo := aValue;
+end;
+
+function TROBPDXHTTPTransport.GetQueryParameter(
+  const aName: string): string;
+var
+  s: Ansistring;
+  i: Integer;
+  lName: AnsiString;
+begin
+  lName := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(AName);
+  s := fHeaderInfo^.QueryString;
+  if Copy(s,1,length(lName)+1) = lName+'=' then begin
+    Delete(s,1,Length(lname)+1);
+  end else begin
+    i := Pos('&' +lName+'=',s);
+    if i = 0 then exit;
+    Delete(s,1,i+Length(lName)+1);
+  end;
+  i := pos(AnsiChar('&'), s);
+  if i > 0 then s:= copy(s,1,i-1);
+  Result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(EscapeDecode(s));
+end;
+
+initialization
+  RegisterServerClass(TROBPDXHTTPServer);
+finalization
+  UnregisterServerClass(TROBPDXHTTPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBPDXTCPServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBPDXTCPServer.pas
new file mode 100644
index 0000000..54cb9a4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBPDXTCPServer.pas	
@@ -0,0 +1,222 @@
+unit uROBPDXTCPServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, uROServer, uROClientIntf,
+     {$IFDEF RemObjects_USE_RODX}
+     uRODXString, uRODXSock, uRODXServerCore;
+     {$ELSE}
+     DXString, DXSock, DXServerCore;
+     {$ENDIF}
+
+type
+  { TROBPDXTCPTransport }
+  TROBPDXTCPTransport = class(TInterfacedObject, IROTransport, IROTCPTransport)
+  private
+    fClientThread: TDXClientThread;
+
+  protected
+    { IROTransport }
+    function GetTransportObject : TObject;
+    function GetClientAddress : string;
+
+  public
+    constructor Create(aClientThread: TDXClientThread);
+
+    property ClientThread: TDXClientThread read fClientThread;
+  end;
+
+  { TROBPDXTCPServer }
+  TROBPDXTCPServer = class(TROServer)
+  private
+    fBPDXServer: TDXServerCore;
+
+    procedure SetBindIP(const Value: Ansistring);
+    function GetBindIP: Ansistring;
+  protected
+    function CreateBPDXServer : TDXServerCore; virtual;
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive : boolean; override;
+
+    procedure InternalOnNewConnect(ClientThread:TDXClientThread);
+    function GetPort: integer;override;
+    procedure SetPort(const Value: integer);override;
+    function GetServerType: TROServerType; override;
+  public
+    constructor Create(aComponent: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property BPDXServer: TDXServerCore read fBPDXServer;
+    property Port;
+    property BindIP: Ansistring read GetBindIP write SetBindIP;
+  end;
+
+implementation
+
+uses SysUtils,
+     uRORes;
+
+
+{ TROBPDXTCPTransport }
+
+constructor TROBPDXTCPTransport.Create(aClientThread: TDXClientThread);
+begin
+  inherited Create;
+  fClientThread := aClientThread;
+end;
+
+function TROBPDXTCPTransport.GetClientAddress: string;
+begin
+  result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fClientThread.Socket.PeerIPAddress);
+end;
+
+function TROBPDXTCPTransport.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+{ TROBPDXTCPServer }
+
+procedure TROBPDXTCPServer.Assign(Source: TPersistent);
+var
+  lSource: TROBPDXTCPServer;
+begin
+  inherited;
+  if Source is TROBPDXTCPServer then begin
+    lSource := TROBPDXTCPServer(Source);
+
+    BPDXServer.Assign(lSource.BPDXServer);
+    BindIP := lSource.BindIP;
+  end;
+end;
+
+constructor TROBPDXTCPServer.Create(aComponent: TComponent);
+begin
+  inherited;
+
+  fBPDXServer := CreateBPDXServer;
+  fBPDXServer.Name := 'InternalBPDXServer';
+  {$IFDEF DELPHI6UP}
+  fBPDXServer.SetSubComponent(True);
+  {$ENDIF}
+end;
+
+function TROBPDXTCPServer.CreateBPDXServer: TDXServerCore;
+begin
+  //DXSock.TDXXferTimeout := 100;
+  result:=TDXServerCore.Create(Self);
+  result.ServerPort:=8090;
+  result.BindTo:=''; // blank = ALL IP's!
+  result.ThreadCacheSize := 10;
+  result.OnNewConnect:=InternalOnNewConnect; // accept new connections
+
+  // Optimized settings
+  {$IFDEF MSWINDOWS}
+  result.ListenerThreadPriority := tpIdle;
+  result.SocketOutputBufferSize := bsfNormal;
+  result.SpawnedThreadPriority := tpIdle;
+  {$ENDIF}
+  result.UseThreadPool := FALSE;
+end;
+
+destructor TROBPDXTCPServer.Destroy;
+begin
+  fBPDXServer.Stop; // terminate all sessions!
+  fBPDXServer.Free;
+
+  inherited;
+end;
+
+procedure TROBPDXTCPServer.InternalOnNewConnect(
+  ClientThread: TDXClientThread);
+var req:TMemoryStream;
+    resp:TMemoryStream;
+    transport : IROTCPTransport;
+begin
+  req:=TMemoryStream.Create;
+  resp:=TMemoryStream.Create;
+  try
+    ClientThread.Socket.SetNagle(true);
+    // this is the same as INDY, will read a stream for the 4 byte length header
+    // or fatal socket error
+    // or time out of 120,000ms (2 minutes).
+    ClientThread.Socket.SaveToStreamWithSize(req,120000);
+
+    //If ClientThread.Socket.DroppedConnection then Exit; BIG BOTTLENECK!
+
+    transport := TROBPDXTCPTransport.Create(ClientThread);
+    req.Position := 0;
+    DispatchMessage(transport, req, resp);
+    //ProcessMessage(MessageIntf, transport, req, resp);
+
+    resp.Seek(0,0); // A MUST!
+    
+    ClientThread.Socket.WriteInteger(resp.Size);
+    ClientThread.Socket.Write(resp.Memory, resp.Size);
+  finally
+    resp.Free;
+    req.Free;
+  end;
+end;
+
+function TROBPDXTCPServer.IntGetActive: boolean;
+begin
+  result := fBPDXServer.IsActive and not fBPDXServer.Suspend
+end;
+
+procedure TROBPDXTCPServer.IntSetActive(const Value: boolean);
+begin
+  if Value then begin
+    if not fBPDXServer.IsActive then fBPDXServer.Start
+    else if fBPDXServer.Suspend then fBPDXServer.Resume;
+  end
+  else fBPDXServer.Pause
+end;
+
+procedure TROBPDXTCPServer.SetBindIP(const Value: Ansistring);
+begin
+  BPDXServer.BindTo := Value;
+end;
+
+procedure TROBPDXTCPServer.SetPort(const Value:integer);
+begin
+  BPDXServer.ServerPort := Value;
+end;
+
+function TROBPDXTCPServer.GetBindIP: Ansistring;
+begin
+  Result := BPDXServer.BindTo;
+end;
+
+function TROBPDXTCPServer.GetPort: integer;
+begin
+  Result := BPDXServer.ServerPort;
+  while (Result = 0) and Assigned(BPDXServer.Socket) and Active do
+    Result := BPDXServer.Socket.LocalPort;
+end;
+
+function TROBPDXTCPServer.GetServerType: TROServerType;
+begin
+  Result := rstTCP;
+end;
+
+initialization
+  RegisterServerClass(TROBPDXTCPServer);
+finalization
+  UnregisterServerClass(TROBPDXTCPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBaseSuperHttpChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBaseSuperHttpChannel.pas
new file mode 100644
index 0000000..07a5ee0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBaseSuperHttpChannel.pas	
@@ -0,0 +1,706 @@
+unit uROBaseSuperHttpChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Classes, SysUtils, uROClient, uROClientIntf, uROAsync, uROClasses, SyncObjs,
+  {$IFDEF RemObjects_UseEncryption} uRoEncryption, {$ENDIF}uROThreadPool;
+
+type
+  TDynByteArray = array of byte;
+  TROHTTPWaitingRequest = class
+  private
+    fEvent: TROEvent;
+    fFreeEvent: Boolean;
+    fId: Integer;
+    fResultData: TDynByteArray;
+    fResultErrorCode: Integer;
+  public
+    property Id: Integer read fId;
+    property Event: TROEvent read fEvent;
+    property Resultdata: TDynByteArray read fResultData write fResultData;
+    property ResultErrorCode: Integer read fResultErrorCode write fResultErrorCode;
+
+    constructor Create(Id: Integer); overload;
+    constructor Create(Id: Integer; Ev: TROEvent); overload;
+    destructor Destroy; override;
+  end;
+  EROSuperHTTPChannelException = class(EROException);
+  TROOnInvalidClientIdHandler = procedure(Sender: TObject; var aReconnect: Boolean) of object;
+  TROBaseSuperHTTPChannel = class(TROTransportChannel, IROTransport,
+    IROActiveEventChannel, IROMultiThreadAwareChannel,
+    IROAsyncTransportChannel, IROActiveAsyncTransportChannel, IROTransportChannelEx, IROHTTPTransport)
+  private
+    fConnectWait: TROEvent;
+    fActive, fConnected: Boolean;
+    fSessionId, fConnectionId: TGuid;
+    fRemoteMaxPackageSize,
+    fMaxPackageSize: Integer;
+    fWaitingRequest: TThreadList;
+    fPackageCounter: Integer;
+    fOwnsThreadPool: Boolean;
+    fEventThreadPool: TROThreadPool;
+    fDispatchLock: TCriticalSection;
+    fWaitingThread: TThread;
+    fEventReceiver: IROEventReceiver;
+    fRequestTimeout: Integer;
+    fConnectTimeout: Integer;
+    fHTTPRequestTimeout: Integer;
+    fOnInvalidClientID: TROOnInvalidClientIdHandler;
+    procedure SetActive(const Value: Boolean);
+    procedure ProcessEvent(aId: Integer; aData: TDynByteArray);
+    procedure SetEventThreadPool(const Value: TROThreadPool);
+    function GetEventThreadPool: TROThreadPool;
+  protected
+  { IROTransport }
+    function GetTransportObject : TObject; override;
+  { IROHTTPTransport }
+    function GetClientAddress : string; virtual; abstract;
+    procedure SetHeaders(const aName, aValue : string); virtual; abstract;
+    function GetHeaders(const aName : string) : string; virtual; abstract;
+    function GetContentType : string; virtual; abstract;
+    procedure SetContentType(const aValue : string); virtual; abstract;
+    function GetUserAgent : string; virtual; abstract;
+    procedure SetUserAgent(const aValue : string); virtual; abstract;
+    function GetTargetURL : string; virtual; abstract;
+    procedure SetTargetURL(const aValue : string); virtual; abstract;
+    procedure SetPathInfo (const aValue : string); virtual; abstract;
+    function GetPathInfo : string; virtual; abstract;
+    function GetQueryString : string; virtual; abstract;
+    function GetLocation : string; virtual; abstract;
+    function GetQueryParameter(const aName: string): string; virtual; abstract;
+  protected
+    procedure IntDispatch(aRequest: TStream; aResponse: TStream); override;
+    function CheckStatus(const iMessageID: String): Boolean;
+    procedure RetrieveResponse(const iMessageID: String;
+      aResponse: TStream);
+    procedure BeforeDispatch(aMessage: IROMessage); override;
+    procedure RegisterEventReceiver(aReceiver: IROEventReceiver);
+    procedure UnregisterEventReceiver(aReceiver: IROEventReceiver);
+    function InvokeRequest(aRequest:TStream; iGetResponse:boolean=true):string; overload;
+    function InvokeRequest(aRequest:TStream; aGetResponse:boolean=true; aEvent: TROEvent=nil):string; overload;
+
+    procedure CancelRequest(aWaitingThread: Boolean); virtual; abstract;
+    procedure DispatchHTTPRequest(aWaitingThread: Boolean; aRequest: TDynByteArray; out aResponse: TDynByteArray); virtual; abstract;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(aSource : TPersistent); override;
+    property EventThreadPool :TROThreadPool read GetEventThreadPool write SetEventThreadPool;
+    property ConnectionId: TGUID read fConnectionId write fConnectionId;
+    {$IFDEF FPC}
+    property SessionId: TGuid read fSessionId write fSessionId;
+    {$ENDIF FPC}
+    property Connected: Boolean read fConnected;
+  published
+    property OnInvalidCientID: TROOnInvalidClientIdHandler read fOnInvalidClientID write fOnInvalidClientID;
+    property OnInvalidClientID: TROOnInvalidClientIdHandler read fOnInvalidClientID write fOnInvalidClientID;
+    // from TROBaseSuperHTTPChannel
+    {$IFNDEF FPC}
+    property SessionId: TGuid read fSessionId write fSessionId;
+    {$ENDIF}
+    property Active: Boolean read fActive write SetActive;
+    property MaxPackageSize: Integer read fMaxPackageSize write fMaxPackageSize default 10*1024 * 1024;
+    property RequestTimeout: Integer read fRequestTimeout write fRequestTimeout default 60000;
+    property ConnectTimeout: Integer read fConnectTimeout write fConnectTimeout default 10000;
+    property HTTPRequestTimeout: Integer read fHTTPRequestTimeout write fHTTPRequestTimeout default 10000;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    //property OnAfterProbingServer;
+    //property OnAfterProbingServers;
+    //property OnBeforeProbingServer;
+    //property OnBeforeProbingServers;
+    //property OnLoginNeeded;
+    //property OnProgress;
+    //property OnReceiveStream;
+    //property OnSendStream;
+    property OnServerLocatorAssignment;
+    //property ProbeFrequency;
+    //property ProbeServers;
+    property ServerLocators;
+    //property SynchronizedProbing;
+  end;
+
+const
+  ShHello = 0;
+  ShGoodbye = 1;
+  ShPackage = 2;
+  ShError = 3;
+  ShError_InvalidClientId = 0;
+  ShError_QueueFull = 1;
+  ShError_UnknownOption = 2;
+  ShOptions = 4;
+  ShAsyncWait = 5;
+implementation
+
+// uses Math;
+
+type
+  TROSuperHTTPThread = class(TROInitializedThread)
+  private
+    fOwner: TROBaseSuperHTTPChannel;
+  public
+    constructor Create(aOwner: TROBaseSuperHTTPChannel);
+    procedure Execute; override;
+  end;
+
+{ TROHTTPWaitingRequest }
+
+constructor TROHTTPWaitingRequest.Create(Id: Integer);
+begin
+  fId := Id;
+  fEvent := TROEvent.Create(nil, true, false, '');
+  fFreeEvent := true;
+end;
+
+constructor TROHTTPWaitingRequest.Create(Id: Integer; Ev: TROEvent);
+begin
+  fEvent := Ev;
+  if Fevent = nil then begin
+    fEvent := TROEvent.Create(nil, true, false, '');
+    fFreeEvent := true;
+  end;
+  fId := Id;
+end;
+
+destructor TROHTTPWaitingRequest.Destroy;
+begin
+  if fFreeEvent then fEvent.Free;
+  inherited;
+end;
+
+{ TROBaseSuperHTTPChannel }
+
+procedure TROBaseSuperHTTPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROBaseSuperHTTPChannel;
+begin
+  inherited;
+  if aSource is TROBaseSuperHTTPChannel then begin
+    lSource := TROBaseSuperHTTPChannel(aSource);
+    Active := False;
+    ConnectTimeout := lSource.ConnectTimeout;
+    HTTPRequestTimeout := lSource.HTTPRequestTimeout;
+    MaxPackageSize := lSource.MaxPackageSize;
+    OnInvalidClientID := lSource.OnInvalidClientID;
+    RequestTimeout := lSource.RequestTimeout;
+    SessionId := lSource.SessionId;
+    Active := lSource.Active;
+  end;
+end;
+
+procedure TROBaseSuperHTTPChannel.BeforeDispatch(aMessage: IROMessage);
+begin
+  if not fConnected then begin
+    Active := true;
+    if (fConnectWait.WaitFor(fConnectTimeout) <> wrSignaled) or not fConnected then begin
+      Active:=False;
+      raise EROSuperHTTPChannelException.Create('Timeout connecting');
+    end;  
+  end;
+  if aMessage <> nil then 
+    aMessage.ClientID := fSessionId;
+  inherited;
+end;
+
+constructor TROBaseSuperHTTPChannel.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+  fMaxPackageSize := 10 * 1024 * 1024;
+  fRequestTimeout := 60000;
+  fConnectTimeout := 10000;
+  fHTTPRequestTimeout := 10000;
+  fConnectWait := TROEvent.Create(nil, true, false, '');
+  fWaitingRequest := TThreadList.Create;
+  ThreadSafe := true;
+  fDispatchLock := TCriticalSection.Create;
+end;
+
+destructor TROBaseSuperHTTPChannel.Destroy;
+var
+  i: Integer;
+  lList: TList;
+begin
+  if fOwnsThreadPool then fEventThreadPool.Free;
+  Active := False;
+  fConnectWait.Free;
+  lList := fWaitingRequest.LockList;
+  try
+    for i := 0 to lList.Count -1 do begin
+      TROHTTPWaitingRequest(lList[i]).Free;
+    end;
+  finally
+    fWaitingRequest.UnlockList;
+  end;
+  fWaitingRequest.Free;
+  fDispatchLock.Free;
+  inherited;
+end;
+
+procedure TROBaseSuperHTTPChannel.IntDispatch(aRequest,
+  aResponse: TStream);
+var
+  lRequest, lResponse: TDynByteArray;
+  lList:TList;
+  lId: Integer;
+  lReq: TROHTTPWaitingRequest;
+begin
+  if aRequest.Size > fRemoteMaxPackageSize then raise EROSuperHTTPChannelException.Create('Package too large');
+  SetLength(lRequest, 16 + 1 + 4 + aRequest.Size);
+  aRequest.Position := 0;
+
+  Move(fConnectionId, lRequest[0], 16);
+  lRequest[16] := ShPackage;
+  aRequest.Read(lRequest[21], aRequest.Size);
+  lList := fWaitingRequest.LockList;
+  try
+    inc(fPackageCounter);
+    if fPackageCounter < 0 then fPackageCounter := 1;
+    lId := fPackageCounter;
+    lReq := TROHTTPWaitingRequest.Create(lId);
+    lList.Add(lReq);
+  finally
+    fWaitingRequest.UnlockList;
+  end;
+  try
+    lRequest[17] := lId;
+    lRequest[18] := lId shr 8;
+    lRequest[19] := lId shr 16;
+    lRequest[20] := lId shr 24;
+    fDispatchLock.Enter;
+    try
+      DispatchHTTPRequest(false, lRequest, lResponse);
+      if Length(lResponse) >= 6 then begin
+        if lResponse[0] = shError then begin
+          case lResponse[5] of
+            ShError_InvalidClientId: raise EROSuperHTTPChannelException.Create('Invalid client id');
+            ShError_QueueFull: raise EROSuperHTTPChannelException.Create('Queue full');
+          else
+            raise EROSuperHTTPChannelException.Create('Unknown error');
+          end;
+        end;
+      end;
+    finally
+      fDispatchLock.Release;
+    end;
+    if lReq.Event.WaitFor(fRequestTimeout) <> wrSignaled then
+      raise EROSuperHTTPChannelException.Create('Timeout');
+
+    if Length(lReq.fResultData) <> 0 then begin
+      aResponse.Write(lReq.fResultData[0], length(lReq.fResultData))
+    end else begin
+      case lReq.fResultErrorCode of
+        ShError_InvalidClientId: raise EROSuperHTTPChannelException.Create('Invalid client id');
+        ShError_QueueFull: raise EROSuperHTTPChannelException.Create('Queue full');
+      else
+        raise EROSuperHTTPChannelException.Create('Unknown error');
+      end;
+    end;
+  finally
+    lList := fWaitingRequest.LockList;
+    lList.Remove(lReq);
+    fWaitingRequest.UnlockList;
+    lReq.Free;
+  end;
+end;
+
+procedure TROBaseSuperHTTPChannel.SetActive(const Value: Boolean);
+begin
+  if fActive = Value then exit;
+  fActive := Value;
+  if fActive then begin
+    GetEventThreadPool;
+    fConnectWait.ResetEvent;
+    if fWaitingThread <> nil then fWaitingThread.Free;
+    fWaitingThread := TROSuperHTTPThread.Create(self);
+  end else begin
+    fWaitingThread.Terminate;
+    CancelRequest(true);
+    fWaitingThread.Free;
+    fwaitingThread := nil;
+  end;
+end;
+
+procedure TROBaseSuperHTTPChannel.SetEventThreadPool(
+  const Value: TROThreadPool);
+begin
+  if fOwnsThreadPool and (fEventThreadPool <> nil) then fEventThreadPool.Free;
+  fEventThreadPool := Value;
+  fOwnsThreadPool := false;
+end;
+
+procedure TROBaseSuperHTTPChannel.RegisterEventReceiver(
+  aReceiver: IROEventReceiver);
+begin
+  fEventReceiver := aReceiver;
+end;
+
+procedure TROBaseSuperHTTPChannel.UnregisterEventReceiver(
+  aReceiver: IROEventReceiver);
+begin
+  if fEventReceiver = aReceiver then fEventReceiver := nil;
+end;
+
+
+function FindWaitingRequest(aList: TList; aId: Integer): TROHTTPWaitingRequest;
+var
+  i: Integer;
+begin
+  for i := aList.count -1 downto 0 do begin
+    result := TROHTTPWaitingRequest(aList[i]);
+    if result.fId = aId then exit;
+  end;
+  result := nil;
+end;
+
+function TROBaseSuperHTTPChannel.CheckStatus(
+  const iMessageID: String): Boolean;
+var
+  lList: TList;
+  wr: TROHTTPWaitingRequest;
+begin
+  lList := fWaitingRequest.LockList;
+  try
+    wr := FindWaitingRequest(lList, StrToInt(iMessageId));
+    if wr = nil then
+      result := true
+    else
+      result := (Length(wr.Resultdata) <> 0) or (wr.ResultErrorCode <> 0);
+  finally
+    fWaitingRequest.UnlockList;
+  end;
+end;
+
+procedure TROBaseSuperHTTPChannel.RetrieveResponse(
+  const iMessageID: String; aResponse: TStream);
+
+  procedure WriteDataToStream(wr: TROHTTPWaitingRequest;AStream: TStream);
+  begin
+    AStream.Write(wr.fresultData[0], Length(wr.fresultData));
+    AStream.Position := 0;
+  end;
+
+var
+  lList: TList;
+  wr: TROHTTPWaitingRequest;
+begin
+  lList := fWaitingRequest.LockList;
+  try
+    wr := FindWaitingRequest(lList, StrToInt(iMessageId));
+  finally
+    fWaitingRequest.UnlockList;
+  end;
+  if wr = nil then raise EROSuperHTTPChannelException.Create('Invalid request id');
+  try
+    if wr.fEvent.WaitFor(fRequestTimeout) <> wrSignaled then raise EROSuperHTTPChannelException.Create('Timeout');
+    if Length(wr.fResultData) > 0 then begin
+      WriteDataToStream(wr,aResponse);
+      aResponse.Position := 0;
+      {$IFDEF RemObjects_UseEncryption}
+      if Encryption.EncryptionMethod <> tetNone then DoDecryption2(aResponse);
+      {$ENDIF}
+    end else begin
+      case wr.fResultErrorCode of
+        ShError_InvalidClientId: raise EROSuperHTTPChannelException.Create('Invalid client id');
+        ShError_QueueFull: raise EROSuperHTTPChannelException.Create('Queue full');
+      else
+        raise EROSuperHTTPChannelException.Create('Unknown error');
+      end;
+    end;
+  finally
+    lList := fWaitingRequest.LockList;
+    try
+      lList.Remove(wr);
+      wr.Free;
+    finally
+      fWaitingRequest.UnlockList;
+    end;
+  end;
+
+end;
+
+function TROBaseSuperHTTPChannel.InvokeRequest(aRequest: TStream;
+  iGetResponse: boolean): string;
+begin
+  result := InvokeRequest(aRequest, iGetResponse, nil);
+end;
+
+function TROBaseSuperHTTPChannel.InvokeRequest(aRequest: TStream;
+  aGetResponse: boolean; aEvent: TROEvent): string;
+var
+  lRequest, lResponse: TDynByteArray;
+  lList:TList;
+  lId: Integer;
+  lReq: TROHTTPWaitingRequest;
+begin
+  try
+    {$IFDEF RemObjects_UseEncryption}
+    if Encryption.EncryptionMethod <> tetNone then DoEncryption2(aRequest);
+    {$ENDIF}
+    if aRequest.Size > fRemoteMaxPackageSize then raise EROSuperHTTPChannelException.Create('Package too large');
+    SetLength(lRequest, 16 + 1 + 4 + aRequest.Size);
+    {$IFDEF FPC}
+    if aEvent = nil then aRequest.Position := 0 else // for preventing warning in FPC
+    {$ENDIF}
+    aRequest.Position := 0;
+
+    Move(fConnectionId, lRequest[0], 16);
+    lRequest[16] := ShPackage;
+    aRequest.Read(lRequest[21], aRequest.Size);
+    lList := fWaitingRequest.LockList;
+    try
+      inc(fPackageCounter);
+      if fPackageCounter < 0 then fPackageCounter := 1;
+      lId := fPackageCounter;
+      if aGetResponse then begin
+        lReq := TROHTTPWaitingRequest.Create(lId);
+        lList.Add(lReq);
+      end else
+        lReq := nil;
+    finally
+      fWaitingRequest.UnlockList;
+    end;
+    try
+      lRequest[17] := lId;
+      lRequest[18] := lId shr 8;
+      lRequest[19] := lId shr 16;
+      lRequest[20] := lId shr 24;
+      fDispatchLock.Enter;
+      try
+        DispatchHTTPRequest(false, lRequest, lResponse);
+        if Length(lResponse) >= 6 then begin
+          if lResponse[0] = shError then begin
+            case lResponse[5] of
+              ShError_InvalidClientId: raise EROSuperHTTPChannelException.Create('Invalid client id');
+              ShError_QueueFull: raise EROSuperHTTPChannelException.Create('Queue full');
+            else
+              raise EROSuperHTTPChannelException.Create('Unknown error');
+            end;
+          end;
+        end;
+      finally
+        fDispatchLock.Release;
+      end;
+      result := inttostr(lId);
+    except
+      lList := fWaitingRequest.LockList;
+      lList.Remove(lReq);
+      fWaitingRequest.UnlockList;
+      lReq.Free;
+      raise;
+    end;
+  finally
+    aRequest.Free;
+  end;
+end;
+
+type
+  TROSuperEventCallback = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fData: TDynByteArray;
+    fOwner: TROBaseSuperHTTPChannel;
+  public
+    procedure Callback(Caller: TROThreadPool; aThread: TThread);
+  end;
+
+procedure TROBaseSuperHTTPChannel.ProcessEvent(aId: Integer;
+  aData: TDynByteArray);
+var
+  lCb: TROSuperEventCallback;
+begin
+  {$IFDEF FPC}
+  if aID = 0 then lCb := TROSuperEventCallback.Create else // for preventing warning in FPC
+  {$ENDIF}
+  lCb := TROSuperEventCallback.Create;
+  lCb.fOwner := self;
+  lCb.fData := aData;
+  fEventThreadPool.QueueItem(lCb);
+end;
+
+function TROBaseSuperHTTPChannel.GetEventThreadPool: TROThreadPool;
+begin
+  if fEventThreadPool = nil then begin
+    fOwnsThreadPool := true;
+    fEventThreadPool := TROThreadPool.Create(nil);
+  end;
+  Result := fEventThreadPool;
+end;
+
+function TROBaseSuperHTTPChannel.GetTransportObject: TObject;
+begin
+  Result := Self;
+end;
+
+{ TROSuperHTTPThread }
+
+constructor TROSuperHTTPThread.Create(aOwner: TROBaseSuperHTTPChannel);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+  fOwner := aOwner;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+procedure TROSuperHTTPThread.Execute;
+var
+  lRequest,
+  lTmpData,
+  lResponse: TDynByteArray;
+  lList: TList;
+  lPackageId: Integer;
+  wr: TROHTTPWaitingRequest;
+  lReconnect: Boolean;
+begin
+  lReconnect := True;
+  while lReconnect do begin
+    lReconnect := false;
+    try
+      if IsEqualGuid(fOwner.fConnectionId, Emptyguid) then fOwner.fConnectionId := NewGuid;
+      SetLength(lRequest, 16 + 1 +8 + 4 + 16);
+      Move(fOwner.fConnectionId, lRequest[0], 16);
+      lRequest[16] := shHello;
+      lRequest[17] := ord('R');
+      lRequest[18] := ord('O');
+      lRequest[19] := ord('S');
+      lRequest[20] := ord('H');
+      lRequest[21] := ord('1');
+      lRequest[22] := ord('0');
+      lRequest[23] := ord('0');
+      lRequest[24] := ord('0');
+      lRequest[25] := fOwner.fMaxPackageSize;
+      lRequest[26] := fOwner.fMaxPackageSize shr 8;
+      lRequest[27] := fOwner.fMaxPackageSize shr 16;
+      lRequest[28] := fOwner.fMaxPackageSize shr 16;
+      Move(fOwner.fSessionId, lRequest[29], 16);
+      fOwner.fDispatchLock.Enter;
+      try
+        fOwner.DispatchHTTPRequest(false, lRequest, lResponse);
+      finally
+        fOwner.fDispatchLock.Leave;
+      end;
+      if Length(lResponse) <> (16 + 8 + 4) then
+        raise EROSuperHTTPChannelException.Create('Invalid response from server for connection initiation command');
+
+      if (lResponse[0] <> ord('R')) or (lResponse[1] <> ord('O')) or (lResponse[2] <> ord('S')) or (lResponse[3] <> ord('H')) then
+        raise EROSuperHTTPChannelException.Create('Invalid response from server for connection initiation command');
+      fOwner.fRemoteMaxPackageSize := Integer(lResponse[8]) or (Integer(lResponse[9]) shl 8)
+       or (Integer(lResponse[10]) shl 16) or (Integer(lResponse[11]) shl 24);
+      move(lResponse[12], fOwner.fSessionId, 16);
+      fOwner.fConnected := true;
+      fOwner.fConnectWait.SetEvent;
+      SetLength(lRequest, 17);
+      move(fOwner.fConnectionId, lRequest[0], 16);
+      lRequest[16] := ShAsyncWait;
+      while not Terminated do begin
+        try
+          fOwner.DispatchHTTPRequest(true, lRequest, lResponse);
+        except
+          Continue;
+        end;
+        if Length(lResponse) <> 0 then begin
+          case lResponse[0] of
+            ShError: begin
+              if Length(lResponse) < 5 then continue;
+              if lResponse[5] = ShError_InvalidClientId then begin // means we've got disconnected
+                if assigned(fOwner.fOnInvalidClientID) then
+                  fOwner.fOnInvalidClientID(fOwner, lReconnect);
+                break;
+              end;
+              lPackageId := Integer(lResponse[1]) or (Integer(lResponse[2]) shl 8)
+              or (Integer(lResponse[3]) shl 16) or (Integer(lResponse[4]) shl 24);
+              lList := fOwner.fWaitingRequest.LockList;
+              try
+                wr := FindWaitingRequest(lList, lPackageId);
+                if wr <> nil then begin
+                 wr.fResultErrorCode := lResponse[4];
+                 wr.fEvent.SetEvent;
+                end;
+              finally
+                fOwner.fWaitingRequest.UnlockList;
+              end;
+            end;
+            shPackage: begin
+              if Length(lResponse) < 5 then continue;
+              lPackageId := Integer(lResponse[1]) or (Integer(lResponse[2]) shl 8)
+              or (Integer(lResponse[3]) shl 16) or (Integer(lResponse[4]) shl 24);
+              setLength(lTmpData, Length(lResponse) -5);
+              Move(lResponse[5], lTmpData[0], Length(lTmpData));
+              if lPackageId < 0 then
+                fOwner.ProcessEvent(lPackageId, lTmpData)
+              else begin
+                lList := fOwner.fWaitingRequest.LockList;
+                try
+                  wr := FindWaitingRequest(lList, lPackageId);
+                  if wr <> nil then begin
+                   wr.fResultData := lTmpData;
+                   wr.fEvent.SetEvent;
+                  end;
+                finally
+                  fOwner.fWaitingRequest.UnlockList;
+                end;
+              end;
+            end;
+          end;
+        end;
+      end;
+      lRequest[16] := shGoodbye;
+      fOwner.fDispatchLock.Enter;
+      try
+        fOwner.DispatchHTTPRequest(false, lRequest, lResponse);
+      finally
+        fOwner.fDispatchLock.Leave;
+        if not lReconnect then fOwner.fConnected :=False;
+      end;
+    except
+      // cannot let exceptions escape here
+    end;
+  end;
+end;
+
+{ TROSuperEventCallback }
+
+procedure TROSuperEventCallback.Callback(Caller: TROThreadPool;
+  aThread: TThread);
+var
+  lData: TMemoryStream;
+begin
+  if fOwner.fEventReceiver <> nil then begin
+    lData := TMemoryStream.Create;
+    try
+      lData.Write(fData[0], length(fData));
+      fOwner.DecodeEventStream(lData);
+      {$IFDEF FPC}
+      if Caller <> nil then lData.Position := 0 else // for preventing warning in FPC
+      {$ENDIF}
+      lData.Position := 0;
+      fOwner.fEventReceiver.Dispatch(lData, aThread);
+    finally
+       lData.Free;
+    end;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBaseSuperHttpServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBaseSuperHttpServer.pas
new file mode 100644
index 0000000..3aea39a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBaseSuperHttpServer.pas	
@@ -0,0 +1,1286 @@
+unit uROBaseSuperHttpServer;
+
+interface
+
+{$I RemObjects.inc}
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  SysUtils, Classes, uROClientIntf, uROServer, uROServerIntf, uROClasses,
+  uIPHttpHeaders, uROThreadPool, uROClient, uROEventRepository,
+  uROHtmlServerInfo, uRODL, uROHTTPDispatch, uROTypes, uROSessions;
+
+type
+  TROSuperHTTPWaitingConnection = class(TObject)
+  private
+    fChannel: IUnknown;
+    fTimeout: TDateTime;
+  public
+    constructor Create(aChannel: IUnknown);
+    property Timeout: TDateTime read fTimeout;
+    property Channel: IUnknown read fChannel;
+  end;
+  TROBaseSuperHTTPServer = class;
+  TROSuperHTTPServerConnection = class;
+  IROSuperHTTPServerConnection = interface
+    ['{48AF124A-38F5-43A4-BD82-684A74EDF77F}']
+    function GetSelf: TROSuperHTTPServerConnection;
+    function GetGuid: TGuid;
+    function GuidMatches(const aGuid: TGuid): Boolean;
+
+    procedure DisposeData;
+  end;
+  TROSuperHTTPServerConnection = class(TInterfacedObject, IROSuperHTTPServerConnection, IROActiveEventServer)
+  private
+    fServer: TROBaseSuperHTTPServer;
+    fLastTalk: TDateTime;
+    fRemoteMaxPackageLength: Integer;
+    fConnectionId: TGuid;
+    fSessionId: TGuid;
+    fResponseQueue: TInterfaceList;
+    fWaitingConnections: TThreadList;
+    fEventId: Integer;
+  protected
+    function GetSelf: TROSuperHTTPServerConnection;
+  public
+    constructor Create(aServer: TROBaseSuperHTTPServer);
+    destructor Destroy; override;
+
+    procedure DisposeData;
+
+    function GetGuid: TGuid;
+    function GuidMatches(const aGuid: TGuid): Boolean;
+
+    property Server: TROBaseSuperHTTPServer read fServer;
+    property LastTalk: TDateTime read fLastTalk write fLastTalk;
+    property ResponseQueue: TInterfaceList read fResponseQueue;
+    property WaitingConnections: TThreadList read fWaitingConnections;
+    property RemoteMaxPackageLength: Integer read fRemoteMaxPackageLength write fRemoteMaxPackageLength;
+    property ConnectionId: TGuid read fConnectionId write fConnectionId;
+    property SessionId: TGUID read fSessionId write fSessionId;
+    procedure EventsRegistered(aSender: TObject; aClient: TGUID);
+    procedure DispatchEvent(anEventDataItem: TROEventData;
+      aSessionReference: TGUID; aSender: TObject);
+  end;
+
+  TROSuperHTTPServerResponse = class;
+  IROSuperHTTPServerResponse = interface
+    ['{9C33C4C2-F6AA-452C-9E67-F49F75F292F2}']
+    function GetSelf: TROSuperHTTPServerResponse;
+  end;
+  TROSuperHTTPServerResponse = class(TInterfacedObject, IROSuperHTTPServerResponse)
+  private
+    fHeaders: TIPHTTPResponseHeaders;
+    fData: TDynamicByteArray;
+    fConnection: IROSuperHTTPServerConnection;
+    fAttempt: Integer;
+    function GetSelf: TROSuperHTTPServerResponse;
+  public
+    constructor Create(aConn: IROSuperHTTPServerConnection; aHeaders: TIPHTTPResponseHeaders);
+    destructor Destroy; override;
+
+    property Headers: TIPHTTPResponseHeaders read fHeaders;
+    property Data: TDynamicByteArray read fData write fData;
+    property Connection: IROSuperHTTPServerConnection read fConnection write fConnection;
+    property Attempt: Integer read fAttempt write fAttempt;
+  end;
+  TROBaseSuperHTTPServer = class(TROServer)
+  private
+    fTimer: TROThreadTimer;
+    fThreadPool: TROThreadPool;
+    fOwnsThreadPool: boolean;
+    fMaxPackageSize: Integer;
+    fConnections: TInterfaceList;
+    fServeRodl,
+    fServeInfoPage: Boolean;
+    fActive: Boolean;
+    fEventRepository: TROEventRepository;
+    fConnectionTimeout: Integer;
+    fAutoRegisterSession: Boolean;
+
+    function GetConnection(const aGuid: TGuid): IROSuperHTTPServerConnection;
+    procedure KillConnection(aConnection: IROSuperHTTPServerConnection);
+    procedure SendError(aTarget: IUnknown; anError: Ansistring);
+    procedure IncomingData(aTarget: IUnknown; aRequestHeaders: TIPHTTPRequestHeaders; aData: TDynamicByteArray; aDispatcher: TROMessageDispatcher);
+    procedure SendRodl(ATarget: IUnknown; aRequest: TIPHTTPRequestHeaders; aDispatcher: TROMessageDispatcher; const aTargetService: string);
+    procedure AddWaitingRequest(aTarget: IUnknown; aConnection: IROSuperHTTPServerConnection);
+    procedure ProcessPackage(aTarget: IROSuperHTTPServerConnection; aHeaders: TIPHTTPRequestHeaders; aMessageDispatcher: TROMessageDispatcher; aId: Integer; aData: TDynamicByteArray);
+    procedure SendAsyncResponse(aTarget: IROSuperHTTPServerConnection; lHeaders: TIPHTTPResponseHeaders; aData: TDynamicByteArray);
+    procedure SetThreadPool(const Value: TROThreadPool);
+    procedure cbCleanup(CurrentTickCount : Cardinal);
+  protected
+
+    procedure CloseConnection(aConnection: IUnknown); virtual; abstract;
+    procedure SendResponse(aTarget: IUnknown; aHeaders: TIPHTTPResponseHeaders; aData: TDynamicByteArray; UserData: IInterface); virtual; abstract;
+    function HandleUnknownRequest(aTarget: IUnknown; arequest: TIPHTTPRequestHeaders; aData: TDynamicByteArray): Boolean; virtual; abstract;
+    procedure SetDefaultHeaders(aTarget: IUnknown; aHeaders: TIPHTTPResponseHeaders); virtual; abstract;
+
+    procedure HandleRequest(aTarget: IUnknown; aRequestHeaders: TIPHTTPRequestHeaders; aRequest: TDynamicByteArray);
+    procedure ResponseFailed(aUserData: IInterface);
+    procedure ResponseSucessful(aUserData: IInterface);
+
+    procedure DoActivate; virtual;
+    procedure DoDeactivate; virtual;
+
+    function IntGetActive: Boolean; override;
+    procedure IntSetActive(const Value: Boolean); override;
+    function GetDispatchersClass : TROMessageDispatchersClass; override;
+    function GetServerType: TROServerType;override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property ServeRodl: Boolean read fServeRodl write fServeRodl default true;
+    property ServeInfoPage: Boolean read fServeInfoPage write fServeInfoPage default true;
+
+    property MaxPackageSize: Integer read fMaxPackageSize write fMaxPackageSize default 10 * 1024 * 1024;
+    property ConnectionTimeout: Integer read fConnectionTimeout write fConnectionTimeout default 5 * 60;
+    property ThreadPool: TROThreadPool read fThreadPool write SetThreadPool;
+    property EventRepository: TROEventRepository read fEventRepository write fEventRepository;
+    property AutoRegisterSession: Boolean read fAutoRegisterSession write fAutoRegisterSession default true;
+  end;
+
+const
+  ShHello = 0;
+  ShGoodbye = 1;
+  ShPackage = 2;
+  ShError = 3;
+  ShError_InvalidClientId = 0;
+  ShError_QueueFull = 1;
+  ShError_UnknownOption = 2;
+  ShOptions = 4;
+  ShAsyncWait = 5;
+
+
+implementation
+
+{ TROSuperHTTPWaitingConnection }
+
+constructor TROSuperHTTPWaitingConnection.Create(aChannel: IUnknown);
+begin
+  fChannel := aChannel;
+end;
+
+{ TROSuperHTTPServerResponse }
+
+constructor TROSuperHTTPServerResponse.Create(aConn: IROSuperHTTPServerConnection; aHeaders: TIPHTTPResponseHeaders);
+begin
+  inherited Create;
+  fHeaders := aHeaders;
+  if fHeaders = nil then fhEaders := TIPHTTPResponseHeaders.Create;
+  fConnection := aConn;
+end;
+
+destructor TROSuperHTTPServerResponse.Destroy;
+begin
+  fHeaders.Free;
+  inherited Destroy;
+end;
+
+function TROSuperHTTPServerResponse.GetSelf: TROSuperHTTPServerResponse;
+begin
+  result := Self;
+end;
+
+{ TROSuperHTTPServerConnection }
+
+procedure TROSuperHTTPServerConnection.DisposeData;
+var
+  i: Integer;
+  lConn: TROSuperHTTPWaitingConnection;
+  lList: TList;
+begin
+  FreeAndNil(fResponseQueue);
+  lList := fWaitingConnections.LockList;
+  for i := 0 to lList.Count -1 do
+  begin
+    lConn := TROSuperHTTPWaitingConnection(lList[i]);
+    fServer.CloseConnection(lConn.Channel);
+    lConn.Free;
+  end;
+  fWaitingConnections.UnlockList;
+  FreeAndNil(fWaitingConnections);
+end;
+
+constructor TROSuperHTTPServerConnection.Create(
+  aServer: TROBaseSuperHTTPServer);
+begin
+  fServer := aServer;
+  fResponseQueue := TInterfaceList.Create;
+  fWaitingConnections := TThreadList.Create;
+end;
+
+destructor TROSuperHTTPServerConnection.Destroy;
+begin
+  fResponseQueue.Free;
+  fWaitingConnections.Free;
+  inherited;
+end;
+
+function TROSuperHTTPServerConnection.GetSelf: TROSuperHTTPServerConnection;
+begin
+  result := self;
+end;
+
+procedure TROSuperHTTPServerConnection.DispatchEvent(
+  anEventDataItem: TROEventData; aSessionReference: TGUID; aSender: TObject);
+var
+  lId: Integer;
+  lData: TDynamicByteArray;
+  lActive: IROValidatedSessionsChangesListener;
+begin
+  try
+    fResponseQueue.Lock;
+    fEventId := fEventId - 1;
+    if fEventId > 0 then fEventId := -1;
+    lId := fEventId;
+    fResponseQueue.Unlock;
+    Server.EncodeEventStream(anEventDataItem.Data);
+    SetLength(lData, anEventDataItem.Data.size + 5);
+    lData[0] := ShPackage;
+    lData[1] := lId;
+    lData[2] := lId shr 8;
+    lData[3] := lId shr 16;
+    lData[4] := lId shr 24;
+    anEventDataItem.Data.Seek(0, soFromBeginning);
+    anEventDataItem.Data.Read(lData[5], Length(lData) -5);
+    fServer.SendAsyncResponse(self, nil, lData);
+    if (anEventDataItem is TRONamedEventData) and (Supports(aSender, IROValidatedSessionsChangesListener, lActive)) then
+      lActive.EventSucceeded(aSessionReference, TRONamedEventData(anEventDataItem).ID);
+  finally
+    anEventDataItem.RemoveRef;
+  end;
+end;
+
+function TROSuperHTTPServerConnection.GetGuid: TGuid;
+begin
+  result := fConnectionId;
+end;
+
+function TROSuperHTTPServerConnection.GuidMatches(
+  const aGuid: TGuid): Boolean;
+begin
+  result := (fConnectionId.D1 = aGuid.D1) and
+    (fConnectionId.D2 = aGuid.D2) and
+    (fConnectionId.D3 = aGuid.D3) and
+    (fConnectionId.D4[0] = aGuid.D4[0]) and
+    (fConnectionId.D4[1] = aGuid.D4[1]) and
+    (fConnectionId.D4[2] = aGuid.D4[2]) and
+    (fConnectionId.D4[3] = aGuid.D4[3]) and
+    (fConnectionId.D4[4] = aGuid.D4[4]) and
+    (fConnectionId.D4[5] = aGuid.D4[5]) and
+    (fConnectionId.D4[6] = aGuid.D4[6]) and
+    (fConnectionId.D4[7] = aGuid.D4[7]);
+end;
+
+procedure TROSuperHTTPServerConnection.EventsRegistered(aSender: TObject;
+  aClient: TGUID);
+begin
+  // do nothing.
+end;
+
+{ TROBaseSuperHTTPServer }
+
+procedure TROBaseSuperHTTPServer.AddWaitingRequest(aTarget: IUnknown;
+  aConnection: IROSuperHTTPServerConnection);
+var
+  lRealConnection: TROSuperHTTPServerConnection;
+  lResp: IROSuperHTTPServerResponse;
+begin
+  lRealConnection := aConnection.GetSelf;
+  lRealConnection.ResponseQueue.Lock;
+  try
+    if lRealConnection.ResponseQueue.Count > 0 then begin
+      lResp := IROSuperHTTPServerResponse(lRealConnection.ResponseQueue[0]);
+      lRealConnection.ResponseQueue.Delete(0);
+
+      Sendresponse(aTarget, lResp.GetSelf.Headers, lResp.GetSelf.Data, lResp);
+      exit;
+    end;
+  finally
+    lRealConnection.ResponseQueue.Unlock;
+  end;
+  lRealConnection.WaitingConnections.Add(TROSuperHTTPWaitingConnection.Create(aTarget));
+end;
+
+procedure TROBaseSuperHTTPServer.Assign(Source: TPersistent);
+var
+  lSource: TROBaseSuperHTTPServer;
+begin
+  inherited;
+  if Source is TROBaseSuperHTTPServer then begin
+    lSource := TROBaseSuperHTTPServer(Source);
+
+    AutoRegisterSession := lSource.AutoRegisterSession;
+    ConnectionTimeout := lSource.ConnectionTimeout;
+    EventRepository := lSource.EventRepository;
+    MaxPackageSize := lSource.MaxPackageSize;
+    ServeInfoPage := lSource.ServeInfoPage;
+    ServeRodl := lSource.ServeRodl;
+    ThreadPool := lSource.ThreadPool;
+  end;
+end;
+
+procedure TROBaseSuperHTTPServer.cbCleanup(CurrentTickCount: Cardinal);
+var
+  lTimeoutTime, lConnTimeout: TDateTime;
+  i: Integer;
+  lList: TList;
+  lConn: IROSuperHTTPServerConnection;
+begin
+  {$IFDEF FPC}
+  if CurrentTickCount =0 then lTimeoutTime := Now - (90 * (1.0 / (24 * 60 * 60))) else // for preventing warnings in FPC
+  {$ENDIF}
+  lTimeoutTime := Now - (90 * (1.0 / (24 * 60 * 60)));
+  lConnTimeout := Now - (fConnectionTimeout * (1.0 / (24 * 60 * 60)));
+  fConnections.Lock;
+  try
+    for i := fconnections.Count -1 downto 0 do begin
+      lConn := IROSuperHTTPServerconnection(fConnections[i]);
+      if lConn.GetSelf.fLastTalk < lConnTimeout then begin
+        KillConnection(lConn);
+        continue;
+      end;
+
+      lList := lConn.GetSelf.fWaitingConnections.LockList;
+      while lList.Count > 0 do
+      begin
+        if TROSuperHTTPWaitingConnection(lList[0]).Timeout < lTimeoutTime then begin
+          SendResponse(TROSuperHTTPWaitingConnection(lList[0]).fChannel, nil, nil, nil);
+          TROSuperHTTPWaitingConnection(lList[0]).Free;
+          lList.Delete(0);
+        end else break;
+      end;
+      lConn.GetSelf.fWaitingConnections.UnlockList;
+    end;
+  finally
+    fConnections.Unlock;
+  end;
+end;
+
+constructor TROBaseSuperHTTPServer.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+  fMaxPackageSize := 1024 *1024 * 10;
+  fServeRodl := true;
+  fServeInfoPage := true;
+  fConnections := TInterfaceList.Create;
+  fConnectionTimeout := 5 * 60;
+  fAutoRegisterSession := True;
+end;
+
+destructor TROBaseSuperHTTPServer.Destroy;
+var
+  i: Integer;
+begin
+  Active := False;
+  if fTimer <> nil then FreeAndNil(fTimer);
+  if fOwnsThreadPool then FreeAndNil(fThreadPool);
+
+  fConnections.Lock;
+  try
+    for i := fConnections.Count -1 downto 0 do begin
+      IROSuperHTTPServerConnection(fConnections[i]).DisposeData;
+    end;
+  finally
+    fConnections.Unlock;
+  end;
+  fConnections.Free;
+  inherited Destroy;
+end;
+
+procedure TROBaseSuperHTTPServer.DoActivate;
+begin
+  if fTimer <> nil then
+    fTimer.Free;
+  fTimer := TROThreadTimer.Create(cbCleanup, 30000);
+  if fThreadPool = nil then begin
+    fThreadPool := TROThreadPool.Create(self);
+    fOwnsThreadPool := true;
+  end;
+end;
+
+procedure TROBaseSuperHTTPServer.DoDeactivate;
+begin
+  if fTimer <> nil then
+    fTimer.Free;
+  fTimer := nil;
+end;
+
+function TROBaseSuperHTTPServer.GetConnection(
+  const aGuid: TGuid): IROSuperHTTPServerConnection;
+var
+  i: Integer;
+begin
+  fConnections.Lock;
+  try
+    for i := fConnections.Count -1 downto 0 do begin
+      Result := IROSuperHTTPServerConnection(fConnections[i]);
+      if Result.GuidMatches(aGuid) then exit;
+    end;
+  finally
+    fConnections.Unlock;
+  end;
+  result := nil;
+end;
+
+function TROBaseSuperHTTPServer.IntGetActive: Boolean;
+begin
+  result := fActive;
+end;
+
+procedure TROBaseSuperHTTPServer.IntSetActive(const Value: Boolean);
+begin
+  if ComponentState * [csDesigning, csLoading] = [] then begin
+    if fThreadPool = nil then begin
+      fThreadPool := TROThreadPool.Create(nil);
+      fOwnsThreadPool := true;
+    end;
+  end;
+  if fActive <> Value then begin
+    fActive := Value;
+    if value then
+      DoActivate
+    else
+      DoDeactivate;
+  end;
+end;
+
+procedure TROBaseSuperHTTPServer.KillConnection(
+  aConnection: IROSuperHTTPServerConnection);
+var
+  fListener: IROSessionsChangesListener;
+begin
+  fConnections.Remove(aConnection);
+  if Supports(fEventRepository, IROSessionsChangesListener, fListener) then
+    flistener.SessionsChangedNotification(aConnection.GetSelf.SessionId, saRemoveActiveListener, aConnection.GetSelf);
+  aConnection.DisposeData;
+end;
+
+procedure TROBaseSuperHTTPServer.SendError(aTarget: IUnknown;
+  anError: Ansistring);
+var
+  lData: TDynamicByteArray;
+  lHeaders: TIPHTTPResponseHeaders;
+begin
+  anError := '<html><head><title>Internal Server Error</title></head><body><h1>Internal Server Error</h1>'+anError+'</body></html>';
+  lHeaders := TIPHTTPResponseHeaders.Create;
+  try
+    lHeaders.Code := 500;
+    lHeaders.Reason := 'Internal Error';
+    lHeaders.Headers.Values['Content-Type'] := 'text/html';
+    SetLength(lData, Length(anError));
+    Move(anError[1], lData[0], Length(anError));
+    SendResponse(aTarget, lHeaders, lData, nil);
+  finally
+    lHeaders.Free;
+  end;
+end;
+
+procedure TROBaseSuperHTTPServer.SendRodl(ATarget: IUnknown;
+  aRequest: TIPHTTPRequestHeaders; aDispatcher: TROMessageDispatcher;
+  const aTargetService: string);
+var
+  lResponse: TMemoryStream;
+  moduleinfo: IROModuleInfo;
+  aFormat: string;
+  lData: TDynamicByteArray;
+  lHeaders: TIPHTTPResponseHeaders;
+begin
+  {$IFDEF FPC}
+  if (aRequest = nil) or (aTargetService = '') then lResponse := TMemoryStream.Create else // for preventing warnings in FPC
+  {$ENDIF}
+  lResponse := TMemoryStream.Create;
+  try
+    aFormat := 'text/xml';
+    if Supports(aDispatcher, IROModuleInfo, moduleinfo) then
+      moduleinfo.GetModuleInfo(lResponse, nil, aFormat)
+    else
+      GetRodl(lResponse, nil, aformat, GetRODLReader);
+    SetLength(lData, lResponse.Size);
+    lResponse.Seek(0, soFromBeginning);
+    lResponse.Read(lData[0], Length(lData));
+
+  except
+    SendError(aTarget, 'Error retrieving RODL file');
+    exit;
+  end;
+  lHeaders := TIPHTTPResponseHeaders.Create;
+  try
+    SetDefaultHeaders(aTarget, lHeaders);
+    lHeaders.Headers.Values['Content-Type'] := aFormat;
+    SendResponse(ATarget, lHeaders, lData, nil);
+  finally
+    lHeaders.Free;
+  end;
+end;
+
+function SameGuid(const g1, g2: TGuid): Boolean;
+begin
+  result := (g1.D1 = g2.D1) and
+    (g1.D2 = g2.D2) and
+    (g1.D3 = g2.D3) and
+    (g1.D4[0] = g2.D4[0]) and
+    (g1.D4[1] = g2.D4[1]) and
+    (g1.D4[2] = g2.D4[2]) and
+    (g1.D4[3] = g2.D4[3]) and
+    (g1.D4[4] = g2.D4[4]) and
+    (g1.D4[5] = g2.D4[5]) and
+    (g1.D4[6] = g2.D4[6]) and
+    (g1.D4[7] = g2.D4[7]);
+
+end;
+
+procedure TROBaseSuperHTTPServer.IncomingData(aTarget: IUnknown;
+  aRequestHeaders: TIPHTTPRequestHeaders; aData: TDynamicByteArray;
+  aDispatcher: TROMessageDispatcher);
+var
+  lClientId: TGuid;
+  lResp: TDynamicByteArray;
+  lConnection: IROSuperHTTPServerConnection;
+  i: Integer;
+  data, rs: Binary;
+  evd: TROEventData;
+  len: Longint;
+  fl: boolean;
+begin
+  if Length(aData) < 17 then begin
+    SendError(aTarget, 'Invalid Request');
+    exit;
+  end;
+  {$IFDEF FPC}
+  lClientId.D1:=0; // for preventing warnings
+  {$ENDIF}
+  Move(aData[0], lClientId, Sizeof(lClientID));
+  case aData[16] of
+    ShHello:
+      begin
+        if Length(aData) <> (16 { cid:guid } + 1 { cmd } + 8 { hello command } +
+								4 { max package } + 16 { session guid }) then begin
+          SendError(aTarget, 'Invalid Request');
+          exit;
+        end;
+        if (aData[17] <> ord('R')) or (aData[18] <> ord('O')) or (aData[19] <> ord('S')) or
+          (aData[20] <> ord('H')) then begin
+          SendError(aTarget, 'Invalid Request');
+          exit;
+        end;
+        fConnections.Lock;
+        try
+          lConnection := GetConnection(lClientId);
+          if lConnection <> nil then begin
+            SetLength(lResp, 6);
+            lResp[0] := shError;
+            lResp[5] := shError_InvalidClientId;
+            SendResponse(aTarget, nil, lResp, nil);
+            exit;
+          end;
+          lConnection := TROSuperHTTPServerConnection.Create(self);
+          lConnection.GetSelf.ConnectionId := lClientId;
+          lConnection.GetSelf.LastTalk := Now;
+          lConnection.GetSelf.RemoteMaxPackageLength :=
+            aData[25] or
+            (Integer(aData[26]) shl 8) or
+            (Integer(aData[27]) shl 16) or
+            (Integer(aData[28]) shl 24);
+          lConnection.GetSelf.SessionId := TGuid((@aData[29])^);
+          fConnections.Add(lConnection);
+          if SameGuid(lConnection.GetSelf.SessionId, EmptyGUID) then
+            lConnection.GetSelf.SessionId := NewGuid();
+
+          if fEventRepository <> nil then begin
+            if AutoRegisterSession then begin
+              fl := True;
+              fEventRepository.AddSession(lConnection.GetSelf.SessionId, lConnection.GetSelf);
+            end
+            else begin
+              fl := fEventRepository.AddActiveListener(lConnection.GetSelf.SessionId, lConnection.GetSelf);
+            end;
+            if fl then begin
+              rs := Binary.Create;
+              try
+                fEventRepository.GetEventData(lConnection.GetSelf.SessionId, rs);
+                rs.Position := 0;
+                if rs.Read(len, sizeof(len)) <> sizeof(len) then exit;
+                while true do begin
+                  if rs.Read(len, sizeof(len)) <> sizeof(len) then break;
+                  data := Binary.Create;
+                  data.CopyFrom(rs, Len);
+                  data.Position := 0;
+                  evd := TROEventData.Create(data);
+                  try
+                    lConnection.GetSelf.DispatchEvent(evd, lConnection.GetSelf.SessionId, fEventRepository);
+                  finally
+                    data.Free;
+                  end;
+                end;
+              finally
+                rs.Free;
+              end;
+            end;  
+          end;
+        finally
+          fconnections.Unlock;
+        end;
+        SetLength(lResp, 8 + 4 + 16);
+        lResp[0] :=ord('R');
+        lResp[1] := ord('O');
+        lResp[2] := ord('S');
+        lResp[3] :=ord('H');
+        lResp[4] := ord('1');
+        lResp[5] := ord('0');
+        lResp[6] := ord('0');
+        lResp[7] := ord('0');
+        lResp[8] := fMaxPackageSize;
+        lResp[9] := fMaxPackageSize shr 8;
+        lResp[10] := fMaxPackageSize shr 16;
+        lResp[11] := fMaxPackageSize shr 24;
+        Move(lConnection.GetSelf.SessionId, lResp[12], Sizeof(TGuid));
+        SendResponse(aTarget, nil, lResp, nil);
+        exit;
+      end;
+    ShGoodbye:
+      begin
+        lConnection := GetConnection(lClientId);
+        if lConnection = nil then begin
+          SetLength(lResp, 6);
+          lResp[0] := ShError;
+          lResp[5] := ShError_InvalidClientId;
+          SendResponse(aTarget, nil, lResp, nil);
+
+          exit;
+        end;
+        KillConnection(lConnection);
+        SendResponse(aTarget, nil, nil, nil);
+        exit;
+      end;
+    ShPackage:
+      begin
+        lConnection := GetConnection(lClientId);
+        if lConnection = nil then begin
+          SetLength(lResp, 6);
+          lResp[0] := ShError;
+          lResp[5] := ShError_InvalidClientId;
+          SendResponse(aTarget, nil, lResp, nil);
+
+          exit;
+        end;
+
+        lConnection.GetSelf.LastTalk := Now;
+        if Length(aData) < 16 + 1 + 4 then begin
+          SendError(aTarget, 'Invalid Request');
+          exit;
+        end;
+
+        i := aData[17] or (Integer(aData[18]) shl 8)  or (Integer(aData[19]) shl 16)  or (Integer(aData[20]) shl 24);
+        SetLength(lResp, Length(aData)-21);
+        Move(aData[21], lResp[0], Length(lResp));
+        try
+          ProcessPackage(lConnection, aRequestHeaders, aDispatcher, i, lResp);
+        except
+          SetLength(lResp, 6);
+          lResp[0] := ShError;
+          lResp[5] := ShError_QueueFull;
+          lResp[1] := aData[0];
+          lResp[2] := aData[1];
+          lResp[3] := aData[2];
+          lResp[4] := aData[3];
+          SendResponse(aTarget, nil, lResp, nil);
+          exit;
+        end;
+        SendResponse(aTarget, nil, nil, nil);
+        exit;
+      end;
+    ShError:
+      begin
+        SendResponse(aTarget, nil, nil, nil);
+        exit;
+      end;
+    ShOptions:
+      begin
+        lConnection := GetConnection(lClientId);
+        if lConnection = nil then begin
+          SetLength(lResp, 6);
+          lResp[0] := shError;
+          lResp[5] := ShError_InvalidClientId;
+          SendResponse(aTarget, nil, lResp, nil);
+          exit;
+        end
+        else begin
+          SetLength(lResp, 6);
+          lResp[0] := shError;
+          lResp[5] := ShError_InvalidClientId;
+          SendResponse(aTarget, nil, lResp, nil);
+          lConnection.GetSelf.LastTalk := Now;
+          exit;
+        end;
+      end;
+    ShAsyncWait:
+      begin
+        lConnection := GetConnection(lClientId);
+        if lConnection = nil then begin
+          SetLength(lResp, 6);
+          lResp[0] := shError;
+          lResp[5] := ShError_InvalidClientId;
+          SendResponse(aTarget, nil, lResp, nil);
+          exit;
+        end;
+        lConnection.GetSelf.LastTalk := Now;
+
+        AddWaitingRequest(aTarget, lConnection);
+        exit;
+      end;
+    else
+      SendError(aTarget, 'Invalid Request');
+    end;
+end;
+
+procedure TROBaseSuperHTTPServer.HandleRequest(aTarget: IUnknown;
+  aRequestHeaders: TIPHTTPRequestHeaders; aRequest: TDynamicByteArray);
+var
+  lMd: TROMessageDispatcher;
+  lTempStr: TMemoryStream;
+  s: ansistring;
+  lQueryString,
+  lServiceName,
+  lSubPath,
+  lDispatcher: string;
+  lResponseHeaders: TIPHTTPResponseHeaders;
+  lResponse: TDynamicByteArray;
+  lRodl: TRODLLibrary;
+begin
+  try
+    lDispatcher := aRequestHeaders.Path;
+    if Pos('?', lDispatcher) >0 then begin
+      lQueryString := copy(lDispatcher, pos('?', lDispatcher)+1, MaxInt);
+      Delete(lDispatcher, pos('?', lDispatcher), MaxInt);
+    end else
+      lQueryString := '';
+
+    if (lDispatcher <> '') and (lDispatcher[1] = '/') then delete(lDispatcher, 1,1);
+    if pos('/', lDispatcher) > 0 then
+    begin
+      lSubPath := copy(lDispatcher, pos('/', lDispatcher)+1, MaxInt);
+      lDispatcher := '/' + copy(lDispatcher, 1, pos('/', lDispatcher) - 1);
+    end else
+    begin
+      lDispatcher := '/' + lDispatcher;
+      lSubPath := '';
+    end;
+
+    if lQueryString <> '' then begin
+      if copy(lQueryString, 1, 8) = 'service=' then begin
+        lServiceName := copy(lQueryString, 9, MaxInt);
+      end else if pos('&service=', lQueryString) > 0 then begin
+        lServiceName := Copy(lQueryString, pos('&service=', lQueryString)+10, MaxInt);
+      end;
+      if pos('&', lServiceName) >0 then Delete(lServiceName, pos('&', lServiceName), MaxInt);
+    end;
+
+    lMd := TROHTTPMessageDispatchers(Dispatchers).GetDispatcherByPath(lDispatcher) as TROHTTPDispatcher;
+
+    if lmd = nil then begin
+      if HandleUnknownRequest(aTarget, aRequestHeaders, aRequest) then
+      exit
+      else
+      begin
+        if (lDispatcher = '/') and (fServeInfoPage) then begin
+          lResponseHeaders := TIPHTTPResponseHeaders.Create;
+          try
+            SetDefaultHeaders(aTarget, lResponseHeaders);
+            lResponseHeaders.Headers.Values['Content-Type'] := 'text/html; charset=utf-8';
+
+            lrodl := GetRodlLibrary(GetRODLReader);
+            try
+              s := GetRodlServerInfo('', lRodl, Dispatchers);
+            finally
+              lRodl.Free;
+            end;
+            SetLength(lResponse, length(s));
+            Move(s[1], lResponse[0], Length(S));
+            SendResponse(aTarget, lResponseHeaders, lResponse, nil);
+          finally
+            lResponseHeaders.Free;
+          end;
+          exit;
+        end
+        else if (Lowercase(lDispatcher) = '/clientaccesspolicy.xml') then begin
+          lResponseHeaders := TIPHttpResponseHeaders.Create;
+          SetDefaultHeaders(aTarget, lResponseHeaders);
+          s := '<access-policy><cross-domain-access><policy>' +
+            '<allow-from http-request-headers="*"><domain uri="*"/></allow-from><grant-to>' +
+            '<resource path="/" include-subpaths="true"/></grant-to></policy>' +
+            '</cross-domain-access></access-policy>';
+          SetLength(lResponse, length(s));
+          Move(s[1], lResponse[0], Length(S));
+          SendResponse(aTarget, lResponseHeaders, lResponse, nil);
+          lResponseHeaders.Free;
+          exit;
+        end
+        else if (Lowercase(lDispatcher) = '/doc')and (fServeInfoPage) then begin
+          lResponseHeaders := TIPHTTPResponseHeaders.Create;
+          try
+            SetDefaultHeaders(aTarget, lResponseHeaders);
+            if lSubPath = 'css' then
+            begin
+              s := GetRodlCss;
+              lResponseHeaders.Headers.Values['Content-Type'] := 'text/css';
+            end else
+            if lSubPath = 'xslt' then
+            begin
+              s := GetRodlStyleSheet;
+              lResponseHeaders.Headers.Values['Content-Type'] := 'text/xml';
+            end else if lSubPath = '' then
+            begin
+              lRodl := GetRodlLibrary(GetRODLReader);
+              try
+                lResponseHeaders.Headers.Values['Content-Type'] := 'text/xml';
+                s := GetRodlWithStyleSheet(lRodl, '/doc/xslt');
+              finally
+                lRodl.Free;
+              end;
+            end else
+            begin
+              SendError(aTarget, 'Invalid Path');
+              exit;
+            end;
+            SetLength(lResponse, length(s));
+            Move(s[1], lResponse[0], Length(S));
+            SendResponse(aTarget, lResponseHeaders, lResponse, nil);
+          finally
+            lResponseHeaders.Free;
+          end;
+          exit;
+        end
+        else if (LowerCase(lDispatcher) = '/favicon.ico') and (fServeInfoPage) then begin
+          lResponseHeaders := TIPHTTPResponseHeaders.Create;
+          try
+            SetDefaultHeaders(aTarget, lResponseHeaders);
+            lResponseHeaders.Headers.Values['Content-Type'] := 'image/x-icon';
+            lTempStr := TMemoryStream.Create;
+            try
+              GetRodlFavIcon(lTempStr);
+              SetLengtH(lResponse, lTempStr.Size);
+              lTempStr.Position := 0;
+              lTempstr.Read(lResponse[0], Length(lResponse));
+            finally
+              lTempStr.Free;
+            end;
+            SendResponse(aTarget, lResponseHeaders, lResponse, nil);
+          finally
+            lResponseHeaders.Free;
+          end;
+          exit;
+        end
+        else if (Lowercase(lDispatcher) = '/rodl') and (fServeRodl) then begin
+          SendRodl(aTarget, aRequestHeaders, lMd, lServiceName);
+          exit;
+        end else begin
+          SendError(aTarget, 'No dispatcher configured for "'+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(lDispatcher)+'".');
+          exit;
+        end;
+      end;
+    end;
+    if not lMd.Enabled then begin
+      SendError(aTarget, 'Dispatcher for "'+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(lDispatcher)+'" is disabled.');
+      exit;
+    end;
+    if lMd.Message = nil then begin
+      SendError(aTarget, 'Message for dispatcher "'+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(lDispatcher)+'" is has not been assigned.');
+      exit;
+    end;
+
+    if ((aRequestHeaders.Method = 'GET') or
+      (Length(aRequest) = 4)) and(fServeRodl) then begin
+      if (lSubPath = '') or (lSubPath = 'rodl') then begin
+        SendRodl(aTarget, aRequestHeaders, lmd, lServiceName);
+        exit;
+      end
+      else begin
+        SendError(aTarget, 'Message for dispatcher "'+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(lDispatcher)+'" is has not been assigned.');
+        exit;
+      end;
+    end;
+
+    IncomingData(aTarget, aRequestHeaders, aRequest, lmd);
+  except
+    on e: Exception do
+      SendError(aTarget, {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(e.Message));
+  end;
+end;
+
+procedure TROBaseSuperHTTPServer.SendAsyncResponse(
+  aTarget: IROSuperHTTPServerConnection; lHeaders: TIPHTTPResponseHeaders;
+  aData: TDynamicByteArray);
+var
+  lResponse: IROSuperHTTPServerResponse;
+  lList: TList;
+  lWc: TROSuperHTTPWaitingConnection;
+begin
+  lResponse := TROSuperHTTPServerResponse.Create(aTarget.GetSelf, lHeaders);
+  lResponse.GetSelf.fData := aData;
+  lResponse.GetSelf.fConnection := aTarget.GetSelf;
+  lList := aTarget.GetSelf.WaitingConnections.LockList;
+  try
+    if lList.Count > 0 then begin
+      lResponse.GetSelf.Attempt :=lResponse.GetSelf.Attempt + 1;
+      lWc := lList[0];
+      lList.Delete(0);
+      SendResponse(lWc.Channel, lResponse.GetSelf.Headers, lResponse.GetSelf.Data, lResponse);
+      lWc.Free;
+      exit;
+    end;
+    aTarget.GetSelf.ResponseQueue.Add(lResponse);
+  finally
+    aTarget.GetSelf.WaitingConnections.UnlockList;
+  end;
+end;
+
+procedure TROBaseSuperHTTPServer.SetThreadPool(const Value: TROThreadPool);
+begin
+  if fOwnsThreadPool then
+    FreeAndNil(fThreadPool);
+  fOwnsThreadPool := false;
+  fThreadPool := Value;
+end;
+
+type
+  TQueueItem = class(TInterfacedObject, IROThreadPoolCallback, IROTransport, IROTCPTransport, IROHTTPTransport)
+  private
+    fTarget: IROSuperHTTPServerConnection;
+    fHeaders: TIPHTTPRequestHeaders;
+    fMessageDispatcher: TROMessageDispatcher;
+    fId: Integer;
+    fData: TDynamicByteArray;
+    fOwner: TROBaseSuperHTTPServer;
+  public
+    constructor Create(aOwner: TROBaseSuperHTTPServer; aTarget: IROSuperHTTPServerConnection; aHeaders: TIPHTTPRequestHeaders;
+      aMessageDispatcher: TROMessageDispatcher; aId: Integer;
+      aData: TDynamicByteArray);
+    destructor Destroy; override;
+    procedure Callback(Caller: TROThreadPool; aThread: TThread);
+    function GetTransportObject: TObject;
+    function GetContentType: String;
+    function GetHeaders(const aName: String): String;
+    function GetLocation: String;
+    function GetPathInfo: String;
+    function GetQueryString: String;
+    function GetTargetURL: String;
+    function GetUserAgent: String;
+    procedure SetContentType(const aValue: String);
+    procedure SetHeaders(const aName: String; const aValue: String);
+    procedure SetPathInfo(const aValue: String);
+    procedure SetTargetURL(const aValue: String);
+    procedure SetUserAgent(const aValue: String);
+    function GetClientAddress: String;
+    function GetQueryParameter(const aName: String): String;
+  end;
+
+
+procedure TROBaseSuperHTTPServer.ProcessPackage(
+  aTarget: IROSuperHTTPServerConnection; aHeaders: TIPHTTPRequestHeaders;
+  aMessageDispatcher: TROMessageDispatcher; aId: Integer;
+  aData: TDynamicByteArray);
+begin
+  fThreadPool.QueueItem(TQueueItem.Create(self, aTarget, aHeaders, aMessageDispatcher, aId, aData));
+end;
+
+
+
+procedure TROBaseSuperHTTPServer.ResponseFailed(aUserData: IInterface);
+var
+  lData: IROSuperHTTPServerResponse;
+  lConn: IROSuperHTTPServerConnection;
+  lList: TList;
+  lWc: TROSuperHTTPWaitingConnection;
+
+begin
+  if aUserData = nil then exit;
+
+  lData := IROSuperHTTPServerResponse(aUserData);
+  if lData.GetSelf.Attempt = 16 then exit; // it won't arrive after 16 tries.
+
+  lConn := lData.GetSelf.Connection;
+  lList := lConn.GetSelf.WaitingConnections.LockList;
+  try
+    if lList.Count > 0 then begin
+      lData.GetSelf.Attempt := lData.GetSelf.Attempt + 1;
+      lWc := TROSuperHTTPWaitingConnection(lList[0]);
+      lList.Delete(0);
+      SendResponse(lWc.Channel, lData.GetSelf.Headers, lData.GetSelf.Data, lData);
+      lWc.Free;
+      exit;
+    end;
+    lConn.GetSelf.ResponseQueue.Add(lData);
+  finally
+    lConn.GetSelf.WaitingConnections.UnlockList;
+  end;
+
+
+end;
+
+procedure TROBaseSuperHTTPServer.ResponseSucessful(aUserData: IInterface);
+begin
+  // nothing to do here.
+end;
+
+function TROBaseSuperHTTPServer.GetDispatchersClass: TROMessageDispatchersClass;
+begin
+  Result :=  TROHTTPMessageDispatchers;
+end;
+function TROBaseSuperHTTPServer.GetServerType: TROServerType;
+begin
+  Result := rstSuperHTTP;
+end;
+
+(*
+type
+  TByteArrayStream = class(TStream)
+  private
+    fPos: Integer;
+    fData: TDynamicByteArray;
+  protected
+    {$IFDEF DELPHI7UP}
+    function GetSize: Int64; override;
+	{$ENDIF}
+  public
+    constructor Create(aData: TDynamicByteArray);
+    function Write(const Buffer; Count: Integer): Integer; override;
+    function Read(var Buffer; Count: Integer): Integer; override;
+    function Seek(Offset: Integer; Origin: Word): Integer; override;
+  end;
+*)
+{ TQueueItem }
+
+procedure TQueueItem.Callback(Caller: TROThreadPool; aThread: TThread);
+var
+  lStream, lResponse: TStream;
+  lResp: TDynamicByteArray;
+begin
+  {$IFDEF FPC}
+  if (Caller = nil) or (aThread = nil) then lStream := nil else //for preventing warnings in FPC
+  {$ENDIF}
+  lStream := nil;
+  lResponse := TMemoryStream.Create;
+  try
+//     if assigned(fOwner.OnReadFromStream) then begin
+      lStream := TMemoryStream.Create;
+      lStream.Write(fData[0], Length(fData));
+      lstream.Position := 0;
+      if assigned(fOwner.OnReadFromStream) then fOwner.OnReadFromStream(lStream);
+
+{    end
+    else
+     lStream := TByteArrayStream.Create(fData);
+}
+    fData := nil;
+
+    fOwner.DispatchMessage(self, lStream, lResponse);
+
+    if assigned(fOwner.OnWriteToStream) then
+      fOwner.OnWriteToStream(lResponse);
+
+    lResponse.Position := 0;
+
+    SetLength(lResp, lResponse.Size + 5);
+    lResp[0] := ShPackage;
+    lResp[1] := fId;
+    lResp[2] := fId shr 8;
+    lResp[3] := fId shr 16;
+    lResp[4] := fId shr 24;
+    lResponse.Read(lResp[5], lResponse.Size);
+    fOwner.SendAsyncResponse(fTarget, nil, lResp);
+  except
+    on E: Exception do begin
+      setLength(lResp, 4 + 1 + 1);
+      lResp[0] := ShError;
+      lResp[1] := fId;
+      lResp[2] := fId shr 8;
+      lResp[3] := fId shr 16;
+      lResp[4] := fId shr 24;
+      lResp[5] := ShError_QueueFull;
+      fOwner.SendAsyncResponse(fTarget, nil, lResp);
+    end;
+  end;
+  lStream.Free;
+  lResponse.Free;
+end;
+
+constructor TQueueItem.Create(aOwner: TROBaseSuperHTTPServer;
+  aTarget: IROSuperHTTPServerConnection; aHeaders: TIPHTTPRequestHeaders;
+  aMessageDispatcher: TROMessageDispatcher; aId: Integer;
+  aData: TDynamicByteArray);
+begin
+  inherited Create;
+  fOwner := aOwner;
+  fTarget := aTarget;
+  fHeaders := TIPHTTPRequestHeaders.Create;
+  fHeaders.Headers.Assign(aHeaders.Headers);
+  fHeaders.Method := aHeaders.Method;
+  fHeaders.Version := aHeaders.Version;
+  fHeaders.Path := aHeaders.Path;
+  fHeaders.ClientAddress := aHeaders.ClientAddress;
+
+  fMessageDispatcher := aMessageDispatcher;
+  fId := aId;
+  fData := aData;
+end;
+
+destructor TQueueItem.Destroy;
+begin
+  fHeaders.Free;
+  inherited Destroy;
+end;
+
+function TQueueItem.GetClientAddress: String;
+begin
+  result := fHeaders.ClientAddress;
+end;
+
+function TQueueItem.GetContentType: String;
+begin
+  result := fHeaders.ContentType;
+end;
+
+function TQueueItem.GetHeaders(const aName: String): String;
+begin
+  result := fHeaders.Headers.Values[aName];
+end;
+
+function TQueueItem.GetLocation: String;
+begin
+  result := '';
+end;
+
+function TQueueItem.GetPathInfo: String;
+begin
+  result := fHeaders.Path;
+end;
+
+function EscapeDecode(const s:string):string;
+var
+   I:Integer;
+begin
+  Result := S;
+  I := Pos('%',Result);
+  while I > 0 do begin
+    Result := Copy(Result, 1, I-1) + Chr(StrToIntDef('$' + Copy(result, I + 1, 2), ord('a'))) + Copy(Result, I+3, Length(Result));
+    I := Pos('%',Result);
+  end;
+  I := Pos('+',Result);
+  while I > 0 do begin
+    Result := Copy(Result, 1, I - 1) + ' ' + Copy(Result, I + 1, Length(Result));
+    I := Pos('+',Result);
+  end;
+end;
+
+
+function TQueueItem.GetQueryParameter(const aName: String): String;
+var
+  s: string;
+  i: Integer;
+begin
+  s := GetQueryString;
+  result := '';
+  if Copy(s,1,length(aName)+1) = aName+'=' then begin
+    Delete(s,1,Length(aname)+1);
+  end else begin
+    i := Pos('&' +aName+'=',s);
+    if i = 0 then exit;
+    Delete(s,1,i+Length(aName)+1);
+  end;
+  if pos('&', s) > 0 then s:= copy(s,1,pos('&', s)-1);
+  result := EscapeDecode(s);
+end;
+
+function TQueueItem.GetQueryString: String;
+begin
+  result := fHeaders.Path;
+  if pos('?', Result) <> 0 then
+     result := copy(Result, pos('?', Result) + 1 ,MaxInt)
+  else
+    result := '';
+end;
+
+function TQueueItem.GetTargetURL: String;
+begin
+  result := '';
+end;
+
+function TQueueItem.GetTransportObject: TObject;
+begin
+  result := fOwner;
+end;
+
+function TQueueItem.GetUserAgent: String;
+begin
+  result := fHeaders.Headers.Values['User-Agent'];
+end;
+
+procedure TQueueItem.SetContentType(const aValue: String);
+begin
+end;
+
+procedure TQueueItem.SetHeaders(const aName, aValue: String);
+begin
+  fHeaders.Headers.Values[aName] := aValue;
+end;
+
+procedure TQueueItem.SetPathInfo(const aValue: String);
+begin
+end;
+
+procedure TQueueItem.SetTargetURL(const aValue: String);
+begin
+end;
+
+procedure TQueueItem.SetUserAgent(const aValue: String);
+begin
+end;
+(*
+{ TByteArrayStream }
+
+constructor TByteArrayStream.Create(aData: TDynamicByteArray);
+begin
+  inherited Create;
+  fData := aData;
+  fPos := 0;
+end;
+
+{$IFDEF DELPHI7UP}
+function TByteArrayStream.GetSize: Int64;
+begin
+  result := Length(fData);
+end;
+{$ENDIF}
+
+function TByteArrayStream.Read(var Buffer; Count: Integer): Integer;
+begin
+  if fPos + Count >= Length(fData) then Count := Length(fData) - fPos;
+  Move(fData[fPos], Buffer, Count);
+  fPos := fPos + Count;
+  result := Count;
+end;
+
+function TByteArrayStream.Seek(Offset: Integer; Origin: Word): Integer;
+begin
+  case Origin of
+    soFromBeginning: fPos := Offset;
+    soFromCurrent: fPos := fPos + Offset;
+    soFromEnd: fPos := Length(fData) + Offset;
+  end;
+  if fPos < 0 then fPos := 0;
+  if fPos >= Length(fData) then fPos := Length(fData) -1;
+  Result := fPos;
+end;
+
+function TByteArrayStream.Write(const Buffer; Count: Integer): Integer;
+begin
+  {$IFDEF FPC}
+  if (Count = 1) then Result := 0 else Result := 0; //for preventing warnings in FPC
+  {$ENDIF}
+  raise Exception.Create('Readonly stream cannot be written to');
+end;
+*)
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBinMessage.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBinMessage.pas
new file mode 100644
index 0000000..ded41f3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBinMessage.pas	
@@ -0,0 +1,622 @@
+unit uROBinMessage;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, TypInfo,
+  uROSerializer, uROClient, uROClientIntf;
+
+type
+  TBinMessageSignature = array[0..4] of AnsiChar;
+
+const
+  BinSignature: TBinMessageSignature =          ( #82,  #79,  #49,  #48, #55); // 'RO107';
+  EncryptedBinSignature: TBinMessageSignature = (#114, #111, #114, #111, #99); //'roroc';
+
+  BIN_HEADER_SIZE = $1c;
+
+  { Misc }
+  {
+    // Header BINARY LAYOUT: $1C bytes
+    //
+    // Keep in sync with
+    //  - Delphi - uROBINMessage.pas
+    //  - C#     - BinMessage.cs
+    //
+    // 52 4f 31 30  = "RO10" basic RO signature for RO 1.0
+    // XX YY ZZ --  = XX: subversion (currenly "7")
+    //		 YY: option flags: 01 = compressed
+    //		 ZZ: message type as defined in uROClientIntf
+    //     --: reserved for future use
+    // -- -- UU UU  = UU: user data (word)
+    // CC CC CC CC    $10 bytes ClientID (guid)
+    // CC CC CC CC
+    // CC CC CC CC
+    // CC CC CC CC
+  }
+
+type
+  TBinHeaderArray = array[0..BIN_HEADER_SIZE - 1] of byte;
+  TBinMessageType = Byte;
+
+type
+  TBinHeader = class
+  private
+    fHeader: TBinHeaderArray;
+    function GetCompressed: boolean;
+    procedure SetCompressed(const Value: boolean);
+    function GetSignatureValid: boolean;
+    function GetSignatureIsEncrypted: boolean;
+    function GetMessageType: TBinMessageType;
+    procedure SetMessageType(const Value: TBinMessageType);
+    function GetUserData: Word;
+    procedure SetUserData(const Value: Word);
+    function GetClientID: TGUID;
+    procedure SetClientID(const Value: TGUID);
+
+  public
+    constructor CreateFromStream(iStream: TStream);
+    constructor Create;
+    procedure WriteToStream(iStream: TStream);
+
+    {$IFNDEF DELPHI10UP}property Header: TBinHeaderArray read fHeader;{$ENDIF}
+    property Compressed: boolean read GetCompressed write SetCompressed;
+    property SignatureValid: boolean read GetSignatureValid;
+    property SignatureIsEncrypted: boolean read GetSignatureIsEncrypted;
+    property MessageType: TBinMessageType read GetMessageType write SetMessageType;
+    property UserData: Word read GetUserData write SetUserData;    
+    property ClientID: TGUID read GetClientID write SetClientID;
+  end;
+
+  TROCompressionEvent = procedure(OriginalSize, CompressedSize, CompressionTime: integer) of object;
+
+  { TROBinMessage }
+
+  IROBinMessage = interface(IROMessage)
+    ['{255E6B2C-66BC-4BE3-9C29-459D00221F7E}']
+    function GetCompressionBufferSize: integer;
+    function GetUseCompression: boolean;
+    function GetMinSizeForCompression: integer;
+    procedure SetMinSizeForCompression(const Value: integer);
+    procedure SetCompressionBufferSize(const Value: integer);
+    procedure SetUseCompression(const Value: boolean);
+    function GetWasCompressed : boolean;
+
+    function GetStream: TStream;
+
+    property UseCompression: boolean read GetUseCompression write SetUseCompression;
+    property MinSizeForCompression: integer read GetMinSizeForCompression write SetMinSizeForCompression;
+    property CompressionBufferSize: integer read GetCompressionBufferSize write SetCompressionBufferSize;
+    property Stream: TStream read GetStream;
+    property WasCompressed : boolean read GetWasCompressed;
+  end;
+
+  TROBinMessage = class(TROMessage, IROBinMessage, IROStreamAccess)
+  private
+    fStream: TStream;
+    fUseCompression: boolean;
+    fDestroyStream: boolean;
+    fWasCompressed: boolean;
+    fOnCompress: TROCompressionEvent;
+    fOnDecompress: TROCompressionEvent;
+    fCompressionBufferSize: integer;
+    fType: TMessageType;
+    fMinSizeForCompression: integer;
+    function GetMinSizeForCompression: integer;
+    procedure SetMinSizeForCompression(const Value: integer);
+
+    procedure WriteStream(aMessageType: TBinMessageType; Source, Destination: TStream);
+
+    function GetCompressionBufferSize: integer;
+    function GetUseCompression: boolean;
+    procedure SetCompressionBufferSize(const Value: integer);
+    procedure SetUseCompression(const Value: boolean);
+    function GetWasCompressed : boolean;
+
+  protected
+    { Internals }
+    function ReadException: Exception; override;
+    procedure WriteException(aStream: TStream; anException: Exception); override;
+
+    function CreateSerializer: TROSerializer; override;
+
+    { IROMessage }
+    procedure Initialize(const aTransport: IROTransport; const anInterfaceName, aMessageName: string; aType: TMessageType); override;
+
+
+    procedure WriteToStream(aStream: TStream); override;
+    procedure IntReadFromStream(aStream: TStream; CopyStream: Boolean);
+
+    procedure ReadFromStream(aStream: TStream); overload; override;
+    procedure ReadFromStream(aStream: TStream; var aFreeStream: Boolean); overload; override;
+
+    function GetStream: TStream;
+    procedure FreeStream; override;
+    procedure InitializeExceptionMessage(const aTransport: IROTransport;
+      const aLibraryName: String; const anInterfaceName: String;
+      const aMessageName: String); override;
+  public
+    procedure InitObject; override;
+    destructor Destroy; override;
+
+    procedure Assign(iSource: TPersistent); override;
+
+    property Stream: TStream read FStream;
+    function IsValidMessage(aData: PAnsiChar; aLength: Integer): boolean;  override;
+  published
+    property UseCompression: boolean read GetUseCompression write SetUseCompression default true;
+    property MinSizeForCompression: integer read GetMinSizeForCompression write SetMinSizeForCompression default 4096;
+    property CompressionBufferSize: integer read GetCompressionBufferSize write SetCompressionBufferSize default 256 * 1024;
+    property OnCompress: TROCompressionEvent read fOnCompress write fOnCompress;
+    property OnDecompress: TROCompressionEvent read fOnDecompress write fOnDecompress;
+  end;
+
+implementation
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF MSWINDOWS}
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE}eDebugServer, {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE}
+  uROStreamSerializer,
+  uRORes, uROCompression, uROHTTPTools, uROClasses,
+  uROTypes, uROBinaryHelpers, uROZLib;
+
+{ TROBinMessage }
+
+destructor TROBinMessage.Destroy;
+begin
+  if fDestroyStream then FreeAndNIL(fStream);
+  inherited;
+end;
+
+function TROBinMessage.CreateSerializer: TROSerializer;
+begin
+  result := TROStreamSerializer.Create(nil);
+end;
+
+procedure TROBinMessage.Initialize(const aTransport: IROTransport; const anInterfaceName, aMessageName: string; aType: TMessageType);
+begin
+  inherited;
+
+  SetHTTPInfo(aTransport, DataFormatBinary);
+
+  if fDestroyStream then FreeAndNIL(fStream);
+  fStream := TMemoryStream.Create;
+  fDestroyStream := TRUE;
+
+  (Serializer as TROStreamSerializer).SetStorageRef(fStream); // Very important!
+
+  MessageName := aMessageName;
+  InterfaceName := anInterfaceName;
+  fType := aType;
+
+  Stream_WriteStringWithLength(fStream, InterfaceName);
+  Stream_WriteStringWithLength(fStream, MessageName);
+end;
+
+procedure TROBinMessage.IntReadFromStream(aStream: TStream; CopyStream: Boolean);
+var //sze : integer;
+  //s : string;
+  lHeader: TBinHeader;
+  lPos: Int64;
+  {$IFDEF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+  start: Integer;
+  PerformanceFrequency,
+    PerformanceCounter: Int64;
+  {$ENDIF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+begin
+  inherited;
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE}
+  DebugServer.EnterMethod('TROBinMessage.ReadFromStream(stream=%x; position:$%x)', [integer(pointer(aStream)), aStream.Position]);
+  try
+    DebugServer.WriteHexDump('Incoming BIN, start of ReadFromStream: ', aStream);
+    //aStream.Seek(0,soBeginning);
+    {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE}
+
+    if fDestroyStream then FreeAndNIL(fStream);
+
+    lHeader := TBinHeader.CreateFromStream(aStream);
+    try
+      fWasCompressed := lHeader.Compressed;
+      SetClientID(lHeader.ClientID);
+
+      if lHeader.Compressed then begin
+        {$IFDEF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+        if not QueryPerformanceFrequency(PerformanceFrequency) then RaiseLastOSError;
+        if not QueryPerformanceCounter(PerformanceCounter) then RaiseLastOSError;
+        start := GetTickCount();
+        {$ENDIF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+
+        fDestroyStream := TRUE;
+        fStream := TMemoryStream.Create;
+
+        ZDecompressStream(aStream, fStream);
+
+        {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE}
+        DebugServer.WriteHexDump('Decompressed BIN message (sans Header): ', fStream);
+        //aStream.Seek(0,soBeginning);
+        {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE}
+
+        {$IFDEF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+        if not QueryPerformanceCounter(PerformanceCounter) then RaiseLastOSError;
+        if Assigned(OnDeCompress) then OnDecompress(fStream.Size, aStream.Size, GetTickCount - start);
+        {$ELSE}
+        if Assigned(OnDeCompress) then OnDecompress(fStream.Size, aStream.Size, 0);
+        {$ENDIF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+
+        fStream.Position := 0;
+        // TROTransportChannel.Dispatch always destroys stream if error.
+        if (lHeader.MessageType<>MESSAGE_TYPE_EXCEPTION) then
+          if not CopyStream then aStream.Free;
+      end
+      else begin
+        if CopyStream then begin
+          fStream := TMemoryStream.Create;
+          lPos := aStream.Position;
+          aStream.position := 0;
+          fStream.CopyFrom(aStream, aStream.Size);
+          fStream.Position := lPos;
+        end
+        else
+          fStream := aStream;
+        fDestroyStream := true;
+      end;
+
+      (Serializer as TROStreamSerializer).SetStorageRef(fStream); // Very important!
+      case lHeader.MessageType of
+        MESSAGE_TYPE_EVENT,
+        MESSAGE_TYPE_MESSAGE: begin
+            InterfaceName := Stream_ReadStringWithLength(fStream, MAX_ITEM_NAME);
+            MessageName := Stream_ReadStringWithLength(fStream, MAX_ITEM_NAME);
+          end;
+        MESSAGE_TYPE_EXCEPTION: begin
+            ProcessException;
+          end;
+      else // Do what?
+      end;
+
+    finally
+      FreeAndNil(lHeader);
+    end;
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE}
+  finally
+    DebugServer.ExitMethod('TROBinMessage.ReadFromStream(stream=%x; position:$%x)', [integer(pointer(fStream)), fStream.Position]);
+  end;
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE}
+
+end;
+
+procedure TROBinMessage.WriteToStream(aStream: TStream);
+begin
+  if fType = mtEvent then
+    WriteStream(MESSAGE_TYPE_EVENT, fStream, aStream)
+  else
+    WriteStream(MESSAGE_TYPE_MESSAGE, fStream, aStream);
+
+  inherited;
+end;
+
+function TROBinMessage.ReadException: Exception;
+var
+  lExceptionName, lMessage: string;
+begin
+  // At this point the stream is already at position 1
+  lExceptionName := Stream_ReadStringWithLength(fStream, MAX_ITEM_NAME);
+  lMessage := AnsiStringToWideString(AnsiString(Stream_ReadUTF8StringWithLength(fStream, MAX_EXCEPTION_TEXT)));
+
+  result := CreateException(lExceptionName, lMessage);
+
+  // Reads the other fields which have been properly serialized
+  if result.InheritsFrom(EROException) then
+    Serializer.Read(name_Exception, result.ClassType.ClassInfo, result);
+    
+  fDestroyStream:=False; // we destroy stream in TROTransportChannel.Dispatch
+end;
+
+procedure TROBinMessage.WriteException(aStream: TStream; anException: Exception);
+var typinfo : PTypeInfo;
+begin
+  inherited;
+  if fDestroyStream then FreeAndNIL(fStream);
+  fStream := TMemoryStream.Create;
+  fDestroyStream := TRUE;
+
+  Stream_WriteStringWithLength(fStream, anException.ClassName);
+  Stream_WriteUTF8StringWithLength(fStream, UTF8String(WideStringToAnsiString(anException.Message)));
+
+  if (anException is EROException) then begin
+    with TROStreamSerializer.Create(fStream) do try
+      typinfo := anException.ClassInfo;
+      Write(name_Exception, typinfo, anException);
+    finally
+      Free;
+    end;
+  end;
+
+  WriteStream(MESSAGE_TYPE_EXCEPTION, fStream, aStream);
+end;
+
+procedure TROBinMessage.WriteStream(aMessageType: TBinMessageType; Source, Destination: TStream);
+var
+  lHeader: TBinHeader;
+  {$IFDEF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+  start: Integer;
+  PerformanceFrequency,
+    PerformanceCounter: Int64;
+  {$ENDIF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+begin
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE}
+  DebugServer.EnterMethod('TROBinMessage.WriteStream()');
+  try
+    {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE}
+
+    // Writes the header
+    lHeader := TBinHeader.Create();
+    try
+      lHeader.Compressed := UseCompression and (Source.Size >= MinSizeForCompression);
+      lHeader.MessageType := aMessageType;
+      lHeader.ClientID := GetClientID;
+      lHeader.WriteToStream(Destination);
+    finally
+      FreeAndNil(lHeader);
+    end;
+    // Writes the data
+    Source.Position := 0;
+    if UseCompression and (Source.Size >= MinSizeForCompression) then begin
+
+      {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE}
+      DebugServer.WriteHexDump('Uncompressed BIN: ', Source);
+      {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE}
+
+      {$IFDEF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+      if not QueryPerformanceFrequency(PerformanceFrequency) then
+        RaiseLastOSError;
+      if not QueryPerformanceCounter(PerformanceCounter) then
+        RaiseLastOSError;
+      start := GetTickCount { + Frac(PerformanceCounter / PerformanceFrequency * MSecsPerSec)};
+      {$ENDIF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+
+      ZCompressStream(Source, Destination);
+
+      {$IFDEF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+      if not QueryPerformanceCounter(PerformanceCounter) then RaiseLastOSError;
+      if Assigned(OnCompress) then OnCompress(Source.Size, Destination.Size, GetTickCount - start);
+      {$ELSE }
+      if Assigned(OnCompress) then OnCompress(Source.Size, Destination.Size, 0);
+      {$ENDIF REMOBJECTS_PERFORMANCE_MEASUREMENT}
+    end
+    else begin
+      TMemoryStream(Source).SaveToStream(Destination);
+      {ToDo -cOptimization/RO4: The infrastructure could re rearranged so that the message
+        could be written to the final stream right away. This would require significant
+        changes to proxy and invoker code, among others, so we'll defer to RO4. mh. }
+    end;
+
+    {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE}
+    DebugServer.WriteHexDump('Outgoing BIN: ', Destination);
+  finally
+    DebugServer.ExitMethod('TROBinMessage.WriteStream()');
+  end;
+  //Destination.Seek(0,soBeginning);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE}
+
+end;
+
+procedure TROBinMessage.InitObject;
+begin
+  inherited;
+  fUseCompression := true;
+  fCompressionBufferSize := 256 * 1024;
+  fMinSizeForCompression := 4096;
+end;
+
+procedure TROBinMessage.Assign(iSource: TPersistent);
+var
+  lSource: TROBinMessage;
+begin
+  inherited;
+  if Assigned(iSource) then begin
+    if not (iSource is TROBinMessage) then RaiseError('Cannot Assign a %s t a %s', [ClassName, iSource.ClassName]);
+    lSource := TROBinMessage(iSource);
+    self.UseCompression := lSource.UseCompression;
+    self.MinSizeForCompression := lSource.MinSizeForCompression;
+    self.CompressionBufferSize := lSource.CompressionBufferSize;
+    self.OnCompress := lSource.OnCompress;
+    self.OnDecompress := lSource.OnDecompress;
+    //ToDO -c2.0 -omh: clone the stream to, if one is assigned;
+  end;
+end;
+
+function TROBinMessage.GetCompressionBufferSize: integer;
+begin
+  result := fCompressionBufferSize;
+end;
+
+function TROBinMessage.GetMinSizeForCompression: integer;
+begin
+  result :=  fMinSizeForCompression;
+end;
+
+function TROBinMessage.GetUseCompression: boolean;
+begin
+  result := fUseCompression;
+end;
+
+procedure TROBinMessage.SetCompressionBufferSize(const Value: integer);
+begin
+  fCompressionBufferSize := Value;
+end;
+
+procedure TROBinMessage.SetMinSizeForCompression(const Value: integer);
+begin
+  fMinSizeForCompression := Value;
+end;
+
+procedure TROBinMessage.SetUseCompression(const Value: boolean);
+begin
+  fUseCompression := Value;
+end;
+
+function TROBinMessage.GetStream: TStream;
+begin
+  result := fStream;
+end;
+
+function TROBinMessage.GetWasCompressed: boolean;
+begin
+  result := fWasCompressed;
+end;
+
+procedure TROBinMessage.ReadFromStream(aStream: TStream);
+begin
+  inherited;
+  IntReadFromStream(aStream, true);
+end;
+
+procedure TROBinMessage.ReadFromStream(aStream: TStream;
+  var aFreeStream: Boolean);
+begin
+  inherited ReadFromStream(aStream);
+  aFreeStream := False; // set to false BEFORE the call; as the following might raise exceptions
+  IntReadFromStream(aStream, false);
+end;
+
+procedure TROBinMessage.FreeStream;
+begin
+  inherited;
+  if fDestroyStream then FreeAndNil(FStream);
+end;
+
+procedure TROBinMessage.InitializeExceptionMessage(
+  const aTransport: IROTransport; const aLibraryName, anInterfaceName,
+  aMessageName: String);
+begin
+  inherited;
+  SetHTTPInfo(aTransport, DataFormatBinary);
+end;
+
+function TROBinMessage.IsValidMessage(aData: PAnsiChar; aLength: Integer): boolean;
+begin
+  Result := (aLength >= Sizeof(TBinMessageSignature)) and
+   ((StrLComp(aData, Pansichar(@BinSignature),SizeOf(TBinMessageSignature))=0) or
+   (StrLComp(aData, PAnsichar(@EncryptedBinSignature),SizeOf(TBinMessageSignature))=0));
+end;
+
+{ TBinHeader }
+
+const
+  OFFSET_MESSAGE_FLAGS = $05; { offset of Flags field in header }
+  OFFSET_MESSAGE_TYPE = $06; { offset of Type field in header }
+  OFFSET_USER_DATA = $0a; { offset of UserData field in header }
+  OFFSET_CLIENTID = $0c; { offset of ClientID GUID }
+
+  BINMESSAGE_FLAG_COMPRESSED = $01;
+
+constructor TBinHeader.Create;
+begin
+  inherited Create();
+
+  fHeader[0] := Ord(BINSignature[0]);
+  fHeader[1] := Ord(BINSignature[1]);
+  fHeader[2] := Ord(BINSignature[2]);
+  fHeader[3] := Ord(BINSignature[3]);
+  fHeader[4] := Ord(BINSignature[4]);
+end;
+
+constructor TBinHeader.CreateFromStream(iStream: TStream);
+begin
+  inherited Create();
+  iStream.ReadBuffer(fHeader, SizeOf(fHeader));
+  if not SignatureValid then begin
+    if SignatureIsEncrypted then
+      RaiseInvalidStreamError(err_InvalidHeaderEncrypted, [], iStream);
+    RaiseInvalidStreamError(err_InvalidHeader, [], iStream);
+  end;
+end;
+
+function TBinHeader.GetMessageType: TBinMessageType;
+begin
+  result := TBinMessageType(fHeader[OFFSET_MESSAGE_TYPE]);
+end;
+
+procedure TBinHeader.SetMessageType(const Value: TBinMessageType);
+begin
+  fHeader[OFFSET_MESSAGE_TYPE] := byte(Value);
+end;
+
+function TBinHeader.GetSignatureIsEncrypted: boolean;
+begin
+  result := (fHeader[0] = ord(EncryptedBinSignature[0])) and
+    (fHeader[1] = ord(EncryptedBinSignature[1])) and
+    (fHeader[2] = ord(EncryptedBinSignature[2])) and
+    (fHeader[3] = ord(EncryptedBinSignature[3])) and
+    (fHeader[4] = ord(EncryptedBinSignature[4]));
+end;
+
+function TBinHeader.GetSignatureValid: boolean;
+begin
+  result := (fHeader[0] = ord(BINSignature[0])) and
+    (fHeader[1] = ord(BINSignature[1])) and
+    (fHeader[2] = ord(BINSignature[2])) and
+    (fHeader[3] = ord(BINSignature[3])) and
+    (fHeader[4] = ord(BINSignature[4]));
+end;
+
+function TBinHeader.GetCompressed: boolean;
+begin
+  result := fHeader[OFFSET_MESSAGE_FLAGS] and BINMESSAGE_FLAG_COMPRESSED = BINMESSAGE_FLAG_COMPRESSED;
+end;
+
+procedure TBinHeader.SetCompressed(const Value: boolean);
+begin
+  if Value then
+    fHeader[OFFSET_MESSAGE_FLAGS] := fHeader[OFFSET_MESSAGE_FLAGS] or BINMESSAGE_FLAG_COMPRESSED
+  else
+    fHeader[OFFSET_MESSAGE_FLAGS] := fHeader[OFFSET_MESSAGE_FLAGS] and not BINMESSAGE_FLAG_COMPRESSED;
+end;
+
+procedure TBinHeader.WriteToStream(iStream: TStream);
+begin
+  iStream.Write(fHeader, SizeOf(fHeader));
+end;
+
+function TBinHeader.GetUserData: Word;
+begin
+  result := Word((@fHeader[OFFSET_USER_DATA])^);
+end;
+
+procedure TBinHeader.SetUserData(const Value: Word);
+begin
+  Word((@fHeader[OFFSET_USER_DATA])^) := Value;
+end;
+
+function TBinHeader.GetClientID: TGUID;
+begin
+  Move(fHeader[OFFSET_CLIENTID], result, SizeOf(TGUID));
+end;
+
+procedure TBinHeader.SetClientID(const Value: TGUID);
+begin
+  Move(Value, fHeader[OFFSET_CLIENTID], SizeOf(TGUID));
+end;
+
+initialization
+  RegisterMessageClass(TROBinMessage);
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBinaryHelpers.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBinaryHelpers.pas
new file mode 100644
index 0000000..6aeb40c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBinaryHelpers.pas	
@@ -0,0 +1,873 @@
+unit uROBinaryHelpers;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+{ToDo: -cRO3 clean up this mess, rename the methods appropriately and group
+             them depending on what they do (ie handle complex variants; do
+             conversions of *plain* binaries, etc. }
+
+uses
+  Classes, {$IFDEF FPC}Variants, {$ELSE}{$IFDEF VER140UP}Variants,{$ENDIF}{$ENDIF}
+  uROTypes, uROClasses, FMTBcd;
+
+type
+  EROBinaryConversionException = class(EROException);
+{$IFDEF FPC}OleVariant = Variant; {$ENDIF}
+
+function BinaryFromVariant(const iVariant:OleVariant):Binary;
+function VariantFromBinary(const iBinary:TStream):OleVariant;
+
+procedure WriteVariantBinaryToBinary(const iVariant:OleVariant; ioBinary:TStream);
+procedure WriteVariantArrayToBinary(const iVariant:OleVariant; ioBinary:TStream);
+
+function VariantArrayFromBinary(const iBinary:TStream; iType:word):OleVariant;
+function VariantBinaryFromBinary(const iBinary:TStream):OleVariant;
+
+procedure WriteVariantToBinary(const iVariant:OleVariant; ioBinary:TStream);
+function ReadVariantFromBinary(const iBinary:TStream):OleVariant;
+
+function VariantBinaryFromRawBinary(const iBinary:TStream):OleVariant;
+procedure VariantBinaryToRawBinary(const iVariant:OleVariant; ioBinary:TStream);
+function VariantBinaryToString(const iVariant:OleVariant):AnsiString; deprecated;
+function VariantToAnsiString(const iVariant:Variant):AnsiString;
+
+function Stream_ReadUTF8StringWithLength(iStream:TStream; iMaxLength:integer=-1): UTF8string;
+procedure Stream_WriteUTF8StringWithLength(iStream:TStream; const iString: UTF8string);
+
+function Stream_ReadStringWithLength(iStream:TStream; iMaxLength:integer=-1): string;
+procedure Stream_WriteStringWithLength(iStream:TStream; const iString: string);
+
+{$IFDEF DEBUG_REMOBJECTS_VARIANTS}
+function TestVariant(iVariant:OleVariant):OleVariant;
+{$ENDIF DEBUG_REMOBJECTS_VARIANTS}
+
+
+type
+  PDecimal = ^TDecimal;
+  TDecimal = array[0..3] of Cardinal;
+
+function BCDToDecimal(const aBcd: TBcd): TDecimal;
+function DecimalToBCD(const aDecimal: TDecimal): TBcd;
+function DecimalToString(const aDecimal: TDecimal; aDot: Char): string;
+function StringToDecimal(const aString: string; aDot: Char): TDecimal;
+function DecimalToVariant(const aDecimal: TDecimal): Variant;
+function VariantToDecimal(const aVariant: Variant): TDecimal;
+function VariantToBCD(const aVariant: Variant): TBCD;
+function BCDToVariant(const aBCD: TBCD; const StoreAsDecimal: Boolean = False): Variant;
+// correctly convert DecimalVariant into string
+function DecimalVariantToString(const aVariant: Variant): string;
+{ ToDo: extend this to handle all common Variant types, and use it for
+        marshaling OwnerData, instead of string. }
+
+function VarByteArrayToDecimal(const aVariant: Variant; var aDecimal: TDecimal): Boolean;
+
+implementation
+
+uses {$IFDEF DEBUG_REMOBJECTS_VARIANTS}eDebugServer,{$ENDIF}
+     SysUtils, uRORes, uROEndianness;
+
+procedure WriteAnsiStringToBinary(const ioBinary:TStream; const AValue: AnsiString);
+var
+  lSize:integer;
+  {$IFDEF ENDIAN_BIG}
+  sz: integer;
+  {$ENDIF}
+begin
+  lSize := Length(AValue);
+  {$IFDEF ENDIAN_BIG}
+  sz := EndianSafeWriteInteger(lSize);
+  ioBinary.Write(sz, sizeof(integer));
+  {$ELSE}
+  ioBinary.Write(lSize,sizeof(integer));
+  {$ENDIF}
+  ioBinary.Write(pointer(aValue)^,lSize);
+end;
+
+
+procedure WriteVariantToBinary(const iVariant:OleVariant; ioBinary:TStream);
+var lType:integer;
+    lIntegerValue:integer;
+    {$IFNDEF DELPHI5}
+    lShortIntValue:shortint;
+    lSmallIntValue: smallint;
+    lInt64Value:Int64;
+    {$ENDIF DELPHI5}
+    lByteValue:byte;
+    lDoubleValue:double;
+    lSingleValue:single;
+    lCurrencyValue:currency;
+begin
+  lType := VarType(iVariant);
+
+  {$IFDEF DEBUG_REMOBJECTS_VARIANTS}
+  DebugServer.Write('BinaryFromVariant type=%d',[lType]);
+  {$ENDIF DEBUG_REMOBJECTS_VARIANTS}
+
+  { Array types }
+  if (lType and $2000) = $2000 then begin
+
+    case lType of
+      $2011:WriteVariantBinaryToBinary(iVariant,ioBinary); {8209; handle Array of Byte special. for now. }
+      else WriteVariantArrayToBinary(iVariant,ioBinary);
+    end;
+
+  end
+  { Plain Types }
+  else begin
+
+    case lType of
+      varEmpty,varNull,varError:begin { 0, 1, A }
+          {$IFDEF ENDIAN_BIG}
+          lType := EndianSafeWriteInteger(lType);
+          {$ENDIF}
+          ioBinary.Write(lType,sizeof(integer));
+        end;
+      {$IFNDEF DELPHI5}
+      varShortInt:begin { 2, 10, 12 }
+        lShortIntValue := iVariant;
+        {$IFDEF ENDIAN_BIG}
+        lType := EndianSafeWriteInteger(lType);
+        {$ENDIF}
+        ioBinary.Write(lType,sizeof(integer));
+        ioBinary.Write(lShortIntValue,sizeof(shortint));
+      end;
+      varSmallInt,varWord : begin
+        lSmallIntValue := iVariant;
+        {$IFDEF ENDIAN_BIG}
+        lType := EndianSafeWriteInteger(lType);
+        lSmallIntValue := EndianSafeWriteInt16(lSmallIntValue);
+        {$ENDIF}
+        ioBinary.Write(lType,sizeof(integer));
+        ioBinary.Write(lSmallIntValue,sizeof(lSmallIntValue));
+      end;
+      {$ENDIF DELPHI5}
+      {$IFNDEF DELPHI5}varLongWord,{$ENDIF DELPHI5}
+      varInteger:begin { 3, 13 }
+          lIntegerValue := iVariant;
+          {$IFDEF ENDIAN_BIG}
+          lType := EndianSafeWriteInteger(lType);
+          lIntegerValue := EndianSafeWriteInteger(lIntegerValue);
+          {$ENDIF}
+          ioBinary.Write(lType,sizeof(integer));
+          ioBinary.Write(lIntegerValue,sizeof(integer));
+        end;
+      varSingle:begin { 4 }
+          lSingleValue := iVariant;
+          {$IFDEF ENDIAN_BIG}
+          lType := EndianSafeWriteInteger(lType);
+          lSingleValue := EndianSafeWriteSingle(lSingleValue);
+          {$ENDIF}
+          ioBinary.Write(lType,sizeof(integer));
+          ioBinary.Write(lSingleValue,sizeof(single));
+        end;
+      varDouble, varDate:begin { 5, 7 }
+          lDoubleValue := iVariant;
+          {$IFDEF ENDIAN_BIG}
+          lType := EndianSafeWriteInteger(lType);
+          lDoubleValue := EndianSafeWriteDouble(lDoubleValue);
+          {$ENDIF}
+          ioBinary.Write(lType,sizeof(integer));
+          ioBinary.Write(lDoubleValue,sizeof(double));
+        end;
+      varCurrency:begin { 6 }
+          lCurrencyValue := iVariant;
+          {$IFDEF ENDIAN_BIG}
+          lType := EndianSafeWriteInteger(lType);
+          lCurrencyValue := EndianSafeWriteCurrency(lCurrencyValue);
+          {$ENDIF}
+          ioBinary.Write(lType,sizeof(integer));
+          ioBinary.Write(lCurrencyValue,sizeof(currency));
+        end;
+      varDispatch:begin { 9 }
+          raise EROBinaryConversionException.CreateFmt(err_IDispatchMarshalingNotSupported,[VarType(iVariant)]);
+        end;
+      varBoolean:begin { B }
+          if iVariant then lByteValue := 1 else lByteValue := 0;
+          ioBinary.Write(lType,sizeof(integer));
+          ioBinary.Write(lByteValue,sizeof(byte));
+        end;
+      varByte:begin { 11 }
+          lByteValue := iVariant;
+          ioBinary.Write(lType,sizeof(integer));
+          ioBinary.Write(lByteValue,sizeof(byte));
+        end;
+      {$IFNDEF DELPHI5}
+      varInt64:begin { 14 }
+          lInt64Value := iVariant;
+          {$IFDEF ENDIAN_BIG}
+          lType := EndianSafeWriteInteger(lType);
+          lInt64Value := EndianSafeWriteInt64(lInt64Value);
+          {$ENDIF}
+          ioBinary.Write(lType,sizeof(integer));
+          ioBinary.Write(lInt64Value,sizeof(Int64));
+        end;
+      {$ENDIF DELPHI5}
+      {$IFDEF DELPHI2009UP}
+      varUInt64:begin { 15h=21 }
+          lInt64Value := iVariant;
+          lType := varInt64;
+          {$IFDEF ENDIAN_BIG}
+          lType := EndianSafeWriteInteger(lType);
+          lInt64Value := EndianSafeWriteInt64(lInt64Value);
+          {$ENDIF}
+          ioBinary.Write(lType,sizeof(integer));
+          ioBinary.Write(lInt64Value,sizeof(Int64));
+        end;
+      {$ENDIF}
+      varString:begin { 8, 100 }
+          ioBinary.Write(lType,sizeof(integer));
+          WriteAnsiStringToBinary(ioBinary, VarToAnsiStr(iVariant));
+        end;
+      varUString,  {258}
+      varOleStr:
+        begin
+          ioBinary.Write(lType,sizeof(integer));
+          WriteAnsiStringToBinary(ioBinary, UTF8Encode(VarToWideStr(iVariant)));
+        end;
+      else raise EROBinaryConversionException.CreateFmt(err_UnsupportedVariantType, [VarType(iVariant)]);
+    end;    { case }
+
+  end;
+end;
+
+function BinaryFromVariant(const iVariant:OleVariant):Binary;
+begin
+  result := Binary.Create();
+  WriteVariantToBinary(iVariant,result);
+  {$IFDEF DEBUG_REMOBJECTS_VARIANTS}
+  DebugServer.WriteHexDump('Written Binary',result);
+  {$ENDIF DEBUG_REMOBJECTS_VARIANTS}
+  result.Seek(0,soFromBeginning)
+end;
+
+function ReadAnsiStringFromBinary(const iBinary:TStream):ansistring;
+var lSize:integer;
+begin
+  iBinary.Read(lSize,sizeof(integer));
+  {$IFDEF ENDIAN_BIG}
+  lSize := EndianSafeReadInteger(lSize);
+  {$ENDIF}
+  SetLength(Result,lSize);
+  iBinary.read(Result[1], lSize);
+end;
+
+function ReadVariantFromBinary(const iBinary:TStream):OleVariant;
+var lType:integer;
+    lIntegerValue:integer;
+    {$IFNDEF DELPHI5}
+    lShortInt:shortint;
+    lSmallIntValue: smallint;
+    lInt64Value:Int64;
+    {$ENDIF DELPHI5}
+    lByteValue:byte;
+    lDoubleValue:double;
+    lSingleValue:single;
+    lCurrencyValue:currency;
+begin
+  iBinary.Read(lType,sizeof(integer));
+  {$IFDEF ENDIAN_BIG}
+  lType := EndianSafeReadInteger(lType);
+  {$ENDIF}
+
+  {$IFDEF DEBUG_REMOBJECTS_VARIANTS}
+  DebugServer.Write('VariantFromBinary type=%d',[lType]);
+  {$ENDIF DEBUG_REMOBJECTS_VARIANTS}
+
+  { Array types }
+  if (lType and $2000) = $2000 then begin
+
+    case lType of
+      $2011:result := VariantBinaryFromBinary(iBinary);
+      else result := VariantArrayFromBinary(iBinary,(lType and $fff));
+    end;
+
+  end
+  { Plain Types }
+  else begin
+
+    case lType of
+      varEmpty:result := Unassigned;
+      varNull:result := Null;
+      varError:result := EmptyParam;
+      {$IFNDEF DELPHI5}
+      varShortInt:begin
+          iBinary.Read(lShortInt,sizeof(shortint));
+          result := lShortInt;
+        end;
+      varSmallInt,varWord : begin
+        iBinary.Read(lSmallIntValue,sizeof(lSmallIntValue));
+        result := {$IFDEF ENDIAN_BIG}EndianSafeReadInt16{$ENDIF}(lSmallIntValue);
+      end;
+      {$ENDIF DELPHI5}
+      {$IFNDEF DELPHI5}
+      varLongWord,
+      {$ENDIF DELPHI5}
+      varInteger:begin
+          iBinary.Read(lIntegerValue,sizeof(integer));
+          result := {$IFDEF ENDIAN_BIG}EndianSafeReadInteger{$ENDIF}(lIntegerValue);
+        end;
+      varSingle:begin
+          iBinary.Read(lSingleValue,sizeof(single));
+          result := {$IFDEF ENDIAN_BIG}EndianSafeReadSingle{$ENDIF}(lSingleValue);
+        end;
+      varDouble:begin
+          iBinary.Read(lDoubleValue,sizeof(double));
+          result := {$IFDEF ENDIAN_BIG}EndianSafeReadDouble{$ENDIF}(lDoubleValue);
+        end;
+      varCurrency:begin
+          iBinary.Read(lCurrencyValue,sizeof(currency));
+          result := {$IFDEF ENDIAN_BIG}EndianSafeReadCurrency{$ENDIF}(lCurrencyValue);
+        end;
+      varDate:begin
+          iBinary.Read(lDoubleValue,sizeof(double));
+          result := TDateTime({$IFDEF ENDIAN_BIG}EndianSafeReadDouble{$ENDIF}(lDoubleValue));
+        end;
+      varBoolean:begin
+          iBinary.Read(lByteValue,sizeof(byte));
+          result := (lByteValue <> 0);
+        end;
+      varByte:begin
+          iBinary.Read(lByteValue,sizeof(byte));
+          result := lByteValue;
+        end;
+      {$IFNDEF DELPHI5}
+      varInt64:begin
+          iBinary.Read(lInt64Value,sizeof(Int64));
+          result := {$IFDEF ENDIAN_BIG}EndianSafeReadInt64{$ENDIF}(lInt64Value);
+        end;
+      {$ENDIF DELPHI5}
+      varString:Result := ReadAnsiStringFromBinary(iBinary);
+      varUString,
+      varOleStr:Result := UTF8toString(ReadAnsiStringFromBinary(iBinary));
+      else raise EROBinaryConversionException.CreateFmt(err_UnsupportedVariantType, [lType]);
+    end;    { case }
+  end;
+end;
+
+function VariantFromBinary(const iBinary:TStream):OleVariant;
+begin
+  if iBinary.Size < 4 then raise EROBinaryConversionException.Create(err_InvalidBinaryFormat);
+
+  {$IFDEF DEBUG_REMOBJECTS_VARIANTS}
+  DebugServer.WriteHexDump('Read Binary',iBInary);
+  {$ENDIF DEBUG_REMOBJECTS_VARIANTS}
+
+  iBinary.Seek(0,soFromBeginning);
+  result := ReadVariantFromBinary(iBinary);
+end;
+
+procedure CheckVariant(const iVariant:OleVariant);
+begin
+  // Introduced by AleF to address part of this check mess
+  if not VarIsArray(iVariant)
+    then raise EROBinaryConversionException.CreateFmt(err_VariantIsNotArray,[VarType(iVariant)]);
+
+  if VarArrayDimCount(iVariant) <> 1
+    then raise EROBinaryConversionException.CreateFmt(err_InvalidVarArrayDimCount, [VarArrayDimCount(iVariant)]);
+end;
+
+procedure WriteVariantBinaryToBinary(const iVariant:OleVariant; ioBinary:TStream);
+var //l:longword;
+    lType,lSize:integer;
+    p:pointer;
+{$IFDEF ENDIAN_BIG}
+    t, s: integer;
+{$ENDIF}
+begin
+  CheckVariant(iVariant);
+
+  lSize := VarArrayHighBound(iVariant,1)-VarArrayLowBound(iVariant,1)+1;
+
+  p := VarArrayLock(iVariant);
+  try
+    lType := VarType(iVariant);
+    {$IFDEF DEBUG_REMOBJECTS_VARIANTS}
+    DebugServer.Write('BinaryFromVariantBinary type=%d',[lType]);
+    {$ENDIF DEBUG_REMOBJECTS_VARIANTS}
+    {$IFDEF ENDIAN_BIG}
+    t := EndianSafeWriteInteger(lType);
+    s := EndianSafeWriteInteger(lSize);
+    ioBinary.Write(t, sizeof(integer));
+    ioBinary.Write(s, sizeof(integer));
+    {$ELSE}
+    ioBinary.Write(lType, sizeof(integer));
+    ioBinary.Write(lSize, sizeof(integer));
+    {$ENDIF}
+    ioBinary.Write(p^,lSize);
+  finally
+    VarArrayUnlock(iVariant);
+  end;
+
+end;
+
+procedure WriteVariantArrayToBinary(const iVariant:OleVariant; ioBinary:TStream);
+var lLowBound,lHighBound:integer;
+    i:Integer;
+    lType:integer;
+    {$IFDEF ENDIAN_BIG}
+    lb, hb, t: integer;
+    {$ENDIF}
+begin
+  CheckVariant(iVariant);
+
+  lType := VarType(iVariant);
+  lLowBound := VarArrayLowBound(iVariant,1);
+  lHighBound := VarArrayHighBound(iVariant,1);
+  //l := VarArrayHighBound(iVariant,1)-VarArrayLowBound(iVariant,1)+1;
+
+  {$IFDEF DEBUG_REMOBJECTS_VARIANTS}
+  DebugServer.Write('WriteVariantArrayToBinary type=%d, bounds=%d..%d',[lType,lLowBound,lHighBound]);
+  {$ENDIF DEBUG_REMOBJECTS_VARIANTS}
+
+  {$IFDEF ENDIAN_BIG}
+  t := EndianSafeWriteInteger(lType);
+  lb := EndianSafeWriteInteger(lLowBound);
+  hb := EndianSafeWriteInteger(lHighBound);
+  ioBinary.Write(t, sizeof(integer));
+  ioBinary.Write(lb, sizeof(integer));
+  ioBinary.Write(hb, sizeof(integer));
+  {$ELSE}
+  ioBinary.Write(lType,sizeof(integer));
+  ioBinary.Write(lLowBound,sizeof(integer));
+  ioBinary.Write(lHighBound,sizeof(integer));
+  {$ENDIF}
+
+  for i := lLowBound to lHighBound do begin
+    WriteVariantToBinary(iVariant[i], ioBinary);
+  end;
+
+end;
+
+function VariantBinaryFromBinary(const iBinary:TStream):OleVariant;
+var p:pointer;
+    lSize:integer;
+begin
+  iBinary.Read(lSize, sizeof(integer));
+  {$IFDEF ENDIAN_BIG}
+  lSize := EndianSafeReadInteger(lSize);
+  {$ENDIF}
+  result := VarArrayCreate([0, lSize-1], varByte);
+  p := VarArrayLock(result);
+  try
+    iBinary.Read(p^,lSize);
+  finally
+    VarArrayUnlock(result);
+  end;
+end;
+
+
+
+function VariantArrayFromBinary(const iBinary:TStream; iType:word):OleVariant;
+var lLowBound,lHighBound:integer;
+    i:Integer;
+begin
+  iType := (iType and $fff);
+
+  iBinary.Read(lLowBound,sizeof(integer));
+  iBinary.Read(lHighBound,sizeof(integer));
+  {$IFDEF ENDIAN_BIG}
+  lLowBound := EndianSafeReadInteger(lLowBound);
+  lHighBound := EndianSafeReadInteger(lHighBound);
+  {$ENDIF}
+
+  result := VarArrayCreate([lLowBound,lHighBound],iType);
+
+  for i := lLowBound to lHighBound do begin
+    result[i] := ReadVariantFromBinary(iBinary);
+  end;
+
+end;
+
+{$IFDEF DEBUG_REMOBJECTS_VARIANTS}
+function TestVariant(iVariant:OleVariant):OleVariant;
+var
+  lBinary:Binary;
+begin
+  DebugServer.EnterMethod('Original varType '+IntToStr(VarType(iVariant)));
+  lBinary := BinaryFromVariant(iVariant);
+  try
+    result := VariantFromBinary(lBinary);
+    DebugServer.ExitMethod('Result  varType '+IntToStr(VarType(result)));
+  finally
+    FreeAndNil(lBinary);
+  end;
+end;
+{$ENDIF DEBUG_REMOBJECTS_VARIANTS}
+
+
+{-----------------------------------------------------------------------------}
+{ Conversion fromto Binary "Array of Bytes" Variants to other data types      }
+{ containing *just* the binary data, no additional type info.                 }
+{-----------------------------------------------------------------------------}
+
+{ Description:
+    Will read the *remainder* of the iBinary stream into a new
+    binary variant (aka array of bytes). }
+
+function VariantBinaryFromRawBinary(const iBinary:TStream):OleVariant;
+var p:pointer;
+    lSize:integer;
+begin
+  lSize := iBinary.Size-iBinary.Position;
+
+  result := VarArrayCreate([0,lSize-1],varByte);
+  p := VarArrayLock(result);
+  try
+    iBinary.Read(p^,lSize);
+  finally
+    VarArrayUnlock(result);
+  end;
+end;
+
+{ Description:
+    Will write the data from the binary variant (aka array of bytes) to the
+    current position of the iBinary stream. }
+procedure VariantBinaryToRawBinary(const iVariant:OleVariant; ioBinary:TStream);
+var
+  lSize:integer;
+  p:pointer;
+begin
+  if (VarType(iVariant)=varEmpty) then Exit;
+
+  CheckVariant(iVariant);
+
+  lSize := VarArrayHighBound(iVariant,1)-VarArrayLowBound(iVariant,1)+1;
+
+  p := VarArrayLock(iVariant);
+  try
+    ioBinary.Write(p^,lSize);
+  finally
+    VarArrayUnlock(iVariant);
+  end;
+
+end;
+
+function VariantToAnsiString(const iVariant:Variant):AnsiString;
+var
+  lSize:integer;
+  p:pointer;
+  ws: UnicodeString;
+begin
+  if (VarType(iVariant)=varEmpty) then Exit;
+  if not VarIsArray(iVariant) then begin
+    case VarType(iVariant) of
+      varOleStr, varUString: begin
+        {$IFDEF UNICODE}
+        ws := VarToStr(iVariant);
+        {$ELSE}
+        ws := VarToWideStr(iVariant);
+        {$ENDIF}
+        SetString(Result, PAnsiChar(PWideChar(ws)), Length(ws)*SizeOf(WideChar));
+      end;
+    else
+      Result:= VarToAnsiStr(iVariant);
+    end;
+    Exit;
+  end;
+
+  CheckVariant(iVariant);
+
+  lSize := VarArrayHighBound(iVariant,1)-VarArrayLowBound(iVariant,1)+1;
+
+  p := VarArrayLock(iVariant);
+  try
+    SetLength(result,lSize);
+    if lSize > 0 then
+      Move(p^,result[1],lSize);
+  finally
+    VarArrayUnlock(iVariant);
+  end;
+end;
+
+{ Description:
+    Will return the data from the binary variant (aka array of bytes) as a
+    binary AnsiString }
+function VariantBinaryToString(const iVariant:OleVariant):AnsiString;
+var
+  lSize:integer;
+  p:pointer;
+begin
+  if (VarType(iVariant)=varEmpty) then Exit;
+  if not VarIsArray(iVariant) then begin
+    Result:= VarToAnsiStr(iVariant);
+    Exit;
+  end;
+
+  CheckVariant(iVariant);
+
+  lSize := VarArrayHighBound(iVariant,1)-VarArrayLowBound(iVariant,1)+1;
+
+  p := VarArrayLock(iVariant);
+  try
+    SetLength(result,lSize);
+    if lSize > 0 then
+      Move(p^,result[1],lSize);
+  finally
+    VarArrayUnlock(iVariant);
+  end;
+
+end;
+
+function Stream_ReadUTF8StringWithLength(iStream:TStream; iMaxLength:integer=-1): UTF8string;
+var lLength:integer;
+    lBytesRead:Integer;
+begin
+  lBytesRead := iStream.Read(lLength, sizeof(lLength));
+  {$IFDEF ENDIAN_BIG}
+  lLength := EndianSafeReadInteger(lLength);
+  {$ENDIF}
+  if lBytesRead <> sizeof(lLength) then RaiseError(err_UnexpectedEndOfStream,[]);
+
+  if (iMaxLength > -1) and (lLength > iMaxLength) then
+    RaiseError(err_InvalidStringLength,[lLength]);
+
+  SetLength(Result, lLength);
+  if (lLength > 0) then iStream.Read(pointer(Result)^, lLength);
+end;
+
+procedure Stream_WriteUTF8StringWithLength(iStream:TStream; const iString: UTF8string);
+var
+  lLength:integer;
+{$IFDEF ENDIAN_BIG}
+  l: integer;
+{$ENDIF}
+begin
+  lLength := Length(iString);
+  {$IFDEF ENDIAN_BIG}
+  l := EndianSafeWriteInteger(lLength);
+  iStream.Write(l, SizeOf(integer));
+  {$ELSE}
+  iStream.Write(lLength, SizeOf(integer));
+  {$ENDIF}
+  if (lLength > 0) then iStream.Write(pointer(iString)^, lLength);
+end;
+
+function Stream_ReadStringWithLength(iStream:TStream; iMaxLength:integer=-1): string;
+begin
+  Result:= UTF8ToString(Stream_ReadUTF8StringWithLength(iStream,iMaxLength));
+end;
+
+procedure Stream_WriteStringWithLength(iStream:TStream; const iString: string);
+begin
+  Stream_WriteUTF8StringWithLength(iStream,UTF8Encode(iString));
+end;
+
+var
+  numbers: array[0..9] of char = '0123456789';
+
+function DecimalToString(const aDecimal: TDecimal; aDot: Char): string;
+var
+  modres: Integer;
+  d: Int64;
+  pos: Integer;
+  scale: Integer;
+  sign: Boolean;
+  aDec: TDecimal;
+  aResult: array[0..31] of Char;
+begin
+  aDec := aDecimal;
+  sign := (aDecimal[3] and $80000000) <> 0;
+  scale := (aDecimal[3] and $FF0000) shr 16;
+  pos := 31;
+  while (aDec[0] <> 0) or (aDec[1] <> 0) or (aDec[2] <> 0) or (31 - pos < scale) do begin
+    modres := 0;
+    d := Int64(Int64(ModRes) shl 32) or aDec[2];
+    ModRes := d mod 10;
+    aDec[2] := d div 10;
+    d := Int64(Int64(ModRes) shl 32) or aDec[1];
+    ModRes := d mod 10;
+    aDec[1] := d div 10;
+    d := Int64(Int64(ModRes) shl 32) or aDec[0];
+    ModRes := d mod 10;
+    aDec[0] := d div 10;
+
+    aResult[pos] := numbers[Modres];
+    Dec(pos);
+    if 31 - pos = scale then begin
+      aresult[pos] := aDot;
+      dec(pos);
+      if (aDec[0] = 0) and (aDec[1] = 0) and (aDec[2] = 0) then begin
+        aresult[pos] := '0';
+        dec(pos);
+      end;
+    end;
+  end;
+  if pos = 31 then begin result := '0'; exit; end;
+  if sign then begin
+    aResult[pos] := '-';
+    dec(pos);
+  end;
+  SetString(Result, pchar(@aResult[pos+1]), 31-Pos);
+end;
+
+resourcestring
+  SInvalidDecimal = 'Cannot convert empty string to decimal value';
+
+function StringToDecimal(const aString: string; aDot: Char): TDecimal;
+var
+  scalepos, pos, i: Integer;
+  mulres: Integer;
+  d: Int64;
+  aRes: TDecimal;
+begin
+  if Astring = '' then EConvertError.CreateRes(@SInvalidDecimal);
+  Fillchar(aRes, sizeof(aRes), 0);
+  pos := 0;
+  scalepos := -1;
+  for i := 1 to Length(aString) do begin
+    mulres := 0;
+    case aString[i] of
+      '0': ; // already set
+      '1': mulres := 1;
+      '2': mulres := 2;
+      '3': mulres := 3;
+      '4': mulres := 4;
+      '5': mulres := 5;
+      '6': mulres := 6;
+      '7': mulres := 7;
+      '8': mulres := 8;
+      '9': mulres := 9;
+      else begin
+        if aString[i] = '-' then begin
+          aRes[3] := aRes[3] or $80000000;
+          continue;
+        end else if aString[i] = aDot then begin
+          if scalepos = -1 then
+          scalepos := pos;
+          continue;
+        end else
+          continue; // ignore invalid chars for now
+      end;
+    end;
+    d := Int64(aRes[0]) * 10 + mulres;
+    mulres := d shr 32;
+    aRes[0] := d;
+    d := Int64(aRes[1]) * 10 + mulres;
+    mulres := d shr 32;
+    aRes[1] := d;
+    aRes[2] := Int64(aRes[2]) * 10 + mulres;
+    Inc(pos);
+  end;
+  if scalepos <> -1 then begin
+    pos:= pos - scalepos;
+    aRes[3] := aRes[3] or Cardinal(Pos shl 16);
+  end;
+  Result := aRes;
+end;
+
+
+function BCDToDecimal(const aBcd: TBcd): TDecimal;
+begin
+  Result := StringToDecimal(BcdToStr(aBcd), DecimalSeparator);
+end;
+
+function DecimalToBCD(const aDecimal: TDecimal): TBcd;
+begin
+  Result := StrToBcd(DecimalToString(aDecimal, DecimalSeparator));
+end;
+
+function DecimalToVarByteArray(const aDecimal: TDecimal): Variant;
+var
+  p: Pointer;
+begin
+  Result := VarArrayCreate([0,SizeOf(TDecimal)-1],varByte);
+  p := VarArrayLock(Result);
+  try
+    move(PDecimal(@aDecimal)^, p^ ,SizeOf(TDecimal));
+  finally
+    VarArrayUnlock(Result);
+  end;
+end;
+
+function VarByteArrayToDecimal(const aVariant: Variant; var aDecimal: TDecimal): Boolean;
+var
+  p: Pointer;
+begin
+  Result:= False;
+  if (VarType(aVariant) = varByte or varArray) and
+     (VarArrayDimCount(aVariant) = 1) and
+     (VarArrayHighBound(aVariant,1)-VarArrayLowBound(aVariant,1)+1 = SizeOf(TDecimal)) then begin
+    p := VarArrayLock(aVariant);
+    try
+      move(p^, PDecimal(@aDecimal)^, SizeOf(TDecimal));
+    finally
+      VarArrayUnlock(aVariant);
+    end;
+    Result:=True;
+  end;
+end;
+
+function DecimalToVariant(const aDecimal: TDecimal): Variant;
+begin
+  Result := DecimalToVarByteArray(aDecimal);
+end;
+
+function VariantToDecimal(const aVariant: Variant): TDecimal;
+var
+  s: string;
+begin
+  if VarIsNull(aVariant) then
+    FillChar(PDecimal(@result)^,SizeOf(Result),0)
+  else if not VarByteArrayToDecimal(aVariant,Result) then begin
+    if VarIsFMTBcd(aVariant) then
+      s:=BcdToStr(VarToBcd(aVariant))
+    else
+      s:=VarToStr(aVariant);
+    Result:=StringToDecimal(s, DecimalSeparator);
+  end;
+end;
+
+function VariantToBCD(const aVariant: Variant): TBCD;
+var
+  aDecimal: TDecimal;
+  s: string;
+begin
+  if VarIsNull(aVariant) then
+    Result := NullBcd
+  else if VarByteArrayToDecimal(aVariant,aDecimal) then
+    Result:=DecimalToBCD(aDecimal)
+  else begin
+    if VarIsFMTBcd(aVariant) then
+      Result := VarToBcd(aVariant)
+    else begin
+      s := VarToStr(aVariant);
+      ReplaceChar(s, ['.', ','], DecimalSeparator);
+      Result:= StrToBcd(s);
+    end;
+  end;
+end;
+
+function BCDToVariant(const aBCD: TBCD; const StoreAsDecimal: Boolean): Variant;
+begin
+  if StoreAsDecimal then
+    Result := DecimalToVarByteArray(BCDToDecimal(aBCD))
+  else
+    Result := VarFMTBcdCreate(aBCD);
+end;
+
+function DecimalVariantToString(const aVariant: Variant): string;
+var
+  lDecimal: TDecimal;
+begin
+  if VarByteArrayToDecimal(aVariant,lDecimal) then
+    Result := DecimalToString(lDecimal,DecimalSeparator)
+  else
+    Result := VarToStr(aVariant);
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBroadcastChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBroadcastChannel.pas
new file mode 100644
index 0000000..903825c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBroadcastChannel.pas	
@@ -0,0 +1,259 @@
+unit uROBroadcastChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Provided by Nico Schoemaker (nico.schoemaker@teamro.remobjects.com)        }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, {ContNrs,} SysUtils,
+  uROIndyUDPChannel, uROClasses;
+
+type
+
+  IROBroadcastNotification = interface
+    ['{5C18A885-76D2-40D2-9529-CC81B00E7C99}']
+    procedure ResponseReceived(ServerIP, ResponseUID: string);
+  end;
+
+  TROBCResponseThread = class(TROUDPResponseThread)
+  private
+  protected
+    procedure Execute; override;
+  public
+  end;
+
+  TROResponseReceivedEvent = procedure(ServerIP, ResponseUID: string) of object;
+
+  TROBroadcastChannel = class(TROIndyUDPChannel)
+  private
+    FNotifyList: TROInterfaceRegistry;
+    FGetServerGUID: string;
+    FOnBroadcastResponseReceived: TROResponseReceivedEvent;
+    procedure SetOnBroadcastResponseReceived(const Value: TROResponseReceivedEvent);
+
+  protected
+    procedure NotifyListners(aServerIP, aResponseUID: string);
+    procedure Loaded; override;
+    procedure SendReq(aRequest: TStream; UID: string; AddToStorage: Boolean = true); override;
+    function GetResponseThreadClass: TROUDPResponseThreadClass; override;
+    procedure DoEndOfThread(Sender: TROUDPResponseThread); override;
+  public
+    procedure RegisterResponseListner(aListner: IROBroadcastNotification);
+    procedure UnRegisterResponseListner(aListner: IROBroadcastNotification);
+    function ReceiveResp(aTimeOut: Integer): Boolean; override;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; override;
+    procedure Assign(aSource : TPersistent); override;
+  published
+    property OnBroadcastResponseReceived: TROResponseReceivedEvent read FOnBroadcastResponseReceived write SetOnBroadcastResponseReceived;
+  end;
+
+implementation
+
+uses uROClient, uROStreamUtils, uROAsyncResponseStorage, idGlobal;
+
+procedure TROBroadcastChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROBroadcastChannel;
+begin
+  inherited;
+  if aSource is TROBroadcastChannel then begin
+    lSource := TROBroadcastChannel(aSource);
+    OnBroadcastResponseReceived := lSource.OnBroadcastResponseReceived;
+  end;
+end;
+
+procedure TROBroadcastChannel.CheckProperties;
+begin
+  // host can be empty
+  // inherited;
+end;
+
+constructor TROBroadcastChannel.Create(AOwner: TComponent);
+begin
+  inherited;
+  FGetServerGUID := '';
+  FNotifyList := TROInterfaceRegistry.Create(IROBroadcastNotification);
+end;
+
+destructor TROBroadcastChannel.Destroy;
+begin
+  inherited;
+  FreeAndNil(FNotifyList);
+end;
+
+procedure TROBroadcastChannel.SendReq(aRequest: TStream; UID: string; AddToStorage: Boolean = true);
+var
+  lReq: Ansistring;
+begin
+  lReq := Strm_StreamToStr(aRequest);
+  // Sends the Message identifier in front of the actual message
+  IndyClient.Broadcast(UID + {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(lReq), IndyClient.Port);
+  if AddToStorage then
+    AddRequestToStorage(aRequest, UID);
+end;
+
+procedure TROBroadcastChannel.Loaded;
+begin
+  inherited;
+  Self.IndyClient.BroadcastEnabled := True;
+end;
+
+function TROBroadcastChannel.GetResponseThreadClass: TROUDPResponseThreadClass;
+begin
+  result := TROBCResponseThread;
+end;
+
+procedure TROBroadcastChannel.RegisterResponseListner(aListner: IROBroadcastNotification);
+begin
+  if not (Assigned(aListner)) then
+    Exit;
+  FNotifyList.Register(aListner);
+end;
+
+procedure TROBroadcastChannel.UnRegisterResponseListner(aListner: IROBroadcastNotification);
+begin
+  if not (Assigned(aListner)) then
+    Exit;
+  FNotifyList.Unregister(aListner);
+end;
+
+procedure TROBroadcastChannel.NotifyListners(aServerIP, aResponseUID: string);
+var
+  i: Integer;
+begin
+  for i := 0 to FNotifyList.Count - 1 do
+    IROBroadcastNotification(FNotifyList[i]).ResponseReceived(aServerIP, aResponseUID);
+end;
+
+procedure TROBroadcastChannel.DoEndOfThread(Sender: TROUDPResponseThread);
+var
+  lUID: string;
+  lResItm: TROResponseItem;
+begin
+  try
+    lUID := Sender.RequestUID;
+    if (Sender.ReceivedResponse) and
+      ((Assigned(FOnBroadcastResponseReceived)) or (FNotifyList.Count > 0)) then begin
+      while CheckStatus(lUID) do begin
+        // Atention, the event handler is supposed to process the response
+        // Processing the response will remove the response automaticly
+        lResItm := ResponseStorage.GetRespByUID(lUID);
+        if Assigned(lResItm) then       {// to be sure} begin
+          NotifyListners(lResItm.IP, lResItm.UID);
+          if Assigned(FOnBroadcastResponseReceived) then
+            FOnBroadcastResponseReceived(lResItm.IP, lResItm.UID);
+          // Remove the response in case the user didn't process it.
+          // If it is already gone , no harm is done
+          ResponseStorage.RemoveResp(lResItm);
+        end;
+      end;
+    end;
+
+  finally
+    RequestStorage.RemoveRespByUID(lUID);
+    inherited;
+  end;
+end;
+
+procedure TROBroadcastChannel.SetOnBroadcastResponseReceived(const Value: TROResponseReceivedEvent);
+begin
+  FOnBroadcastResponseReceived := Value;
+end;
+
+{-----------------------------------------------------------------------------
+  Procedure: TROBroadcastChannel.ReceiveResp
+  Author:    Nico
+  Date:      23-apr-2003
+  Arguments: aTimeOut: Integer
+  Result:    Boolean
+  Keeps reading from the socket until a read time out occurs
+-----------------------------------------------------------------------------}
+
+function TROBroadcastChannel.ReceiveResp(aTimeOut: Integer): Boolean;
+var
+  lBuf: Ansistring;
+  lID: string;
+  lResItm: TROResponseItem;
+  lResp: TROBinaryMemoryStream;
+  lIP: string;
+{$IFDEF RemObjects_INDY10}
+    lPort: TIDPort;
+    LBuffer : TIdBytes;
+    i: integer;
+{$ELSE}
+    lPort: Integer;
+{$ENDIF}
+begin
+  {$IFDEF RemObjects_INDY10}
+  SetLength(LBuffer, IndyClient.BufferSize);
+  {$ENDIF}
+  FCriticalSection.Enter;
+  try
+    result := False;
+    lPort := 0;
+    lIP := '';
+    repeat
+      {$IFDEF RemObjects_INDY10}
+      SetLength(LBuffer, IndyClient.BufferSize);
+      i:=IndyClient.ReceiveBuffer(LBuffer, lIP,lPort,aTimeOut);
+      SetLength(lBuf, i);
+      Move(lBuffer[0],pointer(lbuf)^,i);
+      {$ELSE}
+      lBuf := IndyClient.ReceiveString(lIP,lPort,aTimeOut);
+      {$ENDIF}
+      if lBuf <> '' then begin
+        lID := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(StripID(lBuf));
+        lResp := TROBinaryMemoryStream.Create(lBuf);
+        lResItm := TROResponseItem.Create(lResp, lID);
+        lResItm.IP := lIP;
+        lResItm.Port := lPort;
+        ResponseStorage.AddResp(lResItm);
+        result := True;
+      end;
+    until lBuf = '';
+  finally
+    FCriticalSection.Leave;
+  end;
+end;
+
+//------------------------------------------------------------------------------
+                               { TROBCResponseThread }
+//------------------------------------------------------------------------------
+
+procedure TROBCResponseThread.Execute;
+begin
+  {$IFDEF RemObjects_SetThreadName}
+  SetName(Name);
+  {$ENDIF}
+
+  Channel.ReceiveResp(Channel.AsyncTimeOut);
+  FRespReceived := Channel.CheckStatus(RequestUID);
+
+  if not FRespReceived then
+    Synchronize(DoTimeOut)
+  else
+    Synchronize(DoEnd);
+end;
+
+initialization
+  RegisterTransportChannelClass(TROBroadcastChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROBroadcastChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBroadcastServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBroadcastServer.pas
new file mode 100644
index 0000000..e4d7e0b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROBroadcastServer.pas	
@@ -0,0 +1,177 @@
+unit uROBroadcastServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Provided by Nico Schoemaker (nico.schoemaker@teamro.remobjects.com)        }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, Sysutils,
+  IdSocketHandle, IdGlobal,{$IFDEF RemObjects_INDY10C}IdUDPServer,{$ENDIF}
+  uROIndyUDPServer;
+
+type
+  TROBroadcastTransport = class(TROIndyUDPTransport)
+  end;
+
+  TROBroadcastServer = class(TROIndyUDPServer)
+  private
+    FOnRORequest: TNotifyEvent;
+    FUIDCnt: Integer;
+    FLastMessage: Ansistring;
+
+    procedure SetOnRORequest(const Value: TNotifyEvent);
+
+  protected
+    {$IFDEF RemObjects_INDY10C}
+    procedure InternalUDPRead(Sender: TIdUDPListenerThread; AData: TIdBytes; ABinding: TIdSocketHandle); override;
+    {$ELSE}
+    {$IFDEF RemObjects_INDY10}
+    procedure InternalUDPRead(Sender: TObject; AData: TIdBytes; ABinding: TIdSocketHandle); override;
+    {$ELSE}
+    procedure InternalUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); override;
+    {$ENDIF}
+    {$ENDIF}
+    function GetTransportClass: TROIndyUDPTransportClass; override;
+    procedure Loaded; override;
+    
+  public
+    constructor Create(AOwner: TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property OnRORequest: TNotifyEvent read FOnRORequest write SetOnRORequest;
+  end;
+
+implementation
+
+{ TROBroadcastServer }
+
+uses
+  uROServer, uROClasses, uROClientIntf, uROServerIntf;
+
+procedure TROBroadcastServer.Assign(Source: TPersistent);
+var
+  lSource: TROBroadcastServer;
+begin
+  inherited;
+  if Source is TROBroadcastServer then begin
+    lSource := TROBroadcastServer(Source);
+    OnRORequest := lSource.OnRORequest;
+  end;
+end;
+
+constructor TROBroadcastServer.Create(AOwner: TComponent);
+begin
+  inherited;
+  // In case implementation of NewStrippedGuidAsString changes
+  FUIDCnt := Length(NewGuidAsString);
+  FLastMessage := '';
+end;
+
+{$IFDEF RemObjects_INDY10C}
+procedure TROBroadcastServer.InternalUDPRead(Sender: TIdUDPListenerThread; AData: TIdBytes; ABinding: TIdSocketHandle); 
+{$ELSE}
+{$IFDEF RemObjects_INDY10}
+procedure TROBroadcastServer.InternalUDPRead(Sender: TObject; AData: TIdBytes; ABinding: TIdSocketHandle);
+{$ELSE}
+procedure TROBroadcastServer.InternalUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
+{$ENDIF}
+{$ENDIF}
+var
+  lResp: TROBinaryMemoryStream;
+  lReq: TMemoryStream;
+  lRespS: AnsiString;
+  lTransport: IROTCPTransport;
+  lMesgID: AnsiString;
+  lRespOpt: TROResponseOptions;
+  lStream: TStream;
+{$IFDEF RemObjects_INDY10}
+    b : TIdBytes;
+{$ENDIF}
+begin
+  {$IFDEF RemObjects_INDY10}
+  lStream := TMemoryStream.Create();
+  WriteTIdBytesToStream(lStream, AData);
+  lStream.Position := 0;
+  try
+  {$ELSE}
+  lStream := AData;
+  {$ENDIF}
+
+  lMesgID := GetMessageID(lStream);
+
+  if FLastMessage <> lMesgID then
+  begin
+    FLastMessage := lMesgID;
+    if Assigned(FOnRORequest) then
+      FOnRORequest(Self);
+
+    lResp := TROBinaryMemoryStream.Create('');
+    lReq := nil;
+    try
+      lReq := FormatDispStream(lStream);
+      if Assigned(lReq) then  // lReq becomes nil if not a valid (RO) AData Stream
+      begin
+        lTransport := GetTransportClass.Create(Self,ABinding);
+        DispatchMessage(lTransport, lReq, lResp,lRespOpt);
+        if not(roNoResponse in lRespOpt) then
+        begin
+          lRespS := lMesgID+lResp.ToString;
+          {$IFDEF RemObjects_INDY10}
+          SetLength(b,Length(lRespS));
+          Move(pointer(lRespS)^, b[0], Length(lRespS));
+          ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, b);
+          {$ELSE}
+          ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, lRespS[1], Length(lRespS));
+          {$ENDIF}
+        end;
+      end;
+    finally
+      if Assigned(lReq) then
+        lReq.Free;
+      lResp.Free;
+    end;
+  end;
+  {$IFDEF RemObjects_INDY10}
+  finally
+    FreeAndNil(lStream);
+  end;
+  {$ENDIF}
+end;
+
+function TROBroadcastServer.GetTransportClass: TROIndyUDPTransportClass;
+begin
+  result := TROBroadcastTransport
+end;
+
+procedure TROBroadcastServer.SetOnRORequest(const Value: TNotifyEvent);
+begin
+  FOnRORequest := Value;
+end;
+
+procedure TROBroadcastServer.Loaded;
+begin
+  inherited;
+  IndyUDPServer.BroadcastEnabled := True;
+end;
+
+initialization
+  RegisterServerClass(TROBroadcastServer);
+finalization
+  UnregisterServerClass(TROBroadcastServer);
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROCOMInit.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROCOMInit.pas
new file mode 100644
index 0000000..12ac239
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROCOMInit.pas	
@@ -0,0 +1,31 @@
+unit uROCOMInit;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+implementation
+
+{$IFDEF MSWINDOWS}
+uses ActiveX;
+
+initialization
+  CoInitializeEx(nil,COINIT_MULTITHREADED);
+
+finalization
+  CoUninitialize;
+{$ENDIF}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClassFactories.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClassFactories.pas
new file mode 100644
index 0000000..8ee53d8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClassFactories.pas	
@@ -0,0 +1,520 @@
+unit uROClassFactories;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses 
+     SysUtils, SyncObjs, Contnrs, Classes,
+     uROServer, uROThread, uROClasses, uROTypes,uROServerIntf;
+
+type
+  { TROSingletonClassFactory }
+  TROSingletonClassFactory = class(TROClassFactory)
+  private
+    fInstance : IInterface;
+
+  protected
+    procedure CreateInstance(const aClientID : TGUID; out anInstance : IInterface); override;
+    procedure ReleaseInstance(const aClientID: TGUID; var anInstance : IInterface); override;
+  public
+  end;
+
+  { TROSynchronizedSingletonClassFactory }
+  TROSynchronizedSingletonClassFactory = class(TROSingletonClassFactory)
+  private
+    fCriticalSection:TCriticalSection;
+  protected
+    procedure CreateInstance(const aClientID : TGUID; out anInstance : IInterface); override;
+    procedure ReleaseInstance(const aClientID: TGUID; var anInstance : IInterface); override;
+  public
+    constructor Create(const anInterfaceName : string;
+                       aCreatorFunc : TRORemotableCreatorFunc;
+                       anInvokerClass : TROInvokerClass);
+    destructor Destroy; override;
+  end;
+
+  TROPoolInterfaceEntry = record
+    fInterface:IInterface;
+    fInUse:Boolean;
+  end;
+
+  EROPoolNoFreeObjects = class(EROException);
+
+  TROPoolBehavior = (pbFail, pbWait, pbCreateAdditional);
+
+  { TROPooledClassFactory }
+  TROPooledClassFactory = class(TROClassFactory,IROPooledClassFactory)
+  private
+    fInstances : array of TROPoolInterfaceEntry;
+    fCriticalSection:TCriticalSection;
+    fPoolBehavior:TROPoolBehavior;
+    fPoolSize:Integer;
+    //,fLastInc : integer;
+
+  protected
+    procedure CreateInstance(const aClientID : TGUID; out anInstance : IInterface); override;
+    procedure ReleaseInstance(const aClientID: TGUID; var anInstance : IInterface); override;
+
+  public
+    constructor Create(const anInterfaceName : string;
+                       aCreatorFunc : TRORemotableCreatorFunc;
+                       anInvokerClass : TROInvokerClass;
+                       aPoolSize : Integer;
+                       aPoolBehavior:TROPoolBehavior=pbCreateAdditional;
+                       aPreInitializePool:Boolean=false);
+    destructor Destroy; override;
+    procedure ClearPool();
+  end;
+
+  { TROPerClientClassFactory }
+  TClientInstance = class
+    ServerObject:IInterface;
+    ClientID:TGUID;
+    LastAccess:TDateTime;
+  end;
+
+  TROPerClientClassFactory = class;
+
+  { TROPerClientClassFactory_TimeoutThread }
+  TROPerClientClassFactory_TimeoutThread = class(TROThread)
+  private
+    fOwner:TROPerClientClassFactory;
+    fTimeoutSeconds:Integer;
+    fWakeUp:TROEvent;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(iOwner:TROPerClientClassFactory; iTimeoutSeconds:integer);
+    destructor Destroy; override;
+  end;
+
+  IROPerClientClassFactory = interface
+    ['{43D43745-A9F7-4194-825B-0E238902C153}']
+    procedure TimeoutSession(const aClientId: TGuid);
+    procedure TimeoutSessions();
+  end;
+  { TROPerClientClassFactory }
+  TROPerClientClassFactory = class(TROClassFactory, IROPerClientClassFactory)
+  private
+    fInstances:TObjectList;
+    fCriticalSection:TCriticalSection;
+    fTimeoutThread:TROPerClientClassFactory_TimeoutThread;
+    fTimeoutSeconds:Integer;
+
+  protected
+    procedure CreateInstance(const aClientID : TGUID; out anInstance : IInterface); override;
+    procedure ReleaseInstance(const aClientID: TGUID; var anInstance : IInterface); override;
+
+  public
+    constructor Create(const anInterfaceName : string;
+                       aCreatorFunc : TRORemotableCreatorFunc;
+                       anInvokerClass : TROInvokerClass;
+                       aTimeoutSeconds:cardinal);
+    destructor Destroy; override;
+
+    procedure TimeoutSession(const aClientId: TGuid);
+    class procedure TimeoutAllSessions(const aClientId: TGuid);
+    procedure TimeoutSessions();
+  end;
+
+implementation
+
+uses {$IFDEF DELPHI5}ActiveX, Windows, {$ENDIF} // for IsEqualGuid and Sleep
+     {$IFDEF DEBUG_REMOBJECTS_CLASSFACTORIES}eDebugServer, {$ENDIF}
+      uROClient, uRORes;
+
+const POOL_SLEEP_MS_WHILE_WAITING = 500; { sleep 0.5 seconds between trys while waiting for a pooled
+                                           instance to become free } 
+
+{ TROSingletonClassFactory }
+
+procedure TROSingletonClassFactory.CreateInstance(const aClientID: TGUID; out anInstance: IInterface);
+begin
+  if (fInstance=NIL)
+    then inherited CreateInstance(aClientID, fInstance);
+
+  anInstance := fInstance;
+end;
+
+procedure TROSingletonClassFactory.ReleaseInstance(const aClientID: TGUID; var anInstance: IInterface);
+begin
+  //DeactivateInstance(aClientID,anInstance);
+  { Do nothing else, since we want to keep instance alive }
+end;
+
+{ TROPooledClassFactory }
+
+constructor TROPooledClassFactory.Create(const anInterfaceName: string;
+  aCreatorFunc: TRORemotableCreatorFunc; anInvokerClass: TROInvokerClass;
+  aPoolSize : Integer; aPoolBehavior:TROPoolBehavior=pbCreateAdditional; aPreInitializePool:Boolean=false);
+var i : integer;
+begin
+  inherited Create(anInterfaceName, aCreatorFunc, anInvokerClass);
+
+  fCriticalSection := TCriticalSection.Create();
+
+  SetLength(fInstances, aPoolSize);
+  fPoolSize := aPoolSize;
+  fPoolBehavior := aPoolBehavior;
+
+  if fPoolSize < 1 then RaiseError(err_PoolSizeMustBe1orHigher,[]);
+    
+  //fLastInc := -1;
+  if aPreInitializePool then
+    for i := 0 to (fPoolSize-1) do inherited CreateInstance(EmptyGUID, fInstances[i].fInterface);
+end;
+
+destructor TROPooledClassFactory.Destroy;
+var i : integer;
+begin
+  for i := Low(fInstances) to High(fInstances) do fInstances[i].fInterface := nil;
+  FreeAndNil(fCriticalSection);
+  inherited;
+end;
+
+procedure TROPooledClassFactory.CreateInstance(const aClientID : TGUID; out anInstance : IInterface);
+var i:Integer;
+    //, refcnt : integer;
+begin
+  anInstance := nil;
+
+  repeat
+
+    fCriticalSection.Acquire();
+    try
+
+      for I := 0 to fPoolSize-1 do begin
+        if not fInstances[i].fInUse then begin
+
+          { is this pool instance initialized yet? if not, create pool instance now }
+          if not Assigned(fInstances[i].fInterface) then
+            inherited CreateInstance(EmptyGUID, fInstances[i].fInterface);
+
+          { return instance and break loop }
+          anInstance := fInstances[i].fInterface;
+          fInstances[i].fInUse := True;
+          break;
+
+        end;
+      end; { for }
+
+    finally
+      fCriticalSection.Release();
+    end;
+
+    if not Assigned(anInstance) then
+      case fPoolBehavior of
+        pbFail:raise EROPoolNoFreeObjects.CreateFmt(err_NoFreeObjectsInPool,[GetInterfaceName, fPoolSize]);
+        pbWait:Sleep(POOL_SLEEP_MS_WHILE_WAITING);
+        pbCreateAdditional:inherited CreateInstance(EmptyGUID, anInstance);
+      end; { case }
+
+  until (fPoolBehavior <> pbWait) or (Assigned(anInstance));
+
+  //if Assigned(anInstance) then ActivateInstance(aClientID,anInstance);
+
+  //i := fLastInc;
+  {while (anInstance=NIL) do try
+    if (i>=fPoolSize-1) then i := 0 else Inc(i);
+
+    refcnt := fInstances[i]._AddRef;
+    if (refcnt=2) then begin
+      anInstance := fInstances[i];
+      fLastInc := i;
+    end;
+  finally
+    fInstances[i]._Release;
+  end;}
+end;
+
+procedure TROPooledClassFactory.ClearPool;
+var i:Integer;
+begin
+  fCriticalSection.Acquire();
+  try
+
+    for i := 0 to fPoolSize-1 do begin
+      fInstances[i].fInUse := false;
+      fInstances[i].fInterface := nil;
+    end; { for }
+
+  finally
+    fCriticalSection.Release();
+  end;
+end;
+
+
+procedure TROPooledClassFactory.ReleaseInstance(const aClientID: TGUID; var anInstance: IInterface);
+var i:Integer;
+begin
+  //DeactivateInstance(aClientID,anInstance);
+
+  fCriticalSection.Acquire();
+  try
+
+    for i := 0 to fPoolSize-1 do begin
+      if fInstances[i].fInterface = anInstance then begin
+
+        { return instance and break loop }
+        anInstance := nil;
+        fInstances[i].fInUse := false;
+        break;
+
+      end;
+    end;    { for }
+
+  finally
+    fCriticalSection.Release();
+  end;
+
+  { still assigned? then we had a spare object created to serve this request. Just free it. }
+  if Assigned(anInstance) then anInstance := nil;
+end;
+
+{ TROSynchronizedSingletonClassFactory }
+
+constructor TROSynchronizedSingletonClassFactory.Create(const anInterfaceName: string; aCreatorFunc: TRORemotableCreatorFunc; anInvokerClass: TROInvokerClass);
+begin
+  inherited;
+  fCriticalSection := TCriticalSection.Create();
+end;
+
+destructor TROSynchronizedSingletonClassFactory.Destroy;
+begin
+  FreeAndNil(fCriticalSection);
+  inherited;
+end;
+
+procedure TROSynchronizedSingletonClassFactory.CreateInstance(const aClientID : TGUID; out anInstance : IInterface);
+begin
+  fCriticalSection.Enter();
+  inherited;
+end;
+
+procedure TROSynchronizedSingletonClassFactory.ReleaseInstance(const aClientID: TGUID; var anInstance: IInterface);
+begin
+  inherited;
+  fCriticalSection.Leave();
+end;
+
+{ TROPerClientClassFactory }
+
+constructor TROPerClientClassFactory.Create(const anInterfaceName: string;
+  aCreatorFunc: TRORemotableCreatorFunc; anInvokerClass: TROInvokerClass;
+  aTimeoutSeconds:cardinal);
+begin
+  inherited Create(anInterfaceName, aCreatorFunc, anInvokerClass);
+  fCriticalSection := TCriticalSection.Create;
+  fInstances := TObjectList.Create;
+  fTimeoutSeconds := aTimeoutSeconds;
+  fTimeoutThread := TROPerClientClassFactory_TimeoutThread.Create(Self, aTimeoutSeconds div 10);
+end;
+
+destructor TROPerClientClassFactory.Destroy;
+begin
+  fTimeoutThread.Free;
+  FreeAndNil(fInstances);
+  FreeAndNil(fCriticalSection);
+  inherited;
+end;
+
+procedure TROPerClientClassFactory.CreateInstance(const aClientID: TGUID;
+  out anInstance: IInterface);
+var i : integer;
+    instinfo : TClientInstance;
+begin
+  anInstance := NIL;
+
+  fCriticalSection.Enter();
+  try
+
+    for i := 0 to fInstances.Count-1 do
+      if IsEqualGUID(TClientInstance(fInstances[i]).ClientID, aClientID) then begin
+        anInstance := TClientInstance(fInstances[i]).ServerObject;
+        TClientInstance(fInstances[i]).LastAccess := Now();
+        Exit;
+      end;
+
+    //CreatorFunc(anInstance); // If not found the creates it
+    inherited CreateInstance(aClientID, anInstance);
+
+    instinfo := TClientInstance.Create;
+    instinfo.ServerObject := anInstance;
+    instinfo.ClientID := aClientID;
+    instinfo.LastAccess := Now();
+
+    fInstances.Add(instinfo)
+  finally
+    fCriticalSection.Leave();
+  end;
+end;
+
+procedure TROPerClientClassFactory.ReleaseInstance(const aClientID: TGUID; 
+  var anInstance: IInterface);
+var destcontr : IRODestructorController;
+    i : integer;
+begin
+  //DeactivateInstance(aClientID,anInstance);
+
+  if Supports(anInstance, IRODestructorController, destcontr) and destcontr.CanBeDestroyed then begin
+
+    fCriticalSection.Enter();
+    try
+      for i := 0 to fInstances.Count-1 do
+        if IsEqualGUID(TClientInstance(fInstances[i]).ClientID, aClientID) then begin
+          anInstance := NIL;
+          fInstances.Delete(i);
+          break;
+        end;
+    finally
+      fCriticalSection.Leave();
+    end;
+
+  end;
+end;
+
+procedure TROPerClientClassFactory.TimeoutSessions;
+var i:Integer;
+
+  function IsExpired(iInfo:TClientInstance):Boolean;
+  var lExpireTime:TDateTime;
+  const lSecsPerDay=24*60*60;
+  begin
+    lExpireTime := ((iInfo.LastAccess * lSecsPerDay) + fTimeoutSeconds) / lSecsPerDay;
+    Result := lExpireTime < Now();
+    {$IFDEF DEBUG_REMOBJECTS_CLASSFACTORIES}
+    DebugServer.Write('Instance for Client ID %s - Last accessed %s, expires %s (now is %s)',
+                      [GuidToString(iInfo.ClientID),
+                      DateTimeToStr(iInfo.LastAccess),
+                      DateTimeToStr(lExpireTime),
+                      DateTimeToStr(Now())]);
+    {$ENDIF DEBUG_REMOBJECTS_CLASSFACTORIES}
+  end;
+
+var lInstance:IInterface;
+    lObjectTimeout:IROObjectTimeout;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_CLASSFACTORIES}
+  DebugServer.EnterMethod('TROPerClientClassFactory.TimeoutSessions()'); try
+  DebugServer.Write('%d instances in class factory',[fInstances.Count]);
+  {$ENDIF DEBUG_REMOBJECTS_CLASSFACTORIES}
+
+  fCriticalSection.Enter();
+  try
+
+    for i := fInstances.Count-1 downto 0 do
+      if IsExpired(TClientInstance(fInstances[i])) then begin
+        {$IFDEF DEBUG_REMOBJECTS_CLASSFACTORIES}
+        DebugServer.Write('Expired PerClient instance for %s',[GuidToString(TClientInstance(fInstances[i]).ClientID)]);
+        {$ENDIF DEBUG_REMOBJECTS_CLASSFACTORIES}
+
+        lInstance := (fInstances[i] as TClientInstance).ServerObject;
+        if Supports(lInstance,IROObjectTimeout,lObjectTimeout) then
+          lObjectTimeout.OnTimeout();
+        lInstance := nil;
+
+        fInstances.Delete(i);
+      end;
+
+  finally
+    fCriticalSection.Leave();
+  end;
+
+  {$IFDEF DEBUG_REMOBJECTS_CLASSFACTORIES}
+  finally DebugServer.ExitMethod('TROPerClientClassFactory.TimeoutSessions()'); end;
+  {$ENDIF DEBUG_REMOBJECTS_CLASSFACTORIES}
+end;
+
+procedure TROPerClientClassFactory.TimeoutSession(const aClientId: TGuid);
+var i:Integer;
+
+var lInstance:IInterface;
+    lObjectTimeout:IROObjectTimeout;
+begin
+  fCriticalSection.Enter();
+  try
+    for i := fInstances.Count-1 downto 0 do
+      if IsEqualGUID(TClientInstance(fInstances[i]).ClientID, aClientID) then begin
+
+        lInstance := (fInstances[i] as TClientInstance).ServerObject;
+        if Supports(lInstance,IROObjectTimeout,lObjectTimeout) then
+          lObjectTimeout.OnTimeout();
+        lInstance := nil;
+
+        fInstances.Delete(i);
+      end;
+
+  finally
+    fCriticalSection.Leave();
+  end;
+end;
+
+class procedure TROPerClientClassFactory.TimeoutAllSessions(
+  const aClientId: TGuid);
+var
+  lNames: IROStrings;
+  lPerClient: IROPerClientClassFactory;
+  i: Integer;
+begin
+  lNames := GetClassFactoryNames;
+  for i := 0 to lNames.Count -1 do begin
+    if Supports(GetClassFactory(lNames[i]), IROPerClientClassFactory, lPerClient) then begin
+      lPerClient.TimeoutSession(aClientId);
+    end;
+  end;
+end;
+
+{ TROPerClientClassFactory_TimeoutThread }
+
+constructor TROPerClientClassFactory_TimeoutThread.Create(iOwner: TROPerClientClassFactory; iTimeoutSeconds:integer);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False,'TROPerClientClassFactory_TimeoutThread');
+  {$ELSE}
+  inherited Create(True,'TROPerClientClassFactory_TimeoutThread');
+  {$ENDIF}
+  fWakeUp := TROEvent.Create(nil,False,False,'');
+  fOwner := iOwner;
+  fTimeoutSeconds := iTimeoutSeconds;
+  if fTimeoutSeconds < 10 then fTimeoutSeconds := 10;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TROPerClientClassFactory_TimeoutThread.Destroy();
+begin
+  Terminate();
+  fWakeUp.SetEvent();
+  inherited;                           
+  FreeAndNil(fWakeUp);
+end;
+
+procedure TROPerClientClassFactory_TimeoutThread.Execute;
+begin
+  while not Terminated do begin
+    fWakeUp.WaitFor(fTimeoutSeconds*1000); { WaitFor expects ms }
+    if not Terminated then begin
+      fOwner.TimeoutSessions();
+    end;
+  end;    { while }
+end;
+
+initialization
+  RegisterExceptionClass(EROPoolNoFreeObjects);
+finalization
+  UnregisterExceptionClass(EROPoolNoFreeObjects);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClasses.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClasses.pas
new file mode 100644
index 0000000..3325909
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClasses.pas	
@@ -0,0 +1,2593 @@
+unit uROClasses;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Variants,Classes, {$IFDEF MSWINDOWS} Windows, {$ENDIF} SyncObjs, SysUtils, TypInfo
+ {$IFNDEF MSWINDOWS},unixtype, baseunix, pthreads {$ENDIF}
+  ;
+
+const MinTimerMS = 100;
+var
+  ROInitializeThreads: Boolean = False;
+
+type TRODataType = (rtInteger, rtDateTime, rtDouble, rtCurrency, rtWidestring, rtString,
+                    rtInt64, rtBoolean, rtVariant, rtBinary, rtXML, rtGuid, rtDecimal,
+                    rtUTF8String, rtXsDateTime, rtUserDefined);
+     TRODataTypeMapping = record
+       Name: string;
+       NewType: TRODataType;
+     end;
+
+    DataTypeNames_Array = array[TRODataType] of string;
+    DataTypeRemapping_Array = array[0..0] of TRODataTypeMapping;
+const
+  DataTypeNames : DataTypeNames_Array = (
+        'Integer',
+        'DateTime',
+        'Double',
+        'Currency',
+        'WideString',
+        'AnsiString',
+        'Int64',
+        'Boolean',
+        'Variant',
+        'Binary',
+        'Xml',
+        'Guid',
+        'Decimal',
+        'Utf8String',
+        'XsDateTime',
+        '???');
+  DataTypeRemapping: DataTypeRemapping_Array =
+  (
+  //  (Name: 'Utf8String'; NewType: rtString)
+    (Name: '???'; NewType: rtUserDefined)
+  );
+
+const
+  wrSignaled = SyncObjs.wrSignaled;
+type
+  {$IFNDEF UNICODE}
+  UnicodeString = WideString;
+  {$ENDIF}
+  
+  {$IFDEF DELPHI5}
+  IInterface = IUnknown;
+  {$ENDIF DELPHI5}
+  {$IFNDEF MSWINDOWS}
+
+  TROEvent = class
+  private
+    FEvent: TSemaphore;
+  public
+    constructor Create(Dummy: Pointer; ManualReset, InitialVal: Boolean; Name: string);
+    destructor Destroy; override;
+    function WaitFor(Timeout: LongWord): TWaitResult;
+    procedure SetEvent;
+    procedure ResetEvent;
+  end;
+  {$ELSE}
+  TROEvent = TEvent;
+  {$ENDIF}
+  { IROStrings
+      Interface wrapper around a TStrings }
+  IROStrings = interface
+  ['{A96F7741-E9C4-4055-BF38-185B6063380C}']
+    function GetCount : integer;
+    function GetStringsObj : TStrings;
+
+    function GetValues(const Name: string): string;
+    procedure SetValues(const Name, Value: string);
+    function GetNames(Index: Integer): string;
+
+    function GetObject(Index: Integer): TObject;
+    procedure PutObject(Index: Integer; const Value: TObject);
+
+    function GetText : string;
+    procedure SetText(const Value : string);
+
+    function GetCommaText : string;
+    procedure SetCommaText(const Value : string);
+
+    function GetStrings(Index : integer) : string;
+    procedure SetStrings(Index : integer; const Value : string);
+
+    function GetSorted : boolean;
+    procedure SetSorted(aValue : boolean);
+    procedure CustomSort(Compare: TStringListSortCompare);
+
+    function GetDuplicates : TDuplicates;
+    procedure SetDuplicates(Value : TDuplicates);
+
+    function Add(const aString : string) : integer;
+    function AddObject(const aString: string; aObject: TObject): Integer;
+
+    procedure Insert(Index: Integer; const S: string);
+    procedure InsertObject(Index: Integer; const S: string; AObject: TObject);
+
+    procedure Delete(Index : integer);
+    function IndexOf(const aString : string) : integer;
+
+
+    function ExtractValue(const aName : string) : string;
+    function RenameName(const aName : string) : boolean;
+
+    function Find(const aString : string) : integer;
+
+    procedure Clear;
+
+    function IndexOfName(const aName : string) : integer;
+
+    procedure AddStrings(aList : TStrings);
+
+    property Count : integer read GetCount;
+    property Sorted : boolean read GetSorted write SetSorted;
+    property Duplicates: TDuplicates read GetDuplicates write SetDuplicates;
+    //property StringsObj : TStrings read GetStringsObj;
+    property Strings : TStrings read GetStringsObj;
+    property Values[const aName : string] : string read GetValues write SetValues;
+    property Names[Index : integer] : string read GetNames;
+    property StringAccess[Index : integer] : string read GetStrings write SetStrings; default;
+    property Text : string read GetText write SetText;
+    property CommaText : string read GetCommaText write SetCommaText;
+    property Objects[Index: Integer]: TObject read GetObject write PutObject;
+  end;
+
+  {$IFDEF DELPHI5}
+  TSeekOrigin = (soBeginning, soCurrent, soEnd); { Under Delphi 5 we can assume 0,1,m2 to be used }
+  {$ENDIF}
+
+  { IROStream
+      Interface wrapper around TStream }
+  IROStream = interface
+  ['{662BD786-2337-46DA-9F5C-FD226C2BBB13}']
+    function GetStreamObj : TStream;
+    function GetPosition: Int64;
+    procedure SetPosition(const aValue: Int64);
+    function GetSize: Int64;
+    procedure SetSize(const aValue: Int64);
+    function Read(var Buffer; Count: Longint): Longint;
+    function Write(const Buffer; Count: Longint): Longint;
+    function Seek(Offset: Longint; Origin: Word): Longint; overload;
+    function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload;
+    procedure ReadBuffer(var Buffer; Count: Longint);
+    procedure WriteBuffer(const Buffer; Count: Longint);
+    function ReadComponent(Instance: TComponent): TComponent;
+    procedure WriteComponent(Instance: TComponent);
+
+    property Stream : TStream read GetStreamObj;
+    property Position: Int64 read GetPosition write SetPosition;
+    property Size: Int64 read GetSize write SetSize;
+
+    procedure BeginUpdate;
+    procedure EndUpdate;
+    function InUpdateMode: Boolean;
+  end;
+
+  { IROIdentifiedInterface }
+  IROInterfaceWithID = interface
+  ['{048F42B5-D3E4-4BD5-9E72-16BF9FC01388}']
+    function GetID : string;
+  end;
+
+  { Forwards }
+  TROThreadTimer = class;
+
+  { Misc }
+  TStringArray = array of string;
+
+  { TROStrings }
+  TROStrings = class(TInterfacedObject, IROStrings)
+  private
+    fListRef : TStrings;
+    fOwnsList : boolean;
+
+  protected
+    // IROStrings
+    function GetCount : integer;
+    function GetStringsObj : TStrings;
+    function GetValues(const Name: string): string;
+    procedure SetValues(const Name, Value: string);
+    function GetNames(Index: Integer): string;
+    function GetStrings(Index : integer) : string;
+    procedure SetStrings(Index : integer; const Value : string);
+
+    function GetObject(Index: Integer): TObject;
+    procedure PutObject(Index: Integer; const Value: TObject);
+
+    function GetDuplicates : TDuplicates;
+    procedure SetDuplicates(Value : TDuplicates);
+
+    function GetText : string;
+    procedure SetText(const Value : string);
+
+    function GetCommaText : string;
+    procedure SetCommaText(const Value : string);
+
+    function GetSorted : boolean;
+    procedure SetSorted(aValue : boolean);
+
+    procedure CustomSort(Compare: TStringListSortCompare);
+
+    procedure Clear;
+
+    function Add(const aString : string) : integer;
+    function AddObject(const aString: string; aObject: TObject): Integer;
+    procedure Insert(Index: Integer; const S: string);
+    procedure InsertObject(Index: Integer; const S: string; AObject: TObject);
+
+    procedure Delete(Index : integer);
+    function IndexOf(const aString : string) : integer;
+
+    function ExtractValue(const aName : string) : string;
+    function RenameName(const aName : string) : boolean;
+
+    function Find(const aString : string) : integer;
+
+    procedure AddStrings(aList : TStrings);
+
+    function IndexOfName(const aName : string) : integer;
+
+  public
+    constructor Create(aList : TStrings; OwnsList : boolean); overload; virtual;
+    constructor CreateCopy(aList:TStrings); overload; virtual;
+    constructor Create; overload;
+
+    destructor Destroy; override;
+  end;
+
+  { TROStream }
+  TROStream = class(TInterfacedObject, IROStream)
+  private
+    fStreamRef : TStream;
+    fOwnsStream : boolean;
+    FOnChange: TNotifyEvent;
+    FChanging: byte;
+    procedure Changed;
+  protected
+    // IROStream
+    function GetStreamObj : TStream;
+    function GetPosition: Int64;
+    procedure SetPosition(const aValue: Int64);
+    function GetSize: Int64;
+    procedure SetSize(const aValue: Int64);
+    function Read(var Buffer; Count: Longint): Longint;
+    function Write(const Buffer; Count: Longint): Longint;
+    function Seek(Offset: Longint; Origin: Word): Longint; overload;
+    function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload;
+    procedure ReadBuffer(var Buffer; Count: Longint);
+    procedure WriteBuffer(const Buffer; Count: Longint);
+    function ReadComponent(Instance: TComponent): TComponent;
+    procedure WriteComponent(Instance: TComponent);
+    procedure BeginUpdate;
+    procedure EndUpdate;
+    function InUpdateMode: Boolean;
+  public
+    constructor Create(aStream : TStream; OwnsStream : boolean); overload; virtual;
+    constructor Create; overload;
+
+    destructor Destroy; override;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+  end;
+
+
+   {$M+}
+   TROBinaryMemoryStream = class(TMemoryStream)
+   private
+    FCapacityIncrement: integer;
+   protected
+     function Realloc(var NewCapacity: Longint): Pointer; override;
+   public
+     constructor Create(const iString:Ansistring); overload;
+     constructor Create; overload;    // required for C++ compatibility
+     procedure Assign(iSource:TStream);
+     function Clone:TROBinaryMemoryStream;
+
+     procedure LoadFromString(const iString:Ansistring);
+     procedure LoadFromHexString(const iString:Ansistring);
+     function ToString:AnsiString;  {$IFDEF DELPHI12UP}reintroduce;{$ENDIF}
+     function ToHexString:Ansistring;
+     function ToReadableString:Ansistring;
+     function WriteAnsiString(AString: AnsiString): integer;
+     property CapacityIncrement: integer read FCapacityIncrement write FCapacityIncrement;
+   end;
+   {$M-}
+
+  TROConstantMemoryStream = class(TROBinaryMemoryStream)
+  public
+    constructor Create(aStream: TCustomMemoryStream; aFreeOldStream: boolean=false); reintroduce;
+    destructor Destroy; override;
+
+    function Write(const Buffer; Count: Integer): Integer; override;
+  end;
+
+  { TROInitializedThread }
+  TROInitializedThread = class(TThread)
+  private
+    FInitialize: Boolean;
+  public
+    constructor Create(CreateSuspended: Boolean);
+    destructor Destroy; override;
+  end;
+
+  { TROThreadTimer }
+  TROTimerEvent = procedure(CurrentTickCount : cardinal) of object;
+
+  TROThreadTimer = class(TROInitializedThread)
+  private
+    {$IFDEF MSWINDOWS}
+    fFreeWaiting: TObject; // TROEvent
+    fIsTerminated: Boolean;
+    {$ENDIF MSWINDOWS}
+
+    fTimerEvent : TROTimerEvent;
+    fTimeoutMS : integer;
+    {$IFDEF MSWINDOWS}
+    fWakeUp : TEvent;
+    {$ENDIF}
+    fSynchronized: Boolean;
+
+    function GetTimeout: integer;
+    procedure SetTimeout(const Value: integer);
+    procedure RunEvent;
+
+  protected
+    {$IFDEF MSWINDOWS}
+    procedure DoTerminate; override;
+    {$ENDIF MSWINDOWS}
+    procedure Execute; override;
+
+  public
+    constructor Create(aTimerEvent: TROTimerEvent; aTimeout: integer); overload;
+    constructor Create(aTimerEvent: TROTimerEvent; aTimeout: integer; Synchronized: Boolean); overload;
+    destructor Destroy; override;
+
+    procedure TerminateWaitFor; virtual;
+
+    {$IFDEF MSWINDOWS}
+    function WaitFor: DWORD; reintroduce;
+    {$IFNDEF FPC}
+    procedure Free; reintroduce; // Windows limitation workaround
+    {$ENDIF}
+    {$ENDIF}
+
+    // got to make sure we aren''t freeing threads from within themselves
+    procedure AsyncFree;
+
+    // In MS
+    property Timeout : integer read GetTimeout write SetTimeout;
+    property Synchronized : Boolean read fSynchronized write fSynchronized;
+  end;
+
+  TROInterfaceRegistry = class(TInterfaceList)
+  private
+    fInterfaceType:TGUID;
+  public
+    constructor Create(aInterfaceType:TGUID);
+    procedure Register(aInterface:IInterface);
+    procedure Unregister(aInterface:IInterface);
+  end;
+
+  TClassList = TList;
+
+  { Exceptions }
+  {$M+}
+  EROException = class(Exception)
+  public
+    class function GetAttributeCount: Integer; virtual;
+    class function GetAttributeName(aIndex: Integer): string; virtual;
+    class function GetAttributeValue(aIndex: Integer): string; virtual;
+
+    procedure ReadException(ASerializer: TObject);virtual;
+    procedure WriteException(ASerializer: TObject);virtual;
+    destructor Destroy; override;
+  end;
+  {$M-}
+
+  EROExceptionClass = class of EROException;
+
+  EROServerException = class(EROException);
+  EROUnregisteredServerException = class(EROServerException); // Marshelled exceptions that have not being registered in the framework
+
+  EROInvalidStream = class(EROException);
+
+  EROUserError = class(EROException); // Indicates something was done incorrectly by the user
+
+  EROUnknownItem = class(EROException); // uRODL, uRODynamicRequest and similar
+
+  EROCircularReference = class(EROException); // RODL entities' circular references and similar
+
+  EROIDEProblem = class(EROException);
+
+  { TROCollection }
+  TROSearchOption = (soIgnoreCase);
+
+  TROSearchOptions = set of TROSearchOption;
+  TROCollection = class(TCollection)
+  private
+  protected
+  public
+    function Search(const aPropertyName : string;
+                    const aPropertyValue : Variant;
+                    StartFrom : integer = 0;
+                    Options : TROSearchOptions = [soIgnoreCase]) : TCollectionItem;
+    function GetIndex(const aPropertyName : string;
+                    const aPropertyValue : Variant;
+                    StartFrom : integer = 0;
+                    Options : TROSearchOptions = [soIgnoreCase]) : integer;
+  end;
+
+  TROInterfacedObject = class(TObject, IInterface)
+  protected
+    FRefCount: Integer;
+    function QueryInterface(const IID: TGUID; out Obj): HResult; virtual; stdcall;
+    function _AddRef: Integer; virtual; stdcall;
+    function _Release: Integer; virtual; stdcall;
+  public
+    procedure AfterConstruction; override;
+    procedure BeforeDestruction; override;
+    class function NewInstance: TObject; override;
+    property RefCount: Integer read FRefCount;
+  end;
+
+  TROBaseSerializer = class
+  protected
+    procedure ReadObject(obj: TObject);virtual;abstract;
+    procedure WriteObject(obj: TObject);virtual;abstract;
+  end;
+
+  {TROEnumMapping}
+  TROEnumMapping = class
+    EnumName: string;
+    EnumValue: string;
+    EnumOriginalValue: string;
+    constructor Create(aEnumName: string; aEnumValue: string; aEnumOriginalValue: string);
+  end;
+
+
+// Exceptions
+procedure Check(DoRaise : boolean; const aMessage : string; const Parameters : array of const; iExceptionClass:ExceptClass); overload;
+procedure Check(DoRaise : boolean; const aMessage : string; const Parameters : array of const); overload;
+procedure Check(DoRaise : boolean; const aMessage : string); overload;
+
+procedure RaiseError(const aMessage : string; const Parameters : array of const; iExceptionClass:ExceptClass); overload;
+procedure RaiseError(const aMessage : string; const Parameters : array of const); overload;
+procedure RaiseError(const aMessage : string); overload;
+procedure RaiseInvalidStreamError(const anErrorMessage : string; const someParams : array of const; iStream:TStream);
+procedure NotSupported(const Hint : string = '');
+
+// IROStrings
+function NewROStrings : IROStrings; overload;
+function NewROStrings(const someStrings : array of string) : IROStrings; overload;
+function NewROStrings(const someText : string) : IROStrings; overload;
+function NewROStrings(const aList : TStrings; OwnList : boolean = TRUE) : IROStrings; overload;
+function ListStringElements(const aString : string; const aSeparator : string = ';'; const aQuoteChar: char = '''') : IROStrings;
+function ListParameters(const aString : string; ParameterID : char = ':'; aQuoteChar: char = '''') : IROStrings;
+function PackStrings(aList : IROStrings; const aDelimiter : string; aQuoteChar: Char = '"') : string;
+
+// IROStreams
+function NewROStream : IROStream; overload;
+function NewROStream(aStream : TStream; OwnsStream : boolean = TRUE) : IROStream; overload;
+
+// TStrings
+procedure StringArrayToStrings(const anArray : TStringArray; Destination : TStrings; ClearStrings : boolean = TRUE);
+function StringsToStringArray(aSource : TStrings) : TStringArray;
+function StringsToString(const aStringList : TStrings) : string;
+function StringArrayToString(const anArray : TStringArray; Delimiter: Char = ','): string;
+function StringToStringArray(aSource: string; Delimiter: Char = ','): TStringArray;
+
+// Numeric
+function IncID(CurrVal, MaxVal : integer) : integer;
+function LoopList(var CurrentIndex : integer; const ListCount  : integer; var EvalCount : integer) : boolean;
+
+// Time
+procedure StartTickCounter(var aTickTracker : cardinal);
+function GetElapsedTicks(const aTickTracker : cardinal) : cardinal;
+
+// Variants
+function StreamToVariant(Stream: TStream): Variant;
+procedure VariantToStream(const Data: Variant; Stream: TStream);
+
+// Interfaces
+function GetRefCount(const anInstance : IUnknown) : integer;
+
+// Strings
+function TrimAndClean(const aString : string) : string;
+function SameText(const Str1, Str2 : string) : boolean;
+function WriteSpace(Count : integer) : string;
+
+type
+  TSetOfAnsiChars = set of AnsiChar;
+
+function NewGuid:TGUID;
+function NewGuidAsString:string;
+function NewStrippedGuidAsString:string;
+
+procedure ReplaceChar(var s:string; iChars:TSetOfAnsiChars; iChar:char);
+procedure Remove(var s:string; iChars:TSetOfAnsiChars); overload;
+procedure RemoveAnsi(var s:Ansistring; iChars:TSetOfAnsiChars); overload;
+procedure RemoveExcept(var s:string; iChars:TSetOfAnsiChars);
+function MakeValidIdentifier(const aName:string):string;
+function CleanStringFromBinaries(const iString:Ansistring):Ansistring;
+procedure SaveStringToFile(const aFilename, aString: string);
+
+function EndsWith(const iSubStr,iString:string; aCaseInsensitive: Boolean =False):boolean;overload;
+{$IFNDEF UNICODE}
+function EndsWith(const iSubStr,iString:Unicodestring;aCaseInsensitive: Boolean =False):boolean;overload;
+{$ENDIF}
+function GetTempPath:string;
+function GetTempFileName(const aFileExt:string):string;
+
+{$IFNDEF MSWINDOWS}
+function GetTickCount:cardinal;
+{$ENDIF}
+
+{$IFDEF DELPHI5}
+function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AValue: TDateTime): Boolean;
+procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);
+function MinutesBetween(const ANow, AThen: TDateTime): Int64;
+function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64): TDateTime;
+function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer): TDateTime;
+{$ENDIF DELPHI5}
+
+function WrappedHexString(iData:string; iWrapLength:integer=40):string;
+function StringFromHexString(iData:string):string;
+function StringFromHexStringAnsi(iData:Ansistring):Ansistring;
+function ROVariantsEqual(const A, B: Variant): Boolean;
+function ROCompareVariants(const A, B: Variant): TVariantRelationship;
+function ROWideCompare(const S1, S2: WideString; aCaseInsensitive: Boolean {$IFDEF MSWINDOWS};aLocale: LCID = LOCALE_USER_DEFAULT{$ENDIF}): Integer;overload;
+{$IFDEF UNICODE}
+function ROWideCompare(const S1, S2: UnicodeString; aCaseInsensitive: Boolean {$IFDEF MSWINDOWS};aLocale: LCID = LOCALE_USER_DEFAULT{$ENDIF}): Integer;overload;
+{$ENDIF}
+function ROAnsiCompare(const S1, S2: AnsiString; aCaseInsensitive: Boolean {$IFDEF MSWINDOWS};aLocale: LCID = LOCALE_USER_DEFAULT{$ENDIF}): Integer;
+function AnsiHexToBin(aString: AnsiString): Ansistring;
+
+{$IFNDEF DELPHI2009UP}
+  // from system.pas
+const
+   varUString  = $0102; { Unicode string 258 } {not OLE compatible}
+
+function CharInSet(c: Char; CharSet: TSysCharSet):Boolean;
+function UTF8ToString(const S: UTF8String): WideString;
+{$ENDIF}
+
+Function ROGetEnumName(aTypeInfo : PTypeInfo;Value : Integer) : string;
+function ROGetEnumValue(TypeInfo: PTypeInfo; const Name: string): Integer;
+
+function AnsiStringToWideString(AValue: AnsiString): UnicodeString;
+function WideStringToAnsiString(AValue: WideString): AnsiString; overload;
+{$IFDEF UNICODE}
+function WideStringToAnsiString(AValue: UnicodeString): AnsiString; overload;
+{$ENDIF}
+
+function VarToAnsiStr(const Value: Variant): Ansistring;
+function GUIDToAnsiString(const GUID: TGUID): Ansistring;
+function StrToDataType(const aString : string) : TRODataType;
+
+{$IFDEF DARWIN}
+function sem_timedwait(__sem:cint;wait_time: timespec):cint;
+{$ENDIF}
+
+procedure RegisterEnumMapping(aMapping: TROEnumMapping);
+procedure UnRegisterEnumMappings();
+function FindSOAPEnumValue(aEnum: string; aROVal: string): string;
+function FindROEnumValue(aEnum: string; aOriginalVal: string): string;
+
+// deprected functions
+function StringToHexString(iData:ansistring):string; deprecated;
+
+implementation
+
+{$IFDEF DELPHI6}
+  {$DEFINE PATCH_MEMORYSTREAM_REALLOC}
+{$ENDIF}
+{$IFDEF DELPHI7}
+  {$DEFINE PATCH_MEMORYSTREAM_REALLOC}
+{$ENDIF}
+
+uses {$IFDEF MSWINDOWS}ActiveX,{$ENDIF}
+     {$IFDEF PATCH_MEMORYSTREAM_REALLOC}RTLConsts,{$ENDIF}
+     uRORes{, uROSerializer};
+
+function GUIDToAnsiString(const GUID: TGUID): Ansistring;
+begin
+{$IFDEF UNICODE}
+  SetLength(Result, 38);
+  StrLFmt(PAnsiChar(Result), 38,'{%.8x-%.4x-%.4x-%.2x%.2x-%.2x%.2x%.2x%.2x%.2x%.2x}',   // do not localize
+    [GUID.D1, GUID.D2, GUID.D3, GUID.D4[0], GUID.D4[1], GUID.D4[2], GUID.D4[3],
+    GUID.D4[4], GUID.D4[5], GUID.D4[6], GUID.D4[7]]);
+{$ELSE}
+  Result := GUIDToString(GUID);
+{$ENDIF}
+end;
+
+function VarToAnsiStr(const Value: Variant): Ansistring;
+begin
+  if VarIsNull(Value) then
+    Result := AnsiString({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF} (NullAsStringValue))
+  else
+    {$IFDEF UNICODE}
+    // based on _VarOleStrToString
+    if TVarData(Value).VType = varString then
+      Result := AnsiString(TVarData(Value).VString)
+    else
+      Result := WideStringToAnsiString(VarToWideStr(Value));
+    {$ELSE}
+    Result := VarToStr(Value);
+    {$ENDIF}
+end;
+
+{$IFNDEF DELPHI2009UP}
+function CharInSet(c: Char; CharSet: TSysCharSet): Boolean;
+begin
+  Result := c in CharSet;
+end;
+
+function UTF8ToString(const S: UTF8String): WideString;
+begin
+  Result := UTF8Decode(S);
+end;
+{$ENDIF}
+
+function AnsiStringToWideString(AValue: AnsiString): UnicodeString;
+begin
+  {$IFDEF UNICODE} //AnsiStringToWideString
+  Result := StringOf(BytesOf(AValue));
+  {$ELSE}
+  Result := AValue;
+  {$ENDIF}
+end;
+
+function WideStringToAnsiString(AValue: WideString): AnsiString;
+{$IFDEF UNICODE} //WideStringToAnsiString
+var
+  b: TBytes;
+begin
+  b := BytesOf(AValue);
+  SetLength(Result, Length(b));
+  Move(b[0], pointer(Result)^,Length(b));
+end;
+{$ELSE}
+begin
+  Result := AValue;
+end;
+{$ENDIF}
+
+{$IFDEF UNICODE}
+function WideStringToAnsiString(AValue: UnicodeString): AnsiString;
+//WideStringToAnsiString
+var
+  b: TBytes;
+begin
+  b := BytesOf(AValue);
+  SetLength(Result, Length(b));
+  Move(b[0], pointer(Result)^,Length(b));
+end;
+{$ENDIF}
+
+{$IFDEF FPC}
+const
+  BooleanIdents: array [Boolean] of string = ('False', 'True');
+{$ENDIF}
+
+Function ROGetEnumName(aTypeInfo : PTypeInfo;Value : Integer) : string;
+begin
+  {$IFDEF FPC}
+  if (aTypeInfo = System.TypeInfo(Boolean)) then
+    { LongBool/WordBool/ByteBool have MinValue < 0 and arbitrary content in Value; Boolean has Value in [0, 1] }
+    Result := BooleanIdents[Value <> 0]
+  else
+  {$ENDIF}
+    Result := TypInfo.GetEnumName(aTypeInfo,Value);
+end;
+
+function ROGetEnumValue(TypeInfo: PTypeInfo; const Name: string): Integer;
+begin
+{$IFDEF FPC}
+  if (TypeInfo = System.TypeInfo(Boolean)) then  begin
+    if SameText(Name, BooleanIdents[False]) then
+      Result := 0
+    else
+      Result := 1;
+  end
+  else
+{$ENDIF FPC}
+  Result := TypInfo.GetEnumValue(TypeInfo, Name);
+end;
+
+function StrToDataType(const aString : string) : TRODataType;
+var dt : TRODataType;
+    i: Integer;
+begin
+  result := rtUserDefined;
+
+  for dt := Low(TRODataType) to High(TRODataType) do
+    if (CompareText(aString, DataTypeNames[dt])=0) then begin
+      result := dt;
+      Exit;
+    end;
+  for i := low(DataTypeRemapping) to High(DataTypeRemapping) do
+  begin
+    if CompareText(aString, DataTypeRemapping[i].Name) = 0 then begin
+      Result := DataTypeRemapping[i].NewType;
+      exit;
+    end;
+  end;
+end;
+
+{ TROBinaryMemoryStream }
+
+procedure TROBinaryMemoryStream.Assign(iSource:TStream);
+begin
+  if (iSource is TROBinaryMemoryStream) then begin
+    Clear();
+    CapacityIncrement := TROBinaryMemoryStream(iSource).CapacityIncrement;
+    CopyFrom(iSource,0);
+    Position := iSource.Position;
+  end
+  else begin
+    raise EConvertError.CreateResFmt(@err_AssignError, [iSource.ClassName, ClassName]);
+  end;
+end;
+
+function TROBinaryMemoryStream.Clone:TROBinaryMemoryStream;
+begin
+  Result := ClassType.Create() as TROBinaryMemoryStream;
+  Result.Assign(self);
+end;
+
+constructor TROBinaryMemoryStream.Create;
+begin
+  inherited Create;
+end;
+
+constructor TROBinaryMemoryStream.Create(const iString: Ansistring);
+begin
+  FCapacityIncrement:=0; //standard mode
+  Create();
+  LoadFromString(iString);
+end;
+
+procedure TROBinaryMemoryStream.LoadFromString(const iString: Ansistring);
+var
+  lLength:integer;
+begin
+  lLength := Length(iString);
+  SetSize(lLength);
+  Move(pointer(iString)^,Memory^,Length(iString));
+  Seek(0,soFromBeginning);
+end;
+
+procedure TROBinaryMemoryStream.LoadFromHexString(const iString: Ansistring);
+begin
+  if Length(iString) mod 2 <> 0 then RaiseError('String length must be 2n');
+  Size := Length(iString) div 2;
+  HexToBin(pAnsiChar(iString),Memory,Size);
+  Seek(0,soFromBeginning);
+end;
+
+function TROBinaryMemoryStream.ToHexString: Ansistring;
+begin
+  SetLength(result,Size*2);
+  BinToHex(Memory,pAnsiChar(result),Size);
+end;
+
+function TROBinaryMemoryStream.ToReadableString: Ansistring;
+begin
+  Result := CleanStringFromBinaries(ToString);
+end;
+
+function TROBinaryMemoryStream.ToString: AnsiString;
+begin
+  SetLength(Result,Size);
+  Seek(0,soFromBeginning);
+  Read(pointer(Result)^,Size);
+end;
+
+
+function TROBinaryMemoryStream.WriteAnsiString(AString: AnsiString): integer;
+begin
+  Result:=Write(pointer(AString)^, Length(Astring));
+end;
+
+// Exceptions
+procedure RaiseError(const aMessage : string; const Parameters : array of const);
+begin
+  raise EROException.CreateFmt(aMessage, Parameters);
+end;
+
+procedure RaiseError(const aMessage : string; const Parameters : array of const; iExceptionClass:ExceptClass);
+begin
+  raise iExceptionClass.CreateFmt(aMessage, Parameters);
+end;
+
+procedure Check(DoRaise : boolean; const aMessage : string; const Parameters : array of const; iExceptionClass:ExceptClass); overload;
+begin
+  if DoRaise
+    then RaiseError(aMessage, Parameters, iExceptionClass);
+end;
+
+procedure Check(DoRaise : boolean; const aMessage : string; const Parameters : array of const);
+begin
+  if DoRaise
+    then RaiseError(aMessage, Parameters);
+end;
+
+procedure RaiseError(const aMessage : string);
+begin
+  RaiseError(aMessage, []);
+end;
+
+procedure Check(DoRaise : boolean; const aMessage : string);
+begin
+  Check(DoRaise, aMessage, []);
+end;
+
+procedure NotSupported(const Hint : string = '');
+const Msg = 'Not Supported';
+begin
+  if (Hint<>'') then RaiseError(Hint+' '+Msg) else RaiseError(Msg);
+end;
+
+procedure RaiseInvalidStreamError(const anErrorMessage : string; const someParams : array of const; iStream:TStream);
+var
+  lSize:Int64;
+  s: Ansistring;
+begin
+  iStream.Seek(0,soFromBeginning);
+  lSize := iStream.Size;
+  if lSize > 500 then lSize := 500;
+  SetLength(s, lSize);
+  iStream.ReadBuffer(pointer(s)^,lSize);
+  raise EROInvalidStream.Create(Format(anErrorMessage,someParams)+#13#13+{$IFDEF UNICODE}UTF8ToString{$ENDIF}(CleanStringFromBinaries(s)));
+end;
+
+// IROStrings
+function NewROStrings : IROStrings;
+var sl : TStringList;
+begin
+  sl := TStringList.Create;
+  result := NewROStrings(sl, TRUE);
+end;
+
+function NewROStrings(const aList : TStrings; OwnList : boolean = TRUE) : IROStrings;
+begin
+  result := TROStrings.Create(aList, OwnList);
+end;
+
+function NewROStrings(const someStrings : array of string) : IROStrings;
+var i : integer;
+begin
+  result := NewROStrings;
+  for i := 0 to Length(someStrings) do
+    result.Add(someStrings[i])
+end;
+
+function NewROStrings(const someText : string) : IROStrings; overload;
+begin
+  result := NewROStrings;
+  result.Text := someText;
+end;
+
+
+function ListStringElements(const aString : string; const aSeparator : string = ';'; const aQuoteChar: char = '''') : IROStrings;
+var str : string;
+    i : integer;
+    list : TStringList;
+    p1: Pchar;
+    ps,psb: Pchar;
+    pd: Pchar;
+    psep: Pchar;
+begin
+  pd := PChar(string(aQuoteChar));
+  psep := Pchar(aSeparator);
+  str := aString;
+  list := TStringList.Create;
+
+  result := NewROStrings(list);
+  psb:= PChar(Str);
+  ps := psb;
+  while (ps<>nil) do begin
+    ps := StrPos(psb, psep);
+    if ps = nil then begin
+      result.Add(psb);
+      Break;
+    end;
+    p1 := StrPos(psb, pd);
+    while (p1 <> nil) and (p1 < ps) do begin
+      while (p1 <> nil) do begin
+        i := 1;
+        while p1[i]=aQuoteChar do inc(i);
+        inc(p1,i);
+        p1 := StrPos(p1, pd);
+        if (i mod 2=1)  then begin
+          i := 1;
+          while p1[i]=aQuoteChar do inc(i);
+          if (i mod 2=1) then begin
+             p1 := p1+i-1;
+             break;
+          end
+          else begin
+            continue;
+          end;
+        end
+        else begin
+          break;
+        end;
+      end;
+      if (p1 > ps) and (ps <> nil) and (p1^<>#0) then begin
+        ps := StrPos(p1, psep);
+      end;
+      if ps = nil then break;
+      inc(p1);
+      p1 := StrPos(p1, pd);
+    end;
+    if ps = nil then begin
+      // separator isn't found
+      result.Add(psb);
+      Break;
+    end else begin
+      SetString(str, psb, ps-psb);
+      if (str<>'') then result.Add(str);
+      psb := ps+1;
+    end;
+  end;
+end;
+
+function ListParameters(const aString : string; ParameterID : char = ':'; aQuoteChar : char = '''') : IROStrings;
+var
+  i: integer;
+  s: string;
+  k: integer;
+begin
+  Result := ListStringElements(aString,';',aQuoteChar);
+  for i := 0 to Result.Count - 1 do begin
+    s := Result[i];
+    if s <> '' then begin
+      if s[1] = aQuoteChar then begin
+        k := 2;
+        while (k < Length(s)) do begin
+          if (s[k] = aQuoteChar) then begin
+            if (s[k+1] = aQuoteChar) then begin
+              inc(k,2);
+              continue;
+            end
+            else begin
+              inc(k);
+              break;
+            end;
+          end
+          else
+            inc(k);
+        end;
+        while (k < Length(s)) do begin
+          if s[k]=ParameterID then break;
+          inc(k);
+        end;
+        if k >= Length(s) then k := -1;
+      end
+      else begin
+        k := pos(ParameterID, s);
+      end;
+      if k = -1 then
+        Result[i] := ''
+      else
+        Result[i] := AnsiDequotedStr(copy(s,k+1, Length(s)-k), aQuoteChar);
+      if Result[i] = (aQuoteChar+aQuoteChar) then Result[i] := '';
+    end;
+  end;
+end;
+
+function PackStrings(aList : IROStrings; const aDelimiter : string; aQuoteChar: Char = '"') : string;
+var
+  i : integer;
+begin
+  result := '';
+  if (aList.Count=0) then Exit;
+
+  for i := 0 to (aList.Count-1) do begin
+    if (Pos(aDelimiter, aList[i]) > 0) or (Pos(' ', aList[i]) > 0) then
+      result := result+AnsiQuotedStr(aList[i],aQuoteChar)+aDelimiter
+    else
+      result := result+aList[i]+aDelimiter;
+  end;
+
+  Delete(result, Length(result), Length(aDelimiter));
+end;
+
+// IROStreams
+function NewROStream : IROStream;
+begin
+  result := TROStream.Create;
+end;
+
+function NewROStream(aStream : TStream; OwnsStream : boolean = TRUE) : IROStream;
+begin
+  result := TROStream.Create(aStream, OwnsStream);
+end;
+
+// TStrings
+procedure StringArrayToStrings(const anArray : TStringArray; Destination : TStrings; ClearStrings : boolean = TRUE);
+var i : integer;
+begin
+  if ClearStrings then Destination.Clear;
+  for i := 0 to Length(anArray)-1 do
+    Destination.Add(anArray[i])
+end;
+
+function StringsToStringArray(aSource : TStrings) : TStringArray;
+var i : integer;
+begin
+  SetLength(result, aSource.Count);
+  for i := 0 to (aSource.Count-1) do
+    result[i] := aSource[i];
+end;
+
+function StringsToString(const aStringList : TStrings) : string;
+var i : integer;
+begin
+  result := aStringList.Text;
+  for i := 1 to Length(result) do
+   if CharInSet(result[i], [#10, #13]) then result[i] := #32
+end;
+
+function StringArrayToString(const anArray : TStringArray; Delimiter: Char = ','): string;
+var
+  i: Integer;
+begin
+  if Length(anArray) = 0 then exit;
+  for i := 0 to Length(anArray) - 1 do begin
+    result := result + anArray[i];
+    if i < Length(anArray) - 1 then
+      result := result + Delimiter;
+  end;
+end;
+
+function StringToStringArray(aSource: string; Delimiter: Char = ','): TStringArray;
+var
+  strings: TStringList;
+begin
+  strings := TStringList.Create;
+  try
+    strings.Delimiter := Delimiter;
+    strings.DelimitedText := aSource;
+    result := StringsToStringArray(strings);
+  finally
+    strings.Free;
+  end;
+end;
+
+// Streams
+function StreamToVariant(Stream: TStream): Variant;
+var p: Pointer;
+begin
+  Result := VarArrayCreate([0, Stream.Size - 1], varByte);
+  p := VarArrayLock(Result);
+  try
+    Stream.Position := 0; //start from beginning of stream
+    Stream.Read(p^, Stream.Size);
+  finally
+    VarArrayUnlock(Result);
+  end;
+end;
+
+procedure VariantToStream(const Data: Variant; Stream: TStream);
+var p: Pointer;
+begin
+  p := VarArrayLock(Data);
+  try
+    Stream.Write(p^, VarArrayHighBound(Data, 1) + 1); //assuming low bound = 0
+  finally
+    VarArrayUnlock(Data);
+  end;
+end;
+
+// Interfaces
+function GetRefCount(const anInstance : IUnknown) : integer;
+begin
+  anInstance._AddRef;
+  result := anInstance._Release;
+end;
+
+// Strings
+function TrimAndClean(const aString : string) : string;
+const
+  DirtyChars : set of AnsiChar = [#13, #10, #32];
+var i : integer;
+begin
+  result := aString;
+
+  while ((Length(result)>0) and CharInSet(result[1], DirtyChars)) do
+    Delete(result, 1, 1);
+
+  while (Length(result)>0) do begin
+    i := Length(result);
+    if CharInSet(result[i], DirtyChars) then
+      Delete(result, i, 1)
+    else
+      Exit;
+  end;
+end;
+
+function SameText(const Str1, Str2 : string) : boolean;
+begin
+  result := CompareText(Str1, Str2)=0
+end;
+
+function WriteSpace(Count : integer) : string;
+begin
+  SetLength(result, Count);
+  FillChar(result[1], Count, #32);
+end;
+
+// Numeric
+function IncID(CurrVal, MaxVal : integer) : integer;
+begin
+  if (CurrVal>=MaxVal)
+    then result := 0
+    else result := CurrVal+1;
+end;
+
+procedure StartListLoop(const StartFrom : integer; var CurrentIndex : integer; var EvalCount : integer);
+begin
+  CurrentIndex := StartFrom;
+  EvalCount := 0;
+end;
+
+function LoopList(var CurrentIndex : integer; const ListCount  : integer; var EvalCount : integer) : boolean;
+begin
+  result := TRUE;
+  if (EvalCount<ListCount) then begin
+    CurrentIndex := IncID(CurrentIndex, ListCount-1);
+    Inc(EvalCount);
+  end
+  else result := FALSE;
+end;
+
+// Time
+procedure StartTickCounter(var aTickTracker : cardinal);
+begin
+  aTickTracker := GetTickCount
+end;
+
+function GetElapsedTicks(const aTickTracker : cardinal) : cardinal;
+begin
+  result := GetTickCount-aTickTracker
+end;
+
+{$IFDEF MSWINDOWS}
+function GetTempPath:string;
+var
+  lTempdir : array[0..MAX_PATH] of char;
+begin
+  Windows.GetTempPath(Length(lTempdir), lTempdir);
+  result := IncludeTrailingPathDelimiter(lTempdir);
+end;
+{$ENDIF}
+{$IFNDEF MSWINDOWS}
+function GetTempPath:string;
+begin
+  result := GetEnvironmentVariable('tmp');
+end;
+{$ENDIF}
+
+function GetTempFileName(const aFileExt:string):string;
+begin
+  result := GetTempPath+NewStrippedGuidAsString()+aFileExt;
+end;
+
+{$IFNDEF MSWINDOWS}
+function GetTickCount:cardinal;
+begin
+  // from lclintf.pas (FPC)
+  Result := DWord(Trunc(Now * 24 * 60 * 60 * 1000));
+
+  //  result := clock div (CLOCKS_PER_SEC div 1000);
+end;
+{$ENDIF}
+
+function NewGuid:TGUID;
+begin
+  {$IFDEF MSWINDOWS}
+  CoCreateGuid(result);
+  {$ELSE}
+  CreateGuid(result);
+  {$ENDIF}
+end;
+
+function NewGuidAsString:string;
+begin
+  result := GuidToString(NewGuid());
+end;
+
+function NewStrippedGuidAsString:string;
+begin
+  result := NewGuidAsString();
+  Remove(result,['-','{','}']);
+end;
+
+procedure ReplaceChar(var s:string; iChars:TSetOfAnsiChars; iChar:char);
+var i:Integer;
+begin
+  for i := 1 to length(s) do begin
+    if CharInSet(s[i], iChars) then s[i] := iChar;
+  end;
+end;
+
+procedure Remove(var s:string; iChars:TSetOfAnsiChars); 
+var i,l:Integer;
+   // source:string;
+begin
+ // source := s;
+  l := 0;
+  for i := 1 to length(s) do begin
+    if not CharInSet(s[i], iChars) then begin
+      s[l+1] := s[i];
+      inc(l);
+    end;
+  end;
+  SetLength(s,l);
+end;
+
+procedure RemoveAnsi(var s:Ansistring; iChars:TSetOfAnsiChars);
+var i,l:Integer;
+   // source:string;
+begin
+ // source := s;
+  l := 0;
+  for i := 1 to length(s) do begin
+    if not CharInSet(s[i], iChars) then begin
+      s[l+1] := s[i];
+      inc(l);
+    end;
+  end;
+  SetLength(s,l);
+end;
+
+procedure RemoveExcept(var s:string; iChars:TSetOfAnsiChars);
+var i,l:Integer;
+  //  source:string;
+begin
+//  source := s;
+  l := 0;
+  for i := 1 to length(s) do begin
+    if CharInSet(s[i], iChars) then begin
+      s[l+1] := s[i];
+      inc(l);
+    end;
+  end;
+  SetLength(s,l);
+end;
+
+function MakeValidIdentifier(const aName:string):string;
+var
+  i: Integer;
+begin
+  result := aName;
+  for i := 1 to Length(result) do
+    if not CharInSet(result[i], ['a'..'z','A'..'Z','0'..'9','_']) then result[i] := '_';
+end;
+
+function CleanStringFromBinaries(const iString:Ansistring):Ansistring;
+var i:integer;
+begin
+  Result := iString;
+  for i := 1 to Length(Result) do
+    if not CharInSet(Result[i], [#13,#$20..#$7f]) then Result[i] := '.';
+end;
+
+procedure SaveStringToFile(const aFilename, aString:string);
+var
+  lText:TextFile;
+begin
+  try
+    AssignFile(lText,aFilename);
+    Rewrite(lText);
+    try
+      Write(lText,aString);
+    finally
+      CloseFile(lText);
+    end;
+  except
+    on E:Exception do
+      raise EInOutError.Create('Error saving file '+aFilename+' ('+E.ClassName+': '+E.Message+')');
+  end;
+end;
+
+function EndsWith(const iSubStr,iString:string;aCaseInsensitive: Boolean =False):boolean; overload;
+var
+  Len,Len2,i:integer;
+  lSubstr, lString: string;
+begin
+  if aCaseInsensitive then begin
+    lSubstr := AnsiUpperCase(iSubStr);
+    lString := AnsiUpperCase(iString);
+  end
+  else begin
+    lSubstr := iSubStr;
+    lString := iString;
+  end;
+  //ToDo -cOptimize: optimize, like we did with StartsWith
+  Len := Length(lSubStr);
+  Len2 := Length(lstring);
+  if Len <= Len2 then begin
+    for i := 1 to Len do begin;
+      if lSubStr[Len-i+1] <> lstring[Len2-i+1] then begin
+        result := false;
+        exit;
+      end
+    end;
+    result := true;
+  end
+  else begin
+    result := false;
+  end;
+end;
+
+{$IFNDEF UNICODE}
+function EndsWith(const iSubStr,iString:Unicodestring;aCaseInsensitive: Boolean =False):boolean;
+var
+  Len,Len2,i:integer;
+  lSubstr, lString: string;
+begin
+  if aCaseInsensitive then begin
+    lSubstr := WideUpperCase(iSubStr);
+    lString := WideUpperCase(iString);
+  end
+  else begin
+    lSubstr := iSubStr;
+    lString := iString;
+  end;
+  //ToDo -cOptimize: optimize, like we did with StartsWith
+  Len := Length(lSubStr);
+  Len2 := Length(lstring);
+  if Len <= Len2 then begin
+    for i := 1 to Len do begin;
+      if lSubStr[Len-i+1] <> lstring[Len2-i+1] then begin
+        result := false;
+        exit;
+      end
+    end;
+    result := true;
+  end
+  else begin
+    result := false;
+  end;
+end;
+{$ENDIF}
+
+
+
+{$IFDEF DELPHI5}
+const
+  HoursPerDay   = 24;
+  MinsPerHour   = 60;
+  SecsPerMin    = 60;
+  MSecsPerSec   = 1000;
+  MinsPerDay    = HoursPerDay * MinsPerHour;
+  SecsPerDay    = MinsPerDay * SecsPerMin;
+  MSecsPerDay   = SecsPerDay * MSecsPerSec;
+
+function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean;
+var
+  I: Integer;
+  DayTable: PDayTable;
+begin
+  Result := False;
+  DayTable := @MonthDays[IsLeapYear(Year)];
+  if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and
+    (Day >= 1) and (Day <= DayTable^[Month]) then
+  begin
+    for I := 1 to Month - 1 do Inc(Day, DayTable^[I]);
+    I := Year - 1;
+    Date := I * 365 + I div 4 - I div 100 + I div 400 + Day - DateDelta;
+    Result := True;
+  end;
+end;
+
+function TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean;
+begin
+  Result := False;
+  if (Hour < HoursPerDay) and (Min < MinsPerHour) and (Sec < SecsPerMin) and (MSec < MSecsPerSec) then
+  begin
+    Time := (Hour * (MinsPerHour * SecsPerMin * MSecsPerSec) +
+             Min * (SecsPerMin * MSecsPerSec) +
+             Sec * MSecsPerSec +
+             MSec) / MSecsPerDay;
+    Result := True;
+  end;
+end;
+
+function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AValue: TDateTime): Boolean;
+var
+  LTime: TDateTime;
+begin
+  Result := TryEncodeDate(AYear, AMonth, ADay, AValue);
+  if Result then begin
+    Result := TryEncodeTime(AHour, AMinute, ASecond, AMilliSecond, LTime);
+    if Result then
+      AValue := AValue + LTime;
+  end;
+end;
+
+procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);
+begin
+  DecodeDate(AValue, AYear, AMonth, ADay);
+  DecodeTime(AValue, AHour, AMinute, ASecond, AMilliSecond);
+end;
+
+function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
+begin
+  if ANow < AThen then
+    Result := AThen - ANow
+  else
+    Result := ANow - AThen;
+end;
+
+function MinuteSpan(const ANow, AThen: TDateTime): Double;
+begin
+  Result := MinsPerDay * SpanOfNowAndThen(ANow, AThen);
+end;
+
+function MinutesBetween(const ANow, AThen: TDateTime): Int64;
+begin
+  Result := Trunc(MinuteSpan(ANow, AThen));
+end;
+
+function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64):TDateTime;
+begin
+  Result := ((AValue * MinsPerDay) + ANumberOfMinutes) / MinsPerDay;
+end;
+
+{
+function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer): TDateTime;
+begin
+  Result := AValue+365;
+end;
+}
+function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer ): TDateTime;
+Var
+  Y,M,D,H,N,S,MS : Word;
+begin
+  DecodeDateTime(AValue,Y,M,D,H,N,S,MS);
+  Y:=Y+ANumberOfYears;
+  If (M=2) and (D=29) And (Not IsLeapYear(Y)) then D:=28;
+  Result:=EncodeDateTime(Y,M,D,H,N,S,MS);
+end;
+{$ENDIF DELPHI5}
+
+function StringFromHexString(iData:string):string;
+var
+  s: AnsiString;
+begin
+  Remove(iData,[#13,#10,#32]);
+  if Length(iData) mod 2 <> 0 then raise EROException.Create('String length must be 2n');
+  SetLength(s,Length(iData) div 2);
+  HexToBin(pChar(iData),PAnsiChar(s),Length(s));
+  Result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(s);
+end;
+
+function AnsiHexToBin(aString: AnsiString): Ansistring;
+var
+  i,j,k: integer;
+begin
+  k:=0;
+  Result := '';
+  if Length(aString) mod 2 <> 0 then raise EROException.Create('String length must be 2n');
+  for i:= 1 to Length(aString) do begin
+    j:= ord(aString[i]);
+    case j  of
+      48..57: dec(j,48);
+      65..70: dec(j, 55);
+      97..120: dec(j, 87);
+    else
+      raise Exception.CreateFmt('Can''t decode hex string: "%s"', [aString]);
+    end;
+    k:= k*16 + j;
+    if i mod 2 = 0 then begin
+      Result := Result + AnsiChar(k);
+      k := 0;
+    end;   
+  end;
+end;
+
+function StringFromHexStringAnsi(iData:Ansistring):Ansistring;
+begin
+  RemoveAnsi(iData,[#13,#10,#32]);
+  Result := AnsiHexToBin(iData);
+end;
+
+
+{----------------------------------------------------------------------------}
+function StringToHexString(iData:Ansistring):string;
+var
+  s: AnsiString;
+begin
+  SetLength(s,Length(iData) * 2);
+  BinToHex(pAnsiChar(iData),pAnsiChar(s),Length(iData));
+  Result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(s);
+end;
+
+{----------------------------------------------------------------------------}
+function WrappedHexString(iData:string; iWrapLength:integer=40):string;
+var i:integer;
+    s:string;
+begin
+  s := '';
+  for i := 1 to length(iData) do begin
+    s := s+IntToHex(byte(iData[i]),2);
+    if i mod iWrapLength = 0 then s := s+#13#10;
+  end;
+  result := s;
+end;
+
+function TROBinaryMemoryStream.Realloc(var NewCapacity: Integer): Pointer;
+const
+  MemoryDelta = $2000; { Must be a power of 2 }
+begin
+  if (FCapacityIncrement <> 0) and (NewCapacity<>0) then inc(NewCapacity,FCapacityIncrement);
+  {$IFDEF PATCH_MEMORYSTREAM_REALLOC}
+  if (NewCapacity > 0) and (NewCapacity <> Position) then
+    NewCapacity := (NewCapacity + (MemoryDelta - 1)) and not (MemoryDelta - 1);
+  Result := Memory;
+  if NewCapacity <> Capacity then
+  begin
+    if NewCapacity = 0 then
+    begin
+      FreeMem(Memory);
+      Result := nil;
+    end else
+    begin
+      if Capacity = 0 then
+        GetMem(Result, NewCapacity)
+      else
+        ReallocMem(Result, NewCapacity);
+      if Result = nil then raise EStreamError.CreateRes(@SMemoryStreamError);
+    end;
+  end;
+  {$ELSE}
+  Result := inherited Realloc(NewCapacity);
+  {$ENDIF}
+end;
+
+{ TROStrings }
+
+function TROStrings.Add(const aString: string): integer;
+begin
+  result := fListRef.Add(aString)
+end;
+
+function TROStrings.AddObject(const aString: string; aObject: TObject): Integer;
+begin
+  result := fListRef.AddObject(aString, aObject);
+end;
+
+procedure TROStrings.AddStrings(aList: TStrings);
+begin
+  fListRef.AddStrings(aList);
+end;
+
+constructor TROStrings.Create(aList: TStrings; OwnsList: boolean);
+begin
+  inherited Create;
+
+  if not Assigned(aList) then begin
+    fListRef := TStringList.Create;
+    fOwnsList := true;
+  end
+  else begin
+    fListRef := aList;
+    fOwnsList := OwnsList;
+  end;
+end;
+
+constructor TROStrings.Create;
+begin
+  Create(nil,true);
+end;
+
+constructor TROStrings.CreateCopy(aList: TStrings);
+begin
+  Create(nil,true);
+  fListRef.Assign(aList);
+end;
+
+procedure TROStrings.CustomSort(Compare: TStringListSortCompare);
+begin
+  if (fListRef is TStringList)
+    then TStringList(fListRef).CustomSort(Compare);
+end;
+
+procedure TROStrings.Clear;
+begin
+  fListRef.Clear
+end;
+
+procedure TROStrings.Delete(Index: integer);
+begin
+  fListRef.Delete(Index);
+end;
+
+destructor TROStrings.Destroy;
+begin
+  if fOwnsList
+    then fListRef.Free;
+
+  inherited;
+end;
+
+function TROStrings.ExtractValue(const aName: string): string;
+var idx : integer;
+begin
+  result := '';
+
+  idx := fListRef.IndexOfName(aName);
+  if (idx>=0) then begin
+    result := fListRef.Values[aName];
+    fListRef.Delete(idx);
+  end
+end;
+
+function TROStrings.Find(const aString: string): integer;
+begin
+  result := fListRef.IndexOf(aString)
+end;
+
+function TROStrings.GetCount: integer;
+begin
+  result := fListRef.Count
+end;
+
+function TROStrings.GetDuplicates: TDuplicates;
+begin
+  if (fListRef is TStringList) then
+    result := TStringList(fListRef).Duplicates
+  else
+    result := dupAccept;
+end;
+
+function TROStrings.GetNames(Index: Integer): string;
+begin
+  result := fListRef.Names[Index]
+end;
+
+function TROStrings.GetSorted: boolean;
+begin
+  if (fListRef is TStringList)
+    then result := TStringList(fListRef).Sorted
+    else result := FALSE;
+end;
+
+function TROStrings.GetStrings(Index: integer): string;
+begin
+  result := fListRef[Index]
+end;
+
+function TROStrings.GetStringsObj: TStrings;
+begin
+  result := fListRef
+end;
+
+function TROStrings.GetText: string;
+begin
+  result := fListRef.Text
+end;
+
+function TROStrings.GetValues(const Name: string): string;
+begin
+  result := fListRef.Values[Name]
+end;
+
+function TROStrings.IndexOf(const aString: string): integer;
+begin
+  result := fListRef.IndexOf(aString)
+end;
+
+function TROStrings.IndexOfName(const aName: string): integer;
+begin
+  if (fListRef is TStringList)
+    then result := TStringList(fListRef).IndexOfName(aName)
+    else result := -1
+end;
+
+function TROStrings.RenameName(const aName : string) : boolean;
+var idx : integer;
+    curr : string;
+begin
+  // TODO: check this works...
+  idx := fListRef.IndexOfName(aName);
+  result := idx>=0;
+
+  if result then begin
+    curr := fListRef[idx];
+    fListRef[idx] := aName+Copy(curr, Pos('=', curr), MaxInt);
+  end;
+end;
+
+procedure TROStrings.SetDuplicates(Value: TDuplicates);
+begin
+  if (fListRef is TStringList) then
+    TStringList(fListRef).Duplicates := Value;
+end;
+
+procedure TROStrings.SetSorted(aValue: boolean);
+begin
+  if (fListRef is TStringList)
+    then TStringList(fListRef).Sorted := aValue
+end;
+
+procedure TROStrings.SetStrings(Index: integer; const Value: string);
+begin
+  fListRef[Index] := Value
+end;
+
+procedure TROStrings.SetText(const Value: string);
+begin
+  fListRef.Text := Value
+end;
+
+procedure TROStrings.SetValues(const Name, Value: string);
+begin
+  fListRef.Values[Name] := Value
+end;
+
+function TROStrings.GetObject(Index: Integer): TObject;
+begin
+  result := fListRef.Objects[Index];
+end;
+
+procedure TROStrings.PutObject(Index: Integer; const Value: TObject);
+begin
+  fListRef.Objects[Index] := Value;
+end;
+
+procedure TROStrings.Insert(Index: Integer; const S: string);
+begin
+  fListRef.Insert(Index, S);
+end;
+
+procedure TROStrings.InsertObject(Index: Integer; const S: string; AObject: TObject);
+begin
+  fListRef.InsertObject(Index, S, AObject);
+end;
+
+function TROStrings.GetCommaText: string;
+begin
+  result := fListRef.CommaText
+end;
+
+procedure TROStrings.SetCommaText(const Value: string);
+begin
+  fListRef.CommaText := Value
+end;
+
+{ TROThreadTimer }
+
+constructor TROThreadTimer.Create(aTimerEvent: TROTimerEvent; aTimeout: integer);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+{$IFDEF MSWINDOWS}
+  fWakeUp := TEvent.Create(nil,False,False,'');
+  fFreeWaiting := nil;
+{$ENDIF}
+  fTimerEvent := aTimerEvent;
+  Timeout := aTimeout;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TROThreadTimer.Destroy;
+begin
+  if not Terminated then Terminate();
+{$IFDEF MSWINDOWS}
+  while fFreeWaiting <> nil do Sleep(1);
+  if fWakeUp <> nil then fWakeUp.SetEvent();
+  FreeAndNIL(fWakeUp);
+{$ENDIF}
+  inherited;
+end;
+
+procedure TROThreadTimer.Execute;
+{$IFNDEF MSWINDOWS}
+var
+  nexttime: Cardinal;
+{$ENDIF}
+begin
+//  inherited;
+
+  while not Terminated do begin
+  {$IFDEF MSWINDOWS}
+    fWakeUp.WaitFor(fTimeoutMS);
+  {$ELSE}
+    nexttime := GetTickCount + fTimeoutMS;
+    if nexttime < fTimeoutMS then // truncated integer
+    begin
+      while not terminated and (GetTickCount > $80000000) do
+        Sleep(10);
+    end;
+    while not terminated do
+    begin
+      Sleep(10);
+      if GetTickCount > nexttime then
+        break;
+    end;
+  {$ENDIF}
+    if (not Terminated) then
+    begin
+      if fSynchronized then
+        Synchronize(RunEvent)
+      else
+        RunEvent;
+    end;
+  end;
+end;
+
+procedure TROThreadTimer.RunEvent;
+begin
+  if Assigned(fTimerEvent) then
+  begin
+    fTimerEvent(GetTickCount());
+  end;
+end;
+
+function TROThreadTimer.GetTimeout: integer;
+begin
+  result := fTimeoutMS;
+end;
+
+procedure TROThreadTimer.SetTimeout(const Value: integer);
+begin
+  if (Value<MinTimerMS) then
+    fTimeoutMS := MinTimerMS
+  else
+    fTimeoutMS := Value;
+end;
+
+constructor TROThreadTimer.Create(aTimerEvent: TROTimerEvent;
+  aTimeout: integer; Synchronized: Boolean);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+
+  {$IFDEF MSWINDOWS}
+  fWakeUp := TEvent.Create(nil,False,False,'');
+  fFreeWaiting := nil;
+  {$ENDIF}
+
+  fTimerEvent := aTimerEvent;
+  Timeout := aTimeout;
+  fSynchronized := Synchronized;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+procedure TROThreadTimer.AsyncFree;
+begin
+  FreeOnTerminate := true;
+  fTimerEvent := nil;
+  Terminate;
+  {$IFDEF MSWINDOWS}
+  fWakeUp.SetEvent;
+  {$ENDIF}
+end;
+
+procedure TROThreadTimer.TerminateWaitFor;
+begin
+  Terminate;
+  WaitFor();
+end;
+
+{$IFDEF MSWINDOWS}
+function TROThreadTimer.WaitFor: DWord;
+var
+  lEvent: TROEvent;
+begin
+  result := 0;
+  if fIsTerminated then exit;
+  lEvent := TROEvent.Create(nil, false, false, '');
+  try
+    fFreeWaiting := lEvent;
+    Terminate;
+    fWakeUp.SetEvent;
+    while Suspended do Suspended := False;
+    lEvent.WaitFor(INFINITE);
+    fFreeWaiting := nil;
+  finally
+    lEvent.Free;
+  end;
+  sleep(10); // make sure it''s actually terminated
+end;
+
+{$IFNDEF FPC}
+procedure TROThreadTimer.Free;
+begin
+  if self = nil then exit;
+  if ModuleIsLib then begin
+    // Windows doesn''t return from EndThread until DllMain, so waitfor never returns either.
+    if fIsTerminated then
+      Destroy
+    else begin
+      FreeOnTerminate := true;
+      WaitFor;
+    end;
+  end else
+    Destroy;
+end;
+{$ENDIF}
+
+procedure TROThreadTimer.DoTerminate;
+begin
+  inherited;
+  fIsTerminated := true;
+  if fFreeWaiting <> nil then
+    TROEvent(fFreeWaiting).SetEvent;
+end;
+{$ENDIF MSWINDOWS}
+
+{ TROInterfaceRegistry }
+
+constructor TROInterfaceRegistry.Create(aInterfaceType: TGUID);
+begin
+  inherited Create();
+  fInterfaceType := aInterfaceType;
+end;
+
+procedure TROInterfaceRegistry.Register(aInterface: IInterface);
+begin
+  //ToDo: if not Supports(aInterface,fInterfaceType) then RaiseError('Unsupported Interface Type.');
+  if IndexOf(aInterface) = -1 then Add(aInterface);
+end;
+
+procedure TROInterfaceRegistry.Unregister(aInterface: IInterface);
+var
+  lIndex:integer;
+begin
+  lIndex := IndexOf(aInterface);
+  if lIndex <> -1 then Delete(lIndex);
+end;
+
+{ TROStream }
+constructor TROStream.Create(aStream : TStream; OwnsStream : boolean);
+begin
+  inherited Create;
+
+  if not Assigned(aStream) then begin
+    fStreamRef := TMemoryStream.Create;
+    fOwnsStream := TRUE;
+  end
+  else begin
+    fStreamRef := aStream;
+    fOwnsStream := OwnsStream;
+  end;
+end;
+
+procedure TROStream.BeginUpdate;
+begin
+  Check(FChanging <> 0, 'Stream is already in UpdateMode');
+  inc(FChanging);
+end;
+
+constructor TROStream.Create;
+begin
+  Create(NIL, TRUE);
+end;
+
+destructor TROStream.Destroy;
+begin
+  if fOwnsStream
+    then fStreamRef.Free;
+
+  inherited;
+end;
+
+procedure TROStream.EndUpdate;
+begin
+  Check(FChanging = 0, 'Stream is not in UpdateMode');
+  dec(FChanging);
+  Changed;
+end;
+
+function TROStream.GetPosition: Int64;
+begin
+  result := fStreamRef.Position
+end;
+
+function TROStream.GetSize: Int64;
+begin
+  result := fStreamRef.Size
+end;
+
+function TROStream.GetStreamObj: TStream;
+begin
+  result := fStreamRef
+end;
+
+function TROStream.Read(var Buffer; Count: Integer): Longint;
+begin
+  result := fStreamRef.Read(Buffer, Count)
+end;
+
+procedure TROStream.ReadBuffer(var Buffer; Count: Integer);
+begin
+  fStreamRef.ReadBuffer(Buffer, Count);
+end;
+
+function TROStream.ReadComponent(Instance: TComponent): TComponent;
+begin
+  result := fStreamRef.ReadComponent(Instance)
+end;
+
+function TROStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
+begin
+  {$IFDEF DELPHI5}
+  result := fStreamRef.Seek(Offset, word(Origin));
+  {$ELSE}
+  result := fStreamRef.Seek(Offset, Origin);
+  {$ENDIF DELPHI5}
+end;
+
+function TROStream.Seek(Offset: Integer; Origin: Word): Longint;
+begin
+  result := fStreamRef.Seek(Offset, Origin);
+end;
+
+procedure TROStream.SetPosition(const aValue: Int64);
+begin
+  fStreamRef.Position := aValue;
+end;
+
+procedure TROStream.SetSize(const aValue: Int64);
+begin
+  fStreamRef.Size := aValue;
+  Changed;
+end;
+
+function TROStream.Write(const Buffer; Count: Integer): Longint;
+begin
+  result := fStreamRef.Write(Buffer, Count);
+  Changed;
+end;
+
+procedure TROStream.WriteBuffer(const Buffer; Count: Integer);
+begin
+  fStreamRef.WriteBuffer(Buffer, Count);
+  Changed;
+end;
+
+procedure TROStream.WriteComponent(Instance: TComponent);
+begin
+  fStreamRef.WriteComponent(Instance);
+  Changed;
+end;
+
+procedure TROStream.Changed;
+begin
+  if (FChanging = 0) and Assigned(FOnChange) then FOnChange(Self);
+end;
+
+function TROStream.InUpdateMode: Boolean;
+begin
+  Result:= FChanging<>0;
+end;
+
+{ TROCollection }
+
+function TROCollection.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+var i : integer;
+    val : Variant;
+    curritem : TObject;
+begin
+  result := -1;
+
+  for i := StartFrom to (Count-1) do begin
+    curritem := Items[i];
+    if (curritem=NIL) then Continue;
+
+    val := GetPropValue(curritem, aPropertyName, FALSE);
+
+    if (soIgnoreCase in Options) then begin
+      if (VarToStr(val)=VarToStr(aPropertyValue)) then begin
+        result := i;
+        Exit;
+      end;
+    end
+    else begin
+      if (val=aPropertyValue) then begin
+        result := i;
+        Exit;
+      end;
+    end;
+  end;
+end;
+
+function TROCollection.Search(const aPropertyName : string;
+  const aPropertyValue : Variant; StartFrom : integer = 0;
+  Options : TROSearchOptions = [soIgnoreCase]) : TCollectionItem;
+var idx : integer;
+begin
+  idx := GetIndex(aPropertyName, aPropertyValue, StartFrom, Options);
+  if (idx>=0)
+    then result := Items[idx]
+    else result := NIL;
+end;
+
+{ TROConstantMemoryStream }
+
+constructor TROConstantMemoryStream.Create(aStream: TCustomMemoryStream; aFreeOldStream: boolean=false);
+var
+  lSize: longint;
+  lMemory: Pointer;
+begin
+  inherited Create();
+  lSize := aStream.Size;
+  {$IFDEF FPC}lMemory := nil; {$ENDIF}
+  GetMem(lMemory, lSize);
+  Move(aStream.Memory^, lMemory^, lSize);
+  SetPointer(lMemory, lSize);
+  if aFreeOldStream then
+    aStream.Free();
+end;
+
+destructor TROConstantMemoryStream.Destroy;
+begin
+  FreeMem(Memory);
+  inherited;
+end;
+
+function TROConstantMemoryStream.Write(const Buffer; Count: Integer): Integer;
+begin
+  result := 0; // else it will warn
+  RaiseError(err_StreamIsReadOnly);
+end;
+
+{ TROInterfacedObject }
+
+function TROInterfacedObject.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+function TROInterfacedObject._AddRef: Integer;
+begin
+  Result := InterlockedIncrement(FRefCount);
+end;
+
+function TROInterfacedObject._Release: Integer;
+begin
+  Result := InterlockedDecrement(FRefCount);
+  if Result = 0 then
+    Destroy;
+end;
+
+procedure TROInterfacedObject.AfterConstruction;
+begin
+  // Release the constructor''s implicit refcount
+  InterlockedDecrement(FRefCount);
+end;
+
+procedure TROInterfacedObject.BeforeDestruction;
+begin
+  if RefCount <> 0 then
+{$IFDEF FPC}
+    raise Exception.Create('Invalid Pointer Operation');
+{$ELSE}
+    System.Error(reInvalidPtr);
+{$ENDIF}
+end;
+
+// Set an implicit refcount so that refcounting
+// during construction won''t destroy the object.
+class function TROInterfacedObject.NewInstance: TObject;
+begin
+  Result := inherited NewInstance;
+  TROInterfacedObject(Result).FRefCount := 1;
+end;
+
+{$IFNDEF MSWINDOWS}
+constructor TROEvent.Create(Dummy: Pointer; ManualReset, InitialVal: Boolean;
+  Name: string);
+begin
+  inherited Create;
+  sem_init(FEvent, 0, Byte(InitialVal));
+end;
+
+destructor TROEvent.Destroy;
+begin
+  sem_destroy(FEvent);
+  inherited Destroy;
+end;
+
+procedure TROEvent.SetEvent;
+var
+  i: Integer;
+begin
+  {$IFDEF FPC}
+  i:=0;
+  {$ENDIF}
+  sem_getvalue(FEvent,I);
+  if I = 0 then
+    sem_post(FEvent);
+end;
+
+{$IFDEF DARWIN}
+{ from /developers/SDKs/MACOSX10.5.sdk/usr/include/mach/samaphore.h
+extern kern_return_t semaphore_timedwait (semaphore_t semaphore, mach_timespec_t wait_time;
+}
+function semaphore_timedwait(__sem:cint;wait_time: timespec):cint;cdecl;external 'c'  name 'semaphore_timedwait';
+
+function sem_timedwait(__sem:cint;wait_time: timespec):cint;
+begin
+  Result := semaphore_timedwait(__sem,wait_time);
+end;
+{$ENDIF}
+
+function TROEvent.WaitFor(Timeout: LongWord): TWaitResult;
+var
+  inttimeout: timespec;
+begin
+  if Timeout = Cardinal($FFFFFFFF) then
+  begin
+    if sem_Wait(FEvent) = 0 then
+      result := wrSignaled
+    else
+      result := wrTimeout;
+  end
+  else begin
+    inttimeout.tv_sec := fptime + (timeout div 1000);
+    inttimeout.tv_nsec := (timeout mod 1000);
+    if sem_timedwait(FEvent, inttimeout) = 0 then
+      Result := wrSignaled
+    else
+      Result := wrTimeout;
+  end;
+end;
+procedure TROEvent.ResetEvent;
+begin
+end;
+{$ENDIF}
+
+{$IFDEF MSWINDOWS}
+
+{$IFDEF UNICODE}
+function ROWideCompare(const S1, S2: UnicodeString; aCaseInsensitive: Boolean {$IFDEF MSWINDOWS};aLocale: LCID = LOCALE_USER_DEFAULT{$ENDIF}): Integer;
+var
+  dwCmpFlags: integer;
+  ls1,ls2: AnsiString;
+begin
+  SetLastError(0);
+  if aCaseInsensitive then
+    dwCmpFlags := NORM_IGNORECASE
+  else
+    dwCmpFlags := 0;
+  if Win32Platform = VER_PLATFORM_WIN32_NT then
+    Result := CompareStringW(ALocale, dwCmpFlags, PWideChar(S1), Length(S1), PWideChar(S2), Length(S2)) - 2
+  else begin
+  {$WARNINGS OFF}
+    ls1:= s1;
+    ls2:= s2;
+  {$WARNINGS ON}
+    Result := CompareStringA(ALocale, dwCmpFlags, PAnsiChar(ls1), Length(ls1), PAnsiChar(ls2), Length(ls2)) - 2
+  end;
+  if GetLastError <>0 then RaiseLastOSError;
+end;
+{$ENDIF}
+
+function ROWideCompare(const S1, S2: WideString; aCaseInsensitive: Boolean; aLocale: LCID = LOCALE_USER_DEFAULT): Integer;
+var
+  dwCmpFlags: integer;
+  ls1,ls2: AnsiString;
+begin
+  SetLastError(0);
+  if aCaseInsensitive then
+    dwCmpFlags := NORM_IGNORECASE
+  else
+    dwCmpFlags := 0;
+  if Win32Platform = VER_PLATFORM_WIN32_NT then
+    Result := CompareStringW(ALocale, dwCmpFlags, PWideChar(S1), Length(S1), PWideChar(S2), Length(S2)) - 2
+  else begin
+  {$WARNINGS OFF}
+    ls1:= s1;
+    ls2:= s2;
+  {$WARNINGS ON}
+    Result := CompareStringA(ALocale, dwCmpFlags, PAnsiChar(ls1), Length(ls1), PAnsiChar(ls2), Length(ls2)) - 2
+  end;
+  if GetLastError <>0 then RaiseLastOSError;
+end;
+
+function ROAnsiCompare(const S1, S2: AnsiString; aCaseInsensitive: Boolean; aLocale: LCID = LOCALE_USER_DEFAULT): Integer;
+var
+  dwCmpFlags: integer;
+begin
+  SetLastError(0);
+  if aCaseInsensitive then
+    dwCmpFlags := NORM_IGNORECASE
+  else
+    dwCmpFlags := 0;
+  Result := CompareStringA(ALocale, dwCmpFlags, PAnsiChar(s1), Length(s1), PAnsiChar(s2), Length(s2)) - 2;
+  if GetLastError <>0 then RaiseLastOSError;
+end;
+{$ENDIF}
+
+{$IFNDEF MSWINDOWS}
+function ROWideCompare(const S1, S2: WideString; aCaseInsensitive: Boolean): Integer;
+begin
+  if aCaseInsensitive then
+    Result:= WideCompareText(s1, s2)
+  else
+    Result:= WideCompareStr(s1, s2)
+end;
+
+function ROAnsiCompare(const S1, S2: AnsiString; aCaseInsensitive: Boolean): Integer;
+begin
+  if aCaseInsensitive then
+    Result:= AnsiCompareText(s1, s2)
+  else
+    Result:= AnsiCompareStr(s1, s2)
+end;
+{$ENDIF}
+
+function ROVarCompareArray(const A, B: Variant): TVariantRelationship;
+const
+  varArrayOfByte = varArray or varByte;
+var
+  lALen, lBLen: Integer;
+  lAPtr, lBPtr: Pointer;
+begin
+  // The only type of variant arrays we expect to find is variant array of byte
+  // All other types are not supported by this simple procedure
+  Result := vrNotEqual;
+  if VarIsType(A, varArrayOfByte) and VarIsType(B, varArrayOfByte) then
+  begin
+    lALen := VarArrayHighBound(A, 1) - VarArrayLowBound(A, 1) + 1;
+    lBLen := VarArrayHighBound(B, 1) - VarArrayLowBound(B, 1) + 1;
+    if lALen <> lBLen then Exit;
+
+    lAPtr := nil;
+    lBPtr := nil;
+    try
+      lAPtr := VarArrayLock(A);
+      lBPtr := VarArrayLock(B);
+      if CompareMem(lAPtr, lBPtr, lALen) then Result := vrEqual;
+    finally
+      if Assigned(lAPtr) then VarArrayUnlock(A);
+      if Assigned(lBPtr) then VarArrayUnlock(B);
+    end;
+  end;
+end;
+
+function ROCompareVariants(const A, B: Variant): TVariantRelationship;
+
+  // TVariantRelationship = (vrEqual, vrLessThan, vrGreaterThan, vrNotEqual);
+  function ConvertIntToVariantRelationship(const aResult: Integer):TVariantRelationship;
+  begin
+    if aResult > 0 then
+      Result := vrGreaterThan
+    else if aResult < 0 then
+      Result := vrLessThan
+    else
+      Result := vrEqual;
+  end;
+{$IFDEF FPC}
+var lA, lB: TVarData;
+{$ENDIF}
+begin
+{$IFDEF FPC}
+lA := TVarData(A);
+lB := TVarData(B);
+{$ENDIF}
+  if VarIsArray(A) xor VarIsArray(B) then
+    Result := vrNotEqual // we can't compare array and non-array ro
+  else if VarIsArray(A) and VarIsArray(B) then
+    Result := ROVarCompareArray(A, B)
+  else if {$IFDEF FPC}lA.vtype = lB.vtype{$ELSE}(VarType(A) = VarType(B)){$ENDIF} then
+    case {$IFDEF FPC}lA.vtype{$ELSE}VarType(A){$ENDIF} of
+      varUString, varOleStr: Result := ConvertIntToVariantRelationship(ROWideCompare(VarToWideStr(A),VarToWideStr(B),False));
+      varString : Result:= ConvertIntToVariantRelationship(ROAnsiCompare(VarToAnsiStr(A),VarToAnsiStr(B),False));
+    else
+      Result := VarCompareValue(A, B);
+    end
+  else
+    Result := VarCompareValue(A, B);
+end;
+
+
+function ROVariantsEqual(const A, B: Variant): Boolean;
+begin
+  Result := ROCompareVariants(A, B) = vrEqual;
+{
+  if VarIsArray(A) xor VarIsArray(B) then
+    Result := False
+  else
+  if VarIsArray(A) and VarIsArray(B) then
+    Result := ROVarCompareArray(A, B) = vrEqual
+  else
+    if (VarType(A) = VarType(B)) then
+      case VarType(A) of
+        varUString, varOleStr: Result:= ROWideCompare(VarToWideStr(A),VarToWideStr(B),False) = 0;
+        varString : Result:= ROAnsiCompare(VarToAnsiStr(A),VarToAnsiStr(B),False) = 0;
+      else
+        Result := VarCompareValue(A, B) = vrEqual;
+      end
+    else
+      Result := VarCompareValue(A, B) = vrEqual;
+}
+end;
+
+{ EROException }
+
+class function EROException.GetAttributeCount: Integer;
+begin
+  result := 0;
+end;
+
+class function EROException.GetAttributeName(aIndex: Integer): string;
+begin
+  result := '';
+end;
+
+class function EROException.GetAttributeValue(aIndex: Integer): string;
+begin
+  result := '';
+end;
+
+destructor EROException.Destroy;
+var props : PPropList;
+    cnt, i : integer;
+    sub : TObject;
+    lName : string;
+begin
+  cnt := GetTypeData(ClassInfo).PropCount;
+  if (cnt=0) then Exit;
+  {$IFDEF FPC}
+  props := nil;
+  {$ENDIF}
+  GetMem(props, cnt*SizeOf(PPropInfo));
+  try
+    cnt := GetPropList(ClassInfo, [tkClass], props);
+
+    for i := 0 to (cnt-1) do begin
+      with props^[i]^ do
+        if (PropType^.Kind=tkClass) then begin
+          lName := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(Name); 
+          sub := GetObjectProp(Self, lName);
+          sub.Free;
+        end;
+    end;
+  finally
+    FreeMem(props, cnt*SizeOf(PPropInfo));
+  end;
+
+  inherited;
+end;
+
+procedure EROException.ReadException(ASerializer: TObject);
+begin
+  TROBaseSerializer(ASerializer).ReadObject(Self);
+end;
+
+procedure EROException.WriteException(ASerializer: TObject);
+begin
+  TROBaseSerializer(ASerializer).WriteObject(Self);
+end;
+
+{ TROInitializedThread }
+
+constructor TROInitializedThread.Create(CreateSuspended: Boolean);
+begin
+  FInitialize := ROInitializeThreads;
+  {$IFDEF MSWINDOWS}
+  if FInitialize then CoInitialize(nil);
+  {$ENDIF}
+  inherited Create(CreateSuspended);
+end;
+
+destructor TROInitializedThread.Destroy;
+begin
+  inherited;
+  {$IFDEF MSWINDOWS}
+  if FInitialize then CoUninitialize;
+  {$ENDIF}
+end;
+
+{ TROEnumMapping }
+
+constructor TROEnumMapping.Create(aEnumName: string; aEnumValue: string; aEnumOriginalValue: string);
+begin
+  EnumName := aEnumName;
+  EnumValue := aEnumValue;
+  EnumOriginalValue := aEnumOriginalValue;
+end;
+
+var _EnumRemapping: TList;
+
+procedure UnRegisterEnumMappings();
+var
+  i: integer;
+begin
+  if _EnumRemapping <> nil then
+  begin
+    for i := 0 to _EnumRemapping.Count - 1 do TROEnumMapping(_EnumRemapping.Items[i]).Free;
+    FreeAndNil(_EnumRemapping);
+  end;
+end;
+
+procedure RegisterEnumMapping(aMapping: TROEnumMapping);
+var
+  i: integer;
+  lFound: boolean;
+begin
+   if _EnumRemapping = nil then _EnumRemapping := TList.Create;
+   lFound := false;
+   for i := 0 to _EnumRemapping.Count - 1 do
+   if SameText(aMapping.EnumName, TROEnumMapping(_EnumRemapping.Items[i]).EnumName)
+      and SameText(aMapping.EnumValue, TROEnumMapping(_EnumRemapping.Items[i]).EnumValue)
+      and SameText(aMapping.EnumOriginalValue, TROEnumMapping(_EnumRemapping.Items[i]).EnumOriginalValue)
+   then
+   begin
+     lFound := true;
+     break;
+   end;
+  if not lFound then _EnumRemapping.Add(aMapping);
+end;
+
+function FindROEnumValue(aEnum: string; aOriginalVal: string): string;
+var i: integer;
+begin
+  result := '';
+  if _EnumRemapping <> nil then
+  for i := 0 to _EnumRemapping.Count - 1 do
+  with TROEnumMapping(_EnumRemapping.Items[i]) do
+  if SameText(aEnum, EnumName)
+    and SameText(aOriginalVal, EnumOriginalValue) then
+  begin
+    result := EnumValue;
+    exit;
+  end;
+end;
+
+function FindSOAPEnumValue(aEnum: string; aROVal: string): string;
+var i: integer;
+begin
+  result := '';
+  if _EnumRemapping <> nil then
+  for i := 0 to _EnumRemapping.Count - 1 do
+  with TROEnumMapping(_EnumRemapping.Items[i]) do
+  if SameText(aEnum, EnumName)
+    and SameText(aROVal, EnumValue) then
+  begin
+    result := EnumOriginalValue;
+    exit;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClient.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClient.pas
new file mode 100644
index 0000000..611da6e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClient.pas	
@@ -0,0 +1,2642 @@
+unit uROClient;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  {$IFDEF RemObjects_UseEncryption}uROEncryption,{$ENDIF}
+  Classes, SysUtils, TypInfo,
+  uRODL, uROSerializer, uROClientIntf, uROClasses, uROAsync;
+
+type
+  TEnvelopeSignature = array[0..4] of AnsiChar;
+
+const
+  EnvelopeSignature : TEnvelopeSignature =    ( #82,  #79,  #69,  #78, #86); //'ROENV';
+  {
+   // 52 4F 45 4E 56 = 'ROENV'  signature
+   // XX             = length of name of envelope
+   // YY ...         = Name of envelope
+  }
+
+const
+  EmptyGUID : TGUID = '{00000000-0000-0000-0000-000000000000}';
+
+  MetadataRequestIDLength = 4;
+  MetadataRequestID : array[0..MetadataRequestIDLength-1] of ansichar = 'RODL';
+
+  ProbeRequestIDLength = 5;
+  ProbeRequestID : array[0..ProbeRequestIDLength-1] of ansichar = 'PROBE';
+
+  ProbeResponseIDLength = 8;
+  ProbeResponseID : array[0..ProbeResponseIDLength-1] of ansichar = 'PROBEDOK';
+
+  name_Exception = 'ROException'; // User by the message components to write exceptions
+  DataFormatXml = 'text/xml; charset="utf-8"';
+  DataFormatBinary = 'application/binary';
+
+type
+
+  TROCustomRODLReader = class;
+  TROMessage = class;
+  TROTransportChannel = class;
+
+  EROChannelBusy = class(EROException);
+
+  EROUnknownType = class(EROUnknownItem);
+  EROMessageTooLarge = class(EROException);
+
+  EROSessionNotFound = class(EROException);
+  SessionDoesNotHaveRequiredRolesException = class(EROException);
+  EROSessionExpired = class(EROSessionNotFound);
+  SessionNotFoundException = class(EROSessionNotFound);
+
+  TROEventSinkType = (esWriter, esReader);
+  { TROProxy }
+
+  TROProxy = class(TInterfacedObject, IUnknown)
+  private
+    fMessage,
+    fTransportChannel : pointer;
+    // Weak references because the Application frees the components before ref counting steps in. This results in AVs
+
+    fInterfaceName : string;
+
+    function _GetMessage: IROMessage;  // cannot use "GetMessage" name for C++Builder compatibility
+    function GetTransportChannel: IROTransportChannel;
+    function GetInterfaceName:string;
+
+  protected
+    function __GetInterfaceName:string; virtual; abstract;
+
+  public
+    constructor Create(const aMessage : IROMessage; const aTransportChannel : IROTransportChannel); overload; virtual;
+
+    // Added to support polymorphic invocation in Data Abstract. Shouldn't be used in regular situations.
+    constructor Create(const anInterfaceName : string;
+                       const aMessage : IROMessage;
+                       const aTransportChannel : IROTransportChannel); overload; virtual;
+
+    property __Message : IROMessage read _GetMessage;
+    property __TransportChannel : IROTransportChannel read GetTransportChannel;
+    property __InterfaceName:string read GetInterfaceName;
+  end;
+
+  TROProxyClass = class of TROProxy;
+
+  { TROComponent }
+  TROComponent = class(TComponent)
+  private
+    FCriticalSection: TRTLCriticalSection;
+    FROFreeNotifies: TList;
+    procedure LockList;
+    procedure UnlockList;
+    procedure RORemoveNotification(AComponent: TComponent);
+    procedure RORemoveNotificationFromList;
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure SendRemoveNotification(AComponent: TComponent);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure ROFreeNotification(AComponent: TComponent);
+    procedure RORemoveFreeNotification(AComponent: TComponent);
+  end;
+
+  { TROMessageAwareComponent }
+  TROMessageAwareComponent = class(TROComponent)
+  private
+    fMessage: TROMessage;
+
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure SetMessage(const Value: TROMessage); virtual;
+
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    property Message : TROMessage read fMessage write SetMessage;
+  end;
+
+  { TROChannelAwareComponent }
+  TROChannelAwareComponent = class(TROMessageAwareComponent)
+  private
+    fChannel: TROTransportChannel;
+
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure SetChannel(const Value: TROTransportChannel); virtual;
+
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    property Channel : TROTransportChannel read fChannel write SetChannel;
+  end;
+
+  { TROMessage }
+  TStreamOperation = procedure(aStream : TStream) of object;
+
+  TROServerExceptionEvent = procedure(anException : Exception; var RaiseException: boolean) of object;
+  TROInitializeMessageEvent = procedure(Sender : TROMessage; const aTransport : IROTransport; const anInterfaceName, aMessageName : string) of object;
+  TROFinalizeMessageEvent = procedure(Sender : TROMessage) of object;
+  TROWriteMessageParameterEvent = procedure(Sender : TROMessage; const aName : string; aTypeInfo : PTypeInfo; const DataRef : pointer; Attributes : TParamAttributes) of object;
+  TROReadMessageParameterEvent = procedure(Sender : TROMessage; const aName : string; aTypeInfo : PTypeInfo; const DataRef : pointer; Attributes : TParamAttributes) of object;
+  TROWriteExceptionEvent = procedure(Sender : TROMessage; aStream: TStream; E : Exception) of object;
+
+
+  { TROCustomRODLReader }
+  TROReadRODLEvent = procedure(aRODLReader : TROCustomRODLReader; aStream : TStream) of object;
+
+  TROCustomRODLReader = class(TROComponent)
+  private
+    fOnBeforeReadRODL: TROReadRODLEvent;
+    fOnAfterReadRODL: TROReadRODLEvent;
+
+  protected
+    procedure DoReadRODLResource(aStream : TStream); virtual; abstract;
+
+  public
+    procedure ReadRODLResource(aStream : TStream);
+    procedure Assign(Source: TPersistent); override;
+  published
+    property OnBeforeReadRODL : TROReadRODLEvent read fOnBeforeReadRODL write fOnBeforeReadRODL;
+    property OnAfterReadRODL : TROReadRODLEvent read fOnAfterReadRODL write fOnAfterReadRODL;
+  end;
+
+  TROMessageEnvelope = class;
+  TROMessageEnvelopeItem = class;
+  TROMessageEnvelopeCollection = class;
+  TROMessageEnvelopeMode = (memOutgoing, memIncoming);
+
+  { TROMessage }
+  TROMessage = class(TROComponent, IUnknown, IROMessage, IROMessageCloneable, IROModuleInfo)
+  private
+    fSerializer : TROSerializer;
+    fMessageName,
+    fInterfaceName : string;
+    fOnReadFromStream: TStreamOperation;
+    fOnWriteToStream: TStreamOperation;
+    fOnServerException: TROServerExceptionEvent;
+
+    fRefCount:integer;
+    fReferenceCounted:boolean;
+    fClientID : TGUID;
+    fRODLReader: TROCustomRODLReader;
+    fOnFinalizeMessage: TROFinalizeMessageEvent;
+    fOnInitializeMessage: TROInitializeMessageEvent;
+    fOnReadMessageParameter: TROReadMessageParameterEvent;
+    fOnWriteMessageParameter: TROWriteMessageParameterEvent;
+    fOnWriteException: TROWriteExceptionEvent;
+    fAddServerExceptionPrefix: boolean;
+    fEnvelopes: TROMessageEnvelopeCollection;
+    fBeforeProcessIncomingEnvelopes: TStreamOperation;
+    fAfterProcessOutgoingEnvelopes: TStreamOperation;
+    fAfterProcessIncomingEnvelopes: TStreamOperation;
+    fBeforeProcessOutgoingEnvelopes: TStreamOperation;
+
+    procedure SetRODLReader(const Value: TROCustomRODLReader);
+    procedure TriggerOnWriteToStream(aStream: TStream);
+    procedure SetEnvelopes(const Value: TROMessageEnvelopeCollection);
+
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    procedure ProcessException;
+    function ReadException : Exception; virtual; abstract;
+    function CreateException(const aExceptionName, aMessage: string): Exception;
+
+    { Internals }
+    procedure InitObject; virtual;
+    function CreateSerializer : TROSerializer; virtual; abstract;
+
+    { IROUnknown }
+
+    function _AddRef:integer; stdcall;
+    function _Release:integer; stdcall;
+
+    { IROMessage }
+    procedure Initialize(const aTransport : IROTransport; const anInterfaceName, aMessageName : string; aType: TMessageType); overload; virtual;
+    procedure Initialize(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string; aType: TMessageType); overload; virtual;
+    procedure InitializeRead(const aTransport : IROTransport); virtual;
+
+    procedure InitializeRequestMessage(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string);
+    procedure InitializeResponseMessage(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string);
+    procedure InitializeEventMessage(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string);
+    procedure InitializeExceptionMessage(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string); virtual;
+
+    procedure Finalize; virtual;
+
+    {$IFDEF DOTNET}
+    {$ELSE}
+    procedure Write(const aName : string; aTypeInfo : PTypeInfo; const Ptr; Attributes : TParamAttributes); virtual;
+    procedure Read(const aName : string; aTypeInfo : PTypeInfo; var Ptr; Attributes : TParamAttributes); virtual;
+    {$ENDIF}
+
+    function GetClientID : TGUID; virtual;
+    procedure SetClientID(const Value : TGUID); virtual;
+
+    function GetMessageName : string;
+    function GetInterfaceName : string;
+
+    procedure SetInterfaceName(const aValue : string);
+    procedure SetMessageName(const aValue : string);
+
+    procedure WriteToStream(aStream : TStream); virtual;
+    procedure ReadFromStream(aStream : TStream); overload; virtual;
+    procedure ReadFromStream(aStream : TStream; var aFreeStream: Boolean); overload; virtual;
+
+    procedure WriteException(aStream : TStream; anException : Exception); virtual;
+
+    procedure FreeStream; virtual;
+    function GetMessageType: TMessageType; virtual;
+
+    { Writers }
+    procedure WriteInteger(const aName : string; anOrdType : TOrdType; const Ref; ArrayElementId : integer = -1);
+    procedure WriteInt64(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1);
+    procedure WriteUTF8String(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteAnsiString(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteWideString(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteDateTime(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteDouble(const aName : string; aFloatType : TFloatType; const Ref; ArrayElementId : integer = -1);
+    procedure WriteVariant(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteXml(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteGuid(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteDecimal(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteStruct(const aName : string; const Ref; aClass: TClass = nil;ArrayElementId : integer = -1);
+    procedure WriteArray(const aName : string; const Ref; aClass: TClass = nil;ArrayElementId : integer = -1);
+    procedure WriteBinary(const aName : string; const Ref; ArrayElementId : integer = -1);
+    { Readers }
+    procedure ReadInteger(const aName : string; anOrdType : TOrdType; var Ref; ArrayElementId : integer = -1);
+    procedure ReadInt64(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; var Ref; ArrayElementId : integer = -1);
+    procedure ReadUTF8String(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+    procedure ReadAnsiString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+    procedure ReadWideString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+    procedure ReadDateTime(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadDouble(const aName : string; aFloatType : TFloatType; var Ref; ArrayElementId : integer = -1);
+    procedure ReadVariant(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadXml(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadGuid(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadDecimal(const aName : string; var Ref; ArrayElementId : integer = -1);
+    function ReadStruct(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean;
+    function ReadArray(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean;
+    procedure ReadBinary(const aName : string; var Ref; ArrayElementId : integer = -1);
+    { IROModuleInfo }
+
+    procedure GetModuleInfo(aStream : TStream; const aTransport : IROTransport; var aFormat : TDataFormat); virtual;
+    procedure GetRodlInfo(aStream : TStream; const aTransport : IROTransport; var aFormat : TDataFormat); overload;
+
+    { IROMessageClonable }
+    function Clone: IROMessage;
+    procedure SetAttributes(aTransport: IROTransport;
+      const aNames: array of String; const aValues: array of String); virtual;
+    procedure UnsetAttributes(aTransport: IROTransport); virtual;
+  // Envelopes
+    procedure WriteEnvelopeHeader(aEnvelope: TROMessageEnvelope; AStream: TStream);
+    function CheckForEnvelope(aStream: TStream; var aEnvelopeName: String): boolean;
+    procedure Envelopes_ProcessIncoming(aStream: TStream);
+    procedure Envelopes_ProcessOutgoing(aStream: TStream);
+  public
+    constructor CreateRefCountedClone(iMessage:TROMessage); virtual;
+    constructor Create; reintroduce; overload; virtual;
+    constructor Create(aOwner : TComponent); overload; override;
+    destructor Destroy; override;
+
+    procedure Assign(iSource:TPersistent); override;
+
+    property Serializer : TROSerializer read fSerializer;
+
+    property MessageName : string read GetMessageName write SetMessageName;
+    property InterfaceName : string read GetInterfaceName write SetInterfaceName;
+
+    property ClientID:TGuid read GetClientID write SetClientID;
+    function IsValidMessage(aData: PAnsiChar; aLength: Integer): boolean; virtual; abstract;
+    procedure CheckProperties; virtual;
+  published
+    property OnWriteToStream : TStreamOperation read fOnWriteToStream Write fOnWriteToStream;
+    property OnReadFromStream : TStreamOperation read fOnReadFromStream Write fOnReadFromStream;
+    property OnServerException : TROServerExceptionEvent read fOnServerException write fOnServerException;
+
+    property RODLReader : TROCustomRODLReader read fRODLReader write SetRODLReader;
+    property AddServerExceptionPrefix: boolean read fAddServerExceptionPrefix write fAddServerExceptionPrefix default true;
+
+    property OnInitializeMessage : TROInitializeMessageEvent read fOnInitializeMessage write fOnInitializeMessage;
+    property OnFinalizeMessage : TROFinalizeMessageEvent read fOnFinalizeMessage write fOnFinalizeMessage;
+    property OnWriteMessageParameter : TROWriteMessageParameterEvent read fOnWriteMessageParameter write fOnWriteMessageParameter;
+    property OnReadMessageParameter : TROReadMessageParameterEvent read fOnReadMessageParameter write fOnReadMessageParameter;
+    property OnWriteException: TROWriteExceptionEvent read fOnWriteException write fOnWriteException;
+    property OnBeforeProcessOutgoingEnvelopes: TStreamOperation read fBeforeProcessOutgoingEnvelopes write fBeforeProcessOutgoingEnvelopes;
+    property OnAfterProcessOutgoingEnvelopes: TStreamOperation read fAfterProcessOutgoingEnvelopes write fAfterProcessOutgoingEnvelopes;
+    property OnBeforeProcessIncomingEnvelopes: TStreamOperation read fBeforeProcessIncomingEnvelopes write fBeforeProcessIncomingEnvelopes;
+    property OnAfterProcessIncomingEnvelopes: TStreamOperation read fAfterProcessIncomingEnvelopes write fAfterProcessIncomingEnvelopes;
+    property Envelopes : TROMessageEnvelopeCollection read fEnvelopes write SetEnvelopes;
+  end;
+
+  TROMessageClass = class of TROMessage;
+  ExceptionClass = class of Exception;
+
+  { TROTransportChannel }
+  TRODispatchOption = (doFaultTolerant, doLoadBalanced);
+  TRODispatchOptions = set of TRODispatchOption;
+
+  TROBeginProbeServersEvent = procedure(Sender : TROTransportChannel) of object;
+  TROEndProbeServersEvent = procedure(Sender : TROTransportChannel; ProbedCount, EnabledCount, DisabledCount : integer) of object;
+
+  TROBeginProbeServerEvent = procedure(Sender : TROTransportChannel; aServerLocator : TROServerLocator) of object;
+  TROEndProbeServerEvent = procedure(Sender : TROTransportChannel; aServerLocator : TROServerLocator; Failed : boolean) of object;
+
+  TStreamDispatch = procedure(aStream : TStream) of object;
+
+  TServerLocatorAssignment = procedure(Sender : TROTransportChannel;
+                                       aLocator : TROServerLocator;
+                                       aException : Exception) of object;
+
+  TProgressType = (ptUnknown, ptStart, ptInProgress, ptDone);
+  TProgressDirection = (pdUnknown, pdSending, pdReceiving);
+  TProgressEvent = procedure(iSender:TObject; iType:TProgressType; iDirection:TProgressDirection; iTransferred,iTotal:integer) of object;
+
+  TROExceptionEvent = procedure(Sender: TROTransportChannel; anException: Exception; var aRetry: Boolean) of object;
+
+  TROBaseConnection = class;
+  TROBaseConnectionOperation =  procedure(Sender: TROBaseConnection; aEncryptedStream : TStream) of object;
+  { TROBaseConnection }
+  TROBaseConnection = class(TROComponent)
+  private
+    {$IFDEF RemObjects_UseEncryption}
+    fEncryption: TROEncryption;
+    fBeforeDecrypt: TROBaseConnectionOperation; // for test purposes
+    fAfterEncrypt: TROBaseConnectionOperation;  // for test purposes
+    procedure SetEncryption(NewValue: TROEncryption);
+    {$ENDIF}
+  protected
+    {$IFDEF RemObjects_UseEncryption}
+    property onBeforeDecrypt: TROBaseConnectionOperation read fBeforeDecrypt write fBeforeDecrypt;
+    property onAfterEncrypt: TROBaseConnectionOperation read fAfterEncrypt write fAfterEncrypt;
+    {$ENDIF}
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+
+    {$IFDEF RemObjects_UseEncryption}
+    procedure DoEncryption(iPlainText, iCipherText: TStream); virtual;
+    procedure DoDecryption(iCipherText, iPlainText: TStream); virtual;
+    procedure DoEncryption2(const iStream: TStream);
+    procedure DoDecryption2(const iStream: TStream);
+    {$ENDIF}
+
+  published
+    {$IFDEF RemObjects_UseEncryption}
+    property Encryption: TROEncryption read fEncryption write SetEncryption;
+    {$ENDIF}
+  end;
+
+  TROAsyncExceptionEvent = procedure(Sender: TROTransportChannel; Async: IROAsyncInterface; anException: Exception) of object;
+
+  {$ifdef REMOBJECTS_UseEncryption}
+  TROTransportChannel = class(TROBaseConnection, IROTransportChannel, IROTransport, IROMetadataReader,IROTransportChannelAsyncException)
+  {$else}
+  TROTransportChannel = class(TROComponent, IROTransportChannel, IROTransport, IROMetadataReader,IROTransportChannelAsyncException)
+  {$endif}
+  private
+    fOnReceiveStream : TStreamDispatch;
+    fOnSendStream : TStreamDispatch;
+    fBusy: boolean;
+    fOnProgress: TProgressEvent;
+    fServerLocators: TROServerLocatorCollection;
+    fOnServerLocatorAssignment : TServerLocatorAssignment;
+    fDispatchOptions: TRODispatchOptions;
+
+    fCurrentLocator : TROServerLocator;
+
+    fLoadBalancerLocatorIdx,
+    fFaultToleranceLocatorIdx : integer;
+    fProbingClone : TROTransportChannel;
+
+    fProbeTimer : TROThreadTimer;
+    fLoadedProbeServers,
+    fProbeServers: boolean;
+    fProbeFrequency: cardinal;
+    fOnBeforeProbingServers: TROBeginProbeServersEvent;
+    fOnAfterProbingServers: TROEndProbeServersEvent;
+    fOnBeforeProbingServer: TROBeginProbeServerEvent;
+    fOnAfterProbingServer: TROEndProbeServerEvent;
+    fSynchronizedProbing: Boolean;
+    fOnLoginNeeded: TROExceptionEvent;
+    fOnException: TROExceptionEvent;
+    fThreadSafe: Boolean;
+    fOnAsyncException: TROAsyncExceptionEvent;
+
+    { IROTransportChannel }
+    procedure Dispatch(aRequest, aResponse : TStream); reintroduce; overload;
+
+    procedure SetProbeFrequency(const Value: cardinal);
+    procedure SetProbeServers(const Value: boolean);
+    procedure SetServerLocators(const Value: TROServerLocatorCollection);
+    procedure SetCurrentLocator(const Value: TROServerLocator);
+    procedure OnProbeTimerTick(Dummy: Cardinal);
+    procedure SetSynchronizedProbing(const Value: Boolean);
+  protected
+    function intInitServerLocator:Integer;
+    procedure intChangeServerLocator(var faultstartlocatoridx: integer; var aRetry: Boolean; const aException: Exception);
+    function InitServerLocator:Integer; virtual;
+    procedure ChangeServerLocator(var faultstartlocatoridx: integer; var aRetry: Boolean; const aException: Exception); virtual;
+    procedure DecodeEventStream(const aStream: TStream);
+  protected
+    property ThreadSafe: Boolean read fThreadSafe write fThreadSafe;
+    procedure Loaded; override;
+    { IROTransport }
+    function GetTransportObject : TObject; virtual; abstract;
+
+    { IROTransportChannel }
+    procedure Dispatch(aMessage: IROMessage); reintroduce; overload;
+    function Probe(aServerLocator : TROServerLocator) : boolean;
+    procedure ProbeAll;
+    procedure SetServerLocator(aServerLocator : TROServerLocator; anException : Exception = NIL);
+    { IROTransportChannelAsyncException }
+    procedure AsyncException(aAsyncInterface: IROAsyncInterface; AsyncException: Exception);
+
+    { IROMetadataReader }
+    procedure RetrieveMetadata(out Metadata : TStream); virtual;
+    procedure RetrieveRODL(out RODLLibrary : TRODLLibrary);
+
+    { TROTransportChannel }
+    procedure IntDispatch(aRequest, aResponse : TStream); virtual; abstract;
+    procedure IntSetServerLocator(aServerLocator : TROServerLocator); virtual;
+
+    procedure TriggerProgress(iType:TProgressType; iDirection:TProgressDirection; iTransfered,iTotal:integer);
+
+    procedure BeforeDispatch(aMessage: IROMessage); virtual;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+
+    procedure Assign(aSource : TPersistent); override;
+
+    property CurrentLocator : TROServerLocator read fCurrentLocator write SetCurrentLocator;
+
+    property Busy : boolean read fBusy;
+    property LoadBalancerLocatorIdx : Integer read fLoadBalancerLocatorIdx write fLoadBalancerLocatorIdx;
+    property FaultToleranceLocatorIdx : integer read fFaultToleranceLocatorIdx write fFaultToleranceLocatorIdx;
+    procedure CheckProperties; virtual;
+  public
+    property DispatchOptions : TRODispatchOptions read fDispatchOptions write fDispatchOptions;
+    property OnAfterProbingServer : TROEndProbeServerEvent read fOnAfterProbingServer write fOnAfterProbingServer;
+    property OnAfterProbingServers : TROEndProbeServersEvent read fOnAfterProbingServers write fOnAfterProbingServers;
+    property OnBeforeProbingServer : TROBeginProbeServerEvent read fOnBeforeProbingServer write fOnBeforeProbingServer;
+    property OnBeforeProbingServers : TROBeginProbeServersEvent read fOnBeforeProbingServers write fOnBeforeProbingServers;
+    property OnLoginNeeded : TROExceptionEvent read fOnLoginNeeded write fOnLoginNeeded;
+    property OnProgress:TProgressEvent read fOnProgress write fOnProgress;
+    property OnReceiveStream : TStreamDispatch read fOnReceiveStream write fOnReceiveStream;
+    property OnSendStream : TStreamDispatch read fOnSendStream write fOnSendStream;
+    property OnServerLocatorAssignment : TServerLocatorAssignment read fOnServerLocatorAssignment write fOnServerLocatorAssignment;
+    property ProbeFrequency : cardinal read fProbeFrequency write SetProbeFrequency default 60000;
+    property ProbeServers : boolean read fProbeServers write SetProbeServers default false;
+    property ServerLocators : TROServerLocatorCollection read fServerLocators write SetServerLocators;
+    property SynchronizedProbing: Boolean read fSynchronizedProbing write SetSynchronizedProbing default true;
+  published
+    property OnAsyncException: TROAsyncExceptionEvent read fOnAsyncException write fOnAsyncException;
+    property OnFailure : TROExceptionEvent read fOnException write fOnException; { deprecated }
+    property OnException : TROExceptionEvent read fOnException write fOnException;
+  end;
+
+  TROTransportChannelClass = class of TROTransportChannel;
+
+  { IROObjectRetainer }
+  IROObjectRetainer = interface
+  ['{1DFCCCAB-CD61-415F-ADFB-258C067E9A59}']
+    procedure RetainObject(const anObject : TObject);
+    procedure ReleaseObject(const anObject : TObject);
+    function IsRetained(const anObject : TObject) : boolean;
+  end;
+
+  { TROObjectDisposer }
+  TROObjectDisposer = class(TList)
+  private
+    fService : IInterface;
+
+  public
+    constructor Create(const aService : IInterface);
+    destructor Destroy; override;
+
+    procedure Add(iObject: TObject);
+  end;
+
+  TROMessageEnvelopeProcessed = procedure(AMessageEnvelope:TROMessageEnvelope; AStream: TStream; aMode: TROMessageEnvelopeMode; AMessage: IROMessage) of object;
+
+  TROMessageEnvelope = class(TROComponent)
+  private
+    fAfterEnvelopeProcessed: TROMessageEnvelopeProcessed;
+    fBeforeEnvelopeProcessed: TROMessageEnvelopeProcessed;
+    fReuseOriginalStream: boolean;
+    FEnvelopeMarker: UTF8String;
+    procedure SetEnvelopeMarker(const Value: String);
+    function GetEnvelopeMarker: String;
+  protected
+    procedure intProcessOutgoing(Source, Dest: TStream; aMessage: IROMessage); virtual;
+    procedure intProcessIncoming(Source, Dest: TStream; aMessage: IROMessage); virtual;
+    property ReuseOriginalStream: boolean read fReuseOriginalStream write fReuseOriginalStream default True;
+    function GetDefaultEnvelopeMarker: string; virtual;
+  public
+    constructor Create(AOwner: TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+    function ProcessOutgoing(aMessage: TROMessage; aStream: TStream): TStream;
+    function ProcessIncoming(aMessage: TROMessage; aStream: TStream): TStream;
+  published
+    property EnvelopeMarker: string read GetEnvelopeMarker write SetEnvelopeMarker;
+    property BeforeEnvelopeProcessed: TROMessageEnvelopeProcessed read fBeforeEnvelopeProcessed write fBeforeEnvelopeProcessed;
+    property AfterEnvelopeProcessed: TROMessageEnvelopeProcessed read fAfterEnvelopeProcessed write fAfterEnvelopeProcessed;
+  end;
+
+  TROMessageEnvelopeItem = class(TCollectionItem)
+  private
+    fEnabled: boolean;
+    fEnvelope: TROMessageEnvelope;
+    procedure SetEnvelope(const Value: TROMessageEnvelope);
+    function GetEnabled: boolean;
+  protected
+    function GetDisplayName: string; override;
+  public
+    constructor Create(aCollection: TCollection); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property EnvelopeMarker: string read GetDisplayName;
+    property Envelope: TROMessageEnvelope read fEnvelope write SetEnvelope;
+    property Enabled: Boolean read GetEnabled write fEnabled default True;
+  end;
+
+  TROMessageEnvelopeCollection = class(TCollection)
+  private
+    fMessage: TROMessage;
+    function GetEnvelope(Index: integer): TROMessageEnvelopeItem;
+  protected
+  public
+    constructor Create(aMessage: TROMessage);
+    function ItemByEnvelope(const aEnvelope: TROMessageEnvelope): TROMessageEnvelopeItem;
+    function ItemByMarker(const aMarker: String): TROMessageEnvelopeItem;
+    property Items[Index: integer]: TROMessageEnvelopeItem read GetEnvelope; default;
+  end;
+
+
+{ Message class registration routines }
+procedure RegisterMessageClass(aROMessageClass : TROMessageClass);
+procedure UnregisterMessageClass(aROMessageClass : TROMessageClass);
+function GetMessageClass(Index : integer) : TROMessageClass;
+function GetMessageClassCount : integer;
+function FindMessageClass(const aName : string; Silent : boolean = FALSE) : TROMessageClass;
+procedure ListMessageClasses(aList : TStrings);
+
+{ Proxy registration }
+procedure RegisterProxyClass(const anInterfaceID : TGUID; aProxyClass : TROProxyClass);
+procedure UnregisterProxyClass(const anInterfaceID : TGUID);
+function FindProxyClass(const anInterfaceID : TGUID; Silent : boolean = FALSE) : TROProxyClass;
+procedure ListProxyClasses(aList : TStrings);
+
+{ Exception registration }
+function GetExceptionClass(const anExceptionClassName : string) : ExceptionClass;
+procedure RegisterExceptionClass(anExceptionClass : ExceptionClass);
+procedure UnregisterExceptionClass(anExceptionClass : ExceptionClass);
+
+{ Transport channels registration }
+procedure RegisterTransportChannelClass(aTransportChannelClass : TROTransportChannelClass);
+procedure UnregisterTransportChannelClass(aTransportChannelClass : TROTransportChannelClass);
+function FindTransportChannelClass(const aName : string; Silent : boolean = FALSE) : TROTransportChannelClass;
+procedure ListTransportChannelClasses(aList : TStrings);
+
+procedure GetRodl(aStream: TStream; const aTransport : IROTransport; var aFormat : TDataFormat; ARODLReader: TROCustomRODLReader = nil);
+function GetRodlLibrary(ARodlReader: TROCustomRODLReader = nil): TRODLLibrary;
+
+procedure RegisterServiceAttribute(const aService, aName, aValue: string);
+function  GetServiceAttribute(const aService, aName: string): string;
+function GetServiceAttributes(const aName: string): TStrings;
+
+
+implementation
+
+uses
+     {$IFDEF DEBUG_REMOBJECTS}eDebugServer,{$ENDIF}
+     {$IFDEF LCL}LResources,{$ENDIF}
+     uRORes, uROHTTPTools;
+
+var _MessageClasses : TClassList;
+    _ExceptionClasses : TClassList;
+  fServiceAttributeList: TStringList;
+
+function GetServiceAttributes(const aName: string): TStrings;
+var
+  lIndex: Integer;
+begin
+  lIndex := fServiceAttributeList.IndexOf(aName);
+  if lIndex <> -1 then
+    result := TStrings(fServiceAttributeList.Objects[lIndex])
+  else
+    result := nil;
+end;
+
+procedure RegisterServiceAttribute(const aService, aName, aValue: string);
+var
+  lIndex: Integer;
+  lList: TStringList;
+begin
+  lIndex := fServiceAttributeList.IndexOf(aService);
+  if lIndex = -1 then begin
+    lList := TStringList.Create;
+    fServiceAttributeList.AddObject(aService, lList);
+  end else
+    lList := fServiceAttributeList.Objects[lIndex] as TStringList;
+  lList.Values[aName] := aValue;
+end;
+
+function GetServiceAttribute(const aService, aName: string): string;
+var
+  lList: TStrings;
+begin
+  lList := GetServiceAttributes(aService);
+  if lList = nil then
+    result := ''
+  else
+    result := lList.Values[aName];
+end;
+
+
+procedure RegisterMessageClass(aROMessageClass : TROMessageClass);
+begin
+  _MessageClasses.Add(aROMessageClass);
+  Classes.RegisterClass(aROMessageClass);
+end;
+
+procedure UnregisterMessageClass(aROMessageClass : TROMessageClass);
+begin
+  _MessageClasses.Remove(aROMessageClass);
+  Classes.UnRegisterClass(aROMessageClass);
+end;
+
+function GetMessageClass(Index : integer) : TROMessageClass;
+begin
+  result := TROMessageClass(_MessageClasses[Index]);
+end;
+
+function GetMessageClassCount : integer;
+begin
+  result := _MessageClasses.Count
+end;
+
+function FindMessageClass(const aName : string; Silent : boolean = FALSE) : TROMessageClass;
+var i: integer;
+begin
+  result := NIL;
+  for i := 0 to (_MessageClasses.Count-1) do
+    if SameText(TROMessageClass(_MessageClasses[i]).ClassName, aName) then begin
+      result := TROMessageClass(_MessageClasses[i]);
+      Exit;
+    end;
+
+  if not Silent
+    then RaiseError(err_UnknownMessageClass, [aName]);
+end;
+
+procedure ListMessageClasses(aList : TStrings);
+var i: integer;
+begin
+  for i := 0 to (_MessageClasses.Count-1) do
+    aList.Add(TROMessageClass(_MessageClasses[i]).ClassName);
+end;
+var _ProxyClasses,
+    _TransportChannels : TStringList;
+
+{ Transport channels registration }
+procedure RegisterTransportChannelClass(aTransportChannelClass : TROTransportChannelClass);
+begin
+  if _TransportChannels.IndexOf(aTransportChannelClass.ClassName)<0 then begin
+    _TransportChannels.AddObject(aTransportChannelClass.ClassName, TObject(aTransportChannelClass));
+    Classes.RegisterClass(aTransportChannelClass);
+  end;
+end;
+
+procedure UnregisterTransportChannelClass(aTransportChannelClass : TROTransportChannelClass);
+var idx : integer;
+begin
+  idx := _TransportChannels.IndexOf(aTransportChannelClass.ClassName);
+  if idx>=0 then begin
+    _TransportChannels.Delete(idx);
+    Classes.UnregisterClass(aTransportChannelClass);
+  end;
+end;
+
+function FindTransportChannelClass(const aName : string; Silent : boolean = FALSE) : TROTransportChannelClass;
+var idx : integer;
+begin
+  result := nil;
+  idx := _TransportChannels.IndexOf(aName);
+  if (idx>=0)
+    then result := TROTransportChannelClass(_TransportChannels.Objects[idx])
+  else begin
+    if not Silent
+      then RaiseError(err_UnknownTransportChannelClass, [aName])
+  end;
+end;
+
+procedure ListTransportChannelClasses(aList : TStrings);
+begin
+  aList.Assign(_TransportChannels);
+end;
+
+{ Proxy registration }
+procedure RegisterProxyClass(const anInterfaceID : TGUID; aProxyClass : TROProxyClass);
+var s : string;
+begin
+  s := GUIDToString(anInterfaceID);
+  if _ProxyClasses.IndexOf(s)<0
+    then _ProxyClasses.AddObject(GUIDToString(anInterfaceID), TObject(aProxyClass))
+end;
+
+procedure UnregisterProxyClass(const anInterfaceID : TGUID);
+var idx : integer;
+    s : string;
+begin
+  s := GUIDToString(anInterfaceID);
+  idx := _ProxyClasses.IndexOf(s);
+  if (idx>=0)
+    then _ProxyClasses.Delete(idx)
+end;
+
+function FindProxyClass(const anInterfaceID : TGUID; Silent : boolean = FALSE) : TROProxyClass;
+var idx : integer;
+    s : string;
+begin
+  result := NIL;
+  s := GUIDToString(anInterfaceID);
+  idx := _ProxyClasses.IndexOf(s);
+  if (idx>=0)
+    then result := TROProxyClass(_ProxyClasses.Objects[idx])
+  else begin
+    if not Silent
+      then RaiseError(err_UnknownProxyInterface, [s])
+  end;
+end;
+
+procedure ListProxyClasses(aList : TStrings);
+begin
+  aList.Assign(_ProxyClasses);
+end;
+
+{ Exceptions registration }
+function GetExceptionClass(const anExceptionClassName : string) : ExceptionClass;
+var i : integer;
+begin
+  result := EROUnregisteredServerException;
+
+  for i := 0 to (_ExceptionClasses.Count-1) do
+    {$IFDEF DOTNET}
+    if (ExceptionClass(_ExceptionClasses[i]).ClassName = anExceptionClassName) then begin
+    {$ELSE}
+    if (CompareText(ExceptionClass(_ExceptionClasses[i]).ClassName, anExceptionClassName)=0) then begin
+    {$ENDIF DOTNET}
+      result := ExceptionClass(_ExceptionClasses[i]);
+      Exit;
+    end;
+end;
+
+procedure RegisterExceptionClass(anExceptionClass : ExceptionClass);
+begin
+  _ExceptionClasses.Add(anExceptionClass)
+end;
+
+procedure UnregisterExceptionClass(anExceptionClass : ExceptionClass);
+begin
+  _ExceptionClasses.Remove(anExceptionClass)
+end;
+
+{ TROProxy }
+
+constructor TROProxy.Create(const aMessage: IROMessage;
+  const aTransportChannel: IROTransportChannel);
+begin
+  inherited Create;
+  fMessage := pointer(aMessage);
+  fTransportChannel := pointer(aTransportChannel);
+end;
+
+constructor TROProxy.Create(const anInterfaceName: string;
+  const aMessage: IROMessage;
+  const aTransportChannel: IROTransportChannel);
+begin
+  Create(aMessage, aTransportChannel);
+
+  fInterfaceName := anInterfaceName;
+end;
+
+function TROProxy.GetInterfaceName: string;
+begin
+  if (fInterfaceName<>'')
+    then result := fInterfaceName // If the proxy has been created specifiing one then that is the strongest
+    else result := __GetInterfaceName;
+end;
+
+function TROProxy._GetMessage: IROMessage;
+begin
+  result := IROMessage(fMessage);
+end;
+
+function TROProxy.GetTransportChannel: IROTransportChannel;
+begin
+  result := IROTransportChannel(fTransportChannel);
+end;
+
+{ TROMessageAwareComponent }
+
+procedure TROMessageAwareComponent.Assign(Source: TPersistent);
+var
+  lSource: TROMessageAwareComponent;
+begin
+  inherited;
+  if Source is TROMessageAwareComponent then begin
+    lSource := TROMessageAwareComponent(Source);
+    Message := lSource.Message;
+  end;
+end;
+
+destructor TROMessageAwareComponent.Destroy;
+begin
+  Message := nil;
+  inherited;
+end;
+
+procedure TROMessageAwareComponent.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation<>opRemove) then Exit;
+
+  if (AComponent=fMessage) then Message := NIL;
+end;
+
+procedure TROMessageAwareComponent.SetMessage(const Value: TROMessage);
+begin
+  if (fMessage <> Value) then begin
+    if (fMessage<>NIL) then fMessage.RORemoveFreeNotification(Self);
+    fMessage := Value;
+    if (fMessage<>NIL) then fMessage.ROFreeNotification(Self);
+  end;
+end;
+
+{ TROMessage }
+constructor TROMessage.Create(aOwner : TComponent);
+begin
+  inherited Create(aOwner);
+  InitObject;
+end;
+
+constructor TROMessage.Create;
+begin
+  inherited Create(NIL);
+  InitObject;
+end;
+
+function TROMessage.CreateException(const aExceptionName, aMessage: string): Exception;
+var
+  lExceptionClass: ExceptionClass;
+begin
+  lExceptionClass := GetExceptionClass(aExceptionName);
+
+  if Assigned(lExceptionClass) then begin
+    // The exception was registered so we can reraise the right type
+    if AddServerExceptionPrefix then
+      result := lExceptionClass.Create(Format(str_ExceptionReraisedFromServer,[aMessage]))
+    else
+      result := lExceptionClass.Create(aMessage);
+
+  end
+  else begin
+    // Un-registered exception. We fire a EROUnregisteredServerException
+    if AddServerExceptionPrefix then
+      result := EROUnregisteredServerException.CreateFmt(str_ExceptionOnServer, [aExceptionName, aMessage])
+    else
+      result := EROUnregisteredServerException.Create(aMessage);
+  end;
+end;
+
+destructor TROMessage.Destroy;
+begin
+  if Assigned(fSerializer) then FreeAndNIL(fSerializer);
+  FreeAndNil(fEnvelopes);
+  RODLReader := nil;
+  inherited;
+end;
+
+procedure TROMessage.InitObject;
+begin
+  fAddServerExceptionPrefix := true;
+  fSerializer := CreateSerializer;
+  fClientID := NewGuid();
+  fEnvelopes := TROMessageEnvelopeCollection.Create(Self);
+  //CreateGUID(fClientID);
+end;
+
+procedure TROMessage.Initialize(const aTransport : IROTransport; const anInterfaceName, aMessageName: string; aType: TMessageType);
+begin
+  if Assigned(fOnInitializeMessage) then fOnInitializeMessage(Self, aTransport, anInterfaceName, aMessageName);
+  {$IFDEF FPC}
+  if aType = mtRequest then fInterfaceName := anInterfaceName else   // removing warnings
+  {$ENDIF}
+  fInterfaceName := anInterfaceName;
+  fMessageName := aMessageName;
+end;
+
+procedure TROMessage.Initialize(const aTransport: IROTransport; const aLibraryName, anInterfaceName, aMessageName: string; aType: TMessageType);
+begin
+  {$IFDEF FPC}
+  if aLibraryName = '' then Initialize(aTransport, anInterfaceName, aMessageName, aType) else   // removing warnings
+  {$ENDIF}
+  Initialize(aTransport, anInterfaceName, aMessageName, aType);
+end;
+
+procedure TROMessage.Finalize;
+begin
+  //FreeAndNIL(fSerializer);
+  if Assigned(fOnFinalizeMessage) then fOnFinalizeMessage(Self);
+end;
+
+function TROMessage.GetInterfaceName: string;
+begin
+  result := fInterfaceName
+end;
+
+function TROMessage.GetMessageName: string;
+begin
+  result := fMessageName
+end;
+
+procedure TROMessage.SetInterfaceName(const aValue: string);
+begin
+  fInterfaceName := aValue
+end;
+
+procedure TROMessage.SetMessageName(const aValue: string);
+begin
+  fMessageName := aValue
+end;
+
+procedure TROMessage.GetModuleInfo(aStream : TStream; const aTransport : IROTransport; var aFormat : TDataFormat);
+begin
+  GetRodlInfo(aStream, aTransport, aFormat);
+end;
+
+procedure TROMessage.GetRodlInfo(aStream : TStream; const aTransport : IROTransport; var aFormat : TDataFormat);
+begin
+  GetRodl(aStream, aTransport, aFormat, fRODLReader);
+end;
+
+procedure GetRodl(aStream: TStream; const aTransport : IROTransport; var aFormat : TDataFormat; ARODLReader: TROCustomRODLReader);
+var rs : TCustomMemoryStream;
+    {$IFNDEF LCL}
+    instance : cardinal;
+    {$ENDIF}
+begin
+  { ToDo: investigate if we should maybe use hMainInstance instead? the current one
+          breaks with Packages, hMainInstance wouldn't work with DLLs. Since packages
+          are currently not supported, i suggest we keep this the way it is? mh.
+
+    Alef: the following "IF" seems to nicely solve the problem... }
+  if Assigned(ARODLReader) then
+    ARODLReader.ReadRODLResource(aStream)
+  else begin
+    {$IFNDEF LCL}
+    {$IFNDEF FPC}
+    if ModuleIsPackage = True then // prevent a warning in D2009
+      instance := MainInstance
+    else
+    {$ENDIF}
+    instance := hInstance;
+    {$ENDIF}
+
+    {$IFDEF LCL}
+    rs := TLazarusResourceStream.Create(res_RODLFile, nil);
+    {$ELSE}
+    rs := TResourceStream.Create(instance, res_RODLFile, RT_RCDATA);
+    {$ENDIF}
+
+    try
+      rs.SaveToStream(aStream);
+    finally
+      rs.Free;
+    end;
+  end;
+
+  if aTransport <> nil then
+    SetHTTPInfo(aTransport, DataFormatXml);
+  aFormat := DataFormatXml;
+end;
+
+function GetRodlLibrary(ARodlReader: TROCustomRODLReader): TRODLLibrary;
+var
+  lStream: TMemoryStream;
+  lDummy: TDataFormat;
+  lXmlToRodl: TXMLToRODL;
+begin
+  lStream := TMemoryStream.Create;
+  lXmlToRodl := TXMLToRODL.Create;
+  try
+    {$IFDEF FPC} lDummy := ''; {$ENDIF}
+    GetRodl(lStream, nil, lDummy, ARodlReader);
+    lStream.Position := 0;
+    result := lXmlToRodl.Read(lStream);
+  finally
+    lXmlToRodl.Free;
+    lStream.Free;
+  end;
+end;
+
+
+procedure TROMessage.ReadFromStream(aStream: TStream);
+begin
+  aStream.Position := 0; // Just in case
+  Envelopes_ProcessIncoming(aStream);
+  aStream.Position := 0; // Just in case
+  if Assigned(fOnReadFromStream) then fOnReadFromStream(aStream);
+  aStream.Position := 0; // Just in case
+end;
+
+procedure TROMessage.WriteToStream(aStream: TStream);
+begin
+  TriggerOnWriteToStream(aStream);
+  Envelopes_ProcessOutgoing(aStream);
+  aStream.Position := 0; // Just in case
+end;
+
+procedure TROMessage.TriggerOnWriteToStream(aStream: TStream);
+begin
+  if Assigned(fOnWriteToStream) then begin
+    aStream.Position := 0; // Just in case
+    fOnWriteToStream(aStream);
+  end;
+  aStream.Position := 0; // Just in case
+end;
+
+{$IFDEF DOTNET}
+{$ELSE}
+procedure TROMessage.Read(const aName: string; aTypeInfo: PTypeInfo;
+  var Ptr; Attributes: TParamAttributes);
+begin
+  Serializer.Read(aName, aTypeInfo, Ptr);
+  if Assigned(fOnReadMessageParameter) then fOnReadMessageParameter(Self, aName, aTypeInfo, pointer(@Ptr), Attributes);  
+end;
+
+procedure TROMessage.Write(const aName: string; aTypeInfo: PTypeInfo;
+  const Ptr; Attributes: TParamAttributes);
+begin
+  if Assigned(fOnWriteMessageParameter) then fOnWriteMessageParameter(Self, aName, aTypeInfo, pointer(@Ptr), Attributes);
+  Serializer.Write(aName, aTypeInfo, Ptr);
+end;
+{$ENDIF DOTNET}
+
+procedure TROMessage.ProcessException;
+var E: Exception;
+    raiseException: boolean;
+begin
+  E := ReadException;
+  raiseException := TRUE;
+  if Assigned(E) then begin
+    if Assigned(fOnServerException) then fOnServerException(E, raiseException);
+
+    if raiseException then raise E;
+  end;
+end;
+
+function TROMessage.Clone: IROMessage;
+begin
+  result := TROMessageClass(ClassType).CreateRefCountedClone(self) as IROMessage;
+end;
+
+constructor TROMessage.CreateRefCountedClone(iMessage: TROMessage);
+begin
+  Create();
+  Assign(iMessage);
+  fReferenceCounted := true;
+
+  //Todo: implement reference counting;
+end;
+
+procedure TROMessage.Assign(iSource: TPersistent);
+var lSource:TROMessage;
+begin
+  if Assigned(iSource) then begin
+
+    // might very well be a descendand, too
+    if not (iSource is ClassType)
+      then RaiseError('Cannot Assign a %s t a %s', [ClassName,iSource.ClassName]);
+    lSource := TROMessage(iSource);
+
+    AddServerExceptionPrefix := lSource.AddServerExceptionPrefix;
+    Envelopes.Assign(lSource.Envelopes);
+    OnAfterProcessIncomingEnvelopes := lSource.OnAfterProcessIncomingEnvelopes;
+    OnAfterProcessOutgoingEnvelopes := lSource.OnAfterProcessOutgoingEnvelopes;
+    OnBeforeProcessIncomingEnvelopes := lSource.OnBeforeProcessIncomingEnvelopes;
+    OnBeforeProcessOutgoingEnvelopes := lSource.OnBeforeProcessOutgoingEnvelopes;
+    OnFinalizeMessage := lSource.OnFinalizeMessage;
+    OnInitializeMessage := lSource.OnInitializeMessage;
+    OnReadFromStream := lSource.OnReadFromStream;
+    OnReadMessageParameter := lSource.OnReadMessageParameter;
+    OnServerException := lSource.OnServerException;
+    OnWriteException := lSource.OnWriteException;
+    OnWriteMessageParameter := lSource.OnWriteMessageParameter;
+    OnWriteToStream := lSource.OnWriteToStream;
+    RODLReader := lSource.RODLReader;
+  end;
+end;
+
+function TROMessage._AddRef: integer;
+begin
+  result := InterlockedIncrement(fRefCount);
+end;
+
+function TROMessage._Release: integer;
+begin
+  result := InterlockedDecrement(fRefCount);
+
+  if (fRefCount = 0) and fReferenceCounted then Free();
+end;
+
+function TROMessage.GetClientID: TGUID;
+begin
+  result := fClientID;
+end;
+
+procedure TROMessage.SetClientID(const Value: TGUID);
+begin
+  fClientID := Value
+end;
+
+procedure TROMessage.SetRODLReader(const Value: TROCustomRODLReader);
+begin
+  if fRODLReader <> Value then begin
+    if Assigned(fRODLReader) then fRODLReader.RORemoveFreeNotification(Self);
+    if Assigned(Value) and not (csDestroying in Value.ComponentState) then begin
+      fRODLReader := Value;
+      if Assigned(fRODLReader) then fRODLReader.ROFreeNotification(Self);
+    end
+    else
+      fRODLReader := nil;
+  end;
+end;
+
+procedure TROMessage.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation=opRemove) and (aComponent=fRODLReader)
+    then RODLReader := NIL;
+end;
+
+procedure TROMessage.WriteException(aStream: TStream;
+  anException: Exception);
+begin
+  if Assigned(fOnWriteException) then begin
+    fOnWriteException(Self, aStream, anException);
+  end;
+  TriggerOnWriteToStream(aStream);
+end;
+
+procedure TROMessage.InitializeRequestMessage(
+  const aTransport: IROTransport; const aLibraryName, anInterfaceName,
+  aMessageName: string);
+begin
+  Initialize(aTransport, aLibraryName, anInterfaceName,aMessageName, mtRequest);
+end;
+
+procedure TROMessage.InitializeResponseMessage(
+  const aTransport: IROTransport; const aLibraryName, anInterfaceName,
+  aMessageName: string);
+begin
+  Initialize(aTransport, aLibraryName, anInterfaceName,aMessageName, mtResponse);
+end;
+
+procedure TROMessage.InitializeEventMessage(const aTransport: IROTransport;
+  const aLibraryName, anInterfaceName, aMessageName: string);
+begin
+  Initialize(aTransport, aLibraryName, anInterfaceName,aMessageName, mtEvent);
+end;
+
+procedure TROMessage.ReadFromStream(aStream: TStream;
+  var aFreeStream: Boolean);
+begin
+  aFreeStream := True;
+  ReadFromStream(aStream);
+end;
+
+procedure TROMessage.FreeStream;
+begin
+  
+end;
+
+function TROMessage.GetMessageType: TMessageType;
+begin
+  Result := mtRequest;
+end;
+
+procedure TROMessage.InitializeExceptionMessage(
+  const aTransport: IROTransport; const aLibraryName, anInterfaceName,
+  aMessageName: string);
+begin
+  // do nothing here; descendents can override this to set the types
+end;
+
+procedure TROMessage.SetAttributes(aTransport: IROTransport; const aNames,
+  aValues: array of String);
+begin
+  // overridable
+end;
+
+procedure TROMessage.UnsetAttributes(aTransport: IROTransport);
+begin
+  // overridable
+end;
+
+procedure TROMessage.InitializeRead(const aTransport: IROTransport);
+begin
+  // do nothing.
+end;
+
+procedure TROMessage.CheckProperties;
+begin
+// nothing
+end;
+
+procedure TROMessage.ReadDateTime(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.ReadDateTime(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadDecimal(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.ReadDecimal(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadEnumerated(const aName: string;
+  anEnumTypeInfo: PTypeInfo; var Ref; ArrayElementId: integer);
+begin
+  fSerializer.ReadEnumerated(aName, anEnumTypeInfo, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadDouble(const aName: string; aFloatType: TFloatType;
+  var Ref; ArrayElementId: integer);
+begin
+  fSerializer.ReadDouble(aName, aFloatType, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadGuid(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.ReadGuid(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadInt64(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.ReadInt64(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadInteger(const aName: string; anOrdType: TOrdType;
+  var Ref; ArrayElementId: integer);
+begin
+  fSerializer.ReadInteger(aName, anOrdType, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadUTF8String(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+begin
+  fSerializer.ReadUTF8String(aName, Ref, ArrayElementId, iMaxLength);
+end;
+
+procedure TROMessage.ReadVariant(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.ReadVariant(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadWideString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+begin
+  fSerializer.ReadWideString(aName, Ref, ArrayElementId, iMaxLength);
+end;
+
+procedure TROMessage.ReadXml(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.ReadXml(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteDateTime(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteDateTime(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteDecimal(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteDecimal(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteEnumerated(const aName: string;
+  anEnumTypeInfo: PTypeInfo; const Ref; ArrayElementId: integer);
+begin
+  fSerializer.WriteEnumerated(aName, anEnumTypeInfo, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteDouble(const aName: string;
+  aFloatType: TFloatType; const Ref; ArrayElementId: integer);
+begin
+  fSerializer.WriteDouble(aName, aFloatType, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteGuid(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteGuid(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteInt64(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteInt64(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteInteger(const aName: string; anOrdType: TOrdType;
+  const Ref; ArrayElementId: integer);
+begin
+  fSerializer.WriteInteger(aName, anOrdType, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteUTF8String(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteUTF8String(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteVariant(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteVariant(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteWideString(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteWideString(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteXml(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteXml(aName, Ref, ArrayElementId);
+end;
+
+function TROMessage.ReadArray(const aName: string; aClass : TClass; var Ref;
+  ArrayElementId: integer): Boolean;
+begin
+  Result:= fSerializer.ReadArray(aName, aClass, Ref, ArrayElementId);
+end;
+
+function TROMessage.ReadStruct(const aName: string; aClass : TClass; var Ref;
+  ArrayElementId: integer): Boolean;
+begin
+  Result:= fSerializer.ReadStruct(aName, aClass, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteArray(const aName: string; const Ref;aClass: TClass;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteArray(aName, Ref, aClass, ArrayElementId);
+end;
+
+procedure TROMessage.WriteStruct(const aName: string; const Ref; aClass: TClass;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteStruct(aName, Ref, aClass, ArrayElementId);
+end;
+
+procedure TROMessage.ReadBinary(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.ReadBinary(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.WriteBinary(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteBinary(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.SetEnvelopes(
+  const Value: TROMessageEnvelopeCollection);
+begin
+  fEnvelopes.Assign(Value);
+end;
+
+procedure TROMessage.WriteEnvelopeHeader(aEnvelope: TROMessageEnvelope; AStream: TStream);
+var
+  lLen: byte;
+  lEnvelopeMarker:UTF8String;
+begin
+  AStream.Write(EnvelopeSignature,SizeOf(TEnvelopeSignature));
+  lEnvelopeMarker := UTF8Encode(aEnvelope.EnvelopeMarker);
+  lLen:=Length(lEnvelopeMarker);
+  AStream.Write(lLen,1);
+  AStream.Write(Pointer(lEnvelopeMarker)^, lLen);
+end;
+
+procedure TROMessage.Envelopes_ProcessIncoming(aStream: TStream);
+var
+  lEnvelopeName: String;
+  lEnvelope: TROMessageEnvelopeItem;
+  lStream,lStream1: Tstream;
+begin
+  if Assigned(fBeforeProcessIncomingEnvelopes) then fBeforeProcessIncomingEnvelopes(aStream);
+  lStream := aStream;
+  try
+    while CheckForEnvelope(lStream,lEnvelopeName) do begin
+      lEnvelope := fEnvelopes.ItemByMarker(lEnvelopeName);
+      Check(lEnvelope = nil, '%s envelope isn''t found',[lEnvelopeName]);
+      Check(lEnvelope.Envelope = nil, '%s envelope can''t be processed! TROMessageEnvelope should be assigned.',[lEnvelopeName]);
+      lStream1 := lEnvelope.Envelope.ProcessIncoming(Self,lStream);
+      if lStream1 <> lStream then begin
+        lStream.Size := 0;
+        if lStream <> aStream then lStream.Free;
+        lStream := lStream1;
+        lStream.Position := 0;
+      end;
+    end;
+  finally
+    if lStream <> aStream then begin
+      aStream.Size := 0;
+      aStream.CopyFrom(lStream,0);
+      lStream.Free;
+    end;
+  end;
+  if Assigned(fAfterProcessIncomingEnvelopes) then fAfterProcessIncomingEnvelopes(aStream);
+end;
+
+procedure TROMessage.Envelopes_ProcessOutgoing(aStream: TStream);
+var
+  i: integer;
+  lStream,lStream1: TStream;
+begin
+  if Assigned(fBeforeProcessOutgoingEnvelopes) then fBeforeProcessOutgoingEnvelopes(aStream);
+  lStream  := aStream;
+  try
+    For i:=0 to fEnvelopes.Count-1 do begin
+      if fEnvelopes.Items[i].Enabled then begin
+        lStream.Position := 0;
+        lStream1 := fEnvelopes.Items[i].Envelope.ProcessOutgoing(Self,lStream);
+        if lStream1 <> lStream then begin
+          lStream.Size := 0;
+          if lStream <> aStream then lStream.Free;
+          lStream := lStream1;
+        end;
+      end;
+    end;
+  finally
+    if lStream <> aStream then begin
+      aStream.Size := 0;
+      aStream.CopyFrom(lStream,0);
+      lStream.Free;
+    end;
+  end;
+  if Assigned(fAfterProcessOutgoingEnvelopes) then fAfterProcessOutgoingEnvelopes(aStream);
+end;
+
+function TROMessage.CheckForEnvelope(aStream: TStream;
+  var aEnvelopeName: String): boolean;
+var
+  lOldPosition: int64;
+  buf: array [0..5] of AnsiChar;
+  lEnvelope: UTF8String;
+begin
+  Result := False;
+  lOldPosition := aStream.Position;
+  if aStream.Size - aStream.Position > 6 then begin
+    aStream.Read(buf,6);
+    Result := (buf[0] = EnvelopeSignature[0]) and
+              (buf[1] = EnvelopeSignature[1]) and
+              (buf[2] = EnvelopeSignature[2]) and
+              (buf[3] = EnvelopeSignature[3]) and
+              (buf[4] = EnvelopeSignature[4]);
+    if Result and (aStream.Size - aStream.Position >= ord(buf[5])) then begin
+      SetLength(lEnvelope, ord(buf[5]));
+      aStream.Read(Pointer(lEnvelope)^,ord(buf[5]));
+      aEnvelopeName := UTF8ToString(lEnvelope);
+    end
+    else begin
+      aStream.Position:= lOldPosition;
+      Result:=False;
+    end;
+  end;
+end;
+
+procedure TROMessage.WriteAnsiString(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  fSerializer.WriteAnsiString(aName, Ref, ArrayElementId);
+end;
+
+procedure TROMessage.ReadAnsiString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+begin
+  fSerializer.ReadAnsiString(aName, Ref, ArrayElementId, iMaxLength);
+end;
+
+{ TROChannelAwareComponent }
+
+procedure TROChannelAwareComponent.Assign(Source: TPersistent);
+var
+  lSource: TROChannelAwareComponent;
+begin
+  inherited;
+  if Source is TROChannelAwareComponent then begin
+    lSource := TROChannelAwareComponent(Source);
+    Channel := lSource.Channel;
+  end;
+end;
+
+destructor TROChannelAwareComponent.Destroy;
+begin
+  Channel := nil;
+  inherited;
+end;
+
+procedure TROChannelAwareComponent.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation<>opRemove) then Exit;
+
+  if (AComponent=fChannel) then Channel := NIL;
+end;
+
+procedure TROChannelAwareComponent.SetChannel(const Value: TROTransportChannel);
+begin
+  if (fChannel<>Value) then begin
+    if (fChannel<>NIL) then fChannel.RORemoveFreeNotification(Self);
+    fChannel := Value;
+    if (fChannel<>NIL) then fChannel.ROFreeNotification(Self);
+  end;
+end;
+
+{ TROCustomRODLReader }
+
+procedure TROCustomRODLReader.Assign(Source: TPersistent);
+var
+  lSource: TROCustomRODLReader;
+begin
+  inherited;
+  if Source is TROCustomRODLReader then begin
+    lSource := TROCustomRODLReader(Source);
+
+    OnAfterReadRODL := lSource.OnAfterReadRODL;
+    OnBeforeReadRODL := lSource.OnBeforeReadRODL;
+  end;
+end;
+
+procedure TROCustomRODLReader.ReadRODLResource(aStream: TStream);
+begin
+  if Assigned(fOnBeforeReadRODL) then fOnBeforeReadRODL(Self, aStream);
+  DoReadRODLResource(aStream);
+  if Assigned(fOnAfterReadRODL) then fOnAfterReadRODL(Self, aStream);
+end;
+
+procedure TROBaseConnection.Assign(Source: TPersistent);
+begin
+  inherited;
+  if Source is TROBaseConnection then begin
+    {$IFDEF RemObjects_UseEncryption}
+    Encryption.Assign(TROBaseConnection(Source).Encryption);
+    {$ENDIF}
+  end;
+end;
+
+constructor TROBaseConnection.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+  {$IFDEF RemObjects_UseEncryption}
+  fEncryption := TROEncryption.Create();//(nil);
+  {$ENDIF}
+end;
+
+{$IFDEF RemObjects_UseEncryption}
+procedure TROBaseConnection.DoEncryption(iPlainText, iCipherText: TStream); { public }
+begin
+  iPlainText.Seek(0,soFromBeginning);
+  if Assigned(Encryption) then
+    Encryption.Encrypt(iPlainText, iCipherText)
+  else
+    if iPlainText.Size > 0 then
+      iCipherText.CopyFrom(iPlainText, iPlainText.Size);
+  iCipherText.Seek(0,soFromBeginning);
+  if Assigned(fAfterEncrypt) then begin
+    fAfterEncrypt(Self, iCipherText);
+    iCipherText.Seek(0,soFromBeginning);
+  end;
+end;
+
+procedure TROBaseConnection.DoDecryption(iCipherText, iPlainText: TStream); { public }
+begin
+  {ToDo: we should find a solution where if no encryption is used, we don't need to copy the stream AT ALL. }
+  iCipherText.Seek(0,soFromBeginning);
+  if Assigned(fBeforeDecrypt) then begin
+    fBeforeDecrypt(Self, iCipherText);
+    iCipherText.Seek(0,soFromBeginning);
+  end;
+  if Assigned(Encryption) then
+    Encryption.Decrypt(iCipherText, iPlainText)
+  else
+    if iCipherText.Size > 0 then
+      iPlainText.CopyFrom(iCipherText, iCipherText.Size);
+end;
+
+procedure TROBaseConnection.DoEncryption2(const iStream: TStream);
+var
+  lStream: TMemoryStream;
+begin
+  iStream.Seek(0,soFromBeginning);
+  if Assigned(Encryption) then begin
+    lStream := TMemoryStream.Create;
+    try
+      Encryption.Encrypt(iStream, lStream);
+      iStream.Size:=0;
+      iStream.CopyFrom(lStream,0);
+    finally
+      lStream.Free;
+    end;
+    iStream.Seek(0,soFromBeginning);
+    if Assigned(fAfterEncrypt) then begin
+      fAfterEncrypt(Self, iStream);
+      iStream.Seek(0,soFromBeginning);
+    end;
+  end;
+end;
+
+procedure TROBaseConnection.DoDecryption2(const iStream: TStream);
+var
+  lStream: TMemoryStream;
+begin
+  iStream.Seek(0,soFromBeginning);
+  if Assigned(fBeforeDecrypt) then begin
+    fBeforeDecrypt(Self, iStream);
+    iStream.Seek(0,soFromBeginning);
+  end;
+  if Assigned(Encryption) then begin
+    lStream := TMemoryStream.Create;
+    try
+      Encryption.Decrypt(iStream, lStream);
+      iStream.Size:=0;
+      iStream.CopyFrom(lStream,0);
+    finally
+      lStream.Free;
+    end;
+    iStream.Seek(0,soFromBeginning);
+  end;
+end;
+
+procedure TROBaseConnection.SetEncryption(NewValue: TROEncryption);
+begin
+  fEncryption.Assign(NewValue);
+end;
+{$ENDIF}
+
+destructor TROBaseConnection.Destroy;
+begin
+  inherited Destroy;
+
+  {$IFDEF RemObjects_UseEncryption}
+  FreeAndNil(fEncryption);
+  {$ENDIF}
+end;
+
+{ TROTransportChannel }
+procedure TROTransportChannel.Assign(aSource: TPersistent);
+var
+  lSource:TROTransportChannel;
+  l_source_http: IROHTTPTransport;
+  l_source_tcp: IROTCPTransportProperties;
+  l_self_http: IROHTTPTransport;
+  l_self_tcp: IROTCPTransportProperties;
+begin
+  if Assigned(aSource) then begin
+    if not (aSource is Self.ClassType) then RaiseError('Cannot Assign a %s t a %s',[ClassName,aSource.ClassName]);
+    lSource := TROTransportChannel(aSource);
+
+    OnAfterProbingServer := lSource.OnAfterProbingServer;
+    OnAfterProbingServers := lSource.OnAfterProbingServers;
+    OnAsyncException := lSource.OnAsyncException;
+    OnBeforeProbingServer := lSource.OnBeforeProbingServer;
+    OnBeforeProbingServers := lSource.OnBeforeProbingServers;
+    OnException := lSource.OnException;
+    OnLoginNeeded := lSource.OnLoginNeeded;
+    OnProgress := lSource.OnProgress;
+    OnReceiveStream := lSource.OnReceiveStream;
+    OnSendStream := lSource.OnSendStream;
+    OnServerLocatorAssignment := lSource.OnServerLocatorAssignment;
+    DispatchOptions := lSource.DispatchOptions;
+{$IFDEF RemObjects_UseEncryption}
+    Encryption.Assign(lSource.Encryption);
+{$ENDIF}
+    ProbeFrequency := lSource.ProbeFrequency;
+    ProbeServers := lSource.ProbeServers;
+    ServerLocators.Assign(lSource.ServerLocators);
+    SynchronizedProbing := lSource.SynchronizedProbing;
+
+
+    if not Supports(Self, IROHTTPTransport, l_self_http) then begin
+      l_self_http:=nil;
+      if not Supports(Self, IROTCPTransportProperties, l_self_tcp) then l_self_tcp := nil;
+    end;
+    if not Supports(aSource, IROHTTPTransport, l_source_http) then begin
+      l_source_http:=nil;
+      if not Supports(aSource, IROTCPTransportProperties, l_source_tcp) then l_source_tcp := nil;
+    end;
+    if Assigned(l_source_http) and Assigned(l_self_http) then begin
+      l_self_http.TargetURL := l_source_http.TargetURL;
+    end;
+    if Assigned(l_source_tcp) and Assigned(l_self_tcp) then begin
+      l_self_tcp.Port := l_source_tcp.Port;
+      l_self_tcp.Host := l_source_tcp.Host;
+    end;
+    l_self_http := nil;
+    l_source_http := nil;
+    l_self_tcp := nil;
+    l_source_tcp := nil;
+  end
+  else
+    inherited;
+end;
+
+constructor TROTransportChannel.Create(aOwner: TComponent);
+begin
+  inherited;
+  fSynchronizedProbing := true;
+  fProbeFrequency := 60000; // Every minute
+  fLoadBalancerLocatorIdx := -1;
+  fFaultToleranceLocatorIdx := -1;
+  fServerLocators := TROServerLocatorCollection.Create(Self);
+end;
+
+procedure TROTransportChannel.DecodeEventStream(const aStream: TStream);
+begin
+  {$IFDEF REMOBJECTS_UseEncryption}
+  if (Encryption.EncryptionMethod <> tetNone) then DoDecryption2(aStream);
+  {$ENDIF}
+end;
+
+destructor TROTransportChannel.Destroy;
+begin
+  ProbeServers := False;
+  FreeAndNIL(fServerLocators);
+
+  inherited;
+end;
+
+procedure TROTransportChannel.Dispatch(aRequest, aResponse : TStream);
+var retry : boolean;
+    {$ifdef REMOBJECTS_UseEncryption}
+    EncRequest,EncResponse : TMemoryStream;
+    {$endif}
+    faultstartlocatoridx : integer;
+begin
+  retry := TRUE;
+  if not fThreadsafe then
+  begin
+    if Busy then raise EROChannelBusy.Create(err_ChannelBusy);
+
+    fBusy := TRUE;
+  end;
+//removed because of a warning faultstartlocatoridx :=  -1;
+
+  faultstartlocatoridx := InitServerLocator;
+
+  try
+    if Assigned(fOnSendStream)
+      then fOnSendStream(aRequest);
+
+    repeat
+      try
+        aRequest.Position := 0;
+
+        {$IFDEF REMOBJECTS_UseEncryption}
+        if Encryption.EncryptionMethod <> tetNone then begin
+          EncRequest:= TMemoryStream.Create;
+          EncResponse := TMemoryStream.Create;
+          try
+            DoEncryption(aRequest,EncRequest);
+            IntDispatch(encRequest, encResponse);
+            DoDecryption(EncResponse,aResponse);
+          finally
+            EncRequest.Free;
+            EncResponse.free;
+          end;
+        end
+        else
+        {$ENDIF}
+        begin
+          IntDispatch(aRequest, aResponse);
+        end;
+
+        aResponse.Position := 0;
+        if Assigned(fOnReceiveStream) then begin
+          fOnReceiveStream(aResponse);
+          aResponse.Position := 0;
+        end;
+
+        Exit;
+      except
+        on E:Exception do begin
+          retry := FALSE;
+
+          ChangeServerLocator(faultstartlocatoridx,retry,E);
+          //if not retry then begin
+            //if Assigned(fOnException) then fOnException(Self, E, retry);
+          if not retry then raise;
+          //end;
+        end;
+      end;
+    until not retry;
+  finally
+    if not fThreadSafe then
+      fBusy := FALSE;
+  end;
+end;
+
+procedure TROTransportChannel.Loaded;
+begin
+  inherited;
+  ProbeServers := fLoadedProbeServers;
+end;
+
+procedure TROTransportChannel.ProbeAll;
+var i : integer;
+    probedcount,
+    disabledcount,
+    enabledcount : integer;
+    locator : TROServerLocator;
+    proberes : boolean;
+begin
+  probedcount := 0;
+  enabledcount := 0;
+  disabledcount := 0;
+//removed because of a warning   proberes := FALSE;
+
+  if (fServerLocators.Count=0) then Exit;
+
+  if Assigned(fOnBeforeProbingServers) then fOnBeforeProbingServers(Self);
+
+  for i := 0 to (fServerLocators.Count-1) do begin
+    locator := fServerLocators[i];
+
+    if (locator.ProbingOptions=[]) then Continue; // Not subject to probing
+
+    Inc(probedcount);
+
+    // Probe
+    if locator.Enabled and (poProbeWhenEnabled in locator.ProbingOptions) then begin
+      proberes := Probe(locator);
+      if not proberes then Inc(disabledcount);
+    end
+
+    else if not locator.Enabled and (poProbeWhenDisabled in locator.ProbingOptions) then begin
+      proberes := Probe(locator);
+      if proberes then Inc(enabledcount);
+    end;
+  end;
+
+  if Assigned(fOnAfterProbingServers) then fOnAfterProbingServers(Self, probedcount, enabledcount, disabledcount);
+end;
+
+function TROTransportChannel.Probe(aServerLocator : TROServerLocator): boolean;
+var req, resp : TROBinaryMemoryStream;
+begin
+  result := FALSE;
+
+  if (fProbingClone=NIL) then begin
+    // Creates a transport of the same type that will be used during probing operations
+    fProbingClone := TROTransportChannelClass(ClassType).Create(Self);
+    {$ifdef REMOBJECTS_UseEncryption}
+      fProbingClone.Encryption.Assign(Encryption);
+    {$endif}
+    //Probably there is needed Clone infrastructure for channels, the same as for messages.
+    //Because assigning only encryption is not enough here. Proxy setting is required too - but it is channel dependent.
+    //When it will be ready - change code here.
+
+  end;
+  fProbingClone.SetServerLocator(aServerLocator);
+
+  req := TROBinaryMemoryStream.Create(ProbeRequestID);
+  resp := TROBinaryMemoryStream.Create;
+
+  try
+    // Before probing server
+    if Assigned(fOnBeforeProbingServer) then fOnBeforeProbingServer(Self, aServerLocator);
+
+    try
+      fProbingClone.BeforeDispatch(nil);
+      fProbingClone.Dispatch(req, resp);
+      result := (resp.ToString=ProbeResponseID);
+
+      if result and (poEnableIfProbeSucceeded in aServerLocator.ProbingOptions)
+        then aServerLocator.Enabled := TRUE
+
+      else if not result then SysUtils.Abort;
+
+    except
+      if (poDisableIfProbeFailed in aServerLocator.ProbingOptions)
+        then aServerLocator.Enabled := FALSE;
+
+      // We can ignore exceptions. This actually means the method failed.
+    end;
+  finally
+    req.Free;
+    resp.Free;
+
+    // After probing server
+    if Assigned(fOnAfterProbingServer) then fOnAfterProbingServer(Self, aServerLocator, not result);
+  end;
+end;
+
+procedure TROTransportChannel.RetrieveMetadata(out Metadata: TStream);
+var req : TROBinaryMemoryStream;
+begin
+  BeforeDispatch(nil);
+  req := TROBinaryMemoryStream.Create(MetadataRequestID);
+  Metadata := TROBinaryMemoryStream.Create;
+
+  try
+    try
+      Dispatch(req, Metadata);
+    except
+      FreeAndNIL(Metadata);
+      raise;
+    end;
+  finally
+    req.Free;
+  end;
+end;
+
+procedure TROTransportChannel.RetrieveRODL(out RODLLibrary : TRODLLibrary);
+var
+  resp : TStream;
+  XmlToRodl: TXMLToRODL;
+begin
+  RODLLibrary := NIL;
+
+  RetrieveMetadata(resp);
+
+  XmltoRodl := TXMLToRODL.Create(nil);
+  try
+    RODLLibrary := XmltoRodl.Read(resp,'');
+  except
+  end;
+  resp.Free;
+  XmlToRodl.Free;
+end;
+
+procedure TROTransportChannel.SetProbeFrequency(
+  const Value: cardinal);
+begin
+  fProbeFrequency := Value;
+  if Assigned(fProbeTimer)
+    then fProbeTimer.Timeout := Value;
+end;
+
+procedure TROTransportChannel.OnProbeTimerTick(Dummy: Cardinal);
+begin
+  ProbeAll;
+end;
+
+procedure TROTransportChannel.SetProbeServers(const Value: boolean);
+begin
+  if (csLoading in ComponentState) then fLoadedProbeServers := Value
+  else if (fProbeServers<>Value) then begin
+    fProbeServers := Value;
+
+    if (csDesigning in ComponentState) then Exit;
+      
+    if fProbeServers then begin
+      fProbeTimer := TROThreadTimer.Create(OnProbeTimerTick, fProbeFrequency, fSynchronizedProbing);
+    end
+    else begin
+      fProbeTimer.Free;
+      fProbeTimer := nil;
+    end;
+  end;
+end;
+
+procedure TROTransportChannel.SetServerLocator(
+  aServerLocator: TROServerLocator; anException : Exception = NIL);
+begin
+  if Assigned(fOnServerLocatorAssignment)
+    then fOnServerLocatorAssignment(Self, aServerLocator, anException);
+
+  IntSetServerLocator(aServerLocator);
+end;
+
+procedure TROTransportChannel.SetServerLocators(
+  const Value: TROServerLocatorCollection);
+begin
+  fServerLocators.Assign(Value);
+end;
+
+procedure TROTransportChannel.TriggerProgress(iType:TProgressType; iDirection: TProgressDirection; iTransfered, iTotal: integer);
+begin
+  if Assigned(OnProgress) then OnProgress(self, iType, iDirection, iTransfered, iTotal);
+end;
+
+procedure TROTransportChannel.SetSynchronizedProbing(const Value: Boolean);
+begin
+  fSynchronizedProbing := Value;
+  if fProbeTimer <> nil then
+    fProbeTimer.Synchronized := fSynchronizedProbing;
+end;
+
+procedure TROTransportChannel.Dispatch(aMessage: IROMessage);
+var
+  lRequest, lResponse: TMemoryStream;
+  aFreeStream: Boolean;
+  lRetry: boolean;
+begin
+  try
+    BeforeDispatch(aMessage);
+  except
+    on E: Exception do begin
+      lRetry:=False;
+      if assigned(OnException) then OnException(self, e, lRetry);
+      if not lRetry then raise;
+    end;
+  end;
+//  if aMessage.ClientID = EmptyGUID then
+//    aMessage.ClientID := NewGuid;
+
+  lRequest := TMemoryStream.Create;
+  try
+
+    aMessage.WriteToStream(lRequest);
+    repeat
+
+      try
+        aFreeStream := true;
+        lResponse := TMemoryStream.Create;
+        try
+          if lRetry then
+            BeforeDispatch(aMessage);
+
+          lRetry := false;
+          Dispatch(lRequest, lResponse);
+
+          aMessage.InitializeRead(Self);
+          try
+            aMessage.ReadFromStream(lResponse, aFreeStream);
+          except
+            aFreeStream:= True;
+            raise;
+          end;
+        finally
+          if aFreeStream then FreeAndNil(lResponse);
+        end;
+      except
+        on E: EROSessionNotFound do
+        begin
+          if assigned(fOnLoginNeeded) then begin
+            OnLoginNeeded(self, e, lRetry);
+            if not lRetry then raise;
+          end else raise;
+        end;
+
+        on E: Exception do
+        begin
+          if assigned(OnException) then
+            OnException(self, e, lRetry);
+          if not lRetry then
+            raise;
+        end;
+      end;
+    until not lRetry;
+  finally
+    lRequest.Free;
+  end;
+end;
+
+procedure TROTransportChannel.SetCurrentLocator(const Value: TROServerLocator);
+begin
+  if (fCurrentLocator <> Value) and (ServerLocators.IndexOf(Value) > -1) then
+    fCurrentLocator := Value;
+end;
+
+procedure TROTransportChannel.AsyncException(aAsyncInterface: IROAsyncInterface;
+  AsyncException: Exception);
+begin
+  if Assigned(fOnAsyncException) then fOnAsyncException(self,aAsyncInterface,AsyncException);  
+end;
+
+procedure TROTransportChannel.BeforeDispatch(aMessage: IROMessage);
+begin
+  {}
+end;
+
+procedure TROTransportChannel.CheckProperties;
+var
+  i: integer;
+  lRetry: Boolean;
+  lhttp: IROHTTPTransport;
+  ltcp: IROTCPTransportProperties;
+begin
+  if not Supports(Self, IROHTTPTransport, lhttp) then begin
+    lhttp:=nil;
+    if not Supports(Self, IROTCPTransportProperties, ltcp) then ltcp := nil;
+  end;
+
+  if (lhttp <> nil) or (ltcp <> nil) then begin
+    lRetry := True;
+    i := -2;
+    repeat
+      try
+        if lhttp <> nil then begin
+          uROClasses.Check(lhttp.TargetURL = '', Name + '.TargetURL must be set.');
+        end
+        else if ltcp <> nil then begin
+          uROClasses.Check(ltcp.Host = '', Name + '.Host must be set.');
+          //uROClasses.Check(ltcp.Port = 0, Name + '.Port mustn''t be 0.');
+        end;
+        Exit;
+      except
+        on E:Exception do begin
+          lRetry := i = -2;
+          if lRetry then
+            i := InitServerLocator
+          else
+            intChangeServerLocator(i,lRetry,E);
+          if not lRetry then raise;
+        end;
+      end;
+    until not lRetry;
+  end;
+end;
+
+function TROTransportChannel.intInitServerLocator: integer;
+var
+  templocator : TROServerLocator;
+begin
+  templocator := NIL;
+  Result := fFaultToleranceLocatorIdx;
+
+  // Performs load balacing by changing the target host
+  if (doLoadBalanced in fDispatchOptions) then begin
+    if fServerLocators.GetNextLocator(templocator, fLoadBalancerLocatorIdx, fLoadBalancerLocatorIdx, True) then begin
+      SetServerLocator(templocator, NIL);
+      fCurrentLocator := templocator;
+
+      Result := fLoadBalancerLocatorIdx;
+      fFaultToleranceLocatorIdx := Result;
+    end;
+  end;
+end;
+
+procedure TROTransportChannel.IntSetServerLocator(
+  aServerLocator: TROServerLocator);
+var
+  lhttp: IROHTTPTransport;
+  ltcp: IROTCPTransportProperties;
+  l: string;
+begin
+  if not Supports(Self, IROHTTPTransport, lhttp) then begin
+    lhttp:=nil;
+    if not Supports(Self, IROTCPTransportProperties, ltcp) then ltcp := nil;
+  end;
+  if lhttp <> nil then begin
+    l:= LowerCase(aServerLocator.Host);
+    if (pos('http://', l) = 1) or (pos('https://', l) = 1) then
+      lhttp.TargetURL :=aServerLocator.Host
+    else
+      lhttp.TargetURL := Format('http://%s:%d/%s',[aServerLocator.Host,aServerLocator.Port,aServerLocator.HTTPDispatcher]);
+  end
+  else if ltcp <> nil then begin
+    ltcp.Port := aServerLocator.Port;
+    ltcp.Host := aServerLocator.Host;
+  end;
+end;
+
+procedure TROTransportChannel.intChangeServerLocator(var faultstartlocatoridx: integer; var aRetry: Boolean; const aException: Exception);
+var
+  templocator : TROServerLocator;
+begin
+  if (doFaultTolerant in fDispatchOptions) then begin
+    // This can improve speed during the next requests
+    if (fCurrentLocator<>NIL) and fCurrentLocator.DisableOnFailure then fCurrentLocator.Enabled := FALSE;
+
+    // Fail-over support: checks using all server locators
+    if fServerLocators.GetNextLocator(templocator, fFaultToleranceLocatorIdx, faultstartlocatoridx, FALSE) then begin
+      aRetry := TRUE;
+
+      SetServerLocator(templocator{fCurrentLocator}, aException);
+      fCurrentLocator := templocator;
+    end
+  end;
+end;
+
+procedure TROTransportChannel.ChangeServerLocator(
+  var faultstartlocatoridx: integer; var aRetry: Boolean;
+  const aException: Exception);
+begin
+  intChangeServerLocator(faultstartlocatoridx,aRetry, aException);
+end;
+
+function TROTransportChannel.InitServerLocator: Integer;
+begin
+  Result:=intInitServerLocator;
+end;
+
+{ TROObjectDisposer }
+
+procedure TROObjectDisposer.Add(iObject: TObject);
+begin
+  if IndexOf(iObject) = -1 then inherited Add(iObject);
+end;
+
+constructor TROObjectDisposer.Create(const aService: IInterface);
+begin
+  inherited Create;
+
+  fService := aService;
+end;
+
+destructor TROObjectDisposer.Destroy;
+var i: integer;
+    objretainer : IROObjectRetainer;
+begin
+  if Supports(fService, IROObjectRetainer, objretainer) then begin
+    // Only destroyes the var and out params the service is not retaining
+    for i := (Count-1) downto 0 do
+      if not objretainer.IsRetained(Items[i])
+        then TObject(Items[i]).Free();
+  end
+
+  else begin
+    for i := 0 to (Count-1) do
+      TObject(Items[i]).Free();
+  end;
+
+  fService := NIL;
+
+  inherited;
+end;
+
+{ TROMessageEnvelope }
+
+procedure TROMessageEnvelope.Assign(Source: TPersistent);
+var
+  lSource: TROMessageEnvelope;
+begin
+  inherited;
+  if Source is TROMessageEnvelope then begin
+    lSource := TROMessageEnvelope(Source);
+
+    AfterEnvelopeProcessed := lSource.AfterEnvelopeProcessed;
+    BeforeEnvelopeProcessed := lSource.BeforeEnvelopeProcessed;
+    EnvelopeMarker := lSource.EnvelopeMarker;
+  end;
+end;
+
+constructor TROMessageEnvelope.Create(AOwner: TComponent);
+begin
+  inherited;
+  fReuseOriginalStream := True;
+  EnvelopeMarker := GetDefaultEnvelopeMarker;
+end;
+
+function TROMessageEnvelope.GetDefaultEnvelopeMarker: string;
+begin
+  Result := NewGuidAsString;
+end;
+
+function TROMessageEnvelope.GetEnvelopeMarker: string;
+begin
+  Result := UTF8ToString(FEnvelopeMarker);
+end;
+
+procedure TROMessageEnvelope.intProcessIncoming(Source,
+  Dest: TStream; aMessage: IROMessage);
+begin
+  Dest.CopyFrom(Source,Source.Size-Source.Position);
+end;
+
+procedure TROMessageEnvelope.intProcessOutgoing(Source,
+  Dest: TStream; aMessage: IROMessage);
+begin
+  Dest.CopyFrom(Source,Source.Size-Source.Position);
+end;
+
+function TROMessageEnvelope.ProcessIncoming(aMessage: TROMessage;aStream: TStream): TStream;
+begin
+  if Assigned(fBeforeEnvelopeProcessed) then fBeforeEnvelopeProcessed(Self, aStream, memIncoming,aMessage);
+  Result := TMemoryStream.Create;
+  intProcessIncoming(aStream, Result, aMessage);
+  if fReuseOriginalStream then begin
+    aStream.Size:=0;
+    aStream.CopyFrom(Result,0);
+    Result.Free;
+    Result := aStream;
+  end;
+  Result.Position := 0;
+  if Assigned(fAfterEnvelopeProcessed) then fAfterEnvelopeProcessed(Self, Result, memIncoming,aMessage);
+  Result.Position := 0;
+end;
+
+function TROMessageEnvelope.ProcessOutgoing(aMessage: TROMessage; aStream: TStream): TStream;
+begin
+  if Assigned(fBeforeEnvelopeProcessed) then fBeforeEnvelopeProcessed(Self, aStream, memOutgoing,aMessage);
+  Result := TMemoryStream.Create;
+  aMessage.WriteEnvelopeHeader(Self, Result);
+  intProcessOutgoing(aStream, Result, aMessage);
+  if fReuseOriginalStream then begin
+    aStream.Size:=0;
+    aStream.CopyFrom(Result,0);
+    Result.Free;
+    Result:= aStream;
+  end;
+  Result.Position := 0;
+  if Assigned(fAfterEnvelopeProcessed) then fAfterEnvelopeProcessed(Self, Result, memOutgoing,aMessage);
+  Result.Position := 0;
+end;
+
+procedure TROMessageEnvelope.SetEnvelopeMarker(const Value: String);
+var
+  temp: String;
+begin
+  temp := Value;
+  FEnvelopeMarker := AnsiToUtf8(temp);
+  while Length(FEnvelopeMarker) > 255 do begin
+    SetLength(temp, Length(temp)-1);
+    FEnvelopeMarker := AnsiToUtf8(temp);
+  end;
+  if FEnvelopeMarker = '' then FEnvelopeMarker := AnsiToUtf8(NewGuidAsString);
+end;
+
+{ TROMessageEnvelopeItem }
+
+procedure TROMessageEnvelopeItem.Assign(Source: TPersistent);
+begin
+  if (Source is TROMessageEnvelopeItem) then begin
+    fEnabled := TROMessageEnvelopeItem(Source).fEnabled;
+    fEnvelope := TROMessageEnvelopeItem(Source).fEnvelope;       
+  end
+  else begin
+    inherited;
+  end;
+end;
+
+constructor TROMessageEnvelopeItem.Create(aCollection: TCollection);
+begin
+  inherited;
+  Enabled := True;
+  fEnvelope := nil;
+end;
+
+destructor TROMessageEnvelopeItem.Destroy;
+begin
+
+  inherited;
+end;
+
+function TROMessageEnvelopeItem.GetDisplayName: string;
+begin
+  if (fEnvelope = nil) then
+    result := '[Unassigned]'
+  else
+    result := fEnvelope.EnvelopeMarker;
+end;
+
+function TROMessageEnvelopeItem.GetEnabled: boolean;
+begin
+  Result := fEnabled and Assigned(fEnvelope);
+end;
+
+procedure TROMessageEnvelopeItem.SetEnvelope(
+  const Value: TROMessageEnvelope);
+begin
+  fEnvelope := Value;
+end;
+
+
+{ TROMessageEnvelopeCollection }
+
+constructor TROMessageEnvelopeCollection.Create(aMessage: TROMessage);
+begin
+  inherited Create(TROMessageEnvelopeItem);
+  fMessage := aMessage;
+end;
+
+function TROMessageEnvelopeCollection.ItemByMarker(
+  const aMarker: String): TROMessageEnvelopeItem;
+var
+  i: integer;
+begin
+  for i := 0 to (Count - 1) do begin
+    Result := Items[i];
+    if (CompareText(Result.EnvelopeMarker, aMarker) = 0) then Exit;
+  end;
+  Result := nil;
+end;
+
+function TROMessageEnvelopeCollection.GetEnvelope(
+  Index: integer): TROMessageEnvelopeItem;
+begin
+  Result := TROMessageEnvelopeItem(GetItem(Index));
+end;
+
+
+function TROMessageEnvelopeCollection.ItemByEnvelope(const aEnvelope: TROMessageEnvelope): TROMessageEnvelopeItem;
+var
+  i: integer;
+begin
+  for i := 0 to (Count - 1) do begin
+    Result := Items[i];
+    if Result.fEnvelope = aEnvelope then Exit;
+  end;
+  Result := nil;
+end;
+
+procedure ClearAttributesList;
+var
+  i: integer;
+begin
+  for i := 0 to fServiceAttributeList.Count - 1 do
+    if fServiceAttributeList.Objects[i] <> nil then
+       fServiceAttributeList.Objects[i].Free;
+end;
+
+{ TROComponent }
+
+constructor TROComponent.Create(AOwner: TComponent);
+begin
+  {$IFDEF FPC}
+  InitCriticalSection(FCriticalSection);
+  {$ELSE}
+  InitializeCriticalSection(FCriticalSection);
+  {$ENDIF} 
+  inherited;
+end;
+
+type
+  THack_Component = class(TComponent)
+  end;
+
+destructor TROComponent.Destroy;
+begin
+  Destroying;
+  LockList;
+  try
+    RORemoveNotificationFromList;
+    inherited;
+  finally
+    UnlockList;
+    {$IFDEF FPC}
+    DoneCriticalSection(FCriticalSection);
+    {$ELSE}
+    DeleteCriticalSection(FCriticalSection);
+    {$ENDIF}        
+  end;
+end;
+
+procedure TROComponent.LockList;
+begin
+  EnterCriticalSection(FCriticalSection);
+end;
+
+procedure TROComponent.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  if (Operation = opRemove) and (AComponent = Owner) then begin
+    LockList;
+    try
+      RORemoveNotificationFromList;
+    finally
+      UnlockList;
+    end;
+  end;
+  if (Operation = opRemove) and (AComponent <> nil) then RORemoveFreeNotification(AComponent);
+  inherited;
+end;
+
+procedure TROComponent.RORemoveNotification(AComponent: TComponent);
+begin
+  LockList;
+  try
+    if FROFreeNotifies <> nil then begin
+      FROFreeNotifies.Remove(AComponent);
+      if FROFreeNotifies.Count = 0 then begin
+        FROFreeNotifies.Free;
+        FROFreeNotifies := nil;
+      end;
+    end;
+  finally
+    UnlockList;
+  end;
+end;
+
+procedure TROComponent.RORemoveNotificationFromList;
+begin
+  if FROFreeNotifies <> nil then begin
+    while Assigned(FROFreeNotifies) and (FROFreeNotifies.Count > 0) do
+      SendRemoveNotification(TComponent(FROFreeNotifies[FROFreeNotifies.Count -1]));
+    FreeAndNil(FROFreeNotifies);
+  end;
+end;
+
+procedure TROComponent.SendRemoveNotification(AComponent: TComponent);
+begin
+  THack_Component(AComponent).Notification(Self, opRemove);
+end;
+
+procedure TROComponent.ROFreeNotification(AComponent: TComponent);
+begin
+  LockList;
+  try
+    // Never acquire a reference to a component that is being deleted.
+    assert(not (csDestroying in (ComponentState + AComponent.ComponentState)), 'Component already destroyed: '+ Name);
+    if not Assigned(FROFreeNotifies) then begin
+      FROFreeNotifies := TList.Create;
+    end;
+    if FROFreeNotifies.IndexOf(AComponent) < 0 then begin
+      FROFreeNotifies.Add(AComponent);
+      if AComponent is TROComponent then TROComponent(AComponent).ROFreeNotification(Self);
+    end;
+  finally
+    UnlockList;
+  end;
+end;
+
+procedure TROComponent.RORemoveFreeNotification(AComponent: TComponent);
+begin
+  RORemoveNotification(AComponent);
+  if AComponent is TROComponent then TROComponent(AComponent).RORemoveNotification(Self);
+end;
+
+procedure TROComponent.UnlockList;
+begin
+  LeaveCriticalSection(FCriticalSection);
+end;
+
+initialization
+  _MessageClasses := TClassList.Create;
+  _ExceptionClasses := TClassList.Create;
+
+  _ProxyClasses := TStringList.Create;
+  _ProxyClasses.Duplicates := dupError;
+  _ProxyClasses.Sorted := TRUE;
+
+  _TransportChannels := TStringList.Create;
+  _TransportChannels.Duplicates := dupError;
+  _TransportChannels.Sorted := TRUE;
+
+  RegisterExceptionClass(EROUnknownType);
+  RegisterExceptionClass(EROMessageTooLarge);
+  RegisterExceptionClass(EROSessionNotFound);
+  RegisterExceptionClass(EROSessionExpired);
+  RegisterExceptionClass(SessionNotFoundException);
+  RegisterExceptionClass(SessionDoesNotHaveRequiredRolesException);
+  fServiceAttributeList:= TStringList.Create;
+
+finalization
+  ClearAttributesList;
+  fServiceAttributeList.Free;
+  UnregisterExceptionClass(EROUnknownType);
+  UnregisterExceptionClass(EROMessageTooLarge);
+  UnregisterExceptionClass(SessionNotFoundException);
+  UnregisterExceptionClass(EROSessionExpired);
+  UnregisterExceptionClass(EROSessionNotFound);
+  UnregisterExceptionClass(SessionDoesNotHaveRequiredRolesException);
+
+  _MessageClasses.Free;
+  _ExceptionClasses.Free;
+
+  FreeAndNil(_ProxyClasses);
+  FreeAndNil(_TransportChannels);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClientIntf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClientIntf.pas
new file mode 100644
index 0000000..75071ed
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROClientIntf.pas	
@@ -0,0 +1,549 @@
+unit uROClientIntf;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, TypInfo, uRODL;
+
+const
+  MESSAGE_TYPE_MESSAGE = 0;
+  MESSAGE_TYPE_EXCEPTION = 1;
+  MESSAGE_TYPE_EVENT = 2;
+
+  MAX_ITEM_NAME = $100; { max name length for interface, function etc. }
+  MAX_EXCEPTION_TEXT = $10000; { max exception text }
+
+type
+  { Misc }
+  TROURIType = (utHTTP, utTCP, utUDP, utPipes, utSMTP, utPOP3);
+  TROProbingOption = (poProbeWhenEnabled, poProbeWhenDisabled, poEnableIfProbeSucceeded, poDisableIfProbeFailed);
+  TROProbingOptions = set of TROProbingOption;
+
+const
+  URITypeIdentifiers : array[TROURIType] of string =
+    ('HTTP', 'TCP', 'UDP', 'PIPE', 'SMTP', 'POP3');
+
+type
+  TMessageType = (mtRequest,
+                  mtResponse,
+                  mtException,
+                  mtQueryServiceInfo,
+                  mtEvent,
+                  mtPoll);
+
+  { for Delphi 5 know we can reply on the correct value-assignment 0,1,2 }
+
+  { Forward declarations }
+  IROMessage = interface;
+  TROServerLocator = class;
+
+  { Misc }
+
+  DateTime = TDateTime; { Alias for the type TDateTime }
+
+  { IROMessage }
+  TParamAttribute = (paIsDateTime, paIsArrayElement);
+  TParamAttributes = set of TParamAttribute; { Set of TParamAttribute }
+
+  IROTransport = interface;
+
+  { IROMessage }
+  IROMessage = interface
+  ['{092FB8BE-5FC4-48CB-BB50-623465168B98}']
+    procedure Initialize(const aTransport : IROTransport; const anInterfaceName, aMessageName : string; aType: TMessageType); overload;
+    procedure Initialize(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string; aType: TMessageType); overload;
+
+    procedure InitializeRequestMessage(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string);
+    procedure InitializeResponseMessage(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string);
+    procedure InitializeEventMessage(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string);
+    procedure InitializeExceptionMessage(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string);
+
+    procedure Finalize;
+
+    function GetClientID : TGUID;
+    procedure SetClientID(const Value : TGUID);
+
+    {$IFDEF DOTNET}
+    {$ELSE}
+    procedure Write(const aName : string; aTypeInfo : PTypeInfo; const Ptr; ExtraAttributes : TParamAttributes);
+    {$ENDIF}
+    {$IFDEF DOTNET}
+    {$ELSE}
+    procedure Read(const aName : string; aTypeInfo : PTypeInfo; var Ptr; ExtraAttributes : TParamAttributes);
+    {$ENDIF}
+
+    function GetInterfaceName : string;
+    function GetMessageName : string;
+    procedure SetInterfaceName(const aValue : string);
+    procedure SetMessageName(const aValue : string);
+    procedure WriteToStream(aStream : TStream);
+    procedure ReadFromStream(aStream : TStream); overload;
+    procedure ReadFromStream(aStream : TStream; var aFreeStream: Boolean); overload;
+    procedure WriteException(aStream : TStream; anException : Exception);
+    function GetMessageType: TMessageType;
+
+    procedure FreeStream;
+
+    procedure SetAttributes(aTransport: IROTransport; const aNames: array of string; const aValues: array of string);
+    procedure UnsetAttributes(aTransport: IROTransport);
+
+    procedure InitializeRead(const aTransport : IROTransport);
+
+    property MessageName : string read GetMessageName write SetMessageName;
+    property InterfaceName : string read GetInterfaceName write SetInterfaceName;
+    property ClientID : TGUID read GetClientID write SetClientID;
+    property MessageType : TMessageType read GetMessageType;
+    //
+    { Writers }
+    procedure WriteInteger(const aName : string; anOrdType : TOrdType; const Ref; ArrayElementId : integer = -1);
+    procedure WriteInt64(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1);
+    procedure WriteUTF8String(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteAnsiString(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteWideString(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteDateTime(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteDouble(const aName : string; aFloatType : TFloatType; const Ref; ArrayElementId : integer = -1);
+    procedure WriteVariant(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteXml(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteGuid(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteDecimal(const aName : string; const Ref; ArrayElementId : integer = -1);
+    procedure WriteStruct(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1);
+    procedure WriteArray(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1);
+    procedure WriteBinary(const aName : string; const Ref; ArrayElementId : integer = -1);
+
+    { Readers }
+    procedure ReadInteger(const aName : string; anOrdType : TOrdType; var Ref; ArrayElementId : integer = -1);
+    procedure ReadInt64(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; var Ref; ArrayElementId : integer = -1);
+    procedure ReadUTF8String(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+    procedure ReadAnsiString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);    
+    procedure ReadWideString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+    procedure ReadDateTime(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadDouble(const aName : string; aFloatType : TFloatType; var Ref; ArrayElementId : integer = -1);
+    procedure ReadVariant(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadXml(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadGuid(const aName : string; var Ref; ArrayElementId : integer = -1);
+    procedure ReadDecimal(const aName : string; var Ref; ArrayElementId : integer = -1);
+    function ReadStruct(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean;
+    function ReadArray(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean;
+    procedure ReadBinary(const aName : string; var Ref; ArrayElementId : integer = -1);
+  end;
+
+  IROMessageCloneable = interface
+  ['{4AA33660-25B7-4794-A978-CB791640475D}']
+    function Clone:IROMessage;
+  end;
+
+  IROStreamAccess = interface
+  ['{DF3D000F-7EB3-4981-AA01-921553CAFF52}']
+    function GetStream : TStream;
+
+    property Stream : TStream read GetStream;
+  end;
+
+  { IROTransport }
+  IROTransport = interface
+  ['{56FA09B9-FFC8-4432-80E3-BF78E5E7DF33}']
+    function GetTransportObject : TObject;
+  end;
+
+  { IROTransportChannel }
+  IROTransportChannel = interface(IROTransport)
+  ['{EDFA0CF3-3265-46C9-AC5C-14C3CACF2721}']
+    procedure SetServerLocator(aServerLocator : TROServerLocator; anException : Exception = NIL);
+    function Probe(aServerLocator : TROServerLocator) : boolean;
+    procedure ProbeAll;
+
+    procedure Dispatch(aRequest, aResponse : TStream); overload;
+    procedure Dispatch(aMessage: IROMessage); overload;
+    procedure BeforeDispatch(aMessage: IROMessage);
+  end;
+
+  { IROMetadataReader }
+  IROMetadataReader = interface
+  ['{526269B5-FAB2-45A2-A2E6-8CBFF317BC98}']
+    procedure RetrieveMetadata(out Metadata : TStream);
+    procedure RetrieveRODL(out RODLLibrary : TRODLLibrary);
+  end;
+
+  { IROTCPTransport }
+  IROTCPTransport = interface(IROTransport)
+  ['{C80E773D-B8A8-4E0D-9B49-2668EFC1E27F}']
+    function GetClientAddress : string;
+
+    property ClientAddress : string read GetClientAddress;
+  end;
+
+  { IROTCPTransport }
+  IROTCPTransportProperties = interface(IROTCPTransport)
+  ['{C9C7136B-5F54-4134-BEA4-65F95088D97B}']
+    function GetHost: string;
+    function GetPort: integer;
+    procedure SetHost(const Value: string);
+    procedure SetPort(const Value: integer);
+
+    property Port : integer read GetPort write SetPort;
+    property Host : string read GetHost write SetHost;
+  end;
+
+  { IROHTTPTransport }
+  IROHTTPTransport = interface(IROTCPTransport)
+  ['{AD51DB69-993F-49C1-9F3B-4C678A95007D}']
+    procedure SetHeaders(const aName, aValue : string);
+    function GetHeaders(const aName : string) : string;
+
+    function GetContentType : string;
+    procedure SetContentType(const aValue : string);
+
+    function GetUserAgent : string;
+    procedure SetUserAgent(const aValue : string);
+
+    function GetTargetURL : string;
+    procedure SetTargetURL(const aValue : string);
+
+    procedure SetPathInfo (const aValue : string);
+    function GetPathInfo : string;
+    function GetQueryString : string;
+    function GetLocation : string;
+
+    property ContentType : string read GetContentType write SetContentType;
+    property UserAgent : string read GetUserAgent write SetUserAgent;
+    property TargetURL : string read GetTargetURL write SetTargetURL;
+    property Headers[const aName : string] : string read GetHeaders write SetHeaders;
+
+    property PathInfo : string read GetPathInfo write SetPathInfo;
+    property QueryString : string read GetQueryString;
+    function GetQueryParameter(const aName: string): string; 
+
+    property Location : string read GetLocation;
+  end;
+
+  { IROEventWriter }
+  IROEventWriter = interface
+  ['{501A01A8-0663-488A-BB29-3C0FBA7F43B5}']
+    function GetSessionList: TStrings;
+    function GetExcludeSender: boolean;
+    function GetExcludeSessionList: boolean;
+    procedure SetExcludeSender(const Value: boolean);
+    procedure SetExcludeSessionList(const Value: boolean);
+
+    property ExcludeSender : boolean read GetExcludeSender write SetExcludeSender;
+    property ExcludeSessionList : boolean read GetExcludeSessionList write SetExcludeSessionList;
+    property SessionList : TStrings read GetSessionList;
+  end;
+
+  IROEventsWriter = IROEventWriter {$IFDEF DELPHI10UP}deprecated{$ENDIF};
+
+  { IROModuleInfo }
+  TDataFormat = string;
+  IROModuleInfo = interface
+  ['{83ED3A44-DA4B-4F4E-884A-DDF5E726A2C1}']
+    procedure GetModuleInfo(aStream : TStream; const aTransport : IROTransport; var aFormat : TDataFormat);
+    procedure GetRodlInfo(aStream : TStream; const aTransport : IROTransport; var aFormat : TDataFormat); 
+  end;
+
+  IRONamedModuleInfo = interface(IROModuleInfo)
+  ['{C7D24186-D600-465C-9B09-4E1E2CF835BE}']
+    function ModuleInfoName: string;
+  end;
+
+  { TROServerLocator }
+  TROServerLocatorNotifyEvent = procedure(Sender : TROServerLocator) of object;
+  TROServerLocator = class(TCollectionItem)
+  private
+    fEnabled: boolean;
+    fPort: integer;
+    fHost: string;
+    fDisableOnFailure: boolean;
+    fLoadBalancingServer: boolean;
+    fProbingOptions: TROProbingOptions;
+    fOnEnabledChanged: TROServerLocatorNotifyEvent;
+    fName: string;
+    fDispatcher: string;
+
+    procedure SetHost(const Value: string);
+    procedure SetPort(const Value: integer);
+    function GetEnabled: boolean;
+    procedure SetEnabled(const Value: boolean);
+    procedure SetDispatcher(const Value: string);
+
+  protected
+    function GetDisplayName: string; override;
+
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+
+    function GetNamePath: string; override;
+    procedure Assign(Source: TPersistent); override;
+
+  published
+    property Name : string read fName write fName;
+    property Enabled : boolean read GetEnabled write SetEnabled;
+    property Host : string read fHost write SetHost;
+    property Port : integer read fPort write SetPort;
+    property HTTPDispatcher: string read fDispatcher write SetDispatcher;
+    property DisableOnFailure : boolean read fDisableOnFailure write fDisableOnFailure;
+    property LoadBalancingServer : boolean read fLoadBalancingServer write fLoadBalancingServer;
+    property ProbingOptions : TROProbingOptions read fProbingOptions write fProbingOptions;
+
+    property OnEnabledChanged : TROServerLocatorNotifyEvent read fOnEnabledChanged write fOnEnabledChanged;
+  end;
+
+  { IROMultiThreadAwareChannel }
+  IROMultiThreadAwareChannel = interface
+    ['{0C2FD6DE-DEC1-4B1D-851C-F55C36869920}']
+  end;
+
+  { TROServerLocatorCollection }
+  TROServerLocatorCollection = class(TCollection)
+  private
+    fOwner : TComponent;
+
+  protected
+    function GetItems(aIndex: integer): TROServerLocator;
+    procedure SetItems(aIndex: integer; aNewItem: TROServerLocator);
+    function GetOwner: TPersistent; override;
+  public
+    constructor Create(aOwner : TComponent);
+    destructor Destroy; override;
+
+    function Add: TROServerLocator;
+    function Insert(aIndex: integer): TROServerLocator;
+    function IndexOf(aItem: TROServerLocator): integer;
+
+    function GetNextLocator(out aLocator : TROServerLocator;
+                            var CurrentIndex : integer;
+                            var InitialIndex : integer;
+                            ForLoadBalancing : boolean) : boolean;
+
+    procedure EnableAll;
+    procedure DisableAll;
+
+    property Items[Index: integer]: TROServerLocator read GetItems write SetItems; default;
+  end;
+
+  IROEventReceiver = interface
+    ['{A3320CBC-2E62-41C8-9C3D-FB7ADCBF6920}']
+    procedure Dispatch(aStream: TStream; aCaller: TThread);
+    function GetObject: TObject;
+  end;
+  
+  IROActiveEventChannel = interface
+    ['{BFDD73B9-3C6A-4E78-AFFA-7B9A182A5CC4}']
+    procedure RegisterEventReceiver(aReceiver: IROEventReceiver);
+    procedure UnregisterEventReceiver(aReceiver: IROEventReceiver);
+  end;
+
+
+
+implementation
+
+uses
+  uROClasses;
+
+{ TROServerLocator }
+constructor TROServerLocator.Create(Collection: TCollection);
+begin
+  inherited;
+
+  fProbingOptions := [poProbeWhenEnabled, poProbeWhenDisabled, poEnableIfProbeSucceeded, poDisableIfProbeFailed];
+  fLoadBalancingServer := TRUE;
+  fEnabled := TRUE;
+  fDisableOnFailure := TRUE;
+end;
+
+destructor TROServerLocator.Destroy;
+begin
+  inherited;
+end;
+
+function TROServerLocator.GetDisplayName: string;
+var options : string;
+begin
+  if (Trim(fHost)='')
+    then result := '!!Empty!!'
+    else result := fHost;
+
+  if (fPort>0) then result := result+':'+IntToStr(fPort);
+
+  if not Enabled then result := '(Disabled) '+result;
+
+  if LoadBalancingServer then options := 'LBS' else options := 'non-LBS';
+  if DisableOnFailure then options := options+', Disable On Failure' else options := options+',';
+  options := options+', '+GetPropValue(Self, 'ProbingOptions');
+
+  result := result+' '+options;
+end;
+
+function TROServerLocator.GetEnabled: boolean;
+begin
+  result := fEnabled and (Length(fHost)>0);
+end;
+
+procedure TROServerLocator.SetDispatcher(const Value: string);
+begin
+  fDispatcher := Trim(Value);
+end;
+
+procedure TROServerLocator.SetEnabled(const Value: boolean);
+begin
+  if (fEnabled=Value) then Exit;
+
+  fEnabled := Value;
+  if Assigned(fOnEnabledChanged) then fOnEnabledChanged(Self);
+end;
+
+procedure TROServerLocator.SetHost(const Value: string);
+begin
+  fHost := Trim(Value);
+end;
+
+procedure TROServerLocator.SetPort(const Value: integer);
+begin
+  if (fPort<>Value) and (Value>=0)
+    then fPort := Value;
+end;
+
+function TROServerLocator.GetNamePath: string;
+begin
+  if (Collection <> nil) and (Collection.Owner <> nil) then
+    result := TComponent(Collection.Owner).Name + '.' + FName
+  else                
+    result := inherited GetNamePath
+end;
+
+procedure TROServerLocator.Assign(Source: TPersistent);
+var
+  lSource: TROServerLocator;
+begin
+  if Source is TROServerLocator then begin
+    lSource := TROServerLocator(Source);
+
+    DisableOnFailure := lSource.DisableOnFailure;
+    Enabled := lSource.Enabled;
+    HTTPDispatcher := lSource.HTTPDispatcher;
+    Host := lSource.Host;
+    LoadBalancingServer := lSource.LoadBalancingServer;
+    Name := lSource.Name;
+    OnEnabledChanged := lSource.OnEnabledChanged;
+    Port := lSource.Port;
+    ProbingOptions := lSource.ProbingOptions;
+  end
+  else
+    inherited;
+end;
+
+{ TROServerLocatorCollection }
+constructor TROServerLocatorCollection.Create(aOwner : TComponent);
+begin
+  inherited Create(TROServerLocator);
+
+  fOwner := aOwner;  
+end;
+
+destructor TROServerLocatorCollection.Destroy;
+begin
+  inherited;
+end;
+
+function TROServerLocatorCollection.Add: TROServerLocator;
+begin
+  result := TROServerLocator(inherited Add);
+end;
+
+function TROServerLocatorCollection.Insert(aIndex: integer): TROServerLocator;
+begin
+  result := TROServerLocator(inherited Insert(aIndex));
+end;
+
+function TROServerLocatorCollection.GetItems(aIndex: integer): TROServerLocator;
+begin
+  result := TROServerLocator(inherited Items[aIndex]);
+end;
+
+function TROServerLocatorCollection.IndexOf(aItem: TROServerLocator): integer;
+var i: integer;
+begin
+  result := - 1;
+  for i := 0 to (Count - 1) do
+    if (aItem = Items[i]) then begin
+      result := i;
+      Exit;
+  end;
+end;
+
+procedure TROServerLocatorCollection.SetItems(aIndex: integer; aNewItem: TROServerLocator);
+begin
+  inherited Items[aIndex].Assign(aNewItem);
+end;
+
+
+function TROServerLocatorCollection.GetNextLocator(out aLocator : TROServerLocator;
+  var CurrentIndex : integer; var InitialIndex : integer; ForLoadBalancing : boolean) : boolean;
+var idx : integer;
+begin
+  aLocator := NIL;
+  result := FALSE;
+  if Count=0 then Exit;
+
+  idx := CurrentIndex;
+  repeat
+    try
+      idx := IncID(idx, Count-1);
+
+      if (idx=InitialIndex)
+        then Exit // We ended up to the first one.
+
+      else if Items[idx].Enabled then begin
+        if ForLoadBalancing and not Items[idx].LoadBalancingServer
+          then Continue;
+
+        result := TRUE;
+        aLocator := Items[idx];
+        CurrentIndex := idx;
+        Exit;
+      end;
+    finally
+      if InitialIndex = -1 then
+        InitialIndex := 0;
+    end;
+  until FALSE;
+end;
+
+procedure TROServerLocatorCollection.DisableAll;
+var i: Integer;
+begin
+  for i := 0 to (Count - 1) do begin
+    Items[i].Enabled := FALSE;
+  end;
+end;
+
+procedure TROServerLocatorCollection.EnableAll;
+var i: Integer;
+begin
+  for i := 0 to (Count - 1) do begin
+    Items[i].Enabled := TRUE;
+  end;
+end;
+
+function TROServerLocatorCollection.GetOwner: TPersistent;
+begin
+  result := fOwner;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROComboService.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROComboService.pas
new file mode 100644
index 0000000..9445cfe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROComboService.pas	
@@ -0,0 +1,297 @@
+unit uROComboService;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+
+interface
+
+uses
+  Classes, SvcMgr;
+
+type
+  TROService = class(TService)
+  private
+  protected
+    procedure Start(Sender: TService; var Started: boolean);
+    procedure Stop(Sender: TService; var Stopped: boolean);
+
+    procedure Execute(Sender: TService);
+  public
+    function GetServiceController: TServiceController; override;
+
+    constructor CreateNew(AOwner: TComponent; Dummy: integer = 0); override;
+
+    procedure CreateForm(InstanceClass: TComponentClass; var Reference);
+    procedure Run;
+  published
+  end;
+
+function ROStartService(const aServiceName, aDisplayName: string; aDescription: string = '';
+  aStartType: TStartType = stAuto; aDependency : string = ''; aServiceType: TServiceType = stWin32;
+  aUserName: string = ''; aPassword: string = ''; aLoadGroup: string = '---'; aParameters: string = ''): Boolean;
+function ROStartDependentService(const aServiceName, aDisplayName: string; aDependency : string = ''): Boolean;
+function ROIsService: boolean;
+
+var
+  ROService: TROService;
+
+implementation
+uses
+  Windows, SysUtils, WinSvc;
+
+var
+  FIsService: boolean;
+  FServiceName: string;
+  FDisplayName: string;
+  FStartType: TStartType;
+  FServiceType: TServiceType;
+  FUserName: string;
+  FPassword: string;
+  FLoadGroup: string;
+  FRegisterService: boolean = False;
+
+type
+  PServiceDescriptionA = ^TServiceDescriptionA;
+  PServiceDescriptionW = ^TServiceDescriptionW;
+  PServiceDescription = ^TServiceDescriptionA;
+  _SERVICE_DESCRIPTIONA = record
+    lpDescription: PChar;
+  end;
+  {$EXTERNALSYM _SERVICE_DESCRIPTIONA}
+  _SERVICE_DESCRIPTIONW = record
+    lpDescription: PWideChar;
+  end;
+  {$EXTERNALSYM _SERVICE_DESCRIPTIONW}
+  _SERVICE_DESCRIPTION = _SERVICE_DESCRIPTIONA;
+  {$EXTERNALSYM _SERVICE_DESCRIPTION}
+  SERVICE_DESCRIPTIONA = _SERVICE_DESCRIPTIONA;
+  {$EXTERNALSYM SERVICE_DESCRIPTIONA}
+  SERVICE_DESCRIPTIONW = _SERVICE_DESCRIPTIONW;
+  {$EXTERNALSYM SERVICE_DESCRIPTIONW}
+  SERVICE_DESCRIPTION = _SERVICE_DESCRIPTIONA;
+  {$EXTERNALSYM SERVICE_DESCRIPTION}
+  TServiceDescriptionA = _SERVICE_DESCRIPTIONA;
+  TServiceDescriptionW = _SERVICE_DESCRIPTIONW;
+  TServiceDescription = TServiceDescriptionA;
+
+  TChangeServiceConfig2 = function (hService: SC_HANDLE; dwInfoLevel: DWORD; lpInfo: Pointer): BOOL; stdcall;
+
+const
+  SERVICE_CONFIG_DESCRIPTION     = 1;
+  {$EXTERNALSYM SERVICE_CONFIG_DESCRIPTION}
+  SERVICE_CONFIG_FAILURE_ACTIONS = 2;
+  {$EXTERNALSYM SERVICE_CONFIG_FAILURE_ACTIONS}
+
+procedure ServiceController(CtrlCode: dword); stdcall;
+begin
+  ROService.Controller(CtrlCode);
+end;
+
+function TROService.GetServiceController: TServiceController;
+begin
+  Result := ServiceController;
+end;
+
+procedure TROService.CreateForm(InstanceClass: TComponentClass; var Reference);
+begin
+  SvcMgr.Application.CreateForm(InstanceClass, Reference);
+end;
+
+procedure TROService.Run;
+begin
+  SvcMgr.Application.Run;
+end;
+
+constructor TROService.CreateNew(AOwner: TComponent; Dummy: integer);
+begin
+  inherited;
+  AllowPause := False;
+  Interactive := True;
+  DisplayName := FDisplayName;
+  Name := FServiceName;
+  OnStart := Start;
+  OnStop := Stop;
+
+  if FRegisterService then
+  begin
+    // New part
+    StartType := FStartType;
+    ServiceType := FServiceType;
+    ServiceStartName := FUserName;
+    Password := FPassword;
+    LoadGroup := FLoadGroup;
+  end;
+end;
+
+procedure TROService.Start(Sender: TService; var Started: boolean);
+begin
+  Started := True;
+end;
+
+procedure TROService.Execute(Sender: TService);
+begin
+  while not Terminated do
+    ServiceThread.ProcessRequests(True);
+end;
+
+procedure TROService.Stop(Sender: TService; var Stopped: boolean);
+begin
+  Stopped := True;
+end;
+
+function ROIsService: boolean;
+begin
+  Result := FIsService;
+end;
+
+function ROStartService(const aServiceName, aDisplayName: string; aDescription: string = '';
+  aStartType: TStartType = stAuto; aDependency : string = ''; aServiceType: TServiceType = stWin32;
+  aUserName: string = ''; aPassword: string = ''; aLoadGroup: string = '---'; aParameters: string = ''): Boolean;
+var
+  Mgr, Svc: Integer;
+  ServiceStartName: string;
+  Config: Pointer;
+  Size: DWord;
+  lServiceDescr: TServiceDescription;
+  lHandle: HMODULE;
+  lChangeServiceConfig2: TChangeServiceConfig2;
+begin
+  FRegisterService := False;
+  FDisplayName := aDisplayName;
+  FServiceName := StringReplace(aServiceName, ' ', '_', [rfReplaceAll]);
+  FStartType := aStartType;
+  FServiceType := aServiceType;
+  FUserName := aUserName;
+  FPassword := aPassword;
+  FLoadGroup := aLoadGroup;
+
+  FIsService := FindCmdLineSwitch('install', ['-', '\', '/'], True) or
+    FindCmdLineSwitch('uninstall', ['-', '\', '/'], True);
+
+  if FIsService then
+  begin
+    FRegisterService := True;
+    try
+      SvcMgr.Application.Initialize;
+      ROService := TROService.CreateNew(SvcMgr.Application, 0);
+
+      (* Version 1.1, block added 29.10.2004 by Janne Timmerbacka *)
+      if Length( aDependency ) > 0 then
+        with RoService.Dependencies do
+        begin
+          Clear;
+          with Add as TDependency do Name := aDependency;
+        end;
+
+      ROService.Run;
+      FreeAndNil(ROService);
+    finally
+      FRegisterService := False;
+    end;
+
+    Mgr := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
+    if Mgr <> 0 then
+    begin
+      Svc := OpenService(Mgr, PChar(FServiceName), SERVICE_QUERY_CONFIG OR SERVICE_CHANGE_CONFIG);
+      if Svc<>0 then
+      begin
+        if Length(aParameters)>0 then begin
+          if pos(' ', ParamStr(0))>0 then
+            ServiceStartName := AnsiQuotedStr(AnsiDequotedStr(ParamStr(0),'"'),'"')
+          else
+            ServiceStartName := ParamStr(0);
+          if ChangeServiceConfig(Svc,
+            SERVICE_NO_CHANGE, SERVICE_NO_CHANGE,
+            SERVICE_NO_CHANGE,
+            PChar(ServiceStartName + ' ' + aParameters),
+            nil, nil, nil, nil, nil, nil) = False then begin
+            //  OutputDebugString(Pchar(SysErrorMessage(GetLastError)));
+            end;
+          end;
+        lServiceDescr.lpDescription := PChar(aDescription);
+        lHandle := GetModuleHandle(advapi32);
+        if lHandle <> 0 then
+        begin
+          {$IFDEF UNICODE}
+            @lChangeServiceConfig2 := GetProcAddress(lHandle, 'ChangeServiceConfig2W');
+          {$ELSE}
+            @lChangeServiceConfig2 := GetProcAddress(lHandle, 'ChangeServiceConfig2A');
+          {$ENDIF}
+          if Assigned(lChangeServiceConfig2) then
+            lChangeServiceConfig2(Svc, SERVICE_CONFIG_DESCRIPTION, @lServiceDescr);
+        end;
+        CloseServiceHandle(Svc);
+      end;
+      CloseServiceHandle(Mgr);
+    end;
+    ExitProcess(0);
+
+    Result := True;
+    Exit;
+  end;
+
+  if FindCmdLineSwitch('standalone', ['-', '\', '/'], True) then
+    FIsService := False
+  else begin
+    Mgr := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
+    if Mgr <> 0 then
+    begin
+      Svc := OpenService(Mgr, PChar(FServiceName), SERVICE_QUERY_CONFIG);
+      FIsService := Svc <> 0;
+      if FIsService then
+      begin
+        QueryServiceConfig(Svc, nil, 0, Size);
+        Config := AllocMem(Size);
+        try
+          QueryServiceConfig(Svc, Config, Size, Size);
+          ServiceStartName := PQueryServiceConfig(Config)^.lpServiceStartName;
+          if CompareText(ServiceStartName, 'LocalSystem') = 0 then
+            ServiceStartName := 'SYSTEM';
+        finally
+          Dispose(Config);
+        end;
+        CloseServiceHandle(Svc);
+      end;
+      CloseServiceHandle(Mgr);
+    end;
+  end;
+(*
+  if FIsService then
+  begin
+    Size := 256;
+    SetLength(UserName, Size);
+    GetUserName(PChar(UserName), Size);
+    SetLength(UserName, StrLen(PChar(UserName)));
+    n := Pos('\', ServiceStartName);
+    if (n <> -1) then
+      ServiceStartName := Trim(Copy(ServiceStartName, n + 1, maxInt));
+    FIsService := CompareText(UserName, ServiceStartName) = 0;
+  end;
+*)
+  Result := FIsService;
+
+  if FIsService then
+  begin
+    SvcMgr.Application.Initialize;
+    ROService := TROService.CreateNew(SvcMgr.Application, 0);
+  end;
+end;
+
+function ROStartDependentService(const aServiceName, aDisplayName: string; aDependency : string = ''): Boolean;
+begin
+  Result := ROStartService(aServiceName, aDisplayName, '', stAuto,
+  aDependency);
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROCompression.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROCompression.pas
new file mode 100644
index 0000000..2e22a99
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROCompression.pas	
@@ -0,0 +1,356 @@
+unit uROCompression;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+{$IFDEF FPC}
+  {$IFDEF MSWINDOWS}
+    {$DEFINE FPCMSWIN}
+  {$ENDIF}
+  {$IFDEF LINUX}
+    {$DEFINE FPCLINUX}
+  {$ENDIF}
+  {$UNDEF MSWINDOWS}
+  {$DEFINE LINUX}
+{$ENDIF FPC}
+
+interface
+
+uses
+     Classes;
+
+
+{$IFNDEF MSWINDOWS}
+procedure ZCompressStream(anInputStream, aCompressedStream : TStream);
+procedure ZDecompressStream(aCompressedStream, anOutputStream : TStream);
+{$ENDIF}
+function CompressStr(const aString : AnsiString) : AnsiString;
+function DecompressStr(const aString : AnsiString) : AnsiString;
+function CompressAndEncode(const aString: Ansistring): Ansistring;
+function DecodeAndUnCompress(const aString: Ansistring): Ansistring;
+procedure EncodeStream(anInputStream, anOutputStream: TStream);
+procedure DecodeStream(anInputStream, anOutputStream: TStream);
+
+implementation
+
+uses
+  uROClasses,
+  uROZLib, SysUtils;
+
+const
+  EncodeTable: array[0..63] of AnsiChar =
+    'ABCDEFGHIJKLMNOPQRSTUVWXYZ' +
+    'abcdefghijklmnopqrstuvwxyz' +
+    '0123456789+/';
+
+  DecodeTable: array[#0..#127] of Integer = (
+    Byte('='), 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
+    64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
+    64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 62, 64, 64, 64, 63,
+    52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 64, 64, 64, 64, 64, 64,
+    64,  0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14,
+    15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 64, 64, 64, 64, 64,
+    64, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
+    41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 64, 64, 64, 64, 64);
+
+type
+  PPacket = ^TPacket;
+  TPacket = packed record
+    case Integer of
+      0: (b0, b1, b2, b3: Byte);
+      1: (i: Integer);
+      2: (a: array[0..3] of Byte);
+      3: (c: array[0..3] of AnsiChar);
+  end;
+
+procedure EncodePacket(const Packet: TPacket; NumChars: Integer; OutBuf: PAnsiChar);
+begin
+  OutBuf[0] := EnCodeTable[Packet.a[0] shr 2];
+  OutBuf[1] := EnCodeTable[((Packet.a[0] shl 4) or (Packet.a[1] shr 4)) and $0000003f];
+  if NumChars < 2 then
+    OutBuf[2] := '='
+  else OutBuf[2] := EnCodeTable[((Packet.a[1] shl 2) or (Packet.a[2] shr 6)) and $0000003f];
+  if NumChars < 3 then
+    OutBuf[3] := '='
+  else OutBuf[3] := EnCodeTable[Packet.a[2] and $0000003f];
+end;
+
+function DecodePacket(InBuf: PAnsiChar; var nChars: Integer): TPacket;
+begin
+  Result.a[0] := (DecodeTable[InBuf[0]] shl 2) or
+    (DecodeTable[InBuf[1]] shr 4);
+  NChars := 1;
+  if InBuf[2] <> '=' then
+  begin
+    Inc(NChars);
+    Result.a[1] := (DecodeTable[InBuf[1]] shl 4) or
+      (DecodeTable[InBuf[2]] shr 2);
+  end;
+  if InBuf[3] <> '=' then
+  begin
+    Inc(NChars);
+    Result.a[2] := (DecodeTable[InBuf[2]] shl 6) or DecodeTable[InBuf[3]];
+  end;
+end;
+
+procedure EncodeStream(anInputStream, anOutputStream: TStream);
+type
+  PInteger = ^Integer;
+var
+  InBuf: array[0..509] of Byte;
+  OutBuf: array[0..1023] of AnsiChar;
+  BufPtr: PAnsiChar;
+  I, J, K, BytesRead: Integer;
+  Packet: TPacket;
+begin
+  K := 0;
+  FillChar(OutBuf,SizeOf(OutBuf),#0);
+  repeat
+    BytesRead := anInputStream.Read(InBuf, SizeOf(InBuf));
+    I := 0;
+    BufPtr := OutBuf;
+    while I < BytesRead do
+    begin
+      if BytesRead - I < 3 then
+        J := BytesRead - I
+      else J := 3;
+      Packet.i := 0;
+      Packet.b0 := InBuf[I];
+      if J > 1 then
+        Packet.b1 := InBuf[I + 1];
+      if J > 2 then
+        Packet.b2 := InBuf[I + 2];
+      EncodePacket(Packet, J, BufPtr);
+      Inc(I, 3);
+      Inc(BufPtr, 4);
+      Inc(K, 4);
+      if K > 75 then
+      begin
+        BufPtr[0] := #$0D;
+        BufPtr[1] := #$0A;
+        Inc(BufPtr, 2);
+        K := 0;
+      end;
+    end;
+    anOutputStream.Write(Outbuf, BufPtr - PAnsiChar(@OutBuf));
+  until BytesRead = 0;
+end;
+
+procedure DecodeStream(anInputStream, anOutputStream: TStream);
+var
+  InBuf: array[0..75] of AnsiChar;
+  OutBuf: array[0..49] of Byte;
+  InBufPtr, OutBufPtr: PAnsiChar;
+  I, J, K, BytesRead: Integer;
+  Packet: TPacket;
+
+  procedure SkipWhite;
+  var
+    C: AnsiChar;
+    NumRead: Integer;
+  begin
+    while True do
+    begin
+      NumRead := anInputStream.Read(C, 1);
+      if NumRead = 1 then
+      begin
+        if CharInSet(C, ['0'..'9','A'..'Z','a'..'z','+','/','=']) then
+        begin
+          anInputStream.Position := anInputStream.Position - 1;
+          Break;
+        end;
+      end else Break;
+    end;
+  end;
+
+begin
+  repeat
+    SkipWhite;
+    BytesRead := anInputStream.Read(InBuf, SizeOf(InBuf));
+    InBufPtr := InBuf;
+    OutBufPtr := @OutBuf;
+    I := 0;
+    while I < BytesRead do
+    begin
+      Packet := DecodePacket(InBufPtr, J);
+      K := 0;
+      while J > 0 do
+      begin
+        OutBufPtr^ := AnsiChar(Packet.a[K]);
+        Inc(OutBufPtr);
+        Dec(J);
+        Inc(K);
+      end;
+      Inc(InBufPtr, 4);
+      Inc(I, 4);
+    end;
+    anOutputStream.Write(OutBuf, OutBufPtr - PChar(@OutBuf));
+  until BytesRead = 0;
+end;
+
+function CompressStr(const aString : AnsiString) : AnsiString;
+{$IFNDEF MSWINDOWS}
+var
+  Buffer : Pointer;
+  Size : Integer;
+begin
+  try
+    try
+      CompressBuf(PAnsiChar(aString), Length(aString), Buffer, Size);
+      SetLength(Result, Size);
+      Move(Buffer^, Result[1], Size);
+    except
+      Buffer := nil;
+    end;
+  finally
+    FreeMem(Buffer);
+  end;
+end;
+{$ELSE}
+begin
+  Result := aString;
+  ZFastCompressString(Result, clMax);
+end;
+{$ENDIF}
+
+function DecompressStr(const aString : AnsiString) : AnsiString;
+{$IFNDEF MSWINDOWS}
+var
+  Buffer : Pointer;
+  Size : Integer;
+begin
+  try
+    try
+      DecompressBuf(PAnsiChar(aString), Length(aString), 0, Buffer, Size);
+      SetLength(Result, Size);
+      Move(Buffer^, pointer(Result)^, Size);
+    except
+      Buffer := nil;
+    end;
+  finally
+    FreeMem(Buffer);
+  end;
+end;
+{$ELSE}
+begin
+  Result := aString;
+  ZFastDecompressString(Result);
+end;
+{$ENDIF}
+
+{$IFNDEF MSWINDOWS}
+procedure ZCompressStream(anInputStream, aCompressedStream : TStream);
+var
+  zstream : TCompressionStream;
+begin
+  try
+    zstream := TCompressionStream.Create(clMax, aCompressedStream);
+    zstream.CopyFrom(anInputStream, 0);
+  finally
+    FreeAndNIL(zstream);
+  end;
+end;
+
+procedure ZDecompressStream(aCompressedStream, anOutputStream : TStream);
+var
+  zstream : TDecompressionStream;
+  buffer  : array of byte;
+  bufflen : integer;
+  lBufferSize: integer;
+begin
+  lBufferSize := 10*1024;
+
+  SetLength(buffer,lBufferSize);
+  zstream := TDecompressionStream.Create(aCompressedStream);
+  try
+
+    bufflen := zstream.Read(buffer[0], lBufferSize);
+    while (bufflen>0) do begin
+      anOutputStream.Write(buffer[0], bufflen);
+      bufflen := zstream.Read(buffer[0], lBufferSize);
+    end;
+
+  finally
+    FreeAndNIL(zstream);
+  end;
+end;
+{$ENDIF}
+
+function CompressAndEncode(const aString: AnsiString): Ansistring;
+var
+  fCompressedStream: TROBinaryMemoryStream;
+  fStreamCompressor: TCompressionStream;
+  fStringStream: TROBinaryMemoryStream;
+begin
+  fCompressedStream := TROBinaryMemoryStream.Create;
+  try
+    fStreamCompressor := TCompressionStream.Create(clMax, (fCompressedStream));
+    try
+      fStreamCompressor.Write(pointer(aString)^, length(aString));
+    finally
+      FreeAndNil(fStreamCompressor);
+    end;
+    fStringStream := TROBinaryMemoryStream.create;
+    try
+      fCompressedStream.Position := 0;
+      EncodeStream(fCompressedStream, fStringStream);
+      Result := fStringStream.ToString;
+    finally
+      FreeAndNil(fStringStream);
+    end;
+  finally
+    FreeAndNil(fCompressedStream);
+  end;
+end;
+
+function DecodeAndUnCompress(const aString: Ansistring): Ansistring;
+var
+  fWorkStream: TMemoryStream;
+  fEncodedStream: TMemoryStream;
+  fStreamDeCompressor: TDecompressionStream;
+  fBufLen: integer;
+  fBuffer: array[0..16383] of byte;
+begin
+  fWorkStream := TMemoryStream.create;
+  try
+    fWorkStream.size := length(aString);
+    move(pointer(aString)^, fWorkStream.memory^, fWorkStream.size);
+    fWorkStream.position := 0;
+    fEncodedStream := TMemoryStream.create;
+    try
+      DecodeStream(fWorkStream, fEncodedStream);
+      fWorkStream.size := 0;
+      fEncodedStream.position := 0;
+      fStreamDeCompressor := TDecompressionStream.Create(fEncodedStream);
+      try
+        fBufLen := fStreamDeCompressor.Read(fBuffer, SizeOf(fBuffer));
+        while fBufLen > 0 do
+        begin
+          fWorkStream.Write(fBuffer, fBufLen);
+          fBufLen := fStreamDeCompressor.Read(fBuffer, SizeOf(fBuffer));
+        end;
+      finally
+        FreeAndNil(fStreamDeCompressor);
+      end;
+    finally
+      FreeAndnil(fEncodedStream);
+    end;
+    fWorkStream.position := 0;
+    SetLength(Result, fWorkStream.size);
+    move(fWorkStream.memory^, pointer(Result)^, fWorkStream.size);
+  finally
+    FreeAndNil(fWorkStream);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODBEventRepository.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODBEventRepository.pas
new file mode 100644
index 0000000..c4ba373
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODBEventRepository.pas	
@@ -0,0 +1,658 @@
+unit uRODBEventRepository;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 6 and up                                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  SysUtils, Classes, DB, SyncObjs,
+  uROEventRepository, uROTypes;
+
+type
+{
+------------------------------ sql script (MSSQL) ---------------------------------
+CREATE TABLE [Messages](
+	[MessageInc] [int] IDENTITY(1,1) NOT NULL,
+	[Created] [datetime] NULL,
+	[SourceSessionID] [char](38) NOT NULL,
+	[Data] [image] NULL,
+ CONSTRAINT [PK_Messages] PRIMARY KEY
+([MessageInc] ASC)
+)
+
+GO
+
+CREATE INDEX [Messages_IDX1] ON [Messages] ([Created] ASC)
+
+GO
+
+CREATE TABLE [MessagesPerSession](
+	[SessionID] [char](38) NOT NULL,
+	[MessageInc] [int] NOT NULL,
+ CONSTRAINT [PK_MessagesPerSession] PRIMARY KEY
+(  [SessionID] ASC, [MessageInc] ASC)
+)
+
+GO
+
+CREATE INDEX [MessagesPerSession_IDX1] ON [MessagesPerSession] ([MessageInc] ASC)
+
+GO
+
+--------------------------- SQLs --------------------------------------------------
+
+InsertMessages: Insert into Messages (Created, SourceSessionID, Data) values (:Created, :SourceSessionID, :Data)
+DeleteMessages: delete from Messages where MessageInc = :MessageInc
+GetMessageInc:  SELECT IsNull(Ident_Current('Messages'), 0) as LastInc
+GetMessages: select m.MessageInc, m.Data from MessagesPerSession mps join Messages m on (m.MessageInc = mps.MessageInc) where mps.SessionID = :SessionID
+DeleteUnusedMessages:  delete from Messages where MessageInc not in (select distinct MessageInc from MessagesPerSession)
+DeleteOldMessages: delete from Messages where Created < :Created
+DeleteOldMessagesPerSession: delete from MessagesPerSession where MessageInc in (select MessageInc from Messages where Created < :Created)
+
+InsertMessagesPerSession: Insert into MessagesPerSession (SessionID, MessageInc) values (:SessionID, :MessageInc)
+DeleteMessagesPerSession: Delete from MessagesPerSession where SessionID = :SessionID and MessageInc = :MessageInc
+}
+
+
+  {$IFDEF FPC}
+  IProviderSupport = interface
+    procedure PSExecute;
+    function PSGetParams: TParams;
+    procedure PSSetParams(AParams: TParams);
+  end;
+  {$ENDIF}
+
+  TRODBEventRepository = class;
+
+  TRODBEventRepositoryConvertGUIDEvent = function(Sender: TRODBEventRepository; const aGUID: TGUID): string of object;
+  TRODBEventRepositoryDatasetGetParams = function(Sender: TRODBEventRepository; aDataset: TDataset): TParams of object;
+  TRODBEventRepositoryDatasetSetParams = procedure(Sender: TRODBEventRepository; aDataset: TDataset; aParams: TParams) of object;
+  TRODBEventRepositoryDatasetExecute = procedure(Sender: TRODBEventRepository; aDataset: TDataset) of object;
+
+  TRODBEventRepository = class(TROEventRepository)
+  private
+    FInsertMessagesDataset: TDataset;
+    FDeleteMessagesDataset: TDataset;
+    FGetMessagesDataset: TDataset;
+    fOnDatasetExecute: TRODBEventRepositoryDatasetExecute;
+    fOnDatasetGetParams: TRODBEventRepositoryDatasetGetParams;
+    fOnDatasetSetParams: TRODBEventRepositoryDatasetSetParams;
+    fOnConvertGUID: TRODBEventRepositoryConvertGUIDEvent;
+    fFieldName_Data: string;
+    fFieldName_Created: string;
+    fFieldName_SourceSessionID: string;
+    fFieldName_MessageInc: string;
+    fCriticalSection: TCriticalSection;
+    fFieldName_SessionID: string;
+    FGetMessageIncDataset: TDataset;
+    FInsertMessagesPerSessionDataset: TDataset;
+    FDeleteMessagesPerSessionDataset: TDataset;
+    FDeleteUnusedMessagesDataset: TDataset;
+    FDeleteOldMessagesDataset: TDataset;
+    FDeleteOldMessagesPerSessionDataset: TDataset;
+    procedure SetInsertMessagesDataset(const Value: TDataset);
+    procedure SetGetMessagesDataset(const Value: TDataset);
+    function DoDatasetGetParams(aDataset: TDataset; aProvider: IProviderSupport): TParams;
+    procedure DoDatasetSetParams(aDataset: TDataset; aProvider: IProviderSupport; AParams: TParams);
+    procedure DoDatasetExecute(aDataset: TDataset; aProvider: IProviderSupport);
+    function GetProvider(aDataset: TDataset): IProviderSupport;
+    procedure SetDeleteMessagesDataset(const Value: TDataset);
+    procedure SetGetMessageIncDataset(const Value: TDataset);
+    procedure SetInsertMessagesPerSessionDataset(const Value: TDataset);
+    procedure SetDeleteMessagesPerSessionDataset(const Value: TDataset);
+    procedure SetDeleteUnusedMessagesDataset(const Value: TDataset);
+    procedure SetDeleteOldMessagesDataset(const Value: TDataset);
+    procedure SetDeleteOldMessagesPerSessionDataset(const Value: TDataset);
+  protected
+    procedure Notification(aComponent: TComponent; Operation: TOperation); override;
+    procedure DoStoreEventData(SourceSessionID : TGUID; Data : Binary;
+                               const ExcludeSender: Boolean;
+                               const ExcludeSessionList: Boolean;
+                               const SessionList: String); override;
+    function DoGetEventData(SessionID : TGUID; var TargetStream : Binary) : integer; override;
+    procedure DoAddSession(aSessionID : TGUID); override;
+    procedure DoRemoveSession(aSessionID : TGUID); override;
+    function DoConvertGUID(const aGUID: TGUID): string; virtual;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure DeleteUnusedMessages;
+    procedure DeleteOldMessages;
+  published
+    property FieldName_Created : string read fFieldName_Created write fFieldName_Created;
+    property FieldName_Data : string read fFieldName_Data write fFieldName_Data;
+    property FieldName_MessageInc : string read fFieldName_MessageInc write fFieldName_MessageInc;
+    property FieldName_SessionID : string read fFieldName_SessionID write fFieldName_SessionID;
+    property FieldName_SourceSessionID : string read fFieldName_SourceSessionID write fFieldName_SourceSessionID;
+
+    property DeleteMessagesDataset: TDataset read FDeleteMessagesDataset write SetDeleteMessagesDataset;
+    property DeleteMessagesPerSessionDataset: TDataset read FDeleteMessagesPerSessionDataset write SetDeleteMessagesPerSessionDataset;
+    property DeleteOldMessagesDataset: TDataset read FDeleteOldMessagesDataset write SetDeleteOldMessagesDataset;
+    property DeleteOldMessagesPerSessionDataset: TDataset read FDeleteOldMessagesPerSessionDataset write SetDeleteOldMessagesPerSessionDataset;
+    property DeleteUnusedMessagesDataset: TDataset read FDeleteUnusedMessagesDataset write SetDeleteUnusedMessagesDataset;
+    property GetMessageIncDataset: TDataset read FGetMessageIncDataset write SetGetMessageIncDataset;
+    property GetMessagesDataset: TDataset read FGetMessagesDataset write SetGetMessagesDataset;
+    property InsertMessagesDataset: TDataset read FInsertMessagesDataset write SetInsertMessagesDataset;
+    property InsertMessagesPerSessionDataset: TDataset read FInsertMessagesPerSessionDataset write SetInsertMessagesPerSessionDataset;
+
+    property OnDatasetGetParams: TRODBEventRepositoryDatasetGetParams read fOnDatasetGetParams write fOnDatasetGetParams;
+    property OnDatasetSetParams: TRODBEventRepositoryDatasetSetParams read fOnDatasetSetParams write fOnDatasetSetParams;
+    property OnDatasetExecute : TRODBEventRepositoryDatasetExecute read fOnDatasetExecute write fOnDatasetExecute;
+    property OnConvertGUID: TRODBEventRepositoryConvertGUIDEvent read fOnConvertGUID write fOnConvertGUID;
+  end;
+
+implementation
+uses
+  uROClasses,{$IFNDEF FPC}SqlTimSt,{$ENDIF}  uROSessions;
+
+{ TRODBEventRepository }
+
+procedure TRODBEventRepository.Assign(Source: TPersistent);
+var
+  lSource: TRODBEventRepository;
+begin
+  inherited;
+  if Source is TRODBEventRepository then begin
+    lSource := TRODBEventRepository(Source);
+
+    DeleteMessagesDataset := lSource.DeleteMessagesDataset;
+    DeleteMessagesPerSessionDataset := lSource.DeleteMessagesPerSessionDataset;
+    DeleteOldMessagesDataset := lSource.DeleteOldMessagesDataset;
+    DeleteOldMessagesPerSessionDataset := lSource.DeleteOldMessagesPerSessionDataset;
+    DeleteUnusedMessagesDataset := lSource.DeleteUnusedMessagesDataset;
+    GetMessageIncDataset := lSource.GetMessageIncDataset;
+    GetMessagesDataset := lSource.GetMessagesDataset;
+    InsertMessagesDataset := lSource.InsertMessagesDataset;
+    InsertMessagesPerSessionDataset := lSource.InsertMessagesPerSessionDataset;
+
+    FieldName_Created := lSource.FieldName_Created;
+    FieldName_Data := lSource.FieldName_Data;
+    FieldName_MessageInc := lSource.FieldName_MessageInc;
+    FieldName_SessionID := lSource.FieldName_SessionID;
+    FieldName_SourceSessionID := lSource.FieldName_SourceSessionID;
+
+    OnConvertGUID := lSource.OnConvertGUID;
+    OnDatasetExecute := lSource.OnDatasetExecute;
+    OnDatasetGetParams := lSource.OnDatasetGetParams;
+    OnDatasetSetParams := lSource.OnDatasetSetParams;
+  end;
+end;
+
+procedure TRODBEventRepository.CheckProperties;
+begin
+  inherited;
+  Check(FieldName_Created = '', Name + '.FieldName_Created must be set.');
+  Check(FieldName_Data = '', Name + '.FieldName_Data must be set.');
+  Check(FieldName_MessageInc = '', Name + '.FieldName_MessageInc must be set.');
+  Check(FieldName_SessionID = '', Name + '.FieldName_SessionID must be set.');
+  Check(FieldName_SourceSessionID = '', Name + '.FieldName_SourceSessionID must be set.');
+  Check(SessionManager = nil, Name + '.SessionManager must be assigned.');
+  SessionManager.CheckProperties;
+  Check(FInsertMessagesDataset = nil, Name + '.InsertMessagesDataset must be assigned.');
+  Check(FDeleteMessagesDataset = nil, Name + '.DeleteMessagesDataset must be assigned.');
+  Check(FGetMessagesDataset = nil, Name + '.GetMessagesDataset must be assigned.');
+  Check(FGetMessageIncDataset = nil, Name + '.GetMessageIncDataset must be assigned.');
+  Check(FInsertMessagesPerSessionDataset = nil, Name + '.InsertMessagesPerSessionDataset must be assigned.');
+  Check(FDeleteMessagesPerSessionDataset = nil, Name + '.DeleteMessagesPerSessionDataset must be assigned.');
+  Check(FDeleteUnusedMessagesDataset = nil, Name + '.DeleteUnusedMessagesDataset must be assigned.');
+  Check(FDeleteOldMessagesDataset = nil, Name + '.DeleteOldMessagesDataset must be assigned.');
+  Check(FDeleteOldMessagesPerSessionDataset = nil, Name + '.DeleteOldMessagesPerSessionDataset must be assigned.');
+
+end;
+
+constructor TRODBEventRepository.Create(aOwner: TComponent);
+begin
+  inherited;
+  fFieldName_MessageInc := 'MessageInc';
+  fFieldName_Created := 'Created';
+  fFieldName_SourceSessionID := 'SourceSessionID';
+  fFieldName_Data := 'Data';
+  fFieldName_SessionID := 'SessionID';
+  fCriticalSection := TCriticalSection.Create;
+end;
+
+destructor TRODBEventRepository.Destroy;
+begin
+  fCriticalSection.Enter;
+  try
+    inherited;
+  finally
+    fCriticalSection.Leave;
+    fCriticalSection.Free;
+  end;
+end;
+
+procedure TRODBEventRepository.DoAddSession(aSessionID: TGUID);
+begin
+  fCriticalSection.Enter;
+  try
+    SessionManager.CreateSession(aSessionID).Free;
+  finally
+    fCriticalSection.Leave;
+  end;
+end;
+
+function TRODBEventRepository.DoConvertGUID(const aGUID: TGUID): string;
+begin
+  if Assigned(fOnConvertGUID) then
+    try
+      Result:= fOnConvertGUID(Self, aGUID);
+    except
+      Result:= GUIDToString(aGUID);
+    end
+  else
+    Result:= GUIDToString(aGUID);
+end;
+
+procedure TRODBEventRepository.DoDatasetExecute(aDataset: TDataset;
+  aProvider: IProviderSupport);
+begin
+  if Assigned(fOnDatasetExecute) then
+    fOnDatasetExecute(Self,aDataset)
+  else if aProvider <> nil then
+    aProvider.PSExecute
+  else
+    raise Exception.CreateFmt('The %s.OnDatasetExecute event must be defined or %s should support IProviderSupport interface',[Self.Name, aDataset.Name]);
+end;
+
+function TRODBEventRepository.DoDatasetGetParams(aDataset: TDataset;
+  aProvider: IProviderSupport): TParams;
+begin
+  if Assigned(fOnDatasetGetParams) then
+    Result := fOnDatasetGetParams(Self, aDataset)
+  else if aProvider <> nil then
+    Result := aProvider.PSGetParams
+  else
+    raise Exception.CreateFmt('The %s.OnDatasetGetParams event must be defined or %s should support IProviderSupport interface',[Self.Name, aDataset.Name]);
+end;
+
+procedure TRODBEventRepository.DoDatasetSetParams(aDataset: TDataset;
+  aProvider: IProviderSupport; AParams: TParams);
+begin
+  if Assigned(fOnDatasetSetParams) then
+    fOnDatasetSetParams(Self, aDataset, AParams)
+  else if aProvider <> nil then
+    aProvider.PSSetParams(AParams)
+  else
+    raise Exception.CreateFmt('The %s.OnDatasetSetParams event must be defined or %s should support IProviderSupport interface',[Self.Name, aDataset.Name]);
+end;
+
+function TRODBEventRepository.DoGetEventData(SessionID: TGUID; var TargetStream: Binary): integer;
+var
+  params,lParams : TParams;
+  provider : IProviderSupport;
+  lBlobSize : integer;
+  fld: TBlobField;
+  fld1: TField;
+  k: integer;
+begin
+  fCriticalSection.Enter;
+  try
+    result := 0;
+//    TargetStream := Binary.Create;
+    TargetStream.Write(result, SizeOf(result));
+    try
+      provider := GetProvider(FGetMessagesDataset);
+      params := DoDatasetGetParams(FGetMessagesDataset, provider);
+      lParams:=TParams.Create;
+      try
+        lParams.Assign(params);
+        lparams.ParamByName(fFieldName_SessionID).AsString := DoConvertGUID(SessionID);
+        DoDatasetSetParams(fGetMessagesDataset, provider, lParams);
+      finally
+        lParams.Free;
+      end;
+      provider:=nil;
+
+
+      provider := GetProvider(FDeleteMessagesPerSessionDataset);
+      params := DoDatasetGetParams(FDeleteMessagesPerSessionDataset, provider);
+      lParams:=TParams.Create;
+      try
+        lParams.Assign(params);
+        lparams.ParamByName(fFieldName_SessionID).AsString := DoConvertGUID(SessionID);
+        k := lparams.ParamByName(fFieldName_MessageInc).Index;
+
+        fGetMessagesDataset.Open;
+        try
+          if not (fGetMessagesDataset.bof and fGetMessagesDataset.Eof) then begin
+            fld := TBlobField(fGetMessagesDataset.FieldByName(fFieldName_Data));
+            fld1:= fGetMessagesDataset.FieldByName(fFieldName_MessageInc);
+            while not fGetMessagesDataset.Eof do begin
+              Inc(Result);
+              lBlobSize := fld.BlobSize;
+              TargetStream.Write(lblobsize, SizeOf(integer));
+              fld.SaveToStream(TargetStream);
+
+              // remove processed session
+              lParams[k].AsInteger := fld1.AsInteger;
+              DoDatasetSetParams(FDeleteMessagesPerSessionDataset, provider, lParams);
+              DoDatasetExecute(FDeleteMessagesPerSessionDataset, provider);
+
+              fGetMessagesDataset.Next;
+            end;
+          end;
+        finally
+          fGetMessagesDataset.Close;
+        end;
+      finally
+        lParams.Free;
+      end;
+    finally
+      TargetStream.Position := 0;
+      TargetStream.Write(result, SizeOf(result));
+      TargetStream.Position := 0;
+    end;
+    DeleteUnusedMessages;
+  finally
+    provider:=nil;
+    fCriticalSection.Leave;
+  end;
+end;
+
+procedure TRODBEventRepository.DoRemoveSession(aSessionID: TGUID);
+begin
+  fCriticalSection.Enter;
+  try
+    SessionManager.DeleteSession(aSessionID,False);
+  finally
+    fCriticalSection.Leave;
+  end;
+end;
+
+procedure TRODBEventRepository.DoStoreEventData(SourceSessionID: TGUID;
+  Data: Binary; const ExcludeSender, ExcludeSessionList: Boolean;
+  const SessionList: String);
+var
+  params,lParams : TParams;
+  provider : IProviderSupport;
+
+  filteredsessionslist : TStringList;
+  lsessionList : TStringList;
+  isfiltered : boolean;
+
+  i,k: integer;
+  currsessionid,lSourceSessionID: string;
+  lNeedtoDelete: Boolean;
+  lMessageInc: integer;
+begin
+  filteredsessionslist := nil;
+  fCriticalSection.Enter;
+  try
+    lSourceSessionID := DoConvertGUID(SourceSessionID);
+    lsessionList := TStringList.Create;
+    try
+      SessionManager.GetAllSessions(lsessionList);
+
+      filteredsessionslist := NIL;
+      isfiltered := SessionList<>'';
+      if isfiltered then begin
+        filteredsessionslist := TStringList.Create;
+        filteredsessionslist.Sorted := TRUE;
+        filteredsessionslist.Duplicates := dupIgnore;
+        filteredsessionslist.CommaText := SessionList;
+      end;
+
+      // Filters the sessions the message will go to
+      For i:= lsessionList.Count-1 downto 0 do begin
+        currsessionid := lsessionList[i];
+        lNeedtoDelete := False;
+        if isfiltered then begin
+          k := filteredsessionslist.IndexOf(currsessionid);
+          if ExcludeSessionList then begin
+            if k <> -1 then lNeedtoDelete := True
+          end
+          else begin
+            if k = -1 then lNeedtoDelete := True
+          end;
+        end;
+        if ExcludeSender and (currsessionid = lSourceSessionID) then lNeedtoDelete := True;
+        if lNeedtoDelete then lsessionList.Delete(i);
+      end;
+
+      if (lsessionList.Count = 0) then Exit;
+
+      provider := GetProvider(FInsertMessagesDataset);
+      params := DoDatasetGetParams(FInsertMessagesDataset, provider);
+      lParams:=TParams.Create;
+      try
+        lParams.Assign(Params);
+        //lparams.ParamByName(fFieldName_MessageInc).AsString := currsessionid;
+        with lparams.ParamByName(fFieldName_Created) do
+          {$IFNDEF FPC}
+          if DataType = ftTimeStamp then
+            AsSQLTimeStamp := DateTimeToSQLTimeStamp(Now)
+          else
+          {$ENDIF}
+            AsDateTime := Now;
+        lparams.ParamByName(fFieldName_SourceSessionID).AsString := lSourceSessionID;
+        lparams.ParamByName(fFieldName_Data).LoadFromStream(data, ftBlob);
+        DoDatasetSetParams(FInsertMessagesDataset, provider, lParams);
+      finally
+        lParams.Free;
+      end;
+      DoDatasetExecute(FInsertMessagesDataset, provider);
+
+      FGetMessageIncDataset.Open;
+      lMessageInc := FGetMessageIncDataset.Fields[0].AsInteger;
+      FGetMessageIncDataset.Close;
+
+      provider := GetProvider(FInsertMessagesPerSessionDataset);
+      params := DoDatasetGetParams(FInsertMessagesPerSessionDataset, provider);
+      lParams:=TParams.Create;
+      try
+        lParams.Assign(Params);
+        lparams.ParamByName(fFieldName_MessageInc).AsInteger := lMessageInc;
+        k := lparams.ParamByName(fFieldName_SessionID).Index;
+
+        For i:= 0 to lsessionList.Count-1 do begin
+          lparams[k].AsString := lsessionList[i];
+          DoDatasetSetParams(FInsertMessagesPerSessionDataset, provider, lParams);
+          DoDatasetExecute(FInsertMessagesPerSessionDataset,provider);
+        end;
+      finally
+        lParams.Free;
+      end;
+    finally
+      provider := nil;
+      lsessionList.Free;
+      filteredsessionslist.Free;
+    end;
+  finally
+    fCriticalSection.Leave;
+  end;
+end;
+
+
+function TRODBEventRepository.GetProvider(
+  aDataset: TDataset): IProviderSupport;
+begin
+  if aDataset = nil then
+    Result := nil
+  {$IFNDEF FPC}
+  {$IFDEF DELPHI7UP}
+  else
+    result := aDataset as IProviderSupport;
+  {$ELSE}
+  else
+    result := IProviderSupport(aDataset);
+  {$ENDIF}
+  {$ENDIF}
+end;
+
+
+procedure TRODBEventRepository.Notification(aComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (Operation<>opRemove) then Exit;
+
+  if aComponent = FDeleteMessagesDataset then FDeleteMessagesDataset := nil
+  else if aComponent = FDeleteMessagesPerSessionDataset then FDeleteMessagesPerSessionDataset := nil
+  else if aComponent = FDeleteOldMessagesDataset then FDeleteOldMessagesDataset := nil
+  else if aComponent = FDeleteOldMessagesPerSessionDataset then FDeleteOldMessagesPerSessionDataset := nil
+  else if aComponent = FDeleteUnusedMessagesDataset then FDeleteMessagesPerSessionDataset := nil
+  else if aComponent = FGetMessageIncDataset then FGetMessageIncDataset := nil
+  else if aComponent = FGetMessagesDataset then FGetMessagesDataset := nil
+  else if aComponent = FInsertMessagesDataset then FInsertMessagesDataset := nil
+  else if aComponent = FInsertMessagesPerSessionDataset then FInsertMessagesPerSessionDataset := nil
+  ;
+end;
+
+procedure TRODBEventRepository.SetDeleteMessagesDataset(const Value: TDataset);
+begin
+  if FDeleteMessagesDataset <> Value then begin
+    if Assigned(FDeleteMessagesDataset) then FDeleteMessagesDataset.RemoveFreeNotification(Self);
+    FDeleteMessagesDataset := Value;
+    if Assigned(FDeleteMessagesDataset) then FDeleteMessagesDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBEventRepository.SetGetMessageIncDataset(
+  const Value: TDataset);
+begin
+  if FGetMessageIncDataset <> Value then begin
+    if Assigned(FGetMessageIncDataset) then FGetMessageIncDataset.RemoveFreeNotification(Self);
+    FGetMessageIncDataset := Value;
+    if Assigned(FGetMessageIncDataset) then FGetMessageIncDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBEventRepository.SetInsertMessagesDataset(const Value: TDataset);
+begin
+  if FInsertMessagesDataset <> Value then begin
+    if Assigned(FInsertMessagesDataset) then FInsertMessagesDataset.RemoveFreeNotification(Self);
+    FInsertMessagesDataset := Value;
+    if Assigned(FInsertMessagesDataset) then FInsertMessagesDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBEventRepository.SetInsertMessagesPerSessionDataset(
+  const Value: TDataset);
+begin
+  if FInsertMessagesPerSessionDataset <> Value then begin
+    if Assigned(FInsertMessagesPerSessionDataset) then FInsertMessagesPerSessionDataset.RemoveFreeNotification(Self);
+    FInsertMessagesPerSessionDataset := Value;
+    if Assigned(FInsertMessagesPerSessionDataset) then FInsertMessagesPerSessionDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBEventRepository.SetGetMessagesDataset(const Value: TDataset);
+begin
+  if FGetMessagesDataset <> Value then begin
+    if Assigned(FGetMessagesDataset) then FGetMessagesDataset.RemoveFreeNotification(Self);
+    FGetMessagesDataset := Value;
+    if Assigned(FGetMessagesDataset) then FGetMessagesDataset.FreeNotification(Self);
+  end;
+end;
+
+
+procedure TRODBEventRepository.SetDeleteMessagesPerSessionDataset(
+  const Value: TDataset);
+begin
+  if FDeleteMessagesPerSessionDataset <> Value then begin
+    if Assigned(FDeleteMessagesPerSessionDataset) then FDeleteMessagesPerSessionDataset.RemoveFreeNotification(Self);
+    FDeleteMessagesPerSessionDataset := Value;
+    if Assigned(FDeleteMessagesPerSessionDataset) then FDeleteMessagesPerSessionDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBEventRepository.SetDeleteUnusedMessagesDataset(
+  const Value: TDataset);
+begin
+  if FDeleteUnusedMessagesDataset <> Value then begin
+    if Assigned(FDeleteUnusedMessagesDataset) then FDeleteUnusedMessagesDataset.RemoveFreeNotification(Self);
+    FDeleteUnusedMessagesDataset := Value;
+    if Assigned(FDeleteUnusedMessagesDataset) then FDeleteUnusedMessagesDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBEventRepository.DeleteUnusedMessages;
+var
+  provider: IProviderSupport;
+begin
+  fCriticalSection.Enter;
+  try
+    provider := GetProvider(FDeleteUnusedMessagesDataset);
+    DoDatasetExecute(FDeleteUnusedMessagesDataset, provider);
+  finally
+    provider:=nil;
+    fCriticalSection.Leave;
+  end;
+end;
+
+
+procedure TRODBEventRepository.SetDeleteOldMessagesDataset(
+  const Value: TDataset);
+begin
+  if FDeleteOldMessagesDataset <> Value then begin
+    if Assigned(FDeleteOldMessagesDataset) then FDeleteOldMessagesDataset.RemoveFreeNotification(Self);
+    FDeleteOldMessagesDataset := Value;
+    if Assigned(FDeleteOldMessagesDataset) then FDeleteOldMessagesDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBEventRepository.DeleteOldMessages;
+
+  Procedure FillandExecute(aDataset: TDataset; ACreated: TDatetime);
+  var
+    provider: IProviderSupport;
+    params,lParams: TParams;
+  begin
+    provider := GetProvider(ADataset);
+    params := DoDatasetGetParams(ADataset, provider);
+    lParams:=TParams.Create;
+    try
+      lParams.Assign(params);
+      with lparams.ParamByName(fFieldName_Created) do
+        {$IFNDEF FPC}
+        if DataType = ftTimeStamp then
+          AsSQLTimeStamp := DateTimeToSQLTimeStamp(ACreated)
+        else
+        {$ENDIF}
+          AsDateTime := ACreated;
+      DoDatasetSetParams(ADataset, provider, lParams);
+    finally
+      lParams.Free;
+    end;
+    DoDatasetExecute(ADataset, provider);
+    provider:=nil;
+  end;
+
+var
+  lCreated: TDatetime;
+begin
+  lCreated := Now-30; // 30 days
+  fCriticalSection.Enter;
+  try
+    FillandExecute(FDeleteOldMessagesPerSessionDataset,lCreated);
+    FillandExecute(FDeleteOldMessagesDataset,lCreated);    
+  finally
+    fCriticalSection.Leave;
+  end;
+end;
+
+procedure TRODBEventRepository.SetDeleteOldMessagesPerSessionDataset(
+  const Value: TDataset);
+begin
+  if FDeleteOldMessagesPerSessionDataset <> Value then begin
+    if Assigned(FDeleteOldMessagesPerSessionDataset) then FDeleteOldMessagesPerSessionDataset.RemoveFreeNotification(Self);
+    FDeleteOldMessagesPerSessionDataset := Value;
+    if Assigned(FDeleteOldMessagesPerSessionDataset) then FDeleteOldMessagesPerSessionDataset.FreeNotification(Self);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODBSessionManager.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODBSessionManager.pas
new file mode 100644
index 0000000..1d5511e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODBSessionManager.pas	
@@ -0,0 +1,634 @@
+unit uRODBSessionManager;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Provided by Niko Schoemaker (niko.schoemaker@teamro.remobjects.com)        }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, DB, SyncObjs,
+  uROSessions;
+
+type
+{
+------------------------------ sql script (MSSQL) ---------------------------------
+CREATE TABLE [dbo].[Sessions] (
+	[SessionID] [char] (38) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
+	[Created] [datetime] NULL ,
+	[LastAccessed] [datetime] NULL ,
+    [Data] [IMAGE] NULL
+)
+GO
+
+ALTER TABLE [dbo].[Sessions] WITH NOCHECK ADD
+	CONSTRAINT [PK_Sessions] PRIMARY KEY  CLUSTERED
+	(
+		[SessionID]
+	)  ON [PRIMARY]
+GO
+
+--------------------------- SQLs --------------------------------------------------
+ClearSessionsDataset: DELETE FROM Sessions WHERE LastAccessed < :LastAccessed
+DeleteDataset: DELETE FROM Sessions WHERE SessionID = :SessionID
+GetCountDataset: SELECT COUNT(*) FROM Sessions
+InsertDataset: INSERT INTO Sessions (SessionID, Created, LastAccessed, Data) VALUES ( :SessionID, :Created, :LastAccessed, :Data)
+SelectAllDataset: SELECT * FROM Sessions
+SelectDataset: SELECT * FROM Sessions WHERE SessionID = :SessionID
+UpdateDataset: UPDATE Sessions SET LastAccessed = :LastAccessed, Data = :Data WHERE SessionID = :SessionID
+}
+
+
+  TConvertGUIDEvent = function(Sender: TROCustomSessionManager; const aGUID: TGUID): string of object;
+  TRODBSessionManagerDatasetGetParams = function(Sender: TROCustomSessionManager; aDataset: TDataset): TParams of object;
+  TRODBSessionManagerDatasetSetParams = procedure(Sender: TROCustomSessionManager; aDataset: TDataset; aParams: TParams) of object;
+  TRODBSessionManagerDatasetExecute = procedure(Sender: TROCustomSessionManager; aDataset: TDataset) of object;
+
+  {$IFDEF FPC}
+  IProviderSupport = interface
+    procedure PSExecute;
+    function PSGetParams: TParams;
+    procedure PSSetParams(AParams: TParams);
+  end;
+  {$ENDIF}
+
+  { TRODBSessionManager }
+  TRODBSessionManager = class(TROCustomSessionManager)
+  private
+    fInsertDataset,
+    fDeleteDataset,
+    fUpdateDataset,
+    fSelectDataset,
+    fGetCountDataset,
+    fClearSessionsDataset,
+    fSelectAllDataset : TDataset;
+
+    fFieldNameSessionID,
+    fFieldNameCreated,
+    fFieldNameLastAccessed,
+    fFieldNameData: string;
+    fClearSessionsOnDestroy: boolean;
+    fClearSessionsOnCreate: boolean;
+    fOnConvertGUID: TConvertGUIDEvent;
+    fOnDatasetExecute: TRODBSessionManagerDatasetExecute;
+    fOnDatasetGetParams: TRODBSessionManagerDatasetGetParams;
+    fOnDatasetSetParams: TRODBSessionManagerDatasetSetParams;
+    fCritical: TCriticalSection;
+
+    function GetProvider(aDataset: TDataset): IProviderSupport;
+    procedure SetClearSessionsDataset(const Value: TDataset);
+    procedure SetDeleteDataset(const Value: TDataset);
+    procedure SetGetCountDataset(const Value: TDataset);
+    procedure SetInsertDataset(const Value: TDataset);
+    procedure SetSelectDataset(const Value: TDataset);
+    procedure SetUpdateDataset(const Value: TDataset);
+    procedure SetSelectAllDataset(const Value: TDataSet);
+    function DoDatasetGetParams(aDataset: TDataset; aProvider: IProviderSupport): TParams;
+    procedure DoDatasetSetParams(aDataset: TDataset; aProvider: IProviderSupport; AParams: TParams);
+    procedure DoDatasetExecute(aDataset: TDataset; aProvider: IProviderSupport);
+  protected
+    // TROCustomSessionManager
+    function DoFindSession(const aSessionID : TGUID; aUpdateTime: Boolean) : TROSession; override;
+    procedure DoDeleteSession(const aSessionID : TGUID; IsExpired : boolean); override;
+    procedure DoClearSessions(OnlyExpired : boolean); override;
+    function DoGetSessionCount : integer; override;
+    procedure DoReleaseSession(aSession : TROSession; NewSession : boolean); override;
+    procedure DoGetAllSessions(Dest: TStringList); override;
+
+    function DoConvertGUID(const aGUID: TGUID): string; virtual;
+    // Internals
+    procedure  Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure Loaded; override;
+
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure CheckProperties; override;
+  published
+    property FieldNameSessionID : string read fFieldNameSessionID write fFieldNameSessionID;
+    property FieldNameCreated : string read fFieldNameCreated write fFieldNameCreated;
+    property FieldNameLastAccessed : string read fFieldNameLastAccessed write fFieldNameLastAccessed;
+    property FieldNameData : string read fFieldNameData write fFieldNameData;
+
+    property InsertDataset : TDataset read fInsertDataset write SetInsertDataset;
+    property DeleteDataset : TDataset read fDeleteDataset write SetDeleteDataset;
+    property UpdateDataset : TDataset read fUpdateDataset write SetUpdateDataset;
+    property SelectDataset : TDataset read fSelectDataset write SetSelectDataset;
+    property GetCountDataset : TDataset read fGetCountDataset write SetGetCountDataset;
+    property ClearSessionsDataset : TDataset read fClearSessionsDataset write SetClearSessionsDataset;
+    property SelectAllDataset : TDataSet read fSelectAllDataset write SetSelectAllDataset;
+
+    property ClearSessionsOnCreate : boolean read fClearSessionsOnCreate write fClearSessionsOnCreate default true;
+    property ClearSessionsOnDestroy : boolean read fClearSessionsOnDestroy write fClearSessionsOnDestroy default true;
+    property OnConvertGUID: TConvertGUIDEvent read fOnConvertGUID write fOnConvertGUID;
+    property SessionDuration;
+    property SessionCheckInterval;
+    property OnDatasetGetParams: TRODBSessionManagerDatasetGetParams read fOnDatasetGetParams write fOnDatasetGetParams;
+    property OnDatasetSetParams: TRODBSessionManagerDatasetSetParams read fOnDatasetSetParams write fOnDatasetSetParams;
+    property OnDatasetExecute : TRODBSessionManagerDatasetExecute read fOnDatasetExecute write fOnDatasetExecute;
+
+  end;
+
+implementation
+
+uses
+  {$IFDEF DELPHI5}ComObj,{$ENDIF}
+  SysUtils, {$IFNDEF FPC}SqlTimSt,{$ENDIF} uROClasses;
+
+{ TRODBSessionManager }
+
+constructor TRODBSessionManager.Create(aOwner: TComponent);
+begin
+  inherited;
+  fCritical := TCriticalSection.Create;
+
+  fClearSessionsOnDestroy := TRUE;
+  ClearSessionsOnCreate := TRUE;
+  
+  fFieldNameSessionID := 'SessionID';
+  fFieldNameCreated := 'Created';
+  fFieldNameLastAccessed := 'LastAccessed';
+  fFieldNameData := 'Data';
+end;
+
+destructor TRODBSessionManager.Destroy;
+begin
+  InsertDataset := nil;
+  DeleteDataset := nil;
+  UpdateDataset := nil;
+  SelectDataset := nil;
+  GetCountDataset := nil;
+  ClearSessionsDataset := nil;
+  fCritical.Enter;
+  try
+    inherited;
+  finally
+    fCritical.Leave;
+    FreeAndNil(fCritical);
+  end;
+end;
+
+function TRODBSessionManager.GetProvider(aDataset : TDataset) : IProviderSupport;
+begin
+  {$IFDEF FPC}
+    if aDataset = nil then Result := nil else // prevent FPC warning
+    Result := nil;
+  {$ELSE}
+    {$IFDEF DELPHI7UP}
+      result := aDataset as IProviderSupport;
+    {$ELSE}
+      result := IProviderSupport(aDataset);
+    {$ENDIF}
+  {$ENDIF FPC}
+end;
+
+procedure TRODBSessionManager.DoClearSessions(OnlyExpired: boolean);
+const HoursPerDay = 24;
+      MinsPerDay  = HoursPerDay * 60;
+var
+  params, lparams : TParams;
+  provider : IProviderSupport;
+  lLastAccessed: TDateTime;
+  lFieldNameSessionID: integer;
+  lLastAccessIndex: integer;
+begin
+  CheckProperties;
+  fCritical.Enter;
+  try
+    if OnlyExpired then
+      lLastAccessed := ((Now*MinsPerDay) - SessionDuration) / MinsPerDay
+    else
+      lLastAccessed := Now+30; // 30 days from now. Enough to say all! <G>
+    if Assigned(OnBeforeDeleteSession) then begin
+      fSelectAllDataset.Open;
+      lFieldNameSessionID:= fSelectAllDataset.FieldByName(FieldNameSessionID).Index;
+      lLastAccessIndex:= fSelectAllDataset.FieldByName(FieldNameLastAccessed).Index;
+      try
+        fSelectAllDataset.First;
+        while not fSelectAllDataset.Eof do try
+          if fSelectAllDataset.Fields[lLastAccessIndex].AsDateTime <= lLastAccessed then
+            DeleteSession(StringToGUID(fSelectAllDataset.Fields[lFieldNameSessionID].AsString),OnlyExpired);
+        finally
+          fSelectAllDataset.Next;
+        end;
+      finally
+        fSelectAllDataset.Close;
+      end;
+    end
+    else begin
+      provider := GetProvider(fClearSessionsDataset);
+      params := DoDatasetGetParams(fClearSessionsDataset,provider);
+      lparams:= TParams.Create;
+      try
+        lparams.Assign(params);
+        with lparams.ParamByName(fFieldNameLastAccessed) do
+          {$IFNDEF FPC}
+          if DataType = ftTimeStamp then
+            AsSQLTimeStamp := DateTimeToSQLTimeStamp(lLastAccessed)
+          else
+          {$ENDIF}
+            AsDateTime := lLastAccessed;
+        DoDatasetSetParams(fClearSessionsDataset,provider,lparams);
+      finally
+        lparams.Free;
+      end;
+      DoDatasetExecute(fClearSessionsDataset,provider);
+      provider := nil;
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TRODBSessionManager.DoDeleteSession(const aSessionID: TGUID;
+  IsExpired: boolean);
+var params,lParams : TParams;
+    provider : IProviderSupport;
+begin
+  CheckProperties;
+  fCritical.Enter;
+  try
+    provider := GetProvider(fDeleteDataset);
+    params := DoDatasetGetParams(fDeleteDataset, provider);
+
+    lParams:=TParams.Create;
+    try
+      lParams.Assign(Params);
+      lparams.ParamByName(fFieldNameSessionID).Value := DoConvertGUID(aSessionID);
+      DoDatasetSetParams(fDeleteDataset, provider, lParams);
+    finally
+      lParams.Free;
+    end;
+    DoDatasetExecute(fDeleteDataset, provider);
+    provider := nil;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+function TRODBSessionManager.DoFindSession(const aSessionID: TGUID; aUpdateTime: Boolean): TROSession;
+var params,lParams : TParams;
+    data : TStream;
+    datafld : TBlobField;
+    provider : IProviderSupport;
+begin
+  CheckProperties;
+  result := NIL;
+  fCritical.Enter;
+  try
+    provider := GetProvider(fSelectDataset);
+
+    params := DoDatasetGetParams(fSelectDataset, provider);
+    lParams:=TParams.Create;
+    try
+      lParams.Assign(params);
+      lparams.ParamByName(fFieldNameSessionID).Value := DoConvertGUID(aSessionID);
+      DoDatasetSetParams(fSelectDataset, provider, lParams);
+    finally
+      lParams.Free;
+    end;
+    provider:=nil;
+
+    data := nil;
+    fSelectDataset.Open;
+    try
+      if (fSelectDataset.bof and fSelectDataset.eof) then Exit;
+      data := TMemoryStream.Create;
+
+      //result := TROSession.Create(aSessionID);
+      result := DoCreateSession(aSessionID);
+      result.Created := fSelectDataset.FieldByName(fFieldNameCreated).AsDateTime;
+      result.LastAccessed := fSelectDataset.FieldByName(fFieldNameLastAccessed).AsDateTime;
+
+      datafld := TBlobField(fSelectDataset.FieldByName(fFieldNameData));
+      datafld.SaveToStream(data);
+      data.Position := 0;
+      result.LoadFromStream(data, TRUE);
+    finally
+      fSelectDataset.Close;
+      data.Free;
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+function TRODBSessionManager.DoGetSessionCount: integer;
+begin
+  CheckProperties;
+  fCritical.Enter;
+  try
+    fGetCountDataset.Open;
+    try
+      result := fGetCountDataset.Fields[0].AsInteger;
+    finally
+      fGetCountDataset.Close;
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+  
+procedure TRODBSessionManager.DoReleaseSession(aSession: TROSession; NewSession : boolean);
+var params,lparams : TParams;
+    data : TStream;
+    provider : IProviderSupport;
+begin
+  CheckProperties;
+  fCritical.Enter;
+  try
+    inherited;
+    data := TMemoryStream.Create;
+    try
+      if NewSession then begin
+        provider := GetProvider(fInsertDataset);
+
+        params := DoDatasetGetParams(fInsertDataset, provider);
+        lparams:=TParams.Create;
+        try
+          lparams.Assign(params);
+          lparams.ParamByName(fFieldNameSessionID).Value := DoConvertGUID(aSession.SessionID);
+
+          with lparams.ParamByName(fFieldNameLastAccessed) do
+            {$IFNDEF FPC}
+            if DataType = ftTimeStamp then
+              AsSQLTimeStamp := DateTimeToSQLTimeStamp(aSession.LastAccessed)
+            else
+            {$ENDIF}
+              AsDateTime := aSession.LastAccessed;
+          with lparams.ParamByName(fFieldNameCreated) do
+            {$IFNDEF FPC}
+            if DataType = ftTimeStamp then
+              AsSQLTimeStamp := DateTimeToSQLTimeStamp(aSession.Created)
+            else
+            {$ENDIF}
+              AsDateTime := aSession.Created;
+          aSession.SaveToStream(data, TRUE);
+          data.Position := 0;
+          lparams.ParamByName(fFieldNameData).LoadFromStream(data, ftBlob);
+
+          DoDatasetSetParams(fInsertDataset, provider, lparams);
+        finally
+          lParams.Free;
+        end;
+        DoDatasetExecute(fInsertDataset, provider);
+      end
+      else begin
+        provider := GetProvider(fUpdateDataset);
+
+        params := DoDatasetGetParams(fUpdateDataset, provider);
+        lparams:=TParams.Create;
+        try
+          lparams.Assign(params);
+          lparams.ParamByName(fFieldNameSessionID).Value := DoConvertGUID(aSession.SessionID);
+          with lparams.ParamByName(fFieldNameLastAccessed) do
+            {$IFNDEF FPC}
+            if DataType = ftTimeStamp then
+              AsSQLTimeStamp := DateTimeToSQLTimeStamp(aSession.LastAccessed)
+            else
+            {$ENDIF}
+              AsDateTime := aSession.LastAccessed;
+          aSession.SaveToStream(data, TRUE);
+          lparams.ParamByName(fFieldNameData).LoadFromStream(data, ftBlob);
+          DoDatasetsetParams(fUpdateDataset, provider, lparams);
+        finally
+          lParams.Free;
+        end;
+        DoDatasetExecute(fUpdateDataset, provider);
+      end;
+      provider := nil;
+    finally
+      data.Free;
+    end;
+  finally
+    fCritical.Leave;
+    aSession.Free();
+  end;
+end;
+
+procedure TRODBSessionManager.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation=opRemove) then begin
+   if (AComponent=fInsertDataset) then fInsertDataset := NIL
+   else if (AComponent=fDeleteDataset) then fDeleteDataset := NIL
+   else if (AComponent=fUpdateDataset) then fUpdateDataset := NIL
+   else if (AComponent=fSelectDataset) then fSelectDataset := NIL
+   else if (AComponent=fGetCountDataset) then fGetCountDataset := NIL
+   else if (AComponent=fSelectAllDataset) then fSelectAllDataset := nil
+   else if (AComponent=fClearSessionsDataset) then begin
+
+     if (csDestroying in ComponentState) and ClearSessionsOnDestroy then begin
+       // Cleans up after itself. If you get an AV related to the dataset's connection
+       // be aware of the fact that the dataset's creation order MUST BE after its relative
+       // connection. To see your form's Creation Order simply right click on it and select
+       // the relative menu item.
+
+       DoClearSessions(false);
+     end;
+
+     fClearSessionsDataset := NIL
+   end;
+  end;
+end;
+
+procedure TRODBSessionManager.SetClearSessionsDataset(const Value: TDataset);
+begin
+  if fClearSessionsDataset <> Value then begin
+    if (fClearSessionsDataset <> nil) then fClearSessionsDataset.RemoveFreeNotification(Self);
+    fClearSessionsDataset := Value;
+    if (fClearSessionsDataset <> nil) then fClearSessionsDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBSessionManager.SetDeleteDataset(const Value: TDataset);
+begin
+  if fDeleteDataset <> Value then begin
+    if (fDeleteDataset <> nil) then fDeleteDataset.RemoveFreeNotification(Self);
+    fDeleteDataset := Value;
+    if (fDeleteDataset <> nil) then fDeleteDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBSessionManager.SetGetCountDataset(const Value: TDataset);
+begin
+  if fGetCountDataset <> Value then begin
+    if (fGetCountDataset <> nil) then fGetCountDataset.RemoveFreeNotification(Self);
+    fGetCountDataset := Value;
+    if (fGetCountDataset <> nil) then fGetCountDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBSessionManager.SetInsertDataset(const Value: TDataset);
+begin
+  if fInsertDataset <> Value then begin
+    if (fInsertDataset <> nil) then fInsertDataset.RemoveFreeNotification(Self);
+    fInsertDataset := Value;
+    if (fInsertDataset <> nil) then fInsertDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBSessionManager.SetSelectDataset(const Value: TDataset);
+begin
+  if fSelectDataset <> Value then begin
+    if (fSelectDataset <> nil) then fSelectDataset.RemoveFreeNotification(Self);
+    fSelectDataset := Value;
+    if (fSelectDataset <> nil) then fSelectDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBSessionManager.SetUpdateDataset(const Value: TDataset);
+begin
+  if fUpdateDataset <> Value then begin
+    if (fUpdateDataset <> nil) then fUpdateDataset.RemoveFreeNotification(Self);
+    fUpdateDataset := Value;
+    if (fUpdateDataset <> nil) then fUpdateDataset.FreeNotification(Self);
+  end;
+end;
+
+procedure TRODBSessionManager.Loaded;
+begin
+  inherited;
+
+  if not (csDesigning in ComponentState) and ClearSessionsOnCreate
+    then DoClearSessions(false);
+end;
+
+procedure TRODBSessionManager.DoGetAllSessions(Dest: TStringList);
+begin
+  CheckProperties;
+  fCritical.Enter;
+  try
+    fSelectAllDataset.Open;
+    try
+      fSelectAllDataset.First;
+      while not fSelectAllDataset.Eof do begin
+        Dest.Add(fSelectAllDataset.Fields[0].Value);
+        fSelectAllDataset.Next;
+      end;
+    finally
+      fSelectAllDataset.Close;
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TRODBSessionManager.SetSelectAllDataset(const Value: TDataSet);
+begin
+  if fSelectAllDataset <> Value then begin
+    if (fSelectAllDataset <> nil) then fSelectAllDataset.RemoveFreeNotification(Self);
+    fSelectAllDataset := Value;
+    if (fSelectAllDataset <> nil) then fSelectAllDataset.FreeNotification(Self);
+  end;
+end;
+
+function TRODBSessionManager.DoConvertGUID(const aGUID: TGUID): string;
+begin
+  if Assigned(fOnConvertGUID) then
+    try
+      Result:= fOnConvertGUID(Self, aGUID);
+    except
+      Result:= GUIDToString(aGUID);
+    end
+  else
+    Result:= GUIDToString(aGUID);
+end;
+
+procedure TRODBSessionManager.Assign(Source: TPersistent);
+var
+  lSource: TRODBSessionManager;
+begin
+  inherited;
+  if Source is TRODBSessionManager then begin
+    lSource := TRODBSessionManager(Source);
+
+    FieldNameCreated := lSource.FieldNameCreated;
+    FieldNameData := lSource.FieldNameData;
+    FieldNameLastAccessed := lSource.FieldNameLastAccessed;
+    FieldNameSessionID := lSource.FieldNameSessionID;
+    SessionCheckInterval := lSource.SessionCheckInterval;
+    SessionDuration := lSource.SessionDuration;
+    //datasets
+    ClearSessionsDataset := lSource.ClearSessionsDataset;
+    DeleteDataset := lSource.DeleteDataset;
+    GetCountDataset := lSource.GetCountDataset;
+    InsertDataset := lSource.InsertDataset;
+    SelectAllDataset := lSource.SelectAllDataset;
+    SelectDataset := lSource.SelectDataset;
+    UpdateDataset := lSource.UpdateDataset;
+    //events
+    ClearSessionsOnCreate := lSource.ClearSessionsOnCreate;
+    ClearSessionsOnDestroy := lSource.ClearSessionsOnDestroy;
+    OnConvertGUID := lSource.OnConvertGUID;
+    OnDatasetExecute := lSource.OnDatasetExecute;
+    OnDatasetGetParams := lSource.OnDatasetGetParams;
+    OnDatasetSetParams := lSource.OnDatasetSetParams;
+  end;
+end;
+
+procedure TRODBSessionManager.CheckProperties;
+begin
+  Check(FieldNameSessionID = '', Name + '.FieldNameSessionID must be set.');
+  Check(FieldNameCreated = '', Name + '.FieldNameCreated must be set.');
+  Check(FieldNameLastAccessed = '', Name + '.FieldNameLastAccessed must be set.');
+  Check(FieldNameData = '', Name + '.FieldNameData must be set.');
+  Check(InsertDataset = nil, Name + '.InsertDataset must be assigned.');
+  Check(DeleteDataset = nil, Name + '.DeleteDataset must be assigned.');
+  Check(UpdateDataset = nil, Name + '.UpdateDataset must be assigned.');
+  Check(SelectDataset = nil, Name + '.SelectDataset must be assigned.');
+  Check(GetCountDataset = nil, Name + '.GetCountDataset must be assigned.');
+  Check(ClearSessionsDataset = nil, Name + '.ClearSessionsDataset must be assigned.');
+  Check(SelectAllDataset = nil, Name + '.SelectAllDataset must be assigned.');
+end;
+
+procedure TRODBSessionManager.DoDatasetExecute(aDataset: TDataset;
+  aProvider: IProviderSupport);
+begin
+  if Assigned(fOnDatasetExecute) then
+    fOnDatasetExecute(Self,aDataset)
+  else if aProvider <> nil then
+    aProvider.PSExecute
+  else
+    raise Exception.CreateFmt('The %s.OnDatasetExecute event must be defined or %s should support IProviderSupport interface',[Self.Name, aDataset.Name]);
+end;
+
+function TRODBSessionManager.DoDatasetGetParams(aDataset: TDataset;
+  aProvider: IProviderSupport): TParams;
+begin
+  if Assigned(fOnDatasetGetParams) then
+    Result := fOnDatasetGetParams(Self, aDataset)
+  else if aProvider <> nil then
+    Result := aProvider.PSGetParams
+  else
+    raise Exception.CreateFmt('The %s.OnDatasetGetParams event must be defined or %s should support IProviderSupport interface',[Self.Name, aDataset.Name]);
+end;
+
+procedure TRODBSessionManager.DoDatasetSetParams(aDataset: TDataset;
+  aProvider: IProviderSupport; AParams: TParams);
+begin
+  if Assigned(fOnDatasetSetParams) then
+    fOnDatasetSetParams(Self, aDataset, AParams)
+  else if aProvider <> nil then
+    aProvider.PSSetParams(AParams)
+  else
+    raise Exception.CreateFmt('The %s.OnDatasetSetParams event must be defined or %s should support IProviderSupport interface',[Self.Name, aDataset.Name]);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODL.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODL.pas
new file mode 100644
index 0000000..a772a30
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODL.pas	
@@ -0,0 +1,3047 @@
+unit uRODL;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, Contnrs, uROClasses;
+
+const
+  EmptyGUID: TGUID = (D1: 0; D2: 0; D3: 0; D4: (0, 0, 0, 0, 0, 0, 0, 0));
+
+  DefaultIntfName = 'Default';
+
+type
+  { Misc types }
+  TRODLParamFlag = (fIn, fOut, fInOut, fResult);
+
+const
+  RODLParamFlagNames: array[TRODLParamFlag] of string = ('in', 'out', 'in/out', 'result');
+
+type
+  { TRODLNameInfo }  
+  TRODLEntity = class;
+  TRODLLibrary = class;
+
+  TRoPluginMessageType = (rmtInfo, rmtHint, rmtWarning, rmtError, rmtSuccess, rmtCustom);
+
+  IROPluginMessages = interface
+  ['{9B07B5C2-FC07-4B9B-9207-D487CDC58D0E}']
+    procedure AddMessage(iType:TRoPluginMessageType; const iSource, iMessage:string; aReserved:integer=-1; aEntity:TRODLEntity=nil);
+  end;
+
+  IRODLEntityWithAncestor = interface
+  ['{88D59A20-5B47-4CF0-A06C-C135EB598B12}']
+    function GetAncestor:string;
+    procedure SetAncestor(const iValue:string);
+    property Ancestor:string read GetAncestor write SetAncestor;
+  end;
+
+  TRODLUse = class;
+  TRODLGroup = class;
+
+  { TRODLEntity }
+  TRODLEntity = class(TObject, IUnknown)
+  private
+    fIsFromUsedRodl: boolean;
+    fLocatedInRodlUse: TRODLUse;
+    fOwner:TRODLEntity;
+
+    fData: TObject;
+    fGroupUnder: TRODLGroup;
+
+    fName: string;
+    fOriginalName: string;
+    fAttributes: TStringList;
+    fDocumentation: string;
+    fUID: TGUID;
+
+    procedure SetName(const Value: string); virtual;
+    procedure SetDocumentation(const Value: string);
+    function GetAttributes: TStrings;
+
+    function GetInfo: TRODLEntity;
+    function GetOwnerLibrary: TRODLLibrary;
+    function GetOriginalName: string;
+
+  protected
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+    function QueryInterface(const IID: TGUID; out Obj): HRESULT; stdcall;
+
+  public
+    constructor Create; virtual;
+    destructor Destroy; override;
+
+    procedure Validate(iMessages:IRoPluginMessages); virtual;
+    //function Validate(out FaultyEntity: TRODLEntity; out ErrorMessage: string): boolean; virtual;
+
+    property Name: string read fName write SetName;
+    property OriginalName: string read GetOriginalName write fOriginalName;
+    property Documentation: string read fDocumentation write SetDocumentation;
+    property UID: TGUID read fUID write fUID;
+    property Attributes: TStrings read GetAttributes;
+
+    property Owner:TRODLEntity read fOwner;
+    property OwnerLibrary:TRODLLibrary read GetOwnerLibrary;
+
+    property Info: TRODLEntity read GetInfo; { for backwards comatibility }
+    property IsFromUsedRodl:boolean read fIsFromUsedRodl write fIsFromUsedRodl;
+    property LocatedInRodlUse:TRODLUse read fLocatedInRodlUse write fLocatedInRodlUse;
+
+    { Helpers for visual representation in SB and elsewhere }
+    property GroupUnder:TRODLGroup read fGroupUnder write fGroupUnder;
+    class function ReadableEntityTypeName: string;
+
+    { Properties to hold custom application-specific data at runtime, for
+      the application coding convenience. These are not persisted in any way }
+    property Data:TObject read fData write fData;
+
+  end;
+
+  TRODLEntityClass = class of TRODLEntity;
+
+  TRODLGroup = class(TRODLEntity)
+  end;
+
+  { TRODLComplexEntity }
+  TRODLComplexEntity = class(TRODLEntity)
+  private
+    fItems: TObjectList;
+    fAutoCreateParams: boolean;
+    fAbstract: boolean;
+
+    function GetCount: integer;
+    function GetItems(Index: integer): TRODLEntity; 
+
+  protected
+    function GetItemClass: TRODLEntityClass; virtual; abstract;
+
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+
+    procedure Validate(iMessages:IRoPluginMessages); override;
+    //function Validate(out FaultyEntity: TRODLEntity; out ErrorMessage: string): boolean; override;
+
+    function ContainsEntity(aEntity: TRODLEntity; aRecurse:boolean=true):boolean;
+
+    function ItemByName(const aName: string): TRODLEntity;
+    function ItemByUID(const aUID: TGUID): TRODLEntity;
+
+    function Add(anEntity: TRODLEntity): integer; overload; virtual;
+    function Add: TRODLEntity; overload; virtual;
+    procedure Insert(aIndex: integer; anEntity: TRODLEntity); overload; virtual;
+    function Insert(aIndex: integer): TRODLEntity; overload; virtual;
+
+    function UniqueName(aBaseName:string):string;
+
+    procedure Exchange(Index1, Index2: integer); virtual;
+
+
+    procedure Remove(anEntity: TRODLEntity); virtual;
+    procedure Delete(Index: integer); virtual;
+    procedure Clear;
+    procedure Sort;
+
+    property AutoCreateParams:boolean read fAutoCreateParams write fAutoCreateParams;
+    property Abstract:boolean read fAbstract write fAbstract;
+
+    property ItemClass: TRODLEntityClass read GetItemClass;
+    property Items[Index: integer]: TRODLEntity read GetItems; default;
+    property Count: integer read GetCount;
+
+  end;
+
+  { TRODLTypedEntity }
+  TRODLTypedEntity = class(TRODLEntity)
+  private
+    fDataType: string;
+    procedure SetDataType(const Value: string);
+  public
+    procedure Validate(iMessages: IRoPluginMessages); override;
+    property DataType: string read fDataType write SetDataType;
+  end;
+
+  { TRODLStruct }
+  TRODLBaseStruct = class(TRODLComplexEntity, IRODLEntityWithAncestor)
+  private
+    fAncestor: string;
+    function GetItems(Index: integer): TRODLTypedEntity;
+    procedure SetAncestor(const Value: string);
+
+  protected
+    function GetItemClass: TRODLEntityClass; override;
+    function IsDerivedFrom(aBaseStruct: TRODLBaseStruct): Boolean; virtual;
+
+  public
+    function Add(aStructElement: TRODLTypedEntity): integer; reintroduce; overload;
+    function Add: TRODLTypedEntity; reintroduce; overload;
+
+    procedure Validate(iMessages:IRoPluginMessages); override;
+    property Items[Index: integer]: TRODLTypedEntity read GetItems; default;
+    property Ancestor: string read fAncestor write SetAncestor;
+    function GetAncestor: string;
+
+    function CalcItems(aIncludeAncestors: boolean=true; aIgnoreDuplicates: boolean=true): IROStrings;
+    function CalcItemsMarshalingOrder(aIncludeAncestors: boolean=true): IROStrings;
+  end;
+
+  TRODLStruct = class(TRODLBaseStruct);
+
+  { TRODLArray }
+  TRODLArray = class(TRODLEntity)
+  private
+    fElementType: string;
+    procedure SetElementType(const Value: string);
+  public
+    procedure Validate(iMessages:IRoPluginMessages); override;
+    //function Validate(out FaultyEntity: TRODLEntity; out ErrorMessage: string): boolean; override;
+
+    property ElementType: string read fElementType write SetElementType;
+  end;
+
+  { TRODLEnumValue }
+  TRODLEnumValue = class(TRODLEntity)
+  private
+  end;
+
+  { TRODLEnum }
+  TRODLEnum = class(TRODLComplexEntity)
+  private
+    fPrefixEnumValues: Boolean;
+    function GetItems(Index: integer): TRODLEnumValue;
+
+  protected
+    function GetItemClass: TRODLEntityClass; override;
+
+  public
+    constructor Create; override;
+
+    function Add(aStructElement: TRODLEnumValue): integer; reintroduce; overload;
+    function Add: TRODLEnumValue; reintroduce; overload;
+
+    procedure Validate(iMessages:IRoPluginMessages); override;
+    property Items[Index: integer]: TRODLEnumValue read GetItems; default;
+
+    property PrefixEnumValues: Boolean read fPrefixEnumValues write fPrefixEnumValues;
+  end;
+
+  { TRODLOperationParam }
+  TRODLOperationParam = class(TRODLTypedEntity)
+  private
+    fFlag: TRODLParamFlag;
+    function GetFlag: string;
+    procedure SetFlag(const aValue: string);
+  public
+    property Flag: TRODLParamFlag read fFlag write fFlag;
+    property FlagAsString: string read GetFlag write SetFlag;
+  end;
+
+  { TRODLOperation }
+  TRODLOperation = class(TRODLComplexEntity)
+  private
+    fOperationResult: TRODLOperationParam;
+    fCodeBodies: TStringList;
+    fForceAsyncResponse: boolean;
+    fRoles: TStringArray;
+    function GetItems(Index: integer): TRODLOperationParam;
+    function GetResult: TRODLOperationParam;
+    function GetCodeBody(iLanguage: string): TStrings;
+    function GetCodeBodyCount: integer;
+    function GetCodeBodyLanguages(iIndex: integer): string;
+
+  protected
+    function GetItemClass: TRODLEntityClass; override;
+
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+
+    function Add(aParam: TRODLOperationParam): integer; reintroduce; overload;
+    function Add: TRODLOperationParam; reintroduce; overload;
+
+    {procedure MoveResult();
+    procedure Exchange(Index1, Index2: integer); override;}
+
+    procedure SetCodeBody(iLanguage: string; Value: TStrings);
+    procedure SetCodeBodyAsString(iLanguage: string; const Value: string);
+
+    function GetParameter(const aParameterName : string) : TRODLOperationParam;
+
+    property Items[Index: integer]: TRODLOperationParam read GetItems; default;
+
+    property Result: TRODLOperationParam read GetResult;
+    function AddResult: TRODLOperationParam;
+    procedure RemoveResult;
+
+    property ForceAsyncResponse:boolean read fForceAsyncResponse write fForceAsyncResponse;
+
+    property Roles: TStringArray read fRoles write FRoles;
+    property CodeBodies[iLanguage:string]:TStrings read GetCodeBody write SetCodeBody;
+    property CodeBodyCount:integer read GetCodeBodyCount;
+    property CodeBodyLanguages[iIndex:integer]:string read GetCodeBodyLanguages;
+
+    procedure Validate(iMessages: IROPluginMessages); override;
+  end;
+
+  { TRODLServiceInterface }
+  TRODLServiceInterface = class(TRODLComplexEntity)
+  private
+    function GetItems(Index: integer): TRODLOperation;
+
+  protected
+    function GetItemClass: TRODLEntityClass; override;
+
+  public
+    procedure GetOperationsList(AList: TList);
+    function FindOperation(const anOperationName : string; IncludeAnchestors : boolean = FALSE) : TRODLOperation;
+    function GetOperation(const anOperationName : string; IncludeAnchestors : boolean = FALSE) : TRODLOperation;
+
+    function CalcItems(aIncludeAncestors: boolean=true; aIgnoreDuplicates: boolean=true): IROStrings;
+
+    function Add(aParam: TRODLOperation): integer; reintroduce; overload;
+    function Add: TRODLOperation; reintroduce; overload;
+
+    property Items[Index: integer]: TRODLOperation read GetItems; default;
+  end;
+
+  { TRODLBaseService }
+  TRODLBaseService = class(TRODLComplexEntity, IRODLEntityWithAncestor)
+  private
+    fAncestor: string;
+    fImplClass: string;
+    fImplUnit: string;
+    fisPrivate: Boolean;
+    function GetItems(Index: integer): TRODLServiceInterface;
+    function GetDefault: TRODLServiceInterface;
+    procedure SetAncestor(const Value: string);
+
+  protected
+    function GetItemClass: TRODLEntityClass; override;
+    function IsDerivedFrom(aBaseService: TRODLBaseService): Boolean; virtual;
+  public
+    constructor Create; override;
+
+    function Add(aServiceInterface: TRODLServiceInterface): integer; reintroduce; overload;
+    function Add: TRODLServiceInterface; reintroduce; overload;
+
+    procedure Validate(iMessages: IRoPluginMessages); override;
+    property Items[Index: integer]: TRODLServiceInterface read GetItems; default;
+    property Default: TRODLServiceInterface read GetDefault;
+    property Ancestor: string read fAncestor write SetAncestor;
+
+    property ImplUnit:string read fImplUnit write fImplUnit;
+    property ImplClass:string read fImplClass write fImplClass;
+    function GetAncestor:string;
+    property isPrivate: Boolean read fisPrivate write fisPrivate;
+  end;
+
+  TRODLService = class(TRODLBaseService)
+  private
+    fRoles: TStringArray;
+  public
+    property Roles: TStringArray read fRoles write FRoles;
+  end;
+  TRODLEventSink = class(TRODLBaseService);
+
+  { TRODLArray }
+  TRODLException = class(TRODLBaseStruct)
+  public
+    procedure Validate(iMessages:IRoPluginMessages); override;
+  end;
+
+  { TRODLUse }
+  TRODLUseSplitMode = (usmAsParent, usmNever, usmAlways);
+  TRODLUse = class(TRODLEntity)
+  private
+    fRodlFile: string;
+    fAbsoluteRodlFile: string;
+    fLoadedRodlLibraryName: string;
+    fGenerateCode: boolean;
+    fSplitMode: TRODLUseSplitMode;
+  public
+    procedure Validate(iMessages:IRoPluginMessages); override;
+    property RodlFile:string read fRodlFile write fRodlFile;
+    property AbsoluteRodlFile:string read fAbsoluteRodlFile write fAbsoluteRodlFile;
+    property LoadedRodlLibraryName: string read fLoadedRodlLibraryName write fLoadedRodlLibraryName;
+    property GenerateCode: boolean read fGenerateCode write fGenerateCode;
+    property SplitMode: TRODLUseSplitMode read fSplitMode write fSplitMode;
+  end;
+
+  { TRODLLibrary }
+  TRODLLibrary = class(TRODLComplexEntity)
+  private
+    fArrayCount: integer;
+    fServiceCount: integer;
+    fStructCount: integer;
+    fEnumCount: integer;
+    fExceptionCount: integer;
+    fUseCount: integer;
+    fEventSinkCount: integer;
+    fGroupCount: integer;
+    fRodlFilename: string;
+    fNamespace: string;
+
+    function GetByType(aIndex:integer; aType:TRODLEntityClass):TRODLEntity;
+    function GetArray(Index: integer): TRODLArray;
+    function GetEnums(Index: integer): TRODLEnum;
+    function GetServices(Index: integer): TRODLService;
+    function GetStructs(Index: integer): TRODLStruct;
+    function GetExceptions(Index: integer): TRODLException;
+    function GetUse(Index: integer): TRODLUse;
+    function CalcOrder(const iObjects: IROStrings): IROStrings;
+    function GetGroups(Index: integer): TRODLGroup;
+    function GetEventSinks(Index: integer): TRODLEventSink;
+
+  protected
+    function GetItemClass: TRODLEntityClass; override;
+
+  public
+    constructor Create(); override;
+
+    procedure GetArraysByElement(const aElementName:string; AList: TList);overload;
+    procedure GetArraysByElement(const aElementName:string; AList: TStringList);overload;
+    function FindBaseService(const iServiceName: string): TRODLBaseService;
+    function FindService(const iServiceName: string): TRODLService;
+    function FindStruct(const iStructName: string): TRODLStruct;
+    function FindBaseStruct(const iStructName: string): TRODLBaseStruct;
+    function FindEnum(const iEnumName: string): TRODLEnum;
+    function FindArray(const iArrayName: string): TRODLArray;
+    function FindGroup(const aID: TGUID): TRODLGroup; overload;
+    function FindException(const iExceptionName: string): TRODLException;
+    function FindUse(const iUseName: string): TRODLUse;
+    function FindUseByFilename(const iUseRODLFile: string): TRODLUse;
+
+    procedure ClearDuplicates();
+
+    function GetService(const aServiceName: string): TRODLService;
+    function GetStruct(const aStructName: string): TRODLStruct;
+
+    function IsValidCustomType(const iTypeName:string):boolean;
+    function IsValidSimpleType(const iTypeName: string): boolean;
+    function IsValidType(const iTypeName:string):boolean;
+    function IsValidService(const iServiceName:string):boolean;
+    function IsValidEventSink(const iEventSink:string):boolean;
+    function IsValidException(const iTypeName:string):boolean;
+
+    function Add(anEntity: TRODLEntity): integer; override;
+
+    function CalcServiceOrder:IROStrings;
+    function CalcEventSinkOrder: IROStrings;
+    function CalcExceptionOrder: IROStrings;
+    function CalcStructOrder: IROStrings;
+
+    procedure Delete(Index: integer); override;
+    procedure Remove(anEntity: TRODLEntity); override;
+
+    property RodlFilename:string read fRodlFilename write fRodlFilename;
+    property Namespace: string read fNamespace write fNamespace;
+
+    property Structs[Index: integer]: TRODLStruct read GetStructs;
+    property StructCount: integer read fStructCount;
+
+    property Arrays[Index: integer]: TRODLArray read GetArray;
+    property ArrayCount: integer read fArrayCount;
+
+    property Enums[Index: integer]: TRODLEnum read GetEnums;
+    property EnumCount: integer read fEnumCount;
+
+    property Services[Index: integer]: TRODLService read GetServices;
+    property ServiceCount: integer read fServiceCount;
+
+    property Exceptions[Index: integer]: TRODLException read GetExceptions;
+    property ExceptionCount: integer read fExceptionCount;
+
+    property Use[Index: integer]: TRODLUse read GetUse;
+    property UseCount: integer read fUseCount;
+
+    property Groups[Index: integer]: TRODLGroup read GetGroups;
+    property GroupCount: integer read fGroupCount;
+
+    property EventSinks[Index: integer]: TRODLEventSink read GetEventSinks;
+    property EventSinkCount: integer read fEventSinkCount;
+  end;
+
+  { TRODLConverter }
+  TRODLConverter = class
+  private
+    fBuffer: TStringList;
+    fTargetEntity: string;
+
+    function GetBuffer: TStrings;
+
+  protected
+    procedure IntConvert(const aLibrary: TRODLLibrary; const aTargetEntity: string = ''); virtual; abstract;
+    function ValidateTargetEntity(const aLibrary: TRODLLibrary; const aTargetEntity: string): boolean; virtual;
+
+  public
+    constructor Create(const aLibraryFile: string; const aTargetEntity: string = ''); overload; virtual;
+    constructor Create(const aLibrary: TRODLLibrary; const aTargetEntity: string = ''); overload; virtual;
+    destructor Destroy; override;
+
+    procedure Write(const someText: string; Indentation: integer = 0); overload;
+    procedure WriteLines(const someText: string);
+    procedure WriteEmptyLine;
+
+    procedure Convert(const aLibrary: TRODLLibrary; const aTargetEntity: string = '');
+    class function GetTargetFileName(const aLibrary: TRODLLibrary; const aTargetEntity: string = ''): string; virtual;
+
+    property Buffer: TStrings read GetBuffer;
+    property TargetEntity: string read fTargetEntity;
+  end;
+
+  TRODLConverterClass = class of TRODLConverter;
+
+  { TRODLReader }
+  TRODLReader = class
+  private
+  protected
+    function IntReadFromStream(aStream: TStream; aFilename:string): TRODLLibrary; virtual; abstract;
+
+  public
+    constructor Create; virtual;
+
+    function Read(aStream: TStream; const aFilename:string=''): TRODLLibrary;
+    function ReadFromFile(const aFileName: string): TRODLLibrary;
+  end;
+
+  TRODLReaderClass = class of TRODLReader;
+
+  { TXMLToRODL }
+  TXMLToRODL = class(TRODLReader)
+  private
+    fAddToExistingLibrary:TRODLLibrary;
+    fRecreateGuids:boolean;
+    procedure LoadStreamToLibrary(aStream: TStream; iLibrary: TRODLLibrary; iRodlName: string = ''; iRodlUse: TRODLUse=nil; iReplaceLibraryAttributes:boolean=true);
+    function RecreateGuidIfNeeded(iGuid:TGuid):TGuid;
+  protected
+    function IntReadFromStream(aStream: TStream; aFilename:string): TRODLLibrary; override;
+
+  public
+    constructor Create(iAddToExisting:TRODLLibrary; iRecreateGuids:boolean=false); reintroduce; overload;
+    procedure LoadFileToLibrary(iFilename: string; iLibrary: TRODLLibrary; iRodlUse:TRODLUse=nil);
+
+    function ReadFromString(const aString: AnsiString; const aFilename: string=''): TRODLLibrary; overload;
+    {$IFDEF UNICODE}
+    function ReadFromString(const aString: string; const aFilename: string=''): TRODLLibrary; overload;
+    {$ENDIF}
+  end;
+
+function ReadRODLFromFile(aReaderClass: TRODLReaderClass; const aFileName: string): TRODLLibrary;
+
+function ExpandVariables(const aFilename:string):string;
+
+type
+  XMLFlagNamesArray = array[TRODLParamFlag] of string;
+const
+  XMLFlagNames: XMLFlagNamesArray = ('In', 'Out', 'InOut', 'Result');
+
+function XMLFlagNameToFlag(const aName: string): TRODLParamFlag;
+implementation
+
+uses
+  {$IFDEF DEBUG_REMOBJECTS_RODL}eDebugServer, {$ENDIF}
+  {$IFDEF DELPHI5} ActiveX, Windows, {$ENDIF}
+  {$IFDEF MSWINDOWS}Registry, {$IFNDEF DELPHI5}Windows,{$ENDIF}{$ENDIF}
+  SysUtils, TypInfo, uRORes, uROXMLIntf{,uROTypes}, Variants;
+
+{ Support routines }
+
+{$IFDEF MSWINDOWS}
+function LookupVariable(const aVariable:string):string;
+begin
+  with TRegistry.Create do try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey('Software\RemObjects\RemObjects SDK\Variables',false);
+    result := ReadString(aVariable);
+{    if result = '' then
+      RaiseError('Variable $(%s) used in RODL is not defined.',[aVariable]);
+      }
+  finally
+    Free;
+  end;
+end;
+{$ENDIF}
+
+{$IFDEF MSWINDOWS}
+function ExpandVariables(const aFilename:string):string;
+var
+  p: Integer;
+  lName,lVar:string;
+begin
+  lName := aFilename;
+  if Pos('$(',lName) = 1 then begin
+    p := Pos(')',lName);
+    if p > 1 then begin
+      lVar := Copy(lName,3,p-3);
+      Delete(lName,1,p);
+      result := LookupVariable(lVar)+lName;
+      exit;
+    end;
+  end;
+  result := aFilename;
+end;
+{$ELSE}
+function ExpandVariables(const aFilename:string):string;
+begin
+  result := aFilename;
+end;
+{$ENDIF}
+
+function CleanupText(const someText: string): string;
+var
+  i: integer;
+begin
+  result := Trim(someText);
+  for i := 1 to Length(result) do
+    case result[i] of
+      '0'..'9': begin
+          if (i = 1) then result[i] := '_';
+        end;
+      'a'..'z',
+        'A'..'Z',
+        '_': Continue;
+    else
+      result[i] := '_';
+    end;
+end;
+
+function CleanupTextAllowSpaces(const someText: string): string;
+var
+  i: integer;
+begin
+  result := Trim(someText);
+  for i := 1 to Length(result) do
+    case result[i] of
+      {'0'..'9' : begin
+        if (i=1) then result[i] := '_';
+      end;}
+      #13, #10, #09,
+        #$20..#$21,
+        #$23..#$25,
+        #$27..#$3b,
+        #$3d,
+        #$3f..#$7e: Continue;
+    else
+      result[i] := '_';
+    end;
+end;
+
+function ReadRODLFromFile(aReaderClass: TRODLReaderClass; const aFileName: string): TRODLLibrary;
+begin
+  with aReaderClass.Create do try
+    result := ReadFromFile(aFileName);
+  finally
+    Free;
+  end;
+end;
+
+{ TRODLNameInfo }
+
+{constructor TRODLNameInfo.Create(const aName: string; aOwner:TRODLEntity);
+begin
+  Name := aName;
+  fOwner := aOwner;
+  fUID := NewUID();
+end;
+
+destructor TRODLNameInfo.Destroy;
+begin
+  if Assigned(fAttributes) then fAttributes.Free;
+  inherited;
+end;
+
+function TRODLNameInfo.GetAttributes: TStrings;
+begin
+  if (fAttributes = nil) then fAttributes := TStringList.Create;
+  result := fAttributes;
+end;
+
+procedure TRODLNameInfo.SetName(const Value: string);
+begin
+  fName := CleanupText(Value);
+end;
+
+procedure TRODLNameInfo.SetDocumentation(const Value: string);
+begin
+  fDocumentation := CleanupTextAllowSpaces(Value);
+end;   }
+
+{ TRODLEntityInfo }
+
+{constructor TRODLEntityInfo.Create(const aName: string; const aUID: TGUID; const someDocumentation: string; aOwner:TRODLEntity);
+begin
+  inherited Create(aName,aOwner);
+
+  UID := aUID;
+  Documentation := someDocumentation;
+end;}
+
+{procedure TRODLEntityInfo.Validate(iMessages:IRoPluginMessages);
+//function TRODLEntityInfo.GetIsValid: boolean;
+begin
+  //result := inherited GetIsValid and
+  if IsEqualGUID(UID, EmptyGUID) then
+    iMessages.AddMessage(rmtWarning,Name,'No UID specified',-1,Owner);
+end;}
+
+{ TRODLEntity }
+
+constructor TRODLEntity.Create;
+begin
+  fUID := NewGUID();
+end;
+
+destructor TRODLEntity.Destroy;
+begin
+  if Assigned(fAttributes) then fAttributes.Free;
+  inherited;
+end;
+
+function TRODLEntity.GetInfo: TRODLEntity;
+begin
+  result := self;
+end;
+
+procedure TRODLEntity.Validate(iMessages:IRoPluginMessages);
+begin
+  if (Trim(Name) = '') then
+    iMessages.AddMessage(rmtError,'','No Name specified',-1,Owner);
+
+  { ToDo: add a flag that specified whether UID is needed for the explicit base types }
+  if IsEqualGUID(UID, EmptyGUID) then
+    iMessages.AddMessage(rmtWarning,Name,'No UID specified',-1,Owner);
+
+  {result := Info.IsValid;
+  if not result then begin
+    FaultyEntity := Self;
+    ErrorMessage := err_InvalidInfo;
+  end;}
+end;
+
+function TRODLEntity.GetOwnerLibrary: TRODLLibrary;
+var lOwner:TRODLEntity;
+begin
+  lOwner := fOwner;
+  while Assigned(lOwner) and (not (lOwner is TRODLLibrary)) do
+    lOwner := lOwner.Owner;
+
+  Assert(Assigned(lOwner));
+  result := lOwner as TRODLLibrary;
+end;
+
+function TRODLEntity._AddRef: Integer;
+begin
+  result := 1;
+end;
+
+function TRODLEntity._Release: Integer;
+begin
+  result := 1;
+end;
+
+function TRODLEntity.QueryInterface(const IID: TGUID; out Obj): HRESULT;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+class function TRODLEntity.ReadableEntityTypeName: string;
+begin
+  result := ClassName;
+  Delete(result,1,5); { delete the "TRODL" }
+end;
+
+function TRODLEntity.GetAttributes: TStrings;
+begin
+  if (fAttributes = nil) then fAttributes := TStringList.Create;
+  result := fAttributes;
+end;
+
+procedure TRODLEntity.SetDocumentation(const Value: string);
+begin
+  fDocumentation := Value;
+end;
+
+procedure TRODLEntity.SetName(const Value: string);
+begin
+  fName := CleanupText(Value);
+end;
+
+function TRODLEntity.GetOriginalName: string;
+begin
+  if fOriginalName = '' then result := fName else result := fOriginalName;
+end;
+
+{ TRODLComplexEntity }
+
+function TRODLComplexEntity.Add(anEntity: TRODLEntity): integer;
+begin
+  if not (anEntity is ItemClass) then RaiseError(err_InvalidType, [anEntity.ClassName, ItemClass.ClassName]);
+  result := fItems.Add(anEntity);
+  anEntity.fOwner := self;
+end;
+
+function TRODLComplexEntity.Add: TRODLEntity;
+begin
+  result := ItemClass.Create;
+  result.fOwner := self;
+  Add(result);
+end;
+
+procedure TRODLComplexEntity.Insert(aIndex: integer; anEntity: TRODLEntity);
+begin
+  if not (anEntity is ItemClass) then RaiseError(err_InvalidType, [anEntity.ClassName, ItemClass.ClassName]);
+  fItems.Insert(aIndex, anEntity);
+  anEntity.fOwner := self;
+end;
+
+function TRODLComplexEntity.Insert(aIndex: integer): TRODLEntity;
+begin
+  result := ItemClass.Create;
+  result.fOwner := self;
+  Insert(aIndex, result);
+end;
+
+procedure TRODLComplexEntity.Clear;
+begin
+  fItems.Clear;
+end;
+
+constructor TRODLComplexEntity.Create;
+begin
+  inherited;
+  fAutoCreateParams := true;
+  fItems := TObjectList.Create;
+end;
+
+procedure TRODLComplexEntity.Delete(Index: integer);
+begin
+  fItems.Delete(Index);
+end;
+
+destructor TRODLComplexEntity.Destroy;
+begin
+  fItems.Free;
+  inherited;
+end;
+
+function TRODLComplexEntity.GetCount: integer;
+begin
+  result := fItems.Count
+end;
+
+procedure TRODLComplexEntity.Validate(iMessages:IRoPluginMessages); 
+//function TRODLComplexEntity.Validate(out FaultyEntity: TRODLEntity; out ErrorMessage: string): boolean;
+var
+  i, n: integer;
+begin
+  inherited Validate(iMessages);
+  //if not result then Exit;
+  //result := FALSE;
+
+  // Check type names are unique
+  for i := 0 to (Count - 2) do
+    for n := i + 1 to (Count - 1) do
+      if (CompareText(Items[i].Info.Name, Items[n].Info.Name) = 0) then begin
+
+        iMessages.AddMessage(rmtError,Info.Name+'.'+Items[i].Info.Name,err_RodlDuplicateName,-1,Items[n]);
+
+        {FaultyEntity := ;
+        ErrorMessage := Format(err_DuplicateName, [Items[n].Info.Name]);
+        Exit;}
+      end;
+
+  // Check they are all valid on a basic level
+  for i := 0 to (Count - 1) do
+    Items[i].Validate(iMessages);
+    //if not Items[i].Validate(FaultyEntity, ErrorMessage) then Exit;
+
+  //result := TRUE;
+end;
+
+function TRODLComplexEntity.GetItems(Index: integer): TRODLEntity;
+begin
+  result := TRODLEntity(fItems[Index]);
+end;
+
+function TRODLComplexEntity.ItemByName(const aName: string): TRODLEntity;
+var
+  i: integer;
+begin
+  result := nil;
+
+  for i := 0 to (Count - 1) do
+    if (CompareText(Items[i].Info.Name, aName) = 0) then begin
+      result := Items[i];
+      Exit;
+    end;
+end;
+
+function TRODLComplexEntity.ItemByUID(const aUID: TGUID): TRODLEntity;
+var
+  i: integer;
+begin
+  result := nil;
+
+  for i := 0 to (Count - 1) do
+    if IsEqualGUID(Items[i].Info.UID, aUID) then begin
+      result := Items[i];
+      Exit;
+    end;
+end;
+
+procedure TRODLComplexEntity.Remove(anEntity: TRODLEntity);
+begin
+  fItems.Remove(anEntity)
+end;
+
+procedure TRODLComplexEntity.Exchange(Index1, Index2: integer);
+begin
+  fItems.Exchange(Index1, Index2);
+end;
+
+function TRODLComplexEntity.UniqueName(aBaseName: string): string;
+var
+  i: Integer;
+  lIndex: Integer;
+  lOk: boolean;
+begin
+  lIndex := 0;
+  result := aBasename;
+  repeat
+    lOk := true;
+    for i := 0 to Count-1 do begin
+      if result = Items[i].Info.Name then begin
+        inc(lIndex);
+        result := aBaseName+IntToStr(lIndex);
+        lOk  := false;
+      end;
+    end; { for }
+  until lOk;
+end;
+
+function TRODLComplexEntity.ContainsEntity(aEntity: TRODLEntity; aRecurse:boolean=true): boolean;
+var
+  i: Integer;
+begin
+  result := false;
+  for i := 0 to Count-1 do begin
+    if Items[i] = aEntity then begin
+      result := true;
+      exit;
+    end;
+    if aRecurse and (Items[i] is TRODLComplexEntity) then begin
+      result := TRODLComplexEntity(Items[i]).ContainsEntity(aEntity);
+      if result then exit;
+    end;
+  end; { for }
+end;
+
+function SortItem(Item1, Item2: Pointer): Integer;
+begin
+  Result := CompareText(TRODLEntity(Item1).Name, TRODLEntity(Item2).name);
+end;
+
+procedure TRODLComplexEntity.Sort;
+begin
+  fItems.Sort(@SortItem);
+end;
+
+{ TRODLTypedEntity }
+
+procedure TRODLTypedEntity.Validate(iMessages:IRoPluginMessages);
+begin
+  if (DataType = '') then begin
+    iMessages.AddMessage(rmtError,Owner.Owner.Info.Name+'.'+Name,err_RodlNoDataTypeSpecified,-1,Owner);
+    exit;
+  end;
+
+  if not Owner.OwnerLibrary.IsValidType(DataType) then
+    iMessages.AddMessage(rmtError,Owner.Owner.Info.Name+'.'+Name,Format(err_RodlInvalidDataType,[DataType]),-1,Owner);
+
+  if not (Owner is TRODLOperation) then
+  begin
+    if (CompareText(DataType,Owner.Info.Name) = 0) then
+      iMessages.AddMessage(rmtError,Owner.Info.Name,Format(err_RodlStructCannotBeNested,[DataType]),-1,Owner);
+  end;
+end;
+
+procedure TRODLTypedEntity.SetDataType(const Value: string);
+begin
+  fDataType := CleanupText(Value);
+end;
+
+{ TRODLStruct }
+
+function TRODLBaseStruct.Add(aStructElement: TRODLTypedEntity): integer;
+begin
+  result := inherited Add(aStructElement)
+end;
+
+function TRODLBaseStruct.Add: TRODLTypedEntity;
+begin
+  result := TRODLTypedEntity(inherited Add);
+  result.Info.Name := 'Field' + IntToStr(Count);
+end;
+
+function CompareRODLBaseStructItems(List: TStringList; Index1, Index2: Integer): Integer;
+begin
+  Result := CompareText(List[Index1], List[Index2]);
+end;
+
+function TRODLBaseStruct.CalcItems(aIncludeAncestors, aIgnoreDuplicates: boolean): IROStrings;
+var
+  lAncestor, lDescendant: TRODLBaseStruct;
+  i: integer;
+begin
+  result := NewROStrings();
+  if aIgnoreDuplicates then begin
+    result.Sorted := True;
+    result.Duplicates := dupIgnore;
+  end;
+
+  lAncestor := self;
+  repeat
+    for i := lAncestor.Count-1 downto 0 do
+      result.AddObject(lAncestor.Items[i].Name, lAncestor.Items[i]);
+
+    lDescendant := lAncestor;
+    if lAncestor.Ancestor <> '' then
+      lAncestor := OwnerLibrary.FindBaseStruct(lAncestor.Ancestor)
+    else
+      lAncestor := nil;
+
+    if assigned(lAncestor) and lAncestor.IsDerivedFrom(lDescendant) then
+      RaiseError(err_RodlCircularReference, [lDescendant.Name, lAncestor.Name], EROCircularReference);
+
+  until (not Assigned(lAncestor)) or (not aIncludeAncestors);
+end;
+
+function TRODLBaseStruct.CalcItemsMarshalingOrder(aIncludeAncestors: boolean=true): IROStrings;
+begin
+  result := CalcItems(aIncludeAncestors);
+
+  // Do not use "Result.Sorted" because it uses AnsiCompareText for the comparisons
+  // whereas the SortPropList method originally used via GetGetPropList in TROSerializer.ReadObject
+  // does a case insensitive ASCII based sort. Hence the need to do our own
+  // sorting that calls CompareText.
+  result.Sorted := False;
+  result.CustomSort(CompareRODLBaseStructItems);
+end;
+
+function TRODLBaseStruct.GetAncestor: string;
+begin
+  result := fAncestor;
+end;
+
+function TRODLBaseStruct.GetItemClass;
+begin
+  result := TRODLTypedEntity;
+end;
+
+function TRODLBaseStruct.GetItems(Index: integer): TRODLTypedEntity;
+begin
+  result := TRODLTypedEntity(inherited Items[Index]);
+end;
+
+function TRODLBaseStruct.IsDerivedFrom(aBaseStruct: TRODLBaseStruct): Boolean;
+var
+  lAncestor: TRODLBaseStruct;
+  i: Integer;
+begin
+  result := true;
+  lAncestor := OwnerLibrary.FindBaseStruct(Self.Ancestor);
+  for i := 0 to OwnerLibrary.StructCount - 1 do begin // try not more than struct count to prevent ancestor circularity
+    if not assigned(lAncestor) then break;
+    if lAncestor = aBaseStruct then exit;
+    lAncestor := OwnerLibrary.FindBaseStruct(lAncestor.Ancestor);
+  end;
+  result := false;
+end;
+
+procedure TRODLBaseStruct.SetAncestor(const Value: string);
+begin
+  fAncestor := Trim(Value);
+end;
+
+procedure TRODLBaseStruct.Validate(iMessages: IRoPluginMessages);
+var
+  lSelfItems, lAncestorItems: IROStrings;
+  i, j: Integer;
+begin
+  inherited;
+  { Hack: for exemptions, dont warn about missing elements }
+  { ToDo: create a command base class for struct and exception, and derrive both, to avoid this kind of prob. }
+  if (Count = 0) and not (self is TRODLException) and (Ancestor = '') then
+    iMessages.AddMessage(rmtWarning, Name, err_RodlNoStructElementsDefined, -1, self);
+
+  if (Ancestor <> '') then begin
+    if not OwnerLibrary.IsValidType(Ancestor) and not (self is TRODLException) then begin// exceptions ancestors are checked in TRODLException.Validate
+      iMessages.AddMessage(rmtError, Info.Name, Format(err_RodlInvalidAncestorType, [Ancestor]), -1, self);
+      Exit;
+    end;
+
+    if assigned(OwnerLibrary.FindBaseStruct(Ancestor)) then begin
+      if OwnerLibrary.FindBaseStruct(Ancestor).IsDerivedFrom(Self) then begin
+        iMessages.AddMessage(rmtError, Info.Name, Format(err_RodlCircularReference, [Name, Ancestor]), -1, self);
+        Exit;
+      end;
+
+      try
+        lSelfItems := CalcItems(False, False);
+        lAncestorItems := OwnerLibrary.FindBaseStruct(Ancestor).CalcItems(True, False);
+        for i := 0 to lSelfItems.Count - 1 do
+          for j := 0 to lAncestorItems.Count - 1 do
+            if CompareText(lSelfItems[i], lAncestorItems[j]) = 0 then
+              iMessages.AddMessage(rmtError, Name+'.'+lSelfItems[i], Format(err_RodlItemExistsInAnsector, [lSelfItems[i], TRODLEntity(lAncestorItems.Objects[j]).Owner.Name]), -1, Self);
+      except
+        on EROCircularReference do
+          iMessages.AddMessage(rmtWarning, Name, err_RodlCircularityWarning, -1, Self);
+      end;
+    end;
+  end;
+end;
+
+{ TRODLEnum }
+
+function TRODLEnum.Add(aStructElement: TRODLEnumValue): integer;
+begin
+  result := inherited Add(aStructElement)
+end;
+
+function TRODLEnum.Add: TRODLEnumValue;
+begin
+  result := TRODLEnumValue(inherited Add);
+  result.Info.Name := 'Value' + IntToSTr(Count);
+end;
+
+constructor TRODLEnum.Create;
+begin
+  inherited;
+  fPrefixEnumValues := True;
+end;
+
+function TRODLEnum.GetItemClass: TRODLEntityClass;
+begin
+  result := TRODLEnumValue;
+end;
+
+function TRODLEnum.GetItems(Index: integer): TRODLEnumValue;
+begin
+  result := TRODLEnumValue(inherited Items[Index]);
+end;
+
+procedure TRODLEnum.Validate(iMessages: IRoPluginMessages);
+begin
+  inherited;
+  if Count = 0 then
+    iMessages.AddMessage(rmtError,Info.Name,err_RodlNoEnumValues,-1,self);
+end;
+
+{ TRODLBaseService }
+
+function TRODLBaseService.Add(aServiceInterface: TRODLServiceInterface): integer;
+begin
+  result := inherited Add(aServiceInterface);
+end;
+
+function TRODLBaseService.Add: TRODLServiceInterface;
+begin
+  result := TRODLServiceInterface(inherited Add);
+end;
+
+constructor TRODLBaseService.Create;
+var
+  defintf: TRODLServiceInterface;
+begin
+  inherited;
+  fisPrivate := False;
+  defintf := Add;
+  defintf.Info.Name := DefaultIntfName;
+  defintf.Info.UID := NewGUID;
+end;
+
+function TRODLBaseService.GetAncestor: string;
+begin
+  result := fAncestor;
+end;
+
+function TRODLBaseService.GetDefault: TRODLServiceInterface;
+var
+  i: integer;
+begin
+  result := nil;
+  if (Count = 1) then
+    result := Items[0]
+  else
+    for i := 0 to (Count - 1) do
+      if (CompareText(Items[i].Info.name, DefaultIntfName) = 0) then begin
+        result := Items[i];
+        Exit;
+      end;
+end;
+
+function TRODLBaseService.GetItemClass: TRODLEntityClass;
+begin
+  result := TRODLServiceInterface;
+end;
+
+function TRODLBaseService.GetItems(Index: integer): TRODLServiceInterface;
+begin
+  result := TRODLServiceInterface(inherited Items[Index]);
+end;
+
+function TRODLBaseService.IsDerivedFrom(aBaseService: TRODLBaseService): Boolean;
+var
+  lAncestor: TRODLBaseService;
+  i: Integer;  
+begin
+  result := true;
+  lAncestor := OwnerLibrary.FindBaseService(Self.Ancestor);
+  for i := 0 to OwnerLibrary.ServiceCount - 1 do begin // try not more than service count to prevent ancestor circularity
+    if not assigned(lAncestor) then break;
+    if lAncestor = aBaseService then exit;
+    lAncestor := OwnerLibrary.FindBaseService(lAncestor.Ancestor);
+  end;
+  result := false;
+end;
+
+procedure TRODLBaseService.SetAncestor(const Value: string);
+begin
+  fAncestor := Trim(Value);
+end;
+
+procedure TRODLBaseService.Validate(iMessages: IRoPluginMessages);
+var
+  lSelfItems, lAncestorItems: IROStrings;
+  i, j: Integer;
+begin
+  inherited;
+  for i := 0 to Count-1 do begin
+    //Items[i].Validate(iMessages);
+    if (Items[i].Count = 0) and (Ancestor = '') then
+      iMessages.AddMessage(rmtWarning, Name+'.'+Items[i].Name, err_RodlNoOperationsDefined, -1, self);
+  end;
+
+  if (Ancestor <> '') then begin
+    if self is TRODLEventSink then begin
+      if not OwnerLibrary.IsValidEventSink(Ancestor) then begin
+        iMessages.AddMessage(rmtError, Name, Format(err_RodlInvalidAncestorType, [Ancestor]),-1, self);
+        Exit;
+      end;
+    end else begin
+      if not OwnerLibrary.IsValidService(Ancestor) then begin
+        iMessages.AddMessage(rmtError, Name, Format(err_RodlInvalidAncestorType, [Ancestor]),-1, self);
+        Exit;
+      end;
+    end;
+
+    if assigned(OwnerLibrary.FindBaseService(Ancestor)) then begin
+      if OwnerLibrary.FindBaseService(Ancestor).IsDerivedFrom(Self) then begin
+        iMessages.AddMessage(rmtError, Info.Name, Format(err_RodlCircularReference, [Name, Ancestor]), -1, self);
+        Exit;
+      end;
+
+      try
+        lSelfItems := Default.CalcItems(False, False);
+        lAncestorItems := OwnerLibrary.FindBaseService(Ancestor).Default.CalcItems(True, False);
+        for i := 0 to lSelfItems.Count - 1 do
+          for j := 0 to lAncestorItems.Count - 1 do
+            if CompareText(lSelfItems[i], lAncestorItems[j]) = 0 then
+              iMessages.AddMessage(rmtError, Name+'.'+lSelfItems[i], Format(err_RodlItemExistsInAnsector, [lSelfItems[i], TRODLEntity(lAncestorItems.Objects[j]).Owner.Owner.Name]), -1, Self);
+      except
+        on EROCircularReference do
+          iMessages.AddMessage(rmtWarning, Name, err_RodlCircularityWarning, -1, Self);
+      end;
+    end;
+  end;
+end;
+
+{ TRODLOperationParam }
+
+{constructor TRODLOperationParam.Create(const aName, aTypeName: string; aFlag: TRODLParamFlag; aOwner:TRODLEntity);
+begin
+  inherited Create(aName, aTypeName, aOwner);
+  Flag := aFlag;
+end;}
+
+function TRODLOperationParam.GetFlag: string;
+begin
+  result := RODLParamFlagNames[fFlag];
+end;
+
+procedure TRODLOperationParam.SetFlag(const aValue: string);
+var
+  lFlag: TRODLParamFlag;
+begin
+  for lFlag := Low(TRODLParamFlag) to High(TRODLParamFlag) do
+    if SameText(RODLParamFlagNames[lFlag], aValue) then begin
+      fFlag := lFlag;
+      exit;
+    end;
+  RaiseError(err_InvalidParamFlag, [aValue]);
+end;
+
+{ TRODLOperation }
+
+function TRODLOperation.Add(aParam: TRODLOperationParam): integer;
+begin
+  if aParam.fFlag = fResult then
+    RaiseError(err_MayNotAddResult);
+    
+  result := inherited Add(aParam)
+end;
+
+function TRODLOperation.Add: TRODLOperationParam;
+begin
+  result := TRODLOperationParam(inherited Add);
+  result.Info.Name := 'Param' + IntToStr(Count);
+end;
+
+function TRODLOperation.GetItemClass: TRODLEntityClass;
+begin
+  result := TRODLOperationParam;
+end;
+
+function TRODLOperation.GetItems(Index: integer): TRODLOperationParam;
+begin
+  result := TRODLOperationParam(inherited Items[Index]);
+end;
+
+function TRODLOperation.GetResult: TRODLOperationParam;
+{var
+  i: integer;}
+begin
+  result := fOperationResult;
+  {result := nil;
+  for i := 0 to (Count - 1) do
+    if (Items[i].Info.Flag = fResult) then begin
+      result := Items[i];
+      Exit;
+    end;}
+end;
+
+{ Makes sure the Result patrameter is always at the top of the list, so it
+  doesn't get in the way of sorting methods. } 
+
+{procedure TRODLOperation.MoveResult;
+var
+  i: integer;
+begin
+  for i := 0 to (Count - 1) do
+    if (Items[i].Info.Flag = fResult) then begin
+      if i <> 0 then fItems.Move(i,0);
+      Exit;
+    end;
+end;}
+
+
+function TRODLOperation.GetCodeBody(iLanguage: string): TStrings;
+var
+  lIndex:integer;
+begin
+  result := nil;
+
+  lIndex := fCodeBodies.IndexOf(iLanguage);
+  if lIndex > -1 then result := fCodeBodies.Objects[lIndex] as TStrings
+end;
+
+procedure TRODLOperation.SetCodeBody(iLanguage: string; Value: TStrings);
+var
+  lStrings:TStrings;
+  lIndex:integer;
+begin
+  if Assigned(Value) then begin
+    lStrings := GetCodeBody(iLanguage);
+    if not Assigned(lStrings) then begin
+      lStrings := TStringList.Create();
+      fCodeBodies.AddObject(Lowercase(iLanguage),lStrings);
+    end;
+    lStrings.Assign(Value);
+  end
+  else begin
+    lIndex := fCodeBodies.IndexOf(iLanguage);
+    if lIndex > 0 then fCodeBodies.Delete(lIndex);
+  end;
+end;
+
+procedure TRODLOperation.SetCodeBodyAsString(iLanguage: string; const Value: string);
+var
+  lStrings:TStrings;
+  lIndex:integer;
+begin
+  if Value <> '' then begin
+    lStrings := GetCodeBody(iLanguage);
+    if not Assigned(lStrings) then begin
+      lStrings := TStringList.Create();
+      fCodeBodies.AddObject(Lowercase(iLanguage),lStrings);
+    end;
+    lStrings.Text := Value;
+  end
+  else begin
+    lIndex := fCodeBodies.IndexOf(iLanguage);
+    if lIndex > 0 then fCodeBodies.Delete(lIndex);
+  end;
+end;
+
+constructor TRODLOperation.Create;
+begin
+  inherited;
+  fCodeBodies := TStringList.Create();
+  fCodeBodies.Sorted := true;
+  fCodeBodies.Duplicates := dupError;
+end;
+
+destructor TRODLOperation.Destroy;
+var i:integer;
+begin
+  RemoveResult;
+  for i := 0 to fCodeBodies.Count-1 do fCodeBodies.Objects[i].Free();
+  FreeAndNil(fCodeBodies);
+  inherited;
+end;
+
+function TRODLOperation.GetCodeBodyCount: integer;
+begin
+  result := fCodeBodies.Count;
+end;
+
+function TRODLOperation.GetCodeBodyLanguages(iIndex: integer): string;
+begin
+  result := fCodeBodies[iIndex];
+end;
+
+{procedure TRODLOperation.Exchange(Index1, Index2: integer);
+begin
+  MoveResult();
+  if Assigned(GetResult()) then begin
+    inc(Index1);
+    inc(Index2);
+  end;
+  inherited Exchange(Index1, Index2);
+end;}
+
+function TRODLOperation.AddResult: TRODLOperationParam;
+begin
+  if not Assigned(fOperationResult) then begin
+    fOperationResult := TRODLOperationParam.Create;
+    fOperationResult.fOwner := self;
+    fOperationResult.Flag := fResult;
+    fOperationResult.Name := 'Result';
+  end;
+  result := fOperationResult;
+end;
+
+procedure TRODLOperation.RemoveResult;
+begin
+  if Assigned(fOperationResult) then
+    FreeAndNil(fOperationResult);
+end;
+
+function TRODLOperation.GetParameter(const aParameterName: string): TRODLOperationParam;
+begin
+  result := TRODLOperationParam(ItemByName(aParameterName));
+  if result=NIL then raise EROUnknownItem.CreateFmt('Cannot find parameter %s', [aParameterName]);
+end;
+
+procedure TRODLOperation.Validate(iMessages: IROPluginMessages);
+begin
+  inherited;
+  if (Result <> nil) and (Result.DataType <> '') then begin
+    if not Owner.OwnerLibrary.IsValidType(Result.DataType) then
+      iMessages.AddMessage(rmtError,Info.Name+'.'+Name,Format(err_RodlInvalidDataType,[Result.DataType]),-1,Self);
+  end;
+end;
+
+{ TRODLServiceInterface }
+
+function TRODLServiceInterface.Add(aParam: TRODLOperation): integer;
+begin
+  result := inherited Add(aParam)
+end;
+
+function TRODLServiceInterface.Add: TRODLOperation;
+begin
+  result := TRODLOperation(inherited Add);
+  result.Info.Name := 'Operation' + IntToStr(Count);
+  result.Info.UID := NewGUID;
+end;
+
+function TRODLServiceInterface.GetOperation(
+  const anOperationName: string;
+  IncludeAnchestors : boolean = FALSE) : TRODLOperation;
+begin
+  result := FindOperation(anOperationName, IncludeAnchestors);
+  if (result=NIL) then raise EROUnknownItem.CreateFmt('Cannot find operation %s', [anOperationName]);
+end;
+
+procedure TRODLServiceInterface.GetOperationsList(AList: TList);
+var svc : TRODLService;
+    i: Integer;
+    lib : TRODLLibrary;
+begin
+  AList.Clear;
+
+  For i:=0 to Count-1 do
+    AList.Add(Items[i]);
+
+  lib := info.Owner.OwnerLibrary;
+  svc := lib.FindService((Owner as TRODLService).Info.Name);
+
+  while TRUE do begin
+    if (svc.Ancestor='') then Break;
+
+    svc := lib.GetService(svc.Ancestor);
+
+    For i:=0 to svc.Count-1 do
+      AList.Add(svc.Default.Items[i]);
+  end;
+end;
+
+function TRODLServiceInterface.GetItemClass: TRODLEntityClass;
+begin
+  result := TRODLOperation;
+end;
+
+function TRODLServiceInterface.GetItems(Index: integer): TRODLOperation;
+begin
+  result := TRODLOperation(inherited Items[Index]);
+end;
+
+function TRODLServiceInterface.FindOperation(const anOperationName : string; IncludeAnchestors : boolean = FALSE) : TRODLOperation;
+var svc : TRODLService;
+    i: Integer;
+    lib : TRODLLibrary;
+begin
+  result := NIL;
+  for i := 0 to (Count-1) do
+    if SameText(anOperationName, Items[i].Info.Name) then begin
+      result := Items[i];
+      Exit;
+    end;
+
+  if (result=NIL) and IncludeAnchestors then begin
+    lib := info.Owner.OwnerLibrary;
+    //intf := TRODLServiceInterface;
+    svc := lib.FindService((Owner as TRODLService).Info.Name);
+
+    while TRUE do begin
+      if (svc.Ancestor='') then Break;
+
+      svc := lib.GetService(svc.Ancestor);
+      result := svc.Default.FindOperation(anOperationName);
+
+      if (result<>NIL) then Exit;
+    end;
+  end;
+end;
+
+function TRODLServiceInterface.CalcItems(aIncludeAncestors, aIgnoreDuplicates: boolean): IROStrings;
+var
+  lAncestor, lDescendant: TRODLBaseService;
+  i: integer;
+begin
+  result := NewROStrings();
+  if aIgnoreDuplicates then begin
+    result.Sorted := True;
+    result.Duplicates := dupIgnore;
+  end;
+
+  lAncestor := self.Owner as TRODLBaseService;
+  repeat
+    for i := lAncestor.Default.Count-1 downto 0 do
+      result.AddObject(lAncestor.Default.Items[i].Name, lAncestor.Default.Items[i]);
+
+    lDescendant := lAncestor;
+    if lAncestor.Ancestor <> '' then
+      lAncestor := OwnerLibrary.FindService(lAncestor.Ancestor)
+    else
+      lAncestor := nil;
+
+    if aIncludeAncestors and aIncludeAncestors and assigned(lAncestor) and lAncestor.IsDerivedFrom(lDescendant) then
+      RaiseError(err_RodlCircularReference, [lDescendant.Name, lAncestor.Name], EROCircularReference);
+
+  until (not Assigned(lAncestor)) or (not aIncludeAncestors);
+end;
+
+{ TRODLLibrary }
+
+function TRODLLibrary.Add(anEntity: TRODLEntity): integer;
+begin
+  if (anEntity is TRODLArray) then
+    Inc(fArrayCount)
+  else if (anEntity is TRODLEnum) then
+    Inc(fEnumCount)
+  else if (anEntity is TRODLStruct) then
+    Inc(fStructCount)
+  else if (anEntity is TRODLService) then
+    Inc(fServiceCount)
+  else if (anEntity is TRODLUse) then
+    Inc(fUseCount)
+  else if (anEntity is TRODLException) then
+    Inc(fExceptionCount)
+  else if (anEntity is TRODLEventSink) then
+    Inc(fEventSinkCount)
+  else if (anEntity is TRODLGroup) then
+    Inc(fGroupCount);
+
+  result := inherited Add(anEntity);
+end;
+
+function TRODLLibrary.GetItemClass: TRODLEntityClass;
+begin
+  result := TRODLEntity;
+end;
+
+procedure TRODLLibrary.Remove(anEntity: TRODLEntity);
+var
+  i: Integer;
+begin
+  if (anEntity is TRODLGroup) then begin
+    for i := 0 to Count-1 do
+      if Items[i].GroupUnder = anEntity then
+        Items[i].GroupUnder := anEntity.GroupUnder;
+  end
+  else if (anEntity is TRODLUse) then begin
+    for i := Count-1 downto 0 do
+      if Items[i].LocatedInRodlUse = anEntity then
+        Remove(Items[i]);
+  end;
+
+  if (anEntity is TRODLArray) then
+    Dec(fArrayCount)
+  else if (anEntity is TRODLEnum) then
+    Dec(fEnumCount)
+  else if (anEntity is TRODLStruct) then
+    Dec(fStructCount)
+  else if (anEntity is TRODLService) then
+    Dec(fServiceCount)
+  else if (anEntity is TRODLUse) then
+    Dec(fUseCount)
+  else if (anEntity is TRODLException) then
+    Dec(fExceptionCount)
+  else if (anEntity is TRODLEventSink) then
+    Dec(fEventSinkCount)
+  else if (anEntity is TRODLGroup) then
+    Dec(fGroupCount);
+
+  inherited;
+end;
+
+procedure TRODLLibrary.Delete(Index: integer);
+var
+  item: TRODLEntity;
+begin
+  item := Items[Index];
+  Remove(item);
+  inherited Delete(Index);
+end;
+
+function TRODLLibrary.GetArray(Index: integer): TRODLArray;
+begin
+  if (Index > ArrayCount - 1) then RaiseError(err_InvalidIndex, [Index]);
+  result := GetByType(Index,TRODLArray) as TRODLArray;
+end;
+
+procedure TRODLLibrary.GetArraysByElement(const aElementName: string;
+  AList: TStringList);
+var
+  i: integer;
+begin
+  AList.Clear;
+  for i := 0 to ArrayCount-1 do
+    if CompareText(Arrays[i].ElementType,aElementName) = 0 then
+      AList.Add(Arrays[i].Name);
+end;
+
+function TRODLLibrary.GetEnums(Index: integer): TRODLEnum;
+begin
+  if (Index > EnumCount - 1) then RaiseError(err_InvalidIndex, [Index]);
+  result := GetByType(Index,TRODLEnum) as TRODLEnum;
+end;
+
+function TRODLLibrary.GetServices(Index: integer): TRODLService;
+begin
+  if (Index > ServiceCount - 1) then RaiseError(err_InvalidIndex, [Index]);
+  result := GetByType(Index,TRODLService) as TRODLService;
+end;
+
+function TRODLLibrary.GetStructs(Index: integer): TRODLStruct;
+begin
+  if (Index > StructCount - 1) then RaiseError(err_InvalidIndex, [Index]);
+  result := GetByType(Index,TRODLStruct) as TRODLStruct;
+end;
+
+function TRODLLibrary.GetExceptions(Index: integer): TRODLException;
+begin
+  if (Index > ExceptionCount - 1) then RaiseError(err_InvalidIndex, [Index]);
+  result := GetByType(Index,TRODLException) as TRODLException;
+end;
+
+function TRODLLibrary.GetUse(Index: integer): TRODLUse;
+begin
+  if (Index > UseCount - 1) then RaiseError(err_InvalidIndex, [Index]);
+  result := GetByType(Index,TRODLUse) as TRODLUse;
+end;
+
+function TRODLLibrary.GetGroups(Index: integer): TRODLGroup;
+begin
+  if (Index > GroupCount - 1) then RaiseError(err_InvalidIndex, [Index]);
+  result := GetByType(Index,TRODLGroup) as TRODLGroup;
+end;
+
+function TRODLLibrary.GetEventSinks(Index: integer): TRODLEventSink;
+begin
+  if (Index > EventSinkCount - 1) then RaiseError(err_InvalidIndex, [Index]);
+  result := GetByType(Index,TRODLEventSink) as TRODLEventSink;
+end;
+
+function TRODLLibrary.GetByType(aIndex:integer; aType:TRODLEntityClass):TRODLEntity;
+var
+  i, c: integer;
+begin
+  result := nil;
+  if (aIndex < 0) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  c := -1;
+  for i := 0 to (Count - 1) do begin
+    if (Items[i] is aType) then Inc(c);
+    if (c = aIndex) then begin
+      result := Items[i];
+      Exit;
+    end;
+  end;
+end;
+
+
+constructor TRODLLibrary.Create;
+begin
+  inherited;
+  Info.Name := 'NewLibrary';
+  Info.UID := NewGUID;
+end;
+
+function TRODLLibrary.IsValidCustomType(const iTypeName: string): boolean;
+var
+  i:integer;
+begin
+  result := false;
+  for i := 0 to ArrayCount-1 do begin
+    if CompareText(Arrays[i].Info.Name,iTypeName) = 0 then begin
+      result := true;
+      exit;
+    end;
+  end;
+  for i := 0 to StructCount-1 do begin
+    if CompareText(Structs[i].Info.Name,iTypeName) = 0 then begin
+      result := true;
+      exit;
+    end;
+  end;
+  for i := 0 to EnumCount-1 do begin
+    if CompareText(Enums[i].Info.Name,iTypeName) = 0 then begin
+      result := true;
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.IsValidSimpleType(const iTypeName: string): boolean;
+var
+  d:TRODataType;
+  i: Integer;
+begin
+  result := false;
+  for d := Low(TRODataType) to High(TRODataType) do begin
+    if (not (d in [rtUserDefined])) and
+       (CompareText(DataTypeNames[d],iTypeName) = 0) then begin
+      result := true;
+      exit;
+    end;
+  end;
+  for i := Low(DataTypeRemapping) to High(DataTypeRemapping) do begin
+    if CompareText(DataTypeRemapping[i].Name, iTypeName) = 0 then begin
+      result := true;
+      exit;
+    end;
+  end;
+end;
+
+
+function TRODLLibrary.IsValidType(const iTypeName: string): boolean;
+begin
+  result := IsValidCustomType(iTypeName) or IsValidSimpleType(iTypeName);
+end;
+
+function TRODLLibrary.FindStruct(const iStructName: string): TRODLStruct;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to StructCount-1 do begin
+    if CompareText(Structs[i].Info.Name,iStructName) = 0 then begin
+      result := Structs[i];
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.FindBaseStruct(const iStructName: string): TRODLBaseStruct;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to Count-1 do begin
+    if (Items[i] is TRODLBaseStruct) and (CompareText(Items[i].Info.Name,iStructName) = 0) then begin
+      result := Items[i] as TRODLBaseStruct;
+      exit;
+    end;
+  end;
+end;
+
+
+function TRODLLibrary.FindEnum(const iEnumName: string): TRODLEnum;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to EnumCount-1 do begin
+    if CompareText(Enums[i].Info.Name,iEnumName) = 0 then begin
+      result := Enums[i];
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.FindArray(const iArrayName: string): TRODLArray;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to ArrayCount-1 do begin
+    if CompareText(Arrays[i].Info.Name,iArrayName) = 0 then begin
+      result := Arrays[i];
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.FindGroup(const aID: TGUID): TRODLGroup;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to GroupCount-1 do begin
+    if IsEqualGUID(Groups[i].UID,aID) then begin
+      result := Groups[i];
+      exit;
+    end;
+  end;
+end;
+
+
+function TRODLLibrary.IsValidService(const iServiceName: string): boolean;
+var
+  i:integer;
+begin
+  result := false;
+  for i := 0 to ServiceCount-1 do begin
+    if CompareText(Services[i].Info.Name,iServiceName) = 0 then begin
+      result := true;
+      exit;
+    end;
+  end;
+end;
+
+
+function TRODLLibrary.FindBaseService(const iServiceName: string): TRODLBaseService;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to Count-1 do begin
+    if (Items[i] is TRODLBaseService) and (CompareText(Items[i].Info.Name,iServiceName) = 0) then begin
+      result := Items[i] as TRODLBaseService;
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.FindService(const iServiceName: string):TRODLService;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to ServiceCount-1 do begin
+    if CompareText(Services[i].Info.Name,iServiceName) = 0 then begin
+      result := Services[i];
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.FindException(const iExceptionName: string):TRODLException;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to ExceptionCount-1 do begin
+    if CompareText(Exceptions[i].Info.Name,iExceptionName) = 0 then begin
+      result := Exceptions[i];
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.FindUse(const iUseName: string):TRODLUse;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to fUseCount-1 do begin
+    if CompareText(Use[i].Info.Name,iUseName) = 0 then begin
+      result := Use[i];
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.FindUseByFilename(const iUseRODLFile: string):TRODLUse;
+var
+  i:integer;
+begin
+  result := nil;
+  for i := 0 to fUseCount-1 do begin
+    if CompareText(Use[i].RodlFile, iUseRODLFile) = 0 then begin
+      result := Use[i];
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.IsValidException(const iTypeName:string):boolean;
+var
+  i:integer;
+begin
+  result := false;
+  for i := 0 to ExceptionCount-1 do begin
+    if CompareText(Exceptions[i].Info.Name,iTypeName) = 0 then begin
+      result := true;
+      exit;
+    end;
+  end;
+end;
+
+function TRODLLibrary.CalcServiceOrder: IROStrings;
+var
+  lEntities:IROStrings;
+  i:integer;
+begin
+  lEntities := NewROStrings();
+  for i := ServiceCount-1 downto 0 do begin
+    if not Services[i].IsFromUsedRodl then
+      lEntities.AddObject(Services[i].Info.Name,Services[i])
+  end;
+  result := CalcOrder(lEntities);
+end;
+
+function TRODLLibrary.CalcEventSinkOrder: IROStrings;
+var
+  lEntities:IROStrings;
+  i:integer;
+begin
+  lEntities := NewROStrings();
+  for i := EventSinkCount-1 downto 0 do begin
+    if not EventSinks[i].IsFromUsedRodl then
+      lEntities.AddObject(EventSinks[i].Info.Name,EventSinks[i])
+  end;
+  result := CalcOrder(lEntities);
+end;
+
+function TRODLLibrary.CalcStructOrder: IROStrings;
+var
+  lEntities:IROStrings;
+  i:integer;
+begin
+  lEntities := NewROStrings();
+  for i := StructCount-1 downto 0 do begin
+    if not Structs[i].IsFromUsedRodl then
+      lEntities.AddObject(Structs[i].Info.Name,Structs[i])
+  end;
+  result := CalcOrder(lEntities);
+end;
+
+function TRODLLibrary.CalcExceptionOrder: IROStrings;
+var
+  lEntities:IROStrings;
+  i:integer;
+begin
+  lEntities := NewROStrings();
+  for i := ExceptionCount-1 downto 0 do begin
+    if not Exceptions[i].IsFromUsedRodl then
+      lEntities.AddObject(Exceptions[i].Info.Name,Exceptions[i])
+  end;
+  result := CalcOrder(lEntities);
+end;
+
+function TRODLLibrary.CalcOrder(const iObjects:IROStrings):IROStrings;
+var
+  lAncestors:IROStrings;
+  i,lIndex:integer;
+  lEntity:TRODLEntity;
+  lWorked:boolean;
+begin
+  lAncestors := NewROStrings();
+  result := NewROStrings();
+
+  for i := 0 to iObjects.Count-1 do begin
+    lEntity := iObjects.Objects[i] as TRODLEntity;
+    lAncestors.AddObject((lEntity as IRODLEntityWithAncestor).Ancestor,lEntity)
+  end;
+
+  for i := lAncestors.Count-1 downto 0 do begin
+    if lAncestors[i] <> '' then lIndex := iObjects.IndexOf(lAncestors[i]) else lIndex := -1; { else needed to keep the warning away only }
+    if (lAncestors[i] = '') or (lIndex = -1) then begin
+      result.AddObject((lAncestors.Objects[i] as TRODLEntity).Info.Name,lAncestors.Objects[i]);
+      lAncestors.Delete(i);
+    end;
+  end;
+
+  while lAncestors.Count > 0 do begin
+    lWorked := false;
+    for i := lAncestors.Count-1 downto 0 do begin
+      lIndex := result.IndexOf(lAncestors[i]);
+      if (lIndex > -1) then begin
+        result.InsertObject(lIndex+1,(lAncestors.Objects[i] as TRODLEntity).Info.Name,lAncestors.Objects[i]);
+        lAncestors.Delete(i);
+        lWorked := true;
+      end;
+    end;
+    if (not lWorked) and (lAncestors.Count > 0) then
+      RaiseError('Invalid or recursive inheritance for the following entities: '+lAncestors.Text);
+  end;
+end;
+
+function TRODLLibrary.GetService(const aServiceName: string): TRODLService;
+begin
+  result := FindService(aServiceName);
+  if result=NIL then raise EROUnknownItem.CreateFmt('Cannot find service %s', [aServiceName])
+end;
+
+function TRODLLibrary.GetStruct(const aStructName: string): TRODLStruct;
+begin
+  result := FindStruct(aStructName);
+  if result=NIL then raise EROUnknownItem.CreateFmt('Cannot find struct %s', [aStructName])
+end;
+
+procedure TRODLLibrary.ClearDuplicates;
+var
+  lID: string;
+  lItem: TRODLEntity;
+  lIDs: TStringList;
+  i: Integer;
+const
+  EMPTY_GUID = '{00000000-0000-0000-0000-000000000000}';  
+begin
+  lIDs := TStringList.Create();
+  try
+    lIDs.Duplicates := dupError;
+    lIDs.Sorted := true;
+    for i := Count-1 downto 0 do begin
+      lItem := Items[i];
+      
+      if (lItem is TRODLUse) then continue; { removing duplicate uses would blow up the order; and they do no harm anyway }
+      lID := GUIDToString(lItem.UID);
+      if SameText(lID, EMPTY_GUID) then continue;
+
+      if (lIDs.IndexOf(lID) > -1) and (not SameText(lID, EMPTY_GUID)) then begin
+        {$IFDEF DEBUG_REMOBJECTS_RODL}
+        DebugServer.Write('Removing duplicate %s %s (%s)',[lItem.ReadableEntityTypeName, lItem.Name, lID]);
+        {$ENDIF}
+        Remove(lItem);
+      end
+      else begin
+        lIDs.Add(lID);
+      end;
+    end; { for }
+  finally
+    lIDs.Free();
+  end;
+end;
+
+procedure TRODLLibrary.GetArraysByElement(const aElementName: string;
+  AList: TList);
+var
+  i: integer;
+begin
+  AList.Clear;
+  for i := 0 to ArrayCount-1 do
+    if CompareText(Arrays[i].ElementType,aElementName) = 0 then
+      AList.Add(Arrays[i]);
+end;
+
+function TRODLLibrary.IsValidEventSink(
+  const iEventSink: string): boolean;
+var
+  i: integer;
+begin
+  result := false;
+
+  for i := 0 to EventSinkCount-1 do begin
+    if CompareText(EventSinks[i].Info.Name,iEventsink) = 0 then begin
+      result := true;
+      exit;
+    end;
+  end;
+end;
+
+{ TRODLArray }
+
+procedure TRODLArray.SetElementType(const Value: string);
+begin
+  fElementType := Trim(Value);
+end;
+
+procedure TRODLArray.Validate(iMessages:IRoPluginMessages); 
+//function TRODLArray.Validate(out FaultyEntity: TRODLEntity; out ErrorMessage: string): boolean;
+begin
+  inherited;
+  if (ElementType = '') then
+    iMessages.AddMessage(rmtError,Info.Name,err_RodlNoDataTypeSpecified,-1,self);
+
+  if (ElementType <> '') and not OwnerLibrary.IsValidType(ElementType) then
+    iMessages.AddMessage(rmtError,Info.Name,Format(err_RodlInvalidDataType,[ElementType]),-1,Owner);
+end;
+
+{ TRODLConverter }
+
+constructor TRODLConverter.Create(const aLibraryFile: string; const aTargetEntity: string = '');
+var
+  lLibrary: TRODLLibrary;
+begin
+  with TXMLToRODL.Create(nil) do try
+    lLibrary := ReadFromFile(aLibraryFile);
+    try
+      Self.Create(lLibrary, aTargetEntity);
+    finally
+      FreeAndNil(lLibrary);
+    end;
+  finally
+    Free;
+  end;
+end;
+
+constructor TRODLConverter.Create(const aLibrary: TRODLLibrary; const aTargetEntity: string = '');
+begin
+  inherited Create;
+
+  fBuffer := TStringList.Create;
+  if (aLibrary <> nil) then Convert(aLibrary, aTargetEntity);
+end;
+
+destructor TRODLConverter.Destroy;
+begin
+  fBuffer.Free;
+  inherited;
+end;
+
+procedure TRODLConverter.Convert(const aLibrary: TRODLLibrary; const aTargetEntity: string = '');
+begin
+  if (aLibrary = nil) then
+    RaiseError(err_InvalidLibrary, [])
+  else if (aTargetEntity<>'') and not ValidateTargetEntity(aLibrary, aTargetEntity) then
+    RaiseError(err_InvalidTargetEntity, [aTargetEntity]);
+
+  fTargetEntity := aTargetEntity;
+
+  fBuffer.Clear;
+  IntConvert(aLibrary, aTargetEntity);
+end;
+
+function TRODLConverter.GetBuffer: TStrings;
+begin
+  result := fBuffer as TStrings;
+end;
+
+function TRODLConverter.ValidateTargetEntity(const aLibrary: TRODLLibrary; const aTargetEntity: string): boolean;
+begin
+  result := aLibrary.FindService(aTargetEntity)<>NIL;
+end;
+
+procedure TRODLConverter.Write(const someText: string; Indentation: integer = 0);
+var
+  i: integer;
+  s: string;
+begin
+  s := '';
+
+  for i := 1 to Indentation do
+    s := s + ' ';
+  s := s + someText;
+
+  fBuffer.Add(s)
+end;
+
+procedure TRODLConverter.WriteLines(const someText: string);
+begin
+  fBuffer.Text := fBuffer.Text + someText;
+end;
+
+procedure TRODLConverter.WriteEmptyLine;
+begin
+  fBuffer.Add('');
+end;
+
+class function TRODLConverter.GetTargetFileName(const aLibrary: TRODLLibrary;
+  const aTargetEntity: string): string;
+begin
+{$IFDEF FPC}
+  if (aLibrary <> nil) or (aTargetEntity <> '') then result := '' else // preventing warnings in FPC
+{$ENDIF}
+  result := '';
+end;
+
+{ TRODLReader }
+
+constructor TRODLReader.Create;
+begin
+end;
+
+function TRODLReader.Read(aStream: TStream; const aFilename:string): TRODLLibrary;
+begin
+  if (aStream = nil) then RaiseError(err_InvalidStream, []);
+  result := IntReadFromStream(aStream, aFilename)
+end;
+
+function TRODLReader.ReadFromFile(const aFileName: string): TRODLLibrary;
+var
+  fs: TFileStream;
+begin
+  fs := TFileStream.Create(aFileName, fmOpenRead);
+  try
+    result := Read(fs, aFilename)
+  finally
+    fs.Free;
+  end;
+end;
+
+{ TRODLException }
+
+procedure TRODLException.Validate(iMessages: IRoPluginMessages);
+begin
+  inherited;
+
+  if (Ancestor <> '') and not OwnerLibrary.IsValidException(Ancestor) then
+    iMessages.AddMessage(rmtError,Info.Name,Format(err_RodlInvalidAncestorType,[Ancestor]),-1,self);
+end;
+
+{ TRODLUse }
+
+procedure TRODLUse.Validate(iMessages: IRoPluginMessages);
+begin
+  inherited;
+
+  if not (FileExists(ExpandVariables(fRodlFile)) or FileExists(fAbsoluteRodlFile)) then
+   iMessages.AddMessage(rmtWarning,ExtractFileName(fRodlFile),Format(err_RodlUsedFileDoesNotExist,[ExpandVariables(fRodlFile)]),-1,self);
+
+
+end;
+
+{ TXMLToRODL }
+
+constructor TXMLToRODL.Create(iAddToExisting: TRODLLibrary; iRecreateGuids:boolean=false);
+begin
+  Create();
+  fAddToExistingLibrary := iAddToExisting;
+  fRecreateGuids := iRecreateGuids;
+end;
+
+function TXMLToRODL.IntReadFromStream(aStream: TStream; aFilename:string): TRODLLibrary;
+begin
+  if Assigned(fAddToExistingLibrary) then begin
+    result := fAddToExistingLibrary;
+    LoadStreamToLibrary(aStream, result, aFilename, nil, false); // Don't set RODL Attributes
+  end
+  else begin
+    result := TRODLLibrary.Create();
+    result.RodlFilename := aFilename;
+    LoadStreamToLibrary(aStream, result, aFilename);
+  end;
+end;
+
+procedure TXMLToRODL.LoadFileToLibrary(iFilename: string; iLibrary: TRODLLibrary; iRodlUse:TRODLUse=nil);
+var
+  lStream: TStream;
+begin
+  //ToDo: resolve relative filenames; handle http filenames, etc.
+
+  lStream := TFileStream.Create(iFilename, fmOpenRead);
+  try
+    LoadStreamToLibrary(lStream, iLibrary, iFilename, iRodlUse);
+  finally
+    lStream.Free();
+  end;
+end;
+
+function GetNodeAttribute(aNode: IXMLNode; const anAttributeName: string): string;
+var
+  lAtrributeNode: IXMLNode;
+begin
+  Result := '';
+  if Assigned(aNode) then begin
+    lAtrributeNode := aNode.GetAttributeByName(anAttributeName);
+    if Assigned(lAtrributeNode) then result := lAtrributeNode.Value;
+  end else
+    if CompareText(anAttributeName, 'UID') = 0 then result := GUIDToString(EmptyGUID);
+end;
+
+function ExpandFileNameByBase(const iBase, iFilename:string):string; overload;
+var
+  lCurrentDir:string;
+begin
+  lCurrentDir := GetCurrentDir();
+  SetCurrentDir(iBase);
+  try
+    result := ExpandFileName(iFilename);
+  finally
+    SetCurrentDir(lCurrentDir);
+  end;
+end;
+
+function FixLegacyTypes(aType: string): string;
+begin
+  if LowerCase(aType) = 'string' then result := 'AnsiString'
+  else result := aType;
+end;
+
+function XMLFlagNameToFlag(const aName: string): TRODLParamFlag;
+var
+  f: TRODLParamFlag;
+begin
+  result := fIn;
+
+  for f := Low(TRODLParamFlag) to High(TRODLParamFlag) do
+    if (CompareText(XMLFlagNames[f], aName) = 0) then begin
+      result := f;
+      Exit;
+    end;
+
+  RaiseError(err_InvalidParamFlag, [aName]);
+end;
+
+procedure TXMLToRODL.LoadStreamToLibrary(aStream: TStream; iLibrary: TRODLLibrary; iRodlName: string = ''; iRodlUse: TRODLUse=nil; iReplaceLibraryAttributes:boolean=true);
+var
+  fGroupGuidList: TStringList;
+
+  procedure ReadAttributes(anXMLNode: IXMLNode; aEntity: TRODLEntity);
+  var
+    lGroupID: string;
+    i, k: integer;
+    lName, lValue: string;
+    lNode,lChildNode:IXMLNode;
+  begin
+    if (anXMLNode = nil) then Exit;
+
+    { read legacy v2.0 documentation attribues }
+    if (anXMLNode.GetAttributeByName('Documentation') <> nil) then begin
+      aEntity.Documentation := anXMLNode.GetAttributeByName('Documentation').Value;
+    end;
+
+    lValue := '';
+    for i := 0 to (anXMLNode.ChildrenCount-1) do begin
+
+      lNode :=anXMLNode.Children[i];
+      if (lNode.Name = 'CustomAttributes') then begin
+
+        for k := 0 to (lNode.ChildrenCount-1) do begin
+          lChildNode := lNode.Children[k];
+          lName := lChildNode.Name;
+
+          if (lName = '#text') then Continue;
+          if (lChildNode.GetAttributeByName('Value') <> nil) then begin
+            lValue := lChildNode.GetAttributeByName('Value').Value;
+          end
+          else begin
+            lValue := '';
+          end;
+          if lName = 'SOAPName' then aEntity.OriginalName := lValue;
+          aEntity.Attributes.Values[lName] := lValue;
+        end;
+
+        Exit;
+      end
+      else if lNode.Name = 'Documentation' then begin
+        aEntity.Documentation := lNode.Value
+      end
+      else if lNode.Name = 'Group' then begin
+        lGroupID := lNode.GetAttributeValue('Under','');
+        if lGroupID <> '' then begin
+          aEntity.GroupUnder := iLibrary.FindGroup(StringToGUID(lGroupID));
+          if aEntity.GroupUnder = nil then begin
+            lGroupID := fGroupGuidList.Values[lGroupId];
+            if lGroupID <> '' then
+              aEntity.GroupUnder := iLibrary.FindGroup(StringToGUID(lGroupID));
+
+          end;
+        end;
+      end;
+
+    end;
+  end;
+
+  function RODLFileIsUsed(aRODL: string): boolean;
+  var
+    i: integer;
+  begin
+    Result:=False;
+    if ARodl <> '' then
+      if FileExists(ARodl) then
+        For i := 0 to iLibrary.UseCount -1 do begin
+          if SameText(ExpandVariables(iLibrary.Use[i].RodlFile),aRODL) or SameText(iLibrary.Use[i].AbsoluteRodlFile, aRODL) then begin
+            Result:=True;
+            Break;
+          end;
+      end;
+  end;
+  function LoadRoles(aNode: IXMLNode): TStringArray;
+  var
+    c, i: Integer;
+    lAllow, lDeny: IXMLNodeList;
+  begin
+    aNode := aNode.GetNodeByName('Roles');
+    if aNode = nil then begin SEtLength(Result, 0); exit; end;
+    lAllow := aNode.GetNodesByName('AllowRole');
+    lDeny := aNode.GetNodesByName('DenyRole');
+    c := 0;
+    if assigned(lAllow) then c := c + lAllow.Count;
+    if assigned(lDeny) then c := c + lDeny.Count;
+    SetLength(Result, c);
+    c := 0;
+    if assigned(lAllow) then
+      for i := 0 to lAllow.Count -1 do begin
+        Result[c] := VarToStrDef(lAllow[i].Value, '');
+        inc(c);
+      end;
+    if assigned(lDeny) then
+      for i := 0 to lDeny.Count -1 do begin
+        Result[c] := '!'+VarToStrDef(lDeny[i].Value, '');
+        inc(c);
+      end;
+  end;
+
+var
+  lFlag: TRODLParamFlag;
+  //domimpl: TDomImplementation;
+  //parser: TXmlToDomParser;
+  xmldoc: IXMLDocument;
+  list,
+    sublist,
+    subsublist,
+    lastlist: IXMLNodeList;
+  i, k, m, p: Integer;
+
+  lParentNode:IXMLNode;
+
+  struct: TRODLStruct;
+  stelem: TRODLTypedEntity;
+  arr: TRODLArray;
+  lUse: TRODLUse;
+  lEventSink: TRODLEventSink;
+  lFilename:string;
+  lException: TRODLException;
+  lGroup: TRODLGroup;
+  svc: TRODLService;
+  enum: TRODLEnum;
+  eval: TRODLEnumValue;
+  intf: TRODLServiceInterface;
+  op: TRODLOperation;
+  par: TRODLOperationParam;
+
+begin
+  fGroupGuidList:= TStringList.Create;
+  try
+    xmldoc := NewROXmlDocument();
+    aStream.Position := 0;
+    xmldoc.New();
+    xmldoc.LoadFromStream(aStream);
+
+    if not Assigned(iRodlUse) then begin
+      // Library
+      if Assigned(xmldoc.DocumentNode) then begin
+        if iReplaceLibraryAttributes then begin
+          iLibrary.Name := GetNodeAttribute(xmldoc.DocumentNode, 'Name');
+          iLibrary.Namespace := GetNodeAttribute(xmldoc.DocumentNode, 'Namespace');
+          iLibrary.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(xmldoc.DocumentNode, 'UID')));
+          //iLibrary.Documentation := GetNodeAttribute(xmldoc.DocumentNode, 'Documentation');
+
+          ReadAttributes(xmldoc.DocumentNode, iLibrary);
+        end;
+      end;
+    end else
+    begin
+      iRodlUse.LoadedRodlLibraryName := GetNodeAttribute(xmldoc.DocumentNode, 'Name');
+      //
+    end;
+
+    // Groups
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('Groups');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('Group');
+      if Assigned(list) then
+      begin
+        for i := 0 to (list.Count-1) do begin
+          lGroup := TRODLGroup.Create;
+          lGroup.IsFromUsedRodl := iRodlUse <> nil;
+          lGroup.LocatedInRodlUse := iRodlUse;
+          lGroup.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          //lGroup.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          lGroup.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+          fGroupGuidList.Add(GetNodeAttribute(list.Nodes[i], 'UID')+'='+GUIDToString(lGroup.Uid));
+
+          iLibrary.Add(lGroup);
+        end;
+        for i := 0 to List.count -1 do begin
+          lGroup := iLibrary.Groups[iLibrary.GroupCount - List.count + i];
+          ReadAttributes(list.Nodes[i], lGroup);
+        end;
+      end;
+    end; // Groups
+
+    // Uses
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('Uses');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('Use');
+      if Assigned(list) then begin
+        for i := 0 to (list.Count-1) do begin
+          if RODLFileIsUsed(GetNodeAttribute(list.Nodes[i], 'AbsoluteRodl')) then Continue;
+          if RODLFileIsUsed(ExpandVariables(GetNodeAttribute(list.Nodes[i], 'Rodl'))) then Continue;
+          lUse := TRODLUse.Create;
+          lUse.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          //lUse.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          lUse.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+          lUse.RodlFile := GetNodeAttribute(list.Nodes[i], 'Rodl');
+          lUse.AbsoluteRodlFile := GetNodeAttribute(list.Nodes[i], 'AbsoluteRodl');
+          lUse.GenerateCode := GetNodeAttribute(list.Nodes[i], 'GenerateCode') = '1';
+          lUse.SplitMode := TRODLUseSplitMode(StrToIntDef(GetNodeAttribute(list.Nodes[i], 'SplitMode'), Integer(usmAsParent)));
+
+          ReadAttributes(list.Nodes[i], lUse);
+
+          lUse.IsFromUsedRodl := Assigned(iRodlUse);
+          lUse.LocatedInRodlUse := iRodlUse;
+
+          iLibrary.Add(lUse);
+
+          try
+            with self.ClassType.Create do try
+              {$IFDEF DEBUG_REMOBJECTS_RODLTOXML}
+              DebugServer.Write('Used RODL "%s"',[lUse.RodlFile]);
+              {$ENDIF}
+
+              lFilename := ExpandVariables(lUse.RodlFile);
+              if iRodlName <> '' then begin
+                if lUse.LocatedInRodlUse <> nil then
+                  lFilename := ExpandFileNameByBase(ExtractFilePath(lUse.LocatedInRodlUse.AbsoluteRodlFile),lFilename)
+                else
+                  lFilename := ExpandFileNameByBase(ExtractFilePath(iRodlName),lFilename);
+                if FileExists(lFilename) then
+                  lUse.AbsoluteRodlFile := lFilename;
+              end;
+              if (not FileExists(lFilename)) and (lUse.AbsoluteRodlFile <> '') then begin
+                lFilename := lUse.AbsoluteRodlFile;
+                if FileExists(lFilename) then
+                  lUse.RodlFile := lFilename;
+              end;
+
+              {$IFDEF DEBUG_REMOBJECTS_RODLTOXML}
+              DebugServer.Write('Loading "%s"',[lFilename]);
+              {$ENDIF}
+
+              LoadFileToLibrary(lFilename, iLibrary, lUse);
+            finally
+              Free();
+            end;                          { with }
+          except
+            { ignore if an included RODL cannot be found, for most cases it wont be needed to do the CodeGen }
+          end;
+
+        end;
+      end;
+    end; // Uses
+
+    // Services
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('Services');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('Service');
+      if Assigned(list) then begin
+        for i := 0 to (list.Count-1) do begin
+          svc := TRODLService.Create;
+          svc.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          //svc.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          svc.Ancestor := GetNodeAttribute(list.Nodes[i], 'Ancestor');
+          svc.Roles := LoadRoles(list.Nodes[i]);
+
+          svc.ImplUnit := GetNodeAttribute(list.Nodes[i], 'ImplUnit');
+          svc.ImplClass := GetNodeAttribute(list.Nodes[i], 'ImplClass');
+          svc.Abstract := GetNodeAttribute(list.Nodes[i], 'Abstract') = '1';
+          svc.isPrivate := GetNodeAttribute(list.Nodes[i], 'Private') = '1';
+          svc.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+
+          ReadAttributes(list.Nodes[i], svc);
+
+          // Default interface
+          // TODO: Implement multiple interfaces in the future. Not needed now
+          lParentNode := list.Nodes[i].GetNodeByName('Interfaces');
+          if Assigned(lParentNode) then begin
+            sublist := lParentNode.GetNodesByName('Interface');
+            if Assigned(sublist) and (sublist.Count > 0) then begin
+              //later: for k := 0 to (sublist.Length-1) do begin
+              k := 0;
+
+              intf := svc.Default;
+              intf.Name := GetNodeAttribute(sublist.Nodes[k], 'Name');
+              intf.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(sublist.Nodes[k], 'UID'))); // Fixed thanks to a compiler warning! Was using m as index
+              //intf.Documentation := GetNodeAttribute(sublist.Nodes[k], 'Documentation');
+
+              ReadAttributes(sublist.Nodes[k], intf);
+
+              // Operations
+              lParentNode := sublist.Nodes[k].GetNodeByName('Operations');
+              if Assigned(lParentNode) then begin
+                subsublist := lParentNode.GetNodesByName('Operation');
+                if Assigned(subsublist) then begin
+                  for m := 0 to (subsublist.Count-1) do begin
+                    op := intf.Add;
+                    op.Roles := LoadRoles(subsublist.Nodes[m]);
+                    op.Name := GetNodeAttribute(subsublist.Nodes[m], 'Name');
+                    //op.Documentation := GetNodeAttribute(subsublist.Nodes[m], 'Documentation');
+                    op.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(subsublist.Nodes[m], 'UID')));
+                    op.ForceAsyncResponse := GetNodeAttribute(subsublist.Nodes[m], 'ForceAsyncResponse') = '1';
+
+                    ReadAttributes(subsublist.Nodes[m], op);
+
+                    // Parameters
+                    lParentNode := subsublist.Nodes[m].GetNodeByName('Parameters');
+                    if Assigned(lParentNode) then begin
+                      lastlist := lParentNode.GetNodesByName('Parameter');
+                      if Assigned(lastlist) then begin
+                        for p := 0 to (lastlist.Count-1) do begin
+                          lFlag := XMLFlagNameToFlag(GetNodeAttribute(lastlist.Nodes[p], 'Flag'));
+                          case lFlag of
+                            fResult:par := op.AddResult();
+                            else par := op.Add();
+                          end;    { case }
+                          par.Name := GetNodeAttribute(lastlist.Nodes[p], 'Name');
+                          //par.Documentation := GetNodeAttribute(lastlist.Nodes[p], 'Documentation');
+                          par.Flag := lFlag;
+                          par.DataType := FixLegacyTypes(GetNodeAttribute(lastlist.Nodes[p], 'DataType'));
+                          ReadAttributes(lastlist.Nodes[p], par);
+                        end;
+                      end;
+                    end; // Service|Interface|Operation|Parameters
+
+                    // Code Bodies
+                    lParentNode := subsublist.Nodes[m].GetNodeByName('Code');
+                    if Assigned(lParentNode) then begin
+                      lastlist := lParentNode.GetNodesByName('Code');
+                      if Assigned(lastlist) then begin
+                        for p := 0 to (lastlist.Count-1) do begin
+                          op.SetCodeBodyAsString(GetNodeAttribute(lastlist.Nodes[p], 'Language'),lastlist.Nodes[p].Value);
+                        end;
+                      end;
+                    end; // Service|Interface|Operation|Parameters
+
+                    {op.MoveResult();}
+                  end;
+                end;
+              end; // Service|Interface|Operations
+            end;
+          end; // Service|Interfaces
+
+          svc.IsFromUsedRodl := Assigned(iRodlUse);
+          svc.LocatedInRodlUse := iRodlUse;
+
+          iLibrary.Add(svc);
+        end;
+      end;
+    end; // Services
+
+    // EventSinks
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('EventSinks');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('EventSink');
+      if Assigned(list) then begin
+        for i := 0 to (list.Count-1) do begin
+          lEventSink := TRODLEventSink.Create;
+          lEventSink.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          //lEventSink.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          lEventSink.Ancestor := GetNodeAttribute(list.Nodes[i], 'Ancestor');
+
+          lEventSink.ImplUnit := GetNodeAttribute(list.Nodes[i], 'ImplUnit');
+          lEventSink.ImplClass := GetNodeAttribute(list.Nodes[i], 'ImplClass');
+          lEventSink.Abstract := GetNodeAttribute(list.Nodes[i], 'Abstract') = '1';
+          lEventSink.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+
+          ReadAttributes(list.Nodes[i], lEventSink);
+
+          // Default interface
+          // TODO: Implement multiple interfaces in the future. Not needed now
+          lParentNode := list.Nodes[i].GetNodeByName('Interfaces');
+          if Assigned(lParentNode) then begin
+            sublist := lParentNode.GetNodesByName('Interface');
+            if Assigned(sublist) and (sublist.Count > 0) then begin
+              //later: for k := 0 to (sublist.Length-1) do begin
+              k := 0;
+
+              intf := lEventSink.Default;
+              intf.Name := GetNodeAttribute(sublist.Nodes[k], 'Name');
+              intf.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(sublist.Nodes[k], 'UID'))); // Fixed thanks to a compiler warning! Was using m as index
+              //intf.Documentation := GetNodeAttribute(sublist.Nodes[k], 'Documentation');
+
+              ReadAttributes(sublist.Nodes[k], intf);
+
+              // Operations
+              lParentNode := sublist.Nodes[k].GetNodeByName('Operations');
+              if Assigned(lParentNode) then begin
+                subsublist := lParentNode.GetNodesByName('Operation');
+                if Assigned(subsublist) then begin
+                  for m := 0 to (subsublist.Count-1) do begin
+                    op := intf.Add;
+                    op.Name := GetNodeAttribute(subsublist.Nodes[m], 'Name');
+                    //op.Documentation := GetNodeAttribute(subsublist.Nodes[m], 'Documentation');
+                    op.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(subsublist.Nodes[m], 'UID')));
+
+                    ReadAttributes(subsublist.Nodes[m], op);
+
+                    // Parameters
+                    lParentNode := subsublist.Nodes[m].GetNodeByName('Parameters');
+                    if Assigned(lParentNode) then begin
+                      lastlist := lParentNode.GetNodesByName('Parameter');
+                      if Assigned(lastlist) then begin
+                        for p := 0 to (lastlist.Count-1) do begin
+                          lFlag := XMLFlagNameToFlag(GetNodeAttribute(lastlist.Nodes[p], 'Flag'));
+                          case lFlag of
+                            fResult:par := op.AddResult();
+                            else par := op.Add();
+                          end;    { case }
+                          par.Name := GetNodeAttribute(lastlist.Nodes[p], 'Name');
+                          //par.Documentation := GetNodeAttribute(lastlist.Nodes[p], 'Documentation');
+                          par.Flag := lFlag;
+                          par.DataType := FixLegacyTypes(GetNodeAttribute(lastlist.Nodes[p], 'DataType'));
+                          ReadAttributes(lastlist.Nodes[p], par);
+                        end;
+                      end;
+                    end; // Service|Interface|Operation|Parameters
+
+                    // Code Bodies
+                    lParentNode := subsublist.Nodes[m].GetNodeByName('Code');
+                    if Assigned(lParentNode) then begin
+                      lastlist := lParentNode.GetNodesByName('Code');
+                      if Assigned(lastlist) then begin
+                        for p := 0 to (lastlist.Count-1) do begin
+                          op.SetCodeBodyAsString(GetNodeAttribute(lastlist.Nodes[p], 'Language'),StringFromHexString(lastlist.Nodes[p].Value));
+                        end;
+                      end;
+                    end; // Service|Interface|Operation|Parameters
+
+                    {op.MoveResult();}
+                  end;
+                end;
+              end; // Service|Interface|Operations
+            end;
+          end; // Service|Interfaces
+
+          lEventSink.IsFromUsedRodl := Assigned(iRodlUse);
+          lEventSink.LocatedInRodlUse := iRodlUse;
+
+          iLibrary.Add(lEventSink);
+        end;
+      end;
+    end; // EventSinks
+
+    //////////////////// TODO REMOVE **BELOW**
+    // EventSinks
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('CallbackSinks');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('CallbackSink');
+      if Assigned(list) then begin
+        for i := 0 to (list.Count-1) do begin
+          lEventSink := TRODLEventSink.Create;
+          lEventSink.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          //lEventSink.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          lEventSink.Ancestor := GetNodeAttribute(list.Nodes[i], 'Ancestor');
+
+          lEventSink.ImplUnit := GetNodeAttribute(list.Nodes[i], 'ImplUnit');
+          lEventSink.ImplClass := GetNodeAttribute(list.Nodes[i], 'ImplClass');
+          lEventSink.Abstract := GetNodeAttribute(list.Nodes[i], 'Abstract') = '1';
+          lEventSink.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+
+          ReadAttributes(list.Nodes[i], lEventSink);
+
+          // Default interface
+          // TODO: Implement multiple interfaces in the future. Not needed now
+          lParentNode := list.Nodes[i].GetNodeByName('Interfaces');
+          if Assigned(lParentNode) then begin
+            sublist := lParentNode.GetNodesByName('Interface');
+            if Assigned(sublist) and (sublist.Count > 0) then begin
+              //later: for k := 0 to (sublist.Length-1) do begin
+              k := 0;
+
+              intf := lEventSink.Default;
+              intf.Name := GetNodeAttribute(sublist.Nodes[k], 'Name');
+              intf.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(sublist.Nodes[k], 'UID'))); // Fixed thanks to a compiler warning! Was using m as index
+              //intf.Documentation := GetNodeAttribute(sublist.Nodes[k], 'Documentation');
+
+              ReadAttributes(sublist.Nodes[k], intf);
+
+              // Operations
+              lParentNode := sublist.Nodes[k].GetNodeByName('Operations');
+              if Assigned(lParentNode) then begin
+                subsublist := lParentNode.GetNodesByName('Operation');
+                if Assigned(subsublist) then begin
+                  for m := 0 to (subsublist.Count-1) do begin
+                    op := intf.Add;
+                    op.Name := GetNodeAttribute(subsublist.Nodes[m], 'Name');
+                    //op.Documentation := GetNodeAttribute(subsublist.Nodes[m], 'Documentation');
+                    op.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(subsublist.Nodes[m], 'UID')));
+
+                    ReadAttributes(subsublist.Nodes[m], op);
+
+                    // Parameters
+                    lParentNode := subsublist.Nodes[m].GetNodeByName('Parameters');
+                    if Assigned(lParentNode) then begin
+                      lastlist := lParentNode.GetNodesByName('Parameter');
+                      if Assigned(lastlist) then begin
+                        for p := 0 to (lastlist.Count-1) do begin
+                          lFlag := XMLFlagNameToFlag(GetNodeAttribute(lastlist.Nodes[p], 'Flag'));
+                          case lFlag of
+                            fResult:par := op.AddResult();
+                            else par := op.Add();
+                          end;    { case }
+                          par.Name := GetNodeAttribute(lastlist.Nodes[p], 'Name');
+                          //par.Documentation := GetNodeAttribute(lastlist.Nodes[p], 'Documentation');
+                          par.Flag := lFlag;
+                          par.DataType := FixLegacyTypes(GetNodeAttribute(lastlist.Nodes[p], 'DataType'));
+                          ReadAttributes(lastlist.Nodes[p], par);
+                        end;
+                      end;
+                    end; // Service|Interface|Operation|Parameters
+
+                    // Code Bodies
+                    lParentNode := subsublist.Nodes[m].GetNodeByName('Code');
+                    if Assigned(lParentNode) then begin
+                      lastlist := lParentNode.GetNodesByName('Code');
+                      if Assigned(lastlist) then begin
+                        for p := 0 to (lastlist.Count-1) do begin
+                          op.SetCodeBodyAsString(GetNodeAttribute(lastlist.Nodes[p], 'Language'),StringFromHexString(lastlist.Nodes[p].Value));
+                        end;
+                      end;
+                    end; // Service|Interface|Operation|Parameters
+
+                    {op.MoveResult();}
+                  end;
+                end;
+              end; // Service|Interface|Operations
+            end;
+          end; // Service|Interfaces
+
+          lEventSink.IsFromUsedRodl := Assigned(iRodlUse);
+          lEventSink.LocatedInRodlUse := iRodlUse;
+
+          iLibrary.Add(lEventSink);
+        end;
+      end;
+    end; // EventSinks
+    //////////////////// TODO REMOVE ^^^^^^
+
+    // Structs
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('Structs');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('Struct');
+      if Assigned(list) then begin
+        for i := 0 to (list.Count-1) do begin
+          struct := TRODLStruct.Create;
+          struct.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          //struct.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          struct.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+          struct.Ancestor := GetNodeAttribute(list.Nodes[i], 'Ancestor');
+          struct.AutoCreateParams := GetNodeAttribute(list.Nodes[i], 'AutoCreateParams') <> '0';
+          struct.Abstract := GetNodeAttribute(list.Nodes[i], 'Abstract') = '1';
+
+          ReadAttributes(list.Nodes[i], struct);
+
+          lParentNode := list.Nodes[i].GetNodeByName('Elements');
+          if Assigned(lParentNode) then begin
+            sublist := lParentNode.GetNodesByName('Element');
+            if Assigned(sublist) then begin
+              for p := 0 to (sublist.Count-1) do begin
+                stelem := struct.Add;
+                stelem.Name := GetNodeAttribute(sublist.Nodes[p], 'Name');
+                //stelem.Documentation := GetNodeAttribute(sublist.Nodes[p], 'Documentation');
+                stelem.DataType := FixLegacyTypes(GetNodeAttribute(sublist.Nodes[p], 'DataType'));
+                ReadAttributes(sublist.Nodes[p], stelem);
+              end;
+            end;
+          end; // Struct|Elements
+
+          struct.IsFromUsedRodl := Assigned(iRodlUse);
+          struct.LocatedInRodlUse := iRodlUse;
+
+          iLibrary.Add(struct);
+        end;
+      end;
+    end; //Structs
+
+    // Enums
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('Enums');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('Enum');
+      if Assigned(list) then begin
+        for i := 0 to (list.Count-1) do begin
+          enum := TRODLEnum.Create;
+          enum.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          enum.PrefixEnumValues := GetNodeAttribute(list.Nodes[i], 'Prefix') <> '0';
+          //enum.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          enum.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+
+          ReadAttributes(list.Nodes[i], enum);
+
+          lParentNode := list.Nodes[i].GetNodeByName('EnumValues');
+          if Assigned(lParentNode) then begin
+            sublist := lParentNode.GetNodesByName('EnumValue');
+            if Assigned(sublist) then begin
+              for p := 0 to (sublist.Count-1) do begin
+                eval := enum.Add;
+                eval.Name := GetNodeAttribute(sublist.Nodes[p], 'Name');
+                ReadAttributes(sublist.Nodes[p], eval);
+                //eval.Documentation := GetNodeAttribute(sublist.Nodes[p], 'Documentation');
+              end;
+            end;
+          end; //Enum|EnumValues
+
+          enum.IsFromUsedRodl := Assigned(iRodlUse);
+          enum.LocatedInRodlUse := iRodlUse;
+
+          iLibrary.Add(enum);
+        end;
+      end;
+    end; // Enums
+
+    // Arrays
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('Arrays');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('Array');
+      if Assigned(list) then begin
+        for i := 0 to (list.Count-1) do begin
+          arr := TRODLArray.Create;
+          arr.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          //arr.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          arr.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+
+          ReadAttributes(list.Nodes[i], arr);
+
+          sublist := list.Nodes[i].GetNodesByName('ElementType');
+          if Assigned(sublist) and (sublist.Count > 0) then
+            arr.ElementType := FixLegacyTypes(GetNodeAttribute(sublist.Nodes[0], 'DataType'));
+
+          arr.IsFromUsedRodl := Assigned(iRodlUse);
+          arr.LocatedInRodlUse := iRodlUse;
+
+          iLibrary.Add(arr)
+        end;
+      end;
+    end; // Arrays
+
+    // Exceptions
+    lParentNode := xmldoc.DocumentNode.GetNodeByName('Exceptions');
+    if Assigned(lParentNode) then begin
+      list := lParentNode.GetNodesByName('Exception');
+      if Assigned(list) then begin
+        for i := 0 to (list.Count-1) do begin
+          lException := TRODLException.Create;
+          lException.Name := GetNodeAttribute(list.Nodes[i], 'Name');
+          //lException.Documentation := GetNodeAttribute(list.Nodes[i], 'Documentation');
+          lException.UID := RecreateGuidIfNeeded(StringToGUID(GetNodeAttribute(list.Nodes[i], 'UID')));
+          lException.Ancestor := GetNodeAttribute(list.Nodes[i], 'Ancestor');
+          lException.Abstract := GetNodeAttribute(list.Nodes[i], 'Abstract') = '1';
+
+          ReadAttributes(list.Nodes[i], lException);
+
+          lParentNode := list.Nodes[i].GetNodeByName('Elements');
+          if Assigned(lParentNode) then begin
+            sublist := lParentNode.GetNodesByName('Element');
+            if Assigned(sublist) then begin
+              for p := 0 to (sublist.Count-1) do begin
+                stelem := lException.Add;
+                stelem.Name := GetNodeAttribute(sublist.Nodes[p], 'Name');
+                //stelem.Documentation := GetNodeAttribute(sublist.Nodes[p], 'Documentation');
+                stelem.DataType := FixLegacyTypes(GetNodeAttribute(sublist.Nodes[p], 'DataType'));
+                ReadAttributes(sublist.Nodes[p], stelem);
+              end;
+            end;
+          end; // Struct|Elements
+
+          lException.IsFromUsedRodl := Assigned(iRodlUse);
+          lException.LocatedInRodlUse := iRodlUse;
+
+          iLibrary.Add(lException)
+        end;
+      end;
+    end; // Exceptions
+  finally
+    fGroupGuidList.Free;
+  end;
+end;
+
+function TXMLToRODL.ReadFromString(const aString: AnsiString; const aFilename:string): TRODLLibrary;
+var
+  ss: TROBinaryMemoryStream;
+begin
+  ss := TROBinaryMemoryStream.Create;
+  try
+    ss.Write( pointer(aString)^, Length(aString));
+    result := Read(ss, aFilename);
+  finally
+    ss.Free;
+  end;
+end;
+
+{$IFDEF UNICODE}
+function TXMLToRODL.ReadFromString(const aString, aFilename: string): TRODLLibrary;
+var
+  ss: TStringStream;
+begin
+  ss := TStringStream.Create(aString);
+  try
+    result := Read(ss, aFilename);
+  finally
+    ss.Free;
+  end;
+end;
+{$ENDIF}
+
+function TXMLToRODL.RecreateGuidIfNeeded(iGuid: TGuid): TGuid;
+begin
+  if fRecreateGuids then
+    result := NewGuid()
+  else
+    result := iGuid;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLChannel.pas
new file mode 100644
index 0000000..959a1be
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLChannel.pas	
@@ -0,0 +1,305 @@
+unit uRODLLChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, Windows, uROClient, uROClientIntf, uRODLLHelpers;
+
+type
+  TDLLProcessMessage = function(aRequest:THandle):THandle;
+  TDLLRegisterEventHandler = function(const ClientId: TGuid; const Handler: IRODllEventCallback): Boolean;
+  TDLLUnRegisterEventHandler = procedure(const ClientId: TGuid);
+//type TDLLProcessMessage = procedure(aRequestStream, aResponseStream : TStream);
+
+const
+  DLLProcessMessageName = 'DLLProcessMessage';
+  DLLRegisterEventHandlerName = 'DLLRegisterEventHandler';
+  DLLUnRegisterEventHandlerName = 'DLLUnRegisterEventHandler';
+
+type { TRODLLChannel }
+
+     TDLLLoadEvent      = procedure(Sender:TObject ;DLLHandle: THandle) of object;
+     TDLLUnloadEvent    = TNotifyEvent;
+
+     TRODLLChannel = class(TROTransportChannel, IROActiveEventChannel, IRODllEventCallback)
+     private
+       fDLLName: string;
+       fDLLHandle : THandle;
+       fKeepDLLLoaded: boolean;
+       fDLLProcessMessage : TDLLProcessMessage;
+       FDLLRegisterEventHandler: TDLLRegisterEventHandler;
+       fDLLUnregisterEventHandler: TDLLUnRegisterEventHandler;
+
+       fOnDLLLoaded: TDLLLoadEvent;
+       fOnDLLUnloaded: TDLLUnloadEvent;
+       fSupportsActiveEvents: Boolean;
+       fEventReceiver: IROEventReceiver;
+       fActiveEvents: Boolean;
+       fActiveClientID: TGuid;
+
+     protected
+       { IROTransport }
+       function GetTransportObject : TObject; override;
+
+
+       { TROTransportChannel }
+       procedure IntDispatch(aRequest, aResponse : TStream); override;
+
+       { Getters and setters }
+       function  GetDLLLoaded: Boolean;
+
+
+       procedure LoadDLL;
+       procedure IntSetServerLocator(aServerLocator: TROServerLocator); override;
+       procedure BeforeDispatch(aMessage: IROMessage); override;
+
+       procedure UnregisterEventReceiver(aReceiver: IROEventReceiver);
+       procedure RegisterEventReceiver(aReceiver: IROEventReceiver);
+       procedure ProcessEvent(Data: Pointer; DataSize: Integer);
+       function QueryInterface(const IID: TGUID; out Obj): HRESULT; override; stdcall;
+
+     public
+       property  DLLHandle: THandle read fDLLHandle;
+       property  DLLLoaded: Boolean read GetDLLLoaded;
+
+       property SupportsActiveEvents: Boolean read fSupportsActiveEvents;
+       constructor Create(aOwner : TComponent); override;
+       destructor Destroy; override;
+
+       procedure UnloadDLL;
+       procedure CheckProperties; override;
+       procedure Assign(aSource : TPersistent); override;
+       {$IFDEF FPC}
+       property ActiveClientID: TGuid read fActiveClientID write fActiveClientID;
+       {$ENDIF}
+     published
+       property OnDLLLoaded: TDLLLoadEvent read FOnDLLLoaded write FOnDLLLoaded;
+       property OnDLLUnloaded: TDLLUnloadEvent read FOnDLLUnloaded write FOnDLLUnloaded;
+       property DLLName : string read fDLLName write fDLLName;
+       property KeepDLLLoaded : boolean read fKeepDLLLoaded write fKeepDLLLoaded default true;
+       property ActiveEvents : Boolean read fActiveEvents write fActiveEvents default true;
+       {$IFNDEF FPC}
+       property ActiveClientID: TGuid read fActiveClientID write fActiveClientID;
+       {$ENDIF FPC}
+     published
+       // from TROTransportChannel
+       property DispatchOptions;
+       //property OnAfterProbingServer;
+       //property OnAfterProbingServers;
+       //property OnBeforeProbingServer;
+       //property OnBeforeProbingServers;
+       //property OnLoginNeeded;
+       //property OnProgress;
+       //property OnReceiveStream;
+       //property OnSendStream;
+       //property OnServerLocatorAssignment;
+       //property ProbeFrequency;
+       //property ProbeServers;
+       property ServerLocators;
+       //property SynchronizedProbing;
+     end;
+
+implementation
+
+uses SysUtils, uROClasses;
+
+{ TRODLLChannel }
+
+procedure TRODLLChannel.Assign(aSource: TPersistent);
+var
+  lSource: TRODLLChannel;
+begin
+  inherited;
+  if aSource is TRODLLChannel then begin
+    lSource := TRODLLChannel(aSource);
+    ActiveClientID := lSource.ActiveClientID;
+    ActiveEvents := lSource.ActiveEvents;
+    DLLName := lSource.DLLName;
+    KeepDLLLoaded := lSource.KeepDLLLoaded;
+    OnDLLLoaded := lSource.OnDLLLoaded;
+    OnDLLUnloaded := lSource.OnDLLUnloaded;
+  end;
+end;
+
+procedure TRODLLChannel.BeforeDispatch(aMessage: IROMessage);
+begin
+  inherited;
+  LoadDLL;
+  if fActiveEvents and fSupportsActiveEvents then begin
+    if IsEqualGUID(fActiveClientID, EmptyGUID) then fActiveClientID := NewGuid;
+    aMessage.ClientID := ActiveClientID;
+  end;
+end;
+
+procedure TRODLLChannel.CheckProperties;
+begin
+  inherited;
+  Check(not FileExists(DLLName), 'Cannot locate %s', [DLLName]); // TODO: Move in uRORes
+end;
+
+constructor TRODLLChannel.Create(aOwner: TComponent);
+begin
+  inherited;
+  fKeepDLLLoaded := TRUE;
+  ThreadSafe := true;
+  fActiveEvents := true;
+end;
+
+destructor TRODLLChannel.Destroy;
+begin
+  UnloadDLL;
+  inherited;
+end;
+
+function TRODLLChannel.GetDLLLoaded: Boolean;
+begin
+  result := fDLLHandle <> 0;
+end;
+
+function TRODLLChannel.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+procedure TRODLLChannel.IntDispatch(aRequest, aResponse: TStream);
+var lRequestHandle, lResponseHandle:THandle;
+begin
+  try
+    lRequestHandle := StreamToHGlobal(aRequest);
+    try
+      lResponseHandle := fDLLProcessMessage(lRequestHandle);
+      try
+        HGlobalToStream(lResponseHandle,aResponse);
+      finally
+        GlobalFree(lResponseHandle);
+      end;
+    finally
+      GlobalFree(lRequestHandle);
+    end;
+  finally
+    if not KeepDLLLoaded then UnloadDLL;
+  end;
+end;
+
+procedure TRODLLChannel.IntSetServerLocator(
+  aServerLocator: TROServerLocator);
+begin
+  // Do nothing
+end;
+
+procedure TRODLLChannel.LoadDLL;
+begin
+  CheckProperties;
+  if (fDLLHandle>0) then Exit; // Already loaded
+  try
+    fDLLHandle := LoadLibrary(PChar(DLLName));
+    if fDLLHandle = 0 then
+      RaiseLastOSError;
+
+    @fDLLProcessMessage := GetProcAddress(fDLLHandle, PAnsiChar(DLLProcessMessageName));
+    if (@fDLLProcessMessage=NIL) then begin
+      fDLLHandle := 0;
+      RaiseError('Not a RemObjects DLL', []); // TODO: Move in uRORes
+    end;
+     @FDLLRegisterEventHandler := GetProcAddress(fDLLHandle, PAnsiChar(DLLRegisterEventHandlerName));
+     @FDLLUnregisterEventHandler:= GetProcAddress(fDllHandle, PAnsiChar(DLLUnRegisterEventHandlerName));
+     fSupportsActiveEvents := assigned(FDLLRegisterEventHandler) and assigned(FDLLUnregisterEventHandler) and
+       FDLLRegisterEventHandler(EmptyGUID, nil); // returns false if active events aren't supported by the server
+  except
+    if (fDLLHandle>0) then begin
+      FreeLibrary(fDLLHandle);
+      fDLLHandle := 0;
+    end;
+    @fDLLProcessMessage := NIL;
+    raise;
+  end;
+
+  //toDO: make proper Trigger functions.
+  if (DLLLoaded) and (Assigned(fOnDLLLoaded)) then
+    fOnDLLLoaded(Self,fDLLHandle);
+
+end;
+
+procedure TRODLLChannel.ProcessEvent(Data: Pointer; DataSize: Integer);
+var
+  ms: TMemoryStream;
+begin
+  if fEventReceiver = nil then exit;
+  ms := TMemorySTream.Create;
+  try
+    ms.Write(Data^, DataSize);
+    ms.Position := 0;
+    DecodeEventStream(ms);
+    fEventReceiver.Dispatch(ms, nil);
+  finally
+    ms.Free;
+  end;
+
+end;
+
+function TRODLLChannel.QueryInterface(const IID: TGUID; out Obj): HRESULT;
+begin
+  if IsEqualGUID(IID, IROActiveEventChannel) then begin
+    try
+      if fDLLHandle = 0 then LoadDLL;
+    except
+      Result := E_NOINTERFACE;
+      exit;
+    end;
+    if fKeepDLLLoaded and fSupportsActiveEvents and fActiveEvents then
+      Result := inherited QueryInterface(IID, obj)
+    else
+      Result := E_NOINTERFACE;
+  end else Result := inherited QueryInterface(IID, obj);
+end;
+
+procedure TRODLLChannel.RegisterEventReceiver(aReceiver: IROEventReceiver);
+begin
+  fEventReceiver := aReceiver;
+  LoadDLL;
+  if fActiveEvents and fSupportsActiveEvents then begin
+    if IsEqualGUID(fActiveClientID, EmptyGUID) then fActiveClientID := NewGuid;
+    FDLLRegisterEventHandler(fActiveClientID, Self);
+  end;
+end;
+
+procedure TRODLLChannel.UnloadDLL;
+begin
+  if (fDLLHandle<>0) then begin
+    FreeLibrary(fDLLHandle);
+    fDLLHandle := 0;
+    if Assigned(fOnDLLUnloaded) then
+      fOnDLLUnloaded(Self);
+  end;
+end;
+
+
+procedure TRODLLChannel.UnregisterEventReceiver(
+  aReceiver: IROEventReceiver);
+begin
+  if fActiveEvents and fSupportsActiveEvents and (fDLLHandle <> 0) then begin
+    fDLLUnregisterEventHandler(fActiveClientID);
+  end;
+  fEventReceiver := nil;
+end;
+
+initialization
+  RegisterTransportChannelClass(TRODLLChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TRODLLChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLHelpers.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLHelpers.pas
new file mode 100644
index 0000000..17b48b2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLHelpers.pas	
@@ -0,0 +1,88 @@
+unit uRODLLHelpers;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Windows, Classes;
+
+{ Description:
+    Creates a hGlobal object that contains the contents of the stream.
+    The Stream is positioned at it's end when the function returns
+    The Caller is responsible for freeing the returnd hGloba using the
+    GlobalFree API call. }
+function StreamToHGlobal(iStream:TStream):THandle;
+
+{ Description:
+    Loads an hGlobal into the passed Stream. The stream is completeley
+    cleared before loading the memory; It's positioned at 0 when the
+    function returns. }
+procedure HGlobalToStream(lHandle:THandle; iStream:TStream);
+
+type
+  IRODllEventCallback = interface
+    ['{39084976-A3F5-43DB-B2F0-B9EE3137C6EF}']
+    procedure ProcessEvent(Data: Pointer; DataSize: Integer);
+  end;
+
+implementation
+
+uses SysUtils;
+
+type PInteger = ^Integer;
+
+function StreamToHGlobal(iStream:TStream):THandle;
+var lPointer:Pointer;
+begin
+  Result := GlobalAlloc(0,iStream.Size+sizeof(Integer));
+  if Result = 0 then RaiseLastOSError();
+  try
+    lPointer := GlobalLock(Result);
+    if not Assigned(lPointer) then RaiseLastOSError();
+    try
+      iStream.Seek(0,soFromBeginning);
+      PInteger(lPointer)^ := iStream.Size;
+      inc(PInteger(lPointer));
+      iStream.ReadBuffer(lPointer^,iStream.Size);
+    finally
+      //if not GlobalUnlock(Result) then RaiseLastOSError();
+      //ToDo: it seesm the return value on success is also zero (and GetLastError will yield NO_ERROR) on Win9x systems.
+      GlobalUnlock(Result);
+    end;
+  except
+    if GlobalFree(Result) <> 0 then RaiseLastOSError();
+    raise;
+  end;
+end;
+
+procedure HGlobalToStream(lHandle:THandle; iStream:TStream);
+var
+  lPointer:Pointer;
+  lSize:integer;
+begin
+  lPointer := GlobalLock(lHandle);
+  if not Assigned(lPointer) then RaiseLastOSError();
+  try
+    iStream.Size := 0;
+    lSize := PInteger(lPointer)^;
+    inc(PInteger(lPointer));
+    iStream.WriteBuffer(lPointer^,lSize);
+    iStream.Seek(0,soFromBeginning);
+  finally
+    GlobalUnlock(lHandle);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLServer.pas
new file mode 100644
index 0000000..34072b1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODLLServer.pas	
@@ -0,0 +1,180 @@
+unit uRODLLServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, uROClientIntf, uROClient, uROServer, uRODLLHelpers, uROEventRepository;
+
+type { TRODLLServer }
+     TRODLLServer = class(TROServer, IROTransport)
+     private
+       fActiveEventRepository: TROEventRepository;
+     protected
+       { IROTransport }
+       function GetTransportObject : TObject;
+
+       procedure IntSetActive(const Value: boolean); override;
+       function IntGetActive : boolean; override;
+
+     public
+       property ActiveEventRepository: TROEventRepository read fActiveEventRepository write fActiveEventRepository;
+     end;
+
+{ Call this to add a dispatcher to the DLLServer }
+procedure RegisterMessage(aMessage : TROMessage);
+
+{ Use this singleton if you need to hook to the server instance }
+function DLLServer : TRODLLServer;
+
+{ EXPORTED (for external user only): Main DLL entry point for message processing }
+function DLLProcessMessage(aRequest:THandle):THandle;
+function DLLRegisterEventHandler(const ClientId: TGuid; const Handler: IRODllEventCallback): Boolean;
+procedure DLLUnRegisterEventHandler(const ClientId: TGuid);
+
+implementation
+
+uses Windows, uRODLLChannel, uROServerIntf;
+
+var fDLLServer: TRODLLServer;
+
+type
+  TCallbackWrapper = class(TInterfacedObject, IROActiveEventServer)
+  private
+    FDll: IRODllEventCallback;
+  public
+    procedure DispatchEvent(anEventDataItem: TROEventData;
+      aSessionReference: TGUID; aSender: TObject);
+    procedure EventsRegistered(aSender: TObject; aClient: TGUID);
+    constructor Create(aDll: IRODllEventCallback);
+  end;
+
+procedure RegisterMessage(aMessage : TROMessage);
+begin
+  with TROMessageDispatcher(fDLLServer.Dispatchers.Add) do begin
+    Message := aMessage;
+  end;
+end;
+
+function DLLServer : TRODLLServer;
+begin
+  result := fDLLServer;
+end;
+
+{procedure DLLProcessMessage(aRequestStream,
+                            aResponseStream : TStream);
+var transport : IROTransport;
+begin
+  fDLLServer.QueryInterface(IROTransport, transport);
+  fDLLServer.DispatchMessage(transport, aRequestStream, aResponseStream);
+  //fDLLServer.DispatchMessage((fDLLServer as IROTransport), aRequestStream, aResponseStream);
+end;}
+
+
+{ EXPORTED (for external user only): Main DLL entry point for message processing }
+
+function DLLProcessMessage(aRequest:THandle):THandle;
+var lTransport : IROTransport;
+var lRequestStream, lResponseStream:TMemoryStream;
+begin
+  lRequestStream := TMemoryStream.Create();
+  try
+   lResponseStream := TMemoryStream.Create();
+    try
+
+      HGlobalToStream(aRequest,lRequestStream);
+      fDLLServer.QueryInterface(IROTransport, lTransport);
+      fDLLServer.DispatchMessage(lTransport, lRequestStream, lResponseStream);
+      Result := StreamToHGlobal(lResponseStream);
+
+    finally
+      lResponseStream.Free();
+    end;
+  finally
+    lRequestStream.Free();
+  end;
+end;
+
+exports DLLProcessMessage name DLLProcessMessageName,
+  DLLRegisterEventHandler name DLLRegisterEventHandlerName,
+  DLLUnRegisterEventHandler name DLLUnRegisterEventHandlerName;
+
+
+{ TRODLLServer }
+
+function TRODLLServer.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+function TRODLLServer.IntGetActive: boolean;
+begin
+  result := TRUE;
+end;
+
+procedure TRODLLServer.IntSetActive(const Value: boolean);
+begin
+  // not required in this case. Always active
+end;
+
+function DLLRegisterEventHandler(const ClientId: TGuid; const Handler: IRODllEventCallback): Boolean;
+begin
+  if fDLLServer.ActiveEventRepository = nil then begin
+    result := false;
+    exit;
+  end;
+  if Handler <> nil then
+    fDLLServer.ActiveEventRepository.AddSession(ClientID, TCallbackWrapper.Create(Handler));
+  Result := TRue;
+end;
+
+procedure DLLUnRegisterEventHandler(const ClientId: TGuid);
+begin
+  if fDLLServer.ActiveEventRepository = nil then begin
+    exit;
+  end;
+  fDLLServer.ActiveEventRepository.RemoveSession(ClientId);
+end;
+
+
+
+{ TCallbackWrapper }
+
+constructor TCallbackWrapper.Create(aDll: IRODllEventCallback);
+begin
+  inherited Create;
+  FDll := aDll;
+end;
+
+procedure TCallbackWrapper.DispatchEvent(anEventDataItem: TROEventData;
+  aSessionReference: TGUID; aSender: TObject);
+begin
+  fDLLServer.EncodeEventStream(anEventDataItem.Data);
+  FDll.ProcessEvent(TMemoryStream(anEventDataItem.Data).Memory, TMemoryStream(anEventDataItem.Data).Size);
+end;
+
+procedure TCallbackWrapper.EventsRegistered(aSender: TObject;
+  aClient: TGUID);
+begin
+ // do nothing.
+end;
+
+initialization
+  fDLLServer := TRODLLServer.Create(NIL);
+
+finalization
+  fDLLServer.Free;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery.pas
new file mode 100644
index 0000000..902b3ec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery.pas	
@@ -0,0 +1,379 @@
+unit uRODiscovery;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, Contnrs, SysUtils,
+  uROBroadcastChannel, uROClient, uRODiscovery_Intf, uRODiscovery_Async;
+
+type
+  TRODiscoveryNewServiceFoundEvent = procedure(aSender:TObject; aName:string; aDiscoveryOptions:TRODiscoveryOptions) of object;
+
+  TRODiscoveryException = procedure(aSender: TObject; aException: Exception) of object;
+
+  TROCustomDiscoveryClient = class(TROComponent, IROBroadcastNotification)
+  private
+    fChannel: TROBroadcastChannel;
+    fMessage: TROMessage;
+    fServerList: TStrings;
+    fServiceName: Ansistring;
+    fOnNewServersFound: TNotifyEvent;
+    fDiscoveryService: IRODiscoveryService_Async;
+    fOnNewServiceFound: TRODiscoveryNewServiceFoundEvent;
+    FOnDiscoveryException: TRODiscoveryException;
+
+    procedure SetChannel(const Value: TROBroadcastChannel);
+    procedure SetMessage(const Value: TROMessage);
+    procedure SetServiceName(const Value: Ansistring);
+    procedure TriggerNewServersFound;
+    procedure TriggerNewServiceFound(aName:string; aDiscoveryOptions:TRODiscoveryOptions);
+  private
+    { IROBroadcastNotification }
+    procedure ResponseReceived(ServerIP,ResponseUID: String);
+  protected
+    procedure Notification(aComponent:TComponent; aOperation:TOperation); override;
+  public
+    constructor Create(aOwner:TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure RefreshServerList(aDiscoveryOptions: TRODiscoveryOptions=nil);
+    procedure CheckProperties;
+    property Channel:TROBroadcastChannel read fChannel write SetChannel;
+    property Message:TROMessage read fMessage write SetMessage;
+    property ServerList:TStrings read fServerList;
+    property ServiceName:Ansistring read fServiceName write SetServiceName;
+    property OnNewServersFound:TNotifyEvent read fOnNewServersFound write fOnNewServersFound;
+    property OnNewServiceFound:TRODiscoveryNewServiceFoundEvent read fOnNewServiceFound write fOnNewServiceFound;
+    property OnDiscoveryException: TRODiscoveryException read FOnDiscoveryException write FOnDiscoveryException;
+  end;
+
+  TRODiscoveryClient = class(TROCustomDiscoveryClient)
+  published
+    property Channel;
+    property Message;
+    property ServerList;
+    property ServiceName;
+    property OnNewServersFound;
+    property OnNewServiceFound;
+    property OnDiscoveryException;
+  end;
+
+  TRODiscoveryServiceFoundEvent = procedure (aSender:TObject; aName:string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean) of object;
+
+  TROCustomDiscoveryServer = class(TROComponent)
+  private
+    fServiceList: TStrings;
+    fSupportRegisteredServerClasses: boolean;
+    fOnServiceFound: TRODiscoveryServiceFoundEvent;
+    fServerAddress: string;
+    procedure SetServiceList(const Value: TStrings);
+    procedure TriggerOnServiceFound(aName:string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean);
+    function FindServiceInList(iList:TStrings; const iName:string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean):string;
+  protected
+    procedure Notification(aComponent:TComponent; aOperation:TOperation); override;
+    function FindService(const iName: string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean):string;
+  public
+    constructor Create(aOwner:TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    property ServerAddress:string read fServerAddress write fServerAddress;
+    property ServiceList:TStrings read fServiceList write SetServiceList;
+    property SupportRegisteredServerClasses:boolean read fSupportRegisteredServerClasses write fSupportRegisteredServerClasses default true;
+    property OnServiceFound:TRODiscoveryServiceFoundEvent read fOnServiceFound write fOnServiceFound;
+  end;
+
+  TRODiscoveryServer = class(TROCustomDiscoveryServer)
+  published
+    property ServiceList;
+    property SupportRegisteredServerClasses;
+    property OnServiceFound;
+  end;
+
+  TRODiscoveryServerManager = class(TObjectList)
+  public
+    constructor Create();
+    procedure RegisterDiscoveryServer(iDiscoveryServer:TROCustomDiscoveryServer);
+    procedure UnregisterDiscoveryServer(iDiscoveryServer:TROCustomDiscoveryServer);
+    function FindService(const iName:string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean):string;
+  end;
+
+var
+  DiscoveryServerManager:TRODiscoveryServerManager;
+
+implementation
+
+uses
+  {$IFDEF VER140UP}DateUtils,{$ENDIF}
+  IdStack,
+  uROClassFactories, uROServer, uRODiscoveryService_Impl, uROClasses;
+
+{ TROCustomDiscoveryClient }
+
+constructor TROCustomDiscoveryClient.Create(aOwner: TComponent);
+begin
+  inherited;
+  fServerList := TStringList.Create;
+  TStringList(fServerList).Duplicates := dupIgnore;
+end;
+
+destructor TROCustomDiscoveryClient.Destroy;
+begin
+  Channel := nil;
+  Message := nil;
+  FreeAndNil(fServerList);
+  inherited;
+end;
+
+procedure TROCustomDiscoveryClient.Notification(aComponent: TComponent; aOperation: TOperation);
+begin
+  inherited;
+  if aOperation <> opRemove then exit;
+  if aComponent = Channel then Channel := nil;
+  if aComponent = Message then Message := nil;
+end;
+
+procedure TROCustomDiscoveryClient.RefreshServerList(aDiscoveryOptions: TRODiscoveryOptions=nil);
+begin
+  CheckProperties;
+  fServerList.Clear();
+  TriggerNewServersFound();
+
+  if not Assigned(fDiscoveryService) then
+    fDiscoveryService := CoIRODiscoveryService_Async.Create(Message,Channel);
+
+  fDiscoveryService.Invoke_FindService(ServiceName, aDiscoveryOptions);
+end;
+
+procedure TROCustomDiscoveryClient.TriggerNewServersFound;
+begin
+  if Assigned(OnNewServersFound) then OnNewServersFound(self);
+end;
+
+procedure TROCustomDiscoveryClient.ResponseReceived(ServerIP, ResponseUID: String);
+var
+  lOptions: TRODiscoveryOptions;
+  lServer:string;
+begin
+  lOptions := nil;
+
+  if not Assigned(fDiscoveryService) then exit;
+
+  try
+    lServer := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF} (fDiscoveryService.Retrieve_FindService(lOptions));
+  except
+    on E: Exception do begin
+      if Assigned(FOnDiscoveryException) then begin
+        FOnDiscoveryException(Self, E);
+        exit;
+      end
+      else begin
+        raise;
+      end;
+    end;
+  end;
+
+  try
+    TriggerNewServiceFound(lServer, lOptions);
+    if (lServer <> '') and (fServerList.IndexOf(lServer) = -1) then begin
+      fServerList.Add(lServer);
+      TriggerNewServersFound();
+    end;
+  finally
+    FreeAndNil(lOptions);
+  end;
+end;
+
+procedure TROCustomDiscoveryClient.SetChannel(const Value: TROBroadcastChannel);
+var
+  lBroadcastNotification:IROBroadcastNotification;
+begin
+  if fChannel <> Value then begin
+    fDiscoveryService := nil;  { proxy is no longer valid }
+    if Assigned(fChannel) then begin
+      fChannel.RORemoveFreeNotification(Self);
+      fChannel.UnregisterResponseListner(Self);
+    end;
+
+    fChannel := Value;
+    if Assigned(fChannel) then begin
+      fChannel.ROFreeNotification(Self);
+      if Supports(Self,IROBroadcastNotification,lBroadcastNotification) then
+        fChannel.RegisterResponseListner(lBroadcastNotification);
+    end;
+  end;
+end;
+
+procedure TROCustomDiscoveryClient.SetMessage(const Value: TROMessage);
+begin
+  if fMessage <> Value then begin
+    fDiscoveryService := nil;  { proxy is no longer valid }
+    if Assigned(fMessage) then fMessage.RORemoveFreeNotification(Self);
+    fMessage := Value;
+    if Assigned(fMessage) then fMessage.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TROCustomDiscoveryClient.SetServiceName(const Value: Ansistring);
+begin
+  if fServiceName <> Value then begin
+    fServiceName := Value;
+  end;
+end;
+
+procedure TROCustomDiscoveryClient.TriggerNewServiceFound(aName: string; aDiscoveryOptions: TRODiscoveryOptions);
+begin
+  if Assigned(OnNewServiceFound) then
+    OnNewServiceFound(self, aName, aDiscoveryOptions);
+end;
+
+procedure TROCustomDiscoveryClient.Assign(Source: TPersistent);
+var
+  lSource: TROCustomDiscoveryClient;
+begin
+  inherited;
+  if Source is TROCustomDiscoveryClient then begin
+    lSource := TROCustomDiscoveryClient(Source);
+
+    Channel := lSource.Channel;
+    Message := lSource.Message;
+    OnDiscoveryException := lSource.OnDiscoveryException;
+    OnNewServersFound := lSource.OnNewServersFound;
+    OnNewServiceFound := lSource.OnNewServiceFound;
+    ServerList.Assign(lSource.ServerList);
+    ServiceName := lSource.ServiceName;
+  end;
+end;
+
+procedure TROCustomDiscoveryClient.CheckProperties;
+begin
+  Check(Channel = NIL, Name + '.Channel must be assigned.');
+  Channel.CheckProperties;
+  Check(Message = NIL, Name + '.Message must be assigned.');
+  Message.CheckProperties;
+  Check(ServiceName = '', Name + '.ServiceName must be set.');
+end;
+
+{ TROCustomDiscoveryServer }
+
+procedure TROCustomDiscoveryServer.Assign(Source: TPersistent);
+var
+  lSource: TROCustomDiscoveryServer;
+begin
+  inherited;
+  if Source is TROCustomDiscoveryServer then begin
+    lSource := TROCustomDiscoveryServer(Source);
+
+    OnServiceFound := lSource.OnServiceFound;
+    ServiceList := lSource.ServiceList;
+    SupportRegisteredServerClasses := lSource.SupportRegisteredServerClasses;
+  end;
+end;
+
+constructor TROCustomDiscoveryServer.Create(aOwner: TComponent);
+begin
+  inherited;
+  fServiceList := TStringList.Create;
+  TStringList(fServiceList).Sorted := true;
+  SupportRegisteredServerClasses := true;
+
+  RegisterDiscoveryService();
+  DiscoveryServerManager.RegisterDiscoveryServer(self);
+end;
+
+destructor TROCustomDiscoveryServer.Destroy;
+begin
+  DiscoveryServerManager.UnregisterDiscoveryServer(self);
+  FreeAndNil(fServiceList);
+  inherited;
+end;
+
+function TROCustomDiscoveryServer.FindService(const iName: string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean):string;
+begin
+  result := FindServiceInList(fServiceList, iName, ioDiscoveryOptions, ioHandled);
+  if (not ioHandled) and SupportRegisteredServerClasses then
+    result := FindServiceInList(GetClassFactoryNames.Strings, iName, ioDiscoveryOptions, ioHandled);
+end;
+
+function TROCustomDiscoveryServer.FindServiceInList(iList:TStrings; const iName:string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean):string;
+begin
+  result := '';
+  if iList.IndexOf(iName) > -1 then begin
+    ioHandled := true;
+    TriggerOnServiceFound(iName,ioDiscoveryOptions,ioHandled);
+    if ioHandled then begin
+      if fServerAddress <> '' then begin
+        result := fServerAddress;
+      end
+      else begin
+        result := GStack.LocalAddress;
+      end;
+    end;
+  end;
+end;
+
+procedure TROCustomDiscoveryServer.Notification(aComponent:TComponent; aOperation:TOperation);
+begin
+  inherited;
+  if aOperation <> opRemove then exit;
+end;
+
+procedure TROCustomDiscoveryServer.SetServiceList(const Value: TStrings);
+begin
+  fServiceList.Assign(Value);
+end;
+
+procedure TROCustomDiscoveryServer.TriggerOnServiceFound(aName:string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean);
+begin
+  if Assigned(OnServiceFound) then
+    OnServiceFound(self,aName,ioDiscoveryOptions,ioHandled);
+end;
+
+{ TRODiscoveryServerManager }
+
+constructor TRODiscoveryServerManager.Create;
+begin
+  inherited Create(false);
+end;
+
+function TRODiscoveryServerManager.FindService(const iName: string; var ioDiscoveryOptions:TRODiscoveryOptions; var ioHandled:boolean):string;
+var
+  i:integer;
+begin
+  for i := 0 to Count-1 do begin
+    result := (Items[i] as TROCustomDiscoveryServer).FindService(iName,ioDiscoveryOptions,ioHandled);
+    if ioHandled then exit;
+  end;
+end;
+
+procedure TRODiscoveryServerManager.RegisterDiscoveryServer(iDiscoveryServer:TROCustomDiscoveryServer);
+begin
+  if IndexOf(iDiscoveryServer) = -1 then Add(iDiscoveryServer);
+end;
+
+procedure TRODiscoveryServerManager.UnregisterDiscoveryServer(iDiscoveryServer:TROCustomDiscoveryServer);
+var
+  lIndex:integer;
+begin
+  lIndex := IndexOf(iDiscoveryServer);
+  if IndexOf(iDiscoveryServer) <> -1 then Delete(lIndex);
+end;
+
+initialization
+  DiscoveryServerManager := TRODiscoveryServerManager.Create;
+finalization
+  FreeAndNil(DiscoveryServerManager);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscoveryService_Impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscoveryService_Impl.pas
new file mode 100644
index 0000000..42a957e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscoveryService_Impl.pas	
@@ -0,0 +1,54 @@
+unit uRODiscoveryService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, //uROServerIntf,
+  {Generated:} uRODiscovery_Intf;
+
+type
+  TRODiscoveryService = class(TRORemotable, IRODiscoveryService)
+  private
+  protected
+    function FindService(const iName:Ansistring; var ioDiscoveryOptions:TRODiscoveryOptions):Ansistring;
+  end;
+
+procedure RegisterDiscoveryService();
+
+implementation
+
+uses
+  {Generated:} uRODiscovery_Invk, uROClassFactories, uRODiscovery, uROClasses;
+
+procedure Create_TRODiscoveryService(out anInstance:IUnknown);
+begin
+  anInstance := TRODiscoveryService.Create;
+end;
+
+procedure RegisterDiscoveryService();
+begin
+  //ToDo: prevent class factory from being registered multiple times.
+  if not IsClassFactoryRegistered('IRODiscoveryService') then
+    TROSingletonClassFactory.Create('IRODiscoveryService', Create_TRODiscoveryService, TIRODiscoveryService_Invoker);
+end;
+
+function TRODiscoveryService.FindService(const iName:Ansistring; var ioDiscoveryOptions:TRODiscoveryOptions):Ansistring;
+var
+  lHandled:boolean;
+begin
+  lHandled := false;
+  result := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF} (DiscoveryServerManager.FindService({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(iName), ioDiscoveryOptions, lHandled));
+  if not lHandled then ROSendNoResponse();
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Async.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Async.pas
new file mode 100644
index 0000000..ec292d9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Async.pas	
@@ -0,0 +1,86 @@
+unit uRODiscovery_Async;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROTypes, uROClientIntf, uROAsync,
+  {Project:} uRODiscovery_Intf;
+
+type
+  { IRODiscoveryService_Async }
+  IRODiscoveryService_Async = interface(IROAsyncInterface)
+    ['{8E88E437-8B20-4AF4-8C81-DF27E6A6413D}']
+    procedure Invoke_FindService(const iName: AnsiString; const ioServerOptions: TRODiscoveryOptions);
+    function Retrieve_FindService(out ioServerOptions: TRODiscoveryOptions): AnsiString;
+  end;
+
+  { CoIRODiscoveryService_Async }
+  CoIRODiscoveryService_Async = class
+    class function Create(const aMessage : IROMessage; aTransportChannel : IROTransportChannel) : IRODiscoveryService_Async;
+  end;
+
+  TIRODiscoveryService_AsyncProxy = class(TROAsyncProxy, IRODiscoveryService_Async)
+  private
+  protected
+    function __GetInterfaceName: String; override;
+
+    procedure Invoke_FindService(const iName: AnsiString; const ioServerOptions: TRODiscoveryOptions);
+    function Retrieve_FindService(out ioServerOptions: TRODiscoveryOptions): AnsiString;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils;
+
+{ CoIRODiscoveryService }
+
+class function CoIRODiscoveryService_Async.Create(const aMessage : IROMessage; aTransportChannel : IROTransportChannel) : IRODiscoveryService_Async;
+begin
+  result := TIRODiscoveryService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TIRODiscoveryService_Proxy }
+
+function TIRODiscoveryService_AsyncProxy.__GetInterfaceName: String;
+begin
+  result := 'IRODiscoveryService';
+end;
+
+procedure TIRODiscoveryService_AsyncProxy.Invoke_FindService(const iName: AnsiString; const ioServerOptions: TRODiscoveryOptions);
+begin
+  __AssertProxyNotBusy('FindService');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'RODiscovery', 'IRODiscoveryService', 'FindService');
+  __Message.Write('iName', TypeInfo(AnsiString), iName, []);
+  __Message.Write('ioServerOptions', TypeInfo(TRODiscoveryOptions), ioServerOptions, []);
+  __DispatchAsyncRequest('FindService',__Message);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+function TIRODiscoveryService_AsyncProxy.Retrieve_FindService(out ioServerOptions: TRODiscoveryOptions): AnsiString;
+var __response:TStream;
+begin
+  ioServerOptions := nil;
+  __response := __RetrieveAsyncResponse('FindService');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(AnsiString), Result, []);
+  __Message.Read('ioServerOptions', TypeInfo(TRODiscoveryOptions), ioServerOptions, []);
+
+  __response.Free();
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Intf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Intf.pas
new file mode 100644
index 0000000..5d2f2fc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Intf.pas	
@@ -0,0 +1,103 @@
+unit uRODiscovery_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{943975A3-664A-4F07-AD0F-7357744276BF}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IRODiscoveryService_IID : TGUID = '{D0F69433-544B-4003-946F-AD35046169B0}';
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IRODiscoveryService = interface;
+  TRODiscoveryOptions = class;
+
+  { TRODiscoveryOptions }
+
+  { Description:
+       Use this base class to define custom Option strcuts that you can pass back from your Server Discovery calls  }
+  TRODiscoveryOptions = class(TROComplexType)
+  end;
+
+  { IRODiscoveryService }
+  IRODiscoveryService = interface
+    ['{D0F69433-544B-4003-946F-AD35046169B0}']
+    function FindService(const iName: AnsiString; var ioServerOptions: TRODiscoveryOptions): AnsiString;
+  end;
+
+  { CoIRODiscoveryService }
+  CoRODiscoveryService = class
+    class function Create(const aMessage : IROMessage; aTransportChannel : IROTransportChannel) : IRODiscoveryService;
+  end;
+
+  TRODiscoveryService_Proxy = class(TROProxy, IRODiscoveryService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function FindService(const iName: AnsiString; var ioServerOptions: TRODiscoveryOptions): AnsiString;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoIRODiscoveryService }
+
+class function CoRODiscoveryService.Create(const aMessage : IROMessage; aTransportChannel : IROTransportChannel) : IRODiscoveryService;
+begin
+  result := TRODiscoveryService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TRODiscoveryService_Proxy }
+
+function TRODiscoveryService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'IRODiscoveryService';
+end;
+
+function TRODiscoveryService_Proxy.FindService(const iName: AnsiString; var ioServerOptions: TRODiscoveryOptions): AnsiString;
+begin
+  try
+     __Message.InitializeRequestMessage(__TransportChannel, 'RODiscovery', __InterfaceName, 'FindService');
+    __Message.Write('iName', TypeInfo(AnsiString), iName, []);
+     __Message.Write('ioServerOptions', TypeInfo(TRODiscoveryOptions), ioServerOptions, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
+     __Message.Read('ioServerOptions', TypeInfo(TRODiscoveryOptions), ioServerOptions, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TRODiscoveryOptions);
+  RegisterProxyClass(IRODiscoveryService_IID, TRODiscoveryService_Proxy);
+
+finalization
+  UnregisterROClass(TRODiscoveryOptions);
+  UnregisterProxyClass(IRODiscoveryService_IID);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Invk.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Invk.pas
new file mode 100644
index 0000000..568a48a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODiscovery_Invk.pas	
@@ -0,0 +1,79 @@
+unit uRODiscovery_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} uRODiscovery_Intf;
+
+type
+  TIRODiscoveryService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_FindService(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TIRODiscoveryService_Invoker }
+
+constructor TIRODiscoveryService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TIRODiscoveryService_Invoker.Invoke_FindService(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function FindService(const iName: AnsiString; var ioServerOptions: TRODiscoveryOptions): AnsiString; }
+var
+  iName: AnsiString;
+  ioServerOptions: TRODiscoveryOptions;
+  __in_ioServerOptions: TRODiscoveryOptions;
+  lResult: AnsiString;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ioServerOptions := nil;
+  __in_ioServerOptions := nil;
+  try
+    __Message.Read('iName', TypeInfo(AnsiString), iName, []);
+    __Message.Read('ioServerOptions', TypeInfo(TRODiscoveryOptions), ioServerOptions, []);
+    __in_ioServerOptions := ioServerOptions;
+
+    lResult := (__Instance as IRODiscoveryService).FindService(iName, ioServerOptions);
+
+    __Message.InitializeResponseMessage(__Transport, 'RODiscovery', 'IRODiscoveryService', 'FindServiceResponse');
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
+    __Message.Write('ioServerOptions', TypeInfo(TRODiscoveryOptions), ioServerOptions, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(__in_ioServerOptions);
+      __lObjectDisposer.Add(ioServerOptions);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODynamicRequest.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODynamicRequest.pas
new file mode 100644
index 0000000..250a849
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRODynamicRequest.pas	
@@ -0,0 +1,1503 @@
+unit uRODynamicRequest;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, uROClient, uROTypes, uRORemoteService, uRODL, uROClasses;
+
+const
+  RODLParamFlagStr : array[TRODLParamFlag] of string = ('In', 'Out', 'InOut', 'Result');
+
+  err_UnknownComplexType = 'Complex type %s was not found. The type is not registered or the package containing it is not loaded.';
+
+type
+  { Misc }
+  TRODynamicRequest = class;
+  TRORequestParamCollection = class;
+  TRORequestParam = class;
+
+  TRODynamicRequestNotifyEvent = procedure(Sender : TRODynamicRequest) of object;
+  TRODynamicRequestErrorEvent = procedure(Sender : TRODynamicRequest; Error : Exception; var Ignore : boolean) of object;
+  TROStringPropertyChangeEvent = procedure(Sender : TRODynamicRequest; const OldValue, NewValue : string) of object;
+  TROFindCustomTypeImplementationEvent = procedure(Sender: TRODynamicRequest; const aTypeName:string; aParameter: TRORequestParam; out aImplementor: TROComplexType) of object;
+
+  { TRORequestParam }
+  TRORequestParam = class(TCollectionItem)
+  private
+    fName: string;
+    fDataType: TRODataType;
+    fFlag: TRODLParamFlag;
+    fTypeName: string;
+
+    fOwnsBinary, fOwnsComplexType: boolean;
+    fBinaryValue: Binary;
+    fComplexTypeValue: TROComplexType;
+    fSimpleValue: Variant;
+    procedure SetFlag(const Value: TRODLParamFlag);
+    procedure SetName(const Value: string);
+
+    procedure SetDataType(const Value: TRODataType);
+    procedure SetTypeName(const Value: string);
+    function GetAsBoolean: boolean;
+    function GetAsCurrency: currency;
+    function GetAsDateTime: TDateTime;
+    function GetAsFloat: double;
+    function GetAsInteger: integer;
+    function GetAsComplexType: TROComplexType;
+    function GetAsString: string;
+    function GetAsAnsiString: AnsiString;
+    function GetAsVariant: variant;
+    procedure SetAsBoolean(const Value: boolean);
+    procedure SetAsCurrency(const Value: currency);
+    procedure SetAsDateTime(const Value: TDateTime);
+    procedure SetAsFloat(const Value: double);
+    procedure SetAsInteger(const Value: integer);
+    procedure SetAsComplexType(const Value: TROComplexType);
+    procedure SetAsString(const Value: string);
+    procedure SetAsAnsiString(const Value: AnsiString);
+    procedure SetAsVariant(const Value: variant);
+    function GetAsWideString: UnicodeString;
+    procedure SetAsWideString(const Value: UnicodeString);
+    function GetAsInt64: Int64;
+    procedure SetAsInt64(const Value: Int64);
+    function GetAsBinary: Binary;
+    procedure SetAsBinary(const Value: Binary);
+    function GetIsNull: boolean;
+    function GetAsUTF8String: UTF8String;
+    procedure SetAsUTF8String(const Value: UTF8String);
+    {$IFDEF FPC}
+    procedure FPC_ReadVariant(Reader: TReader);
+    procedure FPC_WriteVariant(Writer: TWriter);
+    {$ENDIF FPC}
+  protected
+    function GetDisplayName: string; override;
+
+  public
+    constructor Create(Collection: TCollection); override;
+    destructor Destroy; override;
+
+    function GetSimpleValueReference: PVariant;
+    procedure CopyRODLParam(aSourceParam: TRODLOperationParam; aPersistValues: boolean=true; aOldParams: TRORequestParamCollection=nil);
+
+    procedure ReadSimpleValue(Reader: TReader);
+    procedure WriteSimpleValue(Writer: TWriter);
+    procedure ReadComplexTypeValue(Reader: TReader);
+    procedure WriteComplexTypeValue(Writer: TWriter);
+    procedure ReadBinaryValue(Stream: TStream);
+    procedure WriteBinaryValue(Stream: TStream);
+    procedure DefineProperties(Filer: TFiler); override;
+
+    procedure Assign(Source: TPersistent); override;
+
+    procedure ClearValue;
+    procedure Check; // check if param has values adequate to its datatype
+
+    property IsNull : boolean read GetIsNull;
+
+    property AsBoolean: boolean read GetAsBoolean write SetAsBoolean;
+    property AsCurrency: currency read GetAsCurrency write SetAsCurrency;
+    property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime;
+    property AsFloat: double read GetAsFloat write SetAsFloat;
+    property AsInteger: integer read GetAsInteger write SetAsInteger;
+    property AsString: string read GetAsString write SetAsString;
+    property AsWideString: UnicodeString read GetAsWideString write SetAsWideString;
+    property AsAnsiString: AnsiString read GetAsAnsiString write SetAsAnsiString;
+    property AsUTF8String: UTF8String read GetAsUTF8String write SetAsUTF8String;
+    property AsInt64 : Int64 read GetAsInt64 write SetAsInt64;
+    property AsVariant: variant read GetAsVariant write SetAsVariant;
+
+    property AsComplexType: TROComplexType read GetAsComplexType write SetAsComplexType;
+    property AsBinary : Binary read GetAsBinary write SetAsBinary;
+
+    property OwnsBinary: boolean read fOwnsBinary write fOwnsBinary;
+    property OwnsComplexType: boolean read fOwnsComplexType write fOwnsComplexType;
+
+  published
+    property Name : string read fName write SetName;
+    property DataType : TRODataType read fDataType write SetDataType;
+    property Flag : TRODLParamFlag read fFlag write SetFlag;
+    property TypeName : string read fTypeName write SetTypeName;
+    property Value: variant read GetAsVariant write SetAsVariant;
+  end;
+
+  { TRORequestParamCollection }
+  TRORequestParamCollection = class(TCollection)
+  private
+    fRequest : TRODynamicRequest;
+    function GetHasResultParam: boolean;
+    function GetResultParam: TRORequestParam;
+
+  protected
+    function GetItems(aIndex: integer): TRORequestParam;
+    procedure SetItems(aIndex: integer; aNewItem: TRORequestParam);
+
+  public
+    constructor Create(aDynamicRequest : TRODynamicRequest);
+    destructor Destroy; override;
+
+    function Add: TRORequestParam; overload;
+    function Add(const aName: string; aDataType: TRODataType; aParamFlag: TRODLParamFlag; const aTypeName: string=''): TRORequestParam; overload;
+    function Insert(aIndex: integer): TRORequestParam;
+
+    function FindParam(const aParamName: string): TRORequestParam;
+    function ParamByName(const aParamName: string): TRORequestParam;
+
+    procedure CopyRODLOperation(anOperation : TRODLOperation);
+
+    procedure Refresh;
+
+    procedure ClearValues;
+    procedure ClearInputValues;
+    procedure ClearOutputValues;
+    procedure Clone(Source : TRORequestParamCollection);
+
+    function IndexOf(aItem: TRORequestParam): integer;
+
+    property ResultParam : TRORequestParam read GetResultParam;
+    property HasResultParam: boolean read GetHasResultParam;
+    property Items[Index: integer]: TRORequestParam read GetItems write SetItems; default;
+  end;
+
+  { TRODynamicRequest }
+  TRODynamicRequest = class(TROComponent)
+  private
+    fMethodName: string;
+    fParams: TRORequestParamCollection;
+    fOnExecuteError: TRODynamicRequestErrorEvent;
+    fOnAfterExecute: TRODynamicRequestNotifyEvent;
+    fOnBeforeExecute: TRODynamicRequestNotifyEvent;
+    fOnChangeMethodName: TROStringPropertyChangeEvent;
+    fOnChangeServiceName: TROStringPropertyChangeEvent;
+    fOnFindCustomTypeImplementation: TROFindCustomTypeImplementationEvent;
+    fRemoteService: TRORemoteService;
+    function GetRODLLibrary: TRODLLibrary;
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure SetRemoteService(const Value: TRORemoteService);
+
+    procedure SetMethodName(const Value: string);
+    function GetParams: TRORequestParamCollection;
+    procedure SetParams(const Value: TRORequestParamCollection);
+    function GetIsFunction: boolean;
+
+  protected
+    procedure DoExecute(aParams: TRORequestParamCollection=nil); virtual;
+    procedure MethodNameChanged; virtual;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure CreateInputComplexTypes(SkipIfAssigned : boolean);
+
+    procedure Execute(aParams: TRORequestParamCollection=nil);
+
+    procedure RefreshParams(aPersistValues: boolean = false); overload;
+    procedure RefreshParams(aOperation: TRODLOperation; aPersistValues: boolean = false); overload;
+
+    function FindParam(const aParamName: string): TRORequestParam;
+    function ParamByName(const aParamName: string): TRORequestParam;
+
+    procedure ListServiceOperations(const aServiceName : string; aList : TStrings);
+    procedure CheckProperties;
+    property RODLLibrary : TRODLLibrary read GetRODLLibrary;
+    property IsFunction : boolean read GetIsFunction;
+
+
+  published
+    property OnBeforeExecute : TRODynamicRequestNotifyEvent read fOnBeforeExecute write fOnBeforeExecute;
+    property OnAfterExecute : TRODynamicRequestNotifyEvent read fOnAfterExecute write fOnAfterExecute;
+    property OnExecuteError : TRODynamicRequestErrorEvent read fOnExecuteError write fOnExecuteError;
+    property OnFindCustomTypeImplementation: TROFindCustomTypeImplementationEvent read fOnFindCustomTypeImplementation write fOnFindCustomTypeImplementation;
+
+    property OnChangeServiceName : TROStringPropertyChangeEvent read fOnChangeServiceName write fOnChangeServiceName;
+    property OnChangeMethodName : TROStringPropertyChangeEvent read fOnChangeMethodName write fOnChangeMethodName;
+
+    property RemoteService: TRORemoteService read fRemoteService write SetRemoteService;
+    {$WARNINGS OFF}
+    property MethodName : string read fMethodName write SetMethodName;
+    {$WARNINGS ON}
+    property Params : TRORequestParamCollection read GetParams write SetParams;
+  end;
+
+  TRODesigntimeCall = class(TRODynamicRequest)
+  private
+  public
+    procedure MakeRequest;
+  published
+  end;
+  
+  
+{ Cloning functions }
+function CloneObject(Proto : TPersistent) : TPersistent;
+function CloneComplexType(Proto : TROComplexType) : TROComplexType;
+function CloneBinary(Proto : Binary) : Binary;
+
+implementation
+
+uses
+  {$IFDEF DEBUG_REMOBJECTS_DYNAMICREQUEST}eDebugServer,{$ENDIF}
+  Variants, TypInfo, IniFiles,uROSerializer, uROBinaryHelpers,
+  uROClientIntf, uRORes;
+
+var CloneNumber : Integer = 0;
+
+{ Copy Event handlers from one component to another.   }
+procedure CopyEvents( S, D : TPersistent );
+var
+  I  : Integer;
+  PProps : PPropList;
+  PCount : Integer;
+  M  : TMethod;
+begin
+  { Scan through all published properties...    }
+  PCount := GetTypeData( S.ClassInfo ).PropCount;
+  GetMem( PProps, PCount * sizeof(PPropInfo));
+  try
+    GetPropInfos( S.ClassInfo, PProps );
+    for I := 0 to PCount - 1 do
+    begin
+      if PProps[I].PropType^.Kind = tkMethod then
+      begin
+        M := GetMethodProp( S, PProps[I] );
+        SetMethodProp( D, PProps[I], M );
+      end;
+    end;
+  finally
+    FreeMem( PProps, PCount * sizeof(PPropInfo));
+  end;
+end;
+
+function CloneObject(Proto : TPersistent) : TPersistent;
+var
+  M : TMemoryStream;
+  T : TComponent;
+begin
+  if Proto=NIL then begin
+    result := NIL;
+    Exit;
+  end
+
+  else if (Proto is TROComplexType) then begin
+    result := TPersistent(TROComplexTypeClass(Proto.ClassType).Create);
+    result.Assign(Proto);
+    Exit;
+  end;
+
+  RegisterClass( TPersistentClass(Proto.ClassType) );
+
+  M := TMemoryStream.Create;
+  try
+    { Write prototype to stream & create a new item by reading it back. }
+    M.WriteComponent(TComponent(Proto));
+    M.Seek( 0, soFromBeginning );
+    T := M.ReadComponent( nil );
+
+    { Set owner and parent as required.     }
+    if T.Owner <> nil then T.Owner.RemoveComponent( T );
+    T.Name := format( 'Clone%d', [CloneNumber] );
+    CloneNumber := CloneNumber+1;
+
+    { The above will lose event handlers for some reason so we must }
+    { copy these using some black magic...    }
+    CopyEvents( Proto, T );
+  finally
+    M.Free;
+  end;
+  Result := T;
+end;
+
+function CloneComplexType(Proto : TROComplexType) : TROComplexType;
+begin
+  result := TROComplexType(CloneObject(Proto));
+end;
+
+function CloneBinary(Proto : Binary) : Binary;
+begin
+  if Proto=NIL then result := NIL
+  else begin
+    result := Binary.Create;
+    result.LoadFromStream(Proto);
+    result.Position := 0;
+  end;
+end;
+
+{ TRORequestParam }
+
+constructor TRORequestParam.Create(Collection: TCollection);
+begin
+  inherited;
+end;
+
+destructor TRORequestParam.Destroy;
+begin
+  if fOwnsComplexType then FreeAndNil(fComplexTypeValue);
+  if fOwnsBinary then FreeAndNil(fBinaryValue);
+  inherited;
+end;
+
+function TRORequestParam.GetDisplayName: string;
+begin
+  if (Trim(Name)='') then
+    result := inherited GetDisplayName
+  else
+    result := Name+': '+ROGetEnumName(TypeInfo(TRODataType), Ord(DataType));
+end;
+
+procedure TRORequestParam.SetTypeName(const Value: string);
+begin
+  fTypeName := Value;
+  if fTypeName <> '' then
+    DataType := rtUserDefined;
+end;
+
+procedure TRORequestParam.SetDataType(const Value: TRODataType);
+begin
+  fDataType := Value;
+
+  if (Value = rtBinary) then begin
+    if not assigned(fBinaryValue) then begin
+      fBinaryValue := Binary.Create();
+      fOwnsBinary := true;
+    end;
+  end
+  else begin
+    if fOwnsBinary then FreeAndNil(fBinaryValue);
+    fBinaryValue := nil;
+    fOwnsBinary := false;
+  end;
+
+  if Value <> rtUserDefined then
+    fTypeName := '';
+end;
+
+procedure TRORequestParam.SetFlag(const Value: TRODLParamFlag);
+begin
+  fFlag := Value;
+end;
+
+procedure TRORequestParam.SetName(const Value: string);
+begin
+  fName := Value;
+end;
+
+function TRORequestParam.GetAsBoolean: boolean;
+begin
+  if VarIsNull(fSimpleValue) then
+    result := false
+  else
+    result := fSimpleValue
+end;
+
+function TRORequestParam.GetAsCurrency: currency;
+begin
+  if VarIsNull(fSimpleValue) then
+    result := 0
+  else
+    result := fSimpleValue
+end;
+
+function TRORequestParam.GetAsDateTime: TDateTime;
+begin
+  if VarIsNull(fSimpleValue) then
+    result := 0
+  else
+    result := fSimpleValue;
+end;
+
+function TRORequestParam.GetAsFloat: double;
+begin
+  if VarIsNull(fSimpleValue) then
+    result := 0
+  else
+    result := fSimpleValue
+end;
+
+function TRORequestParam.GetAsInteger: integer;
+begin
+  if VarIsNull(fSimpleValue) then
+    result := 0
+  else
+    result := fSimpleValue;
+end;
+
+function TRORequestParam.GetAsString: string;
+begin
+  Result := VarToStrDef(fSimpleValue, '');
+end;
+
+function TRORequestParam.GetAsVariant: variant;
+begin
+  result := fSimpleValue
+end;
+
+procedure TRORequestParam.SetAsBoolean(const Value: boolean);
+begin
+  fSimpleValue := Value
+end;
+
+procedure TRORequestParam.SetAsCurrency(const Value: currency);
+begin
+  fSimpleValue := Value
+end;
+
+procedure TRORequestParam.SetAsDateTime(const Value: TDateTime);
+begin
+  fSimpleValue := Value
+end;
+
+procedure TRORequestParam.SetAsFloat(const Value: double);
+begin
+  fSimpleValue := Value
+end;
+
+procedure TRORequestParam.SetAsInteger(const Value: integer);
+begin
+  fSimpleValue := Value
+end;
+
+procedure TRORequestParam.SetAsString(const Value: string);
+begin
+  fSimpleValue := Value
+end;
+
+function TRORequestParam.GetAsAnsiString: AnsiString;
+begin
+  result := VarToAnsiStr(fSimpleValue);
+end;
+
+procedure TRORequestParam.SetAsVariant(const Value: variant);
+begin
+  fSimpleValue := Value
+end;
+
+procedure TRORequestParam.ClearValue;
+begin
+  if fOwnsComplexType then fComplexTypeValue.Free;
+  if fOwnsBinary then fBinaryValue.Free;
+  fComplexTypeValue := nil;
+  fBinaryValue := nil;
+  fSimpleValue := Null;
+  fOwnsComplexType := false;
+  fOwnsBinary := false;
+  DataType := DataType; // recreates Binary if needed
+end;
+
+function TRORequestParam.GetAsWideString: UnicodeString;
+begin
+  result := fSimpleValue
+end;
+
+procedure TRORequestParam.SetAsAnsiString(const Value: AnsiString);
+begin
+  fSimpleValue := Value;
+end;
+
+procedure TRORequestParam.SetAsWideString(const Value: UnicodeString);
+begin
+  fSimpleValue := Value
+end;
+
+function TRORequestParam.GetAsInt64: Int64;
+begin
+  result := fSimpleValue
+end;
+
+procedure TRORequestParam.SetAsInt64(const Value: Int64);
+begin
+  fSimpleValue := Value
+end;
+
+function TRORequestParam.GetAsBinary: Binary;
+begin
+  result := fBinaryValue;
+end;
+
+procedure TRORequestParam.SetAsBinary(const Value: Binary);
+begin
+  if Value <> fBinaryValue then begin
+    if fOwnsBinary then FreeAndNil(fBinaryValue);
+    fOwnsBinary := false;
+    fBinaryValue := Value;
+  end;
+end;
+
+function TRORequestParam.GetAsComplexType: TROComplexType;
+begin
+  result := fComplexTypeValue;
+end;
+
+procedure TRORequestParam.SetAsComplexType(const Value: TROComplexType);
+begin
+  if Value <> fComplexTypeValue then begin
+    if fOwnsComplexType then
+      FreeAndNil(fComplexTypeValue);
+    fOwnsComplexType := false;
+    fComplexTypeValue := Value;
+  end;
+end;
+
+function TRORequestParam.GetIsNull: boolean;
+begin
+  result := ((fDataType = rtBinary) and (fBinaryValue = nil)) or
+            ((fDataType = rtUserDefined) and (fComplexTypeValue = nil)) or
+            (fSimpleValue = Null);
+
+end;
+
+function TRORequestParam.GetSimpleValueReference: PVariant;
+begin
+  result := @fSimpleValue
+end;
+
+procedure TRORequestParam.Assign(Source: TPersistent);
+begin
+  if (Source is TRORequestParam) then begin
+    Name := TRORequestParam(Source).Name;
+    DataType := TRORequestParam(Source).DataType;
+    Flag := TRORequestParam(Source).Flag;
+    TypeName := TRORequestParam(Source).TypeName;
+    case DataType of
+      rtBinary: AsBinary := TRORequestParam(Source).AsBinary;
+      rtUserDefined: AsComplexType := TRORequestParam(Source).AsComplexType;
+      else AsVariant := AsVariant;
+    end;
+  end
+  else inherited;
+end;
+
+procedure TRORequestParam.Check;
+begin
+  case DataType of
+    rtInteger: AsInteger;
+    rtDateTime: AsDateTime;
+    rtDouble: AsFloat;
+    rtCurrency: AsCurrency;
+    rtWidestring: AsWideString;
+    rtString: AsAnsiString;
+    rtUTF8String: AsUTF8String;
+    rtInt64: AsInt64;
+    rtBoolean: AsBoolean;
+    rtVariant: AsVariant;
+    rtBinary: AsBinary;
+    rtUserDefined: AsComplexType;
+    else Assert(False, 'unsupported data type encountered in TRORequestParam '+Name);
+  end;
+end;
+
+procedure TRORequestParam.CopyRODLParam(aSourceParam: TRODLOperationParam; aPersistValues: boolean; aOldParams: TRORequestParamCollection);
+var oldparam : TRORequestParam;
+begin
+  Name := aSourceParam.Name;
+  Flag := aSourceParam.Flag;
+  DataType := StrToDataType(aSourceParam.DataType);
+
+  fSimpleValue := Null;
+  if DataType = rtUserDefined then
+    TypeName := aSourceParam.DataType
+  else
+    TypeName := '';
+
+  if aPersistValues and Assigned(aOldParams) then begin
+    oldparam := aOldParams.FindParam(Name);
+    if Assigned(oldparam) then begin
+      case DataType of
+        rtUserDefined: AsComplexType := oldparam.AsComplexType;
+        rtBinary: AsBinary := oldParam.AsBinary;
+        else AsVariant := oldparam.AsVariant;
+      end;
+    end;
+  end;
+end;
+
+function TRORequestParam.GetAsUTF8String: UTF8String;
+begin
+  result := UTF8Encode(VarToStrDef(fSimpleValue,''));
+end;
+
+procedure TRORequestParam.SetAsUTF8String(const Value: UTF8String);
+begin
+  fSimpleValue := UTF8ToString(Value);
+end;
+
+{ TRORequestParamCollection }
+
+constructor TRORequestParamCollection.Create(aDynamicRequest : TRODynamicRequest);
+begin
+  inherited Create(TRORequestParam);
+
+  fRequest := aDynamicRequest;
+end;
+
+destructor TRORequestParamCollection.Destroy;
+begin
+  inherited;
+end;
+
+function TRORequestParamCollection.Add: TRORequestParam;
+begin
+  result := TRORequestParam(inherited Add);
+end;
+
+function TRORequestParamCollection.Add(const aName: string; aDataType: TRODataType; aParamFlag: TRODLParamFlag; const aTypeName: string=''): TRORequestParam; 
+begin
+  result := Add();
+  with result do begin
+    Name := aName;
+    DataType := aDataType;
+    Flag :=aParamFlag;
+    if DataType = rtUserDefined then
+      TypeName := aTypeName;
+  end;
+end;
+
+function TRORequestParamCollection.Insert(aIndex: integer): TRORequestParam;
+begin
+  result := TRORequestParam(inherited Insert(aIndex));
+end;
+
+function TRORequestParamCollection.GetItems(aIndex: integer): TRORequestParam;
+begin
+  result := TRORequestParam(inherited Items[aIndex]);
+end;
+
+function TRORequestParamCollection.IndexOf(aItem: TRORequestParam): integer;
+var i: integer;
+begin
+  result := - 1;
+  for i := 0 to (Count - 1) do
+    if (aItem = Items[i]) then begin
+      result := i;
+      Exit;
+  end;
+end;
+
+procedure TRORequestParamCollection.SetItems(aIndex: integer; aNewItem: TRORequestParam);
+begin
+  inherited Items[aIndex].Assign(aNewItem);
+end;
+
+procedure TRORequestParamCollection.Refresh;
+var
+  svc : TRODLService;
+  oper : TRODLOperation;
+begin
+  svc := TRODLService(fRequest.RODLLibrary.GetService(fRequest.RemoteService.ServiceName));
+  oper := TRODLOperation(svc.Default.GetOperation(fRequest.MethodName, TRUE));
+
+  CopyRODLOperation(oper);
+end;
+
+procedure TRORequestParamCollection.CopyRODLOperation(anOperation: TRODLOperation);
+var i : integer;
+    param : TRORequestParam;
+begin
+  Clear;
+
+  {$IFDEF DEBUG_REMOBJECTS_DYNAMICREQUEST}
+  DebugServer.EnterMethod('TRORequestParamCollection.CopyRODLOperation');
+  try
+  {$ENDIF}
+
+  for i := 0 to (anOperation.Count-1) do begin
+    {$IFDEF DEBUG_REMOBJECTS_DYNAMICREQUEST}
+    DebugServer.Write('Adding Parameter %s',[anOperation.Items[i].Name]);
+    {$ENDIF}
+    param := Add;
+    param.Name := anOperation.Items[i].Name;
+    param.DataType := StrToDataType(anOperation.Items[i].DataType);
+    param.Flag := anOperation.Items[i].Flag;
+
+    if (param.DataType=rtUserDefined)
+      then param.TypeName := anOperation.Items[i].DataType
+      else param.TypeName := '';
+  end;
+
+  if (anOperation.Result<>NIL) then begin
+    {$IFDEF DEBUG_REMOBJECTS_DYNAMICREQUEST}
+    DebugServer.Write('Adding Result');
+    {$ENDIF}
+
+    param := Insert(0);
+
+    param.Name := anOperation.Result.Name;
+    param.DataType := StrToDataType(anOperation.Result.DataType);
+    param.Flag := anOperation.Result.Flag;
+
+    if (param.DataType=rtUserDefined)
+      then param.TypeName := anOperation.Result.DataType
+      else param.TypeName := '';
+  end;
+
+  {$IFDEF DEBUG_REMOBJECTS_DYNAMICREQUEST}
+  finally
+    DebugServer.ExitMethod('TRORequestParamCollection.CopyRODLOperation');
+  end;
+  {$ENDIF}
+
+end;
+
+function TRORequestParamCollection.FindParam(const aParamName: string): TRORequestParam;
+var i: Integer;
+begin
+  result := NIL;
+  for i := 0 to (Count - 1) do
+    if SameText(Items[i].Name, aParamName) then begin
+      result := Items[i];
+      Exit;
+    end;
+end;                                            
+
+function TRORequestParamCollection.ParamByName(const aParamName: string): TRORequestParam;
+begin
+  result := FindParam(aParamName);
+  if not assigned(result) then raise Exception.CreateFmt(err_CannotFindParameter, [aParamName]);    
+end;
+
+procedure TRORequestParamCollection.ClearValues;
+var
+  i: Integer;
+begin
+  for i := 0 to (Count - 1) do
+    Items[i].ClearValue;
+end;
+
+procedure TRORequestParamCollection.ClearInputValues;
+var
+  i: Integer;
+begin
+  for i := 0 to (Count - 1) do
+    if (Items[i].Flag in [fIn, fInOut]) then // do not remove fInOut
+      Items[i].ClearValue;
+end;
+
+procedure TRORequestParamCollection.ClearOutputValues;
+var
+  i: Integer;
+begin
+  for i := 0 to (Count - 1) do
+    if (Items[i].Flag in [fOut, fResult]) then // do not add fInOut
+      Items[i].ClearValue;
+end;
+
+procedure TRORequestParamCollection.Clone(Source: TRORequestParamCollection);
+var i: integer;
+    v: Variant;
+begin
+  ClearValues;
+  Clear;
+
+  Assign(Source);
+
+  for i := 0 to (Source.Count - 1) do begin
+    case Source[i].DataType of
+      rtUserDefined : Items[i].AsComplexType := CloneObject(Source.Items[i].AsComplexType) as TROComplexType;
+      rtBinary : Items[i].AsBinary := CloneBinary(Source.Items[i].AsBinary);
+      else begin
+        v := Source.Items[i].AsVariant;
+        Items[i].AsVariant := v;
+      end;
+    end;
+  end;
+end;
+
+function TRORequestParamCollection.GetResultParam: TRORequestParam;
+var
+  i: Integer;
+begin
+  for i := 0 to (Count - 1) do begin
+    if (Items[i].Flag in [fResult]) then begin
+      result := Items[i];
+      exit;
+    end;
+  end;
+  result := nil;
+end;
+
+function TRORequestParamCollection.GetHasResultParam: boolean;
+begin
+  result := GetResultParam() <> nil;
+end;
+
+{ TRODynamicRequest }
+
+constructor TRODynamicRequest.Create(aOwner: TComponent);
+begin
+  inherited;
+  fParams := TRORequestParamCollection.Create(Self);
+end;
+
+destructor TRODynamicRequest.Destroy;
+begin
+  RemoteService := nil;
+  fParams.Free;
+  inherited;
+end;
+
+procedure TRODynamicRequest.DoExecute(aParams: TRORequestParamCollection=nil);
+var
+  // Temporary buffers
+  vint: integer;
+  vdatetime: TDateTime;
+  vdouble: double;
+  vcurrency: currency;
+  vwidestring: widestring;
+  vstring: Ansistring;
+  vutf8string: UTF8String;
+  vint64: int64;
+  vboolean: boolean;
+  vcls : TROComplexTypeClass;
+  vobj : TROComplexType;
+  vbinary : Binary;
+  vvariant: Variant;
+
+  lParamName : string;
+  lComplexTypeClass : TClass;
+  lMessage: IROMessage;
+
+  procedure WriteParam(aParam: TRORequestParam);
+  begin
+    if not Assigned(aParam) then exit; // allow passing of nil for ease of use
+    lParamName := aParam.Name;
+
+    case aParam.DataType of
+      rtInteger: begin
+          vint := aParam.AsInteger;
+          lMessage.Write(lParamName, TypeInfo(integer), vint, []);
+        end;
+      rtDateTime: begin
+          vdatetime := aParam.AsDateTime;
+          lMessage.Write(lParamName, TypeInfo(TDateTime), vdatetime, []);
+        end;
+      rtDouble: begin
+          vdouble := aParam.AsFloat;
+          lMessage.Write(lParamName, TypeInfo(TDateTime), vdouble, []);
+        end;
+      rtCurrency: begin
+          vcurrency := aParam.AsCurrency;
+          lMessage.Write(lParamName, TypeInfo(currency), vcurrency, []);
+        end;
+      rtWidestring: begin
+          vwidestring := aParam.AsWideString;
+          lMessage.Write(lParamName, TypeInfo(widestring), vwidestring, []);
+        end;
+      rtString: begin
+          vstring := aParam.AsAnsiString;
+          lMessage.Write(lParamName, TypeInfo(AnsiString), vstring, []);
+        end;
+      rtUTF8String: begin
+          vutf8string := aParam.AsUTF8String;
+          lMessage.Write(lParamName, TypeInfo(UTF8String), vutf8string, []);
+        end;
+      rtInt64: begin
+          vint64 := aParam.AsInt64;
+          lMessage.Write(lParamName, TypeInfo(int64), vint64, []);
+        end;
+      rtBoolean: begin
+          vboolean := aParam.AsBoolean;
+          lMessage.Write(lParamName, TypeInfo(boolean), vboolean, []);
+        end;
+      rtVariant: begin
+          vvariant := aParam.AsVariant;
+          lMessage.Write(aParam.Name, TypeInfo(variant), vvariant, []);
+        end;
+      rtBinary: begin
+          vbinary := aParam.AsBinary;
+          if Assigned(vbinary) then begin
+            lMessage.Write(lParamName, vbinary.ClassInfo, vbinary, []);
+          end
+          else begin
+            lMessage.Write(lParamName, TypeInfo(binary), vbinary, []);
+          end;
+        end;
+      rtUserDefined : begin
+          vobj := aParam.AsComplexType;
+          if assigned(vobj) then
+            lMessage.Write(lParamName, vobj.ClassInfo, vobj, [])
+          else begin
+            lComplexTypeClass := FindROClass(aParam.TypeName);
+            if not assigned(lComplexTypeClass) then
+              raise Exception.CreateFmt('Unknown class %s', [aParam.TypeName]);
+            lMessage.Write(lParamName, lComplexTypeClass.ClassInfo, vobj, []);
+          end;
+        end;
+      else
+        NotSupported;
+    end; { case }
+  end;
+
+  procedure ReadParam(aParam: TRORequestParam);
+  var
+    lDummy: IROCustomStreamableType;
+  begin
+    if not Assigned(aParam) then exit; // allow passing of nil for ease of use
+    lParamName := aParam.Name;
+
+    {$IFDEF DEBUG_REMOBJECTS_DYNAMICREQUEST}
+    DebugServer.Write('Reading Parameter %s.',[lParamName]);
+    {$ENDIF}
+
+    case aParam.DataType of
+      rtInteger: begin
+          lMessage.Read(lParamName, TypeInfo(integer), vint, []);
+          aParam.AsInteger := vint;
+        end;
+      rtDateTime: begin
+          lMessage.Read(lParamName, TypeInfo(TDateTime), vdatetime, []);
+          aParam.AsDateTime := vdatetime;
+        end;
+      rtDouble: begin
+          lMessage.Read(lParamName, TypeInfo(TDateTime), vdouble, []);
+          aParam.AsFloat := vdouble;
+        end;
+      rtCurrency: begin
+          lMessage.Read(lParamName, TypeInfo(currency), vcurrency, []);
+          aParam.AsCurrency := vcurrency;
+        end;
+      rtWidestring: begin
+          lMessage.Read(lParamName, TypeInfo(widestring), vwidestring, []);
+          aParam.AsWideString := vwidestring;
+        end;
+      rtString: begin
+          lMessage.Read(lParamName, TypeInfo(AnsiString), vstring, []);
+          aParam.AsAnsiString := vstring;
+        end;
+      rtUTF8String: begin
+          lMessage.Read(lParamName, TypeInfo(UTF8String), vutf8string, []);
+          aParam.AsUTF8String := vutf8string;
+        end;
+      rtInt64: begin
+          lMessage.Read(lParamName, TypeInfo(int64), vint64, []);
+          aParam.AsInt64 := vint64;
+        end;
+      rtBoolean: begin
+          lMessage.Read(lParamName, TypeInfo(boolean), vboolean, []);
+          aParam.AsBoolean := vboolean;
+        end;
+      rtBinary: begin
+          vbinary := aParam.AsBinary;
+          if assigned(vbinary) and aParam.fOwnsBinary then FreeAndNil(aParam.fBinaryValue);
+          vbinary := nil;
+          lMessage.Read(lParamName, TypeInfo(binary), vbinary, []);
+          {
+          if Assigned(vbinary) then begin
+            lMessage.Read(lParamName, vbinary.ClassInfo, vbinary, []);
+          end
+          else begin
+            lMessage.Read(lParamName, TypeInfo(binary), vbinary, []);
+          end;
+          }
+          aParam.AsBinary := vbinary;
+          aParam.OwnsBinary:=True;
+        end;
+      rtVariant:
+       begin
+          lMessage.Read(aParam.Name, TypeInfo(variant), vvariant, []);
+          aParam.AsVariant:=vvariant;
+       end;
+      rtUserDefined : begin
+          { ToDo -omh: I'm not particulaty happy with this approach yet (both here AND in the general
+                       streaming code. We should add a better hook to create the proper class for reading
+                       complex/array types. See also commenst in uROStreamSerializer. }
+          if Assigned(aParam.AsComplexType) and (aParam.fOwnsComplexType)  then begin
+            if not Supports(aParam, IROCustomStreamableType, lDummy) then FreeAndNil(aParam.fComplexTypeValue);
+          end;
+
+          if Assigned(aParam.AsComplexType) then begin
+            vobj := aParam.AsComplexType;
+            lMessage.Read(lParamName, vobj.ClassInfo, vobj, []);
+          end
+          else begin
+            vobj := nil;
+            vcls := FindROClass(aParam.TypeName);
+            if Assigned(vcls) then begin
+              lMessage.Read(lParamName, vcls.ClassInfo, vobj, []);
+            end
+            else begin
+              if Assigned(OnFindCustomTypeImplementation) then
+                OnFindCustomTypeImplementation(self, aParam.TypeName, aParam, vobj);
+
+              if not Assigned(vobj) then
+                raise EROUnknownType.CreateFmt(err_UnknownClass, [aParam.TypeName]);
+
+              lMessage.Read(lParamName, vobj.ClassInfo, vobj, []);
+            end;
+
+          end;
+          aParam.AsComplexType := vobj;
+        end;
+      else
+        NotSupported;
+    end; { case }
+  end;
+
+var
+  lChannel: IROTransportChannel;
+  i: integer;
+
+begin
+  CheckProperties;
+
+  if not assigned(aParams) then aParams := Params; // use own params, if none are passed in.
+
+  try
+    lMessage := RemoteService.Message as IROMessage;
+    lChannel := RemoteService.Channel as IROTransportChannel;
+
+    lMessage.InitializeRequestMessage(lChannel, '', fRemoteService.ServiceName, MethodName);
+    for i := 0 to (aParams.Count-1) do
+      if (aParams[i].Flag in [fIn, fInOut]) then
+        WriteParam(aParams[i]);
+    lMessage.Finalize;
+
+    (RemoteService.Channel as IROTransportChannel).Dispatch(lMessage);
+
+    ReadParam(aParams.ResultParam); // important: Result must be read before any of the other out or var parameters
+    for i := 0 to (aParams.Count - 1) do
+      if (aParams[i].Flag in [fOut, fInOut]) then
+        ReadParam(aParams[i]);
+
+  finally
+    lMessage.FreeStream;
+  end;
+end;
+
+procedure TRODynamicRequest.Execute(aParams: TRORequestParamCollection=nil);
+var
+  lIgnoreException : boolean;
+begin
+  if Assigned(fOnBeforeExecute) then
+    fOnBeforeExecute(Self);
+  try
+    try
+      DoExecute(aParams);
+    except
+      on E:Exception do begin
+        lIgnoreException := FALSE;
+        if Assigned(fOnExecuteError) then
+          fOnExecuteError(Self, E, lIgnoreException);
+        if not lIgnoreException then raise;
+      end;
+    end;
+  finally
+    if Assigned(fOnAfterExecute) then
+      fOnAfterExecute(Self);
+  end;
+end;
+
+function TRODynamicRequest.GetParams: TRORequestParamCollection;
+begin
+  result := fParams
+end;
+
+function TRODynamicRequest.GetRODLLibrary: TRODLLibrary;
+begin
+  result := RemoteService.GetRODLLibrary();
+end;
+
+function TRODynamicRequest.FindParam(const aParamName: string): TRORequestParam;
+begin
+  result := fParams.FindParam(aParamName);
+end;
+
+function TRODynamicRequest.ParamByName(const aParamName: string): TRORequestParam;
+begin
+  result := fParams.ParamByName(aParamName);
+end;
+
+procedure TRODynamicRequest.RefreshParams(aPersistValues: boolean);
+var
+  lLibrary: TRODLLibrary;
+  lService: TRODLService;
+  lOperation: TRODLOperation;
+begin
+  CheckProperties;
+
+  lLibrary := RemoteService.GetRODLLibrary();
+  lService := lLibrary.FindService(RemoteService.ServiceName);
+  if not Assigned(lService) then RaiseError('Undefined service "' + RemoteService.ServiceName + '"');
+
+  repeat
+    lOperation := lService.Default.FindOperation(MethodName);
+    if not Assigned(lOperation) then begin
+      if lService.Ancestor <> '' then begin
+        lService := lLibrary.FindService(lService.Ancestor);
+      end
+      else
+        lService := nil;
+    end;
+  until Assigned(lOperation) or not Assigned(lService);
+
+  if not Assigned(lOperation) then RaiseError('Method "' + MethodName + '" not found in service ' + RemoteService.ServiceName + ' or its anchestors');
+  RefreshParams(lOperation, aPersistValues);
+end;
+
+procedure TRODynamicRequest.RefreshParams(aOperation: TRODLOperation; aPersistValues: boolean);
+var
+  i: integer;
+  lOldParams: TRORequestParamCollection;
+  lNewParam: TRORequestParam;
+begin
+  lOldParams := nil;
+  try
+
+    if aPersistValues then begin
+      lOldParams := TRORequestParamCollection.Create(nil);
+      for i := 0 to (Params.Count - 1) do begin
+        with lOldParams.Add do begin
+          Assign(Params[i]);
+        end;
+      end;
+    end;
+
+    Params.Clear();
+
+    if Assigned(aOperation.Result) then begin
+      lNewParam := Params.Add();
+      lNewParam.CopyRODLParam(aOperation.Result, true, lOldParams);
+    end;
+
+    for i := 0 to (aOperation.Count - 1) do begin
+      lNewParam := Params.Add();
+      lNewParam.CopyRODLParam(aOperation.Items[i], true, lOldParams);
+    end;
+  finally
+    FreeAndNil(lOldParams);
+  end;
+end;
+
+procedure TRODynamicRequest.SetMethodName(const Value: string);
+var
+  lOldValue: string;
+begin
+  if Value <> fMethodName then begin
+    lOldValue := fMethodName;
+    fMethodName := Value;
+    MethodNameChanged();
+    if Assigned(fOnChangeMethodName) then fOnChangeMethodName(Self, lOldValue, fMethodName);
+  end;
+end;
+
+procedure TRODynamicRequest.SetParams(
+  const Value: TRORequestParamCollection);
+begin
+  fParams.Assign(Value);
+end;
+
+procedure TRODynamicRequest.SetRemoteService(const Value: TRORemoteService);
+begin
+  if Value <> fRemoteService then begin
+    if assigned(fRemoteService) then fRemoteService.RORemoveFreeNotification(self);
+    fRemoteService := Value;
+    if assigned(fRemoteService) then fRemoteService.ROFreeNotification(self);
+  end;
+end;
+
+procedure TRODynamicRequest.ListServiceOperations(
+  const aServiceName: string; aList: TStrings);
+var service : TRODLService;
+  i: Integer;
+begin
+  service := TRODLService(RODLLibrary.FindService(aServiceName));
+  Check(service=NIL, err_CannotFindService, [aServiceName]);
+
+  while service<>NIL do begin
+    for i := 0 to (service.Default.Count - 1) do begin
+      aList.Add(service.Default.Items[i].Name)
+    end;
+
+    if service.Ancestor<>''
+      then service := RODLLibrary.FindService(service.Ancestor)
+      else Break;
+  end;
+end;
+
+procedure TRODynamicRequest.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (Operation = opRemove) and (AComponent = fRemoteService) then fRemoteService := nil;
+end;
+
+procedure TRODynamicRequest.CreateInputComplexTypes(SkipIfAssigned : boolean);
+var
+  i: Integer;
+  cls: TROComplexTypeClass;
+  vobj: TROComplexType;
+begin
+  for i := 0 to (fParams.Count - 1) do
+    if (fParams[i].Flag=fIn) then begin
+      case fParams[i].DataType of
+        rtUserDefined: begin
+          if Assigned(fParams[i].AsComplexType) then begin
+            if SkipIfAssigned then
+              Continue
+            else
+              fParams[i].ClearValue;
+          end;
+
+          cls := FindROClass(fParams[i].TypeName);
+          if assigned(cls) then
+             vObj := cls.Create;
+          if not assigned(vObj) and Assigned(OnFindCustomTypeImplementation) then
+            OnFindCustomTypeImplementation(self, fParams[i].TypeName, fParams[i], vobj);
+          Assert(Assigned(vobj), Format(err_UnknownComplexType, [fParams[i].TypeName]));
+          fParams[i].AsComplexType := vobj;
+        end;
+        rtBinary: begin
+          if Assigned(fParams[i].AsBinary) then begin
+            if SkipIfAssigned then
+              Continue
+            else
+              fParams[i].ClearValue;
+          end;
+
+          fParams[i].AsBinary := Binary.Create;
+        end;
+      end;
+    end;
+end;
+
+function TRODynamicRequest.GetIsFunction: boolean;
+begin
+  result := fParams.ResultParam<>NIL
+end;
+
+procedure TRORequestParam.DefineProperties(Filer: TFiler);
+{$IFNDEF DESIGNTIME}
+var
+  cls: TROComplexTypeClass;
+{$ENDIF DESIGNTIME}
+begin
+  inherited;
+
+  {$IFNDEF DESIGNTIME}
+  if Assigned(Collection) and (Collection.Owner <> nil) and
+    (Collection.Owner is TComponent) and (csDesigning in TComponent(Collection.Owner).ComponentState) then
+    exit;
+
+  if (DataType = rtUserDefined) and not Assigned(fComplexTypeValue) and
+  (Flag in [fIn, fInOut]) then
+  begin
+    cls := FindROClass(TypeName);
+    if assigned(cls) then
+       fComplexTypeValue := cls.Create;
+    if not assigned(fComplexTypeValue) and Assigned(TRORequestParamCollection(Collection).fRequest.OnFindCustomTypeImplementation) then
+      TRORequestParamCollection(Collection).fRequest.OnFindCustomTypeImplementation(TRORequestParamCollection(Collection).fRequest, TypeName, self, fComplexTypeValue);
+    Assert(Assigned(fComplexTypeValue), Format(err_UnknownComplexType, [TypeName]));
+  end;
+
+  Filer.DefineProperty('SimpleValue', ReadSimpleValue, WriteSimpleValue,
+    not (fDataType in [rtBinary, rtUserDefined]));
+  Filer.DefineProperty('ComplexTypeValue', ReadComplexTypeValue, WriteComplexTypeValue,
+    (fDataType = rtUserDefined) and Assigned(fComplexTypeValue));
+  Filer.DefineBinaryProperty('BinaryValue', ReadBinaryValue, WriteBinaryValue,
+    (fDataType = rtBinary) and Assigned(fBinaryValue));
+  {$ENDIF DESIGNTIME}
+end;
+
+procedure TRORequestParam.ReadBinaryValue(Stream: TStream);
+begin
+  if not Assigned(fBinaryValue) then
+  begin
+    fBinaryValue := Binary.Create;
+  end;
+
+  fBinaryValue.LoadFromStream(Stream);
+end;
+
+procedure TRORequestParam.WriteBinaryValue(Stream: TStream);
+begin
+  fBinaryValue.SaveToStream(Stream);
+end;
+
+type
+  TReader2 = class(TReader)
+  private
+  protected
+  public
+    procedure ReadProperty2(Instance: TPersistent);
+  end;
+
+procedure TReader2.ReadProperty2(Instance: TPersistent);
+begin
+  ReadProperty(Instance);
+end;
+
+procedure TRORequestParam.ReadComplexTypeValue(Reader: TReader);
+var
+  cls: TROComplexTypeClass;
+begin
+  if not Assigned(fComplexTypeValue) then
+  begin
+    cls := FindROClass(TypeName);
+    if assigned(cls) then
+       fComplexTypeValue := cls.Create;
+    if not assigned(fComplexTypeValue) and Assigned(TRORequestParamCollection(Collection).fRequest.OnFindCustomTypeImplementation) then
+      TRORequestParamCollection(Collection).fRequest.OnFindCustomTypeImplementation(TRORequestParamCollection(Collection).fRequest, TypeName, self, fComplexTypeValue);
+    Assert(Assigned(fComplexTypeValue), Format(err_UnknownComplexType, [TypeName]));
+  end;
+
+  Reader.ReadListBegin;
+  while not Reader.EndOfList do TReader2(Reader).ReadProperty(fComplexTypeValue);
+  Reader.ReadListEnd;
+end;
+
+type
+  TWriter2 = class(TWriter)
+  private
+  protected
+  public
+    procedure WriteProperties2(Instance: TPersistent);
+  end;
+
+procedure TWriter2.WriteProperties2(Instance: TPersistent);
+begin
+  WriteProperties(Instance);
+end;
+
+procedure TRORequestParam.WriteComplexTypeValue(Writer: TWriter);
+begin
+  Assert(Assigned(fComplexTypeValue));
+  
+  Writer.WriteListBegin;
+  TWriter2(Writer).WriteProperties2(fComplexTypeValue);
+  Writer.WriteListEnd;
+end;
+
+procedure TRORequestParam.ReadSimpleValue(Reader: TReader);
+begin
+  {$IFDEF FPC}
+  FPC_ReadVariant(Reader);
+  {$ELSE}
+  fSimpleValue := Reader.ReadVariant;
+  {$ENDIF}
+end;
+
+procedure TRORequestParam.WriteSimpleValue(Writer: TWriter);
+begin
+  {$IFDEF FPC}
+  FPC_WriteVariant(Writer);
+  {$ELSE}
+  Writer.WriteVariant(fSimpleValue);
+  {$ENDIF}
+end;
+
+{$IFDEF FPC}
+procedure TRORequestParam.FPC_ReadVariant(Reader: TReader);
+begin
+  VarClear(fSimpleValue);
+  case Reader.NextValue of
+    vaNil, vaNull:
+         if Reader.ReadValue <> vaNil then
+            fSimpleValue := Variants.Null;
+    vaInt8:              fSimpleValue := Shortint(Reader.ReadInteger);
+    vaInt16:             fSimpleValue := Smallint(Reader.ReadInteger);
+    vaInt32:             fSimpleValue := Reader.ReadInteger;
+    vaExtended:          fSimpleValue := Reader.ReadFloat;
+    vaSingle:            fSimpleValue := Reader.ReadSingle;
+    vaCurrency:          fSimpleValue := Reader.ReadCurrency;
+    vaDate:              fSimpleValue := Reader.ReadDate;
+    vaString, vaLString: fSimpleValue := Reader.ReadString;
+    vaWString,
+    vaUTF8String:        fSimpleValue := Reader.ReadWideString;
+    vaFalse, vaTrue:     fSimpleValue := (Reader.ReadValue = vaTrue);
+    vaInt64:             fSimpleValue := Reader.ReadInt64;
+  else
+    raise Exception.Create('Error reading ...');
+  end;
+end;
+
+procedure TRORequestParam.FPC_WriteVariant(Writer: TWriter);
+begin
+  if VarIsArray(fSimpleValue) then
+    raise Exception.Create('Error writing ...');
+  case VarType(fSimpleValue) and varTypeMask of
+    {varEmpty:
+      Writer.WriteValue(vaNil);
+    varNull:
+      Writer.WriteValue(vaNull);}
+    varUString,
+    varOleStr:
+      Writer.WriteWideString(fSimpleValue);
+    varString:
+      Writer.WriteString(fSimpleValue);
+    varByte, varShortInt, varWord, varSmallInt, varInteger:
+      Writer.WriteInteger(TVarData(fSimpleValue).vInteger);
+    varSingle:
+      Writer.WriteSingle(TVarData(fSimpleValue).vSingle);
+    varDouble:
+      Writer.WriteFloat(TVarData(fSimpleValue).vDouble);
+    varCurrency:
+      Writer.WriteCurrency(fSimpleValue);
+    varDate:
+      Writer.WriteDate(fSimpleValue);
+    varBoolean:
+    begin
+      if fSimpleValue then
+        Writer.WriteBoolean(True)
+      else
+        Writer.WriteBoolean(False);
+{    varLongWord, varInt64:
+      begin
+        LInt64 := fSimpleValue;
+        WriteInteger(LInt64);
+      end; }
+    end;
+  else
+    raise Exception.Create('Error writing ...');
+  end;
+end;
+
+{$ENDIF}
+procedure TRODynamicRequest.MethodNameChanged;
+begin
+end;
+
+procedure TRODynamicRequest.Assign(Source: TPersistent);
+var
+  lSource: TRODynamicRequest;
+begin
+  inherited;
+  if Source is TRODynamicRequest then begin
+    lSource := TRODynamicRequest(Source);
+
+    MethodName := lSource.MethodName;
+    OnAfterExecute := lSource.OnAfterExecute;
+    OnBeforeExecute := lSource.OnBeforeExecute;
+    OnChangeMethodName := lSource.OnChangeMethodName;
+    OnChangeServiceName := lSource.OnChangeServiceName;
+    OnExecuteError := lSource.OnExecuteError;
+    OnFindCustomTypeImplementation := lSource.OnFindCustomTypeImplementation;
+    Params.Assign(lSource.Params);
+    RemoteService := lSource.RemoteService;
+  end;
+end;
+
+procedure TRODynamicRequest.CheckProperties;
+begin
+  Check(RemoteService = nil, Name + '.RemoteService must be assigned.');
+  RemoteService.CheckProperties;
+  Check(MethodName = '', Name + '.MethodName must be set.');  
+end;
+
+{ TRODesigntimeCall }
+
+procedure TRODesigntimeCall.MakeRequest;
+begin
+  Execute();
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEncryption.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEncryption.pas
new file mode 100644
index 0000000..6e7234c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEncryption.pas	
@@ -0,0 +1,570 @@
+unit uROEncryption;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+// todo : add hash checksum to encrypted stream to ensure integrity
+
+interface
+
+uses
+  Windows, SysUtils, Classes,
+  uROCipher, uROCiphers, uROCipher1;
+
+type
+  TROEncryptionEvent = procedure(Sender: TObject;
+    OriginalStream: TStream; var ProcessedStream: TStream) of object;
+
+  // keep related encryption types together so the class arrays below will work
+  // be sure to add new types to both the appropriate class array and
+  // the set assignment (in Initialization)
+  //
+  // if you add a new cipher family (like DECCiphers), be sure to add
+  // a "if iEncMethod in MyCiphers" block to both the Extract and Enclose methods
+  // where you handle default keys and instantiating the Cipher variable
+  //
+  TROEncryptionMethod = (tetNone,       //no encryption
+    tetDES, tetBlowfish, tetTwoFish, tetRijndael // DEC encryption}
+    );
+
+  TROCryptoKey = type Ansistring;
+
+const
+  TDECEncryptionClasses: array[tetDES..tetRijndael] of TROCipherClass =
+    (TROCipher_3TDES, TROCipher_Blowfish, TROCipher_Twofish, TROCipher_Rijndael);
+
+const
+  ROStreamIdentifier: AnsiString = 'rorocks';
+  // the following are binary values - 1, 2, 4, etc.
+  ROStreamCompressed = $00000001;
+  ROStreamEncrypted = $00000002;
+
+  ValidStreams      = $00000003;        // sum of all stream types - for detecting invalid values
+
+  // key is Ripe256 hash of 'RemObjects Rules!'
+  // 256 bit key is enough for any of the included ciphers
+  // if a DEC-based cipher is added which needs more than a 256-bit key, replace this.
+
+  DefaultDECCipherKey = '12E4F3024E6F3D720E05984053ED365D7994B471691D8520979AD8D4DB81DF78';
+
+var
+  DECCiphers        : set of TROEncryptionMethod;
+  LastCompressTime,
+    LastEncryptTime : Double;
+  HPCFreq           : Int64;
+
+type
+  TROCustomEncryption = class(TPersistent)
+  private
+    { Private declarations }
+    FEncryptionSendMethod: TROEncryptionMethod;
+    FEncryptionSendKey: TROCryptoKey;
+    FEncryptionRecvKey: TROCryptoKey;
+    FUseCompression: Boolean;
+    FOnBeforeEncryption: TROEncryptionEvent; { Defined in Classes unit. }
+    FOnAfterDecryption: TROEncryptionEvent;
+
+    timebefore, timeafter: Int64;
+
+  protected
+    procedure Enclose(const iSourceStream, iDestStream: TStream;
+      iEncMethod: TROEncryptionMethod; isCompressed: Boolean;
+      iKey: Ansistring = '');
+    function Extract(const iSourceStream, iDestStream: TStream;
+      iKey: Ansistring = ''): Int64;
+    { Protected declarations }
+    function GetEncryptionSendMethod: TROEncryptionMethod; virtual;
+    procedure SetEncryptionSendMethod(NewValue: TROEncryptionMethod); virtual;
+    function GetEncryptionSendKey: TROCryptoKey; virtual;
+    procedure SetEncryptionSendKey(NewValue: TROCryptoKey); virtual;
+    function GetEncryptionRecvKey: TROCryptoKey; virtual;
+    procedure SetEncryptionRecvKey(NewValue: TROCryptoKey); virtual;
+    function GetUseCompression: Boolean; virtual;
+    procedure SetUseCompression(NewValue: Boolean); virtual;
+    { Event triggers: }
+    procedure TriggerBeforeEncryptionEvent(iOriginalStream: TStream; var iProcessedStream: TStream); virtual;
+    procedure TriggerAfterDecryptionEvent(iOriginalStream: TStream; var iProcessedStream: TStream); virtual;
+    procedure AssignTo(Dest: TPersistent); override;
+    property OnBeforeEncryption: TROEncryptionEvent read FOnBeforeEncryption write FOnBeforeEncryption;
+    property OnAfterDecryption: TROEncryptionEvent read FOnAfterDecryption write FOnAfterDecryption;
+  public
+    { Public declarations }
+    constructor Create;//(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Encrypt(iPlaintext, iCiphertext: TStream); virtual;
+    procedure Decrypt(iCiphertext, iPlaintext: TStream); virtual;
+  published
+    { Published properties and events }
+    property EncryptionMethod: TROEncryptionMethod read GetEncryptionSendMethod write SetEncryptionSendMethod default tetNone; { Published }
+    property EncryptionSendKey: TROCryptoKey read GetEncryptionSendKey write SetEncryptionSendKey; { Published }
+    property EncryptionRecvKey: TROCryptoKey read GetEncryptionRecvKey write SetEncryptionRecvKey; { Published }
+    property UseCompression: Boolean read GetUseCompression write SetUseCompression default False; { Published }
+  end;                                  { TROCustomEncryption }
+
+  TROEncryption = class(TROCustomEncryption)
+  published
+    property OnBeforeEncryption;
+    property OnAfterDecryption;
+  end;
+  
+implementation
+
+uses
+  uROZLib;
+
+function TROCustomEncryption.GetEncryptionSendMethod: TROEncryptionMethod;
+{ Returns the value of data member FEncryptionSendMethod. }
+begin
+  { ToDo -cCDK: Add query/calculation code here and/or modify result below. }
+  GetEncryptionSendMethod := FEncryptionSendMethod;
+end;                                    { GetEncryptionSendMethod }
+
+procedure TROCustomEncryption.SetEncryptionSendMethod(NewValue: TROEncryptionMethod);
+{ Sets data member FEncryptionSendMethod to newValue. }
+begin
+  if FEncryptionSendMethod <> NewValue then
+  begin
+    FEncryptionSendMethod := NewValue;
+    { ToDo -cCDK: Add display update code here if needed. }
+  end;
+end;                                    { SetEncryptionSendMethod }
+
+function TROCustomEncryption.GetEncryptionSendKey: TROCryptoKey;
+{ Returns the value of data member FEncryptionSendKey. }
+begin
+  { ToDo -cCDK: Add query/calculation code here and/or modify result below. }
+  GetEncryptionSendKey := FEncryptionSendKey;
+end;                                    { GetEncryptionSendKey }
+
+procedure TROCustomEncryption.SetEncryptionSendKey(NewValue: TROCryptoKey);
+{ Sets data member FEncryptionSendKey to newValue. }
+begin
+  if FEncryptionSendKey <> NewValue then
+  begin
+    FEncryptionSendKey := NewValue;
+    { ToDo -cCDK: Add display update code here if needed. }
+  end;
+end;                                    { SetEncryptionSendKey }
+
+function TROCustomEncryption.GetEncryptionRecvKey: TROCryptoKey;
+{ Returns the value of data member FEncryptionRecvKey. }
+begin
+  { ToDo -cCDK: Add query/calculation code here and/or modify result below. }
+  GetEncryptionRecvKey := FEncryptionRecvKey;
+end;                                    { GetEncryptionRecvKey }
+
+procedure TROCustomEncryption.SetEncryptionRecvKey(NewValue: TROCryptoKey);
+{ Sets data member FEncryptionRecvKey to newValue. }
+begin
+  if FEncryptionRecvKey <> NewValue then
+  begin
+    FEncryptionRecvKey := NewValue;
+    { ToDo -cCDK: Add display update code here if needed. }
+  end;
+end;                                    { SetEncryptionRecvKey }
+
+function TROCustomEncryption.GetUseCompression: Boolean;
+{ Returns the value of data member FUseCompression. }
+begin
+  { ToDo -cCDK: Add query/calculation code here and/or modify result below. }
+  GetUseCompression := FUseCompression;
+end;                                    { GetUseCompression }
+
+procedure TROCustomEncryption.SetUseCompression(NewValue: Boolean);
+{ Sets data member FUseCompression to newValue. }
+begin
+  if FUseCompression <> NewValue then
+  begin
+    FUseCompression := NewValue;
+    { ToDo -cCDK: Add display update code here if needed. }
+  end;
+end;                                    { SetUseCompression }
+
+procedure TROCustomEncryption.Encrypt(iPlaintext, iCiphertext: TStream); { public }
+var
+  NewStream         : TStream;
+begin
+  NewStream := nil;
+  TriggerBeforeEncryptionEvent(iPlaintext, NewStream);
+
+  if NewStream <> nil then
+  begin
+    NewStream.Seek(0,soFromBeginning);
+    Enclose(NewStream, iCiphertext, FEncryptionSendMethod, FUseCompression,
+      FEncryptionSendKey);
+    NewStream.Free;
+  end
+  else
+  begin
+    iPlaintext.seek(0, soFromBeginning);
+    Enclose(iPlaintext, iCiphertext, FEncryptionSendMethod, FUseCompression,
+      FEncryptionSendKey);
+  end;
+end;                                    { Encrypt }
+
+procedure TROCustomEncryption.Decrypt(iCiphertext, iPlaintext: TStream); { public }
+var
+  NewStream         : TStream;
+  OutStream         : TMemoryStream;
+begin
+  OutStream := TMemoryStream.Create;
+  try
+    Extract(iCiphertext, OutStream, FEncryptionRecvKey);
+    NewStream := nil;
+    TriggerAfterDecryptionEvent(OutStream, NewStream);
+    if NewStream <> nil then
+    begin
+      NewStream.Seek(0,soFromBeginning);
+      iPlaintext.CopyFrom(NewStream, NewStream.Size);
+      NewStream.Free;
+    end
+    else
+      OutStream.Seek(0,soFromBeginning);
+      iPlaintext.CopyFrom(OutStream, OutStream.Size);
+  finally                               // wrap up
+    OutStream.Free;
+  end;                                  // try/finally
+end;                                    { Decrypt }
+
+{ Event triggers: }
+
+procedure TROCustomEncryption.TriggerBeforeEncryptionEvent(iOriginalStream: TStream; var iProcessedStream: TStream);
+{ Triggers the OnBeforeEncryption event. This is a virtual method (descendants of this component can override it). }
+{ ToDo -cCDK: Call as needed to trigger event. }
+begin
+  if Assigned(FOnBeforeEncryption) then
+    FOnBeforeEncryption(Self, iOriginalStream, iProcessedStream);
+end;                                    { TriggerBeforeEncryptionEvent }
+
+procedure TROCustomEncryption.TriggerAfterDecryptionEvent(iOriginalStream: TStream; var iProcessedStream: TStream);
+{ Triggers the OnAfterDecryption event. This is a virtual method (descendants of this component can override it). }
+{ ToDo -cCDK: Call as needed to trigger event. }
+begin
+  if Assigned(FOnAfterDecryption) then
+    FOnAfterDecryption(Self, iOriginalStream, iProcessedStream);
+end;                                    { TriggerAfterDecryptionEvent }
+
+procedure TROCustomEncryption.AssignTo(Dest: TPersistent);
+var
+  DestEncr: TROCustomEncryption;
+begin
+  if Dest is TROCustomEncryption then begin
+    DestEncr := TROCustomEncryption(Dest);
+    DestEncr.EncryptionMethod := EncryptionMethod;
+    DestEncr.EncryptionSendKey := EncryptionSendKey;
+    DestEncr.EncryptionRecvKey := EncryptionRecvKey;
+    DestEncr.UseCompression := UseCompression;
+    DestEncr.OnBeforeEncryption := OnBeforeEncryption;
+    DestEncr.OnAfterDecryption := OnAfterDecryption;
+  end else begin
+    inherited;
+  end;
+end;
+
+destructor TROCustomEncryption.Destroy;
+begin
+  { ToDo -cCDK: Free allocated memory and created objects here. }
+  inherited Destroy;
+end;                                    { Destroy }
+
+constructor TROCustomEncryption.Create;//(aOwner: TComponent);
+{ Creates an object of type TROCustomEncryption, and initializes properties. }
+begin
+  inherited Create;//(aOwner);
+  { Initialize properties with default values: }
+  FEncryptionSendMethod := tetNone;
+  FUseCompression := False;
+  { ToDo -cCDK: Add your initialization code here. }
+end;                                    { Create }
+
+procedure TROCustomEncryption.Enclose(const iSourceStream, iDestStream: TStream;
+  iEncMethod: TROEncryptionMethod; isCompressed: Boolean; iKey: Ansistring = '');
+var
+  Size              : Integer;
+  nextStream        : TStream;
+  Cipher            : TROBaseCipher;
+  CipherKey         : Ansistring;
+
+  FreeNext          : Boolean;
+
+  StreamType        : Integer;
+begin
+  // don't do anything if streamsize is 0
+  if iSourceStream.Size = 0 then
+    Exit;
+
+  if (isCompressed) or (iEncMethod <> tetNone) then begin
+    iDestStream.Write(ROStreamIdentifier[1], Length(ROStreamIdentifier)); { brazil }
+
+    if isCompressed then
+      StreamType := ROStreamCompressed
+    else
+      StreamType := 0;
+
+    if iEncMethod <> tetNone then
+    begin
+      StreamType := StreamType or ROStreamEncrypted;
+    end;
+
+    iDestStream.Write(StreamType, SizeOf(StreamType));
+
+    if iEncMethod <> tetNone then
+    begin
+      StreamType := Integer(iEncMethod);
+      iDestStream.Write(StreamType, SizeOf(StreamType));
+    end;
+
+    FreeNext := False;
+    Cipher := nil;
+    nextStream := nil;
+
+    LastCompressTime := 0;
+    LastEncryptTime := 0;
+
+    try
+      if isCompressed then
+      begin
+        // only create NextStream if we need the intermediate result before encryption
+        if iEncMethod <> tetNone then
+        begin
+          nextStream := TMemoryStream.Create;
+         // nextStream.Size := iSourceStream.Size;
+          FreeNext := True;
+        end
+        else
+          nextStream := iDestStream;
+
+        Size := iSourceStream.Size;
+        nextStream.Write(Size, 4);
+
+        with TCompressionStream.Create(clMax, nextStream) do
+        try
+          //iStream.Seek(0,soFromBeginning);
+          QueryPerformanceCounter(timebefore);
+          CopyFrom(iSourceStream, iSourceStream.Size);
+          QueryPerformanceCounter(timeafter);
+          LastCompressTime := (timeafter - timebefore) / HPCFreq;
+        finally
+          Free();
+        end;
+        nextStream.seek(0, soFromBeginning);
+      end
+      else
+      begin
+        if iEncMethod <> tetNone then
+          nextStream := iSourceStream;
+      end;
+
+      if iEncMethod <> tetNone then
+      begin
+        // get key value
+        // - add new sections if new encryption types are added
+        // - new section should include assign default key if
+        //   fEncryptionRecvKey = ''
+        // - otherwise convert fEncryptionRecvKey to key value and
+        //   raise exception if invalid value
+
+        if iEncMethod in DECCiphers then
+        begin
+          if iKey = '' then
+          begin
+            CipherKey := DefaultDECCipherKey;
+          end
+          else
+          begin
+            CipherKey := iKey;
+          end;
+
+          Cipher := TroDECCipher.Create(TDECEncryptionClasses[iEncMethod], CipherKey);
+        end;
+
+        // do decryption
+
+        if Cipher = nil then
+          raise Exception.Create('OK, who forgot to create the cipher?');
+
+        try
+          QueryPerformanceCounter(timebefore);
+          Cipher.EncryptStream(nextStream, iDestStream);
+          QueryPerformanceCounter(timeafter);
+          LastEncryptTime := (timeafter - timebefore) / HPCFreq;
+        finally                         // wrap up
+          Cipher.Free;
+        end;                            // try/finally
+      end;
+
+    finally
+      if FreeNext then
+        nextStream.Free;
+    end;
+  end
+  else
+  begin                                 // nothing happened - copy src to dest
+    iDestStream.CopyFrom(iSourceStream, iSourceStream.Size - iSourceStream.Position);
+  end;
+end;
+
+function TROCustomEncryption.Extract(const iSourceStream, iDestStream: TStream;
+  iKey: Ansistring = ''): Int64;
+var
+  isCompressed      : Boolean;
+  StreamIdentifier  : ansistring;
+  StreamType        : Integer;
+  EncMethodRead     : Integer;
+  EncMethod         : TROEncryptionMethod;
+  OrigPos           : Integer;
+
+  Len               : Integer;
+  nextStream        : TStream;
+  DecompressionStream: TDecompressionStream;
+  Cipher            : TROBaseCipher;
+  CipherKey         : Ansistring;
+
+  FreeNext          : Boolean;
+begin
+  Result := 0;
+
+  SetLength(StreamIdentifier, Length(ROStreamIdentifier));
+  OrigPos := iSourceStream.Position;
+  iSourceStream.read(StreamIdentifier[1], Length(ROStreamIdentifier));
+
+  if StreamIdentifier = ROStreamIdentifier then
+  begin
+    iSourceStream.read(StreamType, 4);
+
+    if StreamType or ValidStreams <> ValidStreams then
+      //if StreamType <> CONST_StreamType then
+      raise Exception.Create('Invalid response type: Newer Brazil DataSnap Server?');
+
+    EncMethod := tetNone;
+
+    if StreamType and ROStreamEncrypted <> 0 then
+    begin
+      iSourceStream.read(EncMethodRead, SizeOf(EncMethodRead));
+
+      try
+        EncMethod := TROEncryptionMethod(EncMethodRead);
+      except
+        on e: Exception do
+          raise Exception.CreateFmt('Invalid encryption method (%d): Newer Brazil DataSnap Server?', [EncMethodRead]);
+      end;                              // try/finally
+    end;
+
+    FreeNext := False;
+    nextStream := nil;
+    Cipher := nil;
+
+    // don't do anything on empty stream
+    if iSourceStream.Size = iSourceStream.Position then
+      Exit;
+
+    LastCompressTime := 0;
+    LastEncryptTime := 0;
+
+    isCompressed := (StreamType and ROStreamCompressed) <> 0;
+
+    try
+      if EncMethod <> tetNone then
+      begin
+        // only create NextStream if we need the intermediate result before decompression
+        if isCompressed then
+        begin
+          nextStream := TMemoryStream.Create;
+          nextStream.Size := iSourceStream.Size;
+          FreeNext := True;
+        end
+        else
+          nextStream := iDestStream;
+
+        // get key value
+        // - add new sections if new encryption types are added
+        // - new section should include assign default key if
+        //   fEncryptionRecvKey = ''
+        // - otherwise convert fEncryptionRecvKey to key value and
+        //   raise exception if invalid value
+
+        if EncMethod in DECCiphers then
+        begin
+          if iKey = '' then
+          begin
+            CipherKey := DefaultDECCipherKey;
+          end
+          else
+          begin
+            CipherKey := iKey;
+          end;
+
+          Cipher := TroDECCipher.Create(TDECEncryptionClasses[EncMethod], CipherKey);
+        end;
+
+        // do decryption
+
+        if Cipher = nil then
+          raise Exception.Create('OK, who forgot to create the cipher?');
+
+        try
+          QueryPerformanceCounter(timebefore);
+          Cipher.DecryptStream(iSourceStream, nextStream);
+          QueryPerformanceCounter(timeafter);
+          LastEncryptTime := (timeafter - timebefore) / HPCFreq;
+        finally                         // wrap up
+          Cipher.Free;
+        end;                            // try/finally
+        nextStream.seek(0, soFromBeginning);
+      end
+      else
+      begin
+        if isCompressed then
+          nextStream := iSourceStream
+        else
+        begin                           // nothing happened - copy src to dest
+          iDestStream.CopyFrom(iSourceStream, iSourceStream.Size - iSourceStream.Position);
+        end;
+      end;
+
+      if isCompressed then
+      begin
+        nextStream.read(Len, 4);
+
+        DecompressionStream := TDecompressionStream.Create(nextStream);
+        try
+          QueryPerformanceCounter(timebefore);
+          iDestStream.CopyFrom(DecompressionStream, Len);
+          QueryPerformanceCounter(timeafter);
+          LastCompressTime := (timeafter - timebefore) / HPCFreq;
+          iDestStream.seek(0, soFromBeginning);
+        finally
+          DecompressionStream.Free();
+        end;                            { with }
+
+        Result := iDestStream.Size - nextStream.Size;
+      end;
+    finally
+      if FreeNext then
+        nextStream.Free;
+    end;
+  end
+  else
+  begin
+    iSourceStream.seek(OrigPos, soFromBeginning);
+    iDestStream.CopyFrom(iSourceStream, iSourceStream.Size - OrigPos);
+  end;
+end;
+
+initialization
+  DECCiphers := [tetDES..tetRijndael];
+  QueryPerformanceFrequency(HPCFreq);
+finalization
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEncryptionEnvelope.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEncryptionEnvelope.pas
new file mode 100644
index 0000000..c38a1ff
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEncryptionEnvelope.pas	
@@ -0,0 +1,1105 @@
+unit uROEncryptionEnvelope;
+
+{$I RemObjects.Inc}
+interface
+
+uses
+  Classes,
+  uROEncryption,
+  uROClientIntf, uROClient;
+
+type
+  TROEnvelopeMessageEncryption = class(TROCustomEncryption)
+  public
+    procedure Encrypt(iPlaintext, iCiphertext: TStream); override;
+    procedure Decrypt(iCiphertext, iPlaintext: TStream); override;
+  end;
+
+  TROEncryptionEnvelope = class(TROMessageEnvelope)
+  private
+    fEncryption: TROEnvelopeMessageEncryption;
+    procedure SetEncryption(NewValue: TROEnvelopeMessageEncryption);
+  protected
+    procedure intProcessOutgoing(Source, Dest: TStream; aMessage: IROMessage); override;
+    procedure intProcessIncoming(Source, Dest: TStream; aMessage: IROMessage); override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Encryption: TROEnvelopeMessageEncryption read fEncryption write SetEncryption;
+  end;
+
+  TROAESEncryptionEnvelope = class(TROMessageEnvelope)
+  private
+    fPassword: string;
+    procedure SetPassword(const Value: string);
+    function EncodePassword(const APassword: string): AnsiString;
+  protected
+    procedure intProcessOutgoing(Source, Dest: TStream; aMessage: IROMessage); override;
+    procedure intProcessIncoming(Source, Dest: TStream; aMessage: IROMessage); override;
+    function GetDefaultEnvelopeMarker: string; override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Password: string read fPassword write SetPassword;
+  end;
+
+implementation
+uses
+  SysUtils, uROHash, uRODECUtil;
+
+
+
+type
+  TCipherState = (csNew, csInitialized, csEncode, csDecode, csPadded, csDone);
+  TCipherStates = set of TCipherState;
+  Binary_AnsiString         = AnsiString;  // LongString with Binary Contens
+
+
+// Based on Delphi Encryption Compendium 5.1. Original copyright below
+
+{
+ Copyright:      Hagen Reddmann HaReddmann at T-Online dot de
+ Author:         Hagen Reddmann
+ Remarks:        freeware, but this Copyright must be included
+ known Problems: none
+ Version:        5.1,  Part I from Delphi Encryption Compendium  ( DEC Part I)
+                 Delphi 5
+
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
+ * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+ * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+ * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+ * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+}
+
+
+  TROCipher_AES  = class(TPersistent)
+  private
+    FState: TCipherState;
+    FData: PByteArray;
+    FDataSize: Integer;
+    FRounds: Integer;
+  protected
+    FBufferSize: Integer;
+    FBufferIndex: Integer;
+    FBlockSize: Integer;
+    FUserSize: Integer;
+    FBuffer: PByteArray;
+    FVector: PByteArray;
+    FFeedback: PByteArray;
+    FUser: Pointer;
+    procedure CheckState(States: TCipherStates);
+    procedure DoInit(const Key; Size: Integer);
+    procedure DoEncode(Source, Dest: Pointer; Size: Integer);
+    procedure DoDecode(Source, Dest: Pointer; Size: Integer);
+    procedure Encode(const Source; var Dest; DataSize: Integer);
+    procedure Decode(const Source; var Dest; DataSize: Integer);
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    procedure Init(const Key; Size: Integer; const IVector; IVectorSize: Integer; IFiller: Byte = $FF); overload;
+    procedure Init(const Key: Binary_AnsiString; const IVector: Binary_AnsiString = ''; IFiller: Byte = $FF); overload;
+    procedure Done;
+    procedure Protect;
+
+    procedure EncodeStream(const Source, Dest: TStream; const DataSize: Int64= -1);
+    procedure DecodeStream(const Source, Dest: TStream; const DataSize: Int64 = -1);
+  end;
+
+
+
+{ TROEncryptionEnvelope }
+
+procedure TROEncryptionEnvelope.Assign(Source: TPersistent);
+var
+  lSource: TROEncryptionEnvelope;
+begin
+  inherited;
+  if Source is TROEncryptionEnvelope then begin
+    lSource := TROEncryptionEnvelope(Source);
+    Encryption.Assign(lSource.Encryption);
+  end;
+end;
+
+constructor TROEncryptionEnvelope.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+  fEncryption := TROEnvelopeMessageEncryption.Create();
+end;
+
+destructor TROEncryptionEnvelope.Destroy;
+begin
+  FreeAndNil(fEncryption);
+  inherited;
+end;
+
+procedure TROEncryptionEnvelope.intProcessIncoming(Source,
+  Dest: TStream; aMessage: IROMessage);
+begin
+  if Assigned(Encryption) then
+    Encryption.Decrypt(Source, Dest)
+  else
+    inherited intProcessOutgoing(Source, Dest, aMessage);
+end;
+
+procedure TROEncryptionEnvelope.intProcessOutgoing(Source,
+  Dest: TStream; aMessage: IROMessage);
+begin
+  if Assigned(Encryption) then begin
+    Encryption.Encrypt(Source, Dest)
+  end
+  else
+    inherited intProcessOutgoing(Source, Dest, aMessage);
+end;
+
+procedure TROEncryptionEnvelope.SetEncryption(
+  NewValue: TROEnvelopeMessageEncryption);
+begin
+  fEncryption.Assign(NewValue);
+end;
+
+{ TROEnvelopeMessageEncryption }
+procedure TROEnvelopeMessageEncryption.Decrypt(iCiphertext,
+  iPlaintext: TStream);
+begin
+  Extract(iCiphertext, iPlaintext, EncryptionRecvKey);
+end;
+
+procedure TROEnvelopeMessageEncryption.Encrypt(iPlaintext,
+  iCiphertext: TStream);
+begin
+  Enclose(iPlaintext, iCiphertext, GetEncryptionSendMethod, UseCompression, EncryptionSendKey);
+end;
+
+{ TROAESEncryptionEnvelope }
+const
+  c_vector = AnsiString('@1B2c3D4e5F6g7H8');
+
+procedure TROAESEncryptionEnvelope.Assign(Source: TPersistent);
+var
+  lSource: TROAESEncryptionEnvelope;
+begin
+  inherited;
+  if Source is TROAESEncryptionEnvelope then begin
+    lSource := TROAESEncryptionEnvelope(Source);
+    Password := lSource.Password;
+  end;
+end;
+
+constructor TROAESEncryptionEnvelope.Create(aOwner: TComponent);
+begin
+  inherited;
+end;
+
+function TROAESEncryptionEnvelope.EncodePassword(const APassword: string): AnsiString;
+var
+  lUTF8Key : AnsiString;
+begin
+  if APassword = '' then
+    raise Exception.CreateFmt('No password is configured for %s.',[Self.Name]);
+  lUTF8Key := UTF8Encode(APassword);
+
+  with TROHash_SHA1.Create(nil) do try
+    Result := CalcString(lUTF8Key, nil,fmtCopy);
+  finally
+    Free;
+  end;
+
+  with TROHash_MD5.Create(nil) do try
+    Result := Result + CalcString(lUTF8Key, nil,fmtCopy);
+  finally
+    Free;
+  end;
+  SetLength(Result, 32);
+end;
+
+function TROAESEncryptionEnvelope.GetDefaultEnvelopeMarker: string;
+begin
+  Result := 'AES';
+end;
+
+procedure TROAESEncryptionEnvelope.intProcessIncoming(Source,
+  Dest: TStream; aMessage: IROMessage);
+var
+  FOriginalStreamSize: integer;
+  FBinaryKey: AnsiString;
+begin
+  Source.Read(FOriginalStreamSize, SizeOf(integer));
+  FBinaryKey := EncodePassword(fPassword);
+  with TROCipher_AES.Create do
+  try
+    Init(FBinaryKey,c_vector);
+    DecodeStream(Source,Dest);
+  finally
+    Free;
+  end;
+  Dest.Size:=FOriginalStreamSize;
+end;
+
+procedure TROAESEncryptionEnvelope.intProcessOutgoing(Source,
+  Dest: TStream; aMessage: IROMessage);
+var
+  FOriginalStreamSize: integer;
+  FBinaryKey: AnsiString;
+begin
+  FOriginalStreamSize := Source.Size-Source.Position;
+  Dest.Write(FOriginalStreamSize,SizeOf(integer));
+  FBinaryKey := EncodePassword(fPassword);
+  with TROCipher_AES.Create do
+  try
+    Init(FBinaryKey,c_vector);
+    EncodeStream(Source,Dest);
+  finally
+    Free;
+  end;
+end;
+
+procedure TROAESEncryptionEnvelope.SetPassword(const Value: string);
+begin
+  fPassword := Value;
+  EncodePassword(fPassword);
+end;
+
+{ TROCipher_AES }
+
+type
+  PLongArray     = ^TLongArray;
+  TLongArray     = array[0..1023] of LongWord;
+  
+const
+  StreamBufferSize: Integer = 8192;
+
+{don't change this}
+  Rijndael_Blocks =  4;
+  Rijndael_Rounds = 14;
+
+  Rijndael_S: array[0..1, 0..255] of Byte = (
+   ($63,$7C,$77,$7B,$F2,$6B,$6F,$C5,$30,$01,$67,$2B,$FE,$D7,$AB,$76,
+    $CA,$82,$C9,$7D,$FA,$59,$47,$F0,$AD,$D4,$A2,$AF,$9C,$A4,$72,$C0,
+    $B7,$FD,$93,$26,$36,$3F,$F7,$CC,$34,$A5,$E5,$F1,$71,$D8,$31,$15,
+    $04,$C7,$23,$C3,$18,$96,$05,$9A,$07,$12,$80,$E2,$EB,$27,$B2,$75,
+    $09,$83,$2C,$1A,$1B,$6E,$5A,$A0,$52,$3B,$D6,$B3,$29,$E3,$2F,$84,
+    $53,$D1,$00,$ED,$20,$FC,$B1,$5B,$6A,$CB,$BE,$39,$4A,$4C,$58,$CF,
+    $D0,$EF,$AA,$FB,$43,$4D,$33,$85,$45,$F9,$02,$7F,$50,$3C,$9F,$A8,
+    $51,$A3,$40,$8F,$92,$9D,$38,$F5,$BC,$B6,$DA,$21,$10,$FF,$F3,$D2,
+    $CD,$0C,$13,$EC,$5F,$97,$44,$17,$C4,$A7,$7E,$3D,$64,$5D,$19,$73,
+    $60,$81,$4F,$DC,$22,$2A,$90,$88,$46,$EE,$B8,$14,$DE,$5E,$0B,$DB,
+    $E0,$32,$3A,$0A,$49,$06,$24,$5C,$C2,$D3,$AC,$62,$91,$95,$E4,$79,
+    $E7,$C8,$37,$6D,$8D,$D5,$4E,$A9,$6C,$56,$F4,$EA,$65,$7A,$AE,$08,
+    $BA,$78,$25,$2E,$1C,$A6,$B4,$C6,$E8,$DD,$74,$1F,$4B,$BD,$8B,$8A,
+    $70,$3E,$B5,$66,$48,$03,$F6,$0E,$61,$35,$57,$B9,$86,$C1,$1D,$9E,
+    $E1,$F8,$98,$11,$69,$D9,$8E,$94,$9B,$1E,$87,$E9,$CE,$55,$28,$DF,
+    $8C,$A1,$89,$0D,$BF,$E6,$42,$68,$41,$99,$2D,$0F,$B0,$54,$BB,$16),
+   ($52,$09,$6A,$D5,$30,$36,$A5,$38,$BF,$40,$A3,$9E,$81,$F3,$D7,$FB,
+    $7C,$E3,$39,$82,$9B,$2F,$FF,$87,$34,$8E,$43,$44,$C4,$DE,$E9,$CB,
+    $54,$7B,$94,$32,$A6,$C2,$23,$3D,$EE,$4C,$95,$0B,$42,$FA,$C3,$4E,
+    $08,$2E,$A1,$66,$28,$D9,$24,$B2,$76,$5B,$A2,$49,$6D,$8B,$D1,$25,
+    $72,$F8,$F6,$64,$86,$68,$98,$16,$D4,$A4,$5C,$CC,$5D,$65,$B6,$92,
+    $6C,$70,$48,$50,$FD,$ED,$B9,$DA,$5E,$15,$46,$57,$A7,$8D,$9D,$84,
+    $90,$D8,$AB,$00,$8C,$BC,$D3,$0A,$F7,$E4,$58,$05,$B8,$B3,$45,$06,
+    $D0,$2C,$1E,$8F,$CA,$3F,$0F,$02,$C1,$AF,$BD,$03,$01,$13,$8A,$6B,
+    $3A,$91,$11,$41,$4F,$67,$DC,$EA,$97,$F2,$CF,$CE,$F0,$B4,$E6,$73,
+    $96,$AC,$74,$22,$E7,$AD,$35,$85,$E2,$F9,$37,$E8,$1C,$75,$DF,$6E,
+    $47,$F1,$1A,$71,$1D,$29,$C5,$89,$6F,$B7,$62,$0E,$AA,$18,$BE,$1B,
+    $FC,$56,$3E,$4B,$C6,$D2,$79,$20,$9A,$DB,$C0,$FE,$78,$CD,$5A,$F4,
+    $1F,$DD,$A8,$33,$88,$07,$C7,$31,$B1,$12,$10,$59,$27,$80,$EC,$5F,
+    $60,$51,$7F,$A9,$19,$B5,$4A,$0D,$2D,$E5,$7A,$9F,$93,$C9,$9C,$EF,
+    $A0,$E0,$3B,$4D,$AE,$2A,$F5,$B0,$C8,$EB,$BB,$3C,$83,$53,$99,$61,
+    $17,$2B,$04,$7E,$BA,$77,$D6,$26,$E1,$69,$14,$63,$55,$21,$0C,$7D));
+
+  Rijndael_T: array[0..7, 0..255] of LongWord = (
+   ($A56363C6,$847C7CF8,$997777EE,$8D7B7BF6,$0DF2F2FF,$BD6B6BD6,$B16F6FDE,$54C5C591,
+    $50303060,$03010102,$A96767CE,$7D2B2B56,$19FEFEE7,$62D7D7B5,$E6ABAB4D,$9A7676EC,
+    $45CACA8F,$9D82821F,$40C9C989,$877D7DFA,$15FAFAEF,$EB5959B2,$C947478E,$0BF0F0FB,
+    $ECADAD41,$67D4D4B3,$FDA2A25F,$EAAFAF45,$BF9C9C23,$F7A4A453,$967272E4,$5BC0C09B,
+    $C2B7B775,$1CFDFDE1,$AE93933D,$6A26264C,$5A36366C,$413F3F7E,$02F7F7F5,$4FCCCC83,
+    $5C343468,$F4A5A551,$34E5E5D1,$08F1F1F9,$937171E2,$73D8D8AB,$53313162,$3F15152A,
+    $0C040408,$52C7C795,$65232346,$5EC3C39D,$28181830,$A1969637,$0F05050A,$B59A9A2F,
+    $0907070E,$36121224,$9B80801B,$3DE2E2DF,$26EBEBCD,$6927274E,$CDB2B27F,$9F7575EA,
+    $1B090912,$9E83831D,$742C2C58,$2E1A1A34,$2D1B1B36,$B26E6EDC,$EE5A5AB4,$FBA0A05B,
+    $F65252A4,$4D3B3B76,$61D6D6B7,$CEB3B37D,$7B292952,$3EE3E3DD,$712F2F5E,$97848413,
+    $F55353A6,$68D1D1B9,$00000000,$2CEDEDC1,$60202040,$1FFCFCE3,$C8B1B179,$ED5B5BB6,
+    $BE6A6AD4,$46CBCB8D,$D9BEBE67,$4B393972,$DE4A4A94,$D44C4C98,$E85858B0,$4ACFCF85,
+    $6BD0D0BB,$2AEFEFC5,$E5AAAA4F,$16FBFBED,$C5434386,$D74D4D9A,$55333366,$94858511,
+    $CF45458A,$10F9F9E9,$06020204,$817F7FFE,$F05050A0,$443C3C78,$BA9F9F25,$E3A8A84B,
+    $F35151A2,$FEA3A35D,$C0404080,$8A8F8F05,$AD92923F,$BC9D9D21,$48383870,$04F5F5F1,
+    $DFBCBC63,$C1B6B677,$75DADAAF,$63212142,$30101020,$1AFFFFE5,$0EF3F3FD,$6DD2D2BF,
+    $4CCDCD81,$140C0C18,$35131326,$2FECECC3,$E15F5FBE,$A2979735,$CC444488,$3917172E,
+    $57C4C493,$F2A7A755,$827E7EFC,$473D3D7A,$AC6464C8,$E75D5DBA,$2B191932,$957373E6,
+    $A06060C0,$98818119,$D14F4F9E,$7FDCDCA3,$66222244,$7E2A2A54,$AB90903B,$8388880B,
+    $CA46468C,$29EEEEC7,$D3B8B86B,$3C141428,$79DEDEA7,$E25E5EBC,$1D0B0B16,$76DBDBAD,
+    $3BE0E0DB,$56323264,$4E3A3A74,$1E0A0A14,$DB494992,$0A06060C,$6C242448,$E45C5CB8,
+    $5DC2C29F,$6ED3D3BD,$EFACAC43,$A66262C4,$A8919139,$A4959531,$37E4E4D3,$8B7979F2,
+    $32E7E7D5,$43C8C88B,$5937376E,$B76D6DDA,$8C8D8D01,$64D5D5B1,$D24E4E9C,$E0A9A949,
+    $B46C6CD8,$FA5656AC,$07F4F4F3,$25EAEACF,$AF6565CA,$8E7A7AF4,$E9AEAE47,$18080810,
+    $D5BABA6F,$887878F0,$6F25254A,$722E2E5C,$241C1C38,$F1A6A657,$C7B4B473,$51C6C697,
+    $23E8E8CB,$7CDDDDA1,$9C7474E8,$211F1F3E,$DD4B4B96,$DCBDBD61,$868B8B0D,$858A8A0F,
+    $907070E0,$423E3E7C,$C4B5B571,$AA6666CC,$D8484890,$05030306,$01F6F6F7,$120E0E1C,
+    $A36161C2,$5F35356A,$F95757AE,$D0B9B969,$91868617,$58C1C199,$271D1D3A,$B99E9E27,
+    $38E1E1D9,$13F8F8EB,$B398982B,$33111122,$BB6969D2,$70D9D9A9,$898E8E07,$A7949433,
+    $B69B9B2D,$221E1E3C,$92878715,$20E9E9C9,$49CECE87,$FF5555AA,$78282850,$7ADFDFA5,
+    $8F8C8C03,$F8A1A159,$80898909,$170D0D1A,$DABFBF65,$31E6E6D7,$C6424284,$B86868D0,
+    $C3414182,$B0999929,$772D2D5A,$110F0F1E,$CBB0B07B,$FC5454A8,$D6BBBB6D,$3A16162C),
+   ($6363C6A5,$7C7CF884,$7777EE99,$7B7BF68D,$F2F2FF0D,$6B6BD6BD,$6F6FDEB1,$C5C59154,
+    $30306050,$01010203,$6767CEA9,$2B2B567D,$FEFEE719,$D7D7B562,$ABAB4DE6,$7676EC9A,
+    $CACA8F45,$82821F9D,$C9C98940,$7D7DFA87,$FAFAEF15,$5959B2EB,$47478EC9,$F0F0FB0B,
+    $ADAD41EC,$D4D4B367,$A2A25FFD,$AFAF45EA,$9C9C23BF,$A4A453F7,$7272E496,$C0C09B5B,
+    $B7B775C2,$FDFDE11C,$93933DAE,$26264C6A,$36366C5A,$3F3F7E41,$F7F7F502,$CCCC834F,
+    $3434685C,$A5A551F4,$E5E5D134,$F1F1F908,$7171E293,$D8D8AB73,$31316253,$15152A3F,
+    $0404080C,$C7C79552,$23234665,$C3C39D5E,$18183028,$969637A1,$05050A0F,$9A9A2FB5,
+    $07070E09,$12122436,$80801B9B,$E2E2DF3D,$EBEBCD26,$27274E69,$B2B27FCD,$7575EA9F,
+    $0909121B,$83831D9E,$2C2C5874,$1A1A342E,$1B1B362D,$6E6EDCB2,$5A5AB4EE,$A0A05BFB,
+    $5252A4F6,$3B3B764D,$D6D6B761,$B3B37DCE,$2929527B,$E3E3DD3E,$2F2F5E71,$84841397,
+    $5353A6F5,$D1D1B968,$00000000,$EDEDC12C,$20204060,$FCFCE31F,$B1B179C8,$5B5BB6ED,
+    $6A6AD4BE,$CBCB8D46,$BEBE67D9,$3939724B,$4A4A94DE,$4C4C98D4,$5858B0E8,$CFCF854A,
+    $D0D0BB6B,$EFEFC52A,$AAAA4FE5,$FBFBED16,$434386C5,$4D4D9AD7,$33336655,$85851194,
+    $45458ACF,$F9F9E910,$02020406,$7F7FFE81,$5050A0F0,$3C3C7844,$9F9F25BA,$A8A84BE3,
+    $5151A2F3,$A3A35DFE,$404080C0,$8F8F058A,$92923FAD,$9D9D21BC,$38387048,$F5F5F104,
+    $BCBC63DF,$B6B677C1,$DADAAF75,$21214263,$10102030,$FFFFE51A,$F3F3FD0E,$D2D2BF6D,
+    $CDCD814C,$0C0C1814,$13132635,$ECECC32F,$5F5FBEE1,$979735A2,$444488CC,$17172E39,
+    $C4C49357,$A7A755F2,$7E7EFC82,$3D3D7A47,$6464C8AC,$5D5DBAE7,$1919322B,$7373E695,
+    $6060C0A0,$81811998,$4F4F9ED1,$DCDCA37F,$22224466,$2A2A547E,$90903BAB,$88880B83,
+    $46468CCA,$EEEEC729,$B8B86BD3,$1414283C,$DEDEA779,$5E5EBCE2,$0B0B161D,$DBDBAD76,
+    $E0E0DB3B,$32326456,$3A3A744E,$0A0A141E,$494992DB,$06060C0A,$2424486C,$5C5CB8E4,
+    $C2C29F5D,$D3D3BD6E,$ACAC43EF,$6262C4A6,$919139A8,$959531A4,$E4E4D337,$7979F28B,
+    $E7E7D532,$C8C88B43,$37376E59,$6D6DDAB7,$8D8D018C,$D5D5B164,$4E4E9CD2,$A9A949E0,
+    $6C6CD8B4,$5656ACFA,$F4F4F307,$EAEACF25,$6565CAAF,$7A7AF48E,$AEAE47E9,$08081018,
+    $BABA6FD5,$7878F088,$25254A6F,$2E2E5C72,$1C1C3824,$A6A657F1,$B4B473C7,$C6C69751,
+    $E8E8CB23,$DDDDA17C,$7474E89C,$1F1F3E21,$4B4B96DD,$BDBD61DC,$8B8B0D86,$8A8A0F85,
+    $7070E090,$3E3E7C42,$B5B571C4,$6666CCAA,$484890D8,$03030605,$F6F6F701,$0E0E1C12,
+    $6161C2A3,$35356A5F,$5757AEF9,$B9B969D0,$86861791,$C1C19958,$1D1D3A27,$9E9E27B9,
+    $E1E1D938,$F8F8EB13,$98982BB3,$11112233,$6969D2BB,$D9D9A970,$8E8E0789,$949433A7,
+    $9B9B2DB6,$1E1E3C22,$87871592,$E9E9C920,$CECE8749,$5555AAFF,$28285078,$DFDFA57A,
+    $8C8C038F,$A1A159F8,$89890980,$0D0D1A17,$BFBF65DA,$E6E6D731,$424284C6,$6868D0B8,
+    $414182C3,$999929B0,$2D2D5A77,$0F0F1E11,$B0B07BCB,$5454A8FC,$BBBB6DD6,$16162C3A),
+   ($63C6A563,$7CF8847C,$77EE9977,$7BF68D7B,$F2FF0DF2,$6BD6BD6B,$6FDEB16F,$C59154C5,
+    $30605030,$01020301,$67CEA967,$2B567D2B,$FEE719FE,$D7B562D7,$AB4DE6AB,$76EC9A76,
+    $CA8F45CA,$821F9D82,$C98940C9,$7DFA877D,$FAEF15FA,$59B2EB59,$478EC947,$F0FB0BF0,
+    $AD41ECAD,$D4B367D4,$A25FFDA2,$AF45EAAF,$9C23BF9C,$A453F7A4,$72E49672,$C09B5BC0,
+    $B775C2B7,$FDE11CFD,$933DAE93,$264C6A26,$366C5A36,$3F7E413F,$F7F502F7,$CC834FCC,
+    $34685C34,$A551F4A5,$E5D134E5,$F1F908F1,$71E29371,$D8AB73D8,$31625331,$152A3F15,
+    $04080C04,$C79552C7,$23466523,$C39D5EC3,$18302818,$9637A196,$050A0F05,$9A2FB59A,
+    $070E0907,$12243612,$801B9B80,$E2DF3DE2,$EBCD26EB,$274E6927,$B27FCDB2,$75EA9F75,
+    $09121B09,$831D9E83,$2C58742C,$1A342E1A,$1B362D1B,$6EDCB26E,$5AB4EE5A,$A05BFBA0,
+    $52A4F652,$3B764D3B,$D6B761D6,$B37DCEB3,$29527B29,$E3DD3EE3,$2F5E712F,$84139784,
+    $53A6F553,$D1B968D1,$00000000,$EDC12CED,$20406020,$FCE31FFC,$B179C8B1,$5BB6ED5B,
+    $6AD4BE6A,$CB8D46CB,$BE67D9BE,$39724B39,$4A94DE4A,$4C98D44C,$58B0E858,$CF854ACF,
+    $D0BB6BD0,$EFC52AEF,$AA4FE5AA,$FBED16FB,$4386C543,$4D9AD74D,$33665533,$85119485,
+    $458ACF45,$F9E910F9,$02040602,$7FFE817F,$50A0F050,$3C78443C,$9F25BA9F,$A84BE3A8,
+    $51A2F351,$A35DFEA3,$4080C040,$8F058A8F,$923FAD92,$9D21BC9D,$38704838,$F5F104F5,
+    $BC63DFBC,$B677C1B6,$DAAF75DA,$21426321,$10203010,$FFE51AFF,$F3FD0EF3,$D2BF6DD2,
+    $CD814CCD,$0C18140C,$13263513,$ECC32FEC,$5FBEE15F,$9735A297,$4488CC44,$172E3917,
+    $C49357C4,$A755F2A7,$7EFC827E,$3D7A473D,$64C8AC64,$5DBAE75D,$19322B19,$73E69573,
+    $60C0A060,$81199881,$4F9ED14F,$DCA37FDC,$22446622,$2A547E2A,$903BAB90,$880B8388,
+    $468CCA46,$EEC729EE,$B86BD3B8,$14283C14,$DEA779DE,$5EBCE25E,$0B161D0B,$DBAD76DB,
+    $E0DB3BE0,$32645632,$3A744E3A,$0A141E0A,$4992DB49,$060C0A06,$24486C24,$5CB8E45C,
+    $C29F5DC2,$D3BD6ED3,$AC43EFAC,$62C4A662,$9139A891,$9531A495,$E4D337E4,$79F28B79,
+    $E7D532E7,$C88B43C8,$376E5937,$6DDAB76D,$8D018C8D,$D5B164D5,$4E9CD24E,$A949E0A9,
+    $6CD8B46C,$56ACFA56,$F4F307F4,$EACF25EA,$65CAAF65,$7AF48E7A,$AE47E9AE,$08101808,
+    $BA6FD5BA,$78F08878,$254A6F25,$2E5C722E,$1C38241C,$A657F1A6,$B473C7B4,$C69751C6,
+    $E8CB23E8,$DDA17CDD,$74E89C74,$1F3E211F,$4B96DD4B,$BD61DCBD,$8B0D868B,$8A0F858A,
+    $70E09070,$3E7C423E,$B571C4B5,$66CCAA66,$4890D848,$03060503,$F6F701F6,$0E1C120E,
+    $61C2A361,$356A5F35,$57AEF957,$B969D0B9,$86179186,$C19958C1,$1D3A271D,$9E27B99E,
+    $E1D938E1,$F8EB13F8,$982BB398,$11223311,$69D2BB69,$D9A970D9,$8E07898E,$9433A794,
+    $9B2DB69B,$1E3C221E,$87159287,$E9C920E9,$CE8749CE,$55AAFF55,$28507828,$DFA57ADF,
+    $8C038F8C,$A159F8A1,$89098089,$0D1A170D,$BF65DABF,$E6D731E6,$4284C642,$68D0B868,
+    $4182C341,$9929B099,$2D5A772D,$0F1E110F,$B07BCBB0,$54A8FC54,$BB6DD6BB,$162C3A16),
+   ($C6A56363,$F8847C7C,$EE997777,$F68D7B7B,$FF0DF2F2,$D6BD6B6B,$DEB16F6F,$9154C5C5,
+    $60503030,$02030101,$CEA96767,$567D2B2B,$E719FEFE,$B562D7D7,$4DE6ABAB,$EC9A7676,
+    $8F45CACA,$1F9D8282,$8940C9C9,$FA877D7D,$EF15FAFA,$B2EB5959,$8EC94747,$FB0BF0F0,
+    $41ECADAD,$B367D4D4,$5FFDA2A2,$45EAAFAF,$23BF9C9C,$53F7A4A4,$E4967272,$9B5BC0C0,
+    $75C2B7B7,$E11CFDFD,$3DAE9393,$4C6A2626,$6C5A3636,$7E413F3F,$F502F7F7,$834FCCCC,
+    $685C3434,$51F4A5A5,$D134E5E5,$F908F1F1,$E2937171,$AB73D8D8,$62533131,$2A3F1515,
+    $080C0404,$9552C7C7,$46652323,$9D5EC3C3,$30281818,$37A19696,$0A0F0505,$2FB59A9A,
+    $0E090707,$24361212,$1B9B8080,$DF3DE2E2,$CD26EBEB,$4E692727,$7FCDB2B2,$EA9F7575,
+    $121B0909,$1D9E8383,$58742C2C,$342E1A1A,$362D1B1B,$DCB26E6E,$B4EE5A5A,$5BFBA0A0,
+    $A4F65252,$764D3B3B,$B761D6D6,$7DCEB3B3,$527B2929,$DD3EE3E3,$5E712F2F,$13978484,
+    $A6F55353,$B968D1D1,$00000000,$C12CEDED,$40602020,$E31FFCFC,$79C8B1B1,$B6ED5B5B,
+    $D4BE6A6A,$8D46CBCB,$67D9BEBE,$724B3939,$94DE4A4A,$98D44C4C,$B0E85858,$854ACFCF,
+    $BB6BD0D0,$C52AEFEF,$4FE5AAAA,$ED16FBFB,$86C54343,$9AD74D4D,$66553333,$11948585,
+    $8ACF4545,$E910F9F9,$04060202,$FE817F7F,$A0F05050,$78443C3C,$25BA9F9F,$4BE3A8A8,
+    $A2F35151,$5DFEA3A3,$80C04040,$058A8F8F,$3FAD9292,$21BC9D9D,$70483838,$F104F5F5,
+    $63DFBCBC,$77C1B6B6,$AF75DADA,$42632121,$20301010,$E51AFFFF,$FD0EF3F3,$BF6DD2D2,
+    $814CCDCD,$18140C0C,$26351313,$C32FECEC,$BEE15F5F,$35A29797,$88CC4444,$2E391717,
+    $9357C4C4,$55F2A7A7,$FC827E7E,$7A473D3D,$C8AC6464,$BAE75D5D,$322B1919,$E6957373,
+    $C0A06060,$19988181,$9ED14F4F,$A37FDCDC,$44662222,$547E2A2A,$3BAB9090,$0B838888,
+    $8CCA4646,$C729EEEE,$6BD3B8B8,$283C1414,$A779DEDE,$BCE25E5E,$161D0B0B,$AD76DBDB,
+    $DB3BE0E0,$64563232,$744E3A3A,$141E0A0A,$92DB4949,$0C0A0606,$486C2424,$B8E45C5C,
+    $9F5DC2C2,$BD6ED3D3,$43EFACAC,$C4A66262,$39A89191,$31A49595,$D337E4E4,$F28B7979,
+    $D532E7E7,$8B43C8C8,$6E593737,$DAB76D6D,$018C8D8D,$B164D5D5,$9CD24E4E,$49E0A9A9,
+    $D8B46C6C,$ACFA5656,$F307F4F4,$CF25EAEA,$CAAF6565,$F48E7A7A,$47E9AEAE,$10180808,
+    $6FD5BABA,$F0887878,$4A6F2525,$5C722E2E,$38241C1C,$57F1A6A6,$73C7B4B4,$9751C6C6,
+    $CB23E8E8,$A17CDDDD,$E89C7474,$3E211F1F,$96DD4B4B,$61DCBDBD,$0D868B8B,$0F858A8A,
+    $E0907070,$7C423E3E,$71C4B5B5,$CCAA6666,$90D84848,$06050303,$F701F6F6,$1C120E0E,
+    $C2A36161,$6A5F3535,$AEF95757,$69D0B9B9,$17918686,$9958C1C1,$3A271D1D,$27B99E9E,
+    $D938E1E1,$EB13F8F8,$2BB39898,$22331111,$D2BB6969,$A970D9D9,$07898E8E,$33A79494,
+    $2DB69B9B,$3C221E1E,$15928787,$C920E9E9,$8749CECE,$AAFF5555,$50782828,$A57ADFDF,
+    $038F8C8C,$59F8A1A1,$09808989,$1A170D0D,$65DABFBF,$D731E6E6,$84C64242,$D0B86868,
+    $82C34141,$29B09999,$5A772D2D,$1E110F0F,$7BCBB0B0,$A8FC5454,$6DD6BBBB,$2C3A1616),
+   ($50A7F451,$5365417E,$C3A4171A,$965E273A,$CB6BAB3B,$F1459D1F,$AB58FAAC,$9303E34B,
+    $55FA3020,$F66D76AD,$9176CC88,$254C02F5,$FCD7E54F,$D7CB2AC5,$80443526,$8FA362B5,
+    $495AB1DE,$671BBA25,$980EEA45,$E1C0FE5D,$02752FC3,$12F04C81,$A397468D,$C6F9D36B,
+    $E75F8F03,$959C9215,$EB7A6DBF,$DA595295,$2D83BED4,$D3217458,$2969E049,$44C8C98E,
+    $6A89C275,$78798EF4,$6B3E5899,$DD71B927,$B64FE1BE,$17AD88F0,$66AC20C9,$B43ACE7D,
+    $184ADF63,$82311AE5,$60335197,$457F5362,$E07764B1,$84AE6BBB,$1CA081FE,$942B08F9,
+    $58684870,$19FD458F,$876CDE94,$B7F87B52,$23D373AB,$E2024B72,$578F1FE3,$2AAB5566,
+    $0728EBB2,$03C2B52F,$9A7BC586,$A50837D3,$F2872830,$B2A5BF23,$BA6A0302,$5C8216ED,
+    $2B1CCF8A,$92B479A7,$F0F207F3,$A1E2694E,$CDF4DA65,$D5BE0506,$1F6234D1,$8AFEA6C4,
+    $9D532E34,$A055F3A2,$32E18A05,$75EBF6A4,$39EC830B,$AAEF6040,$069F715E,$51106EBD,
+    $F98A213E,$3D06DD96,$AE053EDD,$46BDE64D,$B58D5491,$055DC471,$6FD40604,$FF155060,
+    $24FB9819,$97E9BDD6,$CC434089,$779ED967,$BD42E8B0,$888B8907,$385B19E7,$DBEEC879,
+    $470A7CA1,$E90F427C,$C91E84F8,$00000000,$83868009,$48ED2B32,$AC70111E,$4E725A6C,
+    $FBFF0EFD,$5638850F,$1ED5AE3D,$27392D36,$64D90F0A,$21A65C68,$D1545B9B,$3A2E3624,
+    $B1670A0C,$0FE75793,$D296EEB4,$9E919B1B,$4FC5C080,$A220DC61,$694B775A,$161A121C,
+    $0ABA93E2,$E52AA0C0,$43E0223C,$1D171B12,$0B0D090E,$ADC78BF2,$B9A8B62D,$C8A91E14,
+    $8519F157,$4C0775AF,$BBDD99EE,$FD607FA3,$9F2601F7,$BCF5725C,$C53B6644,$347EFB5B,
+    $7629438B,$DCC623CB,$68FCEDB6,$63F1E4B8,$CADC31D7,$10856342,$40229713,$2011C684,
+    $7D244A85,$F83DBBD2,$1132F9AE,$6DA129C7,$4B2F9E1D,$F330B2DC,$EC52860D,$D0E3C177,
+    $6C16B32B,$99B970A9,$FA489411,$2264E947,$C48CFCA8,$1A3FF0A0,$D82C7D56,$EF903322,
+    $C74E4987,$C1D138D9,$FEA2CA8C,$360BD498,$CF81F5A6,$28DE7AA5,$268EB7DA,$A4BFAD3F,
+    $E49D3A2C,$0D927850,$9BCC5F6A,$62467E54,$C2138DF6,$E8B8D890,$5EF7392E,$F5AFC382,
+    $BE805D9F,$7C93D069,$A92DD56F,$B31225CF,$3B99ACC8,$A77D1810,$6E639CE8,$7BBB3BDB,
+    $097826CD,$F418596E,$01B79AEC,$A89A4F83,$656E95E6,$7EE6FFAA,$08CFBC21,$E6E815EF,
+    $D99BE7BA,$CE366F4A,$D4099FEA,$D67CB029,$AFB2A431,$31233F2A,$3094A5C6,$C066A235,
+    $37BC4E74,$A6CA82FC,$B0D090E0,$15D8A733,$4A9804F1,$F7DAEC41,$0E50CD7F,$2FF69117,
+    $8DD64D76,$4DB0EF43,$544DAACC,$DF0496E4,$E3B5D19E,$1B886A4C,$B81F2CC1,$7F516546,
+    $04EA5E9D,$5D358C01,$737487FA,$2E410BFB,$5A1D67B3,$52D2DB92,$335610E9,$1347D66D,
+    $8C61D79A,$7A0CA137,$8E14F859,$893C13EB,$EE27A9CE,$35C961B7,$EDE51CE1,$3CB1477A,
+    $59DFD29C,$3F73F255,$79CE1418,$BF37C773,$EACDF753,$5BAAFD5F,$146F3DDF,$86DB4478,
+    $81F3AFCA,$3EC468B9,$2C342438,$5F40A3C2,$72C31D16,$0C25E2BC,$8B493C28,$41950DFF,
+    $7101A839,$DEB30C08,$9CE4B4D8,$90C15664,$6184CB7B,$70B632D5,$745C6C48,$4257B8D0),
+   ($A7F45150,$65417E53,$A4171AC3,$5E273A96,$6BAB3BCB,$459D1FF1,$58FAACAB,$03E34B93,
+    $FA302055,$6D76ADF6,$76CC8891,$4C02F525,$D7E54FFC,$CB2AC5D7,$44352680,$A362B58F,
+    $5AB1DE49,$1BBA2567,$0EEA4598,$C0FE5DE1,$752FC302,$F04C8112,$97468DA3,$F9D36BC6,
+    $5F8F03E7,$9C921595,$7A6DBFEB,$595295DA,$83BED42D,$217458D3,$69E04929,$C8C98E44,
+    $89C2756A,$798EF478,$3E58996B,$71B927DD,$4FE1BEB6,$AD88F017,$AC20C966,$3ACE7DB4,
+    $4ADF6318,$311AE582,$33519760,$7F536245,$7764B1E0,$AE6BBB84,$A081FE1C,$2B08F994,
+    $68487058,$FD458F19,$6CDE9487,$F87B52B7,$D373AB23,$024B72E2,$8F1FE357,$AB55662A,
+    $28EBB207,$C2B52F03,$7BC5869A,$0837D3A5,$872830F2,$A5BF23B2,$6A0302BA,$8216ED5C,
+    $1CCF8A2B,$B479A792,$F207F3F0,$E2694EA1,$F4DA65CD,$BE0506D5,$6234D11F,$FEA6C48A,
+    $532E349D,$55F3A2A0,$E18A0532,$EBF6A475,$EC830B39,$EF6040AA,$9F715E06,$106EBD51,
+    $8A213EF9,$06DD963D,$053EDDAE,$BDE64D46,$8D5491B5,$5DC47105,$D406046F,$155060FF,
+    $FB981924,$E9BDD697,$434089CC,$9ED96777,$42E8B0BD,$8B890788,$5B19E738,$EEC879DB,
+    $0A7CA147,$0F427CE9,$1E84F8C9,$00000000,$86800983,$ED2B3248,$70111EAC,$725A6C4E,
+    $FF0EFDFB,$38850F56,$D5AE3D1E,$392D3627,$D90F0A64,$A65C6821,$545B9BD1,$2E36243A,
+    $670A0CB1,$E757930F,$96EEB4D2,$919B1B9E,$C5C0804F,$20DC61A2,$4B775A69,$1A121C16,
+    $BA93E20A,$2AA0C0E5,$E0223C43,$171B121D,$0D090E0B,$C78BF2AD,$A8B62DB9,$A91E14C8,
+    $19F15785,$0775AF4C,$DD99EEBB,$607FA3FD,$2601F79F,$F5725CBC,$3B6644C5,$7EFB5B34,
+    $29438B76,$C623CBDC,$FCEDB668,$F1E4B863,$DC31D7CA,$85634210,$22971340,$11C68420,
+    $244A857D,$3DBBD2F8,$32F9AE11,$A129C76D,$2F9E1D4B,$30B2DCF3,$52860DEC,$E3C177D0,
+    $16B32B6C,$B970A999,$489411FA,$64E94722,$8CFCA8C4,$3FF0A01A,$2C7D56D8,$903322EF,
+    $4E4987C7,$D138D9C1,$A2CA8CFE,$0BD49836,$81F5A6CF,$DE7AA528,$8EB7DA26,$BFAD3FA4,
+    $9D3A2CE4,$9278500D,$CC5F6A9B,$467E5462,$138DF6C2,$B8D890E8,$F7392E5E,$AFC382F5,
+    $805D9FBE,$93D0697C,$2DD56FA9,$1225CFB3,$99ACC83B,$7D1810A7,$639CE86E,$BB3BDB7B,
+    $7826CD09,$18596EF4,$B79AEC01,$9A4F83A8,$6E95E665,$E6FFAA7E,$CFBC2108,$E815EFE6,
+    $9BE7BAD9,$366F4ACE,$099FEAD4,$7CB029D6,$B2A431AF,$233F2A31,$94A5C630,$66A235C0,
+    $BC4E7437,$CA82FCA6,$D090E0B0,$D8A73315,$9804F14A,$DAEC41F7,$50CD7F0E,$F691172F,
+    $D64D768D,$B0EF434D,$4DAACC54,$0496E4DF,$B5D19EE3,$886A4C1B,$1F2CC1B8,$5165467F,
+    $EA5E9D04,$358C015D,$7487FA73,$410BFB2E,$1D67B35A,$D2DB9252,$5610E933,$47D66D13,
+    $61D79A8C,$0CA1377A,$14F8598E,$3C13EB89,$27A9CEEE,$C961B735,$E51CE1ED,$B1477A3C,
+    $DFD29C59,$73F2553F,$CE141879,$37C773BF,$CDF753EA,$AAFD5F5B,$6F3DDF14,$DB447886,
+    $F3AFCA81,$C468B93E,$3424382C,$40A3C25F,$C31D1672,$25E2BC0C,$493C288B,$950DFF41,
+    $01A83971,$B30C08DE,$E4B4D89C,$C1566490,$84CB7B61,$B632D570,$5C6C4874,$57B8D042),
+   ($F45150A7,$417E5365,$171AC3A4,$273A965E,$AB3BCB6B,$9D1FF145,$FAACAB58,$E34B9303,
+    $302055FA,$76ADF66D,$CC889176,$02F5254C,$E54FFCD7,$2AC5D7CB,$35268044,$62B58FA3,
+    $B1DE495A,$BA25671B,$EA45980E,$FE5DE1C0,$2FC30275,$4C8112F0,$468DA397,$D36BC6F9,
+    $8F03E75F,$9215959C,$6DBFEB7A,$5295DA59,$BED42D83,$7458D321,$E0492969,$C98E44C8,
+    $C2756A89,$8EF47879,$58996B3E,$B927DD71,$E1BEB64F,$88F017AD,$20C966AC,$CE7DB43A,
+    $DF63184A,$1AE58231,$51976033,$5362457F,$64B1E077,$6BBB84AE,$81FE1CA0,$08F9942B,
+    $48705868,$458F19FD,$DE94876C,$7B52B7F8,$73AB23D3,$4B72E202,$1FE3578F,$55662AAB,
+    $EBB20728,$B52F03C2,$C5869A7B,$37D3A508,$2830F287,$BF23B2A5,$0302BA6A,$16ED5C82,
+    $CF8A2B1C,$79A792B4,$07F3F0F2,$694EA1E2,$DA65CDF4,$0506D5BE,$34D11F62,$A6C48AFE,
+    $2E349D53,$F3A2A055,$8A0532E1,$F6A475EB,$830B39EC,$6040AAEF,$715E069F,$6EBD5110,
+    $213EF98A,$DD963D06,$3EDDAE05,$E64D46BD,$5491B58D,$C471055D,$06046FD4,$5060FF15,
+    $981924FB,$BDD697E9,$4089CC43,$D967779E,$E8B0BD42,$8907888B,$19E7385B,$C879DBEE,
+    $7CA1470A,$427CE90F,$84F8C91E,$00000000,$80098386,$2B3248ED,$111EAC70,$5A6C4E72,
+    $0EFDFBFF,$850F5638,$AE3D1ED5,$2D362739,$0F0A64D9,$5C6821A6,$5B9BD154,$36243A2E,
+    $0A0CB167,$57930FE7,$EEB4D296,$9B1B9E91,$C0804FC5,$DC61A220,$775A694B,$121C161A,
+    $93E20ABA,$A0C0E52A,$223C43E0,$1B121D17,$090E0B0D,$8BF2ADC7,$B62DB9A8,$1E14C8A9,
+    $F1578519,$75AF4C07,$99EEBBDD,$7FA3FD60,$01F79F26,$725CBCF5,$6644C53B,$FB5B347E,
+    $438B7629,$23CBDCC6,$EDB668FC,$E4B863F1,$31D7CADC,$63421085,$97134022,$C6842011,
+    $4A857D24,$BBD2F83D,$F9AE1132,$29C76DA1,$9E1D4B2F,$B2DCF330,$860DEC52,$C177D0E3,
+    $B32B6C16,$70A999B9,$9411FA48,$E9472264,$FCA8C48C,$F0A01A3F,$7D56D82C,$3322EF90,
+    $4987C74E,$38D9C1D1,$CA8CFEA2,$D498360B,$F5A6CF81,$7AA528DE,$B7DA268E,$AD3FA4BF,
+    $3A2CE49D,$78500D92,$5F6A9BCC,$7E546246,$8DF6C213,$D890E8B8,$392E5EF7,$C382F5AF,
+    $5D9FBE80,$D0697C93,$D56FA92D,$25CFB312,$ACC83B99,$1810A77D,$9CE86E63,$3BDB7BBB,
+    $26CD0978,$596EF418,$9AEC01B7,$4F83A89A,$95E6656E,$FFAA7EE6,$BC2108CF,$15EFE6E8,
+    $E7BAD99B,$6F4ACE36,$9FEAD409,$B029D67C,$A431AFB2,$3F2A3123,$A5C63094,$A235C066,
+    $4E7437BC,$82FCA6CA,$90E0B0D0,$A73315D8,$04F14A98,$EC41F7DA,$CD7F0E50,$91172FF6,
+    $4D768DD6,$EF434DB0,$AACC544D,$96E4DF04,$D19EE3B5,$6A4C1B88,$2CC1B81F,$65467F51,
+    $5E9D04EA,$8C015D35,$87FA7374,$0BFB2E41,$67B35A1D,$DB9252D2,$10E93356,$D66D1347,
+    $D79A8C61,$A1377A0C,$F8598E14,$13EB893C,$A9CEEE27,$61B735C9,$1CE1EDE5,$477A3CB1,
+    $D29C59DF,$F2553F73,$141879CE,$C773BF37,$F753EACD,$FD5F5BAA,$3DDF146F,$447886DB,
+    $AFCA81F3,$68B93EC4,$24382C34,$A3C25F40,$1D1672C3,$E2BC0C25,$3C288B49,$0DFF4195,
+    $A8397101,$0C08DEB3,$B4D89CE4,$566490C1,$CB7B6184,$32D570B6,$6C48745C,$B8D04257),
+   ($5150A7F4,$7E536541,$1AC3A417,$3A965E27,$3BCB6BAB,$1FF1459D,$ACAB58FA,$4B9303E3,
+    $2055FA30,$ADF66D76,$889176CC,$F5254C02,$4FFCD7E5,$C5D7CB2A,$26804435,$B58FA362,
+    $DE495AB1,$25671BBA,$45980EEA,$5DE1C0FE,$C302752F,$8112F04C,$8DA39746,$6BC6F9D3,
+    $03E75F8F,$15959C92,$BFEB7A6D,$95DA5952,$D42D83BE,$58D32174,$492969E0,$8E44C8C9,
+    $756A89C2,$F478798E,$996B3E58,$27DD71B9,$BEB64FE1,$F017AD88,$C966AC20,$7DB43ACE,
+    $63184ADF,$E582311A,$97603351,$62457F53,$B1E07764,$BB84AE6B,$FE1CA081,$F9942B08,
+    $70586848,$8F19FD45,$94876CDE,$52B7F87B,$AB23D373,$72E2024B,$E3578F1F,$662AAB55,
+    $B20728EB,$2F03C2B5,$869A7BC5,$D3A50837,$30F28728,$23B2A5BF,$02BA6A03,$ED5C8216,
+    $8A2B1CCF,$A792B479,$F3F0F207,$4EA1E269,$65CDF4DA,$06D5BE05,$D11F6234,$C48AFEA6,
+    $349D532E,$A2A055F3,$0532E18A,$A475EBF6,$0B39EC83,$40AAEF60,$5E069F71,$BD51106E,
+    $3EF98A21,$963D06DD,$DDAE053E,$4D46BDE6,$91B58D54,$71055DC4,$046FD406,$60FF1550,
+    $1924FB98,$D697E9BD,$89CC4340,$67779ED9,$B0BD42E8,$07888B89,$E7385B19,$79DBEEC8,
+    $A1470A7C,$7CE90F42,$F8C91E84,$00000000,$09838680,$3248ED2B,$1EAC7011,$6C4E725A,
+    $FDFBFF0E,$0F563885,$3D1ED5AE,$3627392D,$0A64D90F,$6821A65C,$9BD1545B,$243A2E36,
+    $0CB1670A,$930FE757,$B4D296EE,$1B9E919B,$804FC5C0,$61A220DC,$5A694B77,$1C161A12,
+    $E20ABA93,$C0E52AA0,$3C43E022,$121D171B,$0E0B0D09,$F2ADC78B,$2DB9A8B6,$14C8A91E,
+    $578519F1,$AF4C0775,$EEBBDD99,$A3FD607F,$F79F2601,$5CBCF572,$44C53B66,$5B347EFB,
+    $8B762943,$CBDCC623,$B668FCED,$B863F1E4,$D7CADC31,$42108563,$13402297,$842011C6,
+    $857D244A,$D2F83DBB,$AE1132F9,$C76DA129,$1D4B2F9E,$DCF330B2,$0DEC5286,$77D0E3C1,
+    $2B6C16B3,$A999B970,$11FA4894,$472264E9,$A8C48CFC,$A01A3FF0,$56D82C7D,$22EF9033,
+    $87C74E49,$D9C1D138,$8CFEA2CA,$98360BD4,$A6CF81F5,$A528DE7A,$DA268EB7,$3FA4BFAD,
+    $2CE49D3A,$500D9278,$6A9BCC5F,$5462467E,$F6C2138D,$90E8B8D8,$2E5EF739,$82F5AFC3,
+    $9FBE805D,$697C93D0,$6FA92DD5,$CFB31225,$C83B99AC,$10A77D18,$E86E639C,$DB7BBB3B,
+    $CD097826,$6EF41859,$EC01B79A,$83A89A4F,$E6656E95,$AA7EE6FF,$2108CFBC,$EFE6E815,
+    $BAD99BE7,$4ACE366F,$EAD4099F,$29D67CB0,$31AFB2A4,$2A31233F,$C63094A5,$35C066A2,
+    $7437BC4E,$FCA6CA82,$E0B0D090,$3315D8A7,$F14A9804,$41F7DAEC,$7F0E50CD,$172FF691,
+    $768DD64D,$434DB0EF,$CC544DAA,$E4DF0496,$9EE3B5D1,$4C1B886A,$C1B81F2C,$467F5165,
+    $9D04EA5E,$015D358C,$FA737487,$FB2E410B,$B35A1D67,$9252D2DB,$E9335610,$6D1347D6,
+    $9A8C61D7,$377A0CA1,$598E14F8,$EB893C13,$CEEE27A9,$B735C961,$E1EDE51C,$7A3CB147,
+    $9C59DFD2,$553F73F2,$1879CE14,$73BF37C7,$53EACDF7,$5F5BAAFD,$DF146F3D,$7886DB44,
+    $CA81F3AF,$B93EC468,$382C3424,$C25F40A3,$1672C31D,$BC0C25E2,$288B493C,$FF41950D,
+    $397101A8,$08DEB30C,$D89CE4B4,$6490C156,$7B6184CB,$D570B632,$48745C6C,$D04257B8));
+
+procedure XORBuffers(const Source1, Source2; Size: Integer; var Dest);
+asm // Dest^ =  Source1^ xor Source2^ , Size bytes
+       AND   ECX,ECX
+       JZ    @@5
+       PUSH  ESI
+       PUSH  EDI
+       MOV   ESI,EAX
+       MOV   EDI,Dest
+@@1:   TEST  ECX,3
+       JNZ   @@3
+@@2:   SUB   ECX,4
+       JL    @@4
+       MOV   EAX,[ESI + ECX]
+       XOR   EAX,[EDX + ECX]
+       MOV   [EDI + ECX],EAX
+       JMP   @@2
+@@3:   DEC   ECX
+       MOV   AL,[ESI + ECX]
+       XOR   AL,[EDX + ECX]
+       MOV   [EDI + ECX],AL
+       JMP   @@1
+@@4:   POP   EDI
+       POP   ESI
+@@5:
+end;
+
+// wipe
+const
+  WipeCount = 4;
+  WipeBytes : array[0..WipeCount -1] of Byte = ($55, $AA, $FF, $00);
+
+procedure ProtectBuffer(var Buffer; Size: Integer);
+var
+  Count: Integer;
+begin
+  if Size > 0 then
+    for Count := 0 to WipeCount -1 do
+      FillChar(Buffer, Size, WipeBytes[Count]);
+end;
+
+procedure ProtectBinary(var Value: Binary_AnsiString);
+begin
+  UniqueString(AnsiString(Value));
+  ProtectBuffer(Pointer(Value)^, Length(Value));
+  Value := '';
+end;
+
+resourcestring
+  sAlreadyPadded        = 'Cipher have already padded, can not process message';
+  sInvalidState         = 'Cipher is not in valid state for this action';
+
+type
+  EDECException  = class(Exception);
+    
+procedure TROCipher_AES.CheckState(States: TCipherStates);
+var
+  S: String;
+begin
+  if not (FState in States) then
+  begin
+    if FState = csPadded then S := sAlreadyPadded  else S := sInvalidState;
+    raise EDECException.Create(S);
+  end;
+end;
+
+constructor TROCipher_AES.Create;
+begin
+  inherited Create;
+  FBufferSize := Rijndael_Blocks * 4;
+  FUserSize := (Rijndael_Rounds + 1) * Rijndael_Blocks * SizeOf(LongWord) * 2;
+  FBlockSize := Rijndael_Blocks * 4;
+  FDataSize := FBufferSize * 3 + FUserSize;
+  ReallocMem(FData, FDataSize);
+  FVector := @FData[0];
+  FFeedback := @FVector[FBufferSize];
+  FBuffer := @FFeedback[FBufferSize];
+  FUser := @FBuffer[FBufferSize];
+  Protect;
+end;
+
+destructor TROCipher_AES.Destroy;
+begin
+  Protect;
+  ReallocMem(FData, 0);
+  FVector := nil;
+  FFeedback := nil;
+  FBuffer := nil;
+  FUser := nil;
+  inherited Destroy;
+end;
+
+procedure TROCipher_AES.Init(const Key; Size: Integer; const IVector; IVectorSize: Integer; IFiller: Byte);
+begin
+  Protect;
+
+  DoInit(Key, Size);
+
+  FillChar(FVector^, FBufferSize, IFiller);
+  if IVectorSize = 0 then
+  begin
+    DoEncode(FVector, FVector, FBufferSize);
+  end else Move(IVector, FVector^, IVectorSize);
+  Move(FVector^, FFeedback^, FBufferSize);
+  FState := csInitialized;
+end;
+
+procedure TROCipher_AES.Init(const Key: Binary_AnsiString; const IVector: Binary_AnsiString; IFiller: Byte);
+begin
+  Init(Key[1], Length(Key), IVector[1], Length(IVector), IFiller);
+end;
+
+procedure TROCipher_AES.DoDecode(Source, Dest: Pointer; Size: Integer);
+var
+  P: PLongArray;
+  I: Integer;
+  A2,B2,C2,D2: LongWord;
+  A1,B1,C1,D1: LongWord;
+begin
+  Assert(Size = FBlockSize);
+
+  P  := Pointer(PAnsiChar(FUser) + FUserSize shr 1 + FRounds * 16);
+  A1 := PLongArray(Source)[0];
+  B1 := PLongArray(Source)[1];
+  C1 := PLongArray(Source)[2];
+  D1 := PLongArray(Source)[3];
+
+  for I := 2 to FRounds do
+  begin
+    A2 := A1 xor P[0];
+    B2 := B1 xor P[1];
+    C2 := C1 xor P[2];                      
+    D2 := D1 xor P[3];
+
+    A1 := Rijndael_T[4, A2        and $FF] xor
+          Rijndael_T[5, D2 shr  8 and $FF] xor
+          Rijndael_T[6, C2 shr 16 and $FF] xor
+          Rijndael_T[7, B2 shr 24        ];
+    B1 := Rijndael_T[4, B2        and $FF] xor
+          Rijndael_T[5, A2 shr  8 and $FF] xor
+          Rijndael_T[6, D2 shr 16 and $FF] xor
+          Rijndael_T[7, C2 shr 24        ];
+    C1 := Rijndael_T[4, C2        and $FF] xor
+          Rijndael_T[5, B2 shr  8 and $FF] xor
+          Rijndael_T[6, A2 shr 16 and $FF] xor
+          Rijndael_T[7, D2 shr 24        ];
+    D1 := Rijndael_T[4, D2        and $FF] xor
+          Rijndael_T[5, C2 shr  8 and $FF] xor
+          Rijndael_T[6, B2 shr 16 and $FF] xor
+          Rijndael_T[7, A2 shr 24        ];
+
+    Dec(PLongWord(P), 4);
+  end;
+
+  A2 := A1 xor P[0];
+  B2 := B1 xor P[1];
+  C2 := C1 xor P[2];
+  D2 := D1 xor P[3];
+
+  Dec(PLongWord(P), 4);
+
+  PLongArray(Dest)[0] := (Rijndael_S[1, A2        and $FF]        or
+                          Rijndael_S[1, D2 shr  8 and $FF] shl  8 or
+                          Rijndael_S[1, C2 shr 16 and $FF] shl 16 or
+                          Rijndael_S[1, B2 shr 24]         shl 24)    xor P[0];
+  PLongArray(Dest)[1] := (Rijndael_S[1, B2        and $FF]        or
+                          Rijndael_S[1, A2 shr  8 and $FF] shl  8 or
+                          Rijndael_S[1, D2 shr 16 and $FF] shl 16 or
+                          Rijndael_S[1, C2 shr 24]         shl 24)    xor P[1];
+  PLongArray(Dest)[2] := (Rijndael_S[1, C2        and $FF]        or
+                          Rijndael_S[1, B2 shr  8 and $FF] shl  8 or
+                          Rijndael_S[1, A2 shr 16 and $FF] shl 16 or
+                          Rijndael_S[1, D2 shr 24]         shl 24)    xor P[2];
+  PLongArray(Dest)[3] := (Rijndael_S[1, D2        and $FF]        or
+                          Rijndael_S[1, C2 shr  8 and $FF] shl  8 or
+                          Rijndael_S[1, B2 shr 16 and $FF] shl 16 or
+                          Rijndael_S[1, A2 shr 24]         shl 24)    xor P[3];
+end;
+
+procedure TROCipher_AES.DoEncode(Source, Dest: Pointer; Size: Integer);
+var
+  P: PLongArray;
+  I: Integer;
+  A2,B2,C2,D2: LongWord;
+  A1,B1,C1,D1: LongWord;
+begin
+  Assert(Size = FBlockSize);
+  P  := FUser;
+  A1 := PLongArray(Source)[0];
+  B1 := PLongArray(Source)[1];
+  C1 := PLongArray(Source)[2];
+  D1 := PLongArray(Source)[3];
+  for I := 2 to FRounds do
+  begin
+    A2 := A1 xor P[0];
+    B2 := B1 xor P[1];
+    C2 := C1 xor P[2];
+    D2 := D1 xor P[3];
+
+    A1 := Rijndael_T[0, A2        and $FF] xor
+          Rijndael_T[1, B2 shr  8 and $FF] xor
+          Rijndael_T[2, C2 shr 16 and $FF] xor
+          Rijndael_T[3, D2 shr 24        ];
+    B1 := Rijndael_T[0, B2        and $FF] xor
+          Rijndael_T[1, C2 shr  8 and $FF] xor
+          Rijndael_T[2, D2 shr 16 and $FF] xor
+          Rijndael_T[3, A2 shr 24        ];
+    C1 := Rijndael_T[0, C2        and $FF] xor
+          Rijndael_T[1, D2 shr  8 and $FF] xor
+          Rijndael_T[2, A2 shr 16 and $FF] xor
+          Rijndael_T[3, B2 shr 24        ];
+    D1 := Rijndael_T[0, D2        and $FF] xor
+          Rijndael_T[1, A2 shr  8 and $FF] xor
+          Rijndael_T[2, B2 shr 16 and $FF] xor
+          Rijndael_T[3, C2 shr 24        ];
+
+    P := @P[4];
+  end;
+
+  A2 := A1 xor P[0];
+  B2 := B1 xor P[1];
+  C2 := C1 xor P[2];
+  D2 := D1 xor P[3];
+
+  PLongArray(Dest)[0] := (Rijndael_S[0, A2        and $FF]        or
+                          Rijndael_S[0, B2 shr  8 and $FF] shl  8 or
+                          Rijndael_S[0, C2 shr 16 and $FF] shl 16 or
+                          Rijndael_S[0, D2 shr 24        ] shl 24)     xor P[4];
+  PLongArray(Dest)[1] := (Rijndael_S[0, B2        and $FF]        or
+                          Rijndael_S[0, C2 shr  8 and $FF] shl  8 or
+                          Rijndael_S[0, D2 shr 16 and $FF] shl 16 or
+                          Rijndael_S[0, A2 shr 24        ] shl 24)     xor P[5];
+  PLongArray(Dest)[2] := (Rijndael_S[0, C2        and $FF]        or
+                          Rijndael_S[0, D2 shr  8 and $FF] shl  8 or
+                          Rijndael_S[0, A2 shr 16 and $FF] shl 16 or
+                          Rijndael_S[0, B2 shr 24        ] shl 24)     xor P[6];
+  PLongArray(Dest)[3] := (Rijndael_S[0, D2        and $FF]        or
+                          Rijndael_S[0, A2 shr  8 and $FF] shl  8 or
+                          Rijndael_S[0, B2 shr 16 and $FF] shl 16 or
+                          Rijndael_S[0, C2 shr 24        ] shl 24)     xor P[7];
+end;
+
+procedure TROCipher_AES.DoInit(const Key; Size: Integer);
+  procedure BuildEncodeKey;
+  const
+    RCon: array[0..9] of LongWord = ($01,$02,$04,$08,$10,$20,$40,$80,$1b,$36);
+  var
+    I: Integer;
+    T: LongWord;
+    P: PLongArray;
+  begin
+    P := FUser;
+    if Size <= 16 then
+    begin
+      for I := 0 to 9 do
+      begin
+        T := P[3];
+        P[4] := Rijndael_S[0, T shr  8 and $FF]        xor
+                Rijndael_S[0, T shr 16 and $FF] shl  8 xor
+                Rijndael_S[0, T shr 24        ] shl 16 xor
+                Rijndael_S[0, T        and $FF] shl 24 xor P[0] xor RCon[I];
+        P[5] := P[1] xor P[4];
+        P[6] := P[2] xor P[5];
+        P[7] := P[3] xor P[6];
+        P    := @P[4];
+      end;
+    end else
+      if Size <= 24 then
+      begin
+        for I := 0 to 7 do
+        begin
+          T := P[5];
+          P[6] := Rijndael_S[0, T shr  8 and $FF]        xor
+                  Rijndael_S[0, T shr 16 and $FF] shl  8 xor
+                  Rijndael_S[0, T shr 24        ] shl 16 xor
+                  Rijndael_S[0, T        and $FF] shl 24 xor P[0] xor RCon[I];
+          P[7] := P[1] xor P[6];
+          P[8] := P[2] xor P[7];
+          P[9] := P[3] xor P[8];
+          if I = 7 then Break;
+          P[10] := P[4] xor P[9];
+          P[11] := P[5] xor P[10];
+          P     := @P[6];
+        end;
+      end else
+      begin
+        for I :=0 to 6 do
+        begin
+          T := P[7];
+          P[8] := Rijndael_S[0, T shr  8 and $FF]        xor
+                  Rijndael_S[0, T shr 16 and $FF] shl  8 xor
+                  Rijndael_S[0, T shr 24        ] shl 16 xor
+                  Rijndael_S[0, T        and $FF] shl 24 xor P[0] xor RCon[I];
+          P[9] := P[1] xor P[8];
+          P[10] := P[2] xor P[9];
+          P[11] := P[3] xor P[10];
+          if I = 6 then Break;
+          T := P[11];
+          P[12] := Rijndael_S[0, T        and $FF]        xor
+                   Rijndael_S[0, T shr  8 and $FF] shl  8 xor
+                   Rijndael_S[0, T shr 16 and $FF] shl 16 xor
+                   Rijndael_S[0, T shr 24        ] shl 24 xor P[4];
+          P[13] := P[5] xor P[12];
+          P[14] := P[6] xor P[13];
+          P[15] := P[7] xor P[14];
+          P     := @P[8];
+        end;
+      end;
+  end;
+
+
+  procedure BuildDecodeKey;
+  var
+    P: PLongWord;
+    I: Integer;
+  begin
+    P := Pointer(PAnsiChar(FUser) + FUserSize shr 1);
+    Move(FUser^, P^, FUserSize shr 1);
+    Inc(P, 4);
+    for I := 0 to FRounds * 4 -5 do
+    begin
+      P^ := Rijndael_T[4, Rijndael_S[0, P^        and $FF]] xor
+            Rijndael_T[5, Rijndael_S[0, P^ shr  8 and $FF]] xor
+            Rijndael_T[6, Rijndael_S[0, P^ shr 16 and $FF]] xor
+            Rijndael_T[7, Rijndael_S[0, P^ shr 24        ]];
+      Inc(P);
+    end;
+  end;
+
+                                 
+begin
+  if Size <= 16 then FRounds := 10 else
+    if Size <= 24 then FRounds := 12
+      else FRounds := 14;
+  FillChar(FUser^, 32, 0);       
+  Move(Key, FUser^, Size);
+  BuildEncodeKey;
+  BuildDecodeKey;
+end;
+
+procedure TROCipher_AES.Done;
+begin
+  if FState <> csDone then
+  begin
+    FState := csDone;
+    FBufferIndex := 0;
+    DoEncode(FFeedback, FBuffer, FBufferSize);
+    Move(FVector^, FFeedback^, FBufferSize);
+  end;
+end;
+
+procedure TROCipher_AES.Protect;
+begin
+  FState := csNew;
+  ProtectBuffer(FData[0], FDataSize);
+end;
+
+
+procedure TROCipher_AES.Encode(const Source; var Dest; DataSize: Integer);
+
+  procedure EncodeCFB8(S,D: PByteArray; Size: Integer);
+  // CFB-8
+  var
+    I: Integer;
+  begin
+    I := 0;
+    while I < Size do
+    begin
+      DoEncode(FFeedback, FBuffer, FBufferSize);
+      Move(FFeedback[1], FFeedback[0], FBufferSize -1);
+      D[I] := S[I] xor FBuffer[0];
+      FFeedback[FBufferSize -1] := D[I];
+      Inc(I);
+    end;
+    FState := csEncode;
+  end;
+
+  procedure EncodeCBCx(S,D: PByteArray; Size: Integer);
+  var
+    F: PByteArray;
+    I: Integer;
+  begin
+    Dec(Size, FBufferSize);
+    F := FFeedback;
+    I := 0;
+    while I <= Size do
+    begin
+      XORBuffers(S[I], F[0], FBufferSize, D[I]);
+      F := @D[I];
+      DoEncode(F, F, FBufferSize);
+      Inc(I, FBufferSize);
+    end;
+    if F <> FFeedback then
+      Move(F[0], FFeedback[0], FBufferSize);
+    Dec(Size, I - FBufferSize);
+    if Size > 0 then
+    begin  // padding
+      EncodeCFB8(@S[I], @D[I], Size);
+      FState := csPadded;
+    end else FState := csEncode;
+  end;
+
+begin
+  CheckState([csInitialized, csEncode, csDone]);
+  EncodeCBCx(@Source, @Dest, DataSize);
+end;
+
+procedure TROCipher_AES.Decode(const Source; var Dest; DataSize: Integer);
+
+  procedure DecodeCFB8(S,D: PByteArray; Size: Integer);
+  // CFB-8
+  var
+    I: Integer;
+  begin
+    I := 0;
+    while I < Size do
+    begin
+      DoEncode(FFeedback, FBuffer, FBufferSize);
+      Move(FFeedback[1], FFeedback[0], FBufferSize -1);
+      FFeedback[FBufferSize -1] := S[I];
+      D[I] := S[I] xor FBuffer[0];
+      Inc(I);
+    end;
+    FState := csDecode;
+  end;
+
+  procedure DecodeCBCx(S,D: PByteArray; Size: Integer);
+  var
+    I: Integer;
+    F,B,T: PByteArray;
+  begin
+    Dec(Size, FBufferSize);
+    F := FFeedback;
+    I := 0;
+    if S = D then
+    begin
+      B := FBuffer;
+      while I <= Size do
+      begin
+        Move(S[I], B[0], FBufferSize);
+        DoDecode(@S[I], @S[I], FBufferSize);
+        XORBuffers(S[I], F[0], FBufferSize, S[I]);
+        T := F;
+        F := B;
+        B := T;
+        Inc(I, FBufferSize);
+      end;
+    end else
+      while I <= Size do
+      begin
+        DoDecode(@S[I], @D[I], FBufferSize);
+        XORBuffers(F[0], D[I], FBufferSize, D[I]);
+        F := @S[I];
+        Inc(I, FBufferSize);
+      end;
+    if F <> FFeedback then
+      Move(F[0], FFeedback[0], FBufferSize);
+    Dec(Size, I - FBufferSize);
+    if Size > 0 then
+    begin
+      DecodeCFB8(@S[I], @D[I], Size);
+      FState := csPadded;
+    end else FState := csDecode;
+  end;
+
+begin
+  CheckState([csInitialized, csDecode, csDone]);
+  DecodeCBCx(@Source, @Dest, DataSize);
+end;
+
+procedure TROCipher_AES.EncodeStream(const Source, Dest: TStream; const DataSize: Int64);
+var
+  Buffer: AnsiString;
+  BufferSize,Bytes: Integer;
+  Size: Int64;
+  dx: integer;
+begin
+  Size := DataSize;
+  if Size < 0 then Size := Source.Size - Source.Position;
+  BufferSize := StreamBufferSize;
+  SetLength(Buffer, BufferSize);
+  while Size > 0 do
+  begin
+    Bytes := BufferSize;
+    if Bytes > Size then Bytes := Size;
+    Source.ReadBuffer(Buffer[1], Bytes);
+    if (bytes < BufferSize) and (bytes mod FBlockSize <> 0) then begin
+      dx := FBlockSize - (bytes mod FBlockSize);
+      FillChar(Buffer[bytes+1],dx,0);
+      inc(Bytes, dx);
+    end;
+    Encode(Buffer[1], Buffer[1], Bytes);
+    Dest.WriteBuffer(Buffer[1], Bytes);
+    Dec(Size, Bytes);
+  end;
+end;
+
+procedure TROCipher_AES.DecodeStream(const Source, Dest: TStream; const DataSize: Int64);
+var
+  Buffer: Binary_AnsiString;
+  BufferSize,Bytes: Integer;
+  Size: int64;
+begin
+  Size := DataSize;
+  if Size < 0 then Size := Source.Size - Source.Position;
+
+  if Size > 0 then
+  try
+    BufferSize := StreamBufferSize mod FBlockSize;
+    if BufferSize = 0 then BufferSize := StreamBufferSize
+      else BufferSize := StreamBufferSize + FBlockSize - BufferSize;
+    if Size > BufferSize then SetLength(Buffer, BufferSize)
+      else SetLength(Buffer, Size);
+    while Size > 0 do
+    begin
+      Bytes := BufferSize;
+      if Bytes > Size then Bytes := Size;
+      Source.ReadBuffer(Buffer[1], Bytes);
+      Decode(Buffer[1], Buffer[1], Bytes);
+      Dest.WriteBuffer(Buffer[1], Bytes);
+      Dec(Size, Bytes);
+    end;
+  finally
+    ProtectBinary(Buffer);
+  end;
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEndianness.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEndianness.pas
new file mode 100644
index 0000000..c0451ca
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEndianness.pas	
@@ -0,0 +1,204 @@
+unit uROEndianness;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+{$IFDEF DELPHI6}
+type
+  UInt64 = Int64;
+{$ENDIF DELPHI6}
+
+// Output is always little endian (Intel's)
+function EndianSafeWriteInteger(aIn: integer): integer;
+function EndianSafeWriteInt16(aIn: Word): Word;
+function EndianSafeWriteInt32(aIn: Cardinal): Cardinal;
+function EndianSafeWriteInt64(aIn: UInt64): UInt64;
+function EndianSafeWriteDouble(aIn: double): double;
+function EndianSafeWriteSingle(aIn: single): single;
+function EndianSafeWriteCurrency(aIn: Currency): Currency;
+
+// Input is always little endian (Intel's)
+function EndianSafeReadInteger(aIn: integer): integer;
+function EndianSafeReadInt16(aIn: Word): Word;
+function EndianSafeReadInt32(aIn: Cardinal): Cardinal;
+function EndianSafeReadInt64(aIn: UInt64): UInt64;
+function EndianSafeReadDouble(aIn: double): double;
+function EndianSafeReadSingle(aIn: single): single;
+function EndianSafeReadCurrency(aIn: Currency): Currency;
+
+function ReverseByteOrder(aData: pointer; aSize: integer): pointer; overload;
+procedure ReverseByteOrder(aDataIn, aDataOut: pointer; aSize: integer); overload;
+
+implementation
+
+type
+  TByteArray = array of byte;
+  PByteArray = ^TByteArray;
+
+function EndianSafeWriteInteger(aIn: integer): integer;
+{$IFDEF ENDIAN_BIG}
+var
+  tmp: pointer;
+{$ENDIF}
+begin
+  {$IFDEF ENDIAN_BIG}
+  tmp := ReverseByteOrder(@aIn, SizeOf(integer));
+  Result := PInteger(tmp)^;
+  FreeMem(tmp, SizeOf(integer));
+  {$ELSE}
+  Result := aIn;
+  {$ENDIF}
+end;
+
+function EndianSafeWriteInt16(aIn: Word): Word;
+begin
+  {$IFDEF ENDIAN_BIG}
+  Result := ((aIn shr 8) and $00ff) + ((aIn shl 8) and $ff00);
+  {$ELSE}
+  Result := aIn;
+  {$ENDIF}
+end;
+
+function EndianSafeWriteInt32(aIn: Cardinal): Cardinal;
+begin
+  {$IFDEF ENDIAN_BIG}
+  Result :=  ((aIn and $00ff) shl 24) + ((aIn and $ff00) shl 8) +
+    ((aIn  and $ff0000) shr 8) + ((aIn shr 24)  and $ff);
+  {$ELSE}
+  Result := aIn;
+  {$ENDIF}
+end;
+
+function EndianSafeWriteInt64(aIn: UInt64): UInt64;
+{$IFDEF ENDIAN_BIG}
+var
+  arrIn: array[0..7] of byte absolute aIn;
+  arrRes: array[0..7] of byte absolute Result;
+  i: byte;
+{$ENDIF}
+begin
+  {$IFDEF ENDIAN_BIG}
+  Result := 0;
+  for i := 0 to 7 do arrRes[i] := arrIn[7 - i];
+  {$ELSE}
+  Result := aIn;
+  {$ENDIF}
+end;
+
+function EndianSafeWriteDouble(aIn: double): double;
+{$IFDEF ENDIAN_BIG}
+var
+  arrIn: array[0..7] of byte absolute aIn;
+  arrRes: array[0..7] of byte absolute Result;
+  i: byte;
+{$ENDIF}
+begin
+  {$IFDEF ENDIAN_BIG}
+  Result := 0;
+  for i := 0 to 7 do arrRes[i] := arrIn[7 - i];
+  {$ELSE}
+  Result := aIn;
+  {$ENDIF}
+end;
+
+function EndianSafeWriteSingle(aIn: single): single;
+{$IFDEF ENDIAN_BIG}
+var
+  arrIn: array[0..3] of byte absolute aIn;
+  arrRes: array[0..3] of byte absolute Result;
+  i: byte;
+{$ENDIF}
+begin
+  {$IFDEF ENDIAN_BIG}
+  Result := 0;
+  for i := 0 to 3 do arrRes[i] := arrIn[3 - i];
+  {$ELSE}
+  Result := aIn;
+  {$ENDIF}
+end;
+
+function EndianSafeWriteCurrency(aIn: Currency): Currency;
+{$IFDEF ENDIAN_BIG}
+var
+  arrIn: array[0..7] of byte absolute aIn;
+  arrRes: array[0..7] of byte absolute Result;
+  i: byte;
+{$ENDIF}
+begin
+  {$IFDEF ENDIAN_BIG}
+  Result := 0;
+  for i := 0 to 7 do arrRes[i] := arrIn[7 - i];
+  {$ELSE}
+  Result := aIn;
+  {$ENDIF}
+end;
+
+function EndianSafeReadInteger(aIn: integer): integer;
+begin
+  Result := EndianSafeWriteInteger(aIn);
+end;
+
+function EndianSafeReadInt16(aIn: Word): Word;
+begin
+  Result := EndianSafeWriteInt16(aIn);
+end;
+
+function EndianSafeReadInt32(aIn: Cardinal): Cardinal;
+begin
+  Result := EndianSafeWriteInt32(aIn);
+end;
+
+function EndianSafeReadInt64(aIn: UInt64): UInt64;
+begin
+  Result := EndianSafeWriteInt64(aIn);
+end;
+
+function EndianSafeReadDouble(aIn: double): double;
+begin
+  Result := EndianSafeWriteDouble(aIn);
+end;
+
+function EndianSafeReadSingle(aIn: single): single;
+begin
+  Result := EndianSafeWriteSingle(aIn);
+end;
+
+function EndianSafeReadCurrency(aIn: Currency): Currency;
+begin
+  Result := EndianSafeWriteCurrency(aIn);
+end;
+
+function ReverseByteOrder(aData: pointer; aSize: integer): pointer;
+var
+  arrIn: TByteArray absolute aData;
+  arrOut: PByteArray;
+  i: integer;
+begin
+  GetMem(Result, aSize);
+  arrOut := Result;
+  for i := 0 to aSize - 1 do arrOut^[i] := arrIn[aSize - 1 - i];
+end;
+
+procedure ReverseByteOrder(aDataIn, aDataOut: pointer; aSize: integer);
+var
+  arrIn: TByteArray absolute aDataIn;
+  arrOut: TByteArray absolute aDataOut;
+  i: integer;
+begin
+  for i := 0 to aSize - 1 do arrOut[i] := arrIn[aSize - 1 - i];
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEventRepository.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEventRepository.pas
new file mode 100644
index 0000000..141312e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROEventRepository.pas	
@@ -0,0 +1,1704 @@
+unit uROEventRepository;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, SyncObjs, // Contnrs,
+  uROSessions, uROClientIntf, uROClient, uROTypes, uROClasses, uROServerIntf;
+
+type
+  IROEventsInvoker = interface;
+  TROEventReceiver = class;
+  TROSessionReference = class;
+  TROEventRepository = class;
+
+  TROInvokerInvokeMethod = procedure(__EventReceiver : TROEventReceiver; const aMessage : IROMEssage; const aTarget : IInterface) of object;
+
+  { IROEventRepository }
+  IROEventRepository = interface
+  ['{35D49EF1-F62C-4985-B092-8B09D235D81B}']
+    procedure AddSession(aSessionID : TGUID);
+    procedure RemoveSession(aSessionID : TGUID);
+
+    procedure StoreEventData(SourceSessionID : TGUID; Data : Binary;
+                             const ExcludeSender: Boolean;
+                             const ExcludeSessionList: Boolean;
+                             const SessionList: String);
+    function GetEventData(SessionID : TGUID; var TargetStream : Binary) : integer;
+  end;
+
+  { IROEventsInvoker }
+  IROEventsInvoker = interface
+  ['{A7FF5762-8208-4A91-B6C2-5D4ECB014EE9}']
+    procedure Execute(const aTarget : TObject; EventData: TStream);
+  end;
+
+  TROSessionEvent = procedure(Sender : TROEventRepository ; const SessionID : TGUID) of object;
+
+  { TROEventRepository }
+  TROEventRepository = class(TROComponent, IROEventRepository)
+  private
+    fSessionManager: TROCustomSessionManager;
+    fMessage: TROMessage;
+    fOnBeforeAddSession: TROSessionEvent;
+    fOnAfterRemoveSession: TROSessionEvent;
+    fOnAfterAddSession: TROSessionEvent;
+    fOnBeforeRemoveSession: TROSessionEvent;
+    procedure SetMessage(const Value: TROMessage);
+
+  protected
+    procedure SetSessionManager(const Value: TROCustomSessionManager); virtual;
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    { Virtuals }
+    procedure DoStoreEventData(SourceSessionID : TGUID; Data : Binary;
+                               const ExcludeSender: Boolean;
+                               const ExcludeSessionList: Boolean;
+                               const SessionList: String); virtual; abstract;
+    function DoGetEventData(SessionID : TGUID; var TargetStream : Binary) : integer; virtual; abstract;
+    procedure DoAddSession(aSessionID : TGUID); overload; virtual; abstract;
+    procedure DoAddSession(aSessionID : TGUID; aActiveEventServer: IROActiveEventServer); overload; virtual;
+    procedure DoRemoveSession(aSessionID : TGUID); virtual; abstract;
+
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override;
+
+  public
+    { IROEventRepository }
+    procedure StoreEventData(SourceSessionID : TGUID; Data : Binary;
+                             const ExcludeSender: Boolean;
+                             const ExcludeSessionList: Boolean;
+                             const SessionList: String);
+    function GetEventData(SessionID : TGUID; var TargetStream : Binary) : integer;
+
+    procedure AddSession(aSessionID : TGUID); overload;
+    procedure AddSession(aSessionID: TGUID; aActiveEventServer: IROActiveEventServer); overload;
+    function AddActiveListener(aSessionID: TGUID; aActiveEventServer: IROActiveEventServer): boolean; virtual;
+    procedure RemoveSession(aSessionID : TGUID);
+    procedure CheckProperties; virtual;
+
+//    procedure DeleteEventData(anEvent: TROEventData); virtual;
+
+    function GetEventWriter(const IID: TGUID): IROEventWriter;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Message : TROMessage read fMessage write SetMessage;
+    property SessionManager : TROCustomSessionManager read fSessionManager write SetSessionManager;
+
+    property OnBeforeAddSession : TROSessionEvent read fOnBeforeAddSession write fOnBeforeAddSession;
+    property OnAfterAddSession : TROSessionEvent read fOnAfterAddSession write fOnAfterAddSession;
+    property OnAfterRemoveSession : TROSessionEvent read fOnAfterRemoveSession write fOnAfterRemoveSession;
+    property OnBeforeRemoveSession : TROSessionEvent read fOnBeforeRemoveSession write fOnBeforeRemoveSession;
+  end;
+
+  TROSessionRefToEventDataLink = class;
+
+  IROActiveEventServerList = interface
+  ['{C6ACE445-267E-4217-9A9C-1D357A7CB3BF}']
+    function GetNext: IROActiveEventServerList;
+    procedure SetNext(aData: IROActiveEventServerList);
+    function GetServer: IROActiveEventServer;
+
+    property Server: IROActiveEventServer read GetServer;
+    property Next: IROActiveEventServerList read GetNext write SetNext;
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+  end;
+  TIROActiveEventServerList = class(TInterfacedObject, IROActiveEventServerList)
+  private
+    fNext: IROActiveEventServerList;
+    fServer: IROActiveEventServer;
+  public
+    constructor Create(aNext: IROActiveEventServerList; aItem: IROActiveEventServer);
+    class function AddListener(aList: IROActiveEventServerList; aItem: IROActiveEventServer): IROActiveEventServerList;
+    class function RemoveListener(aList: IROActiveEventServerList; aItem: IROActiveEventServer): IROActiveEventServerList;
+
+    function GetNext: IROActiveEventServerList;
+    function GetServer: IROActiveEventServer;
+    procedure SetNext(aData: IROActiveEventServerList);
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+  end;
+
+  { TROSessionReference }
+  TROSessionReference = class
+  private
+    fTail: TROSessionRefToEventDataLink;
+    fHead: TROSessionRefToEventDataLink;
+    fSessionID: TGUID;
+    fActiveEventReference: IROActiveEventServerList;
+
+    function GetHead: TROSessionRefToEventDataLink;
+    function GetTail: TROSessionRefToEventDataLink;
+
+  public
+    property ActiveEventReference: IROActiveEventServerList read fActiveEventReference write fActiveEventReference;
+    constructor Create(aSessionID : TGUID);
+
+    property SessionID : TGUID read fSessionID;
+    property Head : TROSessionRefToEventDataLink read GetHead write fHead;
+    property Tail : TROSessionRefToEventDataLink read GetTail write fTail;
+  end;
+
+  { TROSessionRefToEventDataLink }
+  TROSessionRefToEventDataLink = class
+  private
+    fNext: TROSessionRefToEventDataLink;
+    fEventData: TROEventData;
+    fSessionReference: TROSessionReference;
+
+  public
+    constructor Create(anEventDataItem : TROEventData; aSessionReference : TROSessionReference);
+    destructor Destroy; override;
+
+    property EventData : TROEventData read fEventData;
+    property SessionReference : TROSessionReference read fSessionReference;
+    property Next: TROSessionRefToEventDataLink read fNext write fNext;
+  end;
+
+  { TROInMemoryEventRepository }
+  TROInMemoryEventRepository = class(TROEventRepository, IROSessionsChangesListener)
+  private
+    fSessionIDs: TStringList;
+//    fEvents : TObjectList;
+    fCritical : TCriticalSection;
+
+
+    function GetSessionReferenceCount: integer;
+    function GetSessionReferences(Index: integer): TROSessionReference;
+
+    procedure UnRegisterSessionsChangesListener;
+    procedure RegisterSessionsChangesListener;
+  protected
+    FDestroyed: Boolean;
+    procedure SetSessionManager(const Value: TROCustomSessionManager); override;
+
+    function FindSession(aSessionID: TGUID): TROSessionReference;
+
+    { Overrides }
+    procedure DoStoreEventData(SourceSessionID : TGUID; Data : Binary;
+                               const ExcludeSender: Boolean;
+                               const ExcludeSessionList: Boolean;
+                               const SessionList: String); override;
+    function DoGetEventData(SessionID : TGUID; var TargetStream : Binary) : integer; override;
+    procedure DoAddSession(aSessionID: TGUID); overload; override;
+    procedure DoAddSession(aSessionID : TGUID; aActiveEventServer: IROActiveEventServer); overload; override;
+    procedure DoRemoveSession(aSessionID: TGUID); override;
+    procedure RemoveSessionActiveListener(Sender: TObject; aSessionID: TGUID); virtual;
+
+    procedure Loaded; override;
+
+    { IROSessionsChangesListener }
+    procedure SessionsChangedNotification(const aSessionID : TGUID; aSessionAction: TROSessionsActions; Sender: TObject);
+
+  public
+//    procedure DeleteEventData(anEvent: TROEventData); override;
+    procedure BeforeDestruction; override;
+    function AddActiveListener(aSessionID: TGUID; aActiveEventServer: IROActiveEventServer): boolean; override;
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+
+    property SessionReferences[Index : integer] : TROSessionReference read GetSessionReferences;
+    property SessionReferenceCount : integer read GetSessionReferenceCount;
+
+  published
+  end;
+
+  TROOnEventExceptionEvent = procedure (Sender: TObject; anException: Exception) of object;
+  IROEventReceiverInvokers = interface
+  ['{C8EA6D75-562E-4FE5-B4EF-47ACD4D2ADE8}']
+    function Invoke_GetEventsData(out EventsData: Binary): Integer;
+    procedure Invoke_RegisterEventClient(const EventTypes: AnsiString);
+    procedure Invoke_UnregisterEventClient(const EventTypes: AnsiString);
+  end;
+  { TROEventReceiver }
+  TROEventReceiver = class(TROChannelAwareComponent, IROObjectRetainer, IROEventReceiver, IROEventReceiverInvokers)
+  private
+    fTimer : TROThreadTimer;
+    fActive: boolean;
+    fServiceName: string;
+    fHandlers : TStringList;
+    fOnActivate: TNotifyEvent;
+    fOnDeactivate: TNotifyEvent;
+    fOnPollException: TROOnEventExceptionEvent;
+    fRetainedObjects : TList;
+    fInterval: Integer;
+    fEventAwareChannel: IROActiveEventChannel;
+    fSynchronizeInvoke: Boolean;
+    FServersideRegisterEvents: Boolean;
+
+    procedure SetInterval(const Value: integer);
+    procedure SetActive(const Value: boolean);
+    procedure SetServiceName(const Value: string);
+    function GetClientID: TGUID;
+    function GetSynchronizeInvoke: Boolean;
+  protected
+    function GetObject: TObject;
+    procedure FireEvents(EventsDataStream: TStream); virtual;
+
+    // Proxy methods
+    function Invoke_GetEventsData(out EventsData: Binary): Integer;
+    procedure Invoke_RegisterEventClient(const EventTypes: AnsiString);
+    procedure Invoke_UnregisterEventClient(const EventTypes: AnsiString);
+
+
+
+    procedure Dispatch(aStream: TStream; aCaller: TThread); reintroduce;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+
+    procedure Activate;
+    procedure Deactivate;
+
+    procedure RegisterEventHandlers(const EventIDs : array of Ansistring; const EventHandlers : array of TObject); overload;
+    procedure RegisterEventHandler(const EventID : Ansistring; const EventHandler : TObject);
+    procedure UnregisterEventHandlersByObject(const EventHandler : array of TObject);
+    procedure UnregisterEventHandlers(const EventIDs : array of Ansistring); overload;
+    procedure UnregisterEventHandler(const EventHandler : TObject); overload;
+    procedure UnregisterEventHandler(const EventIDs : Ansistring); overload;
+    function  EventHandlersIsRegistered(const EventIDs: array of Ansistring; const EventHandlers: array of TObject): boolean; deprecated;
+    function  AreEventHandlersRegistered(const aEventIDs: array of Ansistring; const aEventHandlers: array of TObject): boolean;
+    function  IsEventHandlerRegistered(const aEventID: Ansistring; const aEventHandler: TObject): boolean;
+    procedure CheckProperties(CheckServiceName: boolean = true);
+    { IROObjectRetainer }
+    procedure RetainObject(const anObject : TObject);
+    procedure ReleaseObject(const anObject : TObject);
+    function IsRetained(const anObject : TObject) : boolean;
+    procedure OnTimerTick(Dummy: Cardinal);
+    property ClientID : TGUID read GetClientID;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Active : boolean read fActive write SetActive default false;
+    property Interval : integer read fInterval write SetInterval default 30000;
+    property Message;
+    property Channel;
+
+    property OnPollException: TROOnEventExceptionEvent read fOnPollException write fOnPollException;
+    property OnActivate : TNotifyEvent read fOnActivate write fOnActivate;
+    property OnDeactivate : TNotifyEvent read fOnDeactivate write fOnDeactivate;
+    property ServiceName : string read fServiceName write SetServiceName;
+    property SynchronizeInvoke: Boolean read GetSynchronizeInvoke write fSynchronizeInvoke default true;
+    property ServersideRegisterEvents: Boolean read FServersideRegisterEvents write fServersideRegisterEvents default True;
+  end;
+
+  { TROEventProxy }
+  TROEventProxy = class(TInterfacedObject)
+  private
+    fMessage : IROMessage;
+
+    function _GetMessage: IROMessage;  // cannot use "GetMessage" name for C++Builder compatibility
+
+  protected
+    property __Message : IROMessage read _GetMessage;
+
+  public
+    constructor Create(const aMessage : IROMessage; CloneMessage : boolean);
+    destructor Destroy; override;
+  end;
+
+  { TROEventWriter }
+  TROEventWriter = class(TROEventProxy, IROEventWriter)
+  private
+    fRepository : IROEventRepository;
+    fExcludeSender: boolean;
+    fExcludeSessionList: boolean;
+    fSessionList: TStringList;
+
+    function GetRepository: IROEventRepository;
+
+  protected
+    property Repository : IROEventRepository read GetRepository;
+
+    { IROEventWriter }
+    function GetSessionList: TStrings;
+    function GetExcludeSender: boolean;
+    function GetExcludeSessionList: boolean;
+    procedure SetExcludeSender(const Value: boolean);
+    procedure SetExcludeSessionList(const Value: boolean);
+
+  public
+    constructor Create(const aMessage : IROMessage;
+                       const aRepository : IROEventRepository); reintroduce;
+    destructor Destroy; override;
+
+    property ExcludeSender : boolean read GetExcludeSender write SetExcludeSender;
+    property ExcludeSessionList : boolean read GetExcludeSessionList write SetExcludeSessionList;
+    property SessionList : TStrings read GetSessionList;
+  end;
+
+  TROEventWriterClass = class of TROEventWriter;
+
+  { TROEventInvoker }
+  {$M+}
+  TROEventInvoker = class(TROEventProxy, IROEventsInvoker)
+  private
+    fEventReceiver : TROEventReceiver;
+
+  protected
+    { IROEventsInvoker }
+    procedure Execute(const aTarget : TObject; EventData: TStream);
+
+    property __EventReceiver : TROEventReceiver read fEventReceiver;
+
+  public
+    constructor Create(anEventReceiver : TROEventReceiver;
+        const aMessage : IROMessage; CloneMessage : boolean); reintroduce;
+    destructor Destroy; override;
+  end;
+  {$M-}
+
+  TROEventInvokerClass = class of TROEventInvoker;
+
+procedure RegisterEventWriterClass(const anEventIID : TGUID; anEventWriteClass : TROEventWriterClass);
+procedure UnregisterEventWriterClass(const anEventIID : TGUID);
+function FindEventWriterClass(const anEventIID : TGUID) : TROEventWriterClass;
+
+procedure RegisterEventInvokerClass(const anEventID : string; anEventWriteClass : TROEventInvokerClass);
+procedure UnregisterEventInvokerClass(const anEventID : string);
+function FindEventInvokerClass(const anEventID : string) : TROEventInvokerClass;
+
+implementation
+
+uses
+  uRORes;
+
+var
+  _EventInvokers,
+  _EventWriters : TStringList;
+
+procedure RegisterEventWriterClass(const anEventIID : TGUID; anEventWriteClass : TROEventWriterClass);
+var id : string;
+begin
+  id := GUIDToString(anEventIID);
+  _EventWriters.AddObject(id, TObject(anEventWriteClass));
+end;
+
+procedure UnregisterEventWriterClass(const anEventIID : TGUID);
+var idx : integer;
+begin
+  idx := _EventWriters.IndexOf(GUIDToString(anEventIID));
+  if (idx>=0)
+    then _EventWriters.Delete(idx);
+end;
+
+function FindEventWriterClass(const anEventIID : TGUID) : TROEventWriterClass;
+var idx : integer;
+    id : string;
+begin
+  result := NIL;
+  id := GUIDToString(anEventIID);
+  idx := _EventWriters.IndexOf(id);
+  if (idx>=0)
+    then result := TROEventWriterClass(_EventWriters.Objects[idx]);
+end;
+
+procedure RegisterEventInvokerClass(const anEventID : string; anEventWriteClass : TROEventInvokerClass);
+begin
+  _EventInvokers.AddObject(anEventID, TObject(anEventWriteClass));
+end;
+
+procedure UnregisterEventInvokerClass(const anEventID : string);
+var idx : integer;
+begin
+  idx := _EventInvokers.IndexOf(anEventID);
+  if (idx>=0)
+    then _EventInvokers.Delete(idx);
+end;
+
+function FindEventInvokerClass(const anEventID : string) : TROEventInvokerClass;
+var idx : integer;
+begin
+  result := NIL; 
+  idx := _EventInvokers.IndexOf(anEventID);
+  if (idx>=0)
+    then result := TROEventInvokerClass(_EventInvokers.Objects[idx]);
+end;
+
+{ TROEventRepository }
+
+procedure TROEventRepository.AddSession(aSessionID: TGUID);
+begin
+  CheckProperties;
+  if Assigned(fOnBeforeAddSession) then
+    fOnBeforeAddSession(Self, aSessionID);
+
+  DoAddSession(aSessionID);
+
+  if Assigned(fOnAfterAddSession) then
+    fOnAfterAddSession(Self, aSessionID);
+end;
+
+procedure TROEventRepository.AddSession(aSessionID: TGUID; aActiveEventServer: IROActiveEventServer);
+begin
+  CheckProperties;
+  if Assigned(fOnBeforeAddSession) then
+    fOnBeforeAddSession(Self, aSessionID);
+
+  DoAddSession(aSessionID, aActiveEventServer);
+
+  if Assigned(fOnAfterAddSession) then
+    fOnAfterAddSession(Self, aSessionID);
+end;
+
+procedure TROEventRepository.Assign(Source: TPersistent);
+var
+  lSource: TROEventRepository;
+begin
+  inherited;
+  if Source is TROEventRepository then begin
+    lSource := TROEventRepository(Source);
+
+    Message := lSource.Message;
+    OnAfterAddSession := lSource.OnAfterAddSession;
+    OnAfterRemoveSession := lSource.OnAfterRemoveSession;
+    OnBeforeAddSession := lSource.OnBeforeAddSession;
+    OnBeforeRemoveSession := lSource.OnBeforeRemoveSession;
+    SessionManager := lSource.SessionManager;
+  end;
+end;
+
+procedure TROEventRepository.RemoveSession(aSessionID: TGUID);
+begin
+  CheckProperties;
+  if Assigned(fOnBeforeRemoveSession)
+    then fOnBeforeRemoveSession(Self, aSessionID);
+
+  DoRemoveSession(aSessionID);
+
+  if Assigned(fOnAfterRemoveSession)
+    then fOnAfterRemoveSession(Self, aSessionID);
+end;
+
+function TROEventRepository.GetEventData(SessionID: TGUID;
+  var TargetStream: Binary): integer;
+begin
+  CheckProperties;
+  result := DoGetEventData(SessionID, TargetStream);
+end;
+
+function TROEventRepository.GetEventWriter(const IID: TGUID): IROEventWriter;
+var
+  lEventWriterClass: TROEventWriterClass;
+begin
+  lEventWriterClass := FindEventWriterClass(IID);
+  if not assigned(lEventWriterClass) then exit;
+  CheckProperties;
+  result := lEventWriterClass.Create(fMessage, Self) as IROEventWriter;
+end;
+
+procedure TROEventRepository.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation<>opRemove) then Exit;
+
+  if (AComponent=fSessionManager) then fSessionManager := NIL
+  else if (AComponent=fMessage) then fMessage := NIL;
+end;
+
+function TROEventRepository.QueryInterface(const IID: TGUID; out Obj): HResult;
+var eventwriterclass : TROEventWriterClass;
+    eventwriter : TROEventWriter;
+    id : string;
+begin
+  result := inherited QueryInterface(IID, Obj);
+
+  if (result<>S_OK) then begin
+    id := GUIDToString(IID);
+    if (id='') then Exit;
+
+    eventwriterclass := FindEventWriterClass(IID);
+    if (eventwriterclass=NIL) then Exit;
+    CheckProperties;
+    eventwriter := eventwriterclass.Create(fMessage, Self);
+    if eventwriter.GetInterface(IID, Obj)
+      then result := S_OK
+      else eventwriter.Free;
+  end;
+end;
+
+procedure TROEventRepository.SetMessage(const Value: TROMessage);
+begin
+  if fMessage <> Value then begin
+    if (fMessage <> nil) then fMessage.RORemoveFreeNotification(Self);
+    fMessage := Value;
+    if (fMessage <> nil) then fMessage.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TROEventRepository.SetSessionManager(
+  const Value: TROCustomSessionManager);
+begin
+  if (fSessionManager <> Value) then begin
+    if (fSessionManager <> nil) then fSessionManager.RORemoveFreeNotification(Self);
+    fSessionManager := Value;
+    if (fSessionManager <> nil) then fSessionManager.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TROEventRepository.StoreEventData(SourceSessionID : TGUID; Data : Binary;
+ const ExcludeSender: Boolean; const ExcludeSessionList: Boolean; const SessionList: String);
+begin
+  CheckProperties;
+  DoStoreEventData(SourceSessionID, Data, ExcludeSender, ExcludeSessionList, SessionList);
+end;
+
+procedure TROEventRepository.DoAddSession(aSessionID: TGUID;
+  aActiveEventServer: IROActiveEventServer);
+begin
+  {$IFDEF FPC}
+  if aActiveEventServer = nil then DoAddSession(aSessionID) else // for preventing warnings in FPC
+  {$ENDIF FPC}
+  DoAddSession(aSessionID);
+end;
+
+(*procedure TROEventRepository.DeleteEventData(anEvent: TROEventData);
+begin
+ ///
+end;*)
+
+procedure TROEventRepository.CheckProperties;
+begin
+  // Check(SessionManager = nil, Name + '.SessionManager must be assigned.');
+  Check(Message = nil, Name + '.Message must be assigned.');
+  Message.CheckProperties;
+end;
+
+function TROEventRepository.AddActiveListener(aSessionID: TGUID;
+  aActiveEventServer: IROActiveEventServer): boolean;
+begin
+  Result := False;
+end;
+
+destructor TROEventRepository.Destroy;
+begin
+  Message := nil;
+  SessionManager := nil;
+  inherited;
+end;
+
+{ TROInMemoryEventRepository }
+
+constructor TROInMemoryEventRepository.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fCritical := TCriticalSection.Create;
+//  fEvents := TObjectList.Create(False); // cleaned up one by one
+  fSessionIDs := TStringList.Create;
+  fSessionIDs.Duplicates := dupIgnore;
+  fSessionIDs.Sorted := TRUE;
+end;
+
+destructor TROInMemoryEventRepository.Destroy;
+var
+  i: Integer;
+  llink: TROSessionReference;
+  lItem, lnext: TROSessionRefToEventDataLink;
+begin
+  FDestroyed:=True;
+  fCritical.Enter;
+  try
+    for i := fSessionIDs.Count -1 downto 0 do begin
+      llink := TROSessionReference(fSessionIDs.Objects[i]);
+      if llink = nil then continue;
+      lItem := llink.Head;
+      llink.Free;
+      while lItem <> nil do begin
+        if lItem.EventData <> nil then begin
+          if lItem.EventData.RemoveRef <= 0 then 
+//            fEvents.Remove(lItem.EventData);
+            lItem.EventData.Free
+        end;
+        lnext := lItem.Next;
+        lItem.Free;
+        lItem := lNext;
+      end;
+    end;
+  finally
+    fCritical.Leave;
+  end;
+  FreeAndNIL(fSessionIDs);
+//  FreeAndNIL(fEvents);
+  FreeAndNIL(fCritical);
+  
+  inherited;
+end;
+
+function TROInMemoryEventRepository.DoGetEventData(SessionID: TGUID;
+  var TargetStream: Binary): integer;
+var sessionreference : TROSessionReference;
+    prevref,
+    currref : TROSessionRefToEventDataLink;
+    chunksize : integer;
+begin
+  result := 0;
+  if FDestroyed then Exit;
+  fCritical.Enter;
+  try
+    sessionreference := FindSession(SessionID);
+    if (sessionreference=NIL) then Exit;
+
+    TargetStream.Write(result, SizeOf(result));
+
+    currref := sessionreference.Head;
+    if (currref<>NIL) then begin
+      repeat
+        currref.EventData.Data.Position := 0;
+        chunksize := currref.EventData.Data.Size;
+
+        TargetStream.Write(chunksize, SizeOf(chunksize));
+        TargetStream.CopyFrom(currref.EventData.Data, 0);
+
+        Inc(result);
+
+        prevref := currref;
+        currref := currref.Next;
+
+        if (prevref.EventData.RemoveRef=0)then begin
+//          fEvents.Remove(prevref.EventData);
+          prevref.EventData.Free;
+        end;
+
+        prevref.Free;
+
+      until (currref=NIL);
+
+      sessionreference.Head := NIL;
+      sessionreference.Tail := NIL;
+    end;
+
+    // Updates the event count
+    TargetStream.Position := 0;
+    TargetStream.Write(result, SizeOf(result));
+    TargetStream.Position := 0;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TROInMemoryEventRepository.DoStoreEventData(SourceSessionID : TGUID; Data : Binary;
+  const ExcludeSender: Boolean; const ExcludeSessionList: Boolean; const SessionList: String);
+var newlink : TROSessionRefToEventDataLink;
+    newevent : TROEventData;
+    sessionref : TROSessionReference;
+    i : integer;
+    filteredsessionslist : TStringList;
+    isfiltered : boolean;
+    currsessionid : string;
+begin
+  if FDestroyed then Exit;
+  filteredsessionslist := NIL;
+  isfiltered := SessionList<>'';
+  if isfiltered then begin
+    filteredsessionslist := TStringList.Create;
+    filteredsessionslist.Sorted := TRUE;
+    filteredsessionslist.Duplicates := dupIgnore;
+    filteredsessionslist.CommaText := SessionList;
+  end;
+  fCritical.Enter;
+  try
+    newevent := TROEventData.Create(Data);
+    try
+      for i := 0 to (SessionReferenceCount-1) do begin
+        sessionref := SessionReferences[i];
+        currsessionid := GUIDToString(sessionref.SessionID);
+
+        // Filters the sessions the message will go to
+        if isfiltered then begin
+          if ExcludeSessionList then begin
+            if (filteredsessionslist.IndexOf(currsessionid)>=0)
+              then Continue;
+          end
+          else begin
+            if not (filteredsessionslist.IndexOf(currsessionid)>=0)
+              then Continue;
+          end;
+        end;
+
+        if IsEqualGUID(sessionref.SessionID, SourceSessionID) and ExcludeSender
+          then Continue;
+        if sessionref.ActiveEventReference <> nil then begin
+          newevent.AddRef; // we don't want the event to be freed before we're done with it.
+          sessionref.ActiveEventReference.DispatchEvent(newevent, sessionref.SessionID, Self);
+        end
+        else begin
+          newlink := TROSessionRefToEventDataLink.Create(newevent, sessionref);
+
+          if (sessionref.Head=NIL)
+            then sessionref.Head := newlink;
+
+          if (sessionref.Tail<>NIL)
+            then sessionref.Tail.Next := newlink;
+
+          sessionref.Tail := newlink;
+        end;
+      end;
+    finally
+      if newevent.RemoveRef < 1 then
+        newevent.Free;
+    end;
+  finally
+    fCritical.Leave;
+    FreeAndNIL(filteredsessionslist);
+  end;
+end;
+
+procedure TROInMemoryEventRepository.DoRemoveSession(aSessionID: TGUID);
+var
+  idx : integer;
+  sessionreference : TROSessionReference;
+  prevref,
+  currref : TROSessionRefToEventDataLink;
+begin
+  if FDestroyed then Exit;
+  fCritical.Enter;
+  try
+    idx := fSessionIDs.IndexOf(GUIDToString(aSessionID));
+    if idx>=0 then begin
+      sessionreference := TROSessionReference(fSessionIDs.Objects[idx]);
+      currref := sessionreference.Head;
+      if (currref<>NIL) then begin
+        repeat
+          prevref := currref;
+          currref := currref.Next;
+
+          if (prevref.EventData.RemoveRef=0)
+            then
+              prevref.EventData.Free;
+
+          prevref.Free;
+
+        until (currref=NIL);
+        sessionreference.Head := NIL;
+        sessionreference.Tail := NIL;
+      end;
+      sessionreference.ActiveEventReference := nil;
+      fSessionIDs.Objects[idx].Free;
+      fSessionIDs.Delete(idx);
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TROInMemoryEventRepository.DoAddSession(aSessionID: TGUID);
+begin
+  DoAddSession(aSessionID, nil);
+end;
+
+function TROInMemoryEventRepository.GetSessionReferenceCount: integer;
+begin
+  result := fSessionIDs.Count;
+end;
+
+function TROInMemoryEventRepository.GetSessionReferences(
+  Index: integer): TROSessionReference;
+begin
+  result := TROSessionReference(fSessionIDs.Objects[Index]);
+end;
+
+function TROInMemoryEventRepository.FindSession(
+  aSessionID: TGUID): TROSessionReference;
+var idx : integer;
+begin
+  result := NIL;
+
+  idx := fSessionIDs.IndexOf(GUIDToString(aSessionID));
+  if (idx>=0)
+    then result := TROSessionReference(fSessionIDs.Objects[idx]);
+end;
+
+procedure TROInMemoryEventRepository.UnRegisterSessionsChangesListener;
+var
+  Ref: IROSessionsChangesNotifier;
+  SelfRef: IROSessionsChangesListener;
+begin
+  if GetInterface(IROSessionsChangesListener, SelfRef) then begin
+    if Assigned(fSessionManager) and
+       fSessionManager.GetInterface(IROSessionsChangesNotifier, ref) then begin
+      ref.UnRegisterSessionsChangesListener(SelfRef);
+    end;
+  end;
+end;
+
+procedure TROInMemoryEventRepository.RegisterSessionsChangesListener;
+var
+  Ref: IROSessionsChangesNotifier;
+  SelfRef: IROSessionsChangesListener;
+begin
+  if GetInterface(IROSessionsChangesListener, SelfRef) then begin
+    if Assigned(fSessionManager) and
+       fSessionManager.GetInterface(IROSessionsChangesNotifier, ref) then begin
+      ref.RegisterSessionsChangesListener(SelfRef);
+    end;
+  end;
+end;
+
+procedure TROInMemoryEventRepository.SetSessionManager(
+  const Value: TROCustomSessionManager);
+begin
+  if (csDesigning in ComponentState) or (csLoading in ComponentState) then begin
+    inherited;
+    Exit;
+  end;
+
+  UnRegisterSessionsChangesListener;
+  inherited;
+  RegisterSessionsChangesListener;
+end;
+
+procedure TROInMemoryEventRepository.Loaded;
+begin
+  inherited;
+  RegisterSessionsChangesListener;
+end;
+
+procedure TROInMemoryEventRepository.SessionsChangedNotification(
+  const aSessionID: TGUID; aSessionAction: TROSessionsActions; Sender: TObject);
+
+begin
+  if FDestroyed then Exit;
+  if aSessionAction in [saDelete, saTmpSessionDelete] then
+    RemoveSession(aSessionID);
+  if aSessionAction = saRemoveActiveListener then begin
+    RemoveSessionActiveListener(Sender, aSessionID);
+  end;
+end;
+
+procedure TROInMemoryEventRepository.BeforeDestruction;
+begin
+  UnRegisterSessionsChangesListener;
+  inherited;
+end;
+
+procedure TROInMemoryEventRepository.DoAddSession(aSessionID: TGUID;
+  aActiveEventServer: IROActiveEventServer);
+var newsession : TROSessionReference;
+  idx: Integer;
+begin
+  if FDestroyed then Exit;
+  fCritical.Enter;
+  try
+    idx := fSessionIDs.IndexOf(GUIDToString(aSessionID));
+    if idx < 0 then begin
+      newsession := TROSessionReference.Create(aSessionID);
+      if aActiveEventServer <> nil then begin
+        newsession.ActiveEventReference := TIROActiveEventServerList.AddListener(newsession.ActiveEventReference, aActiveEventServer);
+        aActiveEventServer.EventsRegistered(self, aSessionID);
+      end;
+      fSessionIDs.AddObject(GUIDToString(aSessionID), newsession);
+    end
+    else begin
+      newsession := TROSessionReference(fSessionIDs.Objects[idx]);
+      if aActiveEventServer <> nil then begin
+        newsession.ActiveEventReference := TIROActiveEventServerList.AddListener(newsession.ActiveEventReference, aActiveEventServer);
+        aActiveEventServer.EventsRegistered(self, aSessionID);
+      end;
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TROInMemoryEventRepository.RemoveSessionActiveListener(
+  Sender: TObject; aSessionID: TGUID);
+var
+  idx : integer;
+  sessionreference : TROSessionReference;
+  lRef: IROActiveEventServer;
+begin
+  if FDestroyed then Exit;
+  fCritical.Enter;
+  try
+    idx := fSessionIDs.IndexOf(GUIDToString(aSessionID));
+    if idx>=0 then begin
+      sessionreference := TROSessionReference(fSessionIDs.Objects[idx]);
+      if Supports(Sender, IROActiveEventServer, lref) then begin
+        sessionreference.ActiveEventReference := TIROActiveEventServerList.RemoveListener(sessionreference.ActiveEventReference, lRef);
+      end else
+        sessionreference.ActiveEventReference := nil;
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+(*
+procedure TROInMemoryEventRepository.DeleteEventData(
+  anEvent: TROEventData);
+begin
+  fCritical.Enter;
+  try
+    fEvents.Remove(anEvent);
+  finally
+    fCritical.Leave;
+  end;
+end;
+*)
+
+function TROInMemoryEventRepository.AddActiveListener(aSessionID: TGUID;
+  aActiveEventServer: IROActiveEventServer): boolean;
+begin
+  Result := fSessionIDs.IndexOf(GUIDToString(aSessionID)) <> -1;
+  if Result then AddSession(aSessionID,aActiveEventServer);
+end;
+
+{ TROSessionReference }
+
+constructor TROSessionReference.Create(aSessionID: TGUID);
+begin
+  inherited Create;
+
+  fSessionID := aSessionID;
+end;
+
+function TROSessionReference.GetHead: TROSessionRefToEventDataLink;
+begin
+  Result := fHead;
+end;
+
+function TROSessionReference.GetTail: TROSessionRefToEventDataLink;
+begin
+  Result := fTail;
+end;
+
+{ TROSessionRefToEventDataLink }
+
+constructor TROSessionRefToEventDataLink.Create(
+  anEventDataItem: TROEventData; aSessionReference: TROSessionReference);
+begin
+  inherited Create;
+  anEventDataItem.AddRef;
+
+  fEventData := anEventDataItem;
+  fSessionReference := aSessionReference;
+end;
+
+destructor TROSessionRefToEventDataLink.Destroy;
+begin
+  inherited;
+end;
+
+{ TROEventReceiver }
+
+constructor TROEventReceiver.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fHandlers := TStringList.Create;
+  fInterval := 30000;
+
+  fSynchronizeInvoke := true;
+  FServersideRegisterEvents := True;
+end;
+
+destructor TROEventReceiver.Destroy;
+var
+  i: integer;
+begin
+  for I := fHandlers.Count-1 downto 0 do
+    if (fHandlers.Objects[i] is TComponent) and not ((fHandlers.Objects[i] is TROComponent)) then
+      SendRemoveNotification(TComponent(fHandlers.Objects[i]));
+  inherited;
+  FreeAndNIL(fHandlers);
+  FreeAndNIL(fRetainedObjects);
+end;
+
+procedure TROEventReceiver.Activate;
+begin
+  Active := TRUE;
+end;
+
+procedure TROEventReceiver.Deactivate;
+begin
+  Active := FALSE;
+end;
+
+procedure TROEventReceiver.SetActive(const Value: boolean);
+begin
+  if Value <> fActive then begin
+    if Value and not (csDesigning in ComponentState) then
+      CheckProperties;
+
+    fActive := Value;
+
+    if (Channel = nil) or not Supports(Channel, IROActiveEventChannel, fEventAwareChannel) then
+      fEventAwareChannel := nil;
+
+    if Value then
+    begin
+      if fEventAwareChannel <> nil then
+        fEventAwareChannel.RegisterEventReceiver(self)
+      else
+      if FTimer = nil then
+        fTimer := TROThreadTimer.Create(OnTimerTick, fInterval, false);
+    end else begin
+      if fEventAwareChannel <> nil then begin
+        fEventAwareChannel.UnregisterEventReceiver(self);
+        fEventAwareChannel:=nil;
+      end
+      else if fTimer <> nil then begin
+        fTimer.AsyncFree;
+        fTimer := nil;
+      end;
+    end;
+
+    if Value then begin
+      if Assigned(fOnActivate) then fOnActivate(Self);
+    end
+    else begin
+      if Assigned(fOnDeactivate) then fOnDeactivate(Self);
+    end;
+  end;
+
+end;
+
+procedure TROEventReceiver.SetInterval(const Value: integer);
+begin
+  fInterval := Value;
+  if fTimer <> nil then
+    fTimer.Timeout := Value;
+end;
+
+procedure TROEventReceiver.SetServiceName(const Value: string);
+begin
+  fServiceName := Trim(Value);
+end;
+
+procedure TROEventReceiver.Invoke_RegisterEventClient(const EventTypes: AnsiString);
+var
+    __message : IROMessage;
+    __channel : IROTransportChannel;
+    ClientId: Ansistring;
+begin
+  CheckProperties;
+  __message := (Message as IROMessage);
+  __channel := (Channel as IROTransportChannel);
+
+  try
+    __message.InitializeRequestMessage(__channel, 'RemObjects', ServiceName, 'RegisterEventClient');
+    __channel.BeforeDispatch(__message); // sets the client id for some channels
+    ClientId := GuidToAnsiString(__message.ClientID);
+    __message.Write('ClientID', TypeInfo(AnsiString), ClientId, []);
+    __message.Write('EventTypes', TypeInfo(AnsiString), EventTypes, []);
+    __message.Finalize;
+
+     __channel.Dispatch(__message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TROEventReceiver.Invoke_UnregisterEventClient(const EventTypes: AnsiString);
+var
+    __message : IROMessage;
+    __channel : IROTransportChannel;
+    ClientId: Ansistring;
+begin
+  // When destroying the owning form the channel and/or message may already be destroyed.
+  if not(csDestroying in ComponentState) then CheckProperties;
+  if Assigned(Message) and Assigned(Channel) then begin
+    __message := (Message as IROMessage);
+    __channel := (Channel as IROTransportChannel);
+
+    try
+      __message.InitializeRequestMessage(__channel, 'RemObjects', ServiceName, 'UnregisterEventClient');
+      __channel.BeforeDispatch(__message);
+      ClientId := GuidToAnsiString(__message.ClientID);
+      __message.Write('ClientID', TypeInfo(AnsiString), ClientID, []);
+      __message.Write('EventTypes', TypeInfo(AnsiString), EventTypes, []);
+      __message.Finalize;
+
+      __channel.Dispatch(__message);
+
+    finally
+      __Message.FreeStream;
+    end
+  end;
+end;
+
+function TROEventReceiver.Invoke_GetEventsData(out EventsData: Binary): Integer;
+var
+    __message : IROMessage;
+    __channel : IROTransportChannel;
+    ClientId: Ansistring;
+begin
+  CheckProperties;
+  __message := (Message as IROMessage);
+  __channel := (Channel as IROTransportChannel);
+
+  try
+    __message.InitializeRequestMessage(__channel, 'RemObjects', ServiceName, 'GetEventsData');
+    __channel.BeforeDispatch(__message);
+    ClientId := GuidToAnsiString(__message.ClientID);
+    __message.Write('ClientID', TypeInfo(AnsiString), ClientID, []);
+    __message.Finalize;
+
+     __channel.Dispatch(__message);
+    result := 0; // else it's warn
+    EventsData := nil; // else it's warn
+    __message.Read('Result', TypeInfo(Integer), result, []);
+    __message.Read('EventsData', TypeInfo(Binary), EventsData, []);
+  finally
+    __message.FreeStream;
+  end
+end;
+
+procedure TROEventReceiver.FireEvents(EventsDataStream : TStream);
+var
+  tempstream : TStream;
+  chunksize, idx, cnt : integer;
+  messageclone : IROMessage;
+  eventInvokerclass : TROEventInvokerClass;
+  eventInvoker : TROEventInvoker;
+begin
+  CheckProperties;
+  tempstream := NIL;
+  eventInvoker := NIL;
+  chunksize:=0;
+
+  messageclone := (Message as IROMessageCloneable).Clone;
+
+  EventsDataStream.Position := 0;
+
+  if fEventAwareChannel <> nil then begin
+    // event aware channels send one event at a time.
+    messageclone.ReadFromStream(EventsDataStream);
+
+    eventInvokerclass := FindEventInvokerClass(messageclone.InterfaceName);
+    eventInvoker := eventInvokerclass.Create(Self, messageclone, FALSE);
+
+    try
+      for idx := 0 to fHandlers.Count -1 do begin
+        if SameText(fHandlers[idx], messageclone.InterfaceName) then
+          eventInvoker.Execute(fHandlers.Objects[idx], EventsDataStream);
+      end;
+    finally
+      FreeAndNIL(eventInvoker);
+    end;
+
+  end
+  else begin
+    cnt := 0; // else it's warn
+    EventsDataStream.Read(cnt, SizeOf(integer));
+
+    while (EventsDataStream.Position<EventsDataStream.Size-1) do try
+      EventsDataStream.Read(chunksize, SizeOf(integer));
+
+      tempstream := TMemoryStream.Create;
+      tempstream.CopyFrom(EventsDataStream, chunksize);
+      tempstream.Position := 0;
+
+      messageclone.ReadFromStream(tempstream);
+
+      eventInvokerclass := FindEventInvokerClass(messageclone.InterfaceName);
+      eventInvoker := eventInvokerclass.Create(Self, messageclone, FALSE);
+
+      try
+        for idx := 0 to fHandlers.Count -1 do begin
+          if SameText(fHandlers[idx], messageclone.InterfaceName) then
+            eventInvoker.Execute(fHandlers.Objects[idx], tempstream);
+        end;
+      finally
+        FreeAndNIL(eventInvoker);
+      end;
+    finally
+      tempstream.Free;
+    end;
+  end;
+end;
+
+procedure TROEventReceiver.OnTimerTick(Dummy: Cardinal);
+var
+  eventsdata: Binary;
+  cnt : integer;
+begin
+  if Channel.Busy then Exit;
+  CheckProperties;
+  {$IFDEF FPC}
+  if Dummy=0 then eventsdata := NIL else // for preventing warning in FPC
+  {$ENDIF}
+  eventsdata := NIL;
+  try
+    try
+      cnt := Invoke_GetEventsData(eventsdata);
+
+      // Fires the events...
+      if (cnt>0) and (eventsdata<>NIL) then begin
+        Dispatch(eventsdata, fTimer);
+      end;
+    except
+      on e: Exception do
+      begin
+        if @fOnPollException <> nil then
+          fOnPollException(self, e);
+      end;
+    end;
+
+  finally
+    if (eventsdata<>NIL)
+      then eventsdata.Free;
+  end;
+end;
+
+procedure TROEventReceiver.RegisterEventHandlers(
+  const EventIDs: array of Ansistring;
+  const EventHandlers: array of TObject);
+var {clientid,} eventID, eventtypes : Ansistring;
+    i : integer;
+begin
+  Activate;
+  // Adds a reference to the event handler object
+  //clientid := GUIDTOString(Self.ClientID);
+  eventtypes := '';
+
+  for i := 0 to Length(EventIDs)-1 do begin
+    eventID := EventIDs[i];
+    eventtypes := eventtypes+eventID+',';
+  end;
+  Delete(eventtypes, Length(eventtypes), 1);
+
+  // Sends the remote request
+  if (fEventAwareChannel = nil) or (ServersideRegisterEvents) then
+    Invoke_RegisterEventClient(eventtypes);
+
+//Moved here to avoid invalid list in case registration is incorrect.
+//(for example if connection to server temporary broken)
+  for i := 0 to Length(EventIDs)-1 do begin
+    // Adds a reference to the local event handler object
+    eventID := EventIDs[i];
+    fHandlers.AddObject({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF} (eventID), EventHandlers[i]);
+  end;
+end;
+
+{$WARN SYMBOL_DEPRECATED OFF} // delphi warns on the implementation of this method because it's defined as deprecated.
+function TROEventReceiver.EventHandlersIsRegistered(const EventIDs: array of Ansistring; const EventHandlers: array of TObject): boolean;
+begin
+  result := AreEventHandlersRegistered(EventIDs, EventHandlers);
+end;
+{$WARN SYMBOL_DEPRECATED ON}
+function TROEventReceiver.AreEventHandlersRegistered(const aEventIDs: array of Ansistring; const aEventHandlers: array of TObject): boolean;
+
+  var
+  i : integer;
+
+begin
+  Result := True;
+  for i := 0 to Length(aEventIDs) - 1 do begin
+    if not IsEventHandlerRegistered(aEventIDs[i], aEventHandlers[i]) then begin
+      Result := False;
+      break;
+    end;
+  end;
+end;
+
+procedure TROEventReceiver.Assign(Source: TPersistent);
+var
+  lSource: TROEventReceiver;
+begin
+  inherited;
+  if Source is TROEventReceiver then begin
+    lSource := TROEventReceiver(Source);
+
+    Interval := lSource.Interval;
+    OnActivate := lSource.OnActivate;
+    OnDeactivate := lSource.OnDeactivate;
+    OnPollException := lSource.OnPollException;
+    ServersideRegisterEvents := lSource.ServersideRegisterEvents;
+    ServiceName := lSource.ServiceName;
+    SynchronizeInvoke := lSource.SynchronizeInvoke;
+  end;
+end;
+
+function TROEventReceiver.IsEventHandlerRegistered(const aEventID: Ansistring; const aEventHandler: TObject): boolean;
+var
+  j : integer;
+begin
+  Result := False;
+  for j := 0 to fHandlers.Count - 1 do
+    if (fHandlers.Objects[j] = aEventHandler) and ({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fHandlers[j]) = aEventID) then begin
+      Result := True;
+      break;
+    end;
+end;
+
+procedure TROEventReceiver.UnregisterEventHandlers(const EventIDs: array of Ansistring);
+var {clientid,} eventID, eventtypes : Ansistring;
+    i, idx : integer;
+    lEventID: string;
+begin
+  // clientid := GUIDTOString(Self.ClientID);
+  eventtypes := '';
+
+  for i := 0 to Length(EventIDs)-1 do begin
+    eventID := EventIDs[i];
+    lEventID := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(eventID);
+    while True do begin
+      // Removes the reference to the local event handler object
+      idx := fHandlers.IndexOf(lEventID);
+      if (idx>=0) then fHandlers.Delete(idx) else Break;
+    end;
+    eventtypes := eventtypes+eventID+',';
+  end;
+
+  Delete(eventtypes, Length(eventtypes), 1);
+
+  // Sends the remote request
+  if fEventAwareChannel = nil then
+    Invoke_UnregisterEventClient(eventtypes)
+  else
+    fEventAwareChannel.UnregisterEventReceiver(Self);
+end;
+
+function TROEventReceiver.GetClientID: TGUID;
+begin
+  CheckProperties;
+  result := Message.ClientID;
+end;
+
+function TROEventReceiver.IsRetained(const anObject: TObject): boolean;
+begin
+  result := (fRetainedObjects<>NIL) and (fRetainedObjects.IndexOf(anObject)>=0)
+end;
+
+procedure TROEventReceiver.ReleaseObject(const anObject: TObject);
+var idx : integer;
+begin
+  // Only creates it if necessary
+  if (fRetainedObjects=NIL) then Exit;
+
+  idx := fRetainedObjects.IndexOf(anObject);
+  if (idx>=0) then fRetainedObjects.Delete(idx);
+end;
+
+procedure TROEventReceiver.RetainObject(const anObject: TObject);
+begin
+  // Only creates it if necessary
+  if (fRetainedObjects=NIL) then
+    fRetainedObjects := TList.Create;
+
+  fRetainedObjects.Add(anObject);
+end;
+
+
+type
+  TMyThread = class(TThread) end; // in d6 a thread is private
+  TSyncClass = class
+  private
+    fData: TStream;
+    fCaller: TROEventReceiver;
+  public
+    property Caller: TROEventReceiver read fCaller write fCaller;
+    property Data: TStream read fData write fData;
+    procedure DoDispatch;
+  end;
+
+
+procedure TSyncClass.DoDispatch;
+begin
+  fCaller.FireEvents(Data);
+end;
+
+
+procedure TROEventReceiver.Dispatch(aStream: TStream; aCaller: TThread);
+var
+  lSync: TSyncClass;
+begin
+  if fSynchronizeInvoke and Assigned(aCaller) then
+  begin
+    lSync := TSyncClass.Create;
+    try
+      lSync.Caller := Self;
+      lSync.Data := aStream;
+      TMyThread(aCaller).Synchronize(lSync.DoDispatch);
+    finally
+      lSync.Free;
+    end;
+  end else
+    FireEvents(aStream);
+end;
+
+function TROEventReceiver.GetSynchronizeInvoke: Boolean;
+begin
+  Result := fSynchronizeInvoke;
+end;
+
+procedure TROEventReceiver.RegisterEventHandler(const EventID: Ansistring;
+  const EventHandler: TObject);
+begin
+  RegisterEventHandlers([EventID], [EventHandler]);
+end;
+
+procedure TROEventReceiver.UnregisterEventHandlersByObject(
+  const EventHandler: array of TObject);
+var {clientid,} eventID, eventtypes : Ansistring;
+    i, idx : integer;
+begin
+//  clientid := GUIDTOString(Self.ClientID);
+  eventtypes := '';
+
+  for i := 0 to Length(EventHandler)-1 do begin
+
+    // Removes the reference to the local event handler object
+    idx := fHandlers.IndexOfObject(EventHandler[i]);
+    if (idx>=0)
+      then begin
+       eventID := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fHandlers[idx]);
+        fHandlers.Delete(idx)
+      end else continue;
+
+    eventtypes := eventtypes+eventID+',';
+
+  end;
+
+  Delete(eventtypes, Length(eventtypes), 1);
+
+  // Sends the remote request
+//  if fEventAwareChannel = nil then
+  Invoke_UnregisterEventClient(eventtypes);
+end;
+
+procedure TROEventReceiver.UnregisterEventHandler(
+  const EventHandler: TObject);
+begin
+  UnregisterEventHandlersByObject([EventHandler]);
+end;
+
+procedure TROEventReceiver.UnregisterEventHandler(const EventIDs: Ansistring);
+begin
+  UnregisterEventHandlers([EventIDs]);
+end;
+
+procedure TROEventReceiver.CheckProperties(CheckServiceName: boolean = true);
+begin
+  Check(Channel = nil, Name + '.Channel must be assigned.');
+  Channel.CheckProperties;
+  Check(Message = nil, Name + '.Message must be assigned.');
+  Message.CheckProperties;
+  if CheckServiceName then
+    Check(ServiceName = '', Name + '.ServiceName must be set.');
+end;
+
+function TROEventReceiver.GetObject: TObject;
+begin
+  result := Self;
+end;
+
+{ TROEventWriter }
+
+constructor TROEventWriter.Create(const aMessage : IROMessage;
+                       const aRepository : IROEventRepository);
+begin
+  inherited Create(aMessage, TRUE);
+
+  fSessionList := TStringList.Create;
+  fSessionList.Sorted := TRUE;
+  fSessionList.Duplicates := dupIgnore;
+
+  fExcludeSender := TRUE;
+  fExcludeSessionList := FALSE; // By default only includes those in the session list
+
+  fRepository := aRepository;
+end;
+
+destructor TROEventWriter.Destroy;
+begin
+  fRepository := NIL;
+  FreeAndNIL(fSessionList);
+  inherited;
+end;
+
+{function TROEventWriter.GetMessage: IROMessage;
+begin
+  result := fMessage;
+end;}
+
+function TROEventWriter.GetExcludeSender: boolean;
+begin
+  result := fExcludeSender
+end;
+
+function TROEventWriter.GetExcludeSessionList: boolean;
+begin
+  result := fExcludeSessionList;
+end;
+
+function TROEventWriter.GetRepository: IROEventRepository;
+begin
+  result := fRepository
+end;
+
+function TROEventWriter.GetSessionList: TStrings;
+begin
+  result := fSessionList;
+end;
+
+procedure TROEventWriter.SetExcludeSender(const Value: boolean);
+begin
+  fExcludeSender := Value
+end;
+
+procedure TROEventWriter.SetExcludeSessionList(const Value: boolean);
+begin
+  fExcludeSessionList := Value
+end;
+
+{ TROEventProxy }
+
+constructor TROEventProxy.Create(const aMessage: IROMessage; CloneMessage: boolean);
+begin
+  inherited Create;
+
+  if CloneMessage then begin
+    if (aMessage=NIL) then raise EROException.Create(err_MessageNotAssigned);
+    fMessage := (aMessage as IROMessageCloneable).Clone
+  end
+  else fMessage := aMessage;
+end;
+
+destructor TROEventProxy.Destroy;
+begin
+  fMessage := NIL;
+  inherited;
+end;
+
+function TROEventProxy._GetMessage: IROMessage;
+begin
+  result := fMessage
+end;
+
+{ TROEventInvoker }
+constructor TROEventInvoker.Create(anEventReceiver: TROEventReceiver;
+  const aMessage: IROMessage; CloneMessage: boolean);
+begin
+  inherited Create(aMessage, CloneMessage);
+
+  fEventReceiver := anEventReceiver;
+end;
+
+destructor TROEventInvoker.Destroy;
+begin
+  inherited;
+end;
+
+procedure TROEventInvoker.Execute(const aTarget : TObject; EventData: TStream);
+var mtd : TROInvokerInvokeMethod;
+    intf : IInterface;
+begin
+  __Message.ReadFromStream(EventData);
+
+  mtd := nil;
+  @mtd := MethodAddress('Invoke_'+__Message.MessageName);
+  if (@mtd <> nil) then begin
+    aTarget.GetInterface(IInterface, intf);
+    mtd(__EventReceiver, __Message, intf);
+  end;
+end;
+
+
+{ TSyncClass }
+
+{ TIROActiveEventServerList }
+
+class function TIROActiveEventServerList.AddListener(
+  aList: IROActiveEventServerList;
+  aItem: IROActiveEventServer): IROActiveEventServerList;
+begin
+  result := aList;
+  while aList <> nil do begin
+    if aList.Server = aItem then exit;
+    aList := aList.Next;
+  end;
+  Result := TIROActiveEventServerList.Create(Result, aItem);
+end;
+
+constructor TIROActiveEventServerList.Create(
+  aNext: IROActiveEventServerList; aItem: IROActiveEventServer);
+begin
+  inherited Create;
+  fNext := aNext;
+  fServer := aItem;
+end;
+
+procedure TIROActiveEventServerList.DispatchEvent(
+  anEventDataItem: TROEventData; aSessionReference: TGUID;
+  aSender: TObject);
+var
+  lItem: IROActiveEventServerList;
+begin
+  lItem := Self;
+  while lItem <> nil do begin
+    lItem.Server.DispatchEvent(anEventDataItem, aSessionReference, aSender);
+    lItem := lItem.Next;
+    if lItem <> nil then
+      anEventDataItem.AddRef;
+  end;
+end;
+
+function TIROActiveEventServerList.GetNext: IROActiveEventServerList;
+begin
+  result := fNext;
+end;
+
+function TIROActiveEventServerList.GetServer: IROActiveEventServer;
+begin
+  result := fServer;
+end;
+
+class function TIROActiveEventServerList.RemoveListener(
+  aList: IROActiveEventServerList; aItem: IROActiveEventServer): IROActiveEventServerList;
+var
+  lPrev: IROActiveEventServerList;
+begin
+  lPrev := nil;
+  result := aList;
+  while aList <> nil do begin
+    if aList.Server = aItem then begin
+      if lPrev = nil then begin
+        result := aList.Next;
+        exit;
+      end else begin
+        lPrev.Next := aList.Next;
+      end;
+    end;
+    aList := aList.Next;
+  end;
+end;
+
+procedure TIROActiveEventServerList.SetNext(
+  aData: IROActiveEventServerList);
+begin
+  fNext := aData;
+end;
+
+initialization
+  _EventInvokers := TStringList.Create;
+  _EventInvokers.Sorted := TRUE;
+  _EventInvokers.Duplicates := dupIgnore;
+
+  _EventWriters := TStringList.Create;
+  _EventWriters.Sorted := TRUE;
+  _EventWriters.Duplicates := dupIgnore;
+
+finalization
+  FreeAndNIL(_EventInvokers);
+  FreeAndNIL(_EventWriters);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHTTPDispatch.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHTTPDispatch.pas
new file mode 100644
index 0000000..18fcb84
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHTTPDispatch.pas	
@@ -0,0 +1,150 @@
+unit uROHTTPDispatch;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, uROServer, uROClient, uROClientIntf;
+
+type
+  { TROHTTPDispatcher }
+  TROHTTPDispatcher = class(TROMessageDispatcher)
+  private
+    fPathInfo: string;
+
+    procedure SetPathInfo(const Value: string);
+
+    function CleanPathInfo(const iPath:string):string;
+
+  protected
+    procedure SetMessage(const Value: TROMessage); override;
+
+  public
+    procedure Assign(Source: TPersistent); override;
+    function CanHandleMessage(const aTransport: IROTransport; aRequeststream : TStream): boolean; override;
+
+  published
+    property PathInfo : string read fPathInfo write SetPathInfo;
+  end;
+
+  { TROHTTPDispatchers }
+  TROHTTPMessageDispatchers = class(TROMessageDispatchers)
+  private
+  protected
+    function GetSupportsMultipleDispatchers: boolean; override;
+    function GetDispatcherClass : TROMessageDispatcherClass; override;
+
+  public
+    function GetDispatcherByPath(Path: string): TROHTTPDispatcher;
+  end;
+
+implementation
+
+uses SysUtils;
+
+{ TROHTTPMessageDispatchers }
+
+function TROHTTPMessageDispatchers.GetDispatcherByPath(
+  Path: string): TROHTTPDispatcher;
+var
+  i: Integer;
+begin
+  for i := Count -1 downto 0 do
+  begin
+    result := Items[i] as TROHTTPDispatcher;
+    if CompareText(result.PathInfo, Path) = 0 then
+      exit;
+    if (Result.PathInfo <> '') and (Result.PathInfo[1] <> '/') and (CompareText('/'+result.PathInfo, Path) = 0) then
+      exit;
+  end;
+  result := nil;
+end;
+
+function TROHTTPMessageDispatchers.GetDispatcherClass: TROMessageDispatcherClass;
+begin
+  result := TROHTTPDispatcher;
+end;
+
+function TROHTTPMessageDispatchers.GetSupportsMultipleDispatchers: boolean;
+begin
+  result := TRUE;
+end;
+
+{ TROHTTPDispatcher }
+
+procedure TROHTTPDispatcher.Assign(Source: TPersistent);
+begin
+  inherited Assign(Source);
+
+  if Source is TROHTTPDispatcher then
+    PathInfo := TROHTTPDispatcher(Source).PathInfo;
+end;
+
+function TROHTTPDispatcher.CanHandleMessage(const aTransport: IROTransport;
+  aRequeststream: TStream): boolean;
+var http : IROHTTPTransport;
+begin
+  if aRequeststream = nil then result := FALSE else // for preventing warning in FPC
+  result := FALSE;
+  if not Enabled or not Supports(aTransport, IROHTTPTransport, http)
+    then Exit;
+
+  //1.0.4: comparison made caseinsensitive; PreparedPathInfo will alraedy be lowercase. mh.
+  //if (CompareText(http.PathInfo, PathInfo)=0) then result := TRUE;
+  result := (CleanPathInfo(http.PathInfo) = CleanPathInfo(PathInfo));
+end;
+
+procedure TROHTTPDispatcher.SetMessage(const Value: TROMessage);
+var s : string;
+begin
+  inherited;
+
+  if (PathInfo='') and (Value<>NIL) then begin
+    s := StringReplace(Value.ClassName, 'Message', '', []);
+    s := StringReplace(s, 'TRO', '', []);
+
+    PathInfo := s;
+  end;
+end;
+
+function ExcludeTrailingForwardSlash(const S: string): string;
+var lLength: Integer;
+begin
+  result := S;
+  lLength := Length(result);
+  if (result <> '') and (result[lLength] = '/') then SetLength(result,lLength-1);
+end;
+
+procedure TROHTTPDispatcher.SetPathInfo(const Value: string);
+begin
+  if Value <> fPathInfo then 
+    fPathInfo := Value;
+end;
+
+function TROHTTPDispatcher.CleanPathInfo(const iPath:string):string;
+begin
+  result := iPath;
+
+  if (Length(result)>0) and (result[1]<>'/') then result :='/'+result;
+
+  // 1.0.4: make sure the path NEVER has a trailing slash
+  StringReplace(result,'\','/',[rfReplaceAll]);
+  result := ExcludeTrailingForwardSlash(result);
+
+  result := LowerCase(result)
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHTTPTools.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHTTPTools.pas
new file mode 100644
index 0000000..645f972
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHTTPTools.pas	
@@ -0,0 +1,135 @@
+unit uROHTTPTools;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses 
+     {$IFDEF DOTNET}
+     Borland.Delphi.Classes,
+     {$ELSE}
+     Classes,
+     {$ENDIF}
+     uROClientIntf;
+
+const
+      id_ContentLength = 'Content-Length';
+      id_ContentType   = 'Content-Type';
+      id_Host          = 'Host';
+      id_UserAgent     = 'User-Agent';
+
+      HTTP_SESSION_ID_HEADER = 'RemObjects-SessionID';
+
+      HTTP_OK     = 200;
+      HTTP_FAILED = 500;
+
+function FindHeaderIndex(someHeaders : TStrings; const aName : string) : integer;
+function GetHeaderValue(someHeaders : TStrings; const aName : string) : string; overload;
+function GetHeaderValue(const iHeaders:string; const iName:string):string; overload;
+procedure SetHeaderValue(someHeaders : TStrings; const aName, aValue : string);
+
+function GetHTTPInfo(const aTransport : IROTransport): TDataFormat;
+procedure SetHTTPInfo(const aTransport : IROTransport; aDataFormat : TDataFormat);
+
+function GetClientAccessPolicy: AnsiString;
+
+type
+  TROCustomClientAccessPolicyMethod = procedure(aSender: TObject; var aPolicyContent: AnsiString) of object;
+  TROClientAccessPolicyType = (captAllowNone, captAllowAll, captCustom);
+
+
+implementation
+
+uses {$IFDEF DOTNET}
+     Borland.Delphi.SysUtils,
+     {$ELSE}
+     SysUtils,
+     {$ENDIF}
+     uRORes;
+
+function FindHeaderIndex(someHeaders : TStrings; const aName : string) : integer;
+var i : integer;
+begin
+  result := -1;
+  with someHeaders do
+    for i := 0 to (Count-1) do
+      if (Pos(aName+': ', Strings[i])=1) then begin
+        result := i;
+        Exit;
+      end;
+end;
+
+function GetHeaderValue(const iHeaders:string; const iName:string):string;
+var p:integer;
+begin
+  result := '';
+  p := Pos(UpperCase(iName)+':',UpperCase(iHeaders));
+  if p > 0 then Begin
+    result := iHeaders;
+    Delete(result,1,p+Length(iName)+1);
+    result := Copy(result,1,Pos(#13,result)-1);
+  end
+end;
+
+function GetHeaderValue(someHeaders : TStrings; const aName : string) : string;
+var idx : integer;
+begin
+  idx := FindHeaderIndex(someHeaders, aName);
+  with someHeaders do
+    if (idx>=0) then result := Trim(Copy(Strings[idx], Pos(':', Strings[idx])+1, Length(Strings[idx])))
+                else result := '';
+end;
+
+procedure SetHeaderValue(someHeaders : TStrings; const aName, aValue : string);
+var idx : integer;
+begin
+  idx := FindHeaderIndex(someHeaders, aName);
+  with someHeaders do
+    if (idx>=0) then someHeaders[idx] := aName+': '+aValue
+                else someHeaders.Add(aName+': '+aValue);
+end;
+
+procedure SetHTTPInfo(const aTransport : IROTransport; aDataFormat : TDataFormat);
+var http : IROHTTPTransport;
+begin
+  {$IFDEF DOTNET}
+  {$ELSE}
+  if Supports(aTransport, IROHTTPTransport, http) then begin
+    http.ContentType := aDataFormat;
+    http.UserAgent := str_ProductName;
+  end;
+  {$ENDIF DOTNET}
+end;
+
+function GetHTTPInfo(const aTransport : IROTransport): TDataFormat;
+var http : IROHTTPTransport;
+begin
+  if Supports(aTransport, IROHTTPTransport, http) then begin
+    result := http.ContentType;
+  end else
+    result := '';
+end;
+
+
+function GetClientAccessPolicy: AnsiString;
+begin
+	result := '<?xml version="1.0" encoding="utf-8"?>'+
+  '<access-policy><cross-domain-access><policy>'+
+  '<allow-from http-request-headers="*"><domain uri="*"/></allow-from>'+
+  '<grant-to><resource path="/" include-subpaths="true"/></grant-to>'+
+  '</policy></cross-domain-access></access-policy>';
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.lrs
new file mode 100644
index 0000000..fd78e63
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.lrs	
@@ -0,0 +1,1221 @@
+LazarusResources.Add('RemObjectsHtmlServerDocumentation','XSL',[
+  '<?xml version="1.0"?>'#13#10'<xsl:stylesheet xmlns:xsl="http://www.w3.org/19'
+  +'99/XSL/Transform" version="1.0">'#13#10#9'<xsl:output method="html"/>'#13#10
+  +#9'<xsl:template match="/Library">'#13#10#9#9'<html xmlns="http://www.w3.org'
+  +'/1999/xhtml">'#13#10#9#9#9'<head>'#13#10#9#9#9#9'<meta name="GENERATOR" con'
+  +'tent="XSL Rodl2Html.xsl"/>'#13#10#9#9#9#9'<meta http-equiv="Content-Type" c'
+  +'ontent="text/html"/>'#13#10#9#9#9#9'<title>'#13#10#9#9#9#9#9'<xsl:value-of '
+  +'select="@Name"/> documentation</title>'#13#10#9#9#9#9'<style>'#13#10#9#9#9#9
+  +#9'<xsl:comment>'#13#10'                        body, table, tr, td'#13#10' '
+  +'                       {'#13#10#9#9#9#9#9#9#9'background-color: #f7f7f7;'#13
+  +#10#9#9#9#9#9#9#9'margin: 0;'#13#10#9#9#9#9#9#9#9'padding: 0;'#13#10#9#9#9#9
+  +#9#9#9'font-family: Verdana, Tahoma, Arial, Helvetica, sans serif;'#13#10#9#9
+  +#9#9#9#9#9'font-size: 10pt;'#13#10'                        }'#13#10#9#9#9#9#9
+  +#9'.header'#13#10#9#9#9#9#9#9'{'#13#10#9#9#9#9#9#9#9'padding: 5px;'#13#10#9#9
+  +#9#9#9#9#9'background-color: #c0c0c0;'#13#10#9#9#9#9#9#9#9'border-bottom: 5p'
+  +'x solid #808080;'#13#10#9#9#9#9#9#9#9'font-size: 1.5em;'#13#10#9#9#9#9#9#9
+  +'}'#13#10#9#9#9#9#9#9'.body'#13#10#9#9#9#9#9#9'{'#13#10#9#9#9#9#9#9#9'paddin'
+  +'g: 5px;'#13#10#9#9#9#9#9#9'}'#13#10#9#9#9#9#9#9'.footer'#13#10#9#9#9#9#9#9
+  +'{'#13#10#9#9#9#9#9#9#9'padding: 5px;'#13#10#9#9#9#9#9#9#9'border-top: 1px s'
+  +'olid #808080;'#13#10#9#9#9#9#9#9#9'font-size: 0.8em;'#13#10#9#9#9#9#9#9'}'
+  +#13#10#9#9#9#9#9#9'.section'#13#10#9#9#9#9#9#9'{'#13#10#9#9#9#9#9#9'    marg'
+  +'in-left: 25px;'#13#10#9#9#9#9#9#9'    padding-left: 3px;'#13#10#9#9#9#9#9#9
+  +'    padding-top: 3px;'#13#10#9#9#9#9#9#9'    padding-bottom: 3px;'#13#10#9#9
+  +#9#9#9#9'    border-left: 1px solid #b0b0b0;'#13#10#9#9#9#9#9#9'    border-b'
+  +'ottom: 1px solid #b0b0b0;'#13#10#9#9#9#9#9#9'}'#13#10#9#9#9#9#9#9'.h1'#13#10
+  +#9#9#9#9#9#9'{'#13#10#9#9#9#9#9#9#9'font-size: 13pt;'#13#10#9#9#9#9#9#9'    '
+  +'border-left: 1px solid #b0b0b0;'#13#10#9#9#9#9#9#9'    border-bottom: 1px s'
+  +'olid #b0b0b0;'#13#10#9#9#9#9#9#9'}'#13#10#9#9#9#9#9#9'.h2'#13#10#9#9#9#9#9#9
+  +'{'#13#10#9#9#9#9#9#9#9'font-size: 13pt;'#13#10#9#9#9#9#9#9'    border-left:'
+  +' 1px solid #b0b0b0;'#13#10#9#9#9#9#9#9'    border-bottom: 1px solid #b0b0b0'
+  +';'#13#10#9#9#9#9#9#9'}'#13#10'                        p { margin-bottom: 0.'
+  +'75em; margin-top: 0; }'#13#10'                        .h1, .h2, .h3, .h4, h'
+  +'4'#13#10'                        {'#13#10'                          margin-'
+  +'top: 1em;'#13#10'                          margin-bottom: 0;'#13#10'       '
+  +'                   padding-bottom: 0;'#13#10'                          padd'
+  +'ing-left: 3px;'#13#10'                          font-weight: bold;'#13#10' '
+  +'                       }'#13#10'                        a { text-decoration'
+  +': none }'#13#10'                        h2 { font-size: 12pt; }'#13#10'    '
+  +'                    h3 { font-size: 11pt; }'#13#10'                        '
+  +'h4 { font-size: 10pt; font-weight: normal; text-decoration: underline;}'#13
+  +#10'                        ul, ol { margin-top: 0; margin-bottom: 0.75em; }'
+  +#13#10'                        pre { margin: 0 }'#13#10'                    '
+  +'    pre, code'#13#10'                        {'#13#10#9'                   '
+  +'   font: 100% Monospace, Courier New, Courier;'#13#10'        '#9'         '
+  +'     color: #000066;'#13#10'                        }'#13#10'              '
+  +'          .spaced'#13#10'                        {'#13#10'                 '
+  +'         letter-spacing: 1px;'#13#10'                          color: #0000'
+  +'60;'#13#10'                        }'#13#10'                        table {'
+  +' padding: 0; }'#13#10'                        tr { margin: 0; padding: 0; }'
+  +#13#10'                        td { margin: 0; }'#13#10'                    '
+  +'    table, td { border: 1px dashed #c0c0c0; }'#13#10#9#9#9#9'</xsl:comment>'
+  +#13#10#9#9#9#9'</style>'#13#10#9#9#9'</head>'#13#10#9#9#9'<body>'#13#10#9#9#9
+  +#9'<div class="header">'#13#10#9#9#9#9#9'<img src="favicon.ico" style="paddi'
+  +'ng-right: 5px;"/>'#13#10#9#9#9#9#9'<xsl:value-of select="/Library/@Name"/>'
+  +#13#10#9#9#9#9'</div>'#13#10#9#9#9#9'<div class="body">'#13#10#9#9#9#9#9'<a>'
+  +#13#10#9#9#9#9#9#9'<xsl:attribute name="name"><xsl:value-of select="/Library'
+  +'/@Name"/></xsl:attribute>'#13#10#9#9#9#9#9'</a>'#13#10#9#9#9#9#9'<div class'
+  +'="h1">Table Of Contents</div>'#13#10#9#9#9#9#9'<p>This document is split in'
+  +'to the following sections:</p>'#13#10#9#9#9#9#9'<ul>'#13#10#9#9#9#9#9#9'<li'
+  +'>'#13#10#9#9#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href'
+  +'">#<xsl:value-of select="/Library/@Name"/>.Services</xsl:attribute>'#13#10#9
+  +#9#9#9#9#9#9#9'Services</a>'#13#10#9#9#9#9#9#9'</li>'#13#10#9#9#9#9#9#9'<li>'
+  +#13#10#9#9#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#'
+  +'<xsl:value-of select="/Library/@Name"/>.EventSinks</xsl:attribute>'#13#10#9
+  +#9#9#9#9#9#9#9'Event sinks</a>'#13#10#9#9#9#9#9#9'</li>'#13#10#9#9#9#9#9#9'<'
+  ,'li>'#13#10#9#9#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="hr'
+  +'ef">#<xsl:value-of select="/Library/@Name"/>.Structs</xsl:attribute>'#13#10
+  +#9#9#9#9#9#9#9#9'Structs</a>'#13#10#9#9#9#9#9#9'</li>'#13#10#9#9#9#9#9#9'<li'
+  +'>'#13#10#9#9#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href'
+  +'">#<xsl:value-of select="/Library/@Name"/>.Enums</xsl:attribute>'#13#10#9#9
+  +#9#9#9#9#9#9'Enums</a>'#13#10#9#9#9#9#9#9'</li>'#13#10#9#9#9#9#9#9'<li>'#13
+  +#10#9#9#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xs'
+  +'l:value-of select="/Library/@Name"/>.Arrays</xsl:attribute>'#13#10#9#9#9#9#9
+  +#9#9#9'Arrays</a>'#13#10#9#9#9#9#9#9'</li>'#13#10#9#9#9#9#9#9'<li>'#13#10#9#9
+  +#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xsl:value'
+  +'-of select="/Library/@Name"/>.Exceptions</xsl:attribute>'#13#10#9#9#9#9#9#9
+  +#9#9'Exceptions</a>'#13#10#9#9#9#9#9#9'</li>'#13#10#9#9#9#9#9#9'<li>'#13#10#9
+  +#9#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xsl:val'
+  +'ue-of select="/Library/@Name"/>.Uses</xsl:attribute>'#13#10#9#9#9#9#9#9#9#9
+  +'Used RODLs</a>'#13#10#9#9#9#9#9#9'</li>'#13#10#9#9#9#9#9'</ul>'#13#10#13#10
+  +#9#9#9#9'<p>'#13#10#9#9#9#9'<b>Library Description:</b> <xsl:value-of select'
+  +'="/Library/Documentation"/>'#13#10#9#9#9#9'</p>'#13#10#13#10#9#9#9#9#9'<xsl'
+  +':call-template name="ServicesOverview"/>'#13#10#9#9#9#9#9#13#10#9#9#9#9#9'<'
+  +'a>'#13#10#9#9#9#9#9#9'<xsl:attribute name="name"><xsl:value-of select="/Lib'
+  +'rary/@Name"/>.EventSinks</xsl:attribute>'#13#10#9#9#9#9#9'</a>'#13#10#9#9#9
+  +#9#9'<xsl:call-template name="EventSinksOverview"/>'#13#10#13#10#9#9#9#9#9'<'
+  +'a>'#13#10#9#9#9#9#9#9'<xsl:attribute name="name"><xsl:value-of select="/Lib'
+  +'rary/@Name"/>.Structs</xsl:attribute>'#13#10#9#9#9#9#9'</a>'#13#10#9#9#9#9#9
+  +'<xsl:call-template name="StructsOverview"/>'#13#10#9#9#9#9#9'<!--<xsl:call-'
+  +'template name="StructsMembers"/>-->'#13#10#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9
+  +'<xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.Enums</x'
+  +'sl:attribute>'#13#10#9#9#9#9#9'</a>'#13#10#9#9#9#9#9'<xsl:call-template nam'
+  +'e="EnumsOverview"/>'#13#10#9#9#9#9#9'<!--<xsl:call-template name="EnumsMemb'
+  +'ers"/>-->'#13#10#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9'<xsl:attribute name="name'
+  +'"><xsl:value-of select="/Library/@Name"/>.Arrays</xsl:attribute>'#13#10#9#9
+  +#9#9#9'</a>'#13#10#9#9#9#9#9'<xsl:call-template name="ArraysOverview"/>'#13
+  +#10#9#9#9#9#9'<!--<xsl:call-template name="ArraysMembers"/>-->'#13#10#9#9#9#9
+  +#9'<a>'#13#10#9#9#9#9#9#9'<xsl:attribute name="name"><xsl:value-of select="/'
+  +'Library/@Name"/>.Exceptions</xsl:attribute>'#13#10#9#9#9#9#9'</a>'#13#10#9#9
+  +#9#9#9'<xsl:call-template name="ExceptionsOverview"/>'#13#10#9#9#9#9#9'<!--<'
+  +'xsl:call-template name="ExceptionsMembers"/>-->'#13#10#9#9#9#9#9'<a>'#13#10
+  +#9#9#9#9#9#9'<xsl:attribute name="name"><xsl:value-of select="/Library/@Name'
+  +'"/>.Uses</xsl:attribute>'#13#10#9#9#9#9#9'</a>'#13#10#9#9#9#9#9'<xsl:call-t'
+  +'emplate name="UsesOverview"/>'#13#10#9#9#9#9'</div>'#13#10#9#9#9#9'<div cla'
+  +'ss="footer">'#13#10#9#9#9#9#9'RemObjects Software, LLC. <a href="http://www'
+  +'.remobjects.com">remobjects.com</a>.'#13#10#9#9#9#9'</div>'#13#10#9#9#9'</b'
+  +'ody>'#13#10#9#9'</html>'#13#10#9'</xsl:template>'#13#10#13#10#9'<xsl:templa'
+  +'te name="ServicesOverview" match="/Services">'#13#10#9#9'<a>'#13#10#9#9#9'<'
+  +'xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.Services<'
+  +'/xsl:attribute>'#13#10#9#9'</a>'#13#10#9#9'<div class="h1">Services</div>'
+  +#13#10#9#9'<div class="section">'#13#10#9#9#9'<p>The following table lists t'
+  +'he Services defined in "<xsl:value-of select="/Library/@Name"/>":</p>'#13#10
+  +#9#9#9'<table width="80%">'#13#10#9#9#9#9'<xsl:for-each select="./Services/S'
+  +'ervice/Interfaces/Interface">'#13#10#9#9#9#9#9'<tr>'#13#10#9#9#9#9#9#9'<td '
+  +'valign="top" width="250">'#13#10#9#9#9#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<'
+  +'xsl:attribute name="href">#<xsl:value-of select="../../@Name"/></xsl:attrib'
+  +'ute>'#13#10#9#9#9#9#9#9#9#9'<xsl:value-of select="../../@Name"/>'#13#10#9#9
+  +#9#9#9#9#9'</a>'#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9#9'<td>'#13#10#9#9#9
+  +#9#9#9#9'<xsl:value-of select="../../Documentation"/>'#13#10#9#9#9#9#9#9'</t'
+  +'d>'#13#10#9#9#9#9#9'</tr>'#13#10#9#9#9#9'</xsl:for-each>'#13#10#9#9#9'</tab'
+  +'le>'#13#10#9#9#9'<xsl:call-template name="ServicesMembers"/>'#13#10#9#9'</d'
+  +'iv>'#13#10#9'</xsl:template>'#13#10#9'<xsl:template name="ServicesMembers" '
+  +'match="/Services">'#13#10#9#9'<xsl:for-each select="./Services/Service/Inte'
+  +'rfaces/Interface">'#13#10#9#9#9'<a>'#13#10#9#9#9#9'<xsl:attribute name="nam'
+  +'e"><xsl:value-of select="../../@Name"/></xsl:attribute>'#13#10#9#9#9'</a>'
+  +#13#10#9#9#9'<div class="h2">'#13#10#9#9#9#9'Service <i><xsl:value-of select'
+  +'="../../@Name"/></i>'#13#10#9#9#9'</div>'#13#10#9#9#9'<div class="section">'
+  +#13#10#9#9#9#9'<p>The following table lists the Operations defined in "<xsl:'
+  +'value-of select="../../@Name"/>":</p>'#13#10#9#9#9#9'<table width="80%">'#13
+  ,#10#9#9#9#9#9'<xsl:for-each select="./Operations/Operation">'#13#10#9#9#9#9#9
+  +#9'<tr>'#13#10#9#9#9#9#9#9#9'<td valign="top" width="250">'#13#10#9#9#9#9#9#9
+  +#9#9'<a>'#13#10#9#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xsl:value-of '
+  +'select="../../../../@Name"/>.<xsl:value-of select="@Name"/></xsl:attribute>'
+  +#13#10#9#9#9#9#9#9#9#9#9'<xsl:value-of select="@Name"/>'#13#10#9#9#9#9#9#9#9
+  +#9'</a>'#13#10#9#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9#9#9'<td>'#13#10#9#9#9#9#9
+  +#9#9#9'<xsl:value-of select="Documentation"/>'#13#10#9#9#9#9#9#9#9'</td>'#13
+  +#10#9#9#9#9#9#9'</tr>'#13#10#9#9#9#9#9'</xsl:for-each>'#13#10#9#9#9#9'</tabl'
+  +'e>'#13#10#9#9#9#9'<xsl:call-template name="MemberDeclarations"/>'#13#10#9#9
+  +#9'</div>'#13#10#9#9'</xsl:for-each>'#13#10#9'</xsl:template>'#13#10#13#10#9
+  +'<xsl:template name="EventSinksOverview" match="/EventSinks">'#13#10#9#9'<a>'
+  +#13#10#9#9#9'<xsl:attribute name="name"><xsl:value-of select="/Library/@Name'
+  +'"/>.Services</xsl:attribute>'#13#10#9#9'</a>'#13#10#9#9'<div class="h1">Eve'
+  +'nt Sinks</div>'#13#10#9#9'<div class="section">'#13#10#9#9#9'<p>The followi'
+  +'ng table lists the Event Sinks defined in "<xsl:value-of select="/Library/@'
+  +'Name"/>":</p>'#13#10#9#9#9'<table width="80%">'#13#10#9#9#9#9'<xsl:for-each'
+  +' select="./EventSinks/EventSink/Interfaces/Interface">'#13#10#9#9#9#9#9'<tr'
+  +'>'#13#10#9#9#9#9#9#9'<td valign="top" width="250">'#13#10#9#9#9#9#9#9#9'<a>'
+  +#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xsl:value-of select="../'
+  +'../@Name"/></xsl:attribute>'#13#10#9#9#9#9#9#9#9#9'<xsl:value-of select="..'
+  +'/../@Name"/>'#13#10#9#9#9#9#9#9#9'</a>'#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9
+  +#9#9#9'<td>'#13#10#9#9#9#9#9#9#9'<xsl:value-of select="../../Documentation"/'
+  +'>'#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9'</tr>'#13#10#9#9#9#9'</xsl:for-'
+  +'each>'#13#10#9#9#9'</table>'#13#10#9#9#9'<xsl:call-template name="EventSink'
+  +'sMembers"/>'#13#10#9#9'</div>'#13#10#9'</xsl:template>'#13#10#9'<xsl:templa'
+  +'te name="EventSinksMembers" match="/EventSinks">'#13#10#9#9'<xsl:for-each s'
+  +'elect="./EventSinks/EventSink/Interfaces/Interface">'#13#10#9#9#9'<a>'#13#10
+  +#9#9#9#9'<xsl:attribute name="name"><xsl:value-of select="../../@Name"/></xs'
+  +'l:attribute>'#13#10#9#9#9'</a>'#13#10#9#9#9'<div class="h2">Event Sink <i><'
+  +'xsl:value-of select="../../@Name"/></i></div>'#13#10#9#9#9'<div class="sect'
+  +'ion">'#13#10#9#9#9#9'<p>The following table lists the Events defined in "<x'
+  +'sl:value-of select="../../@Name"/>":</p>'#13#10#9#9#9#9'<table width="80%">'
+  +#13#10#9#9#9#9#9'<xsl:for-each select="./Operations/Operation">'#13#10#9#9#9
+  +#9#9#9'<tr>'#13#10#9#9#9#9#9#9#9'<td valign="top" width="250">'#13#10#9#9#9#9
+  +#9#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xsl:value'
+  +'-of select="../../../../@Name"/>.<xsl:value-of select="@Name"/></xsl:attrib'
+  +'ute>'#13#10#9#9#9#9#9#9#9#9#9'<xsl:value-of select="@Name"/>'#13#10#9#9#9#9
+  +#9#9#9#9'</a>'#13#10#9#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9#9#9'<td>'#13#10#9#9
+  +#9#9#9#9#9#9'<xsl:value-of select="Documentation"/>'#13#10#9#9#9#9#9#9#9'</t'
+  +'d>'#13#10#9#9#9#9#9#9'</tr>'#13#10#9#9#9#9#9'</xsl:for-each>'#13#10#9#9#9#9
+  +'</table>'#13#10#9#9#9#9'<xsl:call-template name="EventMemberDeclarations"/>'
+  +#13#10#9#9#9'</div>'#13#10#9#9'</xsl:for-each>'#13#10#9'</xsl:template>'#13
+  +#10#13#10#13#10#9'<xsl:template name="MemberDeclarations">'#13#10#9#9'<xsl:f'
+  +'or-each select="./Operations/Operation">'#13#10#9#9#9'<a>'#13#10#9#9#9#9'<x'
+  +'sl:attribute name="name"><xsl:value-of select="../../../../@Name"/>.<xsl:va'
+  +'lue-of select="@Name"/></xsl:attribute>'#13#10#9#9#9'</a>'#13#10#9#9#9'<h3>'
+  +#13#10#9#9#9#9'Method <i><!--<xsl:value-of select="../../../../@Name"/>.--><'
+  +'xsl:value-of select="@Name"/></i>'#13#10#9#9#9'</h3>'#13#10#9#9#9'<p>'#13#10
+  +#9#9#9#9'<xsl:value-of select="@Documentation"/>'#13#10#9#9#9'</p>'#13#10#9#9
+  +#9'<xsl:apply-templates select="Parameters"/>'#13#10#9#9'</xsl:for-each>'#13
+  +#10#9'</xsl:template>'#13#10#9'<xsl:template name="EventMemberDeclarations">'
+  +#13#10#9#9'<xsl:for-each select="./Operations/Operation">'#13#10#9#9#9'<a>'
+  +#13#10#9#9#9#9'<xsl:attribute name="name"><xsl:value-of select="../../../../'
+  +'@Name"/>.<xsl:value-of select="@Name"/></xsl:attribute>'#13#10#9#9#9'</a>'
+  +#13#10#9#9#9'<h3>'#13#10#9#9#9#9'Event <i><!--<xsl:value-of select="../../..'
+  +'/../@Name"/>.--><xsl:value-of select="@Name"/></i>'#13#10#9#9#9'</h3>'#13#10
+  +#9#9#9'<p>'#13#10#9#9#9#9'<xsl:value-of select="@Documentation"/>'#13#10#9#9
+  +#9'</p>'#13#10#9#9#9'<xsl:apply-templates select="Parameters"/>'#13#10#9#9'<'
+  +'/xsl:for-each>'#13#10#9'</xsl:template>'#13#10#9#13#10#9'<xsl:template matc'
+  +'h="Parameters">'#13#10#9#9'<h4>Chrome Syntax:</h4>'#13#10#9#9'<code>'#13#10
+  +#9#9#9'<!--<xsl:choose>'#13#10#9#9#9#9'<xsl:when test="count(./Parameter[@Na'
+  +'me=''Result'']) = 1">'#13#10#9#9#9#9#9'<b>function </b>'#13#10#9#9#9#9'</xs'
+  +'l:when>'#13#10#9#9#9#9'<xsl:otherwise>'#13#10#9#9#9#9#9'<b>procedure </b>'
+  +#13#10#9#9#9#9'</xsl:otherwise>'#13#10#9#9#9'</xsl:choose>-->'#13#10#9#9#9'<'
+  ,'b>method </b>'#13#10#9#9#9'<xsl:value-of select="../../../../../@Name"/>.<x'
+  +'sl:value-of select="../@Name"/>(<xsl:for-each select="Parameter[@Flag!=''Re'
+  +'sult'']">'#13#10#9#9#9#9'<xsl:call-template name="Declaration">'#13#10#9#9#9
+  +#9#9'<xsl:with-param name="Language" select="''Pascal''"/>'#13#10#9#9#9#9'</'
+  +'xsl:call-template>'#13#10#9#9#9'</xsl:for-each>)<xsl:for-each select="Param'
+  +'eter[@Flag=''Result'']">'#13#10#9#9#9#9'<xsl:call-template name="Declaratio'
+  +'n">'#13#10#9#9#9#9#9'<xsl:with-param name="Language" select="''Pascal''"/>'
+  +#13#10#9#9#9#9'</xsl:call-template>'#13#10#9#9#9'</xsl:for-each>;'#13#10'   '
+  +'     </code>'#13#10#9#9'<h4>C# Syntax:</h4>'#13#10#9#9'<code>'#13#10#9#9#9
+  +'<xsl:choose>'#13#10'                <xsl:when test="count(./Parameter[@Name'
+  +'=''Result'']) = 1">'#13#10'  '#9'   '#9#9#9'    public <xsl:value-of select'
+  +'="./Parameter[@Flag=''Result'']/@DataType"/><xsl:text> </xsl:text>'#13#10' '
+  +'               </xsl:when>'#13#10'                <xsl:otherwise>'#13#10'  '
+  +'                  public void'#13#10'                </xsl:otherwise>'#13#10
+  +'            </xsl:choose>'#13#10#9#9#9'<xsl:value-of select="../../../../..'
+  +'/@Name"/>.<xsl:value-of select="../@Name"/>(<xsl:for-each select="Parameter'
+  +'[@Flag!=''Result'']">'#13#10#9#9#9#9'<xsl:call-template name="Declaration">'
+  +#13#10#9#9#9#9#9'<xsl:with-param name="Language" select="''CSharp''"/>'#13#10
+  +#9#9#9#9'</xsl:call-template>'#13#10#9#9#9'</xsl:for-each>);'#13#10#9#9'</co'
+  +'de>'#13#10#9#9#13#10#9#9'<!--<h3>Parameters</h3>'#13#10#9#9'<xsl:call-templ'
+  +'ate name="Parameters"/>'#13#10#9#9'<h3>Return Value</h3>'#13#10#9#9'<xsl:ca'
+  +'ll-template name="ReturnValue"/>'#13#10#9#9'<p>'#13#10#9#9#9'<a>'#13#10#9#9
+  +#9#9'<xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/></xs'
+  +'l:attribute>'#13#10#9#9#9#9'<xsl:value-of select="/Library/@Name"/>'#13#10#9
+  +#9#9'</a>'#13#10#9#9#9'<xsl:text>'#13#10#9#9#9#9'</xsl:text>'#13#10#9#9#9'<a'
+  +'>'#13#10#9#9#9#9'<xsl:attribute name="href">#<xsl:value-of select="../../..'
+  +'/../../@Name"/></xsl:attribute>'#13#10#9#9#9#9'<xsl:value-of select="../../'
+  +'../../../@Name"/>'#13#10#9#9#9'</a>'#13#10#9#9'</p>-->'#13#10#9'</xsl:templ'
+  +'ate>'#13#10#9'<xsl:template name="Parameters">'#13#10#9#9'<xsl:choose>'#13
+  +#10#9#9#9'<xsl:when test="count(Parameter[@Name!=''Result'']) = 0">None.</xs'
+  +'l:when>'#13#10#9#9#9'<xsl:otherwise>'#13#10#9#9#9#9'<xsl:for-each select="P'
+  +'arameter[@Name!=''Result'']">'#13#10#9#9#9#9#9'<h4>'#13#10#9#9#9#9#9#9'<xsl'
+  +':value-of select="@Name"/>'#13#10#9#9#9#9#9'</h4>'#13#10'           Dear Re'
+  +'mObjects Team: Please add a Parameter documentation to your rodl-file!'#13
+  +#10'         </xsl:for-each>'#13#10#9#9#9'</xsl:otherwise>'#13#10#9#9'</xsl:'
+  +'choose>'#13#10#9'</xsl:template>'#13#10#9'<xsl:template name="ReturnValue">'
+  +#13#10#9#9'<xsl:choose>'#13#10#9#9#9'<xsl:when test="count(Parameter[@Flag='
+  +'''Result'']) = 0">None.</xsl:when>'#13#10#9#9#9'<xsl:otherwise>'#13#10#9#9#9
+  +#9'<xsl:for-each select="Parameter[@Flag=''Result'']">'#13#10#9#9#9#9#9'<!--'
+  +' the Result-comment -->'#13#10'           Dear RemObjects Team: Please add '
+  +'a Parameter documentation to your rodl-file!'#13#10'         </xsl:for-each'
+  +'>'#13#10#9#9#9'</xsl:otherwise>'#13#10#9#9'</xsl:choose>'#13#10#9'</xsl:tem'
+  +'plate>'#13#10#9'<xsl:template name="Declaration">'#13#10#9#9'<xsl:param nam'
+  +'e="Language"/>'#13#10#9#9'<xsl:choose>'#13#10#9#9#9'<xsl:when test="$Langua'
+  +'ge=''Pascal''">'#13#10#9#9#9#9'<xsl:call-template name="GeneratePascalParam'
+  +'eter"/>'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9'<xsl:when test="$Language=''C'
+  +'Sharp''">'#13#10#9#9#9#9'<xsl:call-template name="GenerateCSharpParameter"/'
+  +'>'#13#10#9#9#9'</xsl:when>'#13#10#9#9'</xsl:choose>'#13#10#9'</xsl:template'
+  +'>'#13#10#9'<xsl:template name="GeneratePascalParameter">'#13#10#9#9'<xsl:ch'
+  +'oose>'#13#10#9#9#9'<xsl:when test="position()=1 and @Flag != ''Result''">'
+  +#13#10#9#9#9#9'<xsl:call-template name="FlagToSpec">'#13#10#9#9#9#9#9'<xsl:w'
+  +'ith-param name="Flag" select="@Flag"/>'#13#10#9#9#9#9'</xsl:call-template>'
+  +#13#10#9#9#9#9'<xsl:value-of select="@Name"/>: <xsl:value-of select="@DataTy'
+  +'pe"/>'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9'<xsl:when test="@Flag = ''Resul'
+  +'t''">: <xsl:value-of select="@DataType"/>'#13#10#9#9#9'</xsl:when>'#13#10#9
+  +#9#9'<xsl:when test="position()=last()">; <xsl:call-template name="FlagToSpe'
+  +'c">'#13#10#9#9#9#9#9'<xsl:with-param name="Flag" select="@Flag"/>'#13#10#9#9
+  +#9#9'</xsl:call-template>'#13#10#9#9#9#9'<xsl:value-of select="@Name"/>: <xs'
+  +'l:value-of select="@DataType"/></xsl:when>'#13#10#9#9#9'<xsl:when test="pos'
+  +'ition()>1">; <xsl:call-template name="FlagToSpec">'#13#10#9#9#9#9#9'<xsl:wi'
+  +'th-param name="Flag" select="@Flag"/>'#13#10#9#9#9#9'</xsl:call-template>'
+  +#13#10#9#9#9#9'<xsl:value-of select="@Name"/>: <xsl:value-of select="@DataTy'
+  +'pe"/>'#13#10#9#9#9'</xsl:when>'#13#10#9#9'</xsl:choose>'#13#10#9'</xsl:temp'
+  +'late>'#13#10#9'<xsl:template name="GenerateCSharpParameter">'#13#10#9#9'<xs'
+  ,'l:choose>'#13#10#9#9#9'<xsl:when test="position()=1 and @Flag != ''Result'''
+  +'">'#13#10#9#9#9#9'<xsl:call-template name="FlagToSpecCSharp">'#13#10#9#9#9#9
+  +#9'<xsl:with-param name="Flag" select="@Flag"/>'#13#10#9#9#9#9'</xsl:call-te'
+  +'mplate>'#13#10#9#9#9#9'<xsl:call-template name="DataTypeToCSharp">'#13#10#9
+  +#9#9#9#9'<xsl:with-param name="DataType" select="@DataType"/>'#13#10#9#9#9#9
+  +'</xsl:call-template>'#9#9#9#9#13#10#9#9#9#9'<xsl:text> </xsl:text>'#13#10#9
+  +#9#9#9'<xsl:value-of select="@Name"/>'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9
+  +'<xsl:when test="position()=last()">, <xsl:call-template name="FlagToSpecCSh'
+  +'arp">'#13#10#9#9#9#9#9'<xsl:with-param name="Flag" select="@Flag"/>'#13#10#9
+  +#9#9#9'</xsl:call-template>'#13#10#9#9#9#9'<xsl:call-template name="DataType'
+  +'ToCSharp">'#13#10#9#9#9#9#9'<xsl:with-param name="DataType" select="@DataTy'
+  +'pe"/>'#13#10#9#9#9#9'</xsl:call-template>'#13#10#9#9#9#9'<xsl:text> </xsl:t'
+  +'ext>'#13#10#9#9#9#9'<xsl:value-of select="@Name"/></xsl:when> '#13#10#9#9#9
+  +'<xsl:when test="position()>1">, <xsl:call-template name="FlagToSpecCSharp">'
+  +#13#10#9#9#9#9#9'<xsl:with-param name="Flag" select="@Flag"/>'#13#10#9#9#9#9
+  +'</xsl:call-template>'#13#10#9#9#9#9'<xsl:call-template name="DataTypeToCSha'
+  +'rp">'#13#10#9#9#9#9#9'<xsl:with-param name="DataType" select="@DataType"/>'
+  +#13#10#9#9#9#9'</xsl:call-template>'#13#10#9#9#9#9'<xsl:text> </xsl:text>'#13
+  +#10#9#9#9#9'<xsl:value-of select="@Name"/>'#13#10#9#9#9'</xsl:when>'#13#10#9
+  +#9'</xsl:choose>'#13#10#9'</xsl:template>'#13#10#9'<xsl:template name="FlagT'
+  +'oSpec">'#13#10#9#9'<xsl:param name="Flag"/>'#13#10#9#9'<xsl:choose>'#13#10#9
+  +#9#9'<xsl:when test="$Flag=''In''">'#13#10#9#9#9#9'<b>const </b>'#13#10#9#9#9
+  +'</xsl:when>'#13#10#9#9#9'<xsl:when test="$Flag=''InOut''">'#13#10#9#9#9#9'<'
+  +'b>var </b>'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9'<xsl:otherwise/>'#13#10#9#9
+  +'</xsl:choose>'#13#10#9'</xsl:template>'#13#10#9#13#10#9'<xsl:template name='
+  +'"DataTypeToCSharp">'#13#10#9#9'<xsl:param name="DataType"/>'#13#10#9#9'<xsl'
+  +':choose>'#13#10#9#9#9'<xsl:when test="$DataType=''Integer''">'#13#10#9#9#9#9
+  +'Int32'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9'<xsl:when test="$DataType=''Wid'
+  +'estring''">'#13#10#9#9#9#9'String'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9'<xs'
+  +'l:otherwise>'#13#10#9#9#9#9'<xsl:value-of select="$DataType"/>'#13#10#9#9#9
+  +'</xsl:otherwise>'#13#10#9#9'</xsl:choose>'#13#10#9'</xsl:template>'#13#10#9
+  +#13#10#9'<xsl:template name="FlagToSpecCSharp">'#13#10#9#9'<xsl:param name="'
+  +'Flag"/>'#13#10#9#9'<xsl:choose>'#13#10#9#9#9'<xsl:when test="$Flag=''In''">'
+  +#13#10#9#9#9#9'<!--<b>const </b>-->'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9'<x'
+  +'sl:when test="$Flag=''InOut''">'#13#10#9#9#9#9'<b>ref </b>'#13#10#9#9#9'</x'
+  +'sl:when>'#13#10#9#9#9'<xsl:when test="$Flag=''Out''">'#13#10#9#9#9#9'<b>out'
+  +' </b>'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9'<xsl:otherwise/>'#13#10#9#9'</x'
+  +'sl:choose>'#13#10#9'</xsl:template>'#13#10#13#10#9'<xsl:template name="Stru'
+  +'ctsOverview" match="/Structs">'#13#10#9#9'<a>'#13#10#9#9#9'<xsl:attribute n'
+  +'ame="name"><xsl:value-of select="/Library/@Name"/>.Structs</xsl:attribute>'
+  +#13#10#9#9'</a>'#13#10#9#9'<div class="h1">Structs</div>'#13#10#9#9'<div cla'
+  +'ss="section">'#13#10#9#9#9'<p>The following table lists the Structs defined'
+  +' in "<xsl:value-of select="/Library/@Name"/>":</p>'#13#10#9#9#9'<table widt'
+  +'h="80%">'#13#10#9#9#9#9'<xsl:for-each select="./Structs/Struct">'#13#10#9#9
+  +#9#9#9'<tr>'#13#10#9#9#9#9#9#9'<td valign="top" width="250">'#13#10#9#9#9#9#9
+  +#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xsl:value-of se'
+  +'lect="@Name"/></xsl:attribute>'#13#10#9#9#9#9#9#9#9#9'<xsl:value-of select='
+  +'"@Name"/>'#13#10#9#9#9#9#9#9#9'</a>'#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9#9
+  +#9#9'<td>'#13#10#9#9#9#9#9#9#9'<xsl:value-of select="Documentation"/>'#13#10
+  +#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9'</tr>'#13#10#9#9#9#9'</xsl:for-each>'#13
+  +#10#9#9#9'</table>'#13#10#9#9'</div>'#13#10#9'</xsl:template>'#13#10#9'<xsl:'
+  +'template name="StructsMembers" match="/Structs">'#13#10#9#9'<xsl:apply-temp'
+  +'lates select="./Structs/Struct"/>'#13#10#9'</xsl:template>'#13#10#9'<xsl:te'
+  +'mplate match="/Structs/Struct">'#13#10#9#9'<a>'#13#10#9#9#9'<xsl:attribute '
+  +'name="name"><xsl:value-of select="@Name"/></xsl:attribute>'#13#10#9#9'</a>'
+  +#13#10#9#9'<div class="h2">'#13#10#9#9#9'<xsl:value-of select="@Name"/> Stru'
+  +'ct</div>'#13#10#9#9'<p>'#13#10#9#9#9'<xsl:value-of select="Documentation"/>'
+  +#13#10#9#9'</p>'#13#10#9#9'<h3>Members</h3>'#13#10#9#9'<xsl:for-each select='
+  +'"Elements/Element">'#13#10#9#9#9'<h4>'#13#10#9#9#9#9'<xsl:value-of select="'
+  +'@Name"/>'#13#10#9#9#9'</h4>'#13#10#9#9#9'<p>Datatype: <xsl:call-template na'
+  +'me="LinkToDataType">'#13#10#9#9#9#9#9'<xsl:with-param name="DataType" selec'
+  +'t="@DataType"/>'#13#10#9#9#9#9'</xsl:call-template>'#13#10#9#9#9'</p>'#13#10
+  +#9#9'</xsl:for-each>'#13#10#9'</xsl:template>'#13#10#9'<xsl:template name="L'
+  +'inkToDataType">'#13#10#9#9'<xsl:param name="DataType"/>'#13#10#9#9'<xsl:cho'
+  ,'ose>'#13#10#9#9#9'<xsl:when test="(count(/Library/Enums/Enum[@Name=$DataTyp'
+  +'e]) = 1) or (count(/Library/Structs/Struct[@Name=$DataType]) = 1) or (count'
+  +'(/Library/Arrays/Array[@Name=$DataType]) = 1)">'#13#10#9#9#9#9'<a>'#13#10#9
+  +#9#9#9#9'<xsl:attribute name="href">#<xsl:value-of select="$DataType"/></xsl'
+  +':attribute>'#13#10#9#9#9#9#9'<xsl:value-of select="$DataType"/>'#13#10#9#9#9
+  +#9'</a>'#13#10#9#9#9'</xsl:when>'#13#10#9#9#9'<xsl:otherwise>'#13#10#9#9#9#9
+  +'<xsl:value-of select="$DataType"/>'#13#10#9#9#9'</xsl:otherwise>'#13#10#9#9
+  +'</xsl:choose>'#13#10#9'</xsl:template>'#13#10#13#10#9'<xsl:template name="E'
+  +'numsOverview" match="/Enums">'#13#10#9#9'<a>'#13#10#9#9#9'<xsl:attribute na'
+  +'me="name"><xsl:value-of select="/Library/@Name"/>.Enums</xsl:attribute>'#13
+  +#10#9#9'</a>'#13#10#9#9'<div class="h1">Enums</div>'#13#10#9#9'<div class="s'
+  +'ection">'#13#10#9#9#9'<p>The following table lists the Enums defined in "<x'
+  +'sl:value-of select="/Library/@Name"/>":</p>'#13#10#9#9#9'<table width="80%"'
+  +'>'#13#10#9#9#9#9'<xsl:for-each select="./Enums/Enum">'#13#10#9#9#9#9#9'<tr>'
+  +#13#10#9#9#9#9#9#9'<td valign="top" width="250">'#13#10#9#9#9#9#9#9#9'<a>'#13
+  +#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xsl:value-of select="@Name"'
+  +'/></xsl:attribute>'#13#10#9#9#9#9#9#9#9#9'<xsl:value-of select="@Name"/>'#13
+  +#10#9#9#9#9#9#9#9'</a>'#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9#9'<td>'#13
+  +#10#9#9#9#9#9#9#9'<xsl:value-of select="Documentation"/>'#13#10#9#9#9#9#9#9
+  +'</td>'#13#10#9#9#9#9#9'</tr>'#13#10#9#9#9#9'</xsl:for-each>'#13#10#9#9#9'</'
+  +'table>'#13#10#9#9'</div>'#13#10#9'</xsl:template>'#13#10#9'<xsl:template na'
+  +'me="EnumsMembers" match="/Enums">'#13#10#9#9'<xsl:apply-templates select=".'
+  +'/Enums/Enum"/>'#13#10#9'</xsl:template>'#13#10#9'<xsl:template match="/Enum'
+  +'s/Enum">'#13#10#9#9'<a>'#13#10#9#9#9'<xsl:attribute name="name"><xsl:value-'
+  +'of select="@Name"/></xsl:attribute>'#13#10#9#9'</a>'#13#10#9#9'<div class="'
+  +'h2">'#13#10#9#9#9'<xsl:value-of select="@Name"/> Enumerations</div>'#13#10#9
+  +#9'<p>'#13#10#9#9#9'<xsl:value-of select="@Documentation"/>'#13#10#9#9'</p>'
+  +#13#10#9#9'<table width="80%">'#13#10#9#9#9'<tr vAlign="top">'#13#10#9#9#9#9
+  +'<th width="52%">Enumerated Type Value</th>'#13#10#9#9#9#9'<th width="15%">D'
+  +'EC Value</th>'#13#10#9#9#9#9'<th width="33%">HEX Value</th>'#13#10#9#9#9'</'
+  +'tr>'#13#10#9#9#9'<xsl:for-each select="EnumValues/EnumValue">'#13#10#9#9#9#9
+  +'<tr>'#13#10#9#9#9#9#9'<td valign="top" width="250">'#13#10#9#9#9#9#9#9'<xsl'
+  +':value-of select="@Name"/>'#13#10#9#9#9#9#9'</td>'#13#10#9#9#9#9#9'<td>'#13
+  +#10#9#9#9#9#9#9'<xsl:value-of select="position()-1"/>'#13#10#9#9#9#9#9'</td>'
+  +#13#10#9#9#9#9#9'<td>'#13#10#9#9#9#9#9#9'0x<xsl:call-template name="DecToHex'
+  +'">'#13#10#9#9#9#9#9#9#9'<xsl:with-param name="Decimal" select="position()-1'
+  +'"/>'#13#10#9#9#9#9#9#9'</xsl:call-template>'#13#10#9#9#9#9#9'</td>'#13#10#9
+  +#9#9#9'</tr>'#13#10#9#9#9'</xsl:for-each>'#13#10#9#9'</table>'#13#10#9'</xsl'
+  +':template>'#13#10#9'<xsl:template name="DecToHex">'#13#10#9#9'<xsl:param na'
+  +'me="Decimal"/>'#13#10#9#9'How to convert Dec 2 Hex?'#13#10#9#9'<!-- How to '
+  +'do this? -->'#13#10#9'</xsl:template>'#13#10#13#10#9'<xsl:template name="Ar'
+  +'raysOverview" match="/Arrays">'#13#10#9#9'<a>'#13#10#9#9#9'<xsl:attribute n'
+  +'ame="name"><xsl:value-of select="/Library/@Name"/>.Arrays</xsl:attribute>'
+  +#13#10#9#9'</a>'#13#10#9#9'<div class="h1">Arrays</div>'#13#10#9#9'<div clas'
+  +'s="section">'#13#10#13#10#9#9#9'<p>The following table lists the Arrays def'
+  +'ined in "<xsl:value-of select="/Library/@Name"/>":</p>'#13#10#9#9#9'<table '
+  +'width="80%">'#13#10#9#9#9#9'<xsl:for-each select="./Arrays/Array">'#13#10#9
+  +#9#9#9#9'<tr>'#13#10#9#9#9#9#9#9'<td valign="top" width="250">'#13#10#9#9#9#9
+  +#9#9#9'<a>'#13#10#9#9#9#9#9#9#9#9'<xsl:attribute name="href">#<xsl:value-of '
+  +'select="@Name"/></xsl:attribute>'#13#10#9#9#9#9#9#9#9#9'<xsl:value-of selec'
+  +'t="@Name"/>'#13#10#9#9#9#9#9#9#9'</a>'#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9
+  +#9#9#9'<td>'#13#10#9#9#9#9#9#9#9'<xsl:value-of select="Documentation"/>'#13
+  +#10#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9'</tr>'#13#10#9#9#9#9'</xsl:for-each>'
+  +#13#10#9#9#9'</table>'#13#10#9#9'</div>'#13#10#9'</xsl:template>'#13#10#9'<x'
+  +'sl:template name="ArraysMembers" match="/Arrays">'#13#10#9#9'<xsl:apply-tem'
+  +'plates select="./Arrays/Array"/>'#13#10#9'</xsl:template>'#13#10#9'<xsl:tem'
+  +'plate match="/Arrays/Array">'#13#10#9#9'<a>'#13#10#9#9#9'<xsl:attribute nam'
+  +'e="name"><xsl:value-of select="@Name"/></xsl:attribute>'#13#10#9#9'</a>'#13
+  +#10#9#9'<div class="h2">'#13#10#9#9#9'<xsl:value-of select="@Name"/> Array</'
+  +'div>'#13#10#9#9'<p>'#13#10#9#9#9'<xsl:value-of select="@Documentation"/>'#13
+  +#10#9#9'</p>'#13#10#9#9'<p>Element Type:'#13#10#9#9'<xsl:call-template name='
+  +'"LinkToDataType">'#13#10#9#9#9#9'<xsl:with-param name="DataType" select="El'
+  +'ementType/@DataType"/>'#13#10#9#9#9'</xsl:call-template>'#13#10#9#9'</p>'#13
+  +#10#9'</xsl:template>'#13#10#13#10#9'<xsl:template name="ExceptionsOverview"'
+  ,' match="/Exceptions">'#13#10#9#9'<a>'#13#10#9#9#9'<xsl:attribute name="name'
+  +'"><xsl:value-of select="/Library/@Name"/>.Exceptions</xsl:attribute>'#13#10
+  +#9#9'</a>'#13#10#9#9'<div class="h1">Exceptions</div>'#13#10#9#9'<div class='
+  +'"section">'#13#10#9#9#9'<p>The following table lists the Exceptions defined'
+  +' in "<xsl:value-of select="/Library/@Name"/>":</p>'#13#10#9#9#9'<table widt'
+  +'h="80%">'#13#10#9#9#9#9'<xsl:for-each select="./Exceptions/Exception">'#13
+  +#10#9#9#9#9#9'<tr>'#13#10#9#9#9#9#9#9'<td valign="top" width="250">'#13#10#9
+  +#9#9#9#9#9#9'<xsl:value-of select="@Name"/>'#13#10#9#9#9#9#9#9'</td>'#13#10#9
+  +#9#9#9#9#9'<td>'#13#10#9#9#9#9#9#9#9'<xsl:value-of select="Documentation"/>'
+  +#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9'</tr>'#13#10#9#9#9#9'</xsl:for-eac'
+  +'h>'#13#10#9#9#9'</table>'#13#10#9#9'</div>'#13#10#9'</xsl:template>'#13#10#9
+  +'<xsl:template name="ExceptionsMembers" match="/Exceptions">'#13#10#9#9'<xsl'
+  +':apply-templates select="./Exceptions/Exception"/>'#13#10#9'</xsl:template>'
+  +#13#10#9'<xsl:template match="/Exceptions/Exception">'#13#10#9#9'<a>'#13#10#9
+  +#9#9'<xsl:attribute name="name"><xsl:value-of select="@Name"/></xsl:attribut'
+  +'e>'#13#10#9#9'</a>'#13#10#9#9'<div class="h2">'#13#10#9#9#9'Exception <xsl:'
+  +'value-of select="@Name"/> Struct</div>'#13#10#9#9'<p>'#13#10#9#9#9'<xsl:val'
+  +'ue-of select="@Documentation"/>'#13#10#9#9'</p>'#13#10#9#9'<h3>Members</h3>'
+  +#13#10#9#9'<xsl:for-each select="Elements/Element">'#13#10#9#9#9'<h4>'#13#10
+  +#9#9#9#9'<xsl:value-of select="@Name"/>'#13#10#9#9#9'</h4>'#13#10#9#9#9'<p>D'
+  +'atatype: <xsl:call-template name="LinkToDataType">'#13#10#9#9#9#9#9'<xsl:wi'
+  +'th-param name="DataType" select="@DataType"/>'#13#10#9#9#9#9'</xsl:call-tem'
+  +'plate>'#13#10#9#9#9'</p>'#13#10#9#9'</xsl:for-each>'#13#10#9'</xsl:template'
+  +'>'#13#10#13#10#13#10#9'<xsl:template name="UsesOverview" match="/Uses">'#13
+  +#10#9#9'<a>'#13#10#9#9#9'<xsl:attribute name="name"><xsl:value-of select="/L'
+  +'ibrary/@Name"/>.Uses</xsl:attribute>'#13#10#9#9'</a>'#13#10#9#9'<div class='
+  +'"h1">'#13#10#9#9#9'Used RODL Files'#13#10#9#9'</div>'#13#10#9#9'<div class='
+  +'"section">'#13#10#9#9#9'<p>The following table lists the external RODL file'
+  +'s used by library "<xsl:value-of select="/Library/@Name"/>":</p>'#13#10#9#9
+  +#9'<table width="80%">'#13#10#9#9#9#9'<xsl:for-each select="./Uses/Use">'#13
+  +#10#9#9#9#9#9'<tr>'#13#10#9#9#9#9#9#9'<td valign="top" width="250" rowspan="'
+  +'2">'#13#10#9#9#9#9#9#9#9'<xsl:value-of select="@Name"/>'#13#10#9#9#9#9#9#9
+  +'</td>'#13#10#9#9#9#9#9#9'<td>'#13#10#9#9#9#9#9#9#9'<xsl:value-of select="@R'
+  +'odl"/>'#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9'</tr>'#13#10#9#9#9#9#9'<tr'
+  +'>'#13#10#9#9#9#9#9#9'<td>'#13#10#9#9#9#9#9#9#9'<xsl:value-of select="Docume'
+  +'ntation"/>'#13#10#9#9#9#9#9#9'</td>'#13#10#9#9#9#9#9'</tr>'#13#10#9#9#9#9'<'
+  +'/xsl:for-each>'#13#10#9#9#9'</table>'#13#10#9#9'</div>'#13#10#9'</xsl:templ'
+  +'ate>'#13#10'</xsl:stylesheet>'#13#10
+]);
+LazarusResources.Add('RemObjectsHtmlServerInfo','HTML',[
+  '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'#13#10'<html>'
+  +#13#10#9'<head>'#13#10#9#9'<title>%NAME% - RemObjects SDK for .NET %RO%</tit'
+  +'le>'#13#10#9#9'<meta name="GENERATOR" content="RemObjects SDK for .NET {1}"'
+  +'>'#13#10#9#9'<style>'#13#10#9#9#9'body'#13#10#9#9#9'{'#13#10#9#9#9#9'backgr'
+  +'ound-color: #f7f7f7;'#13#10#9#9#9#9'margin: 0;'#13#10#9#9#9#9'padding: 0;'
+  +#13#10#9#9#9#9'font-family: Verdana, Tahoma, Arial, Helvetica, sans serif;'
+  +#13#10#9#9#9#9'font-size: 10pt;'#13#10#9#9#9'}'#13#10#9#9#9'.header'#13#10#9
+  +#9#9'{'#13#10#9#9#9#9'padding: 5px;'#13#10#9#9#9#9'background-color: #c0c0c0'
+  +';'#13#10#9#9#9#9'border-bottom: 5px solid #808080;'#13#10#9#9#9#9'font-size'
+  +': 1.5em;'#13#10#9#9#9'}'#13#10#9#9#9'.body'#13#10#9#9#9'{'#13#10#9#9#9#9'pa'
+  +'dding: 5px;'#13#10#9#9#9'}'#13#10#9#9#9'.footer'#13#10#9#9#9'{'#13#10#9#9#9
+  +#9'padding: 5px;'#13#10#9#9#9#9'border-top: 1px solid #808080;'#13#10#9#9#9#9
+  +'font-size: 0.8em;'#13#10#9#9#9'}'#13#10#9#9#9'.h2'#13#10#9#9#9'{'#13#10#9#9
+  +#9#9'font-weight: bold;'#13#10#9#9#9'}'#13#10#9#9'</style'#13#10#9'</head>'
+  +#13#10#9'<body>'#13#10#9'<div class="header">'#13#10#9#9'<img src="%BASEPATH'
+  +'%favicon.ico" style="padding-right: 5px;"/>%NAME%'#13#10#9'</div>'#13#10#9
+  +'<div class="body">'#13#10#9#9'%DOC%'#13#10#9#9'<p><a href="%BASEPATH%doc">V'
+  +'iew full documentation</a> | <a href="%BASEPATH%rodl">View RODL</a></p>'#13
+  +#10'    <p class="h2">Available Dispatchers:</p>'#13#10#9#9'<ul>'#13#10#9#9#9
+  +'%DISPATCHERS%'#13#10#9#9'</ul>'#13#10#9'</div>'#13#10#9'<div class="footer"'
+  +'>'#13#10#9#9'RemObjects SDK for Delphi'#13#10#9#9'RemObjects Software, LLC.'
+  +' <a href="http://www.remobjects.com">remobjects.com</a>.'#13#10#9'</div>'#13
+  +#10#13#10#13#10#9'</body>'#13#10'</html>'#13#10
+]);
+LazarusResources.Add('RemObjectsHtmlIcon','ICO',[
+  #0#0#1#0#6#0'00'#0#0#1#0#8#0#168#14#0#0'f'#0#0#0'  '#0#0#1#0#8#0#168#8#0#0#14
+  +#15#0#0#16#16#0#0#1#0#8#0'h'#5#0#0#182#23#0#0'00'#0#0#1#0' '#0#168'%'#0#0#30
+  +#29#0#0'  '#0#0#1#0' '#0#168#16#0#0#198'B'#0#0#16#16#0#0#1#0' '#0'h'#4#0#0'n'
+  +'S'#0#0'('#0#0#0'0'#0#0#0'`'#0#0#0#1#0#8#0#0#0#0#0#0#9#0#0#0#0#0#0#0#0#0#0#0
+  +#1#0#0#0#1#0#0#0#0#0#0#5#5#5#0#6#6#15#0#9#9#9#0#14#14#14#0#12#12#22#0#7#7#26
+  +#0#8#8#27#0#17#17#17#0#21#21#21#0#25#25#25#0#29#29#29#0#5#5'"'#0#17#17'%'#0
+  +#26#27'%'#0#28#29''''#0#20#21')'#0#24#26'.'#0#11#11'1'#0#11#11';'#0#19#22'?'
+  +#0#25#28'<'#0#31' +'#0'!!!'#0'$$$'#0')))'#0'---'#0'%''2'#0'(*6'#0'!$:'#0'/1='
+  +#0'111'#0'555'#0'999'#0'==='#0#6#6'I'#0#9#9'L'#0#22#26'C'#0#20#25'M'#0#5#5'R'
+  +#0#12#13'R'#0#9#9'V'#0#3#3'Z'#0#9#10'X'#0#10#12'['#0#11#14'^'#0#13#17'X'#0#24
+  +#30'T'#0#20#25'Y'#0#22#29'^'#0#28' @'#0'.4M'#0'9<I'#0'.7\'#0'4:T'#0'6<U'#0#3
+  +#3'c'#0#5#5'o'#0#14#20'f'#0#18#24'b'#0#19#28'i'#0#16#25'o'#0#5#5'z'#0#1#1'~'
+  +#0#5#7'~'#0#12#21''#0#15#26'|'#0#18#29'u'#0#25'#f'#0#21' n'#0#27'&k'#0#28'('
+  +'n'#0#23'#s'#0#30'+s'#0#20'!z'#0#25'''y'#0#27'+~'#0')4f'#0'#0m'#0',8j'#0'2<a'
+  +#0'$2p'#0'"3~'#0'3?p'#0'6@d'#0'8Ae'#0'<Eh'#0':Ft'#0'@@@'#0'EEE'#0'@DO'#0'III'
+  +#0'MMM'#0'GJV'#0'AG^'#0'KNY'#0'QQQ'#0'TTT'#0'RU_'#0'YYY'#0']]]'#0'EKa'#0'@Ik'
+  +#0'[^g'#0'RXk'#0'EQ{'#0'S\x'#0'^aj'#0']bt'#0'W`{'#0']e'#0'aaa'#0'eee'#0'bem'
+  +#0'iii'#0'mmm'#0'ppp'#0'ttt'#0'yyy'#0''#0#6#14#136#0#9#18#133#0#14#29#141
+  +#0#16#30#130#0#0#0#144#0#1#2#148#0#0#0#154#0#0#1#156#0#6#19#156#0#9#25#157#0
+  +#23'('#134#0#18'"'#136#0#21','#152#0' 4'#140#0',?'#136#0' :'#157#0'#<'#158#0
+  +#0#3#161#0#0#5#165#0#1#10#163#0#1#12#167#0#0#7#169#0#1#14#171#0#0#9#173#0#4
+  +#18#166#0#6#24#167#0#0#11#177#0#0#13#181#0#2#19#180#0#7#30#178#0#4#26#181#0#0
+  +#16#185#0#2#22#185#0#0#18#190#0#4#28#185#0#11'!'#171#0#20'1'#173#0#26'7'#169
+  +#0#11''''#182#0#12''''#182#0#16','#178#0#23'7'#181#0#17'2'#188#0#18'4'#191#0
+  +'">'#171#0'.A'#137#0'-C'#149#0'.J'#175#0'5N'#165#0'>V'#168#0'&E'#185#0'2Q'
+  +#188#0'MY'#128#0'GV'#136#0'S_'#132#0'^g'#129#0']h'#138#0'AY'#170#0'E]'#171#0
+  +'@]'#191#0'H`'#172#0'Vj'#167#0'Nh'#185#0'Sm'#186#0#0#20#194#0#0#22#198#0#2#27
+  +#195#0#0#24#202#0#2#29#200#0#0#26#206#0#0#28#210#0#0#30#215#0#9'&'#193#0#6'$'
+  +#200#0#14'3'#203#0#24';'#194#0#23'='#207#0#2'#'#212#0#10'/'#208#0#0' '#219#0
+  +#0'"'#223#0#6','#216#0#0''''#231#0#0')'#235#0#3'-'#232#0#0'+'#239#0#3'2'#239
+  +#0#16'='#231#0#0'-'#244#0#0'/'#248#0#10'9'#243#0#13'<'#243#0#0'1'#252#0#1'4'
+  +#254#0#4'6'#255#0#7'9'#255#0#10'<'#255#0#13'?'#255#0#16'?'#243#0#23'@'#219#0
+  +' B'#196#0'(J'#198#0'%J'#209#0'%M'#221#0'0T'#211#0#22'B'#231#0#22'E'#243#0#16
+  +'B'#255#0#19'E'#255#0#22'G'#255#0#25'J'#255#0#28'M'#255#0#31'P'#255#0'.X'#233
+  +#0'#T'#255#0',\'#255#0'=i'#244#0'3b'#255#0'8g'#255#0'<k'#255#0'B`'#192#0'Mm'
+  +#205#0'Dj'#224#0'Lr'#225#0'Ks'#235#0'Co'#245#0'It'#245#0'Bq'#255#0#129#129
+  +#129#0#134#134#134#0#137#137#137#0#143#143#143#0#147#147#147#0#154#154#154#0
+  +#162#162#162#0#170#170#170#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0's\'#8#8#4
+  +#4#4#4'Yo'#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'w!'#10#10#8#10#8#8#8#4#4#4#0#4#0#0#24't'#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's'#10#24#10#10#10#10#10#8#8#8#8#4#4#4#4#4#0#4#0#0'o'#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'w'#25#24#24#24#24#10#24#10#10
+  +#10#10#8#8#8#4#4#0#4#4#0#0#0#0#0't'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +'!'#25#25#24#24#24#24#10#10#15#20'.---)$'#18#5#4#0#4#4#0#0#0#0#24#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#25#25#25#25#25#24#24#24#24#24#15':'#143#141#138
+  +#137#137'}'#137'}?$'#6#0#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'w   '#25
+  +#25#25#25#24#24#24#10#24'%'#146#143#141#138#137#137'}'#137#137'}'#137'8'#6#4
+  +#0#0#0#0#0'o'#0#0#0#0#0#0#0#0#0#0#0#0#0'w  '#25' '#25' '#25#25#25#24#24#24#24
+  +'0'#146#146#143#138#138#137#137'}}'#137'}'#137'}*'#2#4#0#0#0#0'o'#0#0#0#0#0#0
+  +#0#0#0#0#0#0'!     '#25#25#25#25#25#24#24#24'='#151#146#146#143#141#138#137
+  +#137#137'}'#137'}'#137#137'?'#6#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'!!!   '#25' '
+  +' '#25#25#25#25#24#24'/'#153#153#146#146#143#138#138#137'}'#137'}'#137'}}'
+  +#137'|'#12#1#0#0#0#0#0#0#0#0#0#0#0#0#0'\!!!!    '#25' '#25#25#25#25#24#24'1'
+  +#153#144'y:'#139#141#138#138'}'#137'}'#137'}}'#137'|'#12#4#0#0#0#24#0#0#0#0#0
+  +#0#0#250'Y!Y!!!    '#25' '#25#25#25#25#24#24#24#24#10#24':'#143#141#138#138
+  +'}'#137'}'#137'}}'#137'|'#6#0#0#0#0't'#0#0#0#0#0#0'YYY!!!!!!    '#25' '#25#25
+  +#25#24#24#24#24#10#15#139#143#141#138#138'}'#137'}'#137'}}'#137'?'#2#4#0#0#0
+  +#0#0#0#0#0'tYY!YY!!!!   '#25' '#25' '#25#25#25#24#24#24#24#21#143#146#143#141
+  +#138#138'}'#137'}'#137'}'#137'}*'#0#4#0#0'o'#0#0#0#0'\YYYY!YY!!!    '#25#25
+  +' '#25#25#25#24#24#21#148#153#146#146#143#141#138#138'}'#137'}'#137'}'#137'}'
+  +#6#0#0#0#0#0#0#0#253'\Y\YYY!!T'#161#194#162'R    '#25#25#25#25#25#29#152#184
+  +#153#153#146#146#143#141#138#138'}'#137'}}'#137'}8'#4#1#4#0't'#0#0'o\\YYYYY'
+  +#165#215#214#214#214#209#156'   '#25' '#25#25#25#27#189#185#184#153#153#146
+  +#146#143#141#138#138'}'#137'}'#137'}'#137#6#3#0#4#24#0#0'`\\\Y\YZ'#218#216
+  ,#215#214#214#209#209'R   '#25' '#25#25#25#152#189#185#153#153#153#146#146#143
+  +#141#138#138#137'}}'#137'}'''#4#0#0#0#0#0'`\\\\YYW'#227#216#216#214#214#214
+  +#209#162'    '#25' '#31#25'H'#185#185#185#184#153#153#146#146#143#141#138'?)'
+  +'9'#137'}?'#4#4#4#0#0#250'```\\\YW'#227#227#217#216#214#214#214#194'!    '#25
+  +' '#25#25#25'F'#149#184#184#153#128#146#146#143#138#16#8#8#137'}'#137#2#4#4#4
+  +'ot````\\\f'#230#227#227#217#216#215#214#157'!!    '#25' '#25#26#25'J'#189
+  +#145'2'#24'A'#146#146'x'#10#10#9'>'#137'}'#18#4#0#4'Ycc````\\\'#222#229#227
+  +#227#217#216#210'7!!!    '#25' '#25#25#130#189'z'#24#24#24';&'#15#10#10#9')|'
+  +#137#18#2#8#4#4'ccc````\\]'#222#229#227#227#218'S!Y!!!    '#26' '#25#155#190
+  +#152#25#24#24#23#15#10#15#10#10#9#9#13#8#8#8#4#3'cccc````\\\fWWYYY!!!!!  N'
+  +#132#158#197#199#190#190#27#24#24#24#23#23#11#10#11#9#9#9#9#8#8#4#4'ccccc```'
+  +'`\\\[YYYYYY!!!! '#201#203#202#159#193#199'F'#25#25#24#24#24#23#23#23#10#23#9
+  +#9#9#9#8#8#4'occccc````\\\[YYY!Y!Y!!'#133#209#203#160' '#25' '#25#25#25#25#24
+  +#24#24#23#23#23#9#23#9#10#9#8#8#8'ooccccc````\\[\YYYYY!!!S'#209#209'N  '#25
+  +' '#25#25#25#25#24#24#24#23#23#23#11#10#11#9#9#8#8'wooocccc````\\[[YYY!YY!!'
+  +#162#214#198'3  '#25' '#25#25#25#27'EC<'#23#10#23#11#10#10#10#9'`'#252'oococ'
+  +'ccc````\\\[YYYY!Y!7'#209#209#202'3  '#25' '#25#25#158#189#187#184#153#22#23
+  +#23#10#10#10#9'o'#0'ooococccc````\\[\YVZYY!T'#214#214#209'M   '#26' F'#191
+  +#190#189#189#185'B'#23#23#23#10#23#9#0#0'oooooccccc````\\^'#221#227#226#166
+  +'YT'#210#214#214#203'5    '#25#130#199#191#190#189#189#129#23#23#23#23#9#23#0
+  +#0'wosoooccm'#178#174'b```\'#168#230#230#230#227#225#218#216#214#135'4!!    '
+  +'I'#202#191#190#190#189'{'#24#24#23#23#23' '#0#0#255'sooooom'#236#238#238#179
+  +'````'#171#232#230#230#230#227#227#216#196'!Y!!!    '#192#199#199#190#189#27
+  +#24#24#23#23#23'w'#0#0#0'osoook'#245#239#239#238#238'h```'#224#232#232#232
+  +#230#229#227#227#217'Y!X!!!   '#30'L'#130'L'#31#27#25#24#24#24#23#0#0#0#0#252
+  +'osoo'#181#247#247#239#239#238#240'cb'#173#233#235#232#232#230#230#230#227
+  +#227#219#164#136'7!!!    '#25#25#25#25#25#25#24#24'p'#0#0#0#0#0'sssoq'#243
+  +#247#247#239#239#238#238#238#235#235#235#232#232#232#232#230#229#227#227#217
+  +#216#195'X!!!     '#25#31#25#25#25#24#0#0#0#0#0#0#254'soso'#175#246#247#247
+  +#239#239#238#238#235#235#235#235#235#232#232#230#230#230#227#227#217#207'X!!'
+  +'!!    '#31#25#31#25#25'w'#0#0#0#0#0#0#0'tsspp'#175#246#247#247#239#239#238
+  +#238#238#235#235#235#232#232#232#232#230#229#227#227#165'YXY!!!    '#26#31#25
+  +'!'#0#0#0#0#0#0#0#0#0'sspso'#176#246#247#247#239#239#238#238#235#235#235#235
+  +#235#232#232#230#230#230#218'YX!47!!!    '#26#31#0#0#0#0#0#0#0#0#0#0#0'ssosp'
+  +#175#244#247#247#239#239#238#238#238#235#235#235#232#232#232#232#230#230#170
+  +'Z'#165#218#215#136'!!!    '#0#0#0#0#0#0#0#0#0#0#0#0#254'sspror'#183#247#247
+  +#239#239#238#238#235#235#235#235#235#232#232#230#230#227#226#227#217#216#136
+  +'!!!!  w'#0#0#0#0#0#0#0#0#0#0#0#0#0#254'ssprqom'#241#247#239#239#238#238#238
+  +#235#235#235#232#232#232#232#230#230#227#220'VYY!!!!w'#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0'ssosopol'#182#242#239#238#238#235#235#235#235#235#232#232#223#167
+  +'^YY!YY!!'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'tspsoooocg'#174#178#180#178
+  +#178#169#169'i_\\\YYYY!`'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#254'sosp'
+  +'oooocccb`````\\[\YYY'#250#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#252'psopoooccccc```\\\[\t'#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#255'tpoooodcccc````o'#253#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#252'wooocccv'#250#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#255#255#224#7#255#255#0#0#255#254#0#0''#255#0#0#255#248#0#0#31#255#0#0
+  +#255#224#0#0#7#255#0#0#255#192#0#0#3#255#0#0#255#128#0#0#1#255#0#0#254#0#0#0
+  +#0''#0#0#252#0#0#0#0'?'#0#0#252#0#0#0#0'?'#0#0#248#0#0#0#0#31#0#0#240#0#0#0
+  +#0#15#0#0#224#0#0#0#0#7#0#0#224#0#0#0#0#7#0#0#192#0#0#0#0#3#0#0#192#0#0#0#0#3
+  +#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#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#0#0#0
+  +#0#0#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1
+  +#0#0#192#0#0#0#0#3#0#0#192#0#0#0#0#3#0#0#224#0#0#0#0#7#0#0#224#0#0#0#0#7#0#0
+  +#240#0#0#0#0#15#0#0#248#0#0#0#0#31#0#0#252#0#0#0#0'?'#0#0#252#0#0#0#0'?'#0#0
+  +#254#0#0#0#0''#0#0#255#128#0#0#1#255#0#0#255#192#0#0#3#255#0#0#255#224#0#0#7
+  +#255#0#0#255#248#0#0#31#255#0#0#255#254#0#0''#255#0#0#255#255#224#7#255#255
+  +#0#0'('#0#0#0' '#0#0#0'@'#0#0#0#1#0#8#0#0#0#0#0#0#4#0#0#0#0#0#0#0#0#0#0#0#1#0
+  +#0#0#1#0#0#0#0#0#0#6#6#6#0#5#5#15#0#9#9#9#0#13#13#13#0#16#16#16#0#22#22#22#0
+  +#26#26#26#0#29#29#29#0#4#4'!'#0#22#22' '#0#29#30'('#0#24#26'/'#0#7#7'7'#0#5#5
+  +'>'#0#16#16'7'#0#27#29'2'#0#31' +'#0'!!!'#0'%%%'#0'***'#0'...'#0'&(3'#0'(*5'
+  +#0'111'#0'555'#0'999'#0'==='#0#13#14'H'#0#23#27'E'#0#21#26'N'#0#24#29'I'#0#16
+  +#21']'#0#21#27'['#0#21#27'\'#0#29'!A'#0#28'$]'#0'&)@'#0'!&H'#0'#)K'#0'17O'#0
+  ,'9<H'#0'<?K'#0'+3Y'#0'39R'#0#4#4'e'#0#5#6'o'#0#8#9'j'#0#14#20'f'#0#1#1'u'#0#9
+  +#15'u'#0#4#4'x'#0#18#31'y'#0#21' n'#0#30',s'#0#26'(z'#0'#/l'#0')5h'#0'2;a'#0
+  +'4>c'#0'$2p'#0'(7v'#0'.={'#0'>D['#0':Fu'#0'=Iw'#0'@@@'#0'DDD'#0'III'#0'NNN'#0
+  +'BEQ'#0'HKW'#0'QQQ'#0'UUU'#0'YYY'#0']]]'#0'CLm'#0'[^g'#0'```'#0'fff'#0'iii'#0
+  +'lll'#0'agx'#0'ppp'#0'uuu'#0'~~~'#0#1#1#135#0#1#1#136#0#12#24#131#0#0#0#144#0
+  +#0#0#154#0#0#2#159#0#11#29#151#0#8#25#156#0#23'*'#138#0#24'*'#137#0#15' '#145
+  +#0#29'6'#155#0#31'9'#158#0#0#5#165#0#0#9#171#0#4#17#164#0#6#24#166#0#10#31
+  +#167#0#0#12#177#0#0#15#184#0#2#19#180#0#7#30#177#0#2#22#186#0#0#18#190#0#19
+  +'/'#170#0#11'$'#177#0#12''''#182#0#17'1'#187#0'#?'#171#0'7J'#141#0'*@'#148#0
+  +'-C'#149#0'4J'#153#0'-F'#163#0'8Q'#167#0'<T'#168#0'$C'#184#0'/M'#188#0'HZ'
+  +#149#0'Uf'#156#0'`h'#130#0'Vj'#167#0#0#21#196#0#0#24#202#0#0#27#208#0#0#30
+  +#215#0#5' '#193#0#14'3'#203#0#21'8'#194#0#24';'#195#0#21';'#206#0#0'"'#221#0
+  +#6'/'#222#0#0'('#233#0#3'/'#234#0#18'>'#231#0#0'+'#240#0#0'.'#246#0#3'2'#240
+  +#0#10':'#242#0#15'>'#243#0#0'2'#252#0#3'6'#254#0#7':'#255#0#12'>'#255#0'"J'
+  +#221#0'8_'#223#0'<b'#223#0#20'B'#243#0#24'G'#243#0#16'B'#255#0#21'G'#255#0#26
+  +'K'#255#0#30'O'#255#0' J'#232#0'(S'#233#0'#T'#255#0'''X'#255#0',\'#255#0':c'
+  +#234#0'>g'#234#0'<h'#244#0'1a'#255#0'5e'#255#0':i'#255#0'?n'#255#0'Jg'#194#0
+  +'In'#225#0'Lr'#225#0'Ep'#245#0'It'#245#0'Cr'#255#0#138#138#138#0#142#142#142
+  +#0#144#144#144#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#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#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#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#0#0#0#0#0#0#0#0#0#0#0#0#0'H'#19#5#5#4#4#19'H'#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0'J'#8#8#8#5#5#5#5#4#4#4#0#0'C'#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0'Q'#19#19#19#8#8#8#8#5#5#5#4#4#4#0#0#0'H'#0#0#0#0#0#0#0#0#0#0#0#0#0#27#20
+  +#20#19#19#19#8' dd[ZW-'#13#4#4#0#0#5#0#0#0#0#0#0#0#0#0#0#0#24#24#20#20#20#19
+  +#19#19#29'dd[[ZZZV'#14#0#0#0#0#0#0#0#0#0#0#0#0#0#27#24#24#24#24#20#20#19#19
+  +'!ihdc[ZZZZ3'#2#0#0#0#0#0#0#0#0#0#0'C'#27#27#24#24#24#20#20#20#19'#jihd[[ZZZ'
+  +'ZY'#9#0#0#5#0#0#0#0#0'S'#27#27#27#27#24#24#24#24#20#20#19'#!'#16'0d[[ZZZZY'
+  +#2#0#0'H'#0#0#0#0'CC'#27#27#27#27#24#24#24#20#20#20#19#19#19#11'hh[[ZZZZ3'#4
+  +#0#0#0#0#0'SDCC'#27#27#24#27#24#24#24#24#20#20#19#19'Xihhc[ZZZZ'#14#0#0'C'#0
+  +#0'DDCC'#27';'#135#144'q:'#24#24#20#20#20'5'#128'iihd[[ZZZW'#4#0#0#0#0'DDDDF'
+  +#146#149#148#148#138#24#24#24#24#20'$'#129#128#128'ihhc[ZZZ'#13#4#4#0'UHHDD@'
+  +#156#150#149#148#148'9'#26#24#24#20#23'`'#129#128'iihd['#28'3Z-'#4#0'CNHHHDA'
+  +#156#156#150#149#148','#26#24#24#24#24#20#22#129'f!eh2'#10#15'ZV'#4#4#8'JHHH'
+  +'HD'#151#157#156#150#135#27#27#27#24#24#24#20'%'#130'4'#19#17#30#16#8#10'/.'
+  +#5#4#4'JJJHHHGvwuC'#27#27#26#27#24'<^p'#131'g'#19#19#19#8#8#8#5#5#5#5#4'JJJJ'
+  +'HHDDDCCB'#27#27#27'('#142#139'^p&'#20#19#19#11#8#8#8#8#5#5#5'NNJJHHHHDDCCC'
+  +#27#27'='#142'n'#24#21#21#20#20#19#18#18#8#8#8#8#5#5'QNJJJJHHHDDCCB'#27#27
+  +#133#139'='#24#24#20#20'&\]#'#11#6#8#6#19#178'NNNJJJHHHDDF?C'#27'b'#148#139
+  +#24#24#24#24#132#129#129'i'#17#8#8#8'H'#0'NNNNJJHHHHL'#160#156'zu'#149#148'b'
+  +#27#24#26#21#137#131#130#129'#'#19#8#8#0#0'QNNNM'#167#170'|HHx'#159#158#156
+  +#156#150'>'#27#27#26#24#24'p'#137#131'k'#19#19#18#8#0#0#178'QQN'#174#171#170
+  +#166'IHx'#162#162#158#156#156'r*'#27#27#27#24#24'67'#23#20#19#19'J'#0#0#0'QN'
+  +'Q'#173#177#170#170#153#153#164#163#162#159#158#157#156#150#136#27#26#27#24
+  +#24#24#23#20#20#19#0#0#0#0#180'QNR'#176#177#171#170#169#169#164#162#162#159
+  +#158#156#156#141#27#27#27#27#24#24#24#24#20'J'#0#0#0#0#0'SQQ~'#176#177#170
+  +#170#169#169#164#163#162#159#158#157'uB*)'#27#27#24#24#24#27#0#0#0#0#0#0#0'Q'
+  +'NQR'#174#177#171#170#169#169#164#162#162#159#158#155'u'#146#145':'#26#27#24
+  +#24#0#0#0#0#0#0#0#0#0'QQNN'#176#170#170#169#169#164#163#162#158#158#157#154
+  +'t'#27#27#27#27#0#0#0#0#0#0#0#0#0#0#0'SQQNN}'#172#166#169#169#164#163#161'{s'
+  +'CCC'#27'C'#0#0#0#0#0#0#0#0#0#0#0#0#0#180'QQNNNJJJHHHDDDCCS'#0#0#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#178'QQNNNJJJHHHDU'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#178'QNJJJNU'#0#0#0#0#0#0#0#0#0#0#0#0#255#240#15#255#255#128#1#255#254#0#0''
+  +#252#0#0'?'#248#0#0#31#240#0#0#15#224#0#0#7#192#0#0#3#192#0#0#3#128#0#0#1#128
+  +#0#0#1#128#0#0#1#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#128#0#0#1#128#0#0#1#128#0#0#1#192#0#0#3#192#0#0#3#224#0#0#7#240#0#0#15
+  +#248#0#0#31#252#0#0'?'#254#0#0''#255#128#1#255#255#240#15#255'('#0#0#0#16#0
+  +#0#0' '#0#0#0#1#0#8#0#0#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1#0#0#0#0#0#0
+  +#4#4#4#0#3#3#13#0#9#9#9#0#14#14#14#0#7#7#26#0#18#18#18#0#24#24#24#0#29#29#29
+  ,#0#27#28'&'#0#14#14'5'#0#18#19':'#0#23#26'9'#0#28#31'?'#0'"""'#0''''''''#0','
+  +',,'#0'%&1'#0')+7'#0'111'#0'666'#0';;;'#0'???'#0#7#7'J'#0#26#30'I'#0#8#9'W'#0
+  +'&*B'#0'7:G'#0'<?K'#0'!(V'#0'$.^'#0'09_'#0#2#2'c'#0#11#15'`'#0#10#14'h'#0#18
+  +#27'h'#0#1#1'~'#0#23'"f'#0#30'(b'#0#31',s'#0'5>c'#0'$3q'#0'!2}'#0'>D['#0'=Jw'
+  +#0'AAA'#0'DDD'#0'III'#0'OOO'#0'ADP'#0'SSS'#0'TTT'#0'YYY'#0'^^^'#0'CJ`'#0'OUi'
+  +#0'\_h'#0'CP{'#0'_ew'#0'bbb'#0'hhh'#0'fiq'#0'sss'#0#4#4#130#0#7#16#140#0#11
+  +#23#141#0#14#30#142#0#0#0#154#0#0#1#156#0#25'+'#138#0#0#6#167#0#10#28#162#0#4
+  +#21#172#0#7#28#172#0#0#12#179#0#0#19#191#0#8'"'#184#0' ='#170#0';Q'#156#0'<Z'
+  +#190#0'@X'#170#0'G_'#172#0'H`'#171#0'Pe'#165#0'Ul'#177#0#0#25#204#0#0#31#216
+  +#0#19'5'#192#0#18';'#219#0#3','#229#0#15';'#231#0#4'3'#240#0#1'3'#252#0#8';'
+  +#255#0#30'C'#208#0')J'#199#0'?c'#212#0#24'C'#231#0#24'D'#231#0#21'C'#243#0#18
+  +'C'#255#0#27'L'#255#0'$T'#255#0'-]'#255#0'6f'#255#0'Pp'#207#0'Ms'#226#0'@n'
+  +#255#0#133#133#133#0#150#150#150#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#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#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#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#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#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#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#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';'#7
+  +#6#4#4'2'#0#0#0#0#0#0#0#0';'#15#15#12'!'#25#23#5#0'-'#0#0#0#0#0'-'#19#16#15
+  +#24'JFCC '#2#6#0#0#0';'#21#19#19#16#17'A@FCC$'#2'-'#0#0'--'#21#21#19#16#15#24
+  +'JFCC '#0#0'l/1X\)'#19#16'GKJFCC'#5'22/9d]W'#19#19#29'IHJ"?'#23#4'420_^('#21
+  +#21#30'L%'#13#9#11#10#4'4422/--'#31'Y'''#26#15#15#7#7#6';;422/+'#21'[*'#19'&'
+  +'U#'#7#7'm;8R79ebZ'#31#19'EVB'#15';'#0'<Tk`OfecM'#21#21#30#18#15#0#0'l=jkhgf'
+  +'ea'#28#27#19#19'2'#0#0#0'>=ikhgfeaM'#21'-'#0#0#0#0#0'l<:SRRN6-;'#0#0#0#0#0#0
+  +#0#0'm;442l'#0#0#0#0#0#248#31#0#0#224#7#0#0#192#3#0#0#128#1#0#0#128#1#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#128#1#0#0#128#1#0#0#192#3#0#0
+  +#224#7#0#0#248#31#0#0'('#0#0#0'0'#0#0#0'`'#0#0#0#1#0' '#0#0#0#0#0#128'%'#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#0#0#0
+  +#0#0#0#0#0#0#0#0#25#25#25'/'#23#23#23'o'#22#22#22#159#20#20#20#191#18#18#18
+  +#255#16#16#16#255#15#15#15#255#13#13#13#255#11#11#11#255#10#10#10#255#8#8#8
+  +#191#7#7#7#159#5#5#5'o'#4#4#4'/'#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#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'   '#31#30#30#30#143#28
+  +#28#28#223#26#26#26#255#25#25#25#255#23#23#23#255#21#21#21#255#20#20#20#255
+  +#18#18#18#255#16#16#16#255#15#15#15#255#13#13#13#255#11#11#11#255#10#10#10
+  +#255#8#8#8#255#6#6#6#255#5#5#5#255#3#3#3#223#2#2#2#143#1#1#1#31#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#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'$$$/###'#175'!!!'#255#31#31#31#255
+  +#30#30#30#255#28#28#28#255#26#26#26#255#25#25#25#255#23#23#23#255#21#21#21
+  +#255#20#20#20#255#18#18#18#255#16#16#16#255#15#15#15#255#13#13#13#255#11#11
+  +#11#255#10#10#10#255#8#8#8#255#6#6#6#255#5#5#5#255#3#3#3#255#1#1#1#255#0#0#0
+  +#159#0#0#0#31#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#0#0#0#0#0#0#0#0#0#0#0#0#0'***'#15'((('#143'&&&'#255'$$$'#255'###'
+  +#255'!!!'#255#31#31#31#255#30#30#30#255#28#28#28#255#26#26#26#255#25#25#25
+  +#255#23#23#23#255#21#21#21#255#20#20#20#255#18#18#18#255#16#16#16#255#15#15
+  +#15#255#13#13#13#255#11#11#11#255#10#10#10#255#8#8#8#255#6#6#6#255#5#5#5#255
+  +#3#3#3#255#1#1#1#255#0#0#0#255#0#0#0#143#0#0#0#15#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#0'---?+++'#239')))'#255'((('
+  +#255'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31#31#255#30#30#30#255#26#27'%'
+  ,#255#19#22'?'#255#13#17'X'#255#11#14'^'#255#10#12'['#255#9#10'X'#255#9#9'V'
+  +#255#9#9'L'#255#11#11'1'#255#12#12#22#255#11#11#11#255#10#10#10#255#8#8#8#255
+  +#6#6#6#255#5#5#5#255#3#3#3#255#1#1#1#255#0#0#0#255#0#0#0#223#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'000o...'#255'---'#255'+'
+  +'++'#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31#31#255
+  +#28#29''''#255#14#20'f'#255#0#9#173#255#0#7#169#255#0#5#165#255#0#3#161#255#0
+  +#1#156#255#0#0#154#255#0#0#154#255#0#0#154#255#2#2''#255#6#6'I'#255#8#8#27
+  +#255#8#8#8#255#6#6#6#255#5#5#5#255#3#3#3#255#1#1#1#255#0#0#0#255#0#0#0#255#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'333'#159'222'#255'000'#255
+  +'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255'!!!'
+  +#255#31#31#31#255#22#26'C'#255#0#11#177#255#0#9#173#255#0#7#169#255#0#5#165
+  +#255#0#3#161#255#0#1#156#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255
+  +#0#0#154#255#3#3'c'#255#7#7#26#255#6#6#6#255#5#5#5#255#3#3#3#255#1#1#1#255#0
+  +#0#0#255#0#0#0#255#0#0#0#159#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'777'#159'555'#255'3'
+  +'33'#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'
+  +#255'$$$'#255'###'#255'!!!'#255#20#25'Y'#255#0#13#181#255#0#11#177#255#0#9
+  +#173#255#0#7#169#255#0#5#165#255#0#3#161#255#0#1#156#255#0#0#154#255#0#0#154
+  +#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#3#3'Z'#255#6#6#15#255#5
+  +#5#5#255#3#3#3#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#159#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':::o8'
+  +'88'#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'
+  +#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255#16#25'o'#255#0#16#185#255#0
+  +#13#181#255#0#11#177#255#0#9#173#255#0#7#169#255#0#5#165#255#0#3#161#255#0#1
+  +#156#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154
+  +#255#1#1'~'#255#5#5'"'#255#5#5#5#255#3#3#3#255#1#1#1#255#0#0#0#255#0#0#0#255
+  +#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'===?;;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'
+  +#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255#24#30'T'
+  +#255#0#18#190#255#0#16#185#255#0#13#181#255#0#11#177#255#0#9#173#255#0#7#169
+  +#255#0#5#165#255#0#3#161#255#0#1#156#255#0#0#154#255#0#0#154#255#0#0#154#255
+  +#0#0#154#255#0#0#154#255#0#0#154#255#0#0#144#255#5#5'"'#255#5#5#5#255#3#3#3
+  +#255#1#1#1#255#0#0#0#255#0#0#0#255#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'AAA'#15'???'#239'==='#255';;;'#255':::'#255'888'#255
+  +'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'
+  +#255'((('#255'&&&'#255'$$$'#255#22#29'^'#255#0#18#190#255#4#18#166#255#9#18
+  +#133#255#14#20'f'#255#1#10#163#255#0#7#169#255#0#5#165#255#0#3#161#255#0#1
+  +#156#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154
+  +#255#0#0#144#255#5#5'"'#255#5#5#5#255#3#3#3#255#1#1#1#255#0#0#0#255#0#0#0#223
+  +#0#0#0#15#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'BBB'#159'@@@'#255
+  +'???'#255'==='#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'
+  +#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255
+  +'###'#255'!!!'#255#31#31#31#255#30#30#30#255#14#20'f'#255#0#9#173#255#0#7#169
+  +#255#0#5#165#255#0#3#161#255#0#1#156#255#0#0#154#255#0#0#154#255#0#0#154#255
+  +#0#0#154#255#0#0#154#255#0#0#154#255#0#0#144#255#5#5'"'#255#5#5#5#255#3#3#3
+  +#255#1#1#1#255#0#0#0#255#0#0#0#143#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'E'
+  +'EE/DDD'#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'#255
+  +'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'
+  +#255'((('#255'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31#31#255#28#29''''#255
+  +#1#12#167#255#0#9#173#255#0#7#169#255#0#5#165#255#0#3#161#255#0#1#156#255#0#0
+  +#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#1#1'~'
+  +#255#6#6#15#255#5#5#5#255#3#3#3#255#1#1#1#255#0#0#0#255#0#0#0#31#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0'GGG'#191'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'#255'='
+  +'=='#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'
+  +#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255
+  +'!!!'#255#25#28'<'#255#1#14#171#255#0#11#177#255#0#9#173#255#0#7#169#255#0#5
+  +#165#255#0#3#161#255#0#1#156#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154
+  +#255#0#0#154#255#0#0#154#255#3#3'Z'#255#6#6#6#255#5#5#5#255#3#3#3#255#1#1#1
+  +#255#0#0#0#159#0#0#0#0#0#0#0#0#0#0#0#0'JJJ'#31'III'#255'GGG'#255'EEE'#255'DD'
+  +'D'#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'#255'777'
+  +#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255
+  +'((('#255'&&&'#255'$$$'#255#28' @'#255#2#19#180#255#0#16#185#255#0#13#181#255
+  ,#0#11#177#255#0#9#173#255#0#7#169#255#0#5#165#255#0#3#161#255#0#1#156#255#0#0
+  +#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#7#7#26
+  +#255#6#6#6#255#5#5#5#255#3#3#3#255#1#1#1#255#1#1#1#31#0#0#0#0#0#0#0#0'LLL'
+  +#143'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'#255
+  +'2<a'#255#23'7'#181#255#14'3'#203#255#17'2'#188#255'"3~'#255'555'#255'333'
+  +#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#255'!$:'#255
+  +#2#23#187#255#0#20#194#255#0#18#190#255#0#16#185#255#0#13#181#255#0#11#177
+  +#255#0#9#173#255#0#7#169#255#0#5#165#255#0#3#161#255#0#1#156#255#0#0#154#255
+  +#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#3#3'c'#255#8#8#8#255#6#6#6
+  +#255#5#5#5#255#3#3#3#255#2#2#2#143#0#0#0#0#0#0#0#0'NNN'#223'LLL'#255'JJJ'#255
+  +'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255',?'#136#255#7'9'#255#255#4'6'
+  +#255#255#1'4'#254#255#0'1'#252#255#0'/'#248#255#20'1'#173#255'555'#255'333'
+  +#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'%''2'#255#0#24#202
+  +#255#0#22#198#255#0#20#194#255#0#18#190#255#0#16#185#255#0#13#181#255#0#11
+  +#177#255#0#9#173#255#0#7#169#255#0#5#165#255#0#3#161#255#0#1#156#255#0#0#154
+  +#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#8#8#27#255#8#8#8#255#6#6
+  +#6#255#5#5#5#255#3#3#3#223#0#0#0#0'QQQ/OOO'#255'NNN'#255'LLL'#255'JJJ'#255'I'
+  +'II'#255'GGG'#255'EEE'#255'@DO'#255#16'?'#243#255#10'<'#255#255#7'9'#255#255
+  +#4'6'#255#255#1'4'#254#255#0'1'#252#255#0'/'#248#255'"3~'#255'555'#255'333'
+  +#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255#5#28#185#255#0#24
+  +#202#255#0#22#198#255#0#20#194#255#0#18#190#255#0#16#185#255#0#13#181#255#0
+  +#11#177#255#0#9#173#255#0#7#169#255#0#5#165#255#0#3#161#255#0#1#156#255#0#0
+  +#154#255#0#0#154#255#0#0#154#255#0#0#154#255#5#5'R'#255#10#10#10#255#8#8#8
+  +#255#6#6#6#255#5#5#5#255#4#4#4'/RRRoQQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'
+  +#255'III'#255'GGG'#255'9Et'#255#16'B'#255#255#13'?'#255#255#10'<'#255#255#7
+  +'9'#255#255#4'6'#255#255#1'4'#254#255#0'1'#252#255#17'2'#188#255'777'#255'55'
+  +'5'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#255#23'#s'#255#2#27
+  +#195#255#0#24#202#255#0#22#198#255#0#20#194#255#0#18#190#255#0#16#185#255#0
+  +#13#181#255#0#11#177#255#0#9#173#255#0#7#169#255#0#5#165#255#5#7'~'#255#10#10
+  +'X'#255#5#5'o'#255#0#0#154#255#0#0#154#255#2#2''#255#11#11#11#255#10#10#10
+  +#255#8#8#8#255#6#6#6#255#5#5#5'oTTT'#175'SSS'#255'QQQ'#255'OOO'#255'NNN'#255
+  +'LLL'#255'JJJ'#255'III'#255';Gu'#255#19'E'#255#255#16'B'#255#255#13'?'#255
+  +#255#10'<'#255#255#7'9'#255#255#4'6'#255#255#1'4'#254#255#14'3'#203#255'888'
+  +#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#255
+  +')))'#255#25'#f'#255#4#26#181#255#0#22#198#255#0#20#194#255#0#18#190#255#6#19
+  +#156#255#0#13#181#255#0#11#177#255#0#9#173#255#0#7#169#255#20#21')'#255#21#21
+  +#21#255#20#20#20#255#0#0#154#255#0#0#154#255#0#0#154#255#12#12#22#255#11#11
+  +#11#255#10#10#10#255#8#8#8#255#7#7#7#159'VVV'#207'TTT'#255'SSS'#255'QQQ'#255
+  +'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'@Ik'#255#22'G'#255#255#19'E'#255#255#16
+  +'B'#255#255#13'?'#255#255#10'<'#255#255#7'9'#255#255#4'6'#255#255#26'7'#169
+  +#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255
+  +'---'#255'+++'#255')))'#255#20'!z'#255#0#24#202#255#6#24#167#255#28' @'#255
+  +'!!!'#255#12#21''#255#0#13#181#255#0#11#177#255#6#14#136#255#25#25#25#255#23
+  +#23#23#255#21#21#21#255#5#5'z'#255#0#0#154#255#0#0#154#255#11#11'1'#255#13#13
+  +#13#255#11#11#11#255#10#10#10#255#8#8#8#191'XXX'#255'VVV'#255'TTT'#255'SSS'
+  +#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'%J'#209#255#22'G'#255#255
+  +#19'E'#255#255#16'B'#255#255#13'?'#255#255#10'<'#255#255#10'9'#243#255'6<U'
+  +#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255
+  +'...'#255'---'#255'+++'#255#18'"'#136#255#0#26#206#255#14#29#141#255'$$$'#255
+  +'###'#255'!!!'#255#18#24'b'#255#20#25'M'#255#24#26'.'#255#26#26#26#255#25#25
+  +#25#255#23#23#23#255#12#13'R'#255#1#2#148#255#0#0#154#255#11#11';'#255#15#15
+  +#15#255#13#13#13#255#11#11#11#255#10#10#10#255'YYY'#255'XXX'#255'VVV'#255'TT'
+  +'T'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'GJV'#255'%J'#209#255#22
+  +'G'#255#255#19'E'#255#255#16'B'#255#255#16'?'#243#255'3?p'#255'???'#255'==='
+  +#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255
+  +'...'#255'---'#255#11'!'#171#255#0#28#210#255#4#28#185#255'&&&'#255'$$$'#255
+  +'###'#255'!!!'#255#31#31#31#255#30#30#30#255#28#28#28#255#26#26#26#255#25#25
+  +#25#255#23#23#23#255#21#21#21#255#17#17'%'#255#18#18#18#255#16#16#16#255#15
+  +#15#15#255#13#13#13#255#11#11#11#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'
+  +#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'@Ik'#255';Gu'#255
+  +'9Et'#255'DDD'#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'
+  +#255'777'#255'555'#255'#0m'#255#21','#152#255#11''''#182#255#2'#'#212#255#0
+  +' '#219#255#0#30#215#255#0#28#210#255'%''2'#255'&&&'#255'$$$'#255'###'#255'!'
+  +'!!'#255#31#31#31#255#30#30#30#255#28#28#28#255#26#26#26#255#25#25#25#255#23
+  ,#23#23#255#21#21#21#255#20#20#20#255#18#18#18#255#16#16#16#255#15#15#15#255
+  +#13#13#13#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255
+  +'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'
+  +#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'#255'777'#255
+  +#6','#216#255#0')'#235#255#0''''#231#255#12''''#182#255#6'$'#200#255#0' '#219
+  +#255#27'&k'#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31
+  +#31#255#30#30#30#255#28#28#28#255#26#26#26#255#25#25#25#255#23#23#23#255#21
+  +#21#21#255#20#20#20#255#18#18#18#255#16#16#16#255#15#15#15#255'^^^'#255']]]'
+  +#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255
+  +'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'
+  +#255'???'#255'==='#255';;;'#255':::'#255' 4'#140#255#0'-'#244#255#0'+'#239
+  +#255#16','#178#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('
+  +#255'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31#31#255#30#30#30#255#28#28#28
+  +#255#26#26#26#255#25#25#25#255#23#23#23#255#21#21#21#255#20#20#20#255#18#18
+  +#18#255#16#16#16#255'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'V'
+  +'VV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'
+  +#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'#255'==='#255';;;'#255
+  +',8j'#255#0'/'#248#255#0'-'#244#255'$2p'#255'333'#255'222'#255'000'#255'...'
+  +#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$'#255'###'#255'!!!'#255
+  +#31#31#31#255#30#30#30#255#28#28#28#255#26#26#26#255#25#25#25#255#23#23#23
+  +#255#21#21#21#255#20#20#20#255#18#18#18#255'bbb'#207'```'#255'^^^'#255']]]'
+  +#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255
+  +'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'
+  +#255'???'#255'==='#255';;;'#255#18'4'#191#255#0'/'#248#255#10'/'#208#255'.4M'
+  +#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'%''2'#255
+  +#21' n'#255#18#29'u'#255#19#28'i'#255#31' +'#255#31#31#31#255#30#30#30#255#28
+  +#28#28#255#26#26#26#255#25#25#25#255#23#23#23#255#21#21#21#255#20#20#20#191
+  +'ccc'#175'bbb'#255'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'
+  +#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255
+  +'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'#255'==='#255'4:T'#255#0'1'
+  +#252#255#0'/'#248#255#3'-'#232#255'.4M'#255'333'#255'222'#255'000'#255'...'
+  +#255'---'#255'+++'#255#7#30#178#255#0#26#206#255#0#24#202#255#0#22#198#255#2
+  +#21#184#255#31' +'#255#31#31#31#255#30#30#30#255#28#28#28#255#26#26#26#255#25
+  +#25#25#255#23#23#23#255#22#22#22#175'eeeoccc'#255'bbb'#255'```'#255'^^^'#255
+  +']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'
+  +#255'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'<Eh'#255'ADO'#255'BBB'#255
+  +'@@@'#255'???'#255'2<a'#255#1'4'#254#255#0'1'#252#255#0'/'#248#255')4f'#255
+  +'555'#255'333'#255'222'#255'000'#255'...'#255#28'(n'#255#0#30#215#255#0#28
+  +#210#255#0#26#206#255#0#24#202#255#0#22#198#255#15#26'|'#255'!!!'#255#31#31
+  +#31#255#30#30#30#255#28#28#28#255#26#26#26#255#25#25#25#255#23#23#23'offf/ee'
+  +'e'#255'ccc'#255'bbb'#255'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'
+  +#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'EKa'#255
+  +'(J'#198#255#22'G'#255#255#22'E'#243#255'-C'#149#255'BBB'#255'6@d'#255#10'9'
+  +#243#255#4'6'#255#255#1'4'#254#255#3'2'#239#255'.7\'#255'777'#255'555'#255'3'
+  +'33'#255'222'#255'000'#255#23'('#134#255#0' '#219#255#0#30#215#255#0#28#210
+  +#255#0#26#206#255#0#24#202#255#9#25#157#255'###'#255'!!!'#255#31#31#31#255#30
+  +#30#30#255#28#28#28#255#26#26#26#255#25#25#25'/'#0#0#0#0'ggg'#223'eee'#255'c'
+  +'cc'#255'bbb'#255'```'#255'^^^'#255']]]'#255'[[['#255'S\x'#255'F^'#171#255'M'
+  +'Y'#128#255'RU_'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'5N'#165#255#28'M'
+  +#255#255#25'J'#255#255#22'G'#255#255#19'E'#255#255#22'B'#231#255#16'?'#243
+  +#255#10'<'#255#255#7'9'#255#255' :'#158#255'8;H'#255':::'#255'888'#255'777'
+  +#255'555'#255'333'#255'222'#255#30'+s'#255#0'"'#223#255#0' '#219#255#0#30#215
+  +#255#0#28#210#255#0#26#206#255#16#30#130#255'$$$'#255'###'#255'!!!'#255#31#31
+  +#31#255#30#30#30#255#28#28#28#223#0#0#0#0#0#0#0#0'hhh'#143'ggg'#255'eee'#255
+  +'ccc'#255'bbb'#255'```'#255'^^^'#255'W`{'#255'=i'#244#255'8g'#255#255'5d'#255
+  +#255'@]'#191#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'2Q'#188#255#31'P'#255
+  +#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#19'E'#255#255#16'B'#255#255#13
+  +'?'#255#255#23'='#207#255'???'#255'==='#255';;;'#255':::'#255'888'#255'777'
+  +#255'555'#255'333'#255'222'#255#9'&'#193#255#0'"'#223#255#0' '#219#255#0#30
+  +#215#255#2#29#200#255'%''2'#255'&&&'#255'$$$'#255'###'#255'!!!'#255#31#31#31
+  +#255#30#30#30#143#0#0#0#0#0#0#0#0'iii'#31'hhh'#255'ggg'#255'eee'#255'ccc'#255
+  +'bbb'#255'^aj'#255'Co'#245#255'>m'#255#255';j'#255#255'8g'#255#255'5d'#255
+  +#255'RXk'#255'TTT'#255'SSS'#255'QQQ'#255'0T'#211#255'"S'#255#255#31'P'#255
+  +#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#19'E'#255#255#16'B'#255#255#13
+  ,'?'#255#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'#255'777'#255'5'
+  +'55'#255'333'#255'/1='#255#27'+~'#255#23'('#134#255#25'''y'#255'(*6'#255')))'
+  +#255'((('#255'&&&'#255'$$$'#255'###'#255'!!!'#255'   '#31#0#0#0#0#0#0#0#0#0#0
+  +#0#0'jjj'#191'hhh'#255'ggg'#255'eee'#255'ccc'#255'Vj'#167#255'Ds'#255#255'Ap'
+  +#255#255'>m'#255#255';j'#255#255'8g'#255#255'B`'#192#255'VVV'#255'RU_'#255'G'
+  +'V'#136#255'.X'#233#255'%V'#255#255'"S'#255#255#31'P'#255#255#28'M'#255#255
+  +#25'J'#255#255#22'G'#255#255#19'E'#255#255#16'B'#255#255#23'@'#219#255'">'
+  +#171#255'#<'#158#255'6<U'#255';;;'#255':::'#255'888'#255'777'#255'555'#255'3'
+  +'33'#255'222'#255'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'
+  +#255'$$$'#255'###'#175#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk?jjj'#255'hhh'#255
+  +'ggg'#255'eee'#255'bem'#255'Lr'#225#255'Ds'#255#255'Ap'#255#255'>m'#255#255
+  +';j'#255#255'8g'#255#255'5d'#255#255'2a'#255#255'/_'#255#255',\'#255#255')Y'
+  +#255#255'%V'#255#255'"S'#255#255#31'P'#255#255#28'M'#255#255#25'J'#255#255#22
+  +'G'#255#255#19'E'#255#255#16'B'#255#255#13'?'#255#255#10'<'#255#255#24';'#194
+  +#255'==='#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255
+  +'000'#255'...'#255'---'#255'+++'#255')))'#255'((('#255'&&&'#255'$$$/'#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk'#159'jjj'#255'hhh'#255'ggg'#255'eee'#255
+  +'^g'#129#255'It'#245#255'Ds'#255#255'Ap'#255#255'>m'#255#255';j'#255#255'8g'
+  +#255#255'5d'#255#255'2a'#255#255'/_'#255#255',\'#255#255')Y'#255#255'%V'#255
+  +#255'"S'#255#255#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#19
+  +'E'#255#255#16'B'#255#255#13'?'#255#255#16'='#231#255'???'#255'==='#255';;;'
+  +#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255'000'#255'...'#255
+  +'---'#255'+++'#255')))'#255'((('#159#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#0#0#0'kkk'#15'kkk'#239'jjj'#255'hhh'#255'ggg'#255'eee'#255'^g'#129#255'Gv'
+  +#255#255'Ds'#255#255'Ap'#255#255'>m'#255#255';j'#255#255'8g'#255#255'5d'#255
+  +#255'2a'#255#255'/_'#255#255',\'#255#255')Y'#255#255'%V'#255#255'"S'#255#255
+  +#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'#255#255#19'E'#255#255#16'B'
+  +#255#255'.A'#137#255'@@@'#255'???'#255'==='#255';;;'#255':::'#255'888'#255'7'
+  +'77'#255'555'#255'333'#255'222'#255'000'#255'...'#255'---'#255'+++'#239'***'
+  +#15#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'kkk?kkk'#255'jjj'
+  +#255'hhh'#255'ggg'#255'eee'#255']h'#138#255'It'#245#255'Ds'#255#255'Ap'#255
+  +#255'>m'#255#255';j'#255#255'8g'#255#255'5d'#255#255'2a'#255#255'/_'#255#255
+  +',\'#255#255')Y'#255#255'%V'#255#255'"S'#255#255#31'P'#255#255#28'M'#255#255
+  +#25'J'#255#255#22'G'#255#255#22'E'#243#255'DDD'#255'BBB'#255'@@@'#255';>K'
+  +#255'6<U'#255';;;'#255':::'#255'888'#255'777'#255'555'#255'333'#255'222'#255
+  +'000'#255'...'#255'---?'#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'kkkkkk'#255'jjj'#255'hhh'#255'ggg'#255'eee'#255'^g'#129
+  +#255'Ks'#235#255'Ds'#255#255'Ap'#255#255'>m'#255#255';j'#255#255'8g'#255#255
+  +'5d'#255#255'2a'#255#255'/_'#255#255',\'#255#255')Y'#255#255'%V'#255#255'"S'
+  +#255#255#31'P'#255#255#28'M'#255#255#25'J'#255#255#22'G'#255#255'&E'#185#255
+  +'ADO'#255'.A'#137#255#13'<'#243#255#7'9'#255#255'!:'#157#255';;;'#255':::'
+  +#255'888'#255'777'#255'555'#255'333'#255'222'#255'000o'#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'kkk'#159
+  +'kkk'#255'jjj'#255'hhh'#255'ggg'#255'eee'#255'bem'#255'Sm'#186#255'Ds'#255
+  +#255'Ap'#255#255'>m'#255#255';j'#255#255'8g'#255#255'5d'#255#255'2a'#255#255
+  +'/_'#255#255',\'#255#255')Y'#255#255'%V'#255#255'"S'#255#255#31'P'#255#255#28
+  +'M'#255#255#25'J'#255#255#22'G'#255#255#22'E'#243#255#16'B'#255#255#13'?'#255
+  +#255#10'<'#255#255'#<'#159#255'==='#255';;;'#255':::'#255'888'#255'777'#255
+  +'555'#255'333'#159#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'kkk'#159'kkk'#255'jjj'#255'hh'
+  +'h'#255'ggg'#255'eee'#255'ccc'#255']e'#255'Mm'#205#255'Ap'#255#255'>m'#255
+  +#255';j'#255#255'8g'#255#255'5d'#255#255'2a'#255#255'/_'#255#255',\'#255#255
+  +')Y'#255#255'%V'#255#255'"S'#255#255#31'P'#255#255#28'M'#255#255#25'J'#255
+  +#255#22'G'#255#255#19'E'#255#255' B'#196#255'8Ae'#255'@@@'#255'???'#255'==='
+  +#255';;;'#255':::'#255'888'#255'777'#159#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'kkkkkk'#255'jjj'#255'hhh'#255'ggg'#255'eee'#255'ccc'#255'bbb'#255
+  +']bt'#255'Nh'#185#255'Dj'#224#255';j'#255#255'8g'#255#255'5d'#255#255'2a'#255
+  +#255'/_'#255#255',\'#255#255')Y'#255#255'%V'#255#255'"S'#255#255#31'P'#255
+  +#255'%M'#221#255'.J'#175#255'AG^'#255'EEE'#255'DDD'#255'BBB'#255'@@@'#255'??'
+  +'?'#255'==='#255';;;'#255':::o'#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'kkkOkkk'#239'jjj'#255'hhh'#255'ggg'#255'eee'#255'ccc'#255'bbb'
+  +#255'```'#255'^^^'#255'[^g'#255'S_'#132#255'H`'#172#255'F^'#171#255'D\'#171
+  ,#255'AY'#170#255'?W'#169#255'=U'#168#255'EQ{'#255'KNY'#255'LLL'#255'JJJ'#255
+  +'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'#255'@@@'#255'???'#239'===?'#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#0'kkk'#15
+  +'kkk'#159'jjj'#255'hhh'#255'ggg'#255'eee'#255'ccc'#255'bbb'#255'```'#255'^^^'
+  +#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255
+  +'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255'GGG'#255'EEE'#255'DDD'#255'BBB'
+  +#159'AAA'#15#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#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk?jjj'#191'hhh'#255'ggg'#255'eee'#255
+  +'ccc'#255'bbb'#255'```'#255'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'
+  +#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'#255'LLL'#255'JJJ'#255'III'#255
+  +'GGG'#191'EEE?'#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#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'iii'
+  +#31'hhh'#143'ggg'#239'eee'#255'ccc'#255'bbb'#255'```'#255'^^^'#255']]]'#255
+  +'[[['#255'YYY'#255'XXX'#255'VVV'#255'TTT'#255'SSS'#255'QQQ'#255'OOO'#255'NNN'
+  +#223'LLL'#143'JJJ'#31#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#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'fff/eeeccc'#175'bbb'#207'```'#255
+  +'^^^'#255']]]'#255'[[['#255'YYY'#255'XXX'#255'VVV'#207'TTT'#175'RRRQQQ/'#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#255#255#128#1#255
+  +#255#0#0#255#252#0#0'?'#255#0#0#255#240#0#0#15#255#0#0#255#192#0#0#3#255#0#0
+  +#255#128#0#0#1#255#0#0#255#0#0#0#0#255#0#0#254#0#0#0#0''#0#0#252#0#0#0#0'?'
+  +#0#0#248#0#0#0#0#31#0#0#240#0#0#0#0#15#0#0#224#0#0#0#0#7#0#0#224#0#0#0#0#7#0
+  +#0#192#0#0#0#0#3#0#0#192#0#0#0#0#3#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0
+  +#128#0#0#0#0#1#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#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#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0#128#0#0#0#0#1#0#0#192#0#0
+  +#0#0#3#0#0#192#0#0#0#0#3#0#0#224#0#0#0#0#7#0#0#224#0#0#0#0#7#0#0#240#0#0#0#0
+  +#15#0#0#248#0#0#0#0#31#0#0#252#0#0#0#0'?'#0#0#254#0#0#0#0''#0#0#255#0#0#0#0
+  +#255#0#0#255#128#0#0#1#255#0#0#255#192#0#0#3#255#0#0#255#240#0#0#15#255#0#0
+  +#255#252#0#0'?'#255#0#0#255#255#128#1#255#255#0#0'('#0#0#0' '#0#0#0'@'#0#0#0
+  +#1#0' '#0#0#0#0#0#128#16#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#28#28#28#31
+  +#26#26#26'o'#23#23#23#191#21#21#21#239#18#18#18#255#16#16#16#255#13#13#13#255
+  +#11#11#11#255#8#8#8#223#6#6#6#175#4#4#4'o'#3#3#3#31#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'$$$?!!!'#191#31#31#31#255#28#28#28
+  +#255#26#26#26#255#23#23#23#255#21#21#21#255#18#18#18#255#16#16#16#255#13#13
+  +#13#255#11#11#11#255#8#8#8#255#6#6#6#255#3#3#3#255#1#1#1#191#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'+++'#15')))'#175'&&&'#255'$$$'#255'!!!'#255#31
+  +#31#31#255#28#28#28#255#26#26#26#255#23#23#23#255#21#21#21#255#18#18#18#255
+  +#16#16#16#255#13#13#13#255#11#11#11#255#8#8#8#255#6#6#6#255#3#3#3#255#1#1#1
+  +#255#0#0#0#175#0#0#0#15#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'000?...'#239'+++'#255')))'#255'&&&'#255'$'
+  +'$$'#255'!!!'#255#31#31#31#255#16#21']'#255#0#9#171#255#0#5#165#255#0#2#159
+  +#255#0#0#154#255#1#1#136#255#4#4'e'#255#7#7'7'#255#8#8#8#255#6#6#6#255#3#3#3
+  +#255#1#1#1#255#0#0#0#239#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'555_333'#255'000'#255'...'#255'+++'#255')))'#255
+  +'&&&'#255'$$$'#255'!!!'#255#23#27'E'#255#0#12#177#255#0#9#171#255#0#5#165#255
+  +#0#2#159#255#0#0#154#255#0#0#154#255#0#0#154#255#1#1#135#255#5#5'>'#255#6#6#6
+  +#255#3#3#3#255#1#1#1#255#0#0#0#255#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':::?888'#255'555'#255'333'#255'000'#255'...'#255'+++'
+  +#255')))'#255'&&&'#255'$$$'#255#21#27'\'#255#0#15#184#255#0#12#177#255#0#9
+  +#171#255#0#5#165#255#0#2#159#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154
+  +#255#1#1'u'#255#5#5#15#255#3#3#3#255#1#1#1#255#0#0#0#255#0#0#0'/'#0#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'???'#31'<<<'#239':::'#255'888'#255'555'#255'333'
+  +#255'000'#255'...'#255'+++'#255')))'#255'&&&'#255#29'!A'#255#2#19#180#255#0
+  +#15#184#255#0#12#177#255#0#9#171#255#0#5#165#255#0#2#159#255#0#0#154#255#0#0
+  ,#154#255#0#0#154#255#0#0#154#255#0#0#144#255#4#4'!'#255#3#3#3#255#1#1#1#255#0
+  +#0#0#239#0#0#0#15#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'AAA'#191'???'#255'<<<'#255
+  +':::'#255'888'#255'555'#255'333'#255'000'#255'...'#255'+++'#255')))'#255'&&&'
+  +#255#29'!A'#255#21#27'\'#255#27#29'2'#255#14#20'f'#255#0#9#171#255#0#5#165
+  +#255#0#2#159#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#154#255#0#0#144#255
+  +#5#5#15#255#3#3#3#255#1#1#1#255#0#0#0#175#0#0#0#0#0#0#0#0#0#0#0#0'FFF?DDD'
+  +#255'AAA'#255'???'#255'<<<'#255':::'#255'888'#255'555'#255'333'#255'000'#255
+  +'...'#255'+++'#255')))'#255'&&&'#255'$$$'#255'!!!'#255#29#30'('#255#0#12#177
+  +#255#0#9#171#255#0#5#165#255#0#2#159#255#0#0#154#255#0#0#154#255#0#0#154#255
+  +#0#0#154#255#1#1'u'#255#6#6#6#255#3#3#3#255#1#1#1#255#0#0#0'?'#0#0#0#0#0#0#0
+  +#0'III'#191'FFF'#255'DDD'#255'AAA'#255'???'#255'<<<'#255':::'#255'888'#255'5'
+  +'55'#255'333'#255'000'#255'...'#255'+++'#255')))'#255'&&&'#255'$$$'#255#12#24
+  +#131#255#0#15#184#255#0#12#177#255#0#9#171#255#0#5#165#255#0#2#159#255#0#0
+  +#154#255#0#0#154#255#0#0#154#255#0#0#154#255#5#5'>'#255#6#6#6#255#3#3#3#255#1
+  +#1#1#191#0#0#0#0'NNN'#31'KKK'#255'III'#255'FFF'#255'DDD'#255'AAA'#255'4>c'
+  +#255#21'8'#194#255#3'2'#240#255#17'1'#187#255'+3Y'#255'333'#255'000'#255'...'
+  +#255'+++'#255')))'#255#21' n'#255#0#21#196#255#0#18#190#255#0#15#184#255#0#12
+  +#177#255#0#9#171#255#0#5#165#255#0#2#159#255#0#0#154#255#0#0#154#255#0#0#154
+  +#255#1#1#135#255#8#8#8#255#6#6#6#255#3#3#3#255#3#3#3#31'PPPoNNN'#255'KKK'#255
+  +'III'#255'FFF'#255'ADP'#255#15'>'#243#255#7':'#255#255#3'6'#254#255#0'2'#252
+  +#255#6'/'#222#255'555'#255'333'#255'000'#255'...'#255'+++'#255#28'$]'#255#0
+  +#24#202#255#0#21#196#255#0#18#190#255#0#15#184#255#0#12#177#255#0#9#171#255#0
+  +#5#165#255#0#2#159#255#0#0#154#255#0#0#154#255#0#0#154#255#7#7'7'#255#8#8#8
+  +#255#6#6#6#255#4#4#4'oSSS'#191'QQQ'#255'NNN'#255'KKK'#255'III'#255':Fu'#255
+  +#16'B'#255#255#12'>'#255#255#7':'#255#255#3'6'#254#255#0'2'#252#255')5h'#255
+  +'555'#255'333'#255'000'#255'...'#255'(*5'#255#15' '#145#255#0#24#202#255#0#21
+  +#196#255#0#18#190#255#0#15#184#255#0#12#177#255#0#9#171#255#0#5#165#255#13#14
+  +'H'#255#4#4'x'#255#0#0#154#255#4#4'e'#255#11#11#11#255#8#8#8#255#6#6#6#191'V'
+  +'VV'#239'SSS'#255'QQQ'#255'NNN'#255'KKK'#255'=Iw'#255#21'G'#255#255#16'B'#255
+  +#255#12'>'#255#255#7':'#255#255#3'6'#254#255'39R'#255'888'#255'555'#255'333'
+  +#255'000'#255'...'#255'+++'#255'&(3'#255#0#24#202#255#6#24#166#255#21#27'['
+  +#255#4#17#164#255#0#12#177#255#9#15'u'#255#23#23#23#255#16#16'7'#255#0#0#154
+  +#255#1#1#136#255#13#13#13#255#11#11#11#255#8#8#8#239'XXX'#255'VVV'#255'SSS'
+  +#255'QQQ'#255'NNN'#255'KKK'#255'"J'#221#255#21'G'#255#255#16'B'#255#255#12'>'
+  +#255#255#24';'#195#255'<<<'#255':::'#255'888'#255'555'#255'333'#255'000'#255
+  +'...'#255'&)@'#255#0#27#208#255#18#31'y'#255'$$$'#255#31' +'#255#21#26'N'#255
+  +#24#26'/'#255#26#26#26#255#22#22' '#255#8#9'j'#255#5#6'o'#255#16#16#16#255#13
+  +#13#13#255#11#11#11#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255
+  +'HKW'#255'4J'#153#255'-F'#163#255'-C'#150#255'AAA'#255'???'#255'<<<'#255':::'
+  +#255'888'#255'555'#255'#/l'#255#23'*'#138#255#11'%'#177#255#0#30#215#255#10
+  +#31#167#255'&&&'#255'$$$'#255'!!!'#255#31#31#31#255#28#28#28#255#26#26#26#255
+  +#23#23#23#255#21#21#21#255#18#18#18#255#16#16#16#255#13#13#13#255']]]'#255'['
+  +'[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'KKK'#255'III'#255'FFF'
+  +#255'DDD'#255'AAA'#255'???'#255'<<<'#255':::'#255'17O'#255#0'+'#240#255#0'('
+  +#233#255#24'*'#137#255#11'$'#177#255'#)K'#255')))'#255'&&&'#255'$$$'#255'!!!'
+  +#255#31#31#31#255#28#28#28#255#26#26#26#255#23#23#23#255#21#21#21#255#18#18
+  +#18#255#16#16#16#255'```'#255']]]'#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'Q'
+  +'QQ'#255'NNN'#255'KKK'#255'III'#255'FFF'#255'DDD'#255'AAA'#255'???'#255'<<<'
+  +#255'(7v'#255#0'.'#246#255#19'/'#170#255'333'#255'000'#255'...'#255'+++'#255
+  +')))'#255'&&&'#255'$$$'#255'!!!'#255#31#31#31#255#28#28#28#255#26#26#26#255
+  +#23#23#23#255#21#21#21#255#18#18#18#255'bbb'#239'```'#255']]]'#255'[[['#255
+  +'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'KKK'#255'III'#255'FFF'#255'DDD'
+  +#255'AAA'#255'???'#255'<<<'#255#14'3'#203#255#3'/'#234#255'$2p'#255'333'#255
+  +'000'#255'...'#255'+++'#255'!&H'#255#11#29#151#255#8#25#156#255#24#29'I'#255
+  +#31#31#31#255#28#28#28#255#26#26#26#255#23#23#23#255#21#21#21#239'ddd'#191'b'
+  +'bb'#255'```'#255']]]'#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'
+  +#255'KKK'#255'III'#255'CFR'#255'>D['#255'AAA'#255'???'#255#31'9'#158#255#0'2'
+  +#252#255#3'/'#234#255'555'#255'333'#255'000'#255'...'#255#5' '#193#255#0#27
+  +#208#255#0#24#202#255#2#22#186#255#31' +'#255#31#31#31#255#28#28#28#255#26#26
+  +#26#255#23#23#23#191'fffoeee'#255'bbb'#255'```'#255']]]'#255'[[['#255'XXX'
+  +#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'CLm'#255' J'#232#255#21'G'#255#255
+  +'$C'#184#255'*@'#148#255#7':'#255#255#3'6'#254#255#29'6'#155#255'888'#255'55'
+  +'5'#255'333'#255'000'#255#0'"'#221#255#0#30#215#255#0#27#208#255#0#24#202#255
+  +#29'!B'#255'!!!'#255#31#31#31#255#28#28#28#255#26#26#26'ohhh'#31'ggg'#255'ee'
+  ,'e'#255'bbb'#255'```'#255'[^g'#255'<h'#244#255'5e'#255#255'HZ'#149#255'SSS'
+  +#255'QQQ'#255'8Q'#167#255#30'O'#255#255#26'K'#255#255#21'G'#255#255#16'B'#255
+  +#255#12'>'#255#255'.={'#255'<<<'#255':::'#255'888'#255'555'#255'333'#255#12
+  +''''#182#255#0'"'#221#255#0#30#215#255#7#30#177#255'&&&'#255'$$$'#255'!!!'
+  +#255#31#31#31#255#28#28#28#31#0#0#0#0'iii'#191'ggg'#255'eee'#255'bbb'#255'In'
+  +#225#255'?n'#255#255':i'#255#255':c'#234#255'VVV'#255'SSS'#255'<T'#168#255'#'
+  +'T'#255#255#30'O'#255#255#26'K'#255#255#21'G'#255#255#16'B'#255#255'#?'#171
+  +#255'<?K'#255'<<<'#255':::'#255'888'#255'555'#255'333'#255#30',s'#255#26'(z'
+  +#255'(*6'#255')))'#255'&&&'#255'$$$'#255'!!!'#191#0#0#0#0#0#0#0#0'kkk?iii'
+  +#255'ggg'#255'eee'#255'Lr'#225#255'Cr'#255#255'?n'#255#255':i'#255#255'<b'
+  +#223#255'8_'#223#255',\'#255#255'''X'#255#255'#T'#255#255#30'O'#255#255#26'K'
+  +#255#255#21'G'#255#255#16'B'#255#255#12'>'#255#255#21';'#206#255'<<<'#255'::'
+  +':'#255'888'#255'555'#255'333'#255'000'#255'...'#255'+++'#255')))'#255'&&&'
+  +#255'$$$?'#0#0#0#0#0#0#0#0#0#0#0#0'kkk'#191'iii'#255'ggg'#255'agx'#255'It'
+  +#245#255'Cr'#255#255'?n'#255#255':i'#255#255'5e'#255#255'1a'#255#255',\'#255
+  +#255'''X'#255#255'#T'#255#255#30'O'#255#255#26'K'#255#255#21'G'#255#255#16'B'
+  +#255#255#18'>'#231#255'???'#255'<<<'#255':::'#255'888'#255'555'#255'333'#255
+  +'000'#255'...'#255'+++'#255')))'#191#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk'#31
+  +'kkk'#239'iii'#255'ggg'#255'`h'#130#255'It'#245#255'Cr'#255#255'?n'#255#255
+  +':i'#255#255'5e'#255#255'1a'#255#255',\'#255#255'''X'#255#255'#T'#255#255#30
+  +'O'#255#255#26'K'#255#255#21'G'#255#255'.C'#149#255'AAA'#255'<?K'#255'9<H'
+  +#255':::'#255'888'#255'555'#255'333'#255'000'#255'...'#239'+++'#31#0#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'kkk?kkk'#255'iii'#255'ggg'#255'agx'#255'Lr'
+  +#225#255'Cr'#255#255'?n'#255#255':i'#255#255'5e'#255#255'1a'#255#255',\'#255
+  +#255'''X'#255#255'#T'#255#255#30'O'#255#255#26'K'#255#255#24'G'#243#255'.C'
+  +#149#255#15'>'#243#255#10':'#242#255'2;a'#255':::'#255'888'#255'555'#255'333'
+  +#255'000?'#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'kkk_kkk'
+  +#255'iii'#255'ggg'#255'eee'#255'Vj'#167#255'Ep'#245#255'?n'#255#255':i'#255
+  +#255'5e'#255#255'1a'#255#255',\'#255#255'''X'#255#255'#T'#255#255#30'O'#255
+  +#255#26'K'#255#255#21'G'#255#255#20'B'#243#255'*@'#148#255'???'#255'<<<'#255
+  +':::'#255'888'#255'555_'#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'kkk?kkk'#239'iii'#255'ggg'#255'eee'#255'bbb'#255'Uf'#156
+  +#255'Jg'#194#255'>g'#234#255'5e'#255#255'1a'#255#255',\'#255#255'''X'#255#255
+  +'(S'#233#255'/M'#188#255'7J'#141#255'FFF'#255'DDD'#255'AAA'#255'???'#255'<<<'
+  +#239':::?'#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'kkk'#31'kkk'#191'iii'#255'ggg'#255'eee'#255'bbb'#255
+  +'```'#255']]]'#255'[[['#255'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'KKK'
+  +#255'III'#255'FFF'#255'DDD'#255'AAA'#191'???'#31#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'kkk?iii'#191'ggg'#255'eee'#255'bbb'#255'```'#255']]]'#255'[[['#255
+  +'XXX'#255'VVV'#255'SSS'#255'QQQ'#255'NNN'#255'KKK'#255'III'#191'FFF?'#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'hhh'#31'fffoddd'
+  +#191'bbb'#239'```'#255']]]'#255'[[['#255'XXX'#255'VVV'#239'SSS'#191'PPPoNNN'
+  +#31#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#255#192#3#255#255#0#0#255#252#0#0'?'#248#0#0#31#240#0#0#15#224#0#0#7
+  +#192#0#0#3#192#0#0#3#128#0#0#1#128#0#0#1#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#128#0#0#1#128#0
+  +#0#1#192#0#0#3#192#0#0#3#224#0#0#7#240#0#0#15#248#0#0#31#252#0#0'?'#255#0#0
+  +#255#255#192#3#255'('#0#0#0#16#0#0#0' '#0#0#0#1#0' '#0#0#0#0#0'@'#4#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'###_'#29#29#29#175
+  +#24#24#24#255#19#19#19#255#14#14#14#255#9#9#9#255#5#5#5#175#1#1#1'_'#0#0#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'222'#31',,,'#191''''''''#255'"""'
+  +#255#23#26'9'#255#11#15'`'#255#8#9'W'#255#7#7'J'#255#7#7#26#255#4#4#4#255#0#0
+  +#0#191#0#0#0#15#0#0#0#0#0#0#0#0#0#0#0#0':::'#31'666'#239'111'#255',,,'#255
+  +''''''''#255#26#30'I'#255#0#12#179#255#0#6#167#255#0#1#156#255#0#0#154#255#2
+  +#2'c'#255#3#3#13#255#0#0#0#239#0#0#0#15#0#0#0#0#0#0#0#0'???'#207';;;'#255'66'
+  +'6'#255'111'#255',,,'#255'%&1'#255#11#23#141#255#7#16#140#255#0#6#167#255#0#1
+  +#156#255#0#0#154#255#1#1'~'#255#3#3#13#255#0#0#0#191#0#0#0#0'HHH_DDD'#255'??'
+  +'?'#255';;;'#255'666'#255'111'#255',,,'#255''''''''#255#26#30'I'#255#0#12#179
+  +#255#0#6#167#255#0#1#156#255#0#0#154#255#2#2'c'#255#4#4#4#255#1#1#1'_NNN'#175
+  +'III'#255'ADP'#255#18';'#219#255#1'3'#252#255'$3q'#255'111'#255',,,'#255#10
+  +#28#162#255#0#19#191#255#0#12#179#255#0#6#167#255#0#1#156#255#0#0#154#255#7#7
+  +#26#255#5#5#5#175'TTT'#255'OOO'#255'=Jw'#255#18'C'#255#255#8';'#255#255#19'5'
+  ,#192#255'666'#255'111'#255'!(V'#255#7#28#172#255#4#21#172#255#0#12#179#255#10
+  +#14'h'#255#4#4#130#255#7#7'J'#255#9#9#9#255'YYY'#255'TTT'#255'OOO'#255')J'
+  +#199#255#30'C'#208#255'5>c'#255';;;'#255'666'#255'$._'#255#8'"'#184#255#23'"'
+  +'f'#255#28#31'?'#255#27#28'&'#255#18#19':'#255#14#14'5'#255#14#14#14#255'^^^'
+  +#255'YYY'#255'TTT'#255'OOO'#255'III'#255'DDD'#255'???'#255'09_'#255#3','#229
+  +#255#31',s'#255'&*B'#255''''''''#255'"""'#255#29#29#29#255#24#24#24#255#19#19
+  +#19#255'ccc'#255'^^^'#255'YYY'#255'TTT'#255'OOO'#255'III'#255'>D['#255'???'
+  +#255#4'3'#240#255'!2}'#255'111'#255#30'(b'#255#0#25#204#255#18#27'h'#255#29
+  +#29#29#255#24#24#24#255'ggg'#175'ccc'#255'\_h'#255'H`'#171#255'OUi'#255'CP{'
+  +#255#27'L'#255#255#24'D'#231#255#15';'#231#255'09_'#255'666'#255#25'+'#138
+  +#255#0#31#216#255#14#30#142#255'"""'#255#29#29#29#175'jjj_hhh'#255'Ul'#177
+  +#255'@n'#255#255'?c'#212#255'<Z'#190#255'$T'#255#255#27'L'#255#255#21'C'#243
+  +#255'!='#170#255';;;'#255'666'#255'%.]'#255')+7'#255''''''''#255'###_'#0#0#0
+  +#0'jjj'#207'fiq'#255'Ms'#226#255'@n'#255#255'6f'#255#255'-]'#255#255'$T'#255
+  +#255#27'L'#255#255#24'C'#231#255'<?K'#255'7:G'#255'666'#255'111'#255',,,'#207
+  +#0#0#0#0#0#0#0#0'kkk'#31'jjj'#239'fiq'#255'Pp'#207#255'@n'#255#255'6f'#255
+  +#255'-]'#255#255'$T'#255#255#27'L'#255#255#24'C'#231#255' ='#171#255';;;'#255
+  +'666'#239'222'#31#0#0#0#0#0#0#0#0#0#0#0#0'kkk'#31'jjj'#207'hhh'#255'_ew'#255
+  +'Pe'#165#255'G_'#172#255'@X'#170#255';Q'#156#255'CJ`'#255'DDD'#255'???'#207
+  +':::'#31#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'jjj_ggg'#175'ccc'
+  +#255'^^^'#255'YYY'#255'TTT'#255'NNN'#175'HHH_'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  +#0#240#15#0#0#192#3#0#0#128#1#0#0#128#1#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#128#1#0#0#128#1#0#0#192#3#0#0#240#15#0#0
+]);
+LazarusResources.Add('RemObjectsHtmlServerDocumentationCss','CSS',[
+  'body, table, tr, td'#13#10'{'#13#10'                                backgrou'
+  +'nd-color: #f7f7f7;'#13#10'                                margin: 0;'#13#10
+  +'                                padding: 0;'#13#10'                        '
+  +'        font-family: Verdana, Tahoma, Arial, Helvetica, sans serif;'#13#10
+  +'                                font-size: 10pt;'#13#10'}'#13#10'          '
+  +'              .header'#13#10'                        {'#13#10'             '
+  +'                   padding: 5px;'#13#10'                                bac'
+  +'kground-color: #c0c0c0;'#13#10'                                border-botto'
+  +'m: 5px solid #808080;'#13#10'                                font-size: 1.5'
+  +'em;'#13#10'                        }'#13#10'                        .body'
+  +#13#10'                        {'#13#10'                                padd'
+  +'ing: 5px;'#13#10'                        }'#13#10'                        .'
+  +'footer'#13#10'                        {'#13#10'                            '
+  +'    padding: 5px;'#13#10'                                border-top: 1px so'
+  +'lid #808080;'#13#10'                                font-size: 0.8em;'#13#10
+  +'                        }'#13#10'                        .section'#13#10'  '
+  +'                      {'#13#10'                            margin-left: 25p'
+  +'x;'#13#10'                            padding-left: 3px;'#13#10'           '
+  +'                 padding-top: 3px;'#13#10'                            paddi'
+  +'ng-bottom: 3px;'#13#10'                            border-left: 1px solid #'
+  +'b0b0b0;'#13#10'                            border-bottom: 1px solid #b0b0b0'
+  +';'#13#10'                        }'#13#10'                        .h1'#13#10
+  +'                        {'#13#10'                                font-size:'
+  +' 13pt;'#13#10'                            border-left: 1px solid #b0b0b0;'
+  +#13#10'                            border-bottom: 1px solid #b0b0b0;'#13#10
+  +'                        }'#13#10'                        .h2'#13#10'       '
+  +'                 {'#13#10'                                font-size: 13pt;'
+  +#13#10'                            border-left: 1px solid #b0b0b0;'#13#10'  '
+  +'                          border-bottom: 1px solid #b0b0b0;'#13#10'        '
+  +'                }'#13#10'p { margin-bottom: 0.75em; margin-top: 0; }'#13#10
+  +'.h1, .h2, .h3, .h4, h4'#13#10'{'#13#10'  margin-top: 1em;'#13#10'  margin-b'
+  +'ottom: 0;'#13#10'  padding-bottom: 0;'#13#10'  padding-left: 3px;'#13#10'  '
+  +'font-weight: bold;'#13#10'}'#13#10'a { text-decoration: none }'#13#10'h2 { '
+  +'font-size: 12pt; }'#13#10'h3 { font-size: 11pt; }'#13#10'h4 { font-size: 10'
+  +'pt; font-weight: normal; text-decoration: underline;}'#13#10'ul, ol { margi'
+  +'n-top: 0; margin-bottom: 0.75em; }'#13#10'pre { margin: 0 }'#13#10'pre, cod'
+  +'e'#13#10'{'#13#10'      font: 100% Monospace, Courier New, Courier;'#13#10
+  +'      color: #000066;'#13#10'}'#13#10'.spaced'#13#10'{'#13#10'  letter-spac'
+  +'ing: 1px;'#13#10'  color: #000060;'#13#10'}'#13#10'table { padding: 0; }'#13
+  +#10'tr { margin: 0; padding: 0; }'#13#10'td { margin: 0; }'#13#10'table, td '
+  +'{ border: 1px dashed #c0c0c0; }'#13#10
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.pas
new file mode 100644
index 0000000..e086ca9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.pas	
@@ -0,0 +1,198 @@
+unit uROHtmlServerInfo;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  uRODLToXML, uRODL, uROServer, {uROClasses, }SysUtils, Classes;
+
+
+function GetResourceAsString(aName: string): Ansistring;
+function GetRodlServerInfo(const RootUrl: string; aRodl: TRODLLibrary; aDispatchers: TROMessageDispatchers): Ansistring;
+function GetRodlStyleSheet: Ansistring;
+function GetRodlWithStyleSheet(aRodl: TRODLLibrary; aStyleSheetUrl: string): AnsiString;
+procedure GetRodlFavIcon(dest: TStream);
+function GetRodlCss: Ansistring;
+function GetVersion: string;
+
+implementation
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  uROHTTPDispatch;
+
+{$IFNDEF FPC}
+{$R uROHtmlServerInfo.res}
+{$ENDIF}
+
+type
+  TVersion = record
+    Major : word;
+    Minor : word;
+    Release : word;
+    Build : word;
+  end;
+
+
+function GetResourceAsString(aName: string): Ansistring;
+{$IFNDEF LCL}
+var
+  lRes: TResourceStream;
+begin
+  lRes := TResourceStream.Create(HInstance, aName, RT_RCDATA);
+  try
+    SetLength(Result, lRes.Size);
+    lRes.Read(pointer(Result)^, Length(Result));
+  finally
+    lRes.Free;
+  end;
+end;
+{$ELSE}
+begin
+   Result := LazarusResources.Find(aName).Value;
+end;
+{$ENDIF}
+
+function GetRodlCss: Ansistring;
+begin
+  result := GetResourceAsString('RemObjectsHtmlServerDocumentationCss');
+end;
+
+function GetRodlWithStyleSheet(
+  aRodl: TRODLLibrary; aStyleSheetUrl: string): AnsiString;
+var
+  lRodlToXml: TRODLToXML;
+begin
+  lRodlToXml := TRODLToXML.Create(nil, '');
+  try
+    lRodlToXml.StyleSheet := aStyleSheetUrl;
+    lRodlToXml.Convert(aRodl);
+    Result := {$IFDEF UNICODE}UTF8Encode{$ENDIF} (lRodlToXml.Buffer.Text);
+  finally
+    lRodlToXml.Free;
+  end;
+end;
+
+function GetRodlServerInfo(const RootUrl: string; aRodl: TRODLLibrary; aDispatchers: TROMessageDispatchers): Ansistring;
+var
+  lUrl, lPath, s, r: string;
+  i: Integer;
+begin
+  s := '';
+  lUrl := RootUrl;
+  if lUrl = '' then lUrl := '/' else
+  if lUrl[Length(lUrl)] <> '/' then lUrl := lUrl + '/';
+
+
+  R := {$IFDEF UNICODE}UTF8ToString{$ENDIF} (GetResourceAsString('RemObjectsHtmlServerInfo'));
+  R := StringReplace(R, '%BASEPATH%', lUrl, [rfReplaceall]);
+  R := StringReplace(R, '%NAME%', aRodl.Name, [rfReplaceall]);
+  R := StringReplace(R, '%DOC%', aRodl.Documentation, [rfReplaceall]);
+
+  for i := 0 to aDispatchers.Count -1 do
+  begin
+    lPath := TROHTTPDispatcher(aDispatchers[i]).PathInfo;
+    if lPath = '' then continue;
+    if lPath[1] = '/' then Delete(lPath, 1, 1);
+    s := s + '<li><a href="' + lUrl + lPath	 + '">' +
+      lPath + '</a> <i>(' + aDispatchers[i].Message.ClassName +
+      ')</i></li>';
+  end;
+
+  R := StringReplace(R, '%DISPATCHERS%', s, [rfReplaceall]);
+  R := StringReplace(R, '%RO%', GetVersion(), [rfReplaceall]);
+
+  Result := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(R);
+end;
+
+function GetRodlStyleSheet: Ansistring;
+begin
+  Result := GetResourceAsString('RemObjectsHtmlServerDocumentation');
+end;
+
+procedure GetRodlFavIcon(dest: TStream);
+var
+  fs: TCustomMemoryStream;
+begin
+  {$IFDEF LCL}
+  fs := TLazarusResourceStream.Create('RemObjectsHtmlIcon', nil);
+  {$ELSE}
+  fs := TResourceStream.Create(HInstance, 'RemObjectsHtmlIcon', RT_RCDATA);
+  {$ENDIF}
+  try
+    dest.CopyFrom(fs, fs.Size);
+  finally
+    fs.Free;
+  end;
+end;
+
+{$IFDEF MSWINDOWS}
+function GetFileVer(iFileName: string):TVersion;
+var whocares:dword;
+    Size:dword;
+    Data:pointer;
+    FixedData:pVSFixedFileInfo;
+begin
+  whocares:=0;
+  {$IFDEF FPC}
+  Data := nil;
+  {$ENDIF FPC}  
+  FixedData := nil;
+  Size := GetFileVersionInfoSize(pChar(iFileName), whocares);
+  if Size > 0 then begin
+    GetMem(Data,Size);
+    try
+      if GetFileVersionInfo(pChar(iFileName),0,Size,Data) then begin
+        Size := sizeof(TVSFixedFileInfo);
+        if VerQueryValue(Data,'\',pointer(FixedData),Size) then begin
+          result.Major := HiWord(FixedData^.dwFileVersionMS);
+          result.Minor := LoWord(FixedData^.dwFileVersionMS);
+          result.Release := HiWord(FixedData^.dwFileVersionLS);
+          result.Build := LoWord(FixedData^.dwFileVersionLS);
+        end;
+      end;
+    finally
+      FreeMem(Data);
+    end;
+  end;
+end;
+{$ENDIF}
+
+function GetVersion:string;
+{$IFDEF MSWINDOWS}
+var
+  Version:TVersion;
+{$ENDIF}
+begin
+{$IFDEF MSWINDOWS}
+  {$IFDEF FPC}
+   Version := GetFileVer(ParamStr(0));
+  {$ELSE}
+   Version := GetFileVer(GetModuleName(hInstance));
+  {$ENDIF}
+   result := 'v' + IntToStr(Version.Major)+'.'+IntToStr(Version.Minor)+'.'+
+             IntToStr(Version.Release)+'.'+IntToStr(Version.Build);
+{$ELSE}
+  Result:='';
+{$ENDIF}
+end;
+
+{$IFDEF FPC}
+initialization
+  {$I uROHtmlServerInfo.lrs}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.rc b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.rc
new file mode 100644
index 0000000..a7b245f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.rc	
@@ -0,0 +1,4 @@
+RemObjectsHtmlServerDocumentation RCDATA DISCARDABLE "uROHtmlServerInfoRes.xsl"
+RemObjectsHtmlServerInfo RCDATA DISCARDABLE "uROHtmlServerInfoRes.html"
+RemObjectsHtmlIcon RCDATA DISCARDABLE "uROHtmlServerInfoRes.ico"
+RemObjectsHtmlServerDocumentationCss RCDATA DISCARDABLE "uROHtmlServerInfoRes.css"
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.res
new file mode 100644
index 0000000..07f0364
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfo.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.css b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.css
new file mode 100644
index 0000000..dcd3e5c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.css	
@@ -0,0 +1,75 @@
+body, table, tr, td
+{
+                                background-color: #f7f7f7;
+                                margin: 0;
+                                padding: 0;
+                                font-family: Verdana, Tahoma, Arial, Helvetica, sans serif;
+                                font-size: 10pt;
+}
+                        .header
+                        {
+                                padding: 5px;
+                                background-color: #c0c0c0;
+                                border-bottom: 5px solid #808080;
+                                font-size: 1.5em;
+                        }
+                        .body
+                        {
+                                padding: 5px;
+                        }
+                        .footer
+                        {
+                                padding: 5px;
+                                border-top: 1px solid #808080;
+                                font-size: 0.8em;
+                        }
+                        .section
+                        {
+                            margin-left: 25px;
+                            padding-left: 3px;
+                            padding-top: 3px;
+                            padding-bottom: 3px;
+                            border-left: 1px solid #b0b0b0;
+                            border-bottom: 1px solid #b0b0b0;
+                        }
+                        .h1
+                        {
+                                font-size: 13pt;
+                            border-left: 1px solid #b0b0b0;
+                            border-bottom: 1px solid #b0b0b0;
+                        }
+                        .h2
+                        {
+                                font-size: 13pt;
+                            border-left: 1px solid #b0b0b0;
+                            border-bottom: 1px solid #b0b0b0;
+                        }
+p { margin-bottom: 0.75em; margin-top: 0; }
+.h1, .h2, .h3, .h4, h4
+{
+  margin-top: 1em;
+  margin-bottom: 0;
+  padding-bottom: 0;
+  padding-left: 3px;
+  font-weight: bold;
+}
+a { text-decoration: none }
+h2 { font-size: 12pt; }
+h3 { font-size: 11pt; }
+h4 { font-size: 10pt; font-weight: normal; text-decoration: underline;}
+ul, ol { margin-top: 0; margin-bottom: 0.75em; }
+pre { margin: 0 }
+pre, code
+{
+      font: 100% Monospace, Courier New, Courier;
+      color: #000066;
+}
+.spaced
+{
+  letter-spacing: 1px;
+  color: #000060;
+}
+table { padding: 0; }
+tr { margin: 0; padding: 0; }
+td { margin: 0; }
+table, td { border: 1px dashed #c0c0c0; }
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.html b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.html
new file mode 100644
index 0000000..3dbbb87
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.html	
@@ -0,0 +1,57 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
+<html>
+	<head>
+		<title>%NAME% - RemObjects SDK for Delphi %RO%</title>
+		<meta name="GENERATOR" content="RemObjects SDK for Delphi">
+		<style>
+			body
+			{
+				background-color: #f7f7f7;
+				margin: 0;
+				padding: 0;
+				font-family: Verdana, Tahoma, Arial, Helvetica, sans serif;
+				font-size: 10pt;
+			}
+			.header
+			{
+				padding: 5px;
+				background-color: #c0c0c0;
+				border-bottom: 5px solid #808080;
+				font-size: 1.5em;
+			}
+			.body
+			{
+				padding: 5px;
+			}
+			.footer
+			{
+				padding: 5px;
+				border-top: 1px solid #808080;
+				font-size: 0.8em;
+			}
+			.h2
+			{
+				font-weight: bold;
+			}
+		</style
+	</head>
+	<body>
+	<div class="header">
+		<img src="%BASEPATH%favicon.ico" style="padding-right: 5px;"/>%NAME%
+	</div>
+	<div class="body">
+		%DOC%
+		<p><a href="%BASEPATH%doc">View full documentation</a> | <a href="%BASEPATH%rodl">View RODL</a></p>
+    <p class="h2">Available Dispatchers:</p>
+		<ul>
+			%DISPATCHERS%
+		</ul>
+	</div>
+	<div class="footer">
+		RemObjects SDK for Delphi
+		RemObjects Software, LLC. <a href="http://www.remobjects.com">remobjects.com</a>.
+	</div>
+
+
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.ico
new file mode 100644
index 0000000..282d455
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.xsl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.xsl
new file mode 100644
index 0000000..114d13b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROHtmlServerInfoRes.xsl	
@@ -0,0 +1,874 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+  <xsl:output method="html"/>
+  <xsl:template match="/Library">
+    <html xmlns="http://www.w3.org/1999/xhtml">
+      <head>
+        <meta name="GENERATOR" content="XSL Rodl2Html.xsl"/>
+        <meta http-equiv="Content-Type" content="text/html"/>
+        <title>
+          <xsl:value-of select="@Name"/> documentation
+        </title>
+        <style>
+          <xsl:comment>
+            body, table, tr, td
+            {
+            background-color: #f7f7f7;
+            margin: 0;
+            padding: 0;
+            font-family: Verdana, Tahoma, Arial, Helvetica, sans serif;
+            font-size: 10pt;
+            }
+            .header
+            {
+            padding: 5px;
+            background-color: #c0c0c0;
+            border-bottom: 5px solid #808080;
+            font-size: 1.5em;
+            }
+            .body
+            {
+            padding: 5px;
+            }
+            .footer
+            {
+            padding: 5px;
+            border-top: 1px solid #808080;
+            font-size: 0.8em;
+            }
+            .section
+            {
+            margin-left: 25px;
+            padding-left: 3px;
+            padding-top: 3px;
+            padding-bottom: 3px;
+            border-left: 1px solid #b0b0b0;
+            border-bottom: 1px solid #b0b0b0;
+            }
+            .h1
+            {
+            font-size: 13pt;
+            border-left: 1px solid #b0b0b0;
+            border-bottom: 1px solid #b0b0b0;
+            }
+            .h2
+            {
+            font-size: 13pt;
+            border-left: 1px solid #b0b0b0;
+            border-bottom: 1px solid #b0b0b0;
+            }
+            p { margin-bottom: 0.75em; margin-top: 0; }
+            .h1, .h2, .h3, .h4, h4
+            {
+            margin-top: 1em;
+            margin-bottom: 0;
+            padding-bottom: 0;
+            padding-left: 3px;
+            font-weight: bold;
+            }
+            a { text-decoration: none }
+            h2 { font-size: 12pt; }
+            h3 { font-size: 11pt; }
+            h4 { font-size: 10pt; font-weight: normal; text-decoration: underline;}
+            ul, ol { margin-top: 0; margin-bottom: 0.75em; }
+            pre { margin: 0 }
+            pre, code
+            {
+            font: 100% Monospace, Courier New, Courier;
+            color: #000066;
+            }
+            .spaced
+            {
+            letter-spacing: 1px;
+            color: #000060;
+            }
+            table { padding: 0; }
+            tr { margin: 0; padding: 0; }
+            td { margin: 0; }
+            table, td { border: 1px dashed #c0c0c0; }
+          </xsl:comment>
+        </style>
+      </head>
+      <body>
+        <div class="header">
+          <img src="favicon.ico" style="padding-right: 5px;"/>
+          <xsl:value-of select="/Library/@Name"/>
+        </div>
+        <div class="body">
+          <a>
+            <xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/></xsl:attribute>
+          </a>
+          <div class="h1">Table Of Contents</div>
+          <p>This document is split into the following sections:</p>
+          <ul>
+            <li>
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/>.Services</xsl:attribute>
+                Services
+              </a>
+            </li>
+            <li>
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/>.EventSinks</xsl:attribute>
+                Event sinks
+              </a>
+            </li>
+            <li>
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/>.Structs</xsl:attribute>
+                Structs
+              </a>
+            </li>
+            <li>
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/>.Enums</xsl:attribute>
+                Enums
+              </a>
+            </li>
+            <li>
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/>.Arrays</xsl:attribute>
+                Arrays
+              </a>
+            </li>
+            <li>
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/>.Exceptions</xsl:attribute>
+                Exceptions
+              </a>
+            </li>
+            <li>
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/>.Uses</xsl:attribute>
+                Used RODLs
+              </a>
+            </li>
+          </ul>
+
+          <p>
+            <b>Library Description:</b>
+            <pre>
+              <xsl:value-of select="/Library/Documentation"/>
+            </pre>
+          </p>
+
+          <xsl:call-template name="ServicesOverview"/>
+
+          <xsl:call-template name="EventSinksOverview"/>
+
+          <xsl:call-template name="StructsOverview"/>
+
+          <xsl:call-template name="EnumsOverview"/>
+
+          <xsl:call-template name="ArraysOverview"/>
+
+          <xsl:call-template name="ExceptionsOverview"/>
+
+          <xsl:call-template name="UsesOverview"/>
+        </div>
+        <div class="footer">
+          RemObjects Software, LLC. <a href="http://www.remobjects.com">remobjects.com</a>.
+        </div>
+      </body>
+    </html>
+  </xsl:template>
+
+  <xsl:template name="ServicesOverview" match="/Services">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.Services</xsl:attribute>
+    </a>
+    <div class="h1">Services</div>
+    <div class="section">
+      <p>
+        The following table lists the Services defined in "<xsl:value-of select="/Library/@Name"/>":
+      </p>
+      <table width="80%">
+        <xsl:for-each select="./Services/Service/Interfaces/Interface">
+          <tr>
+            <td valign="top" width="250">
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="../../@Name"/></xsl:attribute>
+                <xsl:value-of select="../../@Name"/><xsl:if test="../../@Ancestor">(<xsl:value-of select="../../@Ancestor"/>)</xsl:if>
+              </a>
+            </td>
+            <td>
+              <pre>
+                <xsl:value-of select="../../Documentation"/>
+              </pre>
+            </td>
+          </tr>
+        </xsl:for-each>
+      </table>
+      <xsl:call-template name="ServicesMembers"/>
+    </div>
+  </xsl:template>
+
+  <xsl:template name="ServicesMembers" match="/Services">
+    <xsl:for-each select="./Services/Service/Interfaces/Interface">
+      <a>
+        <xsl:attribute name="name"><xsl:value-of select="../../@Name"/></xsl:attribute>
+      </a>
+      <div class="h2">
+        Service <i>
+          <xsl:value-of select="../../@Name"/>
+        </i>
+      </div>
+      <div class="section">
+        <p>
+          The following table lists the Operations defined in "<xsl:value-of select="../../@Name"/>":
+        </p>
+        <table width="80%">
+          <xsl:for-each select="./Operations/Operation">
+            <tr>
+              <td valign="top" width="250">
+                <a>
+                  <xsl:attribute name="href">#<xsl:value-of select="../../../../@Name"/>.<xsl:value-of select="@Name"/></xsl:attribute>
+                  <xsl:value-of select="@Name"/>
+                </a>
+              </td>
+              <td>
+                <pre>
+                  <xsl:value-of select="Documentation"/>
+                </pre>
+              </td>
+            </tr>
+          </xsl:for-each>
+        </table>
+        <xsl:call-template name="MemberDeclarations"/>
+      </div>
+    </xsl:for-each>
+  </xsl:template>
+
+  <xsl:template name="EventSinksOverview" match="/EventSinks">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.EventSinks</xsl:attribute>
+    </a>
+    <div class="h1">Event Sinks</div>
+    <div class="section">
+      <p>
+        The following table lists the Event Sinks defined in "<xsl:value-of select="/Library/@Name"/>":
+      </p>
+      <table width="80%">
+        <xsl:for-each select="./EventSinks/EventSink/Interfaces/Interface">
+          <tr>
+            <td valign="top" width="250">
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="../../@Name"/></xsl:attribute>
+                <xsl:value-of select="../../@Name"/><xsl:if test="../../@Ancestor">(<xsl:value-of select="../../@Ancestor"/>)</xsl:if>
+              </a>
+            </td>
+            <td>
+              <pre>
+                <xsl:value-of select="../../Documentation"/>
+              </pre>
+            </td>
+          </tr>
+        </xsl:for-each>
+      </table>
+      <xsl:call-template name="EventSinksMembers"/>
+    </div>
+  </xsl:template>
+  <xsl:template name="EventSinksMembers" match="/EventSinks">
+    <xsl:for-each select="./EventSinks/EventSink/Interfaces/Interface">
+      <a>
+        <xsl:attribute name="name"><xsl:value-of select="../../@Name"/></xsl:attribute>
+      </a>
+      <div class="h2">
+        Event Sink <i>
+          <xsl:value-of select="../../@Name"/>
+        </i>
+      </div>
+      <div class="section">
+        <p>
+          The following table lists the Events defined in "<xsl:value-of select="../../@Name"/>":
+        </p>
+        <table width="80%">
+          <xsl:for-each select="./Operations/Operation">
+            <tr>
+              <td valign="top" width="250">
+                <a>
+                  <xsl:attribute name="href">#<xsl:value-of select="../../../../@Name"/>.<xsl:value-of select="@Name"/></xsl:attribute>
+                  <xsl:value-of select="@Name"/>
+                </a>
+              </td>
+              <td>
+                <pre>
+                  <xsl:value-of select="Documentation"/>
+                </pre>
+              </td>
+            </tr>
+          </xsl:for-each>
+        </table>
+        <xsl:call-template name="EventMemberDeclarations"/>
+      </div>
+    </xsl:for-each>
+  </xsl:template>
+
+
+  <xsl:template name="MemberDeclarations">
+    <xsl:for-each select="./Operations/Operation">
+      <a>
+        <xsl:attribute name="name"><xsl:value-of select="../../../../@Name"/>.<xsl:value-of select="@Name"/></xsl:attribute>
+      </a>
+      <h3>
+        Method <i>
+          <!--<xsl:value-of select="../../../../@Name"/>.-->
+          <xsl:value-of select="@Name"/>
+        </i>
+      </h3>
+      <p>
+        <pre>
+          <xsl:value-of select="Documentation"/>
+        </pre>
+      </p>
+      <xsl:apply-templates select="Parameters"/>
+    </xsl:for-each>
+  </xsl:template>
+  <xsl:template name="EventMemberDeclarations">
+    <xsl:for-each select="./Operations/Operation">
+      <a>
+        <xsl:attribute name="name"><xsl:value-of select="../../../../@Name"/>.<xsl:value-of select="@Name"/></xsl:attribute>
+      </a>
+      <h3>
+        Event <i>
+          <!--<xsl:value-of select="../../../../@Name"/>.-->
+          <xsl:value-of select="@Name"/>
+        </i>
+      </h3>
+      <p>
+        <pre>
+          <xsl:value-of select="@Documentation"/>
+        </pre>
+      </p>
+      <xsl:apply-templates select="Parameters"/>
+    </xsl:for-each>
+  </xsl:template>
+
+  <xsl:template match="Parameters">
+    <xsl:call-template name="Parameters"/>
+    <h4>Chrome Syntax:</h4>
+    <code>
+      <b>method </b>
+
+      <xsl:value-of select="../../../../../@Name"/>.<xsl:value-of select="../@Name"/>(<xsl:for-each select="Parameter[@Flag!='Result']">
+        <xsl:call-template name="Declaration">
+          <xsl:with-param name="Language" select="'Pascal'"/>
+        </xsl:call-template>
+      </xsl:for-each>)<xsl:for-each select="Parameter[@Flag='Result']">
+
+        <xsl:call-template name="Declaration">
+          <xsl:with-param name="Language" select="'Pascal'"/>
+        </xsl:call-template>
+
+      </xsl:for-each>;
+    </code>
+    <h4>C# Syntax:</h4>
+    <code>
+      <xsl:choose>
+        <xsl:when test="count(./Parameter[@Name='Result']) = 1">
+          public <xsl:value-of select="./Parameter[@Flag='Result']/@DataType"/><xsl:text> </xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+          public void
+        </xsl:otherwise>
+      </xsl:choose>
+      <xsl:value-of select="../../../../../@Name"/>.<xsl:value-of select="../@Name"/>(<xsl:for-each select="Parameter[@Flag!='Result']">
+        <xsl:call-template name="Declaration">
+          <xsl:with-param name="Language" select="'CSharp'"/>
+        </xsl:call-template>
+      </xsl:for-each>);
+    </code>
+
+    <!--<h3>Parameters</h3>
+		<xsl:call-template name="Parameters"/>
+		<h3>Return Value</h3>
+		<xsl:call-template name="ReturnValue"/>
+		<p>
+			<a>
+				<xsl:attribute name="href">#<xsl:value-of select="/Library/@Name"/></xsl:attribute>
+				<xsl:value-of select="/Library/@Name"/>
+			</a>
+			<xsl:text>
+				</xsl:text>
+			<a>
+				<xsl:attribute name="href">#<xsl:value-of select="../../../../../@Name"/></xsl:attribute>
+				<xsl:value-of select="../../../../../@Name"/>
+			</a>
+		</p>-->
+  </xsl:template>
+
+
+  <xsl:template name="Parameters">
+    <h4>Parameters:</h4>
+    <xsl:choose>
+      <xsl:when test="count(Parameter[@Name!='Result']) = 0">None.</xsl:when>
+      <xsl:otherwise>
+        <table xmlns="http://www.w3.org/1999/xhtml">
+          <tr>
+            <th>Flag</th>
+            <th>Name</th>
+            <th>Type</th>
+            <th>Description</th>
+          </tr>
+          <xsl:for-each select="Parameter[@Name!='Result']">
+            <tr>
+              <td>
+                <xsl:value-of select="@Flag"/>
+              </td>
+              <td>
+                <xsl:value-of select="@Name"/>
+              </td>
+              <td>
+                <xsl:value-of select="@DataType"/>
+              </td>
+              <td>
+                <pre>
+                  <xsl:value-of select="Documentation"/>
+                </pre>
+              </td>
+            </tr>
+          </xsl:for-each>
+        </table>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+
+
+  <xsl:template name="ReturnValue">
+    <xsl:choose>
+      <xsl:when test="count(Parameter[@Flag='Result']) = 0">None.</xsl:when>
+      <xsl:otherwise>
+        <xsl:for-each select="Parameter[@Flag='Result']">
+          <!-- the Result-comment -->
+          Dear RemObjects Team: Please add a Parameter documentation to your rodl-file!
+        </xsl:for-each>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+
+
+  <xsl:template name="Declaration">
+    <xsl:param name="Language"/>
+    <xsl:choose>
+      <xsl:when test="$Language='Pascal'">
+        <xsl:call-template name="GeneratePascalParameter"/>
+      </xsl:when>
+      <xsl:when test="$Language='CSharp'">
+        <xsl:call-template name="GenerateCSharpParameter"/>
+      </xsl:when>
+    </xsl:choose>
+  </xsl:template>
+
+
+  <xsl:template name="GeneratePascalParameter">
+    <xsl:choose>
+      <xsl:when test="position()=1 and @Flag != 'Result'">
+        <xsl:call-template name="FlagToSpec">
+          <xsl:with-param name="Flag" select="@Flag"/>
+        </xsl:call-template>
+        <xsl:value-of select="@Name"/>: <xsl:value-of select="@DataType"/>
+      </xsl:when>
+      <xsl:when test="@Flag = 'Result'">
+        : <xsl:value-of select="@DataType"/>
+      </xsl:when>
+      <xsl:when test="position()=last()">
+        ; <xsl:call-template name="FlagToSpec">
+          <xsl:with-param name="Flag" select="@Flag"/>
+        </xsl:call-template>
+        <xsl:value-of select="@Name"/>: <xsl:value-of select="@DataType"/>
+      </xsl:when>
+      <xsl:when test="position()>1">
+        ; <xsl:call-template name="FlagToSpec">
+          <xsl:with-param name="Flag" select="@Flag"/>
+        </xsl:call-template>
+        <xsl:value-of select="@Name"/>: <xsl:value-of select="@DataType"/>
+      </xsl:when>
+    </xsl:choose>
+  </xsl:template>
+
+
+
+  <xsl:template name="GenerateCSharpParameter">
+    <xsl:choose>
+      <xsl:when test="position()=1 and @Flag != 'Result'">
+        <xsl:call-template name="FlagToSpecCSharp">
+          <xsl:with-param name="Flag" select="@Flag"/>
+        </xsl:call-template>
+        <xsl:call-template name="DataTypeToCSharp">
+          <xsl:with-param name="DataType" select="@DataType"/>
+        </xsl:call-template>
+        <xsl:text> </xsl:text>
+        <xsl:value-of select="@Name"/>
+      </xsl:when>
+      <xsl:when test="position()=last()">
+        , <xsl:call-template name="FlagToSpecCSharp">
+          <xsl:with-param name="Flag" select="@Flag"/>
+        </xsl:call-template>
+        <xsl:call-template name="DataTypeToCSharp">
+          <xsl:with-param name="DataType" select="@DataType"/>
+        </xsl:call-template>
+        <xsl:text> </xsl:text>
+        <xsl:value-of select="@Name"/>
+      </xsl:when>
+      <xsl:when test="position()>1">
+        , <xsl:call-template name="FlagToSpecCSharp">
+          <xsl:with-param name="Flag" select="@Flag"/>
+        </xsl:call-template>
+        <xsl:call-template name="DataTypeToCSharp">
+          <xsl:with-param name="DataType" select="@DataType"/>
+        </xsl:call-template>
+        <xsl:text> </xsl:text>
+        <xsl:value-of select="@Name"/>
+      </xsl:when>
+    </xsl:choose>
+  </xsl:template>
+  <xsl:template name="FlagToSpec">
+    <xsl:param name="Flag"/>
+    <xsl:choose>
+      <xsl:when test="$Flag='In'">
+        <b>const </b>
+      </xsl:when>
+      <xsl:when test="$Flag='InOut'">
+        <b>var </b>
+      </xsl:when>
+      <xsl:otherwise/>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template name="DataTypeToCSharp">
+    <xsl:param name="DataType"/>
+    <xsl:choose>
+      <xsl:when test="$DataType='Integer'">
+        Int32
+      </xsl:when>
+      <xsl:when test="$DataType='Widestring'">
+        String
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:value-of select="$DataType"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template name="FlagToSpecCSharp">
+    <xsl:param name="Flag"/>
+    <xsl:choose>
+      <xsl:when test="$Flag='In'">
+        <!--<b>const </b>-->
+      </xsl:when>
+      <xsl:when test="$Flag='InOut'">
+        <b>ref </b>
+      </xsl:when>
+      <xsl:when test="$Flag='Out'">
+        <b>out </b>
+      </xsl:when>
+      <xsl:otherwise/>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template name="StructsOverview" match="/Structs">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.Structs</xsl:attribute>
+    </a>
+    <div class="h1">Structs</div>
+    <div class="section">
+      <p>
+        The following table lists the Structs defined in "<xsl:value-of select="/Library/@Name"/>":
+      </p>
+      <table width="80%">
+        <xsl:for-each select="./Structs/Struct">
+          <tr>
+            <td valign="top" width="250">
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="@Name"/></xsl:attribute>
+                <xsl:value-of select="@Name"/><xsl:if test="@Ancestor">(<xsl:value-of select="@Ancestor"/>)</xsl:if>
+              </a>
+            </td>
+            <td>
+              <pre>
+                <xsl:value-of select="Documentation"/>
+              </pre>
+            </td>
+          </tr>
+        </xsl:for-each>
+      </table>
+     <xsl:call-template name="StructsMembers"/>
+    </div>
+  </xsl:template>
+  
+   
+  <xsl:template name="StructsMembers" match="/Structs">
+    <xsl:for-each select="./Structs/Struct">
+      <a>
+        <xsl:attribute name="name"><xsl:value-of select="@Name"/></xsl:attribute>
+      </a>
+      <div class="h2">
+        Struct <i>
+          <xsl:value-of select="@Name"/>
+        </i>
+      </div>
+      <div class="section">
+        <p>
+          The following table lists the fields defined in "<xsl:value-of select="@Name"/>":
+        </p>
+        <table width="80%">
+		<tr>
+		
+		<th>Field</th>
+		<th>Data Type</th>
+		<th>Documentation</th>
+		</tr>
+          <xsl:for-each select="./Elements/Element">
+            <tr>
+              <td valign="top" width="250">
+                <a>
+                  <xsl:attribute name="href">#<xsl:value-of select="../../@Name"/>.<xsl:value-of select="@Name"/></xsl:attribute>
+                  <xsl:value-of select="@Name"/>
+                </a>
+              </td>
+		  <td>
+			<xsl:call-template name="LinkToDataType">
+			  <xsl:with-param name="DataType" select="@DataType"/>
+			</xsl:call-template>
+		  </td>
+              <td>
+                <pre>
+                  <xsl:value-of select="Documentation"/>
+                </pre>
+              </td>
+            </tr>
+          </xsl:for-each>
+        </table>
+        <xsl:call-template name="MemberDeclarations"/>
+      </div>
+    </xsl:for-each>
+  </xsl:template>
+  
+  <xsl:template name="LinkToDataType">
+    <xsl:param name="DataType"/>
+    <xsl:choose>
+      <xsl:when test="(count(/Library/Enums/Enum[@Name=$DataType]) = 1) or (count(/Library/Structs/Struct[@Name=$DataType]) = 1) or (count(/Library/Arrays/Array[@Name=$DataType]) = 1)">
+        <a>
+          <xsl:attribute name="href">#<xsl:value-of select="$DataType"/></xsl:attribute>
+          <xsl:value-of select="$DataType"/>
+        </a>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:value-of select="$DataType"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template name="EnumsOverview" match="/Enums">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.Enums</xsl:attribute>
+    </a>
+    <div class="h1">Enums</div>
+    <div class="section">
+      <p>
+        The following table lists the Enums defined in "<xsl:value-of select="/Library/@Name"/>":
+      </p>
+      <table width="80%">
+        <xsl:for-each select="./Enums/Enum">
+          <tr>
+            <td valign="top" width="250">
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="@Name"/></xsl:attribute>
+                <xsl:value-of select="@Name"/>
+              </a>
+            </td>
+            <td>
+              <pre>
+                <xsl:value-of select="Documentation"/>
+              </pre>
+            </td>
+          </tr>
+        </xsl:for-each>
+      </table>
+          <xsl:call-template name="EnumsMembers"/>
+    </div>
+  </xsl:template>
+   
+  <xsl:template name="EnumsMembers" match="/Enums">
+    <xsl:for-each select="./Enums/Enum">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="@Name"/></xsl:attribute>
+    </a>
+    <div class="h2">
+      Enum <i><xsl:value-of select="@Name"/></i>
+    </div>
+      <div class="section">
+        <p>
+          The following table lists the values defined in "<xsl:value-of select="@Name"/>":
+		  </p>
+    <table width="80%">
+      <tr vAlign="top">
+        <th>Value</th>
+        <th>Documentation</th>
+      </tr>
+      <xsl:for-each select="EnumValues/EnumValue">
+        <tr>
+          <td valign="top" width="250">
+		    <a>
+			<xsl:attribute name="name"><xsl:value-of select="../../@Name"/>.<xsl:value-of select="@Name"/></xsl:attribute>
+			</a>
+            <xsl:value-of select="@Name"/>
+          </td>
+			<td>
+              <pre>
+                <xsl:value-of select="Documentation"/>
+              </pre>
+            </td>
+        </tr>
+      </xsl:for-each>
+    </table>
+	</div>
+  </xsl:for-each>		
+  </xsl:template>
+
+  <xsl:template name="ArraysOverview" match="/Arrays">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.Arrays</xsl:attribute>
+    </a>
+    <div class="h1">Arrays</div>
+    <div class="section">
+
+      <p>
+        The following table lists the Arrays defined in "<xsl:value-of select="/Library/@Name"/>":
+      </p>
+      <table width="80%">
+      <tr vAlign="top">
+        <th>Array</th>
+        <th>Element Type</th>
+        <th>Documentation</th>
+      </tr>
+      <xsl:for-each select="./Arrays/Array">
+          <tr>
+            <td valign="top" width="250">
+              <a>
+                <xsl:attribute name="href">#<xsl:value-of select="@Name"/></xsl:attribute>
+                <xsl:value-of select="@Name"/>
+              </a>
+            </td>
+			<td>
+			<xsl:call-template name="LinkToDataType">
+            <xsl:with-param name="DataType" select="ElementType/@DataType"/>
+            </xsl:call-template>
+		   </td>
+            <td>
+              <pre>
+                <xsl:value-of select="Documentation"/>
+              </pre>
+            </td>
+          </tr>
+        </xsl:for-each>
+      </table>
+    </div>
+  </xsl:template>
+
+  <xsl:template name="ExceptionsOverview" match="/Exceptions">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.Exceptions</xsl:attribute>
+    </a>
+    <div class="h1">Exceptions</div>
+    <div class="section">
+      <p>
+        The following table lists the Exceptions defined in "<xsl:value-of select="/Library/@Name"/>":
+      </p>
+      <table width="80%">
+        <xsl:for-each select="./Exceptions/Exception">
+          <tr>
+            <td valign="top" width="250">
+               <a>
+                <xsl:attribute name="href">#<xsl:value-of select="@Name"/></xsl:attribute>
+                <xsl:value-of select="@Name"/><xsl:if test="@Ancestor">(<xsl:value-of select="@Ancestor"/>)</xsl:if>
+              </a>
+            </td>
+            <td>
+              <pre>
+                <xsl:value-of select="Documentation"/>
+              </pre>
+            </td>
+          </tr>
+        </xsl:for-each>
+      </table>
+          <xsl:call-template name="ExceptionsMembers"/>
+    </div>
+  </xsl:template>
+  
+  <xsl:template name="ExceptionsMembers" match="/Exceptions">
+    <xsl:for-each select="./Exceptions/Exception">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="@Name"/></xsl:attribute>
+    </a>
+    <div class="h2">
+      Exception <i><xsl:value-of select="@Name"/></i>
+    </div>
+    <div class="section">
+        <p>
+          The following table lists the fields defined in "<xsl:value-of select="@Name"/>":
+        </p>
+		<table width="80%">
+		<tr>
+		
+		<th>Field</th>
+		<th>Data Type</th>
+		<th>Documentation</th>
+		</tr>
+		<xsl:for-each select="Elements/Element">
+		  <tr><td>
+			<xsl:value-of select="@Name"/>
+		  </td>
+		  <td>
+			<xsl:call-template name="LinkToDataType">
+			  <xsl:with-param name="DataType" select="@DataType"/>
+			</xsl:call-template>
+		  </td>
+		  <td>
+              <pre>
+                <xsl:value-of select="Documentation"/>
+              </pre>
+            </td>
+			</tr>
+		</xsl:for-each>
+		</table>
+	</div>
+  </xsl:for-each>
+  </xsl:template>
+
+
+  <xsl:template name="UsesOverview" match="/Uses">
+    <a>
+      <xsl:attribute name="name"><xsl:value-of select="/Library/@Name"/>.Uses</xsl:attribute>
+    </a>
+    <div class="h1">
+      Used RODL Files
+    </div>
+    <div class="section">
+      <p>
+        The following table lists the external RODL files used by library "<xsl:value-of select="/Library/@Name"/>":
+      </p>
+      <table width="80%">
+        <xsl:for-each select="./Uses/Use">
+          <tr>
+            <td valign="top" width="250" rowspan="2">
+              <xsl:value-of select="@Name"/>
+            </td>
+            <td>
+              <xsl:value-of select="@Rodl"/>
+            </td>
+          </tr>
+          <tr>
+            <td>
+              <pre>
+                <xsl:value-of select="Documentation"/>
+              </pre>
+            </td>
+          </tr>
+        </xsl:for-each>
+      </table>
+    </div>
+  </xsl:template>
+</xsl:stylesheet>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIcsAsyncSuperTcpServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIcsAsyncSuperTcpServer.pas
new file mode 100644
index 0000000..3309660
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIcsAsyncSuperTcpServer.pas	
@@ -0,0 +1,1660 @@
+unit uROIcsAsyncSuperTcpServer;
+
+interface
+{$I RemObjects.inc}
+{.$DEFINE RemObjects_ICS_v6}
+
+{$IFDEF RemObjects_ICS_v6}
+  {$UNDEF RemObjects_ICS_v5}
+{$ENDIF}
+uses
+  Classes, Messages, SySutils, SyncObjs, Contnrs,
+  uROAsyncSuperTcpServer, uROAsyncSCHelpers, uROClientIntf, uROServerIntf,
+  uROClasses, uROThreadPool, uROSessions
+  {$IFDEF RemObjects_ICS_v5}, WSocket, WSocketS {$ENDIF}
+  {$IFDEF RemObjects_ICS_v6}, OverbyteICSWSocket, OverbyteICSWSocketS, OverbyteIcsWndControl {$ENDIF}
+  ;
+const
+  // Default number of client message pumps for each server component
+  DefaultMinClientMessagePumps = 1;
+
+type
+  // forward declarations
+  TROIcsTCPConnection = class;
+  TROAsyncSuperTCPServerSocketClient = class;
+  TROCustomIcsAsyncSuperTCPServer = class;
+  TROIcsMessagePumpThreadList = class;
+
+  TROIcsMessagePumpSocketActionKind = (akAdd, akRemove);
+  TROIcsMessagePumpSocketActionStatus = (asPending, asSuccess, asError);
+
+  // A class that contains indication for an action to be performed by a message
+  // pump thread on a given socket.
+  TROIcsMessagePumpSocketAction = class
+  private
+    FSocket: TCustomWSocket;
+    FActionKind: TROIcsMessagePumpSocketActionKind;
+    FStatus: TROIcsMessagePumpSocketActionStatus;
+    FErrorMessage: string;
+  public
+    constructor Create(ASocket: TCustomWSocket; AActionKind: TROIcsMessagePumpSocketActionKind);
+
+    property Status: TROIcsMessagePumpSocketActionStatus read FStatus write FStatus;
+    property ErrorMessage: string read FErrorMessage write FErrorMessage;
+    property Socket: TCustomWSocket read FSocket;
+    property ActionKind: TROIcsMessagePumpSocketActionKind read FActionKind;
+  end;
+
+  // A thread that reads messages for a given number of sockets
+  TROIcsMessagePumpThread = class(TROInitializedThread)
+  private
+    FSockets: TObjectList;
+    {$IFDEF RemObjects_ICS_v6}
+    FICSHandleHolder: TIcsWndControl;
+    {$ENDIF}
+    FOwner: TROIcsMessagePumpThreadList;
+
+    FPendingActionsSection: TCriticalSection;
+    FPendingActions: TObjectList;
+
+    function GetSocket(Index: Integer): TCustomWSocket;
+    function GetSocketCount: Integer;
+    property Sockets[Index: Integer]: TCustomWSocket read GetSocket;
+
+    procedure InternalRemoveSocket(ASocket: TCustomWSocket);
+
+    procedure LockPendingActions;
+    procedure UnlockPendingActions;
+    procedure DoMessagePumpException(E: TObject);
+  protected
+    procedure DoTerminate; override;
+  public
+    constructor Create(AOwner: TROIcsMessagePumpThreadList);
+    destructor Destroy; override;
+
+    procedure Execute; override;
+
+    function AddSocket(ASocket: TCustomWSocket; out ErrorMessage: string): Boolean;
+    function RemoveSocket(ASocket: TCustomWSocket; out ErrorMessage: string): Boolean;
+    property SocketCount: Integer read GetSocketCount;
+  end;
+
+  // A list of message pumps
+  TROIcsMessagePumpThreadList = class(TObjectList)
+  private
+    FMinCount: Integer;
+    FMaxClientsPerPump: Integer;
+    
+    function GetItem(Index: Integer): TROIcsMessagePumpThread;
+    procedure SetItem(Index: Integer; const Value: TROIcsMessagePumpThread);
+    procedure SetMinCount(const Value: Integer);
+    procedure SetMaxClientsPerPump(const Value: Integer);
+  public
+    // Returns the first available pump and attaches the given socket to it.
+    function GetMessagePump(ASocket: TCustomWSocket): TROIcsMessagePumpThread;
+
+    property Items[Index: Integer]: TROIcsMessagePumpThread read GetItem write SetItem; default;
+    property MinCount: Integer read FMinCount write SetMinCount;
+    property MaxClientsPerPump: Integer read FMaxClientsPerPump write SetMaxClientsPerPump; 
+  end;
+
+  // A server socket
+  TROWSocketServer = class(TCustomWSocketServer)
+  protected
+    FDisposed: Boolean;
+    
+    FMessagePumpThread: TROIcsMessagePumpThread;
+    FServer: TROCustomIcsAsyncSuperTCPServer;
+    
+    procedure WndProc(var MsgRec: TMessage); override;
+    procedure InternalClose(bShut : Boolean; Error : Word); override;
+    procedure TriggerClientConnect(Client : TWSocketClient; Error : Word); override;
+    {$IFDEF RemObjects_ICS_v6}
+    procedure Dispose(Disposing: Boolean); override;
+    {$ENDIF}
+  public
+    constructor Create(AServer: TROCustomIcsAsyncSuperTCPServer); reintroduce;
+    destructor Destroy; override;
+    procedure Listen; override;
+    property ClientCount;
+    property Client;
+
+    property MessagePumpThread: TROIcsMessagePumpThread read FMessagePumpThread write FMessagePumpThread;
+    property Server: TROCustomIcsAsyncSuperTCPServer read FServer;
+  end;
+
+  // Server component
+  TServerSocketBackgroundException = procedure(Sender: TObject; Socket: TROWSocketServer; E: TObject) of object;
+  TClientSocketBackgroundException = procedure(Sender: TObject; Socket: TROAsyncSuperTCPServerSocketClient; E: TObject) of object;
+  TServerSocketSessionClosed = procedure (Sender: TObject; Socket: TROWSocketServer; ErrCode: Word) of object;
+  TROCustomIcsAsyncSuperTCPServer = class(TROBaseAsyncSuperTCPServer)
+  private
+    fPort: Integer;
+    FServerSocket: TROWSocketServer;
+    FWorkers: TObjectList;
+    FOnServerSocketSessionClosed: TServerSocketSessionClosed;
+    FOnServerSocketBackgroundException: TServerSocketBackgroundException;
+    FOnClientSocketBackgroundException: TClientSocketBackgroundException;
+    FClientMessagePumps: TROIcsMessagePumpThreadList;
+    fAutoRegisterSession: Boolean;
+
+    procedure SetPort(const Value: Integer);
+    procedure ServerSocketClientConnect(Sender: TObject; Client: TWSocketClient; Error: Word);
+    procedure ServerSocketClientDisconnect(Sender: TObject; Client: TWSocketClient; Error: Word);
+    procedure ServerSocketSessionClosed(Sender: TObject; ErrCode: Word);
+    procedure ServerSocketBgException(Sender: TObject; E: Exception; var CanClose: Boolean);
+
+    procedure DoClientSocketException(Socket: TROAsyncSuperTCPServerSocketClient; E: TObject);
+    procedure SetMinClientMessagePumps(const Value: Integer);
+    function GetMinClientMessagePumps: Integer;
+    function GetMaxClientsPerPump: Integer;
+    procedure SetMaxClientsPerPump(const Value: Integer);
+  protected
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive: boolean; override;
+
+    procedure Connect;
+    procedure Disconnect;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+
+    property ServerSocket: TROWSocketServer read FServerSocket;
+
+    property Port: Integer read fPort write SetPort default 8095;
+    property AutoRegisterSession: Boolean read fAutoRegisterSession write fAutoRegisterSession default true;
+    property MinClientMessagePumps: Integer read GetMinClientMessagePumps write SetMinClientMessagePumps default DefaultMinClientMessagePumps;
+    property MaxClientsPerPump: Integer read GetMaxClientsPerPump write SetMaxClientsPerPump; 
+
+    property OnServerSocketSessionClosed: TServerSocketSessionClosed read FOnServerSocketSessionClosed write FOnServerSocketSessionClosed;
+    property OnServerSocketBackgroundException: TServerSocketBackgroundException read FOnServerSocketBackgroundException write FOnServerSocketBackgroundException;
+    property OnClientSocketBackgroundException: TClientSocketBackgroundException read FOnClientSocketBackgroundException write FOnClientSocketBackgroundException;  
+  end;
+
+  TROIcsAsyncSuperTCPServer = class(TROCustomIcsAsyncSuperTCPServer)
+  published
+    property Port;
+    property DefaultResponse;    
+    property AutoRegisterSession;
+    
+    property OnServerSocketSessionClosed;
+    property OnServerSocketBackgroundException;
+    property OnClientSocketBackgroundException;
+  end;
+
+  // Server component worker
+  TROIcsAsyncSuperChannelWorker = class(TROAsyncSuperChannelWorker, IROTCPTransport, IROActiveEventServer)
+  private
+    FServer: TROCustomIcsAsyncSuperTCPServer;
+    FClient: TROAsyncSuperTCPServerSocketClient;
+    FEventManager: IROSessionsChangesListener;
+  protected
+    { IROTCPTransport }
+    function GetClientAddress : string;
+
+    { IROActiveEventServer }
+    procedure EventsRegistered(aSender : TObject; aClient: TGUID);
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+
+    // overriden methods
+    procedure IncomingData(Id: Integer; aData: TByteArray); override;
+    procedure Connected; override;
+    procedure Disconnected(var RestartLoop: Boolean); override;
+    function GetDefaultResponse: string; override;
+  public
+    constructor Create(AServer: TROCustomIcsAsyncSuperTCPServer; AClient: TROAsyncSuperTCPServerSocketClient);
+    destructor Destroy; override;
+  end;
+
+  // Client socket
+  TROAsyncSuperTCPServerSocketClient = class(TWSocketClient)
+  private
+    FTCPConnection: TROIcsTCPConnection;
+    FWorker: TROIcsAsyncSuperChannelWorker;
+
+    FOnDisconnected: TROAsyncCallback;
+    FOnHaveIncompleteData: TROAsyncCallback;
+
+    FInternalReceiveBuffer: array of Byte;
+    FInternalReceivedBytes: Integer;
+
+    FRequestedReceiveBytes: Integer;
+    FReceiveBuffer: Pointer;
+    FReceivedBytes: Integer;
+    FReceiveCallback: TROAsyncCallback;
+
+    FSentBytes: Integer;
+    FSendCallback: TROAsyncCallback;
+
+    FError: Boolean;
+    FConnectCallback: TROAsyncCallback;
+    FDisconnectCallback: TROAsyncCallback;
+
+    FMessagePumpThread: TROIcsMessagePumpThread;
+
+    procedure ReceiveBytes;
+    function InternalReceive(Buffer : Pointer; BufferSize: Integer): Integer; 
+
+    procedure DoSendCallback;
+    procedure DoConnectCallback;
+    procedure DoDisconnectCallback;
+    procedure DoReceiveCallback;
+    procedure DoOnDisconnected;
+    procedure DoOnHaveIncompleteData;
+    
+    function GetAbstractTCPConnection: IROAbstractTCPConnection;
+  protected
+    FDisposed: Boolean;
+
+    procedure WndProc(var MsgRec: TMessage); override;
+
+    // overriden from TWSocket
+    procedure TriggerDataSent(Error: Word); override;
+    procedure TriggerSessionConnectedSpecial(Error : Word); override;
+    procedure TriggerSessionConnected(Error: Word); override;
+    procedure TriggerError; override;
+    function TriggerDataAvailable(Error: Word): Boolean; override;
+    {$IFDEF RemObjects_ICS_v6}
+    procedure Dispose(Disposing: Boolean); override;
+    {$ENDIF}
+
+    // These ones are event handlers because there is no TriggerXXX for them
+    procedure HandleBgException(Sender: TObject; E: Exception; var CanClose: Boolean);
+  public
+    // overriden from TWSocket
+    procedure TriggerSessionClosed(Error: Word); override;
+    procedure StartConnection; override;
+
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+
+    procedure DetachFromThread;
+    procedure ClearROIcsTCPConnection;
+
+    property AbstractTCPConnection: IROAbstractTCPConnection read GetAbstractTCPConnection;
+    property Worker: TROIcsAsyncSuperChannelWorker read FWorker write FWorker;
+    property MessagePumpThread: TROIcsMessagePumpThread read FMessagePumpThread write FMessagePumpThread;
+
+    property OnDisconnected: TROAsyncCallback read FOnDisconnected write FOnDisconnected;
+    property OnHaveIncompleteData: TROAsyncCallback read FOnHaveIncompleteData write FOnHaveIncompleteData;
+
+    property ConnectCallback: TROAsyncCallback read FConnectCallback write FConnectCallback;
+    property DisconnectCallback: TROAsyncCallback read FDisconnectCallback write FDisconnectCallback;
+
+    property RequestedReceiveBytes: Integer read FRequestedReceiveBytes write FRequestedReceiveBytes;
+    property ReceiveBuffer: Pointer read FReceiveBuffer write FReceiveBuffer;
+    property ReceivedBytes: Integer read FReceivedBytes write FReceivedBytes;
+    property ReceiveCallback: TROAsyncCallback read FReceiveCallback write FReceiveCallback;
+
+    property SentBytes: Integer read FSentBytes write FSentBytes;
+    property SendCallback: TROAsyncCallback read FSendCallback write FSendCallback;
+  end;
+
+  IROAsyncICSSocket = interface
+  ['{969B866F-9487-4359-86A7-2B1B098D2D38}']
+    function GetSelf: TROIcsTCPConnection;
+  end;
+
+  // Class for interface
+  TROIcsTCPConnection = class(TInterfacedObject, IROAbstractTCPConnection, IROAsyncICSSocket)
+  private
+    FClientSocket: TROAsyncSuperTCPServerSocketClient;
+  protected
+    { IROAbstractTCPConnection }
+    procedure BeginReceive(aData: Pointer; aSize: Integer; aCallback: TROAsyncCallback);
+    procedure BeginSend(aData: Pointer; aSize: Integer; aCallback: TROAsyncCallback);
+
+    function EndReceive: Integer;
+    function EndSend: Integer;
+
+    procedure BeginDisconnect(aForce: Boolean; aCallback: TROAsyncCallback);
+    procedure EndDisconnect;
+
+    procedure BeginConnect(const aAdress: string; aPort: Integer; aCallback: TROAsyncCallback);
+    function EndConnect: Boolean;
+
+    procedure SetOnDisconnected(aCallback: TROAsyncCallback);
+    function GetOnDisconnected: TROAsyncCallback;
+
+    procedure SetOnHaveIncompleteData(aCallback: TROAsyncCallback);
+    function GetOnHaveIncompleteData: TROAsyncCallback;
+
+    { IROAsyncICSSocket }
+    function GetSelf: TROIcsTCPConnection;
+  public
+    constructor Create(ClientSocket: TROAsyncSuperTCPServerSocketClient);
+    destructor Destroy; override;
+
+    procedure ClearClientSocket;
+  end;
+
+// Under rare conditions an exception may occur inside the Execute method of
+// message pumps, outside of any work done by a socket they handle message for.
+// Message pumps deal with multiple objects and as such, it is not possible for
+// them to notify one more than the other.
+// However, it may be useful to be notified of such exceptions, which is the
+// reason why the type and procedure below are defined. Give a handler and you
+// will get notified when such an exception occur.
+//
+// WARNING: The parameter named "E" might be nil if the exception does not
+//          inherit from TObject. This would happen for instance if it is a
+//          system exception that is not managed by the RTL itself.
+type
+  TOnMessagePumpException = procedure(E: TObject; IsServerSocketsMessagePump: Boolean) of object;
+
+procedure SetOnMessagePumpException(Value: TOnMessagePumpException);
+
+// Use the type and method below to get notified when a message pump is terminated
+type
+  TOnMessagePumpTerminated = procedure(IsServerSocketsMessagePump: Boolean) of object;
+
+procedure SetOnMessagePumpTerminated(Value: TOnMessagePumpTerminated);
+
+// Write log. To be removed when things settle down
+procedure WriteICSLog(const Msg: string; IsServer: Boolean); overload;
+
+// Get access to the list of server socket message pumps. Useful to set the
+// properties on it, like MinCount and MaxPerCount
+function ServerSocketsMessagePumps: TROIcsMessagePumpThreadList;
+
+implementation
+
+uses
+  {$IFDEF ICS_LOG}
+  ServerParameters, ServerLogging, DBObjectsHelpers,
+  {$ENDIF ICS_LOG}
+  Math, Windows, Winsock, uROEventRepository, uROTypes;
+
+const
+  InternalReceiveBufferSize = 2048;  // Size in bytes of the internal receive buffer, for each client socket
+
+var
+  FServerSocketsMessagePumps: TROIcsMessagePumpThreadList;
+  FOnMessagePumpException: TOnMessagePumpException;
+  FOnMessagePumpTerminated: TOnMessagePumpTerminated;
+
+procedure SetOnMessagePumpException(Value: TOnMessagePumpException);
+begin
+  FOnMessagePumpException := Value;
+end;
+
+procedure SetOnMessagePumpTerminated(Value: TOnMessagePumpTerminated);
+begin
+  FOnMessagePumpTerminated := Value;
+end;
+
+function ServerSocketsMessagePumps: TROIcsMessagePumpThreadList;
+begin
+  if not Assigned(FServerSocketsMessagePumps) then
+    FServerSocketsMessagePumps := TROIcsMessagePumpThreadList.Create;
+
+  Result := FServerSocketsMessagePumps;
+end;
+
+procedure WriteICSLog(const Msg: string; IsServer: Boolean); overload;
+{$IFDEF ICS_LOG}
+var
+  LogFileName: string;
+  stream: TFileStream;
+  FullMsg: string;
+{$ENDIF ICS_LOG}
+begin
+  {$IFDEF ICS_LOG}
+  try
+    LogFileName := ServerParams.LogFilePath + ServerParams.LogFileBaseName + '_ics_thread_';
+    if IsServer then
+      LogFileName := LogFileName + 'serveurs'
+    else
+      LogFileName := LogFileName + 'clients';
+    LogFileName := LogFileName + '_' +
+                   FormatDateTime('yyyymmdd', Now) + '.log';
+
+    FullMsg := DateTimeToStr(Now) + ' : ' + Msg + #13#10;
+
+    if not FileExists(LogFileName) then
+      stream := TFileStream.Create(LogFileName, fmCreate or fmShareDenyWrite)
+    else
+      stream := TFileStream.Create(LogFileName, fmOpenReadWrite or fmShareDenyWrite);
+    try
+      stream.Position := stream.Size;
+      stream.Write(PChar(FullMsg)^, Length(FullMsg));
+    finally
+      stream.Free;
+    end;
+  except
+    // en cas d'exception � l'�criture, on �vite de killer l'appelant
+  end;
+  {$ENDIF ICS_LOG}
+end;
+
+procedure WriteICSLog(const Msg: string; Pump: TROIcsMessagePumpThread); overload;
+begin
+  if Assigned(Pump) then
+    WriteICSLog(Msg, Pump.FOwner = FServerSocketsMessagePumps)
+  else
+    WriteICSLog(Msg, False);
+end;
+
+{ TROWSocketServer }
+
+procedure TROWSocketServer.InternalClose(bShut: Boolean; Error: Word);
+var
+  I: Integer;
+begin
+  inherited InternalClose(bShut, Error);
+
+  // to mimick what Indy is doing, we disconnect all clients
+  for I := 0 to ClientCount - 1 do
+    Client[I].CloseDelayed;
+end;
+
+procedure TROWSocketServer.Listen;
+begin
+  inherited Listen;
+end;
+
+procedure TROWSocketServer.TriggerClientConnect(Client: TWSocketClient;
+  Error: Word);
+var
+  optval: Integer;
+  iStatus: Integer;
+begin
+  WriteICSLog('                TROWSocketServer.TriggerClientConnect: Entering...', True);
+  Client.ComponentOptions := Client.ComponentOptions + ComponentOptions;
+
+  if wsoTCPNoDelay in Client.ComponentOptions then
+  begin
+    optval := -1; { true, 0=false }
+    iStatus := WSocket_setsockopt(Client.HSocket, IPPROTO_TCP, TCP_NODELAY, @optval, SizeOf(optval));
+    if iStatus <> 0 then
+    begin
+      SocketError('setsockopt(IPPROTO_TCP, TCP_NODELAY)');
+      WriteICSLog('                  Error setting socket option, exiting...', True);
+      Exit;
+    end;
+  end;
+
+  WriteICSLog('                  Calling inherited...', True);
+  inherited TriggerClientConnect(Client, Error);
+  WriteICSLog('                TROWSocketServer.TriggerClientConnect: Normal end.', True);
+end;
+
+constructor TROWSocketServer.Create(AServer: TROCustomIcsAsyncSuperTCPServer);
+begin
+  inherited Create(nil);
+
+  FServer := AServer;
+  ComponentOptions := ComponentOptions + [wsoTCPNoDelay];
+end;
+
+destructor TROWSocketServer.Destroy;
+begin
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS] Freeing server socket...');
+  {$ENDIF ICS_LOG}
+  inherited Destroy;
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS] Server socket freed.');
+  {$ENDIF ICS_LOG}
+end;
+
+{$IFDEF RemObjects_ICS_v6}
+procedure TROWSocketServer.Dispose(Disposing: Boolean);
+var
+  ErrorMessage: string;
+begin
+  if not FDisposed then
+  begin
+    if Assigned(FMessagePumpThread) then
+      FMessagePumpThread.RemoveSocket(Self, ErrorMessage);
+
+    FDisposed := True;
+  end;
+
+  inherited Dispose(Disposing);
+end;
+{$ENDIF}
+procedure TROWSocketServer.WndProc(var MsgRec: TMessage);
+begin
+  WriteICSLog('TROWSocketServer.WndProc: Processing a message...', FMessagePumpThread);
+  WriteICSLog(Format('  MsgRec.Msg=$%.4x', [MsgRec.Msg]), FMessagePumpThread);
+  WriteICSLog(Format('  MsgRec.wParam=$%.8x  -  FHSocket=$%.8x', [MsgRec.wParam, FHSocket]), FMessagePumpThread);
+  WriteICSLog(Format('  MsgRec.lParamLo=$%.2x', [MsgRec.lParamLo]), FMessagePumpThread);
+  WriteICSLog(Format('  FPaused=%s', [BoolToStr(FPaused, True)]), FMessagePumpThread);
+  inherited WndProc(MsgRec);
+  WriteICSLog('TROWSocketServer.WndProc: Message processed.', FMessagePumpThread);
+end;
+
+{ TROCustomIcsAsyncSuperTCPServer }
+
+procedure TROCustomIcsAsyncSuperTCPServer.Connect;
+begin
+  // Assign properties here as Close clears them
+  FServerSocket.Port := IntToStr(fPort);
+  FServerSocket.Proto := 'tcp';
+  FServerSocket.Addr := '0.0.0.0';  // Listen on any interface 
+  FServerSocket.Listen;
+end;
+
+constructor TROCustomIcsAsyncSuperTCPServer.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+
+  fPort := 8095;
+
+  FWorkers := TObjectList.Create;
+  FClientMessagePumps := TROIcsMessagePumpThreadList.Create;
+
+  MinClientMessagePumps := DefaultMinClientMessagePumps;
+
+  FServerSocket := TROWSocketServer.Create(Self);
+  FServerSocket.ClientClass := TROAsyncSuperTCPServerSocketClient;
+  FServerSocket.Banner := '';
+  FServerSocket.BannerTooBusy := '';
+  FServerSocket.OnClientConnect := ServerSocketClientConnect;
+  FServerSocket.OnClientDisconnect := ServerSocketClientDisconnect;
+  FServerSocket.OnBgException := ServerSocketBgException;
+  FServerSocket.OnSessionClosed := ServerSocketSessionClosed;
+  DefaultResponse := 'ROSC:Invalid connection string';  
+  fAutoRegisterSession := True;
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS] Adding server socket...');
+  {$ENDIF ICS_LOG}
+  FServerSocket.MessagePumpThread := ServerSocketsMessagePumps.GetMessagePump(FServerSocket);
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS] Server socket added.');
+  {$ENDIF ICS_LOG}
+end;
+
+destructor TROCustomIcsAsyncSuperTCPServer.Destroy;
+var
+  i: Integer;
+begin
+  for i := FWorkers.Count -1 downto 0 do begin
+    fWorkers[i] := nil;
+  end;
+  inherited Destroy;
+
+  // Done after because the inherited Destroy sets Active to False which
+  // tries to disconnect the socket
+  FServerSocket.Free;
+  FClientMessagePumps.Free;
+  FWorkers.Free;
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.Disconnect;
+begin
+  FServerSocket.Close;
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.DoClientSocketException(
+  Socket: TROAsyncSuperTCPServerSocketClient; E: TObject);
+begin
+  if Assigned(FOnClientSocketBackgroundException) then
+    OnClientSocketBackgroundException(Self, Socket, E);
+end;
+
+function TROCustomIcsAsyncSuperTCPServer.GetMaxClientsPerPump: Integer;
+begin
+  Result := FClientMessagePumps.MaxClientsPerPump;
+end;
+
+function TROCustomIcsAsyncSuperTCPServer.GetMinClientMessagePumps: Integer;
+begin
+  Result := FClientMessagePumps.MinCount;
+end;
+
+function TROCustomIcsAsyncSuperTCPServer.IntGetActive: boolean;
+begin
+  Result := Assigned(FServerSocket) and not (FServerSocket.State in [wsClosed, wsInvalidState]); 
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.IntSetActive(const Value: boolean);
+begin
+  if Value <> Active then
+  begin
+    if fThreadPool = nil then begin
+      fThreadPool := TROThreadPool.Create(nil);
+      fOwnsThreadpool := true;
+    end;
+
+    if Value then
+      Connect
+    else
+      Disconnect;
+  end;
+end;
+
+// This handler is called when a listening (server) socket experienced a
+// background exception. Should normally never occur.
+procedure TROCustomIcsAsyncSuperTCPServer.ServerSocketBgException(
+  Sender: TObject; E: Exception; var CanClose: Boolean);
+begin
+  CanClose := False;  // Let's hope server can still continue
+  if Assigned(FOnServerSocketBackgroundException) then
+    OnServerSocketBackgroundException(Self, Sender as TROWSocketServer, E);
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.ServerSocketClientConnect(
+  Sender: TObject; Client: TWSocketClient; Error: Word);
+var
+  Worker: TROIcsAsyncSuperChannelWorker;
+begin
+  Worker := TROIcsAsyncSuperChannelWorker.Create(Self, Client as TROAsyncSuperTCPServerSocketClient);
+  Worker.DoSetup;
+  
+  FWorkers.Add(Worker);
+  
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS] Adding client socket...');
+  {$ENDIF ICS_LOG}
+  // Only attach here and not in "ClientCreate" so that if the socket cannot
+  // be attached, it can at least be closed.
+  TROAsyncSuperTCPServerSocketClient(Client).MessagePumpThread := FClientMessagePumps.GetMessagePump(Client); //GetClientSocketMessagePump(Client);
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS] Client socket added.');
+  {$ENDIF ICS_LOG}
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.ServerSocketClientDisconnect(
+  Sender: TObject; Client: TWSocketClient; Error: Word);
+begin
+  // Wait for client to be actually disconnected before removing the worker
+  while Client.State <> wsClosed do
+    SleepEx(5, True);
+
+  FWorkers.Remove((Client as TROAsyncSuperTCPServerSocketClient).Worker);
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.ServerSocketSessionClosed(
+  Sender: TObject; ErrCode: Word);
+begin
+  if Assigned(OnServerSocketSessionClosed) then
+    OnServerSocketSessionClosed(Self, Sender as TROWSocketServer, ErrCode);
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.SetMaxClientsPerPump(
+  const Value: Integer);
+begin
+  FClientMessagePumps.MaxClientsPerPump := Value;
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.SetMinClientMessagePumps(
+  const Value: Integer);
+begin
+  FClientMessagePumps.MinCount := Value;
+end;
+
+procedure TROCustomIcsAsyncSuperTCPServer.SetPort(const Value: Integer);
+begin
+  if fPort <> Value then
+  begin
+    fPort := Value;
+    FServerSocket.Port := IntToStr(fPort);
+  end;
+end;
+
+{ TROAsyncSuperTCPServerSocketClient }
+
+procedure TROAsyncSuperTCPServerSocketClient.ClearROIcsTCPConnection;
+begin
+  FTCPConnection := nil;
+end;
+
+constructor TROAsyncSuperTCPServerSocketClient.Create(AOwner: TComponent);
+begin
+  try
+    inherited Create(AOwner);
+
+    // No receive loop so that when the "TriggerDataAvailable" code could not
+    // read all the data available, the message pump is not stopped and any other
+    // client socket associated to it continues to work.
+    ComponentOptions := ComponentOptions + [wsoNoReceiveLoop, wsoTCPNoDelay];
+
+    SetLength(FInternalReceiveBuffer, InternalReceiveBufferSize);
+    OnBgException := HandleBgException;
+  except
+    on E: TObject do
+    begin
+      FState := wsClosed;
+      raise;
+    end
+    else
+    begin
+      FState := wsClosed;
+      raise;
+    end;
+  end;
+end;
+
+destructor TROAsyncSuperTCPServerSocketClient.Destroy;
+begin
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS] Freeing client socket...');
+  {$ENDIF ICS_LOG}
+  inherited Destroy;
+
+  // Done after because the inherited Destroy might want to do some network cleanup
+  if Assigned(FTCPConnection) then
+    FTCPConnection.ClearClientSocket;
+
+  SetLength(FInternalReceiveBuffer, 0);
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS] Client freed...');
+  {$ENDIF ICS_LOG}
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.DetachFromThread;
+var
+  ErrorMessage: string;
+begin
+  if Assigned(FMessagePumpThread) then
+    FMessagePumpThread.RemoveSocket(Self, ErrorMessage);
+end;
+
+{$IFDEF RemObjects_ICS_v6}
+procedure TROAsyncSuperTCPServerSocketClient.Dispose(Disposing: Boolean);
+begin
+  if not FDisposed then
+  begin
+    // Done here, just in case it was not done by the Worker instance
+    // Note that if it has already been done, it's not a problem as ICS is
+    // designed to ignore duplicate requests to detach a socket.
+    DetachFromThread;
+
+    FDisposed := True;
+  end;
+
+  inherited Dispose(Disposing);
+end;
+{$ENDIF}
+procedure TROAsyncSuperTCPServerSocketClient.DoConnectCallback;
+begin
+  if Assigned(FConnectCallback) then
+    FConnectCallback(AbstractTCPConnection);
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.DoDisconnectCallback;
+begin
+  if Assigned(FDisconnectCallback) then
+    FDisconnectCallback(AbstractTCPConnection);
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.DoOnDisconnected;
+begin
+  if Assigned(FOnDisconnected) then
+    FOnDisconnected(AbstractTCPConnection);
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.DoOnHaveIncompleteData;
+begin
+  if Assigned(FOnHaveIncompleteData) then
+    FOnHaveIncompleteData(AbstractTCPConnection);
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.DoReceiveCallback;
+begin
+  if Assigned(FReceiveCallback) then
+    FReceiveCallback(AbstractTCPConnection);
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.DoSendCallback;
+begin
+  if Assigned(FSendCallback) then
+    FSendCallback(AbstractTCPConnection);
+end;
+
+function TROAsyncSuperTCPServerSocketClient.GetAbstractTCPConnection: IROAbstractTCPConnection;
+begin
+  if not Assigned(FTCPConnection) then
+    FTCPConnection := TROIcsTCPConnection.Create(Self);
+    
+  Result := FTCPConnection;
+end;
+
+// This event handler is called when a client socket experience a background
+// exception. It is likely to occur when client aborted connection and data
+// has not been sent yet.
+// Warning: This procedure is executed in worker thread context.
+procedure TROAsyncSuperTCPServerSocketClient.HandleBgException(Sender: TObject;
+  E: Exception; var CanClose: Boolean);
+begin
+  // kill client connection if possible and necessary
+  CanClose := not (State in [wsInvalidState, wsClosed]);
+  (Server as TROWSocketServer).Server.DoClientSocketException(Self, E);
+end;
+
+function TROAsyncSuperTCPServerSocketClient.InternalReceive(Buffer: Pointer;
+  BufferSize: Integer): Integer;
+begin
+  Result := Min(BufferSize, FInternalReceivedBytes);
+  if Result > 0 then
+  begin
+    // Copy bytes into destination buffer
+    CopyMemory(Buffer, FInternalReceiveBuffer, Result);
+
+    // Shift remaining bytes (if any) in the internal buffer.
+    Dec(FInternalReceivedBytes, Result);
+    if FInternalReceivedBytes > 0 then
+      MoveMemory(FInternalReceiveBuffer, @(FInternalReceiveBuffer[Result]), FInternalReceivedBytes);
+  end;
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.ReceiveBytes;
+var
+  ReadBytes: Integer;
+begin
+  if Assigned(FReceiveBuffer) then
+  begin
+    repeat
+      // Retrieve the bytes from the internal buffer, if any are available
+      ReadBytes := InternalReceive(FReceiveBuffer, FRequestedReceiveBytes - FReceivedBytes);
+      if ReadBytes >= 0 then
+      begin
+        Inc(FReceivedBytes, ReadBytes);
+        Inc(PByte(FReceiveBuffer), ReadBytes);
+        if FReceivedBytes >= FRequestedReceiveBytes then
+        begin
+          FRequestedReceiveBytes := 0;
+          DoReceiveCallback;
+        end;
+      end;
+
+      // We are looping here because a client socket might have received more
+      // bytes than what the worker class has requested at first, for instance
+      // received 6 and 5 were initially requested. Those 5 are read by the
+      // call to ReceiveBytes inside the TriggerDataAvailable override, and
+      // analysed via the DoReceiveCallback call above. This in turn might
+      // trigger the request for more bytes.
+      // But if we did not loop here, the available byte would never be read
+      // and would stay in the buffer in front of the next bytes received
+      // later on. Then the TriggerDataAvailable called at that later time would
+      // trigger the request of N bytes and get this extra byte in front of
+      // them. This extra byte would then prevent the correct processing of
+      // the other bytes.
+    until (FInternalReceivedBytes <= 0) or (FRequestedReceiveBytes <= 0);
+  end;
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.StartConnection;
+begin
+  inherited StartConnection;
+
+  DoConnectCallback;
+end;
+
+function TROAsyncSuperTCPServerSocketClient.TriggerDataAvailable(
+  Error: Word): Boolean;
+var
+  ReadBytes: Integer;
+begin
+  inherited TriggerDataAvailable(Error);
+
+  // Read the available data into our internal buffer if it can hold more data
+  if FInternalReceivedBytes < InternalReceiveBufferSize  then
+  begin
+    ReadBytes := Receive(@(FInternalReceiveBuffer[FInternalReceivedBytes]), InternalReceiveBufferSize - FInternalReceivedBytes);
+    if ReadBytes >= 0 then
+      Inc(FInternalReceivedBytes, ReadBytes);
+  end;
+
+  // Notify that we have data and immediately try to read it, the callback
+  // might have requested it already. Note that this last part has to be done
+  // so that the message pump can be left without any knowledge of sockets
+  // waiting for data. This allows faster processing and less stress on the
+  // data buffer when transferring large chunks of data.
+  DoOnHaveIncompleteData;
+  ReceiveBytes;
+
+  // Return True to indicate that we have read the data.
+  Result := True;
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.TriggerDataSent(Error: Word);
+begin
+  inherited TriggerDataSent(Error);
+
+  DoSendCallback;
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.TriggerError;
+begin
+  inherited TriggerError;
+
+  FError := True;
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.TriggerSessionClosed(Error: Word);
+begin
+  // The inherited call will notify the server socket through messaging. So
+  // we do any cleanup before the server is notified as our cleanup must not
+  // be disturbed by the server doing its own cleanup.
+  DoDisconnectCallback;
+  DoOnDisconnected;
+  
+  inherited TriggerSessionClosed(Error);
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.TriggerSessionConnected(
+  Error: Word);
+begin
+  inherited TriggerSessionConnected(Error);
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.TriggerSessionConnectedSpecial(
+  Error: Word);
+begin
+  inherited TriggerSessionConnectedSpecial(Error);
+end;
+
+procedure TROAsyncSuperTCPServerSocketClient.WndProc(var MsgRec: TMessage);
+begin
+  WriteICSLog('TROAsyncSuperTCPServerSocketClient.WndProc: Processing a message...', FMessagePumpThread);
+  WriteICSLog(Format('  MsgRec.Msg=$%.4x', [MsgRec.Msg]), FMessagePumpThread);
+  WriteICSLog(Format('  MsgRec.wParam=$%.8x  -  FHSocket=$%.8x', [MsgRec.wParam, FHSocket]), FMessagePumpThread);
+  WriteICSLog(Format('  MsgRec.lParamLo=$%.2x', [MsgRec.lParamLo]), FMessagePumpThread);
+  WriteICSLog(Format('  FPaused=%s', [BoolToStr(FPaused, True)]), FMessagePumpThread);
+  inherited WndProc(MsgRec);
+  WriteICSLog('TROAsyncSuperTCPServerSocketClient.WndProc: Message processed.', FMessagePumpThread);
+end;
+
+{ TROIcsAsyncSuperChannelWorker }
+
+procedure TROIcsAsyncSuperChannelWorker.Connected;
+var
+  data, rs: Binary;
+  evd: TROEventData;
+  i, len: Longint;
+  fl: Boolean;
+begin
+  if assigned(FServer.OnClientConnected) then
+    FServer.OnClientConnected(Self, ClientID);
+  FServer.fClients.LockList;
+  try
+    i := FServer.GuidToClientMap.IndexOf(GUIDToString(ClientId));
+    if i = -1 then
+      FServer.GuidToClientMap.AddObject(GUIDToString(ClientId), Self)
+    else
+      FServer.GuidToClientMap.Objects[i] := Self;
+  finally
+    FServer.fClients.UnlockList;
+  end;
+
+  if FServer.EventRepository <> nil then
+  begin
+    if FServer.AutoRegisterSession then begin
+      fl := True;
+      FServer.EventRepository.AddSession(ClientID, Self);
+    end
+    else begin
+      fl := FServer.EventRepository.AddActiveListener(ClientID, Self);
+    end;
+    if fl then begin
+      rs := Binary.Create;
+      try
+        FServer.EventRepository.GetEventData(ClientID, rs);
+        rs.Position := 0;
+        if rs.Read(len, sizeof(len)) <> sizeof(len) then exit;
+        while true do begin
+          if rs.Read(len, sizeof(len)) <> sizeof(len) then break;
+          data := Binary.Create;
+          data.CopyFrom(rs, Len);
+          data.Position := 0;
+          evd := TROEventData.Create(data);
+          try
+            DispatchEvent(evd, ClientID, FServer.EventRepository);
+          finally
+            data.Free;
+          end;
+        end;
+      finally
+        rs.Free;
+      end;
+    end;
+  end;
+end;
+
+constructor TROIcsAsyncSuperChannelWorker.Create(
+  AServer: TROCustomIcsAsyncSuperTCPServer; AClient: TROAsyncSuperTCPServerSocketClient);
+begin
+  inherited Create(AClient.AbstractTCPConnection);
+
+  FServer := AServer;
+  FClient := AClient;
+
+  IsServer := True;
+  FServer.FClients.Add(self);
+  FClient.Worker := Self;
+end;
+
+destructor TROIcsAsyncSuperChannelWorker.Destroy;
+begin
+  FServer.FClients.Remove(Self);
+
+  // Detach from thread here to prevent the thread to call "write" or "read"
+  // methods on a destroyed worker. 
+  FClient.DetachFromThread;
+
+  inherited Destroy;
+end;
+
+procedure TROIcsAsyncSuperChannelWorker.Disconnected(var RestartLoop: Boolean);
+var
+  i: Integer;
+begin
+  if fEventManager <> nil then
+    fEventManager.SessionsChangedNotification(ClientID, saRemoveActiveListener, Self);
+  FServer.fClients.LockList;
+  try
+    i := FServer.GuidToClientMap.IndexOf(GUIDToString(ClientId));
+    if i <> -1 then
+    begin
+      if FServer.GuidToClientMap.Objects[i] = self then
+        FServer.GuidToClientMap.Delete(i);
+    end;
+  finally
+    FServer.fClients.UnlockList;
+  end;
+  if assigned(FServer.OnClientDisconnected) then FServer.OnClientDisconnected(Self, ClientID);
+end;
+
+procedure TROIcsAsyncSuperChannelWorker.DispatchEvent(
+  anEventDataItem: TROEventData; aSessionReference: TGUID; aSender: TObject);
+var
+  se: TSendEvent;
+begin
+  se := TSendEvent.Create(FServer, aSessionReference, TROEventRepository(aSender), anEventDataItem);
+  se.WorkerOverride := self;
+  if FServer.BlockingEvents then
+  begin
+    try
+      se.Callback(FServer.ThreadPool, nil);
+    except
+    end;
+    se.Free;
+  end
+  else
+  begin
+    FServer.ThreadPool.QueueItem(se);
+  end;
+end;
+
+procedure TROIcsAsyncSuperChannelWorker.EventsRegistered(aSender: TObject;
+  aClient: TGUID);
+var
+  lNew : IROSessionsChangesListener;
+begin
+  Supports(aSender, IROSessionsChangesListener, lNew);
+  if (fEventManager <> nil) and (lNew <> fEventManager) then
+  begin
+    fEventManager.SessionsChangedNotification(aClient, saRemoveActiveListener, Self);
+  end;
+  fEventManager := lNew;
+end;
+
+function TROIcsAsyncSuperChannelWorker.GetClientAddress: string;
+begin
+  if not (FClient.State in [wsInvalidState, wsConnecting, wsClosed]) then
+    Result := FClient.PeerAddr
+  else
+    Result := '';
+end;
+
+function TROIcsAsyncSuperChannelWorker.GetDefaultResponse: string;
+begin
+  Result := FServer.DefaultResponse;
+end;
+
+procedure TROIcsAsyncSuperChannelWorker.IncomingData(Id: Integer;
+  aData: uROAsyncSCHelpers.TByteArray);
+var
+  Stream: TMemoryStream;
+begin
+  Stream := TMemoryStream.Create;
+  try
+    Stream.Write(aData[0], Length(aData));
+    FServer.HasData(Id, Self, Stream);
+  except // only on failure
+    Stream.Free;
+    raise;
+  end;
+end;
+
+{ TROIcsMessagePumpSocketAction }
+
+constructor TROIcsMessagePumpSocketAction.Create(ASocket: TCustomWSocket;
+  AActionKind: TROIcsMessagePumpSocketActionKind);
+begin
+  inherited Create;
+
+  FSocket := ASocket;
+  FActionKind := AActionKind;
+  FStatus := asPending;
+end;
+
+{ TMessagePumpThread }
+
+function TROIcsMessagePumpThread.AddSocket(ASocket: TCustomWSocket; out ErrorMessage: string): Boolean;
+var
+  Action: TROIcsMessagePumpSocketAction;
+begin
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS]   Adding a socket...');
+  {$ENDIF ICS_LOG}
+  if not Assigned(ASocket) then
+  begin
+    Result := False;
+    ErrorMessage := 'Attempted to add a nil socket';
+    Exit;
+  end;
+
+  // Detach from current thread
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS]   Detaching socket...');
+  {$ENDIF ICS_LOG}
+  ASocket.ThreadDetach;
+  TWSocket(ASocket).MultiThreaded := True;
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS]   Socket detached.');
+  {$ENDIF ICS_LOG}
+
+  // Add action to attach socket to message pump thread
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS]   Adding "add action" for socket to action list...');
+  {$ENDIF ICS_LOG}
+  Action := TROIcsMessagePumpSocketAction.Create(ASocket, akAdd);
+  try
+    LockPendingActions;
+    try
+      FPendingActions.Add(Action);
+    finally
+      {$IFDEF ICS_LOG}
+      WriteLog('[ICS]   Unlocking pending actions list...');
+      {$ENDIF ICS_LOG}
+      UnlockPendingActions;
+    end;
+    {$IFDEF ICS_LOG}
+    WriteLog('[ICS]   Action added to list.');
+    {$ENDIF ICS_LOG}
+
+    // Wait for action to be performed
+    {$IFDEF ICS_LOG}
+    WriteLog('[ICS]   Waiting for action to complete...');
+    {$ENDIF ICS_LOG}
+    while Action.Status = asPending do
+      SleepEx(1, True);
+    {$IFDEF ICS_LOG}
+    WriteLog('[ICS]   Action has been done.');
+    {$ENDIF ICS_LOG}
+
+    Result := Action.Status = asSuccess;
+    ErrorMessage := Action.ErrorMessage;
+  finally
+    {$IFDEF ICS_LOG}
+    WriteLog('[ICS]   Freeing action.');
+    {$ENDIF ICS_LOG}
+    Action.Free;
+  end;
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS]   Normal end.');
+  {$ENDIF ICS_LOG}
+end;
+
+constructor TROIcsMessagePumpThread.Create(AOwner: TROIcsMessagePumpThreadLIst);
+begin
+  inherited Create(True);
+
+  FOwner := AOwner;
+  FPendingActionsSection := TCriticalSection.Create;
+
+  FSockets := TObjectList.Create(False);
+  FPendingActions := TObjectList.Create(False);
+  {$IFDEF RemObjects_ICS_v6}
+  FICSHandleHolder := TIcsWndControl.Create(nil);
+  {$ENDIF}
+  Suspended := False;
+end;
+
+destructor TROIcsMessagePumpThread.Destroy;
+begin
+  // Force thread to terminate
+  Terminate;
+  FSockets.Clear;
+
+  inherited Destroy;
+  {$IFDEF RemObjects_ICS_v6}
+  FICSHandleHolder.Free;
+  {$ENDIF}
+
+  FSockets.Free;
+  FPendingActions.Free;
+
+  FPendingActionsSection.Free;
+end;
+
+procedure TROIcsMessagePumpThread.DoMessagePumpException(E: TObject);
+begin
+  try
+    if Assigned(FOnMessagePumpException) then
+      FOnMessagePumpException(E, FOwner = FServerSocketsMessagePumps);
+  except
+    ; // can't accept any exceptions here or it would kill the caller
+  end;
+end;
+
+procedure TROIcsMessagePumpThread.DoTerminate;
+begin
+  try
+    inherited DoTerminate;
+
+    if Assigned(FOnMessagePumpTerminated) then
+      FOnMessagePumpTerminated(FOwner = FServerSocketsMessagePumps);
+  except
+    ;  // can't accept any exception here or it would kill the caller
+  end;
+end;
+
+type
+  TAccessWSocket = class(TCustomWSocket);
+
+procedure TROIcsMessagePumpThread.Execute;
+var
+  MsgRec: TMsg;
+  I: Integer;
+  pHandles: Pointer;
+  Action: TROIcsMessagePumpSocketAction;
+begin
+  WriteICSLog('Start of Execute method.', Self);
+  // Process messages until WM_QUIT has been received or Terminated set to True
+  repeat
+    try
+      // Attach handle holder. Done inside the repeat loop so that we do not
+      // have to duplicate the try..except handling in case the handle holder
+      // cannot be attached.
+      // We are using this handle holder so that ICS will create the handle
+      // as early as possible and keep using it throughout the life of the
+      // process. This way, if later in its life it would not be possible to
+      // create new handles, we would have the one created here the first time
+      // the loop goes through. Note that this situation (no more handles) is
+      // more likely to happen with a very busy process using Indy for most of
+      // its tasks as Indy uses a lot of resources.
+      {$IFDEF RemObjects_ICS_v6}
+      if FICSHandleHolder.Handle = 0 then
+        FICSHandleHolder.ThreadAttach;
+      {$ENDIF}
+
+      // Got a message? Process it and do it first in the loop as its processing
+      // can trigger code that adds sockets, removes some, requests bytes...
+      if PeekMessage(MsgRec, 0, 0, 0, PM_REMOVE) then
+      begin
+        WriteICSLog(Format('Translating message $%.4x', [MsgRec.message]), Self);
+        TranslateMessage(MsgRec);
+        WriteICSLog(Format('Dispatching message $%.4x', [MsgRec.message]), Self);
+        DispatchMessage(MsgRec);
+        WriteICSLog('Message dispatched.', Self);
+      end;
+
+      // If socket actions are waiting, perform them
+      if FPendingActions.Count > 0 then
+      begin
+        WriteICSLog('Processing socket actions...', Self);
+        LockPendingActions;
+        try
+          while FPendingActions.Count > 0 do
+          begin
+            Action := TROIcsMessagePumpSocketAction(FPendingActions[0]);
+            try
+              try
+                case Action.ActionKind of
+                  akAdd:
+                  begin
+                    WriteICSLog('  Adding a socket...', Self);
+                    Action.Socket.ThreadAttach;
+                    FSockets.Add(Action.Socket);
+                    WriteICSLog('  Socket added.', Self);
+                  end;
+                  akRemove:
+                  begin
+                    WriteICSLog('  Removing a socket...', Self);
+                    InternalRemoveSocket(Action.Socket);
+                    WriteICSLog('  Socket removed.', Self);
+                  end;
+                end;
+                Action.Status := asSuccess;
+              except
+                on E: TObject do
+                begin
+                  Action.Status := asError;
+                  Action.ErrorMessage := E.ClassName;
+                  if E is Exception then
+                    Action.ErrorMessage := Action.ErrorMessage + ', ' + Exception(E).Message;
+                  raise;
+                end;
+                else
+                begin
+                  Action.Status := asError;
+                  Action.ErrorMessage := 'Unknow exception';
+                  raise;
+                end;
+              end;
+            finally
+              FPendingActions.Delete(0);
+            end;
+          end;
+        finally
+          WriteICSLog('Unlocking pending socket actions list...', Self);
+          UnlockPendingActions;
+        end;
+        WriteICSLog('New socket actions processed.', Self);
+      end;
+
+      // If there are messages in the queue, then do not wait at all, else, wait
+      // as little as possible, so as to avoid 100% CPU usage and still process
+      // as fast as we possibly can.
+      MsgWaitForMultipleObjectsEx(0, pHandles, 1, QS_ALLINPUT, MWMO_ALERTABLE);
+    except
+      // Ensure that no exception kills the message processing thread. If we
+      // did not do that, the server would still respond to connection attempts
+      // but would not reply to any bytes it would receive.
+      on E: TObject do
+        DoMessagePumpException(E);
+      else
+        DoMessagePumpException(nil);
+    end;
+  until Terminated or (MsgRec.message = WM_QUIT);
+
+  WriteICSLog('Quitting execute method, cleaning up...', Self);
+  // Indicate to all sockets that they are terminated
+  for I := 0 to FSockets.Count - 1 do
+    TAccessWSocket(Sockets[I]).FTerminated := True;
+
+  // Detach all remaining sockets
+  while FSockets.Count > 0 do
+    InternalRemoveSocket(Sockets[0]);
+  SleepEx(1, True);
+
+  // Detach handle holder
+  {$IFDEF RemObjects_ICS_v6}
+  if FICSHandleHolder.Handle <> 0 then
+    FICSHandleHolder.ThreadDetach;
+  {$ENDIF}  
+  
+  WriteICSLog('End of Execute method.', Self);
+end;
+
+function TROIcsMessagePumpThread.GetSocket(Index: Integer): TCustomWSocket;
+begin
+  Result := FSockets[Index] as TCustomWSocket;
+end;
+
+function TROIcsMessagePumpThread.GetSocketCount: Integer;
+begin
+  Result := FSockets.Count;
+end;
+
+procedure TROIcsMessagePumpThread.InternalRemoveSocket(ASocket: TCustomWSocket);
+begin
+  if ASocket is TROWSocketServer then
+    TROWSocketServer(ASocket).MessagePumpThread := nil;
+  if ASocket is TROAsyncSuperTCPServerSocketClient then
+    TROAsyncSuperTCPServerSocketClient(ASocket).MessagePumpThread := nil;
+
+  ASocket.ThreadDetach;
+  FSockets.Remove(ASocket);
+end;
+
+procedure TROIcsMessagePumpThread.LockPendingActions;
+begin
+  FPendingActionsSection.Acquire;
+end;
+
+function TROIcsMessagePumpThread.RemoveSocket(ASocket: TCustomWSocket; out ErrorMessage: string): Boolean;
+var
+  Action: TROIcsMessagePumpSocketAction;
+begin
+  // Add action to detach socket from message pump thread
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS]   Adding "remove action" for socket to action list...');
+  {$ENDIF ICS_LOG}
+  Action := TROIcsMessagePumpSocketAction.Create(ASocket, akRemove);
+  try
+    LockPendingActions;
+    try
+      FPendingActions.Add(Action);
+    finally
+      {$IFDEF ICS_LOG}
+      WriteLog('[ICS]   Unlocking pending actions list...');
+      {$ENDIF ICS_LOG}
+      UnlockPendingActions;
+    end;
+    {$IFDEF ICS_LOG}
+    WriteLog('[ICS]   Action added to list.');
+    {$ENDIF ICS_LOG}
+
+    // Wait for action to be performed
+    {$IFDEF ICS_LOG}
+    WriteLog('[ICS]   Waiting for action to complete...');
+    {$ENDIF ICS_LOG}
+    while Action.Status = asPending do
+      SleepEx(1, True);
+    {$IFDEF ICS_LOG}
+    WriteLog('[ICS]   Action has been done.');
+    {$ENDIF ICS_LOG}
+
+    Result := Action.Status = asSuccess;
+    ErrorMessage := Action.ErrorMessage;
+  finally
+    {$IFDEF ICS_LOG}
+    WriteLog('[ICS]   Freeing action.');
+    {$ENDIF ICS_LOG}
+    Action.Free;
+  end;
+  {$IFDEF ICS_LOG}
+  WriteLog('[ICS]   Normal end.');
+  {$ENDIF ICS_LOG}
+end;
+
+procedure TROIcsMessagePumpThread.UnlockPendingActions;
+begin
+  FPendingActionsSection.Release;
+end;
+
+{ TROIcsMessagePumpThreadList }
+
+function TROIcsMessagePumpThreadList.GetMessagePump(
+  ASocket: TCustomWSocket): TROIcsMessagePumpThread;
+var
+  ErrorMessage: string;
+  MinCount: Integer;
+  I: Integer;
+  CurCount: Integer;
+  LeastCountIndex: Integer;
+begin
+  // Let's find the pump that has the least number of sockets
+  MinCount := MaxInt;
+  LeastCountIndex := -1;
+  for I := 0 to Count - 1 do
+  begin
+    CurCount := Items[I].SocketCount;
+    if CurCount < MinCount then
+    begin
+      MinCount := CurCount;
+      LeastCountIndex := I;  
+    end;
+  end;
+
+  // Two cases:
+  // 1. No pump found or found pump is full, create a new one
+  // 2. No limit set or pump is not full, use the found pump
+  if (LeastCountIndex = -1) or ((MaxClientsPerPump > 0) and (MinCount > MaxClientsPerPump)) then
+    Result := Items[Add(TROIcsMessagePumpThread.Create(Self))]
+  else
+    Result := Items[LeastCountIndex];
+
+  // Now that we have a pump, attach the socket to it
+  if not Result.AddSocket(ASocket, ErrorMessage) then
+    ASocket.Close;
+end;
+
+function TROIcsMessagePumpThreadList.GetItem(
+  Index: Integer): TROIcsMessagePumpThread;
+begin
+  Result := TROIcsMessagePumpThread(inherited Items[Index]);
+end;
+
+procedure TROIcsMessagePumpThreadList.SetItem(Index: Integer;
+  const Value: TROIcsMessagePumpThread);
+begin
+  inherited Items[Index] := Value;
+end;
+
+procedure TROIcsMessagePumpThreadList.SetMaxClientsPerPump(
+  const Value: Integer);
+var
+  ConstrainedValue: Integer;
+begin
+  ConstrainedValue := Value;
+  if ConstrainedValue < 0 then
+    ConstrainedValue := 0;
+
+  if FMaxClientsPerPump <> ConstrainedValue then
+    FMaxClientsPerPump := ConstrainedValue;
+end;
+
+procedure TROIcsMessagePumpThreadList.SetMinCount(const Value: Integer);
+var
+  ConstrainedValue: Integer;
+  I: Integer;
+begin
+  ConstrainedValue := Value;
+  if ConstrainedValue < 1 then
+    ConstrainedValue := 1;
+
+  if FMinCount <> ConstrainedValue then
+  begin
+    FMinCount := ConstrainedValue;
+
+    if Count < MinCount then
+      for I := Count to MinCount - 1 do
+        Add(TROIcsMessagePumpThread.Create(Self));
+  end;
+end;
+
+{ TROIcsTCPConnection }
+
+procedure TROIcsTCPConnection.BeginConnect(const aAdress: string;
+  aPort: Integer; aCallback: TROAsyncCallback);
+begin
+  FClientSocket.ConnectCallback := aCallback;
+  FClientSocket.Addr := aAdress;
+  FClientSocket.Port := IntToStr(aPort);
+  FClientSocket.Connect;
+end;
+
+procedure TROIcsTCPConnection.BeginDisconnect(aForce: Boolean;
+  aCallback: TROAsyncCallback);
+begin
+  FClientSocket.DisconnectCallback := aCallback;
+  FClientSocket.CloseDelayed;
+end;
+
+procedure TROIcsTCPConnection.BeginReceive(aData: Pointer;
+  aSize: Integer; aCallback: TROAsyncCallback);
+begin
+  FClientSocket.ReceiveCallback := aCallback;
+  FClientSocket.RequestedReceiveBytes := aSize;
+  FClientSocket.ReceiveBuffer := aData;
+  FClientSocket.ReceivedBytes := 0;
+end;
+
+procedure TROIcsTCPConnection.BeginSend(aData: Pointer;
+  aSize: Integer; aCallback: TROAsyncCallback);
+begin
+  FClientSocket.SendCallback := aCallback;
+  FClientSocket.Send(aData, aSize);
+  FClientSocket.SentBytes := aSize;
+end;
+
+procedure TROIcsTCPConnection.ClearClientSocket;
+begin
+  FClientSocket := nil;
+end;
+
+constructor TROIcsTCPConnection.Create(
+  ClientSocket: TROAsyncSuperTCPServerSocketClient);
+begin
+  inherited Create;
+
+  FClientSocket := ClientSocket;
+end;
+
+destructor TROIcsTCPConnection.Destroy;
+begin
+  if Assigned(FClientSocket) then
+    FClientSocket.ClearROIcsTCPConnection;
+  
+  inherited Destroy;
+end;
+
+function TROIcsTCPConnection.EndConnect: Boolean;
+begin
+  FClientSocket.ConnectCallback := nil;
+  Result := True;
+end;
+
+procedure TROIcsTCPConnection.EndDisconnect;
+begin
+  FClientSocket.DisconnectCallback := nil;
+end;
+
+function TROIcsTCPConnection.EndReceive: Integer;
+begin
+  FClientSocket.ReceiveBuffer := nil;
+  FClientSocket.ReceiveCallback := nil;
+  Result := FClientSocket.ReceivedBytes;
+end;
+
+function TROIcsTCPConnection.EndSend: Integer;
+begin
+  FClientSocket.Flush;
+  FClientSocket.SendCallback := nil;
+  Result := FClientSocket.SentBytes;
+end;
+
+function TROIcsTCPConnection.GetOnDisconnected: TROAsyncCallback;
+begin
+  if Assigned(FClientSocket) then
+    Result := FClientSocket.OnDisconnected;
+end;
+
+function TROIcsTCPConnection.GetOnHaveIncompleteData: TROAsyncCallback;
+begin
+  if Assigned(FClientSocket) then
+    Result := FClientSocket.OnHaveIncompleteData;
+end;
+
+function TROIcsTCPConnection.GetSelf: TROIcsTCPConnection;
+begin
+  Result := Self;
+end;
+
+procedure TROIcsTCPConnection.SetOnDisconnected(aCallback: TROAsyncCallback);
+begin
+  if Assigned(FClientSocket) then
+    FClientSocket.OnDisconnected := aCallback;
+end;
+
+procedure TROIcsTCPConnection.SetOnHaveIncompleteData(
+  aCallback: TROAsyncCallback);
+begin
+  if Assigned(FClientSocket) then
+    FClientSocket.OnHaveIncompleteData := aCallback;
+end;
+
+initialization
+  FServerSocketsMessagePumps := TROIcsMessagePumpThreadList.Create;
+
+finalization
+  FServerSocketsMessagePumps.Free;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIdeOnly.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIdeOnly.pas
new file mode 100644
index 0000000..e97bb0f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIdeOnly.pas	
@@ -0,0 +1,33 @@
+unit uROIdeOnly;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+implementation
+{$IFNDEF FPC}
+{$IFDEF WINDOWS}
+uses Forms, Dialogs;
+
+initialization
+  if (not Assigned(Application)) or
+     (not Assigned(Application.MainForm)) or
+     (Application.MainForm.ClassName <> 'TAppBuilder') then begin
+    ShowMessage('The RemObjects SDK Packages may only be used at designtime.');
+    Application.Terminate;
+  end;
+{$ENDIF WINDOWS}
+{$ENDIF FPC}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmail.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmail.pas
new file mode 100644
index 0000000..90c8249
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmail.pas	
@@ -0,0 +1,79 @@
+unit uROIndyEmail;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, IdSMTP;
+
+procedure SendMessage(aSmtpClient:TIdSmtp; aMessage:TStream; const aType,aMessageID:string; const aFrom,aTo:string);
+
+const
+  MESSAGE_FILE_EXTENSION = '.dat';
+
+implementation
+
+uses
+  {$IFDEF RemObjects_INDY10} IdAttachmentFile, {$ENDIF}
+  {$IFDEF MSWINDOWS} Windows,{$ENDIF}
+  SysUtils, IdMessage, uROClasses;
+
+procedure SendMessage(aSmtpClient:TIdSmtp; aMessage:TStream; const aType,aMessageID:string; const aFrom,aTo:string);
+var
+  lMessage:TIdMessage;
+  lTempFile:string;
+begin
+  lMessage := TIdMessage.Create(nil);
+  try
+    lMessage.From.Address := aFrom;
+    lMessage.Recipients.Add.Address := aTo;
+    lMessage.Subject := aType+' '+aMessageID;
+    lMessage.Body.Text := 'RemObjects SDK Email Channel. http://www.remobjects.com';
+    lMessage.Headers.Add('X-Mailer: RemObjects SDK Email Channel');
+
+    { This is SO lame. unfortunately Indy doesnt allow to send a stream without
+      major work & rewriting stuff. which we _will_ do later. }
+    lTempFile := GetTempPath+aMessageID+MESSAGE_FILE_EXTENSION;
+    try
+      with TFileStream.Create(lTempFile,fmCreate) do try
+        aMessage.Seek(0,soFromBeginning);
+        CopyFrom(aMessage,aMessage.Size);
+      finally
+        Free();
+      end;
+      {$IFDEF RemObjects_INDY10}
+      TIdAttachmentFile.Create(lMessage.MessageParts, lTempFile);
+      {$ELSE}
+      TIdAttachment.Create(lMessage.MessageParts, lTempFile);
+      {$ENDIF}
+
+      aSmtpClient.Connect();
+      try
+        aSmtpClient.Send(lMessage);
+      finally
+        aSmtpClient.Disconnect();
+      end;
+
+    finally
+      DeleteFile(lTempFile);
+    end;
+
+  finally
+    lMessage.Free();
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmailChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmailChannel.pas
new file mode 100644
index 0000000..f34ea5f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmailChannel.pas	
@@ -0,0 +1,350 @@
+unit uROIndyEmailChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes,
+  //IdBaseComponent,
+  {$IFDEF RemObjects_INDY10} IdAttachment, {$ENDIF}
+  uROClient, uROClientIntf, uROAsync, IdSMTP, IdPOP3;
+
+type
+  TROCustomEmailChannel = class(TROTransportChannel, IROTransport, IROAsyncTransportChannel)
+  private
+    fClientEmail: string;
+    fServerEmail: string;
+    fSmtpClient: TIdSMTP;
+    fPop3Client: TIdPOP3;
+    fDeleteOldResponses: boolean;
+    procedure SetSmtpClient(const Value: TIdSMTP);
+    function GetSmtpServerAddress: string;
+    procedure SetSmtpServerAddress(const Value: string);
+    procedure SetPopClient(const Value: TIdPOP3);
+    function GetPop3ServerAddress: string;
+    procedure SetPop3ServerAddress(const Value: string);
+    function GetPop3Password: string;
+    function GetPop3username: string;
+    procedure SetPop3password(const Value: string);
+    procedure SetPop3Username(const Value: string);
+  protected
+    { IROTransport }
+    function GetTransportObject: TObject; override;
+
+    { IROAsyncTransport }
+    function CheckStatus(const iMessageID:string):Boolean;
+    function InvokeRequest(aRequest:TStream; iGetResponse:boolean=true):string;
+    procedure RetrieveResponse(const aMessageID:string; aResponse:TStream);
+
+    procedure IntDispatch(aRequest, aResponse : TStream); override;
+
+  public
+    constructor Create(aOwner:TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(aSource : TPersistent); override;
+  public { for publishing in descendand classes }
+    property Pop3ServerAddress:string read GetPop3ServerAddress write SetPop3ServerAddress;
+    property SmtpServerAddress:string read GetSmtpServerAddress write SetSmtpServerAddress;
+    property ServerEmail:string read fServerEmail write fServerEmail;
+    property ClientEmail:string read fClientEmail write fClientEmail;
+    property SmtpClient:TIdSMTP read fSmtpClient write SetSmtpClient;
+    property Pop3Client:TIdPOP3 read fPop3Client write SetPopClient;
+    property Pop3Username: string read GetPop3username write SetPop3Username;
+    property Pop3Password: string read GetPop3Password write SetPop3password;
+    property DeleteOldResponses:boolean read fDeleteOldResponses write fDeleteOldResponses default false;
+    procedure CheckProperties; override;
+  end;
+
+  TROEmailChannel = class(TROCustomEmailChannel)
+  published
+    property ClientEmail;
+    property DeleteOldResponses;
+    property Pop3Client;
+    property Pop3Password;
+    property Pop3ServerAddress;
+    property Pop3Username;
+    property ServerEmail;
+    property SmtpClient;
+    property SmtpServerAddress;
+  published
+    property DispatchOptions;
+    property OnAfterProbingServer;
+    property OnAfterProbingServers;
+    property OnBeforeProbingServer;
+    property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    //property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    property OnServerLocatorAssignment;
+    property ProbeFrequency;
+    property ProbeServers;
+    property ServerLocators;
+    property SynchronizedProbing;
+  end;
+
+implementation
+
+uses
+  {$IFDEF MSWINDOWS} Windows,{$ENDIF}
+  {$IFDEF RemObjects_UseEncryption} uRoEncryption, {$ENDIF}
+  SysUtils, IdMessage, uROClasses, {$IFDEF RemObjects_INDY9}IdMessageCoder,{$ENDIF}
+  uROIndyEmail;
+
+{ TROCustomEmailChannel }
+
+constructor TROCustomEmailChannel.Create(aOwner: TComponent);
+begin
+  inherited;
+  fSmtpClient := TIdSMTP.Create(self);
+  fSmtpClient.Name := 'InternalSmtpClient';
+  fPop3Client := TIdPOP3.Create(self);
+  fPop3Client.Name := 'InternalPop3Client';
+  {$IFDEF VER140UP}
+  fSmtpClient.SetSubComponent(true);
+  fPop3Client.SetSubComponent(true);
+  {$ENDIF VER140UP}
+end;
+
+destructor TROCustomEmailChannel.Destroy;
+begin
+  FreeAndNil(fSmtpClient);
+  FreeAndNil(fPop3Client);
+  inherited;
+end;
+
+
+function TROCustomEmailChannel.GetTransportObject: TObject;
+begin
+  result := self;
+end;
+
+procedure TROCustomEmailChannel.SetSmtpClient(const Value: TIdSMTP);
+begin
+  fSmtpClient.Assign(Value);
+end;
+
+function TROCustomEmailChannel.GetSmtpServerAddress: string;
+begin
+  result := fSmtpClient.Host;
+end;
+
+procedure TROCustomEmailChannel.SetSmtpServerAddress(const Value: string);
+begin
+  fSmtpClient.Host := Value;
+end;
+
+procedure TROCustomEmailChannel.SetPopClient(const Value: TIdPOP3);
+begin
+  fPop3Client.Assign(Value);
+end;
+
+function TROCustomEmailChannel.GetPop3Password: string;
+begin
+  result := fPop3Client.Password;
+end;
+
+function TROCustomEmailChannel.GetPop3ServerAddress: string;
+begin
+  result := fPop3Client.Host;
+end;
+
+function TROCustomEmailChannel.GetPop3username: string;
+begin
+ {$IFDEF RemObjects_INDY8}
+  result := fPop3Client.UserId;
+ {$ELSE}
+  result := fPop3Client.Username;
+ {$ENDIF RemObjects_INDY8}
+end;
+
+procedure TROCustomEmailChannel.SetPop3password(const Value: string);
+begin
+  fPop3Client.Password := Value;
+end;
+
+procedure TROCustomEmailChannel.SetPop3ServerAddress(const Value: string);
+begin
+  fPop3Client.Host := Value;
+end;
+
+procedure TROCustomEmailChannel.SetPop3Username(const Value: string);
+begin
+ {$IFDEF RemObjects_INDY8}
+  fPop3Client.UserId := Value;
+ {$ELSE}
+  fPop3Client.Username := Value;
+ {$ENDIF RemObjects_INDY8}
+end;
+
+procedure TROCustomEmailChannel.IntDispatch(aRequest, aResponse: TStream);
+var
+  lMessageID:string;
+begin
+  lMessageID := InvokeRequest(aRequest);
+  while not CheckStatus(lMessageID) do Sleep(1000); //ToDo: this is a lame workaround to get synchronous requests running now.
+  RetrieveResponse(lMessageID,aResponse);
+end;
+
+function TROCustomEmailChannel.InvokeRequest(aRequest:TStream; iGetResponse:boolean=true):string;
+begin
+  CheckProperties;
+  try
+    {$IFDEF FPC}
+    if iGetResponse then result := NewGuidAsString() else  //for preventing warning in FPC
+    {$ENDIF}
+    result := NewGuidAsString();
+    {$IFDEF RemObjects_UseEncryption}
+    if Encryption.EncryptionMethod <> tetNone then DoEncryption2(aRequest);
+    {$ENDIF}
+    uROIndyEmail.SendMessage(fSmtpClient,aRequest,REQUEST_MESSAGE_PREFIX,result,ClientEmail,ServerEmail);
+  finally
+    aRequest.Free();
+  end;
+end;
+
+function TROCustomEmailChannel.CheckStatus(const iMessageID:string):Boolean;
+var
+  i:integer;
+  lMessage:TIdMessage;
+begin
+  CheckProperties;
+  result := false;
+  fPop3Client.Connect();
+  try
+    for i := 1 to fPop3Client.CheckMessages do begin
+      lMessage := TIdMessage.Create(fPop3Client);
+      try
+        if fPop3Client.RetrieveHeader(i,lMessage) and
+           (lMessage.Subject = RESPONSE_MESSAGE_PREFIX+' '+iMessageID) then begin
+          result := true;
+          exit;
+        end;
+      finally
+        FreeAndNil(lMessage);
+      end;
+    end;
+  finally
+    fPop3Client.Disconnect();
+  end;
+end;
+
+procedure TROCustomEmailChannel.RetrieveResponse(const aMessageID:string; aResponse:TStream);
+var
+  i,j:integer;
+  lMessage:TIdMessage;
+  lAttachment:TIdAttachment;
+  lTempFile:string;
+  lFileStream:TFileStream;
+  lSuccess:boolean;
+begin
+  lSuccess := false;
+  CheckProperties;
+  fPop3Client.Connect();
+  try
+    for i := 1 to fPop3Client.CheckMessages do begin
+      lMessage := TIdMessage.Create(fPop3Client);
+      try
+        if fPop3Client.RetrieveHeader(i,lMessage) then begin
+          if (lMessage.Subject = RESPONSE_MESSAGE_PREFIX+' '+aMessageID) then begin
+
+            fPop3Client.Retrieve(i,lMessage);
+            for j := 0 to lMessage.MessageParts.Count-1 do begin
+
+              if (lMessage.MessageParts[j] is TIdAttachment) then begin
+
+                lAttachment := TIdAttachment(lMessage.MessageParts[j]);
+                if lAttachment.Filename = aMessageID+MESSAGE_FILE_EXTENSION then begin
+                  lTempFile := GetTempPath+lAttachment.Filename;
+                  lAttachment.SaveToFile(lTempFile);
+                  try
+                    lFileStream := TFileStream.Create(lTempFile,fmOpenRead);
+                    try
+                      aResponse.CopyFrom(lFileStream,lFileStream.Size);
+                      aResponse.Position := 0;
+                      {$IFDEF RemObjects_UseEncryption}
+                      if Encryption.EncryptionMethod <> tetNone then DoDecryption2(aResponse);
+                      {$ENDIF}
+                    finally
+                      lFileStream.Free();
+                    end;
+                  finally
+                    DeleteFile(lTempFile);
+                  end;
+                  lSuccess := true;
+
+                  fPop3Client.Delete(i);
+                  if not DeleteOldResponses then exit;
+                end;
+                if not lSuccess then RaiseError('Invalid Response email found for this communication: No response message attachment.');
+              end;
+            end;
+
+          end
+          else if DeleteOldResponses and (Pos(RESPONSE_MESSAGE_PREFIX+' ', lMessage.Subject) = 1) then begin
+            fPop3Client.Delete(i);
+          end;
+
+        end;
+      finally
+        FreeAndNil(lMessage);
+      end;
+    end;
+  finally
+    fPop3Client.Disconnect();
+  end;
+
+  if not lSuccess then
+    raise EROAsyncNoAnswerYet.Create('No Response email found for this communication, yet.');
+end;
+
+procedure TROCustomEmailChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROCustomEmailChannel;
+begin
+  inherited;
+  if aSource is TROCustomEmailChannel then begin
+    lSource := TROCustomEmailChannel(aSource);
+    ClientEmail := lSource.ClientEmail;
+    DeleteOldResponses := lSource.DeleteOldResponses;
+    Pop3Client := lSource.Pop3Client;
+    Pop3Password := lSource.Pop3Password;
+    Pop3ServerAddress := lSource.Pop3ServerAddress;
+    Pop3Username := lSource.Pop3Username;
+    ServerEmail := lSource.ServerEmail;
+    SmtpClient := lSource.SmtpClient;
+    SmtpServerAddress := lSource.SmtpServerAddress;
+  end;
+end;
+
+procedure TROCustomEmailChannel.CheckProperties;
+begin
+  inherited;
+  Check(Pop3ServerAddress = '', Name + '.Pop3ServerAddress must be set.');
+  Check(SmtpServerAddress = '', Name + '.SmtpServerAddress must be set.');
+  Check(ServerEmail = '', Name + '.ServerEmail must be set.');
+  Check(ClientEmail = '', Name + '.ClientEmail must be set.');
+  Check(Pop3Username = '', Name + '.Pop3Username must be set.');
+  Check(Pop3Password = '', Name + '.Pop3Password must be set.');
+end;
+
+initialization
+  RegisterTransportChannelClass(TROEmailChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROEmailChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmailServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmailServer.pas
new file mode 100644
index 0000000..255bc8a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyEmailServer.pas	
@@ -0,0 +1,411 @@
+unit uROIndyEmailServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS} Windows,{$ENDIF}
+  Classes,
+  {IdBaseComponent,} IdSMTP, IdPOP3,
+  {$IFDEF RemObjects_INDY10} IdAttachment, {$ENDIF}
+  uROClientIntf, uROServer, uROThread, {SyncObjs,} SysUtils;
+
+type
+  TROEmailServerThread = class;
+
+  TROExceptionEvent = procedure (aSender:TObject; aExceptionClass:TClass; const aExceptionMessage:string) of object;
+
+  TROCustomEmailServer = class(TROServer, IROTransport)
+  private
+    fServerEmail: string;
+    fSmtpClient: TIdSMTP;
+    fPop3Client: TIdPOP3;
+    fPop3CheckInterval: integer;
+    fWorkThread: TROEmailServerThread;
+    fOnException: TROExceptionEvent;
+    procedure SetSmtpClient(const Value: TIdSMTP);
+    function GetSmtpServerAddress: string;
+    procedure SetSmtpServerAddress(const Value: string);
+    procedure SetPopClient(const Value: TIdPOP3);
+    function GetPop3ServerAddress: string;
+    procedure SetPop3ServerAddress(const Value: string);
+    procedure SetPop3CheckInterval(const Value: integer);
+
+    procedure TriggerOnException(aExceptionClass:TClass; const aExceptionMessage:string);
+    function GetPop3Password: string;
+    function GetPop3username: string;
+    procedure SetPop3password(const Value: string);
+    procedure SetPop3Username(const Value: string);
+
+  public
+    constructor Create(aOwner:TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure CheckProperties; override;
+  protected
+    function GetTransportObject: TObject;
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive : boolean; override;
+
+  public { for publishing in descendand classes }
+    property Pop3ServerAddress:string read GetPop3ServerAddress write SetPop3ServerAddress;
+    property SmtpServerAddress:string read GetSmtpServerAddress write SetSmtpServerAddress;
+    property ServerEmail:string read fServerEmail write fServerEmail;
+    property SmtpClient:TIdSMTP read fSmtpClient write SetSmtpClient;
+    property Pop3Client:TIdPOP3 read fPop3Client write SetPopClient;
+    property Pop3Username: string read GetPop3username write SetPop3Username;
+    property Pop3Password: string read GetPop3Password write SetPop3password;
+    property Pop3CheckInterval:integer read fPop3CheckInterval write SetPop3CheckInterval default 60;
+    property OnException:TROExceptionEvent read fOnException write fOnException;
+  end;
+
+  TROEmailServer = class(TROCustomEmailServer)
+    property Pop3ServerAddress;
+    property SmtpServerAddress;
+    property ServerEmail;
+    property SmtpClient;
+    property Pop3Client;
+    property Pop3Username;
+    property Pop3Password;
+    property Pop3CheckInterval;
+    property OnException;
+  end;
+
+  TROEmailServerThread = class(TROServerCheckMessageThread)
+  private
+    fSync_ExceptionClass:TClass;
+    fSync_aExceptionMessage:string;
+    procedure Sync_TriggerOnException(aExceptionClass:TClass; const aExceptionMessage:string);
+    procedure Synced_TriggerOnException;
+  protected
+    procedure CheckForMessages; override;
+    procedure ProcessMessage(aRequest:TStream; const aMessageID,aFrom:string);
+  public
+    constructor Create(aOwner:TROCustomEmailServer); reintroduce;
+  end;
+
+  TROEmailServerProcessMessageThread = class(TROThread)
+  private
+    fOwner:TROCustomEmailServer;
+    fRequest:TStream;
+    fMessageID:string;
+    fFrom:string;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(aOwner:TROCustomEmailServer; aRequest:TStream; const aMessageID,aFrom:string); reintroduce;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+uses
+  IdMessage,
+  uROAsync, uROClasses, uROIndyEmail, uROServerIntf;
+
+{ TROCustomEmailServer }
+
+procedure TROCustomEmailServer.Assign(Source: TPersistent);
+var
+  lSource: TROCustomEmailServer;
+begin
+  inherited;
+  if Source is TROCustomEmailServer then begin
+    lSource := TROCustomEmailServer(Source);
+    OnException := lSource.OnException;
+    Pop3CheckInterval := lSource.Pop3CheckInterval;
+    Pop3Client := lSource.Pop3Client;
+    Pop3Password := lSource.Pop3Password;
+    Pop3ServerAddress := lSource.Pop3ServerAddress;
+    Pop3Username := lSource.Pop3Username;
+    ServerEmail := lSource.ServerEmail;
+    SmtpClient := lSource.SmtpClient;
+    SmtpServerAddress := lSource.SmtpServerAddress;
+  end;
+end;
+
+procedure TROCustomEmailServer.CheckProperties;
+begin
+  inherited;
+  if not (csDesigning in ComponentState) then begin
+    Check(Pop3ServerAddress = '', Name + '.Pop3ServerAddress must be set.');
+    Check(SmtpServerAddress = '', Name + '.SmtpServerAddress must be set.');
+    Check(ServerEmail = '', Name + '.ServerEmail must be set.');
+    Check(Pop3Username = '', Name + '.Pop3Username must be set.');
+    Check(Pop3Password = '', Name + '.Pop3Password must be set.');
+  end;
+end;
+
+constructor TROCustomEmailServer.Create(aOwner: TComponent);
+begin
+  inherited;
+  fSmtpClient := TIdSMTP.Create(self);
+  fSmtpClient.Name := 'InternalSmtpClient';
+  fPop3Client := TIdPOP3.Create(self);
+  fPop3Client.Name := 'InternalPop3Client';
+  Pop3CheckInterval := 60;
+  {$IFDEF VER140UP}
+  fSmtpClient.SetSubComponent(true);
+  fPop3Client.SetSubComponent(true);
+  {$ENDIF VER140UP}
+  fWorkThread := TROEmailServerThread.Create(self);
+end;
+
+destructor TROCustomEmailServer.Destroy;
+begin
+  fWorkThread.Free;
+  FreeAndNil(fSmtpClient);
+  FreeAndNil(fPop3Client);
+  inherited;
+end;
+
+function TROCustomEmailServer.GetPop3Password: string;
+begin
+  result := fPop3Client.Password;
+end;
+
+function TROCustomEmailServer.GetPop3ServerAddress: string;
+begin
+  result := fPop3Client.Host;
+end;
+
+function TROCustomEmailServer.GetPop3username: string;
+begin
+ {$IFDEF RemObjects_INDY8}
+  result := fPop3Client.UserId;
+ {$ELSE}
+  result := fPop3Client.Username;
+ {$ENDIF RemObjects_INDY8}
+end;
+
+function TROCustomEmailServer.GetSmtpServerAddress: string;
+begin
+  result := fSmtpClient.Host;
+end;
+
+function TROCustomEmailServer.GetTransportObject: TObject;
+begin
+  result := self;
+end;
+
+function TROCustomEmailServer.IntGetActive: boolean;
+begin
+  result := fWorkThread.Active;
+end;
+
+procedure TROCustomEmailServer.IntSetActive(const Value: boolean);
+begin
+  if Value then CheckProperties;
+  fWorkThread.Active := Value;
+end;
+
+procedure TROCustomEmailServer.SetPop3CheckInterval(const Value: integer);
+begin
+  fPop3CheckInterval := Value;
+end;
+
+procedure TROCustomEmailServer.SetPop3password(const Value: string);
+begin
+  fPop3Client.Password := Value;
+end;
+
+procedure TROCustomEmailServer.SetPop3ServerAddress(const Value: string);
+begin
+  fPop3Client.Host := Value;
+end;
+
+procedure TROCustomEmailServer.SetPop3Username(const Value: string);
+begin
+ {$IFDEF RemObjects_INDY8}
+  fPop3Client.UserId := Value;
+ {$ELSE}
+  fPop3Client.Username := Value;
+ {$ENDIF RemObjects_INDY8}
+end;
+
+procedure TROCustomEmailServer.SetPopClient(const Value: TIdPOP3);
+begin
+  fPop3Client.Assign(Value);
+end;
+
+procedure TROCustomEmailServer.SetSmtpClient(const Value: TIdSMTP);
+begin
+  fSmtpClient.Assign(Value);
+end;
+
+procedure TROCustomEmailServer.SetSmtpServerAddress(const Value: string);
+begin
+  fSmtpClient.Host := Value;
+end;
+
+procedure TROCustomEmailServer.TriggerOnException(aExceptionClass: TClass; const aExceptionMessage: string);
+begin
+  if Assigned(OnException) then
+    OnException(self, aExceptionClass, aExceptionMessage);
+end;
+
+{ TROEmailServerThread }
+
+constructor TROEmailServerThread.Create(aOwner:TROCustomEmailServer);
+begin
+  inherited Create('RemObjects Email Server Worker Thread',aOwner,aOwner.Pop3CheckInterval);
+end;
+
+procedure TROEmailServerThread.CheckForMessages;
+var
+  i,j:integer;
+  lMessage:TIdMessage;
+  lAttachment:TIdAttachment;
+  lTempFile:string;
+  lFileStream:TFileStream;
+  lRequest:TMemoryStream;
+  lMessageID:string;
+  lOwner:TROCustomEmailServer;
+begin
+  if Terminated then Exit;
+  try
+
+    lOwner := Owner as TROCustomEmailServer;
+
+    lOwner.Pop3Client.Connect();
+    try
+      for i := 1 to lOwner.Pop3Client.CheckMessages do begin
+        lMessage := TIdMessage.Create(lOwner.Pop3Client);
+        try
+          if lOwner.Pop3Client.RetrieveHeader(i,lMessage) then begin
+            if Pos(REQUEST_MESSAGE_PREFIX+' ',lMessage.Subject) = 1 then begin
+
+              lMessageID := lMessage.Subject;
+              Delete(lMessageID,1,Length(REQUEST_MESSAGE_PREFIX)+1);
+
+              lOwner.Pop3Client.Retrieve(i,lMessage);
+              for j := 0 to lMessage.MessageParts.Count-1 do begin
+
+                if (lMessage.MessageParts[j] is TIdAttachment) then begin
+
+                  lAttachment := TIdAttachment(lMessage.MessageParts[j]);
+                  if lAttachment.Filename = lMessageID+MESSAGE_FILE_EXTENSION then begin
+
+                    lRequest := TMemoryStream.Create();
+                    try
+
+                      lTempFile := GetTempPath+lAttachment.Filename;
+                      lAttachment.SaveToFile(lTempFile);
+                      try
+                        lFileStream := TFileStream.Create(lTempFile,fmOpenRead);
+                        try
+                          lRequest.CopyFrom(lFileStream,lFileStream.Size);
+                        finally
+                          lFileStream.Free();
+                        end;
+                      finally
+                        DeleteFile(lTempFile);
+                      end;
+                      ProcessMessage(lRequest,lMessageID,lMessage.From.Address);
+
+                    finally
+                      //lRequest will be freed by worker thread.
+                    end;
+
+                    lOwner.Pop3Client.Delete(i);
+                  end;
+                end;
+              end;
+
+            end;
+
+          end;
+        finally
+          FreeAndNil(lMessage);
+        end;
+      end;
+    finally
+      lOwner.Pop3Client.Disconnect();
+    end;
+
+  except
+    on E:Exception do begin
+      Sync_TriggerOnException(E.ClassType, E.Message);
+    end;
+  end;
+end;
+
+procedure TROEmailServerThread.ProcessMessage(aRequest: TStream; const aMessageID, aFrom: string);
+begin
+  TROEmailServerProcessMessageThread.Create(Owner as TROCustomEmailServer, aRequest, aMessageID, aFrom);
+end;
+
+procedure TROEmailServerThread.Sync_TriggerOnException(aExceptionClass:TClass; const aExceptionMessage:string);
+begin
+  if Terminated then exit;
+  fSync_ExceptionClass := aExceptionClass;
+  fSync_aExceptionMessage := aExceptionMessage;
+  Synchronize(Synced_TriggerOnException);
+end;
+
+procedure TROEmailServerThread.Synced_TriggerOnException;
+begin
+  (Owner as TROCustomEmailServer).TriggerOnException(fSync_ExceptionClass,fSync_aExceptionMessage);
+end;
+
+{ TROEmailServerProcessMessageThread }
+
+constructor TROEmailServerProcessMessageThread.Create(aOwner: TROCustomEmailServer; aRequest: TStream; const aMessageID, aFrom: string);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False,'TROEmailServer Message Processing Thread');
+  {$ELSE}
+  inherited Create(True,'TROEmailServer Message Processing Thread');
+  {$ENDIF}
+  fOwner := aOwner;
+  fRequest := aRequest;
+  fMessageID := aMessageID;
+  fFrom := aFrom;
+  FreeOnTerminate := true;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TROEmailServerProcessMessageThread.Destroy;
+begin
+  FreeAndNil(fRequest);
+  inherited;
+end;
+
+procedure TROEmailServerProcessMessageThread.Execute;
+var
+  lResponse:TStream;
+  lResponseOptions:TROResponseOptions;
+begin
+  inherited;
+
+  lResponse := TMemoryStream.Create();
+  try
+    fOwner.DispatchMessage(fOwner, fRequest, lResponse, lResponseOptions);
+    if not (roNoResponse in lResponseOptions) then begin
+      uROIndyEmail.SendMessage(fOwner.SmtpClient, lResponse, RESPONSE_MESSAGE_PREFIX, fMessageID, fOwner.ServerEmail, fFrom);
+    end;
+  finally
+    lResponse.Free();
+  end;
+end;
+
+initialization
+  RegisterServerClass(TROEmailServer);
+finalization
+  UnregisterServerClass(TROEmailServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyHTTPChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyHTTPChannel.pas
new file mode 100644
index 0000000..c84cde5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyHTTPChannel.pas	
@@ -0,0 +1,240 @@
+unit uROIndyHTTPChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROClientIntf, uROIndyTCPChannel, {IdTCPCLient,} IdHTTP;
+
+type
+  { TROIndyHTTPChannel }
+  TROIndyHTTPChannel = class(TROCustomIndyTCPChannel, IROTransport, IROTCPTransport, IROHTTPTransport)
+  private
+    fTargetURL: string;
+
+    function GetIndyClient: TIdHTTP;
+    procedure SocketConnected(Sender: TObject);
+
+  protected
+    procedure IntDispatch(aRequest, aResponse : TStream); override;
+    function CreateIndyClient : TIdTCPClientBaseClass; override;
+
+    { IROTCPTransport }
+    function GetClientAddress : string;
+
+    { IROHTTPTransport }
+    procedure SetHeaders(const aName, aValue : string);
+    function GetHeaders(const aName : string) : string;
+    function GetContentType : string;
+    procedure SetContentType(const aValue : string);
+    function GetUserAgent : string;
+    procedure SetUserAgent(const aValue : string);
+
+    procedure SetTargetURL(const Value: string);
+    function GetTargetURL: string;
+
+    function GetPathInfo : string;
+    function GetLocation : string;
+    function GetQueryString: String;
+    function GetQueryParameter(const aName: String): String;
+
+  public
+    procedure SetPathInfo(const aValue: String);
+    procedure CheckProperties; override;
+  published
+    property IndyClient : TIdHTTP read GetIndyClient;
+
+    property TargetURL : string read GetTargetURL write SetTargetURL;
+    property KeepAlive;
+    property DisableNagle;
+  end;
+
+implementation
+
+uses
+  SysUtils, {IdException,} uROClient,
+  uRORes, uROHTTPTools, uROClasses, idstackconsts;
+
+{ TROIndyHTTPChannel }
+function TROIndyHTTPChannel.CreateIndyClient: TIdTCPClientBaseClass;
+begin
+  result := TIdHTTP.Create(Self);
+  TIdHTTP(result).Request.UserAgent := str_ProductName;
+  TIdIndy10HackClient(result).Port := 80;
+  TIdIndy10HackClient(result).Host := '127.0.0.1';
+  TIdIndy10HackClient(result).OnConnected := SocketConnected;
+  TargetURL := '';
+end;
+
+function TROIndyHTTPChannel.GetTargetURL: string;
+begin
+  result := fTargetURL;
+end;
+
+procedure TROIndyHTTPChannel.SetTargetURL(const Value: string);
+begin
+  fTargetURL := Trim(Value)
+end;
+
+function TROIndyHTTPChannel.GetIndyClient: TIdHTTP;
+begin
+  result := TIdHTTP(inherited IndyClient);
+end;
+
+procedure TROIndyHTTPChannel.IntDispatch(aRequest, aResponse : TStream);
+{$IFNDEF RemObjects_INDY8}
+var
+  lErrorResponse:Ansistring;
+{$ENDIF}
+begin
+  CheckProperties;
+  {$IFDEF DESIGNTIME}
+  {$IFDEF MSWINDOWS}
+  NoIndyAtDesigntime();
+  {$ENDIF MSWINDOWS}
+  {$ENDIF DESIGNTIME}
+
+//  if GetHeaders('SOAPAction') <> '' then begin
+//    SetHeaders('SOAPAction','');
+//  end;
+
+  try
+    {$IFNDEF RemObjects_INDY8}
+    if KeepAlive then
+      IndyClient.HTTPOptions := IndyClient.HTTPOptions + [hoKeepOrigProtocol]
+    else
+      IndyClient.HTTPOptions := IndyClient.HTTPOptions - [];
+    {$ENDIF}
+    IndyClient.Post(TargetURL, aRequest, aResponse);
+  except
+    {$IFDEF RemObjects_INDY8}
+    raise
+    {$ELSE}
+    on E:EIdHTTPProtocolException do begin
+      {$IFDEF RemObjects_INDY9}
+      if E.ReplyErrorCode <> 500 then raise
+      {$ELSE}
+      if E.ErrorCode <> 500 then raise
+      {$ENDIF}
+
+      else begin
+        // Indy raises exceptions when HTTP headers contain HTTP/1.0 500 Internal Server Error
+        // We want to continue processing instead
+        aResponse.Size := 0; // Just in case
+        lErrorResponse := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF} (E.ErrorMessage);
+        aResponse.Write(lErrorResponse[1],Length(lErrorResponse));
+        aResponse.Seek(0,soFromBeginning);
+      end;
+    end
+    {$ENDIF}
+  end;
+end;
+
+function TROIndyHTTPChannel.GetHeaders(const aName: string): string;
+begin
+  {$IFDEF RemObjects_INDY8}
+  result := GetHeaderValue(IndyClient.Request.ExtraHeaders, aName);
+  {$ELSE}
+  result := GetHeaderValue(IndyClient.Request.RawHeaders, aName);
+  {$ENDIF}
+end;
+
+procedure TROIndyHTTPChannel.SetHeaders(const aName, aValue: string);
+begin
+  {$IFDEF RemObjects_INDY8}
+  SetHeaderValue(IndyClient.Request.ExtraHeaders, aName, aValue);
+  {$ELSE}
+  SetHeaderValue(IndyClient.Request.CustomHeaders, aName, aValue);
+  {$ENDIF}
+end;
+
+function TROIndyHTTPChannel.GetContentType: string;
+begin
+  result := IndyClient.Request.ContentType;
+end;
+
+procedure TROIndyHTTPChannel.SetContentType(const aValue: string);
+begin
+  IndyClient.Request.ContentType := aValue;
+end;
+
+function TROIndyHTTPChannel.GetUserAgent: string;
+begin
+  result := IndyClient.Request.UserAgent;
+end;
+
+procedure TROIndyHTTPChannel.SetUserAgent(const aValue: string);
+begin
+  IndyClient.Request.UserAgent := aValue;
+end;
+
+function TROIndyHTTPChannel.GetClientAddress: string;
+begin
+  result := '';
+end;
+
+function TROIndyHTTPChannel.GetPathInfo: string;
+begin
+  result := '';
+end;
+
+function TROIndyHTTPChannel.GetLocation: string;
+begin
+  result := ''
+end;
+
+function TROIndyHTTPChannel.GetQueryString: String;
+begin
+  result := '';
+end;
+
+procedure TROIndyHTTPChannel.SetPathInfo(const aValue: String);
+begin
+  // do nothing; server side only
+end;
+
+procedure TROIndyHTTPChannel.CheckProperties;
+begin
+  inherited;
+end;
+
+function TROIndyHTTPChannel.GetQueryParameter(const aName: String): String;
+begin
+  result := '';
+end;
+
+procedure TROIndyHTTPChannel.SocketConnected(Sender: TObject);
+begin
+  if DisableNagle then begin
+    {$IFDEF RemObjects_INDY8}
+    IndyClient.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+    {$ELSE}
+      {$IFDEF RemObjects_INDY9}
+      IndyClient.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+      {$ELSE}
+      IndyClient.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, Id_SO_True);
+      {$ENDIF}
+    {$ENDIF}
+  end;
+end;
+
+initialization
+  RegisterTransportChannelClass(TROIndyHTTPChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROIndyHTTPChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyHTTPServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyHTTPServer.pas
new file mode 100644
index 0000000..d2598c7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyHTTPServer.pas	
@@ -0,0 +1,540 @@
+unit uROIndyHTTPServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+{TODO: Do like in the webmodule. Save a pointer to the user's OnCOmmandGet and fire it }
+
+interface
+
+uses
+  {$IFNDEF RemObjects_INDY8}IdCustomHTTPServer,{$ENDIF}
+  {$IFDEF RemObjects_INDY10}IdContext, {IdSocketHandle,}{$ELSE}IdThreadMgr,{$ENDIF}
+  Classes, uROServer, uROIndyTCPServer, {IdTCPServer,}
+  IdHTTPServer, uROClientIntf, idTCPServer, uROHTTPTools;
+
+type
+  { TIndyHTTPTransport }
+  TIndyHTTPTransport = class(TInterfacedObject, IROTransport, IROTCPTransport, IROHTTPTransport)
+  private
+    fRequestInfo: TIdHTTPRequestInfo;
+    fResponseInfo : TIdHTTPResponseInfo;
+    fOverriddenPathInfo : string;
+  protected
+    { IROHTTPTransport }
+    procedure SetHeaders(const aName, aValue : string);
+    function GetHeaders(const aName : string) : string;
+    function GetContentType : string;
+    procedure SetContentType(const aValue : string);
+    function GetUserAgent : string;
+    procedure SetUserAgent(const aValue : string);
+    function GetTargetURL : string;
+    procedure SetTargetURL(const aValue : string);
+
+    function GetPathInfo : string;
+    procedure SetPathInfo(const aValue: String);
+    function GetQueryString : string;
+    function GetQueryParameter(const aName: String): String;
+
+    function GetLocation : string;
+
+    { IROTransport }
+    function GetTransportObject : TObject;
+    function GetClientAddress : string;
+
+  public
+    constructor Create(aRequestInfo: TIdHTTPRequestInfo; aResponseInfo : TIdHTTPResponseInfo);
+
+    property RequestInfo: TIdHTTPRequestInfo read fRequestInfo;
+    property ResponseInfo : TIdHTTPResponseInfo read fResponseInfo;
+  end;
+
+  { TROIdHTTPServer }
+  TROIdHTTPServer = class(TIdHTTPServer)
+  private
+    function GetActive: boolean;
+
+  public
+    procedure IndySetActive(Value : boolean);
+
+  published
+    property Active : boolean read GetActive;
+  end;
+
+  { TROIndyHTTPServer }
+  TROIndyHTTPServer = class(TROCustomIndyTCPServer)
+  private
+    fServeRodl, fServeInfoPage: Boolean;
+    fSendExceptionsAs500: boolean;
+    fDisableNagle: Boolean;
+    fOnGetCustomClientAccessPolicy: TROCustomClientAccessPolicyMethod;
+    fSendClientAccessPolicyXml: TROClientAccessPolicyType;
+    function GetIndyServer: TROIdHTTPServer;
+
+  protected
+    procedure InternalServerConnect(AThread: {$IFDEF RemObjects_INDY10}TIdContext{$ELSE}TIdPeerThread{$ENDIF}); virtual;
+    procedure InternalServerCommandGet(AThread: TIdThreadClass;
+      RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo); virtual;
+
+
+    function CreateIndyServer : TComponent; override;
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive : boolean; override;
+
+    function GetDispatchersClass : TROMessageDispatchersClass; override;
+
+    function GetKeepAlive: boolean; override;
+    procedure SetKeepAlive(const Value: boolean); override;
+
+    function GetDisableNagle: boolean; override;
+    procedure SetDisableNagle(const Value: boolean); override;
+    function GetServerType: TROServerType; override;
+  public
+    constructor Create(aComponent: TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property IndyServer : TROIdHTTPServer read GetIndyServer;
+    property Port;
+    property KeepAlive : boolean read GetKeepAlive write SetKeepAlive default false;
+    property ServeInfoPage : Boolean read fServeInfoPage write fServeInfoPage default true;
+    property ServeRodl : Boolean read fServeRodl write fServeRodl default true;
+    property SendExceptionsAs500: boolean read fSendExceptionsAs500 write fSendExceptionsAs500 default true;
+    property DisableNagle;
+    property OnGetRODLReader;
+    property OnGetCustomClientAccessPolicy: TROCustomClientAccessPolicyMethod read fOnGetCustomClientAccessPolicy write fOnGetCustomClientAccessPolicy;
+    property SendClientAccessPolicyXml: TROClientAccessPolicyType read fSendClientAccessPolicyXml write fSendClientAccessPolicyXml default captAllowNone;
+  end;
+
+implementation
+
+uses SysUtils, IdGlobal, uRORes, uROHTTPDispatch, uROServerIntf,
+  uROClient, uROHtmlServerInfo, uRODL, idstackconsts, uROClasses;
+
+{ TROIndyHTTPServer }
+procedure TROIndyHTTPServer.Assign(Source: TPersistent);
+var
+  lSource: TROIndyHTTPServer;
+begin
+  inherited;
+  if Source is TROIndyHTTPServer then begin
+    lSource := TROIndyHTTPServer(Source);
+
+    IndyServer.Assign(lSource.IndyServer);
+    KeepAlive := lSource.KeepAlive;
+    OnGetCustomClientAccessPolicy := lSource.OnGetCustomClientAccessPolicy;
+    SendClientAccessPolicyXml := lSource.SendClientAccessPolicyXml;
+    SendExceptionsAs500 := lSource.SendExceptionsAs500;
+    ServeInfoPage := lSource.ServeInfoPage;
+    ServeRodl := lSource.ServeRodl;
+  end;
+end;
+
+constructor TROIndyHTTPServer.Create(aComponent: TComponent);
+begin
+  inherited;
+  fServeRodl := true;
+  fServeInfoPage := true;
+  fSendExceptionsAs500 := true;
+end;
+
+function TROIndyHTTPServer.CreateIndyServer: TComponent;
+begin
+  result := TROIdHTTPServer.Create(Self);//TIdHTTPServer.Create(Self);
+  TROIdHTTPServer(result).OnCommandGet := InternalServerCommandGet;
+  TROIdHTTPServer(result).OnConnect := InternalServerConnect;
+  TROIdHTTPServer(result).DefaultPort := 8099;
+end;
+
+function TROIndyHTTPServer.IntGetActive: boolean;
+begin
+  result := GetIndyServer.Active
+end;
+
+procedure TROIndyHTTPServer.IntSetActive(const Value: boolean);
+begin
+  {$IFDEF RemObjects_INDY10B}
+  if (Value) and (IndyServer.Bindings.Count = 0) then begin
+    with IndyServer.Bindings.Add do begin
+      Ip := '';
+      Port := Self.Port;
+      IPVersion := Id_IPv4;
+    end;
+  end;
+  {$ENDIF}
+  GetIndyServer.IndySetActive(Value);
+  if not Value
+    then IndyServer.Bindings.Clear;
+end;
+
+function TROIndyHTTPServer.GetIndyServer: TROIdHTTPServer;
+begin
+  //result := TROIdHTTPServer(inherited IndyServer);
+  result := TObject(inherited IndyServer) as TROIdHTTPServer;
+end;
+
+procedure TROIndyHTTPServer.InternalServerCommandGet(AThread: TIdThreadClass;
+  RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
+
+  procedure WriteError(resp : TROBinaryMemoryStream);
+  begin
+    resp.WriteAnsiString('<font size="7">500 Invalid Path</font><br />'+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(err_CannotFindMessageDispatcher));
+  end;
+
+var req : TStream;
+    resp : TROBinaryMemoryStream;
+    transport : IROHTTPTransport;
+    ok : boolean;
+    disp : TROHTTPDispatcher;
+    root, sub: string;
+    {$IFNDEF RemObjects_INDY8}reqdata : string;{$ENDIF}
+    lIgnore: TROResponseOptions;
+    format: TDataFormat;
+    info: IRONamedModuleInfo;
+    lRodl: TRODLLibrary;
+    lPolicyContent: AnsiString;
+begin
+  if AThread = nil then req := nil else // for preventing warning in FPC
+  req := NIL;
+  format := '';
+  transport := TIndyHTTPTransport.Create(RequestInfo, ResponseInfo);
+
+  resp := TROBinaryMemoryStream.Create;
+  ok := false;
+  try
+    {$IFDEF RemObjects_INDY8}
+    req := TROBinaryMemoryStream.Create(RequestInfo.UnparsedParams);
+    {$ELSE}
+    { This was introduced to support URLs with parameters for partial WSDLs.
+      When a browser sends a URL such as "http://localhost:8099/SOAP?Service=TestService", Indy
+      puts the value "Service=TestService" in the UnparsedParams. This is not what we want as we
+      expect UnparsedParams as the data of the HTTP request. }
+    if RequestInfo.PostStream <> nil then begin
+       req := RequestInfo.PostStream;
+    end
+    else begin
+      if Length(RequestInfo.FormParams) = 0 then begin
+        if (RequestInfo.QueryParams=RequestInfo.UnparsedParams) then
+          reqdata := ''
+        else
+          reqdata := RequestInfo.UnparsedParams;
+      end else begin
+        reqdata := RequestInfo.FormParams;
+      end;
+      req := TROBinaryMemoryStream.Create({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(reqdata));
+    end;
+    {$ENDIF}
+
+    root := transport.PathInfo;
+    if (root <> '') and (root[1] = '/') then delete(root, 1,1);
+    if pos('/', root) > 0 then
+    begin
+      sub := copy(root, pos('/', root)+1, maxint);
+      root := '/' + copy(root, 1, pos('/', root) - 1);
+    end else
+    begin
+      root := '/' + root;
+      sub := '';
+    end;
+
+    disp := TROHTTPMessageDispatchers(Dispatchers).GetDispatcherByPath(root) as TROHTTPDispatcher;
+
+    if disp <> nil then
+    begin
+      if (req.Size = 0) then begin
+        ok := fServeRodl;
+        if ok then
+          ok := IntDispatchMessage(disp, transport, req, resp, lIgnore)
+        else
+          WriteError(resp);
+      end else if (sub = '')  then
+        ok := IntDispatchMessage(disp, transport, req, resp, lIgnore)
+      else if (CompareText(sub, 'rodl') = 0) and fServeRodl then
+      begin
+        if copy(disp.PathInfo, 1, 1) = '/' then transport.PathInfo := disp.PathInfo else transport.PathInfo := '/'+disp.PathInfo;
+        GetRodl(resp, transport, format, GetRODLReader);
+        ResponseInfo.ContentType := format;
+        ok := true;
+      end else if Supports(disp.Message, IRONamedModuleInfo, info) and (CompareText(info.ModuleInfoName, sub) = 0) and fServeRodl then
+      begin
+        if copy(disp.PathInfo, 1, 1) = '/' then transport.PathInfo := disp.PathInfo else transport.PathInfo := '/'+disp.PathInfo;
+        info.GetModuleInfo(resp, transport, format);
+        ResponseInfo.ContentType := format;
+        ok := true;
+      end else
+      begin
+        ok := IntDispatchMessage(disp, transport, req, resp, lIgnore)
+      end;
+    end else if (CompareText(root, '/rodl') = 0) and (sub = '') and fServeRodl then
+    begin
+      GetRodl(resp, transport, format, GetRODLReader);
+      ok := true;
+    end else if fServeInfoPage and (CompareText(root, '/doc') = 0) then
+    begin
+      if sub = 'css' then
+      begin
+        resp.WriteAnsiString(GetRodlCss);
+        ResponseInfo.ContentType := 'text/css';
+        ok := true;
+      end else
+      if sub = 'xslt' then
+      begin
+        resp.WriteAnsiString(GetRodlStyleSheet);
+        ResponseInfo.ContentType := 'text/xml';
+        ok := true;
+      end else
+      if sub = '' then
+      begin
+        lRodl := GetRodlLibrary(GetRODLReader);
+        try
+          ResponseInfo.ContentType := 'text/xml';
+          resp.WriteAnsiString(GetRodlWithStyleSheet(lRodl, '/doc/xslt'));
+        finally
+          lRodl.Free;
+        end;
+        ok := true;
+      end else
+      begin
+        WriteError(resp);
+        ok := false;
+      end;
+    end else if fServeInfoPage and (CompareStr(root, '/favicon.ico') = 0) then
+    begin
+      GetRodlFavIcon(resp);
+      ResponseInfo.ContentType := 'image/x-icon';
+      ok := true;
+    end else if fServeInfoPage and (root = '/') then
+    begin
+      lrodl := GetRodlLibrary(GetRODLReader);
+      try
+        resp.WriteAnsiString(GetRodlServerInfo('/', lRodl, Dispatchers));
+      finally
+        lRodl.Free;
+      end;
+      ok := true;
+    end else
+    if CompareText(root, '/clientaccesspolicy.xml') = 0 then begin
+      case fSendClientAccessPolicyXml of
+        captAllowAll: begin
+          lPolicyContent := GetClientAccessPolicy;
+        end;
+        captCustom: begin
+          if Assigned(fOnGetCustomClientAccessPolicy) then
+            fOnGetCustomClientAccessPolicy(Self, lPolicyContent);
+        end;
+      end;
+      if lPolicyContent <> '' then begin
+        ResponseInfo.ContentType := 'text/xml';
+        resp.WriteAnsiString(lPolicyContent);
+        ok := true;
+      end;
+    end  else
+    begin
+      WriteError(resp);
+      ok := false;
+    end;
+
+    if ok or not fSendExceptionsAs500 then
+      ResponseInfo.ResponseNo := HTTP_OK
+    else
+      ResponseInfo.ResponseNo := HTTP_FAILED;
+
+    resp.Position:=0;
+    ResponseInfo.ContentStream := resp;
+  finally
+    {$IFDEF RemObjects_INDY8}
+    req.Free;
+    {$ELSE}
+    if req <> RequestInfo.PostStream then req.Free;
+    {$ENDIF}
+  end;
+end;
+
+
+function TROIndyHTTPServer.GetDispatchersClass : TROMessageDispatchersClass; 
+begin
+  result := TROHTTPMessageDispatchers
+end;
+
+function TROIndyHTTPServer.GetKeepAlive: Boolean;
+begin
+  {$IFDEF RemObjects_INDY8}
+  Result := false;
+  {$ELSE}
+  Result := IndyServer.KeepAlive;
+  {$ENDIF}
+end;
+
+function TROIndyHTTPServer.GetServerType: TROServerType;
+begin
+  Result := rstHTTP;
+end;
+
+procedure TROIndyHTTPServer.SetKeepAlive(const Value: Boolean);
+begin
+  {$IFDEF RemObjects_INDY8}
+  // keepalive not supported on Indy 8
+  {$ELSE}
+  IndyServer.KeepAlive := Value;
+  {$ENDIF}
+end;
+
+function TROIndyHTTPServer.GetDisableNagle: boolean;
+begin
+  result := fDisableNagle;
+end;
+
+procedure TROIndyHTTPServer.SetDisableNagle(const Value: boolean);
+begin
+  fDisableNagle := true;
+end;
+
+procedure TROIndyHTTPServer.InternalServerConnect(AThread: {$IFDEF RemObjects_INDY10}TIdContext{$ELSE}TIdPeerThread{$ENDIF});
+begin
+
+
+  if DisableNagle then begin
+    {$IFDEF RemObjects_INDY8}
+    AThread.Connection.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+    {$ELSE}
+      {$IFDEF RemObjects_INDY9}
+      AThread.Connection.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+      {$ELSE}
+      AThread.Connection.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, Id_SO_True);
+      {$ENDIF}
+    {$ENDIF}
+  end;
+end;
+
+{ TIndyHTTPTransport }
+
+constructor TIndyHTTPTransport.Create(
+  aRequestInfo: TIdHTTPRequestInfo; aResponseInfo: TIdHTTPResponseInfo);
+begin
+  inherited Create;
+  fRequestInfo := aRequestInfo;
+  fResponseInfo := aResponseInfo;
+end;
+
+function TIndyHTTPTransport.GetClientAddress: string;
+begin
+  result := fRequestInfo.RemoteIP;
+end;
+
+function TIndyHTTPTransport.GetContentType: string;
+begin
+  result := fResponseInfo.ContentType;
+end;
+
+function TIndyHTTPTransport.GetHeaders(const aName: string): string;
+begin
+  {$IFDEF RemObjects_INDY8}
+  result := GetHeaderValue(fRequestInfo.Headers, aName);
+  {$ELSE}
+  result := GetHeaderValue(fRequestInfo.RawHeaders, aName);
+  {$ENDIF}
+end;
+
+function TIndyHTTPTransport.GetPathInfo: string;
+begin
+  if fOverriddenPathInfo <> '' then
+    result := fOverriddenPathInfo
+  else
+    result := RequestInfo.Document
+end;
+
+function TIndyHTTPTransport.GetLocation: string;
+begin
+  result := 'http://'+fRequestInfo.Host
+end;
+
+function TIndyHTTPTransport.GetTargetURL: string;
+begin
+  result := ''
+end;
+
+function TIndyHTTPTransport.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+function TIndyHTTPTransport.GetUserAgent: string;
+begin
+  result := fResponseInfo.ServerSoftware;
+end;
+
+procedure TIndyHTTPTransport.SetContentType(const aValue: string);
+begin
+  fResponseInfo.ContentType := aValue
+end;
+
+procedure TIndyHTTPTransport.SetHeaders(const aName,
+  aValue: string);
+begin
+  {$IFDEF RemObjects_INDY8}
+  SetHeaderValue(fResponseInfo.Headers, aName, aValue);
+  {$ELSE}
+  SetHeaderValue(fResponseInfo.RawHeaders, aName, aValue);
+  {$ENDIF}
+end;
+
+procedure TIndyHTTPTransport.SetTargetURL(const aValue: string);
+begin
+
+end;
+
+procedure TIndyHTTPTransport.SetUserAgent(const aValue: string);
+begin
+  fResponseInfo.ServerSoftware := aValue;
+end;
+
+function TIndyHTTPTransport.GetQueryString: string;
+begin
+  {$IFDEF RemObjects_INDY8}
+  result := '';
+  {$ELSE}
+  result := fRequestInfo.QueryParams;
+  {$ENDIF}
+end;
+
+procedure TIndyHTTPTransport.SetPathInfo(const aValue: String);
+begin
+  fOverriddenPathInfo := aValue;
+end;
+
+function TIndyHTTPTransport.GetQueryParameter(const aName: String): String;
+begin
+  {$IFDEF RemObjects_INDY8}
+  result := '';
+  {$ELSE}
+  result := fRequestInfo.Params.Values[aName];
+  {$ENDIF}
+end;
+
+{ TROIdHTTPServer }
+
+function TROIdHTTPServer.GetActive: boolean;
+begin
+  result := inherited Active
+end;
+
+procedure TROIdHTTPServer.IndySetActive(Value: boolean);
+begin
+  inherited Active := Value
+end;
+
+initialization
+  RegisterServerClass(TROIndyHTTPServer);
+finalization
+  UnregisterServerClass(TROIndyHTTPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndySuperHttpChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndySuperHttpChannel.pas
new file mode 100644
index 0000000..c5ac2d1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndySuperHttpChannel.pas	
@@ -0,0 +1,284 @@
+unit uROIndySuperHttpChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, uROClient, uROClientIntf,
+  {$IFDEF RemObjects_UseEncryption} uRoEncryption, {$ENDIF}
+  uROIndyTCPChannel, IdHTTP, uROBaseSuperHttpChannel, idstackconsts;
+
+type
+  TROIndySuperHTTPChannel = class(TROBaseSuperHTTPChannel)
+  private
+    fClientWait,
+    fClientRequest: TIdHTTP;
+    fTargetUrl: String;
+    fDisableNagle: Boolean;
+  protected
+  { IROHTTPTransport }
+    procedure SocketConnectedRequest(Sender: TObject);
+    procedure SocketConnectedWait(Sender: TObject);
+    function GetClientAddress : string; override;
+    procedure SetHeaders(const aName, aValue : string); override;
+    function GetHeaders(const aName : string) : string; override;
+    function GetContentType : string; override;
+    procedure SetContentType(const aValue : string); override;
+    function GetUserAgent : string; override;
+    procedure SetUserAgent(const aValue : string); override;
+    function GetTargetURL : string; override;
+    procedure SetTargetURL(const aValue : string); override;
+    procedure SetPathInfo (const aValue : string); override;
+    function GetPathInfo : string; override;
+    function GetQueryString : string; override;
+    function GetLocation : string; override;
+    function GetQueryParameter(const aName: string): string; override;
+  protected
+    procedure CancelRequest(aWaitingThread: Boolean); override;
+    procedure DispatchHTTPRequest(aWaitingThread: Boolean;
+      aRequest: TDynByteArray; out aResponse: TDynByteArray); override;
+  public
+    constructor Create(aOwner: TCOmponent); override;
+    destructor Destroy; override;
+    procedure Assign(aSource : TPersistent); override;
+  published
+    property TargetUrl: String read fTargetUrl write fTargetUrl;
+    property ClientWait: TIdHTTP read fClientWait;
+    property ClientRequest: TIdHTTP read fClientRequest;
+    property DisableNagle: Boolean read fDisableNagle write fDisableNagle default true;
+  end;
+
+implementation
+uses
+  uRORes,uROHTTPTools;
+
+{ TROIndySuperHTTPChannel }
+
+procedure TROIndySuperHTTPChannel.SocketConnectedRequest(Sender: TObject);
+begin
+
+  if DisableNagle then begin
+    {$IFDEF RemObjects_INDY8}
+    fClientRequest.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+    {$ELSE}
+      {$IFDEF RemObjects_INDY9}
+      fClientRequest.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+      {$ELSE}
+      fClientRequest.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, Id_SO_True);
+      {$ENDIF}
+    {$ENDIF}
+  end;
+end;
+procedure TROIndySuperHTTPChannel.SocketConnectedWait(Sender: TObject);
+begin
+
+  if DisableNagle then begin
+    {$IFDEF RemObjects_INDY8}
+    fClientWait.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+    {$ELSE}
+      {$IFDEF RemObjects_INDY9}
+      fClientWait.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+      {$ELSE}
+      fClientWait.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, Id_SO_True);
+      {$ENDIF}
+    {$ENDIF}
+  end;
+end;
+
+procedure TROIndySuperHTTPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROIndySuperHTTPChannel;
+begin
+  inherited;
+  if aSource is TROIndySuperHTTPChannel then begin
+    lSource := TROIndySuperHTTPChannel(aSource);
+    DisableNagle := lSource.DisableNagle;
+  end;
+end;
+
+procedure TROIndySuperHTTPChannel.CancelRequest(aWaitingThread: Boolean);
+var
+  lSock: TIdHTTP;
+begin
+  try
+    if aWaitingThread then lSock := fClientWait else lSock := fClientRequest;
+      {$IFDEF RemOBjects_INDY8}
+    lSock.Binding.CloseSocket();
+    {$ELSE}
+      {$IFDEF RemObjects_INDY10}
+      if assigned(lSock.Socket) and (lSock.Socket.Connected) then
+        lSock.Socket.Close;
+      {$ELSE}
+      lSock.DisconnectSocket;
+      {$ENDIF}
+    {$ENDIF}
+  except
+    // indy will release an exception when closing
+  end;
+end;
+
+{$IFDEF RemObjects_INDY10}
+type
+  TIdIndy10HackClient = class(TIdHTTP)
+  public
+    property OnConnected;
+  end;
+{$ELSE}
+type
+  TIdIndy10HackClient = TIdHTTP;
+{$ENDIF}
+
+constructor TROIndySuperHTTPChannel.Create(aOwner: TCOmponent);
+begin
+  inherited Create(aOwner);
+  fDisableNagle := true;
+  fClientWait := TIdHTTP.Create(nil);
+  TIdIndy10HackClient(fClientWait).OnConnected := SocketConnectedWait;
+  fClientWait.Request.UserAgent := str_ProductName;
+
+  fClientRequest := TIdHTTP.Create(nil);
+  TIdIndy10HackClient(fClientRequest).OnConnected := SocketConnectedRequest;
+  fClientRequest.Request.UserAgent := str_ProductName;
+
+  {$IFDEF DELPHI6UP}
+  fClientWait.SetSubComponent(TRUE);
+  {$ENDIF}
+    {$IFDEF DELPHI6UP}
+  fClientRequest.SetSubComponent(TRUE);
+  {$ENDIF}
+end;
+
+destructor TROIndySuperHTTPChannel.Destroy;
+begin
+  Active := false;
+  fClientWait.Free;
+  fClientRequest.Free;
+  inherited Destroy;
+end;
+
+procedure TROIndySuperHTTPChannel.DispatchHTTPRequest(
+  aWaitingThread: Boolean; aRequest: TDynByteArray;
+  out aResponse: TDynByteArray);
+var
+  lClient: TIdHTTP;
+  lRequest, lResponse: TMemoryStream;
+begin
+  if aWaitingThread then lClient := fClientWait else lClient := fClientRequest;
+  lRequest:= TMemoryStream.Create;
+  lResponse := TMemoryStream.Create;
+  try
+    lRequest.Write(aRequest[0], Length(aRequest));
+    lRequest.Position := 0;
+    {$IFNDEF REMOBJECTS_INDY8}
+    lClient.ReadTimeout := HTTPRequestTimeout;
+    {$ENDIF}
+    {$IFDEF RemObjects_INDY10}
+    lClient.ConnectTimeout := ConnectTimeout;
+    {$ENDIF}
+    lClient.Post(fTargetUrl, lRequest, lResponse);
+    SetLength(aResponse, lResponse.Size);
+    lResponse.Position := 0;
+    lResponse.Read(aResponse[0], Length(aResponse));
+  finally
+    lRequest.Free;
+    lResponse.Free;
+  end;
+end;
+
+function TROIndySuperHTTPChannel.GetClientAddress: string;
+begin
+  Result := '';
+end;
+
+function TROIndySuperHTTPChannel.GetContentType: string;
+begin
+  result := ClientRequest.Request.ContentType;
+end;
+
+function TROIndySuperHTTPChannel.GetHeaders(const aName: string): string;
+begin
+  {$IFDEF RemObjects_INDY8}
+  result := GetHeaderValue(ClientRequest.Request.ExtraHeaders, aName);
+  {$ELSE}
+  result := GetHeaderValue(ClientRequest.Request.RawHeaders, aName);
+  {$ENDIF}
+end;
+
+function TROIndySuperHTTPChannel.GetLocation: string;
+begin
+  Result := '';
+end;
+
+function TROIndySuperHTTPChannel.GetPathInfo: string;
+begin
+  Result := '';
+end;
+
+function TROIndySuperHTTPChannel.GetQueryParameter(
+  const aName: string): string;
+begin
+  result := '';
+end;
+
+function TROIndySuperHTTPChannel.GetQueryString: string;
+begin
+  Result := '';
+end;
+
+function TROIndySuperHTTPChannel.GetTargetURL: string;
+begin
+  result := fTargetURL;
+end;
+
+function TROIndySuperHTTPChannel.GetUserAgent: string;
+begin
+  result := ClientRequest.Request.UserAgent;
+end;
+
+procedure TROIndySuperHTTPChannel.SetContentType(const aValue: string);
+begin
+  ClientWait.Request.ContentType := aValue;
+  ClientRequest.Request.ContentType := aValue;
+end;
+
+procedure TROIndySuperHTTPChannel.SetHeaders(const aName, aValue: string);
+begin
+  {$IFDEF RemObjects_INDY8}
+  SetHeaderValue(ClientWait.Request.ExtraHeaders, aName, aValue);
+  SetHeaderValue(ClientRequest.Request.ExtraHeaders, aName, aValue);
+  {$ELSE}
+  SetHeaderValue(ClientWait.Request.CustomHeaders, aName, aValue);
+  SetHeaderValue(ClientRequest.Request.CustomHeaders, aName, aValue);
+  {$ENDIF}
+end;
+
+procedure TROIndySuperHTTPChannel.SetPathInfo(const aValue: string);
+begin
+  // do nothing; server side only
+end;
+
+procedure TROIndySuperHTTPChannel.SetTargetURL(const aValue: string);
+begin
+  fTargetURL := Trim(aValue)
+end;
+
+procedure TROIndySuperHTTPChannel.SetUserAgent(const aValue: string);
+begin
+  ClientWait.Request.UserAgent := aValue;
+  ClientRequest.Request.UserAgent := aValue;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyTCPChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyTCPChannel.pas
new file mode 100644
index 0000000..633e5c9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyTCPChannel.pas	
@@ -0,0 +1,257 @@
+unit uROIndyTCPChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROClient, {IdBaseComponent,} uROClientIntf, IdTCPClient;
+
+type
+  {$IFDEF RemObjects_INDY10}
+  TIdTCPClientBaseClass = TIdTCPClientCustom;
+  TIdIndy10HackClient = class(TIdTCPClientCustom)
+  public
+    property Port;
+    property Host;
+    property OnConnected;
+  end;
+  {$ELSE}
+  TIdTCPClientBaseClass = TIdTCPClient;
+  TIdIndy10HackClient = TIdTCPClient;
+  {$ENDIF}
+
+  { TROCustomIndyTCPChannel }
+  TROCustomIndyTCPChannel = class(TROTransportChannel, IROTransport, IROTCPTransport,IROTCPTransportProperties)
+  private
+    fIndyClient : TIdTCPClientBaseClass;
+    fKeepAlive: boolean;
+    fDisableNagle: boolean;
+
+    function GetHost: string;
+    function GetPort: integer;
+    procedure SetHost(const Value: string);
+    procedure SetPort(const Value: integer);
+
+  protected
+    procedure IntDispatch(aRequest, aResponse : TStream); override;
+
+    function CreateIndyClient: TIdTCPClientBaseClass; virtual;
+
+    {$IFDEF DESIGNTIME}
+    {$IFDEF MSWINDOWS}
+    procedure NoIndyAtDesigntime;
+    {$ENDIF MSWINDOWS}
+    {$ENDIF DESIGNTIME}
+    { IROTransport }
+    function GetTransportObject : TObject; override;
+
+    { IROTCPTransport }
+    function GetClientAddress : string;
+
+  public
+    constructor Create(aOwner : TComponent); override;
+    procedure Assign(aSource : TPersistent); override;
+    property Port : integer read GetPort write SetPort;
+    property Host : string read GetHost write SetHost;
+    property DisableNagle : boolean read fDisableNagle write fDisableNagle default FALSE;
+    property IndyClient : TIdTCPClientBaseClass read fIndyClient;
+    property KeepAlive : boolean read fKeepAlive write fKeepAlive default false;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    property OnAfterProbingServer;
+    property OnAfterProbingServers;
+    property OnBeforeProbingServer;
+    property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    //property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    property OnServerLocatorAssignment;
+    property ProbeFrequency;
+    property ProbeServers;
+    property ServerLocators;
+    property SynchronizedProbing;
+  end;
+
+  { TROIndyTCPChannel }
+  TROIndyTCPChannel = class(TROCustomIndyTCPChannel, IROTransport, IROTCPTransport)
+  published
+    property Port;
+    property Host;
+    property DisableNagle;
+    property IndyClient;
+    property KeepAlive;
+  end;
+
+implementation
+
+uses
+  {$IFDEF RemObjects_INDY10}{IdStreamVCL,} {$ENDIF}
+  SysUtils, {uRORes,} {$IFDEF DESIGNTIME}uROClasses,{$ENDIF} idstackconsts;
+
+{ TROCustomIndyTCPChannel }
+
+procedure TROCustomIndyTCPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROCustomIndyTCPChannel;
+begin
+  inherited;
+  if aSource is TROCustomIndyTCPChannel then begin
+    lSource := TROCustomIndyTCPChannel(aSource);
+    DisableNagle := lSource.DisableNagle;
+    KeepAlive := lSource.KeepAlive;
+  end;
+end;
+
+constructor TROCustomIndyTCPChannel.Create(aOwner: TComponent);
+begin
+  inherited;
+  fIndyClient := CreateIndyClient;
+  fIndyClient.Name := 'InternalIndyClient';
+  {$IFDEF DELPHI6UP}
+  fIndyClient.SetSubComponent(TRUE);
+  {$ENDIF}
+end;
+
+function TROCustomIndyTCPChannel.CreateIndyClient: TIdTCPClientBaseClass;
+begin
+  result := TIdTCPClient.Create(Self);
+  TIdTCPClient(result).Port := 8090;
+  TIdTCPClient(result).Host := '127.0.0.1';
+end;
+
+function TROCustomIndyTCPChannel.GetClientAddress: string;
+begin
+{$IFDEF REMOBJECTS_INDY8}
+  if IndyClient.Binding <> nil then
+    Result := IndyClient.Binding.PeerIP
+  else
+    Result := '';
+{$ELSE}
+  if (IndyClient.Socket <> nil) and (IndyClient.Socket.Binding <> nil) then
+    Result := IndyClient.Socket.Binding.PeerIP
+  else
+    Result := '';
+{$ENDIF}
+end;
+
+function TROCustomIndyTCPChannel.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+procedure TROCustomIndyTCPChannel.IntDispatch(aRequest, aResponse: TStream);
+{$IFDEF RemObjects_INDY10A}
+var
+  lStream: TIdStreamVCL;
+{$ENDIF}
+begin
+  {$IFDEF DESIGNTIME}
+  {$IFDEF MSWINDOWS}
+  NoIndyAtDesigntime();
+  {$ENDIF MSWINDOWS}
+  {$ENDIF DESIGNTIME}
+
+  try
+    if not IndyClient.Connected then begin
+      IndyClient.Connect;
+      if DisableNagle then begin
+        {$IFDEF RemObjects_INDY8}
+        IndyClient.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+        {$ELSE}
+          {$IFDEF RemObjects_INDY9}
+          IndyClient.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True), SizeOf(Id_SO_True));
+          {$ELSE}
+          IndyClient.Socket.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, Id_SO_True);
+          {$ENDIF}
+        {$ENDIF}
+      end;
+    end;
+
+    {$IFDEF RemObjects_INDY10A}
+    lStream := TIdStreamVCL.Create(aRequest, false);
+    lStream.Position := 0;
+    try
+      IndyClient.IOHandler.Write(lStream, lStream.Size, TRUE);
+    finally
+      FreeAndNil(lStream);
+    end;
+    lStream := TIdStreamVCL.Create(aResponse, false);
+    try
+      IndyClient.IOHandler.ReadStream(lStream);
+    finally
+      FreeAndNil(lStream);
+    end;
+    {$ELSE}
+      aRequest.Position := 0;    
+      {$IFDEF RemObjects_INDY10B}
+      IndyClient.IOHandler.Write(aRequest, aRequest.Size, TRUE);
+      IndyClient.IOHandler.ReadStream(aResponse);
+      {$ELSE}
+      IndyClient.WriteStream(aRequest, TRUE, TRUE);
+      IndyClient.ReadStream(aResponse);
+      {$ENDIF}
+    {$ENDIF}
+  finally
+    if not KeepAlive
+      then IndyClient.Disconnect;
+  end;
+end;
+
+{$IFDEF DESIGNTIME}
+{$IFDEF MSWINDOWS}
+procedure TROCustomIndyTCPChannel.NoIndyAtDesigntime;
+begin
+  {$IFNDEF RemObjects_INDY_DESIGNTIME_FIX}
+  if csDesigning in ComponentState then
+    raise EROIDEProblem.Create('We''re sorry, but the '+ClassName+' cannot be used inside the Delphi IDE at designtime.'#13#13+
+                           'This is due to a Indy issue and outside of our control.'#13#13+
+                           'Please use TROWinInetHTTPChannel instead.'#13#13#13+
+                           'If your version if Indy is patched to fix this problem, please set the'#13+
+                           '"RemObjects_INDY_DESIGNTIME_FIX" define in RemObjects.inc and rebuild the package.');
+  {$ENDIF RemObjects_INDY_DESIGNTIME_FIX}
+end;
+{$ENDIF MSWINDOWS}
+{$ENDIF DESIGNTIME}
+
+function TROCustomIndyTCPChannel.GetHost: string;
+begin
+  result := TIdIndy10HackClient(IndyClient).Host;
+end;
+
+function TROCustomIndyTCPChannel.GetPort: integer;
+begin
+  result := TIdIndy10HackClient(IndyClient).Port;
+end;
+
+procedure TROCustomIndyTCPChannel.SetHost(const Value: string);
+begin
+  TIdIndy10HackClient(IndyClient).Host := Value;
+end;
+
+procedure TROCustomIndyTCPChannel.SetPort(const Value: integer);
+begin
+  TIdIndy10HackClient(IndyClient).Port := Value;
+end;
+
+initialization
+  RegisterTransportChannelClass(TROIndyTCPChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROIndyTCPChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyTCPServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyTCPServer.pas
new file mode 100644
index 0000000..badda89
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyTCPServer.pas	
@@ -0,0 +1,319 @@
+unit uROIndyTCPServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+{TODO: Do like in the webmodule. Save a pointer to the user's OnExecute and fire it }
+
+interface
+
+uses
+  {$IFDEF RemObjects_INDY10}IdContext, {$ELSE} IdThreadMgr,{$ENDIF}
+  Classes, uROServer, uROClientIntf, IdTCPServer, IdComponent;
+
+type
+  {$IFDEF RemObjects_INDY10}
+  TIdThreadClass = TIdContext;
+  {$ELSE}
+  TIdThreadClass = TIdPeerThread;
+  {$ENDIF}
+
+  { TIndyTCPConnectionTransport }
+  TIndyTCPConnectionTransport = class(TInterfacedObject, IROTransport, IROTCPTransport)
+  private
+    fThread: TIdThreadClass;
+
+  protected
+    { IROTransport }
+    function GetTransportObject : TObject;
+    function GetClientAddress : string;
+
+  public
+    constructor Create(aThread: TIdThreadClass);
+
+    property Thread : TIdThreadClass read fThread;
+  end;
+
+  { TROTIdTCPServer }
+  TROTIdTCPServer = class(TIdTCPServer)
+  private
+    function GetActive: boolean;
+
+  public
+    procedure IndySetActive(Value : boolean);
+
+  published
+    property Active : boolean read GetActive;
+  end;
+
+  { TROIndyTCPServer }
+  TROCustomIndyTCPServer = class(TROServer, IROTransport)
+  private
+    fIndyServer : TComponent;
+    fKeepAlive: boolean;
+    fDisableNagle: boolean;
+
+
+  protected
+    function GetIndyServer : TROTIdTCPServer;
+
+    function GetKeepAlive: boolean; virtual;
+    procedure SetKeepAlive(const Value: boolean); virtual;
+
+    function GetDisableNagle: boolean; virtual;
+    procedure SetDisableNagle(const Value: boolean); virtual;
+
+    function CreateIndyServer : TComponent; virtual;
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive : boolean; override;
+
+    procedure InternalOnExecute(AThread: TIdThreadClass);
+
+    { IROTransport }
+    function GetTransportObject : TObject;
+    function GetPort: Integer;override;
+    procedure SetPort(const Value: Integer);override;
+    function GetServerType: TROServerType; override;
+  public
+    constructor Create(aComponent : TComponent); override;
+    procedure Assign(Source: TPersistent); override;
+    property IndyServer: TROTIdTCPServer read GetIndyServer;
+    property DisableNagle : boolean read GetDisableNagle write SetDisableNagle default FALSE;
+    property KeepAlive : boolean read GetKeepAlive write SetKeepAlive default false;
+  end;
+
+  { TROIndyTCPServer }
+  TROIndyTCPServer = class(TROCustomIndyTCPServer, IROTransport)
+  published
+    property IndyServer;
+    property Port;
+    property DisableNagle;
+    property KeepAlive;
+  end;
+
+implementation
+
+uses SysUtils,
+     {$IFNDEF RemObjects_INDY8}IdIoHandlerSocket,{$ENDIF}
+     {$IFDEF RemObjects_INDY10}{IdStreamVCL,}{$ENDIF}
+     idstackconsts;
+
+{ TROCustomIndyTCPServer }
+
+procedure TROCustomIndyTCPServer.Assign(Source: TPersistent);
+var
+  lSource: TROCustomIndyTCPServer;
+begin
+  inherited;
+  if Source is TROCustomIndyTCPServer then begin
+    lSource := TROCustomIndyTCPServer(Source);
+
+    IndyServer.Assign(lSource.IndyServer);
+    DisableNagle := lSource.DisableNagle;
+    KeepAlive := lSource.KeepAlive;
+  end;
+end;
+
+constructor TROCustomIndyTCPServer.Create(aComponent: TComponent);
+begin
+  inherited;
+
+  fIndyServer := CreateIndyServer;
+  fIndyServer.Name := 'InternalIndyServer';
+  {$IFDEF DELPHI6UP}
+  fIndyServer.SetSubComponent(True);
+  {$ENDIF}
+end;
+
+function TROCustomIndyTCPServer.CreateIndyServer: TComponent;
+begin
+  result := TROTIdTCPServer.Create(Self);
+  TROTIdTCPServer(result).OnExecute := InternalOnExecute;
+  TROTIdTCPServer(result).DefaultPort := 8090;
+end;
+
+function TROCustomIndyTCPServer.GetIndyServer: TROTIdTCPServer;
+begin
+  result := TROTIdTCPServer(fIndyServer)
+end;
+
+procedure TROCustomIndyTCPServer.IntSetActive(const Value: boolean);
+begin
+  IndyServer.IndySetActive(Value);
+  if not Value
+    then IndyServer.Bindings.Clear;
+end;
+
+function TROCustomIndyTCPServer.IntGetActive : boolean;
+begin
+  result := IndyServer.Active
+end;
+
+procedure TROCustomIndyTCPServer.InternalOnExecute(AThread: TIdThreadClass);
+var
+  req, resp : TMemoryStream;
+  tcptransport : IROTCPTransport;
+  {$IFDEF RemObjects_INDY10A}
+  lStream: TIdStreamVCL;
+  {$ENDIF}
+begin
+  req := TMemoryStream.Create;
+  resp := TMemoryStream.Create;
+
+  tcptransport := TIndyTCPConnectionTransport.Create(aThread);
+
+  try
+    with AThread do begin
+      while AThread.Connection.Connected do
+      begin
+        if DisableNagle then begin
+          {$IFDEF RemObjects_INDY8}
+          Connection.Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True),  SizeOf(Id_SO_True));
+          {$ELSE}
+            {$IFDEF RemObjects_INDY9}
+            (Connection.IoHandler as TIdIoHandlerSocket).Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, PChar(@Id_SO_True),  SizeOf(Id_SO_True));
+            {$ELSE}
+            (Connection.IoHandler as TIdIoHandlerSocket).Binding.SetSockOpt(Id_IPPROTO_TCP, Id_TCP_NODELAY, Id_SO_True);
+            {$ENDIF}
+          {$ENDIF}
+        end;
+
+        {$IFDEF RemObjects_INDY10A}
+          lStream := TIdStreamVCL.Create(req, false);
+          try
+            Connection.IOHandler.ReadStream(lStream);
+          finally
+            FreeAndNil(lStream);
+          end;
+          req.Position := 0;
+          DispatchMessage(tcptransport, req, resp);
+          lStream := TIdStreamVCL.Create(resp, false);
+          try
+            Connection.IOHandler.Write(lStream, lStream.Size, TRUE);
+          finally
+            FreeAndNil(lStream);
+          end;
+
+        {$ELSE}
+          {$IFDEF RemObjects_INDY10B}
+            Connection.IOHandler.ReadStream(req);
+            req.Position := 0;
+            DispatchMessage(tcptransport, req, resp);
+            Connection.IOHandler.Write(resp, resp.Size, TRUE);
+          {$ELSE}
+            Connection.ReadStream(req);
+            req.Position := 0;
+            DispatchMessage(tcptransport, req, resp);
+            Connection.WriteStream(resp, TRUE, TRUE);
+          {$ENDIF}
+        {$ENDIF}
+
+        if not KeepAlive
+          then Connection.Disconnect
+        else
+        begin
+          resp.Position := 0;
+          req.Position := 0;
+          resp.Size := 0;
+          req.Size := 0;
+        end;
+      end;
+    end;
+  finally
+    req.Free;
+    resp.Free;
+  end;
+end;
+
+function TROCustomIndyTCPServer.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+function TROCustomIndyTCPServer.GetPort: Integer;
+begin
+  Result := IndyServer.DefaultPort;
+  if (Result = 0) and Active and (IndyServer.Bindings.Count > 0) then
+    Result := IndyServer.Bindings[0].Port;
+end;
+
+function TROCustomIndyTCPServer.GetServerType: TROServerType;
+begin
+  Result := rstTCP;
+end;
+
+procedure TROCustomIndyTCPServer.SetPort(const Value:Integer);
+begin
+  IndyServer.DefaultPort := Value;
+end;
+
+function TROCustomIndyTCPServer.GetKeepAlive: boolean;
+begin
+  result := fKeepAlive
+end;
+
+procedure TROCustomIndyTCPServer.SetKeepAlive(const Value: boolean);
+begin
+  fKeepAlive := Value
+end;
+
+function TROCustomIndyTCPServer.GetDisableNagle: boolean;
+begin
+  result := fDisableNagle
+end;
+
+procedure TROCustomIndyTCPServer.SetDisableNagle(const Value: boolean);
+begin
+  fDisableNagle := Value
+end;
+
+{ TROTIdTCPServer }
+
+function TROTIdTCPServer.GetActive: boolean;
+begin
+  result := inherited Active;
+end;
+
+procedure TROTIdTCPServer.IndySetActive(Value: boolean);
+begin
+  inherited Active := Value
+end;
+
+{ TIndyTCPConnectionTransport }
+
+constructor TIndyTCPConnectionTransport.Create(aThread: TIdThreadClass);
+begin
+  inherited Create;
+  fThread := aThread;
+end;
+
+function TIndyTCPConnectionTransport.GetClientAddress: string;
+begin
+  {$IFDEF RemObjects_INDY8}
+  result := fThread.Connection.Binding.PeerIP
+  {$ELSE}
+  result := fThread.Connection.Socket.Binding.PeerIP
+  {$ENDIF}
+end;
+
+function TIndyTCPConnectionTransport.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+initialization
+  RegisterServerClass(TROIndyTCPServer);
+finalization
+  UnregisterServerClass(TROIndyTCPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyUDPChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyUDPChannel.pas
new file mode 100644
index 0000000..b201686
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyUDPChannel.pas	
@@ -0,0 +1,734 @@
+unit uROIndyUDPChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Provided by Nico Schoemaker (nico.schoemaker@teamro.remobjects.com         }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses classes, SysUtils,SyncObjs,
+     IdUDPClient,
+     uROClient, uROClientIntf, uROAsyncResponseStorage, uROAsync, uROThread,
+     uROClasses;
+
+type
+
+  TROIndyUDPChannel = class;
+
+  TROUDPResponseThread = class(TROThread)
+  private
+    FChannel: TROIndyUDPChannel;
+    FCriticalSection: TCriticalSection;
+    FReqUID: String;
+    FNeedToSynchonize: Boolean;
+  protected
+    FRetrys: Integer;
+    FRespReceived: Boolean;
+    procedure DoTimeOut;
+    procedure DoEnd;
+    procedure Execute;override;
+  public
+    property RequestUID: String read FReqUID;
+    property ReceivedResponse: Boolean read FRespReceived;
+    property Channel: TROIndyUDPChannel read FChannel;
+    property CriticalSection: TCriticalSection read FCriticalSection;
+    property NeedToSynchonize: Boolean read FNeedToSynchonize write FNeedToSynchonize default True;
+    constructor Create(const aName: string; aChannel: TROIndyUDPChannel; aRequestUID: String);
+  end;
+
+  TROUDPResponseThreadClass = class of TROUDPResponseThread;
+
+  TROAsyncTimeOutEvent = procedure (aRequistUID: String) of object;
+
+  TROIndyUDPChannel = class(TROTransportChannel, IROTransport, IROTCPTransport,
+                            IROAsyncTransportChannel, IROAsyncResponseStorage,IROTCPTransportProperties)
+  private
+    fIndyClient: TIdUDPClient;
+    FRespStorage: TROSimpleAsyncResponseStorage;
+    FReqStorage: TROSimpleAsyncResponseStorage;
+    FRespBuffer: TStringList;
+    FRetrys: Integer;
+    FAsyncTimeOut: Integer;
+    FOnAsyncResponseTimeOut: TROAsyncTimeOutEvent;
+    FRunningThread: TROUDPResponseThread;
+    fAsyncSynchronizeResponse: Boolean;
+    function GetHost: string;
+    function GetPort: integer;
+    procedure SetHost(const Value: string);
+    procedure SetPort(const Value: integer);
+  protected
+    FCriticalSection: TCriticalSection;
+    FIDSize: Integer;
+
+    { IROTransport }
+    function GetTransportObject : TObject; override;
+
+    { IROTCPTransport }
+    function GetClientAddress : string;
+
+    { IROAsyncTransportChannel }
+    function  InvokeRequest(aRequest:TStream; iGetResponse:boolean=true):string;virtual;
+    procedure RetrieveResponse(const iMessageID:string; aResponse:TStream);
+
+    procedure DoEndOfThread(Sender: TROUDPResponseThread);virtual;
+    procedure DoOnTerminateThread(Sender: TObject);virtual;
+    procedure DoAsyncThreadTimeOut(ReqUID: String);virtual;
+
+    procedure IntDispatch(aRequest, aResponse : TStream); override;
+    procedure SendReq(aRequest: TStream;UID: String;AddToStorage: Boolean=true);virtual;
+    function  GetResponseThreadClass: TROUDPResponseThreadClass;virtual;
+
+    // Setters
+    procedure SetRetrys(const Value: Integer);
+    procedure SetAsyncTimeOut(const Value: Integer);
+    procedure SetOnAsyncResponseTimeOut(const Value: TROAsyncTimeOutEvent);
+
+    // Helpers
+    procedure CleanUpStorages;virtual;
+    function  GetNewMesgID: String;virtual;
+    function  StripID(var aResponse: AnsiString): AnsiString;
+    procedure CopyStream(aSource,aTarget: TStream);
+    function  CreateUDPClient : TIdUDPClient; virtual;
+    procedure AddRequestToStorage(aRequest: TStream;aRequestID: String);
+  public
+    property  ResponseStorage: TROSimpleAsyncResponseStorage read FRespStorage {$IFNDEF FPC} implements IROAsyncResponseStorage {$ENDIF};
+    {$IFDEF FPC} // implements does not work in FPC
+    procedure AddResp(aResp: TROResponseItem);
+    procedure RemoveResp(aResp: TROResponseItem);
+    procedure RemoveRespByUID(aUID: String);
+    procedure DeleteResp(Index: Integer);
+    function  GetResp(Index: Integer): TROResponseItem;
+    function  GetRespByUID(aUID: String): TROResponseItem; deprecated;
+    function  GetResponseByUID(aUID: String): TROResponseItem;
+    function  IndexOfResp(aResp: TROResponseItem): Integer;
+    function  CountOfResp: Integer;
+    procedure ClearStorage;
+
+    property  ResponseItem[Index: Integer]: TROResponseItem read GetResp;
+    {$ENDIF}
+
+    property  RequestStorage: TROSimpleAsyncResponseStorage read FReqStorage;
+    function  ReceiveResp(aTimeOut: Integer): Boolean;virtual;
+    function  CheckStatus(const iMessageID:string):boolean;
+
+    constructor Create(AOwner: TComponent);override;
+    Destructor Destroy;override;
+    procedure Assign(aSource : TPersistent); override;
+  published
+    property AsyncTimeOut: Integer read FAsyncTimeOut write SetAsyncTimeOut default 1000;
+    property OnAsyncResponseTimeOut: TROAsyncTimeOutEvent read FOnAsyncResponseTimeOut write SetOnAsyncResponseTimeOut;
+    property Retrys: Integer read FRetrys write SetRetrys;
+    property IndyClient : TIdUDPClient read fIndyClient;
+    property Port : integer read GetPort write SetPort;
+    property Host : string read GetHost write SetHost;
+    property AsyncSynchronizeResponse: Boolean read fAsyncSynchronizeResponse write fAsyncSynchronizeResponse default true;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    property OnAfterProbingServer;
+    property OnAfterProbingServers;
+    property OnBeforeProbingServer;
+    property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    //property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    property OnServerLocatorAssignment;
+    property ProbeFrequency;
+    property ProbeServers;
+    property ServerLocators;
+    property SynchronizedProbing;
+  end;
+
+implementation
+
+uses
+  {$IFDEF RemObjects_UseEncryption} uRoEncryption, {$ENDIF}
+  IdGlobal;
+
+const //C_CLRBUFFER_TO = 50; // TimeOut reading the buffer for ClearRecvBuffer
+      C_READTIMEOUT = 'Time out reading server response %s.';
+      C_NORESPONSE  = 'Response %s is not available yet.';
+      C_EADDREQUEST = 'Parameters of AddRequestToStorage not Assigned';
+
+function  Strm_StreamToStr(aStream: TStream): AnsiString;
+var OldPos: Integer;
+begin
+  result := '';
+  if not(Assigned(aStream)) then
+    Exit;
+
+  OldPos := aStream.Position;
+  aStream.Position := 0;
+
+  SetLength(result, aStream.Size);
+  if (aStream.Size>0)
+    then aStream.Read(result[1], aStream.Size);
+
+  aStream.Position := OldPos;
+end;
+
+{$IFDEF RemObjects_INDY10}
+function Strm_StreamToBytes(UID: string; aStream: TStream): TIdBytes;
+var
+  OldPos: Integer;
+  lid: ansistring;
+  lSize: int64;
+begin
+  SetLength(result,0);
+  if (UID = '') or not(Assigned(aStream)) then Exit;
+  if Assigned(aStream) then lSize := aStream.Size else lSize := 0;
+  lid := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(UID);
+  SetLength(result, Length(lid)+ lSize);
+  if (Length(lid)>0) then move(Pointer(lid)^, Result[0], Length(lid));
+
+  if lSize <> 0 then begin
+    OldPos := aStream.Position;
+    aStream.Position := 0;
+    if (aStream.Size>0) then aStream.Read(Result[Length(lid)], aStream.Size);
+    aStream.Position := OldPos;
+  end;
+end;
+{$ENDIF}
+
+//------------------------------------------------------------------------------
+                                 { TROIndyUDPChannel }
+//------------------------------------------------------------------------------
+
+constructor TROIndyUDPChannel.Create(AOwner: TComponent);
+begin
+  inherited;
+  FCriticalSection := TCriticalSection.Create();
+  FIndyClient := CreateUDPClient;
+  FRespBuffer := TStringList.Create;
+  FRespStorage := TROSimpleAsyncResponseStorage.Create(Self);
+  FReqStorage := TROSimpleAsyncResponseStorage.Create(Self);
+
+  FRetrys := 5;
+  FAsyncTimeOut := 1000;
+
+  // In case the result of GetNewMesgID change's in the future
+  FIDSize := Length(GetNewMesgID);
+  fAsyncSynchronizeResponse := True;
+  {$IFDEF DELPHI6UP}
+  fIndyClient.SetSubComponent(TRUE);
+  {$ENDIF}
+end;
+
+destructor TROIndyUDPChannel.Destroy;
+begin
+  FreeAndNil(FCriticalSection);
+  FreeAndNil(FRespBuffer);
+
+  FreeAndNil(FRespStorage);
+  FreeAndNil(FReqStorage);
+
+  inherited;
+end;
+
+procedure TROIndyUDPChannel.CopyStream(aSource, aTarget: TStream);
+var lMs: TMemoryStream;
+    lPos: Integer;
+begin
+  if (not(Assigned(aSource))) or (not(Assigned(aTarget))) then
+    Exit;
+
+  lPos := aSource.Position;
+
+  try
+    if aTarget is TMemoryStream then
+    begin
+      TMemoryStream(aTarget).LoadFromStream(aSource);
+    end else
+    begin
+      lMs := TMemoryStream.Create;
+      try
+        lMs.LoadFromStream(aSource);
+        lMs.Position := 0;
+        lMs.SaveToStream(aTarget);
+      finally
+        lMs.Free;
+      end;
+    end;
+  finally
+    aSource.Position := lPos;
+  end;
+end;
+
+function TROIndyUDPChannel.CreateUDPClient: TIdUDPClient;
+begin
+  result := TIdUDPClient.Create(Self);
+  result.Port := 8090;
+  result.Name := 'InternalIndyClient';
+end;
+
+
+function TROIndyUDPChannel.GetClientAddress: string;
+begin
+  result := fIndyClient.Host;
+end;
+
+function TROIndyUDPChannel.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+{-----------------------------------------------------------------------------
+  Procedure: TROIndyUDPChannel.IntDispatch
+  Author:    Nico
+  Date:      22-apr-2003
+  Arguments: aRequest, aResponse: TStream
+  Result:    None
+  Called by the framework to send and receive a request/response
+  - Send's the request and add's it to the Request storage
+  - Recieive's the response and add's it to the Response storage
+  - Passes the response to aResponse
+
+-----------------------------------------------------------------------------}
+procedure TROIndyUDPChannel.IntDispatch(aRequest, aResponse: TStream);
+var lResp: TStream;
+    lRetry: Integer;
+    lUID: String;
+begin
+  lRetry := 0;
+
+  try
+    lUID := GetNewMesgID;
+    lResp := nil;
+    SendReq(aRequest,lUID);
+    repeat
+      if ReceiveResp(IndyClient.ReceiveTimeout) then
+      begin
+        if FRespStorage.GetRespByUID(lUID) <> nil then
+          lResp := FRespStorage.GetRespByUID(lUID).Response;
+      end;
+      inc(lRetry);
+    until (lRetry > Retrys) or (lResp <> nil);
+
+    if lRetry > Retrys then
+      raise Exception.Create(Format(C_READTIMEOUT,[lUID]));
+
+    CopyStream(lResp,aResponse);
+    aResponse.Position := 0;
+    FRespStorage.RemoveRespByUID(lUID);
+
+  finally
+    FReqStorage.RemoveRespByUID(lUID);
+    CleanUpStorages;
+  end;
+end;
+
+{-----------------------------------------------------------------------------
+  Procedure: TROIndyUDPChannel.AddRequestToStorage
+  Author:    Nico
+  Date:      22-apr-2003
+  Arguments: aRequest: TStream;aRequesID: String
+  Result:    None
+  Adds a request item to the RequestStorage
+-----------------------------------------------------------------------------}
+procedure TROIndyUDPChannel.AddRequestToStorage(aRequest: TStream;aRequestID: String);
+var lMs: TMemoryStream;
+    lReqItm: TROResponseItem;
+begin
+  if (not(Assigned(aRequest))) or (aRequestID = '') then
+    raise Exception.Create(C_EADDREQUEST);
+
+ FCriticalSection.Enter;
+ try
+   lMS := TMemoryStream.Create;
+   CopyStream(aRequest,lMs);
+   lReqItm := TROResponseItem.Create(lMS,aRequestID);
+   FReqStorage.AddResp(lReqItm);
+ finally
+   FCriticalSection.Leave;
+ end;
+end;
+
+{-----------------------------------------------------------------------------
+  Procedure: TROIndyUDPChannel.ReceiveResp
+  Author:    Nico
+  Date:      22-apr-2003
+  Arguments: None
+  Result:    Boolean
+  Recieves a single response and saves it in the ResponseStorage.
+-----------------------------------------------------------------------------}
+function TROIndyUDPChannel.ReceiveResp(aTimeOut: Integer): Boolean;
+var lBuf: AnsiString;
+    lID: String;
+    lResItm: TROResponseItem;
+    lResp: TROBinaryMemoryStream;
+    lIP: String;
+{$IFDEF RemObjects_INDY10}
+    lPort: TIDPort;
+    LBuffer : TIdBytes;
+    i: integer;
+{$ELSE}
+    lPort: Integer;
+{$ENDIF}
+begin
+  FCriticalSection.Enter;
+  try
+    result := False;
+    lPort := 0;
+    lIP := '';
+    {$IFDEF RemObjects_INDY10}
+    SetLength(LBuffer, IndyClient.BufferSize);
+    i:=IndyClient.ReceiveBuffer(LBuffer, lIP,lPort,aTimeOut);
+    SetLength(lBuf, i);
+    Move(lBuffer[0],pointer(lbuf)^,i);
+    {$ELSE}
+    lBuf := IndyClient.ReceiveString(lIP,lPort,aTimeOut);
+    {$ENDIF}
+    if lBuf <> '' then
+    begin
+      lID := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(StripID(lBuf));
+      lResp := TROBinaryMemoryStream.Create(lBuf);
+      lResItm := TROResponseItem.Create(lResp,lID);
+      lResItm.IP := lIP;
+      lResItm.Port := lPort;
+      FRespStorage.AddResp(lResItm);
+      result := True;
+    end;
+  finally
+    FCriticalSection.Leave;
+  end;
+end;
+
+procedure TROIndyUDPChannel.SendReq(aRequest: TStream;UID: String;AddToStorage: Boolean=true);
+var
+{$IFDEF RemObjects_INDY10}
+  lBytes: TIdBytes;
+{$ELSE}
+  lReq: AnsiString;
+{$ENDIF}
+begin
+  {$IFDEF RemObjects_INDY10}
+  lBytes := Strm_StreamToBytes(UID, aRequest);
+  IndyClient.SendBuffer(lBytes);
+  {$ELSE}
+  lReq := Strm_StreamToStr(aRequest);
+  // Sends the Message identifier in front of the actual message
+  IndyClient.Send(UID+{$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(lReq));
+  {$ENDIF}
+  if AddToStorage then
+    AddRequestToStorage(aRequest,UID);
+end;
+
+procedure TROIndyUDPChannel.SetRetrys(const Value: Integer);
+begin
+  FRetrys := Value;
+end;
+
+function TROIndyUDPChannel.GetNewMesgID: String;
+begin
+  result := NewGuidAsString;
+end;
+
+function TROIndyUDPChannel.GetResponseThreadClass: TROUDPResponseThreadClass;
+begin
+  result := TROUDPResponseThread;
+end;
+
+{-----------------------------------------------------------------------------
+  Procedure: TROIndyUDPChannel.StripIdentifier
+  Author:    Nico
+  Date:      18-apr-2003
+  Arguments: var aResponse: String
+  Result:    String
+  Strips the leading Identifier from the given response string and returns it.
+-----------------------------------------------------------------------------}
+function TROIndyUDPChannel.StripID(var aResponse: AnsiString): AnsiString;
+begin
+  if Length(aResponse) < FIDSize then
+    raise EROException.Create('Invalid UDP Packet received.');
+  result := Copy(aResponse,1,FIDSize);
+  Delete(aResponse,1,FIDSize);
+end;
+
+
+{-----------------------------------------------------------------------------
+  Procedure: TROIndyUDPChannel.CleanUpStorages
+  Author:    Nico
+  Date:      22-apr-2003
+  Arguments: None
+  Result:    None
+  Cleans up the Request and Response storages.
+  Any response without a request will be removed.
+-----------------------------------------------------------------------------}
+procedure TROIndyUDPChannel.CleanUpStorages;
+var i: Integer;
+    lRespUID: String;
+    lReqItm: TROResponseItem;
+begin
+  FCriticalSection.Enter;
+  try
+    // Remove respones that don't have a request present in the request-storage
+    for i := FRespStorage.CountOfResp-1 downto 0 do
+    begin
+      lRespUID := FRespStorage.ResponseItem[i].UID;
+      lReqItm  := FReqStorage.GetRespByUID(lRespUID);
+      if lReqItm = nil then
+        FRespStorage.DeleteResp(i);
+    end;
+  finally
+    FCriticalSection.Leave;
+  end;
+end;
+
+procedure TROIndyUDPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROIndyUDPChannel;
+begin
+  inherited;
+  if aSource is TROIndyUDPChannel then begin
+    lSource := TROIndyUDPChannel(aSource);
+    AsyncSynchronizeResponse := lSource.AsyncSynchronizeResponse;
+    AsyncTimeOut := lSource.AsyncTimeOut;
+    OnAsyncResponseTimeOut := lSource.OnAsyncResponseTimeOut;
+    Retrys := lSource.Retrys;
+  end;
+end;
+
+function TROIndyUDPChannel.CheckStatus(const iMessageID: string): boolean;
+begin
+  result := FRespStorage.GetRespByUID(iMessageID) <> nil;
+end;
+
+function TROIndyUDPChannel.InvokeRequest(aRequest: TStream; iGetResponse: boolean): string;
+var lRT: TROUDPResponseThread;
+    lName: String;
+begin
+  try
+    FCriticalSection.Enter;
+    try
+      result := '';
+      if FRunningThread <> nil then
+        raise EROChannelBusy.Create('Channel is busy.');
+
+      if not(Assigned(aRequest)) then
+        Exit;
+
+      result := GetNewMesgID;
+      {$IFDEF RemObjects_UseEncryption}
+      if Encryption.EncryptionMethod <> tetNone then DoEncryption2(aRequest);
+      {$ENDIF}
+
+      if iGetResponse then
+      begin
+        SendReq(aRequest,result);
+        lName := GetResponseThreadClass.ClassName+' for reading of response %s';
+        lRT := GetResponseThreadClass.Create(Format(lName,[result]),Self,result);
+        lRT.NeedToSynchonize := fAsyncSynchronizeResponse;
+        lRT.OnTerminate := DoOnTerminateThread;
+        FRunningThread := lRT;
+        lRT.Suspended := False;
+      end else
+        SendReq(aRequest,result,False);
+
+    finally
+      FCriticalSection.Leave;
+    end;
+  finally
+    aRequest.Free();
+  end;
+end;
+
+procedure TROIndyUDPChannel.RetrieveResponse(const iMessageID: string;aResponse: TStream);
+var
+  lResItm: TROResponseItem;
+begin
+  FCriticalSection.Enter;
+  try
+    if not(Assigned(aResponse)) then
+      Exit;
+
+    if CheckStatus(iMessageID) then begin
+      lResItm := FRespStorage.GetRespByUID(iMessageID);
+      CopyStream(lResItm.Response,aResponse);
+      {$IFDEF RemObjects_UseEncryption}
+      if Encryption.EncryptionMethod <> tetNone then DoDecryption2(aResponse);
+      {$ENDIF}
+      // Remove the response and request from the storage's
+      //FReqStorage.RemoveRespByUID(lResItm.UID);
+      FRespStorage.RemoveResp(lResItm);
+    end
+    else begin
+      raise EROAsyncNoAnswerYet.Create(Format(C_NORESPONSE,[iMessageID]));
+    end;
+  finally
+    FCriticalSection.Leave;
+  end;
+end;
+
+procedure TROIndyUDPChannel.DoEndOfThread(Sender: TROUDPResponseThread);
+begin
+  CleanUpStorages;
+end;
+
+procedure TROIndyUDPChannel.DoOnTerminateThread(Sender: TObject);
+begin
+  // Runs in the Main thread
+//  FRunningThread := nil;
+end;
+
+procedure TROIndyUDPChannel.DoAsyncThreadTimeOut(ReqUID: String);
+begin
+  if Assigned(FOnAsyncResponseTimeOut) then
+    FOnAsyncResponseTimeOut(ReqUID);
+end;
+
+procedure TROIndyUDPChannel.SetOnAsyncResponseTimeOut(const Value: TROAsyncTimeOutEvent);
+begin
+  FOnAsyncResponseTimeOut := Value;
+end;
+
+procedure TROIndyUDPChannel.SetAsyncTimeOut(const Value: Integer);
+begin
+  FAsyncTimeOut := Value;
+  if FAsyncTimeOut < 0 then
+    FAsyncTimeOut := 0;
+end;
+
+{ TROUDPResponseThread }
+constructor TROUDPResponseThread.Create(const aName: string; aChannel: TROIndyUDPChannel; aRequestUID: String);
+begin
+  inherited Create(True,aName);
+  FNeedToSynchonize := True;
+  FreeOnTerminate := true;
+  FRespReceived := False;
+  FChannel := aChannel;
+  FReqUID := aRequestUID;
+  FRetrys := aChannel.Retrys;
+  FCriticalSection := FChannel.FCriticalSection;
+end;
+
+procedure TROUDPResponseThread.Execute;
+begin
+  try
+    inherited;
+
+    repeat
+      FChannel.ReceiveResp(FChannel.AsyncTimeOut);
+      Dec(FRetrys);
+    until (FRetrys < 1) or (FChannel.CheckStatus(FReqUID));
+
+    FRespReceived :=  FRetrys > 0;
+
+    if FNeedToSynchonize then begin
+      if not FRespReceived then Synchronize(DoTimeOut) else Synchronize(DoEnd);
+    end
+    else begin
+      if not FRespReceived then DoTimeOut else DoEnd;
+    end;
+  finally
+    FChannel.FRunningThread := nil;
+  end;
+end;
+
+procedure TROUDPResponseThread.DoTimeOut;
+begin
+  FChannel.DoAsyncThreadTimeOut(FReqUID);
+end;
+
+
+procedure TROUDPResponseThread.DoEnd;
+begin
+  try
+    FChannel.DoEndOfThread(Self);
+  finally
+    FChannel.FRunningThread := nil;
+  end;
+end;
+
+
+function TROIndyUDPChannel.GetHost: string;
+begin
+  result := IndyClient.Host
+end;
+
+function TROIndyUDPChannel.GetPort: integer;
+begin
+  result := IndyClient.Port
+end;
+
+procedure TROIndyUDPChannel.SetHost(const Value: string);
+begin
+  IndyClient.Host := Value
+end;
+
+procedure TROIndyUDPChannel.SetPort(const Value: integer);
+begin
+  IndyClient.Port := Value
+end;
+
+{$IFDEF FPC}
+procedure TROIndyUDPChannel.AddResp(aResp: TROResponseItem);
+begin
+  FRespStorage.AddResp(aResp);
+end;
+
+procedure TROIndyUDPChannel.RemoveResp(aResp: TROResponseItem);
+begin
+  FRespStorage.RemoveResp(aResp);
+end;
+
+procedure TROIndyUDPChannel.RemoveRespByUID(aUID: String);
+begin
+  FRespStorage.RemoveRespByUID(aUID);
+end;
+
+procedure TROIndyUDPChannel.DeleteResp(Index: Integer);
+begin
+  FRespStorage.DeleteResp(Index);
+end;
+
+function  TROIndyUDPChannel.GetResp(Index: Integer): TROResponseItem;
+begin
+  Result:=FRespStorage.ResponseItem[Index];
+end;
+
+function  TROIndyUDPChannel.GetRespByUID(aUID: String): TROResponseItem;
+begin
+  Result:=FRespStorage.GetRespByUID(aUID);
+end;
+
+function  TROIndyUDPChannel.GetResponseByUID(aUID: String): TROResponseItem;
+begin
+  Result:=FRespStorage.GetRespByUID(aUID);
+end;
+
+function  TROIndyUDPChannel.IndexOfResp(aResp: TROResponseItem): Integer;
+begin
+  Result:=FRespStorage.IndexOfResp(aResp);
+end;
+
+function  TROIndyUDPChannel.CountOfResp: Integer;
+begin
+  Result:=FRespStorage.CountOfResp;
+end;
+
+procedure TROIndyUDPChannel.ClearStorage;
+begin
+  FRespStorage.ClearStorage;
+end;
+{$ENDIF FPC}
+
+initialization
+  RegisterTransportChannelClass(TROIndyUDPChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROIndyUDPChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyUDPServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyUDPServer.pas
new file mode 100644
index 0000000..36a640a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIndyUDPServer.pas	
@@ -0,0 +1,354 @@
+unit uROIndyUDPServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Provided by Nico Schoemaker (nico.schoemaker@teamro.remobjects.com         }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes,SysUtils,
+  IdUDPServer, IdSocketHandle, IdGlobal,
+  uROServer, uROClasses, uROClientIntf;
+
+
+type
+
+
+  TROIndyUDPServer = class;
+
+  TROIndyUDPTransport = class(TInterfacedObject, IROTransport, IROTCPTransport)
+  private
+    FBinding: TIdSocketHandle;
+    FServer: TROIndyUDPServer;
+  protected
+    function GetTransportObject : TObject;
+    function GetClientAddress : string;
+  public
+    property Binding: TIdSocketHandle read FBinding;
+    property Server: TROIndyUDPServer read FServer;
+
+    constructor Create(aServer: TROIndyUDPServer;aBinding: TIdSocketHandle);
+  end;
+
+  TROIndyUDPTransportclass = class of TROIndyUDPTransport;
+
+  TXPIdUDPServer = class(TIdUDPServer)
+  private
+    function GetActive: boolean; reintroduce;
+  public
+    procedure IndySetActive(Value : boolean);
+  published
+    property Active : boolean read GetActive;
+  end;
+
+  TROIndyUDPServer = class(TROServer, IROTransport)
+  private
+    FUDPSvr: TIdUDPServer;
+    FIDSize: Integer;
+
+    function GetIndyUDPServer: TXPIdUDPServer;
+  protected
+    function GetMessageID(aStream: TStream): AnsiString;
+    function FormatDispStream(aStream: TStream): TMemoryStream;
+
+    { TROServer }
+    procedure IntSetActive(const Value: boolean);override;
+    function  IntGetActive : boolean;override;
+    function GetPort: integer; override;
+    procedure SetPort(const Value: integer);override;
+
+    { IROTransport }
+    function GetTransportObject : TObject;
+    {$IFDEF RemObjects_INDY10C}
+    procedure InternalUDPRead(Sender: TIdUDPListenerThread; AData: TIdBytes; ABinding: TIdSocketHandle); virtual;
+    {$ELSE}
+    {$IFDEF RemObjects_INDY10}
+    procedure InternalUDPRead(Sender: TObject; AData: TIdBytes; ABinding: TIdSocketHandle); virtual;
+    {$ELSE}
+    procedure InternalUDPRead(Sender: TObject;AData: TStream;ABinding: TIdSocketHandle); virtual;
+    {$ENDIF}
+    {$ENDIF}
+    function  CreateUDPServer: TXPIdUDPServer;virtual;
+
+    function  GetTransportClass: TROIndyUDPTransportClass;virtual;
+    function GetServerType: TROServerType;override;
+  public
+    constructor Create(AOwner: TComponent);override;
+    destructor Destroy;override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property IndyUDPServer: TXPIdUDPServer read GetIndyUDPServer;
+    property Port;
+  end;
+
+implementation
+
+{ TROIndyUDPServer }
+
+procedure TROIndyUDPServer.Assign(Source: TPersistent);
+var
+  lSource: TROIndyUDPServer;
+begin
+  inherited;
+  if Source is TROIndyUDPServer then begin
+    lSource := TROIndyUDPServer(Source);
+    IndyUDPServer.Assign(lSource.IndyUDPServer);
+  end;
+end;
+
+constructor TROIndyUDPServer.Create(AOwner: TComponent);
+begin
+  inherited;
+  FUDPSvr := CreateUDPServer;
+  {$IFDEF DELPHI6UP}
+  FUDPSvr.SetSubComponent(TRUE);
+  {$ENDIF}
+end;
+
+function TROIndyUDPServer.CreateUDPServer: TXPIdUDPServer;
+begin
+  result := TXPIdUDPServer.Create(Self);
+  result.OnUDPRead := InternalUDPRead;
+  result.Name := 'InternalIndyServer';
+  result.DefaultPort := 8090;
+  // In case the result of NewGuidAsString change's in the future
+  FIDSize := Length(NewGuidAsString);
+end;
+
+destructor TROIndyUDPServer.Destroy;
+begin
+  inherited;
+end;
+
+function TROIndyUDPServer.GetIndyUDPServer: TXPIdUDPServer;
+begin
+ result := TXPIdUDPServer(FUDPSvr);
+end;
+function TROIndyUDPServer.GetPort: integer;
+begin
+  Result := IndyUDPServer.DefaultPort;
+  if (Result = 0) and Active and Assigned(IndyUDPServer.Binding) then
+    Result := IndyUDPServer.Binding.Port;
+end;
+
+function TROIndyUDPServer.GetServerType: TROServerType;
+begin
+  Result := rstUDP;
+end;
+
+procedure TROIndyUDPServer.SetPort(const Value: integer);
+begin
+  IndyUDPServer.DefaultPort := Value;
+  if not Active then IndyUDPServer.Bindings.Clear;
+end;
+
+function TROIndyUDPServer.GetTransportClass: TROIndyUDPTransportClass;
+begin
+  result := TROIndyUDPTransport;
+end;
+
+function TROIndyUDPServer.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+{$IFDEF RemObjects_INDY10C}
+procedure TROIndyUDPServer.InternalUDPRead(Sender: TIdUDPListenerThread; AData: TIdBytes; ABinding: TIdSocketHandle);
+{$ELSE}
+{$IFDEF RemObjects_INDY10}
+procedure TROIndyUDPServer.InternalUDPRead(Sender: TObject; AData: TIdBytes; ABinding: TIdSocketHandle);
+{$ELSE}
+procedure TROIndyUDPServer.InternalUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
+{$ENDIF}
+{$ENDIF}
+var lResp: TROBinaryMemoryStream;
+    lReq: TMemoryStream;
+    lRespS: AnsiString;
+    lTransport: IROTCPTransport;
+    lMesgID: AnsiString;
+    lStream: TStream;
+{$IFDEF RemObjects_INDY10}
+    b : TIdBytes;
+{$ENDIF}
+begin
+  lResp := TROBinaryMemoryStream.Create('');
+  lReq := nil;
+  try
+    {$IFDEF RemObjects_INDY10}
+    lStream := TMemoryStream.Create();
+    WriteTIdBytesToStream(lStream, AData);
+    lStream.Position := 0;
+    try
+    {$ELSE}
+    lStream := AData;
+    {$ENDIF}
+
+    lMesgID := GetMessageID(lStream);
+    lReq := FormatDispStream(lStream);
+
+    if Assigned(lReq) then  // lReq becomes nil if not a valid (RO) AData Stream
+    begin
+      lTransport := GetTransportClass.Create(Self,ABinding);
+      DispatchMessage(lTransport, lReq, lResp);
+      lRespS := lMesgID+lResp.ToString;
+      {$IFDEF RemObjects_INDY10}
+      SetLength(b,Length(lRespS));
+      Move(pointer(lRespS)^, b[0], Length(lRespS));
+      ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, b);
+      {$ELSE}
+      ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, lRespS[1], Length(lRespS));
+      {$ENDIF}
+    end;
+
+    {$IFDEF RemObjects_INDY10}
+    finally
+      FreeAndNil(lStream);
+    end;
+    {$ENDIF}
+
+  finally
+    if Assigned(lReq) then
+      lReq.Free;
+    lResp.Free;
+  end;
+end;
+
+{-----------------------------------------------------------------------------
+  Procedure: TROIndyUDPServer.GetMessageID
+  Author:    Nico
+  Date:      19-apr-2003
+  Arguments: aStream: TStream
+  Result:    String
+  Extracts the included ID from the stream.
+  Returns a empty string if the method is not able to extract the ID.
+-----------------------------------------------------------------------------}
+function TROIndyUDPServer.GetMessageID(aStream: TStream): AnsiString;
+var lPos: Integer;
+begin
+  result := '';
+  if not(Assigned(aStream)) then
+    exit;
+  if aStream.Size < FIDSize then
+    Exit;
+
+  lPos := aStream.Position;
+  try
+    aStream.Position := 0;
+    SetLength(result,FIDSize);
+    aStream.ReadBuffer(result[1],FIDSize);
+  finally
+    aStream.Position := lPos;
+  end;
+end;
+
+{-----------------------------------------------------------------------------
+  Procedure: TROIndyUDPServer.FormatDispStream
+  Author:    Nico
+  Date:      19-apr-2003
+  Arguments: aStream: TStream
+  Result:    TStream
+  Constructs the given aStream back to a dispatchable RO stream.
+  This involves the removing of included ID, that is assumed to be present
+  in the given stream.If the method is not able to counstruct a dispatchable
+  stream the result will be nil.
+-----------------------------------------------------------------------------}
+function TROIndyUDPServer.FormatDispStream(aStream: TStream): TMemoryStream;
+var lBuf: AnsiString;
+    lPos: Integer;
+begin
+  result := nil;
+  if not(Assigned(aStream)) then
+    Exit;
+  if aStream.Size < FIDSize then
+    Exit;
+
+  lPos := aStream.Position;
+  // Initializa the result stream
+  result := TMemoryStream.Create;
+  try
+    try
+      TMemoryStream(result).SetSize(aStream.Size-FIDSize);
+
+      SetLength(lBuf,aStream.Size-FIDSize);
+      // Set the given stream pos on 1 byte after the prefixed ID
+      aStream.Position := FIDSize;
+      // Copy the contens without ID to the local buffer.
+      aStream.Read(lBuf[1],aStream.Size-FIDSize);
+      // Copy the contents of the buffer into the result stream
+      result.Position := 0;
+      result.Write(lBuf[1],aStream.Size-FIDSize);
+      result.Position := 0;
+    except
+      // Dont return the result stream
+      result.Free;
+      result := nil;
+      raise;
+    end;
+  finally
+    aStream.Position := lPos;
+  end;
+end;
+
+//------------------------------------------------------------------------------
+                           { TXPIdUDPServer }
+//------------------------------------------------------------------------------
+
+function TXPIdUDPServer.GetActive: boolean;
+begin
+  result := Inherited Active;
+end;
+
+procedure TXPIdUDPServer.IndySetActive(Value: boolean);
+begin
+  inherited Active := Value;
+end;
+
+function TROIndyUDPServer.IntGetActive: boolean;
+begin
+  result := FUDPSvr.Active;
+end;
+
+procedure TROIndyUDPServer.IntSetActive(const Value: boolean);
+begin
+  IndyUDPServer.IndySetActive(Value);
+end;
+
+//------------------------------------------------------------------------------
+                           { TROIndyUDPTransport }
+//------------------------------------------------------------------------------
+
+constructor TROIndyUDPTransport.Create(aServer: TROIndyUDPServer;aBinding: TIdSocketHandle);
+begin
+  FBinding := aBinding;
+  FServer  := aServer;
+end;
+
+function TROIndyUDPTransport.GetClientAddress: string;
+begin
+  result := FBinding.PeerIP;
+end;
+
+
+function TROIndyUDPTransport.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+initialization
+  RegisterServerClass(TROIndyUDPServer);
+finalization
+  UnregisterServerClass(TROIndyUDPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpHttpServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpHttpServer.pas
new file mode 100644
index 0000000..8dce10a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpHttpServer.pas	
@@ -0,0 +1,472 @@
+unit uROIpHttpServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Synapse Components                                }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROServer, uROClientIntf, uIPAsyncSocket, uIPAsyncHttpServer, uIPHttpHeaders,
+  uROThreadPool, uROServerIntf, uRORes, uROClient, uROHtmlServerInfo, uRODL, uROHTTPTools;
+
+type
+  TROIpHTTPServer = class(TROServer)
+  private
+    fServeRodl, fServeInfoPage: Boolean;
+    fSendExceptionsAs500: boolean;
+    fServer: TIPAsyncHTTPServer;
+    fThreadPool: TROThreadPool;
+    fOwnsThreadPool: Boolean;
+    fOnManualBindSocket: TNotifyEvent;
+    fOnGetCustomClientAccessPolicy: TROCustomClientAccessPolicyMethod;
+    fSendClientAccessPolicyXml: TROClientAccessPolicyType;
+    procedure SetThreadPool(const Value: TROThreadPool);
+  protected
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive : boolean; override;
+
+    function GetDispatchersClass : TROMessageDispatchersClass; override;
+
+
+    function GetPort: Integer; override;
+    procedure SetPort(const Value: Integer);override;
+    procedure IntRequest(Sender: TObject; aContext: IIPAsyncContext);
+    function GetServerType: TROServerType; override;
+  public
+    constructor Create(aComponent: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    property Server: TIPAsyncHTTPServer read fServer;
+  published
+    property Port;
+    property ServeInfoPage : Boolean read fServeInfoPage write fServeInfoPage default true;
+    property ServeRodl : Boolean read fServeRodl write fServeRodl default true;
+    property SendExceptionsAs500: boolean read fSendExceptionsAs500 write fSendExceptionsAs500 default true;
+    property OnGetRODLReader;
+
+    property ThreadPool: TROThreadPool read fThreadPool write SetThreadPool;
+
+    property OnManualBindSocket: TNotifyEvent read fOnManualBindSocket write fOnManualBindSocket;
+    property OnGetCustomClientAccessPolicy: TROCustomClientAccessPolicyMethod read fOnGetCustomClientAccessPolicy write fOnGetCustomClientAccessPolicy;
+    property SendClientAccessPolicyXml: TROClientAccessPolicyType read fSendClientAccessPolicyXml write fSendClientAccessPolicyXml default captAllowNone;
+  end;
+
+implementation
+uses
+  uROHTTPDispatch, TypInfo, SysUtils, uROIpTcpServer, uROClasses;
+
+type
+  TROIpHTTPWorker = class(TInterfacedObject, IROThreadPoolCallback, IROTransport, IROTCPTransport, IROHTTPTransport)
+  private
+    fOwner: TROIpHTTPServer;
+    fContext: IIPAsyncContext;
+    fQueryData: TStringList;
+    function GetClientAddress: String;
+    function GetTransportObject: TObject;
+    function GetContentType: String;
+    function GetHeaders(const aName: String): String;
+    function GetLocation: String;
+    function GetPathInfo: String;
+    function GetQueryParameter(const aName: String): String;
+    function GetQueryString: String;
+    function GetTargetURL: String;
+    function GetUserAgent: String;
+    procedure SetContentType(const aValue: String);
+    procedure SetHeaders(const aName: String; const aValue: String);
+    procedure SetPathInfo(const aValue: String);
+    procedure SetTargetURL(const aValue: String);
+    procedure SetUserAgent(const aValue: String);
+  public
+    constructor Create(aOwner: TROIpHTTPServer; aContext: IIPAsyncContext);
+    destructor Destroy; override;
+    procedure Callback(Caller: TROThreadPool; aThread: TThread);
+  end;
+
+{ TROIpHTTPServer }
+
+procedure TROIpHTTPServer.Assign(Source: TPersistent);
+var
+  lSource: TROIpHTTPServer;
+begin
+  inherited;
+  if Source is TROIpHTTPServer then begin
+    lSource := TROIpHTTPServer(Source);
+
+    OnGetCustomClientAccessPolicy := lSource.OnGetCustomClientAccessPolicy;
+    OnGetRODLReader := lSource.OnGetRODLReader;
+    OnManualBindSocket := lSource.OnManualBindSocket;
+    SendClientAccessPolicyXml := lSource.SendClientAccessPolicyXml;
+    SendExceptionsAs500 := lSource.SendExceptionsAs500;
+    ServeInfoPage := lSource.ServeInfoPage;
+    ServeRodl := lSource.ServeRodl;
+  end;
+end;
+
+constructor TROIpHTTPServer.Create(aComponent: TComponent);
+begin
+  inherited Create(aComponent);
+
+  fServer := TIPAsyncHTTPServer.Create;
+  fServer.OnRequest := IntRequest;
+  fServer.Port := 8099;
+  fServeInfoPage := true;
+  fServeRodl := true;
+end;
+
+destructor TROIpHTTPServer.Destroy;
+begin
+  Active := false;
+  fServer.Free;
+  if fOwnsThreadPool then
+    fThreadPool.Free;
+  inherited Destroy;
+end;
+
+function TROIpHTTPServer.GetDispatchersClass: TROMessageDispatchersClass;
+begin
+  Result := TROHTTPMessageDispatchers;
+end;
+
+function TROIpHTTPServer.GetPort: Integer;
+begin
+  result := fServer.Port;
+end;
+
+function TROIpHTTPServer.GetServerType: TROServerType;
+begin
+  Result := rstHTTP;
+end;
+
+function TROIpHTTPServer.IntGetActive: boolean;
+begin
+  result := fServer.Active;
+end;
+
+procedure TROIpHTTPServer.IntSetActive(const Value: boolean);
+begin
+  inherited;
+  if Value = fserver.Active then exit;
+  if Value then begin
+    fServer.OnManualBind := fOnManualBindSocket;
+    if fThreadPool = nil then begin
+      fThreadPool := TROThreadPool.Create(nil);
+      fOwnsThreadPool := true;
+    end;
+    fServer.Active := true;
+  end else begin
+    fServer.Active := false;
+    
+  end;
+end;
+
+procedure TROIpHTTPServer.SetPort(const Value: Integer);
+begin
+  fServer.Port := Value;
+end;
+
+procedure TROIpHTTPServer.SetThreadPool(const Value: TROThreadPool);
+begin
+  if fOwnsThreadPool then begin
+    FreeAndNil(fThreadPool);
+  end;
+  fOwnsThreadPool := false;
+  fThreadPool := Value;
+end;
+
+procedure TROIpHTTPServer.IntRequest(Sender: TObject;
+  aContext: IIPAsyncContext);
+begin
+  try
+    fThreadPool.QueueItem(TROIpHTTPWorker.Create(self, aContext));
+  except
+    aContext.GetSelf.Disconnect;
+  end;
+end;
+
+
+{ TROIpHTTPWorker }
+
+procedure TROIpHTTPWorker.Callback(Caller: TROThreadPool;
+  aThread: TThread);
+
+  procedure WriteError(resp : TMemoryStream);
+  var
+    s: ansistring;
+  begin
+    s := '<font size="7">500 Invalid Path</font><br />'+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(err_CannotFindMessageDispatcher);
+    resp.Write(s[1], Length(s));
+  end;
+
+var
+  Req: TROBinaryMemoryStream;
+  lRodl: TRODLLibrary;
+  root,
+  sub: string;
+  data: TDynamicByteArray;
+  disp: TROHTTPDispatcher;
+  ok: Boolean;
+  resp: TMemoryStream;
+  lIgnore: TROResponseOptions;
+  s: ansistring;
+  s1: string;
+  info: IRONamedModuleInfo;
+  lPolicyContent: AnsiString;
+begin
+  Req := TROBinaryMemoryStream.Create;
+  try
+    Req.Write(TByteArray(fContext.RequestData)[0], Length(TByteArray(fContext.RequestData)));
+    resp := TMemoryStream.Create;
+    fcontext.Response.Headers.Values['Content-Type'] := fContext.Request.ContentType;
+    fcontext.Response.Code := 200;
+    fcontext.Response.Reason := 'OK';
+    ok := False;
+    try
+      root := fContext.Request.Path;
+      if Pos('?', Root) > 0 then Delete(Root, pos('?', root), MaxInt);
+      if (root <> '') and (root[1] = '/') then delete(root, 1,1);
+      if pos('/', root) > 0 then
+      begin
+        sub := copy(root, pos('/', root)+1, maxint);
+        root := '/' + copy(root, 1, pos('/', root) - 1);
+      end else
+      begin
+        root := '/' + root;
+        sub := '';
+      end;
+
+      disp := TROHTTPMessageDispatchers(fOwner.Dispatchers).GetDispatcherByPath(root) as TROHTTPDispatcher;
+
+      if disp <> nil then
+      begin
+        if (req.Size = 0) then begin
+          ok := fOwner.fServeRodl;
+          if ok then
+            ok := fOwner.IntDispatchMessage(disp, self, req, resp, lIgnore)
+          else begin
+            WriteError(resp);
+            SetContentType('text/html');
+          end;
+        end else if (sub = '')  then
+          ok := fOwner.IntDispatchMessage(disp, self, req, resp, lIgnore)
+        else if (CompareText(sub, 'rodl') = 0) and fOwner.fServeRodl then
+        begin
+          if copy(disp.PathInfo, 1, 1) = '/' then SetPathInfo(disp.PathInfo) else SetPathInfo('/'+disp.PathInfo);
+          GetRodl(resp, self, s1, fOwner.GetRODLReader);
+          SetContentType(s1);
+
+          ok := true;
+        end else if Supports(disp.Message, IRONamedModuleInfo, info) and (CompareText(info.ModuleInfoName, sub) = 0) and fOwner.fServeRodl then
+        begin
+          if copy(disp.PathInfo, 1, 1) = '/' then SEtPathInfo(disp.PathInfo) else SetPathInfo('/'+disp.PathInfo);
+          info.GetModuleInfo(resp, self, s1);
+          SetContentType(s1);
+          ok := true;
+        end else
+        begin
+          ok := fOwner.IntDispatchMessage(disp, self, req, resp, lIgnore)
+        end;
+      end else if (CompareText(root, '/rodl') = 0) and (sub = '') and fOwner.fServeRodl then
+      begin
+        GetRodl(resp, self, s1, fOwner.GetRODLReader);
+        SetContentType(s1);
+        ok := true;
+      end else if fOwner.fServeInfoPage and (CompareText(root, '/doc') = 0) then
+      begin
+        if sub = 'css' then
+        begin
+          s := GetRodlCss;
+          resp.Write(s[1], Length(s));
+          SetContentType('text/css');
+          ok := true;
+        end else
+        if sub = 'xslt' then
+        begin
+          s := GetRodlStyleSheet;
+          resp.Write(s[1], Length(s));
+          SetContentType('text/xml');
+          ok := true;
+        end else if sub = '' then
+        begin
+          lRodl := GetRodlLibrary(fOwner.GetRODLReader);
+          try
+            SetContentType('text/xml');
+            s := GetRodlWithStyleSheet(lRodl, '/doc/xslt');
+            resp.Write(s[1], Length(s));
+          finally
+            lRodl.Free;
+          end;
+          ok := true;
+        end else
+        begin
+          WriteError(resp);
+          ok := false;
+        end;
+      end else if fOwner.fServeInfoPage and (CompareStr(root, '/favicon.ico') = 0) then
+      begin
+        GetRodlFavIcon(resp);
+        SetContentType('image/x-icon');
+        ok := true;
+      end else if fOwner.fServeInfoPage and (root = '/') then
+      begin
+        lrodl := GetRodlLibrary(fOwner.GetRODLReader);
+        try
+          s := GetRodlServerInfo('/', lRodl, fOwner.Dispatchers);
+          resp.Write(s[1], Length(s));
+        finally
+          lRodl.Free;
+        end;
+        ok := true;
+      end else
+      if CompareText(root, '/clientaccesspolicy.xml') = 0 then begin
+        case fOwner.fSendClientAccessPolicyXml of
+          captAllowAll: begin
+            lPolicyContent := GetClientAccessPolicy;
+          end;
+          captCustom: begin
+            if Assigned(fOwner.fOnGetCustomClientAccessPolicy) then
+              fOwner.fOnGetCustomClientAccessPolicy(fOwner, lPolicyContent);
+          end;
+        end;
+        if lPolicyContent <> '' then begin
+          SetContentType('text/xml');
+          resp.Write(lPolicyContent[1], Length(lPolicyContent));
+          ok := true;
+        end;
+      end  else
+      begin
+        WriteError(resp);
+        ok := false;
+      end;
+
+      if not (ok or fOwner.fSendExceptionsAs500) then begin
+        fcontext.Response.Code := 500;
+        fcontext.Response.Reason := 'Internal Server Error';
+      end;
+    except
+    end;
+    try
+      SetLength(data, resp.Size);
+      resp.position := 0;
+      resp.Read(data[0], Length(data));
+      fContext.ResponseData := data;
+      fContext.SendResponse;
+    finally
+      resp.Free;
+    end;
+  finally
+    req.Free;
+  end;
+end;
+
+constructor TROIpHTTPWorker.Create(aOwner: TROIpHTTPServer;
+  aContext: IIPAsyncContext);
+begin
+  inherited Create;
+  fOwner := aOwner;
+  fContext := aContext;
+end;
+
+destructor TROIpHTTPWorker.Destroy;
+begin
+  fQueryData.Free;
+  inherited;
+end;
+
+function TROIpHTTPWorker.GetClientAddress: String;
+begin
+  result := fContext.Request.ClientAddress;
+end;
+
+function TROIpHTTPWorker.GetContentType: String;
+begin
+  result := fContext.Request.ContentType;
+end;
+
+function TROIpHTTPWorker.GetHeaders(const aName: String): String;
+begin
+  result := fContext.Request.Headers.Values[aname];
+end;
+
+function TROIpHTTPWorker.GetLocation: String;
+begin
+  Result := '';
+end;
+
+function TROIpHTTPWorker.GetPathInfo: String;
+begin
+  result := '';
+end;
+
+function TROIpHTTPWorker.GetQueryParameter(const aName: String): String;
+begin
+  if fQueryData = nil then begin
+    fQueryData := TStringList.Create;
+    fQueryData.Delimiter := '&';
+    fQueryData.DelimitedText := GetQueryString;
+  end;
+  result := fqueryData.Values[aName];
+end;
+
+function TROIpHTTPWorker.GetQueryString: String;
+begin
+  result := fContext.Request.Path;
+  if Pos('?', result) = 0 then result := '' else
+    result := Copy(Result, Pos('?', result)+1, MaxInt);
+end;
+
+function TROIpHTTPWorker.GetTargetURL: String;
+begin
+  result := '';
+end;
+
+function TROIpHTTPWorker.GetTransportObject: TObject;
+begin
+  result := FOwner;
+end;
+
+function TROIpHTTPWorker.GetUserAgent: String;
+begin
+  Result := fContext.Request.Headers.Values['User-Agent'];
+end;
+
+procedure TROIpHTTPWorker.SetContentType(const aValue: String);
+begin
+  fContext.Response.Headers.Values['Content-Type'] := aValue;
+end;
+
+procedure TROIpHTTPWorker.SetHeaders(const aName, aValue: String);
+begin
+  fContext.Response.Headers.Values[aName] := aValue;
+end;
+
+procedure TROIpHTTPWorker.SetPathInfo(const aValue: String);
+begin
+end;
+
+procedure TROIpHTTPWorker.SetTargetURL(const aValue: String);
+begin
+
+end;
+
+procedure TROIpHTTPWorker.SetUserAgent(const aValue: String);
+begin
+  fContext.Response.Headers.Values['User-Agent'] := aValue;
+
+end;
+
+initialization
+  RegisterServerClass(TROIpHTTPServer);
+finalization
+  UnregisterServerClass(TROIpHTTPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpSuperHttpServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpSuperHttpServer.pas
new file mode 100644
index 0000000..279b454
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpSuperHttpServer.pas	
@@ -0,0 +1,243 @@
+unit uROIpSuperHttpServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Synapse Components                                }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+interface
+
+{$I RemObjects.inc}
+
+uses
+ SysUtils, Classes, uIPAsyncSocket, uIPAsyncHttpServer, uROServer,
+ uROBaseSuperHttpServer, uIPHttpHeaders;
+
+const
+  DefaultServerName = 'RemObjects SDK Super IpHTTP Server for Delphi'; 
+
+type
+  TROIpSuperHTTPServer = class(TROBaseSuperHTTPServer)
+  private
+    fSocket: TIPAsyncHTTPServer;
+    fOnManualBindSocket: TNotifyEvent;
+    fOnUnknownRequest: TIPAsyncHTTPRequestHandler;
+    fServerName: string;
+    function GetBindV4: Boolean;
+    function GetBindV6: Boolean;
+    procedure SetBindV4(const Value: Boolean);
+    procedure SetBindV6(const Value: Boolean);
+    function GetDisableNagle: Boolean;
+    procedure SetDisableNagle(const Value: Boolean);
+  protected
+    procedure CloseConnection(aConnection: IUnknown); override;
+    function HandleUnknownRequest(aTarget: IUnknown; arequest: TIPHTTPRequestHeaders; aData: TDynamicByteArray): Boolean; override;
+    procedure SendResponse(aTarget: IUnknown; aHeaders: TIPHTTPResponseHeaders; aData: TDynamicByteArray; UserData: IInterface);override;
+    procedure SetDefaultHeaders(aTarget: IUnknown; aHeaders: TIPHTTPResponseHeaders); override;
+    procedure DoActivate; override;
+    procedure DoDeactivate; override;
+    procedure IntRequest(Sender: TObject; aContext: IIPAsyncContext);
+    procedure IntBeforeCleanupContext(Sender: TObject; aContext: IIPAsyncContext);
+    procedure IntResponseSent(Sender: TObject; aContext: IIPAsyncContext);
+    procedure IntResponseFailed(Sender: TObject; aContext: IIPAsyncContext);
+    function GetPort: Integer;override;
+    procedure SetPort(const Value: Integer);override;
+    function GetServerType: TROServerType; override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Port default 8099;
+    property BindV6: Boolean read GetBindV6 write SetBindV6 default false;
+    property BindV4: Boolean read GetBindV4 write SetBindV4 default true;
+    property ServerName: string read fServerName write FserverName;
+    property DisableNagle: Boolean read GetDisableNagle write SetDisableNagle default true;
+
+    property OnManualBindSocket: TNotifyEvent read fOnManualBindSocket write fOnManualBindSocket;
+    property OnUnknownRequest: TIPAsyncHTTPRequestHandler read fOnUnknownRequest write fOnUnknownRequest;
+  end;
+
+implementation
+
+{ TROIpSuperHTTPServer }
+
+procedure TROIpSuperHTTPServer.Assign(Source: TPersistent);
+var
+  lSource: TROIpSuperHTTPServer;
+begin
+  inherited;
+  if Source is TROIpSuperHTTPServer then begin
+    lSource := TROIpSuperHTTPServer(Source);
+
+    BindV4 := lSource.BindV4;
+    BindV6 := lSource.BindV6;
+    DisableNagle := lSource.DisableNagle;
+    OnManualBindSocket := lSource.OnManualBindSocket;
+    OnUnknownRequest := lSource.OnUnknownRequest;
+    ServerName := lSource.ServerName;
+  end;
+end;
+
+procedure TROIpSuperHTTPServer.CloseConnection(aConnection: IUnknown);
+begin
+  IIPAsyncContext(aConnection).GetSelf.Disconnect;
+end;
+
+constructor TROIpSuperHTTPServer.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+  fSocket := TIPAsyncHTTPServer.Create;
+  fServerName := DefaultServerName;
+  fSocket.OnRequest := IntRequest;
+  fSocket.OnBeforeCleanupContext := IntBeforeCleanupContext;
+  fSocket.OnResponseSent := IntResponseSent;
+  fSocket.OnResponseFailed := IntResponseFailed;
+  fSocket.Port := 8099;
+end;
+
+destructor TROIpSuperHTTPServer.Destroy;
+begin
+  FreeAndNil(fSocket);
+  inherited Destroy;
+end;
+
+procedure TROIpSuperHTTPServer.DoActivate;
+begin
+  inherited DoActivate;
+  fSocket.OnManualBind := fOnManualBindSocket;
+  fSocket.MaxPostData := MaxPackageSize + 1024;
+  fSocket.Active := true;
+end;
+
+procedure TROIpSuperHTTPServer.DoDeactivate;
+begin
+  if FSocket <> nil  then fSocket.Active := false;
+  inherited DoDeactivate;
+end;
+
+function TROIpSuperHTTPServer.GetBindV4: Boolean;
+begin
+  result := fsocket.BindV4;
+end;
+
+function TROIpSuperHTTPServer.GetBindV6: Boolean;
+begin
+  result := fsocket.BindV6;
+end;
+
+function TROIpSuperHTTPServer.GetPort: Integer;
+begin
+  result := fSocket.Port;
+end;
+
+function TROIpSuperHTTPServer.GetServerType: TROServerType;
+begin
+  Result := rstSuperHTTP;
+end;
+
+function TROIpSuperHTTPServer.HandleUnknownRequest(aTarget: IUnknown;
+  arequest: TIPHTTPRequestHeaders; aData: TDynamicByteArray): Boolean;
+begin
+  if assigned(fOnUnknownRequest) then begin
+    fOnUnknownRequest(self, IIPAsyncContext(aTarget));
+    result := true;
+  end else
+    result := false;
+end;
+
+procedure TROIpSuperHTTPServer.IntRequest(Sender: TObject;
+  aContext: IIPAsyncContext);
+begin
+  HandleRequest(acontext, aContext.Request, aContext.RequestData);
+end;
+
+
+procedure TROIpSuperHTTPServer.IntResponseFailed(Sender: TObject;
+  aContext: IIPAsyncContext);
+begin
+  ResponseFailed(IUnknown(aContext.UserData));
+end;
+
+procedure TROIpSuperHTTPServer.IntResponseSent(Sender: TObject;
+  aContext: IIPAsyncContext);
+begin
+  ResponseSucessful(IUnknown(aContext.UserData));
+end;
+
+procedure TROIpSuperHTTPServer.SendResponse(aTarget: IUnknown;
+  aHeaders: TIPHTTPResponseHeaders; aData: TDynamicByteArray;
+  UserData: IInterface);
+var
+  p: Pointer;
+  lTarget: IIPAsyncContext;
+begin
+  lTarget := IIPAsyncContext(aTarget);
+  if aHeaders = nil then begin
+    SetDefaultHeaders(aTarget, lTarget.Response);
+    lTarget.Response.Headers.Values['Content-Type'] := 'application/octet-stream';
+  end else
+    lTarget.Response.Assign(aHeaders);
+  lTarget.ResponseData := aDAta;
+  p := nil;
+  IUnknown(P) := UserData;
+  lTarget.UserData := p;
+  lTarget.SendResponse;
+end;
+
+procedure TROIpSuperHTTPServer.IntBeforeCleanupContext(Sender: TObject;
+  aContext: IIPAsyncContext);
+var
+  p: Pointer;
+begin
+  p := aContext.UserData;
+  aContext.UserData := nil;
+  IUnknown(p) := nil;
+end;
+
+
+procedure TROIpSuperHTTPServer.SetBindV4(const Value: Boolean);
+begin
+  fSocket.BindV4 := VAlue;
+end;
+
+procedure TROIpSuperHTTPServer.SetDefaultHeaders(aTarget: IUnknown;
+  aHeaders: TIPHTTPResponseHeaders);
+begin
+  aHeaders.Headers.Values['Server'] :=  fServerName;
+end;
+
+procedure TROIpSuperHTTPServer.SetPort(const Value: Integer);
+begin
+  fSocket.Port := Value;
+end;
+
+procedure TROIpSuperHTTPServer.SetBindV6(const Value: Boolean);
+begin
+  fSocket.BindV6 := Value;
+end;
+
+function TROIpSuperHTTPServer.GetDisableNagle: Boolean;
+begin
+  result := fSocket.DisableNagle;
+end;
+
+procedure TROIpSuperHTTPServer.SetDisableNagle(const Value: Boolean);
+begin
+  fSocket.DisableNagle := Value;
+end;
+
+initialization
+  RegisterServerClass(TROIpSuperHTTPServer);
+
+finalization
+  UnregisterServerClass(TROIpSuperHTTPServer);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpTcpServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpTcpServer.pas
new file mode 100644
index 0000000..b8c19f0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROIpTcpServer.pas	
@@ -0,0 +1,496 @@
+unit uROIpTcpServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Synapse Components                                }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROServer, uROClientIntf, uIPAsyncSocket,
+  uROThreadPool;
+
+type
+  TROIpTCPServer = class(TROServer)
+  private
+    fServeRodl: Boolean;
+    fSocket4,
+    fSocket6: TIPAsyncSocket;
+    fThreadPool: TROThreadPool;
+    fPort: Integer;
+    fOwnsThreadPool: Boolean;
+    fOnManualBindSocket: TNotifyEvent;
+    fActive: Boolean;
+    fBindV4,
+    fBindV6: Boolean;
+    fClients: TInterfaceList;
+    fMaxRequestsize: Integer;
+    fTimeout: Integer;
+    procedure cbAccept(aSender: TIPBaseAsyncSocket);
+    procedure SetThreadPool(const Value: TROThreadPool);
+    procedure DisconnectClients;
+  protected
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive : boolean; override;
+
+    function GetPort: Integer;override;
+    procedure SetPort(const Value: Integer);override;
+    function GetServerType: TROServerType; override;
+  public
+    constructor Create(aComponent: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    property SocketV4: TIPAsyncSocket read fSocket4;
+    property SocketV6: TIPAsyncSocket read fSocket6;
+  published
+    property Port;
+    property BindV6: Boolean read fBindV6 write fBindV6 default false;
+    property BindV4: Boolean read fBindV4 write fBindV4 default true;
+    property ServeRodl : Boolean read fServeRodl write fServeRodl default true;
+    property OnGetRODLReader;
+    property MaxRequestSize: Integer read fMaxRequestSize write fMaxRequestSize default 5 * 1024 * 1024;
+    property Timeout: Integer read fTimeout write fTimeout default 120;
+
+    property ThreadPool: TROThreadPool read fThreadPool write SetThreadPool;
+
+    property OnManualBindSocket: TNotifyEvent read fOnManualBindSocket write fOnManualBindSocket;
+  end;
+  TByteArray = array of Byte;
+  TByteArrayWrapper = class(TStream)
+  private
+    fPosition: Integer;
+    fData: TByteArray;
+  protected
+{$IFDEF DELPHI7UP}
+    function GetSize: Int64; override;
+{$ENDIF}
+  public
+    constructor Create(const aData: TByteArray);
+    function Read(var Buffer; Count: Integer): Integer; override;
+    function Write(const Buffer; Count: Integer): Integer; override;
+    function Seek(Offset: Integer; Origin: Word): Integer; override;
+  end;
+
+
+implementation
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  uROHTTPTools, uROHTTPDispatch, SysUtils, uROClasses;
+type
+  TIPTCPContext = class;
+  IIPTCPContext = interface
+    ['{EC581981-DF92-4929-8480-D738E2519175}']
+    function GetSelf: TIPTCPContext;
+  end;
+  TIPTCPContext = class(TInterfacedObject, IIPTCPContext, IROTransport, IROTCPTransport)
+  private
+    fConnection: TIPBaseAsyncSocket;
+    fDisconnected: Boolean;
+    fOwner: TROIpTCPServer;
+    fRequestData: TByteArray;
+    fResponseData: TMemoryStream;
+    procedure cbDisconnect(sender: TIPBaseAsyncSocket);
+    procedure cbRequestSize(sender: TIPBaseAsyncSocket);
+    procedure cbRequest(sender: TIPBaseAsyncSocket);
+    procedure cbResponseSent(Sender: TIPBaseAsyncSocket);
+  public
+    constructor Create(aOwner: TROIpTCPServer; aConnection: TIPBaseAsyncSocket);
+    destructor Destroy; override;
+    procedure Disconnect;
+    procedure SendResponse;
+    function GetSelf: TIPTCPContext;
+    property Connection: TIPBaseAsyncSocket read fConnection write fConnection;
+    property Owner: TROIpTCPServer read fOwner;
+    property ResponseData: TMemoryStream read fResponseData;
+    function GetClientAddress: String;
+    function GetTransportObject: TObject;
+  end;
+
+
+{ TROIpTCPServer }
+
+constructor TROIpTCPServer.Create(aComponent: TComponent);
+begin
+  inherited Create(aComponent);
+  fMaxRequestsize := 5 * 1024 * 1024;
+  fPort := 8090;
+  fBindV4 := true;
+  fBindV6 := false;
+  fClients := TInterfaceList.Create;
+end;
+
+destructor TROIpTCPServer.Destroy;
+begin
+  fActive := False;
+  DisconnectClients;
+  FreeAndNil(fSocket4);
+  FreeAndNil(fSocket6);
+  fClients.Free;
+  if fOwnsThreadPool then
+    fThreadPool.Free;
+  inherited Destroy;
+end;
+
+function TROIpTCPServer.GetPort: Integer;
+begin
+  result := fPort;
+end;
+
+function TROIpTCPServer.GetServerType: TROServerType;
+begin
+  Result := rstTCP;
+end;
+
+function TROIpTCPServer.IntGetActive: boolean;
+begin
+  result := fActive;
+end;
+
+procedure TROIpTCPServer.DisconnectClients;
+var
+  i: integer;
+  ctx: TIPTCPContext;
+begin
+  fClients.Lock;
+  try
+    for i := fClients.Count-1 downto 0 do begin
+      ctx := IIPTCPContext(fClients[i]).GetSelf;
+      ctx.fOwner := nil;
+      ctx.Disconnect;
+    end;
+  finally
+    fClients.Unlock;
+  end;
+  fClients.Clear;
+end;
+
+
+procedure TROIpTCPServer.IntSetActive(const Value: boolean);
+var lActualPort: integer;
+begin
+  inherited;
+  if Value = fActive then exit;
+  fActive := value;
+  if Value then begin
+    if fThreadPool = nil then begin
+      fThreadPool := TROThreadPool.Create(nil);
+      fOwnsThreadPool := true;
+    end;
+    lActualPort := fPort;
+    if fBindV4 then begin
+      fSocket4 := TIPAsyncSocket.Create(rsmTCPIP4);
+      if not assigned(fOnManualBindSocket) then begin
+        fSocket4.Bind('0.0.0.0', fPort);
+      end;
+    end;
+    if fBindV6 then begin
+      fSocket6 := TIPAsyncSocket.Create(rsmTCPIP6);
+      if not assigned(fOnManualBindSocket) then begin
+        fSocket6.Bind('::', fPort);
+      end;
+    end;
+    if assigned(fOnManualBindSocket) then fOnManualBindSocket(self);
+    if assigned(fSocket4) then begin
+      fSocket4.Listen(10);
+      fSocket4.BeginAccept(cbAccept);
+      lActualPort := fSocket4.GetLocalPort;
+    end;
+    if assigned(fSocket6) then begin
+      fSocket6.Listen(10);
+      fSocket6.BeginAccept(cbAccept);
+      lActualPort := fSocket4.GetLocalPort;
+    end;
+    if fPort <> lActualPort then fPort := lActualPort;
+  end else begin
+    DisconnectClients;
+    FreeAndNil(fSocket4);
+    FreeAndNil(fSocket6);
+  end;
+end;
+
+procedure TROIpTCPServer.SetPort(const Value: Integer);
+begin
+  fPort := Value;
+end;
+
+procedure TROIpTCPServer.SetThreadPool(const Value: TROThreadPool);
+begin
+  if fOwnsThreadPool then begin
+    FreeAndNil(fThreadPool);
+  end;
+  fOwnsThreadPool := false;
+  fThreadPool := Value;
+end;
+
+procedure TROIpTCPServer.Assign(Source: TPersistent);
+var
+  lSource: TROIpTCPServer;
+begin
+  inherited;
+  if Source is TROIpTCPServer then begin
+    lSource := TROIpTCPServer(Source);
+
+    BindV4 := lSource.BindV4;
+    BindV6 := lSource.BindV6;
+    MaxRequestSize := lSource.MaxRequestSize;
+    OnGetRODLReader := lSource.OnGetRODLReader;
+    OnManualBindSocket := lSource.OnManualBindSocket;
+    ServeRodl := lSource.ServeRodl;
+    Timeout := lSource.Timeout;
+  end;
+end;
+
+procedure TROIpTCPServer.cbAccept(aSender: TIPBaseAsyncSocket);
+var
+  lSock: TIPBaseAsyncSocket;
+  lContext: IIPTCPContext;
+begin
+  try
+    lSock := aSender.EndAccept;
+  except
+    on e: EIPSocketError do
+      exit;
+      // We're shutting down, exit now.
+  end;
+  lContext := TIPTCPContext.Create(self, lSock);
+  lSock.NoDelay := true;
+  fClients.Add(lContext);
+  aSender.BeginAccept(cbAccept);
+end;
+
+{ TIPTCPContext }
+
+procedure TIPTCPContext.cbDisconnect(sender: TIPBaseAsyncSocket);
+var
+  lConn: TIPBaseAsyncSocket;
+  lRef: integer;
+begin
+  if FRefCount <> 0 then lRef := _AddRef else lRef := -1;
+  try
+    fDisconnected := true;
+    lConn := fConnection;
+    fConnection := nil;
+    if lConn <> nil then begin
+      lConn.EndDisconnect;
+      lConn.Free;
+    end;
+    if assigned(fOwner) then begin
+      fOwner.fClients.Remove(IIPTCPContext(self));
+      fOwner:=nil;
+    end;
+  finally
+    if lRef <> -1 then _Release;
+  end;
+end;
+
+procedure TIPTCPContext.cbRequestSize(sender: TIPBaseAsyncSocket);
+var
+  lRequest: Integer;
+begin
+  if sender.EndReceive <> 4 then begin
+    cbDisconnect(sender);
+    exit;
+  end;
+  lRequest := fRequestData[3] or
+    (fRequestData[2] shl 8) or
+    (fRequestData[1] shl 16) or
+    (fRequestData[0] shl 24);
+  if lRequest > fOwner.MaxRequestSize then begin
+    cbDisconnect(sender);
+    exit;
+  end;
+  SetLength(fRequestData, lRequest);
+  fConnection.BeginReceive(@fRequestData[0], 0, lRequest, cbRequest);
+end;
+
+type
+  TIPTCPWorker = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fContext: IIPTCPContext;
+  public
+    constructor Create(aContext: IIPTCPContext);
+    procedure Callback(Caller: TROThreadPool; aThread: TThread);
+  end;
+
+procedure TIPTCPContext.cbRequest(sender: TIPBaseAsyncSocket);
+begin
+  if sender.EndReceive <> Length(fRequestData) then begin
+    cbDisconnect(sender);
+    exit;
+  end;
+  try
+    fOwner.fThreadPool.QueueItem(TIPTCPWorker.Create(Self));
+  except
+    cbDisconnect(sender);
+    exit;
+  end;
+end;
+
+constructor TIPTCPContext.Create(aOwner: TROIpTCPServer;
+  aConnection: TIPBaseAsyncSocket);
+begin
+  fOwner := aOwner;
+  fConnection := aConnection;
+  fconnection.Buffered := true;
+  fConnection.OnTimeout := cbDisconnect;
+  fConnection.OnDisconnected := cbDisconnect;
+  fConnection.IdleTimeout := fOwner.Timeout;
+  SetLength(fRequestData, 4);
+  fResponseData := TMemoryStream.Create;
+  fConnection.BeginReceive(@fRequestData[0], 0, 4, cbRequestSize);
+end;
+
+destructor TIPTCPContext.Destroy;
+begin
+  if fConnection<>nil then cbDisconnect(fConnection);
+  fResponseData.Free;
+  inherited;
+end;
+
+procedure TIPTCPContext.Disconnect;
+begin
+  fDisconnected := true;
+
+  if assigned(fConnection) then
+    fConnection.BeginDisconnect(cbDisconnect);
+end;
+
+function TIPTCPContext.GetSelf: TIPTCPContext;
+begin
+  result := self;
+end;
+
+procedure TIPTCPContext.SendResponse;
+var
+  lLength: Integer;
+begin
+  lLength := fResponseData.Size;
+  fResponseData.Position := 0;
+  if fResponseData.Size < 1020 then begin
+    SetLength(fRequestData, 4 + fResponseData.Size);
+  end else
+    SetLength(fRequestData, 1024);
+  fRequestData[3] := Byte(lLength);
+  fRequestData[2] := Byte(Integer(lLength shr 8));
+  fRequestData[1] := Byte(Integer(lLength shr 16));
+  fRequestData[0] := Byte(Integer(lLength shr 24));
+  fResponseData.Read(fRequestData[4], Length(fRequestData)-4);
+  fConnection.BeginSend(@fRequestData[0], 0, Length(fRequestData), cbResponseSent);
+end;
+
+procedure TIPTCPContext.cbResponseSent(Sender: TIPBaseAsyncSocket);
+var
+  lLength: Integer;
+begin
+  if fConnection.EndSend <= 0 then begin
+    cbDisconnect(fConnection);
+    exit;
+  end;
+
+  lLength := fResponseData.Read(fRequestData[0], 1024);
+  if lLength = 0 then begin
+    if Length(fRequestData) < 4 then SetLength(fRequestData, 4);
+    fResponseData.Clear;
+    fConnection.BeginReceive(@fRequestData[0], 0, 4, cbRequestSize);
+  end else begin
+    fConnection.BeginSend(@fRequestData[0], 0, lLength, cbResponseSent);
+  end;
+end;
+
+function TIPTCPContext.GetClientAddress: String;
+begin
+  Result := fConnection.GetRemoteIp;
+end;
+
+function TIPTCPContext.GetTransportObject: TObject;
+begin
+  Result := fOwner;
+end;
+
+{ TIPTCPWorker }
+
+procedure TIPTCPWorker.Callback(Caller: TROThreadPool; aThread: TThread);
+var
+  lWrapper: TROBinaryMemoryStream;
+  ctx: TIPTCPContext;
+begin
+  ctx :=fContext.GetSelf;
+  lWrapper := TROBinaryMemoryStream.Create;
+  try
+    lWrapper.Write(ctx.fRequestData[0], Length(ctx.fRequestData));
+    try
+      if (ctx.fOwner.ServeRodl) or ((lWrapper.Size <> 0) and (lWrapper.Size <> 4)) then
+        ctx.fOwner.DispatchMessage(ctx, lWrapper, ctx.ResponseData);
+      ctx.SendResponse;
+    except
+      // can't have exceptions escape
+    end;
+  finally
+    lWrapper.Free;
+  end;
+end;
+
+constructor TIPTCPWorker.Create(aContext: IIPTCPContext);
+begin
+  fContext := aContext;
+end;
+
+{ TByteArrayWrapper }
+
+constructor TByteArrayWrapper.Create(const aData: TByteArray);
+begin
+  inherited Create;
+  fData := aData;
+end;
+
+{$IFDEF DELPHI7UP}
+function TByteArrayWrapper.GetSize: Int64;
+begin
+  result := Length(fData);
+end;
+{$ENDIF}
+
+function TByteArrayWrapper.Read(var Buffer; Count: Integer): Integer;
+begin
+  if fPosition + Count > Length(fData) then
+    Count := Length(fData) - fPosition;
+  Move(fData[fPosition], Buffer, Count);
+  fPosition := fPosition + Count;
+  result := Count;
+end;
+
+function TByteArrayWrapper.Seek(Offset: Integer; Origin: Word): Integer;
+begin
+  case Origin of
+    soFromBeginning: fPosition := Offset;
+    soFromCurrent: fPosition := fPosition + Offset;
+    soFromEnd: fPosition := Length(fData) + Offset;
+  end;
+  if fPosition < 0 then fPosition := 0 else
+  if fPosition > Length(fData) then fPosition := Length(fData); 
+  result := fPosition;
+end;
+
+function TByteArrayWrapper.Write(const Buffer; Count: Integer): Integer;
+begin
+  {$IFDEF FPC}
+  Result := 0;
+  {$ENDIF}
+  raise Exception.Create('Not Implemented');
+end;
+
+initialization
+  RegisterServerClass(TROIpTCPServer);
+finalization
+  UnregisterServerClass(TROIpTCPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROJSONMessage.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROJSONMessage.pas
new file mode 100644
index 0000000..6de36e7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROJSONMessage.pas	
@@ -0,0 +1,990 @@
+unit uROJSONMessage;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, TypInfo, uROTypes, uROHttpTools,
+  uROSerializer, uROClient, uROClientIntf, uROJSONParser;
+
+type
+  TROJSONMessage = class;
+  EROJSONSerializerException = class(Exception);
+  TROJSONSerializer = class(TROSerializer)
+  private
+    fOwner: TROJSONMessage;
+    fArrayIndex: Integer;
+    fNested: Boolean;
+
+    function IntReadObject(const aName: string): TROJSONValue;
+    procedure IntWriteObject(const aName: string; obj: Variant);
+
+  protected
+  Public
+    { Writers }
+    procedure WriteInteger(const aName : string; anOrdType : TOrdType; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteInt64(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteUTF8String(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteAnsiString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteWideString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteUnicodeString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteDateTime(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteDouble(const aName : string; aFloatType : TFloatType; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteVariant(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteXml(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteGuid(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+    procedure WriteDecimal(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+    procedure WriteBinary(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteStruct(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1); override;
+    procedure WriteArray(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1); override;
+    procedure WriteException(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+
+    { Readers }
+    procedure ReadInteger(const aName : string; anOrdType : TOrdType; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadInt64(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadUTF8String(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadAnsiString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadWideString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadUnicodeString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadDateTime(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadDouble(const aName : string; aFloatType : TFloatType; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadVariant(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadXml(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadDecimal(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+    procedure ReadGuid(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+    procedure ReadBinary(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    function ReadStruct(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+    function ReadArray(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+    procedure ReadException(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+  public
+    constructor Create(aOwner: TROJSONMessage);
+
+  end;
+
+  TROJSONMessage = class(TROMessage)
+  private
+    fIndent,
+    fWrapResult,
+    fParamsAsArray,
+    fHaveResult,
+    fSessionIdAsId: Boolean;
+    FCurrObject: TROJSONValue;
+    FRoot: TROJSONValue;
+    fMessageType: TMessageType;
+    fId: string;
+  protected
+    { Internals }
+    function ReadException: Exception; override;
+    procedure WriteException(aStream: TStream; anException: Exception); override;
+
+    function CreateSerializer: TROSerializer; override;
+
+    procedure IntInitializeMessage;
+    { IROMessage }
+    procedure Initialize(const aTransport: IROTransport; const anInterfaceName, aMessageName: string; aType: TMessageType); override;
+
+
+    procedure WriteToStream(aStream: TStream); override;
+    procedure ReadFromStream(aStream: TStream); override;
+    procedure InitializeExceptionMessage(const aTransport: IROTransport;
+      const aLibraryName: String; const anInterfaceName: String;
+      const aMessageName: String); override;
+    function GetMessageType: TMessageType; override;
+      
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    function IsValidMessage(aData: PAnsiChar; aLength: Integer): boolean; override;
+    property Id: string read fId write fId;
+  published
+    property SessionIdAsId: Boolean read fSessionIdAsId write fSessionIdAsId default false;
+    property WrapResult: Boolean read fWrapResult write fWrapResult default false;
+    property ParamsAsArray: Boolean read fParamsAsArray write fParamsAsArray default false;
+    property Indent: Boolean read fIndent write fIndent default false;
+  end;
+
+  { Helper functions }
+  function DateTimeToSOAPDateTime(aDateTime: TDateTime) : string;
+  function SOAPDateTimeToDateTime(const aSOAPDate: string; out Offset: Integer): TDateTime;
+
+implementation
+uses
+  uROCompression, uROBinaryHelpers, FMTBcd, uROClasses, Variants, uROXmlIntf;
+{ TROJSONSerializer }
+
+{$IFDEF DELPHI7UP}
+const SOAPLocale = 1033;
+var SOAPFormatSettings : TFormatSettings;
+{$ENDIF DELPHI7}
+
+
+constructor TROJSONSerializer.Create(aOwner: TROJSONMessage);
+begin
+  fOwner := aOwner;
+end;
+
+function TROJSONSerializer.ReadArray(const aName: string; aClass: TClass;
+  var Ref; ArrayElementId: integer): Boolean;
+var
+  lItem: TROJSONValue;
+  lOld: TROJSONValue;
+  lSave: Boolean;
+  lOldarrayIndex: integer;
+begin
+  lOld := fOwner.FCurrObject;
+  lOldarrayIndex := fArrayIndex;
+  result := true;
+  lItem := IntReadObject(aName);
+  if lItem = nil then begin
+    TROArray(Ref) := nil;
+    exit;
+  end;
+  TROArray(Ref) := TROArrayClass(aClass).Create;
+  TROArray(Ref).Resize(lItem.AsArray.Count);
+  fOwner.FCurrObject := lItem;
+  fArrayIndex := 0;
+  lSave := fNested;
+  fNested := True;
+  try
+    TROArray(Ref).ReadComplex(self);
+  finally
+    fOwner.FCurrObject := lOld;
+    fNested := lSave;
+    fArrayIndex := lOldarrayIndex;
+  end;
+end;
+
+function TROJSONSerializer.ReadStruct(const aName: string; aClass: TClass;
+  var Ref; ArrayElementId: integer): Boolean;
+var
+  lItem: TROJSONValue;
+  lSave: Boolean;
+  lOld: TROJSONValue;
+begin
+  lOld := fOwner.FCurrObject;
+  result := true;
+  lItem := IntReadObject(aName);
+  if lItem = nil then begin
+    TROComplexType(Ref) := nil;
+    exit;
+  end;
+  TROComplexType(Ref) := TROComplexTypeClass(aClass).Create;
+  lSave := fNested;
+  fNested := true;
+  fOwner.FCurrObject := lItem;
+  try
+    TROComplexType(Ref).ReadComplex(self);
+  finally
+    fNested := lSAve;
+    fOwner.FCurrObject := lOld;
+  end;
+end;
+
+procedure TROJSONSerializer.ReadException(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  // not used
+end;
+
+procedure TROJSONSerializer.WriteException(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  // not used
+end;
+
+procedure TROJSONSerializer.WriteArray(const aName: string; const Ref;
+  aClass: TClass; ArrayElementId: integer);
+var
+  lOld: TROJSONValue;
+begin
+  if TROComplexType(Ref) = nil then exit;
+  lOld := fOwner.FCurrObject;
+  try
+    if (fOwner.GetMessageType =mtResponse) and (not fOWner.fWrapResult) and (fOwner.FCurrObject = nil) then begin
+      if fOwner.fHaveResult then begin
+        raise EROJSONSerializerException.Create('Only one result allowed when WrapResult is false');
+      end;
+      fOwner.fHaveResult := true;
+      fOwner.FCurrObject := fOwner.FRoot.AsObject.AddArrayProperty('result');
+    end else begin
+      if fOwner.FCurrObject.ValueType = jdtArray then
+        fOwner.FCurrObject := fOwner.FCurrObject.AsArray.AddArrayValue()
+      else
+        fOwner.FCurrObject := fOwner.FCurrObject.AsObject.AddArrayProperty(aName);
+    end;
+    TROComplexType(Ref).WriteComplex(Self);
+  finally
+    fOwner.FCurrObject := lOld;
+  end;
+end;
+
+procedure TROJSONSerializer.WriteStruct(const aName: string; const Ref;
+  aClass: TClass; ArrayElementId: integer);
+var
+  lOld: TROJSONValue;
+begin
+  if TROComplexType(Ref) = nil then exit;
+  lOld := fOwner.FCurrObject;
+  try
+    if (fOwner.GetMessageType =mtResponse) and (not fOWner.fWrapResult) and (fOwner.FCurrObject = nil) then begin
+      if fOwner.fHaveResult then begin
+        raise EROJSONSerializerException.Create('Only one result allowed when WrapResult is false');
+      end;
+      fOwner.fHaveResult := true;
+      fOwner.FCurrObject := fOwner.FRoot.AsObject.AddObjectProperty('result');
+    end else begin
+      if fOwner.FCurrObject.ValueType = jdtArray then
+        fOwner.FCurrObject := fOwner.FCurrObject.AsArray.AddObject()
+      else
+        fOwner.FCurrObject := fOwner.FCurrObject.AsObject.AddObjectProperty(aName);
+    end;
+    TROComplexType(Ref).WriteComplex(Self);
+  finally
+    fOwner.FCurrObject := lOld;
+  end;
+end;
+
+
+function TROJSONSerializer.IntReadObject(
+  const aName: string): TROJSONValue;
+var
+  lArr: TROJSONArray;
+begin
+  if (fOwner.GetMessageType =mtResponse) and (not fOWner.fWrapResult) and (not fNested) then begin
+    if fOwner.fHaveResult then begin
+      result := nil;
+    end else begin
+      fOwner.fHaveResult := true;
+      result := fOwner.FCurrObject;
+    end;
+  end else if fOwner.FCurrObject.ValueType  = jdtArray then begin
+    lArr := fOwner.FCurrObject.ASArray;
+    if fArrayIndex < lArr.Count then begin
+      result := lArr[fArrayIndex];
+      inc(fArrayIndex);
+    end else
+      result := nil;
+  end else begin
+    result := fOwner.FCurrObject.AsObject.FindItem(aName);
+  end;
+end;
+
+procedure TROJSONSerializer.IntWriteObject(const aName: string;
+  obj: Variant);
+begin
+  if (fOwner.GetMessageType =mtResponse) and (not fOWner.fWrapResult) and (fOwner.FCurrObject = nil) then begin
+    if fOwner.fHaveResult then begin
+      raise EROJSONSerializerException.Create('Only one result allowed when WrapResult is false');
+    end;
+    fOwner.fHaveResult := true;
+    fOwner.FRoot.AsObject.AddVariantProperty('result', obj);
+  end else begin
+    if fOwner.FCurrObject.ValueType = jdtArray then
+      fOwner.FCurrObject.AsArray.AddVariantValue(obj)
+    else
+      fOwner.FCurrObject.AsObject.AddVariantProperty(aName, obj);
+  end;
+end;
+
+procedure TROJSONSerializer.ReadAnsiString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  lItem: TROJSONValue;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then
+    String(ref) := ''
+  else
+    String(ref) := lItem.AsString;
+end;
+
+procedure TROJSONSerializer.ReadBinary(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  obj: Binary absolute Ref;
+  lItem: TROJSONValue;
+  ss: TStringStream;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then Obj := nil else begin
+    obj:= Binary.Create;
+    ss := TStringStream.Create(lITem.AsString);
+    try
+      obj.Clear;
+      DecodeStream(ss, TMemoryStream(obj));
+      TMemoryStream(obj).Position := 0;
+    finally
+      ss.Free;
+    end;
+  end;
+end;
+
+function SOAPDateTimeToDateTime(const aSOAPDate : string; out Offset: Integer) : TDateTime;
+var year, month, day, hour, min, sec : word;
+  msec: double;
+ { ldummy,} i: Integer;
+  s: string;
+begin
+  // This probabily will all change. See W3C specs for date/time
+  case Length(aSOAPDate) of
+    10 : begin {yyyy-mm-dd}
+      year  := StrToInt(Copy(aSOAPDate,1,4));
+      month := StrToInt(Copy(aSOAPDate,6,2));
+      day   := StrToInt(Copy(aSOAPDate,9,2));
+      result := EncodeDate(year, month, day);
+    end;
+    8 : begin {hh:nn:ss}
+      hour  := StrToInt(Copy(aSOAPDate,1,2));
+      min   := StrToInt(Copy(aSOAPDate,4,2));
+      sec   := StrToInt(Copy(aSOAPDate,7,2));
+      result := EncodeTime(hour, min, sec, 0);
+    end;
+    else {SOAP_DateTimeFormatLength : } begin {yyyy-mm-ddThh:nn:ss}
+      year  := StrToInt(Copy(aSOAPDate,1,4));
+      month := StrToInt(Copy(aSOAPDate,6,2));
+      day   := StrToInt(Copy(aSOAPDate,9,2));
+      hour  := StrToInt(Copy(aSOAPDate,12,2));
+      min   := StrToInt(Copy(aSOAPDate,15,2));
+      sec   := StrToInt(Copy(aSOAPDate,18,2));
+      s := copy(aSOAPDate, 20, MaxInt);
+      if (Length(s) > 1) and (s[1] = '.') then begin
+        i := LastDelimiter('+-Z', s);
+        if i > 0 then begin
+          msec := StrToFloatDef('0'+DecimalSeparator+Copy(s, 2, i-2), 0);
+         // Val(Copy(s, 1, i -1), msec, ldummy);
+          delete(s, 1, i-1);
+        end else begin
+          msec := StrToFloatDef('0'+DecimalSeparator+copy(s, 2, MaxInt), 0);
+          //Val(s, msec, ldummy);
+          s := '';
+        end;
+        msec := msec * (1.0 / 60.0 / 60.0 / 24);
+      end else
+        msec := 0;
+
+      result := EncodeDate(year, month, day);
+      // The code below is required! Do not adjust
+      if (result<0) then begin
+        result := result-EncodeTime(hour, min, sec, 0);
+        result := result - msec;
+      end else begin
+        result := result+EncodeTime(hour, min, sec, 0);
+        result := result + msec;
+      end;
+      Offset := MaxInt;
+      if (Length(s) <> 0) and ((s[1] = 'z') or (s[1] = 'Z')) then Offset := 0 else
+      if (Length(s) > 0) and ((s[1] = '+') or (s[1] = '-')) then begin
+        if s[1] = '-' then i := -1 else i := 1;
+        Delete(s,1,1);
+        if pos(':', s) > 0 then begin
+          hour := StrToInt(copy(s,1,Pos(':', s)-1));
+          delete(s,1,pos(':', s));
+          min := StrToInt(s);
+        end else begin
+          hour := StrToInt(s);
+          min := 0;
+        end;
+
+        if i = -1 then
+          Offset := - (min + 60 * hour)
+        else
+          Offset := + (min + 60 * hour);
+      end;
+    end;
+  end;
+end;
+
+const
+  SOAP_DateTimeFormat       = 'yyyy-mm-dd"T"hh":"nn":"ss';
+  FileTime_sec                = 10 * 1000 * 1000; // = 1 sec
+  FileTimeBase                = -109205.0;
+  FileTimeStep                : Extended = 1.0 * 24 {hour} * 60 {min} * 60 {sec} * FileTime_sec; // 100-nanosecond intervals
+
+function ExtractFracSecFromDateTime(aDateTime : TDateTime): integer;
+begin
+   Result := integer(round(frac(frac(aDateTime) * SecsPerDay) * 1000 * 1000));
+end;
+
+function DateTimeToSOAPDateTime(aDateTime : TDateTime) : string;
+var
+  lFractSec, l: integer;
+begin
+  result := FormatDateTime(SOAP_DateTimeFormat, aDateTime);
+  // fract part
+  lFractSec := ExtractFracSecFromDateTime(aDateTime);
+  if lFractSec = 0 then Exit;
+  Result := Result + '.';
+  l := lFractSec;
+  while (l < 100000)  do begin
+    Result := Result +'0';
+    l := l*10;
+  end;
+  l := lFractSec;
+  while (l mod 10) = 0 do l := l div 10;
+  Result := Result+IntToStr(l);
+end;
+
+
+procedure TROJSONSerializer.ReadDateTime(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  lItem: TROJSONValue;
+  lOffset: Integer;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then
+    raise EROJSONSerializerException.Create('Field not found');
+  TDateTime(Ref) := SOAPDateTimeToDateTime(lItem.AsString, lOffset);
+end;
+
+procedure TROJSONSerializer.ReadDecimal(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  lItem: TROJSONValue;
+  s: string;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then raise EROJSONSerializerException.Create('Field not found');
+  s := lItem.AsString;
+
+  if DecimalSeparator <> '.' then s := StringReplace(s, '.', DecimalSeparator, []);
+ Variant(Ref) := BCDToVariant(StrToBcd(s));
+end;
+
+function SOAPStrToFloat(const aString: string): Extended;
+begin
+  {$IFDEF DELPHI7UP}
+  Result := StrToFloat(aString,SOAPFormatSettings);// then
+  {$ELSE}
+  Result := StrToFloat(StringReplace(aString, '.', DecimalSeparator, []));
+  {$ENDIF}
+end;
+
+procedure TROJSONSerializer.ReadDouble(const aName: string;
+  aFloatType: TFloatType; var Ref; ArrayElementId: integer);
+var
+  lItem: TROJSONValue;
+  text: string;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then raise EROJSONSerializerException.Create('Field not found');
+  text := lItem.AsString;
+
+    {$IFNDEF DELPHI7UP}
+      if DecimalSeparator <> '.' then
+        ReplaceChar(text, ['.'], DecimalSeparator);
+    {$ELSE}
+    if DecimalSeparator <> SOAPFormatSettings.DecimalSeparator then
+       ReplaceChar(text, [DecimalSeparator], SOAPFormatSettings.DecimalSeparator);
+    {$ENDIF}
+    case aFloatType of
+      ftSingle : single(Ref) := SOAPStrToFloat(text);
+      ftDouble : double(Ref) := SOAPStrToFloat(text);
+      ftExtended : extended(Ref) := SOAPStrToFloat(text);
+      ftComp : comp(Ref) := {$IFDEF FPC}
+                              {$IFDEF cpu64}StrToInt64(text){$ELSE}StrToInt(text){$ENDIF}
+                            {$ELSE}
+                               SOAPStrToFloat(text)
+                            {$ENDIF};
+      ftCurr : currency(Ref) := SOAPStrToFloat(text);
+    end;
+end;
+
+procedure TROJSONSerializer.ReadEnumerated(const aName: string;
+  anEnumTypeInfo: PTypeInfo; var Ref; ArrayElementId: integer);
+var
+  lItem: TROJSONValue;
+  s: string;
+  lIndexInEnum: Integer;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then raise EROJSONSerializerException.Create('Field not found');
+  if anEnumTypeInfo = typeinfo(Boolean) then begin
+     if Boolean(lItem.VarValue) then
+       lIndexInEnum := 1
+     else
+       lIndexInEnum := 0;
+  end
+  else begin
+     s := lItem.AsString;
+     lIndexInEnum  := ROGetEnumValue(anEnumTypeInfo, s);
+     if lIndexInEnum = -1 then begin
+       lIndexInEnum  := ROGetEnumValue(anEnumTypeInfo, {$IFDEF UNICODE}UTF8ToString{$ENDIF}(anEnumTypeInfo.Name)+'_'+s);
+       if lIndexInEnum = -1 then
+          RaiseError(Format('The value "-1" for parameter "%s" of "%s" type is invalid', [aName, anEnumTypeInfo^.Name]));
+     end;
+  end;
+  IntegerToEnumerated(lIndexInEnum,anEnumTypeInfo,Ref);
+end;
+
+procedure TROJSONSerializer.ReadGuid(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  lItem: TROJSONValue;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then raise EROJSONSerializerException.Create('Field not found');
+  String(Ref) := lItem.AsString;
+  if Length(String(Ref)) > 0 then begin
+    if String(Ref)[1] <> '{' then String(Ref) := '{'+String(Ref)+'}';
+  end;
+end;
+
+procedure TROJSONSerializer.ReadInt64(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  lItem: TROJSONValue;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then raise EROJSONSerializerException.Create('Field not found');
+  Int64(Ref) := StrToInt64(lITem.AsString);
+end;
+
+procedure TROJSONSerializer.ReadInteger(const aName: string;
+  anOrdType: TOrdType; var Ref; ArrayElementId: integer);
+var
+  lItem: TROJSONValue;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then raise EROJSONSerializerException.Create('Field not found');
+  case anOrdType of
+    otSByte,
+    otUByte : byte(Ref) := StrToInt(lItem.AsString);
+    otSWord,
+    otUWord : word(Ref) := StrToInt(lItem.AsString);
+    otSLong,
+    otULong : integer(Ref) := StrToInt(lItem.AsString);
+  end;
+end;
+
+procedure TROJSONSerializer.ReadUnicodeString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  lItem: TROJSONValue;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then
+    UnicodeString(ref) := ''
+  else
+    UnicodeString(ref) := lItem.AsString;
+end;
+
+procedure TROJSONSerializer.ReadUTF8String(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  lItem: TROJSONValue;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then
+    UTF8String(ref) := ''
+  else
+    UTF8String(ref) := UTF8Encode(lItem.AsString);
+end;
+
+procedure TROJSONSerializer.ReadVariant(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  lItem: TROJSONValue;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then
+    Variant(Ref) := Null
+  else
+    Variant(ref) := lItem.VarValue;
+end;
+
+procedure TROJSONSerializer.ReadWideString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  lItem: TROJSONValue;
+begin
+  lItem := IntReadObject(aName);
+  if lItem = nil then
+    WideString(ref) := ''
+  else
+    WideString(ref) := lItem.AsString;
+end;
+
+procedure TROJSONSerializer.ReadXml(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  w: WideString;
+  doc: IXMLDocument;
+begin
+  ReadWideString(aName, w);
+   if w = '' then
+    IXMLNode(Ref) := nil
+  else begin
+    doc := NewROXmlDocument;
+    doc.New;
+    doc.XML := w;
+    IXMLNode(Ref) := doc.DocumentNode;
+  end;
+end;
+
+procedure TROJSONSerializer.WriteAnsiString(const aName: string; const Ref;
+  ArrayElementId: integer);
+var
+  w: AnsiString absolute Ref;
+begin
+  IntWriteObject(aName, w);
+end;
+
+procedure TROJSONSerializer.WriteBinary(const aName: string; const Ref;
+  ArrayElementId: integer);
+var
+  ss: TStringStream;
+begin
+  if Binary(Ref) <> nil then begin
+    ss := TStringStream.Create('');
+    try
+      Binary(Ref).Position := 0;
+      EncodeStream(Binary(Ref), ss);
+      IntWriteObject(aName, ss.DataString);
+    finally
+      ss.Free;
+    end;
+  end;
+end;
+
+procedure TROJSONSerializer.WriteDateTime(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  IntWriteObject(aName, DateTimeToSOAPDateTime(TDateTime(Ref)));
+end;
+
+procedure TROJSONSerializer.WriteDecimal(const aName: String; const Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+begin
+  s := BcdToStr(VariantToBCD(variant(Ref)));
+  if DecimalSeparator <> '.' then s := StringReplace(s, DecimalSeparator, '.', []); // delphi has no way to format a bcd with a specific format
+  IntWriteObject(aName, s);
+end;
+
+procedure TROJSONSerializer.WriteDouble(const aName: string;
+  aFloatType: TFloatType; const Ref; ArrayElementId: integer);
+var
+  text: string;
+begin
+  case aFloatType of
+    ftSingle   : begin
+      text := FloatToStr(single(Ref){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+    ftDouble   : begin
+      text := FloatToStr(double(Ref){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+    ftExtended : begin
+      text := FloatToStr(extended(Ref){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+    ftComp     : begin
+      text := FloatToStr(comp(Ref){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+    ftCurr     : begin
+      text := FloatToStr(currency(Ref){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+  end;
+  IntWriteObject(aName, text);
+end;
+
+procedure TROJSONSerializer.WriteEnumerated(const aName: string;
+  anEnumTypeInfo: PTypeInfo; const Ref; ArrayElementId: integer);
+var
+  val: string;
+begin
+  if (anEnumTypeInfo  = typeinfo(Boolean)) then
+    IntWriteObject(aName, Boolean(Ref))
+  else begin
+    val := ROGetEnumName(anEnumTypeInfo, EnumeratedToInteger(anEnumTypeInfo,Ref));
+    if (Length(val) > Length(anEnumTypeInfo.Name) + 2) and
+       (Copy(val, 1, Length(anEnumTypeInfo.Name) + 1) = {$IFDEF UNICODE}UTF8ToString{$ENDIF}(anEnumTypeInfo.Name) + '_') then begin
+      val := Copy(val, Length(anEnumTypeInfo.Name) + 2, MaxInt);
+    end;
+    IntWriteObject(aName, val);
+  end;
+end;
+
+procedure TROJSONSerializer.WriteGuid(const aName: String; const Ref;
+  ArrayElementId: Integer);
+var
+  s: string absolute Ref;
+begin
+  IntWriteObject(aName, s);
+end;
+
+procedure TROJSONSerializer.WriteInt64(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  IntWriteObject(aName, IntToStr(Int64(Ref)));
+end;
+
+procedure TROJSONSerializer.WriteInteger(const aName: string;
+  anOrdType: TOrdType; const Ref; ArrayElementId: integer);
+begin
+  case anOrdType of
+    otSByte: IntWriteObject(aName, IntToStr(ShortInt(Ref)));
+    otUByte: IntWriteObject(aName, IntToStr(Byte(Ref)));
+    otSWord: IntWriteObject(aName, IntToStr(SmallInt(Ref)));
+    otUWord: IntWriteObject(aName, IntToStr(Word(Ref)));
+    otSLong: IntWriteObject(aName, IntToStr(Integer(Ref)));
+    otULong: IntWriteObject(aName, IntToStr(Cardinal(Ref)));
+  end;
+end;
+
+procedure TROJSONSerializer.WriteUnicodeString(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  IntWriteObject(aName, UnicodeString(Ref));
+end;
+
+procedure TROJSONSerializer.WriteUTF8String(const aName: string; const Ref;
+  ArrayElementId: integer);
+var
+  w: WideString;
+begin
+  w := UTF8ToString(UTF8String(Ref));
+  WriteWideString(aName, w);
+end;
+
+procedure TROJSONSerializer.WriteVariant(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  IntWriteObject(aName, Variant(Ref));
+end;
+
+procedure TROJSONSerializer.WriteWideString(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  IntWriteObject(aName, WideString(Ref));
+end;
+
+procedure TROJSONSerializer.WriteXml(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  if IXMLNode(Ref) <> nil then begin
+    IntWriteObject(aName, IXMLNode(Ref).XML);
+  end;
+end;
+
+{ TROJSONMessage }
+
+
+{ TROJSONMessage }
+
+function TROJSONMessage.CreateSerializer: TROSerializer;
+begin
+  result := TROJSONSerializer.Create(self);
+end;
+
+procedure TROJSONMessage.ReadFromStream(aStream: TStream);
+var
+  obj: TROJSONValue;
+  fId: string;
+begin
+  inherited;
+  TROJSONSerializer(Serializer).fNested := False;
+  FreeAndNil(fRoot);
+  FRoot := TROJSONValue.Create(jdtObject);
+  FRoot.LoadFromStream(aStream);
+//  fCurrObject := FRoot.;
+  obj := fRoot.AsObject.FindItem('id');
+  if obj <> nil then begin
+    fId := VarToStrDef(obj.VarValue, '');
+    if (fSessionIdAsId) and (fId <> '') then
+      ClientID := StringToGUID(fId);
+    end;
+
+  obj := froot.AsObject.FindItem('method');
+  if obj <> Nil then begin
+   fMessageType := mtRequest;
+   InterfaceName := 'Default';
+   fId := Obj.AsString;
+    MessageName := fId;
+    if (Pos('.', fId) <> 0) then begin
+      InterfaceName := copy(fId, 1, pos('.', fId)-1);
+      MessageName := Copy(fId, pos('.', fId)+1, MAxInt);
+    end;
+    FCurrObject := FRoot.AsObject.FindItem('params');
+  end else begin
+    obj := FRoot.AsObject.FindItem('error');
+    if obj <> nil then begin
+      fMessageType := mtException;
+      fCurrObject := obj;
+    end
+    else begin
+      obj := fRoot.AsObject.FindItem('result');
+      if obj  = nil then begin
+        raise EROJSONSerializerException.Create('Unknown Json payload');
+      end;
+      fCurrObject := obj;
+      fMessageType := mtResponse;
+   end;
+  end;
+  if fMessageType = mtException then begin
+    ProcessException;
+  end;
+end;
+
+procedure TROJSONMessage.IntInitializeMessage;
+begin
+  TROJSONSerializer(Serializer).fNested := false;
+  FreeAndNil(fRoot);
+  FRoot := TROJSONValue.Create(jdtObject);
+  FRoot.AsObject.AddStringProperty('version', '1.1');
+  if fSessionIdAsId then begin
+    fId := GUIDToString(ClientID);
+    fRoot.AsObject.AddStringProperty('id', fId);
+  end;
+end;
+
+
+procedure TROJSONMessage.Initialize(const aTransport: IROTransport;
+  const anInterfaceName, aMessageName: string; aType: TMessageType);
+var
+  lMsgName: string;
+begin
+  fMessageType := aType;
+
+  SetHTTPInfo(aTransport, DataFormatXml);
+  if (anInterfaceName <> 'Default') and (anInterfaceName <> '') then
+    lMsgName := anInterfaceName+'.'+aMessageName
+  else
+    lMsgName := aMessageName;
+
+  IntInitializeMessage;
+  fHaveResult := false;
+  if fMessageType = mtException then
+    // do nothing
+  else if fMessageType = mtResponse then begin
+    if fWrapResult then begin
+      FCurrObject := FRoot.AsObject.AddObjectProperty('result');
+    end else
+      FCurrObject := nil;
+  end else begin
+    fRoot.AsObject.AddStringProperty('method',lMsgName);
+    if fParamsAsArray then
+      fCurrObject := FRoot.AsObject.AddArrayProperty('params')
+    else
+      FCurrObject := fRoot.AsObject.AddObjectProperty('params');
+  end;
+end;
+
+procedure TROJSONMessage.InitializeExceptionMessage(
+  const aTransport: IROTransport; const aLibraryName, anInterfaceName,
+  aMessageName: String);
+begin
+  inherited;
+  SetHTTPInfo(aTransport, DataFormatXml);
+end;
+
+
+function TROJSONMessage.ReadException: Exception;
+begin
+  if (FCurrObject = nil) or (FCurrObject.ValueType <> jdtObject) then
+    result := CreateException('' , 'Unknown exception')
+  else
+    result := CreateException('', FCurrObject.AsObject.GetStringValueByName('message'));
+end;
+
+function TROJSONMessage.IsValidMessage(aData: PAnsiChar;
+  aLength: Integer): boolean;
+var
+  i: Integer;
+begin
+  for i := 0 to aLength -1 do begin
+    if aData[i] = '{' then begin
+     result := true;
+     exit;
+    end;
+    case adata[i] of
+      #32,
+      #9,
+      #13,
+      #10: continue;
+    else
+      result := false;
+      exit;
+    end;
+  end;
+  result := false;
+  exit;
+end;
+
+procedure TROJSONMessage.WriteException(aStream: TStream;
+  anException: Exception);
+var
+  err: TROJSONValue;
+begin
+  inherited;
+  IntInitializeMessage();
+
+  err := FRoot.AsObject.AddObjectProperty('error');
+  err.AsObject.AddStringProperty('name', 'JsonRPCError');
+  err.AsObject.AddStringProperty('code', '1');
+  err.AsObject.AddStringProperty('message', anException.Message);
+  WriteToStream(aStream);
+end;
+
+procedure TROJSONMessage.WriteToStream(aStream: TStream);
+begin
+  if (fMessageType = mtResponse) and (not fWrapResult) and (not fHaveResult) then
+    FRoot.AsObject.AddNullProperty('result');
+
+  fRoot.SaveToStream(aStream);
+  inherited;
+end;
+
+destructor TROJSONMessage.Destroy;
+begin
+  FRoot.Free;
+  inherited;
+end;
+
+function TROJSONMessage.GetMessageType: TMessageType;
+begin
+  result := fMessageType;
+end;
+
+procedure TROJSONMessage.Assign(Source: TPersistent);
+var
+  lSource: TROJSONMessage;
+begin
+  inherited;
+  if Source is TROJSONMessage then begin
+    lSource := TROJSONMessage(Source);
+
+    Indent := lSource.Indent;
+    ParamsAsArray := lSource.ParamsAsArray;
+    SessionIdAsId := lSource.SessionIdAsId;
+    WrapResult := lSource.WrapResult;
+  end;
+end;
+
+initialization
+  {$IFDEF DELPHI7UP}
+  GetLocaleFormatSettings(SOAPLocale,SOAPFormatSettings);
+  //ToDo: fix this for D6
+  {$ENDIF}
+  RegisterMessageClass(TROJSONMessage);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROJSONParser.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROJSONParser.pas
new file mode 100644
index 0000000..0f729de
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROJSONParser.pas	
@@ -0,0 +1,1160 @@
+unit uROJSONParser;
+
+{$I RemObjects.inc}
+// code chars > 127 as \uXXXX
+{$DEFINE WRITE_ASCII_COMPATIBLE}
+{$DEFINE RaiseInvalidDataTypeException}
+interface
+uses
+  SysUtils, Classes;
+
+type
+  {$IFDEF UNICODE}
+    JSON_String = string;
+    JSON_Char   = Char;
+    JSON_PChar  = PChar;
+  {$ELSE}
+    JSON_String = Widestring;
+    JSON_Char   = WideChar;
+    JSON_PChar  = PWideChar;
+  {$ENDIF}
+
+  TROJSONDataType = (jdtNull, jdtString, jdtNumber, jdtObject, jdtArray, jdtBoolean);
+
+  TROJSONObject = class;
+  TROJSONArray = class;
+
+  TROJSONValue = class(TCollectionItem)
+  private
+    FValueType: TROJSONDataType;
+    FValue: Variant;
+    FObject: TCollection;
+    function GetAsObject: TROJSONObject;
+    function GetAsArray: TROJSONArray;
+    function GetAsBoolean: Boolean;
+    function GetAsNumber: Variant;
+    function GetAsString: JSON_String;
+    procedure SetAsObject(const Value: TROJSONObject);
+    procedure SetAsArray(const Value: TROJSONArray);
+    procedure SetAsString(const Value: JSON_String);
+    procedure SetAsBoolean(const Value: Boolean);
+    procedure SetAsNumber(const Value: Variant);
+    function GetVarValue: Variant;
+    procedure SetVarValue(const Value: Variant);
+  protected
+    Procedure IntSaveToStream(AStream: TStream);virtual;
+    Procedure IntLoadFromStream(AStream: TStream);virtual;
+  public
+    procedure Clear;
+    constructor Create(Collection: TCollection); overload;override; 
+    constructor Create(aType: TROJSONDataType); reintroduce; overload;
+    destructor Destroy; override;
+    Procedure SaveToStream(AStream: TStream; AUTF8Stream: boolean = True);
+    Procedure LoadFromStream(AStream: TStream; AUTF8Stream: boolean = True);
+    property ValueType: TROJSONDataType read FValueType;
+    property AsObject: TROJSONObject read GetAsObject write SetAsObject;
+    property ASArray: TROJSONArray read GetAsArray write SetAsArray;
+    property AsString: JSON_String read GetAsString write SetAsString;
+    property AsBoolean: Boolean read GetAsBoolean Write SetAsBoolean;
+    Property AsNumber: Variant read GetAsNumber write SetAsNumber;
+    procedure SetAsNull;
+    property VarValue: Variant read GetVarValue write SetVarValue;
+  end;
+
+  TROJSONProperty = class(TROJSONValue)
+  private
+    FName: JSON_String;
+    procedure SetName(const Value: JSON_String);
+  protected
+    Procedure IntSaveToStream(AStream: TStream);override;
+    Procedure IntLoadFromStream(AStream: TStream);override;
+  public
+    property Name: JSON_String read FName write SetName;
+  end;
+
+  TROJSONObject = class(TCollection)
+  private
+  protected
+    function GetItems(Index: Integer): TROJSONProperty;
+    procedure SetItems(Index: Integer; const Value: TROJSONProperty);
+    Procedure IntSaveToStream(AStream: TStream);
+    Procedure IntLoadFromStream(AStream: TStream);
+  public
+    constructor Create;
+    Procedure SaveToStream(AStream: TStream; AUTF8Stream: boolean = True);
+    Procedure LoadFromStream(AStream: TStream; AUTF8Stream: boolean = True);
+    property Items[Index: Integer] :TROJSONProperty read GetItems write SetItems; default;
+    function FindItem(const AName: JSON_String):TROJSONProperty;
+    function ItemByName(const AName: JSON_String):TROJSONProperty;
+    function IndexOf(const AName: JSON_String):integer;
+    function Add: TROJSONProperty;
+    function AddStringProperty(const AName, aValue: JSON_String): TROJSONProperty;
+    function AddArrayProperty(const AName: JSON_String): TROJSONProperty;
+    function AddObjectProperty(const AName: JSON_String): TROJSONProperty;
+    function AddNullProperty(const AName: JSON_String): TROJSONProperty;
+    function AddBooleanProperty(const AName: JSON_String; const AValue: Boolean): TROJSONProperty;
+    function AddNumberProperty(const AName: JSON_String; const AValue: Variant): TROJSONProperty;
+    function AddVariantProperty(const AName: JSON_String; const AValue: Variant): TROJSONProperty;
+    function GetArrayItemByName(const AName: JSON_String; ACreate: Boolean): TROJSONArray;
+    function GetObjectItemByName(const AName: JSON_String; ACreate: Boolean): TROJSONObject;
+    function GetStringValueByName(const AName: JSON_String): JSON_String;
+    function GetNumberValueByName(const AName: JSON_String): Variant;
+    function GetBooleanValueByName(const AName: JSON_String): Boolean;
+    function GetVariantValueByName(const AName: JSON_String): Variant;
+  end;
+
+  TROJSONArray = class(TCollection)
+  private
+  protected
+    function GetItems(Index: Integer): TROJSONValue;
+    procedure SetItems(Index: Integer; const Value: TROJSONValue);
+    Procedure IntSaveToStream(AStream: TStream);
+    Procedure IntLoadFromStream(AStream: TStream);
+  public
+    constructor Create;
+    function Add: TROJSONValue;
+    Procedure SaveToStream(AStream: TStream; AUTF8Stream: boolean = True);
+    Procedure LoadFromStream(AStream: TStream; AUTF8Stream: boolean = True);
+    property Items[Index: Integer] :TROJSONValue read GetItems write SetItems; default;
+    function FindObjectByStringValue(const AName, aValue: JSON_String): TROJSONObject;
+    function AddObject: TROJSONValue;
+    function AddStringValue(const AValue: JSON_String):TROJSONValue;
+    function AddNumberValue(const AValue: Variant):TROJSONValue;
+    function AddBooleanValue(const AValue: Boolean):TROJSONValue;
+    function AddNullValue:TROJSONValue;
+    function AddArrayValue:TROJSONValue;
+    function AddVariantValue(const AValue: Variant):TROJSONValue;
+  end;
+
+function JSON_ParseStream(AData: TStream; aUTF8Stream:Boolean = True):TROJSONValue;
+
+implementation
+
+uses Variants,uROBinaryHelpers, uROClasses;
+
+const
+  JSON_streamID     = 'stream';
+
+{$IFDEF DELPHI7UP}
+var
+  JSON_FormatSettings: TFormatSettings;
+{$ENDIF}
+
+function ReadNumber(AStream: TStream):Variant; forward;
+function ReadString(AStream: TStream):JSON_String;forward;
+function ReadChar(AStream: TStream;ASkipSpaces: Boolean=True):JSON_Char;forward;
+function ReadNextChar(AStream: TStream;ASkipSpaces: Boolean=True):JSON_Char;forward;
+
+procedure WriteChar(AStream: TStream;AChar :JSON_Char);forward;
+procedure WriteString(AStream: TStream; AValue: JSON_String); forward;
+procedure WriteIdent(AStream: TStream; AValue: JSON_String); forward;
+procedure WriteNumber(AStream: TStream; AValue: Variant); forward;
+
+function WriteVarianttoStreamObject(aValue: Variant):TROJSONObject;
+var
+  lStream:TMemoryStream;
+  i: integer;
+  lArray: TROJSONArray;
+begin
+  lStream:= BinaryFromVariant(aValue);
+  try
+    Result := TROJSONObject.Create;
+    lArray := Result.AddArrayProperty(JSON_streamID).ASArray;
+    For i := 0 to lStream.Size-1 do
+      lArray.AddNumberValue(PByteArray(lStream.Memory)^[i]);
+  finally
+    lStream.Free;
+  end;
+end;
+
+function ReadVariantFromStreamObject(AObject: TROJSONObject): Variant;
+var
+  lProp: TROJSONProperty;
+  lArray: TROJSONArray;
+  i: integer;
+  lStream: TMemoryStream;
+begin
+  Result:= Null;
+  lProp := AObject.FindItem(JSON_streamID);
+  if (lProp = nil) or (lProp.ValueType <> jdtArray) then Exit;
+  lArray := lProp.ASArray;
+  lStream:= TMemoryStream.Create;
+  try
+    lStream.Size := lArray.Count;
+    for i:=0 to lArray.Count-1 do
+      PByteArray(lStream.Memory)^[i]:= byte(lArray[i].GetAsNumber);
+    Result:= VariantFromBinary(lStream);
+  finally
+    lStream.Free;
+  end;
+end;
+
+Procedure JSON_Error_IncompatibleDataType;
+begin
+  raise Exception.Create('Incompatible datatype');
+end;
+
+
+Procedure JSON_Error_PropertyNotFound(AName: JSON_String);
+begin
+  raise Exception.Create(AName+' property not found.');
+end;
+
+Procedure JSON_Error(AStream: TStream);
+begin
+  if AStream <> nil then
+    raise Exception.Create('This stream is incompatible with JSON format. Position:'+IntToStr(AStream.Position))
+  else
+    raise Exception.Create('This stream is incompatible with JSON format');
+end;
+
+procedure WriteChar(AStream: TStream;AChar :JSON_Char);
+begin
+  AStream.WriteBuffer(AChar,SizeOf(JSON_Char));
+end;
+
+procedure WriteIdent(AStream: TStream; AValue: JSON_String);
+begin
+  AStream.WriteBuffer(pointer(aValue)^,SizeOf(JSON_Char)*Length(AValue));
+end;
+
+procedure WriteNumber(AStream: TStream; AValue: Variant);
+var
+  s: string;
+  c: char;
+  i64: int64;
+begin
+  case VarType(AValue) of
+    varShortInt,
+    varSmallint,
+    varByte,
+    varWord,
+    varInteger: s:= IntToStr(AValue);
+    varLongWord,
+    varInt64: begin
+      i64 := aValue;
+      s := IntToStr(i64);
+    end;
+    {$IFNDEF FPC}
+    varDate,
+    varSingle,
+    {$IFDEF DELPHI7UP}
+    varDouble:  s:= FloatToStr(AValue,JSON_FormatSettings);
+    {$ELSE}
+    varDouble:  s:= StringReplace(FloatToStr(AValue), '.', DecimalSeparator, []);	
+    {$ENDIF}
+
+    {$IFDEF DELPHI7UP}
+    varCurrency: s:= CurrToStr(AValue,JSON_FormatSettings);
+    {$ELSE}
+    varCurrency: s:= StringReplace(CurrToStr(AValue), '.', DecimalSeparator, []);	
+    {$ENDIF}
+
+    {$ENDIF}
+  else
+    c:= DecimalSeparator;
+    try
+      DecimalSeparator := '.';
+      s:= VarToStr(AValue);
+    finally
+      DecimalSeparator := c;
+    end;
+  end;
+  WriteIdent(AStream,s);
+end;
+
+procedure WriteString(AStream: TStream; AValue: JSON_String);
+
+  procedure WriteTag(const WC: JSON_Char);
+  begin
+    WriteChar(AStream,'\');
+    WriteChar(AStream,wc);
+  end;
+
+var
+  i,j: integer;
+  s: string;
+begin
+  WriteChar(AStream, '"');
+  for i := 1 to Length(AValue)  do begin
+    case ord(AValue[i]) of
+      22 {"}  : WriteTag('"');
+      92 {\}  : WriteTag('\');
+      47 {/}  : WriteTag('/');
+      08      : WriteTag('b');
+      09      : WriteTag('t');
+      10      : WriteTag('n');
+      12      : WriteTag('f');
+      13      : WriteTag('r');
+      32, 33,
+      35..46,
+      48..91,
+      93..127
+      {$IFNDEF WRITE_ASCII_COMPATIBLE},128..$FFFF{$ENDIF}: WriteChar(AStream,AValue[i]);
+    else
+      WriteTag('u');
+      s := IntToHex(ord(AValue[i]),4);
+      for j:=1 to Length(s) do
+        WriteChar(AStream,JSON_Char(ord(s[j])));
+    end;
+  end;
+  WriteChar(AStream, '"');
+end;
+
+function ReadNumber(AStream: TStream):Variant;
+var
+  s: JSON_String;
+  s1: string;
+  lchar: JSON_Char;
+begin
+  Result:=Null;
+  s:='';
+  lchar := ReadChar(AStream);
+  while true do begin
+    if ord(lchar) in [43, 45,46, 48..57, 69, 101 {+-.0123456789Ee}] then begin
+      s := s+lchar;
+      AStream.ReadBuffer(lchar, SizeOf(lchar));
+    end
+    else begin
+      AStream.Seek(-SizeOf(JSON_Char),soFromCurrent);
+      Break;
+    end;
+  end;
+  s1 := s;
+  if (pos('.', s1) >0) or (pos('e', s1) >0) or (pos('E', s1) >0) then
+    {$IFDEF DELPHI7UP}
+    Result := StrToFloat(s1,JSON_FormatSettings)
+    {$ELSE}
+    Result := StrToFloat(StringReplace(s1, '.', DecimalSeparator, []))
+    {$ENDIF}
+
+  else
+    Result := StrToInt64(s1);
+end;
+
+function ReadChar(AStream: TStream;ASkipSpaces: Boolean=True):JSON_Char;
+var
+  f: boolean;
+begin
+  f := True;
+  {$IFDEF FPC}
+  Result:=#0;
+  {$ENDIF}
+  While F do begin
+    AStream.ReadBuffer(Result, SizeOf(Result));
+    f := ASkipSpaces and  (ord(Result) in [ord(' '), 10, 13, 9]);
+  end;
+end;
+
+function HexcodeToChar(AValue: JSON_String): JSON_Char;
+var
+  i,j,k: integer;
+begin
+  k:=0;
+  for i:= 1 to Length(aValue) do begin
+    j:= ord(AValue[i]);
+    case j  of
+      48..57: dec(j,48);
+      65..70: dec(j, 55);
+      97..120: dec(j, 87);
+    else
+      raise Exception.Create('can''t decode hex string:'''+aValue+'''');
+    end;
+    k:= k*16 + j;
+  end;
+  Result:= JSon_Char(k);
+end;
+
+function ReadString(AStream: TStream):JSON_String;
+var
+  LChar: JSON_Char;
+  s: JSON_String;
+begin
+  Result:='';
+  lchar := ReadChar(AStream,False);
+  while lChar <> '"' do begin
+    if lchar = '\' then begin
+      lchar:=ReadChar(AStream,False);
+           if lchar = 'n' then Result := Result + #0010
+      else if lchar = 'r' then Result := Result + #0013
+      else if lchar = 't' then Result := Result + #0009
+      else if lchar = '"' then Result := Result + lchar
+      else if lchar = '\' then Result := Result + lchar
+      else if lchar = '/' then Result := Result + lchar
+      else if lchar = 'u' then begin
+        SetLength(s, 4);
+        AStream.ReadBuffer(Pointer(s)^,4*sizeOf(JSON_Char));
+        Result:=Result + HexCodetoChar(s);
+      end
+      else if lchar = 'b' then Result := Result + #0008
+      else if lchar = 'f' then Result := Result + #0012
+      else JSON_Error(AStream);
+    end
+    else
+      Result := Result + lChar;
+    lchar := ReadChar(AStream,False);
+  end;
+end;
+
+
+function ReadNextChar(AStream: TStream;ASkipSpaces: Boolean=True):JSON_Char;
+var
+  p: int64;
+begin
+  p := AStream.Position;
+  try
+    Result := ReadChar(AStream, ASkipSpaces);
+  finally
+    AStream.Position := p;
+  end;
+end;
+
+{ TROJSONValue }
+
+
+procedure TROJSONValue.Clear;
+begin
+  if FValueType <> jdtNull then begin
+    if FValueType in [jdtObject, jdtArray] then FreeAndNil(FObject);
+    FValueType := jdtNull;
+    FValue := Null;
+  end;
+end;
+
+
+constructor TROJSONValue.Create(Collection: TCollection);
+begin
+  inherited;
+  FObject := nil;
+  FValueType := jdtNull;
+  FValue := Null;
+end;
+
+destructor TROJSONValue.Destroy;
+begin
+  Clear;
+  inherited;
+end;
+
+function TROJSONValue.GetAsArray: TROJSONArray;
+begin
+  if (FValueType = jdtArray) then
+    Result:= TROJSONArray(FObject)
+  else begin
+    {$IFDEF RaiseInvalidDataTypeException}
+    JSON_Error_IncompatibleDataType;
+    {$ENDIF}
+    Result := nil;
+  end;
+end;
+
+function TROJSONValue.GetAsBoolean: Boolean;
+begin
+  if FValueType = jdtBoolean then
+    Result := FValue
+  else begin
+    {$IFDEF RaiseInvalidDataTypeException}
+    JSON_Error_IncompatibleDataType;
+    {$ENDIF}
+    Result := False;
+  end;
+end;
+
+
+function TROJSONValue.GetAsNumber: Variant;
+begin
+  if FValueType = jdtNumber then
+    Result := FValue
+  else begin
+    {$IFDEF RaiseInvalidDataTypeException}
+    JSON_Error_IncompatibleDataType;
+    {$ENDIF}
+    Result := Null;
+  end;
+end;
+
+function TROJSONValue.GetAsObject: TROJSONObject;
+begin
+  if (FValueType = jdtObject) then
+    Result:= TROJSONObject(FObject)
+  else begin
+    {$IFDEF RaiseInvalidDataTypeException}
+    JSON_Error_IncompatibleDataType;
+    {$ENDIF}
+    Result := nil;
+  end;
+end;
+
+function TROJSONValue.GetAsString: JSON_String;
+begin
+  Result := FValue;
+end;
+
+function TROJSONValue.GetVarValue: Variant;
+begin
+  case FValueType of
+    jdtNull : Result:= Null;
+    jdtString: Result:= AsString;
+    jdtNumber: Result:= AsNumber;
+    jdtBoolean: Result := AsBoolean;
+    jdtArray: ;
+    jdtObject: Result := ReadVariantFromStreamObject(AsObject);
+  end;
+end;
+
+procedure TROJSONValue.IntLoadFromStream(AStream: TStream);
+var
+  lChar: JSON_Char;
+  s: JSON_String;
+begin
+  lChar := ReadNextChar(AStream);
+  if lChar = '"' then begin //string
+     ReadChar(AStream);
+     AsString:=ReadString(AStream);
+  end
+  else if lChar = '{' then begin //object
+    AsObject := TROJSONObject.Create;
+    AsObject.IntLoadFromStream(AStream);
+  end
+  else if lChar = '[' then begin // array
+    AsArray := TROJSONArray.Create;
+    AsArray.IntLoadFromStream(AStream);
+  end
+  else if lchar = 't' then begin //true
+    ReadChar(AStream);
+    SetLength(s, 3);
+    AStream.ReadBuffer(pointer(s)^, 3*sizeof(JSON_Char));
+    if s <> 'rue' then JSON_Error(AStream);
+    AsBoolean:=True;
+  end
+  else if lchar = 'f' then begin //false
+    ReadChar(AStream);
+    SetLength(s, 4);
+    AStream.ReadBuffer(pointer(s)^, 4*sizeof(JSON_Char));
+    if s <> 'alse' then JSON_Error(AStream);
+    AsBoolean:=False;
+  end
+  else if lchar = 'n' then begin //null
+    ReadChar(AStream);
+    SetLength(s, 3);
+    AStream.ReadBuffer(pointer(s)^, 3*sizeof(JSON_Char));
+    if s <> 'ull' then JSON_Error(AStream);
+    Clear;
+  end
+  else begin // number
+    AsNumber:= ReadNumber(AStream);
+  end
+end;
+
+procedure TROJSONValue.IntSaveToStream(AStream: TStream);
+begin
+  case FValueType of
+    jdtObject: AsObject.IntSaveToStream(AStream);
+    jdtArray:  ASArray.IntSaveToStream(AStream);
+    jdtNull: WriteIdent(AStream, 'null');
+    jdtBoolean: if GetAsBoolean then
+                  WriteIdent(AStream, 'true')
+                else
+                  WriteIdent(AStream, 'false');
+    jdtString: WriteString(AStream, AsString);
+    jdtNumber: WriteNumber(AStream, AsNumber);
+  end;
+end;
+
+procedure TROJSONValue.LoadFromStream(AStream: TStream; AUTF8Stream: boolean);
+var
+  lStream: TMemoryStream;
+  s: UTF8String;
+  w: JSON_String;
+  lPos: int64;
+begin
+  lpos := AStream.Position;
+  try
+    if AUTF8Stream then begin
+      lStream:= TMemoryStream.Create;
+      try
+        SetLength(s, AStream.Size - AStream.Position);
+        AStream.Read(pointer(s)^, Length(s));
+        if Copy(s,1,3) = UTF8String(#$EF#$BB#$BF) then delete(s,1,3);
+
+        w:= UTF8ToString(s);
+        s:='';
+        lStream.Size := Length(w)*SizeOf(JSON_Char);
+        Move(pointer(w)^,lStream.Memory^, lStream.Size);
+        w:='';
+        IntLoadFromStream(lStream);
+      finally
+        lStream.Free;
+      end;
+    end
+    else begin
+      IntLoadFromStream(AStream);
+    end;
+  except
+    AStream.Position:= lPos;
+    raise;
+  end;
+end;
+
+procedure TROJSONValue.SaveToStream(AStream: TStream; AUTF8Stream: boolean);
+var
+  lStream: TMemoryStream;
+  s: UTF8String;
+  w: JSON_String;
+begin
+  if AUTF8Stream then begin
+    lStream:= TMemoryStream.Create;
+    try
+      IntSaveToStream(lStream);
+      SetString(w, JSON_PChar(lStream.Memory), lStream.Size div SizeOf(JSON_Char));
+    finally
+      lStream.Free;
+    end;
+    s:=UTF8Encode(W);
+    w:='';
+    AStream.Write(pointer(s)^, Length(s));
+  end
+  else begin
+    IntSaveToStream(AStream);
+  end;
+end;
+
+procedure TROJSONValue.SetAsArray(const Value: TROJSONArray);
+begin
+  if (Value <> FObject) or (FValueType <> jdtArray) then begin
+    Clear;
+    if Value <> nil then begin
+      FObject := Value;
+      FValueType := jdtArray;
+    end;
+   end;
+end;
+
+procedure TROJSONValue.SetAsBoolean(const Value: Boolean);
+begin
+  if FValueType <> jdtBoolean then begin
+    Clear;
+    FValueType := jdtBoolean;
+  end;
+  FValue := Value;
+end;
+
+procedure TROJSONValue.SetAsNull;
+begin
+  Clear;
+end;
+
+procedure TROJSONValue.SetAsNumber(const Value: Variant);
+begin
+  if FValueType <> jdtNumber then begin
+    Clear;
+    FValueType := jdtNumber;
+  end;
+  FValue:= Value;
+end;
+
+procedure TROJSONValue.SetAsObject(const Value: TROJSONObject);
+begin
+  if (Value <> FObject) or (FValueType <> jdtObject) then begin
+    Clear;
+    if Value <> nil then begin
+      FObject := Value;
+      FValueType := jdtObject;
+    end;
+   end;
+end;
+
+procedure TROJSONValue.SetVarValue(const Value: Variant);
+begin
+  if VarIsNull(Value) or VarIsEmpty(Value) then SetAsNull
+  else if TVarData(Value).VType = varBoolean then AsBoolean := Value
+  else if VarIsStr(Value) then AsString := Value
+  else if VarIsNumeric(Value) or (TVarData(Value).VType = varDate) then AsNumber := Value
+  else AsObject := WriteVarianttoStreamObject(Value);
+end;
+
+constructor TROJSONValue.Create(aType: TROJSONDataType);
+begin
+  inherited Create(nil);
+  FObject := nil;
+  case aType of
+    jdtObject: FObject := TROJSONObject.Create;
+    jdtArray: FObject := TROJSONArray.Create;
+  end;
+  FValueType := aType;
+  FValue := Null;
+end;
+
+{ TROJSONProperty }
+
+
+procedure TROJSONValue.SetAsString(const Value: JSON_String);
+begin
+  if FValueType <> jdtString then begin
+    Clear;
+    FValueType := jdtString;
+  end;
+  FValue:= Value;
+end;
+
+{ TROJSONProperty }
+
+procedure TROJSONProperty.IntLoadFromStream(AStream: TStream);
+begin
+ // inherited;
+  if ReadChar(AStream) <> '"' then JSON_Error(AStream);
+  FName := ReadString(Astream);
+  if ReadChar(AStream) <> ':' then JSON_Error(AStream);
+  inherited IntLoadFromStream(AStream);
+end;
+
+procedure TROJSONProperty.IntSaveToStream(AStream: TStream);
+begin
+  WriteString(AStream,FName);
+  WriteChar(AStream,':');
+  inherited IntSaveToStream(Astream);
+end;
+
+procedure TROJSONProperty.SetName(const Value: JSON_String);
+begin
+  FName := Value;
+end;
+
+{ TROJSONObject }
+
+function TROJSONObject.Add: TROJSONProperty;
+begin
+  Result:=TROJSONProperty(inherited Add);
+end;
+
+function TROJSONObject.AddArrayProperty(
+  const AName: JSON_String): TROJSONProperty;
+begin
+  Result:=Add;
+  Result.Name := AName;
+  Result.ASArray := TROJSONArray.Create;
+end;
+
+function TROJSONObject.AddBooleanProperty(const AName: JSON_String;
+  const AValue: Boolean): TROJSONProperty;
+begin
+  Result:=Add;
+  Result.Name := AName;
+  Result.AsBoolean := AValue;
+end;
+
+function TROJSONObject.AddNullProperty(const AName: JSON_String): TROJSONProperty;
+begin
+  Result:=Add;
+  Result.Name := AName;
+  Result.SetAsNull;
+end;
+
+function TROJSONObject.AddNumberProperty(const AName: JSON_String;
+  const AValue: Variant): TROJSONProperty;
+begin
+  Result:=Add;
+  Result.Name := AName;
+  Result.AsNumber := AValue;
+end;
+
+function TROJSONObject.AddObjectProperty(
+  const AName: JSON_String): TROJSONProperty;
+begin
+  Result:=Add;
+  Result.Name := AName;
+  Result.AsObject := TROJSONObject.Create;
+end;
+
+function TROJSONObject.AddStringProperty(const AName,
+  aValue: JSON_String): TROJSONProperty;
+begin
+  Result:=Add;
+  Result.Name := AName;
+  Result.AsString := aValue;
+end;
+
+constructor TROJSONObject.Create;
+begin
+  inherited Create(TROJSONProperty);
+end;
+
+function TROJSONObject.GetArrayItemByName(const AName: JSON_String;
+  ACreate: Boolean): TROJSONArray;
+var
+  aItem : TROJSONProperty;
+begin
+  Result := nil;
+  aItem := FindItem(AName);
+  if (AItem = nil) and ACreate then
+    aItem := AddArrayProperty(Aname);
+
+  if aItem <> nil then begin
+    if aItem.ValueType = jdtArray then
+      result := aItem.ASArray
+    else
+      JSON_Error_IncompatibleDataType;
+  end;
+end;
+
+function TROJSONObject.FindItem(const AName: JSON_String): TROJSONProperty;
+var
+  i: integer;
+begin
+  i := IndexOf(AName);
+  if i = -1 then
+    Result := nil
+  else
+    Result := Items[i];  
+end;
+
+function TROJSONObject.IndexOf(const AName: JSON_String): integer;
+begin
+  For Result:= 0 to Count - 1 do
+    if Items[Result].Name = AName then Exit;
+  Result := -1;
+end;
+
+function TROJSONObject.GetItems(Index: Integer): TROJSONProperty;
+begin
+  Result:= TROJSONProperty(GetItem(Index));
+end;
+
+function TROJSONObject.GetObjectItemByName(const AName: JSON_String;
+  ACreate: Boolean): TROJSONObject;
+var
+  aItem : TROJSONProperty;
+begin
+  Result := nil;
+  aItem := FindItem(AName);
+  if (AItem = nil) and ACreate then begin
+    aItem := AddObjectProperty(AName);
+  end;
+  if aItem <> nil then begin
+    if aItem.ValueType = jdtObject then
+      result := aItem.AsObject
+    else
+      JSON_Error_IncompatibleDataType;
+  end;
+end;
+
+procedure TROJSONObject.IntLoadFromStream(AStream: TStream);
+var
+  AChar: JSON_Char;
+begin
+  if ReadChar(AStream ) = '{' then begin
+    AChar := ReadChar(AStream);
+    while AChar <> '}' do begin
+      if AChar = ',' then begin
+        AChar:= ReadChar(AStream);
+        continue;
+      end
+      else if AChar = '"' then begin
+        AStream.Seek( -SizeOf(JSON_Char), soFromCurrent);
+        TROJSONProperty(Add).IntLoadFromStream(AStream);
+      end
+      else
+        // only " and , supported here
+        JSON_Error(AStream);
+      AChar:= ReadChar(AStream);
+    end;
+  end
+  else begin
+    JSON_Error(AStream);
+  end;
+end;
+
+procedure TROJSONObject.IntSaveToStream(AStream: TStream);
+var
+  i: integer;
+begin
+  WriteChar(AStream, '{');
+  For i := 0 to Count -1 do begin
+    Items[i].IntSaveToStream(AStream);
+    if i <> Count -1 then WriteChar(AStream, ',');
+  end;
+  WriteChar(AStream, '}');
+end;
+
+procedure TROJSONObject.SaveToStream(AStream: TStream; AUTF8Stream: boolean);
+var
+  temp: TROJSONValue;
+begin
+  if AUTF8Stream then begin
+    temp:= TROJSONValue.Create(nil);
+    try
+      temp.AsObject := Self;
+      temp.SaveToStream(AStream,AUTF8Stream);
+    finally
+      temp.FValueType:= jdtNull; // for preventing freeing object
+      temp.Free;
+    end;
+  end
+  else begin
+    IntSaveToStream(AStream);
+  end;
+end;
+
+procedure TROJSONObject.SetItems(Index: Integer;
+  const Value: TROJSONProperty);
+begin
+  SetItem(Index, Value);
+end;
+
+function TROJSONObject.GetStringValueByName(
+  const AName: JSON_String): JSON_String;
+var
+  aItem : TROJSONProperty;
+begin
+  Result := '';
+  aItem := ItemByName(AName);
+  if aItem <> nil then begin
+    if aItem.ValueType = jdtString then
+      result := aItem.AsString
+    else
+      JSON_Error_IncompatibleDataType;
+  end;
+end;
+
+function TROJSONObject.GetBooleanValueByName(
+  const AName: JSON_String): Boolean;
+var
+  aItem : TROJSONProperty;
+begin
+  Result := False;
+  aItem := ItemByName(AName);
+  if aItem <> nil then begin
+    if aItem.ValueType = jdtBoolean then
+      result := aItem.AsBoolean
+    else
+      JSON_Error_IncompatibleDataType;
+  end;
+end;
+
+function TROJSONObject.GetNumberValueByName(
+  const AName: JSON_String): Variant;
+var
+  aItem : TROJSONProperty;
+begin
+  Result := Null;
+  aItem := ItemByName(AName);
+  if aItem <> nil then begin
+    if aItem.ValueType = jdtNumber then
+      result := aItem.AsNumber
+    else
+      JSON_Error_IncompatibleDataType;
+  end;
+end;
+
+function TROJSONObject.AddVariantProperty(const AName: JSON_String;
+  const AValue: Variant): TROJSONProperty;
+begin
+  Result:=Add;
+  Result.Name := AName;
+  Result.VarValue := AValue;
+end;
+
+function TROJSONObject.GetVariantValueByName(
+  const AName: JSON_String): Variant;
+var
+  aItem : TROJSONProperty;
+begin
+  Result := '';
+  aItem := ItemByName(AName);
+  if aItem <> nil then Result:= aItem.VarValue;
+end;
+
+function TROJSONObject.ItemByName(
+  const AName: JSON_String): TROJSONProperty;
+begin
+  Result := FindItem(AName);
+  if (Result = nil) then JSON_Error_PropertyNotFound(AName);
+end;
+
+procedure TROJSONObject.LoadFromStream(AStream: TStream; AUTF8Stream: boolean);
+var
+  temp: TROJSONValue;
+begin
+  if AUTF8Stream then begin
+    temp:= TROJSONValue.Create(nil);
+    try
+      temp.AsObject := Self;
+      temp.LoadFromStream(AStream,AUTF8Stream);
+    finally
+      temp.FValueType:= jdtNull; // for preventing freeing object
+      temp.Free;
+    end;
+  end
+  else begin
+    IntLoadFromStream(AStream);
+  end;
+end;
+
+{ TROJSONArray }
+
+function TROJSONArray.Add: TROJSONValue;
+begin
+  Result:= TROJSONValue(inherited Add);
+end;
+
+function TROJSONArray.AddArrayValue: TROJSONValue;
+begin
+  Result:=Add;
+  Result.ASArray:=TROJSONArray.Create;
+end;
+
+function TROJSONArray.AddBooleanValue(const AValue: Boolean): TROJSONValue;
+begin
+  Result:=Add;
+  Result.AsBoolean:= AValue;
+end;
+
+function TROJSONArray.AddNullValue: TROJSONValue;
+begin
+  Result:=Add;
+  Result.SetAsNull;
+end;
+
+function TROJSONArray.AddNumberValue(const AValue: Variant): TROJSONValue;
+begin
+  Result:=Add;
+  Result.AsNumber:= AValue;
+end;
+
+function TROJSONArray.AddObject: TROJSONValue;
+begin
+  Result:= Add;
+  Result.AsObject := TROJSONObject.Create;
+end;
+
+function TROJSONArray.AddStringValue(
+  const AValue: JSON_String): TROJSONValue;
+begin
+  Result:=Add;
+  Result.AsString:= AValue;
+end;
+
+function TROJSONArray.AddVariantValue(const AValue: Variant): TROJSONValue;
+begin
+  Result:=Add;
+  Result.VarValue := AValue;
+end;
+
+constructor TROJSONArray.Create;
+begin
+  inherited Create(TROJSONValue);
+end;
+
+function TROJSONArray.FindObjectByStringValue(const AName,
+  aValue: JSON_String): TROJSONObject;
+var
+  i: integer;
+  lProp: TROJSONProperty;
+begin
+  for i := 0 to Count-1 do begin
+    if (Items[i].ValueType = jdtObject) then begin
+     Result := Items[i].AsObject;
+     lProp := Result.FindItem(AName);
+     if (lProp <> nil) and (lProp.ValueType = jdtString) and (lProp.AsString = aValue) then  Exit;
+    end;
+  end;
+  Result := nil;
+end;
+
+function TROJSONArray.GetItems(Index: Integer): TROJSONValue;
+begin
+  Result:= TROJSONValue(GetItem(Index));
+end;
+
+procedure TROJSONArray.IntLoadFromStream(AStream: TStream);
+var
+  AChar: JSON_Char;
+begin
+  if ReadChar(AStream ) = '[' then begin
+    AChar := ReadChar(AStream);
+    while AChar <> ']' do begin
+      if AChar <> ',' then AStream.Seek( -SizeOf(JSON_Char), soFromCurrent);
+      TROJSONValue(Add).IntLoadFromStream(AStream);
+      AChar := ReadChar(AStream);
+    end;
+  end
+  else begin
+    JSON_Error(AStream);
+  end;
+end;
+
+procedure TROJSONArray.IntSaveToStream(AStream: TStream);
+var
+  i: integer;
+begin
+  WriteChar(AStream, '[');
+  For i := 0 to Count -1 do begin
+    Items[i].IntSaveToStream(AStream);
+    if i <> Count -1 then WriteChar(AStream, ',');
+  end;
+  WriteChar(AStream, ']');
+end;
+
+procedure TROJSONArray.LoadFromStream(AStream: TStream; AUTF8Stream: boolean);
+var
+  temp: TROJSONValue;
+begin
+  if AUTF8Stream then begin
+    temp:= TROJSONValue.Create(nil);
+    try
+      temp.ASArray := Self;
+      temp.LoadFromStream(AStream,AUTF8Stream);
+    finally
+      temp.FValueType:= jdtNull; // for preventing freeing object
+      temp.Free;
+    end;
+  end
+  else begin
+    IntLoadFromStream(AStream);
+  end;
+end;
+
+procedure TROJSONArray.SaveToStream(AStream: TStream; AUTF8Stream: boolean);
+var
+  temp: TROJSONValue;
+begin
+  if AUTF8Stream then begin
+    temp:= TROJSONValue.Create(nil);
+    try
+      temp.ASArray := Self;
+      temp.SaveToStream(AStream,AUTF8Stream);
+    finally
+      temp.FValueType:= jdtNull; // for preventing freeing object
+      temp.Free;
+    end;
+  end
+  else begin
+    IntSaveToStream(AStream);
+  end;
+end;
+
+procedure TROJSONArray.SetItems(Index: Integer; const Value: TROJSONValue);
+begin
+  SetItem(Index, Value);
+end;
+
+function JSON_ParseStream(AData: TStream;aUTF8Stream:Boolean):TROJSONValue;
+var
+  lpos : int64;
+begin
+  lpos := AData.Position;
+  try
+    Result := TROJSONValue.Create(nil);
+    Result.LoadFromStream(AData,aUTF8Stream);
+  except
+    AData.Position := lPos;
+    Raise;
+  end;
+end;
+
+{$IFDEF DELPHI7UP}
+initialization
+  JSON_FormatSettings.DecimalSeparator := '.';
+{$ENDIF}
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLDAP.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLDAP.pas
new file mode 100644
index 0000000..2f0550a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLDAP.pas	
@@ -0,0 +1,48 @@
+unit uROLDAP;
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core components                                   }
+{                                                                            }
+{ compiler: Delphi 6 and up, Lazarus/FPC                                     }
+{ platform: Win32, Linux, MacOS                                              }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+interface
+
+{ Note: for TLS/SSL support, you should include one from these files into your project
+  ssl_cryptlib.pas
+  ssl_openssl.pas
+  ssl_sbb.pas
+  ssl_streamsec.pas
+}
+function LDAPPlainCheck(const aUserName, aPassword, aHost: string; aPort: integer; const UseTLS: Boolean = False; const UseSSL: Boolean = False): Boolean;
+
+implementation
+uses
+  SysUtils,
+  ldapsend;
+
+function LDAPPlainCheck(const aUserName, aPassword, aHost: string; aPort: integer; const UseTLS: Boolean = False; const UseSSL: Boolean = False): boolean;
+var
+  ldap: TLDAPsend;
+begin
+  ldap:= TLDAPsend.Create;
+  try
+    ldap.TargetHost := aHost;
+    ldap.TargetPort := IntToStr(aPort);
+    ldap.UserName := aUserName;
+    ldap.Password := aPassword;
+    ldap.AutoTLS := UseTLS;
+    ldap.FullSSL := UseSSL;
+    Result := ldap.Login and ldap.Bind;
+  finally
+    ldap.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLocalChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLocalChannel.pas
new file mode 100644
index 0000000..d59d556
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLocalChannel.pas	
@@ -0,0 +1,116 @@
+unit uROLocalChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROClient, uROClientIntf, uROLocalServer;
+
+type
+  TROLocalChannel = class(TROTransportChannel)
+  private
+    fServerChannel: TROLocalServer;
+  protected
+    function GetTransportObject: TObject; override;
+    procedure IntDispatch(aRequest: TStream; aResponse: TStream); override;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  public
+    procedure CheckProperties; override;
+    constructor Create(aOwner : TComponent); override;
+    procedure Assign(aSource : TPersistent); override;
+  published
+    property ServerChannel: TROLocalServer read fServerChannel write fServerChannel;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    //property OnAfterProbingServer;
+    //property OnAfterProbingServers;
+    //property OnBeforeProbingServer;
+    //property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    //property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    //property OnServerLocatorAssignment;
+    //property ProbeFrequency;
+    //property ProbeServers;
+    property ServerLocators;
+    //property SynchronizedProbing;
+  end;
+
+implementation
+uses
+  uROClasses;
+{ TROLocalChannel }
+
+procedure TROLocalChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROLocalChannel;
+begin
+  inherited;
+  if aSource is TROLocalChannel then begin
+    lSource := TROLocalChannel(aSource);
+    ServerChannel := lSource.ServerChannel;
+  end;
+end;
+
+procedure TROLocalChannel.CheckProperties;
+begin
+  inherited;
+  Check(ServerChannel = nil, Name + '.ServerChannel must be assigned.');
+  ServerChannel.CheckProperties;
+end;
+
+constructor TROLocalChannel.Create(aOwner: TComponent);
+begin
+  inherited;
+  ThreadSafe := true;
+end;
+
+function TROLocalChannel.GetTransportObject: TObject;
+begin
+  Result := self;
+end;
+
+procedure TROLocalChannel.IntDispatch(aRequest, aResponse: TStream);
+begin
+  CheckProperties;
+
+  {$IFDEF DESIGNTIME}
+  {$IFDEF MSWINDOWS}
+  if csDesigning in ComponentState then
+    raise EROIDEProblem.Create('We''re sorry, but the '+ClassName+' cannot be used inside the Delphi IDE at designtime.');
+  {$ENDIF MSWINDOWS}
+  {$ENDIF DESIGNTIME}
+
+  fServerChannel.SendRequest(aRequest, aResponse);
+end;
+
+procedure TROLocalChannel.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (Operation=opRemove) and
+     (AComponent=fServerChannel) then fServerChannel := NIL;
+end;
+
+initialization
+  RegisterTransportChannelClass(TROLocalChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROLocalChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLocalServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLocalServer.pas
new file mode 100644
index 0000000..eb57903
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROLocalServer.pas	
@@ -0,0 +1,64 @@
+unit uROLocalServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROServer, uROClientIntf, uROClasses;
+
+type
+  TROLocalServer = class(TROServer, IROTransport)
+  protected
+    procedure IntSetActive(const Value: Boolean); override;
+    function IntGetActive: Boolean; override;
+    function GetTransportObject: TObject;
+  public
+    procedure SendRequest(aRequeststream, aResponsestream: TStream);
+  published
+    property Active default True;
+  end;
+
+implementation
+
+
+{ TROLocalServer }
+
+function TROLocalServer.GetTransportObject: TObject;
+begin
+  result := self;
+end;
+
+function TROLocalServer.IntGetActive: Boolean;
+begin
+  result := true;
+end;
+
+procedure TROLocalServer.IntSetActive(const Value: Boolean);
+begin
+  // do nothing
+end;
+
+procedure TROLocalServer.SendRequest(aRequeststream,
+  aResponsestream: TStream);
+begin
+  DispatchMessage(self, aRequeststream, aResponsestream);
+end;
+
+initialization
+  RegisterServerClass(TROLocalServer);
+finalization
+  UnregisterServerClass(TROLocalServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMSXML2_TLB.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMSXML2_TLB.pas
new file mode 100644
index 0000000..dd8b5e7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMSXML2_TLB.pas	
@@ -0,0 +1,3051 @@
+unit uROMSXML2_TLB;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{ NOTE: THIS UNIT WAS MANUALLY MODIFIED FROM THE IMPORTED VERSION,
+        FOR DELPHI 5 COMPATIBILITY AND TO NOT PULL IN MAJOR PARTS OF
+        THE VCL VIA OleServer (PULLS IN Controls/Forms) AND Graphics
+
+        ALSO, ALL dispinterface VERSIONS WERE REMOVED, FOR C++BUILDER
+        COMPATIBILITY IN BDS 2006 AND ABOVE} 
+
+{$I RemObjects.inc}
+
+// ************************************************************************ //
+// WARNING
+// The types declared in this file were generated from data read from a
+// Type Library. If this type library is explicitly or indirectly (via        
+// another type library referring to this type library) re-imported, or the   
+// 'Refresh' command of the Type Library Editor activated while editing the   
+// Type Library, the contents of this file will be regenerated and all        
+// manual modifications will be lost.                                         
+// ************************************************************************ //
+
+// PASTLWTR : 1.2
+// File generated on 8/18/2003 10:12:51 PM from Type Library described below.
+
+// ************************************************************************  //
+// Type Lib: C:\WINDOWS\system32\msxml4.dll (1)
+// LIBID: {F5078F18-C551-11D3-89B9-0000F81FE221}
+// LCID: 0
+// Helpfile: 
+// HelpString: Microsoft XML, v4.0
+// DepndLst: 
+//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
+// Errors:
+//   Hint: Parameter 'type' of IXMLDOMNode.nodeType changed to 'type_'
+//   Hint: Member 'implementation' of 'IXMLDOMDocument' changed to 'implementation_'
+//   Hint: Parameter 'type' of IXMLDOMDocument.createNode changed to 'type_'
+//   Hint: Parameter 'var' of IXMLDOMSchemaCollection.add changed to 'var_'
+//   Hint: Symbol 'type' renamed to 'type_'
+//   Hint: Parameter 'type' of ISchemaElement.type changed to 'type_'
+//   Hint: Symbol 'type' renamed to 'type_'
+//   Hint: Parameter 'type' of ISchemaAttribute.type changed to 'type_'
+//   Hint: Symbol 'type' renamed to 'type_'
+//   Hint: Symbol 'type' renamed to 'type_'
+// ************************************************************************ //
+{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
+
+{$IFDEF DELPHI6UP}
+{$WARN SYMBOL_PLATFORM OFF}
+{$WRITEABLECONST ON}
+{$IFDEF DELPHI7UP}
+{$VARPROPSETTER ON}
+{$ENDIF}
+{$ENDIF}
+
+interface
+
+uses Windows, ActiveX, Classes;
+  
+
+// *********************************************************************//
+// GUIDS declared in the TypeLibrary. Following prefixes are used:        
+//   Type Libraries     : LIBID_xxxx                                      
+//   CoClasses          : CLASS_xxxx                                      
+//   DISPInterfaces     : DIID_xxxx                                       
+//   Non-DISP interfaces: IID_xxxx                                        
+// *********************************************************************//
+const
+  // TypeLibrary Major and minor versions
+  MSXML2MajorVersion = 4;
+  MSXML2MinorVersion = 0;
+
+  LIBID_MSXML2: TGUID = '{F5078F18-C551-11D3-89B9-0000F81FE221}';
+
+  IID_IXMLDOMImplementation: TGUID = '{2933BF8F-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMNode: TGUID = '{2933BF80-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMNodeList: TGUID = '{2933BF82-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMNamedNodeMap: TGUID = '{2933BF83-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMDocument: TGUID = '{2933BF81-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMDocumentType: TGUID = '{2933BF8B-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMElement: TGUID = '{2933BF86-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMAttribute: TGUID = '{2933BF85-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMDocumentFragment: TGUID = '{3EFAA413-272F-11D2-836F-0000F87A7782}';
+  IID_IXMLDOMCharacterData: TGUID = '{2933BF84-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMText: TGUID = '{2933BF87-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMComment: TGUID = '{2933BF88-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMCDATASection: TGUID = '{2933BF8A-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMProcessingInstruction: TGUID = '{2933BF89-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMEntityReference: TGUID = '{2933BF8E-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMParseError: TGUID = '{3EFAA426-272F-11D2-836F-0000F87A7782}';
+  IID_IXMLDOMDocument2: TGUID = '{2933BF95-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMSchemaCollection: TGUID = '{373984C8-B845-449B-91E7-45AC83036ADE}';
+  IID_IXMLDOMNotation: TGUID = '{2933BF8C-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXMLDOMEntity: TGUID = '{2933BF8D-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXTLRuntime: TGUID = '{3EFAA425-272F-11D2-836F-0000F87A7782}';
+  IID_IXSLTemplate: TGUID = '{2933BF93-7B36-11D2-B20E-00C04F983E60}';
+  IID_IXSLProcessor: TGUID = '{2933BF92-7B36-11D2-B20E-00C04F983E60}';
+  IID_ISAXXMLReader: TGUID = '{A4F96ED0-F829-476E-81C0-CDC7BD2A0802}';
+  IID_ISAXEntityResolver: TGUID = '{99BCA7BD-E8C4-4D5F-A0CF-6D907901FF07}';
+  IID_ISAXContentHandler: TGUID = '{1545CDFA-9E4E-4497-A8A4-2BF7D0112C44}';
+  IID_ISAXLocator: TGUID = '{9B7E472A-0DE4-4640-BFF3-84D38A051C31}';
+  IID_ISAXAttributes: TGUID = '{F078ABE1-45D2-4832-91EA-4466CE2F25C9}';
+  IID_ISAXDTDHandler: TGUID = '{E15C1BAF-AFB3-4D60-8C36-19A8C45DEFED}';
+  IID_ISAXErrorHandler: TGUID = '{A60511C4-CCF5-479E-98A3-DC8DC545B7D0}';
+  IID_ISAXXMLFilter: TGUID = '{70409222-CA09-4475-ACB8-40312FE8D145}';
+  IID_ISAXLexicalHandler: TGUID = '{7F85D5F5-47A8-4497-BDA5-84BA04819EA6}';
+  IID_ISAXDeclHandler: TGUID = '{862629AC-771A-47B2-8337-4E6843C1BE90}';
+  IID_IVBSAXXMLReader: TGUID = '{8C033CAA-6CD6-4F73-B728-4531AF74945F}';
+  IID_IVBSAXEntityResolver: TGUID = '{0C05D096-F45B-4ACA-AD1A-AA0BC25518DC}';
+  IID_IVBSAXContentHandler: TGUID = '{2ED7290A-4DD5-4B46-BB26-4E4155E77FAA}';
+  IID_IVBSAXLocator: TGUID = '{796E7AC5-5AA2-4EFF-ACAD-3FAAF01A3288}';
+  IID_IVBSAXAttributes: TGUID = '{10DC0586-132B-4CAC-8BB3-DB00AC8B7EE0}';
+  IID_IVBSAXDTDHandler: TGUID = '{24FB3297-302D-4620-BA39-3A732D850558}';
+  IID_IVBSAXErrorHandler: TGUID = '{D963D3FE-173C-4862-9095-B92F66995F52}';
+  IID_IVBSAXXMLFilter: TGUID = '{1299EB1B-5B88-433E-82DE-82CA75AD4E04}';
+  IID_IVBSAXLexicalHandler: TGUID = '{032AAC35-8C0E-4D9D-979F-E3B702935576}';
+  IID_IVBSAXDeclHandler: TGUID = '{E8917260-7579-4BE1-B5DD-7AFBFA6F077B}';
+  IID_IMXWriter: TGUID = '{4D7FF4BA-1565-4EA8-94E1-6E724A46F98D}';
+  IID_IMXAttributes: TGUID = '{F10D27CC-3EC0-415C-8ED8-77AB1C5E7262}';
+  IID_IMXReaderControl: TGUID = '{808F4E35-8D5A-4FBE-8466-33A41279ED30}';
+  IID_IMXSchemaDeclHandler: TGUID = '{FA4BB38C-FAF9-4CCA-9302-D1DD0FE520DB}';
+  IID_ISchemaItem: TGUID = '{50EA08B3-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaParticle: TGUID = '{50EA08B5-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaElement: TGUID = '{50EA08B7-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchema: TGUID = '{50EA08B4-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaItemCollection: TGUID = '{50EA08B2-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaStringCollection: TGUID = '{50EA08B1-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaType: TGUID = '{50EA08B8-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaComplexType: TGUID = '{50EA08B9-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaAny: TGUID = '{50EA08BC-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaModelGroup: TGUID = '{50EA08BB-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_IXMLDOMSchemaCollection2: TGUID = '{50EA08B0-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaAttribute: TGUID = '{50EA08B6-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaAttributeGroup: TGUID = '{50EA08BA-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaIdentityConstraint: TGUID = '{50EA08BD-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_ISchemaNotation: TGUID = '{50EA08BE-DD1B-4664-9A50-C2F40F4BD79A}';
+  IID_IXMLElementCollection: TGUID = '{65725580-9B5D-11D0-9BFE-00C04FC99C8E}';
+  IID_IXMLDocument: TGUID = '{F52E2B61-18A1-11D1-B105-00805F49916B}';
+  IID_IXMLElement: TGUID = '{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}';
+  IID_IXMLDocument2: TGUID = '{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}';
+  IID_IXMLElement2: TGUID = '{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}';
+  IID_IXMLAttribute: TGUID = '{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}';
+  IID_IXMLError: TGUID = '{948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}';
+  IID_IXMLDOMSelection: TGUID = '{AA634FC7-5888-44A7-A257-3A47150D3A0E}';
+  DIID_XMLDOMDocumentEvents: TGUID = '{3EFAA427-272F-11D2-836F-0000F87A7782}';
+  IID_IDSOControl: TGUID = '{310AFA62-0575-11D2-9CA9-0060B0EC3D39}';
+  IID_IXMLHTTPRequest: TGUID = '{ED8C108D-4349-11D2-91A4-00C04F7969E8}';
+  IID_IServerXMLHTTPRequest: TGUID = '{2E9196BF-13BA-4DD4-91CA-6C571F281495}';
+  IID_IServerXMLHTTPRequest2: TGUID = '{2E01311B-C322-4B0A-BD77-B90CFDC8DCE7}';
+  IID_IMXNamespacePrefixes: TGUID = '{C90352F4-643C-4FBC-BB23-E996EB2D51FD}';
+  IID_IVBMXNamespaceManager: TGUID = '{C90352F5-643C-4FBC-BB23-E996EB2D51FD}';
+  IID_IMXNamespaceManager: TGUID = '{C90352F6-643C-4FBC-BB23-E996EB2D51FD}';
+  CLASS_DOMDocument: TGUID = '{F6D90F11-9C73-11D3-B32E-00C04F990BB4}';
+  CLASS_DOMDocument26: TGUID = '{F5078F1B-C551-11D3-89B9-0000F81FE221}';
+  CLASS_DOMDocument30: TGUID = '{F5078F32-C551-11D3-89B9-0000F81FE221}';
+  CLASS_DOMDocument40: TGUID = '{88D969C0-F192-11D4-A65F-0040963251E5}';
+  CLASS_FreeThreadedDOMDocument: TGUID = '{F6D90F12-9C73-11D3-B32E-00C04F990BB4}';
+  CLASS_FreeThreadedDOMDocument26: TGUID = '{F5078F1C-C551-11D3-89B9-0000F81FE221}';
+  CLASS_FreeThreadedDOMDocument30: TGUID = '{F5078F33-C551-11D3-89B9-0000F81FE221}';
+  CLASS_FreeThreadedDOMDocument40: TGUID = '{88D969C1-F192-11D4-A65F-0040963251E5}';
+  CLASS_XMLSchemaCache: TGUID = '{373984C9-B845-449B-91E7-45AC83036ADE}';
+  CLASS_XMLSchemaCache26: TGUID = '{F5078F1D-C551-11D3-89B9-0000F81FE221}';
+  CLASS_XMLSchemaCache30: TGUID = '{F5078F34-C551-11D3-89B9-0000F81FE221}';
+  CLASS_XMLSchemaCache40: TGUID = '{88D969C2-F192-11D4-A65F-0040963251E5}';
+  CLASS_XSLTemplate: TGUID = '{2933BF94-7B36-11D2-B20E-00C04F983E60}';
+  CLASS_XSLTemplate26: TGUID = '{F5078F21-C551-11D3-89B9-0000F81FE221}';
+  CLASS_XSLTemplate30: TGUID = '{F5078F36-C551-11D3-89B9-0000F81FE221}';
+  CLASS_XSLTemplate40: TGUID = '{88D969C3-F192-11D4-A65F-0040963251E5}';
+  CLASS_DSOControl: TGUID = '{F6D90F14-9C73-11D3-B32E-00C04F990BB4}';
+  CLASS_DSOControl26: TGUID = '{F5078F1F-C551-11D3-89B9-0000F81FE221}';
+  CLASS_DSOControl30: TGUID = '{F5078F39-C551-11D3-89B9-0000F81FE221}';
+  CLASS_DSOControl40: TGUID = '{88D969C4-F192-11D4-A65F-0040963251E5}';
+  CLASS_XMLHTTP: TGUID = '{F6D90F16-9C73-11D3-B32E-00C04F990BB4}';
+  CLASS_XMLHTTP26: TGUID = '{F5078F1E-C551-11D3-89B9-0000F81FE221}';
+  CLASS_XMLHTTP30: TGUID = '{F5078F35-C551-11D3-89B9-0000F81FE221}';
+  CLASS_XMLHTTP40: TGUID = '{88D969C5-F192-11D4-A65F-0040963251E5}';
+  CLASS_ServerXMLHTTP: TGUID = '{AFBA6B42-5692-48EA-8141-DC517DCF0EF1}';
+  CLASS_ServerXMLHTTP30: TGUID = '{AFB40FFD-B609-40A3-9828-F88BBE11E4E3}';
+  CLASS_ServerXMLHTTP40: TGUID = '{88D969C6-F192-11D4-A65F-0040963251E5}';
+  CLASS_SAXXMLReader: TGUID = '{079AA557-4A18-424A-8EEE-E39F0A8D41B9}';
+  CLASS_SAXXMLReader30: TGUID = '{3124C396-FB13-4836-A6AD-1317F1713688}';
+  CLASS_SAXXMLReader40: TGUID = '{7C6E29BC-8B8B-4C3D-859E-AF6CD158BE0F}';
+  CLASS_MXXMLWriter: TGUID = '{FC220AD8-A72A-4EE8-926E-0B7AD152A020}';
+  CLASS_MXXMLWriter30: TGUID = '{3D813DFE-6C91-4A4E-8F41-04346A841D9C}';
+  CLASS_MXXMLWriter40: TGUID = '{88D969C8-F192-11D4-A65F-0040963251E5}';
+  CLASS_MXHTMLWriter: TGUID = '{A4C23EC3-6B70-4466-9127-550077239978}';
+  CLASS_MXHTMLWriter30: TGUID = '{853D1540-C1A7-4AA9-A226-4D3BD301146D}';
+  CLASS_MXHTMLWriter40: TGUID = '{88D969C9-F192-11D4-A65F-0040963251E5}';
+  CLASS_SAXAttributes: TGUID = '{4DD441AD-526D-4A77-9F1B-9841ED802FB0}';
+  CLASS_SAXAttributes30: TGUID = '{3E784A01-F3AE-4DC0-9354-9526B9370EBA}';
+  CLASS_SAXAttributes40: TGUID = '{88D969CA-F192-11D4-A65F-0040963251E5}';
+  CLASS_MXNamespaceManager: TGUID = '{88D969D5-F192-11D4-A65F-0040963251E5}';
+  CLASS_MXNamespaceManager40: TGUID = '{88D969D6-F192-11D4-A65F-0040963251E5}';
+  CLASS_XMLDocument: TGUID = '{CFC399AF-D876-11D0-9C10-00C04FC99C8E}';
+
+// *********************************************************************//
+// Declaration of Enumerations defined in Type Library                    
+// *********************************************************************//
+// Constants for enum tagDOMNodeType
+type
+  tagDOMNodeType = TOleEnum;
+const
+  NODE_INVALID = $00000000;
+  NODE_ELEMENT = $00000001;
+  NODE_ATTRIBUTE = $00000002;
+  NODE_TEXT = $00000003;
+  NODE_CDATA_SECTION = $00000004;
+  NODE_ENTITY_REFERENCE = $00000005;
+  NODE_ENTITY = $00000006;
+  NODE_PROCESSING_INSTRUCTION = $00000007;
+  NODE_COMMENT = $00000008;
+  NODE_DOCUMENT = $00000009;
+  NODE_DOCUMENT_TYPE = $0000000A;
+  NODE_DOCUMENT_FRAGMENT = $0000000B;
+  NODE_NOTATION = $0000000C;
+
+// Constants for enum _SOMITEMTYPE
+type
+  _SOMITEMTYPE = TOleEnum;
+const
+  SOMITEM_SCHEMA = $00001000;
+  SOMITEM_ATTRIBUTE = $00001001;
+  SOMITEM_ATTRIBUTEGROUP = $00001002;
+  SOMITEM_NOTATION = $00001003;
+  SOMITEM_IDENTITYCONSTRAINT = $00001100;
+  SOMITEM_KEY = $00001101;
+  SOMITEM_KEYREF = $00001102;
+  SOMITEM_UNIQUE = $00001103;
+  SOMITEM_ANYTYPE = $00002000;
+  SOMITEM_DATATYPE = $00002100;
+  SOMITEM_DATATYPE_ANYTYPE = $00002101;
+  SOMITEM_DATATYPE_ANYURI = $00002102;
+  SOMITEM_DATATYPE_BASE64BINARY = $00002103;
+  SOMITEM_DATATYPE_BOOLEAN = $00002104;
+  SOMITEM_DATATYPE_BYTE = $00002105;
+  SOMITEM_DATATYPE_DATE = $00002106;
+  SOMITEM_DATATYPE_DATETIME = $00002107;
+  SOMITEM_DATATYPE_DAY = $00002108;
+  SOMITEM_DATATYPE_DECIMAL = $00002109;
+  SOMITEM_DATATYPE_DOUBLE = $0000210A;
+  SOMITEM_DATATYPE_DURATION = $0000210B;
+  SOMITEM_DATATYPE_ENTITIES = $0000210C;
+  SOMITEM_DATATYPE_ENTITY = $0000210D;
+  SOMITEM_DATATYPE_FLOAT = $0000210E;
+  SOMITEM_DATATYPE_HEXBINARY = $0000210F;
+  SOMITEM_DATATYPE_ID = $00002110;
+  SOMITEM_DATATYPE_IDREF = $00002111;
+  SOMITEM_DATATYPE_IDREFS = $00002112;
+  SOMITEM_DATATYPE_INT = $00002113;
+  SOMITEM_DATATYPE_INTEGER = $00002114;
+  SOMITEM_DATATYPE_LANGUAGE = $00002115;
+  SOMITEM_DATATYPE_LONG = $00002116;
+  SOMITEM_DATATYPE_MONTH = $00002117;
+  SOMITEM_DATATYPE_MONTHDAY = $00002118;
+  SOMITEM_DATATYPE_NAME = $00002119;
+  SOMITEM_DATATYPE_NCNAME = $0000211A;
+  SOMITEM_DATATYPE_NEGATIVEINTEGER = $0000211B;
+  SOMITEM_DATATYPE_NMTOKEN = $0000211C;
+  SOMITEM_DATATYPE_NMTOKENS = $0000211D;
+  SOMITEM_DATATYPE_NONNEGATIVEINTEGER = $0000211E;
+  SOMITEM_DATATYPE_NONPOSITIVEINTEGER = $0000211F;
+  SOMITEM_DATATYPE_NORMALIZEDSTRING = $00002120;
+  SOMITEM_DATATYPE_NOTATION = $00002121;
+  SOMITEM_DATATYPE_POSITIVEINTEGER = $00002122;
+  SOMITEM_DATATYPE_QNAME = $00002123;
+  SOMITEM_DATATYPE_SHORT = $00002124;
+  SOMITEM_DATATYPE_STRING = $00002125;
+  SOMITEM_DATATYPE_TIME = $00002126;
+  SOMITEM_DATATYPE_TOKEN = $00002127;
+  SOMITEM_DATATYPE_UNSIGNEDBYTE = $00002128;
+  SOMITEM_DATATYPE_UNSIGNEDINT = $00002129;
+  SOMITEM_DATATYPE_UNSIGNEDLONG = $0000212A;
+  SOMITEM_DATATYPE_UNSIGNEDSHORT = $0000212B;
+  SOMITEM_DATATYPE_YEAR = $0000212C;
+  SOMITEM_DATATYPE_YEARMONTH = $0000212D;
+  SOMITEM_DATATYPE_ANYSIMPLETYPE = $000021FF;
+  SOMITEM_SIMPLETYPE = $00002200;
+  SOMITEM_COMPLEXTYPE = $00002400;
+  SOMITEM_PARTICLE = $00004000;
+  SOMITEM_ANY = $00004001;
+  SOMITEM_ANYATTRIBUTE = $00004002;
+  SOMITEM_ELEMENT = $00004003;
+  SOMITEM_GROUP = $00004100;
+  SOMITEM_ALL = $00004101;
+  SOMITEM_CHOICE = $00004102;
+  SOMITEM_SEQUENCE = $00004103;
+  SOMITEM_EMPTYPARTICLE = $00004104;
+  SOMITEM_NULL = $00000800;
+  SOMITEM_NULL_TYPE = $00002800;
+  SOMITEM_NULL_ANY = $00004801;
+  SOMITEM_NULL_ANYATTRIBUTE = $00004802;
+  SOMITEM_NULL_ELEMENT = $00004803;
+
+// Constants for enum _SCHEMADERIVATIONMETHOD
+type
+  _SCHEMADERIVATIONMETHOD = TOleEnum;
+const
+  SCHEMADERIVATIONMETHOD_EMPTY = $00000000;
+  SCHEMADERIVATIONMETHOD_SUBSTITUTION = $00000001;
+  SCHEMADERIVATIONMETHOD_EXTENSION = $00000002;
+  SCHEMADERIVATIONMETHOD_RESTRICTION = $00000004;
+  SCHEMADERIVATIONMETHOD_LIST = $00000008;
+  SCHEMADERIVATIONMETHOD_UNION = $00000010;
+  SCHEMADERIVATIONMETHOD_ALL = $000000FF;
+  SCHEMADERIVATIONMETHOD_NONE = $00000100;
+
+// Constants for enum _SCHEMATYPEVARIETY
+type
+  _SCHEMATYPEVARIETY = TOleEnum;
+const
+  SCHEMATYPEVARIETY_NONE = $FFFFFFFF;
+  SCHEMATYPEVARIETY_ATOMIC = $00000000;
+  SCHEMATYPEVARIETY_LIST = $00000001;
+  SCHEMATYPEVARIETY_UNION = $00000002;
+
+// Constants for enum _SCHEMAWHITESPACE
+type
+  _SCHEMAWHITESPACE = TOleEnum;
+const
+  SCHEMAWHITESPACE_NONE = $FFFFFFFF;
+  SCHEMAWHITESPACE_PRESERVE = $00000000;
+  SCHEMAWHITESPACE_REPLACE = $00000001;
+  SCHEMAWHITESPACE_COLLAPSE = $00000002;
+
+// Constants for enum _SCHEMAPROCESSCONTENTS
+type
+  _SCHEMAPROCESSCONTENTS = TOleEnum;
+const
+  SCHEMAPROCESSCONTENTS_NONE = $00000000;
+  SCHEMAPROCESSCONTENTS_SKIP = $00000001;
+  SCHEMAPROCESSCONTENTS_LAX = $00000002;
+  SCHEMAPROCESSCONTENTS_STRICT = $00000003;
+
+// Constants for enum _SCHEMACONTENTTYPE
+type
+  _SCHEMACONTENTTYPE = TOleEnum;
+const
+  SCHEMACONTENTTYPE_EMPTY = $00000000;
+  SCHEMACONTENTTYPE_TEXTONLY = $00000001;
+  SCHEMACONTENTTYPE_ELEMENTONLY = $00000002;
+  SCHEMACONTENTTYPE_MIXED = $00000003;
+
+// Constants for enum _SCHEMAUSE
+type
+  _SCHEMAUSE = TOleEnum;
+const
+  SCHEMAUSE_OPTIONAL = $00000000;
+  SCHEMAUSE_PROHIBITED = $00000001;
+  SCHEMAUSE_REQUIRED = $00000002;
+
+// Constants for enum tagXMLEMEM_TYPE
+type
+  tagXMLEMEM_TYPE = TOleEnum;
+const
+  XMLELEMTYPE_ELEMENT = $00000000;
+  XMLELEMTYPE_TEXT = $00000001;
+  XMLELEMTYPE_COMMENT = $00000002;
+  XMLELEMTYPE_DOCUMENT = $00000003;
+  XMLELEMTYPE_DTD = $00000004;
+  XMLELEMTYPE_PI = $00000005;
+  XMLELEMTYPE_OTHER = $00000006;
+
+// Constants for enum _SERVERXMLHTTP_OPTION
+type
+  _SERVERXMLHTTP_OPTION = TOleEnum;
+const
+  SXH_OPTION_URL = $FFFFFFFF;
+  SXH_OPTION_URL_CODEPAGE = $00000000;
+  SXH_OPTION_ESCAPE_PERCENT_IN_URL = $00000001;
+  SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS = $00000002;
+  SXH_OPTION_SELECT_CLIENT_SSL_CERT = $00000003;
+
+// Constants for enum _SXH_SERVER_CERT_OPTION
+type
+  _SXH_SERVER_CERT_OPTION = TOleEnum;
+const
+  SXH_SERVER_CERT_IGNORE_UNKNOWN_CA = $00000100;
+  SXH_SERVER_CERT_IGNORE_WRONG_USAGE = $00000200;
+  SXH_SERVER_CERT_IGNORE_CERT_CN_INVALID = $00001000;
+  SXH_SERVER_CERT_IGNORE_CERT_DATE_INVALID = $00002000;
+  SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = $00003300;
+
+// Constants for enum _SXH_PROXY_SETTING
+type
+  _SXH_PROXY_SETTING = TOleEnum;
+const
+  SXH_PROXY_SET_DEFAULT = $00000000;
+  SXH_PROXY_SET_PRECONFIG = $00000000;
+  SXH_PROXY_SET_DIRECT = $00000001;
+  SXH_PROXY_SET_PROXY = $00000002;
+
+type
+
+// *********************************************************************//
+// Forward declaration of types defined in TypeLibrary                    
+// *********************************************************************//
+  IXMLDOMImplementation = interface;
+  IXMLDOMNode = interface;
+  IXMLDOMNodeList = interface;
+  IXMLDOMNamedNodeMap = interface;
+  IXMLDOMDocument = interface;
+  IXMLDOMDocumentType = interface;
+  IXMLDOMElement = interface;
+  IXMLDOMAttribute = interface;
+  IXMLDOMDocumentFragment = interface;
+  IXMLDOMCharacterData = interface;
+  IXMLDOMText = interface;
+  IXMLDOMComment = interface;
+  IXMLDOMCDATASection = interface;
+  IXMLDOMProcessingInstruction = interface;
+  IXMLDOMEntityReference = interface;
+  IXMLDOMParseError = interface;
+  IXMLDOMDocument2 = interface;
+  IXMLDOMSchemaCollection = interface;
+  IXMLDOMNotation = interface;
+  IXMLDOMEntity = interface;
+  IXTLRuntime = interface;
+  IXSLTemplate = interface;
+  IXSLProcessor = interface;
+  ISAXXMLReader = interface;
+  ISAXEntityResolver = interface;
+  ISAXContentHandler = interface;
+  ISAXLocator = interface;
+  ISAXAttributes = interface;
+  ISAXDTDHandler = interface;
+  ISAXErrorHandler = interface;
+  ISAXXMLFilter = interface;
+  ISAXLexicalHandler = interface;
+  ISAXDeclHandler = interface;
+  IVBSAXXMLReader = interface;
+  IVBSAXEntityResolver = interface;
+  IVBSAXContentHandler = interface;
+  IVBSAXLocator = interface;
+  IVBSAXAttributes = interface;
+  IVBSAXDTDHandler = interface;
+  IVBSAXErrorHandler = interface;
+  IVBSAXXMLFilter = interface;
+  IVBSAXLexicalHandler = interface;
+  IVBSAXDeclHandler = interface;
+  IMXWriter = interface;
+  IMXAttributes = interface;
+  IMXReaderControl = interface;
+  IMXSchemaDeclHandler = interface;
+  ISchemaItem = interface;
+  ISchemaParticle = interface;
+  ISchemaElement = interface;
+  ISchema = interface;
+  ISchemaItemCollection = interface;
+  ISchemaStringCollection = interface;
+  ISchemaType = interface;
+  ISchemaComplexType = interface;
+  ISchemaAny = interface;
+  ISchemaModelGroup = interface;
+  IXMLDOMSchemaCollection2 = interface;
+  ISchemaAttribute = interface;
+  ISchemaAttributeGroup = interface;
+  ISchemaIdentityConstraint = interface;
+  ISchemaNotation = interface;
+  IXMLElementCollection = interface;
+  IXMLDocument = interface;
+  IXMLElement = interface;
+  IXMLDocument2 = interface;
+  IXMLElement2 = interface;
+  IXMLAttribute = interface;
+  IXMLError = interface;
+  IXMLDOMSelection = interface;
+  IDSOControl = interface;
+  IXMLHTTPRequest = interface;
+  IServerXMLHTTPRequest = interface;
+  IServerXMLHTTPRequest2 = interface;
+  IMXNamespacePrefixes = interface;
+  IVBMXNamespaceManager = interface;
+  IMXNamespaceManager = interface;
+
+// *********************************************************************//
+// Declaration of CoClasses defined in Type Library                       
+// (NOTE: Here we map each CoClass to its Default Interface)              
+// *********************************************************************//
+  DOMDocument = IXMLDOMDocument2;
+  DOMDocument26 = IXMLDOMDocument2;
+  DOMDocument30 = IXMLDOMDocument2;
+  DOMDocument40 = IXMLDOMDocument2;
+  FreeThreadedDOMDocument = IXMLDOMDocument2;
+  FreeThreadedDOMDocument26 = IXMLDOMDocument2;
+  FreeThreadedDOMDocument30 = IXMLDOMDocument2;
+  FreeThreadedDOMDocument40 = IXMLDOMDocument2;
+  XMLSchemaCache = IXMLDOMSchemaCollection;
+  XMLSchemaCache26 = IXMLDOMSchemaCollection;
+  XMLSchemaCache30 = IXMLDOMSchemaCollection;
+  XMLSchemaCache40 = IXMLDOMSchemaCollection2;
+  XSLTemplate = IXSLTemplate;
+  XSLTemplate26 = IXSLTemplate;
+  XSLTemplate30 = IXSLTemplate;
+  XSLTemplate40 = IXSLTemplate;
+  DSOControl = IDSOControl;
+  DSOControl26 = IDSOControl;
+  DSOControl30 = IDSOControl;
+  DSOControl40 = IDSOControl;
+  XMLHTTP = IXMLHTTPRequest;
+  XMLHTTP26 = IXMLHTTPRequest;
+  XMLHTTP30 = IXMLHTTPRequest;
+  XMLHTTP40 = IXMLHTTPRequest;
+  ServerXMLHTTP = IServerXMLHTTPRequest2;
+  ServerXMLHTTP30 = IServerXMLHTTPRequest2;
+  ServerXMLHTTP40 = IServerXMLHTTPRequest2;
+  SAXXMLReader = IVBSAXXMLReader;
+  SAXXMLReader30 = IVBSAXXMLReader;
+  SAXXMLReader40 = IVBSAXXMLReader;
+  MXXMLWriter = IMXWriter;
+  MXXMLWriter30 = IMXWriter;
+  MXXMLWriter40 = IMXWriter;
+  MXHTMLWriter = IMXWriter;
+  MXHTMLWriter30 = IMXWriter;
+  MXHTMLWriter40 = IMXWriter;
+  SAXAttributes = IMXAttributes;
+  SAXAttributes30 = IMXAttributes;
+  SAXAttributes40 = IMXAttributes;
+  MXNamespaceManager = IVBMXNamespaceManager;
+  MXNamespaceManager40 = IVBMXNamespaceManager;
+  XMLDocument = IXMLDocument2;
+
+
+// *********************************************************************//
+// Declaration of structures, unions and aliases.                         
+// *********************************************************************//
+  PWord1 = ^Word; {*}
+  PUserType1 = ^_xml_error; {*}
+
+  DOMNodeType = tagDOMNodeType; 
+  SOMITEMTYPE = _SOMITEMTYPE; 
+  SCHEMADERIVATIONMETHOD = _SCHEMADERIVATIONMETHOD; 
+  SCHEMATYPEVARIETY = _SCHEMATYPEVARIETY; 
+  SCHEMAWHITESPACE = _SCHEMAWHITESPACE; 
+  SCHEMAPROCESSCONTENTS = _SCHEMAPROCESSCONTENTS; 
+  SCHEMACONTENTTYPE = _SCHEMACONTENTTYPE; 
+  SCHEMAUSE = _SCHEMAUSE; 
+
+  _xml_error = packed record
+    _nLine: SYSUINT;
+    _pchBuf: WideString;
+    _cchBuf: SYSUINT;
+    _ich: SYSUINT;
+    _pszFound: WideString;
+    _pszExpected: WideString;
+    _reserved1: LongWord;
+    _reserved2: LongWord;
+  end;
+
+  XMLELEM_TYPE = tagXMLEMEM_TYPE; 
+  SERVERXMLHTTP_OPTION = _SERVERXMLHTTP_OPTION; 
+  SXH_SERVER_CERT_OPTION = _SXH_SERVER_CERT_OPTION; 
+  SXH_PROXY_SETTING = _SXH_PROXY_SETTING; 
+
+// *********************************************************************//
+// Interface: IXMLDOMImplementation
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF8F-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMImplementation = interface(IDispatch)
+    ['{2933BF8F-7B36-11D2-B20E-00C04F983E60}']
+    function hasFeature(const feature: WideString; const version: WideString): WordBool; safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMNode
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF80-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMNode = interface(IDispatch)
+    ['{2933BF80-7B36-11D2-B20E-00C04F983E60}']
+    function Get_nodeName: WideString; safecall;
+    function Get_nodeValue: OleVariant; safecall;
+    procedure Set_nodeValue(value: OleVariant); safecall;
+    function Get_nodeType: DOMNodeType; safecall;
+    function Get_parentNode: IXMLDOMNode; safecall;
+    function Get_childNodes: IXMLDOMNodeList; safecall;
+    function Get_firstChild: IXMLDOMNode; safecall;
+    function Get_lastChild: IXMLDOMNode; safecall;
+    function Get_previousSibling: IXMLDOMNode; safecall;
+    function Get_nextSibling: IXMLDOMNode; safecall;
+    function Get_attributes: IXMLDOMNamedNodeMap; safecall;
+    function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; safecall;
+    function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; safecall;
+    function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; safecall;
+    function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; safecall;
+    function hasChildNodes: WordBool; safecall;
+    function Get_ownerDocument: IXMLDOMDocument; safecall;
+    function cloneNode(deep: WordBool): IXMLDOMNode; safecall;
+    function Get_nodeTypeString: WideString; safecall;
+    function Get_text: WideString; safecall;
+    procedure Set_text(const text: WideString); safecall;
+    function Get_specified: WordBool; safecall;
+    function Get_definition: IXMLDOMNode; safecall;
+    function Get_nodeTypedValue: OleVariant; safecall;
+    procedure Set_nodeTypedValue(typedValue: OleVariant); safecall;
+    function Get_dataType: OleVariant; safecall;
+    procedure Set_dataType(const dataTypeName: WideString); safecall;
+    function Get_xml: WideString; safecall;
+    function transformNode(const stylesheet: IXMLDOMNode): WideString; safecall;
+    function selectNodes(const queryString: WideString): IXMLDOMNodeList; safecall;
+    function selectSingleNode(const queryString: WideString): IXMLDOMNode; safecall;
+    function Get_parsed: WordBool; safecall;
+    function Get_namespaceURI: WideString; safecall;
+    function Get_prefix: WideString; safecall;
+    function Get_baseName: WideString; safecall;
+    procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); safecall;
+    property nodeName: WideString read Get_nodeName;
+    property nodeValue: OleVariant read Get_nodeValue write Set_nodeValue;
+    property nodeType: DOMNodeType read Get_nodeType;
+    property parentNode: IXMLDOMNode read Get_parentNode;
+    property childNodes: IXMLDOMNodeList read Get_childNodes;
+    property firstChild: IXMLDOMNode read Get_firstChild;
+    property lastChild: IXMLDOMNode read Get_lastChild;
+    property previousSibling: IXMLDOMNode read Get_previousSibling;
+    property nextSibling: IXMLDOMNode read Get_nextSibling;
+    property attributes: IXMLDOMNamedNodeMap read Get_attributes;
+    property ownerDocument: IXMLDOMDocument read Get_ownerDocument;
+    property nodeTypeString: WideString read Get_nodeTypeString;
+    property text: WideString read Get_text write Set_text;
+    property specified: WordBool read Get_specified;
+    property definition: IXMLDOMNode read Get_definition;
+    property nodeTypedValue: OleVariant read Get_nodeTypedValue write Set_nodeTypedValue;
+    property xml: WideString read Get_xml;
+    property parsed: WordBool read Get_parsed;
+    property namespaceURI: WideString read Get_namespaceURI;
+    property prefix: WideString read Get_prefix;
+    property baseName: WideString read Get_baseName;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMNodeList
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF82-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMNodeList = interface(IDispatch)
+    ['{2933BF82-7B36-11D2-B20E-00C04F983E60}']
+    function Get_item(index: Integer): IXMLDOMNode; safecall;
+    function Get_length: Integer; safecall;
+    function nextNode: IXMLDOMNode; safecall;
+    procedure reset; safecall;
+    function Get__newEnum: IUnknown; safecall;
+    property item[index: Integer]: IXMLDOMNode read Get_item; default;
+    property length: Integer read Get_length;
+    property _newEnum: IUnknown read Get__newEnum;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMNamedNodeMap
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF83-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMNamedNodeMap = interface(IDispatch)
+    ['{2933BF83-7B36-11D2-B20E-00C04F983E60}']
+    function getNamedItem(const name: WideString): IXMLDOMNode; safecall;
+    function setNamedItem(const newItem: IXMLDOMNode): IXMLDOMNode; safecall;
+    function removeNamedItem(const name: WideString): IXMLDOMNode; safecall;
+    function Get_item(index: Integer): IXMLDOMNode; safecall;
+    function Get_length: Integer; safecall;
+    function getQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall;
+    function removeQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall;
+    function nextNode: IXMLDOMNode; safecall;
+    procedure reset; safecall;
+    function Get__newEnum: IUnknown; safecall;
+    property item[index: Integer]: IXMLDOMNode read Get_item; default;
+    property length: Integer read Get_length;
+    property _newEnum: IUnknown read Get__newEnum;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMDocument
+// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF81-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMDocument = interface(IXMLDOMNode)
+    ['{2933BF81-7B36-11D2-B20E-00C04F983E60}']
+    function Get_doctype: IXMLDOMDocumentType; safecall;
+    function Get_implementation_: IXMLDOMImplementation; safecall;
+    function Get_documentElement: IXMLDOMElement; safecall;
+    procedure _Set_documentElement(const DOMElement: IXMLDOMElement); safecall;
+    function createElement(const tagName: WideString): IXMLDOMElement; safecall;
+    function createDocumentFragment: IXMLDOMDocumentFragment; safecall;
+    function createTextNode(const data: WideString): IXMLDOMText; safecall;
+    function createComment(const data: WideString): IXMLDOMComment; safecall;
+    function createCDATASection(const data: WideString): IXMLDOMCDATASection; safecall;
+    function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; safecall;
+    function createAttribute(const name: WideString): IXMLDOMAttribute; safecall;
+    function createEntityReference(const name: WideString): IXMLDOMEntityReference; safecall;
+    function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; safecall;
+    function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall;
+    function nodeFromID(const idString: WideString): IXMLDOMNode; safecall;
+    function load(xmlSource: OleVariant): WordBool; safecall;
+    function Get_readyState: Integer; safecall;
+    function Get_parseError: IXMLDOMParseError; safecall;
+    function Get_url: WideString; safecall;
+    function Get_async: WordBool; safecall;
+    procedure Set_async(isAsync: WordBool); safecall;
+    procedure abort; safecall;
+    function loadXML(const bstrXML: WideString): WordBool; safecall;
+    procedure save(destination: OleVariant); safecall;
+    function Get_validateOnParse: WordBool; safecall;
+    procedure Set_validateOnParse(isValidating: WordBool); safecall;
+    function Get_resolveExternals: WordBool; safecall;
+    procedure Set_resolveExternals(isResolving: WordBool); safecall;
+    function Get_preserveWhiteSpace: WordBool; safecall;
+    procedure Set_preserveWhiteSpace(isPreserving: WordBool); safecall;
+    procedure Set_onreadystatechange(Param1: OleVariant); safecall;
+    procedure Set_ondataavailable(Param1: OleVariant); safecall;
+    procedure Set_ontransformnode(Param1: OleVariant); safecall;
+    property doctype: IXMLDOMDocumentType read Get_doctype;
+    property implementation_: IXMLDOMImplementation read Get_implementation_;
+    property documentElement: IXMLDOMElement read Get_documentElement write _Set_documentElement;
+    property readyState: Integer read Get_readyState;
+    property parseError: IXMLDOMParseError read Get_parseError;
+    property url: WideString read Get_url;
+    property async: WordBool read Get_async write Set_async;
+    property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
+    property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
+    property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
+    property onreadystatechange: OleVariant write Set_onreadystatechange;
+    property ondataavailable: OleVariant write Set_ondataavailable;
+    property ontransformnode: OleVariant write Set_ontransformnode;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMDocumentType
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF8B-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMDocumentType = interface(IXMLDOMNode)
+    ['{2933BF8B-7B36-11D2-B20E-00C04F983E60}']
+    function Get_name: WideString; safecall;
+    function Get_entities: IXMLDOMNamedNodeMap; safecall;
+    function Get_notations: IXMLDOMNamedNodeMap; safecall;
+    property name: WideString read Get_name;
+    property entities: IXMLDOMNamedNodeMap read Get_entities;
+    property notations: IXMLDOMNamedNodeMap read Get_notations;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMElement
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF86-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMElement = interface(IXMLDOMNode)
+    ['{2933BF86-7B36-11D2-B20E-00C04F983E60}']
+    function Get_tagName: WideString; safecall;
+    function getAttribute(const name: WideString): OleVariant; safecall;
+    procedure setAttribute(const name: WideString; value: OleVariant); safecall;
+    procedure removeAttribute(const name: WideString); safecall;
+    function getAttributeNode(const name: WideString): IXMLDOMAttribute; safecall;
+    function setAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; safecall;
+    function removeAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; safecall;
+    function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; safecall;
+    procedure normalize; safecall;
+    property tagName: WideString read Get_tagName;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMAttribute
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF85-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMAttribute = interface(IXMLDOMNode)
+    ['{2933BF85-7B36-11D2-B20E-00C04F983E60}']
+    function Get_name: WideString; safecall;
+    function Get_value: OleVariant; safecall;
+    procedure Set_value(attributeValue: OleVariant); safecall;
+    property name: WideString read Get_name;
+    property value: OleVariant read Get_value write Set_value;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMDocumentFragment
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {3EFAA413-272F-11D2-836F-0000F87A7782}
+// *********************************************************************//
+  IXMLDOMDocumentFragment = interface(IXMLDOMNode)
+    ['{3EFAA413-272F-11D2-836F-0000F87A7782}']
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMCharacterData
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF84-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMCharacterData = interface(IXMLDOMNode)
+    ['{2933BF84-7B36-11D2-B20E-00C04F983E60}']
+    function Get_data: WideString; safecall;
+    procedure Set_data(const data: WideString); safecall;
+    function Get_length: Integer; safecall;
+    function substringData(offset: Integer; count: Integer): WideString; safecall;
+    procedure appendData(const data: WideString); safecall;
+    procedure insertData(offset: Integer; const data: WideString); safecall;
+    procedure deleteData(offset: Integer; count: Integer); safecall;
+    procedure replaceData(offset: Integer; count: Integer; const data: WideString); safecall;
+    property data: WideString read Get_data write Set_data;
+    property length: Integer read Get_length;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMText
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF87-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMText = interface(IXMLDOMCharacterData)
+    ['{2933BF87-7B36-11D2-B20E-00C04F983E60}']
+    procedure GhostMethod_IXMLDOMText_0_1; safecall;
+    procedure GhostMethod_IXMLDOMText_4_2; safecall;
+    procedure GhostMethod_IXMLDOMText_8_3; safecall;
+    procedure GhostMethod_IXMLDOMText_12_4; safecall;
+    procedure GhostMethod_IXMLDOMText_16_5; safecall;
+    procedure GhostMethod_IXMLDOMText_20_6; safecall;
+    procedure GhostMethod_IXMLDOMText_24_7; safecall;
+    procedure GhostMethod_IXMLDOMText_28_8; safecall;
+    procedure GhostMethod_IXMLDOMText_32_9; safecall;
+    procedure GhostMethod_IXMLDOMText_36_10; safecall;
+    procedure GhostMethod_IXMLDOMText_40_11; safecall;
+    procedure GhostMethod_IXMLDOMText_44_12; safecall;
+    procedure GhostMethod_IXMLDOMText_48_13; safecall;
+    procedure GhostMethod_IXMLDOMText_52_14; safecall;
+    procedure GhostMethod_IXMLDOMText_56_15; safecall;
+    procedure GhostMethod_IXMLDOMText_60_16; safecall;
+    procedure GhostMethod_IXMLDOMText_64_17; safecall;
+    procedure GhostMethod_IXMLDOMText_68_18; safecall;
+    procedure GhostMethod_IXMLDOMText_72_19; safecall;
+    procedure GhostMethod_IXMLDOMText_76_20; safecall;
+    procedure GhostMethod_IXMLDOMText_80_21; safecall;
+    procedure GhostMethod_IXMLDOMText_84_22; safecall;
+    procedure GhostMethod_IXMLDOMText_88_23; safecall;
+    procedure GhostMethod_IXMLDOMText_92_24; safecall;
+    procedure GhostMethod_IXMLDOMText_96_25; safecall;
+    procedure GhostMethod_IXMLDOMText_100_26; safecall;
+    procedure GhostMethod_IXMLDOMText_104_27; safecall;
+    procedure GhostMethod_IXMLDOMText_108_28; safecall;
+    procedure GhostMethod_IXMLDOMText_112_29; safecall;
+    procedure GhostMethod_IXMLDOMText_116_30; safecall;
+    procedure GhostMethod_IXMLDOMText_120_31; safecall;
+    procedure GhostMethod_IXMLDOMText_124_32; safecall;
+    procedure GhostMethod_IXMLDOMText_128_33; safecall;
+    procedure GhostMethod_IXMLDOMText_132_34; safecall;
+    procedure GhostMethod_IXMLDOMText_136_35; safecall;
+    procedure GhostMethod_IXMLDOMText_140_36; safecall;
+    procedure GhostMethod_IXMLDOMText_144_37; safecall;
+    procedure GhostMethod_IXMLDOMText_148_38; safecall;
+    procedure GhostMethod_IXMLDOMText_152_39; safecall;
+    procedure GhostMethod_IXMLDOMText_156_40; safecall;
+    procedure GhostMethod_IXMLDOMText_160_41; safecall;
+    procedure GhostMethod_IXMLDOMText_164_42; safecall;
+    procedure GhostMethod_IXMLDOMText_168_43; safecall;
+    procedure GhostMethod_IXMLDOMText_172_44; safecall;
+    procedure GhostMethod_IXMLDOMText_176_45; safecall;
+    procedure GhostMethod_IXMLDOMText_180_46; safecall;
+    procedure GhostMethod_IXMLDOMText_184_47; safecall;
+    procedure GhostMethod_IXMLDOMText_188_48; safecall;
+    procedure GhostMethod_IXMLDOMText_192_49; safecall;
+    procedure GhostMethod_IXMLDOMText_196_50; safecall;
+    procedure GhostMethod_IXMLDOMText_200_51; safecall;
+    function splitText(offset: Integer): IXMLDOMText; safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMComment
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF88-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMComment = interface(IXMLDOMCharacterData)
+    ['{2933BF88-7B36-11D2-B20E-00C04F983E60}']
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMCDATASection
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF8A-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMCDATASection = interface(IXMLDOMText)
+    ['{2933BF8A-7B36-11D2-B20E-00C04F983E60}']
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMProcessingInstruction
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF89-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMProcessingInstruction = interface(IXMLDOMNode)
+    ['{2933BF89-7B36-11D2-B20E-00C04F983E60}']
+    function Get_target: WideString; safecall;
+    function Get_data: WideString; safecall;
+    procedure Set_data(const value: WideString); safecall;
+    property target: WideString read Get_target;
+    property data: WideString read Get_data write Set_data;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMEntityReference
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF8E-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMEntityReference = interface(IXMLDOMNode)
+    ['{2933BF8E-7B36-11D2-B20E-00C04F983E60}']
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMParseError
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {3EFAA426-272F-11D2-836F-0000F87A7782}
+// *********************************************************************//
+  IXMLDOMParseError = interface(IDispatch)
+    ['{3EFAA426-272F-11D2-836F-0000F87A7782}']
+    function Get_errorCode: Integer; safecall;
+    function Get_url: WideString; safecall;
+    function Get_reason: WideString; safecall;
+    function Get_srcText: WideString; safecall;
+    function Get_line: Integer; safecall;
+    function Get_linepos: Integer; safecall;
+    function Get_filepos: Integer; safecall;
+    property errorCode: Integer read Get_errorCode;
+    property url: WideString read Get_url;
+    property reason: WideString read Get_reason;
+    property srcText: WideString read Get_srcText;
+    property line: Integer read Get_line;
+    property linepos: Integer read Get_linepos;
+    property filepos: Integer read Get_filepos;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMDocument2
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF95-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMDocument2 = interface(IXMLDOMDocument)
+    ['{2933BF95-7B36-11D2-B20E-00C04F983E60}']
+    function Get_namespaces: IXMLDOMSchemaCollection; safecall;
+    function Get_schemas: OleVariant; safecall;
+    procedure _Set_schemas(otherCollection: OleVariant); safecall;
+    function validate: IXMLDOMParseError; safecall;
+    procedure setProperty(const name: WideString; value: OleVariant); safecall;
+    function getProperty(const name: WideString): OleVariant; safecall;
+    property namespaces: IXMLDOMSchemaCollection read Get_namespaces;
+    property schemas: OleVariant read Get_schemas write _Set_schemas;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMSchemaCollection
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {373984C8-B845-449B-91E7-45AC83036ADE}
+// *********************************************************************//
+  IXMLDOMSchemaCollection = interface(IDispatch)
+    ['{373984C8-B845-449B-91E7-45AC83036ADE}']
+    procedure add(const namespaceURI: WideString; var_: OleVariant); safecall;
+    function get(const namespaceURI: WideString): IXMLDOMNode; safecall;
+    procedure remove(const namespaceURI: WideString); safecall;
+    function Get_length: Integer; safecall;
+    function Get_namespaceURI(index: Integer): WideString; safecall;
+    procedure addCollection(const otherCollection: IXMLDOMSchemaCollection); safecall;
+    function Get__newEnum: IUnknown; safecall;
+    property length: Integer read Get_length;
+    property namespaceURI[index: Integer]: WideString read Get_namespaceURI; default;
+    property _newEnum: IUnknown read Get__newEnum;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMNotation
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF8C-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMNotation = interface(IXMLDOMNode)
+    ['{2933BF8C-7B36-11D2-B20E-00C04F983E60}']
+    function Get_publicId: OleVariant; safecall;
+    function Get_systemId: OleVariant; safecall;
+    property publicId: OleVariant read Get_publicId;
+    property systemId: OleVariant read Get_systemId;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMEntity
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF8D-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXMLDOMEntity = interface(IXMLDOMNode)
+    ['{2933BF8D-7B36-11D2-B20E-00C04F983E60}']
+    function Get_publicId: OleVariant; safecall;
+    function Get_systemId: OleVariant; safecall;
+    function Get_notationName: WideString; safecall;
+    property publicId: OleVariant read Get_publicId;
+    property systemId: OleVariant read Get_systemId;
+    property notationName: WideString read Get_notationName;
+  end;
+
+// *********************************************************************//
+// Interface: IXTLRuntime
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {3EFAA425-272F-11D2-836F-0000F87A7782}
+// *********************************************************************//
+  IXTLRuntime = interface(IXMLDOMNode)
+    ['{3EFAA425-272F-11D2-836F-0000F87A7782}']
+    function uniqueID(const pNode: IXMLDOMNode): Integer; safecall;
+    function depth(const pNode: IXMLDOMNode): Integer; safecall;
+    function childNumber(const pNode: IXMLDOMNode): Integer; safecall;
+    function ancestorChildNumber(const bstrNodeName: WideString; const pNode: IXMLDOMNode): Integer; safecall;
+    function absoluteChildNumber(const pNode: IXMLDOMNode): Integer; safecall;
+    function formatIndex(lIndex: Integer; const bstrFormat: WideString): WideString; safecall;
+    function formatNumber(dblNumber: Double; const bstrFormat: WideString): WideString; safecall;
+    function formatDate(varDate: OleVariant; const bstrFormat: WideString; varDestLocale: OleVariant): WideString; safecall;
+    function formatTime(varTime: OleVariant; const bstrFormat: WideString; varDestLocale: OleVariant): WideString; safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IXSLTemplate
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF93-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXSLTemplate = interface(IDispatch)
+    ['{2933BF93-7B36-11D2-B20E-00C04F983E60}']
+    procedure _Set_stylesheet(const stylesheet: IXMLDOMNode); safecall;
+    function Get_stylesheet: IXMLDOMNode; safecall;
+    function createProcessor: IXSLProcessor; safecall;
+    property stylesheet: IXMLDOMNode read Get_stylesheet write _Set_stylesheet;
+  end;
+
+// *********************************************************************//
+// Interface: IXSLProcessor
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2933BF92-7B36-11D2-B20E-00C04F983E60}
+// *********************************************************************//
+  IXSLProcessor = interface(IDispatch)
+    ['{2933BF92-7B36-11D2-B20E-00C04F983E60}']
+    procedure Set_input(pVar: OleVariant); safecall;
+    function Get_input: OleVariant; safecall;
+    function Get_ownerTemplate: IXSLTemplate; safecall;
+    procedure setStartMode(const mode: WideString; const namespaceURI: WideString); safecall;
+    function Get_startMode: WideString; safecall;
+    function Get_startModeURI: WideString; safecall;
+    procedure Set_output(pOutput: OleVariant); safecall;
+    function Get_output: OleVariant; safecall;
+    function transform: WordBool; safecall;
+    procedure reset; safecall;
+    function Get_readyState: Integer; safecall;
+    procedure addParameter(const baseName: WideString; parameter: OleVariant;
+                           const namespaceURI: WideString); safecall;
+    procedure addObject(const obj: IDispatch; const namespaceURI: WideString); safecall;
+    function Get_stylesheet: IXMLDOMNode; safecall;
+    property input: OleVariant read Get_input write Set_input;
+    property ownerTemplate: IXSLTemplate read Get_ownerTemplate;
+    property startMode: WideString read Get_startMode;
+    property startModeURI: WideString read Get_startModeURI;
+    property output: OleVariant read Get_output write Set_output;
+    property readyState: Integer read Get_readyState;
+    property stylesheet: IXMLDOMNode read Get_stylesheet;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXXMLReader
+// Flags:     (16) Hidden
+// GUID:      {A4F96ED0-F829-476E-81C0-CDC7BD2A0802}
+// *********************************************************************//
+  ISAXXMLReader = interface(IUnknown)
+    ['{A4F96ED0-F829-476E-81C0-CDC7BD2A0802}']
+    function getFeature(var pwchName: Word; out pvfValue: WordBool): HResult; stdcall;
+    function putFeature(var pwchName: Word; vfValue: WordBool): HResult; stdcall;
+    function getProperty(var pwchName: Word; out pvarValue: OleVariant): HResult; stdcall;
+    function putProperty(var pwchName: Word; varValue: OleVariant): HResult; stdcall;
+    function getEntityResolver(out ppResolver: ISAXEntityResolver): HResult; stdcall;
+    function putEntityResolver(const pResolver: ISAXEntityResolver): HResult; stdcall;
+    function getContentHandler(out ppHandler: ISAXContentHandler): HResult; stdcall;
+    function putContentHandler(const pHandler: ISAXContentHandler): HResult; stdcall;
+    function getDTDHandler(out ppHandler: ISAXDTDHandler): HResult; stdcall;
+    function putDTDHandler(const pHandler: ISAXDTDHandler): HResult; stdcall;
+    function getErrorHandler(out ppHandler: ISAXErrorHandler): HResult; stdcall;
+    function putErrorHandler(const pHandler: ISAXErrorHandler): HResult; stdcall;
+    function getBaseURL(out ppwchBaseUrl: PWord1): HResult; stdcall;
+    function putBaseURL(var pwchBaseUrl: Word): HResult; stdcall;
+    function getSecureBaseURL(out ppwchSecureBaseUrl: PWord1): HResult; stdcall;
+    function putSecureBaseURL(var pwchSecureBaseUrl: Word): HResult; stdcall;
+    function parse(varInput: OleVariant): HResult; stdcall;
+    function parseURL(var pwchUrl: Word): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXEntityResolver
+// Flags:     (16) Hidden
+// GUID:      {99BCA7BD-E8C4-4D5F-A0CF-6D907901FF07}
+// *********************************************************************//
+  ISAXEntityResolver = interface(IUnknown)
+    ['{99BCA7BD-E8C4-4D5F-A0CF-6D907901FF07}']
+    function resolveEntity(var pwchPublicId: Word; var pwchSystemId: Word; out pvarInput: OleVariant): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXContentHandler
+// Flags:     (16) Hidden
+// GUID:      {1545CDFA-9E4E-4497-A8A4-2BF7D0112C44}
+// *********************************************************************//
+  ISAXContentHandler = interface(IUnknown)
+    ['{1545CDFA-9E4E-4497-A8A4-2BF7D0112C44}']
+    function putDocumentLocator(const pLocator: ISAXLocator): HResult; stdcall;
+    function startDocument: HResult; stdcall;
+    function endDocument: HResult; stdcall;
+    function startPrefixMapping(var pwchPrefix: Word; cchPrefix: SYSINT; var pwchUri: Word; 
+                                cchUri: SYSINT): HResult; stdcall;
+    function endPrefixMapping(var pwchPrefix: Word; cchPrefix: SYSINT): HResult; stdcall;
+    function startElement(var pwchNamespaceUri: Word; cchNamespaceUri: SYSINT; 
+                          var pwchLocalName: Word; cchLocalName: SYSINT; var pwchQName: Word; 
+                          cchQName: SYSINT; const pAttributes: ISAXAttributes): HResult; stdcall;
+    function endElement(var pwchNamespaceUri: Word; cchNamespaceUri: SYSINT; 
+                        var pwchLocalName: Word; cchLocalName: SYSINT; var pwchQName: Word; 
+                        cchQName: SYSINT): HResult; stdcall;
+    function characters(var pwchChars: Word; cchChars: SYSINT): HResult; stdcall;
+    function ignorableWhitespace(var pwchChars: Word; cchChars: SYSINT): HResult; stdcall;
+    function processingInstruction(var pwchTarget: Word; cchTarget: SYSINT; var pwchData: Word; 
+                                   cchData: SYSINT): HResult; stdcall;
+    function skippedEntity(var pwchName: Word; cchName: SYSINT): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXLocator
+// Flags:     (16) Hidden
+// GUID:      {9B7E472A-0DE4-4640-BFF3-84D38A051C31}
+// *********************************************************************//
+  ISAXLocator = interface(IUnknown)
+    ['{9B7E472A-0DE4-4640-BFF3-84D38A051C31}']
+    function getColumnNumber(out pnColumn: SYSINT): HResult; stdcall;
+    function getLineNumber(out pnLine: SYSINT): HResult; stdcall;
+    function getPublicId(out ppwchPublicId: PWord1): HResult; stdcall;
+    function getSystemId(out ppwchSystemId: PWord1): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXAttributes
+// Flags:     (16) Hidden
+// GUID:      {F078ABE1-45D2-4832-91EA-4466CE2F25C9}
+// *********************************************************************//
+  ISAXAttributes = interface(IUnknown)
+    ['{F078ABE1-45D2-4832-91EA-4466CE2F25C9}']
+    function getLength(out pnLength: SYSINT): HResult; stdcall;
+    function getURI(nIndex: SYSINT; out ppwchUri: PWord1; out pcchUri: SYSINT): HResult; stdcall;
+    function getLocalName(nIndex: SYSINT; out ppwchLocalName: PWord1; out pcchLocalName: SYSINT): HResult; stdcall;
+    function getQName(nIndex: SYSINT; out ppwchQName: PWord1; out pcchQName: SYSINT): HResult; stdcall;
+    function getName(nIndex: SYSINT; out ppwchUri: PWord1; out pcchUri: SYSINT; 
+                     out ppwchLocalName: PWord1; out pcchLocalName: SYSINT; out ppwchQName: PWord1; 
+                     out pcchQName: SYSINT): HResult; stdcall;
+    function getIndexFromName(var pwchUri: Word; cchUri: SYSINT; var pwchLocalName: Word; 
+                              cchLocalName: SYSINT; out pnIndex: SYSINT): HResult; stdcall;
+    function getIndexFromQName(var pwchQName: Word; cchQName: SYSINT; out pnIndex: SYSINT): HResult; stdcall;
+    function getType(nIndex: SYSINT; out ppwchType: PWord1; out pcchType: SYSINT): HResult; stdcall;
+    function getTypeFromName(var pwchUri: Word; cchUri: SYSINT; var pwchLocalName: Word; 
+                             cchLocalName: SYSINT; out ppwchType: PWord1; out pcchType: SYSINT): HResult; stdcall;
+    function getTypeFromQName(var pwchQName: Word; cchQName: SYSINT; out ppwchType: PWord1; 
+                              out pcchType: SYSINT): HResult; stdcall;
+    function getValue(nIndex: SYSINT; out ppwchValue: PWord1; out pcchValue: SYSINT): HResult; stdcall;
+    function getValueFromName(var pwchUri: Word; cchUri: SYSINT; var pwchLocalName: Word; 
+                              cchLocalName: SYSINT; out ppwchValue: PWord1; out pcchValue: SYSINT): HResult; stdcall;
+    function getValueFromQName(var pwchQName: Word; cchQName: SYSINT; out ppwchValue: PWord1; 
+                               out pcchValue: SYSINT): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXDTDHandler
+// Flags:     (16) Hidden
+// GUID:      {E15C1BAF-AFB3-4D60-8C36-19A8C45DEFED}
+// *********************************************************************//
+  ISAXDTDHandler = interface(IUnknown)
+    ['{E15C1BAF-AFB3-4D60-8C36-19A8C45DEFED}']
+    function notationDecl(var pwchName: Word; cchName: SYSINT; var pwchPublicId: Word; 
+                          cchPublicId: SYSINT; var pwchSystemId: Word; cchSystemId: SYSINT): HResult; stdcall;
+    function unparsedEntityDecl(var pwchName: Word; cchName: SYSINT; var pwchPublicId: Word; 
+                                cchPublicId: SYSINT; var pwchSystemId: Word; cchSystemId: SYSINT; 
+                                var pwchNotationName: Word; cchNotationName: SYSINT): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXErrorHandler
+// Flags:     (16) Hidden
+// GUID:      {A60511C4-CCF5-479E-98A3-DC8DC545B7D0}
+// *********************************************************************//
+  ISAXErrorHandler = interface(IUnknown)
+    ['{A60511C4-CCF5-479E-98A3-DC8DC545B7D0}']
+    function error(const pLocator: ISAXLocator; var pwchErrorMessage: Word; hrErrorCode: HResult): HResult; stdcall;
+    function fatalError(const pLocator: ISAXLocator; var pwchErrorMessage: Word; 
+                        hrErrorCode: HResult): HResult; stdcall;
+    function ignorableWarning(const pLocator: ISAXLocator; var pwchErrorMessage: Word; 
+                              hrErrorCode: HResult): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXXMLFilter
+// Flags:     (16) Hidden
+// GUID:      {70409222-CA09-4475-ACB8-40312FE8D145}
+// *********************************************************************//
+  ISAXXMLFilter = interface(ISAXXMLReader)
+    ['{70409222-CA09-4475-ACB8-40312FE8D145}']
+    function getParent(out ppReader: ISAXXMLReader): HResult; stdcall;
+    function putParent(const pReader: ISAXXMLReader): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXLexicalHandler
+// Flags:     (16) Hidden
+// GUID:      {7F85D5F5-47A8-4497-BDA5-84BA04819EA6}
+// *********************************************************************//
+  ISAXLexicalHandler = interface(IUnknown)
+    ['{7F85D5F5-47A8-4497-BDA5-84BA04819EA6}']
+    function startDTD(var pwchName: Word; cchName: SYSINT; var pwchPublicId: Word; 
+                      cchPublicId: SYSINT; var pwchSystemId: Word; cchSystemId: SYSINT): HResult; stdcall;
+    function endDTD: HResult; stdcall;
+    function startEntity(var pwchName: Word; cchName: SYSINT): HResult; stdcall;
+    function endEntity(var pwchName: Word; cchName: SYSINT): HResult; stdcall;
+    function startCDATA: HResult; stdcall;
+    function endCDATA: HResult; stdcall;
+    function comment(var pwchChars: Word; cchChars: SYSINT): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: ISAXDeclHandler
+// Flags:     (16) Hidden
+// GUID:      {862629AC-771A-47B2-8337-4E6843C1BE90}
+// *********************************************************************//
+  ISAXDeclHandler = interface(IUnknown)
+    ['{862629AC-771A-47B2-8337-4E6843C1BE90}']
+    function elementDecl(var pwchName: Word; cchName: SYSINT; var pwchModel: Word; cchModel: SYSINT): HResult; stdcall;
+    function attributeDecl(var pwchElementName: Word; cchElementName: SYSINT; 
+                           var pwchAttributeName: Word; cchAttributeName: SYSINT; 
+                           var pwchType: Word; cchType: SYSINT; var pwchValueDefault: Word; 
+                           cchValueDefault: SYSINT; var pwchValue: Word; cchValue: SYSINT): HResult; stdcall;
+    function internalEntityDecl(var pwchName: Word; cchName: SYSINT; var pwchValue: Word; 
+                                cchValue: SYSINT): HResult; stdcall;
+    function externalEntityDecl(var pwchName: Word; cchName: SYSINT; var pwchPublicId: Word; 
+                                cchPublicId: SYSINT; var pwchSystemId: Word; cchSystemId: SYSINT): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXXMLReader
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {8C033CAA-6CD6-4F73-B728-4531AF74945F}
+// *********************************************************************//
+  IVBSAXXMLReader = interface(IDispatch)
+    ['{8C033CAA-6CD6-4F73-B728-4531AF74945F}']
+    function getFeature(const strName: WideString): WordBool; safecall;
+    procedure putFeature(const strName: WideString; fValue: WordBool); safecall;
+    function getProperty(const strName: WideString): OleVariant; safecall;
+    procedure putProperty(const strName: WideString; varValue: OleVariant); safecall;
+    function Get_entityResolver: IVBSAXEntityResolver; safecall;
+    procedure _Set_entityResolver(const oResolver: IVBSAXEntityResolver); safecall;
+    function Get_contentHandler: IVBSAXContentHandler; safecall;
+    procedure _Set_contentHandler(const oHandler: IVBSAXContentHandler); safecall;
+    function Get_dtdHandler: IVBSAXDTDHandler; safecall;
+    procedure _Set_dtdHandler(const oHandler: IVBSAXDTDHandler); safecall;
+    function Get_errorHandler: IVBSAXErrorHandler; safecall;
+    procedure _Set_errorHandler(const oHandler: IVBSAXErrorHandler); safecall;
+    function Get_baseURL: WideString; safecall;
+    procedure Set_baseURL(const strBaseURL: WideString); safecall;
+    function Get_secureBaseURL: WideString; safecall;
+    procedure Set_secureBaseURL(const strSecureBaseURL: WideString); safecall;
+    procedure parse(varInput: OleVariant); safecall;
+    procedure parseURL(const strURL: WideString); safecall;
+    property entityResolver: IVBSAXEntityResolver read Get_entityResolver write _Set_entityResolver;
+    property contentHandler: IVBSAXContentHandler read Get_contentHandler write _Set_contentHandler;
+    property dtdHandler: IVBSAXDTDHandler read Get_dtdHandler write _Set_dtdHandler;
+    property errorHandler: IVBSAXErrorHandler read Get_errorHandler write _Set_errorHandler;
+    property baseURL: WideString read Get_baseURL write Set_baseURL;
+    property secureBaseURL: WideString read Get_secureBaseURL write Set_secureBaseURL;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXEntityResolver
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {0C05D096-F45B-4ACA-AD1A-AA0BC25518DC}
+// *********************************************************************//
+  IVBSAXEntityResolver = interface(IDispatch)
+    ['{0C05D096-F45B-4ACA-AD1A-AA0BC25518DC}']
+    function resolveEntity(var strPublicId: WideString; var strSystemId: WideString): OleVariant; safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXContentHandler
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {2ED7290A-4DD5-4B46-BB26-4E4155E77FAA}
+// *********************************************************************//
+  IVBSAXContentHandler = interface(IDispatch)
+    ['{2ED7290A-4DD5-4B46-BB26-4E4155E77FAA}']
+    procedure _Set_documentLocator(const Param1: IVBSAXLocator); safecall;
+    procedure startDocument; safecall;
+    procedure endDocument; safecall;
+    procedure startPrefixMapping(var strPrefix: WideString; var strURI: WideString); safecall;
+    procedure endPrefixMapping(var strPrefix: WideString); safecall;
+    procedure startElement(var strNamespaceURI: WideString; var strLocalName: WideString; 
+                           var strQName: WideString; const oAttributes: IVBSAXAttributes); safecall;
+    procedure endElement(var strNamespaceURI: WideString; var strLocalName: WideString; 
+                         var strQName: WideString); safecall;
+    procedure characters(var strChars: WideString); safecall;
+    procedure ignorableWhitespace(var strChars: WideString); safecall;
+    procedure processingInstruction(var strTarget: WideString; var strData: WideString); safecall;
+    procedure skippedEntity(var strName: WideString); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXLocator
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {796E7AC5-5AA2-4EFF-ACAD-3FAAF01A3288}
+// *********************************************************************//
+  IVBSAXLocator = interface(IDispatch)
+    ['{796E7AC5-5AA2-4EFF-ACAD-3FAAF01A3288}']
+    function Get_columnNumber: SYSINT; safecall;
+    function Get_lineNumber: SYSINT; safecall;
+    function Get_publicId: WideString; safecall;
+    function Get_systemId: WideString; safecall;
+    property columnNumber: SYSINT read Get_columnNumber;
+    property lineNumber: SYSINT read Get_lineNumber;
+    property publicId: WideString read Get_publicId;
+    property systemId: WideString read Get_systemId;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXAttributes
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {10DC0586-132B-4CAC-8BB3-DB00AC8B7EE0}
+// *********************************************************************//
+  IVBSAXAttributes = interface(IDispatch)
+    ['{10DC0586-132B-4CAC-8BB3-DB00AC8B7EE0}']
+    function Get_length: SYSINT; safecall;
+    function getURI(nIndex: SYSINT): WideString; safecall;
+    function getLocalName(nIndex: SYSINT): WideString; safecall;
+    function getQName(nIndex: SYSINT): WideString; safecall;
+    function getIndexFromName(const strURI: WideString; const strLocalName: WideString): SYSINT; safecall;
+    function getIndexFromQName(const strQName: WideString): SYSINT; safecall;
+    function getType(nIndex: SYSINT): WideString; safecall;
+    function getTypeFromName(const strURI: WideString; const strLocalName: WideString): WideString; safecall;
+    function getTypeFromQName(const strQName: WideString): WideString; safecall;
+    function getValue(nIndex: SYSINT): WideString; safecall;
+    function getValueFromName(const strURI: WideString; const strLocalName: WideString): WideString; safecall;
+    function getValueFromQName(const strQName: WideString): WideString; safecall;
+    property length: SYSINT read Get_length;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXDTDHandler
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {24FB3297-302D-4620-BA39-3A732D850558}
+// *********************************************************************//
+  IVBSAXDTDHandler = interface(IDispatch)
+    ['{24FB3297-302D-4620-BA39-3A732D850558}']
+    procedure notationDecl(var strName: WideString; var strPublicId: WideString;
+                           var strSystemId: WideString); safecall;
+    procedure unparsedEntityDecl(var strName: WideString; var strPublicId: WideString;
+                                 var strSystemId: WideString; var strNotationName: WideString); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXErrorHandler
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {D963D3FE-173C-4862-9095-B92F66995F52}
+// *********************************************************************//
+  IVBSAXErrorHandler = interface(IDispatch)
+    ['{D963D3FE-173C-4862-9095-B92F66995F52}']
+    procedure error(const oLocator: IVBSAXLocator; var strErrorMessage: WideString; 
+                    nErrorCode: Integer); safecall;
+    procedure fatalError(const oLocator: IVBSAXLocator; var strErrorMessage: WideString; 
+                         nErrorCode: Integer); safecall;
+    procedure ignorableWarning(const oLocator: IVBSAXLocator; var strErrorMessage: WideString; 
+                               nErrorCode: Integer); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXXMLFilter
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {1299EB1B-5B88-433E-82DE-82CA75AD4E04}
+// *********************************************************************//
+  IVBSAXXMLFilter = interface(IDispatch)
+    ['{1299EB1B-5B88-433E-82DE-82CA75AD4E04}']
+    function Get_parent: IVBSAXXMLReader; safecall;
+    procedure _Set_parent(const oReader: IVBSAXXMLReader); safecall;
+    property parent: IVBSAXXMLReader read Get_parent write _Set_parent;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXLexicalHandler
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {032AAC35-8C0E-4D9D-979F-E3B702935576}
+// *********************************************************************//
+  IVBSAXLexicalHandler = interface(IDispatch)
+    ['{032AAC35-8C0E-4D9D-979F-E3B702935576}']
+    procedure startDTD(var strName: WideString; var strPublicId: WideString;
+                       var strSystemId: WideString); safecall;
+    procedure endDTD; safecall;
+    procedure startEntity(var strName: WideString); safecall;
+    procedure endEntity(var strName: WideString); safecall;
+    procedure startCDATA; safecall;
+    procedure endCDATA; safecall;
+    procedure comment(var strChars: WideString); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IVBSAXDeclHandler
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {E8917260-7579-4BE1-B5DD-7AFBFA6F077B}
+// *********************************************************************//
+  IVBSAXDeclHandler = interface(IDispatch)
+    ['{E8917260-7579-4BE1-B5DD-7AFBFA6F077B}']
+    procedure elementDecl(var strName: WideString; var strModel: WideString); safecall;
+    procedure attributeDecl(var strElementName: WideString; var strAttributeName: WideString;
+                            var strType: WideString; var strValueDefault: WideString;
+                            var strValue: WideString); safecall;
+    procedure internalEntityDecl(var strName: WideString; var strValue: WideString); safecall;
+    procedure externalEntityDecl(var strName: WideString; var strPublicId: WideString;
+                                 var strSystemId: WideString); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IMXWriter
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {4D7FF4BA-1565-4EA8-94E1-6E724A46F98D}
+// *********************************************************************//
+  IMXWriter = interface(IDispatch)
+    ['{4D7FF4BA-1565-4EA8-94E1-6E724A46F98D}']
+    procedure Set_output(varDestination: OleVariant); safecall;
+    function Get_output: OleVariant; safecall;
+    procedure Set_encoding(const strEncoding: WideString); safecall;
+    function Get_encoding: WideString; safecall;
+    procedure Set_byteOrderMark(fWriteByteOrderMark: WordBool); safecall;
+    function Get_byteOrderMark: WordBool; safecall;
+    procedure Set_indent(fIndentMode: WordBool); safecall;
+    function Get_indent: WordBool; safecall;
+    procedure Set_standalone(fValue: WordBool); safecall;
+    function Get_standalone: WordBool; safecall;
+    procedure Set_omitXMLDeclaration(fValue: WordBool); safecall;
+    function Get_omitXMLDeclaration: WordBool; safecall;
+    procedure Set_version(const strVersion: WideString); safecall;
+    function Get_version: WideString; safecall;
+    procedure Set_disableOutputEscaping(fValue: WordBool); safecall;
+    function Get_disableOutputEscaping: WordBool; safecall;
+    procedure flush; safecall;
+    property output: OleVariant read Get_output write Set_output;
+    property encoding: WideString read Get_encoding write Set_encoding;
+    property byteOrderMark: WordBool read Get_byteOrderMark write Set_byteOrderMark;
+    property indent: WordBool read Get_indent write Set_indent;
+    property standalone: WordBool read Get_standalone write Set_standalone;
+    property omitXMLDeclaration: WordBool read Get_omitXMLDeclaration write Set_omitXMLDeclaration;
+    property version: WideString read Get_version write Set_version;
+    property disableOutputEscaping: WordBool read Get_disableOutputEscaping write Set_disableOutputEscaping;
+  end;
+
+// *********************************************************************//
+// Interface: IMXAttributes
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {F10D27CC-3EC0-415C-8ED8-77AB1C5E7262}
+// *********************************************************************//
+  IMXAttributes = interface(IDispatch)
+    ['{F10D27CC-3EC0-415C-8ED8-77AB1C5E7262}']
+    procedure addAttribute(const strURI: WideString; const strLocalName: WideString;
+                           const strQName: WideString; const strType: WideString;
+                           const strValue: WideString); safecall;
+    procedure addAttributeFromIndex(varAtts: OleVariant; nIndex: SYSINT); safecall;
+    procedure clear; safecall;
+    procedure removeAttribute(nIndex: SYSINT); safecall;
+    procedure setAttribute(nIndex: SYSINT; const strURI: WideString;
+                           const strLocalName: WideString; const strQName: WideString;
+                           const strType: WideString; const strValue: WideString); safecall;
+    procedure setAttributes(varAtts: OleVariant); safecall;
+    procedure setLocalName(nIndex: SYSINT; const strLocalName: WideString); safecall;
+    procedure setQName(nIndex: SYSINT; const strQName: WideString); safecall;
+    procedure setType(nIndex: SYSINT; const strType: WideString); safecall;
+    procedure setURI(nIndex: SYSINT; const strURI: WideString); safecall;
+    procedure setValue(nIndex: SYSINT; const strValue: WideString); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IMXReaderControl
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {808F4E35-8D5A-4FBE-8466-33A41279ED30}
+// *********************************************************************//
+  IMXReaderControl = interface(IDispatch)
+    ['{808F4E35-8D5A-4FBE-8466-33A41279ED30}']
+    procedure abort; safecall;
+    procedure resume; safecall;
+    procedure suspend; safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IMXSchemaDeclHandler
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {FA4BB38C-FAF9-4CCA-9302-D1DD0FE520DB}
+// *********************************************************************//
+  IMXSchemaDeclHandler = interface(IDispatch)
+    ['{FA4BB38C-FAF9-4CCA-9302-D1DD0FE520DB}']
+    procedure schemaElementDecl(const oSchemaElement: ISchemaElement); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaItem
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B3-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaItem = interface(IDispatch)
+    ['{50EA08B3-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_name: WideString; safecall;
+    function Get_namespaceURI: WideString; safecall;
+    function Get_schema: ISchema; safecall;
+    function Get_id: WideString; safecall;
+    function Get_itemType: SOMITEMTYPE; safecall;
+    function Get_unhandledAttributes: IVBSAXAttributes; safecall;
+    function writeAnnotation(const annotationSink: IUnknown): WordBool; safecall;
+    property name: WideString read Get_name;
+    property namespaceURI: WideString read Get_namespaceURI;
+    property schema: ISchema read Get_schema;
+    property id: WideString read Get_id;
+    property itemType: SOMITEMTYPE read Get_itemType;
+    property unhandledAttributes: IVBSAXAttributes read Get_unhandledAttributes;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaParticle
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B5-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaParticle = interface(ISchemaItem)
+    ['{50EA08B5-DD1B-4664-9A50-C2F40F4BD79A}']
+    procedure GhostMethod_ISchemaParticle_0_1; safecall;
+    procedure GhostMethod_ISchemaParticle_4_2; safecall;
+    procedure GhostMethod_ISchemaParticle_8_3; safecall;
+    procedure GhostMethod_ISchemaParticle_12_4; safecall;
+    procedure GhostMethod_ISchemaParticle_16_5; safecall;
+    procedure GhostMethod_ISchemaParticle_20_6; safecall;
+    procedure GhostMethod_ISchemaParticle_24_7; safecall;
+    procedure GhostMethod_ISchemaParticle_28_8; safecall;
+    procedure GhostMethod_ISchemaParticle_32_9; safecall;
+    procedure GhostMethod_ISchemaParticle_36_10; safecall;
+    procedure GhostMethod_ISchemaParticle_40_11; safecall;
+    procedure GhostMethod_ISchemaParticle_44_12; safecall;
+    procedure GhostMethod_ISchemaParticle_48_13; safecall;
+    procedure GhostMethod_ISchemaParticle_52_14; safecall;
+    function Get_minOccurs: OleVariant; safecall;
+    function Get_maxOccurs: OleVariant; safecall;
+    property minOccurs: OleVariant read Get_minOccurs;
+    property maxOccurs: OleVariant read Get_maxOccurs;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaElement
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B7-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaElement = interface(ISchemaParticle)
+    ['{50EA08B7-DD1B-4664-9A50-C2F40F4BD79A}']
+    procedure GhostMethod_ISchemaElement_0_1; safecall;
+    procedure GhostMethod_ISchemaElement_4_2; safecall;
+    procedure GhostMethod_ISchemaElement_8_3; safecall;
+    procedure GhostMethod_ISchemaElement_12_4; safecall;
+    procedure GhostMethod_ISchemaElement_16_5; safecall;
+    procedure GhostMethod_ISchemaElement_20_6; safecall;
+    procedure GhostMethod_ISchemaElement_24_7; safecall;
+    procedure GhostMethod_ISchemaElement_28_8; safecall;
+    procedure GhostMethod_ISchemaElement_32_9; safecall;
+    procedure GhostMethod_ISchemaElement_36_10; safecall;
+    procedure GhostMethod_ISchemaElement_40_11; safecall;
+    procedure GhostMethod_ISchemaElement_44_12; safecall;
+    procedure GhostMethod_ISchemaElement_48_13; safecall;
+    procedure GhostMethod_ISchemaElement_52_14; safecall;
+    procedure GhostMethod_ISchemaElement_56_15; safecall;
+    procedure GhostMethod_ISchemaElement_60_16; safecall;
+    function Get_type_: ISchemaType; safecall;
+    function Get_scope: ISchemaComplexType; safecall;
+    function Get_defaultValue: WideString; safecall;
+    function Get_fixedValue: WideString; safecall;
+    function Get_isNillable: WordBool; safecall;
+    function Get_identityConstraints: ISchemaItemCollection; safecall;
+    function Get_substitutionGroup: ISchemaElement; safecall;
+    function Get_substitutionGroupExclusions: SCHEMADERIVATIONMETHOD; safecall;
+    function Get_disallowedSubstitutions: SCHEMADERIVATIONMETHOD; safecall;
+    function Get_isAbstract: WordBool; safecall;
+    function Get_isReference: WordBool; safecall;
+    property type_: ISchemaType read Get_type_;
+    property scope: ISchemaComplexType read Get_scope;
+    property defaultValue: WideString read Get_defaultValue;
+    property fixedValue: WideString read Get_fixedValue;
+    property isNillable: WordBool read Get_isNillable;
+    property identityConstraints: ISchemaItemCollection read Get_identityConstraints;
+    property substitutionGroup: ISchemaElement read Get_substitutionGroup;
+    property substitutionGroupExclusions: SCHEMADERIVATIONMETHOD read Get_substitutionGroupExclusions;
+    property disallowedSubstitutions: SCHEMADERIVATIONMETHOD read Get_disallowedSubstitutions;
+    property isAbstract: WordBool read Get_isAbstract;
+    property isReference: WordBool read Get_isReference;
+  end;
+
+// *********************************************************************//
+// Interface: ISchema
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B4-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchema = interface(ISchemaItem)
+    ['{50EA08B4-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_targetNamespace: WideString; safecall;
+    function Get_version: WideString; safecall;
+    function Get_types: ISchemaItemCollection; safecall;
+    function Get_elements: ISchemaItemCollection; safecall;
+    function Get_attributes: ISchemaItemCollection; safecall;
+    function Get_attributeGroups: ISchemaItemCollection; safecall;
+    function Get_modelGroups: ISchemaItemCollection; safecall;
+    function Get_notations: ISchemaItemCollection; safecall;
+    function Get_schemaLocations: ISchemaStringCollection; safecall;
+    property targetNamespace: WideString read Get_targetNamespace;
+    property version: WideString read Get_version;
+    property types: ISchemaItemCollection read Get_types;
+    property elements: ISchemaItemCollection read Get_elements;
+    property attributes: ISchemaItemCollection read Get_attributes;
+    property attributeGroups: ISchemaItemCollection read Get_attributeGroups;
+    property modelGroups: ISchemaItemCollection read Get_modelGroups;
+    property notations: ISchemaItemCollection read Get_notations;
+    property schemaLocations: ISchemaStringCollection read Get_schemaLocations;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaItemCollection
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B2-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaItemCollection = interface(IDispatch)
+    ['{50EA08B2-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_item(index: Integer): ISchemaItem; safecall;
+    function itemByName(const name: WideString): ISchemaItem; safecall;
+    function itemByQName(const name: WideString; const namespaceURI: WideString): ISchemaItem; safecall;
+    function Get_length: Integer; safecall;
+    function Get__newEnum: IUnknown; safecall;
+    property item[index: Integer]: ISchemaItem read Get_item; default;
+    property length: Integer read Get_length;
+    property _newEnum: IUnknown read Get__newEnum;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaStringCollection
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B1-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaStringCollection = interface(IDispatch)
+    ['{50EA08B1-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_item(index: Integer): WideString; safecall;
+    function Get_length: Integer; safecall;
+    function Get__newEnum: IUnknown; safecall;
+    property item[index: Integer]: WideString read Get_item; default;
+    property length: Integer read Get_length;
+    property _newEnum: IUnknown read Get__newEnum;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaType
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B8-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaType = interface(ISchemaItem)
+    ['{50EA08B8-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_baseTypes: ISchemaItemCollection; safecall;
+    function Get_final: SCHEMADERIVATIONMETHOD; safecall;
+    function Get_variety: SCHEMATYPEVARIETY; safecall;
+    function Get_derivedBy: SCHEMADERIVATIONMETHOD; safecall;
+    function isValid(const data: WideString): WordBool; safecall;
+    function Get_minExclusive: WideString; safecall;
+    function Get_minInclusive: WideString; safecall;
+    function Get_maxExclusive: WideString; safecall;
+    function Get_maxInclusive: WideString; safecall;
+    function Get_totalDigits: OleVariant; safecall;
+    function Get_fractionDigits: OleVariant; safecall;
+    function Get_length: OleVariant; safecall;
+    function Get_minLength: OleVariant; safecall;
+    function Get_maxLength: OleVariant; safecall;
+    function Get_enumeration: ISchemaStringCollection; safecall;
+    function Get_whitespace: SCHEMAWHITESPACE; safecall;
+    function Get_patterns: ISchemaStringCollection; safecall;
+    property baseTypes: ISchemaItemCollection read Get_baseTypes;
+    property final: SCHEMADERIVATIONMETHOD read Get_final;
+    property variety: SCHEMATYPEVARIETY read Get_variety;
+    property derivedBy: SCHEMADERIVATIONMETHOD read Get_derivedBy;
+    property minExclusive: WideString read Get_minExclusive;
+    property minInclusive: WideString read Get_minInclusive;
+    property maxExclusive: WideString read Get_maxExclusive;
+    property maxInclusive: WideString read Get_maxInclusive;
+    property totalDigits: OleVariant read Get_totalDigits;
+    property fractionDigits: OleVariant read Get_fractionDigits;
+    property length: OleVariant read Get_length;
+    property minLength: OleVariant read Get_minLength;
+    property maxLength: OleVariant read Get_maxLength;
+    property enumeration: ISchemaStringCollection read Get_enumeration;
+    property whitespace: SCHEMAWHITESPACE read Get_whitespace;
+    property patterns: ISchemaStringCollection read Get_patterns;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaComplexType
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B9-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaComplexType = interface(ISchemaType)
+    ['{50EA08B9-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_isAbstract: WordBool; safecall;
+    function Get_anyAttribute: ISchemaAny; safecall;
+    function Get_attributes: ISchemaItemCollection; safecall;
+    function Get_contentType: SCHEMACONTENTTYPE; safecall;
+    function Get_contentModel: ISchemaModelGroup; safecall;
+    function Get_prohibitedSubstitutions: SCHEMADERIVATIONMETHOD; safecall;
+    property isAbstract: WordBool read Get_isAbstract;
+    property anyAttribute: ISchemaAny read Get_anyAttribute;
+    property attributes: ISchemaItemCollection read Get_attributes;
+    property contentType: SCHEMACONTENTTYPE read Get_contentType;
+    property contentModel: ISchemaModelGroup read Get_contentModel;
+    property prohibitedSubstitutions: SCHEMADERIVATIONMETHOD read Get_prohibitedSubstitutions;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaAny
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08BC-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaAny = interface(ISchemaParticle)
+    ['{50EA08BC-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_namespaces: ISchemaStringCollection; safecall;
+    function Get_processContents: SCHEMAPROCESSCONTENTS; safecall;
+    property namespaces: ISchemaStringCollection read Get_namespaces;
+    property processContents: SCHEMAPROCESSCONTENTS read Get_processContents;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaModelGroup
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08BB-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaModelGroup = interface(ISchemaParticle)
+    ['{50EA08BB-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_particles: ISchemaItemCollection; safecall;
+    property particles: ISchemaItemCollection read Get_particles;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMSchemaCollection2
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B0-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  IXMLDOMSchemaCollection2 = interface(IXMLDOMSchemaCollection)
+    ['{50EA08B0-DD1B-4664-9A50-C2F40F4BD79A}']
+    procedure validate; safecall;
+    procedure Set_validateOnLoad(validateOnLoad: WordBool); safecall;
+    function Get_validateOnLoad: WordBool; safecall;
+    function getSchema(const namespaceURI: WideString): ISchema; safecall;
+    function getDeclaration(const node: IXMLDOMNode): ISchemaItem; safecall;
+    property validateOnLoad: WordBool read Get_validateOnLoad write Set_validateOnLoad;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaAttribute
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08B6-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaAttribute = interface(ISchemaItem)
+    ['{50EA08B6-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_type_: ISchemaType; safecall;
+    function Get_scope: ISchemaComplexType; safecall;
+    function Get_defaultValue: WideString; safecall;
+    function Get_fixedValue: WideString; safecall;
+    function Get_use: SCHEMAUSE; safecall;
+    function Get_isReference: WordBool; safecall;
+    property type_: ISchemaType read Get_type_;
+    property scope: ISchemaComplexType read Get_scope;
+    property defaultValue: WideString read Get_defaultValue;
+    property fixedValue: WideString read Get_fixedValue;
+    property use: SCHEMAUSE read Get_use;
+    property isReference: WordBool read Get_isReference;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaAttributeGroup
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08BA-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaAttributeGroup = interface(ISchemaItem)
+    ['{50EA08BA-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_anyAttribute: ISchemaAny; safecall;
+    function Get_attributes: ISchemaItemCollection; safecall;
+    property anyAttribute: ISchemaAny read Get_anyAttribute;
+    property attributes: ISchemaItemCollection read Get_attributes;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaIdentityConstraint
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08BD-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaIdentityConstraint = interface(ISchemaItem)
+    ['{50EA08BD-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_selector: WideString; safecall;
+    function Get_fields: ISchemaStringCollection; safecall;
+    function Get_referencedKey: ISchemaIdentityConstraint; safecall;
+    property selector: WideString read Get_selector;
+    property fields: ISchemaStringCollection read Get_fields;
+    property referencedKey: ISchemaIdentityConstraint read Get_referencedKey;
+  end;
+
+// *********************************************************************//
+// Interface: ISchemaNotation
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {50EA08BE-DD1B-4664-9A50-C2F40F4BD79A}
+// *********************************************************************//
+  ISchemaNotation = interface(ISchemaItem)
+    ['{50EA08BE-DD1B-4664-9A50-C2F40F4BD79A}']
+    function Get_systemIdentifier: WideString; safecall;
+    function Get_publicIdentifier: WideString; safecall;
+    property systemIdentifier: WideString read Get_systemIdentifier;
+    property publicIdentifier: WideString read Get_publicIdentifier;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLElementCollection
+// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
+// GUID:      {65725580-9B5D-11D0-9BFE-00C04FC99C8E}
+// *********************************************************************//
+  IXMLElementCollection = interface(IDispatch)
+    ['{65725580-9B5D-11D0-9BFE-00C04FC99C8E}']
+    procedure Set_length(p: Integer); safecall;
+    function Get_length: Integer; safecall;
+    function Get__newEnum: IUnknown; safecall;
+    function item(var1: OleVariant; var2: OleVariant): IDispatch; safecall;
+    property length: Integer read Get_length write Set_length;
+    property _newEnum: IUnknown read Get__newEnum;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDocument
+// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
+// GUID:      {F52E2B61-18A1-11D1-B105-00805F49916B}
+// *********************************************************************//
+  IXMLDocument = interface(IDispatch)
+    ['{F52E2B61-18A1-11D1-B105-00805F49916B}']
+    function Get_root: IXMLElement; safecall;
+    function Get_fileSize: WideString; safecall;
+    function Get_fileModifiedDate: WideString; safecall;
+    function Get_fileUpdatedDate: WideString; safecall;
+    function Get_url: WideString; safecall;
+    procedure Set_url(const p: WideString); safecall;
+    function Get_mimeType: WideString; safecall;
+    function Get_readyState: Integer; safecall;
+    function Get_charset: WideString; safecall;
+    procedure Set_charset(const p: WideString); safecall;
+    function Get_version: WideString; safecall;
+    function Get_doctype: WideString; safecall;
+    function Get_dtdURL: WideString; safecall;
+    function createElement(vType: OleVariant; var1: OleVariant): IXMLElement; safecall;
+    property root: IXMLElement read Get_root;
+    property fileSize: WideString read Get_fileSize;
+    property fileModifiedDate: WideString read Get_fileModifiedDate;
+    property fileUpdatedDate: WideString read Get_fileUpdatedDate;
+    property url: WideString read Get_url write Set_url;
+    property mimeType: WideString read Get_mimeType;
+    property readyState: Integer read Get_readyState;
+    property charset: WideString read Get_charset write Set_charset;
+    property version: WideString read Get_version;
+    property doctype: WideString read Get_doctype;
+    property dtdURL: WideString read Get_dtdURL;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLElement
+// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
+// GUID:      {3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}
+// *********************************************************************//
+  IXMLElement = interface(IDispatch)
+    ['{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}']
+    function Get_tagName: WideString; safecall;
+    procedure Set_tagName(const p: WideString); safecall;
+    function Get_parent: IXMLElement; safecall;
+    procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); safecall;
+    function getAttribute(const strPropertyName: WideString): OleVariant; safecall;
+    procedure removeAttribute(const strPropertyName: WideString); safecall;
+    function Get_children: IXMLElementCollection; safecall;
+    function Get_type_: Integer; safecall;
+    function Get_text: WideString; safecall;
+    procedure Set_text(const p: WideString); safecall;
+    procedure addChild(const pChildElem: IXMLElement; lIndex: Integer; lReserved: Integer); safecall;
+    procedure removeChild(const pChildElem: IXMLElement); safecall;
+    property tagName: WideString read Get_tagName write Set_tagName;
+    property parent: IXMLElement read Get_parent;
+    property children: IXMLElementCollection read Get_children;
+    property type_: Integer read Get_type_;
+    property text: WideString read Get_text write Set_text;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDocument2
+// Flags:     (4112) Hidden Dispatchable
+// GUID:      {2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}
+// *********************************************************************//
+  IXMLDocument2 = interface(IDispatch)
+    ['{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}']
+    function Get_root(out p: IXMLElement2): HResult; stdcall;
+    function Get_fileSize(out p: WideString): HResult; stdcall;
+    function Get_fileModifiedDate(out p: WideString): HResult; stdcall;
+    function Get_fileUpdatedDate(out p: WideString): HResult; stdcall;
+    function Get_url(out p: WideString): HResult; stdcall;
+    function Set_url(const p: WideString): HResult; stdcall;
+    function Get_mimeType(out p: WideString): HResult; stdcall;
+    function Get_readyState(out pl: Integer): HResult; stdcall;
+    function Get_charset(out p: WideString): HResult; stdcall;
+    function Set_charset(const p: WideString): HResult; stdcall;
+    function Get_version(out p: WideString): HResult; stdcall;
+    function Get_doctype(out p: WideString): HResult; stdcall;
+    function Get_dtdURL(out p: WideString): HResult; stdcall;
+    function createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult; stdcall;
+    function Get_async(out pf: WordBool): HResult; stdcall;
+    function Set_async(pf: WordBool): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLElement2
+// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
+// GUID:      {2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}
+// *********************************************************************//
+  IXMLElement2 = interface(IDispatch)
+    ['{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}']
+    function Get_tagName: WideString; safecall;
+    procedure Set_tagName(const p: WideString); safecall;
+    function Get_parent: IXMLElement2; safecall;
+    procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); safecall;
+    function getAttribute(const strPropertyName: WideString): OleVariant; safecall;
+    procedure removeAttribute(const strPropertyName: WideString); safecall;
+    function Get_children: IXMLElementCollection; safecall;
+    function Get_type_: Integer; safecall;
+    function Get_text: WideString; safecall;
+    procedure Set_text(const p: WideString); safecall;
+    procedure addChild(const pChildElem: IXMLElement2; lIndex: Integer; lReserved: Integer); safecall;
+    procedure removeChild(const pChildElem: IXMLElement2); safecall;
+    function Get_attributes: IXMLElementCollection; safecall;
+    property tagName: WideString read Get_tagName write Set_tagName;
+    property parent: IXMLElement2 read Get_parent;
+    property children: IXMLElementCollection read Get_children;
+    property type_: Integer read Get_type_;
+    property text: WideString read Get_text write Set_text;
+    property attributes: IXMLElementCollection read Get_attributes;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLAttribute
+// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
+// GUID:      {D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}
+// *********************************************************************//
+  IXMLAttribute = interface(IDispatch)
+    ['{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}']
+    function Get_name: WideString; safecall;
+    function Get_value: WideString; safecall;
+    property name: WideString read Get_name;
+    property value: WideString read Get_value;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLError
+// Flags:     (16) Hidden
+// GUID:      {948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}
+// *********************************************************************//
+  IXMLError = interface(IUnknown)
+    ['{948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}']
+    function GetErrorInfo(var pErrorReturn: _xml_error): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLDOMSelection
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {AA634FC7-5888-44A7-A257-3A47150D3A0E}
+// *********************************************************************//
+  IXMLDOMSelection = interface(IXMLDOMNodeList)
+    ['{AA634FC7-5888-44A7-A257-3A47150D3A0E}']
+    function Get_expr: WideString; safecall;
+    procedure Set_expr(const expression: WideString); safecall;
+    function Get_context: IXMLDOMNode; safecall;
+    procedure _Set_context(const ppNode: IXMLDOMNode); safecall;
+    function peekNode: IXMLDOMNode; safecall;
+    function matches(const pNode: IXMLDOMNode): IXMLDOMNode; safecall;
+    function removeNext: IXMLDOMNode; safecall;
+    procedure removeAll; safecall;
+    function clone: IXMLDOMSelection; safecall;
+    function getProperty(const name: WideString): OleVariant; safecall;
+    procedure setProperty(const name: WideString; value: OleVariant); safecall;
+    property expr: WideString read Get_expr write Set_expr;
+    property context: IXMLDOMNode read Get_context write _Set_context;
+  end;
+
+// *********************************************************************//
+// Interface: IDSOControl
+// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {310AFA62-0575-11D2-9CA9-0060B0EC3D39}
+// *********************************************************************//
+  IDSOControl = interface(IDispatch)
+    ['{310AFA62-0575-11D2-9CA9-0060B0EC3D39}']
+    function Get_XMLDocument: IXMLDOMDocument; safecall;
+    procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument); safecall;
+    function Get_JavaDSOCompatible: Integer; safecall;
+    procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer); safecall;
+    function Get_readyState: Integer; safecall;
+    property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
+    property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
+    property readyState: Integer read Get_readyState;
+  end;
+
+// *********************************************************************//
+// Interface: IXMLHTTPRequest
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {ED8C108D-4349-11D2-91A4-00C04F7969E8}
+// *********************************************************************//
+  IXMLHTTPRequest = interface(IDispatch)
+    ['{ED8C108D-4349-11D2-91A4-00C04F7969E8}']
+    procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant; 
+                   bstrUser: OleVariant; bstrPassword: OleVariant); safecall;
+    procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString); safecall;
+    function getResponseHeader(const bstrHeader: WideString): WideString; safecall;
+    function getAllResponseHeaders: WideString; safecall;
+    procedure send(varBody: OleVariant); safecall;
+    procedure abort; safecall;
+    function Get_status: Integer; safecall;
+    function Get_statusText: WideString; safecall;
+    function Get_responseXML: IDispatch; safecall;
+    function Get_responseText: WideString; safecall;
+    function Get_responseBody: OleVariant; safecall;
+    function Get_responseStream: OleVariant; safecall;
+    function Get_readyState: Integer; safecall;
+    procedure Set_onreadystatechange(const Param1: IDispatch); safecall;
+    property status: Integer read Get_status;
+    property statusText: WideString read Get_statusText;
+    property responseXML: IDispatch read Get_responseXML;
+    property responseText: WideString read Get_responseText;
+    property responseBody: OleVariant read Get_responseBody;
+    property responseStream: OleVariant read Get_responseStream;
+    property readyState: Integer read Get_readyState;
+    property onreadystatechange: IDispatch write Set_onreadystatechange;
+  end;
+
+// *********************************************************************//
+// Interface: IServerXMLHTTPRequest
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {2E9196BF-13BA-4DD4-91CA-6C571F281495}
+// *********************************************************************//
+  IServerXMLHTTPRequest = interface(IXMLHTTPRequest)
+    ['{2E9196BF-13BA-4DD4-91CA-6C571F281495}']
+    procedure setTimeouts(resolveTimeout: Integer; connectTimeout: Integer; sendTimeout: Integer;
+                          receiveTimeout: Integer); safecall;
+    function waitForResponse(timeoutInSeconds: OleVariant): WordBool; safecall;
+    function getOption(option: SERVERXMLHTTP_OPTION): OleVariant; safecall;
+    procedure setOption(option: SERVERXMLHTTP_OPTION; value: OleVariant); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IServerXMLHTTPRequest2
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {2E01311B-C322-4B0A-BD77-B90CFDC8DCE7}
+// *********************************************************************//
+  IServerXMLHTTPRequest2 = interface(IServerXMLHTTPRequest)
+    ['{2E01311B-C322-4B0A-BD77-B90CFDC8DCE7}']
+    procedure setProxy(proxySetting: SXH_PROXY_SETTING; varProxyServer: OleVariant;
+                       varBypassList: OleVariant); safecall;
+    procedure setProxyCredentials(const bstrUserName: WideString; const bstrPassword: WideString); safecall;
+  end;
+
+// *********************************************************************//
+// Interface: IMXNamespacePrefixes
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {C90352F4-643C-4FBC-BB23-E996EB2D51FD}
+// *********************************************************************//
+  IMXNamespacePrefixes = interface(IDispatch)
+    ['{C90352F4-643C-4FBC-BB23-E996EB2D51FD}']
+    function Get_item(index: Integer): WideString; safecall;
+    function Get_length: Integer; safecall;
+    function Get__newEnum: IUnknown; safecall;
+    property item[index: Integer]: WideString read Get_item; default;
+    property length: Integer read Get_length;
+    property _newEnum: IUnknown read Get__newEnum;
+  end;
+
+// *********************************************************************//
+// Interface: IVBMXNamespaceManager
+// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
+// GUID:      {C90352F5-643C-4FBC-BB23-E996EB2D51FD}
+// *********************************************************************//
+  IVBMXNamespaceManager = interface(IDispatch)
+    ['{C90352F5-643C-4FBC-BB23-E996EB2D51FD}']
+    procedure Set_allowOverride(fOverride: WordBool); safecall;
+    function Get_allowOverride: WordBool; safecall;
+    procedure reset; safecall;
+    procedure pushContext; safecall;
+    procedure pushNodeContext(const contextNode: IXMLDOMNode; fDeep: WordBool); safecall;
+    procedure popContext; safecall;
+    procedure declarePrefix(const prefix: WideString; const namespaceURI: WideString); safecall;
+    function getDeclaredPrefixes: IMXNamespacePrefixes; safecall;
+    function getPrefixes(const namespaceURI: WideString): IMXNamespacePrefixes; safecall;
+    function getURI(const prefix: WideString): OleVariant; safecall;
+    function getURIFromNode(const strPrefix: WideString; const contextNode: IXMLDOMNode): OleVariant; safecall;
+    property allowOverride: WordBool read Get_allowOverride write Set_allowOverride;
+  end;
+
+// *********************************************************************//
+// Interface: IMXNamespaceManager
+// Flags:     (16) Hidden
+// GUID:      {C90352F6-643C-4FBC-BB23-E996EB2D51FD}
+// *********************************************************************//
+  IMXNamespaceManager = interface(IUnknown)
+    ['{C90352F6-643C-4FBC-BB23-E996EB2D51FD}']
+    function putAllowOverride(fOverride: WordBool): HResult; stdcall;
+    function getAllowOverride(out fOverride: WordBool): HResult; stdcall;
+    function reset: HResult; stdcall;
+    function pushContext: HResult; stdcall;
+    function pushNodeContext(const contextNode: IXMLDOMNode; fDeep: WordBool): HResult; stdcall;
+    function popContext: HResult; stdcall;
+    function declarePrefix(var prefix: Word; var namespaceURI: Word): HResult; stdcall;
+    function getDeclaredPrefix(nIndex: Integer; var pwchPrefix: Word; var pcchPrefix: SYSINT): HResult; stdcall;
+    function getPrefix(var pwszNamespaceURI: Word; nIndex: Integer; var pwchPrefix: Word; 
+                       var pcchPrefix: SYSINT): HResult; stdcall;
+    function getURI(var pwchPrefix: Word; const pContextNode: IXMLDOMNode; var pwchUri: Word; 
+                    var pcchUri: SYSINT): HResult; stdcall;
+  end;
+
+// *********************************************************************//
+// The Class CoDOMDocument provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMDocument2 exposed by              
+// the CoClass DOMDocument. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoDOMDocument = class
+    class function Create: IXMLDOMDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDOMDocument2;
+  end;
+
+// *********************************************************************//
+// The Class CoDOMDocument26 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMDocument2 exposed by              
+// the CoClass DOMDocument26. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoDOMDocument26 = class
+    class function Create: IXMLDOMDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDOMDocument2;
+  end;
+
+// *********************************************************************//
+// The Class CoDOMDocument30 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMDocument2 exposed by              
+// the CoClass DOMDocument30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoDOMDocument30 = class
+    class function Create: IXMLDOMDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDOMDocument2;
+  end;
+
+// *********************************************************************//
+// The Class CoDOMDocument40 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMDocument2 exposed by              
+// the CoClass DOMDocument40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoDOMDocument40 = class
+    class function Create: IXMLDOMDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDOMDocument2;
+  end;
+
+// *********************************************************************//
+// The Class CoFreeThreadedDOMDocument provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMDocument2 exposed by              
+// the CoClass FreeThreadedDOMDocument. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoFreeThreadedDOMDocument = class
+    class function Create: IXMLDOMDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDOMDocument2;
+  end;
+
+// *********************************************************************//
+// The Class CoFreeThreadedDOMDocument26 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMDocument2 exposed by              
+// the CoClass FreeThreadedDOMDocument26. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoFreeThreadedDOMDocument26 = class
+    class function Create: IXMLDOMDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDOMDocument2;
+  end;
+
+// *********************************************************************//
+// The Class CoFreeThreadedDOMDocument30 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMDocument2 exposed by              
+// the CoClass FreeThreadedDOMDocument30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoFreeThreadedDOMDocument30 = class
+    class function Create: IXMLDOMDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDOMDocument2;
+  end;
+
+// *********************************************************************//
+// The Class CoFreeThreadedDOMDocument40 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMDocument2 exposed by              
+// the CoClass FreeThreadedDOMDocument40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoFreeThreadedDOMDocument40 = class
+    class function Create: IXMLDOMDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDOMDocument2;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLSchemaCache provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMSchemaCollection exposed by              
+// the CoClass XMLSchemaCache. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLSchemaCache = class
+    class function Create: IXMLDOMSchemaCollection;
+    class function CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLSchemaCache26 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMSchemaCollection exposed by              
+// the CoClass XMLSchemaCache26. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLSchemaCache26 = class
+    class function Create: IXMLDOMSchemaCollection;
+    class function CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLSchemaCache30 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMSchemaCollection exposed by              
+// the CoClass XMLSchemaCache30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLSchemaCache30 = class
+    class function Create: IXMLDOMSchemaCollection;
+    class function CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLSchemaCache40 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDOMSchemaCollection2 exposed by              
+// the CoClass XMLSchemaCache40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLSchemaCache40 = class
+    class function Create: IXMLDOMSchemaCollection2;
+    class function CreateRemote(const MachineName: string): IXMLDOMSchemaCollection2;
+  end;
+
+// *********************************************************************//
+// The Class CoXSLTemplate provides a Create and CreateRemote method to          
+// create instances of the default interface IXSLTemplate exposed by              
+// the CoClass XSLTemplate. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXSLTemplate = class
+    class function Create: IXSLTemplate;
+    class function CreateRemote(const MachineName: string): IXSLTemplate;
+  end;
+
+// *********************************************************************//
+// The Class CoXSLTemplate26 provides a Create and CreateRemote method to          
+// create instances of the default interface IXSLTemplate exposed by              
+// the CoClass XSLTemplate26. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXSLTemplate26 = class
+    class function Create: IXSLTemplate;
+    class function CreateRemote(const MachineName: string): IXSLTemplate;
+  end;
+
+// *********************************************************************//
+// The Class CoXSLTemplate30 provides a Create and CreateRemote method to          
+// create instances of the default interface IXSLTemplate exposed by              
+// the CoClass XSLTemplate30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXSLTemplate30 = class
+    class function Create: IXSLTemplate;
+    class function CreateRemote(const MachineName: string): IXSLTemplate;
+  end;
+
+// *********************************************************************//
+// The Class CoXSLTemplate40 provides a Create and CreateRemote method to          
+// create instances of the default interface IXSLTemplate exposed by              
+// the CoClass XSLTemplate40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXSLTemplate40 = class
+    class function Create: IXSLTemplate;
+    class function CreateRemote(const MachineName: string): IXSLTemplate;
+  end;
+
+// *********************************************************************//
+// The Class CoDSOControl provides a Create and CreateRemote method to          
+// create instances of the default interface IDSOControl exposed by              
+// the CoClass DSOControl. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoDSOControl = class
+    class function Create: IDSOControl;
+    class function CreateRemote(const MachineName: string): IDSOControl;
+  end;
+
+// *********************************************************************//
+// The Class CoDSOControl26 provides a Create and CreateRemote method to          
+// create instances of the default interface IDSOControl exposed by              
+// the CoClass DSOControl26. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoDSOControl26 = class
+    class function Create: IDSOControl;
+    class function CreateRemote(const MachineName: string): IDSOControl;
+  end;
+
+// *********************************************************************//
+// The Class CoDSOControl30 provides a Create and CreateRemote method to          
+// create instances of the default interface IDSOControl exposed by              
+// the CoClass DSOControl30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoDSOControl30 = class
+    class function Create: IDSOControl;
+    class function CreateRemote(const MachineName: string): IDSOControl;
+  end;
+
+// *********************************************************************//
+// The Class CoDSOControl40 provides a Create and CreateRemote method to          
+// create instances of the default interface IDSOControl exposed by              
+// the CoClass DSOControl40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoDSOControl40 = class
+    class function Create: IDSOControl;
+    class function CreateRemote(const MachineName: string): IDSOControl;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLHTTP provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLHTTPRequest exposed by              
+// the CoClass XMLHTTP. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLHTTP = class
+    class function Create: IXMLHTTPRequest;
+    class function CreateRemote(const MachineName: string): IXMLHTTPRequest;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLHTTP26 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLHTTPRequest exposed by              
+// the CoClass XMLHTTP26. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLHTTP26 = class
+    class function Create: IXMLHTTPRequest;
+    class function CreateRemote(const MachineName: string): IXMLHTTPRequest;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLHTTP30 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLHTTPRequest exposed by              
+// the CoClass XMLHTTP30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLHTTP30 = class
+    class function Create: IXMLHTTPRequest;
+    class function CreateRemote(const MachineName: string): IXMLHTTPRequest;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLHTTP40 provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLHTTPRequest exposed by              
+// the CoClass XMLHTTP40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLHTTP40 = class
+    class function Create: IXMLHTTPRequest;
+    class function CreateRemote(const MachineName: string): IXMLHTTPRequest;
+  end;
+
+// *********************************************************************//
+// The Class CoServerXMLHTTP provides a Create and CreateRemote method to          
+// create instances of the default interface IServerXMLHTTPRequest2 exposed by              
+// the CoClass ServerXMLHTTP. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoServerXMLHTTP = class
+    class function Create: IServerXMLHTTPRequest2;
+    class function CreateRemote(const MachineName: string): IServerXMLHTTPRequest2;
+  end;
+
+// *********************************************************************//
+// The Class CoServerXMLHTTP30 provides a Create and CreateRemote method to          
+// create instances of the default interface IServerXMLHTTPRequest2 exposed by              
+// the CoClass ServerXMLHTTP30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoServerXMLHTTP30 = class
+    class function Create: IServerXMLHTTPRequest2;
+    class function CreateRemote(const MachineName: string): IServerXMLHTTPRequest2;
+  end;
+
+// *********************************************************************//
+// The Class CoServerXMLHTTP40 provides a Create and CreateRemote method to          
+// create instances of the default interface IServerXMLHTTPRequest2 exposed by              
+// the CoClass ServerXMLHTTP40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoServerXMLHTTP40 = class
+    class function Create: IServerXMLHTTPRequest2;
+    class function CreateRemote(const MachineName: string): IServerXMLHTTPRequest2;
+  end;
+
+// *********************************************************************//
+// The Class CoSAXXMLReader provides a Create and CreateRemote method to          
+// create instances of the default interface IVBSAXXMLReader exposed by              
+// the CoClass SAXXMLReader. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoSAXXMLReader = class
+    class function Create: IVBSAXXMLReader;
+    class function CreateRemote(const MachineName: string): IVBSAXXMLReader;
+  end;
+
+// *********************************************************************//
+// The Class CoSAXXMLReader30 provides a Create and CreateRemote method to          
+// create instances of the default interface IVBSAXXMLReader exposed by              
+// the CoClass SAXXMLReader30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoSAXXMLReader30 = class
+    class function Create: IVBSAXXMLReader;
+    class function CreateRemote(const MachineName: string): IVBSAXXMLReader;
+  end;
+
+// *********************************************************************//
+// The Class CoSAXXMLReader40 provides a Create and CreateRemote method to          
+// create instances of the default interface IVBSAXXMLReader exposed by              
+// the CoClass SAXXMLReader40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoSAXXMLReader40 = class
+    class function Create: IVBSAXXMLReader;
+    class function CreateRemote(const MachineName: string): IVBSAXXMLReader;
+  end;
+
+// *********************************************************************//
+// The Class CoMXXMLWriter provides a Create and CreateRemote method to          
+// create instances of the default interface IMXWriter exposed by              
+// the CoClass MXXMLWriter. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoMXXMLWriter = class
+    class function Create: IMXWriter;
+    class function CreateRemote(const MachineName: string): IMXWriter;
+  end;
+
+// *********************************************************************//
+// The Class CoMXXMLWriter30 provides a Create and CreateRemote method to          
+// create instances of the default interface IMXWriter exposed by              
+// the CoClass MXXMLWriter30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoMXXMLWriter30 = class
+    class function Create: IMXWriter;
+    class function CreateRemote(const MachineName: string): IMXWriter;
+  end;
+
+// *********************************************************************//
+// The Class CoMXXMLWriter40 provides a Create and CreateRemote method to          
+// create instances of the default interface IMXWriter exposed by              
+// the CoClass MXXMLWriter40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoMXXMLWriter40 = class
+    class function Create: IMXWriter;
+    class function CreateRemote(const MachineName: string): IMXWriter;
+  end;
+
+// *********************************************************************//
+// The Class CoMXHTMLWriter provides a Create and CreateRemote method to          
+// create instances of the default interface IMXWriter exposed by              
+// the CoClass MXHTMLWriter. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoMXHTMLWriter = class
+    class function Create: IMXWriter;
+    class function CreateRemote(const MachineName: string): IMXWriter;
+  end;
+
+// *********************************************************************//
+// The Class CoMXHTMLWriter30 provides a Create and CreateRemote method to          
+// create instances of the default interface IMXWriter exposed by              
+// the CoClass MXHTMLWriter30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoMXHTMLWriter30 = class
+    class function Create: IMXWriter;
+    class function CreateRemote(const MachineName: string): IMXWriter;
+  end;
+
+// *********************************************************************//
+// The Class CoMXHTMLWriter40 provides a Create and CreateRemote method to          
+// create instances of the default interface IMXWriter exposed by              
+// the CoClass MXHTMLWriter40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoMXHTMLWriter40 = class
+    class function Create: IMXWriter;
+    class function CreateRemote(const MachineName: string): IMXWriter;
+  end;
+
+// *********************************************************************//
+// The Class CoSAXAttributes provides a Create and CreateRemote method to          
+// create instances of the default interface IMXAttributes exposed by              
+// the CoClass SAXAttributes. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoSAXAttributes = class
+    class function Create: IMXAttributes;
+    class function CreateRemote(const MachineName: string): IMXAttributes;
+  end;
+
+// *********************************************************************//
+// The Class CoSAXAttributes30 provides a Create and CreateRemote method to          
+// create instances of the default interface IMXAttributes exposed by              
+// the CoClass SAXAttributes30. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoSAXAttributes30 = class
+    class function Create: IMXAttributes;
+    class function CreateRemote(const MachineName: string): IMXAttributes;
+  end;
+
+// *********************************************************************//
+// The Class CoSAXAttributes40 provides a Create and CreateRemote method to          
+// create instances of the default interface IMXAttributes exposed by              
+// the CoClass SAXAttributes40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoSAXAttributes40 = class
+    class function Create: IMXAttributes;
+    class function CreateRemote(const MachineName: string): IMXAttributes;
+  end;
+
+// *********************************************************************//
+// The Class CoMXNamespaceManager provides a Create and CreateRemote method to          
+// create instances of the default interface IVBMXNamespaceManager exposed by              
+// the CoClass MXNamespaceManager. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoMXNamespaceManager = class
+    class function Create: IVBMXNamespaceManager;
+    class function CreateRemote(const MachineName: string): IVBMXNamespaceManager;
+  end;
+
+// *********************************************************************//
+// The Class CoMXNamespaceManager40 provides a Create and CreateRemote method to          
+// create instances of the default interface IVBMXNamespaceManager exposed by              
+// the CoClass MXNamespaceManager40. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoMXNamespaceManager40 = class
+    class function Create: IVBMXNamespaceManager;
+    class function CreateRemote(const MachineName: string): IVBMXNamespaceManager;
+  end;
+
+// *********************************************************************//
+// The Class CoXMLDocument provides a Create and CreateRemote method to          
+// create instances of the default interface IXMLDocument2 exposed by              
+// the CoClass XMLDocument. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoXMLDocument = class
+    class function Create: IXMLDocument2;
+    class function CreateRemote(const MachineName: string): IXMLDocument2;
+  end;
+
+implementation
+
+uses ComObj;
+
+class function CoDOMDocument.Create: IXMLDOMDocument2;
+begin
+  Result := CreateComObject(CLASS_DOMDocument) as IXMLDOMDocument2;
+end;
+
+class function CoDOMDocument.CreateRemote(const MachineName: string): IXMLDOMDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument) as IXMLDOMDocument2;
+end;
+
+class function CoDOMDocument26.Create: IXMLDOMDocument2;
+begin
+  Result := CreateComObject(CLASS_DOMDocument26) as IXMLDOMDocument2;
+end;
+
+class function CoDOMDocument26.CreateRemote(const MachineName: string): IXMLDOMDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument26) as IXMLDOMDocument2;
+end;
+
+class function CoDOMDocument30.Create: IXMLDOMDocument2;
+begin
+  Result := CreateComObject(CLASS_DOMDocument30) as IXMLDOMDocument2;
+end;
+
+class function CoDOMDocument30.CreateRemote(const MachineName: string): IXMLDOMDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument30) as IXMLDOMDocument2;
+end;
+
+class function CoDOMDocument40.Create: IXMLDOMDocument2;
+begin
+  Result := CreateComObject(CLASS_DOMDocument40) as IXMLDOMDocument2;
+end;
+
+class function CoDOMDocument40.CreateRemote(const MachineName: string): IXMLDOMDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument40) as IXMLDOMDocument2;
+end;
+
+class function CoFreeThreadedDOMDocument.Create: IXMLDOMDocument2;
+begin
+  Result := CreateComObject(CLASS_FreeThreadedDOMDocument) as IXMLDOMDocument2;
+end;
+
+class function CoFreeThreadedDOMDocument.CreateRemote(const MachineName: string): IXMLDOMDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_FreeThreadedDOMDocument) as IXMLDOMDocument2;
+end;
+
+class function CoFreeThreadedDOMDocument26.Create: IXMLDOMDocument2;
+begin
+  Result := CreateComObject(CLASS_FreeThreadedDOMDocument26) as IXMLDOMDocument2;
+end;
+
+class function CoFreeThreadedDOMDocument26.CreateRemote(const MachineName: string): IXMLDOMDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_FreeThreadedDOMDocument26) as IXMLDOMDocument2;
+end;
+
+class function CoFreeThreadedDOMDocument30.Create: IXMLDOMDocument2;
+begin
+  Result := CreateComObject(CLASS_FreeThreadedDOMDocument30) as IXMLDOMDocument2;
+end;
+
+class function CoFreeThreadedDOMDocument30.CreateRemote(const MachineName: string): IXMLDOMDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_FreeThreadedDOMDocument30) as IXMLDOMDocument2;
+end;
+
+class function CoFreeThreadedDOMDocument40.Create: IXMLDOMDocument2;
+begin
+  Result := CreateComObject(CLASS_FreeThreadedDOMDocument40) as IXMLDOMDocument2;
+end;
+
+class function CoFreeThreadedDOMDocument40.CreateRemote(const MachineName: string): IXMLDOMDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_FreeThreadedDOMDocument40) as IXMLDOMDocument2;
+end;
+
+class function CoXMLSchemaCache.Create: IXMLDOMSchemaCollection;
+begin
+  Result := CreateComObject(CLASS_XMLSchemaCache) as IXMLDOMSchemaCollection;
+end;
+
+class function CoXMLSchemaCache.CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLSchemaCache) as IXMLDOMSchemaCollection;
+end;
+
+class function CoXMLSchemaCache26.Create: IXMLDOMSchemaCollection;
+begin
+  Result := CreateComObject(CLASS_XMLSchemaCache26) as IXMLDOMSchemaCollection;
+end;
+
+class function CoXMLSchemaCache26.CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLSchemaCache26) as IXMLDOMSchemaCollection;
+end;
+
+class function CoXMLSchemaCache30.Create: IXMLDOMSchemaCollection;
+begin
+  Result := CreateComObject(CLASS_XMLSchemaCache30) as IXMLDOMSchemaCollection;
+end;
+
+class function CoXMLSchemaCache30.CreateRemote(const MachineName: string): IXMLDOMSchemaCollection;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLSchemaCache30) as IXMLDOMSchemaCollection;
+end;
+
+class function CoXMLSchemaCache40.Create: IXMLDOMSchemaCollection2;
+begin
+  Result := CreateComObject(CLASS_XMLSchemaCache40) as IXMLDOMSchemaCollection2;
+end;
+
+class function CoXMLSchemaCache40.CreateRemote(const MachineName: string): IXMLDOMSchemaCollection2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLSchemaCache40) as IXMLDOMSchemaCollection2;
+end;
+
+class function CoXSLTemplate.Create: IXSLTemplate;
+begin
+  Result := CreateComObject(CLASS_XSLTemplate) as IXSLTemplate;
+end;
+
+class function CoXSLTemplate.CreateRemote(const MachineName: string): IXSLTemplate;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XSLTemplate) as IXSLTemplate;
+end;
+
+class function CoXSLTemplate26.Create: IXSLTemplate;
+begin
+  Result := CreateComObject(CLASS_XSLTemplate26) as IXSLTemplate;
+end;
+
+class function CoXSLTemplate26.CreateRemote(const MachineName: string): IXSLTemplate;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XSLTemplate26) as IXSLTemplate;
+end;
+
+class function CoXSLTemplate30.Create: IXSLTemplate;
+begin
+  Result := CreateComObject(CLASS_XSLTemplate30) as IXSLTemplate;
+end;
+
+class function CoXSLTemplate30.CreateRemote(const MachineName: string): IXSLTemplate;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XSLTemplate30) as IXSLTemplate;
+end;
+
+class function CoXSLTemplate40.Create: IXSLTemplate;
+begin
+  Result := CreateComObject(CLASS_XSLTemplate40) as IXSLTemplate;
+end;
+
+class function CoXSLTemplate40.CreateRemote(const MachineName: string): IXSLTemplate;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XSLTemplate40) as IXSLTemplate;
+end;
+
+class function CoDSOControl.Create: IDSOControl;
+begin
+  Result := CreateComObject(CLASS_DSOControl) as IDSOControl;
+end;
+
+class function CoDSOControl.CreateRemote(const MachineName: string): IDSOControl;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_DSOControl) as IDSOControl;
+end;
+
+class function CoDSOControl26.Create: IDSOControl;
+begin
+  Result := CreateComObject(CLASS_DSOControl26) as IDSOControl;
+end;
+
+class function CoDSOControl26.CreateRemote(const MachineName: string): IDSOControl;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_DSOControl26) as IDSOControl;
+end;
+
+class function CoDSOControl30.Create: IDSOControl;
+begin
+  Result := CreateComObject(CLASS_DSOControl30) as IDSOControl;
+end;
+
+class function CoDSOControl30.CreateRemote(const MachineName: string): IDSOControl;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_DSOControl30) as IDSOControl;
+end;
+
+class function CoDSOControl40.Create: IDSOControl;
+begin
+  Result := CreateComObject(CLASS_DSOControl40) as IDSOControl;
+end;
+
+class function CoDSOControl40.CreateRemote(const MachineName: string): IDSOControl;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_DSOControl40) as IDSOControl;
+end;
+
+class function CoXMLHTTP.Create: IXMLHTTPRequest;
+begin
+  Result := CreateComObject(CLASS_XMLHTTP) as IXMLHTTPRequest;
+end;
+
+class function CoXMLHTTP.CreateRemote(const MachineName: string): IXMLHTTPRequest;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTP) as IXMLHTTPRequest;
+end;
+
+class function CoXMLHTTP26.Create: IXMLHTTPRequest;
+begin
+  Result := CreateComObject(CLASS_XMLHTTP26) as IXMLHTTPRequest;
+end;
+
+class function CoXMLHTTP26.CreateRemote(const MachineName: string): IXMLHTTPRequest;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTP26) as IXMLHTTPRequest;
+end;
+
+class function CoXMLHTTP30.Create: IXMLHTTPRequest;
+begin
+  Result := CreateComObject(CLASS_XMLHTTP30) as IXMLHTTPRequest;
+end;
+
+class function CoXMLHTTP30.CreateRemote(const MachineName: string): IXMLHTTPRequest;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTP30) as IXMLHTTPRequest;
+end;
+
+class function CoXMLHTTP40.Create: IXMLHTTPRequest;
+begin
+  Result := CreateComObject(CLASS_XMLHTTP40) as IXMLHTTPRequest;
+end;
+
+class function CoXMLHTTP40.CreateRemote(const MachineName: string): IXMLHTTPRequest;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTP40) as IXMLHTTPRequest;
+end;
+
+class function CoServerXMLHTTP.Create: IServerXMLHTTPRequest2;
+begin
+  Result := CreateComObject(CLASS_ServerXMLHTTP) as IServerXMLHTTPRequest2;
+end;
+
+class function CoServerXMLHTTP.CreateRemote(const MachineName: string): IServerXMLHTTPRequest2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_ServerXMLHTTP) as IServerXMLHTTPRequest2;
+end;
+
+class function CoServerXMLHTTP30.Create: IServerXMLHTTPRequest2;
+begin
+  Result := CreateComObject(CLASS_ServerXMLHTTP30) as IServerXMLHTTPRequest2;
+end;
+
+class function CoServerXMLHTTP30.CreateRemote(const MachineName: string): IServerXMLHTTPRequest2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_ServerXMLHTTP30) as IServerXMLHTTPRequest2;
+end;
+
+class function CoServerXMLHTTP40.Create: IServerXMLHTTPRequest2;
+begin
+  Result := CreateComObject(CLASS_ServerXMLHTTP40) as IServerXMLHTTPRequest2;
+end;
+
+class function CoServerXMLHTTP40.CreateRemote(const MachineName: string): IServerXMLHTTPRequest2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_ServerXMLHTTP40) as IServerXMLHTTPRequest2;
+end;
+
+class function CoSAXXMLReader.Create: IVBSAXXMLReader;
+begin
+  Result := CreateComObject(CLASS_SAXXMLReader) as IVBSAXXMLReader;
+end;
+
+class function CoSAXXMLReader.CreateRemote(const MachineName: string): IVBSAXXMLReader;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_SAXXMLReader) as IVBSAXXMLReader;
+end;
+
+class function CoSAXXMLReader30.Create: IVBSAXXMLReader;
+begin
+  Result := CreateComObject(CLASS_SAXXMLReader30) as IVBSAXXMLReader;
+end;
+
+class function CoSAXXMLReader30.CreateRemote(const MachineName: string): IVBSAXXMLReader;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_SAXXMLReader30) as IVBSAXXMLReader;
+end;
+
+class function CoSAXXMLReader40.Create: IVBSAXXMLReader;
+begin
+  Result := CreateComObject(CLASS_SAXXMLReader40) as IVBSAXXMLReader;
+end;
+
+class function CoSAXXMLReader40.CreateRemote(const MachineName: string): IVBSAXXMLReader;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_SAXXMLReader40) as IVBSAXXMLReader;
+end;
+
+class function CoMXXMLWriter.Create: IMXWriter;
+begin
+  Result := CreateComObject(CLASS_MXXMLWriter) as IMXWriter;
+end;
+
+class function CoMXXMLWriter.CreateRemote(const MachineName: string): IMXWriter;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_MXXMLWriter) as IMXWriter;
+end;
+
+class function CoMXXMLWriter30.Create: IMXWriter;
+begin
+  Result := CreateComObject(CLASS_MXXMLWriter30) as IMXWriter;
+end;
+
+class function CoMXXMLWriter30.CreateRemote(const MachineName: string): IMXWriter;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_MXXMLWriter30) as IMXWriter;
+end;
+
+class function CoMXXMLWriter40.Create: IMXWriter;
+begin
+  Result := CreateComObject(CLASS_MXXMLWriter40) as IMXWriter;
+end;
+
+class function CoMXXMLWriter40.CreateRemote(const MachineName: string): IMXWriter;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_MXXMLWriter40) as IMXWriter;
+end;
+
+class function CoMXHTMLWriter.Create: IMXWriter;
+begin
+  Result := CreateComObject(CLASS_MXHTMLWriter) as IMXWriter;
+end;
+
+class function CoMXHTMLWriter.CreateRemote(const MachineName: string): IMXWriter;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_MXHTMLWriter) as IMXWriter;
+end;
+
+class function CoMXHTMLWriter30.Create: IMXWriter;
+begin
+  Result := CreateComObject(CLASS_MXHTMLWriter30) as IMXWriter;
+end;
+
+class function CoMXHTMLWriter30.CreateRemote(const MachineName: string): IMXWriter;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_MXHTMLWriter30) as IMXWriter;
+end;
+
+class function CoMXHTMLWriter40.Create: IMXWriter;
+begin
+  Result := CreateComObject(CLASS_MXHTMLWriter40) as IMXWriter;
+end;
+
+class function CoMXHTMLWriter40.CreateRemote(const MachineName: string): IMXWriter;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_MXHTMLWriter40) as IMXWriter;
+end;
+
+class function CoSAXAttributes.Create: IMXAttributes;
+begin
+  Result := CreateComObject(CLASS_SAXAttributes) as IMXAttributes;
+end;
+
+class function CoSAXAttributes.CreateRemote(const MachineName: string): IMXAttributes;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_SAXAttributes) as IMXAttributes;
+end;
+
+class function CoSAXAttributes30.Create: IMXAttributes;
+begin
+  Result := CreateComObject(CLASS_SAXAttributes30) as IMXAttributes;
+end;
+
+class function CoSAXAttributes30.CreateRemote(const MachineName: string): IMXAttributes;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_SAXAttributes30) as IMXAttributes;
+end;
+
+class function CoSAXAttributes40.Create: IMXAttributes;
+begin
+  Result := CreateComObject(CLASS_SAXAttributes40) as IMXAttributes;
+end;
+
+class function CoSAXAttributes40.CreateRemote(const MachineName: string): IMXAttributes;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_SAXAttributes40) as IMXAttributes;
+end;
+
+class function CoMXNamespaceManager.Create: IVBMXNamespaceManager;
+begin
+  Result := CreateComObject(CLASS_MXNamespaceManager) as IVBMXNamespaceManager;
+end;
+
+class function CoMXNamespaceManager.CreateRemote(const MachineName: string): IVBMXNamespaceManager;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_MXNamespaceManager) as IVBMXNamespaceManager;
+end;
+
+class function CoMXNamespaceManager40.Create: IVBMXNamespaceManager;
+begin
+  Result := CreateComObject(CLASS_MXNamespaceManager40) as IVBMXNamespaceManager;
+end;
+
+class function CoMXNamespaceManager40.CreateRemote(const MachineName: string): IVBMXNamespaceManager;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_MXNamespaceManager40) as IVBMXNamespaceManager;
+end;
+
+class function CoXMLDocument.Create: IXMLDocument2;
+begin
+  Result := CreateComObject(CLASS_XMLDocument) as IXMLDocument2;
+end;
+
+class function CoXMLDocument.CreateRemote(const MachineName: string): IXMLDocument2;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_XMLDocument) as IXMLDocument2;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMSXMLImpl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMSXMLImpl.pas
new file mode 100644
index 0000000..bf58ad6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMSXMLImpl.pas	
@@ -0,0 +1,626 @@
+unit uROMSXMLImpl;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, ActiveX, uROMSXML2_TLB, uROXMLIntf, uROTypes;
+
+type TMSXMLVersion = (msxml26, msxml30, msxml40);
+     TMSXMLVersions = set of TMSXMLVersion;
+
+const MSXMLFileNames : array[TMSXMLVersion] of string = ('msxml2.dll', 'msxml3.dll', 'msxml4.dll');
+
+type { TROMSXMLNode }
+     TROMSXMLNode = class(TInterfacedObject, IXMLNode)
+     private
+       fNode : IXMLDOMNode;
+       fDoc : IXMLDocument;
+
+     protected
+       function GetName : UnicodeString;
+       function GetLocalName : UnicodeString;
+       function GetRef : pointer;
+
+       function GetParent : IXMLNode;
+
+       function GetValue : Variant;
+       procedure SetValue(const Value : Variant);
+
+       function GetXML : UnicodeString;
+
+       function GetAttributes(Index : integer) : IXMLNode;
+       function GetAttributeCount : integer;
+
+       function GetChildren(Index : integer) : IXMLNode;
+       function GetChildrenCount : integer;
+
+       function Add(const aNodeName : UnicodeString; aNameSpaceURI: UnicodeString = '') : IXMLNode;
+       function AddAttribute(const anAttributeName : UnicodeString; const anAttributeValue : Variant; aCreateResultNode: Boolean = True) : IXMLNode;
+       function AddXml(const Xml: UnicodeString): IXMLNode;
+       function AddCDATASection(const aData: UnicodeString): IXMLNode;
+
+       procedure Delete(Index : integer);
+       procedure Remove(const aNode : IXMLNode);
+
+       function GetNodeByName(const aNodeName : UnicodeString) : IXMLNode; // Returns NIL if none is found or exception. Up to you.
+       function GetNodeValue(const aNodeName : UnicodeString; const Default : Variant) : Variant;
+
+       function GetAttributeByName(const anAttributeName : UnicodeString) : IXMLNode;
+       function GetAttributeValue(const anAttributeName : UnicodeString; DefaultValue : Variant) : Variant;
+
+       function GetNodesByName(const aNodeName : UnicodeString) : IXMLNodeList; // Returns NIL if none are found or exception. Up to you.
+
+       function GetNodeByAttribute(const anAttributeName, anAttributeValue : UnicodeString) : IXMLNode;
+
+       function GetFirstChild: IXMLNode;
+       function GetNextSibling: IXMLNode;
+       function GetNamespaceURI: UnicodeString;
+       function GetDocument: IXMLDocument;
+
+
+     public
+       constructor Create(const aNode : IXMLDOMNode; aDoc: IXMLDocument);
+       destructor Destroy; override;
+     end;
+
+     { TROMSXMLNodeList }
+     TROMSXMLNodeList = class(TInterfacedObject, IXMLNodeLIst)
+     private
+       fNodeList : IXMLDOMNodeList;
+       fDoc: IXMLDocument;
+     protected
+       function GetNodes(Index : integer) : IXMLNode;
+       function GetCount : integer;
+
+     public
+       constructor Create(const aNodeList : IXMLDOMNodeList; aDoc: IXMLDocument);
+       destructor Destroy; override;
+     end;
+
+     { TROMSXMLDocument }
+     TROMSXMLDocument = class(TInterfacedObject, IXMLDocument)
+     private
+       fDocument : IXMLDOMDocument2;
+
+     protected
+       function GetDocumentNode : IXMLNode;
+
+       function GetEncoding : TXMLEncoding;
+
+       procedure New(aDocumentName : UnicodeString = ''; anEncoding : TXMLEncoding = xeUTF8);
+
+       procedure SaveToStream(aStream : TStream);
+       procedure SaveToFile(const aFileName : string);
+       procedure LoadFromStream(aStream : TStream);
+       procedure LoadFromFile(const aFileName : string);
+
+       function GetXML:UnicodeString;
+       procedure SetXML(const Value : UnicodeString);
+
+       function Transform(const aXSL: string): string;
+       procedure Transform2(const aXSL : string; aStream : TStream);
+
+     public
+       constructor Create;
+       destructor Destroy; override;
+
+     end;
+
+var InstalledMSXMLVersions : TMSXMLVersions;
+
+implementation
+
+uses uRORes, uROClasses, SysUtils, ComObj, TYpInfo, Windows, StrUtils;
+
+{ TROMSXMLNode }
+
+constructor TROMSXMLNode.Create(const aNode : IXMLDOMNode; aDoc: IXMLDocument);
+begin
+  if not Assigned(aNode)
+    then RaiseError(err_DOMElementIsNIL, []);
+
+  inherited Create;
+
+  fNode := aNode;
+  fDoc := aDoc;
+end;
+
+destructor TROMSXMLNode.Destroy;
+begin
+  //fNode := NIL;
+  inherited;
+end;
+
+function TROMSXMLNode.Add(const aNodeName: UnicodeString; aNameSpaceURI: UnicodeString = ''): IXMLNode;
+var node : IXMLDOMNode;
+begin
+  if (aNameSpaceURI = '') and (GetNamespaceURI <> '') then aNameSpaceURI := GetNamespaceURI;
+  if aNameSpaceURI = '' then
+  begin
+    node := fNode.attributes.getNamedItem('xmlns');
+    if node <> nil then
+      node := fNode.ownerDocument.createNode(NODE_ELEMENT, aNodeName, node.text)
+    else
+      node := fNode.ownerDocument.createElement(aNodeName);
+  end
+  else
+    if aNameSpaceURI = XMLEmptyNS then
+      node := fNode.ownerDocument.createElement(aNodeName)
+    else
+    node := fNode.ownerDocument.createNode(NODE_ELEMENT, aNodeName, aNameSpaceURI);
+  fNode.appendChild(node);
+
+  result := TROMSXMLNode.Create(node, fDoc);
+end;
+
+procedure TROMSXMLNode.Delete(Index: integer);
+begin
+  fNode.removeChild(fNode.childNodes.item[Index])
+end;
+
+function TROMSXMLNode.GetAttributes(Index : integer): IXMLNode;
+begin
+  result := TROMSXMLNode.Create(fNode.attributes.item[Index], fDoc);
+end;
+
+function TROMSXMLNode.GetChildren(Index : integer): IXMLNode;
+begin
+  result := TROMSXMLNode.Create(fNode.childNodes.item[Index], fDoc)
+end;
+
+function TROMSXMLNode.GetName: UnicodeString;
+begin
+  result := fNode.nodeName
+end;
+
+function TROMSXMLNode.GetXML: UnicodeString;
+begin
+  result := fNode.XML;
+end;
+
+procedure TROMSXMLNode.Remove(const aNode: IXMLNode);
+begin
+  fNode.removeChild(IXMLDOMNode(aNode.Ref))
+end;
+
+function TROMSXMLNode.GetValue: Variant;
+begin
+  result := fNode.text
+end;
+
+procedure TROMSXMLNode.SetValue(const Value: Variant);
+var
+  s1, s2: string;
+begin
+  s1 := Copy(Value, 1, 9);
+  s2 := Copy(Value,Length(Value) - 2, Length(Value));
+  if (s1 = '<![CDATA[') and (s2 = ']]>') then
+    fNode.appendChild(fNode.ownerDocument.createCDATASection(Copy(Value, 10, Length(Value) - 12)))
+  else
+    fNode.text := Value
+end;
+
+function TROMSXMLNode.GetNodeByName(const aNodeName: UnicodeString): IXMLNode;
+var //list : IXMLDOMNodeList;
+    node : IXMLDOMNode;
+begin
+  result := NIL;
+
+  node := fNode.selectSingleNode(aNodeName);
+
+  if (node<>NIL)
+    then result := TROMSXMLNode.Create(node, fDoc);
+end;
+
+function TROMSXMLNode.GetNodeByAttribute(const anAttributeName,
+  anAttributeValue: UnicodeString): IXMLNode;
+var i : integer;
+begin
+  result := NIL;
+  if fNode.attributes = nil then exit;
+  for i := 0 to (fNode.attributes.length-1) do
+    with fNode.attributes.item[i] do
+      if (nodeName=anAttributeName) and (nodeValue=anAttributeValue) then begin
+        result := TROMSXMLNode.Create(fNode.attributes.item[i], fDoc);
+        Exit;
+      end;
+end;
+
+function TROMSXMLNode.GetNodesByName(const aNodeName: UnicodeString): IXMLNodeList;
+var list : IXMLDOMNodeList;
+begin
+  result := NIL;
+
+  list := fNode.selectNodes(aNodeName);
+
+  if (list<>NIL) or (list.length>0)
+    then result := TROMSXMLNodeList.Create(list, fDoc);
+end;
+
+function TROMSXMLNode.GetAttributeByName(
+  const anAttributeName: UnicodeString): IXMLNode;
+var node : IXMLDOMNode;
+begin
+  result := NIL;
+  if fNode.attributes = nil then exit;
+  node := fNode.attributes.getNamedItem(anAttributeName);
+
+  if (node<>NIL)
+    then result := TROMSXMLNode.Create(node, fDoc);
+end;
+
+function TROMSXMLNode.GetRef: pointer;
+begin
+  result := pointer(fNode);
+end;
+
+function TROMSXMLNode.GetLocalName: UnicodeString;
+begin
+  result := fNode.baseName
+end;
+
+function TROMSXMLNode.AddAttribute(const anAttributeName : UnicodeString;
+  const anAttributeValue : Variant;aCreateResultNode: Boolean = True) : IXMLNode;
+var
+  attr : IXMLDOMAttribute;
+begin
+  attr := fNode.ownerDocument.createAttribute(anAttributeName);
+  attr.value := anAttributeValue;
+  fNode.attributes.setNamedItem(attr);
+  if aCreateResultNode then
+    result := TROMSXMLNode.Create(attr, fDoc)
+  else
+    result:=nil;
+end;
+
+function TROMSXMLNode.AddCDATASection(const aData: UnicodeString): IXMLNode;
+var
+  cdata : IXMLDOMCDATASection;
+begin
+  cdata := fNode.ownerDocument.createCDATASection(aData);
+  fNode.appendChild(cdata);
+  result := TROMSXMLNode.Create(cdata, fDoc);
+end;
+
+function TROMSXMLNode.GetParent: IXMLNode;
+begin
+  result := NIL;
+  if (fNode.parentNode<>NIL)
+    then result := TROMSXMLNode.Create(fNode.parentNode, fDoc);
+end;
+
+function TROMSXMLNode.GetAttributeCount: integer;
+begin
+  result := fNode.attributes.length
+end;
+
+function TROMSXMLNode.GetChildrenCount: integer;
+begin
+  result := fNode.childNodes.length
+end;
+
+function TROMSXMLNode.GetAttributeValue(const anAttributeName: UnicodeString;
+  DefaultValue: Variant): Variant;
+var attr : IXMLNode;
+begin
+  attr := GetAttributeByName(anAttributeName);
+  if (attr<>NIL) then result := attr.Value
+                else result := DefaultValue;
+end;
+
+function TROMSXMLNode.GetNodeValue(const aNodeName: UnicodeString;
+  const Default: Variant): Variant;
+var node : IXMLNode;
+begin
+  node := GetNodeByName(aNodeName);
+  if (node=NIL) then result := Default
+                else result := node.Value;
+end;
+
+function TROMSXMLNode.GetFirstChild: IXMLNode;
+var
+  aNode: IXMLDOMNode;
+begin
+  aNode := fNode.firstChild;
+  if aNode <> nil then
+    Result := TROMSXMLNode.Create(aNode, fDoc)
+  else
+    Result := nil;
+end;
+
+function TROMSXMLNode.GetNextSibling: IXMLNode;
+var
+  aNode: IXMLDOMNode;
+begin
+  aNode := fNode.nextSibling;
+  if aNode <> nil then
+    Result := TROMSXMLNode.Create(aNode, fDoc)
+  else
+    Result := nil;
+end;
+
+function TROMSXMLNode.GetNamespaceURI: UnicodeString;
+begin
+  result := fNode.namespaceURI;
+end;
+
+function TROMSXMLNode.AddXml(const Xml: UnicodeString): IXMLNode;
+var
+  doc: TROMSXMLDocument;
+begin
+  doc := TROMSXMLDocument.Create;
+  try
+    doc.New();
+    doc.SetXML(Xml);
+    if doc.fDocument.documentElement <> nil then begin
+      result := TROMSXMLNode.Create(fNode.appendChild(doc.fDocument.documentElement), fDoc);
+    end else result := nil;
+  finally
+    doc.Free;
+  end;
+end;
+
+function TROMSXMLNode.GetDocument: IXMLDocument;
+begin
+  Result := fDoc;
+end;
+
+{ TROMSXMLNodeList }
+
+constructor TROMSXMLNodeList.Create(const aNodeList: IXMLDOMNodeList; aDoc: IXMLDocument);
+begin
+  if not Assigned(aNodeList)
+    then RaiseError(err_DOMElementIsNIL, []);
+
+  inherited Create;
+
+  fNodeList := aNodeList;
+  fDoc := aDoc;
+end;
+
+destructor TROMSXMLNodeList.Destroy;
+begin
+//  fNodeList := NIL;
+  inherited;
+end;
+
+function TROMSXMLNodeList.GetCount: integer;
+begin
+  result := fNodeList.length
+end;
+
+function TROMSXMLNodeList.GetNodes(Index: integer): IXMLNode;
+begin
+  result := TROMSXMLNode.Create(fNodeList.item[Index], fDoc)
+end;
+
+{ TROMSXMLDocument }
+
+constructor TROMSXMLDocument.Create;
+begin
+  inherited Create;
+  fDocument := NIL;
+end;
+
+destructor TROMSXMLDocument.Destroy;
+begin
+  fDocument := NIL;
+  inherited;
+end;
+
+function TROMSXMLDocument.GetDocumentNode: IXMLNode;
+begin
+  result := TROMSXMLNode.Create(fDocument.documentElement, self)
+end;
+
+function TROMSXMLDocument.GetEncoding: TXMLEncoding;
+begin
+  result := xeUTF8; // TODO: Complete the UTF8/16 differentiation.
+end;
+
+function TROMSXMLDocument.GetXml: UnicodeString;
+begin
+  result := fDocument.xml;
+end;
+
+procedure TROMSXMLDocument.LoadFromFile(const aFileName: string);
+begin
+  if not fDocument.load(aFileName)
+    then with fDocument.parseError do
+      RaiseError(err_CannotLoadXMLDocument, [Reason, Line, linePos]);
+end;
+
+procedure TROMSXMLDocument.LoadFromStream(aStream: TStream);
+var adapter : IStream;
+begin
+  aStream.Position := 0;
+  adapter := TStreamAdapter.Create(aStream, soReference);
+  fDocument.async := FALSE;
+  if not fDocument.load(adapter) then
+    with fDocument.parseError do
+      RaiseError(err_CannotLoadXMLDocument, [Reason, Line, linePos]);
+end;
+
+procedure TROMSXMLDocument.New(aDocumentName : UnicodeString = ''; anEncoding : TXMLEncoding = xeUTF8);
+var
+  lPi: IXMLDOMProcessingInstruction;
+begin
+{   !!! IMPORTANT !!!
+
+    If you get an exception saying "CoInitialize has not been called" make sure the unit
+    uROCOMInit.pas is included in *and* is the FIRST UNIT of your DPR file.
+
+    For example:
+
+       program NewProject;
+
+       uses
+         uROCOMInit, <--- HERE!!!
+         Forms,
+         [..]
+}
+  if fDocument <> nil then begin
+    While fDocument.childNodes.length >0 do
+      fDocument.removeChild(fDocument.childNodes[0]);
+  end else
+
+  try
+    if msxml40 in InstalledMSXMLVersions
+      then fDocument := CoDOMDocument40.Create // See note above in case of an exception here
+
+    else if msxml30 in InstalledMSXMLVersions
+      then fDocument := CoDOMDocument30.Create // See note above in case of an exception here
+
+    else if msxml26 in InstalledMSXMLVersions
+      then fDocument := CoDOMDocument26.Create // See note above in case of an exception here
+
+      else RaiseError(err_NoXMLParsersAvailable, []);
+
+    fDocument.async := false;
+
+  except
+    on E:Exception do RaiseError(err_ErrorCreatingMsXmlDoc,[E.ClassName, E.Message]);
+    else raise;
+  end;
+
+  if (aDocumentName<>'')
+    then fDocument.documentElement := fDocument.createElement(aDocumentName);
+  if anEncoding = xeUTF8 then
+    lpi := fDocument.createProcessingInstruction('xml', 'version="1.0" encoding="utf-8"')
+  else
+    lpi := fDocument.createProcessingInstruction('xml', 'version="1.0" encoding="utf-16"');
+  fDocument.insertBefore(lpi, fDocument.childNodes[0]);
+  fDocument.preserveWhiteSpace := true;
+  fDocument.resolveExternals := false;
+  fDocument.validateOnParse := false;
+end;
+
+procedure TROMSXMLDocument.SaveToFile(const aFileName: string);
+begin
+  fDocument.save(aFileName);
+end;
+
+procedure TROMSXMLDocument.SaveToStream(aStream: TStream);
+var adapter : IStream;
+begin
+  adapter := TStreamAdapter.Create(aStream, soReference);
+  fDocument.save(adapter);
+end;
+
+function DetectMSXMLVersions : TMSXMLVersions;
+var
+    sysdir : array[0..199] of Char;
+    ver : TMSXMLVersion;
+begin
+  result := [];
+
+  GetSystemDirectory(sysdir, SizeOf(sysdir));
+  
+  for ver := Low(TMSXMLVersion) to High(TMSXMLVersion) do
+    if FileExists(IncludeTrailingPathDelimiter(sysdir)+MSXMLFileNames[ver])
+      then result := result+[ver];
+end;
+
+procedure TROMSXMLDocument.SetXML(const Value: UnicodeString);
+begin
+  if not fDocument.loadXML(Value) then
+    raise Exception.Create('Invalid input');
+end;
+
+const MSXMLDOM_Name = 'Msxml2.DOMDocument.3.0';
+
+function TROMSXMLDocument.Transform(const aXSL: string): string;
+var
+  XSLStylesheet: IXMLDOMDocument2;
+  XSLTemplate: IXSLTemplate;
+  XSLProcessor: IXSLProcessor;
+  adapter : IStream;
+  aStream: TROBinaryMemoryStream;
+begin
+  result := '';
+
+  XSLStylesheet := CoFreeThreadedDomDocument.Create;
+  XSLStylesheet.Async := FALSE;
+  if not XSLStylesheet.loadXML(aXSL)
+    then raise exception.create('Couldn''t load XSL stylesheet');
+
+  XSLTemplate := CoXSLTemplate.Create;
+  XSLTemplate._Set_stylesheet(XSLStylesheet);
+
+  XSLProcessor := XSLTemplate.createprocessor;
+  XSLProcessor.input := fDocument;
+
+  aStream := TROBinaryMemoryStream.Create('');
+  try
+    adapter := TStreamAdapter.Create(aStream, soReference);
+    XSLProcessor.output := adapter;
+    if XSLProcessor.Transform then begin
+      {$IFDEF UNICODE}
+      With TStringList.Create do try
+        aStream.Position:=0;
+        LoadFromStream(aStream);
+        // UTF-16 header
+        Result := char($FEFF) + Text;
+      finally
+        Free;
+      end;
+      {$ELSE}
+      result := aStream.ToString;
+      {$ENDIF}
+    end;
+  finally
+    adapter:=nil;
+    aStream.Free;
+  end;
+end;
+
+procedure TROMSXMLDocument.Transform2(const aXSL: string; aStream: TStream);
+var
+  output: TROMSXMLDocument;
+  XSLStylesheet: TROMSXMLDocument;
+begin
+  output := TROMSXMLDocument.Create;
+  try
+    output.New;
+    output.fDocument.preserveWhiteSpace := False;
+    XSLStylesheet := TROMSXMLDocument.Create;
+    try
+      XSLStylesheet.New;
+      XSLStylesheet.SetXML(aXSL);
+
+      fDocument.transformNodeToObject(XSLStylesheet.fDocument, output.fDocument);
+    finally
+      XSLStylesheet.Free;
+    end;
+    output.SaveToStream(aStream);
+  finally
+    output.Free;
+  end;
+end;
+
+initialization
+// Removed in favour of the unit uROCOMInit.pas which has to be added as first unit to the project's DPR
+// See http://www.devexpress.com/products/vcl/ewf/faq.asp#A8 for more info
+
+//  CoInitializeEx(nil, COINIT_MULTITHREADED or COINIT_SPEED_OVER_MEMORY);
+
+  InstalledMSXMLVersions := DetectMSXMLVersions;
+
+finalization
+//  CoUninitialize;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMasterServerEventRepository.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMasterServerEventRepository.pas
new file mode 100644
index 0000000..067aa13
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMasterServerEventRepository.pas	
@@ -0,0 +1,146 @@
+unit uROMasterServerEventRepository;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROEventRepository, uROClientIntf, uROClient, uROTypes, ROMasterServerLibrary_Intf;
+
+type
+  { TROMasterServerEventRepository }
+  TROMasterServerEventRepository = class(TROEventRepository)
+  private
+    fChannel: TROTransportChannel;
+    fSessionManager : IROSessionManager;
+
+    procedure SetChannel(const Value: TROTransportChannel);
+    function GetSessionManager: IROSessionManager;
+
+  protected
+    procedure Notification(aComponent: TComponent; Operation: TOperation); override;
+
+    { Overrides }
+    procedure DoStoreEventData(SourceSessionID : TGUID; Data : Binary;
+                               const ExcludeSender: Boolean;
+                               const ExcludeSessionList: Boolean;
+                               const SessionList: String); override;
+    function DoGetEventData(SessionID : TGUID; var TargetStream : Binary) : integer; override;
+    procedure DoAddSession(aSessionID : TGUID); override;
+    procedure DoRemoveSession(aSessionID : TGUID); override;
+
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; override;
+    property SessionManager : IROSessionManager read GetSessionManager;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Channel : TROTransportChannel read fChannel write SetChannel;
+
+  end;
+
+implementation
+
+uses
+  SysUtils, uROClasses;
+
+{ TROMasterServerEventRepository }
+
+procedure TROMasterServerEventRepository.Assign(Source: TPersistent);
+var
+  lSource: TROMasterServerEventRepository;
+begin
+  inherited;
+  if Source is TROMasterServerEventRepository then begin
+    lSource := TROMasterServerEventRepository(Source);
+
+    Channel := lSource.Channel;
+  end;
+end;
+
+procedure TROMasterServerEventRepository.CheckProperties;
+begin
+  Check(Channel = nil, Name + '.Channel must be assigned.');
+  Channel.CheckProperties;
+  inherited;
+end;
+
+constructor TROMasterServerEventRepository.Create(aOwner: TComponent);
+begin
+  inherited;
+end;
+
+destructor TROMasterServerEventRepository.Destroy;
+begin
+  Channel := nil;
+  inherited;
+end;
+
+procedure TROMasterServerEventRepository.DoAddSession(aSessionID: TGUID);
+begin
+  SessionManager.CreateSession(GUIDToAnsiString(aSessionID), NIL);
+end;
+
+function TROMasterServerEventRepository.DoGetEventData(SessionID: TGUID; var TargetStream: Binary): integer;
+begin
+  TargetStream.Free;
+  result := SessionManager.GetMessages(GUIDToAnsiString(SessionID), TargetStream);
+  TargetStream.Position := 0;
+end;
+
+procedure TROMasterServerEventRepository.DoRemoveSession(
+  aSessionID: TGUID);
+begin
+  SessionManager.DeleteSession(GUIDToAnsiString(aSessionID));
+end;
+
+procedure TROMasterServerEventRepository.DoStoreEventData(SourceSessionID : TGUID; Data : Binary;
+  const ExcludeSender: Boolean; const ExcludeSessionList: Boolean; const SessionList: String);
+begin
+  SessionManager.StoreMessage(GUIDToAnsiString(SourceSessionID), Data{, ExcludeSender, ExcludeSessionList, SessionList})
+end;
+
+function TROMasterServerEventRepository.GetSessionManager: IROSessionManager;
+begin
+  CheckProperties;
+  if (fSessionManager=NIL) then begin
+    fSessionManager := CoROSessionManager.Create(Message, Channel);
+  end;
+
+  result := fSessionManager;
+end;
+
+procedure TROMasterServerEventRepository.Notification(
+  aComponent: TComponent; Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation<>opRemove) then Exit;
+
+  if (aComponent=fChannel) then Channel := NIL;
+end;
+
+procedure TROMasterServerEventRepository.SetChannel(
+  const Value: TROTransportChannel);
+begin
+  if (fChannel <> Value) then begin
+    if (fChannel <> nil ) then fChannel.RORemoveFreeNotification(Self);
+    fChannel := Value;
+    if (fChannel <> nil ) then fChannel.ROFreeNotification(Self);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMasterServerSessionManager.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMasterServerSessionManager.pas
new file mode 100644
index 0000000..b4288c7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROMasterServerSessionManager.pas	
@@ -0,0 +1,176 @@
+unit uROMasterServerSessionManager;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROClient, uROSessions, uROBinMessage, uROTypes,
+  ROMasterServerLibrary_Intf;
+
+type
+  { TROMasterServerSessionManager }
+  TROMasterServerSessionManager = class(TROCustomSessionManager)
+  private
+    fBINMessage : TROBinMessage;
+    fChannel: TROTransportChannel;
+    fSessionManager : IROSessionManager;
+
+    procedure SetChannel(const Value: TROTransportChannel);
+    function GetSessionManager: IROSessionManager;
+
+  protected
+    procedure  Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    { Overrides }
+    function DoFindSession(const aSessionID : TGUID; aUpdateTime: Boolean) : TROSession; override;
+    procedure DoDeleteSession(const aSessionID : TGUID; IsExpired : boolean); override;
+    procedure DoClearSessions(OnlyExpired : boolean); override;
+    function DoGetSessionCount : integer; override;
+    procedure DoReleaseSession(aSession : TROSession; NewSession : boolean); override;
+
+    property SessionManager : IROSessionManager read GetSessionManager;
+    property OnSessionDeleted;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Channel : TROTransportChannel read fChannel write SetChannel;
+  end;
+
+implementation
+
+uses
+  SysUtils, uROClasses, uRORes;
+
+{ TROMasterServerSessionManager }
+
+procedure TROMasterServerSessionManager.Assign(Source: TPersistent);
+var
+  lSource: TROMasterServerSessionManager;
+begin
+  inherited;
+  if Source is TROMasterServerSessionManager then begin
+    lSource := TROMasterServerSessionManager(Source);
+
+    Channel := lSource.Channel;
+  end;
+end;
+
+procedure TROMasterServerSessionManager.CheckProperties;
+begin
+  Check(Channel = nil, Name + '.Channel must be assigned.');
+  Channel.CheckProperties;
+end;
+
+constructor TROMasterServerSessionManager.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fBINMessage := TROBinMessage.Create(Self);
+  // in order to kill checktimer set interval to 0
+  Self.SessionCheckInterval := 0;
+end;
+
+destructor TROMasterServerSessionManager.Destroy;
+begin
+  Channel := nil;
+  inherited;
+end;
+
+procedure TROMasterServerSessionManager.DoClearSessions(
+  OnlyExpired: boolean);
+begin
+  // do nothing
+end;
+
+procedure TROMasterServerSessionManager.DoDeleteSession(
+  const aSessionID: TGUID; IsExpired: boolean);
+begin
+  SessionManager.DeleteSession(GUIDToAnsiString(aSessionID));
+end;
+
+function TROMasterServerSessionManager.DoFindSession(
+  const aSessionID: TGUID; aUpdateTime: Boolean): TROSession;
+var
+  usersession : TROUserSession;
+begin
+  result := NIL;
+  usersession := SessionManager.ReadSession(GUIDToAnsiString(aSessionID));
+  if (usersession<>NIL) then try
+    //result := TROSession.Create(aSessionID);
+    result := DoCreateSession(aSessionID);
+    result.Created := usersession.Created;
+    result.LastAccessed := usersession.LastAccessed;
+    result.LoadFromStream(usersession.Data, TRUE);
+  finally
+    usersession.Free;
+  end;
+end;
+
+function TROMasterServerSessionManager.DoGetSessionCount: integer;
+begin
+  result := SessionManager.GetSessionCount;
+end;
+
+procedure TROMasterServerSessionManager.DoReleaseSession(
+  aSession: TROSession; NewSession: boolean);
+var data : Binary;
+begin
+  data := Binary.Create;
+  try
+    aSession.SaveToStream(data, TRUE);
+
+    if NewSession
+      then SessionManager.CreateSession(GUIDToAnsiString(aSession.SessionID), data)
+      else SessionManager.UpdateSession(GUIDToAnsiString(aSession.SessionID), data);
+    aSession.Free();
+  finally
+    data.Free;
+  end;
+end;
+
+function TROMasterServerSessionManager.GetSessionManager: IROSessionManager;
+begin
+  CheckProperties;
+
+  if (fSessionManager=NIL) then begin
+    fSessionManager := CoROSessionManager.Create(fBINMessage, fChannel);
+  end;
+
+  result := fSessionManager;
+end;
+
+procedure TROMasterServerSessionManager.Notification(
+  AComponent: TComponent; Operation: TOperation);
+begin
+  if (Operation = opRemove) and (AComponent=fChannel) then fChannel := NIL;
+  inherited;
+end;
+
+procedure TROMasterServerSessionManager.SetChannel(
+  const Value: TROTransportChannel);
+begin
+  if (fChannel <> Value) then begin
+    if (fChannel <> NIL) then fChannel.RORemoveFreeNotification(Self);
+    fChannel := Value;
+    if (fChannel <> NIL) then fChannel.ROFreeNotification(Self);
+    fSessionManager := NIL;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRONamedPipeChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRONamedPipeChannel.pas
new file mode 100644
index 0000000..e8fa072
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRONamedPipeChannel.pas	
@@ -0,0 +1,358 @@
+unit uRONamedPipeChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Enterprise Library                                }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Provided by Robert Love (robert.love@teamro.remobjects.com)                }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+
+{$I RemObjects.inc}
+
+//TODO: Make sure with testing that client behaves well when server connection broken.
+
+interface
+
+uses
+  Classes, Sysutils, uROClient, uROClientIntf, uROClasses, uROTypes, Windows;
+
+type
+  TRONamedPipeChannel = class(TROTransportChannel,IROTransport)
+  private
+   fServerName: string;
+   fServerID: string;
+   FActive: Boolean;
+   FActivateOnDemand: Boolean;
+   procedure SetServerID(const Value: string);
+   procedure SetServerName(const Value: string);
+   procedure SetActive(const Value: Boolean);
+   procedure SetActivateOnDemand(const Value: Boolean);
+  protected
+   hPipe : THandle;
+
+   procedure IntDispatch(aRequest, aResponse : TStream); override;
+   function GetPipeName : string;  virtual;
+   procedure SendAndRecv(aRequest, aResponse : TStream); virtual;
+   function DataWaiting: Boolean; virtual;
+
+   { IROTransport }
+   function GetTransportObject : TObject; override;
+
+  public
+   constructor Create(Owner : TComponent); override;
+   destructor Destroy; override;
+   procedure Connect; virtual;
+   procedure Disconnect; virtual;
+   procedure CheckProperties; override;
+   procedure Assign(aSource : TPersistent); override;
+  published
+   property ActivateOnDemand : Boolean read FActivateOnDemand write SetActivateOnDemand default true;
+   property Active : Boolean read FActive write SetActive default false;
+   property ServerID : string read fServerID write SetServerID;
+   property ServerName : string read fServerName write SetServerName;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    property OnAfterProbingServer;
+    property OnAfterProbingServers;
+    property OnBeforeProbingServer;
+    property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    //property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    property OnServerLocatorAssignment;
+    property ProbeFrequency;
+    property ProbeServers;
+    property ServerLocators;
+    property SynchronizedProbing;
+  end;
+implementation
+{ TRONamedPipeChannel }
+
+procedure TRONamedPipeChannel.connect;
+var
+ dwmode : DWord;
+begin
+    hPipe := CreateFile(
+       pchar(GetPipeName),   // pipe name
+       GENERIC_READ or       // read and write access
+       GENERIC_WRITE,
+       0,              // no sharing
+       nil,            // no security attributes
+       OPEN_EXISTING,  // opens existing pipe
+       0,              // default attributes
+       0);             // no template file
+
+   FActive := not (hPipe= INVALID_HANDLE_VALUE);
+   if (GetLastError = ERROR_PIPE_BUSY) then
+    begin
+      // All pipe instances are busy, so wait for 20 seconds.
+      if (not WaitNamedPipe(pchar(GetPipeName), 20000) ) then
+       begin
+        FActive := False;
+        raise EROChannelBusy.Create('Named Pipe Server is Busy');
+       end;
+      hPipe := CreateFile(
+         pchar(GetPipeName),   // pipe name
+         GENERIC_READ or       // read and write access
+         GENERIC_WRITE,
+         0,              // no sharing
+         nil,            // no security attributes
+         OPEN_EXISTING,  // opens existing pipe
+         0,              // default attributes
+         0);             // no template file
+      FActive := not (hPipe= INVALID_HANDLE_VALUE);
+   end;
+   if Not FActive then RaiseLastOSError;
+
+   dwMode := PIPE_READMODE_MESSAGE;
+   if not SetNamedPipeHandleState(
+          hPipe,    // pipe handle
+          dwMode,  // new pipe mode
+          nil,      // don't set maximum bytes
+          nil)      // don't set maximum time
+     Then
+      begin
+       Disconnect;
+       raise Exception.Create('Unable to change to Message Read Mode');
+      end;
+end;
+
+procedure TRONamedPipeChannel.Disconnect;
+begin
+  CloseHandle(hPipe);
+  FActive := False;
+end;
+
+constructor TRONamedPipeChannel.Create(Owner: TComponent);
+begin
+ inherited Create(Owner);
+ FActivateOnDemand := true;
+ FActive := false;
+ FServerID := 'RONamedPipeServer';
+ fServerName := '.'; // localhost
+end;
+
+function TRONamedPipeChannel.GetTransportObject: TObject;
+begin
+ result := self;
+end;
+
+procedure TRONamedPipeChannel.IntDispatch(aRequest, aResponse: TStream);
+begin
+ if (Not FActive) and (Not FActivateOnDemand) then
+  raise Exception.Create('Operation can not be performed on a closed connection.');
+ if (Not Factive) then
+   Connect;
+ SendAndRecv(aRequest,aResponse);
+ if FActivateOnDemand then
+   Disconnect;
+end;
+
+function TRONamedPipeChannel.GetPipeName: string;
+begin
+  CheckProperties;
+  result := '\\' + fServerName + '\pipe\' + fServerID;
+end;
+
+procedure TRONamedPipeChannel.SendAndRecv(aRequest, aResponse: TStream);
+var
+ fBuf : PChar;
+ FSize : Integer;
+ fSuccess : BOOL;
+ FBytes   : DWord;
+ BufSize  : integer;
+begin
+  //  ViktorT changed
+  BufSize := 4096;
+  GetMem(fBuf, BufSize);
+
+  try
+    try
+      aRequest.Position := 0;
+      FSize := aRequest.Size;
+      //  Send Request size to recipient (server)
+      fSuccess := WriteFile(hPipe, FSize, sizeof(FSize), FBytes, nil);
+
+      if not FSuccess then
+        RaiseLastOSError;
+
+      while FSize > 0 do
+      begin
+        FBytes := aRequest.Read(fBuf^, BufSize);
+        dec(FSize, FBytes);
+        fSuccess := WriteFile(hPipe, fBuf^, FBytes, FBytes, nil);
+
+        if not FSuccess then
+          RaiseLastOSError;
+      end;
+
+      if not FSuccess then
+        RaiseLastOSError;
+
+      fSuccess := ReadFile(hPipe, FSize, sizeof(FSize), FBytes, nil);
+
+      if not FSuccess then
+        RaiseLastOSError;
+
+      while FSize > 0 do
+      begin
+        fSuccess := ReadFile(hPipe, fBuf^, BufSize, FBytes, nil);
+
+        if (not fSuccess) and (GetLastError <> ERROR_MORE_DATA) then
+          RaiseLastOSError;
+
+        if  FBytes > 0  then
+          aResponse.Write(fBuf^, FBytes);
+
+        dec(FSize, FBytes);
+      end;
+    except
+      on e: Exception do
+      begin
+        Factive := False;
+        CloseHandle(hPipe);
+      end;
+    end;
+  finally
+    FreeMem(fBuf);
+  end;
+(*
+ FSize := aRequest.Size;
+ GetMem(fBuf,FSize);
+ try
+   FillChar(fBuf^,FSize,0);
+   aRequest.Seek(0,soFromBeginning);
+   aRequest.ReadBuffer(fBuf[0],FSize);
+   // Send Buffer to Server
+   fSuccess := WriteFile(
+      hPipe,                  // pipe handle
+      fBuf[0],                // message
+      FSize,                  // message length
+      FBytes,                 // bytes written
+      nil) ;                  // not overlapped
+   if not FSuccess then
+   begin
+     //  ViktorT
+     Factive := False;
+     RaiseLastOSError;
+   end;
+   While Not DataWaiting do
+     Sleep(10);
+
+   while DataWaiting do
+    begin
+        // Read from the pipe.
+       fSuccess := ReadFile(
+          hPipe,          // pipe handle
+          fBuf[0],        // buffer to receive reply
+          fSize,          // size of buffer
+          FBytes,         // number of bytes read
+          nil);           // not overlapped
+       if (Not fSuccess) and (GetLastError <> ERROR_MORE_DATA) then
+       begin
+          //  ViktorT
+          Factive := False;
+          RaiseLastOSError;
+       end;
+       if Fbytes > 0 then
+          aResponse.WriteBuffer(FBuf[0],fBytes);
+     end;
+ finally
+  FreeMem(fBuf);
+ end; // finally
+*)
+end; // SendAndRecv
+
+
+function TRONamedPipeChannel.DataWaiting: Boolean;
+var
+ fSuccess : BOOL;
+ BytesAvail : Integer;
+begin
+  FSuccess := PeekNamedPipe(hPipe,nil,0,nil,@BytesAvail,nil);
+  if not FSuccess then
+  begin
+    //  ViktorT
+    Factive := False;
+    RaiseLastOSError;
+  end;
+  result := (BytesAvail >0);
+end; // DataWaiting
+
+
+procedure TRONamedPipeChannel.SetActivateOnDemand(const Value: Boolean);
+begin
+  FActivateOnDemand := Value;
+end;
+
+procedure TRONamedPipeChannel.SetActive(const Value: Boolean);
+begin
+ if FActive <> Value then
+  begin
+    if Value
+     then Connect
+     else Disconnect;
+  end;
+end;
+
+
+procedure TRONamedPipeChannel.SetServerID(const Value: string);
+begin
+  fServerID := Value;
+end;
+
+procedure TRONamedPipeChannel.SetServerName(const Value: string);
+begin
+  fServerName := Value;
+end;
+
+
+procedure TRONamedPipeChannel.Assign(aSource: TPersistent);
+var
+  lSource: TRONamedPipeChannel;
+begin
+  inherited;
+  if aSource is TRONamedPipeChannel then begin
+    lSource := TRONamedPipeChannel(aSource);
+
+     Active := False;
+
+     ActivateOnDemand := lSource.ActivateOnDemand;
+     ServerID := lSource.ServerID;
+     ServerName := lSource.ServerName;
+     Active := lSource.Active;
+  end;
+end;
+
+procedure TRONamedPipeChannel.CheckProperties;
+begin
+  Check(ServerID = '', Name+'.ServerID must be set.');
+  Check(ServerName = '', Name+'.ServerName must be set.');
+  inherited;
+end;
+
+destructor TRONamedPipeChannel.Destroy;
+begin
+  if FActive then begin
+    Disconnect;
+  end;
+  inherited;
+end;
+
+initialization
+  RegisterTransportChannelClass(TRONamedPipeChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TRONamedPipeChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRONamedPipeServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRONamedPipeServer.pas
new file mode 100644
index 0000000..7964f74
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRONamedPipeServer.pas	
@@ -0,0 +1,495 @@
+unit uRONamedPipeServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Enterprise Library                                }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                  }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Provided by Robert Love (robert.love@teamro.remobjects.com)                }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+//TODO: Add OnFatalException Handler to send exception to main thread to be raised.
+
+interface
+
+{$WARN SYMBOL_DEPRECATED OFF} // This unit is only for Win32
+
+uses
+  Sysutils,Classes, Windows, Messages, uROClientIntf, uROServer, uROClasses, uROThread;
+
+const
+  PIPE_TIMEOUT = 1000;
+  BUFFER_SIZE  = 4096;
+
+type
+  TRONamedPipeServer = class;
+
+  TROPipeListenerThread = class(TROInitializedThread)
+  private
+    { Private declarations }
+    fPipename : string;
+    FList : TThreadList;
+    FServer : TRONamedPipeServer;
+    FFatalError: TObject;
+    hPipe : THandle;
+    procedure ConnectOnTerminate(Sender : TObject);
+    function GetPipename: String;
+    procedure SetPipeName(const Value: String);
+    procedure RaiseException;
+    procedure EmulateConnect;
+  protected
+    procedure Execute; override;
+    property PipeName : String read GetPipename write SetPipeName;
+    property ConnectList : TThreadList read FList;
+    property Server : TRONamedPipeServer read FServer Write FServer;
+    property FatalError : TObject read FFatalError write FFatalError;
+  end;
+
+  TROPipeConnectionThread = class(TROThread)
+  private
+    FPipeHandle: THandle;
+    fTransport : IROTransport;
+    FServer : TRONamedPipeServer;
+    FFatalError: TObject;
+    procedure Disconnect;
+    procedure RaiseException;
+  protected
+    procedure Execute; override;
+    property PipeHandle : THandle read FPipeHandle write FPipeHandle;
+    property Transport : IROTransport read FTransport write FTransport;
+    property Server : TRONamedPipeServer read FServer Write FServer;
+    property FatalError : TObject read FFatalError write FFatalError;
+  public
+    constructor Create(aCreateSuspended:Boolean);
+  end;
+
+  TRONamedPipeServer = class(TROServer, IROTransport)
+  private
+    fServerID: string;
+    fTransport : IROTransport;
+    FActive : Boolean;
+    FListener : TROPipeListenerThread;
+    FAllowEveryone : Boolean;
+  protected
+    { Internals }
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive : boolean; override;
+
+    procedure ActivateServer; virtual;
+    property Listener: TROPipeListenerThread read FListener;
+
+   { IROTransport }
+    function GetTransportObject : TObject;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property ServerID : string read fServerID write fServerID;
+    property AllowEveryone : Boolean read FAllowEveryone write FAllowEveryone default false;
+  end;
+
+implementation
+
+procedure TROPipeListenerThread.ConnectOnTerminate(Sender: TObject);
+var
+ LL : TList;
+ id : Integer;
+begin
+ if Terminated then Exit;
+ LL := FList.LockList;
+ try
+ id := LL.IndexOf(sender);
+ if id >= 0 then
+   LL.Delete(id);
+ finally
+  FList.UnlockList;
+ end;
+end;
+
+procedure TROPipeListenerThread.EmulateConnect;
+var
+ i: cardinal;
+begin
+ if hPipe <> INVALID_HANDLE_VALUE then
+   CallNamedPipe(pchar(fPipeName), nil, 0, nil, 0, i, 10);
+end;
+
+{$IFDEF FPC}
+const
+  PIPE_UNLIMITED_INSTANCES = 255;
+{$ENDIF}
+
+procedure TROPipeListenerThread.Execute;
+var
+ fconnected : bool;
+ PC :  TROPipeConnectionThread;
+ LL : TList;
+ I  : Integer;
+ lSecurityDescriptor : _SECURITY_DESCRIPTOR;
+ lSecurityAttribute : SECURITY_ATTRIBUTES;
+begin
+ hPipe := INVALID_HANDLE_VALUE;
+ try
+  if FServer.AllowEveryone then begin
+    FillChar(lSecurityAttribute, sizeof(lSecurityAttribute), 0);
+    InitializeSecurityDescriptor(@lSecurityDescriptor, SECURITY_DESCRIPTOR_REVISION);
+    SetSecurityDescriptorDacl(@lSecurityDescriptor, true, nil, False);
+    lSecurityAttribute.nLength := sizeof(lSecurityAttribute);
+    lSecurityAttribute.bInheritHandle := True;
+    lSecurityAttribute.lpSecurityDescriptor := @lSecurityDescriptor;
+  end;
+  FList := TThreadList.Create;
+  try
+  While not Terminated do
+   begin
+     if FServer.AllowEveryone then begin
+      hPipe := CreateNamedPipe(
+          pchar(fPipeName),      // pipe name
+          PIPE_ACCESS_DUPLEX,       // read/write access
+          PIPE_TYPE_MESSAGE or      // message type pipe
+          PIPE_READMODE_BYTE or     // byte-read mode
+          PIPE_WAIT,                // blocking mode
+          PIPE_UNLIMITED_INSTANCES, // max. instances
+          BUFFER_SIZE,              // output buffer size
+          BUFFER_SIZE,              // input buffer size
+          PIPE_TIMEOUT,             // client time-out
+          @lSecurityAttribute);
+      end else begin
+      hPipe := CreateNamedPipe(
+          pchar(fPipeName),      // pipe name
+          PIPE_ACCESS_DUPLEX,       // read/write access
+          PIPE_TYPE_MESSAGE or      // message type pipe
+          PIPE_READMODE_BYTE or     // byte-read mode
+          PIPE_WAIT,                // blocking mode
+          PIPE_UNLIMITED_INSTANCES, // max. instances
+          BUFFER_SIZE,              // output buffer size
+          BUFFER_SIZE,              // input buffer size
+          PIPE_TIMEOUT,             // client time-out
+          nil);                     // no security attribute
+      end;
+
+      if (hPipe = INVALID_HANDLE_VALUE) then
+        RaiseLastOSError;
+
+      // Wait for the client to connect; if it succeeds,
+      // the function returns a nonzero value. If the function returns
+      // false, GetLastError should returns ERROR_PIPE_CONNECTED.
+      fConnected := ConnectNamedPipe(hPipe, nil);
+      if not fConnected then
+         fConnected := (GetLastError = ERROR_PIPE_CONNECTED);
+
+      if fConnected  and not Terminated then
+      begin
+          PC := TROPipeConnectionThread.create(true);
+          PC.PipeHandle := hPipe;
+          PC.Server := FServer;
+          PC.FreeOnTerminate := True;
+          PC.Resume;
+      end
+      else
+      begin
+        // The client could not connect, so close the pipe.
+         CloseHandle(hPipe);
+         hPipe := INVALID_HANDLE_VALUE;
+      end;
+   end;
+  finally
+   LL := FList.LockList;
+   try
+   // Terminate all client connections because if here then this thread is terminating
+   for I := 0 to LL.Count -1 do
+     TROPipeConnectionThread(LL.Items[I]).Terminate;
+   finally
+     FList.UnlockList;
+   end;
+   FList.Free;
+  end;
+ except
+   on e : TObject do
+    begin
+      FatalError := E;
+      // Make sure exception is raised in main thread.
+      Synchronize(RaiseException);
+    end;
+ end; // except
+end;
+
+function TROPipeListenerThread.GetPipename: String;
+begin
+ result := string(fPipeName);
+end;
+
+procedure TROPipeListenerThread.RaiseException;
+begin
+  raise FatalError;
+end;
+
+procedure TROPipeListenerThread.SetPipeName(const Value: String);
+begin
+ fPipeName := Value;
+end;
+
+{ TROPipeConnectionThread }
+
+constructor TROPipeConnectionThread.Create(aCreateSuspended:Boolean);
+begin
+  inherited Create(aCreateSuspended,'TROPipeConnectionThread');
+end;
+{
+function TROPipeConnectionThread.DataWaiting: Boolean;
+var
+ fSuccess : BOOL;
+ BytesAvail : Integer;
+begin
+  FSuccess := PeekNamedPipe(FPipeHandle,nil,0,nil,@BytesAvail,nil);
+  if not FSuccess then
+    RaiseLastWin32Error;
+  result := (BytesAvail >0);
+end;
+}
+procedure TROPipeConnectionThread.Disconnect;
+begin
+// Flush the pipe to allow the client to read the pipe's contents
+// before disconnecting. Then disconnect the pipe, and close the
+// handle to this pipe instance.
+   FlushFileBuffers(FPipeHandle);
+   DisconnectNamedPipe(FPipeHandle);
+   CloseHandle(FPipeHandle);
+end;
+
+procedure TROPipeConnectionThread.Execute;
+var
+ ReadStream,
+ WriteStream : TMemoryStream;
+ fBytesRead,fBytesWritten : DWORD;
+ fSuccess : BOOL;
+ fDataSize: integer;
+ fBuf: PChar;
+begin
+  GetMem(fBuf, BUFFER_SIZE);
+  readStream  := TMemoryStream.Create;
+  writeStream := nil;
+  try
+    try
+      While Not Terminated do
+      begin
+        // Read incomming Data
+        fSuccess := ReadFile(fPipeHandle, fDataSize, sizeof(fDataSize), fBytesRead, nil);
+
+        if Not fSuccess then
+          if  GetLastError = ERROR_BROKEN_PIPE then
+            //  The pipe has been ended
+            break
+          else
+            RaiseLastOSError;
+
+        while fDataSize > 0 do
+        begin
+          fSuccess := ReadFile(fPipeHandle, fBuf^, BUFFER_SIZE, fBytesRead, nil);
+
+          if (not fSuccess) and (GetLastError <> ERROR_MORE_DATA) then
+            RaiseLastOSError;
+
+          if  fBytesRead > 0  then
+            ReadStream.Write(fBuf^, fBytesRead);
+
+          dec(fDataSize, fBytesRead);
+        end;
+
+        if not FSuccess then
+          RaiseLastOSError;
+
+        if  ReadStream.Size > 0 then
+        begin
+          writeStream := TMemoryStream.Create;
+          ReadStream.Position := 0;
+          FServer.DispatchMessage(fServer.FTransport, ReadStream, writeStream);
+          ReadStream.Position := 0;
+          ReadStream.SetSize(0);
+          writeStream.Position := 0;
+          fDataSize := writeStream.Size;
+          fSuccess := WriteFile(fPipeHandle, fDataSize, sizeof(fDataSize), fBytesWritten, nil);
+
+          if not fSuccess then
+            RaiseLastOSError;
+
+          while fDataSize > 0 do
+          begin
+            fBytesRead := writeStream.Read(fBuf^, BUFFER_SIZE);
+            dec(fDataSize, fBytesRead);
+            fSuccess := WriteFile(fPipeHandle, fBuf^, fBytesRead, fBytesWritten, nil);
+
+            if not FSuccess then
+              RaiseLastOSError;
+          end;
+        end;
+      end;
+    except
+      on e: Exception do
+      begin
+        // Only expected message is a broken pipe and it should be ignored.
+        if not ((e is EWin32Error)
+          and ((EWin32Error(E).ErrorCode = ERROR_BROKEN_PIPE)
+               {or (EWin32Error(E).ErrorCode = ERROR_NO_DATA)})) then
+        begin
+          FatalError := E;
+          // Make sure exception is raised in main thread.
+          Synchronize(RaiseException);
+        end;
+      end;
+    end;
+  finally
+    FreeMem(fBuf);
+    ReadStream.Free;
+    WriteStream.Free;
+    Disconnect;
+    if FServer.FListener <> nil then fServer.FListener.ConnectOnTerminate(self);
+ end;
+(*
+    // Read incomming Data
+    // Empty incomming buffer into Stream
+    FSuccess := True;
+    while DataWaiting do
+     begin
+       fSuccess := ReadFile(fPipeHandle,ReadBuf,BUFFER_SIZE,fBytesRead,nil);
+       if (Not fSuccess) and (GetLastError <> ERROR_MORE_DATA) then
+         Break;
+       if (FBytesRead > 0) then
+          ReadStream.WriteBuffer(ReadBuf[0],fBytesRead);
+       if fSuccess then break;
+     end;
+    if Not FSuccess then
+     RaiseLastWIn32Error;
+    fIncommingData := (FSuccess and (ReadStream.Size > 0));
+    if FIncommingData then
+     begin
+       // Transport Data
+        WriteStream.Clear;
+        FServer.DispatchMessage(fServer.FTransport, Readstream, Writestream);
+        ReadStream.Clear;
+       // Write Contents from RO back out Pipe
+       fBytesRead := 1; //just to start loop
+       While FBytesRead > 0 do
+       begin
+         fBytesRead := WriteStream.Read(WriteBuf,BUFFER_SIZE);
+         if FBytesRead > 0 then
+          begin
+           fSuccess := WriteFile(FPipeHandle,WriteBuf,fBytesRead,fBytesWritten,nil);
+           if (not FSuccess) then
+              RaiseLastWin32Error;
+           end;
+       end;  // while FBytesRead > 0
+     end; // if FIncommingData
+   end; // while not terminated
+
+ finally
+   Disconnect;
+   ReadStream.Free;
+   WriteStream.Free;
+ end;
+except
+  on e: Exception do
+   begin
+   // Only expected message is a broken pipe and it should be ignored.
+    if not ((e is EWin32Error) and (EWin32Error(E).ErrorCode = ERROR_BROKEN_PIPE)) then
+     begin
+      FatalError := E;
+      // Make sure exception is raised in main thread.
+      Synchronize(RaiseException);
+     end;
+   end;
+end; //except
+*)
+end;
+
+
+procedure TROPipeConnectionThread.RaiseException;
+begin
+ raise FatalError;
+end;
+
+{ TRONamedPipeServer }
+
+procedure TRONamedPipeServer.ActivateServer;
+begin
+if FActive then
+ begin
+   CheckProperties;
+   FListener := TROPipeListenerThread.create(true);
+   FListener.PipeName := '\\.\pipe\'+ ServerID;
+   FListener.FreeOnTerminate := True;
+   FListener.Server := Self;
+   FListener.Resume;
+ end
+ else begin
+   FListener.Terminate;
+   FListener.EmulateConnect;
+ end;
+end;
+
+procedure TRONamedPipeServer.Assign(Source: TPersistent);
+var
+  lSource: TRONamedPipeServer;
+begin
+  inherited;
+  if Source is  TRONamedPipeServer then begin
+    lSource := TRONamedPipeServer(Source);
+    AllowEveryone := lSource.AllowEveryone;
+    ServerID := lSource.ServerID;
+  end;
+end;
+
+procedure TRONamedPipeServer.CheckProperties;
+begin
+  Check(ServerID = '', Name + '.ServerID must be set.');
+  inherited;
+end;
+
+constructor TRONamedPipeServer.Create(aOwner: TComponent);
+begin
+  inherited;
+  Supports(Self, IROTransport, fTransport);
+  fServerID := 'RONamedPipeServer';
+end;
+
+destructor TRONamedPipeServer.Destroy;
+begin
+  Active := False;
+  inherited;
+end;
+
+function TRONamedPipeServer.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+function TRONamedPipeServer.IntGetActive: boolean;
+begin
+   result := Factive;
+end;
+
+procedure TRONamedPipeServer.IntSetActive(const Value: boolean);
+begin
+ if Value <> FActive then
+  begin
+    FActive := Value;
+    if not (csDesigning in ComponentState) then
+      ActivateServer;
+  end;
+end;
+
+initialization
+  RegisterServerClass(TRONamedPipeServer);
+finalization
+  UnregisterServerClass(TRONamedPipeServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOlympiaEventRepository.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOlympiaEventRepository.pas
new file mode 100644
index 0000000..ed3d4ff
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOlympiaEventRepository.pas	
@@ -0,0 +1,334 @@
+unit uROOlympiaEventRepository;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+
+interface
+uses
+  Classes, SysUtils, SyncObjs,
+  uROSessions, uROClientIntf, uROClient, uROTypes, uROClasses, uROServerIntf,
+  uROEventRepository, ROOlympia_Intf, uROBinMessage, uROOlympiaSessionManager;
+
+type
+  TROOlympiaEventRepository = class(TROInMemoryEventRepository, IROValidatedSessionsChangesListener,
+    IOlympiaEvents)
+  private
+    FActive: Boolean;
+    FUsername: string;
+    FPassword: string;
+    fStreamedActive: Boolean;
+    function GetOlympiaInstance: IOlympia;
+    procedure SetActive(const Value: Boolean);
+    function GetSessionManager: TROOlympiaSessionManager;
+    procedure SetSessionManager(const Value: TROOlympiaSessionManager);reintroduce;
+  protected
+    procedure DoAddSession(aSessionID: TGUID; aActiveEventServer: IROActiveEventServer); override;
+    function DoGetEventData(SessionID: TGUID;
+      var TargetStream: TROBinaryMemoryStream): Integer; override;
+    procedure DoRemoveSession(aSessionID: TGUID); override;
+    procedure DoStoreEventData(SourceSessionID: TGUID;
+      Data: TROBinaryMemoryStream; const ExcludeSender: Boolean;
+      const ExcludeSessionList: Boolean; const SessionList: String);
+      override;
+    procedure EventSucceeded(aClientID: TGUID; aId: TGUID);
+    procedure HaveMessage(const Targets: GuidArray; const EventID: AnsiString;
+      const Data: TROBinaryMemoryStream);
+    procedure Loaded; override;
+    procedure Login;
+    procedure Logout;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure RemoveSessionActiveListener(Sender: TObject; aSessionID: TGUID); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; override;
+    property Active: Boolean read FActive write SetActive;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property SessionManager: TROOlympiaSessionManager read GetSessionManager write SetSessionManager;
+    property Password: string read FPassword write FPassword;
+    property Username: string read FUsername write FUsername;
+  end;
+
+implementation
+{ TROOlympiaEventRepository }
+
+procedure TROOlympiaEventRepository.Assign(Source: TPersistent);
+var
+  lSource: TROOlympiaEventRepository;
+begin
+  inherited;
+  if Source is TROOlympiaEventRepository then begin
+    lSource := TROOlympiaEventRepository(Source);
+
+    Password := lSource.Password;
+    Username := lSource.Username;
+  end;
+end;
+
+procedure TROOlympiaEventRepository.CheckProperties;
+begin
+  inherited;
+  Check(not Assigned(SessionManager),'%s: SessionManager must be assigned.',[Self.Name]);
+  SessionManager.CheckProperties;
+end;
+
+constructor TROOlympiaEventRepository.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+end;
+
+destructor TROOlympiaEventRepository.Destroy;
+begin
+  if FActive then Active :=False;
+  inherited Destroy;
+end;
+
+procedure TROOlympiaEventRepository.DoAddSession(aSessionID: TGUID;
+  aActiveEventServer: IROActiveEventServer);
+var
+  lArr: GuidArray;
+begin
+  inherited;
+  if aActiveEventServer = nil then exit;
+  lArr := GuidArray.Create;
+  try
+    lArr.Add(GUIDToString(aSessionID));
+    GetOlympiaInstance.RegisterActiveEvents(lArr);
+  finally
+    lArr.Free;
+  end;
+end;
+
+function TROOlympiaEventRepository.DoGetEventData(SessionID: TGUID;
+  var TargetStream: TROBinaryMemoryStream): Integer;
+begin
+  FreeandNil(TargetStream);
+  Result := GetOlympiaInstance.GetMessages(GUIDToAnsiString(SessionID), TargetStream);
+end;
+
+procedure TROOlympiaEventRepository.DoRemoveSession(aSessionID: TGUID);
+var
+  lArr: GuidArray;
+begin
+  inherited;
+  lArr := GuidArray.Create;
+  try
+    lArr.Add(GUIDToString(aSessionID));
+    GetOlympiaInstance.UnregisterActiveEvents(lArr);
+  finally
+    lArr.Free;
+  end;
+end;
+
+procedure TROOlympiaEventRepository.DoStoreEventData(
+  SourceSessionID: TGUID; Data: TROBinaryMemoryStream; const ExcludeSender,
+  ExcludeSessionList: Boolean; const SessionList: String);
+
+
+  procedure RemoveSessionFromTargetList(AList: TStringList; ASessionID:string);
+  var
+    i: integer;
+  begin
+    i := AList.IndexOf(ASessionID);
+    if i <> -1 then AList.Delete(i);
+  end;
+
+  function GetTargetSessionList: TStringList;
+  var
+    lList: TStringList;
+  begin
+    Result := TStringList.Create;
+    Result.Duplicates := dupIgnore;
+    if (ExcludeSessionList and (Trim(SessionList) <> '')) then begin
+      SessionManager.GetAllSessions(Result);
+      Result.Sorted := True;
+      lList := TStringList.Create;
+      try
+        lList.Sorted := TRUE;
+        lList.Duplicates := dupIgnore;
+        lList.CommaText := SessionList;
+        while llist.Count > 0 do begin
+          RemoveSessionFromTargetList(Result, lList[lList.Count-1]);
+          lList.Delete(lList.Count-1);
+        end;
+      finally
+        lList.Free;
+      end;
+    end
+    else begin
+      if Trim(SessionList) = ''  then
+        SessionManager.GetAllSessions(Result)
+      else
+        Result.CommaText := SessionList;
+      Result.Sorted := True;
+    end;
+    if ExcludeSender then RemoveSessionFromTargetList(Result, GUIDToString(SourceSessionID));
+  end;
+
+var
+  lTargets: GuidArray;
+  lList: TStringList;
+  i: Integer;
+begin
+  lTargets := nil;
+  if (SessionList <> '') or ExcludeSender then begin
+    lList := GetTargetSessionList;
+    try
+      for i := 0 to lList.Count -1 do begin
+        if lList[i] <> '' then begin
+          if lTargets = nil then lTargets := GuidArray.Create;
+          lTargets.Add(lList[i]);
+        end;
+      end;
+    finally
+      lList.Free;
+    end;
+  end;
+  try
+    if lTargets <> nil then
+      GetOlympiaInstance.StoreMessageEx(GUIDToAnsiString(SourceSessionID), lTargets, Data)
+    else
+      GetOlympiaInstance.StoreMessage(GUIDToAnsiString(SourceSessionID), Data);
+  finally
+    lTargets.Free;
+  end;
+end;
+
+procedure TROOlympiaEventRepository.EventSucceeded(aClientID, aId: TGUID);
+var
+  lArr: GuidArray;
+begin
+  lArr := GuidArray.Create;
+  try
+    lArr.Add(GUIDToString(aId));
+    GetOlympiaInstance.RemoveEventMessage(GUIDToAnsiString(aClientID), lArr);
+  finally
+    lArr.Free;
+  end;
+end;
+
+procedure TROOlympiaEventRepository.HaveMessage(const Targets: GuidArray;
+  const EventID: AnsiString; const Data: TROBinaryMemoryStream);
+var
+  ev: TRONamedEventData;
+  lRef: TROSessionReference;
+  i: Integer;
+  lEventID: AnsiString;
+begin
+  ev := TRONamedEventData.Create(Data);
+  if Length(EventID) = 36 then lEventID := '{'+EventID + '}' else lEventID := EventID;
+
+  ev.ID := StringToGUID({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(lEventID));
+  for i := 0 to Targets.Count -1 do begin
+    lRef := FindSession(StringToGUID(Targets[i]));
+    if assigned(lRef) and assigned(lREf.ActiveEventReference) then begin
+      ev.AddRef;
+      lRef.ActiveEventReference.DispatchEvent(ev, lRef.SessionID, self);
+    end;
+  end;
+  if ev.RemoveRef = 0 then ev.Free;
+end;
+
+type
+  TMyROOlympiaSessionManager = class(TROOlympiaSessionManager)
+
+  end;
+
+function TROOlympiaEventRepository.GetOlympiaInstance: IOlympia;
+begin
+  CheckProperties;
+  Supports(TMyROOlympiaSessionManager(SessionManager).SessionManager, IOlympia, Result);
+end;
+
+
+function TROOlympiaEventRepository.GetSessionManager: TROOlympiaSessionManager;
+begin
+  if inherited SessionManager is TROOlympiaSessionManager then begin
+    Result := TROOlympiaSessionManager(inherited SessionManager)
+  end
+  else begin
+    SessionManager := nil;
+    Result := nil;
+  end;
+end;
+
+procedure TROOlympiaEventRepository.Loaded;
+begin
+  inherited;
+  if fStreamedActive then Active:=True;
+end;
+
+procedure TROOlympiaEventRepository.SetActive(const Value: Boolean);
+begin
+  if (csLoading in ComponentState) then begin
+    fStreamedActive := Value
+  end
+  else begin
+    if FActive = Value then exit;
+    FActive := Value;
+    if csDesigning in ComponentState then exit;
+    if FActive then begin
+      CheckProperties;
+      if IsEqualGUID(EmptyGUID, Message.ClientID) then Message.ClientID := NewGuid;
+      Login;
+      SessionManager.Active := True;
+      TMyROOlympiaSessionManager(SessionManager).EventReceiver.RegisterEventHandler('OlympiaEvents', self);
+      TMyROOlympiaSessionManager(SessionManager).EventReceiver.Activate;
+    end else begin
+      TMyROOlympiaSessionManager(SessionManager).EventReceiver.UnregisterEventHandler('OlympiaEvents');
+      Logout;
+    end;
+  end;
+end;
+
+procedure TROOlympiaEventRepository.SetSessionManager(
+  const Value: TROOlympiaSessionManager);
+begin
+  if inherited SessionManager <> Value then begin
+    if SessionManager <> nil then TMyROOlympiaSessionManager(SessionManager).EventReceiver.RORemoveFreeNotification(Self);
+    inherited SessionManager := Value;
+    if Value <> nil then TMyROOlympiaSessionManager(Value).EventReceiver.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TROOlympiaEventRepository.Login;
+begin
+  if fUsername = '' then
+    GetOlympiaInstance.GetTimeout // Just activate the server channel
+  else
+    GetOlympiaInstance.Login(Username, Password);
+end;
+
+procedure TROOlympiaEventRepository.Logout;
+begin
+  GetOlympiaInstance.Logout;
+end;
+
+procedure TROOlympiaEventRepository.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  if (Operation = opRemove) and (AComponent = SessionManager) and FActive then SetActive(False);
+  if (Operation = opRemove) and (AComponent = Message) and FActive then SetActive(False);
+  inherited;
+end;
+
+procedure TROOlympiaEventRepository.RemoveSessionActiveListener(Sender: TObject; aSessionID: TGUID);
+begin
+  inherited;
+  DoRemoveSession(aSEssionID);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOlympiaSessionManager.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOlympiaSessionManager.pas
new file mode 100644
index 0000000..828fcde
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOlympiaSessionManager.pas	
@@ -0,0 +1,282 @@
+unit uROOlympiaSessionManager;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROClient, uROSessions, uROBinMessage, uROTypes,
+  ROOlympia_Intf,uROEventRepository;
+
+type
+  { TROOlympiaSessionManager }
+  TROOlympiaSessionManager = class(TROCustomSessionManager,IOlympiaSessionManagerEvents)
+  private
+    fBINMessage : TROBinMessage;
+//    fChannel: TROTransportChannel;
+//    fSessionManager : IOlympiaSessionManager;
+    fApplicationID : TGUID;
+    fApplicationID_Ansi: AnsiString;
+    FActive: Boolean;
+    fStreamedActive: Boolean;
+    FEventReceiver: TROEventReceiver;
+    procedure SetChannel(const Value: TROTransportChannel);
+    function GetSessionManager: IOlympiaSessionManager;
+    procedure SetApplicationID(const Value: TGUID);
+    procedure SetActive(const Value: Boolean);
+    function GetChannel: TROTransportChannel;
+  protected
+    procedure  Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure Loaded; override;
+    { Overrides }
+    function DoFindSession(const aSessionID : TGUID; aUpdateTime: Boolean) : TROSession; override;
+    procedure DoDeleteSession(const aSessionID : TGUID; IsExpired : boolean); override;
+    procedure DoClearSessions(OnlyExpired : boolean); override;
+    function DoGetSessionCount : integer; override;
+    procedure DoReleaseSession(aSession : TROSession; NewSession : boolean); override;
+    procedure DoGetAllSessions(Dest: TStringList); override;
+    function DoCheckSessionIsExpired(aSession : TROSession) : boolean; override;
+
+    property SessionManager : IOlympiaSessionManager read GetSessionManager;
+    property OnSessionDeleted;
+    property EventReceiver: TROEventReceiver read FEventReceiver;
+    procedure SessionsExpired(const aExpiredSessionIDs: GuidArray);
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; override;
+    {$IFDEF FPC}
+    property ApplicationID: TGUID read FApplicationID write SetApplicationID;
+    {$ENDIF}
+    property Active: Boolean read FActive write SetActive;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Channel : TROTransportChannel read GetChannel write SetChannel;
+    {$IFNDEF FPC}
+    property ApplicationID: TGUID read FApplicationID write SetApplicationID;
+    {$ENDIF}
+  end;
+
+implementation
+
+uses
+  SysUtils,
+  uROClientIntf,
+  uROClasses, uRORes {$IFDEF MSWINDOWS},Windows{$ENDIF};
+
+{ TROOlympiaSessionManager }
+
+procedure TROOlympiaSessionManager.Assign(Source: TPersistent);
+var
+  lSource: TROOlympiaSessionManager;
+begin
+  inherited;
+  if Source is TROOlympiaSessionManager then begin
+    lSource := TROOlympiaSessionManager(Source);
+
+    ApplicationID := lSource.ApplicationID;
+    Channel := lSource.Channel;
+  end;
+end;
+
+procedure TROOlympiaSessionManager.CheckProperties;
+begin
+  Check(Channel = nil, Name + '.Channel must be assigned.');
+  Channel.CheckProperties;
+end;
+
+constructor TROOlympiaSessionManager.Create(aOwner: TComponent);
+begin
+  inherited;
+  fBINMessage := TROBinMessage.Create(Self);
+  FEventReceiver := TROEventReceiver.Create(self);
+  ApplicationID := NewGuid;
+// in order to kill checktimer set interval to 0
+  Self.SessionCheckInterval := 0;
+end;
+
+destructor TROOlympiaSessionManager.Destroy;
+begin
+  if FActive then Active :=False;
+  FEventReceiver.Deactivate;
+  Channel := nil;
+  inherited;
+end;
+
+function TROOlympiaSessionManager.DoCheckSessionIsExpired(
+  aSession: TROSession): boolean;
+begin
+  Result := not SessionManager.CheckSession(GUIDToAnsiString(aSession.SessionID));
+end;
+
+procedure TROOlympiaSessionManager.DoClearSessions(
+  OnlyExpired: boolean);
+begin
+  SessionManager.ClearSessions(fApplicationID_Ansi);
+end;
+
+procedure TROOlympiaSessionManager.DoDeleteSession(
+  const aSessionID: TGUID; IsExpired: boolean);
+begin
+  SessionManager.DeleteSession(GUIDToAnsiString(aSessionID));
+end;
+
+function TROOlympiaSessionManager.DoFindSession(
+  const aSessionID: TGUID; aUpdateTime: Boolean): TROSession;
+var
+  usersession : OlympiaUserSession;
+  {$IFDEF MSWINDOWS}lZI: TIME_ZONE_INFORMATION;{$ENDIF}
+begin
+  result := NIL;
+  usersession := SessionManager.ReadSession(GUIDToAnsiString(aSessionID));
+  if (usersession<>NIL) then try
+    result := DoCreateSession(aSessionID);
+    result.Created := usersession.Created;
+    {$IFDEF MSWINDOWS}
+    GetTimeZoneInformation(lZI);
+    result.LastAccessed := usersession.LastAccessed - (lZI.Bias + lZI.StandardBias + lZI.DaylightBias)/1440.0;
+    {$ELSE}
+    result.LastAccessed := usersession.LastAccessed;
+    {$ENDIF}
+    result.LoadFromStream(usersession.Data, TRUE);
+  finally
+    usersession.Free;
+  end;
+end;
+
+procedure TROOlympiaSessionManager.DoGetAllSessions(Dest: TStringList);
+var
+  lArray: GuidArray;
+  i: integer;
+//  currSession: TROSession;
+begin
+  lArray := SessionManager.GetAllSessions(fApplicationID_Ansi);
+  try
+    for I := 0 to lArray.Count - 1 do begin
+     {
+      currSession := FindSession(lArray.Items[i],False);
+      if CheckSessionIsExpired(currSession) then Continue;
+     }
+      Dest.Add(lArray.Items[i]);
+    end;
+  finally
+    lArray.Free;
+  end;
+end;
+
+function TROOlympiaSessionManager.DoGetSessionCount: integer;
+begin
+  result := SessionManager.GetSessionCount(fApplicationID_Ansi);
+end;
+
+procedure TROOlympiaSessionManager.DoReleaseSession(
+  aSession: TROSession; NewSession: boolean);
+var
+  data : Binary;
+begin
+  data := Binary.Create;
+  try
+    aSession.SaveToStream(data, TRUE);
+
+    if NewSession then
+      SessionManager.CreateSession(GUIDToAnsiString(aSession.SessionID),fApplicationID_Ansi, data)
+    else
+      SessionManager.UpdateSession(GUIDToAnsiString(aSession.SessionID), data);
+    aSession.Free();
+  finally
+    data.Free;
+  end;
+end;
+
+
+function TROOlympiaSessionManager.GetChannel: TROTransportChannel;
+begin
+  Result := FEventReceiver.Channel;
+end;
+
+function TROOlympiaSessionManager.GetSessionManager: IOlympiaSessionManager;
+begin
+  CheckProperties;
+  result := CoOlympia.Create(TROBinMessage.CreateRefCountedClone(fBINMessage), FEventReceiver.Channel);
+end;
+
+procedure TROOlympiaSessionManager.Loaded;
+begin
+  inherited;
+  if fStreamedActive then Active:=True;
+end;
+
+procedure TROOlympiaSessionManager.Notification(
+  AComponent: TComponent; Operation: TOperation);
+begin
+  if (Operation = opRemove) and (AComponent=FEventReceiver.Channel) then FEventReceiver.Channel := NIL;
+  inherited;
+end;
+
+procedure TROOlympiaSessionManager.SessionsExpired(
+  const aExpiredSessionIDs: GuidArray);
+var
+  i: integer;
+begin
+  if Assigned(OnSessionDeleted) then
+    for i := 0 to aExpiredSessionIDs.Count - 1 do
+      if Assigned(OnSessionDeleted) then OnSessionDeleted(StringToGUID(aExpiredSessionIDs.Items[i]), True);
+end;
+
+procedure TROOlympiaSessionManager.SetActive(const Value: Boolean);
+begin
+  if (csLoading in ComponentState) then begin
+    fStreamedActive := Value
+  end
+  else begin
+    if FActive = Value then exit;
+    FActive := Value;
+    if csDesigning in ComponentState then exit;
+    if FActive then begin
+      CheckProperties;
+      if IsEqualGUID(EmptyGUID, fBINMessage.ClientID) then fBINMessage.ClientID := NewGuid;
+      SessionManager.RegisterForSessionEvents(fApplicationID_Ansi);
+      FEventReceiver.Channel := Channel;
+      FEventReceiver.Message := fBINMessage;
+      FEventReceiver.SynchronizeInvoke := false;
+      FEventReceiver.ServiceName := 'Olympia';
+      FEventReceiver.ServersideRegisterEvents := false;
+      FEventReceiver.RegisterEventHandler('OlympiaSessionManagerEvents', self);
+      FEventReceiver.Activate;
+    end else begin
+      FEventReceiver.UnregisterEventHandler('OlympiaSessionManagerEvents');
+      FEventReceiver.Deactivate;
+    end;
+  end;
+end;
+
+procedure TROOlympiaSessionManager.SetApplicationID(const Value: TGUID);
+begin
+  fApplicationID_Ansi:= GUIDToAnsiString(Value);
+  fApplicationID := Value;
+  if FEventReceiver.Active then SessionManager.RegisterForSessionEvents(fApplicationID_Ansi);
+end;
+
+procedure TROOlympiaSessionManager.SetChannel(
+  const Value: TROTransportChannel);
+begin
+  if (FEventReceiver.Channel <> Value) then begin
+    if (FEventReceiver.Channel <> NIL) then FEventReceiver.Channel.RORemoveFreeNotification(Self);
+    FEventReceiver.Channel := Value;
+    if (FEventReceiver.Channel <> NIL) then FEventReceiver.Channel.ROFreeNotification(Self);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOpenXMLImpl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOpenXMLImpl.pas
new file mode 100644
index 0000000..672f5f8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROOpenXMLImpl.pas	
@@ -0,0 +1,663 @@
+unit uROOpenXMLImpl;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, uROXDOM_2_3, Variants, uROXMLIntf;
+
+type
+     TROOpenXMLDocument = class;
+     { TROOpenXMLNode }
+     TROOpenXMLNode = class(TInterfacedObject, IXMLNode)
+     private
+       fNode : TDOMNode;
+       fDoc: TROOpenXMLDocument;
+       fDocIntf: IXMLDocument;
+       //function GetNodesByAttribute(const anAttributeName, anAttributeValue: UnicodeString): IXMLNodeList;
+
+     protected
+       function GetName : UnicodeString;
+       function GetLocalName : UnicodeString;
+       function GetRef : pointer;
+       function GetParent : IXMLNode;
+
+       function GetValue : Variant;
+       procedure SetValue(const Value : Variant);
+
+       function GetasString: UnicodeString;
+       procedure SetasString(const Value: UnicodeString);
+
+       function GetXML : UnicodeString;
+
+       function GetAttributes(Index : integer) : IXMLNode;
+       function GetAttributeCount : integer;
+
+       function GetChildren(Index : integer) : IXMLNode;
+       function GetChildrenCount : integer;
+
+       function Add(const aNodeName : UnicodeString; aNameSpaceURI: UnicodeString = '') : IXMLNode;
+       function AddAttribute(const anAttributeName : UnicodeString; const anAttributeValue : Variant; aCreateResultNode: Boolean = True) : IXMLNode; overload;
+       function AddAttribute(const anAttributeName : UnicodeString; const anAttributeString: UnicodeString; aCreateResultNode: Boolean = True) : IXMLNode; overload;
+       function AddXml(const Xml: UnicodeString): IXMLNode;
+       function AddCDATASection(const aData: UnicodeString): IXMLNode;
+
+       procedure Delete(Index : integer);
+       procedure Remove(const aNode : IXMLNode);
+
+       function GetAttributeByName(const anAttributeName : UnicodeString) : IXMLNode;
+       function GetAttributeValue(const anAttributeName : UnicodeString; DefaultValue : Variant) : Variant;
+       function GetAttributeAsString(const anAttributeName : UnicodeString; DefaultValue : UnicodeString) : UnicodeString;
+
+       function GetNodeByName(const aNodeName : UnicodeString) : IXMLNode;
+       function GetNodeValue(const aNodeName : UnicodeString; const Default : Variant) : Variant;
+
+       function GetNodesByName(const aNodeName : UnicodeString) : IXMLNodeList;
+
+       function GetNodeByAttribute(const anAttributeName, anAttributeValue : UnicodeString) : IXMLNode;
+
+       function GetFirstChild: IXMLNode;
+       function GetNextSibling: IXMLNode;
+       function GetNamespaceURI: UnicodeString;
+       function GetDocument: IXMLDocument;
+
+     public
+       constructor Create(const aNode : TDOMNode; aDoc: TROOpenXMLDocument);
+       destructor Destroy; override;
+     end;
+
+     { TROOpenXMLNodeList }
+     TROOpenXMLNodeList = class(TInterfacedObject, IXMLNodeLIst)
+     private
+       fNodeList : TdomNodeList;
+       fDoc: TROOpenXMLDocument;
+
+     protected
+       function GetNodes(Index : integer) : IXMLNode;
+       function GetCount : integer;
+
+     public
+       constructor Create(const aNodeList : TdomNodeList; aDoc: TROOpenXMLDocument);
+     end;
+
+     { TROOpenXMLDocument }
+     TROOpenXMLDocument = class(TInterfacedObject, IXMLDocument)
+     private
+       fDocument : TDOMDocument;
+       fDOMImpl : TDomImplementation;
+
+     protected
+       function GetDocumentNode : IXMLNode;
+
+       function GetEncoding : TXMLEncoding;
+
+       procedure New(aDocumentName : UnicodeString = ''; anEncoding : TXMLEncoding = xeUTF8);
+
+       procedure SaveToStream(aStream : TStream);
+       procedure SaveToFile(const aFileName : string);
+       procedure LoadFromStream(aStream : TStream);
+       procedure LoadFromFile(const aFileName : string);
+       function GetXml:UnicodeString;
+       procedure SetXML(const Value : UnicodeString);
+
+       function Transform(const XSL : string) : string;
+       procedure Transform2(const aXSL : string; aStream : TStream);
+     public
+       constructor Create;
+       destructor Destroy; override;
+
+     end;
+
+{ Misc. for OpenXML }
+function DOMNodeToString(aDOMNode : TdomNode; aDOMImplementation : TDomImplementation = NIL) : Ansistring;
+function DOMNodeToWidestring(aDOMNode : TdomNode; aDOMImplementation : TDomImplementation = NIL) : UnicodeString;
+
+implementation
+
+uses uRORes, uROClasses, SysUtils, StrUtils;
+
+function DOMNodeToString(aDOMNode : TdomNode; aDOMImplementation : TDomImplementation = NIL) : Ansistring;
+var domimpl : TDOMImplementation;
+    parser : TDomToXmlParser;
+begin
+  if (aDOMImplementation=NIL)
+    then domimpl := TDomImplementation.Create(NIL)
+    else domimpl := aDOMImplementation;
+
+  parser := TDomToXmlParser.Create(NIL);
+
+  try
+    parser.DOMImpl := domimpl;
+    parser.writeToString(aDOMNode, XMLEncodingStr[xeUTF8], result);
+  finally
+    parser.Free;
+    if (aDOMImplementation=NIL) then domimpl.Free;
+  end;
+end;
+
+function DOMNodeToWidestring(aDOMNode : TdomNode; aDOMImplementation : TDomImplementation = NIL) : UnicodeString;
+var domimpl : TDOMImplementation;
+    parser : TDomToXmlParser;
+begin
+  if (aDOMImplementation=NIL)
+    then domimpl := TDomImplementation.Create(NIL)
+    else domimpl := aDOMImplementation;
+
+  parser := TDomToXmlParser.Create(NIL);
+
+  try
+    parser.DOMImpl := domimpl;
+    parser.writeToWideString(aDOMNode, result);
+  finally
+    parser.Free;
+    if (aDOMImplementation=NIL) then domimpl.Free;
+  end;
+end;
+
+{ TROOpenXMLNode }
+
+constructor TROOpenXMLNode.Create(const aNode : TDOMNode; aDoc: TROOpenXMLDocument);
+begin
+  if not Assigned(aNode)
+    then RaiseError(err_DOMElementIsNIL, []);
+
+  inherited Create;
+
+  fDoc := adoc;
+{$IFDEF FPC}
+  supports(fDoc, IXMLDocument, fDocIntf);
+{$ELSE}
+  fDocIntf := fDoc;
+{$ENDIF}
+  fNode := aNode;
+end;
+
+destructor TROOpenXMLNode.Destroy;
+begin
+  fDocIntf := nil;
+  inherited;
+end;
+
+function TROOpenXMLNode.Add(const aNodeName: UnicodeString; aNameSpaceURI: UnicodeString = ''): IXMLNode;
+var node : TDOMNode;
+begin
+  if aNameSpaceURI = '' then
+    node := fNode.ownerDocument.createElement(aNodeName)
+  else
+    if aNameSpaceURI = XMLEmptyNS then
+      node := fNode.ownerDocument.createElement(aNodeName)
+    else
+    node := fNode.ownerDocument.createElementNS(aNameSpaceURI, aNodeName);
+  fNode.appendChild(node);
+
+  result := TROOpenXMLNode.Create(node, fDoc);
+end;
+
+procedure TROOpenXMLNode.Delete(Index: integer);
+begin
+  fNode.removeChild(fNode.childNodes.item(Index));
+end;
+
+function TROOpenXMLNode.GetAttributes(Index : integer): IXMLNode;
+begin
+  result := TROOpenXMLNode.Create(fNode.attributes.item(Index), fDoc);
+end;
+
+function TROOpenXMLNode.GetChildren(Index : integer): IXMLNode;
+begin
+  result := TROOpenXMLNode.Create(fNode.childNodes.item(Index), fDoc);
+end;
+
+function TROOpenXMLNode.GetName: UnicodeString;
+begin
+  result := fNode.nodeName;
+end;
+
+function TROOpenXMLNode.GetValue: Variant;
+begin
+  result := fNode.textContent;
+end;
+
+function TROOpenXMLNode.GetXML: UnicodeString;
+begin
+  Result := DOMNodeToWidestring(fNode, fdoc.fDOMImpl);
+end;
+
+procedure TROOpenXMLNode.Remove(const aNode: IXMLNode);
+begin
+  fNode.removeChild(TdomNode(aNode.Ref));
+end;
+
+procedure TROOpenXMLNode.SetValue(const Value: Variant);
+var
+  textnode : TdomNode;
+  s1, s2: UnicodeString;
+begin
+  if (fNode.childNodes.length=1) and (fNode.childNodes.item(0).nodeName='#text')
+    then fNode.removeChild(fNode.childNodes.item(0));
+  s1 := Copy(UnicodeString(Value), 1, 9);
+  s2 := Copy(UnicodeString(Value),Length(UnicodeString(Value)) - 2, Length(UnicodeString(Value)));
+  if (s1 = '<![CDATA[') and (s2 = ']]>') then
+    fNode.appendChild(fNode.ownerDocument.createCDATASection(Copy(UnicodeString(Value), 10, Length(UnicodeString(Value)) - 12)))
+  else
+  begin
+    textnode := fNode.ownerDocument.createTextNode(Value);
+    fNode.appendChild(textnode)
+  end
+end;
+
+function TROOpenXMLNode.GetasString: UnicodeString;
+begin
+  Result:=fNode.textContent;
+end;
+
+procedure TROOpenXMLNode.SetasString(const Value: UnicodeString);
+var textnode : TdomNode;
+begin
+  if (fNode.childNodes.length=1) and (fNode.childNodes.item(0).nodeName='#text')
+    then fNode.removeChild(fNode.childNodes.item(0));
+
+  textnode := fNode.ownerDocument.createTextNode(Value);
+  fNode.appendChild(textnode)
+end;
+
+
+function TROOpenXMLNode.GetNodeByName(const aNodeName: UnicodeString): IXMLNode;
+var i : integer;
+    nme : string;
+begin
+  result := NIL;
+
+  with fNode.childNodes do
+    for i := 0 to (length-1) do begin
+      nme := item(i).nodeName;
+      if (nme=aNodeName) then begin
+        result := TROOpenXMLNode.Create(item(i), fDoc);
+        Exit;
+      end;
+    end;
+end;
+
+{function TROOpenXMLNode.GetNodesByAttribute(const anAttributeName, anAttributeValue: UnicodeString): IXMLNodeList;
+//var node : TdomNodeList;
+begin
+  RaiseError(err_NotImplemented, []);
+end;}
+
+function TROOpenXMLNode.GetNodesByName(const aNodeName: UnicodeString): IXMLNodeList;
+var //i : integer;
+    list : TdomNodeList;
+begin
+  result := NIL;
+
+  list := (fNode as TdomElement).getElementsByTagName(aNodeName);
+  if (list<>NIL)
+    then result := TROOpenXMLNodeList.Create(list, fDoc)
+end;
+
+function TROOpenXMLNode.GetAttributeCount: integer;
+begin
+  result := fNode.attributes.length
+end;
+
+function TROOpenXMLNode.GetChildrenCount: integer;
+begin
+  result := fNode.childNodes.length
+end;
+
+function TROOpenXMLNode.GetRef: pointer;
+begin
+  result := fNode;
+end;
+
+function TROOpenXMLNode.GetLocalName: UnicodeString;
+begin
+  result := fNode.nodeName
+end;
+
+function TROOpenXMLNode.AddAttribute(const anAttributeName : UnicodeString;
+  const anAttributeValue : Variant; aCreateResultNode: Boolean = True) : IXMLNode;
+var attr : TdomNode;
+begin
+  attr := fNode.ownerDocument.createAttribute(anAttributeName);
+  attr.nodeValue := anAttributeValue;
+  fNode.attributes.setNamedItem(attr);
+  if aCreateResultNode then
+    result := TROOpenXMLNode.Create(attr, fDoc)
+  else
+    result:=nil;
+end;
+
+function TROOpenXMLNode.AddAttribute(const anAttributeName: UnicodeString;
+  const anAttributeString: UnicodeString; aCreateResultNode: Boolean = True): IXMLNode;
+var attr : TdomNode;
+begin
+  attr := fNode.ownerDocument.createAttribute(anAttributeName);
+  attr.nodeValue := anAttributeString;
+  fNode.attributes.setNamedItem(attr);
+  if aCreateResultNode then
+    result := TROOpenXMLNode.Create(attr, fDoc)
+  else
+    result := nil;  
+end;
+
+function TROOpenXMLNode.AddCDATASection(const aData: UnicodeString): IXMLNode;
+var
+  cdata : TdomCDATASection;
+begin
+  cdata := fNode.ownerDocument.createCDATASection(aData);
+  fNode.appendChild(cdata);
+  result := TROOpenXMLNode.Create(cdata, fDoc);
+end;
+
+function TROOpenXMLNode.GetParent: IXMLNode;
+begin
+  result := TROOpenXMLNode.Create(fNode.ParentNode, fdoc)
+end;
+
+function TROOpenXMLNode.GetAttributeByName(
+  const anAttributeName: UnicodeString): IXMLNode;
+var node : TDomNode;
+begin
+  result := NIL;
+  if fNode.attributes = nil then exit;
+  node := fNode.attributes.getNamedItem(anAttributeName);
+
+  if (node<>NIL)
+    then result := TROOpenXMLNode.Create(node, fDoc);
+end;
+
+function TROOpenXMLNode.GetNodeByAttribute(const anAttributeName,
+  anAttributeValue: UnicodeString): IXMLNode;
+var i : integer;
+begin
+  result := NIL;
+  if fNode.attributes = nil then exit;
+
+  for i := 0 to (fNode.attributes.length-1) do
+    with fNode.attributes.item(i) do
+      if (nodeName=anAttributeName) and (nodeValue=anAttributeValue) then begin
+        result := TROOpenXMLNode.Create(fNode.attributes.item(i), fDoc);
+        Exit;
+      end;
+end;
+
+function TROOpenXMLNode.GetAttributeValue(
+  const anAttributeName: UnicodeString; DefaultValue: Variant): Variant;
+var attr : IXMLNode;
+begin
+  attr := GetAttributeByName(anAttributeName);
+  if (attr<>NIL) then
+     result := attr.Value
+  else
+     result := DefaultValue;
+end;
+
+function TROOpenXMLNode.GetAttributeAsString(const anAttributeName: UnicodeString;
+  DefaultValue: UnicodeString): UnicodeString;
+var attr : IXMLNode;
+begin
+  attr := GetAttributeByName(anAttributeName);
+  if (attr<>NIL) then
+     result := attr.Value
+  else
+     result := DefaultValue;
+end;
+
+
+
+function TROOpenXMLNode.GetNodeValue(const aNodeName: UnicodeString;
+  const Default: Variant): Variant;
+var node : IXMLNode;
+begin
+  node := GetNodeByName(aNodeName);
+  if (node=NIL) then result := Default
+                else result := node.Value
+end;
+
+function TROOpenXMLNode.GetFirstChild: IXMLNode;
+var node : TDomNode;
+begin
+  result := NIL;
+  node := fNode.firstChild;
+
+  if (node<>NIL)
+    then result := TROOpenXMLNode.Create(node, fDoc);
+end;
+
+function TROOpenXMLNode.GetNextSibling: IXMLNode;
+var node : TDomNode;
+begin
+  result := NIL;
+  node := fNode.nextSibling;
+
+  if (node<>NIL)
+    then result := TROOpenXMLNode.Create(node, fDoc);
+end;
+
+function TROOpenXMLNode.GetNamespaceURI: UnicodeString;
+var
+  i: integer;
+  lValue: UnicodeString;
+begin
+  Result := fNode.namespaceURI;
+  if Result = '' then begin
+    lValue := 'xmlns';
+    if fNode.prefix <> '' then lValue:= lValue+':'+fNode.prefix;
+    for i:=0 to fNode.attributes.length - 1 do
+      if TDomAttr(fNode.attributes.item(i)).name = lValue then begin
+        Result := TDomAttr(fNode.attributes.item(i)).value;
+        Break;
+      end;
+  end;
+end;
+
+function TROOpenXMLNode.AddXml(const Xml: UnicodeString): IXMLNode;
+var
+  doc : TROOpenXMLDocument;
+begin
+  doc := TROOpenXMLDocument.Create;
+  try
+    doc.New();
+    doc.SetXML(Xml);
+    if doc.fDocument.documentElement <> nil then
+      result := TROOpenXMLNode.Create(fNode.appendChild(doc.fDocument.documentElement), fDoc)
+    else
+      result := nil;
+  finally
+    doc.Free;
+  end;
+end;
+
+function TROOpenXMLNode.GetDocument: IXMLDocument;
+begin
+  result := fDoc;
+end;
+
+{ TROOpenXMLNodeList }
+
+constructor TROOpenXMLNodeList.Create(const aNodeList: TdomNodeList; aDoc: TROOpenXMLDocument);
+begin
+  if not Assigned(aNodeList)
+    then RaiseError(err_DOMElementIsNIL, []);
+
+  inherited Create;
+
+  fDoc := aDoc;
+  fNodeList := aNodeList;
+end;
+
+function TROOpenXMLNodeList.GetCount: integer;
+begin
+  result := fNodeList.length
+end;
+
+function TROOpenXMLNodeList.GetNodes(Index: integer): IXMLNode;
+begin
+  result := TROOpenXMLNode.Create(fNodeList.item(Index), fDoc);
+end;
+
+{ TROOpenXMLDocument }
+
+constructor TROOpenXMLDocument.Create;
+begin
+  fDOMImpl := TDomImplementation.Create(NIL);
+  fDocument := fDOMImpl.createDocument('XMLDOC', NIL);
+end;
+
+destructor TROOpenXMLDocument.Destroy;
+begin
+  fDOMImpl.freeDocument(fDocument);
+  fDOMImpl.Free;
+
+  inherited;
+end;
+
+function TROOpenXMLDocument.GetDocumentNode: IXMLNode;
+begin
+  result := TROOpenXMLNode.Create(fDocument.documentElement, self)
+end;
+
+function TROOpenXMLDocument.GetEncoding: TXMLEncoding;
+begin
+  result := xeUTF8
+  { ToDo: for now, obtain the real encoding later ;-) }
+end;
+
+function TROOpenXMLDocument.GetXml: UnicodeString;
+var
+    parser : TDomToXmlParser;
+begin
+  parser := TDomToXmlParser.Create(NIL);
+
+  try
+    parser.DOMImpl := fDOMImpl;
+    parser.writeToWideString(fDocument.documentElement, result);
+  finally
+    parser.Free;
+  end;
+end;
+
+procedure TROOpenXMLDocument.LoadFromFile(const aFileName: string);
+var //domimpl : TDOMImplementation;
+    parser : TXmlToDomParser;
+begin
+  New('');
+  parser := TXmlToDomParser.Create(NIL);
+  try
+    parser.DOMImpl := fDOMImpl;
+
+    fDocument := parser.fileToDom(aFileName);
+  finally
+    parser.Free;
+  end;
+end;
+
+procedure TROOpenXMLDocument.LoadFromStream(aStream: TStream);
+var //domimpl : TDOMImplementation;
+    folddoc : TdomDocument;
+    parser : TXmlToDomParser;
+begin
+  New('');
+  parser := TXmlToDomParser.Create(NIL);
+  try
+    parser.DOMImpl := fDOMImpl;
+
+    fOldDoc := fdocument;
+    fDocument := parser.streamToDom(aStream);
+    fOldDoc.domImplementation.freeDocument(fOldDoc);
+  finally
+    parser.Free;
+  end;
+end;
+
+procedure TROOpenXMLDocument.New(aDocumentName : UnicodeString = ''; anEncoding : TXMLEncoding = xeUTF8);
+var docel : TdomNode;
+begin
+  fDocument.clear;
+  if (aDocumentName<>'') then begin
+    docel := fDocument.createElement(aDocumentName);
+    fDocument.appendChild(docel)
+  end;
+end;
+
+procedure TROOpenXMLDocument.SaveToFile(const aFileName: string);
+var //domimpl : TDOMImplementation;
+    parser : TDomToXmlParser;
+    fstream : TFileStream;
+begin
+  fstream := NIL;
+  parser := TDomToXmlParser.Create(NIL);
+
+  try
+    fstream := TFileStream.Create(aFileName, fmCreate);
+    parser.DOMImpl := fDOMImpl;
+
+    parser.writeToStream(fDocument.documentElement, 'UTF-8', fstream);
+  finally
+    parser.Free;
+    fstream.Free;
+  end;
+end;
+
+procedure TROOpenXMLDocument.SaveToStream(aStream: TStream);
+const
+  c_header: Ansistring = '<?xml version="1.0" encoding="utf-8"?>'#10;
+var //domimpl : TDOMImplementation;
+    parser : TDomToXmlParser;
+    //fstream : TFileStream;
+begin
+  //fstream := NIL;
+  parser := TDomToXmlParser.Create(NIL);
+
+  try
+    parser.DOMImpl := fDOMImpl;
+    aStream.Write(pointer(c_header)^, Length(c_header));
+    parser.writeToStream(fDocument.documentElement, 'UTF-8', aStream);
+  finally
+    parser.Free;
+  end;
+end;
+
+procedure TROOpenXMLDocument.SetXML(const Value: UnicodeString);
+var
+  ss: TXmlToDomParser;
+  fOldDoc: TdomDocument;
+begin
+  New('');
+  ss := TXmlToDomParser.Create(NIL);
+  try
+    ss.DOMImpl := fDOMImpl;
+
+    fOldDoc := fdocument;
+    fDocument := ss.wideStringToDom(value);
+    fDOMImpl.freeDocument(fOldDoc);
+  finally
+    ss.Free;
+  end;
+end;
+
+function TROOpenXMLDocument.Transform(const XSL: string): string;
+begin
+  Result := '';
+  RaiseError(err_NotImplemented, []);
+end;
+
+procedure TROOpenXMLDocument.Transform2(const aXSL: string; aStream: TStream);
+begin
+  RaiseError(err_NotImplemented, []);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.dfm
new file mode 100644
index 0000000..63d01db
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.dfm	
@@ -0,0 +1,103 @@
+object PleaseWaitForm: TPleaseWaitForm
+  Left = 336
+  Top = 344
+  BorderIcons = []
+  BorderStyle = bsDialog
+  Caption = 'RemObjects SDK'
+  ClientHeight = 41
+  ClientWidth = 542
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnHide = FormHide
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbl_Caption: TLabel
+    Left = 64
+    Top = 14
+    Width = 66
+    Height = 13
+    Caption = 'Please wait...'
+  end
+  object img_Logo: TImage
+    Left = 2
+    Top = 0
+    Width = 32
+    Height = 32
+    AutoSize = True
+    Center = True
+    Picture.Data = {
+      07544269746D617080080000424D800800000000000036040000280000002000
+      00002000000001000800010000004A040000C21E0000C21E0000000000000000
+      000000000000000080000080000000808000800000008000800080800000C0C0
+      C000C0DCC000F0CAA6000000000001010100030303000606060005050F000808
+      08000B0B0B000C0D0D000D0D0D00101010001212120014141400151515001717
+      17001A1A1A001C1C1C001F1F1F0004042100161620001D1E2800181A2F000707
+      370005053E00101037001B1D32001F202B002021210021212100242424002626
+      2600292929002B2B2B002E2E2E0026283300282A3500282A3600303030003333
+      3300323434003535350036383800383838003A3A3A003C3C3C003F3F3F000D0E
+      4800171B4500151A4E00181D490010155D00151B5B00151B5C001D2141001D21
+      42001C245D00262940002126480023294B0031374F00393C48003C3F4B002B33
+      5900333952000404650005066F0008096A000E14660001017500090F75000404
+      7800121F790015206E001E2C73001A287A00232F6C0029356800323B6100343E
+      630024327000283776002E3D7B003E4141003E445B003A4675003D4977004141
+      410042454500434545004444440046464600494949004B4B4B004A4C4C004E4E
+      4E004144500043465200484B5700515151005052520053535300565656005858
+      58005B5B5B005A5D5D005D5D5D005D5E5E00434C6D005B5E6700606060006262
+      620062646400656565006767670068696900686A6A006B6B6B00616778007171
+      710070727200727676007D7F7F0001018700010188000C188300000090000000
+      9A0000029F000B1D970008199C00172A8A00182A89000F2091001D369B001F39
+      9E000005A5000009AB000411A4000618A6000A1FA700000CB100000FB8000213
+      B400071EB1000216BA000012BE00132FAA000B24B1000C27B6001131BB00233F
+      AB00374A8D002A4094002E4395002D439600344A99002D46A3003851A7003C54
+      A8002443B8002F4DBC00485A950055669C0060688200566AA7000015C4000018
+      CA00001BD000001ED7000520C1000E33CB001538C200183BC300153BCE000022
+      DD00062FDE000028E900032FEA00123EE700002BF000002EF6000332F0000A3A
+      F2000F3EF3000032FC000336FE00073AFF000C3EFF00224ADD00385FDF003C62
+      DF001442F3001847F3001042FF001547FF001A4BFF001E4FFF00204AE8002853
+      E9002354FF002758FF002C5CFF003A63EA003E67EA003C68F4003161FF003565
+      FF003A69FF003F6EFF004A67C200496EE1004C72E1004570F5004974F5004372
+      FF007B8080007C81810080828200828484009095950093979700959B9B009CA1
+      A1009EA4A400A1A7A700A2A8A800A4A9A900A6ACAC00AEB5B500B0B6B600B1B8
+      B800B3BABA00B6BDBD00B7BEBE00BAC2C200BDC4C400C6CECE00F0FBFF00A4A0
+      A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
+      FF000AF5000DEFE0612414131210246081EDF50009F5000008F50011E8661A19
+      181716141312100F0D0C30E6F50107F5000006F50015F4712726251A19181716
+      141312100F0D0C0B5BF3F59405F5000005F50017E93329282726251A3B919088
+      8784491F0F0D0C0B11EAF50004F5000004F5000FE42F2E2A2928272625389591
+      908887000287000883200D0C0B00E1F503F5000003F50011EB33312F2E2A2928
+      27263D96959190888700038700074D0E0C0B00EAF51902F5000002F50013F162
+      3433312F2E2A2928273E979695919088871A03870008861B0C0B11F3F5F50000
+      02F500147836353433312F2E2A2928273E3D224C9190888703870007860E0C0B
+      5BF5F5F500000017F5EC625F36353433312F2E2A29282726251D959190888720
+      038700064D0D0C0BE6F500000018F57C63625F36353433312F2E2A2928272685
+      96959190888703870005200D0C30F50000000019F2656463625F57B4BE9E472F
+      2E2A292851AE9A9695919088871B02870005830F0D0CEDF50000001AE5676564
+      6368C0C3C2C1B8312F2E2A2940AFAE9A969591908887028700041F0F0D810000
+      0020806B6765645DCAC4C3C2C155312F2E2A2C8DAFAE9A96959190374F874910
+      0F3200000020736D6B67655ECBCAC4C3C24833312F2E2A292BAF933C92954E17
+      218784121015000000206F6E6D6B6765C5CBCAC4B5353433312F2E2A41B05026
+      23391E181C4B4A13121000000020706F6E6D6B676AA4A5A35F3635343331548B
+      9CB1942726251A191817161413120000002072706F6E6D6B67656463625F3635
+      3444BCB98C9C43282726251A191817161413000000207672706F6E6D6B676564
+      63625F363559BD9B2F2E2A29282726251A1918171614000000207B7672706F6E
+      6D6B67656463625F3635B3BA582F2E2A2942898A3A1A19181724000000208277
+      7672706F6E6D6B676564695C5F368FC1BA312F2E2AB2B0AF99231A1918610000
+      0020E779777672706F6E6D6B6774CECBA8A1C3C28E33312F2EB7B1B0AF3F251A
+      19E000000020F37A79777675D5D7AA6D6BA6CDCCCBCAC45A353433312F9DB7B1
+      982726251AEF00000020F5E27A7977DBD9D8D36E6DA7D0CDCCCBCA9F46353433
+      312F52532D28272666F500000020F5EE7B7A79DCDFD9D8C7C6D2D1D0CDCCCBCA
+      C4B6353433312F2E2A292827E8F5000002F5001EE37B7A7EDEDFD9D8D7D6D2D1
+      D0CDCCCBCABB36353433312F2E2A296CF5F5000002F5001EF37F7B7AACDEDFD9
+      D8D7D6D2D1D0CDCCCBA25F46453433312F2E33F0F5F5000003F5001BEE7D7B7A
+      7EDCDFD9D8D7D6D2D1D0CDCCC9A2C0BF563433312FE9F52802F5000004F50019
+      EB7D7B7A79ADDDD9D8D7D6D2D1D0CDCCCBC8A136353433E4F52E03F5000005F5
+      0017EE7F7B7A7977ABDAD4D7D6D2D1CFA9A063625F3662EBF53504F5000006F5
+      0015F3E37B7A79777672706F6E6D6B676564636278F1F50005F5000008F50011
+      EEE27A79777672706F6E6D6B67657CECF52E07F500000AF5000DF3E7827B7672
+      706F7380E5F2F5D209F50001}
+    Transparent = True
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.lfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.lfm
new file mode 100644
index 0000000..0b8252c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.lfm	
@@ -0,0 +1,32 @@
+object PleaseWaitForm: TPleaseWaitForm
+  Left = 314
+  Height = 41
+  Top = 327
+  Width = 542
+  HorzScrollBar.Page = 541
+  VertScrollBar.Page = 40
+  BorderIcons = []
+  BorderStyle = bsDialog
+  Caption = 'RemObjects SDK'
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  OnHide = FormHide
+  OnShow = FormShow
+  Position = poScreenCenter
+  object lbl_Caption: TLabel
+    Left = 64
+    Height = 19
+    Top = 14
+    Width = 87
+    Caption = 'Please wait...'
+    Color = clNone
+    ParentColor = False
+  end
+  object img_Logo: TImage
+    Left = 2
+    Height = 32
+    Width = 32
+    AutoSize = True
+    Center = True
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.lrs
new file mode 100644
index 0000000..c7f0416
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.lrs	
@@ -0,0 +1,13 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TPleaseWaitForm','FORMDATA',[
+  'TPF0'#15'TPleaseWaitForm'#14'PleaseWaitForm'#4'Left'#3':'#1#6'Height'#2')'#3
+  +'Top'#3'G'#1#5'Width'#3#30#2#18'HorzScrollBar.Page'#3#29#2#18'VertScrollBar.'
+  +'Page'#2'('#11'BorderIcons'#11#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6
+  +#14'RemObjects SDK'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#6'OnHide'
+  +#7#8'FormHide'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#0#6
+  +'TLabel'#11'lbl_Caption'#4'Left'#2'@'#6'Height'#2#19#3'Top'#2#14#5'Width'#2
+  +'W'#7'Caption'#6#14'Please wait...'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
+  +#0#6'TImage'#8'img_Logo'#4'Left'#2#2#6'Height'#2' '#5'Width'#2' '#8'AutoSize'
+  +#9#6'Center'#9#0#0#0
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.pas
new file mode 100644
index 0000000..93278d7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPleaseWaitForm.pas	
@@ -0,0 +1,109 @@
+unit uROPleaseWaitForm;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Delphi IDE Integration                            }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Messages, SysUtils, Classes, Graphics, Controls, Forms,
+  {$IFDEF FPC} LResources, lmessages,{$ENDIF}
+  Dialogs, StdCtrls, ExtCtrls;
+
+type
+  TPleaseWaitForm = class(TForm)
+    lbl_Caption: TLabel;
+    img_Logo: TImage;
+    procedure FormShow(Sender: TObject);
+    procedure FormHide(Sender: TObject);
+  private
+   {$IFNDEF FPC}
+    fWindowList:pointer;
+   {$ENDIF}    
+  public
+    constructor Create(iOwner: TComponent; const iCaption:string=''; const iHeader:string=''; iBitmap:TBitmap=nil; iFreeBitmap:boolean=false); reintroduce;
+    procedure Show(const iCaption:string=''); reintroduce;
+    procedure Hide; reintroduce;
+  end;
+
+var
+  PleaseWaitForm: TPleaseWaitForm;
+
+implementation
+
+{$IFNDEF FPC}
+  {$R *.dfm}
+{$ENDIF}
+
+{ TPleaseWaitForm }
+
+constructor TPleaseWaitForm.Create(iOwner: TComponent; const iCaption:string=''; const iHeader:string=''; iBitmap:TBitmap=nil; iFreeBitmap:boolean=false);
+begin
+  inherited Create(iOwner);
+  if iHeader <> '' then Caption := iHeader;
+  lbl_Caption.Caption := iCaption;
+
+  if Assigned(iBitmap) then begin
+    img_Logo.Picture.Assign(iBitmap);
+    if iFreeBitmap then iBitmap.Free();
+  end;
+
+  img_Logo.Top := (ClientHeight-img_Logo.Height) div 2;
+  img_Logo.Left := img_Logo.Top;
+  lbl_Caption.Left := img_Logo.Width+ (img_Logo.Left*2);
+  ClientWidth := lbl_Caption.Left+lbl_Caption.Width+img_Logo.Left;
+end;
+
+procedure TPleaseWaitForm.Show(const iCaption:string='');
+begin
+  if iCaption <> '' then begin
+    lbl_Caption.Caption := iCaption;
+    ClientWidth := lbl_Caption.Left+lbl_Caption.Width+8;
+  end;
+  inherited Show();
+  Application.ProcessMessages();
+end;
+
+procedure TPleaseWaitForm.Hide;
+begin
+  inherited Hide();
+  Application.ProcessMessages();
+end;
+
+procedure TPleaseWaitForm.FormShow(Sender: TObject);
+begin
+{$IFDEF MSWINDOWS}
+  SendMessage(Handle, CM_ACTIVATE, 0, 0);
+{$ENDIF}  
+{$IFNDEF FPC}
+  fWindowList := DisableTaskWindows(0);
+{$ENDIF FPC}
+end;
+
+procedure TPleaseWaitForm.FormHide(Sender: TObject);
+begin
+{$IFDEF MSWINDOWS}
+  SendMessage(Handle, CM_DEACTIVATE, 0, 0);
+{$ENDIF}  
+{$IFNDEF FPC}
+  EnableTaskWindows(fWindowList);
+{$ENDIF FPC}
+end;
+
+initialization
+{$IFDEF FPC}
+  {$I uROPleaseWaitForm.lrs}
+{$ENDIF}  
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPostMessage.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPostMessage.pas
new file mode 100644
index 0000000..ee785fc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPostMessage.pas	
@@ -0,0 +1,1072 @@
+unit uROPostMessage;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, TypInfo,
+  uROSerializer, uROClient, uROClientIntf, uROTypes, FMTBcd;
+
+type
+  TROPostMessageSerializer = class;
+
+  TROPostMessageBinaryType = (btInlineHex, btInlineBase64);
+
+  TROPostMessage = class(TROMessage)
+  private
+    fBinaryType: TROPostMessageBinaryType;
+    fMultiLine: Boolean;
+    procedure SetBinaryType(const Value: TROPostMessageBinaryType);
+  protected
+    { Internals }
+    function ReadException: Exception; override;
+    function CreateSerializer: TROSerializer; override;
+
+    { IROMessage }
+    procedure Initialize(const aTransport: IROTransport; const anInterfaceName, aMessageName: string; aType: TMessageType); override;
+    procedure WriteToStream(aStream: TStream); override;
+    procedure ReadFromStream(aStream: TStream); override;
+    procedure WriteException(aStream: TStream; anException: Exception); override;
+
+    function GetSerializer: TROPostMessageSerializer;
+    property Serializer: TROPostMessageSerializer read GetSerializer;
+    procedure InitObject; override;
+  public
+    procedure Assign(Source: TPersistent); override;
+    function IsValidMessage(aData: PAnsiChar; aLength: Integer): boolean; override;
+  published
+    property BinaryType: TROPostMessageBinaryType read fBinaryType write SetBinaryType default btInlineHex;
+    property MultiLine: Boolean read fMultiLine write fMultiLine default True;
+  end;
+
+  TROPostMessageSerializer = class(TROSerializer)
+  private
+    fPrefixStack: TStringList;
+    fPrefix: String;
+    fMessage: TStringList;
+    fBinaryType: TROPostMessageBinaryType;
+    procedure PushPrefix(aNewPrefix:string; aArrayElementId: integer = -1);
+    procedure PopPrefix;
+    function AssemblePrefix(const aName: string; aArrayElementId: integer): string;
+  protected
+    procedure BeginWriteObject(const aName: string; aClass : TClass; anObject: TObject; var LevelRef : IUnknown;
+                                var IsValidType : boolean; out IsAssigned:Boolean; ArrayElementId : integer = -1); override;
+    procedure EndWriteObject(const aName: string; aClass : TClass; anObject: TObject; const LevelRef : IUnknown); override;
+    procedure CustomWriteObject(const aName : string; aClass : TClass; const Ref; ArrayElementId : integer = -1); override;
+    procedure CustomReadObject(const aName: string; aClass: TClass;var Ref; ArrayElementId: integer);override;
+    procedure BeginReadObject(const aName : string; aClass : TClass; var anObject : TObject; var LevelRef : IUnknown;
+                               var IsValidType : boolean; ArrayElementId : integer = -1); override;
+    procedure EndReadObject(const aName : string; aClass : TClass; var anObject : TObject; const LevelRef : IUnknown); override;
+  public
+    { Writers }
+     procedure WriteInteger(const aName : string; anOrdType : TOrdType; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteInt64(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteAnsiString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteUTF8String(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteWideString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteUnicodeString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteDateTime(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteDouble(const aName : string; aFloatType : TFloatType; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteVariant(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteXml(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteGuid(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteDecimal(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteBinary(const aName : string; const Ref; ArrayElementId : integer = -1);override;
+     procedure WriteStruct(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1);override;
+     procedure WriteArray(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1);override;
+     procedure WriteException(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     { Readers }
+     procedure ReadInteger(const aName : string; anOrdType : TOrdType; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadInt64(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadAnsiString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+     procedure ReadUTF8String(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+     procedure ReadWideString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+     procedure ReadUnicodeString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+     procedure ReadDateTime(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadDouble(const aName : string; aFloatType : TFloatType; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadVariant(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadXml(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadGuid(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadDecimal(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadBinary(const aName : string; var Ref; ArrayElementId : integer = -1);override;
+     function ReadStruct(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+     function ReadArray(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+     procedure ReadException(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    property BinaryType: TROPostMessageBinaryType read fBinaryType write fBinaryType;
+  public
+    constructor Create();
+    destructor Destroy; override;
+
+    procedure Clear();
+    procedure LoadFromStream(aStream: TStream; aMultiLine: Boolean = True);
+    procedure SaveToStream(aStream: TStream; aMultiLine: Boolean = True);
+
+    procedure WriteItem(const aName: string; aString: string; aArrayElementId: integer = -1);
+    function ReadItem(const aName: string; aArrayElementId: integer = -1): string;
+
+    property Message: TStringList read fMessage write fMessage;
+    property Prefix: string read fPrefix write fPrefix;
+  end;
+
+{$IF defined(DELPHI7UP) or defined(FPC)}
+const PostLocale = 1033;
+var PostFormatSettings : TFormatSettings;
+{$IFEND}
+
+implementation
+
+uses
+  {$IFDEF DEBUG_REMOBJECTS_POSTMESSAGE}eDebugServer,{$ENDIF}
+  uRORes, uROClasses, uROCompression, uROBinaryHelpers, uROXmlIntf, Variants;
+
+const
+  PostDateTimeFormat = 'yyyy"-"mm"-"dd" "hh":"nn":"ss';
+//  PostDateTimeLength = 19;
+
+function PostStrToFloat(const aString: string): Extended;
+{$IF not defined(DELPHI7UP) and not defined(FPC)}
+var e: integer;
+{$IFEND}
+begin
+  {$IF defined(DELPHI7UP) or defined(FPC)}
+  Result := StrToFloat(aString,PostFormatSettings);// then
+  {$ELSE}
+  Val(aString, Result, e);
+  {$IFEND}
+end;
+
+{ HTTPEncode/HTTPDecode reproduced from HTTPApp.pas}
+{ 20080521 - updated from Tiburon sources}
+{$WARNINGS OFF}
+function HTTPEncode(const AStr: AnsiString): AnsiString;
+// The NoConversion set contains characters as specificed in RFC 1738 and
+// should not be modified unless the standard changes.
+const
+  NoConversion = ['A'..'Z','a'..'z','*','@','.','_','-',
+                  '0'..'9','$','!','''','(',')'];
+var
+  Sp, Rp: PAnsiChar;
+begin
+  SetLength(Result, Length(AStr) * 3);
+  Sp := PAnsiChar(AStr);
+  Rp := PAnsiChar(Result);
+  while Sp^ <> #0 do
+  begin
+    if Sp^ in NoConversion then
+      Rp^ := Sp^
+    else
+      if Sp^ = ' ' then
+        Rp^ := '+'
+      else
+      begin
+        FormatBuf(Rp^, 3, AnsiString('%%%.2x'), 6, [Ord(Sp^)]);
+        Inc(Rp,2);
+      end;
+    Inc(Rp);
+    Inc(Sp);
+  end;
+  SetLength(Result, Rp - PAnsiChar(Result));
+end;
+
+function HTTPDecode(const AStr: AnsiString): AnsiString;
+var
+  Sp, Rp, Cp: PAnsiChar;
+  S: String;
+begin
+  SetLength(Result, Length(AStr));
+  Sp := PAnsiChar(AStr);
+  Rp := PAnsiChar(Result);
+  Cp := Sp;
+  try
+    while Sp^ <> #0 do
+    begin
+      case Sp^ of
+        '+': Rp^ := ' ';
+        '%': begin
+               // Look for an escaped % (%%) or %<hex> encoded character
+               Inc(Sp);
+               if Sp^ = '%' then
+                 Rp^ := '%'
+               else
+               begin
+                 Cp := Sp;
+                 Inc(Sp);
+                 if (Cp^ <> #0) and (Sp^ <> #0) then
+                 begin
+                   S := '$' + Cp^ + Sp^;
+                   {$IFDEF UNICODE}
+                   Rp^ :=  AnsiChar(StrToInt(S));
+                   {$ELSE}
+                   Rp^ := Chr(StrToInt(S));
+                   {$ENDIF}
+                 end
+                 else
+                   raise Exception.CreateFmt('Error decoding character (%%XX) at position %d', [Cp - PAnsiChar(AStr)]);
+               end;
+             end;
+      else
+        Rp^ := Sp^;
+      end;
+      Inc(Rp);
+      Inc(Sp);
+    end;
+  except
+    on E:EConvertError do
+      raise EConvertError.CreateFmt('Invalid URL encoded character (%s) at position %d', [AnsiChar('%') + Cp^ + Sp^, Cp - PAnsiChar(AStr)])
+  end;
+  SetLength(Result, Rp - PAnsiChar(Result));
+end;
+{$WARNINGS ON}
+
+
+{ TROPostMessage }
+
+procedure TROPostMessage.Assign(Source: TPersistent);
+var
+  lSource: TROPostMessage;
+begin
+  inherited;
+  if Source is TROPostMessage then begin
+    lSource := TROPostMessage(Source);
+
+    BinaryType := lSource.BinaryType;
+    MultiLine := lSource.MultiLine;
+  end;
+end;
+
+procedure TROPostMessage.InitObject;
+begin
+  inherited;
+  fMultiLine := True;
+end;
+
+function TROPostMessage.CreateSerializer: TROSerializer;
+begin
+  result := TROPostMessageSerializer.Create();
+  TROPostMessageSerializer(result).BinaryType := BinaryType;
+end;
+
+function TROPostMessage.GetSerializer: TROPostMessageSerializer;
+begin
+  result := (inherited Serializer as TROPostMessageSerializer);
+end;
+
+function GuidToStr(aGuid: TGUID): String;
+begin
+    result := GUIDToString(aGuid);
+    result := copy(result, 2, length(result) - 2);
+end;
+
+procedure TROPostMessage.Initialize(const aTransport: IROTransport;
+  const anInterfaceName, aMessageName: string; aType: TMessageType);
+begin
+  inherited;
+  Serializer.Clear();
+  Serializer.WriteItem('__MessageType','Message');
+  Serializer.WriteItem('__InterfaceName',anInterfaceName);
+  Serializer.WriteItem('__MessageName',aMessageName);
+  Serializer.WriteItem('__ClientID', GuidToStr(Self.GetClientID()));
+end;
+
+function TROPostMessage.IsValidMessage(aData: PAnsiChar;
+  aLength: Integer): boolean;
+var
+  str: Ansistring;
+begin
+  SetString(str, aData, aLength);
+  Result := Pos(AnsiString('__MessageType='), str) > 0;
+end;
+
+function TROPostMessage.ReadException: Exception;
+var
+  lExceptionName, lMessage: string;
+begin
+  lExceptionName := Serializer.ReadItem('__ExceptionClass');
+  lMessage := Serializer.ReadItem('__ExceptionMessage');
+
+  result := CreateException(lExceptionName, lMessage);
+
+  if result.InheritsFrom(EROException)
+    then Serializer.Read('__Exception', result.ClassInfo, result); // Reads the other fields which have been properly serialized
+end;
+
+procedure TROPostMessage.ReadFromStream(aStream: TStream);
+var
+  lMessageType: string;
+  lClientID: string;
+begin
+  inherited;
+  {$IFDEF DEBUG_REMOBJECTS_POSTMESSAGE}
+  DebugServer.EnterMethod('TROPostMessage.ReadFromStream(stream=%x; position:$%x)', [integer(pointer(aStream)), aStream.Position]);
+  try
+    DebugServer.WriteHexDump('Incoming PostMessage stream:', aStream);
+    {$ENDIF DEBUG_REMOBJECTS_POSTMESSAGE}
+
+  Serializer.LoadFromStream(aStream, fMultiLine);
+
+  {$IFDEF DEBUG_REMOBJECTS_POSTMESSAGE}
+  DebugServer.Write('Incoming PostMessage', Serializer.Message);
+  {$ENDIF DEBUG_REMOBJECTS_POSTMESSAGE}
+
+  lClientID := Serializer.ReadItem('__ClientID');
+  if lClientID <> '' then
+    SetClientID(StringToGUID(Format('{%s}', [lClientID])));
+
+  lMessageType := Serializer.ReadItem('__MessageType');
+  if SameText(lMessageType,'Message') then begin
+
+    InterfaceName := Serializer.ReadItem('__InterfaceName');
+    MessageName := Serializer.ReadItem('__MessageName');
+
+  end
+  else if SameText(lMessageType, 'Exception') then begin
+    ProcessException();
+  end
+  else begin
+    raise EROException.CreateFmt(err_UnknownMessageType,[lMessageType]);
+  end;
+
+  {$IFDEF DEBUG_REMOBJECTS_POSTMESSAGE}
+  finally
+    DebugServer.ExitMethod('TROPostMessage.ReadFromStream(stream=%x; position:$%x)', [integer(pointer(aStream)), aStream.Position]);
+  end;
+  {$ENDIF DEBUG_REMOBJECTS_POSTMESSAGE}
+end;
+
+procedure TROPostMessage.SetBinaryType(
+  const Value: TROPostMessageBinaryType);
+begin
+  if fBinaryType <> Value then begin
+    fBinaryType := Value;
+    Serializer.BinaryType := Value;
+  end;
+end;
+
+procedure TROPostMessage.WriteException(aStream: TStream; anException: Exception);
+begin
+  inherited;
+  Serializer.Clear();
+  Serializer.WriteItem('__MessageType','Exception');
+  Serializer.WriteItem('__ExceptionClass', anException.ClassName);
+  Serializer.WriteItem('__ExceptionMessage', anException.Message);
+
+  if (anException is EROException) then begin
+    Serializer.Write('__Exception', anException.ClassInfo, anException);
+  end;
+
+  WriteToStream(aStream);
+end;
+
+procedure TROPostMessage.WriteToStream(aStream: TStream);
+begin
+  {$IFDEF DEBUG_REMOBJECTS_POSTMESSAGE}
+  DebugServer.Write('Outgoing PostMessage', Serializer.Message);
+  {$ENDIF DEBUG_REMOBJECTS_POSTMESSAGE}
+
+  Serializer.SaveToStream(aStream, MultiLine);
+  aStream.Seek(0, soFromBeginning);
+
+  inherited;
+  {$IFDEF DEBUG_REMOBJECTS_POSTMESSAGE}
+  DebugServer.WriteHexDump('Outgoing PostMessage stream:', aStream);
+  {$ENDIF DEBUG_REMOBJECTS_POSTMESSAGE}
+end;
+
+{ TROPostMessageSerializer }
+
+constructor TROPostMessageSerializer.Create;
+begin
+  fMessage := TStringList.Create();
+  fPrefixStack := TStringList.Create();
+end;
+
+destructor TROPostMessageSerializer.Destroy;
+begin
+  FreeAndNil(fMessage);
+  FreeAndNil(fPrefixStack);
+  inherited;
+end;
+
+procedure TROPostMessageSerializer.BeginReadObject(const aName: string;
+  aClass: TClass; var anObject: TObject; var LevelRef: IInterface;
+  var IsValidType: boolean; ArrayElementId: integer);
+var
+  lCount: Integer;
+  lIsAssigned: Boolean;
+  lActualClass: TROComplexTypeClass;
+  lClassname: string;
+begin
+  inherited;
+  lClassname := ReadItem(aName, ArrayElementID);
+
+  lIsAssigned := lClassname <> '';
+
+  PushPrefix(aName, ArrayElementId);
+
+  { ToDo -omh: MUCH this should be moved into common code in TROSerializer so ALL messages benbefit from it? }
+
+  if aClass.InheritsFrom(TROArray) then begin
+    if lIsAssigned then begin
+      anObject := aClass.Create();
+      ReadInteger('Count', otULong, lCount);
+      TROArray(anObject).Resize(lCount);
+    end;
+    IsValidType := true;
+  end
+  else if aClass.InheritsFrom(Binary) then begin
+    if not Assigned(anObject) then begin
+      if lIsAssigned then
+        anObject := Binary.Create;
+    end
+    else begin
+      if lIsAssigned then begin
+        (anObject as Binary).Size := 0;
+      end
+      else begin
+        anObject := nil;
+      end;
+    end;
+    IsValidType := true;
+  end
+  else if Assigned(anObject) and aClass.InheritsFrom(EROException) then begin
+    IsValidType := TRUE;
+  end
+  else begin
+    if lIsAssigned then begin
+
+      if IsValidType then begin
+        lActualClass := FindROClass(lClassname);
+        if not Assigned(lActualClass) then RaiseError(err_UnknownClassInStream,[lClassname,aClass.ClassName]);
+        if not lActualClass.InheritsFrom(aClass) then RaiseError(err_UnexpectedClassInStream,[lClassname,aClass.ClassName]);
+        anObject := lActualClass.Create;
+
+      end
+      else begin
+        RaiseError(str_InvalidClassTypeInStream,[lClassname]);
+      end;
+    end;
+  end;
+
+end;
+
+procedure TROPostMessageSerializer.EndReadObject(const aName: string; aClass: TClass; var anObject: TObject; const LevelRef: IInterface);
+begin
+  inherited;
+  PopPrefix();
+end;
+
+procedure TROPostMessageSerializer.BeginWriteObject(const aName: string;
+  aClass: TClass; anObject: TObject; var LevelRef: IInterface;
+  var IsValidType: boolean; out IsAssigned: Boolean;
+  ArrayElementId: integer);
+var
+  lCount: Integer;
+begin
+  inherited;
+  IsAssigned := Assigned(anObject);
+
+  if aClass.InheritsFrom(Binary) then
+    IsValidType := true;
+
+
+  if IsValidType and IsAssigned then
+    WriteItem(aName, anObject.ClassName, ArrayElementId)
+  else
+    WriteItem(aName, '', ArrayElementId);
+
+  PushPrefix(aName, ArrayElementId);
+
+  if IsAssigned and (anObject is TROArray) then begin
+    lCount := TROArray(anObject).Count;
+    WriteInteger('Count', otULong, lCount);
+  end;
+end;
+
+procedure TROPostMessageSerializer.EndWriteObject(const aName: string; aClass: TClass; anObject: TObject; const LevelRef: IInterface);
+begin
+  inherited;
+  PopPrefix();
+end;
+
+procedure TROPostMessageSerializer.ReadDateTime(const aName: string; var Ref; ArrayElementId: integer);
+var
+  year, month, day, hour, min, sec : word;
+  S: string;
+begin
+  s := ReadItem(aName, ArrayElementId);
+  if s = '' then begin
+    TDateTime(Ref) := 0;
+  end
+  else begin
+    if Length(s) <> 19 then
+      RaiseError('Invaild DateTime value %s in PostMessage ("%s")',[s]);
+
+    year  := StrToInt(Copy(s,1,4));
+    month := StrToInt(Copy(s,6,2));
+    day   := StrToInt(Copy(s,9,2));
+    hour  := StrToInt(Copy(s,12,2));
+    min   := StrToInt(Copy(s,15,2));
+    sec   := StrToInt(Copy(s,18,2));
+    TDateTime(Ref) := EncodeDate(year, month, day)+EncodeTime(hour, min, sec, 0);
+  end;
+end;
+
+procedure TROPostMessageSerializer.WriteDateTime(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  WriteItem(aName,FormatDateTime(PostDateTimeFormat,TDateTime(Ref)), ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.ReadDouble(const aName: string; aFloatType: TFloatType; var Ref; ArrayElementId: integer);
+var
+  text: string;
+begin
+  text := ReadItem(aName, ArrayElementId);
+  case aFloatType of
+    ftSingle : single(Ref) := PostStrToFloat(text);
+    ftDouble : double(Ref) := PostStrToFloat(text);
+    ftExtended : extended(Ref) := PostStrToFloat(text);
+    ftComp : comp(Ref) := {$IFDEF FPC}
+                            {$IFDEF cpu64}StrToInt64(text){$ELSE}StrToInt(text){$ENDIF}
+                          {$ELSE}
+                            PostStrToFloat(text)
+                          {$ENDIF};
+    ftCurr : currency(Ref) := PostStrToFloat(text);
+  end
+end;
+
+procedure TROPostMessageSerializer.WriteDouble(const aName: string; aFloatType: TFloatType; const Ref; ArrayElementId: integer);
+var
+  src: pointer;
+  text: string;
+begin
+  src := @Ref;
+  case aFloatType of
+    ftSingle   : begin
+      text := FloatToStr(single(src^){$IFDEF DELPHI7UP}, PostFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+    ftDouble   : begin
+      text := FloatToStr(double(src^){$IFDEF DELPHI7UP}, PostFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+    ftExtended : begin
+      text := FloatToStr(extended(src^){$IFDEF DELPHI7UP}, PostFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+    ftComp     : begin
+      text := FloatToStr(comp(src^){$IFDEF DELPHI7UP}, PostFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+    ftCurr     : begin
+      text := FloatToStr(currency(src^){$IFDEF DELPHI7UP}, PostFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+    end;
+  end;
+  ReplaceChar(text,[','],'.'); { compensate for locales that use "," as decimal. }
+  WriteItem(aName,text,ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.ReadEnumerated(const aName: string; anEnumTypeInfo: PTypeInfo; var Ref; ArrayElementId: integer);
+var
+  value: Integer;
+  text: string;
+begin
+  text := ReadItem(aName, ArrayElementId);
+  value := ROGetEnumValue(anEnumTypeInfo, text);
+  IntegerToEnumerated(value,anEnumTypeInfo,Ref);
+end;
+
+procedure TROPostMessageSerializer.WriteEnumerated(const aName: string; anEnumTypeInfo: PTypeInfo; const Ref; ArrayElementId: integer);
+begin
+  WriteItem(aName,ROGetEnumName(anEnumTypeInfo, EnumeratedToInteger(anEnumTypeInfo,Ref)), ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.ReadInt64(const aName: string; var Ref; ArrayElementId: integer);
+var
+  s: string;
+begin
+  s := ReadItem(aName, ArrayElementId);
+  Int64(Ref) := StrToInt64(s);
+end;
+
+procedure TROPostMessageSerializer.ReadInteger(const aName: string; anOrdType: TOrdType; var Ref; ArrayElementId: integer);
+var
+  s: string;
+begin
+  s := ReadItem(aName, ArrayElementId);
+  case anOrdType of
+    otSByte:smallint(ref) := StrToInt(s);
+    otUByte:byte(ref) := StrToInt(s);
+    otSWord:shortint(ref) := StrToInt(s);
+    otUWord:word(ref) := StrToInt(s);
+    otSLong:longint(ref) := StrToInt(s);
+    otULong:cardinal(ref) := StrToInt(s);
+  end;
+end;
+
+procedure TROPostMessageSerializer.ReadUnicodeString(const aName: string;
+  var Ref; ArrayElementId, iMaxLength: integer);
+begin
+  UnicodeString(ref) := UTF8ToString(HTTPDecode({$IFDEF UNICODE}UTF8Encode{$ENDIF}(ReadItem(aName, ArrayElementId))));
+end;
+
+procedure TROPostMessageSerializer.ReadUTF8String(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+begin
+  UTF8String(ref) := UTF8String(HTTPDecode({$IFDEF UNICODE}UTF8Encode{$ENDIF}(ReadItem(aName, ArrayElementId))));
+end;
+
+procedure TROPostMessageSerializer.ReadWideString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+begin
+  WideString(ref) := UTF8ToString(HTTPDecode({$IFDEF UNICODE}UTF8Encode{$ENDIF}(ReadItem(aName, ArrayElementId))));
+end;
+
+procedure TROPostMessageSerializer.WriteInt64(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  WriteItem(aName,IntToStr(Int64(ref)), ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.WriteInteger(const aName: string; anOrdType: TOrdType; const Ref; ArrayElementId: integer);
+var
+  s: string;
+begin
+  case anOrdType of
+    otSByte:s := IntToStr(smallint(ref));
+    otUByte:s := IntToStr(byte(ref));
+    otSWord:s := IntToStr(shortint(ref));
+    otUWord:s := IntToStr(word(ref));
+    otSLong:s := IntToStr(longint(ref));
+    otULong:s := IntToStr(cardinal(ref));
+  end;
+  WriteItem(aName,s, ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.WriteUnicodeString(const aName: string;
+  const Ref; ArrayElementId: integer);
+begin
+  WriteItem(aName,{$IFDEF UNICODE}UTF8ToString{$ENDIF}(HTTPEncode(UTF8Encode(UnicodeString(Ref)))), ArrayElementID);
+end;
+
+procedure TROPostMessageSerializer.WriteUTF8String(const aName: string; const Ref; ArrayElementId: integer);
+var
+  s: UTF8String;
+begin
+  s:=UTF8String(HTTPEncode(AnsiString(UTF8String(ref))));
+  WriteItem(aName, UTF8ToString(s), ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.WriteWideString(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  WriteItem(aName,{$IFDEF UNICODE}UTF8ToString{$ENDIF}(HTTPEncode(UTF8Encode(WideString(Ref)))), ArrayElementID);
+end;
+
+procedure TROPostMessageSerializer.Clear;
+begin
+  fMessage.Clear();
+  fPrefixStack.Clear();
+  fPrefix := '';
+end;
+
+procedure TROPostMessageSerializer.LoadFromStream(aStream: TStream; aMultiLine: Boolean = True);
+var
+  s: String;
+begin
+  fMessage.LoadFromStream(aStream);
+  if not aMultiLine then begin
+    s:= fMessage.Text;
+    fMessage.Delimiter := '&';
+    fMessage.DelimitedText := s;
+  end;
+  if (fMessage.Count > 0) and (copy(fMessage[0], 1, 7) = 'rorocks') then
+    RaiseInvalidStreamError(err_InvalidHeaderEncrypted, [], aStream);
+
+  fPrefixStack.Clear();
+  fPrefix := '';
+end;
+
+procedure TROPostMessageSerializer.SaveToStream(aStream: TStream; aMultiLine: Boolean = True);
+var
+  s: Ansistring;
+begin
+  if not aMultiLine then begin
+    fMessage.Delimiter := '&';
+    s := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fMessage.DelimitedText);
+    aStream.WriteBuffer(Pointer(s)^, Length(s));
+  end
+  else begin
+    fMessage.SaveToStream(aStream);
+  end;
+end;
+
+procedure TROPostMessageSerializer.PopPrefix;
+begin
+  if fPrefixStack.Count = 0 then
+    raise EROException.Create('Umatched call to PopPrefix');
+
+  Prefix := fPrefixStack[fPrefixStack.Count-1];
+  fPrefixStack.Delete(fPrefixStack.Count-1);
+end;
+
+procedure TROPostMessageSerializer.PushPrefix(aNewPrefix: string; aArrayElementId: integer = -1);
+begin
+  fPrefixStack.Add(Prefix);
+  Prefix := AssemblePrefix(aNewPrefix,aArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.CustomReadObject(const aName: string; aClass: TClass; var Ref; ArrayElementId: integer);
+var
+  obj: TObject absolute Ref;
+begin
+  inherited;
+  if Assigned(obj) and (obj is Binary) then begin
+    ReadBinary('Value', Binary(obj), ArrayElementID);
+  end;
+end;
+
+procedure TROPostMessageSerializer.CustomWriteObject(const aName: string; aClass: TClass; const Ref; ArrayElementId: integer);
+var
+  obj: TObject absolute Ref;
+begin
+  inherited;
+  if Assigned(obj) and (obj is Binary) then begin
+    WriteBinary('Value', Binary(obj), ArrayElementID);
+  end;
+end;
+
+procedure TROPostMessageSerializer.ReadVariant(const aName: String; var Ref; ArrayElementId: Integer);
+var
+  lBinary: Binary;
+begin
+//  lBinary := Binary.Create();
+  ReadBinary(aName, lBinary, ArrayElementID);
+  if lBinary <> nil then
+    try
+      variant(Ref) := VariantFromBinary(lBinary);
+    finally
+      lBinary.Free();
+    end
+ else
+  variant(Ref) := Null;
+end;
+
+procedure TROPostMessageSerializer.WriteVariant(const aName: String; const Ref; ArrayElementId: Integer);
+var
+  lBinary: Binary;
+begin
+  lBinary := BinaryFromVariant(Variant(Ref));
+  try
+    WriteBinary(aName, lBinary, ArrayElementID);
+  finally
+    lBinary.Free();
+  end;
+end;
+
+function TROPostMessageSerializer.AssemblePrefix(const aName: string; aArrayElementId: integer):string;
+begin
+  if Prefix <> '' then begin
+    if aArrayElementID <> -1 then begin
+      result := Prefix+'['+IntToStr(aArrayElementID)+']';
+    end
+    else begin
+      result := Prefix+'.'+aName;
+    end;
+  end
+  else begin
+    result := aName;
+  end;
+end;
+
+procedure TROPostMessageSerializer.WriteItem(const aName: string; aString: string; aArrayElementId: integer = -1);
+begin
+  Message.Add(AssemblePrefix(aName, aArrayElementID)+'='+aString)
+end;
+
+function TROPostMessageSerializer.ReadItem(const aName: string; aArrayElementId: integer = -1):string;
+begin
+  result := Message.Values[AssemblePrefix(aName, aArrayElementId)];
+end;
+
+procedure TROPostMessageSerializer.ReadXml(const aName: String;
+  var Ref; ArrayElementId: Integer);
+var
+  s: WideString;
+  res: IXMLDocument;
+begin
+  ReadWideString(aName, s, ArrayElementID);
+  if s = '' then
+    IXmlNode(Ref) := nil
+  else begin
+    res := NewROXmlDocument;
+    Res.New;
+    Res.XML := s;
+    IXmlNode(Ref) := res.DocumentNode;
+  end;
+end;
+
+procedure TROPostMessageSerializer.WriteXml(const aName: String;
+  const Ref; ArrayElementId: Integer);
+var
+  s: WideString;
+begin
+  if IXMLNode(Ref) = nil then
+    S := ''
+  else
+    s := IXMLNode(Ref).XML;
+  WriteWideString(aName, s, ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.ReadDecimal(const aName: String;
+  var Ref; ArrayElementId: Integer);
+var
+  s: string;
+  us: UTF8String;
+begin
+   ReadUTF8String(aName, us, ArrayElementId);
+   s := {$IFDEF DELPHI2009UP}UTF8ToString{$ENDIF}(us);
+   if DecimalSeparator <> '.' then s := StringReplace(s, '.', DecimalSeparator, []);
+   Variant(Ref) := BCDToVariant(StrToBcd(s));
+end;
+
+procedure TROPostMessageSerializer.ReadGuid(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+begin
+  ReadUTF8String(aName, s, ArrayElementId);
+  if Copy(s,1,1) <> '{' then s := '{'+s+'}';
+  string(Ref) := s;
+end;
+
+procedure TROPostMessageSerializer.WriteDecimal(const aName: String;
+  const Ref; ArrayElementId: Integer);
+var
+  s: string;
+begin
+  s := BcdToStr(VariantToBCD(variant(Ref)));
+  if DecimalSeparator <> '.' then s := StringReplace(s, DecimalSeparator, '.', []); // delphi has no way to format a bcd with a specific format
+  WriteUTF8String(aName, s, ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.WriteGuid(const aName: String;
+  const Ref; ArrayElementId: Integer);
+var
+  s: string;
+begin
+  s := GuidToString(StringToGUID(string(Ref)));
+  s := copy(s,2,length(s) -2); // remove curlies
+  WriteUTF8String(aName, s, ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.WriteBinary(const aName: string;
+  const Ref; ArrayElementId: integer);
+var
+  obj : Binary absolute Ref;
+  ss: TROBinaryMemoryStream;
+  s: AnsiString;
+begin
+  if Assigned(obj) then begin
+    WriteItem(aName, obj.ClassName, ArrayElementId);
+
+    PushPrefix(aName, ArrayElementId);
+    try
+      case BinaryType of
+        btInlineHex:begin
+            s := obj.ToHexString;
+          end;
+        btInlineBase64:begin
+            ss := TROBinaryMemoryStream.Create;
+            try
+              obj.Position := 0;
+              EncodeStream(obj, ss);
+              s := ss.ToString;
+            finally
+              ss.Free;
+            end;
+          end;
+      end;
+      WriteItem('Value',{$IFDEF UNICODE}AnsiStringToWideString{$ENDIF} (s), ArrayElementID);
+    finally
+      PopPrefix();
+    end;
+  end  
+  else
+    WriteItem(aName, '', ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.ReadBinary(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  obj : Binary absolute Ref;
+  ss: TROBinaryMemoryStream;
+  s: AnsiString;
+begin
+  if ReadItem(aName, ArrayElementID) <> '' then begin
+    Obj := Binary.Create;
+    obj.Size := 0;
+    PushPrefix(aName, ArrayElementId);
+    s := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF} (ReadItem('Value', ArrayElementID));
+    PopPrefix;
+    case BinaryType of
+      btInlineHex: Obj.LoadFromString(StringFromHexStringAnsi(s));
+      btInlineBase64:begin
+        ss := TROBinaryMemoryStream.Create(s);
+        try
+          DecodeStream(ss, Obj);
+          Obj.Position := 0;
+        finally
+          ss.Free;
+        end;
+      end;
+    end;
+  end
+  else
+    obj:=nil;
+end;
+
+function TROPostMessageSerializer.ReadArray(const aName: string;
+  aClass: TClass; var Ref; ArrayElementId: integer): Boolean;
+var
+  obj : TROArray absolute Ref;
+  lCount: Integer;
+begin
+  Result:= ReadItem(aName, ArrayElementID) <> '';
+  if Result then begin
+    PushPrefix(aName, ArrayElementId);
+    obj := TROArray(aClass.Create());
+    ReadInteger('Count', otULong, lCount);
+    obj.Resize(lCount);
+    obj.ReadComplex(Self);
+    PopPrefix();
+  end;
+end;
+
+function TROPostMessageSerializer.ReadStruct(const aName: string;
+  aClass: TClass; var Ref; ArrayElementId: integer): Boolean;
+var
+  obj : TROComplexType absolute Ref;
+  lActualClass: TROComplexTypeClass;
+  lClassname: string;
+begin
+  lClassname := ReadItem(aName, ArrayElementID);
+  Result:=lClassname <> '';
+  if Result then begin
+    lActualClass := FindROClass(lClassname);
+    if not Assigned(lActualClass) then RaiseError(err_UnknownClassInStream,[lClassname,aClass.ClassName]);
+    if not lActualClass.InheritsFrom(aClass) then RaiseError(err_UnexpectedClassInStream,[lClassname,aClass.ClassName]);
+    obj := lActualClass.Create;
+    PushPrefix(aName, ArrayElementId);
+    Obj.ReadComplex(Self);
+    PopPrefix;
+  end;
+end;
+
+procedure TROPostMessageSerializer.WriteArray(const aName: string;
+  const Ref; aClass: TClass; ArrayElementId: integer);
+var
+  obj : TROArray absolute Ref;
+  lCount: Integer;
+begin
+  if Assigned(obj) then begin
+    WriteItem(aName, obj.ClassName, ArrayElementId);
+    PushPrefix(aName, ArrayElementId);
+    lCount := obj.Count;
+    WriteInteger('Count', otULong, lCount);
+    obj.WriteComplex(Self);
+    PopPrefix();
+  end
+  else
+    WriteItem(aName, '', ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.WriteStruct(const aName: string;
+  const Ref; aClass: TClass; ArrayElementId: integer);
+var
+  obj : TROComplexType absolute Ref;
+begin
+  if Assigned(obj) then begin
+    WriteItem(aName, obj.ClassName, ArrayElementId);
+    PushPrefix(aName, ArrayElementId);
+    obj.WriteComplex(Self);
+    PopPrefix();
+  end
+  else
+    WriteItem(aName, '', ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.ReadException(const aName: string;
+  var Ref; ArrayElementId: integer);
+var
+  obj: EROException absolute Ref;
+  lIsAssigned: Boolean;
+  lClassname: string;
+begin
+  lClassname := ReadItem(aName, ArrayElementID);
+  lIsAssigned := lClassname <> '';
+  PushPrefix(aName, ArrayElementId);
+  try
+    if lIsAssigned and Assigned(obj) then obj.ReadException(Self);
+  finally
+    PopPrefix;
+  end;
+end;
+
+procedure TROPostMessageSerializer.WriteException(const aName: string;
+  const Ref; ArrayElementId: integer);
+var
+  obj: EROException absolute Ref;
+begin
+  if Assigned(obj) then
+    WriteItem(aName, obj.ClassName, ArrayElementId)
+  else
+    WriteItem(aName, '', ArrayElementId);
+  PushPrefix(aName, ArrayElementId);
+  try
+    if Assigned(obj) then obj.WriteException(Self);
+  finally
+    PopPrefix;
+  end;
+end;
+
+procedure TROPostMessageSerializer.WriteAnsiString(const aName: string;
+  const Ref; ArrayElementId: integer);
+var
+  s: AnsiString;
+begin
+  s:=HTTPEncode(Ansistring(ref));
+  WriteItem(aName, UTF8ToString(s), ArrayElementId);
+end;
+
+procedure TROPostMessageSerializer.ReadAnsiString(const aName: string;
+  var Ref; ArrayElementId, iMaxLength: integer);
+begin
+  AnsiString(ref) := HTTPDecode({$IFDEF UNICODE}UTF8Encode{$ENDIF}(ReadItem(aName, ArrayElementId)));
+end;
+
+initialization
+  RegisterMessageClass(TROPostMessage);
+  {$IFDEF DELPHI7UP}
+  GetLocaleFormatSettings(PostLocale,PostFormatSettings);
+  {$ENDIF}
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.lrs b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.lrs
new file mode 100644
index 0000000..7be6e6e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.lrs	
@@ -0,0 +1,2114 @@
+LazarusResources.Add('POWERED_BY_REMOBJECTS_CLIENT','BMP',[
+  'BMxw'#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#212#0#0#0'0'#0#0#0#1#0#24#0#0#0#0#0'Bw'#0
+  +#0#18#11#0#0#18#11#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#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#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#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#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#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#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#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#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#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0
+  +#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167#0#0#167
+  +#0#0#167#0#0#167#0#0#167#0#0#167#0#0#0#0#0#0#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138'ww'#193#255#255#255#238#238#247'UU'#177#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138
+  +#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0
+  +#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#138#0#0#0#0#0#0#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  ,#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148'UU'#184'UU'#184
+  +#170#170#219#255#255#255'""'#162#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148
+  +#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0#148#0#0
+  +#148#0#0#148#0#0#0#0#0#0#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#17#17#153#255#255#255'ff'#190#0#0#146#0#0#146#0
+  +#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0
+  +#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146
+  +#0#0#146#0#0#146#0#0#146#0#0#146#0#0#146#0#0#0#0#0#0#0#0#176'ff'#208#255#255
+  +#255#0#0#176#0#0#176#0#0#176#187#187#234#255#255#255'""'#187#0#0#176#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#176#187#187#234#204
+  +#204#239#0#0#176#0#0#176#0#0#176#204#204#239'""'#187#0#0#176#0#0#176#170#170
+  +#229#255#255#255#0#0#176#0#0#176#0#0#176#0#0#176#136#136#218#221#221#244#255
+  +#255#255#255#255#255#204#204#239'DD'#197#0#0#176#0#0#176#0#0#176#0#0#176#255
+  +#255#255#255#255#255#255#255#255#204#204#239'33'#192#0#0#176#0#0#176#0#0#176
+  +#255#255#255'ww'#213#0#0#176#0#0#176#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#0#0#176#0#0#176#0#0#176#0#0#176#136#136#218#221#221#244
+  +#255#255#255#255#255#255#221#221#244'ff'#208#0#0#176#0#0#176#0#0#176#0#0#176
+  +#255#255#255'ff'#208#0#0#176#0#0#176#0#0#176'33'#192#221#221#244#255#255#255
+  +#255#255#255#170#170#229#17#17#181#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176'D'
+  +'D'#197#204#204#239#238#238#250#221#221#244#187#187#234'UU'#202#0#0#176#0#0
+  +#176#0#0#176#221#221#244#221#221#244#221#221#244#221#221#244#238#238#250#170
+  +#170#229'DD'#197#0#0#176#0#0#176#0#0#176#0#0#176#221#221#244#221#221#244#221
+  +#221#244#0#0#176#0#0#176'ww'#213#221#221#244#221#221#244#238#238#250'33'#192
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#221#221#244#255#255#255#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176'33'#192#170#170#229#221#221#244
+  +#255#255#255#221#221#244#170#170#229'33'#192#0#0#176#0#0#176#0#0#176#0#0#176
+  +#255#255#255#221#221#244#0#0#176#0#0#176'DD'#197#255#255#255#238#238#250'""'
+  +#187#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#221#221#244#221#221#244#221#221
+  ,#244#221#221#244#238#238#250#170#170#229'DD'#197#0#0#176#0#0#176#0#0#176#0#0
+  +#176#221#221#244#221#221#244#221#221#244#221#221#244#221#221#244#221#221#244
+  +'33'#192#0#0#176#221#221#244#221#221#244#221#221#244#221#221#244#221#221#244
+  +#221#221#244#136#136#218#0#0#176#0#0#176#221#221#244#221#221#244#221#221#244
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#221#221#244#221#221
+  +#244#221#221#244#0#0#176#0#0#176#0#0#176#221#221#244#221#221#244#221#221#244
+  +#0#0#176#0#0#176#221#221#244#221#221#244#221#221#244#0#0#176#0#0#176#0#0#0#0
+  +#0#0#0#0#175'ww'#212#255#255#255#0#0#175#0#0#175'ff'#207#255#255#255'UU'#202
+  +#0#0#175#0#0#175#255#255#255#153#153#223'UU'#202'UU'#202'DD'#196#0#0#175#153
+  +#153#223#238#238#250#0#0#175#0#0#175'DD'#196#255#255#255#153#153#223#0#0#175
+  +#0#0#175#187#187#234#204#204#239#0#0#175#0#0#175#17#17#180#204#204#239#238
+  +#238#250#136#136#218'UU'#202'UU'#202#187#187#234#255#255#255'ww'#212#0#0#175
+  +#0#0#175#0#0#175#255#255#255#136#136#218'DD'#196#187#187#234#238#238#250#17
+  +#17#180#0#0#175#0#0#175#255#255#255'ww'#212#0#0#175#0#0#175#255#255#255#153
+  +#153#223'UU'#202'UU'#202'DD'#196#0#0#175#0#0#175#17#17#180#204#204#239#238
+  +#238#250#136#136#218'UU'#202'UU'#202#136#136#218#153#153#223#0#0#175#0#0#175
+  +#0#0#175#0#0#175#255#255#255'ww'#212#0#0#175#0#0#175#0#0#175'UU'#202#153#153
+  +#223'DD'#196'DD'#196#221#221#244#187#187#234#0#0#175#0#0#175#0#0#175#0#0#175
+  +#0#0#175'UU'#202#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +'ww'#212#0#0#175#0#0#175#221#221#244#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255'ff'#207#0#0#175#0#0#175#0#0#175#221#221#244
+  +#255#255#255#221#221#244#0#0#175'33'#191#255#255#255#255#255#255#255#255#255
+  +'ff'#207#0#0#175#0#0#175#0#0#175#0#0#175#0#0#175#0#0#175#221#221#244#255#255
+  +#255#0#0#175#0#0#175#0#0#175#0#0#175#0#0#175#0#0#175'UU'#202#255#255#255#255
+  +#255#255#204#204#239#153#153#223#204#204#239#255#255#255#255#255#255'UU'#202
+  +#0#0#175#0#0#175#0#0#175#255#255#255#221#221#244#0#0#175'""'#186#238#238#250
+  +#255#255#255'DD'#196#0#0#175#0#0#175#0#0#175#0#0#175#0#0#175#0#0#175#221#221
+  +#244#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +'ff'#207#0#0#175#0#0#175#0#0#175#221#221#244#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255'33'#191#0#0#175#221#221#244#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#136#136#218#0#0#175#0#0#175#221#221
+  +#244#255#255#255#221#221#244#0#0#175#0#0#175#0#0#175#0#0#175#0#0#175#0#0#175
+  +#0#0#175#221#221#244#255#255#255#221#221#244#0#0#175#0#0#175#0#0#175#221#221
+  +#244#255#255#255#221#221#244#0#0#175#0#0#175#221#221#244#255#255#255#221#221
+  +#244#0#0#175#0#0#175#0#0#0#0#0#0#0#0#166'ww'#208#255#255#255#0#0#166'""'#178
+  +#238#238#249#153#153#219#0#0#166#0#0#166#0#0#166#255#255#255'ww'#208#0#0#166
+  +#0#0#166#0#0#166#0#0#166'ff'#202#255#255#255#0#0#166#0#0#166#187#187#231#204
+  +#204#237#255#255#255#17#17#172#0#0#166#204#204#237#170#170#225#0#0#166#0#0
+  +#166#187#187#231#221#221#243'""'#178#0#0#166#0#0#166#0#0#166#0#0#166'ff'#202
+  +#255#255#255'UU'#196#0#0#166#0#0#166#255#255#255'ww'#208#0#0#166'""'#178#255
+  +#255#255'ff'#202#0#0#166#0#0#166#255#255#255'ww'#208#0#0#166#0#0#166#255#255
+  +#255'ww'#208#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#187#187#231#238#238#249
+  +'""'#178#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#255#255#255'ww'#208#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0
+  +#166#153#153#219#255#255#255#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166'DD'#190
+  +#221#221#243'ww'#208'UU'#196#255#255#255#255#255#255#221#221#243#0#0#166#0#0
+  +#166#221#221#243#255#255#255#238#238#249'ww'#208#153#153#219#255#255#255#255
+  +#255#255#255#255#255'DD'#190#0#0#166#0#0#166#221#221#243#255#255#255#221#221
+  +#243#0#0#166#204#204#237#255#255#255#255#255#255#153#153#219#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#221#221#243#255#255#255#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166'33'#184#255#255#255#238#238#249'DD'#190#0#0#166
+  +#0#0#166#0#0#166'DD'#190#238#238#249#255#255#255'33'#184#0#0#166#0#0#166#255
+  +#255#255#221#221#243#0#0#166#187#187#231#255#255#255#136#136#213#0#0#166#0#0
+  +#166#0#0#166#0#0#166#0#0#166#0#0#166#0#0#166#221#221#243#255#255#255#238#238
+  +#249'ww'#208#153#153#219#255#255#255#255#255#255#255#255#255'DD'#190#0#0#166
+  +#0#0#166#221#221#243#255#255#255#238#238#249'ww'#208'ww'#208'ww'#208'""'#178
+  +#0#0#166#221#221#243#255#255#255#238#238#249'ww'#208'ww'#208'ww'#208'DD'#190
+  +#0#0#166#0#0#166#221#221#243#255#255#255#221#221#243#0#0#166#0#0#166#0#0#166
+  +#0#0#166#0#0#166#0#0#166#0#0#166#221#221#243#255#255#255#221#221#243#0#0#166
+  +#0#0#166#0#0#166#221#221#243#255#255#255#221#221#243#0#0#166#0#0#166#221#221
+  +#243#255#255#255#221#221#243#0#0#166#0#0#166#0#0#0#0#0#0#0#0#179'ww'#214#255
+  +#255#255#0#0#179#187#187#235#221#221#245#0#0#179#0#0#179#0#0#179#0#0#179#255
+  +#255#255'ww'#214#0#0#179#0#0#179#0#0#179#0#0#179'DD'#199#255#255#255'33'#194
+  +'""'#189#255#255#255'33'#194#187#187#235'ww'#214#0#0#179#238#238#250#153#153
+  ,#225#0#0#179'""'#189#255#255#255'ff'#209#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#187#187#235#204#204#240#0#0#179#0#0#179#255#255#255'ww'#214#0#0
+  +#179#17#17#184#255#255#255'ff'#209#0#0#179#0#0#179#255#255#255'ww'#214#0#0
+  +#179#0#0#179#255#255#255'ww'#214#0#0#179#0#0#179#0#0#179#0#0#179'""'#189#255
+  +#255#255'ff'#209#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#255#255#255'ww'#214#0#0#179#0#0#179#0#0#179#0#0#179#0#0
+  +#179#0#0#179#0#0#179#204#204#240#238#238#250#0#0#179#0#0#179#0#0#179#0#0#179
+  +#0#0#179#17#17#184#0#0#179#0#0#179'UU'#204#255#255#255#255#255#255#255#255
+  +#255#17#17#184#0#0#179#221#221#245#255#255#255#221#221#245#0#0#179#0#0#179'f'
+  +'f'#209#255#255#255#255#255#255#170#170#230#0#0#179#0#0#179#221#221#245#255
+  +#255#255#221#221#245#153#153#225#255#255#255#255#255#255#221#221#245#17#17
+  +#184#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#221#221#245#255
+  +#255#255#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#153#153#225#255#255#255'ff'
+  +#209#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179'ff'#209#255#255#255#153#153#225
+  +#0#0#179#0#0#179#255#255#255#238#238#250#153#153#225#255#255#255#204#204#240
+  +#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#0#0#179#221#221#245
+  +#255#255#255#221#221#245#0#0#179#0#0#179'ff'#209#255#255#255#255#255#255#170
+  +#170#230#0#0#179#0#0#179#221#221#245#255#255#255#221#221#245#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#221#221#245#255#255#255#221#221#245#0#0#179#0#0#179
+  +#0#0#179#0#0#179#0#0#179#0#0#179#221#221#245#255#255#255#255#255#255#221#221
+  +#245#204#204#240'ff'#209#0#0#179#0#0#179#0#0#179#0#0#179#221#221#245#255#255
+  +#255#221#221#245#0#0#179#0#0#179#0#0#179#221#221#245#255#255#255#221#221#245
+  +#0#0#179#0#0#179#221#221#245#255#255#255#221#221#245#0#0#179#0#0#179#0#0#0#0
+  +#0#0#0#0#181'ww'#216#255#255#255#255#255#255#255#255#255#187#187#235#17#17
+  +#186#0#0#181#0#0#181#0#0#181#255#255#255#153#153#225'UU'#206'UU'#206'33'#196
+  +#0#0#181'""'#191#255#255#255'DD'#201#153#153#225#187#187#235#0#0#181'DD'#201
+  +#238#238#250#0#0#181#255#255#255'ww'#216#0#0#181'ff'#211#255#255#255#17#17
+  +#186#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181'ww'#216#255#255#255#0#0
+  +#181#0#0#181#255#255#255'ww'#216#17#17#186#153#153#225#238#238#250#17#17#186
+  +#0#0#181#0#0#181#255#255#255'ww'#216#0#0#181#0#0#181#255#255#255#153#153#225
+  +'UU'#206'UU'#206'33'#196#0#0#181'ff'#211#255#255#255#17#17#186#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#255#255
+  +#255'ww'#216#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181'33'#196#221#221#245#255
+  +#255#255'UU'#206#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#153
+  +#153#225#255#255#255#255#255#255#255#255#255#187#187#235#0#0#181#0#0#181#221
+  +#221#245#255#255#255#221#221#245#0#0#181#0#0#181#17#17#186#238#238#250#255
+  +#255#255#221#221#245#0#0#181#0#0#181#221#221#245#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255'33'#196#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#221#221#245#255#255#255#255#255#255#255#255#255
+  +#255#255#255#0#0#181#0#0#181#221#221#245#255#255#255#17#17#186#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#17#17#186#255#255#255#204#204#240#0#0#181#0#0
+  +#181#255#255#255#255#255#255#255#255#255#255#255#255#153#153#225#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#221#221#245#255#255#255
+  +#221#221#245#0#0#181#0#0#181#17#17#186#238#238#250#255#255#255#221#221#245#0
+  +#0#181#0#0#181#221#221#245#255#255#255#255#255#255#221#221#245#221#221#245
+  +#221#221#245#0#0#181#0#0#181#221#221#245#255#255#255#221#221#245#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#221#221#245#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255'ff'#211#0#0#181#0#0#181#0#0#181#221#221#245
+  +#255#255#255#255#255#255#221#221#245#221#221#245#221#221#245#255#255#255#255
+  +#255#255#221#221#245#0#0#181#0#0#181#221#221#245#255#255#255#221#221#245#0#0
+  +#181#0#0#181#0#0#0#0#0#0#0#0#170'ww'#210#255#255#255#0#0#170'33'#187#221#221
+  +#244#170#170#227#0#0#170#0#0#170#0#0#170#255#255#255#255#255#255#255#255#255
+  +#255#255#255#170#170#227#0#0#170#0#0#170#255#255#255'ww'#210#255#255#255'DD'
+  +#193#0#0#170#0#0#170#204#204#238'ff'#204#255#255#255'UU'#198#0#0#170'ff'#204
+  +#255#255#255#17#17#176#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170'ww'
+  +#210#255#255#255#0#0#170#0#0#170#255#255#255#255#255#255#255#255#255#255#255
+  +#255'DD'#193#0#0#170#0#0#170#0#0#170#255#255#255'ww'#210#0#0#170#0#0#170#255
+  +#255#255#255#255#255#255#255#255#255#255#255#170#170#227#0#0#170'ff'#204#255
+  +#255#255#17#17#176#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0
+  +#0#170#0#0#170#0#0#170#255#255#255'ww'#210#0#0#170#0#0#170#0#0#170#0#0#170'D'
+  +'D'#193#255#255#255#238#238#249'DD'#193#0#0#170#0#0#170#0#0#170#0#0#170#0#0
+  +#170#0#0#170#0#0#170'ww'#210#255#255#255#255#255#255#255#255#255#204#204#238
+  +'""'#181#0#0#170#0#0#170#221#221#244#255#255#255#221#221#244#0#0#170#0#0#170
+  +#17#17#176#238#238#249#255#255#255#238#238#249#0#0#170#0#0#170#221#221#244
+  ,#255#255#255#255#255#255#255#255#255#255#255#255#204#204#238#0#0#170#0#0#170
+  +#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#221#221#244#255#255
+  +#255#153#153#221#153#153#221#153#153#221#0#0#170#0#0#170#221#221#244#255#255
+  +#255#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#17#17#176#255#255#255
+  +#204#204#238#0#0#170#0#0#170#255#255#255#221#221#244#0#0#170'UU'#198#255#255
+  +#255#136#136#215#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#221
+  +#221#244#255#255#255#221#221#244#0#0#170#0#0#170#17#17#176#238#238#249#255
+  +#255#255#238#238#249#0#0#170#0#0#170#221#221#244#255#255#255#255#255#255#255
+  +#255#255#255#255#255#221#221#244#0#0#170#0#0#170#221#221#244#255#255#255#221
+  +#221#244#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#0#0#170#221#221#244#255#255
+  +#255#238#238#249'UU'#198#255#255#255#255#255#255#204#204#238#0#0#170#0#0#170
+  +#0#0#170#221#221#244#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#221#221#244#0#0#170#0#0#170#221#221#244#255#255
+  +#255#221#221#244#0#0#170#0#0#170#0#0#0#0#0#0#0#0#181'ww'#216#255#255#255#0#0
+  +#181#0#0#181'ww'#216#255#255#255#0#0#181#0#0#181#0#0#181#255#255#255'ww'#216
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#221#221#245#255#255#255#204#204#240
+  +#0#0#181#0#0#181#0#0#181'UU'#206#255#255#255#255#255#255'DD'#201#0#0#181'""'
+  +#191#255#255#255'ff'#211#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#187
+  +#187#235#204#204#240#0#0#181#0#0#181#255#255#255'ww'#216#17#17#186#187#187
+  +#235#187#187#235#0#0#181#0#0#181#0#0#181#255#255#255'ww'#216#0#0#181#0#0#181
+  +#255#255#255'ww'#216#0#0#181#0#0#181#0#0#181#0#0#181'""'#191#255#255#255'ff'
+  +#211#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#255#255#255'ww'#216#0#0#181#0#0#181#0#0#181#0#0#181#221#221#245#204
+  +#204#240#17#17#186#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0
+  +#0#181#221#221#245#255#255#255#255#255#255#153#153#225#0#0#181#0#0#181#0#0
+  +#181#0#0#181#221#221#245#255#255#255#221#221#245#0#0#181#0#0#181'ff'#211#255
+  +#255#255#255#255#255#170#170#230#0#0#181#0#0#181#221#221#245#255#255#255#221
+  +#221#245#136#136#220#255#255#255#255#255#255'ff'#211#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#221#221#245#255#255#255#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#153#153#225#255#255#255'ff'#211#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181'ff'#211#255#255#255#153#153#225#0#0#181#0#0#181#255
+  +#255#255#221#221#245#0#0#181#0#0#181#238#238#250#238#238#250#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#221#221#245#255#255#255#221#221#245
+  +#0#0#181#0#0#181'ff'#211#255#255#255#255#255#255#170#170#230#0#0#181#0#0#181
+  +#221#221#245#255#255#255#238#238#250'ww'#216'ww'#216'ff'#211#0#0#181#0#0#181
+  +#221#221#245#255#255#255#221#221#245#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#221#221#245#255#255#255#221#221#245#0#0#181#221#221#245#255#255#255
+  +#221#221#245#0#0#181#0#0#181#0#0#181#221#221#245#255#255#255#238#238#250'ww'
+  +#216'ww'#216'ww'#216#238#238#250#255#255#255#221#221#245#0#0#181#0#0#181#221
+  +#221#245#255#255#255#221#221#245#0#0#181#0#0#181#0#0#0#0#0#0#0#0#154'ww'#201
+  +#255#255#255#0#0#154#0#0#154#136#136#208#255#255#255#0#0#154#0#0#154#0#0#154
+  +#255#255#255'ww'#201#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#187#187#228#255
+  +#255#255'UU'#188#0#0#154#0#0#154#0#0#154#0#0#154#221#221#242#255#255#255'33'
+  +#174#0#0#154#0#0#154#187#187#228#221#221#242'""'#167#0#0#154#0#0#154#0#0#154
+  +#0#0#154'ff'#194#255#255#255'UU'#188#0#0#154#0#0#154#255#255#255'ww'#201#0#0
+  +#154'ww'#201#255#255#255#0#0#154#0#0#154#0#0#154#255#255#255'ww'#201#0#0#154
+  +#0#0#154#255#255#255'ww'#201#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#187#187
+  +#228#238#238#248'""'#167#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#0#0
+  +#154#0#0#154#0#0#154#255#255#255'ww'#201#0#0#154#0#0#154#0#0#154#0#0#154#255
+  +#255#255'ww'#201#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#0#0
+  +#154#0#0#154#204#204#235#255#255#255#255#255#255'ff'#194'ff'#194#153#153#215
+  +#0#0#154#0#0#154#221#221#242#255#255#255#238#238#248'ww'#201#153#153#215#255
+  +#255#255#255#255#255#255#255#255'DD'#181#0#0#154#0#0#154#221#221#242#255#255
+  +#255#221#221#242#0#0#154#204#204#235#255#255#255#238#238#248'""'#167#0#0#154
+  +#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#221#221#242#255#255#255#0#0
+  +#154#0#0#154#0#0#154#0#0#154#0#0#154'33'#174#255#255#255#238#238#248'DD'#181
+  +#0#0#154#0#0#154#0#0#154'DD'#181#238#238#248#255#255#255'33'#174#0#0#154#0#0
+  +#154#255#255#255#221#221#242#0#0#154#17#17#161#255#255#255#238#238#248#0#0
+  +#154#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#0#0#154#221#221#242#255#255#255
+  +#238#238#248'ww'#201#153#153#215#255#255#255#255#255#255#255#255#255'DD'#181
+  +#0#0#154#0#0#154#221#221#242#255#255#255#238#238#248'ww'#201'ww'#201'ww'#201
+  +#17#17#161#0#0#154#221#221#242#255#255#255#221#221#242#0#0#154#0#0#154#0#0
+  +#154#0#0#154#0#0#154#0#0#154#221#221#242#255#255#255#238#238#248'UU'#188#255
+  +#255#255#255#255#255#204#204#235#0#0#154#0#0#154#0#0#154#221#221#242#255#255
+  ,#255#221#221#242#0#0#154#0#0#154#0#0#154#221#221#242#255#255#255#221#221#242
+  +#0#0#154#0#0#154#221#221#242#255#255#255#221#221#242#0#0#154#0#0#154#0#0#0#0
+  +#0#0#0#0#140'ww'#194#255#255#255'DD'#171'ff'#186#238#238#247#170#170#217#0#0
+  +#140#0#0#140#0#0#140#255#255#255#153#153#209'UU'#178'UU'#178'DD'#171#0#0#140
+  +#0#0#140#153#153#209#221#221#240#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140'ww'
+  +#194#255#255#255#0#0#140#0#0#140#0#0#140#17#17#148#204#204#232#238#238#247
+  +#136#136#201'UU'#178'UU'#178#187#187#224#255#255#255'ww'#194#0#0#140#0#0#140
+  +#0#0#140#255#255#255#136#136#201'DD'#171#221#221#240#204#204#232#0#0#140#0#0
+  +#140#0#0#140#255#255#255'ww'#194#0#0#140#0#0#140#255#255#255#153#153#209'UU'
+  +#178'UU'#178'DD'#171#0#0#140#0#0#140#17#17#148#204#204#232#238#238#247#153
+  +#153#209'UU'#178'UU'#178#153#153#209#136#136#201#17#17#148'UU'#178'UU'#178'U'
+  +'U'#178#255#255#255#153#153#209'UU'#178'UU'#178'33'#163#0#0#140#204#204#232
+  +#204#204#232'DD'#171'DD'#171#153#153#209#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140'ff'#186#255#255#255#255#255#255#255#255#255#255#255#255#170#170
+  +#217#0#0#140#0#0#140#221#221#240#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255'ff'#186#0#0#140#0#0#140#0#0#140#221#221#240#255
+  +#255#255#221#221#240#0#0#140'33'#163#255#255#255#255#255#255#187#187#224#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#221#221#240#255#255#255
+  +#153#153#209#153#153#209#153#153#209'33'#163#0#0#140#0#0#140'UU'#178#255#255
+  +#255#255#255#255#204#204#232#153#153#209#204#204#232#255#255#255#255#255#255
+  +'UU'#178#0#0#140#0#0#140#0#0#140#255#255#255#238#238#247#136#136#201#204#204
+  +#232#255#255#255#136#136#201#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#221#221#240#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255'ff'#186#0#0#140#0#0#140#0#0#140#221#221#240#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255'""'#155#0#0#140#221#221#240#255
+  +#255#255#221#221#240#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#221#221
+  +#240#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'UU'#178#0#0
+  +#140#0#0#140#0#0#140#221#221#240#255#255#255#221#221#240#0#0#140#0#0#140#0#0
+  +#140#221#221#240#255#255#255#221#221#240#0#0#140#0#0#140#221#221#240#255#255
+  +#255#221#221#240#0#0#140#0#0#140#0#0#0#0#0#0#0#0'xff'#174#255#255#255#255#255
+  +#255#238#238#246#153#153#201#0#0'x'#0#0'x'#0#0'x'#0#0'x'#255#255#255#255#255
+  +#255#255#255#255#255#255#255#238#238#246#0#0'x'#0#0'xww'#183'ww'#183#0#0'x'#0
+  +#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#221#221#237#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#136#136#192#221#221#237#255#255#255#255#255#255#204#204#228'DD'#156#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#255#255#255#255#255#255#255#255#255#204#204#228'""'
+  +#138#0#0'x'#0#0'x'#0#0'x'#255#255#255'ff'#174#0#0'x'#0#0'x'#255#255#255#255
+  +#255#255#255#255#255#255#255#255#238#238#246#0#0'x'#0#0'x'#0#0'x'#0#0'xww'
+  +#183#221#221#237#255#255#255#255#255#255#221#221#237'UU'#165'ff'#174#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#204#204#228#0#0'x""'#138#187#187#219#255#255#255#255#255#255#204#204#228#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'xff'#174#204#204#228#221#221#237
+  +#221#221#237#153#153#201#0#0'x'#0#0'x'#221#221#237#221#221#237#221#221#237
+  +#221#221#237#238#238#246#170#170#210'DD'#156#0#0'x'#0#0'x'#0#0'x'#0#0'x'#221
+  +#221#237#221#221#237#221#221#237#0#0'x'#0#0'x'#153#153#201#221#221#237#221
+  +#221#237'ff'#174#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#221#221#237#255
+  +#255#255#255#255#255#255#255#255#255#255#255'UU'#165#0#0'x'#0#0'x'#0#0'x""'
+  +#138#153#153#201#221#221#237#255#255#255#221#221#237#153#153#201'""'#138#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#255#255#255#255#255#255#255#255#255#221#221#237'ww'
+  +#183#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#221#221#237#221
+  +#221#237#221#221#237#221#221#237#238#238#246#170#170#210'DD'#156#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#221#221#237#221#221#237#221#221#237#221#221#237#221#221#237
+  +#221#221#237'""'#138#0#0'x'#221#221#237#221#221#237#221#221#237#0#0'x'#0#0'x'
+  +#0#0'x'#0#0'x'#0#0'x'#0#0'x'#221#221#237#221#221#237#221#221#237#238#238#246
+  +#187#187#219'UU'#165#0#0'x'#0#0'x'#0#0'x'#0#0'x'#221#221#237#221#221#237#221
+  +#221#237#0#0'x'#0#0'x'#0#0'x'#221#221#237#221#221#237#221#221#237#0#0'x'#0#0
+  +'x'#221#221#237#221#221#237#221#221#237#0#0'x'#0#0'x'#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#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'{'#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#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'{'#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#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'{'#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#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'{'#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#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'{'#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#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#143'""'#158#255#255#255#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143'DD'#173#221#221#240#255#255#255#255#255
+  +#255#221#221#240'DD'#173#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143'""'
+  +#158#221#221#240#0#0#143#17#17#150#221#221#240#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#255#255#255#255#255#255#255#255#255#187#187#225#0#0#143
+  +#0#0#143#0#0#143'""'#158#255#255#255#0#0#143#0#0#143#187#187#225#221#221#240
+  +#0#0#143#0#0#143#0#0#143#255#255#255#255#255#255#255#255#255#187#187#225#0#0
+  +#143#0#0#143#0#0#143'""'#158#255#255#255#255#255#255#255#255#255'ww'#195#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +'""'#158#255#255#255#255#255#255#255#255#255'DD'#173#0#0#143#0#0#143#0#0#143
+  +#0#0#143'""'#158#255#255#255#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#0#0#0#0
+  +#0#0#128'""'#145#255#255#255#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +'DD'#162#255#255#255'ww'#187#0#0#128#0#0#128'ww'#187#255#255#255'DD'#162#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#153#153#204#255#255#255'DD'#162#136#136
+  +#196#255#255#255'DD'#162#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#255#255#255
+  +'""'#145#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128'""'#145#255#255#255#0#0#128
+  +'ww'#187#255#255#255#17#17#136#0#0#128#0#0#128#0#0#128#255#255#255'""'#145#0
+  +#0#128#0#0#128#0#0#128#0#0#128#0#0#128'""'#145#255#255#255#0#0#128'""'#145
+  +#221#221#238#136#136#196#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128'""'#145#255#255#255#0#0#128'ww'#187#255#255#255#0#0#128
+  +#0#0#128#0#0#128#0#0#128'""'#145#255#255#255#0#0#128#0#0#128#0#0#128#0#0#128
+  ,#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#0#0#0#0#0#0#131'""'#148#255#255#255#0#0#131#0#0#131#0#0#131#0#0#131
+  +#0#0#131#0#0#131#238#238#247'ww'#189#0#0#131#0#0#131#0#0#131#0#0#131'ww'#189
+  +#221#221#238#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#255#255#255#136#136#197
+  +#221#221#238#255#255#255#153#153#205#204#204#230#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#255#255#255'""'#148#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131'""'
+  +#148#255#255#255'""'#148#255#255#255'DD'#164#0#0#131#0#0#131#0#0#131#0#0#131
+  +#255#255#255'""'#148#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131'""'#148#255#255
+  +#255#0#0#131#0#0#131'DD'#164#255#255#255#0#0#131#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#0#0#131#0#0#131#0#0#131'""'#148#255#255#255#0#0#131'UU'#172#255
+  +#255#255#0#0#131#0#0#131#0#0#131#0#0#131'""'#148#255#255#255#0#0#131#0#0#131
+  +#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131
+  +#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131
+  +#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131
+  +#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131
+  +#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131
+  +#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131
+  +#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0#131#0#0
+  +#131#0#0#131#0#0#131#0#0#0#0#0#0#0#0#143'""'#158#255#255#255#255#255#255#255
+  +#255#255'UU'#180#0#0#143#0#0#143#0#0#143#255#255#255'""'#158#0#0#143#0#0#143
+  +#0#0#143#0#0#143'""'#158#255#255#255#0#0#143#0#0#143#0#0#143#0#0#143#136#136
+  +#203#187#187#225#0#0#143#255#255#255#187#187#225#0#0#143#255#255#255'33'#165
+  +#0#0#143#0#0#143#0#0#143#0#0#143#255#255#255#255#255#255#255#255#255#153#153
+  +#210#0#0#143#0#0#143#0#0#143'""'#158#255#255#255#255#255#255#255#255#255'UU'
+  +#180#0#0#143#0#0#143#0#0#143#0#0#143#255#255#255#255#255#255#255#255#255#153
+  +#153#210#0#0#143#0#0#143#0#0#143'""'#158#255#255#255#0#0#143#0#0#143#0#0#143
+  +#255#255#255#17#17#150#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143'""'#158#255#255#255#255#255#255#255#255#255'UU'#180#0#0#143#0#0
+  +#143#0#0#143#0#0#143'ww'#195#255#255#255'33'#165#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0
+  +#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143#0#0#143
+  +#0#0#0#0#0#0#0#0#149'""'#163#255#255#255#0#0#149'ff'#191#255#255#255#0#0#149
+  +#0#0#149#0#0#149#238#238#248'ww'#198#0#0#149#0#0#149#0#0#149#0#0#149'ww'#198
+  +#238#238#248#0#0#149#0#0#149#0#0#149#0#0#149#255#255#255'DD'#177#0#0#149#255
+  +#255#255#187#187#227#0#0#149#136#136#206#187#187#227#0#0#149#0#0#149#0#0#149
+  ,#0#0#149#255#255#255'""'#163#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149'""'#163
+  +#255#255#255#0#0#149'UU'#184#255#255#255#0#0#149#0#0#149#0#0#149#0#0#149#255
+  +#255#255'""'#163#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149'""'#163#255#255#255
+  +#0#0#149#0#0#149'DD'#177#255#255#255#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149'""'#163#255#255#255'""'#163#255#255#255#0#0
+  +#149#0#0#149#0#0#149#0#0#149'""'#163#255#255#255#187#187#227#204#204#234#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#0#0#0#0#0#0#151'""'#165#255#255#255#0#0#151'ff'
+  +#193#255#255#255#0#0#151#0#0#151#0#0#151'DD'#179#255#255#255'ww'#200#0#0#151
+  +#0#0#151'ww'#200#255#255#255'DD'#179#0#0#151#0#0#151#0#0#151'ww'#200#221#221
+  +#241#0#0#151'ww'#200#221#221#241#255#255#255'""'#165#0#0#151#255#255#255'""'
+  +#165#0#0#151#0#0#151#0#0#151#255#255#255'""'#165#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151'""'#165#255#255#255#0#0#151'ww'#200#255#255#255#0#0#151#0#0#151
+  +#0#0#151#0#0#151#255#255#255'""'#165#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +'""'#165#255#255#255#0#0#151'""'#165#221#221#241#136#136#206#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151'""'#165#255#255#255
+  +#0#0#151#255#255#255#17#17#158#0#0#151#0#0#151#0#0#151#187#187#227#153#153
+  +#213#0#0#151#204#204#234#136#136#206#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0
+  +#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151
+  +#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#151#0#0#0#0#0#0#0#0#157
+  +'""'#170#255#255#255#255#255#255#238#238#248'UU'#190#0#0#157#0#0#157#0#0#157
+  +#0#0#157'DD'#183#221#221#242#255#255#255#255#255#255#221#221#242'DD'#183#0#0
+  +#157#0#0#157#0#0#157#0#0#157#255#255#255'ff'#196#0#0#157#255#255#255'ff'#196
+  +#153#153#216#187#187#229#0#0#157#170#170#222#187#187#229#0#0#157#0#0#157#0#0
+  +#157#255#255#255#255#255#255#255#255#255#187#187#229#0#0#157#0#0#157#0#0#157
+  +'""'#170#255#255#255#255#255#255#238#238#248'DD'#183#0#0#157#0#0#157#0#0#157
+  +#0#0#157#255#255#255#255#255#255#255#255#255#187#187#229#0#0#157#0#0#157#0#0
+  +#157'""'#170#255#255#255#255#255#255#255#255#255#136#136#209#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157'""'#170#255
+  +#255#255#255#255#255#170#170#222#0#0#157#0#0#157#0#0#157'ww'#203#255#255#255
+  +#0#0#157#0#0#157'33'#177#255#255#255'DD'#183#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  ,#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0
+  +#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157
+  +#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#157#0#0#0#0#0#0#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0
+  +#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133#0#0#133
+  +#0#0#0#0#0#0#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#0#0#0#0#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  ,#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0
+  +#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0#0#0#0#0#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139
+  +#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0
+  +#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#139#0#0#0#0#0#0#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#0#0#0#0#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  ,'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0#0#0#0#0#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0#0#0#0#0#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0
+  +'m'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0'm'#0#0#0#0#0
+  +#0#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0#0#0#0#0#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  ,'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0#0#0#0#0#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0
+  +'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0'S'#0#0#0#0#0#0#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0'X'#0#0
+  +#0#0#0#0#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  ,'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0'Y'#0#0
+  +'Y'#0#0'Y'#0#0'Y'#0#0#0#0#0#0#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0
+  +'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0'h'#0#0#0#0#0#0#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0
+  +'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0'U'#0#0#0#0#0#0#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  ,'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0'b'#0#0
+  +'b'#0#0#0#0#0#0#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0
+  +'Z'#0#0'Z'#0#0'Z'#0#0'Z'#0#0#0#0#0#0#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0
+  +'d'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0'd'#0#0#0#0#0#0#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0
+  +'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0'i'#0#0#0#0#0
+  +#0#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  ,'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0#0#0#0#0#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0
+  +'u'#0#0'u'#0#0'u'#0#0'u'#0#0'u'#0#0#0#0#0#0#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0#0#0#0#0#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  ,'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#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#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#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#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#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#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#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#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#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
+]);
+LazarusResources.Add('POWERED_BY_REMOBJECTS_SERVER','BMP',[
+  'BMxw'#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#212#0#0#0'0'#0#0#0#1#0#24#0#0#0#0#0'Bw'#0
+  +#0#18#11#0#0#18#11#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#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#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#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#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#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#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#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#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','#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#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','#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#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','#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#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';'#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';ww'#150#255#255#255
+  +#238#238#242'UU|'#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#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
+  +';'#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#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';'#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
+  +'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0
+  +'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0
+  +'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0
+  +'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0
+  +'B'#0#0'BUU'#129'UU'#129#170#170#192#255#255#255'""['#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  ,#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0#0'B'#0
+  +#0'B'#0#0'B'#0#0#0#0#0#0#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#17#17'Z'#255#255#255'ff'
+  +#149#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0#0#0#0#0#0#0'Hff'#145#255#255#255
+  +#0#0'H'#0#0'H'#0#0'H'#187#187#206#255#255#255'""`'#0#0'H'#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#0#0'H'#187#187#206#204#204#218#0#0
+  +'H'#0#0'H'#0#0'H'#204#204#218'""`'#0#0'H'#0#0'H'#170#170#194#255#255#255#0#0
+  +'H'#0#0'H'#0#0'H'#0#0'H'#136#136#170#221#221#231#255#255#255#255#255#255#204
+  +#204#218'DDy'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#255#255#255#255#255#255#255#255#255
+  +#204#204#218'33m'#0#0'H'#0#0'H'#0#0'H'#255#255#255'ww'#157#0#0'H'#0#0'H'#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0'H'#0#0'H'#0#0'H'
+  +#0#0'H'#136#136#170#221#221#231#255#255#255#255#255#255#221#221#231'ff'#145#0
+  +#0'H'#0#0'H'#0#0'H'#0#0'H'#255#255#255'ff'#145#0#0'H'#0#0'H'#0#0'H33m'#221
+  +#221#231#255#255#255#255#255#255#170#170#194#17#17'T'#0#0'H'#0#0'H'#0#0'H'#0
+  +#0'H'#0#0'HDDy'#204#204#218#238#238#243#221#221#231#187#187#206'UU'#133#0#0
+  +'H'#0#0'H'#0#0'H'#221#221#231#221#221#231#221#221#231#221#221#231#238#238#243
+  +#170#170#194'DDy'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#221#221#231#221#221#231#221#221
+  +#231#0#0'H'#0#0'Hww'#157#221#221#231#221#221#231#238#238#243'33m'#0#0'H'#0#0
+  +'H'#0#0'H'#0#0'H'#0#0'H'#221#221#231#255#255#255#0#0'H'#0#0'H'#0#0'H'#0#0'H'
+  +#0#0'H'#0#0'H'#0#0'H33m'#170#170#194#221#221#231#255#255#255#221#221#231#170
+  +#170#194'33m'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#255#255#255#221#221#231#0#0'H'#0#0
+  +'HDDy'#255#255#255#238#238#243'""`'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#221
+  +#221#231#221#221#231#221#221#231#221#221#231#238#238#243#170#170#194'DDy'#0#0
+  +'H'#0#0'H'#0#0'H'#0#0'H'#221#221#231#221#221#231#221#221#231#221#221#231#221
+  +#221#231#221#221#231'33m'#0#0'H'#221#221#231#221#221#231#221#221#231#221#221
+  +#231#221#221#231#221#221#231#136#136#170#0#0'H'#0#0'H'#221#221#231#221#221
+  +#231#221#221#231#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#221#221#231
+  +#221#221#231#221#221#231#0#0'H'#0#0'H'#0#0'H'#221#221#231#221#221#231#221#221
+  +#231#0#0'H'#0#0'H'#221#221#231#221#221#231#221#221#231#0#0'H'#0#0'H'#0#0#0#0
+  +#0#0#0#0'Lww'#160#255#255#255#0#0'L'#0#0'Lff'#148#255#255#255'UU'#136#0#0'L'
+  +#0#0'L'#255#255#255#153#153#183'UU'#136'UU'#136'DD|'#0#0'L'#153#153#183#238
+  +#238#243#0#0'L'#0#0'LDD|'#255#255#255#153#153#183#0#0'L'#0#0'L'#187#187#207
+  +#204#204#219#0#0'L'#0#0'L'#17#17'X'#204#204#219#238#238#243#136#136#171'UU'
+  +#136'UU'#136#187#187#207#255#255#255'ww'#160#0#0'L'#0#0'L'#0#0'L'#255#255#255
+  +#136#136#171'DD|'#187#187#207#238#238#243#17#17'X'#0#0'L'#0#0'L'#255#255#255
+  +'ww'#160#0#0'L'#0#0'L'#255#255#255#153#153#183'UU'#136'UU'#136'DD|'#0#0'L'#0
+  ,#0'L'#17#17'X'#204#204#219#238#238#243#136#136#171'UU'#136'UU'#136#136#136
+  +#171#153#153#183#0#0'L'#0#0'L'#0#0'L'#0#0'L'#255#255#255'ww'#160#0#0'L'#0#0
+  +'L'#0#0'LUU'#136#153#153#183'DD|DD|'#221#221#231#187#187#207#0#0'L'#0#0'L'#0
+  +#0'L'#0#0'L'#0#0'LUU'#136#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255'ww'#160#0#0'L'#0#0'L'#221#221#231#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255'ff'#148#0#0'L'#0#0'L'#0#0'L'#221#221
+  +#231#255#255#255#221#221#231#0#0'L33p'#255#255#255#255#255#255#255#255#255'f'
+  +'f'#148#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#221#221#231#255#255#255#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'LUU'#136#255#255#255#255#255#255#204#204
+  +#219#153#153#183#204#204#219#255#255#255#255#255#255'UU'#136#0#0'L'#0#0'L'#0
+  +#0'L'#255#255#255#221#221#231#0#0'L""d'#238#238#243#255#255#255'DD|'#0#0'L'#0
+  +#0'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#221#221#231#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255'ff'#148#0#0'L'#0#0'L'#0#0'L'#221#221
+  +#231#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'33p'#0#0'L'
+  +#221#221#231#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#136
+  +#136#171#0#0'L'#0#0'L'#221#221#231#255#255#255#221#221#231#0#0'L'#0#0'L'#0#0
+  +'L'#0#0'L'#0#0'L'#0#0'L'#0#0'L'#221#221#231#255#255#255#221#221#231#0#0'L'#0
+  +#0'L'#0#0'L'#221#221#231#255#255#255#221#221#231#0#0'L'#0#0'L'#221#221#231
+  +#255#255#255#221#221#231#0#0'L'#0#0'L'#0#0#0#0#0#0#0#0'Nww'#161#255#255#255#0
+  +#0'N""f'#238#238#243#153#153#184#0#0'N'#0#0'N'#0#0'N'#255#255#255'ww'#161#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'Nff'#149#255#255#255#0#0'N'#0#0'N'#187#187#208#204#204
+  +#220#255#255#255#17#17'Z'#0#0'N'#204#204#220#170#170#196#0#0'N'#0#0'N'#187
+  +#187#208#221#221#231'""f'#0#0'N'#0#0'N'#0#0'N'#0#0'Nff'#149#255#255#255'UU'
+  +#137#0#0'N'#0#0'N'#255#255#255'ww'#161#0#0'N""f'#255#255#255'ff'#149#0#0'N'#0
+  +#0'N'#255#255#255'ww'#161#0#0'N'#0#0'N'#255#255#255'ww'#161#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#187#187#208#238#238#243'""f'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#255#255#255'ww'#161#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#153#153#184#255#255#255#0#0'N'#0#0'N'#0#0'N'#0#0
+  +'N'#0#0'NDD}'#221#221#231'ww'#161'UU'#137#255#255#255#255#255#255#221#221#231
+  +#0#0'N'#0#0'N'#221#221#231#255#255#255#238#238#243'ww'#161#153#153#184#255
+  +#255#255#255#255#255#255#255#255'DD}'#0#0'N'#0#0'N'#221#221#231#255#255#255
+  +#221#221#231#0#0'N'#204#204#220#255#255#255#255#255#255#153#153#184#0#0'N'#0
+  +#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#221#221#231#255#255#255#0#0'N'#0#0
+  +'N'#0#0'N'#0#0'N'#0#0'N33q'#255#255#255#238#238#243'DD}'#0#0'N'#0#0'N'#0#0'N'
+  +'DD}'#238#238#243#255#255#255'33q'#0#0'N'#0#0'N'#255#255#255#221#221#231#0#0
+  +'N'#187#187#208#255#255#255#136#136#172#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0
+  +#0'N'#0#0'N'#221#221#231#255#255#255#238#238#243'ww'#161#153#153#184#255#255
+  +#255#255#255#255#255#255#255'DD}'#0#0'N'#0#0'N'#221#221#231#255#255#255#238
+  +#238#243'ww'#161'ww'#161'ww'#161'""f'#0#0'N'#221#221#231#255#255#255#238#238
+  +#243'ww'#161'ww'#161'ww'#161'DD}'#0#0'N'#0#0'N'#221#221#231#255#255#255#221
+  +#221#231#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#0#0'N'#221#221#231#255#255
+  +#255#221#221#231#0#0'N'#0#0'N'#0#0'N'#221#221#231#255#255#255#221#221#231#0#0
+  +'N'#0#0'N'#221#221#231#255#255#255#221#221#231#0#0'N'#0#0'N'#0#0#0#0#0#0#0#0
+  +'Mww'#160#255#255#255#0#0'M'#187#187#208#221#221#231#0#0'M'#0#0'M'#0#0'M'#0#0
+  +'M'#255#255#255'ww'#160#0#0'M'#0#0'M'#0#0'M'#0#0'MDD|'#255#255#255'33q""e'
+  +#255#255#255'33q'#187#187#208'ww'#160#0#0'M'#238#238#243#153#153#184#0#0'M""'
+  +'e'#255#255#255'ff'#148#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#187#187#208
+  +#204#204#219#0#0'M'#0#0'M'#255#255#255'ww'#160#0#0'M'#17#17'Y'#255#255#255'f'
+  +'f'#148#0#0'M'#0#0'M'#255#255#255'ww'#160#0#0'M'#0#0'M'#255#255#255'ww'#160#0
+  +#0'M'#0#0'M'#0#0'M'#0#0'M""e'#255#255#255'ff'#148#0#0'M'#0#0'M'#0#0'M'#0#0'M'
+  +#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#255#255#255'ww'#160#0#0'M'#0#0'M'
+  +#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#204#204#219#238#238#243#0#0'M'#0#0'M'#0#0
+  +'M'#0#0'M'#0#0'M'#17#17'Y'#0#0'M'#0#0'MUU'#136#255#255#255#255#255#255#255
+  +#255#255#17#17'Y'#0#0'M'#221#221#231#255#255#255#221#221#231#0#0'M'#0#0'Mff'
+  +#148#255#255#255#255#255#255#170#170#196#0#0'M'#0#0'M'#221#221#231#255#255
+  +#255#221#221#231#153#153#184#255#255#255#255#255#255#221#221#231#17#17'Y'#0#0
+  +'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#221#221#231#255#255#255#0#0'M'
+  +#0#0'M'#0#0'M'#0#0'M'#0#0'M'#153#153#184#255#255#255'ff'#148#0#0'M'#0#0'M'#0
+  +#0'M'#0#0'M'#0#0'Mff'#148#255#255#255#153#153#184#0#0'M'#0#0'M'#255#255#255
+  +#238#238#243#153#153#184#255#255#255#204#204#219#0#0'M'#0#0'M'#0#0'M'#0#0'M'
+  +#0#0'M'#0#0'M'#0#0'M'#0#0'M'#221#221#231#255#255#255#221#221#231#0#0'M'#0#0
+  +'Mff'#148#255#255#255#255#255#255#170#170#196#0#0'M'#0#0'M'#221#221#231#255
+  +#255#255#221#221#231#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#221#221#231#255#255
+  +#255#221#221#231#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#0#0'M'#221#221#231#255
+  ,#255#255#255#255#255#221#221#231#204#204#219'ff'#148#0#0'M'#0#0'M'#0#0'M'#0#0
+  +'M'#221#221#231#255#255#255#221#221#231#0#0'M'#0#0'M'#0#0'M'#221#221#231#255
+  +#255#255#221#221#231#0#0'M'#0#0'M'#221#221#231#255#255#255#221#221#231#0#0'M'
+  +#0#0'M'#0#0#0#0#0#0#0#0'Rww'#163#255#255#255#255#255#255#255#255#255#187#187
+  +#209#17#17'^'#0#0'R'#0#0'R'#0#0'R'#255#255#255#153#153#186'UU'#140'UU'#140'3'
+  +'3u'#0#0'R""i'#255#255#255'DD'#128#153#153#186#187#187#209#0#0'RDD'#128#238
+  +#238#243#0#0'R'#255#255#255'ww'#163#0#0'Rff'#151#255#255#255#17#17'^'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'Rww'#163#255#255#255#0#0'R'#0#0'R'#255#255
+  +#255'ww'#163#17#17'^'#153#153#186#238#238#243#17#17'^'#0#0'R'#0#0'R'#255#255
+  +#255'ww'#163#0#0'R'#0#0'R'#255#255#255#153#153#186'UU'#140'UU'#140'33u'#0#0
+  +'Rff'#151#255#255#255#17#17'^'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#255#255#255'ww'#163#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R33u'#221#221#232#255#255#255'UU'#140#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#153#153#186#255#255#255#255#255#255#255#255#255#187#187#209#0#0'R'
+  +#0#0'R'#221#221#232#255#255#255#221#221#232#0#0'R'#0#0'R'#17#17'^'#238#238
+  +#243#255#255#255#221#221#232#0#0'R'#0#0'R'#221#221#232#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255'33u'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#221#221#232#255#255#255#255#255#255#255#255#255#255
+  +#255#255#0#0'R'#0#0'R'#221#221#232#255#255#255#17#17'^'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#17#17'^'#255#255#255#204#204#220#0#0'R'#0#0'R'#255#255#255#255
+  +#255#255#255#255#255#255#255#255#153#153#186#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#0#0'R'#221#221#232#255#255#255#221#221#232#0#0'R'#0#0'R'#17
+  +#17'^'#238#238#243#255#255#255#221#221#232#0#0'R'#0#0'R'#221#221#232#255#255
+  +#255#255#255#255#221#221#232#221#221#232#221#221#232#0#0'R'#0#0'R'#221#221
+  +#232#255#255#255#221#221#232#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#221
+  +#221#232#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'ff'#151
+  +#0#0'R'#0#0'R'#0#0'R'#221#221#232#255#255#255#255#255#255#221#221#232#221#221
+  +#232#221#221#232#255#255#255#255#255#255#221#221#232#0#0'R'#0#0'R'#221#221
+  +#232#255#255#255#221#221#232#0#0'R'#0#0'R'#0#0#0#0#0#0#0#0'Rww'#163#255#255
+  +#255#0#0'R33u'#221#221#232#170#170#197#0#0'R'#0#0'R'#0#0'R'#255#255#255#255
+  +#255#255#255#255#255#255#255#255#170#170#197#0#0'R'#0#0'R'#255#255#255'ww'
+  +#163#255#255#255'DD'#128#0#0'R'#0#0'R'#204#204#220'ff'#151#255#255#255'UU'
+  +#140#0#0'Rff'#151#255#255#255#17#17'^'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0
+  +'Rww'#163#255#255#255#0#0'R'#0#0'R'#255#255#255#255#255#255#255#255#255#255
+  +#255#255'DD'#128#0#0'R'#0#0'R'#0#0'R'#255#255#255'ww'#163#0#0'R'#0#0'R'#255
+  +#255#255#255#255#255#255#255#255#255#255#255#170#170#197#0#0'Rff'#151#255#255
+  +#255#17#17'^'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#255#255#255'ww'#163#0#0'R'#0#0'R'#0#0'R'#0#0'RDD'#128#255#255#255#238
+  +#238#243'DD'#128#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'Rww'#163#255
+  +#255#255#255#255#255#255#255#255#204#204#220'""i'#0#0'R'#0#0'R'#221#221#232
+  +#255#255#255#221#221#232#0#0'R'#0#0'R'#17#17'^'#238#238#243#255#255#255#238
+  +#238#243#0#0'R'#0#0'R'#221#221#232#255#255#255#255#255#255#255#255#255#255
+  +#255#255#204#204#220#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#221#221#232#255#255#255#153#153#186#153#153#186#153#153#186#0#0'R'#0
+  +#0'R'#221#221#232#255#255#255#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#17#17
+  +'^'#255#255#255#204#204#220#0#0'R'#0#0'R'#255#255#255#221#221#232#0#0'RUU'
+  +#140#255#255#255#136#136#174#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#221#221#232#255#255#255#221#221#232#0#0'R'#0#0'R'#17#17'^'#238#238#243#255
+  +#255#255#238#238#243#0#0'R'#0#0'R'#221#221#232#255#255#255#255#255#255#255
+  +#255#255#255#255#255#221#221#232#0#0'R'#0#0'R'#221#221#232#255#255#255#221
+  +#221#232#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#221#221#232#255#255#255
+  +#238#238#243'UU'#140#255#255#255#255#255#255#204#204#220#0#0'R'#0#0'R'#0#0'R'
+  +#221#221#232#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255#221#221#232#0#0'R'#0#0'R'#221#221#232#255#255#255#221
+  +#221#232#0#0'R'#0#0'R'#0#0#0#0#0#0#0#0'Hww'#157#255#255#255#0#0'H'#0#0'Hww'
+  +#157#255#255#255#0#0'H'#0#0'H'#0#0'H'#255#255#255'ww'#157#0#0'H'#0#0'H'#0#0
+  +'H'#0#0'H'#0#0'H'#221#221#231#255#255#255#204#204#218#0#0'H'#0#0'H'#0#0'HUU'
+  +#133#255#255#255#255#255#255'DDy'#0#0'H""`'#255#255#255'ff'#145#0#0'H'#0#0'H'
+  +#0#0'H'#0#0'H'#0#0'H'#0#0'H'#187#187#206#204#204#218#0#0'H'#0#0'H'#255#255
+  +#255'ww'#157#17#17'T'#187#187#206#187#187#206#0#0'H'#0#0'H'#0#0'H'#255#255
+  +#255'ww'#157#0#0'H'#0#0'H'#255#255#255'ww'#157#0#0'H'#0#0'H'#0#0'H'#0#0'H""`'
+  +#255#255#255'ff'#145#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'
+  +#0#0'H'#0#0'H'#255#255#255'ww'#157#0#0'H'#0#0'H'#0#0'H'#0#0'H'#221#221#231
+  +#204#204#218#17#17'T'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'
+  ,#221#221#231#255#255#255#255#255#255#153#153#182#0#0'H'#0#0'H'#0#0'H'#0#0'H'
+  +#221#221#231#255#255#255#221#221#231#0#0'H'#0#0'Hff'#145#255#255#255#255#255
+  +#255#170#170#194#0#0'H'#0#0'H'#221#221#231#255#255#255#221#221#231#136#136
+  +#170#255#255#255#255#255#255'ff'#145#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0
+  +'H'#0#0'H'#0#0'H'#221#221#231#255#255#255#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'
+  +#153#153#182#255#255#255'ff'#145#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'Hff'#145#255
+  +#255#255#153#153#182#0#0'H'#0#0'H'#255#255#255#221#221#231#0#0'H'#0#0'H'#238
+  +#238#243#238#238#243#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#0#0'H'#221#221
+  +#231#255#255#255#221#221#231#0#0'H'#0#0'Hff'#145#255#255#255#255#255#255#170
+  +#170#194#0#0'H'#0#0'H'#221#221#231#255#255#255#238#238#243'ww'#157'ww'#157'f'
+  +'f'#145#0#0'H'#0#0'H'#221#221#231#255#255#255#221#221#231#0#0'H'#0#0'H'#0#0
+  +'H'#0#0'H'#0#0'H'#0#0'H'#221#221#231#255#255#255#221#221#231#0#0'H'#221#221
+  +#231#255#255#255#221#221#231#0#0'H'#0#0'H'#0#0'H'#221#221#231#255#255#255#238
+  +#238#243'ww'#157'ww'#157'ww'#157#238#238#243#255#255#255#221#221#231#0#0'H'#0
+  +#0'H'#221#221#231#255#255#255#221#221#231#0#0'H'#0#0'H'#0#0#0#0#0#0#0#0'Pww'
+  +#162#255#255#255#0#0'P'#0#0'P'#136#136#173#255#255#255#0#0'P'#0#0'P'#0#0'P'
+  +#255#255#255'ww'#162#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#187#187#208#255#255
+  +#255'UU'#138#0#0'P'#0#0'P'#0#0'P'#0#0'P'#221#221#232#255#255#255'33s'#0#0'P'
+  +#0#0'P'#187#187#208#221#221#232'""g'#0#0'P'#0#0'P'#0#0'P'#0#0'Pff'#150#255
+  +#255#255'UU'#138#0#0'P'#0#0'P'#255#255#255'ww'#162#0#0'Pww'#162#255#255#255#0
+  +#0'P'#0#0'P'#0#0'P'#255#255#255'ww'#162#0#0'P'#0#0'P'#255#255#255'ww'#162#0#0
+  +'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#187#187#208#238#238#243'""g'#0#0'P'#0#0'P'#0
+  +#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#255#255#255'ww'#162#0#0'P'#0
+  +#0'P'#0#0'P'#0#0'P'#255#255#255'ww'#162#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0
+  +#0'P'#0#0'P'#0#0'P'#0#0'P'#204#204#220#255#255#255#255#255#255'ff'#150'ff'
+  +#150#153#153#185#0#0'P'#0#0'P'#221#221#232#255#255#255#238#238#243'ww'#162
+  +#153#153#185#255#255#255#255#255#255#255#255#255'DD'#0#0'P'#0#0'P'#221#221
+  +#232#255#255#255#221#221#232#0#0'P'#204#204#220#255#255#255#238#238#243'""g'
+  +#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#221#221#232#255#255#255#0#0
+  +'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P33s'#255#255#255#238#238#243'DD'#0#0'P'#0#0'P'
+  +#0#0'PDD'#238#238#243#255#255#255'33s'#0#0'P'#0#0'P'#255#255#255#221#221#232
+  +#0#0'P'#17#17'\'#255#255#255#238#238#243#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0
+  +#0'P'#0#0'P'#221#221#232#255#255#255#238#238#243'ww'#162#153#153#185#255#255
+  +#255#255#255#255#255#255#255'DD'#0#0'P'#0#0'P'#221#221#232#255#255#255#238
+  +#238#243'ww'#162'ww'#162'ww'#162#17#17'\'#0#0'P'#221#221#232#255#255#255#221
+  +#221#232#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#0#0'P'#221#221#232#255#255#255
+  +#238#238#243'UU'#138#255#255#255#255#255#255#204#204#220#0#0'P'#0#0'P'#0#0'P'
+  +#221#221#232#255#255#255#221#221#232#0#0'P'#0#0'P'#0#0'P'#221#221#232#255#255
+  +#255#221#221#232#0#0'P'#0#0'P'#221#221#232#255#255#255#221#221#232#0#0'P'#0#0
+  +'P'#0#0#0#0#0#0#0#0'Tww'#164#255#255#255'DD'#130'ff'#152#238#238#244#170#170
+  +#198#0#0'T'#0#0'T'#0#0'T'#255#255#255#153#153#187'UU'#141'UU'#141'DD'#130#0#0
+  +'T'#0#0'T'#153#153#187#221#221#232#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'Tww'#164
+  +#255#255#255#0#0'T'#0#0'T'#0#0'T'#17#17'_'#204#204#221#238#238#244#136#136
+  +#175'UU'#141'UU'#141#187#187#209#255#255#255'ww'#164#0#0'T'#0#0'T'#0#0'T'#255
+  +#255#255#136#136#175'DD'#130#221#221#232#204#204#221#0#0'T'#0#0'T'#0#0'T'#255
+  +#255#255'ww'#164#0#0'T'#0#0'T'#255#255#255#153#153#187'UU'#141'UU'#141'DD'
+  +#130#0#0'T'#0#0'T'#17#17'_'#204#204#221#238#238#244#153#153#187'UU'#141'UU'
+  +#141#153#153#187#136#136#175#17#17'_UU'#141'UU'#141'UU'#141#255#255#255#153
+  +#153#187'UU'#141'UU'#141'33v'#0#0'T'#204#204#221#204#204#221'DD'#130'DD'#130
+  +#153#153#187#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'Tff'#152#255#255#255#255
+  +#255#255#255#255#255#255#255#255#170#170#198#0#0'T'#0#0'T'#221#221#232#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'ff'#152
+  +#0#0'T'#0#0'T'#0#0'T'#221#221#232#255#255#255#221#221#232#0#0'T33v'#255#255
+  +#255#255#255#255#187#187#209#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'
+  +#221#221#232#255#255#255#153#153#187#153#153#187#153#153#187'33v'#0#0'T'#0#0
+  +'TUU'#141#255#255#255#255#255#255#204#204#221#153#153#187#204#204#221#255#255
+  +#255#255#255#255'UU'#141#0#0'T'#0#0'T'#0#0'T'#255#255#255#238#238#244#136#136
+  +#175#204#204#221#255#255#255#136#136#175#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0
+  +#0'T'#0#0'T'#221#221#232#255#255#255#255#255#255#255#255#255#255#255#255#255
+  +#255#255#255#255#255'ff'#152#0#0'T'#0#0'T'#0#0'T'#221#221#232#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255'""k'#0#0'T'#221#221#232#255#255
+  +#255#221#221#232#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#0#0'T'#221#221#232#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255'UU'#141#0#0'T'#0#0
+  +'T'#0#0'T'#221#221#232#255#255#255#221#221#232#0#0'T'#0#0'T'#0#0'T'#221#221
+  ,#232#255#255#255#221#221#232#0#0'T'#0#0'T'#221#221#232#255#255#255#221#221
+  +#232#0#0'T'#0#0'T'#0#0#0#0#0#0#0#0'Rff'#151#255#255#255#255#255#255#238#238
+  +#243#153#153#186#0#0'R'#0#0'R'#0#0'R'#0#0'R'#255#255#255#255#255#255#255#255
+  +#255#255#255#255#238#238#243#0#0'R'#0#0'Rww'#163'ww'#163#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#221#221#232#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#136#136
+  +#174#221#221#232#255#255#255#255#255#255#204#204#220'DD'#128#0#0'R'#0#0'R'#0
+  +#0'R'#0#0'R'#255#255#255#255#255#255#255#255#255#204#204#220'""i'#0#0'R'#0#0
+  +'R'#0#0'R'#255#255#255'ff'#151#0#0'R'#0#0'R'#255#255#255#255#255#255#255#255
+  +#255#255#255#255#238#238#243#0#0'R'#0#0'R'#0#0'R'#0#0'Rww'#163#221#221#232
+  +#255#255#255#255#255#255#221#221#232'UU'#140'ff'#151#255#255#255#255#255#255
+  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#204#204#220#0#0
+  +'R""i'#187#187#209#255#255#255#255#255#255#204#204#220#0#0'R'#0#0'R'#0#0'R'#0
+  +#0'R'#0#0'R'#0#0'R'#0#0'Rff'#151#204#204#220#221#221#232#221#221#232#153#153
+  +#186#0#0'R'#0#0'R'#221#221#232#221#221#232#221#221#232#221#221#232#238#238
+  +#243#170#170#197'DD'#128#0#0'R'#0#0'R'#0#0'R'#0#0'R'#221#221#232#221#221#232
+  +#221#221#232#0#0'R'#0#0'R'#153#153#186#221#221#232#221#221#232'ff'#151#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#221#221#232#255#255#255#255#255#255#255
+  +#255#255#255#255#255'UU'#140#0#0'R'#0#0'R'#0#0'R""i'#153#153#186#221#221#232
+  +#255#255#255#221#221#232#153#153#186'""i'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#255#255
+  +#255#255#255#255#255#255#255#221#221#232'ww'#163#0#0'R'#0#0'R'#0#0'R'#0#0'R'
+  +#0#0'R'#0#0'R'#0#0'R'#0#0'R'#221#221#232#221#221#232#221#221#232#221#221#232
+  +#238#238#243#170#170#197'DD'#128#0#0'R'#0#0'R'#0#0'R'#0#0'R'#221#221#232#221
+  +#221#232#221#221#232#221#221#232#221#221#232#221#221#232'""i'#0#0'R'#221#221
+  +#232#221#221#232#221#221#232#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#0#0'R'#221
+  +#221#232#221#221#232#221#221#232#238#238#243#187#187#209'UU'#140#0#0'R'#0#0
+  +'R'#0#0'R'#0#0'R'#221#221#232#221#221#232#221#221#232#0#0'R'#0#0'R'#0#0'R'
+  +#221#221#232#221#221#232#221#221#232#0#0'R'#0#0'R'#221#221#232#221#221#232
+  +#221#221#232#0#0'R'#0#0'R'#0#0#0#0#0#0#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0#0#0#0#0#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  ,'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0
+  +'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0'O'#0#0#0#0#0
+  +#0#0#0'Q""h'#255#255#255#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'QDD'
+  +#221#221#232#255#255#255#255#255#255#221#221#232'DD'#0#0'Q'#0#0'Q'#0#0'Q'#0
+  +#0'Q'#0#0'Q'#0#0'Q""h'#221#221#232#0#0'Q'#17#17']'#221#221#232#0#0'Q'#0#0'Q'
+  +#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#255#255#255#255#255#255#255#255#255#187#187#209
+  +#0#0'Q'#0#0'Q'#0#0'Q""h'#255#255#255#0#0'Q'#0#0'Q'#187#187#209#221#221#232#0
+  +#0'Q'#0#0'Q'#0#0'Q'#255#255#255#255#255#255#255#255#255#187#187#209#0#0'Q'#0
+  +#0'Q'#0#0'Q""h'#255#255#255#255#255#255#255#255#255'ww'#162#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q""h'#255#255#255#255#255
+  +#255#255#255#255'DD'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q""h'#255#255#255#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0
+  +'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0'Q'#0#0#0#0#0#0#0#0'a""v'#255#255#255#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'aDD'#139#255#255#255'ww'#171#0#0'a'#0#0
+  +'aww'#171#255#255#255'DD'#139#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#153#153#192
+  +#255#255#255'DD'#139#136#136#181#255#255#255'DD'#139#0#0'a'#0#0'a'#0#0'a'#0#0
+  +'a'#0#0'a'#255#255#255'""v'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a""v'#255#255#255
+  +#0#0'aww'#171#255#255#255#17#17'l'#0#0'a'#0#0'a'#0#0'a'#255#255#255'""v'#0#0
+  +'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a""v'#255#255#255#0#0'a""v'#221#221#234#136#136
+  +#181#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a""v'#255
+  +#255#255#0#0'aww'#171#255#255#255#0#0'a'#0#0'a'#0#0'a'#0#0'a""v'#255#255#255
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'
+  +#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0'a'#0#0#0#0#0#0#0#0'j""~'#255
+  +#255#255#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#238#238#245'ww'#176#0#0'j'
+  +#0#0'j'#0#0'j'#0#0'jww'#176#221#221#235#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#255#255#255#136#136#185#221#221#235#255#255#255#153#153#195#204#204#225#0#0
+  +'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#255#255#255'""~'#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#0#0'j""~'#255#255#255'""~'#255#255#255'DD'#146#0#0'j'#0#0'j'#0#0'j'#0#0'j'
+  +#255#255#255'""~'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j""~'#255#255#255#0#0'j'#0
+  +#0'jDD'#146#255#255#255#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j'#0#0'j""~'#255#255#255#0#0'jUU'#156#255#255#255#0#0'j'#0#0'j'#0#0'j'#0#0
+  +'j""~'#255#255#255#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0
+  +#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0'j'#0#0#0#0
+  +#0#0#0#0'w""'#137#255#255#255#255#255#255#255#255#255'UU'#164#0#0'w'#0#0'w'#0
+  ,#0'w'#255#255#255'""'#137#0#0'w'#0#0'w'#0#0'w'#0#0'w""'#137#255#255#255#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#136#136#192#187#187#219#0#0'w'#255#255#255#187#187
+  +#219#0#0'w'#255#255#255'33'#146#0#0'w'#0#0'w'#0#0'w'#0#0'w'#255#255#255#255
+  +#255#255#255#255#255#153#153#201#0#0'w'#0#0'w'#0#0'w""'#137#255#255#255#255
+  +#255#255#255#255#255'UU'#164#0#0'w'#0#0'w'#0#0'w'#0#0'w'#255#255#255#255#255
+  +#255#255#255#255#153#153#201#0#0'w'#0#0'w'#0#0'w""'#137#255#255#255#0#0'w'#0
+  +#0'w'#0#0'w'#255#255#255#17#17#128#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'
+  +#0#0'w'#0#0'w""'#137#255#255#255#255#255#255#255#255#255'UU'#164#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'www'#182#255#255#255'33'#146#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0'w'#0#0
+  +'w'#0#0'w'#0#0#0#0#0#0#0#0#144'""'#159#255#255#255#0#0#144'ff'#188#255#255
+  +#255#0#0#144#0#0#144#0#0#144#238#238#248'ww'#196#0#0#144#0#0#144#0#0#144#0#0
+  +#144'ww'#196#238#238#248#0#0#144#0#0#144#0#0#144#0#0#144#255#255#255'DD'#174
+  +#0#0#144#255#255#255#187#187#225#0#0#144#136#136#203#187#187#225#0#0#144#0#0
+  +#144#0#0#144#0#0#144#255#255#255'""'#159#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144'""'#159#255#255#255#0#0#144'UU'#181#255#255#255#0#0#144#0#0#144#0#0#144
+  +#0#0#144#255#255#255'""'#159#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144'""'#159
+  +#255#255#255#0#0#144#0#0#144'DD'#174#255#255#255#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144'""'#159#255#255#255'""'#159#255
+  +#255#255#0#0#144#0#0#144#0#0#144#0#0#144'""'#159#255#255#255#187#187#225#204
+  +#204#233#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144
+  +#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0
+  +#144#0#0#144#0#0#144#0#0#144#0#0#144#0#0#0#0#0#0#0#0#156'""'#169#255#255#255
+  +#0#0#156'ff'#196#255#255#255#0#0#156#0#0#156#0#0#156'DD'#182#255#255#255'ww'
+  +#202#0#0#156#0#0#156'ww'#202#255#255#255'DD'#182#0#0#156#0#0#156#0#0#156'ww'
+  +#202#221#221#242#0#0#156'ww'#202#221#221#242#255#255#255'""'#169#0#0#156#255
+  +#255#255'""'#169#0#0#156#0#0#156#0#0#156#255#255#255'""'#169#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156'""'#169#255#255#255#0#0#156'ww'#202#255#255#255#0#0
+  +#156#0#0#156#0#0#156#0#0#156#255#255#255'""'#169#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156'""'#169#255#255#255#0#0#156'""'#169#221#221#242#136#136#209#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156'""'#169
+  +#255#255#255#0#0#156#255#255#255#17#17#163#0#0#156#0#0#156#0#0#156#187#187
+  +#229#153#153#215#0#0#156#204#204#235#136#136#209#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  ,#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156
+  +#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0
+  +#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#156#0#0#0#0
+  +#0#0#0#0#153'""'#167#255#255#255#255#255#255#238#238#248'UU'#187#0#0#153#0#0
+  +#153#0#0#153#0#0#153'DD'#180#221#221#241#255#255#255#255#255#255#221#221#241
+  +'DD'#180#0#0#153#0#0#153#0#0#153#0#0#153#255#255#255'ff'#194#0#0#153#255#255
+  +#255'ff'#194#153#153#214#187#187#228#0#0#153#170#170#221#187#187#228#0#0#153
+  +#0#0#153#0#0#153#255#255#255#255#255#255#255#255#255#187#187#228#0#0#153#0#0
+  +#153#0#0#153'""'#167#255#255#255#255#255#255#238#238#248'DD'#180#0#0#153#0#0
+  +#153#0#0#153#0#0#153#255#255#255#255#255#255#255#255#255#187#187#228#0#0#153
+  +#0#0#153#0#0#153'""'#167#255#255#255#255#255#255#255#255#255#136#136#207#0#0
+  +#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153
+  +'""'#167#255#255#255#255#255#255#170#170#221#0#0#153#0#0#153#0#0#153'ww'#201
+  +#255#255#255#0#0#153#0#0#153'33'#173#255#255#255'DD'#180#0#0#153#0#0#153#0#0
+  +#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153
+  +#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0
+  +#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153
+  +#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0
+  +#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153
+  +#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0
+  +#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153
+  +#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0
+  +#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153
+  +#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0
+  +#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153
+  +#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0
+  +#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#153#0#0#0#0
+  +#0#0#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162
+  +#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0#162#0#0
+  +#162#0#0#162#0#0#0#0#0#0#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  ,#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#0#0#0#0#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#0#0#0#0#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158
+  +#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0#158#0#0
+  +#0#0#0#0#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  ,#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#0#0#0#0#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155
+  +#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0
+  +#155#0#0#155#0#0#155#0#0#155#0#0#155#0#0#0#0#0#0#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0
+  +#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141
+  +#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#141#0#0#0#0#0#0#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  ,#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0
+  +#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129#0#0#129
+  +#0#0#0#0#0#0#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149
+  +#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0#149#0#0
+  +#149#0#0#149#0#0#149#0#0#0#0#0#0#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0
+  +#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181
+  +#0#0#181#0#0#181#0#0#181#0#0#181#0#0#181#0#0#0#0#0#0#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  ,#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176
+  +#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0
+  +#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#176#0#0#0#0#0#0#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168
+  +#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0#168#0#0
+  +#168#0#0#0#0#0#0#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0
+  +#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161#0#0#161
+  +#0#0#161#0#0#161#0#0#161#0#0#0#0#0#0#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  ,'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0
+  +'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0'y'#0#0#0#0#0#0#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0
+  +#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128
+  +#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#128#0#0#0#0#0#0
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'#0#0'k'
+  +#0#0'k'#0#0#0#0#0#0#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0
+  +#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  ,#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140
+  +#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0#140#0#0
+  +#140#0#0#140#0#0#140#0#0#140#0#0#0#0#0#0#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0
+  +#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174
+  +#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#174#0#0#0#0#0#0#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137
+  +#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0
+  +#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#137#0#0#0#0
+  +#0#0#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  ,#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152
+  +#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0#152#0#0
+  +#152#0#0#152#0#0#0#0#0#0#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0
+  +#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135#0#0#135
+  +#0#0#135#0#0#135#0#0#135#0#0#135#0#0#0#0#0#0#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0
+  +'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0'x'#0#0#0#0#0#0#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  ,#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0
+  +#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130
+  +#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#0#0#130#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#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#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#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#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#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#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#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#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
+]);
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.pas
new file mode 100644
index 0000000..1e6c457
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.pas	
@@ -0,0 +1,175 @@
+unit uROPoweredByRemObjectsButton;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  {$IFNDEF MSWINDOWS}
+  SysUtils, Classes {$IFDEF FPC}, Controls, Graphics {$ELSE}, QControls, QGraphics{$ENDIF};
+  {$ELSE}
+  //ToDo: sort those out!
+  Windows, SysUtils, Messages, Classes, Controls, Graphics, Forms, Dialogs,
+  Menus,  StdCtrls, ExtCtrls;
+  {$ENDIF}
+
+{$IFNDEF FPC}  
+  {$R uROPoweredByRemObjectsButton.res}
+{$ENDIF}
+
+type
+  TROPoweredByType = (atServer, atClient);
+
+  TROPoweredByRemObjectsButton = class(TGraphicControl)
+  private
+    fBitmap: TBitmap;
+    fApplicationType: TROPoweredByType;
+    function GetHeight: byte;
+    function GetWidth: byte;
+    procedure SetHeight(const Value: byte);
+    procedure SetWidth(const Value: byte);
+    procedure SetApplicationType(const Value: TROPoweredByType);
+    procedure UpdateBitmap;
+  protected
+    {$IFDEF MSWINDOWS}
+    procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
+    {$ENDIF}
+    property Bitmap: TBitmap read fBitmap;
+    procedure GetBitmap; virtual;
+  public
+    { Public declarations }
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Paint; override;
+    procedure Click; override;
+    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
+  published
+    { Published properties and events }
+    property Height: byte read GetHeight Write SetHeight;
+    property Width: byte read GetWidth Write SetWidth;
+    property Anchors;
+    property ApplicationType: TROPoweredByType read fApplicationType write SetApplicationType default atServer;
+  end;  { TRoPoweredByRemObjectsButton }
+
+implementation
+
+{$IFDEF MSWINDOWS}
+uses ShellAPI;
+{$ENDIF MSWINDOWS}
+
+const
+  STR_POWERED_BY_REMOBJECTS_CLIENT = 'POWERED_BY_REMOBJECTS_CLIENT';
+  STR_POWERED_BY_REMOBJECTS_SERVER = 'POWERED_BY_REMOBJECTS_SERVER';
+
+constructor TRoPoweredByRemObjectsButton.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  fBitmap := TBitmap.Create();
+  UpdateBitmap();
+  SetBounds(Left, Top, -1, -1); { width/height get ignored anyway }
+  {$IFDEF MSWINDOWS}
+  Cursor := crHandPoint;
+  {$ENDIF MSWINDOWS}
+end;  { Create }
+
+destructor TRoPoweredByRemObjectsButton.Destroy;
+begin
+  FreeAndNil(fBitmap);
+  inherited Destroy;
+end;  { Destroy }
+
+procedure TRoPoweredByRemObjectsButton.Paint;
+begin
+  //inherited;
+  Canvas.Draw(0,0,fBitmap);
+end;
+
+procedure TRoPoweredByRemObjectsButton.Click;
+begin
+  {$IFDEF MSWINDOWS}
+  ShellExecute(0,'open','http://www.remobjectssdk.com',nil,nil,SW_SHOWNORMAL);
+  {$ENDIF MSWINDOWS}
+end;
+
+
+procedure TRoPoweredByRemObjectsButton.SetBounds(ALeft, ATop, AWidth,
+  AHeight: Integer);
+begin
+  inherited SetBounds(ALeft,ATop,fBitmap.Width,fBitmap.Height);
+
+end;
+
+procedure TROPoweredByRemObjectsButton.SetApplicationType(const Value: TROPoweredByType);
+begin
+  if (fApplicationType <> Value) then begin
+    fApplicationType := Value;
+    UpdateBitmap;
+  end;
+end;
+
+procedure TROPoweredByRemObjectsButton.UpdateBitmap;
+begin
+  GetBitmap();
+  Invalidate;
+end;
+
+procedure TROPoweredByRemObjectsButton.GetBitmap;
+begin
+{$IFDEF FPC}
+  case fApplicationType of
+    atServer: Bitmap.LoadFromLazarusResource(STR_POWERED_BY_REMOBJECTS_SERVER);
+    atClient: Bitmap.LoadFromLazarusResource(STR_POWERED_BY_REMOBJECTS_CLIENT);
+  end; { case }
+{$ELSE}
+  case fApplicationType of
+    atServer: Bitmap.LoadFromResourceName(hInstance,STR_POWERED_BY_REMOBJECTS_SERVER);
+    atClient: Bitmap.LoadFromResourceName(hInstance,STR_POWERED_BY_REMOBJECTS_CLIENT);
+  end; { case }
+{$ENDIF}
+end;
+
+function TROPoweredByRemObjectsButton.GetHeight: byte;
+begin
+  result := inherited Height;
+end;
+
+function TROPoweredByRemObjectsButton.GetWidth: byte;
+begin
+  result := inherited Width;
+end;
+
+procedure TROPoweredByRemObjectsButton.SetHeight(const Value: byte);
+begin
+  { no-op, width is fixed }
+end;
+
+procedure TROPoweredByRemObjectsButton.SetWidth(const Value: byte);
+begin
+  { no-op, width is fixed }
+end;
+
+{$IFDEF MSWINDOWS}
+procedure TROPoweredByRemObjectsButton.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
+begin
+  Msg.Result := 0;
+end;
+{$ENDIF}
+
+{$IFDEF FPC}
+initialization
+  {$I uROPoweredByRemObjectsButton.lrs}
+{$ENDIF}  
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.res
new file mode 100644
index 0000000..774c2b2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROPoweredByRemObjectsButton.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORemoteDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORemoteDataModule.pas
new file mode 100644
index 0000000..7618d67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORemoteDataModule.pas	
@@ -0,0 +1,454 @@
+unit uRORemoteDataModule;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes,
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  {$IFDEF DELPHI5}Forms,{$ENDIF}
+//  {$IFDEF FPC}Forms,{$ENDIF}
+  uROServerIntf, uROClientIntf, uROSessions, uROClasses, uROTypes, uROEventRepository, uROClient;
+
+type { Events }
+     TActivateEvent = procedure(const aClientID : TGUID; aSession : TROSession; const aMessage : IROMessage) of object;
+     TDeactivateEvent = procedure(const aClientID : TGUID; aSession : TROSession) of object;
+     TGetDispatchInfoEvent = procedure(const aTransport : IROTransport; const aMessage : IROMessage) of object;
+     TValidateRolesEvent = procedure(aRoles: array of string; var aAllow: Boolean) of object;
+     TRegisterEventClientEvent = procedure(const aClientID : TGUID; const EventTypes : Ansistring) of object;
+
+     { TRORemoteDataModule }
+     TRORemoteDataModule = class(TDataModule, IROObjectActivation, IRODispatchNotifier, IROServerEventsBroker, IInterface, IROObjectRetainer, IRORolesAwareService)
+     private
+       fRefCount : integer;
+       fClientID: TGUID;
+       fOnActivate: TActivateEvent;
+       fOnDeactivate: TDeactivateEvent;
+       fSessionManager : TROCustomSessionManager;
+       fSession: TROSession;
+       fNewSession,
+       fRequiresSession,
+       fDestroySession : boolean;
+       fOnGetDispatchInfo: TGetDispatchInfoEvent;
+       fEventRepository: TROEventRepository;
+       fOnBeforeUnregisterEventClient: TRegisterEventClientEvent;
+       fOnBeforeRegisterEventClient: TRegisterEventClientEvent;
+       fOnValidateRoles: TValidateRolesEvent;
+       fTransport: IROTransport;
+
+       fRetainedObjects : TList;
+
+       procedure SetSessionManager(const Value: TROCustomSessionManager);
+       procedure SetEventRepository(const Value: TROEventRepository);
+       function GetSession: TROSession;
+       function GetEventRepository: TROEventRepository;
+
+     protected
+       { IInterface }
+       function QueryInterface(const IID: TGUID; out Obj): HResult; reintroduce; virtual; stdcall;
+       function _AddRef: Integer; virtual; stdcall;
+       function _Release: Integer; virtual; stdcall;
+
+       { IRODispatchNotifier }
+       procedure GetDispatchInfo(const aTransport : IROTransport; const aMessage : IROMessage); virtual;
+
+       { IROObjectActivation }
+       procedure _OnActivate(aClientID: TGUID; const aMessage : IROMessage);
+       procedure _OnDeactivate(aClientID: TGUID);
+       procedure IROObjectActivation.OnActivate = _OnActivate;
+       procedure IROObjectActivation.OnDeactivate = _OnDeactivate;
+
+       { IROServerEventsBroker }
+       procedure RegisterEventClient(const ClientID, EventTypes : Ansistring);
+       procedure UnregisterEventClient(const ClientID, EventTypes : Ansistring);
+       function GetEventsData(const ClientID : Ansistring; out EventsData : Binary) : integer;
+
+       { IROObjectRetainer  }
+       procedure RetainObject(const anObject : TObject);
+       function IsRetained(const anObject : TObject) : boolean;
+       procedure ReleaseObject(const anObject: TObject);
+
+       { IRORolesAwareService }
+       procedure ServiceValidateRoles(aRequiredRoles: array of String);
+
+       { Internal }
+       procedure DoOnActivate(aClientID: TGUID; const aMessage : IROMessage); virtual;
+       procedure DoOnDeactivate(aClientID: TGUID); virtual;
+       procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+       function CustomRequireSession(const aMessage : IROMessage) : boolean; virtual;
+
+
+      {$IFDEF DELPHI7UP}
+      procedure Synchronize(aMethod: TThreadMethod);
+      {$ENDIF DELPHI7UP}
+     public
+       constructor Create(aOwner : TComponent); override;
+       destructor Destroy; override;
+       procedure Assign(Source: TPersistent); override;
+       procedure DestroySession;
+
+       property RefCount : integer read fRefCount;
+       property ClientID : TGUID read fClientID write fClientID;
+       property Transport: IROTransport read fTransport;
+       property Session : TROSession read GetSession;
+       property NewSession : boolean read fNewSession;
+     published
+       property RequiresSession : boolean read fRequiresSession write fRequiresSession default FALSE;
+       property SessionManager : TROCustomSessionManager read fSessionManager write SetSessionManager;
+       property EventRepository : TROEventRepository read GetEventRepository write SetEventRepository;
+
+       property OnActivate : TActivateEvent read fOnActivate write fOnActivate;
+       property OnDeactivate : TDeactivateEvent read fOnDeactivate write fOnDeactivate;
+
+       property OnBeforeRegisterEventClient : TRegisterEventClientEvent read fOnBeforeRegisterEventClient write fOnBeforeRegisterEventClient;
+       property OnBeforeUnregisterEventClient : TRegisterEventClientEvent read fOnBeforeUnregisterEventClient write fOnBeforeUnregisterEventClient;
+
+       property OnGetDispatchInfo : TGetDispatchInfoEvent read fOnGetDispatchInfo write fOnGetDispatchInfo;
+       property OnValidateRoles: TValidateRolesEvent read fOnValidateRoles write fOnValidateRoles;
+     end;
+
+     TRORemoteDataModuleClass = class of TRORemoteDataModule;
+
+implementation
+
+uses
+  SysUtils,
+  {$IFDEF DELPHI5}ComObj,{$ENDIF DELPHI5}
+  uRORes;
+
+procedure TRORemoteDataModule.Assign(Source: TPersistent);
+var
+  lSource: TRORemoteDataModule;
+begin
+  inherited;
+  if Source is TRORemoteDataModule then begin
+    lSource := TRORemoteDataModule(Source);
+
+    EventRepository := lSource.EventRepository;
+    RequiresSession := lSource.RequiresSession;
+    SessionManager := lSource.SessionManager;
+
+    OnActivate := lSource.OnActivate;
+    OnBeforeRegisterEventClient := lSource.OnBeforeRegisterEventClient;
+    OnBeforeUnregisterEventClient := lSource.OnBeforeUnregisterEventClient;
+    OnDeactivate := lSource.OnDeactivate;
+    OnGetDispatchInfo := lSource.OnGetDispatchInfo;
+    OnValidateRoles := lSource.OnValidateRoles;
+  end;
+end;
+
+constructor TRORemoteDataModule.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+end;
+
+destructor TRORemoteDataModule.Destroy;
+begin
+  SessionManager := nil;
+  EventRepository := nil;
+  FreeAndNIL(fRetainedObjects);
+  inherited;
+end;
+
+function TRORemoteDataModule._AddRef: Integer;
+begin
+  if (csDesigning in ComponentState) then
+    result := -1
+  else
+    result := InterlockedIncrement(fRefCount);
+end;
+
+function TRORemoteDataModule._Release: Integer;
+begin
+  if (csDesigning in ComponentState) then begin
+    result := -1
+  end
+  else begin
+    result := InterlockedDecrement(fRefCount);
+    if (result=0)
+      then Destroy;
+  end;
+end;
+
+function TRORemoteDataModule.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  result := inherited QueryInterface(IID, Obj);
+end;
+
+procedure TRORemoteDataModule._OnActivate(aClientID: TGUID; const aMessage : IROMessage);
+begin
+  fClientID := aClientID;
+
+  DoOnActivate(aClientID, aMessage); // Loads the session if a session manager is assigned
+
+  if Assigned(fOnActivate)
+    then fOnActivate(aClientID, fSession, aMessage);
+end;
+
+procedure TRORemoteDataModule._OnDeactivate(aClientID: TGUID);
+begin
+  if Assigned(fOnDeactivate)
+    then fOnDeactivate(aClientID, fSession);
+
+  DoOnDeactivate(aClientID); // Releases the session
+end;
+
+procedure TRORemoteDataModule.DoOnActivate(aClientID: TGUID; const aMessage : IROMessage);
+begin
+  if (csDesigning in ComponentState) then Exit;
+
+  fSession := NIL;
+  if not CustomRequireSession(aMessage) then Exit;
+
+  if Assigned(fSessionManager) then begin
+    fNewSession := FALSE;
+    fDestroySession := FALSE; // Resets the flags
+
+    fSession := fSessionManager.FindSession(aClientID);
+
+    if (fSession=NIL) then begin
+
+      if RequiresSession
+        then RaiseError(err_SessionNotFound, [GUIDToString(aClientID)], EROSessionNotFound)
+        else begin
+         // fSession := fSessionManager.CreateSession(aClientID);
+          fNewSession := TRUE;
+        end;
+    end;
+  end
+  else begin
+    if RequiresSession then
+      RaiseError('SessionManager required, but not assigned');
+  end;
+end;
+
+procedure TRORemoteDataModule.DoOnDeactivate(aClientID: TGUID);
+var
+  lSessionID: TGUID;
+begin
+  if (csDesigning in ComponentState) then Exit;
+
+  if Assigned(fSessionManager) and (fSession<>NIL) then begin
+
+    if fDestroySession then begin
+      if fNewSession then begin
+        fSessionManager.DeleteTemporarySession(fSession)
+      end
+      else begin
+        lSessionID := fSession.SessionID;
+        fSessionManager.ReleaseSession(fSession, false);
+        fSessionManager.DeleteSession(lSessionID, false);
+        fSession := nil;
+      end;
+    end
+    else begin
+      fSessionManager.ReleaseSession(fSession, fNewSession);
+    end;
+
+  end;
+  fTransport := nil;
+end;
+
+procedure TRORemoteDataModule.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation=opRemove) then begin
+    if (AComponent=fSessionManager) then SessionManager := NIL
+    else if (AComponent=fEventRepository) then EventRepository := NIL;
+  end;
+end;
+
+procedure TRORemoteDataModule.DestroySession;
+begin
+  fDestroySession := TRUE;
+end;
+
+procedure TRORemoteDataModule.GetDispatchInfo(const aTransport: IROTransport; const aMessage: IROMessage);
+begin
+  if Assigned(fOnGetDispatchInfo) then
+    fOnGetDispatchInfo(aTransport, aMessage);
+  fTransport := aTransport;
+end;
+
+function TRORemoteDataModule.CustomRequireSession(const aMessage: IROMessage): boolean;
+begin
+  result := not Assigned(aMessage) or not SameText(aMessage.MessageName, 'GetDescriptor');
+end;
+
+procedure TRORemoteDataModule.SetSessionManager(
+  const Value: TROCustomSessionManager);
+begin
+  if (fSessionManager <> Value) then begin
+    if (fSessionManager <> NIL) then fSessionManager.RORemoveFreeNotification(Self);
+    fSessionManager := Value;
+    if (fSessionManager<>NIL) then fSessionManager.ROFreeNotification(Self);
+  end;
+end;
+
+{$IFDEF DELPHI7UP}
+procedure TRORemoteDataModule.Synchronize(aMethod: TThreadMethod);
+begin
+  TThread.Synchronize(nil, aMethod);
+end;
+{$ENDIF DELPHI7UP}
+
+function TRORemoteDataModule.GetEventsData(const ClientID: Ansistring; out EventsData: Binary): integer;
+begin
+  result := 0;
+  if (fEventRepository=NIL) then Exit;
+
+  EventsData := Binary.Create;
+  result := EventRepository.GetEventData(Session.SessionID, EventsData);
+end;
+
+procedure TRORemoteDataModule.RegisterEventClient(const ClientID, EventTypes: Ansistring);
+var
+  lActive: IROActiveEventServer;
+  lGuid: TGuid;
+begin
+  if Assigned(fOnBeforeRegisterEventClient) or Assigned(fEventRepository) then
+    lGuid := StringToGUID({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(ClientID));
+  if Assigned(fOnBeforeRegisterEventClient) then
+    fOnBeforeRegisterEventClient(lGuid, EventTypes);
+
+  if assigned(fEventRepository) then begin
+    if Supports(fTransport, IROActiveEventServer, lActive) then
+      fEventRepository.AddSession(lGuid, lActive)
+    else
+      fEventRepository.AddSession(lGuid);
+  end;
+end;
+
+procedure TRORemoteDataModule.UnregisterEventClient(const ClientID, EventTypes: Ansistring);
+var
+  lGuid: TGuid;
+begin
+  if Assigned(fOnBeforeUnregisterEventClient) or Assigned(fEventRepository) then
+    lGuid := StringToGUID({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(ClientID));
+  if Assigned(fOnBeforeUnregisterEventClient) then
+    fOnBeforeUnregisterEventClient(lGuid, EventTypes);
+
+  if assigned(fEventRepository) then
+    fEventRepository.RemoveSession(lGuid);
+end;
+
+procedure TRORemoteDataModule.SetEventRepository(const Value: TROEventRepository);
+begin
+  if (fEventRepository <>Value) then begin
+    if (fEventRepository<>NIL) then fEventRepository.RORemoveFreeNotification(Self);
+    fEventRepository := Value;
+    if (fEventRepository<>NIL) then fEventRepository.ROFreeNotification(Self);
+  end;
+end;
+
+function TRORemoteDataModule.GetSession: TROSession;
+var errmsg : string;
+begin
+  if not (csDesigning in ComponentState) then begin
+    if (fSession = nil) and (not RequiresSession) and (SessionManager<>NIL) then
+       fSession:= fSessionManager.CreateSession(ClientID);
+    if (fSession=NIL) then begin
+      errmsg := 'The session has not been initialized.';
+      if SessionManager=NIL then errmsg := errmsg+' '+Name+'''s SessionManager property is set to NIL.';
+      raise EROException.Create(errmsg);
+    end;
+  end;
+
+  result := fSession;
+end;
+
+function TRORemoteDataModule.GetEventRepository: TROEventRepository;
+var errmsg : string;
+begin
+  if not (csDesigning in ComponentState) then begin
+    if (fEventRepository=NIL) then begin
+      errmsg := Name+'''s EventRepository property is not assigned';
+      raise EROException.Create(errmsg);
+    end;
+  end;
+
+  result := fEventRepository;
+end;
+
+function TRORemoteDataModule.IsRetained(const anObject: TObject): boolean;
+begin
+  result := (fRetainedObjects<>NIL) and (fRetainedObjects.IndexOf(anObject)>=0)
+end;
+
+procedure TRORemoteDataModule.RetainObject(const anObject: TObject);
+begin
+  // Only creates it if necessary
+  if (fRetainedObjects=NIL) then
+    fRetainedObjects := TList.Create;
+
+  fRetainedObjects.Add(anObject);
+end;
+
+procedure TRORemoteDataModule.ReleaseObject(const anObject: TObject);
+var idx : integer;
+begin
+  // Only creates it if necessary
+  if (fRetainedObjects=NIL) then Exit;
+
+  idx := fRetainedObjects.IndexOf(anObject);
+  if (idx>=0) then fRetainedObjects.Delete(idx);
+end;
+
+procedure TRORemoteDataModule.ServiceValidateRoles(
+  aRequiredRoles: array of String);
+var
+  i, j: Integer;
+  lResult, lWant, lHave: Boolean;
+  lRole: string;
+  lRoles: TStringArray;
+begin
+  if Length(aRequiredRoles) = 0 then begin
+    lRoles := nil;
+    lResult := true;
+  end else
+  if fSession = nil then begin
+    lRoles := nil;
+    lResult := false;
+  end else begin
+    lRoles := fSession.Roles;
+    lResult := true;
+    for i := 0 to Length(aRequiredRoles) -1 do begin
+      lRole := Trim(aRequiredRoles[i]);
+      if lRole = '' then continue;
+      if lRole[1] = '!' then begin
+        lWant := false;
+        delete(lRole, 1, 1);
+        lRole := TrimLeft(lRole);
+      end else lWant := true;
+      lHave := false;
+      for j := 0 to Length(lRoles) -1 do begin
+        if SameText(lRoles[j], lRole) then begin
+          lHave := true;
+          break;
+        end;
+      end;
+      if lHave <> lWant then begin lResult := false; break; end;
+    end;
+  end;
+
+  if Assigned(fOnValidateRoles) then fOnValidateRoles(aRequiredRoles, lResult);
+  if not lResult then raise SessionDoesNotHaveRequiredRolesException.Create(Err_SessionDoesNotHaveAllRequiredRoles);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORemoteService.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORemoteService.pas
new file mode 100644
index 0000000..ee2a0a1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORemoteService.pas	
@@ -0,0 +1,273 @@
+unit uRORemoteService;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils,
+  uROTypes, uROClasses, uROClient, uROClientIntf, uRODL;
+
+type
+  { TRORemoteService }
+  TRORemoteService = class(TROComponent)
+  private
+    fMessage: TROMessage;
+    fChannel: TROTransportChannel;
+    fRodlLibrary: TRODLLibrary;
+    fCacheRODL: boolean;
+    fServiceName: string;
+
+    procedure SetServiceName(const Value: string);
+    procedure SetCacheRODL(const Value: boolean);
+    procedure SetChannel(const Value: TROTransportChannel);
+    procedure SetMessage(const Value: TROMessage);
+
+    {$IFDEF DESIGNTIME}
+    procedure FixUpTargetURL;
+    {$ENDIF}
+
+  protected
+    // Internals
+    procedure Notification(aComponent: TComponent; Operation: TOperation); override;
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override;
+
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    procedure SetRODLLibrary(aLibrary: TRODLLibrary);
+    function GetRODLLibrary : TRODLLibrary; virtual;
+    function GetServiceNames(aIncludeAbstractServices:boolean=false): IROStrings;
+    function GetServiceMethods: IROStrings; virtual;
+
+    procedure CheckCanConnect(CheckServiceName: boolean = true);
+    procedure CheckProperties;
+
+  published
+    property Message : TROMessage read fMessage write SetMessage;
+    property Channel : TROTransportChannel read fChannel write SetChannel;
+    property ServiceName : string read fServiceName write SetServiceName;
+
+    property CacheRODL: boolean read fCacheRODL write SetCacheRODL default false;
+  end;
+
+implementation
+
+uses TypInfo, uRORes;
+
+{ TRORemoteService }
+destructor TRORemoteService.Destroy;
+begin
+  Message := nil;
+  Channel := nil;
+  FreeAndNil(fRodlLibrary);
+  inherited;
+end;
+
+procedure TRORemoteService.Assign(Source: TPersistent);
+var
+  lSource: TRORemoteService;
+begin
+  inherited;
+  if Source is TRORemoteService then begin
+    lSource := TRORemoteService(Source);
+
+    CacheRODL := lSource.CacheRODL;
+    Channel := lSource.Channel;
+    Message := lSource.Message;
+    ServiceName := lSource.ServiceName;
+  end;
+end;
+
+procedure TRORemoteService.CheckCanConnect(CheckServiceName : boolean = TRUE);
+begin
+  Check(Channel=NIL, Name+'.Channel must be assigned.');
+  Channel.CheckProperties;
+  Check(Message=NIL, Name+'.Message must be assigned.');
+  Message.CheckProperties;
+  if CheckServiceName then Check(ServiceName='', Name+'.ServiceName must be specified.');
+end;
+
+procedure TRORemoteService.CheckProperties;
+begin
+  CheckCanConnect(true);
+end;
+
+procedure TRORemoteService.Notification(aComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation=opRemove) then begin
+    if (aComponent=fChannel) then fChannel := NIL
+    else if (aComponent=fMessage) then fMessage := NIL
+  end;
+end;
+
+{$IFDEF DESIGNTIME}
+procedure TRORemoteService.FixUpTargetURL;
+var http : IROHTTPTransport;
+    protocol : string;
+begin
+  if (fChannel<>NIL) and (fMessage<>NIL) then begin
+    if Supports(fChannel, IROHTTPTransport, http) then
+      if (http.TargetURL='') then begin
+        protocol := UpperCase(StringReplace(Copy(fMessage.ClassName, 4, MaxInt), 'Message', '', [rfIgnoreCase]));
+        http.TargetURL := 'http://localhost:8099/'+protocol;
+      end;
+    end;
+end;
+{$ENDIF}
+
+procedure TRORemoteService.SetChannel(const Value: TROTransportChannel);
+begin
+  if fChannel <> Value then begin
+    if (fChannel <> nil) then fChannel.RORemoveFreeNotification(Self);
+    fChannel := Value;
+    if (fChannel <> nil) then begin
+      fChannel.ROFreeNotification(Self);
+      {$IFDEF DESIGNTIME}
+      if (csDesigning in ComponentState) then FixUpTargetURL;
+      {$ENDIF}
+    end;
+  end;
+end;
+
+procedure TRORemoteService.SetMessage(const Value: TROMessage);
+begin
+  if fMessage <> Value then begin
+    if (fMessage <> nil) then fMessage.RORemoveFreeNotification(Self);
+    fMessage := Value;
+    if (fMessage <> nil) then begin
+      fMessage.ROFreeNotification(Self);
+      {$IFDEF DESIGNTIME}
+      if (csDesigning in ComponentState) then FixUpTargetURL;
+      {$ENDIF}
+    end;
+  end;
+end;
+
+{$IFDEF DELPHI5}
+const S_OK = 0;
+{$ENDIF}
+
+function TRORemoteService.QueryInterface(const IID: TGUID; out Obj): HResult;
+var //ref : IInterface;
+    proxyclass : TROProxyClass;
+    proxy : TROProxy;
+begin
+  result := inherited QueryInterface(IID, Obj);
+
+  if (result <> S_OK) then begin
+    proxyclass := FindProxyClass(IID, TRUE);
+
+    if (proxyclass=NIL) then Exit
+    else begin
+  	  CheckCanConnect(false);
+      proxy := proxyclass.Create(fMessage, fChannel);
+      proxy.GetInterface(IID, Obj);
+      result := S_OK;
+    end;
+  end;
+end;
+
+procedure TRORemoteService.SetCacheRODL(const Value: boolean);
+begin
+  fCacheRODL := Value;
+  if not fCacheRODL then
+    FreeAndNil(fRodlLibrary)
+end;
+
+function TRORemoteService.GetRODLLibrary: TRODLLibrary;
+var
+  lMetadataReader:IROMetadataReader;
+begin
+  if fCacheRODL and assigned(fRodlLibrary) then begin
+    result := fRodlLibrary;
+    exit;
+  end;
+
+  FreeAndNil(fRodlLibrary);
+  CheckCanConnect(False);
+//  if not Assigned(Channel) then raise EROUserError.Create(err_CannotReadRODLWithoutChannel);
+
+  if Supports(Channel,IROMetadataReader,lMetadataReader) then begin
+    lMetadataReader.RetrieveRODL(fRodlLibrary);
+    result := fRodlLibrary;
+  end
+  else begin
+    raise Exception.Create(err_ChannelDoesntSupportIROMetadataReader);
+  end;
+end;
+
+function TRORemoteService.GetServiceNames(aIncludeAbstractServices:boolean=false): IROStrings;
+var
+  lib : TRODLLibrary;
+  i : integer;
+begin
+  CheckCanConnect(FALSE);
+
+  result := NIL;
+  lib := GetRODLLibrary;
+  if Assigned(lib) then begin
+    result := NewROStrings;
+
+    for i := 0 to (lib.ServiceCount-1) do
+      if not lib.Services[i].IsFromUsedRodl then
+        if aIncludeAbstractServices or (not lib.Services[i].Abstract) then
+          result.Add(lib.Services[i].Info.Name);
+  end;
+end;
+
+procedure TRORemoteService.SetServiceName(const Value: string);
+begin
+  fServiceName := Trim(Value);
+end;
+
+function TRORemoteService.GetServiceMethods:IROStrings;
+var
+  lLibrary: TRODLLibrary;
+  lService: TRODLService;
+  i:integer;
+begin
+  lLibrary := GetRODLLibrary();
+  if not Assigned (lLibrary) then RaiseError('Library could not retrieved from server');
+  result := NewROStrings;
+
+  lService := lLibrary.FindService(ServiceName);
+  if not Assigned (lService) then RaiseError('Service "%s" not found in library');
+
+  while Assigned(lService) do begin
+    for i := 0 to lService.Default.Count-1 do begin
+      result.Add(lService.Default.Items[i].Info.Name);
+    end; { for }
+    if (lService.Ancestor <> '') then begin
+      lService := lLibrary.FindService(lService.Ancestor);
+    end
+    else begin
+      lService := nil;
+    end;
+  end;
+  (result.Strings as TStringList).Sort();
+end;
+
+procedure TRORemoteService.SetRODLLibrary(aLibrary: TRODLLibrary);
+begin
+  fRodlLibrary.Free;
+  fRodlLibrary := aLibrary;
+  fCacheRODL := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORes.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORes.pas
new file mode 100644
index 0000000..de9d112
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uRORes.pas	
@@ -0,0 +1,205 @@
+unit uRORes;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF DOTNET}
+  Borland.Delphi.SysUtils;
+  {$ELSE}
+  Classes, SysUtils;
+  {$ENDIF DOTNET}
+
+{$IFDEF DOTNET}
+type TSessionID = string;
+{$ELSE}
+type TSessionID = TGUID;
+{$ENDIF DOTNET}
+
+const
+  str_Author      = 'RemObjects Software';
+  str_ProductName = 'RemObjects SDK';
+
+  res_RODLFile = 'RODLFILE';
+
+  CRLF = #13#10;
+
+  HTTPModuleInfoCommand = '/Info';
+
+resourcestring
+  // RODL
+  err_InvalidIndex        = 'Invalid index %d'; // Raised by the RODL classes to indicate an invalid entity index
+  err_InvalidType         = 'Invalid type "%s. Expected "%s""'; // Raised by TRODLComplexEntity.Add when trying to add an invalid class to the internal list
+  err_InvalidLibrary      = 'Invalid library'; // Raised by TRODLConverter.Convert when the library is NIL
+  err_InvalidStream       = 'Invalid stream'; // Raised by TRODLReader.Read when a NIL stream is passed
+  err_InvalidTargetEntity = 'Invalid TargetEntity "%s"'; // Raised by TRODLConverter.Convert when a call to ValidateTargetEntity fails
+  err_InvalidParamFlag    = 'Invalid Parameter Flag "%s"'; // Raised by XMLFlagNameToFlag (unit uRODLToXML) when the specified string is not in XMLFlagNames
+
+  err_InvalidStringLength = 'Stream read error: Invalid string length "%d"'; //
+  err_InvalidBinaryLength = 'Stream read error: Invalid binary length "%d"'; //
+  str_InvalidClassTypeInStream = 'Stream read error: Invalid class type encountered: "%s"';
+  err_ObjectExpectedInStream = 'Stream read error: Object expected, but nil found.';
+  err_UnexpectedEndOfStream = 'Unexpected end of stream.';
+
+  err_MessageClassMustImplementAssign = 'Please implement Assign() for your custom message class.';
+
+  err_InvalidInfo   = 'Invalid or incomplete info.'; // Raised by TRODLEntity.Validate when the internal Info property is not valid
+  err_RodlDuplicateName = 'Duplicate name.'; // Raised by TRODLComplexEntity.Validate when two items have the same name
+  err_RodlNoDataTypeSpecified = 'No data type specified.'; // Raised by TRODLComplexEntity.Validate when two items have the same name
+  err_RodlNoEnumValues = 'Enum does not contain any values.';
+  err_RodlNoStructElementsDefined = 'Struct does not contain any elements.';
+  err_RodlNoOperationsDefined = 'Service interface does not contain any elements.';
+  err_RodlUsedFileDoesNotExist = 'The referenced RODL file "%s" could not be found.';
+  err_RodlInvalidDataType = 'Invalid or undefined data type "%s".';
+  err_RodlStructCannotBeNested = 'Structs cannot recursively contain themselves.';
+  err_RodlInvalidAncestorType = 'Invalid or undefined ancestor type "%s".';
+  err_RodlItemExistsInAnsector = 'An item named "%s" already exists in ancestor "%s".';
+  err_RodlCircularReference = 'Circular reference detected between %s and %s';
+  err_RodlCircularityWarning = 'Contained items have been not checked for name duplicates in ancestors because of the ancestors'' circularity';
+
+  err_UnspecifiedRODLLocation = 'Unspecified RODL location';
+
+  str_ExceptionOnServer = 'An exception of type %s was raised on the server: %s';
+  str_ExceptionReraisedFromServer = 'An exception was raised on the server: %s';
+
+  err_AssignError = 'Cannot assign a "%s" to a "%s".';
+
+  // Message handling
+  err_InvalidRequestStream             = 'Invalid request stream (%d bytes)';
+  err_NILMessage                       = 'Message is NIL'; // Raised server side when a message passed to ProcessMessage is NIL
+  err_UnspecifiedInterface             = 'The message does not have an interface name'; // Raised server side when a message passed to ProcessMessage does not have a valid InterfaceName
+  err_UnspecifiedMessage               = 'The message does not have a name'; // Raised server side when a message passed to ProcessMessage does not have a valid MessageName
+  err_UnknownMethod                    = 'Unknown method %s for interface %s'; // Raised server side when a server interface does not have a method matching the message name   
+  err_ClassFactoryDidNotReturnInstance = 'Class factory did not return an instance of "%s"'; // Raised server side when a class factory returns a NIL reference. It should never happen
+  err_ParameterNotFound                = 'Parameter "%s" was not found';
+  err_AbstractService                  = 'Interface "%s" is declared as an abstract service.';
+
+  // Misc
+  err_NotImplemented                 = 'Not implemented'; // Not implemented error. Should never be happen
+  err_TypeNotSupported               = 'Type "%s" not supported'; // Raised by message classes when the typeinfo of the parameter being read/written is not supported
+  err_ClassFactoryNotFound           = 'Class factory for interface %s not found';
+  err_UnspecifiedTargetURL           = 'Unspecified TargetURL';
+  err_IROMessageNotSupported         = 'Class "%s" does not support IROMessage';
+  err_ClassAlreadyRegistered         = 'Class "%s" is already registered';
+  err_UnknownClass                   = 'Unknown class "%s"';
+  err_UnknownProxyInterface          = 'Unknown proxy interface "%s"';
+  err_UnknownTransportChannelClass   = 'Unknown transport channel class "%s"';
+  err_UnknownMessageClass            = 'Unknown message class "%s"';
+
+  err_DispatcherAlreadyAssigned       = 'Dispatcher for %s already assigned';
+  err_CannotFindMessageDispatcher     = 'Cannot find message dispatcher. Maybe there is no message component configured for the requested path?';
+  err_ServerOnlySupportsOneDispatcher = '%s servers only support one dispatcher';
+  err_UnhandledException              = 'Unhandled exception';
+
+  err_CannotReadRODLWithoutChannel = 'Cannot read RODL information without a channel';
+  err_CannotReadRODLWithoutRemoteService = 'Cannot read RODL information without a remote service';
+
+  err_CannotAssignClass               = 'Cannot Assign a "%s" to a "%s".';
+
+  err_ChannelBusy                     = 'Channel is busy. Try again later.';
+
+  err_DesignTimeProperty              = '%s is a designtime-only property';
+
+  // SOAP
+  err_ExpectedParameterNotFound = 'Expected parameter "%s" was not found.'; // Raised by TROSOAPMessage when an expected parameter was not found
+  err_AmbigousResponse          = 'Ambigous response. Expected one "%s" but %d were received'; // Raised by TROSOAPMessage when two parameters in a a SOAP Envelope have the same name
+  err_InvalidEnvelope           = 'Invalid SOAP Envelope. %s'; // Invalid SOAP envelope. The message is completed with additional information
+  err_InvalidData               = 'Cannot convert data for parameter "%s"'#13'Exception was "%s"'#13'Data was "%s".'; // Error converting the text of the parameter to a Delphi type
+
+  inf_InvalidEnvelopeNode   = 'SOAP Envelope node missing or not root.'; // The SOAP envelope does not match the SOAP specs by not providing an Envelope node
+  inf_AbsentBody            = 'SOAP envelope does not contain a Body.'; // The SOAP envelope does not contain a body
+  inf_AbsentMessage         = 'SOAP Body does not contain a message nor a fault'; // The body does not contain any sub node
+
+  err_ArrayIndexOutOfBounds = 'Array index out of bounds (%d).';
+
+  // BIN
+  err_InvalidHeader           = 'Invalid binary header. Either incompatible or not a binary message.';
+  err_InvalidHeaderEncrypted  = 'Invalid binary header. It seems that encryption is active on the other side of the communication, but not locally?';
+  err_UnknownClassInStream    = 'Unknown class "%s" found in stream.';
+  err_UnexpectedClassInStream = 'Unexpected class found in stream; class "%s" does not descend from "%s".';
+  err_InvalidDateTimeReadFromStream = 'Invalid DateTime read from Stream.';
+
+  // WinMessageChannel
+  err_CannotFindServer = 'Cannot find server "%s"';
+  err_MessagePropertyMustBeSet = 'Message property must be assigned for the server to be active';
+  err_WinMessageFailed = 'Communication with the WinMessage Server failed or timed out (Error Code %d)';
+
+  // WInINet channel
+  err_UnexpectedWinINetProblem = 'Unexpected error in WinInet HTTP Channel (%d)';
+  err_CommunicationWithServerTimedOut = 'Communication with the server timed out (after %sms)';
+
+  // BPDX Channels
+  err_CannotConnectToServer = 'Cannot connect to server "%s"';
+  err_ConnectionError = 'Connection error';
+
+  // Standard Class Factories
+  err_PoolSizeMustBe1orHigher = 'Pool Size must be 1 or higher';
+  err_NoFreeObjectsInPool = 'There are no free objects in the pool for %s, all %d instances are in use. Please try again later.';
+
+  // Misc
+  msg_NoMultipleDispatchers = 'Multiple message dispatchers not supported';
+  err_InvalidStorage = 'Invalid storage';
+  err_ErrorConvertingFloat = 'Error converting float "%s" at byte %d';
+
+  err_SessionNotFound = 'Session %s could not be found';
+
+  err_ChannelDoesntSupportIROMetadataReader = 'Channel does not support IROMetadataReader';
+
+  // Sessions
+  err_TooManySessions = 'Too many sessions. Try again in %d minute(s)';
+
+  // XML
+  err_DOMElementIsNIL  = 'DOMElement is NIL';
+  err_IndexOutOfBounds = 'Index out of bounds';
+  err_CannotLoadXMLDocument = 'Cannot load XML document.'#13'Reason: %s'#13'Line: %d'#13'Position: %d';
+  err_ErrorCreatingMsXmlDoc = 'Error creating MSXML Document class'#13#13'%s: %s';
+  err_NoXMLParsersAvailable = 'MSXML is not installed';
+
+  // Variant conversion
+  err_IDispatchMarshalingNotSupported = 'Marshaling of IDispatch (%d) type variants is not supported.';
+  err_UnsupportedVariantType = 'Unsupported variant type "%d"';
+  err_InvalidBinaryFormat = 'Invalid binary format for a variant';
+  err_VariantIsNotArray = 'Variant must be Array, but is %d';
+  err_InvalidVarArrayDimCount = 'Variant Array DimCount must be 1 but is %d';
+
+  // uRODL and similar collections (see uRODynamicRequest)
+  err_CannotFindParameter = 'Cannot find parameter %s';
+  err_CannotFindService = 'Cannot find service %s';
+  err_RODLResourceNotLoaded = 'RODL resource has not been loaded';
+
+  err_MayNotAddResult = 'Cannot add Result parameter to collection. Use AddResult instead';
+
+  //
+  err_OperationNameNeedsServiceName = 'Cannot set the OperationName without a ServiceName';
+  err_ServiceNameIsNotSet = 'ServiceName is not set';
+
+  err_EventReceivedNotConnectedToMessage = 'The event receiver must be connected to a message component first';
+  err_MessageNotAssigned = 'Message is NIL';
+
+  err_UnknownMessageType = 'Unknown message type "%s"';
+
+  err_MasterServerNeedsChannel = 'No Channel assigned to %s.';
+
+  err_StreamIsReadOnly = 'Stream is read-only.';
+
+  {$IFDEF DOTNET}
+  err_NotImplementedForDotNetYet = 'This function is not yet implemented for .NET yet.';
+  {$ENDIF DOTNET}
+  Err_SessionDoesNotHaveAllRequiredRoles = 'Session does not have all the required roles for this action.';
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSCHelpers.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSCHelpers.pas
new file mode 100644
index 0000000..3f77d68
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSCHelpers.pas	
@@ -0,0 +1,957 @@
+unit uROSCHelpers;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF} SysUtils, Classes, uROClasses, uROClient, uROClientIntf,
+  IdTCPConnection, uROServer , SyncObjs;
+
+type
+  EROTimeout = class(EROException);
+  TROAckState = (rNone, rAck, rNoAck);
+  IROPackageAck = interface
+    ['{89ABD257-42CB-4B4B-9BA6-3E5CED10605B}']
+    function GetEvent: TROEvent;
+    function GetAckNo: Integer;
+    function GetNoAckError: Integer;
+    procedure SetNoAckError(I: Integer);
+    function GetAckState: TROAckState;
+    procedure SetAckState(I: TROAckState);
+
+    property Event: TROEvent read GetEvent;
+    property AckNo: Integer read GetAckNo;
+    property NoAckError: Integer read GetNoAckError write SetNoAckError;
+    property AckState: TROAckState read GetAckState write SetAckState;
+
+    procedure RemoveFromList;
+  end;
+  TROSuperChannelWorker = class
+  private
+    fMaxPackageSize: Integer;
+    fIsServer: Boolean;
+    fConnection: TIdTCPConnection;
+    fWriteLock,
+    fInternalWriteLock: TCriticalSection;
+    fClientID: TGUID;
+    fLastId: Integer;
+    fConnected: Boolean;
+    fLastData: TDateTime;
+
+//    fAckWaitTimeout: Integer;
+    fOtherSideMaxPackageLen: Integer;
+    fWaitingAckList: TInterfaceList;
+    fRemoteSupportsOptions, fRemoteSkipAck, fSkipAck: Boolean;
+    fPingFrequency,
+    fPingTimeout: Integer;
+    procedure SetSkipAck(const Value: Boolean);
+    function Client_SendWelcome: Boolean;
+    function GetOtherSideMaxPackageLen: integer;
+  protected
+    property PingFrequency: Integer read fPingFrequency write fPingFrequency;
+    property PingTimeout: Integer read fPingTimeout write fPingTimeout;
+    property LastData: TDateTime read FLastData;
+    property IsServer: Boolean read fIsServer write fIsServer;
+    procedure Idle; virtual;
+    procedure Connected; virtual;
+    procedure SupportsOptions;
+    function ReadStream(aDest: TStream; aLen: Integer): Boolean;
+    procedure ProcessOption(Data: TStream);
+    procedure Disconnected(var RestartLoop: Boolean); virtual;
+    procedure IncomingData(Id: Integer; aData: TStream); virtual; abstract;
+    function IntSendData(Id: Integer; aData: TStream): IROPackageAck;
+    procedure SetAckDetails(Id: Integer; Oke: Boolean; ErrorNo: Integer); virtual;
+    procedure SendOptions(aData: UTF8String);
+    function GetDefaultResponse: string;virtual;
+  public
+    constructor Create(aConnection: TIdTCPConnection);
+    destructor Destroy; override;
+
+    property ClientID: TGuid read fClientID write fClientID;
+    property Connection: TIdTCPConnection read fConnection;
+
+    // to be called from a thread; will stay checking until disconnected
+    procedure DoExecute;
+
+    procedure Disconnect;
+
+    // Thread safe method
+    procedure SendError(Id: Integer; Error: Byte);
+    procedure BeginWriteLock;
+    function SendPackage(aData: TStream; Id: Integer = 0): IROPackageAck;
+    procedure EndWriteLock;
+    class procedure WaitForAck(pkg: IROPackageAck; Timeout: Integer = 60000);
+    function GenerateId: Integer;
+
+    // properties
+    property MaxPackageSize: Integer read fMaxPackageSize write fMaxPackageSize;
+    property IsConnected: Boolean read fConnected write fConnected;
+    property SkipAck: Boolean read fSkipAck write SetSkipAck;
+  end;
+
+const
+  ScCmdNoAck_MsgTooLarge = 0;
+  ScCmdNoAck_Timeout = 1;
+  scCmdNoAck_UnknownCommand = 2;
+  ScCmdNoAck_QueueFull = 3;
+  ScCmdNoAck_SupportsOptions = 255;
+
+
+implementation
+{$IFDEF RemObjects_INDY10}
+uses
+  IdIOHandler, IdGlobal, IdStackConsts, IdStack, IdSocketHandle;
+{$ENDIF}
+
+const
+  ScWelcome = 'ROSC10';
+
+//  ScCmdHello = 0;
+  {
+    Client:
+      'ROSC10'
+      [MyGuid] or [NullGuid]
+      MaxPackageLength: Int32;
+    Server:
+      'ROSC10'
+      [YourGuid] or [NewGuid]
+      MaxPackageLength: Int32;
+  }
+  ScCmdPackage = 1;
+  {
+    Request or Event Id: Int32; (Event < 0; Request/Response > 0)
+    Length: Int32;
+    Data: [...]
+  }
+  ScCmdAck = 2;
+  {
+    Id: Integer;
+  }
+  ScCmdNoAck = 3;
+  {
+    Id: Integer;
+    Error:
+      0 = Message too large
+      1 = Timeout
+  }
+
+  ScCmdPing = 4;
+  { Should be sent every 60 seconds by the client
+     RandomNumber: Integer;
+  }
+  ScCmdPong = 5;
+  { Reply to ping
+    OriginalRandomNumber: Integer;
+  }
+  ScCmdOptions = 6;
+  {
+    Length: Longint
+    Data: array of 0..Length -1 of byte
+    UTF8 encoded, seperated by #13
+  }
+
+
+
+type
+  TROPackageAck = class(TInterfacedObject, IROPackageAck)
+  private
+    fEvent: TROEvent;
+    fAckNo,
+    FAckNoError: Integer;
+    FAckState: TROAckState;
+    FOwner: TROSuperChannelWorker;
+  public
+    function GetEvent: TROEvent;
+    function GetAckNo: Integer;
+    function GetNoAckError: Integer;
+    procedure SetNoAckError(I: Integer);
+    function GetAckState: TROAckState;
+    procedure SetAckState(I: TROAckState);
+
+    constructor Create(aOwner: TROSuperChannelWorker; aId: Integer);
+    destructor Destroy; override;
+
+    procedure RemoveFromList;
+  end;
+
+{ TROSuperChannelWorker }
+
+constructor TROSuperChannelWorker.Create(aConnection: TIdTCPConnection);
+begin
+  inherited Create;
+  fPingFrequency := 60;
+  fPingTimeout := 90;
+  fConnection := aConnection;
+  fWriteLock := TCriticalSection.Create;
+  fInternalWriteLock := TCriticalSection.Create;
+  fMaxPackageSize := 10 * 1024 * 1024; // 10mb
+  fWaitingAckList:= TInterfaceList.Create;
+end;
+
+destructor TROSuperChannelWorker.Destroy;
+var
+  i: Integer;
+begin
+  BeginWriteLock;
+  try
+    fWaitingAckList.Lock;
+    try
+      for i := fWaitingAckList.Count -1 downto 0 do
+        IROPackageAck(fWaitingAckList[i]).RemoveFromList;
+    finally
+      fWaitingAckList.Unlock;
+    end;
+    fWaitingAckList.Free;
+    fInternalWriteLock.Free;
+    inherited Destroy;
+  finally
+    EndWriteLock;
+    fWriteLock.Free;
+  end;
+end;
+
+{$IFDEF RemObjects_INDY10}
+  type
+    TINDY10IdSocketHandle = class(TIdSocketHandle)
+    end;
+{$ENDIF}
+procedure TROSuperChannelWorker.Disconnect;
+begin
+  {$IFDEF RemOBjects_INDY8}
+  fConnection.Binding.CloseSocket();
+  {$ELSE}
+    {$IFDEF RemObjects_INDY10}
+    //if assigned(fConnection.Socket) and (fConnection.Socket.Connected) then
+    //fConnection.Socket.Close;
+    if assigned(fConnection.Socket) and (fConnection.Socket.Connected) then begin
+      fConnection.Socket.InputBuffer.Clear;
+      if Assigned(fConnection.Socket.Binding) and (fConnection.Socket.Binding.Handle <> 0) then begin
+        GStack.Disconnect(fConnection.Socket.Binding.Handle);
+        TINDY10IdSocketHandle(fConnection.Socket.Binding).SetHandle(Id_INVALID_SOCKET);
+      end;
+    end;
+    {$ELSE}
+    fConnection.DisconnectSocket;
+    {$ENDIF}
+  {$ENDIF}
+end;
+
+{$IFDEF RemObjects_INDY10}
+type
+  TIndy10IOHandlerHack = class(TIdIOHandler)
+  public
+    function ReadFromStack(ARaiseExceptionIfDisconnected: Boolean = True;
+     ATimeout: Integer = IdTimeoutDefault;
+     ARaiseExceptionOnTimeout: Boolean = True): Integer;
+  end;
+
+function TIndy10IOHandlerHack.ReadFromStack(ARaiseExceptionIfDisconnected: Boolean = True;
+     ATimeout: Integer = IdTimeoutDefault;
+     ARaiseExceptionOnTimeout: Boolean = True): Integer;
+begin
+  Result := ReadFromSource(ARaiseExceptionIfDisconnected, ATimeout, ARaiseExceptionOnTimeout)
+end;
+
+procedure Indy10ReadBuffer(aConnection: TIdTCPConnection; var Data; Len: Longint);
+var
+  LBytes: TidBytes;
+begin
+  SetLength(lBytes, Len);
+  aConnection.IOHandler.ReadBytes(LBytes, Len, False);
+  if Length(lBytes) <> len then raise exception.Create('Not enough data available');
+  Move(lBytes[0], Data, Len);
+end;
+procedure Indy10WriteBuffer(aConnection: TIdTCPConnection; const Data; Len: Longint);
+var
+  lBytes: TidBytes;
+begin
+  SetLength(lBytes, Len);
+  move(Data, lBytes[0], Len);
+  if aConnection.IOHandler <> nil then
+    aConnection.IOHandler.Write(lBytes);
+end;
+
+{$ENDIF}
+
+procedure TROSuperChannelWorker.Connected;
+var
+  b: array[0..5] of byte;
+begin
+  fConnected := True;
+  b[0] := ScCmdNoAck;
+  b[1] := 0;
+  b[2] := 0;
+  b[3] := 0;
+  b[4] := 0;
+  b[5] := ScCmdNoAck_SupportsOptions;
+  {$IFDEF RemObjects_INDY10}
+  Indy10WriteBuffer(fConnection, b, sizeof(b));
+  {$ELSE}
+  fConnection.WriteBuffer(b, sizeof(b));
+  {$ENDIF}
+end;
+
+
+procedure TROSuperChannelWorker.Disconnected(var RestartLoop: Boolean);
+begin
+  if RestartLoop then fConnected := False else //for preventing warnings in FPC
+  fConnected := False;
+end;
+
+procedure TROSuperChannelWorker.DoExecute;
+var
+  fLastPackage: DateTime;
+  lServerExpectAck: Integer;
+  lTmpId,
+  lTmpLen: Integer;
+  cmd: Byte;
+  Bl: array[0..5] of Byte;
+  lData: TMemoryStream;
+  lRetry: Boolean;
+begin
+  {$IFDEF RemObjects_INDY10}
+    fConnection.Socket.UseNagle := False;
+  {$ELSE}
+    lTmpId := 1; // Indy 8 and 9 have the UseNagle property too, but it doesn't do anything.
+    fConnection.{$IFDEF RemObjects_INDY9}Socket.{$ENDIF}Binding.SetSockOpt(6, 1, @lTmpId, 4);
+  {$ENDIF}
+  repeat
+    fRemoteSkipAck := false;
+    fRemoteSupportsOptions := false;
+    lServerExpectAck := 0;
+    try
+      if IsServer then
+      begin
+
+        if fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}ReadString(6) <> ScWelcome then
+        begin
+          fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(GetDefaultResponse);
+          fConnection.Disconnect;
+          exit;
+        end;
+        {$IFDEF RemObjects_INDY10}
+        Indy10ReadBuffer(fConnection, fClientID, Sizeof(fClientID));
+        {$ELSE}
+        fConnection.ReadBuffer(fClientID, Sizeof(fClientID));
+        {$ENDIF}
+        if IsEqualGUID(fClientID, EmptyGUID) then
+          fClientID := NewGuid;
+        fOtherSideMaxPackageLen := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+        fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(ScWelcome);
+        {$IFDEF RemObjects_INDY10}
+        Indy10WriteBuffer(fConnection, fClientID, sizeof(FClientID));
+        {$ELSE}
+        fConnection.WriteBuffer(fClientID, sizeof(fClientID));
+        {$ENDIF}
+        fConnection.{$IFDEF RemObjects_INDY10}IOHandler.Write{$ELSE}WriteInteger{$ENDIF}(fMaxPackageSize, false);
+      end else begin
+       (*
+        fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(ScWelcome);
+        {$IFDEF RemObjects_INDY10}
+        Indy10WriteBuffer(fConnection, fClientID, sizeof(FClientID));
+        {$ELSE}
+        fConnection.WriteBuffer(fClientID, sizeof(fClientID));
+        {$ENDIF}
+        fConnection.{$IFDEF RemObjects_INDY10}IOHandler.Write{$ELSE}WriteInteger{$ENDIF}(fMaxPackageSize, false);
+
+        if fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}ReadString(6) <> ScWelcome then
+        begin
+          fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(GetDefaultResponse);
+          fConnection.Disconnect;
+          exit;
+        end;
+        {$IFDEF RemObjects_INDY10}
+        Indy10ReadBuffer(fConnection, fClientID, Sizeof(fClientID));
+        {$ELSE}
+        fConnection.ReadBuffer(fClientID, Sizeof(fClientID));
+        {$ENDIF}
+        fOtherSideMaxPackageLen := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+        *)
+        if Client_SendWelcome then Exit;
+      end;
+      fLastPackage := Now;
+      Connected;
+
+      while fConnection.Connected do
+      begin
+        if fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}
+        {$IFDEF RemObjects_INDY8}CurrentReadBufferSize{$ELSE}InputBuffer.Size{$ENDIF} = 0 then // check for data
+          {$IFDEF RemObjects_INDY10}TIndy10IOHandlerHack(fConnection.IOHandler).ReadFromStack{$ELSE}fConnection.ReadFromStack{$ENDIF}(false, (fPingFrequency * 10 div 25) * 1000, {$IFDEF RemObjects_INDY8}true{$ELSE}false{$ENDIF});
+        if fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}
+        {$IFDEF RemObjects_INDY8}CurrentReadBufferSize{$ELSE}InputBuffer.Size{$ENDIF} > 0 then begin // we got data
+          fLastPackage := Now;
+          {$IFDEF RemObjects_INDY8}
+          fConnection.ReadBuffer(cmd, 1);
+          {$ELSE}
+          cmd := ord(fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}ReadChar);
+          {$ENDIF}
+          case cmd of
+            ScCmdPong:
+              begin
+                if fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false) = lServerExpectAck then
+                begin
+                  lServerExpectAck  := 0;
+                end;
+              end;
+            ScCmdPing:
+              begin
+                Bl[0] := ScCmdPong;
+                lTmpId := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+                Move(ltmpId, bl[1], 4);
+                fInternalWriteLock.Acquire;
+                try
+                {$IFDEF RemObjects_INDY10}
+                  Indy10WriteBuffer(fConnection, Bl, 5);
+                {$ELSE}
+                  fConnection.WriteBuffer(Bl, 5);
+                {$ENDIF}
+                finally
+                  fInternalWriteLock.Release;
+                end;
+              end;
+            ScCmdAck:
+              begin
+                lTmpId := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+                SetAckDetails(lTmpId, true, 0);
+              end;
+            ScCmdNoAck:
+              begin
+                lTmpId := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+                {$IFDEF RemObjects_INDY8}
+                  fConnection.ReadBuffer(cmd, 1);
+                {$ELSE}
+                  cmd := byte(fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}ReadChar);
+                {$ENDIF}
+                if cmd = ScCmdNoAck_SupportsOptions then
+                  SupportsOptions
+                else
+                SetAckDetails(lTmpId, false, cmd);
+              end;
+            ScCmdOptions:
+              begin
+                lTmpLen := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+                if lTmpLen > fMaxPackageSize then
+                begin
+                  fInternalWriteLock.Acquire;
+                  try
+                    fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(Chr(ScCmdNoAck)+#0#0#0#0+chr(ScCmdNoAck_MsgTooLarge));
+                  finally
+                    fInternalWriteLock.Release;
+                  end;
+                  fConnection.Disconnect;
+                  break;
+                end else begin
+                  lData := TMemoryStream.Create;
+                  try
+                    if not ReadStream(lData, lTmpLen) then break;
+                    ProcessOption(lData);
+                  finally
+                    lData.Free; // only free when we failed to send the data to the queue
+                  end;
+                  fLastPackage := Now; // for packages that might take longer.
+                end;
+              end;
+            ScCmdPackage:
+              begin
+                fLastData := Now;
+                lTmpId := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+                lTmpLen := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+                if lTmpLen < 0 then
+                begin
+                fInternalWriteLock.Acquire;
+                    try
+                    fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(Chr(ScCmdNoAck)+#0#0#0#0+chr(scCmdNoAck_UnknownCommand));
+                  finally
+                    fInternalWriteLock.Release;
+                  end;
+                  fConnection.Disconnect;
+                  break;
+                end;
+                if lTmpLen > fMaxPackageSize then
+                begin
+                  fInternalWriteLock.Acquire;
+                  try
+                    fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(Chr(ScCmdNoAck)+#0#0#0#0+chr(ScCmdNoAck_MsgTooLarge));
+                  finally
+                    fInternalWriteLock.Release;
+                  end;
+                  fConnection.Disconnect;
+                  break;
+                end else begin
+                  lData := TMemoryStream.Create;
+                  try
+                    if not ReadStream(lData, lTmpLen) then break;
+                    lData.Seek(0, soFromBeginning);
+                    Self.IncomingData(lTmpId, lData);
+                  except
+                    lData.Free; // only free when we failed to send the data to the queue
+                    fInternalWriteLock.Acquire;
+                    try
+                      fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(Chr(ScCmdNoAck));
+                      {$IFDEF RemObjects_INDY10}
+                      fConnection.IOHandler.Write(lTmpId, false);
+                      {$ELSE}
+                      fConnection.WriteInteger(lTmpId, false);
+                      {$ENDIF}
+                      fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(Chr(ScCmdNoAck_QueueFull));
+                    finally
+                      fInternalWriteLock.Release;
+                    end;
+                  end;
+                  if not fRemoteSkipAck then begin
+                  fInternalWriteLock.Acquire;
+                  try
+                    bl[0] := ScCmdAck;
+                    Move(lTmpId, bl[1], 4);
+                    {$IFDEF RemObjects_INDY10}
+                      Indy10WriteBuffer(fConnection, Bl, 5);
+                    {$ELSE}
+                      fConnection.WriteBuffer(Bl, 5);
+                    {$ENDIF}
+                  finally
+                    fInternalWriteLock.Release;
+                    end;
+                  end;
+                  fLastPackage := Now; // for packages that might take longer.
+                end;
+              end;
+          end;
+        end else begin
+          Idle;
+          if IsServer then
+          begin
+            if ((Now - fLastPackage) > (PingTimeout * (1.0 / (24 * 60 * 60)))) and (fConnection.Connected) then
+            begin
+              fInternalWriteLock.Acquire;
+              try
+                fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(Chr(ScCmdNoAck)+#0#0#0#0+chr(ScCmdNoAck_Timeout));
+                fConnection.Disconnect;
+              finally
+                fInternalWriteLock.Release;
+              end;
+              break;
+            end;
+          end else
+          begin
+            if (lServerExpectAck <> 0) and (fConnection.Connected) then
+            begin
+              if (Now - fLastPackage) > (PingTimeout * (1.0 / (24 * 60 * 60))) then
+              begin
+                fInternalWriteLock.Acquire;
+                try
+                  fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(Chr(ScCmdNoAck)+#0#0#0#0+chr(ScCmdNoAck_Timeout));
+                  fConnection.Disconnect;
+                finally
+                  fInternalWriteLock.Release;
+                end;
+                break;
+              end;
+            end else begin
+              if (Now - fLastPackage) > (PingFrequency * (1.0 / (24 * 60 * 60))) then begin
+                lServerExpectAck := GetTickCount;
+                if lServerExpectAck = 0 then lServerExpectAck := 1;
+                bl[0] := ScCmdPing;
+                Move(lServerExpectAck, bl[1], 4);
+                fInternalWriteLock.Acquire;
+                try
+                  {$IFDEF RemObjects_INDY10}
+                    Indy10WriteBuffer(fConnection, Bl, 5);
+                  {$ELSE}
+                  fConnection.WriteBuffer(bl, 5);
+                  {$ENDIF}
+                finally
+                  fInternalWriteLock.Release;
+                end;
+              end;
+            end;
+          end;
+        end;
+      end;
+    except
+    end;
+    lRetry := false;
+    try
+      Disconnect;
+    except
+    end;
+    Disconnected(lRetry);
+  until not lRetry;
+end;
+
+function TROSuperChannelWorker.GenerateId: Integer;
+begin
+  fWriteLock.Acquire;
+  try
+    if IsServer then
+    begin
+      fLastId := fLastId - 1;
+      if fLastId > -1 then fLastId := -1;
+    end
+    else
+    begin
+      fLastId := fLastId + 1;
+      if fLastId < 1 then fLastId := 1;
+    end;
+    Result := fLastId;
+  finally
+    fWriteLock.Release;
+  end;
+end;
+
+procedure TROSuperChannelWorker.Idle;
+begin
+
+end;
+
+function TROSuperChannelWorker.IntSendData(Id: Integer; aData: TStream): IROPackageAck;
+var
+  Buffer: array[0.. 2047] of byte;
+  Len: Integer;
+begin
+  fLastData := Now;
+  Result := TROPackageAck.Create(Self, Id);
+  fWaitingAckList.Add(Result);
+  Buffer[0] := ScCmdPackage;
+  Move(Id, Buffer[1], 4);
+  Len := aData.Size;
+  Move(Len, Buffer[5], 4);
+
+  aData.Seek(0, soFromBeginning);
+
+  fInternalWriteLock.Acquire;
+  try
+    Len := aData.Read(Buffer[9], sizeof(Buffer) - 9);
+    {$IFDEF RemObjects_INDY10}
+    Indy10WriteBuffer(fConnection, Buffer, Len + 9);
+    {$ELSE}
+    fConnection.WriteBuffer(Buffer, Len + 9);
+    {$ENDIF}
+    if Len > 0 then begin
+      repeat
+        Len := aData.Read(Buffer[0], Sizeof(Buffer));
+        {$IFDEF RemObjects_INDY10}
+        Indy10WriteBuffer(fConnection, Buffer, Len);
+        {$ELSE}
+        fConnection.WriteBuffer(Buffer[0], Len);
+        {$ENDIF}
+        fLastData := Now;
+      until Len = 0;
+    end;
+  finally
+    fInternalWriteLock.Release;
+  end;
+end;
+
+procedure TROSuperChannelWorker.ProcessOption(Data: TStream);
+var
+  lCmd, lData: UTF8String;
+  lPos: Integer;
+begin
+  SetLength(lData, Data.Size);
+  Data.Position := 0;
+  Data.Read(lData[1], Length(lData));
+  lPos := Pos(AnsiChar(#13), lData);
+  if lPos = 0 then begin
+    lCmd := lData;
+    lData := '';
+  end else begin
+    lCmd := copy(lData, 1, lPos-1);
+    Delete(lData, 1, lPos);
+  end;
+  if lCmd = 'SKIPACK' then begin
+    fRemoteSkipAck := lData <> 'OFF';
+  end;
+end;
+
+procedure TROSuperChannelWorker.SendError(Id: Integer; Error: Byte);
+var
+  Buffer: array[0..5] of Byte;
+begin
+  buffer[0] := ScCmdNoAck;
+  Move(ID, Buffer[1], 4);
+  Buffer[5] := Error;
+  fInternalWriteLock.Acquire;
+  try
+    {$IFDEF RemObjects_INDY10}
+    Indy10WriteBuffer(fConnection, Buffer, 6);
+    {$ELSE}
+    fConnection.WriteBuffer(Buffer, 6);
+    {$ENDIF}
+  finally
+    fInternalWriteLock.Release;
+  end;
+end;
+
+procedure TROSuperChannelWorker.SendOptions(aData: UTF8String);
+var
+  Buffer: array of byte;
+  Len: Integer;
+begin
+  fWriteLock.Acquire;
+  try
+    fLastData := Now;
+    SetLength(Buffer, Length(aData)+5);
+    Buffer[0] := ScCmdOptions;
+    Len := Length(aData);
+    Move(Len, Buffer[1], 4);
+    Move(aData[1], Buffer[5], Length(aDAta));
+
+    fInternalWriteLock.Acquire;
+    try
+      {$IFDEF RemObjects_INDY10}
+      Indy10WriteBuffer(fConnection, Buffer[0], Length(Buffer));
+      {$ELSE}
+      fConnection.WriteBuffer(Buffer[0], Length(Buffer));
+      {$ENDIF}
+    finally
+      fInternalWriteLock.Release;
+    end;
+
+  finally
+    fWriteLock.Release;
+  end;
+end;
+
+function TROSuperChannelWorker.SendPackage(aData: TStream; Id: Integer = 0): IROPackageAck;
+begin
+  if GetOtherSideMaxPackageLen < aData.Size then begin
+    raise EROException.Create('Package too large');
+  end
+  else begin
+    fWriteLock.Acquire;
+    try
+      if Id = 0 then
+      begin
+        id := GenerateId;
+      end;
+      Result := IntSendData(Id, aData);
+    finally
+      fWriteLock.Release;
+    end;
+  end;
+end;
+
+procedure TROSuperChannelWorker.SetAckDetails(Id: Integer; Oke: Boolean;
+  ErrorNo: Integer);
+var
+  i: Integer;
+  rp: IROPackageAck;
+begin
+  fWaitingAckList.Lock;
+  try
+    for i := fWaitingAckList.Count -1 downto 0 do
+    begin
+      if IROPackageAck(fWaitingAckList[i]).AckNo = Id then
+      begin
+        rp := IROPackageAck(fWaitingAckList[i]);
+        rp.RemoveFromList;
+
+        rp.NoAckError := ErrorNo;
+        if Oke then
+          rp.AckState := rAck
+        else
+          rp.AckState := rNoAck;
+        rp.Event.SetEvent;
+        exit;
+      end;
+    end;
+  finally
+    fWaitingAckList.Unlock;
+  end;
+end;
+
+procedure TROSuperChannelWorker.SetSkipAck(const Value: Boolean);
+begin
+  fSkipAck := Value;
+end;
+
+procedure TROSuperChannelWorker.SupportsOptions;
+begin
+  if fSkipAck then SendOptions('SKIPACK'#13'ON');
+  fRemoteSupportsOptions := true;
+end;
+
+class procedure TROSuperChannelWorker.WaitForAck(pkg: IROPackageAck; Timeout: Integer = 60000);
+begin
+  try
+    if pkg.Event = nil then exit; // skipack
+
+    if pkg.Event.WaitFor(Timeout) <> wrSignaled then
+      raise EROTimeout.Create('Timeout');
+    if pkg.AckState <> rAck then
+    begin
+      case pkg.NoAckError of
+        ScCmdNoAck_MsgTooLarge: raise eROMessageTooLarge.Create('Message too large');
+      else
+        raise EROException.Create('Unknown error');
+      end;
+    end;
+  finally
+    pkg.RemoveFromList;
+  end;
+end;
+
+procedure TROSuperChannelWorker.BeginWriteLock;
+begin
+  fWriteLock.Acquire;
+end;
+
+procedure TROSuperChannelWorker.EndWriteLock;
+begin
+  fWriteLock.Release;
+end;
+
+function TROSuperChannelWorker.ReadStream(aDest: TStream; aLen: Integer): Boolean;
+var
+  Buf: array[0 .. 4096-1] of byte;
+  lRes: Integer;
+begin
+  aDest.Position := 0;
+  aDest.Size := 0;
+  while aLen > 0 do begin
+    lRes := aLen;
+    if lRes > sizeof(buf) then lRes := Sizeof(Buf);
+    {$IFDEF RemObjects_INDY10}
+    Indy10ReadBuffer(fConnection, Buf, lRes);
+    {$ELSE}
+    fConnection.ReadBuffer(Buf, lRes);
+    {$ENDIF}
+    aLen := aLen - lRes;
+    aDest.Write(Buf, lRes);
+    fLastData := now;
+  end;
+  Result := true;
+end;
+
+function TROSuperChannelWorker.GetDefaultResponse: string;
+begin
+  Result := 'ROSC:Invalid connection string';
+end;
+
+function TROSuperChannelWorker.Client_SendWelcome: Boolean;
+begin
+  Result:= False;
+  fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(ScWelcome);
+  {$IFDEF RemObjects_INDY10}
+  Indy10WriteBuffer(fConnection, fClientID, sizeof(FClientID));
+  {$ELSE}
+  fConnection.WriteBuffer(fClientID, sizeof(fClientID));
+  {$ENDIF}
+  fConnection.{$IFDEF RemObjects_INDY10}IOHandler.Write{$ELSE}WriteInteger{$ENDIF}(fMaxPackageSize, false);
+
+  if fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}ReadString(6) <> ScWelcome then
+  begin
+    fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}Write(GetDefaultResponse);
+    fConnection.Disconnect;
+    Result := True;
+    exit;
+  end;
+  {$IFDEF RemObjects_INDY10}
+  Indy10ReadBuffer(fConnection, fClientID, Sizeof(fClientID));
+  {$ELSE}
+  fConnection.ReadBuffer(fClientID, Sizeof(fClientID));
+  {$ENDIF}
+  fOtherSideMaxPackageLen := fConnection.{$IFDEF RemObjects_INDY10}IOHandler.{$ENDIF}{$IFDEF RemObjects_INDY10C}ReadLongInt{$ELSE}ReadInteger{$ENDIF}(false);
+end;
+
+function TROSuperChannelWorker.GetOtherSideMaxPackageLen: integer;
+var
+  RestartLoop: boolean;
+begin
+  if (fOtherSideMaxPackageLen = 0) and not IsServer then begin
+    RestartLoop:= False;
+    Disconnected(RestartLoop);
+    Client_SendWelcome;
+  end;
+  Result := fOtherSideMaxPackageLen;
+end;
+
+{ TROPackageAck }
+
+constructor TROPackageAck.Create(aOwner: TROSuperChannelWorker; aId: Integer);
+begin
+  inherited Create;
+  if not (aOwner.fSkipAck and aOwner.fRemoteSupportsOptions) then
+  fEvent := TROEvent.Create(nil, true, false, '');
+  fAckNo := aId;
+  FOwner := aOwner;
+//  if FOwner <> nil then FOwner.fWaitingAckList.Add(Self as IROPackageAck);
+end;
+
+destructor TROPackageAck.Destroy;
+begin
+  fEvent.Free;
+  inherited;
+end;
+
+function TROPackageAck.GetAckNo: Integer;
+begin
+  result := fAckNo;
+end;
+
+function TROPackageAck.GetAckState: TROAckState;
+begin
+  Result := FAckState;
+end;
+
+function TROPackageAck.GetEvent: TROEvent;
+begin
+  Result := fEvent;
+end;
+
+function TROPackageAck.GetNoAckError: Integer;
+begin
+ Result := FAckNoError;
+end;
+
+{$ifndef fpc}
+function InterlockedExchangePointer(var Target: Pointer; Value: Pointer): Pointer;
+begin
+  Result := Pointer(InterlockedExchange(Integer(Target), Integer(Value)));
+end;
+{$else}
+function InterlockedExchangePointer(var Target: Pointer; Value: Pointer): Pointer;
+begin
+  {$IFDEF CPU64}
+  result := Pointer(InterlockedExchange64(PtrInt(target), PtrInt(value)));
+  {$ELSE}
+  result := Pointer(InterlockedExchange(PtrInt(target), PtrInt(value)));
+  {$ENDIF}
+end;
+{$endif}
+
+procedure TROPackageAck.RemoveFromList;
+var
+  lOwner: TROSuperChannelWorker;
+begin
+  lOwner := InterlockedExchangePointer(Pointer(FOwner), nil);
+  if lOwner <> nil then
+  begin
+    lOwner.fWaitingAckList.Remove(self as IROPackageAck);
+  //  lOwner := nil;
+  end;
+end;
+
+procedure TROPackageAck.SetAckState(I: TROAckState);
+begin
+  FAckState := I;
+end;
+
+procedure TROPackageAck.SetNoAckError(I: Integer);
+begin
+  FAckNoError := i;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSOAPMessage.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSOAPMessage.pas
new file mode 100644
index 0000000..2639aa6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSOAPMessage.pas	
@@ -0,0 +1,1147 @@
+unit uROSOAPMessage;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, Variants, uROClient, uROClientIntf, uROTypes, TypInfo, SysUtils, uROXMLIntf,
+  uROSerializer, uROXMLSerializer;
+
+type TAttribute = record
+       Name, Value : string;
+     end;
+
+const
+  EncodingStyle = 'http://schemas.xmlsoap.org/soap/encoding/';
+  EnvelopeStyle = 'http://schemas.xmlsoap.org/soap/envelope/';
+  TempURI = 'http://tempuri.org/';
+
+  Namespace_Env = 'env';
+
+  id_FaultCode   = 'faultcode';
+  id_FaultString = 'faultstring';
+  id_FaultActor  = 'faultactor';
+  id_FaultDetail = 'detail';
+  id_FaultCode12   = 'Code';
+  id_FaultString12 = 'Reason';
+  id_FaultDetail12 = 'Detail';
+
+  id_ClientID = 'ROClientID';
+
+  HeaderNameSpace = 'HNS';
+
+  Namespace_xsd = 'http://www.w3.org/2001/XMLSchema';
+  Namespace_xsi = 'http://www.w3.org/2001/XMLSchema-instance';
+  Namespace_soap11 = 'http://schemas.xmlsoap.org/soap/envelope/';
+  Namespace_soap12 = 'http://www.w3.org/2003/05/soap-envelope';
+  Namespace_soap12Alt = 'http://www.w3.org/2003/05/soap-envelope/';
+
+
+type
+  { Misc }
+  TROSOAPMessage = class;
+
+  TSOAPFaultEvent = procedure(const aFaultNode : IXMLNode;
+                              const aFaultCode, aFaultString, aFaultActor, aFaultDetail : string) of object;
+
+  TROEnvelopeCompleteEvent = procedure(Sender : TROSOAPMessage) of object;
+  TROAttributeWriteEvent = procedure(Sender : TROSOAPMessage; var AttributeName : string; var AttributeValue : variant; var CanWrite : boolean) of object;
+
+  { TROSOAPMessage }
+
+  IROSOAPMessage = interface(IROMessage)
+  ['{30F638D3-FD52-44D2-80D5-6A877F2877CE}']
+    function GetEnvNode : IXMLNode;
+    function GetBodyNode : IXMLNode;
+    function GetMessageNode: IXMLNode;
+    function GetFaultNode : IXMLNode;
+    function GetHeader : IXMLNode;
+    function GetLibraryName: string;
+
+    property EnvelopeNode : IXMLNode read GetEnvNode;
+    property BodyNode: IXMLNode read GetBodyNode;
+    property MessageNode: IXMLNode read GetMessageNode;
+    property FaultNode : IXMLNode read GetFaultNode;
+    property HeaderNode : IXMLNode read GetHeader;
+    property LibraryName: string read GetLibraryName;
+  end;
+
+  TROSoapMode = (sRPCEncoding, sRPCLiteral, sDocumentLiteral, sUnknown);
+  { TROSOAPMessage }
+  TROSOAPMessage = class(TROMessage, IROModuleInfo, IROSOAPMessage, IRONamedModuleInfo)
+  private
+    fXMLMessage : IXMLDocument;
+
+    fEnvNode,
+    fBodyNode,
+    fHeaderNode,
+    fMessageNode,
+    fFaultNode : IXMLNode;
+    fCustomLocation: string;
+
+    fOnSOAPFault: TSOAPFaultEvent;
+    fLibraryName: string;
+    fOnEnvelopeComplete: TROEnvelopeCompleteEvent;
+    fExceptionRemap: TStrings;
+
+    fSoapAction,
+    fServiceName,
+    fFaultNameSpace : string;
+    fOnWriteEnvelopeAttribute: TROAttributeWriteEvent;
+    fInputNamespace,
+    fOverrideInputName,
+    fOverrideOutputName: string;
+    fServerTargetNamespace, fTargetNamespace: string;
+    fTargetLocationWasSet: Boolean;
+    fOnAfterParseEnvelope,
+    fOnBeforeParseEnvelope: TNotifyEvent;
+    fNeedInit: Boolean;
+    fInitStr: string;
+
+    fChInNs, fChOutNs: string;
+
+    function ParseEnvelope : boolean;
+    function FindRemap(const s: string): string;
+    function GetHeader: IXMLNode;
+    function GetSerializationOptions: TROXMLSerializationOptions;
+    procedure SetSerializationOptions(const Value: TROXMLSerializationOptions);
+    procedure SetLibraryName(const Value: string);
+    function GetBodyNode: IXMLNode;
+    function GetEnvNode: IXMLNode;
+    function GetFaultNode: IXMLNode;
+    function GetMessageNode: IXMLNode;
+    function GetLibraryName: string;
+    function GetSoapMode: TROSoapMode;
+    procedure SetSoapMode(const Value: TROSoapMode);
+    function GetXMLMessage: IXMLDocument;
+  protected
+    { Internals }
+    procedure InitObject; override;
+    function CreateSerializer : TROSerializer; override;
+    function ReadException : Exception; override;
+    procedure WriteException(aStream : TStream; anException : Exception); override;
+
+    { IROMessage }
+    procedure Initialize(const aTransport : IROTransport; const anInterfaceName, aMessageName : string; aType: TMessageType); overload; override;
+    procedure Initialize(const aTransport : IROTransport; const aLibraryName, anInterfaceName, aMessageName : string; aType: TMessageType); overload; override;
+
+
+    procedure WriteAttribute(attrname: string; attrvalue: variant);
+    procedure Finalize; override;
+    procedure WriteToStream(aStream : TStream); override;
+    procedure ReadFromStream(aStream : TStream); override;
+
+    { IROModuleInfo }
+    procedure GetModuleInfo(aStream : TStream; const aTransport : IROTransport; var aFormat : TDataFormat); override;
+
+    function ModuleInfoName: string;
+    procedure InitializeExceptionMessage(const aTransport: IROTransport;
+      const aLibraryName: String; const anInterfaceName: String;
+      const aMessageName: String); override;
+
+    procedure SetAttributes(aTransport: IROTransport;
+      const aNames: array of String; const aValues: array of String); override;
+    procedure UnsetAttributes(aTransport: IROTransport);  override;
+    procedure InitializeRead(const aTransport: IROTransport); override;
+  public
+    destructor Destroy; override;
+
+    property EnvelopeNode : IXMLNode read GetEnvNode;
+    property BodyNode: IXMLNode read GetBodyNode;
+    property MessageNode: IXMLNode read GetMessageNode;
+    property FaultNode : IXMLNode read GetFaultNode;
+    property HeaderNode : IXMLNode read GetHeader;
+
+    procedure Assign(iSource:TPersistent); override;
+    property LibraryName : string read GetLibraryName write SetLibraryName;
+    function IsValidMessage(aData: PAnsiChar; aLength: Integer): boolean; override;
+  published
+    property CustomLocation : string read fCustomLocation write fCustomLocation;
+    property ServerTargetNamespace : string read fServerTargetNamespace write fServerTargetNamespace;
+    property SerializationOptions : TROXMLSerializationOptions read GetSerializationOptions write SetSerializationOptions;
+    property OnSOAPFault : TSOAPFaultEvent read fOnSOAPFault write fOnSOAPFault;
+    property OnEnvelopeComplete : TROEnvelopeCompleteEvent read fOnEnvelopeComplete write fOnEnvelopeComplete;
+    property OnWriteEnvelopeAttribute : TROAttributeWriteEvent read fOnWriteEnvelopeAttribute write fOnWriteEnvelopeAttribute;
+    property OnAfterParseEnvelope: TNotifyEvent read fOnAfterParseEnvelope write fOnAfterParseEnvelope;
+    property OnBeforeParseEnvelope: TNotifyEvent read fOnBeforeParseEnvelope write fOnBeforeParseEnvelope;
+    property SoapMode: TROSoapMode read GetSoapMode write SetSoapMode stored false;
+  end;
+
+
+implementation
+
+uses {$IFDEF DELPHI5}ComObj,{$ENDIF} // for StringToGuid and vice-versa
+     uRORes, uRODL, uRODLToXML, uRODLToWSDL, uROHTTPTools, uROClasses;
+
+{ TROSOAPMessage }
+procedure TROSOAPMessage.InitObject;
+begin
+  inherited;
+  fServerTargetNamespace := '';
+  fXMLMessage := NewROXmlDocument;
+  fNeedInit:= True;
+  fInitStr:=tag_Envelope;
+//  fXMLMessage.New(tag_Envelope);
+  fExceptionRemap := TStringList.Create;
+end;
+
+procedure TROSOAPMessage.Initialize(const aTransport : IROTransport; const anInterfaceName, aMessageName: string; aType: TMessageType);
+var
+  lInterfaceName,
+  lMessageName: String;
+  lHttp: IROHTTPTransport;
+begin
+  inherited;
+  fHeaderNode := nil;
+  fNeedInit:= True;
+  fInitStr:=ns_Envelope+ AnsiChar(':')+tag_Envelope;
+
+//  fXMLMessage.New(ns_Envelope+':'+tag_Envelope);
+  if fServerTargetNamespace = '' then begin
+    fServerTargetNamespace := GetServiceAttribute('', 'TargetNamespace');
+    if fServerTargetNamespace = '' then
+      fServerTargetNamespace := TempURI;
+  end;
+  if ((aType = mtResponse) or (aType = mtRequest)) and (fTargetNamespace = '') then begin
+    fTargetNamespace := fServerTargetNamespace;
+  end;
+  if (xsoDocument in SerializationOptions) then begin
+    if fInputNamespace <> '' then
+      lInterfaceName := fInputNamespace
+    else
+    if fTargetNamespace <> '' then
+      lInterfaceName := fTargetNamespace
+    else begin
+      if xsoDocument in SerializationOptions then
+        lInterfaceName := LibraryName
+      else
+      lInterfaceName := anInterfaceName;
+    end;
+  end else
+  begin
+    lInterfaceName := fInputNamespace;
+    if (lInterfaceName = '') or (lInterfaceName = TempURI) then lInterfaceName := fTargetNamespace;
+    if (lInterfaceName = '') or (lInterfaceName = TempURI) then lInterfaceName := LibraryName +'-'+InterfaceName;
+  end;
+
+  if fSoapAction = '' then begin
+    fSoapAction :=Format('urn:%s-%s#%s', [LibraryName, anInterfaceName, aMessageName]);
+    if Supports(aTransport, IROHttpTransport, lHttp) then
+      lHttp.Headers['SOAPAction'] := '"'+fSoapAction +'"';
+  end;
+
+
+  if xsoSoap12 in SerializationOptions then begin
+    SetHTTPInfo(aTransport, 'application/soap+xml; charset=utf-8; action='+fSoapAction);
+  end else
+    SetHTTPInfo(aTransport, DataFormatXml);
+
+  fEnvNode := GetXMLMessage.DocumentNode;
+
+
+  WriteAttribute('xmlns:xsd', Namespace_xsd);
+  WriteAttribute('xmlns:xsi', Namespace_xsi);
+  WriteAttribute('xmlns:HNS', TempURI);
+  if not (xsoSendUntyped in SerializationOptions) then
+    WriteAttribute('xmlns:SOAP-ENC', EncodingStyle);
+  if xsoSoap12 in SerializationOptions then
+    WriteAttribute('xmlns:SOAP-ENV', Namespace_soap12)
+  else
+    WriteAttribute('xmlns:SOAP-ENV', Namespace_soap11);
+
+  { Sets variables for easier access in the other methods }
+  fHeaderNode := fEnvNode.Add(ns_Envelope+':'+tag_Header);
+
+  fBodyNode := fEnvNode.Add(ns_Envelope+':'+tag_Body);
+  if not (xsoDocument in SerializationOptions) then
+    fBodyNode.AddAttribute('SOAP-ENV:encodingStyle', EncodingStyle, False);
+  //fBodyNode.AddAttribute('xmlns:'+ns_Custom, 'urn:'+{TempURI}lInterfacename, False);
+  if (LibraryName = '') then LibraryName := 'DefaultLibrary';
+  if Pos(':', LibraryName) = 0 then LibraryName := 'urn:'+LibraryName;
+  if fTargetNamespace <> '' then
+    fBodyNode.AddAttribute('xmlns:'+ns_Custom, fTargetNamespace{TempURI}, False)
+  else
+    fBodyNode.AddAttribute('xmlns:'+ns_Custom, LibraryName{TempURI}, False);
+
+  lMessageName := Unprefix(aMessageName); // when document & literal are true
+  if xsoDocument in SerializationOptions then begin
+    if (aType = mtRequest) then begin
+      if fOverrideInputName = '' then
+        lMessageName := anInterfaceName+'___'+lMessageName
+      else
+        lMessageName := fOverrideInputName;
+    end else if (aType = mtResponse) then begin
+      if fOverrideOutputName = '' then
+        lMessageName := anInterfaceName+'___'+lMessageName
+      else
+        lMessageName := fOverrideOutputName;
+    end;
+  end;
+
+  if Pos(':', lInterfaceName) = 0 then lInterfaceName := 'urn:'+lInterfaceName;
+
+  if not (xsoSendUntyped in SerializationOptions) then begin
+    if copy(lMessageName,1,4)='urn:' then Delete(lMessageName, 1,4);
+    fMessageNode := fBodyNode.Add('NS1:'+lMessageName);
+
+    fMessageNode.AddAttribute('xmlns:NS1', {'urn:' + } lInterfaceName, False);
+  end
+  else begin
+    (Serializer as TROXMLSerializer).CurrentNamespace := lInterfaceName;
+    fMessageNode := fBodyNode.Add((Serializer as TROXMLSerializer).Prefix+':'+lMessageName, lInterfaceName);
+
+//    fMessageNode.AddAttribute('xmlns', lInterfacename, False);
+  end;
+
+  if (aType = mtRequest) and (fChInNs <> '') then (Serializer as TROXMLSerializer).CurrentNamespace := fChInNs;
+  if (aType = mtResponse) and (fChOutNs <> '') then (Serializer as TROXMLSerializer).CurrentNamespace := fChOutNs;
+
+  (Serializer as TROXMLSerializer).SetStorageRef(pointer(fMessageNode));
+end;
+
+procedure TROSOAPMessage.Initialize(const aTransport: IROTransport;
+  const aLibraryName, anInterfaceName, aMessageName: string; aType: TMessageType);
+begin
+  LibraryName := aLibraryName;
+  Initialize(aTransport, anInterfaceName, aMessageName, aType);
+end;
+
+procedure TROSOAPMessage.Finalize;
+begin
+  inherited;
+  fSoapAction := '';
+end;
+function TROSOAPMessage.ReadException : Exception;
+var faultcode, faultstring, faultactor, faultdetail : string;
+    node, detailnode : IXMLNode;
+    lexceptclass, exceptfield, exnme : string;
+    tmp: Exception;
+    //isroexception : boolean;
+    exclass : ExceptionClass;
+begin
+  result := NIL;
+
+  if Assigned(fFaultNode) then begin
+    node := fFaultNode.GetNodeByName(id_FaultCode);
+    if not Assigned(node) then node := fFaultNode.GetNodeByName(id_FaultCode12);
+
+    if Assigned(node)
+      then faultcode := node.Value
+      else faultcode := '';
+
+    exnme := faultcode;
+
+    node := fFaultNode.GetNodeByName(id_FaultString);
+    if not Assigned(node) then node := FindChildNode(fFaultNode, id_FaultString, -1, true);
+    if not Assigned(node) then fFaultNode.GetNodeByName(id_FaultString12);
+    if not Assigned(node) then node := FindChildNode(fFaultNode, id_FaultString12, -1, true);
+    if Assigned(node) then faultstring := node.Value else faultstring := '';
+
+    node := fFaultNode.GetNodeByName(id_FaultActor);
+    if not Assigned(node) then node := FindChildNode(fFaultNode, id_FaultActor, -1, true);
+    if Assigned(node) then faultactor := node.Value else faultactor := '';
+
+    detailnode := fFaultNode.GetNodeByName(id_FaultDetail);
+    if not Assigned(detailnode) then detailnode := FindChildNode(fFaultNode, id_FaultDetail, -1, true);
+    if not Assigned(detailnode) then detailnode := fFaultNode.GetNodeByName(id_FaultDetail12);
+    if not Assigned(detailnode) then detailnode := FindChildNode(fFaultNode, id_FaultDetail12, -1, true);
+    if Assigned(detailnode) then faultdetail := detailnode.Value else faultdetail := '';
+
+    if Assigned(fOnSOAPFault)
+      then fOnSOAPFault(fFaultNode, faultcode, faultstring, faultactor, faultdetail);
+
+    if detailnode = nil then
+      node := nil
+    else
+      node := detailnode.FirstChild;
+    while (node <> nil) and (node.Name = '#text') do
+      node := node.NextSibling;
+    if node <> nil then
+      exceptfield := node.LocalName
+    else
+      exceptfield := name_Exception;
+
+    lexceptclass := fExceptionRemap.Values[exceptfield];
+    if lexceptclass <> '' then
+      result := CreateException(lexceptclass, faultstring)
+    else
+      result := CreateException(exnme, faultstring);
+
+    if Result <> nil then
+      exclass := ExceptionClass(result.ClassType)
+    else
+      exclass := nil;
+
+    if (exclass <> nil) and (exclass.InheritsFrom(EROException) and (detailnode<>NIL) and (detailnode.ChildrenCount > 0)) then begin
+      tmp := result;
+      // It must have a detail in which the fields of the exception are serialized
+      with TROXMLSerializer.Create(pointer(detailnode)) do try
+        SerializationOptions := self.SerializationOptions;
+        Read(exceptfield, result.ClassInfo, tmp);
+      finally
+        Free;
+      end;
+    end;
+  end;
+end;
+
+procedure TROSOAPMessage.WriteException(aStream : TStream; anException : Exception);
+var
+    fault, faultcode, faultstring, detail : IXMLNode;
+   
+begin
+  inherited;
+  fHeaderNode := nil;
+  fNeedInit:=True;
+  fInitStr:=ns_Envelope+AnsiChar(':')+tag_Envelope;
+//  fXMLMessage.New(ns_Envelope+':'+tag_Envelope);
+//  if (aType = mtResponse) and (fTargetNamespace = '') then fTargetNamespace := fServerTargetNamespace;
+(*  if fInputNamespace <> '' then
+    lInterfaceName := fInputNamespace
+  else
+  if fTargetNamespace <> '' then
+    lInterfaceName := fTargetNamespace
+  else begin
+    if xsoDocument in SerializationOptions then
+      lInterfaceName := LibraryName
+    else
+    lInterfaceName := fTargetNamespace;
+  end;
+*)
+  if fServerTargetNamespace = '' then begin
+    fServerTargetNamespace := GetServiceAttribute('', 'TargetNamespace');
+    if fServerTargetNamespace = '' then
+      fServerTargetNamespace := TempURI;
+  end;
+
+  fEnvNode := GetXMLMessage.DocumentNode;
+
+  WriteAttribute('xmlns:xsd', Namespace_xsd);
+  WriteAttribute('xmlns:xsi', Namespace_xsi);
+  WriteAttribute('xmlns:HNS', TempURI);
+  if not (xsoSendUntyped in SerializationOptions) then
+    WriteAttribute('xmlns:SOAP-ENC', EncodingStyle);
+  if xsoSoap12 in SerializationOptions then
+    WriteAttribute('xmlns:SOAP-ENV', Namespace_soap12)
+  else
+    WriteAttribute('xmlns:SOAP-ENV', Namespace_soap11);
+
+  { Sets variables for easier access in the other methods }
+  fHeaderNode := fEnvNode.Add(ns_Envelope+':'+tag_Header);
+
+
+  fBodyNode := fEnvNode.Add(ns_Envelope+':'+tag_Body);
+  if not (xsoDocument in SerializationOptions) then fBodyNode.AddAttribute('SOAP-ENV:encodingStyle', EncodingStyle, False);
+  //fBodyNode.AddAttribute('xmlns:'+ns_Custom, 'urn:'+{TempURI}lInterfacename, False);
+  if (LibraryName = '') then LibraryName := 'DefaultLibrary';
+  if Pos(':', LibraryName) = 0 then LibraryName := 'urn:'+LibraryName;
+  fBodyNode.AddAttribute('xmlns:'+ns_Custom, LibraryName{TempURI}, False);
+
+  fault := fBodyNode.Add(ns_Envelope+':'+tag_Fault);
+
+  if xsoSoap12 in SerializationOptions then
+    faultcode := fault.Add(id_FaultCode12)
+  else
+    faultcode := fault.Add(id_FaultCode);
+  faultcode.Value := (anException.ClassName);
+
+  if xsoSoap12 in SerializationOptions then
+    faultstring := fault.Add(id_FaultString12)
+  else
+    faultstring := fault.Add(id_FaultString);
+  faultstring.Value := (anException.Message);
+  if (anException is EROException) then begin
+    detail := fault.Add(id_FaultDetail);
+    with TROXMLSerializer.Create(pointer(detail)) do try
+      if fServerTargetNamespace <> '' then
+        CurrentNamespace := fServerTargetNamespace;
+
+      SerializationOptions := self.SerializationOptions;
+      Write(name_Exception, anException.ClassInfo, anException);
+    finally
+      Free;
+    end;
+  end;
+
+  WriteToStream(aStream);
+end;
+
+procedure TROSOAPMessage.ReadFromStream(aStream: TStream);
+var
+  encryptedheader: array[0..5] of Ansichar;
+begin
+  inherited;
+
+  aStream.Position := 0;
+
+  try
+    fInitStr:='';
+    fNeedInit:=True;
+//    fXMLMessage.New;
+
+    GetXMLMessage.LoadFromStream(aStream);
+
+  except
+    on e: Exception do begin
+      // If something went wrong we recreate it because fXMLMessage is expected to be instantiated.
+      fXMLMessage:=nil;
+      if (fXMLMessage=NIL)
+        then begin
+          fXMLMessage := NewROXmlDocument;
+          fInitStr:='';
+          fNeedInit:=True;
+          //fXMLMessage.New;
+        end;
+
+      aStream.Position := 0;
+      aStream.Read(encryptedheader, 6);
+      if (encryptedheader[0] = 'r') and (encryptedheader[1] = 'o') and
+        (encryptedheader[2] = 'r') and (encryptedheader[3] = 'o') and
+        (encryptedheader[4] = 'c') and (encryptedheader[5] = 'k') then
+      RaiseInvalidStreamError(err_InvalidHeaderEncrypted, [], aStream);
+
+      raise EROException.Create('Cannot parse SOAP error: '+e.Message);
+    end;
+  end;
+  if not ParseEnvelope then ProcessException; // In case there's one
+end;
+
+function TROSOAPMessage.ParseEnvelope : boolean;
+var localname,
+    namespace  : string;
+    i, k : integer;
+    item, item2 : IXMLNode;
+    cidnode : IXMLNode;
+begin
+
+  fBodyNode := NIL;
+  fHeaderNode := NIL;
+  fMessageNode := NIL;
+  fFaultNode := NIL;
+  fEnvNode := GetXMLMessage.DocumentNode;
+
+
+  if assigned(fOnBeforeParseEnvelope) then fOnBeforeParseEnvelope(self);
+  { Checks the document is non empty and that the main tag is a tag_Envelope (required by SOAP spec) }
+  SplitNodeName(fEnvNode, namespace, localname);
+  if (localname<>tag_Envelope)
+    then RaiseError(err_InvalidEnvelope, [inf_InvalidEnvelopeNode]);
+  if (fEnvNode.NamespaceURI = Namespace_soap12Alt) or (fEnvNode.NamespaceURI = Namespace_soap12) then
+    SerializationOptions := SerializationOptions + [xsoSoap12]
+  else
+    SerializationOptions := SerializationOptions - [xsoSoap12];
+
+  { Loads the nodes in the Body.
+    I am intentionally not picky in the position of BODY and HEADER tags. Specs say HEADER should be first if present and
+    BODY second. I just ignore this because requirement. It seems to be a totally useless detail. }
+
+  //SetClientID(EmptyGUID);
+
+  for i := 0 to (fEnvNode.ChildrenCount-1) do begin
+    item := fEnvNode.Children[i];
+
+    SplitNodeName(item, namespace, localname);
+    // Body
+    if (localname=tag_Body) then begin
+      fBodyNode := item;
+
+      { Loads the FAULT or BODY.
+        Althought the spec say you might have multiple BODY blocks I only consider one for now.
+        I might change this in the future if an issue arises with this decision.
+        If there ar multiple FAULTs or multiple BODYs the last one is the considered one }
+
+      for k := 0 to (fBodyNode.ChildrenCount-1) do begin
+        item2 := fBodyNode.Children[k];
+
+        SplitNodeName(item2, namespace, localname);
+        if (localname='#text') then Continue;
+
+        if (localname=tag_Fault) then begin
+          fFaultNameSpace := namespace;
+          fFaultNode := item2;
+          fMessageNode := fFaultNode;
+          Break;
+        end
+        else begin
+          fMessageNode := item2;
+          Break;
+        end;
+      end;
+    end
+
+    // Header
+    else if (localname=tag_Header) then begin
+      fHeaderNode := item;
+
+      for k := 0 to (fHeaderNode.ChildrenCount-1) do begin
+        cidnode := fHeaderNode.Children[k];
+        SplitNodeName(cidnode, namespace, localname);
+
+        if (localname = 'ROClientIDHeader') then begin
+          cidnode := FindChildNode(cidnode, 'ID', -1, true);
+          if (cidnode <> nil) and (VarToStr(cidnode.Value) <> '') then
+            SetClientID(StringToGuid(cidnode.Value));
+        end else
+        if (localname=id_ClientID) then begin
+          if (cidnode.Value<>'')
+            then SetClientID(StringToGUID(cidnode.Value));
+
+          Break;
+        end;
+      end;
+      //else SetClientID(EmptyGUID);
+    end;
+  end;
+
+  if not Assigned(fBodyNode) then RaiseError(err_InvalidEnvelope, [inf_AbsentBody]);
+  if not Assigned(fMessageNode) then RaiseError(err_InvalidEnvelope, [inf_AbsentMessage]);
+
+  // Determines the interface and message name
+
+  result := not Assigned(fFaultNode);
+  if result then begin
+    //xmlns:NS1="ITestService"
+//    if (fMessageNode.AttributeCount>0) then begin
+//      localname := '';
+//
+//      for i := 0 to (fMessageNode.AttributeCount-1) do
+//        if (Pos('urn:', fMessageNode.Attributes[i].Value)=1) then begin
+//          localname := fMessageNode.Attributes[i].Value;
+//          Break;
+//        end;
+//
+//      if (localname='')
+//        then localname := fMessageNode.Attributes[0].Value;
+//
+//      libraryname := Copy(localname, pos(':', localname) + 1, pos('-', localname) - 1 - pos(':', localname));
+//      Delete(localname, 1, Pos('-', localname)); // urn:SOAPLibrary-SOAPService
+//
+//      interfacename := localname;
+//    end;
+    MessageName := '';
+    LibraryName := '';
+    InterfaceName := fServiceName;
+
+    if fSoapAction <> '' then begin
+      localname := fSoapAction;
+      if localname[1] = '"' then deletE(Localname, 1,1);
+      if (localname <> '') and (localname[Length(LocalName)] = '"') then deletE(Localname, Length(LocalName),1);
+
+      if fServiceName <> '' then begin
+        MessageName := FindRemap(localname);
+        if MessageName <> '' then begin
+          LibraryName := fMessageNode.NamespaceURI;
+          if LibraryName = '' then
+            LibraryName:= fBodyNode.NamespaceURI;
+          if LibraryName = '' then
+            LibraryName := fEnvNode.NamespaceURI;
+        end;
+      end;
+
+      if MessageName = '' then begin
+        if pos(':', localname) <> 0 then delete(localname, 1, pos(':', localname));
+        if (pos('-', localname) > 0) and (pos('#', localname) > 0) then begin
+          LibraryName := copy(LocalName, 1, pos('-', LocalName) -1);
+          Delete(localname, 1, pos('-', localname));
+          InterfaceName := copy(LocalName, 1, pos('#', LocalName) -1);
+          Delete(localname, 1, pos('#', localname));
+          MessageName := localname;
+        end;
+      end;
+    end else
+    if (xsoDocument in SerializationOptions) and (pos('___', fMessageNode.LocalName) > 0) then begin
+      localname := fMessageNode.LocalName;
+
+      InterfaceName := copy(localname, 1, pos('___', localname)-1);
+      MessageName := copy(localname, pos('___', localname)+3, MaxInt);
+      LibraryName := fMessageNode.NamespaceURI;
+    end;
+
+
+    if (MessageName = '') or (InterfaceName = '') or (LibraryName = '') then begin
+      localname := '';
+
+    if copy(fMessageNode.NamespaceURI, 1, 4) = 'urn:' then
+      localname := Copy(fMessageNode.NamespaceURI, 5, Maxint)
+    else if copy(fBodyNode.NamespaceURI, 1, 4) = 'urn:' then
+      localname := Copy(fBodyNode.NamespaceURI, 5, Maxint)
+    else if copy(fEnvNode.NamespaceURI, 1, 4) = 'urn:' then
+      localname := Copy(fEnvNode.NamespaceURI, 5, Maxint)
+    else if copy(fMessageNode.NamespaceURI, 1, 4) = 'urn:' then
+      localname := Copy(fMessageNode.NamespaceURI, 5, Maxint);
+
+
+      if (localname='') and (fMessageNode.AttributeCount > 0)
+        then localname := fMessageNode.Attributes[0].Value;
+
+      libraryname := Copy(localname, pos(':', localname) + 1, pos('-', localname) - 1 - pos(':', localname));
+
+      InterfaceName := localname;
+      if (Pos('-', localname)>0) then begin
+        Delete(localname, 1, Pos('-', localname)); // urn:SOAPLibrary-SOAPService
+        InterfaceName := localname;
+      end
+      else begin
+        if localname <> '' then
+          InterfaceName := localname
+        else
+        if (fMessageNode.AttributeCount>0) // Tries to extract it from the node that contains the method name
+          then InterfaceName := fMessageNode.Attributes[0].Value;
+      end;
+
+      SplitNodeName(fMessageNode, namespace, localname);
+      if (xsoDocument in SerializationOptions) and (Pos('___', localname) > 0) then begin
+        InterfaceName := copy(localname, 1, Pos('___', localname)-1);
+        MessageName := Copy(localname, Pos('___', localname)+3, MaxInt);
+      end else begin
+        if (xsoDocument in SerializationOptions) and (Copy(localname, 1, Length(InterfaceName)+1) = InterfaceName+'_') then begin
+          Delete(localname, 1, Length(InterfaceName) + 1);
+          if copy(localname, Length(LocalName)-1, 2) = 'In' then
+            Delete(localname, Length(LocalName) -1, 2);
+          if copy(localname, Length(LocalName)-2, 3) = 'Out' then
+            Delete(localname, Length(LocalName) -2, 3);
+        end;
+        MessageName := localname;
+      end;
+      if fServiceName <> '' then InterfaceName := fServiceName;
+    end;
+
+    (Serializer as TROXMLSerializer).SetStorageRef(pointer(fMessageNode));
+
+    if assigned(fOnAfterParseEnvelope) then fOnAfterParseEnvelope(self);
+  end;
+end;
+
+procedure TROSOAPMessage.WriteToStream(aStream: TStream);
+begin
+  if xsoDocument in SerializationOptions then begin
+    with HeaderNode.Add('ROClientIDHeader') do begin
+      AddAttribute('SOAP-ENV:mustUnderstand', 0, False);
+      if (pos(':', LibraryName) <> 0) then
+        AddAttribute('xmlns', LibraryName, False)
+      else
+        AddAttribute('xmlns', 'urn:' + LibraryName, False);
+      Add('ID').Value := GUIDToString(GetClientID);
+    end;
+  end else begin
+    with HeaderNode.Add(HeaderNameSpace+':'+id_ClientID) do begin
+      AddAttribute('SOAP-ENV:mustUnderstand', 0, False);
+      Value := GUIDToString(GetClientID);
+    end;
+  end;
+
+  if Assigned(fOnEnvelopeComplete)
+    then fOnEnvelopeComplete(Self);
+
+  GetXMLMessage.SaveToStream(aStream);
+
+  inherited;
+end;
+
+procedure TROSOAPMessage.GetModuleInfo(aStream : TStream; const aTransport : IROTransport; var aFormat : TDataFormat);
+
+const
+  _template_header: string =
+    '<html><head><title>%s</title><style> '+
+    'body { background-color: #f7f7f7; margin: 0; padding: 0; font-family: Verdana, Tahoma, Arial, Helvetica, sans serif; font-size: 10pt;} '+
+    '.header { padding: 5px; background-color: #c0c0c0; border-bottom: 5px solid #808080; font-size: 1.5em;} '+
+    '.body { padding: 5px; } .footer { padding: 5px; border-top: 1px solid #808080; font-size: 0.8em;}.h2 { font-weight: bold; } '+
+    '</style></head><body><div class="header"><img src="/favicon.ico" style="padding-right: 5px;"/>%0:s</div><div class="body"><p><a href="/doc">View full documentation</a>| '+
+    '<a href="/rodl">View RODL</a></p><p class="h2">Available Services:</p><ul>';
+  _templateBody: string = '<li><a href="%s">%s</a></li>'+sLineBreak;
+  _template_footer: string ='</ul></div><div class="footer">RemObjects SDK for Delphi RemObjects Software, LLC.<a href="http://www.remobjects.com">remobjects.com</a>.</div></body></html>';
+
+
+var lib : TRODLLIbrary;
+    wsdl : TRODLToWSDL;
+    http : IROHTTPTransport;
+    i : Integer;
+    s, targetservice : string;
+begin
+  lib := NIL;
+  targetservice := '';
+
+  inherited GetModuleInfo(aStream, aTransport, aFormat); // Sets ContentType for HTTP transports already
+
+  aFormat := DataFormatXml;
+
+  try
+    with TXMLToRODL.Create do try
+      lib := Read(aStream);
+    finally
+      Free;
+    end;
+
+    wsdl := TRODLToWSDL.Create(NIL);
+    try
+      if Supports(aTransport, IROHTTPTransport, http) then begin
+        targetservice := http.GetQueryParameter('service');
+      end;
+
+      if (Trim(CustomLocation)='') then begin
+        if (http<>NIL)
+          then wsdl.Location := http.Location+http.PathInfo;
+      end
+      else wsdl.Location := CustomLocation;
+      if (targetservice = '') and assigned(http) then begin
+        wsdl.TargetXsd := http.GetQueryParameter('xsd');
+      end;
+      wsdl.ExternalTypesAsReferences := xsoExternalTypesAsReferences in SerializationOptions;
+      wsdl.UseDocument := xsoDocument in SerializationOptions;
+      wsdl.UseLiteral := xsoSendUntyped in SerializationOptions;
+      wsdl.ShowClientId := xsoClientIdInWsdl in SerializationOptions;
+      if fServerTargetNamespace = '' then begin
+        fServerTargetNamespace := GetServiceAttribute('', 'TargetNamespace');
+        if fServerTargetNamespace = '' then
+          fServerTargetNamespace := TempURI;
+      end;
+      wsdl.TargetNamespace := ServerTargetNamespace;
+
+      if (lib.ServiceCount > 1) and (TargetService = '') and (xsoSplitServiceWsdls in SerializationOptions) then begin
+        aFormat := 'text/html';
+        aStream.Position := 0;
+        aStream.Size := 0;
+        s:= Format(_template_header, [lib.Name]);
+//        s := '<html>'#13#10'<head>'#13#10'<title>'+lib.Name+'</title>'#13#10'</head>'#13#10'<body>'#13#10'<p><font size="7">';
+//        s := s + lib.Name +'</font></p>'#13#10'<p>The following services are supported:</p><ul>';
+        for i := 0 to lib.ServiceCount -1 do
+          s := s + Format(_templateBody, [fCustomLocation+'?service='+lib.Services[i].Name, lib.Services[i].Name]);// '<li><a href="'+fCustomLocation+'?service='+lib.Services[i].Name+'">'+lib.Services[i].Name+'</a></li>'#13#10;
+        s:=s + _template_footer;
+        //s := s + '</ul></body></html>';
+        aStream.Write(s[1], length(s)*SizeOf(char));
+        exit;
+      end;
+      http := NIL; // Clean up. Don't remove!
+
+      try
+      wsdl.Convert(lib, targetservice);
+      except
+        on e: Exception do begin
+          aFormat := 'text/html';
+          s := '<html><head><title>Error</title></head><body><font size=7>Error</font><br />An error occurred generating WSDL: '+e.Message+'</body></html>';
+          aStream.Position := 0;
+          aStream.Size := 0;
+          aStream.Write(s[1], Length(S));
+          exit;
+        end;
+      end;
+      aStream.Position := 0;
+      aStream.Size := 0;
+      wsdl.Buffer.SaveToStream(aStream);
+    finally
+      wsdl.Free;
+    end;
+  finally
+    if Assigned(lib) then
+      lib.Free;
+  end;
+end;
+
+function TROSOAPMessage.GetHeader: IXMLNode;
+begin
+  // Services like the Amazon one just don't accept empty headers (or don't know how to handle them).
+  // Because of this I just create it on demand.
+
+  if (fHeaderNode=NIL) then begin
+    {fHeaderNode := fXMLMessage.createElement(tag_Header);
+    fEnvNode.insertBefore(fHeaderNode, fBodyNode);}
+    fHeaderNode := fEnvNode.Add(tag_Header);
+  end;
+
+  result := fHeaderNode;
+end;
+
+function TROSOAPMessage.CreateSerializer : TROSerializer;
+begin
+  result := TROXMLSerializer.Create(pointer(fMessageNode));
+end;
+
+function TROSOAPMessage.GetSerializationOptions: TROXMLSerializationOptions;
+begin
+  result := TROXMLSerializer(Serializer).SerializationOptions
+end;
+
+procedure TROSOAPMessage.SetSerializationOptions(
+  const Value: TROXMLSerializationOptions);
+begin
+  TROXMLSerializer(Serializer).SerializationOptions := Value
+end;
+
+procedure TROSOAPMessage.Assign(iSource: TPersistent);
+var
+  lSource:TROSOAPMessage;
+begin
+  inherited;
+  if Assigned(iSource) then begin
+    if not (iSource is TROSOAPMessage) then RaiseError('Cannot Assign a %s t a %s',[ClassName,iSource.ClassName]);
+
+    lSource := (iSource as TROSOAPMessage);
+
+    CustomLocation := lSource.CustomLocation;
+    OnAfterParseEnvelope := lSource.OnAfterParseEnvelope;
+    OnBeforeParseEnvelope := lSource.OnBeforeParseEnvelope;
+    OnEnvelopeComplete := lSource.OnEnvelopeComplete;
+    OnSOAPFault := lSource.OnSOAPFault;
+    OnWriteEnvelopeAttribute := lSource.OnWriteEnvelopeAttribute;
+    SerializationOptions := lSource.SerializationOptions;
+    ServerTargetNamespace := lSource.ServerTargetNamespace;
+    SoapMode := lSource.SoapMode;
+  end;
+end;
+
+procedure TROSOAPMessage.SetLibraryName(const Value: string);
+begin
+  fLibraryName := Value;
+end;
+
+function TROSOAPMessage.GetBodyNode: IXMLNode;
+begin
+  result := fBodyNode
+end;
+
+function TROSOAPMessage.GetEnvNode: IXMLNode;
+begin
+  result := fEnvNode
+end;
+
+function TROSOAPMessage.GetFaultNode: IXMLNode;
+begin
+  result := fFaultNode
+end;
+
+function TROSOAPMessage.GetMessageNode: IXMLNode;
+begin
+  result := fMessageNode
+end;
+
+function TROSOAPMessage.GetLibraryName: string;
+begin
+  result := fLibraryName
+end;
+
+destructor TROSOAPMessage.Destroy;
+begin
+  fExceptionRemap.Free;
+  inherited;
+end;
+
+function TROSOAPMessage.ModuleInfoName: string;
+begin
+  Result := 'wsdl';
+end;
+
+procedure TROSOAPMessage.InitializeExceptionMessage(
+  const aTransport: IROTransport; const aLibraryName, anInterfaceName,
+  aMessageName: String);
+begin
+  inherited;
+  SetHTTPInfo(aTransport, DataFormatXml);
+end;
+
+
+function TROSOAPMessage.IsValidMessage(aData: PAnsiChar;
+  aLength: Integer): boolean;
+var
+  str: AnsiString;
+begin
+  SetString(str, aData, aLength);
+  Result := Pos(ns_Envelope_tag_Envelope_Ansi, str) > 0;
+end;
+
+
+function TROSOAPMessage.GetSoapMode: TROSoapMode;
+begin
+  if xsoDocument in SerializationOptions then begin
+    if (xsoSendUntyped in SerializationOptions) and ([xsoWriteMultiRefArray, xsoWriteMultiRefObject, xsoEncodedXML] * SerializationOptions = []) then
+      result := sDocumentLiteral
+    else
+      result := sUnknown;
+  end else begin
+    if xsoSendUntyped in SerializationOptions then
+      result := sRPCLiteral
+    else
+      result := sRPCEncoding;
+  end;
+end;
+
+procedure TROSOAPMessage.SetSoapMode(const Value: TROSoapMode);
+begin
+  case Value of
+    sRPCEncoding:
+      begin
+        SerializationOptions := SerializationOptions - [xsoSendUntyped, xsoDocument];
+        SerializationOptions := SerializationOptions + [xsoWriteMultiRefArray, xsoWriteMultiRefObject, xsoEncodedXML];
+      end;
+    sRPCLiteral:
+      begin
+        SerializationOptions := SerializationOptions + [xsoSendUntyped];
+        SerializationOptions := SerializationOptions - [xsoWriteMultiRefArray, xsoWriteMultiRefObject, xsoEncodedXML, xsoDocument];
+      end;
+    sDocumentLiteral:
+      begin
+        SerializationOptions := SerializationOptions + [xsoSendUntyped, xsoDocument];
+        SerializationOptions := SerializationOptions - [xsoWriteMultiRefArray, xsoWriteMultiRefObject, xsoEncodedXML];
+      end;
+  end;
+end;
+
+procedure TROSOAPMessage.SetAttributes(aTransport: IROTransport;
+  const aNames, aValues: array of String);
+var
+  lStyle,
+  lUse,
+  lAction,
+  lTargetUrl: string;
+  aHttp: IROHTTPTransport;
+
+  i: Integer;
+begin
+  fTargetLocationWasSet := False;
+  for i := 0 to Length(aNames) -1 do begin
+    if copy(aNames[i], 1, 6) = 'fault_' then begin
+      fExceptionRemap.Add(copy(aNames[i], 7, MAxInt)+'='+avalues[I]);
+    end else
+    if aNames[i] = 'InputNamespace' then
+      fInputNamespace := aValues[i]
+    else if aNames[i] = 'Action' then
+      lAction := aValues[i]
+    else if aNames[i] = 'Location' then
+      lTargetUrl := aValues[i]
+    else if aNames[i] = 'Style' then
+      lStyle := aValues[i]
+    else if aNames[i] = 'Use' then
+      lUse := aValues[i]
+    else if aNames[i] = 'SOAPInputNameOverride' then
+      fOverrideInputName := aValues[i]
+    else if aNames[i] = 'SOAPOutputNameOverride' then
+      fOverrideOutputName := aValues[i]
+    else if aNames[i] = 'TargetNamespace' then
+      fTargetNamespace := aValues[i]
+    else if aNames[i] = 'Version' then begin
+      if (aValues[i] = '1.2') then
+        SerializationOptions := SerializationOptions + [xsoSoap12]
+      else
+        SerializationOptions := SerializationOptions - [xsoSoap12];
+    end
+    else if aNames[i] = 'InputChildrenNamespace' then
+      fChInNs := aValues[i]
+    else if aNames[i] = 'OutputChildrenNamespace' then
+      fChOutNs := aValues[i];
+  end;
+  if (lUse = 'literal') then begin
+    if lStyle = 'document' then
+      SetSoapMode(sDocumentLiteral)
+    else if lStyle <> '' then
+      SetSoapMode(sRPCLiteral);
+  end else if lUse <> '' then begin
+    SetSoapMode(sRPCEncoding);
+  end;
+  if Supports(aTransport, IROHTTPTransport, aHttp) then begin
+    fTargetLocationWasSet := aHttp.TargetURL = '';
+    fSoapAction := lAction;
+      aHttp.Headers['SOAPAction'] := '"'+lAction+'"';
+    if fTargetLocationWasSet then
+      aHttp.TargetURL := lTargetUrl;
+  end;
+end;
+
+procedure TROSOAPMessage.UnsetAttributes(aTransport: IROTransport);
+var
+  aHttp: IROHTTPTransport;
+begin
+  fTargetNamespace := '';
+  fExceptionRemap.Clear;
+  fOverrideInputName := '';
+  fOverrideOutputName := '';
+  if fTargetLocationWasSet and Supports(aTransport, IROHTTPTransport, aHttp) then begin
+    aHttp.TargetURL := '';
+  end;
+end;
+
+procedure TROSOAPMessage.InitializeRead(const aTransport: IROTransport);
+var
+  lHttp: IROHTTPTransport;
+  lStrings: TStrings;
+begin
+  if Supports(aTransport, IROHTTPTransport, lHttp) then begin
+    fSoapAction := lHttp.Headers['SOAPAction'];
+    fServiceName := lHttp.GetQueryParameter('service');
+
+    lHttp := nil;
+  end
+  else begin
+    fSoapAction := '';
+    fServiceName := '';
+
+    lStrings := TStringList.Create;
+    try
+      lStrings.Delimiter := ' ';
+      lStrings.QuoteChar := '"';
+      lStrings.DelimitedText := GetHTTPInfo(aTransport);
+      fSoapAction := lStrings.Values['Action'];
+    finally
+      lStrings.Free;
+    end;
+  end;
+end;
+
+
+function TROSOAPMessage.FindRemap(const s: string): string;
+var
+  i: Integer;
+  lVal: string;
+  lList: TStrings;
+begin
+  result := '';
+  if fServiceName = '' then exit;
+  lList := GetServiceAttributes(fServiceName);
+  if lList = nil then exit;
+  for i := lList.Count -1 downto 0 do begin
+    lVal := lList[i];
+    if (copy(lVal,1,6) = 'remap_') and (Copy(lVal,pos('=', lVal)+1, MaxInt) = s) then begin
+      lVal := copy(lVal, 7, Pos('=', LvaL)-7);
+      result := lVal;
+    end;
+  end;
+end;
+
+
+function TROSOAPMessage.GetXMLMessage: IXMLDocument;
+begin
+  if fNeedInit then begin
+    fXMLMessage.New(fInitStr);
+    fNeedInit := False;
+  end;
+  Result:= fXMLMessage;
+end;
+
+procedure TROSOAPMessage.WriteAttribute(attrname: string; attrvalue: variant);
+var
+  canwrite: Boolean;
+begin
+  canwrite := TRUE;
+
+  if Name = 'xmlns:HNS' then attrvalue := ServerTargetNamespace;
+
+  if Assigned(fOnWriteEnvelopeAttribute) then fOnWriteEnvelopeAttribute(Self, attrname, attrvalue, canwrite);
+
+  if canwrite then fEnvNode.AddAttribute(attrname, attrvalue, False);
+end;
+
+initialization
+  RegisterMessageClass(TROSOAPMessage);
+
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSerializer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSerializer.pas
new file mode 100644
index 0000000..68990db
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSerializer.pas	
@@ -0,0 +1,821 @@
+unit uROSerializer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, TypInfo,
+  uROClasses;
+
+const RO_ArrayItemName = 'item';
+      StreamClsName = AnsiString('Binary');
+
+type TROSerializer = class;
+
+     IROCustomStreamableType = interface
+     ['{BD8FB0B8-3F7E-4E6E-A9B1-80C3FF39878D}']
+       procedure Write(aSerializer: TROSerializer; const aName: string);
+       procedure Read(aSerializer: TROSerializer; const aName: string);
+     end;
+
+     IROCustomStreamableClass = interface(IROCustomStreamableType)
+     ['{10D1288B-D679-42E8-B4C0-5CA772647582}']
+       function GetTypeName: string;
+       procedure SetTypeName(const aValue:string);
+       property TypeName:string read GetTypeName write SetTypeName;
+
+       function CanImplementType(const aName: string):boolean;
+
+       procedure SetNull(aIsNull: boolean);
+       function IsNull: boolean;
+     end;
+
+     IROCustomStreamableEnum = interface
+     ['{5CE37B53-839A-48C4-89D7-8A0FDAFC2C4A}']
+       procedure SetValue(aValue: byte);
+       function GetValue: byte;
+       property Value: byte read GetValue write SetValue;
+
+       procedure Write(aSerializer: TROSerializer; const aName: string);
+       procedure Read(aSerializer: TROSerializer; const aName: string);
+     end;
+
+     IROCustomStreamableStruct = interface(IROCustomStreamableClass)
+     ['{0DAA29FE-2E54-477C-AA4B-996FBFE1F9A6}']
+     end;
+
+     IROCustomStreamableArray = interface(IROCustomStreamableClass)
+     ['{8B043EB4-F628-4581-884D-C636D9DDED0E}']
+       function GetCount: integer;
+       procedure SetCount(aElementCount: integer);
+       property Count: integer read GetCount write SetCount;
+
+     end;
+
+     IROObjectStreamExtender = interface
+     ['{2A73D437-FDFC-4765-BA9A-07FD5F61D991}']
+       procedure Write(aSerializer: TROSerializer);
+       procedure Read(aSerializer: TROSerializer);
+     end;
+
+     TROSerializer = class(TROBaseSerializer)
+     protected
+       { TROBaseSerializer }
+       procedure ReadObject(obj: TObject); override;
+       procedure WriteObject(obj: TObject);override;
+     protected
+       function GetRecordStrictOrder: Boolean; virtual;
+       function IsROCustomStreamable(aClass : TClass):Boolean; 
+       procedure BeginWriteObject(const aName: string; aClass : TClass; anObject: TObject; var LevelRef : IUnknown;
+                                  var IsValidType : boolean; out IsAssigned:Boolean; ArrayElementId : integer = -1); virtual;
+       procedure EndWriteObject(const aName: string; aClass : TClass; anObject: TObject; const LevelRef : IUnknown); virtual;
+       procedure CustomWriteObject(const aName : string; aClass : TClass; const Ref; ArrayElementId : integer = -1); virtual;
+       procedure CustomReadObject(const aName: string; aClass: TClass;var Ref; ArrayElementId: integer);virtual;
+       procedure BeginReadObject(const aName : string; aClass : TClass; var anObject : TObject; var LevelRef : IUnknown;
+                                 var IsValidType : boolean; ArrayElementId : integer = -1); virtual;
+       procedure EndReadObject(const aName : string; aClass : TClass; var anObject : TObject; const LevelRef : IUnknown); virtual;
+       procedure ReadROCustomStreamable(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1);
+       procedure WriteROCustomStreamable(const aName : string; aClass : TClass; const Ref; ArrayElementId : integer = -1);
+       { Internal }
+     public
+       { Writers }
+       procedure WriteInteger(const aName : string; anOrdType : TOrdType; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteInt64(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteUTF8String(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteAnsiString(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteWideString(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteUnicodeString(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteDateTime(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteDouble(const aName : string; aFloatType : TFloatType; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteVariant(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteXml(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteGuid(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteDecimal(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure WriteBinary(const aName : string; const Ref; ArrayElementId : integer = -1);virtual; abstract;
+       procedure WriteStruct(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1);virtual; abstract;
+       procedure WriteArray(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1);virtual; abstract;
+       procedure WriteException(const aName : string; const Ref; ArrayElementId : integer = -1); virtual; abstract;
+       { Readers }
+       procedure ReadInteger(const aName : string; anOrdType : TOrdType; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadInt64(const aName : string; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadUTF8String(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); virtual; abstract;
+       procedure ReadAnsiString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); virtual; abstract;
+       procedure ReadWideString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); virtual; abstract;
+       procedure ReadUnicodeString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); virtual; abstract;
+       procedure ReadDateTime(const aName : string; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadDouble(const aName : string; aFloatType : TFloatType; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadVariant(const aName : string; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadXml(const aName : string; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadGuid(const aName : string; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadDecimal(const aName : string; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+       procedure ReadBinary(const aName : string; var Ref; ArrayElementId : integer = -1);virtual; abstract;
+       function ReadStruct(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; virtual; abstract;
+       function ReadArray(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; virtual; abstract;
+       procedure ReadException(const aName : string; var Ref; ArrayElementId : integer = -1); virtual; abstract;
+     public
+       constructor Create();//aStorageRef: pointer); virtual;
+       destructor Destroy; override;
+
+       procedure Write(const aName : string; aTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1);
+       procedure Read(const aName : string; aTypeInfo : PTypeInfo; var Ptr; ArrayElementId : integer = -1); {$IFDEF DEBUG_REMOBJECTS}virtual;{$ENDIF}
+       function GetArrayElementName(anItemType : PTypeInfo; anItemReference: pointer): string; virtual;
+       property RecordStrictOrder: Boolean read GetRecordStrictOrder;
+       procedure ChangeClass(aClass: TClass); virtual;
+     end;
+
+     TROSerializerClass = class of TROSerializer;
+
+procedure ReadObjectFromSerializer(const ASerializer: TROSerializer; anObject : TObject);
+procedure WriteObjectToSerializer(const ASerializer: TROSerializer; anObject: TObject);
+function EnumeratedToInteger(anEnumTypeInfo : PTypeInfo; const Ref):integer;
+procedure IntegerToEnumerated(aValue: integer; anEnumTypeInfo : PTypeInfo; var Ref);
+implementation
+
+uses
+  Variants, RTLConsts,
+  uRORes, SysUtils, uROClient, uROTypes,
+  uROXMLIntf;
+
+function RO_GetIntfProp(Instance: TObject; const PropName: string): IInterface;
+{$IFDEF FPC}
+var
+  lPropInfo: PPropInfo;
+{$ENDIF}
+begin
+  {$IFDEF FPC}
+  lPropInfo := GetPropInfo(Instance, PropName);
+  if lPropInfo = nil then begin
+    Result:=nil;
+    exit;
+  end;
+
+  Result := IInterface(Pointer(PtrUInt(GetOrdProp(Instance, lPropInfo))));
+  {$ELSE}
+  Result := GetInterfaceProp(Instance, PropName);
+  {$ENDIF}
+end;
+
+
+procedure RO_SetIntfProp(Instance: TObject; const PropName: string; const Value: IInterface);
+{$IFDEF FPC}
+var
+  lPropInfo: PPropInfo;
+{$ENDIF}
+begin
+  {$IFDEF FPC}
+  lPropInfo := GetPropInfo(Instance, PropName);
+  if lPropInfo = nil then Exit;
+  if Value <> nil then Value._AddRef;
+  SetOrdProp(Instance, lPropInfo, PtrInt(Value));
+  {$ELSE}
+  SetInterfaceProp(Instance, PropName, Value);
+  {$ENDIF}
+end;
+
+
+{ TROSerializer }
+
+procedure TROSerializer.BeginReadObject(const aName: string;
+  aClass : TClass; var anObject: TObject; var LevelRef : IUnknown; var IsValidType : boolean; ArrayElementId : integer = -1);
+begin
+  //IsValidType := Assigned(anObject) or (anObject is TROComplexType);
+  {$IFDEF FPC}
+  if (aName <> '') or (anObject <> nil) or (LevelRef <> nil) or (ArrayElementId = 1) then
+      IsValidType := aClass.InheritsFrom(TROComplexType) or aClass.InheritsFrom(EROException) else // for preventing warning in FPC
+  {$ENDIF}
+  IsValidType := aClass.InheritsFrom(TROComplexType) or aClass.InheritsFrom(EROException)
+end;
+
+procedure TROSerializer.BeginWriteObject(const aName: string; aClass : TClass; anObject: TObject; var LevelRef : IUnknown; var IsValidType : boolean; out IsAssigned:Boolean; ArrayElementId : integer = -1);
+begin
+  //IsValidType := Assigned(anObject) or (anObject is TROComplexType);
+  {$IFDEF FPC}
+  if (aName <> '') or (anObject <> nil) or (LevelRef <> nil) or (ArrayElementId = 1)  then
+      IsValidType := aClass.InheritsFrom(TROComplexType) or aClass.InheritsFrom(EROException) else // for preventing warning in FPC
+  {$ENDIF}
+  IsValidType := aClass.InheritsFrom(TROComplexType) or aClass.InheritsFrom(EROException)
+end;
+
+constructor TROSerializer.Create;//(aStorageRef: pointer);
+begin
+  inherited Create;
+
+   {if (pointer(aStorageRef)<>NIL) and not SetStorageRef(aStorageRef)
+    then RaiseError(err_InvalidStorage, []);}
+end;
+
+procedure TROSerializer.CustomReadObject(const aName: string; aClass : TClass; var Ref;
+  ArrayElementId: integer);
+var obj : TObject absolute Ref;
+    i, cnt : integer;
+    itemref : pointer;
+    lCustomObject: IROCustomStreamableType;
+    f: Boolean;
+begin
+  {$IFDEF FPC}
+  if (aClass = nil) or (ArrayElementId=0) then f:=Assigned(Obj) else // for preventing warnings
+  {$ENDIF}
+  f:= Assigned(Obj);
+  if f then begin
+
+    { handle reading of arrays. any other custom types (like Streams) must
+      be handled by the base classes. }
+
+    if Obj.GetInterface(IROCustomStreamableType, lCustomObject) then begin
+      lCustomObject.Read(Self, aName);
+    end
+    else if (obj is TROArray) then with TROArray(obj) do begin
+      cnt := TROArray(obj).Count;
+      if (GetItemClass<>NIL) then begin
+        for i := 0 to (cnt-1) do begin
+          itemref := NIL;
+          Read(RO_ArrayItemName, GetItemType, itemref, i);
+          SetItemRef(i, itemref);
+        end;
+      end
+      else begin
+        for i := 0 to (cnt-1) do begin
+          itemref := GetItemRef(i);
+          Read(RO_ArrayItemName, GetItemType, itemref^, i);
+        end;
+      end;
+    end
+
+  end;
+end;
+
+procedure TROSerializer.CustomWriteObject(const aName: string; aClass : TClass; const Ref; ArrayElementId : integer = -1);
+var obj : TObject absolute Ref;
+    i : integer;
+    itemref : pointer;
+    lCustomObject: IROCustomStreamableType;
+    f: boolean;
+begin
+  {$IFDEF FPC}
+  if (aClass = nil) and (ArrayElementId <> -1) then f:=Assigned(obj) else // for preventing warnings
+  {$ENDIF}
+  f:=Assigned(obj);
+  if f then begin
+
+    { handle reading of arrays. any other custom types (like Streams) must
+      be handled by the base classes. }
+    if Obj.GetInterface(IROCustomStreamableType, lCustomObject) then begin
+      lCustomObject.Write(Self, aName);
+    end
+    else if (obj is TROArray) then with TROArray(obj) do begin
+      if (GetItemClass<>NIL) then begin
+        for i := 0 to (Count-1) do begin
+          itemref := GetItemRef(i);
+          Write(GetArrayElementName(GetItemType, itemref), GetItemType, itemref, i);
+          //Write(TObject(itemref).ClassName, GetItemType, itemref, i);
+        end;
+      end
+      else begin
+        for i := 0 to (Count-1) do begin
+          itemref := GetItemRef(i);
+          Write(GetArrayElementName(GetItemType, itemref), GetItemType, itemref^, i);
+          //Write(RO_ArrayItemName, GetItemType, itemref^, i);
+        end;
+      end;
+    end;
+
+  end;
+end;
+
+destructor TROSerializer.Destroy;
+begin
+  inherited;
+end;
+
+procedure TROSerializer.EndReadObject(const aName: string;
+  aClass : TClass; var anObject: TObject; const LevelRef : IUnknown);
+begin
+end;
+
+procedure TROSerializer.EndWriteObject(const aName: string;
+  aClass : TClass; anObject: TObject; const LevelRef : IUnknown);
+begin
+end;
+
+procedure TROSerializer.ReadROCustomStreamable(const aName: string; aClass : TClass; var Ref; ArrayElementId : integer = -1);
+var obj : TObject absolute Ref;
+    LevelRef : IUnknown;
+    validtype : boolean;
+begin
+  //obj := nil; { no matter what's passed in, we wanna start fresh }
+  {$IFDEF FPC}
+  validtype:=False;
+  levelref:=nil;
+  {$ENDIF}
+  BeginReadObject(aName, aClass, obj, levelref, validtype, ArrayElementId);
+
+  //if not Assigned(obj) then Exit; { we got outselves a nil object } // RaiseError(err_ObjectExpectedInStream, []);
+  if Assigned(obj) and (not validtype) then
+    raise EROUnknownType.CreateFmt(err_TypeNotSupported, [obj.ClassName]);
+
+  if Assigned(obj) then ReadObject(obj);
+
+  CustomReadObject(aName, aClass, obj, ArrayElementId);
+
+  EndReadObject(aName, aClass, obj, levelref);
+end;
+
+procedure TROSerializer.Write(const aName: string; aTypeInfo: PTypeInfo;
+  const Ref; ArrayElementId : integer = -1);
+begin
+  if (aTypeInfo = TypeInfo(TGuidString))
+  then WriteGuid(aName, Ref, ArrayElementId)
+  else case aTypeInfo^.Kind of
+    {$IFDEF FPC}tkBool,{$ENDIF}
+    tkEnumeration : WriteEnumerated(aName, aTypeInfo, Ref, ArrayElementId);
+    tkInteger     : WriteInteger(aName, GetTypeData(aTypeInfo)^.OrdType, Ref, ArrayElementId);
+
+    tkFloat       : if (aTypeInfo=TypeInfo(TDateTime))
+                      then WriteDateTime(aName, Ref, ArrayElementId)
+                      else WriteDouble(aName, GetTypeData(aTypeInfo)^.FloatType, Ref, ArrayElementId);
+    {$IFDEF UNICODE}
+    tkUString     : WriteUnicodeString(aName, Ref, ArrayElementId);
+    {$ENDIF}
+    tkWString     : WriteWideString(aName, Ref, ArrayElementId);
+    tkLString,
+    {$IFDEF FPC}tkAString,{$ENDIF}
+    tkString      : if aTypeInfo = TypeInfo(UTF8String)
+                    then WriteUTF8String(aName, Ref, ArrayElementId)
+                    else WriteAnsiString(aName, Ref, ArrayElementId);
+
+    tkInt64       : WriteInt64(aName, Ref, ArrayElementId);
+
+    tkClass    : if isROCustomStreamable(GetTypeData(aTypeInfo).ClassType) then
+                   WriteROCustomStreamable(aName, GetTypeData(aTypeInfo).ClassType, Ref, ArrayElementId)
+                 else if GetTypeData(aTypeInfo).ClassType.InheritsFrom(TROArray) then
+                   WriteArray(aName, Ref,GetTypeData(aTypeInfo).ClassType, ArrayElementId)
+                 else if GetTypeData(aTypeInfo).ClassType.InheritsFrom(TROComplexType) then
+                   WriteStruct(aName, Ref, GetTypeData(aTypeInfo).ClassType, ArrayElementId)
+                 else if GetTypeData(aTypeInfo).ClassType.InheritsFrom(Binary) then
+                   WriteBinary(aName, Ref, ArrayElementId)
+                 else if GetTypeData(aTypeInfo).ClassType.InheritsFrom(Exception) then
+                   WriteException(aName, Ref, ArrayElementId)
+                 else
+                   raise EROUnknownType.CreateFmt(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(aTypeInfo^.Kind))]);
+    tkVariant :   if aTypeInfo = TypeInfo(TDecimalVariant) then
+                    WriteDecimal(aName, Ref, ArrayElementId)
+                  else
+                    WriteVariant(aName, Ref, ArrayElementId);
+    tkInterface :
+      begin
+        if aTypeInfo = TypeInfo(IXmlNode) then begin
+          WriteXml(aName, Ref, ArrayElementId);
+        end else raise EROUnknownType.CreateFmt(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(aTypeInfo^.Kind))]);
+      end;
+
+    else raise EROUnknownType.CreateFmt(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(aTypeInfo^.Kind))]);
+  end;
+end;
+
+procedure TROSerializer.Read(const aName: string; aTypeInfo: PTypeInfo;
+  var Ptr; ArrayElementId : integer = -1);
+begin
+  if aTypeInfo = TypeInfo(TGuidString)
+  then ReadGuid(aName, Ptr, ArrayElementId)
+  else case aTypeInfo^.Kind of
+    {$IFDEF FPC}tkBool,{$ENDIF}
+    tkEnumeration : ReadEnumerated(aName, aTypeInfo, byte(Ptr), ArrayElementId);
+    tkInteger  : ReadInteger(aName, GetTypeData(aTypeInfo)^.OrdType, Ptr, ArrayElementId);
+    tkInt64    : ReadInt64(aName, Ptr, ArrayElementId);
+
+    tkFloat    : if (aTypeInfo=TypeInfo(TDateTime))
+                   then ReadDateTime(aName, Ptr, ArrayElementId)
+                   else ReadDouble(aName, GetTypeData(aTypeInfo)^.FloatType, Ptr, ArrayElementId);
+    {$IFDEF UNICODE}
+    tkUString  : ReadUnicodeString(aName, Ptr, ArrayElementId);
+    {$ENDIF}
+    tkWString  : ReadWideString(aName, Ptr, ArrayElementId);
+    tkLString,
+    {$IFDEF FPC}tkAString,{$ENDIF}
+    tkString   :  if aTypeInfo = TypeInfo(UTF8String)
+                  then ReadUTF8String(aName, Ptr, ArrayElementId)
+                  else ReadAnsiString(aName, Ptr, ArrayElementId);
+
+    tkClass    : if isROCustomStreamable(GetTypeData(aTypeInfo).ClassType) then
+                   ReadROCustomStreamable(aName, GetTypeData(aTypeInfo).ClassType, Ptr, ArrayElementId)
+                 else if GetTypeData(aTypeInfo).ClassType.InheritsFrom(TROArray) then
+                   ReadArray(aName, GetTypeData(aTypeInfo).ClassType, Ptr, ArrayElementId)
+                 else if GetTypeData(aTypeInfo).ClassType.InheritsFrom(TROComplexType) then
+                   ReadStruct(aName, GetTypeData(aTypeInfo).ClassType, Ptr, ArrayElementId)
+                 else if GetTypeData(aTypeInfo).ClassType.InheritsFrom(Binary) then
+                   ReadBinary(aName, Ptr, ArrayElementId)
+                 else if GetTypeData(aTypeInfo).ClassType.InheritsFrom(Exception) then
+                   ReadException(aName, Ptr, ArrayElementId)
+                 else
+                   raise EROUnknownType.CreateFmt(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(aTypeInfo^.Kind))]);
+
+    tkVariant : if aTypeInfo = TypeInfo(TDecimalVariant) then
+                  ReadDecimal(aName, Ptr, ArrayElementId)
+                else
+                  ReadVariant(aName, Ptr, ArrayElementId);
+
+    tkInterface :
+      begin
+        if aTypeInfo = TypeInfo(IXmlNode) then begin
+          ReadXml(aName, Ptr, ArrayElementId);
+        end else raise EROUnknownType.CreateFmt(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(aTypeInfo^.Kind))]);
+      end;
+    else RaiseError(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(aTypeInfo^.Kind))]);
+  end;
+end;
+
+procedure TROSerializer.WriteROCustomStreamable(const aName: string; aClass : TClass; const Ref; ArrayElementId : integer = -1);
+var obj : TObject absolute Ref;
+    validtype, IsAssigned : boolean;
+    LevelRef : IUnknown;
+begin
+  {$IFDEF FPC}
+  validtype:=False;
+  levelref:=nil;
+  {$ENDIF}
+  BeginWriteObject(aName, aClass, obj, levelref, validtype, IsAssigned, ArrayElementId);
+  //if (not IsAssigned) or (not Assigned(obj)) then Exit; // no more streaming to do for a nil object.
+
+  if Assigned(obj) and (not validtype) then RaiseError(err_TypeNotSupported, [obj.ClassName]);
+  if Assigned(obj) then WriteObject(obj);
+  CustomWriteObject(aName, aClass, obj);
+
+  EndWriteObject(aName, aClass, obj, levelref);
+end;
+
+function TROSerializer.GetArrayElementName(anItemType: PTypeInfo; anItemReference: pointer): string;
+begin
+  {$IFDEF FPC}
+  if (anItemType = nil) and (anItemReference = nil) then result := RO_ArrayItemName else // for preventing warnings
+  {$ENDIF}
+  result := RO_ArrayItemName;
+end;
+
+function TROSerializer.GetRecordStrictOrder: Boolean;
+begin
+  Result := False;
+end;
+
+function TROSerializer.IsROCustomStreamable(aClass : TClass): Boolean;
+begin
+  Result:=Supports(aClass, IROCustomStreamableType);
+end;
+
+procedure ReadObjectFromSerializer(const ASerializer: TROSerializer; anObject : TObject);
+begin
+  ASerializer.ReadObject(anObject);
+end;
+
+procedure WriteObjectToSerializer(const ASerializer: TROSerializer; anObject: TObject);
+begin
+  ASerializer.WriteObject(anObject);
+end;
+
+procedure TROSerializer.ReadObject(obj: TObject);
+var
+    props : PPropList;
+    cnt, i : integer;
+    propInf: PPropInfo;
+
+    // Temporary variables
+    node : IXMLNode;
+    int64val : int64;
+    intval : integer;
+    enuval : byte;
+    dblval : double;
+    currval : Currency;
+    extval : Extended;
+    singleval : Single;
+    compval : Comp;
+    varval : variant;
+    datetimeval : TDateTime;
+    //extval : extended;
+    strval : string;
+    {$IFNDEF DELPHI5}wstrval : widestring;{$ENDIF}
+    objval : TObject;
+    lObjectStreamExtender:IROObjectStreamExtender;
+    lName: string;
+begin
+  if Assigned(obj) and (obj.ClassInfo <> nil) then begin
+    cnt := GetTypeData(obj.ClassInfo).PropCount;
+
+    if (cnt>0) then begin
+      {$IFDEF FPC}
+      props := nil;
+      {$ENDIF}
+      GetMem(props, cnt*SizeOf(PPropInfo));
+      try
+        cnt := GetPropList(PTypeInfo(obj.ClassInfo), tkProperties, props, not GetRecordStrictOrder);
+
+        for i := 0 to (cnt-1) do begin
+          lName :={$IFDEF UNICODE}UTF8ToString{$ENDIF}(props^[i]^.Name);  
+          with props^[i]^ do begin
+            case PropType^.Kind of
+              {$IFDEF FPC}tkBool,{$ENDIF}
+              tkEnumeration : begin
+                {$IFDEF FPC}enuval := 0;{$ENDIF}
+                ReadEnumerated(lName, PropType{$IFNDEF FPC}^{$ENDIF}, enuval);
+                SetOrdProp(obj, lName, enuval);
+              end;
+
+              tkInteger : begin
+                {$IFDEF FPC}intval := 0;{$ENDIF}
+                ReadInteger(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF}).OrdType, intval);
+                SetOrdProp(obj, lName, intval);
+              end;
+
+              tkFloat : begin
+                if (PropType{$IFNDEF FPC}^{$ENDIF}=TypeInfo(TDateTime)) then begin
+                 {$IFDEF FPC}datetimeval := 0;{$ENDIF}
+                  ReadDateTime(lName, datetimeval);//, ArrayElementId);
+                  SetPropValue(obj, lName, datetimeval);
+                end
+                else case GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType of
+                  ftSingle   : begin
+                    {$IFDEF FPC}singleval := 0;{$ENDIF}
+                    ReadDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, singleval);
+                    SetFloatProp(obj, lName, singleval);
+                  end;
+                  ftDouble   : begin
+                    {$IFDEF FPC}dblval := 0;{$ENDIF}
+                    ReadDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, dblval);
+                    SetFloatProp(obj, lName, dblval);
+                  end;
+                  ftExtended : begin
+                    {$IFDEF FPC}extval := 0;{$ENDIF}
+                    ReadDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, extval);
+                    SetFloatProp(obj, lName, extval);
+                  end;
+                  ftComp     : begin
+                    {$IFDEF FPC}compval := 0;{$ENDIF}
+                    ReadDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, compval);
+                    SetFloatProp(obj, lName, compval);
+                  end;
+                  ftCurr     : begin
+                    {$IFDEF FPC}currval := 0;{$ENDIF}
+                    ReadDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, currval);
+                    SetFloatProp(obj, lName, currval);
+                  end;
+                end;
+              end;
+
+              tkLString,
+              {$IFDEF FPC}tkAString,{$ENDIF}
+              tkString : begin
+                {$IFDEF FPC}strval := '';{$ENDIF}
+                if PropType{$IFNDEF FPC}^{$ENDIF}=TypeInfo(TGuidString) then
+                  ReadGuid(lName, strval)
+                else
+                  ReadUTF8String(lName, strval);
+                SetStrProp(obj, lName, strval);
+              end;
+
+              tkInt64 : begin
+                {$IFDEF FPC}int64val := 0;{$ENDIF}
+                ReadInt64(lName, int64val);
+                SetInt64Prop(obj, lName, int64val);
+              end;
+               {$IFDEF DELPHI2009UP}tkUString,{$ENDIF}
+              tkWString : begin
+                {$IFDEF DELPHI5}
+                //RaiseError(err_TypeNotSupported, ['tkWString']);
+                ReadUTF8String(lName, strval);
+                SetStrProp(obj, lName, strval);
+                {$ELSE}
+                {$IFDEF FPC}wstrval := '';{$ENDIF}
+                ReadWideString(lName, wstrval);
+                propInf := GetPropInfo(obj, lName);
+                if propInf = nil then
+                  raise EPropertyError.CreateResFmt(@SUnknownProperty, [lName]);
+                SetWideStrProp(obj, propInf, wstrval);
+                {$ENDIF}
+              end;
+
+              tkVariant : begin
+                {$IFDEF FPC}varval := 0;{$ENDIF}
+                if (PropType{$IFNDEF FPC}^{$ENDIF}=TypeInfo(TDecimalVariant)) then
+                  ReadDecimal(lName, varval)
+                else
+                  ReadVariant(lName, varval);
+                SetVariantProp(obj, lName, varval);
+              end;
+
+              tkClass : begin
+                objval := nil;
+                Read(lName, PropType{$IFNDEF FPC}^{$ENDIF}, objval);
+                SetObjectProp(obj, lName, objval);
+              end;
+
+              tkInterface: begin
+                if PropType{$IFNDEF FPC}^{$ENDIF}=TypeInfo(IXmlNode) then begin
+                  {$IFDEF FPC} node:= nil; {$ENDIF}
+                  ReadXml(lName, node);
+                  RO_SetIntfProp(obj, lName, node);
+                end else raise EROUnknownType.CreateFmt(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(props^[i].PropType^.Kind))])
+              end;
+              else raise EROUnknownType.CreateFmt(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(props^[i].PropType^.Kind))])
+            end; { case }
+          end; { with }
+        end; { for }
+      finally
+        FreeMem(props, cnt*SizeOf(PPropInfo));
+      end;
+    end; { if Count > 0 }
+    if Obj.GetInterface(IROObjectStreamExtender, lObjectStreamExtender) then begin
+      lObjectStreamExtender.Read(Self);
+    end
+  end; { if Assigned }
+end;
+
+procedure TROSerializer.WriteObject(obj: TObject);
+var
+    props : PPropList;
+    cnt, i : integer;
+
+    // Temporary variables
+    int64val : int64;
+    intval : integer;
+    enuval : byte;
+    dblval : double;
+    currval : Currency;
+    extval : Extended;
+    singleval : Single;
+    datetimeval : TDateTime;
+    compval : Comp;
+    strval : string;
+    varval : Variant;
+    {$IFNDEF DELPHI5}wstrval : widestring;{$ENDIF}
+    objval : TObject;
+    pdata : PTypeData;
+    lObjectStreamExtender:IROObjectStreamExtender;
+    node: IXMLNode;
+    lName: string;
+begin
+  if (obj<>NIL) and (obj.ClassInfo<>NIL) then begin
+    pdata := GetTypeData(obj.ClassInfo);
+    if (pdata<>NIL) then begin
+      cnt := pdata .PropCount;
+      if (cnt>0) then begin
+        {$IFDEF FPC}props:= nil;{$ENDIF}
+        GetMem(props, cnt*SizeOf(PPropInfo));
+        try
+          cnt := GetPropList(PTypeInfo(obj.ClassInfo), tkProperties, props, not GetRecordStrictOrder);
+
+          for i := 0 to (cnt-1) do begin
+            lName :={$IFDEF UNICODE}UTF8ToString{$ENDIF}(props^[i]^.Name);
+            with props^[i]^ do
+              case PropType^.Kind of
+                {$IFDEF FPC}tkBool,{$ENDIF}
+                tkEnumeration : begin
+                  enuval := GetOrdProp(obj, lName);
+                  WriteEnumerated(lName, PropType{$IFNDEF FPC}^{$ENDIF}, enuval);
+                end;
+
+                tkInteger : begin
+                  intval := GetOrdProp(obj, lName);
+                  WriteInteger(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.OrdType, intval);
+                end;
+
+                tkFloat : begin
+                  if (PropType{$IFNDEF FPC}^{$ENDIF}=TypeInfo(TDateTime)) then begin
+                    datetimeval := GetPropValue(obj, lName);
+                    WriteDateTime(lName, datetimeval);
+                  end
+                  else case GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType of
+                    ftSingle   : begin
+                      singleval := GetFloatProp(obj, lName);
+                      WriteDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, singleval);
+                    end;
+                    ftDouble   : begin
+                      dblval := GetFloatProp(obj, lName);
+                      WriteDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, dblval);
+                    end;
+                    ftExtended : begin
+                      extval := GetFloatProp(obj, lName);
+                      WriteDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, extval);
+                    end;
+                    ftComp     : begin
+                      {$IFDEF FPC}
+                        {$IFDEF WIN64}
+                        compval := GetInt64Prop(obj, lName);
+                        WriteInt64(lName, compval);
+                        {$ELSE}
+                        compval := GetOrdProp(obj, lName);
+                        WriteInteger(lName,otSLong,compval);
+                        {$ENDIF}
+                      {$ELSE}
+                      compval := GetFloatProp(obj, lName);
+                      WriteDouble(lName, GetTypeData(PropType^)^.FloatType, compval);
+                      {$ENDIF}
+                    end;
+                    ftCurr     : begin
+                      currval := GetFloatProp(obj, lName);
+                      WriteDouble(lName, GetTypeData(PropType{$IFNDEF FPC}^{$ENDIF})^.FloatType, currval);
+                    end;
+                  end;
+                end;
+
+                tkLString,
+                {$IFDEF FPC}tkAString,{$ENDIF}
+                tkString : begin
+                  strval := GetStrProp(obj, lName);
+                  if  (PropType{$IFNDEF FPC}^{$ENDIF}=TypeInfo(TGuidString)) then
+                    WriteGuid(lName, strval)
+                  else
+                    WriteUTF8String(lName, strval);
+                end;
+
+                tkInt64 : begin
+                  int64val := GetInt64Prop(obj, lName);
+                  WriteInt64(lName, int64val);
+                end;
+                {$IFDEF DELPHI2009UP}tkUString,{$ENDIF}
+                tkWString : begin
+                  {$IFDEF DELPHI5}
+                  //RaiseError(err_TypeNotSupported, ['tkWString']);
+                  strval := GetStrProp(obj, lName);
+                  WriteUTF8String(lName, strval);
+                  {$ELSE}
+                  wstrval := GetWideStrProp(obj, lName);
+                  WriteWideString(lName, wstrval);
+                  {$ENDIF}
+                end;
+
+                tkVariant : begin
+                  varval := GetVariantProp(obj, lName);
+                  if (PropType{$IFNDEF FPC}^{$ENDIF}=TypeInfo(TDecimalVariant)) then
+                    WriteDecimal(lName, varval)
+                  else
+                    WriteVariant(lName, varval);
+                end;
+
+                tkClass : begin
+                  objval := GetObjectProp(obj, lName);
+                  Write(lName, PropType{$IFNDEF FPC}^{$ENDIF}, objval);
+                end;
+                tkInterface : begin
+                  if PropType{$IFNDEF FPC}^{$ENDIF}=TypeInfo(IXmlNode) then begin
+                 // if  props^[i] = TypeInfo(IXmlNode) then begin
+                    node := RO_GetIntfProp(obj, lName) as IXMLNode;
+                    WriteXml(lName, node);
+                  end else RaiseError(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(props^[i].PropType^.Kind))])
+                end;
+
+                else RaiseError(err_TypeNotSupported, [ROGetEnumName(TypeInfo(TTypeKind), Ord(props^[i].PropType^.Kind))])
+              end;
+          end;
+        finally
+          FreeMem(props, cnt*SizeOf(PPropInfo));
+        end;
+      end;
+    end;
+    if Obj.GetInterface(IROObjectStreamExtender, lObjectStreamExtender) then begin
+      lObjectStreamExtender.Write(Self);
+    end
+  end;
+end;
+
+procedure TROSerializer.ChangeClass(aClass: TClass);
+begin
+  // Do nothing by default
+end;
+
+function EnumeratedToInteger(anEnumTypeInfo : PTypeInfo; const Ref):integer;
+begin
+  case GetTypeData(anEnumTypeInfo)^.OrdType of
+    otSByte,otUByte: Result := byte(Ref);
+    otSWord,otUWord: Result := word(Ref);
+  else
+    //otSLong,otULong:
+    Result := integer(Ref);
+  end;
+end;
+
+procedure IntegerToEnumerated(aValue: integer;anEnumTypeInfo : PTypeInfo; var Ref);
+begin
+  case GetTypeData(anEnumTypeInfo)^.OrdType of
+    otSByte,otUByte: byte(Ref) := aValue;
+    otSWord,otUWord: word(Ref) := aValue;
+  else
+    //otSLong,otULong:
+    integer(Ref) := aValue;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServer.pas
new file mode 100644
index 0000000..22fb916
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServer.pas	
@@ -0,0 +1,1440 @@
+unit uROServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, //SyncObjs,
+  {$IFDEF REMOBJECTS_UseEncryption}uROEncryption, {$ENDIF}
+  uRORes, uROServerIntf, uROClient, uROClientIntf, uROClasses, uROTypes,
+  uROEventRepository;
+
+type
+  TROServer = class;
+
+  { TMessageInvokeMethod }
+  TMessageInvokeMethod = procedure(const anInstance: IInterface;
+    const aMessage: IROMessage;
+    const aTransport: IROTransport;
+    out oResponseOptions:TROResponseOptions) of object;
+
+  { TRORemotable }
+  TRORemotable = class(TInterfacedObject, IROObjectRetainer)
+  private
+    fRetainedObjects : TList;
+    
+  protected
+    {$IFDEF DELPHI7UP}
+    procedure Synchronize(aMethod: TThreadMethod);
+    {$ENDIF DELPHI7UP}
+
+    { IROObjectRetainer  }
+    procedure RetainObject(const anObject : TObject);
+    procedure ReleaseObject(const anObject : TObject);
+    function IsRetained(const anObject : TObject) : boolean;
+
+  public
+    constructor Create; virtual;
+    destructor Destroy; override;
+  end;
+
+  TRORemotableClass = class of TRORemotable;
+
+  { TROInvoker }
+  {$M+}
+  TROInvoker = class(TInterfacedObject, IROInvoker)
+  private
+
+  protected
+    FAbstract: Boolean;
+    function CustomHandleMessage(const aFactory: IROClassFactory;
+      const aMessage: IROMessage;
+      const aTransport: IROTransport;
+      out oResponseOptions: TROResponseOptions): boolean; virtual;
+
+    procedure BeforeInvoke(aMethodPtr: TMessageInvokeMethod;
+      const anInstance: IInterface;
+      const aFactory: IROClassFactory;
+      const aMessage: IROMessage;
+      const aTransport: IROTransport); virtual;
+
+    procedure AfterInvoke(aMethodPtr: TMessageInvokeMethod;
+      const anInstance: IInterface;
+      const aFactory: IROClassFactory;
+      const aMessage: IROMessage;
+      const aTransport: IROTransport;
+      anException: Exception); virtual;
+
+    procedure CheckRoles(anInstance: IInterface; aRoles: array of String);
+  public
+    constructor Create; virtual;
+    destructor Destroy; override;
+
+    function HandleMessage(const aFactory: IROClassFactory;
+      const aMessage: IROMessage;
+      const aTransport: IROTransport;
+      out oResponseOptions: TROResponseOptions): boolean;
+
+  published
+    { IROServerEventsBroker invocation - Ghost methods }
+    procedure Invoke_RegisterEventClient(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_UnregisterEventClient(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_RegisterClient(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_UnregisterClient(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetEventsData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+  {$M-}
+
+  TROInvokerClass = class of TROInvoker;
+
+  { TROClassFactory }
+  TRORemotableCreatorFunc = procedure(out anInstance: IInterface);
+
+  { TROMessageDispatcher }
+  TROMessageDispatchers = class;
+  TROMessageDispatcher = class(TCollectionItem)
+  private
+    fDispatchers: TROMessageDispatchers;
+    fMessage: TROMessage;
+    fEnabled: boolean;
+    fDummyName: string;
+
+    fMessageIntf: pointer;
+    fModuleInfoIntf: pointer;
+
+    function GetMessageIntf: IROMessage;
+    function GetModuleInfoIntf: IROModuleInfo;
+    function GetServer: TROServer;
+
+  protected
+    procedure SetMessage(const Value: TROMessage); virtual;
+    function GetDisplayName: string; override;
+
+    property Server:TROServer read GetServer;
+
+  public
+    constructor Create(aCollection: TCollection); override;
+    destructor Destroy; override;
+
+    procedure Assign(Source: TPersistent); override;
+
+    function ProcessMessage(const aTransport: IROTransport; aRequeststream, aResponsestream: TStream; out oResponseOptions: TROResponseOptions): boolean;
+    function CanHandleMessage(const aTransport: IROTransport; aRequeststream: TStream): boolean; virtual;
+
+    property MessageIntf: IROMessage read GetMessageIntf;
+    property ModuleIntf: IROModuleInfo read GetModuleInfoIntf;
+  published
+    property Name: string read GetDisplayName write fDummyName;
+    property Message: TROMessage read fMessage write SetMessage;
+    property Enabled: boolean read fEnabled write fEnabled;
+  end;
+
+  TROMessageDispatcherClass = class of TROMessageDispatcher;
+
+  { TROMessageDispatchers }
+
+  TROMessageDispatchers = class(TCollection)
+  private
+    fServer: TROServer;
+
+    function GetDispatcher(Index: integer): TROMessageDispatcher;
+
+  protected
+    function GetSupportsMultipleDispatchers: boolean; virtual;
+    function GetDispatcherClass: TROMessageDispatcherClass; virtual;
+    {$IFDEF DELPHI6UP}
+    procedure Notify(Item: TCollectionItem; Action: TCollectionNotification); override;
+    {$ENDIF DELPHI6UP}
+    property Server:TROServer read fServer;
+
+  public
+    constructor Create(aServer: TROServer); virtual;
+    destructor Destroy; override;
+
+    procedure CleanReferences(aMessage: TROMessage);
+    function FindDuplicate(aMessage: TROMessage): TROMessageDispatcher;
+    function FindDispatcher(const aTransport: IROTransport; aRequestStream: TStream): TROMessageDispatcher;
+
+    function DispatcherByName(const aName: string): TROMessageDispatcher;
+
+    property Dispatchers[Index: integer]: TROMessageDispatcher read GetDispatcher; default;
+    property SupportsMultipleDispatchers: boolean read GetSupportsMultipleDispatchers;
+  end;
+
+  TROMessageDispatchersClass = class of TROMessageDispatchers;
+
+  { TROServer }
+  TROGetRODLReader = procedure (Sender: TROServer; var aRODLReader: TROCustomRODLReader) of object;
+
+  TROServerType = (rstNonIPBased, rstTCP, rstHTTP, rstUDP, rstSuperHTTP, rstSuperTCP);
+
+  IZeroConfServerChannel = Interface
+  ['{CC27862D-8014-40AF-AE32-5421CE15B274}']
+    function GetPort: Integer;
+    function GetServerType: TROServerType;
+    Procedure Z_SetAfterOpen(Value: TNotifyEvent);
+    Procedure Z_SetBeforeClose(Value: TNotifyEvent);
+    function GetZeroConfRegistrationServer: TObject;
+    procedure SetZeroConfRegistrationServer(const Value: TObject);
+    property ZeroConfRegistrationServer: TObject read GetZeroConfRegistrationServer write SetZeroConfRegistrationServer;
+    property Port: integer read GetPort;
+  End;
+
+  {$IFDEF REMOBJECTS_UseEncryption}
+  TROServer = class(TROBaseConnection,IZeroConfServerChannel)
+  {$ELSE}
+  TROServer = class(TROComponent, IZeroConfServerChannel)
+  {$ENDIF}
+  private
+    fDoneAfterLoad,
+      fLoadActive: boolean;
+
+    fOnAfterServerDeactivate: TNotifyEvent;
+    fOnAfterServerActivate: TNotifyEvent;
+    fOnBeforeServerDeactivate: TNotifyEvent;
+    fOnBeforeServerActivate: TNotifyEvent;
+    fz_OnBeforeServerDeactivate: TNotifyEvent;
+    fz_OnAfterServerActivate: TNotifyEvent;
+    fDispatchers: TROMessageDispatchers;
+    fOnReadFromStream: TStreamOperation;
+    fOnWriteToStream: TStreamOperation;
+    FOnGetRODLReader: TROGetRODLReader;
+    FDefaultResponse: string;
+       //fAsyncResponseStorage: TROAsyncResponseStorage;
+    FZeroConfRegistrationServer: TObject;
+    function GetActive: boolean;
+    procedure SetActive(const Value: boolean);
+    procedure SetDispatchers(const Value: TROMessageDispatchers);
+       //procedure SetAsyncResponseStorage(const Value:TROAsyncResponseStorage);
+    function GetZeroConfRegistrationServer: TObject;
+    procedure SetZeroConfRegistrationServer(const Value: TObject);
+    Procedure Z_SetAfterOpen(Value: TNotifyEvent);
+    Procedure Z_SetBeforeClose(Value: TNotifyEvent);
+  private
+    procedure TriggerReadFromStream(iStream: TStream);
+    procedure TriggerWriteToStream(iStream: TStream);
+
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+    { Internals }
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+
+    procedure IntSetActive(const Value: boolean); virtual; abstract;
+    function IntGetActive: boolean; virtual; abstract;
+
+    procedure Loaded; override;
+
+    function GetDispatchersClass: TROMessageDispatchersClass; virtual;
+
+    function DispatchMessage(const aTransport: IROTransport; aRequeststream, aResponsestream: TStream): boolean; overload;
+    function DispatchMessage(const aTransport: IROTransport; aRequeststream, aResponsestream: TStream; out oResponseOptions: TROResponseOptions): boolean; overload;
+
+    function IntDispatchMessage(Dispatcher: TROMessageDispatcher; const aTransport: IROTransport; aRequeststream, aResponsestream: TStream; out oResponseOptions: TROResponseOptions): boolean;
+    property OnGetRODLReader: TROGetRODLReader read FOnGetRODLReader write FOnGetRODLReader;
+    function GetRODLReader: TROCustomRODLReader;
+    property DefaultResponse: string read FDefaultResponse write FDefaultResponse;
+    procedure EncodeEventStream(aStream: TStream);
+    function GetPort: Integer;virtual;
+    procedure SetPort(const Value: Integer);virtual;
+    function GetServerType: TROServerType;virtual;
+    property Port: Integer read GetPort write SetPort;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; virtual;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Active: boolean read GetActive write SetActive default false;
+    //property AsyncResponseStorage:TROAsyncResponseStorage read fAsyncResponseStorage write SetAsyncResponseStorage;
+
+    property Dispatchers: TROMessageDispatchers read fDispatchers write SetDispatchers;
+
+    property OnBeforeServerActivate: TNotifyEvent read fOnBeforeServerActivate write fOnBeforeServerActivate;
+    property OnAfterServerActivate: TNotifyEvent read fOnAfterServerActivate write fOnAfterServerActivate;
+    property OnBeforeServerDeactivate: TNotifyEvent read fOnBeforeServerDeactivate write fOnBeforeServerDeactivate;
+    property OnAfterServerDeactivate: TNotifyEvent read fOnAfterServerDeactivate write fOnAfterServerDeactivate;
+    property OnWriteToStream: TStreamOperation read fOnWriteToStream write fOnWriteToStream;
+    property OnReadFromStream: TStreamOperation read fOnReadFromStream write fOnReadFromStream;
+  end;
+
+  TROServerClass = class of TROServer;
+
+  TROClassFactory = class(TInterfacedObject, IROClassFactory, IROClassFactory_ZeroConfig)
+  private
+    fCreatorFunc: TRORemotableCreatorFunc;
+    fInterfaceName: string;
+    fInvoker: IROInvoker;
+    fInvokerClass: TROInvokerClass;
+    fAliasNames: TStringList;
+  protected
+       { IROClassFactory }
+    procedure CreateInstance(const aClientID: TGUID; out anInstance: IInterface); virtual;
+    procedure ReleaseInstance(const aClientID: TGUID; var anInstance: IInterface); virtual;
+
+       {procedure ActivateInstance(const aClientID:TGUID; const anInstance:IInterface);
+       procedure DeactivateInstance(const aClientID:TGUID; const anInstance:IInterface);}
+
+    function GetInterfaceName: string;
+    function GetInvoker: IROInvoker;
+
+    property CreatorFunc: TRORemotableCreatorFunc read fCreatorFunc;
+    { IROClassFactory_ZeroConfig }
+    function IsInterfaceNameSupported(const anInterfaceName: string):Boolean;
+    procedure RegisterInterfaceName(const anInterfaceName: string);
+    procedure UnregisterInterfaceName(const anInterfaceName: string);
+    function GetAliasNames: TStringList;
+  public
+    constructor Create(const anInterfaceName: string;
+      aCreatorFunc: TRORemotableCreatorFunc;
+      anInvokerClass: TROInvokerClass);
+    destructor Destroy; override;
+  end;
+
+  EROSendNoResponse = class(EROException);
+
+procedure ROSendNoResponse;
+
+function MainProcessMessage(
+  const aMessage: IROMessage;
+  const aTransport: IROTransport;
+  aRequestStream,
+  aResponseStream: TStream;
+  out oResponseOptions: TROResponseOptions): boolean;
+
+procedure RegisterClassFactory(const aClassFactory: IROClassFactory);
+procedure UnRegisterClassFactory(const aClassFactory: IROClassFactory);
+function GetClassFactory(const anInterfaceName: string): IROClassFactory;
+function FindClassFactory(const anInterfaceName: string): IROClassFactory; {$IFDEF VER140UP} deprecated; {$ENDIF} // Please use GetClassFactory. mh.
+function TryFindClassFactory(const anInterfaceName: string): IROClassFactory;
+function IsClassFactoryRegistered(const anInterfaceName: string):boolean;
+function GetClassFactoryNames:IROStrings;
+function GetZeroConfClassFactoryNames:IROStrings;
+
+procedure RegisterServerClass(aROMessageClass: TROServerClass);
+procedure UnregisterServerClass(aROMessageClass: TROServerClass);
+function GetServerClass(Index: integer): TROServerClass;
+function GetServerClassCount: integer;
+procedure RegisterForZeroConf(const aClassFactory: IROClassFactory;const ZeroConfInterfaceName: string);
+procedure ReleaseClassFactories;
+implementation
+
+uses
+Contnrs;
+
+
+procedure ROSendNoResponse;
+begin
+  {
+    NOTE
+
+    This exception is expected to be raised if you use the ROSendNoResponse
+    function in your asynchronous/broadcast channels. YOu can safely ignore
+    when the Delphi IDE breaks on this line, and you can add it to the ist
+    of "Silent" exceptions under Tools|Debugger Options|Language Exceptions.
+  }
+  raise EROSendNoResponse.Create('');
+end;
+
+var
+  _ServerClasses: TClassList;
+
+procedure RegisterServerClass(aROMessageClass: TROServerClass);
+begin
+  _ServerClasses.Add(aROMessageClass);
+end;
+
+procedure UnregisterServerClass(aROMessageClass: TROServerClass);
+begin
+  _ServerClasses.Remove(aROMessageClass);
+end;
+
+function GetServerClass(Index: integer): TROServerClass;
+begin
+  result := TROServerClass(_ServerClasses[Index]);
+end;
+
+function GetServerClassCount: integer;
+begin
+  result := _ServerClasses.Count
+end;
+
+procedure RegisterForZeroConf(const aClassFactory: IROClassFactory;const ZeroConfInterfaceName: string);
+var
+  cfz:IROClassFactory_ZeroConfig;
+begin
+  if Supports(aClassFactory, IROClassFactory_ZeroConfig, cfz) then
+    cfz.RegisterInterfaceName(ZeroConfInterfaceName);
+end;
+
+type
+  TROClassFactoryList = class(TInterfaceList)
+  private
+    function GetItems(Index: integer): IROClassFactory;
+  protected
+  public
+    function Add(aClassFactory: IROClassFactory): integer;
+    function GetClassFactoryByInterfaceName(const anInterfaceName: string): IROClassFactory;
+    function FindClassFactoryByInterfaceName(const anInterfaceName: string): IROClassFactory;
+    function GetNames:IROStrings;
+    function GetZeroConfNames:IROStrings;
+    property Items[Index: integer]: IROClassFactory read GetItems; default;
+  end;
+
+var
+  _ClassFactoryList: TROClassFactoryList;
+
+function ClassFactoryList: TROClassFactoryList;
+begin
+  if (_ClassFactoryList = nil) then _ClassFactoryList := TROClassFactoryList.Create;
+  result := _ClassFactoryList;
+end;
+
+function MainProcessMessage(const aMessage: IROMessage; const aTransport: IROTransport; aRequestStream, aResponseStream: TStream; out oResponseOptions: TROResponseOptions): boolean;
+var
+  factory: IROClassFactory;
+  moduleinfo: IROModuleInfo;
+  dataformat: TDataFormat;
+  http: IROHTTPTransport;
+begin
+  oResponseOptions := [];
+//  result := FALSE; // reenabled because of a compiler warning
+
+  try
+    if (aMessage = nil) then RaiseError(err_NILMessage, []);
+
+    case aRequestStream.Size of
+      // Metadata retrieval
+      MetadataRequestIDLength : begin
+        oResponseOptions := oResponseOptions + [roDontEncrypt];
+        DataFormat := 'text/xml';
+        if Supports(aMessage, IROModuleInfo, moduleinfo) then
+          moduleinfo.GetRodlInfo(aResponseStream, aTransport, dataformat)
+        else
+          RaiseError(err_InvalidRequestStream, [aRequestStream.Size]);
+        if supports(aTransport, IROHttpTransport, http) then
+          http.ContentType := dataformat;
+
+        result := TRUE;
+      end;
+      0 : begin
+        oResponseOptions := oResponseOptions + [roDontEncrypt];
+        DataFormat := 'text/xml';
+        if Supports(aMessage, IROModuleInfo, moduleinfo) then
+          moduleinfo.GetModuleInfo(aResponseStream, aTransport, dataformat)
+        else
+          RaiseError(err_InvalidRequestStream, [aRequestStream.Size]);
+        if supports(aTransport, IROHttpTransport, http) then
+          http.ContentType := dataformat;
+        result := TRUE;
+      end;
+
+      // Probing
+      ProbeRequestIDLength : begin
+        aResponseStream.Write(ProbeResponseID, ProbeResponseIDLength);
+        Result := TRUE;
+      end;
+
+      // Messages
+      else begin
+        aMessage.InitializeRead(aTransport);
+        aMessage.ReadFromStream(aRequestStream);
+
+        case aMessage.MessageType of
+          mtPoll: begin
+              if IsEqualGUID(aMessage.ClientID, EmptyGUID) then
+                raise EROServerException.Create('Poll messages may not be sent with empty Client ID.');
+
+              raise EROServerException.Create('.NET-style polling is not implemented in RO/Delphi, yet.');
+            end;
+
+          mtRequest, mtResponse: begin
+              if (aMessage.InterfaceName = '') then
+                RaiseError(err_UnspecifiedInterface, [])
+              else if (aMessage.MessageName = '') then
+                RaiseError(err_UnspecifiedMessage, [])
+              else if IsEqualGUID(aMessage.ClientID, EmptyGUID) then
+                aMessage.ClientID := NewGuid();
+
+              if IsEqualGUID(aMessage.ClientID, EmptyGUID) then
+                aMessage.ClientID := NewGuid();
+
+              factory := GetClassFactory(aMessage.InterfaceName);
+              result := factory.Invoker.HandleMessage(factory, aMessage, aTransport, oResponseOptions);
+
+              aMessage.WriteToStream(aResponseStream);
+            end;
+
+          else begin
+            raise EROServerException.CreateFmt('Unsupported messages type %d.', [integer(aMessage.MessageType)]);
+          end;
+
+        end;
+
+      end;
+    end;
+  except
+    on E: EROSendNoResponse do begin
+      result := FALSE;
+      oResponseOptions := oResponseOptions + [roNoResponse];
+      aMessage.InitializeExceptionMessage(aTransport, '', aMessage.InterfaceName, aMessage.MessageName);
+      aMessage.WriteException(aResponseStream, E);
+    end;
+    on E: Exception do begin
+      result := FALSE;
+      aMessage.InitializeExceptionMessage(aTransport, '', aMessage.InterfaceName, aMessage.MessageName);
+      aMessage.WriteException(aResponseStream, E);
+    end;
+  end;
+end;
+
+function GetClassFactory(const anInterfaceName: string): IROClassFactory;
+begin
+  result := ClassFactoryList.GetClassFactoryByInterfaceName(anInterfaceName);
+end;
+
+function FindClassFactory(const anInterfaceName: string): IROClassFactory;
+begin
+  result := ClassFactoryList.GetClassFactoryByInterfaceName(anInterfaceName);
+end;
+
+function TryFindClassFactory(const anInterfaceName: string): IROClassFactory;
+begin
+  result := ClassFactoryList.FindClassFactoryByInterfaceName(anInterfaceName);
+end;
+
+function IsClassFactoryRegistered(const anInterfaceName: string):boolean;
+begin
+  result := assigned(_ClassFactoryList) and assigned(ClassFactoryList.FindClassFactoryByInterfaceName(anInterfaceName));
+end;
+
+function GetClassFactoryNames:IROStrings;
+begin
+  result := ClassFactoryList.GetNames();
+end;
+
+function GetZeroConfClassFactoryNames:IROStrings;
+begin
+  result := ClassFactoryList.GetZeroConfNames();
+end;
+
+procedure RegisterClassFactory(const aClassFactory: IROClassFactory);
+begin
+  ClassFactoryList.Add(aClassFactory);
+end;
+
+procedure UnRegisterClassFactory(const aClassFactory: IROClassFactory);
+begin
+  if assigned(_ClassFactoryList) then
+    _ClassFactoryList.Remove(aClassFactory);
+end;
+
+{ TROClassFactoryList }
+
+function TROClassFactoryList.Add(aClassFactory: IROClassFactory): integer;
+begin
+  { ToDo: make sure no other class factopry is registered yet, that serves
+          the same class name
+          http://www.remobjects.com/bugdb?bug=E14CD985-B996-45A3-B480-7C22F09093F5 }
+
+  result := inherited Add(aClassFactory);
+end;
+
+function TROClassFactoryList.GetClassFactoryByInterfaceName(const anInterfaceName: string): IROClassFactory;
+begin
+  result := FindClassFactoryByInterfaceName(anInterfaceName);
+  if not Assigned(result) then RaiseError(err_ClassFactoryNotFound, [anInterfaceName]);
+end;
+
+function TROClassFactoryList.FindClassFactoryByInterfaceName(const anInterfaceName: string): IROClassFactory;
+var
+  i:integer;
+  cfz:IROClassFactory_ZeroConfig;
+begin
+  result := nil;
+  for i := 0 to (Count - 1) do
+    if (CompareText(anInterfaceName, Items[i].GetInterfaceName) = 0) then begin
+      result := Items[i];
+      Break;
+    end;
+  // check for ZeroConf Aliases
+  if Result = nil then begin
+    for i := 0 to (Count - 1) do
+      if Supports(Items[i], IROClassFactory_ZeroConfig, cfz) then begin
+        if cfz.IsInterfaceNameSupported(anInterfaceName) then begin
+          Result:=Items[i];
+          Break;
+        end;
+      end;
+  end;
+end;
+
+function TROClassFactoryList.GetItems(Index: integer): IROClassFactory;
+begin
+  result := inherited Items[Index] as IROClassFactory
+end;
+
+function TROClassFactoryList.GetNames: IROStrings;
+var
+  i:integer;
+begin
+  result := NewROStrings();
+  for i := 0 to Count-1 do begin
+    Result.Add(Items[i].InterfaceName);
+  end;
+  Result.AddStrings(GetZeroConfNames.Strings);
+end;
+
+function TROClassFactoryList.GetZeroConfNames: IROStrings;
+var
+  i:integer;
+  zcf : IROClassFactory_ZeroConfig;
+begin
+  result := NewROStrings();
+  for i := 0 to Count-1 do begin
+    if Supports(Items[i], IROClassFactory_ZeroConfig, zcf) then
+      Result.AddStrings(zcf.GetAliasNames);
+  end;
+end;
+
+{ TROInvoker }
+
+constructor TROInvoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TROInvoker.BeforeInvoke(aMethodPtr: TMessageInvokeMethod;
+  const anInstance: IInterface;
+  const aFactory: IROClassFactory;
+  const aMessage: IROMessage;
+  const aTransport: IROTransport);
+var
+  dispnotifier: IRODispatchNotifier;
+  objactivation: IROObjectActivation;
+  streamaccess : IROStreamAccess;
+  currpos : integer;
+begin
+  {$IFDEF FPC}
+  if (@aMethodPtr = nil) or (aFactory = nil) then streamaccess := NIL else // for preventing warnings in FPC
+  {$ENDIF}
+  streamaccess := NIL;
+  currpos := -1; // introduced for a compiler warning...
+
+  if Supports(aMessage, IROStreamAccess, streamaccess)
+    then currpos := streamaccess.Stream.Position;
+
+  // This can be enanched by descendants
+  if Supports(anInstance, IROObjectActivation, objactivation) then begin
+    objactivation.OnActivate(aMessage.ClientID, aMessage);
+    if (streamaccess<>NIL)
+      then streamaccess.Stream.Position := currpos;
+  end;
+
+  if Supports(anInstance, IRODispatchNotifier, dispnotifier) then begin
+    dispnotifier.GetDispatchInfo(aTransport, aMessage);
+    if (streamaccess<>NIL)
+      then streamaccess.Stream.Position := currpos;
+  end;
+end;
+
+procedure TROInvoker.AfterInvoke(aMethodPtr: TMessageInvokeMethod;
+  const anInstance: IInterface;
+  const aFactory: IROClassFactory;
+  const aMessage: IROMessage;
+  const aTransport: IROTransport;
+  anException: Exception);
+var
+  objactivation: IROObjectActivation;
+begin
+  {$IFDEF FPC}
+  if (anInstance<>nil) or (@aMethodPtr <> nil) or (aMessage <> nil) or (aFactory <> nil) or (aTransport <> nil) or (anException <> nil) then // for preventing warnings in FPC
+  {$ENDIF}
+  if Supports(anInstance, IROObjectActivation, objactivation) then begin
+    objactivation.OnDeactivate(aMessage.ClientID);
+  end;
+end;
+
+function TROInvoker.CustomHandleMessage(const aFactory: IROClassFactory;
+  const aMessage: IROMessage;
+  const aTransport: IROTransport;
+  out oResponseOptions: TROResponseOptions): boolean;
+var
+  mtd: TMessageInvokeMethod;
+  instance: IInterface;
+begin
+  result := FALSE;
+  if FAbstract then RaiseError(err_AbstractService, [aFactory.InterfaceName]);
+
+  mtd := nil;
+  instance := nil;
+
+  // The message is guaranteed not to be NIL and to have a name and an InterfaceName at this point
+  @mtd := MethodAddress('Invoke_' + aMessage.MessageName);
+  if (@mtd <> nil) then try
+    try
+      aFactory.CreateInstance(aMessage.ClientID, instance);
+
+      if (instance = nil) then RaiseError(err_ClassFactoryDidNotReturnInstance, [aMessage.InterfaceName]);
+
+      BeforeInvoke(mtd, instance, aFactory, aMessage, aTransport);
+      mtd(instance, aMessage, aTransport, oResponseOptions);
+      AfterInvoke(mtd, instance, aFactory, aMessage, aTransport, nil);
+
+      result := TRUE;
+    except
+      on E: Exception do begin
+        AfterInvoke(mtd, instance, aFactory, aMessage, aTransport, E);
+        raise;
+      end;
+    end;
+  finally
+    if (instance <> nil) then aFactory.ReleaseInstance(aMessage.ClientID, instance);
+  end
+  else
+    RaiseError(err_UnknownMethod, [aMessage.MessageName, aFactory.InterfaceName]);
+end;
+
+destructor TROInvoker.Destroy;
+begin
+  inherited;
+end;
+
+function TROInvoker.HandleMessage(const aFactory: IROClassFactory;
+  const aMessage: IROMessage;
+  const aTransport: IROTransport;
+  out oResponseOptions: TROResponseOptions): boolean;
+begin
+  result := CustomHandleMessage(aFactory, aMessage, aTransport, oResponseOptions);
+end;
+
+procedure TROInvoker.Invoke_RegisterEventClient(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure RegisterEventClient(const ClientID: String; const EventTypes: String); }
+var
+  ClientID: AnsiString;
+  EventTypes: AnsiString;
+begin
+  EventTypes := '';
+  ClientID := '';
+  try
+    __Message.Read('ClientID', TypeInfo(AnsiString), ClientID, []);
+    __Message.Read('EventTypes', TypeInfo(AnsiString), EventTypes, []);
+
+    (__Instance as IROServerEventsBroker).RegisterEventClient(ClientID, EventTypes);
+
+    __Message.InitializeResponseMessage(__Transport, 'Library', 'Service', 'RegisterEventClientResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TROInvoker.Invoke_UnregisterEventClient(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure UnregisterEventClient(const ClientID: String; const EventTypes: String); }
+var
+  ClientID: AnsiString;
+  EventTypes: AnsiString;
+begin
+  EventTypes := '';
+  ClientID := '';
+  try
+    __Message.Read('ClientID', TypeInfo(AnsiString), ClientID, []);
+    __Message.Read('EventTypes', TypeInfo(AnsiString), EventTypes, []);
+
+    (__Instance as IROServerEventsBroker).UnregisterEventClient(ClientID, EventTypes);
+
+    __Message.InitializeResponseMessage(__Transport, 'Library', 'Service', 'UnregisterEventClientResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TROInvoker.Invoke_GetEventsData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetEventsData(const ClientID: String; out EventsData: Binary): Integer; }
+var
+  ClientID: AnsiString;
+  EventsData: Binary;
+  lResult: Integer;
+begin
+  __oResponseOptions := [];
+  ClientID := '';
+  EventsData := nil;
+  try
+    __Message.Read('ClientID', TypeInfo(AnsiString), ClientID, []);
+
+    lResult := (__Instance as IROServerEventsBroker).GetEventsData(ClientID, EventsData);
+
+    __Message.InitializeResponseMessage(__Transport, 'Library', 'Service', 'GetEventsDataResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Write('EventsData', TypeInfo(Binary), EventsData, []);
+    __Message.Finalize;
+
+  finally
+    EventsData.Free;
+  end;
+end;
+
+procedure TROInvoker.Invoke_RegisterClient(const __Instance: IInterface;
+  const __Message: IROMessage; const __Transport: IROTransport;
+  out __oResponseOptions: TROResponseOptions);
+begin
+  Invoke_RegisterEventClient(__Instance, __Message, __Transport, __oResponseOptions);
+end;
+
+procedure TROInvoker.Invoke_UnregisterClient(const __Instance: IInterface;
+  const __Message: IROMessage; const __Transport: IROTransport;
+  out __oResponseOptions: TROResponseOptions);
+begin
+  Invoke_UnregisterEventClient(__Instance, __Message, __Transport, __oResponseOptions);
+end;
+
+procedure TROInvoker.CheckRoles(anInstance: IInterface;
+  aRoles: array of String);
+var
+  aService: IRORolesAwareService;
+begin
+  if Length(aRoles) = 0 then exit;
+  if not Supports(anInstance, IRORolesAwareService, aService) then
+    raise SessionDoesNotHaveRequiredRolesException.Create(Err_SessionDoesNotHaveAllRequiredRoles);
+  aService.ServiceValidateRoles(aRoles);
+end;
+
+{ TRORemotable }
+
+constructor TRORemotable.Create;
+begin
+  inherited;
+end;
+
+destructor TRORemotable.Destroy;
+begin
+  FreeAndNIL(fRetainedObjects);
+  inherited;
+end;
+
+{$IFDEF DELPHI7UP}
+
+procedure TRORemotable.Synchronize(aMethod: TThreadMethod);
+begin
+  TThread.Synchronize(nil, aMethod);
+end;
+{$ENDIF DELPHI7UP}
+
+function TRORemotable.IsRetained(const anObject: TObject): boolean;
+begin
+  result := (fRetainedObjects<>NIL) and (fRetainedObjects.IndexOf(anObject)>=0)
+end;
+
+procedure TRORemotable.RetainObject(const anObject: TObject);
+begin
+  // Only creates it if necessary
+  if (fRetainedObjects=NIL) then
+    fRetainedObjects := TList.Create;
+
+  fRetainedObjects.Add(anObject);
+end;
+
+procedure TRORemotable.ReleaseObject(const anObject: TObject);
+var idx : integer;
+begin
+  // Only creates it if necessary
+  if (fRetainedObjects=NIL) then Exit;
+
+  idx := fRetainedObjects.IndexOf(anObject);
+  if (idx>=0) then fRetainedObjects.Delete(idx);
+end;
+
+{ TROMessageDispatcher }
+
+constructor TROMessageDispatcher.Create(aCollection: TCollection);
+begin
+  inherited Create(aCollection);
+
+  fEnabled := TRUE;
+  fDispatchers := TROMessageDispatchers(aCollection);
+  fModuleInfoIntf := nil;
+  fMessageIntf := nil;
+end;
+
+destructor TROMessageDispatcher.Destroy;
+begin
+  fModuleInfoIntf := nil;
+  fMessageIntf := nil;
+  Message := nil;
+  inherited;
+end;
+
+function TROMessageDispatcher.ProcessMessage(const aTransport: IROTransport; aRequeststream, aResponsestream: TStream; out oResponseOptions: TROResponseOptions): boolean;
+var
+  lMessage: IROMessage;
+begin
+  lMessage := (MessageIntf as IROMessageCloneable).Clone();
+  result := MainProcessMessage(lMessage, aTransport, aRequeststream, aResponsestream, oResponseOptions);
+end;
+
+function TROMessageDispatcher.GetDisplayName: string;
+begin
+  if (fMessage = nil) then
+    result := '[Unassigned]'
+  else
+    result := fMessage.Name;
+end;
+
+function TROMessageDispatcher.GetMessageIntf: IROMessage;
+begin
+  result := IROMessage(fMessageIntf);
+end;
+
+function TROMessageDispatcher.GetModuleInfoIntf: IROModuleInfo;
+begin
+  result := IROModuleInfo(fModuleInfoIntf)
+end;
+
+procedure TROMessageDispatcher.SetMessage(const Value: TROMessage);
+var
+  ref: IROMessage;
+begin
+  if (Value <> fMessage) then begin
+    if fMessage <> nil then fMessage.RORemoveFreeNotification(Server);
+
+    if (Value <> nil) then begin
+      if (fDispatchers.FindDuplicate(Value) <> nil) then RaiseError(err_DispatcherAlreadyAssigned, [Value.Name]);
+      if not Value.GetInterface(IROMessage, ref) then RaiseError(err_IROMessageNotSupported, [Value.ClassName]);
+
+      fMessageIntf := pointer(ref);
+      Value.GetInterface(IROModuleInfo, fModuleInfoIntf);
+      Value.ROFreeNotification(Server);
+    end
+    else begin
+      fMessageIntf := nil;
+      fModuleInfoIntf := nil;
+    end;
+    fMessage := Value;
+  end;
+end;
+
+function TROMessageDispatcher.CanHandleMessage(const aTransport: IROTransport; aRequeststream: TStream): boolean;
+begin
+  {$IFDEF FPC}
+  if (aTransport = nil) or (aRequeststream = nil) then result := fEnabled else // for preventing warnings in FPC
+  {$ENDIF}
+  result := fEnabled;
+end;
+
+procedure TROMessageDispatcher.Assign(Source: TPersistent);
+var
+  SourceDispatcher: TROMessageDispatcher;
+begin
+  if Source is TROMessageDispatcher then begin
+    SourceDispatcher := TROMessageDispatcher(Source);
+    Name := SourceDispatcher.Name;
+    Message := SourceDispatcher.Message;
+    Enabled := SourceDispatcher.Enabled;
+  end
+  else
+    inherited Assign(Source);
+end;
+
+function TROMessageDispatcher.GetServer: TROServer;
+begin
+  result := fDispatchers.Server;
+end;
+
+{ TROMessageDispatchers }
+
+procedure TROMessageDispatchers.CleanReferences(aMessage: TROMessage);
+var
+  i: integer;
+begin
+  for i := 0 to (Count - 1) do
+    if (Dispatchers[i].Message = aMessage) then begin
+      Dispatchers[i].Message := nil;
+    end;
+end;
+
+constructor TROMessageDispatchers.Create(aServer: TROServer);
+begin
+  inherited Create(GetDispatcherClass);
+  fServer := aServer;
+end;
+
+destructor TROMessageDispatchers.Destroy;
+begin
+  inherited;
+end;
+
+function TROMessageDispatchers.FindDispatcher(const aTransport: IROTransport;
+  aRequestStream: TStream): TROMessageDispatcher;
+var
+  i: integer;
+begin
+  result := nil;
+
+  for i := 0 to (Count - 1) do
+    if Dispatchers[i].CanHandleMessage(aTransport, aRequestStream) then begin
+      result := Dispatchers[i];
+      Break;
+    end;
+end;
+
+function TROMessageDispatchers.DispatcherByName(
+  const aName: string): TROMessageDispatcher;
+var
+  i: integer;
+begin
+  result := nil;
+  for i := 0 to (Count - 1) do
+    if (CompareText(Dispatchers[i].Name, aName) = 0) then begin
+      result := Dispatchers[i];
+      Exit;
+    end;
+end;
+
+function TROMessageDispatchers.FindDuplicate(
+  aMessage: TROMessage): TROMessageDispatcher;
+var
+  i: integer;
+begin
+  result := nil;
+
+  for i := 0 to (Count - 1) do
+    if (Dispatchers[i].Message = aMessage) then begin
+      result := Dispatchers[i];
+      Exit;
+    end;
+end;
+
+function TROMessageDispatchers.GetDispatcher(
+  Index: integer): TROMessageDispatcher;
+begin
+  result := TROMessageDispatcher(inherited Items[Index]);
+end;
+
+function TROMessageDispatchers.GetDispatcherClass: TROMessageDispatcherClass;
+begin
+  result := TROMessageDispatcher;
+end;
+
+function TROMessageDispatchers.GetSupportsMultipleDispatchers: boolean;
+begin
+  result := FALSE;
+end;
+
+{$IFDEF DELPHI6UP}
+
+procedure TROMessageDispatchers.Notify(Item: TCollectionItem;
+  Action: TCollectionNotification);
+begin
+  inherited;
+  if (Action = cnAdded) then begin
+    if not SupportsMultipleDispatchers and (Count > 1) then begin
+
+      (*if (csDesigning in fServer.ComponentState) then begin
+        { TODO: This is really bad. I should probabily just make a component editor and control it in there.
+                The problem is that I cannot find a way to stop a TCollection.Add method gracefully.
+                After this method is called TCollection.InsertItem continues and invokes NotifyDesigner
+                passing Item. That will obviously fail since Item is being freed here... }
+        MessageDlg(Format(err_ServerOnlySupportsOneDispatcher+'.'+#13#10+
+                          'You can ignore the error that Delphi will raise in the IDE after you close this dialog.', [fServer.ClassName]), mtError, [mbOK], 0);
+      end;*)
+
+      FreeAndNIL(Item);
+      RaiseError(err_ServerOnlySupportsOneDispatcher, [])
+    end;
+  end;
+end;
+{$ENDIF DELPHI6UP}
+
+{ TROServer }
+
+constructor TROServer.Create(aOwner: TComponent);
+begin
+  inherited;
+  fDispatchers := GetDispatchersClass.Create(Self);
+end;
+
+destructor TROServer.Destroy;
+begin
+  fDispatchers.Free;
+  inherited;
+end;
+
+procedure TROServer.TriggerReadFromStream(iStream: TStream);
+begin
+  if Assigned(OnReadFromStream) then begin
+    iStream.Position := 0;
+    OnReadFromStream(iStream);
+    iStream.Position := 0;
+  end;
+end;
+
+procedure TROServer.TriggerWriteToStream(iStream: TStream);
+begin
+  if Assigned(OnWriteToStream) then begin
+    iStream.Position := 0;
+    OnWriteToStream(iStream);
+    iStream.Position := 0;
+  end;
+end;
+
+procedure TROServer.Z_SetBeforeClose(Value: TNotifyEvent);
+begin
+  fz_OnBeforeServerDeactivate := Value;
+end;
+
+procedure TROServer.Z_SetAfterOpen(Value: TNotifyEvent);
+begin
+  fz_OnAfterServerActivate := Value;
+end;
+
+function TROServer.DispatchMessage(const aTransport: IROTransport; aRequeststream, aResponsestream: TStream): boolean;
+var
+  lIgnore: TROResponseOptions;
+begin
+  result := DispatchMessage(aTransport, aRequeststream, aResponsestream, lIgnore);
+end;
+
+function TROServer.DispatchMessage(const aTransport: IROTransport; aRequeststream, aResponsestream: TStream; out oResponseOptions: TROResponseOptions): boolean;
+var
+  dispatcher: TROMessageDispatcher;
+  excstr: string;
+begin
+  result := false;
+  try
+    {aRequeststream.Position := 0;
+    if Assigned(OnReadFromStream) then OnReadFromStream(aRequeststream);
+    aRequeststream.Position := 0;}
+
+    dispatcher := Dispatchers.FindDispatcher(aTransport, aRequeststream);
+
+    if (dispatcher = nil) then RaiseError(err_CannotFindMessageDispatcher, []); // Should never happen! If this happens there's no way to format the exception correctly
+
+    result := IntDispatchMessage(dispatcher, aTransport, aRequeststream, aResponsestream, oResponseOptions);
+
+  except
+    on E: Exception do begin
+      if (E.Message <> '') then
+        excstr := E.Message
+      else
+        excstr := err_UnhandledException;
+      aResponseStream.Write(excstr[1], Length(excstr));
+      TriggerWriteToStream(aResponsestream);
+    end;
+  end;
+
+  aResponsestream.Position := 0; // Just in case
+  {aResponsestream.Position := 0;
+  if Assigned(OnWriteToStream) then OnWriteToStream(aResponsestream);
+  aResponsestream.Position := 0;}
+end;
+
+procedure TROServer.EncodeEventStream(aStream: TStream);
+begin
+  {$IFDEF REMOBJECTS_UseEncryption}
+  if (Encryption.EncryptionMethod <> tetNone) then DoEncryption2(aStream);
+  {$ENDIF}
+end;
+
+function TROServer.GetActive: boolean;
+begin
+  result := IntGetActive;
+end;
+
+procedure TROServer.Loaded;
+begin
+  inherited;
+
+  IntSetActive(FALSE);
+  Active := fLoadActive;
+  fDoneAfterLoad := TRUE;
+end;
+
+procedure TROServer.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+
+  if (Operation = opRemove) then begin
+    if (aComponent is TROMessage) then fDispatchers.CleanReferences(TROMessage(aComponent));
+    //if aComponent = AsyncResponseStorage then AsyncResponseStorage := nil;
+  end;
+end;
+
+function TROServer.QueryInterface(const IID: TGUID; out Obj): HResult;
+begin
+  Result := E_NOINTERFACE;
+  if IsEqualGUID(IID, IZeroConfServerChannel) and (GetServerType = rstNonIPBased) then Exit;
+  Result := inherited QueryInterface(IID, Obj);
+end;
+
+procedure TROServer.SetActive(const Value: boolean);
+begin
+  if (csLoading in ComponentState) then begin
+    fDoneAfterLoad := FALSE;
+    fLoadActive := Value
+  end
+
+  else begin
+    if (Value = Active) then Exit;
+
+    case Value of
+      TRUE: if Assigned(fOnBeforeServerActivate) then fOnBeforeServerActivate(Self);
+      FALSE: begin
+        if Assigned(fz_OnBeforeServerDeactivate) then fz_OnBeforeServerDeactivate(Self);
+        if Assigned(fOnBeforeServerDeactivate) then fOnBeforeServerDeactivate(Self);
+      end;
+    end;
+
+    IntSetActive(Value);
+
+    if (Value = Active) then begin
+      case Value of
+        TRUE: begin
+          if Assigned(fOnAfterServerActivate) then fOnAfterServerActivate(Self);
+          if Assigned(fz_OnAfterServerActivate) then fz_OnAfterServerActivate(Self);
+        end;
+        FALSE: if Assigned(fOnAfterServerDeactivate) then fOnAfterServerDeactivate(Self);
+      end;
+    end;
+  end;
+end;
+
+procedure TROServer.SetDispatchers(const Value: TROMessageDispatchers);
+begin
+  fDispatchers := Value;
+end;
+
+
+procedure TROServer.SetPort(const Value: Integer);
+begin
+  // nothing
+end;
+
+procedure TROServer.SetZeroConfRegistrationServer(const Value: TObject);
+begin
+  FZeroConfRegistrationServer := Value;
+end;
+
+function TROServer.GetDispatchersClass: TROMessageDispatchersClass;
+begin
+  result := TROMessageDispatchers;      // Default
+end;
+
+function TROServer.GetPort: Integer;
+begin
+  Result := -1;
+end;
+
+{procedure TROServer.SetAsyncResponseStorage(const Value:TROAsyncResponseStorage);
+begin
+  if fAsyncResponseStorage <> Value then begin
+    fAsyncResponseStorage := Value;
+    if Assigned(fAsyncResponseStorage) then fAsyncResponseStorage.FreeNotification(self);
+  end;
+end;}
+
+function TROServer.IntDispatchMessage(Dispatcher: TROMessageDispatcher;
+  const aTransport: IROTransport; aRequeststream, aResponsestream: TStream;
+  out oResponseOptions: TROResponseOptions): boolean;
+  {$IFDEF REMOBJECTS_UseEncryption}
+var
+  DEncRequest, DUnEncResponse: TMemoryStream;
+  {$ENDIF}
+begin
+  {$IFDEF REMOBJECTS_UseEncryption}
+  if Encryption.EncryptionMethod <> tetNone then begin
+    dEncRequest := TMemoryStream.Create;
+    dUnEncResponse := TMemoryStream.Create;
+    try
+      DoDecryption(aRequeststream, dEncRequest);
+      DEncRequest.Position := 0;
+      TriggerReadFromStream(dEncRequest);
+      result := dispatcher.ProcessMessage(aTransport, dEncRequest, dUnEncResponse, oResponseOptions); // This traps exception and cannot fail
+      TriggerWriteToStream(dUnEncResponse);
+      if roDontEncrypt in oResponseOptions then
+      begin
+        DUnEncResponse.Position := 0;
+        aResponsestream.CopyFrom(DUnEncResponse, DUnEncResponse.Size);
+        aResponsestream.Position := 0;
+      end else
+      DoEncryption(dUnEncResponse, aResponsestream);
+    finally
+      dEncRequest.Free;
+      dUnEncResponse.free;
+    end;
+  end
+  else
+  {$ENDIF}
+  begin
+    TriggerReadFromStream(aRequeststream);
+    result := dispatcher.ProcessMessage(aTransport, aRequeststream, aResponsestream, oResponseOptions); // This traps exception and cannot fail
+    TriggerWriteToStream(aResponsestream);
+  end;
+end;
+
+procedure TROServer.Assign(Source: TPersistent);
+var
+  lSource: TROServer;
+begin
+  if Active then raise EROException.Create(Self.Name+ ' must be stopped before assigning');
+  inherited;
+  if Source is TROServer then begin
+    lSource := TROServer(Source);
+
+    Dispatchers.Assign(lSource.Dispatchers);
+    OnAfterServerActivate := lSource.OnAfterServerActivate;
+    OnAfterServerDeactivate := lSource.OnAfterServerDeactivate;
+    OnBeforeServerActivate := lSource.OnBeforeServerActivate;
+    OnBeforeServerDeactivate := lSource.OnBeforeServerDeactivate;
+    OnGetRODLReader := lSource.OnGetRODLReader;
+    OnReadFromStream := lSource.OnReadFromStream;
+    OnWriteToStream := lSource.OnWriteToStream;
+    if (GetServerType = lSource.GetServerType) then begin
+      Port := lSource.Port;
+    end;
+  end;
+end;
+
+procedure TROServer.CheckProperties;
+begin
+// nothing
+end;
+
+function TROServer.GetRODLReader: TROCustomRODLReader;
+begin
+  Result:=nil;
+  if Assigned(FOnGetRODLReader) then FOnGetRODLReader(Self,Result);
+end;
+
+function TROServer.GetServerType: TROServerType;
+begin
+  Result := rstNonIPBased;
+end;
+
+function TROServer.GetZeroConfRegistrationServer: TObject;
+begin
+  Result := FZeroConfRegistrationServer;
+end;
+
+{ TROClassFactory }
+
+constructor TROClassFactory.Create(const anInterfaceName: string;
+  aCreatorFunc: TRORemotableCreatorFunc;
+  anInvokerClass: TROInvokerClass);
+begin
+  inherited Create;
+
+  fInvoker := nil;
+  fCreatorFunc := aCreatorFunc;
+  fInterfaceName := anInterfaceName;
+  fInvokerClass := anInvokerClass;
+  fAliasNames := TStringList.Create;
+  RegisterClassFactory(Self);
+end;
+
+destructor TROClassFactory.Destroy;
+begin
+  fAliasNames.Free;
+  inherited;
+end;
+
+procedure TROClassFactory.CreateInstance(const aClientID: TGUID; out anInstance: IInterface);
+begin
+  fCreatorFunc(anInstance);
+end;
+
+function TROClassFactory.GetAliasNames: TStringList;
+begin
+  Result := fAliasNames;
+end;
+
+function TROClassFactory.GetInterfaceName: string;
+begin
+  result := fInterfaceName
+end;
+
+function TROClassFactory.GetInvoker: IROInvoker;
+begin
+  if (fInvoker = nil) then fInvoker := fInvokerClass.Create; // Only creates it when really needed
+
+  result := fInvoker;
+end;
+
+function TROClassFactory.IsInterfaceNameSupported(
+  const anInterfaceName: string): Boolean;
+begin
+  Result := fAliasNames.IndexOf(anInterfaceName) <> -1;
+end;
+
+procedure TROClassFactory.RegisterInterfaceName(const anInterfaceName: string);
+var
+  lInterfaceName: string;
+begin
+  lInterfaceName := anInterfaceName;
+  if pos('_',lInterfaceName) <> 1 then lInterfaceName := '_'+lInterfaceName;
+  if not (EndsWith('._tcp.', lInterfaceName) or EndsWith('._udp.', lInterfaceName)) then begin
+    if not EndsWith('_rosdk.', lInterfaceName) then lInterfaceName := lInterfaceName + '_rosdk.';
+    lInterfaceName := lInterfaceName + '_tcp.';
+  end;
+  fAliasNames.Add(lInterfaceName);
+end;
+
+procedure TROClassFactory.ReleaseInstance(const aClientID: TGUID; var anInstance: IInterface);
+begin
+  anInstance := nil;
+end;
+
+procedure TROClassFactory.UnregisterInterfaceName(const anInterfaceName: string);
+var
+  i: integer;
+begin
+  i := fAliasNames.IndexOf(anInterfaceName);
+  if i <> -1 then fAliasNames.Delete(i);
+end;
+
+function FinalizeClasses: boolean;
+begin
+  if IsLibrary then ReleaseClassFactories;
+  result := True;
+end;
+
+procedure ReleaseClassFactories;
+begin
+  FreeAndNil(_ClassFactoryList);
+end;
+
+initialization
+  _ServerClasses := TClassList.Create;
+  _ClassFactoryList := nil;
+  {$IFNDEF DESIGNTIME}
+  AddTerminateProc(FinalizeClasses);
+  {$ENDIF DESIGNTIME}
+  RegisterExceptionClass(EROSendNoResponse);
+finalization
+  UnregisterExceptionClass(EROSendNoResponse);
+  FreeAndNil(_ServerClasses);
+  {$IFDEF DESIGNTIME}
+  ReleaseClassFactories;
+  {$ELSE}
+  if not IsLibrary then ReleaseClassFactories;
+  {$ENDIF DESIGNTIME}
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServerIntf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServerIntf.pas
new file mode 100644
index 0000000..7b72d84
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServerIntf.pas	
@@ -0,0 +1,181 @@
+unit uROServerIntf;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  {uRORes,} uROClientIntf, uROTypes, Classes, SysUtils;
+
+type
+  {$IFDEF DELPHI5}
+  { IInterface }
+  IInterface = IUnknown;
+  {$ENDIF}
+
+  IROClassFactory = interface;
+
+  TROResponseOption = (roNoResponse, roDontEncrypt);
+  TROResponseOptions = set of TROResponseOption;
+
+  { IROInvoker }
+  IROInvoker = interface
+  ['{6BF28A4D-1511-4FD0-83C0-0F0A23322ACC}']
+    function HandleMessage(const aFactory : IROClassFactory;
+                            const aMessage : IROMessage;
+                            const aTransport : IROTransport;
+                            out oResponseOptions: TROResponseOptions) : boolean;
+  end;
+
+  { IROClassFactory }
+  IROClassFactory = interface
+  ['{87580688-9994-4EB3-BDB9-E621ED52C3E9}']
+    procedure CreateInstance(const aClientID : TGUID; out anInstance : IInterface);
+    procedure ReleaseInstance(const aClientID: TGUID; var anInstance : IInterface);
+
+    function GetInterfaceName : string;
+    function GetInvoker : IROInvoker;
+
+    property InterfaceName : string read GetInterfaceName;
+    property Invoker : IROInvoker read GetInvoker;
+  end;
+
+  IROClassFactory_ZeroConfig = interface
+  ['{9821003C-9C32-4EC6-B4E8-35FAFB2734C0}']
+    function IsInterfaceNameSupported(const anInterfaceName: string):Boolean;
+    procedure RegisterInterfaceName(const anInterfaceName: string);
+    procedure UnregisterInterfaceName(const anInterfaceName: string);
+    function GetAliasNames: TStringList;
+  end;
+
+  IROPooledClassFactory = interface(IROClassFactory)
+  ['{DB0C4A2B-CA2C-4CDA-A02C-289918B29FA3}']
+    procedure ClearPool;
+  end;
+
+  { IRODispatchNotifier }
+  IRODispatchNotifier = interface
+  ['{C3359706-83B8-4285-866C-D4DD5960B183}']
+    procedure GetDispatchInfo(const aTransport : IROTransport; const aMessage : IROMessage);
+  end;
+
+  { IRODestructorController }
+  IRODestructorController = interface
+  ['{D590AF9A-1029-450B-A8B7-0EC8A93DF7DC}']
+    function CanBeDestroyed : boolean;
+  end;
+
+  { IRODestructorControllerEx }
+  IRODestructorControllerEx = interface(IRODestructorController)
+  ['{2897DFAE-A466-4886-ADC3-9F0D7DD393A8}']
+    procedure SetCanBeDestroyed(Value : boolean);
+  end;
+
+  { IROObjectActivation }
+  IROObjectActivation = interface
+  ['{071ECDF1-A4B0-4333-93B4-EE1B8609FF80}']
+    procedure OnActivate(aClientID: TGUID; const aMessage : IROMessage);
+    procedure OnDeactivate(aClientID: TGUID);
+  end;
+	IRORolesAwareService = interface
+    ['{B05B397E-D359-48C8-B8C4-F04ABB922A47}']
+		procedure ServiceValidateRoles (aRequiredRoles: array of String);
+	end;
+
+  { IROObjectTimeout }
+  IROObjectTimeout = interface
+  ['{DC7FC0CB-D3C6-4CA7-8F71-57ECE1392594}']
+    procedure OnTimeout;
+  end;
+
+  { IROServerEventsBroker }
+  IROServerEventsBroker = interface
+    ['{5B6A3449-3B13-4B0A-B1FF-B2FAA18D57B1}']
+    procedure RegisterEventClient(const ClientID, EventTypes : Ansistring);
+    procedure UnregisterEventClient(const ClientID, EventTypes : Ansistring);
+
+    function GetEventsData(const ClientID : Ansistring; out EventsData : Binary) : integer;
+  end;
+
+  TROEventData = class;
+
+  IROActiveEventServer = interface
+    ['{DD0B0C09-2D17-46EA-8110-E7BEE9B8AB7B}']
+    procedure EventsRegistered(aSender : TObject; aClient: TGUID);
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject); // asender is TROEventRepository
+  end;
+
+  { TROEventData }
+  TROEventData = class
+  private
+    fData: TStream;
+    fRefCount: integer;
+//    fShouldRemoveFromOwner: Boolean;
+  protected
+  public
+    constructor Create(anEventDataStream : TMemoryStream);
+    destructor Destroy; override;
+
+    function AddRef : integer;
+    function RemoveRef : integer;
+//    property ShouldRemoveFromOwner: Boolean read fShouldRemoveFromOwner write fShouldRemoveFromOwner;
+
+    property Data : TStream read fData;
+  end;
+  TRONamedEventData = class(TROEventData)
+  private
+    FID: TGuid;
+  public
+    property ID: TGUID read FID write FID;
+  end;
+
+
+
+
+implementation
+{uses
+  uROClasses;}
+
+{ TROEventData }
+
+function TROEventData.AddRef : integer;
+begin
+  result := InterlockedIncrement(fRefCount);
+end;
+
+constructor TROEventData.Create(anEventDataStream : TMemoryStream);
+begin
+  inherited Create;
+  fRefCount := 1;
+//  fShouldRemoveFromOwner := true;
+  fData := TMemoryStream.Create;
+  anEventDataStream.Position := 0;
+  fData.CopyFrom(anEventDataStream, anEventDataStream.Size);
+end;
+
+destructor TROEventData.Destroy;
+begin
+  FreeAndNIL(fData);
+  inherited;
+end;
+
+function TROEventData.RemoveRef : integer;
+begin
+  result := InterlockedDecrement(fRefCount);
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServerMultiMessage.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServerMultiMessage.pas
new file mode 100644
index 0000000..16c9843
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServerMultiMessage.pas	
@@ -0,0 +1,433 @@
+unit uROServerMultiMessage;
+
+{$I RemObjects.inc}
+interface
+uses
+  SysUtils, Classes, TypInfo,
+  uROClientIntf, uROSerializer, uROClient;
+
+type
+  TROServerMultiMessage = class;
+  TROServerMultiMessageCollectionItem = class(TCollectionItem)
+  private
+    FMessage: TROMessage;
+    procedure SetMessage(const Value: TROMessage);
+  protected
+    function GetDisplayName: string; override;
+  public
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Message: TROMessage read FMessage write SetMessage;
+  end;
+
+  TROServerMultiMessageCollection = class(TCollection)
+  private
+    FOwner: TROServerMultiMessage;
+    function GetItems(Index: integer): TROServerMultiMessageCollectionItem;
+  public
+    procedure Notify(Item: TCollectionItem; Action: TCollectionNotification); override;
+    constructor Create(aOwner: TROServerMultiMessage);
+    function FindItemByMessage(AMessage: TROMessage): TROServerMultiMessageCollectionItem;
+    property Items[Index: integer]: TROServerMultiMessageCollectionItem read GetItems; default;
+  end;
+
+  TROServerMultiMessage = class(TROMessage)
+  private
+    FSupportedMessages: TROServerMultiMessageCollection;
+    FDefaultMessage: TROMessage;
+    FDefaultMessageIndex: integer;
+    FNeedInitializeRead:boolean;
+    fTransport: IROTransport;
+    procedure DetectMessageFromStream(aStream: TStream);
+    procedure SetSupportedMessages(const Value: TROServerMultiMessageCollection);
+    function InternalIsValidMessage(aData: PAnsiChar; aLength: Integer): integer;
+    procedure SetDefaultMessageIndex(const Value: integer);
+    function intGetDefaultMessage:TROMessage;
+    function GetSupportedMessages: TROServerMultiMessageCollection;
+  protected
+    function GetClientID : TGUID; override;
+    procedure SetClientID(const Value : TGUID); override;
+    function DefaultMessage: IROMessage;
+    function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    { Internals }
+    function ReadException: Exception; override;
+    procedure InitObject; override;
+
+    function CreateSerializer: TROSerializer; override;
+
+    { IROMessage }
+    procedure Initialize(const aTransport: IROTransport; const anInterfaceName, aMessageName: string; aType: TMessageType); override;
+    procedure Initialize(const aTransport: IROTransport; const aLibraryName, anInterfaceName, aMessageName: string; aType: TMessageType); override;
+    procedure Finalize; override;
+
+{$IFDEF DOTNET}
+{$ELSE}
+    procedure Write(const aName: string; aTypeInfo: PTypeInfo; const Ptr; Attributes: TParamAttributes); override;
+    procedure Read(const aName: string; aTypeInfo: PTypeInfo; var Ptr; Attributes: TParamAttributes); override;
+{$ENDIF}
+
+    procedure WriteToStream(aStream: TStream); override;
+    procedure ReadFromStream(aStream: TStream); override;
+    procedure ReadFromStream(aStream: TStream; var aFreeStream: Boolean); override;
+    function GetMessageType: TMessageType; override;
+    procedure WriteException(aStream: TStream; anException: Exception); override;
+    procedure FreeStream; override;
+    procedure InitializeRead(const aTransport: IROTransport); override;
+  public
+    destructor Destroy; override;
+    procedure Assign(iSource: TPersistent); override;
+    procedure CheckProperties; override;
+    function IsValidMessage(aData: PAnsiChar; aLength: Integer): boolean; override;
+  published
+    property SupportedMessages: TROServerMultiMessageCollection read GetSupportedMessages write SetSupportedMessages;
+    property DefaultMessageIndex: integer read FDefaultMessageIndex write SetDefaultMessageIndex default -1;
+  end;
+
+implementation
+uses
+  uROClasses, uRORes;
+
+{ TROServerMultiMessage }
+
+procedure TROServerMultiMessage.Assign(iSource: TPersistent);
+begin
+  inherited;
+  if Assigned(iSource) then begin
+    if not (iSource is TROServerMultiMessage) then RaiseError('Cannot Assign a %s t a %s', [ClassName, iSource.ClassName]);
+    self.SupportedMessages := (iSource as TROServerMultiMessage).SupportedMessages;
+    Self.DefaultMessageIndex := (iSource as TROServerMultiMessage).DefaultMessageIndex;
+  end;
+end;
+
+procedure TROServerMultiMessage.CheckProperties;
+var
+  lMessage: TROMessage;
+begin
+  lMessage:= intGetDefaultMessage;
+  Check(lMessage = nil, Name + '. Can not detect default message'); //???
+  lMessage.CheckProperties;
+  inherited;
+end;
+
+function TROServerMultiMessage.CreateSerializer: TROSerializer;
+begin
+  Result := nil;
+end;
+
+function TROServerMultiMessage.DefaultMessage: IROMessage;
+begin
+  CheckProperties;
+  Result := intGetDefaultMessage;
+  if FNeedInitializeRead then begin
+    Result.InitializeRead(fTransport);
+    fTransport:=nil;
+    FNeedInitializeRead:= False;
+  end;
+end;
+
+destructor TROServerMultiMessage.Destroy;
+begin
+  FreeAndNil(FSupportedMessages);
+  inherited;
+end;
+
+procedure TROServerMultiMessage.DetectMessageFromStream(aStream: TStream);
+const
+  BufSize = 100;
+var
+  i: integer;
+  buf: PAnsichar;
+  currentBufSize: int64;
+begin
+  FDefaultMessage := nil;
+  aStream.Position := 0;
+
+  if aStream.Size > bufsize then
+    currentBufSize := BufSize
+  else
+    currentBufSize := aStream.Size;
+
+  GetMem(buf, currentBufSize);
+  try
+    aStream.Read(buf^, currentBufSize);
+    if copy(AnsiString(Buf),1,6) = AnsiString('rorock') then RaiseInvalidStreamError(err_InvalidHeaderEncrypted, [], aStream);
+    i := InternalIsValidMessage(buf, currentBufSize);
+    if i <> -1 then FDefaultMessage := SupportedMessages[i].Message;
+    Check(intGetDefaultMessage = nil, Name + '. Can not find the valid Message for stream.' + sLineBreak +{$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Ansistring(buf)));
+  finally
+    aStream.Position := 0;
+    FreeMem(buf);
+  end;
+end;
+
+procedure TROServerMultiMessage.Finalize;
+begin
+  DefaultMessage.Finalize;
+  inherited;
+end;
+
+procedure TROServerMultiMessage.FreeStream;
+begin
+  DefaultMessage.FreeStream;
+  inherited;
+end;
+
+function TROServerMultiMessage.GetClientID: TGUID;
+var
+  lMessage: TROMessage;
+begin
+  lMessage := intGetDefaultMessage;
+  if lMessage <> nil then
+    Result := lMessage.ClientID
+  else
+    Result := inherited GetClientID;
+end;
+
+function TROServerMultiMessage.GetMessageType: TMessageType;
+begin
+  Result := DefaultMessage.MessageType;
+end;
+
+procedure TROServerMultiMessage.Initialize(const aTransport: IROTransport;
+  const anInterfaceName, aMessageName: string; aType: TMessageType);
+begin
+  inherited Initialize(aTransport, anInterfaceName, aMessageName, aType);
+  DefaultMessage.Initialize(aTransport, anInterfaceName, aMessageName, aType);
+end;
+
+function TROServerMultiMessage.GetSupportedMessages: TROServerMultiMessageCollection;
+begin
+  if FSupportedMessages = nil then FSupportedMessages := TROServerMultiMessageCollection.Create(Self);
+  Result := FSupportedMessages;
+end;
+
+procedure TROServerMultiMessage.Initialize(const aTransport: IROTransport;
+  const aLibraryName, anInterfaceName, aMessageName: string;
+  aType: TMessageType);
+begin
+  inherited Initialize(aTransport, anInterfaceName, aMessageName, aType);
+  DefaultMessage.Initialize(aTransport, aLibraryName, anInterfaceName, aMessageName, aType);
+end;
+
+procedure TROServerMultiMessage.InitializeRead(
+  const aTransport: IROTransport);
+begin
+  inherited;
+  FNeedInitializeRead:=True;
+  fTransport := aTransport;
+end;
+
+procedure TROServerMultiMessage.InitObject;
+begin
+  inherited;
+  FDefaultMessageIndex := -1;
+  FNeedInitializeRead:=False;
+  fTransport := nil;
+end;
+
+function TROServerMultiMessage.InternalIsValidMessage(aData: PAnsiChar;
+  aLength: Integer): integer;
+begin
+  for Result := 0 to SupportedMessages.Count - 1 do
+    with SupportedMessages[Result] do
+      if (Message <> nil) and Message.IsValidMessage(aData, aLength) then Exit;
+  Result := -1;
+end;
+
+function TROServerMultiMessage.intGetDefaultMessage: TROMessage;
+begin
+  Result := FDefaultMessage;
+  if (Result = nil) and (FDefaultMessageIndex >=0) and (FDefaultMessageIndex < SupportedMessages.Count) then
+    Result := SupportedMessages[FDefaultMessageIndex].Message;
+end;
+
+function TROServerMultiMessage.IsValidMessage(aData: PAnsiChar;
+  aLength: Integer): boolean;
+begin
+  Result := InternalisValidMessage(aData, aLength) <> -1;
+end;
+
+procedure TROServerMultiMessage.Notification(AComponent: TComponent;
+  Operation: TOperation);
+var
+  item: TROServerMultiMessageCollectionItem;
+begin
+  inherited;
+  if (Operation = opRemove) then begin
+    if (AComponent is TROMessage) and Assigned(FSupportedMessages) and (SupportedMessages.Count > 0) then begin
+      Item := SupportedMessages.FindItemByMessage(AComponent as TROMessage);
+      if Item <> nil then Item.Message := nil;
+    end;
+  end
+end;
+
+function TROServerMultiMessage.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+var
+  lMessage: TROMessage;
+begin
+  Result := inherited QueryInterface(IID, Obj);
+  if Result = E_NOINTERFACE then begin
+    lMessage:= intGetDefaultMessage;
+    if lMessage <> nil then Result := (lMessage as IROMessage).QueryInterface(IID, Obj);
+  end;
+end;
+
+procedure TROServerMultiMessage.Read(const aName: string;
+  aTypeInfo: PTypeInfo; var Ptr; Attributes: TParamAttributes);
+begin
+  DefaultMessage.Read(aName, aTypeInfo, Ptr, Attributes);
+  if Assigned(OnReadMessageParameter) then OnReadMessageParameter(Self, aName, aTypeInfo, pointer(@Ptr), Attributes);
+end;
+
+function TROServerMultiMessage.ReadException: Exception;
+begin
+  // not called from ROServerMultiMessage
+  Result := nil;
+end;
+
+procedure TROServerMultiMessage.ReadFromStream(aStream: TStream);
+var
+  lMessage: IROMessage;
+begin
+  inherited;
+  DetectMessageFromStream(aStream);
+  lMessage := DefaultMessage;
+  lMessage.ReadFromStream(aStream);
+  InterfaceName := lMessage.InterfaceName;
+  MessageName := lMessage.MessageName;
+end;
+
+procedure TROServerMultiMessage.ReadFromStream(aStream: TStream;
+  var aFreeStream: Boolean);
+var
+  lMessage: IROMessage;
+begin
+  inherited;
+  DetectMessageFromStream(aStream);
+  lMessage := DefaultMessage;
+  lMessage.ReadFromStream(aStream, aFreeStream);
+  InterfaceName := lMessage.InterfaceName;
+  MessageName := lMessage.MessageName;
+end;
+
+procedure TROServerMultiMessage.SetClientID(const Value: TGUID);
+var
+  lMessage: TROMessage;
+begin
+  lMessage:= intGetDefaultMessage;
+  if lMessage <> nil then
+    lMessage.ClientID := Value
+  else
+    inherited SetClientID(Value);
+end;
+
+procedure TROServerMultiMessage.SetDefaultMessageIndex(
+  const Value: integer);
+begin
+  if Value >= SupportedMessages.Count then raise Exception.Create(err_IndexOutOfBounds);
+  FDefaultMessageIndex := Value;
+end;
+
+procedure TROServerMultiMessage.SetSupportedMessages(
+  const Value: TROServerMultiMessageCollection);
+begin
+  SupportedMessages.Assign(Value);
+end;
+
+procedure TROServerMultiMessage.Write(const aName: string;
+  aTypeInfo: PTypeInfo; const Ptr; Attributes: TParamAttributes);
+begin
+  if Assigned(OnWriteMessageParameter) then OnWriteMessageParameter(Self, aName, aTypeInfo, pointer(@Ptr), Attributes);
+  DefaultMessage.Write(aName, aTypeInfo, Ptr, Attributes);
+end;
+
+procedure TROServerMultiMessage.WriteException(aStream: TStream;
+  anException: Exception);
+begin
+  DefaultMessage.WriteException(aStream, anException);
+  inherited;
+end;
+
+procedure TROServerMultiMessage.WriteToStream(aStream: TStream);
+begin
+  DefaultMessage.WriteToStream(aStream);
+  inherited;
+end;
+
+{ TROServerMultiMessageCollectionItem }
+
+procedure TROServerMultiMessageCollectionItem.Assign(Source: TPersistent);
+begin
+  if Source is TROServerMultiMessageCollectionItem then begin
+    Message := TROServerMultiMessageCollectionItem(Source).Message;
+  end
+  else
+    inherited Assign(Source);
+end;
+
+destructor TROServerMultiMessageCollectionItem.Destroy;
+begin
+  Message := nil;
+  inherited;
+end;
+
+function TROServerMultiMessageCollectionItem.GetDisplayName: string;
+begin
+  if FMessage <> nil then
+    Result := FMessage.Name + ' (' + FMessage.ClassName + ')'
+  else
+    Result := '[Unassigned]';
+end;
+
+procedure TROServerMultiMessageCollectionItem.SetMessage(
+  const Value: TROMessage);
+begin
+  if (FMessage <> Value) then begin
+    if Value <> nil then Check(Value is TROServerMultiMessage, Value.Name + ' can not be used here.');
+    if (FMessage <> nil) then FMessage.RORemoveFreeNotification(TROServerMultiMessageCollection(inherited Collection).FOwner);
+    FMessage := Value;
+    if (FMessage <> nil) then FMessage.ROFreeNotification(TROServerMultiMessageCollection(inherited Collection).FOwner);
+  end;
+end;
+
+{ TROServerMultiMessageCollection }
+
+constructor TROServerMultiMessageCollection.Create(
+  aOwner: TROServerMultiMessage);
+begin
+  inherited Create(TROServerMultiMessageCollectionItem);
+  FOwner := aOwner;
+end;
+
+function TROServerMultiMessageCollection.FindItemByMessage(
+  AMessage: TROMessage): TROServerMultiMessageCollectionItem;
+var
+  i: integer;
+begin
+  Result := nil;
+  for i := 0 to Count - 1 do
+    if Items[i].Message = AMessage then begin
+      Result := Items[i];
+      Break;
+    end;
+end;
+
+function TROServerMultiMessageCollection.GetItems(
+  Index: integer): TROServerMultiMessageCollectionItem;
+begin
+  Result := TROServerMultiMessageCollectionItem(inherited Items[Index]);
+end;
+
+procedure TROServerMultiMessageCollection.Notify(Item: TCollectionItem;
+  Action: TCollectionNotification);
+begin
+  inherited;
+  if (Action = cnDeleting) and (FOwner <> nil) and (FOwner.FDefaultMessageIndex >= Count) then
+    FOwner.FDefaultMessageIndex:= Count-1;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServiceComponent.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServiceComponent.pas
new file mode 100644
index 0000000..1c4fea4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROServiceComponent.pas	
@@ -0,0 +1,27 @@
+unit uROServiceComponent {$IFNDEF FPC}deprecated{$ENDIF};
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  uRORemoteService;
+
+type
+  TROServiceComponent = TRORemoteService {$IFDEF DELPHI10UP}deprecated{$ENDIF};
+
+implementation
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSessions.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSessions.pas
new file mode 100644
index 0000000..7c64f9a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSessions.pas	
@@ -0,0 +1,1113 @@
+unit uROSessions;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF FPC}Variants,{$ENDIF}
+  {$IFDEF VER140UP}Variants,{$ENDIF}
+  Classes, SysUtils, SyncObjs, uROClientIntf,
+  uROClient, uROClasses, uROTypes;
+
+const
+  DEFBUFFSIZE = 4096;
+
+type
+ { Misc }
+  TROCustomSessionManager = class;
+
+  PVariantItem = ^TVariantItem;
+  TVariantItem = record
+    Name : string;
+    Value : Variant;
+  end;
+
+  { TROVariantList }
+  TROVariantList = class(TStringList)
+  private
+    function GetValueNames(Index: integer): string;
+    function GetValues(const aName: string): Variant;
+    procedure SetValues(const aName: string; const Value: Variant);
+    function GetItems(Index: integer): PVariantItem;
+    procedure SetValueNames(Index: integer; const Value: string);
+
+  protected
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    procedure Clear; override;
+    procedure Add(const aName : string; const aValue : Variant); reintroduce;
+
+    procedure Delete(const aName : string); reintroduce; overload;
+    procedure Delete(Index : integer); reintroduce; overload;
+
+    property Values[const aName : string] : Variant read GetValues write SetValues; default;
+    property ValueNames[Index : integer] : string read GetValueNames write SetValueNames;
+    property Items[Index : integer] : PVariantItem read GetItems;
+  end;
+
+  { ToDo -cRO3: Add an *optional* Critical Section object to the session so the user
+    can easily make Sessions threadsafe (for access to the SAME session by multiple
+    threads/client-requests) if needed. This should remain turned off by default. }
+
+  { TROSession }
+  TROSession = class
+  private
+    fCreated: TDateTime;
+    fLastAccessed: TDateTime;
+    fSessionID: TGUID;
+    fValues : TROVariantList;
+ function GetRoles: TStringArray;
+ procedure SetRoles(const Value: TStringArray);
+
+  protected
+    function GetCount: integer; virtual;
+    function GetNames(Index: integer): string; virtual;
+    function GetValues(const Name: string): Variant; virtual;
+    procedure SetNames(Index: integer; const Value: string); virtual;
+    procedure SetValues(const Name: string; const Value: Variant); virtual;
+
+  public
+    constructor Create(const aSessionID : TGUID); virtual;
+    destructor Destroy; override;
+
+    procedure LoadFromStream(aStream : TStream; OnlyValues : boolean = FALSE); virtual;
+    procedure SaveToStream(aStream : TStream; OnlyValues : boolean = FALSE); virtual;
+
+    procedure SaveStruct(aStruct : TROComplexType);
+
+    property SessionID : TGUID read fSessionID;
+    property Created : TDateTime read fCreated write fCreated;
+    property LastAccessed : TDateTime read fLastAccessed write fLastAccessed;
+    property Values[const Name : string] : Variant read GetValues write SetValues; default;
+    property Names[Index : integer] : string read GetNames write SetNames;
+    property Count : integer read GetCount;
+
+    property Roles: TStringArray read GetRoles write SetRoles;
+  end;
+
+  TROSessionClass = class of TROSession;
+
+  { TROSessionList }
+  TROSessionList = class
+  private
+    fList: TStringList;
+
+    function GetCount: integer;
+    function GetSessions(Index: integer): TROSession;
+
+  protected
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    procedure Clear;
+
+    procedure Add(aSession: TROSession); overload;
+    function Add(aSessionId: TGUID): TROSession; overload;
+
+    procedure Delete(aIndex: integer);
+
+    function GetSessionIndex(aSessionId: TGUID): integer;
+    function SessionById(aSessionId: TGUID): TROSession;
+
+    property Sessions[Index: integer]: TROSession read GetSessions;
+    property Count: integer read GetCount;
+  end;
+
+  { TROCustomSessionManager }
+  TROMaxSessionsReachedEvent = procedure (var aFail: Boolean) of object;
+  TSessionEvent = procedure(const aSession : TROSession) of object;
+  TROSessionExceptionEvent = procedure (aSessionID : TGUID; anException: Exception; var aRetry: Boolean) of object;
+  TDeleteSessionEvent = procedure(const aSessionID : TGUID; IsExpired : boolean) of object;
+  TROCustomSessionCreationEvent = procedure (const aSessionID : TGUID; var Session : TROSession) of object;
+
+  TROSessionsActions = (saAdd, saDelete, saTmpSessionDelete, saRelease, saRemoveActiveListener);
+
+  IROSessionsChangesListener = interface
+    ['{A964942D-699F-48FD-ADA5-1E4720E0150E}']
+    procedure SessionsChangedNotification(const aSessionID : TGUID; aSessionAction: TROSessionsActions; Sender: TObject);
+  end;
+  IROValidatedSessionsChangesListener = interface
+    ['{BE226A1C-DA1A-45E3-9C85-C6C79BAADF5A}']
+    procedure EventSucceeded(aClientID, aId: TGUID);
+  end;
+
+
+  IROSessionsChangesNotifier = interface ['{71F4384A-0F8A-4783-863B-D61A3BD85E12}']
+    procedure RegisterSessionsChangesListener(aListener: IROSessionsChangesListener);
+    procedure UnRegisterSessionsChangesListener(aListener: IROSessionsChangesListener);
+  end;
+
+  TROCustomSessionManager = class(TROComponent, IROSessionsChangesNotifier)
+  private
+    fMaxSessions: integer;
+    fSessionDuration: integer;
+    fClearing : boolean;
+    fOnSessionCreated: TSessionEvent;
+    fTimer : TROThreadTimer;
+    fSessionChangesListeners: TInterfaceList;
+    FOnBeforeDeleteSession: TDeleteSessionEvent;
+    fOnSessionDeleted: TDeleteSessionEvent;
+    fOnCustomCreateSession: TROCustomSessionCreationEvent;
+    fOnMaxSessionsReached: TROMaxSessionsReachedEvent;
+    fSessionCheckInterval: Integer;
+    fOnException: TROSessionExceptionEvent;
+    fInDeleteSession: Boolean;
+    procedure SetSessionCheckInterval(const Value: Integer);
+  protected
+    fCritical : TCriticalSection;
+  protected
+    { IROSessionsChangesNotifier }
+
+    procedure RegisterSessionsChangesListener(aListener: IROSessionsChangesListener); virtual;
+    procedure UnRegisterSessionsChangesListener(aListener: IROSessionsChangesListener); virtual;
+
+    procedure DoNotifySessionsChangesListener(const aSessionID : TGUID; aSessionAction: TROSessionsActions; Sender: TObject); virtual;
+
+    function DoCreateSession(const aSessionID : TGUID) : TROSession; virtual;
+    function DoCheckSessionIsExpired(aSession : TROSession) : boolean; virtual;
+
+    procedure DoTimerTick(CurrentTickCount : cardinal); virtual;
+
+    function DoFindSession(const aSessionID : TGUID; aUpdateTime: Boolean) : TROSession; virtual; abstract;
+    procedure DoDeleteSession(const aSessionID : TGUID; IsExpired : boolean); virtual; abstract;
+    procedure DoReleaseSession(aSession : TROSession; NewSession : boolean); virtual;
+    procedure DoClearSessions(OnlyExpired : boolean); virtual; abstract;
+    function DoGetSessionCount : integer; virtual; abstract;
+    procedure DoGetAllSessions(Dest: TStringList); virtual;
+
+    procedure Loaded; override;
+
+    procedure KillTimer;
+
+    property Clearing : boolean read fClearing;
+    property SessionDuration : integer read fSessionDuration write fSessionDuration default 15;
+    property SessionCheckInterval : Integer read fSessionCheckInterval write SetSessionCheckInterval default 15;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+
+    // Session management routines
+    function CreateSession(const aSessionID : TGUID) : TROSession;
+    function FindSession(const aSessionID : TGUID; aUpdateTime: Boolean = True) : TROSession;
+    procedure DeleteSession(const aSessionID : TGUID; IsExpired : boolean);
+    procedure DeleteTemporarySession(var Session : TROSession);
+    procedure ReleaseSession(var aSession : TROSession; NewSession : boolean);
+    procedure ClearSessions(OnlyExpired : boolean);
+    function CheckSessionIsExpired(aSession : TROSession) : boolean;
+    function GetSessionCount : integer;
+    procedure GetAllSessions(Dest: TStringList);
+    property Critical : TCriticalSection read fCritical;
+    procedure CheckProperties; virtual;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property OnMaxSessionsReached: TROMaxSessionsReachedEvent read fOnMaxSessionsReached write fOnMaxSessionsReached;
+    property MaxSessions : integer read fMaxSessions write fMaxSessions default -1;
+
+    property OnCustomCreateSession : TROCustomSessionCreationEvent read fOnCustomCreateSession write fOnCustomCreateSession;
+    property OnSessionCreated : TSessionEvent read fOnSessionCreated write fOnSessionCreated;
+    property OnBeforeDeleteSession: TDeleteSessionEvent read FOnBeforeDeleteSession write FOnBeforeDeleteSession;
+    property OnSessionDeleted : TDeleteSessionEvent read fOnSessionDeleted write fOnSessionDeleted;
+    property OnException : TROSessionExceptionEvent read fOnException write fOnException;
+  end;
+
+  { TROEventSessionManager }
+  TFindSessionEvent = procedure(const aSessionID : TGUID; out aSession: TROSession) of object;
+  TReleaseSessionEvent = procedure(var aSession : TROSession; NewSession : boolean) of object;
+  TClearSessionsEvent = procedure(SessionManager : TROCustomSessionManager; OnlyExpired : boolean) of object;
+  TGetSessionCountEvent = function(SessionManager : TROCustomSessionManager) : integer of object;
+  TGetAllSessionsEvent = procedure (SessionManager : TROCustomSessionManager; aDest: TStringList) of object;
+
+  TROEventSessionManager = class(TROCustomSessionManager)
+  private
+    fOnFindSession: TFindSessionEvent;
+    fOnDeleteSession: TDeleteSessionEvent;
+    fOnReleaseSession: TReleaseSessionEvent;
+    fOnClearSessions: TClearSessionsEvent;
+    fOnGetSessionCount: TGetSessionCountEvent;
+    fOnGetAllSessions: TGetAllSessionsEvent;
+
+  protected
+    function DoFindSession(const aSessionID : TGUID; aUpdateTime: Boolean) : TROSession; override;
+    procedure DoDeleteSession(const aSessionID : TGUID; IsExpired : boolean); override;
+    procedure DoReleaseSession(aSession : TROSession; NewSession : boolean); override;
+    procedure DoClearSessions(OnlyExpired : boolean); override;
+    function DoGetSessionCount : integer; override;
+    procedure DoGetAllSessions(Dest: TStringList); override;
+
+  public
+    procedure Assign(Source: TPersistent); override;
+  published
+    property OnDeleteSession : TDeleteSessionEvent read fOnDeleteSession write fOnDeleteSession;
+    property OnFindSession : TFindSessionEvent read fOnFindSession write fOnFindSession;
+    property OnReleaseSession : TReleaseSessionEvent read fOnReleaseSession write fOnReleaseSession;
+    property OnClearSessions : TClearSessionsEvent read fOnClearSessions write fOnClearSessions;
+    property OnGetSessionCount : TGetSessionCountEvent read fOnGetSessionCount write fOnGetSessionCount;
+    property OnGetAllSessions: TGetAllSessionsEvent read fOnGetAllSessions write fOnGetAllSessions;
+    property SessionDuration;
+    property SessionCheckInterval;
+  end;
+
+  { TROInMemorySessionManager }
+  TROInMemorySessionManager = class(TROCustomSessionManager)
+  protected
+    fSessionList : TStringList;
+    function DoFindSession(const aSessionID : TGUID; aUpdateTime: Boolean) : TROSession; override;
+    procedure DoDeleteSession(const aSessionID : TGUID; IsExpired : boolean); override;
+    procedure DoClearSessions(OnlyExpired : boolean); override;
+    procedure DoReleaseSession(aSession : TROSession; NewSession : boolean); override;
+    function DoGetSessionCount : integer; override;
+    procedure DoGetAllSessions(Dest: TStringList); override;
+
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+
+  published
+    property SessionDuration;
+    property SessionCheckInterval;
+  end;
+
+implementation
+
+uses
+  uRORes, uROBinaryHelpers,
+  {$IFDEF DELPHI5}
+  Windows, ComObj; { for StringToGuid in Delphi 5 }
+  {$ELSE}
+  DateUtils;
+  {$ENDIF DELPHI6UP}
+
+{ TROVariantList }
+constructor TROVariantList.Create;
+begin
+  inherited;
+
+  Sorted := TRUE;
+  Duplicates := dupError;
+end;
+
+destructor TROVariantList.Destroy;
+begin
+  Clear;
+
+  inherited;
+end;
+
+procedure TROVariantList.Add(const aName: string; const aValue: Variant);
+var
+  item : PVariantItem;
+begin
+  New(Item);
+  try
+    inherited AddObject(aName, TObject(item));
+
+    item^.Name := aName;
+    item^.Value := aValue;
+  except
+    Dispose(item);
+    raise;
+  end;
+end;
+
+procedure TROVariantList.Delete(const aName: string);
+var 
+  idx : integer;
+begin
+  idx := IndexOf(aName);
+  if (idx>=0) then Delete(idx);
+end;
+
+function TROVariantList.GetItems(Index: integer): PVariantItem;
+begin
+  result := PVariantItem(inherited Objects[Index]);
+end;
+
+function TROVariantList.GetValueNames(Index: integer): string;
+begin
+  result := inherited Strings[Index]
+end;
+
+function TROVariantList.GetValues(const aName: string): Variant;
+var 
+  idx : integer;
+begin
+  idx := IndexOf(aName);
+  if (idx>=0) then 
+    result := PVariantItem(inherited Objects[idx])^.Value
+  else 
+    result := Null;
+end;
+
+procedure TROVariantList.SetValues(const aName: string;
+  const Value: Variant);
+var 
+  idx : integer;
+begin
+  idx := IndexOf(aName);
+  if (idx>=0) then 
+    PVariantItem(inherited Objects[idx])^.Value := Value
+  else 
+    Add(aName, Value);
+end;
+
+procedure TROVariantList.Clear;
+var 
+  i : integer;
+begin
+  for i := 0 to (Count-1) do
+    Dispose(PVariantItem(inherited Objects[i]));
+
+  inherited Clear;
+end;
+
+procedure TROVariantList.Delete(Index: integer);
+begin
+  Dispose(PVariantItem(Objects[Index]));
+  inherited Delete(Index);
+end;
+
+procedure TROVariantList.SetValueNames(Index: integer;
+  const Value: string);
+begin
+  inherited Strings[Index] := Value
+end;
+
+
+{ TROSession }
+
+constructor TROSession.Create(const aSessionID: TGUID);
+begin
+  inherited Create;
+
+  fValues := TROVariantList.Create;
+  fSessionID := aSessionID;
+  fCreated := Now;
+  fLastAccessed := Now;
+end;
+
+destructor TROSession.Destroy;
+begin
+  fValues.Free;
+  inherited;
+end;
+
+function TROSession.GetCount: integer;
+begin
+  result := fValues.Count
+end;
+
+function TROSession.GetNames(Index: integer): string;
+begin
+  result := fValues.ValueNames[Index]
+end;
+
+function TROSession.GetValues(const Name: string): Variant;
+begin
+  result := fValues.Values[Name]
+end;
+
+procedure TROSession.SetNames(Index: integer; const Value: string);
+begin
+  fValues.ValueNames[Index] := Value
+end;
+
+procedure TROSession.SetValues(const Name: string; const Value: Variant);
+begin
+  fValues[Name] := Value
+end;
+
+procedure TROSession.LoadFromStream(aStream: TStream; OnlyValues : boolean = FALSE);
+var 
+  i : integer;
+  nme : string;
+  val : Variant;
+begin
+  fValues.Clear;
+
+  Check((aStream=NIL), 'Invalid stream');
+  if (aStream.Size=0) then 
+    Exit 
+  else 
+    aStream.Position := 0;
+
+  if not OnlyValues then begin
+    fSessionID := StringToGUID(ReadVariantFromBinary(aStream));
+    fCreated := ReadVariantFromBinary(aStream);
+    fLastAccessed := ReadVariantFromBinary(aStream);
+  end;
+
+  val := ReadVariantFromBinary(aStream);
+
+  for i := 0 to Integer(Val) -1 do begin
+    nme := ReadVariantFromBinary(aStream);
+    val := ReadVariantFromBinary(aStream);
+
+    Values[nme] := val;
+  end;
+end;
+
+procedure TROSession.SaveToStream(aStream: TStream; OnlyValues : boolean = FALSE);
+var 
+  i : integer;
+begin
+  Check(aStream=NIL, 'Invalid stream');
+
+  aStream.Position := 0;
+
+  if not OnlyValues then begin
+    WriteVariantToBinary(GUIDToString(fSessionID), aStream);
+    WriteVariantToBinary(fCreated ,aStream);
+    WriteVariantToBinary(fLastAccessed ,aStream);
+  end;
+
+  WriteVariantToBinary(Count ,aStream);
+
+  for i := 0 to (Count-1) do begin
+    WriteVariantToBinary(fValues.ValueNames[i], aStream);
+    WriteVariantToBinary(fValues.Items[i]^.Value, aStream);
+  end;
+end;
+
+procedure TROSession.SaveStruct(aStruct: TROComplexType);
+var 
+  i : integer;
+begin
+  if aStruct=NIL then Exit;
+
+  for i := 0 to (aStruct.FieldCount-1) do begin
+    Values[aStruct.FieldName[i]] := aStruct.GetFieldValue(aStruct.FieldName[i]);
+  end;
+end;
+
+const
+  RolesElementName = '___Roles';
+
+function TROSession.GetRoles: TStringArray;
+var
+  lItem: Variant;
+  i, n: integer;
+begin
+  lItem := self[RolesElementName];
+  if VarIsArray(lItem) then
+  begin
+    n := VarArrayHighBound(lItem, 1) - VarArrayLowBound(lItem, 1) + 1;
+    SetLength(result, n);
+    for i := 0 to n - 1 do
+      result[i] := lItem[i + VarArrayLowBound(lItem, 1)];
+  end
+  else
+    SetLength(result, 0);
+end;
+
+procedure TROSession.SetRoles(const Value: TStringArray);
+var
+  lVariant: Variant;
+  i: Integer;
+begin
+  if Length(Value) = 0 then
+    self[RolesElementName] := Null
+  else
+  begin
+    lVariant := VarArrayCreate([0, Length(Value) - 1], varOleStr);
+    for i := 0 to Length(Value) -1 do
+      lVariant[i] := Value[i];
+    self[RolesElementName] := lVariant;
+  end;
+end;
+
+{ TROCustomSessionManager }
+
+constructor TROCustomSessionManager.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fClearing := FALSE;
+  fMaxSessions := -1;
+  fCritical := TCriticalSection.Create;
+  fSessionChangesListeners := TInterfaceList.Create;
+  fSessionDuration := 15;
+  fSessionCheckInterval := 15;
+end;
+
+destructor TROCustomSessionManager.Destroy;
+begin
+  // Doesn't clear any sessions here. If the session manager is an in-memory one that is done by the
+  // in-memory session manager destroyer, if this is a DB or an event driver one it might be used in a cluster
+  // so we cannot assume other servers don't need this info. It's user's responsibility to clear the expired
+  // sessions. Worst case in a DB the sessions will be cleared the enxt time this server is started.
+  
+  KillTimer;
+  fSessionChangesListeners.Clear;
+  fSessionChangesListeners.Free;
+  fCritical.Free; 
+ 
+  inherited;
+end;
+
+function TROCustomSessionManager.CheckSessionIsExpired(aSession: TROSession): boolean;
+begin
+  result := DoCheckSessionIsExpired(aSession)
+end;
+
+procedure TROCustomSessionManager.ClearSessions(OnlyExpired : boolean);
+var
+  lRetry: Boolean;
+begin
+  fCritical.Enter;
+  try
+    fClearing := TRUE;
+    lRetry := True;
+    while lRetry do begin
+      lRetry := False;
+      try
+      DoClearSessions(OnlyExpired);
+      except
+        on e: Exception do begin
+          if assigned(fOnException) then fOnException(EmptyGUID, e, lRetry);
+          if not lRetry then raise;
+        end;
+      end;
+    end;
+  finally
+    fClearing := FALSE;
+    fCritical.Leave;
+  end;
+end;
+
+function TROCustomSessionManager.CreateSession(const aSessionID: TGUID): TROSession;
+var
+  lRetry, lFail: Boolean;
+begin
+  if (GetSessionCount>=MaxSessions) and (MaxSessions>0) then begin
+    lFail := true;
+    if assigned(fOnMaxSessionsReached) then fOnMaxSessionsReached(lFail);
+    if lFail then RaiseError(err_TooManySessions, [SessionDuration]);
+  end;
+
+  Result := nil;
+  
+  lRetry := True;
+  while lRetry do begin
+    lRetry := False;
+    try
+      result := DoCreateSession(aSessionID);
+    except
+      on e: Exception do begin
+        if assigned(fOnException) then fOnException(aSessionID, e, lRetry);
+        if not lRetry then raise;
+      end;
+    end;
+  end;
+  DoNotifySessionsChangesListener(aSessionID, saAdd, nil);
+
+  if Assigned(fOnSessionCreated) then fOnSessionCreated(result);
+end;
+
+procedure TROCustomSessionManager.DeleteTemporarySession(var Session: TROSession);
+var 
+  id : TGUID;
+begin
+  fInDeleteSession:=True;
+  try
+    id := Session.SessionID;
+    if Assigned(FOnBeforeDeleteSession) then FOnBeforeDeleteSession(id, FALSE);
+
+    FreeAndNIL(Session);
+
+    DoNotifySessionsChangesListener(id, saTmpSessionDelete, nil);
+
+    if Assigned(fOnSessionDeleted) then fOnSessionDeleted(id, FALSE);
+  finally
+    fInDeleteSession:=False;
+  end;
+end;
+
+procedure TROCustomSessionManager.DeleteSession(const aSessionID: TGUID; IsExpired : boolean);
+var
+  lRetry: Boolean;
+begin
+  fInDeleteSession:=True;
+  try
+    if Assigned(FOnBeforeDeleteSession) then FOnBeforeDeleteSession(aSessionID, IsExpired);
+    if not Clearing then fCritical.Enter;
+    try
+      lRetry := True;
+      while lRetry do begin
+        lRetry := False;
+        try
+          DoDeleteSession(aSessionID, IsExpired);
+        except
+          on e: Exception do begin
+            if assigned(fOnException) then fOnException(aSessionID, e, lRetry);
+            if not lRetry then raise;
+          end;
+        end;
+      end;
+
+      DoNotifySessionsChangesListener(aSessionID, saDelete, nil);
+      if Assigned(fOnSessionDeleted) then fOnSessionDeleted(aSessionID, IsExpired);
+    finally
+      if not Clearing then fCritical.Leave;
+    end;
+  finally
+    fInDeleteSession:=False;
+  end;
+end;
+
+function TROCustomSessionManager.DoCheckSessionIsExpired(aSession: TROSession): boolean;
+var
+  elapsed : integer;
+begin
+  elapsed := MinutesBetween(aSession.LastAccessed, Now);
+  result := (SessionDuration>0) and (elapsed>=SessionDuration);
+end;
+
+function TROCustomSessionManager.DoCreateSession(
+  const aSessionID: TGUID): TROSession;
+begin
+  result := NIL;
+  if Assigned(fOnCustomCreateSession) then fOnCustomCreateSession(aSessionID, result);
+
+  if (result=NIL) then result := TROSession.Create(aSessionID);
+end;
+
+function TROCustomSessionManager.GetSessionCount: integer;
+var
+  lRetry: Boolean;
+begin
+  lRetry := True;
+  Result := 0;
+  while lRetry do begin
+    lRetry := False;
+    try
+      fCritical.Enter;
+      try
+        result := DoGetSessionCount;
+      finally
+        fCritical.Leave;
+      end;
+    except
+      on e: Exception do begin
+        if assigned(fOnException) then fOnException(EmptyGUID, e, lRetry);
+        if not lRetry then raise;
+      end;
+    end;
+  end;
+end;
+
+function TROCustomSessionManager.FindSession(
+  const aSessionID: TGUID; aUpdateTime: Boolean): TROSession;
+var
+  lRetry: Boolean;
+begin
+  lRetry := True;
+  Result := nil;
+  while lRetry do begin
+    lRetry := False;
+    try
+      fCritical.Enter;
+      try
+        result := DoFindSession(aSessionID, aUpdateTime);
+      finally
+        fCritical.Leave;
+      end;
+    except
+      on e: Exception do begin
+        if assigned(fOnException) then fOnException(aSessionID, e, lRetry);
+        if not lRetry then raise;
+      end;
+    end;
+  end;
+
+  if not fInDeleteSession then
+    if (result<>NIL) and CheckSessionIsExpired(result) then begin
+      DeleteSession(aSessionID, TRUE);
+      raise EROSessionExpired.Create('Session '+GUIDToString(aSessionID)+' is expired');
+    end;
+end;
+
+procedure TROCustomSessionManager.ReleaseSession(var aSession: TROSession; NewSession : boolean);
+var
+  id: TGUID;
+  lRetry: Boolean;
+begin
+  inherited;
+
+  if (aSession=NIL) then Exit;
+
+  fCritical.Enter;
+  try
+    id := aSession.SessionID;
+    lRetry := True;
+    while lRetry do begin
+      lRetry := False;
+      try
+        DoReleaseSession(aSession, NewSession);
+      except
+        on e: Exception do begin
+          if assigned(fOnException) then fOnException(aSession.SessionID, e, lRetry);
+          if not lRetry then raise;
+        end;
+      end;
+    end;
+    aSession := nil;
+  finally
+    fCritical.Leave;
+  end;
+  DoNotifySessionsChangesListener(id, saRelease, nil);
+end;
+
+procedure TROCustomSessionManager.DoTimerTick(CurrentTickCount: cardinal);
+begin
+  {$IFDEF FPC}
+  if CurrentTickCount = 0 then ClearSessions(TRUE) else // for preventing warnings in FPC
+  {$ENDIF FPC}
+  ClearSessions(TRUE); // Clears expired sessions
+end;
+
+procedure TROCustomSessionManager.KillTimer;
+begin
+  if not (csDesigning in ComponentState) then begin
+    while Clearing do Sleep(100); // If it's clearing sessions we don't want to interfere
+    fTimer.Free;
+    fTimer := nil;
+  end;
+end;
+
+procedure TROCustomSessionManager.DoReleaseSession(aSession: TROSession; NewSession : boolean);
+var
+  f: boolean;
+begin
+  {$IFDEF FPC}
+  if NewSession then f := (aSession <> NIL) else  // for preventing warnings in FPC
+  {$ENDIF FPC}
+  f := (aSession <> NIL);
+  if f then aSession.LastAccessed := Now;
+end;
+
+procedure TROCustomSessionManager.Loaded;
+begin
+  inherited;
+  SessionCheckInterval := fSessionCheckInterval;
+end;
+
+procedure TROCustomSessionManager.RegisterSessionsChangesListener(
+  aListener: IROSessionsChangesListener);
+begin
+  if fSessionChangesListeners.IndexOf(aListener) = -1 then fSessionChangesListeners.Add(aListener);
+end;
+
+procedure TROCustomSessionManager.UnRegisterSessionsChangesListener(
+  aListener: IROSessionsChangesListener);
+var
+  lIndex: Integer;
+begin
+  lIndex := fSessionChangesListeners.IndexOf(aListener);
+  if lIndex <> -1 then fSessionChangesListeners.Delete(lIndex);
+end;
+
+procedure TROCustomSessionManager.DoNotifySessionsChangesListener(const aSessionID : TGUID; aSessionAction: TROSessionsActions; Sender: TObject);
+var
+  i: Integer;
+begin
+  for i := 0 to fSessionChangesListeners.Count - 1 do begin
+    IROSessionsChangesListener(pointer(fSessionChangesListeners[i])).SessionsChangedNotification(aSessionID, aSessionAction, Sender);
+  end;
+end;
+
+procedure TROCustomSessionManager.GetAllSessions(Dest: TStringList);
+begin
+  fCritical.Enter;
+  try
+    DoGetAllSessions(Dest);
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TROCustomSessionManager.DoGetAllSessions(Dest: TStringList);
+begin
+  // do nothing
+end;
+
+procedure TROCustomSessionManager.SetSessionCheckInterval(
+  const Value: Integer);
+begin
+  if not ((csDesigning in ComponentState) or (csLoading in ComponentState)) then begin
+    fTimer.Free;
+    fTimer := nil;
+
+    if (Value>0) then fTimer := TROThreadTimer.Create(DoTimerTick, Value*60000);
+  end;
+  fSessionCheckInterval := Value;
+end;
+
+procedure TROCustomSessionManager.Assign(Source: TPersistent);
+var
+  lSource: TROCustomSessionManager;
+begin
+  inherited;
+  if Source is TROCustomSessionManager then begin
+    lSource := TROCustomSessionManager(Source);
+
+    MaxSessions := lSource.MaxSessions;
+    OnBeforeDeleteSession := lSource.OnBeforeDeleteSession;
+    OnCustomCreateSession := lSource.OnCustomCreateSession;
+    OnException := lSource.OnException;
+    OnMaxSessionsReached := lSource.OnMaxSessionsReached;
+    OnSessionCreated := lSource.OnSessionCreated;
+    OnSessionDeleted := lSource.OnSessionDeleted;
+    SessionDuration := lSource.SessionDuration;
+    SessionCheckInterval := lSource.SessionCheckInterval;
+  end;
+end;
+
+procedure TROCustomSessionManager.CheckProperties;
+begin
+  // nothing
+end;
+
+{ TROEventSessionManager }
+procedure TROEventSessionManager.Assign(Source: TPersistent);
+var
+  lSource: TROEventSessionManager;
+begin
+  inherited;
+  if Source is TROEventSessionManager then begin
+    lSource := TROEventSessionManager(Source);
+
+    OnClearSessions := lSource.OnClearSessions;
+    OnDeleteSession := lSource.OnDeleteSession;
+    OnFindSession := lSource.OnFindSession;
+    OnGetAllSessions := lSource.OnGetAllSessions;
+    OnGetSessionCount := lSource.OnGetSessionCount;
+    OnReleaseSession := lSource.OnReleaseSession;
+  end;
+end;
+
+procedure TROEventSessionManager.DoClearSessions;
+begin
+  if Assigned(fOnClearSessions) then fOnClearSessions(Self, OnlyExpired);
+end;
+
+procedure TROEventSessionManager.DoDeleteSession(const aSessionID: TGUID; IsExpired : boolean);
+begin
+  if Assigned(fOnDeleteSession) then fOnDeleteSession(aSessionID, IsExpired);
+end;
+
+function TROEventSessionManager.DoGetSessionCount: integer;
+begin
+  result := 0;
+  if Assigned(fOnGetSessionCount) then result := fOnGetSessionCount(Self);
+end;
+
+function TROEventSessionManager.DoFindSession(const aSessionID: TGUID; aUpdateTime: Boolean): TROSession;
+begin
+  result := nil;
+  if Assigned(fOnFindSession) then fOnFindSession(aSessionID, result);
+  if (result <> nil) and (aUpdateTime) then result.LastAccessed := Now;
+end;
+
+procedure TROEventSessionManager.DoReleaseSession(aSession: TROSession; NewSession : boolean);
+begin
+  inherited;
+  
+  if Assigned(fOnReleaseSession) then fOnReleaseSession(aSession, NewSession);
+end;
+
+procedure TROEventSessionManager.DoGetAllSessions(Dest: TStringList);
+begin
+  if assigned(fOnGetAllSessions) then fOnGetAllSessions(Self, Dest);
+end;
+
+{ TROInMemorySessionManager }
+
+constructor TROInMemorySessionManager.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fSessionList := TStringList.Create;
+  fSessionList.Duplicates := dupError;
+  fSessionList.Sorted := TRUE;
+end;
+
+destructor TROInMemorySessionManager.Destroy;
+begin
+  KillTimer;
+
+  // Clears all the sessions. This cannot be clustered so there's no point in keeping session info
+  ClearSessions(FALSE);
+
+  fSessionList.Free;
+
+  inherited;
+end;
+
+procedure TROInMemorySessionManager.DoClearSessions(OnlyExpired: boolean);
+var
+  i : integer;
+  lSessionID: TGUID;
+begin
+  if OnlyExpired then begin
+    for i := (fSessionList.Count-1) downto 0 do
+      if CheckSessionIsExpired(TROSession(fSessionList.Objects[i])) then begin
+        lSessionID := TROSession(fSessionList.Objects[i]).SessionID;
+        DeleteSession(lSessionID, TRUE);
+      end;
+  end
+  else begin
+    for i := (fSessionList.Count-1) downto 0 do begin
+      lSessionID := TROSession(fSessionList.Objects[i]).SessionID;
+      DeleteSession(lSessionID, FALSE);
+    end;
+  end;
+end;
+
+procedure TROInMemorySessionManager.DoDeleteSession(
+  const aSessionID: TGUID; IsExpired : boolean);
+var
+  idx : integer;
+  lSession: TObject;
+begin
+  if IsExpired then idx := fSessionList.IndexOf(GUIDToString(aSessionID)) else //for preventing warnings in FPC
+  idx := fSessionList.IndexOf(GUIDToString(aSessionID));
+
+  if (idx>=0) then begin
+    lSession := fSessionList.Objects[idx];
+    fSessionList.Delete(idx);
+    lSession.Free;
+  end;
+end;
+
+function TROInMemorySessionManager.DoGetSessionCount: integer;
+begin
+  result := fSessionList.Count
+end;
+
+function TROInMemorySessionManager.DoFindSession(const aSessionID: TGUID; aUpdateTime: Boolean): TROSession;
+var idx : integer;
+begin
+  result := nil;
+  idx := fSessionList.IndexOf(GUIDToString(aSessionID));
+  if (idx>=0) then result := TROSession(fSessionList.Objects[idx]);
+  if (result <> nil) and (aUpdateTime) then result.LastAccessed := Now;
+end;
+
+procedure TROInMemorySessionManager.DoReleaseSession(aSession: TROSession; NewSession : boolean);
+var id : string;
+begin
+  inherited;
+
+  if NewSession then begin
+    id := GUIDToString(aSession.SessionID);
+    if fSessionList.IndexOf(id) = -1 then
+      fSessionList.AddObject(id, aSession)
+    else
+      aSession.Free;
+  end;
+end;
+
+procedure TROInMemorySessionManager.DoGetAllSessions(Dest: TstringList);
+var
+  i: Integer;
+  currSession: TROSession;
+begin
+  for i := 0 to (fSessionList.Count-1) do begin
+    currSession := TROSession(fSessionList.Objects[i]);
+    if CheckSessionIsExpired(currSession) then Continue;
+    Dest.Add(GUIDToString(currSession.SessionID));
+  end;
+end;
+
+{ TROSessionList }
+constructor TROSessionList.Create;
+begin
+  inherited;
+
+  fList := TStringList.Create;
+  fList.Duplicates := dupError;
+  fList.Sorted := true;
+end;
+
+
+destructor TROSessionList.Destroy;
+begin
+  Clear;
+  FreeAndNIL(fList);
+  inherited;
+end;
+
+procedure TROSessionList.Add(aSession: TROSession);
+begin
+  fList.AddObject(GUIDToString(aSession.SessionID), aSession);
+end;
+
+procedure TROSessionList.Clear;
+var
+  i: integer;
+begin
+  for i := (fList.Count-1) downto 0 do
+    Delete(i);
+end;
+
+procedure TROSessionList.Delete(aIndex: integer);
+begin
+  fList.Objects[aIndex].Free;
+  fList.Delete(aIndex);
+end;
+
+function TROSessionList.GetCount: integer;
+begin
+  result := fList.Count;
+end;
+
+function TROSessionList.GetSessionIndex(aSessionId: TGUID): integer;
+begin
+  result := fList.IndexOf(GUIDToString(aSessionId))
+end;
+
+function TROSessionList.GetSessions(Index: integer): TROSession;
+begin
+  result := TROSession(fList.Objects[Index]);
+end;
+
+function TROSessionList.SessionById(aSessionId: TGUID): TROSession;
+var
+  idx: integer;
+begin
+  idx := GetSessionIndex(aSessionId);
+  result := Sessions[idx];
+end;
+
+function TROSessionList.Add(aSessionId: TGUID): TROSession;
+begin
+  result := TROSession.Create(aSessionId);
+  try
+    Add(result);
+  except
+    result.Free;
+    raise;
+  end;
+end;
+
+initialization
+  RegisterExceptionClass(EROSessionNotFound);
+finalization
+  UnregisterExceptionClass(EROSessionNotFound);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROStreamSerializer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROStreamSerializer.pas
new file mode 100644
index 0000000..0f98d69
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROStreamSerializer.pas	
@@ -0,0 +1,1267 @@
+unit uROStreamSerializer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+
+{$I RemObjects.inc}
+
+{$IFDEF DOTNET}
+{$MESSAGE error 'This unit will not be used in .NET, use RemObjects.SDK.StreamSerializer instead' }
+{$ENDIF}
+
+interface
+
+uses
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}eDebugServer,{$ENDIF}
+  Classes, SysUtils, TypInfo,
+   uROTypes, uROSerializer, FMTBcd;
+
+
+type
+  { TROStreamSerializer }
+  TROStreamSerializer = class(TROSerializer)
+  private
+    fStream : TStream;
+
+  protected
+    procedure BeginWriteObject(const aName: string; aClass : TClass; anObject: TObject; var LevelRef : IUnknown;
+                                var IsValidType : boolean; out IsAssigned:Boolean; ArrayElementId : integer = -1); override;
+    procedure EndWriteObject(const aName: string; aClass : TClass; anObject: TObject; const LevelRef : IUnknown); override;
+    procedure CustomWriteObject(const aName : string; aClass : TClass; const Ref; ArrayElementId : integer = -1); override;
+    procedure CustomReadObject(const aName: string; aClass: TClass;var Ref; ArrayElementId: integer);override;
+    procedure BeginReadObject(const aName : string; aClass : TClass; var anObject : TObject; var LevelRef : IUnknown;
+                               var IsValidType : boolean; ArrayElementId : integer = -1); override;
+    procedure EndReadObject(const aName : string; aClass : TClass; var anObject : TObject; const LevelRef : IUnknown); override;
+  Public
+    { Writers }
+    procedure WriteInteger(const aName : string; anOrdType : TOrdType; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteInt64(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteUTF8String(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteAnsiString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteWideString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteUnicodeString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteDateTime(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteDouble(const aName : string; aFloatType : TFloatType; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteVariant(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteXml(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteGuid(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+    procedure WriteDecimal(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+    procedure WriteBinary(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteStruct(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1); override;
+    procedure WriteArray(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1); override;
+    procedure WriteException(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+
+    procedure WriteSafe8BitString(const aValue: Ansistring);
+    { Readers }
+    {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+    procedure Read(const aName : string; aTypeInfo : PTypeInfo; var Ptr; ArrayElementId : integer = -1); override;
+    {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+    procedure ReadInteger(const aName : string; anOrdType : TOrdType; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadInt64(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadUTF8String(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadAnsiString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadWideString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadUnicodeString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadDateTime(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadDouble(const aName : string; aFloatType : TFloatType; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadVariant(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadXml(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadDecimal(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+    procedure ReadGuid(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+    procedure ReadBinary(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    function ReadStruct(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+    function ReadArray(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+    procedure ReadException(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+  public
+    procedure SetStorageRef(aStorageRef:TStream);
+    constructor Create(aStorageRef:TStream); virtual;
+
+  end;
+
+  { binary structuire for streaming DateTime to BinMessage, starting with format version 1.0.7 }
+  TDateTimeStructure = packed record
+    Year:Word;
+    Month:Byte;
+    Day:Byte;
+    Hour:Byte;
+    Minute:Byte;
+    Seconds:Byte;
+    MiliSeconds:word;
+  end;
+
+procedure ObjectToStream(anObject : TROComplexType; aStream : TStream);
+function StreamToObject(aStream : TStream) : TROComplexType;
+
+function StreamToVariant(Stream: TStream): {$IFDEF FPC}Variant;{$ELSE}OleVariant;{$ENDIF}
+procedure VariantToStream(const Data: {$IFDEF FPC}Variant;{$ELSE}OleVariant;{$ENDIF} Stream: TStream);
+
+implementation
+
+uses
+  {$IFDEF DEBUG_REMOBJECTS}eDebugServer,{$ENDIF}
+  {$IFDEF FPC} Variants, {$ENDIF}
+  {$IFDEF VER140UP} {$IFNDEF FPC}Variants,{$ENDIF} DateUtils, {$ENDIF}
+  uRORes, uROClient, uROClientIntf, uROBinaryHelpers, uROClasses,
+  uROXMLIntf{$IFNDEF MSWINDOWS}{$IFNDEF FPC}, ComObj{$ENDIF}{$ENDIF},
+  uROEndianness;
+
+
+function StreamToVariant(Stream: TStream): {$IFDEF FPC}Variant{$ELSE}OleVariant{$ENDIF};
+var p: Pointer;
+begin
+  Result := VarArrayCreate([0, Stream.Size - 1], varByte);
+  p := VarArrayLock(Result);
+  try
+    Stream.Position := 0; //start from beginning of stream
+    Stream.ReadBuffer(p^, Stream.Size);
+  finally
+    VarArrayUnlock(Result);
+  end;
+end;
+
+procedure VariantToStream(const Data: {$IFDEF FPC}Variant{$ELSE}OleVariant{$ENDIF}; Stream: TStream);
+var p: Pointer;
+begin
+  p := VarArrayLock(Data);
+  try
+    Stream.Write(p^, VarArrayHighBound(Data, 1) + 1); //assuming low bound = 0
+  finally
+    VarArrayUnlock(Data);
+  end;
+end;
+
+procedure ObjectToStream(anObject : TROComplexType; aStream : TStream);
+var clsname : ansistring;
+begin
+  with TROStreamSerializer.Create(aStream) do try
+    clsname := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(anObject.ClassName);
+
+    Write('', TypeInfo(ansistring), clsname);
+    Write('', anObject.ClassInfo, anObject);
+  finally
+    Free;
+  end;
+end;
+
+function StreamToObject(aStream : TStream) : TROComplexType;
+var clsname : ansistring;
+    clsname2: string;
+    cls : TROComplexTypeClass;
+begin
+  result := nil;
+  with TROStreamSerializer.Create(aStream) do try
+    Read('', TypeInfo(ansistring), clsname);
+    clsname2 := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(clsname);
+    cls := FindROClass(clsname2);
+    if (cls=NIL) then RaiseError(err_UnknownClass, [clsname2]);
+    Read('', cls.ClassInfo, result);
+  finally
+    Free;
+  end;
+end;
+
+{ TROStreamSerializer }
+
+constructor TROStreamSerializer.Create(aStorageRef: TStream);
+begin
+  inherited Create();
+  SetStorageRef(aStorageRef);
+end;
+
+procedure TROStreamSerializer.SetStorageRef(aStorageRef: TStream);
+begin
+  //result := TObject(aStorageRef) is TStream;
+  //if result then fStream := TStream(aStorageRef);
+  fStream := aStorageRef;
+end;
+
+procedure TROStreamSerializer.EndReadObject(const aName: string;
+  aClass : TClass; var anObject: TObject; const LevelRef : IUnknown);
+begin
+  inherited;
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.EndReadObject(name=%s, position before =$%x',[aName, fStream.Position]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+end;
+
+procedure TROStreamSerializer.EndWriteObject(const aName: string;
+  aClass : TClass; anObject: TObject; const LevelRef : IUnknown);
+begin
+  inherited;
+end;
+
+procedure TROStreamSerializer.ReadDateTime(const aName: string; var Ref; ArrayElementId : integer = -1);
+{var lDateTime:TDateTime absolute Ref;
+    lDateTimeStructure:TDateTimeStructure;
+    //m,d,h,n,s:Word;}
+begin
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadDateTime(name=%s, position before =$%x, size=$%x',[aName, fStream.Position, SizeOf(TDateTime)]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  ReadDouble(aName,ftDouble,Ref,-1);
+  {fStream.Read(lDateTimeStructure, SizeOf(TDateTimeStructure));
+  if not TryEncodeDateTime(lDateTimeStructure.Year, lDateTimeStructure.Month, lDateTimeStructure.Day,
+                             lDateTimeStructure.Hour, lDateTimeStructure.Minute, lDateTimeStructure.Seconds,
+                             lDateTimeStructure.MiliSeconds, lDateTime) then
+    RaiseError(err_InvalidDateTimeReadFromStream,[]);}
+end;
+
+procedure TROStreamSerializer.ReadEnumerated(const aName: string; anEnumTypeInfo: PTypeInfo; var Ref; ArrayElementId : integer = -1);
+var
+  lInteger: integer;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  case GetTypeData(anEnumTypeInfo)^.OrdType of
+    otSByte,otUByte:DebugServer.Write('TROStreamSerializer.ReadEnumerated(name=%s, position before =$%x, size=$%x',[aName, fStream.Position, SizeOf(byte)]);;
+    otSWord,otUWord:DebugServer.Write('TROStreamSerializer.ReadEnumerated(name=%s, position before =$%x, size=$%x',[aName, fStream.Position, SizeOf(word)]);;
+    otSLong,otULong:DebugServer.Write('TROStreamSerializer.ReadEnumerated(name=%s, position before =$%x, size=$%x',[aName, fStream.Position, SizeOf(integer)]);;
+  end;
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  fStream.ReadBuffer(lInteger, SizeOf(integer));
+  IntegerToEnumerated(lInteger, anEnumTypeInfo,Ref);
+end;
+
+procedure TROStreamSerializer.ReadDouble(const aName: string;
+  aFloatType: TFloatType; var Ref; ArrayElementId : integer = -1);
+var sze : byte;
+    src : pointer;
+{$IFDEF ENDIAN_BIG}
+    rev : pointer;
+{$ENDIF}
+begin
+  src := @Ref;
+  sze := 0;
+  case aFloatType of
+    ftSingle : sze := SizeOf(single);
+    ftDouble : sze := SizeOf(double);
+    ftExtended : sze := SizeOf(extended);
+    ftComp : sze := SizeOf(comp);
+    ftCurr :sze := SizeOf(currency);
+  end;
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadFloat(name=%s, position before =$%x, size=$%x',[aName, fStream.Position,sze]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  {$IFDEF ENDIAN_BIG}
+  GetMem(rev, sze);
+  try
+    fStream.ReadBuffer(rev^, sze);
+    ReverseByteOrder(rev, src, sze);
+  finally
+    FreeMem(rev, sze);
+  end;
+  {$ELSE}
+  fStream.ReadBuffer(src^, sze);
+  {$ENDIF}
+end;
+
+procedure TROStreamSerializer.ReadInt64(const aName: string; var Ref; ArrayElementId : integer = -1);
+{$IFDEF ENDIAN_BIG}
+var
+  data: UInt64;
+{$ENDIF}
+begin
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadInt64(name=%s, position before =$%x, size=$%x',[aName, fStream.Position, SizeOf(Int64)]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  {$IFDEF ENDIAN_BIG}
+  fStream.ReadBuffer(data, SizeOf(Int64));
+  Int64(Ref) := EndianSafeReadInt64(data);
+  {$ELSE}
+  fStream.ReadBuffer(Ref, SizeOf(Int64));
+  {$ENDIF}
+end;
+
+procedure TROStreamSerializer.ReadInteger(const aName: string;
+  anOrdType: TOrdType; var Ref; ArrayElementId : integer = -1);
+var sze : byte;
+    src : pointer;
+    {$IFDEF ENDIAN_BIG}
+    rev : pointer;
+    {$ENDIF}
+begin
+  src := @Ref;
+  sze := 0;
+  case anOrdType of
+    otSByte,
+    otUByte : sze := SizeOf(byte);
+    otSWord,
+    otUWord : sze := SizeOf(word);
+    otSLong,
+    otULong : sze := SizeOf(integer);
+  end;
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadInteger(name=%s, position before =$%x, size=$%x',[aName, fStream.Position,sze]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  {$IFDEF ENDIAN_BIG}
+  GetMem(rev, sze);
+  try
+    fStream.ReadBuffer(rev^, sze);
+    ReverseByteOrder(rev, src, sze);
+  finally
+    FreeMem(rev, sze);
+  end;
+  {$ELSE}
+  fStream.ReadBuffer(src^, sze);
+  {$ENDIF}
+end;
+
+procedure TROStreamSerializer.ReadUnicodeString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var sze : integer;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadUnicodeString 1(name=%s, position before =$%x',[aName, fStream.Position]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  fStream.ReadBuffer(sze, SizeOf(sze));
+
+  if ((iMaxLength > -1) and (sze > iMaxLength)) or
+     (sze*2 > fStream.Size) then
+    RaiseError(err_InvalidStringLength,[sze]);
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadUnicodeString 2(name=%s, position before =$%x, size=$%x, length=$%x',[aName, fStream.Position,sze,sze*2]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  if (sze>0) then begin
+    SetLength(UnicodeString(Ref), sze);
+    fStream.ReadBuffer(UnicodeString(Ref)[1], sze*2);
+  end
+  else UnicodeString(Ref) := '';
+end;
+
+procedure TROStreamSerializer.ReadUTF8String(const aName: string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+var sze : integer;
+begin
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadString 1(name=%s, position before =$%x',[aName, fStream.Position]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  fStream.ReadBuffer(sze, SizeOf(sze));
+  //ToDo: we need some code here to avoid hacker attachs with too long strings
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadString 2(name=%s, position before =$%x, size=$%x',[aName, fStream.Position,sze]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  if ((iMaxLength > -1) and (sze > iMaxLength)) or
+     (sze > fStream.Size) then
+    RaiseError(err_InvalidStringLength,[sze]);
+
+  if (sze>0) then begin
+    SetLength(UTF8String(Ref), sze);
+    fStream.ReadBuffer(UTF8String(Ref)[1], sze);
+  end
+  else string(Ref) := '';
+end;
+
+procedure TROStreamSerializer.ReadWideString(const aName: string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+var sze : integer;
+begin
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadWideString 1(name=%s, position before =$%x',[aName, fStream.Position]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  fStream.ReadBuffer(sze, SizeOf(sze));
+
+  if ((iMaxLength > -1) and (sze > iMaxLength)) or
+     (sze*2 > fStream.Size) then
+    RaiseError(err_InvalidStringLength,[sze]);
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadWideString 2(name=%s, position before =$%x, size=$%x, length=$%x',[aName, fStream.Position,sze,sze*2]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  if (sze>0) then begin
+    SetLength(widestring(Ref), sze);
+    fStream.ReadBuffer(widestring(Ref)[1], sze*2);
+  end
+  else widestring(Ref) := '';
+end;
+
+procedure TROStreamSerializer.WriteDateTime(const aName: string; const Ref; ArrayElementId : integer = -1);
+{var lDateTime:TDateTime absolute Ref;
+    lDateTimeStructure:TDateTimeStructure;
+    m,d,h,n,s:Word;}
+begin
+  WriteDouble(aName,ftDouble,Ref,-1);
+  {DecodeDateTime(lDateTime,lDateTimeStructure.Year,m,d,h,n,s,lDateTimeStructure.MiliSeconds);
+  lDateTimeStructure.Month := m;
+  lDateTimeStructure.Day := d;
+  lDateTimeStructure.Hour := h;
+  lDateTimeStructure.Minute := n;
+  lDateTimeStructure.Seconds := s;
+  fStream.Write(lDateTimeStructure, SizeOf(TDateTimeStructure));}
+end;
+
+procedure TROStreamSerializer.WriteEnumerated(const aName: string; anEnumTypeInfo: PTypeInfo; const Ref; ArrayElementId : integer = -1);
+var
+  lInteger: integer;
+begin
+  lInteger := EnumeratedToInteger(anEnumTypeInfo, Ref);
+  fStream.Write(lInteger, SizeOf(integer));
+end;
+
+procedure TROStreamSerializer.WriteDouble(const aName: string;
+  aFloatType: TFloatType; const Ref; ArrayElementId : integer = -1);
+var sze : byte;
+    src : pointer;
+    {$IFDEF ENDIAN_BIG}
+    rev : pointer;
+    {$ENDIF}
+begin
+  { ToDo: make sure a double is always marshaled in some .NET compatible format (IEEE).
+    Only differentiate between Double and Currency, convert all the rest to double.
+    Handle Currency as Int64. Also adjust WriteFloat appropriately. }
+
+  src := @Ref;
+  sze := 0;
+  case aFloatType of
+    ftSingle   : sze := SizeOf(single);
+    ftDouble   : sze := SizeOf(double);
+    ftExtended : sze := SizeOf(extended);
+    ftComp     : sze := SizeOf(comp);
+    ftCurr     : sze := SizeOf(currency);
+  end;
+
+  {$IFDEF ENDIAN_BIG}
+  rev := ReverseByteOrder(src, sze);
+  try
+    fStream.Write(rev^, sze);
+  finally
+    FreeMem(rev, sze);
+  end;
+  {$ELSE}
+  fStream.Write(src^, sze);
+  {$ENDIF}
+end;
+
+procedure TROStreamSerializer.WriteInt64(const aName: string; const Ref; ArrayElementId : integer = -1);
+{$IFDEF ENDIAN_BIG}
+var
+  data: UInt64;
+begin
+  data := EndianSafeWriteInt64(UInt64(Ref));
+  fStream.Write(data, SizeOf(Int64));
+{$ELSE}
+begin
+  fStream.Write(Ref, SizeOf(Int64));
+{$ENDIF}
+end;
+
+procedure TROStreamSerializer.WriteInteger(const aName: string;
+  anOrdType: TOrdType; const Ref; ArrayElementId : integer = -1);
+var sze : byte;
+    src : pointer;
+    {$IFDEF ENDIAN_BIG}
+    rev : pointer;
+    {$ENDIF}
+begin
+  { ToDo: make sure a Integer is always marshaled as Int32 }
+
+  src := @Ref;
+  sze := 0;
+  case anOrdType of
+    otSByte,
+    otUByte : sze := SizeOf(byte);
+    otSWord,
+    otUWord : sze := SizeOf(word);
+    otSLong,
+    otULong : sze := SizeOf(integer);
+  end;
+  {$IFDEF ENDIAN_BIG}
+  rev := ReverseByteOrder(src, sze);
+  try
+    fStream.Write(rev^, sze);
+  finally
+    FreeMem(rev, sze);
+  end;
+  {$ELSE}
+  fStream.Write(src^, sze);
+  {$ENDIF}
+end;
+
+procedure TROStreamSerializer.WriteSafe8BitString(const aValue: Ansistring);
+var
+  lLength:integer;
+  lWriteString: AnsiString;
+begin
+  lWriteString := aValue; // we assume it's safe 7bit ASCII
+
+  lLength := Length(lWriteString);
+  fStream.Write(lLength, SizeOf(lLength));
+  if (lLength > 0) then
+    fStream.Write(pointer(lWriteString)^, lLength);
+end;
+
+procedure TROStreamSerializer.WriteUnicodeString(const aName: string; const Ref;
+  ArrayElementId: integer);
+var sze : integer;
+begin
+  sze := Length(UnicodeString(Ref));
+  fStream.Write(sze, SizeOf(sze));
+  if (sze>0) then fStream.Write(UnicodeString(Ref)[1], sze*2);
+end;
+
+procedure TROStreamSerializer.WriteUTF8String(const aName: string; const Ref; ArrayElementId : integer = -1);
+var sze : integer;
+begin
+  sze := Length(UTF8String(Ref));
+  fStream.Write(sze, SizeOf(sze));
+  if (sze>0) then fStream.Write(UTF8String(Ref)[1], sze);
+end;
+
+procedure TROStreamSerializer.WriteWideString(const aName: string;
+  const Ref; ArrayElementId : integer = -1);
+var sze : integer;
+begin
+  sze := Length(widestring(Ref));
+  fStream.Write(sze, SizeOf(sze));
+  if (sze>0) then fStream.Write(widestring(Ref)[1], sze*2);
+end;
+
+procedure TROStreamSerializer.BeginReadObject(const aName: string; aClass : TClass; var anObject: TObject; var LevelRef : IUnknown; var IsValidType : boolean; ArrayElementId : integer = -1);
+var IsAssigned : ByteBool;
+    clsnme : string;
+    cnt : integer;
+
+    lActualClass:TROComplexTypeClass;
+    struct: IROCustomStreamableClass;
+
+begin
+  //IsValidType := false; check if we need to init this!?
+
+  inherited;
+
+  //fStream.Read(IsAssigned, SizeOf(IsAssigned));
+
+
+  { ToDo -omh: provide a hook here so the app can cleanly provide custom complx types to be used, instead of
+               relying on them being assigned by the caller (which is bad))
+
+               FindROClass should be ablt to provide this capability. }
+
+  { ToDo -omh: MUCH this should be moved into common code in TROSerializer so ALL messages benbefit from it? }
+
+  if Assigned(anObject) and (anObject.GetInterfaceEntry(IROCustomStreamableType) <> nil) then begin
+    if anObject.GetInterface(IROCustomStreamableArray, struct) then begin
+      fStream.ReadBuffer(IsAssigned, SizeOf(IsAssigned));
+      if IsAssigned then begin
+        ReadInteger('', otULong, cnt);
+        Struct.SetNull(false);
+        IROCustomStreamableArray(pointer(Struct)).Count := cnt;
+      end
+      else begin
+        struct.SetNull(true);
+      end;
+      IsValidType := True;
+    end
+    else if anObject.GetInterface(IROCustomStreamableStruct, struct) then begin
+      fStream.ReadBuffer(IsAssigned, SizeOf(IsAssigned));
+      if IsAssigned then begin
+        ReadUTF8String('', clsnme,-1,MAX_ITEM_NAME);
+        if not struct.CanImplementType(clsnme) then RaiseError(err_UnknownClassInStream,[clsnme,aClass.ClassName]);
+        Struct.SetNull(false);
+        Struct.TypeName := clsnme;
+      end
+      else begin
+        struct.SetNull(true);
+      end;
+      IsValidType := True;
+    end
+    else if anObject.GetInterface(IROCustomStreamableEnum, struct) then begin
+      IsValidType := True;
+    end;
+  end
+  else if aClass.InheritsFrom(TROArray) then begin
+    fStream.ReadBuffer(IsAssigned, SizeOf(IsAssigned));
+    if IsAssigned then begin
+      anObject := aClass.Create();
+      ReadInteger('', otULong, cnt);
+      TROArray(anObject).Resize(cnt);
+    end;
+    IsValidType := true;
+  end
+  else if aClass.InheritsFrom(TStream) then begin
+    fStream.ReadBuffer(IsAssigned, SizeOf(IsAssigned));
+    if not Assigned (anObject) then begin
+      if IsAssigned then 
+        anObject := TROBinaryMemoryStream.Create;
+    end
+    else begin
+      if IsAssigned then begin
+        (anObject as TStream).Seek(0, soFromBeginning);
+        (anObject as TStream).Size := 0;
+      end
+      else begin
+        anObject := nil;
+      end;
+    end;
+    IsValidType := TRUE;
+  end
+  else if Assigned(anObject) and aClass.InheritsFrom(EROException) then begin
+    // Doesn't need anything here. Just take the type as valid
+    IsValidType := TRUE;
+  end
+  else begin
+    fStream.ReadBuffer(IsAssigned, SizeOf(IsAssigned));
+    if IsAssigned then begin
+      {$IFDEF DEBUG_REMOBJECTS}
+      DebugServer.Write('fStream.Position before reading classname: $%x',[fStream.Position]);
+      {$ENDIF DEBUG_REMOBJECTS}
+
+      if IsValidType then begin
+        ReadUTF8String('', clsnme,-1,MAX_ITEM_NAME);
+
+        lActualClass := FindROClass(clsnme);
+        if not Assigned(lActualClass) then RaiseError(err_UnknownClassInStream,[clsnme,aClass.ClassName]);
+        if not lActualClass.InheritsFrom(aClass) then RaiseError(err_UnexpectedClassInStream,[clsnme,aClass.ClassName]);
+        anObject := lActualClass.Create;
+
+      end
+      else begin
+        RaiseError(str_InvalidClassTypeInStream,[clsnme]);
+      end;
+    end;
+  end;
+
+  {$IFDEF DEBUG_REMOBJECTS}
+  DebugServer.Write('fStream.Position: %d',[fStream.Position]);
+  if anObject = nil then DebugServer.Write('anObject is nil') else DebugServer.Write('anObject is assigned');
+  {$ENDIF DEBUG_REMOBJECTS}
+
+end;
+
+procedure TROStreamSerializer.BeginWriteObject(const aName: string; aClass : TClass; anObject: TObject;
+   var LevelRef : IUnknown; var IsValidType : boolean; out IsAssigned:Boolean; ArrayElementId : integer = -1);
+//var IsNIL : ByteBool;
+var clsnme : ansistring;
+    cnt : integer;
+    struct: IROCustomStreamableClass;
+
+begin
+  inherited;
+
+  if Assigned(anObject) and (aClass.GetInterfaceEntry(IROCustomStreamableType) <> nil) then begin
+    if anObject.GetInterface(IROCustomStreamableClass, struct) then
+      IsAssigned := not struct.IsNull
+    else
+      IsAssigned := true; { non-class-based types, like enums, are always assigned }
+  end
+  else begin
+    IsAssigned := Assigned(anObject);
+  end;
+
+  if IsAssigned then begin
+    if Assigned(anObject) and (anObject.GetInterfaceEntry(IROCustomStreamableType) <> nil) then begin
+      if anObject.GetInterface(IROCustomStreamableArray, struct) then begin
+        fStream.Write(IsAssigned, SizeOf(IsAssigned));
+        cnt := IROCustomStreamableArray(pointer(Struct)).Count;
+        WriteInteger('', otULong, cnt);
+        IsValidType := true; // Adds Custom Arrays as supported type
+      end
+      else if anObject.GetInterface(IROCustomStreamableStruct, struct) then begin
+        fStream.Write(IsAssigned, SizeOf(IsAssigned));
+        clsnme := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(struct.TypeName);
+        WriteSafe8BitString(clsnme);
+        IsValidType := true; // Adds Custom structs as supported type
+      end
+      else if (anObject.GetInterfaceEntry(IROCustomStreamableEnum) <> nil) then begin
+        IsValidType := true; // Adds custom Enums as supported type. no header required.
+      end
+    end
+    else if aClass.InheritsFrom(TStream) then begin
+      fStream.Write(IsAssigned, SizeOf(IsAssigned));
+      clsnme := StreamClsName;
+      IsValidType := true; // Adds TStream as supported type
+    end
+    else if (anObject is TROArray) then begin
+      fStream.Write(IsAssigned, SizeOf(IsAssigned));
+      cnt := TROArray(anObject).Count;
+      WriteInteger('', otULong, cnt);
+      IsValidType := TRUE; // Adds Array as supported type
+    end
+    else if (anObject is EROException) then begin
+      // Doesn't need anything here. Just take the type as valid
+      IsValidType := TRUE;
+    end
+    else if IsValidType then begin
+      fStream.Write(IsAssigned, SizeOf(IsAssigned));
+      clsnme := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(anObject.ClassName);
+      WriteSafe8BitString(clsnme);
+    end;
+  end
+  else begin
+    fStream.Write(IsAssigned, SizeOf(IsAssigned));
+  end;
+end;
+
+procedure TROStreamSerializer.CustomReadObject(const aName: string; aClass : TClass; var Ref; ArrayElementId: integer);
+var obj : TObject absolute Ref;
+    lSize:integer;
+begin
+  inherited;
+  if Assigned(Obj) then begin
+
+    if (obj is TMemoryStream) then begin
+      with TMemoryStream(obj) do begin // Created as TMemoryStream in BeginReadObject
+        ReadInteger('', otULong, lSize);
+        if lSize > 0 then begin
+
+          if (lSize > fStream.Size) then
+            RaiseError(err_InvalidStringLength,[lSize]);
+
+          SetSize(lSize); { don't set this until we have confirmed the stream size } 
+
+          if CopyFrom(fStream, lSize) <> lSize then
+            RaiseError(err_InvalidStringLength,[lSize]);
+
+          Position := 0;
+        end
+        else begin
+          SetSize(0);
+        end;
+      end;
+    end;
+
+  end;
+end;
+
+procedure TROStreamSerializer.CustomWriteObject(const aName: string; aClass : TClass; const Ref; ArrayElementId : integer = -1);
+var obj : TObject absolute Ref;
+    lSize:integer;
+begin
+  inherited;
+  if Assigned(obj) then begin
+
+    if (obj is TStream) then begin
+      with TStream(obj) do begin
+        lSize := Size;
+        fStream.Write(lSize, SizeOf(lSize));
+        if lSize > 0 then begin
+          Position := 0;
+          fStream.CopyFrom(TStream(obj), lSize);
+        end;
+      end;
+    end;
+
+  end;
+end;
+
+{$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+procedure TROStreamSerializer.Read(const aName: string;aTypeInfo: PTypeInfo; var Ptr; ArrayElementId: integer);
+begin
+  DebugServer.EnterMethod('TROStreamSerializer.Read("%s")',[aName]);
+  try try
+    DebugServer.WriteHexDump('Reading "'+aName+'" from message',fStream);
+    inherited;
+  except DebugServer.WriteException(); raise; end;
+  finally
+    DebugServer.ExitMethod('TROStreamSerializer.Read()');
+  end;
+end;
+{$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+procedure TROStreamSerializer.ReadVariant(const aName: string; var Ref; ArrayElementId: integer);
+var vtype, stringlen : integer;
+
+    lIntegerValue:integer;
+    {$IFNDEF DELPHI5}
+    lShortInt:shortint;
+    lSmallIntValue: smallint;
+    lInt64Value:Int64;
+    {$ENDIF DELPHI5}
+    lByteValue:byte;
+    lDoubleValue:double;
+    lSingleValue:single;
+    lCurrencyValue:currency;
+    lString: Ansistring;
+begin
+  fStream.ReadBuffer(vtype, SizeOf(integer));
+  {$IFDEF ENDIAN_BIG}
+  vtype := EndianSafeReadInteger(vtype);
+  {$ENDIF}
+
+  { Array types }
+  if ((vtype and $2000)=$2000) then begin
+    case vtype of
+      $2011: Variant(Ref) := VariantBinaryFromBinary(fStream);
+      else Variant(Ref) := VariantArrayFromBinary(fStream, (vtype and $FFF));
+    end;
+    Exit; // Done!
+  end;
+
+  { Plain Types }
+  case vtype of
+    varEmpty:Variant(Ref) := Unassigned;
+    varNull:Variant(Ref) := Null;
+    varError:Variant(Ref) := EmptyParam;
+    {$IFNDEF DELPHI5}
+    varShortInt:begin
+      fStream.ReadBuffer(lShortInt, SizeOf(shortint));
+      Variant(Ref) := lShortInt;
+    end;
+    varSmallInt,varWord : begin
+      fStream.ReadBuffer(lSmallIntValue, SizeOf(lSmallIntValue));
+      Variant(Ref) := {$IFDEF ENDIAN_BIG}EndianSafeReadInt16{$ENDIF}(lSmallIntValue);
+    end;
+    {$ENDIF DELPHI5}
+    {$IFNDEF DELPHI5}
+    varLongWord,
+    {$ENDIF DELPHI5}
+    varInteger:begin
+      fStream.ReadBuffer(lIntegerValue, SizeOf(integer));
+      Variant(Ref) := {$IFDEF ENDIAN_BIG}EndianSafeReadInteger{$ENDIF}(lIntegerValue);
+    end;
+    varSingle:begin
+      fStream.ReadBuffer(lSingleValue, SizeOf(single));
+      Variant(Ref) := {$IFDEF ENDIAN_BIG}EndianSafeReadSingle{$ENDIF}(lSingleValue);
+    end;
+    varDouble:begin
+      fStream.ReadBuffer(lDoubleValue, SizeOf(double));
+      Variant(Ref) := {$IFDEF ENDIAN_BIG}EndianSafeReadDouble{$ENDIF}(lDoubleValue);
+    end;
+    varCurrency:begin
+      fStream.ReadBuffer(lCurrencyValue, SizeOf(currency));
+      Variant(Ref) := {$IFDEF ENDIAN_BIG}EndianSafeReadCurrency{$ENDIF}(lcurrencyValue);
+    end;
+    varDate:begin
+      fStream.ReadBuffer(lDoubleValue, SizeOf(double));
+      Variant(Ref) := TDateTime({$IFDEF ENDIAN_BIG}EndianSafeReadDouble{$ENDIF}(lDoubleValue));
+    end;
+    varBoolean:begin
+      fStream.ReadBuffer(lByteValue, SizeOf(integer));
+      Variant(Ref) := (lByteValue <> 0);
+    end;
+    varByte:begin
+      fStream.ReadBuffer(lByteValue, SizeOf(byte));
+      Variant(Ref) := lByteValue;
+    end;
+    {$IFNDEF DELPHI5}
+    varInt64:begin
+      fStream.ReadBuffer(lInt64Value, SizeOf(Int64));
+      Variant(Ref) := {$IFDEF ENDIAN_BIG}EndianSafeReadInt64{$ENDIF}(lInt64Value);
+    end;
+    {$ENDIF DELPHI5}
+    varString: begin
+      fStream.ReadBuffer(stringlen, SizeOf(integer));
+      SetLength(lString, stringlen);
+      if (stringlen>0)
+        then fStream.ReadBuffer(lString[1], stringlen);
+      Variant(Ref) := lString;
+    end;
+    varUString,
+    varOleStr: begin
+      fStream.ReadBuffer(stringlen, SizeOf(integer));
+      SetLength(lString, stringlen);
+      if (stringlen>0)
+        then fStream.ReadBuffer(lString[1], stringlen);
+      Variant(Ref) := UTF8ToString(lString);
+    end;
+    else NotSupported(Format(err_UnsupportedVariantType, [VarType(vtype)]));
+  end;    { case }
+end;
+
+procedure TROStreamSerializer.WriteVariant(const aName: string; const Ref;
+  ArrayElementId: integer);
+var vtype : integer;
+    varvalue : Variant;
+
+    lIntegerValue:integer;
+    {$IFNDEF DELPHI5}
+    lShortIntValue:shortint;
+    lSmallIntValue: Smallint;
+    lInt64Value:Int64;
+    {$ENDIF DELPHI5}
+    lByteValue:byte;
+    lDoubleValue:double;
+    lSingleValue:single;
+    lCurrencyValue:currency;
+    lStringValue:AnsiString;
+begin
+  varvalue := Variant(Ref);
+  vtype := VarType(Variant(Ref));
+
+  { Array types }
+  if ((vtype and $2000)=$2000) then begin
+    case vtype of
+      $2011: WriteVariantBinaryToBinary(varvalue, fStream); {8209; handle Array of Byte special. for now. }
+      else WriteVariantArrayToBinary(varvalue, fStream);
+    end;
+    Exit; // Done!
+  end;
+
+  { Simple types }
+  case vtype of
+    varEmpty,varNull,varError:begin { 0, 1, A }
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+    end;
+    {$IFNDEF DELPHI5}
+    varShortInt:begin { 2, 10, 12 }
+      lShortIntValue := varvalue;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lShortIntValue, SizeOf(shortint));
+    end;
+    varSmallInt,varWord : begin
+      lSmallIntValue := varvalue;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      lSmallIntValue := EndianSafeWriteInt16(lSmallIntValue);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lSmallIntValue, SizeOf(lSmallIntValue));
+    end;
+    {$ENDIF DELPHI5}
+    {$IFNDEF DELPHI5}varLongWord,{$ENDIF DELPHI5}
+    varInteger:begin { 3, 13 }
+      lIntegerValue := varvalue;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      lIntegerValue := EndianSafeWriteInteger(lIntegerValue);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lIntegerValue, SizeOf(integer));
+    end;
+    varSingle:begin { 4 }
+      lSingleValue := varvalue;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      lSingleValue := EndianSafeWriteSingle(lSingleValue);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lSingleValue, SizeOf(single));
+    end;
+    varDouble, varDate:begin { 5, 7 }
+      lDoubleValue := varvalue;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      lDoubleValue := EndianSafeWriteDouble(lDoubleValue);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lDoubleValue, SizeOf(double));
+    end;
+    varCurrency:begin { 6 }
+      lCurrencyValue := varvalue;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      lCurrencyValue := EndianSafeWriteCurrency(lCurrencyValue);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lCurrencyValue, SizeOf(currency));
+    end;
+    varBoolean:begin { B }
+      if varvalue then lByteValue := 1 else lByteValue := 0;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lByteValue, SizeOf(integer));
+    end;
+    varByte:begin { 11 }
+      lByteValue := varvalue;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lByteValue, SizeOf(byte));
+    end;
+    {$IFNDEF DELPHI5}
+    varInt64:begin { 14 }
+      lInt64Value := varvalue;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      lInt64Value := EndianSafeWriteInt64(lInt64Value);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lInt64Value, SizeOf(Int64));
+    end;
+    {$ENDIF DELPHI5}
+    {$IFDEF DELPHI2009UP}
+    varUInt64: begin {15h}
+      // write as varInt64
+      lInt64Value := varvalue;
+      vtype := varInt64;
+      {$IFDEF ENDIAN_BIG}
+      vtype := EndianSafeWriteInteger(vtype);
+      lInt64Value := EndianSafeWriteInt64(lInt64Value);
+      {$ENDIF}
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lInt64Value, SizeOf(Int64));
+    end;
+    {$ENDIF}
+    varString:begin { 100 }
+      lStringValue := VarToAnsiStr(varvalue);
+      lIntegerValue := Length(lStringValue);
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lIntegerValue, SizeOf(integer));
+      if (lIntegerValue>0)
+        then fStream.Write(lStringValue[1],lIntegerValue)
+    end;
+    varUString, {258}
+    varOleStr:begin { 8 }
+      lStringValue := Utf8Encode(varvalue);
+      lIntegerValue := Length(lStringValue);
+      fStream.Write(vtype, SizeOf(integer));
+      fStream.Write(lIntegerValue, SizeOf(integer));
+      if (lIntegerValue>0)
+        then fStream.Write(lStringValue[1],lIntegerValue)
+    end;
+    else NotSupported(Format(err_UnsupportedVariantType, [VarType(varvalue)]));
+  end;
+end;
+
+procedure TROStreamSerializer.WriteXml(const aName : string; const Ref; ArrayElementId : integer = -1);
+var
+  w: Utf8String;
+begin
+  if IXmlNode(Ref) = nil then
+    W := ''
+  else
+    W := UTF8Encode(IXmlNode(Ref).XML);
+  WriteUTF8String(aname, w, ArrayElementId);
+end;
+
+procedure TROStreamSerializer.ReadXml(const aName : string; var Ref; ArrayElementId : integer = -1);
+var
+  w: Utf8String;
+  doc: IXMLDocument;
+begin
+  ReadUTF8String(aName, w, ArrayElementID);
+  if w = '' then
+    IXMLNode(Ref) := nil
+  else begin
+    doc := NewROXmlDocument;
+    doc.New;
+    Doc.XML := UTF8ToString(w);
+    IXMLNode(Ref) := doc.DocumentNode;
+  end;
+end;
+
+procedure TROStreamSerializer.WriteGuid(const aName: String; const Ref; ArrayElementId: Integer = -1);
+var
+  g: TGuid;
+begin
+  g := StringToGUID(TGuidString(Ref));
+  fStream.Write(g, sizeof(g));
+end;
+
+procedure TROStreamSerializer.WriteDecimal(const aName: String; const Ref; ArrayElementId: Integer = -1);
+var
+  dec: TDecimal;
+begin
+  dec := VariantToDecimal(Variant(Ref));
+  fStream.Write(dec, Sizeof(Dec));
+end;
+
+procedure TROStreamSerializer.ReadDecimal(const aName: String; var Ref; ArrayElementId: Integer = -1);
+var
+  d: TDecimal;
+begin
+  if fStream.Read(d, sizeof(d)) <> sizeof(d) then RaiseError(err_UnexpectedEndOfStream);
+  Variant(Ref) := DecimalToVariant(d);
+end;
+
+procedure TROStreamSerializer.ReadGuid(const aName: String; var Ref; ArrayElementId: Integer = -1);
+var
+  g: TGuid;
+begin
+  if fStream.Read(g, sizeof(g)) <> sizeof(g) then RaiseError(err_UnexpectedEndOfStream);
+  string(Ref) := GUIDToString(g);
+end;
+
+procedure TROStreamSerializer.WriteBinary(const aName: string; const Ref;
+  ArrayElementId: integer);
+var
+  obj: Binary absolute Ref;
+  lSize: cardinal;
+  isAssigned: Byte;
+begin
+  if Assigned(Obj) then IsAssigned := 1 else IsAssigned := 0;
+  fStream.WriteBuffer(isAssigned, SizeOf(IsAssigned));
+  if isAssigned <> 0 then begin
+    lSize := obj.Size;
+    WriteInteger('',otULong, lSize);
+    if lSize > 0 then begin
+      obj.Position := 0;
+      fStream.CopyFrom(obj, lSize);
+    end;
+  end;
+end;
+
+procedure TROStreamSerializer.ReadBinary(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  obj: Binary absolute Ref;
+  lSize: cardinal;
+  IsAssigned : ByteBool;
+begin
+  fStream.ReadBuffer(IsAssigned, SizeOf(IsAssigned));
+  if IsAssigned then begin
+    obj := Binary.Create;
+    ReadInteger('', otULong, lSize);
+    if (lSize > fStream.Size) then RaiseError(err_InvalidStringLength,[lSize]);
+    obj.SetSize(lSize); { don't set this until we have confirmed the stream size }
+    if lSize > 0 then begin
+      if obj.CopyFrom(fStream, lSize) <> lSize then RaiseError(err_InvalidStringLength,[lSize]);
+      obj.Position := 0;
+    end;
+  end
+  else
+    obj:=nil;
+end;
+
+function TROStreamSerializer.ReadArray(const aName: string; aClass: TClass;
+  var Ref; ArrayElementId: integer): Boolean;
+var
+  obj: TROArray absolute Ref;
+  IsAssigned : ByteBool;
+  cnt : integer;
+begin
+  fStream.ReadBuffer(IsAssigned, SizeOf(IsAssigned));
+  Result:=IsAssigned;
+  if Result then begin
+    if not assigned(obj) then
+      obj := TROArray(aClass.Create);
+    ReadInteger('', otULong, cnt);
+    obj.Resize(cnt);
+    obj.ReadComplex(self);
+  end
+  else
+    Obj:=nil;
+end;
+
+function TROStreamSerializer.ReadStruct(const aName: string;
+  aClass: TClass; var Ref; ArrayElementId: integer): Boolean;
+var
+  obj : TROComplexType absolute Ref;
+  IsAssigned : ByteBool;
+  clsnme : ansistring;
+  clsnme2: string;
+  lActualClass:TROComplexTypeClass;
+begin
+  fStream.ReadBuffer(IsAssigned, SizeOf(IsAssigned));
+  Result := IsAssigned;
+  if Result then begin
+    ReadUTF8String('', clsnme,-1,MAX_ITEM_NAME);
+    clsnme2 := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(clsnme);
+    lActualClass := FindROClass(clsnme2);
+    if not Assigned(lActualClass) then RaiseError(err_UnknownClassInStream,[clsnme2,aClass.ClassName]);
+    if not lActualClass.InheritsFrom(aClass) then RaiseError(err_UnexpectedClassInStream,[clsnme2,aClass.ClassName]);
+    obj := lActualClass.Create;
+    obj.ReadComplex(self);
+  end
+  else
+    Obj:=nil;
+end;
+
+procedure TROStreamSerializer.WriteArray(const aName: string; const Ref; aClass: TClass; 
+  ArrayElementId: integer);
+//var IsNIL : ByteBool;
+var
+  obj : TROArray absolute Ref;
+  cnt : integer;
+  IsAssigned: Byte;
+begin
+  if Assigned(Obj) then IsAssigned := 1 else IsAssigned := 0;
+  fStream.Write(IsAssigned, SizeOf(IsAssigned));
+  if isAssigned <> 0 then begin
+    cnt := obj.Count;
+    WriteInteger('', otULong, cnt);
+    obj.WriteComplex(Self);
+  end;
+end;
+
+procedure TROStreamSerializer.WriteStruct(const aName: string; const Ref; aClass: TClass; 
+  ArrayElementId: integer);
+var
+  obj : TROComplexType absolute Ref;
+  clsnme : Ansistring;
+  IsAssigned: byte;
+begin
+  if Assigned(Obj) then IsAssigned := 1 else IsAssigned := 0;
+  fStream.Write(IsAssigned, SizeOf(IsAssigned));
+  if isAssigned <> 0 then begin
+    clsnme := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(obj.ClassName);
+    WriteUTF8String('', clsnme);
+    obj.WriteComplex(Self);
+  end;
+end;
+
+procedure TROStreamSerializer.ReadException(const aName: string;
+  var Ref; ArrayElementId: integer);
+var
+  obj: EROException absolute Ref;
+begin
+  if Assigned(obj) then EROException(obj).ReadException(Self);
+end;
+
+procedure TROStreamSerializer.WriteException(const aName: string;
+  const Ref; ArrayElementId: integer);
+var
+  obj: EROException absolute Ref;
+begin
+  if Assigned(obj) then EROException(obj).WriteException(Self);
+end;
+
+procedure TROStreamSerializer.ReadAnsiString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  sze : integer;
+begin
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadString 1(name=%s, position before =$%x',[aName, fStream.Position]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  fStream.ReadBuffer(sze, SizeOf(sze));
+  //ToDo: we need some code here to avoid hacker attachs with too long strings
+
+  {$IFDEF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+  DebugServer.Write('TROStreamSerializer.ReadString 2(name=%s, position before =$%x, size=$%x',[aName, fStream.Position,sze]);
+  {$ENDIF DEBUG_REMOBJECTS_BINMESSAGE_LOWLEVEL}
+
+  if ((iMaxLength > -1) and (sze > iMaxLength)) or
+     (sze > fStream.Size) then
+    RaiseError(err_InvalidStringLength,[sze]);
+
+  if (sze>0) then begin
+    SetLength(AnsiString(Ref), sze);
+    fStream.ReadBuffer(AnsiString(Ref)[1], sze);
+  end
+  else string(Ref) := '';
+end;
+
+procedure TROStreamSerializer.WriteAnsiString(const aName: string;
+  const Ref; ArrayElementId: integer);
+var sze : integer;
+begin
+  sze := Length(AnsiString(Ref));
+  fStream.Write(sze, SizeOf(sze));
+  if (sze>0) then fStream.Write(AnsiString(Ref)[1], sze);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROStreamUtils.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROStreamUtils.pas
new file mode 100644
index 0000000..9b07fcd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROStreamUtils.pas	
@@ -0,0 +1,386 @@
+unit uROStreamUtils;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Provided by Nico Schoemaker (nico.schoemaker@teamro.remobjects.com)        }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, SysUtils;
+
+// String support routines for streams
+
+function  Strm_HasHeader(aHeader: AnsiString; aStream: TStream): Boolean;
+function  Strm_PosFirst(aSubstr: Ansistring; aStream: TStream): Integer;
+function  Strm_PosLast(aSubstr: ansistring; aStream: TStream): Integer;
+function  Strm_StrCount(aSubstr: Ansistring; aStream: TStream): Integer;
+function  Strm_StrRangeCount(aSubstr: Ansistring; StartPos,EndPos: Integer; aStream: TStream): Integer;
+function  Strm_StrAtPos(aSubstr: Ansistring; aPos: Integer; aStream: TStream): Boolean;
+procedure Strm_InsertStr(aSubstr: Ansistring; aPos: Integer; aStream: TStream);
+function  Strm_StreamToStr(aStream: TStream): AnsiString;
+function  Strm_StreamRangeToStr(aStream: TStream; StartPos,EndPos: Integer): AnsiString;
+function  Strm_ReadPattern(aStream: TStream;aStartTag,aEndTag,aSeperator: AnsiString): TStringList;
+
+implementation
+
+uses
+  {$IFDEF DELPHI2009UP}AnsiStrings,{$ENDIF}
+  uROClasses;
+
+function Strm_HasHeader(aHeader: AnsiString;aStream: TStream): Boolean;
+var Buffer: AnsiChar;
+    Cntr: Integer;
+    BufferS: AnsiString;
+    OldPos: Integer;
+begin
+  result := false;
+
+  if aHeader = '' then
+    Exit;
+  if not(Assigned(aStream)) then
+    Exit;
+  if Length(aHeader) > aStream.Size then
+    Exit;
+
+  OldPos := aStream.Position;
+  aStream.Position := 0;
+  BufferS := '';
+  Buffer := #0;
+  // Read the first x bytes from the string and compare against the headertag
+  for Cntr := 1 to Length(aHeader) do
+  begin
+    aStream.Read(Buffer,1);
+    BufferS := BufferS + Buffer;
+  end;
+  result := BufferS = aHeader;
+
+  aStream.Position := OldPos;
+end;
+
+function Strm_PosFirst(aSubstr: Ansistring; aStream: TStream): Integer;
+var Buffer: AnsiChar;
+    BufS:   AnsiString;
+    i,x:    Integer;
+    pos:    Integer;
+    oldpos: Integer;
+    lenS:   Integer;
+begin
+  result := -1;
+
+  if aSubstr = '' then
+    Exit;
+  if not(Assigned(aStream)) then
+    Exit;
+
+  lenS := Length(aSubstr);
+
+  if lenS > aStream.Size then
+    Exit;
+
+  oldpos := aStream.Position;
+  aStream.Position := 0;
+  pos := 0;
+
+  for i := 0 to aStream.Size-1 do
+  begin
+
+    // Avoid reading beyond the stream size
+    if (aStream.Position+lenS) > aStream.Size then
+      Break;
+
+    BufS := '';
+    Buffer := #0;
+    // Read x bytes at once into the buffer to make a compare
+    for x := 1 to lenS do
+    begin
+      aStream.Read(Buffer,1);
+      BufS := BufS + Buffer;
+    end;
+
+    if UpperCase(BufS) = UpperCase(aSubstr) then
+    begin
+      result := pos;
+      break;
+    end;
+
+    inc(pos);
+    aStream.Position := pos;
+  end;
+
+  aStream.Position := oldpos;
+end;
+
+function  Strm_PosLast(aSubstr: Ansistring; aStream: TStream): Integer;
+var lenS:   Integer;
+    spos:   Integer;
+begin
+  result := -1;
+
+  if aSubstr = '' then
+    Exit;
+  if not(Assigned(aStream)) then
+    Exit;
+
+  lenS := Length(aSubstr);
+  spos := Strm_PosFirst(aSubstr,aStream);
+
+  if spos <> -1 then
+  begin
+    result := spos + lenS-1;
+  end;
+end;
+
+function Strm_StrAtPos(aSubstr: Ansistring; aPos: Integer; aStream: TStream): Boolean;
+var Buffer: AnsiChar;
+    BufS: AnsiString;
+    OldPos: Integer;
+    i: Integer;
+    lenS: Int64;
+begin
+  result := false;
+
+  if not(Assigned(aStream)) then
+    Exit;
+  if aSubstr = '' then
+    Exit;
+  lenS := Length(aSubstr);
+  if (aPos < 0) or ((aPos+lenS) > (aStream.Size)) then
+    Exit;
+  if lenS > aStream.Size then
+    Exit;
+
+  oldpos := aStream.Position;
+  aStream.Position := aPos;
+  Buffer := #0;
+  BufS := '';
+  for i := 1 to lenS do
+  begin
+    aStream.Read(Buffer,1);
+    BufS := BufS + Buffer;
+  end;
+
+  result := UpperCase(BufS) = UpperCase(aSubstr);
+
+  aStream.Position := OldPos;
+end;
+
+function Strm_StrCount(aSubstr: Ansistring; aStream: TStream): Integer;
+var OldPos: Integer;
+    i: Integer;
+    lenS: int64;
+begin
+  result := 0;
+
+  if not(Assigned(aStream)) then
+    Exit;
+  if aSubstr = '' then
+    Exit;
+  lenS := Length(aSubstr);
+  if lenS > aStream.Size then
+    Exit;
+
+  oldpos := aStream.Position;
+
+  for i := 0 to aStream.Size-1 do
+  begin
+    if (aStream.Position+lenS) > (aStream.Size) then
+      Break;
+
+    aStream.Position := i;
+    if Strm_StrAtPos(aSubstr, aStream.Position, aStream) then
+      Inc(Result);
+  end;
+
+  aStream.Position := OldPos;
+end;
+
+
+function Strm_StrRangeCount(aSubstr: Ansistring; StartPos,EndPos: Integer; aStream: TStream): Integer;
+var OldPos: Integer;
+    i: Integer;
+    lenS: Int64;
+begin
+  result := 0;
+
+  if not(Assigned(aStream)) then
+    Exit;
+  if aSubstr = '' then
+    Exit;
+
+  lenS := Length(aSubstr);
+  if lenS > aStream.Size then
+    Exit;
+
+  if (StartPos < 0) or ((StartPos+lenS) > (aStream.Size)) then
+    Exit;
+  if (EndPos < 0) or ((EndPos+lenS) > (aStream.Size)) then
+    Exit;
+  if (EndPos < StartPos) or (EndPos = StartPos) then
+    Exit;
+  if (StartPos+(lenS-1)) >= EndPos then
+    Exit;
+
+  oldpos := aStream.Position;
+
+  for i := StartPos to EndPos do
+  begin
+    aStream.Position := i;
+    if Strm_StrAtPos(aSubstr,i,aStream) then
+      Inc(Result);
+    if (i+(lenS-1)) > EndPos then
+      Break;
+  end;
+
+  aStream.Position := OldPos;
+end;
+
+function  Strm_ReadPattern(aStream: TStream;aStartTag,aEndTag,aSeperator: AnsiString): TStringList;
+var Buffer: AnsiChar;
+    BufS: AnsiString;
+    OldPos: Integer;
+    PosST: Int64;
+    lenST: integer;
+    lenET,PosET: Integer;
+    lenSP: Integer;
+begin
+  result := TStringList.Create;
+
+  if not(Assigned(aStream)) then
+    Exit;
+
+  if aStartTag = '' then
+    Exit;
+  if aEndTag = '' then
+    Exit;
+  if aSeperator = '' then
+    Exit;
+
+
+  oldpos := aStream.Position;
+  lenST := Length(aStartTag);
+  lenET := Length(aEndTag);
+  lenSP := Length(aSeperator);
+
+  PosST := Strm_PosFirst(aStartTag,aStream);
+  if (PosST+lenST+lenSP+lenET) >= aStream.Size then
+    Exit;
+
+  PosET := Strm_PosFirst(aEndTag,aStream);
+  if (PosET < PosST+lenST+lenSP) then
+    Exit;
+
+  // Start 1 byte after the starttag, include start of endtag
+  aStream.Position := (PosST+lenST);
+  BufS := '';
+  Buffer := #0;
+  while aStream.Position < PosET do
+  begin
+    if Strm_StrAtPos(aSeperator,aStream.Position,aStream) then
+    begin
+      // advance position 1 byte after the seperator
+      aStream.Position := aStream.Position + lenSP;
+      if BufS <> '' then
+      begin
+        Result.Add({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(BufS));
+        BufS := '';
+      end;
+    end;
+
+    if Strm_StrAtPos(aEndTag,aStream.Position,aStream) then
+      Break;
+
+    aStream.Read(Buffer,1);
+    BufS := BufS + Buffer;
+  end;
+
+
+  aStream.Position := OldPos;
+end;
+
+function  Strm_StreamToStr(aStream: TStream): AnsiString;
+var OldPos: Integer;
+begin
+  result := '';
+  if not(Assigned(aStream)) then
+    Exit;
+
+  OldPos := aStream.Position;
+  aStream.Position := 0;
+
+  SetLength(result, aStream.Size);
+  if (aStream.Size>0)
+    then aStream.Read(result[1], aStream.Size);
+
+  aStream.Position := OldPos;
+end;
+
+function  Strm_StreamRangeToStr(aStream: TStream; StartPos,EndPos: Integer): AnsiString;
+var Buffer: AnsiChar;
+    OldPos: Integer;
+    i: Integer;
+begin
+  result := '';
+
+  if not(Assigned(aStream)) then
+    Exit;
+
+  OldPos := aStream.Position;
+
+  if (StartPos < 0) or (StartPos >= EndPos) then
+    Exit;
+  if (StartPos >= aStream.Size-1) or (EndPos > aStream.Size-1) then
+    Exit;
+
+  aStream.Position := 0;
+  Buffer := #0;
+  for i := StartPos to EndPos do
+  begin
+    aStream.Read(buffer,1);
+    Result := Result + Buffer;
+  end;
+
+  aStream.Position := OldPos;
+end;
+
+
+procedure Strm_InsertStr(aSubstr: Ansistring; aPos: Integer; aStream: TStream);
+var Buffer: AnsiChar;
+    BufS: AnsiString;
+    OldPos: Integer;
+    i: Integer;
+begin
+  if not(Assigned(aStream)) then
+    Exit;
+  if aSubstr = '' then
+    Exit;
+
+  if (aPos > (aStream.Size-1)) then
+    raise EROException.Create('Strm_InsertStr: invalid position '+IntToStr(aPos));
+
+  oldpos := aStream.Position;
+  BufS := Strm_StreamToStr(aStream);
+  Insert(aSubstr,BufS,aPos+1);
+  aStream.Position := 0;
+
+  for i := 1 to Length(BufS) do
+  begin
+    buffer := BufS[i];
+    aStream.Write(buffer,1);
+  end;
+
+  aStream.Position := OldPos;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSuperTCPChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSuperTCPChannel.pas
new file mode 100644
index 0000000..8d07bc1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSuperTCPChannel.pas	
@@ -0,0 +1,1077 @@
+unit uROSuperTCPChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  SysUtils, Classes, uROClasses, uROClient, uROClientIntf, SyncObjs,
+  uROAsync,{$IFDEF RemObjects_UseEncryption} uRoEncryption, {$ENDIF}
+  IdTCPConnection, IdTCPClient, {$IFDEF MSWINDOWS}Windows, {$ENDIF}uROSCHelpers, uROThreadPool;
+
+type
+  TROCustomSuperTCPChannel = class;
+  TROSCClientWorker = class;
+  TROWaitingRequest = class
+  private
+    fEvent: TROEvent;
+    fFreeEvent: Boolean;
+    fId: Integer;
+    fResultData: TStream;
+    fResultErrorCode: Integer;
+  public
+    property Id: Integer read fId;
+    property Event: TROEvent read fEvent;
+    property Resultdata: TStream read fResultData write fResultData;
+    property ResultErrorCode: Integer read fResultErrorCode write fResultErrorCode;
+
+    constructor Create(Id: Integer); overload;
+    constructor Create(Id: Integer; Ev: TROEvent); overload;
+    destructor Destroy; override;
+  end;
+
+  TROPooledEvent = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fData: TStream;
+    fOwner: TROCustomSuperTCPChannel;
+  protected
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+  public
+    constructor Create(aData: TStream; aOwner: TROCustomSuperTCPChannel);
+    destructor Destroy; override;
+  end;
+
+  TROSCState = (scNotConnected, scConnecting, scConnected, scReconnecting);
+  TROSCAutoReconnectBehavior  = (sbBeforeServerLocators, sbAfterServerLocators, sbSwitchServerLocatorAfterFirstFailure);
+  TROCustomSuperTCPChannel = class(TROTransportChannel, IROTransport,
+    IROTCPTransport, IROActiveEventChannel, IROMultiThreadAwareChannel,
+    IROAsyncTransportChannel, IROActiveAsyncTransportChannel, IROTransportChannelEx,IROTCPTransportProperties)
+  private
+    fRequestTimeout: Integer;
+    fState: TROSCState;
+    fHost: string;
+    fPort: Integer;
+    fConnection: TIdTCPClient;
+    fActive: Boolean;
+    fOwnsEventThreadPool: Boolean;
+    fEventThreadPool: TROThreadPool;
+    fClient: TROSCClientWorker;
+    fWorkerThread: TThread;
+    fWaitingRequests: TThreadList;
+    fAutoReconnect: Boolean;
+    fEventReceiver: IROEventReceiver;
+    fConnectEvent: TROEvent;
+    fReconnectEvent: TROEvent;
+    fOnDisconnected: TNotifyEvent;
+    fOnConnected: TNotifyEvent;
+    fReconnectDelay: Integer;
+    fStoreActive: Boolean;
+    fPingSecs: Integer;
+    fAckWaitTimeout: Integer;
+    fIdleTimeoutMinutes: Integer;
+    fSynchronizeEvents: Boolean;
+    fConnectionWaitTimeout: Integer;
+    fAutoReconnectBehavior: TROSCAutoReconnectBehavior;
+    procedure SetHost(const Value: string);
+    procedure SetPort(const Value: Integer);
+    procedure SetActive(const Value: Boolean);
+    procedure SetEventThreadPool(const Value: TROThreadPool);
+    function GetClientID: TGUID;
+    procedure SetClientID(const Value: TGUID);
+    function GetMaxPackageSize: Longint;
+    procedure SetMaxPackageSize(val: longint);
+    function GetConnected: Boolean;
+    function GetSkipAck: Boolean;
+    procedure SetSkipAck(const Value: Boolean);
+    procedure SetPingSecs(const Value: Integer);
+    function InDestroyingState: Boolean;
+    function GetHost: string;
+    function GetPort: Integer;
+    procedure ClearWaitingRequests;
+  protected
+    function InitServerLocator:Integer; override;
+    procedure ChangeServerLocator(var faultstartlocatoridx: integer; var aRetry: Boolean; const aException: Exception); override;
+    procedure Loaded; override;
+    function GetClientAddress: String;
+    function GetTransportObject: TObject; override;
+
+    procedure HasData(Id: Integer; aData: TStream);
+    procedure BeforeDispatch(aMessage: IROMessage); override;
+    procedure IntDispatch(aRequest, aResponse : TStream); override;
+    procedure RegisterEventReceiver(aReceiver: IROEventReceiver);
+    procedure UnregisterEventReceiver(aReceiver: IROEventReceiver);
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    function InvokeRequest(aRequest: TStream; aGetResponse: Boolean = True;
+      aEvent: TROEvent = nil): String; overload;
+    function InvokeRequest(aRequest:TStream; iGetResponse:boolean=true):string; overload;
+    function CheckStatus(const iMessageID: String): Boolean;
+    procedure RetrieveResponse(const iMessageID: String;
+      aResponse: TStream);
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure WaitForActive(const Timeout: Integer);
+    procedure Assign(aSource : TPersistent); override;
+
+    property Host: string read GetHost write SetHost;
+    property Port: Integer read GetPort write SetPort default 8095;
+    property PingSecs: Integer read fPingSecs write SetPingSecs default 60;
+    property StoreActive: Boolean read fStoreActive write fStoreActive default True;
+    property Active: Boolean read fActive write SetActive  stored fStoreActive default False;
+    property Client: TIdTCPClient read fConnection;
+    property RequestTimeout: Integer read fRequestTimeout write fRequestTimeout default 60000;
+    property EventThreadPool: TROThreadPool read fEventThreadPool write SetEventThreadPool;
+    property AutoReconnect: Boolean read fAutoReconnect write fAutoReconnect default False;
+    property ReconnectDelay: Integer read fReconnectDelay write fReconnectDelay default 500;
+    property ClientID: TGUID read GetClientID write SetClientID;
+    property OnDisconnected: TNotifyEvent read fOnDisconnected write fOnDisconnected;
+    property MaxPackageSize: Integer read GetMaxPackageSize write SetMaxPackageSize default 10*1024*1024;
+    property OnConnected: TNotifyEvent read fOnConnected write fOnConnected;
+    property AckWaitTimeout: Integer read fAckWaitTimeout write fAckWaitTimeout default 10000;
+    property Connected: Boolean read GetConnected;
+    property IdleTimeoutMinutes: Integer read fIdleTimeoutMinutes write fIdleTimeoutMinutes default 0; // minutes
+    property SynchronizeEvents: Boolean read fSynchronizeEvents write fSynchronizeEvents default False;
+    property ConnectionWaitTimeout: Integer read fConnectionWaitTimeout write fConnectionWaitTimeout default 10000;
+    property SkipAck: Boolean read GetSkipAck write SetSkipAck default false;
+    property AutoReconnectBehavior: TROSCAutoReconnectBehavior read fAutoReconnectBehavior write fAutoReconnectBehavior default sbSwitchServerLocatorAfterFirstFailure;
+  end;
+
+  TROSuperTCPChannel = class(TROCustomSuperTCPChannel)
+  public
+  published // from TROCustomSuperTCPChannel
+    property Host;
+    property Port;
+    property Active;
+    property RequestTimeout;
+    property AutoReconnect;
+    property ReconnectDelay;
+    property OnDisconnected;
+    property OnConnected;
+    property StoreActive;
+    property MaxPackageSize;
+    property AckWaitTimeout;
+  	property SynchronizeEvents;
+    property ConnectionWaitTimeout;
+    property AutoReconnectBehavior;
+    property SkipAck;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    property OnAfterProbingServer;
+    property OnAfterProbingServers;
+    property OnBeforeProbingServer;
+    property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    //property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    property OnServerLocatorAssignment;
+    property ProbeFrequency;
+    property ProbeServers;
+    property ServerLocators;
+    property SynchronizedProbing;
+  end;
+
+  TROSCClientWorker = class(TROSuperChannelWorker)
+  private
+    fOwner: TROCustomSuperTCPChannel;
+    fSkipReconnect: Boolean;
+  protected
+    procedure Connected; override;
+    procedure Disconnected(var RestartLoop: Boolean); override;
+    procedure IncomingData(Id: Integer; aData: TStream); override;
+    procedure Idle; override;
+    procedure SetAckDetails(Id: Integer; Oke: Boolean; ErrorNo: Integer); override;
+  public
+    constructor Create(aOwner: TROCustomSuperTCPChannel; aConnection: TIdTCPConnection);
+    property Owner: TROCustomSuperTCPChannel read fOwner;
+  end;
+
+implementation
+
+type
+  TROClientThread = class(TROInitializedThread)
+  private
+    fChannel: TROSCClientWorker;
+    fConnecting: Boolean;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(aChannel: TROSCClientWorker);
+    property Connecting: Boolean read fConnecting;
+  end;
+
+{ TROCustomSuperTCPChannel }
+
+procedure TROCustomSuperTCPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROCustomSuperTCPChannel;
+begin
+  inherited;
+  if aSource is TROCustomSuperTCPChannel then begin
+    lSource := TROCustomSuperTCPChannel(aSource);
+    Active := False;
+    AckWaitTimeout := lSource.AckWaitTimeout;
+    AutoReconnect := lSource.AutoReconnect;
+    AutoReconnectBehavior := lSource.AutoReconnectBehavior;
+    ConnectionWaitTimeout := lSource.ConnectionWaitTimeout;
+    MaxPackageSize := lSource.MaxPackageSize;
+    OnConnected := lSource.OnConnected;
+    OnDisconnected := lSource.OnDisconnected;
+    ReconnectDelay := lSource.ReconnectDelay;
+    RequestTimeout := lSource.RequestTimeout;
+    SkipAck := lSource.SkipAck;
+    StoreActive := lSource.StoreActive;
+    SynchronizeEvents := lSource.SynchronizeEvents;
+    Active := lSource.Active;
+  end;
+end;
+
+procedure TROCustomSuperTCPChannel.BeforeDispatch(aMessage: IROMessage);
+begin
+  try
+    inherited;
+    if not  fConnection.Connected then
+    begin
+      //SetActive(false);
+      SetActive(true);
+    end;
+    fReconnectEvent.SetEvent;
+    if  fConnectEvent.WaitFor(fConnectionWaitTimeout) <> wrSignaled then raise EROException.Create('No connection available');
+    if aMessage <> nil then
+      aMessage.ClientID := fClient.ClientId;
+  except
+    fState:=scNotConnected;
+    raise;
+  end;
+end;
+
+procedure TROCustomSuperTCPChannel.ChangeServerLocator(
+  var faultstartlocatoridx: integer; var aRetry: Boolean;
+  const aException: Exception);
+begin
+  // none
+end;
+
+function TROCustomSuperTCPChannel.CheckStatus(
+  const iMessageID: String): Boolean;
+var
+  i, id: Integer;
+  lList: TList;
+  lReq: TROWaitingRequest;
+begin
+  Result := False;
+  id := StrToInt(iMessageID);
+  lList := fWaitingRequests.LockList;
+  try
+    for i := lList.Count -1 downto 0 do begin
+      lReq := TROWaitingRequest(lList[i]);
+      if Lreq.Id = id then
+      begin
+        Result := (lReq.Resultdata <> nil) or (lReq.ResultErrorCode <> -1);
+        exit;
+      end;
+    end;
+  finally
+    fWaitingRequests.UnlockList;
+  end;
+end;
+
+procedure TROCustomSuperTCPChannel.ClearWaitingRequests;
+var
+  List: TList;
+  i: Integer;
+begin
+  List:= fWaitingRequests.LockList;
+  try
+    for I := List.Count - 1 downto 0 do
+      TROWaitingRequest(List[i]).Free;
+    List.Clear;
+  finally
+    fWaitingRequests.UnlockList;
+  end;
+end;
+
+constructor TROCustomSuperTCPChannel.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+  fConnectEvent := TROEvent.create(nil, true, false, '');
+  fReconnectEvent := TROEvent.Create(nil, true, false, '');
+
+  fPingSecs := 60;
+  fWaitingRequests := TThreadList.Create;
+  fHost := 'localhost';
+  fPort := 8095;
+  fConnection := TIdTCPClient.Create(nil);
+  fClient := TROSCClientWorker.Create(Self, fConnection);
+  fRequestTimeout := 60000;
+  fAckWaitTimeout := 10000;
+  fReconnectDelay := 500;
+  fConnectionWaitTimeout := 10000;
+  fStoreActive := True;
+  ThreadSafe := True;
+  fAutoReconnectBehavior := sbSwitchServerLocatorAfterFirstFailure;
+end;
+
+
+destructor TROCustomSuperTCPChannel.Destroy;
+var
+  fw: TROClientThread;
+begin
+  if (fWorkerThread <> nil) then begin
+    fActive := False;
+    fw := TROClientThread(fWorkerThread);
+    fWorkerThread := nil;
+    fClient.Disconnect;
+    fw.Terminate;
+    fReconnectEvent.SetEvent;
+    fw.WaitFor;
+    FreeAndNil(fw);
+  end;
+  fClient.Free;
+  fConnection.Free;
+  ClearWaitingRequests;
+  fWaitingRequests.Free;
+  fConnectEvent.Free;
+  if fOwnsEventThreadPool then
+  begin
+    fEventThreadPool.Free;
+  end;
+  UnregisterEventReceiver(nil);
+  fReconnectEvent.Free;
+  inherited Destroy;
+end;
+
+function TROCustomSuperTCPChannel.InDestroyingState: Boolean;
+begin
+  Result:= csDestroying in ComponentState;
+end;
+
+function TROCustomSuperTCPChannel.GetClientAddress: String;
+begin
+{$IFDEF REMOBJECTS_INDY8}
+  if (fConnection.Binding <> nil) and (fConnection.Binding <> nil) then
+    Result := fConnection.Binding.PeerIP
+  else
+    Result := '';
+{$ELSE}
+  if (fConnection.Socket <> nil) and (fConnection.Socket.Binding <> nil) then
+    Result := fConnection.Socket.Binding.PeerIP
+  else
+    Result := '';
+{$ENDIF}
+end;
+
+function TROCustomSuperTCPChannel.GetClientID: TGUID;
+begin
+  Result := fClient.ClientID;
+end;
+
+function TROCustomSuperTCPChannel.GetConnected: Boolean;
+begin
+  result := fClient.IsConnected;
+end;
+
+function TROCustomSuperTCPChannel.GetHost: string;
+begin
+  Result := fHost;
+end;
+
+function TROCustomSuperTCPChannel.GetMaxPackageSize: Longint;
+begin
+  result := fClient.MaxPackageSize;
+end;
+
+function TROCustomSuperTCPChannel.GetPort: Integer;
+begin
+  Result := fPort;
+end;
+
+function TROCustomSuperTCPChannel.GetSkipAck: Boolean;
+begin
+  result := fClient.SkipAck;
+end;
+
+function TROCustomSuperTCPChannel.GetTransportObject: TObject;
+begin
+  Result := self;
+end;
+
+procedure TROCustomSuperTCPChannel.HasData(Id: Integer; aData: TStream);
+var
+  lList: TList;
+  i: Integer;
+  lReq: TROWaitingRequest;
+  lEvent: TROPooledEvent;
+  lEventIntf: IROThreadPoolCallback;
+begin
+  if Id < 0 then // got an event
+  begin
+    if fEventThreadPool = nil then raise EROException.Create('No thread pool assigned');
+    lEvent := TROPooledEvent.Create(aData, Self);
+    lEventIntf := lEvent;
+    try
+        fEventThreadPool.QueueItem(lEventIntf);
+    except
+      lEvent.fData := nil;
+      raise;
+    end;
+  end else
+  begin
+    lList := fWaitingRequests.LockList;
+    try
+      lReq := nil;
+      for i := lList.Count -1 downto 0 do
+      begin
+        if TROWaitingRequest(lList[i]).Id = Id then
+        begin
+          lReq := TROWaitingRequest(lList[i]);
+          break;
+        end;
+      end;
+      if lReq = nil then
+      begin
+        // Don't want a response
+        aData.Free;
+        exit;
+      end;
+      lReq.Resultdata := aData;
+      lReq.Event.SetEvent;
+    finally
+      fWaitingRequests.UnlockList;
+    end;
+  end;
+end;
+
+function TROCustomSuperTCPChannel.InitServerLocator: Integer;
+begin
+  Result:=-1;
+end;
+
+procedure TROCustomSuperTCPChannel.IntDispatch(aRequest,
+  aResponse: TStream);
+var
+  lId: Integer;
+  lReq: TROWaitingRequest;
+begin
+//  if (not fActive) then raise EROException.Create('Not connected');
+
+  lId := fClient.GenerateId;
+  lReq := TROWaitingRequest.Create(lId);
+  fWaitingRequests.Add(lReq);
+  try
+    TROSCClientWorker.WaitForAck(fClient.SendPackage(aRequest, lId), fAckWaitTimeout);
+    try
+      lReq.Event.WaitFor(fRequestTimeout);
+    finally
+      fWaitingRequests.Remove(lReq);
+    end;
+    if lReq.Resultdata = nil then begin
+      case lReq.fResultErrorCode of
+        ScCmdNoAck_MsgTooLarge: raise EROException.Create('Message from server too large');
+        ScCmdNoAck_QueueFull: raise EROException.Create('Server queue full');
+        else raise EROTimeout.Create('Timeout waiting for response');
+      end;
+    end;
+    lReq.Resultdata.Seek(0, soFromBeginning);
+    aResponse.CopyFrom(lReq.Resultdata, lReq.Resultdata.Size);
+  finally
+    lReq.Free;
+  end;
+end;
+
+function TROCustomSuperTCPChannel.InvokeRequest(aRequest: TStream;
+  aGetResponse: Boolean; aEvent: TROEvent): String;
+var
+  lId: Integer;
+  lReq: TROWaitingRequest;
+begin
+  lId := fClient.GenerateId;
+  if aGetResponse then begin
+    if aEvent = nil then
+      lReq := TROWaitingRequest.Create(lId)
+    else
+      lReq := TROWaitingRequest.Create(lId, aEvent);
+
+    fWaitingRequests.Add(lReq);
+  end;
+  {$IFDEF RemObjects_UseEncryption}
+  if Encryption.EncryptionMethod <> tetNone then DoEncryption2(aRequest);
+  {$ENDIF}
+  fClient.SendPackage(aRequest, lId);
+  Result := IntToStr(lId);
+  aRequest.Free; // needs to be freed here
+end;
+
+function TROCustomSuperTCPChannel.InvokeRequest(aRequest: TStream;
+  iGetResponse: boolean): string;
+begin
+  Result := InvokeRequest(aRequest, iGetResponse, nil);
+end;
+
+procedure TROCustomSuperTCPChannel.Loaded;
+begin
+  inherited;
+  if fActive then
+  begin
+    fActive := false;
+    SetActive(true);
+  end;
+end;
+
+procedure TROCustomSuperTCPChannel.Notification(AComponent: TComponent;
+  Operation: TOperation);
+var
+  dummy: IROEventReceiver;
+begin
+  if (Operation = opRemove) then
+  begin
+    if (AComponent = fEventThreadPool) then
+      fEventThreadPool := nil;
+    if Supports(aComponent, IROEventReceiver, dummy) and (dummy = fEventReceiver) then
+       UnregisterEventReceiver(fEventReceiver);
+  end;
+  inherited;
+end;
+
+procedure TROCustomSuperTCPChannel.RegisterEventReceiver(
+  aReceiver: IROEventReceiver);
+begin
+  if fEventReceiver <> aReceiver then begin
+    if assigned(fEventReceiver) then begin
+      if fEventReceiver.GetObject is TROComponent then
+        TROComponent(fEventReceiver.GetObject).RORemoveFreeNotification(Self)
+      else
+        TComponent(fEventReceiver.GetObject).RemoveFreeNotification(Self);
+    end;
+    fEventReceiver := aReceiver;
+    if assigned(fEventReceiver) then begin
+      if fEventReceiver.GetObject is TROComponent then
+        TROComponent(fEventReceiver.GetObject).ROFreeNotification(Self)
+      else
+        TComponent(fEventReceiver.GetObject).FreeNotification(Self);
+    end;
+  end;
+end;
+
+procedure TROCustomSuperTCPChannel.RetrieveResponse(
+  const iMessageID: String; aResponse: TStream);
+var
+  i, id: Integer;
+  lList: TList;
+  lReq: TROWaitingRequest;
+
+begin
+  id := STrToInt(iMessageID);
+  lList := fWaitingRequests.LockList;
+  try
+    lReq := nil;
+    for i := lList.Count -1 downto 0 do begin
+      lReq := TROWaitingRequest(lList[i]);
+      if Lreq.Id = id then
+        break
+      else lReq := nil;
+    end;
+  finally
+    fWaitingRequests.UnlockList;
+  end;
+  if lReq = nil then
+    raise EROTimeout.Create('Unknown response id '+iMessageID);
+
+  try
+    if lReq.fEvent <> nil then
+      lReq.fEvent.WaitFor(fRequestTimeout);
+    if lReq.fResultData = nil then begin
+      case lReq.ResultErrorCode of
+        ScCmdNoAck_MsgTooLarge: raise EROException.Create('Message from server too large');
+        ScCmdNoAck_QueueFull: raise EROException.Create('Server queue full');
+        else raise EROTimeout.Create('Timeout waiting for response');
+      end;
+    end;
+    lREq.Resultdata.Seek(0, soFromBeginning);
+    aResponse.CopyFrom(lReq.Resultdata, lReq.Resultdata.Size);
+    aResponse.Seek(0, soFromBeginning);
+    {$IFDEF RemObjects_UseEncryption}
+    if Encryption.EncryptionMethod <> tetNone then DoDecryption2(aResponse);
+    {$ENDIF}
+  finally
+    fWaitingRequests.Remove(lReq);
+    lReq.Free;
+  end;
+end;
+
+procedure TROCustomSuperTCPChannel.SetActive(const Value: Boolean);
+var
+  fw: TThread;
+begin
+  if (fActive = value) then begin
+    if not fActive or (fState <> scNotConnected) then
+      Exit;
+  end;
+  fActive := value;
+  if ComponentState * [csLoading] = [] then
+  begin
+    if (fWorkerThread <> nil) then
+    begin
+      fw := fWorkerThread;
+      fWorkerThread := nil;
+      fClient.Disconnect;
+      TROClientThread(fw).Terminate;
+      fReconnectEvent.SetEvent; 
+      fw.WaitFor;
+      FreeAndNil(fw);
+      fState := scNotConnected;
+    end;
+    if fEventThreadPool = nil then
+    begin
+      EventThreadPool := TROThreadPool.Create(nil);
+      fOwnsEventThreadPool := true;
+    end;
+    if fActive then
+    begin
+      fReconnectEvent.SetEvent;
+      fConnectEvent.ResetEvent;
+      fState := scConnecting;
+      fWorkerThread := TROClientThread.Create(fClient);
+    end;
+  end;
+end;
+
+procedure TROCustomSuperTCPChannel.SetClientID(const Value: TGUID);
+begin
+  fClient.ClientID := Value;
+end;
+
+procedure TROCustomSuperTCPChannel.SetEventThreadPool(
+  const Value: TROThreadPool);
+begin
+  if fOwnsEventThreadPool then
+  begin
+    fEventThreadPool.Free;
+    fOwnsEventThreadPool := false;
+  end;
+  fEventThreadPool := Value;
+end;
+
+procedure TROCustomSuperTCPChannel.SetHost(const Value: string);
+begin
+  if fActive and (csLoading in ComponentState) then
+    raise Exception.Create('Client is active');
+  fHost := value;
+end;
+
+procedure TROCustomSuperTCPChannel.SetMaxPackageSize(val: Integer);
+begin
+  fClient.MaxPackageSize := Val;
+end;
+
+procedure TROCustomSuperTCPChannel.SetPingSecs(const Value: Integer);
+begin
+  if (Value < 10) or (Value > 60) then raise Exception.Create('PingSecs has to be between 10 and 60');
+  fPingSecs := Value;
+end;
+
+procedure TROCustomSuperTCPChannel.SetPort(const Value: Integer);
+begin
+  if fActive and (csLoading in ComponentState) then
+    raise Exception.Create('Client is active');
+  fPort := Value;
+end;
+
+procedure TROCustomSuperTCPChannel.SetSkipAck(const Value: Boolean);
+begin
+  fClient.SkipAck := Value;
+end;
+
+procedure TROCustomSuperTCPChannel.UnregisterEventReceiver(
+  aReceiver: IROEventReceiver);
+begin
+  if assigned(fEventReceiver) then begin
+    if fEventReceiver.GetObject is TROComponent then
+      TROComponent(fEventReceiver.GetObject).RORemoveFreeNotification(Self)
+    else
+      TComponent(fEventReceiver.GetObject).RemoveFreeNotification(Self);
+  end;
+  {$IFDEF FPC}
+  if aReceiver <> nil then fEventReceiver := nil else //for preventing warnings in FPC
+  {$ENDIF}
+  fEventReceiver := nil;
+end;
+
+type
+  TROSBEventTrigger = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fEvent: TNotifyEvent;
+    fSender: TObject;
+    procedure Execute;
+  public
+    constructor Create(aSender: TObject; aEvent: TNotifyEvent);
+    procedure Callback(Caller: TROThreadPool; aThread: TThread);
+  end;
+
+procedure TROCustomSuperTCPChannel.WaitForActive(const Timeout: Integer);
+begin
+  SetActive(true);
+  if fConnectEvent.WaitFor(Timeout) <> wrSignaled then raise EROException.Create('No connection available');
+end;
+
+{ TROSCClientWorker }
+
+procedure TROSCClientWorker.Connected;
+begin
+  inherited;
+  fOwner.fState := scConnected;
+  fOwner.fConnectEvent.SetEvent;
+  if assigned(fOwner.fOnConnected) then begin
+    if fOwner.fSynchronizeEvents then
+      fOwner.fEventThreadPool.QueueItem(TROSBEventTrigger.Create(fOwner, fOwner.fOnconnected))
+    else
+      fOwner.fOnconnected(fOwner);
+  end;
+end;
+
+constructor TROSCClientWorker.Create(aOwner: TROCustomSuperTCPChannel;
+  aConnection: TIdTCPConnection);
+begin
+  fOwner := aOwner;
+  inherited Create(aConnection);
+  PingFrequency := fOwner.fPingSecs;
+  PingTimeout := PingFrequency * 15 div 10;
+end;
+
+procedure TROSCClientWorker.Disconnected(var RestartLoop: Boolean);
+// restartloop is false by default
+
+  function CanUseServerLocators: boolean;
+  var
+    i: integer;
+  begin
+    Result := False;
+    if (doFaultTolerant in fOwner.DispatchOptions) then begin
+      For i:=0 to fOwner.ServerLocators.Count -1 do
+        if (fOwner.ServerLocators.Items[i].Enabled) then begin
+          Result:=True;
+          Break;
+        end;
+    end;
+  end;
+
+   procedure SetHostAndPort;
+   begin
+     fOwner.fConnection.Host := fOwner.fHost;
+     fOwner.fConnection.Port := fOwner.fPort;
+   end;
+
+var
+  lIndex: integer;
+  lRet: boolean;
+  lAutoReconnectFailed: boolean;
+begin
+  inherited;
+
+  try
+    fOwner.fConnection.Disconnect;
+  except
+  end;
+  if assigned(fOwner.fOnDisconnected) then begin
+    if fOwner.fSynchronizeEvents then
+      fOwner.fEventThreadPool.QueueItem(TROSBEventTrigger.Create(fOwner, fOwner.fOnDisconnected))
+    else
+      fOwner.fOnDisconnected(fOwner);
+  end;
+  if fOwner.fActive and (fOwner.fAutoReconnect or CanUseServerLocators) and not fOwner.InDestroyingState and not fSkipReconnect then begin
+    fOwner.fState := scReconnecting
+  end
+  else begin
+    fOwner.fState := scNotConnected;
+    fOwner.fActive := false;
+    fOwner.fConnectEvent.ResetEvent;
+    exit;
+  end;
+
+  fOwner.fReconnectEvent.ResetEvent;
+  fOwner.fConnectEvent.ResetEvent;
+  lIndex := -1;
+  lRet := True;
+  lAutoReconnectFailed:=False;
+  while lRet and fOwner.fActive and (fOwner.fAutoReconnect or CanUseServerLocators) and not fOwner.InDestroyingState and not fSkipReconnect do
+  begin
+    fOwner.fReconnectEvent.WaitFor(fOwner.fReconnectDelay); // don't want to create a tight loop
+    try
+      fOwner.fReconnectEvent.ResetEvent;
+     // if fOwner.fConnection.Connected then fOwner.fConnection.Disconnect;
+      fOwner.fConnection.Connect;
+      RestartLoop := True;
+      Break;
+    except
+      // we failed, retry in a few
+      on E: Exception do begin
+        lRet:= False;
+        if (fOwner.AutoReconnectBehavior = sbAfterServerLocators)  or
+           (lAutoReconnectFailed and (fOwner.AutoReconnectBehavior = sbSwitchServerLocatorAfterFirstFailure)) then begin
+           fOwner.intChangeServerLocator(lIndex,lRet,e);
+          if lRet then SetHostAndPort;
+        end;
+
+        if not lRet and Owner.AutoReconnect then begin
+           lRet := true;
+           lAutoReconnectFailed := True;
+        end;
+
+        if not lRet and ((fOwner.AutoReconnectBehavior = sbBeforeServerLocators) or
+          (not lAutoReconnectFailed and (fOwner.AutoReconnectBehavior = sbSwitchServerLocatorAfterFirstFailure)))then begin
+          fOwner.intChangeServerLocator(lIndex,lRet,e);
+          if lRet then SetHostAndPort;
+        end;
+
+      end;
+    end;
+  end;
+  if RestartLoop then
+    fOwner.fState := scConnecting
+  else begin
+    fowner.fState := scNotConnected;
+    fOwner.fActive := false;
+    fOwner.fConnectEvent.ResetEvent;
+  end;
+end;
+
+procedure TROSCClientWorker.Idle;
+begin
+  IF fOwner.IdleTimeoutMinutes > 0 then begin
+    if Now > LastData + ((1.0 / 24 / 60) * fOwner.IdleTimeoutMinutes) then begin
+      Disconnect;
+      fSkipReconnect := true;
+    end;
+  end;
+
+end;
+
+procedure TROSCClientWorker.IncomingData(Id: Integer; aData: TStream);
+begin
+  fOwner.HasData(id, aData);
+end;
+
+procedure TROSCClientWorker.SetAckDetails(Id: Integer; Oke: Boolean;
+  ErrorNo: Integer);
+var
+  lList: TList;
+  i: Integer;
+  lReq: TROWaitingRequest;
+begin
+  if Oke then begin
+    inherited;
+    exit;
+  end;
+  lList := FOwner.fWaitingRequests.LockList;
+  try
+    lReq := nil;
+    for i := lList.Count -1 downto 0 do
+    begin
+      if TROWaitingRequest(lList[i]).Id = Id then
+      begin
+        lReq := TROWaitingRequest(lList[i]);
+        break;
+      end;
+    end;
+    if lReq = nil then
+      inherited
+    else begin
+      lReq.fResultErrorCode := ErrorNo;
+      lReq.Event.SetEvent;
+    end;
+  finally
+    fOwner.fWaitingRequests.UnlockList;
+  end;
+end;
+
+{ TROClientThread }
+
+constructor TROClientThread.Create(aChannel: TROSCClientWorker);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+  fChannel := aChannel;
+  FreeOnTerminate := false;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+procedure TROClientThread.Execute;
+
+   procedure SetHostAndPort;
+   begin
+     TIdTCPClient(fChannel.Connection).Host := fChannel.Owner.fHost;
+     TIdTCPClient(fChannel.Connection).Port := fChannel.Owner.fPort;
+   end;
+
+var
+  lRet: Boolean;
+  fIndex: integer;
+  lAutoReconnectFailed: boolean;
+begin
+  fChannel.fOwner.fReconnectEvent.ResetEvent;
+  if (fChannel.Owner.AutoReconnectBehavior = sbBeforeServerLocators) then
+    fIndex := fChannel.Owner.intInitServerLocator
+  else
+    fIndex := -2;
+  SetHostAndPort;
+  lRet := true;
+  fConnecting := True;
+  lAutoReconnectFailed := False;
+  while lRet do begin
+    lRet := false;
+    try
+      TIdTCPClient(fChannel.Connection).Connect;
+      lAutoReconnectFailed := False;
+    except
+      on e: Exception do begin
+        // if autoreconnect is failed in 1st time, try to use ServerLocator
+        if (fChannel.Owner.AutoReconnectBehavior = sbAfterServerLocators)  or
+           (lAutoReconnectFailed and (fChannel.Owner.AutoReconnectBehavior = sbSwitchServerLocatorAfterFirstFailure)) then begin
+          if fIndex  = -2 then begin
+            fIndex := fChannel.Owner.intInitServerLocator;
+            lRet := True;
+          end
+          else
+           fChannel.fOwner.intChangeServerLocator(fIndex,lRet,e);
+          if lRet then SetHostAndPort;
+        end;
+
+
+        if not lRet and fChannel.Owner.AutoReconnect and not fChannel.fOwner.InDestroyingState then begin
+           lRet := true;
+           lAutoReconnectFailed := True;
+           fChannel.fOwner.fReconnectEvent.WaitFor(fChannel.fOwner.fReconnectDelay);
+           fChannel.fOwner.fReconnectEvent.ResetEvent;
+        end;
+
+        if not lRet and ((fChannel.Owner.AutoReconnectBehavior = sbBeforeServerLocators) or
+          (not lAutoReconnectFailed and (fChannel.Owner.AutoReconnectBehavior = sbSwitchServerLocatorAfterFirstFailure)))then begin
+          if fIndex  = -2 then begin
+            fIndex := fChannel.Owner.intInitServerLocator;
+            lRet := True;
+          end
+          else
+            fChannel.fOwner.intChangeServerLocator(fIndex,lRet,e);
+          if lRet then SetHostAndPort;
+        end;
+
+//        if assigned(fChannel.Owner.OnException) then fChannel.Owner.OnException(fChannel.Owner, e, lRet);
+        if (not lRet) or (not fChannel.Owner.Active) then begin //terminate execution if channel was deactivated
+          fConnecting := False;
+          exit;
+        end;
+      end;
+    end;
+
+  end;
+  fChannel.DoExecute;
+end;
+
+{ TROWaitingRequest }
+
+constructor TROWaitingRequest.Create(Id: Integer);
+begin
+  inherited Create;
+  fId := Id;
+  fEvent := TROEvent.Create(nil, true, false, '');
+  fFreeEvent := True;
+  fResultErrorCode := -1;
+end;
+
+constructor TROWaitingRequest.Create(Id: Integer; Ev: TROEvent);
+begin
+  inherited Create;
+  fId := Id;
+  fEvent := ev;
+  fResultErrorCode := -1;
+end;
+
+destructor TROWaitingRequest.Destroy;
+begin
+  fResultData.Free;
+  if fFreeEvent then
+    fEvent.Free;
+  inherited Destroy;
+end;
+
+{ TROPooledEvent }
+
+procedure TROPooledEvent.Callback(Caller: TROThreadPool; Thread: TThread);
+begin
+  if fOwner.fEventReceiver <> nil then
+  begin
+    fOwner.DecodeEventStream(fData);
+    {$IFDEF FPC}
+    if caller <> nil then fOwner.fEventReceiver.Dispatch(fData, Thread) else // for preventing warning in FPC
+    {$ENDIF}
+    fOwner.fEventReceiver.Dispatch(fData, Thread);
+  end;
+end;
+
+constructor TROPooledEvent.Create(aData: TStream;
+  aOwner: TROCustomSuperTCPChannel);
+begin
+  inherited Create;
+  fOwner := aOwner;
+  fData := aData;
+end;
+
+destructor TROPooledEvent.Destroy;
+begin
+  fData.Free;
+  inherited Destroy;
+end;
+
+{ TROSBEventTrigger }
+
+procedure TROSBEventTrigger.Callback(Caller: TROThreadPool;
+  aThread: TThread);
+begin
+  try
+    {$IFDEF FPC}
+    if Caller <> nil then TROClientThread(aThread).Synchronize(Execute) else // for preventing warning in FPC
+    {$ENDIF}
+    TROClientThread(aThread).Synchronize(Execute);
+  except
+    // exceptions cannot pass back to the pool
+  end;
+end;
+
+constructor TROSBEventTrigger.Create(aSender: TObject;
+  aEvent: TNotifyEvent);
+begin
+  inherited Create;
+  fSender := aSender;
+  fEvent := aEvent;
+end;
+
+procedure TROSBEventTrigger.Execute;
+begin
+  if assigned(fEvent) then
+    fEvent(fSender);
+end;
+
+initialization
+  RegisterTransportChannelClass(TROSuperTCPChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROSuperTCPChannel);
+
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSuperTCPServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSuperTCPServer.pas
new file mode 100644
index 0000000..841505d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSuperTCPServer.pas	
@@ -0,0 +1,660 @@
+unit uROSuperTCPServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  SysUtils, Classes, uROClasses, uROClient, uROClientIntf, uROServerIntf,
+  uROSessions,IdTCPConnection, IdTCPServer, uROServer{$IFDEF MSWINDOWS}, Windows{$ENDIF},
+  uROSCHelpers, uROThreadPool{$IFDEF RemObjects_INDY10}, IdContext{$ENDIF}, uROEventRepository;
+
+type
+  TROSCServerWorker = class;
+  TROConnectionEvent = procedure (aChannel: IROTransport; const aGuid: TGuid) of object;
+  TROCustomSuperTCPServer = class(TROServer)
+  private
+    fIndyServer: TIdTCPServer;
+    fActive: Boolean;
+    fPort: Integer;
+    fAckWaitTimeout: Integer;
+    fMaxPackageSize: Integer;
+    fGuidToClientMap: TStringList;
+    fClients: TThreadList;
+    fOwnsThreadPool: Boolean;
+    fThreadPool: TROThreadPool;
+    fSkipAck: Boolean;
+    fEventRepository: TROEventRepository;
+    fBlockingEvents: Boolean;
+    fOnClientConnected: TROConnectionEvent;
+    fOnClientDisconnected: TROConnectionEvent;
+    fAutoRegisterSession: boolean;
+    procedure IntExecute(AThread: {$IFDEF RemObjects_INDY10}TIdContext{$ELSE}TIdPeerThread{$ENDIF});
+    procedure SetThreadPool(const Value: TROThreadPool);
+    procedure SetEventRepository(const Value: TROEventRepository);
+    procedure UnregisterEventManagerInWorkers(const aEventManager: IROSessionsChangesListener);
+  protected
+    function IntGetActive: Boolean; override;
+    procedure IntSetActive(const Value: Boolean); override;
+
+    procedure Loaded; override;
+    procedure HasData(Id: Integer; aClient: TROSCServerWorker; aData: TStream);
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+    function GetPort: Integer; override;
+    procedure SetPort(const Value: Integer);override;
+    function GetServerType: TROServerType;override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+    property Port default 8095;
+    property AckWaitTimeout: Integer read fAckWaitTimeout write fAckWaitTimeout default 10000;
+    property MaxPackageSize: Integer read fMaxPackageSize write fMaxPackageSize default 10*1024*1024;
+    property SkipAck: Boolean read fSkipAck write fSkipAck default false;
+
+    property Server: TIdTCPServer read fIndyServer;
+    property ThreadPool: TROThreadPool read fThreadPool write SetThreadPool;
+    property EventRepository: TROEventRepository read fEventRepository write SetEventRepository;
+    property BlockingEvents: Boolean read fBlockingEvents write fBlockingEvents default False;
+    property OnClientConnected: TROConnectionEvent read fOnClientConnected write fOnClientConnected;
+    property OnClientDisconnected: TROConnectionEvent read fOnClientDisconnected write fOnClientDisconnected;
+    property AutoRegisterSession: Boolean read fAutoRegisterSession write fAutoRegisterSession default true;
+  end;
+
+  TROSuperTCPServer = class(TROCustomSuperTCPServer)
+  published
+    property Port;
+    property SkipAck;
+    property AckWaitTimeout;
+    property MaxPackageSize;
+    property EventRepository;
+    property BlockingEvents;
+    property OnClientConnected;
+    property OnClientDisconnected;
+    property DefaultResponse;
+    property AutoRegisterSession;
+  end;
+
+  TROSCServerWorker = class(TROSuperChannelWorker, IUnknown, IROTransport,
+  IROTCPTransport, IROActiveEventServer)
+  private
+    fOwner: TROCustomSuperTCPServer;
+    fEventManager: IROSessionsChangesListener;
+    fRefCount: Integer;
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+    function GetClientAddress : string;
+    function GetTransportObject : TObject;
+    procedure IncomingData(Id: Integer; aData: TStream); override;
+    procedure Connected; override;
+    procedure Disconnected(var RestartLoop: Boolean); override;
+    procedure EventsRegistered(aSender : TObject; aClient: TGUID);
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+    function GetDefaultResponse: string; override;
+  public
+    constructor Create(aOwner: TROCustomSuperTCPServer; aConnection: TIdTCPConnection);
+    destructor Destroy; override;
+
+    property Owner: TROCustomSuperTCPServer read fOwner;
+  end;
+  TROInvokerQueueItem = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fData: TStream;
+    fId: Integer;
+    fCaller: TROCustomSuperTCPServer;
+    FClient: TROSCServerWorker;
+  public
+    constructor Create(aCaller: TROCustomSuperTCPServer; aClient: TROSCServerWorker; Id: Integer; aData: TStream);
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+    destructor Destroy; override;
+  end;
+
+implementation
+uses
+  uROTypes;
+
+{ TROCustomSuperTCPServer }
+
+procedure TROCustomSuperTCPServer.Assign(Source: TPersistent);
+var
+  lSource: TROCustomSuperTCPServer;
+begin
+  inherited;
+  if Source is TROCustomSuperTCPServer then begin
+    lSource := TROCustomSuperTCPServer(Source);
+
+    AckWaitTimeout := lSource.AckWaitTimeout;
+    AutoRegisterSession := lSource.AutoRegisterSession;
+    BlockingEvents := lSource.BlockingEvents;
+    DefaultResponse := lSource.DefaultResponse;
+    EventRepository := lSource.EventRepository;
+    MaxPackageSize := lSource.MaxPackageSize;
+    OnClientConnected := lSource.OnClientConnected;
+    OnClientDisconnected := lSource.OnClientDisconnected;
+    SkipAck := lSource.SkipAck;
+  end;
+end;
+
+constructor TROCustomSuperTCPServer.Create(aOwner: TComponent);
+begin                                                   
+  inherited Create(aOwner);
+  fClients := TThreadList.Create;
+  fPort := 8095;
+  AckWaitTimeout := 10000;
+  fMaxPackageSize := 10 * 1024 * 1024;
+  fIndyServer := TIdTCPServer.Create(nil);
+  fIndyServer.OnExecute := IntExecute;
+  fGuidToClientMap := TStringList.Create;
+  fGuidToClientMap.Sorted := true;
+  DefaultResponse := 'ROSC:Invalid connection string';
+  fAutoRegisterSession := True;
+end;
+
+destructor TROCustomSuperTCPServer.Destroy;
+begin
+  Active := False;
+  fGuidToClientMap.Free;
+  fIndyServer.Active := False;
+  fIndyServer.Free;
+  fClients.Free;
+  if fOwnsThreadPool then
+    fThreadPool.Free;
+  inherited Destroy;
+end;
+
+procedure TROCustomSuperTCPServer.HasData(Id: Integer; aClient: TROSCServerWorker; aData: TStream);
+var
+  lItem: IROThreadPoolCallback;
+  lOrg: TROInvokerQueueItem;
+begin
+  lOrg := TROInvokerQueueItem.Create(Self, aClient, Id, aData);
+  lItem := lOrg;
+  try
+    fThreadPool.QueueItem(lItem);
+  except
+    aClient.SendError(Id, ScCmdNoAck_QueueFull);
+    lOrg.fData := nil; // caller will free it on exceptions
+    raise;
+  end;
+end;
+
+type
+  TSendEvent = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fStream: TROEventData;
+    fOwner: TROCustomSuperTCPServer;
+    fWorkerOverride: IROTransport;
+    fClientGuid: TGUID;
+    fSender: TROEventRepository;
+  protected
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+  public
+    constructor Create(aOwner: TROCustomSuperTCPServer; aClientGuid: TGUID; aSender: TROEventRepository; aData: TROEventData);
+    property WorkerOverride: IROTransport read fWorkerOverride write fWorkerOverride;
+
+    destructor Destroy; override;
+  end;
+
+procedure TROCustomSuperTCPServer.Notification(AComponent: TComponent; Operation: TOperation);
+var
+  lNew: IROSessionsChangesListener;
+begin
+  if (Operation = opRemove) then begin
+    if AComponent = fThreadPool then fThreadPool := nil;
+    if AComponent = fEventRepository then EventRepository := nil;
+    if Supports(AComponent, IROSessionsChangesListener, lNew) then try
+      UnregisterEventManagerInWorkers(lNew);
+    finally
+      lNew := nil;
+    end;
+  end;
+  inherited;
+end;
+
+procedure TROCustomSuperTCPServer.DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+var
+  i: Integer;
+  aref: IROSessionsChangesListener;
+  se: IROThreadPoolCallback;
+begin
+  fClients.LockList;
+  try
+    i := fGuidToClientMap.IndexOf(GUIDToString(aSessionReference));
+    if i = -1 then begin
+      if fEventRepository <> nil then begin
+        if Supports(fEventRepository, IROSessionsChangesListener, aref) then
+          aref.SessionsChangedNotification(aSessionReference, saRemoveActiveListener, nil);
+        fEventRepository.StoreEventData(EmptyGUID, Binary(anEventDataItem.Data), false, false, GUIDToString(aSessionReference));
+        if anEventDataItem.RemoveRef = 0 then anEventDataItem.Free;
+        exit;
+      end;
+    end;
+  finally
+    fClients.UnlockList;
+  end;
+  se := TSendEvent.Create(Self, aSessionReference, TROEventRepository(aSender), anEventDataItem);
+  if BlockingEvents then
+    se.Callback(fThreadPool, nil)
+  else
+    fThreadPool.QueueItem(se);
+end;
+
+function TROCustomSuperTCPServer.GetPort: Integer;
+begin
+  Result := fPort;
+  if (Result = 0) and Active and (fIndyServer.Bindings.Count > 0) then
+    Result := fIndyServer.Bindings[0].Port;
+end;
+
+function TROCustomSuperTCPServer.GetServerType: TROServerType;
+begin
+  Result := rstSuperTCP;
+end;
+
+procedure TROCustomSuperTCPServer.IntExecute(AThread: {$IFDEF RemObjects_INDY10}TIdContext{$ELSE}TIdPeerThread{$ENDIF});
+var
+  fChannel: TROSCServerWorker;
+begin
+  fChannel := TROSCServerWorker.Create(Self, AThread.Connection);
+  fChannel.MaxPackageSize:= Self.MaxPackageSize;
+  fClients.Add(fChannel);
+  try
+    fChannel.DoExecute;
+  finally
+    fClients.Remove(fChannel);
+    fChannel.Free;
+  end;
+end;
+
+function TROCustomSuperTCPServer.IntGetActive: Boolean;
+begin
+  Result := fActive;
+end;
+
+procedure TROCustomSuperTCPServer.IntSetActive(const Value: Boolean);
+begin
+  fActive := Value;
+  if ComponentState * [csDesigning, csLoading] = [] then
+  begin
+    if fThreadPool = nil then
+    begin
+      fThreadPool := TROThreadPool.Create(nil);
+      fOwnsThreadPool := true;
+    end;
+    fIndyServer.Active := false;
+    if fActive then
+    begin
+      fIndyServer.Bindings.DefaultPort := fPort;
+      fIndyServer.Active := true;
+    end;
+  end;
+end;
+
+procedure TROCustomSuperTCPServer.Loaded;
+begin
+  inherited;
+  IntSetActive(fActive);
+end;
+
+procedure TROCustomSuperTCPServer.SetEventRepository(
+  const Value: TROEventRepository);
+begin
+  if fEventRepository <> Value then begin
+    if fEventRepository <> nil then fEventRepository.RORemoveFreeNotification(Self);
+    fEventRepository := Value;
+    if fEventRepository <> nil then fEventRepository.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TROCustomSuperTCPServer.SetPort(const Value: Integer);
+begin
+  fPort := Value;
+  if fActive then
+  begin
+    IntSetActive(False);
+    IntSetActive(True);
+  end;
+end;
+
+procedure TROCustomSuperTCPServer.SetThreadPool(const Value: TROThreadPool);
+begin
+  if fOwnsThreadPool then
+  begin
+    fOwnsThreadPool := false;
+    fThreadPool.Free;
+  end;
+  fThreadPool := Value;
+end;
+
+
+procedure TROCustomSuperTCPServer.UnregisterEventManagerInWorkers(const aEventManager: IROSessionsChangesListener);
+var
+  lList: TList;
+  i: integer;
+begin
+  if (aEventManager <> nil) then begin
+    lList := fClients.LockList;
+    try
+      for I := lList.Count - 1 downto 0 do
+        if TROSCServerWorker(lList[i]).fEventManager = aEventManager then
+          TROSCServerWorker(lList[i]).fEventManager := nil;
+    finally
+      fClients.UnlockList;
+    end;
+  end;
+end;
+
+{ TROSCServerWorker }
+
+constructor TROSCServerWorker.Create(aOwner: TROCustomSuperTCPServer;
+  aConnection: TIdTCPConnection);
+begin
+  fOwner := aOwner;
+  inherited Create(aConnection);
+  IsServer := true;
+  SkipAck := fOwner.Skipack;
+end;
+
+destructor TROSCServerWorker.Destroy;
+begin
+  while fRefCount > 0 do
+    Sleep(500); // we might have events still waiting.
+  inherited Destroy;
+end;
+
+function TROSCServerWorker.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+function TROSCServerWorker._AddRef: Integer; stdcall;
+begin
+  result := InterlockedIncrement(fRefCount);
+end;
+
+function TROSCServerWorker._Release: Integer; stdcall;
+begin
+  result := InterlockedDecrement(fRefCount);
+end;
+
+function TROSCServerWorker.GetClientAddress : string;
+begin
+{$IFDEF REMOBJECTS_INDY8}
+  if (Connection.Binding <> nil) then
+    Result := Connection.Binding.PeerIP
+  else
+    Result := '';
+{$ELSE}
+  if (Connection.Socket <> nil) and (Connection.Socket.Binding <> nil) then
+    Result := Connection.Socket.Binding.PeerIP
+  else
+    Result := '';
+{$ENDIF}
+end;
+
+function TROSCServerWorker.GetTransportObject : TObject;
+begin
+  Result := Self;
+end;
+
+procedure TROSCServerWorker.IncomingData(Id: Integer; aData: TStream);
+begin
+  fOwner.HasData(Id, Self, aData);
+end;
+
+procedure TROSCServerWorker.Connected;
+var
+  data, rs: Binary;
+  evd: TROEventData;
+  i, len: Longint;
+  fl: boolean;
+begin
+  Len:=0;
+  if assigned(fOwner.fOnClientConnected) then fOwner.fOnClientConnected(Self, ClientID);
+  fOwner.fClients.LockList;
+  try
+    i := fOwner.fGuidToClientMap.IndexOf(GUIDToString(ClientId));
+    if i = -1 then
+      fOwner.fGuidToClientMap.AddObject(GUIDToString(ClientId), Self)
+    else
+      fOwner.fGuidToClientMap.Objects[i] := Self;
+  finally
+    fOwner.fClients.UnlockList;
+  end;
+  if fOwner.fEventRepository <> nil then
+  begin
+    if fOwner.AutoRegisterSession then begin
+      fl := True;
+      fOwner.fEventRepository.AddSession(ClientID, Self);
+    end
+    else begin
+      fl := fOwner.fEventRepository.AddActiveListener(ClientID, Self);
+    end;
+    if fl then begin
+      rs := Binary.Create;
+      try
+        fOwner.fEventRepository.GetEventData(ClientID, rs);
+        rs.Position := 0;
+        if rs.Read(len, sizeof(len)) <> sizeof(len) then exit;
+        while true do begin
+          if rs.Read(len, sizeof(len)) <> sizeof(len) then break;
+          data := Binary.Create;
+          data.CopyFrom(rs, Len);
+          data.Position := 0;
+          evd := TROEventData.Create(data);
+          try
+            DispatchEvent(evd, ClientID, fOwner.fEventRepository);
+          finally
+            data.Free;
+          end;
+        end;
+      finally
+        rs.Free;
+      end;
+    end;
+  end;
+end;
+
+procedure TROSCServerWorker.Disconnected(var RestartLoop: Boolean);
+var
+  i: Integer;
+begin
+  if fEventManager <> nil then
+    fEventManager.SessionsChangedNotification(ClientID, saRemoveActiveListener, Self);
+  if RestartLoop then fOwner.fClients.LockList else // for preventing warnings in FPC
+  fOwner.fClients.LockList;
+  try
+    i := fOwner.fGuidToClientMap.IndexOf(GUIDToString(ClientId));
+    if i <> -1 then
+    begin
+      if fOwner.fGuidToClientMap.Objects[i] = self then
+        fOwner.fGuidToClientMap.Delete(i);
+    end;
+  finally
+    fOwner.fClients.UnlockList;
+  end;
+  if assigned(fOwner.fOnClientDisconnected) then fOwner.fOnClientDisconnected(Self, ClientID);
+end;
+
+procedure TROSCServerWorker.EventsRegistered(aSender : TObject; aClient: TGUID);
+var
+  lNew : IROSessionsChangesListener;
+begin
+  Supports(aSender, IROSessionsChangesListener, lNew);
+  if (fEventManager <> nil) and (lNew <> fEventManager) then begin
+    fEventManager.SessionsChangedNotification(aClient, saRemoveActiveListener, Self);
+  end;
+  fEventManager := lNew;
+  if (lNew <> nil) then begin
+    if (aSender is TROComponent) then
+      TROComponent(aSender).ROFreeNotification(Owner)
+    else if (aSender is TComponent) then
+      TComponent(aSender).FreeNotification(Owner);
+  end;
+end;
+
+procedure TROSCServerWorker.DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+var
+  se: TSendEvent;
+begin
+  se := TSendEvent.Create(fOwner, aSessionReference, TROEventRepository(aSender), anEventDataItem);
+  se.WorkerOverride := self;
+  if fOwner.BlockingEvents then begin
+    try
+    se.Callback(fOwner.ThreadPool, nil);
+    except
+    end;
+    se.Free;
+  end else
+    fOwner.ThreadPool.QueueItem(se);
+end;
+
+function TROSCServerWorker.GetDefaultResponse: string;
+begin
+  Result:= fOwner.DefaultResponse;
+end;
+
+procedure TSendEvent.Callback(Caller: TROThreadPool; Thread: TThread);
+var
+  ms: TROConstantMemoryStream;
+  i: Integer;
+  fid: TGUID;
+  wak: IROPackageAck;
+  ass: IROActiveEventServer;
+  asv: IROValidatedSessionsChangesListener;
+  obj: TROSCServerWorker;
+  aRef: IROSessionsChangesListener;
+begin
+  if (Caller = nil) or (Thread = nil) then   obj := nil else // for preventing warnings in FPC
+  obj := nil;
+  fOwner.EncodeEventStream(fStream.Data);
+  ms := TROConstantMemoryStream.Create(TMemoryStream(fStream.Data));
+  if fStream is TRONamedEventData then
+    fid := TRONamedEventData(FStream).ID
+  else
+    fid := EmptyGUID;
+  try
+    try
+      fOwner.fClients.LockList;
+      try
+        i := fOwner.fGuidToClientMap.IndexOf(GUIDToString(fClientGuid));
+        if i = -1 then exit;
+        if fWorkerOverride <> nil then
+          obj := TROSCServerWorker(fWorkerOverride.GetTransportObject)
+        else
+          obj := TROSCServerWorker(fOwner.fGuidToClientMap.Objects[i]);
+        wak := obj.SendPackage(ms, 0);
+        if not Supports(obj, IROSessionsChangesListener, ass) then ass := nil;
+      finally
+        fOwner.fClients.UnlockList;
+      end;
+      TROSCServerWorker.WaitForAck(wak, fOwner.fAckWaitTimeout);
+      if Supports(fOwner.fEventRepository, IROValidatedSessionsChangesListener, asv) and not IsEqualGUID(fid, EmptyGUID) then
+        asv.EventSucceeded(fClientGuid, fid);
+
+    except
+      if fOwner.fEventRepository <> nil then begin
+        if Supports(fOwner.fEventRepository, IROSessionsChangesListener, aref) then
+          aref.SessionsChangedNotification(fClientGuid, saRemoveActiveListener, obj);
+        if IsEqualGUID(fid, EmptyGUID) or not Supports(fOwner.fEventRepository, IROValidatedSessionsChangesListener) then
+          fOwner.fEventRepository.StoreEventData(EmptyGUID, ms, false, false, GUIDToString(fClientGuid));
+        exit;
+      end;
+    end;
+  finally
+    ms.Free;
+  end;
+end;
+
+constructor TSendEvent.Create(aOwner: TROCustomSuperTCPServer; aClientGuid: TGUID; aSender: TROEventRepository; aData: TROEventData);
+begin
+  inherited Create;
+  fStream := aData;
+  fSender := aSender;
+  fClientGuid := aClientGuid;
+  fOwner := aOwner;
+end;
+
+destructor TSendEvent.Destroy;
+begin
+  if fStream.RemoveRef = 0 then
+    fStream.Free;
+  inherited Destroy;
+end;
+
+{ TROInvokerQueueItem }
+
+procedure TROInvokerQueueItem.Callback(Caller: TROThreadPool; Thread: TThread);
+var
+  lResponse: TMemoryStream;
+  l: TList;
+  lClient: IROTransport;
+begin
+  if (Thread = nil) or (Caller = nil) then lResponse := TMemoryStream.Create else // for preventing warning in FPC
+  lResponse := TMemoryStream.Create;
+  try
+    lClient:= FClient;
+    try
+      fCaller.DispatchMessage(lClient, fData, lResponse);
+    finally
+      lClient := nil;
+    end;
+    lResponse.Seek(0, soFromBeginning);
+    l := fCaller.fClients.LockList;
+    try
+      if l.IndexOf(FClient) = -1 then exit;
+        FClient.BeginWriteLock;
+    finally
+      fCaller.fClients.UnlockList;
+    end;
+    try
+      if lResponse.Size > FClient.MaxPackageSize then
+        FClient.SendError(fId, ScCmdNoAck_MsgTooLarge)
+      else
+        FClient.SendPackage(lResponse, fId).RemoveFromList; //  we're not going to wait
+    finally
+      FClient.EndWriteLock;
+    end;
+  finally
+    lResponse.Free;
+  end;
+end;
+
+constructor TROInvokerQueueItem.Create(aCaller: TROCustomSuperTCPServer; aClient: TROSCServerWorker; Id: Integer; aData: TStream);
+begin
+  inherited Create;
+  fCaller := aCaller;
+  fId := Id;
+  fData := aData;
+  fClient := aClient;
+end;
+
+destructor TROInvokerQueueItem.Destroy;
+begin
+  fData.Free;
+  inherited Destroy;
+end;
+
+initialization
+  RegisterServerClass(TROSuperTCPServer);
+finalization
+  UnregisterServerClass(TROSuperTCPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseHTTPChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseHTTPChannel.pas
new file mode 100644
index 0000000..d3f2d7d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseHTTPChannel.pas	
@@ -0,0 +1,237 @@
+unit uROSynapseHTTPChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ Provided by Carlo Kok (carlokok@teamro.com)                                }
+{ Requires the Synapse TCP/IP Library available at http://www.ararat.cz/synapse }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, uROClientIntf, uROClient, uROClasses,
+  {Synapse:} httpsend, blcksock, synsock;
+
+type
+  TROSynapseHTTPChannel = class(TROTransportChannel, IROTransport, IROTCPTransport, IROHTTPTransport)
+  private
+    fhttp: THTTPSend;
+    fDisableNagle: Boolean;
+    fTargetURL: string;
+    function GetKeepAlive: Boolean;
+    procedure SetKeepAlive(const Value: Boolean);
+  protected
+    procedure IntDispatch(aRequest, aResponse: TStream); override;
+    { IROTransport }
+    function GetTransportObject : TObject; override;
+    { IROTCPTransport }
+    function GetClientAddress: string;
+
+    { IROHTTPTransport }
+    procedure SetHeaders(const aName, aValue: string);
+    function GetHeaders(const aName: string): string;
+    function GetContentType: string;
+    procedure SetContentType(const aValue: string);
+    function GetUserAgent: string;
+    procedure SetUserAgent(const aValue: string);
+
+    procedure SetTargetURL(const Value: string);
+    function GetTargetURL: string;
+
+    function GetQueryString : string;
+    function GetPathInfo: string;
+    function GetLocation: string;
+    procedure SetPathInfo(const aValue: String);
+    function GetQueryParameter(const aName: String): String;
+    procedure SocketOnAfterConnect(Sender: TObject);
+
+  public
+    property http: THTTPSend read fhttp;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(aSource : TPersistent); override;
+  published
+    property TargetURL: string read GetTargetURL write SetTargetURL;
+    property KeepAlive: Boolean read GetKeepAlive write SetKeepAlive;
+  published
+    property DisableNagle: Boolean read fDisableNagle write fDisableNagle default true;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    property OnAfterProbingServer;
+    property OnAfterProbingServers;
+    property OnBeforeProbingServer;
+    property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    //property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    property OnServerLocatorAssignment;
+    property ProbeFrequency;
+    property ProbeServers;
+    property ServerLocators;
+    property SynchronizedProbing;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils;
+
+{ TROSynapseHTTPChannel }
+
+function TROSynapseHTTPChannel.GetTargetURL: string;
+begin
+  result := fTargetURL;
+end;
+
+function TROSynapseHTTPChannel.GetTransportObject: TObject;
+begin
+  Result := Self;
+end;
+
+procedure TROSynapseHTTPChannel.SetTargetURL(const Value: string);
+begin
+  fTargetURL := Trim(Value)
+end;
+
+procedure TROSynapseHTTPChannel.IntDispatch(aRequest, aResponse: TStream);
+begin
+  CheckProperties;
+  fhttp.Headers.Clear;
+  fhttp.Document.Position := 0;
+  fhttp.Document.Size := 0;
+  fhttp.Document.CopyFrom(aRequest, 0);
+  if fhttp.KeepAlive then
+    fhttp.Headers.Add('Connection: keep-alive');
+  if not fhttp.HTTPMethod('POST', TargetURL) then
+    raise EROException.Create('Unable to connect to remote server');
+  aResponse.CopyFrom(http.Document, 0);
+end;
+
+function TROSynapseHTTPChannel.GetHeaders(const aName: string): string;
+begin
+  Result := fhttp.Headers.Values[aName];
+end;
+
+procedure TROSynapseHTTPChannel.SetHeaders(const aName, aValue: string);
+begin
+  fhttp.Headers.Values[aName] := aValue;
+end;
+
+function TROSynapseHTTPChannel.GetContentType: string;
+begin
+  Result := fhttp.MimeType;
+end;
+
+procedure TROSynapseHTTPChannel.SetContentType(const aValue: string);
+begin
+  fhttp.MimeType := aValue;
+end;
+
+function TROSynapseHTTPChannel.GetUserAgent: string;
+begin
+  Result := fhttp.UserAgent;
+end;
+
+procedure TROSynapseHTTPChannel.SetUserAgent(const aValue: string);
+begin
+  fhttp.UserAgent := aValue;
+end;
+
+function TROSynapseHTTPChannel.GetClientAddress: string;
+begin
+  result := '';
+end;
+
+function TROSynapseHTTPChannel.GetPathInfo: string;
+begin
+  result := '';
+end;
+
+function TROSynapseHTTPChannel.GetLocation: string;
+begin
+  result := ''
+end;
+
+function TROSynapseHTTPChannel.GetKeepAlive: Boolean;
+begin
+  Result := fhttp.KeepAlive;
+end;
+
+procedure TROSynapseHTTPChannel.SetKeepAlive(const Value: Boolean);
+begin
+  fhttp.KeepAlive := Value;
+end;
+
+constructor TROSynapseHTTPChannel.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  fDisableNagle := true;
+  fhttp := THTTPSend.Create;
+  fhttp.Sock.OnAfterConnect := SocketOnAfterConnect;
+  fhttp.Protocol := '1.1';
+  fhttp.Status100 := False;
+end;
+
+destructor TROSynapseHTTPChannel.Destroy;
+begin
+  fhttp.Free;
+  inherited Destroy;
+end;
+
+function TROSynapseHTTPChannel.GetQueryString: string;
+begin
+  result := ''
+end;
+
+procedure TROSynapseHTTPChannel.SetPathInfo(const aValue: String);
+begin
+  // Do nothing; server only
+end;
+
+procedure TROSynapseHTTPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROSynapseHTTPChannel;
+begin
+  inherited;
+  if aSource is TROSynapseHTTPChannel then begin
+    lSource := TROSynapseHTTPChannel(aSource);
+    DisableNagle := lSource.DisableNagle;
+  end;
+end;
+
+function TROSynapseHTTPChannel.GetQueryParameter(
+  const aName: String): String;
+begin
+  result := '';
+end;
+
+procedure TROSynapseHTTPChannel.SocketOnAfterConnect(Sender: TObject);
+var
+  lTmpVal: Integer;
+begin
+  if fDisableNagle then begin
+    lTmpVal := 1;
+    SetSockOpt(fhttp.Sock.Socket, 6, 1, @lTmpVal, 4);
+  end;
+end;
+
+initialization
+  RegisterTransportChannelClass(TROSynapseHTTPChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROSynapseHTTPChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSCHelpers.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSCHelpers.pas
new file mode 100644
index 0000000..7d254fb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSCHelpers.pas	
@@ -0,0 +1,865 @@
+unit uROSynapseSCHelpers;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+{.$DEFINE uROSynapseSCHelpers_DEBUG}
+interface
+uses
+  SysUtils, Classes, uROClasses, uROClient, uROClientIntf,
+  synsock, blcksock {$IFDEF MSWINDOWS}, Windows {$ENDIF}, SyncObjs;
+
+type
+  EROSynapseTimeout = class(EROException);
+  TROSynapseAckState = (rNone, rAck, rNoAck);
+  IROSynapsePackageAck = interface
+    ['{89ABD257-42CB-4B4B-9BA6-3E5CED10605B}']
+    function GetEvent: TROEvent;
+    function GetAckNo: Integer;
+    function GetNoAckError: Integer;
+    procedure SetNoAckError(I: Integer);
+    function GetAckState: TROSynapseAckState;
+    procedure SetAckState(I: TROSynapseAckState);
+
+    property Event: TROEvent read GetEvent;
+    property AckNo: Integer read GetAckNo;
+    property NoAckError: Integer read GetNoAckError write SetNoAckError;
+    property AckState: TROSynapseAckState read GetAckState write SetAckState;
+
+    procedure RemoveFromList;
+  end;
+  TROSynSuperChannelWorker = class
+  private
+    fMaxPackageSize: Integer;
+    fIsServer: Boolean;
+    fConnection: TTCPBlockSocket;
+    fWriteLock,
+    fInternalWriteLock: TCriticalSection;
+    fClientID: TGUID;
+    fLastId: Integer;
+    fConnected: Boolean;
+    fLastData: TDateTime;
+
+//    fAckWaitTimeout: Integer;
+    fOtherSideMaxPackageLen: Integer;
+    fWaitingAckList: TInterfaceList;
+    fRemoteSupportsOptions, fRemoteSkipAck, fSkipAck: Boolean;
+    fPingFrequency,
+    fPingTimeout: Integer;
+    fDisconnected: Boolean;
+    procedure SetSkipAck(const Value: Boolean);
+    function ReadStream(aDest: TStream; aLen: Integer): Boolean;
+    function Client_SendWelcome: Boolean;
+    function GetOtherSideMaxPackageLen: integer;
+  protected
+    property PingFrequency: Integer read fPingFrequency write fPingFrequency;
+    property PingTimeout: Integer read fPingTimeout write fPingTimeout;
+    property LastData: TDateTime read FLastData;
+    property IsServer: Boolean read fIsServer write fIsServer;
+    procedure Idle; virtual;
+    procedure Connected; virtual;
+    procedure SupportsOptions;
+    procedure ProcessOption(Data: TStream);
+    procedure Disconnected(var RestartLoop: Boolean); virtual;
+    procedure IncomingData(Id: Integer; aData: TStream); virtual; abstract;
+    function IntSendData(Id: Integer; aData: TStream): IROSynapsePackageAck;
+    procedure SetAckDetails(Id: Integer; Oke: Boolean; ErrorNo: Integer); virtual;
+    procedure SendOptions(aData: UTF8String);
+    function GetDefaultResponse: string; virtual;
+  public
+    constructor Create(aConnection: TTCPBlockSocket);
+    destructor Destroy; override;
+
+    property ClientID: TGuid read fClientID write fClientID;
+    property Connection: TTCPBlockSocket read fConnection;
+
+    // to be called from a thread; will stay checking until disconnected
+    procedure DoExecute;
+
+    procedure Disconnect;
+
+    // Thread safe method
+    procedure SendError(Id: Integer; Error: Byte);
+    procedure BeginWriteLock;
+    function SendPackage(aData: TStream; Id: Integer = 0): IROSynapsePackageAck;
+    procedure EndWriteLock;
+    class procedure WaitForAck(pkg: IROSynapsePackageAck; Timeout: Integer = 60000);
+    function GenerateId: Integer;
+
+    // properties
+    property MaxPackageSize: Integer read fMaxPackageSize write fMaxPackageSize;
+    property IsConnected: Boolean read fConnected write fConnected;
+    property SkipAck: Boolean read fSkipAck write SetSkipAck;
+  end;
+
+const
+  ScCmdNoAck_MsgTooLarge = 0;
+  ScCmdNoAck_Timeout = 1;
+  scCmdNoAck_UnknownCommand = 2;
+  ScCmdNoAck_QueueFull = 3;
+  ScCmdNoAck_SupportsOptions = 255;
+
+
+implementation
+const
+  ScWelcome = 'ROSC10';
+
+//  ScCmdHello = 0;
+  {
+    Client:
+      'ROSC10'
+      [MyGuid] or [NullGuid]
+      MaxPackageLength: Int32;
+    Server:
+      'ROSC10'
+      [YourGuid] or [NewGuid]
+      MaxPackageLength: Int32;
+  }
+  ScCmdPackage = 1;
+  {
+    Request or Event Id: Int32; (Event < 0; Request/Response > 0)
+    Length: Int32;
+    Data: [...]
+  }
+  ScCmdAck = 2;
+  {
+    Id: Integer;
+  }
+  ScCmdNoAck = 3;
+  {
+    Id: Integer;
+    Error:
+      0 = Message too large
+      1 = Timeout
+  }
+
+  ScCmdPing = 4;
+  { Should be sent every 60 seconds by the client
+     RandomNumber: Integer;
+  }
+  ScCmdPong = 5;
+  { Reply to ping
+    OriginalRandomNumber: Integer;
+  }
+  ScCmdOptions = 6;
+  {
+    Length: Longint
+    Data: array of 0..Length -1 of byte
+    UTF8 encoded, seperated by #13
+  }
+
+
+
+type
+  TROSynPackageAck = class(TInterfacedObject, IROSynapsePackageAck)
+  private
+    fEvent: TROEvent;
+    fAckNo,
+    FAckNoError: Integer;
+    FAckState: TROSynapseAckState;
+    FOwner: TROSynSuperChannelWorker;
+  public
+    function GetEvent: TROEvent;
+    function GetAckNo: Integer;
+    function GetNoAckError: Integer;
+    procedure SetNoAckError(I: Integer);
+    function GetAckState: TROSynapseAckState;
+    procedure SetAckState(I: TROSynapseAckState);
+
+    constructor Create(aOwner: TROSynSuperChannelWorker; aId: Integer);
+    destructor Destroy; override;
+
+    procedure RemoveFromList;
+  end;
+
+{$IFDEF uROSynapseSCHelpers_DEBUG}
+procedure Log(aServer: Boolean; aStr: string);
+begin
+  OutputDebugString(PChar(DateTimeToStr(Now)+' | Server='+BoolToStr(aServer,False) +' | '+ aStr));
+end;
+{$ENDIF}
+
+{ TROSynSuperChannelWorker }
+
+constructor TROSynSuperChannelWorker.Create(aConnection: TTCPBlockSocket);
+begin
+  inherited Create;
+  fPingFrequency := 60;
+  fPingTimeout := 90;
+  fConnection := aConnection;
+  fWriteLock := TCriticalSection.Create;
+  fInternalWriteLock := TCriticalSection.Create;
+  fMaxPackageSize := 10 * 1024 * 1024; // 1mb
+  fWaitingAckList:= TInterfaceList.Create;
+
+end;
+
+destructor TROSynSuperChannelWorker.Destroy;
+var
+  i: Integer;
+begin
+  BeginWriteLock;
+  try
+    fWaitingAckList.Lock;
+    try
+      for i := fWaitingAckList.Count -1 downto 0 do
+        IROSynapsePackageAck(fWaitingAckList[i]).RemoveFromList;
+    finally
+      fWaitingAckList.Unlock;
+    end;
+    fWaitingAckList.Free;
+    fInternalWriteLock.Free;
+    inherited Destroy;
+  finally
+    EndWriteLock;
+    fWriteLock.Free;
+  end;
+end;
+
+procedure TROSynSuperChannelWorker.Disconnect;
+begin
+  {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'Disconnect');{$ENDIF}
+  fDisconnected := True;
+  fConnection.CloseSocket;
+end;
+
+
+procedure TROSynSuperChannelWorker.Connected;
+var
+  b: array[0..5] of byte;
+begin
+  fDisconnected := False;
+  fConnected := True;
+  b[0] := ScCmdNoAck;
+  b[1] := 0;
+  b[2] := 0;
+  b[3] := 0;
+  b[4] := 0;
+  b[5] := ScCmdNoAck_SupportsOptions;
+  fConnection.SendBuffer(@b[0], sizeof(b));
+end;
+
+
+procedure TROSynSuperChannelWorker.Disconnected(var RestartLoop: Boolean);
+begin
+  {$IFDEF FPC}
+  if RestartLoop then fConnected := False else //for preventing warnings in FPC
+  {$ENDIF}
+  fConnected := False;
+end;
+
+function TROSynSuperChannelWorker.ReadStream(aDest: TStream; aLen: Integer): Boolean;
+var
+  Buf: array[0 .. 4096-1] of byte;
+  lRes: Integer;
+begin
+  aDest.Position := 0;
+  aDest.Size := 0;
+  while aLen > 0 do begin
+    lRes := aLen;
+    if lRes > sizeof(buf) then lRes := Sizeof(Buf);
+    lRes := fConnection.RecvBufferEx(@Buf[0], lRes, fPingFrequency * 1000);
+    aLen := aLen - lRes;
+    if lRes = 0 then begin Result := false; exit; end;
+    aDest.Write(Buf, lRes);
+    fLastData := now;
+  end;
+  Result := true;
+end;
+
+
+procedure TROSynSuperChannelWorker.DoExecute;
+var
+  fLastPackage: DateTime;
+  lServerExpectAck: Integer;
+  lTmpId,
+  lTmpLen: Integer;
+  cmd: Byte;
+  Bl: array[0..5] of Byte;
+  lData: TMemoryStream;
+  lRetry: Boolean;
+begin
+  lTmpId := 1;
+  SetSockOpt(fConnection.Socket, 6, 1, @lTmpId, 4); // Nagle bit
+   repeat
+    fRemoteSkipAck := false;
+    fRemoteSupportsOptions := false;
+    lServerExpectAck := 0;
+    try
+      if IsServer then
+      begin
+
+        if fConnection.RecvBufferStr(6, fPingTimeout * 1000) <> ScWelcome then
+        begin
+          {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'RecvBufferStr <> ScWelcome');{$ENDIF}
+          fConnection.SendString({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(GetDefaultResponse));
+          Disconnect;
+          exit;
+        end;
+        fConnection.RecvBufferEx(@fClientID, Sizeof(fClientID), fPingTimeout * 1000);
+        if IsEqualGUID(fClientID, EmptyGUID) then
+          fClientID := NewGuid;
+        fOtherSideMaxPackageLen := fConnection.RecvInteger(fPingTimeout * 1000);
+        fConnection.SendString(ScWelcome);
+        fConnection.SendBuffer(@fClientID, sizeof(fClientID));
+        fConnection.SendInteger(fMaxPackageSize);
+      end else begin
+        if Client_SendWelcome then Exit;
+        {
+        fConnection.SendString(ScWelcome);
+        fConnection.SendBuffer(@fClientID, sizeof(fClientID));
+        fConnection.SendInteger(fMaxPackageSize);
+
+        if fConnection.RecvBufferStr(6, fPingTimeout * 1000) <> ScWelcome then
+        begin
+          fConnection.SendString(GetDefaultResponse);
+          fConnection.CloseSocket;
+          exit;
+        end;
+        fConnection.RecvBufferEx(@fClientID, Sizeof(fClientID), fPingTimeout * 1000);
+        fOtherSideMaxPackageLen := fConnection.RecvInteger(fPingTimeout * 1000);
+        }
+      end;
+      fLastPackage := Now;
+      Connected;
+
+      while not fDisconnected do
+      begin
+        if fConnection.RecvBufferEx(@cmd, 1,  (fPingFrequency * 10 div 25)* 1000) = 1 then begin
+          fLastPackage := Now;
+          case cmd of
+            ScCmdPong:
+              begin
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdPong');{$ENDIF}
+                if fConnection.RecvInteger(fPingTimeout * 1000) = lServerExpectAck then
+                begin
+                  {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdPong, lServerExpectAck  := 0');{$ENDIF}
+                  lServerExpectAck  := 0;
+                end;
+              end;
+            ScCmdPing:
+              begin
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdPing, >>');{$ENDIF}
+                Bl[0] := ScCmdPong;
+                lTmpId := fConnection.RecvInteger(fPingTimeout * 1000);
+                Move(ltmpId, bl[1], 4);
+                fInternalWriteLock.Acquire;
+                try
+                  fConnection.SendBuffer(@bl, 5);
+                finally
+                  fInternalWriteLock.Release;
+                end;
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdPing,<<');{$ENDIF}
+              end;
+            ScCmdAck:
+              begin
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdAck, >>');{$ENDIF}
+                lTmpId := fConnection.RecvInteger(fPingTimeout * 1000);
+                SetAckDetails(lTmpId, true, 0);
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdAck, <<');{$ENDIF}
+              end;
+            ScCmdNoAck:
+              begin
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdNoAck, >>');{$ENDIF}
+                lTmpId := fConnection.RecvInteger(fPingTimeout * 1000);
+                cmd := fConnection.RecvByte(fPingTimeout * 1000);
+                if cmd = ScCmdNoAck_SupportsOptions then begin
+                  {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdNoAck_SupportsOptions');{$ENDIF}
+                  SupportsOptions;
+                end
+                else begin
+                  SetAckDetails(lTmpId, false, cmd);
+                end;
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdNoAck, <<');{$ENDIF}
+              end;
+            ScCmdOptions:
+              begin
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdOptions, >>');{$ENDIF}
+                try
+                  lTmpLen := fconnection.RecvInteger(fPingTimeout * 1000);
+                  if lTmpLen > fMaxPackageSize then
+                  begin
+                    fInternalWriteLock.Acquire;
+                    try
+                      fConnection.SendString(Chr(ScCmdNoAck)+#0#0#0#0+chr(ScCmdNoAck_MsgTooLarge));
+                    finally
+                      fInternalWriteLock.Release;
+                    end;
+                    Disconnect;
+                    break;
+                  end else begin
+                    lData := TMemoryStream.Create;
+                    try
+                      if not ReadStream(lData, lTmpLen) then break;
+                      ProcessOption(lData);
+                    finally
+                      lData.Free;
+                    end;
+                    fLastPackage := Now; // for packages that might take longer.
+                  end;
+                finally
+                  {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdOptions, <<');{$ENDIF}
+                end;
+              end;
+            ScCmdPackage:
+              begin
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdPackage, >>');{$ENDIF}
+                try
+                  fLastData := Now;
+                  lTmpId := fConnection.RecvInteger(fPingTimeout * 1000);
+                  lTmpLen := fConnection.RecvInteger(fPingTimeout * 1000);
+                  if lTmpLen < 0 then
+                  begin
+                    fInternalWriteLock.Acquire;
+                      try
+                      fConnection.SendString(Chr(ScCmdNoAck)+#0#0#0#0+chr(scCmdNoAck_UnknownCommand));
+                    finally
+                      fInternalWriteLock.Release;
+                    end;
+                    Disconnect;
+                    break;
+                  end;
+                  if lTmpLen > fMaxPackageSize then
+                  begin
+                    fInternalWriteLock.Acquire;
+                    try
+                      fConnection.SendString(Chr(ScCmdNoAck)+#0#0#0#0+chr(ScCmdNoAck_MsgTooLarge));
+                    finally
+                      fInternalWriteLock.Release;
+                    end;
+                    Disconnect;
+                    break;
+                  end else begin
+                    lData := TMemoryStream.Create;
+                    try
+                      if not ReadStream(lData, lTmpLen) then break;
+                      lData.Seek(0, soFromBeginning);
+                      Self.IncomingData(lTmpId, lData);
+                    except
+                      lData.Free; // only free when we failed to send the data to the queue
+                      fInternalWriteLock.Acquire;
+                      try
+                        fConnection.SendByte(ScCmdNoAck);
+                        fConnection.SendInteger(lTmpId);
+                        fConnection.SendByte(ScCmdNoAck_QueueFull);
+                      finally
+                        fInternalWriteLock.Release;
+                      end;
+                    end;
+                    if not fRemoteSkipAck then begin
+                    fInternalWriteLock.Acquire;
+                    try
+                      bl[0] := ScCmdAck;
+                      Move(lTmpId, bl[1], 4);
+                      fConnection.SendBuffer(@Bl, 5);
+                    finally
+                      fInternalWriteLock.Release;
+                      end;
+                    end;
+                    fLastPackage := Now; // for packages that might take longer.
+                  end;
+                finally
+                  {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'cmd = ScCmdPackage, <<');{$ENDIF}
+                end;
+              end;
+          end;
+        end else begin
+          if fConnection.LastError <> WSAETIMEDOUT then begin
+ {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'ErrorCode = '+inttostr(fConnection.LastError));{$ENDIF}
+            Disconnect;
+            Break; // disconnected
+          end;
+          Idle;
+          if IsServer then
+          begin
+            if ((Now - fLastPackage) > (PingTimeout * (1.0 / (24 * 60 * 60)))) then
+            begin
+              {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'(Now - fLastPackage) > PingTimeout )');{$ENDIF}
+              fInternalWriteLock.Acquire;
+              try
+                fConnection.SendString(Chr(ScCmdNoAck)+#0#0#0#0+chr(ScCmdNoAck_Timeout));
+                Disconnect;
+              finally
+                fInternalWriteLock.Release;
+              end;
+              break;
+            end;
+          end else
+          begin
+            if (lServerExpectAck <> 0)  then
+            begin
+              if (Now - fLastPackage) > (PingTimeout * (1.0 / (24 * 60 * 60))) then
+              begin
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'(lServerExpectAck <> 0), (Now - fLastPackage) > PingTimeout )');{$ENDIF}
+                fInternalWriteLock.Acquire;
+                try
+                  fConnection.SendString(Chr(ScCmdNoAck)+#0#0#0#0+chr(ScCmdNoAck_Timeout));
+                  Disconnect;
+                finally
+                  fInternalWriteLock.Release;
+                end;
+                break;
+              end;
+            end else begin
+              if (Now - fLastPackage) > (PingFrequency * (1.0 / (24 * 60 * 60))) then begin
+                {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'(lServerExpectAck = 0), (Now - fLastPackage) > PingTimeout )');{$ENDIF}
+                lServerExpectAck := GetTickCount;
+                if lServerExpectAck = 0 then lServerExpectAck := 1;
+                bl[0] := ScCmdPing;
+                Move(lServerExpectAck, bl[1], 4);
+                fInternalWriteLock.Acquire;
+                try
+                  fConnection.SendBuffer(@bl, 5);
+                finally
+                  fInternalWriteLock.Release;
+                end;
+              end;
+            end;
+          end;
+        end;
+      end;
+    except
+    end;
+    lRetry := false;
+    try
+      Disconnect;
+    except
+    end;
+    Disconnected(lRetry);
+  until not lRetry;
+end;
+
+function TROSynSuperChannelWorker.GenerateId: Integer;
+begin
+  fWriteLock.Acquire;
+  try
+    if IsServer then
+    begin
+      fLastId := fLastId - 1;
+      if fLastId > -1 then fLastId := -1;
+    end
+    else
+    begin
+      fLastId := fLastId + 1;
+      if fLastId < 1 then fLastId := 1;
+    end;
+    Result := fLastId;
+  finally
+    fWriteLock.Release;
+  end;
+end;
+
+procedure TROSynSuperChannelWorker.Idle;
+begin
+
+end;
+
+function TROSynSuperChannelWorker.IntSendData(Id: Integer; aData: TStream): IROSynapsePackageAck;
+var
+  Buffer: array[0.. 2047] of byte;
+  Len: Integer;
+begin
+  fLastData := Now;
+  Result := TROSynPackageAck.Create(Self, Id);
+  fWaitingAckList.Add(Result);
+  Buffer[0] := ScCmdPackage;
+  Move(Id, Buffer[1], 4);
+  Len := aData.Size;
+  Move(Len, Buffer[5], 4);
+
+  aData.Seek(0, soFromBeginning);
+
+  fInternalWriteLock.Acquire;
+  try
+    Len := aData.Read(Buffer[9], sizeof(Buffer) - 9);
+    fConnection.SendBuffer(@Buffer, Len + 9);
+    if Len > 0 then begin
+      repeat
+        Len := aData.Read(Buffer[0], Sizeof(Buffer));
+        fConnection.SendBuffer(@Buffer[0], Len);
+        fLastData := Now;
+      until Len = 0;
+    end;
+  finally
+    fInternalWriteLock.Release;
+  end;
+end;
+
+procedure TROSynSuperChannelWorker.ProcessOption(Data: TStream);
+var
+  lCmd, lData: AnsiString;
+  lPos: Integer;
+begin
+  SetLength(lData, Data.Size);
+  Data.Position := 0;
+  Data.Read(lData[1], Length(lData));
+  lPos := Pos(AnsiChar(#13), lData);
+  if lPos = 0 then begin
+    lCmd := lData;
+    lData := '';
+  end else begin
+    lCmd := copy(lData, 1, lPos-1);
+    Delete(lData, 1, lPos);
+  end;
+  if lCmd = 'SKIPACK' then begin
+    fRemoteSkipAck := lData <> 'OFF';
+  end;
+end;
+
+procedure TROSynSuperChannelWorker.SendError(Id: Integer; Error: Byte);
+var
+  Buffer: array[0..5] of Byte;
+begin
+  buffer[0] := ScCmdNoAck;
+  Move(ID, Buffer[1], 4);
+  Buffer[5] := Error;
+  fInternalWriteLock.Acquire;
+  try
+    fConnection.SendBuffer(@Buffer, 6);
+  finally
+    fInternalWriteLock.Release;
+  end;
+end;
+
+procedure TROSynSuperChannelWorker.SendOptions(aData: UTF8String);
+var
+  Buffer: array of byte;
+  Len: Integer;
+begin
+  fWriteLock.Acquire;
+  try
+    fLastData := Now;
+    SetLength(Buffer, Length(aData)+5);
+    Buffer[0] := ScCmdOptions;
+    Len := Length(aData);
+    Move(Len, Buffer[1], 4);
+    Move(aData[1], Buffer[5], Length(aDAta));
+
+    fInternalWriteLock.Acquire;
+    try
+      fConnection.SendBuffer(@Buffer[0], Length(Buffer));
+  finally
+    fInternalWriteLock.Release;
+  end;
+
+  finally
+    fWriteLock.Release;
+  end;
+end;
+
+function TROSynSuperChannelWorker.SendPackage(aData: TStream; Id: Integer = 0): IROSynapsePackageAck;
+begin
+  if GetOtherSideMaxPackageLen < aData.Size then begin
+    raise EROException.Create('Package too large');
+  end
+  else begin
+    fWriteLock.Acquire;
+    try
+      if Id = 0 then
+      begin
+        id := GenerateId;
+      end;
+      Result := IntSendData(Id, aData);
+    finally
+      fWriteLock.Release;
+    end;
+  end;
+end;
+
+procedure TROSynSuperChannelWorker.SetAckDetails(Id: Integer; Oke: Boolean;
+  ErrorNo: Integer);
+var
+  i: Integer;
+  rp: IROSynapsePackageAck;
+begin
+  fWaitingAckList.Lock;
+  try
+    for i := fWaitingAckList.Count -1 downto 0 do
+    begin
+      if IROSynapsePackageAck(fWaitingAckList[i]).AckNo = Id then
+      begin
+        rp := IROSynapsePackageAck(fWaitingAckList[i]);
+        rp.RemoveFromList;
+
+        rp.NoAckError := ErrorNo;
+        if Oke then
+          rp.AckState := rAck
+        else
+          rp.AckState := rNoAck;
+        rp.Event.SetEvent;
+        exit;
+      end;
+    end;
+  finally
+    fWaitingAckList.Unlock;
+  end;
+end;
+
+procedure TROSynSuperChannelWorker.SetSkipAck(const Value: Boolean);
+begin
+  fSkipAck := Value;
+end;
+
+procedure TROSynSuperChannelWorker.SupportsOptions;
+begin
+  if fSkipAck then SendOptions('SKIPACK'#13'ON');
+  fRemoteSupportsOptions := true;
+end;
+
+class procedure TROSynSuperChannelWorker.WaitForAck(pkg: IROSynapsePackageAck; Timeout: Integer = 60000);
+begin
+  try
+    if pkg.Event = nil then exit; // skipack
+
+    if pkg.Event.WaitFor(Timeout) <> wrSignaled then
+      raise EROSynapseTimeout.Create('Timeout');
+    if pkg.AckState <> rAck then
+    begin
+      case pkg.NoAckError of
+        ScCmdNoAck_MsgTooLarge: raise eROMessageTooLarge.Create('Message too large');
+      else
+        raise EROException.Create('Unknown error');
+      end;
+    end;
+  finally
+    pkg.RemoveFromList;
+  end;
+end;
+
+procedure TROSynSuperChannelWorker.BeginWriteLock;
+begin
+  fWriteLock.Acquire;
+end;
+
+procedure TROSynSuperChannelWorker.EndWriteLock;
+begin
+  fWriteLock.Release;
+end;
+
+function TROSynSuperChannelWorker.GetDefaultResponse: string;
+begin
+  Result := 'ROSC:Invalid connection string';
+end;
+
+function TROSynSuperChannelWorker.Client_SendWelcome:Boolean;
+begin
+  {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'Client_SendWelcome, >>');{$ENDIF}
+  try
+    Result:= False;
+    fConnection.SendString(ScWelcome);
+    fConnection.SendBuffer(@fClientID, sizeof(fClientID));
+    fConnection.SendInteger(fMaxPackageSize);
+
+    if fConnection.RecvBufferStr(6, fPingTimeout * 1000) <> ScWelcome then
+    begin
+      fConnection.SendString({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(GetDefaultResponse));
+      Disconnect;
+      Result:=True;
+      exit;
+    end;
+    fConnection.RecvBufferEx(@fClientID, Sizeof(fClientID), fPingTimeout * 1000);
+    fOtherSideMaxPackageLen := fConnection.RecvInteger(fPingTimeout * 1000);
+  finally
+    {$IFDEF uROSynapseSCHelpers_DEBUG}Log(IsServer,'Client_SendWelcome, <<');{$ENDIF}
+  end;
+end;
+
+function TROSynSuperChannelWorker.GetOtherSideMaxPackageLen: integer;
+var
+  RestartLoop: boolean;
+begin
+  if (fOtherSideMaxPackageLen = 0) and not IsServer then begin
+    RestartLoop:= False;
+    Disconnected(RestartLoop);
+    Client_SendWelcome;
+  end;
+  Result := fOtherSideMaxPackageLen;
+end;
+
+{ TROSynPackageAck }
+
+constructor TROSynPackageAck.Create(aOwner: TROSynSuperChannelWorker; aId: Integer);
+begin
+  inherited Create;
+  if not (aOwner.fSkipAck and aOwner.fRemoteSupportsOptions) then
+  fEvent := TROEvent.Create(nil, true, false, '');
+  fAckNo := aId;
+  FOwner := aOwner;
+//  if FOwner <> nil then FOwner.fWaitingAckList.Add(Self as IROSynapsePackageAck);
+end;
+
+destructor TROSynPackageAck.Destroy;
+begin
+  fEvent.Free;
+  inherited;
+end;
+
+function TROSynPackageAck.GetAckNo: Integer;
+begin
+  result := fAckNo;
+end;
+
+function TROSynPackageAck.GetAckState: TROSynapseAckState;
+begin
+  Result := FAckState;
+end;
+
+function TROSynPackageAck.GetEvent: TROEvent;
+begin
+  Result := fEvent;
+end;
+
+function TROSynPackageAck.GetNoAckError: Integer;
+begin
+ Result := FAckNoError;
+end;
+
+{$ifndef fpc}
+function InterlockedExchangePointer(var Target: Pointer; Value: Pointer): Pointer;
+begin
+  Result := Pointer(InterlockedExchange(Integer(Target), Integer(Value)));
+end;
+{$else}
+function InterlockedExchangePointer(var Target: Pointer; Value: Pointer): Pointer;
+begin
+  {$IFDEF CPU64}
+  result := Pointer(InterlockedExchange64(PtrInt(target), PtrInt(value)));
+  {$ELSE}
+  result := Pointer(InterlockedExchange(PtrInt(target), PtrInt(value)));
+  {$ENDIF}
+end;
+{$endif}
+
+procedure TROSynPackageAck.RemoveFromList;
+var
+  lOwner: TROSynSuperChannelWorker;
+begin
+  lOwner := InterlockedExchangePointer(Pointer(FOwner), nil);
+  if lOwner <> nil then
+  begin
+    lOwner.fWaitingAckList.Remove(self as IROSynapsePackageAck);
+  //  lOwner := nil;
+  end;
+end;
+
+procedure TROSynPackageAck.SetAckState(I: TROSynapseAckState);
+begin
+  FAckState := I;
+end;
+
+procedure TROSynPackageAck.SetNoAckError(I: Integer);
+begin
+  FAckNoError := i;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseServerSocket.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseServerSocket.pas
new file mode 100644
index 0000000..1844bda
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseServerSocket.pas	
@@ -0,0 +1,234 @@
+unit uROSynapseServerSocket;
+
+{$I RemObjects.inc}
+
+interface
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  SysUtils, Classes, blcksock, synsock, uROThreadPool;
+
+type
+  TRONewSocketEvent = function (Sender: TObject; aSock: TSocket): TTCPBlockSocket of object;
+  TRONewConnection = procedure (Sender: TObject; aSocket: TTCPBlockSocket) of object;
+  TROGetMaxThreads= procedure (Sender: TObject; var aMaxThreads: integer) of object;
+  TROSynapseServerSocket = class
+  private
+    fSock: TTCPBlockSocket;
+    fActive: Boolean;
+    fMaxThreads: Integer;
+    fThreads: TThreadList;
+    fListenThread: TThread;
+    fBindList: TStrings;
+    fOnNewSocket: TRONewSocketEvent;
+    fOnNewConnection: TRONewConnection;
+    fPort: Integer;
+    fOnGetMaxThreads: TROGetMaxThreads;
+    fOnMaxThreadLimitReached: TThreadMethod;
+    procedure SetActive(aValue: Boolean);
+    function GetMaxThreads: Integer;
+  protected
+
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    property OnNewSocket: TRONewSocketEvent read fOnNewSocket write fOnNewSocket; // to be used to say setup ssl
+    property OnNewConnection: TRONewConnection read fOnNewConnection write fOnNewConnection;
+    property OnGetMaxThreads: TROGetMaxThreads read fOnGetMaxThreads write fOnGetMaxThreads;
+    property OnMaxThreadLimitReached: TThreadMethod read fOnMaxThreadLimitReached write fOnMaxThreadLimitReached;
+
+    property Active: Boolean read fActive write SetActive;
+    property Sock: TTCPBlockSocket read fSock;
+    property MaxThreads: Integer read GetMaxThreads write fMaxThreads;
+    property BindList: TStrings read fBindList;
+    property Port: Integer read fPort write fPort; // for when the bindlist is empty
+  end;
+
+implementation
+uses
+  uROClasses;
+
+type
+  TSynapseListenThread = class(TROInitializedThread)
+  private
+    fOwner: TROSynapseServerSocket;
+  public
+    constructor Create(aOwner: TROSynapseServerSocket);
+    procedure Execute; override;
+  end;
+  TSynapseClientThread = class(TROInitializedThread)
+  private
+    fOwner: TROSynapseServerSocket;
+    fSock: TTCPBlockSocket;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(aOwner: TROSynapseServerSocket; aSock: TTCPBlockSocket);
+    procedure Close;
+    destructor Destroy; override;
+  end;
+
+{ TROSynapseServerSocket }
+
+constructor TROSynapseServerSocket.Create;
+begin
+  fSock := TTCPBlockSocket.Create;
+  fThreads := TThreadList.Create;
+  fMaxThreads := 100;
+  fBindList := TStringList.Create;
+end;
+
+destructor TROSynapseServerSocket.Destroy;
+var
+  i: Integer;
+  lList: TList;
+begin
+  lList := fThreads.LockList;
+  try
+    for i := 0 to lList.Count -1 do begin
+      TSynapseClientThread(lList[i]).Close;
+    end;
+  finally
+    fThreads.UnlockList;
+  end;
+  Sleep(10);
+  while true do begin
+    if fThreads.LockList.Count = 0 then begin
+      fThreads.UnlockList;
+      break;
+    end;
+    fThreads.UnlockList;
+    Sleep(10);
+  end;
+
+  Active := false;
+  fThreads.Free;
+  fBindList.Free;
+  fSock.Free;
+
+  inherited Destroy;
+end;
+
+function TROSynapseServerSocket.GetMaxThreads: Integer;
+begin
+  Result := fMaxThreads;
+  if Assigned(fOnGetMaxThreads) then fOnGetMaxThreads(Self,Result);
+end;
+
+procedure TROSynapseServerSocket.SetActive(aValue: Boolean);
+var
+  i: Integer;
+  s1,s2: string;
+begin
+  if fActive = aValue then exit;
+  if aValue then begin
+    fSock.CreateSocket;
+    if fBindList.Count = 0 then
+      fSock.Bind('0.0.0.0', IntTostr(fPort))
+    else begin
+      for i := 0 to fBindList.Count -1 do begin
+        s2 := fBindList[i];
+        s1 := copy(s2, 1, pos(':', s2) -1);
+        Delete(s2, 1, pos(':', s2));
+      end;
+      fSock.Bind(s1,s2);
+    end;
+    fSock.Listen;
+    fListenThread := TSynapseListenThread.Create(self);
+  end else begin
+    fSock.CloseSocket;
+    fListenThread.Free;
+    fListenThread := nil;
+  end;
+  fActive := aValue;
+end;
+
+{ TSynapseListenThread }
+
+constructor TSynapseListenThread.Create(aOwner: TROSynapseServerSocket);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+  fOwner := aOwner;
+  FreeOnTerminate := false;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+
+procedure TSynapseListenThread.Execute;
+var
+  lSock: TSocket;
+  lList: TList;
+  lRealSock: TTCPBlockSocket;
+begin
+  while not Terminated do begin
+    lSock := fOwner.fSock.Accept;
+    if (lSock = 0) or (lSock = INVALID_SOCKET) then break;
+    lList := fOwner.fThreads.LockList;
+    try
+      if lList.Count >= fOwner.MaxThreads then begin
+        CloseSocket(lSock);
+        if Assigned(fOwner.OnMaxThreadLimitReached) then fOwner.OnMaxThreadLimitReached;
+      end else begin
+        if @fOwner.fOnNewSocket <> nil then
+          lRealSock := fOwner.fOnNewSocket(fOwner, lSock)
+        else begin
+          lRealSock := TTCPBlockSocket.Create;
+          lRealSock.Socket := lSock;
+        end;
+        if lRealSock = nil then begin
+          CloseSocket(lSock);
+        end else begin
+          lList.Add(TSynapseClientThread.Create(fOwner, lRealSock));
+        end;
+      end;
+    finally
+      fOwner.fThreads.UnlockList;
+    end;
+  end;
+end;
+
+{ TSynapseClientThread }
+
+procedure TSynapseClientThread.Close;
+begin
+  fSock.AbortSocket;
+  terminate;
+end;
+
+constructor TSynapseClientThread.Create(aOwner: TROSynapseServerSocket;
+  aSock: TTCPBlockSocket);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+  fOwner := aOwner;
+  fSock := aSock;
+//  fOwner.fThreads.Add(Self);
+  FreeOnTerminate := true;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TSynapseClientThread.Destroy;
+begin
+  fOwner.fThreads.Remove(Self);
+  fSock.Free;
+  inherited;
+end;
+
+procedure TSynapseClientThread.Execute;
+begin
+  if @fOwner.fOnNewConnection <> nil then
+    fOwner.fOnNewConnection(fOwner, fSock);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperHttpChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperHttpChannel.pas
new file mode 100644
index 0000000..5537f44
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperHttpChannel.pas	
@@ -0,0 +1,239 @@
+unit uROSynapseSuperHttpChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Components                                   }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, uROClient, uROClientIntf, uROAsync, uROClasses, SyncObjs,
+  {$IFDEF RemObjects_UseEncryption} uROEncryption, {$ENDIF}uROThreadPool,
+  httpsend, uROBaseSuperHttpChannel, synsock;
+
+type
+  TROSynapseSuperHTTPChannel  = class(TROBaseSuperHttpChannel)
+  private
+    fClientWait,
+    fClientRequest: THTTPSend;
+    fDisableNagle: Boolean;
+    fTargetUrl: String;
+    procedure SocketOnAfterConnectRequest(Sender: TObject);
+    procedure SocketOnAfterConnectWait(Sender: TObject);
+  protected
+  { IROHTTPTransport }
+    function GetClientAddress : string; override;
+    procedure SetHeaders(const aName, aValue : string); override;
+    function GetHeaders(const aName : string) : string; override;
+    function GetContentType : string; override;
+    procedure SetContentType(const aValue : string); override;
+    function GetUserAgent : string; override;
+    procedure SetUserAgent(const aValue : string); override;
+    function GetTargetURL : string; override;
+    procedure SetTargetURL(const aValue : string); override;
+    procedure SetPathInfo (const aValue : string); override;
+    function GetPathInfo : string; override;
+    function GetQueryString : string; override;
+    function GetLocation : string; override;
+    function GetQueryParameter(const aName: string): string; override;
+  protected
+    procedure CancelRequest(aWaitingThread: Boolean); override;
+    procedure DispatchHTTPRequest(aWaitingThread: Boolean;
+      aRequest: TDynByteArray; out aResponse: TDynByteArray); override;
+  public
+    constructor Create(aOwner: TCOmponent); override;
+    destructor Destroy; override;
+    procedure Assign(aSource : TPersistent); override;
+    property ClientWait: THTTPSend read fClientWait;
+    property ClientRequest: THTTPSend read fClientRequest;
+  published
+    property DisableNagle: Boolean read fDisableNagle write fDisableNagle default true;
+    property TargetUrl: String read fTargetUrl write fTargetUrl;
+  end;
+
+implementation
+uses
+  uRORes;
+
+{ TROSynapseSuperHTTPChannel  }
+
+procedure TROSynapseSuperHTTPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROSynapseSuperHTTPChannel;
+begin
+  inherited;
+  if aSource is TROSynapseSuperHTTPChannel then begin
+    lSource := TROSynapseSuperHTTPChannel(aSource);
+    DisableNagle := lSource.DisableNagle;
+  end;
+end;
+
+procedure TROSynapseSuperHTTPChannel.CancelRequest(aWaitingThread: Boolean);
+var
+  lSock: THTTPSend;
+begin
+  try
+    if aWaitingThread then lSock := fClientWait else lSock := fClientRequest;
+    lSock.Abort;
+    if lSock.Sock <> nil then
+      lSock.Sock.CloseSocket;
+  except
+    // indy will release an exception when closing
+  end;
+end;
+
+constructor TROSynapseSuperHTTPChannel.Create(aOwner: TCOmponent);
+begin
+  inherited Create(aOwner);
+  fDisableNagle := true;
+
+  fClientWait := THttpSend.Create;
+  fClientWait.UserAgent := str_ProductName;
+  fClientWait.Protocol := '1.1';
+  fClientWait.Status100 := False;
+  fClientWait.Sock.OnAfterConnect := SocketOnAfterConnectWait;
+
+
+  fClientRequest := THTTPSend.Create;
+  fClientRequest.UserAgent := str_ProductName;
+  fClientRequest.Protocol := '1.1';
+  fClientRequest.Status100 := False;
+  fClientRequest.Sock.OnAfterConnect := SocketOnAfterConnectRequest;
+
+end;
+
+procedure TROSynapseSuperHTTPChannel.SocketOnAfterConnectWait(Sender: TObject);
+var
+  lTmpVal: Integer;
+begin
+  if fDisableNagle then begin
+    lTmpVal := 1;
+    SetSockOpt(fClientWait.Sock.Socket, 6, 1, @lTmpVal, 4);
+  end;
+end;
+
+procedure TROSynapseSuperHTTPChannel.SocketOnAfterConnectRequest(Sender: TObject);
+var
+  lTmpVal: Integer;
+begin
+  if fDisableNagle then begin
+    lTmpVal := 1;
+    SetSockOpt(fClientRequest.Sock.Socket, 6, 1, @lTmpVal, 4);
+  end;
+end;
+
+destructor TROSynapseSuperHTTPChannel.Destroy;
+begin
+  Active := false;
+  fClientWait.Free;
+  fClientRequest.Free;
+  inherited Destroy;
+end;
+
+procedure TROSynapseSuperHTTPChannel.DispatchHTTPRequest(
+  aWaitingThread: Boolean; aRequest: TDynByteArray;
+  out aResponse: TDynByteArray);
+var
+  lClient: THTTPSend;
+begin
+  if aWaitingThread then lClient := fClientWait else lClient := fClientRequest;
+  lClient.Headers.Clear;
+  lClient.Document.Position := 0;
+  lClient.Document.Size := 0;
+  lClient.Document.Write(aRequest[0], Length(aRequest));
+  if lClient.KeepAlive then
+    lClient.Headers.Add('Connection: keep-alive');
+  if not lClient.HTTPMethod('POST', fTargetUrl) then
+    raise EROException.Create('Unable to connect to remote server');
+  SetLength(aResponse, lClient.Document.Size);
+  lClient.Document.Position := 0;
+  lClient.Document.Read(aResponse[0], length(aResponse));
+end;
+
+function TROSynapseSuperHTTPChannel.GetClientAddress: string;
+begin
+  result := '';
+end;
+
+function TROSynapseSuperHTTPChannel.GetContentType: string;
+begin
+  Result := ClientRequest.MimeType;
+end;
+
+function TROSynapseSuperHTTPChannel.GetHeaders(
+  const aName: string): string;
+begin
+  Result := ClientRequest.Headers.Values[aName];
+end;
+
+function TROSynapseSuperHTTPChannel.GetLocation: string;
+begin
+  result := '';
+end;
+
+function TROSynapseSuperHTTPChannel.GetPathInfo: string;
+begin
+  result := '';
+end;
+
+function TROSynapseSuperHTTPChannel.GetQueryParameter(
+  const aName: string): string;
+begin
+  result := '';
+end;
+
+function TROSynapseSuperHTTPChannel.GetQueryString: string;
+begin
+  result := '';
+end;
+
+function TROSynapseSuperHTTPChannel.GetTargetURL: string;
+begin
+  result := fTargetURL;
+end;
+
+function TROSynapseSuperHTTPChannel.GetUserAgent: string;
+begin
+  Result := ClientRequest.UserAgent;
+end;
+
+procedure TROSynapseSuperHTTPChannel.SetContentType(const aValue: string);
+begin
+  ClientWait.MimeType := aValue;
+  ClientRequest.MimeType := aValue;  
+end;
+
+procedure TROSynapseSuperHTTPChannel.SetHeaders(const aName,
+  aValue: string);
+begin
+  ClientWait.Headers.Values[aName] := aValue;
+  ClientRequest.Headers.Values[aName] := aValue;
+end;
+
+procedure TROSynapseSuperHTTPChannel.SetPathInfo(const aValue: string);
+begin
+  // Do nothing; server only
+end;
+
+procedure TROSynapseSuperHTTPChannel.SetTargetURL(const aValue: string);
+begin
+  fTargetURL := Trim(aValue)
+end;
+
+procedure TROSynapseSuperHTTPChannel.SetUserAgent(const aValue: string);
+begin
+  ClientWait.UserAgent := aValue;
+  ClientRequest.UserAgent := aValue;  
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperTCPChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperTCPChannel.pas
new file mode 100644
index 0000000..270547a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperTCPChannel.pas	
@@ -0,0 +1,1077 @@
+unit uROSynapseSuperTCPChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  SysUtils, Classes, uROClasses, uROClient, uROClientIntf, SyncObjs, uROAsync,
+  {$IFDEF RemObjects_UseEncryption} uROEncryption, {$ENDIF}{$IFDEF SynapseSuperTCPDEBUG}synsock,{$ENDIF}
+  blcksock, {$IFDEF MSWINDOWS}Windows, {$ENDIF}uROSynapseSCHelpers, uROThreadPool;
+
+type
+  TROSynapseCustomSuperTCPChannel = class;
+  TROSynapseSCClientWorker = class;
+  TROSynapseWaitingRequest = class
+  private
+    fEvent: TROEvent;
+    fFreeEvent: Boolean;
+    fId: Integer;
+    fResultData: TStream;
+    fResultErrorCode: Integer;
+  public
+    property Id: Integer read fId;
+    property Event: TROEvent read fEvent;
+    property Resultdata: TStream read fResultData write fResultData;
+    property ResultErrorCode: Integer read fResultErrorCode write fResultErrorCode;
+
+    constructor Create(Id: Integer); overload;
+    constructor Create(Id: Integer; Ev: TROEvent); overload;
+    destructor Destroy; override;
+  end;
+
+  TROSynapsePooledEvent = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fData: TStream;
+    fOwner: TROSynapseCustomSuperTCPChannel;
+  protected
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+  public
+    constructor Create(aData: TStream; aOwner: TROSynapseCustomSuperTCPChannel);
+    destructor Destroy; override;
+  end;
+  TROSCState = (scNotConnected, scConnecting, scConnected, scReconnecting);
+  TROSCAutoReconnectBehavior  = (sbBeforeServerLocators, sbAfterServerLocators, sbSwitchServerLocatorAfterFirstFailure);
+  TROSynapseCustomSuperTCPChannel = class(TROTransportChannel, IROTransport,
+    IROTCPTransport, IROActiveEventChannel, IROMultiThreadAwareChannel,
+    IROAsyncTransportChannel, IROActiveAsyncTransportChannel, IROTransportChannelEx,IROTCPTransportProperties)
+  private
+    fRequestTimeout: Integer;
+    fState: TROSCState;
+    fHost: string;
+    fPort: Integer;
+    fConnection: TTCPBlockSocket;
+    fActive: Boolean;
+    fOwnsEventThreadPool: Boolean;
+    fEventThreadPool: TROThreadPool;
+    fClient: TROSynapseSCClientWorker;
+    fWorkerThread: TThread;
+    fWaitingRequests: TThreadList;
+    fAutoReconnect: Boolean;
+    fEventReceiver: IROEventReceiver;
+    fConnectEvent: TROEvent;
+    fReconnectEvent: TROEvent;
+    fOnDisconnected: TNotifyEvent;
+    fOnConnected: TNotifyEvent;
+    fReconnectDelay: Integer;
+    fStoreActive: Boolean;
+    fPingSecs: Integer;
+    fAckWaitTimeout: Integer;
+    fIdleTimeoutMinutes: Integer;
+    fSynchronizeEvents: Boolean;
+    fConnectionWaitTimeout: Integer;
+    fAutoReconnectBehavior: TROSCAutoReconnectBehavior;
+    {$IFDEF SynapseSuperTCPDEBUG}
+    dmsg_count: integer;
+    dLogStream:TMemoryStream;
+    dWriteMode: Boolean;
+    procedure SynapseSuperTCP_HookMonitor(Sender: TObject; Writing: Boolean;const Buffer: TMemory; Len: Integer);
+    {$ENDIF}
+    procedure SetHost(const Value: string);
+    procedure SetPort(const Value: Integer);
+    procedure SetActive(const Value: Boolean);
+    procedure SetEventThreadPool(const Value: TROThreadPool);
+    function GetClientID: TGUID;
+    procedure SetClientID(const Value: TGUID);
+    function GetMaxPackageSize: Longint;
+    procedure SetMaxPackageSize(val: longint);
+    function GetConnected: Boolean;
+    function GetSkipAck: Boolean;
+    procedure SetSkipAck(const Value: Boolean);
+    procedure SetPingSecs(const Value: Integer);
+    function InDestroyingState: Boolean;
+    function GetHost: string;
+    function GetPort: Integer;
+    procedure ClearWaitingRequests;
+  protected
+    function InitServerLocator:Integer; override;
+    procedure ChangeServerLocator(var faultstartlocatoridx: integer; var aRetry: Boolean; const aException: Exception); override;
+    procedure Loaded; override;
+    function GetClientAddress: String;
+    function GetTransportObject: TObject; override;
+
+    procedure HasData(Id: Integer; aData: TStream);
+    procedure BeforeDispatch(aMessage: IROMessage); override;
+    procedure IntDispatch(aRequest, aResponse : TStream); override;
+    procedure RegisterEventReceiver(aReceiver: IROEventReceiver);
+    procedure UnregisterEventReceiver(aReceiver: IROEventReceiver);
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    function InvokeRequest(aRequest: TStream; aGetResponse: Boolean = True;
+      aEvent: TROEvent = nil): String; overload;
+    function InvokeRequest(aRequest:TStream; iGetResponse:boolean=true):string; overload;
+    function CheckStatus(const iMessageID: String): Boolean;
+    procedure RetrieveResponse(const iMessageID: String;
+      aResponse: TStream);
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure WaitForActive(const Timeout: Integer);
+    procedure Assign(aSource : TPersistent); override;
+    property Host: string read GetHost write SetHost;
+    property Port: Integer read GetPort write SetPort default 8095;
+    property PingSecs: Integer read fPingSecs write SetPingSecs default 60;
+    property StoreActive: Boolean read fStoreActive write fStoreActive default True;
+    property Active: Boolean read fActive write SetActive  stored fStoreActive default False;
+    property Client: TTCPBlockSocket read fConnection;
+    property RequestTimeout: Integer read fRequestTimeout write fRequestTimeout default 60000;
+    property EventThreadPool: TROThreadPool read fEventThreadPool write SetEventThreadPool;
+    property AutoReconnect: Boolean read fAutoReconnect write fAutoReconnect default False;
+    property ReconnectDelay: Integer read fReconnectDelay write fReconnectDelay default 500;
+    property ClientID: TGUID read GetClientID write SetClientID;
+    property OnDisconnected: TNotifyEvent read fOnDisconnected write fOnDisconnected;
+    property MaxPackageSize: Integer read GetMaxPackageSize write SetMaxPackageSize default 10*1024*1024;
+    property OnConnected: TNotifyEvent read fOnConnected write fOnConnected;
+    property AckWaitTimeout: Integer read fAckWaitTimeout write fAckWaitTimeout default 10000;
+    property Connected: Boolean read GetConnected;
+    property IdleTimeoutMinutes: Integer read fIdleTimeoutMinutes write fIdleTimeoutMinutes default 0; // minutes
+    property SynchronizeEvents: Boolean read fSynchronizeEvents write fSynchronizeEvents default False;
+    property ConnectionWaitTimeout: Integer read fConnectionWaitTimeout write fConnectionWaitTimeout default 10000;
+    property SkipAck: Boolean read GetSkipAck write SetSkipAck default false;
+    property AutoReconnectBehavior: TROSCAutoReconnectBehavior read fAutoReconnectBehavior write fAutoReconnectBehavior default sbSwitchServerLocatorAfterFirstFailure;
+  end;
+
+  TROSynapseSuperTCPChannel = class(TROSynapseCustomSuperTCPChannel)
+  published
+    property Host;
+    property Port;
+    property Active;
+    property RequestTimeout;
+    property AutoReconnect;
+    property ReconnectDelay;
+    property OnDisconnected;
+    property OnConnected;
+    property StoreActive;
+    property MaxPackageSize;
+    property AckWaitTimeout;
+  	property SynchronizeEvents;
+    property ConnectionWaitTimeout;
+    property AutoReconnectBehavior;
+    property SkipAck;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    property OnAfterProbingServer;
+    property OnAfterProbingServers;
+    property OnBeforeProbingServer;
+    property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    //property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    property OnServerLocatorAssignment;
+    property ProbeFrequency;
+    property ProbeServers;
+    property ServerLocators;
+    property SynchronizedProbing;
+  end;
+
+  TROSynapseSCClientWorker = class(TROSynSuperChannelWorker)
+  private
+    fOwner: TROSynapseCustomSuperTCPChannel;
+    fSkipReconnect: Boolean;
+  protected
+    procedure Connected; override;
+    procedure Disconnected(var RestartLoop: Boolean); override;
+    procedure IncomingData(Id: Integer; aData: TStream); override;
+    procedure Idle; override;
+    procedure SetAckDetails(Id: Integer; Oke: Boolean; ErrorNo: Integer); override;
+  public
+    constructor Create(aOwner: TROSynapseCustomSuperTCPChannel; aConnection: TTCPBlockSocket);
+    property Owner: TROSynapseCustomSuperTCPChannel read fOwner;
+  end;
+
+implementation
+
+type
+  TROSynapseClientThread = class(TROInitializedThread)
+  private
+    fChannel: TROSynapseSCClientWorker;
+    fConnecting: Boolean;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(aChannel: TROSynapseSCClientWorker);
+    property Connecting: Boolean read fConnecting;
+  end;
+
+{ TROSynapseCustomSuperTCPChannel }
+
+procedure TROSynapseCustomSuperTCPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROSynapseCustomSuperTCPChannel;
+begin
+  inherited;
+  if aSource is TROSynapseCustomSuperTCPChannel then begin
+    lSource := TROSynapseCustomSuperTCPChannel(aSource);
+    Active := False;
+
+    AckWaitTimeout := lSource.AckWaitTimeout;
+    AutoReconnect := lSource.AutoReconnect;
+    AutoReconnectBehavior := lSource.AutoReconnectBehavior;
+    ConnectionWaitTimeout := lSource.ConnectionWaitTimeout;
+    MaxPackageSize := lSource.MaxPackageSize;
+    OnConnected := lSource.OnConnected;
+    OnDisconnected := lSource.OnDisconnected;
+    ReconnectDelay := lSource.ReconnectDelay;
+    RequestTimeout := lSource.RequestTimeout;
+    SkipAck := lSource.SkipAck;
+    StoreActive := lSource.StoreActive;
+    SynchronizeEvents := lSource.SynchronizeEvents;
+    Active := lSource.Active;
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.BeforeDispatch(aMessage: IROMessage);
+begin
+  try
+    inherited;
+    if not fActive then
+    begin
+      SetActive(true);
+    end;
+    fReconnectEvent.SetEvent;
+    if  fConnectEvent.WaitFor(fConnectionWaitTimeout) <> wrSignaled then raise EROException.Create('No connection available');
+    if aMessage <> nil then
+      aMessage.ClientID := fClient.ClientId;
+  except
+    fState:=scNotConnected;
+    raise;
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.ChangeServerLocator(
+  var faultstartlocatoridx: integer; var aRetry: Boolean;
+  const aException: Exception);
+begin
+  // none
+end;
+
+function TROSynapseCustomSuperTCPChannel.CheckStatus(
+  const iMessageID: String): Boolean;
+var
+  i, id: Integer;
+  lList: TList;
+  lReq: TROSynapseWaitingRequest;
+begin
+  Result := False;
+  id := StrToInt(iMessageID);
+  lList := fWaitingRequests.LockList;
+  try
+    for i := lList.Count -1 downto 0 do begin
+      lReq := TROSynapseWaitingRequest(lList[i]);
+      if Lreq.Id = id then
+      begin
+        Result := (lReq.Resultdata <> nil) or (lReq.ResultErrorCode <> -1);
+        exit;
+      end;
+    end;
+  finally
+    fWaitingRequests.UnlockList;
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.ClearWaitingRequests;
+var
+  List: TList;
+  i: Integer;
+begin
+  List:= fWaitingRequests.LockList;
+  try
+    for I := List.Count - 1 downto 0 do
+      TROSynapseWaitingRequest(List[i]).Free;
+    List.Clear;
+  finally
+    fWaitingRequests.UnlockList;
+  end;
+end;
+
+constructor TROSynapseCustomSuperTCPChannel.Create(aOwner: TComponent);
+begin
+  inherited Create(aOwner);
+  fConnectEvent := TROEvent.create(nil, true, false, '');
+  fReconnectEvent := TROEvent.Create(nil, true, false, '');
+
+  fPingSecs := 60;
+  fWaitingRequests := TThreadList.Create;
+  fHost := 'localhost';
+  fPort := 8095;
+  fConnection := TTCPBlockSocket.Create;
+  {$IFDEF SynapseSuperTCPDEBUG}
+  dmsg_count:=0;
+  dLogStream:=TMemoryStream.Create;
+  dWriteMode := False;
+  fConnection.OnMonitor:=SynapseSuperTCP_HookMonitor;
+  {$ENDIF}
+  fClient := TROSynapseSCClientWorker.Create(Self, fConnection);
+  fRequestTimeout := 60000;
+  fAckWaitTimeout := 10000;
+  fReconnectDelay := 500;
+  fConnectionWaitTimeout := 10000;
+  fStoreActive := True;
+  ThreadSafe := True;
+  fAutoReconnectBehavior := sbSwitchServerLocatorAfterFirstFailure;
+end;
+
+
+destructor TROSynapseCustomSuperTCPChannel.Destroy;
+var
+  fw: TROSynapseClientThread;
+begin
+  if (fWorkerThread <> nil) then begin
+    fActive := False;
+    fw := TROSynapseClientThread(fWorkerThread);
+    fWorkerThread := nil;
+    fClient.Disconnect;
+    fw.Terminate;
+    fReconnectEvent.SetEvent;
+    fw.WaitFor;
+    FreeAndNil(fw);
+  end;
+  fClient.Free;
+  fConnection.Free;
+  ClearWaitingRequests;
+  fWaitingRequests.Free;
+  fConnectEvent.Free;
+  if fOwnsEventThreadPool then
+  begin
+    fEventThreadPool.Free;
+  end;
+  UnregisterEventReceiver(nil);
+  fReconnectEvent.Free;
+  {$IFDEF SynapseSuperTCPDEBUG}
+  SynapseSuperTCP_HookMonitor(Self,not dWriteMode,nil,0);
+  dLogStream.Free;
+  {$ENDIF}
+  inherited Destroy;
+end;
+
+function TROSynapseCustomSuperTCPChannel.GetClientAddress: String;
+begin
+  Result := fConnection.GetRemoteSinIP;
+end;
+
+function TROSynapseCustomSuperTCPChannel.GetClientID: TGUID;
+begin
+  Result := fClient.ClientID;
+end;
+
+function TROSynapseCustomSuperTCPChannel.GetConnected: Boolean;
+begin
+  result := fClient.IsConnected;
+end;
+
+function TROSynapseCustomSuperTCPChannel.GetHost: string;
+begin
+  Result := fHost;
+end;
+
+function TROSynapseCustomSuperTCPChannel.GetMaxPackageSize: Longint;
+begin
+  result := fClient.MaxPackageSize;
+end;
+
+function TROSynapseCustomSuperTCPChannel.GetPort: Integer;
+begin
+  Result := fPort;
+end;
+
+function TROSynapseCustomSuperTCPChannel.GetSkipAck: Boolean;
+begin
+  result := fClient.SkipAck;
+end;
+
+function TROSynapseCustomSuperTCPChannel.GetTransportObject: TObject;
+begin
+  Result := self;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.HasData(Id: Integer; aData: TStream);
+var
+  lList: TList;
+  i: Integer;
+  lReq: TROSynapseWaitingRequest;
+  lEvent: TROSynapsePooledEvent;
+  lEventIntf: IROThreadPoolCallback;
+begin
+  if Id < 0 then // got an event
+  begin
+    if fEventThreadPool = nil then raise EROException.Create('No thread pool assigned');
+    lEvent := TROSynapsePooledEvent.Create(aData, Self);
+    lEventIntf := lEvent;
+    try
+        fEventThreadPool.QueueItem(lEventIntf);
+    except
+      lEvent.fData := nil;
+      raise;
+    end;
+  end else
+  begin
+    lList := fWaitingRequests.LockList;
+    try
+      lReq := nil;
+      for i := lList.Count -1 downto 0 do
+      begin
+        if TROSynapseWaitingRequest(lList[i]).Id = Id then
+        begin
+          lReq := TROSynapseWaitingRequest(lList[i]);
+          break;
+        end;
+      end;
+      if lReq = nil then
+      begin
+        // Don't want a response
+        aData.Free;
+        exit;
+      end;
+      lReq.Resultdata := aData;
+      lReq.Event.SetEvent;
+    finally
+      fWaitingRequests.UnlockList;
+    end;
+  end;
+end;
+
+function TROSynapseCustomSuperTCPChannel.InDestroyingState: Boolean;
+begin
+  Result:= csDestroying in ComponentState;
+end;
+
+function TROSynapseCustomSuperTCPChannel.InitServerLocator: Integer;
+begin
+  Result:=-1;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.IntDispatch(aRequest,
+  aResponse: TStream);
+var
+  lId: Integer;
+  lReq: TROSynapseWaitingRequest;
+begin
+//  if (not fActive) then raise EROException.Create('Not connected');
+  lId := fClient.GenerateId;
+  lReq := TROSynapseWaitingRequest.Create(lId);
+  try
+    fWaitingRequests.Add(lReq);
+    try
+      TROSynapseSCClientWorker.WaitForAck(fClient.SendPackage(aRequest, lId), fAckWaitTimeout);
+      lReq.Event.WaitFor(fRequestTimeout);
+    finally
+      fWaitingRequests.Remove(lReq);
+    end;
+    if lReq.Resultdata = nil then begin
+      case lReq.fResultErrorCode of
+        ScCmdNoAck_MsgTooLarge: raise EROException.Create('Message from server too large');
+        ScCmdNoAck_QueueFull: raise EROException.Create('Server queue full');
+        else raise EROSynapseTimeout.Create('Timeout waiting for response');
+      end;
+    end;
+    lReq.Resultdata.Seek(0, soFromBeginning);
+    aResponse.CopyFrom(lReq.Resultdata, lReq.Resultdata.Size);
+  finally
+    lReq.Free;
+  end;
+end;
+
+function TROSynapseCustomSuperTCPChannel.InvokeRequest(aRequest: TStream;
+  aGetResponse: Boolean; aEvent: TROEvent): String;
+var
+  lId: Integer;
+  lReq: TROSynapseWaitingRequest;
+begin
+  lId := fClient.GenerateId;
+  if aGetResponse then begin
+    if aEvent = nil then
+      lReq := TROSynapseWaitingRequest.Create(lId)
+    else
+      lReq := TROSynapseWaitingRequest.Create(lId, aEvent);
+
+    fWaitingRequests.Add(lReq);
+  end;
+  {$IFDEF RemObjects_UseEncryption}
+  if Encryption.EncryptionMethod <> tetNone then DoEncryption2(aRequest);
+  {$ENDIF}
+  fClient.SendPackage(aRequest, lId);
+  Result := IntToStr(lId);
+  aRequest.Free; // needs to be freed here
+end;
+
+function TROSynapseCustomSuperTCPChannel.InvokeRequest(aRequest: TStream;
+  iGetResponse: boolean): string;
+begin
+  Result := InvokeRequest(aRequest, iGetResponse, nil);
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.Loaded;
+begin
+  inherited;
+  if fActive then
+  begin
+    fActive := false;
+    SetActive(true);
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.Notification(AComponent: TComponent;
+  Operation: TOperation);
+var
+  dummy: IROEventReceiver;
+begin
+  if (Operation = opRemove) then
+  begin
+    if (AComponent = fEventThreadPool) then
+      fEventThreadPool := nil;
+    if Supports(aComponent, IROEventReceiver, dummy) and (dummy = fEventReceiver) then
+      UnregisterEventReceiver(fEventReceiver);
+  end;
+  inherited;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.RegisterEventReceiver(
+  aReceiver: IROEventReceiver);
+begin
+  if fEventReceiver <> aReceiver then begin
+    if assigned(fEventReceiver) then begin
+      if fEventReceiver.GetObject is TROComponent then
+        TROComponent(fEventReceiver.GetObject).RORemoveFreeNotification(Self)
+      else
+        TComponent(fEventReceiver.GetObject).RemoveFreeNotification(Self);
+    end;
+    fEventReceiver := aReceiver;
+    if assigned(fEventReceiver) then begin
+      if fEventReceiver.GetObject is TROComponent then
+        TROComponent(fEventReceiver.GetObject).ROFreeNotification(Self)
+      else
+        TComponent(fEventReceiver.GetObject).FreeNotification(Self);
+    end;
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.RetrieveResponse(
+  const iMessageID: String; aResponse: TStream);
+var
+  i, id: Integer;
+  lList: TList;
+  lReq: TROSynapseWaitingRequest;
+
+begin
+  id := STrToInt(iMessageID);
+  lList := fWaitingRequests.LockList;
+  try
+    lReq := nil;
+    for i := lList.Count -1 downto 0 do begin
+      lReq := TROSynapseWaitingRequest(lList[i]);
+      if Lreq.Id = id then
+        break
+      else lReq := nil;
+    end;
+  finally
+    fWaitingRequests.UnlockList;
+  end;
+  if lReq = nil then
+    raise EROSynapseTimeout.Create('Unknown response id '+iMessageID);
+
+  try
+    if lReq.fEvent <> nil then
+      lReq.fEvent.WaitFor(fRequestTimeout);
+    if lReq.fResultData = nil then begin
+      case lReq.ResultErrorCode of
+        ScCmdNoAck_MsgTooLarge: raise EROException.Create('Message from server too large');
+        ScCmdNoAck_QueueFull: raise EROException.Create('Server queue full');
+        else raise EROSynapseTimeout.Create('Timeout waiting for response');
+      end;
+    end;
+    lREq.Resultdata.Seek(0, soFromBeginning);
+    aResponse.CopyFrom(lReq.Resultdata, lReq.Resultdata.Size);
+    aResponse.Seek(0, soFromBeginning);
+    {$IFDEF RemObjects_UseEncryption}
+    if Encryption.EncryptionMethod <> tetNone then DoDecryption2(aResponse);
+    {$ENDIF}
+  finally
+    fWaitingRequests.Remove(lReq);
+    lReq.Free;
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.SetActive(const Value: Boolean);
+var
+  fw: TThread;
+begin
+  if (fActive = value) then begin
+    if not fActive or (fState <> scNotConnected) then
+      Exit;
+  end;
+  fActive := value;
+  if ComponentState * [csLoading] = [] then
+  begin
+    if (fWorkerThread <> nil) then
+    begin
+      fw := fWorkerThread;
+      fWorkerThread := nil;
+      fClient.Disconnect;
+      TROSynapseClientThread(fw).Terminate;
+      fReconnectEvent.SetEvent; 
+      fw.WaitFor;
+      FreeAndNil(fw);
+      fState := scNotConnected;
+    end;
+    if fEventThreadPool = nil then
+    begin
+      EventThreadPool := TROThreadPool.Create(nil);
+      fOwnsEventThreadPool := true;
+    end;
+    if fActive then
+    begin
+      fReconnectEvent.SetEvent;
+      fConnectEvent.ResetEvent;
+      fState := scConnecting;
+      fWorkerThread := TROSynapseClientThread.Create(fClient);
+    end;
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.SetClientID(const Value: TGUID);
+begin
+  fClient.ClientID := Value;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.SetEventThreadPool(
+  const Value: TROThreadPool);
+begin
+  if fOwnsEventThreadPool then
+  begin
+    fEventThreadPool.Free;
+    fOwnsEventThreadPool := false;
+  end;
+  fEventThreadPool := Value;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.SetHost(const Value: string);
+begin
+  if fActive and (csLoading in ComponentState) then
+    raise EROException.Create('Client is active');
+  fHost := value;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.SetMaxPackageSize(val: Integer);
+begin
+  fClient.MaxPackageSize := Val;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.SetPingSecs(const Value: Integer);
+begin
+  if (Value < 10) or (Value > 60) then raise EROException.Create('PingSecs has to be between 10 and 60');
+  fPingSecs := Value;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.SetPort(const Value: Integer);
+begin
+  if fActive and (csLoading in ComponentState) then
+    raise EROException.Create('Client is active');
+  fPort := Value;
+end;
+
+procedure TROSynapseCustomSuperTCPChannel.SetSkipAck(const Value: Boolean);
+begin
+  fClient.SkipAck := Value;
+end;
+
+{$IFDEF SynapseSuperTCPDEBUG}
+procedure TROSynapseCustomSuperTCPChannel.SynapseSuperTCP_HookMonitor(
+  Sender: TObject; Writing: Boolean; const Buffer: TMemory; Len: Integer);
+const
+  rw : array[Boolean] of string = ('Read', 'Write');
+begin
+  if (dWriteMode <> Writing) or nor Writing then begin
+    if Len <> 0 then begin
+      inc(dmsg_count);
+      dLogStream.SaveToFile(IntToHex(cardinal(Self),8)+'_'+IntToStr(dmsg_count)+'='+rw[dWriteMode]);
+      dLogStream.Size := 0;
+    end;
+    dWriteMode := Writing;
+  end;
+  if len <> 0 then dLogStream.Write(Buffer^,Len);
+end;
+{$ENDIF SynapseSuperTCPDEBUG}
+
+procedure TROSynapseCustomSuperTCPChannel.UnregisterEventReceiver(
+  aReceiver: IROEventReceiver);
+begin
+  if assigned(fEventReceiver) then begin
+    if fEventReceiver.GetObject is TROComponent then
+      TROComponent(fEventReceiver.GetObject).RORemoveFreeNotification(Self)
+    else
+      TComponent(fEventReceiver.GetObject).RemoveFreeNotification(Self);
+  end;
+  {$IFDEF FPC}
+  if aReceiver <> nil then fEventReceiver := nil else //for preventing warnings in FPC
+  {$ENDIF}
+  fEventReceiver := nil;
+end;
+
+type
+  TROSBEventTrigger = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fEvent: TNotifyEvent;
+    fSender: TObject;
+    procedure Execute;
+  public
+    constructor Create(aSender: TObject; aEvent: TNotifyEvent);
+    procedure Callback(Caller: TROThreadPool; aThread: TThread);
+  end;
+
+procedure TROSynapseCustomSuperTCPChannel.WaitForActive(const Timeout: Integer);
+begin
+  SetActive(true);
+  if fConnectEvent.WaitFor(Timeout) <> wrSignaled then raise EROException.Create('No connection available');
+end;
+
+{ TROSynapseSCClientWorker }
+
+procedure TROSynapseSCClientWorker.Connected;
+begin
+  inherited;
+  fOwner.fState := scConnected;
+  fOwner.fConnectEvent.SetEvent;
+  if assigned(fOwner.fOnConnected) then begin
+    if fOwner.fSynchronizeEvents then
+      fOwner.fEventThreadPool.QueueItem(TROSBEventTrigger.Create(fOwner, fOwner.fOnconnected))
+    else
+      fOwner.fOnconnected(fOwner);
+  end;
+end;
+
+constructor TROSynapseSCClientWorker.Create(aOwner: TROSynapseCustomSuperTCPChannel;
+  aConnection: TTCPBlockSocket);
+begin
+  fOwner := aOwner;
+  inherited Create(aConnection);
+  PingFrequency := fOwner.fPingSecs;
+  PingTimeout := PingFrequency * 15 div 10;
+end;
+
+procedure TROSynapseSCClientWorker.Disconnected(var RestartLoop: Boolean);
+// restartloop is false by default
+
+  function CanUseServerLocators: boolean;
+  var
+    i: integer;
+  begin
+    Result := False;
+    if (doFaultTolerant in fOwner.DispatchOptions) then begin
+      For i:=0 to fOwner.ServerLocators.Count -1 do
+        if (fOwner.ServerLocators.Items[i].Enabled) then begin
+          Result:=True;
+          Break;
+        end;
+    end;
+  end;
+
+var
+  lIndex: integer;
+  lRet: boolean;
+  lAutoReconnectFailed: boolean;
+begin
+  inherited;
+
+  try
+    fOwner.fConnection.CloseSocket;
+  except
+  end;
+  if assigned(fOwner.fOnDisconnected) then begin
+    if fOwner.fSynchronizeEvents then
+      fOwner.fEventThreadPool.QueueItem(TROSBEventTrigger.Create(fOwner, fOwner.fOnDisconnected))
+    else
+      fOwner.fOnDisconnected(fOwner);
+  end;
+  if fOwner.fActive and (fOwner.fAutoReconnect or CanUseServerLocators) and not fOwner.InDestroyingState and not fSkipReconnect then begin
+    fOwner.fState := scReconnecting
+  end
+  else begin
+    fOwner.fState := scNotConnected;
+    fOwner.fActive := false;
+    fOwner.fConnectEvent.ResetEvent;
+    exit;
+  end;
+
+  fOwner.fReconnectEvent.ResetEvent;
+  fOwner.fConnectEvent.ResetEvent;
+  lIndex := -1;
+  lRet := True;
+  lAutoReconnectFailed:=False;
+  while lRet and fOwner.fActive and (fOwner.fAutoReconnect or CanUseServerLocators) and not fOwner.InDestroyingState and not fSkipReconnect do
+  begin
+    fOwner.fReconnectEvent.WaitFor(fOwner.fReconnectDelay); // don't want to create a tight loop
+    try
+      fOwner.fReconnectEvent.ResetEvent;
+      fOwner.fConnection.Connect(fOwner.fHost, inttostr(fOwner.fPort));
+      if fOwner.fConnection.LastError <> 0 then raise ESynapseError.Create(fOwner.fConnection.LastErrorDesc);
+      RestartLoop := True;
+      Break;
+    except
+      // we failed, retry in a few
+      on E: Exception do begin
+        lRet:= False;
+        if (fOwner.AutoReconnectBehavior = sbAfterServerLocators)  or
+           (lAutoReconnectFailed and (fOwner.AutoReconnectBehavior = sbSwitchServerLocatorAfterFirstFailure)) then begin
+           fOwner.intChangeServerLocator(lIndex,lRet,e);
+        end;
+
+        if not lRet and Owner.AutoReconnect then begin
+           lRet := true;
+           lAutoReconnectFailed := True;
+        end;
+
+        if not lRet and ((fOwner.AutoReconnectBehavior = sbBeforeServerLocators) or
+          (not lAutoReconnectFailed and (fOwner.AutoReconnectBehavior = sbSwitchServerLocatorAfterFirstFailure)))then begin
+          fOwner.intChangeServerLocator(lIndex,lRet,e);
+        end;
+
+      end;
+    end;
+  end;
+  if RestartLoop then
+    fOwner.fState := scConnecting
+  else begin
+    fowner.fState := scNotConnected;
+    fOwner.fActive := false;
+    fOwner.fConnectEvent.ResetEvent;
+  end;
+end;
+
+procedure TROSynapseSCClientWorker.Idle;
+begin
+  IF fOwner.IdleTimeoutMinutes > 0 then begin
+    if Now > LastData + ((1.0 / 24 / 60) * fOwner.IdleTimeoutMinutes) then begin
+      Disconnect;
+      fSkipReconnect := true;
+    end;
+  end;
+
+end;
+
+procedure TROSynapseSCClientWorker.IncomingData(Id: Integer; aData: TStream);
+begin
+  fOwner.HasData(id, aData);
+end;
+
+procedure TROSynapseSCClientWorker.SetAckDetails(Id: Integer; Oke: Boolean;
+  ErrorNo: Integer);
+var
+  lList: TList;
+  i: Integer;
+  lReq: TROSynapseWaitingRequest;
+begin
+  if Oke then begin
+    inherited;
+    exit;
+  end;
+  lList := FOwner.fWaitingRequests.LockList;
+  try
+    lReq := nil;
+    for i := lList.Count -1 downto 0 do
+    begin
+      if TROSynapseWaitingRequest(lList[i]).Id = Id then
+      begin
+        lReq := TROSynapseWaitingRequest(lList[i]);
+        break;
+      end;
+    end;
+    if lReq = nil then
+      inherited
+    else begin
+      lReq.fResultErrorCode := ErrorNo;
+      lReq.Event.SetEvent;
+    end;
+  finally
+    fOwner.fWaitingRequests.UnlockList;
+  end;
+end;
+
+{ TROSynapseClientThread }
+
+constructor TROSynapseClientThread.Create(aChannel: TROSynapseSCClientWorker);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+  fChannel := aChannel;
+  FreeOnTerminate := false;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+procedure TROSynapseClientThread.Execute;
+var
+  lRet: Boolean;
+  fIndex: integer;
+  lAutoReconnectFailed: boolean;
+begin
+  fChannel.fOwner.fReconnectEvent.ResetEvent;
+  if (fChannel.Owner.AutoReconnectBehavior = sbBeforeServerLocators) then
+    fIndex := fChannel.Owner.intInitServerLocator
+  else
+    fIndex := -2;
+  lRet := true;
+  fConnecting := True;
+  lAutoReconnectFailed := False;
+  while lRet do begin
+    lRet := false;
+    try
+      fChannel.Connection.Connect(fChannel.fOwner.fHost, inttostr(fChannel.fOwner.fPort));
+      if fChannel.Connection.LastError <> 0 then raise ESynapseError.Create(fChannel.Connection.LastErrorDesc);
+      lAutoReconnectFailed := False;
+    except
+      on e: Exception do begin
+        // if autoreconnect is failed in 1st time, try to use ServerLocator
+        if (fChannel.Owner.AutoReconnectBehavior = sbAfterServerLocators)  or
+           (lAutoReconnectFailed and (fChannel.Owner.AutoReconnectBehavior = sbSwitchServerLocatorAfterFirstFailure)) then begin
+          if fIndex  = -2 then begin
+            fIndex := fChannel.Owner.intInitServerLocator;
+            lRet := True;
+          end
+          else
+           fChannel.fOwner.intChangeServerLocator(fIndex,lRet,e);
+        end;
+
+        if not lRet and fChannel.Owner.AutoReconnect and not fChannel.fOwner.InDestroyingState then begin
+           lRet := true;
+           lAutoReconnectFailed := True;
+           fChannel.fOwner.fReconnectEvent.WaitFor(fChannel.fOwner.fReconnectDelay);
+           fChannel.fOwner.fReconnectEvent.ResetEvent;
+        end;
+
+        if not lRet and ((fChannel.Owner.AutoReconnectBehavior = sbBeforeServerLocators) or
+          (not lAutoReconnectFailed and (fChannel.Owner.AutoReconnectBehavior = sbSwitchServerLocatorAfterFirstFailure)))then begin
+          if fIndex  = -2 then begin
+            fIndex := fChannel.Owner.intInitServerLocator;
+            lRet := True;
+          end
+          else
+            fChannel.fOwner.intChangeServerLocator(fIndex,lRet,e);
+        end;
+//        if assigned(fChannel.Owner.OnException) then fChannel.Owner.OnException(fChannel.Owner, e, lRet);
+        if (not lRet) or (not fChannel.Owner.Active) then begin //terminate execution if channel was deactivated
+          fConnecting := False;
+          exit;
+        end;
+      end;
+    end;
+  end;
+  fChannel.DoExecute;
+end;
+
+{ TROSynapseWaitingRequest }
+
+constructor TROSynapseWaitingRequest.Create(Id: Integer);
+begin
+  inherited Create;
+  fId := Id;
+  fEvent := TROEvent.Create(nil, true, false, '');
+  fFreeEvent := True;
+  fResultErrorCode := -1;
+end;
+
+constructor TROSynapseWaitingRequest.Create(Id: Integer; Ev: TROEvent);
+begin
+  inherited Create;
+  fId := Id;
+  fEvent := ev;
+  fResultErrorCode := -1;
+end;
+
+destructor TROSynapseWaitingRequest.Destroy;
+begin
+  fResultData.Free;
+  if fFreeEvent then
+    fEvent.Free;
+  inherited Destroy;
+end;
+
+{ TROSynapsePooledEvent }
+
+procedure TROSynapsePooledEvent.Callback(Caller: TROThreadPool; Thread: TThread);
+begin
+  if fOwner.fEventReceiver <> nil then
+  begin
+    fOwner.DecodeEventStream(fData);
+    {$IFDEF FPC}
+    if caller <> nil then fOwner.fEventReceiver.Dispatch(fData, Thread) else // for preventing warning in FPC
+    {$ENDIF}
+    fOwner.fEventReceiver.Dispatch(fData, Thread);
+  end;
+end;
+
+constructor TROSynapsePooledEvent.Create(aData: TStream;
+  aOwner: TROSynapseCustomSuperTCPChannel);
+begin
+  inherited Create;
+  fOwner := aOwner;
+  fData := aData;
+end;
+
+destructor TROSynapsePooledEvent.Destroy;
+begin
+  fData.Free;
+  inherited Destroy;
+end;
+
+{ TROSBEventTrigger }
+
+procedure TROSBEventTrigger.Callback(Caller: TROThreadPool;
+  aThread: TThread);
+begin
+  try
+    {$IFDEF FPC}
+    if Caller <> nil then TROSynapseClientThread(aThread).Synchronize(Execute) else // for preventing warning in FPC
+    {$ENDIF}
+    TROSynapseClientThread(aThread).Synchronize(Execute);
+  except
+    // exceptions cannot pass back to the pool
+  end;
+end;
+
+constructor TROSBEventTrigger.Create(aSender: TObject;
+  aEvent: TNotifyEvent);
+begin
+  inherited Create;
+  fSender := aSender;
+  fEvent := aEvent;
+end;
+
+procedure TROSBEventTrigger.Execute;
+begin
+  if assigned(fEvent) then
+    fEvent(fSender);
+end;
+
+initialization
+  RegisterTransportChannelClass(TROSynapseSuperTCPChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROSynapseSuperTCPChannel);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperTCPServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperTCPServer.pas
new file mode 100644
index 0000000..d704454
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROSynapseSuperTCPServer.pas	
@@ -0,0 +1,681 @@
+unit uROSynapseSuperTCPServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Indy Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  SysUtils, Classes, uROClasses, uROClient, uROClientIntf, uROServerIntf,
+  uROSessions, blcksock, uROServer{$IFDEF MSWINDOWS}, Windows{$ENDIF}, uROSynapseSCHelpers,
+  uROThreadPool, uROEventRepository, uROSynapseServerSocket;
+
+type
+  TROSynapseSCServerWorker = class;
+  TROSynapseConnectionEvent = procedure (aChannel: IROTransport; const aGuid: TGuid) of object;
+  TROSynapseCustomSuperTCPServer = class(TROServer)
+  private
+    fIndyServer: TROSynapseServerSocket;
+    fActive: Boolean;
+    fPort: Integer;
+    fAckWaitTimeout: Integer;
+    fMaxPackageSize: Integer;
+    fGuidToClientMap: TStringList;
+    fClients: TThreadList;
+    fOwnsThreadPool: Boolean;
+    fThreadPool: TROThreadPool;
+    fSkipAck: Boolean;
+    fEventRepository: TROEventRepository;
+    fBlockingEvents: Boolean;
+    fOnClientConnected: TROSynapseConnectionEvent;
+    fOnClientDisconnected: TROSynapseConnectionEvent;
+    fAutoRegisterSession: Boolean;
+    fOnMaxThreadLimitReached: TNotifyEvent;
+    procedure IntExecute(Sender: TObject; aSock: TTCPBlockSocket);
+    procedure SetThreadPool(const Value: TROThreadPool);
+    procedure SetEventRepository(const Value: TROEventRepository);
+    procedure UnregisterEventManagerInWorkers(const aEventManager: IROSessionsChangesListener);
+    procedure GetMaxThreads(Sender: TObject; var aMaxThreads: integer);
+    procedure DoMaxThreadLimitReached;
+  protected
+    function IntGetActive: Boolean; override;
+    procedure IntSetActive(const Value: Boolean); override;
+
+    procedure Loaded; override;
+    procedure HasData(Id: Integer; aClient: TROSynapseSCServerWorker; aData: TStream);
+
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+    function GetPort: Integer;override;
+    procedure SetPort(const Value: Integer);override;
+    function GetServerType: TROServerType; override;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+
+    property Port default 8095;
+    property AckWaitTimeout: Integer read fAckWaitTimeout write fAckWaitTimeout default 10000;
+    property MaxPackageSize: Integer read fMaxPackageSize write fMaxPackageSize default 10*1024*1024;
+    property SkipAck: Boolean read fSkipAck write fSkipAck default false;
+
+    property Server: TROSynapseServerSocket read fIndyServer;
+    property ThreadPool: TROThreadPool read fThreadPool write SetThreadPool;
+    property EventRepository: TROEventRepository read fEventRepository write SetEventRepository;
+    property BlockingEvents: Boolean read fBlockingEvents write fBlockingEvents default False;
+    property OnClientConnected: TROSynapseConnectionEvent read fOnClientConnected write fOnClientConnected;
+    property OnClientDisconnected: TROSynapseConnectionEvent read fOnClientDisconnected write fOnClientDisconnected;
+    property AutoRegisterSession: Boolean read fAutoRegisterSession write fAutoRegisterSession default true;
+    property OnMaxThreadLimitReached: TNotifyEvent read fOnMaxThreadLimitReached write fOnMaxThreadLimitReached;
+  end;
+
+  TROSynapseSuperTCPServer = class(TROSynapseCustomSuperTCPServer)
+  published
+    property Port;
+    property SkipAck;
+    property AckWaitTimeout;
+    property MaxPackageSize;
+    property EventRepository;
+    property BlockingEvents;
+    property OnClientConnected;
+    property OnClientDisconnected;
+    property DefaultResponse;
+    property AutoRegisterSession;
+    property OnMaxThreadLimitReached;
+  end;
+
+  TROSynapseSCServerWorker = class(TROSynSuperChannelWorker, IUnknown, IROTransport,
+  IROTCPTransport, IROActiveEventServer)
+  private
+    fOwner: TROSynapseCustomSuperTCPServer;
+    fEventManager: IROSessionsChangesListener;
+    fRefCount: Integer;
+  protected
+    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+    function GetClientAddress : string;
+    function GetTransportObject : TObject;
+    procedure IncomingData(Id: Integer; aData: TStream); override;
+    procedure Connected; override;
+    procedure Disconnected(var RestartLoop: Boolean); override;
+    procedure EventsRegistered(aSender : TObject; aClient: TGUID);
+    procedure DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+    function GetDefaultResponse: string; override;
+  public
+    constructor Create(aOwner: TROSynapseCustomSuperTCPServer; aConnection: TTCPBlockSocket);
+    destructor Destroy; override;
+
+    property Owner: TROSynapseCustomSuperTCPServer read fOwner;
+  end;
+  TROSynapseInvokerQueueItem = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fData: TStream;
+    fId: Integer;
+    fCaller: TROSynapseCustomSuperTCPServer;
+    FClient: TROSynapseSCServerWorker;
+  public
+    constructor Create(aCaller: TROSynapseCustomSuperTCPServer; aClient: TROSynapseSCServerWorker; Id: Integer; aData: TStream);
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+    destructor Destroy; override;
+  end;
+
+implementation
+uses
+  uROTypes;
+
+{ TROSynapseCustomSuperTCPServer }
+
+procedure TROSynapseCustomSuperTCPServer.Assign(Source: TPersistent);
+var
+  lSource: TROSynapseCustomSuperTCPServer;
+begin
+  inherited;
+  if Source is TROSynapseCustomSuperTCPServer then begin
+    lSource := TROSynapseCustomSuperTCPServer(Source);
+
+    AckWaitTimeout := lSource.AckWaitTimeout;
+    AutoRegisterSession := lSource.AutoRegisterSession;
+    BlockingEvents := lSource.BlockingEvents;
+    DefaultResponse := lSource.DefaultResponse;
+    EventRepository := lSource.EventRepository;
+    MaxPackageSize := lSource.MaxPackageSize;
+    OnClientConnected := lSource.OnClientConnected;
+    OnClientDisconnected := lSource.OnClientDisconnected;
+    OnMaxThreadLimitReached := lSource.OnMaxThreadLimitReached;
+    SkipAck := lSource.SkipAck;
+  end;
+end;
+
+constructor TROSynapseCustomSuperTCPServer.Create(aOwner: TComponent);
+begin                                                   
+  inherited Create(aOwner);
+  fClients := TThreadList.Create;
+  fPort := 8095;
+  AckWaitTimeout := 10000;
+  fMaxPackageSize := 10 * 1024 * 1024;
+  fIndyServer := TROSynapseServerSocket.Create;
+  fIndyServer.OnNewConnection := IntExecute;
+  fIndyServer.OnGetMaxThreads := GetMaxThreads;
+  fIndyServer.OnMaxThreadLimitReached := DoMaxThreadLimitReached;
+  fGuidToClientMap := TStringList.Create;
+  fGuidToClientMap.Sorted := true;
+  DefaultResponse := 'ROSC:Invalid connection string';
+  fAutoRegisterSession := True; 
+end;
+
+destructor TROSynapseCustomSuperTCPServer.Destroy;
+begin
+  Active := False;
+  fIndyServer.Active := False;
+  fIndyServer.Free;
+  fClients.Free;
+  fGuidToClientMap.Free;
+  if fOwnsThreadPool then
+    fThreadPool.Free;
+  inherited Destroy;
+end;
+
+procedure TROSynapseCustomSuperTCPServer.HasData(Id: Integer; aClient: TROSynapseSCServerWorker; aData: TStream);
+var
+  lItem: IROThreadPoolCallback;
+  lOrg: TROSynapseInvokerQueueItem;
+begin
+  lOrg := TROSynapseInvokerQueueItem.Create(Self, aClient, Id, aData);
+  lItem := lOrg;
+  try
+    fThreadPool.QueueItem(lItem);
+  except
+    aClient.SendError(Id, ScCmdNoAck_QueueFull);
+    lOrg.fData := nil; // caller will free it on exceptions
+    raise;
+  end;
+end;
+
+type
+  TSynapseSendEvent = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fStream: TROEventData;
+    fOwner: TROSynapseCustomSuperTCPServer;
+    fWorkerOverride: IROTransport;
+    fClientGuid: TGUID;
+    fSender: TROEventRepository;
+  protected
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+  public
+    constructor Create(aOwner: TROSynapseCustomSuperTCPServer; aClientGuid: TGUID; aSender: TROEventRepository; aData: TROEventData);
+    property WorkerOverride: IROTransport read fWorkerOverride write fWorkerOverride;
+
+    destructor Destroy; override;
+  end;
+
+procedure TROSynapseCustomSuperTCPServer.Notification(AComponent: TComponent; Operation: TOperation);
+var
+  lNew: IROSessionsChangesListener;
+begin
+  if (Operation = opRemove) then begin
+    if AComponent = fThreadPool then fThreadPool := nil;
+    if AComponent = fEventRepository then EventRepository := nil;
+    if Supports(AComponent, IROSessionsChangesListener, lNew) then try
+      UnregisterEventManagerInWorkers(lNew);
+    finally
+      lNew := nil;
+    end;
+  end;
+  inherited;
+end;
+
+procedure TROSynapseCustomSuperTCPServer.DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+var
+  i: Integer;
+  aref: IROSessionsChangesListener;
+  se: IROThreadPoolCallback;
+begin
+  fClients.LockList;
+  try
+    i := fGuidToClientMap.IndexOf(GUIDToString(aSessionReference));
+    if i = -1 then begin
+      if fEventRepository <> nil then begin
+        if Supports(fEventRepository, IROSessionsChangesListener, aref) then
+          aref.SessionsChangedNotification(aSessionReference, saRemoveActiveListener, nil);
+        fEventRepository.StoreEventData(EmptyGUID, Binary(anEventDataItem.Data), false, false, GUIDToString(aSessionReference));
+        if anEventDataItem.RemoveRef = 0 then anEventDataItem.Free;
+        exit;
+      end;
+    end;
+  finally
+    fClients.UnlockList;
+  end;
+  se := TSynapseSendEvent.Create(Self, aSessionReference, TROEventRepository(aSender), anEventDataItem);
+  if BlockingEvents then
+    se.Callback(fThreadPool, nil)
+  else
+    fThreadPool.QueueItem(se);
+end;
+
+procedure TROSynapseCustomSuperTCPServer.DoMaxThreadLimitReached;
+begin
+  if Assigned(fOnMaxThreadLimitReached) then fOnMaxThreadLimitReached(Self);
+end;
+
+procedure TROSynapseCustomSuperTCPServer.GetMaxThreads(Sender: TObject;
+  var aMaxThreads: integer);
+begin
+  if Assigned(fThreadPool) then aMaxThreads := fThreadPool.MaxThreads;  
+end;
+
+function TROSynapseCustomSuperTCPServer.GetPort: Integer;
+begin
+  Result := fPort;
+  if (Result = 0) and (fIndyServer.Active) then
+    Result := fIndyServer.Sock.GetLocalSinPort;
+
+end;
+
+function TROSynapseCustomSuperTCPServer.GetServerType: TROServerType;
+begin
+  Result := rstSuperTCP;
+end;
+
+procedure TROSynapseCustomSuperTCPServer.IntExecute(sender: TObject; aSock: TTCPBlockSocket);
+var
+  fChannel: TROSynapseSCServerWorker;
+begin
+  fChannel := TROSynapseSCServerWorker.Create(Self, aSock);
+  fChannel.MaxPackageSize:= Self.MaxPackageSize;
+  fClients.Add(fChannel);
+  try
+    fChannel.DoExecute;
+  finally
+    fClients.Remove(fChannel);
+    fChannel.Free;
+  end;
+end;
+
+function TROSynapseCustomSuperTCPServer.IntGetActive: Boolean;
+begin
+  Result := fActive;
+end;
+
+procedure TROSynapseCustomSuperTCPServer.IntSetActive(const Value: Boolean);
+begin
+  fActive := Value;
+  if ComponentState * [csDesigning, csLoading] = [] then
+  begin
+    if fThreadPool = nil then
+    begin
+      fThreadPool := TROThreadPool.Create(nil);
+      fOwnsThreadPool := true;
+    end;
+    fIndyServer.Active := false;
+    if fActive then
+    begin
+      fIndyServer.Port := fPort;
+      if fIndyServer.Port = 0 then fIndyServer.Sock.Family := SF_IP4;
+      fIndyServer.Active := true;
+    end;
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPServer.Loaded;
+begin
+  inherited;
+  IntSetActive(fActive);
+end;
+
+procedure TROSynapseCustomSuperTCPServer.SetEventRepository(
+  const Value: TROEventRepository);
+begin
+  if fEventRepository <> Value then begin
+    if fEventRepository <> nil then fEventRepository.RORemoveFreeNotification(Self);
+    fEventRepository := Value;
+    if fEventRepository <> nil then fEventRepository.ROFreeNotification(Self);
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPServer.SetPort(const Value: Integer);
+begin
+  fPort := Value;
+  if fActive then
+  begin
+    IntSetActive(False);
+    IntSetActive(True);
+  end;
+end;
+
+procedure TROSynapseCustomSuperTCPServer.SetThreadPool(const Value: TROThreadPool);
+begin
+  if fOwnsThreadPool then
+  begin
+    fOwnsThreadPool := false;
+    fThreadPool.Free;
+  end;
+  fThreadPool := Value;
+end;
+
+
+procedure TROSynapseCustomSuperTCPServer.UnregisterEventManagerInWorkers(
+  const aEventManager: IROSessionsChangesListener);
+var
+  lList: TList;
+  i: integer;
+begin
+  if (aEventManager <> nil) then begin
+    lList := fClients.LockList;
+    try
+      for I := lList.Count - 1 downto 0 do
+        if TROSynapseSCServerWorker(lList[i]).fEventManager = aEventManager then
+          TROSynapseSCServerWorker(lList[i]).fEventManager := nil;
+    finally
+      fClients.UnlockList;
+    end;
+  end;
+end;
+
+{ TROSynapseSCServerWorker }
+
+constructor TROSynapseSCServerWorker.Create(aOwner: TROSynapseCustomSuperTCPServer;
+  aConnection: TTCPBlockSocket);
+begin
+  fOwner := aOwner;
+  inherited Create(aConnection);
+  IsServer := true;
+  SkipAck := fOwner.Skipack;
+end;
+
+destructor TROSynapseSCServerWorker.Destroy;
+begin
+  while fRefCount > 0 do
+    Sleep(10); // we might have events still waiting.
+  inherited Destroy;
+end;
+
+function TROSynapseSCServerWorker.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+begin
+  if GetInterface(IID, Obj) then
+    Result := 0
+  else
+    Result := E_NOINTERFACE;
+end;
+
+function TROSynapseSCServerWorker._AddRef: Integer; stdcall;
+begin
+  result := InterlockedIncrement(fRefCount);
+end;
+
+function TROSynapseSCServerWorker._Release: Integer; stdcall;
+begin
+  result := InterlockedDecrement(fRefCount);
+end;
+
+function TROSynapseSCServerWorker.GetClientAddress : string;
+begin
+  Result := Connection.GetRemoteSinIP;
+end;
+
+function TROSynapseSCServerWorker.GetTransportObject : TObject;
+begin
+  Result := Self;
+end;
+
+procedure TROSynapseSCServerWorker.IncomingData(Id: Integer; aData: TStream);
+begin
+  fOwner.HasData(Id, Self, aData);
+end;
+
+procedure TROSynapseSCServerWorker.Connected;
+var
+  data, rs: Binary;
+  evd: TROEventData;
+  i, len: Longint;
+  fl: boolean;
+begin
+  Len:=0;
+  if assigned(fOwner.fOnClientConnected) then fOwner.fOnClientConnected(Self, ClientID);
+  fOwner.fClients.LockList;
+  try
+    i := fOwner.fGuidToClientMap.IndexOf(GUIDToString(ClientId));
+    if i = -1 then
+      fOwner.fGuidToClientMap.AddObject(GUIDToString(ClientId), Self)
+    else
+      fOwner.fGuidToClientMap.Objects[i] := Self;
+  finally
+    fOwner.fClients.UnlockList;
+  end;
+  if fOwner.fEventRepository <> nil then
+  begin
+    if fOwner.AutoRegisterSession then begin
+      fl := True;
+      fOwner.fEventRepository.AddSession(ClientID, Self);
+    end
+    else begin
+      fl := fOwner.fEventRepository.AddActiveListener(ClientID, Self);
+    end;
+    if fl then begin
+      rs := Binary.Create;
+      try
+        fOwner.fEventRepository.GetEventData(ClientID, rs);
+        rs.Position := 0;
+        if rs.Read(len, sizeof(len)) <> sizeof(len) then exit;
+        while true do begin
+          if rs.Read(len, sizeof(len)) <> sizeof(len) then break;
+          data := Binary.Create;
+          data.CopyFrom(rs, Len);
+          data.Position := 0;
+          evd := TROEventData.Create(data);
+          try
+            DispatchEvent(evd, ClientID, fOwner.fEventRepository);
+          finally
+            data.Free;
+          end;
+        end;
+      finally
+        rs.Free;
+      end;
+    end;
+  end;
+end;
+
+procedure TROSynapseSCServerWorker.Disconnected(var RestartLoop: Boolean);
+var
+  i: Integer;
+begin
+  if fEventManager <> nil then
+    fEventManager.SessionsChangedNotification(ClientID, saRemoveActiveListener, Self);
+  {$IFDEF FPC}
+  if RestartLoop then fOwner.fClients.LockList else // for preventing warnings in FPC
+  {$ENDIF}
+  fOwner.fClients.LockList;
+  try
+    i := fOwner.fGuidToClientMap.IndexOf(GUIDToString(ClientId));
+    if i <> -1 then
+    begin
+      if fOwner.fGuidToClientMap.Objects[i] = self then
+        fOwner.fGuidToClientMap.Delete(i);
+    end;
+  finally
+    fOwner.fClients.UnlockList;
+  end;
+  if assigned(fOwner.fOnClientDisconnected) then fOwner.fOnClientDisconnected(Self, ClientID);
+end;
+
+procedure TROSynapseSCServerWorker.EventsRegistered(aSender : TObject; aClient: TGUID);
+var
+  lNew : IROSessionsChangesListener;
+begin
+  Supports(aSender, IROSessionsChangesListener, lNew);
+  if (fEventManager <> nil) and (lNew <> fEventManager) then begin
+    fEventManager.SessionsChangedNotification(aClient, saRemoveActiveListener, Self);
+  end;
+  fEventManager := lNew;
+  if (lNew <> nil) then begin
+    if (aSender is TROComponent) then
+      TROComponent(aSender).ROFreeNotification(Owner)
+    else if (aSender is TComponent) then
+      TComponent(aSender).FreeNotification(Owner)
+  end;
+end;
+
+procedure TROSynapseSCServerWorker.DispatchEvent(anEventDataItem : TROEventData; aSessionReference : TGUID; aSender: TObject);
+var
+  se: TSynapseSendEvent;
+begin
+  se := TSynapseSendEvent.Create(fOwner, aSessionReference, TROEventRepository(aSender), anEventDataItem);
+  se.WorkerOverride := self;
+  if fOwner.BlockingEvents then begin
+    try
+    se.Callback(fOwner.ThreadPool, nil);
+    except
+    end;
+    se.Free;
+  end else
+    fOwner.ThreadPool.QueueItem(se);
+end;
+
+
+procedure TSynapseSendEvent.Callback(Caller: TROThreadPool; Thread: TThread);
+var
+  ms: TROConstantMemoryStream;
+  i: Integer;
+  fid: TGUID;
+  wak: IROSynapsePackageAck;
+  ass: IROActiveEventServer;
+  asv: IROValidatedSessionsChangesListener;
+  obj: TROSynapseSCServerWorker;
+  aRef: IROSessionsChangesListener;
+begin
+  if (Caller = nil) or (Thread = nil) then   obj := nil else // for preventing warnings in FPC
+  obj := nil;
+  fOwner.EncodeEventStream(fStream.Data);
+  ms := TROConstantMemoryStream.Create(TMemoryStream(fStream.Data));
+  if fStream is TRONamedEventData then
+    fid := TRONamedEventData(FStream).ID
+  else
+    fid := EmptyGUID;
+  try
+    try
+      fOwner.fClients.LockList;
+      try
+        i := fOwner.fGuidToClientMap.IndexOf(GUIDToString(fClientGuid));
+        if i = -1 then exit;
+        if fWorkerOverride <> nil then
+          obj := TROSynapseSCServerWorker(fWorkerOverride.GetTransportObject)
+        else
+          obj := TROSynapseSCServerWorker(fOwner.fGuidToClientMap.Objects[i]);
+        wak := obj.SendPackage(ms, 0);
+        if not Supports(obj, IROSessionsChangesListener, ass) then ass := nil;
+      finally
+        fOwner.fClients.UnlockList;
+      end;
+      TROSynapseSCServerWorker.WaitForAck(wak, fOwner.fAckWaitTimeout);
+      if Supports(fOwner.fEventRepository, IROValidatedSessionsChangesListener, asv) and not IsEqualGUID(fid, EmptyGUID) then
+        asv.EventSucceeded(fClientGuid, fid);
+
+    except
+      if fOwner.fEventRepository <> nil then begin
+        if Supports(fOwner.fEventRepository, IROSessionsChangesListener, aref) then
+          aref.SessionsChangedNotification(fClientGuid, saRemoveActiveListener, obj);
+        if IsEqualGUID(fid, EmptyGUID) or not Supports(fOwner.fEventRepository, IROValidatedSessionsChangesListener) then
+          fOwner.fEventRepository.StoreEventData(EmptyGUID, ms, false, false, GUIDToString(fClientGuid));
+        exit;
+      end;
+    end;
+  finally
+    ms.Free;
+  end;
+end;
+
+
+constructor TSynapseSendEvent.Create(aOwner: TROSynapseCustomSuperTCPServer; aClientGuid: TGUID; aSender: TROEventRepository; aData: TROEventData);
+begin
+  inherited Create;
+  fStream := aData;
+  fSender := aSender;
+  fClientGuid := aClientGuid;
+  fOwner := aOwner;
+end;
+
+destructor TSynapseSendEvent.Destroy;
+begin
+  if fStream.RemoveRef = 0 then
+    fStream.Free;
+  inherited Destroy;
+end;
+
+function TROSynapseSCServerWorker.GetDefaultResponse: string;
+begin
+  Result:= FOwner.DefaultResponse;
+end;
+
+{ TROSynapseInvokerQueueItem }
+
+procedure TROSynapseInvokerQueueItem.Callback(Caller: TROThreadPool; Thread: TThread);
+var
+  lResponse: TMemoryStream;
+  l: TList;
+  lClient: IROTransport;
+begin
+  {$IFDEF FPC}
+  if (Thread = nil) or (Caller = nil) then lResponse := TMemoryStream.Create else // for preventing warning in FPC
+  {$ENDIF}
+  lResponse := TMemoryStream.Create;
+  try
+    lClient := FClient;
+    try
+      fCaller.DispatchMessage(lClient, fData, lResponse);
+    finally
+      lClient := nil;
+    end;
+    lResponse.Seek(0, soFromBeginning);
+    l := fCaller.fClients.LockList;
+    try
+      if l.IndexOf(FClient) = -1 then exit;
+        FClient.BeginWriteLock;
+        InterlockedIncrement(FClient.fRefCount);
+    finally
+      fCaller.fClients.UnlockList;
+    end;
+    try
+      if lResponse.Size > FClient.MaxPackageSize then
+        FClient.SendError(fId, ScCmdNoAck_MsgTooLarge)
+      else
+        FClient.SendPackage(lResponse, fId).RemoveFromList; //  we're not going to wait
+    finally
+      InterlockedDecrement(fClient.fRefCount);
+      FClient.EndWriteLock;
+    end;
+  finally
+    lResponse.Free;
+  end;
+end;
+
+constructor TROSynapseInvokerQueueItem.Create(aCaller: TROSynapseCustomSuperTCPServer; aClient: TROSynapseSCServerWorker; Id: Integer; aData: TStream);
+begin
+  inherited Create;
+  fCaller := aCaller;
+  fId := Id;
+  fData := aData;
+  fClient := aClient;
+end;
+
+destructor TROSynapseInvokerQueueItem.Destroy;
+begin
+  fData.Free;
+  inherited Destroy;
+end;
+
+initialization
+  RegisterServerClass(TROSynapseSuperTCPServer);
+finalization
+  UnregisterServerClass(TROSynapseSuperTCPServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROThread.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROThread.pas
new file mode 100644
index 0000000..22c2afd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROThread.pas	
@@ -0,0 +1,226 @@
+unit uROThread;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  Classes, uROClasses;
+
+type
+  TROThread = class(TROInitializedThread)
+  private
+    {$IFDEF MSWINDOWS}
+    fName:string;
+    fFreeWaiting: TObject; // TROEvent
+    fIsTerminated: Boolean;
+    {$ENDIF MSWINDOWS}
+  protected
+    {$IFDEF MSWINDOWS}
+    procedure SetName(const iName:string);
+    property Name:string read fName;
+    procedure DoTerminate; override;
+    {$ENDIF MSWINDOWS}
+    procedure Execute; override;
+  public
+    constructor Create(iCreateSuspended:Boolean; const iName:string='');
+    procedure TerminateWaitFor; virtual;
+    {$IFDEF MSWINDOWS}
+    function WaitFor: DWord; reintroduce;
+    {$IFNDEF FPC}
+    procedure Free; reintroduce; // Windows limitation workaround
+    {$ENDIF}
+    {$ENDIF MSWINDOWS}
+  end;
+
+  TROServerCheckMessageThread = class(TROThread)
+  private
+    fActive: boolean;
+    fInterval:integer;
+    fEvent:TObject;
+    procedure SetActive(const Value: boolean);
+  private
+    fOwner:TComponent;
+  protected
+    procedure Execute; override;
+    procedure CheckForMessages; virtual; abstract;
+    property Owner:TComponent read fOwner;
+  public
+    constructor Create(aName:string; aOwner:TComponent; iInterval:integer); reintroduce;
+    destructor Destroy; override;
+    procedure TerminateWaitFor; override;
+    property Active:boolean read fActive write SetActive;
+  end;
+
+implementation
+
+uses
+  SysUtils;
+
+{$IFDEF MSWINDOWS}
+type
+  TThreadNameInfo = record
+    FType: LongWord;     // must be 0x1000
+    FName: PChar;        // pointer to name (in user address space)
+    FThreadID: LongWord; // thread ID (-1 indicates caller thread)
+    FFlags: LongWord;    // reserved for future use, must be zero
+  end;
+{$ENDIF}
+
+{ TROThread }
+
+constructor TROThread.Create(iCreateSuspended:Boolean; const iName:string='');
+begin
+  {$IFDEF MSWINDOWS}
+  fName := iName;
+  {$ENDIF MSWINDOWS}
+  inherited Create(iCreateSuspended)
+end;
+
+{$IFDEF MSWINDOWS}
+procedure TROThread.SetName(const iName:string);
+var
+  ThreadNameInfo: TThreadNameInfo;
+begin
+  if iName <> '' then begin
+    ThreadNameInfo.FType := $1000;
+    ThreadNameInfo.FName := PChar(iName);
+    ThreadNameInfo.FThreadID := $FFFFFFFF;
+    ThreadNameInfo.FFlags := 0;
+    try
+      //
+      // This exception is EXPECTED to be raised when creating a named thread in
+      // the debugger. You can safely ignore it and continue running the program.
+      //
+      RaiseException( $406D1388, 0, sizeof(ThreadNameInfo) div sizeof(LongWord), @ThreadNameInfo );
+    except
+    end;
+  end;
+end;
+{$ENDIF}
+
+procedure TROThread.Execute;
+begin
+  {$IFDEF RemObjects_SetThreadName}
+  SetName(fName);
+  {$ENDIF RemObjects_SetThreadName}
+end;
+
+procedure TROThread.TerminateWaitFor;
+begin
+  Terminate;
+  WaitFor();
+end;
+
+{$IFDEF MSWINDOWS}
+
+function TROThread.WaitFor: DWord;
+var
+  lEvent: TROEvent;
+begin
+  result := 0;
+  if fIsTerminated then exit;
+  lEvent := TROEvent.Create(nil, false, false, '');
+  try
+    fFreeWaiting := lEvent;
+    Terminate;
+    while Suspended do Suspended := False;
+    while not Terminated do lEvent.WaitFor(500);  //lEvent.WaitFor(INFINITE);
+    sleep(10); // make sure it's actually terminated
+    fFreeWaiting := nil;
+  finally
+    lEvent.Free;
+  end;
+end;
+
+{$IFNDEF FPC}
+procedure TROThread.Free;
+begin
+  if self = nil then exit;
+  if ModuleIsLib then begin
+    // Windows doesn't return from EndThread until DllMain, so waitfor never returns either.
+    if fIsTerminated then
+      Destroy
+    else begin
+      FreeOnTerminate := true;
+      WaitFor;
+    end;
+  end else
+    Destroy;
+end;
+{$ENDIF}
+
+procedure TROThread.DoTerminate;
+begin
+  inherited;
+  fIsTerminated := true;
+  if fFreeWaiting <> nil then
+    TROEvent(fFreeWaiting).SetEvent;
+end;
+{$ENDIF MSWINDOWS}
+
+
+{ TROServerCheckMessageThread }
+
+constructor TROServerCheckMessageThread.Create(aName:string; aOwner:TComponent; iInterval:integer);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False,aName);
+  {$ELSE}
+  inherited Create(True,aName);
+  {$ENDIF}
+  fInterval := iInterval;
+  fOwner := aOwner;
+  fEvent := TROEvent.Create(nil,false,false,'');
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TROServerCheckMessageThread.Destroy;
+begin
+  TerminateWaitFor();
+  FreeAndNil(fEvent);
+  inherited;
+end;
+
+procedure TROServerCheckMessageThread.TerminateWaitFor;
+begin
+  Suspended := False;
+  TROEvent(fEvent).SetEvent();
+  inherited;
+end;
+
+procedure TROServerCheckMessageThread.Execute;
+begin
+  inherited;
+  while not Terminated do begin
+    if not fActive then Suspended := True;
+    CheckForMessages();
+    if Terminated then break;
+    TROEvent(fEvent).WaitFor(fInterval*1000); { Interval is in seocnds, we need miliseconds. }
+  end;
+end;
+
+procedure TROServerCheckMessageThread.SetActive(const Value: boolean);
+begin
+  if fActive <> Value then begin
+    fActive := Value;
+    if Active then Suspended := False;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROThreadPool.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROThreadPool.pas
new file mode 100644
index 0000000..67160cf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROThreadPool.pas	
@@ -0,0 +1,321 @@
+unit uROThreadPool;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  SysUtils, Classes, {SyncObjs,}
+  uROClasses
+  {$IFDEF MSWINDOWS}, Windows{$ENDIF}
+  {$IFNDEF MSWINDOWS}, unixtype,baseunix, pthreads{$ENDIF}
+  ;
+
+type                                                         // syncobjs
+  TROSemaphore = class;
+  TROThreadPool = class;
+
+  IROThreadPoolCallback = interface
+  ['{0F3386BB-0B6E-4070-93D5-BAA5CD287608}']
+    procedure Callback(Caller: TROThreadPool; aThread: TThread);
+  end;
+
+  TROPooledThread = class(TROInitializedThread)
+  private
+    fOwner: TROThreadPool;
+  public
+    constructor Create(aOwner: TROThreadPool);
+    destructor Destroy; override;
+
+    procedure Execute; override;
+
+    procedure Synchronize(Method: TThreadMethod); // protected
+
+    procedure Stop;
+  end;
+
+  TROThreadPool = class(TComponent)
+  private
+    fMaxThreads,
+    fMaxQueue,
+    fPoolThreads,
+    fWorkingCount,
+    fThreadCount: Integer;
+    fSemaphore: TROSemaphore;
+    fQueue: TInterfaceList;
+    fThreads: TThreadList;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+
+    function GetCurrQueueSize: Integer;
+
+    procedure QueueItem(Callback: IROThreadPoolCallback);
+    procedure Assign(Source: TPersistent); override;
+  published
+    property MaxQueue: Integer read fMaxQueue write fMaxQueue;
+    property PoolThreads: Integer read fPoolThreads write fPoolThreads;
+    property MaxThreads: Integer read FMaxThreads write fMaxThreads;
+  end;
+
+  TROSemaphore = class
+  private
+{$IFNDEF MSWINDOWS}
+    fHandle: TSemaphore;
+    fFreed: Boolean;
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+    fHandle: THandle;
+{$ENDIF}
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    procedure CloseHandle;
+
+    procedure Release(Count: Integer); overload;
+    procedure Release; overload; 
+    function WaitFor(Timeout: Cardinal): Boolean;
+  end;
+
+
+implementation
+
+{ TROPooledThread }
+
+constructor TROPooledThread.Create(aOwner: TROThreadPool);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False);
+  {$ELSE}
+  inherited Create(True);
+  {$ENDIF}
+  FreeOnTerminate := True;
+  fOwner := aOwner;
+  fOwner.fThreads.Add(Self);
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TROPooledThread.Destroy;
+begin
+  Stop;
+  fOwner.fThreads.Remove(Self);
+  inherited Destroy;
+end;
+
+procedure TROPooledThread.Execute;
+var
+  lCurrentItem: IROThreadPoolCallback;
+  lUnk: IUnknown;
+begin
+  FreeOnTerminate := True;
+
+  while not Terminated do begin
+    if not fOwner.fSemaphore.WaitFor(Cardinal(-1)) then exit;
+    fOwner.fQueue.Lock;
+    try
+      if fOwner.fQueue.Count > 0 then begin
+        lUnk := fOwner.fQueue[0];
+        lCurrentItem := lUnk as IROThreadPoolCallback;
+        lUnk := nil; // delphi will keep a temp var in memory too long if we don't create it ourselves
+        fOwner.fQueue.Delete(0);
+      end
+      else
+        lCurrentItem := nil;
+    finally
+      fOwner.fQueue.Unlock;
+    end;
+
+    if lCurrentItem <> nil then begin
+      InterlockedIncrement(fOwner.fWorkingCount);
+      try
+        lCurrentItem.Callback(fOwner, Self);
+      except
+        // we cannot let exceptions escape
+      end;
+      InterlockedDecrement(fOwner.fWorkingCount);
+      lCurrentItem := nil;
+    end;
+  end;
+end;
+
+procedure TROPooledThread.Stop;
+begin
+  Terminate;
+end;
+
+procedure TROPooledThread.Synchronize(Method: TThreadMethod);
+begin
+  inherited Synchronize(Method);
+end;
+
+{ TROThreadPool }
+
+procedure TROThreadPool.Assign(Source: TPersistent);
+var
+  lSource: TROThreadPool;
+begin
+  inherited;
+  if Source is TROThreadPool then begin
+    lSource := TROThreadPool(Source);
+
+    MaxQueue := lSource.MaxQueue;
+    MaxThreads := lSource.MaxThreads;
+    PoolThreads := lSource.PoolThreads;
+  end;
+end;
+
+constructor TROThreadPool.Create(AOwner: TComponent);
+begin
+  inherited Create(aOwner);
+  fSemaphore := TROSemaphore.Create;
+  fQueue := TInterfaceList.Create;
+  fThreads := TThreadList.Create;
+  fMaxQueue := 50;
+  fMaxThreads := 10;
+  fPoolThreads := 5;
+end;
+
+destructor TROThreadPool.Destroy;
+var
+  i: Integer;
+  lList: TList;
+begin
+  lList := fThreads.LockList;
+  try
+    for i := lList.Count -1 downto 0 do
+      TROPooledThread(lList[i]).Stop;
+    fSemaphore.Release(lList.Count +1);
+  finally
+    fThreads.UnlockList;
+  end;
+
+  while true do begin
+    lList := fThreads.LockList;
+    try
+      if lList.Count = 0 then break;
+    finally
+      fThreads.UnlockList;
+    end;
+    Sleep(integer(50));
+  end;
+
+  fSemaphore.Free;
+  fThreads.Free;
+  fQueue.Free;
+  inherited Destroy;                        
+end;
+
+function TROThreadPool.GetCurrQueueSize: Integer;
+begin
+  result := fQueue.Count;
+end;
+
+procedure TROThreadPool.QueueItem(Callback: IROThreadPoolCallback);
+var
+  lUsage: Integer;
+begin
+  fQueue.Lock;
+  try
+    lUsage := fQueue.Count + fWorkingCount + 1;
+    if lUsage >= fMaxQueue * fMaxThreads then
+      raise EROException.Create('Not enough threads available for request');
+    if fThreadCount > fPoolThreads then lUsage := lUsage div 2; // we only need
+    if (lUsage >= fThreadCount) and (fThreadCount < fMaxThreads) then begin
+      fThreadCount := fThreadCount + 1;
+      fThreads.Add(TROPooledThread.Create(self));
+    end;
+    fQueue.Add(Callback);
+    fSemaphore.Release;
+  finally
+    fQueue.Unlock;
+  end;
+end;
+
+{ TROSemaphore }
+
+procedure TROSemaphore.CloseHandle;
+begin
+{$IFDEF MSWINDOWS}
+  if fHandle <> 0 then begin
+    Windows.CloseHandle(fHandle);
+    fHandle := 0;
+  end;
+{$ENDIF}
+{$IFNDEF MSWINDOWS}
+  if fFreed then exit;
+  fFreed := true;
+  sem_destroy(fHandle);
+{$ENDIF}
+end;
+
+constructor TROSemaphore.Create;
+begin
+  inherited Create;
+{$IFNDEF MSWINDOWS}
+  sem_init(fHandle,{$IFDEF FPC}0{$ELSE}false{$ENDIF}, 0);
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+  fHandle := CreateSemaphore(nil, 0, MaxInt -1, nil);
+{$ENDIF}
+end;
+
+destructor TROSemaphore.Destroy;
+begin
+  CloseHandle;
+  inherited;
+end;
+
+procedure TROSemaphore.Release(Count: Integer);
+begin
+{$IFDEF MSWINDOWS}
+  ReleaseSemaphore(fHandle, Count, nil);
+{$ENDIF}
+{$IFNDEF MSWINDOWS}
+  while Count > 0 do begin
+    Count := count -1;
+    Release;
+  end;
+{$ENDIF}
+end;
+
+procedure TROSemaphore.Release;
+begin
+{$IFDEF MSWINDOWS}
+  ReleaseSemaphore(fHandle, 1, nil);
+{$ENDIF}
+{$IFNDEF MSWINDOWS}
+  sem_Post(fHandle);
+{$ENDIF}
+end;
+
+function TROSemaphore.WaitFor(Timeout: Cardinal): Boolean;
+{$IFNDEF MSWINDOWS}
+var
+  inttimeout: Timespec;
+{$ENDIF}
+begin
+{$IFDEF MSWINDOWS}
+  result := WaitForSingleObject(fHandle, Timeout) = WAIT_OBJECT_0;
+{$ENDIF}
+{$IFNDEF MSWINDOWS}
+  inttimeout.tv_sec := fptime + (timeout div 1000);
+  inttimeout.tv_nsec := (timeout mod 1000);
+  result := sem_timedwait(fHandle, inttimeout) = 0;
+{$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROTypes.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROTypes.pas
new file mode 100644
index 0000000..616a075
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROTypes.pas	
@@ -0,0 +1,1156 @@
+unit uROTypes;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, TypInfo, 
+  uRODL, uROClasses, SysUtils;
+
+// begin from uROClasses
+const
+  rtInteger = uROClasses.rtInteger deprecated;
+  rtDateTime = uROClasses.rtDateTime deprecated;
+  rtDouble = uROClasses.rtDouble deprecated;
+  rtCurrency = uROClasses.rtCurrency deprecated;
+  rtWidestring = uROClasses.rtWidestring deprecated;
+  rtString = uROClasses.rtString deprecated;
+  rtInt64 = uROClasses.rtInt64 deprecated;
+  rtBoolean = uROClasses.rtBoolean deprecated;
+  rtVariant = uROClasses.rtVariant deprecated;
+  rtBinary = uROClasses.rtBinary deprecated;
+  rtXML = uROClasses.rtXML deprecated;
+  rtGuid = uROClasses.rtGuid deprecated;
+  rtDecimal = uROClasses.rtDecimal deprecated;
+  rtUTF8String = uROClasses.rtUTF8String deprecated;
+  rtXsDateTime = uROClasses.rtXsDateTime deprecated;
+  rtUserDefined = uROClasses.rtUserDefined deprecated;
+
+var
+  DataTypeNames: DataTypeNames_Array deprecated; //uROClasses.DataTypeNames;
+  DataTypeRemapping :DataTypeRemapping_Array deprecated;// uROClasses.DataTypeRemapping;
+
+type
+  TRODataType = uROClasses.TRODataType;
+  TRODataTypeMapping = uROClasses.TRODataTypeMapping;
+// end from uROClasses
+
+type
+     {$IFNDEF UNICODE}
+     UnicodeString = WideString;
+     {$ENDIF}
+
+     // Utf8String is already defined in system.pas and declared as "Utf8String = string;" in d6-bds2007 and as  "Utf8String = AnsiString;" in tiburon
+     {$IFDEF CBUILDER}
+     Utf8String = UTF8String;
+     {$ENDIF}
+     Guid = type string;
+     TGuidString = Guid;
+     Decimal = type Variant;
+     TDecimalVariant = Decimal;
+
+const
+      SimpleTypes = tkProperties;
+
+      PasFlagNames : array[TRODLParamFlag] of string =
+        ('const', 'out', 'var', 'result');
+
+      BoolStr : array[boolean] of string = ('false','true');
+
+type { Forwards }
+     TROComplexType = class;
+     TROComplexTypeClass = class of TROComplexType;
+
+     { TROComplexType }
+     //TROComplexType = class(TPersistent)
+     TROComplexType = class(TCollectionItem)
+     private
+       fFieldCount : integer;
+       fFieldList : PPropList;
+
+       function GetFieldCount: integer;
+       function GetFieldInfo(Index: integer): PTypeInfo;
+       function GetFieldName(Index: integer): string;
+       function GetContentAsXml: String;
+       function GetContentAsStrings: TStrings;
+       function GetContentAsString: String;
+
+     protected
+       procedure FreeInternalProperties; virtual;
+
+     public
+       constructor Create; reintroduce; overload; virtual;
+       constructor Create(aCollection : TCollection); overload; override;
+       procedure ReadComplex(ASerializer: TObject); virtual;
+       procedure WriteComplex(ASerializer: TObject); virtual;
+
+       destructor Destroy; override;
+
+       procedure GetFieldNames(aList : TStrings);
+
+       procedure SetFieldValue(const aFieldName : string; const aValue : Variant);
+       function GetFieldValue(const aFieldName : string) : Variant;
+
+       procedure SmartAssign(Source : TPersistent; TypeKinds: TTypeKinds = SimpleTypes);
+
+       procedure AssignTo(iDest:TPersistent); override;
+       procedure Assign(iSource:TPersistent); override;
+
+       class function GetAttributeCount: Integer; virtual;
+       class function GetAttributeName(aIndex: Integer): string; virtual;
+       class function GetAttributeValue(aIndex: Integer): string; virtual;
+
+       function Clone:TROComplexType;
+
+       property FieldName[Index : integer] : string read GetFieldName;
+       property FieldInfo[Index : integer] : PTypeInfo read GetFieldInfo;
+       property FieldCount : integer read GetFieldCount;
+       property ContentAsXml : String read GetContentAsXml;
+       property ContentAsString : String read GetContentAsString;
+     end;
+
+     { TROArray }
+     TROArray = class(TROComplexType)
+     private
+       function GetContentAsXml(): String;
+       function GetContentAsStrings(): TStrings;
+
+     protected
+       function GetCount : integer; virtual; abstract;
+
+     public
+       destructor Destroy; override;
+       class function GetItemType : PTypeInfo; virtual; {$IFNDEF DELPHI10UP}abstract;{$ENDIF}
+       class function GetItemClass : TClass; virtual;
+       class function GetItemSize : integer; virtual; {$IFNDEF DELPHI10UP}abstract;{$ENDIF}
+       function GetItemRef(Index : integer) : pointer; virtual; abstract;
+       procedure SetItemRef(Index: integer; Ref : pointer); virtual;
+       procedure Resize(ElementCount : integer); virtual; abstract;
+       procedure ReadComplex(ASerializer: TObject); override;
+       procedure WriteComplex(ASerializer: TObject); override;
+       procedure Delete(Index : integer); virtual; abstract;
+       procedure Clear; virtual; abstract;
+       function Clone: TROArray;
+
+       function Search(const aPropertyName : string;
+                       const aPropertyValue : Variant;
+                       StartFrom : integer = 0;
+                       Options : TROSearchOptions = [soIgnoreCase]) : TCollectionItem;
+       function GetIndex(const aPropertyName : string;
+                         const aPropertyValue : Variant;
+                         StartFrom : integer = 0;
+                         Options : TROSearchOptions = [soIgnoreCase]) : integer; virtual;
+
+       property Count : integer read GetCount;
+       property ContentAsXml: String read GetContentAsXml;
+     end;
+     TROArrayClass = class of TROArray;
+
+
+     Binary = uROClasses.TROBinaryMemoryStream; { Alias for the TMemoryStream type }
+     TROBinaryMemoryStream = uROClasses.TROBinaryMemoryStream;
+     BinaryClass = class of Binary;
+
+     {$IFDEF DELPHI10UP}
+     EROAbstractMethodCalled = class(EROException);
+     {$ENDIF}
+    { XsDateTime }
+    XsDateTime = class(TROComplexType)
+    private
+      fDateTime: TDateTime;
+      fTimeZoneOffset: Integer;
+      function GetWriteTimeZone: Boolean;
+      procedure SetWriteTimeZone(const Value: Boolean);
+    public
+      procedure Assign(iSource: TPersistent); override;
+      procedure ReadComplex(ASerializer: TObject); override;
+      procedure WriteComplex(ASerializer: TObject); override;
+      property WriteTimeZone: Boolean read GetWriteTimeZone write SetWriteTimeZone;
+
+      constructor Create(aDateTime: TDateTime = 0; aTimeZone: Integer = MaxInt);
+      {$IFDEF MSWINDOWS}
+      function AsLocalDateTime: TDateTime;
+      function AsUTCDateTime: TDateTime;
+      {$ENDIF}
+    published
+      property DateTime:TDateTime read fDateTime write fDateTime;
+      property TimeZoneOffset:Integer read fTimeZoneOffset write fTimeZoneOffset;
+    end;
+
+{$WARN SYMBOL_DEPRECATED OFF}
+function StrToDataType(const aString : string) : TRODataType; deprecated;
+{$WARN SYMBOL_DEPRECATED ON}
+procedure SmartAssign(aSource, aDestination : TPersistent; TypeKinds: TTypeKinds = SimpleTypes);
+
+function IsSimpleType(const aTypeName:string; aLibrary:TRODLLibrary):boolean;
+
+function IsStruct(var aTypeName : string; aLibrary : TRODLLibrary) : boolean;
+function IsArray(var aTypeName : string; aLibrary : TRODLLibrary) : boolean; overload;
+function IsArray(var aTypeName : string; aLibrary : TRODLLibrary; out oElementType:string) : boolean; overload;
+function IsEnum(var aTypeName : string; aLibrary : TRODLLibrary) : boolean;
+
+function IsImplementedAsClass(const aTypeName : string; aLibrary : TRODLLibrary) : boolean;
+function IsUserDefinedType(var aTypeName:string; aLibrary:TRODLLibrary):boolean;
+
+function GetFullyQualifiedTypeName(const aTypeName:string; aLibrary:TRODLLibrary; const iDefault:string):string;
+
+function IsInputFlag(Flag : TRODLParamFlag) : boolean;
+function IsOutputFlag(Flag : TRODLParamFlag) : boolean;
+
+procedure RegisterROClass(aComplexTypeClass : TROComplexTypeClass);
+procedure UnregisterROClass(aComplexTypeClass : TROComplexTypeClass);
+function FindROClass(const aClassName: string):  TROComplexTypeClass;
+function FindROArray(const anItemClassName: string):  TROArrayClass;
+function GetComplexTypes: TList;
+{$IFDEF MSWINDOWS}
+function GetUTCOffset: Integer;
+function LocalDateTimeToUtc(dt: TDateTime): TDateTime;
+function UtcDateTimeToLocal(dt: TDateTime): TDateTime;
+{$ENDIF}
+implementation
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  {$IFDEF REMOBJECTS_TRIAL}
+  Forms, Dialogs,
+  {$ENDIF REMOBJECTS_TRIAL}
+  Variants, uRORes, uROSerializer;
+
+var _ComplexTypes : TList;
+
+procedure RegisterROClass(aComplexTypeClass : TROComplexTypeClass);
+var clsname: string;
+begin
+  with _ComplexTypes do
+    while (IndexOf(aComplexTypeClass)=-1) do begin
+      clsname := aComplexTypeClass.ClassName;
+
+      if GetClass(clsname) <> nil then
+        RaiseError(err_ClassAlreadyRegistered, [clsname]);
+
+      Add(aComplexTypeClass);
+    end;
+end;
+
+procedure UnregisterROClass(aComplexTypeClass : TROComplexTypeClass);
+begin
+  _ComplexTypes.Remove(aComplexTypeClass);
+end;
+
+function FindROClass(const aClassName: string): TROComplexTypeClass;
+var i: Integer;
+begin
+  result := NIL;
+
+  with _ComplexTypes do
+    for i := 0 to (Count-1) do begin
+      if (CompareText(TClass(Items[i]).ClassName, aClassName)=0) then begin
+        result := TROComplexTypeClass(Items[I]);
+        Exit;
+      end;
+    end;
+end;
+
+function FindROArray(const anItemClassName: string):  TROArrayClass;
+var i: Integer;
+    itmn, cn : string;
+begin
+  result := NIL;
+
+  with _ComplexTypes do
+    for i := 0 to (Count-1) do begin
+      cn := TROComplexTypeClass(Items[i]).ClassParent.ClassName;
+      if (cn='TROArray') then begin
+        itmn := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(TROArrayClass(Items[i]).GetItemType^.Name);
+        if (CompareText(itmn, anItemClassName)=0) then begin
+          result := TROArrayClass(Items[I]);
+          Exit;
+        end;
+      end;
+  end;
+end;
+
+function GetComplexTypes: TList;
+begin
+  result := _ComplexTypes;
+end;
+
+procedure SmartAssign(aSource, aDestination : TPersistent; TypeKinds: TTypeKinds = SimpleTypes);
+var props : PPropList;
+    cnt, i : integer;
+    subsource, subdest : TPersistent;
+    lName: String;
+begin
+  cnt := GetTypeData(aSource.ClassInfo).PropCount;
+  if (cnt=0) then Exit;
+  {$IFDEF FPC}
+  Props := nil;
+  {$ENDIF}
+  GetMem(props, cnt*SizeOf(PPropInfo));
+  try
+    cnt := GetPropList(aSource.ClassInfo, TypeKinds, props);
+
+    for i := 0 to (cnt-1) do begin
+      with props^[i]^ do begin
+        lName := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(Name);
+        if (PropType^.Kind=tkClass) then begin
+          subdest := TPersistent(GetObjectProp(aDestination, lName));
+          if (subdest=NIL) then Continue;
+
+          subsource := TPersistent(GetObjectProp(aSource, lName)); // RO properties are necessarily TPersistents
+          if (subsource<>NIL)
+            then subdest.Assign(subsource);
+        end
+        else SetPropValue(aDestination, lName, GetPropValue(aSource, lName, FALSE));
+      end;
+    end;
+  finally
+    FreeMem(props, cnt*SizeOf(PPropInfo));
+  end;
+end;
+
+{$WARN SYMBOL_DEPRECATED OFF}
+function StrToDataType(const aString : string) : TRODataType;
+begin
+  Result := uROClasses.StrToDataType(aString);
+end;
+{$WARN SYMBOL_DEPRECATED ON}
+
+function IsInputFlag(Flag : TRODLParamFlag) : boolean;
+begin
+  result := Flag in [fIn, fInOut]
+end;
+
+function IsOutputFlag(Flag : TRODLParamFlag) : boolean;
+begin
+  result := Flag in [fOut, fInOut, fResult]
+end;
+
+function IsSimpleType(const aTypeName:string; aLibrary:TRODLLibrary):boolean;
+{var dt : TRODataType;}
+begin
+  result := not IsImplementedAsClass(aTypeName,aLibrary);
+  {for dt := Low(DataTypeNames) to High(DataTypeNames) do begin
+    result := (CompareText(aTypeName, DataTypeNames[dt])=0);
+    if result then Break;
+  end;}
+end;
+
+function IsUserDefinedType(var aTypeName:string; aLibrary:TRODLLibrary):boolean;
+begin
+  result := IsStruct(aTypeName, aLibrary) or
+            IsEnum(aTypeName, aLibrary) or
+            IsArray(aTypeName, aLibrary);
+end;
+
+function GetFullyQualifiedTypeName(const aTypeName:string; aLibrary:TRODLLibrary; const iDefault:string):string;
+var i : integer;
+begin
+  for i := 0 to (aLibrary.Count-1) do
+    with aLibrary.Items[i] do
+      if (CompareText(aLibrary.Items[i].Info.Name, aTypeName)=0) then begin
+        if IsFromUsedRodl then
+          result := LocatedInRodlUse.LoadedRodlLibraryName + '_Intf.' + Info.Name
+        else
+          result := iDefault+'.'+Info.Name;
+        exit;
+      end;
+  result := iDefault+'.'+aTypeName;
+end;
+
+function IsStruct(var aTypeName : string; aLibrary : TRODLLibrary) : boolean;
+var i : integer;
+begin
+  result := FALSE;
+  for i := 0 to (aLibrary.StructCount-1) do
+    if (CompareText(aLibrary.Structs[i].Info.Name, aTypeName)=0) then begin
+      aTypeName := aLibrary.Structs[i].Info.Name;
+      result := TRUE;
+      Exit;
+    end
+end;
+
+function IsEnum(var aTypeName : string; aLibrary : TRODLLibrary) : boolean;
+var i : integer;
+begin
+  result := FALSE;
+  for i := 0 to (aLibrary.EnumCount-1) do
+    if (CompareText(aLibrary.Enums[i].Info.Name, aTypeName)=0) then begin
+      aTypeName := aLibrary.Enums[i].Info.Name;
+      result := TRUE;
+      Exit;
+    end
+end;
+
+function IsArray(var aTypeName : string; aLibrary : TRODLLibrary) : boolean;
+var i : integer;
+begin
+  result := FALSE;
+  for i := 0 to (aLibrary.ArrayCount-1) do
+    if (CompareText(aLibrary.Arrays[i].Info.Name, aTypeName)=0) then begin
+      aTypeName := aLibrary.Arrays[i].Info.Name;
+      result := TRUE;
+      Exit;
+    end
+end;
+
+function IsArray(var aTypeName : string; aLibrary : TRODLLibrary; out oElementType:string) : boolean;
+var i : integer;
+begin
+  result := FALSE;
+  for i := 0 to (aLibrary.ArrayCount-1) do
+    if (CompareText(aLibrary.Arrays[i].Info.Name, aTypeName)=0) then begin
+      oElementType := aLibrary.Arrays[i].ElementType;
+      aTypeName := aLibrary.Arrays[i].Info.Name;
+      result := TRUE;
+      Exit;
+    end
+end;
+
+
+function IsImplementedAsClass(const aTypeName:string; aLibrary:TRODLLibrary):boolean;
+var
+  lTypeName:string;
+begin
+  lTypeName := aTypeName;
+  result := (CompareText(lTypeName, uROClasses.DataTypeNames[uROClasses.rtBinary]) = 0) or //'Binary'
+            (CompareText(lTypeName, uROClasses.DataTypeNames[uROClasses.rtXsDateTime]) = 0) or //XsDateTime
+            IsStruct(lTypeName, aLibrary) or
+            IsArray(lTypeName, aLibrary);
+end;
+
+{ TROComplexType }
+
+procedure TROComplexType.Assign(iSource:TPersistent);
+begin
+  if not (iSource is TROComplexType) then inherited Assign(iSource);
+{
+  if not (iSource.InheritsFrom(ClassType)) then
+    inherited Assign(iSource);
+}
+end;
+
+procedure TROComplexType.AssignTo(iDest: TPersistent);
+begin
+  inherited;
+end;
+
+function TROComplexType.Clone: TROComplexType;
+begin
+  Result := ClassType.Create() as TROComplexType;
+  Result.Assign(self);
+end;
+
+constructor TROComplexType.Create;
+begin
+{
+  inherited Create(NIL);
+  fFieldCount := -1;
+  fFieldList := NIL;
+}
+  Create(nil);  
+end;
+
+constructor TROComplexType.Create(aCollection: TCollection);
+begin
+  inherited Create(aCollection);
+  fFieldCount := -1;
+  fFieldList := NIL;
+end;
+
+destructor TROComplexType.Destroy;
+begin
+  FreeInternalProperties;
+
+  if (fFieldCount<>-1) and (fFieldList<>NIL)
+    then FreeMem(fFieldList, fFieldCount*SizeOf(PPropInfo));
+
+  inherited;
+end;
+
+procedure TROComplexType.FreeInternalProperties;
+var props : PPropList;
+    cnt, i : integer;
+    sub : TObject;
+begin
+  cnt := GetTypeData(ClassInfo).PropCount;
+  if (cnt=0) then Exit;
+  {$IFDEF FPC}
+  props := nil;
+  {$ENDIF}
+  GetMem(props, cnt*SizeOf(PPropInfo));
+  try
+    cnt := GetPropList(ClassInfo, [tkClass], props);
+
+    for i := 0 to (cnt-1) do begin
+      with props^[i]^ do
+        if (PropType^.Kind=tkClass) then begin
+          sub := GetObjectProp(Self, {$IFDEF UNICODE}UTF8ToString{$ENDIF}(Name));
+          sub.Free;
+        end;
+    end;
+  finally
+    FreeMem(props, cnt*SizeOf(PPropInfo));
+  end;
+end;
+
+function TROComplexType.GetFieldCount: integer;
+begin
+  if (fFieldCount=-1) then begin
+    fFieldCount := GetTypeData(ClassInfo).PropCount;
+    if (fFieldCount>0) then begin
+      GetMem(fFieldList, fFieldCount*SizeOf(PPropInfo));
+      GetPropList(PTypeInfo(ClassInfo), tkProperties, fFieldList);
+    end;
+  end;
+
+  result := fFieldCount;
+end;
+
+function TROComplexType.GetFieldInfo(Index: integer): PTypeInfo;
+begin
+  result := NIL;
+  if (Index<FieldCount)
+    then result := fFieldList[Index]^.PropType{$IFNDEF FPC}^{$ENDIF};
+end;
+
+function TROComplexType.GetFieldName(Index: integer): string;
+begin
+  if (Index<FieldCount) then
+    result := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(fFieldList^[Index]^.Name)
+  else
+    Result := '';
+end;
+
+// AlexK: 0001837: Contents logging for TROComplexType items
+function TROComplexType.GetContentAsStrings: TStrings;
+var
+  fieldNames: TStringList;
+  i: integer;
+  typeKind: TTypeKind;
+  subItem: TROComplexType;
+  tmpStr: TStrings;
+
+    function makeIndent(value: String): String; overload;
+  begin
+    Result := StringOfChar(' ', 2) + value;
+  end;
+
+  function makeIndent(indent: integer; value: String): String; overload;
+  begin
+    Result := StringOfChar(' ', 2*indent) + value;
+  end;
+
+  function makeIndent(value: TStrings): TStrings; overload;
+  var i: Integer;
+  begin
+    for i := 0 to value.count - 1 do
+      value[i] := makeindent(value[i]);
+    result := value;
+  end;
+
+  function makeIndent(indent: integer; value: TStrings): TStrings; overload;
+  var i: Integer;
+  begin
+    for i := 0 to value.count - 1 do
+      value[i] := makeindent(indent, value[i]);
+    result := value;
+  end;
+
+
+begin
+  result := TStringList.Create();
+  fieldNames := TStringList.Create();
+
+  Self.GetFieldNames(fieldNames);
+  try
+    result.Add(Format('structure %s', [Self.ClassName]));
+    for i := 0 to Self.FieldCount - 1 do begin
+      typeKind := Self.GetFieldInfo(i)^.Kind;
+      if typeKind <> tkClass then begin
+        result.Add(makeIndent(Format('field%d %s: %s = %s',[
+          i + 1,fieldNames[i],Self.GetFieldInfo(i)^.Name,
+          VarToStr(Self.GetFieldValue(fieldNames[i]))])));
+      end
+      else begin
+        subItem := TROComplexType(GetObjectProp(Self, fieldNames[i], TROComplexType));
+        if not Assigned(subItem) then continue;
+        if (subItem is TROArray) then begin
+          result.Add(makeIndent(Format('field%d %s',[i + 1, fieldNames[i]])));
+          tmpStr := (subItem as TROArray).GetContentAsStrings();
+          try
+            result.AddStrings(makeIndent(2, tmpStr));
+          finally
+           tmpStr.Free;
+          end;
+          result.Add(makeIndent('end'));
+        end else begin
+          result.Add(makeIndent(Format('field%d %s',[i + 1, fieldNames[i]])));
+          tmpStr := (subItem as TROComplexType).GetContentAsStrings();
+          try
+            result.AddStrings(makeIndent(2, tmpStr));
+          finally
+            tmpStr.Free;
+          end;
+          result.Add(makeIndent('end'));
+        end;
+      end;
+    end;
+    result.Add('end');// Structure
+  finally
+    fieldNames.Free();
+  end;
+end;
+
+function TROComplexType.GetContentAsString: String;
+var sl:TStrings;
+begin
+  sl := Self.GetContentAsStrings();
+  try
+    result :=  sl.Text;
+  finally
+    sl.Free;
+  end;
+end;
+
+function TROComplexType.GetContentAsXml: String;
+var
+  fieldNames: TStringList;
+  i: integer;
+  typeKind: TTypeKind;
+  subItem: TROComplexType;
+begin
+  fieldNames := TStringList.Create();
+
+  Self.GetFieldNames(fieldNames);
+  try
+      result := Format('<struct name=%s>', [Self.ClassName]);
+      for i := 0 to Self.FieldCount - 1 do begin
+        typeKind := Self.GetFieldInfo(i)^.Kind;
+        if typeKind <> tkClass then begin
+
+          result := result +
+            Format('<field name=%s type=%s>%s</field>',
+              [fieldNames[i], Self.GetFieldInfo(i)^.Name, VarToStr(Self.GetFieldValue(fieldNames[i]))]
+            );
+
+
+        end else begin
+          subItem := TROComplexType(
+            GetObjectProp(
+              Self,
+              fieldNames[i],
+              TROComplexType
+            )
+          );
+
+          if not Assigned(subItem) then continue;
+          if (subItem is TROArray) then begin
+
+            result := result +
+              Format('<field name=%s type=%s>%s</field>',
+                [
+                  fieldNames[i],
+                  Self.GetFieldInfo(i)^.Name,
+                  (subItem as TROArray).ContentAsXml
+                ]
+              );
+
+
+          end else
+
+            result := result +
+              Format('<field name=%s type=%s>%s</field>',
+                [
+                  fieldNames[i],
+                  Self.GetFieldInfo(i)^.Name,
+                  (subItem as TROComplexType).GetContentAsXml()
+                ]
+              );
+        end;
+      end;
+      result := result + '</struct>';
+
+  finally
+    fieldNames.Free();
+  end;
+end;
+
+procedure TROComplexType.GetFieldNames(aList: TStrings);
+var count:    integer;
+    data:     PTypeData;
+    i:        integer;
+    info:     PTypeInfo;
+    propList: PPropList;
+begin
+  aList.Clear;
+
+  info := ClassInfo;
+  data := GetTypeData(info);
+  {$IFDEF FPC}
+  propList := nil;
+  {$ENDIF}
+  GetMem(propList, data^.PropCount * SizeOf(PPropInfo));
+  try
+    count := GetPropList(info, tkProperties,  propList);
+
+    for i := 0 to (count-1) do aList.Add({$IFDEF UNICODE}UTF8ToString{$ENDIF}(propList^[i]^.Name));
+
+  finally
+    FreeMem(propList, data^.PropCount * SizeOf(PPropInfo));
+  end;
+end;
+
+function TROComplexType.GetFieldValue(const aFieldName: string): Variant;
+begin
+  if (aFieldName<>'') then result := GetPropValue(Self, aFieldName)
+                      else result := '';
+end;
+
+procedure TROComplexType.SetFieldValue(const aFieldName: string;
+  const aValue: Variant);
+begin
+  if (aFieldName<>'')
+    then SetPropValue(Self, aFieldName, aValue);
+end;
+
+procedure TROComplexType.SmartAssign(Source: TPersistent;
+  TypeKinds: TTypeKinds);
+begin
+  uROTypes.SmartAssign(Source, Self, TypeKinds);
+end;
+
+
+
+procedure TROComplexType.ReadComplex(ASerializer: TObject);
+begin
+  ReadObjectFromSerializer(TROSerializer(ASerializer),Self);
+end;
+
+procedure TROComplexType.WriteComplex(ASerializer: TObject);
+begin
+  WriteObjectToSerializer(TROSerializer(ASerializer),Self);
+end;
+
+class function TROComplexType.GetAttributeCount: Integer;
+begin
+  result := 0;
+end;
+
+class function TROComplexType.GetAttributeName(aIndex: Integer): string;
+begin
+  {$IFDEF FPC}
+  if aIndex = 0 then result := '' else // for preventing warning in FPC
+  {$ENDIF}
+  result := '';
+end;
+
+class function TROComplexType.GetAttributeValue(aIndex: Integer): string;
+begin
+  {$IFDEF FPC}
+  if aIndex = 0 then result := '' else // for preventing warning in FPC
+  {$ENDIF}
+  result := '';
+end;
+
+{ TROArray }
+destructor TROArray.Destroy;
+begin
+  Clear;
+
+  inherited;
+end;
+
+function TROArray.Clone: TROArray;
+begin
+  Result := ClassType.Create() as TROArray;
+  Result.Assign(self);
+end;
+
+class function TROArray.GetItemClass : TClass;
+begin
+  result := nil;
+end;
+
+{$IFDEF DELPHI10UP}
+class function TROArray.GetItemType : PTypeInfo;
+begin
+  raise EROAbstractMethodCalled.Create('Abstract method called: TROArray.GetItemType.');
+end;
+
+class function TROArray.GetItemSize : integer;
+begin
+  raise EROAbstractMethodCalled.Create('Abstract method called: TROArray.GetItemSize.');
+end;
+{$ENDIF DELPHI10UP}
+
+procedure TROArray.SetItemRef(Index: integer; Ref: pointer);
+begin
+  { NOOP. MUST be overwritten for arrays of non-simple types }
+end;
+
+function TROArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+var i : integer;
+    val : Variant;
+    curritem : TObject;
+begin
+  result := -1;
+
+  for i := StartFrom to (Count-1) do begin
+    curritem := GetItemRef(i);
+    if (curritem=NIL) then Continue;
+
+    val := GetPropValue(curritem, aPropertyName, FALSE);
+
+    if (soIgnoreCase in Options) then begin
+      if (SameText(VarToStr(val), VarToStr(aPropertyValue))) then begin
+        result := i;
+        Exit;
+      end;
+    end
+    else begin
+      if (val=aPropertyValue) then begin
+        result := i;
+        Exit;
+      end;
+    end;
+  end;
+end;
+
+function TROArray.GetContentAsXml(): String;
+var
+  i: integer;
+  pPtr: Pointer;
+  iTypeInfo: PTypeInfo;
+  s: String;
+begin
+
+    iTypeInfo:= Self.GetItemType;
+    result := Format('<array name=%s type=%s>', [Self.ClassName, iTypeInfo.Name]);
+    s := Self.ClassName;
+    if (s = 'StringArrayField') then begin
+    end;
+    for i:=0 to Self.Count - 1 do begin
+      pPtr:= Self.GetItemRef(i);
+      case iTypeInfo.Kind of
+        {$IFDEF UNICODE}
+        tkUString:
+          result := result + Format('<item id=%d>%s</item>', [i + 1, UnicodeString(pPtr^)]);
+        {$ENDIF}
+        tkWString:
+          result := result + Format('<item id=%d>%s</item>', [i + 1, WideString(pPtr^)]);
+        tkInteger:
+          result := result + Format('<item id=%d>%d</item>', [i + 1, Integer(pPtr^)]);
+        {$IFDEF FPC}tkAString,{$ENDIF}
+        tkString,
+        tkLString:
+          result := result + Format('<item id=%d>%s</item>', [i + 1, AnsiString(pPtr^)]);
+        tkClass: begin
+          if TObject(pPtr) is TROArray then begin
+            result := result + Format('<item id=%d>%s</item>', [i + 1, TROArray(pPtr).ContentAsXml]);
+          end else begin
+            if (TObject(pPtr) is TROComplexType) then begin
+              result := result + Format('<item id=%d>%s</item>', [i + 1, (TObject(pPtr) as TROComplexType).ContentAsXml]);
+            end;
+          end;
+        end;
+        // other kind of tkxxx should be implemented
+      end;
+    end;
+    result := result + '</array>';
+end;
+
+function TROArray.GetContentAsStrings(): TStrings;
+var
+  i: integer;
+  pPtr: Pointer;
+  iTypeInfo: PTypeInfo;
+
+  function makeIndent(value: String): String; overload;
+  begin
+    Result := StringOfChar(' ', 2) + value;
+  end;
+
+  function makeIndent(indent: integer; value: String): String; overload;
+  begin
+    Result := StringOfChar(' ', 2*indent) + value;
+  end;
+
+  function makeIndent(value: TStrings): TStrings; overload;
+  var i: Integer;
+  begin
+    for i := 0 to value.count - 1 do
+      value[i] := makeindent(value[i]);
+    result := value;
+  end;
+
+  function makeIndent(indent: integer; value: TStrings): TStrings; overload;
+  var i: Integer;
+  begin
+    for i := 0 to value.count - 1 do
+      value[i] := makeindent(indent, value[i]);
+    result := value;
+  end;
+
+var
+  tmpstr: TStrings;
+begin
+    result := TStringList.Create();
+    iTypeInfo:= Self.GetItemType;
+    result.Add(Format('%s:%s', [Self.ClassName, iTypeInfo.Name]));
+    for i:=0 to Self.Count - 1 do begin
+      pPtr:= Self.GetItemRef(i);
+      case iTypeInfo.Kind of
+        {$IFDEF UNICODE}
+        tkUString:
+          result.Add(makeIndent(Format('item%d=%s', [i + 1, UnicodeString(pPtr^)])));
+        {$ENDIF}
+
+        tkWString:
+          result.Add(makeIndent(Format('item%d=%s', [i + 1, WideString(pPtr^)])));
+
+        tkInteger:
+          result.Add(makeIndent(Format('item%d=%d', [i + 1, Integer(pPtr^)])));
+
+        {$IFDEF FPC}tkAString,{$ENDIF}
+        tkString,
+        tkLString:
+          result.Add(makeIndent(Format('item%d=%s', [i + 1, AnsiString(pPtr^)])));
+
+        tkFloat:
+          result.Add(makeIndent(Format('item%d=%f', [i + 1, Double(pPtr^)])));
+
+        tkChar:
+           result.Add(makeIndent(Format('item%d=%s', [i + 1, String(pPtr^)]))); // ????
+
+        tkClass: begin
+          if TObject(pPtr) is TROArray then begin
+            result.Add(makeIndent(Format('item%d=array1', [i])));
+            tmpstr := TROArray(pPtr).GetContentAsStrings;
+            try
+              result.AddStrings(makeIndent(2, tmpstr));
+            finally
+              tmpstr.Free;
+            end;
+          end else begin
+            if (TObject(pPtr) is TROComplexType) then begin
+              result.Add(makeIndent(Format('item%d=structure1', [i])));
+              tmpstr := (TObject(pPtr) as TROComplexType).GetContentAsStrings;
+              try
+                result.AddStrings(makeIndent(2,tmpstr));
+              finally
+                tmpstr.Free;
+              end;
+            end;
+          end;
+        end;
+        // other kind of tkxxx should be implemented
+      end;
+    end;
+end;
+
+function TROArray.Search(const aPropertyName : string;
+  const aPropertyValue : Variant; StartFrom : integer = 0;
+  Options : TROSearchOptions = [soIgnoreCase]) : TCollectionItem;
+var idx : integer;
+begin
+  idx := GetIndex(aPropertyName, aPropertyValue, StartFrom, Options);
+  if (idx>=0)
+    then result := GetItemRef(idx)
+    else result := NIL;
+end;
+
+
+procedure TROArray.ReadComplex(ASerializer: TObject);
+var
+  i : integer;
+  itemref : pointer;
+begin
+  inherited;
+  if (GetItemClass<>NIL) then begin
+    for i := 0 to (Count-1) do begin
+      itemref := NIL;
+      TROSerializer(ASerializer).Read(TROSerializer(ASerializer).GetArrayElementName(GetItemType, itemref), GetItemType, itemref, i);
+      SetItemRef(i, itemref);
+    end;
+  end
+  else begin
+    for i := 0 to (Count-1) do begin
+      itemref := GetItemRef(i);
+      TROSerializer(ASerializer).Read(TROSerializer(ASerializer).GetArrayElementName(GetItemType, itemref), GetItemType, itemref^, i);
+    end;
+  end;
+end;
+
+procedure TROArray.WriteComplex(ASerializer: TObject);
+var
+  i : integer;
+  itemref : pointer;
+begin
+  inherited;
+  if (GetItemClass<>NIL) then begin
+    for i := 0 to (Count-1) do begin
+      itemref := GetItemRef(i);
+      TROSerializer(ASerializer).Write(TROSerializer(ASerializer).GetArrayElementName(GetItemType, itemref), GetItemType, itemref, i);
+    end;
+  end
+  else begin
+    for i := 0 to (Count-1) do begin
+      itemref := GetItemRef(i);
+      TROSerializer(ASerializer).Write(TROSerializer(ASerializer).GetArrayElementName(GetItemType, itemref), GetItemType, itemref^, i);
+    end;
+  end;
+end;
+
+{$IFDEF RemObjects_Trial}
+{$INCLUDE RemObjects_Trial.inc}
+{$ENDIF RemObjects_Trial}
+
+{ XsDateTime }
+
+procedure XsDateTime.Assign(iSource: TPersistent);
+var lSource: XsDateTime;
+begin
+  inherited Assign(iSource);
+  if (iSource is XsDateTime) then begin
+    lSource := XsDateTime(iSource);
+    DateTime := lSource.DateTime;
+    TimeZoneOffset := lSource.TimeZoneOffset;
+  end;
+end;
+
+procedure XsDateTime.ReadComplex(ASerializer: TObject);
+var
+  l_DateTime: TDateTime;
+  l_TimeZoneOffset: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_DateTime := DateTime;
+    TROSerializer(ASerializer).ReadDateTime('DateTime', l_DateTime);
+    DateTime := l_DateTime;
+    l_TimeZoneOffset := TimeZoneOffset;
+    TROSerializer(ASerializer).ReadInteger('TimeZoneOffset', otSLong, l_TimeZoneOffset);
+    TimeZoneOffset := l_TimeZoneOffset;
+  end
+  else begin
+    l_DateTime := DateTime;
+    TROSerializer(ASerializer).ReadDateTime('DateTime', l_DateTime);
+    DateTime := l_DateTime;
+    l_TimeZoneOffset := TimeZoneOffset;
+    TROSerializer(ASerializer).ReadInteger('TimeZoneOffset', otSLong, l_TimeZoneOffset);
+    TimeZoneOffset := l_TimeZoneOffset;
+  end;
+end;
+
+procedure XsDateTime.WriteComplex(ASerializer: TObject);
+var
+  l_DateTime: TDateTime;
+  l_TimeZoneOffset: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(XsDateTime);
+    l_DateTime := DateTime;
+    TROSerializer(ASerializer).WriteDateTime('DateTime', l_DateTime);
+    l_TimeZoneOffset := TimeZoneOffset;
+    TROSerializer(ASerializer).WriteInteger('TimeZoneOffset', otSLong, l_TimeZoneOffset);
+  end
+  else begin
+    l_DateTime := DateTime;
+    TROSerializer(ASerializer).WriteDateTime('DateTime', l_DateTime);
+    l_TimeZoneOffset := TimeZoneOffset;
+    TROSerializer(ASerializer).WriteInteger('TimeZoneOffset', otSLong, l_TimeZoneOffset);
+  end;
+end;
+
+constructor XsDateTime.Create(aDateTime: TDateTime; aTimeZone: Integer);
+begin
+  fDateTime := aDateTime;
+  fTimeZoneOffset := aTimeZone;
+end;
+
+{$IFDEF MSWINDOWS}
+function XsDateTime.AsLocalDateTime: TDateTime;
+begin
+  if WriteTimeZone then begin
+    result := fDateTime - ((1.0 / 1440.0) * (fTimeZoneOffset - GetUTCOffset));
+  end else
+    result := fDateTime;
+end;
+
+function XsDateTime.AsUTCDateTime: TDateTime;
+begin
+  if WriteTimeZone then begin
+    result := fDateTime - ((1.0 / 1440.0) * fTimeZoneOffset);
+  end else
+    result := fDateTime; // no way to determine the offset here
+end;
+{$ENDIF}
+
+
+function XsDateTime.GetWriteTimeZone: Boolean;
+begin
+  result := fTimeZoneOffset <> MaxInt;
+end;
+
+procedure XsDateTime.SetWriteTimeZone(const Value: Boolean);
+begin
+  if Value then begin
+    if fTimeZoneOffset = MaxInt then fTimeZoneOffset := 0;
+  end else begin
+    fTimeZoneOffset := MaxInt;
+  end;
+end;
+
+{$IFDEF MSWINDOWS}
+function GetUTCOffset: Integer;
+var
+  lInfo: TIME_ZONE_INFORMATION;
+begin
+  case GetTimeZoneInformation(lInfo) of
+    TIME_ZONE_ID_DAYLIGHT: result := lInfo.Bias + lInfo.DaylightBias;
+    TIME_ZONE_ID_STANDARD: result := lInfo.Bias + lInfo.StandardBias;
+  else
+    result := lInfo.Bias;
+  end;
+end;
+
+
+function LocalDateTimeToUtc(dt: TDateTime): TDateTime;
+begin
+  result := dt - (GetUTCOffset * (1.0 / (1440.0)));
+end;
+
+function UtcDateTimeToLocal(dt: TDateTime): TDateTime;
+begin
+  result := dt + (GetUTCOffset * (1.0 / (1440.0)));
+end;
+{$ENDIF}
+initialization
+  {$IFDEF RemObjects_Trial}
+  Check();
+  {$ENDIF RemObjects_Trial}
+  _ComplexTypes := TList.Create;
+  {$WARN SYMBOL_DEPRECATED OFF}
+  DataTypeNames:= uROClasses.DataTypeNames;
+  DataTypeRemapping :=uROClasses.DataTypeRemapping;
+  {$WARN SYMBOL_DEPRECATED ON}
+  RegisterROClass(XsDateTime);
+finalization
+  _ComplexTypes.Free;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROUnicodeConv.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROUnicodeConv.pas
new file mode 100644
index 0000000..8f7a424
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROUnicodeConv.pas	
@@ -0,0 +1,3670 @@
+unit uROUnicodeConv;
+
+// UnicodeConv 2.0.0
+// Unicode Converter Library 2.0.0
+// Delphi 3/4/5/6 and Kylix Implementation
+//
+// Copyright (c) 2002 by Dieter K�hler
+// ("http://www.philo.de/xml/")
+//
+// Definitions:
+// - "Package" refers to the collection of files distributed by
+//   the Copyright Holder, and derivatives of that collection of
+//   files created through textual modification.
+// - "Standard Version" refers to such a Package if it has not
+//   been modified, or has been modified in accordance with the
+//   wishes of the Copyright Holder.
+// - "Copyright Holder" is whoever is name in the copyright or
+//   copyrights for the package.
+// - "You" is you, if you're thinking about copying or distributing
+//   this Package.
+//
+// Permission is hereby granted, free of charge, to any person
+// obtaining a copy of this software and associated documentation
+// files (the "Package"), to deal in the Package without restriction,
+// including without limitation the rights to use, copy, modify,
+// merge, publish, distribute, sublicense, and/or sell copies of the
+// Package, and to permit persons to whom the Package is furnished
+// to do so, subject to the following conditions:
+//
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Package.
+//
+// You may modify your copy of this Package in any way, provided
+// that you insert a prominent notice in each changed file stating
+// how and when you changed a file, and provided that you do at
+// least one of the following:
+//
+// a) allow the Copyright Holder to include your modifications in
+// the Standard Version of the Package.
+//
+// b) use the modified Package only within your corporation or
+// organization.
+//
+// c) rename any non standard executables, units, and classes so
+// the names do not conflict with standard executables, units, and
+// classes, and provide a separate manual page that clearly documents
+// how it differs from the standard version.
+//
+// d) make other distribution arrangements with the Copyright Holder.
+//
+// The name of the Copyright Holder may not be used to endorse or
+// promote products derived from this Package without specific prior
+// written permission.
+//
+// THE PACKAGE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+// IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+// CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+// TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+// PACKAGE OR THE USE OR OTHER DEALINGS IN THE PACKAGE.
+
+interface
+{$I RemObjects.inc}
+uses
+  SysUtils, Classes;
+
+type
+  {$IFNDEF UNICODE}
+  UnicodeString = WideString;
+  {$ENDIF}
+
+  TdomEncodingType = (etUnknown,etUTF8,etUTF16BE,etUTF16LE,etLatin1,
+                      etLatin2,etLatin3,etLatin4,etCyrillic,etArabic,
+                      etGreek,etHebrew,etLatin5,etLatin6,etLatin7,
+                      etLatin8,etLatin9,etKOI8R,etcp10000_MacRoman,
+                      etWindows1250,etWindows1251,etWindows1252);
+
+  EConversionStream = class(EStreamError);
+
+  TConversionStream = class(TStream)
+  private
+    FTarget: TStream;
+    FConvertCount: longint;
+    FConvertBufP: pointer;
+    FConvertBufSize: longint;
+  protected
+    function convertReadBuffer(const buffer; count: longint): longint; virtual;
+    function convertWriteBuffer(const buffer; count: longint): longint; virtual;
+    procedure setConvertBufSize(newSize: longint); virtual;
+  public
+    constructor Create(target: TStream);
+    destructor Destroy; override;
+    function Read(var buffer; count: longint): longint; override;
+    function Write(const buffer; count: longint): longint; override;
+    function Seek(offset: longint; origin: word): longint; override;
+    procedure FreeConvertBuffer;
+    property Target: TStream read FTarget;
+    property ConvertBufP: pointer read FConvertBufP;
+    property ConvertCount: longint read FConvertCount;
+    property ConvertBufSize: longint read FConvertBufSize;
+  end;
+
+  TUTF16BEToUTF8Stream = class(TConversionStream)
+  private
+    FExpandLF: boolean;
+  protected
+    function convertWriteBuffer(const buffer; count: longint): longint; override;
+  public
+    property expandLF: boolean read FExpandLF write FExpandLF;
+  end;
+
+function StrToEncoding(const S: String): TdomEncodingType;
+
+function SingleByteEncodingToUTF16Char(const P: AnsiChar; const Encoding: TdomEncodingType): WideChar;
+
+function Iso8859_1ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_2ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_3ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_4ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_5ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_6ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_7ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_8ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_9ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_10ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_13ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_14ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_15ToUTF16Char(const P: AnsiChar): WideChar;
+function KOI8_RToUTF16Char(const P: AnsiChar): WideChar;
+function cp10000_MacRomanToUTF16Char(const P: AnsiChar): WideChar;
+function cp1250ToUTF16Char(const P: AnsiChar): WideChar;
+function cp1251ToUTF16Char(const P: AnsiChar): WideChar;
+function cp1252ToUTF16Char(const P: AnsiChar): WideChar;
+function Iso8859_1ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_2ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_3ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_4ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_5ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_6ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_7ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_8ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_9ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_10ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_13ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_14ToUTF16Str(const S: AnsiString): UnicodeString;
+function Iso8859_15ToUTF16Str(const S: AnsiString): UnicodeString;
+function KOI8_RToUTF16Str(const S: AnsiString): UnicodeString;
+function cp10000_MacRomanToUTF16Str(const S: AnsiString): UnicodeString;
+function cp1250ToUTF16Str(const S: AnsiString): UnicodeString;
+function cp1251ToUTF16Str(const S: AnsiString): UnicodeString;
+function cp1252ToUTF16Str(const S: AnsiString): UnicodeString;
+function UTF8ToUTF16BEStr(const S: AnsiString): UnicodeString;
+function UTF16BEToUTF8Str(const ws: UnicodeString;
+                          const expandLF: boolean): AnsiString;
+
+function UTF16To7BitASCIIChar(const P: WideChar): Ansichar;
+function UTF16ToIso8859_1Char(const P: WideChar): Ansichar;
+function UTF16To7BitASCIIStr(const S: UnicodeString): Ansistring;
+function UTF16ToIso8859_1Str(const S: UnicodeString): Ansistring;
+
+function UTF16HighSurrogate(const value: integer): WideChar;
+function UTF16LowSurrogate(const value: integer): WideChar;
+function UTF16SurrogateToInt(const highSurrogate, lowSurrogate: WideChar): integer;
+function IsUTF16HighSurrogate(const S: WideChar): boolean;
+function IsUTF16LowSurrogate(const S: WideChar): boolean;
+
+type
+  ECSMIBException = Exception;
+
+  TCSMIBChangingEvent = procedure (Sender: TObject;
+                                   NewEnum: integer;
+                                   var AllowChange: Boolean) of object;
+
+  TCSMIB = class (TComponent)
+  protected
+    FEnum: integer;
+    FIgnoreInvalidEnum: boolean;
+    FOnChanging: TCSMIBChangingEvent;
+    FOnChange: TNotifyEvent;
+    procedure DoChange(Sender: TObject); virtual;
+    procedure DoChanging(Sender: TObject;
+                                 NewEnum: integer;
+                                 var AllowChange: Boolean); virtual;
+    function GetPrfMIMEName: string; virtual;
+    function GetAlias(i: integer): string; virtual;
+    function GetAliasCount: integer; virtual;
+    procedure SetEnum(const Value: integer); virtual;
+    procedure SetOnChange(const Value: TNotifyEvent); virtual;
+    procedure SetOnChanging(const Value: TCSMIBChangingEvent); virtual;
+  public
+    constructor Create(AOwner: TComponent); override;
+    function IsValidEnum(const Value: integer): boolean; virtual;
+    function SetToAlias(const S: string): boolean; virtual;
+    property Alias[i: integer]: string read GetAlias;
+    property AliasCount: integer read GetAliasCount;
+    property PreferredMIMEName: string read GetPrfMIMEName;
+  published
+    property OnChange: TNotifyEvent read FOnChange write SetOnChange;
+    property OnChanging: TCSMIBChangingEvent read FOnChanging write SetOnChanging;
+    property Enum: integer read FEnum write SetEnum;
+    property IgnoreInvalidEnum: boolean read FIgnoreInvalidEnum write FIgnoreInvalidEnum;
+  end;
+
+
+{procedure Register;}
+
+implementation
+uses
+  uROClasses;
+{procedure Register;
+begin
+  RegisterComponents('XML', [TCSMIB]);
+end;}
+
+resourcestring
+  SOddSizeInvalid = 'Odd size not valid for WideString';
+  STargetNil      = 'Must have a target stream';
+
+
+// +++++++++++++++++++++++++ TConversionStream +++++++++++++++++++++++++
+//                     - Provided by Karl Waclawek -
+// This is an input/output stream for other streams.
+// Purpose: transform data as they are written to or read from a target
+//          stream.
+constructor TConversionStream.create(Target: TStream);
+begin
+  if Target = nil then raise EConversionStream.create(STargetNil);
+  inherited create;
+  FTarget := Target;
+end;
+
+destructor TConversionStream.destroy;
+begin
+  FreeMem(FConvertBufP);
+  inherited destroy;
+end;
+
+function TConversionStream.Seek(Offset: longint; Origin: Word): longint;
+begin
+  Result := 0;  // Seek makes no sense here
+end;
+
+function TConversionStream.ConvertReadBuffer(const Buffer; Count: longint): longint;
+// Performs the actual conversion of the data in Buffer (read buffer);
+// the result of the conversion must be written to ConvertBufB }
+begin
+  Result := 0; //do nothing, override in descendants
+end;
+
+function TConversionStream.ConvertWriteBuffer(const Buffer; Count: longint): longint;
+// Performs the actual conversion of the data in Buffer (write buffer);
+// the result of the conversion must be written to ConvertBufB }
+begin
+  Result := 0; //do nothing, override in descendants
+end;
+
+function TConversionStream.Read(var Buffer; Count: longint): longint;
+// Reads Count bytes from target stream into Buffer;
+// converts those bytes and stores the result in ConvertBufP;
+// ConvertCount indicates the amount of bytes converted.
+begin
+  Result := Target.Read(Buffer, Count);
+  FConvertCount := ConvertReadBuffer(Buffer, Result);
+end;
+
+function TConversionStream.Write(const Buffer; Count: longint): longint;
+// Converts Count bytes from Buffer into ConvertBufP;
+// ConvertCount indicates the amount of bytes converted;
+// if not all converted bytes could be written to the target stream,
+// then this returns the negative of the number of bytes actually written.
+begin
+  Result := Count;
+  FConvertCount := ConvertWriteBuffer(Buffer, Result);
+  Count := Target.Write(FConvertBufP^, FConvertCount);
+  //if not all converted data could be written, return the negative
+  //count of the data actually written. This avoids having Result
+  //being the same as Count by coincidence
+  if Count <> FConvertCount then Result := -Count;
+end;
+
+procedure TConversionStream.FreeConvertBuffer;
+begin
+  ReallocMem(FConvertBufP, 0);
+  FConvertBufSize := 0;
+end;
+
+procedure TConversionStream.SetConvertBufSize(NewSize: Integer);
+begin
+  ReallocMem(FConvertBufP, NewSize);
+  FConvertBufSize := NewSize;
+end;
+
+
+// ++++++++++++++++++++++++++ TUTF16BEToUTF8Stream +++++++++++++++++++++++
+function TUTF16BEToUTF8Stream.ConvertWriteBuffer(const Buffer;
+                                                       Count: Integer): longint;
+// Converts an UTF-16BE stream into an UTF-8 encoded stream
+// (and expands LF to CR+LF if its protected expandLF property
+// is 'true').
+//  - This function was provided by Ernst van der Pols -
+//  - expandLF parameter added by Dieter K�hler -
+//  - converted for stream processing by Karl Waclawek -
+type
+  TWideCharBuf = array[0..(MaxInt shr 1) - 1] of WideChar;
+var
+  InIndx, OutIndx: longint;
+  Wc: WideChar;
+  InBuf: TWideCharBuf absolute Buffer;
+
+  procedure IncBufSize(BufSize: longint);
+    var
+      Delta: longint;
+    begin
+    Inc(BufSize);
+    Delta := BufSize shr 2;
+    if Delta < 8 then Delta := 8;
+    BufSize := ((BufSize + Delta) shr 2) shl 2; //make it multiple of 4
+    setConvertBufSize(BufSize);
+    end;
+
+  procedure UCS4CodeToUTF8String(Code: longint);
+    const
+      MaxCode: array[0..5] of longint = ($7F,$7FF,$FFFF,$1FFFFF,$3FFFFFF,$7FFFFFFF);
+      FirstByte: array[0..5] of Byte = (0,$C0,$E0,$F0,$F8,$FC);
+    var
+      Mo, Indx, StartIndx: longint;
+    begin
+    Mo := 0;			// get number of bytes
+    while ((Code > MaxCode[Mo]) and (Mo < 5)) do Inc(Mo);
+    StartIndx := OutIndx;
+    OutIndx := StartIndx + Mo;
+    if OutIndx >= ConvertBufSize then IncBufSize(OutIndx);
+    for Indx := OutIndx downto StartIndx + 1 do	// fill bytes from rear end
+      begin
+      PAnsiChar(FConvertBufP)[Indx] := AnsiChar($80 or (Code and $3F));
+      Code := Code shr 6;
+      end;
+    PAnsiChar(FConvertBufP)[StartIndx] := AnsiChar(FirstByte[Mo] or Code); // fill first byte
+    end;
+
+begin
+  Result := 0;
+  if Count = 0 then Exit;
+  if Odd(Count) then raise EConversionStream.create(SOddSizeInvalid);
+  Count := Count shr 1;  //for initial size, assume all low ASCII chars
+  if Count > ConvertBufSize then setConvertBufSize(Count);
+  OutIndx := -1;	// keep track of end position
+  InIndx := 0;
+  if InBuf[0] = #$feff then Inc(InIndx);  // Test for BOM
+
+  while InIndx < Count do begin
+    Wc := InBuf[InIndx];
+    case Word(Wc) of
+      $0020..$007F,$0009,$000D:	// plain ASCII
+        begin
+        Inc(OutIndx);
+        if OutIndx >= ConvertBufSize then IncBufSize(OutIndx);
+        PAnsiChar(FConvertBufP)[OutIndx]:= AnsiChar(Wc);
+        end;
+      $000A:	// LF --> CR+LF
+        if ExpandLF then
+          begin
+          Inc(OutIndx, 2);
+          if OutIndx >= ConvertBufSize then IncBufSize(OutIndx);
+          PAnsiChar(FConvertBufP)[OutIndx - 1] := AnsiChar(13);
+          PAnsiChar(FConvertBufP)[OutIndx] := AnsiChar(10);
+          end
+        else
+          begin
+          Inc(OutIndx);
+          if OutIndx >= ConvertBufSize then IncBufSize(OutIndx);
+          PAnsiChar(FConvertBufP)[OutIndx] := AnsiChar(10);
+          end;
+      $D800..$DBFF:	// high surrogate
+        begin
+        Inc(InIndx);
+        if (InIndx < (Count - 1)) and (Word(InBuf[InIndx]) >= $DC00)
+          and (Word(InBuf[InIndx]) <= $DFFF) then
+          begin
+          Inc(OutIndx);
+          UCS4CodeToUTF8String(Utf16SurrogateToInt(Wc, InBuf[InIndx]));
+          end
+        else
+          raise EConvertError.CreateFmt(
+            'High surrogate %4.4X without low surrogate.',[Word(Wc)]);
+        end;
+      $DC00..$DFFF:	// low surrogate
+        begin
+        Inc(InIndx);
+        if (InIndx < (Count - 1)) and (Word(InBuf[InIndx]) >= $D800)
+          and (Word(InBuf[InIndx]) <= $DBFF) then
+          begin
+          Inc(OutIndx);
+          UCS4CodeToUTF8String(Utf16SurrogateToInt(InBuf[InIndx], Wc));
+          end
+        else
+          raise EConvertError.CreateFmt(
+            'Low surrogate %4.4X without high surrogate.',[Word(Wc)]);
+        end;
+      $0080..$D7FF,$E000..$FFFD:
+        begin
+        Inc(OutIndx);
+        UCS4CodeToUTF8String(Word(Wc));
+        end;
+    end; {case ...}
+    Inc(InIndx);
+  end; { while ...}
+  Result := OutIndx + 1;
+end;
+
+
+// +++++++++++++++++++ encoding detection functions +++++++++++++++++++++
+
+function StrToEncoding(const S: String): TdomEncodingType;
+var
+  csmib: TCSMIB;
+begin
+  if (CompareText(S,'cp10000_MacRoman') = 0)
+    then begin result:= etcp10000_MacRoman; exit; end;
+
+  csmib:= TCSMIB.Create(nil);
+  try
+    if csmib.SetToAlias(S) then begin
+      case csmib.Enum of
+        4: result:= etLatin1;
+        5: result:= etLatin2;
+        6: result:= etLatin3;
+        7: result:= etLatin4;
+        8: result:= etCyrillic;
+        9: result:= etArabic;
+        10: result:= etGreek;
+        11: result:= etHebrew;
+        12: result:= etLatin5;
+        13: result:= etLatin6;
+        106: result:= etUTF8;
+        109: result:= etLatin7;
+        110: result:= etLatin8;
+        111: result:= etLatin9;
+        1013,1015: result:= etUTF16BE;
+        1014: result:= etUTF16LE;
+        2084: result:= etKOI8R;
+        2250: result:= etWindows1250;
+        2251: result:= etWindows1251;
+        2252: result:= etWindows1252;
+      else
+        result:= etUnknown;
+      end;
+    end else result:= etUnknown;
+  finally
+    csmib.free;
+  end;
+end;
+
+
+// ++++++++++++++++++++++ conversion functions ++++++++++++++++++++++++
+
+function SingleByteEncodingToUTF16Char(const P: AnsiChar; const Encoding: TdomEncodingType):WideChar;
+begin
+  case Encoding of
+    etLatin1:   result:= Iso8859_1ToUTF16Char(P);
+    etLatin2:   result:= Iso8859_2ToUTF16Char(P);
+    etLatin3:   result:= Iso8859_3ToUTF16Char(P);
+    etLatin4:   result:= Iso8859_4ToUTF16Char(P);
+    etCyrillic: result:= Iso8859_5ToUTF16Char(P);
+    etArabic:   result:= Iso8859_6ToUTF16Char(P);
+    etGreek:    result:= Iso8859_7ToUTF16Char(P);
+    etHebrew:   result:= Iso8859_8ToUTF16Char(P);
+    etLatin5:   result:= Iso8859_9ToUTF16Char(P);
+    etLatin6:   result:= Iso8859_10ToUTF16Char(P);
+    etLatin7:   result:= Iso8859_13ToUTF16Char(P);
+    etLatin8:   result:= Iso8859_14ToUTF16Char(P);
+    etLatin9:   result:= Iso8859_15ToUTF16Char(P);
+    etKOI8R:    result:= KOI8_RToUTF16Char(P);
+    etcp10000_MacRoman: result:= cp10000_MacRomanToUTF16Char(P);
+    etWindows1250:   result:= cp1250ToUTF16Char(P);
+    etWindows1251:   result:= cp1251ToUTF16Char(P);
+    etWindows1252:   result:= cp1252ToUTF16Char(P);
+  else
+    raise EConvertError.Create('Invalid encoding type specified');
+  end;
+end;
+
+function Iso8859_1ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  result:= WideChar(ord(P));
+end;
+
+function Iso8859_2ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(p) of
+    $a1: result:= #$0104;  // LATIN CAPITAL LETTER A WITH OGONEK
+    $a2: result:= #$02d8;  // BREVE
+    $a3: result:= #$0141;  // LATIN CAPITAL LETTER L WITH STROKE
+    $a5: result:= #$0132;  // LATIN CAPITAL LETTER L WITH CARON
+    $a6: result:= #$015a;  // LATIN CAPITAL LETTER S WITH ACUTE
+    $a9: result:= #$0160;  // LATIN CAPITAL LETTER S WITH CARON
+    $aa: result:= #$015e;  // LATIN CAPITAL LETTER S WITH CEDILLA
+    $ab: result:= #$0164;  // LATIN CAPITAL LETTER T WITH CARON
+    $ac: result:= #$0179;  // LATIN CAPITAL LETTER Z WITH ACUTE
+    $ae: result:= #$017d;  // LATIN CAPITAL LETTER Z WITH CARON
+    $af: result:= #$017b;  // LATIN CAPITAL LETTER Z WITH DOT ABOVE
+    $b1: result:= #$0105;  // LATIN SMALL LETTER A WITH OGONEK
+    $b2: result:= #$02db;  // OGONEK
+    $b3: result:= #$0142;  // LATIN SMALL LETTER L WITH STROKE
+    $b5: result:= #$013e;  // LATIN SMALL LETTER L WITH CARON
+    $b6: result:= #$015b;  // LATIN SMALL LETTER S WITH ACUTE
+    $b7: result:= #$02c7;  // CARON
+    $b9: result:= #$0161;  // LATIN SMALL LETTER S WITH CARON
+    $ba: result:= #$015f;  // LATIN SMALL LETTER S WITH CEDILLA
+    $bb: result:= #$0165;  // LATIN SMALL LETTER T WITH CARON
+    $bc: result:= #$017a;  // LATIN SMALL LETTER Z WITH ACUTE
+    $bd: result:= #$02dd;  // DOUBLE ACUTE ACCENT
+    $be: result:= #$017e;  // LATIN SMALL LETTER Z WITH CARON
+    $bf: result:= #$017c;  // LATIN SMALL LETTER Z WITH DOT ABOVE
+    $c0: result:= #$0154;  // LATIN CAPITAL LETTER R WITH ACUTE
+    $c3: result:= #$0102;  // LATIN CAPITAL LETTER A WITH BREVE
+    $c5: result:= #$0139;  // LATIN CAPITAL LETTER L WITH ACUTE
+    $c6: result:= #$0106;  // LATIN CAPITAL LETTER C WITH ACUTE
+    $c8: result:= #$010c;  // LATIN CAPITAL LETTER C WITH CARON
+    $ca: result:= #$0118;  // LATIN CAPITAL LETTER E WITH OGONEK
+    $cc: result:= #$011a;  // LATIN CAPITAL LETTER E WITH CARON
+    $cf: result:= #$010e;  // LATIN CAPITAL LETTER D WITH CARON
+    $d0: result:= #$0110;  // LATIN CAPITAL LETTER D WITH STROKE
+    $d1: result:= #$0143;  // LATIN CAPITAL LETTER N WITH ACUTE
+    $d2: result:= #$0147;  // LATIN CAPITAL LETTER N WITH CARON
+    $d5: result:= #$0150;  // LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+    $d8: result:= #$0158;  // LATIN CAPITAL LETTER R WITH CARON
+    $d9: result:= #$016e;  // LATIN CAPITAL LETTER U WITH RING ABOVE
+    $db: result:= #$0170;  // LATIN CAPITAL LETTER U WITH WITH DOUBLE ACUTE
+    $de: result:= #$0162;  // LATIN CAPITAL LETTER T WITH CEDILLA
+    $e0: result:= #$0155;  // LATIN SMALL LETTER R WITH ACUTE
+    $e3: result:= #$0103;  // LATIN SMALL LETTER A WITH BREVE
+    $e5: result:= #$013a;  // LATIN SMALL LETTER L WITH ACUTE
+    $e6: result:= #$0107;  // LATIN SMALL LETTER C WITH ACUTE
+    $e8: result:= #$010d;  // LATIN SMALL LETTER C WITH CARON
+    $ea: result:= #$0119;  // LATIN SMALL LETTER E WITH OGONEK
+    $ec: result:= #$011b;  // LATIN SMALL LETTER E WITH CARON
+    $ef: result:= #$010f;  // LATIN SMALL LETTER D WITH CARON
+    $f0: result:= #$0111;  // LATIN SMALL LETTER D WITH STROKE
+    $f1: result:= #$0144;  // LATIN SMALL LETTER N WITH ACUTE
+    $f2: result:= #$0148;  // LATIN SMALL LETTER N WITH CARON
+    $f5: result:= #$0151;  // LATIN SMALL LETTER O WITH DOUBLE ACUTE
+    $f8: result:= #$0159;  // LATIN SMALL LETTER R WITH CARON
+    $f9: result:= #$016f;  // LATIN SMALL LETTER U WITH RING ABOVE
+    $fb: result:= #$0171;  // LATIN SMALL LETTER U WITH WITH DOUBLE ACUTE
+    $fe: result:= #$0163;  // LATIN SMALL LETTER T WITH CEDILLA
+    $ff: result:= #$02d9;  // DOT ABOVE
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function Iso8859_3ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $a1: result:= #$0126;  // LATIN CAPITAL LETTER H WITH STROKE
+    $a2: result:= #$02d8;  // BREVE
+    $a5: raise EConvertError.CreateFmt('Invalid ISO-8859-3 sequence "%s"',[P]);
+    $a6: result:= #$0124;  // LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+    $a9: result:= #$0130;  // LATIN CAPITAL LETTER I WITH DOT ABOVE
+    $aa: result:= #$015e;  // LATIN CAPITAL LETTER S WITH CEDILLA
+    $ab: result:= #$011e;  // LATIN CAPITAL LETTER G WITH BREVE
+    $ac: result:= #$0134;  // LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+    $ae: raise EConvertError.CreateFmt('Invalid ISO-8859-3 sequence "%s"',[P]);
+    $af: result:= #$017b;  // LATIN CAPITAL LETTER Z WITH DOT
+    $b1: result:= #$0127;  // LATIN SMALL LETTER H WITH STROKE
+    $b6: result:= #$0125;  // LATIN SMALL LETTER H WITH CIRCUMFLEX
+    $b9: result:= #$0131;  // LATIN SMALL LETTER DOTLESS I
+    $ba: result:= #$015f;  // LATIN SMALL LETTER S WITH CEDILLA
+    $bb: result:= #$011f;  // LATIN SMALL LETTER G WITH BREVE
+    $bc: result:= #$0135;  // LATIN SMALL LETTER J WITH CIRCUMFLEX
+    $be: raise EConvertError.CreateFmt('Invalid ISO-8859-3 sequence "%s"',[P]);
+    $bf: result:= #$017c;  // LATIN SMALL LETTER Z WITH DOT
+    $c3: raise EConvertError.CreateFmt('Invalid ISO-8859-3 sequence "%s"',[P]);
+    $c5: result:= #$010a;  // LATIN CAPITAL LETTER C WITH DOT ABOVE
+    $c6: result:= #$0108;  // LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+    $d0: raise EConvertError.CreateFmt('Invalid ISO-8859-3 sequence "%s"',[P]);
+    $d5: result:= #$0120;  // LATIN CAPITAL LETTER G WITH DOT ABOVE
+    $d8: result:= #$011c;  // LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+    $dd: result:= #$016c;  // LATIN CAPITAL LETTER U WITH BREVE
+    $de: result:= #$015c;  // LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+    $e3: raise EConvertError.CreateFmt('Invalid ISO-8859-3 sequence "%s"',[P]);
+    $e5: result:= #$010b;  // LATIN SMALL LETTER C WITH DOT ABOVE
+    $e6: result:= #$0109;  // LATIN SMALL LETTER C WITH CIRCUMFLEX
+    $f0: raise EConvertError.CreateFmt('Invalid ISO-8859-3 sequence "%s"',[P]);
+    $f5: result:= #$0121;  // LATIN SMALL LETTER G WITH DOT ABOVE
+    $f8: result:= #$011d;  // LATIN SMALL LETTER G WITH CIRCUMFLEX
+    $fd: result:= #$016d;  // LATIN SMALL LETTER U WITH BREVE
+    $fe: result:= #$015d;  // LATIN SMALL LETTER S WITH CIRCUMFLEX
+    $ff: result:= #$02d9;  // DOT ABOVE
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function Iso8859_4ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $a1: result:= #$0104;  // LATIN CAPITAL LETTER A WITH OGONEK
+    $a2: result:= #$0138;  // LATIN SMALL LETTER KRA
+    $a3: result:= #$0156;  // LATIN CAPITAL LETTER R WITH CEDILLA
+    $a5: result:= #$0128;  // LATIN CAPITAL LETTER I WITH TILDE
+    $a6: result:= #$013b;  // LATIN CAPITAL LETTER L WITH CEDILLA
+    $a9: result:= #$0160;  // LATIN CAPITAL LETTER S WITH CARON
+    $aa: result:= #$0112;  // LATIN CAPITAL LETTER E WITH MACRON
+    $ab: result:= #$0122;  // LATIN CAPITAL LETTER G WITH CEDILLA
+    $ac: result:= #$0166;  // LATIN CAPITAL LETTER T WITH STROKE
+    $ae: result:= #$017d;  // LATIN CAPITAL LETTER Z WITH CARON
+    $b1: result:= #$0105;  // LATIN SMALL LETTER A WITH OGONEK
+    $b2: result:= #$02db;  // OGONEK
+    $b3: result:= #$0157;  // LATIN SMALL LETTER R WITH CEDILLA
+    $b5: result:= #$0129;  // LATIN SMALL LETTER I WITH TILDE
+    $b6: result:= #$013c;  // LATIN SMALL LETTER L WITH CEDILLA
+    $b7: result:= #$02c7;  // CARON
+    $b9: result:= #$0161;  // LATIN SMALL LETTER S WITH CARON
+    $ba: result:= #$0113;  // LATIN SMALL LETTER E WITH MACRON
+    $bb: result:= #$0123;  // LATIN SMALL LETTER G WITH CEDILLA
+    $bc: result:= #$0167;  // LATIN SMALL LETTER T WITH STROKE
+    $bd: result:= #$014a;  // LATIN CAPITAL LETTER ENG
+    $be: result:= #$017e;  // LATIN SMALL LETTER Z WITH CARON
+    $bf: result:= #$014b;  // LATIN SMALL LETTER ENG
+    $c0: result:= #$0100;  // LATIN CAPITAL LETTER A WITH MACRON
+    $c7: result:= #$012e;  // LATIN CAPITAL LETTER I WITH OGONEK
+    $c8: result:= #$010c;  // LATIN CAPITAL LETTER C WITH CARON
+    $ca: result:= #$0118;  // LATIN CAPITAL LETTER E WITH OGONEK
+    $cc: result:= #$0116;  // LATIN CAPITAL LETTER E WITH DOT ABOVE
+    $cf: result:= #$012a;  // LATIN CAPITAL LETTER I WITH MACRON
+    $d0: result:= #$0110;  // LATIN CAPITAL LETTER D WITH STROKE
+    $d1: result:= #$0145;  // LATIN CAPITAL LETTER N WITH CEDILLA
+    $d2: result:= #$014c;  // LATIN CAPITAL LETTER O WITH MACRON
+    $d3: result:= #$0136;  // LATIN CAPITAL LETTER K WITH CEDILLA
+    $d9: result:= #$0172;  // LATIN CAPITAL LETTER U WITH OGONEK
+    $dd: result:= #$0168;  // LATIN CAPITAL LETTER U WITH TILDE
+    $de: result:= #$016a;  // LATIN CAPITAL LETTER U WITH MACRON
+    $e0: result:= #$0101;  // LATIN SMALL LETTER A WITH MACRON
+    $e7: result:= #$012f;  // LATIN SMALL LETTER I WITH OGONEK
+    $e8: result:= #$010d;  // LATIN SMALL LETTER C WITH CARON
+    $ea: result:= #$0119;  // LATIN SMALL LETTER E WITH OGONEK
+    $ec: result:= #$0117;  // LATIN SMALL LETTER E WITH DOT ABOVE
+    $ef: result:= #$012b;  // LATIN SMALL LETTER I WITH MACRON
+    $f0: result:= #$0111;  // LATIN SMALL LETTER D WITH STROKE
+    $f1: result:= #$0146;  // LATIN SMALL LETTER N WITH CEDILLA
+    $f2: result:= #$014d;  // LATIN SMALL LETTER O WITH MACRON
+    $f3: result:= #$0137;  // LATIN SMALL LETTER K WITH CEDILLA
+    $f9: result:= #$0173;  // LATIN SMALL LETTER U WITH OGONEK
+    $fd: result:= #$0169;  // LATIN SMALL LETTER U WITH TILDE
+    $fe: result:= #$016b;  // LATIN SMALL LETTER U WITH MACRON
+    $ff: result:= #$02d9;  // DOT ABOVE
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function Iso8859_5ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $00..$a0,$ad:
+      result:= WideChar(ord(P));
+    $f0: result:= #$2116;  // NUMERO SIGN
+    $fd: result:= #$00a7;  // SECTION SIGN
+  else
+    result:= WideChar(ord(P)+$0360);
+  end;
+end;
+
+function Iso8859_6ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $00..$a0,$a4,$ad:
+      result:= WideChar(ord(P));
+    $ac,$bb,$bf,$c1..$da,$e0..$f2:
+      result:= WideChar(ord(P)+$0580);
+  else
+    raise EConvertError.CreateFmt('Invalid ISO-8859-6 sequence "%s"',[P]);
+  end;
+end;
+
+function Iso8859_7ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $00..$a0,$a6..$a9,$ab..$ad,$b0..$b3,$b7,$bb,$bd:
+      result:= WideChar(ord(P));
+    $a1: result:= #$2018;  // LEFT SINGLE QUOTATION MARK
+    $a2: result:= #$2019;  // RIGHT SINGLE QUOTATION MARK
+    $af: result:= #$2015;  // HORIZONTAL BAR
+    $d2,$ff: raise EConvertError.CreateFmt('Invalid ISO-8859-7 sequence "%s"',[P]);
+  else
+    result:= WideChar(ord(P)+$02d0);
+  end;
+end;
+
+function Iso8859_8ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $00..$a0,$a2..$a9,$ab..$ae,$b0..$b9,$bb..$be:
+      result:= WideChar(ord(P));
+    $aa: result:= #$00d7;  // MULTIPLICATION SIGN
+    $af: result:= #$203e;  // OVERLINE
+    $ba: result:= #$00f7;  // DIVISION SIGN
+    $df: result:= #$2017;  // DOUBLE LOW LINE
+    $e0..$fa:
+      result:= WideChar(ord(P)+$04e0);
+  else
+    raise EConvertError.CreateFmt('Invalid ISO-8859-8 sequence "%s"',[P]);
+  end;
+end;
+
+function Iso8859_9ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $d0: result:= #$011e;  // LATIN CAPITAL LETTER G WITH BREVE
+    $dd: result:= #$0130;  // LATIN CAPITAL LETTER I WITH DOT ABOVE
+    $de: result:= #$015e;  // LATIN CAPITAL LETTER S WITH CEDILLA
+    $f0: result:= #$011f;  // LATIN SMALL LETTER G WITH BREVE
+    $fd: result:= #$0131;  // LATIN SMALL LETTER I WITH DOT ABOVE
+    $fe: result:= #$015f;  // LATIN SMALL LETTER S WITH CEDILLA
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function Iso8859_10ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $a1: result:= #$0104;  // LATIN CAPITAL LETTER A WITH OGONEK
+    $a2: result:= #$0112;  // LATIN CAPITAL LETTER E WITH MACRON
+    $a3: result:= #$0122;  // LATIN CAPITAL LETTER G WITH CEDILLA
+    $a4: result:= #$012a;  // LATIN CAPITAL LETTER I WITH MACRON
+    $a5: result:= #$0128;  // LATIN CAPITAL LETTER I WITH TILDE
+    $a6: result:= #$0136;  // LATIN CAPITAL LETTER K WITH CEDILLA
+    $a8: result:= #$013b;  // LATIN CAPITAL LETTER L WITH CEDILLA
+    $a9: result:= #$0110;  // LATIN CAPITAL LETTER D WITH STROKE
+    $aa: result:= #$0160;  // LATIN CAPITAL LETTER S WITH CARON
+    $ab: result:= #$0166;  // LATIN CAPITAL LETTER T WITH STROKE
+    $ac: result:= #$017d;  // LATIN CAPITAL LETTER Z WITH CARON
+    $ae: result:= #$016a;  // LATIN CAPITAL LETTER U WITH MACRON
+    $af: result:= #$014a;  // LATIN CAPITAL LETTER ENG
+    $b1: result:= #$0105;  // LATIN SMALL LETTER A WITH OGONEK
+    $b2: result:= #$0113;  // LATIN SMALL LETTER E WITH MACRON
+    $b3: result:= #$0123;  // LATIN SMALL LETTER G WITH CEDILLA
+    $b4: result:= #$012b;  // LATIN SMALL LETTER I WITH MACRON
+    $b5: result:= #$0129;  // LATIN SMALL LETTER I WITH TILDE
+    $b6: result:= #$0137;  // LATIN SMALL LETTER K WITH CEDILLA
+    $b8: result:= #$013c;  // LATIN SMALL LETTER L WITH CEDILLA
+    $b9: result:= #$0111;  // LATIN SMALL LETTER D WITH STROKE
+    $ba: result:= #$0161;  // LATIN SMALL LETTER S WITH CARON
+    $bb: result:= #$0167;  // LATIN SMALL LETTER T WITH STROKE
+    $bc: result:= #$017e;  // LATIN SMALL LETTER Z WITH CARON
+    $bd: result:= #$2015;  // HORIZONTAL BAR
+    $be: result:= #$016b;  // LATIN SMALL LETTER U WITH MACRON
+    $bf: result:= #$014b;  // LATIN SMALL LETTER ENG
+    $c0: result:= #$0100;  // LATIN CAPITAL LETTER A WITH MACRON
+    $c7: result:= #$012e;  // LATIN CAPITAL LETTER I WITH OGONEK
+    $c8: result:= #$010c;  // LATIN CAPITAL LETTER C WITH CARON
+    $ca: result:= #$0118;  // LATIN CAPITAL LETTER E WITH OGONEK
+    $cc: result:= #$0116;  // LATIN CAPITAL LETTER E WITH DOT ABOVE
+    $d1: result:= #$0145;  // LATIN CAPITAL LETTER N WITH CEDILLA
+    $d2: result:= #$014c;  // LATIN CAPITAL LETTER O WITH MACRON
+    $d7: result:= #$0168;  // LATIN CAPITAL LETTER U WITH TILDE
+    $d9: result:= #$0172;  // LATIN CAPITAL LETTER U WITH OGONEK
+    $e0: result:= #$0101;  // LATIN SMALL LETTER A WITH MACRON
+    $e7: result:= #$012f;  // LATIN SMALL LETTER I WITH OGONEK
+    $e8: result:= #$010d;  // LATIN SMALL LETTER C WITH CARON
+    $ea: result:= #$0119;  // LATIN SMALL LETTER E WITH OGONEK
+    $ec: result:= #$0117;  // LATIN SMALL LETTER E WITH DOT ABOVE
+    $f1: result:= #$0146;  // LATIN SMALL LETTER N WITH CEDILLA
+    $f2: result:= #$014d;  // LATIN SMALL LETTER O WITH MACRON
+    $f7: result:= #$0169;  // LATIN SMALL LETTER U WITH TILDE
+    $f9: result:= #$0173;  // LATIN SMALL LETTER U WITH OGONEK
+    $ff: result:= #$0138;  // LATIN SMALL LETTER KRA
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function Iso8859_13ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $a1: result:= #$201d;  // RIGHT DOUBLE QUOTATION MARK
+    $a5: result:= #$201e;  // DOUBLE LOW-9 QUOTATION MARK
+    $a8: result:= #$00d8;  // LATIN CAPITAL LETTER O WITH STROKE
+    $aa: result:= #$0156;  // LATIN CAPITAL LETTER R WITH CEDILLA
+    $af: result:= #$00c6;  // LATIN CAPITAL LETTER AE
+    $b4: result:= #$201c;  // LEFT DOUBLE QUOTATION MARK
+    $b8: result:= #$00f8;  // LATIN SMALL LETTER O WITH STROKE
+    $ba: result:= #$0157;  // LATIN SMALL LETTER R WITH CEDILLA
+    $bf: result:= #$00e6;  // LATIN SMALL LETTER AE
+    $c0: result:= #$0104;  // LATIN CAPITAL LETTER A WITH OGONEK
+    $c1: result:= #$012e;  // LATIN CAPITAL LETTER I WITH OGONEK
+    $c2: result:= #$0100;  // LATIN CAPITAL LETTER A WITH MACRON
+    $c3: result:= #$0106;  // LATIN CAPITAL LETTER C WITH ACUTE
+    $c6: result:= #$0118;  // LATIN CAPITAL LETTER E WITH OGONEK
+    $c7: result:= #$0112;  // LATIN CAPITAL LETTER E WITH MACRON
+    $c8: result:= #$010c;  // LATIN CAPITAL LETTER C WITH CARON
+    $ca: result:= #$0179;  // LATIN CAPITAL LETTER Z WITH ACUTE
+    $cb: result:= #$0116;  // LATIN CAPITAL LETTER E WITH DOT ABOVE
+    $cc: result:= #$0122;  // LATIN CAPITAL LETTER G WITH CEDILLA
+    $cd: result:= #$0136;  // LATIN CAPITAL LETTER K WITH CEDILLA
+    $ce: result:= #$012a;  // LATIN CAPITAL LETTER I WITH MACRON
+    $cf: result:= #$013b;  // LATIN CAPITAL LETTER L WITH CEDILLA
+    $d0: result:= #$0160;  // LATIN CAPITAL LETTER S WITH CARON
+    $d1: result:= #$0143;  // LATIN CAPITAL LETTER N WITH ACUTE
+    $d2: result:= #$0145;  // LATIN CAPITAL LETTER N WITH CEDILLA
+    $d4: result:= #$014c;  // LATIN CAPITAL LETTER O WITH MACRON
+    $d8: result:= #$0172;  // LATIN CAPITAL LETTER U WITH OGONEK
+    $d9: result:= #$0141;  // LATIN CAPITAL LETTER L WITH STROKE
+    $da: result:= #$015a;  // LATIN CAPITAL LETTER S WITH ACUTE
+    $db: result:= #$016a;  // LATIN CAPITAL LETTER U WITH MACRON
+    $dd: result:= #$017b;  // LATIN CAPITAL LETTER Z WITH DOT ABOVE
+    $de: result:= #$017d;  // LATIN CAPITAL LETTER Z WITH CARON
+    $e0: result:= #$0105;  // LATIN SMALL LETTER A WITH OGONEK
+    $e1: result:= #$012f;  // LATIN SMALL LETTER I WITH OGONEK
+    $e2: result:= #$0101;  // LATIN SMALL LETTER A WITH MACRON
+    $e3: result:= #$0107;  // LATIN SMALL LETTER C WITH ACUTE
+    $e6: result:= #$0119;  // LATIN SMALL LETTER E WITH OGONEK
+    $e7: result:= #$0113;  // LATIN SMALL LETTER E WITH MACRON
+    $e8: result:= #$010d;  // LATIN SMALL LETTER C WITH CARON
+    $ea: result:= #$017a;  // LATIN SMALL LETTER Z WITH ACUTE
+    $eb: result:= #$0117;  // LATIN SMALL LETTER E WITH DOT ABOVE
+    $ec: result:= #$0123;  // LATIN SMALL LETTER G WITH CEDILLA
+    $ed: result:= #$0137;  // LATIN SMALL LETTER K WITH CEDILLA
+    $ee: result:= #$012b;  // LATIN SMALL LETTER I WITH MACRON
+    $ef: result:= #$013c;  // LATIN SMALL LETTER L WITH CEDILLA
+    $f0: result:= #$0161;  // LATIN SMALL LETTER S WITH CARON
+    $f1: result:= #$0144;  // LATIN SMALL LETTER N WITH ACUTE
+    $f2: result:= #$0146;  // LATIN SMALL LETTER N WITH CEDILLA
+    $f4: result:= #$014d;  // LATIN SMALL LETTER O WITH MACRON
+    $f8: result:= #$0173;  // LATIN SMALL LETTER U WITH OGONEK
+    $f9: result:= #$0142;  // LATIN SMALL LETTER L WITH STROKE
+    $fa: result:= #$015b;  // LATIN SMALL LETTER S WITH ACUTE
+    $fb: result:= #$016b;  // LATIN SMALL LETTER U WITH MACRON
+    $fd: result:= #$017c;  // LATIN SMALL LETTER Z WITH DOT ABOVE
+    $fe: result:= #$017e;  // LATIN SMALL LETTER Z WITH CARON
+    $ff: result:= #$2019;  // RIGHT SINGLE QUOTATION MARK
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function Iso8859_14ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $a1: result:= #$1e02;  // LATIN CAPITAL LETTER B WITH DOT ABOVE
+    $a2: result:= #$1e03;  // LATIN SMALL LETTER B WITH DOT ABOVE
+    $a4: result:= #$010a;  // LATIN CAPITAL LETTER C WITH DOT ABOVE
+    $a5: result:= #$010b;  // LATIN SMALL LETTER C WITH DOT ABOVE
+    $a6: result:= #$1e0a;  // LATIN CAPITAL LETTER D WITH DOT ABOVE
+    $a8: result:= #$1e80;  // LATIN CAPITAL LETTER W WITH GRAVE
+    $aa: result:= #$1e82;  // LATIN CAPITAL LETTER W WITH ACUTE
+    $ab: result:= #$1e0b;  // LATIN SMALL LETTER D WITH DOT ABOVE
+    $ac: result:= #$1ef2;  // LATIN CAPITAL LETTER Y WITH GRAVE
+    $af: result:= #$0178;  // LATIN CAPITAL LETTER Y WITH DIAERESIS
+    $b0: result:= #$1e1e;  // LATIN CAPITAL LETTER F WITH DOT ABOVE
+    $b1: result:= #$1e1f;  // LATIN SMALL LETTER F WITH DOT ABOVE
+    $b2: result:= #$0120;  // LATIN CAPITAL LETTER G WITH DOT ABOVE
+    $b3: result:= #$0121;  // LATIN SMALL LETTER G WITH DOT ABOVE
+    $b4: result:= #$1e40;  // LATIN CAPITAL LETTER M WITH DOT ABOVE
+    $b5: result:= #$1e41;  // LATIN SMALL LETTER M WITH DOT ABOVE
+    $b7: result:= #$1e56;  // LATIN CAPITAL LETTER P WITH DOT ABOVE
+    $b8: result:= #$1e81;  // LATIN SMALL LETTER W WITH GRAVE
+    $b9: result:= #$1e57;  // LATIN SMALL LETTER P WITH DOT ABOVE
+    $ba: result:= #$1e83;  // LATIN SMALL LETTER W WITH ACUTE
+    $bb: result:= #$1e60;  // LATIN CAPITAL LETTER S WITH DOT ABOVE
+    $bc: result:= #$1ef3;  // LATIN SMALL LETTER Y WITH GRAVE
+    $bd: result:= #$1e84;  // LATIN CAPITAL LETTER W WITH DIAERESIS
+    $be: result:= #$1e85;  // LATIN SMALL LETTER W WITH DIAERESIS
+    $bf: result:= #$1e61;  // LATIN SMALL LETTER S WITH DOT ABOVE
+    $d0: result:= #$0174;  // LATIN CAPITAL LETTER W WITH CIRCUMFLEX
+    $d7: result:= #$1e6a;  // LATIN CAPITAL LETTER T WITH DOT ABOVE
+    $de: result:= #$0176;  // LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
+    $f0: result:= #$0175;  // LATIN SMALL LETTER W WITH CIRCUMFLEX
+    $f7: result:= #$1e6b;  // LATIN SMALL LETTER T WITH DOT ABOVE
+    $fe: result:= #$0177;  // LATIN SMALL LETTER Y WITH CIRCUMFLEX
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function Iso8859_15ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $a4: result:= #$20ac;  // EURO SIGN
+    $a6: result:= #$00a6;  // LATIN CAPITAL LETTER S WITH CARON
+    $a8: result:= #$0161;  // LATIN SMALL LETTER S WITH CARON
+    $b4: result:= #$017d;  // LATIN CAPITAL LETTER Z WITH CARON
+    $b8: result:= #$017e;  // LATIN SMALL LETTER Z WITH CARON
+    $bc: result:= #$0152;  // LATIN CAPITAL LIGATURE OE
+    $bd: result:= #$0153;  // LATIN SMALL LIGATURE OE
+    $be: result:= #$0178;  // LATIN CAPITAL LETTER Y WITH DIAERESIS
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function KOI8_RToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $80: result:= #$2500;  // BOX DRAWINGS LIGHT HORIZONTAL
+    $81: result:= #$2502;  // BOX DRAWINGS LIGHT VERTICAL
+    $82: result:= #$250c;  // BOX DRAWINGS LIGHT DOWN AND RIGHT
+    $83: result:= #$2510;  // BOX DRAWINGS LIGHT DOWN AND LEFT
+    $84: result:= #$2514;  // BOX DRAWINGS LIGHT UP AND RIGHT
+    $85: result:= #$2518;  // BOX DRAWINGS LIGHT UP AND LEFT
+    $86: result:= #$251c;  // BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+    $87: result:= #$2524;  // BOX DRAWINGS LIGHT VERTICAL AND LEFT
+    $88: result:= #$252c;  // BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+    $89: result:= #$2534;  // BOX DRAWINGS LIGHT UP AND HORIZONTAL
+    $8a: result:= #$253c;  // BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+    $8b: result:= #$2580;  // UPPER HALF BLOCK
+    $8c: result:= #$2584;  // LOWER HALF BLOCK
+    $8d: result:= #$2588;  // FULL BLOCK
+    $8e: result:= #$258c;  // LEFT HALF BLOCK
+    $8f: result:= #$2590;  // RIGHT HALF BLOCK
+    $90: result:= #$2591;  // LIGHT SHADE
+    $91: result:= #$2592;  // MEDIUM SHADE
+    $92: result:= #$2593;  // DARK SHADE
+    $93: result:= #$2320;  // TOP HALF INTEGRAL
+    $94: result:= #$25a0;  // BLACK SQUARE
+    $95: result:= #$2219;  // BULLET OPERATOR
+    $96: result:= #$221a;  // SQUARE ROOT
+    $97: result:= #$2248;  // ALMOST EQUAL TO
+    $98: result:= #$2264;  // LESS-THAN OR EQUAL TO
+    $99: result:= #$2265;  // GREATER-THAN OR EQUAL TO
+    $9a: result:= #$00a0;  // NO-BREAK SPACE
+    $9b: result:= #$2321;  // BOTTOM HALF INTEGRAL
+    $9c: result:= #$00b0;  // DEGREE SIGN
+    $9d: result:= #$00b2;  // SUPERSCRIPT TWO
+    $9e: result:= #$00b7;  // MIDDLE DOT
+    $9f: result:= #$00f7;  // DIVISION SIGN
+    $a0: result:= #$2550;  // BOX DRAWINGS DOUBLE HORIZONTAL
+    $a1: result:= #$2551;  // BOX DRAWINGS DOUBLE VERTICAL
+    $a2: result:= #$2552;  // BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+    $a3: result:= #$0451;  // CYRILLIC SMALL LETTER IO
+    $a4: result:= #$2553;  // BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+    $a5: result:= #$2554;  // BOX DRAWINGS DOUBLE DOWN AND RIGHT
+    $a6: result:= #$2555;  // BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+    $a7: result:= #$2556;  // BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+    $a8: result:= #$2557;  // BOX DRAWINGS DOUBLE DOWN AND LEFT
+    $a9: result:= #$2558;  // BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+    $aa: result:= #$2559;  // BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+    $ab: result:= #$255a;  // BOX DRAWINGS DOUBLE UP AND RIGHT
+    $ac: result:= #$255b;  // BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+    $ad: result:= #$255c;  // BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+    $ae: result:= #$255d;  // BOX DRAWINGS DOUBLE UP AND LEFT
+    $af: result:= #$255e;  // BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+    $b0: result:= #$255f;  // BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+    $b1: result:= #$2560;  // BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+    $b2: result:= #$2561;  // BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+    $b3: result:= #$0401;  // CYRILLIC CAPITAL LETTER IO
+    $b4: result:= #$2562;  // BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+    $b5: result:= #$2563;  // BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+    $b6: result:= #$2564;  // BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+    $b7: result:= #$2565;  // BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+    $b8: result:= #$2566;  // BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+    $b9: result:= #$2567;  // BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+    $ba: result:= #$2568;  // BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+    $bb: result:= #$2569;  // BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+    $bc: result:= #$256a;  // BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+    $bd: result:= #$256b;  // BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+    $be: result:= #$256c;  // BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+    $bf: result:= #$00a9;  // COPYRIGHT SIGN
+    $c0: result:= #$044e;  // CYRILLIC SMALL LETTER YU
+    $c1: result:= #$0430;  // CYRILLIC SMALL LETTER A
+    $c2: result:= #$0431;  // CYRILLIC SMALL LETTER BE
+    $c3: result:= #$0446;  // CYRILLIC SMALL LETTER TSE
+    $c4: result:= #$0434;  // CYRILLIC SMALL LETTER DE
+    $c5: result:= #$0435;  // CYRILLIC SMALL LETTER IE
+    $c6: result:= #$0444;  // CYRILLIC SMALL LETTER EF
+    $c7: result:= #$0433;  // CYRILLIC SMALL LETTER GHE
+    $c8: result:= #$0445;  // CYRILLIC SMALL LETTER HA
+    $c9: result:= #$0438;  // CYRILLIC SMALL LETTER I
+    $ca: result:= #$0439;  // CYRILLIC SMALL LETTER SHORT I
+    $cb: result:= #$043a;  // CYRILLIC SMALL LETTER KA
+    $cc: result:= #$043b;  // CYRILLIC SMALL LETTER EL
+    $cd: result:= #$043c;  // CYRILLIC SMALL LETTER EM
+    $ce: result:= #$043d;  // CYRILLIC SMALL LETTER EN
+    $cf: result:= #$043e;  // CYRILLIC SMALL LETTER O
+    $d0: result:= #$043f;  // CYRILLIC SMALL LETTER PE
+    $d1: result:= #$044f;  // CYRILLIC SMALL LETTER YA
+    $d2: result:= #$0440;  // CYRILLIC SMALL LETTER ER
+    $d3: result:= #$0441;  // CYRILLIC SMALL LETTER ES
+    $d4: result:= #$0442;  // CYRILLIC SMALL LETTER TE
+    $d5: result:= #$0443;  // CYRILLIC SMALL LETTER U
+    $d6: result:= #$0436;  // CYRILLIC SMALL LETTER ZHE
+    $d7: result:= #$0432;  // CYRILLIC SMALL LETTER VE
+    $d8: result:= #$044c;  // CYRILLIC SMALL LETTER SOFT SIGN
+    $d9: result:= #$044b;  // CYRILLIC SMALL LETTER YERU
+    $da: result:= #$0437;  // CYRILLIC SMALL LETTER ZE
+    $db: result:= #$0448;  // CYRILLIC SMALL LETTER SHA
+    $dc: result:= #$044d;  // CYRILLIC SMALL LETTER E
+    $dd: result:= #$0449;  // CYRILLIC SMALL LETTER SHCHA
+    $de: result:= #$0447;  // CYRILLIC SMALL LETTER CHE
+    $df: result:= #$044a;  // CYRILLIC SMALL LETTER HARD SIGN
+    $e0: result:= #$042e;  // CYRILLIC CAPITAL LETTER YU
+    $e1: result:= #$0410;  // CYRILLIC CAPITAL LETTER A
+    $e2: result:= #$0411;  // CYRILLIC CAPITAL LETTER BE
+    $e3: result:= #$0426;  // CYRILLIC CAPITAL LETTER TSE
+    $e4: result:= #$0414;  // CYRILLIC CAPITAL LETTER DE
+    $e5: result:= #$0415;  // CYRILLIC CAPITAL LETTER IE
+    $e6: result:= #$0424;  // CYRILLIC CAPITAL LETTER EF
+    $e7: result:= #$0413;  // CYRILLIC CAPITAL LETTER GHE
+    $e8: result:= #$0425;  // CYRILLIC CAPITAL LETTER HA
+    $e9: result:= #$0418;  // CYRILLIC CAPITAL LETTER I
+    $ea: result:= #$0419;  // CYRILLIC CAPITAL LETTER SHORT I
+    $eb: result:= #$041a;  // CYRILLIC CAPITAL LETTER KA
+    $ec: result:= #$041b;  // CYRILLIC CAPITAL LETTER EL
+    $ed: result:= #$041c;  // CYRILLIC CAPITAL LETTER EM
+    $ee: result:= #$041d;  // CYRILLIC CAPITAL LETTER EN
+    $ef: result:= #$041e;  // CYRILLIC CAPITAL LETTER O
+    $f0: result:= #$041f;  // CYRILLIC CAPITAL LETTER PE
+    $f1: result:= #$042f;  // CYRILLIC CAPITAL LETTER YA
+    $f2: result:= #$0420;  // CYRILLIC CAPITAL LETTER ER
+    $f3: result:= #$0421;  // CYRILLIC CAPITAL LETTER ES
+    $f4: result:= #$0422;  // CYRILLIC CAPITAL LETTER TE
+    $f5: result:= #$0423;  // CYRILLIC CAPITAL LETTER U
+    $f6: result:= #$0416;  // CYRILLIC CAPITAL LETTER ZHE
+    $f7: result:= #$0412;  // CYRILLIC CAPITAL LETTER VE
+    $f8: result:= #$042c;  // CYRILLIC CAPITAL LETTER SOFT SIGN
+    $f9: result:= #$042b;  // CYRILLIC CAPITAL LETTER YERU
+    $fa: result:= #$0417;  // CYRILLIC CAPITAL LETTER ZE
+    $fb: result:= #$0428;  // CYRILLIC CAPITAL LETTER SHA
+    $fc: result:= #$042d;  // CYRILLIC CAPITAL LETTER E
+    $fd: result:= #$0429;  // CYRILLIC CAPITAL LETTER SHCHA
+    $fe: result:= #$0427;  // CYRILLIC CAPITAL LETTER CHE
+    $ff: result:= #$042a;  // CYRILLIC CAPITAL LETTER HARD SIGN
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function cp10000_MacRomanToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $80: result:= #$00c4;  // LATIN CAPITAL LETTER A WITH DIAERESIS
+    $81: result:= #$00c5;  // LATIN CAPITAL LETTER A WITH RING ABOVE
+    $82: result:= #$00c7;  // LATIN CAPITAL LETTER C WITH CEDILLA
+    $83: result:= #$00c9;  // LATIN CAPITAL LETTER E WITH ACUTE
+    $84: result:= #$00d1;  // LATIN CAPITAL LETTER N WITH TILDE
+    $85: result:= #$00d6;  // LATIN CAPITAL LETTER O WITH DIAERESIS
+    $86: result:= #$00dc;  // LATIN CAPITAL LETTER U WITH DIAERESIS
+    $87: result:= #$00e1;  // LATIN SMALL LETTER A WITH ACUTE
+    $88: result:= #$00e0;  // LATIN SMALL LETTER A WITH GRAVE
+    $89: result:= #$00e2;  // LATIN SMALL LETTER A WITH CIRCUMFLEX
+    $8a: result:= #$00e4;  // LATIN SMALL LETTER A WITH DIAERESIS
+    $8b: result:= #$00e3;  // LATIN SMALL LETTER A WITH TILDE
+    $8c: result:= #$00e5;  // LATIN SMALL LETTER A WITH RING ABOVE
+    $8d: result:= #$00e7;  // LATIN SMALL LETTER C WITH CEDILLA
+    $8e: result:= #$00e9;  // LATIN SMALL LETTER E WITH ACUTE
+    $8f: result:= #$00e8;  // LATIN SMALL LETTER E WITH GRAVE
+    $90: result:= #$00ea;  // LATIN SMALL LETTER E WITH CIRCUMFLEX
+    $91: result:= #$00eb;  // LATIN SMALL LETTER E WITH DIAERESIS
+    $92: result:= #$00ed;  // LATIN SMALL LETTER I WITH ACUTE
+    $93: result:= #$00ec;  // LATIN SMALL LETTER I WITH GRAVE
+    $94: result:= #$00ee;  // LATIN SMALL LETTER I WITH CIRCUMFLEX
+    $95: result:= #$00ef;  // LATIN SMALL LETTER I WITH DIAERESIS
+    $96: result:= #$00f1;  // LATIN SMALL LETTER N WITH TILDE
+    $97: result:= #$00f3;  // LATIN SMALL LETTER O WITH ACUTE
+    $98: result:= #$00f2;  // LATIN SMALL LETTER O WITH GRAVE
+    $99: result:= #$00f4;  // LATIN SMALL LETTER O WITH CIRCUMFLEX
+    $9a: result:= #$00f6;  // LATIN SMALL LETTER O WITH DIAERESIS
+    $9b: result:= #$00f5;  // LATIN SMALL LETTER O WITH TILDE
+    $9c: result:= #$00fa;  // LATIN SMALL LETTER U WITH ACUTE
+    $9d: result:= #$00f9;  // LATIN SMALL LETTER U WITH GRAVE
+    $9e: result:= #$00fb;  // LATIN SMALL LETTER U WITH CIRCUMFLEX
+    $9f: result:= #$00fc;  // LATIN SMALL LETTER U WITH DIAERESIS
+    $a0: result:= #$2020;  // DAGGER
+    $a1: result:= #$00b0;  // DEGREE SIGN
+    $a4: result:= #$00a7;  // SECTION SIGN
+    $a5: result:= #$2022;  // BULLET
+    $a6: result:= #$00b6;  // PILCROW SIGN
+    $a7: result:= #$00df;  // LATIN SMALL LETTER SHARP S
+    $a8: result:= #$00ae;  // REGISTERED SIGN
+    $aa: result:= #$2122;  // TRADE MARK SIGN
+    $ab: result:= #$00b4;  // ACUTE ACCENT
+    $ac: result:= #$00a8;  // DIAERESIS
+    $ad: result:= #$2260;  // NOT EQUAL TO
+    $ae: result:= #$00c6;  // LATIN CAPITAL LIGATURE AE
+    $af: result:= #$00d8;  // LATIN CAPITAL LETTER O WITH STROKE
+    $b0: result:= #$221e;  // INFINITY
+    $b2: result:= #$2264;  // LESS-THAN OR EQUAL TO
+    $b3: result:= #$2265;  // GREATER-THAN OR EQUAL TO
+    $b4: result:= #$00a5;  // YEN SIGN
+    $b6: result:= #$2202;  // PARTIAL DIFFERENTIAL
+    $b7: result:= #$2211;  // N-ARY SUMMATION
+    $b8: result:= #$220f;  // N-ARY PRODUCT
+    $b9: result:= #$03c0;  // GREEK SMALL LETTER PI
+    $ba: result:= #$222b;  // INTEGRAL
+    $bb: result:= #$00aa;  // FEMININE ORDINAL INDICATOR
+    $bc: result:= #$00ba;  // MASCULINE ORDINAL INDICATOR
+    $bd: result:= #$2126;  // OHM SIGN
+    $be: result:= #$00e6;  // LATIN SMALL LIGATURE AE
+    $bf: result:= #$00f8;  // LATIN SMALL LETTER O WITH STROKE
+    $c0: result:= #$00bf;  // INVERTED QUESTION MARK
+    $c1: result:= #$00a1;  // INVERTED EXCLAMATION MARK
+    $c2: result:= #$00ac;  // NOT SIGN
+    $c3: result:= #$221a;  // SQUARE ROOT
+    $c4: result:= #$0192;  // LATIN SMALL LETTER F WITH HOOK
+    $c5: result:= #$2248;  // ALMOST EQUAL TO
+    $c6: result:= #$2206;  // INCREMENT
+    $c7: result:= #$00ab;  // LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+    $c8: result:= #$00bb;  // RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+    $c9: result:= #$2026;  // HORIZONTAL ELLIPSIS
+    $ca: result:= #$00a0;  // NO-BREAK SPACE
+    $cb: result:= #$00c0;  // LATIN CAPITAL LETTER A WITH GRAVE
+    $cc: result:= #$00c3;  // LATIN CAPITAL LETTER A WITH TILDE
+    $cd: result:= #$00d5;  // LATIN CAPITAL LETTER O WITH TILDE
+    $ce: result:= #$0152;  // LATIN CAPITAL LIGATURE OE
+    $cf: result:= #$0153;  // LATIN SMALL LIGATURE OE
+    $d0: result:= #$2013;  // EN DASH
+    $d1: result:= #$2014;  // EM DASH
+    $d2: result:= #$201c;  // LEFT DOUBLE QUOTATION MARK
+    $d3: result:= #$201d;  // RIGHT DOUBLE QUOTATION MARK
+    $d4: result:= #$2018;  // LEFT SINGLE QUOTATION MARK
+    $d5: result:= #$2019;  // RIGHT SINGLE QUOTATION MARK
+    $d6: result:= #$00f7;  // DIVISION SIGN
+    $d7: result:= #$25ca;  // LOZENGE
+    $d8: result:= #$00ff;  // LATIN SMALL LETTER Y WITH DIAERESIS
+    $d9: result:= #$0178;  // LATIN CAPITAL LETTER Y WITH DIAERESIS
+    $da: result:= #$2044;  // FRACTION SLASH
+    $db: result:= #$00a4;  // CURRENCY SIGN
+    $dc: result:= #$2039;  // SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+    $dd: result:= #$203a;  // SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+    $de: result:= #$fb01;  // LATIN SMALL LIGATURE FI
+    $df: result:= #$fb02;  // LATIN SMALL LIGATURE FL
+    $e0: result:= #$2021;  // DOUBLE DAGGER
+    $e1: result:= #$00b7;  // MIDDLE DOT
+    $e2: result:= #$201a;  // SINGLE LOW-9 QUOTATION MARK
+    $e3: result:= #$201e;  // DOUBLE LOW-9 QUOTATION MARK
+    $e4: result:= #$2030;  // PER MILLE SIGN
+    $e5: result:= #$00c2;  // LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    $e6: result:= #$00ca;  // LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+    $e7: result:= #$00c1;  // LATIN CAPITAL LETTER A WITH ACUTE
+    $e8: result:= #$00cb;  // LATIN CAPITAL LETTER E WITH DIAERESIS
+    $e9: result:= #$00c8;  // LATIN CAPITAL LETTER E WITH GRAVE
+    $ea: result:= #$00cd;  // LATIN CAPITAL LETTER I WITH ACUTE
+    $eb: result:= #$00ce;  // LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    $ec: result:= #$00cf;  // LATIN CAPITAL LETTER I WITH DIAERESIS
+    $ed: result:= #$00cc;  // LATIN CAPITAL LETTER I WITH GRAVE
+    $ee: result:= #$00d3;  // LATIN CAPITAL LETTER O WITH ACUTE
+    $ef: result:= #$00d4;  // LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    $f0: raise EConvertError.CreateFmt('Invalid cp10000_MacRoman sequence "%s"',[P]);
+    $f1: result:= #$00d2;  // LATIN CAPITAL LETTER O WITH GRAVE
+    $f2: result:= #$00da;  // LATIN CAPITAL LETTER U WITH ACUTE
+    $f3: result:= #$00db;  // LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    $f4: result:= #$00d9;  // LATIN CAPITAL LETTER U WITH GRAVE
+    $f5: result:= #$0131;  // LATIN SMALL LETTER DOTLESS I
+    $f6: result:= #$02c6;  // MODIFIER LETTER CIRCUMFLEX ACCENT
+    $f7: result:= #$02dc;  // SMALL TILDE
+    $f8: result:= #$00af;  // MACRON
+    $f9: result:= #$02d8;  // BREVE
+    $fa: result:= #$02d9;  // DOT ABOVE
+    $fb: result:= #$02da;  // RING ABOVE
+    $fc: result:= #$00b8;  // CEDILLA
+    $fd: result:= #$02dd;  // DOUBLE ACUTE ACCENT
+    $fe: result:= #$02db;  // OGONEK
+    $ff: result:= #$02c7;  // CARON
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function cp1250ToUTF16Char(const P: AnsiChar):WideChar;
+// This function was provided by Miloslav Sk�cel
+const
+  sInvalidWindows1250Sequence = 'Invalid Windows-1250 sequence "%s"';
+begin
+  case ord(p) of
+    // NOT USED
+    $81,$83,$88,$90,$98:
+      raise EConvertError.CreateFmt(sInvalidWindows1250Sequence,[P]);
+    $80: result:= #$20ac;  // EURO SIGN
+    $82: Result:= #$201a;  // SINGLE LOW-9 QUOTATION MARK
+    $84: Result:= #$201e;  // DOUBLE LOW-9 QUOTATION MARK
+    $85: Result:= #$2026;  // HORIZONTAL ELLIPSIS
+    $86: Result:= #$2020;  // DAGGER
+    $87: Result:= #$2021;  // DOUBLE DAGGER
+    $89: Result:= #$2030;  // PER MILLE SIGN
+    $8a: Result:= #$0160;  // LATIN CAPITAL LETTER S WITH CARON
+    $8b: Result:= #$2039;  // SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+    $8c: Result:= #$015a;  // LATIN CAPITAL LETTER S WITH ACUTE
+    $8d: Result:= #$0164;  // LATIN CAPITAL LETTER T WITH CARON
+    $8e: Result:= #$017d;  // LATIN CAPITAL LETTER Z WITH CARON
+    $8f: Result:= #$0179;  // LATIN CAPITAL LETTER Z WITH ACUTE
+    $91: Result:= #$2018;  // LEFT SINGLE QUOTATION MARK
+    $92: Result:= #$2019;  // RIGHT SINGLE QUOTATION MARK
+    $93: Result:= #$201c;  // LEFT DOUBLE QUOTATION MARK
+    $94: Result:= #$201d;  // RIGHT DOUBLE QUOTATION MARK
+    $95: Result:= #$2022;  // BULLET
+    $96: Result:= #$2013;  // EN-DASH
+    $97: Result:= #$2014;  // EM-DASH
+    $99: Result:= #$2122;  // TRADE MARK SIGN
+    $9a: Result:= #$0161;  // LATIN SMALL LETTER S WITH CARON
+    $9b: Result:= #$203a;  // SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+    $9c: Result:= #$015b;  // LATIN SMALL LETTER S WITH ACUTE
+    $9d: Result:= #$0165;  // LATIN SMALL LETTER T WITH CARON
+    $9e: Result:= #$017e;  // LATIN SMALL LETTER Z WITH CARON
+    $9f: Result:= #$017a;  // LATIN SMALL LETTER Z WITH ACUTE
+    $a0: Result:= #$00a0;  // NO-BREAK SPACE
+    $a1: Result:= #$02c7;  // CARON
+    $a2: Result:= #$02d8;  // BREVE
+    $a3: Result:= #$0141;  // LATIN CAPITAL LETTER L WITH STROKE
+    $a4: Result:= #$00a4;  // CURRENCY SIGN
+    $a5: Result:= #$0104;  // LATIN CAPITAL LETTER A WITH OGONEK
+    $a6: Result:= #$00a6;  // BROKEN BAR
+    $a7: Result:= #$00a7;  // SECTION SIGN
+    $a8: Result:= #$00a8;  // DIAERESIS
+    $a9: Result:= #$00a9;  // COPYRIGHT SIGN
+    $aa: Result:= #$015e;  // LATIN CAPITAL LETTER S WITH CEDILLA
+    $ab: Result:= #$00ab;  // LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+    $ac: Result:= #$00ac;  // NOT SIGN
+    $ad: Result:= #$00ad;  // SOFT HYPHEN
+    $ae: Result:= #$00ae;  // REGISTERED SIGN
+    $af: Result:= #$017b;  // LATIN CAPITAL LETTER Z WITH DOT ABOVE
+    $b0: Result:= #$00b0;  // DEGREE SIGN
+    $b1: Result:= #$00b1;  // PLUS-MINUS SIGN
+    $b2: Result:= #$02db;  // OGONEK
+    $b3: Result:= #$0142;  // LATIN SMALL LETTER L WITH STROKE
+    $b4: Result:= #$00b4;  // ACUTE ACCENT
+    $b5: Result:= #$00b5;  // MIKRO SIGN
+    $b6: Result:= #$00b6;  // PILCROW SIGN
+    $b7: Result:= #$00b7;  // MIDDLE DOT
+    $b8: Result:= #$00b8;  // CEDILLA
+    $b9: Result:= #$0105;  // LATIN SMALL LETTER A WITH OGONEK
+    $ba: Result:= #$015f;  // LATIN SMALL LETTER S WITH CEDILLA
+    $bb: Result:= #$00bb;  // RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+    $bc: Result:= #$013d;  // LATIN CAPITAL LETTER L WITH CARON
+    $bd: Result:= #$02dd;  // DOUBLE ACUTE ACCENT
+    $be: Result:= #$013e;  // LATIN SMALL LETTER L WITH CARON
+    $bf: Result:= #$017c;  // LATIN SMALL LETTER Z WITH DOT ABOVE
+    $c0: Result:= #$0154;  // LATIN CAPITAL LETTER R WITH ACUTE
+    $c1: Result:= #$00c1;  // LATIN CAPITAL LETTER A WITH ACUTE
+    $c2: Result:= #$00c2;  // LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    $c3: Result:= #$0102;  // LATIN CAPITAL LETTER A WITH BREVE
+    $c4: Result:= #$00c4;  // LATIN CAPITAL LETTER A WITH DIAERESIS
+    $c5: Result:= #$0139;  // LATIN CAPITAL LETTER L WITH ACUTE
+    $c6: Result:= #$0106;  // LATIN CAPITAL LETTER C WITH ACUTE
+    $c7: Result:= #$00c7;  // LATIN CAPITAL LETTER C WITH CEDILLA
+    $c8: Result:= #$010c;  // LATIN CAPITAL LETTER C WITH CARON
+    $c9: Result:= #$00c9;  // LATIN CAPITAL LETTER E WITH ACUTE
+    $ca: Result:= #$0118;  // LATIN CAPITAL LETTER E WITH OGONEK
+    $cb: Result:= #$00cb;  // LATIN CAPITAL LETTER E WITH DIAERESIS
+    $cc: Result:= #$011a;  // LATIN CAPITAL LETTER E WITH CARON
+    $cd: Result:= #$00cd;  // LATIN CAPITAL LETTER I WITH ACUTE
+    $ce: Result:= #$00ce;  // LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    $cf: Result:= #$010e;  // LATIN CAPITAL LETTER D WITH CARON
+    $d0: Result:= #$0110;  // LATIN CAPITAL LETTER D WITH STROKE
+    $d1: Result:= #$0143;  // LATIN CAPITAL LETTER N WITH ACUTE
+    $d2: Result:= #$0147;  // LATIN CAPITAL LETTER N WITH CARON
+    $d3: Result:= #$00d3;  // LATIN CAPITAL LETTER O WITH ACUTE
+    $d4: Result:= #$00d4;  // LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    $d5: Result:= #$0150;  // LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+    $d6: Result:= #$00d6;  // LATIN CAPITAL LETTER O WITH DIAERESIS
+    $d7: Result:= #$00d7;  // MULTIPLICATION SIGN
+    $d8: Result:= #$0158;  // LATIN CAPITAL LETTER R WITH CARON
+    $d9: Result:= #$016e;  // LATIN CAPITAL LETTER U WITH RING ABOVE
+    $da: Result:= #$00da;  // LATIN CAPITAL LETTER U WITH ACUTE
+    $db: Result:= #$0170;  // LATIN CAPITAL LETTER U WITH WITH DOUBLE ACUTE
+    $dc: Result:= #$00dc;  // LATIN CAPITAL LETTER U WITH DIAERESIS
+    $dd: Result:= #$00dd;  // LATIN CAPITAL LETTER Y WITH ACUTE
+    $de: Result:= #$0162;  // LATIN CAPITAL LETTER T WITH CEDILLA
+    $df: Result:= #$00df;  // LATIN SMALL LETTER SHARP S
+    $e0: Result:= #$0155;  // LATIN SMALL LETTER R WITH ACUTE
+    $e1: Result:= #$00e1;  // LATIN SMALL LETTER A WITH ACUTE
+    $e2: Result:= #$00e2;  // LATIN SMALL LETTER A WITH CIRCUMFLEX
+    $e3: Result:= #$0103;  // LATIN SMALL LETTER A WITH BREVE
+    $e4: Result:= #$00e4;  // LATIN SMALL LETTER A WITH DIAERESIS
+    $e5: Result:= #$013a;  // LATIN SMALL LETTER L WITH ACUTE
+    $e6: Result:= #$0107;  // LATIN SMALL LETTER C WITH ACUTE
+    $e7: Result:= #$00e7;  // LATIN SMALL LETTER C WITH CEDILLA
+    $e8: Result:= #$010d;  // LATIN SMALL LETTER C WITH CARON 100D
+    $e9: Result:= #$00e9;  // LATIN SMALL LETTER E WITH ACUTE
+    $ea: Result:= #$0119;  // LATIN SMALL LETTER E WITH OGONEK
+    $eb: Result:= #$00eb;  // LATIN SMALL LETTER E WITH DIAERESIS
+    $ec: Result:= #$011b;  // LATIN SMALL LETTER E WITH CARON
+    $ed: Result:= #$00ed;  // LATIN SMALL LETTER I WITH ACUTE
+    $ee: Result:= #$00ee;  // LATIN SMALL LETTER I WITH CIRCUMFLEX
+    $ef: Result:= #$010f;  // LATIN SMALL LETTER D WITH CARON
+    $f0: Result:= #$0111;  // LATIN SMALL LETTER D WITH STROKE
+    $f1: Result:= #$0144;  // LATIN SMALL LETTER N WITH ACUTE
+    $f2: Result:= #$0148;  // LATIN SMALL LETTER N WITH CARON
+    $f3: Result:= #$00f3;  // LATIN SMALL LETTER O WITH ACUTE
+    $f4: Result:= #$00f4;  // LATIN SMALL LETTER O WITH CIRCUMFLEX
+    $f5: Result:= #$0151;  // LATIN SMALL LETTER O WITH DOUBLE ACUTE
+    $f6: Result:= #$00f6;  // LATIN SMALL LETTER O WITH DIAERESIS
+    $f7: Result:= #$00f7;  // DIVISION SIGN
+    $f8: Result:= #$0159;  // LATIN SMALL LETTER R WITH CARON
+    $f9: Result:= #$016f;  // LATIN SMALL LETTER U WITH RING ABOVE
+    $fa: Result:= #$00fa;  // LATIN SMALL LETTER U WITH ACUTE
+    $fb: Result:= #$0171;  // LATIN SMALL LETTER U WITH WITH DOUBLE ACUTE
+    $fc: Result:= #$00fc;  // LATIN SMALL LETTER U WITH DIAERESIS
+    $fd: Result:= #$00fd;  // LATIN SMALL LETTER Y WITH ACUTE
+    $fe: Result:= #$0163;  // LATIN SMALL LETTER T WITH CEDILLA
+    $ff: Result:= #$02d9;  // DOT ABOVE
+  else
+    Result:= WideChar(ord(P));
+  end;
+end;
+
+function cp1251ToUTF16Char(const P: AnsiChar):WideChar;
+begin
+  case ord(P) of
+    $80: result:= #$0402;  // CYRILLIC CAPITAL LETTER DJE
+    $81: result:= #$0403;  // CYRILLIC CAPITAL LETTER GJE
+    $82: result:= #$201a;  // SINGLE LOW-9 QUOTATION MARK
+    $83: result:= #$0453;  // CYRILLIC SMALL LETTER GJE
+    $84: result:= #$201e;  // DOUBLE LOW-9 QUOTATION MARK
+    $85: result:= #$2026;  // HORIZONTAL ELLIPSIS
+    $86: result:= #$2020;  // DAGGER
+    $87: result:= #$2021;  // DOUBLE DAGGER
+    $88: result:= #$20ac;  // EURO SIGN
+    $89: result:= #$2030;  // PER MILLE SIGN
+    $8a: result:= #$0409;  // CYRILLIC CAPITAL LETTER LJE
+    $8b: result:= #$2039;  // SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+    $8c: result:= #$040a;  // CYRILLIC CAPITAL LETTER NJE
+    $8d: result:= #$040c;  // CYRILLIC CAPITAL LETTER KJE
+    $8e: result:= #$040b;  // CYRILLIC CAPITAL LETTER TSHE
+    $8f: result:= #$040f;  // CYRILLIC CAPITAL LETTER DZHE
+    $90: result:= #$0452;  // CYRILLIC SMALL LETTER DJE
+    $91: result:= #$2018;  // LEFT SINGLE QUOTATION MARK
+    $92: result:= #$2019;  // RIGHT SINGLE QUOTATION MARK
+    $93: result:= #$201c;  // LEFT DOUBLE QUOTATION MARK
+    $94: result:= #$201d;  // RIGHT DOUBLE QUOTATION MARK
+    $95: result:= #$2022;  // BULLET
+    $96: result:= #$2013;  // EN DASH
+    $97: result:= #$2014;  // EM DASH
+    $98: raise EConvertError.CreateFmt('Invalid cp1251 sequence "%s"',[P]);
+    $99: result:= #$2122;  // TRADE MARK SIGN
+    $9a: result:= #$0459;  // CYRILLIC SMALL LETTER LJE
+    $9b: result:= #$203a;  // SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+    $9c: result:= #$045a;  // CYRILLIC SMALL LETTER NJE
+    $9d: result:= #$045c;  // CYRILLIC SMALL LETTER KJE
+    $9e: result:= #$045b;  // CYRILLIC SMALL LETTER TSHE
+    $9f: result:= #$045f;  // CYRILLIC SMALL LETTER DZHE
+    $a0: result:= #$00a0;  // NO-BREAK SPACE
+    $a1: result:= #$040e;  // CYRILLIC CAPITAL LETTER SHORT U
+    $a2: result:= #$045e;  // CYRILLIC SMALL LETTER SHORT U
+    $a3: result:= #$0408;  // CYRILLIC CAPITAL LETTER JE
+    $a4: result:= #$00a4;  // CURRENCY SIGN
+    $a5: result:= #$0490;  // CYRILLIC CAPITAL LETTER GHE WITH UPTURN
+    $a8: result:= #$0401;  // CYRILLIC CAPITAL LETTER IO
+    $aa: result:= #$0404;  // CYRILLIC CAPITAL LETTER UKRAINIAN IE
+    $af: result:= #$0407;  // CYRILLIC CAPITAL LETTER YI
+    $b2: result:= #$0406;  // CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+    $b3: result:= #$0456;  // CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+    $b4: result:= #$0491;  // CYRILLIC SMALL LETTER GHE WITH UPTURN
+    $b8: result:= #$0451;  // CYRILLIC SMALL LETTER IO
+    $b9: result:= #$2116;  // NUMERO SIGN
+    $ba: result:= #$0454;  // CYRILLIC SMALL LETTER UKRAINIAN IE
+    $bc: result:= #$0458;  // CYRILLIC SMALL LETTER JE
+    $bd: result:= #$0405;  // CYRILLIC CAPITAL LETTER DZE
+    $be: result:= #$0455;  // CYRILLIC SMALL LETTER DZE
+    $bf: result:= #$0457;  // CYRILLIC SMALL LETTER YI
+    $c0..$ff:
+      result:= WideChar(ord(P)+$350);
+  else
+    result:= WideChar(ord(P));
+  end;
+end;
+
+function cp1252ToUTF16Char(const P: AnsiChar):WideChar;
+// Provided by Olaf L�sken.
+// Info taken from
+// ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT
+const
+  sInvalidWindows1252Sequence = 'Invalid Windows-1252 sequence "%s"';
+begin
+  case ord(p) of
+    $80 : result:= #$20AC; //EUROSIGN
+    $81 : raise EConvertError.CreateFmt(sInvalidWindows1252Sequence,[P]);
+    $82 : result:= #$201A; //SINGLE LOW-9 QUOTATION MARK
+    $83 : result:= #$0192; //ATIN SMALL LETTER F WITH HOOK
+    $84 : result:= #$201E; //DOUBLE LOW-9 QUOTATION MARK
+    $85 : result:= #$2026; //HORIZONTAL ELLIPSIS
+    $86 : result:= #$2020; //DAGGER
+    $87 : result:= #$2021; //DOUBLE DAGGER
+    $88 : result:= #$02C6; //MODIFIER LETTER CIRCUMFLEX ACCENT
+    $89 : result:= #$2030; //PER MILLE SIGN
+    $8A : result:= #$0160; //LATIN CAPITAL LETTER S WITH CARON
+    $8B : result:= #$2039; //SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+    $8C : result:= #$0152; //LATIN CAPITAL LIGATURE OE
+    $8D : raise EConvertError.CreateFmt(sInvalidWindows1252Sequence,[P]);
+    $8E : result:= #$017D; //LATIN CAPITAL LETTER Z WITH CARON
+    $8F : raise EConvertError.CreateFmt(sInvalidWindows1252Sequence,[P]);
+    $90 : raise EConvertError.CreateFmt(sInvalidWindows1252Sequence,[P]);
+    $91 : result:= #$2018; //LEFT SINGLE QUOTATION MARK
+    $92 : result:= #$2019; //RIGHT SINGLE QUOTATION MARK
+    $93 : result:= #$201C; //LEFT DOUBLE QUOTATION MARK
+    $94 : result:= #$201D; //RIGHT DOUBLE QUOTATION MARK
+    $95 : result:= #$2022; //BULLET
+    $96 : result:= #$2013; //EN DASH
+    $97 : result:= #$2014; //EM DASH
+    $98 : result:= #$02DC; //SMALL TILDE
+    $99 : result:= #$2122; //TRADE MARK SIGN
+    $9A : result:= #$0161; //LATIN SMALL LETTER S WITH CARON
+    $9B : result:= #$203A; //SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+    $9C : result:= #$0153; //LATIN SMALL LIGATURE OE
+    $9D : raise EConvertError.CreateFmt(sInvalidWindows1252Sequence,[P]);
+    $9E : result:= #$017E; //LATIN SMALL LETTER Z WITH CARON
+    $9F : result:= #$0178; //LATIN CAPITAL LETTER Y WITH D
+  else
+    Result:= WideChar(ord(P));
+  end;
+end;
+
+function Iso8859_1ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-1 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_1ToUTF16Char(s[i]);
+end;
+
+function Iso8859_2ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-2 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_2ToUTF16Char(s[i]);
+end;
+
+function Iso8859_3ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-3 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_3ToUTF16Char(s[i]);
+end;
+
+function Iso8859_4ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-4 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_4ToUTF16Char(s[i]);
+end;
+
+function Iso8859_5ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-5 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_5ToUTF16Char(s[i]);
+end;
+
+function Iso8859_6ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-6 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_6ToUTF16Char(s[i]);
+end;
+
+function Iso8859_7ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-7 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_7ToUTF16Char(s[i]);
+end;
+
+function Iso8859_8ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-8 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_8ToUTF16Char(s[i]);
+end;
+
+function Iso8859_9ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-9 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_9ToUTF16Char(s[i]);
+end;
+
+function Iso8859_10ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-10 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_10ToUTF16Char(s[i]);
+end;
+
+function Iso8859_13ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-13 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_13ToUTF16Char(s[i]);
+end;
+
+function Iso8859_14ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-14 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_14ToUTF16Char(s[i]);
+end;
+
+function Iso8859_15ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an ISO-8859-15 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=Iso8859_15ToUTF16Char(s[i]);
+end;
+
+function KOI8_RToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an KOI8-R string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=KOI8_RToUTF16Char(s[i]);
+end;
+
+function cp10000_MacRomanToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an cp10000_MacRoman string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=cp10000_MacRomanToUTF16Char(s[i]);
+end;
+
+function cp1250ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an cp1250 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=cp1250ToUTF16Char(s[i]);
+end;
+
+function cp1251ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an cp1251 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=cp1251ToUTF16Char(s[i]);
+end;
+
+function cp1252ToUTF16Str(const s: Ansistring): UnicodeString;
+// Converts an cp1252 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) are done.
+var
+  i,j: integer;
+begin
+  j:= length(s);
+  setLength(Result,j);
+  for i:= 1 to j do
+    Result[i]:=cp1252ToUTF16Char(s[i]);
+end;
+
+function UTF8ToUTF16BEStr(const s: Ansistring): UnicodeString;
+// Converts an UTF-8 string into an UTF-16 wideString.
+// No special conversions (e.g. on line breaks) and
+// no XML-char checking are done.
+// - This function was provided by Ernst van der Pols -
+// - and slightly modified by Dieter K�hler -
+const
+  MaxCode: array[1..6] of integer = ($7F,$7FF,$FFFF,$1FFFFF,$3FFFFFF,$7FFFFFFF);
+var
+  i, j, CharSize, mask, ucs4: integer;
+  c, first: Ansichar;
+begin
+  setLength(Result,Length(s)+1); // assume no or little above-ASCII-chars
+  j:=0;                          // keep track of actual length
+  i:=0;
+  while i<length(s) do
+  begin
+    Inc(i); c:=s[i];
+    if ord(c)>=$80 then         // UTF-8 sequence
+    begin
+      CharSize:=1;
+      first:=c; mask:=$40; ucs4:=ord(c);
+      if (ord(c) and $C0<>$C0) then
+        raise EConvertError.CreateFmt('Invalid UTF-8 sequence %2.2X',[ord(c)]);
+      while (mask and ord(first)<>0) do
+      begin
+        // read next character of stream
+        if i=length(s) then
+          raise EConvertError.CreateFmt('Aborted UTF-8 sequence "%s"',[Copy(s,i-CharSize,CharSize)]);
+        Inc(i); c:=s[i];
+        if (ord(c) and $C0<>$80) then
+          raise EConvertError.CreateFmt('Invalid UTF-8 sequence $%2.2X',[ord(c)]);
+        ucs4:=(ucs4 shl 6) or (ord(c) and $3F); // add bits to result
+        Inc(CharSize);  // increase sequence length
+        mask:=mask shr 1;    // adjust mask
+      end;
+      if (CharSize>6) then   // no 0 bit in sequence header 'first'
+        raise EConvertError.CreateFmt('Invalid UTF-8 sequence "%s"',[Copy(s,i-CharSize,CharSize)]);
+      ucs4:=ucs4 and MaxCode[CharSize]; // dispose of header bits
+      // check for invalid sequence as suggested by RFC2279
+      if ((CharSize>1) and (ucs4<=MaxCode[CharSize-1])) then
+        raise EConvertError.CreateFmt('Invalid UTF-8 encoding "%s"',[Copy(s,i-CharSize,CharSize)]);
+      // convert non-ASCII UCS-4 to UTF-16 if possible
+      case ucs4 of
+      $00000080..$0000D7FF,$0000E000..$0000FFFD:
+        begin
+          Inc(j); Result[j]:=WideChar(ord(c));
+        end;
+      $0000D800..$0000DFFF,$0000FFFE,$0000FFFF:
+        raise EConvertError.CreateFmt('Invalid UCS-4 character $%8.8X',[ucs4]);
+      $00010000..$0010FFFF:
+        begin
+          // add high surrogate to content as if it was processed earlier
+          Inc(j); Result[j]:= Utf16HighSurrogate(ucs4);  // assign high surrogate
+          Inc(j); Result[j]:= Utf16LowSurrogate(ucs4);   // assign low surrogate
+        end;
+      else // out of UTF-16 range
+        raise EConvertError.CreateFmt('Cannot convert $%8.8X to UTF-16',[ucs4]);
+      end;
+    end
+    else        // ASCII char
+    begin
+      Inc(j); Result[j]:=WideChar(ord(c));
+    end;
+  end;
+  setLength(Result,j); // set to correct length
+end;
+
+function UTF16BEToUTF8Str(const ws: UnicodeString;
+                          const expandLF: boolean): AnsiString;
+var
+  StringStr: TROBinaryMemoryStream;
+  UTF16To8: TUTF16BEToUTF8Stream;
+begin
+  StringStr := TROBinaryMemoryStream.create;
+  try
+    UTF16To8 := TUTF16BEToUTF8Stream.create(StringStr);
+    try
+      UTF16To8.ExpandLF := expandLF;
+      UTF16To8.WriteBuffer(pointer(ws)^, Length(ws) shl 1);
+    finally
+      UTF16To8.Free;
+    end;
+    Result := StringStr.ToString;
+  finally
+    StringStr.Free;
+  end;
+end;
+
+function UTF16To7BitASCIIChar(const P: WideChar): Ansichar;
+begin
+  case ord(p) of
+    $00..$7f: result:= Ansichar(ord(p));
+  else
+    raise EConvertError.CreateFmt('Invalid 7BitASCII sequence "%s"',[P]);
+  end;
+end;
+
+function UTF16ToIso8859_1Char(const P: WideChar): Ansichar;
+begin
+  case ord(p) of
+    $00..$ff: result:= Ansichar(ord(p));
+  else
+   raise EConvertError.CreateFmt('Invalid ISO-8859-1 sequence "%s"',[P]);
+  end;
+end;
+
+function UTF16To7BitASCIIStr(const S: UnicodeString): Ansistring;
+var
+  i,j,start: integer;
+  encType: TdomEncodingType;
+begin
+  j:= length(s);
+  start:= 1;
+  encType:= etUTF16BE;
+  if j > 0 then begin
+    // Byte order mark?
+    if s[1] = #$feff then start:= 2
+    else if s[1] = #$fffe then begin start:= 2; encType:= etUTF16LE; end;
+  end;
+  setLength(Result,j-start+1);
+  if encType = etUTF16BE
+    then for i:= start to j do Result[i]:= UTF16To7BitASCIIChar(s[i])
+    else for i:= start to j do Result[i]:= UTF16To7BitASCIIChar(WideChar(Swap(ord(s[i]))));
+end;
+
+function UTF16ToIso8859_1Str(const S: UnicodeString): Ansistring;
+var
+  i,j,start: integer;
+  encType: TdomEncodingType;
+begin
+  j:= length(s);
+  start:= 1;
+  encType:= etUTF16BE;
+  if j > 0 then begin
+    // Byte order mark?
+    if s[1] = #$feff then start:= 2
+    else if s[1] = #$fffe then begin start:= 2; encType:= etUTF16LE; end;
+  end;
+  setLength(Result,j-start+1);
+  if encType = etUTF16BE
+    then for i:= start to j do Result[i]:= UTF16ToIso8859_1Char(s[i])
+    else for i:= start to j do Result[i]:= UTF16ToIso8859_1Char(WideChar(Swap(ord(s[i]))));
+end;
+
+function Utf16HighSurrogate(const value: integer): WideChar;
+var
+  value2: word;
+begin
+  value2:= ($D7C0 + ( value shr 10 ));
+  Result:= WideChar(value2);
+end;
+
+function Utf16LowSurrogate(const value: integer): WideChar;
+var
+  value2: word;
+begin
+  value2:= ($DC00 XOR (value AND $3FF));
+  Result:= WideChar(value2);
+end;
+
+function Utf16SurrogateToInt(const highSurrogate, lowSurrogate: WideChar): integer;
+begin
+  Result:=  ( (word(highSurrogate) -  $D7C0) shl 10 )
+          + (  word(lowSurrogate) XOR $DC00  );
+end;
+
+function IsUtf16HighSurrogate(const S: WideChar): boolean;
+begin
+  Case Word(S) of
+    $D800..$DBFF: result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function IsUtf16LowSurrogate(const S: WideChar): boolean;
+begin
+  Case Word(S) of
+    $DC00..$DFFF: result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+
+
+{ TCSMIB }
+
+constructor TCSMIB.Create(AOwner: TComponent);
+begin
+  inherited;
+  Enum:= 3;
+end;
+
+procedure TCSMIB.DoChange(Sender: TObject);
+begin
+  if assigned(FOnChange)
+    then FOnChange(Sender);
+end;
+
+procedure TCSMIB.DoChanging(Sender: TObject; NewEnum: integer;
+  var AllowChange: Boolean);
+begin
+  if assigned(FOnChanging)
+    then FOnChanging(Sender,NewEnum,AllowChange);
+end;
+
+function TCSMIB.GetAlias(i: integer): string;
+begin
+  case FEnum of
+    3: case i of
+      0: result:= 'ANSI_X3.4-1968';
+      1: result:= 'iso-ir-6';
+      2: result:= 'ANSI_X3.4-1986';
+      3: result:= 'ISO_646.irv:1991';
+      4: result:= 'ASCII';
+      5: result:= 'ISO646-US';
+      6: result:= 'US-ASCII';
+      7: result:= 'us';
+      8: result:= 'IBM367';
+      9: result:= 'cp367';
+      10: result:= 'csASCII';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    4: case i of
+      0: result:= 'ISO_8859-1:1987';
+      1: result:= 'iso-ir-100';
+      2: result:= 'ISO_8859-1';
+      3: result:= 'ISO-8859-1';
+      4: result:= 'latin1';
+      5: result:= 'l1';
+      6: result:= 'IBM819';
+      7: result:= 'CP819';
+      8: result:= 'csISOLatin1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    5: case i of
+      0: result:= 'ISO_8859-2:1987';
+      1: result:= 'iso-ir-101';
+      2: result:= 'ISO_8859-2';
+      3: result:= 'ISO-8859-2';
+      4: result:= 'latin2';
+      5: result:= 'l2';
+      6: result:= 'csISOLatin2';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    6: case i of
+      0: result:= 'ISO_8859-3:1988';
+      1: result:= 'iso-ir-109';
+      2: result:= 'ISO_8859-3';
+      3: result:= 'ISO-8859-3';
+      4: result:= 'latin3';
+      5: result:= 'l3';
+      6: result:= 'csISOLatin3';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    7: case i of
+      0: result:= 'ISO_8859-4:1988';
+      1: result:= 'iso-ir-110';
+      2: result:= 'ISO_8859-4';
+      3: result:= 'ISO-8859-4';
+      4: result:= 'latin4';
+      5: result:= 'l4';
+      6: result:= 'csISOLatin4';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    8: case i of
+      0: result:= 'ISO_8859-5:1988';
+      1: result:= 'iso-ir-144';
+      2: result:= 'ISO_8859-5';
+      3: result:= 'ISO-8859-5';
+      4: result:= 'cyrillic';
+      5: result:= 'csISOLatinCyrillic';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    9: case i of
+      0: result:= 'ISO_8859-6:1987';
+      1: result:= 'iso-ir-127';
+      2: result:= 'ISO_8859-6';
+      3: result:= 'ISO-8859-6';
+      4: result:= 'ECMA-114';
+      5: result:= 'ASMO-708';
+      6: result:= 'arabic';
+      7: result:= 'csISOLatinArabic';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    10: case i of
+      0: result:= 'ISO_8859-7:1987';
+      1: result:= 'iso-ir-126';
+      2: result:= 'ISO_8859-7';
+      3: result:= 'ISO-8859-7';
+      4: result:= 'ELOT_928';
+      5: result:= 'ECMA-118';
+      6: result:= 'greek';
+      7: result:= 'greek8';
+      8: result:= 'csISOLatinGreek';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    11: case i of
+      0: result:= 'ISO_8859-8:1988';
+      1: result:= 'iso-ir-138';
+      2: result:= 'ISO_8859-8';
+      3: result:= 'ISO-8859-8';
+      4: result:= 'hebrew';
+      5: result:= 'csISOLatinHebrew';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    12: case i of
+      0: result:= 'ISO_8859-9:1989';
+      1: result:= 'iso-ir-148';
+      2: result:= 'ISO_8859-9';
+      3: result:= 'ISO-8859-9';
+      4: result:= 'latin5';
+      5: result:= 'l5';
+      6: result:= 'csISOLatin5';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    13: case i of
+      0: result:= 'ISO_8859-10';
+      1: result:= 'iso-ir-157';
+      2: result:= 'l6';
+      3: result:= 'ISO-8859-10:1992';
+      4: result:= 'csISOLatin6';
+      5: result:= 'latin6';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    14: case i of
+      0: result:= 'ISO_6937-2-add';
+      1: result:= 'iso-ir-142';
+      2: result:= 'csISOTextComm';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    15: case i of
+      0: result:= 'JIS_X0201';
+      1: result:= 'X0201';
+      2: result:= 'csHalfWidthKatakana';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    16: case i of
+      0: result:= 'JIS_Encoding';
+      1: result:= 'csJISEncoding';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    17: case i of
+      0: result:= 'Shift_JIS';
+      1: result:= 'MS_Kanji';
+      2: result:= 'csShiftJIS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    18: case i of
+      0: result:= 'Extended_UNIX_Code_Packed_Format_for_Japanese';
+      1: result:= 'csEUCPPkdFmtJapanese';
+      2: result:= 'EUC-JP';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    19: case i of
+      0: result:= 'Extended_UNIX_Code_Fixed_Width_for_Japanese';
+      1: result:= 'csEUCFixWidJapanese';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    20: case i of
+      0: result:= 'BS_4730';
+      1: result:= 'iso-ir-4';
+      2: result:= 'ISO646-GB';
+      3: result:= 'gb';
+      4: result:= 'uk';
+      5: result:= 'csISO4UnitedKingdom';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    21: case i of
+      0: result:= 'SEN_850200_C';
+      1: result:= 'iso-ir-11';
+      2: result:= 'ISO646-SE2';
+      3: result:= 'se2';
+      4: result:= 'csISO11SwedishForNames';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    22: case i of
+      0: result:= 'IT';
+      1: result:= 'iso-ir-15';
+      2: result:= 'ISO646-IT';
+      3: result:= 'csISO15Italian';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    23: case i of
+      0: result:= 'ES';
+      1: result:= 'iso-ir-17';
+      2: result:= 'ISO646-ES';
+      3: result:= 'csISO17Spanish';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    24: case i of
+      0: result:= 'DIN_66003';
+      1: result:= 'iso-ir-21';
+      2: result:= 'de';
+      3: result:= 'ISO646-DE';
+      4: result:= 'csISO21German';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    25: case i of
+      0: result:= 'NS_4551-1';
+      1: result:= 'iso-ir-60';
+      2: result:= 'ISO646-NO';
+      3: result:= 'no';
+      4: result:= 'csISO60Danish-Norwegian';
+      5: result:= 'csISO60Norwegian1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    26: case i of
+      0: result:= 'NF_Z_62-010';
+      1: result:= 'iso-ir-69';
+      2: result:= 'ISO646-FR';
+      3: result:= 'fr';
+      4: result:= 'csISO69French';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    27: case i of
+      0: result:= 'ISO-10646-UTF-1';
+      1: result:= 'csISO10646UTF1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    28: case i of
+      0: result:= 'ISO_646.basic:1983';
+      1: result:= 'ref';
+      2: result:= 'csISO646basic1983';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    29: case i of
+      0: result:= 'INVARIANT';
+      1: result:= 'csINVARIANT';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    30: case i of
+      0: result:= 'ISO_646.irv:1983';
+      1: result:= 'iso-ir-2';
+      2: result:= 'irv';
+      3: result:= 'csISO2Int1RefVersion';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    31: case i of
+      0: result:= 'NATS-SEFI';
+      1: result:= 'iso-ir-8-1';
+      2: result:= 'csNATSSEFI';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    32: case i of
+      0: result:= 'NATS-SEFI-ADD';
+      1: result:= 'iso-ir-8-2';
+      2: result:= 'csNATSSEFIADD';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    33: case i of
+      0: result:= 'NATS-DANO';
+      1: result:= 'iso-ir-9-1';
+      2: result:= 'csNATSDANO';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    34: case i of
+      0: result:= 'NATS-DANO-ADD';
+      1: result:= 'iso-ir-9-2';
+      2: result:= 'csNATSDANOADD';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    35: case i of
+      0: result:= 'SEN_850200_B';
+      1: result:= 'iso-ir-10';
+      2: result:= 'FI';
+      3: result:= 'ISO646-FI';
+      4: result:= 'ISO646-SE';
+      5: result:= 'se';
+      6: result:= 'csISO10Swedish';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    36: case i of
+      0: result:= 'KS_C_5601-1987';
+      1: result:= 'iso-ir-149';
+      2: result:= 'KS_C_5601-1989';
+      3: result:= 'KSC_5601';
+      4: result:= 'korean';
+      5: result:= 'csKSC56011987';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    37: case i of
+      0: result:= 'ISO-2022-KR';
+      1: result:= 'csISO2022KR';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    38: case i of
+      0: result:= 'EUC-KR';
+      1: result:= 'csEUCKR';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    39: case i of
+      0: result:= 'ISO-2022-JP';
+      1: result:= 'csISO2022JP';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    40: case i of
+      0: result:= 'ISO-2022-JP-2';
+      1: result:= 'csISO2022JP2';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    41: case i of
+      0: result:= 'JIS_C6220-1969-jp';
+      1: result:= 'JIS_C6220-1969';
+      2: result:= 'iso-ir-13';
+      3: result:= 'katakana';
+      4: result:= 'x0201-7';
+      5: result:= 'csISO13JISC6220jp';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    42: case i of
+      0: result:= 'JIS_C6220-1969-ro';
+      1: result:= 'iso-ir-14';
+      2: result:= 'jp';
+      3: result:= 'ISO646-JP';
+      4: result:= 'csISO14JISC6220ro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    43: case i of
+      0: result:= 'PT';
+      1: result:= 'iso-ir-16';
+      2: result:= 'ISO646-PT';
+      3: result:= 'csISO16Portuguese';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    44: case i of
+      0: result:= 'greek7-old';
+      1: result:= 'iso-ir-18';
+      2: result:= 'csISO18Greek7Old';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    45: case i of
+      0: result:= 'latin-greek';
+      1: result:= 'iso-ir-19';
+      2: result:= 'csISO19LatinGreek';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    46: case i of
+      0: result:= 'NF_Z_62-010_(1973)';
+      1: result:= 'iso-ir-25';
+      2: result:= 'ISO646-FR1';
+      3: result:= 'csISO25French';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    47: case i of
+      0: result:= 'Latin-greek-1';
+      1: result:= 'iso-ir-27';
+      2: result:= 'csISO27LatinGreek1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    48: case i of
+      0: result:= 'ISO_5427';
+      1: result:= 'iso-ir-37';
+      2: result:= 'csISO5427Cyrillic';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    49: case i of
+      0: result:= 'JIS_C6226-1978';
+      1: result:= 'iso-ir-42';
+      2: result:= 'csISO42JISC62261978';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    50: case i of
+      0: result:= 'BS_viewdata';
+      1: result:= 'iso-ir-47';
+      2: result:= 'csISO47BSViewdata';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    51: case i of
+      0: result:= 'INIS';
+      1: result:= 'iso-ir-49';
+      2: result:= 'csISO49INIS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    52: case i of
+      0: result:= 'INIS-8';
+      1: result:= 'iso-ir-50';
+      2: result:= 'csISO50INIS8';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    53: case i of
+      0: result:= 'INIS-cyrillic';
+      1: result:= 'iso-ir-51';
+      2: result:= 'csISO51INISCyrillic';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    54: case i of
+      0: result:= 'ISO_5427:1981';
+      1: result:= 'iso-ir-54';
+      2: result:= 'ISO5427Cyrillic1981';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    55: case i of
+      0: result:= 'ISO_5428:1980';
+      1: result:= 'iso-ir-55';
+      2: result:= 'csISO5428Greek';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    56: case i of
+      0: result:= 'GB_1988-80';
+      1: result:= 'iso-ir-57';
+      2: result:= 'cn';
+      3: result:= 'ISO646-CN';
+      4: result:= 'csISO57GB1988';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    57: case i of
+      0: result:= 'GB_2312-80';
+      1: result:= 'iso-ir-58';
+      2: result:= 'chinese';
+      3: result:= 'csISO58GB231280';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    58: case i of
+      0: result:= 'NS_4551-2';
+      1: result:= 'ISO646-NO2';
+      2: result:= 'iso-ir-61';
+      3: result:= 'no2';
+      4: result:= 'csISO61Norwegian2';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    59: case i of
+      0: result:= 'videotex-suppl';
+      1: result:= 'iso-ir-70';
+      2: result:= 'csISO70VideotexSupp1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    60: case i of
+      0: result:= 'PT2';
+      1: result:= 'iso-ir-84';
+      2: result:= 'ISO646-PT2';
+      3: result:= 'csISO84Portuguese2';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    61: case i of
+      0: result:= 'ES2';
+      1: result:= 'iso-ir-85';
+      2: result:= 'ISO646-ES2';
+      3: result:= 'csISO85Spanish2';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    62: case i of
+      0: result:= 'MSZ_7795.3';
+      1: result:= 'iso-ir-86';
+      2: result:= 'ISO646-HU';
+      3: result:= 'hu';
+      4: result:= 'csISO86Hungarian';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    63: case i of
+      0: result:= 'JIS_C6226-1983';
+      1: result:= 'iso-ir-87';
+      2: result:= 'x0208';
+      3: result:= 'JIS_X0208-1983';
+      4: result:= 'csISO87JISX0208';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    64: case i of
+      0: result:= 'greek7';
+      1: result:= 'iso-ir-88';
+      2: result:= 'csISO88Greek7';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    65: case i of
+      0: result:= 'ASMO_449';
+      1: result:= 'ISO_9036';
+      2: result:= 'arabic7';
+      3: result:= 'iso-ir-89';
+      4: result:= 'csISO89ASMO449';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    66: case i of
+      0: result:= 'iso-ir-90';
+      1: result:= 'csISO90';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    67: case i of
+      0: result:= 'JIS_C6229-1984-a';
+      1: result:= 'iso-ir-91';
+      2: result:= 'jp-ocr-a';
+      3: result:= 'csISO91JISC62291984a';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    68: case i of
+      0: result:= 'JIS_C6229-1984-b';
+      1: result:= 'iso-ir-92';
+      2: result:= 'ISO646-JP-OCR-B';
+      3: result:= 'jp-ocr-b';
+      4: result:= 'csISO92JISC62291984b';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    69: case i of
+      0: result:= 'JIS_C6229-1984-b-add';
+      1: result:= 'iso-ir-93';
+      2: result:= 'jp-ocr-b-add';
+      3: result:= 'csISO93JISC62291984badd';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    70: case i of
+      0: result:= 'JIS_C6229-1984-hand';
+      1: result:= 'iso-ir-94';
+      2: result:= 'jp-ocr-hand';
+      3: result:= 'csISO94JISC62291984hand';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    71: case i of
+      0: result:= 'JIS_C6229-1984-hand-add';
+      1: result:= 'iso-ir-95';
+      2: result:= 'jp-ocr-hand-add';
+      3: result:= 'csISO95JISC62291984handadd';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    72: case i of
+      0: result:= 'JIS_C6229-1984-kana';
+      1: result:= 'iso-ir-96';
+      2: result:= 'jp-ocr-hand';
+      3: result:= 'csISO96JISC62291984kana';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    73: case i of
+      0: result:= 'ISO_2033-1983';
+      1: result:= 'iso-ir-98';
+      2: result:= 'e13b';
+      3: result:= 'csISO2033';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    74: case i of
+      0: result:= 'ANSI_X3.110-1983';
+      1: result:= 'iso-ir-99';
+      2: result:= 'CSA_T500-1983';
+      3: result:= 'NAPLPS';
+      4: result:= 'csISO99NAPLPS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    75: case i of
+      0: result:= 'T.61-7bit';
+      1: result:= 'iso-ir-102';
+      2: result:= 'csISO102T617bit';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    76: case i of
+      0: result:= 'T.61-8bit';
+      1: result:= 'T.61';
+      2: result:= 'iso-ir-103';
+      3: result:= 'csISO103T618bit';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    77: case i of
+      0: result:= 'ECMA-cyrillic';
+      1: result:= 'iso-ir-111';
+      2: result:= 'csISO111ECMACyrillic';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    78: case i of
+      0: result:= 'CSA_Z243.4-1985-1';
+      1: result:= 'iso-ir-121';
+      2: result:= 'ISO646-CA';
+      3: result:= 'csa7-1';
+      4: result:= 'ca';
+      5: result:= 'csISO121Canadian1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    79: case i of
+      0: result:= 'CSA_Z243.4-1985-2';
+      1: result:= 'iso-ir-122';
+      2: result:= 'ISO646-CA2';
+      3: result:= 'csa7-2';
+      4: result:= 'csISO122Canadian2';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    80: case i of
+      0: result:= 'CSA_Z243.4-1985-gr';
+      1: result:= 'iso-ir-123';
+      2: result:= 'csISO123CSAZ24341985gr';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    81: case i of
+      0: result:= 'ISO_8859-6-E';
+      1: result:= 'csISO88596E';
+      2: result:= 'ISO-8859-6-E';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    82: case i of
+      0: result:= 'ISO_8859-6-I';
+      1: result:= 'csISO88596I';
+      2: result:= 'ISO-8859-6-I';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    83: case i of
+      0: result:= 'T.101-G2';
+      1: result:= 'iso-ir-128';
+      2: result:= 'csISO128T101G2';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    84: case i of
+      0: result:= 'ISO_8859-8-E';
+      1: result:= 'csISO88598E';
+      2: result:= 'ISO-8859-8-E';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    85: case i of
+      0: result:= 'ISO_8859-8-I';
+      1: result:= 'csISO88598I';
+      2: result:= 'ISO-8859-8-I';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    86: case i of
+      0: result:= 'CSN_369103';
+      1: result:= 'iso-ir-139';
+      2: result:= 'csISO139CSN369103';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    87: case i of
+      0: result:= 'JUS_I.B1.002';
+      1: result:= 'iso-ir-141';
+      2: result:= 'ISO646-YU';
+      3: result:= 'js';
+      4: result:= 'yu';
+      5: result:= 'csISO141JUSIB1002';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    88: case i of
+      0: result:= 'IEC_P27-1';
+      1: result:= 'iso-ir-143';
+      2: result:= 'csISO143IECP271';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    89: case i of
+      0: result:= 'JUS_I.B1.003-serb';
+      1: result:= 'iso-ir-146';
+      2: result:= 'serbian';
+      3: result:= 'csISO146Serbian';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    90: case i of
+      0: result:= 'JUS_I.B1.003-mac';
+      1: result:= 'macedonian';
+      2: result:= 'iso-ir-147';
+      3: result:= 'csISO147Macedonian';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    91: case i of
+      0: result:= 'greek-ccitt';
+      1: result:= 'iso-ir-150';
+      2: result:= 'csISO150';
+      3: result:= 'csISO150GreekCCITT';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    92: case i of
+      0: result:= 'NC_NC00-10:81';
+      1: result:= 'cuba';
+      2: result:= 'iso-ir-151';
+      3: result:= 'ISO646-CU';
+      4: result:= 'csISO151Cuba';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    93: case i of
+      0: result:= 'ISO_6937-2-25';
+      1: result:= 'iso-ir-152';
+      2: result:= 'csISO6937Add';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    94: case i of
+      0: result:= 'GOST_19768-74';
+      1: result:= 'ST_SEV_358-88';
+      2: result:= 'iso-ir-153';
+      3: result:= 'csISO153GOST1976874';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    95: case i of
+      0: result:= 'ISO_8859-supp';
+      1: result:= 'iso-ir-154';
+      2: result:= 'latin1-2-5';
+      3: result:= 'csISO8859Supp';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    96: case i of
+      0: result:= 'ISO_10367-box';
+      1: result:= 'iso-ir-155';
+      2: result:= 'csISO10367Box';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    97: case i of
+      0: result:= 'latin-lap';
+      1: result:= 'lap';
+      2: result:= 'iso-ir-158';
+      3: result:= 'csISO158Lap';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    98: case i of
+      0: result:= 'JIS_X0212-1990';
+      1: result:= 'x0212';
+      2: result:= 'iso-ir-159';
+      3: result:= 'csISO159JISX02121990';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    99: case i of
+      0: result:= 'DS_2089';
+      1: result:= 'DS2089';
+      2: result:= 'ISO646-DK';
+      3: result:= 'dk';
+      4: result:= 'csISO646Danish';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    100: case i of
+      0: result:= 'us-dk';
+      1: result:= 'csUSDK';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    101: case i of
+      0: result:= 'dk-us';
+      1: result:= 'csDKUS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    102: case i of
+      0: result:= 'KSC5636';
+      1: result:= 'ISO646-KR';
+      2: result:= 'csKSC5636';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    103: case i of
+      0: result:= 'UNICODE-1-1-UTF-7';
+      1: result:= 'csUnicode11UTF7';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    104: case i of
+      0: result:= 'ISO-2022-CN';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    105: case i of
+      0: result:= 'ISO-2022-CN-EXT';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    106: case i of
+      0: result:= 'UTF-8';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    109: case i of
+      0: result:= 'ISO-8859-13';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    110: case i of
+      0: result:= 'ISO-8859-14';
+      1: result:= 'iso-ir-199';
+      2: result:= 'ISO_8859-14:1998';
+      3: result:= 'ISO_8859-14';
+      4: result:= 'latin8';
+      5: result:= 'iso-celtic';
+      6: result:= 'l8';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    111: case i of
+      0: result:= 'ISO-8859-15';
+      1: result:= 'ISO_8869-15';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    112: case i of
+      0: result:= 'ISO-8859-16';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1000: case i of
+      0: result:= 'ISO-10646-UCS-2';
+      1: result:= 'csUnicode';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1001: case i of
+      0: result:= 'ISO-10646-UCS-4';
+      1: result:= 'csUCS4';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1002: case i of
+      0: result:= 'ISO-10646-UCS-Basic';
+      1: result:= 'csUnicodeASCII';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1003: case i of
+      0: result:= 'ISO-10646-Unicode-Latin1';
+      1: result:= 'csUnicodeLatin1';
+      2: result:= 'ISO-10646';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1004: case i of
+      0: result:= 'ISO-10646-J-1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1005: case i of
+      0: result:= 'ISO-Unicode-IBM-1261';
+      1: result:= 'csUnicodeIBM1261';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1006: case i of
+      0: result:= 'ISO-Unicode-IBM-1268';
+      1: result:= 'csUnicodeIBM1268';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1007: case i of
+      0: result:= 'ISO-Unicode-IBM-1276';
+      1: result:= 'csUnicodeIBM1276';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1008: case i of
+      0: result:= 'ISO-Unicode-IBM-1264';
+      1: result:= 'csUnicodeIBM1264';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1009: case i of
+      0: result:= 'ISO-Unicode-IBM-1265';
+      1: result:= 'csUnicodeIBM1265';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1010: case i of
+      0: result:= 'UNICODE-1-1';
+      1: result:= 'csUnicode11';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1011: case i of
+      0: result:= 'SCSU';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1012: case i of
+      0: result:= 'UTF-7';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1013: case i of
+      0: result:= 'UTF-16BE';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1014: case i of
+      0: result:= 'UTF-16LE';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    1015: case i of
+      0: result:= 'UTF-16';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2000: case i of
+      0: result:= 'ISO-8859-1-Windows-3.0-Latin-1';
+      1: result:= 'csWindows30Latin1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2001: case i of
+      0: result:= 'ISO-8859-1-Windows-3.1-Latin-1';
+      1: result:= 'csWindows31Latin1';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2002: case i of
+      0: result:= 'ISO-8859-2-Windows-Latin-2';
+      1: result:= 'csWindows31Latin2';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2003: case i of
+      0: result:= 'ISO-8859-9-Windows-Latin-5';
+      1: result:= 'csWindows31Latin5';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2004: case i of
+      0: result:= 'hp-roman8';
+      1: result:= 'roman8';
+      2: result:= 'r8';
+      3: result:= 'csHPRoman8';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2005: case i of
+      0: result:= 'Adobe-Standard-Encoding';
+      1: result:= 'csAdobeStandardEncoding';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2006: case i of
+      0: result:= 'Ventura-US';
+      1: result:= 'csVenturaUS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2007: case i of
+      0: result:= 'Ventura-International';
+      1: result:= 'csVenturaInternational';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2008: case i of
+      0: result:= 'DEC-MCS';
+      1: result:= 'dec';
+      2: result:= 'csDECMCS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2009: case i of
+      0: result:= 'IBM850';
+      1: result:= 'cp850';
+      2: result:= '850';
+      3: result:= 'csPC850Multilingual';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2010: case i of
+      0: result:= 'IBM852';
+      1: result:= 'cp852';
+      2: result:= '852';
+      3: result:= 'csPCp852';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2011: case i of
+      0: result:= 'IBM437';
+      1: result:= 'cp437';
+      2: result:= '437';
+      3: result:= 'csPC8CodePage437';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2012: case i of
+      0: result:= 'PC8-Danish-Norwegian';
+      1: result:= 'csPC8DanishNorwegian';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2013: case i of
+      0: result:= 'IBM862';
+      1: result:= 'cp862';
+      2: result:= '862';
+      3: result:= 'csPC862LatinHebrew';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2014: case i of
+      0: result:= 'PC8-Turkish';
+      1: result:= 'csPC8Turkish';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2015: case i of
+      0: result:= 'IBM-Symbols';
+      1: result:= 'csIBMSymbols';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2016: case i of
+      0: result:= 'IBM-Thai';
+      1: result:= 'csIBMThai';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2017: case i of
+      0: result:= 'HP-Legal';
+      1: result:= 'csHPLegal';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2018: case i of
+      0: result:= 'HP-Pi-font';
+      1: result:= 'csHPPiFont';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2019: case i of
+      0: result:= 'HP-Math8';
+      1: result:= 'csHPMath8';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2020: case i of
+      0: result:= 'Adobe-Symbol-Encoding';
+      1: result:= 'csHPPSMath';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2021: case i of
+      0: result:= 'HP-DeskTop';
+      1: result:= 'csHPDesktop';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2022: case i of
+      0: result:= 'Ventura-Math';
+      1: result:= 'csVenturaMath';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2023: case i of
+      0: result:= 'Microsoft-Publishing';
+      1: result:= 'csMicrosoftPublishing';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2024: case i of
+      0: result:= 'Windows-31J';
+      1: result:= 'csWindows31J';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2025: case i of
+      0: result:= 'GB2312';
+      1: result:= 'csGB2312';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2026: case i of
+      0: result:= 'Big5';
+      1: result:= 'csBig5';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2027: case i of
+      0: result:= 'macintosh';
+      1: result:= 'mac';
+      2: result:= 'csMacintosh';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2028: case i of
+      0: result:= 'IBM037';
+      1: result:= 'cp037';
+      2: result:= 'ebcdic-cp-us';
+      3: result:= 'ebcdic-cp-ca';
+      4: result:= 'ebcdic-cp-wt';
+      5: result:= 'ebcdic-cp-nl';
+      6: result:= 'csIBM037';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2029: case i of
+      0: result:= 'IBM038';
+      1: result:= 'EBCDIC-INT';
+      2: result:= 'cp038';
+      3: result:= 'csIBM038';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2030: case i of
+      0: result:= 'IBM273';
+      1: result:= 'CP273';
+      2: result:= 'csIBM273';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2031: case i of
+      0: result:= 'IBM274';
+      1: result:= 'EBCDIC-BE';
+      2: result:= 'CP274';
+      3: result:= 'csIBM274';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2032: case i of
+      0: result:= 'IBM275';
+      1: result:= 'EBCDIC-BR';
+      2: result:= 'cp275';
+      3: result:= 'csIBM275';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2033: case i of
+      0: result:= 'IBM277';
+      1: result:= 'EBCDIC-CP-DK';
+      2: result:= 'EBCDIC-CP-NO';
+      3: result:= 'csIBM277';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2034: case i of
+      0: result:= 'IBM278';
+      1: result:= 'CP278';
+      2: result:= 'ebcdic-cp-fi';
+      3: result:= 'ebcdic-cp-se';
+      4: result:= 'csIBM278';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2035: case i of
+      0: result:= 'IBM280';
+      1: result:= 'CP280';
+      2: result:= 'ebcdic-cp-it';
+      3: result:= 'csIBM280';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2036: case i of
+      0: result:= 'IBM281';
+      1: result:= 'EBCDIC-JP-E';
+      2: result:= 'cp281';
+      3: result:= 'csIBM281';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2037: case i of
+      0: result:= 'IBM284';
+      1: result:= 'CP284';
+      2: result:= 'ebcdic-cp-es';
+      3: result:= 'csIBM284';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2038: case i of
+      0: result:= 'IBM285';
+      1: result:= 'CP285';
+      2: result:= 'ebcdic-cp-gb';
+      3: result:= 'csIBM285';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2039: case i of
+      0: result:= 'IBM290';
+      1: result:= 'cp290';
+      2: result:= 'EBCDIC-JP-kana';
+      3: result:= 'csIBM290';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2040: case i of
+      0: result:= 'IBM297';
+      1: result:= 'cp297';
+      2: result:= 'ebcdic-cp-fr';
+      3: result:= 'csIBM297';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2041: case i of
+      0: result:= 'IBM420';
+      1: result:= 'cp420';
+      2: result:= 'ebcdic-cp-ar1';
+      3: result:= 'csIBM420';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2042: case i of
+      0: result:= 'IBM423';
+      1: result:= 'cp423';
+      2: result:= 'ebcdic-cp-gr';
+      3: result:= 'csIBM423';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2043: case i of
+      0: result:= 'IBM424';
+      1: result:= 'cp424';
+      2: result:= 'ebcdic-cp-he';
+      3: result:= 'csIBM424';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2044: case i of
+      0: result:= 'IBM500';
+      1: result:= 'CP500';
+      2: result:= 'ebcdic-cp-be';
+      3: result:= 'ebcdic-cp-ch';
+      4: result:= 'csIBM500';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2045: case i of
+      0: result:= 'IBM851';
+      1: result:= 'cp851';
+      2: result:= '851';
+      3: result:= 'csIBM851';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2046: case i of
+      0: result:= 'IBM855';
+      1: result:= 'cp855';
+      2: result:= '855';
+      3: result:= 'csIBM855';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2047: case i of
+      0: result:= 'IBM857';
+      1: result:= 'cp857';
+      2: result:= '857';
+      3: result:= 'csIBM857';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2048: case i of
+      0: result:= 'IBM860';
+      1: result:= 'cp860';
+      2: result:= '860';
+      3: result:= 'csIBM860';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2049: case i of
+      0: result:= 'IBM861';
+      1: result:= 'cp861';
+      2: result:= '861';
+      3: result:= 'cp-is';
+      4: result:= 'csIBM861';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2050: case i of
+      0: result:= 'IBM863';
+      1: result:= 'cp863';
+      2: result:= '863';
+      3: result:= 'csIBM863';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2051: case i of
+      0: result:= 'IBM864';
+      1: result:= 'cp864';
+      2: result:= 'csIBM864';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2052: case i of
+      0: result:= 'IBM865';
+      1: result:= 'cp865';
+      2: result:= '865';
+      3: result:= 'csIBM865';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2053: case i of
+      0: result:= 'IBM868';
+      1: result:= 'CP868';
+      2: result:= 'cp-ar';
+      3: result:= 'csIBM868';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2054: case i of
+      0: result:= 'IBM869';
+      1: result:= 'cp869';
+      2: result:= '869';
+      3: result:= 'cp-gr';
+      4: result:= 'csIBM869';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2055: case i of
+      0: result:= 'IBM870';
+      1: result:= 'CP870';
+      2: result:= 'ebcdic-cp-roece';
+      3: result:= 'ebcdic-cp-yu';
+      4: result:= 'csIBM870';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2056: case i of
+      0: result:= 'IBM871';
+      1: result:= 'CP871';
+      2: result:= 'ebcdic-cp-is';
+      3: result:= 'csIBM871';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2057: case i of
+      0: result:= 'IBM880';
+      1: result:= 'cp880';
+      2: result:= 'EBCDIC-Cyrillic';
+      3: result:= 'csIBM880';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2058: case i of
+      0: result:= 'IBM891';
+      1: result:= 'cp891';
+      2: result:= 'csIBM891';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2059: case i of
+      0: result:= 'IBM903';
+      1: result:= 'cp903';
+      2: result:= 'csIBM903';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2060: case i of
+      0: result:= 'IBM904';
+      1: result:= 'cp904';
+      2: result:= '904';
+      3: result:= 'csIBM904';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2061: case i of
+      0: result:= 'IBM905';
+      1: result:= 'CP905';
+      2: result:= 'ebcdic-cp-tr';
+      3: result:= 'csIBM905';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2062: case i of
+      0: result:= 'IBM918';
+      1: result:= 'CP918';
+      2: result:= 'ebcdic-cp-ar2';
+      3: result:= 'csIBM918';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2063: case i of
+      0: result:= 'IBM1026';
+      1: result:= 'CP1026';
+      2: result:= 'csIBM1026';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2064: case i of
+      0: result:= 'EBCDIC-AT-DE';
+      1: result:= 'csIBMEBCDICATDE';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2065: case i of
+      0: result:= 'EBCDIC-AT-DE-A';
+      1: result:= 'csIBMEBCDICATDEA';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2066: case i of
+      0: result:= 'EBCDIC-CA-FR';
+      1: result:= 'csIBMEBCDICCAFR';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2067: case i of
+      0: result:= 'EBCDIC-DK-NO';
+      1: result:= 'csIBMEBCDICDKNO';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2068: case i of
+      0: result:= 'EBCDIC-DK-NO-A';
+      1: result:= 'csIBMEBCDICDKNOA';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2069: case i of
+      0: result:= 'EBCDIC-FI-SE';
+      1: result:= 'csIBMEBCDICFISE';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2070: case i of
+      0: result:= 'EBCDIC-FI-SE-A';
+      1: result:= 'csIBMEBCDICFISEA';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2071: case i of
+      0: result:= 'EBCDIC-FR';
+      1: result:= 'csIBMEBCDICFR';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2072: case i of
+      0: result:= 'EBCDIC-IT';
+      1: result:= 'csIBMEBCDICIT';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2073: case i of
+      0: result:= 'EBCDIC-PT';
+      1: result:= 'csIBMEBCDICPT';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2074: case i of
+      0: result:= 'EBCDIC-ES';
+      1: result:= 'csIBMEBCDICES';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2075: case i of
+      0: result:= 'EBCDIC-ES-A';
+      1: result:= 'csIBMEBCDICESA';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2076: case i of
+      0: result:= 'EBCDIC-ES-S';
+      1: result:= 'csIBMEBCDICESS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2077: case i of
+      0: result:= 'EBCDIC-UK';
+      1: result:= 'csIBMEBCDICUK';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2078: case i of
+      0: result:= 'EBCDIC-US';
+      1: result:= 'csIBMEBCDICUS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2079: case i of
+      0: result:= 'UNKNOWN-8BIT';
+      1: result:= 'csUnkown8Bit';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2080: case i of
+      0: result:= 'MNEMONIC';
+      1: result:= 'csMnemonic';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2081: case i of
+      0: result:= 'MNEM';
+      1: result:= 'csMnem';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2082: case i of
+      0: result:= 'VISCII';
+      1: result:= 'csVISCII';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2083: case i of
+      0: result:= 'VIQR';
+      1: result:= 'csVIQR';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2084: case i of
+      0: result:= 'KOI8-R';
+      1: result:= 'csKOI8R';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2085: case i of
+      0: result:= 'HZ-GB-2312';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2086: case i of
+      0: result:= 'IBM866';
+      1: result:= 'cp866';
+      2: result:= '866';
+      3: result:= 'csIBM866';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2087: case i of
+      0: result:= 'IBM775';
+      1: result:= 'cp775';
+      2: result:= 'csPC775Baltic';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2088: case i of
+      0: result:= 'KOI8-U';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2089: case i of
+      0: result:= 'IBM00858';
+      1: result:= 'CCSID00858';
+      2: result:= 'CP00858';
+      3: result:= 'PC-Multilingual-850+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2090: case i of
+      0: result:= 'IBM00924';
+      1: result:= 'CCSID00924';
+      2: result:= 'CP00924';
+      3: result:= 'ebcdic-Latin9--euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2091: case i of
+      0: result:= 'IBM01140';
+      1: result:= 'CCSID01140';
+      2: result:= 'CP01140';
+      3: result:= 'ebcdic-us-37+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2092: case i of
+      0: result:= 'IBM01141';
+      1: result:= 'CCSID01141';
+      2: result:= 'CP01141';
+      3: result:= 'ebcdic-de-273+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2093: case i of
+      0: result:= 'IBM01142';
+      1: result:= 'CCSID01142';
+      2: result:= 'CP01142';
+      3: result:= 'ebcdic-dk-277+euro';
+      4: result:= 'ebcdic-no-277+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2094: case i of
+      0: result:= 'IBM01143';
+      1: result:= 'CCSID01143';
+      2: result:= 'CP01143';
+      3: result:= 'ebcdic-fi-278+euro';
+      4: result:= 'ebcdic-se-278+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2095: case i of
+      0: result:= 'IBM01144';
+      1: result:= 'CCSID01144';
+      2: result:= 'CP01144';
+      3: result:= 'ebcdic-it-280+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2096: case i of
+      0: result:= 'IBM01145';
+      1: result:= 'CCSID01145';
+      2: result:= 'CP01145';
+      3: result:= 'ebcdic-es-284+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2097: case i of
+      0: result:= 'IBM01146';
+      1: result:= 'CCSID01146';
+      2: result:= 'CP01146';
+      3: result:= 'ebcdic-gb-285+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2098: case i of
+      0: result:= 'IBM01147';
+      1: result:= 'CCSID01147';
+      2: result:= 'CP01147';
+      3: result:= 'ebcdic-fr-297+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2099: case i of
+      0: result:= 'IBM01148';
+      1: result:= 'CCSID01148';
+      2: result:= 'CP01148';
+      3: result:= 'ebcdic-international-500+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2100: case i of
+      0: result:= 'IBM01149';
+      1: result:= 'CCSID01149';
+      2: result:= 'CP01149';
+      3: result:= 'ebcdic-is-871+euro';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2101: case i of
+      0: result:= 'Big5-HKSCS';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2250: case i of
+      0: result:= 'windows-1250';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2251: case i of
+      0: result:= 'windows-1251';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2252: case i of
+      0: result:= 'windows-1252';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2253: case i of
+      0: result:= 'windows-1253';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2254: case i of
+      0: result:= 'windows-1254';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2255: case i of
+      0: result:= 'windows-1255';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2256: case i of
+      0: result:= 'windows-1256';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2257: case i of
+      0: result:= 'windows-1257';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2258: case i of
+      0: result:= 'windows-1258';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+    2259: case i of
+      0: result:= 'TIS-620';
+    else
+      raise ECSMIBException.Create('Invalid MIB number');
+    end;
+  else
+    raise ECSMIBException.Create('Invalid MIB number');
+  end;
+end;
+
+function TCSMIB.GetAliasCount: integer;
+begin
+  case FEnum of
+    104..106,109,112,1004,1011..1015,2085,2088,2101,2250..2259: result:= 1;
+    16,19,27,29,37..40,66,100..101,103,111,1000..1002,1005..1010,2000..2003,2005..2007,2012,2014..2026,2064..2084: result:= 2;
+    14..15,17..18,28,31..34,44..45,47..55,59,64,72,75,77,80..86,88,93,96,102,1003,2008,2027,2030,2051,2058..2059,2063,2087: result:= 3;
+    22..23,30,43,46,57,60..61,67,69..71,73,76,89..91,94..95,97..98,2004,2009..2011,2013,2029,2031..2033,2035..2043,2045..2048,2050,2052..2053,2056..2057,2060..2062,2086,2089..2092,2095..2100: result:= 4;
+    21,24,26,42,56,58,62..63,65,68,74,79,92,99,2034,2044,2049,2054..2055,2093..2094: result:= 5;
+    8,11,13,20,25,36,41,78,87: result:= 6;
+    5..7,12,35,110,2028: result:= 7;
+    9: result:= 8;
+    4,10: result:= 9;
+    3: result:= 11;
+  else
+    raise ECSMIBException.Create('Invalid MIB number');
+  end;
+end;
+
+function TCSMIB.GetPrfMIMEName: string;
+begin
+  case FEnum of
+  13,17,37..40,2025..2026,2084: result:= Alias[0];
+  18,82,84..85: result:= Alias[2];
+  4..12: result:= Alias[3];
+  3: result:= Alias[6];
+  else
+    result:= '';
+  end;
+end;
+
+function TCSMIB.IsValidEnum(const Value: integer): boolean;
+begin
+  case Value of
+    3..106,109..112,1000..1015,2000..2101,2250..2259:
+      result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+procedure TCSMIB.SetEnum(const Value: integer);
+var
+  AllowChange: boolean;
+begin
+  if IsValidEnum(Value) then begin
+    if FEnum = Value then exit;
+    AllowChange:= True;
+    DoChanging(self,Value,AllowChange);
+    if AllowChange then begin
+      FEnum:= Value;
+      DoChange(self);
+    end;
+  end else if not IgnoreInvalidEnum then begin
+    raise ECSMIBException.Create('Invalid MIB number');
+  end;
+end;
+
+procedure TCSMIB.SetOnChange(const Value: TNotifyEvent);
+begin
+  FOnChange := Value;
+end;
+
+procedure TCSMIB.SetOnChanging(const Value: TCSMIBChangingEvent);
+begin
+  FOnChanging := Value;
+end;
+
+function TCSMIB.SetToAlias(const S: string): boolean;
+var
+  i,j,oldEnum: integer;
+begin
+  result:= true;
+  oldEnum:= Enum;
+  for i:= 3 to 106 do begin
+    Enum:= i;
+    for j:= 0 to pred(AliasCount) do begin
+      if CompareText(Alias[j],S) = 0 then exit;
+    end;
+  end;
+  for i:= 109 to 112 do begin
+    Enum:= i;
+    for j:= 0 to pred(AliasCount) do begin
+      if CompareText(Alias[j],S) = 0 then exit;
+    end;
+  end;
+  for i:= 1000 to 1015 do begin
+    Enum:= i;
+    for j:= 0 to pred(AliasCount) do begin
+      if CompareText(Alias[j],S) = 0 then exit;
+    end;
+  end;
+  for i:= 2000 to 2101 do begin
+    Enum:= i;
+    for j:= 0 to pred(AliasCount) do begin
+      if CompareText(Alias[j],S) = 0 then exit;
+    end;
+  end;
+  for i:= 2250 to 2259 do begin
+    Enum:= i;
+    for j:= 0 to pred(AliasCount) do begin
+      if CompareText(Alias[j],S) = 0 then exit;
+    end;
+  end;
+  result:= false;
+  Enum:= oldEnum;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWebBrokerServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWebBrokerServer.pas
new file mode 100644
index 0000000..9e5e3eb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWebBrokerServer.pas	
@@ -0,0 +1,493 @@
+unit uROWebBrokerServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, HTTPApp, uROClientIntf, uROServer, uROHTTPTools;
+
+type
+  { TROWebBrokerServer }
+  TROWebBrokerServer = class(TROServer, IROTransport, IROTCPTransport, IROHTTPTransport)
+  private
+    fUserBeforeDispatch : THTTPMethodEvent;
+    fActions : TWebActionItems;
+
+    fActive : boolean;
+    fTransportIntf : IROHTTPTransport;
+
+    fRequest : TWebRequest;
+    fResponse : TWebResponse;
+    fSendExceptionsAs500: boolean;
+    fOverridePathInfo : string;
+    fServeInfoPage: Boolean;
+    fServeRodl: Boolean;
+
+    
+    fOnGetCustomClientAccessPolicy: TROCustomClientAccessPolicyMethod;
+    fSendClientAccessPolicyXml: TROClientAccessPolicyType;
+
+    function ReadRequestStream(aRequest : TWebRequest): TStream;
+    function GetRequest: TWebRequest;
+    function GetResponse: TWebResponse;
+    function IsWebModuleAction(const aPathInfo: ansistring) : boolean;
+
+  protected
+    procedure ReplaceBeforeDispatch(aOwner : TComponent; aNewHandler : THTTPMethodEvent); virtual;
+
+    function GetDispatchersClass : TROMessageDispatchersClass; override;
+
+    procedure Loaded; override;
+    procedure IntSetActive(const Value: boolean); override;
+    function IntGetActive : boolean; override;
+
+    { IROTransport }
+    function GetTransportObject : TObject;
+
+    { IROTCPTransport }
+    function GetClientAddress : string;
+
+    { IROHTTPTransport }
+    procedure SetHeaders(const aName, aValue : string);
+    function GetHeaders(const aName : string) : string;
+    function GetContentType : string;
+    procedure SetContentType(const aValue : string);
+    function GetUserAgent : string;
+    procedure SetUserAgent(const aValue : string);
+    function GetTargetURL : string;
+    procedure SetTargetURL(const aValue : string);
+    function GetPathInfo : string;
+    procedure SetPathInfo (const aValue : string);
+    function GetLocation : string;
+    function GetQueryString : string;
+    function GetQueryParameter(const aName: String): String;
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+
+    property Request : TWebRequest read GetRequest;
+    property Response : TWebResponse read GetResponse;
+
+  published
+    procedure IntOnBeforeDispatch(Sender: TObject;
+                                  Request: TWebRequest;
+                                  Response: TWebResponse; var Handled: Boolean); virtual;
+    property SendExceptionsAs500: boolean read fSendExceptionsAs500 write fSendExceptionsAs500 default true;
+    property ServeInfoPage : Boolean read fServeInfoPage write fServeInfoPage default true;
+    property ServeRodl : Boolean read fServeRodl write fServeRodl default true;
+    property OnGetRODLReader;
+    property OnGetCustomClientAccessPolicy: TROCustomClientAccessPolicyMethod read fOnGetCustomClientAccessPolicy write fOnGetCustomClientAccessPolicy;
+    property SendClientAccessPolicyXml: TROClientAccessPolicyType read fSendClientAccessPolicyXml write fSendClientAccessPolicyXml default captAllowNone;
+  end;
+
+implementation
+
+uses TypInfo, uRORes,  SysUtils, {$IFDEF DELPHI2009UP}AnsiStrings,{$ENDIF}uROHTTPDispatch, uROServerIntf,
+  uROClient, uROHtmlServerInfo, uRODL, uROClasses;
+
+type
+  // See TROWebBrokerServer.Loaded This is for EWF support.
+  IInterfaceComponentReference = interface
+    ['{E28B1858-EC86-4559-8FCD-6B4F824151ED}']
+    function GetComponent: TComponent;
+  end;
+
+{ TROWebBrokerServer }
+
+constructor TROWebBrokerServer.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fActive := TRUE;
+  fActions := NIL;
+  fServeInfoPage := true;
+  fServeRodl := true;
+  fSendExceptionsAs500 := true;
+  Supports(Self, IROTransport, fTransportIntf);
+end;
+
+destructor TROWebBrokerServer.Destroy;
+begin
+  fTransportIntf := NIL;
+
+  inherited;
+end;
+
+procedure TROWebBrokerServer.Loaded;
+var dispatchactions : IUnknown;
+    icref : IInterfaceComponentReference;
+begin
+  inherited;
+
+  if not (csDesigning in ComponentState) then begin
+    ReplaceBeforeDispatch(Owner, IntOnBeforeDispatch);
+
+    if Owner is TWebModule
+      then fActions := TWebActionItems(GetObjectProp(Owner, 'Actions'))
+      else try
+        { This is for EWF. I don't want to set a dependency to the EWF units.
+          This component has to stay WebBroker and EWF neutral since, in the end, we are
+          dealing with web broker actions. This solves the problem. }
+
+        {$IFDEF DELPHI6UP}
+        if IsPublishedProp(Owner, 'DispatchActions')
+          then dispatchactions := GetInterfaceProp(Owner, 'DispatchActions')
+          else Exit;
+        {$ENDIF DELPHI6UP}
+
+        if (dispatchactions<>NIL) then begin
+          if Supports(dispatchactions, IInterfaceComponentReference, icref) then begin
+            fActions := TWebActionItems(GetObjectProp(icref.GetComponent, 'Actions'));
+          end;
+        end;
+      except
+        //ToDo: do we really want to catch this exception and display a DIAOG??
+        on E:Exception do begin
+          //showmessage(e.message);
+          fActions := NIL;
+        end;
+      end;
+  end;
+end;
+
+function TROWebBrokerServer.IntGetActive: boolean;
+begin
+  result := fActive;
+end;
+
+procedure TROWebBrokerServer.IntSetActive(const Value: boolean);
+begin
+  fActive := Value;
+end;
+
+function TROWebBrokerServer.ReadRequestStream(aRequest : TWebRequest): TStream;
+var s : ansistring;
+    t : ansistring;
+    i : integer;
+begin
+  s := {$IFDEF DELPHI2009UP}aRequest.RawContent{$ELSE}aRequest.Content{$ENDIF};
+  i := aRequest.ContentLength-Length(s);
+
+  while (i>0) do begin
+    t := aRequest.ReadString(I);
+    s := S+T;
+    i := i-Length(t);
+  end;
+
+  result := TROBinaryMemoryStream.Create(s);
+end;
+
+function TROWebBrokerServer.IsWebModuleAction(const aPathInfo: ansistring) : boolean;
+var
+  i : integer;
+  lpathinfo : string;
+begin
+  result := FALSE;
+  if (fActions=NIL) then Exit;
+  lpathinfo := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(aPathInfo);
+  for i := 0 to (fActions.Count-1) do
+    if (CompareText(fActions[i].PathInfo, lPathInfo)=0) then begin
+      result := TRUE;
+      Exit;
+    end;
+end;
+
+procedure TROWebBrokerServer.IntOnBeforeDispatch(Sender: TObject;
+  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
+
+  procedure WriteError(responsestream : TROBinaryMemoryStream);
+  begin
+    responsestream.WriteAnsiString('<font size="7">500 Invalid Path</font><br />'+{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(err_CannotFindMessageDispatcher));
+  end;
+
+var requeststream : TStream;
+    responsestream : TROBinaryMemoryStream;
+    root: ansistring;
+    sub : string;
+    disp: TROHTTPDispatcher;
+    lIgnore: TROResponseOptions;
+    format: TDataFormat;
+    info: IRONamedModuleInfo;
+    ok : boolean;
+    lRodl: TRODLLibrary;
+    lPolicyContent: AnsiString;
+begin
+  requeststream := NIL;
+  responsestream := NIL;
+
+  fRequest := Request;
+  fResponse := Response;
+  ok := false;
+  // Executes the user's event handler
+  if Assigned(fUserBeforeDispatch)
+    then fUserBeforeDispatch(Sender, Request, Response, Handled);
+
+  // Processes the message if not handled already
+  root := request.PathInfo;
+  if not Handled and not IsWebModuleAction(root) then begin
+    try
+      responsestream := TROBinaryMemoryStream.Create;
+      requeststream := ReadRequestStream(Request);
+
+      if (root <> '') and (root[1] = '/') then delete(root, 1,1);
+      if pos(AnsiChar('/'), root) > 0 then
+      begin
+        sub :={$IFDEF UNICODE}AnsiStringToWideString{$ENDIF} (copy(root, pos(AnsiChar('/'), root)+1, maxint));
+        root := '/' + copy(root, 1, pos(AnsiChar('/'), root) - 1);
+      end else
+      begin
+        root := '/' + root;
+        sub := '';
+      end;
+
+      disp := TROHTTPMessageDispatchers(Dispatchers).GetDispatcherByPath({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(root)) as TROHTTPDispatcher;
+
+      if disp <> nil then
+      begin
+        if (requeststream.Size = 0) then begin
+          ok := fServeRodl;
+          if ok then
+            ok := IntDispatchMessage(disp, fTransportIntf, requeststream, responsestream, lIgnore)
+          else
+            WriteError(responsestream);
+        end else if (sub = '')  then
+          ok := IntDispatchMessage(disp, fTransportIntf, requeststream, responsestream, lIgnore)
+        else if (CompareText(sub, 'rodl') = 0) and fServeRodl then
+        begin
+          if copy(disp.PathInfo, 1, 1) = '/' then fTransportIntf.PathInfo := disp.PathInfo else fTransportIntf.PathInfo := '/'+disp.PathInfo;
+          GetRodl(responsestream, fTransportIntf, format, GetRODLReader);
+          ok := true;
+        end else if Supports(disp.Message, IRONamedModuleInfo, info) and
+                    (CompareText(info.ModuleInfoName, sub) = 0) and fServeRodl then
+        begin
+          if copy(disp.PathInfo, 1, 1) = '/' then fTransportIntf.PathInfo := disp.PathInfo else fTransportIntf.PathInfo := '/'+disp.PathInfo;
+          info.GetModuleInfo(responsestream, fTransportIntf, format);
+          ok := true;
+        end else
+        begin
+          ok := IntDispatchMessage(disp, fTransportIntf, requeststream, responsestream, lIgnore)
+        end;
+      end else if (CompareText(root, AnsiString('/rodl')) = 0) and (sub = '') and fServeRodl then
+      begin
+        GetRodl(responsestream, fTransportIntf, format, GetRODLReader);
+        ok := true;
+      end else if fServeInfoPage and (CompareText(root, AnsiString('/doc')) = 0) then
+      begin
+        if sub = 'css' then
+        begin
+          responsestream.WriteAnsistring(GetRodlCss);
+          Response.ContentType := 'text/css';
+          ok := true;
+        end else
+        if sub = 'xslt' then
+        begin
+          responsestream.WriteAnsiString(GetRodlStyleSheet);
+          Response.ContentType := 'text/xml';
+          ok := true;
+        end else if sub = '' then
+        begin
+          lRodl := GetRodlLibrary(GetRODLReader);
+          try
+            Response.ContentType := 'text/xml';
+            responsestream.WriteAnsiString(GetRodlWithStyleSheet(lRodl, {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fRequest.ScriptName) + '/doc/xslt'));
+          finally
+            lRodl.Free;
+          end;
+          ok := true;
+        end else
+        begin
+          WriteError(responsestream);
+          ok := false;
+        end;
+      end else if fServeInfoPage and (CompareStr(root, AnsiString('/favicon.ico')) = 0) then
+      begin
+        GetRodlFavIcon(responsestream);
+        Response.ContentType := 'image/x-icon';
+        ok := true;
+      end else if fServeInfoPage and (root = '/') then
+      begin
+        lrodl := GetRodlLibrary(GetRODLReader);
+        try
+          responsestream.WriteAnsiString(GetRodlServerInfo({$IFDEF UNICODE}UTF8ToString{$ENDIF}(fRequest.ScriptName), lRodl, Dispatchers));
+        finally
+          lRodl.Free;
+        end;
+        ok := true;
+      end else
+      if CompareText(root, AnsiString('/clientaccesspolicy.xml')) = 0 then begin
+        case fSendClientAccessPolicyXml of
+          captAllowAll: begin
+            lPolicyContent := GetClientAccessPolicy;
+          end;
+          captCustom: begin
+            if Assigned(fOnGetCustomClientAccessPolicy) then
+              fOnGetCustomClientAccessPolicy(Self, lPolicyContent);
+          end;
+        end;
+        if lPolicyContent <> '' then begin
+          Response.ContentType := 'text/xml';
+          responsestream.WriteAnsiString(lPolicyContent);
+          ok := true;
+        end;
+      end  else
+      begin
+        WriteError(responsestream);
+        ok := false;
+      end;
+
+      if ok or not fSendExceptionsAs500 then
+        Response.StatusCode := HTTP_OK
+      else
+        Response.StatusCode := HTTP_FAILED;
+
+    finally
+      requeststream.Free;
+      Handled := TRUE;
+
+      responsestream.Position := 0;
+      Response.ContentStream := responsestream;
+    end;
+  end;
+end;
+
+function TROWebBrokerServer.GetRequest: TWebRequest;
+begin
+  result := fRequest;
+end;
+
+function TROWebBrokerServer.GetResponse: TWebResponse;
+begin
+  result := fResponse;
+end;
+
+function TROWebBrokerServer.GetClientAddress: string;
+begin
+  result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fRequest.RemoteAddr);
+end;
+
+function TROWebBrokerServer.GetContentType: string;
+begin
+  result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Response.ContentType)
+end;
+
+function TROWebBrokerServer.GetHeaders(const aName: string): string;
+begin
+  Result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Request.GetFieldByName({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(aName)));
+end;
+
+function TROWebBrokerServer.GetTargetURL: string;
+begin
+    result := ''
+end;
+
+function TROWebBrokerServer.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+function TROWebBrokerServer.GetUserAgent: string;
+begin
+  result := str_ProductName
+end;
+
+procedure TROWebBrokerServer.SetContentType(const aValue: string);
+begin
+  Response.ContentType :={$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(aValue);
+end;
+
+procedure TROWebBrokerServer.SetHeaders(const aName, aValue: string);
+begin
+  SetHeaderValue(Response.CustomHeaders, aName, aValue);
+end;
+
+procedure TROWebBrokerServer.SetPathInfo(const aValue: string);
+begin
+  fOverridePathInfo := aValue;
+  // ignore?
+end;
+
+procedure TROWebBrokerServer.SetTargetURL(const aValue: string);
+begin
+
+end;
+
+procedure TROWebBrokerServer.SetUserAgent(const aValue: string);
+begin
+  
+end;
+
+procedure TROWebBrokerServer.ReplaceBeforeDispatch(aOwner: TComponent;
+  aNewHandler: THTTPMethodEvent);
+// Do not change the sequance of these names. It's important for EWF.
+const EventHandlerNames : array[0..1] of string = ('OnBeforeDispatch', 'BeforeDispatch');
+var pinfo : PPropInfo;
+    i     : integer;
+    myevent : THTTPMethodEvent;
+    mtd,
+    mtd2  : TMethod;
+    s     : string;
+begin
+  for i := 0 to High(EventHandlerNames) do begin
+    s := EventHandlerNames[i];
+    pinfo := GetPropInfo(Owner, s);
+
+    if (pinfo<>NIL) then begin
+      myevent := IntOnBeforeDispatch;
+      mtd := TMethod(myevent);  // <--- I have to pass through a local variable. Cannot type caet directly... Go figure!
+
+      mtd2 := GetMethodProp(Owner, pinfo);
+      SetMethodProp(Owner, pinfo, mtd);
+
+      TMethod(fUserBeforeDispatch) := mtd2;
+      Exit;
+    end;
+  end;
+  //TWebModule(aOwner).BeforeDispatch := aNewHandler;
+end;
+
+function TROWebBrokerServer.GetPathInfo: string;
+begin
+  if fOverridePathInfo <> '' then
+    result := fOverridePathInfo
+  else
+    result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Request.PathInfo)
+end;
+
+function TROWebBrokerServer.GetDispatchersClass: TROMessageDispatchersClass;
+begin
+  result := TROHTTPMessageDispatchers;
+end;
+
+function TROWebBrokerServer.GetLocation: string;
+begin
+  result := 'http://'+{$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fRequest.Host+fRequest.URL);
+end;
+
+function TROWebBrokerServer.GetQueryString: string;
+begin
+  result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(fRequest.Query);
+end;
+
+function TROWebBrokerServer.GetQueryParameter(const aName: String): String;
+begin
+  result := fRequest.QueryFields.Values[aName];
+end;
+
+initialization
+  RegisterServerClass(TROWebBrokerServer);
+finalization
+  UnregisterServerClass(TROWebBrokerServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinInetHttpChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinInetHttpChannel.pas
new file mode 100644
index 0000000..d71b0a4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinInetHttpChannel.pas	
@@ -0,0 +1,826 @@
+unit uROWinInetHttpChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up                                                 }
+{ platform: Win32                                                            }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, WinInet,
+  uRORes, uROClient, uROClientIntf, Windows;
+
+const
+  DEFAULT_TIMEOUT = 1000 * 60 * 10; // default value = 10 Minutes
+
+type
+  { TLogin }
+  TROLogin = class(TPersistent)
+  private
+     fUsername,
+     fPassword: string;
+  public
+    procedure Assign(Source: TPersistent); override;
+
+  published
+    property Username:string read fUsername write fUsername;
+    property Password:string read fPassword write fPassword;
+  end;
+
+  TAfterAttemptConnectEvent = procedure (Sender: TObject; var aAttemptConnectResult: DWORD) of object;
+  TWinInetAfterOpenRequestEvent = procedure (Sender: TObject; aHandle: HINTERNET) of object;
+  { TROWinInetHTTPChannel }
+  TROWinInetAccessType = (atPreconfig,atDirect,atProxy,atPreconfig_with_no_autoproxy);
+  TROWinInetHTTPChannel = class(TROTransportChannel, IROTransport, IROTCPTransport, IROHTTPTransport)
+  private
+    fUserAgent:String;
+    fTargetUrl:string;
+    fStoreConnected:boolean;
+    fKeepConnection:boolean;
+
+    fHeaders: String;
+
+    fInetConnect: HINTERNET;
+    fInetRoot: HINTERNET;
+    fUrlScheme: Integer;
+    fUrlHost: string;
+    fUrlSite: string;
+    fUrlPort: Integer;
+    fLogin: TROLogin;
+    fAfterConnect: TNotifyEvent;
+    fTrustInvalidCA: boolean;  // True means disable check for valid SSL/PCT-based certificates.
+    fTimeOut: integer;         // Request TimeOut value.
+    fAttemptToConnect: Boolean;
+    fInitializeAutoProxy: Boolean;
+    fOnAfterAttemptConnect: TAfterAttemptConnectEvent;
+    fOnBeforeOpenRequest: TNotifyEvent;
+    fOnAfterOpenRequest: TWinInetAfterOpenRequestEvent;
+    fOnBeforeOpenConnection: TNotifyEvent;
+    fProxyLogin: TROLogin;
+    FAccessType: TROWinInetAccessType;
+    fSuppressErrorDialogs: boolean;
+    procedure SetConnected(iValue:boolean);
+    function GetConnected:boolean;
+    procedure SetLogin(const Value: TROLogin);
+
+    function SendData(iData:TStream):hInternet;
+
+    procedure Check(Error: Boolean);
+    procedure ReceiveData(iRequest:hInternet; ioData:TStream);
+
+    function AllowInvalidCA(InetConnect: HINTERNET; dwInetStatus: DWord): DWord;
+    function CheckInetError(InetConnect: HINTERNET; dwInetStatus: DWord): DWord;
+    procedure SetProxyLogin(const Value: TROLogin);
+    procedure SetAccessType(const Value: TROWinInetAccessType);
+  protected
+    procedure IntDispatch(aRequest, aResponse : TStream); override;
+
+    { IROTransport }
+    function GetTransportObject : TObject; override;
+
+    { IROTCPTransport }
+    function GetClientAddress : string;
+
+    { IROHTTPTransport }
+    procedure SetHeaders(const aName, aValue : string);
+    function GetHeaders(const aName : string) : string;
+    function GetContentType : string;
+    procedure SetContentType(const aValue : string);
+    function GetUserAgent : string;
+    procedure SetUserAgent(const aValue : string);
+
+    procedure SetTargetURL(const Value: string);
+    function GetTargetURL:string;
+
+    function GetPathInfo : string;
+    function GetLocation : string;
+    function GetQueryString: String;
+    procedure SetPathInfo(const aValue: String);
+    function GetQueryParameter(const aName: String): String;
+
+    procedure TriggerAfterConnect;
+
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure CheckProperties; override;
+
+    procedure Assign(aSource : TPersistent); override;
+
+    property InetConnect: HINTERNET read fInetConnect;
+    property InetRoot: HINTERNET read fInetRoot;
+  published
+    property UserAgent:string read GetUserAgent write SetUserAgent;
+
+    property TargetURL : string read fTargetURL write SetTargetURL;
+    property Login:TROLogin read fLogin write SetLogin;
+    property StoreConnected:boolean read fStoreConnected write fStoreConnected default false;
+    property Connected:boolean read GetConnected write SetConnected stored fStoreConnected default false;
+    property KeepConnection:boolean read fKeepConnection write fKeepConnection default false;
+
+    property ProxyLogin: TROLogin read fProxyLogin write SetProxyLogin;
+
+    property Timeout: Integer read fTimeout write fTimeout default DEFAULT_TIMEOUT;
+    property AfterConnect:TNotifyEvent read fAfterConnect Write fAfterConnect;
+    property AttemptToConnect: Boolean read fAttemptToConnect write fAttemptToConnect default true;
+    property OnAfterOpenRequest: TWinInetAfterOpenRequestEvent read fOnAfterOpenRequest write fOnAfterOpenRequest;
+    property OnBeforeOpenRequest: TNotifyEvent read fOnBeforeOpenRequest write fOnBeforeOpenRequest;
+    property OnBeforeOpenConnection: TNotifyEvent read fOnBeforeOpenConnection write fOnBeforeOpenConnection;
+    property OnAfterAttemptConnect: TAfterAttemptConnectEvent read FOnAfterAttemptConnect write FOnAfterAttemptConnect;
+    property InitializeAutoProxy: Boolean read fInitializeAutoProxy write fInitializeAutoProxy default false;
+    property AccessType: TROWinInetAccessType read FAccessType write SetAccessType default atPreconfig;
+    property SuppressErrorDialogs: boolean read fSuppressErrorDialogs write fSuppressErrorDialogs default false;
+    property TrustInvalidCA: Boolean read fTrustInvalidCA write fTrustInvalidCA;
+  published
+    // from TROTransportChannel
+    property DispatchOptions;
+    property OnAfterProbingServer;
+    property OnAfterProbingServers;
+    property OnBeforeProbingServer;
+    property OnBeforeProbingServers;
+    property OnLoginNeeded;
+    property OnProgress;
+    property OnReceiveStream;
+    property OnSendStream;
+    property OnServerLocatorAssignment;
+    property ProbeFrequency;
+    property ProbeServers;
+    property ServerLocators;
+    property SynchronizedProbing;
+  end;
+
+resourcestring
+  sxInvalidURLformat = 'Invalid URL format';
+  
+implementation
+
+uses SysUtils, uROHTTPTools, uROClasses;
+
+const
+  INTERNET_ERROR_MASK_COMBINED_SEC_CERT                 = $2;
+  const_WinInetErrorCode_MIN                            = INTERNET_ERROR_BASE + 1;
+  const_WinInetErrorCode_MAX                            = ERROR_INTERNET_FAILED_DUETOSECURITYCHECK;
+
+  ERROR_INTERNET_FORTEZZA_LOGIN_NEEDED                  = (INTERNET_ERROR_BASE + 54);
+  ERROR_INTERNET_SEC_CERT_ERRORS                        = (INTERNET_ERROR_BASE + 55);
+  ERROR_INTERNET_SEC_CERT_NO_REV                        = (INTERNET_ERROR_BASE + 56);
+  ERROR_INTERNET_SEC_CERT_REV_FAILED                    = (INTERNET_ERROR_BASE + 57);
+  ERROR_INTERNET_CONNECTION_ABORTED                     = (INTERNET_ERROR_BASE + 30);
+
+{ TROWinInetHTTPChannel }
+
+procedure TROWinInetHTTPChannel.Check(Error: Boolean);
+var ErrCode:integer;
+    S:string;
+begin
+  ErrCode := getlasterror;
+  if Error and (ErrCode <> 0) then begin
+    SetLength(S, 256);
+    if FormatMessage(FORMAT_MESSAGE_FROM_HMODULE, Pointer(GetModuleHandle('wininet.dll')), ErrCode, 0, PChar(S), Length(S), nil) > 0 then begin;
+      SetLength(S, StrLen(PChar(S)));
+      while (Length(S) > 0) and CharInSet(S[Length(S)], [#10, #13]) do SetLength(S, Length(S) - 1);
+      raise EROException.Create(S);
+    end
+    else begin
+      raise EROException.CreateFmt(err_UnexpectedWinINetProblem,[ErrCode]);
+    end;
+
+  end;
+end;
+
+constructor TROWinInetHTTPChannel.Create(AOwner: TComponent);
+begin
+  inherited;
+  fTimeOut := DEFAULT_TIMEOUT;
+  UserAgent := str_ProductName;
+  fLogin := TROLogin.Create();
+  fProxyLogin := TROLogin.Create;
+  fAttemptToConnect  := true;
+  fAccessType := atPreconfig;
+end;
+
+destructor TROWinInetHTTPChannel.Destroy;
+begin
+  Connected := false;
+  FreeAndNil(fLogin);
+  fProxyLogin.Free;
+  inherited;
+end;
+
+function TROWinInetHTTPChannel.GetConnected: boolean;
+begin
+  result := Assigned(fInetConnect);
+end;
+
+function TROWinInetHTTPChannel.GetContentType: string;
+begin
+  result := GetHeaders(id_ContentType);
+end;
+
+procedure TROWinInetHTTPChannel.SetContentType(const aValue: string);
+begin
+  SetHeaders(id_ContentType,aValue);
+end;
+
+function TROWinInetHTTPChannel.GetHeaders(const aName: string): string;
+begin
+end;
+
+procedure TROWinInetHTTPChannel.SetHeaders(const aName, aValue: string);
+begin
+  if aValue = '' then exit;
+  if fHeaders <> '' then fHeaders := fHeaders+#13#10;
+  fHeaders := fHeaders+aName+': '+aValue;
+end;
+
+function TROWinInetHTTPChannel.GetClientAddress: string;
+begin
+  result := '';
+end;
+
+function TROWinInetHTTPChannel.GetLocation: string;
+begin
+  result := '';
+end;
+
+function TROWinInetHTTPChannel.GetPathInfo: string;
+begin
+  result := '';
+end;
+
+function TROWinInetHTTPChannel.GetTargetURL: string;
+begin
+  result := fTargetUrl;
+end;
+
+function TROWinInetHTTPChannel.GetUserAgent: string;
+begin
+  result := fUserAgent;
+end;
+
+procedure TROWinInetHTTPChannel.SetUserAgent(const aValue: string);
+begin
+  if UserAgent <> aValue then
+    fUserAgent := aValue;
+end;
+
+procedure TROWinInetHTTPChannel.SetLogin(const Value: TROLogin);
+begin
+  fLogin.Assign(Value);
+end;
+
+procedure TROWinInetHTTPChannel.IntDispatch(aRequest, aResponse: TStream);
+var lRequest:hInternet;
+begin
+  CheckProperties;
+  Connected := true;
+  try
+    lRequest := SendData(aRequest);
+    try
+      ReceiveData(lRequest,aResponse);
+    finally
+      InternetCloseHandle(lRequest);
+    end;
+  finally
+    if not KeepConnection then Connected := false;
+  end;
+end;
+
+function TROWinInetHTTPChannel.SendData(iData: TStream):hInternet;
+var
+   RetVal: DWORD;
+   bRes: Boolean;
+ 
+   procedure _Check;
+   begin
+     if not bRes then begin
+       RetVal := GetLastError;
+       if (RetVal > const_WinInetErrorCode_MIN) and (RetVal < const_WinInetErrorCode_MAX) then begin
+         if (RetVal = ERROR_INTERNET_SEC_CERT_ERRORS) or
+            (RetVal = ERROR_INTERNET_INVALID_CA) or
+            (RetVal = ERROR_INTERNET_SEC_CERT_CN_INVALID) or
+            (RetVal = ERROR_INTERNET_SEC_CERT_DATE_INVALID) or
+            (RetVal = ERROR_INTERNET_SEC_CERT_REV_FAILED) then begin
+           RetVal := AllowInvalidCA(Result, RetVal);
+           // MODIFIED BY TRINET
+           RetVal := ERROR_RETRY;
+           // MODIFIED BY TRINET END
+           bRes := True;
+         end else if (RetVal = ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED) then begin
+           { you are accessing Secure Socket Layer (SSL)-protected resource
+             on a Web server that requires a valid client certificate. }
+           RetVal := CheckInetError(Result, RetVal);
+           bRes := True;
+           // MODIFIED BY TRINET
+           RetVal := ERROR_RETRY;
+           // MODIFIED BY TRINET END
+         end else if (RetVal = HTTP_STATUS_DENIED)
+                  or (RetVal = HTTP_STATUS_PAYMENT_REQ) then begin
+           RetVal := CheckInetError(Result, RetVal);
+           // MODIFIED BY TRINET
+           RetVal := ERROR_RETRY;
+           // MODIFIED BY TRINET END
+           bRes := True;
+         end else if (RetVal = ERROR_INTERNET_CONNECTION_ABORTED) then begin
+//         slavad
+//           RetVal := ERROR_RETRY;
+           RetVal := ERROR_CANCELLED;
+//           slavad
+           bRes := True;
+         end else if (RetVal = ERROR_INTERNET_FORCE_RETRY) then
+         begin
+          RetVal := ERROR_RETRY;
+          bRes   := True;
+         end
+       end;
+     end else begin
+       RetVal := CheckInetError(Result, GetLastError);
+     end;
+     Check(not bRes);
+   end;
+ 
+const
+   bufsize = 64*1024; //32kb
+var
+   lHeaders: string;
+   Flags: DWord;
+   AcceptTypes: array of PChar;
+   Mask: DWORD;
+   buf: Pointer;
+   lTotalsize: cardinal;
+   lCurSize: cardinal;
+   lSendSize,lwrittensize: cardinal;
+   intbuf: INTERNET_BUFFERS;
+   lStreamSize: integer;
+begin
+   SetLength(AcceptTypes, 2);
+
+   TriggerProgress(ptStart, pdSending, 0, iData.Size);
+
+   AcceptTypes[0] := PChar('application/octet-stream');
+   AcceptTypes[1] := nil;
+
+   Flags := INTERNET_FLAG_NO_CACHE_WRITE;
+
+   if (KeepConnection) or (ProxyLogin.Username<>'') then Flags := Flags or INTERNET_FLAG_KEEP_CONNECTION;
+   if fURLScheme = INTERNET_SCHEME_HTTPS then begin
+     Flags := Flags or INTERNET_FLAG_SECURE;
+     if fTrustInvalidCA then begin
+       Flags := Flags or INTERNET_FLAG_IGNORE_CERT_CN_INVALID
+                      or INTERNET_FLAG_IGNORE_CERT_DATE_INVALID;
+     end;
+   end;
+
+   if assigned(fOnBeforeOpenRequest) then
+     fOnBeforeOpenRequest(Self);
+
+   result := HTTPOpenRequest(FInetConnect, 'POST', PChar(fURLSite), nil, nil, Pointer(AcceptTypes), Flags, Integer(Self));
+   Check(not Assigned(result));
+
+   if assigned(fOnAfterOpenRequest) then
+     fOnAfterOpenRequest(Self, result);
+
+   { Time Out }
+   if fTimeOut > 0 then begin
+     InternetSetOption(Result, INTERNET_OPTION_RECEIVE_TIMEOUT, @fTimeOut, SizeOf(fTimeOut));
+     InternetSetOption(FInetConnect, INTERNET_OPTION_RECEIVE_TIMEOUT, @fTimeOut, SizeOf(fTimeOut));
+
+     InternetSetOption(Result, INTERNET_OPTION_SEND_TIMEOUT, @fTimeOut, SizeOf(fTimeOut));
+     InternetSetOption(FInetConnect, INTERNET_OPTION_SEND_TIMEOUT, @fTimeOut, SizeOf(fTimeOut));
+   end;
+
+   { Certificates Errors }
+   Mask := INTERNET_ERROR_MASK_COMBINED_SEC_CERT;
+   InternetSetOption(FInetConnect, INTERNET_OPTION_ERROR_MASK, @Mask, SizeOf(Mask));
+   // MODIFIED BY TRINET
+
+   lStreamSize:=iData.Size;
+   GetMem(buf, bufsize);
+   try
+     if ProxyLogin.Username<>'' then
+     begin
+       bRes := HTTPSendRequest(Result,nil,0,nil,0);
+       repeat
+         bRes := InternetReadFile (Result, buf, bufsize, lSendSize);
+       until (lSendSize = 0);
+     end;
+
+     RetVal := ERROR_RETRY;
+     while RetVal=ERROR_RETRY do
+     begin
+       iData.Position := 0;
+
+       FillChar(intbuf, sizeof(INTERNET_BUFFERS),0);
+       intbuf.dwStructSize := sizeof(INTERNET_BUFFERS);
+       SetHeaders('Content-Length',IntToStr(lStreamSize));
+       intbuf.lpcszHeader:= PChar(fHeaders);
+       intbuf.dwHeadersLength:= Length(fHeaders);
+       intbuf.dwBufferTotal:=lStreamSize;
+
+       lSendSize := 0;
+       lTotalsize:= iData.Size;
+       repeat
+         bRes:= HTTPSendRequestEx(Result, @intbuf,nil, 0, 0);
+         _Check;
+       until RetVal <> ERROR_INTERNET_FORCE_RETRY;
+       if RetVal=ERROR_RETRY then continue;
+       while lTotalsize > 0 do begin
+         if lTotalsize > bufsize then
+           lCurSize := bufsize
+         else
+           lCurSize := lTotalsize;
+         iData.Read(buf^,lCurSize);
+         inc(lSendSize, lCurSize);
+         dec(lTotalsize,lCurSize);
+         while true do begin
+           lHeaders := fHeaders;
+           fHeaders := '';
+           while lCurSize > 0 do begin
+             bRes := InternetWriteFile(Result,buf,lcursize, lwrittensize);
+             if not bRes and (lwrittensize <> lcursize) and (lwrittensize<>0) then begin
+               Dec(lCurSize,lwrittensize);
+               Move( (PAnsichar(buf)+lwrittensize)^ ,buf^, lCurSize);
+             end
+             else begin
+               Break;
+             end;
+           end;
+
+           _Check;
+           case RetVal of
+             ERROR_SUCCESS:  begin
+               SetLastError(ERROR_SUCCESS);
+               Break;
+             end;
+             ERROR_CANCELLED: raise Exception.Create(SysErrorMessage(ERROR_CANCELLED));
+             ERROR_INTERNET_FORCE_RETRY: {Retry the operation};
+           end;
+         end;
+         TriggerProgress(ptInProgress, pdSending, lSendSize, lStreamSize);
+       end;
+       bres:= HTTPEndRequest(Result,nil,0,0);
+       _Check;
+       if RetVal =  ERROR_INTERNET_FORCE_RETRY then RetVal := ERROR_RETRY;
+     end;
+   finally
+     Freemem(buf);
+   end;
+   // MODIFIED BY TRINET - END
+   TriggerProgress(ptDone, pdSending, 0, lStreamSize);
+end;
+
+procedure TROWinInetHTTPChannel.ReceiveData(iRequest:hInternet; ioData:TStream);
+const MaxStatusText     : Integer = 4096;
+var
+  Size, Status, Len, Index: DWord;
+  S:string;
+
+  lpszData: PAnsiChar;	// buffer for the data
+  dwSize: DWORD;	// size of the data available
+  dwDownloaded: DWORD;	// size of the downloaded data
+
+  lTotalSize,lReceivedSize:dword;
+begin
+  Len := SizeOf(Status);
+  Index := 0;
+
+  { Get Status Code }
+  if not HTTPQueryInfo(iRequest, HTTP_QUERY_STATUS_CODE or HTTP_QUERY_FLAG_NUMBER,
+                       @Status, Len, Index) then RaiseLastOSError();
+
+  { Throw Exception is StatusCode >= 300 BUT not 500. SOAP faulty envelopes comes with that set }
+  if (Status >= 300) and (Status <> 500) then begin
+    Index := 0;
+    Size := MaxStatusText;
+    SetLength(S, Size);
+    if HTTPQueryInfo(iRequest, HTTP_QUERY_STATUS_TEXT, @S[1], Size, Index) then begin
+      SetLength(S, Size);
+      raise EROException.CreateFmt('%s (%d)', [S, Status]);
+    end;
+  end;
+
+  Index := 0;
+  { get total size }
+  if not HTTPQueryInfo(iRequest, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER, @lTotalSize, Len, Index) then begin
+    { do not raise an exception when there is no "Content-Length" value in result header }
+    if GetLastError <> ERROR_HTTP_HEADER_NOT_FOUND then begin
+      RaiseLastOSError(); //TotalSize = 0;//
+    end else begin
+      SetLastError(0);
+      lTotalSize := 0;
+    end;
+  end;
+
+  TriggerProgress(ptStart, pdReceiving, 0, lTotalSize);
+
+  lReceivedSize := 0;
+  dwSize := 0;
+  dwDownloaded := 0;
+    while (true) do begin
+      // The call to InternetQueryDataAvailable determines the amount of data available to download.
+      while (not InternetQueryDataAvailable(iRequest, dwSize, 0, 0))
+      and (GetLastError = ERROR_IO_PENDING) do begin
+        Sleep(1);
+      end;
+
+      // Allocates a buffer of the size returned by InternetQueryDataAvailable
+      GetMem(lpszData, dwSize + 1);
+      try
+        // Reads the data from the HINTERNET handle.
+        while (not InternetReadFile(iRequest, lpszData, dwSize, dwDownloaded))
+        and (GetLastError = ERROR_IO_PENDING) do begin
+          Sleep(1);
+        end;
+        if (GetLastError >= const_WinInetErrorCode_MIN) and (GetLastError <= const_WinInetErrorCode_MAX) then begin
+          Check(True);
+        end;
+        if GetLastError <> 0 then begin
+          // Adds a null terminator to the end of the data buffer
+          lpszData[dwDownloaded] := #0;
+        end;
+
+        ioData.Write(lpszData[0], dwDownloaded);
+        Inc(lReceivedSize, dwDownloaded);
+      finally
+        FreeMem(lpszData);
+      end;
+
+      TriggerProgress(ptInProgress, pdReceiving, lReceivedSize, lTotalSize);
+
+      // Check the size of the remaining data. If it is zero, break.
+      if (dwDownloaded = 0) then begin
+        break;
+      end;
+    end;
+
+  ioData.seek(0, soFromBeginning);
+
+  TriggerProgress(ptDone, pdReceiving, 0,0);
+end;
+
+function TROWinInetHTTPChannel.AllowInvalidCA(InetConnect: HINTERNET; dwInetStatus: DWord): DWord;
+var
+  dwError: integer;
+  lppvData: pointer;
+  SECURITY_FLAGS: integer;
+  lpszDataSize: cardinal;
+  CertRevocation: boolean;
+  BRes: Boolean;
+begin
+  Result := ERROR_CANCELLED;
+  if (dwInetStatus = ERROR_INTERNET_SEC_CERT_ERRORS) or
+     (dwInetStatus = ERROR_INTERNET_INVALID_CA) or
+     (dwInetStatus = ERROR_INTERNET_SEC_CERT_CN_INVALID) or
+     (dwInetStatus = ERROR_INTERNET_SEC_CERT_DATE_INVALID) or
+     (dwInetStatus = ERROR_INTERNET_SEC_CERT_REV_FAILED) then begin
+    CertRevocation := (dwInetStatus = ERROR_INTERNET_SEC_CERT_REV_FAILED);
+    if CertRevocation or not fTrustInvalidCA then begin
+      dwError := InternetErrorDlg(GetDesktopWindow(), InetConnect, dwInetStatus,
+        FLAGS_ERROR_UI_FILTER_FOR_ERRORS or FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS or
+        FLAGS_ERROR_UI_FLAGS_GENERATE_DATA, lppvData);
+      bRes := (dwError = ERROR_INTERNET_FORCE_RETRY) or (dwError = ERROR_SUCCESS);
+    end else begin
+      bRes := True;
+    end;
+    if bRes then begin
+      try
+        InternetQueryOption(InetConnect, INTERNET_OPTION_SECURITY_FLAGS, @SECURITY_FLAGS, lpszDataSize);
+        if CertRevocation then begin
+          SECURITY_FLAGS := SECURITY_FLAGS or SECURITY_FLAG_IGNORE_REVOCATION;
+        end else begin
+          SECURITY_FLAGS := SECURITY_FLAGS or SECURITY_FLAG_IGNORE_CERT_CN_INVALID
+                                           or SECURITY_FLAG_IGNORE_CERT_DATE_INVALID
+                                           or SECURITY_FLAG_IGNORE_UNKNOWN_CA;
+        end;
+        InternetSetOption(InetConnect, INTERNET_OPTION_SECURITY_FLAGS, @SECURITY_FLAGS, lpszDataSize);
+      except
+        dwError := InternetErrorDlg(GetDesktopWindow(), InetConnect, dwInetStatus,
+          FLAGS_ERROR_UI_FILTER_FOR_ERRORS or FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS or
+          FLAGS_ERROR_UI_FLAGS_GENERATE_DATA, lppvData);
+        bRes := (dwError = ERROR_INTERNET_FORCE_RETRY) or (dwError = ERROR_SUCCESS);
+      end;
+    end;
+    if not CertRevocation then begin
+      FTrustInvalidCA := bRes;
+    end;
+    if bRes then begin
+      Result := ERROR_INTERNET_FORCE_RETRY;
+    end;
+  end;
+end;
+
+function TROWinInetHTTPChannel.CheckInetError(InetConnect: HINTERNET; dwInetStatus: DWord): DWord;
+var
+  lppvData: pointer;
+begin
+  if SuppressErrorDialogs
+  then
+    if dwInetStatus = 0 then Result := ERROR_SUCCESS else Result := ERROR_CANCELLED
+  else
+    Result := InternetErrorDlg(GetDesktopWindow(), InetConnect, dwInetStatus,
+     FLAGS_ERROR_UI_FILTER_FOR_ERRORS or FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS or
+      FLAGS_ERROR_UI_FLAGS_GENERATE_DATA, lppvData);
+end;
+
+procedure TROWinInetHTTPChannel.TriggerAfterConnect;
+begin
+  if Assigned(AfterConnect) then AfterConnect(self);
+end;
+
+
+function InternetInitializeAutoProxyDll(dwReserved: DWord): LongBool; stdcall; external 'WinInet.dll';
+var
+  AutoProxyCalled: Boolean = False;
+
+procedure TROWinInetHTTPChannel.SetConnected(iValue: boolean);
+var
+  lAccessType:Integer;
+  lAttemptConnect: DWORD;
+begin
+  if iValue and not GetConnected then begin
+
+    {if Length(Proxy) > 0 then
+      AccessType := INTERNET_OPEN_TYPE_PROXY
+    else}
+    case FAccessType of
+      atDirect:                      lAccessType := INTERNET_OPEN_TYPE_DIRECT;
+      atProxy:                       lAccessType := INTERNET_OPEN_TYPE_PROXY;
+      atPreconfig_with_no_autoproxy: lAccessType := INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY;
+    else
+      //atPreconfig
+      lAccessType := INTERNET_OPEN_TYPE_PRECONFIG;
+    end;
+
+    if fInitializeAutoProxy then begin
+      if not AutoProxyCalled then begin
+        InternetInitializeAutoProxyDll(0);
+        AutoProxyCalled := true;
+      end;
+    end;
+
+
+    fInetRoot := InternetOpen(PChar(UserAgent), lAccessType, nil, nil, 0);//PChar(Proxy)}, PChar(ProxyByPass), 0);
+
+
+    if assigned(fOnBeforeOpenConnection) then
+      fOnBeforeOpenConnection(self);
+
+    if fAttemptToConnect then begin
+      lAttemptConnect := InternetAttemptConnect(0);
+      if assigned(FOnAfterAttemptConnect) then
+        FOnAfterAttemptConnect(self, lAttemptConnect);
+      if lAttemptConnect <> ERROR_SUCCESS then raise Exception.Create(SysErrorMessage(lAttemptConnect));
+    end;
+
+    Check(not Assigned(FInetRoot));
+    try
+      FInetConnect := InternetConnect(FInetRoot, PChar(FURLHost), FURLPort, PChar(Login.UserName), PChar(Login.Password), INTERNET_SERVICE_HTTP, 0, Cardinal(Self));
+      Check(not Assigned(FInetConnect));
+      TriggerAfterConnect();
+    except
+      InternetCloseHandle(FInetRoot);
+      FInetRoot := nil;
+      raise;
+    end;
+
+    if fProxyLogin.Username <> '' then begin
+      InternetSetOption(fInetConnect, INTERNET_OPTION_PROXY_USERNAME, @fProxyLogin.Username[1], Length(fProxyLogin.Username));
+      InternetSetOption(fInetConnect, INTERNET_OPTION_PROXY_PASSWORD, @fProxyLogin.Password[1], Length(fProxyLogin.Password));
+    end;
+  end
+  else if not iValue then begin
+    if Assigned(FInetConnect) then InternetCloseHandle(FInetConnect);
+    FInetConnect := nil;
+    if Assigned(FInetRoot) then InternetCloseHandle(FInetRoot);
+    FInetRoot := nil;
+  end;
+end;
+
+procedure TROWinInetHTTPChannel.SetTargetURL(const Value: string);
+var URLComp:TURLComponents;
+    p:PChar;
+begin
+  if Targeturl <> Value then begin
+    fTargetUrl := Value;
+
+    if fTargetUrl <> '' then begin
+      FillChar(URLComp, SizeOf(URLComp), 0);
+      URLComp.dwStructSize := SizeOf(URLComp);
+      URLComp.dwSchemeLength := 1;
+      URLComp.dwHostNameLength := 1;
+      URLComp.dwURLPathLength := 1;
+      InternetCrackUrl(PChar(fTargetUrl), 0, 0, URLComp);
+      if not (URLComp.nScheme in [INTERNET_SCHEME_HTTP, INTERNET_SCHEME_HTTPS]) then
+        raise EROException.Create(sxInvalidURLformat);
+      FURLScheme := URLComp.nScheme;
+      FURLPort := URLComp.nPort;
+      p := PChar(fTargetUrl);
+      FURLHost := Copy(fTargetUrl, URLComp.lpszHostName - p + 1, URLComp.dwHostNameLength);
+      FURLSite := Copy(fTargetUrl, URLComp.lpszUrlPath - p + 1, URLComp.dwURLPathLength);
+    end
+    else begin
+      fURLPort := 0;
+      fURLHost := '';
+      fURLSite := '';
+      fURLScheme := 0;
+    end;
+
+  end;
+end;
+
+function TROWinInetHTTPChannel.GetTransportObject: TObject;
+begin
+  result := self;
+end;
+
+function TROWinInetHTTPChannel.GetQueryString: String;
+begin
+  result := ''
+end;
+
+procedure TROWinInetHTTPChannel.SetPathInfo(const aValue: String);
+begin
+  // do nothing
+end;
+
+procedure TROWinInetHTTPChannel.CheckProperties;
+begin
+  inherited;
+end;
+
+procedure TROWinInetHTTPChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROWinInetHTTPChannel;
+begin
+  inherited;
+  if (aSource is TROWinInetHTTPChannel) then begin
+    lSource := TROWinInetHTTPChannel(aSource);
+    // disconnect, assign all parameters and connect if needed
+    Connected := False;
+
+    AccessType := lSource.AccessType;
+    AfterConnect := lSource.AfterConnect;
+    AttemptToConnect := lSource.AttemptToConnect;
+    InitializeAutoProxy := lSource.InitializeAutoProxy;
+    KeepConnection := lSource.KeepConnection;
+    Login.Assign(lSource.Login);
+    OnAfterAttemptConnect := lSource.OnAfterAttemptConnect;
+    OnAfterOpenRequest := lSource.OnAfterOpenRequest;
+    OnBeforeOpenConnection := lSource.OnBeforeOpenConnection;
+    OnBeforeOpenRequest := lSource.OnBeforeOpenRequest;
+    ProxyLogin.Assign(lSource.ProxyLogin);
+    StoreConnected := lSource.StoreConnected;
+    SuppressErrorDialogs := lSource.SuppressErrorDialogs;
+    Timeout := lSource.Timeout;
+    TrustInvalidCA := lSource.TrustInvalidCA;
+    UserAgent := lSource.UserAgent;
+
+    Connected := lSource.Connected;
+  end;
+end;
+
+
+procedure TROWinInetHTTPChannel.SetProxyLogin(const Value: TROLogin);
+begin
+  fProxyLogin.Assign(Value);
+end;
+
+function TROWinInetHTTPChannel.GetQueryParameter(
+  const aName: String): String;
+begin
+  result := '';
+end;
+
+procedure TROWinInetHTTPChannel.SetAccessType(const Value: TROWinInetAccessType);
+begin
+  if connected then raise EROException.Create(Self.Name+': you can''t change AccessType in connected state');
+  FAccessType := Value;
+end;
+
+{ TROLogin }
+
+procedure TROLogin.Assign(Source: TPersistent);
+begin
+  if (Source is TROLogin) then begin
+    Username := TROLogin(Source).Username;
+    Password := TROLogin(Source).Password;
+  end
+  else inherited;
+end;
+
+initialization
+  RegisterTransportChannelClass(TROWinInetHTTPChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROWinInetHTTPChannel);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinMessageChannel.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinMessageChannel.pas
new file mode 100644
index 0000000..fa7641e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinMessageChannel.pas	
@@ -0,0 +1,300 @@
+unit uROWinMessageChannel;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+{$I RemObjects.inc}
+
+interface
+
+{$WARN SYMBOL_DEPRECATED OFF} // This unit is only for Win32
+
+uses
+  Classes, uROClient, uROClientIntf, Forms, Messages, Windows, uROEventRepository;
+
+type { TROWinMessageChannel }
+     TROWinMessageChannel = class(TROTransportChannel, IROActiveEventChannel)
+     private
+       fServerHandle, fWindowHandle : HWND;
+       fResponseRef : TStream;
+       fStartServer: boolean;
+       fServerID: string;
+       fFileName: string;
+       fParameters: string;
+       fDefaultDirectory: string;
+       fDelay: word;
+       fActiveEvents: Boolean;
+       fActiveGuid: TGUID;
+
+       procedure WndProc(var Msg: TMessage);
+       procedure SetFileName(const Value: string);
+       procedure SetServerID(const Value: string);
+
+     protected
+       fEventReceiver: IROEventReceiver;
+       procedure IntDispatch(aRequest, aResponse : TStream); override;
+       procedure RegisterEventReceiver(aReceiver: IROEventReceiver);
+       procedure UnregisterEventReceiver(aReceiver: IROEventReceiver);
+       function QueryInterface(const IID: TGUID; out Obj): HRESULT; override; stdcall;
+       procedure BeforeDispatch(aMessage: IROMessage); override;
+       procedure OpenServer;
+     public
+       constructor Create(aOwner : TComponent); override;
+       destructor Destroy; override;
+       procedure CheckProperties; override;
+       procedure Assign(aSource : TPersistent); override;
+     published
+       property StartServer : boolean read fStartServer write fStartServer default false;
+       property FileName : string read fFileName write SetFileName;
+       property Parameters : string read fParameters write fParameters;
+       property DefaultDirectory : string read fDefaultDirectory write fDefaultDirectory;
+       property ServerID : string read fServerID write SetServerID;
+       property Delay : word read fDelay write fDelay default 0;
+
+       property ActiveEvents: Boolean read fActiveEvents write fActiveEvents default False;
+       property ActiveGuid: TGUID read fActiveGuid write fActiveGuid;
+     published
+       // from TROTransportChannel
+       property DispatchOptions;
+       property OnAfterProbingServer;
+       property OnAfterProbingServers;
+       property OnBeforeProbingServer;
+       property OnBeforeProbingServers;
+       property OnLoginNeeded;
+       // property OnProgress;
+       property OnReceiveStream;
+       property OnSendStream;
+       property OnServerLocatorAssignment;
+       property ProbeFrequency;
+       property ProbeServers;
+       property ServerLocators;
+       property SynchronizedProbing;
+     end;
+
+implementation
+
+uses Dialogs, SysUtils, ShellAPI, uRORes, uROClasses;
+
+{
+  0 = Message Request/Response
+  1 = Event back
+  2 = Register me (guid arg)
+  3 = Unregister me (guid arg)
+}
+
+{ TROWinMessageChannel }
+
+procedure TROWinMessageChannel.Assign(aSource: TPersistent);
+var
+  lSource: TROWinMessageChannel;
+begin
+  inherited;
+  if aSource is TROWinMessageChannel then begin
+    lSource := TROWinMessageChannel(aSource);
+
+    ActiveEvents := lSource.ActiveEvents;
+    ActiveGuid := lSource.ActiveGuid;
+    DefaultDirectory := lSource.DefaultDirectory;
+    Delay := lSource.Delay;
+    FileName := lSource.FileName;
+    Parameters := lSource.Parameters;
+    ServerID := lSource.ServerID;
+    StartServer := lSource.StartServer;
+  end;
+end;
+
+procedure TROWinMessageChannel.BeforeDispatch(aMessage: IROMessage);
+begin
+  inherited;
+  if fActiveEvents then begin
+    if IsEqualGUID(fActiveGuid, EmptyGUID) then
+      fActiveGuid := NewGuid;
+    aMessage.ClientID := fActiveGuid;
+  end;
+end;
+
+procedure TROWinMessageChannel.CheckProperties;
+begin
+  Check(ServerID = '', Name + '.ServerID must be set.');
+  inherited;
+end;
+
+constructor TROWinMessageChannel.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  // Removed the check to make the component usable also at design time
+  // There's no apparent problem with this
+  {if not (csDesigning in ComponentState)
+    then }fWindowHandle := AllocateHWnd(WndProc)
+    //else fWindowHandle := 0;
+
+  {Timeout := 30000; { ms }
+end;
+
+destructor TROWinMessageChannel.Destroy;
+begin
+  if (fWindowHandle>0)
+    then DeallocateHWnd(fWindowHandle);
+  inherited;
+end;
+
+procedure TROWinMessageChannel.IntDispatch(aRequest, aResponse: TStream);
+var memstream : TMemoryStream;
+    CDS : TCopyDataStruct;
+    freememstream : boolean;
+    //dwResult:Cardinal;
+begin
+  freememstream := not (aRequest is TMemoryStream);
+  fResponseRef := aResponse;
+
+  // Locates the server window
+  OpenServer;
+
+  if not freememstream then begin
+    memstream := TMemoryStream(aRequest)
+  end
+  else begin
+    memstream := TMemoryStream.Create;
+    memstream.LoadFromStream(aRequest);
+  end;
+
+  memstream.Position := 0;
+  try
+    CDS.dwData := 0;
+    CDS.cbData := memstream.Size;
+    CDS.lpData := memstream.Memory;
+
+    SendMessage(fServerHandle, WM_COPYDATA, fWindowHandle, Integer(@CDS));
+    {if SendMessageTimeout(handle,WM_COPYDATA,fWindowHandle,Integer(@CDS),
+                           SMTO_ABORTIFHUNG or SMTO_NORMAL,fTimeout,dwResult) = 0 then
+        RaiseError(err_WinMessageFailed,[GetLastError()]);}
+
+  finally
+    if freememstream then memstream.Free;
+    fResponseRef := nil;
+  end;
+end;
+
+procedure TROWinMessageChannel.OpenServer;
+begin
+  CheckProperties;
+  fServerHandle := FindWindow(NIL, PChar(ServerID));
+  if (fServerHandle=0) then begin
+    // Starts it
+    if StartServer then begin
+      ShellExecute(0, 'open', PChar(FileName), PChar(Parameters), PChar(DefaultDirectory), SW_NORMAL);
+      Sleep(Delay);
+
+      fServerHandle := FindWindow(NIL, PChar(ServerID));
+    end;
+  end;
+
+  if (fServerHandle=0) then RaiseError(err_CannotFindServer, [ServerID]);
+end;
+
+function TROWinMessageChannel.QueryInterface(const IID: TGUID;
+  out Obj): HRESULT;
+begin
+  if (IsEqualGUID(IROActiveEventChannel, iid)) and (not fActiveEvents) then begin
+    Result := E_NOINTERFACE;
+  end else
+    result := inherited QueryInterface(IID, Obj);
+end;
+
+procedure TROWinMessageChannel.RegisterEventReceiver(
+  aReceiver: IROEventReceiver);
+var
+  CDS : TCopyDataStruct;
+begin
+  fEventReceiver := aReceiver;
+  if fEventReceiver <> nil then begin
+    if IsEqualGUID(fActiveGuid, EmptyGUID) then
+      fActiveGuid := NewGuid;
+
+    OpenServer;
+
+    CDS.dwData := 2;
+    CDS.cbData := sizeof(fActiveGuid);
+    CDS.lpData := @fActiveGuid;
+
+    SendMessage(fServerHandle, WM_COPYDATA, fWindowHandle, Integer(@CDS));
+  end;
+end;
+
+procedure TROWinMessageChannel.SetFileName(const Value: string);
+begin
+  fFileName := Value;
+end;
+
+procedure TROWinMessageChannel.SetServerID(const Value: string);
+begin
+  fServerID := Value;
+end;
+
+procedure TROWinMessageChannel.UnregisterEventReceiver(
+  aReceiver: IROEventReceiver);
+var
+ CDS: TCopyDataStruct;
+begin
+  if fEventReceiver <> nil then begin
+    if IsEqualGUID(fActiveGuid, EmptyGUID) then
+      fActiveGuid := NewGuid;
+
+    OpenServer;
+
+    CDS.dwData := 3;
+    CDS.cbData := sizeof(fActiveGuid);
+    CDS.lpData := @fActiveGuid;
+
+    SendMessage(fServerHandle, WM_COPYDATA, fWindowHandle, Integer(@CDS));
+  end;
+  fEventReceiver := nil;
+end;
+
+procedure TROWinMessageChannel.WndProc(var Msg: TMessage);
+var WMMsg : TWMCopyData absolute Msg;
+  lTmpStream: TMemoryStream;
+begin
+  with Msg do
+    case Msg of
+      WM_COPYDATA  : begin
+        case WMMsg.CopyDataStruct.dwData of
+          0: begin
+            if fResponseRef = nil then exit;
+            fResponseRef.Write(WMMsg.CopyDataStruct.lpData^, WMMsg.CopyDataStruct.cbData);
+            fResponseRef.Position := 0;
+          end;
+          1: begin
+            if fEventReceiver <> nil then begin
+              lTmpStream := TMemoryStream.Create;
+              try
+                lTmpStream.Write(WMMsg.CopyDataStruct.lpData^, WMMsg.CopyDataStruct.cbData);
+                lTmpStream.Position := 0;
+                DecodeEventStream(lTmpStream);
+                fEventReceiver.Dispatch(lTmpStream, nil);
+              finally
+                lTmpStream.Free;
+              end;
+            end;
+          end;
+        end;
+      end;
+      else result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);
+    end;
+end;
+
+initialization
+  RegisterTransportChannelClass(TROWinMessageChannel);
+
+finalization
+  UnRegisterTransportChannelClass(TROWinMessageChannel);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinMessageServer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinMessageServer.pas
new file mode 100644
index 0000000..8e15b0e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROWinMessageServer.pas	
@@ -0,0 +1,250 @@
+unit uROWinMessageServer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, Windows, Messages, uROClientIntf, uROServer, uROEventRepository, uROServerIntf, uROSessions;
+
+type { TROWinMessageServer }
+     TROWinMessageServer = class(TROServer, IROTransport, IROActiveEventServer)
+     private
+       fWindowHandle : HWND;
+       fServerID     : string;
+       fTransport    : IROTransport;
+       fActiveEventRepository : TROEventRepository;
+       fActiveEventMap: TStringList;
+
+       procedure WndProc(var Msg: TMessage);
+       procedure DispatchEvent(anEventDataItem: TROEventData; aSessionReference: TGUID; aSender: TObject);
+       procedure EventsRegistered(aSender: TObject; aClient: TGUID);
+     protected
+       { Internals }
+       procedure IntSetActive(const Value: boolean); override;
+       function IntGetActive : boolean; override;
+
+       { IROTransport }
+       function GetTransportObject : TObject;
+       function QueryInterface(const IID: TGUID; out Obj): HRESULT; override; stdcall;
+
+     public
+       constructor Create(aOwner : TComponent); override;
+       destructor Destroy; override;
+       procedure CheckProperties; override;
+       procedure Assign(Source: TPersistent); override;
+     published
+       property ServerID : string read fServerID write fServerID;
+       property ActiveEventRepository : TROEventRepository read fActiveEventRepository write fActiveEventRepository;
+     end;
+
+implementation
+
+uses Forms, Controls, SysUtils, uRORes, uROClasses;
+
+var
+  ROWindowClass: TWndClass = (
+    style: 0;
+    lpfnWndProc: @DefWindowProc;
+    cbClsExtra: 0;
+    cbWndExtra: 0;
+    hInstance: 0;
+    hIcon: 0;
+    hCursor: 0;
+    hbrBackground: 0;
+    lpszMenuName: nil;
+    lpszClassName: 'ROUtilWindow');
+
+function AllocateHWnd(const aWindowName : string; Method: TWndMethod): HWND;
+var tmpclass: TWndClass;
+    isclsregistered: Boolean;
+begin
+  ROWindowClass.hInstance := HInstance;
+  isclsregistered := GetClassInfo(HInstance, ROWindowClass.lpszClassName, tmpclass);
+
+  if not isclsregistered or (tmpclass.lpfnWndProc <> @DefWindowProc) then begin
+    if isclsregistered then Windows.UnregisterClass(ROWindowClass.lpszClassName, HInstance);
+    Windows.RegisterClass(ROWindowClass);
+  end;
+
+  Result := CreateWindowEx(WS_EX_TOOLWINDOW, ROWindowClass.lpszClassName,
+    PChar(aWindowName), WS_POPUP {!0}, 0, 0, 0, 0, 0, 0, HInstance, nil);
+
+  if Assigned(Method)
+    then SetWindowLong(Result, GWL_WNDPROC, Longint({$IFDEF DELPHI6UP}Classes.{$ENDIF}MakeObjectInstance(Method)));
+end;
+
+{ TROWinMessageServer }
+
+constructor TROWinMessageServer.Create(aOwner: TComponent);
+begin
+  inherited;
+  Supports(Self, IROTransport, fTransport);
+  fWindowHandle := 0;
+  fActiveEventMap := TStringList.Create;
+end;
+
+destructor TROWinMessageServer.Destroy;
+begin
+  if (fWindowHandle>1) then {$IFDEF DELPHI6UP}Classes.{$ENDIF}DeallocateHWnd(fWindowHandle);
+  fActiveEventMap.Free;
+  inherited;
+end;
+
+procedure TROWinMessageServer.WndProc(var Msg: TMessage);
+var WMMsg : TWMCopyData absolute Msg;
+    requeststream,
+    responsestream : TMemoryStream;
+    CDS: TCopyDataStruct;
+    s: string;
+    i: Integer;
+begin
+  requeststream := NIL;
+  responsestream := NIL;
+
+  with Msg do
+    case Msg of
+      WM_COPYDATA  : try
+        case WMMsg.CopyDataStruct.dwData of
+          0: begin
+            requeststream := TMemoryStream.Create;
+            responsestream := TMemoryStream.Create;
+
+            requeststream.Write(WMMsg.CopyDataStruct.lpData^, WMMsg.CopyDataStruct.cbData);
+            requeststream.Position := 0;
+
+            //ProcessMessage(MessageIntf, fTransport, requeststream, responsestream);
+            DispatchMessage(fTransport, requeststream, responsestream);
+
+            CDS.dwData := 0;
+            CDS.cbData := responsestream.Size;
+            CDS.lpData := responsestream.Memory;
+
+            SendMessage(WMMsg.From, WM_COPYDATA, 0, Integer(@CDS));
+          end;
+          2:
+            begin
+              if WMMsg.CopyDataStruct.cbData = sizeof(TGuid) then begin
+                s := GuidToString(PGuid(WMMsg.CopyDataStruct.lpData)^);
+                fActiveEventMap.Values[s] := IntToStr(WMMsg.From);
+                if assigned(fActiveEventRepository) then
+                  fActiveEventRepository.AddSession(PGuid(WMMsg.CopyDataStruct.lpData)^, Self)
+              end;
+            end;
+          3:
+            begin
+              if WMMsg.CopyDataStruct.cbData = sizeof(TGuid) then begin
+                s := GuidToString(PGuid(WMMsg.CopyDataStruct.lpData)^);
+                i := fActiveEventMap.IndexOfName(s);
+                if i <> -1 then
+                  fActiveEventMap.Delete(i);
+                if assigned(fActiveEventRepository) then
+                  fActiveEventRepository.RemoveSession(PGuid(WMMsg.CopyDataStruct.lpData)^);
+              end;
+            end;
+        end;
+      finally
+        responsestream.Free;
+        requeststream.Free;
+      end;
+      else result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);
+    end;
+end;
+
+function TROWinMessageServer.IntGetActive: boolean;
+begin
+  result := (fWindowHandle>0);
+end;
+
+procedure TROWinMessageServer.IntSetActive(const Value: boolean);
+begin
+  if Value then begin
+    if not (csDesigning in ComponentState)
+      then begin
+        CheckProperties;
+        fWindowHandle := AllocateHWnd(ServerID, WndProc);
+      end  
+      else fWindowHandle := 1; // To save the property value
+  end
+  else begin
+    if (fWindowHandle>0) then begin
+      if (fWindowHandle>1) then {$IFDEF DELPHI6UP}Classes.{$ENDIF}DeallocateHWnd(fWindowHandle);
+      fWindowHandle := 0;
+    end;
+  end;
+end;
+
+function TROWinMessageServer.GetTransportObject: TObject;
+begin
+  result := Self;
+end;
+
+function TROWinMessageServer.QueryInterface(const IID: TGUID;
+  out Obj): HRESULT;
+begin
+  if IsEqualGUID(IROActiveEventServer, IID) and not assigned(fActiveEventRepository) then
+    result := E_NOINTERFACE
+  else
+    result := inherited QueryInterface(IID, Obj) 
+end;
+
+procedure TROWinMessageServer.DispatchEvent(anEventDataItem: TROEventData;
+  aSessionReference: TGUID; aSender: TObject);
+var
+  lHandle: HWND;
+  cds: TCopyDataStruct;
+  lActive: IROValidatedSessionsChangesListener;
+begin
+  lHandle := StrToIntDef(fActiveEventMap.Values[GUIDToString(aSessionReference)], 0);
+  if lHandle = 0 then exit; // doesn't exist.
+  EncodeEventStream(anEventDataItem.Data);
+  CDS.dwData := 1;
+  CDS.cbData := TMemoryStream(anEventDataItem.Data).Size;
+  CDS.lpData := TMemoryStream(anEventDataItem.Data).Memory;
+
+  SendMessage(lHandle, WM_COPYDATA, 0, Integer(@CDS));
+  anEventDataItem.RemoveRef;
+  if (anEventDataItem is TRONamedEventData) and (Supports(aSender, IROValidatedSessionsChangesListener, lActive)) then
+    lActive.EventSucceeded(aSessionReference, TRONamedEventData(anEventDataItem).ID);
+end;
+
+procedure TROWinMessageServer.EventsRegistered(aSender: TObject;
+  aClient: TGUID);
+begin
+
+end;
+
+procedure TROWinMessageServer.Assign(Source: TPersistent);
+var
+  lSource: TROWinMessageServer;
+begin
+  inherited;
+  if Source is TROWinMessageServer then begin
+    lSource := TROWinMessageServer(Source);
+    ActiveEventRepository := lSource.ActiveEventRepository;
+    ServerID := lSource.ServerID;
+  end;
+end;
+
+procedure TROWinMessageServer.CheckProperties;
+begin
+  Check(ServerID = '', Name + '.ServerID must be set.');
+  inherited;
+end;
+
+initialization
+  RegisterServerClass(TROWinMessageServer);
+finalization
+  UnregisterServerClass(TROWinMessageServer);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXDOM_2_3.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXDOM_2_3.pas
new file mode 100644
index 0000000..c812a36
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXDOM_2_3.pas	
@@ -0,0 +1,33329 @@
+unit uROXDOM_2_3;
+
+// XDOM 2.3.28
+// Extended Document Object Model 2.3.28
+// Delphi 3/4/5/6 and Kylix Implementation
+//
+// Copyright (c) 1999-2002 by Dieter K�hler
+// ("http://www.philo.de/xml/")
+//
+// Definitions:
+// - "Package" refers to the collection of files distributed by
+//   the Copyright Holder, and derivatives of that collection of
+//   files created through textual modification.
+// - "Standard Version" refers to such a Package if it has not
+//   been modified, or has been modified in accordance with the
+//   wishes of the Copyright Holder.
+// - "Copyright Holder" is whoever is name in the copyright or
+//   copyrights for the package.
+// - "You" is you, if you're thinking about copying or distributing
+//   this Package.
+//
+// Permission is hereby granted, free of charge, to any person
+// obtaining a copy of this software and associated documentation
+// files (the "Package"), to deal in the Package without restriction,
+// including without limitation the rights to use, copy, modify,
+// merge, publish, distribute, sublicense, and/or sell copies of the
+// Package, and to permit persons to whom the Package is furnished
+// to do so, subject to the following conditions:
+//
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Package.
+//
+// You may modify your copy of this Package in any way, provided
+// that you insert a prominent notice in each changed file stating
+// how and when you changed a file, and provided that you do at
+// least one of the following:
+//
+// a) allow the Copyright Holder to include your modifications in
+// the Standard Version of the Package.
+//
+// b) use the modified Package only within your corporation or
+// organization.
+//
+// c) rename any non standard executables, units, and classes so
+// the names do not conflict with standard executables, units, and
+// classes, and provide a separate manual page that clearly documents
+// how it differs from the standard version.
+//
+// d) make other distribution arrangements with the Copyright Holder.
+//
+// The name of the Copyright Holder may not be used to endorse or
+// promote products derived from this Package without specific prior
+// written permission.
+//
+// THE PACKAGE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+// IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+// CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+// TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+// PACKAGE OR THE USE OR OTHER DEALINGS IN THE PACKAGE.
+
+{$I RemObjects.inc}
+{$HINTS OFF}
+
+interface
+uses
+  uROUnicodeConv, // This version of XDOM needs the Unicode Converter Library 2.x,
+               // available at "http://www.philo.de/xml/"
+  Math, SysUtils, Classes, variants;
+
+type
+  {$IFNDEF UNICODE}
+  UnicodeString = WideString;
+  {$ENDIF}
+
+  EDomException = class(Exception);
+
+  EIndex_Size_Err = class(EdomException);
+  EDomstring_Size_Err = class(EdomException);
+  EHierarchy_Request_Err = class(EdomException);
+  EWrong_Document_Err = class(EdomException);
+  EInvalid_Character_Err = class(EdomException);
+  ENo_Data_Allowed_Err = class(EdomException);
+  ENo_Modification_Allowed_Err = class(EdomException);
+  ENot_Found_Err = class(EdomException);
+  ENot_Supported_Err = class(EdomException);
+  EInuse_Attribute_Err = class(EdomException);
+  EInvalid_State_Err = class(EdomException);
+  ESyntax_Err = class(EdomException);
+  EInvalid_Modification_Err = class(EdomException);
+  ENamespace_Err = class(EdomException);
+  EInvalid_Access_Err = class(EdomException);
+  EInuse_Node_Err = class(EdomException);
+  EInuse_Content_Model_Err = class(EdomException);
+  EInuse_AttributeDefinition_Err = class(EdomException);
+  ENo_External_Entity_Allowed_Err = class(EdomException);
+  EUnknown_Document_Format_Err = class(EdomException);
+
+  EDomASException = class(EdomException);
+  EDuplicate_Name_Err = class(EDomASException);
+  ENo_AS_Available = class(EDomASException);
+  EType_Err = class(EDomASException);
+  EValidation_Err = class(EDomASException);
+  EWrong_MIME_Type_Err = class(EDomASException);
+
+  EWrong_ASModel_Err = class(EDomASException);  // xxx Replace this!
+
+  EParserException = class(EdomException);
+
+  EXPath_Exception = class(EdomException);
+  EXPath_Invalid_Expression_Err = class(EXPath_Exception);
+  EXPath_Type_Err = class(EXPath_Exception);
+
+
+  TXmlErrorType = (
+
+    // Remark: The order and number of this error types is perhaps going to
+    //         change in future XDOM versions.  So, if possible, do refer to
+    //         error types by using the constants below, but avoid using
+    //         their numerical equivalents!
+
+    ET_NONE, // No Error
+
+    ET_DOUBLE_ATTDEF,
+    ET_DOUBLE_ENTITY_DECL,
+    ET_DOUBLE_PARAMETER_ENTITY_DECL,
+    ET_UNUSABLE_ENTITY_DECL,
+
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH,
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND,
+    ET_ATTRIBUTE_TYPE_MISMATCH,
+    ET_DUPLICATE_ELEMENT_TYPE_DECL,
+    ET_DUPLICATE_ENUMERATION_TOKEN,
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE,
+    ET_DUPLICATE_ID_VALUE,
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT,
+    ET_DUPLICATE_NOTATION_DECL,
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE,
+    ET_DUPLICATE_NOTATION_TOKEN,
+    ET_DUPLICATE_TOKENS,
+    ET_FIXED_ATTRIBUTE_MISMATCH,
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED,
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT,
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND,
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT,
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT,
+    ET_ENTITY_DECL_NOT_FOUND,
+    ET_EXTERNAL_SUBSET_NOT_FOUND,
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL,
+    ET_NOTATION_ON_EMPTY_ELEMENT,
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND,
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND,
+    ET_TARGET_ID_VALUE_NOT_FOUND,
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND,
+    ET_UNDECLARED_NOTATION_NAME,
+    ET_UNRESOLVABLE_ENTITY_REFERENCE,
+    ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE,
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY,
+    ET_WRONG_ROOT_ELEMENT_TYPE,
+
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY,
+    ET_DOUBLE_ATTRIBUTE_NAME,
+    ET_DOUBLE_EQUALITY_SIGN,
+    ET_DOUBLE_ROOT_ELEMENT,
+    ET_INVALID_ATTRIBUTE_NAME,
+    ET_INVALID_ATTRIBUTE_VALUE,
+    ET_INVALID_CDATA_SECTION,
+    ET_INVALID_CHARACTER,
+    ET_INVALID_CHARREF,
+    ET_INVALID_COMMENT,
+    ET_INVALID_ELEMENT_NAME,
+    ET_INVALID_ENTITY_NAME,
+    ET_INVALID_PROCESSING_INSTRUCTION,
+    ET_INVALID_PUBID_LITERAL,
+    ET_INVALID_SYSTEM_LITERAL,
+    ET_INVALID_TEXT_DECL,
+    ET_INVALID_XML_DECL,
+    ET_LT_IN_ATTRIBUTE_VALUE,
+    ET_MISSING_END_TAG,
+    ET_MISSING_EQUALITY_SIGN,
+    ET_MISSING_QUOTATION_MARK,
+    ET_MISSING_START_TAG,
+    ET_MISSING_WHITE_SPACE,
+    ET_NOT_IN_ROOT,
+    ET_NO_PROPER_MARKUP_REFERENCED,
+    ET_RECURSIVE_REFERENCE,
+    ET_REFERENCE_TO_UNPARSED_ENTITY,
+    ET_WRONG_ORDER,
+
+    ET_DOUBLE_DOCTYPE,
+    ET_INVALID_ATTRIBUTE_DECL,
+    ET_INVALID_CONDITIONAL_SECTION,
+    ET_INVALID_DOCTYPE,
+    ET_INVALID_ELEMENT_DECL,
+    ET_INVALID_ENTITY_DECL,
+    ET_INVALID_NOTATION_DECL,
+    ET_UNKNOWN_DECL_TYPE,
+
+    ET_INVALID_NAMESPACE_URI,
+    ET_INVALID_PREFIX,
+    ET_INVALID_QUALIFIED_NAME,
+    ET_NAMESPACE_URI_NOT_FOUND,
+    ET_WRONG_PREFIX_MAPPING_NESTING,
+
+    ET_ENCODING_NOT_SUPPORTED
+  );
+
+  TXmlErrorTypes = set of TXmlErrorType;
+
+const
+  ET_WARNINGS: TXmlErrorTypes = [
+    ET_NONE, // Included in ET_WARNINGS to ease calculations.
+    ET_DOUBLE_ATTDEF,
+    ET_DOUBLE_ENTITY_DECL,
+    ET_DOUBLE_PARAMETER_ENTITY_DECL,
+    ET_UNUSABLE_ENTITY_DECL
+  ];
+
+  ET_ERRORS: TXmlErrorTypes = [
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH,
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND,
+    ET_ATTRIBUTE_TYPE_MISMATCH,
+    ET_DUPLICATE_ELEMENT_TYPE_DECL,
+    ET_DUPLICATE_ENUMERATION_TOKEN,
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE,
+    ET_DUPLICATE_ID_VALUE,
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT,
+    ET_DUPLICATE_NOTATION_DECL,
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE,
+    ET_DUPLICATE_NOTATION_TOKEN,
+    ET_DUPLICATE_TOKENS,
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT,
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND,
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT,
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT,
+    ET_ENTITY_DECL_NOT_FOUND,
+    ET_EXTERNAL_SUBSET_NOT_FOUND,
+    ET_FIXED_ATTRIBUTE_MISMATCH,
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED,
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL,
+    ET_NOTATION_ON_EMPTY_ELEMENT,
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND,
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND,
+    ET_TARGET_ID_VALUE_NOT_FOUND,
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND,
+    ET_UNDECLARED_NOTATION_NAME,
+    ET_UNRESOLVABLE_ENTITY_REFERENCE,
+    ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE,
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY,
+    ET_WRONG_ROOT_ELEMENT_TYPE
+  ];
+
+  ET_FATAL_ERRORS: TXmlErrorTypes = [
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY,
+    ET_DOUBLE_ATTRIBUTE_NAME,
+    ET_DOUBLE_EQUALITY_SIGN,
+    ET_DOUBLE_ROOT_ELEMENT,
+    ET_INVALID_ATTRIBUTE_NAME,
+    ET_INVALID_ATTRIBUTE_VALUE,
+    ET_INVALID_CDATA_SECTION,
+    ET_INVALID_CHARACTER,
+    ET_INVALID_CHARREF,
+    ET_INVALID_COMMENT,
+    ET_INVALID_ELEMENT_NAME,
+    ET_INVALID_ENTITY_NAME,
+    ET_INVALID_PROCESSING_INSTRUCTION,
+    ET_INVALID_PUBID_LITERAL,
+    ET_INVALID_SYSTEM_LITERAL,
+    ET_INVALID_TEXT_DECL,
+    ET_INVALID_XML_DECL,
+    ET_LT_IN_ATTRIBUTE_VALUE,
+    ET_MISSING_END_TAG,
+    ET_MISSING_EQUALITY_SIGN,
+    ET_MISSING_QUOTATION_MARK,
+    ET_MISSING_START_TAG,
+    ET_MISSING_WHITE_SPACE,
+    ET_NOT_IN_ROOT,
+    ET_NO_PROPER_MARKUP_REFERENCED,
+    ET_RECURSIVE_REFERENCE,
+    ET_REFERENCE_TO_UNPARSED_ENTITY,
+    ET_WRONG_ORDER,
+
+    ET_DOUBLE_DOCTYPE,
+    ET_INVALID_ATTRIBUTE_DECL,
+    ET_INVALID_CONDITIONAL_SECTION,
+    ET_INVALID_DOCTYPE,
+    ET_INVALID_ELEMENT_DECL,
+    ET_INVALID_ENTITY_DECL,
+    ET_INVALID_NOTATION_DECL,
+    ET_UNKNOWN_DECL_TYPE,
+
+    ET_INVALID_NAMESPACE_URI,
+    ET_INVALID_PREFIX,
+    ET_INVALID_QUALIFIED_NAME,
+    ET_NAMESPACE_URI_NOT_FOUND,
+    ET_WRONG_PREFIX_MAPPING_NESTING,
+
+    ET_ENCODING_NOT_SUPPORTED
+  ];
+
+  ET_DOCTYPE_FATAL_ERRORS: TXmlErrorTypes = [
+    ET_INVALID_DOCTYPE,
+    ET_DOUBLE_DOCTYPE,
+    ET_INVALID_ATTRIBUTE_DECL,
+    ET_INVALID_CONDITIONAL_SECTION,
+    ET_INVALID_ELEMENT_DECL,
+    ET_INVALID_ENTITY_DECL,
+    ET_INVALID_NOTATION_DECL,
+    ET_UNKNOWN_DECL_TYPE
+  ];
+
+  ET_NAMESPACE_FATAL_ERRORS: TXmlErrorTypes = [
+    ET_INVALID_NAMESPACE_URI,
+    ET_INVALID_PREFIX,
+    ET_INVALID_QUALIFIED_NAME,
+    ET_NAMESPACE_URI_NOT_FOUND,
+    ET_WRONG_PREFIX_MAPPING_NESTING
+  ];
+
+type
+  TIso639LanguageCode = ( iso639_aa, // Afar
+                          iso639_ab, // Abkhazian
+                          iso639_af, // Afrikaans
+                          iso639_am, // Amharic
+                          iso639_ar, // Arabic
+                          iso639_as, // Assamese
+                          iso639_ay, // Aymara
+                          iso639_az, // Azerbaijani
+
+                          iso639_ba, // Bashkir
+                          iso639_be, // Byelorussian
+                          iso639_bg, // Bulgarian
+                          iso639_bh, // Bihari
+                          iso639_bi, // Bislama
+                          iso639_bn, // Bengali; Bangla
+                          iso639_bo, // Tibetan
+                          iso639_br, // Breton
+
+                          iso639_ca, // Catalan
+                          iso639_co, // Corsican
+                          iso639_cs, // Czech
+                          iso639_cy, // Welsh
+
+                          iso639_da, // Danish
+                          iso639_de, // German
+                          iso639_dz, // Bhutani
+
+                          iso639_el, // Greek
+                          iso639_en, // English
+                          iso639_eo, // Esperanto
+                          iso639_es, // Spanish
+                          iso639_et, // Estonian
+                          iso639_eu, // Basque
+
+                          iso639_fa, // Persian
+                          iso639_fi, // Finnish
+                          iso639_fj, // Fiji
+                          iso639_fo, // Faeroese
+                          iso639_fr, // French
+                          iso639_fy, // Frisian
+
+                          iso639_ga, // Irish
+                          iso639_gd, // Scots Gaelic
+                          iso639_gl, // Galician
+                          iso639_gn, // Guarani
+                          iso639_gu, // Gujarati
+
+                          iso639_ha, // Hausa
+                          iso639_hi, // Hindi
+                          iso639_hr, // Croatian
+                          iso639_hu, // Hungarian
+                          iso639_hy, // Armenian
+
+                          iso639_ia, // Interlingua
+                          iso639_ie, // Interlingue
+                          iso639_ik, // Inupiak
+                          iso639_in, // Indonesian
+                          iso639_is, // Icelandic
+                          iso639_it, // Italian
+                          iso639_iw, // Hebrew
+
+                          iso639_ja, // Japanese
+                          iso639_ji, // Yiddish
+                          iso639_jw, // Javanese
+
+                          iso639_ka, // Georgian
+                          iso639_kk, // Kazakh
+                          iso639_kl, // Greenlandic
+                          iso639_km, // Cambodian
+                          iso639_kn, // Kannada
+                          iso639_ko, // Korean
+                          iso639_ks, // Kashmiri
+                          iso639_ku, // Kurdish
+                          iso639_ky, // Kirghiz
+
+                          iso639_la, // Latin
+                          iso639_ln, // Lingala
+                          iso639_lo, // Laothian
+                          iso639_lt, // Lithuanian
+                          iso639_lv, // Latvian; Lettish
+
+                          iso639_mg, // Malagasy
+                          iso639_mi, // Maori
+                          iso639_mk, // Macedonian
+                          iso639_ml, // Malayalam
+                          iso639_mn, // Mongolian
+                          iso639_mo, // Moldavian
+                          iso639_mr, // Marathi
+                          iso639_ms, // Malay
+                          iso639_mt, // Maltese
+                          iso639_my, // Burmese
+
+                          iso639_na, // Nauru
+                          iso639_ne, // Nepali
+                          iso639_nl, // Dutch
+                          iso639_no, // Norwegian
+
+                          iso639_oc, // Occitan
+                          iso639_om, // Afan; Oromo
+                          iso639_or, // Oriya
+
+                          iso639_pa, // Punjabi
+                          iso639_pl, // Polish
+                          iso639_ps, // Pashto; Pushto
+                          iso639_pt, // Portuguese
+
+                          iso639_qu, // Quechua
+
+                          iso639_rm, // Rhaeto-Romance
+                          iso639_rn, // Kirundi
+                          iso639_ro, // Romanian
+                          iso639_ru, // Russian
+                          iso639_rw, // Kinyarwanda
+
+                          iso639_sa, // Sanskrit
+                          iso639_sd, // Sindhi
+                          iso639_sg, // Sangro
+                          iso639_sh, // Serbo-Croatian
+                          iso639_si, // Singhalese
+                          iso639_sk, // Slovak
+                          iso639_sl, // Slovenian
+                          iso639_sm, // Samoan
+                          iso639_sn, // Shona
+                          iso639_so, // Somali
+                          iso639_sq, // Albanian
+                          iso639_sr, // Serbian
+                          iso639_ss, // Siswati
+                          iso639_st, // Sesotho
+                          iso639_su, // Sundanese
+                          iso639_sv, // Swedish
+                          iso639_sw, // Swahili
+
+                          iso639_ta, // Tamil
+                          iso639_te, // Tegulu
+                          iso639_tg, // Tajik
+                          iso639_th, // Thai
+                          iso639_ti, // Tigrinya
+                          iso639_tk, // Turkmen
+                          iso639_tl, // Tagalog
+                          iso639_tn, // Setswana
+                          iso639_to, // Tonga
+                          iso639_tr, // Turkish
+                          iso639_ts, // Tsonga
+                          iso639_tt, // Tatar
+                          iso639_tw, // Twi
+
+                          iso639_uk, // Ukrainian
+                          iso639_ur, // Urdu
+                          iso639_uz, // Uzbek
+
+                          iso639_vi, // Vietnamese
+                          iso639_vo, // Volapuk
+
+                          iso639_wo, // Wolof
+
+                          iso639_xh, // Xhosa
+
+                          iso639_yo, // Yoruba
+
+                          iso639_zh, // Chinese
+                          iso639_zu  // Zulu
+                         );
+
+  TIso639LanguageCodeSet = set of TIso639LanguageCode;
+
+  TdomNodeType = (ntUnknown,
+                  ntElement_Node,
+                  ntAttribute_Node,
+                  ntText_Node,
+                  ntCDATA_Section_Node,
+                  ntEntity_Reference_Node,
+                  ntEntity_Node,
+                  ntProcessing_Instruction_Node,
+                  ntComment_Node,
+                  ntDocument_Node,
+                  ntDocument_Type_Node,
+                  ntDocument_Fragment_Node,
+                  ntNotation_Node,
+                  ntXPath_Namespace_Node);
+
+  TdomWhatToShow = set of TdomNodeType;
+
+const
+  SHOW_ALL: TdomWhatToShow = [ntElement_Node .. High(TDomNodeType)];
+  AS_UNBOUND = High(integer);
+
+type
+  TdomXPathResultType = ( XPATH_BOOLEAN_TYPE,
+                          XPATH_NODE_SNAPSHOT_TYPE,
+                          XPATH_NUMBER_TYPE,
+                          XPATH_STRING_TYPE
+                        );
+
+  TdomXPathResultTypes = set of TdomXPathResultType;
+
+const
+  XPATH_ANY_TYPE: TdomXPathResultTypes = [XPATH_BOOLEAN_TYPE .. High(TdomXPathResultType)];
+
+type
+  TdomNodeTypeSet = set of TdomNodeType;
+
+  TdomPieceType = (xmlProcessingInstruction,xmlXmlDeclaration,          // xxx xmlXmlDeclaration necessary?
+                   xmlTextDeclaration,xmlComment,xmlCDATA,xmlPCDATA,    // xxx xmlTextDeclaration necessary?
+                   xmlDoctype,xmlStartTag,xmlEndTag,xmlEmptyElementTag,
+                   xmlCharRef,xmlEntityRef,xmlParameterEntityRef,
+                   xmlEntityDecl,xmlElementDecl,xmlAttributeDecl,
+                   xmlNotationDecl,xmlCondSection,xmlUnknown);
+
+  TdomTreePosition = set of ( Tree_Position_Ancestor,
+                              Tree_Position_Descendant,
+                              Tree_Position_Disconnected,
+                              Tree_Position_Equivalent,
+                              Tree_Position_Following,
+                              Tree_Position_Preceding,
+                              Tree_Position_Same_Node );
+
+  TdomEntityResolveOption = (erReplace,erExpand);
+
+  TdomContentspecType = (ctEmpty,ctAny,ctMixed,ctChildren);
+
+  TdomEntityType = (etExternal_Entity,etInternal_Entity);
+
+  TdomFilterResult = (filter_accept,filter_reject,filter_skip);
+
+  TdomFilenameToUriOptions = set of (fuSetLocalhost,fuPlainColon);
+
+  TdomNode = class;
+  TdomAttr = class;
+  TdomElement = class;
+  TdomDocument = class;
+  TdomDocumentType = class;
+  TdomEntity = class;
+  TdomNotation = class;
+  TdomNodeList = class;
+
+  TdomAbstractView = class;
+
+  TdomMediaList = class;
+
+  TXmlSourceCodePiece = class;
+
+  TdomDocumentClass = class of TdomDocument;
+
+  PdomDocumentFormat = ^TdomDocumentFormat;
+
+  TdomDocumentFormat = record
+    DocumentClass: TdomDocumentClass;
+    NamespaceUri:  UnicodeString;
+    QualifiedName: UnicodeString;
+    next:          PdomDocumentFormat;
+  end;
+
+  TdomWideStringItem = record
+    FString: UnicodeString;
+    FObject: TObject;
+  end;
+
+  PdomWideStringItemList = ^TdomWideStringItemList;
+  TdomWideStringItemList = array[0..MaxListSize]  of TdomWideStringItem;
+
+  TdomWideStringList = class(TPersistent)
+  private
+    FCapacity: integer;
+    FCount: integer;
+    FDuplicates: TDuplicates;
+    FList: PdomWideStringItemList;
+    FSorted: boolean;
+    FUpdateCount: integer;
+    FOnChange: TNotifyEvent;
+    FOnChanging: TNotifyEvent;
+    procedure exchangeItems(index1,
+                            index2: integer);
+    procedure grow;
+    procedure insertItem(index: integer;
+                         const s: UnicodeString;
+                         AObject: TObject);
+    procedure quickSort(l,
+                        r: integer);
+    procedure setSorted(const value: boolean);
+  protected
+    procedure changed; virtual;
+    procedure changing; virtual;
+    procedure error(const msg: string;
+                    data: integer);
+    function get(index: integer): UnicodeString; virtual;
+    function getCapacity: integer; virtual;
+    function getCount: integer; virtual;
+    function getObject(index: integer): TObject; virtual;
+    procedure put(index: integer;
+                  const s: UnicodeString); virtual;
+    procedure putObject(index: integer;
+                        aObject: TObject); virtual;
+    procedure setCapacity(newCapacity: integer); virtual;
+    procedure setUpdateState(updating: boolean); virtual;
+  public
+    destructor destroy; override;
+    function add(s: UnicodeString): integer; virtual;
+    function addObject(s: UnicodeString; AObject: TObject): integer; virtual;
+    procedure addWideStrings(strings: TdomWideStringList); virtual;
+    procedure append(s: UnicodeString); virtual;
+    procedure assign(source: TPersistent); override;
+    procedure beginUpdate; virtual;
+    procedure clear; virtual;
+    procedure Delete(index: integer); virtual;
+    procedure endUpdate; virtual;
+    procedure exchange(index1, index2: integer); virtual;
+    function find(const s: UnicodeString;
+                    var index: integer): boolean; virtual;
+    function indexOf(const s: UnicodeString): integer; virtual;
+    procedure insert(index: integer; const s: UnicodeString); virtual;
+    procedure insertObject(index: integer; const s: UnicodeString; AObject: TObject); virtual;
+    procedure sort; virtual;
+    property capacity: integer read getCapacity write setCapacity;
+    property count: integer read getCount;
+    property duplicates: TDuplicates read FDuplicates write FDuplicates;
+    property objects[index: integer]: TObject read getObject write putObject;
+    property sorted: boolean read FSorted write setSorted;
+    property wideStrings[index: integer]: UnicodeString read get write put; default;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;
+  end;
+
+  TdomNameValueList = class(TPersistent)
+  private
+    FNames: TdomWideStringList;
+    FValues: TdomWideStringList;
+    procedure error(const msg: string;
+                    data: integer);
+    function getLength: integer; virtual;
+    function getCapacity: integer; virtual;
+    function getDuplicates: TDuplicates;
+    function getName(index: integer): UnicodeString; virtual;
+    function getObject(index: integer): TObject; virtual;
+    function getValue(index: integer): UnicodeString; virtual;
+    procedure putObject(index: integer;
+                        aObject: TObject); virtual;
+    procedure setCapacity(const value: integer); virtual;
+    procedure setDuplicates(const value: TDuplicates);
+    procedure setSorted(const Value: boolean);
+    function getSorted: boolean;
+  public
+    constructor create;
+    destructor destroy; override;
+    function add(const name,
+                       value: UnicodeString): integer; virtual;
+    function addObject(const name,
+                       value: UnicodeString;
+                       AObject: TObject): integer; virtual;
+    procedure addNameValueList(const nvl: TdomNameValueList); virtual;
+    procedure assign(source: TPersistent); override;
+    procedure clear; virtual;
+    procedure Delete(const index: integer); virtual;
+    procedure exchange(const index1,
+                             index2: integer); virtual;
+    function indexOf(const name,
+                           value: UnicodeString): integer; virtual;
+    function indexOfName(const name: UnicodeString): integer; virtual;
+    procedure insert(const index: integer;
+                     const name,
+                           value: UnicodeString); virtual;
+    function find(const name,
+                        value: UnicodeString;
+                    var index: integer): boolean; virtual;
+    function findOfName(const name: UnicodeString;
+                          var index: integer): boolean; virtual;
+    procedure sort; virtual;
+    property capacity: integer read getCapacity write setCapacity;
+    property duplicates: TDuplicates read getDuplicates write setDuplicates;
+    property length: integer read getLength;
+    property names[index: integer]: UnicodeString read getName;
+    property objects[index: integer]: TObject read getObject write putObject;
+    property sorted: boolean read getSorted write setSorted;
+    property values[index: integer]: UnicodeString read getValue;
+  end;
+
+  TdomNameValueTree = class(TdomNameValueList)
+  private
+    FParentTree: TdomNameValueTree;
+    function getChild(index: integer): TdomNameValueTree;
+  public
+    destructor Destroy; override;
+    function addChild(const name,
+                            value: UnicodeString;
+                      const child: TdomNameValueTree): integer; virtual;
+    function addChildObject(const name,
+                                  value: UnicodeString;
+                            const child: TdomNameValueTree;
+                            const AObject: TObject): integer; virtual;
+    procedure assign(source: TPersistent); override;
+    procedure clear; override;
+    procedure Delete(const index: integer); override;
+    function hasChild(const index: integer): boolean; virtual;
+    function indexOfChild(const child: TdomNameValueTree): integer; virtual;
+    procedure insertChild(const index: integer;
+                          const name,
+                                value: UnicodeString;
+                          const child: TdomNameValueTree); virtual;
+    function isDescendantOf(const nvtree: TdomNameValueTree): boolean; virtual;
+    function replaceChild(const index: integer;
+                          const newChild: TdomNameValueTree): TdomNameValueTree; virtual;
+    property children[index: integer]: TdomNameValueTree read getChild;
+    property parentTree: TdomNameValueTree read FParentTree;
+  end;
+
+  TdomCustomStr = class
+  private
+    FActualLen: integer;
+    FCapacity: integer;
+    FContent: UnicodeString;
+  protected
+    function getWideChars(indx: integer): wideChar; virtual;
+    procedure setWideChars(indx: integer;
+                           ch: wideChar); virtual;
+  public
+    constructor create;
+    procedure addWideChar(const ch: wideChar); virtual;
+    procedure addWideString(const s: UnicodeString); virtual;
+    function  endsWith(const s: UnicodeString): boolean; virtual;
+    function  isEqual(const s: UnicodeString): boolean; virtual;
+    procedure reset; virtual;                                   // xxx rename this into 'clear'?
+    function  startsWith(const s: UnicodeString): boolean; virtual;
+    function  value: UnicodeString; virtual;
+              // Since calling the value function involves time
+              // consuming string copying, always use one of the
+              // other TdomCustomStr access functions, if possible,
+              // e.g. wideChars[index] instead of value[index],
+              // isEqual[s] instead of (value = s), or
+              // length instead of length(value).
+    property  length: integer read FActualLen;
+    property  wideChars[indx: integer]: wideChar read getWideChars write setWideChars; default;
+  end;
+
+  TdomWideStringStream = class(TStream)
+  private
+    FDataStringP: PAnsiChar;
+    FSize: longint;
+    FCapacity: longint;
+    FPosition: longint;
+  protected
+    procedure setCapacity(newCapacity: longint); virtual;
+    procedure setSize(newSize: longint); override;
+    procedure setStringPosition(value: longint);
+    function getStringPosition: longint;
+    procedure setStringLength(value: longint);
+    function getStringLength: longint;
+    function getDataString: UnicodeString;
+  public
+    constructor createFromString(const aString: UnicodeString);
+    destructor destroy; override;
+    function read(var buffer; count: longint): longint; override;
+    function readString(count: longint): UnicodeString;
+    function seek(offset: longint; origin: word): longint; override;
+    function write(const buffer; count: longint): longint; override;
+    procedure writeString(const aString: UnicodeString);
+    property capacity: longint read FCapacity write setCapacity;
+    property stringLength: longint read getStringLength write setStringLength;
+    property stringPosition: longint read getStringPosition write setStringPosition;
+    property dataString: UnicodeString read getDataString;
+  end;
+
+  TIso639Info = class(TPersistent)
+  private
+    function codeToName_en(value: TIso639LanguageCode): UnicodeString;
+    function nameToCode_en(value: UnicodeString): TIso639LanguageCode;
+  protected
+    FAppendSymbolToName: boolean;
+    FNameLanguage: TIso639LanguageCode;
+    FSupportedLanguages: TIso639LanguageCodeSet;
+    procedure assignTo(dest: TPersistent); override;
+    procedure setNameLanguage(const value: TIso639LanguageCode); virtual;
+  public
+    constructor create;
+    function codeToName(const value: TIso639LanguageCode): UnicodeString; virtual;
+    function codeToSymbol(const value: TIso639LanguageCode): UnicodeString; virtual;
+    function nameToCode(const value: UnicodeString): TIso639LanguageCode; virtual;
+    function symbolToCode(const value: UnicodeString): TIso639LanguageCode; virtual;
+    property appendSymbolToName: boolean read FAppendSymbolToName write FAppendSymbolToName default false;
+    property nameLanguage: TIso639LanguageCode read FNameLanguage write setNameLanguage default iso639_en;
+    property supportedLanguages: TIso639LanguageCodeSet read FSupportedLanguages;
+  end;
+
+  TdomCMNodeList          = class;
+  TdomCMObject            = class;
+  TdomCMEntity            = class;
+  TdomCMExternalObject    = class;
+  TdomCMInternalObject    = class;
+  TdomError               = class;
+  TdomXPathExpression     = class;
+  TdomXPathNSResolver     = class;
+  TdomXPathResult         = class;
+  TdomXPathSnapshotResult = class;
+
+  TXmlParserAction = (paFail,paRetry,paOK);
+
+  TdomNewLineType = (nltCRLF,ntlCR,ntlLF);
+
+  TdomAttrChange = ( AC_ADDITION,
+                     AC_MODIFICATION,
+                     AC_REMOVAL);
+
+  TdomAttrModifiedDocEvent = procedure(sender: TObject;
+                                       modifiedDoc: TdomDocument;
+                                       modifiedNode: TdomNode;
+                                       attrChange: TdomAttrChange;
+                                       prevValue,
+                                       newValue: UnicodeString;
+                                       relatedAttr: TdomAttr) of object;
+
+  TdomAttrModifiedEvent = procedure(sender: TObject;
+                                    modifiedNode: TdomNode;
+                                    attrChange: TdomAttrChange;
+                                    prevValue,
+                                    newValue: UnicodeString;
+                                    relatedAttr: TdomAttr) of object;
+
+  TdomCharacterDataModifiedDocEvent = procedure(sender: TObject;
+                                                modifiedDoc: TdomDocument;
+                                                modifiedNode: TdomNode;
+                                                prevValue,
+                                                newValue: UnicodeString) of object;
+
+  TdomCharacterDataModifiedEvent = procedure(sender: TObject;
+                                             modifiedNode: TdomNode;
+                                             prevValue,
+                                             newValue: UnicodeString) of object;
+
+  TdomNodeModifiedDocEvent = procedure(sender: TObject;
+                                       modifiedDoc: TdomDocument;
+                                       modifiedNode: TdomNode) of object;
+
+  TdomNodeModifiedEvent = procedure(sender: TObject;
+                                    modifiedNode: TdomNode) of object;
+
+  TXmlParserEvent = procedure(      sender: TObject;
+                              const parentSystemId: UnicodeString;
+                                var publicId,
+                                    systemId: UnicodeString;
+                                var stream: TStream;
+                                var action: TXmlParserAction) of object;
+
+  TdomErrorEvent = procedure(    sender: TObject;
+                                 error: TdomError;
+                             var go: boolean) of object;
+
+  TDomImplementation = class (TComponent)
+  private
+    FOnError: TdomErrorEvent;
+    FOnExternalParsedEntity: TXmlParserEvent;
+    FOnAttrModified: TdomAttrModifiedDocEvent;
+    FOnCharacterDataModified: TdomCharacterDataModifiedDocEvent;
+    FOnNodeRemoved: TdomNodeModifiedDocEvent;
+    FOnNodeInserted: TdomNodeModifiedDocEvent;
+  protected
+    FCreatedCMExternalObjects: TdomCMNodeList;
+    FCreatedCMInternalObjects: TdomCMNodeList;
+    FCreatedCMObjects: TdomCMNodeList;
+    FCreatedDocuments: TdomNodeList;
+    FCreatedDocumentTypes: TdomNodeList;
+    FCreatedCMExternalObjectsListing: TList;
+    FCreatedCMInternalObjectsListing: TList;
+    FCreatedCMObjectsListing: TList;
+    FCreatedDocumentsListing: TList;
+    FCreatedDocumentTypesListing: TList;
+    procedure doAttrModified(modifiedDoc: TdomDocument;
+                             modifiedNode: TdomNode;
+                             attrChange: TdomAttrChange;
+                             prevValue,
+                             newValue: UnicodeString;
+                             relatedAttr: TdomAttr); virtual;
+    procedure doCharacterDataModified(modifiedDoc: TdomDocument;
+                                      modifiedNode: TdomNode;
+                                      prevValue,
+                                      newValue: UnicodeString); virtual;
+    procedure doError(    sender: TObject;
+                          error: TdomError;
+                      var go: boolean); virtual;
+    procedure doExternalParsedEntity(    parentSystemId: UnicodeString;
+                                     var publicId,
+                                         systemId: UnicodeString;
+                                     var stream: TStream;
+                                     var action: TXmlParserAction); virtual;
+    procedure doNodeInserted(modifiedDoc: TdomDocument;
+                             modifiedNode: TdomNode); virtual;
+    procedure doNodeRemoved(modifiedDoc: TdomDocument;
+                            modifiedNode: TdomNode); virtual;
+    function getCMExternalObjects: TdomCMNodeList; virtual;
+    function getCMInternalObjects: TdomCMNodeList; virtual;
+    function getCMObjects: TdomCMNodeList; virtual;
+    function getDocuments: TdomNodeList; virtual;
+    function getDocumentTypes: TdomNodeList; virtual;
+    function getXdomVersion: UnicodeString; virtual;
+  public
+    constructor create(aOwner: TComponent); override;
+    destructor destroy; override;
+    procedure clear; virtual;
+    function createCMExternalObject(const pubId,
+                                          sysId: UnicodeString): TdomCMExternalObject; virtual;
+    function createCMInternalObject(const pubId,
+                                          sysId: UnicodeString): TdomCMInternalObject; virtual;
+    function createCMObject(const sysId: UnicodeString): TdomCMObject; virtual;
+    function createDocument(const aname: UnicodeString;
+                                  doctype: TdomDocumentType): TdomDocument; virtual;
+    function createDocumentNS(const namespaceURI,
+                                    qualifiedName: UnicodeString;
+                                    doctype: TdomDocumentType): TdomDocument; virtual;
+
+{
+  The following two methods have been removed from this version of
+  the XDOM, but will be reintroduced in a future release.
+
+    function createDocumentType(const name,
+                                      publicId,
+                                      systemId,
+                                      intSubset: UnicodeString): TdomDocumentType; virtual;
+    function createDocumentTypeNS(const qualifiedName,
+                                        publicId,
+                                        systemId,
+                                        intSubset: UnicodeString): TdomDocumentType; virtual;
+}
+
+    procedure freeCMExternalObject(var arg: TdomCMExternalObject); virtual;
+    procedure freeCMInternalObject(var arg: TdomCMInternalObject); virtual;
+    procedure freeCMObject(var arg: TdomCMObject); virtual;
+    procedure freeDocument(var doc: TdomDocument); virtual;
+    procedure freeDocumentType(var docType: TdomDocumentType); virtual;
+    function hasFeature(const feature,
+                              version: UnicodeString): boolean; virtual;
+    function getDocumentClass(const aNamespaceUri,
+                                    aQualifiedName: UnicodeString): TdomDocumentClass; virtual;
+    function handleError(const sender: TObject;
+                         const error: TdomError): boolean; virtual;
+    class procedure registerDocumentFormat(const aNamespaceUri,
+                                                 aQualifiedName: UnicodeString;
+                                                 aDocumentClass: TdomDocumentClass); virtual;
+    function supportsDocumentFormat(const aNamespaceUri,
+                                          aQualifiedName: UnicodeString): boolean; virtual;
+    class procedure unregisterDocumentClass(const aDocumentClass: TdomDocumentClass); virtual;
+    property cmExternalObjects: TdomCMNodeList read getCMExternalObjects;
+    property cmInternalObjects: TdomCMNodeList read getCMInternalObjects;
+    property cmObjects: TdomCMNodeList read getCMObjects;
+    property documents: TdomNodeList read getDocuments;
+    property documentTypes: TdomNodeList read getDocumentTypes;
+    property xdomVersion: UnicodeString read getXdomVersion;
+  published
+    property OnAttrModified:          TdomAttrModifiedDocEvent read FOnAttrModified write FOnAttrModified;
+    property OnCharacterDataModified: TdomCharacterDataModifiedDocEvent read FOnCharacterDataModified write FOnCharacterDataModified;
+    property OnError:                 TdomErrorEvent read FOnError write FOnError;
+    property OnExternalParsedEntity:  TXmlParserEvent read FOnExternalParsedEntity write FOnExternalParsedEntity;
+    property OnNodeInserted:          TdomNodeModifiedDocEvent read FOnNodeInserted write FOnNodeInserted;
+    property OnNodeRemoved:           TdomNodeModifiedDocEvent read FOnNodeRemoved write FOnNodeRemoved;
+  end;
+
+  TdomNodeFilter = class
+  public
+    function acceptNode(const n: TdomNode): TdomFilterResult; virtual; abstract;
+  end;
+
+  TdomTreeWalker = class
+  private
+    FCurrentNode: TdomNode;
+    FExpandEntityReferences: boolean;
+    FFilter: TdomNodeFilter;
+    FRoot: TdomNode;
+    FWhatToShow: TdomWhatToShow;
+  protected
+    function findFirstChild(const oldNode: TdomNode): TdomNode; virtual;
+    function findLastChild(const oldNode: TdomNode): TdomNode; virtual;
+    function findNextNode(oldNode: TdomNode): TdomNode; virtual;
+    function findNextSibling(const oldNode: TdomNode): TdomNode; virtual;
+    function findParentNode(const oldNode: TdomNode): TdomNode; virtual;
+    function findPreviousNode(const oldNode: TdomNode): TdomNode; virtual;
+    function findPreviousSibling(const oldNode: TdomNode): TdomNode; virtual;
+    procedure setCurrentNode(const node: TdomNode); virtual;
+    procedure setExpandEntityReferences(const value: boolean); virtual;  // Derived classes can move this method to the public section to allow write access.
+    procedure setFilter(const value: TdomNodeFilter); virtual;           // Derived classes can move this method to the public section to allow write access.
+    procedure setRoot(const node: TdomNode); virtual;                    // Derived classes can move this method to the public section to allow write access.
+    procedure setWhatToShow(const value: TdomWhatToShow); virtual;       // Derived classes can move this method to the public section to allow write access.
+  public
+    constructor create(const root: TdomNode;
+                       const whatToShow: TdomWhatToShow;
+                       const nodeFilter: TdomNodeFilter;
+                       const entityReferenceExpansion: boolean); virtual;
+    function parentNode: TdomNode; virtual;
+    function firstChild: TdomNode; virtual;
+    function lastChild: TdomNode; virtual;
+    function previousSibling: TdomNode; virtual;
+    function nextSibling: TdomNode; virtual;
+    function nextNode: TdomNode; virtual;
+    function previousNode: TdomNode; virtual;
+    property currentNode: TdomNode read FCurrentNode write setCurrentNode;
+    property expandEntityReferences: boolean read FExpandEntityReferences;
+    property filter: TdomNodeFilter read FFilter;
+    property root: TdomNode read FRoot;
+    property whatToShow: TdomWhatToShow read FWhatToShow;
+  end;
+
+  TdomPosition = (posBefore,posAfter);
+
+  TdomNodeIterator = class
+  private
+    FRoot: TdomNode;
+    FReferenceNode: TdomNode;
+    FPosition: TdomPosition; // Position of the Iterator relativ to FReferenceNode
+    FWhatToShow: TdomWhatToShow;
+    FExpandEntityReferences: boolean;
+    FFilter: TdomNodeFilter;
+    FInvalid: boolean;
+  protected
+    procedure findNewReferenceNode(const nodeToRemove: TdomNode); virtual; // To be called if the current FReferenceNode is being removed
+    function findNextNode(oldNode: TdomNode): TdomNode; virtual;
+    function findPreviousNode(const oldNode: TdomNode): TdomNode; virtual;
+  public
+    constructor create(const root: TdomNode;
+                       const whatToShow: TdomWhatToShow;
+                       const nodeFilter: TdomNodeFilter;
+                       const entityReferenceExpansion: boolean); virtual;
+    procedure detach; virtual;
+    function nextNode: TdomNode; virtual;
+    function previousNode: TdomNode; virtual;
+    property expandEntityReferences: boolean read FExpandEntityReferences;
+    property filter: TdomNodeFilter read FFilter;
+    property root: TdomNode read FRoot;
+    property whatToShow: TdomWhatToShow read FWhatToShow;
+  end;
+
+  TdomNodeList = class
+  private
+    FNodeList: TList;
+  protected
+    function getLength: integer; virtual;
+    function indexOf(const node: TdomNode): integer; virtual;
+  public
+    constructor create(const nodeList: TList);
+    function item(const index: integer): TdomNode; virtual;
+    property length: integer read getLength;
+  end;
+
+  TdomElementsNodeList = class(TdomNodeList)
+  private
+    FQueryName: UnicodeString;
+    FStartElement: TdomNode;
+  protected
+    function getLength: integer; override;
+  public
+    function indexOf(const node: TdomNode): integer; override;
+    function item(const index: integer): TdomNode; override;
+    constructor create(const queryName: UnicodeString;
+                       const startElement: TdomNode); virtual;
+  end;
+
+  TdomElementsNodeListNS = class(TdomNodeList)
+  private
+    FQueryNamespaceURI: UnicodeString;
+    FQueryLocalName: UnicodeString;
+    FStartElement: TdomNode;
+  protected
+    function getLength: integer; override;
+  public
+    function indexOf(const node: TdomNode): integer; override;
+    function item(const index: integer): TdomNode; override;
+    constructor create(const queryNamespaceURI,
+                             queryLocalName: UnicodeString;
+                       const startElement: TdomNode); virtual;
+  end;
+
+  TdomSpecialNodeList = class(TdomNodeList)
+  protected
+    FAllowedNodeTypes: TDomNodeTypeSet;
+    function getLength: integer; override;
+    function getNamedIndex(const name: UnicodeString): integer; virtual;
+    function getNamedItem(const name: UnicodeString): TdomNode; virtual;
+  public
+    constructor create(const nodeList: TList;
+                       const allowedNTs: TDomNodeTypeSet); virtual;
+    function indexOf(const node: TdomNode): integer; override;
+    function item(const index: integer): TdomNode; override;
+  end;
+
+  TdomNamedNodeMap = class(TdomNodeList)
+  private
+    FIsReadonly: boolean;
+    FNamespaceAware: boolean;
+    FOwner: TdomNode;     // The owner document.
+    FOwnerNode: TdomNode; // The node to which the map is attached to.
+    function getNamespaceAware: boolean; virtual;
+    function getOwnerNode: TdomNode; virtual;
+    procedure setNamespaceAware(const value: boolean); virtual;
+  protected
+    FAllowedNodeTypes: TDomNodeTypeSet;
+    function getNamedIndex(const name: UnicodeString): integer; virtual;
+    function removeItem(const arg: TdomNode): TdomNode; virtual;
+    procedure setIsReadonly(const value: boolean); virtual;
+  public
+    constructor create(const aOwner,
+                             aOwnerNode: TdomNode;
+                       const nodeList: TList;
+                       const allowedNTs: TDomNodeTypeSet); virtual;
+    function getNamedItem(const name: UnicodeString): TdomNode; virtual;
+    function getNamedItemNS(const namespaceURI,
+                                  localName: UnicodeString): TdomNode; virtual;
+    function removeNamedItem(const name: UnicodeString): TdomNode; virtual;
+    function removeNamedItemNS(const namespaceURI,
+                                     localName: UnicodeString): TdomNode; virtual;
+    function setNamedItem(const arg: TdomNode): TdomNode; virtual;
+    function setNamedItemNS(const arg: TdomNode): TdomNode; virtual;
+    property isReadonly: boolean read FIsReadonly;
+    property namespaceAware: boolean read getNamespaceAware write setNamespaceAware default false;
+    property ownerNode: TdomNode read getOwnerNode;
+  end;
+
+  TdomLocator = class;
+
+  TdomNode = class
+  private
+    FNodeName: UnicodeString;
+    FNodeValue: UnicodeString;
+    FNodeType: TdomNodeType;
+    FNodeList: TdomNodeList;
+    FNodeListing: TList;
+    FDocument: TdomDocument;
+    FParentNode: TdomNode;
+    FIsNamespaceNode: boolean;
+    FIsReadonly: boolean;
+
+    FOnAttrModified: TdomAttrModifiedEvent;
+    FOnCharacterDataModified: TdomCharacterDataModifiedEvent;
+    FOnNodeInserted: TdomNodeModifiedEvent;
+    FOnNodeInsertedIntoDocument: TdomNodeModifiedEvent;
+    FOnNodeRemoved: TdomNodeModifiedEvent;
+    FOnNodeRemovedFromDocument: TdomNodeModifiedEvent;
+
+    procedure makeChildrenReadonly; virtual;
+    function refersToExternalEntity: boolean; virtual;
+    function hasEntRef(const entName: UnicodeString): boolean; virtual;
+  protected
+    FAllowedChildTypes: set of TDomNodeType;
+    FLocalName: UnicodeString;
+    FNamespaceURI: UnicodeString;
+    FPrefix: UnicodeString;
+    procedure doAttrModified(originalTarget: TdomNode;
+                             attrChange: TdomAttrChange;
+                             prevValue,
+                             newValue: UnicodeString;
+                             relatedAttr: TdomAttr); virtual;
+    procedure doCharacterDataModified(originalTarget: TdomNode;
+                                      prevValue,
+                                      newValue: UnicodeString); virtual;
+    procedure doNodeInserted(originalTarget: TdomNode); virtual;
+    procedure doNodeInsertedIntoDocument(originalTarget: TdomNode); virtual;
+    procedure doNodeRemoved(originalTarget: TdomNode); virtual;
+    procedure doNodeRemovedFromDocument(originalTarget: TdomNode); virtual;
+    function getAttributes: TdomNamedNodeMap; virtual;
+    function getBaseUri: UnicodeString; virtual;
+    function getChildNodes: TdomNodeList; virtual;
+    function getDocument: TdomDocument; virtual;
+    function getFirstChild: TdomNode; virtual;
+    function getNextSibling: TdomNode; virtual;
+    function getNodeName: UnicodeString; virtual;
+    function getNodeValue: UnicodeString; virtual;
+    function getNodeType: TdomNodeType; virtual;
+    function getLastChild: TdomNode; virtual;
+    function getParentNode: TdomNode; virtual;
+    function getPreviousSibling: TdomNode; virtual;
+    function getTextContent: UnicodeString; virtual;
+    function getXPathStringValue: UnicodeString; virtual;
+    function sendErrorNotification(const xmlErrorType: TXmlErrorType;
+                                   const relNode: TdomNode): boolean; virtual;
+    procedure setIsReadonly(const value: boolean); virtual;
+    procedure setNodeValue(const value: UnicodeString); virtual;
+    procedure setPrefix(const value: UnicodeString); virtual;
+    function validate2: boolean; virtual;
+    function validateIDREFS: boolean; virtual;
+  public
+    constructor create(const aOwner: TdomDocument);
+    destructor destroy; override;
+    function  appendChild(const newChild: TdomNode): TdomNode; virtual;
+    procedure clear; virtual;
+    function  cloneNode(const deep: boolean): TdomNode; virtual;
+    function  compareTreePosition(const other: TdomNode): TdomTreePosition; virtual;
+    function  evaluate(const expression: UnicodeString): TdomXPathResult; virtual;
+    function  findFirstChildElement: TdomElement; virtual;
+    function  findLastChildElement: TdomElement; virtual;
+    function  findNextSiblingElement: TdomElement; virtual;
+    function  findParentElement: TdomElement; virtual;
+    function  findPreviousSiblingElement: TdomElement; virtual;
+    function  getFirstChildElement(const name: UnicodeString): TdomElement; virtual;
+    function  getFirstChildElementNS(const namespaceURI,
+                                           localName: UnicodeString): TdomElement; virtual;
+    function  getLastChildElement(const name: UnicodeString): TdomElement; virtual;
+    function  getLastChildElementNS(const namespaceURI,
+                                          localName: UnicodeString): TdomElement; virtual;
+    function  getNextSiblingElement(const name: UnicodeString): TdomElement; virtual;
+    function  getNextSiblingElementNS(const namespaceURI,
+                                            localName: UnicodeString): TdomElement; virtual;
+    function  getParentElement(const name: UnicodeString): TdomElement; virtual;
+    function  getParentElementNS(const namespaceURI,
+                                       localName: UnicodeString): TdomElement; virtual;
+    function  getPreviousSiblingElement(const name: UnicodeString): TdomElement; virtual;
+    function  getPreviousSiblingElementNS(const namespaceURI,
+                                                localName: UnicodeString): TdomElement; virtual;
+    function  hasChildNodes: boolean; virtual;
+    function  insertBefore(const newChild,
+                                 refChild: TdomNode): TdomNode; virtual;
+    function  isAncestor(const AncestorNode: TdomNode): boolean; virtual;
+    procedure normalize; virtual;
+    function  removeChild(const oldChild: TdomNode): TdomNode; virtual;
+    function  replaceChild(const newChild,
+                                 oldChild: TdomNode): TdomNode; virtual;
+    function  resolveEntityReferences(const opt: TdomEntityResolveOption): boolean; virtual;
+    function  supports(const feature,
+                             version: UnicodeString): boolean; virtual;
+    property attributes:       TdomNamedNodeMap read getAttributes;
+    property baseUri:          UnicodeString       read getBaseUri;
+    property childNodes:       TdomNodeList     read getChildNodes;
+    property firstChild:       TdomNode         read getFirstChild;
+    property isNamespaceNode:  boolean          read FIsNamespaceNode;
+    property isReadonly:       boolean          read FIsReadonly;
+    property lastChild:        TdomNode         read getLastChild;
+    property localName:        UnicodeString       read FLocalName;
+    property namespaceURI:     UnicodeString       read FNamespaceURI;
+    property nextSibling:      TdomNode         read getNextSibling;
+    property nodeName:         UnicodeString       read getNodeName;
+    property nodeType:         TdomNodeType     read getNodeType;
+    property nodeValue:        UnicodeString       read getNodeValue write setNodeValue;
+    property ownerDocument:    TdomDocument     read getDocument;
+    property parentNode:       TdomNode         read getParentNode;
+    property previousSibling:  TdomNode         read getPreviousSibling;
+    property prefix:           UnicodeString       read FPrefix write setPrefix;
+    property textContent:      UnicodeString       read getTextContent;
+    property XPathStringValue: UnicodeString       read getXPathStringValue;
+
+    property onAttrModified:             TdomAttrModifiedEvent read FOnAttrModified write FOnAttrModified;
+    property onCharacterDataModified:    TdomCharacterDataModifiedEvent read FOnCharacterDataModified write FOnCharacterDataModified;
+    property onNodeInserted:             TdomNodeModifiedEvent read FOnNodeInserted write FOnNodeInserted;
+    property onNodeInsertedIntoDocument: TdomNodeModifiedEvent read FOnNodeInsertedIntoDocument write FOnNodeInsertedIntoDocument;
+    property onNodeRemoved:              TdomNodeModifiedEvent read FOnNodeRemoved write FOnNodeRemoved;
+    property onNodeRemovedFromDocument:  TdomNodeModifiedEvent read FOnNodeRemovedFromDocument write FOnNodeRemovedFromDocument;
+  end;
+
+  TdomCharacterData = class (TdomNode)
+  private
+    function getData: UnicodeString; virtual;
+    procedure setData(const Value: UnicodeString); virtual;
+    function getLength: integer; virtual;
+  public
+    constructor create(const aOwner: TdomDocument); virtual;
+    function substringData(const offset,
+                                 count: integer): UnicodeString; virtual;
+    procedure appendData(const arg: UnicodeString); virtual;
+    procedure insertData(const offset: integer;
+                         const arg: UnicodeString); virtual;
+    procedure deleteData(const offset,
+                               count: integer); virtual;
+    procedure replaceData(const offset,
+                                count: integer;
+                          const arg: UnicodeString); virtual;
+    property data: UnicodeString read getData write setData;
+    property length: integer read getLength;
+  end;
+
+  TdomAttr = class (TdomNode)
+  private
+    FOwnerElement: TdomElement;
+    FSpecified: boolean;
+  protected
+    function getLiteralValue: UnicodeString; virtual;
+    function getName: UnicodeString; virtual;
+    function getNextSibling: TdomNode; override;
+    function getNodeValue: UnicodeString; override;
+    function getOwnerElement: TdomElement; virtual;
+    function getParentNode: TdomNode; override;
+    function getPreviousSibling: TdomNode; override;
+    function getSpecified: boolean; virtual;
+    function getValue: UnicodeString; virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+    procedure setValue(const value: UnicodeString); virtual;
+    function validate2: boolean; override;
+    function validateIDREFS: boolean; override;
+  public
+    constructor create(const aOwner: TdomDocument;
+                       const name: UnicodeString;
+                       const spcfd: boolean);
+    constructor createNS(const aOwner: TdomDocument;
+                         const anamespaceURI,
+                               qualifiedName: UnicodeString;
+                         const spcfd: boolean);
+    procedure normalize; override;
+    function  resolveEntityReferences(const opt: TdomEntityResolveOption): boolean; override;
+    property literalValue: UnicodeString read getLiteralValue;
+    property name: UnicodeString read getName;
+    property ownerElement: TdomElement read getOwnerElement;
+    property specified: boolean read getSpecified;
+    property value: UnicodeString read getValue write setValue;
+  end;
+
+  TdomElement = class (TdomNode)
+  private
+    FCreatedElementsNodeLists: TList;
+    FCreatedElementsNodeListNSs: TList;
+    FAttributeListing: TList;
+    FAttributeList: TdomNamedNodeMap;
+  protected
+    procedure setIsReadonly(const value: boolean); override;
+    procedure setNodeValue(const value: UnicodeString); override;
+    function validate2: boolean; override;
+    function validateIDREFS: boolean; override;
+  public
+    constructor create(const aOwner: TdomDocument;
+                       const tagName: UnicodeString);
+    constructor createNS(const aOwner: TdomDocument;
+                         const anamespaceURI,
+                               qualifiedName: UnicodeString);
+    destructor destroy; override;
+    function getTagName: UnicodeString; virtual;
+    function getAttributes: TdomNamedNodeMap; override;
+    function getAttribute(const name: UnicodeString): UnicodeString; virtual;
+    function setAttribute(const name,
+                                value: UnicodeString): TdomAttr; virtual;
+    function removeAttribute(const name: UnicodeString): TdomAttr; virtual;
+    function getAttributeNode(const name: UnicodeString): TdomAttr; virtual;
+    function setAttributeNode(const newAttr: TdomAttr): TdomAttr; virtual;
+    function removeAttributeNode(const oldAttr: TdomAttr): TdomAttr; virtual;
+    function resolveEntityReferences(const opt: TdomEntityResolveOption): boolean; override;
+    function getElementsByTagName(const name: UnicodeString): TdomNodeList; virtual;
+    function getAttributeNS(const anamespaceURI,
+                                  alocalName: UnicodeString): UnicodeString; virtual;
+    function setAttributeNS(const anamespaceURI,
+                                  qualifiedName,
+                                  value: UnicodeString): TdomAttr; virtual;
+    function removeAttributeNS(const anamespaceURI,
+                                     alocalName: UnicodeString): TdomAttr; virtual;
+    function getAttributeNodeNS(const anamespaceURI,
+                                      alocalName: UnicodeString): TdomAttr; virtual;
+    function setAttributeNodeNS(const newAttr: TdomAttr): TdomAttr; virtual;
+    function getElementsByTagNameNS(const anamespaceURI,
+                                          alocalName: UnicodeString): TdomNodeList; virtual;
+    function hasAttribute(const aname: UnicodeString): boolean; virtual;
+    function hasAttributeNS(const anamespaceURI,
+                                  alocalName: UnicodeString): boolean; virtual;
+    procedure normalize; override;
+    property tagName: UnicodeString read getTagName;
+  end;
+
+  TdomText = class (TdomCharacterData)
+  protected
+    function getIsWhitespaceInElementContent: boolean; virtual;
+    function validate2: boolean; override;
+  public
+    constructor create(const aOwner: TdomDocument); override;
+    function splitText(const offset: integer): TdomText; virtual;
+    property isWhitespaceInElementContent: boolean read getIsWhitespaceInElementContent;
+  end;
+
+  TdomComment = class (TdomCharacterData)
+  protected
+    function validate2: boolean; override;
+  public
+    constructor create(const aOwner: TdomDocument); override;
+  end;
+
+  TdomProcessingInstruction = class (TdomNode)
+  private
+    function getTarget: UnicodeString; virtual;
+    function getData: UnicodeString; virtual;
+    procedure setData(const value: UnicodeString); virtual;
+  protected
+    function validate2: boolean; override;
+  public
+    constructor create(const aOwner: TdomDocument;
+                       const targ: UnicodeString); virtual;
+    property target: UnicodeString read getTarget;
+    property data: UnicodeString read getData write setData;
+  end;
+
+  TdomCDATASection = class (TdomText)
+  protected
+    function validate2: boolean; override;
+  public
+    constructor create(const aOwner: TdomDocument); override;
+  end;
+
+  TdomDocumentType = class (TdomNode)
+  private
+    FInternalSubset: UnicodeString;
+    FPublicId: UnicodeString;
+    FSystemId: UnicodeString;
+    FEntitiesListing: TList;
+    FEntitiesList: TdomNamedNodeMap;
+    FNotationsListing: TList;
+    FNotationsList: TdomNamedNodeMap;
+  protected
+    function getEntities: TdomNamedNodeMap; virtual;
+    function getInternalSubset: UnicodeString; virtual;
+    function getName: UnicodeString; virtual;
+    function getNotations: TdomNamedNodeMap; virtual;
+    function getPublicId: UnicodeString; virtual;
+    function getSystemId: UnicodeString; virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+    function validate2: boolean; override;
+  public
+    constructor create(const aOwner: TdomDocument;
+                       const name,
+                             pubId,
+                             sysId,
+                             intSubset: UnicodeString); virtual;
+    destructor  destroy; override;
+    property entities: TdomNamedNodeMap read getEntities;
+    property internalSubset: UnicodeString read getInternalSubset;
+    property name: UnicodeString read getName;
+    property notations: TdomNamedNodeMap read getNotations;
+    property publicId: UnicodeString read getPublicId;
+    property systemId: UnicodeString read getSystemId;
+  end;
+
+  TdomNotation = class (TdomNode)
+  private
+    FPublicId: UnicodeString;
+    FSystemId: UnicodeString;
+  protected
+    function getPublicId: UnicodeString; virtual;
+    function getSystemId: UnicodeString; virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+  public
+    constructor create(const aOwner: TdomDocument;
+                       const name,
+                             pubId,
+                             sysId: UnicodeString); virtual;
+    property publicId: UnicodeString read getPublicId;
+    property systemId: UnicodeString read getSystemId;
+  end;
+
+  TdomEntity = class (TdomNode)
+  private
+    FEncoding: UnicodeString;
+    FNotationName: UnicodeString;
+    FPublicId: UnicodeString;
+    FSystemId: UnicodeString;
+    FVersion: UnicodeString;
+  protected
+    function  getNotationName: UnicodeString; virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+  public
+    constructor create(const aOwner: TdomDocument;
+                       const name,
+                             pubId,
+                             sysId,
+                             notaName: UnicodeString); virtual;
+    function insertBefore(const newChild,
+                                refChild: TdomNode): TdomNode; override;
+    function replaceChild(const newChild,
+                                oldChild: TdomNode): TdomNode; override;
+    function appendChild(const newChild: TdomNode): TdomNode; override;
+    property encoding: UnicodeString read FEncoding write FEncoding;
+    property notationName: UnicodeString read getNotationName;
+    property publicId: UnicodeString read FPublicId;
+    property systemId: UnicodeString read FSystemId;
+    property version: UnicodeString read FVersion write FVersion;
+  end;
+
+  TdomEntityReference = class (TdomNode)
+  protected
+    function expand: boolean; virtual;
+    function getCorrespondingCMEntity: TdomCMEntity; virtual;
+    function getRefersToPredefinedEntity: boolean; virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+    function validate2: boolean; override;
+  public
+    constructor create(const aOwner: TdomDocument;
+                       const name: UnicodeString); virtual;
+    function cloneNode(const deep: boolean): TdomNode; override;
+    function  resolveEntityReferences(const opt: TdomEntityResolveOption): boolean; override;
+    property correspondingCMEntity: TdomCMEntity read getCorrespondingCMEntity;
+    property refersToPredefinedEntity: boolean read getRefersToPredefinedEntity;
+  end;
+
+  TdomDocumentFragment = class (TdomNode)
+  protected
+    procedure setNodeValue(const value: UnicodeString); override;
+  public
+    constructor create(const aOwner: TdomDocument); virtual;
+  end;
+
+  TdomXPathNamespace = class (TdomNode)
+  private
+    FOwnerElement: TdomElement;
+  protected
+    function getDocument: TdomDocument; override;
+    function getOwnerElement: TdomElement; virtual;
+  public
+    constructor create(const aOwnerElement: TdomElement;
+                       const anamespaceUri,
+                             aprefix: UnicodeString); virtual;
+    property ownerElement: TdomElement read getOwnerElement;
+  end;
+
+  TdomDocument = class (TdomNode)
+  private
+    FBaseUri: UnicodeString;
+    FCMInternal: TdomCMObject;
+    FCreatedNodes: TList;
+    FCreatedNodeIterators: TList;
+    FCreatedTreeWalkers: TList;
+    FCreatedElementsNodeLists: TList;
+    FCreatedElementsNodeListNSs: TList;
+    FCreatedExpressions: TList;
+    FCreatedNSResolvers: TList;
+    FDefaultView: TdomAbstractView;
+    FDOMImpl: TDomImplementation;
+    FEncoding: UnicodeString;
+    FIDs: TdomWideStringList;
+    FModified: boolean;
+    FStandalone: UnicodeString;
+    FSystemId: UnicodeString;
+    FVersion: UnicodeString;
+    procedure findNewReferenceNodes(const nodeToRemove: TdomNode); virtual;
+  protected
+    function createEntity(const name,
+                                pubId,
+                                sysId,
+                                notaName: UnicodeString): TdomEntity; virtual;
+    function createNotation(const name,
+                                  pubId,
+                                  sysId: UnicodeString): TdomNotation; virtual;
+    procedure doAttrModified(originalTarget: TdomNode;
+                             attrChange: TdomAttrChange;
+                             prevValue,
+                             newValue: UnicodeString;
+                             relatedAttr: TdomAttr); override;
+    procedure doCharacterDataModified(originalTarget: TdomNode;
+                                      prevValue,
+                                      newValue: UnicodeString); override;
+    procedure doNodeInserted(originalTarget: TdomNode); override;
+    procedure doNodeRemoved(originalTarget: TdomNode); override;
+    function  getBaseUri: UnicodeString; override;
+    function  getDoctype: TdomDocumentType; virtual;
+    function  getDocumentElement: TdomElement; virtual;
+    procedure initDoc(const tagName: UnicodeString); virtual;
+    procedure initDocNS(const anamespaceURI,
+                              aqualifiedName: UnicodeString); virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+    function  validateIDREFS: boolean; override;
+  public
+    constructor create(const aOwner: TDomImplementation); virtual;
+    destructor destroy; override;
+    function appendChild(const newChild: TdomNode): TdomNode; override;
+    procedure clear; override;
+    procedure clearInvalidNodeIterators; virtual;
+    function createAttribute(const name: UnicodeString): TdomAttr; virtual;
+    function createAttributeNS(const anamespaceURI,
+                                     aqualifiedName: UnicodeString): TdomAttr; virtual;
+    function createCDATASection(const data: UnicodeString): TdomCDATASection; virtual;
+    function createComment(const data: UnicodeString): TdomComment; virtual;
+    function createDocumentFragment: TdomDocumentFragment; virtual;
+    function createDocumentType(const aname,
+                                      pubId,
+                                      sysId,
+                                      intSubset: UnicodeString): TdomDocumentType; virtual;
+    function createElement(const tagName: UnicodeString): TdomElement; virtual;
+    function createElementNS(const anamespaceURI,
+                                   aqualifiedName: UnicodeString): TdomElement; virtual;
+    function createEntityReference(const name: UnicodeString): TdomEntityReference; virtual;
+    function createExpression(const expression: UnicodeString;
+                              const resolver: TdomXPathNSResolver): TdomXPathExpression; virtual;
+    function createNodeIterator(const root: TdomNode;
+                                      whatToShow: TdomWhatToShow;
+                                      nodeFilter: TdomNodeFilter;
+                                      entityReferenceExpansion: boolean): TdomNodeIterator; virtual;
+    function createNSResolver(const nodeResolver: TdomNode): TdomXPathNSResolver; virtual;
+    function createProcessingInstruction(const targ,
+                                               data : UnicodeString): TdomProcessingInstruction; virtual;
+    function createTextNode(const data: UnicodeString): TdomText; virtual;
+    function createTreeWalker(const root: TdomNode;
+                                    whatToShow: TdomWhatToShow;
+                                    nodeFilter: TdomNodeFilter;
+                                    entityReferenceExpansion: boolean): TdomTreeWalker; virtual;
+    procedure freeAllNodes(var node: TdomNode); virtual;
+    procedure freeExpression(var expression: TdomXPathExpression); virtual;
+    procedure freeNSResolver(var resolver: TdomXPathNSResolver); virtual;
+    procedure freeTreeWalker(var treeWalker: TdomTreeWalker); virtual;
+    function getElementById(const elementId: UnicodeString): TdomElement; virtual;
+    function getElementsByTagName(const tagName: UnicodeString): TdomNodeList; virtual;
+    function getElementsByTagNameNS(const anamespaceURI,
+                                          alocalName: UnicodeString): TdomNodeList; virtual;
+    function importNode(const importedNode: TdomNode;
+                        const deep: boolean): TdomNode; virtual;
+    function insertBefore(const newChild,
+                                refChild: TdomNode): TdomNode; override;
+    function removeContentModel: TdomCMObject; virtual;
+    function replaceChild(const newChild,
+                                oldChild: TdomNode): TdomNode; override;
+    procedure setBaseUri(const value: UnicodeString); virtual;
+    function setContentModel(const arg: TdomCMObject): TdomCMObject; virtual;
+    function validate(const opt: TdomEntityResolveOption): boolean; virtual;
+    property contentModel: TdomCMObject read FCMInternal;
+    property defaultView: TdomAbstractView read FDefaultView;
+    property doctype: TdomDocumentType read getDoctype;
+    property documentElement: TdomElement read getDocumentElement;
+    property domImplementation: TdomImplementation read FDomImpl;
+    property encoding: UnicodeString read FEncoding write FEncoding;
+    property IDs: TdomWideStringList read FIDs;
+    property modified: boolean read FModified write FModified;
+    property standalone: UnicodeString read FStandalone write FStandalone;
+    property systemId: UnicodeString read FSystemId write FSystemId;
+    property version: UnicodeString read FVersion write FVersion;
+  end;
+
+  TdomCMNode = class;
+
+  TXmlInputSource = class;
+
+  TdomSeverity = (DOM_SEVERITY_WARNING,
+                  DOM_SEVERITY_ERROR,
+                  DOM_SEVERITY_FATAL_ERROR);
+
+  TdomError = class
+  protected
+    FCode:       UnicodeString;
+    FLanguage: TIso639LanguageCode;
+    FLocation: TdomLocator;
+    FRelatedException: TXmlErrorType;
+    FSupportedLanguages: TIso639LanguageCodeSet;
+    function getDutchErrorStr: UnicodeString; virtual;
+    function getEnglishErrorStr: UnicodeString; virtual;
+    function getFrenchErrorStr: UnicodeString; virtual;
+    function getGermanErrorStr: UnicodeString; virtual;
+    function getItalianErrorStr: UnicodeString; virtual;
+    function getPolishErrorStr: UnicodeString; virtual;
+    function getPortugueseErrorStr: UnicodeString; virtual;
+    function getSpanishErrorStr: UnicodeString; virtual;
+    procedure setLanguage(const value: TIso639LanguageCode); virtual;
+    function getMessage: UnicodeString; virtual;
+    function getSeverity: TdomSeverity; virtual;
+  public
+    constructor create(const errorType: TXmlErrorType;
+                       const startLine,
+                             startColumn,
+                             endLine,
+                             endColumn,
+                             offs: integer;
+                       const uriStr: UnicodeString;
+                       const rCMNode: TdomCMNode;
+                       const rNode: TdomNode;
+                       const code: UnicodeString); virtual;
+    constructor createFromLocator(const errorType: TXmlErrorType;
+                                  const location: TdomLocator;
+                                  const code: UnicodeString); virtual;
+    destructor destroy; override;
+    property code: UnicodeString read FCode;
+    property language: TIso639LanguageCode read FLanguage write setLanguage default iso639_en;
+    property location: TdomLocator read FLocation;
+    property relatedException: TXmlErrorType read FRelatedException;
+    property message: UnicodeString read getMessage;
+    property severity: TdomSeverity read getSeverity;
+    property supportedLanguages: TIso639LanguageCodeSet read FSupportedLanguages;
+  end;
+
+  TdomLocator = class
+  protected
+    FColumnNumber:      integer;
+    FOffset:            integer;
+    FStartColumnNumber: integer;
+    FStartLineNumber:   integer;
+    FLineNumber:        integer;
+    FRelatedCMNode:     TdomCMNode;
+    FRelatedNode:       TdomNode;
+    FUri:               UnicodeString;
+    function getColumnNumber: integer; virtual;
+    function getLineNumber: integer; virtual;
+    function getOffset: integer; virtual;
+    function getRelatedCMNode: TdomCMNode; virtual;
+    function getRelatedNode: TdomNode; virtual;
+    function getStartColumnNumber: integer; virtual;
+    function getStartLineNumber: integer; virtual;
+    function getUri: UnicodeString; virtual;
+  public
+    constructor create(const startLine,
+                             startColumn,
+                             endLine,
+                             endColumn,
+                             offset: integer;
+                       const uri: UnicodeString;
+                       const rCMNode: TdomCMNode;
+                       const rNode: TdomNode);
+    property columnNumber: integer read getColumnNumber;
+    property lineNumber: integer read getLineNumber;
+    property offset: integer read getOffset;
+    property relatedCMNode: TdomCMNode read getRelatedCMNode;
+    property relatedNode: TdomNode read getRelatedNode;
+    property startColumnNumber: integer read getStartColumnNumber;
+    property startLineNumber: integer read getStartLineNumber;
+    property uri: UnicodeString read getUri;
+  end;
+
+  TdomInputSourceLocator = class(TdomLocator)
+  protected
+    FInputSource: TXmlInputSource;
+    FTabWidth: integer;
+    function getOffset: integer; override;
+    function getUri: UnicodeString; override;
+    procedure evaluate(const s: WideChar); virtual;
+    procedure setStartMark; virtual; // This procedure is called by a Content Handler
+                                     // to indicate that the properties startLineNumber
+                                     // and startColumnNumber shall be set to the current
+                                     // lineNumber and columnNumber.
+  public
+    constructor create(const inputSource: TXmlInputSource;
+                       const startLine,
+                             startColumn,
+                             endLine,
+                             endColumn,
+                             tabWidthValue: integer); virtual;
+    property tabWidth: integer read FTabWidth;
+  end;
+
+// Abstract Schema
+
+  TdomASConstraintType = (AS_NO_VALUE_CONSTRAINT,
+                          AS_DEFAULT_VALUE_CONSTRAINT,
+                          AS_FIXED_VALUE_CONSTRAINT);
+
+  TdomASContentType = (AS_EMPTY,
+                       AS_ANY,
+                       AS_MIXED,
+                       AS_ELEMENTS);
+
+  TdomASDataType = (AS_STRING_DATATYPE,
+                    AS_BOOLEAN_DATATYPE,
+                    AS_FLOAT_DATATYPE,
+                    AS_DOUBLE_DATATYPE,
+                    AS_DECIMAL_DATATYPE,
+                    AS_HEXBINARY_DATATYPE,
+                    AS_BASE64BINARY_DATATYPE,
+                    AS_ANYURI_DATATYPE,
+                    AS_QNAME_DATATYPE,
+                    AS_DURATION_DATATYPE,
+                    AS_DATETIME_DATATYPE,
+                    AS_DATE_DATATYPE,
+                    AS_TIME_DATATYPE,
+                    AS_YEARMONTH_DATATYPE,
+                    AS_YEAR_DATATYPE,
+                    AS_MONTHDAY_DATATYPE,
+                    AS_DAY_DATATYPE,
+                    AS_MONTH_DATATYPE,
+                    AS_NOTATION_DATATYPE,
+                    AS_ID_DATATYPE,
+                    AS_IDREF_DATATYPE,
+                    AS_IDREFS_DATATYPE,
+                    AS_ENTITY_DATATYPE,
+                    AS_ENTITIES_DATATYPE,
+                    AS_NMTOKEN_DATATYPE,
+                    AS_NMTOKENS_DATATYPE,
+                    AS_SIMPLE_DATATYPE,
+                    AS_DERIVED_DATATYPE,
+                    AS_COMPLEX_DATATYPE);
+
+  TdomASEntityType = (AS_INTERNAL_ENTITY,
+                      AS_EXTERNAL_ENTITY);
+
+  TdomASListOperator = (AS_SEQUENCE,
+                        AS_CHOICE,
+                        AS_NONE);
+
+  TdomASModelType = (AS_EXTERNAL_SUBSET,
+                     AS_INTERNAL_SUBSET,
+                     AS_NOT_USED);
+
+  TdomASObjectType = (AS_UNKNOWN,
+                      AS_ATTRIBUTE_DECLARATION,
+                      AS_CONTENTMODEL,
+                      AS_ELEMENT_DECLARATION,
+                      AS_ENTITY_DECLARATION,
+                      AS_MODEL,
+                      AS_NOTATION_DECLARATION);
+
+  TdomASObjectTypeSet = set of TdomASObjectType;
+
+  TdomASModel = class;
+
+  TdomASObject = class
+  protected
+    FASObjectName: UnicodeString;
+    FASObjectType: TdomASObjectType;
+    FInuse: boolean;
+    FLocalName: UnicodeString;
+    FNamespaceURI: UnicodeString;
+    FOwnerAsModel: TdomASModel;
+    FPrefix: UnicodeString;
+    procedure setPrefix(const value: UnicodeString); virtual;
+  public
+    constructor create(const aOwner: TdomASModel);
+    property ASObjectName: UnicodeString read FASObjectName;
+    property ASObjectType: TdomASObjectType read FASObjectType;
+    property localName:    UnicodeString read FLocalName;
+    property namespaceURI: UnicodeString read FNamespaceURI;
+    property ownerASModel: TdomASModel read FOwnerAsModel;
+    property prefix:       UnicodeString read FPrefix write setPrefix;
+  end;
+
+  TdomASObjectList = class
+  private
+    FNodeList: TList;
+  protected
+    procedure clear;
+    function appendASNode(const newNode: TdomASObject): TdomASObject; virtual;
+    procedure Delete(const index: integer); virtual;
+    function indexOf(const node: TdomASObject): integer; virtual;
+    function insertBefore(const newNode,
+                                refNode: TdomASObject): TdomASObject; virtual;
+    function getLength: integer; virtual;
+    function removeASNode(const oldNode: TdomASObject): TdomASObject; virtual;
+  public
+    constructor create;
+    destructor destroy; override;
+    function item(const index: integer): TdomASObject; virtual;
+    property length: integer read getLength;
+  end;
+
+  TdomASNamedObjectMap = class
+  protected
+    FNamespaceAware: boolean;
+    FNodeList: TList;
+    FOwnerAsModel: TdomASModel;
+    function getLength: integer; virtual;
+    function removeNamedItem(const name: UnicodeString): TdomASObject; virtual;
+    function removeNamedItemNS(const namespaceURI,
+                                     localName: UnicodeString): TdomASObject; virtual;
+    function setNamedItem(const arg: TdomASObject): TdomASObject; virtual;
+    function setNamedItemNS(const arg: TdomASObject): TdomASObject; virtual;
+  public
+    constructor create(const aOwner: TdomASModel;
+                       const namespaceAware: boolean);
+    destructor destroy; override;
+    function getNamedItem(const name: UnicodeString): TdomASObject; virtual;
+    function getNamedItemNS(const namespaceURI,
+                                  localName: UnicodeString): TdomASObject; virtual;
+    function item(const index: integer): TdomASObject; virtual;
+    property length: integer read getLength;
+    property isNamespaceAware: boolean read FNamespaceAware;
+    property ownerASModel: TdomASModel read FOwnerAsModel;
+  end;
+
+  TdomASAttributeDeclaration = class(TdomASObject)
+  private
+    FAttrType: TdomASDataType;
+    FAttrValue: UnicodeString;
+    FConstraintType: TdomASConstraintType;
+    FEnumAttr: TdomWideStringList;
+    function getIsNamespaceAware: boolean;
+  public
+    constructor create(const aOwner: TdomASModel;
+                       const name: UnicodeString);
+    constructor createNS(const aOwner: TdomASModel;
+                         const anamespaceURI,
+                               qualifiedName: UnicodeString);
+    destructor destroy; override;
+    property attrType: TdomASDataType read FAttrType write FAttrType default AS_STRING_DATATYPE;
+    property attrValue: UnicodeString read FAttrValue write FAttrValue;
+    property constraintType: TdomASConstraintType read FConstraintType write FConstraintType default AS_NO_VALUE_CONSTRAINT;
+    property enumAttr: TdomWideStringList read FEnumAttr;
+    property isNamespaceAware: boolean read getIsNamespaceAware;
+  end;
+
+  TdomASContentModel = class(TdomASObject)
+  protected
+    FListOperator: TdomASListOperator;
+    FMaxOccurs: integer;
+    FMinOccurs: integer;
+    FSubModels: TdomASObjectList;
+  public
+    constructor create(const aOwner: TdomASModel);
+    destructor destroy; override;
+    function appendASNode(const newNode: TdomASObject): TdomASObject; virtual;
+    function insertBefore(const newNode,
+                                refNode: TdomASObject): TdomASObject; virtual;
+    function removeASNode(const oldNode: TdomASObject): TdomASObject; virtual;
+    property listOperator: TdomASListOperator read FListOperator write FListOperator default AS_CHOICE;
+    property maxOccurs: integer read FMaxOccurs write FMaxOccurs default AS_UNBOUND;
+    property minOccurs: integer read FMinOccurs write FMinOccurs default 0;
+    property subModels: TdomASObjectList read FSubModels;
+  end;
+
+  TdomASElementDeclaration = class(TdomASObject)
+  protected
+    FAttributeDeclarations: TdomASNamedObjectMap;
+    FContentModel: TdomASContentModel;
+    FContentType: TdomASContentType;
+    FElementType: TdomASDataType;
+    FIsPCDataOnly: boolean;
+    FStrictMixedContent: boolean;
+    function getIsNamespaceAware: boolean;
+  public
+    constructor create(const aOwner: TdomASModel;
+                       const name: UnicodeString);
+    constructor createNS(const aOwner: TdomASModel;
+                         const anamespaceURI,
+                               qualifiedName: UnicodeString);
+    destructor destroy; override;
+    function addASAttributeDecl(const arg: TdomASAttributeDeclaration): boolean; virtual;
+    function removeASAttributeDeclaration(const arg: TdomASAttributeDeclaration): TdomASAttributeDeclaration; virtual;
+    property attributeDecls: TdomASNamedObjectMap read FAttributeDeclarations;
+    property contentModel: TdomASContentModel read FContentModel;
+    property contentType: TdomASContentType read FContentType write FContentType default AS_MIXED;
+    property elementType: TdomASDataType read FElementType write FElementType default AS_STRING_DATATYPE;
+    property isNamespaceAware: boolean read getIsNamespaceAware;
+    property isPCDataOnly: boolean read FIsPCDataOnly write FIsPCDataOnly default false;
+    property strictMixedContent: boolean read FStrictMixedContent write FStrictMixedContent default false;
+  end;
+
+  TdomASEntityDeclaration = class(TdomASObject)
+  protected
+    FEntityType: TdomASEntityType;
+    FPublicId: UnicodeString;
+    FEntityValue: UnicodeString;
+    FSystemId: UnicodeString;
+    FNotationName: UnicodeString;
+  public
+    constructor create(const aOwner: TdomASModel;
+                       const name: UnicodeString);
+    property entityType: TdomASEntityType read FEntityType write FEntityType default AS_INTERNAL_ENTITY;
+    property entityValue: UnicodeString read FEntityValue write FEntityValue;
+    property notationName: UnicodeString read FNotationName write FNotationName;
+    property publicId: UnicodeString read FPublicId write FPublicId;
+    property systemId: UnicodeString read FSystemId write FSystemId;
+  end;
+
+  TdomASNotationDeclaration = class(TdomASObject)
+  protected
+    FNotationName: UnicodeString;
+    FPublicId: UnicodeString;
+    FSystemId: UnicodeString;
+  public
+    constructor create(const aOwner: TdomASModel;
+                       const name,
+                             pubId,
+                             sysId: UnicodeString);
+    constructor createNS(const aOwner: TdomASModel;
+                         const anamespaceURI,
+                               qualifiedName,
+                               pubId,
+                               sysId: UnicodeString);
+    property publicId: UnicodeString read FPublicId;
+    property systemId: UnicodeString read FSystemId;
+  end;
+
+  TdomASModel = class (TdomASObject)
+  protected
+    FAttributeDeclarations: TdomASNamedObjectMap;
+    FContentModelDeclarations: TdomASNamedObjectMap;
+    FCreatedASNodes: TdomASObjectList;
+    FDomImpl: TDomImplementation;
+    FElementDeclarations: TdomASNamedObjectMap;
+    FEntityDeclarations: TdomASNamedObjectMap;
+    FNamespaceAware: boolean;
+    FNotationDeclarations: TdomASNamedObjectMap;
+    FHint: UnicodeString;
+    FLocation: UnicodeString;
+    FUsage: TdomASModelType;
+    function getContainer: boolean; virtual;
+  public
+    constructor create(const aOwner: TDomImplementation;
+                       const namespaceAware: boolean); virtual;
+    destructor destroy; override;
+    function addNamedASElementDeclaration(const arg: TdomASElementDeclaration): boolean; virtual;
+    function addNamedASEntityDeclaration(const arg: TdomASEntityDeclaration): boolean; virtual;
+    function addNamedASNotationDeclaration(const arg: TdomASNotationDeclaration): boolean; virtual;
+    procedure clear; virtual;
+    function createASAttributeDeclaration(const anamespaceURI,
+                                                qualifiedName: UnicodeString): TdomASAttributeDeclaration;
+    function createASContentModel: TdomASContentModel;
+    function createASElementDeclaration(const anamespaceURI,
+                                              qualifiedName: UnicodeString): TdomASElementDeclaration;
+    function createASEntityDeclaration(const name: UnicodeString): TdomASEntityDeclaration;
+    function createASNotationDeclaration(const name,
+                                               pubId,
+                                               sysId: UnicodeString): TdomASNotationDeclaration;
+    procedure freeAllASObjects(var obj: TdomASObject); virtual;
+    function getNamedASElementDeclaration(const anamespaceURI,
+                                                name: UnicodeString): TdomASElementDeclaration; virtual;
+    function getNamedASEntityDeclaration(const name: UnicodeString): TdomASEntityDeclaration; virtual;
+    function getNamedASNotationDeclaration(const anamespaceURI,
+                                                 name: UnicodeString): TdomASNotationDeclaration; virtual;
+    function removeNamedASElementDeclaration(const anamespaceURI,
+                                                   name: UnicodeString): TdomASElementDeclaration; virtual;
+    function removeNamedASEntityDeclaration(const name: UnicodeString): TdomASEntityDeclaration; virtual;
+    function removeNamedASNotationDeclaration(const anamespaceURI,
+                                                    name: UnicodeString): TdomASNotationDeclaration; virtual;
+    property attributeDecls: TdomASNamedObjectMap read FAttributeDeclarations;
+    property container: boolean read getContainer;
+    property contentModelDecls: TdomASNamedObjectMap read FContentModelDeclarations;
+    property elementDecls: TdomASNamedObjectMap read FElementDeclarations;
+    property entityDecls: TdomASNamedObjectMap read FEntityDeclarations;
+    property hint: UnicodeString read FHint write FHint;
+    property isNamespaceAware: boolean read FNamespaceAware;
+    property location: UnicodeString read FLocation write FLocation;
+    property notationDecls: TdomASNamedObjectMap read FNotationDeclarations;
+    property usage: TdomASModelType read FUsage;
+  end;
+
+// Content Model
+
+  TdomCMNodeType = (ctUnknown,
+                    ctProcessingInstruction,
+                    ctComment,
+                    ctObject,
+                    ctFragment,
+                    ctExternalObject,
+                    ctInternalObject,
+                    ctAttribute,
+                    ctNotation,
+                    ctEntity,
+                    ctParameterEntityReference,
+                    ctEntityDeclaration,
+                    ctParameterEntityDeclaration,
+                    ctElementTypeDeclaration,
+                    ctSequenceParticle,
+                    ctChoiceParticle,
+                    ctPcdataChoiceParticle,
+                    ctElementParticle,
+                    ctAttributeList,
+                    ctAttributeDefinition,
+                    ctNotationDeclaration,
+                    ctNameParticle,
+                    ctNmtokenParticle);
+
+  TdomCMNodeTypeSet = set of TdomCMNodeType;
+
+  TdomCustomCMObject = class;
+  TdomCMParameterEntityReference = class;
+  TdomCMEntityDeclaration = class;
+  TdomCMElementParticle = class;
+  TdomCMNameParticle = class;
+  TdomCMNmtokenParticle = class;
+  TdomCMElementTypeDeclaration = class;
+  TdomCMParameterEntityDeclaration = class;
+  TdomCMFragment = class;
+  TdomCMNotationDeclaration = class;
+  TdomCMAttrDefinition = class;
+  TdomCMAttrList = class;
+  TdomCMChoiceParticle = class;
+  TdomCMAttribute = class;
+  TdomCMNotation = class;
+  TdomCMPcdataChoiceParticle = class;
+  TdomCMSequenceParticle = class;
+
+  TdomCMNodeList = class
+  private
+    FCMNodeList: TList;
+    function getLength: integer; virtual;
+  protected
+    function indexOf(const node: TdomCMNode): integer; virtual;
+  public
+    function item(const index: integer): TdomCMNode; virtual;
+    constructor create(const CMNodeList: TList);
+    property length: integer read getLength;
+  end;
+
+  TdomNamedCMNodeMap = class(TdomCMNodeList)
+  private
+    FOwner: TdomCMNode;     // The owner content model.
+    FOwnerNode: TdomCMNode; // The node to which the map is attached to.
+    FIsReadonly: boolean;
+    function getOwnerNode: TdomCMNode; virtual;
+  protected
+    FAllowedNodeTypes: TDomCMNodeTypeSet;
+    function getNamedIndex(const name: UnicodeString): integer; virtual;
+    function removeItem(const arg: TdomCMNode): TdomCMNode; virtual;
+    procedure setIsReadonly(const value: boolean); virtual;
+  public
+    constructor create(const aOwner,
+                             aOwnerNode: TdomCMNode;
+                       const nodeList: TList;
+                       const allowedNTs: TDomCMNodeTypeSet); virtual;
+    function getNamedItem(const name: UnicodeString): TdomCMNode; virtual;
+    function setNamedItem(const arg: TdomCMNode): TdomCMNode; virtual;
+    function removeNamedItem(const name: UnicodeString): TdomCMNode; virtual;
+    property isReadonly: boolean read FIsReadonly;
+    property ownerNode: TdomCMNode read getOwnerNode;
+  end;
+
+  TdomNamedCMAttributeMap = class
+  private
+    FOwner: TdomCMObject;     // The owner document.
+    FCMAttributesList: TList;
+    function getLength: integer; virtual;
+  public
+    constructor create(const aOwner: TdomCMObject);
+    destructor destroy; override;
+    function item(const index: integer): TdomCMAttribute; virtual;
+    function getNamedItem(const elementName,
+                                attributeName: UnicodeString): TdomCMAttribute; virtual;
+    function appendNamedItem(const arg: TdomCMAttribute): boolean; virtual;
+    function removeLastItem: TdomCMAttribute; virtual;
+    property length: integer read getLength;
+    property ownerContentModel: TdomCMObject read FOwner;
+  end;
+
+  TdomNamedCMEntityMap = class
+  private
+    FOwner: TdomCMObject;     // The owner document.
+    FCMEntitiesList: TList;
+    function getLength: integer; virtual;
+  public
+    constructor create(const aOwner: TdomCMObject);
+    destructor destroy; override;
+    function item(const index: integer): TdomCMEntity; virtual;
+    function getNamedItem(const name: UnicodeString): TdomCMEntity; virtual;
+    function appendNamedItem(const arg: TdomCMEntity): boolean; virtual;
+    function removeLastItem: TdomCMEntity; virtual;
+    property length: integer read getLength;
+    property ownerContentModel: TdomCMObject read FOwner;
+  end;
+
+  TdomCMNode = class
+  private
+    FNodeName: UnicodeString;
+    FNodeValue: UnicodeString;
+    FNodeType: TdomCMNodeType;
+    FCMNodeList: TdomCMNodeList;
+    FCMNodeListing: TList;
+    FCMObject: TdomCustomCMObject;
+    FParentNode: TdomCMNode;
+    FIsReadonly: boolean;
+    function getCMNodeType: TdomCMNodeType; virtual;
+    function getCMObject: TdomCustomCMObject; virtual;
+    function getParentNode: TdomCMNode; virtual;
+    function getChildNodes: TdomCMNodeList; virtual;
+    function getFirstChild: TdomCMNode; virtual;
+    function getLastChild: TdomCMNode; virtual;
+    function getNextSibling: TdomCMNode; virtual;
+    function getNodeName: UnicodeString; virtual;
+    function getNodeValue: UnicodeString; virtual;
+    function getPreviousSibling: TdomCMNode; virtual;
+    procedure makeChildrenReadonly; virtual;
+    procedure setNodeValue(const value: UnicodeString); virtual;
+  protected
+    FAllowedChildTypes: set of TDomCMNodeType;
+    function sendErrorNotification(const xmlErrorType: TXmlErrorType;
+                                   const relCMNode: TdomCMNode): boolean; virtual;
+    procedure setIsReadonly(const value: boolean); virtual;
+    function validate: boolean; virtual;
+  public
+    constructor create(const aOwner: TdomCustomCMObject);
+    destructor destroy; override;
+    procedure clear; virtual;
+    function insertBefore(const newChild,
+                                refChild: TdomCMNode): TdomCMNode; virtual;
+    function replaceChild(const newChild,
+                                oldChild: TdomCMNode): TdomCMNode; virtual;
+    function removeChild(const oldChild: TdomCMNode): TdomCMNode; virtual;
+    function appendChild(const newChild: TdomCMNode): TdomCMNode; virtual;
+    function hasChildNodes: boolean; virtual;
+    function cloneNode(const deep: boolean): TdomCMNode; virtual;
+    function isAncestor(const ancestorNode: TdomCMNode): boolean; virtual;
+    property childNodes:      TdomCMNodeList     read getChildNodes;
+    property firstChild:      TdomCMNode         read getFirstChild;
+    property isReadonly:      boolean            read FIsReadonly;
+    property lastChild:       TdomCMNode         read getLastChild;
+    property nextSibling:     TdomCMNode         read getNextSibling;
+    property nodeName:        UnicodeString         read getNodeName;
+    property nodeType:        TdomCMNodeType     read getCMNodeType;
+    property nodeValue:       UnicodeString         read getNodeValue write setNodeValue;
+    property ownerCMObject:   TdomCustomCMObject read getCMObject;
+    property parentNode:      TdomCMNode         read getParentNode;
+    property previousSibling: TdomCMNode         read getPreviousSibling;
+  end;
+
+  TdomCMComment = class (TdomCMNode)
+  private
+    function getData: UnicodeString; virtual;
+    procedure setData(const value: UnicodeString); virtual;
+    function getLength: integer; virtual;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject); virtual;
+    function substringData(const offset,
+                                 count: integer):UnicodeString; virtual;
+    procedure appendData(const arg: UnicodeString); virtual;
+    procedure insertData(const offset: integer;
+                         const arg: UnicodeString); virtual;
+    procedure deleteData(const offset,
+                               count: integer); virtual;
+    procedure replaceData(const offset,
+                                count: integer;
+                          const arg: UnicodeString); virtual;
+    property data: UnicodeString read getData write setData;
+    property length: integer read getLength;
+  end;
+
+  TdomCMProcessingInstruction = class (TdomCMNode)
+  private
+    function getTarget: UnicodeString; virtual;
+    function getData: UnicodeString; virtual;
+    procedure setData(const value: UnicodeString); virtual;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const targ: UnicodeString); virtual;
+    property target: UnicodeString read getTarget;
+    property data: UnicodeString read getData write setData;
+  end;
+
+  TdomCustomCMObject = class (TdomCMNode)
+  private
+    FCreatedNodes: TList;
+    FDomImpl: TDomImplementation;
+    FSystemId: UnicodeString;
+    procedure setNodeValue(const value: UnicodeString); override;
+  protected
+    function duplicateCMNode(const node: TdomCMNode): TdomCMNode; virtual;
+  public
+    constructor create(const aOwner: TdomImplementation;
+                       const sysId: UnicodeString);
+    destructor destroy; override;
+    function createCMAttributeDefinition(const name,
+                                               attType,
+                                               defaultDecl,
+                                               attValue: UnicodeString) : TdomCMAttrDefinition; virtual;
+    function createCMAttributeList(const name: UnicodeString): TdomCMAttrList; virtual;
+    function createCMChoiceParticle(const freq: UnicodeString): TdomCMChoiceParticle; virtual;
+    function createCMComment(const data: UnicodeString): TdomCMComment; virtual;
+    function createCMElementParticle(const name,
+                                           freq: UnicodeString): TdomCMElementParticle; virtual;
+    function createCMElementTypeDeclaration(const name: UnicodeString;
+                                            const ContspecType: TdomContentspecType): TdomCMElementTypeDeclaration; virtual;
+    function createCMExtEntityDeclaration(const name,
+                                                pubId,
+                                                sysId: UnicodeString): TdomCMEntityDeclaration; virtual;
+    function createCMExtParameterEntityDeclaration(const name,
+                                                         pubId,
+                                                         sysId: UnicodeString): TdomCMParameterEntityDeclaration; virtual;
+    function createCMExtUnparsedEntityDeclaration(const name,
+                                                        pubId,
+                                                        sysId,
+                                                        notaName: UnicodeString): TdomCMEntityDeclaration; virtual;
+    function createCMFragment: TdomCMFragment; virtual;
+    function createCMIntEntityDeclaration(const name,
+                                                entityValue: UnicodeString): TdomCMEntityDeclaration; virtual;
+    function createCMIntParameterEntityDeclaration(const name,
+                                                         entityValue: UnicodeString): TdomCMParameterEntityDeclaration; virtual;
+    function createCMNameParticle(const name: UnicodeString): TdomCMNameParticle; virtual;
+    function createCMNmtokenParticle(const name: UnicodeString): TdomCMNmtokenParticle; virtual;
+    function createCMNotationDeclaration(const name,
+                                               pubId,
+                                               sysId: UnicodeString): TdomCMNotationDeclaration; virtual;
+    function createCMParameterEntityReference(const name: UnicodeString): TdomCMParameterEntityReference; virtual;
+    function createCMPcdataChoiceParticle: TdomCMPcdataChoiceParticle; virtual;
+    function createCMProcessingInstruction(const targ,
+                                                 data : UnicodeString): TdomCMProcessingInstruction; virtual;
+    function createCMSequenceParticle(const freq: UnicodeString): TdomCMSequenceParticle; virtual;
+    procedure freeAllCMNodes(var CMNode: TdomCMNode); virtual;
+    procedure getValueOfPE(const name: UnicodeString;
+                             var value: UnicodeString;
+                             var error: TXmlErrorType); virtual;
+    function hasPEDeclaration(const name: UnicodeString): boolean; virtual;
+    property domImplementation: TdomImplementation read FDomImpl;
+    property systemId: UnicodeString read FSystemId write FSystemId;
+  end;
+
+  TdomCMObject = class (TdomCustomCMObject)
+  private
+    FAssociatedDocument: TdomDocument;
+    FAttributesList: TdomNamedCMAttributeMap;
+    FCMExternal: TdomCMExternalObject;
+    FCMInternal: TdomCMInternalObject;
+    FEntitiesList: TdomNamedCMEntityMap;
+    FNotationsList: TdomNamedCMNodeMap;
+    FNotationsListing: TList;
+    FElementTypesList: TdomNamedCMNodeMap;
+    FElementTypesListing: TList;
+    procedure clearAttributes;
+    procedure clearElementTypes;
+    procedure clearEntities;
+    procedure clearNotations;
+  protected
+    function createCMAttribute(const elementName,
+                                     attributeName,
+                                     attType,
+                                     defaultDecl,
+                                     attValue: UnicodeString): TdomCMAttribute; virtual;
+    function createCMExtParsedEntity(const name,
+                                           pubId,
+                                           sysId: UnicodeString): TdomCMEntity; virtual;
+    function createCMExtUnparsedEntity(const name,
+                                             pubId,
+                                             sysId,
+                                             notaName: UnicodeString): TdomCMEntity; virtual;
+    function createCMIntEntity(const name,
+                                     literalValue: UnicodeString): TdomCMEntity; virtual;
+    function createCMNotation(const name,
+                                    pubId,
+                                    sysId: UnicodeString): TdomCMNotation; virtual;
+    function duplicateCMNode(const node: TdomCMNode): TdomCMNode; override;
+    function prepareCM: boolean; virtual;
+    function setPredefinedEntities: boolean; virtual;
+  public
+    constructor create(const aOwner: TdomImplementation;
+                       const sysId: UnicodeString); virtual;
+    destructor destroy; override;
+    procedure clear; override;
+    function prepare: boolean; virtual;
+    function removeExternalCM: TdomCMExternalObject; virtual;
+    function removeInternalCM: TdomCMInternalObject; virtual;
+    function setExternalCM(const arg: TdomCMExternalObject): TdomCMExternalObject; virtual;
+    function setInternalCM(const arg: TdomCMInternalObject): TdomCMInternalObject; virtual;
+    function validate: boolean; override;
+    property associatedDocument: TdomDocument read FAssociatedDocument;
+    property attributes: TdomNamedCMAttributeMap read FAttributesList;
+    property elementTypes: TdomNamedCMNodeMap read FElementTypesList;
+    property entities: TdomNamedCMEntityMap read FEntitiesList;
+    property externalCM: TdomCMExternalObject read FCMExternal;
+    property internalCM: TdomCMInternalObject read FCMInternal;
+    property notations: TdomNamedCMNodeMap read FNotationsList;
+  end;
+
+  TdomCustomCMIEObject = class (TdomCustomCMObject)
+  protected
+    FAssociatedContentModel: TdomCMObject;
+    FPublicId: UnicodeString;
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomImplementation;
+                       const pubId,
+                             sysId: UnicodeString);
+    property associatedContentModel: TdomCMObject read FAssociatedContentModel;
+    property publicId: UnicodeString read FPublicId write FPublicId;
+  end;
+
+  TdomCMInternalObject = class (TdomCustomCMIEObject)
+  public
+    constructor create(const aOwner: TdomImplementation;
+                       const pubId,
+                             sysId: UnicodeString);
+  end;
+
+  TdomCMExternalObject = class (TdomCustomCMIEObject)
+  protected
+    FEncoding: UnicodeString;
+    FVersion: UnicodeString;
+  public
+    constructor create(const aOwner: TdomImplementation;
+                       const pubId,
+                             sysId: UnicodeString);
+    property encoding: UnicodeString read FEncoding write FEncoding;
+    property version: UnicodeString read FVersion write FVersion;
+  end;
+
+  TdomCMNotationDeclaration = class (TdomCMNode)
+  private
+    FPublicId: UnicodeString;
+    FSystemId: UnicodeString;
+    function getPublicId: UnicodeString; virtual;
+    function getSystemId: UnicodeString; virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name,
+                             pubId,
+                             sysId: UnicodeString); virtual;
+    property publicId: UnicodeString read getPublicId;
+    property systemId: UnicodeString read getSystemId;
+  end;
+
+  TdomCMElementTypeDeclaration = class (TdomCMNode)
+  private
+    FContentspec: TdomContentspecType;
+    function getContentspec: UnicodeString; virtual;
+    function getContentspecType: TdomContentspecType; virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name: UnicodeString;
+                       const contspecType: TdomContentspecType); virtual;
+    function appendChild(const newChild: TdomCMNode): TdomCMNode; override;
+    function insertBefore(const newChild,
+                                refChild: TdomCMNode): TdomCMNode; override;
+    property contentspec: UnicodeString read getContentspec;
+    property contentspecType: TdomContentspecType read getContentspecType;
+  end;
+
+  TdomCMAttrList = class(TdomCMNode)
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name: UnicodeString); virtual;
+  end;
+
+  TdomCMAttrDefinition = class(TdomCMNode)
+  private
+    FAttributeType: UnicodeString;
+    FDefaultDeclaration: UnicodeString;
+    FParentAttributeList: TdomCMAttrList;
+    function getAttributeType: UnicodeString; virtual;
+    function getDefaultDeclaration: UnicodeString; virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name,
+                             attType,
+                             defaultDecl,
+                             attValue: UnicodeString); virtual;
+    property attributeType: UnicodeString read getAttributeType;
+    property defaultDeclaration: UnicodeString read getDefaultDeclaration;
+  end;
+
+  TdomCMParticle = class (TdomCMNode)
+  private
+    FFrequency: UnicodeString;
+    function contentModelTest2(const source,
+                                     rest: TdomWideStringList;
+                               const freq: UnicodeString;
+                                 var isNonDeterministic: boolean): boolean; virtual;
+    function contentModelTest(const source,
+                                    rest: TdomWideStringList;
+                                var isNonDeterministic: boolean): boolean; virtual;
+    function  getFrequency: UnicodeString; virtual;
+    procedure setFrequency(const freq: UnicodeString); virtual;
+    procedure setNodeValue(const value: UnicodeString); override;
+    procedure writeCode(stream: TStream); virtual; abstract;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const freq: UnicodeString);
+    property frequency: UnicodeString read getFrequency;
+  end;
+
+  TdomCMSequenceParticle = class (TdomCMParticle)
+  private
+    function contentModelTest2(const source,
+                                     rest: TdomWideStringList;
+                               const freq: UnicodeString;
+                                 var isNonDeterministic: boolean): boolean; override;
+    procedure writeCode(stream: TStream); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const freq: UnicodeString); virtual;
+  end;
+
+  TdomCMChoiceParticle = class (TdomCMParticle)
+  private
+    function contentModelTest2(const source,
+                                     rest: TdomWideStringList;
+                               const freq: UnicodeString;
+                                 var isNonDeterministic: boolean): boolean; override;
+    procedure writeCode(stream: TStream); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const freq: UnicodeString); virtual;
+  end;
+
+  TdomCMPcdataChoiceParticle = class (TdomCMParticle)
+  private
+    function contentModelTest(const source,
+                                    rest: TdomWideStringList;
+                                var isNonDeterministic: boolean): boolean; override;
+    procedure setFrequency(const freq: UnicodeString); override;
+    procedure writeCode(stream: TStream); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const freq: UnicodeString); virtual;
+    function elementDefined(const elementName: UnicodeString): boolean;
+  end;
+
+  TdomCMElementParticle = class (TdomCMParticle)
+  private
+    function contentModelTest2(const source,
+                                     rest: TdomWideStringList;
+                               const freq: UnicodeString;
+                                 var isNonDeterministic: boolean): boolean; override;
+    procedure writeCode(stream: TStream); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name,
+                             freq: UnicodeString); virtual;
+  end;
+
+  TdomCMNameParticle = class (TdomCMNode)
+  private
+    procedure setNodeValue(const value: UnicodeString); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name: UnicodeString); virtual;
+  end;
+
+  TdomCMNmtokenParticle = class (TdomCMNode)
+  private
+    procedure setNodeValue(const value: UnicodeString); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name: UnicodeString); virtual;
+  end;
+
+  TdomCMAttribute = class (TdomCMNode)
+  private
+    FAttributeName: UnicodeString;
+    FAttributeType: UnicodeString;
+    FDefaultDeclaration: UnicodeString;
+    FElementName: UnicodeString;
+    procedure setNodeValue(const value: UnicodeString); override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const elementName,
+                             attributeName,
+                             attType,
+                             defaultDecl,
+                             attValue: UnicodeString); virtual;
+    property attributeName: UnicodeString read FAttributeName;
+    property attributeType: UnicodeString read FAttributeType;
+    property defaultDeclaration: UnicodeString read FDefaultDeclaration;
+    property elementName: UnicodeString read FElementName;
+  end;
+
+  TdomCMNotation = class (TdomCMNode)
+  private
+    FPublicId: UnicodeString;
+    FSystemId: UnicodeString;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name,
+                             pubId,
+                             sysId: UnicodeString); virtual;
+    property publicId: UnicodeString read FPublicId;
+    property systemId: UnicodeString read FSystemId;
+  end;
+
+  TdomCMEntity = class (TdomCMNode)
+  private
+    FEncoding: UnicodeString;
+    FEntityType: TdomEntityType;
+    FIsParsedEntity: boolean;
+    FLiteralValue: UnicodeString;
+    FNotationName: UnicodeString;
+    FPublicId: UnicodeString;
+    FSystemId: UnicodeString;
+    function refersToXyz(const allowUnresolvableEntities: boolean;
+                         const previousEntities: TdomWideStringList;
+                         const whatToTest: integer): boolean;
+    procedure calculateLiteralValue(const S: UnicodeString);
+    procedure setNodeValue(const value: UnicodeString); override;
+  protected
+    FReplacementText: UnicodeString;
+    FIsUnusable: boolean;  // xxx can be problematic! 
+    FIsResolved: boolean;
+    function getIsUnusable: boolean; virtual;
+    function getLiteralValue: UnicodeString; virtual;
+    function getNormalizedValue: UnicodeString; virtual;
+    function getReplacementText: UnicodeString; virtual;
+    function refersToItself(const allowUnresolvableEntities: boolean): boolean; virtual;
+    function refersToExternalEntity(const allowUnresolvableEntities: boolean): boolean; virtual;
+    function refersToUnparsedEntity(const allowUnresolvableEntities: boolean): boolean; virtual;
+    function refersToUnusableEntity(const allowUnresolvableEntities: boolean): boolean; virtual;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name,
+                             litValue: UnicodeString); virtual;
+    constructor createExtParsed(const aOwner: TdomCustomCMObject;
+                                const name,
+                                      pubId,
+                                      sysId: UnicodeString); virtual;
+    constructor createExtUnparsed(const aOwner: TdomCustomCMObject;
+                                  const name,
+                                        pubId,
+                                        sysId,
+                                        notaName: UnicodeString); virtual;
+    function resolve: boolean; virtual;
+    property encoding: UnicodeString read FEncoding write FEncoding;
+    property entityType: TdomEntityType read FEntityType;
+    property isParsedEntity: boolean read FIsParsedEntity;
+    property isResolved: boolean read FIsResolved;
+    property isUnusable: boolean read getIsUnusable;
+    property literalValue: UnicodeString read getLiteralValue;
+    property normalizedValue: UnicodeString read getNormalizedValue;
+    property notationName: UnicodeString read FNotationName;
+    property publicId: UnicodeString read FPublicId;
+    property replacementText: UnicodeString read getReplacementText;
+    property systemId: UnicodeString read FSystemId;
+  end;
+
+  TdomCustomCMEntDecl = class (TdomCMNode)
+  private
+    FEntityType: TdomEntityType;
+    FPublicId: UnicodeString;
+    FSystemId: UnicodeString;
+    function getEntityType: TdomEntityType; virtual;
+    function getPublicId: UnicodeString; virtual;
+    function getSystemId: UnicodeString; virtual;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name,
+                             litValue: UnicodeString); virtual;
+    constructor createExtParsed(const aOwner: TdomCustomCMObject;
+                                const name,
+                                      pubId,
+                                      sysId: UnicodeString); virtual;
+    function insertBefore(const newChild,
+                                refChild: TdomCMNode): TdomCMNode; override;
+    function replaceChild(const newChild,
+                                oldChild: TdomCMNode): TdomCMNode; override;
+    function appendChild(const newChild: TdomCMNode): TdomCMNode; override;
+    property entityType: TdomEntityType read getEntityType;
+    property publicId: UnicodeString read getPublicId;
+    property systemId: UnicodeString read getSystemId;
+  end;
+
+  TdomCMEntityDeclaration = class (TdomCustomCMEntDecl)
+  private
+    FIsParsedEntity: boolean;
+    FNotationName: UnicodeString;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name,
+                             litValue: UnicodeString); override;
+    constructor createExtParsed(const aOwner: TdomCustomCMObject;
+                                const name,
+                                      pubId,
+                                      sysId: UnicodeString); override;
+    constructor createExtUnparsed(const aOwner: TdomCustomCMObject;
+                                  const name,
+                                        pubId,
+                                        sysId,
+                                        notaName: UnicodeString); virtual;
+    property isParsedEntity: boolean read FIsParsedEntity;
+    property notationName: UnicodeString read FNotationName;
+  end;
+
+  TdomCMParameterEntityDeclaration = class (TdomCustomCMEntDecl)
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name,
+                             litValue: UnicodeString); override;
+    constructor createExtParsed(const aOwner: TdomCustomCMObject;
+                                const name,
+                                      pubId,
+                                      sysId: UnicodeString); override;
+  end;
+
+  TdomCMParameterEntityReference = class (TdomCMNode)
+  private
+    procedure setNodeValue(const value: UnicodeString); override;
+  protected
+    function validate: boolean; override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject;
+                       const name: UnicodeString); virtual;
+  end;
+
+  TdomCMFragment = class (TdomCMNode)
+  private
+    procedure setNodeValue(const value: UnicodeString); override;
+  public
+    constructor create(const aOwner: TdomCustomCMObject); virtual;
+  end;
+
+
+// Views
+
+  TdomAbstractView = class
+  protected
+    FDocument: TdomDocument;
+  public
+    property document: TdomDocument read FDocument;
+  end;
+
+  TdomStyleSheet = class
+  private
+    function getStyleSheetType: UnicodeString; virtual; abstract;
+    function getDisabled: boolean; virtual; abstract;
+    procedure setDisabled(const value: boolean); virtual; abstract;
+    function getOwnerNode: TdomNode; virtual; abstract;
+    function getParentStyleSheet: TdomStyleSheet; virtual; abstract;
+    function getHref: UnicodeString; virtual; abstract;
+    function getTitle: UnicodeString; virtual; abstract;
+    function getMedia: TdomMediaList; virtual; abstract;
+  public
+    property styleSheetType: UnicodeString read getStyleSheetType;
+    property disabled: boolean read getDisabled write setDisabled;
+    property ownerNode: TdomNode read getOwnerNode;
+    property parentStyleSheet: TdomStyleSheet read getParentStyleSheet;
+    property href: UnicodeString read getHref;
+    property title: UnicodeString read getTitle;
+    property media: TdomMediaList read getMedia;
+  end;
+
+  TdomMediaList = class
+  private
+    function getCssText: UnicodeString; virtual; abstract;
+    procedure setCssText(const value: UnicodeString); virtual; abstract;
+    function getLength: integer; virtual; abstract;
+  public
+    function item(const index: integer): TdomStyleSheet; virtual; abstract;
+    procedure Delete(const oldMedium: UnicodeString); virtual; abstract;
+    procedure append(const newMedium: UnicodeString); virtual; abstract;
+    property length: integer read getLength;
+    property cssText: UnicodeString read getCssText write setCssText;
+  end;
+
+  TdomStyleSheetList = class
+  private
+    function getLength: integer; virtual; abstract;
+  public
+    function item(const index: integer): TdomStyleSheet; virtual; abstract;
+    property length: integer read getLength;
+  end;
+
+  TdomDocumentStyle = class
+  private
+    function getStyleSheets: TdomStyleSheetList; virtual; abstract;
+  public
+    property styleSheets: TdomStyleSheetList read getStyleSheets;
+  end;
+
+  TXmlSourceCode = class (TList)
+  private
+    procedure calculatePieceOffset(const startItem: integer); virtual;
+    function  getNameOfFirstTag: UnicodeString; virtual;
+  public
+    function  add(Item: Pointer): integer;
+    procedure clear; {$ifdef ver100} virtual; {$else} override; {$endif}
+      // ifdef... is necessary because TList.clear is static in Delphi 3
+      // (=ver100), but dynamic in later versions.
+    procedure clearAndFree; virtual;
+    procedure Delete(index: integer);
+    procedure exchange(index1, index2: integer);
+    function  getPieceAtPos(pos: integer): TXmlSourceCodePiece;
+    procedure insert(index: integer; item: pointer);
+    procedure move(curIndex, newIndex: integer);
+    procedure pack;
+    function  remove(Item: Pointer): integer;
+    procedure sort(Compare: TListSortCompare);
+    property  nameOfFirstTag: UnicodeString read getNameOfFirstTag;
+  end;
+
+  TXmlSourceCodePiece = class
+  private
+    FPieceType: TdomPieceType;
+    FText: UnicodeString;
+    FOffset: integer;
+    FOwner: TXmlSourceCode;
+  public
+    constructor create(const pt: TdomPieceType); virtual;
+    property pieceType: TdomPieceType read FPieceType;
+    property text: UnicodeString read FText write FText;
+    property offset: integer read FOffset;
+    property ownerSourceCode: TXmlSourceCode read FOwner;
+  end;
+
+
+{Parser}
+
+  TdomStandalone = ( STANDALONE_YES,
+                     STANDALONE_NO,
+                     STANDALONE_UNSPECIFIED);
+
+  TdomXMLDeclType = ( DT_UNKNOWN,
+                      DT_XML_DECLARATION,
+                      DT_TEXT_DECLARATION,
+                      DT_XML_OR_TEXT_DECLARATION,
+                      DT_UNSPECIFIED );
+
+  TXmlInputSource = class
+  private
+    FDeclType: TdomXMLDeclType;
+    FEncoding: TdomEncodingType;
+    FEncodingName: UnicodeString;
+    FHasMalformedDecl: boolean;
+    FLastCharWasCR: boolean;
+    FLastUcs4: integer;      // Buffer storage for UTF-8 surrogates
+    FLocator: TdomInputSourceLocator;
+    FPublicId: UnicodeString;
+    FStandalone: TdomStandalone;
+    FStartPosition: integer;
+    FStream: TStream;
+    FSystemId: UnicodeString;
+    FVersionNumber: UnicodeString;
+    function evaluateXmlOrTextDecl(const tabWidthValue: integer;
+                                     out declType: TdomXMLDeclType;
+                                     out encodingType: TdomEncodingType;
+                                     out versionInfo,
+                                         encName: UnicodeString;
+                                     out standalone: TdomStandalone;
+                                     out lineOffset,
+                                         columnOffset: integer): boolean;
+  protected
+    function getStreamAsWideString: UnicodeString; virtual;
+    function getNextWideChar2(var dest: wideChar;
+                              const enc: TdomEncodingType;
+                              const locator: TdomInputSourceLocator): boolean; virtual;
+  public
+    constructor create(const stream: TStream;
+                       const publicId,
+                             systemId: UnicodeString;
+                       const tabWidthValue: integer); virtual;
+    destructor destroy; override;
+    function getNextWideChar(var dest: wideChar): boolean; virtual;
+    property declType: TdomXMLDeclType read FDeclType;
+    property encoding: TdomEncodingType read FEncoding;
+    property encodingName: UnicodeString read FEncodingName;
+    property hasMalformedDecl: boolean read FHasMalformedDecl;
+    property locator: TdomInputSourceLocator read FLocator;
+    property publicId: UnicodeString read FPublicId;
+    property standalone: TdomStandalone read FStandalone;
+    property stream: TStream read FStream;
+    property streamAsWideString: UnicodeString read getStreamAsWideString;
+    property systemId: UnicodeString read FSystemId;
+    property versionNumber: UnicodeString read FVersionNumber;
+  end;
+
+  TXmlCustomParser = class;
+  TXmlToDomParser = class;
+  TXmlCustomReader = class;
+  TXmlStandardDocReader = class;
+  TXmlStandardDtdReader = class;
+
+  TXmlProcessorEvent1 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator) of object;
+
+  TXmlProcessorEvent2 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator;
+                                  var data: UnicodeString) of object;
+
+  TXmlProcessorEvent3 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator;
+                                  var targ,
+                                      data : UnicodeString) of object;
+
+  TXmlProcessorEvent4 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator;
+                                  var namespaceURI,
+                                      tagName: UnicodeString) of object;
+
+  TXmlProcessorEvent5 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator;
+                                  var namespaceURI,
+                                      tagName: UnicodeString;
+                                      attributes: TdomNameValueList) of object;
+
+  TXmlProcessorEvent6 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator;
+                                  var name,
+                                      pubId,
+                                      sysId,
+                                      data: UnicodeString) of object;
+
+  TXmlProcessorEvent7 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator;
+                                  var prefix,
+                                      uri: UnicodeString) of object;
+
+  TXmlProcessorEvent8 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator;
+                                  var version,
+                                      encDl,
+                                      sdDl: UnicodeString) of object;
+
+  TXmlProcessorEvent9 = procedure(reader: TXmlCustomReader;
+                                  locator: TdomLocator;
+                                  var name,
+                                      attType,
+                                      bracket,
+                                      defaultDecl,
+                                      attValue: UnicodeString) of object;
+
+  TXmlProcessorEvent10 = procedure(reader: TXmlCustomReader;
+                                   locator: TdomLocator;
+                                   var includeStmt,
+                                       data: UnicodeString) of object;
+
+  TXmlProcessorEvent11 = procedure(reader: TXmlCustomReader;
+                                   locator: TdomLocator;
+                                   var name,
+                                       data: UnicodeString) of object;
+
+  TXmlProcessorEvent12 = procedure(reader: TXmlCustomReader;
+                                   locator: TdomLocator;
+                                   var name,
+                                       entityValue,
+                                       pubId,
+                                       sysId,
+                                       notaName: UnicodeString) of object;
+
+  TXmlProcessorEvent13 = procedure(reader: TXmlCustomReader;
+                                   locator: TdomLocator;
+                                   var name,
+                                       pubId,
+                                       sysId: UnicodeString) of object;
+
+  TXmlProcessorEvent14 = procedure(reader: TXmlCustomReader;
+                                   locator: TdomLocator;
+                                   var name,
+                                       entityValue,
+                                       pubId,
+                                       sysId: UnicodeString) of object;
+
+  TXmlProcessorEvent15 = procedure(reader: TXmlCustomReader;
+                                   locator: TdomLocator;
+                                   var version,
+                                       encDl: UnicodeString) of object;
+
+  TXmlProcessorEvent16 = procedure(reader: TXmlCustomReader;
+                                   locator: TdomLocator;
+                                   var version,
+                                       encDl: UnicodeString;
+                                   var sdDl: TdomStandalone) of object;
+
+  TXmlCustomHandler = class(TComponent)
+  protected
+    FOnComment: TXmlProcessorEvent2;
+    FOnCDATA: TXmlProcessorEvent2;
+    FOnCharRef: TXmlProcessorEvent2;
+    FOnDoctype: TXmlProcessorEvent6;
+    FOnEndDocument: TXmlProcessorEvent1;
+    FOnEndElement: TXmlProcessorEvent4;
+    FOnEndPrefixMapping: TXmlProcessorEvent2;
+    FOnEntityRef: TXmlProcessorEvent2;
+    FOnPCDATA: TXmlProcessorEvent2;
+    FOnProcessingInstruction: TXmlProcessorEvent3;
+    FOnSkippedEntity: TXmlProcessorEvent2;
+    FOnStartDocument: TXmlProcessorEvent16;
+    FOnStartElement: TXmlProcessorEvent5;
+    FOnStartPrefixMapping: TXmlProcessorEvent7;
+    FOnAttributeDefinition: TXmlProcessorEvent9;
+    FOnConditionalSection: TXmlProcessorEvent10;
+    FOnDtdComment: TXmlProcessorEvent2;
+    FOnDtdProcessingInstruction: TXmlProcessorEvent3;
+    FOnElementTypeDeclaration: TXmlProcessorEvent11;
+    FOnEndAttListDeclaration: TXmlProcessorEvent1;
+    FOnEndExtDtd: TXmlProcessorEvent1;
+    FOnEndIntDtd: TXmlProcessorEvent1;
+    FOnEntityDeclaration: TXmlProcessorEvent12;
+    FOnNotationDeclaration: TXmlProcessorEvent13;
+    FOnParameterEntityDeclaration: TXmlProcessorEvent14;
+    FOnParameterEntityRef: TXmlProcessorEvent2;
+    FOnStartAttListDeclaration: TXmlProcessorEvent2;
+    FOnStartExtDtd: TXmlProcessorEvent15;
+    FOnStartIntDtd: TXmlProcessorEvent1;
+    function sendErrorNotification(const target: TXmlCustomReader;
+                                   const xmlErrorType: TXmlErrorType;
+                                   const location: TdomLocator;
+                                   const code: UnicodeString): boolean; virtual;
+  public
+    function CDATA(const sender: TXmlCustomReader;
+                   const locator: TdomLocator;
+                         data: UnicodeString): boolean; virtual; abstract;
+    function charRef(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; virtual; abstract;
+    function comment(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; virtual; abstract;
+    function doctype(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           aname,
+                           pubId,
+                           sysId,
+                           data: UnicodeString): boolean; virtual; abstract;
+    function endDocument(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; virtual; abstract;
+    function endElement(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              namespaceURI,
+                              tagName: UnicodeString): boolean; virtual; abstract;
+    function endPrefixMapping(const sender: TXmlCustomReader;
+                              const locator: TdomLocator;
+                                    prefix: UnicodeString): boolean; virtual; abstract;
+    function entityRef(const sender: TXmlCustomReader;
+                       const locator: TdomLocator;
+                             aname: UnicodeString): boolean; virtual; abstract;
+    function PCDATA(const sender: TXmlCustomReader;
+                    const locator: TdomLocator;
+                          data: UnicodeString): boolean; virtual; abstract;
+    function processingInstruction(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         targ,
+                                         data : UnicodeString): boolean; virtual; abstract;
+    function skippedEntity(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 aname: UnicodeString): boolean; virtual; abstract;
+    function startDocument(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 version,
+                                 encName: UnicodeString;
+                                 sdDl: TdomStandalone): boolean; virtual; abstract;
+    function startElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean; virtual; abstract;
+    function startEndElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean;virtual;
+
+    function startPrefixMapping(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      prefix,
+                                      uri: UnicodeString): boolean; virtual; abstract;
+    function attributeDefinition(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       attType,
+                                       bracket,
+                                       defaultDecl,
+                                       attValue: UnicodeString): boolean; virtual; abstract;
+    function conditionalSection(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      includeStmt,
+                                      data: UnicodeString): boolean; virtual; abstract;
+    function DTDcomment(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              data: UnicodeString): boolean; virtual; abstract;
+    function DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            targ,
+                                            data : UnicodeString): boolean; virtual; abstract;
+    function elementTypeDeclaration(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          aname,
+                                          data: UnicodeString): boolean; virtual; abstract;
+    function endAttListDeclaration(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean; virtual; abstract;
+    function endExtDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; virtual; abstract;
+    function endIntDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; virtual; abstract;
+    function entityDeclaration(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     aname,
+                                     entityValue,
+                                     pubId,
+                                     sysId,
+                                     notaName: UnicodeString): boolean; virtual; abstract;
+    function notationDeclaration(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId: UnicodeString): boolean; virtual; abstract;
+    function parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              aname,
+                                              entityValue,
+                                              pubId,
+                                              sysId: UnicodeString): boolean; virtual; abstract;
+    function parameterEntityRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname: UnicodeString): boolean; virtual; abstract;
+    function startAttListDeclaration(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean; virtual; abstract;
+    function startExtDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator;
+                               version,
+                               encName: UnicodeString): boolean; virtual; abstract;
+    function startIntDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; virtual; abstract;
+    function resolvePE(    PEReferenceName: UnicodeString;
+                       var PEValue: UnicodeString;
+                       var error: TXmlErrorType): boolean; virtual; abstract;
+    procedure notifyReset; virtual; abstract;
+  published
+    property OnAttributeDefinition: TXmlProcessorEvent9 read FOnAttributeDefinition write FOnAttributeDefinition;
+    property OnCDATA: TXmlProcessorEvent2 read FOnCDATA write FOnCDATA;
+    property OnCharRef: TXmlProcessorEvent2 read FOnCharRef write FOnCharRef;
+    property OnComment: TXmlProcessorEvent2 read FOnComment write FOnComment;
+    property OnConditionalSection: TXmlProcessorEvent10 read FOnConditionalSection write FOnConditionalSection;
+    property OnDoctype: TXmlProcessorEvent6 read FOndoctype write FOndoctype;
+    property OnDtdComment: TXmlProcessorEvent2 read FOnDtdComment write FOnDtdComment;
+    property OnDtdProcessingInstruction: TXmlProcessorEvent3 read FOnDtdProcessingInstruction write FOnDtdProcessingInstruction;
+    property OnElementTypeDeclaration: TXmlProcessorEvent11 read FOnElementTypeDeclaration write FOnElementTypeDeclaration;
+    property OnEndAttListDeclaration: TXmlProcessorEvent1 read FOnEndAttListDeclaration write FOnEndAttListDeclaration;
+    property OnEndDocument: TXmlProcessorEvent1 read FOnEndDocument write FOnEndDocument;
+    property OnEndElement: TXmlProcessorEvent4 read FOnEndElement write FOnEndElement;
+    property OnEndExtDtd: TXmlProcessorEvent1 read FOnEndExtDtd write FOnEndExtDtd;
+    property OnEndIntDtd: TXmlProcessorEvent1 read FOnEndIntDtd write FOnEndIntDtd;
+    property OnEndPrefixMapping: TXmlProcessorEvent2 read FOnEndPrefixMapping write FOnEndPrefixMapping;
+    property OnEntityDeclaration: TXmlProcessorEvent12 read FOnEntityDeclaration write FOnEntityDeclaration;
+    property OnEntityRef: TXmlProcessorEvent2 read FOnEntityRef write FOnEntityRef;
+    property OnNotationDeclaration: TXmlProcessorEvent13 read FOnNotationDeclaration write FOnNotationDeclaration;
+    property OnParameterEntityDeclaration: TXmlProcessorEvent14 read FOnParameterEntityDeclaration write FOnParameterEntityDeclaration;
+    property OnParameterEntityRef: TXmlProcessorEvent2 read FOnParameterEntityRef write FOnParameterEntityRef;
+    property OnPCDATA: TXmlProcessorEvent2 read FOnPCDATA write FOnPCDATA;
+    property OnProcessingInstruction: TXmlProcessorEvent3 read FOnProcessingInstruction write FOnProcessingInstruction;
+    property OnSkippedEntity: TXmlProcessorEvent2 read FOnSkippedEntity write FOnSkippedEntity;
+    property OnStartAttListDeclaration: TXmlProcessorEvent2 read FOnStartAttListDeclaration write FOnStartAttListDeclaration;
+    property OnStartDocument: TXmlProcessorEvent16 read FOnStartDocument write FOnStartDocument;
+    property OnStartElement: TXmlProcessorEvent5 read FOnStartElement write FOnStartElement;
+    property OnStartExtDtd: TXmlProcessorEvent15 read FOnStartExtDtd write FOnStartExtDtd;
+    property OnStartIntDtd: TXmlProcessorEvent1 read FOnStartIntDtd write FOnStartIntDtd;
+    property OnStartPrefixMapping: TXmlProcessorEvent7 read FOnStartPrefixMapping write FOnStartPrefixMapping;
+  end;
+
+  TXmlStandardHandler = class(TXmlCustomHandler)
+  protected
+    FNextHandler: TXmlCustomHandler;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  public
+    function CDATA(const sender: TXmlCustomReader;
+                   const locator: TdomLocator;
+                         data: UnicodeString): boolean; override;
+    function charRef(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function comment(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function doctype(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           aname,
+                           pubId,
+                           sysId,
+                           data: UnicodeString): boolean; override;
+    function endDocument(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function endElement(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              namespaceURI,
+                              tagName: UnicodeString): boolean; override;
+    function endPrefixMapping(const sender: TXmlCustomReader;
+                              const locator: TdomLocator;
+                                    prefix: UnicodeString): boolean; override;
+    function entityRef(const sender: TXmlCustomReader;
+                       const locator: TdomLocator;
+                             aname: UnicodeString): boolean; override;
+    function PCDATA(const sender: TXmlCustomReader;
+                    const locator: TdomLocator;
+                          data: UnicodeString): boolean; override;
+    function processingInstruction(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         targ,
+                                         data : UnicodeString): boolean; override;
+    function skippedEntity(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 aname: UnicodeString): boolean; override;
+    function startDocument(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 version,
+                                 encName: UnicodeString;
+                                 sdDl: TdomStandalone): boolean; override;
+    function startElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean; override;
+    function startPrefixMapping(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      prefix,
+                                      uri: UnicodeString): boolean; override;
+    function attributeDefinition(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       attType,
+                                       bracket,
+                                       defaultDecl,
+                                       attValue: UnicodeString): boolean; override;
+    function conditionalSection(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      includeStmt,
+                                      data: UnicodeString): boolean; override;
+    function DTDcomment(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              data: UnicodeString): boolean; override;
+    function DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            targ,
+                                            data : UnicodeString): boolean; override;
+    function elementTypeDeclaration(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          aname,
+                                          data: UnicodeString): boolean; override;
+    function endAttListDeclaration(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean; override;
+    function endExtDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function endIntDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function entityDeclaration(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     aname,
+                                     entityValue,
+                                     pubId,
+                                     sysId,
+                                     notaName: UnicodeString): boolean; override;
+    function notationDeclaration(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId: UnicodeString): boolean; override;
+    function parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              aname,
+                                              entityValue,
+                                              pubId,
+                                              sysId: UnicodeString): boolean; override;
+    function parameterEntityRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname: UnicodeString): boolean; override;
+    function startAttListDeclaration(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean; override;
+    function startExtDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator;
+                               version,
+                               encName: UnicodeString): boolean; override;
+    function startIntDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function resolvePE(    PEReferenceName: UnicodeString;
+                       var PEValue: UnicodeString;
+                       var error: TXmlErrorType): boolean; override;
+    procedure notifyReset; override;
+  published
+    property NextHandler: TXmlCustomHandler read FNextHandler write FNextHandler;
+  end;
+
+  TXmlDistributor = class;
+
+  TXmlHandlerItem = class(TCollectionItem)
+  protected
+    FXmlHandler: TXmlCustomHandler;
+    function getXmlHandler: TXmlCustomHandler;
+    procedure setXmlHandler(Value: TXmlCustomHandler);
+  public
+    procedure Assign(Source: TPersistent); override;
+  published
+    property XmlHandler: TXmlCustomHandler read getXmlHandler write setXmlHandler;
+  end;
+
+  TXmlHandlers = class(TCollection)
+  private
+    FDistributor: TXmlDistributor;
+  protected
+    function GetItem(Index: Integer): TXmlHandlerItem; virtual;
+    procedure SetItem(Index: Integer; Value: TXmlHandlerItem); virtual;
+    function GetOwner: TPersistent; override;
+  public
+    constructor Create(Distributor: TXmlDistributor);
+    function Add: TXmlHandlerItem;
+    procedure Assign(Source: TPersistent); override;
+    function FindHandlerItem(AHandler: TXmlCustomHandler): TXmlHandlerItem;
+    property Distributor: TXmlDistributor read FDistributor;
+    property Items[Index: Integer]: TXmlHandlerItem read GetItem write SetItem; default;
+  end;
+
+  TXmlDistributor = class(TXmlCustomHandler)
+  private
+    procedure readData(Reader: TReader);
+    procedure writeData(Writer: TWriter);
+  protected
+    FNextHandlers: TXmlHandlers;
+    procedure DefineProperties(Filer: TFiler); override;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure setNextHandlers(const value: TXmlHandlers);
+  public
+    constructor create(AOwner: TComponent); override;
+    destructor destroy; override;
+    function CDATA(const sender: TXmlCustomReader;
+                   const locator: TdomLocator;
+                         data: UnicodeString): boolean; override;
+    function charRef(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function comment(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function doctype(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           aname,
+                           pubId,
+                           sysId,
+                           data: UnicodeString): boolean; override;
+    function endDocument(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function endElement(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              namespaceURI,
+                              tagName: UnicodeString): boolean; override;
+    function endPrefixMapping(const sender: TXmlCustomReader;
+                              const locator: TdomLocator;
+                                    prefix: UnicodeString): boolean; override;
+    function entityRef(const sender: TXmlCustomReader;
+                       const locator: TdomLocator;
+                             aname: UnicodeString): boolean; override;
+    function PCDATA(const sender: TXmlCustomReader;
+                    const locator: TdomLocator;
+                          data: UnicodeString): boolean; override;
+    function processingInstruction(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         targ,
+                                         data : UnicodeString): boolean; override;
+    function skippedEntity(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 aname: UnicodeString): boolean; override;
+    function startDocument(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 version,
+                                 encName: UnicodeString;
+                                 sdDl: TdomStandalone): boolean; override;
+    function startElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean; override;
+    function startPrefixMapping(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      prefix,
+                                      uri: UnicodeString): boolean; override;
+    function attributeDefinition(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       attType,
+                                       bracket,
+                                       defaultDecl,
+                                       attValue: UnicodeString): boolean; override;
+    function conditionalSection(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      includeStmt,
+                                      data: UnicodeString): boolean; override;
+    function DTDcomment(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              data: UnicodeString): boolean; override;
+    function DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            targ,
+                                            data : UnicodeString): boolean; override;
+    function elementTypeDeclaration(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          aname,
+                                          data: UnicodeString): boolean; override;
+    function endAttListDeclaration(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean; override;
+    function endExtDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function endIntDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function entityDeclaration(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     aname,
+                                     entityValue,
+                                     pubId,
+                                     sysId,
+                                     notaName: UnicodeString): boolean; override;
+    function notationDeclaration(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId: UnicodeString): boolean; override;
+    function parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              aname,
+                                              entityValue,
+                                              pubId,
+                                              sysId: UnicodeString): boolean; override;
+    function parameterEntityRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname: UnicodeString): boolean; override;
+    function startAttListDeclaration(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean; override;
+    function startExtDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator;
+                               version,
+                               encDl: UnicodeString): boolean; override;
+    function startIntDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function resolvePE(    PEReferenceName: UnicodeString;
+                       var PEValue: UnicodeString;
+                       var error: TXmlErrorType): boolean; override;
+    procedure notifyReset; override;
+  published
+    property NextHandlers: TXmlHandlers read FNextHandlers write setNextHandlers;
+  end;
+
+  TXmlCustomDTDHandler = class(TXmlStandardHandler)
+  public
+    function CDATA(const sender: TXmlCustomReader;
+                   const locator: TdomLocator;
+                         data: UnicodeString): boolean; override;
+    function charRef(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function comment(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function doctype(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           aname,
+                           pubId,
+                           sysId,
+                           data: UnicodeString): boolean; override;
+    function endDocument(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function endElement(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              namespaceURI,
+                              tagName: UnicodeString): boolean; override;
+    function endPrefixMapping(const sender: TXmlCustomReader;
+                              const locator: TdomLocator;
+                                    prefix: UnicodeString): boolean; override;
+    function entityRef(const sender: TXmlCustomReader;
+                       const locator: TdomLocator;
+                             aname: UnicodeString): boolean; override;
+    function PCDATA(const sender: TXmlCustomReader;
+                    const locator: TdomLocator;
+                          data: UnicodeString): boolean; override;
+    function processingInstruction(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         targ,
+                                         data : UnicodeString): boolean; override;
+    function skippedEntity(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 aname: UnicodeString): boolean; override;
+    function startDocument(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 version,
+                                 encName: UnicodeString;
+                                 sdDl: TdomStandalone): boolean; override;
+    function startElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean; override;
+    function startPrefixMapping(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      prefix,
+                                      uri: UnicodeString): boolean; override;
+  end;
+
+  TXmlCustomContentHandler = class(TXmlStandardHandler)
+  public
+    function attributeDefinition(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       attType,
+                                       bracket,
+                                       defaultDecl,
+                                       attValue: UnicodeString): boolean; override;
+    function conditionalSection(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      includeStmt,
+                                      data: UnicodeString): boolean; override;
+    function DTDcomment(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              data: UnicodeString): boolean; override;
+    function DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            targ,
+                                            data : UnicodeString): boolean; override;
+    function elementTypeDeclaration(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          aname,
+                                          data: UnicodeString): boolean; override;
+    function endAttListDeclaration(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean; override;
+    function endExtDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function endIntDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function entityDeclaration(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     aname,
+                                     entityValue,
+                                     pubId,
+                                     sysId,
+                                     notaName: UnicodeString): boolean; override;
+    function notationDeclaration(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId: UnicodeString): boolean; override;
+    function parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              aname,
+                                              entityValue,
+                                              pubId,
+                                              sysId: UnicodeString): boolean; override;
+    function parameterEntityRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname: UnicodeString): boolean; override;
+    function startAttListDeclaration(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean; override;
+    function startExtDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator;
+                               version,
+                               encDl: UnicodeString): boolean; override;
+    function startIntDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+  end;
+
+  TXmlCustomReader = class(TComponent)
+  private
+    FDOMImpl: TDomImplementation;
+    FNextHandler: TXmlStandardHandler;
+    procedure setDomImpl(const impl: TDomImplementation);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    function sendErrorNotification(const xmlErrorType: TXmlErrorType;
+                                   const location: TdomLocator;
+                                   const code: UnicodeString): boolean; virtual;
+  public
+    constructor create(AOwner: TComponent); override;
+  published
+    property DOMImpl: TDomImplementation read FDomImpl write setDomImpl;
+    property NextHandler: TXmlStandardHandler read FNextHandler write FNextHandler;
+  end;
+
+  TXmlWFTestContentHandler = class(TXmlCustomContentHandler)
+  protected
+    FIsActive: boolean;
+    FDoctypeFound: boolean;
+    FRootFound: boolean;
+    FTestRootFound: boolean;
+    FTagStack: TdomWideStringList;
+  public
+    constructor create(AOwner: TComponent); override;
+    destructor destroy; override;
+    function CDATA(const sender: TXmlCustomReader;
+                   const locator: TdomLocator;
+                         data: UnicodeString): boolean; override;
+    function charRef(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function comment(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function doctype(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           aname,
+                           pubId,
+                           sysId,
+                           data: UnicodeString): boolean; override;
+    function endDocument(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function endElement(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              namespaceURI,
+                              tagName: UnicodeString): boolean; override;
+    function endPrefixMapping(const sender: TXmlCustomReader;
+                              const locator: TdomLocator;
+                                    prefix: UnicodeString): boolean; override;
+    function entityRef(const sender: TXmlCustomReader;
+                       const locator: TdomLocator;
+                             aname: UnicodeString): boolean; override;
+    function PCDATA(const sender: TXmlCustomReader;
+                    const locator: TdomLocator;
+                          data: UnicodeString): boolean; override;
+    function processingInstruction(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         targ,
+                                         data : UnicodeString): boolean; override;
+    function skippedEntity(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 aname: UnicodeString): boolean; override;
+    function startDocument(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 version,
+                                 encName: UnicodeString;
+                                 sdDl: TdomStandalone): boolean; override;
+    function startElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean; override;
+    function startPrefixMapping(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      prefix,
+                                      uri: UnicodeString): boolean; override;
+    procedure notifyReset; override;
+    property isActive: boolean read FIsActive;
+    property testRootFound: boolean read FTestRootFound write FTestRootFound default true;
+  end;
+
+  TXmlWFTestDTDHandler = class(TXmlCustomDtdHandler)
+  protected
+    FAttListDeclActive: boolean;
+    FExtDtdIsActive: boolean;
+    FIntDtdIsActive: boolean;
+  public
+    constructor create(AOwner: TComponent); override;
+    destructor destroy; override;
+    function attributeDefinition(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       attType,
+                                       bracket,
+                                       defaultDecl,
+                                       attValue: UnicodeString): boolean; override;
+    function conditionalSection(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      includeStmt,
+                                      data: UnicodeString): boolean; override;
+    function DTDcomment(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              data: UnicodeString): boolean; override;
+    function DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            targ,
+                                            data : UnicodeString): boolean; override;
+    function elementTypeDeclaration(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          aname,
+                                          data: UnicodeString): boolean; override;
+    function endAttListDeclaration(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean; override;
+    function endExtDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function endIntDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function entityDeclaration(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     aname,
+                                     entityValue,
+                                     pubId,
+                                     sysId,
+                                     notaName: UnicodeString): boolean; override;
+    function notationDeclaration(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId: UnicodeString): boolean; override;
+    function parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              aname,
+                                              entityValue,
+                                              pubId,
+                                              sysId: UnicodeString): boolean; override;
+    function parameterEntityRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname: UnicodeString): boolean; override;
+    function startAttListDeclaration(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean; override;
+    function startExtDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator;
+                               version,
+                               encName: UnicodeString): boolean; override;
+    function startIntDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    procedure notifyReset; override;
+    property extDtdIsActive: boolean read FExtDtdIsActive;
+    property intDtdIsActive: boolean read FIntDtdIsActive;
+  end;
+
+  TXmlDocBuilder = class(TXmlCustomContentHandler)
+  private
+    FBuildNamespaceTree: boolean;
+  protected
+    FRefNode: TdomNode;
+    FPrefixUriList: TdomNameValueList;
+  public
+    constructor create(AOwner: TComponent); override;
+    destructor destroy; override;
+    function CDATA(const sender: TXmlCustomReader;
+                   const locator: TdomLocator;
+                         data: UnicodeString): boolean; override;
+    function charRef(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function comment(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function doctype(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           aname,
+                           pubId,
+                           sysId,
+                           data: UnicodeString): boolean; override;
+    function endDocument(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function endElement(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              namespaceURI,
+                              tagName: UnicodeString): boolean; override;
+    function endPrefixMapping(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     prefix: UnicodeString): boolean; override;
+    function entityRef(const sender: TXmlCustomReader;
+                       const locator: TdomLocator;
+                             aname: UnicodeString): boolean; override;
+    function PCDATA(const sender: TXmlCustomReader;
+                    const locator: TdomLocator;
+                          data: UnicodeString): boolean; override;
+    function processingInstruction(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         targ,
+                                         data : UnicodeString): boolean; override;
+    function skippedEntity(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 aname: UnicodeString): boolean; override;
+    function startDocument(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 version,
+                                 encName: UnicodeString;
+                                 sdDl: TdomStandalone): boolean; override;
+    function startElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean; override;
+    function startPrefixMapping(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      prefix,
+                                      uri: UnicodeString): boolean; override;
+    procedure notifyReset; override;
+    property referenceNode: TdomNode read FRefNode write FRefNode;
+  published
+    property BuildNamespaceTree: boolean read FBuildNamespaceTree write FBuildNamespaceTree default false;
+  end;
+
+  TXmlDtdBuilder = class(TXmlCustomContentHandler)
+  protected
+    FExtDtdIsActive: boolean;
+    FIntDtdIsActive: boolean;
+    FReferenceExtCM: TdomCMExternalObject;
+    FReferenceIntCM: TdomCMInternalObject;
+    FRefNode: TdomCMNode;
+    procedure resolveCharRefsAndPERefs(const s: UnicodeString;
+                                         var result: UnicodeString;
+                                         var error: boolean); virtual;
+    procedure insertMixedContent(const sender: TXmlCustomReader;
+                                 const refNode: TdomCMNode;
+                                 const contSpec: UnicodeString); virtual;
+    procedure insertChildrenContent(const sender: TXmlCustomReader;
+                                    const refNode: TdomCMNode;
+                                    const contSpec: UnicodeString); virtual;
+    procedure insertNotationOrEnumerationContent(const sender: TXmlCustomReader;
+                                                 const refCMAttrDefinition: TdomCMAttrDefinition;
+                                                 const contSpec: UnicodeString); virtual;
+    function getExtContentModel: TdomCMExternalObject; virtual;
+    function getIntContentModel: TdomCMInternalObject; virtual;
+    procedure setExtContentModel(const cm: TdomCMExternalObject); virtual;
+    procedure setIntContentModel(const cm: TdomCMInternalObject); virtual;
+  public
+    constructor create(AOwner: TComponent); override;
+    function attributeDefinition(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       attType,
+                                       bracket,
+                                       defaultDecl,
+                                       attValue: UnicodeString): boolean; override;
+    function conditionalSection(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      includeStmt,
+                                      data: UnicodeString): boolean; override;
+    function DTDcomment(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              data: UnicodeString): boolean; override;
+    function DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            targ,
+                                            data : UnicodeString): boolean; override;
+    function elementTypeDeclaration(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          aname,
+                                          data: UnicodeString): boolean; override;
+    function endAttListDeclaration(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean; override;
+    function endExtDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function endIntDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function entityDeclaration(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     aname,
+                                     entityValue,
+                                     pubId,
+                                     sysId,
+                                     notaName: UnicodeString): boolean; override;
+    function notationDeclaration(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId: UnicodeString): boolean; override;
+    function parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              aname,
+                                              entityValue,
+                                              pubId,
+                                              sysId: UnicodeString): boolean; override;
+    function parameterEntityRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname: UnicodeString): boolean; override;
+    function startAttListDeclaration(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean; override;
+    function startExtDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator;
+                               version,
+                               encName: UnicodeString): boolean; override;
+    function startIntDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function resolvePE(    PEReferenceName: UnicodeString;
+                       var PEValue: UnicodeString;
+                       var error: TXmlErrorType): boolean; override;
+    procedure notifyReset; override;
+    property extContentModel: TdomCMExternalObject read getExtContentModel write setExtContentModel;
+    property extDtdIsActive: boolean read FExtDtdIsActive;
+    property intContentModel: TdomCMInternalObject read getIntContentModel write setIntContentModel;
+    property intDtdIsActive: boolean read FIntDtdIsActive;
+  end;
+
+  TXmlCMBuilder = class(TXmlCustomContentHandler)
+  protected
+    FContentModel: TdomCMObject;
+    FCurrentAttListName: UnicodeString;
+    FIsActive: boolean;
+    procedure CDataNormalization(const s: UnicodeString;
+                                   var result: UnicodeString;
+                                   var error: boolean); virtual;
+    function getContentModel: TdomCMObject; virtual;
+    procedure insertMixedContent(const sender: TXmlCustomReader;
+                                 const refNode: TdomCMNode;
+                                 const contSpec: UnicodeString); virtual;
+    procedure insertChildrenContent(const sender: TXmlCustomReader;
+                                    const refNode: TdomCMNode;
+                                    const contSpec: UnicodeString); virtual;
+    procedure insertNotationOrEnumerationContent(const sender: TXmlCustomReader;
+                                                 const refCMAttribute: TdomCMAttribute;
+                                                 const contSpec: UnicodeString); virtual;
+    procedure resolveCharRefsAndPERefs(const s: UnicodeString;
+                                         var result: UnicodeString;
+                                         var error: boolean); virtual;
+    procedure setContentModel(const cm: TdomCMObject); virtual;
+  public
+    constructor create(AOwner: TComponent); override;
+    function attributeDefinition(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       attType,
+                                       bracket,
+                                       defaultDecl,
+                                       attValue: UnicodeString): boolean; override;
+    function conditionalSection(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      includeStmt,
+                                      data: UnicodeString): boolean; override;
+    function DTDcomment(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              data: UnicodeString): boolean; override;
+    function DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            targ,
+                                            data : UnicodeString): boolean; override;
+    function elementTypeDeclaration(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          aname,
+                                          data: UnicodeString): boolean; override;
+    function endAttListDeclaration(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean; override;
+    function endExtDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function endIntDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function entityDeclaration(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     aname,
+                                     literalValue,
+                                     pubId,
+                                     sysId,
+                                     notaName: UnicodeString): boolean; override;
+    function notationDeclaration(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId: UnicodeString): boolean; override;
+    function parameterEntityRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname: UnicodeString): boolean; override;
+    function startAttListDeclaration(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean; override;
+    function startExtDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator;
+                               version,
+                               encName: UnicodeString): boolean; override;
+    function startIntDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function resolvePE(    PEReferenceName: UnicodeString;
+                       var PEValue: UnicodeString;
+                       var error: TXmlErrorType): boolean; override;
+    procedure notifyReset; override;
+    property contentModel: TdomCMObject read getContentModel write setContentModel;
+    property isActive: boolean read FIsActive;
+  end;
+
+  TXmlStreamBuilder = class(TXmlStandardHandler)
+  private
+    FCurrentEncodingType: TdomEncodingType;
+    FDefaultEncoding: UnicodeString;
+    FDefaultEncodingType: TdomEncodingType;
+    FDestination: TStream;
+    FNewLine: TdomNewLineType;
+    procedure setDefaultEncoding(const value: UnicodeString);
+    procedure setDestination(const value: TStream);
+    procedure setNewLine(const value: TdomNewLineType);
+  protected
+    function writeWideString(const sender: TXmlCustomReader;
+                             const locator: TdomLocator;
+                             const xmlStrg: UnicodeString): boolean; virtual;
+    function writeWideStrings(const sender: TXmlCustomReader;
+                              const locator: TdomLocator;
+                              const xmlStrgs: array of UnicodeString): boolean; virtual;
+  public
+    constructor create(aOwner: TComponent); override;
+    function CDATA(const sender: TXmlCustomReader;
+                   const locator: TdomLocator;
+                         data: UnicodeString): boolean; override;
+    function charRef(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function comment(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           data: UnicodeString): boolean; override;
+    function doctype(const sender: TXmlCustomReader;
+                     const locator: TdomLocator;
+                           aname,
+                           pubId,
+                           sysId,
+                           data: UnicodeString): boolean; override;
+    function endDocument(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function endElement(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              namespaceURI,
+                              tagName: UnicodeString): boolean; override;
+    function endPrefixMapping(const sender: TXmlCustomReader;
+                              const locator: TdomLocator;
+                                    prefix: UnicodeString): boolean; override;
+    function entityRef(const sender: TXmlCustomReader;
+                       const locator: TdomLocator;
+                             aname: UnicodeString): boolean; override;
+    function PCDATA(const sender: TXmlCustomReader;
+                    const locator: TdomLocator;
+                          data: UnicodeString): boolean; override;
+    function processingInstruction(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         targ,
+                                         data : UnicodeString): boolean; override;
+    function skippedEntity(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 aname: UnicodeString): boolean; override;
+    function startDocument(const sender: TXmlCustomReader;
+                           const locator: TdomLocator;
+                                 version,
+                                 encName: UnicodeString;
+                                 sdDl: TdomStandalone): boolean; override;
+    function startElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean; override;
+    function startEndElement(const sender: TXmlCustomReader;
+                          const locator: TdomLocator;
+                                namespaceURI,
+                                tagName: UnicodeString;
+                                attributes: TdomNameValueList): boolean;override;
+    function startPrefixMapping(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      prefix,
+                                      uri: UnicodeString): boolean; override;
+    function attributeDefinition(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       attType,
+                                       bracket,
+                                       defaultDecl,
+                                       attValue: UnicodeString): boolean; override;
+    function conditionalSection(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      includeStmt,
+                                      data: UnicodeString): boolean; override;
+    function DTDcomment(const sender: TXmlCustomReader;
+                        const locator: TdomLocator;
+                              data: UnicodeString): boolean; override;
+    function DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            targ,
+                                            data : UnicodeString): boolean; override;
+    function elementTypeDeclaration(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          aname,
+                                          data: UnicodeString): boolean; override;
+    function endAttListDeclaration(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean; override;
+    function endExtDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function endIntDtd(const sender: TXmlCustomReader;
+                       const locator: TdomLocator): boolean; override;
+    function entityDeclaration(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     aname,
+                                     entityValue,
+                                     pubId,
+                                     sysId,
+                                     notaName: UnicodeString): boolean; override;
+    function notationDeclaration(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId: UnicodeString): boolean; override;
+    function parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              aname,
+                                              entityValue,
+                                              pubId,
+                                              sysId: UnicodeString): boolean; override;
+    function parameterEntityRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname: UnicodeString): boolean; override;
+    function startAttListDeclaration(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean; override;
+    function startExtDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator;
+                               version,
+                               encName: UnicodeString): boolean; override;
+    function startIntDtd(const sender: TXmlCustomReader;
+                         const locator: TdomLocator): boolean; override;
+    function resolvePE(    PEReferenceName: UnicodeString;
+                       var PEValue: UnicodeString;
+                       var error: TXmlErrorType): boolean; override;
+    procedure notifyReset; override;
+    property currentEncodingType: TdomEncodingType read FCurrentEncodingType;
+    property defaultEncoding: UnicodeString read FDefaultEncoding write SetDefaultEncoding;
+    property defaultEncodingType: TdomEncodingType read FDefaultEncodingType;
+    property destination: TStream read FDestination write setDestination;
+  published
+    property newLine: TdomNewLineType read FNewLine write setNewLine default nltCRLF;
+  end;
+
+  TXmlStandardDocReader = class (TXmlCustomReader)
+  protected
+    FPrefixMapping: boolean;
+    FPrefixMappingStack: TList;
+    FSuppressXmlns: boolean;
+    function analyzeElement(const locator: TdomLocator;
+                            const source: UnicodeString;
+                              out tagName: UnicodeString;
+                            const attributes: TdomNameValueList): boolean; virtual;
+    procedure clearPrefixMappingStack; virtual;
+    function writeProcessingInstruction(const locator: TdomLocator;
+                                        const content: UnicodeString): boolean; virtual;
+    function writeComment(const locator: TdomLocator;
+                          const content: UnicodeString): boolean; virtual;
+    function writeCDATA(const locator: TdomLocator;
+                        const content: UnicodeString): boolean; virtual;
+    function writePCDATA(const locator: TdomLocator;
+                         const content: UnicodeString): boolean; virtual;
+    function writeStartDocument(const locator: TdomLocator;
+                                      version,
+                                      encName: UnicodeString;
+                                      sdDl: TdomStandalone): boolean; virtual;
+    function writeStartElement(const locator: TdomLocator;
+                               const content: UnicodeString;
+                                 out tagName: UnicodeString): boolean; virtual;
+    function writeStartPrefixMapping(const locator: TdomLocator;
+                                           prefix,
+                                           uri: UnicodeString): boolean; virtual;
+    function writeEndDocument(const locator: TdomLocator): boolean; virtual;
+    function writeEndElement(const locator: TdomLocator;
+                             const content: UnicodeString): boolean; virtual;
+    function writeEndPrefixMapping(const locator: TdomLocator;
+                                         prefix: UnicodeString): boolean; virtual;
+    function writeEmptyElement(const locator: TdomLocator;
+                               const content: UnicodeString): boolean; virtual;
+    function writeCharRef(const locator: TdomLocator;
+                          const content: UnicodeString): boolean; virtual;
+    function writeEntityRef(const locator: TdomLocator;
+                            const content: UnicodeString): boolean; virtual;
+    function writeDoctype(const locator: TdomLocator;
+                          const content: UnicodeString): boolean; virtual;
+  public
+    constructor create(AOwner: TComponent); override;
+    destructor destroy; override;
+    function  parse(const inputSource: TXmlInputSource):boolean; virtual;
+  published
+    property PrefixMapping: boolean read FPrefixMapping write FPrefixMapping;
+    property SuppressXmlns: boolean read FSuppressXmlns write FSuppressXmlns;
+  end;
+
+  TXmlStandardDtdReader = class (TXmlCustomReader)
+  private
+    function findNextAttDef(const Decl: UnicodeString;
+                              var aname,
+                                  attType,
+                                  Bracket,
+                                  defaultDecl,
+                                  attValue,
+                                  Rest: UnicodeString): boolean;
+  protected
+    function includeAsPE(const inputSource: TXmlInputSource;
+                           var s: UnicodeString): boolean; virtual;
+    function includeInLiteral(const inputSource: TXmlInputSource;
+                                var s: UnicodeString): boolean; virtual;
+    function writeConditionalSection(const locator: TdomLocator;
+                                     const content: UnicodeString): boolean; virtual;
+    function writeDTDProcessingInstruction(const locator: TdomLocator;
+                                           const content: UnicodeString): boolean; virtual;
+    function writeDTDComment(const locator: TdomLocator;
+                             const content: UnicodeString): boolean; virtual;
+    function writeParameterEntityRef(const locator: TdomLocator;
+                                     const content: UnicodeString): boolean; virtual;
+    function writeEntityDeclaration(const locator: TdomLocator;
+                                    const content: UnicodeString): boolean; virtual;
+    function writeElementDeclaration(const locator: TdomLocator;
+                                     const content: UnicodeString): boolean; virtual;
+    function writeAttributeDeclaration(const locator: TdomLocator;
+                                       const content: UnicodeString): boolean; virtual;
+    function writeNotationDeclaration(const locator: TdomLocator;
+                                      const content: UnicodeString): boolean; virtual;
+    function writeStartExtDtd(const locator: TdomLocator;
+                                    version,
+                                    encName: UnicodeString): boolean; virtual;
+    function writeStartIntDtd(const locator: TdomLocator): boolean; virtual;
+  public
+    function  parseExternalSubset(const inputSource: TXmlInputSource):boolean; virtual;
+    function  parseInternalSubset(const inputSource: TXmlInputSource):boolean; virtual;
+  end;
+
+  TXmlCustomDomReader = class (TXmlCustomReader)
+  protected
+    FPrefixMapping: boolean;
+    FSuppressXmlns: boolean;
+    function parseloop(const sourceNode: TdomNode): boolean; virtual;
+    function writeCDATA(const locator: TdomLocator;
+                        const content: UnicodeString): boolean; virtual;
+    function writeCharRef(const locator: TdomLocator;
+                          const content: UnicodeString): boolean; virtual;
+    function writeComment(const locator: TdomLocator;
+                          const content: UnicodeString): boolean; virtual;
+    function writeDoctype(const locator: TdomLocator;
+                          const aname,
+                                publicId,
+                                systemId,
+                                intSubset: UnicodeString): boolean; virtual;
+    function writeEmptyElement(const locator: TdomLocator;
+                               const tagName: UnicodeString;
+                               const attributeList: TdomNameValueList): boolean; virtual;
+    function writeEndDocument(const locator: TdomLocator): boolean; virtual;
+    function writeEndElement(const locator: TdomLocator;
+                             const tagName: UnicodeString): boolean; virtual;
+    function writeEndPrefixMapping(const locator: TdomLocator;
+                                         prefix: UnicodeString): boolean; virtual;
+    function writeEntityRef(const locator: TdomLocator;
+                            const entityName: UnicodeString): boolean; virtual;
+    function writePCDATA(const locator: TdomLocator;
+                         const content: UnicodeString): boolean; virtual;
+    function writeProcessingInstruction(const locator: TdomLocator;
+                                        const targ,
+                                              attribSequence : UnicodeString): boolean; virtual;
+    function writeStartDocument(const locator: TdomLocator;
+                                      version,
+                                      encName: UnicodeString;
+                                      sdDl: TdomStandalone): boolean; virtual;
+    function writeStartElement(const locator: TdomLocator;
+                               const tagName: UnicodeString;
+                               const attributeList: TdomNameValueList): boolean; virtual;
+    function writeStartPrefixMapping(const locator: TdomLocator;
+                                           prefix,
+                                           uri: UnicodeString): boolean; virtual;
+    property PrefixMapping: boolean read FPrefixMapping write FPrefixMapping;
+    property SuppressXmlns: boolean read FSuppressXmlns write FSuppressXmlns;
+  public
+    constructor create(AOwner: TComponent); override;
+  end;
+
+  TXmlStandardDomReader = class (TXmlCustomDomReader)
+  public
+    function  parse(const sourceNode: TdomNode): boolean; virtual;
+  published
+   property PrefixMapping;
+   property SuppressXmlns;
+  end;
+
+  TXmlStandardCMReader = class (TXmlCustomReader)
+  protected
+    function writeAttributeDefinition(const locator: TdomLocator;
+                                            aname,
+                                            attType,
+                                            bracket,
+                                            defaultDecl,
+                                            attValue: UnicodeString): boolean; virtual;
+    function writeDTDComment(const locator: TdomLocator;
+                                   content: UnicodeString): boolean; virtual;
+    function writeDTDProcessingInstruction(const locator: TdomLocator;
+                                                 targ,
+                                                 attribSequence : UnicodeString): boolean; virtual;
+    function writeElementTypeDeclaration(const locator: TdomLocator;
+                                               aname,
+                                               data: UnicodeString): boolean; virtual;
+    function writeEndAttListDeclaration(const locator: TdomLocator): boolean; virtual;
+    function writeEndExtDtd(const locator: TdomLocator): boolean; virtual;
+    function writeEndIntDtd(const locator: TdomLocator): boolean; virtual;
+    function writeEntityDeclaration(const locator: TdomLocator;
+                                          aname,
+                                          entityValue,
+                                          pubId,
+                                          sysId,
+                                          notaName: UnicodeString): boolean; virtual;
+    function writeNotationDeclaration(const locator: TdomLocator;
+                                            aname,
+                                            pubId,
+                                            sysId: UnicodeString): boolean; virtual;
+    function writeParameterEntityRef(const locator: TdomLocator;
+                                           content: UnicodeString): boolean; virtual;
+    function writeStartAttListDeclaration(const locator: TdomLocator;
+                                                aname: UnicodeString): boolean; virtual;
+    function writeStartExtDtd(const locator: TdomLocator;
+                                    version,
+                                    encName: UnicodeString): boolean; virtual;
+    function writeStartIntDtd(const locator: TdomLocator): boolean; virtual;
+    function parseloop(const sourceCMNode: TdomCMNode): boolean; virtual;
+  public
+    function  parse(const sourceCMNode: TdomCMNode): boolean; virtual;
+  end;
+
+  TXmlCustomParser = class (TComponent)
+  private
+    FDOMImpl: TDomImplementation;
+  protected
+    procedure setDomImpl(const impl: TDomImplementation); virtual;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  published
+    constructor create(aOwner: TComponent); override;
+    property DOMImpl: TDomImplementation read FDOMImpl write setDomImpl;
+  end;
+
+  TXmlCMAnalyzer = class (TXmlCustomParser)
+  protected
+    FCMReader: TXmlStandardCMReader;
+    FCMBuilder: TXmlCMBuilder;  // xxx will be replaced by TXmlASBuilder in the future.
+    FDtdReader: TXmlStandardDtdReader;
+    procedure setDomImpl(const impl: TDomImplementation); override;
+  public
+    constructor create(aOwner: TComponent); override;
+    destructor destroy; override;
+    function analyzeCM(const source: TdomCustomCMIEObject;
+                       const target: TdomCMObject): boolean; virtual;
+    procedure analyzeIntDTDStr(      str: UnicodeString;
+                               const target: TdomCMObject); virtual;
+  end;
+
+  TXmlToDomParser = class (TXmlCustomParser)
+  protected
+    FDtdBuilder: TXmlDtdBuilder;
+    FDtdReader:  TXmlStandardDtdReader;
+    FDocBuilder: TXmlDocBuilder;
+    FDocReader:  TXmlStandardDocReader;
+    FTabWidth: integer;
+    FWFTestContentHandler: TXmlWFTestContentHandler;
+    FWFTestDtdHandler: TXmlWFTestDtdHandler;
+    procedure doExternalSubset(const parentSystemId: UnicodeString;
+                                 var publicId,
+                                     systemId: UnicodeString;
+                                 var stream: TStream;
+                                 var action: TXmlParserAction); virtual;
+    function processDocFile(const pubId,
+                                  sysId: UnicodeString): boolean; virtual;
+    function processDocSourceCode(const intDtdSourceCode: TXmlSourceCode;
+                                  const pubId,
+                                        sysId: UnicodeString): boolean; virtual;
+    function processDocStream(const stream: TStream;
+                              const pubId,
+                                    sysId: UnicodeString): boolean; virtual;
+    function processDocString(const str: ansiString;
+                              const pubId,
+                                    sysId: UnicodeString): boolean; virtual;
+    function processDocWideString(str: UnicodeString;
+                                  const pubId,
+                                        sysId: UnicodeString): boolean; virtual;
+    function processDtd(const doc: TdomDocument): boolean; virtual;
+    function processExtDtdFile(const pubId,
+                                     sysId: UnicodeString): boolean; virtual;
+    function processExtDtdSourceCode(const intDtdSourceCode: TXmlSourceCode;
+                                     const pubId,
+                                           sysId: UnicodeString): boolean; virtual;
+    function processExtDtdStream(const stream: TStream;
+                                 const pubId,
+                                       sysId: UnicodeString): boolean; virtual;
+    function processExtDtdString(const str: AnsiString;
+                                 const pubId,
+                                       sysId: UnicodeString): boolean; virtual;
+    function processExtDtdWideString(str: UnicodeString;
+                                     const pubId,
+                                           sysId: UnicodeString): boolean; virtual;
+    function processIntDtdFile(const pubId,
+                                     sysId: UnicodeString): boolean; virtual;
+    function processIntDtdSourceCode(const intDtdSourceCode: TXmlSourceCode;
+                                     const pubId,
+                                           sysId: UnicodeString): boolean; virtual;
+    function processIntDtdStream(const stream: TStream;
+                                 const pubId,
+                                       sysId: UnicodeString): boolean; virtual;
+    function processIntDtdString(const str: AnsiString;
+                                 const pubId,
+                                       sysId: UnicodeString): boolean; virtual;
+    function processIntDtdWideString(str: UnicodeString;
+                                     const pubId,
+                                           sysId: UnicodeString): boolean; virtual;
+    function sendErrorNotification(const xmlErrorType: TXmlErrorType): boolean; virtual;
+    procedure setDomImpl(const impl: TDomImplementation); override;
+    procedure setTabWidth(const value: integer); virtual;
+  public
+    constructor create(aOwner: TComponent); override;
+    procedure docSourceCodeToDom(const docSourceCode: TXmlSourceCode;
+                                 const pubId,
+                                       sysId: UnicodeString;
+                                 const refNode: TdomNode); virtual;
+    procedure docStreamToDom(const stream: TStream;
+                             const pubId,
+                                   sysId: UnicodeString;
+                             const refNode: TdomNode); virtual;
+    procedure docStringToDom(const Str: Ansistring;
+                             const pubId,
+                                   sysId: UnicodeString;
+                             const refNode: TdomNode); virtual;
+    procedure docWideStringToDom(      str: UnicodeString;
+                                 const pubId,
+                                       sysId: UnicodeString;
+                                 const refNode: TdomNode); virtual;
+    procedure extDtdSourceCodeToDom(const ExtDtdSourceCode: TXmlSourceCode;
+                                    const pubId,
+                                          sysId: UnicodeString;
+                                    const refNode: TdomCMNode); virtual;
+    procedure extDtdStreamToDom(const stream: TStream;
+                                const pubId,
+                                      sysId: UnicodeString;
+                                const refNode: TdomCMNode); virtual;
+    procedure extDtdStringToDom(const str: Ansistring;
+                                const pubId,
+                                      sysId: UnicodeString;
+                                const refNode: TdomCMNode); virtual;
+    procedure extDtdWideStringToDom(      str: UnicodeString;
+                                    const pubId,
+                                          sysId: UnicodeString;
+                                    const refNode: TdomCMNode); virtual;
+    procedure intDtdSourceCodeToDom(const IntDtdSourceCode: TXmlSourceCode;
+                                    const pubId,
+                                          sysId: UnicodeString;
+                                    const refNode: TdomCMNode); virtual;
+    procedure intDtdStreamToDom(const stream: TStream;
+                                const pubId,
+                                      sysId: UnicodeString;
+                                const refNode: TdomCMNode); virtual;
+    procedure intDtdStringToDom(const str: Ansistring;
+                                const pubId,
+                                      sysId: UnicodeString;
+                                const refNode: TdomCMNode); virtual;
+    procedure intDtdWideStringToDom(      str: UnicodeString;
+                                    const pubId,
+                                          sysId: UnicodeString;
+                                    const refNode: TdomCMNode); virtual;
+    function fileToDom(const filename: TFileName): TdomDocument; virtual;
+    function sourceCodeToDom(const sc: TXmlSourceCode): TdomDocument; virtual;
+    function streamToDom(const stream: TStream): TdomDocument; virtual;
+    function stringToDom(const str: AnsiString): TdomDocument; virtual;
+    function wideStringToDom(str: UnicodeString): TdomDocument; virtual;
+  published
+    property TabWidth: integer read FTabWidth write setTabWidth default 1;
+  end;
+
+  TDomToXmlParser = class (TXmlCustomParser)
+  protected
+    FStreamBuilder: TXmlStreamBuilder;
+    FDomReader:  TXmlStandardDomReader;
+    function getNewLine: TdomNewLineType; virtual;
+    procedure setNewLine(const value: TdomNewLineType); virtual;
+  public
+    constructor create(aOwner: TComponent); override;
+    function writeToStream(const wnode: TdomNode;
+                           const encoding: UnicodeString;
+                           const destination: TStream): boolean; virtual;
+    function writeToString(const wnode: TdomNode;
+                           const encoding: UnicodeString;
+                             out S: Ansistring): boolean; virtual;
+    function writeToWideString(const wnode: TdomNode;
+                                 out S: UnicodeString): boolean; virtual;
+  published
+    property newLine: TdomNewLineType read getNewLine write setNewLine;
+  end;
+
+  TCMToXmlParser = class (TXmlCustomParser)
+  protected
+    FStreamBuilder: TXmlStreamBuilder;
+    FCMReader:  TXmlStandardCMReader;
+    function getNewLine: TdomNewLineType; virtual;
+    procedure setNewLine(const value: TdomNewLineType); virtual;
+  public
+    constructor create(aOwner: TComponent); override;
+    function writeToStream(const wnode: TdomCMNode;
+                           const encoding: UnicodeString;
+                           const destination: TStream): boolean; virtual;
+    function writeToString(const wnode: TdomCMNode;
+                           const encoding: UnicodeString;
+                             out S: Ansistring): boolean; virtual;
+    function writeToWideString(const wnode: TdomCMNode;
+                                 out S: UnicodeString): boolean; virtual;
+  published
+    property newLine: TdomNewLineType read getNewLine write setNewLine;
+  end;
+
+{DOM XPath}
+  TdomXPathTokenType = ( XPATH_LEFT_PARENTHESIS_TOKEN,
+                         XPATH_RIGHT_PARENTHESIS_TOKEN,
+                         XPATH_LEFT_SQUARE_BRACKET_TOKEN,
+                         XPATH_RIGHT_SQUARE_BRACKET_TOKEN,
+                         XPATH_SINGLE_DOT_TOKEN,
+                         XPATH_DOUBLE_DOT_TOKEN,
+                         XPATH_COMMERCIAL_AT_TOKEN,
+                         XPATH_COMMA_TOKEN,
+                         XPATH_DOUBLE_COLON_TOKEN,
+                         XPATH_NAME_TEST_TOKEN,
+                         XPATH_NODE_TYPE_COMMENT_TOKEN,
+                         XPATH_NODE_TYPE_TEXT_TOKEN,
+                         XPATH_NODE_TYPE_PI_TOKEN,
+                         XPATH_NODE_TYPE_NODE_TOKEN,
+                         XPATH_AND_OPERATOR_TOKEN,
+                         XPATH_OR_OPERATOR_TOKEN,
+                         XPATH_MOD_OPERATOR_TOKEN,
+                         XPATH_DIV_OPERATOR_TOKEN,
+                         XPATH_MULTIPLY_OPERATOR_TOKEN,
+                         XPATH_SLASH_OPERATOR_TOKEN,
+                         XPATH_SHEFFER_STROKE_OPERATOR_TOKEN,
+                         XPATH_PLUS_OPERATOR_TOKEN,
+                         XPATH_MINUS_OPERATOR_TOKEN,
+                         XPATH_IS_EQUAL_OPERATOR_TOKEN,
+                         XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN,
+                         XPATH_LESS_THAN_OPERATOR_TOKEN,
+                         XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN,
+                         XPATH_GREATER_THAN_OPERATOR_TOKEN,
+                         XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN,
+                         XPATH_FUNCTION_NAME_TOKEN,
+                         XPATH_AXIS_NAME_ANCESTOR_TOKEN,
+                         XPATH_AXIS_NAME_ANCESTOR_OR_SELF_TOKEN,
+                         XPATH_AXIS_NAME_ATTRIBUTE_TOKEN,
+                         XPATH_AXIS_NAME_CHILD_TOKEN,
+                         XPATH_AXIS_NAME_DESCENDANT_TOKEN,
+                         XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN,
+                         XPATH_AXIS_NAME_FOLLOWING_TOKEN,
+                         XPATH_AXIS_NAME_FOLLOWING_SIBLING_TOKEN,
+                         XPATH_AXIS_NAME_NAMESPACE_TOKEN,
+                         XPATH_AXIS_NAME_PARENT_TOKEN,
+                         XPATH_AXIS_NAME_PRECEDING_TOKEN,
+                         XPATH_AXIS_NAME_PRECEDING_SIBLING_TOKEN,
+                         XPATH_AXIS_NAME_SELF_TOKEN,
+                         XPATH_LITERAL_TOKEN,
+                         XPATH_NUMBER_TOKEN,
+                         XPATH_VARIABLE_REFERENCE_TOKEN,
+                         XPATH_END_OF_TEXT_TOKEN,
+                         XPATH_INVALID_TOKEN
+                       );
+
+  TdomXPathAxisType = ( XPATH_FORWARD_AXIS, XPATH_REVERSE_AXIS );
+
+  TdomXPathSyntaxNode = class;
+
+  TdomXPathSyntaxNodeStack = class
+  private
+    FNodeList: TList;
+  protected
+    function getLength: integer; virtual;
+  public
+    constructor create; virtual;
+    destructor destroy; override;
+    procedure clear; virtual;
+    function peek(offset: integer): TdomXPathSyntaxNode; virtual;
+    function pop: TdomXPathSyntaxNode; virtual;
+    function push(node: TdomXPathSyntaxNode): TdomXPathSyntaxNode; virtual;
+    property length: integer read getLength;
+  end;
+
+  TdomXPathSyntaxNode = class
+  protected
+    FLeft: TdomXPathSyntaxNode;
+    FRight: TdomXPathSyntaxNode;
+    FValue: UnicodeString;
+  public
+    constructor create(const value: UnicodeString); virtual;
+    destructor destroy; override;
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; virtual;
+    property left: TdomXPathSyntaxNode read FLeft write FLeft;
+    property right: TdomXPathSyntaxNode read FRight write FRight;
+    property value: UnicodeString read FValue;
+  end;
+
+  // Cf. XPath 1.0, prod. [2].
+  TdomXPathAbsoluteLocationPath = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [4].
+  TdomXPathStep = class(TdomXPathSyntaxNode)
+  public
+    function addStep(const step: TdomXPathStep): boolean; virtual;
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+    function evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                       const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult; virtual;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  // This class is only used as a common ancestor of the axis name classes below.
+  TdomXPathCustomAxisName = class(TdomXPathSyntaxNode)
+  protected
+    FAxisType: TdomXPathAxisType;
+    FPrincipalNodeType: TdomNodeType;
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; virtual; abstract;
+  public
+    constructor create(const avalue: UnicodeString); override;
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+    function evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                       const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult; virtual;
+    property axisType: TdomXPathAxisType read FAxisType;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameAncestor = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  public
+    constructor create(const avalue: UnicodeString); override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameAncestorOrSelf = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  public
+    constructor create(const avalue: UnicodeString); override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameAttribute = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  public
+    constructor create(const avalue: UnicodeString); override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameChild = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameDescendant = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameDescendantOrSelf = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameFollowing = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameFollowingSibling = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameNamespace = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  public
+    constructor create(const avalue: UnicodeString); override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameParent = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNamePreceding = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  public
+    constructor create(const avalue: UnicodeString); override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNamePrecedingSibling = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  public
+    constructor create(const avalue: UnicodeString); override;
+  end;
+
+  // Cf. XPath 1.0, prod. [6].
+  TdomXPathAxisNameSelf = class(TdomXPathCustomAxisName)
+  protected
+    function getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [7].
+  TdomXPathNodeTest = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+    function evaluate2(const oldsnapshotResult: TdomXPathSnapshotResult;
+                       const principalNodeType: TdomNodeType;
+                       const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult; virtual;
+  end;
+
+  // Cf. XPath 1.0, prod. [8].
+  TdomXPathPredicate = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+    function evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                       const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult; virtual;
+  end;
+
+  // Cf. XPath 1.0, prod. [14].
+  TdomXPathExpr = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [15].
+  TdomXPathPrimaryExpr = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [16].
+  TdomXPathFunctionCall = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [17].
+  TdomXPathArgument = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [18].
+  TdomXPathUnionExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [19].
+  TdomXPathPathExpr = class(TdomXPathSyntaxNode)
+  public
+    function addStep(const step: TdomXPathStep): boolean; virtual;
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [20].
+  TdomXPathFilterExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [21].
+  TdomXPathOrExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [22].
+  TdomXPathAndExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [23].
+  TdomXPathIsEqualExpr = class(TdomXPathSyntaxNode)
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [23].
+  TdomXPathIsNotEqualExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [24].
+  TdomXPathLessThanExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [24].
+  TdomXPathLessThanOrEqualExpr = class(TdomXPathSyntaxNode)
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [24].
+  TdomXPathGreaterThanExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [24].
+  TdomXPathGreaterThanOrEqualExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [25].
+  TdomXPathPlusExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [25].
+  TdomXPathMinusExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [26].
+  TdomXPathMultiplyExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [26].
+  TdomXPathDivExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [26].
+  TdomXPathModExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [27].
+  TdomXPathUnaryExpr = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathLeftParenthesis = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathRightParenthesis = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathLeftSquareBracket = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathRightSquareBracket = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathSingleDot = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathDoubleDot = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathCommercialAt = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathComma = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [28].
+  TdomXPathDoubleColon = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [29].
+  TdomXPathLiteral = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [30].
+  TdomXPathNumber = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathSlashOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathShefferStrokeOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathPlusOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathMinusOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathIsEqualOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathIsNotEqualOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathLessThanOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathLessThanOrEqualOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathGreaterThanOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [32].
+  TdomXPathGreaterThanOrEqualOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [33].
+  TdomXPathAndOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [33].
+  TdomXPathOrOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [33].
+  TdomXPathModOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [33].
+  TdomXPathDivOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [34].
+  TdomXPathMultiplyOperator = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [35].
+  TdomXPathFunctionName = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [36].
+  TdomXPathVariableReference = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+  end;
+
+  // Cf. XPath 1.0, prod. [37].
+  TdomXPathNameTest = class(TdomXPathSyntaxNode)
+  protected
+    FPrefix: UnicodeString;
+    FLocalName: UnicodeString;
+  public
+    constructor create(const avalue: UnicodeString); override;
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+    function evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                       const principalNodeType: TdomNodeType;
+                       const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult; virtual;
+  end;
+
+  // Cf. XPath 1.0, prod. [38].
+  TdomXPathNodeTypeComment = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+    function evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult): TdomXPathSnapshotResult; virtual;
+  end;
+
+  // Cf. XPath 1.0, prod. [38].
+  TdomXPathNodeTypeNode = class(TdomXPathSyntaxNode)
+  end;
+
+  // Cf. XPath 1.0, prod. [38].
+  TdomXPathNodeTypePI = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+    function evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult): TdomXPathSnapshotResult; virtual;
+  end;
+
+  // Cf. XPath 1.0, prod. [38].
+  TdomXPathNodeTypeText = class(TdomXPathSyntaxNode)
+  public
+    function evaluate(const contextNode: TdomNode;
+                      const oldResult: TdomXPathResult;
+                      const resolver: TdomXPathNSResolver): TdomXPathResult; override;
+    function evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult): TdomXPathSnapshotResult; virtual;
+  end;
+
+  TdomXPathSlashStatus = ( SL_NO_DOUBLE_SLASH,
+                           SL_XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN_FOLLOWS,
+                           SL_XPATH_DOUBLE_COLON_TOKEN_FOLLOWS,
+                           SL_XPATH_NODE_TYPE_NODE_TOKEN_FOLLOWS,
+                           SL_XPATH_LEFT_PARENTHESIS_FOLLOWS,
+                           SL_XPATH_RIGHT_PARENTHESIS_FOLLOWS,
+                           SL_XPATH_SLASH_OPERATOR_TOKEN_FOLLLOWS );
+
+  TdomXPathTokenizer = class
+  protected
+    FCacheIsActive: boolean;
+    FDoubleSlashStatus: TdomXPathSlashStatus;
+    FExpression: UnicodeString;
+    FLastSymbol: TdomXPathTokenType;
+    FPosition: integer;
+    FPositionCache: integer;
+    FSymbolCache: TdomXPathTokenType;
+    FValueCache: UnicodeString;
+    function doubleColonFollows: boolean; virtual;
+    function getNextWideChar(out s: wideChar): boolean; virtual;
+    function leftParanthesisFollows: boolean; virtual;
+    function lookAheadNextWideChar(out s: wideChar): boolean; virtual;
+  public
+    constructor create(const expression: UnicodeString;
+                       const xpathVersion: UnicodeString); virtual;
+    function isFollowing(const symbol: TdomXPathTokenType): boolean; virtual;
+    procedure read(out symbol: TdomXPathTokenType;
+                   out value: UnicodeString;
+                   out position: integer); virtual;
+    procedure reset; virtual;
+  end;
+
+  TdomXPathExpression = class
+  protected
+    FIsPrepared: boolean;           // Indicates whether the syntax tree has already been build.
+    FIsValid: boolean;              // Indicates whether there was a syntax error found during preparation.
+    FExpression: UnicodeString;        // Holds the expression to be evaluated.
+    FOwnerDocument: TdomDocument;   // The Document that created this XPath Expression.
+    FResolver: TdomXPathNSResolver; // Points to the namespace resolver to be used.
+    FSyntaxTree: TdomXPathExpr;     // Holds the root node of the XPath syntax tree if the expression was valid.
+    function createSyntaxNode(const symbol: TdomXPathTokenType;
+                              const value: UnicodeString): TdomXPathSyntaxNode; virtual;
+  public
+    constructor create(const aOwner: TdomDocument;
+                       const expression: UnicodeString;
+                       const resolver: TdomXPathNSResolver); virtual;
+    function evaluate(const contextNode: TdomNode;
+                      const typeCodes: TdomXPathResultTypes;
+                      const oldResult: TdomXPathResult): TdomXPathResult; virtual;
+    function prepare: boolean; virtual;
+  end;
+
+  TdomXPathNSResolver = class
+  protected
+    FPrefixUriList: TdomNameValueList;
+  public
+    constructor create(const resolverNode: TdomNode); virtual;
+    destructor destroy;  override;
+    function lookupNamespaceURI(const prefix: UnicodeString): UnicodeString; virtual;
+  end;
+
+  TdomXPathResult = class
+  protected
+    FResultType: TdomXPathResultType;
+  public
+    property resultType: TdomXPathResultType read FResultType;
+  end;
+
+  TdomXPathSnapshotResult = class(TdomXPathResult)
+  protected
+    FAxisType: TdomXPathAxisType;
+    FList: TList;
+    procedure add(const node: TdomNode); virtual;
+    procedure addSnapshotResult(const ir: TdomXPathSnapshotResult); virtual;
+    procedure addSubtree(const node: TdomNode); virtual;
+    procedure delete(const index: integer); virtual;
+    function getSnapshotLength: integer; virtual;
+    procedure setAxisType(const value: TdomXPathAxisType); virtual;
+    property axisType: TdomXPathAxisType read FAxisType write setAxisType default XPATH_FORWARD_AXIS;
+  public
+    constructor create; virtual;
+    destructor destroy; override;
+    function snapshotItem(const index: integer): TdomNode; virtual;
+    property snapshotLength: integer read getSnapshotLength;
+  end;
+
+  TdomXPathBooleanResult = class(TdomXPathResult)
+  protected
+    FBooleanValue: boolean;
+  public
+    constructor create(const aBooleanValue: boolean); virtual;
+    property booleanValue: boolean read FBooleanValue;
+  end;
+
+  TdomXPathNumberResult = class(TdomXPathResult)
+  protected
+    FNumberValue: double;
+  public
+    constructor create(const aNumberValue: double); virtual;
+    property numberValue: double read FNumberValue;
+  end;
+
+  TdomXPathStringResult = class(TdomXPathResult)
+  protected
+    FStringValue: UnicodeString;
+  public
+    constructor create(const aStringValue: UnicodeString); virtual;
+    property stringValue: UnicodeString read FStringValue;
+  end;
+
+// XPathFunctions
+function XPathBooleanFunc(const oldResult: TdomXPathResult): TdomXPathBooleanResult;
+function XPathNumberFunc(const oldResult: TdomXPathResult): TdomXPathNumberResult;
+function XPathStringFunc(const oldResult: TdomXPathResult): TdomXPathStringResult;
+
+// UnicodeString Handling Routines
+function trimWhitespace(S: UnicodeString): UnicodeString;
+function trimWhitespaceLeft(S: UnicodeString): UnicodeString;
+function trimWhitespaceRight(S: UnicodeString): UnicodeString;
+
+// Routines for XML Namespace Processing
+function xmlExtractPrefix(const qualifiedName: UnicodeString): UnicodeString;
+function xmlExtractLocalName(const qualifiedName: UnicodeString): UnicodeString;
+function xmlExtractPrefixAndLocalName(const qualifiedName: UnicodeString;
+                                        out prefix,
+                                            localName: UnicodeString): boolean;
+
+// Routines for Testing XML Rules
+function isXmlChar(const S: WideChar): boolean;
+function IsXmlWhiteSpace(const S: WideChar): boolean;
+function isXmlLetter(const S: WideChar): boolean;
+function isXmlBaseChar(const S: WideChar): boolean;
+function isXmlIdeographic(const S: WideChar): boolean;
+function isXmlCombiningChar(const S: WideChar): boolean;
+function isXmlDigit(const S: WideChar): boolean;
+function isXmlExtender(const S: WideChar): boolean;
+function isXmlNameChar(const S: WideChar): boolean;
+function isXmlPubidChar(const S: WideChar): boolean;
+
+function isXmlChars(const S: UnicodeString): boolean;
+function isXmlS(const S: UnicodeString): boolean;
+function isXmlName(const S: UnicodeString): boolean;
+function isXmlNames(const S: UnicodeString): boolean;
+function isXmlNmtoken(const S: UnicodeString): boolean;
+function isXmlNmtokens(const S: UnicodeString): boolean;
+function isXmlCharRef(const S: UnicodeString): boolean;
+function isXmlEntityRef(const S: UnicodeString): boolean;
+function isXmlPEReference(const S: UnicodeString): boolean;
+function isXmlReference(const S: UnicodeString): boolean;
+function isXmlEntityValue(const S: UnicodeString): boolean;
+function isXmlEntityValueChars(const S: UnicodeString): boolean;
+function isXmlAttValue(const S: UnicodeString): boolean;
+function isXmlSystemLiteral(const S: UnicodeString): boolean;
+function isXmlSystemChars(const S: UnicodeString): boolean;
+function isXmlPubidLiteral(const S: UnicodeString): boolean;
+function isXmlPubidChars(const S: UnicodeString): boolean;
+function isXmlComment(const S: UnicodeString): boolean;
+function isXmlCData(const S: UnicodeString): boolean;
+function isXmlCharData(const S: UnicodeString): boolean;
+function isXmlPITarget(const S: UnicodeString): boolean;
+function isXmlVersionNumChar(const S: WideChar): boolean;
+function isXmlVersionNum(const S: UnicodeString): boolean;
+function isXmlEncNameLeadingChar(const s: WideChar): boolean;
+function isXmlEncNameFollowingChar(const s: WideChar): boolean;
+function isXmlEncName(const S: UnicodeString): boolean;
+function isXmlStringType(const S: UnicodeString): boolean;
+function isXmlTokenizedType(const S: UnicodeString): boolean;
+
+function isXmlNCNameChar(const s: WideChar): boolean;
+function isXmlNCName(const S: UnicodeString): boolean;
+function isXmlDefaultAttName(const S: UnicodeString): boolean;
+function isXmlPrefixedAttName(const S: UnicodeString): boolean;
+function isXmlNSAttName(const S: UnicodeString): boolean;
+function isXmlLocalPart(const S: UnicodeString): boolean;
+function isXmlPrefix(const S: UnicodeString): boolean;
+function isXmlQName(const S: UnicodeString): boolean;
+
+// Character Encoding Conversion
+function resolveCharRefs(const S: UnicodeString): UnicodeString;
+function xmlIntToCharRef(const value: integer): UnicodeString;
+function xmlCharRefToInt(const S: UnicodeString): integer;
+function xmlCharRefToStr(const S: UnicodeString): UnicodeString;
+function xmlStrToCharRef(const S: UnicodeString): UnicodeString;
+
+// Augmented Backus-Naur Form (ABNF) Core Rules (cf. RFC 2234, 6.1)
+function isAbnfALPHAWideChar(c: wideChar): boolean;
+function isAbnfBITWideChar(c: wideChar): boolean;
+function isAbnfCHARWideChar(c: wideChar): boolean;
+function isAbnfCRWideChar(c: wideChar): boolean;
+function isAbnfCRLFWideStr(s: UnicodeString): boolean;
+function isAbnfCTLWideChar(c: wideChar): boolean;
+function isAbnfDIGITWideChar(c: wideChar): boolean;
+function isAbnfDQUOTEWideChar(c: wideChar): boolean;
+function isAbnfHEXDIGWideChar(c: wideChar): boolean;
+function isAbnfHTABWideChar(c: wideChar): boolean;
+function isAbnfLFWideChar(c: wideChar): boolean;
+function isAbnfLWSPWideStr(s: UnicodeString): boolean;
+function isAbnfOCTETWideChar(c: wideChar): boolean;
+function isAbnfSPWideChar(c: wideChar): boolean;
+function isAbnfVCHARWideChar(c: wideChar): boolean;
+function isAbnfWSPWideChar(c: wideChar): boolean;
+
+function isAbnfALPHAChar(c: Ansichar): boolean;
+function isAbnfBITChar(c: AnsiChar): boolean;
+function isAbnfCHARChar(c: AnsiChar): boolean;
+function isAbnfCRChar(c: AnsiChar): boolean;
+function isAbnfCRLFStr(s: AnsiString): boolean;
+function isAbnfCTLChar(c: AnsiChar): boolean;
+function isAbnfDIGITChar(c: AnsiChar): boolean;
+function isAbnfDQUOTEChar(c: AnsiChar): boolean;
+function isAbnfHEXDIGChar(c: AnsiChar): boolean;
+function isAbnfHTABChar(c: AnsiChar): boolean;
+function isAbnfLFChar(c: AnsiChar): boolean;
+function isAbnfLWSPStr(s: AnsiString): boolean;
+function isAbnfOCTETChar(c: AnsiChar): boolean;
+function isAbnfSPChar(c: AnsiChar): boolean;
+function isAbnfVCHARChar(c: AnsiChar): boolean;
+function isAbnfWSPChar(c: AnsiChar): boolean;
+
+// URI Rules (cf. RFC 2396, App. A)
+function isUriURI_referenceWideStr(s: UnicodeString): boolean;
+function isUriAbsoluteURIWideStr(s: UnicodeString): boolean;
+function isUriRelativeURIWideStr(s: UnicodeString): boolean;
+function isUriHier_partWideStr(s: UnicodeString): boolean;
+function isUriOpaque_partWideStr(s: UnicodeString): boolean;
+function isUriNet_pathWideStr(s: UnicodeString): boolean;
+function isUriAbs_pathWideStr(s: UnicodeString): boolean;
+function isUriRel_pathWideStr(s: UnicodeString): boolean;
+function isUriRel_segmentWideStr(s: UnicodeString): boolean;
+function isUriSchemeWideStr(s: UnicodeString): boolean;
+function isUriAuthorityWideStr(s: UnicodeString): boolean;
+function isUriReg_nameWideStr(s: UnicodeString): boolean;
+function isUriServerWideStr(s: UnicodeString): boolean;
+function isUriUserinfoWideStr(s: UnicodeString): boolean;
+function isUriHostPortWideStr(s: UnicodeString): boolean;
+function isUriHostWideStr(s: UnicodeString): boolean;
+function isUriHostnameWideStr(s: UnicodeString): boolean;
+function isUriDomainlabelWideStr(s: UnicodeString): boolean;
+function isUriToplabelWideStr(s: UnicodeString): boolean;
+function isUriIPv4addressWideStr(s: UnicodeString): boolean;
+function isUriPortWideStr(s: UnicodeString): boolean;
+function isUriPathWideStr(s: UnicodeString): boolean;
+function isUriPath_segmentsWideStr(s: UnicodeString): boolean;
+function isUriSegmentWideStr(s: UnicodeString): boolean;
+function isUriParamWideStr(s: UnicodeString): boolean;
+function isUriQueryWideStr(s: UnicodeString): boolean;
+function isUriFragmentWideStr(s: UnicodeString): boolean;
+function isUriUricWideStr(s: UnicodeString): boolean;
+function isUriReservedWideChar(c: wideChar): boolean;
+function isUriUnreservedWideChar(c: wideChar): boolean;
+function isUriMarkWideChar(c: wideChar): boolean;
+function isUriHexWideChar(c: wideChar): boolean;
+function isUriAlphanumWideChar(c: wideChar): boolean;
+function isUriAlphaWideChar(c: wideChar): boolean;
+function isUriDigitWideChar(c: wideChar): boolean;
+
+function isUriURI_referenceStr(s: AnsiString): boolean;
+function isUriAbsoluteURIStr(s: AnsiString): boolean;
+function isUriRelativeURIStr(s: AnsiString): boolean;
+function isUriHier_partStr(s: AnsiString): boolean;
+function isUriOpaque_partStr(s: AnsiString): boolean;
+function isUriNet_pathStr(s: AnsiString): boolean;
+function isUriAbs_pathStr(s: AnsiString): boolean;
+function isUriRel_pathStr(s: AnsiString): boolean;
+function isUriRel_segmentStr(s: AnsiString): boolean;
+function isUriSchemeStr(s: AnsiString): boolean;
+function isUriAuthorityStr(s: AnsiString): boolean;
+function isUriReg_nameStr(s: AnsiString): boolean;
+function isUriServerStr(s: AnsiString): boolean;
+function isUriUserinfoStr(s: AnsiString): boolean;
+function isUriHostPortStr(s: AnsiString): boolean;
+function isUriHostStr(s: AnsiString): boolean;
+function isUriHostnameStr(s: AnsiString): boolean;
+function isUriDomainlabelStr(s: AnsiString): boolean;
+function isUriToplabelStr(s: AnsiString): boolean;
+function isUriIPv4addressStr(s: AnsiString): boolean;
+function isUriPortStr(s: AnsiString): boolean;
+function isUriPathStr(s: AnsiString): boolean;
+function isUriPath_segmentsStr(s: AnsiString): boolean;
+function isUriSegmentStr(s: AnsiString): boolean;
+function isUriParamStr(s: AnsiString): boolean;
+function isUriQueryStr(s: AnsiString): boolean;
+function isUriFragmentStr(s: AnsiString): boolean;
+function isUriUricStr(s: AnsiString): boolean;
+function isUriReservedChar(c: AnsiChar): boolean;
+function isUriUnreservedChar(c: AnsiChar): boolean;
+function isUriMarkChar(c: AnsiChar): boolean;
+function isUriHexChar(c: AnsiChar): boolean;
+function isUriAlphanumChar(c: AnsiChar): boolean;
+function isUriAlphaChar(c: AnsiChar): boolean;
+function isUriDigitChar(c: AnsiChar): boolean;
+
+
+function filenameToUriStr(const path: TFilename;
+                          const opt: TdomFilenameToUriOptions): string;
+function filenameToUriWideStr(const path: TFilename;
+                              const opt: TdomFilenameToUriOptions): UnicodeString;
+function resolveRelativeUriStr(const baseUri,
+                                     relUri: Ansistring;
+                                 var resultUri: Ansistring): boolean;
+function resolveRelativeUriWideStr(const baseUri,
+                                         relUri: UnicodeString;
+                                     var resultUri: UnicodeString): boolean;
+function uriStrToFilename(const uri: Ansistring;
+                            var path: TFilename;
+                            var authority,
+                                query,
+                                fragment: Ansistring): boolean;
+function uriWideStrToFilename(const uri: UnicodeString;
+                                var path: TFilename;
+                                var authority,
+                                    query,
+                                    fragment: Ansistring): boolean;
+
+type
+  TUriStrAnalyzer = class
+  protected
+    FUriAuthority: AnsiString;
+    FUriFragment: AnsiString;
+    FUriQuery: AnsiString;
+    FUriPath: AnsiString;
+    FUriScheme: AnsiString;
+    FHasUriAuthority: boolean;
+    FHasUriFragment: boolean;
+    FHasUriQuery: boolean;
+    FHasUriScheme: boolean;
+    function getUriReference: Ansistring; virtual;
+  public
+    constructor create;
+    function setUriAuthority(const Value: AnsiString;
+                             const isDefined: boolean): boolean; virtual;
+    function setUriFragment(const Value: AnsiString;
+                            const isDefined: boolean): boolean; virtual;
+    function setUriPath(const Value: AnsiString): boolean; virtual;
+    function setUriQuery(const Value: AnsiString;
+                         const isDefined: boolean): boolean; virtual;
+    function setUriReference(const Value: Ansistring): boolean; virtual;
+    function setUriScheme(const Value: AnsiString;
+                          const isDefined: boolean): boolean; virtual;
+    property HasUriAuthority: boolean read FHasUriAuthority;
+    property HasUriFragment: boolean read FHasUriFragment;
+    property HasUriQuery: boolean read FHasUriQuery;
+    property HasUriScheme: boolean read FHasUriScheme;
+    property UriAuthority: Ansistring read FUriAuthority;
+    property UriFragment: AnsiString read FUriFragment;
+    property UriPath: AnsiString read FUriPath;
+    property UriQuery: AnsiString read FUriQuery;
+    property UriReference: Ansistring read getUriReference;
+    property UriScheme: AnsiString read FUriScheme;
+  end;
+
+  TUriWideStrAnalyzer = class
+  protected
+    FUriAuthority: UnicodeString;
+    FUriFragment: UnicodeString;
+    FUriQuery: UnicodeString;
+    FUriPath: UnicodeString;
+    FUriScheme: UnicodeString;
+    FHasUriAuthority: boolean;
+    FHasUriFragment: boolean;
+    FHasUriQuery: boolean;
+    FHasUriScheme: boolean;
+    function getUriReference: UnicodeString; virtual;
+  public
+    constructor create;
+    function setUriAuthority(const Value: UnicodeString;
+                             const isDefined: boolean): boolean; virtual;
+    function setUriFragment(const Value: UnicodeString;
+                            const isDefined: boolean): boolean; virtual;
+    function setUriPath(const Value: UnicodeString): boolean; virtual;
+    function setUriQuery(const Value: UnicodeString;
+                         const isDefined: boolean): boolean; virtual;
+    function setUriReference(const Value: UnicodeString): boolean; virtual;
+    function setUriScheme(const Value: UnicodeString;
+                          const isDefined: boolean): boolean; virtual;
+    property HasUriAuthority: boolean read FHasUriAuthority;
+    property HasUriFragment: boolean read FHasUriFragment;
+    property HasUriQuery: boolean read FHasUriQuery;
+    property HasUriScheme: boolean read FHasUriScheme;
+    property UriAuthority: UnicodeString read FUriAuthority;
+    property UriFragment: UnicodeString read FUriFragment;
+    property UriPath: UnicodeString read FUriPath;
+    property UriQuery: UnicodeString read FUriQuery;
+    property UriReference: UnicodeString read getUriReference;
+    property UriScheme: UnicodeString read FUriScheme;
+  end;
+
+procedure xmlAnalyseEntityDef(    source: UnicodeString;
+                              var entityValue,
+                                  systemLiteral,
+                                  pubidLiteral,
+                                  nDataName: UnicodeString;
+                              var error: boolean);
+
+procedure xmlAnalyseNotationDecl(const decl: UnicodeString;
+                                   var systemLiteral,
+                                       pubidLiteral: UnicodeString;
+                                   var error: boolean);
+
+procedure xmlAnalysePCDATA(source: UnicodeString;
+                           var lines: TdomWideStringList);
+
+function xmlAnalysePubSysId(const publicId,
+                                  systemId,
+                                  notaName: UnicodeString): UnicodeString;
+
+procedure xmlAnalyseTag(const source: UnicodeString;
+                          var tagName,
+                              attribSequence: UnicodeString);
+
+procedure xmlIsolateQuote(    source: UnicodeString;
+                          var content,
+                              rest: UnicodeString;
+                          var quoteType: WideChar;
+                          var error: boolean);
+
+function xmlNormalizeLineBreaks(const source :UnicodeString): UnicodeString;
+
+function xmlReplaceQuotes(const source: UnicodeString): UnicodeString;
+
+function xmlTrunc(const source: UnicodeString): UnicodeString;
+
+procedure xmlTruncAngularBrackets(const source: UnicodeString;
+                                    var content: UnicodeString;
+                                    var error: boolean);
+
+procedure xmlTruncRoundBrackets(const source: UnicodeString;
+                                  var content: UnicodeString;
+                                  var error: boolean);
+
+procedure writeWideString(stream: TStream; const xmlStrg: UnicodeString);
+
+procedure writeWideStrings(stream: TStream; const xmlStrgs: array of UnicodeString);
+
+procedure writeWideChars(stream: TStream; const xmlChars: array of wideChar);
+
+var
+  domDocumentFormatList: PdomDocumentFormat = nil;
+
+
+implementation
+uses
+  {$IFDEF DELPHI2009UP}AnsiStrings,{$ENDIF}
+  uROClasses;
+
+resourcestring
+  SCannotReadOddPos    = 'Cannot read UnicodeString from odd byte position';
+  SCannotWriteOddPos   = 'Cannot write UnicodeString to odd byte position';
+  SCapacityLessSize    = 'Capacity cannot be less than size';
+  SOddSizeInvalid      = 'Odd size not valid for UnicodeString';
+  SNegativeSizeInvalid = 'Negative stream size invalid';
+  SOddPosInvalid       = 'Odd byte position not valid for UnicodeString';
+
+function xmlNormalizeLineBreaks(const source :UnicodeString): UnicodeString;
+const
+  CR: WideChar  = #13;
+  LF: WideChar  = #10;
+  CRLF: UnicodeString = #13#10;
+var
+  nPos: integer;
+begin
+  Result:= source;
+
+  // CR+LF --> LF
+  repeat
+    nPos := Pos(CRLF, Result);
+    if nPos > 0 then
+      Delete(Result, nPos, 1);
+  until nPos = 0;
+
+  // CR --> LF
+  repeat
+    nPos := Pos(CR, Result);
+    if nPos > 0 then
+      Result[nPos] := LF;
+  until nPos = 0;
+end;
+
+
+procedure xmlAnalysePCDATA(Source: UnicodeString;
+                           var Lines: TdomWideStringList);
+// 'Source': The PCDATA-Sequence to be analyzed.
+// 'Lines':  Returns the content of PCDATA in singles lines containing
+//           only whitespace or only characters without whitespace.
+var
+  i: integer;
+  Line: string;
+begin
+  i:= 0;
+  Lines.clear;
+  while i < length(Source) do
+  begin
+
+    // No White-space?
+    Line:= '';
+    while i < length(Source) do
+    begin
+      inc(i);
+      if IsXmlWhiteSpace(Source[i]) then begin dec(i); break; end;
+      Line:= Line + Source[i];
+    end;
+    if Line <> '' then Lines.Add(Line);
+
+    // White-space?
+    Line:= '';
+    while i < length(Source) do
+    begin
+      inc(i);
+      if not IsXmlWhiteSpace(Source[i]) then begin dec(i); break; end;
+      Line:= Line + Source[i];
+    end;
+    if Line <> '' then Lines.Add(Line);
+
+  end;
+end;
+
+procedure xmlAnalyseTag(const source: UnicodeString;
+                        var tagName,
+                            AttribSequence: UnicodeString);
+// 'Source': The tag, to be analyzed.
+// 'tagName': Returns the namen of the tag.
+// 'AttribSequence': Returns the Attributes, if existing.
+var
+  i,j,sourceLength : integer;
+begin
+  sourceLength:= length(Source);  // buffer storage to increase performance
+
+  // Evaluate tagName:
+  i:= 1;
+  while i <= sourceLength do begin
+    if IsXmlWhiteSpace(Source[i]) then break;
+    inc(i);
+  end;
+
+  tagName:= copy(Source,1,i-1);
+
+  // Evaluate Attributes:
+  while i < sourceLength do begin
+    inc(i);
+    if not IsXmlWhiteSpace(Source[i]) then break;
+  end;
+  j:= length(Source);
+  while j >= i do begin
+    if not IsXmlWhiteSpace(Source[j]) then break;
+    dec(j);
+  end;
+
+  AttribSequence:= copy(Source,i,j-i+1);
+end;
+
+procedure XMLAnalyseEntityDef(    Source: UnicodeString;
+                              var entityValue,
+                                  SystemLiteral,
+                                  PubidLiteral,
+                                  NDataName: UnicodeString;
+                              var Error: boolean);
+// 'Source': The entity definition to be analyzed.
+// 'entityValue','SystemLiteral','PubidLiteral','NDataName':
+//    Return the respective values, if declared.
+// 'Error': Returns 'true', if the entity definition is not well-formed.
+const
+  SQ: WideChar = #39; // code of '
+  DQ: WideChar = #34; // code of "
+var
+  dummy: UnicodeString;
+  i: integer;
+  intro: UnicodeString;
+  rest: UnicodeString;
+  QuoteType: WideChar;
+  PubidLit: UnicodeString;  // = ''
+  SystemLit: UnicodeString; // = ''
+begin
+  QuoteType:= #0;
+  rest := '';
+  SystemLit := '';
+  PubidLit := '';;
+  entityValue:= '';
+  SystemLiteral:= '';
+  PubidLiteral:= '';
+  NDataName:= '';
+  Error:= false;
+  if Length(Source) < 2 then begin Error:= true; exit; end;
+
+  // Remove leading white space:
+  i:= 1;
+  while i <= length(Source) do begin
+    if not IsXmlWhiteSpace(Source[i]) then break;
+    inc(i);
+  end;
+  if i >= Length(Source) then begin Error:= true; exit; end;
+  dummy:= copy(Source,i,Length(Source)-i+1);
+  Source:= dummy; // Necessary, because of Delphi's problem when copying WideStrings.
+  if (Source[1] = SQ) or (Source[1] = DQ) then begin
+    XMLIsolateQuote(Source,entityValue,rest,QuoteType,Error);
+    if Error then exit;
+    if rest <> '' then begin Error:= true; exit; end;
+    if not isXmlEntityValueChars(entityValue)
+      then begin Error:= true; exit; end;
+  end else begin
+    intro:= copy(Source,1,6);
+    if (intro = 'SYSTEM') or (intro = 'PUBLIC') then begin
+      Dummy:= copy(Source,7,Length(Source)-6);
+      Source:= dummy; // Necessary, because of Delphi's problem when copying WideStrings.
+      if Source = '' then begin Error:= true; exit; end;
+      if not IsXmlWhiteSpace(Source[1]) then begin Error:= true; exit; end;
+
+      if (intro = 'SYSTEM') then begin
+        XMLIsolateQuote(Source,SystemLit,Source,QuoteType,Error);
+        if Error then exit;
+      end else begin
+        XMLIsolateQuote(Source,PubidLit,Source,QuoteType,Error);
+        if Error then exit;
+        if not isXmlPubidChars(PubidLit)
+          then begin Error:= true; exit; end;
+        XMLIsolateQuote(Source,SystemLit,Source,QuoteType,Error);
+        if Error then exit;
+      end;
+
+      if Source <> '' then begin
+        if copy(Source,1,5) = 'NDATA' then begin
+          dummy:= copy(Source,6,Length(Source)-5);
+          Source:= XmlTrunc(dummy); // Necessary, because of Delphi's problem when copying WideStrings.
+          if IsXmlName(Source)
+            then NDataName:= Source
+            else begin Error:= true; exit; end;
+        end else begin Error:= true; exit; end;
+      end;
+
+    end else begin Error:= true; exit; end;
+    SystemLiteral:= SystemLit;
+    PubidLiteral:= PubidLit;
+  end; {if (Source[1] ... }
+end;
+
+
+procedure XMLAnalyseNotationDecl(const Decl: UnicodeString;
+                                   var SystemLiteral,
+                                       PubidLiteral: UnicodeString;
+                                   var Error: boolean);
+// 'Source': The notation declaration to be analyzed.
+// 'SystemLiteral','PubidLiteral','NDataName':
+//    Return the respective values, if declared.
+// 'Error': Returns 'true', if the notation declaration is not well-formed.
+var
+  dummy: UnicodeString;
+  intro: UnicodeString;
+  PubidLit: UnicodeString;   // = ''
+  QuoteType: WideChar;
+  Source: UnicodeString;
+  SystemLit: UnicodeString;  // = ''
+begin
+  SystemLiteral:= '';
+  PubidLiteral:= '';
+  Error:= false;
+  if Length(Decl) < 2 then begin Error:= true; exit; end;
+
+  Source:= XMLTrunc(Decl);
+  intro:= copy(Source,1,6);
+
+  if (intro<>'SYSTEM') and (intro<>'PUBLIC') then begin Error:= true; exit; end;
+
+  Dummy:= copy(Source,7,Length(Source)-6);
+  Source:= dummy; // Necessary, because of Delphi's problem when copying WideStrings.
+  if Source = '' then begin Error:= true; exit; end;
+  if not IsXmlWhiteSpace(Source[1]) then begin Error:= true; exit; end;
+
+  if (intro = 'SYSTEM') then begin
+    XMLIsolateQuote(Source,SystemLit,dummy,QuoteType,Error);
+    if Error then exit;
+    if dummy <> '' then begin Error:= true; exit; end;
+  end else begin
+    XMLIsolateQuote(Source,PubidLit,dummy,QuoteType,Error);
+    Source:= dummy;
+    if Error then exit;
+    if not isXmlPubidChars(PubidLit)
+      then begin Error:= true; exit; end;
+    if Source <> '' then begin
+      if not IsXmlSystemLiteral(Source) then begin Error:= true; exit; end;
+      SystemLit:= copy(Source,2,length(Source)-2);
+    end;
+  end;
+
+  SystemLiteral:= SystemLit;
+  PubidLiteral:= PubidLit;
+end;
+
+function xmlReplaceQuotes(const source: UnicodeString): UnicodeString;
+// This function replaces all single and double quotes
+// with their respective character references.
+var
+  i: integer;
+  content: TdomCustomStr;
+begin
+  result:= '';
+  content:= TdomCustomStr.create;
+  try
+    for i:= 1 to length(source) do begin
+      case ord(source[i]) of
+        39: content.addWideString('&#39;'); // Single quote
+        34: content.addWideString('&#34;'); // Double quote
+      else
+        content.addWideChar(source[i]);
+      end;
+    end;
+    Result:= content.value;
+  finally
+    content.free;
+  end;
+end;
+
+function xmlTrunc(const source: UnicodeString): UnicodeString;
+// This function removes all white space at the beginning
+// or end of 'Source'.
+var
+  i: integer;
+begin
+  result:= '';
+  i:= 1;
+  while i <= length(Source) do begin
+    if not IsXmlWhiteSpace(Source[i]) then break;
+    inc(i);
+  end;
+  if i > length(Source) then exit;
+  result:= copy(Source,i,Length(Source)-i+1);
+  i:= length(Result);
+  while i > 0 do begin
+    if not IsXmlWhiteSpace(Result[i]) then break;
+    dec(i);
+  end;
+  if i = 0
+    then result:= ''
+    else result:= copy(result,1,i);
+end;
+
+function XMLTruncSpace(const Source: UnicodeString): UnicodeString;
+// This function removes all spaces (#$20) at the beginning
+// or end of 'Source'.
+const
+  SPACE: WideChar  = #$20;
+var
+  i,startIndex,endIndex: integer;
+begin
+  startIndex:= length(source)+1;
+  endIndex:= 0;
+  for i:= 1 to length(source) do begin
+    if not (Source[i] = SPACE) then begin
+      startIndex:= i;
+      break;
+    end;
+  end;
+  for i:= length(source) downto startIndex do begin
+    if not (Source[i] = SPACE) then begin
+      endIndex:= i;
+      break;
+    end;
+  end;
+  result:= copy(Source,startIndex,endIndex-startIndex+1);
+end;
+
+procedure XMLTruncAngularBrackets(const Source: UnicodeString;
+                                    var content: UnicodeString;
+                                    var Error: boolean);
+{Die Prozedur entfernt evtl. vorhandenen White-Space am Anfang und
+ Ende von 'Source', pr�ft dann, ob der verbleibende UnicodeString durch
+ eckige KLammern -- '[' und ']' -- eingerahmt wird. Ist dies der Fall,
+ wird der Klammer-Inhalt in 'content' zur�ckgegeben und 'Error' wird
+ auf 'false' gesetzt. Ist dies nicht der Fall, gibt 'content' einen leeren
+ UnicodeString ('') zur�ck und 'Error' wird auf 'true' gesetzt.}
+var
+  BracketStr: UnicodeString;
+begin
+  content:= '';
+  BracketStr:= XMLTrunc(Source);
+  if length(BracketStr) < 2 then begin Error:= true; exit; end;
+  if (BracketStr[1] <> '[') or (BracketStr[length(BracketStr)] <> ']')
+    then Error:= true
+    else begin
+      content:= copy(BracketStr,2,Length(BracketStr)-2);
+      Error:= false;
+    end;
+end;
+
+procedure XMLTruncRoundBrackets(const Source: UnicodeString;
+                                  var content: UnicodeString;
+                                  var Error: boolean);
+{Die Prozedur entfernt evtl. vorhandenen White-Space am Anfang und Ende
+ von 'Source', pr�ft dann, ob der verbleibende UnicodeString durch runde
+ KLammern -- '(' und ')' -- eingerahmt wird. Ist dies der Fall, wird vom
+ Klammer-Inhalt erneut evtl. vorhandener Leerraum am Anfang und Ende
+ entfernt und das Ergebnis in 'content' zur�ckgegeben sowie 'Error' auf
+ 'false' gesetzt. Ist dies nicht der Fall, gibt 'content' einen leeren
+ UnicodeString ('') zur�ck und 'Error' wird auf 'true' gesetzt.}
+var
+  BracketStr: UnicodeString;
+begin
+  content:= '';
+  BracketStr:= XMLTrunc(Source);
+  if length(BracketStr) < 2 then begin Error:= true; exit; end;
+  if (BracketStr[1] <> '(') or (BracketStr[length(BracketStr)] <> ')')
+    then Error:= true
+    else begin
+      content:= XMLTrunc(copy(BracketStr,2,Length(BracketStr)-2));
+      Error:= false;
+    end;
+end;
+
+procedure xmlIsolateQuote(    Source: UnicodeString;
+                          var content,
+                              rest: UnicodeString;
+                          var QuoteType: WideChar;
+                          var Error: boolean);
+{Analysiert einen UnicodeString ('Source'):  F�hrender White-Space wird
+ abgeschnitten, danach wird ein in einfache oder doppelte Anf�hrungs-
+ zeichen gesetzter Text (der auch leer sein kann) erwartet, dessen Inhalt
+ in 'content' zur�ckgegeben wird.  Falls ein Zeichen in 'content' kein
+ legales XML-Zeichen ist, wird 'Error = true' zur�ckgegen. 'QuoteType'
+ gibt den Wert der Anf�hrungszeichen zur�ck (#39; f�r einfache und #34;
+ f�r doppelte Anf�hrungszeichen).  Wird nach dem Entfernen des f�hrenden
+ White-Spaces kein Anf�hrungszeichen gefunden oder fehlt das
+ korrespondierende Schlu�zeichen, wird die Routine abgebrochen und 'Error
+ = true' zur�ckgegeben. Anschlie�end wird �berpr�ft, ob direkt nach dem
+ Schlu�zeichen etwas anderes als White-Space folgt (bzw. der UnicodeString
+ zuende ist).  Falls etwas anderes folgt, wird 'Error = true' zur�ckgegeben.
+ Falls nicht, wird bis zum n�chsten Nicht-White-Space-Zeichen gesucht und
+ der Rest des WideStrings in 'rest' zur�ckgegeben. F�r alle F�lle, in denen
+ 'Error = true' zur�ckgegen wird, werden 'content' und 'rest' als leer
+ ('') und 'QuoteType' als #0; zur�ckgegeben.}
+const
+  SQ: WideChar = #39; // code of '
+  DQ: WideChar = #34; // code of "
+var
+  i,quotepos: integer;
+  dummy: UnicodeString;
+begin
+  content:= '';
+  rest:= '';
+  if Length(Source) < 2 then begin Error:= true; exit; end;
+  Error:= false;
+
+  {White-space am Anfang entfernen:}
+  i:= 1;
+  while (i <= length(Source)) do begin
+    if not IsXmlWhiteSpace(Source[i]) then break;
+    inc(i);
+  end;
+  if i >= Length(Source) then begin Error:= true; exit; end;
+  Dummy:= copy(Source,i,Length(Source)-i+1);
+  Source:= dummy; {Diese umst�ndliche Zuweisung ist wegen Delphi-Problem von WideStrings bei copy n�tig}
+  QuoteType:= Source[1];
+  if (QuoteType <> SQ) and (QuoteType <> DQ)
+    then begin QuoteType:= #0; Error:= true; exit; end;
+  Dummy:= Copy(Source,2,Length(Source)-1);
+  Source:= dummy; {Diese umst�ndliche Zuweisung ist wegen Delphi-Problem von WideStrings bei copy n�tig}
+  QuotePos:= Pos(UnicodeString(QuoteType),Source);
+  if QuotePos = 0 then begin QuoteType:= #0; Error:= true; exit; end;
+  if Length(Source) > QuotePos then
+    if not IsXmlWhiteSpace(Source[QuotePos+1])
+      then begin QuoteType:= #0; Error:= true; exit; end; // No White-Space after quotation mark
+  content:= Copy(Source,1,QuotePos-1);
+  if not isXmlChars(content) then begin content:= ''; QuoteType:= #0; Error:= true; exit; end;
+  // Strip White-Space:
+  i:= QuotePos + 1;
+  while (i <= length(Source)) do begin
+    if not IsXmlWhiteSpace(Source[i]) then break;
+    inc(i);
+  end;
+  if i <= Length(Source) then rest:= copy(Source,i,Length(Source)-i+1);
+end;
+
+function xmlAnalysePubSysId(const publicId,
+                                  systemId,
+                                  notaName: UnicodeString): UnicodeString;
+const
+  SQ: UnicodeString = #39; // code of '
+  DQ: UnicodeString = #34; // code of "
+var
+  qm: UnicodeString;
+begin
+  result:= '';
+  if not isXmlName(notaName)
+    then EConvertError.CreateFmt('%S is not a valid notaName value.',[notaName]);;
+  if isXmlSystemLiteral(concat(DQ,systemId,DQ))
+    then qm:= DQ
+    else if IsXMLSystemLiteral(concat(SQ,systemId,SQ))
+      then qm:= SQ
+      else EConvertError.CreateFmt('%S is not a valid systemId value.',[systemId]);;
+  if not isXmlPubidChars(publicId)
+    then EConvertError.CreateFmt('%S is not a valid publicId value.',[publicId]);;
+  if publicId = '' then begin
+    result:= concat(result,UnicodeString(' SYSTEM '),qm,systemId,qm,UnicodeString(' '));
+  end else begin
+    if systemId = '' then begin
+      result:= concat(result,UnicodeString(' PUBLIC "'),publicId,UnicodeString('" '));
+    end else begin
+      result:= concat(result,UnicodeString(' PUBLIC "'),publicId,UnicodeString('" '),qm,systemId,qm,UnicodeString(' '));
+    end;
+  end; {if ...}
+  if notaName <> ''
+   then result:= concat(result,UnicodeString('NDATA '),notaName,UnicodeString(' '));
+end;
+
+function trimWhitespace(S: UnicodeString): UnicodeString;
+var
+  i, l: integer;
+begin
+  l:= Length(S);
+  i:= 1;
+  while (i <= l) and IsXmlWhiteSpace(S[i]) do inc(i);
+  if i > l then
+    result:= ''
+  else begin
+    while IsXmlWhiteSpace(S[l]) do dec(l);
+    result:= copy(S,i,l-i+1);
+  end;
+end;
+
+function trimWhitespaceLeft(S: UnicodeString): UnicodeString;
+var
+  i, l: integer;
+begin
+  l:= Length(S);
+  i:= 1;
+  while (i <= l) and IsXmlWhiteSpace(S[i]) do inc(i);
+  result:= copy(s,i,Maxint);
+end;
+
+function trimWhitespaceRight(S: UnicodeString): UnicodeString;
+var
+  i: integer;
+begin
+  i:= Length(S);
+  while (i > 0) and IsXmlWhiteSpace(S[i]) do dec(I);
+  result:= copy(s,1,i);
+end;
+
+
+function xmlExtractPrefix(const qualifiedName: UnicodeString): UnicodeString;
+var
+  colonpos: integer;
+  localpart: UnicodeString;  // = 0
+  prefix: UnicodeString;     // = 0
+begin
+  colonpos:= pos(':',qualifiedName);
+  if colonpos = 0
+    then localpart:= qualifiedName
+    else begin
+      prefix:= copy(qualifiedName,1,colonpos-1);
+      localpart:= copy(qualifiedName,colonpos+1,length(qualifiedName)-colonpos);
+      if not IsXmlPrefix(prefix)
+        then raise EInvalid_Character_Err.create('Invalid character error.');
+    end;
+  if not IsXmlLocalPart(localpart)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  result:= prefix;
+end;
+
+function xmlExtractLocalName(const qualifiedName: UnicodeString): UnicodeString;
+var
+  colonpos: integer;
+  prefix,localpart: UnicodeString;
+begin
+  colonpos:= pos(':',qualifiedName);
+  if colonpos = 0
+    then localpart:= qualifiedName
+    else begin
+      prefix:= copy(qualifiedName,1,colonpos-1);
+      localpart:= copy(qualifiedName,colonpos+1,length(qualifiedName)-colonpos);
+      if not IsXmlPrefix(prefix)
+        then raise EInvalid_Character_Err.create('Invalid character error.');
+  end;
+  if not IsXmlLocalPart(localpart)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  result:= localpart;
+end;
+
+function xmlExtractPrefixAndLocalName(const qualifiedName: UnicodeString;
+                                        out prefix,
+                                            localName: UnicodeString): boolean;
+var
+  colonpos: integer;
+begin
+  colonpos:= pos(':',qualifiedName);
+  if colonpos = 0 then begin
+      prefix:= '';
+      if IsXmlLocalPart(qualifiedName) then begin
+        localName:= qualifiedName;
+        result:= true;
+      end else begin
+        localName:= '';
+        result:= false;
+      end;
+    end else begin
+      prefix:= copy(qualifiedName,1,colonpos-1);
+      localName:= copy(qualifiedName,colonpos+1,length(qualifiedName)-colonpos);
+      if IsXmlPrefix(prefix) and IsXmlLocalPart(localName) then begin
+        result:= true;
+      end else begin
+        prefix:= '';
+        localName:= '';
+        result:= false;
+      end;
+  end;
+end;
+
+function IsXmlChar(const S: WideChar): boolean;
+begin
+  case Word(S) of
+    $0009,$000A,$000D,$0020..$D7FF,$E000..$FFFD, // Unicode below $FFFF
+    $D800..$DBFF, // High surrogate of Unicode character [$10000..$10FFFF]
+    $DC00..$DFFF: // Low surrogate of Unicode character [$10000..$10FFFF]
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function IsXmlWhiteSpace(const S: WideChar): boolean;
+begin
+  Case Word(S) of
+    $0009,$000A,$000D,$0020:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function IsXmlLetter(const S: WideChar): boolean;
+begin
+  Result:= IsXmlIdeographic(S) or IsXmlBaseChar(S);
+end;
+
+function IsXmlBaseChar(const S: WideChar): boolean;
+begin
+  Case Word(S) of
+    $0041..$005a,$0061..$007a,$00c0..$00d6,$00d8..$00f6,$00f8..$00ff,
+    $0100..$0131,$0134..$013E,$0141..$0148,$014a..$017e,$0180..$01c3,
+    $01cd..$01f0,$01f4..$01f5,$01fa..$0217,$0250..$02a8,$02bb..$02c1,
+    $0386,$0388..$038a,$038c,$038e..$03a1,$03a3..$03ce,$03D0..$03D6,
+    $03DA,$03DC,$03DE,$03E0,$03E2..$03F3,$0401..$040C,$040E..$044F,
+    $0451..$045C,$045E..$0481,$0490..$04C4,$04C7..$04C8,$04CB..$04CC,
+    $04D0..$04EB,$04EE..$04F5,$04F8..$04F9,$0531..$0556,$0559,
+    $0561..$0586,$05D0..$05EA,$05F0..$05F2,$0621..$063A,$0641..$064A,
+    $0671..$06B7,$06BA..$06BE,$06C0..$06CE,$06D0..$06D3,$06D5,
+    $06E5..$06E6,$0905..$0939,$093D,$0958..$0961,$0985..$098C,
+    $098F..$0990,$0993..$09A8,$09AA..$09B0,$09B2,$09B6..$09B9,
+    $09DC..$09DD,$09DF..$09E1,$09F0..$09F1,$0A05..$0A0A,$0A0F..$0A10,
+    $0A13..$0A28,$0A2A..$0A30,$0A32..$0A33,$0A35..$0A36,$0A38..$0A39,
+    $0A59..$0A5C,$0A5E,$0A72..$0A74,$0A85..$0A8B,$0A8D,$0A8F..$0A91,
+    $0A93..$0AA8,$0AAA..$0AB0,$0AB2..$0AB3,$0AB5..$0AB9,$0ABD,$0AE0,
+    $0B05..$0B0C,$0B0F..$0B10,$0B13..$0B28,$0B2A..$0B30,$0B32..$0B33,
+    $0B36..$0B39,$0B3D,$0B5C..$0B5D,$0B5F..$0B61,$0B85..$0B8A,
+    $0B8E..$0B90,$0B92..$0B95,$0B99..$0B9A,$0B9C,$0B9E..$0B9F,
+    $0BA3..$0BA4,$0BA8..$0BAA,$0BAE..$0BB5,$0BB7..$0BB9,$0C05..$0C0C,
+    $0C0E..$0C10,$0C12..$0C28,$0C2A..$0C33,$0C35..$0C39,$0C60..$0C61,
+    $0C85..$0C8C,$0C8E..$0C90,$0C92..$0CA8,$0CAA..$0CB3,$0CB5..$0CB9,
+    $0CDE,$0CE0..$0CE1,$0D05..$0D0C,$0D0E..$0D10,$0D12..$0D28,
+    $0D2A..$0D39,$0D60..$0D61,$0E01..$0E2E,$0E30,$0E32..$0E33,
+    $0E40..$0E45,$0E81..$0E82,$0E84,$0E87..$0E88,$0E8A,$0E8D,
+    $0E94..$0E97,$0E99..$0E9F,$0EA1..$0EA3,$0EA5,$0EA7,$0EAA..$0EAB,
+    $0EAD..$0EAE,$0EB0,$0EB2..$0EB3,$0EBD,$0EC0..$0EC4,$0F40..$0F47,
+    $0F49..$0F69,$10A0..$10C5,$10D0..$10F6,$1100,$1102..$1103,
+    $1105..$1107,$1109,$110B..$110C,$110E..$1112,$113C,$113E,$1140,
+    $114C,$114E,$1150,$1154..$1155,$1159,$115F..$1161,$1163,$1165,
+    $1167,$1169,$116D..$116E,$1172..$1173,$1175,$119E,$11A8,$11AB,
+    $11AE..$11AF,$11B7..$11B8,$11BA,$11BC..$11C2,$11EB,$11F0,$11F9,
+    $1E00..$1E9B,$1EA0..$1EF9,$1F00..$1F15,$1F18..$1F1D,$1F20..$1F45,
+    $1F48..$1F4D,$1F50..$1F57,$1F59,$1F5B,$1F5D,$1F5F..$1F7D,
+    $1F80..$1FB4,$1FB6..$1FBC,$1FBE,$1FC2..$1FC4,$1FC6..$1FCC,
+    $1FD0..$1FD3,$1FD6..$1FDB,$1FE0..$1FEC,$1FF2..$1FF4,$1FF6..$1FFC,
+    $2126,$212A..$212B,$212E,$2180..$2182,$3041..$3094,$30A1..$30FA,
+    $3105..$312C,$AC00..$d7a3:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function IsXmlIdeographic(const S: WideChar): boolean;
+begin
+  Case Word(S) of
+    $4E00..$9FA5,$3007,$3021..$3029:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function IsXmlCombiningChar(const S: WideChar): boolean;
+begin
+  Case Word(S) of
+    $0300..$0345,$0360..$0361,$0483..$0486,$0591..$05A1,$05A3..$05B9,
+    $05BB..$05BD,$05BF,$05C1..$05C2,$05C4,$064B..$0652,$0670,
+    $06D6..$06DC,$06DD..$06DF,$06E0..$06E4,$06E7..$06E8,$06EA..$06ED,
+    $0901..$0903,$093C,$093E..$094C,$094D,$0951..$0954,$0962..$0963,
+    $0981..$0983,$09BC,$09BE,$09BF,$09C0..$09C4,$09C7..$09C8,
+    $09CB..$09CD,$09D7,$09E2..$09E3,$0A02,$0A3C,$0A3E,$0A3F,
+    $0A40..$0A42,$0A47..$0A48,$0A4B..$0A4D,$0A70..$0A71,$0A81..$0A83,
+    $0ABC,$0ABE..$0AC5,$0AC7..$0AC9,$0ACB..$0ACD,$0B01..$0B03,$0B3C,
+    $0B3E..$0B43,$0B47..$0B48,$0B4B..$0B4D,$0B56..$0B57,$0B82..$0B83,
+    $0BBE..$0BC2,$0BC6..$0BC8,$0BCA..$0BCD,$0BD7,$0C01..$0C03,
+    $0C3E..$0C44,$0C46..$0C48,$0C4A..$0C4D,$0C55..$0C56,$0C82..$0C83,
+    $0CBE..$0CC4,$0CC6..$0CC8,$0CCA..$0CCD,$0CD5..$0CD6,$0D02..$0D03,
+    $0D3E..$0D43,$0D46..$0D48,$0D4A..$0D4D,$0D57,$0E31,$0E34..$0E3A,
+    $0E47..$0E4E,$0EB1,$0EB4..$0EB9,$0EBB..$0EBC,$0EC8..$0ECD,
+    $0F18..$0F19,$0F35,$0F37,$0F39,$0F3E,$0F3F,$0F71..$0F84,
+    $0F86..$0F8B,$0F90..$0F95,$0F97,$0F99..$0FAD,$0FB1..$0FB7,$0FB9,
+    $20D0..$20DC,$20E1,$302A..$302F,$3099,$309A:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function IsXmlDigit(const S: WideChar): boolean;
+begin
+  Case Word(S) of
+    $0030..$0039,$0660..$0669,$06F0..$06F9,$0966..$096F,$09E6..$09EF,
+    $0A66..$0A6F,$0AE6..$0AEF,$0B66..$0B6F,$0BE7..$0BEF,$0C66..$0C6F,
+    $0CE6..$0CEF,$0D66..$0D6F,$0E50..$0E59,$0ED0..$0ED9,$0F20..$0F29:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function IsXmlExtender(const S: WideChar): boolean;
+begin
+  Case Word(S) of
+    $00B7,$02D0,$02D1,$0387,$0640,$0E46,$0EC6,$3005,$3031..$3035,
+    $309D..$309E,$30FC..$30FE:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function IsXmlNameChar(const S: WideChar): boolean;
+begin
+  if IsXmlLetter(S) or IsXmlDigit(S) or IsXmlCombiningChar(S)
+    or IsXmlExtender(S) or (S='.') or (S='-') or (S='_') or (S=':')
+    then Result:= true
+    else Result:= false;
+end;
+
+function IsXmlPubidChar(const S: WideChar): boolean;
+begin
+  if (S=#$20) or (S=#$D) or (S=#$A) or
+     ((S>='a') and (S<='z')) or
+     ((S>='A') and (S<='Z')) or
+     ((S>='0') and (S<='9')) or
+     (S='-') or (S=#$27) or (S='(') or (S=')') or (S='+') or (S=',') or
+     (S='.') or (S='/') or (S=':') or (S='=') or (S=WideChar('?')) or (S=';') or
+     (S='!') or (S='*') or (S='#') or (S='@') or (S='$') or (S='_') or
+     (S='%')
+    then Result:= true
+    else Result:= false;
+end;
+
+function isXmlChars(const S: UnicodeString): boolean;
+var
+  i,l: integer;
+  sChar: wideChar;
+begin
+  result:= true;
+  i:= 0;
+  l:= length(S);
+  while i < l do begin
+    inc(i);
+    sChar:= S[i];
+    case Word(sChar) of
+      $0009,$000A,$000D,$0020..$D7FF,$E000..$FFFD: // Unicode below $FFFF
+        ; // do nothing.
+      $D800..$DBFF: // High surrogate of Unicode character [$10000..$10FFFF]
+        begin
+          if i = l
+            then begin result:= false; break; end; // End of UnicodeString --> No low surrogate found
+          inc(i);
+          sChar:= S[i];
+          if not IsUtf16LowSurrogate(sChar)
+            then begin result:= false; break; end; // No low surrogate found
+        end;
+    else
+      begin result:= false; break; end;
+    end; {case ...}
+  end; {while ...}
+end;
+
+function IsXmlS(const S: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if Length(S) = 0 then begin Result:= false; exit; end;
+  Result:= true;
+  for i:= 1 to length(S) do
+    if not IsXmlWhiteSpace((PWideChar(S)+i-1)^)
+      then begin Result:= false; exit; end;
+end;
+
+function IsXmlName(const S: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  Result:= true;
+  if Length(S) = 0 then begin Result:= false; exit; end;
+  if not ( IsXmlLetter(PWideChar(S)^)
+           or (PWideChar(S)^ = '_')
+           or (PWideChar(S)^ = ':')   )
+    then begin Result:= false; exit; end;
+  for i:= 2 to length(S) do
+    if not IsXmlNameChar((PWideChar(S)+i-1)^)
+      then begin Result:= false; exit; end;
+end;
+
+function IsXmlNames(const S: UnicodeString): boolean;
+const
+  SPACE: WideChar  = #$20;
+var
+  i,j: integer;
+  namesStr: UnicodeString;
+begin
+  Result:= true;
+  namesStr:= concat(S,UnicodeString(SPACE));
+  j:= 1;
+  for i:= 1 to length(namesStr) do begin
+    if namesStr[i] = SPACE then begin
+      if not IsXmlName(copy(namesStr,j,i-j))
+        then begin Result:= false; exit; end;
+      j:= i+1;
+    end;
+  end;
+end;
+
+function IsXmlNmtoken(const S: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  Result:= true;
+  if length(S) = 0 then begin Result:= false; exit; end;
+  for i:= 1 to length(S) do
+    if not IsXmlNameChar((PWideChar(S)+i-1)^)
+      then begin Result:= false; exit; end;
+end;
+
+function IsXmlNmtokens(const S: UnicodeString): boolean;
+const
+  SPACE: WideChar  = #$20;
+var
+  i,j: integer;
+  NmtokensStr: UnicodeString;
+begin
+  Result:= true;
+  NmtokensStr:= concat(S,UnicodeString(SPACE));
+  j:= 1;
+  for i:= 1 to length(NmtokensStr) do begin
+    if NmtokensStr[i] = SPACE then begin
+      if not IsXmlNmtoken(copy(NmtokensStr,j,i-j))
+        then begin Result:= false; exit; end;
+      j:= i+1;
+    end;
+  end;
+end;
+
+function IsXmlCharRef(const S: UnicodeString): boolean;
+var
+  i: integer;
+  SChar: widechar;
+begin
+  Result:= true;
+  if copy(S,length(S),1) <> ';' then begin result:= false; exit; end;
+  if copy(S,1,3) = '&#x' then begin
+    if Length(S) < 5 then begin Result:= false; exit; end;
+    for i:= 4 to length(S)-1 do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if not ( (SChar >= '0') and (SChar <= '9') )
+         and not ( (SChar >= 'a') and (SChar <= 'f') )
+         and not ( (SChar >= 'A') and (SChar <= 'F') )
+        then begin Result:= false; exit; end;
+    end;
+  end else begin
+    if Length(S) < 4 then begin Result:= false; exit; end;
+    if copy(S,1,2) <> '&#' then begin Result:= false; exit; end;
+    for i:= 3 to length(S)-1 do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if not ( (SChar >= '0') and (SChar <= '9') )
+        then begin Result:= false; exit; end;
+    end;
+  end;
+end;
+
+function IsXmlEntityRef(const S: UnicodeString): boolean;
+begin
+  if pos('&',S) <> 1 then begin result:= false; exit; end;
+  if copy(S,length(S),1) <> ';' then begin result:= false; exit; end;
+  Result:= IsXmlName(copy(S,2,length(S)-2));
+end;
+
+function IsXmlPEReference(const S: UnicodeString): boolean;
+begin
+  if pos('%',S) <> 1 then begin result:= false; exit; end;
+  if copy(S,length(S),1) <> ';' then begin result:= false; exit; end;
+  Result:= IsXmlName(copy(S,2,length(S)-2));
+end;
+
+function isXmlReference(const S: UnicodeString): boolean;
+begin
+  if IsXmlEntityRef(s) or IsXmlCharRef(s)
+    then result:= true
+    else result:= false;
+end;
+
+function isXmlEntityValue(const S: UnicodeString): boolean;
+const
+  sQuote: widechar  = #$0027;
+  dQuote: widechar  = '"';
+var
+  i,j,indexpos: integer;
+  SChar, SChar2, ForbittenQuote: widechar;
+begin
+  Result:= true;
+  if Length(S) < 2 then begin Result:= false; exit; end;
+  if (S[length(S)] = sQuote) and (S[1] = sQuote) {single quotes}
+    then ForbittenQuote:= sQuote
+    else if (S[length(S)] = dQuote) and (S[1] = dQuote) {double quotes}
+      then ForbittenQuote:= dQuote
+      else begin Result:= false; exit; end;
+
+  i:= 2;
+  while i < length(S) do begin
+    SChar:= WideChar((PWideChar(S)+i-1)^);
+    if IsUtf16LowSurrogate(sChar) then begin Result:= false; exit; end;
+    if IsUtf16HighSurrogate(SChar) then begin
+      if i+1 = length(s) then begin Result:= false; exit; end;
+      inc(i);
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if not IsUtf16LowSurrogate(SChar) then begin Result:= false; exit; end;
+    end;
+    if not IsXmlChar(sChar) then begin Result:= false; exit; end;
+    if SChar = ForbittenQuote then begin Result:= false; exit; end;
+    if SChar = '%' then begin {PEReference?}
+      indexpos:= -1;
+      for j:= i+1 to length(S)-1 do begin
+        SChar2:= WideChar((PWideChar(S)+j-1)^);
+        if SChar2 = ';' then begin indexpos:= j; break; end;
+      end;
+      if indexpos = -1 then begin Result:= false; exit; end;
+      if not IsXmlPEReference(copy(S,i,j-i+1)) then begin Result:= false; exit; end;
+      i:= j;
+    end;
+    if SChar = '&' then begin {Reference?}
+      indexpos:= -1;
+      for j:= i+1 to length(S)-1 do begin
+        SChar2:= WideChar((PWideChar(S)+j-1)^);
+        if SChar2 = ';' then begin indexpos:= j; break; end;
+      end;
+      if indexpos = -1 then begin Result:= false; exit; end;
+      if not IsXmlReference(copy(S,i,j-i+1)) then begin Result:= false; exit; end;
+      i:= j;
+    end;
+    inc(i);
+  end;
+end;
+
+function isXmlEntityValueChars(const S: UnicodeString): boolean;
+// Returns 'true' if S consists only of legal XML characters and
+// legal XML references and there are either only single or only
+// double quotation marks in S, or if S is an empty UnicodeString.
+// Otherwise 'false' is returned.
+const
+  SEMICOLON: WideChar = #$3B;  // ';'
+var
+  firstCharPos,i,l: integer;
+  sChar: wideChar;
+  dqFound,sqFound: boolean;
+begin
+  result:= true;
+  dqFound:= false;
+  sqFound:= false;
+  i:= 0;
+  l:= length(S);
+  while i < l do begin
+    inc(i);
+    sChar:= S[i];
+    case Word(sChar) of
+      $0022: // Double quote (")
+        if sqFound
+          then begin result:= false; exit; end
+          else dqFound:= true;
+      $0026: // Ampersand (&)
+        begin
+          result:= false;
+          firstCharPos:= i;
+          while i < l do begin
+            inc(i);
+            sChar:= S[i];
+            if sChar = SEMICOLON then begin
+              if IsXmlReference(copy(S,firstCharPos,i-firstCharPos+1))
+                then begin result:= true; break end
+                else exit;
+            end; {if ...}
+          end; {while ...}
+        end;
+      // xxx What about % ?
+      $0027: // Single quote (')
+        if dqFound
+          then begin result:= false; exit; end
+          else sqFound:= true;
+      $0009,$000A,$000D,$0020,$0021,$0023..$0025,$0028..$D7FF,$E000..$FFFD: // Unicode below $FFFF
+        ; // do nothing.
+      $D800..$DBFF: // High surrogate of Unicode character [$10000..$10FFFF]
+        begin
+          if i = l
+            then begin result:= false; exit; end; // End of UnicodeString --> No low surrogate found
+          inc(i);
+          sChar:= S[i];
+          if not IsUtf16LowSurrogate(sChar)
+            then begin result:= false; exit; end; // No low surrogate found
+        end;
+    else
+      begin result:= false; exit; end;
+    end; {case ...}
+  end; {while ...}
+end;
+
+function isXmlAttValue(const S: UnicodeString): boolean;
+const
+  sQuote: widechar  = #$0027;
+  dQuote: widechar  = '"';
+var
+  i,j,indexpos: integer;
+  SChar, SChar2, ForbittenQuote: widechar;
+begin
+  Result:= true;
+  if Length(S) < 2 then begin Result:= false; exit; end;
+  if (S[length(S)] = sQuote) and (S[1] = sQuote) {single quotes}
+    then ForbittenQuote:= sQuote
+    else if (S[length(S)] = dQuote) and (S[1] = dQuote) {double quotes}
+      then ForbittenQuote:= dQuote
+      else begin Result:= false; exit; end;
+
+  i:= 2;
+  while i < length(S) do begin
+    SChar:= WideChar((PWideChar(S)+i-1)^);
+    if IsUtf16LowSurrogate(sChar) then begin Result:= false; exit; end;
+    if IsUtf16HighSurrogate(SChar) then begin
+      if i+1 = length(s) then begin Result:= false; exit; end;
+      inc(i);
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if not IsUtf16LowSurrogate(SChar) then begin Result:= false; exit; end;
+    end;
+    if not IsXmlChar(sChar) then begin Result:= false; exit; end;
+    if SChar = ForbittenQuote then begin Result:= false; exit; end;
+    if SChar = '<' then begin Result:= false; exit; end;
+    if SChar = '&' then begin {Reference?}
+      indexpos:= -1;
+      for j:= i+1 to length(S)-1 do begin
+        SChar2:= WideChar((PWideChar(S)+j-1)^);
+        if SChar2 = ';' then begin indexpos:= j; break; end;
+      end;
+      if indexpos = -1 then begin Result:= false; exit; end;
+      if not IsXmlReference(copy(S,i,j-i+1)) then begin Result:= false; exit; end;
+      i:= j;
+    end;
+    inc(i);
+  end;
+end;
+
+function IsXmlSystemLiteral(const S: UnicodeString): boolean;
+const
+  sQuote: widechar  = #$0027;
+  dQuote: widechar  = '"';
+var
+  i,l: integer;
+  SChar, ForbittenQuote: widechar;
+begin
+  Result:= true;
+  if Length(S) < 2 then begin Result:= false; exit; end;
+  if (S[length(S)] = sQuote) and (S[1] = sQuote) {single quotes}
+    then ForbittenQuote:= sQuote
+    else if (S[length(S)] = dQuote) and (S[1] = dQuote) {double quotes}
+      then ForbittenQuote:= dQuote
+      else begin Result:= false; exit; end;
+
+  i:= 1;
+  l:= length(S)-1;
+  while i < l do begin
+    inc(i);
+    SChar:= WideChar((PWideChar(S)+i-1)^);
+    if IsUtf16LowSurrogate(sChar) then begin Result:= false; exit; end;
+    if IsUtf16HighSurrogate(SChar) then begin
+      if i+1 = length(s) then begin Result:= false; exit; end;
+      inc(i);
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if not IsUtf16LowSurrogate(SChar) then begin Result:= false; exit; end;
+    end else if not IsXmlChar(sChar) then begin Result:= false; exit; end;
+    if SChar = ForbittenQuote then begin Result:= false; exit; end;
+  end;
+end;
+
+function isXmlSystemChars(const S: UnicodeString): boolean;
+// Returns 'true' if all characters in S are legal XML characters
+// and there are either only single or only double quotation marks
+// in S, or if S is an empty UnicodeString.
+// Otherwise 'false' is returned.
+var
+  i,l: integer;
+  sChar: wideChar;
+  dqFound,sqFound: boolean;
+begin
+  result:= true;
+  dqFound:= false;
+  sqFound:= false;
+  i:= 0;
+  l:= length(S);
+  while i < l do begin
+    inc(i);
+    sChar:= S[i];
+    case Word(sChar) of
+      $0022: // Double quote (")
+        if sqFound
+          then begin result:= false; break; end
+          else dqFound:= true;
+      $0027: // Single quote (')
+        if dqFound
+          then begin result:= false; break; end
+          else sqFound:= true;
+      $0009,$000A,$000D,$0020,$0021,$0023..$0026,$0028..$D7FF,$E000..$FFFD: // Unicode below $FFFF
+        ; // do nothing.
+      $D800..$DBFF: // High surrogate of Unicode character [$10000..$10FFFF]
+        begin
+          if i = l
+            then begin result:= false; break; end; // End of UnicodeString --> No low surrogate found
+          inc(i);
+          sChar:= S[i];
+          if not IsUtf16LowSurrogate(sChar)
+            then begin result:= false; break; end; // No low surrogate found
+        end;
+    else
+      begin result:= false; break; end;
+    end; {case ...}
+  end; {while ...}
+end;
+
+function IsXmlPubidLiteral(const S: UnicodeString): boolean;
+const
+  SQ: WideChar = #39; // code of '
+  DQ: WideChar = #34; // code of "
+var
+  i: integer;
+  SChar: widechar;
+begin
+  Result:= true;
+  if Length(S) < 2 then begin Result:= false; exit; end;
+  if (S[length(S)] = SQ) and (S[1] = SQ) then begin // single quotes
+    for i:= 2 to length(S)-1 do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if (SChar = SQ) or not IsXmlPubidChar(SChar)
+        then begin Result:= false; exit; end;
+    end;
+  end else if (S[length(S)] = DQ) and (S[1] = DQ) then begin // double quotes
+    for i:= 2 to length(S)-1 do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if not IsXmlPubidChar(SChar) then begin Result:= false; exit; end;
+    end;
+  end else begin Result:= false; exit; end;
+end;
+
+function isXmlPubidChars(const S: UnicodeString): boolean;
+// Returns 'true' if all characters in S belong to the XML PubidChar class
+// (see XML 1.0, 2nd ed., prod. [13], or if S is an empty UnicodeString.
+// Otherwise 'false' is returned.
+var
+  i: integer;
+  SChar: widechar;
+begin
+  Result:= true;
+  for i:= 1 to length(S) do begin
+    SChar:= WideChar((PWideChar(S)+i-1)^);
+    if not IsXmlPubidChar(SChar) then begin Result:= false; exit; end;
+  end;
+end;
+
+function IsXmlComment(const S: UnicodeString): boolean;
+var
+  i,lengthS: integer;
+  SChar: wideChar;
+  S2: UnicodeString;
+begin
+  Result:= true;
+  lengthS:= length(S);
+  if lengthS < 7 then begin result:= false; exit; end;
+  if copy(S,1,4) <> '<!--' then begin result:= false; exit; end;
+  if copy(S,lengthS-2,3) <> '-->' then begin result:= false; exit; end;
+  if lengthS = 7 then exit;  // Empty comment --> ok.
+  SChar:= WideChar((PWideChar(S)+lengthS-4)^);
+  if SChar = '-'
+    then begin result:= false; exit; end;
+  S2:= copy(S,5,lengthS-7);
+  if pos(UnicodeString('--'),S2) > 0 then begin result:= false; exit; end;
+  i:= 0;
+  while i < pred(length(S2)) do begin
+    inc(i);
+    SChar:= S2[i];
+    if IsUtf16LowSurrogate(sChar) then begin Result:= false; exit; end;
+    if IsUtf16HighSurrogate(SChar) then begin
+      if i = length(S2) then begin Result:= false; exit; end;
+      inc(i);
+      SChar:= S2[i];
+      if not IsUtf16LowSurrogate(SChar) then begin Result:= false; exit; end;
+    end;
+    if not IsXmlChar(sChar) then begin Result:= false; exit; end;
+  end;
+end;
+
+function IsXmlCData(const S: UnicodeString): boolean;
+var
+  i: integer;
+  SChar: wideChar;
+begin
+  Result:= true;
+  if pos(UnicodeString(']]>'),S) > 0 then begin result:= false; exit; end;
+  i:= 0;
+  while i < length(S) do begin
+    inc(i);
+    SChar:= S[i];
+    if IsUtf16LowSurrogate(sChar) then begin Result:= false; exit; end;
+    if IsUtf16HighSurrogate(SChar) then begin
+      if i = length(s) then begin Result:= false; exit; end;
+      inc(i);
+      SChar:= S[i];
+      if not IsUtf16LowSurrogate(SChar) then begin Result:= false; exit; end;
+    end;
+    if not IsXmlChar(sChar) then begin Result:= false; exit; end;
+  end;
+end;
+
+function IsXmlCharData(const S: UnicodeString): boolean;
+var
+  i: integer;
+  SChar: wideChar;
+begin
+  Result:= true;
+  i:= 0;
+  while i < length(S) do begin
+    inc(i);
+    SChar:= S[i];
+    if IsUtf16LowSurrogate(sChar) then begin Result:= false; exit; end;
+    if IsUtf16HighSurrogate(SChar) then begin
+      if i = length(s) then begin Result:= false; exit; end;
+      inc(i);
+      SChar:= S[i];
+      if not IsUtf16LowSurrogate(SChar) then begin Result:= false; exit; end;
+    end;
+    if not IsXmlChar(sChar) then begin Result:= false; exit; end;
+    if SChar = '<' then begin Result:= false; exit; end;
+    if SChar = '&' then begin Result:= false; exit; end;
+  end;
+end;
+
+function IsXmlPITarget(const S: UnicodeString): boolean;
+begin
+  Result:= IsXmlName(S);
+  if length(S) = 3 then
+    if ((S[1] = 'X') or (S[1] = 'x')) and
+       ((S[2] = 'M') or (S[2] = 'm')) and
+       ((S[3] = 'L') or (S[3] = 'l'))
+      then Result:= false;
+end;
+
+function isXmlVersionNumChar(const s: WideChar): boolean;
+begin
+  if ( ((s >= 'a') and (s <= 'z')) or
+       ((s >= 'A') and (s <= 'Z')) or
+       ((s >= '0') and (s <= '9')) or
+       (s = '_') or (s = '.') or
+       (s = ':') or (s = '-')  )
+    then result:= true
+    else result:= false;
+end;
+
+function IsXmlVersionNum(const S: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  Result:= true;
+  if Length(S) = 0 then begin Result:= false; exit; end;
+  for i:= 1 to length(S) do begin
+    if not isXmlVersionNumChar(S[i])
+      then begin Result:= false; exit; end;
+  end;
+end;
+
+function isXmlEncNameLeadingChar(const s: WideChar): boolean;
+begin
+  if ( ((s >= 'a') and (s <= 'z')) or
+       ((s >= 'A') and (s <= 'Z')) )
+    then result:= true
+    else result:= false;
+end;
+
+function isXmlEncNameFollowingChar(const s: WideChar): boolean;
+begin
+  if ( ((s >= 'a') and (s <= 'z')) or
+       ((s >= 'A') and (s <= 'Z')) or
+       ((s >= '0') and (s <= '9')) or
+       (s = '.') or (s = '_') or (s = '-')  )
+    then result:= true
+    else result:= false;
+end;
+
+function IsXmlEncName(const S: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  result:= true;
+  if length(S) = 0 then begin result:= false; exit; end;
+  if not isXmlEncNameLeadingChar(S[1])
+    then begin result:= false; exit; end;
+  for i:= 2 to length(S) do begin
+    if not isXmlEncNameFollowingChar(S[i])
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function IsXmlStringType(const S: UnicodeString): boolean;
+begin
+  if S = 'CDATA'
+    then Result:= true
+    else Result:= false;
+end;
+
+function IsXmlTokenizedType(const S: UnicodeString): boolean;
+begin
+  if (S='ID') or (S='IDREF') or (S='IDREFS') or (S='ENTITY') or
+     (S='ENTITIES') or (S='NMTOKEN') or (S='NMTOKENS')
+    then Result:= true
+    else Result:= false;
+end;
+
+function IsXmlNCNameChar(const s: WideChar): boolean;
+begin
+  if IsXmlLetter(S) or IsXmlDigit(S) or IsXmlCombiningChar(S)
+    or IsXmlExtender(S) or (S='.') or (S='-') or (S='_')
+    then Result:= true
+    else Result:= false;
+end;
+
+function IsXmlNCName(const S: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  Result:= true;
+  if Length(S) = 0 then begin Result:= false; exit; end;
+  if not ( IsXmlLetter(PWideChar(S)^)
+           or (PWideChar(S)^ = '_')   )
+    then begin Result:= false; exit; end;
+  for i:= 2 to length(S) do
+    if not IsXmlNCNameChar(S[i])
+      then begin Result:= false; exit; end;
+end;
+
+function IsXmlDefaultAttName(const S: UnicodeString): boolean;
+begin
+  if S = 'xmlns'
+    then Result:= true
+    else Result:= false;
+end;
+
+function IsXmlPrefixedAttName(const S: UnicodeString): boolean;
+var
+  piece: UnicodeString;
+begin
+  if copy(S,1,6) = 'xmlns:' then begin
+    piece:= copy(S,7,length(S)-6);
+    Result:= IsXmlNCName(piece);
+  end else Result:= false;
+end;
+
+function IsXmlNSAttName(const S: UnicodeString): boolean;
+begin
+  Result:= (IsXmlPrefixedAttName(S) or IsXmlDefaultAttName(S));
+end;
+
+function IsXmlLocalPart(const S: UnicodeString): boolean;
+begin
+  Result:= IsXmlNCName(S);
+end;
+
+function IsXmlPrefix(const S: UnicodeString): boolean;
+begin
+  Result:= IsXmlNCName(S);
+end;
+
+function IsXmlQName(const S: UnicodeString): boolean;
+var
+  colonpos: integer;
+  prefix,localpart: UnicodeString;
+begin
+  colonpos:= pos(':',S);
+  if colonpos = 0
+    then result:= IsXmlLocalPart(S)
+    else begin
+      prefix:= copy(S,1,colonpos-1);
+      localpart:= copy(S,colonpos+1,length(S)-colonpos);
+      result:= IsXmlPrefix(prefix) and IsXmlLocalPart(localpart);
+  end;
+end;
+
+function ResolveCharRefs(const S: UnicodeString): UnicodeString;
+var
+  i,j,indexpos: integer;
+  SChar, SChar2: widechar;
+  ref: UnicodeString;
+  content: TdomCustomStr;
+begin
+  result:= '';
+  content:= TdomCustomStr.create;
+  try
+    i:= 1;
+    while i <= length(S) do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if IsUtf16LowSurrogate(sChar)
+        then raise EConvertError.CreateFmt('%S must not start with a UTF-16 low surrogate.',[S]);
+      if IsUtf16HighSurrogate(SChar) then begin
+        if i+1 > length(s)
+          then raise EConvertError.CreateFmt('%S must not end with a UTF-16 high surrogate.',[S]);
+        inc(i);
+        content.addWideChar(SChar);
+        SChar:= WideChar((PWideChar(S)+i-1)^);
+        if not IsUtf16LowSurrogate(SChar)
+          then raise EConvertError.CreateFmt('%S contains an UTF-16 high surrogate without its corresponding low surrogate.',[S]);
+      end;
+      if not IsXmlChar(sChar)
+        then raise EConvertError.CreateFmt('%S contains an invalid character.',[S]);
+      if SChar = '&' then begin {Reference?}
+        indexpos:= -1;
+        for j:= i+1 to length(S) do begin
+          SChar2:= WideChar((PWideChar(S)+j-1)^);
+          if SChar2 = ';' then begin indexpos:= j; break; end;
+        end;
+        if indexpos = -1
+          then raise EConvertError.CreateFmt('%S contains an ''&'' without a '';''.',[S]);
+        ref:= copy(S,i,j-i+1);
+        if IsXmlEntityRef(ref) then begin
+          content.addWideString(ref);
+        end else if IsXmlCharRef(ref) then begin
+          content.addWideString(XmlCharRefToStr(ref));
+        end else raise EConvertError.CreateFmt('%S contains an invalid reference.',[S]);
+        i:= j;
+      end else content.addWideChar(SChar);
+      inc(i);
+    end; {while ...}
+    Result:= content.value;
+  finally
+    content.free;
+  end;
+end;
+
+function XmlIntToCharRef(const value: integer): UnicodeString;
+begin
+  Result:= concat('&#',intToStr(value),';');
+end;
+
+function XmlCharRefToInt(const S: UnicodeString): integer;
+var
+  value: word;
+begin
+  if not IsXmlCharRef(S)
+    then raise EConvertError.CreateFmt('%S is not a valid XmlCharRef value.',[S]);
+  if S[3] = 'x'
+    then Result:= StrToInt(concat('$',copy(S,4,length(S)-4))) // Hex
+    else Result:= StrToInt(copy(S,3,length(S)-3));            // Dec
+  if Result > $10FFFF
+    then raise EConvertError.CreateFmt('%S is not a valid XmlCharRef value.',[S]);
+  if Result < $10000 then begin
+    value:= Result;
+    if not IsXmlChar(WideChar(value))
+      then raise EConvertError.CreateFmt('%S is not a valid XmlCharRef value.',[S]);
+    case result of
+      $D800..$DBFF, // Reserved for high surrogate of Unicode character [$10000..$10FFFF]
+      $DC00..$DFFF: // Reserved for low surrogate of Unicode character [$10000..$10FFFF]
+      raise EConvertError.CreateFmt('%S is not a valid XmlCharRef value.',[S]);
+    end; {case ...}
+  end; {if ...}
+end;
+
+function XmlCharRefToStr(const S: UnicodeString): UnicodeString;
+var
+  value: integer;
+  smallValue: word;
+begin
+  value:= XmlCharRefToInt(S);
+  if value < $10000 then begin
+    smallValue:= value;
+    Result:= UnicodeString(WideChar(smallValue));
+  end else
+    Result:= concat(UnicodeString(Utf16HighSurrogate(value)),
+                    UnicodeString(Utf16LowSurrogate(value)));
+end;
+
+function XmlStrToCharRef(const S: UnicodeString): UnicodeString;
+var
+  SChar,LowSur: widechar;
+  i: integer;
+begin
+  result:= '';
+  i:= 0;
+  while i < length(S) do begin
+    inc(i);
+    SChar:= S[i];
+    if not isXmlChar(SChar)
+      then raise EConvertError.CreateFmt('String contains invalid character %S.',[S]);
+    if isUtf16LowSurrogate(SChar)
+      then raise EConvertError.CreateFmt('Low surrogate %S without high surrogate.',[S]);
+    if isUtf16HighSurrogate(SChar) then begin
+      if i+1 = length(s)
+        then raise EConvertError.CreateFmt('High surrogate %S without low surrogate at end of string.',[S]);
+      inc(i);
+      lowSur:= S[i];
+      if not IsUtf16LowSurrogate(lowSur)
+        then raise EConvertError.CreateFmt('High surrogate %S without low surrogate.',[S]);
+      result:= concat(result,XmlIntToCharRef(Utf16SurrogateToInt(SChar,lowSur)));
+    end else begin
+      result:= concat(result,XmlIntToCharRef(ord(SChar)));
+    end;
+  end; {for ...}
+end;
+
+function isAbnfALPHAWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0041..$005A,$0061..$007A:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfBITWideChar(c: wideChar): boolean;
+begin
+  if (c = '0') or (c = '1')
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfCHARWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0001..$007F:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfCRWideChar(c: wideChar): boolean;
+begin
+  if c = #$0D
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfCRLFWideStr(s: UnicodeString): boolean;
+begin
+  if s = #$0D#$0A
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfCTLWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0000..$001F,$007F:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfDIGITWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0030..$0039:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfDQUOTEWideChar(c: wideChar): boolean;
+begin
+  if c = #$22
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfHEXDIGWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0030..$0039,$0041..$0046:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfHTABWideChar(c: wideChar): boolean;
+begin
+  if c = #$09
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfLFWideChar(c: wideChar): boolean;
+begin
+  if c = #$0A
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfLWSPWideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0
+    then begin result:= false; exit; end
+    else result:= true;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    case word(s[i]) of
+      $0020,$0009:; // SP or TAB --> Do nothing, because everthing is alright
+      $000D: begin  // CR --> Look for LF
+        if i = l then begin result:= false; exit; end;
+        inc(i);
+        if s[i] <> #$0A then begin result:= false; exit; end;
+      end;
+    else begin
+      result:= false;
+      exit;
+      end;
+    end;
+  end;
+end;
+
+function isAbnfOCTETWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0000..$00ff:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfSPWideChar(c: wideChar): boolean;
+begin
+  if c = #$20
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfVCHARWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0021..$007E:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfWSPWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0020,$0009:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfALPHAChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $41..$5A,$61..$7A:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfBITChar(c: Ansichar): boolean;
+begin
+  if (c = AnsiChar('0')) or (c = AnsiChar('1'))
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfCHARChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $01..$7F:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfCRChar(c: Ansichar): boolean;
+begin
+  if c = AnsiChar(#$0D)
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfCRLFStr(s: Ansistring): boolean;
+begin
+  if s = AnsiString(#$0D#$0A)
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfCTLChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $00..$1F,$7F:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfDIGITChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $30..$39:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfDQUOTEChar(c: Ansichar): boolean;
+begin
+  if c = AnsiChar(#$22)
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfHEXDIGChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $30..$39,$41..$46:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfHTABChar(c: AnsiChar): boolean;
+begin
+  if c = AnsiChar(#$09)
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfLFChar(c: AnsiChar): boolean;
+begin
+  if c = AnsiChar(#$0A)
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfLWSPStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0
+    then begin result:= false; exit; end
+    else result:= true;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    case byte(s[i]) of
+      $20,$09:; // SP or TAB --> Do nothing, because everthing is alright
+      $0D: begin  // CR --> Look for LF
+        if i = l then begin result:= false; exit; end;
+        inc(i);
+        if s[i] <> AnsiChar(#$0A) then begin result:= false; exit; end;
+      end;
+    else begin
+      result:= false;
+      exit;
+      end;
+    end;
+  end;
+end;
+
+function isAbnfOCTETChar(c: AnsiChar): boolean;
+begin
+  case byte(c) of
+    $00..$ff:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfSPChar(c: AnsiChar): boolean;
+begin
+  if c = AnsiChar(#$20)
+    then result:= true
+    else result:= false;
+end;
+
+function isAbnfVCHARChar(c: AnsiChar): boolean;
+begin
+  case byte(c) of
+    $21..$7E:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isAbnfWSPChar(c: AnsiChar): boolean;
+begin
+  case byte(c) of
+    $20,$09:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isUriURI_referencewideStr(s: UnicodeString): boolean;
+var
+  dcPos: integer;
+  s1: string;
+begin
+  dcPos:= pos('#',s);
+  if dcPos > 0 then begin
+    s1:= copy(s,1,dcPos-1);
+    result:= (   isUriAbsoluteURIwideStr(s1)
+              or isUriRelativeURIwideStr(s1)
+              or (s1 = '') )
+              and isUriFragmentwideStr(copy(s,dcPos+1,length(s)-dcPos));
+  end else
+    result:= isUriAbsoluteURIwideStr(s) or isUriRelativeURIwideStr(s) or (s = '');
+end;
+
+function isUriAbsoluteURIwideStr(s: UnicodeString): boolean;
+var
+  colonPos: integer;
+  s1: string;
+begin
+  colonPos:= pos(':',s);
+  if colonPos > 0 then begin
+    s1:= copy(s,colonPos+1,length(s)-colonPos);
+    result:= isUriSchemewideStr(copy(s,1,colonPos-1)) and
+             ( isUriHier_partwideStr(s1) or isUriOpaque_partwideStr(s1) );
+  end else result:= false;
+end;
+
+function isUriRelativeURIwideStr(s: UnicodeString): boolean;
+var
+  qmPos: integer;
+  s1: string;
+begin
+  qmPos:= pos(#63,s);
+  if qmPos > 0 then begin
+    s1:= copy(s,1,qmPos-1);
+    result:= (   isUriNet_pathwideStr(s1)
+              or isUriAbs_pathwideStr(s1)
+              or isUriRel_pathwideStr(s1) )
+              and isUriQuerywideStr(copy(s,qmPos+1,length(s)-qmPos));
+  end else
+    result:= isUriNet_pathwideStr(s) or isUriAbs_pathwideStr(s) or isUriRel_pathwideStr(s);
+end;
+
+function isUriHier_partwideStr(s: UnicodeString): boolean;
+var
+  qmPos: integer;
+  s1: string;
+begin
+  qmPos:= pos(#63,s);
+  if qmPos > 0 then begin
+    s1:= copy(s,1,qmPos-1);
+    result:= (   isUriNet_pathwideStr(s1)
+              or isUriAbs_pathwideStr(s1) )
+              and isUriQuerywideStr(copy(s,qmPos+1,length(s)-qmPos));
+  end else
+    result:= isUriNet_pathwideStr(s) or isUriAbs_pathwideStr(s);
+end;
+
+function isUriOpaque_partwideStr(s: UnicodeString): boolean;
+begin
+  if s = '' then begin result:= false; exit; end;
+  if s[1] = '/' then begin result:= false; exit; end;
+  result:= isUriUricwideStr(s);
+end;
+
+function isUriNet_pathwideStr(s: UnicodeString): boolean;
+var
+  slashPos: integer;
+begin
+  if copy(s,1,2) <> '//' then begin result:= false; exit; end;
+  s:= copy(s,3,length(s)-2);
+  slashPos:= pos('/',s);
+  if slashPos > 0 then begin
+    result:= isUriAuthoritywideStr(copy(s,1,slashPos-1)) and isUriAbs_pathwideStr(copy(s,slashPos,length(s)-slashPos+1));
+  end else
+    result:= isUriAuthoritywideStr(s);
+end;
+
+function isUriAbs_pathwideStr(s: UnicodeString): boolean;
+begin
+  if s = '' then begin result:= false; exit; end;
+  if s[1] <> '/' then begin result:= false; exit; end;
+  result:= isUriPath_segmentswideStr(copy(s,2,length(s)-1));
+end;
+
+function isUriRel_pathwideStr(s: UnicodeString): boolean;
+var
+  slashPos: integer;
+begin
+  slashPos:= pos('/',s);
+  if slashPos > 0 then begin
+    result:= isUriRel_segmentwideStr(copy(s,1,slashPos-1)) and isUriAbs_pathwideStr(copy(s,slashPos,length(s)-slashPos+1));
+  end else
+    result:= isUriRel_segmentwideStr(s);
+end;
+
+function isUriRel_segmentwideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  result:= true;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedWideChar(s[i])
+                      or (s[i] = ';') or (s[i] = '@') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriSchemewideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  if not isAbnfALPHAWideChar(s[1]) then begin result:= false; exit; end;
+  result:= true;
+  for i:= 2 to l do
+    if not (    isAbnfALPHAWideChar(s[i])
+             or isAbnfDIGITWideChar(s[i])
+             or (s[i] = '+')
+             or (s[i] = '-')
+             or (s[i] = '.')
+           )
+      then begin result:= false; exit; end;
+end;
+
+function isUriAuthoritywideStr(s: UnicodeString): boolean;
+begin
+  result:= isUriServerwideStr(s) or isUriReg_namewideStr(s);
+end;
+
+function isUriReg_namewideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  result:= true;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedWideChar(s[i])
+                      or (s[i] = '$') or (s[i] = ',') or (s[i] = ';')
+                      or (s[i] = ':') or (s[i] = '@') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriServerwideStr(s: UnicodeString): boolean;
+var
+  atPos,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= true; exit; end;
+  atPos:= pos('@',s);
+  if atPos > 0 then begin
+    result:= isUriUserinfowideStr(copy(s,1,atPos-1)) and isUriHostportwideStr(copy(s,atPos+1,l-atPos));
+  end else
+    result:= isUriHostportwideStr(s);
+end;
+
+function isUriUserinfowideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  result:= true;
+  if l = 0 then exit;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedWideChar(s[i])
+                      or (s[i] = ';') or (s[i] = ':') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriHostPortwideStr(s: UnicodeString): boolean;
+var
+  colonPos: integer;
+begin
+  colonPos:= pos(':',s);
+  if colonPos > 0 then begin
+    result:= isUriHostwideStr(copy(s,1,colonPos-1)) and isUriPortwideStr(copy(s,colonPos+1,length(s)-colonPos));
+  end else
+    result:= isUriHostwideStr(s);
+end;
+
+function isUriHostwideStr(s: UnicodeString): boolean;
+begin
+  result:= isUriHostnamewideStr(s) or isUriIPv4addresswideStr(s);
+end;
+
+function isUriHostnamewideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  result:= true;
+  if s[l] = '.' then dec(l);
+  i:= l;
+  while i > 0 do begin
+    if s[i] = '.' then break;
+    dec(i);
+  end;
+  if not isUriToplabelwideStr(copy(s,i+1,l-i))
+    then begin result:= false; exit; end;
+  while i > 0 do begin
+    l:= i;
+    if s[l] = '.' then dec(l);
+    i:= l;
+    while i > 0 do begin
+      if s[i] = '.' then break;
+      dec(i);
+    end;
+    if not isUriDomainlabelwideStr(copy(s,i+1,l-i))
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriDomainlabelwideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  if not ( isUriAlphanumWideChar(s[1]) and isUriAlphanumWideChar(s[l]) )
+    then begin result:= false; exit; end;
+  result:= true;
+  i:= 1;
+  while i < l do begin
+    inc(i);
+    if not (isUriAlphanumWideChar(s[i]) or (s[i] = '-') )
+       then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriToplabelwideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  if not ( isUriAlphaWideChar(s[1]) and isUriAlphanumWideChar(s[l]) )
+    then begin result:= false; exit; end;
+  result:= true;
+  i:= 1;
+  while i < l do begin
+    inc(i);
+    if not (isUriAlphanumWideChar(s[i]) or (s[i] = '-') )
+       then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriIPv4addresswideStr(s: UnicodeString): boolean;
+var
+  digitNo,colonNo,i,l: integer;
+  digitFound: boolean;
+begin
+  result:= false;
+  l:= length(s);
+  i:= 0;
+  digitNo:= 0;
+  colonNo:= 0;
+  digitFound:= false;
+  while i < l do begin
+    if isUriDigitWideChar(s[i]) then begin
+      if not digitFound then begin
+        digitFound:= true;
+        inc(digitNo);
+      end;
+    end else if s[i] = '.' then begin
+      if not digitFound then exit;
+      digitFound:= false;
+      inc(colonNo);
+    end else exit;
+  end;
+  if (colonNo = 3) and (digitNo = 4) then result:= true;
+end;
+
+function isUriPortwideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  result:= true;
+  l:= length(s);
+  for i:= 1 to l do
+    if not isUriDigitWideChar(s[i]) then begin result:= false; exit; end;
+end;
+
+function isUriPathwideStr(s: UnicodeString): boolean;
+begin
+  if isUriAbs_pathwideStr(s) or isUriOpaque_partwideStr(s) or (s = '')
+    then result:= true
+    else result:= false;
+end;
+
+function isUriPath_segmentswideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  result:= true;
+  if l = 0 then exit;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedWideChar(s[i])
+                      or (s[i] = ':') or (s[i] = '@') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') or (s[i] = ';') or (s[i] = '/') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriSegmentwideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  result:= true;
+  if l = 0 then exit;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedWideChar(s[i])
+                      or (s[i] = ':') or (s[i] = '@') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') or (s[i] = ';') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriParamwideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  result:= true;
+  if l = 0 then exit;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedWideChar(s[i])
+                      or (s[i] = ':') or (s[i] = '@') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriQuerywideStr(s: UnicodeString): boolean;
+begin
+  if s = ''
+    then result:= true
+    else result:= isUriUricwideStr(s);
+end;
+
+function isUriFragmentwideStr(s: UnicodeString): boolean;
+begin
+  if s = ''
+    then result:= true
+    else result:= isUriUricwideStr(s);
+end;
+
+function isUriUricwideStr(s: UnicodeString): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0
+    then begin result:= false; exit; end
+    else result:= true;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexWideChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriReservedWideChar(s[i]) or isUriUnreservedWideChar(s[i]) )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriReservedWideChar(c: wideChar): boolean;
+begin
+  if (c=';') or (c='/') or (c=#63) or (c=':') or (c='@') or (c='&') or
+     (c='=') or (c='+') or (c='$') or (c=',')
+    then result:= true
+    else result:= false;
+end;
+
+function isUriUnreservedWideChar(c: wideChar): boolean;
+begin
+  if isUriAlphanumWideChar(c) or isUriMarkWideChar(c)
+    then result:= true
+    else result:= false;
+end;
+
+function isUriMarkWideChar(c: wideChar): boolean;
+begin
+  if (c='-') or (c='_') or (c='.') or (c='!') or (c='~') or (c='*') or
+     (c=#39) or (c='(') or (c=')')
+    then result:= true
+    else result:= false;
+end;
+
+function isUriHexWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0030..$0039,$0041..$0046,$0061..$0066:  // 0..9 , A..F , a..f
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isUriAlphanumWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0030..$0039,$0041..$005A,$0061..$007A:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isUriAlphaWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0041..$005A,$0061..$007A:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isUriDigitWideChar(c: wideChar): boolean;
+begin
+  case word(c) of
+    $0030..$0039:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isUriURI_referenceStr(s: Ansistring): boolean;
+var
+  dcPos: integer;
+  s1: Ansistring;
+begin
+  dcPos:= pos(AnsiChar('#'),s);
+  if dcPos > 0 then begin
+    s1:= copy(s,1,dcPos-1);
+    result:= (   isUriAbsoluteURIStr(s1)
+              or isUriRelativeURIStr(s1)
+              or (s1 = '') )
+              and isUriFragmentStr(copy(s,dcPos+1,length(s)-dcPos));
+  end else
+    result:= isUriAbsoluteURIStr(s) or isUriRelativeURIStr(s) or (s = '');
+end;
+
+function isUriAbsoluteURIStr(s: Ansistring): boolean;
+var
+  colonPos: integer;
+  s1: Ansistring;
+begin
+  colonPos:= pos(AnsiChar(':'),s);
+  if colonPos > 0 then begin
+    s1:= copy(s,colonPos+1,length(s)-colonPos);
+    result:= isUriSchemeStr(copy(s,1,colonPos-1)) and
+             ( isUriHier_partStr(s1) or isUriOpaque_partStr(s1) );
+  end else result:= false;
+end;
+
+function isUriRelativeURIStr(s: Ansistring): boolean;
+var
+  qmPos: integer;
+  s1: Ansistring;
+begin
+  qmPos:= pos(AnsiChar('?'),s);
+  if qmPos > 0 then begin
+    s1:= copy(s,1,qmPos-1);
+    result:= (   isUriNet_pathStr(s1)
+              or isUriAbs_pathStr(s1)
+              or isUriRel_pathStr(s1) )
+              and isUriQueryStr(copy(s,qmPos+1,length(s)-qmPos));
+  end else
+    result:= isUriNet_pathStr(s) or isUriAbs_pathStr(s) or isUriRel_pathStr(s);
+end;
+
+function isUriHier_partStr(s: Ansistring): boolean;
+var
+  qmPos: integer;
+  s1: Ansistring;
+begin
+  qmPos:= pos(AnsiChar('?'),s);
+  if qmPos > 0 then begin
+    s1:= copy(s,1,qmPos-1);
+    result:= (   isUriNet_pathStr(s1)
+              or isUriAbs_pathStr(s1) )
+              and isUriQueryStr(copy(s,qmPos+1,length(s)-qmPos));
+  end else
+    result:= isUriNet_pathStr(s) or isUriAbs_pathStr(s);
+end;
+
+function isUriOpaque_partStr(s: Ansistring): boolean;
+begin
+  if s = '' then begin result:= false; exit; end;
+  if s[1] = AnsiChar('/') then begin result:= false; exit; end;
+  result:= isUriUricStr(s);
+end;
+
+function isUriNet_pathStr(s: Ansistring): boolean;
+var
+  slashPos: integer;
+begin
+  if copy(s,1,2) <> AnsiString('//') then begin result:= false; exit; end;
+  s:= copy(s,3,length(s)-2);
+  slashPos:= pos(AnsiChar('/'),s);
+  if slashPos > 0 then begin
+    result:= isUriAuthorityStr(copy(s,1,slashPos-1)) and isUriAbs_pathStr(copy(s,slashPos,length(s)-slashPos+1));
+  end else
+    result:= isUriAuthorityStr(s);
+end;
+
+function isUriAbs_pathStr(s: AnsiString): boolean;
+begin
+  if s = '' then begin result:= false; exit; end;
+  if s[1] <> AnsiChar('/') then begin result:= false; exit; end;
+  result:= isUriPath_segmentsStr(copy(s,2,length(s)-1));
+end;
+
+function isUriRel_pathStr(s: Ansistring): boolean;
+var
+  slashPos: integer;
+begin
+  slashPos:= pos(AnsiChar('/'),s);
+  if slashPos > 0 then begin
+    result:= isUriRel_segmentStr(copy(s,1,slashPos-1)) and isUriAbs_pathStr(copy(s,slashPos,length(s)-slashPos+1));
+  end else
+    result:= isUriRel_segmentStr(s);
+end;
+
+function isUriRel_segmentStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  result:= true;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = AnsiChar('%') then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedChar(s[i])
+                      or (s[i] = AnsiChar(';')) or (s[i] = AnsiChar('@')) or (s[i] = AnsiChar('&'))
+                      or (s[i] = AnsiChar('=')) or (s[i] = AnsiChar('+')) or (s[i] = AnsiChar('$'))
+                      or (s[i] = AnsiChar(',')) )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriSchemeStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  if not isAbnfALPHAChar(s[1]) then begin result:= false; exit; end;
+  result:= true;
+  for i:= 2 to l do
+    if not (    isAbnfALPHAChar(s[i])
+             or isAbnfDIGITChar(s[i])
+             or (s[i] = AnsiChar('+'))
+             or (s[i] = AnsiChar('-'))
+             or (s[i] = AnsiChar('.'))
+           )
+      then begin result:= false; exit; end;
+end;
+
+function isUriAuthorityStr(s: Ansistring): boolean;
+begin
+  result:= isUriServerStr(s) or isUriReg_nameStr(s);
+end;
+
+function isUriReg_nameStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  result:= true;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = AnsiChar('%') then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedChar(s[i])
+                      or (s[i] = AnsiChar('$')) or (s[i] = AnsiChar(',')) or (s[i] = AnsiChar(';'))
+                      or (s[i] = AnsiChar(':')) or (s[i] = AnsiChar('@')) or (s[i] = AnsiChar('&'))
+                      or (s[i] = AnsiChar('=')) or (s[i] = AnsiChar('+')) )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriServerStr(s: Ansistring): boolean;
+var
+  atPos,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= true; exit; end;
+  atPos:= pos(AnsiChar('@'),s);
+  if atPos > 0 then begin
+    result:= isUriUserinfoStr(copy(s,1,atPos-1)) and isUriHostportStr(copy(s,atPos+1,l-atPos));
+  end else
+    result:= isUriHostportStr(s);
+end;
+
+function isUriUserinfoStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  result:= true;
+  if l = 0 then exit;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedChar(s[i])
+                      or (s[i] = ';') or (s[i] = ':') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriHostPortStr(s: ansistring): boolean;
+var
+  colonPos: integer;
+begin
+  colonPos:= pos(AnsiChar(':'),s);
+  if colonPos > 0 then begin
+    result:= isUriHostStr(copy(s,1,colonPos-1)) and isUriPortStr(copy(s,colonPos+1,length(s)-colonPos));
+  end else
+    result:= isUriHostStr(s);
+end;
+
+function isUriHostStr(s: Ansistring): boolean;
+begin
+  result:= isUriHostnameStr(s) or isUriIPv4addressStr(s);
+end;
+
+function isUriHostnameStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  result:= true;
+  if s[l] = '.' then dec(l);
+  i:= l;
+  while i > 0 do begin
+    if s[i] = '.' then break;
+    dec(i);
+  end;
+  if not isUriToplabelStr(copy(s,i+1,l-i))
+    then begin result:= false; exit; end;
+  while i > 0 do begin
+    l:= i;
+    if s[l] = '.' then dec(l);
+    i:= l;
+    while i > 0 do begin
+      if s[i] = '.' then break;
+      dec(i);
+    end;
+    if not isUriDomainlabelStr(copy(s,i+1,l-i))
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriDomainlabelStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  if not ( isUriAlphanumChar(s[1]) and isUriAlphanumChar(s[l]) )
+    then begin result:= false; exit; end;
+  result:= true;
+  i:= 1;
+  while i < l do begin
+    inc(i);
+    if not (isUriAlphanumChar(s[i]) or (s[i] = '-') )
+       then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriToplabelStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0 then begin result:= false; exit; end;
+  if not ( isUriAlphaChar(s[1]) and isUriAlphanumChar(s[l]) )
+    then begin result:= false; exit; end;
+  result:= true;
+  i:= 1;
+  while i < l do begin
+    inc(i);
+    if not (isUriAlphanumChar(s[i]) or (s[i] = '-') )
+       then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriIPv4addressStr(s: Ansistring): boolean;
+var
+  digitNo,colonNo,i,l: integer;
+  digitFound: boolean;
+begin
+  result:= false;
+  l:= length(s);
+  i:= 0;
+  digitNo:= 0;
+  colonNo:= 0;
+  digitFound:= false;
+  while i < l do begin
+    if isUriDigitChar(s[i]) then begin
+      if not digitFound then begin
+        digitFound:= true;
+        inc(digitNo);
+      end;
+    end else if s[i] = '.' then begin
+      if not digitFound then exit;
+      digitFound:= false;
+      inc(colonNo);
+    end else exit;
+  end;
+  if (colonNo = 3) and (digitNo = 4) then result:= true;
+end;
+
+function isUriPortStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  result:= true;
+  l:= length(s);
+  for i:= 1 to l do
+    if not isUriDigitChar(s[i]) then begin result:= false; exit; end;
+end;
+
+function isUriPathStr(s: Ansistring): boolean;
+begin
+  if isUriAbs_pathStr(s) or isUriOpaque_partStr(s) or (s = '')
+    then result:= true
+    else result:= false;
+end;
+
+function isUriPath_segmentsStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  result:= true;
+  if l = 0 then exit;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedChar(s[i])
+                      or (s[i] = ':') or (s[i] = '@') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') or (s[i] = ';') or (s[i] = '/') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriSegmentStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  result:= true;
+  if l = 0 then exit;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedChar(s[i])
+                      or (s[i] = ':') or (s[i] = '@') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') or (s[i] = ';') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriParamStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  result:= true;
+  if l = 0 then exit;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriUnreservedChar(s[i])
+                      or (s[i] = ':') or (s[i] = '@') or (s[i] = '&')
+                      or (s[i] = '=') or (s[i] = '+') or (s[i] = '$')
+                      or (s[i] = ',') )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriQueryStr(s: Ansistring): boolean;
+begin
+  if s = ''
+    then result:= true
+    else result:= isUriUricStr(s);
+end;
+
+function isUriFragmentStr(s: Ansistring): boolean;
+begin
+  if s = ''
+    then result:= true
+    else result:= isUriUricStr(s);
+end;
+
+function isUriUricStr(s: Ansistring): boolean;
+var
+  i,l: integer;
+begin
+  l:= length(s);
+  if l = 0
+    then begin result:= false; exit; end
+    else result:= true;
+  i:= 0;
+  while i < l do begin
+    inc(i);
+    if s[i] = '%' then begin
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+      if i = l then begin result:= false; exit; end;
+      inc(i);
+      if not isUriHexChar(s[i]) then begin result:= false; exit; end;
+    end else if not ( isUriReservedChar(s[i]) or isUriUnreservedChar(s[i]) )
+      then begin result:= false; exit; end;
+  end;
+end;
+
+function isUriReservedChar(c: AnsiChar): boolean;
+begin
+  if (c=';') or (c='/') or (c='?') or (c=':') or (c='@') or (c='&') or
+     (c='=') or (c='+') or (c='$') or (c=',')
+    then result:= true
+    else result:= false;
+end;
+
+function isUriUnreservedChar(c: Ansichar): boolean;
+begin
+  if isUriAlphanumChar(c) or isUriMarkChar(c)
+    then result:= true
+    else result:= false;
+end;
+
+function isUriMarkChar(c: Ansichar): boolean;
+begin
+  if (c='-') or (c='_') or (c='.') or (c='!') or (c='~') or (c='*') or
+     (c=#39) or (c='(') or (c=')')
+    then result:= true
+    else result:= false;
+end;
+
+function isUriHexChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $30..$39,$41..$46,$61..$66:  // 0..9 , A..F , a..f
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isUriAlphanumChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $30..$39,$41..$5A,$61..$7A:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isUriAlphaChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $41..$5A,$61..$7A:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function isUriDigitChar(c: Ansichar): boolean;
+begin
+  case byte(c) of
+    $30..$39:
+    result:= true;
+  else
+    result:= false;
+  end;
+end;
+
+function Ansi_LastDelimiter(const Delimiters, S: Ansistring): Integer;
+var
+  P: PAnsiChar;
+begin
+  Result := Length(S);
+  P := PAnsiChar(Delimiters);
+  while Result > 0 do
+  begin
+    if (S[Result] <> #0) and (StrScan(P, S[Result]) <> nil) then
+      if (ByteType(S, Result) = mbTrailByte) then
+        Dec(Result)
+      else
+        Exit;
+    Dec(Result);
+  end;
+end;
+
+
+function resolveRelativeUriStr(const baseUri,
+                                     relUri: ansistring;
+                                 var resultUri: ansistring): boolean;
+var
+  BaseUriAnalyzer,RelUriAnalyzer: TUriStrAnalyzer;
+  i,slashPos,queryIndex: integer;
+  pathBuffer: Ansistring;
+  segments: TStringList;
+begin
+  resultUri:= '';
+  BaseUriAnalyzer:= TUriStrAnalyzer.create;
+  RelUriAnalyzer:= TUriStrAnalyzer.create;
+  try
+    result:= BaseUriAnalyzer.setUriReference(baseUri);
+    result:= (RelUriAnalyzer.setUriReference(relUri) and result);
+    result:= ((BaseUriAnalyzer.HasUriScheme or RelUriAnalyzer.HasUriScheme) and result);
+    if not result then exit;  // baseUri is not an absolute URI reference, or baseUri or relUri is maleformed
+    with RelUriAnalyzer do begin
+      if (UriPath = '') and not ( HasUriScheme or HasUriAuthority or HasUriQuery) then begin
+        // Same document reference detected
+        BaseUriAnalyzer.setUriFragment(UriFragment,HasUriFragment);
+        resultUri:= BaseUriAnalyzer.UriReference;
+        exit;
+      end;
+      if HasUriScheme then begin
+        // relUri is an absolute URI --> we are done.
+        resultUri:= relUri;
+        exit;
+      end;
+      // inherit scheme:
+      setUriScheme(BaseUriAnalyzer.UriScheme,BaseUriAnalyzer.HasUriScheme);
+      if not HasUriAuthority then begin
+        // inherit authority:
+        setUriAuthority(BaseUriAnalyzer.UriAuthority,BaseUriAnalyzer.HasUriAuthority);
+        if not (copy(UriPath,1,1) = '/') then begin
+          // analyze paths:
+          { TODO -oek -cUnicode : bad performance: need to create ansi version of TStringList }
+          segments:= TStringList.create;
+          try
+            slashPos:= Ansi_LastDelimiter(AnsiChar('/'),BaseUriAnalyzer.UriPath);
+            if slashPos > 0
+              then pathBuffer:= copy(BaseUriAnalyzer.UriPath,2,slashPos-1) // Copy path without last segment and first character which is always '/'
+              else pathBuffer:= '';
+            pathBuffer:= concat(pathBuffer,UriPath);
+            with segments do begin
+              // cut pathBuffer into segments:
+              slashPos:= pos(AnsiChar('/'),pathBuffer);
+              while slashPos > 0 do begin
+                Add({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(copy(pathBuffer,1,slashPos-1)));
+                pathBuffer:= copy(pathBuffer,slashPos+1,length(pathBuffer)-slashPos);
+                slashPos:= pos(AnsiChar('/'),pathBuffer);
+              end; {while ...}
+              Add({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(pathBuffer));
+              if (pathBuffer = '..') or (pathBuffer = '.')
+                then Add(''); // Necessary to preserve ending '/' under some circumstances
+              // remove '.' segments:
+              queryIndex:= IndexOf('.');
+              while queryIndex > -1 do begin
+                Delete(queryIndex);
+                queryIndex:= IndexOf('.');
+              end;
+              // remove '<segment>/..' segments:
+              queryIndex:= IndexOf('..');
+              while queryIndex > 0 do begin
+                Delete(queryIndex);
+                Delete(pred(queryIndex));
+                queryIndex:= IndexOf('..');
+              end;
+              // test for maleformed path:
+              if count > 0
+                then if strings[0] = '..' then begin
+                  result:= false;
+                  exit;
+                end;
+              pathBuffer:= '';
+              for i:= 0 to pred(count) do
+                pathBuffer:= pathBuffer + AnsiChar('/') +{$IFDEF UNICODE}WideStringToAnsiString{$ENDIF} (strings[i]);
+              setUriPath(pathBuffer);
+            end; {with segments ...}
+          finally
+            segments.free;
+          end;
+        end; {if not (copy(UriPath,1,1) = '/') ...}
+      end; {if not HasAuthorityScheme ...}
+      resultUri:= UriReference;
+    end; {with RelUriAnalyzer ...}
+  finally
+    BaseUriAnalyzer.free;
+    RelUriAnalyzer.free;
+  end;
+end;
+
+function resolveRelativeUriWideStr(const baseUri,
+                                         relUri: UnicodeString;
+                                     var resultUri: UnicodeString): boolean;
+var
+  BaseUriAnalyzer,RelUriAnalyzer: TUriWideStrAnalyzer;
+  i,slashPos,queryIndex: integer;
+  pathBuffer: UnicodeString;
+  segments: TdomWideStringList;
+begin
+  resultUri:= '';
+  BaseUriAnalyzer:= TUriWideStrAnalyzer.create;
+  RelUriAnalyzer:= TUriWideStrAnalyzer.create;
+  try
+    result:= BaseUriAnalyzer.setUriReference(baseUri);
+    result:= (RelUriAnalyzer.setUriReference(relUri) and result);
+    result:= ( (BaseUriAnalyzer.HasUriScheme or RelUriAnalyzer.HasUriScheme) and result);
+    if not result then exit;  // baseUri is not an absolute URI reference, or baseUri or relUri is maleformed
+    with RelUriAnalyzer do begin
+      if (UriPath = '') and not ( HasUriScheme or HasUriAuthority or HasUriQuery) then begin
+        // Same document reference detected
+        BaseUriAnalyzer.setUriFragment(UriFragment,HasUriFragment);
+        resultUri:= BaseUriAnalyzer.UriReference;
+        exit;
+      end;
+      if HasUriScheme then begin
+        // relUri is an absolute URI --> we are done.
+        resultUri:= relUri;
+        exit;
+      end;
+      // inherit scheme:
+      setUriScheme(BaseUriAnalyzer.UriScheme,BaseUriAnalyzer.HasUriScheme);
+      if not HasUriAuthority then begin
+        // inherit authority:
+        setUriAuthority(BaseUriAnalyzer.UriAuthority,BaseUriAnalyzer.HasUriAuthority);
+        if not (copy(UriPath,1,1) = '/') then begin
+          // analyze paths:
+          segments:= TdomWideStringList.create;
+          try
+            slashPos:= SysUtils.LastDelimiter('/',BaseUriAnalyzer.UriPath);
+            if slashPos > 0
+              then pathBuffer:= copy(BaseUriAnalyzer.UriPath,2,slashPos-1) // Copy path without last segment and first character which is always '/'
+              else pathBuffer:= '';
+            pathBuffer:= concat(pathBuffer,UriPath);
+            with segments do begin
+              // cut pathBuffer into segments:
+              slashPos:= pos('/',pathBuffer);
+              while slashPos > 0 do begin
+                Add(copy(pathBuffer,1,slashPos-1));
+                pathBuffer:= copy(pathBuffer,slashPos+1,length(pathBuffer)-slashPos);
+                slashPos:= pos('/',pathBuffer);
+              end; {while ...}
+              Add(pathBuffer);
+              if (pathBuffer = '..') or (pathBuffer = '.')
+                then Add(''); // Necessary to preserve ending '/' under some circumstances
+              // remove '.' segments:
+              queryIndex:= IndexOf('.');
+              while queryIndex > -1 do begin
+                Delete(queryIndex);
+                queryIndex:= IndexOf('.');
+              end;
+              // remove '<segment>/..' segments:
+              queryIndex:= IndexOf('..');
+              while queryIndex > 0 do begin
+                Delete(queryIndex);
+                Delete(pred(queryIndex));
+                queryIndex:= IndexOf('..');
+              end;
+              // test for maleformed path:
+              if count > 0
+                then if wideStrings[0] = '..' then begin
+                  result:= false;
+                  exit;
+                end;
+              pathBuffer:= '';
+              for i:= 0 to pred(count) do
+                pathBuffer:= concat(pathBuffer,'/',wideStrings[i]);
+              setUriPath(pathBuffer);
+            end; {with segments ...}
+          finally
+            segments.free;
+          end;
+        end; {if not (copy(UriPath,1,1) = '/') ...}
+      end; {if not HasAuthorityScheme ...}
+      resultUri:= UriReference;
+    end; {with RelUriAnalyzer ...}
+  finally
+    BaseUriAnalyzer.free;
+    RelUriAnalyzer.free;
+  end;
+end;
+
+function FilenameToUriStr(const path: TFilename;
+                          const opt: TdomFilenameToUriOptions): string;
+var
+  i,l: integer;
+begin
+  if fuSetLocalhost in opt
+    then result:= 'file://localhost'
+    else  result:= 'file://';
+  l:= length(path);
+  if l > 0 then begin
+    // add leading '/':
+    result:= concat(result,'/');
+    i:= 1;
+    while i <= l do begin
+      case byte(path[i]) of
+        // A-z      a-z      0-9    !    '()*    -   .   _   ~
+        $41..$5A,$61..$7A,$30..$39,$21,$27..$2a,$2d,$2e,$5f,$7e:
+          result:= concat(result,path[i]);
+        // special treatment for colons (':'):
+        $3a:
+          if fuPlainColon in opt
+            then result:= concat(result,':')
+            else result:= concat(result,'%3a');
+        // translate '\' to '/':
+        $5c:
+          result:= concat(result,'/');
+      else
+        // calculate escape sequence:
+        result:= concat(result,'%',IntToHex(byte(path[i]),2));
+      end;
+      inc(i);
+    end; {while ...}
+  end; {if ...}
+end;
+
+function FilenameToUriWideStr(const path: TFilename;
+                              const opt: TdomFilenameToUriOptions): UnicodeString;
+var
+  i,l: integer;
+begin
+  if fuSetLocalhost in opt
+    then result:= 'file://localhost'
+    else  result:= 'file://';
+  l:= length(path);
+  if l > 0 then begin
+    // add leading '/':
+    result:= concat(result,'/');
+    i:= 1;
+    while i <= l do begin
+      case byte(path[i]) of
+        // A-z      a-z      0-9    !    '()*    -   .   _   ~
+        $41..$5A,$61..$7A,$30..$39,$21,$27..$2a,$2d,$2e,$5f,$7e:
+          result:= concat(result,UnicodeString(wideChar(byte(path[i]))));
+        // special treatment for colons (':'):
+        $3a:
+          if fuPlainColon in opt
+            then result:= concat(result,':')
+            else result:= concat(result,'%3a');
+        // translate '\' to '/':
+        $5c:
+          result:= concat(result,'/');
+      else
+        // calculate escape sequence:
+        result:= concat(result,'%',IntToHex(byte(path[i]),2));
+      end;
+      inc(i);
+    end; {while ...}
+  end; {if ...}
+end;
+
+function Ansi_StrToInt(const S: Ansistring): Integer;
+begin
+  Result := StrToInt({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(s));
+end;
+
+function UriStrToFilename(const uri: Ansistring;
+                            var path: TFilename;
+                            var authority,
+                                query,
+                                fragment: Ansistring): boolean;
+var
+  UriAnalyzer: TUriStrAnalyzer;
+  pathBuffer: Ansistring;  // Used to increase performance
+  i,l: integer;
+  lPath: ansistring;
+begin
+  lPath:= '';
+  query:= '';
+  fragment:= '';
+  result:= false;
+  UriAnalyzer:= TUriStrAnalyzer.create;
+  try
+    with UriAnalyzer do begin
+      if setUriReference(uri) then begin
+        if UpperCase(UriScheme) = 'FILE' then begin
+          result:= true;
+          pathBuffer:= UriPath;
+          l:= length(pathBuffer);
+          if l > 0 then begin
+            // remove leading '/':
+            dec(l);
+            pathBuffer:= copy(pathBuffer,2,l);
+            i:= 1;
+            while i <= l do begin
+              if pathBuffer[i] = '%' then begin
+                // resolve escape sequence:
+                lPath:= lPath + Ansichar(Ansi_StrToInt(AnsiChar('x') + pathBuffer[i+1] + pathBuffer[i+2]));
+                i:= i+2;
+              end else if pathBuffer[i] = '/' then begin
+                // translate '/' to '\':
+                lPath:= lPath + '\';
+              end else lPath:= lPath + pathBuffer[i];
+              inc(i);
+            end; {while ...}
+          end; {if ...}
+          authority:= UriAuthority;
+          if HasUriQuery
+            then query:= AnsiChar('?') + UriQuery;
+          if HasUriFragment
+            then fragment:= AnsiChar('#') + UriFragment;
+        end; {if ...}
+      end; {if ...}
+    end; {with ...}
+  finally
+    UriAnalyzer.free;
+    Path := {$IFDEF UNICODE}AnsiStringToWideString {$ENDIF}(lPath);
+  end;
+end;
+
+function UriWideStrToFilename(const uri: UnicodeString;
+                                var path: TFilename;
+                                var authority,
+                                    query,
+                                    fragment: Ansistring): boolean;
+var
+  UriAnalyzer: TUriStrAnalyzer;
+  pathBuffer: Ansistring; // Used to increase performance
+  uri2: Ansistring;
+  i,l: integer;
+  lPath : AnsiString;
+begin
+  lPath:= '';
+  query:= '';
+  fragment:= '';
+  result:= false;
+  try
+    uri2:= UTF16To7BitASCIIStr(uri)
+  except
+    uri2:= '';
+  end;
+  UriAnalyzer:= TUriStrAnalyzer.create;
+  try
+    with UriAnalyzer do begin
+      if setUriReference(uri2) then begin
+        if UpperCase(UriScheme) = 'FILE' then begin
+          result:= true;
+          pathBuffer:= UriPath;
+          l:= length(pathBuffer);
+          if l > 0 then begin
+            // remove leading '/':
+            dec(l);
+            pathBuffer:= copy(pathBuffer,2,l);
+            i:= 1;
+            while i <= l do begin
+              if pathBuffer[i] = '%' then begin
+                // resolve escape sequence:
+                lPath:= lPath + Ansichar(Ansi_StrToInt(AnsiChar('x') + pathBuffer[i+1] + pathBuffer[i+2]));
+                i:= i+2;
+              end else if pathBuffer[i] = '/' then begin
+                // translate '/' to '\':
+                lPath:= lPath+ AnsiChar('\');
+              end else lPath:= lPath + pathBuffer[i];
+              inc(i);
+            end; {while ...}
+          end; {if ...}
+          authority:= UriAuthority;
+          if HasUriQuery
+            then query:= AnsiChar('?') + UriQuery;
+          if HasUriFragment
+            then fragment:= AnsiChar('#') +UriFragment;
+        end; {if ...}
+      end; {if ...}
+    end; {with ...}
+  finally
+    UriAnalyzer.free;
+    Path := {$IFDEF UNICODE}AnsiStringToWideString {$ENDIF}(lPath);
+  end;
+end;
+
+procedure writeWideChars(stream: TStream; const XMLChars: array of WideChar);
+begin
+  stream.WriteBuffer(XMLChars, SizeOf(XMLChars));
+end;
+
+procedure writeWideString(stream: TStream; const XMLStrg: UnicodeString);
+begin
+  stream.WriteBuffer(pointer(XMLStrg)^, Length(XMLStrg) shl 1);
+end;
+
+procedure writeWideStrings(stream: TStream; const XMLStrgs: array of UnicodeString);
+var
+  Indx: longint;
+begin
+  for Indx := 0 to High(XMLStrgs) do
+    stream.WriteBuffer(pointer(XMLStrgs[Indx])^, Length(XMLStrgs[Indx]) shl 1);
+end;
+
+function XPathBooleanFunc(const oldResult: TdomXPathResult): TdomXPathBooleanResult;
+begin
+  if not assigned(oldResult)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  case oldResult.resultType of
+    XPATH_NUMBER_TYPE: begin
+      if TdomXPathNumberResult(oldResult).numberValue = 0 then begin  // xxx NaN ?
+        oldResult.free;
+        result:= TdomXPathBooleanResult.create(false);
+      end else begin
+        oldResult.free;
+        result:= TdomXPathBooleanResult.create(true);
+      end;
+    end;
+    XPATH_NODE_SNAPSHOT_TYPE: begin
+      if TdomXPathSnapshotResult(oldResult).snapshotLength > 0 then begin
+        oldResult.free;
+        result:= TdomXPathBooleanResult.create(true);
+      end else begin
+        oldResult.free;
+        result:= TdomXPathBooleanResult.create(false);
+      end;
+    end;
+    XPATH_STRING_TYPE: begin
+      if length(TdomXPathStringResult(oldResult).stringValue) > 0 then begin
+        oldResult.free;
+        result:= TdomXPathBooleanResult.create(true);
+      end else begin
+        oldResult.free;
+        result:= TdomXPathBooleanResult.create(false);
+      end;
+    end;
+    XPATH_BOOLEAN_TYPE: result:= (oldResult as TdomXPathBooleanResult);
+  else
+    oldResult.free;
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+end;
+
+function XPathNumberFunc(const oldResult: TdomXPathResult): TdomXPathNumberResult;
+var
+  stringResult: TdomXPathStringResult;
+
+  function convertXPathStringType(const oldResult: TdomXPathStringResult): TdomXPathNumberResult;
+  begin
+    try
+      result:= TdomXPathNumberResult.create(StrToFloat(oldResult.stringValue));
+    except
+      result:= TdomXPathNumberResult.create(0);
+       // xxx Not XPath conformant, because we must use NaN.
+    end;
+    oldResult.free;
+  end;
+
+begin
+  if not assigned(oldResult)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  case oldResult.resultType of
+    XPATH_NUMBER_TYPE:
+      result:= (oldResult as TdomXPathNumberResult);
+    XPATH_NODE_SNAPSHOT_TYPE: begin
+      stringResult:= XPathStringFunc(oldResult);
+      result:= convertXPathStringType(stringResult);
+    end;
+    XPATH_STRING_TYPE:
+      result:= convertXPathStringType(TdomXPathStringResult(oldResult));
+    XPATH_BOOLEAN_TYPE: begin
+      if TdomXPathBooleanResult(oldResult).booleanValue
+        then result:= TdomXPathNumberResult.create(1)
+        else result:= TdomXPathNumberResult.create(0);
+      oldResult.free;
+    end;
+  else
+    oldResult.free;
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+end;
+
+function XPathStringFunc(const oldResult: TdomXPathResult): TdomXPathStringResult;
+begin
+  if not assigned(oldResult)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  case oldResult.resultType of
+    XPATH_NUMBER_TYPE: begin
+      result:= TdomXPathStringResult.create(FloatToStr(TdomXPathNumberResult(oldResult).numberValue));
+      // xxx Not XPath conformant, because FloatToStr uses limited digits.
+      oldResult.free;
+    end;
+    XPATH_NODE_SNAPSHOT_TYPE: begin
+      if TdomXPathSnapshotResult(oldResult).snapshotLength = 0 then begin
+        result:= TdomXPathStringResult.create('');
+        oldResult.free;
+      end else begin
+        result:= TdomXPathStringResult.create(TdomXPathSnapshotResult(oldResult).snapshotItem(0).XPathStringValue);
+        oldResult.free;
+      end;
+    end;
+    XPATH_STRING_TYPE:
+      result:= (oldResult as TdomXPathStringResult);
+    XPATH_BOOLEAN_TYPE: begin
+      if TdomXPathBooleanResult(oldResult).booleanValue
+        then result:= TdomXPathStringResult.create('true')
+        else result:= TdomXPathStringResult.create('false');
+      oldResult.free;
+    end;
+  else
+    oldResult.free;
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+end;
+
+
+// ++++++++++++++++++++++++++ TUriStrAnalyzer +++++++++++++++++++++++++++
+constructor TUriStrAnalyzer.create;
+begin
+  setUriReference('');
+end;
+
+function TUriStrAnalyzer.getUriReference: Ansistring;
+begin
+  result:= '';
+  if FHasUriScheme
+    then result:= result + FUriScheme+ AnsiChar(':');
+  if FHasUriAuthority
+    then result:= result+ AnsiString('//')+FUriAuthority;
+  result:= concat(result,FUriPath);
+  if FHasUriQuery
+    then result:= result + AnsiChar('?')+UriQuery;
+  if FHasUriFragment
+    then result:= result + AnsiChar('#') + FUriFragment;
+end;
+
+function TUriStrAnalyzer.setUriAuthority(const Value: Ansistring;
+                                         const isDefined: boolean): boolean;
+begin
+  result:= true;
+  FHasUriAuthority:= isDefined;
+  if isDefined then begin
+    if isUriAuthorityStr(Value)
+      then FUriAuthority:= value
+      else begin FUriAuthority:= ''; result:= false; end;
+  end else FUriAuthority:= '';
+end;
+
+function TUriStrAnalyzer.setUriFragment(const Value: Ansistring;
+                                        const isDefined: boolean): boolean;
+begin
+  result:= true;
+  FHasUriFragment:= isDefined;
+  if isDefined then begin
+    if isUriFragmentStr(Value)
+      then FUriFragment:= value
+      else begin FUriFragment:= ''; result:= false; end;
+  end else FUriFragment:= '';
+end;
+
+function TUriStrAnalyzer.setUriPath(const Value: Ansistring): boolean;
+begin
+  result:= isUriPathStr(Value);
+  if result
+    then FUriPath:= value
+    else FUriPath:= '';
+end;
+
+function TUriStrAnalyzer.setUriQuery(const Value: Ansistring;
+                                     const isDefined: boolean): boolean;
+begin
+  result:= true;
+  FHasUriQuery:= isDefined;
+  if isDefined then begin
+    if isUriQueryStr(Value)
+      then FUriQuery:= value
+      else begin FUriQuery:= ''; result:= false; end;
+  end else FUriQuery:= '';
+end;
+
+function TUriStrAnalyzer.setUriReference(const Value: Ansistring): boolean;
+var
+  colonPos,dcPos,qmPos,slashPos: integer;
+  s: Ansistring;
+begin
+  colonPos:= pos(AnsiChar(':'),value);
+  result:= setUriScheme(copy(value,1,colonPos-1),(colonPos > 0));
+  s:= copy(value,colonPos+1,length(value)-colonPos);
+
+  dcPos:= pos(AnsiChar('#'),s);
+  if dcPos > 0 then begin
+    result:= (setUriFragment(copy(s,dcPos+1,length(s)-dcPos),true) and result);
+    s:= copy(s,1,dcPos-1);
+  end else setUriFragment('',false);
+
+  qmPos:= pos(AnsiChar('?'),s);
+  if qmPos > 0 then begin
+    result:= (setUriQuery(copy(s,qmPos+1,length(s)-qmPos),true) and result);
+    s:= copy(s,1,qmPos-1);
+  end else setUriQuery('',false);
+
+  if copy(s,1,2) = AnsiString('//') then begin
+    s:= copy(s,3,length(s)-2);
+    slashPos:= pos(AnsiChar('/'),s);
+    if slashPos > 0 then begin
+      result:= (setUriAuthority(copy(s,1,slashPos-1),true) and result);
+      s:= copy(s,slashPos,length(s)-slashPos+1);
+    end else begin
+      result:= (setUriAuthority(s,true) and result);
+      s:= '';
+    end;
+  end else setUriAuthority('',false);
+
+  result:= setUriPath(s) and result;
+
+  if not result then setUriReference('');
+end;
+
+function TUriStrAnalyzer.setUriScheme(const Value: Ansistring;
+                                      const isDefined: boolean): boolean;
+begin
+  result:= true;
+  FHasUriScheme:= isDefined;
+  if isDefined then begin
+    if isUriSchemeStr(Value)
+      then FUriScheme:= value
+      else begin FUriScheme:= ''; result:= false; end;
+  end else FUriScheme:= '';
+end;
+
+
+
+// ++++++++++++++++++++++++ TUriWideStrAnalyzer +++++++++++++++++++++++++
+constructor TUriWideStrAnalyzer.create;
+begin
+  setUriReference('');
+end;
+
+function TUriWideStrAnalyzer.getUriReference: UnicodeString;
+begin
+  result:= '';
+  if FHasUriScheme
+    then result:= concat(result,FUriScheme,':');
+  if FHasUriAuthority
+    then result:= concat(result,'//',FUriAuthority);
+  result:= concat(result,FUriPath);
+  if FHasUriQuery
+    then result:= concat(result,#63,FUriQuery);
+  if FHasUriFragment
+    then result:= concat(result,'#',FUriFragment);
+end;
+
+function TUriWideStrAnalyzer.setUriAuthority(const Value: UnicodeString;
+                                             const isDefined: boolean): boolean;
+begin
+  result:= true;
+  FHasUriAuthority:= isDefined;
+  if isDefined then begin
+    if isUriAuthorityWideStr(Value)
+      then FUriAuthority:= value
+      else begin FUriAuthority:= ''; result:= false; end;
+  end else FUriAuthority:= '';
+end;
+
+function TUriWideStrAnalyzer.setUriFragment(const Value: UnicodeString;
+                                            const isDefined: boolean): boolean;
+begin
+  result:= true;
+  FHasUriFragment:= isDefined;
+  if isDefined then begin
+    if isUriFragmentWideStr(Value)
+      then FUriFragment:= value
+      else begin FUriFragment:= ''; result:= false; end;
+  end else FUriFragment:= '';
+end;
+
+function TUriWideStrAnalyzer.setUriPath(const Value: UnicodeString): boolean;
+begin
+  result:= isUriPathWideStr(Value);
+  if result
+    then FUriPath:= value
+    else FUriPath:= '';
+end;
+
+function TUriWideStrAnalyzer.setUriQuery(const Value: UnicodeString;
+                                         const isDefined: boolean): boolean;
+begin
+  result:= true;
+  FHasUriQuery:= isDefined;
+  if isDefined then begin
+    if isUriQueryWideStr(Value)
+      then FUriQuery:= value
+      else begin FUriQuery:= ''; result:= false; end;
+  end else FUriQuery:= '';
+end;
+
+function TUriWideStrAnalyzer.setUriReference(const Value: UnicodeString): boolean;
+var
+  colonPos,dcPos,qmPos,slashPos: integer;
+  s: UnicodeString;
+begin
+  colonPos:= pos(':',value);
+  result:= setUriScheme(copy(value,1,colonPos-1),(colonPos > 0));
+  s:= copy(value,colonPos+1,length(value)-colonPos);
+
+  dcPos:= pos('#',s);
+  if dcPos > 0 then begin
+    result:= (setUriFragment(copy(s,dcPos+1,length(s)-dcPos),true) and result);
+    s:= copy(s,1,dcPos-1);
+  end else setUriFragment('',false);
+
+  qmPos:= pos('?',s);
+  if qmPos > 0 then begin
+    result:= (setUriQuery(copy(s,qmPos+1,length(s)-qmPos),true) and result);
+    s:= copy(s,1,qmPos-1);
+  end else setUriQuery('',false);
+
+  if copy(s,1,2) = '//' then begin
+    s:= copy(s,3,length(s)-2);
+    slashPos:= pos('/',s);
+    if slashPos > 0 then begin
+      result:= (setUriAuthority(copy(s,1,slashPos-1),true) and result);
+      s:= copy(s,slashPos,length(s)-slashPos+1);
+    end else begin
+      result:= (setUriAuthority(s,true) and result);
+      s:= '';
+    end;
+  end else setUriAuthority('',false);
+
+  result:= setUriPath(s) and result;
+
+  if not result then setUriReference('');
+end;
+
+function TUriWideStrAnalyzer.setUriScheme(const Value: UnicodeString;
+                                          const isDefined: boolean): boolean;
+begin
+  result:= true;
+  FHasUriScheme:= isDefined;
+  if isDefined then begin
+    if isUriSchemeWideStr(Value)
+      then FUriScheme:= value
+      else begin FUriScheme:= ''; result:= false; end;
+  end else FUriScheme:= '';
+end;
+
+
+
+// +++++++++++++++++++++++++ TdomNameValueList +++++++++++++++++++++++++
+constructor TdomNameValueList.create;
+begin
+  inherited create;
+  FNames:= TdomWideStringList.create;
+  FValues:= TdomWideStringList.create;
+end;
+
+destructor TdomNameValueList.destroy;
+begin
+  FNames.free;
+  FValues.free;
+  inherited destroy;
+end;
+
+procedure TdomNameValueList.error(const msg: string;
+                                  data: integer);
+{$IFNDEF FPC}
+  function ReturnAddr: Pointer;
+  asm
+          MOV     EAX,[EBP+4]
+  end;
+{$ENDIF}
+begin
+{$IFDEF FPC}
+  raise EStringListError.CreateFmt(Msg, [Data]);
+{$ELSE}
+  raise EStringListError.CreateFmt(Msg, [Data]) at ReturnAddr;
+{$ENDIF}
+end;
+
+
+function TdomNameValueList.getLength: integer;
+begin
+  result:= FNames.Count;
+end;
+
+function TdomNameValueList.getCapacity: integer;
+begin
+  result:= FNames.Capacity;
+end;
+
+function TdomNameValueList.getDuplicates: TDuplicates;
+begin
+  result:= FNames.duplicates;
+end;
+
+function TdomNameValueList.getName(index: integer): UnicodeString;
+begin
+  result:= FNames[index];
+end;
+
+function TdomNameValueList.getSorted: boolean;
+begin
+  result:= FNames.sorted;
+end;
+
+function TdomNameValueList.getObject(index: integer): TObject;
+begin
+  result:= FValues.objects[integer(FNames.objects[index])];
+end;
+
+function TdomNameValueList.getValue(index: integer): UnicodeString;
+begin
+  result:= FValues[integer(FNames.objects[index])];
+end;
+
+procedure TdomNameValueList.putObject(index: integer; aObject: TObject);
+begin
+  FValues.objects[integer(FNames.objects[index])]:= aObject;
+end;
+
+procedure TdomNameValueList.setCapacity(const value: integer);
+begin
+  FNames.Capacity:= value;
+  FValues.Capacity:= value;
+end;
+
+procedure TdomNameValueList.setDuplicates(const value: TDuplicates);
+begin
+  FNames.duplicates:= value;
+end;
+
+procedure TdomNameValueList.setSorted(const Value: boolean);
+begin
+  FNames.sorted:= value;
+end;
+
+function TdomNameValueList.add(const name,
+                                     value: UnicodeString): integer;
+var
+  valueIndex: {$IFDEF cpu64}UINT64{$ELSE}Integer{$ENDIF};
+begin
+  valueIndex:= FValues.Add(value);
+  result:= FNames.addObject(name,Tobject(pointer(valueIndex)));
+end;
+
+procedure TdomNameValueList.addNameValueList(const nvl: TdomNameValueList);
+var
+  i: integer;
+begin
+  with nvl do
+    for i:= 0 to pred(length) do
+      self.addObject(names[i],values[i],objects[i]);
+end;
+
+function TdomNameValueList.addObject(const name,
+                                           value: UnicodeString;
+                                           AObject: TObject): integer;
+var
+  valueIndex: {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF};
+begin
+  valueIndex:= FValues.addObject(value,AObject);
+  result:= FNames.addObject(name,Tobject(pointer(valueIndex)));
+end;
+
+procedure TdomNameValueList.assign(source: TPersistent);
+begin
+  if source is TdomNameValueList then begin
+    if source = self then exit;
+    clear;
+    addNameValueList(TdomNameValueList(source));
+    exit;
+  end;
+  inherited assign(Source);
+end;
+
+procedure TdomNameValueList.clear;
+begin
+  FNames.clear;
+  FValues.clear;
+end;
+
+procedure TdomNameValueList.Delete(const index: integer);
+begin
+  FNames.Delete(index);
+end;
+
+procedure TdomNameValueList.exchange(const index1,
+                                           index2: integer);
+begin
+  FNames.exchange(index1,index2);
+end;
+
+function TdomNameValueList.indexOf(const name,
+                                         value: UnicodeString): integer;
+var
+  i: integer;
+begin
+  result:= -1;
+  for i:= 0 to pred(FNames.count) do begin
+    if FNames[i] = name then
+      if FValues[integer(FNames.objects[i])] = value then begin
+        result:= i;
+        exit;
+      end;
+  end;
+end;
+
+function TdomNameValueList.indexOfName(const name: UnicodeString): integer;
+begin
+  result:= FNames.IndexOf(name);
+end;
+
+procedure TdomNameValueList.insert(const index: integer;
+                                   const name,
+                                         value: UnicodeString);
+var
+  valueIndex: {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF};
+begin
+  valueIndex:= FValues.Add(value);
+  FNames.insertObject(index,name,Tobject(pointer(valueIndex)));
+end;
+
+function TdomNameValueList.find(const name,
+                                      value: UnicodeString;
+                                  var index: integer): boolean;
+begin
+  if FNames.duplicates = dupAccept then begin
+    index:= indexOf(name,value);
+    result:= (index > -1);
+  end else begin
+    result:= FNames.find(name,index);
+    if result then begin
+      if FValues[integer(FNames.objects[index])] <> value then begin
+        index:= -1;
+        result:= false;
+      end;
+    end;
+  end;
+end;
+
+function TdomNameValueList.findOfName(const name: UnicodeString;
+                                        var index: integer): boolean;
+begin
+  result:= FNames.find(name,index);
+end;
+
+procedure TdomNameValueList.sort;
+begin
+  FNames.sort;
+end;
+
+
+
+//++++++++++++++++++++++++ TdomNameValueTree +++++++++++++++++++++++++++
+destructor TdomNameValueTree.Destroy;
+var
+  index: integer;
+begin
+  if assigned(FParentTree)
+    then FParentTree.replaceChild(FParentTree.indexOfChild(self),nil);
+  for index:= 0 to pred(FNames.count) do
+    children[index].free;
+  inherited;
+end;
+
+function TdomNameValueTree.addChild(const name,
+                                          value: UnicodeString;
+                                    const child: TdomNameValueTree): integer;
+begin
+  result:= addChildObject(name,value,child,nil);
+end;
+
+function TdomNameValueTree.addChildObject(const name, value: UnicodeString;
+  const child: TdomNameValueTree; const AObject: TObject): integer;
+begin
+  if assigned(child) then begin
+    if assigned(child.FParentTree)
+      then error('Child name-value tree is in use elsewhere', 0);
+    if isDescendantOf(child)
+      then error('Circular reference', 0);
+    result:= self.addObject(name,value,AObject);
+    FValues.objects[integer(FNames.objects[result])]:= child;
+    child.FParentTree:= self;
+  end else result:= addObject(name,value,AObject);
+end;
+
+procedure TdomNameValueTree.assign(source: TPersistent);
+var
+  i: integer;
+  newNameValueTree: TdomNameValueTree;
+begin
+  if source is TdomNameValueTree then begin
+    if source = self then exit;
+    clear;
+    with TdomNameValueTree(source) do
+      for i:= 0 to pred(length) do begin
+        if hasChild(i) then begin
+          newNameValueTree:= TdomNameValueTree.create;
+          self.addChildObject(names[i],values[i],newNameValueTree,objects[i]);
+          newNameValueTree.assign(children[i]);
+        end else self.addObject(names[i],values[i],objects[i]);
+      end;
+    exit;
+  end;
+  inherited assign(Source);
+end;
+
+procedure TdomNameValueTree.clear;
+var
+  index: integer;
+  subtree: TdomNameValueTree;
+begin
+  for index:= 0 to pred(FNames.count) do begin
+    subtree:= children[index];
+    if assigned(subtree) then
+      with subtree do begin
+        FParentTree:= nil;
+        free;
+      end;
+  end;
+  inherited;
+end;
+
+procedure TdomNameValueTree.Delete(const index: integer);
+var
+  subtree: TdomNameValueTree;
+begin
+  subtree:= children[index];
+  if assigned(subtree) then
+    with subtree do begin
+      FParentTree:= nil;
+      free;
+    end;
+  inherited;
+end;
+
+function TdomNameValueTree.getChild(index: integer): TdomNameValueTree;
+begin
+  result:= TdomNameValueTree(FValues.objects[integer(FNames.objects[index])]);
+end;
+
+function TdomNameValueTree.hasChild(const index: integer): boolean;
+begin
+  result:= assigned(FValues.objects[integer(FNames.objects[index])]);
+end;
+
+function TdomNameValueTree.indexOfChild(const child: TdomNameValueTree): integer;
+var
+  i: integer;
+begin
+  result:= -1;
+  for i:= 0 to pred(FNames.count) do begin
+    if FValues.objects[integer(FNames.objects[i])] = child then begin
+      result:= i;
+      exit;
+    end;
+  end;
+end;
+
+procedure TdomNameValueTree.insertChild(const index: integer;
+                                        const name,
+                                              value: UnicodeString;
+                                        const child: TdomNameValueTree);
+begin
+  if assigned(child) then begin
+    if assigned(child.FParentTree)
+      then error('Child name-value tree is in use elsewhere', 0);
+    if isDescendantOf(child)
+      then error('Circular reference', 0);
+    insert(index,name,value);
+    FValues.objects[integer(FNames.objects[index])]:= child;
+    child.FParentTree:= self;
+  end else insert(index,name,value);
+end;
+
+function TdomNameValueTree.isDescendantOf(const nvtree: TdomNameValueTree): boolean;
+var
+  tree: TdomNameValueTree;
+begin
+  tree:= self;
+  result:= false;
+  while assigned(tree) do begin
+    tree:= tree.parentTree;
+    if tree = nvtree
+      then begin result:= true; exit; end;
+  end;
+end;
+
+function TdomNameValueTree.replaceChild(const index: integer;
+                                        const newChild: TdomNameValueTree): TdomNameValueTree;
+begin
+  if assigned(newChild) then begin
+    if assigned(newChild.FParentTree)
+      then error('Child name-value tree is in use elsewhere', 0);
+    if isDescendantOf(newChild)
+      then error('Circular reference', 0);
+    result:= children[index];
+    if assigned(result)
+      then result.FParentTree:= nil;
+    FValues.objects[integer(FNames.objects[index])]:= newChild;
+    newChild.FParentTree:= self;
+  end else begin
+    result:= children[index];
+    if assigned(result)
+      then result.FParentTree:= nil;
+    FValues.objects[integer(FNames.objects[index])]:= nil;
+  end;
+end;
+
+
+
+//++++++++++++++++++++++++++ TdomCustomStr +++++++++++++++++++++++++++++
+constructor TdomCustomStr.create;
+begin
+  inherited;
+  reset;
+end;
+
+function TdomCustomStr.getWideChars(indx: integer): wideChar;
+begin
+  result:= FContent[indx];
+end;
+
+procedure TdomCustomStr.setWideChars(indx: integer;
+                                     ch: wideChar);
+begin
+  FContent[indx]:= ch;
+end;
+
+procedure TdomCustomStr.addWideChar(const Ch: wideChar);
+begin
+  if FActualLen = FCapacity then begin  // Grow
+    FCapacity:= FCapacity + FCapacity div 4;
+    setLength(FContent,FCapacity);
+  end;
+  Inc(FActualLen);
+  FContent[FActualLen]:= Ch;
+end;
+
+procedure TdomCustomStr.addWideString(const s: UnicodeString);
+var
+  i,l: integer;
+begin
+  l:= system.length(s);
+  while FActualLen+l > FCapacity do begin  // Grow
+    FCapacity:= FCapacity + FCapacity div 4;
+    setLength(Fcontent,FCapacity);
+  end;
+  Inc(FActualLen,l);
+  for i:= 1 to l do
+    FContent[FActualLen-l+i]:= WideChar(s[i]);
+end;
+
+function  TdomCustomStr.endsWith(const s: UnicodeString): boolean;
+var
+  i,offset,sLength: integer;
+begin
+  sLength:= system.length(s);
+  offset:= FActualLen-sLength;
+  if (offset < 0) or (sLength = 0)
+    then begin result:= false; exit; end;
+  i:= 1;
+  repeat
+    result := FContent[i+offset] = s[i];
+    Inc(i);
+  until (not result) or (i > sLength);
+end;
+
+function  TdomCustomStr.isEqual(const s: UnicodeString): boolean;
+var
+  i,sLength: integer;
+begin
+  sLength:= system.length(s);
+  if FActualLen <> sLength
+    then begin result:= false; exit; end;
+  if sLength = 0
+    then begin result:= true; exit; end;
+  i:= 1;
+  repeat
+    result := FContent[i] = s[i];
+    Inc(i);
+  until (not result) or (i > sLength);
+end;
+
+procedure TdomCustomStr.reset;
+begin
+  FCapacity:= 64;
+  setLength(FContent,FCapacity);
+  FActualLen:= 0;
+end;
+
+function  TdomCustomStr.startsWith(const s: UnicodeString): boolean;
+var
+  i,sLength: integer;
+begin
+  sLength:= system.length(s);
+  if (FActualLen < sLength) or (sLength = 0)
+    then begin result:= false; exit; end;
+  i:= 1;
+  repeat
+    result := FContent[i] = s[i];
+    Inc(i);
+  until (not result) or (i > sLength);
+end;
+
+function TdomCustomStr.value: UnicodeString;
+begin
+  Result:= Copy(FContent,1,FActualLen);
+end;
+
+
+
+// ++++++++++++++++++++++++ TdomWideStringList ++++++++++++++++++++++++
+// The code of this class is based on Delphi's TStringList class
+
+destructor TdomWideStringList.destroy;
+begin
+  FOnChange := nil;
+  FOnChanging := nil;
+  inherited destroy;
+  if FCount <> 0 then Finalize(FList^[0], FCount);
+  FCount := 0;
+  SetCapacity(0);
+end;
+
+function TdomWideStringList.add(s: UnicodeString): integer;
+begin
+  Result:= AddObject(S, nil);
+end;
+
+function TdomWideStringList.addObject(s: UnicodeString;
+                                      aObject: TObject): integer;
+begin
+  if not Sorted then
+    Result:= FCount
+  else
+    if Find(S, Result) then
+      case Duplicates of
+        dupIgnore: Exit;
+        dupError: Error('String list does not allow duplicates', 0);
+      end;
+  InsertItem(Result, S, AObject);
+end;
+
+procedure TdomWideStringList.addWideStrings(strings: TdomWideStringList);
+var
+  i: integer;
+begin
+  beginUpdate;
+  try
+    for i:= 0 to pred(strings.count) do
+      addObject(strings[i],strings.objects[i]);
+  finally
+    endUpdate;
+  end;
+end;
+
+procedure TdomWideStringList.append(s: UnicodeString);
+begin
+  add(S);
+end;
+
+procedure TdomWideStringList.assign(source: TPersistent);
+begin
+  if source is TdomWideStringList then begin
+    if source = self then exit;
+    beginUpdate;
+    try
+      clear;
+      addWideStrings(TdomWideStringList(source));
+    finally
+      endUpdate;
+    end;
+    exit;
+  end;
+  inherited assign(Source);
+end;
+
+procedure TdomWideStringList.beginUpdate;
+
+begin
+  if FUpdateCount = 0 then setUpdateState(True);
+  inc(FUpdateCount);
+end;
+
+procedure TdomWideStringList.changed;
+begin
+  if (FUpdateCount = 0) and Assigned(FOnChange) then FOnChange(Self);
+end;
+
+procedure TdomWideStringList.changing;
+begin
+  if (FUpdateCount = 0) and Assigned(FOnChanging) then FOnChanging(Self);
+end;
+
+procedure TdomWideStringList.clear;
+begin
+  if FCount <> 0 then
+  begin
+    Changing;
+    Finalize(FList^[0], FCount);
+    FCount := 0;
+    SetCapacity(0);
+    Changed;
+  end;
+end;
+
+procedure TdomWideStringList.Delete(index: integer);
+begin
+  if (Index < 0) or (Index >= FCount) then Error('List index out of bounds (%d)', Index);
+  Changing;
+  Finalize(FList^[Index]);
+  Dec(FCount);
+  if Index < FCount then
+    System.Move(FList^[Index + 1], FList^[Index],
+      (FCount - Index) * SizeOf(TdomWideStringItem));
+  Changed;
+end;
+
+procedure TdomWideStringList.endUpdate;
+begin
+  dec(FUpdateCount);
+  if FUpdateCount = 0 then setUpdateState(False);
+end;
+
+procedure TdomWideStringList.error(const msg: string;
+                                   data: integer);
+{$IFNDEF FPC}
+  function ReturnAddr: Pointer;
+  asm
+          MOV     EAX,[EBP+4]
+  end;
+{$ENDIF}
+begin
+{$IFDEF FPC}
+  raise EStringListError.CreateFmt(msg, [Data]);
+{$ELSE}
+  raise EStringListError.CreateFmt(Msg, [Data]) at ReturnAddr;
+{$ENDIF}
+end;
+
+procedure TdomWideStringList.exchange(index1,
+                                      index2: integer);
+begin
+  if (Index1 < 0) or (Index1 >= FCount) then Error('List index out of bounds (%d)', Index1);
+  if (Index2 < 0) or (Index2 >= FCount) then Error('List index out of bounds (%d)', Index2);
+  Changing;
+  ExchangeItems(Index1, Index2);
+  Changed;
+end;
+
+procedure TdomWideStringList.exchangeItems(index1,
+                                           index2: integer);
+var
+  Temp: {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64};
+  Item1, Item2: ^TdomWideStringItem;
+begin
+  Item1 := @FList^[Index1];
+  Item2 := @FList^[Index2];
+  Temp := {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64}(Item1^.FString);
+  {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64}(Item1^.FString) := {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64}(Item2^.FString);
+  {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64}(Item2^.FString) := Temp;
+  Temp := {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64}(Item1^.FObject);
+  {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64}(Item1^.FObject) := {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64}(Item2^.FObject);
+  {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF cpu64}(Item2^.FObject) := Temp;
+end;
+
+function TdomWideStringList.find(const s: UnicodeString;
+                                   var index: Integer): boolean;
+var
+  L, H, I, C: Integer;
+begin
+  Result := False;
+  L := 0;
+  H := FCount - 1;
+  while L <= H do
+  begin
+    I := (L + H) shr 1;
+    C := CompareText(FList^[I].FString, S);
+    if C < 0 then L := I + 1 else
+    begin
+      H := I - 1;
+      if C = 0 then
+      begin
+        Result := True;
+        if Duplicates <> dupAccept then L := I;
+      end;
+    end;
+  end;
+  Index := L;
+end;
+
+function TdomWideStringList.get(index: integer): UnicodeString;
+begin
+  if (Index < 0) or (Index >= FCount) then Error('List index out of bounds (%d)', Index);
+  Result := FList^[Index].FString;
+end;
+
+function TdomWideStringList.getCapacity: Integer;
+begin
+  Result := FCapacity;
+end;
+
+function TdomWideStringList.getCount: Integer;
+begin
+  Result := FCount;
+end;
+
+function TdomWideStringList.getObject(index: integer): TObject;
+begin
+  if (Index < 0) or (Index >= FCount) then Error('List index out of bounds (%d)', Index);
+  Result := FList^[Index].FObject;
+end;
+
+procedure TdomWideStringList.grow;
+var
+  Delta: Integer;
+begin
+  if FCapacity > 64 then Delta := FCapacity div 4 else
+    if FCapacity > 8 then Delta := 16 else
+      Delta := 4;
+  SetCapacity(FCapacity + Delta);
+end;
+
+function TdomWideStringList.indexOf(const s: UnicodeString): integer;
+begin
+  if not Sorted then begin
+    for Result:= 0 to GetCount - 1 do
+      if CompareText(Get(Result), S) = 0 then exit;
+    Result := -1;
+  end else
+    if not Find(S, Result) then result := -1;
+end;
+
+procedure TdomWideStringList.insert(index: integer;
+                                    const s: UnicodeString);
+begin
+  InsertObject(Index, S, nil);
+end;
+
+procedure TdomWideStringList.insertObject(index: integer;
+                                          const s: UnicodeString;
+                                          AObject: TObject);
+begin
+  if Sorted then Error('Operation not allowed on sorted string list', 0);
+  if (Index < 0) or (Index > FCount) then Error('List index out of bounds (%d)', Index);
+  InsertItem(Index, S, AObject);
+end;
+
+procedure TdomWideStringList.insertItem(index: integer;
+                                        const s: UnicodeString;
+                                        AObject: TObject);
+begin
+  Changing;
+  if FCount = FCapacity then Grow;
+  if Index < FCount then
+    System.Move(FList^[Index], FList^[Index + 1],
+      (FCount - Index) * SizeOf(TdomWideStringItem));
+  with FList^[Index] do
+  begin
+    Pointer(FString) := nil;
+    FObject := AObject;
+    FString := S;
+  end;
+  Inc(FCount);
+  Changed;
+end;
+
+procedure TdomWideStringList.put(index: integer;
+                                 const s: UnicodeString);
+begin
+  if Sorted then Error('Operation not allowed on sorted string list', 0);
+  if (Index < 0) or (Index >= FCount) then Error('List index out of bounds (%d)', Index);
+  Changing;
+  FList^[Index].FString := S;
+  Changed;
+end;
+
+procedure TdomWideStringList.putObject(index: integer;
+                                       aObject: TObject);
+begin
+  if (Index < 0) or (Index >= FCount) then Error('List index out of bounds (%d)', Index);
+  Changing;
+  FList^[Index].FObject := AObject;
+  Changed;
+end;
+
+procedure TdomWideStringList.quickSort(l,
+                                       r: integer);
+var
+  I, J: Integer;
+  P: UnicodeString;
+begin
+  repeat
+    I := L;
+    J := R;
+    P := FList^[(L + R) shr 1].FString;
+    repeat
+      while CompareText(FList^[I].FString, P) < 0 do Inc(I);
+      while CompareText(FList^[J].FString, P) > 0 do Dec(J);
+      if I <= J then
+      begin
+        ExchangeItems(I, J);
+        Inc(I);
+        Dec(J);
+      end;
+    until I > J;
+    if L < J then
+      QuickSort(L, J);
+    L := I;
+  until I >= R;
+end;
+
+procedure TdomWideStringList.setCapacity(newCapacity: integer);
+begin
+  ReallocMem(FList, NewCapacity * SizeOf(TdomWideStringItem));
+  FCapacity := NewCapacity;
+end;
+
+procedure TdomWideStringList.setSorted(const value: boolean);
+begin
+  if FSorted <> Value then begin
+    if Value then Sort;
+    FSorted := Value;
+  end;
+end;
+
+procedure TdomWideStringList.setUpdateState(updating: boolean);
+begin
+  if Updating then Changing else Changed;
+end;
+
+procedure TdomWideStringList.sort;
+begin
+  if not sorted and (FCount > 1) then begin
+    changing;
+    quickSort(0, FCount - 1);
+    changed;
+  end;
+end;
+
+
+
+// +++++++++++++++++++++++ TdomWideStringStream +++++++++++++++++++++++
+//                     - Provided by Karl Waclawek -
+// This is a stream interface for widestrings.
+// Purpose: avoid excessive memory re-allocations that occur with
+//          wideStrings because they are not reference counted.
+//  Note: when the dataString property is accesses, the complete
+//        UnicodeString will be copied out.
+
+constructor TdomWideStringStream.CreateFromString(const aString: UnicodeString);
+begin
+  inherited create;
+  setSize(Length(aString) * SizeOf(WideChar));
+  Move(pointer(aString)^, FDataStringP^, FSize);
+end;
+
+destructor TdomWideStringStream.destroy;
+begin
+  FreeMem(FDataStringP);
+  inherited destroy;
+end;
+
+function TdomWideStringStream.GetDataString: UnicodeString;
+begin
+  setLength(Result, StringLength);
+  Move(FDataStringP^, pointer(Result)^, FSize);
+end;
+
+function TdomWideStringStream.Read(var Buffer; Count: longint): longint;
+begin
+  Result := FSize - FPosition;
+  if Result > Count then Result := Count;
+  Move((FDataStringP + FPosition)^, Buffer, Result);
+  Inc(FPosition, Result);
+end;
+
+function TdomWideStringStream.Write(const Buffer; Count: longint): longint;
+var
+  NewPos: longint;
+begin
+  Result := Count;
+  NewPos := FPosition + Result;
+  if NewPos > FSize
+    then setSize(((NewPos + 1) * 2) * 2); //next larger even value
+  Move(Buffer, (FDataStringP + FPosition)^, Result);
+  FPosition := NewPos;
+end;
+
+function TdomWideStringStream.Seek(Offset: longint; Origin: Word): longint;
+begin
+  case Origin of
+    soFromBeginning: FPosition := Offset;
+    soFromCurrent: FPosition := FPosition + Offset;
+    soFromEnd: FPosition := FSize - Offset;
+  end;
+  if FPosition > FSize then FPosition := FSize
+  else if FPosition < 0 then FPosition := 0;
+  Result := FPosition;
+end;
+
+function TdomWideStringStream.ReadString(Count: longint): UnicodeString;
+// Reads Count WideChars from stream and returns them as UnicodeString.
+var
+  Len: longint;
+begin
+  if Odd(FPosition) then raise EReadError.create(SCannotReadOddPos);
+  Len := (FSize - FPosition) shr 1;
+  if Len > Count then Len := Count;
+  setLength(Result, Len);
+  Read(pointer(Result)^, Len shl 1);
+end;
+
+procedure TdomWideStringStream.WriteString(const aString: UnicodeString);
+// Writes aString into stream, starting at StringPosition, overwriting
+// existing characters and extending the stream if necessary.
+begin
+  if Odd(FPosition) then raise EWriteError.create(SCannotWriteOddPos);
+  Write(pointer(aString)^, Length(aString) shl 1);
+end;
+
+procedure TdomWideStringStream.SetCapacity(NewCapacity: longint);
+// sets stream capacity in bytes.
+begin
+  if NewCapacity < FSize then raise EStreamError.create(SCapacityLessSize);
+  ReallocMem(FDataStringP, NewCapacity);
+  FCapacity := NewCapacity;
+end;
+
+procedure TdomWideStringStream.SetSize(NewSize: longint);
+// sets stream size in bytes.
+var
+  Delta: longint;
+begin
+  if Odd(NewSize) then raise EStreamError.create(SOddSizeInvalid);
+  if NewSize > Capacity then begin
+    Delta := NewSize shr 2;
+    if Delta < 8 then Delta := 8;
+    setCapacity(((NewSize + Delta) shr 2) shl 2); //make it a multiple of 4
+  end else
+    if NewSize < 0 then raise EStreamError.create(SNegativeSizeInvalid);
+  FSize := NewSize;
+  if FPosition > FSize then FPosition := FSize;
+end;
+
+procedure TdomWideStringStream.SetStringPosition(value: longint);
+// sets string position in terms of WideChars.
+begin
+  Position := (value - 1) shl 1;
+end;
+
+function TdomWideStringStream.GetStringPosition: longint;
+// ets string position in terms of WideChars.
+begin
+  if Odd(Position) then raise EStreamError.create(SOddPosInvalid);
+  Result := (Position shr 1) + 1;
+end;
+
+procedure TdomWideStringStream.SetStringLength(value: longint);
+// sets string length in terms of WideChars.
+begin
+  setSize(value shl 1);
+end;
+
+function TdomWideStringStream.GetStringLength: longint;
+// gets string length in terms of WideChars.
+begin
+  Result := FSize shr 1;
+end;
+
+
+
+//++++++++++++++++++++++++++++ TIso639Info ++++++++++++++++++++++++++++
+constructor TIso639Info.create;
+begin
+  inherited create;
+  FSupportedLanguages:= [iso639_en];
+  FNameLanguage:= iso639_en;
+  FAppendSymbolToName:= false;
+end;
+
+procedure TIso639Info.assignTo(dest: TPersistent);
+var
+  i: {$IFDEF cpu64}UInt64{$ELSE}Integer{$ENDIF};
+begin
+  if dest is TStrings then begin
+
+    with TStrings(dest) do begin
+      beginUpdate;
+      try
+        clear;
+        try
+          for i:= ord(low(TIso639LanguageCode)) to ord(high(TIso639LanguageCode)) do
+            addObject({$IFNDEF UNICODE}UTF16To7BitASCIIStr{$ENDIF}(codeToName(TIso639LanguageCode(i))),TObject(pointer(i)));
+        except
+          clear;
+          raise;
+        end;
+      finally
+        endUpdate;
+      end;
+    end;
+
+  end else if dest is TdomWideStringList then begin
+
+    with TdomWideStringList(dest) do begin
+      beginUpdate;
+      try
+        clear;
+        try
+          for i:= ord(low(TIso639LanguageCode)) to ord(high(TIso639LanguageCode)) do
+            addObject(codeToName(TIso639LanguageCode(i)),tobject(pointer(i)));
+        except
+          clear;
+          raise;
+        end;
+      finally
+        endUpdate;
+      end;
+    end;
+
+  end else inherited assignTo(dest);
+end;
+
+function TIso639Info.codeToName(const value: TIso639LanguageCode): UnicodeString;
+begin
+  case nameLanguage of
+    iso639_en: result:= codeToName_en(value);
+  else
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+end;
+
+function TIso639Info.codeToName_en(value: TIso639LanguageCode): UnicodeString;
+begin
+  if value = iso639_aa then result:= 'Afar'
+  else if value = iso639_ab then result:= 'Abkhazian'
+  else if value = iso639_af then result:= 'Afrikaans'
+  else if value = iso639_am then result:= 'Amharic'
+  else if value = iso639_ar then result:= 'Arabic'
+  else if value = iso639_as then result:= 'Assamese'
+  else if value = iso639_ay then result:= 'Aymara'
+  else if value = iso639_az then result:= 'Azerbaijani'
+  else if value = iso639_ba then result:= 'Bashkir'
+  else if value = iso639_be then result:= 'Byelorussian'
+  else if value = iso639_bg then result:= 'Bulgarian'
+  else if value = iso639_bh then result:= 'Bihari'
+  else if value = iso639_bi then result:= 'Bislama'
+  else if value = iso639_bn then result:= 'Bengali; Bangla'
+  else if value = iso639_bo then result:= 'Tibetan'
+  else if value = iso639_br then result:= 'Breton'
+  else if value = iso639_ca then result:= 'Catalan'
+  else if value = iso639_co then result:= 'Corsican'
+  else if value = iso639_cs then result:= 'Czech'
+  else if value = iso639_cy then result:= 'Welsh'
+  else if value = iso639_da then result:= 'Danish'
+  else if value = iso639_de then result:= 'German'
+  else if value = iso639_dz then result:= 'Bhutani'
+  else if value = iso639_el then result:= 'Greek'
+  else if value = iso639_en then result:= 'English'
+  else if value = iso639_eo then result:= 'Esperanto'
+  else if value = iso639_es then result:= 'Spanish'
+  else if value = iso639_et then result:= 'Estonian'
+  else if value = iso639_eu then result:= 'Basque'
+  else if value = iso639_fa then result:= 'Persian'
+  else if value = iso639_fi then result:= 'Finnish'
+  else if value = iso639_fj then result:= 'Fiji'
+  else if value = iso639_fo then result:= 'Faeroese'
+  else if value = iso639_fr then result:= 'French'
+  else if value = iso639_fy then result:= 'Frisian'
+  else if value = iso639_ga then result:= 'Irish'
+  else if value = iso639_gd then result:= 'Scots Gaelic'
+  else if value = iso639_gl then result:= 'Galician'
+  else if value = iso639_gn then result:= 'Guarani'
+  else if value = iso639_gu then result:= 'Gujarati'
+  else if value = iso639_ha then result:= 'Hausa'
+  else if value = iso639_hi then result:= 'Hindi'
+  else if value = iso639_hr then result:= 'Croatian'
+  else if value = iso639_hu then result:= 'Hungarian'
+  else if value = iso639_hy then result:= 'Armenian'
+  else if value = iso639_ia then result:= 'Interlingua'
+  else if value = iso639_ie then result:= 'Interlingue'
+  else if value = iso639_ik then result:= 'Inupiak'
+  else if value = iso639_in then result:= 'Indonesian'
+  else if value = iso639_is then result:= 'Icelandic'
+  else if value = iso639_it then result:= 'Italian'
+  else if value = iso639_iw then result:= 'Hebrew'
+  else if value = iso639_ja then result:= 'Japanese'
+  else if value = iso639_ji then result:= 'Yiddish'
+  else if value = iso639_jw then result:= 'Javanese'
+  else if value = iso639_ka then result:= 'Georgian'
+  else if value = iso639_kk then result:= 'Kazakh'
+  else if value = iso639_kl then result:= 'Greenlandic'
+  else if value = iso639_km then result:= 'Cambodian'
+  else if value = iso639_kn then result:= 'Kannada'
+  else if value = iso639_ko then result:= 'Korean'
+  else if value = iso639_ks then result:= 'Kashmiri'
+  else if value = iso639_ku then result:= 'Kurdish'
+  else if value = iso639_ky then result:= 'Kirghiz'
+  else if value = iso639_la then result:= 'Latin'
+  else if value = iso639_ln then result:= 'Lingala'
+  else if value = iso639_lo then result:= 'Laothian'
+  else if value = iso639_lt then result:= 'Lithuanian'
+  else if value = iso639_lv then result:= 'Latvian; Lettish'
+  else if value = iso639_mg then result:= 'Malagasy'
+  else if value = iso639_mi then result:= 'Maori'
+  else if value = iso639_mk then result:= 'Macedonian'
+  else if value = iso639_ml then result:= 'Malayalam'
+  else if value = iso639_mn then result:= 'Mongolian'
+  else if value = iso639_mo then result:= 'Moldavian'
+  else if value = iso639_mr then result:= 'Marathi'
+  else if value = iso639_ms then result:= 'Malay'
+  else if value = iso639_mt then result:= 'Maltese'
+  else if value = iso639_my then result:= 'Burmese'
+  else if value = iso639_na then result:= 'Nauru'
+  else if value = iso639_ne then result:= 'Nepali'
+  else if value = iso639_nl then result:= 'Dutch'
+  else if value = iso639_no then result:= 'Norwegian'
+  else if value = iso639_oc then result:= 'Occitan'
+  else if value = iso639_om then result:= 'Afan; Oromo'
+  else if value = iso639_or then result:= 'Oriya'
+  else if value = iso639_pa then result:= 'Punjabi'
+  else if value = iso639_pl then result:= 'Polish'
+  else if value = iso639_ps then result:= 'Pashto; Pushto'
+  else if value = iso639_pt then result:= 'Portuguese'
+  else if value = iso639_qu then result:= 'Quechua'
+  else if value = iso639_rm then result:= 'Rhaeto-Romance'
+  else if value = iso639_rn then result:= 'Kirundi'
+  else if value = iso639_ro then result:= 'Romanian'
+  else if value = iso639_ru then result:= 'Russian'
+  else if value = iso639_rw then result:= 'Kinyarwanda'
+  else if value = iso639_sa then result:= 'Sanskrit'
+  else if value = iso639_sd then result:= 'Sindhi'
+  else if value = iso639_sg then result:= 'Sangro'
+  else if value = iso639_sh then result:= 'Serbo-Croatian'
+  else if value = iso639_si then result:= 'Singhalese'
+  else if value = iso639_sk then result:= 'Slovak'
+  else if value = iso639_sl then result:= 'Slovenian'
+  else if value = iso639_sm then result:= 'Samoan'
+  else if value = iso639_sn then result:= 'Shona'
+  else if value = iso639_so then result:= 'Somali'
+  else if value = iso639_sq then result:= 'Albanian'
+  else if value = iso639_sr then result:= 'Serbian'
+  else if value = iso639_ss then result:= 'Siswati'
+  else if value = iso639_st then result:= 'Sesotho'
+  else if value = iso639_su then result:= 'Sundanese'
+  else if value = iso639_sv then result:= 'Swedish'
+  else if value = iso639_sw then result:= 'Swahili'
+  else if value = iso639_ta then result:= 'Tamil'
+  else if value = iso639_te then result:= 'Tegulu'
+  else if value = iso639_tg then result:= 'Tajik'
+  else if value = iso639_th then result:= 'Thai'
+  else if value = iso639_ti then result:= 'Tigrinya'
+  else if value = iso639_tk then result:= 'Turkmen'
+  else if value = iso639_tl then result:= 'Tagalog'
+  else if value = iso639_tn then result:= 'Setswana'
+  else if value = iso639_to then result:= 'Tonga'
+  else if value = iso639_tr then result:= 'Turkish'
+  else if value = iso639_ts then result:= 'Tsonga'
+  else if value = iso639_tt then result:= 'Tatar'
+  else if value = iso639_tw then result:= 'Twi'
+  else if value = iso639_uk then result:= 'Ukrainian'
+  else if value = iso639_ur then result:= 'Urdu'
+  else if value = iso639_uz then result:= 'Uzbek'
+  else if value = iso639_vi then result:= 'Vietnamese'
+  else if value = iso639_vo then result:= 'Volapuk'
+  else if value = iso639_wo then result:= 'Wolof'
+  else if value = iso639_xh then result:= 'Xhosa'
+  else if value = iso639_yo then result:= 'Yoruba'
+  else if value = iso639_zh then result:= 'Chinese'
+  else if value = iso639_zu then result:= 'Zulu'
+  ;
+
+  if FAppendSymbolToName
+    then result:= concat(result,' [',codeToSymbol(value),']');
+end;
+
+function TIso639Info.codeToSymbol(const value: TIso639LanguageCode): UnicodeString;
+begin
+  if value = iso639_aa then result:= 'aa' // Afar
+  else if value = iso639_ab then result:= 'ab' // Abkhazian
+  else if value = iso639_af then result:= 'af' // Afrikaans
+  else if value = iso639_am then result:= 'am' // Amharic
+  else if value = iso639_ar then result:= 'ar' // Arabic
+  else if value = iso639_as then result:= 'as' // Assamese
+  else if value = iso639_ay then result:= 'ay' // Aymara
+  else if value = iso639_az then result:= 'az' // Azerbaijani
+  else if value = iso639_ba then result:= 'ba' // Bashkir
+  else if value = iso639_be then result:= 'be' // Byelorussian
+  else if value = iso639_bg then result:= 'bg' // Bulgarian
+  else if value = iso639_bh then result:= 'bh' // Bihari
+  else if value = iso639_bi then result:= 'bi' // Bislama
+  else if value = iso639_bn then result:= 'bn' // Bengali; Bangla
+  else if value = iso639_bo then result:= 'bo' // Tibetan
+  else if value = iso639_br then result:= 'br' // Breton
+  else if value = iso639_ca then result:= 'ca' // Catalan
+  else if value = iso639_co then result:= 'co' // Corsican
+  else if value = iso639_cs then result:= 'cs' // Czech
+  else if value = iso639_cy then result:= 'cy' // Welsh
+  else if value = iso639_da then result:= 'da' // Danish
+  else if value = iso639_de then result:= 'de' // German
+  else if value = iso639_dz then result:= 'dz' // Bhutani
+  else if value = iso639_el then result:= 'el' // Greek
+  else if value = iso639_en then result:= 'en' // English
+  else if value = iso639_eo then result:= 'eo' // Esperanto
+  else if value = iso639_es then result:= 'es' // Spanish
+  else if value = iso639_et then result:= 'et' // Estonian
+  else if value = iso639_eu then result:= 'eu' // Basque
+  else if value = iso639_fa then result:= 'fa' // Persian
+  else if value = iso639_fi then result:= 'fi' // Finnish
+  else if value = iso639_fj then result:= 'fj' // Fiji
+  else if value = iso639_fo then result:= 'fo' // Faeroese
+  else if value = iso639_fr then result:= 'fr' // French
+  else if value = iso639_fy then result:= 'fy' // Frisian
+  else if value = iso639_ga then result:= 'ga' // Irish
+  else if value = iso639_gd then result:= 'gd' // Scots Gaelic
+  else if value = iso639_gl then result:= 'gl' // Galician
+  else if value = iso639_gn then result:= 'gn' // Guarani
+  else if value = iso639_gu then result:= 'gu' // Gujarati
+  else if value = iso639_ha then result:= 'ha' // Hausa
+  else if value = iso639_hi then result:= 'hi' // Hindi
+  else if value = iso639_hr then result:= 'hr' // Croatian
+  else if value = iso639_hu then result:= 'hu' // Hungarian
+  else if value = iso639_hy then result:= 'hy' // Armenian
+  else if value = iso639_ia then result:= 'ia' // Interlingua
+  else if value = iso639_ie then result:= 'ie' // Interlingue
+  else if value = iso639_ik then result:= 'ik' // Inupiak
+  else if value = iso639_in then result:= 'in' // Indonesian
+  else if value = iso639_is then result:= 'is' // Icelandic
+  else if value = iso639_it then result:= 'it' // Italian
+  else if value = iso639_iw then result:= 'iw' // Hebrew
+  else if value = iso639_ja then result:= 'ja' // Japanese
+  else if value = iso639_ji then result:= 'ji' // Yiddish
+  else if value = iso639_jw then result:= 'jw' // Javanese
+  else if value = iso639_ka then result:= 'ka' // Georgian
+  else if value = iso639_kk then result:= 'kk' // Kazakh
+  else if value = iso639_kl then result:= 'kl' // Greenlandic
+  else if value = iso639_km then result:= 'km' // Cambodian
+  else if value = iso639_kn then result:= 'kn' // Kannada
+  else if value = iso639_ko then result:= 'ko' // Korean
+  else if value = iso639_ks then result:= 'ks' // Kashmiri
+  else if value = iso639_ku then result:= 'ku' // Kurdish
+  else if value = iso639_ky then result:= 'ky' // Kirghiz
+  else if value = iso639_la then result:= 'la' // Latin
+  else if value = iso639_ln then result:= 'ln' // Lingala
+  else if value = iso639_lo then result:= 'lo' // Laothian
+  else if value = iso639_lt then result:= 'lt' // Lithuanian
+  else if value = iso639_lv then result:= 'lv' // Latvian; Lettish
+  else if value = iso639_mg then result:= 'mg' // Malagasy
+  else if value = iso639_mi then result:= 'mi' // Maori
+  else if value = iso639_mk then result:= 'mk' // Macedonian
+  else if value = iso639_ml then result:= 'ml' // Malayalam
+  else if value = iso639_mn then result:= 'mn' // Mongolian
+  else if value = iso639_mo then result:= 'mo' // Moldavian
+  else if value = iso639_mr then result:= 'mr' // Marathi
+  else if value = iso639_ms then result:= 'ms' // Malay
+  else if value = iso639_mt then result:= 'mt' // Maltese
+  else if value = iso639_my then result:= 'my' // Burmese
+  else if value = iso639_na then result:= 'na' // Nauru
+  else if value = iso639_ne then result:= 'ne' // Nepali
+  else if value = iso639_nl then result:= 'nl' // Dutch
+  else if value = iso639_no then result:= 'no' // Norwegian
+  else if value = iso639_oc then result:= 'oc' // Occitan
+  else if value = iso639_om then result:= 'om' // Afan; Oromo
+  else if value = iso639_or then result:= 'or' // Oriya
+  else if value = iso639_pa then result:= 'pa' // Punjabi
+  else if value = iso639_pl then result:= 'pl' // Polish
+  else if value = iso639_ps then result:= 'ps' // Pashto; Pushto
+  else if value = iso639_pt then result:= 'pt' // Portuguese
+  else if value = iso639_qu then result:= 'qu' // Quechua
+  else if value = iso639_rm then result:= 'rm' // Rhaeto-Romance
+  else if value = iso639_rn then result:= 'rn' // Kirundi
+  else if value = iso639_ro then result:= 'ro' // Romanian
+  else if value = iso639_ru then result:= 'ru' // Russian
+  else if value = iso639_rw then result:= 'rw' // Kinyarwanda
+  else if value = iso639_sa then result:= 'sa' // Sanskrit
+  else if value = iso639_sd then result:= 'sd' // Sindhi
+  else if value = iso639_sg then result:= 'sg' // Sangro
+  else if value = iso639_sh then result:= 'sh' // Serbo-Croatian
+  else if value = iso639_si then result:= 'si' // Singhalese
+  else if value = iso639_sk then result:= 'sk' // Slovak
+  else if value = iso639_sl then result:= 'sl' // Slovenian
+  else if value = iso639_sm then result:= 'sm' // Samoan
+  else if value = iso639_sn then result:= 'sn' // Shona
+  else if value = iso639_so then result:= 'so' // Somali
+  else if value = iso639_sq then result:= 'sq' // Albanian
+  else if value = iso639_sr then result:= 'sr' // Serbian
+  else if value = iso639_ss then result:= 'ss' // Siswati
+  else if value = iso639_st then result:= 'st' // Sesotho
+  else if value = iso639_su then result:= 'su' // Sundanese
+  else if value = iso639_sv then result:= 'sv' // Swedish
+  else if value = iso639_sw then result:= 'sw' // Swahili
+  else if value = iso639_ta then result:= 'ta' // Tamil
+  else if value = iso639_te then result:= 'te' // Tegulu
+  else if value = iso639_tg then result:= 'tg' // Tajik
+  else if value = iso639_th then result:= 'th' // Thai
+  else if value = iso639_ti then result:= 'ti' // Tigrinya
+  else if value = iso639_tk then result:= 'tk' // Turkmen
+  else if value = iso639_tl then result:= 'tl' // Tagalog
+  else if value = iso639_tn then result:= 'tn' // Setswana
+  else if value = iso639_to then result:= 'to' // Tonga
+  else if value = iso639_tr then result:= 'tr' // Turkish
+  else if value = iso639_ts then result:= 'ts' // Tsonga
+  else if value = iso639_tt then result:= 'tt' // Tatar
+  else if value = iso639_tw then result:= 'tw' // Twi
+  else if value = iso639_uk then result:= 'uk' // Ukrainian
+  else if value = iso639_ur then result:= 'ur' // Urdu
+  else if value = iso639_uz then result:= 'uz' // Uzbek
+  else if value = iso639_vi then result:= 'vi' // Vietnamese
+  else if value = iso639_vo then result:= 'vo' // Volapuk
+  else if value = iso639_wo then result:= 'wo' // Wolof
+  else if value = iso639_xh then result:= 'xh' // Xhosa
+  else if value = iso639_yo then result:= 'yo' // Yoruba
+  else if value = iso639_zh then result:= 'zh' // Chinese
+  else if value = iso639_zu then result:= 'zu' // Zulu
+  ;
+end;
+
+function TIso639Info.nameToCode(const value: UnicodeString): TIso639LanguageCode;
+begin
+  case nameLanguage of
+    iso639_en: result:= nameToCode_en(value);
+  else
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+end;
+
+function TIso639Info.nameToCode_en(value: UnicodeString): TIso639LanguageCode;
+var
+  i,j: integer;
+  dummy: UnicodeString;
+begin
+  i:= pos(';',value);
+  if i > 0 then begin
+    dummy:= copy(value,1,i-1);
+    value:= dummy;
+  end else begin
+    j:= pos('[',value);
+    if j > 1 then begin
+      if value[j] = ' ' then begin
+        dummy:= copy(value,1,j-2);
+        value:= dummy;
+      end;
+    end;
+  end;
+
+  if value = 'Afar' then result:= iso639_aa 
+  else if value = 'Abkhazian' then result:= iso639_ab
+  else if value = 'Afrikaans' then result:= iso639_af
+  else if value = 'Amharic' then result:= iso639_am
+  else if value = 'Arabic' then result:= iso639_ar
+  else if value = 'Assamese' then result:= iso639_as
+  else if value = 'Aymara' then result:= iso639_ay
+  else if value = 'Azerbaijani' then result:= iso639_az
+  else if value = 'Bashkir' then result:= iso639_ba
+  else if value = 'Byelorussian' then result:= iso639_be
+  else if value = 'Bulgarian' then result:= iso639_bg
+  else if value = 'Bihari' then result:= iso639_bh
+  else if value = 'Bislama' then result:= iso639_bi
+  else if value = 'Bengali' then result:= iso639_bn
+  else if value = 'Bangla' then result:= iso639_bn
+  else if value = 'Tibetan' then result:= iso639_bo
+  else if value = 'Breton' then result:= iso639_br
+  else if value = 'Catalan' then result:= iso639_ca
+  else if value = 'Corsican' then result:= iso639_co
+  else if value = 'Czech' then result:= iso639_cs
+  else if value = 'Welsh' then result:= iso639_cy
+  else if value = 'Danish' then result:= iso639_da
+  else if value = 'German' then result:= iso639_de
+  else if value = 'Bhutani' then result:= iso639_dz
+  else if value = 'Greek' then result:= iso639_el
+  else if value = 'English' then result:= iso639_en
+  else if value = 'Esperanto' then result:= iso639_eo
+  else if value = 'Spanish' then result:= iso639_es
+  else if value = 'Estonian' then result:= iso639_et
+  else if value = 'Basque' then result:= iso639_eu
+  else if value = 'Persian' then result:= iso639_fa
+  else if value = 'Finnish' then result:= iso639_fi
+  else if value = 'Fiji' then result:= iso639_fj
+  else if value = 'Faeroese' then result:= iso639_fo
+  else if value = 'French' then result:= iso639_fr
+  else if value = 'Frisian' then result:= iso639_fy
+  else if value = 'Irish' then result:= iso639_ga
+  else if value = 'Scots Gaelic' then result:= iso639_gd
+  else if value = 'Galician' then result:= iso639_gl
+  else if value = 'Guarani' then result:= iso639_gn
+  else if value = 'Gujarati' then result:= iso639_gu
+  else if value = 'Hausa' then result:= iso639_ha
+  else if value = 'Hindi' then result:= iso639_hi
+  else if value = 'Croatian' then result:= iso639_hr
+  else if value = 'Hungarian' then result:= iso639_hu
+  else if value = 'Armenian' then result:= iso639_hy
+  else if value = 'Interlingua' then result:= iso639_ia
+  else if value = 'Interlingue' then result:= iso639_ie
+  else if value = 'Inupiak' then result:= iso639_ik
+  else if value = 'Indonesian' then result:= iso639_in
+  else if value = 'Icelandic' then result:= iso639_is
+  else if value = 'Italian' then result:= iso639_it
+  else if value = 'Hebrew' then result:= iso639_iw
+  else if value = 'Japanese' then result:= iso639_ja
+  else if value = 'Yiddish' then result:= iso639_ji
+  else if value = 'Javanese' then result:= iso639_jw
+  else if value = 'Georgian' then result:= iso639_ka
+  else if value = 'Kazakh' then result:= iso639_kk
+  else if value = 'Greenlandic' then result:= iso639_kl
+  else if value = 'Cambodian' then result:= iso639_km
+  else if value = 'Kannada' then result:= iso639_kn
+  else if value = 'Korean' then result:= iso639_ko
+  else if value = 'Kashmiri' then result:= iso639_ks
+  else if value = 'Kurdish' then result:= iso639_ku
+  else if value = 'Kirghiz' then result:= iso639_ky
+  else if value = 'Latin' then result:= iso639_la
+  else if value = 'Lingala' then result:= iso639_ln
+  else if value = 'Laothian' then result:= iso639_lo
+  else if value = 'Lithuanian' then result:= iso639_lt
+  else if value = 'Latvian' then result:= iso639_lv
+  else if value = 'Lettish' then result:= iso639_lv
+  else if value = 'Malagasy' then result:= iso639_mg
+  else if value = 'Maori' then result:= iso639_mi
+  else if value = 'Macedonian' then result:= iso639_mk
+  else if value = 'Malayalam' then result:= iso639_ml
+  else if value = 'Mongolian' then result:= iso639_mn
+  else if value = 'Moldavian' then result:= iso639_mo
+  else if value = 'Marathi' then result:= iso639_mr
+  else if value = 'Malay' then result:= iso639_ms
+  else if value = 'Maltese' then result:= iso639_mt
+  else if value = 'Burmese' then result:= iso639_my
+  else if value = 'Nauru' then result:= iso639_na
+  else if value = 'Nepali' then result:= iso639_ne
+  else if value = 'Dutch' then result:= iso639_nl
+  else if value = 'Norwegian' then result:= iso639_no
+  else if value = 'Occitan' then result:= iso639_oc
+  else if value = 'Afan' then result:= iso639_om
+  else if value = 'Oromo' then result:= iso639_om
+  else if value = 'Oriya' then result:= iso639_or
+  else if value = 'Punjabi' then result:= iso639_pa
+  else if value = 'Polish' then result:= iso639_pl
+  else if value = 'Pashto' then result:= iso639_ps
+  else if value = 'Pushto' then result:= iso639_ps
+  else if value = 'Portuguese' then result:= iso639_pt
+  else if value = 'Quechua' then result:= iso639_qu
+  else if value = 'Rhaeto-Romance' then result:= iso639_rm
+  else if value = 'Kirundi' then result:= iso639_rn
+  else if value = 'Romanian' then result:= iso639_ro
+  else if value = 'Russian' then result:= iso639_ru
+  else if value = 'Kinyarwanda' then result:= iso639_rw
+  else if value = 'Sanskrit' then result:= iso639_sa
+  else if value = 'Sindhi' then result:= iso639_sd
+  else if value = 'Sangro' then result:= iso639_sg
+  else if value = 'Serbo-Croatian' then result:= iso639_sh
+  else if value = 'Singhalese' then result:= iso639_si
+  else if value = 'Slovak' then result:= iso639_sk
+  else if value = 'Slovenian' then result:= iso639_sl
+  else if value = 'Samoan' then result:= iso639_sm
+  else if value = 'Shona' then result:= iso639_sn
+  else if value = 'Somali' then result:= iso639_so
+  else if value = 'Albanian' then result:= iso639_sq
+  else if value = 'Serbian' then result:= iso639_sr
+  else if value = 'Siswati' then result:= iso639_ss
+  else if value = 'Sesotho' then result:= iso639_st
+  else if value = 'Sundanese' then result:= iso639_su
+  else if value = 'Swedish' then result:= iso639_sv
+  else if value = 'Swahili' then result:= iso639_sw
+  else if value = 'Tamil' then result:= iso639_ta
+  else if value = 'Tegulu' then result:= iso639_te
+  else if value = 'Tajik' then result:= iso639_tg
+  else if value = 'Thai' then result:= iso639_th
+  else if value = 'Tigrinya' then result:= iso639_ti
+  else if value = 'Turkmen' then result:= iso639_tk
+  else if value = 'Tagalog' then result:= iso639_tl
+  else if value = 'Setswana' then result:= iso639_tn
+  else if value = 'Tonga' then result:= iso639_to
+  else if value = 'Turkish' then result:= iso639_tr
+  else if value = 'Tsonga' then result:= iso639_ts
+  else if value = 'Tatar' then result:= iso639_tt
+  else if value = 'Twi' then result:= iso639_tw
+  else if value = 'Ukrainian' then result:= iso639_uk
+  else if value = 'Urdu' then result:= iso639_ur
+  else if value = 'Uzbek' then result:= iso639_uz
+  else if value = 'Vietnamese' then result:= iso639_vi
+  else if value = 'Volapuk' then result:= iso639_vo
+  else if value = 'Wolof' then result:= iso639_wo
+  else if value = 'Xhosa' then result:= iso639_xh
+  else if value = 'Yoruba' then result:= iso639_yo
+  else if value = 'Chinese' then result:= iso639_zh
+  else if value = 'Zulu' then result:= iso639_zu
+  else raise EConvertError.Create('Invalid ISO 639 language name');
+end;
+
+procedure TIso639Info.setNameLanguage(const value: TIso639LanguageCode);
+begin
+  if not (value in FSupportedLanguages)
+    then raise ENot_Supported_Err.create('Not supported error.');
+end;
+
+function TIso639Info.symbolToCode(const value: UnicodeString): TIso639LanguageCode;
+begin
+  if value = 'aa' then result:= iso639_aa // Afar
+  else if value = 'ab' then result:= iso639_ab // Abkhazian
+  else if value = 'af' then result:= iso639_af // Afrikaans
+  else if value = 'am' then result:= iso639_am // Amharic
+  else if value = 'ar' then result:= iso639_ar // Arabic
+  else if value = 'as' then result:= iso639_as // Assamese
+  else if value = 'ay' then result:= iso639_ay // Aymara
+  else if value = 'az' then result:= iso639_az // Azerbaijani
+  else if value = 'ba' then result:= iso639_ba // Bashkir
+  else if value = 'be' then result:= iso639_be // Byelorussian
+  else if value = 'bg' then result:= iso639_bg // Bulgarian
+  else if value = 'bh' then result:= iso639_bh // Bihari
+  else if value = 'bi' then result:= iso639_bi // Bislama
+  else if value = 'bn' then result:= iso639_bn // Bengali; Bangla
+  else if value = 'bo' then result:= iso639_bo // Tibetan
+  else if value = 'br' then result:= iso639_br // Breton
+  else if value = 'ca' then result:= iso639_ca // Catalan
+  else if value = 'co' then result:= iso639_co // Corsican
+  else if value = 'cs' then result:= iso639_cs // Czech
+  else if value = 'cy' then result:= iso639_cy // Welsh
+  else if value = 'da' then result:= iso639_da // Danish
+  else if value = 'de' then result:= iso639_de // German
+  else if value = 'dz' then result:= iso639_dz // Bhutani
+  else if value = 'el' then result:= iso639_el // Greek
+  else if value = 'en' then result:= iso639_en // English
+  else if value = 'eo' then result:= iso639_eo // Esperanto
+  else if value = 'es' then result:= iso639_es // Spanish
+  else if value = 'et' then result:= iso639_et // Estonian
+  else if value = 'eu' then result:= iso639_eu // Basque
+  else if value = 'fa' then result:= iso639_fa // Persian
+  else if value = 'fi' then result:= iso639_fi // Finnish
+  else if value = 'fj' then result:= iso639_fj // Fiji
+  else if value = 'fo' then result:= iso639_fo // Faeroese
+  else if value = 'fr' then result:= iso639_fr // French
+  else if value = 'fy' then result:= iso639_fy // Frisian
+  else if value = 'ga' then result:= iso639_ga // Irish
+  else if value = 'gd' then result:= iso639_gd // Scots Gaelic
+  else if value = 'gl' then result:= iso639_gl // Galician
+  else if value = 'gn' then result:= iso639_gn // Guarani
+  else if value = 'gu' then result:= iso639_gu // Gujarati
+  else if value = 'ha' then result:= iso639_ha // Hausa
+  else if value = 'hi' then result:= iso639_hi // Hindi
+  else if value = 'hr' then result:= iso639_hr // Croatian
+  else if value = 'hu' then result:= iso639_hu // Hungarian
+  else if value = 'hy' then result:= iso639_hy // Armenian
+  else if value = 'ia' then result:= iso639_ia // Interlingua
+  else if value = 'ie' then result:= iso639_ie // Interlingue
+  else if value = 'ik' then result:= iso639_ik // Inupiak
+  else if value = 'in' then result:= iso639_in // Indonesian
+  else if value = 'is' then result:= iso639_is // Icelandic
+  else if value = 'it' then result:= iso639_it // Italian
+  else if value = 'iw' then result:= iso639_iw // Hebrew
+  else if value = 'ja' then result:= iso639_ja // Japanese
+  else if value = 'ji' then result:= iso639_ji // Yiddish
+  else if value = 'jw' then result:= iso639_jw // Javanese
+  else if value = 'ka' then result:= iso639_ka // Georgian
+  else if value = 'kk' then result:= iso639_kk // Kazakh
+  else if value = 'kl' then result:= iso639_kl // Greenlandic
+  else if value = 'km' then result:= iso639_km // Cambodian
+  else if value = 'kn' then result:= iso639_kn // Kannada
+  else if value = 'ko' then result:= iso639_ko // Korean
+  else if value = 'ks' then result:= iso639_ks // Kashmiri
+  else if value = 'ku' then result:= iso639_ku // Kurdish
+  else if value = 'ky' then result:= iso639_ky // Kirghiz
+  else if value = 'la' then result:= iso639_la // Latin
+  else if value = 'ln' then result:= iso639_ln // Lingala
+  else if value = 'lo' then result:= iso639_lo // Laothian
+  else if value = 'lt' then result:= iso639_lt // Lithuanian
+  else if value = 'lv' then result:= iso639_lv // Latvian; Lettish
+  else if value = 'mg' then result:= iso639_mg // Malagasy
+  else if value = 'mi' then result:= iso639_mi // Maori
+  else if value = 'mk' then result:= iso639_mk // Macedonian
+  else if value = 'ml' then result:= iso639_ml // Malayalam
+  else if value = 'mn' then result:= iso639_mn // Mongolian
+  else if value = 'mo' then result:= iso639_mo // Moldavian
+  else if value = 'mr' then result:= iso639_mr // Marathi
+  else if value = 'ms' then result:= iso639_ms // Malay
+  else if value = 'mt' then result:= iso639_mt // Maltese
+  else if value = 'my' then result:= iso639_my // Burmese
+  else if value = 'na' then result:= iso639_na // Nauru
+  else if value = 'ne' then result:= iso639_ne // Nepali
+  else if value = 'nl' then result:= iso639_nl // Dutch
+  else if value = 'no' then result:= iso639_no // Norwegian
+  else if value = 'oc' then result:= iso639_oc // Occitan
+  else if value = 'om' then result:= iso639_om // Afan; Oromo
+  else if value = 'or' then result:= iso639_or // Oriya
+  else if value = 'pa' then result:= iso639_pa // Punjabi
+  else if value = 'pl' then result:= iso639_pl // Polish
+  else if value = 'ps' then result:= iso639_ps // Pashto; Pushto
+  else if value = 'pt' then result:= iso639_pt // Portuguese
+  else if value = 'qu' then result:= iso639_qu // Quechua
+  else if value = 'rm' then result:= iso639_rm // Rhaeto-Romance
+  else if value = 'rn' then result:= iso639_rn // Kirundi
+  else if value = 'ro' then result:= iso639_ro // Romanian
+  else if value = 'ru' then result:= iso639_ru // Russian
+  else if value = 'rw' then result:= iso639_rw // Kinyarwanda
+  else if value = 'sa' then result:= iso639_sa // Sanskrit
+  else if value = 'sd' then result:= iso639_sd // Sindhi
+  else if value = 'sg' then result:= iso639_sg // Sangro
+  else if value = 'sh' then result:= iso639_sh // Serbo-Croatian
+  else if value = 'si' then result:= iso639_si // Singhalese
+  else if value = 'sk' then result:= iso639_sk // Slovak
+  else if value = 'sl' then result:= iso639_sl // Slovenian
+  else if value = 'sm' then result:= iso639_sm // Samoan
+  else if value = 'sn' then result:= iso639_sn // Shona
+  else if value = 'so' then result:= iso639_so // Somali
+  else if value = 'sq' then result:= iso639_sq // Albanian
+  else if value = 'sr' then result:= iso639_sr // Serbian
+  else if value = 'ss' then result:= iso639_ss // Siswati
+  else if value = 'st' then result:= iso639_st // Sesotho
+  else if value = 'su' then result:= iso639_su // Sundanese
+  else if value = 'sv' then result:= iso639_sv // Swedish
+  else if value = 'sw' then result:= iso639_sw // Swahili
+  else if value = 'ta' then result:= iso639_ta // Tamil
+  else if value = 'te' then result:= iso639_te // Tegulu
+  else if value = 'tg' then result:= iso639_tg // Tajik
+  else if value = 'th' then result:= iso639_th // Thai
+  else if value = 'ti' then result:= iso639_ti // Tigrinya
+  else if value = 'tk' then result:= iso639_tk // Turkmen
+  else if value = 'tl' then result:= iso639_tl // Tagalog
+  else if value = 'tn' then result:= iso639_tn // Setswana
+  else if value = 'to' then result:= iso639_to // Tonga
+  else if value = 'tr' then result:= iso639_tr // Turkish
+  else if value = 'ts' then result:= iso639_ts // Tsonga
+  else if value = 'tt' then result:= iso639_tt // Tatar
+  else if value = 'tw' then result:= iso639_tw // Twi
+  else if value = 'uk' then result:= iso639_uk // Ukrainian
+  else if value = 'ur' then result:= iso639_ur // Urdu
+  else if value = 'uz' then result:= iso639_uz // Uzbek
+  else if value = 'vi' then result:= iso639_vi // Vietnamese
+  else if value = 'vo' then result:= iso639_vo // Volapuk
+  else if value = 'wo' then result:= iso639_wo // Wolof
+  else if value = 'xh' then result:= iso639_xh // Xhosa
+  else if value = 'yo' then result:= iso639_yo // Yoruba
+  else if value = 'zh' then result:= iso639_zh // Chinese
+  else if value = 'zu' then result:= iso639_zu // Zulu
+  else raise EConvertError.Create('Invalid ISO 639 language symbol');
+end;
+
+
+
+//+++++++++++++++++++++++ TdomImplementation ++++++++++++++++++++++++++
+constructor TdomImplementation.create(aOwner: TComponent);
+begin
+  inherited create(aOwner);
+  FCreatedCMObjectsListing:= TList.create;
+  FCreatedCMObjects:= TdomCMNodeList.create(FCreatedCMObjectsListing);
+  FCreatedDocumentsListing:= TList.create;
+  FCreatedDocuments:= TdomNodeList.create(FCreatedDocumentsListing);
+  FCreatedDocumentTypesListing:= TList.create;
+  FCreatedDocumentTypes:= TdomNodeList.create(FCreatedDocumentTypesListing);
+  FCreatedCMExternalObjectsListing:= TList.create;
+  FCreatedCMExternalObjects:= TdomCMNodeList.create(FCreatedCMExternalObjectsListing);
+  FCreatedCMInternalObjectsListing:= TList.create;
+  FCreatedCMInternalObjects:= TdomCMNodeList.create(FCreatedCMInternalObjectsListing);
+end;
+
+destructor TdomImplementation.destroy;
+begin
+  clear;
+  FCreatedCMObjectsListing.free;
+  FCreatedCMObjects.free;
+  FCreatedDocumentsListing.free;
+  FCreatedDocuments.free;
+  FCreatedDocumentTypesListing.free;
+  FCreatedDocumentTypes.free;
+  FCreatedCMExternalObjectsListing.free;
+  FCreatedCMExternalObjects.free;
+  FCreatedCMInternalObjectsListing.free;
+  FCreatedCMInternalObjects.free;
+  inherited destroy;
+end;
+
+procedure TdomImplementation.clear;
+var
+  i: integer;
+begin
+  for i:= 0 to FCreatedDocumentsListing.count-1 do begin
+    TdomDocument(FCreatedDocumentsListing[i]).clear; // destroys all child nodes, nodeIterators and treeWalkers
+    TdomDocument(FCreatedDocumentsListing[i]).free;
+    FCreatedDocumentsListing[i]:= nil;
+  end;
+  FCreatedDocumentsListing.pack;
+  FCreatedDocumentsListing.Capacity:= FCreatedDocumentsListing.Count;
+
+  for i:= 0 to FCreatedDocumentTypesListing.count-1 do begin
+    TdomDocumentType(FCreatedDocumentTypesListing[i]).free;
+    FCreatedDocumentTypesListing[i]:= nil;
+  end;
+  FCreatedDocumentTypesListing.pack;
+  FCreatedDocumentTypesListing.Capacity:= FCreatedDocumentTypesListing.Count;
+
+  for i:= 0 to FCreatedCMExternalObjectsListing.count-1 do begin
+    TdomCMExternalObject(FCreatedCMExternalObjectsListing[i]).free;
+    FCreatedCMExternalObjectsListing[i]:= nil;
+  end;
+  FCreatedCMExternalObjectsListing.pack;
+  FCreatedCMExternalObjectsListing.Capacity:= FCreatedCMExternalObjectsListing.Count;
+
+  for i:= 0 to FCreatedCMInternalObjectsListing.count-1 do begin
+    TdomCMInternalObject(FCreatedCMInternalObjectsListing[i]).free;
+    FCreatedCMInternalObjectsListing[i]:= nil;
+  end;
+  FCreatedCMInternalObjectsListing.pack;
+  FCreatedCMInternalObjectsListing.Capacity:= FCreatedCMInternalObjectsListing.Count;
+
+  for i:= 0 to FCreatedCMObjectsListing.count-1 do begin
+    TdomCMObject(FCreatedCMObjectsListing[i]).free;
+    FCreatedCMObjectsListing[i]:= nil;
+  end;
+  FCreatedCMObjectsListing.pack;
+  FCreatedCMObjectsListing.Capacity:= FCreatedCMObjectsListing.Count;
+end;
+
+function TdomImplementation.createCMExternalObject(const pubId,
+                                                         sysId: UnicodeString): TdomCMExternalObject;
+begin
+  Result:= TdomCMExternalObject.create(self,pubId,sysId);
+  FCreatedCMExternalObjectsListing.add(Result);
+end;
+
+function TdomImplementation.createCMInternalObject(const pubId,
+                                                         sysId: UnicodeString): TdomCMInternalObject;
+begin
+  Result:= TdomCMInternalObject.create(self,pubId,sysId);
+  FCreatedCMInternalObjectsListing.add(Result);
+end;
+
+function TdomImplementation.createCMObject(const sysId: UnicodeString): TdomCMObject;
+begin
+  Result:= TdomCMObject.create(self,sysId);
+  FCreatedCMObjectsListing.add(Result);
+end;
+
+function TdomImplementation.createDocument(const aname: UnicodeString;
+                                                 doctype: TdomDocumentType): TdomDocument;
+begin
+  if assigned(doctype) then
+    if documentTypes.IndexOf(doctype) = -1
+      then raise EWrong_Document_Err.create('Wrong document error.');
+  if not IsXmlName(aname)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if SupportsDocumentFormat('',aname)
+    then Result:= getDocumentClass('',aname).create(self)
+    else Result:= TdomDocument.create(self);
+  FCreatedDocumentsListing.add(Result);
+  if assigned(doctype) then begin
+    FCreatedDocumentTypes.FNodeList.Remove(doctype);
+    doctype.FDocument:= Result;
+    Result.appendChild(doctype);
+  end;
+  Result.InitDoc(aname);
+end;
+
+function TdomImplementation.createDocumentNS(const namespaceURI,
+                                                   qualifiedName: UnicodeString;
+                                                   doctype: TdomDocumentType): TdomDocument;
+var
+  prfx, localName: UnicodeString;
+begin
+  if assigned(doctype) then
+    if documentTypes.IndexOf(doctype) = -1
+      then raise EWrong_Document_Err.create('Wrong document error.');
+  if not xmlExtractPrefixAndLocalName(qualifiedName,prfx,localName) then begin
+    if not IsXmlName(qualifiedName)
+      then raise EInvalid_Character_Err.create('Invalid character error.')
+      else raise ENamespace_Err.create('Namespace error.');
+  end;
+  if ( ((prfx = 'xmlns') or (qualifiedName = 'xmlns'))
+    and not (namespaceURI = 'http://www.w3.org/2000/xmlns/') )
+      then raise ENamespace_Err.create('Namespace error.');
+  if (namespaceURI = '') and (prfx <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (prfx = 'xml') and (namespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  if SupportsDocumentFormat(namespaceURI,qualifiedName)
+    then Result:= getDocumentClass(namespaceURI,qualifiedName).create(self)
+    else Result:= TdomDocument.create(self);
+  FCreatedDocuments.FNodeList.add(Result);
+  if assigned(doctype) then begin
+    FCreatedDocumentTypes.FNodeList.Remove(doctype);
+    doctype.FDocument:= Result;
+    Result.appendChild(doctype);
+  end;
+  Result.InitDocNS(namespaceURI,qualifiedName);
+end;
+
+{
+  The following two methods have been removed from this version of
+  the XDOM, but will be reintroduced in a further release.
+
+function TdomImplementation.createDocumentType(const name,
+                                                     publicId,
+                                                     systemId,
+                                                     intSubset: UnicodeString): TdomDocumentType;
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  Result:= TdomDocumentType.create(nil,name,publicId,systemId,intSubset);
+  FCreatedDocumentTypes.FNodeList.add(Result);
+end;
+
+function TdomImplementation.createDocumentTypeNS(const qualifiedName,
+                                                       publicId,
+                                                       systemId,
+                                                       intSubset: UnicodeString): TdomDocumentType;
+begin
+  if not IsXmlName(qualifiedName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not IsXmlQName(qualifiedName)
+    then raise ENamespace_Err.create('Namespace error.');
+  Result:= TdomDocumentType.create(nil,qualifiedName,publicId,systemId,intSubset);
+  FCreatedDocumentTypes.FNodeList.add(Result);
+end;
+ }
+
+procedure TdomImplementation.freeCMExternalObject(var arg: TdomCMExternalObject);
+var
+  index: integer;
+  dummyArg: TdomCMExternalObject;
+begin
+  if not assigned(arg) then exit;
+  dummyArg:= arg;
+  index:= FCreatedCMExternalObjectsListing.IndexOf(arg);
+  if index = -1
+    then raise ENot_Found_Err.create('External content model not found error.');
+  // remove the content model from its associated content models:
+  if assigned(arg.associatedContentModel)
+    then arg.associatedContentModel.removeExternalCM;
+  // free the external content model itself:
+  FCreatedCMExternalObjectsListing.Delete(index);
+  dummyArg.free; // Use dummyArg here, because the call to removeExternalCM
+                 // can set the FCMInternal field of the document being
+                 // processed in TdomImplementation.FreeDocument to nil.
+                 // Since arg is a var parameter, it will be set to nil, and
+                 // will not be freed at the end of the procedure.
+  arg:= nil;
+end;
+
+procedure TdomImplementation.freeCMInternalObject(var arg: TdomCMInternalObject);
+var
+  index: integer;
+  dummyArg: TdomCMInternalObject;
+begin
+  if not assigned(arg) then exit;
+  dummyArg:= arg;
+  index:= FCreatedCMInternalObjectsListing.indexOf(arg);
+  if index = -1
+    then raise ENot_Found_Err.create('Internal content model not found error.');
+  // remove the content model from its associated content model:
+  if assigned(arg.associatedContentModel)
+    then arg.associatedContentModel.removeInternalCM;
+  // free the Internal content model itself:
+  FCreatedCMInternalObjectsListing.Delete(index);
+  dummyArg.free; // Use dummyArg here, because the call to removeInternalCM
+                 // can set the FCMInternal field of the document being
+                 // processed in TdomImplementation.FreeDocument to nil.
+                 // Since arg is a var parameter, it will be set to nil, and
+                 // will not be freed at the end of the procedure.
+  arg:= nil;
+end;
+
+procedure TdomImplementation.freeCMObject(var arg: TdomCMObject);
+var
+  index: integer;
+  dummyArg: TdomCMObject;
+begin
+  if not assigned(arg) then exit;
+  dummyArg:= arg;
+  index:= FCreatedCMObjectsListing.IndexOf(arg);
+  if index = -1
+    then raise ENot_Found_Err.create('Content model not found error.');
+  // remove associated content models
+  arg.removeExternalCM;
+  arg.removeInternalCM;
+  // remove the content model from its associated document:
+  if assigned(arg.associatedDocument)
+    then arg.associatedDocument.removeContentModel;
+  // free the content model itself:
+  FCreatedCMObjectsListing.Delete(index);
+  dummyArg.free; // Use dummyArg here, because the call to removeContentModel
+                 // can set the FCMInternal field of the document being
+                 // processed in TdomImplementation.FreeDocument to nil.
+                 // Since arg is a var parameter, it will be set to nil, and
+                 // will not be freed at the end of the procedure.
+  arg:= nil;
+end;
+
+procedure TdomImplementation.freeDocument(var doc: TdomDocument);
+var
+  index: integer;
+begin
+  if not assigned(doc) then exit;
+  index:= FCreatedDocumentsListing.IndexOf(doc);
+  if index = -1
+    then raise ENot_Found_Err.create('Document not found error.');
+  // free the content model associated with the document:
+  if assigned(doc.FCMInternal) then FreeCMObject(doc.FCMInternal);
+  // free all child nodes, nodeIterators and treeWalkers:
+  doc.clear;
+  // free the document itself:
+  FCreatedDocumentsListing.Delete(index);
+  doc.free;
+  doc:= nil;
+end;
+
+procedure TdomImplementation.freeDocumentType(var docType: TdomDocumentType);
+var
+  index: integer;
+begin
+  if not assigned(docType) then exit;
+  index:= FCreatedDocumentTypesListing.IndexOf(docType);
+  if index = -1
+    then raise ENot_Found_Err.create('DocumentType not found error.');
+  FCreatedDocumentTypesListing.Delete(index);
+  docType.free;
+  docType:= nil;
+end;
+
+function TdomImplementation.getCMObjects: TdomCMNodeList;
+begin
+  result:= FCreatedCMObjects;
+end;
+
+function TdomImplementation.getDocuments: TdomNodeList;
+begin
+  Result:= FCreatedDocuments;
+end;
+
+function TdomImplementation.getDocumentTypes: TdomNodeList;
+begin
+  Result:= FCreatedDocumentTypes;
+end;
+
+procedure TDomImplementation.doAttrModified(modifiedDoc: TdomDocument;
+                                            modifiedNode: TdomNode;
+                                            attrChange: TdomAttrChange;
+                                            prevValue,
+                                            newValue: UnicodeString;
+                                            relatedAttr: TdomAttr);
+begin
+  if assigned(FOnAttrModified)
+    then FOnAttrModified(self,modifiedDoc,modifiedNode,attrChange,prevValue,newValue,relatedAttr);
+end;
+
+procedure TDomImplementation.doCharacterDataModified(modifiedDoc: TdomDocument;
+                                                     modifiedNode: TdomNode;
+                                                     prevValue,
+                                                     newValue: UnicodeString);
+begin
+  if assigned(FOnCharacterDataModified)
+    then FOnCharacterDataModified(self,modifiedDoc,modifiedNode,prevValue,newValue);
+end;
+
+procedure TdomImplementation.doError(    sender: TObject;
+                                         error: TdomError;
+                                     var go: boolean);
+begin
+  case error.severity of
+    DOM_SEVERITY_WARNING, DOM_SEVERITY_ERROR: go:= true;
+    DOM_SEVERITY_FATAL_ERROR: go:= false;
+  end;
+  if assigned(FOnError)
+    then FOnError(sender,error,go);
+end;
+
+procedure TDomImplementation.doExternalParsedEntity(parentSystemId: UnicodeString;
+                                                    var publicId,
+                                                        systemId: UnicodeString;
+                                                    var stream: TStream;
+                                                    var action: TXmlParserAction);
+begin
+  if assigned(FOnExternalParsedEntity) then
+    repeat
+      FOnExternalParsedEntity(self,parentSystemId,publicId,systemId,stream,action);
+    until action <> paRetry;
+end;
+
+procedure TDomImplementation.doNodeInserted(modifiedDoc: TdomDocument;
+                                            modifiedNode: TdomNode);
+begin
+  if assigned(FOnNodeInserted)
+    then FOnNodeInserted(self,modifiedDoc,modifiedNode);
+end;
+
+procedure TDomImplementation.doNodeRemoved(modifiedDoc: TdomDocument;
+                                           modifiedNode: TdomNode);
+begin
+  if assigned(FOnNodeRemoved)
+    then FOnNodeRemoved(self,modifiedDoc,modifiedNode);
+end;
+
+function TdomImplementation.getCMExternalObjects: TdomCMNodeList;
+begin
+  result:= FCreatedCMExternalObjects;
+end;
+
+function TdomImplementation.getCMInternalObjects: TdomCMNodeList;
+begin
+  result:= FCreatedCMInternalObjects;
+end;
+
+function TDomImplementation.getXdomVersion: UnicodeString;
+begin
+  result:= '2.3.27';
+end;
+
+function TdomImplementation.hasFeature(const feature,
+                                             version: UnicodeString): boolean;
+var
+  VersionStr: string;
+begin
+  Result:= false;
+  VersionStr:= WideCharToString(PWideChar(feature));
+  if (WideCharToString(PWideChar(version))='1.0')
+    or (WideCharToString(PWideChar(version))='')
+  then begin
+    if (CompareText(VersionStr,'XML')=0)
+       then Result:= true;
+  end else begin
+    if (WideCharToString(PWideChar(version))='2.0')
+      then begin
+        if (CompareText(VersionStr,'XML')=0)
+           then Result:= true;
+        if (CompareText(VersionStr,'VIEWS')=0)
+           then Result:= true;
+        if (CompareText(VersionStr,'TRAVERSAL')=0)
+           then Result:= true;
+    end else begin
+      if version = ''
+        then begin
+          if (CompareText(VersionStr,'XML')=0)
+             then Result:= true;
+          if (CompareText(VersionStr,'VIEWS')=0)
+             then Result:= true;
+          if (CompareText(VersionStr,'TRAVERSAL')=0)
+             then Result:= true;
+      end;  {if ... }
+    end;  {if ... else ...}
+  end; {if ... else ...}
+end;
+
+function TdomImplementation.GetDocumentClass(const aNamespaceUri,
+                                                   aQualifiedName: UnicodeString): TdomDocumentClass;
+var
+  aDocFormat: PdomDocumentFormat;
+begin
+  aDocFormat := domDocumentFormatList;
+  while aDocFormat <> nil do
+    with aDocFormat^ do begin
+      if (aNamespaceUri = aNamespaceUri) and (aQualifiedName = qualifiedName) then begin
+        Result:= DocumentClass;
+        exit;
+      end else aDocFormat := next;
+    end;
+  raise EUnknown_Document_Format_Err.create('Unknown document format yet');
+end;
+
+function TDomImplementation.handleError(const sender: TObject;
+                                        const error: TdomError): boolean;
+begin
+  if not assigned(error)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  doError(sender,error,result);
+end;
+
+class procedure TdomImplementation.RegisterDocumentFormat(const aNamespaceUri,
+                                                                aQualifiedName: UnicodeString;
+                                                                aDocumentClass: TdomDocumentClass);
+var
+  newRec: PdomDocumentFormat;
+begin
+  if aQualifiedName = 'default'
+    then raise EInvalid_Access_Err.create('Illegal Parameter Error: Attempt to set the reserved Document Format "default".');
+  new(newRec);
+  with newRec^ do begin
+    documentClass:= aDocumentClass;
+    NamespaceUri:= aNamespaceUri;
+    qualifiedName:= aQualifiedName;
+    next:= domDocumentFormatList;
+  end;
+  domDocumentFormatList:= newRec;
+end;
+
+function TdomImplementation.SupportsDocumentFormat(const aNamespaceUri,
+                                                         aQualifiedName: UnicodeString): boolean;
+var
+  aDocFormat: PdomDocumentFormat;
+begin
+  Result:= false;
+  aDocFormat:= domDocumentFormatList;
+  while aDocFormat <> nil do
+    with aDocFormat^ do begin
+      if (aNamespaceUri = NamespaceUri) and (aQualifiedName = qualifiedName) then begin
+        Result:= true;
+        exit;
+      end else aDocFormat := next;
+    end;
+end;
+
+class procedure TdomImplementation.UnregisterDocumentClass(const aDocumentClass: TdomDocumentClass);
+var
+  aDocFormat,oldRec,previous: PdomDocumentFormat;
+begin
+  previous:= nil;
+  aDocFormat := domDocumentFormatList;
+  while aDocFormat <> nil do
+    with aDocFormat^ do begin
+      if aDocumentClass = DocumentClass then begin
+        oldRec:= aDocFormat;
+        if assigned(previous)
+          then previous^.next:= next
+          else domDocumentFormatList := next;
+        previous:= aDocFormat;
+        aDocFormat := next;
+        Dispose(oldRec);
+      end else begin
+        previous:= aDocFormat;
+        aDocFormat := next;
+      end;
+    end; {with ...}
+end;
+
+
+
+//++++++++++++++++++++++++++++ TdomTreeWalker +++++++++++++++++++++++++++++++
+constructor TdomTreeWalker.create(const Root: TdomNode;
+                                  const WhatToShow: TdomWhatToShow;
+                                  const NodeFilter: TdomNodeFilter;
+                                  const EntityReferenceExpansion: boolean);
+begin
+  if not assigned(Root)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  inherited create;
+  FWhatToShow:= WhatToShow;
+  FFilter:= NodeFilter;
+  FExpandEntityReferences:= EntityReferenceExpansion;
+  FRoot:= Root;
+  FCurrentNode:= Root;
+end;
+
+procedure TdomTreeWalker.SetCurrentNode(const node: TdomNode);
+begin
+  if not assigned(node)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  FCurrentNode:= node;
+end;
+
+procedure TdomTreeWalker.setExpandEntityReferences(const value: boolean);
+begin
+  FExpandEntityReferences:= value;
+end;
+
+procedure TdomTreeWalker.setFilter(const value: TdomNodeFilter);
+begin
+  FFilter:= value;
+end;
+
+procedure TdomTreeWalker.setRoot(const node: TdomNode);
+begin
+  if not assigned(node)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  FRoot:= node;
+end;
+
+procedure TdomTreeWalker.setWhatToShow(const value: TdomWhatToShow);
+begin
+  FWhatToShow:= value;
+end;
+
+function TdomTreeWalker.FindNextSibling(const oldNode: TdomNode): TdomNode;
+var
+  accept: TdomFilterResult;
+  newNode: TdomNode;
+begin
+  Result:= nil;
+  if oldNode = root then exit;
+  newNode:= oldNode.NextSibling;
+  if assigned(newNode) then begin
+    if newNode.NodeType in FWhatToShow then begin
+      if assigned(FFilter)
+        then accept:= FFilter.acceptNode(newNode)
+        else accept:= filter_accept;
+    end else accept:= filter_skip;
+    case accept of
+      filter_reject:
+        Result:= FindNextSibling(newNode);
+      filter_skip:
+        begin
+          Result:= FindFirstChild(newNode);
+          if not assigned(result)
+            then Result:= FindNextSibling(newNode);
+        end;
+      filter_accept:
+        Result:= newNode;
+    end; {case ...}
+  end else begin
+    if not assigned(oldNode.parentNode)
+      then begin result:= nil; exit; end; // TreeWalker.root not found!
+    if oldNode.parentNode.NodeType in FWhatToShow then begin
+      if assigned(FFilter)
+        then accept:= FFilter.acceptNode(oldNode.parentNode)
+        else accept:= filter_accept;
+    end else accept:= filter_skip;
+    case accept of
+      filter_reject, filter_skip:
+        Result:= FindNextSibling(oldNode.parentNode);
+      filter_accept:
+        Result:= nil;
+    end; {case ...}
+  end;
+end;
+
+function TdomTreeWalker.FindPreviousSibling(const OldNode: TdomNode): TdomNode;
+var
+  accept: TdomFilterResult;
+  newNode: TdomNode;
+begin
+  Result:= nil;
+  if OldNode = root then exit;
+  newNode:= oldNode.PreviousSibling;
+  if assigned(newNode) then begin
+    if newNode.NodeType in FWhatToShow then begin
+      if assigned(FFilter)
+        then accept:= FFilter.acceptNode(newNode)
+        else accept:= filter_accept;
+    end else accept:= filter_skip;
+    case accept of
+      filter_reject:
+        Result:= FindPreviousSibling(newNode);
+      filter_skip:
+        begin
+          Result:= FindLastChild(newNode);
+          if not assigned(result)
+            then Result:= FindPreviousSibling(newNode);
+        end;
+      filter_accept:
+        Result:= newNode;
+    end; {case ...}
+  end else begin
+    if not assigned(oldNode.parentNode)
+      then begin result:= nil; exit; end; // TreeWalker.root not found!
+    if oldNode.parentNode.NodeType in FWhatToShow then begin
+      if assigned(FFilter)
+        then accept:= FFilter.acceptNode(oldNode.parentNode)
+        else accept:= filter_accept;
+    end else accept:= filter_skip;
+    case accept of
+      filter_reject, filter_skip:
+        Result:= FindPreviousSibling(oldNode.parentNode);
+      filter_accept:
+        Result:= nil;
+    end; {case ...}
+  end;
+end;
+
+function TdomTreeWalker.FindParentNode(const OldNode: TdomNode): TdomNode;
+var
+  accept: TdomFilterResult;
+begin
+  Result:= nil;
+  if OldNode = root then exit;
+  Result:= OldNode.ParentNode;
+  if not assigned(Result)
+    then begin result:= nil; exit; end; // TreeWalker.root not found!
+  if Result.NodeType in FWhatToShow then begin
+    if assigned(FFilter)
+      then accept:= FFilter.acceptNode(Result)
+      else accept:= filter_accept;
+  end else accept:= filter_skip;
+  case accept of
+    filter_reject, filter_skip:
+      Result:= FindParentNode(Result);
+  end;
+end;
+
+function TdomTreeWalker.FindFirstChild(const oldNode: TdomNode): TdomNode;
+var
+  i: integer;
+  newNode: TdomNode;
+  accept: TdomFilterResult;
+begin
+  Result:= nil;
+  if (oldNode.nodeType = ntEntity_Reference_Node) and not FExpandEntityReferences
+    then exit;
+  for i:= 0 to pred(oldnode.childNodes.length) do begin
+    newNode:= oldnode.childNodes.item(i);
+    if newNode.NodeType in FWhatToShow then begin
+      if assigned(FFilter)
+        then accept:= FFilter.acceptNode(newNode)
+        else accept:= filter_accept;
+    end else accept:= filter_skip;
+    case accept of
+      filter_skip:
+        Result:= FindFirstChild(newNode);
+      filter_accept:
+        Result:= newNode;
+    end; {case ...}
+    if assigned(result) then break;
+  end; {for ...}
+end;
+
+function TdomTreeWalker.FindLastChild(const OldNode: TdomNode): TdomNode;
+var
+  i: integer;
+  newNode: TdomNode;
+  accept: TdomFilterResult;
+begin
+  Result:= nil;
+  if (oldNode.nodeType = ntEntity_Reference_Node) and not FExpandEntityReferences
+    then exit;
+  for i:= pred(oldnode.childNodes.length) downto 0 do begin
+    newNode:= oldnode.childNodes.item(i);
+    if newNode.NodeType in FWhatToShow then begin
+      if assigned(FFilter)
+        then accept:= FFilter.acceptNode(newNode)
+        else accept:= filter_accept;
+    end else accept:= filter_skip;
+    case accept of
+      filter_skip:
+        Result:= FindLastChild(newNode);
+      filter_accept:
+        Result:= newNode;
+    end; {case ...}
+    if assigned(result) then break;
+  end; {for ...}
+end;
+
+function TdomTreeWalker.FindNextNode(OldNode: TdomNode): TdomNode;
+var
+  newNode: TdomNode;
+begin
+  Result:= FindFirstChild(oldNode);
+  if OldNode = root then exit;
+  if not assigned(Result)
+    then Result:= FindNextSibling(oldNode);
+  while not assigned(Result) do begin
+    newNode:= FindParentNode(oldNode);
+    if not assigned(newNode) then exit;  // No next node.
+    Result:= FindNextSibling(newNode);
+    oldNode:= newNode;
+  end;
+end;
+
+function TdomTreeWalker.FindPreviousNode(const OldNode: TdomNode): TdomNode;
+var
+  newNode: TdomNode;
+begin
+  Result:= nil;
+  if OldNode = root then exit;
+  Result:= FindPreviousSibling(oldNode);
+  if assigned(Result) then begin
+    newNode:= FindLastChild(Result);
+    if assigned(newNode) then result:= newNode;
+  end else
+    result:= FindParentNode(oldNode);
+end;
+
+function TdomTreeWalker.parentNode: TdomNode;
+begin
+  Result:= FindParentNode(FCurrentNode);
+  if assigned(Result) then FCurrentNode:= Result;
+end;
+
+function TdomTreeWalker.firstChild: TdomNode;
+begin
+  Result:= FindFirstChild(FCurrentNode);
+  if assigned(Result) then FCurrentNode:= Result;
+end;
+
+function TdomTreeWalker.lastChild: TdomNode;
+begin
+  Result:= FindLastChild(FCurrentNode);
+  if assigned(Result) then FCurrentNode:= Result;
+end;
+
+function TdomTreeWalker.previousSibling: TdomNode;
+begin
+  Result:= FindPreviousSibling(FCurrentNode);
+  if assigned(Result) then FCurrentNode:= Result;
+end;
+
+function TdomTreeWalker.nextSibling: TdomNode;
+begin
+  Result:= FindNextSibling(FCurrentNode);
+  if assigned(Result) then FCurrentNode:= Result;
+end;
+
+function TdomTreeWalker.previousNode: TdomNode;
+begin
+  Result:= FindPreviousNode(FCurrentNode);
+  if assigned(Result) then FCurrentNode:= Result;
+end;
+
+function TdomTreeWalker.nextNode: TdomNode;
+begin
+  Result:= FindNextNode(FCurrentNode);
+  if assigned(Result) then FCurrentNode:= Result;
+end;
+
+
+
+//++++++++++++++++++++++++++++ TdomNodeIterator +++++++++++++++++++++++++++++++
+constructor TdomNodeIterator.create(const Root: TdomNode;
+                                    const WhatToShow: TdomWhatToShow;
+                                    const nodeFilter: TdomNodeFilter;
+                                    const EntityReferenceExpansion: boolean);
+begin
+  if not assigned(Root)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  inherited create;
+  FRoot:= root;
+  FWhatToShow:= WhatToShow;
+  FFilter:= NodeFilter;
+  FExpandEntityReferences:= EntityReferenceExpansion;
+  FReferenceNode:= Root;
+  FInvalid:= false;
+  FPosition:= posBefore;
+end;
+
+procedure TdomNodeIterator.FindNewReferenceNode(const nodeToRemove: TdomNode);
+var
+  newRefNode: TdomNode;
+  newPosition: TdomPosition;
+begin
+  newRefNode:= nil;
+  newPosition:= FPosition;
+  case FPosition of
+    posBefore: begin
+      newRefNode:= nodeToRemove.NextSibling;
+      if not assigned(newRefNode) then begin
+        newRefNode:= FindPreviousNode(nodeToRemove);
+        newPosition:= posAfter;
+      end;
+    end;
+    posAfter: begin
+      newRefNode:= nodeToRemove.NextSibling;
+      if not assigned(newRefNode) then begin
+        newRefNode:= FindPreviousNode(nodeToRemove);
+        newPosition:= posBefore;
+      end;
+    end;
+  end; {case ...}
+  if assigned(newRefNode) then begin
+    FReferenceNode:= newRefNode;
+    FPosition:= newPosition;
+  end;
+end;
+
+procedure TdomNodeIterator.detach;
+begin
+  FReferenceNode:= nil;
+  FInvalid:= true;
+end;
+
+function TdomNodeIterator.FindNextNode(OldNode: TdomNode): TdomNode;
+var
+  newNode: TdomNode;
+begin
+  with OldNode do
+    if HasChildNodes
+      and ( FExpandEntityReferences or (nodeType <> ntEntity_Reference_Node) )
+      then result:= FirstChild
+      else result:= NextSibling;
+  while not assigned(Result) do begin
+    newNode:= oldNode.ParentNode;
+    if not assigned(newNode) then exit;  // No next node.
+    Result:= newNode.NextSibling;
+    oldNode:= newNode;
+  end;
+end;
+
+function TdomNodeIterator.FindPreviousNode(const OldNode: TdomNode): TdomNode;
+var
+  newNode: TdomNode;
+begin
+  with OldNode do begin
+    result:= PreviousSibling;
+    if assigned(result) then begin
+      newNode:= result;
+      while assigned(newNode) do begin
+        result:= newNode;
+        newNode:= newNode.LastChild;
+      end;
+    end else result:= ParentNode;
+  end;
+end;
+
+function TdomNodeIterator.NextNode: TdomNode;
+var
+  accept: TdomFilterResult;
+  newNode: TdomNode;
+begin
+  newNode:= nil;
+  if FInvalid
+    then raise EInvalid_State_Err.create('Invalid state error.');
+  case FPosition of
+    posBefore: begin
+      FPosition:= posAfter;
+      newNode:= FReferenceNode;
+    end;
+    posAfter: begin
+      newNode:= FindNextNode(FReferenceNode);
+    end;
+  end;
+  repeat
+    accept:= filter_accept;
+    if assigned(newNode) then begin
+      if newNode.NodeType in FWhatToShow then begin
+        if assigned(FFilter)
+          then accept:= FFilter.acceptNode(newNode);
+      end else accept:= filter_skip;
+      if not (accept = filter_accept)
+        then newNode:= FindNextNode(newNode);
+    end;
+  until accept = filter_accept;
+  if assigned(newNode) then
+    if not (newNode.IsAncestor(root) or (newNode = root)) then
+      if (FReferenceNode.IsAncestor(root) or (FReferenceNode = root)) then newNode:= nil;
+  if assigned(newNode) then FReferenceNode:= newNode;
+  Result:= newNode;
+end;
+
+function TdomNodeIterator.PreviousNode: TdomNode;
+var
+  accept: TdomFilterResult;
+  newNode: TdomNode;
+begin
+  newNode:= nil;
+  if FInvalid
+    then raise EInvalid_State_Err.create('Invalid state error.');
+  case FPosition of
+    posBefore: begin
+      newNode:= FindPreviousNode(FReferenceNode);
+    end;
+    posAfter: begin
+      FPosition:= posBefore;
+      newNode:= FReferenceNode;
+    end;
+  end;
+  repeat
+    accept:= filter_accept;
+    if assigned(newNode) then begin
+      if newNode.NodeType in FWhatToShow then begin
+        if assigned(FFilter)
+          then accept:= FFilter.acceptNode(newNode);
+      end else accept:= filter_skip;
+      if not (accept = filter_accept)
+        then newNode:= FindPreviousNode(newNode);
+    end;
+  until accept = filter_accept;
+  if assigned(newNode) then
+    if not (newNode.IsAncestor(root) or (newNode = root)) then
+      if (FReferenceNode.IsAncestor(root) or (FReferenceNode = root)) then newNode:= nil;
+  if assigned(newNode) then FReferenceNode:= newNode;
+  Result:= newNode;
+end;
+
+
+
+//++++++++++++++++++++++++++++ TdomNodeList +++++++++++++++++++++++++++++++
+constructor TdomNodeList.create(const nodeList: TList);
+begin
+  inherited create;
+  FNodeList:= nodeList;
+end;
+
+function TdomNodeList.getLength: integer;
+begin
+  Result:= FNodeList.count;
+end;
+
+function TdomNodeList.indexOf(const node: TdomNode): integer;
+begin
+  Result:= FNodeList.IndexOf(node);
+end;
+
+function TdomNodeList.item(const index: integer): TdomNode;
+begin
+  if (index < 0) or (index >= FNodeList.Count)
+    then result:= nil
+    else result:= TdomNode(FNodeList.List^[Index]);
+end;
+
+
+
+//++++++++++++++++++++++++ TdomElementsNodeList ++++++++++++++++++++++++++
+constructor TdomElementsNodeList.create(const QueryName: UnicodeString;
+                                        const StartElement: TdomNode);
+begin
+  inherited create(nil);
+  FQueryName:= QueryName;
+  FStartElement:= StartElement;
+end;
+
+function TdomElementsNodeList.GetLength: integer;
+var
+  AktNode,NewNode: TdomNode;
+  Level: integer;
+begin
+  Result:= 0;
+  if not assigned(FStartElement) then exit;
+  Level:= 0;
+  AktNode:= FStartElement;
+  if AktNode.NodeType = ntElement_Node then
+    if (AktNode.NodeName = FQueryName) or (FQueryName = '*') then
+      inc(Result);
+  repeat
+    if AktNode.HasChildNodes
+      then begin NewNode:= AktNode.FirstChild; inc(Level); end
+      else NewNode:= AktNode.NextSibling;
+    while not assigned(NewNode) do begin
+      dec(Level);
+      if Level < 1 then break;
+      AktNode:= AktNode.ParentNode;
+      NewNode:= AktNode.NextSibling;
+    end;
+    if Level < 1 then break;
+    AktNode:= NewNode;
+    if AktNode.NodeType = ntElement_Node then
+      if (AktNode.NodeName = FQueryName) or (FQueryName = '*') then
+        inc(Result);
+  until Level < 1;
+end;
+
+function TdomElementsNodeList.IndexOf(const node: TdomNode): integer;
+var
+  AktNode,NewNode: TdomNode;
+  Level,i: integer;
+begin
+  Result:= -1;
+  if not assigned(FStartElement) then exit;
+  if not (node is TdomNode) then exit;
+  if node.NodeType <> ntElement_Node then exit;
+  i:= -1;
+  Level:= 0;
+  AktNode:= FStartElement;
+  repeat
+    if AktNode.HasChildNodes
+      then begin NewNode:= AktNode.FirstChild; inc(Level); end
+      else NewNode:= AktNode.NextSibling;
+    while not assigned(NewNode) do begin
+      dec(Level);
+      if Level < 1 then break;
+      AktNode:= AktNode.ParentNode;
+      NewNode:= AktNode.NextSibling;
+    end;
+    if Level < 1 then break;
+    AktNode:= NewNode;
+    if AktNode.NodeType = ntElement_Node then
+      if (AktNode.NodeName = FQueryName) or (FQueryName = '*') then begin
+        inc(i);
+        if AktNode = node then begin Result:= i; break; end;
+      end;
+  until Level < 1;
+end;
+
+function TdomElementsNodeList.Item(const index: integer): TdomNode;
+var
+  AktNode,NewNode: TdomNode;
+  Level,i: integer;
+begin
+  Result:= nil;
+  if not assigned(FStartElement) then exit;
+  if (index < 0) then exit;
+  i:= -1;
+  Level:= 0;
+  AktNode:= FStartElement;
+  repeat
+    if AktNode.HasChildNodes
+      then begin NewNode:= AktNode.FirstChild; inc(Level); end
+      else NewNode:= AktNode.NextSibling;
+    while not assigned(NewNode) do begin
+      dec(Level);
+      if Level < 1 then break;
+      AktNode:= AktNode.ParentNode;
+      NewNode:= AktNode.NextSibling;
+    end;
+    if Level < 1 then break;
+    AktNode:= NewNode;
+    if AktNode.NodeType = ntElement_Node then
+      if (AktNode.NodeName = FQueryName) or (FQueryName = '*') then begin
+        inc(i);
+        if i = index then begin Result:= AktNode; break; end;
+      end;
+  until Level < 1;
+end;
+
+
+
+//+++++++++++++++++++++TdomElementsNodeListNS ++++++++++++++++++++++++++
+constructor TdomElementsNodeListNS.create(const QueryNamespaceURI,
+                                                QueryLocalName: UnicodeString;
+                                          const StartElement: TdomNode);
+begin
+  inherited create(nil);
+  FQueryNamespaceURI:= QueryNamespaceURI;
+  FQueryLocalName:= QueryLocalName;
+  FStartElement:= StartElement;
+end;
+
+function TdomElementsNodeListNS.GetLength: integer;
+var
+  AktNode,NewNode: TdomNode;
+  Level: integer;
+begin
+  Result:= 0;
+  if not assigned(FStartElement) then exit;
+  Level:= 0;
+  AktNode:= FStartElement;
+  repeat
+    if AktNode.HasChildNodes
+      then begin NewNode:= AktNode.FirstChild; inc(Level); end
+      else NewNode:= AktNode.NextSibling;
+    while not assigned(NewNode) do begin
+      dec(Level);
+      if Level < 1 then break;
+      AktNode:= AktNode.ParentNode;
+      NewNode:= AktNode.NextSibling;
+    end;
+    if Level < 1 then break;
+    AktNode:= NewNode;
+    if AktNode.NodeType = ntElement_Node then
+      if ((AktNode.namespaceURI = FQueryNamespaceURI) or (FQueryNamespaceURI = '*'))
+        and ((AktNode.localName = FQueryLocalName) or (FQueryLocalName = '*'))
+          then inc(Result);
+  until Level < 1;
+end;
+
+function TdomElementsNodeListNS.IndexOf(const node: TdomNode): integer;
+var
+  AktNode,NewNode: TdomNode;
+  Level,i: integer;
+begin
+  Result:= -1;
+  if not assigned(FStartElement) then exit;
+  if not (node is TdomNode) then exit;
+  if node.NodeType <> ntElement_Node then exit;
+  i:= -1;
+  Level:= 0;
+  AktNode:= FStartElement;
+  repeat
+    if AktNode.HasChildNodes
+      then begin NewNode:= AktNode.FirstChild; inc(Level); end
+      else NewNode:= AktNode.NextSibling;
+    while not assigned(NewNode) do begin
+      dec(Level);
+      if Level < 1 then break;
+      AktNode:= AktNode.ParentNode;
+      NewNode:= AktNode.NextSibling;
+    end;
+    if Level < 1 then break;
+    AktNode:= NewNode;
+    if AktNode.NodeType = ntElement_Node then
+      if ((AktNode.namespaceURI = FQueryNamespaceURI) or (FQueryNamespaceURI = '*'))
+        and ((AktNode.localName = FQueryLocalName) or (FQueryLocalName = '*'))
+          then begin
+            inc(i);
+            if AktNode = node then begin Result:= i; break; end;
+          end;
+  until Level < 1;
+end;
+
+function TdomElementsNodeListNS.Item(const index: integer): TdomNode;
+var
+  AktNode,NewNode: TdomNode;
+  Level,i: integer;
+begin
+  Result:= nil;
+  if not assigned(FStartElement) then exit;
+  if (index < 0) then exit;
+  i:= -1;
+  Level:= 0;
+  AktNode:= FStartElement;
+  repeat
+    if AktNode.HasChildNodes
+      then begin NewNode:= AktNode.FirstChild; inc(Level); end
+      else NewNode:= AktNode.NextSibling;
+    while not assigned(NewNode) do begin
+      dec(Level);
+      if Level < 1 then break;
+      AktNode:= AktNode.ParentNode;
+      NewNode:= AktNode.NextSibling;
+    end;
+    if Level < 1 then break;
+    AktNode:= NewNode;
+    if AktNode.NodeType = ntElement_Node then
+      if ((AktNode.namespaceURI = FQueryNamespaceURI) or (FQueryNamespaceURI = '*'))
+        and ((AktNode.localName = FQueryLocalName) or (FQueryLocalName = '*'))
+          then begin
+            inc(i);
+            if i = index then begin Result:= AktNode; break; end;
+          end;
+  until Level < 1;
+end;
+
+
+
+//++++++++++++++++++++++++ TdomSpecialNodeList ++++++++++++++++++++++++++
+constructor TdomSpecialNodeList.create(const nodeList: TList;
+                                       const allowedNTs: TDomNodeTypeSet);
+begin
+  inherited create(nodeList);
+  FAllowedNodeTypes:= allowedNTs;
+end;
+
+function TdomSpecialNodeList.GetLength: integer;
+var
+  i: integer;
+begin
+  Result:= 0;
+  for i:= 0 to FNodeList.count-1 do
+    if TdomNode(FNodeList[i]).NodeType in FAllowedNodeTypes
+      then inc(Result);
+end;
+
+function TdomSpecialNodeList.IndexOf(const node: TdomNode): integer;
+var
+  i: integer;
+begin
+  Result:= -1;
+  if not (node.NodeType in FAllowedNodeTypes) then exit;
+  for i:= 0 to FNodeList.count-1 do begin
+    if TdomNode(FNodeList[i]).NodeType in FAllowedNodeTypes
+      then inc(Result);
+    if TdomNode(FNodeList[i]) = node
+      then begin Result:= i; break; end;
+  end;
+end;
+
+function TdomSpecialNodeList.Item(const index: integer): TdomNode;
+var
+  i,j: integer;
+begin
+  Result:= nil;
+  j:= -1;
+  if (index < 0) or (index > FNodeList.count-1) then exit;
+  for i:= 0 to FNodeList.count-1 do begin
+    if TdomNode(FNodeList[i]).NodeType in FAllowedNodeTypes
+      then inc(j);
+    if j = index then begin Result:= TdomNode(FNodeList[i]); break; end;
+  end;
+end;
+
+function TdomSpecialNodeList.GetNamedIndex(const name: UnicodeString): integer;
+var
+  i,j: integer;
+begin
+  result:= -1;
+  j:= -1;
+  for i:= 0 to FNodeList.count-1 do
+    if TdomNode(FNodeList[i]).NodeType in FAllowedNodeTypes then begin
+      inc(j);
+      if (TdomNode(FNodeList[i]).NodeName = name)
+        then begin Result:= j; break; end;
+    end;
+end;
+
+function TdomSpecialNodeList.GetNamedItem(const name: UnicodeString): TdomNode;
+var
+  i: integer;
+begin
+  result:= nil;
+  for i:= 0 to FNodeList.count-1 do
+    if (TdomNode(FNodeList[i]).NodeName = name)
+      and (TdomNode(FNodeList[i]).NodeType in FAllowedNodeTypes) then begin
+      Result:= TdomNode(FNodeList[i]);
+      break;
+    end;
+end;
+
+
+//+++++++++++++++++++++++++ TdomNamedNodeMap +++++++++++++++++++++++++++++
+constructor TdomNamedNodeMap.create(const aOwner,
+                                          aOwnerNode: TdomNode;
+                                    const nodeList: TList;
+                                    const allowedNTs: TDomNodeTypeSet);
+begin
+  inherited create(nodeList);
+  FOwner:= aOwner;
+  FOwnerNode:= aOwnerNode;
+  FAllowedNodeTypes:= allowedNTs;
+  FNamespaceAware:= false;
+  FIsReadonly:= false;
+end;
+
+function TdomNamedNodeMap.getOwnerNode: TdomNode;
+begin
+  Result:= FOwnerNode;
+end;
+
+function TdomNamedNodeMap.getNamespaceAware: boolean;
+begin
+  Result:= FNamespaceAware;
+end;
+
+procedure TdomNamedNodeMap.setNamespaceAware(const value: boolean);
+begin
+  if FNodeList.count > 0
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  FNamespaceAware:= value;
+end;
+
+function TdomNamedNodeMap.RemoveItem(const arg: TdomNode): TdomNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FNodeList.IndexOf(arg) = -1
+    then raise ENot_Found_Err.create('Node not found error.');
+  Result:= arg;
+  FNodeList.Remove(arg);
+  Result.FParentNode:= nil;
+end;
+
+procedure TdomNamedNodeMap.setIsReadonly(const value: boolean);
+begin
+  FIsReadonly:= value;
+end;
+
+function TdomNamedNodeMap.GetNamedIndex(const name: UnicodeString): integer;
+var
+  i: integer;
+begin
+  if FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  result:= -1;
+  for i:= 0 to FNodeList.count-1 do
+    if (TdomNode(FNodeList[i]).NodeName = name)
+      and (TdomNode(FNodeList[i]).NodeType in FAllowedNodeTypes) then begin
+      Result:= i;
+      break;
+    end;
+end;
+
+function TdomNamedNodeMap.GetNamedItem(const name: UnicodeString): TdomNode;
+var
+  i: integer;
+begin
+  if FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  result:= nil;
+  for i:= 0 to FNodeList.count-1 do
+    if (TdomNode(FNodeList[i]).NodeName = name)
+      and (TdomNode(FNodeList[i]).NodeType in FAllowedNodeTypes) then begin
+      Result:= TdomNode(FNodeList[i]);
+      break;
+    end;
+end;
+
+function TdomNamedNodeMap.SetNamedItem(const arg: TdomNode): TdomNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  if FOwner.OwnerDocument <> arg.OwnerDocument
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if not (arg.NodeType in FAllowedNodeTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if assigned(arg.parentNode)
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  if arg.NodeType = ntAttribute_Node
+    then if assigned((arg as TdomAttr).OwnerElement)
+      then if (arg as TdomAttr).OwnerElement <> FOwnerNode
+        then raise EInuse_Attribute_Err.create('Inuse attribute error.');
+  if assigned(GetNamedItem(arg.NodeName))
+    then Result:= RemoveNamedItem(arg.NodeName)
+    else Result:= nil;
+  FNodeList.Add(arg);
+  arg.FParentNode:= nil;
+  if (arg.NodeType = ntAttribute_Node)
+    and (FOwnerNode.NodeType = ntElement_Node)
+    then (arg as TdomAttr).FownerElement:= TdomElement(FOwnerNode);
+end;
+
+function TdomNamedNodeMap.RemoveNamedItem(const name: UnicodeString): TdomNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  Result:= getNamedItem(name);
+  if not assigned(Result)
+    then raise ENot_Found_Err.create('Node not found error.');
+  FNodeList.Remove(Result);
+  if Result.NodeType = ntAttribute_Node
+    then (Result as TdomAttr).FownerElement:= nil;
+end;
+
+function TdomNamedNodeMap.GetNamedItemNS(const namespaceURI,
+                                               localName: UnicodeString): TdomNode;
+var
+  i: integer;
+begin
+  if not FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  result:= nil;
+  for i:= 0 to FNodeList.count-1 do
+    if (TdomNode(FNodeList[i]).namespaceURI = namespaceURI)
+      and (TdomNode(FNodeList[i]).localName = localName)
+      and (TdomNode(FNodeList[i]).NodeType in FAllowedNodeTypes) then begin
+      Result:= TdomNode(FNodeList[i]);
+      break;
+    end;
+end;
+
+function TdomNamedNodeMap.SetNamedItemNS(const arg: TdomNode): TdomNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if not FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  if FOwner.OwnerDocument <> arg.OwnerDocument
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if not (arg.NodeType in FAllowedNodeTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if assigned(arg.parentNode)
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  if arg.NodeType = ntAttribute_Node
+    then if assigned((arg as TdomAttr).OwnerElement)
+      then if (arg as TdomAttr).OwnerElement <> FOwnerNode
+        then raise EInuse_Attribute_Err.create('Inuse attribute error.');
+  if assigned(GetNamedItemNS(arg.namespaceURI,arg.localName))
+    then Result:= RemoveNamedItemNS(arg.namespaceURI,arg.localName)
+    else Result:= nil;
+  FNodeList.Add(arg);
+  if (arg.NodeType = ntAttribute_Node)
+    and (FOwnerNode.NodeType = ntElement_Node)
+    then (arg as TdomAttr).FownerElement:= TdomElement(FOwnerNode);
+end;
+
+function TdomNamedNodeMap.RemoveNamedItemNS(const namespaceURI,
+                                                  localName: UnicodeString): TdomNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if not FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  Result:= getNamedItemNS(namespaceURI,localName);
+  if not assigned(Result)
+    then raise ENot_Found_Err.create('Node not found error.');
+  FNodeList.Remove(Result);
+  if Result.NodeType = ntAttribute_Node
+    then (Result as TdomAttr).FownerElement:= nil;
+end;
+
+
+
+//++++++++++++++++++++++++++++++ TdomNode +++++++++++++++++++++++++++++++++
+constructor TdomNode.create(const aOwner: TdomDocument);
+begin
+  inherited create;
+  FDocument:= aOwner;
+  FParentNode:= nil;
+  FNodeListing:= TList.create;
+  FNodeList:= TdomNodeList.create(FNodeListing);
+  FNodeName:= '';
+  FNodeValue:= '';
+  FLocalName:= '';
+  FNamespaceURI:= '';
+  FPrefix:= '';
+  FNodeType:= ntUnknown;
+  FAllowedChildTypes:= [ntElement_Node,
+                        ntText_Node,
+                        ntCDATA_Section_Node,
+                        ntEntity_Reference_Node,
+                        ntProcessing_Instruction_Node,
+                        ntComment_Node,
+                        ntDocument_Type_Node,
+                        ntDocument_Fragment_Node,
+                        ntNotation_Node];
+  FIsReadonly:= false;
+  FIsNamespaceNode:= false;
+end;
+
+destructor TdomNode.destroy;
+begin
+  FNodeListing.free;
+  FNodeList.free;
+  inherited destroy;
+end;
+
+procedure TdomNode.clear;
+var
+  oldChild: TdomNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  while hasChildNodes do begin
+    firstChild.setIsReadonly(false);
+    oldChild:= removeChild(firstChild);
+    ownerDocument.FreeAllNodes(oldChild);
+  end;
+end;
+
+procedure TdomNode.makeChildrenReadonly;
+var
+  i: integer;
+begin
+  with childnodes do
+    for i:= 0 to pred(length) do
+      with item(i) do begin
+        item(i).setIsReadonly(true);
+        item(i).makeChildrenReadonly;
+      end;
+end;
+
+function TdomNode.RefersToExternalEntity: boolean;
+// Returns 'true', if one the TdomNode's children or grandchildren
+// (not the TdomNode itself!) is an TdomEntityReference node refering
+// directly or indirectly to an external Entity.  Otherwise it returns
+// 'false'.  If the target of a TdomEntityReference cannot be detected
+// this TdomEntityReference counts NOT as refering to an external Entity.
+var
+  i: integer;
+  node: TdomNode;
+  contmod: TdomCMObject;
+  ent: TdomCMEntity;
+begin
+  result:= false;
+  contmod:= OwnerDocument.contentModel;
+  if not assigned(contmod) then exit;
+  for i:= 0 to pred(childnodes.length) do begin
+    node:= childnodes.item(i);
+    case node.nodeType of
+      ntEntity_Reference_Node: begin
+        ent:= contMod.Entities.getNamedItem(node.nodeName);
+        if assigned(ent) then result:= ent.refersToExternalEntity(true);
+      end;
+    else
+      result:= node.RefersToExternalEntity;
+    end; {case ...}
+    if result then exit;
+  end; {for ...}
+end;
+
+function TdomNode.HasEntRef(const EntName: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  result:= false;
+  for i:= 0 to pred(childnodes.length) do
+    with childnodes.item(i) do
+      if (nodeType = ntEntity_Reference_Node)
+          and (nodeName = EntName)
+        then result:= true
+        else if HasEntRef(EntName) then begin result:= true; exit; end;
+end;
+
+function TdomNode.GetNodeName: UnicodeString;
+begin
+  Result:= FNodeName;
+end;
+
+function TdomNode.GetNodeValue: UnicodeString;
+begin
+  Result:= FNodeValue;
+end;
+
+procedure TdomNode.SetNodeValue(const value: UnicodeString);
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  FNodeValue:= value;
+end;
+
+function TdomNode.GetNodeType: TdomNodeType;
+begin
+  Result:= FNodeType;
+end;
+
+function TdomNode.GetAttributes: TdomNamedNodeMap;
+begin
+  Result:= nil;
+end;
+
+function TdomNode.GetParentNode: TdomNode;
+begin
+  Result:= FParentNode;
+end;
+
+function TdomNode.GetDocument: TdomDocument;
+begin
+  Result:= FDocument;
+end;
+
+function TdomNode.getTextContent: UnicodeString;
+var
+  childType: TdomNodeType;
+  childItem: TdomNode;
+  i,cl: integer;
+begin
+  case nodeType of
+    ntElement_Node,ntEntity_Reference_Node,ntEntity_Node,ntDocument_Fragment_Node: begin
+      result:= '';
+      cl:= pred(childnodes.length);
+      for i:= 0 to cl do begin
+        childItem:= childnodes.item(i);
+        childType:= childItem.nodeType;
+        if (childType <> ntComment_Node) and (childType <> ntProcessing_Instruction_Node)
+          then result:= concat(result,childItem.textContent);
+      end;
+    end;
+    ntAttribute_Node,ntText_Node,ntCDATA_Section_Node,ntComment_Node,ntProcessing_Instruction_Node:
+      result:= nodeValue;
+  else
+    result:= '';
+  end;
+end;
+
+function TdomNode.getXPathStringValue: UnicodeString;
+begin
+  case nodeType of
+    ntElement_Node:
+      result:= textContent;
+    ntAttribute_Node,ntComment_Node,ntProcessing_Instruction_Node:
+      result:= nodeValue;
+    ntCDATA_Section_Node,ntEntity_Reference_Node,ntText_Node:
+      if assigned(parentNode)
+        then result:= parentNode.textContent
+        else result:= textContent; 
+    ntDocument_Node:
+      if assigned(TdomDocument(self).documentElement)
+        then result:= TdomDocument(self).documentElement.textContent;
+    ntXPath_Namespace_Node:
+      result:= namespaceUri;
+  else
+    result:= '';
+  end;
+end;
+
+procedure TdomNode.SetPrefix(const value: UnicodeString);
+begin
+  if not IsXmlName(value)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if not IsXmlPrefix(value)
+    then raise ENamespace_Err.create('Namespace error.');
+  if namespaceURI = ''
+    then raise ENamespace_Err.create('Namespace error.');
+  if (value = 'xml') and (namespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  if self.NodeType = ntAttribute_Node then begin
+    if (value = 'xmlns')
+      and not (namespaceURI ='http://www.w3.org/2000/xmlns/')
+        then raise ENamespace_Err.create('Namespace error.');
+    if NodeName = 'xmlns'
+      then raise ENamespace_Err.create('Namespace error.');
+  end;
+  FPrefix:= value;
+  FNodeName:= concat(value,':',localName);
+end;
+
+procedure TdomNode.doAttrModified(originalTarget: TdomNode;
+                                  attrChange: TdomAttrChange;
+                                  prevValue,
+                                  newValue: UnicodeString;
+                                  relatedAttr: TdomAttr);
+begin
+  try
+    if assigned(FOnAttrModified)
+      then FOnAttrModified(self,originalTarget,attrChange,prevValue,newValue,relatedAttr);
+  finally
+    if assigned(FParentNode)
+      then FParentNode.doAttrModified(originalTarget,attrChange,prevValue,newValue,relatedAttr);
+  end;
+end;
+
+procedure TdomNode.doCharacterDataModified(originalTarget: TdomNode;
+                                           prevValue,
+                                           newValue: UnicodeString);
+begin
+  try
+    if assigned(FOnCharacterDataModified)
+      then FOnCharacterDataModified(self,originalTarget,prevValue,newValue);
+  finally
+    if assigned(FParentNode)
+      then FParentNode.doCharacterDataModified(originalTarget,prevValue,newValue);
+  end;
+end;
+
+procedure TdomNode.doNodeInserted(originalTarget: TdomNode);
+begin
+  try
+    if assigned(FOnNodeInserted)
+      then FOnNodeInserted(self,originalTarget);
+  finally
+    if assigned(FParentNode)
+      then FParentNode.doNodeInserted(originalTarget);
+  end;
+end;
+
+procedure TdomNode.doNodeInsertedIntoDocument(originalTarget: TdomNode);
+var
+  i: integer;
+begin
+  try
+    if assigned(FOnNodeInsertedIntoDocument)
+      then FOnNodeInsertedIntoDocument(self,originalTarget);
+  finally
+    for i:= 0 to pred(childNodes.length) do
+      childNodes.item(i).doNodeInsertedIntoDocument(originalTarget);
+  end;
+end;
+
+procedure TdomNode.doNodeRemoved(originalTarget: TdomNode);
+begin
+  try
+    if assigned(FOnNodeRemoved)
+      then FOnNodeRemoved(self,originalTarget);
+  finally
+    if assigned(FParentNode)
+      then FParentNode.doNodeRemoved(originalTarget);
+  end;
+end;
+
+procedure TdomNode.doNodeRemovedFromDocument(originalTarget: TdomNode);
+var
+  i: integer;
+begin
+  try
+    if assigned(FOnNodeRemovedFromDocument)
+      then FOnNodeRemovedFromDocument(self,originalTarget);
+  finally
+    for i:= 0 to pred(childNodes.length) do
+      childNodes.item(i).doNodeRemovedFromDocument(originalTarget);
+  end;
+end;
+
+function TdomNode.getBaseUri: UnicodeString;
+var
+  attr: TdomAttr;
+  UriAnalyzer: TUriWideStrAnalyzer;
+  uri1,uri2: UnicodeString;
+begin
+  case nodeType of
+  ntElement_Node: begin
+    if TdomElement(self).attributes.namespaceAware
+      then attr:= TdomElement(self).getAttributeNodeNS('http://www.w3.org/XML/1998/namespace','base')
+      else attr:= TdomElement(self).getAttributeNode('xml:base');
+    if assigned(attr) then begin
+
+      uri1:= attr.value;
+      UriAnalyzer:= TUriWideStrAnalyzer.create;
+      try
+        UriAnalyzer.setUriReference(uri1);
+        if UriAnalyzer.HasUriScheme then begin
+          // absolute URI --> we are done
+          result:= attr.value;
+        end else begin
+          uri2:= attr.baseUri;
+          resolveRelativeUriWideStr(uri2,uri1,result);
+        end;
+      finally
+        UriAnalyzer.free;
+      end;
+
+    end else begin
+      if assigned(parentNode)
+        then result:= parentNode.baseUri
+        else result:= '';
+    end; {if ... else ...}
+  end;
+  ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+  ntProcessing_Instruction_Node,ntComment_Node,ntDocument_Type_Node:
+    if assigned(parentNode)
+      then result:= parentNode.baseUri
+      else result:= '';
+  ntAttribute_Node: begin
+    result:= '';
+    if assigned(TdomAttr(self).ownerElement) then begin
+      if ( (namespaceURI = 'http://www.w3.org/XML/1998/namespace') and ( localName = 'base') )
+         or ( (namespaceURI = '') and ( nodeName = 'xml:base') ) then begin
+        if assigned(TdomAttr(self).ownerElement.parentNode)
+          then result:= TdomAttr(self).ownerElement.parentNode.baseUri;
+      end else begin
+        if assigned(TdomAttr(self).ownerElement)
+          then result:= TdomAttr(self).ownerElement.baseUri;
+      end;
+    end;
+  end;
+  ntEntity_Node,ntNotation_Node:
+    result:= ownerDocument.baseUri;
+  else
+    result:= '';
+  end;
+end;
+
+function TdomNode.sendErrorNotification(const xmlErrorType: TXmlErrorType;
+                                        const relNode: TdomNode): boolean;
+// Used to centralize code for sending error notifications to the DomImplementation.
+// Usually used during validation.
+var
+  domImpl: TDomImplementation;
+  error: TdomError;
+  uri: UnicodeString;
+begin
+  if assigned(ownerDocument) then begin
+    domImpl:= ownerDocument.domImplementation;
+    uri:= ownerDocument.systemId;
+  end else domImpl:= nil;
+
+  error:= TdomError.create(xmlErrorType,-1,-1,-1,-1,-1,uri,nil,relNode,'');
+  try
+    if assigned(domImpl) then begin
+      result:= domImpl.handleError(domImpl,error);
+    end else if error.severity = DOM_SEVERITY_FATAL_ERROR
+      then result:= false
+      else result:= true;
+  finally
+    error.free;
+  end;
+end;
+
+procedure TdomNode.setIsReadonly(const value: boolean);
+begin
+  FIsReadonly:= value;
+end;
+
+function TdomNode.GetChildNodes: TdomNodeList;
+begin
+  Result:= FNodeList;
+end;
+
+function TdomNode.GetFirstChild: TdomNode;
+begin
+  if FNodeListing.count = 0
+    then Result:= nil
+    else Result:= TdomNode(FNodeListing.First);
+end;
+
+function TdomNode.GetLastChild: TdomNode;
+begin
+  if FNodeListing.count = 0
+    then Result:= nil
+    else Result:= TdomNode(FNodeListing.Last);
+end;
+
+function TdomNode.GetPreviousSibling: TdomNode;
+begin
+  if assigned(ParentNode)
+    then Result:= ParentNode.ChildNodes.Item(ParentNode.ChildNodes.IndexOf(Self)-1)
+    else Result:= nil;
+end;
+
+function TdomNode.GetNextSibling: TdomNode;
+begin
+  if assigned(ParentNode)
+    then Result:= ParentNode.ChildNodes.Item(ParentNode.ChildNodes.IndexOf(Self)+1)
+    else Result:= nil;
+end;
+
+function TdomNode.insertBefore(const newChild,
+                                     refChild: TdomNode): TdomNode;
+begin
+  if not assigned(newChild)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if not (newChild.NodeType in FAllowedChildTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if OwnerDocument <> newChild.OwnerDocument
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if IsAncestor(newChild) or (newChild = self) or (newChild = refChild ) // Test for circularity
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(newChild.ParentNode)
+    then if newChild.ParentNode.isReadonly
+      then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(refChild) then
+    if FNodeListing.IndexOf(refChild) = -1
+      then raise ENot_Found_Err.create('Node not found error.');
+  Result:= newChild;
+  if NewChild is TdomDocumentFragment then begin
+    while NewChild.HasChildNodes do
+      insertBefore(newChild.ChildNodes.Item(0),refChild)
+  end else begin
+    if assigned(newChild.parentNode)
+      then newChild.parentNode.RemoveChild(newChild);
+    if assigned(refChild)
+      then FNodeListing.Insert(FNodeListing.IndexOf(refChild),newChild)
+      else FNodeListing.Add(newChild);
+    with newChild do begin
+      FParentNode:= self;
+      doNodeInserted(newChild);
+      doNodeInsertedIntoDocument(newChild);
+    end;
+  end;
+end;
+
+function TdomNode.appendChild(const newChild: TdomNode): TdomNode;
+begin
+  if not assigned(newChild)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if not (newChild.NodeType in FAllowedChildTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if OwnerDocument <> newChild.OwnerDocument
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if IsAncestor(newChild) or (newChild = self)  // Test for circularity
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(newChild.ParentNode)
+    then if newChild.ParentNode.isReadonly
+      then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= newChild;
+  if NewChild is TdomDocumentFragment then
+    while NewChild.HasChildNodes do
+      appendChild(newChild.ChildNodes.Item(0))
+  else begin
+    if assigned(newChild.parentNode)
+      then newChild.parentNode.RemoveChild(newChild);
+    FNodeListing.Add(newChild);
+    with newChild do begin
+      FParentNode:= self;
+      doNodeInserted(newChild);
+      doNodeInsertedIntoDocument(newChild);
+    end;
+  end;
+end;
+
+function TdomNode.removeChild(const oldChild: TdomNode): TdomNode;
+begin
+  if not assigned(oldChild)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FNodeListing.IndexOf(oldChild) = -1
+    then raise ENot_Found_Err.create('Node not found error.');
+  with oldChild do begin
+    doNodeRemoved(oldChild);
+    doNodeRemovedFromDocument(oldChild);
+  end;
+  OwnerDocument.FindNewReferenceNodes(oldChild);
+  Result:= oldChild;
+  FNodeListing.Remove(oldChild);
+  OldChild.FParentNode:= nil;
+end;
+
+function TdomNode.replaceChild(const newChild,
+                                     oldChild: TdomNode): TdomNode;
+var
+  refChild: TdomNode;
+begin
+  if not ( assigned(newChild) and assigned(oldChild) )
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if not (newChild.NodeType in FAllowedChildTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if OwnerDocument <> newChild.OwnerDocument
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if IsAncestor(newChild) or (newChild = self) // Test for circularity
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(newChild.ParentNode)
+    then if newChild.ParentNode.isReadonly
+      then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FNodeListing.IndexOf(oldChild) = -1
+    then raise ENot_Found_Err.create('Node not found error.');
+  Result:= oldChild;
+  if newChild = oldChild then exit;
+  if assigned(newChild.parentNode)
+    then newChild.parentNode.RemoveChild(newChild);
+  refChild:= oldChild.NextSibling;
+  RemoveChild(oldChild);
+  if assigned(refChild)
+    then insertBefore(newChild,refChild)
+    else appendChild(newChild);
+end;
+
+function TdomNode.hasChildNodes: boolean;
+begin
+  if FNodeListing.count = 0
+    then result:= false
+    else result:= true;
+end;
+
+function TdomNode.cloneNode(const deep: boolean): TdomNode;
+begin
+  result:= ownerDocument.importNode(self,deep);
+end;
+
+function TdomNode.compareTreePosition(const other: TdomNode): TdomTreePosition;
+
+  procedure buildAncestorList(node: TdomNode;
+                              const ancestors: TList);
+  begin
+    ancestors.clear;
+    while true do begin
+      ancestors.insert(0,node);
+      if assigned(node.parentNode) then begin
+        node:= node.parentNode;
+      end else begin
+        if node.nodeType = ntAttribute_Node then begin
+          if assigned(TdomAttr(node).ownerElement)
+            then node:= TdomAttr(node).ownerElement
+            else break;
+        end else break;
+      end; {if ... else ...}
+    end; {while ...}
+  end;
+
+var
+  selfAncestors, otherAncestors: TList;
+  i: integer;
+//  nodes: TdomNodeList;
+begin
+  if not assigned(other)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if other = self then begin
+    result:= [Tree_Position_Equivalent,Tree_Position_Same_Node];
+    exit;
+  end;
+
+  selfAncestors:= TList.create;
+  otherAncestors:= TList.create;
+  try
+    buildAncestorList(self,selfAncestors);
+    buildAncestorList(other,otherAncestors);
+
+    // Disconnected?
+    if selfAncestors[0] <> otherAncestors[0] then begin
+      result:= [Tree_Position_Disconnected];
+      exit;
+    end;
+
+    // Reduce list to the last common ancestor:
+    selfAncestors.Add(nil);   // Add stop-nil
+    otherAncestors.Add(nil);  // Add stop-nil
+    while selfAncestors[1] = otherAncestors[1] do begin
+      selfAncestors.Delete(0);
+      otherAncestors.Delete(0);
+      // Remark: No run over, because 'self' and 'other' are not identical.
+    end;
+
+    // Is 'other' ancestor?
+    if otherAncestors.count = 2 then begin // Remark: 2, because 'other' and nil are in the list.
+      result:= [Tree_Position_Ancestor,Tree_Position_Preceding];
+      exit;
+    end;
+
+    // Is 'other' descendant?
+    if selfAncestors.count = 2 then begin
+      result:= [Tree_Position_Descendant,Tree_Position_Following];
+      exit;
+    end;
+
+    // Attributes involved?
+    if (TdomNode(selfAncestors[1]).nodeType = ntAttribute_Node) then begin
+      if (TdomNode(otherAncestors[1]).nodeType = ntAttribute_Node)
+        then result:= [Tree_Position_Equivalent]
+        else result:= [Tree_Position_Following];
+      exit;
+    end;
+    if (TdomNode(otherAncestors[1]).nodeType = ntAttribute_Node) then begin
+      result:= [Tree_Position_Preceding];
+      exit;
+    end;
+
+    with TdomNode(selfAncestors[0]).childNodes do
+    begin
+    // No Attributes.  Determine the order of the nodes.
+      for i:= 0 to pred(length) do begin
+        if item(i) = TObject(selfAncestors[1]) then begin
+          result:= [Tree_Position_Following];
+          exit;
+        end;
+        if item(i) = TObject(otherAncestors[1]) then begin
+          result:= [Tree_Position_Preceding];
+          exit;
+        end;
+      end;
+    end;
+
+  finally
+    selfAncestors.free;
+    otherAncestors.free;
+  end;
+end;
+
+function TdomNode.evaluate(const expression: UnicodeString): TdomXPathResult;
+var
+  nsResolver: TdomXPathNSResolver;
+  XPathExpression: TdomXPathExpression;
+begin
+  nsResolver:= ownerDocument.createNSResolver(self);
+  try
+    XPathExpression:= ownerDocument.createExpression(expression,nsResolver);
+    try
+      result:= XPathExpression.evaluate(self,XPATH_ANY_TYPE,nil);
+    finally
+      ownerDocument.freeExpression(XPathExpression);
+    end;
+  finally
+    ownerDocument.freeNSResolver(nsResolver);
+  end;
+end;
+
+function TdomNode.findFirstChildElement: TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= firstChild;
+  while assigned(nodeToTest) do begin
+    if nodeToTest.nodeType = ntElement_Node then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.nextSibling;
+  end;
+end;
+
+function TdomNode.findLastChildElement: TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= lastChild;
+  while assigned(nodeToTest) do begin
+    if nodeToTest.nodeType = ntElement_Node then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.previousSibling;
+  end;
+end;
+
+function TdomNode.findNextSiblingElement: TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= nextSibling;
+  while assigned(nodeToTest) do begin
+    if nodeToTest.nodeType = ntElement_Node then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.nextSibling;
+  end;
+end;
+
+function TdomNode.findParentElement: TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= parentNode;
+  while assigned(nodeToTest) do begin
+    if nodeToTest.nodeType = ntElement_Node then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.parentNode;
+  end;
+end;
+
+function TdomNode.findPreviousSiblingElement: TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= previousSibling;
+  while assigned(nodeToTest) do begin
+    if nodeToTest.nodeType = ntElement_Node then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.previousSibling;
+  end;
+end;
+
+function TdomNode.getFirstChildElement(const name: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= firstChild;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node) and (nodeToTest.nodeName = name) then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.nextSibling;
+  end;
+end;
+
+function TdomNode.getFirstChildElementNS(const namespaceURI,
+                                               localName: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= firstChild;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node)
+      and (nodeToTest.namespaceURI = namespaceURI)
+      and (nodeToTest.localName = localName)
+      then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.nextSibling;
+  end;
+end;
+
+function TdomNode.getLastChildElement(const name: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= lastChild;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node) and (nodeToTest.nodeName = name) then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.previousSibling;
+  end;
+end;
+
+function TdomNode.getLastChildElementNS(const namespaceURI,
+                                              localName: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= lastChild;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node)
+      and (nodeToTest.namespaceURI = namespaceURI)
+      and (nodeToTest.localName = localName)
+      then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.previousSibling;
+  end;
+end;
+
+function TdomNode.getNextSiblingElement(const name: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= nextSibling;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node) and (nodeToTest.nodeName = name) then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.nextSibling;
+  end;
+end;
+
+function TdomNode.getNextSiblingElementNS(const namespaceURI,
+                                                localName: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= nextSibling;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node)
+      and (nodeToTest.namespaceURI = namespaceURI)
+      and (nodeToTest.localName = localName)
+      then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.nextSibling;
+  end;
+end;
+
+function TdomNode.getParentElement(const name: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= parentNode;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node) and (nodeToTest.nodeName = name) then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.parentNode;
+  end;
+end;
+
+function TdomNode.getParentElementNS(const namespaceURI,
+                                           localName: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= parentNode;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node)
+      and (nodeToTest.namespaceURI = namespaceURI)
+      and (nodeToTest.localName = localName)
+      then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.parentNode;
+  end;
+end;
+
+function TdomNode.getPreviousSiblingElement(const name: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= previousSibling;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node) and (nodeToTest.nodeName = name) then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.previousSibling;
+  end;
+end;
+
+function TdomNode.getPreviousSiblingElementNS(const namespaceURI,
+                                                    localName: UnicodeString): TdomElement;
+var
+  nodeToTest: TdomNode;
+begin
+  result:= nil;
+  nodeToTest:= previousSibling;
+  while assigned(nodeToTest) do begin
+    if (nodeToTest.nodeType = ntElement_Node)
+      and (nodeToTest.namespaceURI = namespaceURI)
+      and (nodeToTest.localName = localName)
+      then begin
+      result:= (nodeToTest as TdomElement);
+      exit;
+    end;
+    nodeToTest:= nodeToTest.previousSibling;
+  end;
+end;
+
+function TdomNode.isAncestor(const AncestorNode: TdomNode): boolean;
+var
+  NewAncestor: TdomNode;
+  List1: TList;
+begin
+  Result:= false;
+  NewAncestor:= ParentNode;
+  List1:= TList.create;
+  List1.clear;
+  try
+    while assigned(NewAncestor) do begin
+      {Ciculation test:}
+      if List1.IndexOf(NewAncestor) > -1
+        then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      List1.Add(NewAncestor);
+      if NewAncestor = AncestorNode then begin Result:= true; break; end;
+      NewAncestor:= NewAncestor.ParentNode;
+    end;
+  finally
+    List1.free;
+  end;
+end;
+
+procedure TdomNode.normalize;
+var
+  i: integer;
+begin
+  for i:= 0 to ChildNodes.Length-1 do
+    ChildNodes.Item(i).normalize;
+end;
+
+function TdomNode.supports(const feature,
+                                 version: UnicodeString): boolean;
+var
+  VersionStr: string;
+begin
+  Result:= false;
+  VersionStr:= WideCharToString(PWideChar(feature));
+  if (WideCharToString(PWideChar(version))='1.0')
+    or (WideCharToString(PWideChar(version))='')
+  then begin
+    if (CompareText(VersionStr,'XML')=0)
+       then Result:= true;
+  end else begin
+    if (WideCharToString(PWideChar(version))='2.0')
+      then begin
+        if (CompareText(VersionStr,'XML')=0)
+           then Result:= true;
+    end; {if ...}
+  end; {if ... else ...}
+end;
+
+function TdomNode.validate2: boolean;
+begin
+  Result := False;
+  raise ENot_Supported_Err.create('Not supported error.');
+end;
+
+function TdomNode.validateIDREFS: boolean;
+begin
+  Result := False;
+  raise ENot_Supported_Err.create('Not supported error.');
+end;
+
+function TdomNode.resolveEntityReferences(const opt: TdomEntityResolveOption): boolean;
+var
+  i: integer;
+  ok: boolean;
+begin
+  result:= true;
+  for i:= 0 to pred(ChildNodes.Length) do begin
+    ok:= ChildNodes.Item(i).resolveEntityReferences(opt);
+    if not ok then result:= false;
+  end;
+end;
+
+
+
+//+++++++++++++++++++++++++ TdomCharacterData ++++++++++++++++++++++++++++
+constructor TdomCharacterData.create(const aOwner: TdomDocument);
+begin
+  inherited create(aOwner);
+  FAllowedChildTypes:= [];
+end;
+
+function TdomCharacterData.getData: UnicodeString;
+begin
+  Result:= NodeValue;
+end;
+
+procedure TdomCharacterData.setData(const value: UnicodeString);
+var
+  prevValue: UnicodeString;
+begin
+  prevValue:= NodeValue;
+  NodeValue:= value;
+  doCharacterDataModified(self,prevValue,value);
+end;
+
+function TdomCharacterData.getLength: integer;
+begin
+  Result:= System.Length(Data);
+end;
+
+function TdomCharacterData.substringData(const offset,
+                                               count: integer):UnicodeString;
+var
+  len: integer;
+begin
+  if(offset < 0) or (offset > Length) or (count < 0)
+    then raise EIndex_Size_Err.create('Index size error.');
+  // Make sure, that the length of the UnicodeString is not
+  // exeeded, when using count and offset:
+  len:= Length-Offset;
+  if count < len then len:= count;
+  setString(Result,PWideChar(Data)+Offset,len);
+end;
+
+procedure TdomCharacterData.appendData(const arg: UnicodeString);
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Data:= concat(Data,arg);
+end;
+
+procedure TdomCharacterData.insertData(const offset: integer;
+                                       const arg: UnicodeString);
+begin
+  ReplaceData(offset,0,arg);
+end;
+
+procedure TdomCharacterData.deleteData(const offset,
+                                             count: integer);
+begin
+  ReplaceData(offset,count,'');
+end;
+
+procedure TdomCharacterData.replaceData(const offset,
+                                              count: integer;
+                                        const arg: UnicodeString);
+var
+  len: integer;
+  Data1,Data2:UnicodeString;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if (offset < 0) or (offset > Length) or (count < 0)
+    then raise EIndex_Size_Err.create('Index size error.');
+  // Make sure, that the length of the UnicodeString is not
+  // exeeded, when using count and offset:
+  len:= Length-Offset;
+  if count < len then len:= count;
+  Data1:= SubstringData(0,offset);
+  Data2:= SubstringData(offset+len,Length-offset-len);
+  Data:= concat(Data1,arg,Data2);
+end;
+
+
+
+// +++++++++++++++++++++++++++++ TdomAttr +++++++++++++++++++++++++++++
+constructor TdomAttr.create(const aOwner: TdomDocument;
+                            const name: UnicodeString;
+                            const spcfd: boolean);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeValue:= '';
+  FNodeType:= ntAttribute_Node;
+  FOwnerElement:= nil;
+  FSpecified:= Spcfd;
+  FAllowedChildTypes:= [ntText_Node,
+                        ntEntity_Reference_Node,
+                        ntDocument_Fragment_Node];
+end;
+
+constructor TdomAttr.createNS(const aOwner: TdomDocument;
+                              const anamespaceURI,
+                                    qualifiedName: UnicodeString;
+                              const spcfd: boolean);
+var
+  locName,prfx: UnicodeString;
+begin
+  if not xmlExtractPrefixAndLocalName(qualifiedName,prfx,locName) then begin
+    if not IsXmlName(qualifiedName)
+      then raise EInvalid_Character_Err.create('Invalid character error.')
+      else raise ENamespace_Err.create('Namespace error.');
+  end;
+  if ( ((prfx = 'xmlns') or (qualifiedName = 'xmlns'))
+    and not (namespaceURI ='http://www.w3.org/2000/xmlns/') )
+      then raise ENamespace_Err.create('Namespace error.');
+  if (namespaceURI = '') and (prfx <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (prfx = 'xml') and (namespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  inherited create(aOwner);
+  FNodeName:= qualifiedName;
+  FNamespaceURI:= namespaceURI;
+  FPrefix:= prfx;
+  FLocalName:= locName;
+  FIsNamespaceNode:= true;
+  FNodeValue:= '';
+  FNodeType:= ntAttribute_Node;
+  FOwnerElement:= nil;
+  FSpecified:= Spcfd;
+  FAllowedChildTypes:= [ntText_Node,
+                        ntEntity_Reference_Node,
+                        ntDocument_Fragment_Node];
+end;
+
+procedure TdomAttr.normalize;
+var
+  PrevNode, CurrentNode: TdomNode;
+  i: integer;
+begin
+  {normalize text:}
+  PrevNode:= nil;
+  i:= ChildNodes.Length;
+  while i>0 do
+  begin
+    Dec(i);
+    CurrentNode:= ChildNodes.Item(i);
+    if (CurrentNode.NodeType = ntText_Node) then
+      begin
+         if (Assigned(PrevNode)) and (PrevNode.NodeType = ntText_Node) then
+         begin
+            (CurrentNode as TdomText).AppendData((PrevNode as TdomText).Data);
+            removeChild(PrevNode);
+            PrevNode.OwnerDocument.FreeAllNodes(PrevNode);
+         end;
+      end
+    else  // no text node, then normalize
+      CurrentNode.normalize;
+    PrevNode:=CurrentNode;
+  end;
+end;
+
+function TdomAttr.GetName: UnicodeString;
+begin
+  Result:= NodeName;
+end;
+
+function TdomAttr.GetSpecified: boolean;
+begin
+  Result:= FSpecified;
+end;
+
+function TdomAttr.GetNodeValue: UnicodeString;
+begin
+  Result:= getValue;
+end;
+
+function TdomAttr.getLiteralValue: UnicodeString;
+var
+  i, j: integer;
+  child: TdomNode;
+  content: TdomCustomStr;
+  textData: UnicodeString;
+begin
+  content:= TdomCustomStr.create;
+  try
+    for i:= 0 to pred(childNodes.length) do begin
+      child:= childNodes.item(i);
+      case child.NodeType of
+        ntText_Node:
+        begin
+          textData:= (child as TdomText).data;
+          for j:= 1 to length(textData) do begin
+            case ord(textData[j]) of
+                38: content.addWideString('&amp;');  // Ampersand ('&')
+                34: content.addWideString('&quot;'); // Double quote ('"')
+                60: content.addWideString('&lt;');   // Less than ('<')
+            else
+              content.addWideChar(textData[j]);
+            end;
+          end;
+        end;
+        ntEntity_Reference_Node: begin
+          content.addWideChar('&');
+          content.addWideString(child.nodeName);
+          content.addWideChar(';');
+        end;
+      end;
+    end; {for ...}
+    result:= content.value;
+  finally
+    content.free;
+  end;
+end;
+
+procedure TdomAttr.SetNodeValue(const value: UnicodeString);
+begin
+  setValue(value);
+end;
+
+function TdomAttr.GetValue: UnicodeString;
+  procedure FurtherAttrNormalization(var S: UnicodeString);
+  const
+    DOUBLESPACE: UnicodeString = #$20#$20;
+  var
+    nPos: integer;
+    dummy: UnicodeString;
+  begin
+    repeat
+      nPos := Pos(DOUBLESPACE, S);
+      if nPos > 0 then
+        Delete(S, nPos, 1);
+    until nPos = 0;
+    dummy:= S;
+    s:= XMLTruncSpace(dummy);
+  end;
+var
+  i: integer;
+  EntName: UnicodeString;
+  Entity: TdomCMEntity;
+  CMAttr: TdomCMAttribute;
+  child: TdomNode;
+begin
+  Result:='';
+  for i:= 0 to ChildNodes.Length -1 do begin
+    child:= ChildNodes.item(i);
+    case child.NodeType of
+      ntText_Node:
+        Result:= Concat(Result,(child as TdomText).Data);
+      ntEntity_Reference_Node: begin
+        Entity:= nil;
+        EntName:= (child as TdomEntityReference).NodeName;
+        if (EntName='lt') then begin
+          Result:= Concat(Result,UnicodeString('&#60;'))
+        end else if (EntName='gt') then begin
+          Result:= Concat(Result,#62)
+        end else if (EntName='amp') then begin
+          Result:= Concat(Result,UnicodeString('&#38;'))
+        end else if (EntName='apos') then begin
+          Result:= Concat(Result,#39)
+        end else if (EntName='quot') then begin
+          Result:= Concat(Result,#34)
+        end else begin
+          if assigned(OwnerDocument) then
+            if assigned(OwnerDocument.contentModel) then
+              Entity:= OwnerDocument.contentModel.entities.getNamedItem(EntName);
+          if assigned(Entity) then begin
+            Result:= Concat(Result,Entity.normalizedValue)
+          end else raise EConvertError.create('Invalid entity reference error.');
+        end;
+      end;
+    end;
+  end; {for ...}
+
+  // Further attribute normalization:
+  if assigned(OwnerElement) then
+    if assigned(OwnerDocument) then
+      if assigned(OwnerDocument.contentModel) then begin
+        CMAttr:= OwnerDocument.contentModel.attributes.getNamedItem(OwnerElement.nodeName,nodename);
+        if assigned(CMAttr) then
+          if not IsXmlStringType(CMAttr.attributeType)
+            then FurtherAttrNormalization(result);
+      end;
+end;
+
+procedure TdomAttr.SetValue(const value: UnicodeString);
+var
+  newTextNode: TdomText;
+  oldChild: TdomNode;
+  prevValue: UnicodeString;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  prevValue:= nodeValue;
+  while HasChildNodes do begin
+    FirstChild.setIsReadonly(false);
+    oldChild:= RemoveChild(FirstChild);
+    ownerDocument.FreeAllNodes(oldChild);
+  end;
+  newTextNode:= OwnerDocument.CreateTextNode(value);
+  appendChild(newTextNode);
+  if assigned(FOwnerElement)
+    then FOwnerElement.doAttrModified(FOwnerElement,AC_MODIFICATION,prevValue,value,self);
+end;
+
+function TdomAttr.GetOwnerElement: TdomElement;
+begin
+  Result:= FOwnerElement;
+end;
+
+function TdomAttr.GetParentNode: TdomNode;
+begin
+  Result:= nil;
+end;
+
+function TdomAttr.GetPreviousSibling: TdomNode;
+begin
+  Result:= nil;
+end;
+
+function TdomAttr.GetNextSibling: TdomNode;
+begin
+  Result:= nil;
+end;
+
+function TdomAttr.validate2: boolean;
+
+  function isValidENTITY(const entitiesList: TdomNamedCMEntityMap;
+                         const entityValue: UnicodeString): boolean;
+  begin
+    if not assigned(entitiesList.getNamedItem(entityValue)) then begin
+      result:= false;
+      sendErrorNotification(ET_TARGET_UNPARSED_ENTITY_NOT_FOUND,self);
+    end else result:= true;
+  end;
+
+const
+  SPACE: WideChar  = #$20;
+  LT:    WideChar  = #60;  // '<'
+var
+  i,startIndex,indexCount: integer;
+  ok, typeMismatch: boolean;
+  attriValue, AType: UnicodeString;
+  Attri: TdomCMAttribute;
+begin
+  result:= true;
+
+  try
+    attriValue:= value;
+  except
+    // VC: Entity declared (XML 1.0, � 4.1)
+    result:= false;
+    sendErrorNotification(ET_ENTITY_DECL_NOT_FOUND,self);
+    exit; // Necessary because 'attriValue' will be used again in the next tests.
+  end;
+
+  // WFC: No < in Attribute Values (XML 1.0, � 3.1)
+  if pos(LT,attriValue) > 0 then begin
+    result:= false;
+    sendErrorNotification(ET_LT_IN_ATTRIBUTE_VALUE,self);
+  end;
+
+  // WFC: No External Entity Reference (XML 1.0, � 3.1)
+  if refersToExternalEntity then begin
+    result:= false;
+    sendErrorNotification(ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY,self);
+  end;
+
+  // VC: Attribute value Type (XML 1.0, � 3.1)
+  if assigned(OwnerDocument.contentModel) and assigned(OwnerElement) then begin
+    Attri:= (OwnerDocument.contentModel.attributes.GetNamedItem(OwnerElement.NodeName,NodeName) as TdomCMAttribute);
+    if not assigned(Attri) then begin
+      result:= false;
+      sendErrorNotification(ET_ATTRIBUTE_DEFINITION_NOT_FOUND,self);
+    end else begin
+      AType:= Attri.AttributeType;
+      TypeMismatch:= false;
+      If AType = '' then begin
+        ok:= false;
+        with attri do begin
+          for i:= 0 to pred(ChildNodes.length) do begin
+            if ChildNodes.item(i).NodeName = attriValue then begin
+              ok:= true;
+              break;
+            end;
+          end;
+        end; {with ...}
+        TypeMismatch:= not ok; // VC: Enumaration (XML 1.0, � 3.3.1)
+      end else
+      if AType = 'ID' then begin
+        if not isXMLName(attriValue)
+          then TypeMismatch:= true; // VC: Entity (XML 1.0, � 3.3.1)
+        try
+          OwnerDocument.IDs.addObject(attriValue,self);
+        except  // VC: ID (XML 1.0, � 3.3.1)
+          on EStringListError do begin
+            result:= false;
+            sendErrorNotification(ET_DUPLICATE_ID_VALUE,self);
+          end;
+        end;
+      end else
+      if AType = 'ENTITY' then begin
+        // VC: Entity (XML 1.0, � 3.3.1)
+        if not isXMLName(attriValue) then begin
+          TypeMismatch:= true
+        end else begin
+          if not isValidEntity(ownerDocument.contentModel.entities,attriValue)
+            then result:= false;
+        end;
+      end else
+      if AType = 'ENTITIES' then begin
+        // VC: Entity (XML 1.0, � 3.3.1)
+        if not isXMLNames(attriValue) then begin
+          TypeMismatch:= true;
+        end else begin
+          startIndex:= 1; indexCount:= 0;
+          for i:= 1 to length(attriValue) do begin
+            if attriValue[i] = SPACE then begin
+              if not isValidEntity(ownerDocument.contentModel.entities,copy(attriValue,startIndex,IndexCount)) then result:= false;
+              startIndex:= succ(i);
+              indexCount:= 0;
+            end else inc(indexCount);
+          end;
+          if not isValidEntity(ownerDocument.contentModel.entities,copy(attriValue,startIndex,IndexCount)) then result:= false;
+        end;
+      end else
+      if AType = 'NMTOKEN' then begin
+        if not isXmlNmtoken(attriValue)
+          then TypeMismatch:= true; // VC: name Token (XML 1.0, � 3.3.1)
+      end else
+      if AType = 'NMTOKENS' then begin
+        if not isXmlNmtokens(attriValue)
+          then TypeMismatch:= true; // VC: name Token (XML 1.0, � 3.3.1)
+      end;
+
+      if TypeMismatch then begin
+        result:= false;
+        sendErrorNotification(ET_ATTRIBUTE_TYPE_MISMATCH,self);
+      end;
+
+    end;
+  end else begin
+    result:= false;
+    sendErrorNotification(ET_ATTRIBUTE_DEFINITION_NOT_FOUND,self);
+  end; {if assigned(OwnerDocument.contentModel) ... else ... end}
+
+end;
+
+function TdomAttr.validateIDREFS: boolean;
+  function isValidIDREF(const idList: TdomWideStringList;
+                        const idrefValue: UnicodeString): boolean;
+  var
+    dummyIndex: integer;
+  begin
+    if not idList.find(idrefValue,dummyIndex) then begin
+      result:= false;
+      sendErrorNotification(ET_TARGET_ID_VALUE_NOT_FOUND,self);
+    end else result:= true;
+  end;
+
+const
+  SPACE: WideChar  = #$20;
+var
+  i, startIndex, indexCount: integer;
+  attrivalue, AType: UnicodeString;
+  TypeMismatch: boolean;
+  Attri: TdomCMAttribute;
+begin
+  result:= true;
+
+  try
+    attriValue:= value;
+  except
+    // VC: Entity declared (XML 1.0, � 4.1)
+    result:= false;
+    sendErrorNotification(ET_ENTITY_DECL_NOT_FOUND,self);
+    exit; // Necessary because 'attriValue' would instead be used again in the next tests.
+  end;
+
+  // VC: IDREF (XML 1.0, � 3.3.1)
+  TypeMismatch:= false;
+  if assigned(OwnerDocument.contentModel) and assigned(OwnerElement) then begin
+    Attri:= (OwnerDocument.contentModel.attributes.GetNamedItem(OwnerElement.NodeName,NodeName) as TdomCMAttribute);
+    AType:= Attri.AttributeType;
+    if AType = 'IDREF' then begin
+      if not isXMLName(attriValue)
+        then TypeMismatch:= true
+        else begin
+          if not isValidIDREF(ownerDocument.IDs,attriValue) then result:= false;
+        end;
+    end else
+    if AType = 'IDREFS' then begin
+      if not isXMLNames(attriValue)
+        then TypeMismatch:= true
+        else begin
+          startIndex:= 1; indexCount:= 0;
+          for i:= 1 to length(attriValue) do begin
+            if attriValue[i] = SPACE then begin
+              if not isValidIDREF(ownerDocument.IDs,copy(attriValue,startIndex,IndexCount)) then result:= false;
+              startIndex:= succ(i);
+              indexCount:= 0;
+            end else inc(indexCount);
+          end;
+          if not isValidIDREF(ownerDocument.IDs,copy(attriValue,startIndex,IndexCount)) then result:= false;
+        end;
+    end;
+  end;
+
+  if TypeMismatch then begin
+    result:= false;
+    sendErrorNotification(ET_ATTRIBUTE_TYPE_MISMATCH,self);
+  end;
+
+end;
+
+function TdomAttr.resolveEntityReferences(const opt: TdomEntityResolveOption): boolean;
+var
+  i: integer;
+  s, childName: UnicodeString;
+  child: TdomNode;
+  cmEnt: TdomCMEntity;
+  parser: TXmlToDomParser;
+begin
+  result:= true;
+  parser:= TXmlToDomParser.create(nil);
+  try
+    case opt of
+      erReplace: begin
+        try
+          S:= literalValue;
+          clear;
+          if S <> '' then parser.docWideStringToDom(S,'','',self);
+        except
+          result:= false;
+        end;
+      end;
+      erExpand: begin  // xxx Shouldn't that be removed at all ???
+        for i:= 0 to pred(childnodes.length) do begin
+          child:= childnodes.item(i);
+          if child.nodeType = ntEntity_Reference_Node then begin
+            child.clear;
+            cmEnt:= (child as TdomEntityReference).correspondingCMEntity;
+            if assigned(cmEnt) then begin
+              try
+                S:= cmEnt.normalizedValue;
+                if S <> '' then parser.docWideStringToDom(S,'','',child);
+              except
+                result:= false;
+              end;
+            end else begin
+              childName:= child.nodeName;
+              if (childName='lt') then begin
+                child.appendChild(ownerDocument.CreateTextNode(#60))
+              end else if (childName='gt') then begin
+                child.appendChild(ownerDocument.CreateTextNode(#62))
+              end else if (childName='amp') then begin
+                child.appendChild(ownerDocument.CreateTextNode(#38))
+              end else if (childName='apos') then begin
+                child.appendChild(ownerDocument.CreateTextNode(#39))
+              end else if (childName='quot') then begin
+                child.appendChild(ownerDocument.CreateTextNode(#34))
+              end else result:= false;
+            end; {if assigned(cmEnt) ...}
+    // xxx setting the readonly property is missing here!
+          end;
+        end;
+      end;
+    end;
+  finally
+    parser.free;
+  end;
+end;
+
+
+
+//++++++++++++++++++++++++++++ TdomElement ++++++++++++++++++++++++++++++++
+constructor TdomElement.create(const aOwner: TdomDocument;
+                               const tagName: UnicodeString);
+begin
+  if not IsXmlName(tagName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= tagName;
+  FNodeValue:= '';
+  FNodeType:= ntElement_Node;
+  FAttributeListing:= TList.create;
+  FCreatedElementsNodeLists:= TList.create;
+  FCreatedElementsNodeListNSs:= TList.create;
+  FAttributeList:= TdomNamedNodeMap.create(aOwner,self,FAttributeListing,[ntAttribute_Node]);
+  FAllowedChildTypes:= [ntElement_Node,
+                        ntText_Node,
+                        ntCDATA_Section_Node,
+                        ntEntity_Reference_Node,
+                        ntProcessing_Instruction_Node,
+                        ntComment_Node,
+                        ntDocument_Fragment_Node];
+end;
+
+constructor TdomElement.createNS(const aOwner: TdomDocument;
+                                 const anamespaceURI,
+                                       qualifiedName: UnicodeString);
+var
+  locName,prfx: UnicodeString;
+begin
+  if not xmlExtractPrefixAndLocalName(qualifiedName,prfx,locName) then begin
+    if not IsXmlName(qualifiedName)
+      then raise EInvalid_Character_Err.create('Invalid character error.')
+      else raise ENamespace_Err.create('Namespace error.');
+  end;
+  if (anamespaceURI = '') and (prfx <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (prfx = 'xml') and (anamespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  inherited create(aOwner);
+  FNodeName:= qualifiedName;
+  FNamespaceURI:= anamespaceURI;
+  FPrefix:= prfx;
+  FLocalName:= locName;
+  FIsNamespaceNode:= true;
+  FNodeValue:= '';
+  FNodeType:= ntElement_Node;
+  FAttributeListing:= TList.create;
+  FCreatedElementsNodeLists:= TList.create;
+  FCreatedElementsNodeListNSs:= TList.create;
+  FAttributeList:= TdomNamedNodeMap.create(aOwner,self,FAttributeListing,[ntAttribute_Node]);
+  FAllowedChildTypes:= [ntElement_Node,
+                        ntText_Node,
+                        ntCDATA_Section_Node,
+                        ntEntity_Reference_Node,
+                        ntProcessing_Instruction_Node,
+                        ntComment_Node,
+                        ntDocument_Fragment_Node];
+end;
+
+destructor TdomElement.destroy;
+var
+  i: integer;
+begin
+  FAttributeList.free;
+  FAttributeListing.free;
+  if assigned(FCreatedElementsNodeLists)
+    then for i := 0 to pred(FCreatedElementsNodeLists.Count) do
+      TdomElementsNodeList(FCreatedElementsNodeLists[i]).free;
+  if assigned(FCreatedElementsNodeListNSs)
+    then for i := 0 to pred(FCreatedElementsNodeListNSs.Count) do
+      TdomElementsNodeListNS(FCreatedElementsNodeListNSs[i]).free;
+  FCreatedElementsNodeLists.free;
+  FCreatedElementsNodeListNSs.free;
+  inherited destroy;
+end;
+
+procedure TdomElement.setNodeValue(const value: UnicodeString);
+begin
+end;
+
+procedure TdomElement.setIsReadonly(const value: boolean);
+begin
+  inherited setIsReadonly(value);
+  Attributes.setIsReadonly(value);
+end;
+
+function TdomElement.getTagName: UnicodeString;
+begin
+  Result:= NodeName;
+end;
+
+function TdomElement.getAttributes: TdomNamedNodeMap;
+begin
+  Result:= FAttributeList;
+end;
+
+function TdomElement.getAttribute(const name: UnicodeString): UnicodeString;
+begin
+  if Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  if not assigned(GetAttributeNode(name))
+    then result:= ''
+    else result:= (Attributes.GetNamedItem(name) as TdomAttr).value;
+end;
+
+function TdomElement.setAttribute(const name,
+                                        value: UnicodeString): TdomAttr;
+var
+  Attr: TdomAttr;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  Attr:= getAttributeNode(name);
+  if assigned(Attr) then begin
+    Attr.value:= value;
+    Result:= nil;
+  end else begin
+    Result:= OwnerDocument.CreateAttribute(name);
+    Result.value:= value;
+    setAttributeNode(Result);
+  end;
+end;
+
+function TdomElement.removeAttribute(const name: UnicodeString): TdomAttr;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  if not assigned(GetAttributeNode(name))
+    then ENot_Found_Err.create('Node not found error.');
+  Result:= RemoveAttributeNode(GetAttributeNode(name));
+end;
+
+function TdomElement.getAttributeNode(const name: UnicodeString): TdomAttr;
+begin
+  if Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  Result:= TdomAttr(Attributes.GetNamedItem(name));
+end;
+
+function TdomElement.setAttributeNode(const newAttr: TdomAttr): TdomAttr;
+var
+  OldAttr: TdomAttr;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  if OwnerDocument <> newAttr.OwnerDocument
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if assigned(newAttr.parentNode) and not (newAttr.OwnerElement = self)
+    then raise EInuse_Attribute_Err.create('Inuse attribute error.');
+  Result:= nil;
+  if not (newAttr.OwnerElement = self) then begin
+    OldAttr:= (Attributes.GetNamedItem(newAttr.name) as TdomAttr);
+    if assigned(OldAttr) then Result:= RemoveAttributeNode(OldAttr);
+    Attributes.SetNamedItem(newAttr);
+    doAttrModified(self,AC_ADDITION,'',newAttr.value,newAttr);
+  end;
+end;
+
+function TdomElement.removeAttributeNode(const oldAttr: TdomAttr): TdomAttr;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if Attributes.indexof(oldAttr) = -1
+    then raise ENot_Found_Err.create('Node not found error.');
+  Attributes.RemoveItem(oldAttr);
+  oldAttr.FOwnerElement:= nil;
+  Result:= oldAttr;
+  doAttrModified(self,AC_REMOVAL,oldAttr.value,'',oldAttr);
+end;
+
+function TdomElement.getElementsByTagName(const name: UnicodeString): TdomNodeList;
+var
+  i: integer;
+begin
+  for i:= 0 to FCreatedElementsNodeLists.Count - 1 do
+    if TdomElementsNodeList(FCreatedElementsNodeLists[i]).FQueryName = name
+      then begin Result:= TdomElementsNodeList(FCreatedElementsNodeLists[i]); exit; end;
+  Result:= TdomElementsNodeList.create(name,self);
+  FCreatedElementsNodeLists.add(Result);
+end;
+
+function TdomElement.getAttributeNS(const anamespaceURI,
+                                          alocalName: UnicodeString): UnicodeString;
+begin
+  if not Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  if not assigned(GetAttributeNodeNS(anamespaceURI,alocalName))
+    then result:= ''
+    else result:= (Attributes.GetNamedItemNS(anamespaceURI,alocalName) as TdomAttr).value;
+end;
+
+function TdomElement.setAttributeNS(const anamespaceURI,
+                                          qualifiedName,
+                                          value: UnicodeString): TdomAttr;
+var
+  Attr: TdomAttr;
+  prfx, alocalname: UnicodeString;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if not Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  if not xmlExtractPrefixAndLocalName(qualifiedName,prfx,alocalName) then begin
+    if not IsXmlName(qualifiedName)
+      then raise EInvalid_Character_Err.create('Invalid character error.')
+      else raise ENamespace_Err.create('Namespace error.');
+  end;
+  if ( ((prfx = 'xmlns') or (qualifiedName = 'xmlns'))
+    and not (anamespaceURI ='http://www.w3.org/2000/xmlns/') )
+      then raise ENamespace_Err.create('Namespace error.');
+  if (namespaceURI = '') and (prfx <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (prfx = 'xml') and (anamespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  Attr:= getAttributeNodeNS(anamespaceURI,alocalName);
+  if assigned(Attr) then begin
+    Attr.FNodeName:= qualifiedName;
+    Attr.value:= value;
+    Result:= nil;
+  end else begin
+    Result:= OwnerDocument.CreateAttributeNS(anamespaceURI,qualifiedName);
+    Result.value:= value;
+    setAttributeNodeNS(Result);
+  end;
+end;
+
+function TdomElement.removeAttributeNS(const anamespaceURI,
+                                             alocalName: UnicodeString): TdomAttr;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if not Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  if not assigned(GetAttributeNodeNS(anamespaceURI,alocalName))
+    then ENot_Found_Err.create('Node not found error.');
+  Result:= RemoveAttributeNode(GetAttributeNodeNS(anamespaceURI,alocalName));
+end;
+
+function TdomElement.getAttributeNodeNS(const anamespaceURI,
+                                              alocalName: UnicodeString): TdomAttr;
+begin
+  if not Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  Result:= TdomAttr(Attributes.GetNamedItemNS(anamespaceURI,alocalName));
+end;
+
+function TdomElement.setAttributeNodeNS(const newAttr: TdomAttr): TdomAttr;
+var
+  OldAttr: TdomAttr;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if not Attributes.NamespaceAware
+    then raise ENamespace_Err.create('Namespace error.');
+  if OwnerDocument <> newAttr.OwnerDocument
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if assigned(newAttr.parentNode) and not (newAttr.OwnerElement = self)
+    then raise EInuse_Attribute_Err.create('Inuse attribute error.');
+  Result:= nil;
+  if not (newAttr.OwnerElement = self) then begin
+    OldAttr:= (Attributes.GetNamedItemNS(newAttr.namespaceURI,newAttr.localName) as TdomAttr);
+    if assigned(OldAttr) then Result:= RemoveAttributeNode(OldAttr);
+    Attributes.SetNamedItemNS(newAttr);
+    doAttrModified(self,AC_ADDITION,'',newAttr.value,newAttr);
+  end;
+end;
+
+function TdomElement.getElementsByTagNameNS(const anamespaceURI,
+                                                  alocalName: UnicodeString): TdomNodeList;
+var
+  i: integer;
+  nl: TdomElementsNodeListNS;
+begin
+  for i:= 0 to FCreatedElementsNodeListNSs.Count - 1 do begin
+    nl:= TdomElementsNodeListNS(FCreatedElementsNodeListNSs[i]);
+    if (nl.FQueryNamespaceURI = anamespaceURI) and (nl.FQueryLocalName = alocalName)
+      then begin Result:= nl; exit; end;
+  end;
+  Result:= TdomElementsNodeListNS.create(anamespaceURI,alocalName,self);
+  FCreatedElementsNodeListNSs.add(Result);
+end;
+
+function TdomElement.hasAttribute(const aname: UnicodeString): boolean;
+begin
+  Result:= assigned(Attributes.GetNamedItem(aname));
+end;
+
+function TdomElement.hasAttributeNS(const anamespaceURI,
+                                          alocalName: UnicodeString): boolean;
+begin
+  Result:= assigned(Attributes.GetNamedItemNS(anamespaceURI,alocalName));
+end;
+
+procedure TdomElement.normalize;
+var
+  PrevNode, CurrentNode: TdomNode;
+  i: integer;
+begin
+  {normalize text:}
+  PrevNode:=nil;
+  i:=ChildNodes.Length;
+  while i>0 do
+  begin
+    Dec(i);
+    CurrentNode:=ChildNodes.Item(i);
+    if (CurrentNode.NodeType = ntText_Node) then
+      begin
+         if (Assigned(PrevNode)) and (PrevNode.NodeType = ntText_Node) then
+         begin
+            (CurrentNode as TdomText).AppendData((PrevNode as TdomText).Data);
+            removeChild(PrevNode);
+            PrevNode.OwnerDocument.FreeAllNodes(PrevNode);
+         end;
+      end
+    else  // no text node, then normalize
+      CurrentNode.normalize;
+    PrevNode:=CurrentNode;
+  end;
+
+  {normalize attributes:}
+  for i:= 0 to attributes.Length-1 do
+    attributes.item(i).normalize;
+end;
+
+function TdomElement.validate2: boolean;
+var
+  i: integer;
+  ok: boolean;
+  contentModelOk: boolean;
+  EType: TdomCMElementTypeDeclaration;
+  PcdataChoice: TdomCMPcdataChoiceParticle;
+  particle: TdomCMParticle;
+  elementnames,rest: TdomWideStringList;
+  cm: TdomCMObject;
+  attri: TdomCMAttribute;
+  newAttr, textAttr: TdomAttr;
+  treeWalker: TdomTreeWalker;
+  nodeToTest: TdomNode;
+  isNonDeterministic: boolean;
+begin
+  result:= true;
+  cm:= OwnerDocument.contentModel;
+
+  if assigned(cm) then begin
+
+    // VC: Element Valid (XML 1.0, � 3)
+    EType:= (cm.elementTypes.GetNamedItem(NodeName) as TdomCMElementTypeDeclaration);
+    if not assigned(EType) then begin
+      result:= false;
+      sendErrorNotification(ET_ELEMENT_TYPE_DECL_NOT_FOUND,self);
+    end else begin
+      treeWalker:= ownerDocument.CreateTreeWalker(self,
+                                                  // Hide entity reference nodes:
+                                                  [ntElement_Node,
+                                                  ntAttribute_Node,
+                                                  ntText_Node,
+                                                  ntCDATA_Section_Node,
+                                                  ntEntity_Node,
+                                                  ntProcessing_Instruction_Node,
+                                                  ntComment_Node,
+                                                  ntDocument_Node,
+                                                  ntDocument_Type_Node,
+                                                  ntDocument_Fragment_Node,
+                                                  ntNotation_Node],
+                                                  nil,
+                                                  true);
+      try
+        case EType.ContentspecType of
+          ctEmpty: begin
+            nodeToTest:= treeWalker.firstChild;
+            while assigned(nodeToTest) do begin
+              if not ( (nodeToTest.nodeType = ntText_Node) and (nodeToTest.nodeValue = '') ) then begin
+                result:= false;
+                sendErrorNotification(ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT,self);
+                break;
+              end;
+              nodeToTest:= treeWalker.nextSibling;
+            end; {while ...}
+          end;
+          ctChildren: begin
+            elementnames:= TdomWideStringList.create;
+            rest:= TdomWideStringList.create;
+            try
+              ok:= true;
+              nodeToTest:= treeWalker.firstChild;
+              while assigned(nodeToTest) do begin
+                with nodeToTest do begin
+                  case nodeType of
+                    ntElement_Node:
+                      elementnames.Add(NodeName);
+                    ntText_Node:
+                      if not (IsXmlS(nodeValue) or (nodeValue = '')) then begin
+                        ok:= false;
+                        break;
+                      end;
+                    ntProcessing_Instruction_Node,ntComment_Node:; // Do nothing --> node accepted.
+                    else begin
+                      ok:= false;
+                      break;
+                    end;
+                  end; {case ...}
+                end; {with ...}
+                nodeToTest:= treeWalker.nextSibling;
+              end; {while ...}
+              if ok then begin
+                particle:= EType.firstChild as TdomCMParticle;
+                contentModelOk:= particle.contentModelTest(elementnames,rest,isNonDeterministic);
+                if isNonDeterministic then begin
+                  result:= false;
+                  sendErrorNotification(ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL,self);
+                end else ok:= contentModelOk and (rest.Count = 0);
+              end; {if ok ...}
+            finally
+              elementnames.free;
+              rest.free;
+            end;
+            if not ok then begin
+              result:= false;
+              sendErrorNotification(ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT,self);
+            end; {if ...}
+          end;
+          ctMixed: begin
+            PcdataChoice:= EType.firstChild as TdomCMPcdataChoiceParticle;
+            nodeToTest:= treeWalker.firstChild;
+            while assigned(nodeToTest) do begin
+              ok:= true;
+              with nodeToTest do begin
+                case nodeType of
+                  ntElement_Node:
+                    if assigned(PcdataChoice) then begin
+                      if not PcdataChoice.elementDefined(NodeName)
+                        then ok:= false;
+                    end else ok:= false;
+                  ntText_Node,ntProcessing_Instruction_Node,ntComment_Node:; // Do nothing --> node accepted.
+                  else
+                    ok:= false;
+                end; {case ...}
+                if not ok then begin
+                  result:= false;
+                  sendErrorNotification(ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT,self);
+                end; {if ...}
+              end; {with ...}
+              nodeToTest:= treeWalker.nextSibling;
+            end; {while ...}
+          end;
+        end; {case ...}
+      finally
+        ownerDocument.freeTreeWalker(TreeWalker);
+      end; {try ...}
+    end; {if not assigned(EType) ... else ... end}
+
+    with cm.attributes do begin
+      for i:= 0 to pred(length) do begin
+        attri:= item(i);
+        if attri.elementName = nodeName then begin
+          if attri.defaultDeclaration = '#REQUIRED' then begin
+            // VC: Required Attribute (XML 1.0, � 3.3.2)
+            if not hasAttribute(attri.attributeName) then begin
+              result:= false;
+              sendErrorNotification(ET_REQUIRED_ATTRIBUTE_NOT_FOUND,self);
+            end;
+          end else begin
+
+            textAttr:= self.GetAttributeNode(attri.attributeName);
+            if assigned(textAttr) then begin
+              // VC: Fixed Attribute Default (XML 1.0, � 3.3.2)
+              if attri.defaultDeclaration = '#FIXED' then begin
+                if attri.NodeValue <> textAttr.value then begin
+                  result:= false;
+                  sendErrorNotification(ET_FIXED_ATTRIBUTE_MISMATCH,self);
+                end;
+              end;
+            end else begin
+              // set default attributes:
+              if not (attri.defaultDeclaration = '#IMPLIED') then begin
+                newAttr:= OwnerDocument.CreateAttribute(attri.AttributeName);
+                newAttr.value:= attri.NodeValue;
+                newAttr.FSpecified:= false;
+                self.SetAttributeNode(newAttr);
+              end;
+            end;
+
+          end;
+        end; {if attri.elementName ...}
+      end; {for ...}
+    end; {with ...}
+
+  end else begin
+    result:= false;
+    sendErrorNotification(ET_ELEMENT_TYPE_DECL_NOT_FOUND,self);
+  end; {if assigned(cm) ... else ... end}
+
+  // validate child attributes:
+  for i:= 0 to pred(attributes.length) do
+    if not attributes.item(i).validate2
+      then result:= false;
+
+  // validate child nodes:
+  for i:= 0 to pred(childnodes.length) do
+    if not childnodes.item(i).validate2
+      then result:= false;
+
+end;
+
+function TdomElement.validateIDREFS: boolean;
+var
+  i: integer;
+begin
+  result:= true;
+  for i:= 0 to pred(attributes.length) do
+    if not attributes.Item(i).validateIDREFS
+      then result:= false;
+end;
+
+function TdomElement.resolveEntityReferences(const opt: TdomEntityResolveOption): boolean;
+var
+  i: integer;
+  ok,hasEntRefs: boolean;
+  S, childName: UnicodeString;
+  child: TdomNode;
+  docFrag: TdomDocumentFragment;
+  ReplText: TdomText;
+  cmEnt: TdomCMEntity;
+  parser: TXmlToDomParser;
+begin
+  result:= true;
+
+  for i:= 0 to pred(attributes.Length) do begin
+    ok:= attributes.Item(i).resolveEntityReferences(opt);
+    if not ok then result:= false;
+  end;
+
+  case opt of
+    erReplace: begin
+      parser:= TXmlToDomParser.create(nil);
+      try
+        parser.DOMImpl:= ownerDocument.domImplementation;
+        hasEntRefs:= false;
+        i:= 0;
+        while i < ChildNodes.Length do begin
+          child:= ChildNodes.Item(i);
+          if child.nodeType = ntEntity_Reference_Node then begin
+            hasEntRefs:= true;
+            cmEnt:= (child as TdomEntityReference).correspondingCMEntity;
+            if assigned(cmEnt) then begin
+              try
+                S:= cmEnt.replacementText;
+                docFrag:= ownerDocument.CreateDocumentFragment;
+                try
+                  if S <> '' then parser.docWideStringToDom(S,'','',docFrag);
+                  replaceChild(docFrag,child);
+                  ownerDocument.FreeAllNodes(child);
+                  dec(i); // Necessary, if an empty entity was referenced.
+                finally
+                  ownerDocument.FreeAllNodes(TdomNode(docFrag));
+                end;
+              except
+                result:= false;
+              end;
+            end else begin
+              childName:= child.nodeName;
+              if (childName='lt') then begin
+                ReplText:= ownerDocument.CreateTextNode(#60);
+                replaceChild(ReplText,child);
+                ownerDocument.FreeAllNodes(child);
+              end else if (childName='gt') then begin
+                ReplText:= ownerDocument.CreateTextNode(#62);
+                replaceChild(ReplText,child);
+                ownerDocument.FreeAllNodes(child);
+              end else if (childName='amp') then begin
+                ReplText:= ownerDocument.CreateTextNode(#38);
+                replaceChild(ReplText,child);
+                ownerDocument.FreeAllNodes(child);
+              end else if (childName='apos') then begin
+                ReplText:= ownerDocument.CreateTextNode(#39);
+                replaceChild(ReplText,child);
+                ownerDocument.FreeAllNodes(child);
+              end else if (childName='quot') then begin
+                ReplText:= ownerDocument.CreateTextNode(#34);
+                replaceChild(ReplText,child);
+                ownerDocument.FreeAllNodes(child);
+              end else result:= false;
+            end; {if assigned(cmEnt) ...}
+          end else child.resolveEntityReferences(opt);
+          inc(i);
+        end; {while ...}
+      finally
+        parser.free;
+      end;
+      if hasEntRefs then normalize;
+    end;
+    erExpand: begin
+      for i:= 0 to pred(ChildNodes.Length) do begin
+        child:= ChildNodes.Item(i);
+        if child.nodeType = ntEntity_Reference_Node then begin
+          ok:= (child as TdomEntityReference).expand;
+          if not ok then result:= false;
+        end else child.resolveEntityReferences(opt);
+      end; {for ...}
+    end;
+  end;
+end;
+
+
+
+//+++++++++++++++++++++++++++++ TdomText +++++++++++++++++++++++++++++++++
+constructor TdomText.create(const aOwner: TdomDocument);
+begin
+  inherited create(aOwner);
+  FNodeName:= '#text';
+  FNodeValue:= '';
+  FNodeType:= ntText_Node;
+  FAllowedChildTypes:= [];
+end;
+
+function TdomText.getIsWhitespaceInElementContent: boolean;
+var
+  cm: TdomCMObject;
+  EType: TdomCMElementTypeDeclaration;
+  pNode: TdomNode;
+begin
+  result:= false;
+  if not (isXMLS(nodeValue) or (nodeValue = '')) then exit;
+  cm:= OwnerDocument.contentModel;
+  if assigned(cm) then begin
+    pNode:= parentNode;
+    while assigned(pNode) do begin
+      case pNode.nodeType of
+        ntElement_Node: begin
+          EType:= (cm.elementTypes.GetNamedItem(pNode.NodeName) as TdomCMElementTypeDeclaration);
+          if assigned(EType)
+            then if EType.ContentspecType = ctChildren
+              then result:= true;
+          break;
+        end;
+        ntEntity_Reference_Node:
+          pNode:= pNode.parentNode;
+      else
+        break;
+      end; {case ...}
+    end; {while ...}
+  end; {if ...}
+end;
+
+function TdomText.validate2: boolean;
+begin
+  result:= true;
+end;
+
+function TdomText.SplitText(const offset: integer): TdomText;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if(offset < 0) or (offset > Length)
+    then raise EIndex_Size_Err.create('Index size error.');
+  Result:= OwnerDocument.CreateTextNode(SubstringData(offset,length-offset));
+  DeleteData(offset,length-offset);
+  if assigned(ParentNode) then ParentNode.insertBefore(Result,self.NextSibling);
+end;
+
+
+
+//++++++++++++++++++++++++++++ TdomComment +++++++++++++++++++++++++++++++
+constructor TdomComment.create(const aOwner: TdomDocument);
+begin
+  inherited create(aOwner);
+  FNodeName:= '#comment';
+  FNodeValue:= '';
+  FNodeType:= ntComment_Node;
+  FAllowedChildTypes:= [];
+end;
+
+function TdomComment.validate2: boolean;
+begin
+  result:= true;
+end;
+
+
+
+//+++++++++++++++++++++ TdomProcessingInstruction +++++++++++++++++++++++++
+constructor TdomProcessingInstruction.create(const aOwner: TdomDocument;
+                                             const targ: UnicodeString);
+begin
+  if not IsXmlPITarget(targ)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= targ;
+  FNodeValue:= '';
+  FNodeType:= ntProcessing_Instruction_Node;
+  FAllowedChildTypes:= [];
+end;
+
+function TdomProcessingInstruction.validate2: boolean;
+begin
+  result:= true;
+end;
+
+function TdomProcessingInstruction.getTarget: UnicodeString;
+begin
+  Result:= FNodeName;
+end;
+
+function TdomProcessingInstruction.getData: UnicodeString;
+begin
+  Result:= FNodeValue;
+end;
+
+procedure TdomProcessingInstruction.setData(const value: UnicodeString);
+var
+  prevValue: UnicodeString;
+begin
+  prevValue:= NodeValue;
+  NodeValue:= value;
+  doCharacterDataModified(self,prevValue,value);
+end;
+
+
+
+//++++++++++++++++++++++++++ TdomCDATASection +++++++++++++++++++++++++++++
+constructor TdomCDATASection.create(const aOwner: TdomDocument);
+begin
+  inherited create(aOwner);
+  FNodeName:= '#cdata-section';
+  FNodeValue:= '';
+  FNodeType:= ntCDATA_Section_Node;
+end;
+
+function TdomCDATASection.validate2: boolean;
+begin
+  result:= true;
+end;
+
+
+
+//++++++++++++++++++++++++++ TdomDocumentType +++++++++++++++++++++++++++++
+constructor TdomDocumentType.create(const aOwner: TdomDocument;
+                                    const name,
+                                          pubId,
+                                          sysId,
+                                          IntSubset: UnicodeString);
+begin
+  inherited create(aOwner);
+  FNodeValue:= '';
+  FNodeName:= name;
+  FPublicId:= pubId;
+  FSystemId:= sysId;
+  FInternalSubset:= IntSubset;
+  FNodeType:= ntDocument_Type_Node;
+  FAllowedChildTypes:= [];
+  FEntitiesListing:= TList.create;
+  FEntitiesList:= TdomNamedNodeMap.create(aOwner,self,FEntitiesListing,[ntEntity_Node]);
+  FNotationsListing:= TList.create;
+  FNotationsList:= TdomNamedNodeMap.create(aOwner,self,FNotationsListing,[ntNotation_Node]);
+end;
+
+destructor TdomDocumentType.destroy;
+begin
+  FEntitiesListing.free;
+  FEntitiesList.free;
+  FNotationsListing.free;
+  FNotationsList.free;
+  inherited destroy;
+end;
+
+function TdomDocumentType.validate2: boolean;
+begin
+  result:= true;
+end;
+
+function TdomDocumentType.GetEntities: TdomNamedNodeMap;
+begin
+  Result:= FEntitiesList;
+end;
+
+function TdomDocumentType.GetInternalSubset: UnicodeString;
+begin
+  Result:= FInternalSubset;
+end;
+
+function TdomDocumentType.GetName: UnicodeString;
+begin
+  Result:= NodeName;
+end;
+
+function TdomDocumentType.GetNotations: TdomNamedNodeMap;
+begin
+  Result:= FNotationsList;
+end;
+
+function TdomDocumentType.GetPublicId: UnicodeString;
+begin
+  Result:= FPublicId;
+end;
+
+function TdomDocumentType.GetSystemId: UnicodeString;
+begin
+  Result:= FSystemId;
+end;
+
+procedure TdomDocumentType.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+
+
+//++++++++++++++++++++++++++ TdomNotation ++++++++++++++++++++++++++++++
+constructor TdomNotation.create(const aOwner: TdomDocument;
+                                const name,
+                                      pubId,
+                                      sysId: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlSystemChars(sysId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlPubidChars(publicId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeValue:= '';
+  FPublicId:= pubId;
+  FSystemId:= sysId;
+  FNodeType:= ntNotation_Node;
+  FAllowedChildTypes:= [];
+end;
+
+procedure TdomNotation.SetNodeValue(const value: UnicodeString);
+begin
+  // Do nothing.
+end;
+
+function TdomNotation.GetPublicId: UnicodeString;
+begin
+  Result:= FPublicId;
+end;
+
+function TdomNotation.GetSystemId: UnicodeString;
+begin
+  Result:= FSystemId;
+end;
+
+
+
+//+++++++++++++++++++++++++++ TdomEntity +++++++++++++++++++++++++++++++++
+constructor TdomEntity.create(const aOwner: TdomDocument;
+                              const name,
+                                    pubId,
+                                    sysId,
+                                    notaName: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlSystemChars(sysId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlPubidChars(pubId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNotationName:= notaName;
+  FNodeType:= ntEntity_Node;
+  FPublicId:= pubId;
+  FSystemId:= sysId;
+  FEncoding:= '';
+  FVersion:= '';
+  FAllowedChildTypes:= [ntElement_Node,
+                        ntProcessing_Instruction_Node,
+                        ntComment_Node,
+                        ntText_Node,
+                        ntCDATA_Section_Node,
+                        ntEntity_Reference_Node,
+                        ntDocument_Fragment_Node];
+end;
+
+function TdomEntity.GetNotationName: UnicodeString;
+begin
+  Result:= FNotationName;
+end;
+
+procedure TdomEntity.SetNodeValue(const value: UnicodeString);
+begin
+  // Do nothing
+end;
+
+function TdomEntity.insertBefore(const newChild,
+                                       refChild: TdomNode): TdomNode;
+begin
+  if (publicId <> '') or (systemId <> '')
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= inherited insertBefore(newChild,refChild);
+end;
+
+function TdomEntity.replaceChild(const newChild,
+                                       oldChild: TdomNode): TdomNode;
+begin
+  if (publicId <> '') or (systemId <> '')
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= inherited replaceChild(newChild,oldChild);
+end;
+
+function TdomEntity.appendChild(const newChild: TdomNode): TdomNode;
+begin
+  if (publicId <> '') or (systemId <> '')
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= inherited appendChild(newChild);
+end;
+
+
+
+//++++++++++++++++++++++++ TdomEntityReference +++++++++++++++++++++++++
+constructor TdomEntityReference.create(const aOwner: TdomDocument;
+                                       const name: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeValue:= '';
+  FNodeType:= ntEntity_Reference_Node;
+  FAllowedChildTypes:= [ntElement_Node,
+                        ntText_Node,
+                        ntCDATA_Section_Node,
+                        ntEntity_Reference_Node,
+                        ntProcessing_Instruction_Node,
+                        ntComment_Node,
+                        ntDocument_Fragment_Node];
+end;
+
+function TdomEntityReference.getCorrespondingCMEntity: TdomCMEntity;
+var
+  cm: TdomCMObject;
+begin
+  cm:= ownerDocument.contentModel;
+  if assigned(cm)
+    then result:= cm.Entities.getNamedItem(NodeName)
+    else result:= nil;
+end;
+
+function TdomEntityReference.getRefersToPredefinedEntity: boolean;
+begin
+  if (nodeName = 'lt') or
+     (nodeName = 'gt') or
+     (nodeName = 'amp') or
+     (nodeName = 'apos') or
+     (nodeName = 'quot')
+  then result:= true
+  else result:= false;
+end;
+
+function TdomEntityReference.expand: boolean;
+// Resolves the replacement text of the entity reference by the value of
+// its correspondingCMEntity or by a default entity respectivly.
+// Returns 'true' if successful, otherwise 'false'.
+var
+  S: UnicodeString;
+  cmEnt: TdomCMEntity;
+  parser: TXmlToDomParser;
+begin
+  result:= true;
+  parser:= TXmlToDomParser.create(nil);
+  try
+    parser.DOMImpl:= ownerDocument.domImplementation;
+    clear;
+    cmEnt:= correspondingCMEntity;
+    if assigned(cmEnt) then begin
+      try
+        S:= cmEnt.replacementText;
+        if S <> '' then parser.docWideStringToDom(S,'','',self);
+        // xxx setting the readonly property is missing here!
+      except
+        result:= false;
+      end;
+    end else begin
+      if (nodeName='lt') then begin
+        appendChild(ownerDocument.CreateTextNode(#60))
+      end else if (nodeName='gt') then begin
+        appendChild(ownerDocument.CreateTextNode(#62))
+      end else if (nodeName='amp') then begin
+        appendChild(ownerDocument.CreateTextNode(#38))
+      end else if (nodeName='apos') then begin
+        appendChild(ownerDocument.CreateTextNode(#39))
+      end else if (nodeName='quot') then begin
+        appendChild(ownerDocument.CreateTextNode(#34))
+      end else result:= false;
+    end; {if assigned(cmEnt) ...}
+    // xxx setting the readonly property is missing here!
+  finally
+    parser.free;
+  end;
+end;
+
+function TdomEntityReference.validate2: boolean;
+var
+  ent: TdomCMEntity;
+  i: integer;
+begin
+  result:= true;
+
+  if not refersToPredefinedEntity then begin
+
+    // VC: Entity declared (XML 1.0, � 4.1)
+    ent:= getCorrespondingCMEntity;
+    if not assigned(ent) then begin
+      result:= false;
+      sendErrorNotification(ET_ENTITY_DECL_NOT_FOUND,self);
+      exit;
+    end;
+
+    if ent.isParsedEntity then begin
+
+      if not ent.resolve then begin
+        result:= false;
+        sendErrorNotification(ET_UNRESOLVABLE_ENTITY_REFERENCE,self);
+        exit;
+      end;
+
+      // WFC: Parsed Entity (XML 1.0, � 4.1)
+      if ent.refersToUnparsedEntity(true) then begin
+        result:= false;
+        sendErrorNotification(ET_REFERENCE_TO_UNPARSED_ENTITY,self);
+      end;
+
+      // WFC: No Recursion (XML 1.0, � 4.1)
+      if ent.RefersToItself(true) then begin
+        result:= false;
+        sendErrorNotification(ET_RECURSIVE_REFERENCE,self);
+      end;
+
+      // WFC: Well-Formed Parsed Entities (XML 1.0, � 4.3.2)
+      if ent.isUnusable then begin
+        result:= false;
+        sendErrorNotification(ET_NO_PROPER_MARKUP_REFERENCED,self);
+      end; {if ...}
+
+    end;
+
+  end; {if not refersToPredefinedEntity ...}
+
+  // validate child nodes:
+  for i:= 0 to pred(childnodes.length) do
+    if not childnodes.item(i).validate2
+      then result:= false;
+
+end;
+
+procedure TdomEntityReference.SetNodeValue(const value: UnicodeString);
+begin
+  // Do nothing.
+end;
+
+function TdomEntityReference.CloneNode(const deep: boolean): TdomNode;
+begin
+  result:= inherited cloneNode(deep);
+  makeChildrenReadonly;
+end;
+
+function  TdomEntityReference.resolveEntityReferences(const opt: TdomEntityResolveOption): boolean;
+begin
+  result:= true;
+end;
+
+
+
+//++++++++++++++++++++++++ TdomDocumentFragment +++++++++++++++++++++++++++
+constructor TdomDocumentFragment.create(const aOwner: TdomDocument);
+begin
+  inherited create(aOwner);
+  FNodeName:= '#document-fragment';
+  FNodeValue:= '';
+  FNodeType:= ntDocument_Fragment_Node;
+  FAllowedChildTypes:= [ntElement_Node,
+                        ntText_Node,
+                        ntCDATA_Section_Node,
+                        ntEntity_Reference_Node,
+                        ntProcessing_Instruction_Node,
+                        ntComment_Node,
+                        ntDocument_Type_Node,       // xxx not DOM conformant.  Delete?
+                        ntDocument_Fragment_Node];
+end;
+
+procedure TdomDocumentFragment.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+
+
+//+++++++++++++++++++++++++ TdomXPathNamespace ++++++++++++++++++++++++++++
+constructor TdomXPathNamespace.create(const aOwnerElement: TdomElement;
+                                      const anamespaceUri,
+                                            aprefix: UnicodeString);
+begin
+  if not ( IsXmlPrefix(aprefix) or (aprefix = '') )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if ( (aprefix = 'xmlns') and not (anamespaceURI = 'http://www.w3.org/2000/xmlns/') )
+    then raise ENamespace_Err.create('Namespace error.');
+  if (anamespaceURI = '') and (aprefix <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (aprefix = 'xml') and (anamespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  FOwnerElement:= aOwnerElement;
+  FIsReadonly:= true;
+  FNodeType:= ntXPath_Namespace_Node;
+  FNodeName:= aprefix;
+  FPrefix:= aprefix;
+  FNamespaceURI:= anamespaceUri;
+end;
+
+function TdomXPathNamespace.getDocument: TdomDocument;
+begin
+  result:= FOwnerElement.ownerDocument;
+end;
+
+function TdomXPathNamespace.getOwnerElement: TdomElement;
+begin
+  result:= FOwnerElement;
+end;
+
+
+
+//++++++++++++++++++++++++++++ TdomDocument +++++++++++++++++++++++++++++++
+constructor TdomDocument.create(const aOwner: TDomImplementation);
+begin
+  inherited create(self);
+  FDomImpl:= aOwner;
+  FNodeName:= '#document';
+  FNodeValue:= '';
+  FNodeType:= ntDocument_Node;
+  FEncoding:= '';
+  FStandalone:= '';
+  FSystemId:= '';
+  FVersion:= '';
+  FBaseUri:= '';
+  FModified:= false;
+  FCMInternal:= nil;
+  FDefaultView:= nil;
+  FCreatedNodes:= TList.create;
+  FCreatedNodeIterators:= TList.create;
+  FCreatedTreeWalkers:= TList.create;
+  FCreatedElementsNodeLists:= TList.create;
+  FCreatedElementsNodeListNSs:= TList.create;
+  FCreatedExpressions:= TList.create;
+  FCreatedNSResolvers:= TList.create;
+  FIDs:= TdomWideStringList.create;
+  FIDs.Sorted:= true;
+  FIDs.Duplicates:= dupError;
+  FAllowedChildTypes:= [ntElement_Node,
+                        ntProcessing_Instruction_Node,
+                        ntComment_Node,
+                        ntDocument_Type_Node,
+                        ntDocument_Fragment_Node];
+end;
+
+destructor TdomDocument.destroy;
+begin
+  clear;
+  FCreatedNodes.Free;
+  FCreatedNodeIterators.Free;
+  FCreatedTreeWalkers.Free;
+  FCreatedElementsNodeLists.free;
+  FCreatedElementsNodeListNSs.free;
+  FCreatedExpressions.free;
+  FCreatedNSResolvers.free;
+  FIDs.free;
+  inherited destroy;
+end;
+
+procedure TdomDocument.SetNodeValue(const value: UnicodeString);
+begin
+  // Do nothing.
+end;
+
+procedure TdomDocument.FindNewReferenceNodes(const NodeToRemove: TdomNode);
+var
+  i: integer;
+  refNode, refRoot: TdomNode;
+begin
+  for i:= 0 to FCreatedNodeIterators.count-1 do begin
+    refNode:= TdomNodeIterator(FCreatedNodeIterators[i]).FReferenceNode;
+    if (refNode = NodeToRemove) or refNode.IsAncestor(NodeToRemove) then begin
+      refRoot:= TdomNodeIterator(FCreatedNodeIterators[i]).root;
+      if NodeToRemove.IsAncestor(refRoot)
+        then TdomNodeIterator(FCreatedNodeIterators[i]).FindNewReferenceNode(NodeToRemove);
+    end;
+  end;
+end;
+
+procedure TdomDocument.clear;
+var
+  i : integer;
+begin
+  FNodeListing.clear;
+  for i := 0 to FCreatedNodes.Count - 1 do
+    TdomNode(FCreatedNodes[i]).free;
+  FCreatedNodes.Clear;
+  for i := 0 to FCreatedNodeIterators.Count - 1 do
+    TdomNodeIterator(FCreatedNodeIterators[i]).free;
+  FCreatedNodeIterators.Clear;
+  for i := 0 to FCreatedTreeWalkers.Count - 1 do
+    TdomTreeWalker(FCreatedTreeWalkers[i]).Free;
+  FCreatedTreeWalkers.Clear;
+  for i := 0 to FCreatedElementsNodeLists.Count - 1 do
+    TdomElementsNodeList(FCreatedElementsNodeLists[i]).free;
+  FCreatedElementsNodeLists.Clear;
+  for i := 0 to FCreatedElementsNodeListNSs.Count - 1 do
+    TdomElementsNodeListNS(FCreatedElementsNodeListNSs[i]).free;
+  FCreatedElementsNodeListNSs.Clear;
+  for i := 0 to FCreatedNSResolvers.Count - 1 do
+    TdomXPathNSResolver(FCreatedNSResolvers[i]).Free;
+  FCreatedNSResolvers.Clear;
+  for i:= 0 to FCreatedExpressions.count-1 do
+    TdomXPathExpression(FCreatedExpressions[i]).free;
+  FCreatedExpressions.Clear;
+end;
+
+procedure TdomDocument.ClearInvalidNodeIterators;
+var
+  i: integer;
+begin
+  for i:= 0 to FCreatedNodeIterators.count-1 do
+  if TdomNodeIterator(FCreatedNodeIterators[i]).FInvalid then begin
+    TdomNodeIterator(FCreatedNodeIterators[i]).free;
+    FCreatedNodeIterators[i]:= nil;
+  end;
+  FCreatedNodeIterators.pack;
+  FCreatedNodeIterators.Capacity:= FCreatedNodeIterators.Count;
+end;
+
+function TdomDocument.createEntity(const name,
+                                         pubId,
+                                         sysId,
+                                         notaName: UnicodeString): TdomEntity;
+begin
+  result:= TdomEntity.create(self,name,pubId,sysId,notaName);
+  FCreatedNodes.add(result);
+end;
+
+function TdomDocument.createNotation(const name,
+                                           pubId,
+                                           sysId: UnicodeString): TdomNotation;
+begin
+  result:= TdomNotation.create(self,name,pubId,sysId);
+  FCreatedNodes.add(result);
+end;
+
+function TdomDocument.importNode(const importedNode: TdomNode;
+                                 const deep: boolean): TdomNode;
+var
+  cm: TdomCMObject;
+  i: integer;
+  newChild: TdomNode;
+  attri: TdomCMAttribute;
+  newAttr, oldAttr, textAttr: TdomAttr;
+  nsAware: boolean;
+begin
+  if not assigned(importedNode)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  case importedNode.NodeType of
+    ntAttribute_Node:
+      begin
+        with importedNode do
+          if isNamespaceNode
+            then result:= createAttributeNS(namespaceURI,nodeName)
+            else result:= createAttribute(nodeName);
+        Result.FNodeValue:= FNodeValue;
+        // duplicate the text of the attribute node:
+        for i:= 0 to pred(importedNode.ChildNodes.Length) do begin
+          newChild:= importNode(importedNode.ChildNodes.Item(i),true);
+          Result.appendChild(newChild);
+        end;
+      end;
+    ntCDATA_Section_Node:
+      Result:= createCDATASection((importedNode as TdomCDATASection).Data);
+    ntComment_Node:
+      Result:= createComment((importedNode as TdomComment).Data);
+    ntDocument_Fragment_Node:
+      begin
+        Result:= createDocumentFragment;
+        if deep then for i:= 0 to pred(importedNode.ChildNodes.Length) do begin
+          newChild:= importNode(importedNode.ChildNodes.Item(i),true);
+          Result.appendChild(newChild);
+        end;
+      end;
+    ntElement_Node:
+      begin
+        with importedNode do
+          if isNamespaceNode
+            then result:= createElementNS(namespaceURI,nodeName)
+            else result:= createElement(nodeName);
+        nsAware:= importedNode.attributes.namespaceAware;
+        Result.attributes.namespaceAware:= nsAware;
+        // Duplicating specified attributes:
+        if nsAware then begin
+          for i:= 0 to importedNode.attributes.Length-1 do begin
+            oldAttr:= TdomAttr(importedNode.attributes.Item(i));
+            if oldAttr.specified then begin
+              newChild:= importNode(oldAttr,true);
+              (result as TdomElement).setAttributeNodeNS((newChild as TdomAttr));
+            end;
+          end; {for i:= 0 to ...}
+        end else begin
+          for i:= 0 to importedNode.attributes.Length-1 do begin
+            oldAttr:= TdomAttr(importedNode.attributes.Item(i));
+            if oldAttr.specified then begin
+              newChild:= importNode(oldAttr,true);
+              (result as TdomElement).setAttributeNode((newChild as TdomAttr));
+            end;
+          end; {for i:= 0 to ...}
+        end; {if ... else ...}
+        // Adding default attributes:
+        cm:= OwnerDocument.contentModel;
+        if assigned(cm) then begin
+          with cm.attributes do begin
+            for i:= 0 to pred(length) do begin
+              attri:= item(i);
+              if attri.elementName = (result as TdomElement).nodeName then begin
+                if (attri.defaultDeclaration <> '#REQUIRED')
+                  and (attri.defaultDeclaration <> '#IMPLIED') then begin
+                  textAttr:= (result as TdomElement).getAttributeNode(attri.attributeName);
+                  if not assigned(textAttr) then begin
+                    newAttr:= OwnerDocument.CreateAttribute(attri.AttributeName);
+                    newAttr.value:= attri.NodeValue;
+                    newAttr.FSpecified:= false;
+                    (result as TdomElement).SetAttributeNode(newAttr);
+                  end; {if not ...}
+                end; {if ...}
+              end; {if ...}
+            end; {with ...}
+          end; {if assigned(cm) ...}
+        end; {for i:= 0 to ...}
+        // Duplicating child nodes:
+        if deep then for i:= 0 to pred(importedNode.ChildNodes.Length) do begin
+          newChild:= importNode(importedNode.ChildNodes.Item(i),true);
+          Result.appendChild(newChild);
+        end;
+      end;
+    ntEntity_Node:
+      with (importedNode as TdomEntity) do begin
+        result:= createEntity(nodeName,publicId,systemId,notationName);
+        (result as TdomEntity).encoding:= encoding;
+        (result as TdomEntity).version:= version;
+        if deep then for i:= 0 to pred(childNodes.length) do begin
+          newChild:= importNode(childNodes.Item(i),true);
+          result.appendChild(newChild);
+        end;
+      end;
+    ntEntity_Reference_Node:
+      begin
+        Result:= createEntityReference(importedNode.NodeName);
+        (result as TdomEntityReference).expand;
+      end;
+    ntNotation_Node:
+      with (importedNode as TdomEntity) do begin
+        result:= createNotation(nodeName,publicId,systemId);
+      end;
+    ntProcessing_Instruction_Node:
+        Result:= createProcessingInstruction((importedNode as TdomProcessingInstruction).target,
+                                             (importedNode as TdomProcessingInstruction).data);
+    ntText_Node:
+      Result:= createTextNode((importedNode as TdomText).Data);
+  else
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+end;
+
+procedure TdomDocument.doAttrModified(originalTarget: TdomNode;
+                                      attrChange: TdomAttrChange;
+                                      prevValue,
+                                      newValue: UnicodeString;
+                                      relatedAttr: TdomAttr);
+begin
+  FModified:= true;
+  try
+    inherited;
+  finally
+    if assigned(FParentNode)
+      then domImplementation.doAttrModified(self,originalTarget,attrChange,prevValue,newValue,relatedAttr);
+  end;
+end;
+
+procedure TdomDocument.doCharacterDataModified(originalTarget: TdomNode;
+                                               prevValue,
+                                               newValue: UnicodeString);
+begin
+  FModified:= true;
+  try
+    inherited;
+  finally
+    if assigned(FParentNode)
+      then domImplementation.doCharacterDataModified(self,originalTarget,prevValue,newValue);
+  end;
+end;
+
+procedure TdomDocument.doNodeInserted(originalTarget: TdomNode);
+begin
+  FModified:= true;
+  try
+    inherited;
+  finally
+    if assigned(FParentNode)
+      then domImplementation.doNodeInserted(self,originalTarget);
+  end;
+end;
+
+procedure TdomDocument.doNodeRemoved(originalTarget: TdomNode);
+begin
+  FModified:= true;
+  try
+    inherited;
+  finally
+    if assigned(FParentNode)
+      then domImplementation.doNodeRemoved(self,originalTarget);
+  end;
+end;
+
+function TdomDocument.getBaseUri: UnicodeString;
+begin
+  result:= FBaseUri;
+end;
+
+procedure TdomDocument.InitDoc(const tagName: UnicodeString);
+begin
+  if not IsXmlName(tagName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if assigned (DocumentElement)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  appendChild(CreateElement(tagName));
+end;
+
+procedure TdomDocument.InitDocNS(const anamespaceURI,
+                                       aqualifiedName: UnicodeString);
+var
+  prfx, alocalName: UnicodeString;
+begin
+  if not IsXmlName(aqualifiedName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not xmlExtractPrefixAndLocalName(aqualifiedName,prfx,alocalName) then begin
+    if not IsXmlName(aqualifiedName)
+      then raise EInvalid_Character_Err.create('Invalid character error.')
+      else raise ENamespace_Err.create('Namespace error.');
+  end;
+  if ( ((prfx = 'xmlns') or (aqualifiedName = 'xmlns'))
+    and not (anamespaceURI ='http://www.w3.org/2000/xmlns/') )
+      then raise ENamespace_Err.create('Namespace error.');
+  if (anamespaceURI = '') and (prfx <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (prfx = 'xml') and (anamespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  if assigned (DocumentElement)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  appendChild(CreateElementNS(anamespaceURI,aqualifiedName));
+end;
+
+function  TdomDocument.removeContentModel: TdomCMObject;
+begin
+  if assigned(FCMInternal)
+    then FCMInternal.FAssociatedDocument:= nil;
+  result:= FCMInternal;
+  FCMInternal:= nil;
+end;
+
+procedure TdomDocument.setBaseUri(const value: UnicodeString);
+var
+  uri: Ansistring;
+begin
+  try
+    uri:= UTF16To7BitASCIIStr(value);
+  except
+    raise ESyntax_Err.create('Syntax error.');
+  end;
+  if not isUriAbsoluteURIStr(uri)
+    then raise ESyntax_Err.create('Syntax error.');
+  FBaseUri:= value;
+end;
+
+function TdomDocument.setContentModel(const arg: TdomCMObject): TdomCMObject;
+begin
+  result:= removeContentModel;
+  if assigned(arg)
+    then if assigned(arg.associatedDocument)
+      then raise EInuse_Content_Model_Err.create('Inuse content model error.');
+  FCMInternal:= arg;
+  arg.FAssociatedDocument:= self;
+end;
+
+function TdomDocument.GetDoctype: TdomDocumentType;
+var
+  Child: TdomNode;
+begin
+  Result:= nil;
+  Child:= getFirstChild;
+  while assigned(Child) do begin
+    if Child.NodeType = ntDocument_Type_Node then begin
+      Result:= (Child as TdomDocumentType);
+      break;
+    end;
+    Child:= Child.NextSibling;
+  end;
+end;
+
+function TdomDocument.GetDocumentElement: TdomElement;
+var
+  Child: TdomNode;
+begin
+  Result:= nil;
+  Child:= getFirstChild;
+  while assigned(Child) do begin
+    if Child.NodeType = ntElement_Node then begin
+      Result:= (Child as TdomElement);
+      break;
+    end;
+    Child:= Child.NextSibling;
+  end;
+end;
+
+function TdomDocument.CreateElement(const tagName: UnicodeString): TdomElement;
+begin
+  Result:= TdomElement.create(self,tagName);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.CreateElementNS(const anamespaceURI,
+                                            aqualifiedName: UnicodeString): TdomElement;
+begin
+  Result:= TdomElement.createNS(self,anamespaceURI,aqualifiedName);
+  FCreatedNodes.add(Result);
+  Result.attributes.namespaceAware:= true;
+end;
+
+function TdomDocument.CreateDocumentFragment: TdomDocumentFragment;
+begin
+  Result:= TdomDocumentFragment.create(self);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.CreateTextNode(const Data: UnicodeString): TdomText;
+begin
+  Result:= TdomText.create(self);
+  Result.Data:= Data;
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.CreateComment(const Data: UnicodeString): TdomComment;
+begin
+  Result:= TdomComment.create(self);
+  Result.Data:= Data;
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.CreateCDATASection(const Data: UnicodeString): TdomCDATASection;
+begin
+  Result:= TdomCDATASection.create(self);
+  Result.Data:= Data;
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.CreateProcessingInstruction(const targ,
+                                                        Data : UnicodeString): TdomProcessingInstruction;
+begin
+  Result:= TdomProcessingInstruction.create(self,targ);
+  Result.Data:= Data;
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.CreateAttribute(const name: UnicodeString): TdomAttr;
+begin
+  Result:= TdomAttr.create(self,name,true);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.CreateAttributeNS(const anamespaceURI,
+                                              aqualifiedName: UnicodeString): TdomAttr;
+begin
+  Result:= TdomAttr.createNS(self,anamespaceURI,aqualifiedName,true);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.CreateEntityReference(const name: UnicodeString): TdomEntityReference;
+begin
+  Result:= TdomEntityReference.create(self,name);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomDocument.createExpression(const expression: UnicodeString;
+                                       const resolver: TdomXPathNSResolver): TdomXPathExpression;
+begin
+  result:= TdomXPathExpression.create(self,expression,resolver);
+  FCreatedExpressions.add(result);
+end;
+
+function TdomDocument.CreateDocumentType(const aname,
+                                               pubId,
+                                               sysId,
+                                               IntSubset: UnicodeString): TdomDocumentType;
+begin
+  Result:= TdomDocumentType.create(self,aname,pubId,sysId,IntSubset);
+  FCreatedNodes.add(Result);
+end;
+
+procedure TdomDocument.freeAllNodes(var node: TdomNode);
+var
+  index: integer;
+  oldChild: TdomNode;
+  oldAttr: TdomAttr;
+begin
+  if not assigned(node) then exit;
+  if node.OwnerDocument <> Self
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if node = Self
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(node.ParentNode)
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  if node.NodeType = ntAttribute_Node then
+    if assigned((node as TdomAttr).OwnerElement)
+      then raise EInuse_Attribute_Err.create('Inuse attribute error.');
+      // xxx notations ?
+  while node.HasChildNodes do begin
+    node.FirstChild.setIsReadonly(false);
+    oldChild:= node.RemoveChild(node.FirstChild);
+    node.OwnerDocument.FreeAllNodes(oldChild);
+  end;
+  case node.NodeType of
+    ntElement_Node:
+    while node.Attributes.Length > 0 do begin
+      oldAttr:= (node.Attributes.item(0) as TdomAttr);
+      oldAttr.setIsReadonly(false);
+      (node as TdomElement).RemoveAttributeNode(oldAttr);
+      node.OwnerDocument.FreeAllNodes(TdomNode(oldAttr));
+    end;
+  end; {case ...}
+  index:= FCreatedNodes.IndexOf(node);
+  node.free;
+  FCreatedNodes.Delete(index);
+  node:= nil;
+end;
+
+procedure TdomDocument.freeExpression(var expression: TdomXPathExpression);
+var
+  index: integer;
+begin
+  if not assigned(expression) then exit;
+  index:= FCreatedExpressions.IndexOf(expression);
+  if index = -1
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  FCreatedExpressions.delete(index);
+  expression.free;
+  expression:= nil;
+end;
+
+procedure TdomDocument.freeNSResolver(var resolver: TdomXPathNSResolver);
+var
+  index: integer;
+begin
+  if not assigned(resolver) then exit;
+  index:= FCreatedNSResolvers.IndexOf(resolver);
+  if index = -1
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  FCreatedNSResolvers.Delete(index);
+  resolver.free;
+  resolver:= nil;
+end;
+
+procedure TdomDocument.freeTreeWalker(var TreeWalker: TdomTreeWalker);
+var
+  TreeWalkerIndex: integer;
+begin
+  if not assigned(TreeWalker) then exit;
+  TreeWalkerIndex:= FCreatedTreeWalkers.IndexOf(TreeWalker);
+  if TreeWalkerIndex = -1
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  FCreatedTreeWalkers.Delete(TreeWalkerIndex);
+  TreeWalker.free;
+  TreeWalker:= nil;
+end;
+
+function TdomDocument.GetElementById(const elementId: UnicodeString): TdomElement;
+begin
+  result:= nil;
+end;
+
+function TdomDocument.GetElementsByTagName(const tagName: UnicodeString): TdomNodeList;
+var
+  i: integer;
+begin
+  for i:= 0 to FCreatedElementsNodeLists.Count - 1 do
+    if TdomElementsNodeList(FCreatedElementsNodeLists[i]).FQueryName = tagName
+      then begin Result:= TdomElementsNodeList(FCreatedElementsNodeLists[i]); exit; end;
+  Result:= TdomElementsNodeList.create(tagName,self);
+  FCreatedElementsNodeLists.add(Result);
+end;
+
+function TdomDocument.GetElementsByTagNameNS(const anamespaceURI,
+                                                   alocalName: UnicodeString): TdomNodeList;
+var
+  i: integer;
+  nl: TdomElementsNodeListNS;
+begin
+  for i:= 0 to FCreatedElementsNodeListNSs.Count - 1 do begin
+    nl:= TdomElementsNodeListNS(FCreatedElementsNodeListNSs[i]);
+    if (nl.FQueryNamespaceURI = anamespaceURI) and (nl.FQueryLocalName = alocalName)
+      then begin Result:= nl; exit; end;
+  end;
+  Result:= TdomElementsNodeListNS.create(anamespaceURI,alocalName,self);
+  FCreatedElementsNodeListNSs.add(Result);
+end;
+
+function TdomDocument.insertBefore(const newChild,
+                                         refChild: TdomNode): TdomNode;
+begin
+  if not assigned(newChild)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  case newChild.NodeType of
+    ntElement_Node: begin
+      if assigned(DocType) then begin
+        if DocType.NodeName <> newChild.NodeName
+          then raise EInvalid_Character_Err.create('Invalid character error.');
+        if ChildNodes.IndexOf(DocType) >= ChildNodes.IndexOf(refChild)
+          then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      end;
+      if assigned(DocumentElement)
+        then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      Result:= inherited insertBefore(newChild,refChild);
+      end;
+    ntDocument_Type_Node: begin
+      if assigned(DocumentElement) then begin
+        if DocumentElement.NodeName <> newChild.NodeName
+          then raise EInvalid_Character_Err.create('Invalid character error.');
+        if ChildNodes.IndexOf(DocumentElement) < ChildNodes.IndexOf(refChild)
+          then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      end;
+      if assigned(DocType)
+        then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      Result:= inherited insertBefore(newChild,refChild);
+      end;
+    ntProcessing_Instruction_Node,ntComment_Node,ntDocument_Fragment_Node:
+      Result:= inherited insertBefore(newChild,refChild);
+  else
+    raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  end;
+end;
+
+function TdomDocument.replaceChild(const newChild,
+                                         oldChild: TdomNode): TdomNode;
+begin
+  if not ( assigned(newChild) and assigned(oldChild) )
+    then raise ENot_Supported_Err.create('Not supported error.');
+  case newChild.NodeType of
+    ntElement_Node: begin
+      if assigned(DocumentElement) and (DocumentElement <> oldChild)
+        then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      if assigned(DocType) then
+        if DocType.NodeName <> newChild.NodeName
+          then raise EInvalid_Character_Err.create('Invalid character error.');
+      Result:= inherited replaceChild(newChild,oldChild);
+      end;
+    ntDocument_Type_Node: begin
+      if assigned(DocType) and (DocType <> oldChild)
+        then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      if assigned(DocumentElement)
+        then if DocumentElement.NodeName <> newChild.NodeName
+          then raise EInvalid_Character_Err.create('Invalid character error.');
+      Result:= inherited replaceChild(newChild,oldChild);
+      end;
+    ntProcessing_Instruction_Node,ntComment_Node,
+    ntDocument_Fragment_Node:
+      Result:= inherited replaceChild(newChild,oldChild);
+  else
+    raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  end;
+end;
+
+function TdomDocument.appendChild(const newChild: TdomNode): TdomNode;
+begin
+  if not assigned(newChild)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  case newChild.NodeType of
+    ntElement_Node: begin
+      if assigned(DocumentElement)
+        then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      Result:= inherited appendChild(newChild);
+      end;
+    ntDocument_Type_Node: begin
+      if assigned(Doctype) or assigned(DocumentElement)
+        then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      Result:= inherited appendChild(newChild);
+      end;
+    ntProcessing_Instruction_Node,ntComment_Node,
+    ntDocument_Fragment_Node:
+      Result:= inherited appendChild(newChild);
+  else
+    raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  end;
+end;
+
+function TdomDocument.CreateNodeIterator(const root: TdomNode;
+                                               whatToShow: TdomWhatToShow;
+                                               nodeFilter: TdomNodeFilter;
+                                               entityReferenceExpansion: boolean): TdomNodeIterator;
+begin
+  Result:= TdomNodeIterator.create(root,whatToShow,nodeFilter,entityReferenceExpansion);
+  FCreatedNodeIterators.add(Result);
+end;
+
+function TdomDocument.CreateTreeWalker(const root: TdomNode;
+                                             whatToShow: TdomWhatToShow;
+                                             nodeFilter: TdomNodeFilter;
+                                             entityReferenceExpansion: boolean): TdomTreeWalker;
+begin;
+  Result:= TdomTreeWalker.create(root,whatToShow,nodeFilter,entityReferenceExpansion);
+  FCreatedTreeWalkers.add(Result);
+end;
+
+function TdomDocument.CreateNSResolver(const nodeResolver: TdomNode): TdomXPathNSResolver;
+begin;
+  Result:= TdomXPathNSResolver.create(nodeResolver);
+  FCreatedNSResolvers.add(Result);
+end;
+
+function TdomDocument.validate(const opt: TdomEntityResolveOption): boolean;
+var
+  i: integer;
+  ok: boolean;
+begin
+  result:= true;
+
+  if not assigned(documentElement)
+    then raise EValidation_Err.create('Validation Error: Root not found.');
+
+  if assigned(docType) then begin
+    if assigned(contentModel)
+      then if not contentModel.validate
+        then result:= false;
+  end;
+
+  ok:= resolveEntityReferences(opt);
+  if not ok then begin
+    result:= false;
+    sendErrorNotification(ET_UNRESOLVABLE_ENTITY_REFERENCE,self);
+  end;
+
+  // VC: Root Element Type (XML 1.0, � 2.8)
+  if assigned(docType) then begin
+    if docType.name <> documentElement.NodeName then begin
+      result:= false;
+      sendErrorNotification(ET_WRONG_ROOT_ELEMENT_TYPE,self);
+    end;
+  end;
+
+  IDs.clear;
+  for i:= 0 to pred(childnodes.length) do begin
+    if not childnodes.item(i).validate2
+      then result:= false;
+  end;
+  if not result then IDs.clear
+  else begin
+    // VC: IDREF (XML 1.0, � 3.3.1)
+    // Second parse only for IDREF and IDREFS:
+    if not validateIDREFs
+      then result:= false;
+  end;
+end;
+
+function TdomDocument.validateIDREFS: boolean;
+begin
+  result:= documentElement.validateIDREFS;
+end;
+
+
+
+//+++++++++++++++++++++++++ TdomASObjectList +++++++++++++++++++++++++++++
+constructor TdomASObjectList.create;
+begin
+  inherited create;
+  FNodeList:= TList.create;
+end;
+
+destructor TdomASObjectList.destroy;
+begin
+  FNodeList.free;
+  inherited;
+end;
+
+procedure TdomASObjectList.clear;
+begin
+  FNodeList.clear;
+end;
+
+function TdomASObjectList.appendASNode(const newNode: TdomASObject): TdomASObject;
+begin
+  FNodeList.Add(newNode);
+  result:= newNode;
+end;
+
+procedure TdomASObjectList.Delete(const index: integer);
+begin
+  FNodeList.Delete(index);
+end;
+
+function TdomASObjectList.indexOf(const node: TdomASObject): integer;
+begin
+  result:= FNodeList.indexOf(node);
+end;
+
+function TdomASObjectList.getLength: integer;
+begin
+  Result:= FNodeList.count;
+end;
+
+function TdomASObjectList.insertBefore(const newNode,
+                                           refNode: TdomASObject): TdomASObject;
+begin
+  Result:= newNode;
+  with FNodeList do
+    if assigned(refNode)
+      then insert(indexOf(refNode),newNode)
+      else add(newNode);
+end;
+
+function TdomASObjectList.removeASNode(const oldNode: TdomASObject): TdomASObject;
+begin
+  Result:= oldNode;
+  FNodeList.Remove(oldNode);
+end;
+
+function TdomASObjectList.item(const index: integer): TdomASObject;
+begin
+  if (index < 0) or (index + 1 > FNodeList.count)
+    then Result:= nil
+    else Result:= TdomASObject(FNodeList.Items[index]);
+end;
+
+
+
+//+++++++++++++++++++++++++ TdomASNamedObjectMap +++++++++++++++++++++++++
+constructor TdomASNamedObjectMap.create(const aOwner: TdomASModel;
+                                      const namespaceAware: boolean);
+begin
+  inherited create;
+  FOwnerAsModel:= aOwner;
+  FNamespaceAware:= namespaceAware;
+  FNodeList:= TList.create;
+  FNamespaceAware:= false;
+end;
+
+destructor TdomASNamedObjectMap.destroy;
+begin
+  FNodeList.free;
+  inherited;
+end;
+
+function TdomASNamedObjectMap.getLength: integer;
+begin
+  Result:= FNodeList.count;
+end;
+
+function TdomASNamedObjectMap.GetNamedItem(const name: UnicodeString): TdomASObject;
+var
+  i: integer;
+begin
+  if FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  result:= nil;
+  for i:= 0 to pred(FNodeList.count) do
+    if (TdomASObject(FNodeList[i]).ASObjectName = name) then begin
+      Result:= TdomASObject(FNodeList[i]);
+      break;
+    end;
+end;
+
+function TdomASNamedObjectMap.GetNamedItemNS(const namespaceURI,
+                                                     localName: UnicodeString): TdomASObject;
+var
+  i: integer;
+begin
+  if not FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  result:= nil;
+  for i:= 0 to pred(FNodeList.count) do
+    if (TdomASObject(FNodeList[i]).namespaceURI = namespaceURI)
+      and (TdomASObject(FNodeList[i]).localName = localName) then begin
+      Result:= TdomASObject(FNodeList[i]);
+      break;
+    end;
+end;
+
+function TdomASNamedObjectMap.item(const index: integer): TdomASObject;
+begin
+  if (index < 0) or (index + 1 > FNodeList.count)
+    then Result:= nil
+    else Result:= TdomASObject(FNodeList.Items[index]);
+end;
+
+function TdomASNamedObjectMap.RemoveNamedItem(const name: UnicodeString): TdomASObject;
+begin
+  if FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  Result:= getNamedItem(name);
+  if not assigned(Result)
+    then raise ENot_Found_Err.create('Not found error.');
+  FNodeList.Remove(Result);
+  Result.FInuse:= false;
+end;
+
+function TdomASNamedObjectMap.RemoveNamedItemNS(const namespaceURI,
+                                                 localName: UnicodeString): TdomASObject;
+begin
+  if not FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  Result:= getNamedItemNS(namespaceURI,localName);
+  if not assigned(Result)
+    then raise ENot_Found_Err.create('Node not found error.');
+  FNodeList.Remove(Result);
+  Result.FInuse:= false;
+end;
+
+function TdomASNamedObjectMap.SetNamedItem(const arg: TdomASObject): TdomASObject;
+begin
+  if FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  if FOwnerAsModel <> arg.OwnerASModel
+    then raise EWrong_ASModel_Err.create('Wrong abstract schema model error.');
+  if arg.FInuse
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  if assigned(GetNamedItem(arg.ASObjectName))
+    then Result:= RemoveNamedItem(arg.ASObjectName)
+    else Result:= nil;
+  FNodeList.Add(arg);
+  Result.FInuse:= true;
+end;
+
+function TdomASNamedObjectMap.SetNamedItemNS(const arg: TdomASObject): TdomASObject;
+begin
+  if not FNamespaceAware then raise ENamespace_Err.create('Namespace error.');
+  if FOwnerAsModel <> arg.OwnerASModel
+    then raise EWrong_ASModel_Err.create('Wrong abstract schema model error.');
+  if arg.FInuse
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  if assigned(GetNamedItemNS(arg.namespaceURI,arg.localName))
+    then Result:= RemoveNamedItemNS(arg.namespaceURI,arg.localName)
+    else Result:= nil;
+  FNodeList.Add(arg);
+  Result.FInuse:= true;
+end;
+
+
+
+//+++++++++++++++++++++++++++ TdomASObject +++++++++++++++++++++++++++++++
+constructor TdomASObject.create(const aOwner: TdomASModel);
+begin
+  inherited create;
+  FOwnerAsModel:= aOwner;
+  FInuse:= false;
+end;
+
+procedure TdomASObject.setPrefix(const value: UnicodeString);
+begin
+  if not IsXmlName(value)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not IsXmlPrefix(value)
+    then raise ENamespace_Err.create('Namespace error.');
+  if namespaceURI = ''
+    then raise ENamespace_Err.create('Namespace error.');
+  if (value = 'xml') and (namespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  if FASObjectType = AS_ATTRIBUTE_DECLARATION then begin
+    if (value = 'xmlns')
+      and not (namespaceURI ='http://www.w3.org/2000/xmlns/')
+        then raise ENamespace_Err.create('Namespace error.');
+    if FASObjectName = 'xmlns'
+      then raise ENamespace_Err.create('Namespace error.');
+  end;
+  FPrefix:= value;
+  FASObjectName:= concat(value,':',localName);
+end;
+
+
+
+//+++++++++++++++++++++++++++ TdomASContentModel +++++++++++++++++++++++++++
+constructor TdomASContentModel.create(const aOwner: TdomASModel);
+begin
+  inherited create(aOwner);
+  FASObjectType:= AS_CONTENTMODEL;
+  FSubModels:= TdomASObjectList.create;
+  FListOperator:= AS_CHOICE;
+  FMaxOccurs:= AS_UNBOUND;
+  FMinOccurs:= 0;
+end;
+
+destructor TdomASContentModel.destroy;
+begin
+  FSubModels.free;
+  inherited;
+end;
+
+function TdomASContentModel.appendASNode(const newNode: TdomASObject): TdomASObject;
+begin
+  with newNode do begin
+    if FASObjectType = AS_CONTENTMODEL then begin
+      if FInuse then raise EInuse_Node_Err.create('Inuse node error.');
+      FInuse:= true;
+    end;
+  end;
+  result:= FSubModels.appendASNode(newNode);
+end;
+
+function TdomASContentModel.insertBefore(const newNode,
+                                           refNode: TdomASObject): TdomASObject;
+begin
+  with newNode do begin
+    if FASObjectType = AS_CONTENTMODEL then begin
+      if FInuse then raise EInuse_Node_Err.create('Inuse node error.');
+      FInuse:= true;
+    end;
+  end;
+  result:= FSubModels.insertBefore(newNode,refNode);
+end;
+
+function TdomASContentModel.removeASNode(const oldNode: TdomASObject): TdomASObject;
+begin
+  if FSubModels.indexof(oldNode) = -1
+    then raise ENot_Found_Err.create('Node not found error.');
+  with oldNode do
+    if FASObjectType = AS_CONTENTMODEL then FInuse:= false;
+  result:= FSubModels.removeASNode(oldNode);
+end;
+
+
+
+//++++++++++++++++++++++ TdomASAttributeDeclaration ++++++++++++++++++++++
+constructor TdomASAttributeDeclaration.create(const aOwner: TdomASModel;
+                                              const name: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FASObjectName:= name;
+  FASObjectType:= AS_ATTRIBUTE_DECLARATION;
+  FAttrType:= AS_STRING_DATATYPE;
+  FAttrValue:= '';
+  FConstraintType:= AS_NO_VALUE_CONSTRAINT;
+  FEnumAttr:= TdomWideStringList.create;
+end;
+
+constructor TdomASAttributeDeclaration.createNS(const aOwner: TdomASModel;
+                                                const anamespaceURI,
+                                                       qualifiedName: UnicodeString);
+var
+  locName,prfx: UnicodeString;
+begin
+  if not xmlExtractPrefixAndLocalName(qualifiedName,prfx,locName) then begin
+    if not IsXmlName(qualifiedName)
+      then raise EInvalid_Character_Err.create('Invalid character error.')
+      else raise ENamespace_Err.create('Namespace error.');
+  end;
+  if ( ((prfx = 'xmlns') or (qualifiedName = 'xmlns'))
+    and not (anamespaceURI ='http://www.w3.org/2000/xmlns/') )
+      then raise ENamespace_Err.create('Namespace error.');
+  if (anamespaceURI = '') and (prfx <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (prfx = 'xml') and (anamespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  create(aOwner,qualifiedName);
+  FNamespaceURI:= anamespaceURI;
+  FPrefix:= prfx;
+  FLocalName:= locName;
+end;
+
+destructor TdomASAttributeDeclaration.destroy;
+begin
+  FEnumAttr.free;
+  inherited;
+end;
+
+function TdomASAttributeDeclaration.getIsNamespaceAware: boolean;
+begin
+  result:= FOwnerAsModel.isNamespaceAware;
+end;
+
+
+
+
+//++++++++++++++++++++++++ TdomASEntityDeclaration +++++++++++++++++++++++
+constructor TdomASEntityDeclaration.create(const aOwner: TdomASModel;
+                                           const name: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FASObjectType:= AS_ENTITY_DECLARATION;
+  FEntityType:= AS_INTERNAL_ENTITY;
+  FEntityValue:= '';
+  FNotationName:= '';
+  FPublicId:= '';
+  FSystemId:= '';
+end;
+
+
+
+//+++++++++++++++++++++++ TdomASNotationDeclaration ++++++++++++++++++++++
+constructor TdomASNotationDeclaration.create(const aOwner: TdomASModel;
+                                             const name,
+                                                   pubId,
+                                                   sysId: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FASObjectType:= AS_NOTATION_DECLARATION;
+  FNotationName:= name;
+  FPublicId:= pubId;
+  FSystemId:= sysId;
+end;
+
+constructor TdomASNotationDeclaration.createNS(const aOwner: TdomASModel;
+                                               const anamespaceURI,
+                                                     qualifiedName,
+                                                     pubId,
+                                                     sysId: UnicodeString);
+var
+  locName,prfx: UnicodeString;
+begin
+  if not xmlExtractPrefixAndLocalName(qualifiedName,prfx,locName) then begin
+    if not IsXmlName(qualifiedName)
+      then raise EInvalid_Character_Err.create('Invalid character error.')
+      else raise ENamespace_Err.create('Namespace error.');
+  end;
+  if (anamespaceURI = '') and (prfx <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (prfx = 'xml') and (anamespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  create(aOwner,qualifiedName,pubId,sysId);
+  FNamespaceURI:= anamespaceURI;
+  FPrefix:= prfx;
+  FLocalName:= locName;
+end;
+
+
+
+//+++++++++++++++++++++++ TdomASElementDeclaration +++++++++++++++++++++++
+constructor TdomASElementDeclaration.create(const aOwner: TdomASModel;
+                                            const name: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FASObjectType:= AS_ELEMENT_DECLARATION;
+  FASObjectName:= name;
+  FAttributeDeclarations:= TdomASNamedObjectMap.create(aOwner,aOwner.FNamespaceAware);
+  FContentModel:= aOwner.createASContentModel;
+  FContentModel.FInuse:= true;
+  FContentType:= AS_MIXED;
+  FElementType:= AS_STRING_DATATYPE;
+  FIsPCDataOnly:= false;
+  FStrictMixedContent:= false;
+end;
+
+constructor TdomASElementDeclaration.createNS(const aOwner: TdomASModel;
+                                              const anamespaceURI,
+                                                    qualifiedName: UnicodeString);
+var
+  locName,prfx: UnicodeString;
+begin
+  if not xmlExtractPrefixAndLocalName(qualifiedName,prfx,locName) then begin
+    if not IsXmlName(qualifiedName)
+      then raise EInvalid_Character_Err.create('Invalid character error.')
+      else raise ENamespace_Err.create('Namespace error.');
+  end;
+  if (anamespaceURI = '') and (prfx <> '')
+    then raise ENamespace_Err.create('Namespace error.');
+  if (prfx = 'xml') and (anamespaceURI <> 'http://www.w3.org/XML/1998/namespace')
+    then raise ENamespace_Err.create('Namespace error.');
+  create(aOwner,qualifiedName);
+  FNamespaceURI:= anamespaceURI;
+  FPrefix:= prfx;
+  FLocalName:= locName;
+end;
+
+destructor TdomASElementDeclaration.destroy;
+begin
+  FAttributeDeclarations.free;
+  inherited;
+end;
+
+function TdomASElementDeclaration.getIsNamespaceAware: boolean;
+begin
+  result:= FOwnerAsModel.isNamespaceAware;
+end;
+
+function TdomASElementDeclaration.addASAttributeDecl(const arg: TdomASAttributeDeclaration): boolean;
+begin
+  if arg.ownerASModel <> ownerASModel
+    then raise EWrong_ASModel_Err.create('Wrong abstract schema model error.');
+  if arg.FInuse then raise EInuse_Node_Err.create('Inuse node error.');
+  if isNamespaceAware then begin
+    if assigned(FAttributeDeclarations.getNamedItemNS(arg.namespaceURI,arg.localName)) then begin
+      result:= false;
+    end else begin
+      FAttributeDeclarations.setNamedItemNS(arg);
+      arg.FInuse:= true;
+      result:= true;
+    end;
+  end else begin
+    if assigned(FAttributeDeclarations.getNamedItem(arg.ASObjectName)) then begin
+      result:= false;
+    end else begin
+      FAttributeDeclarations.setNamedItem(arg);
+      arg.FInuse:= true;
+      result:= true;
+    end;
+  end;
+end;
+
+function TdomASElementDeclaration.removeASAttributeDeclaration(const arg: TdomASAttributeDeclaration): TdomASAttributeDeclaration;
+begin
+  if arg.ownerASModel <> ownerASModel
+    then raise EWrong_ASModel_Err.create('Wrong abstract schema model error.');
+  if isNamespaceAware then begin
+    if arg = FAttributeDeclarations.getNamedItemNS(arg.namespaceURI,arg.localName) then begin
+      result:= (FAttributeDeclarations.removeNamedItemNS(arg.namespaceURI,arg.localName) as TdomASAttributeDeclaration);
+      result.FInuse:= false;
+    end else result:= nil;
+  end else begin
+    if arg = FAttributeDeclarations.getNamedItem(arg.ASObjectName) then begin
+      result:= (FAttributeDeclarations.removeNamedItem(arg.ASObjectName) as TdomASAttributeDeclaration);
+      result.FInuse:= false;
+    end else result:= nil;
+  end;
+end;
+
+
+
+//+++++++++++++++++++++++++++++ TdomASModel +++++++++++++++++++++++++++++
+constructor TdomASModel.create(const aOwner: TDomImplementation;
+                               const namespaceAware: boolean);
+begin
+  inherited create(nil);
+  FDomImpl:= aOwner;
+  FNamespaceAware:= namespaceAware;
+  FASObjectType:= AS_MODEL;
+  FAttributeDeclarations:= TdomASNamedObjectMap.create(self,namespaceAware);
+  FContentModelDeclarations:= TdomASNamedObjectMap.create(self,namespaceAware);
+  FElementDeclarations:= TdomASNamedObjectMap.create(self,namespaceAware);
+  FEntityDeclarations:= TdomASNamedObjectMap.create(self,false);
+  FNotationDeclarations:= TdomASNamedObjectMap.create(self,false);
+  FCreatedASNodes:= TdomASObjectList.create;
+end;
+
+destructor TdomASModel.destroy;
+begin
+  clear;
+  FAttributeDeclarations.free;
+  FContentModelDeclarations.free;
+  FElementDeclarations.free;
+  FEntityDeclarations.free;
+  FNotationDeclarations.free;
+  FCreatedASNodes.free;
+  inherited;
+end;
+
+function TdomASModel.getContainer: boolean;
+begin
+  result:= (usage in [AS_EXTERNAL_SUBSET,AS_NOT_USED]);
+  // xxx and the container is simply a container of other TdomASModels.
+end;
+
+function TdomASModel.addNamedASElementDeclaration(const arg: TdomASElementDeclaration): boolean;
+begin
+  if arg.OwnerASModel <> self
+    then raise EWrong_ASModel_Err.create('Wrong abstract schema model error.');
+  if isNamespaceAware then begin
+    if assigned(FElementDeclarations.getNamedItemNS(arg.namespaceURI,arg.localName)) then begin
+      result:= false;
+    end else begin
+      FElementDeclarations.setNamedItemNS(arg);
+      result:= true;
+    end;
+  end else begin
+    if assigned(FElementDeclarations.getNamedItem(arg.ASObjectName)) then begin
+      result:= false;
+    end else begin
+      FElementDeclarations.setNamedItem(arg);
+      result:= true;
+    end;
+  end;
+end;
+
+function TdomASModel.addNamedASEntityDeclaration(const arg: TdomASEntityDeclaration): boolean;
+begin
+  if arg.OwnerASModel <> self
+    then raise EWrong_ASModel_Err.create('Wrong abstract schema model error.');
+  if assigned(FEntityDeclarations.getNamedItem(arg.ASObjectName)) then begin
+    result:= false;
+  end else begin
+    FEntityDeclarations.setNamedItem(arg);
+    result:= true;
+  end;
+end;
+
+function TdomASModel.addNamedASNotationDeclaration(const arg: TdomASNotationDeclaration): boolean;
+begin
+  if arg.OwnerASModel <> self
+    then raise EWrong_ASModel_Err.create('Wrong abstract schema model error.');
+  if isNamespaceAware then begin
+    if assigned(FNotationDeclarations.getNamedItemNS(arg.namespaceURI,arg.localName)) then begin
+      result:= false;
+    end else begin
+      FNotationDeclarations.setNamedItemNS(arg);
+      result:= true;
+    end;
+  end else begin
+    if assigned(FNotationDeclarations.getNamedItem(arg.ASObjectName)) then begin
+      result:= false;
+    end else begin
+      FNotationDeclarations.setNamedItem(arg);
+      result:= true;
+    end;
+  end;
+end;
+
+procedure TdomASModel.clear;
+var
+  i: integer;
+begin
+  for i := 0 to pred(FCreatedASNodes.length) do
+    TdomASObject(FCreatedASNodes.item(i)).free;
+  FCreatedASNodes.clear;
+end;
+
+function TdomASModel.createASAttributeDeclaration(const anamespaceURI,
+                                                        qualifiedName: UnicodeString): TdomASAttributeDeclaration;
+begin
+  if isNamespaceAware
+    then result:= TdomASAttributeDeclaration.createNS(self,anamespaceURI,qualifiedName)
+    else result:= TdomASAttributeDeclaration.create(self,qualifiedName);
+  FCreatedASNodes.appendASNode(result);
+end;
+
+function TdomASModel.createASContentModel: TdomASContentModel;
+begin
+  result:= TdomASContentModel.create(self);
+  FCreatedASNodes.appendASNode(result);
+end;
+
+function TdomASModel.createASElementDeclaration(const anamespaceURI,
+                                                      qualifiedName: UnicodeString): TdomASElementDeclaration;
+begin
+  if isNamespaceAware
+    then result:= TdomASElementDeclaration.createNS(self,anamespaceURI,qualifiedName)
+    else result:= TdomASElementDeclaration.create(self,qualifiedName);
+  FCreatedASNodes.appendASNode(result);
+end;
+
+function TdomASModel.createASEntityDeclaration(const name: UnicodeString): TdomASEntityDeclaration;
+begin
+  result:= TdomASEntityDeclaration.create(self,name);
+  FCreatedASNodes.appendASNode(result);
+end;
+
+function TdomASModel.createASNotationDeclaration(const name,
+                                                       pubId,
+                                                       sysId: UnicodeString): TdomASNotationDeclaration;
+begin
+  result:= TdomASNotationDeclaration.create(self,name,pubId,sysId);
+  FCreatedASNodes.appendASNode(result);
+end;
+
+procedure TdomASModel.freeAllASObjects(var obj: TdomASObject);
+var
+  index: integer;
+  oldASAttrDecl,oldASChildren: TdomASObject;
+  subModelASObject: TdomASObject;
+begin
+  if not assigned(obj) then exit;
+  if obj.OwnerASModel <> self
+    then raise EWrong_ASModel_Err.create('Wrong abstract schema model error.');
+  if obj.FInuse
+    then raise EInuse_Node_Err.create('Inuse obj error.');
+
+  case obj.ASObjectType of
+    AS_ELEMENT_DECLARATION: begin
+      with (obj as TdomASElementDeclaration) do begin
+        with attributeDecls do begin
+          for index:= 0 to pred(length) do begin
+            oldASAttrDecl:= item(index);
+            oldASAttrDecl.FInuse:= false;
+            FreeAllASObjects(oldASAttrDecl);
+          end; {for ...}
+        end; {with ...}
+        oldASChildren:= contentModel;
+        oldASChildren.FInuse:= false;
+        FreeAllASObjects(oldASChildren);
+      end; {with ...}
+    end;
+    AS_CONTENTMODEL: begin
+      with (obj as TdomASContentModel).SubModels do begin
+        for index:= 0 to pred(length) do begin
+          subModelASObject:= item(index);
+          if subModelASObject.ASObjectType = AS_CONTENTMODEL then begin
+            subModelASObject.FInuse:= false;
+            FreeAllASObjects(subModelASObject);
+          end;
+        end; {for ...}
+      end {with ...}
+    end;
+  end; {case ...}
+
+  index:= FCreatedASNodes.IndexOf(obj);
+  obj.free;
+  FCreatedASNodes.Delete(index);
+  obj:= nil;
+end;
+
+function TdomASModel.getNamedASElementDeclaration(const anamespaceURI,
+                                                        name: UnicodeString): TdomASElementDeclaration;
+begin
+  if isNamespaceAware
+    then result:= (FElementDeclarations.getNamedItemNS(anamespaceURI,name) as TdomASElementDeclaration)
+    else result:= (FElementDeclarations.getNamedItem(name) as TdomASElementDeclaration);
+end;
+
+function TdomASModel.getNamedASEntityDeclaration(const name: UnicodeString): TdomASEntityDeclaration;
+begin
+  result:= (FEntityDeclarations.getNamedItem(name) as TdomASEntityDeclaration);
+end;
+
+function TdomASModel.getNamedASNotationDeclaration(const anamespaceURI,
+                                                         name: UnicodeString): TdomASNotationDeclaration;
+begin
+  if isNamespaceAware
+    then result:= (FNotationDeclarations.getNamedItemNS(anamespaceURI,name) as TdomASNotationDeclaration)
+    else result:= (FNotationDeclarations.getNamedItem(name) as TdomASNotationDeclaration);
+end;
+
+function TdomASModel.removeNamedASElementDeclaration(const anamespaceURI,
+                                                           name: UnicodeString): TdomASElementDeclaration;
+begin
+  if isNamespaceAware
+    then result:= (FElementDeclarations.removeNamedItemNS(anamespaceURI,name) as TdomASElementDeclaration)
+    else result:= (FElementDeclarations.removeNamedItem(name) as TdomASElementDeclaration);
+end;
+
+function TdomASModel.removeNamedASEntityDeclaration(const name: UnicodeString): TdomASEntityDeclaration;
+begin
+  result:= (FEntityDeclarations.removeNamedItem(name) as TdomASEntityDeclaration);
+end;
+
+function TdomASModel.removeNamedASNotationDeclaration(const anamespaceURI,
+                                                            name: UnicodeString): TdomASNotationDeclaration;
+begin
+  if isNamespaceAware
+    then result:= (FNotationDeclarations.removeNamedItemNS(anamespaceURI,name) as TdomASNotationDeclaration)
+    else result:= (FNotationDeclarations.removeNamedItem(name) as TdomASNotationDeclaration);
+end;
+
+
+
+//+++++++++++++++++++++++++ TdomCMNodeList +++++++++++++++++++++++++++++
+constructor TdomCMNodeList.create(const CMNodeList: TList);
+begin
+  inherited create;
+  FCMNodeList:= CMNodeList;
+end;
+
+function TdomCMNodeList.GetLength: integer;
+begin
+  Result:= FCMNodeList.count;
+end;
+
+function TdomCMNodeList.IndexOf(const node: TdomCMNode): integer;
+begin
+  Result:= FCMNodeList.IndexOf(node);
+end;
+
+function TdomCMNodeList.Item(const index: integer): TdomCMNode;
+begin
+  if (index < 0) or (index + 1 > FCMNodeList.count)
+    then Result:= nil
+    else Result:= TdomCMNode(FCMNodeList.Items[index]);
+end;
+
+
+//+++++++++++++++++++++++ TdomNamedCMNodeMap +++++++++++++++++++++++++++
+constructor TdomNamedCMNodeMap.create(const aOwner,
+                                            aOwnerNode: TdomCMNode;
+                                      const nodeList: TList;
+                                      const allowedNTs: TDomCMNodeTypeSet);
+begin
+  inherited create(nodeList);
+  FOwner:= aOwner;
+  FOwnerNode:= aOwnerNode;
+  FAllowedNodeTypes:= allowedNTs;
+  FIsReadonly:= false;
+end;
+
+function TdomNamedCMNodeMap.getOwnerNode: TdomCMNode;
+begin
+  Result:= FOwnerNode;
+end;
+
+function TdomNamedCMNodeMap.RemoveItem(const arg: TdomCMNode): TdomCMNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FCMNodeList.IndexOf(arg) = -1
+    then raise ENot_Found_Err.create('Node not found error.');
+  Result:= arg;
+  FCMNodeList.Remove(arg);
+  Result.FParentNode:= nil;
+end;
+
+procedure TdomNamedCMNodeMap.setIsReadonly(const value: boolean);
+begin
+  FIsReadonly:= value;
+end;
+
+function TdomNamedCMNodeMap.GetNamedIndex(const name: UnicodeString): integer;
+var
+  i: integer;
+begin
+  result:= -1;
+  for i:= 0 to FCMNodeList.count-1 do
+    if (TdomCMNode(FCMNodeList[i]).NodeName = name)
+      and (TdomCMNode(FCMNodeList[i]).NodeType in FAllowedNodeTypes) then begin
+      Result:= i;
+      break;
+    end;
+end;
+
+function TdomNamedCMNodeMap.GetNamedItem(const name: UnicodeString): TdomCMNode;
+var
+  i: integer;
+begin
+  result:= nil;
+  for i:= 0 to FCMNodeList.count-1 do
+    if (TdomCMNode(FCMNodeList[i]).NodeName = name)
+      and (TdomCMNode(FCMNodeList[i]).NodeType in FAllowedNodeTypes) then begin
+      Result:= TdomCMNode(FCMNodeList[i]);
+      break;
+    end;
+end;
+
+function TdomNamedCMNodeMap.SetNamedItem(const arg: TdomCMNode): TdomCMNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FOwner.OwnerCMObject <> arg.OwnerCMObject
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if not (arg.NodeType in FAllowedNodeTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if assigned(arg.parentNode)
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  if assigned(GetNamedItem(arg.NodeName))
+    then Result:= RemoveNamedItem(arg.NodeName)
+    else Result:= nil;
+  FCMNodeList.Add(arg);
+  arg.FParentNode:= nil;
+end;
+
+function TdomNamedCMNodeMap.RemoveNamedItem(const name: UnicodeString): TdomCMNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= getNamedItem(name);
+  if not assigned(Result)
+    then raise ENot_Found_Err.create('Node not found error.');
+  FCMNodeList.Remove(Result);
+end;
+
+
+
+// ++++++++++++++++++++++ TdomNamedCMAttributeMap ++++++++++++++++++++++
+constructor TdomNamedCMAttributeMap.create(const aOwner: TdomCMObject);
+begin
+  inherited create;
+  FOwner:= aOwner;
+  FCMAttributesList:= TList.create;
+end;
+
+destructor TdomNamedCMAttributeMap.destroy;
+begin
+  FCMAttributesList.free;
+  inherited destroy;
+end;
+
+function TdomNamedCMAttributeMap.GetLength: integer;
+begin
+  result:= FCMAttributesList.count;
+end;
+
+function TdomNamedCMAttributeMap.item(const index: integer): TdomCMAttribute;
+begin
+  if (index < 0) or (index + 1 > FCMAttributesList.count)
+    then Result:= nil
+    else Result:= TdomCMAttribute(FCMAttributesList.Items[index]);
+end;
+
+function TdomNamedCMAttributeMap.GetNamedItem(const elementName,
+                                                    attributeName: UnicodeString): TdomCMAttribute;
+var
+  i: integer;
+  cmAttr: TdomCMAttribute;
+begin
+  result:= nil;
+  for i:= 0 to FCMAttributesList.count-1 do begin
+    cmAttr:= TdomCMAttribute(FCMAttributesList[i]);
+    if (cmAttr.elementName = elementName) and (cmAttr.attributeName = attributeName)
+      then begin Result:= cmAttr; break; end;
+  end;
+end;
+
+function TdomNamedCMAttributeMap.appendNamedItem(const arg: TdomCMAttribute): boolean;
+begin
+  if FOwner.OwnerCMObject <> arg.OwnerCMObject
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if assigned(arg.parentNode)
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  if assigned(GetNamedItem(arg.elementName,arg.attributeName)) then begin
+    result:= false;
+  end else begin
+    result:= true;
+    FCMAttributesList.Add(arg);
+    arg.FParentNode:= FOwner;
+    arg.FCMObject:= FOwner;
+  end; {if ...}
+end;
+
+function TdomNamedCMAttributeMap.removeLastItem: TdomCMAttribute;
+begin
+  with FCMAttributesList do begin
+    result:= TdomCMAttribute(Last);
+    if not assigned(result)
+      then raise ENot_Found_Err.create('Node not found error.');
+    remove(Last);
+  end;
+  Result.FCMObject:= nil;
+  Result.FParentNode:= nil;
+end;
+
+
+
+// +++++++++++++++++++++++ TdomNamedCMEntityMap +++++++++++++++++++++++
+constructor TdomNamedCMEntityMap.create(const aOwner: TdomCMObject);
+begin
+  inherited create;
+  FOwner:= aOwner;
+  FCMEntitiesList:= TList.create;
+end;
+
+destructor TdomNamedCMEntityMap.destroy;
+begin
+  FCMEntitiesList.free;
+  inherited destroy;
+end;
+
+function TdomNamedCMEntityMap.GetLength: integer;
+begin
+  result:= FCMEntitiesList.count;
+end;
+
+function TdomNamedCMEntityMap.item(const index: integer): TdomCMEntity;
+begin
+  if (index < 0) or (index + 1 > FCMEntitiesList.count)
+    then Result:= nil
+    else Result:= TdomCMEntity(FCMEntitiesList.Items[index]);
+end;
+
+function TdomNamedCMEntityMap.GetNamedItem(const name: UnicodeString): TdomCMEntity;
+var
+  i: integer;
+begin
+  result:= nil;
+  for i:= 0 to FCMEntitiesList.count-1 do
+    if (TdomCMEntity(FCMEntitiesList[i]).NodeName = name) then begin
+      Result:= TdomCMEntity(FCMEntitiesList[i]);
+      break;
+    end;
+end;
+
+function TdomNamedCMEntityMap.appendNamedItem(const arg: TdomCMEntity): boolean;
+begin
+  if FOwner.OwnerCMObject <> arg.OwnerCMObject
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if assigned(arg.parentNode)
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  if assigned(GetNamedItem(arg.NodeName)) then begin
+    result:= false;
+  end else begin
+    // Append 'arg':
+    result:= true;
+    FCMEntitiesList.Add(arg);
+    arg.FParentNode:= FOwner;
+  end; {if ...}
+end;
+
+function TdomNamedCMEntityMap.removeLastItem: TdomCMEntity;
+begin
+  with FCMEntitiesList do begin
+    result:= TdomCMEntity(Last);
+    if not assigned(result)
+      then raise ENot_Found_Err.create('Node not found error.');
+    remove(Last);
+  end;
+  Result.FParentNode:= nil;
+end;
+
+
+
+//+++++++++++++++++++++++++++ TdomCMNode +++++++++++++++++++++++++++++++
+constructor TdomCMNode.create(const aOwner: TdomCustomCMObject);
+begin
+  inherited create;
+  FCMObject:= aOwner;
+  FParentNode:= nil;
+  FCMNodeListing:= TList.create;
+  FCMNodeList:= TdomCMNodeList.create(FCMNodeListing);
+  FNodeName:= '';
+  FNodeValue:= '';
+  FNodeType:= ctUnknown;
+  FAllowedChildTypes:= [];
+  FIsReadonly:= false;
+end;
+
+destructor TdomCMNode.destroy;
+begin
+  FCMNodeListing.free;
+  FCMNodeList.free;
+  inherited destroy;
+end;
+
+procedure TdomCMNode.clear;
+var
+  oldCMChild: TdomCMNode;
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  while hasChildNodes do begin
+    firstChild.setIsReadonly(false);
+    oldCMChild:= removeChild(firstChild);
+    OwnerCMObject.FreeAllCMNodes(oldCMChild);
+  end;
+end;
+
+procedure TdomCMNode.makeChildrenReadonly;
+var
+  i: integer;
+begin
+  with childnodes do
+    for i:= 0 to pred(length) do
+      with item(i) do begin
+        item(i).setIsReadonly(true);
+        item(i).makeChildrenReadonly;
+      end;
+end;
+
+function TdomCMNode.GetNodeName: UnicodeString;
+begin
+  Result:= FNodeName;
+end;
+
+function TdomCMNode.GetNodeValue: UnicodeString;
+begin
+  Result:= FNodeValue;
+end;
+
+procedure TdomCMNode.SetNodeValue(const value: UnicodeString);
+begin
+  if isReadonly = true
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  FNodeValue:= value;
+end;
+
+function TdomCMNode.GetCMNodeType: TdomCMNodeType;
+begin
+  Result:= FNodeType;
+end;
+
+function TdomCMNode.GetParentNode: TdomCMNode;
+begin
+  Result:= FParentNode;
+end;
+
+function TdomCMNode.GetCMObject: TdomCustomCMObject;
+begin
+  Result:= FCMObject;
+end;
+
+function TdomCMNode.validate: boolean;
+begin
+  Result := False;
+  raise ENot_Supported_Err.create('Not supported error.');
+end;
+
+function TdomCMNode.sendErrorNotification(const xmlErrorType: TXmlErrorType;
+                                          const relCMNode: TdomCMNode): boolean;
+// Used to centralize code for sending error notifications to the DomImplementation.
+// Usually used during validation.
+var
+  domImpl: TDomImplementation;
+  error: TdomError;
+begin
+  if assigned(ownerCMObject)
+    then domImpl:= ownerCMObject.domImplementation
+    else domImpl:= nil;
+
+  error:= TdomError.create(xmlErrorType,-1,-1,-1,-1,-1,'',relCMNode,nil,'');
+  try
+    if assigned(domImpl) then begin
+      result:= domImpl.handleError(domImpl,error);
+    end else if error.severity = DOM_SEVERITY_FATAL_ERROR
+      then result:= false
+      else result:= true;
+  finally
+    error.free;
+  end;
+end;
+
+function TdomCMNode.getChildNodes: TdomCMNodeList;
+begin
+  Result:= FCMNodeList;
+end;
+
+function TdomCMNode.getFirstChild: TdomCMNode;
+begin
+  if FCMNodeListing.count = 0
+    then Result:= nil
+    else Result:= TdomCMNode(FCMNodeListing.First);
+end;
+
+function TdomCMNode.getLastChild: TdomCMNode;
+begin
+  if FCMNodeListing.count = 0
+    then Result:= nil
+    else Result:= TdomCMNode(FCMNodeListing.Last);
+end;
+
+function TdomCMNode.getNextSibling: TdomCMNode;
+begin
+  if assigned(ParentNode)
+    then Result:= ParentNode.ChildNodes.Item(ParentNode.ChildNodes.IndexOf(Self)+1)
+    else Result:= nil;
+end;
+
+function TdomCMNode.getPreviousSibling: TdomCMNode;
+begin
+  if assigned(ParentNode)
+    then Result:= ParentNode.ChildNodes.Item(ParentNode.ChildNodes.IndexOf(Self)-1)
+    else Result:= nil;
+end;
+
+procedure TdomCMNode.setIsReadonly(const value: boolean);
+begin
+  FIsReadonly:= value;
+end;
+
+function TdomCMNode.insertBefore(const newChild,
+                                       refChild: TdomCMNode): TdomCMNode;
+begin
+  if not assigned(newChild)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if not (newChild.NodeType in FAllowedChildTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if OwnerCMObject <> newChild.OwnerCMObject
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if isAncestor(newChild) or (newChild = self) or (newChild = refChild ) // Test for circularity
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(newChild.ParentNode)
+    then if newChild.ParentNode.isReadonly
+      then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(refChild) then
+    if FCMNodeListing.IndexOf(refChild) = -1
+      then raise ENot_Found_Err.create('Node not found error.');
+  Result:= newChild;
+  if NewChild is TdomCMFragment
+    then while NewChild.HasChildNodes do
+      insertBefore(newChild.ChildNodes.Item(0),refChild)
+    else begin
+      if assigned(newChild.parentNode) then newChild.parentNode.RemoveChild(newChild);
+      if assigned(refChild)
+        then FCMNodeListing.Insert(FCMNodeListing.IndexOf(refChild),newChild)
+        else FCMNodeListing.Add(newChild);
+      NewChild.FParentNode:= self;
+    end;
+end;
+
+function TdomCMNode.replaceChild(const newChild,
+                                       oldChild: TdomCMNode): TdomCMNode;
+var
+  refChild: TdomCMNode;
+begin
+  if not ( assigned(newChild) and assigned(oldChild) )
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if not (newChild.NodeType in FAllowedChildTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if OwnerCMObject <> newChild.OwnerCMObject
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if IsAncestor(newChild) or (newChild = self) // Test for circularity
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(newChild.ParentNode)
+    then if newChild.ParentNode.isReadonly
+      then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FCMNodeListing.IndexOf(oldChild) = -1
+    then raise ENot_Found_Err.create('Node not found error.');
+  Result:= oldChild;
+  if newChild = oldChild then exit;
+  if assigned(newChild.parentNode) then newChild.parentNode.RemoveChild(newChild);
+  refChild:= oldChild.NextSibling;
+  RemoveChild(oldChild);
+  if assigned(refChild)
+    then insertBefore(newChild,refChild)
+    else appendChild(newChild);
+end;
+
+function TdomCMNode.removeChild(const oldChild: TdomCMNode): TdomcmNode;
+begin
+  if not assigned(oldChild)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if FCMNodeListing.IndexOf(oldChild) = -1
+    then raise ENot_Found_Err.create('Node not found error.');
+  Result:= oldChild;
+  FCMNodeListing.Remove(oldChild);
+  OldChild.FParentNode:= nil;
+end;
+
+function TdomCMNode.appendChild(const newChild: TdomCMNode): TdomCMNode;
+begin
+  if not assigned(newChild)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  if not (newChild.NodeType in FAllowedChildTypes)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if OwnerCMObject <> newChild.OwnerCMObject
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  // Test for circularity:
+  if IsAncestor(newChild) or (newChild = self)
+    then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(newChild.ParentNode)
+    then if newChild.ParentNode.isReadonly
+      then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= newChild;
+  if NewChild is TdomCMFragment then
+    while NewChild.HasChildNodes do
+      appendChild(newChild.ChildNodes.Item(0))
+  else begin
+    if assigned(newChild.parentNode) then newChild.parentNode.RemoveChild(newChild);
+    FCMNodeListing.Add(newChild);
+    NewChild.FParentNode:= self;
+  end;
+end;
+
+function TdomCMNode.HasChildNodes: boolean;
+begin
+  if FCMNodeListing.count = 0
+    then result:= false
+    else result:= true;
+end;
+
+function TdomCMNode.CloneNode(const deep: boolean): TdomCmNode;
+var
+  newChildNode: TdomCMNode;
+  i: integer;
+begin
+  Result:= OwnerCMObject.DuplicateCMNode(self);
+  if deep then for i:= 0 to ChildNodes.Length-1 do
+  begin
+    newChildNode:= ChildNodes.Item(i).CloneNode(true);
+    Result.appendChild(newChildNode);
+  end;
+end;
+
+function TdomCMNode.IsAncestor(const AncestorNode: TdomCMNode): boolean;
+var
+  NewAncestor: TdomCMNode;
+  List1: TList;
+begin
+  Result:= false;
+  NewAncestor:= ParentNode;
+  List1:= TList.create;
+  List1.clear;
+  try
+    while assigned(NewAncestor) do begin
+      {Ciculation test:}
+      if List1.IndexOf(NewAncestor) > -1
+        then raise EHierarchy_Request_Err.create('Hierarchy request error.');
+      List1.Add(NewAncestor);
+      if NewAncestor = AncestorNode then begin Result:= true; break; end;
+      NewAncestor:= NewAncestor.ParentNode;
+    end;
+  finally
+    List1.free;
+  end;
+end;
+
+
+
+// +++++++++++++++++++++++++++ TdomCMComment +++++++++++++++++++++++++++
+constructor TdomCMComment.create(const aOwner: TdomCustomCMObject);
+begin
+  inherited create(aOwner);
+  FNodeName:= '#comment';
+  FNodeValue:= '';
+  FNodeType:= ctComment;
+  FAllowedChildTypes:= [];
+end;
+
+function TdomCMComment.GetData: UnicodeString;
+begin
+  Result:= NodeValue;
+end;
+
+procedure TdomCMComment.SetData(const value: UnicodeString);
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  NodeValue:= value;
+end;
+
+function TdomCMComment.GetLength: integer;
+begin
+  Result:= System.Length(Data);
+end;
+
+function TdomCMComment.SubstringData(const offset,
+                                           count: integer):UnicodeString;
+var
+  len: integer;
+begin
+  if(offset < 0) or (offset > Length) or (count < 0)
+    then raise EIndex_Size_Err.create('Index size error.');
+  // Make sure, that the length of the UnicodeString is not
+  // exeeded, when using count and offset:
+  len:= Length-Offset;
+  if count < len then len:= count;
+  setString(Result,PWideChar(Data)+Offset,len);
+end;
+
+procedure TdomCMComment.AppendData(const arg: UnicodeString);
+begin
+  Data:= concat(Data,arg);
+end;
+
+procedure TdomCMComment.InsertData(const offset: integer;
+                                   const arg: UnicodeString);
+begin
+  ReplaceData(offset,0,arg);
+end;
+
+procedure TdomCMComment.DeleteData(const offset,
+                                         count: integer);
+begin
+  ReplaceData(offset,count,'');
+end;
+
+procedure TdomCMComment.replaceData(const offset,
+                                          count: integer;
+                                    const arg: UnicodeString);
+var
+  len: integer;
+  Data1,Data2:UnicodeString;
+begin
+  if(offset < 0) or (offset > Length) or (count < 0)
+    then raise EIndex_Size_Err.create('Index size error.');
+  // Make sure, that the length of the UnicodeString is not
+  // exeeded, when using count and offset:
+  len:= Length-Offset;
+  if count < len then len:= count;
+  Data1:= SubstringData(0,offset);
+  Data2:= SubstringData(offset+len,Length-offset-len);
+  Data:= concat(Data1,arg,Data2);
+end;
+
+function TdomCMComment.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+//++++++++++++++++++ TdomCMProcessingInstruction +++++++++++++++++++++++
+constructor TdomCMProcessingInstruction.create(const aOwner: TdomCustomCMObject;
+                                               const targ: UnicodeString);
+begin
+  if not IsXmlPITarget(targ)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= targ;
+  FNodeValue:= '';
+  FNodeType:= ctProcessingInstruction;
+  FAllowedChildTypes:= [];
+end;
+
+function TdomCMProcessingInstruction.GetTarget: UnicodeString;
+begin
+  Result:= FNodeName;
+end;
+
+function TdomCMProcessingInstruction.GetData: UnicodeString;
+begin
+  Result:= FNodeValue;
+end;
+
+procedure TdomCMProcessingInstruction.SetData(const value: UnicodeString);
+begin
+  if isReadonly
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  FNodeValue:= value;
+end;
+
+function TdomCMProcessingInstruction.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+// +++++++++++++++++++++++++ TdomCustomCMObject ++++++++++++++++++++++++
+constructor TdomCustomCMObject.create(const aOwner: TdomImplementation;
+                                      const sysId: UnicodeString);
+begin
+  inherited create(self);
+  FDomImpl:= aOwner;
+  FNodeValue:= '';
+  FCreatedNodes:= TList.create;
+  FSystemId:= sysId;
+  FAllowedChildTypes:= [];
+end;
+
+destructor TdomCustomCMObject.destroy;
+var
+  i: integer;
+begin
+  for i := 0 to pred(FCreatedNodes.Count) do
+    TdomCMNode(FCreatedNodes[i]).free;
+  FCreatedNodes.free;
+  inherited destroy;
+end;
+
+procedure TdomCustomCMObject.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+function TdomCustomCMObject.CreateCMAttributeDefinition(const name,
+                                                              attType,
+                                                              defaultDecl,
+                                                              attValue: UnicodeString) : TdomCMAttrDefinition;
+begin
+  Result:= TdomCMAttrDefinition.create(self,name,attType,defaultDecl,attValue);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMAttributeList(const name: UnicodeString): TdomCMAttrList;
+begin
+  Result:= TdomCMAttrList.create(self,name);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMChoiceParticle(const freq: UnicodeString): TdomCMChoiceParticle;
+begin
+  Result:= TdomCMChoiceParticle.create(self,freq);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMComment(const Data: UnicodeString): TdomCMComment;
+begin
+  Result:= TdomCMComment.create(self);
+  Result.Data:= Data;
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMElementParticle(const name,
+                                                          freq: UnicodeString): TdomCMElementParticle;
+begin
+  Result:= TdomCMElementParticle.create(self,name,freq);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMElementTypeDeclaration(const name: UnicodeString;
+                                                           const contspecType: TdomContentspecType): TdomCMElementTypeDeclaration;
+begin
+  Result:= TdomCMElementTypeDeclaration.create(self,name,contspecType);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.createCMExtEntityDeclaration(const name,
+                                                               pubId,
+                                                               sysId: UnicodeString): TdomCMEntityDeclaration;
+begin
+  Result:= TdomCMEntityDeclaration.createExtParsed(self,name,pubId,sysId);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.createCMExtParameterEntityDeclaration(const name,
+                                                                        pubId,
+                                                                        sysId: UnicodeString): TdomCMParameterEntityDeclaration;
+begin
+  Result:= TdomCMParameterEntityDeclaration.createExtParsed(self,name,pubId,sysId);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.createCMExtUnparsedEntityDeclaration(const name,
+                                                                       pubId,
+                                                                       sysId,
+                                                                       notaName: UnicodeString): TdomCMEntityDeclaration;
+begin
+  Result:= TdomCMEntityDeclaration.createExtUnparsed(self,name,pubId,sysId,notaName);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMFragment: TdomCMFragment;
+begin
+  Result:= TdomCMFragment.create(self);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.createCMIntEntityDeclaration(const name,
+                                                               entityValue: UnicodeString): TdomCMEntityDeclaration;
+begin
+  Result:= TdomCMEntityDeclaration.create(self,name,entityValue);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.createCMIntParameterEntityDeclaration(const name,
+                                                                        entityValue: UnicodeString): TdomCMParameterEntityDeclaration;
+begin
+  Result:= TdomCMParameterEntityDeclaration.create(self,name,entityValue);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMNameParticle(const name: UnicodeString): TdomCMNameParticle;
+begin
+  Result:= TdomCMNameParticle.create(self,name);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMNmtokenParticle(const name: UnicodeString): TdomCMNmtokenParticle;
+begin
+  Result:= TdomCMNmtokenParticle.create(self,name);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMNotationDeclaration(const name,
+                                                              pubId,
+                                                              sysId: UnicodeString): TdomCMNotationDeclaration;
+begin
+  Result:= TdomCMNotationDeclaration.create(self,name,pubId,sysId);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMParameterEntityReference(const name: UnicodeString): TdomCMParameterEntityReference;
+begin
+  Result:= TdomCMParameterEntityReference.create(self,name);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMPcdataChoiceParticle: TdomCMPcdataChoiceParticle;
+begin
+  Result:= TdomCMPcdataChoiceParticle.create(self,'*');
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMProcessingInstruction(const targ,
+                                                                Data : UnicodeString): TdomCMProcessingInstruction;
+begin
+  Result:= TdomCMProcessingInstruction.create(self,targ);
+  Result.Data:= Data;
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.CreateCMSequenceParticle(const freq: UnicodeString): TdomCMSequenceParticle;
+begin
+  Result:= TdomCMSequenceParticle.create(self,freq);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCustomCMObject.DuplicateCMNode(const node: TdomCMNode): TdomCMNode;
+// Creates a new CMNode of the same type and properties than 'Node',
+// except that the new CMNode has no parent and no child nodes.
+var
+  i: integer;
+  newChild: TdomCMNode;
+begin
+  case node.NodeType of
+    ctUnknown:
+      raise ENot_Supported_Err.create('Not supported error.');
+    ctParameterEntityReference:
+      begin
+        Result:= CreateCMParameterEntityReference((node as TdomCMParameterEntityReference).NodeName);
+        Result.FNodeValue:= FNodeValue;
+      end;
+    ctEntityDeclaration:
+      if (node as TdomCMEntityDeclaration).isParsedEntity then begin
+        if (node as TdomCMEntityDeclaration).entityType = etExternal_Entity then begin
+          Result:= CreateCMExtEntityDeclaration((node as TdomCMEntityDeclaration).NodeName,
+                                                (node as TdomCMEntityDeclaration).publicId,
+                                                (node as TdomCMEntityDeclaration).systemId);
+        end else begin
+          Result:= CreateCMIntEntityDeclaration((node as TdomCMEntityDeclaration).NodeName,
+                                                (node as TdomCMEntityDeclaration).NodeValue);
+        end;
+      end else begin
+        Result:= createCMExtUnparsedEntityDeclaration((node as TdomCMEntityDeclaration).NodeName,
+                                                      (node as TdomCMEntityDeclaration).publicId,
+                                                      (node as TdomCMEntityDeclaration).systemId,
+                                                      (node as TdomCMEntityDeclaration).notationName);
+      end;
+    ctParameterEntityDeclaration:
+      if (node as TdomCMParameterEntityDeclaration).entityType = etExternal_Entity then begin
+        Result:= CreateCMExtParameterEntityDeclaration((node as TdomCMParameterEntityDeclaration).NodeName,
+                                                       (node as TdomCMParameterEntityDeclaration).publicId,
+                                                       (node as TdomCMParameterEntityDeclaration).systemId);
+      end else begin
+        Result:= CreateCMIntParameterEntityDeclaration((node as TdomCMParameterEntityDeclaration).NodeName,
+                                                       (node as TdomCMParameterEntityDeclaration).NodeValue);
+      end;
+    ctProcessingInstruction:
+        Result:= CreateCMProcessingInstruction((node as TdomCMProcessingInstruction).Target,
+                                               (node as TdomCMProcessingInstruction).Data);
+    ctComment:
+      Result:= CreateCMComment((node as TdomCMComment).Data);
+    ctObject:
+      Result:= TdomCMObject.create((node as TdomCMObject).FDomImpl,
+                                   (node as TdomCMObject).systemId);
+    ctExternalObject:
+      Result:= TdomCMExternalObject.create((node as TdomCMExternalObject).FDomImpl,
+                                           (node as TdomCMExternalObject).FPublicId,
+                                           (node as TdomCMExternalObject).FSystemId);
+    ctInternalObject:
+      Result:= TdomCMInternalObject.create((node as TdomCMInternalObject).FDomImpl,
+                                           (node as TdomCMInternalObject).FPublicId,
+                                           (node as TdomCMInternalObject).FSystemId);
+    ctFragment:
+      Result:= CreateCMFragment;
+    ctNotationDeclaration:
+      Result:= CreateCMNotationDeclaration((node as TdomCMNotationDeclaration).NodeName,
+                                           (node as TdomCMNotationDeclaration).publicId,
+                                           (node as TdomCMNotationDeclaration).systemId);
+    ctElementTypeDeclaration:
+      Result:= CreateCMElementTypeDeclaration((node as TdomCMElementTypeDeclaration).NodeName,
+                                              (node as TdomCMElementTypeDeclaration).contentspecType);
+    ctSequenceParticle:
+      Result:= CreateCMSequenceParticle((node as TdomCMSequenceParticle).Frequency);
+    ctPcdataChoiceParticle:
+      Result:= CreateCMPcdataChoiceParticle;
+    ctChoiceParticle:
+      Result:= CreateCMChoiceParticle((node as TdomCMChoiceParticle).Frequency);
+    ctElementParticle:
+      Result:= CreateCMElementParticle((node as TdomCMElementParticle).NodeName,
+                                       (node as TdomCMElementParticle).Frequency);
+    ctAttributeList: begin
+      Result:= CreateCMAttributeList((node as TdomCMAttrList).NodeName);
+      {duplicate attribute definitions:}
+      for i:= 0 to pred(node.ChildNodes.Length) do begin
+        NewChild:= DuplicateCMNode(node.ChildNodes.Item(i));
+        Result.appendChild(NewChild);
+      end;
+      end;
+    ctAttributeDefinition: begin
+      Result:= CreateCMAttributeDefinition((node as TdomCMAttrDefinition).NodeName,
+                                           (node as TdomCMAttrDefinition).AttributeType,
+                                           (node as TdomCMAttrDefinition).DefaultDeclaration,
+                                           (node as TdomCMAttrDefinition).NodeValue);
+      {duplicate the children of the attribute definition node:}
+      for i:= 0 to node.ChildNodes.Length-1 do begin
+        newChild:= DuplicateCMNode(node.ChildNodes.Item(i));
+        Result.appendChild(newChild);
+      end;
+      end;
+    ctNameParticle:
+      Result:= CreateCMNameParticle((node as TdomCMNameParticle).NodeName);
+    ctNmtokenParticle:
+      Result:= CreateCMNmtokenParticle((node as TdomCMNmtokenParticle).NodeName);
+  else
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+end;
+
+procedure TdomCustomCMObject.FreeAllCMNodes(var CMNode: TdomCMNode);
+var
+  index: integer;
+  oldChild: TdomCMNode;
+begin
+  if not assigned(CMNode) then exit;
+  if CMNode.OwnerCMObject <> Self
+    then raise EWrong_Document_Err.create('Wrong document error.');
+  if CMNode = Self
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  if assigned(CMNode.ParentNode)
+    then raise EInuse_Node_Err.create('Inuse node error.');
+  while CMnode.HasChildNodes do begin
+    CMnode.FirstChild.setIsReadonly(false);
+    oldChild:= CMnode.RemoveChild(CMnode.FirstChild);
+    CMnode.OwnerCMObject.FreeAllCMNodes(oldChild);
+  end;
+  index:= FCreatedNodes.IndexOf(CMNode);
+  CMNode.free;
+  FCreatedNodes.Delete(index);
+  CMNode:= nil;
+end;
+
+procedure TdomCustomCMObject.getValueOfPE(const name: UnicodeString;
+                                            var value: UnicodeString;
+                                            var error: TXmlErrorType);
+var
+  InputSrc: TXmlInputSource;
+  stream: TStream;
+  PId,SId: UnicodeString;
+  action: TXmlParserAction;
+  i: integer;
+begin
+  value:= '';
+  error:= ET_PARAMETER_ENTITY_DECL_NOT_FOUND;
+  for i:= 0 to pred(FCreatedNodes.Count) do begin
+    if TdomCMNode(FCreatedNodes[i]).nodeType = ctParameterEntityDeclaration then begin
+      with TdomCMParameterEntityDeclaration(FCreatedNodes[i]) do begin
+        if nodeName = name then begin
+          if entityType = etInternal_Entity then begin
+
+            value:= nodeValue;
+            error:= ET_NONE;
+            exit;
+
+          end else begin
+
+            // Resolve value of external parsed entity:
+            if not ( (publicId = '') and (systemId = '')) then begin
+              stream:= nil;
+              PId:= publicId;
+              SId:= systemId;
+              action:= paFail;
+              try
+                if assigned(domImplementation)
+                  then domImplementation.doExternalParsedEntity(self.systemId,PId,SId,stream,action);
+                if action = paFail then begin
+                  error:= ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE;
+                  exit;
+                end else begin
+
+                  // convert external entity value to UTF-16BE:
+                  if assigned(stream) then begin
+                    InputSrc:= TXmlInputSource.create(stream,PId,SId,1);
+                    try
+                      if InputSrc.hasMalformedDecl
+                       or not ( InputSrc.declType in [ DT_TEXT_DECLARATION,
+                                                       DT_XML_OR_TEXT_DECLARATION,
+                                                       DT_UNSPECIFIED] )
+                      then begin
+                        value:= '';
+                        error:= ET_INVALID_TEXT_DECL;
+                      end else begin
+                        value:= InputSrc.streamAsWideString;
+                        error:= ET_NONE;
+                      end; {if ... else ...}
+                      exit;
+                    finally
+                      InputSrc.free;
+                    end; {try}
+                  end;
+
+                  error:= ET_NONE;
+                  exit;
+
+                end; {if ... else ...}
+              finally
+                if assigned(stream) then stream.free;
+              end;
+            end;
+
+          end;
+        end;
+      end;
+    end;
+  end;
+end;
+
+function TdomCustomCMObject.hasPEDeclaration(const name: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  result:= false;
+  for i:= 0 to pred(FCreatedNodes.Count) do
+    with TdomCMNode(FCreatedNodes[i]) do
+      if nodeType = ctParameterEntityDeclaration then
+        if nodeName = name then begin
+          result:= true;
+          exit;
+        end;
+end;
+
+
+
+// ++++++++++++++++++++++++++++ TdomCMObject +++++++++++++++++++++++++++
+constructor TdomCMObject.create(const aOwner: TdomImplementation;
+                                const sysId: UnicodeString);
+begin
+  inherited;
+  FNodeName:= '#cm-object';
+  FNodeType:= ctObject;
+  FAllowedChildTypes:= [];
+  FAssociatedDocument:= nil;
+  FCMExternal:= nil;
+  FCMInternal:= nil;
+  FNotationsListing:= TList.create;
+  FNotationsList:= TdomNamedCMNodeMap.create(self,self,FNotationsListing,[ctNotation]);
+  FElementTypesListing:= TList.create;
+  FElementTypesList:= TdomNamedCMNodeMap.create(self,self,FElementTypesListing,[ctElementTypeDeclaration]);
+  FAttributesList:= TdomNamedCMAttributeMap.create(self);
+  FEntitiesList:= TdomNamedCMEntityMap.create(self);
+  setPredefinedEntities;
+end;
+
+destructor TdomCMObject.destroy;
+begin
+  FAttributesList.free;
+  FEntitiesList.free;
+  FNotationsListing.free;
+  FNotationsList.free;
+  FElementTypesListing.free;
+  FElementTypesList.free;
+  inherited destroy;
+end;
+
+procedure TdomCMObject.clear;
+begin
+  clearAttributes;
+  clearElementtypes;
+  clearEntities;
+  clearNotations;
+  inherited clear;
+end;
+
+procedure TdomCMObject.clearAttributes;
+var
+  removedAttribute: TdomCMAttribute;
+begin
+  while attributes.length > 0 do begin
+    removedAttribute:= attributes.removeLastItem;
+    FCreatedNodes.remove(removedAttribute);
+    removedAttribute.free;
+  end;
+end;
+
+procedure TdomCMObject.clearElementTypes;
+var
+  i: integer;
+begin
+  for i:= pred(FElementTypesListing.count) downto 0 do
+    FCreatedNodes.remove(FElementTypesListing[i]);
+  FElementTypesListing.clear;
+end;
+
+procedure TdomCMObject.clearEntities;
+var
+  removedEntity: TdomCMEntity;
+begin
+  while Entities.length > 0 do begin
+    removedEntity:= Entities.removeLastItem;
+    FCreatedNodes.remove(removedEntity);
+    removedEntity.free;
+  end;
+end;
+
+procedure TdomCMObject.clearNotations;
+var
+  i: integer;
+begin
+  for i:= pred(FNotationsListing.count) downto 0 do
+    FCreatedNodes.remove(FNotationsListing[i]);
+  FNotationsListing.clear;
+end;
+
+function TdomCMObject.duplicateCMNode(const node: TdomCMNode): TdomCMNode;
+begin
+  case node.NodeType of
+    ctAttribute:
+      result:= createCMAttribute((node as TdomCMAttribute).elementName,
+                                 (node as TdomCMAttribute).attributeName,
+                                 (node as TdomCMAttribute).attributeType,
+                                 (node as TdomCMAttribute).defaultDeclaration,
+                                 (node as TdomCMAttribute).NodeValue);
+    ctEntity:
+      if (node as TdomCMEntity).entityType = etInternal_Entity then begin
+        result:= createCMIntEntity((node as TdomCMEntity).nodeName,
+                                   (node as TdomCMEntity).literalValue);
+      end else begin
+        if (node as TdomCMEntity).isParsedEntity
+          then result:= createCMExtParsedEntity((node as TdomCMEntity).nodeName,
+                                                (node as TdomCMEntity).publicId,
+                                                (node as TdomCMEntity).systemId)
+          else result:= createCMExtUnparsedEntity((node as TdomCMEntity).nodeName,
+                                                  (node as TdomCMEntity).publicId,
+                                                  (node as TdomCMEntity).systemId,
+                                                  (node as TdomCMEntity).notationName);
+      end;
+    ctNotation:
+      result:= createCMNotation((node as TdomCMNotation).NodeName,
+                                (node as TdomCMNotation).publicId,
+                                (node as TdomCMNotation).systemId);
+  else
+    result:= inherited DuplicateCMNode(node);
+  end;
+end;
+
+function TdomCMObject.createCMAttribute(const elementName,
+                                              attributeName,
+                                              attType,
+                                              defaultDecl,
+                                              attValue: UnicodeString): TdomCMAttribute;
+begin
+  Result:= TdomCMAttribute.create(self,elementName,attributeName,attType,defaultDecl,attValue);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCMObject.createCMExtParsedEntity(const name,
+                                                    pubId,
+                                                    sysId: UnicodeString): TdomCMEntity;
+begin
+  Result:= TdomCMEntity.createExtParsed(self,name,pubId,sysId);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCMObject.createCMExtUnparsedEntity(const name,
+                                                      pubId,
+                                                      sysId,
+                                                      notaName: UnicodeString): TdomCMEntity;
+begin
+  Result:= TdomCMEntity.createExtUnparsed(self,name,pubId,sysId,notaName);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCMObject.createCMIntEntity(const name,
+                                              literalValue: UnicodeString): TdomCMEntity;
+begin
+  Result:= TdomCMEntity.create(self,name,literalValue);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCMObject.CreateCMNotation(const name,
+                                             pubId,
+                                             sysId: UnicodeString): TdomCMNotation;
+begin
+  Result:= TdomCMNotation.create(self,name,pubId,sysId);
+  FCreatedNodes.add(Result);
+end;
+
+function TdomCMObject.setPredefinedEntities: boolean;
+
+  function testGtAposQuot(const entName,
+                                litVal,
+                                CdataVal: UnicodeString): boolean;
+  var
+    newEntity, oldEntity: TdomCMEntity;
+    ok: boolean;
+  begin
+    result:= true;
+    oldEntity:= Entities.GetNamedItem(entName);
+    if assigned(oldEntity) then begin
+      try
+        ok:= (oldEntity.replacementText = CdataVal);
+      except
+        ok:= false;
+      end;
+      if not ok then begin
+        sendErrorNotification(ET_WRONG_DECL_OF_PREDEFINED_ENTITY,oldEntity);
+        result:= false;
+      end;
+    end else begin
+      newEntity:= CreateCMIntEntity(entName,litVal);
+      Entities.appendNamedItem(newEntity);
+    end;
+  end;
+
+  function testLtAmp(const entName,
+                           litVal: UnicodeString;
+                     const charValue: integer): boolean;
+  var
+    newEntity, oldEntity: TdomCMEntity;
+    ok: boolean;
+  begin
+    result:= true;
+    oldEntity:= Entities.GetNamedItem(entName);
+    if assigned(oldEntity) then begin
+      try
+        ok:= (XmlCharRefToInt(oldEntity.replacementText) = charValue);
+      except
+        ok:= false;
+      end;
+      if not ok then begin
+        sendErrorNotification(ET_WRONG_DECL_OF_PREDEFINED_ENTITY,oldEntity);
+        result:= false;
+      end;
+    end else begin
+      newEntity:= CreateCMIntEntity(entName,litVal);
+      Entities.appendNamedItem(newEntity);
+    end;
+  end;
+
+begin
+  result:= true;
+  if not testLtAmp('lt','&#38;#60;',60)
+    then result:= false;
+  if not testGtAposQuot('gt','&#62;',#62)
+    then result:= false;
+  if not testLtAmp('amp','&#38;#38;',38)
+    then result:= false;
+  if not testGtAposQuot('apos','&#39;',#39)
+    then result:= false;
+  if not testGtAposQuot('quot','&#34;',#34)
+    then result:= false;
+end;
+
+function TdomCMObject.prepareCM: boolean;
+var
+  dtdAnalyzer: TXmlCMAnalyzer;
+begin
+  result:= true;
+
+  clearEntities;
+  clearAttributes;
+  clearElementTypes;
+  clearNotations;
+
+  dtdAnalyzer:= TXmlCMAnalyzer.create(nil);
+  try
+    dtdAnalyzer.DOMImpl:= domImplementation;
+    if assigned(internalCM)
+      then result:= dtdAnalyzer.analyzeCM(internalCM,self);
+    if result and assigned(externalCM)
+      then result:= dtdAnalyzer.analyzeCM(externalCM,self);
+  finally
+    dtdAnalyzer.free;
+  end;
+
+  if result
+    then result:= setPredefinedEntities;
+
+  if not result then begin
+    clearEntities;
+    clearAttributes;
+    clearElementTypes;
+    clearNotations;
+  end;
+end;
+
+function TdomCMObject.prepare: boolean;
+begin
+  result:= prepareCM;
+end;
+
+function  TdomCMObject.removeExternalCM: TdomCMExternalObject;
+begin
+  result:= FCMExternal;
+  if assigned(FCMExternal)
+    then FCMExternal.FAssociatedContentModel:= nil;
+  FCMExternal:= nil;
+end;
+
+function TdomCMObject.setExternalCM(const arg: TdomCMExternalObject): TdomCMExternalObject;
+begin
+  if assigned(arg)
+    then if assigned(arg.associatedContentModel)
+      then raise EInuse_Content_Model_Err.create('Inuse content model error.');
+  result:= removeExternalCM;
+  FCMExternal:= arg;
+  arg.FAssociatedContentModel:= self;
+end;
+
+function  TdomCMObject.removeInternalCM: TdomCMInternalObject;
+begin
+  result:= FCMInternal;
+  if assigned(FCMInternal)
+    then FCMInternal.FAssociatedContentModel:= nil;
+  FCMInternal:= nil;
+end;
+
+function TdomCMObject.setInternalCM(const arg: TdomCMInternalObject): TdomCMInternalObject;
+begin
+  if assigned(arg)
+    then if assigned(arg.associatedContentModel)
+      then raise EInuse_Content_Model_Err.create('Inuse content model error.');
+  result:= removeInternalCM;
+  FCMInternal:= arg;
+  arg.FAssociatedContentModel:= self;
+end;
+
+function TdomCMObject.validate: boolean;
+var
+  i,j: integer;
+  goOn, ok, typeMismatch: boolean;
+  idNames, notationNames, notationTokens, enumerationTokens: TdomWideStringList;
+  AType: UnicodeString;
+  Attri: TdomCMAttribute;
+  EType: TdomCMElementTypeDeclaration;
+begin
+  result:= true;
+  if not prepareCM then begin
+    result:= false;
+    exit;
+  end;
+
+  if assigned(internalCM) then begin
+    if not internalCM.validate then begin
+      result:= false;
+      exit;
+    end;
+  end;
+
+  if assigned(externalCM) then begin
+    if not externalCM.validate then begin
+      result:= false;
+      exit;
+    end;
+  end;
+
+  for i:= 0 to pred(entities.length) do begin
+    with entities.item(i) do begin
+
+      resolve; // xxx necessary here?
+
+      // VC: Notation Declared (XML 1.0, � 4.2.2)
+      if not isParsedEntity then
+        if notations.GetNamedIndex(notationName) = -1 then begin
+          result:= false;
+          goOn:= sendErrorNotification(ET_UNDECLARED_NOTATION_NAME,entities.item(i));
+          if not goOn then exit;
+        end;
+
+    end; {with ...}
+  end; {for ...}
+
+  IdNames:= TdomWideStringList.create;
+  IdNames.Sorted:= true;
+  IdNames.Duplicates:= dupError;
+  NotationNames:= TdomWideStringList.create;
+  NotationNames.Sorted:= true;
+  NotationNames.Duplicates:= dupError;
+  NotationTokens:= TdomWideStringList.create;
+  NotationTokens.Sorted:= true;
+  NotationTokens.Duplicates:= dupError;
+  EnumerationTokens:= TdomWideStringList.create;
+  EnumerationTokens.Sorted:= true;
+  EnumerationTokens.Duplicates:= dupError;
+  try
+    for i:= 0 to pred(attributes.length) do begin
+      Attri:= attributes.item(i);
+      AType:= Attri.AttributeType;
+      TypeMismatch:= false;
+      if  AType = 'ID' then begin
+
+        // VC: One ID per Element Type (XML 1.0, � 3.3.1)
+        try
+          IdNames.Add(Attri.ElementName)
+        except  // xxx not elegant
+          result:= false;
+          goOn:= sendErrorNotification(ET_DUPLICATE_ID_ON_ELEMENT_TYPE,Attri);
+          if not goOn then exit;
+        end;
+
+      end else if AType = 'NOTATION' then begin
+
+        NotationTokens.clear;
+
+        for j:= 0 to pred(Attri.childnodes.length) do begin
+
+          // VC: Notation Attributes (XML 1.0, � 3.3.1)
+          if notations.GetNamedIndex(Attri.childnodes.item(j).NodeName) = -1 then begin
+            result:= false;
+            goOn:= sendErrorNotification(ET_UNDECLARED_NOTATION_NAME,Attri.childnodes.item(j));
+            if not goOn then exit;
+          end;
+
+          // VC: No Duplicate Tokens (XML 1.0, 2nd ed., erratum 2)
+          try
+            NotationTokens.Add(Attri.childnodes.item(j).NodeName)
+          except  // xxx not elegant
+            result:= false;
+            goOn:= sendErrorNotification(ET_DUPLICATE_NOTATION_TOKEN,Attri.childnodes.item(j));
+            if not goOn then exit;
+          end;
+
+        end; {for ...}
+
+        // VC: One Notation per Element Type (XML 1.0, � 3.3.1)
+        try
+          NotationNames.Add(Attri.ElementName)
+        except  // xxx not elegant
+          result:= false;
+          goOn:= sendErrorNotification(ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE,Attri);
+          if not goOn then exit;
+        end;
+
+        // VC: No Notation on Empty Element (XML 1.0, � 3.3.1)
+        EType:= (elementTypes.GetNamedItem(Attri.ElementName) as TdomCMElementTypeDeclaration);
+        if assigned(EType) then begin
+          if EType.ContentspecType = ctEmpty then begin
+            result:= false;
+            goOn:= sendErrorNotification(ET_NOTATION_ON_EMPTY_ELEMENT,Attri);
+            if not goOn then exit;
+          end;
+        end;
+
+      end else
+
+      if AType = '' then begin
+        if attri.NodeValue <> '' then begin
+          ok:= false;
+          EnumerationTokens.clear;
+          with attri do begin
+            for j:= 0 to pred(ChildNodes.length) do begin
+              if ChildNodes.item(j).NodeName = NodeValue then begin
+                ok:= true;
+                break;
+              end;
+
+              // VC: No Duplicate Tokens (XML 1.0, 2nd ed., erratum 2)
+              try
+                EnumerationTokens.Add(childnodes.item(j).NodeName)
+              except  // xxx not elegant
+                result:= false;
+                goOn:= sendErrorNotification(ET_DUPLICATE_ENUMERATION_TOKEN,childnodes.item(j));
+                if not goOn then exit;
+              end;
+              if not result then break;
+
+            end;
+          end; {with ...}
+          TypeMismatch:= not ok; // VC: Enumeration (XML 1.0, � 3.3.1)
+        end; {if ...}
+      end else
+      if AType = 'IDREF' then begin
+        if not (isXMLName(attri.NodeValue) or (attri.NodeValue = ''))
+          then TypeMismatch:= true; // VC: IDREF (XML 1.0, � 3.3.1)
+      end else
+      if AType = 'IDREFS' then begin
+        if not (isXMLNames(attri.NodeValue) or (attri.NodeValue = ''))
+          then TypeMismatch:= true; // VC: IDREF (XML 1.0, � 3.3.1)
+      end else
+      if AType = 'ENTITY' then begin
+        if not (isXMLName(attri.NodeValue) or (attri.NodeValue = ''))
+          then TypeMismatch:= true; // VC: Entity (XML 1.0, � 3.3.1)
+      end else
+      if AType = 'ENTITIES' then begin
+        if not (isXMLNames(attri.NodeValue) or (attri.NodeValue = ''))
+          then TypeMismatch:= true; // VC: Entity (XML 1.0, � 3.3.1)
+      end else
+      if AType = 'NMTOKEN' then begin
+        if not (isXmlNmtoken(attri.NodeValue) or (attri.NodeValue = ''))
+          then TypeMismatch:= true; // VC: name Token (XML 1.0, � 3.3.1)
+      end else
+      if AType = 'NMTOKENS' then begin
+        if not (isXmlNmtokens(attri.NodeValue) or (attri.NodeValue = ''))
+          then TypeMismatch:= true; // VC: name Token (XML 1.0, � 3.3.1)
+      end;
+
+      if TypeMismatch then begin
+        result:= false;
+        goOn:= sendErrorNotification(ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH,attri);
+        if not goOn then exit;
+      end;
+
+    end; {for ...}
+  finally
+    IdNames.free;
+    NotationNames.free;
+    NotationTokens.free;
+    EnumerationTokens.free;
+  end;
+
+end;
+
+
+
+// +++++++++++++++++++++++ TdomCustomCMIEObject +++++++++++++++++++++++
+constructor TdomCustomCMIEObject.create(const aOwner: TdomImplementation;
+                                        const pubId,
+                                              sysId: UnicodeString);
+begin
+  inherited create(aOwner,sysId);
+  FPublicId:= pubId;
+  FAssociatedContentModel:= nil;
+end;
+
+function TdomCustomCMIEObject.validate: boolean;
+var
+  i: integer;
+begin
+  result:= true;
+  for i:= 0 to pred(childnodes.length) do begin
+    if not childnodes.item(i).validate then begin
+      result:= false;
+      exit;
+    end;
+  end;
+end;
+
+
+
+// +++++++++++++++++++++++ TdomCMInternalObject +++++++++++++++++++++++
+constructor TdomCMInternalObject.create(const aOwner: TdomImplementation;
+                                        const pubId,
+                                              sysId: UnicodeString);
+begin
+  inherited create(aOwner,pubId,sysId);
+  FNodeName:= '#cm-internal-object';
+  FNodeType:= ctInternalObject;
+  FAllowedChildTypes:= [ctAttributeList,
+                        ctComment,
+                        ctElementTypeDeclaration,
+                        ctEntityDeclaration,
+                        ctNotationDeclaration,
+                        ctParameterEntityDeclaration,
+                        ctParameterEntityReference,
+                        ctProcessingInstruction];
+end;
+
+
+
+// ++++++++++++++++++++++++ TdomCMExternalObject +++++++++++++++++++++++
+constructor TdomCMExternalObject.create(const aOwner: TdomImplementation;
+                                        const pubId,
+                                              sysId: UnicodeString);
+begin
+  inherited create(aOwner,pubId,sysId);
+  FNodeName:= '#cm-external-object';
+  FNodeType:= ctExternalObject;
+  FEncoding:= '';
+  FVersion:= '';
+  FAllowedChildTypes:= [ctAttributeList,
+                        ctComment,
+                        ctElementTypeDeclaration,
+                        ctEntityDeclaration,
+                        ctNotationDeclaration,
+                        ctParameterEntityDeclaration,
+                        ctParameterEntityReference,
+                        ctProcessingInstruction];
+end;
+
+
+
+// ++++++++++++++++++ TdomCMNotationDeclaration ++++++++++++++++++++++++
+constructor TdomCMNotationDeclaration.create(const aOwner: TdomCustomCMObject;
+                                             const name,
+                                                   pubId,
+                                                   sysId: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlSystemChars(sysId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlPubidChars(pubId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeValue:= '';
+  FPublicId:= pubId;
+  FSystemId:= sysId;
+  FNodeType:= ctNotationDeclaration;
+  FAllowedChildTypes:= [];
+end;
+
+procedure TdomCMNotationDeclaration.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+function TdomCMNotationDeclaration.GetPublicId: UnicodeString;
+begin
+  Result:= FPublicId;
+end;
+
+function TdomCMNotationDeclaration.GetSystemId: UnicodeString;
+begin
+  Result:= FSystemId;
+end;
+
+function TdomCMNotationDeclaration.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+// +++++++++++++++++ TdomCMElementTypeDeclaration +++++++++++++++++++++++
+constructor TdomCMElementTypeDeclaration.create(const aOwner: TdomCustomCMObject;
+                                                const name: UnicodeString;
+                                                const contspecType: TdomContentspecType);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeType:= ctElementTypeDeclaration;
+  FContentspec:= contspecType;
+  case contspecType of
+    ctEmpty,ctAny: FAllowedChildTypes:= [];
+    ctMixed:       FAllowedChildTypes:= [ctPcdataChoiceParticle];
+    ctChildren:    FAllowedChildTypes:= [ctSequenceParticle,
+                                         ctChoiceParticle];
+  end;
+end;
+
+function TdomCMElementTypeDeclaration.GetContentspec: UnicodeString;
+var
+  XMLStream: TdomWideStringStream;
+begin
+  XMLStream := TdomWideStringStream.create;
+  try
+    case ContentSpecType of
+      ctEmpty: writeWideString(XMLStream, 'EMPTY ');
+      ctAny:   writeWideString(XMLStream, 'ANY ');
+      ctMixed, ctChildren: (ChildNodes.Item(0) as TdomCMParticle).writeCode(XMLStream);
+    end; {case ...}
+    Result := XMLStream.DataString;
+  finally
+    XMLStream.Free;
+  end;
+end;
+
+function TdomCMElementTypeDeclaration.GetContentspecType: TdomContentspecType;
+begin
+  Result:= FContentspec;
+end;
+
+procedure TdomCMElementTypeDeclaration.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+function TdomCMElementTypeDeclaration.appendChild(const newChild: TdomCMNode): TdomCMNode;
+begin
+  if (contentspecType = ctEmpty) or (contentspecType = ctAny)
+    or (hasChildNodes and (FirstChild <> newChild))
+      then raise ENot_Supported_Err.create('Not supported error.');
+  result:= inherited appendChild(newChild);
+end;
+
+function TdomCMElementTypeDeclaration.insertBefore(const newChild,
+                                                         refChild: TdomCMNode): TdomCMNode;
+begin
+  if (contentspecType = ctEmpty) or (contentspecType = ctAny)
+    or (hasChildNodes and (FirstChild <> newChild))
+      then raise ENot_Supported_Err.create('Not supported error.');
+  result:= inherited insertBefore(newChild,refChild);
+end;
+
+function TdomCMElementTypeDeclaration.validate: boolean;
+var
+  i: integer;
+begin
+  result:= true;
+  for i:= 0 to pred(childnodes.length) do begin
+    if not childnodes.item(i).validate then begin
+      result:= false;
+      exit;
+    end;
+  end;
+end;
+
+
+
+// +++++++++++++++++++++++ TdomCMAttrList ++++++++++++++++++++++++++++++
+constructor TdomCMAttrList.create(const aOwner: TdomCustomCMObject;
+                                  const name: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeType:= ctAttributeList;
+  FAllowedChildTypes:= [ctAttributeDefinition];
+end;
+
+function TdomCMAttrList.validate: boolean;
+var
+  i: integer;
+begin
+  result:= true;
+  for i:= 0 to pred(childnodes.length) do begin
+    if not childnodes.item(i).validate then begin
+      result:= false;
+      exit;
+    end;
+  end;
+end;
+
+
+// ++++++++++++++++++++ TdomCMAttrDefinition ++++++++++++++++++++++++++
+constructor TdomCMAttrDefinition.create(const aOwner: TdomCustomCMObject;
+                                        const name,
+                                              attType,
+                                              defaultDecl,
+                                              attValue: UnicodeString);
+const
+  sQuote: UnicodeString  = #$0027;
+  dQuote: UnicodeString  = '"';
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not ( (attType='') or (attType='NOTATION') or
+    IsXmlStringType(attType) or IsXmlTokenizedType(attType) )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not ( (defaultDecl = '#REQUIRED') or (defaultDecl = '#IMPLIED') or
+           (defaultDecl = '#FIXED') or (defaultDecl = '') )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if ((defaultDecl = '#REQUIRED') or (defaultDecl = '#IMPLIED'))
+    and (attValue <> '')
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not ( IsXMLAttValue(concat(dQuote,attValue,dQuote)) or
+    IsXMLAttValue(concat(sQuote,attValue,sQuote)) )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FAttributeType:= attType;
+  FDefaultDeclaration:= defaultDecl;
+  FNodeValue:= attValue;
+  FNodeType:= ctAttributeDefinition;
+  FParentAttributeList:= nil;
+  FAllowedChildTypes:= [];
+  if attType = ''
+    then FAllowedChildTypes:= [ctNmtokenParticle];
+  if attType = 'NOTATION'
+    then FAllowedChildTypes:= [ctNameParticle];
+end;
+
+function TdomCMAttrDefinition.validate: boolean;
+var
+  i: integer;
+  particleNames: TdomWideStringList;
+begin
+  result:= true;
+
+  // VC: ID Attribute Default (XML 1.0, � 3.3.1)
+  if (AttributeType = 'ID') and not
+    ( (DefaultDeclaration = '#REQUIRED') or (DefaultDeclaration = '#IMPLIED') ) then begin
+    result:= false;
+    sendErrorNotification(ET_ID_NEITHER_IMPLIED_NOR_REQUIRED,self);
+  end;
+
+  // VC: No Duplicate Tokens (XML 1.0, 2nd Ed., Erratum 2)
+  if hasChildNodes then begin
+    particleNames:= TdomWideStringList.create;
+    particleNames.Sorted:= true;
+    particleNames.Duplicates:= dupError;
+    try
+      for i:= 0 to pred(childnodes.length) do begin
+        try
+          particleNames.Add(childnodes.item(i).nodeName);
+        except  // xxx not elegant
+          result:= false;
+          sendErrorNotification(ET_DUPLICATE_TOKENS,childnodes.item(i));
+          break;
+        end; {try ... except ...}
+      end; {for ...}
+    finally
+      particleNames.free;
+    end;
+  end;
+
+end;
+
+function TdomCMAttrDefinition.GetAttributeType: UnicodeString;
+begin
+  Result:= FAttributeType;
+end;
+
+function TdomCMAttrDefinition.GetDefaultDeclaration: UnicodeString;
+begin
+  Result:= FDefaultDeclaration;
+end;
+
+procedure TdomCMAttrDefinition.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+
+
+// +++++++++++++++++++++++++ TdomCMParticle ++++++++++++++++++++++++++++
+constructor TdomCMParticle.create(const aOwner: TdomCustomCMObject;
+                                  const freq: UnicodeString);
+begin
+  if not ( (freq = '') or (freq = UnicodeString('?')) or (freq = '*') or (freq = '+') )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeType:= ctUnknown;
+  FAllowedChildTypes:= [];
+  FFrequency:= freq;
+end;
+
+function TdomCMParticle.contentModelTest2(const source,
+                                                rest: TdomWideStringList;
+                                          const freq: UnicodeString;
+                                            var isNonDeterministic: boolean): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser exception in TdomCMParticle.contentModelTest');
+end;
+
+function TdomCMParticle.contentModelTest(const source,
+                                               rest: TdomWideStringList;
+                                           var isNonDeterministic: boolean): boolean;
+var
+  rest2: TdomWideStringList;
+begin
+  result:= false;
+  isNonDeterministic:= false;
+  if Frequency = '' then begin
+    result:= contentModelTest2(source,rest,'',isNonDeterministic);
+  end else if Frequency = '?' then begin
+    result:= contentModelTest2(source,rest,'?',isNonDeterministic);
+  end else if Frequency = '+' then begin
+    result:= contentModelTest2(source,rest,'',isNonDeterministic);
+    if result then begin
+      rest2:= TdomWideStringList.create;
+      try
+        while rest.Count > 0 do begin
+          if not contentModelTest2(rest,rest2,'',isNonDeterministic) then break;
+          rest.assign(rest2);
+        end;
+      finally
+        rest2.free;
+      end;
+    end;
+  end else if Frequency = '*' then begin
+    result:= contentModelTest2(source,rest,'?',isNonDeterministic);
+    if result then begin
+      rest2:= TdomWideStringList.create;
+      try
+        while rest.Count > 0 do begin
+          if not contentModelTest2(rest,rest2,'',isNonDeterministic) then break;
+          rest.assign(rest2);
+        end;
+      finally
+        rest2.free;
+      end;
+    end;
+  end;
+  if isNonDeterministic then result:= false;
+end;
+
+function TdomCMParticle.GetFrequency: UnicodeString;
+begin
+  Result:= FFrequency;
+end;
+
+procedure TdomCMParticle.SetFrequency(const freq: UnicodeString);
+begin
+  if not ( (freq = '') or (freq = UnicodeString('?')) or (freq = '*') or (freq = '+') )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  FFrequency:= freq;
+end;
+
+procedure TdomCMParticle.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+
+
+// ++++++++++++++++++++++ TdomCMSequenceParticle +++++++++++++++++++++++
+constructor TdomCMSequenceParticle.create(const aOwner: TdomCustomCMObject;
+                                          const freq: UnicodeString);
+begin
+  inherited create(aOwner,freq);
+  FNodeName:= '#sequence-particle';
+  FNodeType:= ctSequenceParticle;
+  FAllowedChildTypes:= [ctSequenceParticle,
+                        ctChoiceParticle,
+                        ctElementParticle];
+end;
+
+function TdomCMSequenceParticle.contentModelTest2(const source,
+                                                        rest: TdomWideStringList;
+                                                  const freq: UnicodeString;
+                                                    var isNonDeterministic: boolean): boolean;
+var
+  i: integer;
+  source2,rest2: TdomWideStringList;
+  ok: boolean;
+begin
+  isNonDeterministic:= false;
+  rest.Assign(source);
+  result:= false;
+  source2:= TdomWideStringList.create;
+  rest2:= TdomWideStringList.create;
+  try
+    source2.Assign(source);
+    ok:= false;
+    for i:= 0 to pred(childnodes.length) do begin
+      ok:= (childnodes.item(i) as TdomCMParticle).contentModelTest(source2,rest2,isNonDeterministic);
+      if not ok then break;
+      source2.Assign(rest2);
+    end;
+    if freq = '' then begin
+      if ok then begin
+        rest.assign(rest2);
+        result:= true;
+      end else result:= false;
+    end else if freq = '?' then begin
+      if ok then rest.assign(rest2);
+      result:= true;
+    end;
+  finally
+    source2.free;
+    rest2.free;
+  end;
+  if isNonDeterministic
+    then result:= false;
+end;
+
+procedure TdomCMSequenceParticle.writeCode(stream: TStream);
+var
+  i: integer;
+begin
+  if not HasChildNodes
+    then raise ENot_Supported_Err.create('Not supported error.');
+  writeWideChars(stream, ['(']);
+  for i:= 0 to childnodes.length-1 do begin
+    if i > 0 then writeWideChars(stream, [',', ' ']);
+    (ChildNodes.item(i) as TdomCMParticle).writeCode(stream);
+  end;
+  writeWideChars(stream, [')']);
+  writeWideString(stream, Frequency);
+end;
+
+function TdomCMSequenceParticle.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+//++++++++++++++++++++++ TdomChoiceParticle ++++++++++++++++++++++++++++
+constructor TdomCMChoiceParticle.create(const aOwner: TdomCustomCMObject;
+                                        const freq: UnicodeString);
+begin
+  inherited create(aOwner,freq);
+  FNodeName:= '#choice-particle';
+  FNodeType:= ctChoiceParticle;
+  FAllowedChildTypes:= [ctSequenceParticle,
+                        ctChoiceParticle,
+                        ctElementParticle];
+end;
+
+function TdomCMChoiceParticle.contentModelTest2(const source,
+                                                      rest: TdomWideStringList;
+                                                const freq: UnicodeString;
+                                                var   isNonDeterministic: boolean): boolean;
+var
+  i: integer;
+  rest3,rest2: TdomWideStringList;
+  okNumber: integer;
+begin
+  isNonDeterministic:= false;
+  rest.Assign(source);
+  result:= false;
+  rest3:= TdomWideStringList.create;
+  rest2:= TdomWideStringList.create;
+  try
+    okNumber:= 0;
+    for i:= 0 to pred(childnodes.length) do begin
+      if (childnodes.item(i) as TdomCMParticle).contentModelTest(source,rest2,isNonDeterministic) then begin
+        inc(okNumber);
+        if okNumber > 1 then begin
+          isNonDeterministic:= true;
+          break;
+        end;
+        rest3.assign(rest2);
+      end else if isNonDeterministic then break;
+    end;
+    if freq = '' then begin
+      if okNumber = 1 then begin
+        rest.assign(rest3);
+        result:= true;
+      end else result:= false;
+    end else if freq = '?' then begin
+      if okNumber = 1 then rest.assign(rest3);
+      result:= true;
+    end;
+  finally
+    rest3.free;
+    rest2.free;
+  end;
+  if isNonDeterministic
+    then result:= false;
+end;
+
+procedure TdomCMChoiceParticle.writeCode(stream: TStream);
+var
+  i: integer;
+begin
+  if not HasChildNodes
+    then raise ENot_Supported_Err.create('Not supported error.');
+  writeWideChars(stream, ['(']);
+  for i:= 0 to childnodes.length-1 do begin
+    if i > 0 then writeWideChars(stream, [' ', '|', ' ']);
+    (ChildNodes.item(i) as TdomCMParticle).writeCode(stream);
+  end;
+  writeWideChars(stream, [')']);
+  writeWideString(stream, Frequency);
+end;
+
+function TdomCMChoiceParticle.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+// +++++++++++++++++++ TdomCMPcdataChoiceParticle ++++++++++++++++++++++
+constructor TdomCMPcdataChoiceParticle.create(const aOwner: TdomCustomCMObject;
+                                              const freq: UnicodeString);
+begin
+  if freq <> '*'
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner,freq);
+  FNodeName:= '#pcdata-choice-particle';
+  FNodeType:= ctPcdataChoiceParticle;
+  FAllowedChildTypes:= [ctElementParticle];
+end;
+
+function TdomCMPcdataChoiceParticle.contentModelTest(const source,
+                                                           rest: TdomWideStringList;
+                                                       var isNonDeterministic: boolean): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser exception in TdomCMParticle.contentModelTest');
+end;
+
+procedure TdomCMPcdataChoiceParticle.SetFrequency(const freq: UnicodeString);
+begin
+  if freq <> '*'
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  FFrequency:= freq;
+end;
+
+procedure TdomCMPcdataChoiceParticle.writeCode(stream: TStream);
+var
+  i: integer;
+begin
+  writeWideString(stream, '( #PCDATA');
+  for i:= 0 to childnodes.length-1 do begin
+    writeWideChars(stream, [' ', '|', ' ']);
+    (ChildNodes.item(i) as TdomCMParticle).writeCode(stream);
+  end;
+  writeWideChars(stream, [' ', ')']);
+  writeWideString(stream, Frequency);
+end;
+
+function TdomCMPcdataChoiceParticle.elementDefined(const elementName: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if not IsXmlName(elementName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  result:= false;
+  for i:= 0 to pred(childnodes.length) do begin
+    if childnodes.item(i).nodeName = elementName then begin
+      result:= true;
+      exit;
+    end;
+  end;
+end;
+
+function TdomCMPcdataChoiceParticle.validate: boolean;
+var
+  i: integer;
+  particleNames: TdomWideStringList;
+begin
+  result:= true;
+  particleNames:= TdomWideStringList.create;
+  particleNames.Sorted:= true;
+  particleNames.Duplicates:= dupError;
+  try
+    for i:= 0 to pred(childnodes.length) do begin
+      try
+        particleNames.Add(childnodes.item(i).nodeName);
+      except  // xxx not elegant
+        result:= false;
+        sendErrorNotification(ET_DUPLICATE_NAME_IN_MIXED_CONTENT,childnodes.item(i));
+        break;
+      end; {try ... except ...}
+    end; {for ...}
+  finally
+    particleNames.free;
+  end;
+end;
+
+
+
+// +++++++++++++++++++++ TdomCMElementParticle +++++++++++++++++++++++++
+constructor TdomCMElementParticle.create(const aOwner: TdomCustomCMObject;
+                                         const name,
+                                               freq: UnicodeString);
+begin
+  if not isXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner,freq);
+  FNodeName:= name;
+  FNodeType:= ctElementParticle;
+  FAllowedChildTypes:= [];
+end;
+
+function TdomCMElementParticle.contentModelTest2(const source,
+                                                       rest: TdomWideStringList;
+                                                 const freq: UnicodeString;
+                                                   var isNonDeterministic: boolean): boolean;
+begin
+  isNonDeterministic:= false;
+  result:= false;
+  rest.Assign(source);
+  if freq = '' then begin
+    if rest.Count = 0 then exit;
+    if rest[0] = nodeName then begin
+      rest.Delete(0);
+      result:= true;
+    end else result:= false;
+  end else if freq = '?' then begin
+    result:= true;
+    if rest.Count = 0 then exit;
+    if rest[0] = nodeName then rest.Delete(0);
+  end;
+end;
+
+procedure TdomCMElementParticle.writeCode(stream: TStream);
+begin
+  writeWideStrings(stream, [NodeName, Frequency]);
+end;
+
+function TdomCMElementParticle.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+// +++++++++++++++++++++++ TdomCMNameParticle ++++++++++++++++++++++++++
+constructor TdomCMNameParticle.create(const aOwner: TdomCustomCMObject;
+                                      const name: UnicodeString);
+begin
+  if not isXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeType:= ctNameParticle;
+  FAllowedChildTypes:= [];
+end;
+
+procedure TdomCMNameParticle.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+function TdomCMNameParticle.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+// +++++++++++++++++++++ TdomCMNmtokenParticle +++++++++++++++++++++++++
+constructor TdomCMNmtokenParticle.create(const aOwner: TdomCustomCMObject;
+                                         const name: UnicodeString);
+begin
+  if not isXmlNmtoken(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeType:= ctNmtokenParticle;
+  FAllowedChildTypes:= [];
+end;
+
+procedure TdomCMNmtokenParticle.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+function TdomCMNmtokenParticle.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+// ++++++++++++++++++++++++++ TdomCMAttribute ++++++++++++++++++++++++++
+constructor TdomCMAttribute.create(const aOwner: TdomCustomCMObject;
+                                   const elementName,
+                                         attributeName,
+                                         attType,
+                                         defaultDecl,
+                                         attValue: UnicodeString);
+
+  procedure FurtherAttrNormalization(var S: UnicodeString);
+  const
+    DOUBLESPACE: UnicodeString = #$20#$20;
+  var
+    dummy: UnicodeString;
+    nPos: integer;
+  begin
+    repeat
+      nPos := Pos(DOUBLESPACE, S);
+      if nPos > 0 then
+        Delete(S, nPos, 1);
+    until nPos = 0;
+    dummy:= S;
+    s:= XMLTruncSpace(dummy);
+  end;
+
+const
+  sQuote: UnicodeString  = #$0027;
+  dQuote: UnicodeString  = '"';
+var
+  normalizedAttValue: UnicodeString;
+begin
+  if not IsXmlName(attributeName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not IsXmlName(elementName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not ( (attType='') or (attType='NOTATION') or
+    IsXmlStringType(attType) or IsXmlTokenizedType(attType) )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not ( (defaultDecl = '#REQUIRED') or (defaultDecl = '#IMPLIED') or
+           (defaultDecl = '#FIXED') or (defaultDecl = '') )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if ((defaultDecl = '#REQUIRED') or (defaultDecl = '#IMPLIED'))
+    and (attValue <> '')
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  normalizedAttValue:= attValue;
+  if not IsXmlStringType(attType)
+    then FurtherAttrNormalization(normalizedAttValue);
+  if not ( IsXMLAttValue(concat(dQuote,normalizedAttValue,dQuote)) or
+    IsXMLAttValue(concat(sQuote,normalizedAttValue,sQuote)) )
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FAttributeName:= attributeName;
+  FElementName:= elementName;
+  FNodeName:= '#cm-attribute';
+  FNodeType:= ctAttribute;
+  FAttributeType:= attType;
+  FDefaultDeclaration:= defaultDecl;
+  FNodeValue:= normalizedAttValue;
+  FAllowedChildTypes:= [];
+  if attType = ''
+    then FAllowedChildTypes:= [ctNmtokenParticle];
+  if attType = 'NOTATION'
+    then FAllowedChildTypes:= [ctNameParticle];
+end;
+
+procedure TdomCMAttribute.setNodeValue(const value: UnicodeString);
+begin
+end;
+
+
+
+
+// ++++++++++++++++++++++++++ TdomCMNotation ++++++++++++++++++++++++++
+constructor TdomCMNotation.create(const aOwner: TdomCustomCMObject;
+                                  const name,
+                                        pubId,
+                                        sysId: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlSystemChars(sysId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlPubidChars(pubId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeValue:= '';
+  FPublicId:= pubId;
+  FSystemId:= sysId;
+  FNodeType:= ctNotation;
+  FAllowedChildTypes:= [];
+end;
+
+
+
+// +++++++++++++++++++++++++++++ TdomCMEntity +++++++++++++++++++++++++++++
+constructor TdomCMEntity.create(const aOwner: TdomCustomCMObject;
+                                const name,
+                                      litValue: UnicodeString);
+begin
+  if not isXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FAllowedChildTypes:= [];
+  FEncoding:= '';  // xxx Set this on create?
+  FEntityType:= etInternal_Entity;
+  FIsParsedEntity:= true;
+  FIsResolved:= false;
+  FIsUnusable:= false;
+  FLiteralValue:= '';
+  FNodeName:= name;
+  FNodeValue:= '';
+  FNodeType:= ctEntity;
+  FNotationName:= '';
+  FPublicId:= '';
+  FReplacementText:= '';
+  FSystemId:= '';
+
+  calculateLiteralValue(litValue); // sets replacement text, too.
+end;
+
+constructor TdomCMEntity.createExtParsed(const aOwner: TdomCustomCMObject;
+                                         const name,
+                                               pubId,
+                                               sysId: UnicodeString);
+begin
+  if not isXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlPubidChars(pubId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlSystemChars(sysId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FAllowedChildTypes:= [];
+  FEncoding:= '';  // xxx Set this on create?
+  FEntityType:= etExternal_Entity;
+  FIsParsedEntity:= true;
+  FIsResolved:= false;
+  FIsUnusable:= false;
+  FLiteralValue:= '';
+  FNodeName:= name;
+  FNodeValue:= '';
+  FNodeType:= ctEntity;
+  FNotationName:= '';
+  FPublicId:= pubId;
+  FReplacementText:= '';
+  FSystemId:= sysId;
+end;
+
+constructor TdomCMEntity.createExtUnparsed(const aOwner: TdomCustomCMObject;
+                                           const name,
+                                                 pubId,
+                                                 sysId,
+                                                 notaName: UnicodeString);
+begin
+  if not isXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlPubidChars(pubId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlSystemChars(sysId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlName(notaName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FAllowedChildTypes:= [];
+  FEncoding:= '';  // xxx Set this on create?
+  FEntityType:= etExternal_Entity;
+  FIsParsedEntity:= false;
+  FIsResolved:= false;
+  FIsUnusable:= false;
+  FLiteralValue:= '';
+  FNodeName:= name;
+  FNodeValue:= '';
+  FNodeType:= ctEntity;
+  FNotationName:= notaName;
+  FPublicId:= pubId;
+  FReplacementText:= '';
+  FSystemId:= sysId;
+end;
+
+function TdomCMEntity.refersToXyz(const allowUnresolvableEntities: boolean;
+                                  const previousEntities: TdomWideStringList;
+                                  const whatToTest: integer): boolean;
+// Recursivly tests, whether the TdomCMEntity is an external entity
+// (whatToTest = 1), an unparsed entity (whatToTest = 2), or an unusable
+// (whatToTest = 3).
+// To just traverse all resolved entity references in order to test
+// for circular references, 'whatToTest' must be set to 0.
+const
+  AMP:       WideChar = #$26;  // '&'
+  SEMICOLON: WideChar = #$3B;  // ';'
+var
+  i: integer;
+  SChar: widechar;
+  refName,S: UnicodeString;
+  dereferencedEntity: TdomCMEntity;
+  updatedEntities: TdomWideStringList;
+  ampActive: boolean;
+begin
+  case whatToTest of
+    0: Result:= false;
+    1: result:= (entityType = etExternal_Entity);
+    2: result:= not FIsParsedEntity;
+    3: result:= FIsUnusable;
+  else
+    raise ESyntax_Err.create('Syntax error in TdomCMEntity.refersToXyz');
+  end;
+  if result then exit;
+  S:= ReplacementText;
+  i:= 1;
+  ampActive:= false;
+  refName:= '';
+  while i <= length(S) do begin
+    SChar:= WideChar((PWideChar(S)+i-1)^);
+    if ampActive then begin
+      if SChar = SEMICOLON then begin
+        if IsXmlName(refName) then begin
+          if (previousEntities.indexOf(refName) = -1) then begin
+            dereferencedEntity:= (ownerCMObject as TdomCMObject).Entities.getNamedItem(refName);
+            if not assigned(dereferencedEntity) then begin
+              if not allowUnresolvableEntities
+                then if not ( (refName='lt') or (refName='gt') or (refName='amp') or (refName='apos') or (refName='quot'))
+                  then raise EConvertError.CreateFmt('&%S; cannot be resolved.',[refName]);
+            end else begin
+              updatedEntities:= TdomWideStringList.create;
+              try
+                updatedEntities.Assign(previousEntities);
+                updatedEntities.Add(refName);
+                Result:= dereferencedEntity.refersToXyz(allowUnresolvableEntities,updatedEntities,whatToTest);
+              finally
+                updatedEntities.free;
+              end;
+            end;
+          end else begin
+            if whatToTest = 0
+              then result:= true;  // circular reference
+          end;
+          if result then exit;
+        end;
+        ampActive:= false;
+        refName:= '';
+      end else refName:= concat(refName,UnicodeString(SChar));
+    end else begin
+      if SChar = AMP then ampActive:= true;
+    end;
+    inc(i);
+  end; {while ...}
+end;
+
+procedure TdomCMEntity.calculateLiteralValue(const S: UnicodeString);
+const
+  AMP:       WideChar = #$26;  // '&'
+  SEMICOLON: WideChar = #$3B;  // ';'
+var
+  i,j,indexpos: integer;
+  SChar, SChar2: widechar;
+  ref: UnicodeString;
+  content: TdomCustomStr;
+  parser: TXmlToDomParser;
+  dummyDoc: TdomDocument;
+begin
+  if not isParsedEntity
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+
+  // Calculate replacment text
+  content:= TdomCustomStr.create;
+  try
+    i:= 1;
+    while i <= length(S) do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if IsUtf16LowSurrogate(sChar)
+        then raise EInvalid_Character_Err.CreateFmt('%S must not start with a UTF-16 low surrogate.',[S]);
+      if IsUtf16HighSurrogate(SChar) then begin
+        if i+1 > length(s)
+          then raise EInvalid_Character_Err.CreateFmt('%S must not end with a UTF-16 high surrogate.',[S]);
+        inc(i);
+        SChar:= WideChar((PWideChar(S)+i-1)^);
+        if not IsUtf16LowSurrogate(SChar)
+          then raise EInvalid_Character_Err.CreateFmt('%S contains an UTF-16 high surrogate without its corresponding low surrogate.',[S]);
+      end;
+      if not IsXmlChar(sChar)
+        then raise EInvalid_Character_Err.CreateFmt('%S contains an invalid character.',[S]);
+      if (entityType = etInternal_Entity) and (SChar = AMP) then begin // Reference?
+        indexpos:= -1;
+        for j:= i+1 to length(S) do begin
+          SChar2:= WideChar((PWideChar(S)+j-1)^);
+          if SChar2 = SEMICOLON then begin indexpos:= j; break; end;
+        end;
+        if indexpos = -1
+          then raise EInvalid_Character_Err.CreateFmt('%S contains an ''&'' without a '';''.',[S]);
+        ref:= copy(S,i,j-i+1);
+        if not (IsXmlEntityRef(ref) or IsXmlCharRef(ref))
+          then raise EInvalid_Character_Err.CreateFmt('%S contains an invalid reference.',[S]);
+        if (entityType = etInternal_Entity) and isXmlCharRef(ref)
+          then content.addWideString(XmlCharRefToStr(ref))
+          else content.addWideString(ref);
+        i:= j;
+      end else content.addWideChar(SChar);
+      inc(i);
+    end; {while ...}
+
+    FReplacementText:= content.value;
+    FLiteralValue:= S;
+    FIsResolved:= true;
+
+  finally
+    content.free;
+  end;
+
+  // IsUnusable?
+  if FReplacementText <> '' then begin
+    parser:= TXmlToDomParser.create(nil);
+    try
+      parser.domImpl:= OwnerCMObject.domImplementation;
+      dummyDoc:= OwnerCMObject.domImplementation.createDocument('dummy',nil);
+      try
+        parser.docWideStringToDom(FReplacementText,'','',dummyDoc.documentElement);
+      except
+        FIsUnusable:= true;
+      end; {try ...}
+      OwnerCMObject.domImplementation.FreeDocument(dummyDoc);
+    finally
+      parser.free;
+    end; {try ...}
+  end; {if ...}
+end;
+
+procedure TdomCMEntity.setNodeValue(const value: UnicodeString);
+begin
+end;
+
+function TdomCMEntity.getIsUnusable: boolean;
+begin
+  if isParsedEntity and (FEntityType = etExternal_Entity)
+    then calculateLiteralValue(literalValue);
+  result:= refersToUnusableEntity(true);
+end;
+
+function TdomCMEntity.getLiteralValue: UnicodeString;
+begin
+  if not isParsedEntity
+    then raise EConvertError.CreateFmt('&%S; is an unparsed entity.',[Nodename]);
+  if not resolve
+    then raise EConvertError.create('Entity cannot be resolved.');
+  result:= FLiteralValue;
+end;
+
+function TdomCMEntity.getNormalizedValue: UnicodeString;
+const
+  TAB:       WideChar = #$9;   // Horizontal Tabulation
+  LF:        WideChar = #$A;   // Line Feed
+  CR:        WideChar = #$D;   // Carriage Return
+  SPACE:     WideChar = #$20;  // ' '
+  AMP:       WideChar = #$26;  // '&'
+  SEMICOLON: WideChar = #$3B;  // ';'
+var
+  i,j: integer;
+  SChar, SChar2: widechar;
+  ref,derefText,S: UnicodeString;
+  content: TdomCustomStr;
+  dereferencedEntity: TdomCMEntity;
+begin
+  if not isParsedEntity
+    then raise EConvertError.CreateFmt('&%S; is an unparsed entity.',[Nodename]);
+  if entityType = etExternal_Entity
+    then raise EConvertError.CreateFmt('&%S; is an external entity.',[Nodename]);
+  result:= '';
+  S:= ReplacementText;
+  content:= TdomCustomStr.create;
+  try
+    i:= 1;
+    while i <= length(S) do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if (SChar = TAB) or (SChar = LF) or (SChar = CR) // White space?
+        then content.addWideChar(SPACE)
+      else if SChar = AMP then begin                   // Reference?
+        for j:= i+1 to length(S) do begin
+          SChar2:= WideChar((PWideChar(S)+j-1)^);
+          if SChar2 = SEMICOLON then break;            // End of Reference?
+        end;
+        // Test for indexpos = -1 is not necessary here, because of the previous test in calculateReplacementText().
+        ref:= copy(S,i,j-i+1);
+        if IsXmlEntityRef(ref) then begin
+          dereferencedEntity:= (ownerCMObject as TdomCMObject).Entities.getNamedItem(copy(ref,2,length(ref)-2));
+          if not assigned(dereferencedEntity)
+            then raise EConvertError.CreateFmt('&%S; refers to an undeclared entity.',[Nodename]);
+          if dereferencedEntity.entityType = etExternal_Entity
+            then raise EConvertError.CreateFmt('&%S; refers to an external entity.',[Nodename]);
+          if dereferencedEntity = self
+            then raise EConvertError.CreateFmt('&%S; refers to itself.',[Nodename]);
+          derefText:= dereferencedEntity.normalizedValue; // Whether dereferencedEntity is assigned was tested in 'refersToUnparsedEntity'
+          content.addWideString(derefText);
+        end else // Test for IsXmlCharRef is not necessary here, because of the previous test in calculateReplacementText().
+          content.addWideString(XmlCharRefToStr(ref));
+        i:= j;
+      end else content.addWideChar(SChar);
+      inc(i);
+    end; {while ...}
+    Result:= content.value;
+  finally
+    content.free;
+  end;
+end;
+
+function TdomCMEntity.getReplacementText: UnicodeString;
+begin
+  if not isParsedEntity
+    then raise EConvertError.CreateFmt('&%S; is an unparsed entity.',[Nodename]);
+  if not resolve
+    then raise EConvertError.create('Invalid entity reference error.');
+  result:= FReplacementText;
+end;
+
+function TdomCMEntity.refersToItself(const allowUnresolvableEntities: boolean): boolean;
+// This procedure just traverses through all entity references in
+// order to test for circular references.  If a circular reference is
+// found, the called subroutine 'refersToXyz' raises an EConvertError.
+var
+  previousEntities: TdomWideStringList;
+begin
+  result:= false;
+  previousEntities:= TdomWideStringList.create;
+  try
+    try
+      result:= refersToXyz(allowUnresolvableEntities,previousEntities,0);
+    except
+      raise EConvertError.create('Invalid entity reference error.');
+    end;
+  finally
+    previousEntities.free;
+  end;
+end;
+
+function TdomCMEntity.refersToExternalEntity(const allowUnresolvableEntities: boolean): boolean;
+// This function returns 'true', if a node refers directly or
+// indirectly to an external Entity.
+var
+  previousEntities: TdomWideStringList;
+begin
+  result:= false;
+  previousEntities:= TdomWideStringList.create;
+  try
+    try
+      result:= refersToXyz(allowUnresolvableEntities,previousEntities,1);
+    except
+      raise EConvertError.create('Invalid entity reference error.');
+    end;
+  finally
+    previousEntities.free;
+  end;
+end;
+
+function TdomCMEntity.refersToUnparsedEntity(const allowUnresolvableEntities: boolean): boolean;
+// This function returns 'true', if a node refers directly or
+// indirectly to an unparsed Entity.
+var
+  previousEntities: TdomWideStringList;
+begin
+  result:= false;
+  previousEntities:= TdomWideStringList.create;
+  try
+    try
+      result:= refersToXyz(allowUnresolvableEntities,previousEntities,2);
+    except
+      raise EConvertError.create('Invalid entity reference error.');
+    end;
+  finally
+    previousEntities.free;
+  end;
+end;
+
+function TdomCMEntity.refersToUnusableEntity(const allowUnresolvableEntities: boolean): boolean;
+// This function returns 'true', if a node refers directly or
+// indirectly to an Entity marked as unusable (such as declared
+// e.g. by <!ENTITY foo "<">), or if the node itself is unusable.
+var
+  previousEntities: TdomWideStringList;
+begin
+  result:= false;
+  previousEntities:= TdomWideStringList.create;
+  try
+    try
+      result:= refersToXyz(allowUnresolvableEntities,previousEntities,3);
+    except
+      raise EConvertError.create('Invalid entity reference error.');
+    end;
+  finally
+    previousEntities.free;
+  end;
+end;
+
+function TdomCMEntity.resolve: boolean;
+var
+  action: TXmlParserAction;
+  litValue,PId,SId: UnicodeString;
+  inputSrc: TXmlInputSource;
+  stream: TStream;
+begin
+  // xxx resolvement of unparsed entities missing!
+  if not isResolved then begin
+    result:= false;
+    if isParsedEntity and (FEntityType = etExternal_Entity) then begin
+
+      stream:= nil;
+      PId:= publicId;
+      SId:= systemId;
+      if assigned(ownerCMObject)
+        then if assigned(ownerCMObject.domImplementation)
+          then ownerCMObject.domImplementation.doExternalParsedEntity(ownerCMObject.systemId,PId,SId,stream,action);
+      if (action <> paFail) and assigned(stream) then begin
+        try
+          // convert external entity value to UTF-16BE:
+          InputSrc:= TXmlInputSource.create(stream,'','',1);
+          try
+            if InputSrc.hasMalformedDecl
+             or not ( InputSrc.declType in [ DT_TEXT_DECLARATION,
+                                             DT_XML_OR_TEXT_DECLARATION,
+                                             DT_UNSPECIFIED] )
+            then result:= false
+            else begin
+              litValue:= InputSrc.streamAsWideString;
+              calculateLiteralValue(litValue);
+              result:= true;
+            end; {if ... else ...}
+          finally
+            InputSrc.free;
+          end; {try}
+        finally
+          stream.free;
+        end;
+      end; {if ...}
+
+    end; {if ...}
+  end else result:= true;
+end;
+
+
+
+// ++++++++++++++++++++++++ TdomCustomCMEntDecl ++++++++++++++++++++++++++
+constructor TdomCustomCMEntDecl.create(const aOwner: TdomCustomCMObject;
+                                       const name,
+                                             litValue: UnicodeString);
+begin
+  if not isXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FAllowedChildTypes:= [];
+  FEntityType:= etInternal_Entity;
+  FNodeName:= name;
+  FNodeValue:= litValue;
+  FPublicId:= '';
+  FSystemId:= '';
+end;
+
+constructor TdomCustomCMEntDecl.createExtParsed(const aOwner: TdomCustomCMObject;
+                                                const name,
+                                                      pubId,
+                                                      sysId: UnicodeString);
+begin
+  if not isXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlSystemChars(sysId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  if not isXmlPubidChars(pubId)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FPublicId:= pubId;
+  FSystemId:= sysId;
+  FEntityType:= etExternal_Entity
+end;
+
+function TdomCustomCMEntDecl.insertBefore(const newChild,
+                                               refChild: TdomCMNode): TdomCMNode;
+begin
+  if (publicId <> '') or (systemId <> '')
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= inherited insertBefore(newChild,refChild);
+end;
+
+function TdomCustomCMEntDecl.replaceChild(const newChild,
+                                                oldChild: TdomCMNode): TdomCMNode;
+begin
+  if (publicId <> '') or (systemId <> '')
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= inherited replaceChild(newChild,oldChild);
+end;
+
+function TdomCustomCMEntDecl.appendChild(const newChild: TdomCMNode): TdomCMNode;
+begin
+  if (publicId <> '') or (systemId <> '')
+    then raise ENo_Modification_Allowed_Err.create('No modification allowed error.');
+  Result:= inherited appendChild(newChild);
+end;
+
+function TdomCustomCMEntDecl.GetPublicId: UnicodeString;
+begin
+  Result:= FPublicId;
+end;
+
+function TdomCustomCMEntDecl.GetSystemId: UnicodeString;
+begin
+  Result:= FSystemId;
+end;
+
+function TdomCustomCMEntDecl.GetEntityType: TdomEntityType;
+begin
+  result:= FEntityType;
+end;
+
+
+
+// +++++++++++++++++++++ TdomCMEntityDeclaration +++++++++++++++++++++++
+constructor TdomCMEntityDeclaration.create(const aOwner: TdomCustomCMObject;
+                                           const name,
+                                                 litValue: UnicodeString);
+begin
+  inherited;
+  FIsParsedEntity:= true;
+  FIsReadonly:= true;
+  FNodeType:= ctEntityDeclaration;
+  FNotationName:= '';
+end;
+
+constructor TdomCMEntityDeclaration.createExtParsed(const aOwner: TdomCustomCMObject;
+                                                    const name,
+                                                          pubId,
+                                                          sysId: UnicodeString);
+begin
+  inherited;
+  FEntityType:= etExternal_Entity;
+  FIsParsedEntity:= true;
+  FIsReadonly:= true;
+  FNodeType:= ctEntityDeclaration;
+  FNotationName:= '';
+end;
+
+constructor TdomCMEntityDeclaration.createExtUnparsed(const aOwner: TdomCustomCMObject;
+                                                      const name,
+                                                            pubId,
+                                                            sysId,
+                                                            notaName: UnicodeString);
+begin
+  if not IsXMLName(notaName)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited  createExtParsed(aOwner,name,pubId,sysId);
+  FEntityType:= etExternal_Entity;
+  FIsParsedEntity:= false;
+  FIsReadonly:= true;
+  FNodeType:= ctEntityDeclaration;
+  FNotationName:= notaName;
+end;
+
+function TdomCMEntityDeclaration.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+// ++++++++++++++++ TdomCMParameterEntityDeclaration +++++++++++++++++++
+constructor TdomCMParameterEntityDeclaration.create(const aOwner: TdomCustomCMObject;
+                                                    const name,
+                                                          litValue: UnicodeString);
+begin
+  inherited;
+  FIsReadonly:= true;
+  FNodeType:= ctParameterEntityDeclaration;
+end;
+
+constructor TdomCMParameterEntityDeclaration.createExtParsed(const aOwner: TdomCustomCMObject;
+                                                             const name,
+                                                                   pubId,
+                                                                   sysId: UnicodeString);
+begin
+  inherited;
+  FEntityType:= etExternal_Entity;
+  FIsReadonly:= true;
+  FNodeType:= ctParameterEntityDeclaration;
+end;
+
+function TdomCMParameterEntityDeclaration.validate: boolean;
+begin
+  result:= true;
+end;
+
+
+
+// +++++++++++++++++++ TdomCMParameterEntityReference +++++++++++++++++++
+constructor TdomCMParameterEntityReference.create(const aOwner: TdomCustomCMObject;
+                                                  const name: UnicodeString);
+begin
+  if not IsXmlName(name)
+    then raise EInvalid_Character_Err.create('Invalid character error.');
+  inherited create(aOwner);
+  FNodeName:= name;
+  FNodeValue:= '';
+  FNodeType:= ctParameterEntityReference;
+  FAllowedChildTypes:= [];
+end;
+
+procedure TdomCMParameterEntityReference.SetNodeValue(const value: UnicodeString);
+begin
+end;
+
+function TdomCMParameterEntityReference.validate: boolean;
+var
+  i: integer;
+begin
+  result:= true;
+  for i:= 0 to pred(childnodes.length) do begin  // xxx necessary?
+    if not childnodes.item(i).validate then begin
+      result:= false;
+      exit;
+    end;
+  end;
+end;
+
+
+
+// ++++++++++++++++++++++++ TdomCMFragment +++++++++++++++++++++++++++++
+constructor TdomCMFragment.create(const aOwner: TdomCustomCMObject);
+begin
+  inherited create(aOwner);
+  FNodeName:= '#cm-fragment';
+  FNodeValue:= '';
+  FNodeType:= ctFragment;
+end;
+
+procedure TdomCMFragment.SetNodeValue(const value: UnicodeString);
+begin
+  // Do nothing.
+end;
+
+
+
+// +++++++++++++++++++++++++++ TXmlSourceCode ++++++++++++++++++++++++++
+procedure TXmlSourceCode.calculatePieceOffset(const startItem: integer);
+var
+  os, i: integer;
+begin
+  if (startItem < count) and (startItem >= 0) then begin
+    if startItem = 0
+      then os:= 0
+      else begin
+        if not assigned(Items[startItem-1])
+          then begin
+            pack;
+            exit;
+          end else with TXmlSourceCodePiece(Items[startItem-1]) do
+            os:= FOffset + length(FText);
+      end;
+    for i:= startItem to count -1 do
+      if not assigned(Items[i])
+        then begin
+          pack;
+          exit;
+        end else with TXmlSourceCodePiece(Items[i]) do begin
+          FOffset:= os;
+          os:= os + length(FText);
+        end;
+  end; {if ...}
+end;
+
+function TXmlSourceCode.getNameOfFirstTag: UnicodeString;
+var
+  i,j,k: integer;
+begin
+  result:= '';
+  for i:= 0 to count -1 do
+    if assigned(Items[i]) then
+      with TXmlSourceCodePiece(Items[i]) do
+        if (pieceType = xmlStartTag) or (pieceType = xmlEmptyElementTag) then begin
+          if pieceType = xmlStartTag
+            then k:= length(text)-1
+            else k:= length(text)-2;
+          j:= 1;
+          while j < k do begin
+            inc(j);
+            if IsXmlWhiteSpace(text[j]) then break;
+            Result:= concat(Result,UnicodeString(WideChar(text[j])));
+          end;
+          exit;
+        end;
+end;
+
+function TXmlSourceCode.Add(Item: pointer): Integer;
+begin
+  if assigned(Item) then begin
+    if not assigned(TXmlSourceCodePiece(Item).FOwner)
+      then TXmlSourceCodePiece(Item).FOwner:= self
+      else Error('Inuse source code piece error.',-1);
+  end else Error('Item not assigned error.',-1);
+  Result:= inherited Add(Item);
+  calculatePieceOffset(Result);
+end;
+
+procedure TXmlSourceCode.Clear;
+var
+  i: integer;
+begin
+  for i:= 0 to count -1 do
+    if assigned(Items[i]) then
+      with TXmlSourceCodePiece(Items[i]) do begin
+        FOffset:= 0;
+        FOwner:= nil;
+      end;
+  inherited clear;
+end;
+
+procedure TXmlSourceCode.ClearAndFree;
+var
+  i: integer;
+begin
+  for i:= 0 to count -1 do
+    if assigned(Items[i]) then TXmlSourceCodePiece(Items[i]).free;
+  inherited clear;
+end;
+
+procedure TXmlSourceCode.Delete(Index: Integer);
+begin
+  if assigned(Items[index]) then
+    with TXmlSourceCodePiece(Items[index]) do begin
+      FOffset:= 0;
+      FOwner:= nil;
+    end;
+  inherited Delete(index);
+  calculatePieceOffset(Index);
+end;
+
+procedure TXmlSourceCode.Exchange(Index1, Index2: Integer);
+var
+  nr: integer;
+begin
+  nr:= MinIntValue([Index1,Index2]);
+  inherited Exchange(Index1,Index2);
+  calculatePieceOffset(nr);
+end;
+
+function TXmlSourceCode.GetPieceAtPos(pos: integer): TXmlSourceCodePiece;
+var
+  i: integer;
+begin
+  // xxx This search routine is not optimized.
+  Result:= nil;
+  if pos < 1 then exit;
+  for i:= 0 to count -1 do
+    if not assigned(Items[i]) then begin
+      pack;
+      Result:= getPieceAtPos(pos);
+    end else with TXmlSourceCodePiece(Items[i]) do begin
+      if (FOffset + length(FText)) >= pos then begin
+        Result:= TXmlSourceCodePiece(Items[i]);
+        exit;
+      end;
+    end;
+end;
+
+procedure TXmlSourceCode.Insert(Index: Integer; Item: pointer);
+begin
+  if assigned(Item) then begin
+    if not assigned(TXmlSourceCodePiece(Item).FOwner)
+      then TXmlSourceCodePiece(Item).FOwner:= self
+      else Error('Inuse source code piece error.',-1);
+  end else Error('Item not assigned error.',-1);
+  inherited Insert(Index,item);
+  calculatePieceOffset(index);
+end;
+
+procedure TXmlSourceCode.Move(CurIndex, NewIndex: Integer);
+var
+  nr: integer;
+begin
+  nr:= MinIntValue([CurIndex,NewIndex]);
+  inherited Move(CurIndex, NewIndex);
+  calculatePieceOffset(nr);
+end;
+
+procedure TXmlSourceCode.Pack;
+begin
+  inherited pack;
+  calculatePieceOffset(0);
+end;
+
+function TXmlSourceCode.Remove(Item: pointer): Integer;
+var
+  nr: integer;
+begin
+  nr:= IndexOf(Item);
+  result:= inherited Remove(Item);
+  if assigned(Items[nr]) then
+    with TXmlSourceCodePiece(Item) do begin
+      FOffset:= 0;
+      FOwner:= nil;
+    end;
+  calculatePieceOffset(nr);
+end;
+
+procedure TXmlSourceCode.Sort(Compare: TListSortCompare);
+begin
+  inherited Sort(Compare);
+  calculatePieceOffset(0);
+end;
+
+
+
+// ++++++++++++++++++++++++ TXmlSourceCodePiece ++++++++++++++++++++++++
+constructor TXmlSourceCodePiece.create(const pt: TdomPieceType);
+begin
+  FPieceType:= pt;
+  Ftext:= '';
+  FOffset:= 0;
+  FOwner:= nil;
+end;
+
+
+
+// ++++++++++++++++++++++++++ TXmlInputSource ++++++++++++++++++++++++++
+constructor TXmlInputSource.create(const stream: TStream;
+                                   const publicId,
+                                         systemId: UnicodeString;
+                                   const tabWidthValue: integer);
+var
+  line, column: integer;
+begin
+  if not assigned(stream)
+    then raise EStreamError.create('Stream not specified.');
+  inherited create;
+  FLastUcs4:= 0;
+  FLastCharWasCR:= false;
+  FStream:= stream;
+  FPublicId:= publicId;
+  FSystemId:= systemId;
+  FHasMalformedDecl:=
+    not evaluateXmlOrTextDecl( tabWidthValue,
+                               FDeclType,
+                               FEncoding,
+                               FVersionNumber,
+                               FEncodingName,
+                               FStandalone,
+                               line,
+                               column );
+  FStartPosition:= FStream.Position;
+  FLocator:= TdomInputSourceLocator.create(self,line,column,line,column,tabWidthValue);
+end;
+
+destructor TXmlInputSource.destroy;
+begin
+  FLocator.free;
+  inherited destroy;
+end;
+
+function TXmlInputSource.evaluateXmlOrTextDecl(const tabWidthValue: integer;
+                                                 out declType: TdomXMLDeclType;
+                                                 out encodingType: TdomEncodingType;
+                                                 out versionInfo,
+                                                     encName: UnicodeString;
+                                                 out standalone: TdomStandalone;
+                                                 out lineOffset,
+                                                     columnOffset: integer): boolean;
+var
+  BOM_Offset: integer;  // Byte order mark offset
+  ch: wideChar;
+  encType: TdomEncodingType;
+  loc: TdomInputSourceLocator;
+  qm: wideChar;
+  str1: wideChar;
+  b: byte;
+begin
+  result:= true;
+  declType:= DT_UNKNOWN;
+  encName:= '';
+  versionInfo:= '';
+  standalone:= STANDALONE_UNSPECIFIED;
+  lineOffset:= 0;
+  columnOffset:= 0;
+
+  try
+    FStream.ReadBuffer(str1,2);
+    case ord(str1) of
+      $feff: begin encodingType:= etUTF16BE; BOM_Offset:= 2; end;
+      $fffe: begin encodingType:= etUTF16LE; BOM_Offset:= 2; end;
+      $bbef: begin
+                  FStream.Read(b, 1);
+                  if (b = $bf) then begin
+                     encodingType:= etUTF8;
+                     BOM_Offset:= 3;
+                  end
+                  else begin
+                       encodingType:= etUTF8;
+                       BOM_Offset:= 0;
+                       FStream.seek(0,soFromBeginning);
+                  end;
+             end;
+    else
+      encodingType:= etUTF8;
+      BOM_Offset:= 0;
+      FStream.seek(0,soFromBeginning);
+    end;
+  except
+    on EReadError do begin
+      encodingType:= etUTF8;
+      FStream.seek(0,soFromBeginning);
+      declType:= DT_UNSPECIFIED;
+      exit;
+    end;
+  end; {try ...}
+
+  try
+    loc:= TdomInputSourceLocator.create(self,1,1,1,1,tabWidthValue);
+    try
+      if getNextWideChar2(ch,encodingType,loc)
+        and ( ord(ch) = $003c )  // '<'
+        and getNextWideChar2(ch,encodingType,loc)
+        and ( ord(ch) = $003f )  // '?'
+        and getNextWideChar2(ch,encodingType,loc)
+        and ( ord(ch) = $0078 )  // 'x'
+        and getNextWideChar2(ch,encodingType,loc)
+        and ( ord(ch) = $006d )  // 'm'
+        and getNextWideChar2(ch,encodingType,loc)
+        and ( ord(ch) = $006c )  // 'l'
+      then begin // Does the stream start with '<?xml'?
+
+        declType:= DT_XML_OR_TEXT_DECLARATION;
+
+        if getNextWideChar2(ch,encodingType,loc) then begin
+
+          // Skip Whitespace:
+          while IsXmlWhiteSpace(ch) do
+            if not getNextWideChar2(ch,encodingType,loc) then begin
+              result:= false;
+              exit;
+            end;
+
+          // versionInfo:
+          if ( ord(ch) = $0076 ) then begin // 'v'
+            if getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0065 )  // 'e'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0072 )  // 'r'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0073 )  // 's'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0069 )  // 'i'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006f )  // 'o'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006e )  // 'n'
+            then begin
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+              if not ( ord(ch) = $003d ) then begin  // '='
+                result:= false;
+                exit;
+              end;
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+              if not ( ( ord(ch) = $0022 ) or ( ord(ch) = $0027 ) ) then begin  // '"' or '''
+                result:= false;
+                exit;
+              end;
+
+              qm:= ch;
+
+              // Get version number:
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+              if isXmlVersionNumChar(ch) then begin
+                versionInfo:= ch;
+              end else begin
+                result:= false;
+                exit;
+              end;
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+              while isXmlVersionNumChar(ch) do begin
+                versionInfo:= concat(versionInfo,UnicodeString(ch));
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+              end;
+
+              if ch <> qm then begin  // Is the first quotation mark of the same type as the second?
+                result:= false;
+                exit;
+              end;
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+            end else begin
+              result:= false;
+              exit;
+            end; {if ... else ...}
+          end else declType:= DT_TEXT_DECLARATION;
+
+          // EncodingDecl:
+          if ( ord(ch) = $0065 ) then begin // 'e'
+            if getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006e )  // 'n'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0063 )  // 'c'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006f )  // 'o'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0064 )  // 'd'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0069 )  // 'i'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006e )  // 'n'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0067 )  // 'g'
+            then begin
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+              if not ( ord(ch) = $003d ) then begin  // '='
+                result:= false;
+                exit;
+              end;
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+              if not ( ( ord(ch) = $0022 ) or ( ord(ch) = $0027 ) ) then begin  // '"' or '''
+                result:= false;
+                exit;
+              end;
+
+              qm:= ch;
+
+              // Get encoding name value:
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+              if isXmlEncNameLeadingChar(ch) then begin
+                encName:= ch;
+              end else begin
+                result:= false;
+                exit;
+              end;
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+              while isXmlEncNameFollowingChar(ch) do begin
+                encName:= concat(encName,UnicodeString(ch));
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+              end;
+
+              if ch <> qm then begin  // Is the first quotation mark of the same type as the second?
+                result:= false;
+                exit;
+              end;
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+            end else begin
+              result:= false;
+              exit;
+            end; {if ... else ...}
+          end else begin
+            if declType = DT_TEXT_DECLARATION then begin
+              result:= false;
+              exit;
+            end else declType:= DT_XML_DECLARATION;
+          end; {if ... else ...}
+
+          // SDDecl:
+          if ( ord(ch) = $0073 ) then begin // 's'
+            if getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0074 )  // 't'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0061 )  // 'a'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006e )  // 'n'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0064 )  // 'd'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0061 )  // 'a'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006c )  // 'l'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006f )  // 'o'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $006e )  // 'n'
+              and getNextWideChar2(ch,encodingType,loc)
+              and ( ord(ch) = $0065 )  // 'e'
+            then begin
+
+              if declType = DT_TEXT_DECLARATION then begin
+                result:= false;
+                exit;
+              end else declType:= DT_XML_DECLARATION;
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+              if not ( ord(ch) = $003d ) then begin  // '='
+                result:= false;
+                exit;
+              end;
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+              if not ( ( ord(ch) = $0022 ) or ( ord(ch) = $0027 ) ) then begin  // '"' or '''
+                result:= false;
+                exit;
+              end;
+
+              qm:= ch;
+
+              // Get standalone document declaration value:
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+              case ord(ch) of
+                $0079: begin // 'y'
+                  if getNextWideChar2(ch,encodingType,loc)
+                    and ( ord(ch) = $0065 )  // 'e'
+                    and getNextWideChar2(ch,encodingType,loc)
+                    and ( ord(ch) = $0073 )  // 's'
+                    and getNextWideChar2(ch,encodingType,loc)
+                    then begin
+                      standalone:= STANDALONE_YES;
+                    end else begin
+                      result:= false;
+                      exit;
+                    end;
+                end;
+                $006e: begin // 'n'
+                  if getNextWideChar2(ch,encodingType,loc)
+                    and ( ord(ch) = $006f )  // 'o'
+                    and getNextWideChar2(ch,encodingType,loc)
+                    then begin
+                      standalone:= STANDALONE_NO;
+                    end else begin
+                      result:= false;
+                      exit;
+                    end;
+                end;
+              else
+                result:= false;
+                exit;
+              end; {case ...}
+
+              if ch <> qm then begin  // Is the first quotation mark of the same type as the second?
+                result:= false;
+                exit;
+              end;
+
+              if not getNextWideChar2(ch,encodingType,loc) then begin
+                result:= false;
+                exit;
+              end;
+
+              // Skip Whitespace:
+              while IsXmlWhiteSpace(ch) do
+                if not getNextWideChar2(ch,encodingType,loc) then begin
+                  result:= false;
+                  exit;
+                end;
+
+            end else begin
+              result:= false;
+              exit;
+            end; {if ... else ...}
+          end; {if ...}
+
+          // '?>':
+          if    ( ord(ch) = $003f ) // '?'
+            and getNextWideChar2(ch,encodingType,loc)
+            and ( ord(ch) = $003e )  // '>'
+          then begin
+
+            // Calculate encodingType:
+            encType:= StrToEncoding({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(UTF16To7BitASCIIStr(encName)));
+            if encType <> etUnknown
+              then encodingType:= encType;
+
+          end else result:= false;
+
+        end else result:= false;
+
+      end else begin
+        declType:= DT_UNSPECIFIED;
+        FStream.seek(BOM_Offset,soFromBeginning);  // Set the stream position directly behind the byte order mark. 
+      end;
+
+    finally
+      lineOffset:= loc.lineNumber;
+      columnOffset:= loc.columnNumber;
+      loc.free;
+    end; {try ...}
+  except
+    result:= false;
+    FStream.seek(BOM_Offset,soFromBeginning);
+  end; {try ...}
+end;
+
+function TXmlInputSource.getNextWideChar2(var dest: wideChar;
+                                          const enc: TdomEncodingType;
+                                          const locator: TdomInputSourceLocator): boolean;
+const
+  CR: WideChar  = #13;
+  LF: WideChar  = #10;
+  MaxCode: array[1..6] of integer = ($7F,$7FF,$FFFF,$1FFFFF,$3FFFFFF,$7FFFFFFF);
+var
+  str0, first: AnsiChar;
+  CharSize, ucs4, mask: integer;
+begin
+  if stream.Position < stream.size
+    then result:= true
+    else begin result:= false; exit; end;
+  case Enc of
+    etUTF8: begin
+      if FLastUcs4>=$10000 then begin
+        // Output low surrogate
+        dest:=Utf16LowSurrogate(FLastUcs4);
+        FLastUcs4:= 0;
+      end else begin
+        stream.ReadBuffer(str0,1);
+        if ord(str0)>=$80 then	// UTF-8 sequence
+        begin
+          CharSize:=1;
+          first:=str0; mask:=$40; ucs4:=ord(str0);
+          if (ord(str0) and $C0<>$C0) then
+            raise EConvertError.CreateFmt('Invalid UTF-8 sequence at position %d',[stream.Position-1]);
+          while (mask and ord(first)<>0) do
+          begin
+            // read next character of stream
+            if stream.Position=stream.size then
+              raise EConvertError.CreateFmt('Aborted UTF-8 sequence at position %d',[stream.Position]);
+            stream.ReadBuffer(str0,1);
+            if (ord(str0) and $C0<>$80) then
+              raise EConvertError.CreateFmt('Invalid UTF-8 sequence at position %d',[stream.Position-1]);
+            ucs4:=(ucs4 shl 6) or (ord(str0) and $3F); // add bits to result
+            Inc(CharSize);	// increase sequence length
+            mask:=mask shr 1;	// adjust mask
+          end;
+          if (CharSize>6) then	// no 0 bit in sequence header 'first'
+              raise EConvertError.CreateFmt('Invalid UTF-8 sequence at position %d',[stream.Position-1]);
+          ucs4:=ucs4 and MaxCode[CharSize];	// dispose of header bits
+          // check for invalid sequence as suggested by RFC2279
+          if ((CharSize>1) and (ucs4<=MaxCode[CharSize-1])) then
+              raise EConvertError.CreateFmt('Invalid UTF-8 encoding at position %d',[stream.Position-1]);
+          if (ucs4>=$10000) then
+          begin
+            // Buffer storage of the ucs4 value for output of the
+            // low surrogate at the next function call
+            FLastUcs4:= ucs4;
+            // Output high surrogate
+            dest:=Utf16HighSurrogate(ucs4);
+          end
+          else
+            dest:= WideChar(ord(ucs4));
+        end
+        else
+          dest:= WideChar(ord(str0));
+      end; {if FLastUcs4 ... else ...}
+    end;
+    etUTF16BE: begin
+      stream.ReadBuffer(dest,2);
+    end;
+    etUTF16LE: begin
+      stream.ReadBuffer(dest,2);
+      dest:= wideChar(Swap(ord(dest)));
+    end;
+  else
+    stream.ReadBuffer(str0,1);
+    dest:= SingleByteEncodingToUTF16Char(str0,Enc);
+  end; {case ...}
+
+  // normalize CRLF or a single CR to LF:
+  if (dest = LF) and FLastCharWasCR then begin
+    FLastCharWasCR:= false;
+    result:= getNextWideChar2(dest,enc,locator);
+  end else begin
+    if dest = CR then begin
+      FLastCharWasCR:= true;
+      dest:= LF;
+    end else FLastCharWasCR:= false;
+    if assigned(locator) then locator.evaluate(dest);
+  end;
+
+end;
+
+function TXmlInputSource.getNextWideChar(var dest: wideChar): boolean;
+begin
+  try
+    result:= getNextWideChar2(dest,FEncoding,FLocator);
+  except
+    on EConvertError do begin
+      result:= true;
+      dest:= #0;  // #0 is not a legal XML character. So it is suitable
+                  // to indicate a malformed character in the source.
+      if assigned(locator) then locator.evaluate(#0);
+    end;
+  end;
+end;
+
+function TXmlInputSource.getStreamAsWideString: UnicodeString;
+var
+  oldPosition: longint;
+  oldFLastUcs4: integer;
+  oldFLastCharWasCR: boolean;
+  content: TdomCustomStr;
+  str1: WideChar;
+begin
+  try
+    oldPosition:= FStream.Position;
+    oldFLastUcs4:= FLastUcs4;
+    oldFLastCharWasCR:= FLastCharWasCR;
+    content:= TdomCustomStr.create;
+    try
+      FStream.seek(FStartPosition,soFromBeginning);
+      while getNextWideChar2(str1,FEncoding,nil) do begin
+        content.addWideChar(str1)
+      end;
+      result:= content.value;
+    finally
+      content.free;
+      FLastUcs4:= oldFLastUcs4;
+      FLastCharWasCR:= oldFLastCharWasCR;
+      FStream.seek(oldPosition,soFromBeginning);
+    end;
+  except
+    raise EConvertError.create('Invalid character code error.');
+  end;
+end;
+
+
+
+// ++++++++++++++++++++++++++ TdomError ++++++++++++++++++++++++++
+constructor TdomError.create(const errorType: TXmlErrorType;
+                             const startLine,
+                                   startColumn,
+                                   endLine,
+                                   endColumn,
+                                   offs: integer;
+                             const uriStr: UnicodeString;
+                             const rCMNode: TdomCMNode;
+                             const rNode: TdomNode;
+                             const code: UnicodeString);
+begin
+  inherited create;
+  FLanguage:= iso639_en;
+  FSupportedLanguages:= [ iso639_de, // German
+                          iso639_en, // English
+                          iso639_es, // Spanish
+                          iso639_fr, // French
+                          iso639_it, // Italian
+                          iso639_nl, // Dutch
+                          iso639_pl, // Polish
+                          iso639_pt  // Portuguese
+                        ];
+  FRelatedException:= errorType;
+  FCode:= Code;
+  FLocation:= TdomLocator.create(startLine,startColumn,endLine,endColumn,offs,UriStr,rCMNode,rNode);
+end;
+
+constructor TdomError.createFromLocator(const errorType: TXmlErrorType;
+                                        const location: TdomLocator;
+                                        const code: UnicodeString);
+begin
+  if assigned(location) then
+    with location do
+      self.create(errorType,
+                  startLineNumber,
+                  startColumnNumber,
+                  lineNumber,
+                  columnNumber,
+                  offset,
+                  uri,
+                  relatedCMNode,
+                  relatedNode,
+                  code)
+   else create(errorType,0,0,0,0,-1,'',nil,nil,code);
+end;
+
+destructor TdomError.destroy;
+begin
+  FLocation.free;
+  inherited;
+end;
+
+function TdomError.getSeverity: TdomSeverity;
+begin
+  if FRelatedException in ET_FATAL_ERRORS
+    then result:= DOM_SEVERITY_FATAL_ERROR
+  else if FRelatedException in ET_ERRORS
+    then result:= DOM_SEVERITY_ERROR
+  else result:= DOM_SEVERITY_WARNING;
+end;
+
+function TdomError.getDutchErrorStr: UnicodeString;
+// - This function was provided by Erik van der Poll,
+// Incore Automatisering b.v., Amsterdam -
+var
+  ErrorTypeStr,DocStr,ErrorStr1,ErrorStr2: string;
+begin
+  case severity of
+    DOM_SEVERITY_FATAL_ERROR: ErrorTypeStr:='FATALE FOUT ';
+    DOM_SEVERITY_ERROR: ErrorTypeStr:='FOUT ';
+    DOM_SEVERITY_WARNING: ErrorTypeStr:='WAARSCHUWING: ';
+  end;
+
+  with FLocation do begin
+    DocStr:= concat('in document ',uri,' ');
+    if lineNumber = -1 then ErrorStr1:= ''
+    else if startLineNumber = lineNumber then begin
+      if startColumnNumber = columnNumber
+        then FmtStr(ErrorStr1,'in regel %d, positie %d',[lineNumber,columnNumber])
+        else FmtStr(ErrorStr1,'in regel %d, tussen positie %d en %d',[lineNumber,startColumnNumber,columnNumber]);
+    end else begin
+      FmtStr(ErrorStr1,'tussen regel %d, positie %d en regel %d, positie %d',[startLineNumber,startColumnNumber,lineNumber,columnNumber]);
+    end;
+  end;
+
+  case FRelatedException of
+    ET_INVALID_ELEMENT_NAME:
+      ErrorStr2:= 'Onjuiste element naam';
+    ET_DOUBLE_ROOT_ELEMENT:
+      ErrorStr2:= 'Dubbel begin element';
+    ET_DOUBLE_DOCTYPE:
+      ErrorStr2:= 'Dubbele document type declaratie (DTD)';
+    ET_INVALID_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Onjuiste attribuut name';
+    ET_INVALID_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Onjuiste attribuut waarde';
+    ET_DOUBLE_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Dubbele attribuut name in een element';
+    ET_INVALID_ENTITY_NAME:
+      ErrorStr2:= 'Onjuiste entiteit naam';
+    ET_INVALID_PROCESSING_INSTRUCTION:
+      ErrorStr2:= 'Onjuiste verwerkings code';
+    ET_INVALID_XML_DECL:
+      ErrorStr2:= 'Onuiste XML declaratie';
+    ET_INVALID_CHARREF:
+      ErrorStr2:= 'Onjuiste karakter referentie';
+    ET_MISSING_QUOTATION_MARK:
+      ErrorStr2:= 'Aanhalingstekens ontbreken';
+    ET_MISSING_EQUALITY_SIGN:
+      ErrorStr2:= 'Is-teken ontbreekt';
+    ET_DOUBLE_EQUALITY_SIGN:
+      ErrorStr2:= 'Dubbel is-teken';
+    ET_MISSING_WHITE_SPACE:
+      ErrorStr2:= 'Ontbrekende spaties';
+    ET_MISSING_START_TAG:
+      ErrorStr2:= 'Eind-tag zonder begin-tag';
+    ET_MISSING_END_TAG:
+      ErrorStr2:= 'Eind-tag ontbreekt';
+    ET_INVALID_CHARACTER:
+      ErrorStr2:= 'Onjuist karakter';
+    ET_NOT_IN_ROOT:
+      ErrorStr2:= 'Tekst buiten het begin element';
+    ET_INVALID_DOCTYPE:
+      ErrorStr2:= 'Onjuiste documenttype declaratie';
+    ET_WRONG_ORDER:
+      ErrorStr2:= 'Volgorde fout';
+    ET_UNKNOWN_DECL_TYPE:
+      ErrorStr2:= 'Onbekend declaratie type';
+    ET_INVALID_ENTITY_DECL:
+      ErrorStr2:= 'Onjuiste entiteits declaratie';
+    ET_INVALID_ELEMENT_DECL:
+      ErrorStr2:= 'Onjuiste element declaratie';
+    ET_INVALID_ATTRIBUTE_DECL:
+      ErrorStr2:= 'Onjuiste attribuut declaratie';
+    ET_INVALID_NOTATION_DECL:
+      ErrorStr2:= 'Onjuiste notatie declaratie';
+    ET_INVALID_CONDITIONAL_SECTION:
+      ErrorStr2:= 'Onjuiste conditionele sectie';
+    ET_INVALID_TEXT_DECL:
+      ErrorStr2:= 'Onjuiste tekst declaratie';
+    ET_LT_IN_ATTRIBUTE_VALUE:
+      ErrorStr2:= '''<'' in de vervangingstekst van een attribuut waarde';
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY:
+      ErrorStr2:= 'Attribuut waarde verwijst naar externe entiteit';
+    ET_RECURSIVE_REFERENCE:
+      ErrorStr2:= 'ET_RECURSIVE_REFERENCE';
+    ET_REFERENCE_TO_UNPARSED_ENTITY:
+      ErrorStr2:= 'Referentie naar een niet ingelezen entiteit';
+    ET_NO_PROPER_MARKUP_REFERENCED:
+      ErrorStr2:= 'Referentie naar een entiteit zonder juiste opmaak';
+    ET_INVALID_COMMENT:
+      ErrorStr2:= 'Fout in commentaar';
+    ET_INVALID_CDATA_SECTION:
+      ErrorStr2:= 'Onjuiste CDATA sectie';
+    ET_INVALID_SYSTEM_LITERAL:
+      ErrorStr2:= 'Onjuiste systeem tekst';
+    ET_INVALID_PUBID_LITERAL:
+      ErrorStr2:= 'Onjuiste publieke tekst';
+    ET_INVALID_QUALIFIED_NAME:
+      ErrorStr2:= 'ET_INVALID_QUALIFIED_NAME';
+    ET_INVALID_PREFIX:
+      ErrorStr2:= 'ET_INVALID_PREFIX';
+    ET_INVALID_NAMESPACE_URI:
+      ErrorStr2:= 'ET_INVALID_NAMESPACE_URI';
+    ET_NAMESPACE_URI_NOT_FOUND:
+      ErrorStr2:= 'ET_NAMESPACE_URI_NOT_FOUND';
+    ET_WRONG_PREFIX_MAPPING_NESTING:
+      ErrorStr2:= 'ET_WRONG_PREFIX_MAPPING_NESTING';
+    ET_ENCODING_NOT_SUPPORTED:
+      ErrorStr2:= 'ET_ENCODING_NOT_SUPPORTED';
+    ET_DOUBLE_ATTDEF:
+      ErrorStr2:= 'Dubbele attribuut definitie';
+    ET_DOUBLE_ENTITY_DECL:
+      ErrorStr2:= 'Dubbele entiteit declaratie';
+    ET_DOUBLE_PARAMETER_ENTITY_DECL:
+      ErrorStr2:= 'Dubbele parameter entiteit declaratie';
+    ET_UNUSABLE_ENTITY_DECL:
+      ErrorStr2:= 'Onbruikbare entiteit gedefinieerd';
+    ET_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Ontbrekende entiteit declaratie';
+    ET_DUPLICATE_ELEMENT_TYPE_DECL:
+      ErrorStr2:= 'Dubbele element type declaratie';
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT:
+      ErrorStr2:= 'Naam komt meer keren voor in gemengde inhoud';
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Dubbel ID attribuut binnen hetzelfde element type';
+    ET_UNDECLARED_NOTATION_NAME:
+      ErrorStr2:= 'Niet gedefinieerde notatie naam';
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Dubbel notatie attribuut binnen hetzelfde element type';
+    ET_DUPLICATE_NOTATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_NOTATION_TOKEN';
+    ET_NOTATION_ON_EMPTY_ELEMENT:
+      ErrorStr2:= 'Notatie attribuut definitie voor een leeg element type';
+    ET_DUPLICATE_ENUMERATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_ENUMERATION_TOKEN';
+    ET_ATTRIBUTE_TYPE_MISMATCH:
+      ErrorStr2:= 'Attribuut type en attribuut waarde komen niet overeen';
+    ET_DUPLICATE_TOKENS:
+      ErrorStr2:= 'Tokens meermalen gedefinieerd';
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED:
+      ErrorStr2:= 'ID attribuut is niet gedefinieerd als #IMPLIED of #REQUIRED';
+    ET_WRONG_ROOT_ELEMENT_TYPE:
+      ErrorStr2:= 'Type van begin element komt niet overeen met de naam van de document type declaratie';
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND:
+      ErrorStr2:= 'Element type declaratie niet gevonden';
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT:
+      ErrorStr2:= 'Element met definitie EMPTY is niet leeg';
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT:
+      ErrorStr2:= 'Inhoud van een element met gemengde inhoud komt niet overeen met de declaratie';
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT:
+      ErrorStr2:= 'Inhoud van een element met element inhoud komt niet overeen met de declaratie';
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL:
+      ErrorStr2:= 'Inhoud element model is niet deterministisch';
+    ET_DUPLICATE_NOTATION_DECL:
+      ErrorStr2:= 'Dubbele notatie declaratie';
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND:
+      ErrorStr2:= 'Attribuut definitie niet gevonden';
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND:
+      ErrorStr2:= 'Verplicht attribuut niet gevonden';
+    ET_FIXED_ATTRIBUTE_MISMATCH:
+      ErrorStr2:= 'Gedefinieerde waarde en werkelijke waarde van een vast attribuut komen niet overeen';
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH:
+      ErrorStr2:= 'Attribuut type en attribuut default waarde komen niet overeen';
+    ET_DUPLICATE_ID_VALUE:
+      ErrorStr2:= 'Dubbele ID waarde';
+    ET_TARGET_ID_VALUE_NOT_FOUND:
+      ErrorStr2:= 'IDREF of IDREFS waarde verwijst naar een niet bestaande ID waarde';
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND:
+      ErrorStr2:= 'ENTITY of ENTITIES waarde verwijst naar een niet bestaande entiteit';
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY:
+      ErrorStr2:= 'Foute declaratie voor een voorgedefinieerde entiteit';
+    ET_UNRESOLVABLE_ENTITY_REFERENCE:
+      ErrorStr2:= 'Niet oplosbare entiteit referentie';
+    ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE:
+      ErrorStr2:= 'Niet oplosbare parameter entiteit referentie';
+    ET_EXTERNAL_SUBSET_NOT_FOUND:
+      ErrorStr2:= 'Externe subset van de DTD niet gevonden';
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Parameter entiteit declaratie niet gevonden';
+  else
+    ErrorStr2:= 'Fout in broncode';
+  end; {case ...}
+  result:= {$IFNDEF UNICODE}Iso8859_1ToUTF16Str{$ENDIF}(ErrorTypeStr+DocStr+ErrorStr1+' -- '+ErrorStr2);
+end;
+
+function TdomError.getEnglishErrorStr: UnicodeString;
+var
+  ErrorTypeStr,DocStr,ErrorStr1,ErrorStr2: string;
+begin
+  case severity of
+    DOM_SEVERITY_FATAL_ERROR: ErrorTypeStr:='FATAL ERROR ';
+    DOM_SEVERITY_ERROR: ErrorTypeStr:='ERROR ';
+    DOM_SEVERITY_WARNING: ErrorTypeStr:='WARNING: ';
+  end;
+
+  with FLocation do begin
+    DocStr:= concat('in document ',uri,' ');
+    if lineNumber = -1 then ErrorStr1:= ''
+    else if startLineNumber = lineNumber then begin
+      if startColumnNumber = columnNumber
+        then FmtStr(ErrorStr1,'in line %d, position %d',[lineNumber,columnNumber])
+        else FmtStr(ErrorStr1,'in line %d, between position %d and %d',[lineNumber,startColumnNumber,columnNumber]);
+    end else begin
+      FmtStr(ErrorStr1,'between line %d, position %d and line %d, position %d',[startLineNumber,startColumnNumber,lineNumber,columnNumber]);
+    end;
+  end;
+
+  case FRelatedException of
+    ET_INVALID_ELEMENT_NAME:
+      ErrorStr2:= 'Invalid element name';
+    ET_DOUBLE_ROOT_ELEMENT:
+      ErrorStr2:= 'Double root element';
+    ET_DOUBLE_DOCTYPE:
+      ErrorStr2:= 'Double document type declaration (DTD)';
+    ET_INVALID_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Invalid attribute name';
+    ET_INVALID_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Invalid attribute value';
+    ET_DOUBLE_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Double attribute name in one element';
+    ET_INVALID_ENTITY_NAME:
+      ErrorStr2:= 'Invalid entity name';
+    ET_INVALID_PROCESSING_INSTRUCTION:
+      ErrorStr2:= 'Invalid processing instruction';
+    ET_INVALID_XML_DECL:
+      ErrorStr2:= 'Invalid XML declaration';
+    ET_INVALID_CHARREF:
+      ErrorStr2:= 'Invalid character reference';
+    ET_MISSING_QUOTATION_MARK:
+      ErrorStr2:= 'Missing quotation marks';
+    ET_MISSING_EQUALITY_SIGN:
+      ErrorStr2:= 'Missing equality sign';
+    ET_DOUBLE_EQUALITY_SIGN:
+      ErrorStr2:= 'Double equality sign';
+    ET_MISSING_WHITE_SPACE:
+      ErrorStr2:= 'Missing white-space';
+    ET_MISSING_START_TAG:
+      ErrorStr2:= 'End-tag without start-tag';
+    ET_MISSING_END_TAG:
+      ErrorStr2:= 'Missing end-tag';
+    ET_INVALID_CHARACTER:
+      ErrorStr2:= 'Invalid character';
+    ET_NOT_IN_ROOT:
+      ErrorStr2:= 'Character(s) outside the root-element';
+    ET_INVALID_DOCTYPE:
+      ErrorStr2:= 'Invalid doctype declaration';
+    ET_WRONG_ORDER:
+      ErrorStr2:= 'Wrong order';
+    ET_UNKNOWN_DECL_TYPE:
+      ErrorStr2:= 'Unknown declaration type';
+    ET_INVALID_ENTITY_DECL:
+      ErrorStr2:= 'Invalid entity declaration';
+    ET_INVALID_ELEMENT_DECL:
+      ErrorStr2:= 'Invalid element declaration';
+    ET_INVALID_ATTRIBUTE_DECL:
+      ErrorStr2:= 'Invalid attribute declaration';
+    ET_INVALID_NOTATION_DECL:
+      ErrorStr2:= 'Invalid notation declaration';
+    ET_INVALID_CONDITIONAL_SECTION:
+      ErrorStr2:= 'Invalid conditional section';
+    ET_INVALID_TEXT_DECL:
+      ErrorStr2:= 'Invalid text declaration';
+    ET_LT_IN_ATTRIBUTE_VALUE:
+      ErrorStr2:= '''<'' in the replacement text of an attribute value';
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY:
+      ErrorStr2:= 'Attribute value refers to external entity';
+    ET_RECURSIVE_REFERENCE:
+      ErrorStr2:= 'Recursive reference found';
+    ET_REFERENCE_TO_UNPARSED_ENTITY:
+      ErrorStr2:= 'Reference to an unparsed entity';
+    ET_NO_PROPER_MARKUP_REFERENCED:
+      ErrorStr2:= 'Reference to an entity containing no proper markup';
+    ET_INVALID_COMMENT:
+      ErrorStr2:= 'Invalid comment';
+    ET_INVALID_CDATA_SECTION:
+      ErrorStr2:= 'Invalid CDATA section';
+    ET_INVALID_SYSTEM_LITERAL:
+      ErrorStr2:= 'Invalid system literal';
+    ET_INVALID_PUBID_LITERAL:
+      ErrorStr2:= 'Invalid pubid literal';
+    ET_INVALID_QUALIFIED_NAME:
+      ErrorStr2:= 'Invalid qualified name';
+    ET_INVALID_PREFIX:
+      ErrorStr2:= 'Invalid prefix';
+    ET_INVALID_NAMESPACE_URI:
+      ErrorStr2:= 'Invalid namespace URI';
+    ET_NAMESPACE_URI_NOT_FOUND:
+      ErrorStr2:= 'Namespace URI not found';
+    ET_WRONG_PREFIX_MAPPING_NESTING:
+      ErrorStr2:= 'Wrong prefix mapping nesting';
+    ET_ENCODING_NOT_SUPPORTED:
+      ErrorStr2:= 'Encoding not supported';
+    ET_DOUBLE_ATTDEF:
+      ErrorStr2:= 'Double attribute defintion';
+    ET_DOUBLE_ENTITY_DECL:
+      ErrorStr2:= 'Double entity declaration';
+    ET_DOUBLE_PARAMETER_ENTITY_DECL:
+      ErrorStr2:= 'Double parameter entity declaration';
+    ET_UNUSABLE_ENTITY_DECL:
+      ErrorStr2:= 'Unusable entity declared';
+    ET_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Entity declaration not found';
+    ET_DUPLICATE_ELEMENT_TYPE_DECL:
+      ErrorStr2:= 'Double element type declaration';
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT:
+      ErrorStr2:= 'Duplicate name in mixed content';
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Duplicate ID attribute on the same element type declared';
+    ET_UNDECLARED_NOTATION_NAME:
+      ErrorStr2:= 'Undeclared notation name';
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Duplicate notation attribute on the same element type declared';
+    ET_DUPLICATE_NOTATION_TOKEN:
+      ErrorStr2:= 'Duplicate notation token';
+    ET_NOTATION_ON_EMPTY_ELEMENT:
+      ErrorStr2:= 'Notation attribute on an empty element type declared';
+    ET_DUPLICATE_ENUMERATION_TOKEN:
+      ErrorStr2:= 'Duplicate enumeration token';
+    ET_ATTRIBUTE_TYPE_MISMATCH:
+      ErrorStr2:= 'Attribute type and attribute value do not match';
+    ET_DUPLICATE_TOKENS:
+      ErrorStr2:= 'Duplicate tokens declared';
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED:
+      ErrorStr2:= 'ID attribute is neither declared as #IMPLIED nor as #REQUIRED';
+    ET_WRONG_ROOT_ELEMENT_TYPE:
+      ErrorStr2:= 'Type of root element does not match name of document type declaration';
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND:
+      ErrorStr2:= 'Element type declaration not found';
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT:
+      ErrorStr2:= 'Element declared EMPTY is not empty';
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT:
+      ErrorStr2:= 'Content of an element with mixed content does not match the declaration';
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT:
+      ErrorStr2:= 'Content of an element with element content does not match the declaration';
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL:
+      ErrorStr2:= 'Content model of an element is not deterministic';
+    ET_DUPLICATE_NOTATION_DECL:
+      ErrorStr2:= 'Duplicate notation declaration';
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND:
+      ErrorStr2:= 'Attribute definition not found';
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND:
+      ErrorStr2:= 'Required attribute not found';
+    ET_FIXED_ATTRIBUTE_MISMATCH:
+      ErrorStr2:= 'Declared value and actual value of a fixed attribute do not match';
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH:
+      ErrorStr2:= 'Attribute type and attribute default do not match';
+    ET_DUPLICATE_ID_VALUE:
+      ErrorStr2:= 'Duplicate ID value';
+    ET_TARGET_ID_VALUE_NOT_FOUND:
+      ErrorStr2:= 'IDREF or IDREFS value refers to a non-existent target ID value';
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND:
+      ErrorStr2:= 'ENTITY or ENTITIES value refers to a non-existent target unparsed entity';
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY:
+      ErrorStr2:= 'Wrong declaration of a predefined entity';
+    ET_UNRESOLVABLE_ENTITY_REFERENCE:
+      ErrorStr2:= 'Unresolvable entity reference';
+    ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE:
+      ErrorStr2:= 'Unresolvable parameter entity reference';
+    ET_EXTERNAL_SUBSET_NOT_FOUND:
+      ErrorStr2:= 'External subset of the DTD not found';
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Parameter entity declaration not found';
+  else
+    ErrorStr2:= 'Invalid source-code';
+  end; {case ...}
+
+  result:= {$IFNDEF UNICODE}Iso8859_1ToUTF16Str{$ENDIF}(ErrorTypeStr + DocStr + ErrorStr1 + ' -- ' + ErrorStr2);
+end;
+
+function TdomError.getFrenchErrorStr: UnicodeString;
+// - This function was provided by Bernard Eblin -
+var
+  ErrorTypeStr,DocStr,ErrorStr1,ErrorStr2: string;
+begin
+  case severity of
+    DOM_SEVERITY_FATAL_ERROR: ErrorTypeStr:='ERREUR FATALE ';
+    DOM_SEVERITY_ERROR: ErrorTypeStr:='ERREUR ';
+    DOM_SEVERITY_WARNING: ErrorTypeStr:='ATTENTION: ';
+  end;
+
+  with FLocation do begin
+    DocStr:= concat('dans le document ',uri,' ');
+    if lineNumber = -1 then ErrorStr1:= ''
+    else if startLineNumber = lineNumber then begin
+      if startColumnNumber = columnNumber
+        then FmtStr(ErrorStr1,'� la ligne %d, position %d',[lineNumber,columnNumber])
+        else FmtStr(ErrorStr1,'� la ligne %d, entre la position %d et %d',[lineNumber,startColumnNumber,columnNumber]);
+    end else begin
+      FmtStr(ErrorStr1,'entre la ligne %d, position %d et la ligne %d, position %d',[startLineNumber,startColumnNumber,lineNumber,columnNumber]);
+    end;
+  end;
+
+  case FRelatedException of
+    ET_INVALID_ELEMENT_NAME:
+      ErrorStr2:= 'Nom d'';�l�ment invalide';
+    ET_DOUBLE_ROOT_ELEMENT:
+      ErrorStr2:= 'Double �l�ment racine';
+    ET_DOUBLE_DOCTYPE:
+      ErrorStr2:= 'Double d�claration de type de document (DTD)';
+    ET_INVALID_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Nom d'';attribut invalide';
+    ET_INVALID_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Valeur d'';attribut invalide';
+    ET_DOUBLE_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Double nom d'';atribut dans un �l�ment';
+    ET_INVALID_ENTITY_NAME:
+      ErrorStr2:= 'Nom d'';entit� invalide';
+    ET_INVALID_PROCESSING_INSTRUCTION:
+      ErrorStr2:= 'Instruction de commande invalide';
+    ET_INVALID_XML_DECL:
+      ErrorStr2:= 'D�claration XML invalide';
+    ET_INVALID_CHARREF:
+      ErrorStr2:= 'R�f�rence de caract�re invalide';
+    ET_MISSING_QUOTATION_MARK:
+      ErrorStr2:= 'Apostrophe (''): manquant';
+    ET_MISSING_EQUALITY_SIGN:
+      ErrorStr2:= 'Signe �gale manquant';
+    ET_DOUBLE_EQUALITY_SIGN:
+      ErrorStr2:= 'Double signe �gale';
+    ET_MISSING_WHITE_SPACE:
+      ErrorStr2:= 'Espace manquant';
+    ET_MISSING_START_TAG:
+      ErrorStr2:= 'Tag de fin sans tag de d�but';
+    ET_MISSING_END_TAG:
+      ErrorStr2:= 'Tag de fin manquant';
+    ET_INVALID_CHARACTER:
+      ErrorStr2:= 'Caract�re invalide';
+    ET_NOT_IN_ROOT:
+      ErrorStr2:= 'Caract�re(s) en dehors de l'';�l�ment racine';
+    ET_INVALID_DOCTYPE:
+      ErrorStr2:= 'D�claration de type de document invalide';
+    ET_WRONG_ORDER:
+      ErrorStr2:= 'Mauvais ordre';
+    ET_UNKNOWN_DECL_TYPE:
+      ErrorStr2:= 'D�claration de type inconnue';
+    ET_INVALID_ENTITY_DECL:
+      ErrorStr2:= 'D�claration d'';entit� invalide';
+    ET_INVALID_ELEMENT_DECL:
+      ErrorStr2:= 'D�claration d'';�l�ment invalide';
+    ET_INVALID_ATTRIBUTE_DECL:
+      ErrorStr2:= 'D�claration d'';attribut invalide';
+    ET_INVALID_NOTATION_DECL:
+      ErrorStr2:= 'D�claration de notation invalide';
+    ET_INVALID_CONDITIONAL_SECTION:
+      ErrorStr2:= 'Section conditionnelle invalide';
+    ET_INVALID_TEXT_DECL:
+      ErrorStr2:= 'D�claration de texte invalide';
+    ET_LT_IN_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'ET_LT_IN_ATTRIBUTE_VALUE';
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY:
+      ErrorStr2:= 'ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY';
+    ET_RECURSIVE_REFERENCE:
+      ErrorStr2:= 'ET_RECURSIVE_REFERENCE';
+    ET_REFERENCE_TO_UNPARSED_ENTITY:
+      ErrorStr2:= 'ET_REFERENCE_TO_UNPARSED_ENTITY';
+    ET_NO_PROPER_MARKUP_REFERENCED:
+      ErrorStr2:= 'ET_NO_PROPER_MARKUP_REFERENCED';
+    ET_INVALID_COMMENT:
+      ErrorStr2:= 'ET_INVALID_COMMENT';
+    ET_INVALID_CDATA_SECTION:
+      ErrorStr2:= 'ET_INVALID_CDATA_SECTION';
+    ET_INVALID_SYSTEM_LITERAL:
+      ErrorStr2:= 'ET_INVALID_SYSTEM_LITERAL';
+    ET_INVALID_PUBID_LITERAL:
+      ErrorStr2:= 'ET_INVALID_PUBID_LITERAL';
+    ET_INVALID_QUALIFIED_NAME:
+      ErrorStr2:= 'ET_INVALID_QUALIFIED_NAME';
+    ET_INVALID_PREFIX:
+      ErrorStr2:= 'ET_INVALID_PREFIX';
+    ET_INVALID_NAMESPACE_URI:
+      ErrorStr2:= 'ET_INVALID_NAMESPACE_URI';
+    ET_NAMESPACE_URI_NOT_FOUND:
+      ErrorStr2:= 'ET_NAMESPACE_URI_NOT_FOUND';
+    ET_WRONG_PREFIX_MAPPING_NESTING:
+      ErrorStr2:= 'ET_WRONG_PREFIX_MAPPING_NESTING';
+    ET_ENCODING_NOT_SUPPORTED:
+      ErrorStr2:= 'ET_ENCODING_NOT_SUPPORTED';
+    ET_DOUBLE_ATTDEF:
+      ErrorStr2:= 'ET_DOUBLE_ATTDEF';
+    ET_DOUBLE_ENTITY_DECL:
+      ErrorStr2:= 'Double d�claration d'';entit�';
+    ET_DOUBLE_PARAMETER_ENTITY_DECL:
+      ErrorStr2:= 'Double d�claration d'';entit� param�tre';
+    ET_UNUSABLE_ENTITY_DECL:
+      ErrorStr2:= 'ET_UNUSABLE_ENTITY_DECL';
+    ET_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'ET_ENTITY_DECL_NOT_FOUND';
+    ET_DUPLICATE_ELEMENT_TYPE_DECL:
+      ErrorStr2:= 'ET_DUPLICATE_ELEMENT_TYPE_DECL';
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT:
+      ErrorStr2:= 'ET_DUPLICATE_NAME_IN_MIXED_CONTENT';
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'ET_DUPLICATE_ID_ON_ELEMENT_TYPE';
+    ET_UNDECLARED_NOTATION_NAME:
+      ErrorStr2:= 'ET_UNDECLARED_NOTATION_NAME';
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE';
+    ET_DUPLICATE_NOTATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_NOTATION_TOKEN';
+    ET_NOTATION_ON_EMPTY_ELEMENT:
+      ErrorStr2:= 'ET_NOTATION_ON_EMPTY_ELEMENT';
+    ET_DUPLICATE_ENUMERATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_ENUMERATION_TOKEN';
+    ET_ATTRIBUTE_TYPE_MISMATCH:
+      ErrorStr2:= 'ET_ATTRIBUTE_TYPE_MISMATCH';
+    ET_DUPLICATE_TOKENS:
+      ErrorStr2:= 'ET_DUPLICATE_TOKENS';
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED:
+      ErrorStr2:= 'ET_ID_NEITHER_IMPLIED_NOR_REQUIRED';
+    ET_WRONG_ROOT_ELEMENT_TYPE:
+      ErrorStr2:= 'ET_WRONG_ROOT_ELEMENT_TYPE';
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND:
+      ErrorStr2:= 'ET_ELEMENT_TYPE_DECL_NOT_FOUND';
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT:
+      ErrorStr2:= 'ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT';
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT:
+      ErrorStr2:= 'ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT';
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT:
+      ErrorStr2:= 'ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT';
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL:
+      ErrorStr2:= 'ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL';
+    ET_DUPLICATE_NOTATION_DECL:
+      ErrorStr2:= 'Double d�claration de notation';
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND:
+      ErrorStr2:= 'ET_ATTRIBUTE_DEFINITION_NOT_FOUND';
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND:
+      ErrorStr2:= 'ET_REQUIRED_ATTRIBUTE_NOT_FOUND';
+    ET_FIXED_ATTRIBUTE_MISMATCH:
+      ErrorStr2:= 'ET_FIXED_ATTRIBUTE_MISMATCH';
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH:
+      ErrorStr2:= 'ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH';
+    ET_DUPLICATE_ID_VALUE:
+      ErrorStr2:= 'ET_DUPLICATE_ID_VALUE';
+    ET_TARGET_ID_VALUE_NOT_FOUND:
+      ErrorStr2:= 'ET_TARGET_ID_VALUE_NOT_FOUND';
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND:
+      ErrorStr2:= 'ET_TARGET_UNPARSED_ENTITY_NOT_FOUND';
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY:
+      ErrorStr2:= 'ET_WRONG_DECL_OF_PREDEFINED_ENTITY';
+    ET_UNRESOLVABLE_ENTITY_REFERENCE:
+      ErrorStr2:= 'ET_UNRESOLVABLE_ENTITY_REFERENCE';
+    ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE:
+      ErrorStr2:= 'ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE';
+    ET_EXTERNAL_SUBSET_NOT_FOUND:
+      ErrorStr2:= 'ET_EXTERNAL_SUBSET_NOT_FOUND';
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'ET_PARAMETER_ENTITY_DECL_NOT_FOUND';
+  else
+    ErrorStr2:= 'Code source invalide';
+  end; {case ...}
+
+  result:= {$IFNDEF UNICODE}Iso8859_1ToUTF16Str{$ENDIF}(ErrorTypeStr + DocStr + ErrorStr1+' -- '+ErrorStr2);
+end;
+
+function TdomError.getGermanErrorStr: UnicodeString;
+var
+  DocStr,ErrorTypeStr,ErrorStr1,ErrorStr2: string;
+begin
+  case severity of
+    DOM_SEVERITY_FATAL_ERROR: ErrorTypeStr:='KRITISCHER FEHLER ';
+    DOM_SEVERITY_ERROR: ErrorTypeStr:='FEHLER ';
+    DOM_SEVERITY_WARNING: ErrorTypeStr:='WARNUNG: ';
+  end;
+
+  with FLocation do begin
+    DocStr:= concat('im Dokument ',uri,' ');
+    if lineNumber = -1 then ErrorStr1:= ''
+    else if startLineNumber = lineNumber then begin
+      if startColumnNumber = columnNumber
+        then FmtStr(ErrorStr1,'in Zeile %d, Position %d',[lineNumber,columnNumber])
+        else FmtStr(ErrorStr1,'in Zeile %d, zwischen Position %d und %d',[lineNumber,startColumnNumber,columnNumber]);
+    end else begin
+      FmtStr(ErrorStr1,'zwischen Zeile %d, Position %d und Zeile %d, Position %d',[startLineNumber,startColumnNumber,lineNumber,columnNumber]);
+    end;
+  end;
+
+  case FRelatedException of
+    ET_INVALID_ELEMENT_NAME:
+      ErrorStr2:= 'Ung�ltiger Element-name';
+    ET_DOUBLE_ROOT_ELEMENT:
+      ErrorStr2:= 'Doppeltes Wurzel-Element';
+    ET_DOUBLE_DOCTYPE:
+      ErrorStr2:= 'Doppelte Dokument-Typ-Deklaration (DTD)';
+    ET_INVALID_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Ung�ltiger Attribut-name';
+    ET_INVALID_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Ung�ltiger Attribut-Wert';
+    ET_DOUBLE_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Doppelter Attributname in einem Element';
+    ET_INVALID_ENTITY_NAME:
+      ErrorStr2:= 'Ung�ltiger Entit�t-name';
+    ET_INVALID_PROCESSING_INSTRUCTION:
+      ErrorStr2:= 'Ung�ltige Processing-Instruction';
+    ET_INVALID_XML_DECL:
+      ErrorStr2:= 'Ung�ltige XML-Deklaration';
+    ET_INVALID_CHARREF:
+      ErrorStr2:= 'Ung�ltige Zeichen-Referenz';
+    ET_MISSING_QUOTATION_MARK:
+      ErrorStr2:= 'Fehlende Anf�hrungszeichen';
+    ET_MISSING_EQUALITY_SIGN:
+      ErrorStr2:= 'Fehlendes Gleichheitszeichen';
+    ET_DOUBLE_EQUALITY_SIGN:
+      ErrorStr2:= 'Doppeltes Gleichheitszeichen';
+    ET_MISSING_WHITE_SPACE:
+      ErrorStr2:= 'Fehlender Leerraum';
+    ET_MISSING_START_TAG:
+      ErrorStr2:= 'End-Tag ohne Start-Tag';
+    ET_MISSING_END_TAG:
+      ErrorStr2:= 'Fehlendes End-Tag';
+    ET_INVALID_CHARACTER:
+      ErrorStr2:= 'Ung�ltiges Zeichen';
+    ET_NOT_IN_ROOT:
+      ErrorStr2:= 'Zeichen au�erhalb des Wurzel-Elements';
+    ET_INVALID_DOCTYPE:
+      ErrorStr2:= 'Ung�ltige Dokumenttyp-Deklaration';
+    ET_WRONG_ORDER:
+      ErrorStr2:= 'Falsche Reihenfolge';
+    ET_UNKNOWN_DECL_TYPE:
+      ErrorStr2:= 'Unbekannter Deklarationstyp';
+    ET_INVALID_ENTITY_DECL:
+      ErrorStr2:= 'Ung�ltige Entit�t-Deklaration';
+    ET_INVALID_ELEMENT_DECL:
+      ErrorStr2:= 'Ung�ltige Element-Deklaration';
+    ET_INVALID_ATTRIBUTE_DECL:
+      ErrorStr2:= 'Ung�ltige Attribut-Deklaration';
+    ET_INVALID_NOTATION_DECL:
+      ErrorStr2:= 'Ung�ltige Notations-Deklaration';
+    ET_INVALID_CONDITIONAL_SECTION:
+      ErrorStr2:= 'Ung�ltiger bedingter Abschnitt';
+    ET_INVALID_TEXT_DECL:
+      ErrorStr2:= 'Ung�ltige Text-Deklaration';
+    ET_LT_IN_ATTRIBUTE_VALUE:
+      ErrorStr2:= '''<'' im Ersetzungstext eines Attributwertes';
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY:
+      ErrorStr2:= 'Attribut-Wert verweist auf eine externe Entit�t';
+    ET_RECURSIVE_REFERENCE:
+      ErrorStr2:= 'Rekursive Referenz gefunden';
+    ET_REFERENCE_TO_UNPARSED_ENTITY:
+      ErrorStr2:= 'Referenz auf eine nicht analysierte Entit�t';
+    ET_NO_PROPER_MARKUP_REFERENCED:
+      ErrorStr2:= 'Referenz auf eine Entit�t mit ung�ltigen Markierunszeichen';
+    ET_INVALID_COMMENT:
+      ErrorStr2:= 'Ung�ltiger Kommentar';
+    ET_INVALID_CDATA_SECTION:
+      ErrorStr2:= 'Ung�ltiger CDATA-Abschnitt';
+    ET_INVALID_SYSTEM_LITERAL:
+      ErrorStr2:= 'Ung�ltiges System-Literal';
+    ET_INVALID_PUBID_LITERAL:
+      ErrorStr2:= 'Ung�ltiges Pubid-Literal';
+    ET_INVALID_QUALIFIED_NAME:
+      ErrorStr2:= 'Ung�ltiger qualifizierter Name';
+    ET_INVALID_PREFIX:
+      ErrorStr2:= 'Ung�ltiges Prefix';
+    ET_INVALID_NAMESPACE_URI:
+      ErrorStr2:= 'Ung�ltiger Namensraum-URI';
+    ET_NAMESPACE_URI_NOT_FOUND:
+      ErrorStr2:= 'Namensraum-URI nicht gefunden';
+    ET_WRONG_PREFIX_MAPPING_NESTING:
+      ErrorStr2:= 'Falsche Prefix-Verschachtelung';
+    ET_ENCODING_NOT_SUPPORTED:
+      ErrorStr2:= 'Nicht-unterst�tze Zeichencodierung';
+    ET_DOUBLE_ATTDEF:
+      ErrorStr2:= 'Doppelte Attribut-Defintion';
+    ET_DOUBLE_ENTITY_DECL:
+      ErrorStr2:= 'Doppelte Entit�t-Deklaration';
+    ET_DOUBLE_PARAMETER_ENTITY_DECL:
+      ErrorStr2:= 'Doppelte Parameter-Entit�t-Deklaration';
+    ET_UNUSABLE_ENTITY_DECL:
+      ErrorStr2:= 'Unbrauchbare Entit�t deklariert';
+    ET_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Entit�t-Declaration nicht gefunden';
+    ET_DUPLICATE_ELEMENT_TYPE_DECL:
+      ErrorStr2:= 'Doppelte Element-Typ-Deklaration';
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT:
+      ErrorStr2:= 'Doppelter Name in gemischtem Inhalt';
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'ID-Attribut mehrfach f�r denselben Element-Typ deklariert';
+    ET_UNDECLARED_NOTATION_NAME:
+      ErrorStr2:= 'Notationsname nicht deklariert';
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Notationsattribut mehrfach f�r denselben Element-Typ deklariert';
+    ET_DUPLICATE_NOTATION_TOKEN:
+      ErrorStr2:= 'Doppelte Notationstokens';
+    ET_NOTATION_ON_EMPTY_ELEMENT:
+      ErrorStr2:= 'Notationsattribut f�r einen leeren Element-Typ deklariert';
+    ET_DUPLICATE_ENUMERATION_TOKEN:
+      ErrorStr2:= 'Doppeltes Aufz�hlungstoken';
+    ET_ATTRIBUTE_TYPE_MISMATCH:
+      ErrorStr2:= 'Attribut-Typ und Attribut-Wert stimmen nicht �berein';
+    ET_DUPLICATE_TOKENS:
+      ErrorStr2:= 'Token mehrfach deklariert';
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED:
+      ErrorStr2:= 'ID-Attribut ist weder als #IMPLIED noch als #REQUIRED deklariert';
+    ET_WRONG_ROOT_ELEMENT_TYPE:
+      ErrorStr2:= 'Typ des Wurzelelements entspricht nicht der Angabe in der Dokumenttyp-Deklaration';
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND:
+      ErrorStr2:= 'Elementtyp-Deklaration nicht gefunden';
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT:
+      ErrorStr2:= 'Als EMPTY deklariertes Element ist nicht leer';
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT:
+      ErrorStr2:= 'Inhalt eines Elements gemischten Inhalts entspricht nicht der Deklaration';
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT:
+      ErrorStr2:= 'Inhalt eines Elements mit Element-Inhalt entspricht nicht der Deklaration';
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL:
+      ErrorStr2:= 'Inhaltsmodell eines Elements ist nicht deterministisch';
+    ET_DUPLICATE_NOTATION_DECL:
+      ErrorStr2:= 'Doppelte Notationsdeklaration';
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND:
+      ErrorStr2:= 'Attribut-Definition nicht gefunden';
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND:
+      ErrorStr2:= 'Als "#REQUIRED" deklariertes Attribut nicht gefunden';
+    ET_FIXED_ATTRIBUTE_MISMATCH:
+      ErrorStr2:= 'Werte eines als "#FIXED" deklarierten Attributs entspricht nicht der Deklaration';
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH:
+      ErrorStr2:= 'Attribut-Typ und Attribut-Vorgabe stimmen nicht �berein';
+    ET_DUPLICATE_ID_VALUE:
+      ErrorStr2:= 'ID-Wert mehrfach verwendet';
+    ET_TARGET_ID_VALUE_NOT_FOUND:
+      ErrorStr2:= 'Ein IDREF- bzw. IDREFS-Attribute verweist auf ein nicht vorhandenes Ziel';
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND:
+      ErrorStr2:= 'Ein ENTITY- bzw. ENTITIES-Attribute verweist auf eine nicht analysierte Entit�t, die nicht deklariert wurde';
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY:
+      ErrorStr2:= 'Falsche Deklaration einer vordefinierten Entit�t';
+    ET_UNRESOLVABLE_ENTITY_REFERENCE:
+      ErrorStr2:= 'Nicht aufl�sbare Entit�ten-Referenz';
+    ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE:
+      ErrorStr2:= 'Nicht aufl�sbare Parameter-Entit�ten-Referenz';
+    ET_EXTERNAL_SUBSET_NOT_FOUND:
+      ErrorStr2:= 'Externe Teilmenge der DTD nicht gefunden';
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Parameter-Entit�t-Deklaration nicht gefunden';
+  else
+    ErrorStr2:= 'Ung�ltiger Quellcode';
+  end; {case ...}
+
+  result:= {$IFNDEF UNICODE}Iso8859_1ToUTF16Str{$ENDIF}(concat(ErrorTypeStr,DocStr,ErrorStr1,' -- ',ErrorStr2));
+end;
+
+function TdomError.getItalianErrorStr: UnicodeString;
+// - This function was provided by Massimo Maria Ghisalberti -
+var
+  ErrorTypeStr,DocStr,ErrorStr1,ErrorStr2: string;
+begin
+  case severity of
+    DOM_SEVERITY_FATAL_ERROR: ErrorTypeStr:='ERRORE CRITICO ';
+    DOM_SEVERITY_ERROR: ErrorTypeStr:='ERRORE ';
+    DOM_SEVERITY_WARNING: ErrorTypeStr:='ATTENZIONE: ';
+  end;
+
+  with FLocation do begin
+    DocStr:= concat('nel documento ',uri,' ');
+    if lineNumber = -1 then ErrorStr1:= ''
+    else if startLineNumber = lineNumber then begin
+      if startColumnNumber = columnNumber
+        then FmtStr(ErrorStr1,'nella linea %d, posizione %d',[lineNumber,columnNumber])
+        else FmtStr(ErrorStr1,'nella linea %d, tra la posizione %d e %d',[lineNumber,startColumnNumber,columnNumber]);
+    end else begin
+      FmtStr(ErrorStr1,'tra la linea %d, posizione %d e la linea %d, posizione %d',[startLineNumber,startColumnNumber,lineNumber,columnNumber]);
+    end;
+  end;
+
+  case FRelatedException of
+    ET_INVALID_ELEMENT_NAME:
+      ErrorStr2:= 'Nome elemento non valido';
+    ET_DOUBLE_ROOT_ELEMENT:
+      ErrorStr2:= 'Elemento radice duplicato';
+    ET_DOUBLE_DOCTYPE:
+      ErrorStr2:= 'Dichiarazione del tipo di documento (DTD) duplicata';
+    ET_INVALID_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Nome attributo non valido';
+    ET_INVALID_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Valore attributo non valido';
+    ET_DOUBLE_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Nome dell''attributo duplicato in un elemento';
+    ET_INVALID_ENTITY_NAME:
+      ErrorStr2:= 'Nome entit� non valido';
+    ET_INVALID_PROCESSING_INSTRUCTION:
+      ErrorStr2:= 'Istruzione di processo non valida';
+    ET_INVALID_XML_DECL:
+      ErrorStr2:= 'Dichiarazione XML non valida';
+    ET_INVALID_CHARREF:
+      ErrorStr2:= 'Riferimento a carattere non valida';
+    ET_MISSING_QUOTATION_MARK:
+      ErrorStr2:= 'Virgolette mancanti';
+    ET_MISSING_EQUALITY_SIGN:
+      ErrorStr2:= 'Segno di uguale mancante';
+    ET_DOUBLE_EQUALITY_SIGN:
+      ErrorStr2:= 'Segno di uguale duplicato';
+    ET_MISSING_WHITE_SPACE:
+      ErrorStr2:= 'Spazio mancante';
+    ET_MISSING_START_TAG:
+      ErrorStr2:= 'Tag finale senza tag iniziale';
+    ET_MISSING_END_TAG:
+      ErrorStr2:= 'Tag finale mancante';
+    ET_INVALID_CHARACTER:
+      ErrorStr2:= 'Carattere non valido';
+    ET_NOT_IN_ROOT:
+      ErrorStr2:= 'Carattere(i) oltre l''elemento radice';
+    ET_INVALID_DOCTYPE:
+      ErrorStr2:= 'Dichiarazione del tipo di documento non valida';
+    ET_WRONG_ORDER:
+      ErrorStr2:= 'Ordine errato';
+    ET_UNKNOWN_DECL_TYPE:
+      ErrorStr2:= 'Dichiarazione di tipo sconosciuta';
+    ET_INVALID_ENTITY_DECL:
+      ErrorStr2:= 'Dichiarazione di entit� non valida';
+    ET_INVALID_ELEMENT_DECL:
+      ErrorStr2:= 'Dichiarazione di elemento non valida';
+    ET_INVALID_ATTRIBUTE_DECL:
+      ErrorStr2:= 'Dichiarazione di attributo non valida';
+    ET_INVALID_NOTATION_DECL:
+      ErrorStr2:= 'Dichiarazione di notazione non valida';
+    ET_INVALID_CONDITIONAL_SECTION:
+      ErrorStr2:= 'Sezione condizionale non valida';
+    ET_INVALID_TEXT_DECL:
+      ErrorStr2:= 'Dichiarazione di testo non valida';
+    ET_LT_IN_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Tovato il carattere ''<'' nel valore di un attributo';
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY:
+      ErrorStr2:= 'Il valore dell''attributo si riferisce ad un''entit� esterna';
+    ET_RECURSIVE_REFERENCE:
+      ErrorStr2:= 'ET_RECURSIVE_REFERENCE';
+    ET_REFERENCE_TO_UNPARSED_ENTITY:
+      ErrorStr2:= 'Riferimento ad una entit� non analizzata';
+    ET_NO_PROPER_MARKUP_REFERENCED:
+      ErrorStr2:= 'Riferimento ad una entit� senza un marcatore adeguato';
+    ET_INVALID_COMMENT:
+      ErrorStr2:= 'ET_INVALID_COMMENT';
+    ET_INVALID_CDATA_SECTION:
+      ErrorStr2:= 'ET_INVALID_CDATA_SECTION';
+    ET_INVALID_SYSTEM_LITERAL:
+      ErrorStr2:= 'ET_INVALID_SYSTEM_LITERAL';
+    ET_INVALID_PUBID_LITERAL:
+      ErrorStr2:= 'ET_INVALID_PUBID_LITERAL';
+    ET_INVALID_QUALIFIED_NAME:
+      ErrorStr2:= 'ET_INVALID_QUALIFIED_NAME';
+    ET_INVALID_PREFIX:
+      ErrorStr2:= 'ET_INVALID_PREFIX';
+    ET_INVALID_NAMESPACE_URI:
+      ErrorStr2:= 'ET_INVALID_NAMESPACE_URI';
+    ET_NAMESPACE_URI_NOT_FOUND:
+      ErrorStr2:= 'ET_NAMESPACE_URI_NOT_FOUND';
+    ET_WRONG_PREFIX_MAPPING_NESTING:
+      ErrorStr2:= 'ET_WRONG_PREFIX_MAPPING_NESTING';
+    ET_ENCODING_NOT_SUPPORTED:
+      ErrorStr2:= 'ET_ENCODING_NOT_SUPPORTED';
+    ET_DOUBLE_ATTDEF:
+      ErrorStr2:= 'Definizione di attibuto duplicata';
+    ET_DOUBLE_ENTITY_DECL:
+      ErrorStr2:= 'Dichiarazione di entit� duplicata';
+    ET_DOUBLE_PARAMETER_ENTITY_DECL:
+      ErrorStr2:= 'Dichiarazione di entit� con parametri duplicati';
+    ET_UNUSABLE_ENTITY_DECL:
+      ErrorStr2:= 'Entit� dichiarata non utilizzabile';
+    ET_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Dichiarazione di entit� non trovata';
+    ET_DUPLICATE_ELEMENT_TYPE_DECL:
+      ErrorStr2:= 'Dichiarazione di tipo dell''elemento duplicata';
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT:
+      ErrorStr2:= 'Nome duplicato in un contenuto misto';
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Attributo ID duplicato nella stessa dichiarazione di tipo di elemento';
+    ET_UNDECLARED_NOTATION_NAME:
+      ErrorStr2:= 'Nome di notazione non dichiarato';
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Attributo di notazione duplicato nello stessa dichiarazione di tipo di elemento';
+    ET_DUPLICATE_NOTATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_NOTATION_TOKEN';
+    ET_NOTATION_ON_EMPTY_ELEMENT:
+      ErrorStr2:= 'Attributo di notazione nella dichiarazione di tipo di elemento vuoto';
+    ET_DUPLICATE_ENUMERATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_ENUMERATION_TOKEN';
+    ET_ATTRIBUTE_TYPE_MISMATCH:
+      ErrorStr2:= 'L''attributo di tipo e il valore non coincidono';
+    ET_DUPLICATE_TOKENS:
+      ErrorStr2:= 'Dichiarazione duplicata di token';
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED:
+      ErrorStr2:= 'L''attributo ID non � stato dichiarato come #IMPLIED n� come #REQUIRED';
+    ET_WRONG_ROOT_ELEMENT_TYPE:
+      ErrorStr2:= 'Il tipo dell''elemento radice non coincide con il nome della dichiarazione di tipo del documento';
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND:
+      ErrorStr2:= 'Dichiarazione del tipo dell''elemento non trovata';
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT:
+      ErrorStr2:= 'L''elemento dichiarato vuoto non lo �';
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT:
+      ErrorStr2:= 'Il contenuto di un elemento con contenuto misto non coincide con la dichiarazione';
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT:
+      ErrorStr2:= 'Il contenuto di un elemento che contiene elementi non coincide con la dichiarazione';
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL:
+      ErrorStr2:= 'Il modello di contenuto di un elemento non � deterministico';
+    ET_DUPLICATE_NOTATION_DECL:
+      ErrorStr2:= 'Dichiarazione di notazione duplicata';
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND:
+      ErrorStr2:= 'Definizione di attributo non trovata';
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND:
+      ErrorStr2:= 'Attributo richiesto non trovato';
+    ET_FIXED_ATTRIBUTE_MISMATCH:
+      ErrorStr2:= 'Il valore dichiarato e quello attuale di un attributo fisso non coincidono';
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH:
+      ErrorStr2:= 'Il tipo di un attributo ed il suo predefinito non coincidono';
+    ET_DUPLICATE_ID_VALUE:
+      ErrorStr2:= 'Valore ID duplicato';
+    ET_TARGET_ID_VALUE_NOT_FOUND:
+      ErrorStr2:= 'Il valore IDREF o IDREFS si riferisce ad un valore ID inesistente';
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND:
+      ErrorStr2:= 'Il valore ENTITY o ENTITIES si riferisce ad una entit� non analizzata non esistente';
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY:
+      ErrorStr2:= 'Dichiarazione di entit� predefinita errata';
+    ET_UNRESOLVABLE_ENTITY_REFERENCE:
+      ErrorStr2:= 'Riferimento non risolvibile ad una entit�';
+    ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE:
+      ErrorStr2:= 'Riferimento non risolvibile ad una entit� con parametri';
+    ET_EXTERNAL_SUBSET_NOT_FOUND:
+      ErrorStr2:= 'ET_EXTERNAL_SUBSET_NOT_FOUND';
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'ET_PARAMETER_ENTITY_DECL_NOT_FOUND';
+  else
+    ErrorStr2:= 'Codice sorgente non valido';
+  end; {case ...}
+  result:= {$IFNDEF UNICODE}Iso8859_1ToUTF16Str{$ENDIF}(concat(ErrorTypeStr,DocStr,ErrorStr1,' -- ',ErrorStr2));
+end;
+
+function TdomError.getPolishErrorStr: UnicodeString;
+// - This function was provided by Piotr Kuczynski -
+var
+  ErrorTypeStr,DocStr,ErrorStr1,ErrorStr2: string;
+begin
+  case severity of
+    DOM_SEVERITY_FATAL_ERROR: ErrorTypeStr:='FATALNY B��D ';
+    DOM_SEVERITY_ERROR: ErrorTypeStr:='B��D ';
+    DOM_SEVERITY_WARNING: ErrorTypeStr:='OSTRZE�ENIE: ';
+  end;
+
+  with FLocation do begin
+    DocStr:= concat('w dokumencie ',uri,' ');
+    if lineNumber = -1 then ErrorStr1:= ''
+    else if startLineNumber = lineNumber then begin
+      if startColumnNumber = columnNumber
+        then FmtStr(ErrorStr1,'w linii %d, znak %d',[lineNumber,columnNumber])
+        else FmtStr(ErrorStr1,'w linii %d, pomi�dzy znakiem %d i %d',[lineNumber,startColumnNumber,columnNumber]);
+    end else begin
+      FmtStr(ErrorStr1,'pomi�dzy lini� %d, znak %d i lini� %d, znak %d',[startLineNumber,startColumnNumber,lineNumber,columnNumber]);
+    end;
+  end;
+
+  case FRelatedException of
+    ET_INVALID_ELEMENT_NAME:
+      ErrorStr2:= 'Niew�a�ciwa nazwa elementu';
+    ET_DOUBLE_ROOT_ELEMENT:
+      ErrorStr2:= 'Podw�jnie zdefiniowany korze�';
+    ET_DOUBLE_DOCTYPE:
+      ErrorStr2:= 'Podw�jna deklaracja typu dokumentu (DTD)';
+    ET_INVALID_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Niew�a�ciwa nazwa atrybutu';
+    ET_INVALID_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Niew�a�ciwa warto�� atrybutu';
+    ET_DOUBLE_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Powtarzaj�ca si� nazwa atrybutu';
+    ET_INVALID_ENTITY_NAME:
+      ErrorStr2:= 'Niew�a�ciwa nazwa encji';
+    ET_INVALID_PROCESSING_INSTRUCTION:
+      ErrorStr2:= 'Niew�a�ciwa instrukcja przetwarzania';
+    ET_INVALID_XML_DECL:
+      ErrorStr2:= 'Niew�a�ciwa deklaracja XML';
+    ET_INVALID_CHARREF:
+      ErrorStr2:= 'Niew�a�ciwy znak w odwo�aniu';
+    ET_MISSING_QUOTATION_MARK:
+      ErrorStr2:= 'Brakuj�cy cudzys��w';
+    ET_MISSING_EQUALITY_SIGN:
+      ErrorStr2:= 'Brakuj�cy znak r�wno�ci';
+    ET_DOUBLE_EQUALITY_SIGN:
+      ErrorStr2:= 'Podw�jny znak r�wno�ci';
+    ET_MISSING_WHITE_SPACE:
+      ErrorStr2:= 'Brakuj�cy znak spacji';
+    ET_MISSING_START_TAG:
+      ErrorStr2:= 'Znacznik zamykaj�cy bez znacznika otwieraj�cego';
+    ET_MISSING_END_TAG:
+      ErrorStr2:= 'Brakuj�cy znacznik zamykaj�cy';
+    ET_INVALID_CHARACTER:
+      ErrorStr2:= 'Niew�a�ciwy znak';
+    ET_NOT_IN_ROOT:
+      ErrorStr2:= 'Znak(i) umieszczone poza zasi�giem korzenia';
+    ET_INVALID_DOCTYPE:
+      ErrorStr2:= 'Niew�a�ciwa deklaracja typu dokumentu';
+    ET_WRONG_ORDER:
+      ErrorStr2:= 'Niew�a�ciwa kolejno��';
+    ET_UNKNOWN_DECL_TYPE:
+      ErrorStr2:= 'Nieznany typ deklaracji';
+    ET_INVALID_ENTITY_DECL:
+      ErrorStr2:= 'Niew�a�ciwa deklaracja encji';
+    ET_INVALID_ELEMENT_DECL:
+      ErrorStr2:= 'Niew�a�ciwa deklaracja elementu';
+    ET_INVALID_ATTRIBUTE_DECL:
+      ErrorStr2:= 'Niew�a�ciwa deklaracja atrybutu';
+    ET_INVALID_NOTATION_DECL:
+      ErrorStr2:= 'Niew�a�ciwa deklaracja notacji';
+    ET_INVALID_CONDITIONAL_SECTION:
+      ErrorStr2:= 'Niew�a�ciwa sekcja warunkowa';
+    ET_INVALID_TEXT_DECL:
+      ErrorStr2:= 'Niew�a�ciwa deklaracja tekstu';
+    ET_LT_IN_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Znak ''<'' wyst�puj�cy w zmienianej warto�ci atrybutu';
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY:
+      ErrorStr2:= 'Warto�� atrybutu odwo�uje si� do zewn�trznej encji';
+    ET_RECURSIVE_REFERENCE:
+      ErrorStr2:= 'ET_RECURSIVE_REFERENCE';
+    ET_REFERENCE_TO_UNPARSED_ENTITY:
+      ErrorStr2:= 'Odwo�anie do encji, kt�ra nie by�a jeszcze parsowana';
+    ET_NO_PROPER_MARKUP_REFERENCED:
+      ErrorStr2:= 'Odwo�anie do encji zawieraj�cej niew�a�ciwy znacznik';
+    ET_INVALID_COMMENT:
+      ErrorStr2:= 'ET_INVALID_COMMENT';
+    ET_INVALID_CDATA_SECTION:
+      ErrorStr2:= 'ET_INVALID_CDATA_SECTION';
+    ET_INVALID_SYSTEM_LITERAL:
+      ErrorStr2:= 'ET_INVALID_SYSTEM_LITERAL';
+    ET_INVALID_PUBID_LITERAL:
+      ErrorStr2:= 'ET_INVALID_PUBID_LITERAL';
+    ET_INVALID_QUALIFIED_NAME:
+      ErrorStr2:= 'ET_INVALID_QUALIFIED_NAME';
+    ET_INVALID_PREFIX:
+      ErrorStr2:= 'ET_INVALID_PREFIX';
+    ET_INVALID_NAMESPACE_URI:
+      ErrorStr2:= 'ET_INVALID_NAMESPACE_URI';
+    ET_NAMESPACE_URI_NOT_FOUND:
+      ErrorStr2:= 'ET_NAMESPACE_URI_NOT_FOUND';
+    ET_WRONG_PREFIX_MAPPING_NESTING:
+      ErrorStr2:= 'ET_WRONG_PREFIX_MAPPING_NESTING';
+    ET_ENCODING_NOT_SUPPORTED:
+      ErrorStr2:= 'ET_ENCODING_NOT_SUPPORTED';
+    ET_DOUBLE_ATTDEF:
+      ErrorStr2:= 'Podw�jna definicja atrybutu';
+    ET_DOUBLE_ENTITY_DECL:
+      ErrorStr2:= 'Podw�jna deklaracja encji';
+    ET_DOUBLE_PARAMETER_ENTITY_DECL:
+      ErrorStr2:= 'Podw�jna deklaracja encji parametrycznej';
+    ET_UNUSABLE_ENTITY_DECL:
+      ErrorStr2:= 'Nieu�ywana deklaracja encji';
+    ET_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Brakuj�ca deklaracja encji';
+    ET_DUPLICATE_ELEMENT_TYPE_DECL:
+      ErrorStr2:= 'Podw�jna deklaracja typu elementu';
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT:
+      ErrorStr2:= 'Podw�jna nazwa w mieszanej zawarto�ci';
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Zadeklarowany podw�jny atrybut ID dla element�w tego samego typu';
+    ET_UNDECLARED_NOTATION_NAME:
+      ErrorStr2:= 'Nie zadeklarowana nazwa notacji';
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Zadeklarowany podw�jny atrybut notacji dla element�w tego samego typu';
+    ET_DUPLICATE_NOTATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_NOTATION_TOKEN';
+    ET_NOTATION_ON_EMPTY_ELEMENT:
+      ErrorStr2:= 'Atrybut notacji zadeklarowany dla elementu typu pusty';
+    ET_DUPLICATE_ENUMERATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_ENUMERATION_TOKEN';
+    ET_ATTRIBUTE_TYPE_MISMATCH:
+      ErrorStr2:= 'Typ atrybutu i warto�� atrybutu nie pasuj� do siebie';
+    ET_DUPLICATE_TOKENS:
+      ErrorStr2:= 'Zadeklarowane dwa identyczne tokeny';
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED:
+      ErrorStr2:= 'Atrybut ID nie jest zadeklarowany ani jako #IMPLIED ani #REQUIRED';
+    ET_WRONG_ROOT_ELEMENT_TYPE:
+      ErrorStr2:= 'Typ korzenia nie pasuje do nazwy z deklaracji typu dokumentu';
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND:
+      ErrorStr2:= 'Nie znaleziona deklaracja typu elementu';
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT:
+      ErrorStr2:= 'Element zadeklarowany jako EMPTY nie jest pusty';
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT:
+      ErrorStr2:= 'Zawarto�� elementu o mieszanej zawarto�ci nie pasuje do deklaracji';
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT:
+      ErrorStr2:= 'Zawarto�� elementu, zawieraj�cego element, nie pasuje do deklaracji';
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL:
+      ErrorStr2:= 'Model zawarto�ci elementu jest niedeterministyczny';
+    ET_DUPLICATE_NOTATION_DECL:
+      ErrorStr2:= 'Podw�jna deklaracja notacji';
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND:
+      ErrorStr2:= 'Definicja atrybutu nie zosta�a znaleziona';
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND:
+      ErrorStr2:= 'Wymagany atrybut nie zosta� znaleziony';
+    ET_FIXED_ATTRIBUTE_MISMATCH:
+      ErrorStr2:= 'Zadeklarowana i bie��ca warto�� sta�ego atrybutu nie pasuja do siebie';
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH:
+      ErrorStr2:= 'Typ atrybutu i jego warto�� domy�lna nie pasuj� do siebie';
+    ET_DUPLICATE_ID_VALUE:
+      ErrorStr2:= 'Podw�jna warto�� ID';
+    ET_TARGET_ID_VALUE_NOT_FOUND:
+      ErrorStr2:= 'Warto�� IDREF lub IDREFS odwo�uje si� do warto�ci ID nieistniej�cego elementu';
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND:
+      ErrorStr2:= 'Warto�� ENTITY lub ENTITIES odwo�uje si� do niesparsowanej encji, kt�ra nie istnieje';
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY:
+      ErrorStr2:= 'Niew�a�ciwa deklaracja predefiniowanej encji';
+    ET_UNRESOLVABLE_ENTITY_REFERENCE:
+      ErrorStr2:= 'Nierozwi�zywalna referencja do encji';
+    ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE:
+      ErrorStr2:= 'Nierozwi�zywalna referencja encji parametrycznej';
+    ET_EXTERNAL_SUBSET_NOT_FOUND:
+      ErrorStr2:= 'Zewn�trzny podzbi�r DTD nie zosta� znaleziony';
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'ET_PARAMETER_ENTITY_DECL_NOT_FOUND';
+  else
+    ErrorStr2:= 'Niew�a�ciwy kod �r�d�owy';
+  end; {case ...}
+
+  result:= {$IFNDEF UNICODE}cp1250ToUTF16Str{$ENDIF}(concat(ErrorTypeStr,DocStr,ErrorStr1,' -- ',ErrorStr2));
+end;
+
+function TdomError.getPortugueseErrorStr: UnicodeString;
+// - This function was provided by Ricardo Albuquerque -
+var
+  ErrorTypeStr,DocStr,ErrorStr1,ErrorStr2: string;
+begin
+  case severity of
+    DOM_SEVERITY_FATAL_ERROR: ErrorTypeStr:='ERRO FATAL ';
+    DOM_SEVERITY_ERROR: ErrorTypeStr:='ERRO ';
+    DOM_SEVERITY_WARNING: ErrorTypeStr:='ATEN��O: ';
+  end;
+
+  with FLocation do begin
+    DocStr:= concat('no documento ',uri,' ');
+    if lineNumber = -1 then ErrorStr1:= ''
+    else if startLineNumber = lineNumber then begin
+      if startColumnNumber = columnNumber
+        then FmtStr(ErrorStr1,'na linha %d, posi��o %d',[lineNumber,columnNumber])
+        else FmtStr(ErrorStr1,'na linha %d, entre posi��o %d e %d',[lineNumber,startColumnNumber,columnNumber]);
+    end else begin
+      FmtStr(ErrorStr1,'entre linha %d, posi��o %d e linha %d, posi��o %d',[startLineNumber,startColumnNumber,lineNumber,columnNumber]);
+    end;
+  end;
+
+  case FRelatedException of
+    ET_INVALID_ELEMENT_NAME:
+      ErrorStr2:= 'Nome de elemento inv�lido';
+    ET_DOUBLE_ROOT_ELEMENT:
+      ErrorStr2:= 'Elemento raiz duplicado';
+    ET_DOUBLE_DOCTYPE:
+      ErrorStr2:= 'Defini��o de tipo de documento(DTD) duplicado';
+    ET_INVALID_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Nome de atributo inv�lido';
+    ET_INVALID_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'valor de atributo inv�lido';
+    ET_DOUBLE_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Nome de atributo duplicado em um elemento';
+    ET_INVALID_ENTITY_NAME:
+      ErrorStr2:= 'Nome de entidade inv�lida';
+    ET_INVALID_PROCESSING_INSTRUCTION:
+      ErrorStr2:= 'Instru��o de processamento inv�lida';
+    ET_INVALID_XML_DECL:
+      ErrorStr2:= 'Declara��o XML inv�lida';
+    ET_INVALID_CHARREF:
+      ErrorStr2:= 'Refer�ncia a caracter invalida';
+    ET_MISSING_QUOTATION_MARK:
+      ErrorStr2:= 'Aspas faltando';
+    ET_MISSING_EQUALITY_SIGN:
+      ErrorStr2:= 'Sinal de igualdade faltando';
+    ET_DOUBLE_EQUALITY_SIGN:
+      ErrorStr2:= 'Sinal de igualdade duplicado';
+    ET_MISSING_WHITE_SPACE:
+      ErrorStr2:= 'Espa�o em branco faltando';
+    ET_MISSING_START_TAG:
+      ErrorStr2:= 'Marca de fim sem marca de in�cio ';
+    ET_MISSING_END_TAG:
+      ErrorStr2:= 'Marca de fim faltando';
+    ET_INVALID_CHARACTER:
+      ErrorStr2:= 'Caracter inv�lido';
+    ET_NOT_IN_ROOT:
+      ErrorStr2:= 'Caracter(es) fora do elemento raiz';
+    ET_INVALID_DOCTYPE:
+      ErrorStr2:= 'Declara��o de tipo de documento inv�lida';
+    ET_WRONG_ORDER:
+      ErrorStr2:= 'Ordem errada';
+    ET_UNKNOWN_DECL_TYPE:
+      ErrorStr2:= 'Tipo de declara��o inv�lida';
+    ET_INVALID_ENTITY_DECL:
+      ErrorStr2:= 'Declara��o de entidade inv�lida';
+    ET_INVALID_ELEMENT_DECL:
+      ErrorStr2:= 'Declara��o de elemento inv�lido';
+    ET_INVALID_ATTRIBUTE_DECL:
+      ErrorStr2:= 'Declara��o de atributo inv�lido';
+    ET_INVALID_NOTATION_DECL:
+      ErrorStr2:= 'Declara��o de nota��o inv�lida';
+    ET_INVALID_CONDITIONAL_SECTION:
+      ErrorStr2:= 'Se��o condicional inv�lida';
+    ET_INVALID_TEXT_DECL:
+      ErrorStr2:= 'Declara��o de texto inv�lido';
+    ET_LT_IN_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Encontrado o caracter ''<'' no valor do atributo';
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY:
+      ErrorStr2:= 'O valor do atributo se refere a uma entidade externa';
+    ET_RECURSIVE_REFERENCE:
+      ErrorStr2:= 'ET_RECURSIVE_REFERENCE';
+    ET_REFERENCE_TO_UNPARSED_ENTITY:
+      ErrorStr2:= 'Refer�ncia a uma entidade n�o analisada';
+    ET_NO_PROPER_MARKUP_REFERENCED:
+      ErrorStr2:= 'Refer�ncia a uma entidade contendo marca��o impr�pria';
+    ET_INVALID_COMMENT:
+      ErrorStr2:= 'ET_INVALID_COMMENT';
+    ET_INVALID_CDATA_SECTION:
+      ErrorStr2:= 'ET_INVALID_CDATA_SECTION';
+    ET_INVALID_SYSTEM_LITERAL:
+      ErrorStr2:= 'ET_INVALID_SYSTEM_LITERAL';
+    ET_INVALID_PUBID_LITERAL:
+      ErrorStr2:= 'ET_INVALID_PUBID_LITERAL';
+    ET_INVALID_QUALIFIED_NAME:
+      ErrorStr2:= 'ET_INVALID_QUALIFIED_NAME';
+    ET_INVALID_PREFIX:
+      ErrorStr2:= 'ET_INVALID_PREFIX';
+    ET_INVALID_NAMESPACE_URI:
+      ErrorStr2:= 'ET_INVALID_NAMESPACE_URI';
+    ET_NAMESPACE_URI_NOT_FOUND:
+      ErrorStr2:= 'ET_NAMESPACE_URI_NOT_FOUND';
+    ET_WRONG_PREFIX_MAPPING_NESTING:
+      ErrorStr2:= 'ET_WRONG_PREFIX_MAPPING_NESTING';
+    ET_ENCODING_NOT_SUPPORTED:
+      ErrorStr2:= 'ET_ENCODING_NOT_SUPPORTED';
+    ET_DOUBLE_ATTDEF:
+      ErrorStr2:= 'Defini��o de atributo duplicada';
+    ET_DOUBLE_ENTITY_DECL:
+      ErrorStr2:= 'Declara��o de entidade duplicada';
+    ET_DOUBLE_PARAMETER_ENTITY_DECL:
+      ErrorStr2:= 'Declara��o de entidade param�trica duplicada';
+    ET_UNUSABLE_ENTITY_DECL:
+      ErrorStr2:= 'Entidade inutiliz�vel declarada';
+    ET_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'Faltando declara��o de entidade';
+    ET_DUPLICATE_ELEMENT_TYPE_DECL:
+      ErrorStr2:= 'Declara��o do tipo do elemento duplicada';
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT:
+      ErrorStr2:= 'Nome duplicado no conte�do misto';
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Atributo ID duplicado na mesma declara��o de tipo de elemento';
+    ET_UNDECLARED_NOTATION_NAME:
+      ErrorStr2:= 'Nome de anota��o n�o declarado';
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Atributo de Anota��o duplicado na mesma declara��o de tipo de elemento';
+    ET_DUPLICATE_NOTATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_NOTATION_TOKEN';
+    ET_NOTATION_ON_EMPTY_ELEMENT:
+      ErrorStr2:= 'Atributo de anota��o em uma declara��o de tipo de elemento vazia';
+    ET_DUPLICATE_ENUMERATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_ENUMERATION_TOKEN';
+    ET_ATTRIBUTE_TYPE_MISMATCH:
+      ErrorStr2:= 'Tipo de atributo e valor de atributo n�o coincidem';
+    ET_DUPLICATE_TOKENS:
+      ErrorStr2:= 'Declara��o de ''tokens'' duplicada';
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED:
+      ErrorStr2:= 'Atributo ID n�o foi declarado como #IMPLIED nem como #REQUIRED';
+    ET_WRONG_ROOT_ELEMENT_TYPE:
+      ErrorStr2:= 'O tipo de elemento raiz n�o tem o mesmo nome que a declara��o do tipo de documento';
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND:
+      ErrorStr2:= 'Declara��o de tipo de elemento n�o encontrada';
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT:
+      ErrorStr2:= 'Elemento declarado como ''EMPTY'' n�o est� vazio';
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT:
+      ErrorStr2:= 'O conte�do de um elemento com conte�do misto n�o coincide com sua declara��o';
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT:
+      ErrorStr2:= 'O conte�do de um elemento com conte�do de elemento n�o coincide com sua declara��o';
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL:
+      ErrorStr2:= 'O modelo de conte�do de um elemento n�o � determinante';
+    ET_DUPLICATE_NOTATION_DECL:
+      ErrorStr2:= 'Declara��o de anota��o duplicada';
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND:
+      ErrorStr2:= 'Defini��o de atributo n�o encontrada';
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND:
+      ErrorStr2:= 'Atributo requerido n�o encontrado';
+    ET_FIXED_ATTRIBUTE_MISMATCH:
+      ErrorStr2:= 'O valor declarado e o valor atual de um atributo fixo n�o coincidem';
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH:
+      ErrorStr2:= 'O tipo de atributo e o atributo por defini��o n�o coincidem';
+    ET_DUPLICATE_ID_VALUE:
+      ErrorStr2:= 'Valor de ID duplicado';
+    ET_TARGET_ID_VALUE_NOT_FOUND:
+      ErrorStr2:= 'O valor de IDREF ou IDREFS se refere a um valor de ID n�o existente';
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND:
+      ErrorStr2:= 'O valor de ENTITY ou ENTITIES se refere a uma entidade n�o existente';
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY:
+      ErrorStr2:= 'Declara��o err�nea de uma entidade pr�-definida';
+    ET_UNRESOLVABLE_ENTITY_REFERENCE:
+      ErrorStr2:= 'Refer�ncia a entidade imposs�vel de resolver';
+    ET_EXTERNAL_SUBSET_NOT_FOUND:
+      ErrorStr2:= 'ET_EXTERNAL_SUBSET_NOT_FOUND';
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'ET_PARAMETER_ENTITY_DECL_NOT_FOUND';
+  else
+    ErrorStr2:= 'C�digo fonte inv�lido';
+  end; {case ...}
+
+  result:= {$IFNDEF UNICODE}Iso8859_1ToUTF16Str{$ENDIF}(concat(ErrorTypeStr,DocStr,ErrorStr1,' -- ',ErrorStr2));
+end;
+
+function TdomError.getSpanishErrorStr: UnicodeString;
+// - This function was provided by Pedro de Paz -
+var
+  ErrorTypeStr,DocStr,ErrorStr1,ErrorStr2: string;
+begin
+  case severity of
+    DOM_SEVERITY_FATAL_ERROR: ErrorTypeStr:='ERROR FATAL ';
+    DOM_SEVERITY_ERROR: ErrorTypeStr:='ERROR ';
+    DOM_SEVERITY_WARNING: ErrorTypeStr:='AVISO: ';
+  end;
+
+  with FLocation do begin
+    DocStr:= concat('en el documento ',uri,' ');
+    if lineNumber = -1 then ErrorStr1:= ''
+    else if startLineNumber = lineNumber then begin
+      if startColumnNumber = columnNumber
+        then FmtStr(ErrorStr1,'en la linea %d, posici�n %d',[lineNumber,columnNumber])
+        else FmtStr(ErrorStr1,'en la linea %d, entre las posiciones %d y %d',[lineNumber,startColumnNumber,columnNumber]);
+    end else begin
+      FmtStr(ErrorStr1,'entre la linea %d, posici�n %d y la linea %d, posici�n %d',[startLineNumber,startColumnNumber,lineNumber,columnNumber]);
+    end;
+  end;
+
+  case FRelatedException of
+    ET_INVALID_ELEMENT_NAME:
+      ErrorStr2:= 'Nombre de elemento no v�lido';
+    ET_DOUBLE_ROOT_ELEMENT:
+      ErrorStr2:= 'Elemento raiz duplicado';
+    ET_DOUBLE_DOCTYPE:
+      ErrorStr2:= 'Declaraci�n de tipo de documento (DTD) duplicada';
+    ET_INVALID_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Nombre de atributo no v�lido';
+    ET_INVALID_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Valor de atributo no v�lido';
+    ET_DOUBLE_ATTRIBUTE_NAME:
+      ErrorStr2:= 'Atributo duplicado en un elemento';
+    ET_INVALID_ENTITY_NAME:
+      ErrorStr2:= 'Nombre de entidad no v�lida';
+    ET_INVALID_PROCESSING_INSTRUCTION:
+      ErrorStr2:= 'Instrucci�n de proceso no v�lida';
+    ET_INVALID_XML_DECL:
+      ErrorStr2:= 'Declaraci�n XML no v�lida';
+    ET_INVALID_CHARREF:
+      ErrorStr2:= 'Referencia a caracter no v�lida';
+    ET_MISSING_QUOTATION_MARK:
+      ErrorStr2:= 'No se encontraron comillas';
+    ET_MISSING_EQUALITY_SIGN:
+      ErrorStr2:= 'No se encontr� simbolo de igualdad';
+    ET_DOUBLE_EQUALITY_SIGN:
+      ErrorStr2:= 'Signo de igualdad duplicado';
+    ET_MISSING_WHITE_SPACE:
+      ErrorStr2:= 'No se encontr� espacio en blanco';
+    ET_MISSING_START_TAG:
+      ErrorStr2:= 'Tag final sin tag de inicio';
+    ET_MISSING_END_TAG:
+      ErrorStr2:= 'Tag de inicio sin tag final';
+    ET_INVALID_CHARACTER:
+      ErrorStr2:= 'Caracter no v�lido';
+    ET_NOT_IN_ROOT:
+      ErrorStr2:= 'Caracter(es) fuera del elemento raiz';
+    ET_INVALID_DOCTYPE:
+      ErrorStr2:= 'Declaraci�n de tipo de documento no v�lida';
+    ET_WRONG_ORDER:
+      ErrorStr2:= 'Orden equivocado';
+    ET_UNKNOWN_DECL_TYPE:
+      ErrorStr2:= 'Tipo de declaraci�n desconocida';
+    ET_INVALID_ENTITY_DECL:
+      ErrorStr2:= 'Declaraci�n de entidad no v�lida';
+    ET_INVALID_ELEMENT_DECL:
+      ErrorStr2:= 'Declaraci�n de elemento no v�lida';
+    ET_INVALID_ATTRIBUTE_DECL:
+      ErrorStr2:= 'Declaraci�n de atributo no v�lida';
+    ET_INVALID_NOTATION_DECL:
+      ErrorStr2:= 'Declaraci�n de anotaci�n no v�lida';
+    ET_INVALID_CONDITIONAL_SECTION:
+      ErrorStr2:= 'Secci�n condicional no v�lida';
+    ET_INVALID_TEXT_DECL:
+      ErrorStr2:= 'Declaraci�n de texto no v�lida';
+    ET_LT_IN_ATTRIBUTE_VALUE:
+      ErrorStr2:= 'Encontrado caracter ''<'' en valor de atributo';
+    ET_ATTRIBUTE_VALUE_REFERS_TO_EXTERNAL_ENTITY:
+      ErrorStr2:= 'Valor de atributo apuntando a una entidad externa';
+    ET_RECURSIVE_REFERENCE:
+      ErrorStr2:= 'ET_RECURSIVE_REFERENCE';
+    ET_REFERENCE_TO_UNPARSED_ENTITY:
+      ErrorStr2:= 'Referencia a una entidad no analizada';
+    ET_NO_PROPER_MARKUP_REFERENCED:
+      ErrorStr2:= 'Referencia a una entidad que contiene un ''markup'' no adecuado';
+    ET_INVALID_COMMENT:
+      ErrorStr2:= 'ET_INVALID_COMMENT';
+    ET_INVALID_CDATA_SECTION:
+      ErrorStr2:= 'ET_INVALID_CDATA_SECTION';
+    ET_INVALID_SYSTEM_LITERAL:
+      ErrorStr2:= 'ET_INVALID_SYSTEM_LITERAL';
+    ET_INVALID_PUBID_LITERAL:
+      ErrorStr2:= 'ET_INVALID_PUBID_LITERAL';
+    ET_INVALID_QUALIFIED_NAME:
+      ErrorStr2:= 'ET_INVALID_QUALIFIED_NAME';
+    ET_INVALID_PREFIX:
+      ErrorStr2:= 'ET_INVALID_PREFIX';
+    ET_INVALID_NAMESPACE_URI:
+      ErrorStr2:= 'ET_INVALID_NAMESPACE_URI';
+    ET_NAMESPACE_URI_NOT_FOUND:
+      ErrorStr2:= 'ET_NAMESPACE_URI_NOT_FOUND';
+    ET_WRONG_PREFIX_MAPPING_NESTING:
+      ErrorStr2:= 'ET_WRONG_PREFIX_MAPPING_NESTING';
+    ET_ENCODING_NOT_SUPPORTED:
+      ErrorStr2:= 'ET_ENCODING_NOT_SUPPORTED';
+    ET_DOUBLE_ATTDEF:
+      ErrorStr2:= 'Definici�n de atributo duplicada';
+    ET_DOUBLE_ENTITY_DECL:
+      ErrorStr2:= 'Declaraci�n de entidad duplicada';
+    ET_DOUBLE_PARAMETER_ENTITY_DECL:
+      ErrorStr2:= 'Declaraci�n de entidad con parametros duplicados';
+    ET_UNUSABLE_ENTITY_DECL:
+      ErrorStr2:= 'Declaraci�n de entidad no utilizable';
+    ET_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'No existe declaraci�n de entidad';
+    ET_DUPLICATE_ELEMENT_TYPE_DECL:
+      ErrorStr2:= 'Duplicada declaraci�n de tipo de elemento';
+    ET_DUPLICATE_NAME_IN_MIXED_CONTENT:
+      ErrorStr2:= 'Nombre duplicado en contenido mezclado';
+    ET_DUPLICATE_ID_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Atributo ID duplicado en la misma declaraci�n de tipo de elemento';
+    ET_UNDECLARED_NOTATION_NAME:
+      ErrorStr2:= 'Nombre de anotaci�n no declarado';
+    ET_DUPLICATE_NOTATION_ON_ELEMENT_TYPE:
+      ErrorStr2:= 'Atributo de anotaci�n duplicado en la misma declaraci�n de tipo de elemento';
+    ET_DUPLICATE_NOTATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_NOTATION_TOKEN';
+    ET_NOTATION_ON_EMPTY_ELEMENT:
+      ErrorStr2:= 'Atributo de anotaci�n en una declaraci�n de tipo de elemento vacia';
+    ET_DUPLICATE_ENUMERATION_TOKEN:
+      ErrorStr2:= 'ET_DUPLICATE_ENUMERATION_TOKEN';
+    ET_ATTRIBUTE_TYPE_MISMATCH:
+      ErrorStr2:= 'Tipo de atributo y valor de atributo no coinciden';
+    ET_DUPLICATE_TOKENS:
+      ErrorStr2:= 'Declaraci�n de ''tokens'' duplicada';
+    ET_ID_NEITHER_IMPLIED_NOR_REQUIRED:
+      ErrorStr2:= 'Atributo ID no ha sido declarado como #IMPLIED ni como #REQUIRED';
+    ET_WRONG_ROOT_ELEMENT_TYPE:
+      ErrorStr2:= 'El tipo del elemento raiz no tiene el mismo nombre que la declaraci�n del tipo de documento';
+    ET_ELEMENT_TYPE_DECL_NOT_FOUND:
+      ErrorStr2:= 'Declaraci�n de tipo de elemento no encontrada';
+    ET_ELEMENT_DECLARED_EMPTY_HAS_CONTENT:
+      ErrorStr2:= 'Elemento declarado como ''EMPTY'' no esta vacio';
+    ET_ELEMENT_WITH_ILLEGAL_MIXED_CONTENT:
+      ErrorStr2:= 'El contenido de un elemento con contenido mezclado no coincide con su declaraci�n';
+    ET_ELEMENT_WITH_ILLEGAL_ELEMENT_CONTENT:
+      ErrorStr2:= 'El contenido de un elemento con contenido de elemento no coincide con su declaraci�n';
+    ET_NONDETERMINISTIC_ELEMENT_CONTENT_MODEL:
+      ErrorStr2:= 'El modelo de contenido de un elemento no es determinante';
+    ET_DUPLICATE_NOTATION_DECL:
+      ErrorStr2:= 'Declaraci�n de anotaci�n duplicada';
+    ET_ATTRIBUTE_DEFINITION_NOT_FOUND:
+      ErrorStr2:= 'Definici�n de atributo no encontrada';
+    ET_REQUIRED_ATTRIBUTE_NOT_FOUND:
+      ErrorStr2:= 'Atributo requerido no encontrado';
+    ET_FIXED_ATTRIBUTE_MISMATCH:
+      ErrorStr2:= 'El valor declarado y el valor actual de un atributo fijo no coincide';
+    ET_ATTRIBUTE_DEFAULT_TYPE_MISMATCH:
+      ErrorStr2:= 'El tipo de atributo y el atributo por defecto no coincide';
+    ET_DUPLICATE_ID_VALUE:
+      ErrorStr2:= 'Valor de ID duplicado';
+    ET_TARGET_ID_VALUE_NOT_FOUND:
+      ErrorStr2:= 'El valor de IDREF o IDREFS apunta a un valor de ID no existente';
+    ET_TARGET_UNPARSED_ENTITY_NOT_FOUND:
+      ErrorStr2:= 'El valor de ENTITY o ENTITIES apunta a una entidad no existente';
+    ET_WRONG_DECL_OF_PREDEFINED_ENTITY:
+      ErrorStr2:= 'DEclaraci�n erronea de una entidad predefinida';
+    ET_UNRESOLVABLE_ENTITY_REFERENCE:
+      ErrorStr2:= 'Referencia a entidad imposible de resolver';
+    ET_EXTERNAL_SUBSET_NOT_FOUND:
+      ErrorStr2:= 'ET_EXTERNAL_SUBSET_NOT_FOUND';
+    ET_PARAMETER_ENTITY_DECL_NOT_FOUND:
+      ErrorStr2:= 'ET_PARAMETER_ENTITY_DECL_NOT_FOUND';
+  else
+    ErrorStr2:= 'Codigo fuente no v�lido';
+  end; {case ...}
+
+  result:= {$IFNDEF UNICODE}Iso8859_1ToUTF16Str{$ENDIF}(concat(ErrorTypeStr,DocStr,ErrorStr1,' -- ',ErrorStr2));
+end;
+
+procedure TdomError.setLanguage(const value: TIso639LanguageCode);
+begin
+  if not (value in FSupportedLanguages)
+    then raise ENot_Supported_Err.create('Not supported error.');
+  FLanguage:= value;
+end;
+
+function TdomError.getMessage: UnicodeString;
+begin
+  Result:= '';
+
+  case FLanguage of
+    iso639_de: result:= getGermanErrorStr;
+    iso639_en: result:= getEnglishErrorStr;
+    iso639_es: result:= getSpanishErrorStr;
+    iso639_fr: result:= getFrenchErrorStr;
+    iso639_it: result:= getItalianErrorStr;
+    iso639_nl: result:= getDutchErrorStr;
+    iso639_pl: result:= getPolishErrorStr;
+    iso639_pt: result:= getPortugueseErrorStr;
+  else
+    exit;
+  end;
+
+  if FCode = ''
+    then Result:= concat(Result,'.')
+    else Result:= concat(Result,': ',FCode);
+end;
+
+
+
+// ++++++++++++++++++++++++ TdomLocator ++++++++++++++++++++++++
+constructor TdomLocator.create(const startLine,
+                                     startColumn,
+                                     endLine,
+                                     endColumn,
+                                     offset: integer;
+                               const uri: UnicodeString;
+                               const rCMNode: TdomCMNode;
+                               const rNode: TdomNode);
+begin
+  inherited create;
+  FStartLineNumber:=   startLine;
+  FStartColumnNumber:= startColumn;
+  FLineNumber:=        endLine;
+  FColumnNumber:=      endColumn;
+  FOffset:=            offset;
+  FUri:=               uri;
+  FRelatedCMNode:=     rCMNode;
+  FRelatedNode:=       rNode;
+end;
+
+function TdomLocator.getColumnNumber: integer;
+begin
+  Result:= FColumnNumber;
+end;
+
+function TdomLocator.getLineNumber: integer;
+begin
+  Result:= FLineNumber;
+end;
+
+function TdomLocator.getOffset: integer;
+begin
+  Result:= FOffset;
+end;
+
+function TdomLocator.getRelatedCMNode: TdomCMNode;
+begin
+  Result:= FRelatedCMNode;
+end;
+
+function TdomLocator.getRelatedNode: TdomNode;
+begin
+  Result:= FRelatedNode;
+end;
+
+function TdomLocator.getStartColumnNumber: integer;
+begin
+  Result:= FStartColumnNumber;
+end;
+
+function TdomLocator.getStartLineNumber: integer;
+begin
+  Result:= FStartLineNumber;
+end;
+
+function TdomLocator.getUri: UnicodeString;
+begin
+  Result:= FUri;
+end;
+
+
+
+// ++++++++++++++++++++ TdomInputSourceLocator ++++++++++++++++++++
+constructor TdomInputSourceLocator.create(const inputSource: TXmlInputSource;
+                                          const startLine,
+                                                startColumn,
+                                                endLine,
+                                                endColumn,
+                                                tabWidthValue: integer);
+begin
+  inherited create(startLine,startColumn,endLine,endColumn,-1,'',nil,nil);
+  FInputSource:= inputSource;
+  FTabWidth:= tabWidthValue;
+end;
+
+function TdomInputSourceLocator.getOffset: integer;
+begin
+  Result:= -1;
+  if assigned(FInputSource) then
+    with FInputSource do
+      if assigned(stream)
+        then result:= stream.Position;
+end;
+
+function TdomInputSourceLocator.getUri: UnicodeString;
+begin
+  if assigned(FInputSource)
+    then result:= FInputSource.systemId
+    else result:= '';
+end;
+
+procedure TdomInputSourceLocator.evaluate(const s: WideChar);
+const
+  TAB: WideChar = #9;
+  LF:  WideChar = #10;
+begin
+  if s = LF then begin
+    inc(FLineNumber);
+    FColumnNumber:= 0;
+  end else if s = TAB then begin
+    inc(FColumnNumber,tabWidth);
+  end else inc(FColumnNumber);
+end;
+
+procedure TdomInputSourceLocator.setStartMark;
+begin
+  FStartColumnNumber:= FColumnNumber;
+  FStartLineNumber:=   FLineNumber;
+end;
+
+
+
+// ++++++++++++++++++++++++++++ TXmlCustomHandler ++++++++++++++++++++++++++++
+function TXmlCustomHandler.sendErrorNotification(const target: TXmlCustomReader;
+                                                 const xmlErrorType: TXmlErrorType;
+                                                 const location: TdomLocator;
+                                                 const code: UnicodeString): boolean;
+begin
+  if assigned(target) then begin
+    result:= target.sendErrorNotification(xmlErrorType,location,code);
+  end else begin
+    if xmlErrorType in ET_FATAL_ERRORS
+      then result:= false
+      else result:= true;
+  end;
+end;
+
+
+
+// +++++++++++++++++++++++++++ TXmlStandardHandler +++++++++++++++++++++++++++
+procedure TXmlStandardHandler.Notification(AComponent: TComponent; operation: TOperation);
+begin
+  inherited notification(AComponent,Operation);
+  if (Operation = opRemove) and (AComponent = FNextHandler)
+    then FNextHandler:= nil;
+end;
+
+function TXmlStandardHandler.CDATA(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         data: UnicodeString): boolean;
+begin
+  if assigned(FOnCDATA) then FOnCDATA(sender,locator,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.CDATA(sender,locator,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.charRef(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           data: UnicodeString): boolean;
+begin
+  if assigned(FOnCharRef) then FOnCharRef(sender,locator,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.charRef(sender,locator,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.comment(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           data: UnicodeString): boolean;
+begin
+  if assigned(FOnComment) then FOnComment(sender,locator,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.comment(sender,locator,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.doctype(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname,
+                                           pubId,
+                                           sysId,
+                                           data: UnicodeString): boolean;
+begin
+  if assigned(FOnDoctype) then FOnDoctype(sender,locator,aname,pubId,sysId,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.doctype(sender,locator,aname,pubId,sysId,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.endDocument(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndDocument) then FOnEndDocument(sender,locator);
+  if assigned(nextHandler)
+    then result:= nextHandler.endDocument(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.endElement(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              namespaceURI,
+                                              tagName: UnicodeString): boolean;
+begin
+  if assigned(FOnEndElement) then FOnEndElement(sender,locator,namespaceURI,tagName);
+  if assigned(nextHandler)
+    then result:= nextHandler.endElement(sender,locator,namespaceURI,tagName)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.endPrefixMapping(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator;
+                                                    prefix: UnicodeString): boolean;
+begin
+  if assigned(FOnEndPrefixMapping) then FOnEndPrefixMapping(sender,locator,prefix);
+  if assigned(nextHandler)
+    then result:= nextHandler.endPrefixMapping(sender,locator,prefix)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.entityRef(const sender: TXmlCustomReader;
+                                       const locator: TdomLocator;
+                                             aname: UnicodeString): boolean;
+begin
+  if assigned(FOnEntityRef) then FOnEntityRef(sender,locator,aname);
+  if assigned(nextHandler)
+    then result:= nextHandler.entityRef(sender,locator,aname)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.PCDATA(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          data: UnicodeString): boolean;
+begin
+  if assigned(FOnPCDATA) then FOnPCDATA(sender,locator,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.PCDATA(sender,locator,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.processingInstruction(const sender: TXmlCustomReader;
+                                                   const locator: TdomLocator;
+                                                         targ,
+                                                         data : UnicodeString): boolean;
+begin
+  if assigned(FOnProcessingInstruction) then FOnProcessingInstruction(sender,locator,targ,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.processingInstruction(sender,locator,targ,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.skippedEntity(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 aname: UnicodeString): boolean;
+begin
+  if assigned(FOnSkippedEntity) then FOnSkippedEntity(sender,locator,aname);
+  if assigned(nextHandler)
+    then result:= nextHandler.skippedEntity(sender,locator,aname)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.startDocument(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 version,
+                                                 encName: UnicodeString;
+                                                 sdDl: TdomStandalone): boolean;
+begin
+  if assigned(FOnStartDocument) then FOnStartDocument(sender,locator,version,encName,sdDl);
+  if assigned(nextHandler)
+    then result:= nextHandler.startDocument(sender,locator,version,encName,sdDl)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.startElement(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator;
+                                                namespaceURI,
+                                                tagName: UnicodeString;
+                                                attributes: TdomNameValueList): boolean;
+begin
+  if assigned(FOnStartElement) then FOnStartElement(sender,locator,namespaceURI,tagName,attributes);
+  if assigned(nextHandler)
+    then result:= nextHandler.startElement(sender,locator,namespaceURI,tagName,attributes)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.startPrefixMapping(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      prefix,
+                                                      uri: UnicodeString): boolean;
+begin
+  if assigned(FOnStartPrefixMapping) then FOnStartPrefixMapping(sender,locator,prefix,uri);
+  if assigned(nextHandler)
+    then result:= nextHandler.startPrefixMapping(sender,locator,prefix,uri)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.attributeDefinition(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator;
+                                                       aname,
+                                                       attType,
+                                                       bracket,
+                                                       defaultDecl,
+                                                       attValue: UnicodeString): boolean;
+begin
+  if assigned(FOnAttributeDefinition) then FOnAttributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+  if assigned(nextHandler)
+    then result:= nextHandler.attributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.conditionalSection(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      includeStmt,
+                                                      data: UnicodeString): boolean;
+begin
+  if assigned(FOnConditionalSection) then FOnConditionalSection(sender,locator,includeStmt,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.conditionalSection(sender,locator,includeStmt,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.DTDcomment(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              data: UnicodeString): boolean;
+begin
+  if assigned(FOnDtdComment) then FOnDtdComment(sender,locator,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.DTDcomment(sender,locator,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                                      const locator: TdomLocator;
+                                                            targ,
+                                                            data : UnicodeString): boolean;
+begin
+  if assigned(FOnDtdProcessingInstruction) then FOnDtdProcessingInstruction(sender,locator,targ,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.DTDprocessingInstruction(sender,locator,targ,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.elementTypeDeclaration(const sender: TXmlCustomReader;
+                                                    const locator: TdomLocator;
+                                                          aname,
+                                                          data: UnicodeString): boolean;
+begin
+  if assigned(FOnElementTypeDeclaration) then FOnElementTypeDeclaration(sender,locator,aname,data);
+  if assigned(nextHandler)
+    then result:= nextHandler.elementTypeDeclaration(sender,locator,aname,data)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.endAttListDeclaration(const sender: TXmlCustomReader;
+                                                   const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndAttListDeclaration) then FOnEndAttListDeclaration(sender,locator);
+  if assigned(nextHandler)
+    then result:= nextHandler.endAttListDeclaration(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.endExtDtd(const sender: TXmlCustomReader;
+                                       const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndExtDtd) then FOnEndExtDtd(sender,locator);
+  if assigned(nextHandler)
+    then result:= nextHandler.endExtDtd(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.endIntDtd(const sender: TXmlCustomReader;
+                                       const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnendIntDtd) then FOnendIntDtd(sender,locator);
+  if assigned(nextHandler)
+    then result:= nextHandler.endIntDtd(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.entityDeclaration(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     aname,
+                                                     entityValue,
+                                                     pubId,
+                                                     sysId,
+                                                     notaName: UnicodeString): boolean;
+begin
+  if assigned(FOnEntityDeclaration) then FOnEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName);
+  if assigned(nextHandler)
+    then result:= nextHandler.entityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.notationDeclaration(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator;
+                                                       aname,
+                                                       pubId,
+                                                       sysId: UnicodeString): boolean;
+begin
+  if assigned(FOnNotationDeclaration) then FOnNotationDeclaration(sender,locator,aname,pubId,sysId);
+  if assigned(nextHandler)
+    then result:= nextHandler.notationDeclaration(sender,locator,aname,pubId,sysId)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                                        const locator: TdomLocator;
+                                                              aname,
+                                                              entityValue,
+                                                              pubId,
+                                                              sysId: UnicodeString): boolean;
+begin
+  if assigned(FOnParameterEntityDeclaration) then FOnParameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+  if assigned(nextHandler)
+    then result:= nextHandler.parameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.parameterEntityRef(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      aname: UnicodeString): boolean;
+begin
+  if assigned(FOnParameterEntityRef) then FOnParameterEntityRef(sender,locator,aname);
+  if assigned(nextHandler)
+    then result:= nextHandler.parameterEntityRef(sender,locator,aname)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.startAttListDeclaration(const sender: TXmlCustomReader;
+                                                     const locator: TdomLocator;
+                                                           aname: UnicodeString): boolean;
+begin
+  if assigned(FOnStartAttListDeclaration) then FOnStartAttListDeclaration(sender,locator,aname);
+  if assigned(nextHandler)
+    then result:= nextHandler.startAttListDeclaration(sender,locator,aname)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.startExtDtd(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator;
+                                               version,
+                                               encName: UnicodeString): boolean;
+begin
+  if assigned(FOnstartExtDtd) then FOnstartExtDtd(sender,locator,version,encName);
+  if assigned(nextHandler)
+    then result:= nextHandler.startExtDtd(sender,locator,version,encName)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.startIntDtd(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnstartIntDtd) then FOnstartIntDtd(sender,locator);
+  if assigned(nextHandler)
+    then result:= nextHandler.startIntDtd(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStandardHandler.resolvePE(    PEReferenceName: UnicodeString;
+                                       var PEValue: UnicodeString;
+                                       var error: TXmlErrorType): boolean;
+begin
+  if assigned(nextHandler)
+    then result:= nextHandler.resolvePE(PEReferenceName,PEValue,error)
+    else begin
+      PEValue:= '';
+      error:= ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE;
+      result:= true;
+    end;
+end;
+
+procedure TXmlStandardHandler.notifyReset;
+begin
+  if assigned(nextHandler) then nextHandler.notifyReset;
+end;
+
+
+
+// +++++++++++++++++++++++++++++ TXmlHandlerItem +++++++++++++++++++++++++++++
+function TXmlHandlerItem.getXmlHandler: TXmlCustomHandler;
+begin
+  Result := FXmlHandler;
+end;
+
+procedure TXmlHandlerItem.setXmlHandler(Value: TXmlCustomHandler);
+begin
+  FXmlHandler:= Value;
+end;
+
+procedure TXmlHandlerItem.Assign(Source: TPersistent);
+begin
+  if Source is TXmlHandlerItem
+    then XmlHandler:= TXmlHandlerItem(Source).XmlHandler
+    else inherited Assign(Source);
+end;
+
+
+// +++++++++++++++++++++++++++++++ TXmlHandlers ++++++++++++++++++++++++++++++
+constructor TXmlHandlers.Create(Distributor: TXmlDistributor);
+begin
+  inherited create(TXmlHandlerItem);
+  FDistributor:= Distributor;
+end;
+
+function TXmlHandlers.GetItem(Index: Integer): TXmlHandlerItem;
+begin
+  result:= TXmlHandlerItem(inherited GetItem(Index));
+end;
+
+procedure TXmlHandlers.SetItem(Index: Integer; Value: TXmlHandlerItem);
+begin
+  inherited SetItem(Index, Value);
+end;
+
+function TXmlHandlers.GetOwner: TPersistent;
+begin
+  result:= FDistributor;
+end;
+
+function TXmlHandlers.Add: TXmlHandlerItem;
+begin
+  result:= TXmlHandlerItem(inherited Add);
+end;
+
+procedure TXmlHandlers.Assign(Source: TPersistent);
+var
+  i: integer;
+begin
+  if Source = self then exit;
+  if Source is TStrings then begin
+    clear;
+    with TStrings(Source) do
+      for i:= 0 to pred(count) do
+        if assigned(Objects[i])
+          then if Objects[i] is TXmlCustomHandler
+            then self.add.XmlHandler:= TXmlCustomHandler(Objects[i]);
+  end else inherited Assign(Source);
+end;
+
+function TXmlHandlers.FindHandlerItem(AHandler: TXmlCustomHandler): TXmlHandlerItem;
+var
+  i: integer;
+begin
+  for i:= 0 to pred(count) do
+  begin
+    result := TXmlHandlerItem(inherited getItem(i));
+    if result.FXmlHandler = AHandler then exit;
+  end;
+  result:= nil;
+end;
+
+
+
+// +++++++++++++++++++++++++++++ TXmlDistributor +++++++++++++++++++++++++++++
+constructor TXmlDistributor.create(AOwner: TComponent);
+begin
+  inherited create(AOwner);
+  FNextHandlers:= TXmlHandlers.create(self);
+end;
+
+destructor TXmlDistributor.destroy;
+begin
+  FNextHandlers.free;
+  inherited destroy;
+end;
+
+procedure TXmlDistributor.readData(Reader: TReader);
+begin
+  Reader.ReadCollection(nextHandlers);
+end;
+
+procedure TXmlDistributor.writeData(Writer: TWriter);
+begin
+  Writer.WriteCollection(nextHandlers);
+end;
+
+procedure TXmlDistributor.DefineProperties(Filer: TFiler);
+begin
+  inherited DefineProperties(Filer);
+  Filer.DefineProperty('NextHandlers',readData,writeData,true);
+end;
+
+procedure TXmlDistributor.Notification(AComponent: TComponent; operation: TOperation);
+var
+  handlerItem: TXmlHandlerItem;
+begin
+  inherited notification(AComponent,Operation);
+  if not (csDestroying in ComponentState) and (Operation = opRemove) then begin
+    if (AComponent is TXmlCustomHandler) then  begin
+      handlerItem := nextHandlers.FindHandlerItem(TXmlCustomHandler(AComponent));
+      if handlerItem <> nil then handlerItem.XmlHandler:= nil;
+    end;
+  end;
+end;
+
+procedure TXmlDistributor.setNextHandlers(const value: TXmlHandlers);
+begin
+  FNextHandlers.Assign(Value);
+end;
+
+function TXmlDistributor.CDATA(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     data: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnCDATA) then FOnCDATA(sender,locator,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.CDATA(sender,locator,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.charRef(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       data: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnCharRef) then FOnCharRef(sender,locator,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.charRef(sender,locator,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.comment(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       data: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnComment) then FOnComment(sender,locator,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.comment(sender,locator,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.doctype(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       aname,
+                                       pubId,
+                                       sysId,
+                                       data: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnDoctype) then FOnDoctype(sender,locator,aname,pubId,sysId,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.doctype(sender,locator,aname,pubId,sysId,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.endDocument(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnEndDocument) then FOnEndDocument(sender,locator);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.endDocument(sender,locator);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.endElement(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          namespaceURI,
+                                          tagName: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnEndElement) then FOnEndElement(sender,locator,namespaceURI,tagName);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.endElement(sender,locator,namespaceURI,tagName);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.endPrefixMapping(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator;
+                                                prefix: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnEndPrefixMapping) then FOnEndPrefixMapping(sender,locator,prefix);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.endPrefixMapping(sender,locator,prefix);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.entityRef(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         aname: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnEntityRef) then FOnEntityRef(sender,locator,aname);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.entityRef(sender,locator,aname);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.PCDATA(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                     data: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnPCDATA) then FOnPCDATA(sender,locator,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.PCDATA(sender,locator,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.processingInstruction(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     targ,
+                                                     data : UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnProcessingInstruction) then FOnProcessingInstruction(sender,locator,targ,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.processingInstruction(sender,locator,targ,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.skippedEntity(const sender: TXmlCustomReader;
+                                       const locator: TdomLocator;
+                                             aname: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnSkippedEntity) then FOnSkippedEntity(sender,locator,aname);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.skippedEntity(sender,locator,aname);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.startDocument(const sender: TXmlCustomReader;
+                                       const locator: TdomLocator;
+                                             version,
+                                             encName: UnicodeString;
+                                             sdDl: TdomStandalone): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnStartDocument) then FOnStartDocument(sender,locator,version,encName,sdDl);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.startDocument(sender,locator,version,encName,sdDl);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.startElement(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            namespaceURI,
+                                            tagName: UnicodeString;
+                                            attributes: TdomNameValueList): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnStartElement) then FOnStartElement(sender,locator,namespaceURI,tagName,attributes);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.startElement(sender,locator,namespaceURI,tagName,attributes);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.startPrefixMapping(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  prefix,
+                                                  uri: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnStartPrefixMapping) then FOnStartPrefixMapping(sender,locator,prefix,uri);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.startPrefixMapping(sender,locator,prefix,uri);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.attributeDefinition(const sender: TXmlCustomReader;
+                                             const locator: TdomLocator;
+                                                   aname,
+                                                   attType,
+                                                   bracket,
+                                                   defaultDecl,
+                                                   attValue: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnAttributeDefinition) then FOnAttributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.attributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.conditionalSection(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  includeStmt,
+                                                  data: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnConditionalSection) then FOnConditionalSection(sender,locator,includeStmt,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.conditionalSection(sender,locator,includeStmt,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.DTDcomment(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          data: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnDtdComment) then FOnDtdComment(sender,locator,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.DTDcomment(sender,locator,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                                  const locator: TdomLocator;
+                                                        targ,
+                                                        data : UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnDtdProcessingInstruction) then FOnDtdProcessingInstruction(sender,locator,targ,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.DTDprocessingInstruction(sender,locator,targ,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.elementTypeDeclaration(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      aname,
+                                                      data: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnElementTypeDeclaration) then FOnElementTypeDeclaration(sender,locator,aname,data);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.elementTypeDeclaration(sender,locator,aname,data);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.endAttListDeclaration(const sender: TXmlCustomReader;
+                                                   const locator: TdomLocator): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnEndAttListDeclaration) then FOnEndAttListDeclaration(sender,locator);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.endAttListDeclaration(sender,locator);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.endExtDtd(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnEndExtDtd) then FOnEndExtDtd(sender,locator);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.endExtDtd(sender,locator);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.endIntDtd(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnendIntDtd) then FOnendIntDtd(sender,locator);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.endIntDtd(sender,locator);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.entityDeclaration(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 aname,
+                                                 entityValue,
+                                                 pubId,
+                                                 sysId,
+                                                 notaName: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnEntityDeclaration) then FOnEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.entityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.notationDeclaration(const sender: TXmlCustomReader;
+                                             const locator: TdomLocator;
+                                                   aname,
+                                                   pubId,
+                                                   sysId: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnNotationDeclaration) then FOnNotationDeclaration(sender,locator,aname,pubId,sysId);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.notationDeclaration(sender,locator,aname,pubId,sysId);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                                    const locator: TdomLocator;
+                                                          aname,
+                                                          entityValue,
+                                                          pubId,
+                                                          sysId: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnParameterEntityDeclaration) then FOnParameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.parameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.parameterEntityRef(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  aname: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnParameterEntityRef) then FOnParameterEntityRef(sender,locator,aname);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.parameterEntityRef(sender,locator,aname);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.startAttListDeclaration(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator;
+                                                       aname: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnStartAttListDeclaration) then FOnStartAttListDeclaration(sender,locator,aname);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.startAttListDeclaration(sender,locator,aname);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.startExtDtd(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           version,
+                                           encDl: UnicodeString): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnStartExtDtd) then FOnStartExtDtd(sender,locator,version,encDl);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.startExtDtd(sender,locator,version,encDl);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.startIntDtd(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnstartIntDtd) then FOnstartIntDtd(sender,locator);
+  result:= true;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.startIntDtd(sender,locator);
+      if not result then break;
+    end;
+  end;
+end;
+
+function TXmlDistributor.resolvePE(    PEReferenceName: UnicodeString;
+                                   var PEValue: UnicodeString;
+                                   var error: TXmlErrorType): boolean;
+var
+  i: integer;
+begin
+  result:= true;
+  PEValue:= '';
+  error:= ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE;
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if not assigned(items[i].XmlHandler) then continue;
+      result:= items[i].XmlHandler.resolvePE(PEReferenceName,PEValue,error);
+      if (error = ET_NONE) or not result then break;
+    end;
+  end;
+end;
+
+procedure TXmlDistributor.notifyReset;
+var
+  i: integer;
+begin
+  with nextHandlers do begin
+    for i:= 0 to pred(count) do begin
+      if assigned(items[i].XmlHandler)
+        then items[i].XmlHandler.notifyReset;
+    end;
+  end;
+end;
+
+
+
+// +++++++++++++++++++++++++++ TXmlCustomDTDHandler +++++++++++++++++++++++++++
+function TXmlCustomDtdHandler.comment(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            data: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.CDATA(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          data: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.charRef(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            data: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.doctype(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            aname,
+                                            pubId,
+                                            sysId,
+                                            data: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.endDocument(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.endElement(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator;
+                                               namespaceURI,
+                                               tagName: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.endPrefixMapping(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     prefix: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.entityRef(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              aname: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.PCDATA(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           data: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.processingInstruction(const sender: TXmlCustomReader;
+                                                    const locator: TdomLocator;
+                                                          targ,
+                                                          data : UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.skippedEntity(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  aname: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.startDocument(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  version,
+                                                  encName: UnicodeString;
+                                                  sdDl: TdomStandalone): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.startElement(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 namespaceURI,
+                                                 tagName: UnicodeString;
+                                                 attributes: TdomNameValueList): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomDtdHandler.startPrefixMapping(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator;
+                                                       prefix,
+                                                       uri: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+
+
+// +++++++++++++++++++++++++ TXmlCustomContentHandler +++++++++++++++++++++++++
+function TXmlCustomContentHandler.attributeDefinition(const sender: TXmlCustomReader;
+                                                      const locator: TdomLocator;
+                                                            aname,
+                                                            attType,
+                                                            bracket,
+                                                            defaultDecl,
+                                                            attValue: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.conditionalSection(const sender: TXmlCustomReader;
+                                                     const locator: TdomLocator;
+                                                           includeStmt,
+                                                           data: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.DTDcomment(const sender: TXmlCustomReader;
+                                             const locator: TdomLocator;
+                                                   data: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                                           const locator: TdomLocator;
+                                                                 targ,
+                                                                 data : UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.elementTypeDeclaration(const sender: TXmlCustomReader;
+                                                         const locator: TdomLocator;
+                                                               aname,
+                                                               data: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.endAttListDeclaration(const sender: TXmlCustomReader;
+                                                        const locator: TdomLocator): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.endExtDtd(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.endIntDtd(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.entityDeclaration(const sender: TXmlCustomReader;
+                                                    const locator: TdomLocator;
+                                                          aname,
+                                                          entityValue,
+                                                          pubId,
+                                                          sysId,
+                                                          notaName: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.notationDeclaration(const sender: TXmlCustomReader;
+                                                      const locator: TdomLocator;
+                                                            aname,
+                                                            pubId,
+                                                            sysId: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                                             const locator: TdomLocator;
+                                                                   aname,
+                                                                   entityValue,
+                                                                   pubId,
+                                                                   sysId: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.parameterEntityRef(const sender: TXmlCustomReader;
+                                                     const locator: TdomLocator;
+                                                           aname: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.startAttListDeclaration(const sender: TXmlCustomReader;
+                                                          const locator: TdomLocator;
+                                                                aname: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.startExtDtd(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator;
+                                                    version,
+                                                    encDl: UnicodeString): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+function TXmlCustomContentHandler.startIntDtd(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator): boolean;
+begin
+  Result := False;
+  raise EParserException.create('Parser error.');
+end;
+
+
+
+// +++++++++++++++++++++++++ TXmlCustomReader ++++++++++++++++++++++++++
+constructor TXmlCustomReader.create(AOwner: TComponent);
+begin
+  inherited;
+  FDOMImpl:= nil;
+  FNextHandler:= nil;
+end;
+
+procedure TXmlCustomReader.setDomImpl(const impl: TDomImplementation);
+begin
+  if FDOMImpl <> impl then begin
+    if assigned(FDOMImpl) then FDOMImpl.RemoveFreeNotification(Self);
+    FDOMImpl := impl;
+    if assigned(FDOMImpl) then FDOMImpl.FreeNotification(Self);
+  end;
+end;
+
+procedure TXmlCustomReader.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  inherited Notification(AComponent,Operation);
+  if Operation = opRemove then begin
+    if AComponent = FNextHandler then FNextHandler:= nil;
+    if AComponent = FDOMImpl then FDOMImpl:= nil;
+  end;
+end;
+
+function TXmlCustomReader.sendErrorNotification(const xmlErrorType: TXmlErrorType;
+                                                const location: TdomLocator;
+                                                const code: UnicodeString): boolean;
+var
+  error: TdomError;
+begin
+  error:= TdomError.createFromLocator(xmlErrorType,location,code);
+  try
+    if assigned(FDomImpl) then begin
+      result:= FDomImpl.handleError(self,error);
+    end else if error.severity = DOM_SEVERITY_FATAL_ERROR
+      then result:= false
+      else result:= true;
+
+    if not result
+      then if assigned(nextHandler) then nextHandler.notifyReset;
+  finally
+    error.free;
+  end;
+end;
+
+
+
+// +++++++++++++++++++++++ TXmlWFTestContentHandler +++++++++++++++++++++++
+constructor TXmlWFTestContentHandler.create(AOwner: TComponent);
+begin
+  inherited create(AOwner);
+  FIsActive:= false;
+  FDoctypeFound:= false;
+  FRootFound:= false;
+  FTestRootFound:= true;
+  FTagStack:= TdomWideStringList.Create;
+end;
+
+destructor TXmlWFTestContentHandler.destroy;
+begin
+  FTagStack.free;
+  inherited destroy;
+end;
+
+function TXmlWFTestContentHandler.CDATA(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              data: UnicodeString): boolean;
+begin
+  if assigned(FOnCDATA) then FOnCDATA(sender,locator,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if not IsXmlCData(data) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_CDATA_SECTION,locator,'');
+  end;
+
+  if (not FRootFound) and FTestRootFound and result then begin
+    result:= sendErrorNotification(sender,ET_NOT_IN_ROOT,locator,data);
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.CDATA(sender,locator,data);
+end;
+
+function TXmlWFTestContentHandler.charRef(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator;
+                                                data: UnicodeString): boolean;
+begin
+  if assigned(FOnCharRef) then FOnCharRef(sender,locator,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  try
+    XmlCharRefToStr(data);
+  except
+    on EConvertError do begin
+      result:= sendErrorNotification(sender,ET_INVALID_CHARREF,locator,data);
+    end;
+  end;
+
+  if (not FRootFound) and FTestRootFound and result then begin
+    result:= sendErrorNotification(sender,ET_NOT_IN_ROOT,locator,data);
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.charRef(sender,locator,data);
+end;
+
+function TXmlWFTestContentHandler.comment(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator;
+                                                data: UnicodeString): boolean;
+var
+  dataLength: integer;
+begin
+  if assigned(FOnComment) then FOnComment(sender,locator,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if pos(UnicodeString('--'),data) > 0 then begin
+    result:= sendErrorNotification(sender,ET_INVALID_COMMENT,locator,'--');
+  end else begin
+    dataLength:= length(data);
+    if dataLength > 0
+      then if WideChar(data[dataLength]) = '-' then begin
+        result:= sendErrorNotification(sender,ET_INVALID_COMMENT,locator,'-');
+      end;
+  end;
+
+  if result then begin
+    if not IsXmlChars(data) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,data);
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.comment(sender,locator,data);
+end;
+
+function TXmlWFTestContentHandler.doctype(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator;
+                                                aname,
+                                                pubId,
+                                                sysId,
+                                                data: UnicodeString): boolean;
+begin
+  if assigned(FOnDoctype) then FOnDoctype(sender,locator,aname,pubId,sysId,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if FDoctypeFound then begin
+    result:= sendErrorNotification(sender,ET_DOUBLE_DOCTYPE,locator,data);
+  end;
+
+  FDoctypeFound:= true;
+
+  if result then begin
+    if FRootFound then begin
+      result:= sendErrorNotification(sender,ET_WRONG_ORDER,locator,data);
+    end;
+  end;
+
+  if result then begin
+    if not (isXmlName(aname) and isXmlPubidChars(pubId) and isXmlSystemChars(sysId) ) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_DOCTYPE,locator,data);
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.doctype(sender,locator,aname,pubId,sysId,data);
+end;
+
+function TXmlWFTestContentHandler.endDocument(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndDocument) then FOnEndDocument(sender,locator);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FIsActive:= false;
+
+  if FTagStack.Count > 0 then begin
+    result:= sendErrorNotification(sender,ET_MISSING_END_TAG,locator,'');
+  end;
+
+  if (not FRootFound) and FTestRootFound and result then begin
+    result:= sendErrorNotification(sender,ET_NOT_IN_ROOT,locator,'');
+  end;
+
+  FDoctypeFound:= false;
+  FRootFound:= false;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endDocument(sender,locator);
+end;
+
+function TXmlWFTestContentHandler.endElement(const sender: TXmlCustomReader;
+                                             const locator: TdomLocator;
+                                                   namespaceURI,
+                                                   tagName: UnicodeString): boolean;
+var
+  lastItemIndex: integer;
+begin
+  if assigned(FOnEndElement) then FOnEndElement(sender,locator,namespaceURI,tagName);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if not IsXmlName(tagName) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ELEMENT_NAME,locator,tagname);
+  end;
+
+  if result then begin
+    lastItemIndex:= pred(FTagStack.Count);
+    if lastItemIndex = -1 then begin
+      result:= sendErrorNotification(sender,ET_MISSING_START_TAG,locator,tagname);
+    end else begin
+      if FTagStack[lastItemIndex] = tagname
+        then FTagStack.Delete(lastItemIndex)
+        else begin
+          result:= sendErrorNotification(sender,ET_MISSING_START_TAG,locator,tagname);
+        end;
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endElement(sender,locator,namespaceURI,tagName);
+end;
+
+function TXmlWFTestContentHandler.endPrefixMapping(const sender: TXmlCustomReader;
+                                                   const locator: TdomLocator;
+                                                         prefix: UnicodeString): boolean;
+begin
+  if assigned(FOnEndPrefixMapping) then FOnEndPrefixMapping(sender,locator,prefix);
+  if assigned(nextHandler)
+    then result:= nextHandler.endPrefixMapping(sender,locator,prefix)
+    else result:= true;
+end;
+
+function TXmlWFTestContentHandler.entityRef(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  aname: UnicodeString): boolean;
+begin
+  if assigned(FOnEntityRef) then FOnEntityRef(sender,locator,aname);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if not IsXmlName(aname) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ENTITY_NAME,locator,aname);
+  end;
+
+  if (not FRootFound) and FTestRootFound and result then begin
+    result:= sendErrorNotification(sender,ET_NOT_IN_ROOT,locator,'&' + name +';');
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.entityRef(sender,locator,aname);
+end;
+
+function TXmlWFTestContentHandler.PCDATA(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator;
+                                               data: UnicodeString): boolean;
+begin
+  if assigned(FOnPCDATA) then FOnPCDATA(sender,locator,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if not IsXmlCharData(data) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,data);
+  end;
+
+  if (not FRootFound) and (not IsXmlS(data)) and FTestRootFound and result then begin
+    result:= sendErrorNotification(sender,ET_NOT_IN_ROOT,locator,data);
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.PCDATA(sender,locator,data);
+end;
+
+function TXmlWFTestContentHandler.processingInstruction(const sender: TXmlCustomReader;
+                                                        const locator: TdomLocator;
+                                                              targ,
+                                                              data : UnicodeString): boolean;
+begin
+  if assigned(FOnProcessingInstruction) then FOnProcessingInstruction(sender,locator,targ,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if not IsXmlPITarget(targ) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_PROCESSING_INSTRUCTION,locator,targ);
+  end else begin
+    if pos(UnicodeString('?>'),data) > 0 then begin
+      result:= sendErrorNotification(sender,ET_INVALID_PROCESSING_INSTRUCTION,locator,'?>');
+    end;
+  end;
+
+  if result then begin
+    if not IsXmlChars(data) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,data);
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.processingInstruction(sender,locator,targ,data);
+end;
+
+function TXmlWFTestContentHandler.skippedEntity(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      aname: UnicodeString): boolean;
+begin
+  if assigned(FOnSkippedEntity) then FOnSkippedEntity(sender,locator,aname);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.skippedEntity(sender,locator,aname);
+end;
+
+function TXmlWFTestContentHandler.startDocument(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      version,
+                                                      encName: UnicodeString;
+                                                      sdDl: TdomStandalone): boolean;
+begin
+  if assigned(FOnStartDocument) then FOnStartDocument(sender,locator,version,encName,sdDl);
+  if FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FTagStack.Clear;
+  FIsActive:= true;
+  FDoctypeFound:= false;
+  FRootFound:= false;
+  if not ( ( IsXmlEncName(encName) or (encName = '') ) and
+           ( IsXmlVersionNum(version) or (version = '') )  )
+  then begin
+    result:= sendErrorNotification(sender,ET_INVALID_XML_DECL,locator,'');
+  end;
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startDocument(sender,locator,version,encName,sdDl);
+end;
+
+function TXmlWFTestContentHandler.startElement(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     namespaceURI,
+                                                     tagName: UnicodeString;
+                                                     attributes: TdomNameValueList): boolean;
+var
+  i,j: integer;
+  name,value,text,characRef: UnicodeString;
+  isEntity: boolean;
+begin
+  if assigned(FOnStartElement) then FOnStartElement(sender,locator,namespaceURI,tagName,attributes);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if not IsXmlName(tagName) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ELEMENT_NAME,locator,tagname);
+  end;
+
+  if (FTagStack.Count = 0) and FTestRootFound and FRootFound and result then begin
+    result:= sendErrorNotification(sender,ET_DOUBLE_ROOT_ELEMENT,locator,tagname);
+  end;
+
+  FRootFound:= true;
+  FTagStack.Add(tagname);
+
+  if result then begin
+    for i:= 0 to pred(attributes.length) do begin
+      value:= attributes.values[i];
+      name:= attributes.names[i];
+
+      if attributes.indexOfName(name) <> i then begin
+        result:= sendErrorNotification(sender,ET_INVALID_ELEMENT_NAME,locator,name);
+        if not result then break;
+      end;
+
+      if not IsXmlName(name) then begin
+        result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_NAME,locator,value);
+        if not result then break;
+      end;
+
+      if pos('&',value) = 0 then begin
+        if not IsXmlCharData(value) then begin
+          result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_VALUE,locator,value);
+          if not result then break;
+        end;
+      end else begin
+        isEntity:= false;
+        text:= '';
+        for j:= 1 to Length(value) do begin
+          if IsEntity then begin
+            if value[j] = ';' then begin
+              if text[1] = '#' then begin // CharRef
+                try
+                  CharacRef:= concat(UnicodeString('&'),text,UnicodeString(';'));
+                  //v:= XmlCharRefToStr(CharacRef);
+                except
+                  on EConvertError do begin
+                    result:= sendErrorNotification(sender,ET_INVALID_CHARREF,locator,CharacRef);
+                    if not result then break;
+                  end;
+                end; {try}
+              end else begin  // EntityRef
+                if not IsXmlName(text) then begin
+                  result:= sendErrorNotification(sender,ET_INVALID_ENTITY_NAME,locator,text);
+                  if not result then break;
+                end;
+              end;
+              text:= '';
+              IsEntity:= false;
+            end else Text:= concat(text,UnicodeString(value[j]));
+          end else begin
+            if value[j] = '&' then begin
+              IsEntity:= true;
+            end else if (value[j] = '<') or not IsXmlChar(value[j]) then begin
+              result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_VALUE,locator,value);
+              if not result then break;
+            end;
+          end; {if ...}
+        end; {for ...}
+
+        // invalid attribute value?
+        if result then begin
+          if IsEntity then begin
+            result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_VALUE,locator,value);
+          end; {if ...}
+        end; {if ...}
+
+      end; {if ...}
+    end;
+  end; {if result ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startElement(sender,locator,namespaceURI,tagName,attributes);
+end;
+
+function TXmlWFTestContentHandler.startPrefixMapping(const sender: TXmlCustomReader;
+                                                     const locator: TdomLocator;
+                                                           prefix,
+                                                           uri: UnicodeString): boolean;
+begin
+  if assigned(FOnStartPrefixMapping) then FOnStartPrefixMapping(sender,locator,prefix,uri);
+  if assigned(nextHandler)
+    then result:= nextHandler.startPrefixMapping(sender,locator,prefix,uri)
+    else result:= true;
+end;
+
+procedure TXmlWFTestContentHandler.notifyReset;
+begin
+  FIsActive:= false;
+  FDoctypeFound:= false;
+  FRootFound:= false;
+  FTagStack.clear;
+  if assigned(nextHandler) then nextHandler.notifyReset;
+end;
+
+
+
+// +++++++++++++++++++++++++ TXmlWFTestDTDHandler +++++++++++++++++++++++++
+constructor TXmlWFTestDTDHandler.create(AOwner: TComponent);
+begin
+  inherited;
+  FAttListDeclActive:= false;
+  FExtDtdIsActive:= false;
+  FIntDtdIsActive:= false;
+end;
+
+destructor TXmlWFTestDTDHandler.destroy;
+begin
+  inherited;
+end;
+
+function TXmlWFTestDTDHandler.attributeDefinition(const sender: TXmlCustomReader;
+                                                  const locator: TdomLocator;
+                                                        aname,
+                                                        attType,
+                                                        bracket,
+                                                        defaultDecl,
+                                                        attValue: UnicodeString): boolean;
+begin
+  if assigned(FOnAttributeDefinition) then FOnAttributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if not FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+
+  if result then begin
+    if not IsXmlName(aname) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.attributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+end;
+
+function TXmlWFTestDTDHandler.conditionalSection(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator;
+                                                       includeStmt,
+                                                       data: UnicodeString): boolean;
+begin
+  if assigned(FOnConditionalSection) then FOnConditionalSection(sender,locator,includeStmt,data);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+
+  if result then begin
+    if FIntDtdIsActive or ( not ((IncludeStmt = 'INCLUDE') or (IncludeStmt = 'IGNORE')) ) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_CONDITIONAL_SECTION,locator,name);
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.conditionalSection(sender,locator,includeStmt,data);
+end;
+
+function TXmlWFTestDTDHandler.DTDcomment(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator;
+                                               data: UnicodeString): boolean;
+var
+  dataLength: integer;
+begin
+  if assigned(FOnDTDcomment) then FOnDTDcomment(sender,locator,data);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+
+
+  if pos(UnicodeString('--'),data) > 0 then begin
+    result:= sendErrorNotification(sender,ET_INVALID_COMMENT,locator,'--');
+  end else begin
+    dataLength:= length(data);
+    if dataLength > 0
+      then if WideChar(data[dataLength]) = '-' then begin
+        result:= sendErrorNotification(sender,ET_INVALID_COMMENT,locator,'-');
+      end;
+  end;
+
+  if result then begin
+    if not IsXmlChars(data) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,data);
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.DTDcomment(sender,locator,data);
+end;
+
+function TXmlWFTestDTDHandler.DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                                       const locator: TdomLocator;
+                                                             targ,
+                                                             data: UnicodeString): boolean;
+begin
+  if assigned(FOnDTDprocessingInstruction) then FOnDTDprocessingInstruction(sender,locator,targ,data);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+  
+  if not IsXmlPITarget(targ) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_PROCESSING_INSTRUCTION,locator,targ);
+  end else begin
+    if pos(UnicodeString('?>'),data) > 0 then begin
+      result:= sendErrorNotification(sender,ET_INVALID_PROCESSING_INSTRUCTION,locator,'?>');
+    end;
+  end;
+
+  if result and not IsXmlChars(data) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,data);
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.DTDprocessingInstruction(sender,locator,targ,data);
+end;
+
+function TXmlWFTestDTDHandler.elementTypeDeclaration(const sender: TXmlCustomReader;
+                                                     const locator: TdomLocator;
+                                                           aname,
+                                                           data: UnicodeString): boolean;
+begin
+  if assigned(FOnElementTypeDeclaration) then FOnElementTypeDeclaration(sender,locator,aname,data);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+
+  if result and not IsXmlName(aname) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ELEMENT_DECL,locator,name);
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.elementTypeDeclaration(sender,locator,aname,data);
+end;
+
+function TXmlWFTestDTDHandler.endAttListDeclaration(const sender: TXmlCustomReader;
+                                                    const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndAttListDeclaration) then FOnEndAttListDeclaration(sender,locator);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if not FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+  
+  FAttListDeclActive:= false;
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endAttListDeclaration(sender,locator);
+end;
+
+function TXmlWFTestDTDHandler.endExtDtd(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndExtDtd) then FOnEndExtDtd(sender,locator);
+  if FIntDtdIsActive or not FextDtdIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FExtDtdIsActive:= false;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endExtDtd(sender,locator);
+end;
+
+function TXmlWFTestDTDHandler.endIntDtd(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndIntDtd) then FOnEndIntDtd(sender,locator);
+  if FExtDtdIsActive or not FIntDtdIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FIntDtdIsActive:= false;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endIntDtd(sender,locator);
+end;
+
+function TXmlWFTestDTDHandler.entityDeclaration(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      aname,
+                                                      entityValue,
+                                                      pubId,
+                                                      sysId,
+                                                      notaName: UnicodeString): boolean;
+var
+  error: boolean;
+begin
+  if assigned(FOnEntityDeclaration) then FOnEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+
+  if result then begin
+    error:= false;
+    if not IsXmlName(aname)
+      then error:= true;
+    if entityValue <> '' then begin
+      if not IsXmlEntityValueChars(entityValue)
+        then error:= true;
+      if not ( (pubId = '') and (sysId = '') )
+        then error:= true;
+    end;
+    if not isXmlSystemChars(sysId)
+      then error:= true;
+    if not isXmlPubidChars(pubId)
+      then error:= true;
+    if error then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ENTITY_DECL,locator,aname);
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.entityDeclaration(sender,locator,name,entityValue,pubId,sysId,notaName);
+end;
+
+function TXmlWFTestDTDHandler.notationDeclaration(const sender: TXmlCustomReader;
+                                                  const locator: TdomLocator;
+                                                        aname,
+                                                        pubId,
+                                                        sysId: UnicodeString): boolean;
+var
+  error: boolean;
+begin
+  if assigned(FOnNotationDeclaration) then FOnNotationDeclaration(sender,locator,aname,pubId,sysId);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+  
+  if result then begin
+    error:= false;
+    if not IsXmlName(aname)
+      then error:= true;
+    if not isXmlSystemChars(sysId)
+      then error:= true;
+    if not isXmlPubidChars(pubId)
+      then error:= true;
+    if error then begin
+      result:= sendErrorNotification(sender,ET_INVALID_NOTATION_DECL,locator,aname);
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.notationDeclaration(sender,locator,aname,pubId,sysId);
+end;
+
+function TXmlWFTestDTDHandler.parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                                         const locator: TdomLocator;
+                                                               aname,
+                                                               entityValue,
+                                                               pubId,
+                                                               sysId: UnicodeString): boolean;
+var
+  error: boolean;
+begin
+  if assigned(FOnParameterEntityDeclaration) then FOnParameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+  
+  if result then begin
+    error:= false;
+    if not IsXmlName(aname)
+      then error:= true;
+    if entityValue <> '' then begin
+      if not IsXmlEntityValueChars(entityValue)
+        then error:= true;
+      if not ( (pubId = '') and (sysId = '') )
+        then error:= true;
+    end;
+    if not isXmlSystemChars(sysId)
+      then error:= true;
+    if not isXmlPubidChars(pubId)
+      then error:= true;
+    if error then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ENTITY_DECL,locator,aname);
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.parameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+end;
+
+function TXmlWFTestDTDHandler.parameterEntityRef(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator;
+                                                       aname: UnicodeString): boolean;
+begin
+  if assigned(FOnParameterEntityRef) then FOnParameterEntityRef(sender,locator,aname);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if FAttListDeclActive then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+  
+  if result and not IsXmlName(aname) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ENTITY_NAME,locator,aname);
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.parameterEntityRef(sender,locator,aname);
+end;
+
+function TXmlWFTestDTDHandler.startAttListDeclaration(const sender: TXmlCustomReader;
+                                                      const locator: TdomLocator;
+                                                            aname: UnicodeString): boolean;
+begin
+  if assigned(FOnStartAttListDeclaration) then FOnStartAttListDeclaration(sender,locator,aname);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if FAttListDeclActive or not IsXmlName(aname) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+
+  FAttListDeclActive:= true;
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startAttListDeclaration(sender,locator,aname);
+end;
+
+function TXmlWFTestDTDHandler.startExtDtd(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator;
+                                                version,
+                                                encName: UnicodeString): boolean;
+begin
+  if assigned(FOnStartExtDtd) then FOnStartExtDtd(sender,locator,version,encName);
+  if FIntDtdIsActive or FExtDtdIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FExtDtdIsActive:= true;
+
+  if not ( ( IsXmlEncName(encName) or (encName = '') ) and
+           ( IsXmlVersionNum(version) or (version = '') )  )
+  then begin
+    result:= sendErrorNotification(sender,ET_INVALID_TEXT_DECL,locator,'');
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startExtDtd(sender,locator,version,encName);
+end;
+
+function TXmlWFTestDTDHandler.startIntDtd(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnStartIntDtd) then FOnStartIntDtd(sender,locator);
+  if FIntDtdIsActive or FExtDtdIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FIntDtdIsActive:= true;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startIntDtd(sender,locator);
+end;
+
+procedure TXmlWFTestDTDHandler.notifyReset;
+begin
+  FAttListDeclActive:= false;
+  FExtDtdIsActive:= false;
+  FIntDtdIsActive:= false;
+  if assigned(nextHandler) then nextHandler.notifyReset;
+end;
+
+
+
+// ++++++++++++++++++++++++++++ TXmlDocBuilder ++++++++++++++++++++++++++++
+constructor TXmlDocBuilder.create(AOwner: TComponent);
+begin
+  inherited create(AOwner);
+  FRefNode:= nil;
+  FBuildNamespaceTree:= false;
+  FPrefixUriList:= TdomNameValueList.create;
+end;
+
+destructor TXmlDocBuilder.destroy;
+begin
+  FPrefixUriList.free;
+  inherited destroy;
+end;
+
+function TXmlDocBuilder.CDATA(const sender: TXmlCustomReader;
+                              const locator: TdomLocator;
+                                    data: UnicodeString): boolean;
+var
+  newCData: TdomCDATASection;
+begin
+  if assigned(FOnCDATA) then FOnCDATA(sender,locator,data);
+  result:= true;
+  if assigned(FRefNode) then begin
+    try
+      newCData:= FRefNode.OwnerDocument.CreateCDATASection(data);
+      try
+        FRefNode.appendChild(newCData);
+      except
+        if assigned(newCData.ParentNode)
+          then newCData.ParentNode.RemoveChild(newCData);
+        FRefNode.OwnerDocument.FreeAllNodes(TdomNode(newCData));
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_CDATA_SECTION,locator,data);
+    end; {try ...}
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.CDATA(sender,locator,data);
+end;
+
+function TXmlDocBuilder.charRef(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      data: UnicodeString): boolean;
+var
+  newText: TdomText;
+  previousNode: TdomNode;
+  value: UnicodeString;
+  previousNodeIsText: boolean;
+begin
+  if assigned(FOnCharRef) then FOnCharRef(sender,locator,data);
+  result:= true;
+  if assigned(FRefNode) then begin
+
+    try
+      value:= XmlCharRefToStr(data);
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,data);
+    end;
+
+    if result then begin
+      previousNode:= FRefNode.LastChild;
+      if assigned(previousNode) then begin
+        if (previousNode.NodeType = ntText_Node)
+          then previousNodeIsText:= true
+          else previousNodeIsText:= false;
+      end else previousNodeIsText:= false;
+
+      if previousNodeIsText
+        then (previousNode as TdomText).appendData(value)
+        else begin
+          try
+            newText:= FRefNode.OwnerDocument.CreateTextNode(value);
+            try
+              FRefNode.appendChild(newText);
+            except
+              if assigned(newText.ParentNode)
+                then newText.ParentNode.RemoveChild(newText);
+              FRefNode.OwnerDocument.FreeAllNodes(TdomNode(newText));
+              raise;
+            end; {try ...}
+          except
+            result:= sendErrorNotification(sender,ET_INVALID_CHARREF,locator,data);
+          end; {try ...}
+        end;
+    end; {if not assgined ...}
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.charRef(sender,locator,data);
+end;
+
+function TXmlDocBuilder.comment(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      data: UnicodeString): boolean;
+var
+  newComment: TdomComment;
+begin
+  if assigned(FOnComment) then FOnComment(sender,locator,data);
+  result:= true;
+  if assigned(FRefNode) then begin
+    try
+      newComment:= FRefNode.OwnerDocument.CreateComment(data);
+      try
+        FRefNode.appendChild(newComment);
+      except
+        if assigned(newComment.ParentNode)
+          then newComment.ParentNode.RemoveChild(newComment);
+        FRefNode.OwnerDocument.FreeAllNodes(TdomNode(newComment));
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_COMMENT,locator,data);
+    end; {try ...}
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.comment(sender,locator,data);
+end;
+
+function TXmlDocBuilder.doctype(const sender: TXmlCustomReader;
+                                const locator: TdomLocator;
+                                      aname,
+                                      pubId,
+                                      sysId,
+                                      data: UnicodeString): boolean;
+var
+  newDocType: TdomDocumentType;
+begin
+  if assigned(FOnDoctype) then FOnDoctype(sender,locator,aname,pubId,sysId,data);
+  result:= true;
+  if assigned(FRefNode) then begin
+    try
+      newDocType:= FRefNode.OwnerDocument.CreateDocumentType(aname,pubId,sysId,data);
+      try
+        FRefNode.appendChild(newDocType);
+      except
+        if assigned(newDocType.ParentNode)
+          then newDocType.ParentNode.RemoveChild(newDocType);
+        FRefNode.OwnerDocument.FreeAllNodes(TdomNode(newDocType));
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_DOCTYPE,locator,data);
+    end; {try ...}
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.doctype(sender,locator,aname,pubId,sysId,data);
+end;
+
+function TXmlDocBuilder.endDocument(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndDocument) then FOnEndDocument(sender,locator);
+  // notifications of endDocument are being ignored.
+  result:= true;
+  if assigned(nextHandler)
+    then result:= nextHandler.endDocument(sender,locator);
+end;
+
+function TXmlDocBuilder.endElement(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         namespaceURI,
+                                         tagName: UnicodeString): boolean;
+begin
+  if assigned(FOnEndElement) then FOnEndElement(sender,locator,namespaceURI,tagName);
+  result:= true;
+  if assigned(FRefNode) then begin
+    // xxx Evaluate 'FBuildNamespaceTree' and 'namespaceURI' here, too?
+    if not ( (FRefNode.nodeType = ntElement_Node) and (tagName = FRefNode.NodeName) ) then begin
+      result:= sendErrorNotification(sender,ET_MISSING_START_TAG,locator,tagname);
+    end else FRefNode:= FRefNode.ParentNode;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endElement(sender,locator,namespaceURI,tagName);
+end;
+
+function TXmlDocBuilder.endPrefixMapping(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator;
+                                               prefix: UnicodeString): boolean;
+var
+  l: integer;
+begin
+  if assigned(FOnEndPrefixMapping) then FOnEndPrefixMapping(sender,locator,prefix);
+
+  l:= pred(FPrefixUriList.length);
+  if l = -1 then begin
+    result:= sendErrorNotification(sender,ET_WRONG_PREFIX_MAPPING_NESTING,locator,prefix);
+  end else begin
+    if FPrefixUriList.names[l] <> prefix then begin
+      result:= sendErrorNotification(sender,ET_WRONG_PREFIX_MAPPING_NESTING,locator,prefix);
+    end else begin
+      FPrefixUriList.Delete(l);
+      result:= true;
+    end;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endPrefixMapping(sender,locator,prefix);
+end;
+
+function TXmlDocBuilder.entityRef(const sender: TXmlCustomReader;
+                                  const locator: TdomLocator;
+                                        aname: UnicodeString): boolean;
+var
+  newEntityRef: TdomEntityReference;
+begin
+  if assigned(FOnEntityRef) then FOnEntityRef(sender,locator,aname);
+  result:= true;
+  if assigned(FRefNode) then begin
+    try
+      newEntityRef:= FRefNode.OwnerDocument.CreateEntityReference(aname);
+      try
+        FRefNode.appendChild(newEntityRef);
+      except
+        if assigned(newEntityRef.ParentNode)
+          then newEntityRef.ParentNode.RemoveChild(newEntityRef);
+        FRefNode.OwnerDocument.FreeAllNodes(TdomNode(newEntityRef));
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_ENTITY_NAME,locator,aname);
+    end; {try ...}
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.entityRef(sender,locator,aname);
+end;
+
+function TXmlDocBuilder.PCDATA(const sender: TXmlCustomReader;
+                               const locator: TdomLocator;
+                                     data: UnicodeString): boolean;
+var
+  newPcdata: TdomText;
+begin
+  if assigned(FOnPCDATA) then FOnPCDATA(sender,locator,data);
+  result:= true;
+  if assigned(FRefNode) then begin
+
+    if (FRefNode.NodeType = ntDocument_Node) then begin
+      if not IsXmlS(data) then begin
+        result:= sendErrorNotification(sender,ET_INVALID_ENTITY_NAME,locator,name);
+      end;
+    end else begin
+      if assigned(FRefNode.LastChild) and (FRefNode.LastChild.NodeType = ntText_Node)
+        then (FRefNode.LastChild as TdomText).appendData(data)
+        else begin
+          try
+            newPcdata:= FRefNode.OwnerDocument.CreateTextNode(data);
+            try
+              FRefNode.appendChild(newPcdata);
+            except
+              if assigned(newPcdata.ParentNode)
+                then newPcdata.ParentNode.RemoveChild(newPcdata);
+              FRefNode.OwnerDocument.FreeAllNodes(TdomNode(newPcdata));
+              raise;
+            end; {try ...}
+          except
+            result:= sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,data);
+          end; {try ...}
+        end;
+    end; {if (FRefNode.NodeType = ntDocument_Node) then ... else ...}
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.PCDATA(sender,locator,data);
+end;
+
+function TXmlDocBuilder.processingInstruction(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator;
+                                                    targ,
+                                                    data : UnicodeString): boolean;
+var
+  newPI: TdomProcessingInstruction;
+begin
+  if assigned(FOnProcessingInstruction) then FOnProcessingInstruction(sender,locator,targ,data);
+  result:= true;
+  if assigned(FRefNode) then begin
+    try
+      newPI:= FRefNode.OwnerDocument.CreateProcessingInstruction(targ,data);
+      try
+        FRefNode.appendChild(newPI);
+      except
+        if assigned(newPI.ParentNode)
+          then newPI.ParentNode.RemoveChild(newPI);
+        FRefNode.OwnerDocument.FreeAllNodes(TdomNode(newPI));
+        raise;
+      end;
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_PROCESSING_INSTRUCTION,locator,targ);
+    end;
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.processingInstruction(sender,locator,targ,data);
+end;
+
+function TXmlDocBuilder.skippedEntity(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            aname: UnicodeString): boolean;
+begin
+  if assigned(FOnSkippedEntity) then FOnSkippedEntity(sender,locator,aname);
+  // notifications through skippedEntity() are being ignored.
+  result:= true;
+  if assigned(nextHandler)
+    then result:= nextHandler.skippedEntity(sender,locator,aname);
+end;
+
+function TXmlDocBuilder.startDocument(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            version,
+                                            encName: UnicodeString;
+                                            sdDl: TdomStandalone): boolean;
+begin
+  if assigned(FOnStartDocument) then FOnStartDocument(sender,locator,version,encName,sdDl);
+  FPrefixUriList.clear;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+    if (FRefNode.nodeType = ntDocument_Node) then begin
+      if assigned(locator)      // xxx evaluate version, encName and sdDl, too?
+        then (FRefNode as TdomDocument).systemId:= locator.uri
+        else (FRefNode as TdomDocument).systemId:= '';
+    end;
+  end;
+
+  if assigned(nextHandler)
+    then result:= nextHandler.startDocument(sender,locator,version,encName,sdDl);
+end;
+
+function TXmlDocBuilder.startElement(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           namespaceURI,
+                                           tagName: UnicodeString;
+                                           attributes: TdomNameValueList): boolean;
+type
+  TKindOfToken = (IS_EMPTY,IS_TEXT,IS_REFSTART,IS_CHARREF,IS_ENTITYREF);
+var
+  newElement: TdomElement;
+  i,j: integer;
+  prfx,localName,elementNsUri,AttrNsUri,name,value: UnicodeString;
+  Attri: TdomAttr;
+  pfxFound: boolean;
+  kindOfToken: TKindOfToken;
+  text, reference: TdomCustomStr;
+begin
+  if assigned(FOnStartElement) then FOnStartElement(sender,locator,namespaceURI,tagName,attributes);
+  result:= true;
+  elementNsUri:= '';
+  if FBuildNamespaceTree then begin
+    if xmlExtractPrefixAndLocalName(tagName,prfx,localName) then begin
+      pfxFound:= false;
+      with FPrefixUriList do begin
+        for i:= pred(FPrefixUriList.length) downto 0 do
+          if FPrefixUriList.names[i] = prfx then begin
+            elementNsUri:= FPrefixUriList.values[i];
+            pfxFound:= true;
+            break;
+          end;
+      end; {with ...}
+      if not pfxFound and (prfx <> '') then begin
+        result:= sendErrorNotification(sender,ET_NAMESPACE_URI_NOT_FOUND,locator,tagname);
+      end;
+    end else begin
+      result:= sendErrorNotification(sender,ET_INVALID_QUALIFIED_NAME,locator,tagname);
+    end; {if ... else ...}
+  end; {if FBuildNamespaceTree ...}
+
+  if result then begin
+    if assigned(FRefNode) then begin
+      try
+        if FBuildNamespaceTree
+          then newElement:= FRefNode.OwnerDocument.CreateElementNS(elementNsUri,tagName)
+          else newElement:= FRefNode.OwnerDocument.CreateElement(tagName);
+      except // xxx not elegant.
+        result:= sendErrorNotification(sender,ET_INVALID_ELEMENT_NAME,locator,tagname);
+        exit;
+      end;
+
+      // Compute attributes:
+      text:= TdomCustomStr.create;
+      reference:= TdomCustomStr.create;
+      try
+
+        try
+          for i:= 0 to pred(attributes.length) do begin
+            value:= attributes.values[i];
+            name:= attributes.names[i];
+            prfx:= '';
+            attrNsUri:= '';
+
+            if FBuildNamespaceTree then begin
+              if xmlExtractPrefixAndLocalName(name,prfx,localName) then begin
+                if name = 'xmlns' then begin
+                  attrNsUri:= 'http://www.w3.org/2000/xmlns/';
+                end else begin
+                  if prfx = '' then begin
+                    attrNsUri:= '';
+                  end else if prfx = 'xml' then begin
+                    attrNsUri:= 'http://www.w3.org/XML/1998/namespace';
+                  end else if prfx = 'xmlns' then begin
+                    attrNsUri:= 'http://www.w3.org/2000/xmlns/';
+                  end else begin
+                    pfxFound:= false;
+                    with FPrefixUriList do begin
+                      for j:= pred(FPrefixUriList.length) downto 0 do begin
+                        if FPrefixUriList.names[j] = prfx then begin
+                          attrNsUri:= FPrefixUriList.values[j];
+                          pfxFound:= true;
+                          break;
+                        end; {if ...}
+                      end; {for ...}
+                    end; {with ...}
+                    if not pfxFound then begin
+                      result:= sendErrorNotification(sender,ET_NAMESPACE_URI_NOT_FOUND,locator,name);
+                      exit; 
+                    end; {if not pfxFound ...}
+                  end; {if prfx = '' ... else ...}
+                end; {if name = 'xmlns' ...}
+              end else begin
+                result:= sendErrorNotification(sender,ET_INVALID_QUALIFIED_NAME,locator,name);
+                exit;
+              end; {if... else ...}
+            end; {if FBuildNamespaceTree ...}
+
+            if result then begin
+
+              if not IsXmlName(name) then begin
+                result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_NAME,locator,name);
+                exit;
+              end; {if ...}
+
+              if FBuildNamespaceTree then begin
+                Attri:= newElement.OwnerDocument.CreateAttributeNS(attrNsUri,name);
+                newElement.SetAttributeNodeNS(Attri);
+              end else begin
+                Attri:= newElement.OwnerDocument.CreateAttribute(name);
+                newElement.SetAttributeNode(Attri);
+              end;
+
+              kindOfToken:= IS_EMPTY;
+              text.reset;
+              for j:= 1 to length(value) do begin
+                case kindOfToken of
+                  IS_TEXT:
+                    if value[j] = '&'
+                      then kindOfToken:= IS_REFSTART
+                      else text.addWideChar(value[j]);
+                  IS_REFSTART:
+                    if value[j] = '#' then begin
+                      reference.reset;
+                      reference.addWideString('&#');
+                      kindOfToken:= IS_CHARREF;
+                    end else begin
+                      if text.length > 0
+                        then Attri.appendChild(newElement.OwnerDocument.CreateTextNode(text.value));
+                      kindOfToken:= IS_ENTITYREF;
+                      reference.reset;
+                      reference.addWideChar(value[j]);
+                    end;
+                  IS_CHARREF:
+                    if value[j] = ';' then begin
+                      reference.addWideChar(';');
+                      text.addWideString(XmlCharRefToStr(reference.value));
+                      kindOfToken:= IS_TEXT;
+                    end else reference.addWideString(value[j]);
+                  IS_ENTITYREF:
+                    if value[j] = ';' then begin
+                      Attri.appendChild(newElement.OwnerDocument.CreateEntityReference(reference.value));
+                      kindOfToken:= IS_EMPTY;
+                      text.reset;
+                    end else reference.addWideString(value[j]);
+                  IS_EMPTY:
+                    if value[j] = '&' then begin
+                      kindOfToken:= IS_REFSTART;
+                    end else begin
+                      kindOfToken:= IS_TEXT;
+                      text.addWideString(value[j]);
+                    end;
+                end; {case ...}
+              end; {for ...}
+              case kindOfToken of
+                IS_TEXT:
+                  Attri.appendChild(newElement.OwnerDocument.CreateTextNode(text.value));
+                IS_REFSTART, IS_CHARREF, IS_ENTITYREF: begin
+                  result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_VALUE,locator,name);
+                  exit;
+                end; {if ...}
+              end; {case ...}
+
+            end;
+          end;
+          if assigned(newElement)
+            then FRefNode.appendChild(newElement);
+        except
+          if assigned(newElement.ParentNode)
+            then newElement.ParentNode.RemoveChild(newElement);
+          FRefNode.OwnerDocument.FreeAllNodes(TdomNode(newElement));
+          result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_VALUE,locator,value);
+        end; {try ...}
+
+      finally
+        text.Free;
+        reference.Free;
+      end;
+
+      if assigned(newElement)
+        then FRefNode:= newElement;
+    end; {if assigned(FRefNode) ...}
+  end; {if result ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startElement(sender,locator,namespaceURI,tagName,attributes);
+end;
+
+function TXmlDocBuilder.startPrefixMapping(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 prefix,
+                                                 uri: UnicodeString): boolean;
+const
+  sQuote: UnicodeString  = #$0027;
+  dQuote: UnicodeString  = '"';
+begin
+  if assigned(FOnStartPrefixMapping) then FOnStartPrefixMapping(sender,locator,prefix,uri);
+  result:= true;
+  if ( (prefix = 'xmlns') and (uri <> 'http://www.w3.org/2000/xmlns/') )
+    or ( (prefix <> '') and not isXmlPrefix(prefix) ) then begin
+    result:= sendErrorNotification(sender,ET_INVALID_PREFIX,locator,prefix);
+  end else begin
+    if not ( IsXMLAttValue(concat(dQuote,uri,dQuote)) or
+      IsXMLAttValue(concat(sQuote,uri,sQuote)) )
+    then begin
+      result:= sendErrorNotification(sender,ET_INVALID_NAMESPACE_URI,locator,uri);
+    end else FPrefixUriList.add(prefix,uri);
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startPrefixMapping(sender,locator,prefix,uri)
+end;
+
+procedure TXmlDocBuilder.notifyReset;
+begin
+  FPrefixUriList.clear;
+  if assigned(nextHandler) then nextHandler.notifyReset;
+end;
+
+
+
+// ++++++++++++++++++++++++++ TXmlDtdBuilder +++++++++++++++++++++++++++
+constructor TXmlDtdBuilder.create(AOwner: TComponent);
+begin
+  inherited create(AOwner);
+  FReferenceExtCM:= nil;
+  FReferenceIntCM:= nil;
+  FRefNode:= nil;
+  FExtDtdIsActive:= false;
+  FIntDtdIsActive:= false;
+end;
+
+function TXmlDtdBuilder.resolvePE(    PEReferenceName: UnicodeString;
+                                  var PEValue: UnicodeString;
+                                  var error: TXmlErrorType): boolean;
+
+begin
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  intContentModel.getValueOfPE(PEReferenceName,PEValue,error);
+  if error <> ET_NONE   // xxx Is this correct?  What happens if there is an error?
+    then extContentModel.getValueOfPE(PEReferenceName,PEValue,error);
+end;
+
+procedure TXmlDtdBuilder.ResolveCharRefsAndPERefs(const s: UnicodeString;
+                                                    var result: UnicodeString;
+                                                    var error: boolean);
+var
+  i,j,indexpos: integer;
+  SChar, SChar2: widechar;
+  name,ref,value: UnicodeString;
+  content: TdomCustomStr;
+  errType: TXmlErrorType;
+begin
+  Result:= '';
+  Error:= false;
+  content:= TdomCustomStr.create;
+  try
+    i:= 1;
+    while i <= length(S) do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if IsUtf16LowSurrogate(sChar)
+        then raise EConvertError.CreateFmt('%S must not start with a UTF-16 low surrogate.',[S]);
+      if IsUtf16HighSurrogate(SChar) then begin
+        if i+1 > length(s)
+          then raise EConvertError.CreateFmt('%S must not end with a UTF-16 high surrogate.',[S]);
+        inc(i);
+        content.addWideChar(SChar);
+        SChar:= WideChar((PWideChar(S)+i-1)^);
+        if not IsUtf16LowSurrogate(SChar)
+          then raise EConvertError.CreateFmt('%S contains an UTF-16 high surrogate without its corresponding low surrogate.',[S]);
+      end;
+      if not IsXmlChar(sChar)
+        then raise EConvertError.CreateFmt('%S contains an invalid character.',[S]);
+      if SChar = '&' then begin {Reference?}
+        indexpos:= -1;
+        for j:= i+1 to length(S) do begin
+          SChar2:= WideChar((PWideChar(S)+j-1)^);
+          if SChar2 = ';' then begin indexpos:= j; break; end;
+        end;
+        if indexpos = -1
+          then raise EConvertError.CreateFmt('%S contains an ''&'' without a '';''.',[S]);
+        ref:= copy(S,i,j-i+1);
+        if IsXmlEntityRef(ref) then begin
+          content.addWideString(ref);
+        end else if IsXmlCharRef(ref) then begin
+          content.addWideString(XmlCharRefToStr(ref));
+        end else raise EConvertError.CreateFmt('%S contains an invalid reference.',[S]);
+        i:= j;
+      end else if SChar = '%' then begin // PEReference?
+        indexpos:= -1;
+        for j:= i+1 to length(S) do begin
+          SChar2:= WideChar((PWideChar(S)+j-1)^);
+          if SChar2 = ';' then begin indexpos:= j; break; end;
+        end;
+        if indexpos = -1
+          then raise EConvertError.CreateFmt('%S contains an ''%'' without a '';''.',[S]);
+        ref:= copy(S,i,j-i+1);
+        if IsXmlPEReference(ref) then begin
+          name:= copy(ref,2,length(ref)-2);
+          resolvePE(name,value,errType);
+          if errType <> ET_NONE
+            then raise EConvertError.CreateFmt('%S contains an invalid parameter entity reference.',[S]);
+          content.addWideString(value);
+        end else raise EConvertError.CreateFmt('%S contains an invalid parameter entity reference.',[S]);
+        i:= j;
+      end else content.addWideChar(SChar);
+      inc(i);
+    end; {while ...}
+    Result:= content.value;
+  finally
+    content.free;
+  end;
+end;
+
+procedure TXmlDtdBuilder.insertMixedContent(const sender: TXmlCustomReader;
+                                            const refNode: TdomCMNode;
+                                            const contSpec: UnicodeString);
+var
+  freq, dummy, content,piece: UnicodeString;
+  separator: integer;
+  Error: boolean;
+  newNode: TdomCMNode;
+begin
+  content:= XMLTrunc(contSpec);
+  freq:= '';
+  if (content[length(content)] = '*') then begin
+    freq:= '*';
+    dummy:= copy(content,1,length(content)-1);
+    content:= dummy;
+  end;
+  if length(content) = 0
+    then raise EParserException.create('Parser error.');
+  if wideChar(content[length(content)]) <> ')'
+    then raise EParserException.create('Parser error.');
+  XMLTruncRoundBrackets(content,dummy,Error);
+  if Error or (dummy = '')
+    then raise EParserException.create('Parser error.');
+  content:= dummy;
+  newNode:= refNode.appendChild(refNode.OwnerCMObject.CreateCMPcdataChoiceParticle);
+  if content = '#PCDATA' then exit;
+  if freq = '' then raise EParserException.create('Parser error.');
+  separator:= pos(UnicodeString('|'),content);
+  if separator = 0 then raise EParserException.create('Parser error.');
+  dummy:= XMLTrunc(copy(content,separator+1,length(content)-separator));
+  content:= dummy;
+  while content <> '' do begin
+    separator:= pos(UnicodeString('|'),content);
+    if separator = 0 then begin
+      piece:= content;
+      content:= '';
+    end else begin
+      piece:= XMLTrunc(copy(content,1,separator-1));
+      dummy:= XMLTrunc(copy(content,separator+1,length(content)-separator));
+      content:= dummy;
+      if content = '' then raise EParserException.create('Parser error.');
+    end; {if ...}
+    if not IsXmlName(piece) then raise EParserException.create('Parser error.');
+    newNode.appendChild(newNode.OwnerCMObject.CreateCMElementParticle(piece,''));
+  end; {while ...}
+end;
+
+procedure TXmlDtdBuilder.insertChildrenContent(const sender: TXmlCustomReader;
+                                               const refNode: TdomCMNode;
+                                               const contSpec: UnicodeString);
+var
+  piece,dummy,content,freq: UnicodeString;
+  SeparatorChar: WideChar;
+  j,i,bracketNr: integer;
+  newNode: TdomCMNode;
+  Error: boolean;
+begin
+  content:= XMLTrunc(contSpec);
+  freq:= '';
+  if (content[length(content)] = WideChar('?')) or
+     (content[length(content)] = WideChar('*')) or
+     (content[length(content)] = WideChar('+')) then begin
+    freq:= content[length(content)];
+    dummy:= copy(content,1,length(content)-1);
+    content:= dummy;
+  end;
+  if length(content) = 0
+    then raise EParserException.create('Parser error.');
+  if wideChar(content[length(content)]) <> ')'
+    then raise EParserException.create('Parser error.');
+  XMLTruncRoundBrackets(content,dummy,Error);
+  if Error or (dummy = '')
+    then raise EParserException.create('Parser error.');
+  content:= dummy;
+
+  bracketNr:= 0;
+  SeparatorChar:= ',';
+  for i:= 1 to length(content) do begin
+    if (content[i] = ',') and (bracketNr = 0) then begin
+      SeparatorChar:= ',';
+      break;
+    end; {if ...}
+    if (content[i] = '|') and (bracketNr = 0) then begin
+      SeparatorChar:= '|';
+      break;
+    end; {if ...}
+    if content[i] = '(' then inc(bracketNr);
+    if content[i] = ')' then begin
+      if bracketNr = 0 then raise EParserException.create('Parser error.');
+      dec(bracketNr);
+    end;
+  end; {for ...}
+
+  if SeparatorChar = ','
+    then newNode:= refNode.appendChild(refNode.OwnerCMObject.CreateCMSequenceParticle(freq))
+    else newNode:= refNode.appendChild(refNode.OwnerCMObject.CreateCMChoiceParticle(freq));
+
+  bracketNr:= 0;
+  i:= 0;
+  j:= 1;
+  while i < length(content) do begin
+    inc(i);
+    if content[i] = '(' then inc(bracketNr);
+    if content[i] = ')' then begin
+      if bracketNr = 0 then raise EParserException.create('Parser error.');
+      dec(bracketNr);
+    end;
+    if ((content[i] = SeparatorChar) and (bracketNr = 0)) or
+       (i = length(content)) then begin
+      if bracketNr > 0 then raise EParserException.create('Parser error.');
+      if i = length(content)
+        then piece:= XmlTrunc(copy(content,j,i+1-j))
+        else piece:= XmlTrunc(copy(content,j,i-j));
+      j:= i+1;
+
+      if piece[1] = '(' then begin
+        insertChildrenContent(sender,NewNode,piece);
+      end else begin
+        freq:= '';
+        if (piece[length(piece)] = wideChar('?')) or
+           (piece[length(piece)] = wideChar('*')) or
+           (piece[length(piece)] = wideChar('+')) then begin
+          freq:= piece[length(piece)];
+          dummy:= copy(piece,1,length(piece)-1);
+          piece:= dummy;
+        end;
+        if not IsXmlName(piece)
+          then raise EParserException.create('Parser error.');
+        NewNode.appendChild(refNode.OwnerCMObject.CreateCMElementParticle(piece,freq));
+      end; {if ...}
+
+    end; {if ...}
+  end; {while ...}
+
+end;
+
+procedure TXmlDtdBuilder.insertNotationOrEnumerationContent(const sender: TXmlCustomReader;
+                                                            const refCMAttrDefinition: TdomCMAttrDefinition;
+                                                            const contSpec: UnicodeString);
+var
+  dummy,content,piece: UnicodeString;
+  separator: integer;
+  Error: boolean;
+begin
+  XMLTruncRoundBrackets(contSpec,content,Error);
+  if Error or (content = '')
+    then raise EParserException.create('Parser error.');
+  while content <> '' do begin
+    separator:= pos(UnicodeString('|'),content);
+    if separator = 0 then begin
+      piece:= content;
+      content:= '';
+    end else begin
+      piece:= XMLTrunc(copy(content,1,separator-1));
+      dummy:= XMLTrunc(copy(content,separator+1,length(content)-separator));
+      content:= dummy;
+      if content = '' then raise EParserException.create('Parser error.');
+    end; {if ...}
+    if refCMAttrDefinition.attributeType = 'NOTATION' then begin
+      if not IsXmlName(piece) then raise EParserException.create('Parser error.');
+      refCMAttrDefinition.appendChild(refCMAttrDefinition.OwnerCMObject.CreateCMNameParticle(piece));
+    end else begin
+      if not IsXmlNmtoken(piece) then raise EParserException.create('Parser error.');
+      refCMAttrDefinition.appendChild(refCMAttrDefinition.OwnerCMObject.CreateCMNmtokenParticle(piece));
+    end;
+  end; {while ...}
+end;
+
+function TXmlDtdBuilder.getExtContentModel: TdomCMExternalObject;
+begin
+  Result:= FReferenceExtCM;
+end;
+
+function TXmlDtdBuilder.getIntContentModel: TdomCMInternalObject;
+begin
+  Result:= FReferenceIntCM;
+end;
+
+procedure TXmlDtdBuilder.setExtContentModel(const cm: TdomCMExternalObject);
+begin
+  if FExtDtdIsActive
+    then raise EParserException.Create('TXmlDtdBuilder -- external DTD is active.');
+  FReferenceExtCM:= cm;
+end;
+
+procedure TXmlDtdBuilder.setIntContentModel(const cm: TdomCMInternalObject);
+begin
+  if FIntDtdIsActive
+    then raise EParserException.Create('TXmlDtdBuilder -- internal DTD is active.');
+  FReferenceIntCM:= cm;
+end;
+
+function TXmlDtdBuilder.attributeDefinition(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  aname,
+                                                  attType,
+                                                  bracket,
+                                                  defaultDecl,
+                                                  attValue: UnicodeString): boolean;
+var
+  newAttDef: TdomCMAttrDefinition;
+begin
+  if assigned(FOnAttributeDefinition) then FOnAttributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+    if not (FRefNode.nodeType = ctAttributeList) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,aname);
+    end else begin
+      try
+        newAttDef:= FRefNode.OwnerCMObject.CreateCMAttributeDefinition(aname,attType,defaultDecl,attValue);
+        try
+          if Bracket <> ''
+            then insertNotationOrEnumerationContent(sender,newAttDef,Bracket);
+            // xxx no well-formedness testing is performed for 'Bracket'
+          FRefNode.appendChild(newAttDef);
+        except
+          if assigned(newAttDef.ParentNode)
+            then newAttDef.ParentNode.RemoveChild(newAttDef);
+          FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newAttDef));
+          raise;
+        end; {try ...}
+      except
+        result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,aname);
+      end; {try ...}
+    end; {if ... else ...}
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.attributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+end;
+
+function TXmlDtdBuilder.DTDcomment(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         data: UnicodeString): boolean;
+var
+  newComment: TdomCMComment;
+begin
+  if assigned(FOnDTDcomment) then FOnDTDcomment(sender,locator,data);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FRefNode) then begin
+    try
+      newComment:= FRefNode.OwnerCMObject.CreateCMComment(data);
+      try
+        FRefNode.appendChild(newComment);
+      except
+        if assigned(newComment.ParentNode)
+          then newComment.ParentNode.RemoveChild(newComment);
+        FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newComment));
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_COMMENT,locator,data);
+    end; {try ...}
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.DTDcomment(sender,locator,data);
+end;
+
+function TXmlDtdBuilder.conditionalSection(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 includeStmt,
+                                                 data: UnicodeString): boolean;
+var
+  parser: TXmlToDomParser;
+begin
+  if assigned(FOnConditionalSection) then FOnConditionalSection(sender,locator,includeStmt,data);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+    try
+      if (IncludeStmt = 'INCLUDE') and (data <> '') then begin
+        parser:= TXmlToDomParser.create(sender);
+        parser.domImpl:= FRefNode.OwnerCMObject.domImplementation;
+        try
+          if assigned(locator)
+            then parser.extDtdWideStringToDom(data,'',locator.uri,FRefNode)
+            else parser.extDtdWideStringToDom(data,'','',FRefNode);
+        finally
+          parser.free;
+        end; {try ...}
+      end; {if ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_CONDITIONAL_SECTION,locator,name);
+    end; {try ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.conditionalSection(sender,locator,includeStmt,data);
+end;
+
+function TXmlDtdBuilder.elementTypeDeclaration(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     aname,
+                                                     data: UnicodeString): boolean;
+var
+  contSpec: UnicodeString;
+  contspecType: TdomContentspecType;
+  newElementTypeDecl: TdomCMElementTypeDeclaration;
+begin
+  if assigned(FOnElementTypeDeclaration) then FOnElementTypeDeclaration(sender,locator,aname,data);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+
+    contSpec:= XMLTrunc(data);
+    contspecType:= ctChildren;
+    if contSpec = 'EMPTY'
+      then contspecType:= ctEmpty
+      else if contSpec = 'ANY'
+        then contspecType:= ctAny
+        else if pos(UnicodeString('#PCDATA'),contSpec) > 0
+          then contspecType:= ctMixed;
+    try
+      newElementTypeDecl:= FRefNode.OwnerCMObject.CreateCMElementTypeDeclaration(aname,contspecType);
+      try
+        FRefNode.appendChild(newElementTypeDecl);
+      except
+        if assigned(newElementTypeDecl.ParentNode)
+          then newElementTypeDecl.ParentNode.RemoveChild(newElementTypeDecl);
+        FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newElementTypeDecl));
+        raise;
+      end; {try ...}
+      try
+        case contspecType of
+          ctMixed: insertMixedContent(sender,newElementTypeDecl,contSpec);
+          ctChildren: insertChildrenContent(sender,newElementTypeDecl,contSpec);
+        end; {case ...}
+      except
+        FRefNode.RemoveChild(newElementTypeDecl);
+        FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newElementTypeDecl));
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_ELEMENT_DECL,locator,aname);
+    end; {try ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.elementTypeDeclaration(sender,locator,aname,data);
+end;
+
+function TXmlDtdBuilder.endAttListDeclaration(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndAttListDeclaration) then FOnEndAttListDeclaration(sender,locator);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+    if not (FRefNode.nodeType = ctAttributeList) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+    end else FRefNode:= FRefNode.ParentNode;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endAttListDeclaration(sender,locator);
+end;
+
+function TXmlDtdBuilder.endExtDtd(const sender: TXmlCustomReader;
+                                  const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndExtDtd) then FOnEndExtDtd(sender,locator);
+  if FIntDtdIsActive or not FExtDtdIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FExtDtdIsActive:= false;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endExtDtd(sender,locator);
+end;
+
+function TXmlDtdBuilder.endIntDtd(const sender: TXmlCustomReader;
+                                  const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndIntDtd) then FOnEndIntDtd(sender,locator);
+  if FExtDtdIsActive or not FIntDtdIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FIntDtdIsActive:= false;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endIntDtd(sender,locator);
+end;
+
+function TXmlDtdBuilder.entityDeclaration(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator;
+                                                aname,
+                                                entityValue,
+                                                pubId,
+                                                sysId,
+                                                notaName: UnicodeString): boolean;
+var
+  newEntDecl: TdomCMEntityDeclaration;
+begin
+  if assigned(FOnEntityDeclaration) then FOnEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+
+    try
+      if (pubId = '') and (sysId = '') and (notaName = '') then begin
+        newEntDecl:= FRefNode.OwnerCMObject.CreateCMIntEntityDeclaration(aname,entityValue);
+      end else begin
+        if notaName = ''
+          then newEntDecl:= FRefNode.OwnerCMObject.CreateCMExtEntityDeclaration(aname,pubId,sysId)
+          else newEntDecl:= FRefNode.OwnerCMObject.CreateCMExtUnparsedEntityDeclaration(aname,pubId,sysId,notaName);
+      end;
+      try
+        FRefNode.appendChild(newEntDecl);
+      except
+        if assigned(newEntDecl) then begin
+          if assigned(newEntDecl.ParentNode)
+            then newEntDecl.ParentNode.RemoveChild(newEntDecl);
+          FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newEntDecl));
+        end;
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_ENTITY_DECL,locator,aname);
+    end; {try ...}
+
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.entityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName);
+end;
+
+function TXmlDtdBuilder.notationDeclaration(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  aname,
+                                                  pubId,
+                                                  sysId: UnicodeString): boolean;
+var
+  newNotaDecl: TdomCMNotationDeclaration;
+begin
+  if assigned(FOnNotationDeclaration) then FOnNotationDeclaration(sender,locator,aname,pubId,sysId);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+    try
+      newNotaDecl:= FRefNode.OwnerCMObject.CreateCMNotationDeclaration(aname,pubId,sysId);
+      try
+        FRefNode.appendChild(newNotaDecl);
+      except
+        if assigned(newNotaDecl) then begin
+          if assigned(newNotaDecl.ParentNode)
+            then newNotaDecl.ParentNode.RemoveChild(newNotaDecl);
+          FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newNotaDecl));
+        end;
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_NOTATION_DECL,locator,aname);
+    end; {try ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.notationDeclaration(sender,locator,aname,pubId,sysId);
+end;
+
+function TXmlDtdBuilder.parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                                   const locator: TdomLocator;
+                                                         aname,
+                                                         entityValue,
+                                                         pubId,
+                                                         sysId: UnicodeString): boolean;
+var
+  newParamEntDecl: TdomCMParameterEntityDeclaration;
+begin
+  if assigned(FOnParameterEntityDeclaration) then FOnParameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if FExtDtdIsActive then begin
+    if extContentModel.hasPEDeclaration(aname)
+      then result:= sendErrorNotification(sender,ET_DOUBLE_PARAMETER_ENTITY_DECL,locator,aname);
+  end else if FIntDtdIsActive then begin
+    if intContentModel.hasPEDeclaration(aname)
+      then result:= sendErrorNotification(sender,ET_DOUBLE_PARAMETER_ENTITY_DECL,locator,aname);
+  end;
+
+  if result then begin
+    if assigned(FRefNode) then begin
+      try
+        if (pubId = '') and (sysId = '')
+          then newParamEntDecl:= FRefNode.OwnerCMObject.CreateCMIntParameterEntityDeclaration(aname,entityValue)
+          else newParamEntDecl:= FRefNode.OwnerCMObject.CreateCMExtParameterEntityDeclaration(aname,pubId,sysId);
+        try
+          FRefNode.appendChild(newParamEntDecl);
+        except
+          if assigned(newParamEntDecl) then begin
+            if assigned(newParamEntDecl.ParentNode)
+              then newParamEntDecl.ParentNode.RemoveChild(newParamEntDecl);
+            FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newParamEntDecl));
+          end;
+          raise;
+        end; {try ...}
+      except
+        result:= sendErrorNotification(sender,ET_INVALID_ENTITY_DECL,locator,aname);
+      end; {try ...}
+    end; {if ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.parameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+end;
+
+function TXmlDtdBuilder.parameterEntityRef(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 aname: UnicodeString): boolean;
+const
+  SPACE: UnicodeString  = #$0020;
+var
+  error: TXmlErrorType;
+  error2: boolean;
+  newParamEntRef: TdomCMParameterEntityReference;
+  parser: TXmlToDomParser;
+  replText, value: UnicodeString;
+begin
+  if assigned(FOnParameterEntityRef) then FOnParameterEntityRef(sender,locator,aname);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+
+    if FIntDtdIsActive then begin
+      newParamEntRef:= FRefNode.OwnerCMObject.CreateCMParameterEntityReference(aname);
+      try
+        FRefNode.appendChild(newParamEntRef);
+      except
+        if assigned(newParamEntRef.ParentNode)
+          then newParamEntRef.ParentNode.RemoveChild(newParamEntRef);
+        FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newParamEntRef));
+        result:= sendErrorNotification(sender,ET_INVALID_ENTITY_NAME,locator,aname);
+      end; {try ...}
+    end;
+
+    if FExtDtdIsActive then begin
+      resolvePE(aname,value,error);
+      if error = ET_NONE then begin
+        try
+          ResolveCharRefsAndPERefs(value,replText,error2);
+        except
+          error2:= true;
+        end;
+        if error2 then begin
+          result:= sendErrorNotification(sender,ET_INVALID_ENTITY_DECL,locator,aname);
+        end else begin
+
+          try
+            parser:= TXmlToDomParser.create(sender);
+            parser.domImpl:= FRefNode.OwnerCMObject.domImplementation;
+            try
+              if assigned(locator)
+                then parser.extDtdWideStringToDom(concat(SPACE,replText,SPACE),'',locator.uri,FRefNode)
+                else parser.extDtdWideStringToDom(concat(SPACE,replText,SPACE),'','',FRefNode);
+                     // SPACE is required by XML 1.0 Spec, � 4.4.8
+            finally
+              parser.free;
+            end; {try ...}
+          except
+            result:= sendErrorNotification(sender,ET_INVALID_ENTITY_NAME,locator,aname);
+          end; {try ...}
+
+        end; {if ... else ...}
+      end else begin
+        result:= sendErrorNotification(sender,error,locator,aname);
+      end;
+    end; {if FExtDtdIsActive ...}
+
+  end; {if ...}
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.parameterEntityRef(sender,locator,aname);
+end;
+
+function TXmlDtdBuilder.DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator;
+                                                       targ,
+                                                       data : UnicodeString): boolean;
+var
+  newPI: TdomCMProcessingInstruction;
+begin
+  if assigned(FOnDTDprocessingInstruction) then FOnDTDprocessingInstruction(sender,locator,targ,data);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+    try
+      newPI:= FRefNode.OwnerCMObject.CreateCMProcessingInstruction(targ,data);
+      try
+        FRefNode.appendChild(newPI);
+      except
+        if assigned(newPI.ParentNode)
+          then newPI.ParentNode.RemoveChild(newPI);
+        FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newPI));
+        raise;
+      end;
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_PROCESSING_INSTRUCTION,locator,targ);
+    end;
+  end; {if assigned(FRefNode) ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.DTDprocessingInstruction(sender,locator,targ,data);
+end;
+
+function TXmlDtdBuilder.startAttListDeclaration(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      aname: UnicodeString): boolean;
+var
+  newAttList: TdomCMAttrList;
+begin
+  if assigned(FOnStartAttListDeclaration) then FOnStartAttListDeclaration(sender,locator,aname);
+  if not (FExtDtdIsActive or FIntDtdIsActive) then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FRefNode) then begin
+    try
+      newAttList:= FRefNode.OwnerCMObject.CreateCMAttributeList(aname);
+      try
+        FRefNode.appendChild(newAttList);
+      except
+        if assigned(newAttList.ParentNode)
+          then newAttList.ParentNode.RemoveChild(newAttList);
+        FRefNode.OwnerCMObject.FreeAllCMNodes(TdomCMNode(newAttList));
+        raise;
+      end; {try ...}
+    except
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,aname);
+    end; {try ...}
+    FRefNode:= newAttList;
+
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startAttListDeclaration(sender,locator,aname);
+end;
+
+function TXmlDtdBuilder.startExtDtd(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator;
+                                          version,
+                                          encName: UnicodeString): boolean;
+begin
+  if assigned(FOnStartExtDtd) then FOnStartExtDtd(sender,locator,version,encName);
+  if FIntDtdIsActive or FExtDtdIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FExtDtdIsActive:= true;
+
+  FRefNode:= FReferenceExtCM;
+  if assigned(FReferenceExtCM) then begin
+    FReferenceExtCM.publicId:= '';
+    if assigned(locator)
+      then FReferenceExtCM.systemId:= locator.uri
+      else FReferenceExtCM.systemId:= '';
+    FReferenceExtCM.version:= version;
+    FReferenceExtCM.encoding:= encName;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startExtDtd(sender,locator,version,encName);
+end;
+
+function TXmlDtdBuilder.startIntDtd(const sender: TXmlCustomReader;
+                                    const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnStartIntDtd) then FOnStartIntDtd(sender,locator);
+  if FIntDtdIsActive or FExtDtdIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FIntDtdIsActive:= true;
+
+  FRefNode:= FReferenceIntCM;
+  if assigned(FReferenceIntCM) then begin
+    if assigned(locator)
+      then FReferenceIntCM.publicId:= ''
+      else FReferenceIntCM.systemId:= locator.uri;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startIntDtd(sender,locator);
+end;
+
+procedure TXmlDtdBuilder.notifyReset;
+begin
+  FRefNode:= nil;
+  FExtDtdIsActive:= false;
+  FIntDtdIsActive:= false;
+  if assigned(nextHandler) then nextHandler.notifyReset;
+end;
+
+
+
+// ++++++++++++++++++++++++++ TXmlCMBuilder +++++++++++++++++++++++++++
+constructor TXmlCMBuilder.create(AOwner: TComponent);
+begin
+  inherited create(AOwner);
+  FContentModel:= nil;
+  FIsActive:= false;
+end;
+
+procedure TXmlCMBuilder.CDataNormalization(const s: UnicodeString;
+                                             var result: UnicodeString;
+                                             var error: boolean);
+const
+  TAB:       WideChar = #$9;   // Horizontal Tabulation
+  LF:        WideChar = #$A;   // Line Feed
+  CR:        WideChar = #$D;   // Carriage Return
+  SPACE:     WideChar = #$20;  // ' '
+var
+  i,j,indexpos: integer;
+  SChar, SChar2: widechar;
+  name,ref: UnicodeString;
+  content: TdomCustomStr;
+  Entity: TdomCMEntity;
+begin
+  Result:= '';
+  Error:= false;
+  content:= TdomCustomStr.create;
+  try
+    i:= 1;
+    while i <= length(S) do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if IsUtf16LowSurrogate(sChar)
+        then raise EConvertError.CreateFmt('%S must not start with a UTF-16 low surrogate.',[S]);
+      if IsUtf16HighSurrogate(SChar) then begin
+        if i+1 > length(s)
+          then raise EConvertError.CreateFmt('%S must not end with a UTF-16 high surrogate.',[S]);
+        inc(i);
+        content.addWideChar(SChar);
+        SChar:= WideChar((PWideChar(S)+i-1)^);
+        if not IsUtf16LowSurrogate(SChar)
+          then raise EConvertError.CreateFmt('%S contains an UTF-16 high surrogate without its corresponding low surrogate.',[S]);
+      end;
+      if not IsXmlChar(sChar)
+        then raise EConvertError.CreateFmt('%S contains an invalid character.',[S]);
+      if SChar = '&' then begin // Reference?
+        indexpos:= -1;
+        for j:= i+1 to length(S) do begin
+          SChar2:= WideChar((PWideChar(S)+j-1)^);
+          if SChar2 = ';' then begin indexpos:= j; break; end;
+        end;
+        if indexpos = -1
+          then raise EConvertError.CreateFmt('%S contains an ''&'' without a '';''.',[S]);
+        ref:= copy(S,i,j-i+1);
+        if IsXmlEntityRef(ref) then begin
+          name:= copy(ref,2,length(ref)-2);
+          Entity:= FContentModel.Entities.GetNamedItem(name);
+          if assigned(Entity) then begin
+            try
+              content.addWideString(Entity.normalizedValue);
+            except
+              error:= true;
+            end;
+          end else begin
+            content.addWideString(ref);
+            error:= true;
+          end;
+        end else if IsXmlCharRef(ref) then begin
+          content.addWideString(XmlCharRefToStr(ref));
+        end else raise EConvertError.CreateFmt('%S contains an invalid reference.',[S]);
+        i:= j;
+      end else if (SChar = TAB) or (SChar = LF) or (SChar = CR) // White space?
+        then content.addWideChar(SPACE)
+        else content.addWideChar(SChar);
+      inc(i);
+    end; {while ...}
+    Result:= content.value;
+  finally
+    content.free;
+  end;
+end;
+
+function TXmlCMBuilder.getContentModel: TdomCMObject;
+begin
+  Result:= FContentModel;
+end;
+
+procedure TXmlCMBuilder.insertMixedContent(const sender: TXmlCustomReader;
+                                            const refNode: TdomCMNode;
+                                            const contSpec: UnicodeString);
+var
+  freq, dummy, content,piece: UnicodeString;
+  separator: integer;
+  Error: boolean;
+  newNode: TdomCMNode;
+begin
+  content:= XMLTrunc(contSpec);
+  freq:= '';
+  if (content[length(content)] = '*') then begin
+    freq:= '*';
+    dummy:= copy(content,1,length(content)-1);
+    content:= dummy;
+  end;
+  if length(content) = 0
+    then raise EParserException.create('Parser error.');
+  if wideChar(content[length(content)]) <> ')'
+    then raise EParserException.create('Parser error.');
+  XMLTruncRoundBrackets(content,dummy,Error);
+  if Error or (dummy = '')
+    then raise EParserException.create('Parser error.');
+  content:= dummy;
+  newNode:= refNode.appendChild(refNode.OwnerCMObject.CreateCMPcdataChoiceParticle);
+  if content = '#PCDATA' then exit;
+  if freq = '' then raise EParserException.create('Parser error.');
+  separator:= pos(UnicodeString('|'),content);
+  if separator = 0 then raise EParserException.create('Parser error.');
+  dummy:= XMLTrunc(copy(content,separator+1,length(content)-separator));
+  content:= dummy;
+  while content <> '' do begin
+    separator:= pos(UnicodeString('|'),content);
+    if separator = 0 then begin
+      piece:= content;
+      content:= '';
+    end else begin
+      piece:= XMLTrunc(copy(content,1,separator-1));
+      dummy:= XMLTrunc(copy(content,separator+1,length(content)-separator));
+      content:= dummy;
+      if content = '' then raise EParserException.create('Parser error.');
+    end; {if ...}
+    if not IsXmlName(piece) then raise EParserException.create('Parser error.');
+    newNode.appendChild(newNode.OwnerCMObject.CreateCMElementParticle(piece,''));
+  end; {while ...}
+end;
+
+procedure TXmlCMBuilder.insertChildrenContent(const sender: TXmlCustomReader;
+                                               const refNode: TdomCMNode;
+                                               const contSpec: UnicodeString);
+var
+  piece,dummy,content,freq: UnicodeString;
+  SeparatorChar: WideChar;
+  j,i,bracketNr: integer;
+  newNode: TdomCMNode;
+  Error: boolean;
+begin
+  content:= XMLTrunc(contSpec);
+  freq:= '';
+  if (content[length(content)] = WideChar('?')) or
+     (content[length(content)] = WideChar('*')) or
+     (content[length(content)] = WideChar('+')) then begin
+    freq:= content[length(content)];
+    dummy:= copy(content,1,length(content)-1);
+    content:= dummy;
+  end;
+  if length(content) = 0
+    then raise EParserException.create('Parser error.');
+  if wideChar(content[length(content)]) <> ')'
+    then raise EParserException.create('Parser error.');
+  XMLTruncRoundBrackets(content,dummy,Error);
+  if Error or (dummy = '')
+    then raise EParserException.create('Parser error.');
+  content:= dummy;
+
+  bracketNr:= 0;
+  SeparatorChar:= ',';
+  for i:= 1 to length(content) do begin
+    if (content[i] = ',') and (bracketNr = 0) then begin
+      SeparatorChar:= ',';
+      break;
+    end; {if ...}
+    if (content[i] = '|') and (bracketNr = 0) then begin
+      SeparatorChar:= '|';
+      break;
+    end; {if ...}
+    if content[i] = '(' then inc(bracketNr);
+    if content[i] = ')' then begin
+      if bracketNr = 0 then raise EParserException.create('Parser error.');
+      dec(bracketNr);
+    end;
+  end; {for ...}
+
+  if SeparatorChar = ','
+    then newNode:= refNode.appendChild(refNode.OwnerCMObject.CreateCMSequenceParticle(freq))
+    else newNode:= refNode.appendChild(refNode.OwnerCMObject.CreateCMChoiceParticle(freq));
+
+  bracketNr:= 0;
+  i:= 0;
+  j:= 1;
+  while i < length(content) do begin
+    inc(i);
+    if content[i] = '(' then inc(bracketNr);
+    if content[i] = ')' then begin
+      if bracketNr = 0 then raise EParserException.create('Parser error.');
+      dec(bracketNr);
+    end;
+    if ((content[i] = SeparatorChar) and (bracketNr = 0)) or
+       (i = length(content)) then begin
+      if bracketNr > 0 then raise EParserException.create('Parser error.');
+      if i = length(content)
+        then piece:= XmlTrunc(copy(content,j,i+1-j))
+        else piece:= XmlTrunc(copy(content,j,i-j));
+      j:= i+1;
+
+      if piece[1] = '(' then begin
+        insertChildrenContent(sender,NewNode,piece);
+      end else begin
+        freq:= '';
+        if (piece[length(piece)] = wideChar('?')) or
+           (piece[length(piece)] = wideChar('*')) or
+           (piece[length(piece)] = wideChar('+')) then begin
+          freq:= piece[length(piece)];
+          dummy:= copy(piece,1,length(piece)-1);
+          piece:= dummy;
+        end;
+        if not IsXmlName(piece)
+          then raise EParserException.create('Parser error.');
+        NewNode.appendChild(refNode.OwnerCMObject.CreateCMElementParticle(piece,freq));
+      end; {if ...}
+
+    end; {if ...}
+  end; {while ...}
+
+end;
+
+procedure TXmlCMBuilder.insertNotationOrEnumerationContent(const sender: TXmlCustomReader;
+                                                           const refCMAttribute: TdomCMAttribute;
+                                                           const contSpec: UnicodeString);
+var
+  dummy,content,piece: UnicodeString;
+  separator: integer;
+  Error: boolean;
+begin
+  XMLTruncRoundBrackets(contSpec,content,Error);
+  if Error or (content = '')
+    then raise EParserException.create('Parser error.');
+  while content <> '' do begin
+    separator:= pos(UnicodeString('|'),content);
+    if separator = 0 then begin
+      piece:= content;
+      content:= '';
+    end else begin
+      piece:= XMLTrunc(copy(content,1,separator-1));
+      dummy:= XMLTrunc(copy(content,separator+1,length(content)-separator));
+      content:= dummy;
+      if content = '' then raise EParserException.create('Parser error.');
+    end; {if ...}
+    if refCMAttribute.attributeType = 'NOTATION' then begin
+      if not IsXmlName(piece) then raise EParserException.create('Parser error.');
+      refCMAttribute.appendChild(refCMAttribute.OwnerCMObject.CreateCMNameParticle(piece));
+    end else begin
+      if not IsXmlNmtoken(piece) then raise EParserException.create('Parser error.');
+      refCMAttribute.appendChild(refCMAttribute.OwnerCMObject.CreateCMNmtokenParticle(piece));
+    end;
+  end; {while ...}
+end;
+
+procedure TXmlCMBuilder.resolveCharRefsAndPERefs(const s: UnicodeString;
+                                                   var result: UnicodeString;
+                                                   var error: boolean);
+var
+  i,j,indexpos: integer;
+  SChar, SChar2: widechar;
+  name,ref,value: UnicodeString;
+  content: TdomCustomStr;
+  errType: TXmlErrorType;
+begin
+  Result:= '';
+  Error:= false;
+  content:= TdomCustomStr.create;
+  try
+    i:= 1;
+    while i <= length(S) do begin
+      SChar:= WideChar((PWideChar(S)+i-1)^);
+      if IsUtf16LowSurrogate(sChar)
+        then raise EConvertError.CreateFmt('%S must not start with a UTF-16 low surrogate.',[S]);
+      if IsUtf16HighSurrogate(SChar) then begin
+        if i+1 > length(s)
+          then raise EConvertError.CreateFmt('%S must not end with a UTF-16 high surrogate.',[S]);
+        inc(i);
+        content.addWideChar(SChar);
+        SChar:= WideChar((PWideChar(S)+i-1)^);
+        if not IsUtf16LowSurrogate(SChar)
+          then raise EConvertError.CreateFmt('%S contains an UTF-16 high surrogate without its corresponding low surrogate.',[S]);
+      end;
+      if not IsXmlChar(sChar)
+        then raise EConvertError.CreateFmt('%S contains an invalid character.',[S]);
+      if SChar = '&' then begin {Reference?}
+        indexpos:= -1;
+        for j:= i+1 to length(S) do begin
+          SChar2:= WideChar((PWideChar(S)+j-1)^);
+          if SChar2 = ';' then begin indexpos:= j; break; end;
+        end;
+        if indexpos = -1
+          then raise EConvertError.CreateFmt('%S contains an ''&'' without a '';''.',[S]);
+        ref:= copy(S,i,j-i+1);
+        if IsXmlEntityRef(ref) then begin
+          content.addWideString(ref);
+        end else if IsXmlCharRef(ref) then begin
+          content.addWideString(XmlCharRefToStr(ref));
+        end else raise EConvertError.CreateFmt('%S contains an invalid reference.',[S]);
+        i:= j;
+      end else if SChar = '%' then begin {PEReference?}
+        indexpos:= -1;
+        for j:= i+1 to length(S) do begin
+          SChar2:= WideChar((PWideChar(S)+j-1)^);
+          if SChar2 = ';' then begin indexpos:= j; break; end;
+        end;
+        if indexpos = -1
+          then raise EConvertError.CreateFmt('%S contains an ''%'' without a '';''.',[S]);
+        ref:= copy(S,i,j-i+1);
+        if IsXmlPEReference(ref) then begin
+          name:= copy(ref,2,length(ref)-2);
+          resolvePE(name,value,errType);
+          if errType <> ET_NONE
+            then raise EConvertError.CreateFmt('%S contains an invalid parameter entity reference.',[S]);
+          content.addWideString(value);
+        end else raise EConvertError.CreateFmt('%S contains an invalid parameter entity reference.',[S]);
+        i:= j;
+      end else content.addWideChar(SChar);
+      inc(i);
+    end; {while ...}
+    Result:= content.value;
+  finally
+    content.free;
+  end;
+end;
+
+procedure TXmlCMBuilder.setContentModel(const cm: TdomCMObject);
+begin
+  if FIsActive
+    then raise EParserException.Create('TXmlCMBuilder -- Content Model is active.');
+  FContentModel:= cm;
+end;
+
+function TXmlCMBuilder.resolvePE(    PEReferenceName: UnicodeString;
+                                 var PEValue: UnicodeString;
+                                 var error: TXmlErrorType): boolean;
+begin
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FContentModel.getValueOfPE(PEReferenceName,PEValue,error);
+end;
+
+function TXmlCMBuilder.attributeDefinition(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 aname,
+                                                 attType,
+                                                 bracket,
+                                                 defaultDecl,
+                                                 attValue: UnicodeString): boolean;
+const
+  LT: WideChar  = #60;  // '<'
+var
+  error: boolean;
+  newCMAttribute: TdomCMAttribute;
+  replText: UnicodeString;
+begin
+  if assigned(FOnAttributeDefinition)
+    then FOnAttributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName = '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,aname);
+    end else begin
+
+      if assigned(FContentModel.attributes.GetNamedItem(FCurrentAttListName,aname)) then begin
+        result:= sendErrorNotification(sender,ET_DOUBLE_ATTDEF,locator,aname);
+      end else begin
+        try
+          CDataNormalization(attValue,replText,error);
+        except
+          result:= sendErrorNotification(sender,ET_INVALID_ENTITY_DECL,locator,attValue);
+        end; {try ...}
+
+        if result and error then begin
+          result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,aname);
+        end;
+
+        // WFC: No < in Attribute Values (XML 1.0, � 3.3.2)
+        if result and (pos(LT,replText) > 0) then begin
+          result:= sendErrorNotification(sender,ET_LT_IN_ATTRIBUTE_VALUE,locator,aname);
+        end;
+
+        if result then begin
+          newCMAttribute:= FContentModel.CreateCMAttribute(FCurrentAttListName,aname,attType,defaultDecl,replText);
+          try
+            if Bracket <> ''
+              then insertNotationOrEnumerationContent(sender,newCMAttribute,Bracket);
+              // xxx no well-formedness testing is performed for 'Bracket'
+          except
+            FContentModel.FreeAllCMNodes(TdomCMNode(newCMAttribute));
+            result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,aname);
+          end; {try ...}
+          if assigned(newCMAttribute)
+            then FContentModel.Attributes.appendNamedItem(newCMAttribute);
+        end; {if ...}
+      end; {if ... else ...}
+    end; {if ... else ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.attributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+end;
+
+function TXmlCMBuilder.DTDcomment(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         data: UnicodeString): boolean;
+begin
+  if assigned(FOnDTDcomment) then FOnDTDcomment(sender,locator,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FContentModel) and (FCurrentAttListName <> '') then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.DTDcomment(sender,locator,data);
+end;
+
+function TXmlCMBuilder.conditionalSection(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                                 includeStmt,
+                                                 data: UnicodeString): boolean;
+begin
+  if assigned(FOnConditionalSection) then FOnConditionalSection(sender,locator,includeStmt,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+
+  if assigned(FContentModel) and (FCurrentAttListName <> '') then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.conditionalSection(sender,locator,includeStmt,data);
+end;
+
+function TXmlCMBuilder.elementTypeDeclaration(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     aname,
+                                                     data: UnicodeString): boolean;
+var
+  contSpec: UnicodeString;
+  contspecType: TdomContentspecType;
+  newElementTypeDecl: TdomCMElementTypeDeclaration;
+begin
+  if assigned(FOnElementTypeDeclaration) then FOnElementTypeDeclaration(sender,locator,aname,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName <> '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+    end else if not IsXmlName(aname) then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ELEMENT_DECL,locator,aname);
+    end else if assigned(FContentModel.elementTypes.GetNamedItem(aname)) then begin
+      result:= sendErrorNotification(sender,ET_DUPLICATE_ELEMENT_TYPE_DECL,locator,aname);
+    end else begin
+      contSpec:= XMLTrunc(data);
+      contspecType:= ctChildren;
+      if contSpec = 'EMPTY'
+        then contspecType:= ctEmpty
+        else if contSpec = 'ANY'
+          then contspecType:= ctAny
+          else if pos(UnicodeString('#PCDATA'),contSpec) > 0
+            then contspecType:= ctMixed;
+      try
+        newElementTypeDecl:= FContentModel.CreateCMElementTypeDeclaration(aname,contspecType);
+        try
+          case contspecType of
+            ctMixed: insertMixedContent(sender,newElementTypeDecl,contSpec);
+            ctChildren: insertChildrenContent(sender,newElementTypeDecl,contSpec);
+          end; {case ...}
+          FContentModel.elementTypes.setNamedItem(newElementTypeDecl);
+        except
+          FContentModel.FreeAllCMNodes(TdomCMNode(newElementTypeDecl));
+          raise;
+        end; {try ...}
+      except
+        result:= sendErrorNotification(sender,ET_INVALID_ELEMENT_DECL,locator,aname);
+      end; {try ...}
+    end;
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.elementTypeDeclaration(sender,locator,aname,data);
+end;
+
+function TXmlCMBuilder.endAttListDeclaration(const sender: TXmlCustomReader;
+                                             const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndAttListDeclaration) then FOnEndAttListDeclaration(sender,locator);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName = '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,FCurrentAttListName);
+    end;
+    FCurrentAttListName:= '';
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endAttListDeclaration(sender,locator);
+end;
+
+function TXmlCMBuilder.endExtDtd(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndExtDtd) then FOnEndExtDtd(sender,locator);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName <> '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+    end else begin
+      FIsActive:= false;
+    end;
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endExtDtd(sender,locator);
+end;
+
+function TXmlCMBuilder.endIntDtd(const sender: TXmlCustomReader;
+                                  const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndExtDtd) then FOnEndExtDtd(sender,locator);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName <> '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+    end else begin
+      FIsActive:= false;
+    end;
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endExtDtd(sender,locator);
+end;
+
+function TXmlCMBuilder.entityDeclaration(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator;
+                                               aname,
+                                               literalValue,
+                                               pubId,
+                                               sysId,
+                                               notaName: UnicodeString): boolean;
+var
+  newEntity: TdomCMEntity;
+begin
+  if assigned(FOnEntityDeclaration) then FOnEntityDeclaration(sender,locator,aname,literalValue,pubId,sysId,notaName);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName <> '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+    end else begin
+
+      if assigned(FContentModel.Entities.GetNamedItem(aname)) then begin
+        result:= sendErrorNotification(sender,ET_DOUBLE_ENTITY_DECL,locator,aname);
+      end else begin
+        if notaName = '' then begin
+          if (pubId = '') and (sysId = '') then begin
+
+            // Entity is internal
+            newEntity:= FContentModel.createCMIntEntity(aname,literalValue);
+            FContentModel.Entities.appendNamedItem(newEntity);
+            if newEntity.isUnusable
+              then result:= sendErrorNotification(sender,ET_UNUSABLE_ENTITY_DECL,locator,aname);
+
+          end else begin
+
+            // Entity is external parsed
+            newEntity:= FContentModel.createCMExtParsedEntity(aname,pubId,sysId);
+            FContentModel.Entities.appendNamedItem(newEntity);
+
+          end; {if ... else ...}
+        end else begin
+
+          // Entity is external unparsed
+          newEntity:= FContentModel.createCMExtUnparsedEntity(aname,pubId,sysId,notaName);
+          FContentModel.Entities.appendNamedItem(newEntity);
+
+        end; {if notaName <> '' ... else ...}
+      end; {if assigned ... else ...}
+
+    end; {if ... else ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.entityDeclaration(sender,locator,aname,literalValue,pubId,sysId,notaName);
+end;
+
+function TXmlCMBuilder.notationDeclaration(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  aname,
+                                                  pubId,
+                                                  sysId: UnicodeString): boolean;
+var
+  newNotation: TdomCMNotation;
+begin
+  if assigned(FOnNotationDeclaration) then FOnNotationDeclaration(sender,locator,aname,pubId,sysId);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName <> '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+    end else begin
+      if assigned(FContentModel.Notations.GetNamedItem(aname)) then begin
+        result:= sendErrorNotification(sender,ET_DUPLICATE_NOTATION_DECL,locator,aname);
+      end else begin
+        try
+          newNotation:= FContentModel.CreateCMNotation(aname,pubId,sysId);
+          FContentModel.Notations.SetNamedItem(newNotation);
+        except
+          result:= sendErrorNotification(sender,ET_INVALID_NOTATION_DECL,locator,aname);
+        end; {try ...}
+      end;
+    end; {if ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.notationDeclaration(sender,locator,aname,pubId,sysId);
+end;
+
+function TXmlCMBuilder.parameterEntityRef(const sender: TXmlCustomReader;
+                                          const locator: TdomLocator;
+                                                aname: UnicodeString): boolean;
+// const SPACE: UnicodeString  = #$0020;
+var
+  dtdAnalyzer: TXmlCMAnalyzer;
+  error: TXmlErrorType;
+  error2: boolean;
+  replText,value: UnicodeString;
+begin
+  if assigned(FOnParameterEntityRef) then FOnParameterEntityRef(sender,locator,aname);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName <> '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+    end else begin
+
+      resolvePE(aname,value,error);
+      if error = ET_NONE then begin
+
+        try
+          ResolveCharRefsAndPERefs(value,replText,error2);
+          if error2 then begin
+            result:= sendErrorNotification(sender,ET_ENTITY_DECL_NOT_FOUND,locator,aname);
+          end else begin
+            dtdAnalyzer:= TXmlCMAnalyzer.create(nil);
+            if assigned(sender)
+              then dtdAnalyzer.DOMImpl:= sender.domImpl;
+            try
+              try
+                dtdAnalyzer.analyzeIntDTDStr(replText,FContentModel);
+              finally
+                dtdAnalyzer.free;
+              end;
+            except
+              result:= sendErrorNotification(sender,ET_INVALID_ENTITY_NAME,locator,aname);
+            end;
+          end;
+        except
+          result:= sendErrorNotification(sender,ET_ENTITY_DECL_NOT_FOUND,locator,aname);
+        end; {try ...}
+
+      end else begin
+        result:= sendErrorNotification(sender,error,locator,aname);
+      end;
+
+    end; {if ... else ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.parameterEntityRef(sender,locator,aname);
+end;
+
+function TXmlCMBuilder.DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                                const locator: TdomLocator;
+                                                      targ,
+                                                      data : UnicodeString): boolean;
+begin
+  if assigned(FOnDTDprocessingInstruction) then FOnDTDprocessingInstruction(sender,locator,targ,data);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) and (FCurrentAttListName <> '') then begin
+    result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,'');
+  end;
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.DTDprocessingInstruction(sender,locator,targ,data);
+end;
+
+function TXmlCMBuilder.startAttListDeclaration(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     aname: UnicodeString): boolean;
+begin
+  if assigned(FOnStartAttListDeclaration) then FOnStartAttListDeclaration(sender,locator,aname);
+  if not FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  if assigned(FContentModel) then begin
+    if FCurrentAttListName <> '' then begin
+      result:= sendErrorNotification(sender,ET_INVALID_ATTRIBUTE_DECL,locator,FCurrentAttListName);
+    end else begin
+      FCurrentAttListName:= aname;
+    end; {if ... else ...}
+  end; {if ...}
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startAttListDeclaration(sender,locator,aname);
+end;
+
+function TXmlCMBuilder.startExtDtd(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         version,
+                                         encName: UnicodeString): boolean;
+begin
+  if assigned(FOnStartExtDtd) then FOnStartExtDtd(sender,locator,version,encName);
+  if FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FCurrentAttListName:= '';
+  FIsActive:= true;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startExtDtd(sender,locator,version,encName);
+end;
+
+function TXmlCMBuilder.startIntDtd(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnStartIntDtd) then FOnStartIntDtd(sender,locator);
+  if FIsActive then begin
+    raise EParserException.create('Internal Parser Exception');
+  end;
+  result:= true;
+  FCurrentAttListName:= '';
+  FIsActive:= true;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startIntDtd(sender,locator);
+end;
+
+procedure TXmlCMBuilder.notifyReset;
+begin
+  FCurrentAttListName:= '';
+  FIsActive:= false;
+  if assigned(nextHandler) then nextHandler.notifyReset;
+end;
+
+
+
+// ++++++++++++++++++++++++ TXmlStreamBuilder ++++++++++++++++++++++++++
+constructor TXmlStreamBuilder.create(aOwner: TComponent);
+begin
+  inherited;
+  FCurrentEncodingType:= etUTF8;
+  FDefaultEncodingType:= etUTF8;
+  FNewLine:= nltCRLF;
+end;
+
+procedure TXmlStreamBuilder.setDefaultEncoding(const value: UnicodeString);
+var
+  newEncodingType: TdomEncodingType;
+begin
+  if FDefaultEncoding = value then exit;
+  newEncodingType:= StrToEncoding(value);
+  case newEncodingType of
+    etLatin1,etUTF8,etUTF16BE: begin
+      FDefaultEncodingType:= newEncodingType;
+      FDefaultEncoding:= value;
+      FCurrentEncodingType:= newEncodingType;
+    end;
+  else
+    raise ENot_Supported_Err.create('Encoding not supported error.');
+  end;
+end;
+
+procedure TXmlStreamBuilder.setDestination(const value: TStream);
+begin
+  FDestination:= value;
+end;
+
+procedure TXmlStreamBuilder.setNewLine(const value: TdomNewLineType);
+begin
+  FNewLine:= value;
+end;
+
+function TXmlStreamBuilder.writeWideString(const sender: TXmlCustomReader;
+                                           const locator: TdomLocator;
+                                           const xmlStrg: UnicodeString): boolean;
+const
+  CR_char: Ansichar  = #13;
+  LF_char: Ansichar  = #10;
+  CRLF_str: Ansistring = #13#10;
+var
+  S: Ansistring;
+  C: AnsiChar;
+  WC: WideChar;
+  highSurrogate, lowSurrogate: WideChar;
+  i: integer;
+begin
+  if not assigned(destination)
+    then raise EParserException.create('Destination stream not specified');
+
+  result:= true;
+
+  case FCurrentEncodingType of
+
+    etUTF8:
+      try
+        S:= UTF16BEToUTF8Str(xmlStrg,false);
+        destination.writeBuffer(pointer(S)^, Length(S));
+      except
+        sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,xmlStrg);
+        result:= false;
+        exit;
+      end;
+
+    etUTF16BE: destination.writeBuffer(pointer(XMLStrg)^, Length(XMLStrg) shl 1);
+
+    etLatin1:
+      begin
+        i:= 1;
+        while i <= length(XMLStrg) do begin
+          WC:= XMLStrg[i];
+          case Word(WC) of
+          $000A: // LF
+            case FNewLine of
+              nltCRLF: destination.writeBuffer(pointer(CRLF_str)^,2);
+              ntlCR: destination.writeBuffer(CR_char,1);
+              ntlLF: destination.writeBuffer(LF_char,1);
+            end;
+          $D800..$DBFF: // High surrogate of Unicode character [$10000..$10FFFF]
+            begin
+              if i = length(XMLStrg) then begin // End of UnicodeString --> No low surrogate found
+                sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,xmlStrg);
+                result:= false;
+                exit;
+              end;
+              highSurrogate:= XMLStrg[i];
+              inc(i);
+              lowSurrogate:= XMLStrg[i];
+              if not IsUtf16LowSurrogate(lowSurrogate) then begin // No low surrogate found
+                sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,xmlStrg);
+                result:= false;
+                exit;
+              end;
+
+              S:=UTF8Encode('&#x'+IntToHex(UTF16SurrogateToInt(highSurrogate,lowSurrogate),1)+';');
+              destination.writeBuffer(pointer(S)^, Length(S));
+
+            end;
+          $DC00..$DFFF: // low surrogate
+            begin
+              sendErrorNotification(sender,ET_INVALID_CHARACTER,locator,xmlStrg);
+              result:= false;
+              exit;
+            end;
+          else
+            try
+              C:= UTF16ToIso8859_1Char(WC);
+              destination.writeBuffer(C,1);
+            except
+              on EConvertError do begin
+                S:= {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}('&#x' + IntToHex(word(WC),1) + ';');
+                destination.writeBuffer(pointer(S)^, Length(S));
+              end;
+            end;
+          end; {case ...}
+          inc(i);
+        end; {while ...}
+      end;
+
+  end; {case ...}
+end;
+
+function TXmlStreamBuilder.writeWideStrings(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                            const xmlStrgs: array of UnicodeString): boolean;
+var
+  i: longint;
+begin
+  result:= true;
+  for i:= 0 to High(xmlStrgs) do begin
+    result:= writeWideString(sender,locator,xmlStrgs[i]);
+    if not result then exit;
+  end;
+end;
+
+function TXmlStreamBuilder.CDATA(const sender: TXmlCustomReader;
+                                 const locator: TdomLocator;
+                                       data: UnicodeString): boolean;
+begin
+  if assigned(FOnCDATA) then FOnCDATA(sender,locator,data);
+
+  result:= writeWideStrings(sender,locator,['<![CDATA[', data, ']]>']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.CDATA(sender,locator,data);
+end;
+
+function TXmlStreamBuilder.charRef(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         data: UnicodeString): boolean;
+begin
+  if assigned(FOnCharRef) then FOnCharRef(sender,locator,data);
+
+  //result:= writeWideStrings(sender,locator,['<![CDATA[', data, ']]>']); AleF 
+  result:= writeWideStrings(sender,locator,[data]);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.charRef(sender,locator,data);
+end;
+
+function TXmlStreamBuilder.comment(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         data: UnicodeString): boolean;
+begin
+  if assigned(FOnComment) then FOnComment(sender,locator,data);
+
+  result:= writeWideStrings(sender,locator,['<!--', data, '-->']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.comment(sender,locator,data);
+end;
+
+function TXmlStreamBuilder.doctype(const sender: TXmlCustomReader;
+                                   const locator: TdomLocator;
+                                         aname,
+                                         pubId,
+                                         sysId,
+                                         data: UnicodeString): boolean;
+begin
+  if assigned(FOnDoctype) then FOnDoctype(sender,locator,aname,pubId,sysId,data);
+
+  result:= writeWideStrings(sender,locator, ['<!DOCTYPE ', aname,' ']);
+  if result and ((pubId <> '') or (sysId <> '')) then
+    result:= writeWideString(sender,locator, xmlAnalysePubSysId(pubId,sysId,''));
+  if result and (Length(data) = 0)
+    then result:= writeWideString(sender,locator,'>')
+    else result:= writeWideStrings(sender,locator, ['[',data,']>']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.doctype(sender,locator,aname,pubId,sysId,data);
+end;
+
+function TXmlStreamBuilder.endDocument(const sender: TXmlCustomReader;
+                                       const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndDocument) then FOnEndDocument(sender,locator);
+
+  FCurrentEncodingType:= defaultEncodingType;
+
+  if assigned(nextHandler)
+    then result:= nextHandler.endDocument(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStreamBuilder.endElement(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            namespaceURI,
+                                            tagName: UnicodeString): boolean;
+begin
+  if assigned(FOnEndElement) then FOnEndElement(sender,locator,namespaceURI,tagName);
+
+  result:= writeWideStrings(sender,locator,['</', tagName, '>']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endElement(sender,locator,namespaceURI,tagName);
+end;
+
+function TXmlStreamBuilder.endPrefixMapping(const sender: TXmlCustomReader;
+                                            const locator: TdomLocator;
+                                                  prefix: UnicodeString): boolean;
+begin
+  if assigned(FOnEndPrefixMapping) then FOnEndPrefixMapping(sender,locator,prefix);
+  if assigned(nextHandler)
+    then result:= nextHandler.endPrefixMapping(sender,locator,prefix)
+    else result:= true;
+end;
+
+function TXmlStreamBuilder.entityRef(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator;
+                                           aname: UnicodeString): boolean;
+begin
+  if assigned(FOnEntityRef) then FOnEntityRef(sender,locator,aname);
+
+  result:= writeWideStrings(sender,locator,['&', aname, ';']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.entityRef(sender,locator,aname);
+end;
+
+function TXmlStreamBuilder.PCDATA(const sender: TXmlCustomReader;
+                                  const locator: TdomLocator;
+                                        data: UnicodeString): boolean;
+var
+  i: integer;
+  content: TdomCustomStr;
+  modifiedData: UnicodeString;
+begin
+  if assigned(FOnPCDATA) then FOnPCDATA(sender,locator,data);
+
+  content:= TdomCustomStr.create;
+  try
+    for i:= 1 to length(data) do begin
+      case ord(data[i]) of
+{        38: content.addWideString('&#38');//amp;'); // Ampersand ('&')
+        60: content.addWideString('&#60');//lt;');  // Less than ('<')
+        62: content.addWideString('&#62');//gt;');  // Greater than ('>')
+        13: content.addWideString('&#xD;'); // Carriage Return (CR)}
+{        38: content.addWideString('&#38;'); // Ampersand ('&')
+        60: content.addWideString('&#60;'); // Less than ('<')
+        62: content.addWideString('&#62;'); // Greater than ('>')
+        13: content.addWideString('&#xD;'); // Carriage Return (CR)}
+        38: content.addWideString('&amp;'); // Ampersand ('&')
+        60: content.addWideString('&lt;'); // Less than ('<')
+        62: content.addWideString('&gt;'); // Greater than ('>')
+        13: content.addWideString('&#xD;'); // Carriage Return (CR)
+      else
+        content.addWideChar(data[i]);
+      end;
+    end;
+    modifiedData:= content.value;
+  finally
+    content.free;
+  end;
+
+  result:= writeWideString(sender,locator,modifiedData);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.PCDATA(sender,locator,data);
+end;
+
+function TXmlStreamBuilder.processingInstruction(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator;
+                                                       targ,
+                                                       data : UnicodeString): boolean;
+begin
+  if assigned(FOnProcessingInstruction) then FOnProcessingInstruction(sender,locator,targ,data);
+
+  if data = ''
+    then result:= writeWideStrings(sender,locator,['<?', targ, '?>'])
+    else result:= writeWideStrings(sender,locator,['<?', targ, ' ', data, '?>']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.processingInstruction(sender,locator,targ,data);
+end;
+
+function TXmlStreamBuilder.skippedEntity(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator;
+                                               aname: UnicodeString): boolean;
+begin
+  if assigned(FOnSkippedEntity) then FOnSkippedEntity(sender,locator,aname);
+  if assigned(nextHandler)
+    then result:= nextHandler.skippedEntity(sender,locator,aname)
+    else result:= true;
+end;
+
+function TXmlStreamBuilder.startDocument(const sender: TXmlCustomReader;
+                                         const locator: TdomLocator;
+                                               version,
+                                               encName: UnicodeString;
+                                               sdDl: TdomStandalone): boolean;
+const
+  BOM: UnicodeString = #$feff; // UTF-16BE Byte order mark
+var
+  newEncodingType: TdomEncodingType;
+begin
+  if assigned(FOnStartDocument) then FOnStartDocument(sender,locator,version,encName,sdDl);
+
+  result:= true;
+  if defaultEncoding = '' then begin
+    newEncodingType:= StrToEncoding(encName);
+  end else begin
+    encName:= defaultEncoding;
+    newEncodingType:= defaultEncodingType;
+  end;
+  
+  case newEncodingType of
+    etLatin1,etUTF8,etUTF16BE: begin
+      FCurrentEncodingType:= newEncodingType;
+
+      if CurrentEncodingType = etUTF16BE
+        then result:= writeWideString(sender,locator,BOM);
+
+      if result and (version = '')
+        then result:= writeWideString(sender,locator,'<?xml version="1.0"')
+        else result:= writeWideStrings(sender,locator,['<?xml version="',version,'"']);
+      if result and (encName <> '')
+        then result:= writeWideStrings(sender,locator,[' encoding="',encName,'"']);
+      if result then
+        case sdDl of
+          STANDALONE_YES: result:= writeWideStrings(sender,locator,[' standalone="yes"']);
+          STANDALONE_NO: result:= writeWideStrings(sender,locator,[' standalone="no"']);
+        end;
+      if result
+        then writeWideStrings(sender,locator,['?','>',#10]);
+
+    end;
+  else
+    sendErrorNotification(sender,ET_ENCODING_NOT_SUPPORTED,locator,encName);
+    result:= false;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startDocument(sender,locator,version,encName,sdDl);
+end;
+
+function TXmlStreamBuilder.startElement(const sender: TXmlCustomReader;
+                                        const locator: TdomLocator;
+                                              namespaceURI,
+                                              tagName: UnicodeString;
+                                              attributes: TdomNameValueList): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnStartElement) then FOnStartElement(sender,locator,namespaceURI,tagName,attributes);
+
+  result:= writeWideStrings(sender,locator,['<', tagName]);
+
+  for i:= 0 to pred(attributes.length) do begin
+    if not result then break;
+    result:= writeWideStrings(sender,locator,[' ',attributes.names[i],'="',attributes.values[i],'"']);
+  end;
+
+  if result
+    then result:= writeWideString(sender,locator,'>');
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startElement(sender,locator,namespaceURI,tagName,attributes);
+end;
+
+function TXmlStreamBuilder.startEndElement(const sender: TXmlCustomReader;
+  const locator: TdomLocator; namespaceURI, tagName: UnicodeString;
+  attributes: TdomNameValueList): boolean;
+var
+  i: integer;
+begin
+  if assigned(FOnStartElement) then FOnStartElement(sender,locator,namespaceURI,tagName,attributes);
+
+  result:= writeWideStrings(sender,locator,['<', tagName]);
+
+  for i:= 0 to pred(attributes.length) do begin
+    if not result then break;
+    result:= writeWideStrings(sender,locator,[' ',attributes.names[i],'="',attributes.values[i],'"']);
+  end;
+  if assigned(FOnEndElement) then FOnEndElement(sender,locator,namespaceURI,tagName);
+  if result then result:= writeWideString(sender,locator,'/>');
+
+  if result then
+    if assigned(nextHandler) then result:= nextHandler.startEndElement(sender,locator,namespaceURI,tagName,attributes);
+end;
+
+function TXmlStreamBuilder.startPrefixMapping(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator;
+                                                    prefix,
+                                                    uri: UnicodeString): boolean;
+begin
+  if assigned(FOnStartPrefixMapping) then FOnStartPrefixMapping(sender,locator,prefix,uri);
+  if assigned(nextHandler)
+    then result:= nextHandler.startPrefixMapping(sender,locator,prefix,uri)
+    else result:= true;
+end;
+
+function TXmlStreamBuilder.attributeDefinition(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     aname,
+                                                     attType,
+                                                     bracket,
+                                                     defaultDecl,
+                                                     attValue: UnicodeString): boolean;
+const
+  SQ: WideChar = #39; // code of '
+  DQ: WideChar = #34; // code of "
+begin
+  if assigned(FOnAttributeDefinition) then FOnAttributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+
+  result:= writeWideStrings(sender, locator, ['          ', aname, #9]);
+  if result and (Length(attType) > 0)
+    then result:= writeWideStrings(sender, locator, [attType, #9]);
+  if result and (Length(bracket) > 0)
+    then result:= writeWideString(sender, locator, bracket);
+  if result and (Length(defaultDecl) > 0)
+    then result:= writeWideStrings(sender, locator, [#9, defaultDecl]);
+  if result and ((Length(defaultDecl) = 0) or (defaultDecl = UnicodeString('#FIXED'))) then begin
+    if Pos(DQ, attValue) > 0
+      then result:= writeWideStrings(sender, locator, [#9, SQ, attValue, SQ, #10])
+      else result:= writeWideStrings(sender, locator, [#9, DQ, attValue, DQ, #10]);
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.attributeDefinition(sender,locator,aname,attType,bracket,defaultDecl,attValue);
+end;
+
+function TXmlStreamBuilder.conditionalSection(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator;
+                                                    includeStmt,
+                                                    data: UnicodeString): boolean;
+begin
+  if assigned(FOnConditionalSection) then FOnConditionalSection(sender,locator,includeStmt,data);
+
+  result:= writeWideStrings(sender,locator,['<![',includeStmt,'[',data,']]>']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.conditionalSection(sender,locator,includeStmt,data);
+end;
+
+function TXmlStreamBuilder.DTDcomment(const sender: TXmlCustomReader;
+                                      const locator: TdomLocator;
+                                            data: UnicodeString): boolean;
+begin
+  if assigned(FOnDtdComment) then FOnDtdComment(sender,locator,data);
+
+  result:= writeWideStrings(sender,locator,[#10'<!--', data, '-->']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.DTDcomment(sender,locator,data);
+end;
+
+function TXmlStreamBuilder.DTDprocessingInstruction(const sender: TXmlCustomReader;
+                                                    const locator: TdomLocator;
+                                                          targ,
+                                                          data : UnicodeString): boolean;
+begin
+  if assigned(FOnDtdProcessingInstruction) then FOnDtdProcessingInstruction(sender,locator,targ,data);
+
+  if data = ''
+    then result:= writeWideStrings(sender,locator,[#10'<?', targ, '?>'])
+    else result:= writeWideStrings(sender,locator,[#10'<?', targ, ' ', data, '?>']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.DTDprocessingInstruction(sender,locator,targ,data);
+end;
+
+function TXmlStreamBuilder.elementTypeDeclaration(const sender: TXmlCustomReader;
+                                                  const locator: TdomLocator;
+                                                        aname,
+                                                        data: UnicodeString): boolean;
+begin
+  if assigned(FOnElementTypeDeclaration) then FOnElementTypeDeclaration(sender,locator,aname,data);
+
+  result:= writeWideStrings(sender, locator, [#10'<!ELEMENT ', aname, #9, data, '>']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.elementTypeDeclaration(sender,locator,aname,data);
+end;
+
+function TXmlStreamBuilder.endAttListDeclaration(const sender: TXmlCustomReader;
+                                                 const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndAttListDeclaration) then FOnEndAttListDeclaration(sender,locator);
+
+  result:= writeWideString(sender,locator,'>');
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.endAttListDeclaration(sender,locator);
+end;
+
+function TXmlStreamBuilder.endExtDtd(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnEndExtDtd) then FOnEndExtDtd(sender,locator);
+
+  FCurrentEncodingType:= etUnknown;
+
+  if assigned(nextHandler)
+    then result:= nextHandler.endExtDtd(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStreamBuilder.endIntDtd(const sender: TXmlCustomReader;
+                                     const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnendIntDtd) then FOnendIntDtd(sender,locator);
+
+  FCurrentEncodingType:= etUnknown;
+
+  if assigned(nextHandler)
+    then result:= nextHandler.endIntDtd(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStreamBuilder.entityDeclaration(const sender: TXmlCustomReader;
+                                             const locator: TdomLocator;
+                                                   aname,
+                                                   entityValue,
+                                                   pubId,
+                                                   sysId,
+                                                   notaName: UnicodeString): boolean;
+const
+  SQ: WideChar = #39; // code of '
+  DQ: WideChar = #34; // code of "
+begin
+  if assigned(FOnEntityDeclaration) then FOnEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName);
+
+  result:= writeWideStrings(sender, locator, [#10'<!ENTITY ', aname, #9]);
+  if result then begin
+    if ((pubId = '') and (sysId = '')) then begin
+      if Pos(DQ, entityValue) > 0
+        then result:= writeWideStrings(sender, locator, [SQ, entityValue, SQ])
+        else result:= writeWideStrings(sender, locator, [DQ, entityValue, DQ]);
+    end else begin
+      if pubId = '' then begin
+        if Pos(DQ, sysId) > 0
+          then result:= writeWideStrings(sender, locator, ['SYSTEM ', SQ, sysId, SQ])
+          else result:= writeWideStrings(sender, locator, ['SYSTEM ', DQ, sysId, DQ]);
+      end else begin
+        if sysId = '' then begin
+          result:= writeWideStrings(sender, locator, [' PUBLIC "',pubId,'"']);
+        end else begin
+          if Pos(DQ, sysId) > 0
+            then result:= writeWideStrings(sender, locator, ['PUBLIC "', pubId, '" ', SQ, sysId, SQ])
+            else result:= writeWideStrings(sender, locator, ['PUBLIC "', pubId, '" "', sysId, '"']);
+        end;
+      end; {if ...}
+      if result and (notaName <> '')
+       then result:= writeWideStrings(sender, locator, [' NDATA ',notaName]);
+    end;
+  end;
+  if result
+    then result:= writeWideString(sender, locator, '>');
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.entityDeclaration(sender,locator,aname,entityValue,pubId,sysId,notaName);
+end;
+
+function TXmlStreamBuilder.notationDeclaration(const sender: TXmlCustomReader;
+                                               const locator: TdomLocator;
+                                                     aname,
+                                                     pubId,
+                                                     sysId: UnicodeString): boolean;
+const
+  SQ: WideChar = #39; // code of '
+  DQ: WideChar = #34; // code of "
+begin
+  if assigned(FOnNotationDeclaration) then FOnNotationDeclaration(sender,locator,aname,pubId,sysId);
+
+  result:= writeWideStrings(sender, locator, [#10'<!NOTATION ', aname, #9]);
+  if result then begin
+    if pubId = '' then begin
+      if Pos(DQ, sysId) > 0
+        then result:= writeWideStrings(sender, locator, ['SYSTEM ', SQ, sysId, SQ])
+        else result:= writeWideStrings(sender, locator, ['SYSTEM ', DQ, sysId, DQ]);
+    end else begin
+      if sysId = '' then begin
+        result:= writeWideStrings(sender, locator, [' PUBLIC "',pubId,'"']);
+      end else begin
+        if Pos(DQ, sysId) > 0
+          then result:= writeWideStrings(sender, locator, ['PUBLIC "', pubId, '" ', SQ, sysId, SQ])
+          else result:= writeWideStrings(sender, locator, ['PUBLIC "', pubId, '" "', sysId, '"']);
+      end;
+    end; {if ...}
+  end;
+  if result
+    then result:= writeWideString(sender, locator, '>');
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.notationDeclaration(sender,locator,aname,pubId,sysId);
+end;
+
+function TXmlStreamBuilder.parameterEntityDeclaration(const sender: TXmlCustomReader;
+                                                      const locator: TdomLocator;
+                                                            aname,
+                                                            entityValue,
+                                                            pubId,
+                                                            sysId: UnicodeString): boolean;
+const
+  SQ: WideChar = #39; // code of '
+  DQ: WideChar = #34; // code of "
+begin
+  if assigned(FOnParameterEntityDeclaration) then FOnParameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+
+  result:= writeWideStrings(sender, locator, [#10'<!ENTITY % ', aname, #9]);
+  if result then begin
+    if ((pubId = '') and (sysId = '')) then begin
+      if Pos(DQ, entityValue) > 0
+        then result:= writeWideStrings(sender, locator, [SQ, entityValue, SQ])
+        else result:= writeWideStrings(sender, locator, [DQ, entityValue, DQ]);
+    end else begin
+      if pubId = '' then begin
+        if Pos(DQ, sysId) > 0
+          then result:= writeWideStrings(sender, locator, ['SYSTEM ', SQ, sysId, SQ])
+          else result:= writeWideStrings(sender, locator, ['SYSTEM ', DQ, sysId, DQ]);
+      end else begin
+        if sysId = '' then begin
+          result:= writeWideStrings(sender, locator, [' PUBLIC "',pubId,'"']);
+        end else begin
+          if Pos(DQ, sysId) > 0
+            then result:= writeWideStrings(sender, locator, ['PUBLIC "', pubId, '" ', SQ, sysId, SQ])
+            else result:= writeWideStrings(sender, locator, ['PUBLIC "', pubId, '" "', sysId, '"']);
+        end;
+      end; {if ...}
+    end;
+  end;
+  if result
+    then result:= writeWideString(sender, locator, '>');
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.parameterEntityDeclaration(sender,locator,aname,entityValue,pubId,sysId);
+end;
+
+function TXmlStreamBuilder.parameterEntityRef(const sender: TXmlCustomReader;
+                                              const locator: TdomLocator;
+                                                    aname: UnicodeString): boolean;
+begin
+  if assigned(FOnParameterEntityRef) then FOnParameterEntityRef(sender,locator,aname);
+
+  result:= writeWideStrings(sender, locator, [#10'%',aname,';']);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.parameterEntityRef(sender,locator,aname);
+end;
+
+function TXmlStreamBuilder.startAttListDeclaration(const sender: TXmlCustomReader;
+                                                   const locator: TdomLocator;
+                                                         aname: UnicodeString): boolean;
+begin
+  if assigned(FOnStartAttListDeclaration) then FOnStartAttListDeclaration(sender,locator,aname);
+
+  result:= writeWideStrings(sender,locator,[#10'<!ATTLIST ', aname, #10]);
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startAttListDeclaration(sender,locator,aname);
+end;
+
+function TXmlStreamBuilder.startExtDtd(const sender: TXmlCustomReader;
+                                       const locator: TdomLocator;
+                                             version,
+                                             encName: UnicodeString): boolean;
+const
+  BOM: UnicodeString = #$feff; // UTF-16BE Byte order mark
+var
+  newEncodingType: TdomEncodingType;
+begin
+  if assigned(FOnstartExtDtd) then FOnstartExtDtd(sender,locator,version,encName);
+
+  result:= true;
+  if defaultEncoding = '' then begin
+    newEncodingType:= StrToEncoding(encName);
+  end else begin
+    encName:= defaultEncoding;
+    newEncodingType:= defaultEncodingType;
+  end;
+
+  case newEncodingType of
+    etLatin1,etUTF8,etUTF16BE: begin
+      FCurrentEncodingType:= newEncodingType;
+
+      if CurrentEncodingType = etUTF16BE
+        then result:= writeWideString(sender,locator,BOM);
+
+      if result and (version = '')
+        then result:= writeWideString(sender,locator,'<?xml version="1.0"')
+        else result:= writeWideStrings(sender,locator,['<?xml version="',version,'"']);
+      if result and (encName <> '')
+        then result:= writeWideStrings(sender,locator,[' encoding="',encName,'"']);
+      if result
+        then writeWideString(sender,locator,'?>');
+
+    end;
+  else
+    sendErrorNotification(sender,ET_ENCODING_NOT_SUPPORTED,locator,encName);
+    result:= false;
+  end;
+
+  if result
+    then if assigned(nextHandler)
+      then result:= nextHandler.startExtDtd(sender,locator,version,encName);
+end;
+
+function TXmlStreamBuilder.startIntDtd(const sender: TXmlCustomReader;
+                                       const locator: TdomLocator): boolean;
+begin
+  if assigned(FOnstartIntDtd) then FOnstartIntDtd(sender,locator);
+
+  FCurrentEncodingType:= defaultEncodingType;
+
+  if assigned(nextHandler)
+    then result:= nextHandler.startIntDtd(sender,locator)
+    else result:= true;
+end;
+
+function TXmlStreamBuilder.resolvePE(    PEReferenceName: UnicodeString;
+                                     var PEValue: UnicodeString;
+                                     var error: TXmlErrorType): boolean;
+begin
+  if assigned(nextHandler)
+    then result:= nextHandler.resolvePE(PEReferenceName,PEValue,error)
+    else begin
+      PEValue:= '';
+      error:= ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE;
+      result:= true;
+    end;
+end;
+
+procedure TXmlStreamBuilder.notifyReset;
+begin
+  FCurrentEncodingType:= etUnknown;
+  if assigned(nextHandler) then nextHandler.notifyReset;
+end;
+
+
+
+// ++++++++++++++++++++++ TXmlStandardDocReader ++++++++++++++++++++++++
+constructor TXmlStandardDocReader.create(AOwner: TComponent);
+begin
+  inherited create(AOwner);
+  suppressXmlns:= false;
+  prefixMapping:= true;
+  FPrefixMappingStack:= TList.Create;
+end;
+
+destructor TXmlStandardDocReader.destroy;
+begin
+  clearPrefixMappingStack;
+  FPrefixMappingStack.free;
+  inherited destroy;
+end;
+
+function TXmlStandardDocReader.analyzeElement(const locator: TdomLocator;
+                                              const source: UnicodeString;
+                                                out tagName: UnicodeString;
+                                              const attributes: TdomNameValueList): boolean;
+// 'Source': The element, to be analyzed.
+// 'tagName': Returns the namen of the element.
+// 'attributes': Returns a list of attributes, if existing.
+const
+  NULL:  WideChar = #0; // end of UnicodeString mark
+//  TAB:   WideChar = #9;
+//  LF:    WideChar = #10;
+//  CR:    WideChar = #13;
+//  SPACE: WideChar = #32;
+  SQ:    WideChar = #39;  // code of '
+  DQ:    WideChar = #34;  // code of "
+  EQ:    WideChar = #61;  // code of =
+var
+  head,tail: PWideChar;
+  attrName,attrValue: UnicodeString;
+  quotationMark: WideChar;
+begin
+  result:= true;
+  attributes.clear;
+  head:= PWideChar(source);
+  tail:= head;
+  while not IsXmlWhiteSpace(tail^) and (tail^ <> NULL) do
+    inc(tail);
+  setString(tagName,head,tail-head);
+
+  head:= tail;
+  while head^ <> NULL do begin
+    while IsXmlWhiteSpace(head^) and (head^ <> NULL) do
+      inc(head);
+    if head^ <> NULL then begin
+      tail:= head;
+      while not IsXmlWhiteSpace(tail^) and (tail^ <> NULL) and (tail^ <> EQ) do
+      //while not IsXmlWhiteSpace(tail^) and not (tail^ in [NULL,EQ]) do
+        inc(tail);
+      setString(attrName,head,tail-head);
+
+      head:= tail;
+      while IsXmlWhiteSpace(head^) and (head^ <> NULL) do
+        inc(head);
+      if head^ <> EQ then begin
+        result:= sendErrorNotification(ET_MISSING_EQUALITY_SIGN,locator,'');
+        exit;
+      end;
+      inc(head);
+      while IsXmlWhiteSpace(head^) and (head^ <> NULL) do
+        inc(head);
+      if (head^ <> SQ) and (head^ <> DQ) then begin
+      // if not (head^ in [SQ,DQ]) then begin
+        result:= sendErrorNotification(ET_MISSING_QUOTATION_MARK,locator,'');
+        exit;
+      end;
+      quotationMark:= WideChar(head^);
+      inc(head);
+      tail:= head;
+
+      while (tail^ <> NULL) and (tail^ <> quotationMark) do
+      // while not (tail^ in [NULL,quotationMark]) do
+        inc(tail);
+      if tail^ = NULL then begin
+        result:= sendErrorNotification(ET_MISSING_QUOTATION_MARK,locator,'');
+        exit;
+      end;
+      setString(attrValue,head,tail-head);
+
+      if attributes.indexOfName(attrName) > -1 then begin
+        result:= sendErrorNotification(ET_DOUBLE_ATTRIBUTE_NAME,locator,'');
+        exit;
+      end;
+      attributes.add(attrName,attrValue);
+
+      head:= tail;
+      inc(head);
+      if not IsXmlWhiteSpace(head^) and (head^ <> NULL) then begin
+        result:= sendErrorNotification(ET_MISSING_WHITE_SPACE,locator,'');
+        exit;
+      end;
+    end; {if ...}
+  end; {while ...}
+end;
+
+procedure TXmlStandardDocReader.clearPrefixMappingStack;
+begin
+  with FPrefixMappingStack do begin
+    while count > 0 do begin
+      TdomNameValueList(last).free;
+      delete(pred(count));
+    end;
+  end;
+end;
+
+function TXmlStandardDocReader.writeProcessingInstruction(const locator: TdomLocator;
+                                                          const content: UnicodeString): boolean;
+var
+  TargetName,AttribSequence: UnicodeString;
+begin
+  XMLAnalyseTag(content,TargetName,AttribSequence);
+  if assigned(NextHandler)
+    then result:= NextHandler.ProcessingInstruction(self,locator,TargetName,AttribSequence)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeComment(const locator: TdomLocator;
+                                            const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.comment(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeCDATA(const locator: TdomLocator;
+                                          const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.cdata(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeCharRef(const locator: TdomLocator;
+                                            const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.charRef(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writePCDATA(const locator: TdomLocator;
+                                           const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.pcdata(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeStartDocument(const locator: TdomLocator;
+                                                        version,
+                                                        encName: UnicodeString;
+                                                        sdDl: TdomStandalone): boolean;
+begin
+  clearPrefixMappingStack;
+  if assigned(NextHandler)
+    then result:= NextHandler.startDocument(self,locator,version,encName,sdDl)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeStartElement(const locator: TdomLocator;
+                                                 const content: UnicodeString;
+                                                   out tagName: UnicodeString): boolean;
+var
+  attrList: TdomNameValueList;
+  attributeList: TdomNameValueList;
+  pfxUriList: TdomNameValueList;
+  i: integer;
+  suppressThisAttr: boolean;
+begin
+  attrList:= TdomNameValueList.create;
+  try
+    result:= analyzeElement(locator,content,tagName,attrList);
+    if result then begin
+      if assigned(NextHandler) then begin
+
+        attributeList:= TdomNameValueList.create;
+        try
+          pfxUriList:= TdomNameValueList.create;
+          FPrefixMappingStack.Add(pfxUriList);
+
+          with attrList do begin
+            for i:= 0 to pred(length) do begin
+              suppressThisAttr:= false;
+              if FPrefixMapping or FSuppressXmlns then begin
+                if IsXmlDefaultAttName(names[i]) then begin
+                  suppressThisAttr:= FSuppressXmlns;
+                  pfxUriList.add('',values[i]);
+                end else if IsXmlPrefixedAttName(names[i]) then begin
+                  suppressThisAttr:= FSuppressXmlns;
+                  pfxUriList.add(xmlExtractLocalName(names[i]),values[i]);
+                end;
+              end;
+              if not suppressThisAttr then attributeList.add(names[i],values[i]);
+            end; {for ...}
+          end; {with ...}
+
+          if FPrefixMapping then
+            with pfxUriList do
+              for i:= 0 to pred(length) do begin
+                result:= writeStartPrefixMapping(locator,names[i],values[i]);
+                if not result then break;
+              end;
+
+          result:= NextHandler.startElement(self,locator,'',tagName,attributeList)
+
+        finally
+          attributeList.free;
+        end;
+
+      end else result:= true;
+    end;
+  finally
+    attrList.free;
+  end;
+end;
+
+function TXmlStandardDocReader.writeStartPrefixMapping(const locator: TdomLocator;
+                                                             prefix,
+                                                             uri: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startPrefixMapping(self,locator,prefix,uri)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeEndDocument(const locator: TdomLocator): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endDocument(self,locator)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeEndElement(const locator: TdomLocator;
+                                               const content: UnicodeString): boolean;
+var
+  pfxUriList: TdomNameValueList;
+  i: integer;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endElement(self,locator,'',content)
+    else result:= true;
+
+  with FPrefixMappingStack do begin
+    if count > 0 then begin
+      pfxUriList:= last;
+      delete(pred(count));
+      try
+        if FPrefixMapping then
+          with pfxUriList do
+            for i:= pred(length) downto 0 do begin
+              if not result then break;
+              result:= writeEndPrefixMapping(locator,names[i]);
+            end;
+      finally
+        pfxUriList.free;
+      end;
+    end;
+  end;
+end;
+
+function TXmlStandardDocReader.writeEndPrefixMapping(const locator: TdomLocator;
+                                                           prefix: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endPrefixMapping(self,locator,prefix)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeEmptyElement(const locator: TdomLocator;
+                                                 const content: UnicodeString): boolean;
+var
+  tagName: UnicodeString;
+begin
+  result:= writeStartElement(locator,content,tagName);
+  if result
+    then result:= writeEndElement(locator,tagName);
+end;
+
+function TXmlStandardDocReader.writeEntityRef(const locator: TdomLocator;
+                                              const content: UnicodeString): boolean;
+var
+  EntityName: UnicodeString;
+begin
+  EntityName:= copy(content,2,length(content)-2);
+
+  if (EntityName='lt') then begin
+    Result:= writeCharRef(locator, '&#60;');
+    Exit;
+  end else if (EntityName='gt') then begin
+    Result:= writeCharRef(locator, '&#62;');
+    Exit;
+  end else if (EntityName='amp') then begin
+    Result:= writeCharRef(locator, '&#38;');
+    Exit;
+  end else if (EntityName='apos') then begin
+    Result:= writeCharRef(locator, '&#39;');
+    Exit;
+  end else if (EntityName='quot') then begin
+    Result:= writeCharRef(locator, '&#34;');
+    Exit;
+  end;
+
+  if assigned(NextHandler)
+    then result:= NextHandler.EntityRef(self,locator,EntityName)
+    else result:= true;
+end;
+
+function TXmlStandardDocReader.writeDoctype(const locator: TdomLocator;
+                                            const content: UnicodeString): boolean;
+var
+  DeclAnfg: integer;
+  ExternalId,intro,name,SystemLiteral,PubidLiteral: UnicodeString;
+  NakedContent,data,dummy1,dummy2: UnicodeString;
+  Error: boolean;
+begin
+  result:= true;
+  if (copy(content,1,9) <> '<!DOCTYPE')
+    or (content[length(content)] <> '>')
+    or (not IsXmlWhiteSpace(content[10])) then begin
+    result:= sendErrorNotification(ET_INVALID_DOCTYPE,locator,'');
+  end else begin
+    NakedContent:= XmlTrunc(copy(content,11,length(content)-11));
+    DeclAnfg:= Pos(UnicodeString('['),NakedContent);
+    if DeclAnfg = 0 then begin
+      intro:= NakedContent;
+      Data:= '';
+    end else begin
+      intro:= copy(NakedContent,1,DeclAnfg-1);
+      dummy1:= copy(NakedContent,DeclAnfg,length(NakedContent)-DeclAnfg+1);
+      XMLTruncAngularBrackets(dummy1,data,error); {Diese umst�ndliche Zuweisung ist wegen Delphi-Problem von WideStrings bei copy n�tig}
+      if error then begin
+        result:= sendErrorNotification(ET_INVALID_DOCTYPE,locator,'');
+      end; {if ...}
+    end; {if ...}
+
+    if result then begin
+      XMLAnalyseTag(intro,name,ExternalId);
+      if not IsXmlName(name) then begin
+        result:= sendErrorNotification(ET_INVALID_DOCTYPE,locator,'');
+      end else begin
+
+        dummy1:= XmlTrunc(ExternalId);
+        ExternalId:= dummy1; {Diese umst�ndliche Zuweisung ist wegen der Verwendung von WideStrings n�tig}
+        if ExternalId <> '' then begin
+          XMLAnalyseEntityDef(ExternalId,dummy1,SystemLiteral,PubidLiteral,dummy2,Error);
+          if Error or (dummy1 <> '') or (dummy2 <> '') then begin
+            result:= sendErrorNotification(ET_INVALID_DOCTYPE,locator,'');
+          end; {if ...}
+        end;
+
+        if result
+          then if assigned(NextHandler)
+            then result:= NextHandler.doctype(self,locator,name,PubidLiteral,SystemLiteral,Data);
+
+      end; {if ... else ...}
+    end; {if ...}
+  end; {if ... else ...}
+end;
+
+function TXmlStandardDocReader.parse(const inputSource: TXmlInputSource): boolean;
+const
+//  CR: WideChar  = #13;
+//  LF: WideChar  = #10;
+  QM: WideChar  = '?';
+//  ampCode: word = 38; // code of &
+//  gtCode: word = 60; // code of <
+  SingleQuote: WideChar = #39; // code of '
+  DoubleQuote: WideChar = #34; // code of "
+  NUMBERSIGN: WideChar = #35;  // code of #
+  SOLIDUS: WideChar = #47;     // code of /
+  PISTART: UnicodeString = '<?';
+  PIEND: UnicodeString = '?>';
+  COMMENTSTART: UnicodeString = '<!--';
+  CDATASTART: UnicodeString = '<![CDATA[';
+  DOCTYPESTART: UnicodeString = '<!DOCTYPE';
+var
+  l,offset: integer;
+  str1: WideChar;
+  dummy,invalidStr,subEndMarker,SubStartMarker: UnicodeString;
+  SingleQuoteOpen,DoubleQuoteOpen,BracketOpened: boolean;
+  pieceType: TdomPieceType;
+  content: TdomCustomStr;
+begin
+  PieceType:= xmlUnknown;
+  subEndMarker:= '';
+  subStartMarker:= '';
+  SingleQuoteOpen:= false;
+  DoubleQuoteOpen:= false;
+  BracketOpened:= false;
+  result:= true;
+  content:= TdomCustomStr.create;
+  try
+
+    with inputSource do
+      writeStartDocument(locator,versionNumber,encodingName,standalone);
+    while InputSource.getNextWideChar(str1) do begin
+      if not result then break;
+      if not IsXmlChar(str1) then begin
+        content.addWideChar(str1);
+        inputsource.locator.setStartMark;
+        if str1 = #0
+          then invalidStr:= ''
+          else invalidStr:= UnicodeString(str1);
+        result:= sendErrorNotification(ET_INVALID_CHARACTER,inputSource.locator,invalidStr);
+      end;
+
+      case PieceType of
+
+        xmlPCData: begin
+          if str1 = '<' then begin
+            result:= writePCDATA(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlStartTag;
+            inputsource.locator.setStartMark;
+          end else
+          if str1 = '&' then begin
+            result:= writePCDATA(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlEntityRef;
+            inputsource.locator.setStartMark;
+          end;
+          content.AddWideChar(Str1);
+        end;
+
+        xmlEntityRef: begin
+          content.AddWideChar(str1);
+          if str1 = ';' then begin
+            if content[2] = NUMBERSIGN
+              then result:= writeCharRef(inputSource.Locator,content.value)
+              else result:= writeEntityRef(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlUnknown;
+          end;
+        end;
+
+        xmlStartTag: begin
+          content.AddWideChar(str1);
+          case content.length of
+            2: if content.startsWith(PISTART) then PieceType:= xmlProcessingInstruction;
+            4: if content.startsWith(COMMENTSTART) then PieceType:= xmlComment;
+            9: if content.startsWith(CDATASTART) then begin
+                 PieceType:= xmlCDATA;
+               end else
+               if content.startsWith(DOCTYPESTART) then begin
+                 PieceType:= xmlDoctype;
+                 subEndMarker:= '';
+                 subStartMarker:= '';
+                 BracketOpened:= false;
+               end;
+          end;
+
+          // Count quotation marks:
+          if (str1 = SingleQuote) and (not DoubleQuoteOpen) then begin
+            SingleQuoteOpen:= not SingleQuoteOpen;
+          end else if (str1 = DoubleQuote) and (not SingleQuoteOpen) then begin
+            DoubleQuoteOpen:= not DoubleQuoteOpen;
+          end else if str1 = '>' then begin
+            if (not DoubleQuoteOpen) and (not SingleQuoteOpen) then begin
+              if content[2] = SOLIDUS then begin
+                l:= content.length;
+                offset:= 3;
+                // eliminate white-space after tag name:
+                while (l-offset > 0) and IsXmlWhiteSpace(content[l-offset+2]) do
+                  inc(offset);
+                result:= writeEndElement(inputSource.Locator,copy(content.value,3,l-offset))
+              end else begin if content[content.length-1] = SOLIDUS
+                then result:= writeEmptyElement(inputSource.Locator,copy(content.value,2,content.length-3))
+                else result:= writeStartElement(inputSource.Locator,copy(content.value,2,content.length-2),dummy);
+              end;
+              content.reset;
+              PieceType:= xmlUnknown;
+            end;
+          end;
+        end;
+
+        xmlProcessingInstruction: begin
+          content.addWideChar(str1);
+          if str1 = '>' then
+            if content[content.length-1] = QM then begin
+              result:= writeProcessingInstruction(inputSource.Locator,copy(content.value,3,content.length-4));
+              content.reset;
+              PieceType:= xmlUnknown;
+            end;
+        end;
+
+        xmlComment: begin
+          content.AddWideChar(str1);
+          if str1 = '>' then
+            if content[content.length-1] = '-' then
+              if content[content.length-2] = '-' then
+                if content.length > 6 then begin
+                  result:= writeComment(inputSource.Locator,copy(content.value,5,content.length-7));
+                  content.reset;
+                  PieceType:= xmlUnknown;
+                end;
+        end;
+
+        xmlCDATA: begin
+          content.AddWideChar(str1);
+          if str1 = '>' then
+            if content[content.length-1] = ']' then
+              if content[content.length-2] = ']' then begin
+                result:= writeCDATA(inputSource.Locator,copy(content.value,10,content.length-12));
+                content.reset;
+                PieceType:= xmlUnknown;
+              end;
+        end;
+
+        xmlDoctype: begin
+          content.AddWideChar(str1);
+          if (SubEndMarker = '') then begin
+
+            if (str1 = SingleQuote) and (not DoubleQuoteOpen) then begin
+              SingleQuoteOpen := not SingleQuoteOpen;
+            end else if (str1 = DoubleQuote) and (not SingleQuoteOpen) then begin
+              DoubleQuoteOpen := not DoubleQuoteOpen;
+            end;
+
+            if BracketOpened then begin
+              if not (SingleQuoteOpen or DoubleQuoteOpen) then begin
+                if str1 = '<' then begin
+                  SubStartMarker:= '<';
+                end else if (str1 = '!') and (SubStartMarker = '<') then begin
+                  SubStartMarker:= '<!';
+                end else if (str1 = QM) and (SubStartMarker = '<') then begin
+                  SubStartMarker:= '';
+                  SubEndMarker:= PIEND;
+                end else if (str1 = '-') and (SubStartMarker = '<!')then begin
+                  SubStartMarker:= '<!-';
+                end else if (str1 = '-') and (SubStartMarker = '<!-')then begin
+                  SubStartMarker:= '';
+                  SubEndMarker:= '-->';
+                end else if SubStartMarker <> '' then begin
+                  SubStartMarker:= '';
+                end;
+                if (str1 = ']')
+                  and (not SingleQuoteOpen)
+                  and (not DoubleQuoteOpen)
+                  then BracketOpened:= false;
+              end; {if not ...}
+            end else begin {if BracketOpened ... }
+              if (str1 = '[')
+                and (not SingleQuoteOpen)
+                and (not DoubleQuoteOpen) then BracketOpened:= true;
+            end; {if BracketOpened ... else ...}
+
+          end else begin; {if (SubEndMarker = '') ...}
+            if content.endsWith(SubEndMarker) then SubEndMarker:= '';
+          end; {if (SubEndMarker = '') ... else ...}
+
+          if (not DoubleQuoteOpen)
+            and (not SingleQuoteOpen)
+            and (not BracketOpened)
+            and (SubEndMarker = '')
+            and (str1 = '>')
+            then begin
+              result:= writeDoctype(inputSource.Locator,content.value);
+              content.reset;
+              PieceType:= xmlUnknown;
+            end;
+        end; {xmlDoctype: ...}
+
+        xmlUnknown: begin
+          if str1 = '<' then PieceType:= xmlStartTag
+          else if str1 = '&' then PieceType:= xmlEntityRef
+          else PieceType:= xmlPCData;
+          content.AddWideChar(Str1);
+          inputsource.locator.setStartMark;
+        end;
+
+      end; {case ...}
+    end; {while ...}
+
+    if result
+      then if content.length > 0
+        then if PieceType= xmlPCData
+          then result:= writePCDATA(inputSource.Locator,content.value)
+          else result:= sendErrorNotification(ET_INVALID_CHARACTER,inputSource.locator,content.value);
+
+    if result
+      then result:= writeEndDocument(inputSource.Locator);
+
+  finally
+    clearPrefixMappingStack;
+    content.free;
+  end; {try}
+end;
+
+
+
+// +++++++++++++++++++++ TXmlStandardDtdReader +++++++++++++++++++++
+function TXmlStandardDtdReader.findNextAttDef(const decl: UnicodeString;
+                                                var aname,
+                                                    attType,
+                                                    bracket,
+                                                    defaultDecl,
+                                                    attValue,
+                                                    rest: UnicodeString): boolean;
+// Return value: 'false' if a wellformedness error occured; 'true' otherwise.
+var
+  i,j: integer;
+  FindBracket, FindDefaultDecl, FindAttValue: boolean;
+  QuoteType: WideChar;
+begin
+  result:= true;
+
+  attType:= '';
+  attValue:= '';
+  bracket:= '';
+  findAttValue:= false;
+  findBracket:= false;
+  findDefaultDecl:= false;
+  defaultDecl:= '';
+  aname:= '';
+  rest:= '';
+
+  if Length(Decl) = 0
+    then begin result:= false; exit; end;
+  i:= 1;
+
+  {White-space?}
+  while IsXmlWhiteSpace(Decl[i]) do begin
+    inc(i);
+    if i > length(Decl)
+      then begin result:= false; exit; end;
+  end;
+  j:= i;
+
+  {name?}
+  while not IsXmlWhiteSpace(Decl[i]) do begin
+    inc(i);
+    if i > length(Decl)
+      then begin result:= false; exit; end;
+  end;
+  aname:= copy(Decl,j,i-j);
+
+  {White-space?}
+  while IsXmlWhiteSpace(Decl[i]) do begin
+    inc(i);
+    if i > length(Decl)
+      then begin result:= false; exit; end;
+  end;
+  j:= i;
+
+  if Decl[j] = '(' then FindBracket:= true;
+
+  {attType?}
+  if not FindBracket then begin
+    while not IsXmlWhiteSpace(Decl[i]) do begin
+      inc(i);
+      if i > length(Decl)
+        then begin result:= false; exit; end;
+    end;
+    attType:= copy(Decl,j,i-j);
+    if attType = 'NOTATION' then FindBracket:= true;
+
+    {White-space?}
+    while IsXmlWhiteSpace(Decl[i]) do begin
+      inc(i);
+      if i > length(Decl)
+        then begin result:= false; exit; end;
+    end;
+    j:= i;
+  end; {if ...}
+
+  {Bracket?}
+  if FindBracket then begin
+    if Decl[j] <> '('
+      then begin result:= false; exit; end;
+    while not (Decl[i] = ')') do begin
+      inc(i);
+      if i >= length(Decl)
+        then begin result:= false; exit; end;
+    end;
+    Bracket:= copy(Decl,j,i-j+1);
+
+    {White-space?}
+    inc(i);
+    if not IsXmlWhiteSpace(Decl[i])
+      then begin result:= false; exit; end;
+    while IsXmlWhiteSpace(Decl[i]) do begin
+      inc(i);
+      if i > length(Decl)
+        then begin result:= false; exit; end;
+    end;
+    j:= i;
+  end; {if ...}
+
+  if Decl[j] = '#'
+    then FindDefaultDecl:= true
+    else FindAttValue:= true;
+
+  {defaultDecl?}
+  if FindDefaultDecl then begin
+    while not IsXmlWhiteSpace(Decl[i]) do begin
+      inc(i);
+      if i > length(Decl) then break;
+    end; {while ...}
+    defaultDecl:= copy(Decl,j,i-j);
+    if defaultDecl = '#FIXED' then begin
+      FindAttValue:= true;
+      {White-space?}
+      if i > length(Decl)
+        then begin result:= false; exit; end;
+      while IsXmlWhiteSpace(Decl[i]) do begin
+        inc(i);
+        if i > length(Decl)
+          then begin result:= false; exit; end;
+      end; {while ...}
+      j:= i;
+    end; {if ...}
+  end; {if ...}
+
+  {attValue?}
+  if FindAttValue then begin
+    if i = length(Decl)
+      then begin result:= false; exit; end;
+    QuoteType:= Decl[i];
+    if not ( (QuoteType = '"') or (QuoteType = #$0027))
+      then begin result:= false; exit; end;
+    inc(i);
+    while not (Decl[i] = QuoteType) do begin
+      inc(i);
+      if i > length(Decl)
+        then begin result:= false; exit; end;
+    end; {while ...}
+    attValue:= copy(Decl,j+1,i-j-1);
+    inc(i);
+  end; {if ...}
+
+  Rest:= copy(Decl,i,length(Decl)-i+1);
+end;
+
+function TXmlStandardDtdReader.includeAsPE(const inputSource: TXmlInputSource;
+                                             var s: UnicodeString): boolean;
+begin
+  result:= includeInLiteral(inputSource,s);
+  s:= concat(#$20,s,#$20);
+end;
+
+function TXmlStandardDtdReader.includeInLiteral(const inputSource: TXmlInputSource;
+                                                  var s: UnicodeString): boolean;
+var
+  str1: WideChar;
+  PEName: TdomCustomStr;
+  errType: TXmlErrorType;
+  invalidStr: UnicodeString;
+begin
+  s:= '';
+  result:= true;
+  PEName:= TdomCustomStr.create;
+  try
+
+    while InputSource.getNextWideChar(str1) do begin
+
+      if not IsXmlChar(str1) then begin
+        inputsource.locator.setStartMark;
+        if str1 = #0
+          then invalidStr:= ''
+          else invalidStr:= UnicodeString(str1);
+        result:= sendErrorNotification(ET_INVALID_CHARACTER,inputSource.locator,invalidStr);
+        exit;
+      end;
+
+      if str1 = ';' then begin // End of PE reference found.
+        errType:= ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE;
+        if assigned(NextHandler)
+          then result:= NextHandler.resolvePE(PEName.value,s,errType);
+        if errType <> ET_NONE then begin
+          s:= concat('%',PEName.value,';');
+          result:= (sendErrorNotification(errType,inputSource.locator,PEName.value) and result);
+        end;
+        exit;
+      end;
+
+      PEName.addWideChar(str1);
+
+      if ( (PEName.length = 1) and not ( IsXmlLetter(str1) or (str1 = '_') or (str1 = ':') ) )
+        or ( (PEName.length > 1) and not IsXmlNameChar(str1) )
+        then break;
+
+    end; {while ...}
+
+    s:= concat('%',PEName.value);
+
+  finally
+    PEName.free;
+  end;
+end;
+
+function TXmlStandardDtdReader.WriteConditionalSection(const locator: TdomLocator;
+                                                       const content: UnicodeString): boolean;
+var
+  declaration: UnicodeString;
+  IncludeStmt: UnicodeString;
+  i,nr1,nr2: longint;
+begin
+  nr1:= 0;
+  nr2:= 0;
+  for i:= 1 to length(content) do begin
+    if content[i] = '[' then begin
+      if nr1 = 0 then nr1:= i else nr2:= i;
+    end;
+    if nr2 > 0 then break;
+  end;
+  if nr2 = 0 then begin
+    result:= sendErrorNotification(ET_INVALID_CONDITIONAL_SECTION,locator,'');
+    exit;
+  end;
+  if (copy(content,1,3) <> '<![') then begin
+    result:= sendErrorNotification(ET_INVALID_CONDITIONAL_SECTION,locator,'');
+    exit;
+  end;
+  if (copy(content,length(content)-2,3) <> ']]>') then begin
+    result:= sendErrorNotification(ET_INVALID_CONDITIONAL_SECTION,locator,'');
+    exit;
+  end;
+
+  IncludeStmt:= XmlTrunc(copy(content,4,nr2-4));
+
+  if not ( IsXmlPEReference(IncludeStmt)
+           or (IncludeStmt = 'INCLUDE')
+           or (IncludeStmt = 'IGNORE') ) then begin
+    result:= sendErrorNotification(ET_INVALID_CONDITIONAL_SECTION,locator,'');
+    exit;
+  end;
+
+  declaration:= XmlTrunc(copy(content,nr2+1,length(content)-nr2-3));
+
+  if assigned(NextHandler)
+    then result:= NextHandler.conditionalSection(self,locator,IncludeStmt,declaration)
+    else result:= true;
+end;
+
+function TXmlStandardDtdReader.WriteDTDProcessingInstruction(const locator: TdomLocator;
+                                                             const content: UnicodeString): boolean;
+var
+  TargetName,AttribSequence: UnicodeString;
+begin
+  XMLAnalyseTag(content,TargetName,AttribSequence);
+  if assigned(NextHandler)
+    then result:= NextHandler.DTDProcessingInstruction(self,locator,TargetName,AttribSequence)
+    else result:= true;
+end;
+
+function TXmlStandardDtdReader.WriteDTDComment(const locator: TdomLocator;
+                                               const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.DTDcomment(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlStandardDtdReader.WriteParameterEntityRef(const locator: TdomLocator;
+                                                       const content: UnicodeString): boolean;
+var
+  entityName: UnicodeString;
+begin
+  entityName:= copy(content,2,length(content)-2);
+  if assigned(NextHandler)
+    then result:= NextHandler.parameterEntityRef(self,locator,entityName)
+    else result:= true;
+end;
+
+function TXmlStandardDtdReader.WriteEntityDeclaration(const locator: TdomLocator;
+                                                      const content: UnicodeString): boolean;
+var
+  DeclCorpus,DeclName,EntityDef,entityValue,SystemLiteral,PubidLiteral,NDataName: UnicodeString;
+  DeclTypus: TDomCMNodeType;
+  dummy: UnicodeString;
+  Error: boolean;
+begin
+  result:= true;
+  if (copy(content,1,8) <> '<!ENTITY')
+    or (content[length(content)] <> '>')
+    or (length(content) < 14)
+    or (not IsXmlWhiteSpace(content[9])) then begin
+      result:= sendErrorNotification(ET_INVALID_ENTITY_DECL,locator,'');
+    exit;
+  end;
+
+  DeclCorpus:= XMLTrunc(copy(content,10,length(content)-10));
+  if DeclCorpus[1] = '%' then begin
+    if not IsXmlWhiteSpace(DeclCorpus[2]) then begin
+      result:= sendErrorNotification(ET_INVALID_ENTITY_DECL,locator,'');
+      exit;
+    end;
+    dummy:= XMLTrunc(copy(DeclCorpus,2,length(DeclCorpus)-1));
+    DeclCorpus:= dummy;
+    DeclTypus:= ctParameterEntityDeclaration;
+  end else DeclTypus:= ctEntityDeclaration;
+  XMLAnalyseTag(DeclCorpus,DeclName,EntityDef);
+  XMLAnalyseEntityDef(EntityDef,entityValue,SystemLiteral,PubidLiteral,NDataName,Error);
+  if Error then begin
+    result:= sendErrorNotification(ET_INVALID_ENTITY_DECL,locator,'');
+    exit;
+  end;
+  if (DeclTypus = ctParameterEntityDeclaration) and (NDataName <> '') then begin
+    result:= sendErrorNotification(ET_INVALID_ENTITY_DECL,locator,'');
+    exit;
+  end;
+
+  if result
+    then if assigned(NextHandler) then begin
+      case DeclTypus of
+        ctEntityDeclaration:
+          NextHandler.entityDeclaration(self,locator,DeclName,entityValue,PubidLiteral,SystemLiteral,NDataName);
+        ctParameterEntityDeclaration:
+          NextHandler.parameterentityDeclaration(self,locator,DeclName,entityValue,PubidLiteral,SystemLiteral);
+      end; {case ...}
+    end; {if ...}
+end;
+
+function TXmlStandardDtdReader.WriteElementDeclaration(const locator: TdomLocator;
+                                                       const content: UnicodeString): boolean;
+var
+  DeclCorpus,DeclName,contSpec: UnicodeString;
+begin
+  if length(content) < 16 then begin
+    result:= sendErrorNotification(ET_INVALID_ELEMENT_DECL,locator,'');
+    exit;
+  end;
+  if (copy(content,1,9) <> '<!ELEMENT')
+     or (content[length(content)] <> '>')
+     or (not IsXmlWhiteSpace(content[10])) then begin
+    result:= sendErrorNotification(ET_INVALID_ELEMENT_DECL,locator,'');
+    exit;
+  end;
+  DeclCorpus:= XMLTrunc(copy(content,11,length(content)-11));
+  XMLAnalyseTag(DeclCorpus,DeclName,contSpec);
+  if assigned(NextHandler)
+    then result:= NextHandler.elementTypeDeclaration(self,locator,DeclName,contSpec)
+    else result:= true;
+end;
+
+function TXmlStandardDtdReader.WriteAttributeDeclaration(const locator: TdomLocator;
+                                                         const content: UnicodeString): boolean;
+var
+  declCorpus,declName,contSpec: UnicodeString;
+  dummy,AttDefName,attType,Bracket,defaultDecl,attValue,Rest: UnicodeString;
+  ok: boolean;
+begin
+  result:= true;
+  if length(Content) < 12 then begin
+    result:= sendErrorNotification(ET_INVALID_ATTRIBUTE_DECL,locator,content);
+    exit;
+  end;
+  if (copy(Content,1,9) <> '<!ATTLIST')
+     or (Content[length(Content)] <> '>')
+     or (not IsXmlWhiteSpace(Content[10])) then begin
+    result:= sendErrorNotification(ET_INVALID_ATTRIBUTE_DECL,locator,content);
+    exit;
+  end;
+
+  DeclCorpus:= XMLTrunc(copy(Content,11,length(Content)-11));
+  XMLAnalyseTag(DeclCorpus,DeclName,contSpec);
+
+  if assigned(NextHandler) then begin
+    result:= NextHandler.startAttListDeclaration(self,locator,DeclName);
+  end;
+
+  if result then begin
+    dummy:= XMLTrunc(contSpec);
+    contSpec:= dummy;
+
+    while contSpec <> '' do begin
+      ok:= findNextAttDef(contSpec,AttDefName,attType,Bracket,
+                          defaultDecl,attValue,Rest);
+      if ok then begin
+        if assigned(NextHandler) then begin
+          result:= NextHandler.attributeDefinition(self,locator,attDefName,attType,bracket,
+                                                   defaultDecl,attValue);
+          if not result then break;
+        end;
+      end else begin
+        result:= sendErrorNotification(ET_INVALID_ATTRIBUTE_DECL,locator,content);
+        break;
+      end;
+      contSpec:= Rest;
+    end; {while ...}
+
+  end; {if ...}
+
+  if result
+    then if assigned(NextHandler)
+      then result:= NextHandler.endAttListDeclaration(self,locator);
+end;
+
+function TXmlStandardDtdReader.WriteNotationDeclaration(const locator: TdomLocator;
+                                                        const content: UnicodeString): boolean;
+var
+  DeclCorpus,DeclName,contSpec,SystemLiteral,PubidLiteral: UnicodeString;
+  Error: boolean;
+begin
+  if length(Content) < 22 then begin
+    result:= sendErrorNotification(ET_INVALID_NOTATION_DECL,locator,'');
+    exit;
+  end;
+  if (copy(Content,1,10) <> '<!NOTATION')
+     or (Content[length(Content)] <> '>')
+     or (not IsXmlWhiteSpace(Content[11])) then begin
+    result:= sendErrorNotification(ET_INVALID_NOTATION_DECL,locator,'');
+    exit;
+  end;
+  DeclCorpus:= XMLTrunc(copy(Content,12,length(Content)-12));
+  XMLAnalyseTag(DeclCorpus,DeclName,contSpec);
+  XMLAnalyseNotationDecl(contSpec,SystemLiteral,PubidLiteral,Error);
+  if Error then begin
+    result:= sendErrorNotification(ET_INVALID_NOTATION_DECL,locator,'');
+    exit;
+  end;
+  if assigned(NextHandler)
+    then result:= NextHandler.notationDeclaration(self,locator,DeclName,PubidLiteral,SystemLiteral)
+    else result:= true;
+end;
+
+function TXmlStandardDtdReader.writeStartExtDtd(const locator: TdomLocator;
+                                                      version,
+                                                      encName: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startExtDtd(self,locator,version,encName)
+    else result:= true;
+end;
+
+function TXmlStandardDtdReader.writeStartIntDtd(const locator: TdomLocator): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startIntDtd(self,locator)
+    else result:= true;
+end;
+
+function TXmlStandardDtdReader.parseExternalSubset(const inputSource: TXmlInputSource):boolean;
+const
+//  CR: WideChar  = #13;
+//  LF: WideChar  = #10;
+  QM: WideChar  = '?';
+  SingleQuote: WideChar = #39; // code of '
+  DoubleQuote: WideChar = #34; // code of "
+  PISTART: UnicodeString = '<?';
+//  TEXTDECLSTART: UnicodeString = '<?xml';
+  CONTSECTSTART: UnicodeString = '<![';
+  COMMENTSTART: UnicodeString = '<!--';
+  ENTITYSTART: UnicodeString = '<!ENTITY';
+  ELEMENTSTART: UnicodeString = '<!ELEMENT';
+  ATTLISTSTART: UnicodeString = '<!ATTLIST';
+  NOTATIONSTART: UnicodeString = '<!NOTATION';
+var
+  str1: WideChar;
+  entityDeclValue,dummy,invalidStr: UnicodeString;
+  SingleQuoteOpen,DoubleQuoteOpen: boolean;
+  commentActive,includeStatementFinished: boolean;
+  i: integer;
+  PieceType: TdomPieceType;
+  content: TdomCustomStr;
+  condSectCounter: longint;
+begin
+  PieceType:= xmlUnknown;
+  SingleQuoteOpen:= false;
+  DoubleQuoteOpen:= false;
+  commentActive:= false;
+  includeStatementFinished:= false;
+  condSectCounter:= 0;
+  result:= true;
+  content:= TdomCustomStr.create;
+  try
+
+    with inputSource do
+      writeStartExtDtd(locator,versionNumber,encodingName);
+    while InputSource.getNextWideChar(str1) do begin
+      if not result then break;
+      if not IsXmlChar(str1) then begin
+        content.addWideChar(str1);
+        inputsource.locator.setStartMark;
+        if str1 = #0
+          then invalidStr:= ''
+          else invalidStr:= UnicodeString(str1);
+        result:= sendErrorNotification(ET_INVALID_CHARACTER,inputSource.locator,invalidStr);
+      end;
+
+      case PieceType of
+
+        xmlParameterEntityRef: begin
+          content.addWideChar(str1);
+          if str1 = ';' then begin
+            result:= WriteParameterEntityRef(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlUnknown;
+          end;
+        end;
+
+        xmlStartTag: begin
+          content.addWideChar(str1);
+          case content.length of
+            2: if content.startsWith(PISTART) then PieceType:= xmlProcessingInstruction;
+            3: if content.startsWith(CONTSECTSTART) then begin
+                 PieceType:= xmlCondSection;
+                 condSectCounter:= 1;
+                 commentActive:= false;
+                 includeStatementFinished:= false;
+               end;
+            4: if content.startsWith(COMMENTSTART) then PieceType:= xmlComment;
+            8: if content.startsWith(ENTITYSTART) then PieceType:= xmlEntityDecl;
+            9: if content.startsWith(ELEMENTSTART) then PieceType:= xmlElementDecl
+               else if content.startsWith(ATTLISTSTART) then PieceType:= xmlAttributeDecl;
+           10: if content.startsWith(NOTATIONSTART) then PieceType:= xmlNotationDecl;
+          end;
+
+        end;
+
+        xmlProcessingInstruction: begin
+          content.addWideChar(str1);
+          if str1 = '>' then
+            if content[content.length-1] = QM then begin
+              if result then begin
+                result:= writeDTDProcessingInstruction(inputSource.Locator,copy(content.value,3,content.length-4));
+                content.reset;
+                PieceType:= xmlUnknown;
+              end;
+            end;
+        end;
+
+        xmlCondSection: begin
+          if includeStatementFinished then begin
+            content.addWideChar(str1);
+            if str1 = '[' then begin
+              if content[content.length-1] = '!' then
+                if content[content.length-2] = '<' then
+                  if not commentActive then inc(condSectCounter);
+            end else if str1 = '>' then begin
+              if content[content.length-1] = ']' then
+                if content[content.length-2] = ']' then
+                  if not commentActive then dec(condSectCounter);
+            end; {if str1 = '[' ... else ...}
+
+            if commentActive then begin
+              if str1 = '>' then
+                if content[content.length-1] = '-' then
+                  if content[content.length-2] = '-' then
+                    if not ( (content[content.length-3] = '!')
+                             and (content[content.length-4] = '<') ) then
+                      if not ( (content[content.length-3] = '-')
+                                and (content[content.length-4] = '!')
+                                and (content[content.length-5] = '<') )
+                        then commentActive:= false;
+            end else begin
+              if str1 = '-' then
+                if content[content.length-1] = '-' then
+                  if content[content.length-2] = '!' then
+                    if content[content.length-3] = '<'
+                      then commentActive:= true;
+            end; {if commentActive ... else ...}
+
+            if condSectCounter = 0 then begin
+              result:= WriteConditionalSection(inputSource.Locator,content.value);
+              content.reset;
+              PieceType:= xmlUnknown;
+            end; {if ...}
+
+          end else begin {if includeStatementFinished ... }
+            if str1 = '['
+              then includeStatementFinished:= true;
+            if str1 = '%' then begin
+              if includeAsPE(inputSource,dummy) then begin
+                for i:= 0 to pred(length(dummy)) do begin
+                  if dummy[i] = '[' then begin
+                    includeStatementFinished:= true;
+                    break;
+                  end; {if ...}
+                 end; {for ...}
+                content.addWideString(dummy);
+              end else result:= sendErrorNotification(ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE,inputSource.locator,concat(content.value,'%'));
+            end else content.addWideChar(str1);
+          end; {if includeStatementFinished ... else ...}
+        end;
+
+        xmlComment: begin
+          content.addWideChar(str1);
+          if str1 = '>' then
+            if content[content.Length-1] = '-' then
+              if content[content.Length-2] = '-' then
+                if content.length > 6 then begin
+                  result:= WriteDTDComment(inputSource.Locator,copy(content.value,5,content.length-7));
+                  content.reset;
+                  PieceType:= xmlUnknown;
+                end;
+        end;
+
+        xmlEntityDecl,xmlNotationDecl: begin
+          if not (DoubleQuoteOpen or SingleQuoteOpen) then begin
+            if str1 = '%' then begin
+              if includeAsPE(inputSource,dummy)
+                then content.addWideString(dummy)
+                else result:= sendErrorNotification(ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE,inputSource.locator,concat(content.value,'%'));
+            end else content.addWideChar(str1);
+          end else begin
+            if (PieceType = xmlEntityDecl) and (str1 = '%') then begin
+                // XML 1.0, � 4.4.5: "When ... a parameter entity
+                // reference appears in a literal entity value, its
+                // replacement text is processed in place of the
+                // reference itself as though it were part of the
+                // document at the location the reference was
+                // recognized, except that ...
+              result:= includeInLiteral(inputSource,entityDeclValue);
+              content.addWideString(
+                // ... a single or double quote character in the
+                // replacement text is always treated as a normal
+                // data character and will not terminate the literal."
+                xmlReplaceQuotes(entityDeclValue)
+                );
+            end else content.addWideChar(str1);
+          end;
+
+          if (str1 = SingleQuote) and (not DoubleQuoteOpen) then begin
+            SingleQuoteOpen := not SingleQuoteOpen;
+          end else if (str1 = DoubleQuote) and (not SingleQuoteOpen) then begin
+            DoubleQuoteOpen := not DoubleQuoteOpen;
+          end;
+
+          if (not DoubleQuoteOpen)
+            and (not SingleQuoteOpen)
+            and (str1 = '>')
+          then begin
+            if pieceType = xmlEntityDecl
+              then result:= WriteEntityDeclaration(inputSource.Locator,content.value)
+              else result:= WriteNotationDeclaration(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlUnknown;
+          end;
+
+        end;
+
+        xmlAttributeDecl: begin
+
+          if not (DoubleQuoteOpen or SingleQuoteOpen) then begin
+            if str1 = '%' then begin
+              if includeAsPE(inputSource,dummy)
+                then content.addWideString(dummy)
+                else result:= sendErrorNotification(ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE,inputSource.locator,concat(content.value,'%'));
+            end else content.addWideChar(str1);
+          end else content.addWideChar(str1);
+
+          if (str1 = SingleQuote) and (not DoubleQuoteOpen) then begin
+            SingleQuoteOpen := not SingleQuoteOpen;
+          end else if (str1 = DoubleQuote) and (not SingleQuoteOpen) then begin
+            DoubleQuoteOpen := not DoubleQuoteOpen;
+          end;
+
+          if str1 = '>' then begin
+            result:= WriteAttributeDeclaration(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlUnknown;
+          end;
+
+        end;
+
+        xmlElementDecl: begin
+          if str1 = '%' then begin
+            if includeAsPE(inputSource,dummy)
+              then content.addWideString(dummy)
+              else result:= sendErrorNotification(ET_UNRESOLVABLE_PARAMETER_ENTITY_REFERENCE,inputSource.locator,concat(content.value,'%'));
+          end else content.addWideChar(str1);
+          if str1 = '>' then begin
+            result:= WriteElementDeclaration(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlUnknown;
+          end;
+        end;
+
+        xmlUnknown: begin
+          if str1 = '<' then begin
+            PieceType:= xmlStartTag;
+            content.addWideChar(str1);
+            inputsource.locator.setStartMark;
+          end else
+          if str1 = '%' then begin
+            PieceType:= xmlParameterEntityRef;
+            content.addWideChar(str1);
+            inputsource.locator.setStartMark;
+          end else
+          if not IsXmlWhiteSpace(str1) then begin
+            result:= sendErrorNotification(ET_INVALID_CHARACTER,inputSource.locator,content.value);
+          end;
+        end;
+
+      end; {case ...}
+    end; {while ...}
+
+    if result then begin
+      if (content.length > 0) and not IsXmlS(content.value) then begin
+        result:= sendErrorNotification(ET_UNKNOWN_DECL_TYPE,inputSource.locator,content.value);
+      end;
+    end;
+
+    if result
+      then if assigned(NextHandler)
+        then result:= NextHandler.endExtDtd(self,inputSource.locator);
+
+  finally
+    content.free;
+  end;
+end;
+
+function TXmlStandardDtdReader.parseInternalSubset(const inputSource: TXmlInputSource):boolean;
+const
+//  CR: WideChar  = #13;
+//  LF: WideChar  = #10;
+  QM: WideChar  = '?';
+  SingleQuote: WideChar = #39; // code of '
+  DoubleQuote: WideChar = #34; // code of "
+  PISTART: UnicodeString = '<?';
+  COMMENTSTART: UnicodeString = '<!--';
+  ENTITYSTART: UnicodeString = '<!ENTITY';
+  ELEMENTSTART: UnicodeString = '<!ELEMENT';
+  ATTLISTSTART: UnicodeString = '<!ATTLIST';
+  NOTATIONSTART: UnicodeString = '<!NOTATION';
+var
+  str1: WideChar;
+  SingleQuoteOpen,DoubleQuoteOpen: boolean;
+  PieceType: TdomPieceType;
+  content: TdomCustomStr;
+  invalidStr: UnicodeString;
+begin
+  PieceType:= xmlUnknown;
+  SingleQuoteOpen:= false;
+  DoubleQuoteOpen:= false;
+  result:= true;
+  content:= TdomCustomStr.create;
+  try
+
+    writeStartIntDtd(inputSource.locator);
+    while InputSource.getNextWideChar(str1) do begin
+      if not result then break;
+      if not IsXmlChar(str1) then begin
+        content.addWideChar(str1);
+        inputsource.locator.setStartMark;
+        if str1 = #0
+          then invalidStr:= ''
+          else invalidStr:= UnicodeString(str1);
+        result:= sendErrorNotification(ET_INVALID_CHARACTER,inputSource.locator,invalidStr);
+      end;
+
+      case PieceType of
+
+        xmlParameterEntityRef: begin
+          content.addWideChar(str1);
+          if str1 = ';' then begin
+            result:= WriteParameterEntityRef(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlUnknown;
+          end;
+        end;
+
+        xmlStartTag: begin
+          content.addWideChar(str1);
+          case content.length of
+            2: if content.startsWith(PISTART) then PieceType:= xmlProcessingInstruction;
+            4: if content.startsWith(COMMENTSTART) then PieceType:= xmlComment;
+            8: if content.startsWith(ENTITYSTART) then PieceType:= xmlEntityDecl;
+            9: if content.startsWith(ELEMENTSTART) then PieceType:= xmlElementDecl
+               else if content.startsWith(ATTLISTSTART) then PieceType:= xmlAttributeDecl;
+           10: if content.startsWith(NOTATIONSTART) then PieceType:= xmlNotationDecl;
+          end;
+
+        end;
+
+        xmlProcessingInstruction: begin
+          content.addWideChar(str1);
+          if str1 = '>' then
+            if content[content.Length-1] = QM then begin
+              result:= WriteDTDProcessingInstruction(inputSource.Locator,copy(content.value,3,content.length-4));
+              content.reset;
+              PieceType:= xmlUnknown;
+            end;
+        end;
+
+        xmlComment: begin
+          content.addWideChar(str1);
+          if str1 = '>' then
+            if content[content.Length-1] = '-' then
+              if content[content.Length-2] = '-' then
+                if content.length > 6 then begin
+                  result:= WriteDTDComment(inputSource.Locator,copy(content.value,5,content.length-7));
+                  content.reset;
+                  PieceType:= xmlUnknown;
+                end;
+        end;
+
+        xmlEntityDecl,xmlNotationDecl: begin
+          content.addWideChar(str1);
+
+          if (str1 = SingleQuote) and (not DoubleQuoteOpen) then begin
+            SingleQuoteOpen := not SingleQuoteOpen;
+          end else if (str1 = DoubleQuote) and (not SingleQuoteOpen) then begin
+            DoubleQuoteOpen := not DoubleQuoteOpen;
+          end;
+
+          if (not DoubleQuoteOpen)
+            and (not SingleQuoteOpen)
+            and (str1 = '>')
+            then begin
+              if pieceType = xmlEntityDecl
+                then result:= WriteEntityDeclaration(inputSource.Locator,content.value)
+                else result:= WriteNotationDeclaration(inputSource.Locator,content.value);
+              content.reset;
+              PieceType:= xmlUnknown;
+            end;
+        end;
+
+        xmlAttributeDecl: begin
+          content.addWideChar(str1);
+          if str1 = '>' then begin
+            result:= WriteAttributeDeclaration(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlUnknown;
+          end;
+        end;
+
+        xmlElementDecl: begin
+          content.addWideChar(str1);
+          if str1 = '>' then begin
+            result:= WriteElementDeclaration(inputSource.Locator,content.value);
+            content.reset;
+            PieceType:= xmlUnknown;
+          end;
+        end;
+
+        xmlUnknown: begin
+          if str1 = '<' then begin
+            PieceType:= xmlStartTag;
+            content.addWideChar(str1);
+            inputsource.locator.setStartMark;
+          end else
+          if str1 = '%' then begin
+            PieceType:= xmlParameterEntityRef;
+            content.addWideChar(str1);
+            inputsource.locator.setStartMark;
+          end else
+          if not IsXmlWhiteSpace(str1) then begin
+            result:= sendErrorNotification(ET_INVALID_CHARACTER,inputSource.locator,content.value);
+          end;
+        end;
+
+      end; {case ...}
+    end; {while ...}
+
+    if result then begin
+      if (content.length > 0) and not IsXmlS(content.value) then begin
+        result:= sendErrorNotification(ET_UNKNOWN_DECL_TYPE,inputSource.locator,content.value);
+      end;
+    end;
+
+    if result
+      then if assigned(NextHandler)
+        then result:= NextHandler.endIntDtd(self,inputSource.locator);
+
+  finally
+    content.free;
+  end;
+end;
+
+
+
+// ++++++++++++++++++++++++ TXmlCustomDomReader ++++++++++++++++++++++++
+constructor TXmlCustomDomReader.create(AOwner: TComponent);
+begin
+  inherited create(AOwner);
+  suppressXmlns:= false;
+  prefixMapping:= true;
+end;
+
+function TXmlCustomDomReader.parseloop(const sourceNode: TDomNode): boolean;
+var
+  i: integer;
+  attributeList: TdomNameValueList;
+  pfxUriList: TdomNameValueList;
+  snSystemId, versionNumber: UnicodeString;
+  suppressThisAttr: boolean;
+  loc: TdomLocator;
+
+  function writeWhileCheckingForAMPAndLT(const locator: TdomLocator;
+                                         const source: UnicodeString): boolean;
+  var
+    i: integer;
+    content: TdomCustomStr;
+  begin
+    result:= true;
+    content:= TdomCustomStr.create;
+    try
+      for i:= 1 to length(source) do begin
+        case ord(source[i]) of
+        {  60: begin  // LT
+            result:= WritePCDATA(locator,content.value);
+            if not result then break;
+            result:= WriteCharRef(locator,'&#60;');
+            if not result then break;
+            content.reset;
+          end;
+          38: begin // AMP
+            result:= WritePCDATA(locator,content.value);
+            if not result then break;
+            result:= WriteCharRef(locator,'&#38;');
+            if not result then break;
+            content.reset;
+          end;}
+
+          60: begin  // LT
+            result:= WritePCDATA(locator,content.value);
+            if not result then break;
+            result:= WriteCharRef(locator,'&lt;');
+            if not result then break;
+            content.reset;
+          end;
+          38: begin // AMP
+            result:= WritePCDATA(locator,content.value);
+            if not result then break;
+            result:= WriteCharRef(locator,'&amp;');
+            if not result then break;
+            content.reset;
+          end;
+
+        else
+          content.addWideChar(source[i]);
+        end;
+      end;
+      if content.length > 0
+        then if result
+          then result:= WritePCDATA(locator,content.value);
+    finally
+      content.free;
+    end;
+  end;
+var
+  lXmlnsIsPresent: boolean;
+begin
+  result:= true;
+  with sourceNode do
+    if assigned(sourceNode.ownerDocument)
+      then snSystemId:= sourceNode.ownerDocument.systemId
+      else snSystemId:= '';
+  loc:= TdomLocator.create(-1,-1,-1,-1,-1,snSystemId,nil,sourceNode);
+  try
+    case sourceNode.nodeType of
+      ntElement_Node: begin
+        attributeList:= TdomNameValueList.create;
+        pfxUriList:= TdomNameValueList.create;
+        try
+          for i:= 0 to pred(sourceNode.attributes.length) do
+            with (sourceNode.attributes.item(i) as TdomAttr) do begin
+              suppressThisAttr:= false;
+              if FPrefixMapping or FSuppressXmlns then begin
+                if IsXmlDefaultAttName(nodeName) then begin
+                  suppressThisAttr:= FSuppressXmlns;
+                  pfxUriList.add('',literalValue);
+                end else if IsXmlPrefixedAttName(nodeName) then begin
+                  suppressThisAttr:= FSuppressXmlns;
+                  pfxUriList.add(xmlExtractLocalName(nodeName),literalValue);
+                end;
+              end;
+              if not suppressThisAttr then attributeList.add(nodeName,literalValue);
+            end;
+          if not FSuppressXmlns and (sourceNode.namespaceURI <> '') then begin
+            lXmlnsIsPresent := False;
+            for I := 0 to attributeList.length - 1 do begin
+              lXmlnsIsPresent := IsXmlDefaultAttName(attributeList.names[i]) or IsXmlPrefixedAttName(attributeList.names[i]);
+              if lXmlnsIsPresent then break;
+            end;
+            if not lXmlnsIsPresent then begin
+              if FPrefixMapping then pfxUriList.add(sourceNode.prefix,sourceNode.namespaceURI);
+              attributeList.add('xmlns',sourceNode.namespaceURI);
+            end;
+          end;
+          if FPrefixMapping then
+            with pfxUriList do
+              for i:= 0 to pred(length) do begin
+                result:= writeStartPrefixMapping(loc,names[i],values[i]);
+                if not result then break;
+              end;
+          if result then begin
+            if sourceNode.hasChildNodes then begin
+              result:= WriteStartElement(loc,sourceNode.nodeName,attributeList);
+              if result then begin
+                for i:= 0  to pred(sourceNode.childNodes.length) do begin
+                  result:= parseloop(sourceNode.childNodes.item(i));
+                  if not result then break;
+                end;
+              end;
+              if result
+                then result:= WriteEndElement(loc,sourceNode.nodeName);
+            end else result:= WriteEmptyElement(loc,sourceNode.nodeName,attributeList);
+            if FPrefixMapping then
+              with pfxUriList do
+                for i:= pred(length) downto 0 do begin
+                  if not result then break;
+                  result:= writeEndPrefixMapping(loc,names[i]);
+                end;
+          end;
+        finally
+          attributeList.free;
+          pfxUriList.free;
+        end;
+      end;
+      ntText_Node:
+        result:= writeWhileCheckingForAMPAndLT(loc,sourceNode.nodeValue);
+      ntCDATA_Section_Node:
+        result:= WriteCDATA(loc,sourceNode.nodeValue);
+      ntEntity_Reference_Node:
+        result:= WriteEntityRef(loc,sourceNode.nodeName);
+      ntProcessing_Instruction_Node:
+        result:= WriteProcessingInstruction(loc,sourceNode.nodeName,sourceNode.nodeValue);
+      ntComment_Node:
+        result:= WriteComment(loc,sourceNode.nodeValue);
+      ntDocument_Node: begin
+        versionNumber:= (sourceNode as TdomDocument).version;
+        if versionNumber = '' then  versionNumber:= '1.0';  // xxx necessary?
+        result:= writeStartDocument(loc,
+                                    versionNumber,
+                                    (sourceNode as TdomDocument).encoding,
+                                    STANDALONE_UNSPECIFIED);
+        if result then begin
+          for i:= 0  to pred(sourceNode.childNodes.length) do begin
+            result:= parseloop(sourceNode.childNodes.item(i));
+            if not result then break;
+          end;
+        end;
+        if result
+          then result:= writeEndDocument(loc);
+      end;
+      ntDocument_Type_Node:
+        result:= WriteDoctype(loc,sourceNode.nodeName,
+                              (sourceNode as TdomDocumentType).publicId,
+                              (sourceNode as TdomDocumentType).systemId,
+                              (sourceNode as TdomDocumentType).internalSubset);
+      else
+        result:= true;  // xxx raise an exception instead?
+    end;
+  finally
+    loc.free;
+  end;
+end;
+
+function TXmlCustomDomReader.WriteCDATA(const locator: TdomLocator;
+                                        const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.cdata(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WriteCharRef(const locator: TdomLocator;
+                                          const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.charRef(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WriteComment(const locator: TdomLocator;
+                                          const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.comment(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WriteDoctype(const locator: TdomLocator;
+                                          const aname,
+                                                publicId,
+                                                systemId,
+                                                intSubset: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.doctype(self,locator,aname,publicId,systemId,intSubset)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WriteEmptyElement(const locator: TdomLocator;
+                                               const tagName: UnicodeString;
+                                               const attributeList: TdomNameValueList): boolean;
+begin
+  if assigned(NextHandler) then begin
+    result:= NextHandler.startEndElement(self,locator,'',tagName,attributeList);
+  end else result:= true;
+end;
+
+function TXmlCustomDomReader.writeEndDocument(const locator: TdomLocator): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endDocument(self,locator)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WriteEndElement(const locator: TdomLocator;
+                                             const tagName: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endElement(self,locator,'',tagName)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.writeEndPrefixMapping(const locator: TdomLocator;
+                                                         prefix: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endPrefixMapping(self,locator,prefix)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WriteEntityRef(const locator: TdomLocator;
+                                            const entityName: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.EntityRef(self,locator,entityName)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WritePCDATA(const locator: TdomLocator;
+                                         const content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.pcdata(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WriteProcessingInstruction(const locator: TdomLocator;
+                                                        const targ,
+                                                              attribSequence : UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.ProcessingInstruction(self,locator,targ,attribSequence)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.writeStartDocument(const locator: TdomLocator;
+                                                      version,
+                                                      encName: UnicodeString;
+                                                      sdDl: TdomStandalone): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startDocument(self,locator,version,encName,sdDl)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.WriteStartElement(const locator: TdomLocator;
+                                               const tagName: UnicodeString;
+                                               const attributeList: TdomNameValueList): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startElement(self,locator,'',tagName,attributeList)
+    else result:= true;
+end;
+
+function TXmlCustomDomReader.writeStartPrefixMapping(const locator: TdomLocator;
+                                                           prefix,
+                                                           uri: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startPrefixMapping(self,locator,prefix,uri)
+    else result:= true;
+end;
+
+
+
+// +++++++++++++++++++++++ TXmlStandardDomReader +++++++++++++++++++++++
+function TXmlStandardDomReader.parse(const sourceNode: TDomNode): boolean;
+begin
+  result:= parseloop(sourceNode);
+end;
+
+
+
+// +++++++++++++++++++++++ TXmlStandardCMReader +++++++++++++++++++++++
+function TXmlStandardCMReader.writeAttributeDefinition(const locator: TdomLocator;
+                                                             aname,
+                                                             attType,
+                                                             bracket,
+                                                             defaultDecl,
+                                                             attValue: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.attributeDefinition(self,locator,aname,attType,bracket,defaultDecl,attValue)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeDTDComment(const locator: TdomLocator;
+                                                    content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.DTDComment(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeDTDProcessingInstruction(const locator: TdomLocator;
+                                                                  targ,
+                                                                  attribSequence : UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.DTDProcessingInstruction(self,locator,targ,attribSequence)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeElementTypeDeclaration(const locator: TdomLocator;
+                                                                aname,
+                                                                data: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.elementTypeDeclaration(self,locator,aname,data)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeEndAttListDeclaration(const locator: TdomLocator): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endAttListDeclaration(self,locator)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeEndExtDtd(const locator: TdomLocator): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endExtDtd(self,locator)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeEndIntDtd(const locator: TdomLocator): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.endIntDtd(self,locator)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeEntityDeclaration(const locator: TdomLocator;
+                                                           aname,
+                                                           entityValue,
+                                                           pubId,
+                                                           sysId,
+                                                           notaName: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.entityDeclaration(self,locator,aname,entityValue,pubId,sysId,notaName)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeNotationDeclaration(const locator: TdomLocator;
+                                                             aname,
+                                                             pubId,
+                                                             sysId: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.notationDeclaration(self,locator,aname,pubId,sysId)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeParameterEntityRef(const locator: TdomLocator;
+                                                            content: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.parameterEntityRef(self,locator,content)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeStartAttListDeclaration(const locator: TdomLocator;
+                                                                 aname: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startAttListDeclaration(self,locator,aname)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeStartExtDtd(const locator: TdomLocator;
+                                                     version,
+                                                     encName: UnicodeString): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startExtDtd(self,locator,version,encName)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.writeStartIntDtd(const locator: TdomLocator): boolean;
+begin
+  if assigned(NextHandler)
+    then result:= NextHandler.startIntDtd(self,locator)
+    else result:= true;
+end;
+
+function TXmlStandardCMReader.parseloop(const sourceCMNode: TdomCMNode): boolean;
+var
+  i: integer;
+  snSystemId: UnicodeString;
+  versionNumber: UnicodeString;
+  loc: TdomLocator;
+
+  function getBracket(CMAttrDef: TdomCMAttrDefinition): UnicodeString;
+  var
+    k: integer;
+    content: TdomCustomStr;
+  begin
+    if CMAttrDef.hasChildNodes then begin
+      content:= TdomCustomStr.create;
+      try
+        with content do begin
+          addWideChar('(');
+          with CMAttrDef.ChildNodes do begin
+            for k:= 0 to pred(Length) do begin
+              // Write Sheffer stroke to separate TdomCMNameParticle or TdomCMNmtokenParticle names:
+              if k > 0 then addWideString(' | ');
+              // Write TdomCMNameParticle or TdomCMNmtokenParticle name:
+              addWideString(item(k).nodeName);
+            end;
+          end;
+          addWideChar(')');
+          result:= content.value;
+        end;
+      finally
+        content.free;
+      end;
+    end else result:= '';
+  end;
+
+begin
+  with sourceCMNode do begin
+    case NodeType of
+    ctExternalObject: snSystemId:= (sourceCMNode as TdomCMExternalObject).systemId;
+    ctInternalObject: snSystemId:= (sourceCMNode as TdomCMInternalObject).systemId;
+    else
+      if assigned(FCMObject)
+        then snSystemId:= FCMObject.systemId
+        else snSystemId:= '';
+    end; {case ...}
+  end; {with ...}
+
+  loc:= TdomLocator.create(-1,-1,-1,-1,-1,snSystemId,sourceCMNode,nil);
+  try
+    case sourceCMNode.NodeType of
+      ctAttributeList:
+        begin
+          result:= writeStartAttListDeclaration(loc,sourceCMNode.NodeName);
+          if result then begin
+            with TdomCMAttrList(sourceCMNode).childnodes do begin
+              for i:= 0 to pred(length) do begin
+                result:= writeAttributeDefinition(loc,
+                                                  Item(i).nodeName,
+                                                  (Item(i) as TdomCMAttrDefinition).AttributeType,
+                                                  getBracket(Item(i) as TdomCMAttrDefinition),
+                                                  (Item(i) as TdomCMAttrDefinition).DefaultDeclaration,
+                                                  Item(i).NodeValue);
+                if not result then break;
+              end; {for ...}
+            end; {with ...}
+          end; {if ...}
+          if result
+            then result:= writeEndAttListDeclaration(loc);
+        end;
+      ctComment:
+        result:= writeDTDComment(loc,
+                                 (sourceCMNode as TdomCMComment).data);
+      ctElementTypeDeclaration:
+        result:= writeElementTypeDeclaration(loc,
+                                             sourceCMNode.nodeName,
+                                             (sourceCMNode as TdomCMElementTypeDeclaration).Contentspec);
+      ctEntityDeclaration:
+        result:= writeEntityDeclaration(loc,
+                                        sourceCMNode.nodeName,
+                                        sourceCMNode.nodeValue,
+                                        (sourceCMNode as TdomCMEntityDeclaration).publicId,
+                                        (sourceCMNode as TdomCMEntityDeclaration).systemId,
+                                        (sourceCMNode as TdomCMEntityDeclaration).notationName);
+      ctExternalObject: begin
+        versionNumber:= (sourceCMNode as TdomCMExternalObject).version;
+        if versionNumber = '' then  versionNumber:= '1.0';  // xxx necessary?
+        result:= writeStartExtDTD(loc,
+                                  versionNumber,
+                                  (sourceCMNode as TdomCMExternalObject).encoding);
+        if result then begin
+          for i:= 0  to pred(sourceCMNode.childNodes.length) do begin
+            result:= parseloop(sourceCMNode.childNodes.item(i));
+            if not result then break;
+          end;
+        end;
+        if result
+          then result:= writeEndExtDTD(loc);
+      end;
+      ctInternalObject: begin
+        result:= writeStartIntDTD(loc);
+        if result then begin
+          for i:= 0  to pred(sourceCMNode.childNodes.length) do begin
+            result:= parseloop(sourceCMNode.childNodes.item(i));
+            if not result then break;
+          end;
+        end;
+        if result
+          then result:= writeEndIntDTD(loc);
+      end;
+      ctNotationDeclaration:
+        result:= writeNotationDeclaration(loc,
+                                          sourceCMNode.nodeName,
+                                          (sourceCMNode as TdomCMNotationDeclaration).publicId,
+                                          (sourceCMNode as TdomCMNotationDeclaration).systemId);
+      ctParameterEntityDeclaration:
+        result:= true; // do nothing 
+      ctParameterEntityReference:
+        result:= writeParameterEntityRef(loc,
+                                         sourceCMNode.NodeName);
+      ctProcessingInstruction:
+        result:= writeDTDProcessingInstruction(loc,
+                                               (sourceCMNode as TdomCMProcessingInstruction).target,
+                                               (sourceCMNode as TdomCMProcessingInstruction).data);
+      else
+        result:= true;  // xxx raise an exception instead?
+    end; {case ...}
+
+  finally
+    loc.free;
+  end;
+end;
+
+function TXmlStandardCMReader.parse(const sourceCMNode: TdomCMNode): boolean;
+begin
+  result:= parseloop(sourceCMNode);
+end;
+
+
+
+// +++++++++++++++++++++++++ TXmlCustomParser +++++++++++++++++++++++++
+constructor TXmlCustomParser.create(aOwner: TComponent);
+begin
+  inherited;
+  FDOMImpl:= nil;
+end;
+
+procedure TXmlCustomParser.setDomImpl(const impl: TDomImplementation);
+begin
+  if FDOMImpl <> impl then begin
+    if assigned(FDOMImpl) then FDOMImpl.RemoveFreeNotification(Self);
+    FDOMImpl := impl;
+    if assigned(FDOMImpl) then FDOMImpl.FreeNotification(Self);
+  end;
+end;
+
+procedure TXmlCustomParser.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+  inherited Notification(AComponent,Operation);
+  if (Operation = opRemove) and (AComponent = FDomImpl)
+    then FDomImpl:= nil;
+end;
+
+
+
+// ++++++++++++++++++++++++++ TXmlCMAnalyzer ++++++++++++++++++++++++++
+constructor TXmlCMAnalyzer.create(aOwner: TComponent);
+begin
+  inherited;
+  FCMBuilder:= TXmlCMBuilder.create(self);  // xxx will be replaced by TXmlASBuilder in the future.
+  FCMReader:= TXmlStandardCMReader.create(self);
+  FCMReader.NextHandler:= FCMBuilder;
+  FCMReader.DOMImpl:= FDOMImpl;
+  FDtdReader:= TXmlStandardDtdReader.create(self);
+  FDtdReader.NextHandler:= FCMBuilder;
+  FDtdReader.DOMImpl:= FDOMImpl;
+end;
+
+destructor TXmlCMAnalyzer.destroy;
+begin
+  FCMReader.free;
+  FCMBuilder.free; // xxx will be replaced by TXmlASBuilder in the future.
+  FDtdReader.free;
+  inherited;
+end;
+
+procedure TXmlCMAnalyzer.setDomImpl(const impl: TDomImplementation);
+begin
+  inherited;
+  FCMReader.DOMImpl:= impl;
+  FDtdReader.DOMImpl:= impl;
+end;
+
+function TXmlCMAnalyzer.analyzeCM(const source: TdomCustomCMIEObject;
+                                  const target: TdomCMObject): boolean;
+begin
+  FCMBuilder.contentModel:= target;
+  result:= FCMReader.parse(source);
+end;
+
+procedure TXmlCMAnalyzer.analyzeIntDTDStr(      str: UnicodeString;
+                                          const target: TdomCMObject);
+var
+  WStrStream: TdomWideStringStream;
+  InputSrc: TXmlInputSource;
+begin
+  FCMBuilder.FContentModel:= target;
+  if str = '' then exit;
+  if str[1] <> #$feff
+    then str:= concat(UnicodeString(#$feff),str);
+  WStrStream:= TdomWideStringStream.createFromString(str);
+  try
+    InputSrc:= TXmlInputSource.create(WStrStream,'','',1);
+    try
+      // Note: Testing for illegal XML or Text Declaration is not necessary here.
+      if not FDtdReader.parseInternalSubset(InputSrc)
+        then raise EParserException.create('Parser error.');  // xxx ???
+    finally
+      InputSrc.free;
+    end; {try}
+  finally
+    WStrStream.free;
+  end; {try}
+end;
+
+
+
+{ TXmlToDomParser }
+constructor TXmlToDomParser.create(aOwner: TComponent);
+// Note: If you derive your own parser class from TXmlToDomParser
+// which is calling the inherited create constructor of TXmlToDomParser
+// you should take care of freeing the Handlers, Builders and Readers
+// created here which are not longer of use. Code example:
+//
+// type TMyParser = class(TXmlToDomParser)  ...
+// type TMyXMLReader = class(TXmlStandardDocReader) ...
+//
+// constructor TMyParser.create(aOwner:TComponent);
+// begin
+//   Inherited create(aOwner);
+//   FDocReader.free;
+//   FDocReader:= TMyXMLReader.create;
+//   FDocXMLReader.NextHandler:= FWFTestContentHandler;
+// end;
+begin
+  inherited;
+
+  FDocReader:= TXmlStandardDocReader.create(self);
+  FWFTestContentHandler:= TXmlWFTestContentHandler.create(self);
+  FDocBuilder:= TXmlDocBuilder.create(self);
+  FDtdReader:= TXmlStandardDtdReader.create(self);
+  FWFTestDtdHandler:= TXmlWFTestDtdHandler.create(self);
+  FDtdBuilder:= TXmlDtdBuilder.create(self);
+
+  FDocReader.DOMImpl:= FDOMImpl;
+  FDtdReader.DOMImpl:= FDOMImpl;
+
+  FDocReader.NextHandler:= FWFTestContentHandler;
+  FWFTestContentHandler.NextHandler:= FDocBuilder;
+  FDtdReader.NextHandler:= FWFTestDtdHandler;
+  FWFTestDtdHandler.NextHandler:= FDtdBuilder;
+
+  FTabWidth:= 1;
+end;
+
+procedure TXmlToDomParser.doExternalSubset(const parentSystemId: UnicodeString;
+                                             var publicId,
+                                                 systemId: UnicodeString;
+                                             var stream: TStream;
+                                             var action: TXmlParserAction);
+begin
+  action:= paFail;
+  if assigned(FDOMImpl)
+    then FDOMImpl.doExternalParsedEntity(parentSystemId,publicId,systemId,stream,action);
+end;
+
+function TXmlToDomParser.processDocFile(const pubId,
+                                              sysId: UnicodeString): boolean;
+var
+  MStream: TMemoryStream;
+begin
+  if sysId = ''
+    then raise EAccessViolation.create('Filename not specified.');
+  MStream:= TMemoryStream.create;
+  try
+    MStream.LoadFromFile(sysId);
+    result:= processDocStream(MStream,pubId,sysId);
+  finally
+    MStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processDocSourceCode(const intDtdSourceCode: TXmlSourceCode;
+                                              const pubId,
+                                                    sysId: UnicodeString): boolean;
+var
+  content: TdomCustomStr;
+  i: integer;
+begin
+  if not assigned(intDtdSourceCode) then raise EAccessViolation.create('Stream not specified.');
+  content:= TdomCustomStr.create;
+  try
+    for i:= 0 to intDtdSourceCode.Count -1 do
+      content.addWideString(TXmlSourceCodePiece(intDtdSourceCode[i]).text);
+    result:= processDocWideString(content.value,pubId,sysId);
+  finally
+    content.free;
+  end;
+end;
+
+function TXmlToDomParser.processDocStream(const stream: TStream;
+                                          const pubId,
+                                                sysId: UnicodeString): boolean;
+var
+  InputSrc: TXmlInputSource;
+begin
+  if not assigned(stream) then raise EAccessViolation.create('Stream not specified.');
+  InputSrc:= TXmlInputSource.create(stream,pubId,sysId,FTabWidth);
+  try
+    if InputSrc.hasMalformedDecl
+     or not ( InputSrc.declType in [ DT_XML_DECLARATION,
+                                     DT_XML_OR_TEXT_DECLARATION,
+                                     DT_UNSPECIFIED] )
+    then begin
+      sendErrorNotification(ET_INVALID_XML_DECL);
+      result:= false;
+    end else result:= FDocReader.parse(InputSrc);
+  finally
+    InputSrc.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processDocString(const str: AnsiString;
+                                          const pubId,
+                                                sysId: UnicodeString): boolean;
+var
+  StrStream: TROBinaryMemoryStream;
+begin
+  if str = '' then raise EAccessViolation.create('Empty string.');
+  StrStream:= TROBinaryMemoryStream.Create(str);
+  try
+    result:= processDocStream(StrStream,pubId,sysId);
+  finally
+    StrStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processDocWideString(str: UnicodeString;
+                                              const pubId,
+                                                    sysId: UnicodeString): boolean;
+var
+  WStrStream: TdomWideStringStream;
+begin
+  if str = '' then raise EAccessViolation.create('Empty string.');
+  if str[1] <> #$feff
+    then  str:= concat(UnicodeString(#$feff),str);
+  WStrStream:= TdomWideStringStream.createFromString(str);
+  try
+    result:= processDocStream(WStrStream,pubId,sysId);
+  finally
+    WStrStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processDtd(const doc: TdomDocument): boolean;
+var
+  PId,SId: UnicodeString;
+  extDtdStream: TStream;
+  action: TXmlParserAction;
+  intSubsetData,intSubsetPubId,intSubsetSysId,extSubsetPubId,extSubsetSysId: UnicodeString;
+begin
+  result:= true;
+  if not assigned(doc) then exit;
+  if not assigned(doc.doctype) then exit;
+
+  intSubsetPubId:= '';                          // xxx Delete this ???
+  intSubsetSysId:= doc.systemId;
+  with doc.doctype do begin
+    intSubsetData:= internalSubset;
+    extSubsetPubId:= publicId;
+    extSubsetSysId:= systemId;
+  end;
+
+  // Evaluate internal subset:
+  if intSubsetData <> '' then begin
+    result:= processIntDtdWideString(intSubsetData,intSubsetPubId,intSubsetSysId);
+    if not result then exit;  // error while parsing?
+  end;
+
+  // xxx Make external content model evaluation optional?
+  // xxx Evaluation of standalone! 
+
+  // Evaluate external subset:
+  if (extSubsetPubId <> '') or (extSubsetSysId <> '') then begin
+    extDtdStream:= nil;
+    PId:= extSubsetPubId;
+    SId:= extSubsetSysId;
+    try
+      doExternalSubset(intSubsetSysId,PId,SId,extDtdStream,action);
+      if action = paFail then begin
+        sendErrorNotification(ET_EXTERNAL_SUBSET_NOT_FOUND);
+        result:= false;
+        exit;
+      end;
+      if assigned(extDtdStream)
+        then result:= processExtDtdStream(extDtdStream,PId,SId);
+    finally
+      if assigned(extDtdStream)
+        then extDtdStream.free;
+    end; {try ... finally ...}
+  end; {if (extSubsetPubId <> '') ...}
+
+end;
+
+function TXmlToDomParser.processExtDtdFile(const pubId,
+                                                 sysId: UnicodeString): boolean;
+var
+  MStream: TMemoryStream;
+begin
+  if sysId = ''
+    then raise EAccessViolation.create('Filename not specified.');
+  MStream:= TMemoryStream.create;
+  try
+    MStream.LoadFromFile(sysId);
+    result:= processExtDtdStream(MStream,pubId,sysId);
+  finally
+    MStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processExtDtdSourceCode(const intDtdSourceCode: TXmlSourceCode;
+                                                 const pubId,
+                                                       sysId: UnicodeString): boolean;
+var
+  content: TdomCustomStr;
+  i: integer;
+begin
+  if not assigned(intDtdSourceCode) then raise EAccessViolation.create('Stream not specified.');
+  content:= TdomCustomStr.create;
+  try
+    for i:= 0 to pred(intDtdSourceCode.Count) do
+      content.addWideString(TXmlSourceCodePiece(intDtdSourceCode[i]).text);
+    result:= processExtDtdWideString(content.value,pubId,sysId);
+  finally
+    content.free;
+  end;
+end;
+
+function TXmlToDomParser.processExtDtdStream(const stream: TStream;
+                                             const pubId,
+                                                   sysId: UnicodeString): boolean;
+var
+  InputSrc: TXmlInputSource;
+begin
+  if not assigned(stream) then raise EAccessViolation.create('Stream not specified.');
+  InputSrc:= TXmlInputSource.create(stream,pubId,sysId,FTabWidth);
+  try
+    if InputSrc.hasMalformedDecl
+     or not ( InputSrc.declType in [ DT_TEXT_DECLARATION,
+                                     DT_XML_OR_TEXT_DECLARATION,
+                                     DT_UNSPECIFIED] )
+    then begin
+      sendErrorNotification(ET_INVALID_TEXT_DECL);
+      result:= false;
+    end else result:= FDtdReader.parseExternalSubset(InputSrc);
+  finally
+    InputSrc.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processExtDtdString(const str: AnsiString;
+                                             const pubId,
+                                                   sysId: UnicodeString): boolean;
+var
+  StrStream: TROBinaryMemoryStream;
+begin
+  if str = '' then raise EAccessViolation.create('Empty string.');
+  StrStream:= TROBinaryMemoryStream.create(str);
+  try
+    result:= processExtDtdStream(StrStream,pubId,sysId);
+  finally
+    StrStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processExtDtdWideString(str: UnicodeString;
+                                                 const pubId,
+                                                 sysId: UnicodeString): boolean;
+var
+  WStrStream: TdomWideStringStream;
+begin
+  if str = '' then raise EAccessViolation.create('Empty string.');
+  if str[1] <> #$feff
+    then  str:= concat(UnicodeString(#$feff),str);
+  WStrStream:= TdomWideStringStream.createFromString(str);
+  try
+    result:= processExtDtdStream(WStrStream,pubId,sysId);
+  finally
+    WStrStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processIntDtdFile(const pubId,
+                                                 sysId: UnicodeString): boolean;
+var
+  MStream: TMemoryStream;
+begin
+  if sysId = ''
+    then raise EAccessViolation.create('Filename not specified.');
+  MStream:= TMemoryStream.create;
+  try
+    MStream.LoadFromFile(sysId);
+    result:= processIntDtdStream(MStream,pubId,sysId);
+  finally
+    MStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processIntDtdSourceCode(const intDtdSourceCode: TXmlSourceCode;
+                                                 const pubId,
+                                                       sysId: UnicodeString): boolean;
+var
+  content: TdomCustomStr;
+  i: integer;
+begin
+  if not assigned(intDtdSourceCode) then raise EAccessViolation.create('Stream not specified.');
+  content:= TdomCustomStr.create;
+  try
+    for i:= 0 to pred(intDtdSourceCode.Count) do
+      content.addWideString(TXmlSourceCodePiece(intDtdSourceCode[i]).text);
+    result:= processIntDtdWideString(content.value,pubId,sysId);
+  finally
+    content.free;
+  end;
+end;
+
+function TXmlToDomParser.processIntDtdStream(const stream: TStream;
+                                             const pubId,
+                                                   sysId: UnicodeString): boolean;
+var
+  InputSrc: TXmlInputSource;
+begin
+  if not assigned(stream) then raise EAccessViolation.create('Stream not specified.');
+  InputSrc:= TXmlInputSource.create(stream,pubId,sysId,FTabWidth);
+  try
+    if InputSrc.hasMalformedDecl
+     or not ( InputSrc.declType in [ DT_TEXT_DECLARATION,
+                                     DT_XML_OR_TEXT_DECLARATION,
+                                     DT_UNSPECIFIED] )
+    then begin
+      sendErrorNotification(ET_INVALID_TEXT_DECL);
+      result:= false;
+    end else result:= FDtdReader.parseInternalSubset(InputSrc);
+  finally
+    InputSrc.free;
+  end;
+end;
+
+function TXmlToDomParser.processIntDtdString(const str: AnsiString;
+                                             const pubId,
+                                                   sysId: UnicodeString): boolean;
+var
+  StrStream: TROBinaryMemoryStream;
+begin
+  if str = '' then raise EAccessViolation.create('Empty string.');
+  StrStream:= TROBinaryMemoryStream.create(str);
+  try
+    result:= processIntDtdStream(StrStream,pubId,sysId);
+  finally
+    StrStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.processIntDtdWideString(str: UnicodeString;
+                                                 const pubId,
+                                                       sysId: UnicodeString): boolean;
+var
+  WStrStream: TdomWideStringStream;
+begin
+  if str = '' then raise EAccessViolation.create('Empty string.');
+  if str[1] <> #$feff
+    then  str:= concat(UnicodeString(#$feff),str);
+  WStrStream:= TdomWideStringStream.createFromString(str);
+  try
+    result:= processIntDtdStream(WStrStream,pubId,sysId);
+  finally
+    WStrStream.free;
+  end; {try}
+end;
+
+function TXmlToDomParser.sendErrorNotification(const xmlErrorType: TXmlErrorType): boolean;
+var
+  error: TdomError;
+begin
+  error:= TdomError.createFromLocator(xmlErrorType,nil,'');
+  try
+    if assigned(FDomImpl) then begin
+      result:= FDomImpl.handleError(self,error);
+    end else if error.severity = DOM_SEVERITY_FATAL_ERROR
+      then result:= false
+      else result:= true;
+  finally
+    error.free;
+  end;
+end;
+
+procedure TXmlToDomParser.setDomImpl(const impl: TDomImplementation);
+begin
+  inherited;
+  FDocReader.DOMImpl:= impl;
+  FDtdReader.DOMImpl:= impl;
+end;
+
+procedure TXmlToDomParser.setTabWidth(const value: integer);
+begin
+  FTabWidth:= value;
+end;
+
+procedure TXmlToDomParser.docSourceCodeToDom(const docSourceCode: TXmlSourceCode;
+                                             const pubId,
+                                                   sysId: UnicodeString;
+                                             const refNode: TdomNode);
+begin
+  FDocBuilder.referenceNode:= refNode;
+  if refNode is TdomDocument
+    then FWFTestContentHandler.testRootFound:= true
+    else FWFTestContentHandler.testRootFound:= false;
+  if not processDocSourceCode(docSourceCode,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.docStreamToDom(const stream: TStream;
+                                         const pubId,
+                                               sysId: UnicodeString;
+                                         const refNode: TdomNode);
+begin
+  FDocBuilder.referenceNode:= refNode;
+  if refNode is TdomDocument
+    then FWFTestContentHandler.testRootFound:= true
+    else FWFTestContentHandler.testRootFound:= false;
+  if not processDocStream(stream,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.docStringToDom(const str: Ansistring;
+                                         const pubId,
+                                               sysId: UnicodeString;
+                                         const refNode: TdomNode);
+begin
+  FDocBuilder.referenceNode:= refNode;
+  if refNode is TdomDocument
+    then FWFTestContentHandler.testRootFound:= true
+    else FWFTestContentHandler.testRootFound:= false;
+  if not processDocString(str,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.docWideStringToDom(      str: UnicodeString;
+                                             const pubId,
+                                                   sysId: UnicodeString;
+                                             const refNode: TdomNode);
+begin
+  FDocBuilder.referenceNode:= refNode;
+  if refNode is TdomDocument
+    then FWFTestContentHandler.testRootFound:= true
+    else FWFTestContentHandler.testRootFound:= false;
+  if not processDocWideString(str,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.extDtdSourceCodeToDom(const ExtDtdSourceCode: TXmlSourceCode;
+                                                const pubId,
+                                                      sysId: UnicodeString;
+                                                const refNode: TdomCMNode);
+begin
+  FDtdBuilder.extContentModel:= (refNode as TdomCMExternalObject);
+  if not processExtDtdSourceCode(ExtDtdSourceCode,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.extDtdStreamToDom(const stream: TStream;
+                                            const pubId,
+                                                  sysId: UnicodeString;
+                                            const refNode: TdomCMNode);
+begin
+  FDtdBuilder.extContentModel:= (refNode as TdomCMExternalObject);
+  if not processExtDtdStream(Stream,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.extDtdStringToDom(const str: Ansistring;
+                                            const pubId,
+                                                  sysId: UnicodeString;
+                                            const refNode: TdomCMNode);
+begin
+  FDtdBuilder.extContentModel:= (refNode as TdomCMExternalObject);
+  if not processExtDtdString(str,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.extDtdWideStringToDom(      str: UnicodeString;
+                                                const pubId,
+                                                      sysId: UnicodeString;
+                                                const refNode: TdomCMNode);
+begin
+  FDtdBuilder.extContentModel:= (refNode as TdomCMExternalObject);
+  if not processExtDtdWideString(str,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.intDtdSourceCodeToDom(const intDtdSourceCode: TXmlSourceCode;
+                                                const pubId,
+                                                      sysId: UnicodeString;
+                                                const refNode: TdomCMNode);
+begin
+  FDtdBuilder.intContentModel:= (refNode as TdomCMInternalObject);
+  if not processIntDtdSourceCode(intDtdSourceCode,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.intDtdStreamToDom(const stream: TStream;
+                                            const pubId,
+                                                  sysId: UnicodeString;
+                                            const refNode: TdomCMNode);
+begin
+  FDtdBuilder.intContentModel:= (refNode as TdomCMInternalObject);
+  if not processIntDtdStream(stream,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.intDtdStringToDom(const str: Ansistring;
+                                            const pubId,
+                                                  sysId: UnicodeString;
+                                            const refNode: TdomCMNode);
+begin
+  FDtdBuilder.intContentModel:= (refNode as TdomCMInternalObject);
+  if not processIntDtdString(str,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+procedure TXmlToDomParser.intDtdWideStringToDom(      str: UnicodeString;
+                                                const pubId,
+                                                      sysId: UnicodeString;
+                                                const refNode: TdomCMNode);
+begin
+  FDtdBuilder.intContentModel:= (refNode as TdomCMInternalObject);
+  if not processIntDtdWideString(str,pubId,sysId)
+    then raise EParserException.create('Parser error.');
+end;
+
+function TXmlToDomParser.fileToDom(const filename: TFileName): TdomDocument;
+var
+  cmObj: TdomCMObject;
+  intCMObj: TdomCMInternalObject;
+  extCMObj: TdomCMExternalObject;
+begin
+  if not assigned(FDOMImpl)
+    then raise EAccessViolation.create('DOMImplementation not specified.');
+  if Filename = ''
+    then raise EAccessViolation.create('Filename not specified.');
+  result:= FDOMImpl.createDocument('dummy',nil);
+  result.clear;    // Delete the dummy root element
+  cmObj:= FDOMImpl.createCMObject(filename);
+  intCMObj:= FDOMImpl.createCMInternalObject('','');
+  extCMObj:= FDOMImpl.createCMExternalObject('','');
+  cmObj.setInternalCM(intCMObj);
+  cmObj.setExternalCM(extCMObj);
+  result.setContentModel(cmObj);
+  try
+    FDocBuilder.referenceNode:= result;
+    FDtdBuilder.extContentModel:= result.contentModel.externalCM;
+    FDtdBuilder.intContentModel:= result.contentModel.internalCM;
+    if not processDocFile('',filename)
+      then raise EParserException.create('Parser error.');
+    if not processDtd(result)
+      then raise EParserException.create('Parser error.');
+  except
+    FDOMImpl.FreeCMExternalObject(extCMObj);
+    FDOMImpl.FreeCMInternalObject(intCMObj);
+    FDOMImpl.freeCMObject(cmObj);
+    FDOMImpl.freeDocument(result);
+    raise;
+  end;
+  FDocBuilder.referenceNode:= nil;
+  FDtdBuilder.extContentModel:= nil;
+  FDtdBuilder.intContentModel:= nil;
+end;
+
+function TXmlToDomParser.sourceCodeToDom(const sc: TXmlSourceCode): TdomDocument;
+var
+  content: TdomCustomStr;
+  i: integer;
+begin
+  if not assigned(sc)
+    then raise EAccessViolation.create('TXmlSourceCode not specified.');
+  content:= TdomCustomStr.create;
+  try
+    for i:= 0 to pred(sc.count) do
+      content.addWideString(TXmlSourceCodePiece(sc[i]).text);
+    result:= wideStringToDom(content.value);
+  finally
+    content.free;
+  end;
+end;
+
+function TXmlToDomParser.streamToDom(const stream: TStream): TdomDocument;
+var
+  cmObj: TdomCMObject;
+  intCMObj: TdomCMInternalObject;
+  extCMObj: TdomCMExternalObject;
+begin
+  if not assigned(FDOMImpl) then raise EAccessViolation.create('DOMImplementation not specified.');
+  if not assigned(stream) then raise EAccessViolation.create('Stream not specified.');
+  result:= FDOMImpl.createDocument('dummy',nil);
+  result.clear;    // Delete the dummy root element
+  cmObj:= FDOMImpl.createCMObject('');
+  intCMObj:= FDOMImpl.createCMInternalObject('','');
+  extCMObj:= FDOMImpl.createCMExternalObject('','');
+  cmObj.setInternalCM(intCMObj);
+  cmObj.setExternalCM(extCMObj);
+  result.setContentModel(cmObj);
+  try
+    FDocBuilder.referenceNode:= result;
+    FDtdBuilder.extContentModel:= result.contentModel.externalCM;
+    FDtdBuilder.intContentModel:= result.contentModel.internalCM;
+    if not processDocStream(stream,'','')
+      then raise EParserException.create('Parser error.');
+    if not processDtd(result)
+      then raise EParserException.create('Parser error.');
+  except
+    FDOMImpl.FreeCMExternalObject(extCMObj);
+    FDOMImpl.FreeCMInternalObject(intCMObj);
+    FDOMImpl.freeCMObject(cmObj);
+    FDOMImpl.freeDocument(result);
+    raise;
+  end;
+  FDocBuilder.referenceNode:= nil;
+  FDtdBuilder.extContentModel:= nil;
+  FDtdBuilder.intContentModel:= nil;
+end;
+
+function TXmlToDomParser.stringToDom(const str: AnsiString): TdomDocument;
+var
+  cmObj: TdomCMObject;
+  intCMObj: TdomCMInternalObject;
+  extCMObj: TdomCMExternalObject;
+begin
+  if not assigned(FDOMImpl) then raise EAccessViolation.create('DOMImplementation not specified.');
+  result:= FDOMImpl.createDocument('dummy',nil);
+  result.clear;    // Delete the dummy root element
+  cmObj:= FDOMImpl.createCMObject('');
+  intCMObj:= FDOMImpl.createCMInternalObject('','');
+  extCMObj:= FDOMImpl.createCMExternalObject('','');
+  cmObj.setInternalCM(intCMObj);
+  cmObj.setExternalCM(extCMObj);
+  result.setContentModel(cmObj);
+  try
+    FDocBuilder.referenceNode:= result;
+    FDtdBuilder.extContentModel:= result.contentModel.externalCM;
+    FDtdBuilder.intContentModel:= result.contentModel.internalCM;
+    if not processDocString(str,'','')
+      then raise EParserException.create('Parser error.');
+    if not processDtd(result)
+      then raise EParserException.create('Parser error.');
+  except
+    FDOMImpl.FreeCMExternalObject(extCMObj);
+    FDOMImpl.FreeCMInternalObject(intCMObj);
+    FDOMImpl.freeCMObject(cmObj);
+    FDOMImpl.freeDocument(result);
+    raise;
+  end;
+  FDocBuilder.referenceNode:= nil;
+  FDtdBuilder.extContentModel:= nil;
+  FDtdBuilder.intContentModel:= nil;
+end;
+
+function TXmlToDomParser.wideStringToDom(str: UnicodeString): TdomDocument;
+var
+  cmObj: TdomCMObject;
+  intCMObj: TdomCMInternalObject;
+  extCMObj: TdomCMExternalObject;
+  WStrStream: TdomWideStringStream;
+  s: UnicodeString;
+begin
+  if not assigned(FDOMImpl) then raise EAccessViolation.create('DOMImplementation not specified.');
+  result:= FDOMImpl.createDocument('dummy',nil);
+  result.clear;    // Delete the dummy root element
+  cmObj:= FDOMImpl.createCMObject('');
+  intCMObj:= FDOMImpl.createCMInternalObject('','');
+  extCMObj:= FDOMImpl.createCMExternalObject('','');
+  cmObj.setInternalCM(intCMObj);
+  cmObj.setExternalCM(extCMObj);
+  result.setContentModel(cmObj);
+  try
+    FDocBuilder.referenceNode:= result;
+    FDtdBuilder.extContentModel:= result.contentModel.externalCM;
+    FDtdBuilder.intContentModel:= result.contentModel.internalCM;
+    // check case when UTF8-code xml in unicodestring
+    if str = '' then raise EAccessViolation.create('Empty string.');
+    if str[1] <> #$feff then  s:= concat(UnicodeString(#$feff),str) else s:=str;
+    WStrStream:= TdomWideStringStream.createFromString(s);
+    try
+      with TXmlInputSource.create(WStrStream,'','',FTabWidth) do try
+        if encoding = etUTF8 then
+          Result := stringToDom({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(str));
+          exit;
+      finally
+        free;
+      end;
+    finally
+      WStrStream.Free;
+    end;
+    // end check case
+    if not processDocWideString(str,'','')
+      then raise EParserException.create('Parser error.');
+    if not processDtd(result)
+      then raise EParserException.create('Parser error.');
+  except
+    FDOMImpl.FreeCMExternalObject(extCMObj);
+    FDOMImpl.FreeCMInternalObject(intCMObj);
+    FDOMImpl.freeCMObject(cmObj);
+    FDOMImpl.freeDocument(result);
+    raise;
+  end;
+  FDocBuilder.referenceNode:= nil;
+  FDtdBuilder.extContentModel:= nil;
+  FDtdBuilder.intContentModel:= nil;
+end;
+
+
+
+{ TDomToXmlParser }
+
+constructor TDomToXmlParser.create(aOwner: TComponent);
+begin
+  inherited;
+
+  FDomReader:= TXmlStandardDomReader.create(self);
+  FStreamBuilder:= TXmlStreamBuilder.create(self);
+
+  FDomReader.NextHandler:= FStreamBuilder;
+end;
+
+function TDomToXmlParser.getNewLine: TdomNewLineType;
+begin
+  result:= FStreamBuilder.newLine;
+end;
+
+procedure TDomToXmlParser.setNewLine(const value: TdomNewLineType);
+begin
+  FStreamBuilder.newLine:= value;
+end;
+
+function TDomToXmlParser.writeToStream(const wnode: TdomNode;
+                                       const encoding: UnicodeString;
+                                       const destination: TStream): boolean;
+begin
+  if not assigned(FDOMImpl)
+    then raise EAccessViolation.create('DOMImplementation not specified.');
+  if not assigned(destination)
+    then raise EAccessViolation.create('Destination stream not specified.');
+  if not assigned(wnode)
+    then raise EAccessViolation.create('Source node not specified.');
+
+  FDomReader.DOMImpl:= FDOMImpl;
+  FStreamBuilder.destination:= destination;
+  FStreamBuilder.defaultEncoding:= encoding;  // Raises an ENot_Supported_Err, if the specified encoding is not supported
+  result:= FDomReader.parse(wnode);
+end;
+
+function TDomToXmlParser.writeToString(const wnode: TdomNode;
+                                       const encoding: UnicodeString;
+                                         out S: Ansistring): boolean;
+var
+  xmlStream: TROBinaryMemoryStream;
+begin
+  case StrToEncoding(encoding) of
+    etUTF16BE, etUTF16LE: raise ENot_Supported_Err.create('Encoding not supported error.');
+  end;
+
+  xmlStream:= TROBinaryMemoryStream.create('');
+  try
+    result:= writeToStream(wnode,encoding,xmlStream);
+    S:= xmlStream.ToString;
+  finally
+    xmlStream.free;
+  end;
+end;
+
+function TDomToXmlParser.writeToWideString(const wnode: TdomNode;
+                                             out S: UnicodeString): boolean;
+var
+  xmlStream: TROBinaryMemoryStream;
+begin
+  xmlStream:= TROBinaryMemoryStream.create('');
+  try
+    result:= writeToStream(wnode,'UTF-16BE',xmlStream);
+    SetString(s,PWideChar(xmlStream.Memory), xmlStream.Size div SizeOf(Widechar));
+  finally
+    xmlStream.free;
+  end;
+end;
+
+
+
+{ TCMToXmlParser }
+
+constructor TCMToXmlParser.create(aOwner: TComponent);
+begin
+  inherited;
+
+  FCMReader:= TXmlStandardCMReader.create(self);
+  FStreamBuilder:= TXmlStreamBuilder.create(self);
+
+  FCMReader.NextHandler:= FStreamBuilder;
+end;
+
+function TCMToXmlParser.getNewLine: TdomNewLineType;
+begin
+  result:= FStreamBuilder.newLine;
+end;
+
+procedure TCMToXmlParser.setNewLine(const value: TdomNewLineType);
+begin
+  FStreamBuilder.newLine:= value;
+end;
+
+function TCMToXmlParser.writeToStream(const wnode: TdomCMNode;
+                                      const encoding: UnicodeString;
+                                      const destination: TStream): boolean;
+begin
+  if not assigned(FDOMImpl)
+    then raise EAccessViolation.create('DOMImplementation not specified.');
+  if not assigned(destination)
+    then raise EAccessViolation.create('Destination stream not specified.');
+  if not assigned(wnode)
+    then raise EAccessViolation.create('Source node not specified.');
+
+  FCMReader.DOMImpl:= FDOMImpl;
+  FStreamBuilder.destination:= destination;
+  FStreamBuilder.defaultEncoding:= encoding;  // Raises an ENot_Supported_Err, if the specified encoding is not supported
+  result:= FCMReader.parse(wnode);
+end;
+
+function TCMToXmlParser.writeToString(const wnode: TdomCMNode;
+                                      const encoding: UnicodeString;
+                                        out S: Ansistring): boolean;
+var
+  xmlStream: TROBinaryMemoryStream;
+begin
+  case StrToEncoding(encoding) of
+    etUTF16BE, etUTF16LE: raise ENot_Supported_Err.create('Encoding not supported error.');
+  end;
+
+  xmlStream:= TROBinaryMemoryStream.create('');
+  try
+    result:= writeToStream(wnode,encoding,xmlStream);
+    S:= xmlStream.ToString;
+  finally
+    xmlStream.free;
+  end;
+end;
+
+function TCMToXmlParser.writeToWideString(const wnode: TdomCMNode;
+                                            out S: UnicodeString): boolean;
+var
+  xmlStream: TROBinaryMemoryStream;
+begin
+  xmlStream:= TROBinaryMemoryStream.create('');
+  try
+    result:= writeToStream(wnode,'UTF-16BE',xmlStream);
+    SetString(s,PWideChar(xmlStream.Memory), xmlStream.Size div SizeOf(Widechar));
+  finally
+    xmlStream.free;
+  end;
+end;
+
+
+
+{ TdomXPathSyntaxNodeStack }
+
+constructor TdomXPathSyntaxNodeStack.create;
+begin
+  inherited;
+  FNodeList:= TList.create;
+end;
+
+destructor TdomXPathSyntaxNodeStack.destroy;
+begin
+  clear;
+  FNodeList.free;
+  inherited;
+end;
+
+procedure TdomXPathSyntaxNodeStack.clear;
+var
+  i: integer;
+begin
+  for i:= 0 to pred(FNodeList.Count) do
+    TdomXPathSyntaxNode(FNodeList[i]).free;
+end;
+
+function TdomXPathSyntaxNodeStack.getLength: integer;
+begin
+  result:= FNodeList.count;
+end;
+
+function TdomXPathSyntaxNodeStack.peek(offset: integer): TdomXPathSyntaxNode;
+var
+  index: integer;
+begin
+  index:= pred(FNodeList.count)-offset;
+  if (index < 0) or (index >= FNodeList.count)
+    then result:= nil
+    else result:= TdomXPathSyntaxNode(FNodeList.List^[index]);
+end;
+
+function TdomXPathSyntaxNodeStack.pop: TdomXPathSyntaxNode;
+begin
+  result:= FNodeList[pred(FNodeList.count)];
+  FNodeList.delete(pred(FNodeList.count));
+end;
+
+function TdomXPathSyntaxNodeStack.push(node: TdomXPathSyntaxNode): TdomXPathSyntaxNode;
+begin
+  result:= TdomXPathSyntaxNode(FNodeList.add(node));
+end;
+
+{ TdomXPathSyntaxNode }
+
+constructor TdomXPathSyntaxNode.create(const value: UnicodeString);
+begin
+  FLeft:= nil;
+  FRight:= nil;
+  FValue:= value;
+end;
+
+destructor TdomXPathSyntaxNode.destroy;
+begin
+  if assigned (FLeft) then FLeft.free;
+  if assigned (FRight) then FRight.free;
+  inherited;
+end;
+
+function TdomXPathSyntaxNode.evaluate(const contextNode: TdomNode;
+                                      const oldResult: TdomXPathResult;
+                                      const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  // By default pass the evaluation to the left child XPath syntax node.
+  // If none is present then raise an exception.
+  if assigned(left) then begin
+    result:= left.evaluate(contextNode,oldResult,resolver);
+  end else begin
+    if assigned(oldResult) then oldResult.free;
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+end;
+
+{ TdomXPathStep }
+
+function TdomXPathStep.addStep(const step: TdomXPathStep): boolean;
+begin
+  if not assigned(right) then begin
+    right:= step;
+    result:= true;
+  end else begin
+    if right is TdomXPathStep
+      then result:= TdomXPathStep(right).addStep(step)
+      else result:= false;
+  end;
+end;
+
+function TdomXPathStep.evaluate(const contextNode: TdomNode;
+                                const oldResult: TdomXPathResult;
+                                const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // Remark: To evaluate a Step the evaluate2 function must be used.
+end;
+
+function TdomXPathStep.evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                                 const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult;
+var
+  newResult: TdomXPathSnapshotResult;
+begin
+  if not assigned(oldSnapshotResult)
+    then raise EXPath_Type_Err.create('XPath type error.');
+  if left is TdomXPathCustomAxisName then begin
+
+    if oldSnapshotResult.snapshotLength > 0 then begin
+      newResult:= TdomXPathCustomAxisName(left).evaluate2(oldSnapshotResult,resolver);
+      if right is TdomXPathStep
+        then result:= TdomXPathStep(right).evaluate2(newResult,resolver)
+        else result:= newResult;
+    end else result:= oldSnapshotResult;
+    
+  end else raise EXPath_Type_Err.create('XPath type error.');
+end;
+
+{ TdomXPathCustomAxisName }
+
+constructor TdomXPathCustomAxisName.create(const avalue: UnicodeString);
+begin
+  inherited;
+  FAxisType:= XPATH_FORWARD_AXIS;
+  FPrincipalNodeType:= ntElement_Node;
+end;
+
+function TdomXPathCustomAxisName.evaluate(const contextNode: TdomNode;
+                                          const oldResult: TdomXPathResult;
+                                          const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // Remark: To evaluate an AxisName the evaluate2 function must be used.
+end;
+
+function TdomXPathCustomAxisName.evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                                           const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult;
+var
+  i: integer;
+  n: TdomNode;
+  axisNodeSnapshot,inputSnapshot,nodeTestSnapshot: TdomXPathSnapshotResult;
+
+  function evaluatePredicate(const snapshot: TdomXPathSnapshotResult):TdomXPathSnapshotResult;
+  begin
+    if assigned(right) then begin
+      if right is TdomXPathPredicate then begin
+        if snapshot.snapshotLength > 0
+          then result:= TdomXPathPredicate(right).evaluate2(snapshot,resolver)
+          else result:= snapshot;
+      end else begin
+        snapshot.free;
+        raise EXPath_Type_Err.create('XPath type error.');
+      end;
+    end else result:= snapshot;
+  end;
+
+  function evaluateNodeTest(const snapshot: TdomXPathSnapshotResult):TdomXPathSnapshotResult;
+  begin
+    if assigned(left) then begin
+      if left is TdomXPathNodeTest then begin
+        if snapshot.snapshotLength > 0
+          then result:= TdomXPathNodeTest(left).evaluate2(snapshot,FPrincipalNodeType,resolver)
+          else result:= snapshot;
+      end else begin
+        snapshot.free;
+        raise EXPath_Type_Err.create('XPath type error.');
+      end;
+    end else raise EXPath_Type_Err.create('XPath type error.');
+  end;
+
+begin
+  if not assigned(oldSnapshotResult)
+    then raise EXPath_Type_Err.create('XPath type error.');
+  try
+    result:= TdomXPathSnapshotResult.create;
+    result.axisType:= axisType;
+    try
+      with oldSnapshotResult do begin
+        for i:= 0 to pred(snapshotLength) do begin
+          n:= snapshotItem(i);
+          if assigned(n) then begin
+            inputSnapshot:= getAxisNodeSnapshot(n);
+            nodeTestSnapshot:= evaluateNodeTest(inputSnapshot);
+            axisNodeSnapshot:= evaluatePredicate(nodeTestSnapshot);
+            result.addSnapshotResult(axisNodeSnapshot);
+          end;
+        end;
+      end;
+    except
+      result.free;
+      raise;
+    end;
+  finally
+    oldSnapshotResult.free;
+  end;
+end;
+
+{ TdomXPathAxisNameAncestor }
+
+constructor TdomXPathAxisNameAncestor.create(const avalue: UnicodeString);
+begin
+  inherited;
+  FAxisType:= XPATH_REVERSE_AXIS;
+end;
+
+function TdomXPathAxisNameAncestor.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  n: TdomNode;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    case contextNode.nodeType of
+      ntElement_Node,ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+      ntProcessing_Instruction_Node,ntComment_Node:
+        n:= contextNode.parentNode;
+      ntAttribute_Node:
+        n:= TdomAttr(contextNode).ownerElement;
+      ntXPath_Namespace_Node:
+        n:= TdomXPathNamespace(contextNode).ownerElement;
+    else
+      n:= nil;
+    end;
+    while assigned(n) do begin
+      result.add(n);
+      n:= n.parentNode;
+    end;
+  end;
+end;
+
+{ TdomXPathAxisNameAncestorOrSelf }
+
+constructor TdomXPathAxisNameAncestorOrSelf.create(const avalue: UnicodeString);
+begin
+  inherited;
+  FAxisType:= XPATH_REVERSE_AXIS;
+end;
+
+function TdomXPathAxisNameAncestorOrSelf.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  n: TdomNode;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    result.add(contextNode);
+    case contextNode.nodeType of
+      ntElement_Node,ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+      ntProcessing_Instruction_Node,ntComment_Node:
+        n:= contextNode.parentNode;
+      ntAttribute_Node:
+        n:= TdomAttr(contextNode).ownerElement;
+      ntXPath_Namespace_Node:
+        n:= TdomXPathNamespace(contextNode).ownerElement;
+    else
+      n:= nil;
+    end;
+    while assigned(n) do begin
+      result.add(n);
+      n:= n.parentNode;
+    end;
+  end;
+end;
+
+{ TdomXPathAxisNameAttribute }
+
+constructor TdomXPathAxisNameAttribute.create(const avalue: UnicodeString);
+begin
+  inherited;
+  FPrincipalNodeType:= ntAttribute_Node;
+end;
+
+function TdomXPathAxisNameAttribute.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  i: integer;
+begin
+  // xxx Namespace definition attributes must be left out!
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then
+    with contextNode do
+      if nodeType = ntElement_Node then
+        with attributes do
+          for i:= 0 to pred(length) do
+            result.add(item(i));
+end;
+
+{ TdomXPathAxisNameChild }
+
+function TdomXPathAxisNameChild.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  i: integer;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then
+    with contextNode.childNodes do
+      for i:= 0 to pred(length) do
+        result.add(item(i));
+end;
+
+{ TdomXPathAxisNameDescendant }
+
+function TdomXPathAxisNameDescendant.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  n: TdomNode;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    with contextNode.ownerDocument.createNodeIterator(contextNode,
+                                                      [ ntElement_Node,
+                                                        ntText_Node,
+                                                        ntCDATA_Section_Node,
+                                                        ntEntity_Reference_Node,
+                                                        ntProcessing_Instruction_Node,
+                                                        ntComment_Node ],
+                                                      nil,
+                                                      false) do begin
+      n:= NextNode;
+      if n = contextNode then n:= NextNode;
+      while assigned(n) do begin
+        result.add(n);
+        n:= NextNode;
+      end;
+      detach;
+    end;
+    contextNode.ownerDocument.clearInvalidNodeIterators;
+  end;
+end;
+
+{ TdomXPathAxisNameDescendantOrSelf }
+
+function TdomXPathAxisNameDescendantOrSelf.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  n: TdomNode;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    with contextNode.ownerDocument.createNodeIterator(contextNode,
+                                                      [ ntElement_Node,
+                                                        ntText_Node,
+                                                        ntCDATA_Section_Node,
+                                                        ntEntity_Reference_Node,
+                                                        ntProcessing_Instruction_Node,
+                                                        ntComment_Node,
+                                                        ntDocument_Node ],
+                                                      nil,
+                                                      false) do begin
+      n:= NextNode;
+      while assigned(n) do begin
+        result.add(n);
+        n:= NextNode;
+      end;
+      detach;
+    end;
+    contextNode.ownerDocument.clearInvalidNodeIterators;
+  end;
+end;
+
+{ TdomXPathAxisNameFollowing }
+
+function TdomXPathAxisNameFollowing.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  p,q: TdomNode;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    case contextNode.nodeType of
+      ntElement_Node,ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+      ntProcessing_Instruction_Node,ntComment_Node: begin
+        q:= contextNode;
+        p:= contextNode.nextSibling;
+        while assigned(p) do begin
+          if not ( ( (q.nodeType = ntText_Node) or
+                     (q.nodeType = ntCDATA_Section_Node) or
+                     (q.nodeType = ntEntity_Reference_Node) ) and
+                   ( (p.nodeType = ntText_Node) or
+                     (p.nodeType = ntCDATA_Section_Node) or
+                     (p.nodeType = ntEntity_Reference_Node) ) )
+          then result.addSubtree(p);
+          q:= p;
+          p.nextSibling;
+        end;
+      end;
+    end;
+  end;
+end;
+
+{ TdomXPathAxisNameFollowingSibling }
+
+function TdomXPathAxisNameFollowingSibling.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  p,q: TdomNode;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    case contextNode.nodeType of
+      ntElement_Node,ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+      ntProcessing_Instruction_Node,ntComment_Node: begin
+        q:= contextNode;
+        p:= contextNode.nextSibling;
+        while assigned(p) do begin
+          if not ( ( (q.nodeType = ntText_Node) or
+                     (q.nodeType = ntCDATA_Section_Node) or
+                     (q.nodeType = ntEntity_Reference_Node) ) and
+                   ( (p.nodeType = ntText_Node) or
+                     (p.nodeType = ntCDATA_Section_Node) or
+                     (p.nodeType = ntEntity_Reference_Node) ) )
+          then result.add(p);
+          q:= p;
+          p.nextSibling;
+        end;
+      end;
+    end;
+  end;
+end;
+
+{ TdomXPathAxisNameNamespace }
+
+constructor TdomXPathAxisNameNamespace.create(const avalue: UnicodeString);
+begin
+  inherited;
+  FPrincipalNodeType:= ntXPath_Namespace_Node;
+end;
+
+function TdomXPathAxisNameNamespace.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+begin
+  Result := nil;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // xxx Add support for namespace nodes in a later version.
+end;
+
+{ TdomXPathAxisNameParent }
+
+function TdomXPathAxisNameParent.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  n: TdomNode;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    case contextNode.nodeType of
+      ntElement_Node,ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+      ntProcessing_Instruction_Node,ntComment_Node:
+        n:= contextNode.parentNode;
+      ntAttribute_Node:
+        n:= TdomAttr(contextNode).ownerElement;
+      ntXPath_Namespace_Node:
+        n:= TdomXPathNamespace(contextNode).ownerElement;
+    else
+      n:= nil;
+    end;
+    if assigned(n)
+      then result.add(n);
+  end;
+end;
+
+{ TdomXPathAxisNamePreceding }
+
+constructor TdomXPathAxisNamePreceding.create(const avalue: UnicodeString);
+begin
+  inherited;
+  FAxisType:= XPATH_REVERSE_AXIS;
+end;
+
+function TdomXPathAxisNamePreceding.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  n: TdomNode;
+
+  procedure addPreceding(const snapshot: TdomXPathSnapshotResult;
+                         const node: TdomNode);
+  var
+    p,q: TdomNode;
+  begin
+    case node.nodeType of
+      ntElement_Node,ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+      ntProcessing_Instruction_Node,ntComment_Node: begin
+        p:= node.previousSibling;
+        while assigned(p) do begin
+          q:= p.previousSibling;
+          if assigned(q) then begin
+            if not ( ( (p.nodeType = ntText_Node) or
+                       (p.nodeType = ntCDATA_Section_Node) or
+                       (p.nodeType = ntEntity_Reference_Node) ) and
+                     ( (q.nodeType = ntText_Node) or
+                       (q.nodeType = ntCDATA_Section_Node) or
+                       (q.nodeType = ntEntity_Reference_Node) ) )
+            then snapshot.addSubtree(p);
+            p:= q;
+          end else begin
+            snapshot.addSubtree(p);
+            break;
+          end;
+        end;
+      end;
+    end;
+  end;
+
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    addPreceding(result,contextNode);
+    case contextNode.nodeType of
+      ntElement_Node,ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+      ntProcessing_Instruction_Node,ntComment_Node:
+        n:= contextNode.parentNode;
+      ntAttribute_Node:
+        n:= TdomAttr(contextNode).ownerElement;
+      ntXPath_Namespace_Node:
+        n:= TdomXPathNamespace(contextNode).ownerElement;
+    else
+      n:= nil;
+    end;
+    while assigned(n) do begin
+      addPreceding(result,n);
+      n:= n.parentNode;
+    end;
+  end;
+end;
+
+{ TdomXPathAxisNamePrecedingSibling }
+
+constructor TdomXPathAxisNamePrecedingSibling.create(const avalue: UnicodeString);
+begin
+  inherited;
+  FAxisType:= XPATH_REVERSE_AXIS;
+end;
+
+function TdomXPathAxisNamePrecedingSibling.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+var
+  p,q: TdomNode;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode) then begin
+    case contextNode.nodeType of
+      ntElement_Node,ntText_Node,ntCDATA_Section_Node,ntEntity_Reference_Node,
+      ntProcessing_Instruction_Node,ntComment_Node: begin
+        p:= contextNode.previousSibling;
+        while assigned(p) do begin
+          q:= p.previousSibling;
+          if assigned(q) then begin
+            if not ( ( (p.nodeType = ntText_Node) or
+                       (p.nodeType = ntCDATA_Section_Node) or
+                       (p.nodeType = ntEntity_Reference_Node) ) and
+                     ( (q.nodeType = ntText_Node) or
+                       (q.nodeType = ntCDATA_Section_Node) or
+                       (q.nodeType = ntEntity_Reference_Node) ) )
+            then result.add(p);
+            p:= q;
+          end else begin
+            result.add(p);
+            break;
+          end;
+        end;
+      end;
+    end;
+  end;
+end;
+
+{ TdomXPathAxisNameSelf }
+
+function TdomXPathAxisNameSelf.getAxisNodeSnapshot(const contextNode: TdomNode): TdomXPathSnapshotResult;
+begin
+  result:= TdomXPathSnapshotResult.create;
+  result.axisType:= axisType;
+  if assigned(contextNode)
+    then result.add(contextNode);
+end;
+
+{ TdomXPathNodeTest }
+
+function TdomXPathNodeTest.evaluate(const contextNode: TdomNode;
+                                    const oldResult: TdomXPathResult;
+                                    const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // Remark: To evaluate a NodeTest the evaluate2 function must be used.
+end;
+
+function TdomXPathNodeTest.evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                                     const principalNodeType: TdomNodeType;
+                                     const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult;
+begin
+  if not assigned(oldSnapshotResult)
+    then raise EXPath_Type_Err.create('XPath type error.');
+
+  if left is TdomXPathNameTest then begin
+    result:= TdomXPathNameTest(left).evaluate2(oldSnapshotResult,principalNodeType,resolver);
+  end else if left is TdomXPathNodeTypeComment then begin
+    result:= TdomXPathNodeTypeComment(left).evaluate2(oldSnapshotResult);
+  end else if left is TdomXPathNodeTypeText then begin
+    result:= TdomXPathNodeTypeText(left).evaluate2(oldSnapshotResult);
+  end else if left is TdomXPathNodeTypePI then begin
+    result:= TdomXPathNodeTypePI(left).evaluate2(oldSnapshotResult);
+  end else if left is TdomXPathNodeTypeNode then begin
+    result:= oldSnapshotResult;
+  end else begin
+    oldSnapshotResult.free;
+    raise EXPath_Type_Err.create('XPath type error.');
+  end;
+end;
+
+{ TdomXPathPredicate }
+
+function TdomXPathPredicate.evaluate(const contextNode: TdomNode;
+                                     const oldResult: TdomXPathResult;
+                                     const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // Remark: To evaluate a NodeTest the evaluate2 function must be used.
+end;
+
+function TdomXPathPredicate.evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                                      const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult;
+var
+  newContextNode: TdomNode;
+  nextPredicateResult: TdomXPathSnapshotResult;
+  predicateResult: TdomXPathResult;
+  predicateResultAsBoolean: TdomXPathBooleanResult;
+  contextPosition: integer;
+begin
+  if not assigned(oldSnapshotResult)
+    then raise EXPath_Type_Err.create('XPath type error.');
+  if not (left is TdomXPathExpr) then begin
+    oldSnapshotResult.free;
+    raise EXPath_Type_Err.create('XPath type error.');
+  end;
+
+  try
+    result:= TdomXPathSnapshotResult.create;
+    result.axisType:= oldSnapshotResult.axisType;
+    with oldSnapshotResult do begin
+      for contextPosition:= 1 to snapshotLength do begin
+        newContextNode:= snapshotitem(pred(contextPosition));
+        try
+          predicateResult:= TdomXPathExpr(left).evaluate(newContextNode,nil,resolver);
+          if predicateResult is TdomXPathNumberResult then begin
+            if TdomXPathNumberResult(predicateResult).numberValue = contextPosition
+              then result.add(newContextNode);
+            predicateResult.free;
+          end else begin
+            predicateResultAsBoolean:= XPathBooleanFunc(predicateResult);
+            if predicateResultAsBoolean.booleanValue
+              then result.add(newContextNode);
+            predicateResultAsBoolean.free;
+          end;
+        except
+          result.free;
+          raise;
+        end;
+      end;
+    end;
+
+    if assigned(right) then begin
+      if right is TdomXPathPredicate then begin
+        nextPredicateResult:= TdomXPathPredicate(right).evaluate2(result,resolver);
+        result:= nextPredicateResult;
+      end else begin
+        result.free;
+        raise EXPath_Type_Err.create('XPath type error.');
+      end;
+    end;
+
+  finally
+    oldSnapshotResult.free;
+  end;
+end;
+
+{ TdomXPathFunctionCall }
+
+function TdomXPathFunctionCall.evaluate(const contextNode: TdomNode;
+                                        const oldResult: TdomXPathResult;
+                                        const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // xxx Support for function calls missing.
+end;
+
+{ TdomXPathUnionExpr }
+
+function TdomXPathUnionExpr.evaluate(const contextNode: TdomNode;
+                                     const oldResult: TdomXPathResult;
+                                     const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftSnapshotResult: TdomXPathSnapshotResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+
+  if (left is TdomXPathUnionExpr) and
+     (right is TdomXPathPathExpr)
+  then begin
+
+    leftSnapshotResult:= TdomXPathSnapshotResult(left.evaluate(contextNode,nil,resolver));
+    leftSnapshotResult.axisType:= XPATH_FORWARD_AXIS;
+    try
+      result:= right.evaluate(contextNode,nil,resolver);
+      TdomXPathSnapshotResult(result).addSnapshotResult(leftSnapshotResult);
+    finally
+      leftSnapshotResult.free;
+    end;
+
+  end else begin
+    result:= inherited evaluate(contextNode,nil,resolver);
+    if result is TdomXPathSnapshotResult
+      then TdomXPathSnapshotResult(result).axisType:= XPATH_FORWARD_AXIS;
+  end;
+end;
+
+{ TdomXPathPathExpr }
+
+function TdomXPathPathExpr.addStep(const step: TdomXPathStep): boolean;
+begin
+  if not assigned(right) then begin
+    right:= step;
+    result:= true;
+  end else begin
+    if right is TdomXPathStep
+      then result:= TdomXPathStep(right).addStep(step)
+      else result:= false;
+  end;
+end;
+
+function TdomXPathPathExpr.evaluate(const contextNode: TdomNode;
+                                    const oldResult: TdomXPathResult;
+                                    const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  newResult: TdomXPathResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if left is TdomXPathFilterExpr then begin
+    // Filter expression plus optional relative location path:
+    newResult:= TdomXPathFilterExpr(left).evaluate(contextNode,nil,resolver);
+    if right is TdomXPathStep then begin
+      if not (newResult is TdomXPathSnapshotResult) then begin
+        newResult.free;
+        raise EXPath_Type_Err.create('XPath type error.');
+      end;
+      result:= TdomXPathStep(right).evaluate2(TdomXPathSnapshotResult(newResult),resolver);
+    end else result:= newResult;
+  end else if left is TdomXPathAbsoluteLocationPath then begin
+    // Absolute location path:
+    if not assigned(contextNode)
+      then raise EXPath_Type_Err.create('XPath type error.');
+    if not assigned(contextNode.ownerDocument)
+      then raise EXPath_Type_Err.create('XPath type error.');
+    newResult:= TdomXPathSnapshotResult.create;
+    TdomXPathSnapshotResult(newResult).add(contextNode.ownerDocument);
+    if right is TdomXPathStep
+      then result:= TdomXPathStep(right).evaluate2(TdomXPathSnapshotResult(newResult),resolver)
+      else result:= newResult;
+  end else begin
+    // Relative location path:
+    if not (right is TdomXPathStep)
+      then raise EXPath_Type_Err.create('XPath type error.');
+    if not assigned(contextNode)
+      then raise EXPath_Type_Err.create('XPath type error.');
+    newResult:= TdomXPathSnapshotResult.create;
+    TdomXPathSnapshotResult(newResult).add(contextNode);
+    result:= TdomXPathStep(right).evaluate2(TdomXPathSnapshotResult(newResult),resolver)
+  end;
+end;
+
+{ TdomXPathFilterExpr }
+
+function TdomXPathFilterExpr.evaluate(const contextNode: TdomNode;
+                                      const oldResult: TdomXPathResult;
+                                      const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  newResult: TdomXPathResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if (left is TdomXPathFilterExpr) and
+     (right is TdomXPathPredicate)
+  then begin
+    // Filter expression plus predicate:
+    newResult:= TdomXPathFilterExpr(left).evaluate(contextNode,nil,resolver);
+    if not (newResult is TdomXPathSnapshotResult) then begin
+      newResult.free;
+      raise EXPath_Type_Err.create('XPath type error.');
+    end;
+
+    // A predicate filters the node-set with respect to the child axis,
+    // so the axis always has to be a forward axis, no matter what axis
+    // the previous expression required:
+    if newResult is TdomXPathSnapshotResult
+      then TdomXPathSnapshotResult(newResult).axisType:= XPATH_FORWARD_AXIS;
+
+    result:= TdomXPathPredicate(right).evaluate2(TdomXPathSnapshotResult(newResult),resolver);
+  end else if (left is TdomXPathPrimaryExpr) and not assigned(right) then begin
+    // PrimaryExpr:
+    result:= TdomXPathPrimaryExpr(left).evaluate(contextNode.ownerDocument.documentElement,nil,resolver);
+  end else raise EXPath_Type_Err.create('XPath type error.');
+end;
+
+{ TdomXPathOrExpr }
+
+function TdomXPathOrExpr.evaluate(const contextNode: TdomNode;
+                                  const oldResult: TdomXPathResult;
+                                  const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  booleanResult: TdomXPathBooleanResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if (left is TdomXPathOrExpr) and (right is TdomXPathAndExpr) then begin
+    booleanResult:= XPathBooleanFunc(left.evaluate(contextNode,nil,resolver));
+    if booleanResult.booleanValue then begin
+      result:= booleanResult;
+    end else begin
+      booleanResult.free;
+      result:= XPathBooleanFunc(right.evaluate(contextNode,nil,resolver));
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathAndExpr }
+
+function TdomXPathAndExpr.evaluate(const contextNode: TdomNode;
+                                   const oldResult: TdomXPathResult;
+                                   const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  booleanResult: TdomXPathBooleanResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if (left is TdomXPathOrExpr) and (right is TdomXPathAndExpr) then begin
+    booleanResult:= XPathBooleanFunc(left.evaluate(contextNode,nil,resolver));
+    if not booleanResult.booleanValue then begin
+      result:= booleanResult;
+    end else begin
+      booleanResult.free;
+      result:= XPathBooleanFunc(right.evaluate(contextNode,nil,resolver));
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathIsEqualExpr }
+
+function TdomXPathIsEqualExpr.evaluate(const contextNode: TdomNode;
+                                       const oldResult: TdomXPathResult;
+                                       const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftResult,rightResult,swapResult: TdomXPathResult;
+  stringResult: TdomXPathStringResult;
+  leftBoolean,rightBoolean: TdomXPathBooleanResult;
+  leftNumber,rightNumber: TdomXPathNumberResult;
+  leftString,rightString: TdomXPathStringResult;
+  leftResultString: UnicodeString;
+  i,j: integer;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  result:= nil;
+  if ( (left is TdomXPathIsEqualExpr) or
+       (left is TdomXPathIsNotEqualExpr) ) and
+     ( (right is TdomXPathLessThanExpr) or
+       (right is TdomXPathLessThanOrEqualExpr) or
+       (right is TdomXPathGreaterThanExpr) or
+       (right is TdomXPathGreaterThanOrEqualExpr) )
+  then begin
+    leftResult:= left.evaluate(contextNode,nil,resolver);
+    try
+      rightResult:= right.evaluate(contextNode,nil,resolver);
+      try
+
+        // Make sure, that if at least one set takes part in the comparision,
+        // it is assigned to rightResult:
+        if rightResult is TdomXPathSnapshotResult then begin
+          swapResult:= leftResult;
+          leftResult:= rightResult;
+          rightResult:= swapResult;
+        end;
+
+        if leftResult is TdomXPathSnapshotResult then begin
+          if rightResult is TdomXPathSnapshotResult then begin
+            for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+              leftResultString:= TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue;
+              for j:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+                if TdomXPathSnapshotResult(rightResult).snapshotItem(j).XPathStringValue = leftResultString then begin
+                  result:= TdomXPathBooleanResult.create(true);
+                  exit;
+                end;
+              end;
+            end;
+            result:= TdomXPathBooleanResult.create(false);
+            exit;
+          end else if (rightResult is TdomXPathNumberResult) or
+                      (rightResult is TdomXPathBooleanResult) or
+                      (rightResult is TdomXPathStringResult)
+          then begin
+            stringResult:= XPathStringFunc(rightResult);
+            for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+              if TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue = stringResult.stringValue then begin
+                result:= TdomXPathBooleanResult.create(true);
+                rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+                exit;
+              end;
+            end;
+            result:= TdomXPathBooleanResult.create(false);
+            rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+            exit;
+          end;
+        end else if (leftResult is TdomXPathBooleanResult) or
+                    (rightResult is TdomXPathBooleanResult)
+        then begin
+          leftBoolean:= XPathBooleanFunc(leftResult);
+          rightBoolean:= XPathBooleanFunc(rightResult);
+          if leftBoolean.booleanValue = rightBoolean.booleanValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftBoolean;    // Re-assignment is required for correct
+          rightResult:= rightBoolean;  // freeing the TdomXPathResult below.
+        end else if (leftResult is TdomXPathNumberResult) or
+                    (rightResult is TdomXPathNumberResult)
+        then begin
+          leftNumber:= XPathNumberFunc(leftResult);
+          rightNumber:= XPathNumberFunc(rightResult);
+          if leftNumber.numberValue = rightNumber.numberValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftNumber;    // Re-assignment is required for correct
+          rightResult:= rightNumber;  // freeing the TdomXPathResult below.
+        end else begin
+          leftString:= XPathStringFunc(leftResult);
+          rightString:= XPathStringFunc(rightResult);
+          if leftString.stringValue = rightString.stringValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftString;    // Re-assignment is required for correct
+          rightResult:= rightString;  // freeing the TdomXPathResult below.
+        end;
+
+      finally
+        rightResult.free;
+      end;
+    finally
+      leftResult.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathIsNotEqualExpr }
+
+function TdomXPathIsNotEqualExpr.evaluate(const contextNode: TdomNode;
+                                          const oldResult: TdomXPathResult;
+                                          const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftResult,rightResult,swapResult: TdomXPathResult;
+  stringResult: TdomXPathStringResult;
+  leftBoolean,rightBoolean: TdomXPathBooleanResult;
+  leftNumber,rightNumber: TdomXPathNumberResult;
+  leftString,rightString: TdomXPathStringResult;
+  leftResultString: UnicodeString;
+  i,j: integer;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  result:= nil;
+  if ( (left is TdomXPathIsEqualExpr) or
+       (left is TdomXPathIsNotEqualExpr) ) and
+     ( (right is TdomXPathLessThanExpr) or
+       (right is TdomXPathLessThanOrEqualExpr) or
+       (right is TdomXPathGreaterThanExpr) or
+       (right is TdomXPathGreaterThanOrEqualExpr) )
+  then begin
+    leftResult:= left.evaluate(contextNode,nil,resolver);
+    try
+      rightResult:= right.evaluate(contextNode,nil,resolver);
+      try
+
+        // Make sure, that if at least one set takes part in the comparision,
+        // it is assigned to rightResult:
+        if rightResult is TdomXPathSnapshotResult then begin
+          swapResult:= leftResult;
+          leftResult:= rightResult;
+          rightResult:= swapResult;
+        end;
+
+        if leftResult is TdomXPathSnapshotResult then begin
+          if rightResult is TdomXPathSnapshotResult then begin
+            for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+              leftResultString:= TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue;
+              for j:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+                if TdomXPathSnapshotResult(rightResult).snapshotItem(j).XPathStringValue <> leftResultString then begin
+                  result:= TdomXPathBooleanResult.create(true);
+                  exit;
+                end;
+              end;
+            end;
+            result:= TdomXPathBooleanResult.create(false);
+            exit;
+          end else if (rightResult is TdomXPathNumberResult) or
+                      (rightResult is TdomXPathBooleanResult) or
+                      (rightResult is TdomXPathStringResult)
+          then begin
+            stringResult:= XPathStringFunc(rightResult);
+            for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+              if TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue <> stringResult.stringValue then begin
+                result:= TdomXPathBooleanResult.create(true);
+                rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+                exit;
+              end;
+            end;
+            result:= TdomXPathBooleanResult.create(false);
+            rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+            exit;
+          end;
+        end else if (leftResult is TdomXPathBooleanResult) or
+                    (rightResult is TdomXPathBooleanResult)
+        then begin
+          leftBoolean:= XPathBooleanFunc(leftResult);
+          rightBoolean:= XPathBooleanFunc(rightResult);
+          if leftBoolean.booleanValue <> rightBoolean.booleanValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftBoolean;    // Re-assignment is required for correct
+          rightResult:= rightBoolean;  // freeing the TdomXPathResult below.
+        end else if (leftResult is TdomXPathNumberResult) or
+                    (rightResult is TdomXPathNumberResult)
+        then begin
+          leftNumber:= XPathNumberFunc(leftResult);
+          rightNumber:= XPathNumberFunc(rightResult);
+          if leftNumber.numberValue <> rightNumber.numberValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftNumber;    // Re-assignment is required for correct
+          rightResult:= rightNumber;  // freeing the TdomXPathResult below.
+        end else begin
+          leftString:= XPathStringFunc(leftResult);
+          rightString:= XPathStringFunc(rightResult);
+          if leftString.stringValue <> rightString.stringValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftString;    // Re-assignment is required for correct
+          rightResult:= rightString;  // freeing the TdomXPathResult below.
+        end;
+
+      finally
+        rightResult.free;
+      end;
+    finally
+      leftResult.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathLessThanExpr }
+
+function TdomXPathLessThanExpr.evaluate(const contextNode: TdomNode;
+                                        const oldResult: TdomXPathResult;
+                                        const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftResult,rightResult: TdomXPathResult;
+  stringResult: TdomXPathStringResult;
+  leftNumber,rightNumber: TdomXPathNumberResult;
+  leftResultString: UnicodeString;
+  i,j: integer;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathLessThanExpr) or
+       (left is TdomXPathLessThanOrEqualExpr) or
+       (left is TdomXPathGreaterThanExpr) or
+       (left is TdomXPathGreaterThanOrEqualExpr) ) and
+     ( (right is TdomXPathPlusExpr) or
+       (right is TdomXPathMinusExpr) )
+  then begin
+    leftResult:= left.evaluate(contextNode,nil,resolver);
+    try
+      rightResult:= right.evaluate(contextNode,nil,resolver);
+      try
+
+        if (leftResult is TdomXPathSnapshotResult) and
+           (rightResult is TdomXPathSnapshotResult)
+        then begin
+          for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+            leftResultString:= TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue;
+            for j:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+              if TdomXPathSnapshotResult(rightResult).snapshotItem(j).XPathStringValue < leftResultString then begin
+                result:= TdomXPathBooleanResult.create(true);
+                exit;
+              end;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          exit;
+        end else if (leftResult is TdomXPathSnapshotResult) and
+                    ( (rightResult is TdomXPathNumberResult) or
+                      (rightResult is TdomXPathBooleanResult) or
+                      (rightResult is TdomXPathStringResult) )
+        then begin
+          stringResult:= XPathStringFunc(rightResult);
+          for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+            if TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue < stringResult.stringValue then begin
+              result:= TdomXPathBooleanResult.create(true);
+              rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+              exit;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+          exit;
+        end else if ( (leftResult is TdomXPathNumberResult) or
+                      (leftResult is TdomXPathBooleanResult) or
+                      (leftResult is TdomXPathStringResult) ) and
+                    (rightResult is TdomXPathSnapshotResult)
+        then begin
+          stringResult:= XPathStringFunc(leftResult);
+          for i:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+            if stringResult.stringValue < TdomXPathSnapshotResult(rightResult).snapshotItem(i).XPathStringValue then begin
+              result:= TdomXPathBooleanResult.create(true);
+              leftResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+              exit;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          leftResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+          exit;
+        end else begin
+          leftNumber:= XPathNumberFunc(leftResult);
+          rightNumber:= XPathNumberFunc(rightResult);
+          if leftNumber.numberValue < rightNumber.numberValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftNumber;    // Re-assignment is required for correct
+          rightResult:= rightNumber;  // freeing the TdomXPathResult below.
+        end;
+
+      finally
+        rightResult.free;
+      end;
+    finally
+      leftResult.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathLessThanOrEqualExpr }
+
+function TdomXPathLessThanOrEqualExpr.evaluate(const contextNode: TdomNode;
+                                               const oldResult: TdomXPathResult;
+                                               const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftResult,rightResult: TdomXPathResult;
+  stringResult: TdomXPathStringResult;
+  leftNumber,rightNumber: TdomXPathNumberResult;
+  leftResultString: UnicodeString;
+  i,j: integer;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathLessThanExpr) or
+       (left is TdomXPathLessThanOrEqualExpr) or
+       (left is TdomXPathGreaterThanExpr) or
+       (left is TdomXPathGreaterThanOrEqualExpr) ) and
+     ( (right is TdomXPathPlusExpr) or
+       (right is TdomXPathMinusExpr) )
+  then begin
+    leftResult:= left.evaluate(contextNode,nil,resolver);
+    try
+      rightResult:= right.evaluate(contextNode,nil,resolver);
+      try
+
+        if (leftResult is TdomXPathSnapshotResult) and
+           (rightResult is TdomXPathSnapshotResult)
+        then begin
+          for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+            leftResultString:= TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue;
+            for j:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+              if TdomXPathSnapshotResult(rightResult).snapshotItem(j).XPathStringValue <= leftResultString then begin
+                result:= TdomXPathBooleanResult.create(true);
+                exit;
+              end;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          exit;
+        end else if (leftResult is TdomXPathSnapshotResult) and
+                    ( (rightResult is TdomXPathNumberResult) or
+                      (rightResult is TdomXPathBooleanResult) or
+                      (rightResult is TdomXPathStringResult) )
+        then begin
+          stringResult:= XPathStringFunc(rightResult);
+          for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+            if TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue <= stringResult.stringValue then begin
+              result:= TdomXPathBooleanResult.create(true);
+              rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+              exit;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+          exit;
+        end else if ( (leftResult is TdomXPathNumberResult) or
+                      (leftResult is TdomXPathBooleanResult) or
+                      (leftResult is TdomXPathStringResult) ) and
+                    (rightResult is TdomXPathSnapshotResult)
+        then begin
+          stringResult:= XPathStringFunc(leftResult);
+          for i:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+            if stringResult.stringValue <= TdomXPathSnapshotResult(rightResult).snapshotItem(i).XPathStringValue then begin
+              result:= TdomXPathBooleanResult.create(true);
+              leftResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+              exit;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          leftResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+          exit;
+        end else begin
+          leftNumber:= XPathNumberFunc(leftResult);
+          rightNumber:= XPathNumberFunc(rightResult);
+          if leftNumber.numberValue <= rightNumber.numberValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftNumber;    // Re-assignment is required for correct
+          rightResult:= rightNumber;  // freeing the TdomXPathResult below.
+        end;
+
+      finally
+        rightResult.free;
+      end;
+    finally
+      leftResult.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathGreaterThanExpr }
+
+function TdomXPathGreaterThanExpr.evaluate(const contextNode: TdomNode;
+                                           const oldResult: TdomXPathResult;
+                                           const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftResult,rightResult: TdomXPathResult;
+  stringResult: TdomXPathStringResult;
+  leftNumber,rightNumber: TdomXPathNumberResult;
+  leftResultString: UnicodeString;
+  i,j: integer;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathLessThanExpr) or
+       (left is TdomXPathLessThanOrEqualExpr) or
+       (left is TdomXPathGreaterThanExpr) or
+       (left is TdomXPathGreaterThanOrEqualExpr) ) and
+     ( (right is TdomXPathPlusExpr) or
+       (right is TdomXPathMinusExpr) )
+  then begin
+    leftResult:= left.evaluate(contextNode,nil,resolver);
+    try
+      rightResult:= right.evaluate(contextNode,nil,resolver);
+      try
+
+        if (leftResult is TdomXPathSnapshotResult) and
+           (rightResult is TdomXPathSnapshotResult)
+        then begin
+          for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+            leftResultString:= TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue;
+            for j:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+              if TdomXPathSnapshotResult(rightResult).snapshotItem(j).XPathStringValue > leftResultString then begin
+                result:= TdomXPathBooleanResult.create(true);
+                exit;
+              end;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          exit;
+        end else if (leftResult is TdomXPathSnapshotResult) and
+                    ( (rightResult is TdomXPathNumberResult) or
+                      (rightResult is TdomXPathBooleanResult) or
+                      (rightResult is TdomXPathStringResult) )
+        then begin
+          stringResult:= XPathStringFunc(rightResult);
+          for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+            if TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue > stringResult.stringValue then begin
+              result:= TdomXPathBooleanResult.create(true);
+              rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+              exit;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+          exit;
+        end else if ( (leftResult is TdomXPathNumberResult) or
+                      (leftResult is TdomXPathBooleanResult) or
+                      (leftResult is TdomXPathStringResult) ) and
+                    (rightResult is TdomXPathSnapshotResult)
+        then begin
+          stringResult:= XPathStringFunc(leftResult);
+          for i:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+            if stringResult.stringValue > TdomXPathSnapshotResult(rightResult).snapshotItem(i).XPathStringValue then begin
+              result:= TdomXPathBooleanResult.create(true);
+              leftResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+              exit;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          leftResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+          exit;
+        end else begin
+          leftNumber:= XPathNumberFunc(leftResult);
+          rightNumber:= XPathNumberFunc(rightResult);
+          if leftNumber.numberValue > rightNumber.numberValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftNumber;    // Re-assignment is required for correct
+          rightResult:= rightNumber;  // freeing the TdomXPathResult below.
+        end;
+
+      finally
+        rightResult.free;
+      end;
+    finally
+      leftResult.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathGreaterThanOrEqualExpr }
+
+function TdomXPathGreaterThanOrEqualExpr.evaluate(const contextNode: TdomNode;
+                                                  const oldResult: TdomXPathResult;
+                                                  const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftResult,rightResult: TdomXPathResult;
+  stringResult: TdomXPathStringResult;
+  leftNumber,rightNumber: TdomXPathNumberResult;
+  leftResultString: UnicodeString;
+  i,j: integer;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathLessThanExpr) or
+       (left is TdomXPathLessThanOrEqualExpr) or
+       (left is TdomXPathGreaterThanExpr) or
+       (left is TdomXPathGreaterThanOrEqualExpr) ) and
+     ( (right is TdomXPathPlusExpr) or
+       (right is TdomXPathMinusExpr) )
+  then begin
+    leftResult:= left.evaluate(contextNode,nil,resolver);
+    try
+      rightResult:= right.evaluate(contextNode,nil,resolver);
+      try
+
+        if (leftResult is TdomXPathSnapshotResult) and
+           (rightResult is TdomXPathSnapshotResult)
+        then begin
+          for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+            leftResultString:= TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue;
+            for j:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+              if TdomXPathSnapshotResult(rightResult).snapshotItem(j).XPathStringValue >= leftResultString then begin
+                result:= TdomXPathBooleanResult.create(true);
+                exit;
+              end;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          exit;
+        end else if (leftResult is TdomXPathSnapshotResult) and
+                    ( (rightResult is TdomXPathNumberResult) or
+                      (rightResult is TdomXPathBooleanResult) or
+                      (rightResult is TdomXPathStringResult) )
+        then begin
+          stringResult:= XPathStringFunc(rightResult);
+          for i:= 0 to pred(TdomXPathSnapshotResult(leftResult).snapshotLength) do begin
+            if TdomXPathSnapshotResult(leftResult).snapshotItem(i).XPathStringValue >= stringResult.stringValue then begin
+              result:= TdomXPathBooleanResult.create(true);
+              rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+              exit;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          rightResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+          exit;
+        end else if ( (leftResult is TdomXPathNumberResult) or
+                      (leftResult is TdomXPathBooleanResult) or
+                      (leftResult is TdomXPathStringResult) ) and
+                    (rightResult is TdomXPathSnapshotResult)
+        then begin
+          stringResult:= XPathStringFunc(leftResult);
+          for i:= 0 to pred(TdomXPathSnapshotResult(rightResult).snapshotLength) do begin
+            if stringResult.stringValue >= TdomXPathSnapshotResult(rightResult).snapshotItem(i).XPathStringValue then begin
+              result:= TdomXPathBooleanResult.create(true);
+              leftResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+              exit;
+            end;
+          end;
+          result:= TdomXPathBooleanResult.create(false);
+          leftResult:= stringResult;  // Re-assignment is required for correct freeing the TdomXPathResult below.
+          exit;
+        end else begin
+          leftNumber:= XPathNumberFunc(leftResult);
+          rightNumber:= XPathNumberFunc(rightResult);
+          if leftNumber.numberValue >= rightNumber.numberValue
+            then result:= TdomXPathBooleanResult.create(true)
+            else result:= TdomXPathBooleanResult.create(false);
+          leftResult:= leftNumber;    // Re-assignment is required for correct
+          rightResult:= rightNumber;  // freeing the TdomXPathResult below.
+        end;
+
+      finally
+        rightResult.free;
+      end;
+    finally
+      leftResult.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathPlusExpr }
+
+function TdomXPathPlusExpr.evaluate(const contextNode: TdomNode;
+                                    const oldResult: TdomXPathResult;
+                                    const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftNumber,rightNumber: TdomXPathNumberResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathPlusExpr) or
+       (left is TdomXPathMinusExpr) ) and
+     ( (right is TdomXPathMultiplyExpr) or
+       (right is TdomXPathDivExpr) or
+       (right is TdomXPathModExpr) )
+  then begin
+    leftNumber:= XPathNumberFunc(left.evaluate(contextNode,nil,resolver));
+    try
+      rightNumber:= XPathNumberFunc(right.evaluate(contextNode,nil,resolver));
+      try
+        result:= TdomXPathNumberResult.create(leftNumber.numberValue + rightNumber.numberValue);
+      finally
+        rightNumber.Free;
+      end;
+    finally
+      leftNumber.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathMinusExpr }
+
+function TdomXPathMinusExpr.evaluate(const contextNode: TdomNode;
+                                     const oldResult: TdomXPathResult;
+                                     const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftNumber,rightNumber: TdomXPathNumberResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathPlusExpr) or
+       (left is TdomXPathMinusExpr) ) and
+     ( (right is TdomXPathMultiplyExpr) or
+       (right is TdomXPathDivExpr) or
+       (right is TdomXPathModExpr) )
+  then begin
+    leftNumber:= XPathNumberFunc(left.evaluate(contextNode,nil,resolver));
+    try
+      rightNumber:= XPathNumberFunc(right.evaluate(contextNode,nil,resolver));
+      try
+        result:= TdomXPathNumberResult.create(leftNumber.numberValue - rightNumber.numberValue);
+      finally
+        rightNumber.Free;
+      end;
+    finally
+      leftNumber.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathMultiplyExpr }
+
+function TdomXPathMultiplyExpr.evaluate(const contextNode: TdomNode;
+                                        const oldResult: TdomXPathResult;
+                                        const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftNumber,rightNumber: TdomXPathNumberResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathMultiplyExpr) or
+       (left is TdomXPathDivExpr) or
+       (left is TdomXPathModExpr) ) and
+       (right is TdomXPathUnaryExpr)
+  then begin
+    leftNumber:= XPathNumberFunc(left.evaluate(contextNode,nil,resolver));
+    try
+      rightNumber:= XPathNumberFunc(right.evaluate(contextNode,nil,resolver));
+      try
+        result:= TdomXPathNumberResult.create(leftNumber.numberValue * rightNumber.numberValue);
+      finally
+        rightNumber.Free;
+      end;
+    finally
+      leftNumber.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathDivExpr }
+
+function TdomXPathDivExpr.evaluate(const contextNode: TdomNode;
+                                   const oldResult: TdomXPathResult;
+                                   const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftNumber,rightNumber: TdomXPathNumberResult;
+begin
+  result:= nil;  // Necessary to avoid compiler warning "Return value ... might be undefined."
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathMultiplyExpr) or
+       (left is TdomXPathDivExpr) or
+       (left is TdomXPathModExpr) ) and
+       (right is TdomXPathUnaryExpr)
+  then begin
+    leftNumber:= XPathNumberFunc(left.evaluate(contextNode,nil,resolver));
+    try
+      rightNumber:= XPathNumberFunc(right.evaluate(contextNode,nil,resolver));
+      try
+        if rightNumber.numberValue = 0
+          then raise EXPath_Type_Err.create('XPath type error.');  // xxx Replace this by NaN !!!!!!
+        result:= TdomXPathNumberResult.create(leftNumber.numberValue / rightNumber.numberValue);
+      finally
+        rightNumber.Free;
+      end;
+    finally
+      leftNumber.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathModExpr }
+
+function TdomXPathModExpr.evaluate(const contextNode: TdomNode;
+                                   const oldResult: TdomXPathResult;
+                                   const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  leftNumber,rightNumber: TdomXPathNumberResult;
+begin
+  result:= nil;  // Necessary to avoid compiler warning "Return value ... might be undefined."
+  if assigned(oldResult) then oldResult.Free;
+  if ( (left is TdomXPathMultiplyExpr) or
+       (left is TdomXPathDivExpr) or
+       (left is TdomXPathModExpr) ) and
+       (right is TdomXPathUnaryExpr)
+  then begin
+    leftNumber:= XPathNumberFunc(left.evaluate(contextNode,nil,resolver));
+    try
+      rightNumber:= XPathNumberFunc(right.evaluate(contextNode,nil,resolver));
+      try
+        if rightNumber.numberValue = 0
+          then raise EXPath_Type_Err.create('XPath type error.');  // xxx Replace this by NaN !!!!!!
+        result:= TdomXPathNumberResult.create(leftNumber.numberValue - trunc(leftNumber.numberValue / rightNumber.numberValue) * rightNumber.numberValue);
+      finally
+        rightNumber.Free;
+      end;
+    finally
+      leftNumber.free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathUnaryExpr }
+
+function TdomXPathUnaryExpr.evaluate(const contextNode: TdomNode;
+                                     const oldResult: TdomXPathResult;
+                                     const resolver: TdomXPathNSResolver): TdomXPathResult;
+var
+  Number: TdomXPathNumberResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  if (left is TdomXPathMultiplyOperator) and
+     (right is TdomXPathUnaryExpr)
+  then begin
+    Number:= XPathNumberFunc(left.evaluate(contextNode,nil,resolver));
+    try
+      result:= TdomXPathNumberResult.create(-(Number.numberValue)) // xxx Negative 0 as required by IEEE 754 is not supported here.
+    finally
+      Number.Free;
+    end;
+  end else result:= inherited evaluate(contextNode,oldResult,resolver);
+end;
+
+{ TdomXPathLiteral }
+
+function TdomXPathLiteral.evaluate(const contextNode: TdomNode;
+                                   const oldResult: TdomXPathResult;
+                                   const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  result:= TdomXPathStringResult.create(value);
+end;
+
+{ TdomXPathNumber }
+
+function TdomXPathNumber.evaluate(const contextNode: TdomNode;
+                                  const oldResult: TdomXPathResult;
+                                  const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  if assigned(oldResult) then oldResult.Free;
+  result:= TdomXPathNumberResult.create(StrToFloat(value));
+end;
+
+{ TdomXPathVariableReference }
+
+function TdomXPathVariableReference.evaluate(const contextNode: TdomNode;
+                                             const oldResult: TdomXPathResult;
+                                             const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // xxx Add support for variable references in a later version.
+end;
+
+{ TdomXPathNameTest }
+
+constructor TdomXPathNameTest.create(const avalue: UnicodeString);
+begin
+  inherited;
+  if avalue = '*' then begin
+    FPrefix:= '';
+    FLocalName:= '*';
+  end else if value[length(avalue)] = '*' then begin
+    FPrefix:= copy(avalue,1,length(avalue)-2);
+    FLocalName:= '*';
+  end else begin
+    FPrefix:= xmlExtractPrefix(avalue);
+    FLocalName:= xmlExtractLocalName(avalue);
+  end;
+end;
+
+function TdomXPathNameTest.evaluate(const contextNode: TdomNode;
+                                    const oldResult: TdomXPathResult;
+                                    const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // Remark: To evaluate a NameTest the evaluate2 function must be used.
+end;
+
+function TdomXPathNameTest.evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult;
+                                     const principalNodeType: TdomNodeType;
+                                     const resolver: TdomXPathNSResolver): TdomXPathSnapshotResult;
+var
+  valueNamespaceUri: UnicodeString;
+  i: integer;
+begin
+  if not assigned(oldSnapshotResult)
+    then raise EXPath_Type_Err.create('XPath type error.');
+
+  if FPrefix <> '' then begin
+    if FPrefix = 'xmlns' then begin
+      valueNamespaceUri:= 'http://www.w3.org/2000/xmlns/';
+    end else if FPrefix = 'xml' then begin
+      valueNamespaceUri:= 'http://www.w3.org/XML/1998/namespace';
+    end else begin
+      if not assigned(resolver) then begin
+        oldSnapshotResult.free;
+        raise ENamespace_Err.Create('Namespace resolver not specified.');
+      end;
+      valueNamespaceUri:= resolver.lookupNamespaceURI(FPrefix);
+      if valueNamespaceUri = '' then begin
+        oldSnapshotResult.free;
+        raise ENamespace_Err.CreateFmt('Namespace URI of prefix ''%S'' not found.',[FPrefix]);
+      end;
+    end;
+  end else valueNamespaceUri:= '';
+
+  with oldSnapshotResult do begin
+    i:= pred(snapshotLength);
+    while i >= 0 do begin
+      if snapshotItem(i).nodeType <> principalNodeType then begin
+        delete(i);
+      end else if value <> '*' then begin
+        if FLocalName = '*' then begin
+          if snapshotItem(i).prefix <> FPrefix
+            then delete(i);
+        end else begin
+          if (snapshotItem(i).prefix <> FPrefix) or
+             (snapshotItem(i).localName <> FLocalName)
+            then delete(i);
+        end;
+      end;
+      dec(i);
+    end;
+  end;
+
+  result:= oldSnapshotResult;
+end;
+
+{ TdomXPathNodeTypeComment }
+
+function TdomXPathNodeTypeComment.evaluate(const contextNode: TdomNode;
+                                           const oldResult: TdomXPathResult;
+                                           const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // Remark: To evaluate a Comment the evaluate2 function must be used.
+end;
+
+function TdomXPathNodeTypeComment.evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult): TdomXPathSnapshotResult;
+var
+  i: integer;
+begin
+  if not assigned(oldSnapshotResult)
+    then raise EXPath_Type_Err.create('XPath type error.');
+
+  with oldSnapshotResult do begin
+    i:= pred(snapshotLength);
+    while i >= 0 do begin
+      if snapshotItem(i).nodeType <> ntComment_Node
+        then delete(i);
+      dec(i);
+    end;
+  end;
+
+  result:= oldSnapshotResult;
+end;
+
+{ TdomXPathNodeTypePI }
+
+function TdomXPathNodeTypePI.evaluate(const contextNode: TdomNode;
+                                      const oldResult: TdomXPathResult;
+                                      const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // Remark: To evaluate a PI the evaluate2 function must be used.
+end;
+
+function TdomXPathNodeTypePI.evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult): TdomXPathSnapshotResult;
+var
+  i: integer;
+begin
+  if not assigned(oldSnapshotResult)
+    then raise EXPath_Type_Err.create('XPath type error.');
+
+  if assigned(left) then begin
+    if left is TdomXPathLiteral then begin
+      with oldSnapshotResult do begin
+        i:= pred(snapshotLength);
+        while i >= 0 do begin
+          with snapshotItem(i) do
+            if (nodeType <> ntProcessing_Instruction_Node) or
+               (nodeValue <> TdomXPathLiteral(left).value)
+              then delete(i);
+          dec(i);
+        end;
+      end;
+    end else begin
+      oldSnapshotResult.free;
+      raise EXPath_Type_Err.create('XPath type error.');
+    end;
+  end else begin
+    with oldSnapshotResult do begin
+      i:= pred(snapshotLength);
+      while i >= 0 do begin
+        if snapshotItem(i).nodeType <> ntProcessing_Instruction_Node
+          then delete(i);
+        dec(i);
+      end;
+    end;
+  end;
+
+  result:= oldSnapshotResult;
+end;
+
+{ TdomXPathNodeTypeText }
+
+function TdomXPathNodeTypeText.evaluate(const contextNode: TdomNode;
+                                        const oldResult: TdomXPathResult;
+                                        const resolver: TdomXPathNSResolver): TdomXPathResult;
+begin
+  Result := nil;
+  if assigned(oldResult) then oldResult.Free;
+  raise ENot_Supported_Err.create('Not supported error.');
+  // Remark: To evaluate a Text the evaluate2 function must be used.
+end;
+
+function TdomXPathNodeTypeText.evaluate2(const oldSnapshotResult: TdomXPathSnapshotResult): TdomXPathSnapshotResult;
+var
+  i: integer;
+begin
+  if not assigned(oldSnapshotResult)
+    then raise EXPath_Type_Err.create('XPath type error.');
+
+  with oldSnapshotResult do begin
+    i:= pred(snapshotLength);
+    while i >= 0 do begin
+      if not (snapshotItem(i).nodeType in [ntText_Node, ntCDATA_Section_Node, ntEntity_Reference_Node] )
+        then delete(i);
+      dec(i);
+    end;
+  end;
+
+  result:= oldSnapshotResult;
+end;
+
+{ TdomXPathTokenizer }
+
+constructor TdomXPathTokenizer.create(const expression: UnicodeString;
+                                      const xpathVersion: UnicodeString);
+begin
+  if xpathVersion <> '1.0'
+    then raise ENot_Supported_Err.CreateFmt('XPath version "%S" not supproted.',[xpathVersion]);
+  FExpression:= expression;
+  FLastSymbol:= XPATH_INVALID_TOKEN;  // Use XPATH_INVALID_TOKEN as a dummy value
+  FPosition:= 0;
+  FDoubleSlashStatus:= SL_NO_DOUBLE_SLASH;
+  FPositionCache:= 0;
+  FSymbolCache:= XPATH_INVALID_TOKEN;
+  FValueCache:= '';
+  FCacheIsActive:= false;
+end;
+
+function TdomXPathTokenizer.doubleColonFollows: boolean;
+var
+  i: integer;
+begin
+  result:= false;
+  for i:= FPosition+1 to pred(length(FExpression)) do begin
+    if FExpression[i] = #$3a then begin
+      if FExpression[i+1] = #$3a
+        then result:= true;
+      exit;
+    end;
+    if not isXmlWhiteSpace(FExpression[i]) then exit;
+  end;
+end;
+
+function TdomXPathTokenizer.getNextWideChar(out s: wideChar): boolean;
+begin
+  if FPosition = length(FExpression) then begin
+    s:= #0;
+    result:= false;
+  end else begin
+    inc(FPosition);
+    s:= FExpression[FPosition];
+    result:= true;
+  end;
+end;
+
+function TdomXPathTokenizer.isFollowing(const symbol: TdomXPathTokenType): boolean;
+begin
+  if not FCacheIsActive then begin
+    read(FSymbolCache,FValueCache,FPositionCache);
+    FCacheIsActive:= true;
+  end;
+  if FSymbolCache = symbol
+    then result:= true
+    else result:= false;
+end;
+
+function TdomXPathTokenizer.leftParanthesisFollows: boolean;
+var
+  i: integer;
+begin
+  result:= false;
+  for i:= FPosition+1 to length(FExpression) do begin
+    if FExpression[i] = #$28 then begin
+      result:= true;
+      exit;
+    end;
+    if not isXmlWhiteSpace(FExpression[i]) then exit;
+  end;
+end;
+
+function TdomXPathTokenizer.lookAheadNextWideChar(out s: wideChar): boolean;
+begin
+  if FPosition = length(FExpression) then begin
+    s:= #0;
+    result:= false;
+  end else begin
+    s:= FExpression[FPosition+1];
+    result:= true;
+  end;
+end;
+
+procedure TdomXPathTokenizer.read(out symbol: TdomXPathTokenType;
+                                  out value: UnicodeString;
+                                  out position: integer);
+var
+  S: WideChar;
+  L: WideChar;
+  DecimalPointFound: boolean;
+begin
+  if FCacheIsActive then begin
+    symbol:= FSymbolCache;
+    value:= FValueCache;
+    position:= FPositionCache;
+    FCacheIsActive:= false;
+    exit;
+  end;
+  case FDoubleSlashStatus of
+    SL_NO_DOUBLE_SLASH: begin
+      repeat
+        if not getNextWideChar(S) then begin
+          // End of text:
+          symbol:= XPATH_END_OF_TEXT_TOKEN;
+          value:= '';
+          position:= -1;
+          exit;
+        end;
+      until not isXmlWhiteSpace(S);
+
+      case ord(S) of
+        $28: begin // '('
+          symbol:= XPATH_LEFT_PARENTHESIS_TOKEN;
+          FLastSymbol:= XPATH_LEFT_PARENTHESIS_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $29: begin // ')'
+          symbol:= XPATH_RIGHT_PARENTHESIS_TOKEN;
+          FLastSymbol:= XPATH_RIGHT_PARENTHESIS_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $5b: begin // '['
+          symbol:= XPATH_LEFT_SQUARE_BRACKET_TOKEN;
+          FLastSymbol:= XPATH_LEFT_SQUARE_BRACKET_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $5d: begin // ']'
+          symbol:= XPATH_RIGHT_SQUARE_BRACKET_TOKEN;
+          FLastSymbol:= XPATH_RIGHT_SQUARE_BRACKET_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $40: begin // '@'
+          symbol:= XPATH_COMMERCIAL_AT_TOKEN;
+          FLastSymbol:= XPATH_COMMERCIAL_AT_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $2c: begin // ','
+          symbol:= XPATH_COMMA_TOKEN;
+          FLastSymbol:= XPATH_COMMA_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $3a: begin // ':'
+          lookAheadNextWideChar(L);
+          if L = #$3a then begin // '::'
+            inc(FPosition);
+            symbol:= XPATH_DOUBLE_COLON_TOKEN;
+            FLastSymbol:= XPATH_DOUBLE_COLON_TOKEN;
+            value:= '';
+            position:= FPosition;
+          end else begin
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+            value:= ':';
+            position:= FPosition;
+          end;
+        end;
+        $7c: begin // '|'
+          symbol:= XPATH_SHEFFER_STROKE_OPERATOR_TOKEN;
+          FLastSymbol:= XPATH_SHEFFER_STROKE_OPERATOR_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $2b: begin // '+'
+          symbol:= XPATH_PLUS_OPERATOR_TOKEN;
+          FLastSymbol:= XPATH_PLUS_OPERATOR_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $2d: begin // '-'
+          symbol:= XPATH_MINUS_OPERATOR_TOKEN;
+          FLastSymbol:= XPATH_MINUS_OPERATOR_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $3d: begin // '='
+          symbol:= XPATH_IS_EQUAL_OPERATOR_TOKEN;
+          FLastSymbol:= XPATH_IS_EQUAL_OPERATOR_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $21: begin // '!'
+          lookAheadNextWideChar(L);
+          if L = #$3d then begin // '!='
+            inc(FPosition);
+            symbol:= XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN;
+            value:= '';
+            position:= FPosition;
+          end else begin
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+            value:= '!';
+            position:= FPosition;
+          end;
+        end;
+        $2f: begin // '/'
+          lookAheadNextWideChar(L);
+          if L = #$2f then begin // '//'
+            inc(FPosition);
+            FDoubleSlashStatus:= SL_XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN_FOLLOWS;
+          end;
+          symbol:= XPATH_SLASH_OPERATOR_TOKEN;
+          FLastSymbol:= XPATH_SLASH_OPERATOR_TOKEN;
+          value:= '';
+          position:= FPosition;
+        end;
+        $3c: begin // '<'
+          lookAheadNextWideChar(L);
+          if L = #$3d then begin // '<='
+            inc(FPosition);
+            symbol:= XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN;
+          end else begin
+            symbol:= XPATH_LESS_THAN_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_LESS_THAN_OPERATOR_TOKEN;
+          end;
+          value:= '';
+          position:= FPosition;
+        end;
+        $3e: begin // '>'
+          lookAheadNextWideChar(L);
+          if L = #$3d then begin // '>='
+            inc(FPosition);
+            symbol:= XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN;
+          end else begin
+            symbol:= XPATH_GREATER_THAN_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_GREATER_THAN_OPERATOR_TOKEN;
+          end;
+          value:= '';
+          position:= FPosition;
+        end;
+        $2e: begin // '.'
+          lookAheadNextWideChar(L);
+          case ord(L) of
+            $2e: begin // '..'
+              inc(FPosition);
+              symbol:= XPATH_DOUBLE_DOT_TOKEN;
+              FLastSymbol:= XPATH_DOUBLE_DOT_TOKEN;
+              value:= '';
+              position:= FPosition;
+            end;
+            $30..$39: begin // Digit
+              value:= '.';
+              repeat
+                inc(FPosition);
+                value:= concat(value,UnicodeString(L));
+                lookAheadNextWideChar(L);
+              until not (ord(L) in [$30..$39]);
+              symbol:= XPATH_NUMBER_TOKEN;
+              FLastSymbol:= XPATH_NUMBER_TOKEN;
+              position:= FPosition;
+            end;
+          else // '.'
+            symbol:= XPATH_SINGLE_DOT_TOKEN;
+            FLastSymbol:= XPATH_SINGLE_DOT_TOKEN;
+            value:= '';
+            position:= FPosition;
+          end; {case ... else}
+        end;
+        $30..$39: begin // Digit
+          value:= S;
+          DecimalPointFound:= false;
+          if lookAheadNextWideChar(S) then begin
+            while (ord(S) in [$30..$39]) or ((S = #$2e) and not DecimalPointFound) do begin
+              inc(FPosition);
+              value:= concat(value,UnicodeString(S));
+              if S = #$2e then DecimalPointFound:= true;
+              lookAheadNextWideChar(S);
+            end;
+          end;
+          symbol:= XPATH_NUMBER_TOKEN;
+          FLastSymbol:= XPATH_NUMBER_TOKEN;
+          position:= FPosition;
+        end;
+        $22: begin // '"'
+          value:= '';
+          if not getNextWideChar(S) then begin
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+            position:= FPosition;
+            exit;
+          end;
+          while S <> #$22 do begin
+            value:= concat(value,UnicodeString(S));
+            if not getNextWideChar(S) then begin
+              symbol:= XPATH_INVALID_TOKEN;
+              FLastSymbol:= XPATH_INVALID_TOKEN;
+              position:= FPosition;
+              exit;
+            end;
+          end;
+          symbol:= XPATH_LITERAL_TOKEN;
+          FLastSymbol:= XPATH_LITERAL_TOKEN;
+          position:= FPosition;
+        end;
+        $27: begin // '"'
+          value:= '';
+          if not getNextWideChar(S) then begin
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+            position:= FPosition;
+            exit;
+          end;
+          while S <> #$27 do begin
+            value:= concat(value,UnicodeString(S));
+            if not getNextWideChar(S) then begin
+              symbol:= XPATH_INVALID_TOKEN;
+              FLastSymbol:= XPATH_INVALID_TOKEN;
+              position:= FPosition;
+              exit;
+            end;
+          end;
+          symbol:= XPATH_LITERAL_TOKEN;
+          FLastSymbol:= XPATH_LITERAL_TOKEN;
+          position:= FPosition;
+        end;
+        $24: begin // '$'
+          if not lookAheadNextWideChar(S) then begin
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+            position:= FPosition;
+            exit;
+          end;
+          if not ( IsXmlLetter(S) or ( S = #$5f ) ) then begin  // Letter or '_'?
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+            position:= FPosition;
+            value:= UnicodeString(S);
+            exit;
+          end;
+          value:= '';
+          while IsXmlNCNameChar(S) do begin
+            inc(FPosition);
+            value:= concat(value,UnicodeString(S));
+            if not lookAheadNextWideChar(S)
+              then break;
+          end;
+          if S = #$3a then begin // ':' ?
+            inc(FPosition);
+            if not lookAheadNextWideChar(S) then begin
+              symbol:= XPATH_INVALID_TOKEN;
+              FLastSymbol:= XPATH_INVALID_TOKEN;
+              position:= FPosition;
+              value:= concat(value,':');
+              exit;
+            end;
+            if S = #$3a then begin // '::' ?
+              dec(FPosition);
+            end else begin
+              value:= concat(value,':');
+              if not ( IsXmlLetter(S) or ( S = #$5f ) ) then begin  // Letter or '_'?
+                symbol:= XPATH_INVALID_TOKEN;
+                FLastSymbol:= XPATH_INVALID_TOKEN;
+                position:= FPosition;
+                value:= concat(value,UnicodeString(S));
+                exit;
+              end;
+              while IsXmlNCNameChar(S) do begin
+                inc(FPosition);
+                value:= concat(value,UnicodeString(S));
+                if not self.lookAheadNextWideChar(S)
+                  then break;
+              end;
+            end;
+          end;
+          symbol:= XPATH_VARIABLE_REFERENCE_TOKEN;
+          FLastSymbol:= XPATH_VARIABLE_REFERENCE_TOKEN;
+          position:= FPosition;
+        end;
+        $2a: begin // '*'
+          if FLastSymbol in [ XPATH_LEFT_PARENTHESIS_TOKEN,
+                              XPATH_LEFT_SQUARE_BRACKET_TOKEN,
+                              XPATH_COMMERCIAL_AT_TOKEN,
+                              XPATH_COMMA_TOKEN,
+                              XPATH_DOUBLE_COLON_TOKEN,
+                              XPATH_AND_OPERATOR_TOKEN,
+                              XPATH_OR_OPERATOR_TOKEN,
+                              XPATH_MOD_OPERATOR_TOKEN,
+                              XPATH_DIV_OPERATOR_TOKEN,
+                              XPATH_MULTIPLY_OPERATOR_TOKEN,
+                              XPATH_SLASH_OPERATOR_TOKEN,
+                              XPATH_SHEFFER_STROKE_OPERATOR_TOKEN,
+                              XPATH_PLUS_OPERATOR_TOKEN,
+                              XPATH_MINUS_OPERATOR_TOKEN,
+                              XPATH_IS_EQUAL_OPERATOR_TOKEN,
+                              XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN,
+                              XPATH_LESS_THAN_OPERATOR_TOKEN,
+                              XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN,
+                              XPATH_GREATER_THAN_OPERATOR_TOKEN,
+                              XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN,
+                              XPATH_INVALID_TOKEN  // = no preceding token
+                            ]
+          then begin
+            symbol:= XPATH_NAME_TEST_TOKEN;
+            FLastSymbol:= XPATH_NAME_TEST_TOKEN;
+            value:= '*';
+          end else begin
+            symbol:= XPATH_MULTIPLY_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_MULTIPLY_OPERATOR_TOKEN;
+            value:= '';
+          end;
+          position:= FPosition;
+        end;
+      else  {case ...}
+
+        // Parse NCName:
+        if not ( IsXmlLetter(S) or ( S = #$5f ) ) then begin  // Letter or '_'?
+          symbol:= XPATH_INVALID_TOKEN;
+          FLastSymbol:= XPATH_INVALID_TOKEN;
+          position:= FPosition;
+          value:= UnicodeString(S);
+          exit;
+        end;
+        value:= '';
+        dec(FPosition);
+        while IsXmlNCNameChar(S) do begin
+          inc(FPosition);
+          value:= concat(value,UnicodeString(S));
+          if not lookAheadNextWideChar(S)
+            then break;
+        end;
+
+        if not ( FLastSymbol in [ XPATH_LEFT_PARENTHESIS_TOKEN,
+                                  XPATH_LEFT_SQUARE_BRACKET_TOKEN,
+                                  XPATH_COMMERCIAL_AT_TOKEN,
+                                  XPATH_COMMA_TOKEN,
+                                  XPATH_DOUBLE_COLON_TOKEN,
+                                  XPATH_AND_OPERATOR_TOKEN,
+                                  XPATH_OR_OPERATOR_TOKEN,
+                                  XPATH_MOD_OPERATOR_TOKEN,
+                                  XPATH_DIV_OPERATOR_TOKEN,
+                                  XPATH_MULTIPLY_OPERATOR_TOKEN,
+                                  XPATH_SLASH_OPERATOR_TOKEN,
+                                  XPATH_SHEFFER_STROKE_OPERATOR_TOKEN,
+                                  XPATH_PLUS_OPERATOR_TOKEN,
+                                  XPATH_MINUS_OPERATOR_TOKEN,
+                                  XPATH_IS_EQUAL_OPERATOR_TOKEN,
+                                  XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN,
+                                  XPATH_LESS_THAN_OPERATOR_TOKEN,
+                                  XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN,
+                                  XPATH_GREATER_THAN_OPERATOR_TOKEN,
+                                  XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN,
+                                  XPATH_INVALID_TOKEN  // = no preceding token
+                                ] )
+        then begin
+          if value = 'and' then begin
+            symbol:= XPATH_AND_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_AND_OPERATOR_TOKEN;
+            value:= '';
+          end else if value = 'or' then begin
+            symbol:= XPATH_OR_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_OR_OPERATOR_TOKEN;
+            value:= '';
+          end else if value = 'mod' then begin
+            symbol:= XPATH_MOD_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_MOD_OPERATOR_TOKEN;
+            value:= '';
+          end else if value = 'div' then begin
+            symbol:= XPATH_DIV_OPERATOR_TOKEN;
+            FLastSymbol:= XPATH_DIV_OPERATOR_TOKEN;
+            value:= '';
+          end else begin
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+          end;
+          position:= FPosition;
+          exit;
+        end;
+
+        if doubleColonFollows then begin
+          if value = 'ancestor' then begin
+            symbol:= XPATH_AXIS_NAME_ANCESTOR_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_ANCESTOR_TOKEN;
+            value:= '';
+          end else if value = 'ancestor-or-self' then begin
+            symbol:= XPATH_AXIS_NAME_ANCESTOR_OR_SELF_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_ANCESTOR_OR_SELF_TOKEN;
+            value:= '';
+          end else if value = 'attribute' then begin
+            symbol:= XPATH_AXIS_NAME_ATTRIBUTE_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_ATTRIBUTE_TOKEN;
+            value:= '';
+          end else if value = 'child' then begin
+            symbol:= XPATH_AXIS_NAME_CHILD_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_CHILD_TOKEN;
+            value:= '';
+          end else if value = 'descendant' then begin
+            symbol:= XPATH_AXIS_NAME_DESCENDANT_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_DESCENDANT_TOKEN;
+            value:= '';
+          end else if value = 'descendant-or-self' then begin
+            symbol:= XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN;
+            value:= '';
+          end else if value = 'following' then begin
+            symbol:= XPATH_AXIS_NAME_FOLLOWING_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_FOLLOWING_TOKEN;
+            value:= '';
+          end else if value = 'following-sibling' then begin
+            symbol:= XPATH_AXIS_NAME_FOLLOWING_SIBLING_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_FOLLOWING_SIBLING_TOKEN;
+            value:= '';
+          end else if value = 'namespace' then begin
+            symbol:= XPATH_AXIS_NAME_NAMESPACE_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_NAMESPACE_TOKEN;
+            value:= '';
+          end else if value = 'parent' then begin
+            symbol:= XPATH_AXIS_NAME_PARENT_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_PARENT_TOKEN;
+            value:= '';
+          end else if value = 'preceding' then begin
+            symbol:= XPATH_AXIS_NAME_PRECEDING_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_PRECEDING_TOKEN;
+          end else if value = 'preceding-sibling' then begin
+            symbol:= XPATH_AXIS_NAME_PRECEDING_SIBLING_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_PRECEDING_SIBLING_TOKEN;
+            value:= '';
+          end else if value = 'self' then begin
+            symbol:= XPATH_AXIS_NAME_SELF_TOKEN;
+            FLastSymbol:= XPATH_AXIS_NAME_SELF_TOKEN;
+            value:= '';
+          end else begin
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+            value:= '';
+          end;
+          position:= FPosition;
+          exit;
+        end;
+
+        if S = #$3a then begin // ':' ?
+          inc(FPosition);
+          if not lookAheadNextWideChar(S) then begin
+            symbol:= XPATH_INVALID_TOKEN;
+            FLastSymbol:= XPATH_INVALID_TOKEN;
+            position:= FPosition;
+            value:= concat(value,':');
+            exit;
+          end;
+          if S = #$3a then begin // '::' ?
+            dec(FPosition);
+          end else begin
+            value:= concat(value,':');
+            if not ( IsXmlLetter(S) or ( S = #$5f ) ) then begin  // Letter or '_'?
+              if S = #$2a then begin // '*
+                symbol:= XPATH_NAME_TEST_TOKEN;
+                FLastSymbol:= XPATH_NAME_TEST_TOKEN;
+              end else begin
+                symbol:= XPATH_INVALID_TOKEN;
+                FLastSymbol:= XPATH_INVALID_TOKEN;
+              end;
+              inc(FPosition);
+              position:= FPosition;
+              value:= concat(value,UnicodeString(S));
+              exit;
+            end;
+            while IsXmlNCNameChar(S) do begin
+              inc(FPosition);
+              value:= concat(value,UnicodeString(S));
+              if not self.lookAheadNextWideChar(S)
+                then break;
+            end;
+          end;
+        end;
+
+        if leftParanthesisFollows then begin
+          if value = 'comment' then begin
+            symbol:= XPATH_NODE_TYPE_COMMENT_TOKEN;
+            FLastSymbol:= XPATH_NODE_TYPE_COMMENT_TOKEN;
+            value:= '';
+          end else if value = 'text' then begin
+            symbol:= XPATH_NODE_TYPE_TEXT_TOKEN;
+            FLastSymbol:= XPATH_NODE_TYPE_TEXT_TOKEN;
+            value:= '';
+          end else if value = 'processing-instruction' then begin
+            symbol:= XPATH_NODE_TYPE_PI_TOKEN;
+            FLastSymbol:= XPATH_NODE_TYPE_PI_TOKEN;
+            value:= '';
+          end else if value = 'node' then begin
+            symbol:= XPATH_NODE_TYPE_NODE_TOKEN;
+            FLastSymbol:= XPATH_NODE_TYPE_NODE_TOKEN;
+            value:= '';
+          end else begin
+            symbol:= XPATH_FUNCTION_NAME_TOKEN;
+            FLastSymbol:= XPATH_FUNCTION_NAME_TOKEN;
+          end;
+        end else begin
+          symbol:= XPATH_NAME_TEST_TOKEN;
+          FLastSymbol:= XPATH_NAME_TEST_TOKEN;
+        end;
+        position:= FPosition;
+
+      end; {case ... else ...}
+
+    end;
+    SL_XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN_FOLLOWS: begin
+      symbol:= XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN;
+      // FLastSymbol:= XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN;
+      // FLastSymbol will never be evaluated, so we do not need to set it.
+      position:= FPosition;
+      value:= '';
+      FDoubleSlashStatus:= SL_XPATH_DOUBLE_COLON_TOKEN_FOLLOWS;
+    end;
+    SL_XPATH_DOUBLE_COLON_TOKEN_FOLLOWS: begin
+      symbol:= XPATH_DOUBLE_COLON_TOKEN;
+      // FLastSymbol:= XPATH_DOUBLE_COLON_TOKEN;
+      // FLastSymbol will never be evaluated, so we do not need to set it.
+      position:= FPosition;
+      value:= '';
+      FDoubleSlashStatus:= SL_XPATH_NODE_TYPE_NODE_TOKEN_FOLLOWS;
+    end;
+    SL_XPATH_NODE_TYPE_NODE_TOKEN_FOLLOWS: begin
+      symbol:= XPATH_NODE_TYPE_NODE_TOKEN;
+      // FLastSymbol:= XPATH_NODE_TYPE_NODE_TOKEN;
+      // FLastSymbol will never be evaluated, so we do not need to set it.
+      position:= FPosition;
+      value:= '';
+      FDoubleSlashStatus:= SL_XPATH_LEFT_PARENTHESIS_FOLLOWS;
+    end;
+    SL_XPATH_LEFT_PARENTHESIS_FOLLOWS: begin
+      symbol:= XPATH_LEFT_PARENTHESIS_TOKEN;
+      // FLastSymbol:= XPATH_LEFT_PARENTHESIS_TOKEN;
+      // FLastSymbol will never be evaluated, so we do not need to set it.
+      position:= FPosition;
+      value:= '';
+      FDoubleSlashStatus:= SL_XPATH_RIGHT_PARENTHESIS_FOLLOWS;
+    end;
+    SL_XPATH_RIGHT_PARENTHESIS_FOLLOWS: begin
+      symbol:= XPATH_RIGHT_PARENTHESIS_TOKEN;
+      // FLastSymbol:= XPATH_RIGHT_PARENTHESIS_TOKEN;
+      // FLastSymbol will never be evaluated, so we do not need to set it.
+      position:= FPosition;
+      value:= '';
+      FDoubleSlashStatus:= SL_XPATH_SLASH_OPERATOR_TOKEN_FOLLLOWS;
+    end;
+    SL_XPATH_SLASH_OPERATOR_TOKEN_FOLLLOWS: begin
+      symbol:= XPATH_SLASH_OPERATOR_TOKEN;
+      FLastSymbol:= XPATH_SLASH_OPERATOR_TOKEN;
+      position:= FPosition;
+      value:= '';
+      FDoubleSlashStatus:= SL_NO_DOUBLE_SLASH;
+    end;
+  end; {case FDoubleSlashStatus ...}
+end;
+
+procedure TdomXPathTokenizer.reset;
+begin
+  FCacheIsActive:= false;
+  FLastSymbol:= XPATH_INVALID_TOKEN;  // Use XPATH_INVALID_TOKEN as a dummy value
+  FPosition:= 0;
+  FDoubleSlashStatus:= SL_NO_DOUBLE_SLASH;
+end;
+
+{ TdomXPathExpression }
+
+constructor TdomXPathExpression.create(const aOwner: TdomDocument;
+                                       const expression: UnicodeString;
+                                       const resolver: TdomXPathNSResolver);
+begin
+  FExpression:= expression;
+  FIsPrepared:= false;
+  FIsValid:= false;
+  FOwnerDocument:= aOwner;
+  FResolver:= resolver;
+  FSyntaxTree:= nil;
+end;
+
+function TdomXPathExpression.createSyntaxNode(const symbol: TdomXPathTokenType;
+                                              const value: UnicodeString): TdomXPathSyntaxNode;
+begin
+  case symbol of
+    XPATH_LEFT_PARENTHESIS_TOKEN:
+      result:= TdomXPathLeftParenthesis.create(value);
+    XPATH_RIGHT_PARENTHESIS_TOKEN:
+      result:= TdomXPathRightParenthesis.create(value);
+    XPATH_LEFT_SQUARE_BRACKET_TOKEN:
+      result:= TdomXPathLeftSquareBracket.create(value);
+    XPATH_RIGHT_SQUARE_BRACKET_TOKEN:
+      result:= TdomXPathRightSquareBracket.create(value);
+    XPATH_SINGLE_DOT_TOKEN:
+      result:= TdomXPathSingleDot.create(value);
+    XPATH_DOUBLE_DOT_TOKEN:
+      result:= TdomXPathDoubleDot.create(value);
+    XPATH_COMMERCIAL_AT_TOKEN:
+      result:= TdomXPathCommercialAt.create(value);
+    XPATH_COMMA_TOKEN:
+      result:= TdomXPathComma.create(value);
+    XPATH_DOUBLE_COLON_TOKEN:
+      result:= TdomXPathDoubleColon.create(value);
+    XPATH_NAME_TEST_TOKEN:
+      result:= TdomXPathNameTest.create(value);
+    XPATH_NODE_TYPE_COMMENT_TOKEN:
+      result:= TdomXPathNodeTypeComment.create(value);
+    XPATH_NODE_TYPE_TEXT_TOKEN:
+      result:= TdomXPathNodeTypeText.create(value);
+    XPATH_NODE_TYPE_PI_TOKEN:
+      result:= TdomXPathNodeTypePI.create(value);
+    XPATH_NODE_TYPE_NODE_TOKEN:
+      result:= TdomXPathNodeTypeNode.create(value);
+    XPATH_AND_OPERATOR_TOKEN:
+      result:= TdomXPathAndOperator.create(value);
+    XPATH_OR_OPERATOR_TOKEN:
+      result:= TdomXPathOrOperator.create(value);
+    XPATH_MOD_OPERATOR_TOKEN:
+      result:= TdomXPathModOperator.create(value);
+    XPATH_DIV_OPERATOR_TOKEN:
+      result:= TdomXPathDivOperator.create(value);
+    XPATH_MULTIPLY_OPERATOR_TOKEN:
+      result:= TdomXPathMultiplyOperator.create(value);
+    XPATH_SLASH_OPERATOR_TOKEN:
+      result:= TdomXPathSlashOperator.create(value);
+    XPATH_SHEFFER_STROKE_OPERATOR_TOKEN:
+      result:= TdomXPathShefferStrokeOperator.create(value);
+    XPATH_PLUS_OPERATOR_TOKEN:
+      result:= TdomXPathPlusOperator.create(value);
+    XPATH_MINUS_OPERATOR_TOKEN:
+      result:= TdomXPathMinusOperator.create(value);
+    XPATH_IS_EQUAL_OPERATOR_TOKEN:
+      result:= TdomXPathIsEqualOperator.create(value);
+    XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN:
+      result:= TdomXPathIsNotEqualOperator.create(value);
+    XPATH_LESS_THAN_OPERATOR_TOKEN:
+      result:= TdomXPathLessThanOperator.create(value);
+    XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN:
+      result:= TdomXPathLessThanOrEqualOperator.create(value);
+    XPATH_GREATER_THAN_OPERATOR_TOKEN:
+      result:= TdomXPathGreaterThanOperator.create(value);
+    XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN:
+      result:= TdomXPathGreaterThanOrEqualOperator.create(value);
+    XPATH_FUNCTION_NAME_TOKEN:
+      result:= TdomXPathFunctionName.create(value);
+    XPATH_AXIS_NAME_ANCESTOR_TOKEN:
+      result:= TdomXPathAxisNameAncestor.create(value);
+    XPATH_AXIS_NAME_ANCESTOR_OR_SELF_TOKEN:
+      result:= TdomXPathAxisNameAncestorOrSelf.create(value);
+    XPATH_AXIS_NAME_ATTRIBUTE_TOKEN:
+      result:= TdomXPathAxisNameAttribute.create(value);
+    XPATH_AXIS_NAME_CHILD_TOKEN:
+      result:= TdomXPathAxisNameChild.create(value);
+    XPATH_AXIS_NAME_DESCENDANT_TOKEN:
+      result:= TdomXPathAxisNameDescendant.create(value);
+    XPATH_AXIS_NAME_DESCENDANT_OR_SELF_TOKEN:
+      result:= TdomXPathAxisNameDescendantOrSelf.create(value);
+    XPATH_AXIS_NAME_FOLLOWING_TOKEN:
+      result:= TdomXPathAxisNameFollowing.create(value);
+    XPATH_AXIS_NAME_FOLLOWING_SIBLING_TOKEN:
+      result:= TdomXPathAxisNameFollowingSibling.create(value);
+    XPATH_AXIS_NAME_NAMESPACE_TOKEN:
+      result:= TdomXPathAxisNameNamespace.create(value);
+    XPATH_AXIS_NAME_PARENT_TOKEN:
+      result:= TdomXPathAxisNameParent.create(value);
+    XPATH_AXIS_NAME_PRECEDING_TOKEN:
+      result:= TdomXPathAxisNamePreceding.create(value);
+    XPATH_AXIS_NAME_PRECEDING_SIBLING_TOKEN:
+      result:= TdomXPathAxisNamePrecedingSibling.create(value);
+    XPATH_AXIS_NAME_SELF_TOKEN:
+      result:= TdomXPathAxisNameSelf.create(value);
+    XPATH_LITERAL_TOKEN:
+      result:= TdomXPathLiteral.create(value);
+    XPATH_NUMBER_TOKEN:
+      result:= TdomXPathNumber.create(value);
+    XPATH_VARIABLE_REFERENCE_TOKEN:
+      result:= TdomXPathVariableReference.create(value);
+  else
+    result:= nil;
+  end;
+end;
+
+function TdomXPathExpression.evaluate(const contextNode: TdomNode;
+                                      const typeCodes: TdomXPathResultTypes;
+                                      const oldResult: TdomXPathResult): TdomXPathResult;
+var
+  dummyResult: TdomXPathResult;
+begin
+  if contextnode.ownerDocument <> FOwnerDocument then begin
+    if assigned(oldResult) then oldResult.free;
+    raise EWrong_Document_Err.create('Wrong document error.');
+  end;
+  if ( (contextNode.nodeType = ntText_Node) and (contextNode.nodeValue = '') ) or
+     not (contextNode.nodeType in [ ntElement_Node,
+                                    ntAttribute_Node,
+                                    ntText_Node,
+                                    ntCDATA_Section_Node,
+                                    ntProcessing_Instruction_Node,
+                                    ntComment_Node,
+                                    ntDocument_Node,
+                                    ntXPath_Namespace_Node ] )
+  then begin
+    if assigned(oldResult) then oldResult.free;
+    raise ENot_Supported_Err.create('Not supported error.');
+  end;
+  if prepare then begin
+    result:= FSyntaxTree.evaluate(contextNode,oldResult,FResolver);
+    if not(result.resultType in typeCodes) then begin
+      if XPATH_BOOLEAN_TYPE in typeCodes then begin
+        dummyResult:= result;
+        result:= XPathBooleanFunc(dummyResult);
+      end else if XPATH_NUMBER_TYPE in typeCodes then begin
+        dummyResult:= result;
+        result:= XPathNumberFunc(dummyResult);
+      end else if XPATH_STRING_TYPE in typeCodes then begin
+        dummyResult:= result;
+        result:= XPathStringFunc(dummyResult);
+      end else begin
+        result.free;
+        raise EXPath_Type_Err.create('XPath type error.');
+      end;
+    end;
+  end else begin
+    if assigned(oldResult) then oldResult.free;
+    raise EXPath_Invalid_Expression_Err.create('Invalid XPath expression error.');
+  end;
+end;
+
+function TdomXPathExpression.prepare: boolean;
+var
+  position: integer;
+  stack: TdomXPathSyntaxNodeStack;
+  symbol: TdomXPathTokenType;
+  tokenizer: TdomXPathTokenizer;
+  value: UnicodeString;
+  axisNode: TdomXPathSyntaxNode;
+  lastSyntaxNode: TdomXPathSyntaxNode;
+  newSyntaxNode: TdomXPathSyntaxNode;
+  nodeTestNode: TdomXPathSyntaxNode;
+  lastArgument: TdomXPathArgument;
+  newArgument: TdomXPathArgument;
+  nodeTypePI: TdomXPathSyntaxNode;
+  PILiteral: TdomXPathSyntaxNode;
+begin
+  if not FIsPrepared then begin
+    tokenizer:= TdomXPathTokenizer.create(FExpression,'1.0');
+    try
+      stack:= TdomXPathSyntaxNodeStack.create;
+      try
+        repeat
+          tokenizer.read(symbol,value,position);
+          case symbol of
+          XPATH_END_OF_TEXT_TOKEN, XPATH_INVALID_TOKEN: break;
+          else
+            lastSyntaxNode:= createSyntaxNode(symbol,value);
+            repeat
+              // -- if lastSyntaxNode is TdomXPathAbsoluteLocationPath then ... --
+              // (TdomXPathAbsoluteLocationPath will not appear in this loop,
+              // so we leave it out here.)
+              if lastSyntaxNode is TdomXPathAndExpr then begin
+                if tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MULTIPLY_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_DIV_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MOD_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_PLUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MINUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LESS_THAN_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_GREATER_THAN_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_IS_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_AND_OPERATOR_TOKEN)
+                then begin
+                  // Operator of higher precedence is following, so we postpone building the expression.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                if (stack.peek(0) is TdomXPathOrOperator) and
+                   ( (stack.peek(1) is TdomXPathOrExpr) )
+                then begin
+                  // XPath 1.0, prod. [21]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathOrExpr.create(''); // Create OrExpr.
+                  newSyntaxNode.left:= stack.pop;             // Append OrExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;       // Append AndExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else begin
+                  // XPath 1.0, prod. [21]:
+                  newSyntaxNode:= TdomXPathOrExpr.create(''); // Create OrExpr.
+                  newSyntaxNode.left:= lastSyntaxNode;        // Append AndExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if (lastSyntaxNode is TdomXPathAndOperator) or
+                       // (lastSyntaxNode is TdomXPathArgument) or  // TdomXPathArgument will not appear in this loop, so we leave it out here.
+                          (lastSyntaxNode is TdomXPathComma) or
+                          (lastSyntaxNode is TdomXPathCommercialAt) or
+                          (lastSyntaxNode is TdomXPathCustomAxisName)
+              then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if (lastSyntaxNode is TdomXPathDivExpr) or
+                          (lastSyntaxNode is TdomXPathModExpr) or
+                          (lastSyntaxNode is TdomXPathMultiplyExpr)
+              then begin
+                if tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MULTIPLY_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_DIV_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MOD_OPERATOR_TOKEN)
+                then begin
+                  // Operator of higher precedence is following, so we postpone building the expression.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                if (stack.peek(0) is TdomXPathPlusOperator) and
+                   ( (stack.peek(1) is TdomXPathPlusExpr) or
+                     (stack.peek(1) is TdomXPathMinusExpr) )
+                then begin
+                  // XPath 1.0, prod. [25]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathPlusExpr.create(''); // Create PlusExpr.
+                  newSyntaxNode.left:= stack.pop;               // Append AdditiveExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;         // Append MultiplicativeExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else if (stack.peek(0) is TdomXPathMinusOperator) and
+                   ( (stack.peek(1) is TdomXPathPlusExpr) or
+                     (stack.peek(1) is TdomXPathMinusExpr) )
+                then begin
+                  // XPath 1.0, prod. [25]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathMinusExpr.create(''); // Create MinusExpr.
+                  newSyntaxNode.left:= stack.pop;               // Append AdditiveExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;         // Append MultiplicativeExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else begin
+                  // XPath 1.0, prod. [25]:
+                  newSyntaxNode:= TdomXPathPlusExpr.create(''); // Create PlusExpr.
+                  newSyntaxNode.left:= lastSyntaxNode;          // Append MultiplicativeExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if (lastSyntaxNode is TdomXPathDivOperator) or
+                          (lastSyntaxNode is TdomXPathDoubleColon)
+              then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if lastSyntaxNode is TdomXPathDoubleDot then begin
+                // XPath 1.0, prod. [12]:
+                lastSyntaxNode.free;
+                lastSyntaxNode:= TdomXPathStep.create('');
+                lastSyntaxNode.left:= TdomXPathAxisNameParent.create('');
+                lastSyntaxNode.left.left:= TdomXPathNodeTest.create('');
+                lastSyntaxNode.left.left.left:= TdomXPathNodeTypeNode.create('');
+              end else if lastSyntaxNode is TdomXPathExpr then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if lastSyntaxNode is TdomXPathFilterExpr then begin
+                // XPath 1.0, prod. [19]:
+                if tokenizer.isFollowing(XPATH_SLASH_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LEFT_SQUARE_BRACKET_TOKEN)
+                then begin
+                  // A Slash or Predicate is following, so we postpone building the PathExpr.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                newSyntaxNode:= TdomXPathPathExpr.create(''); // Create PathExpr.
+                newSyntaxNode.left:= lastSyntaxNode;          // Append FilterExpr.
+                lastSyntaxNode:= newSyntaxNode;
+              end else if lastSyntaxNode is TdomXPathFunctionCall then begin
+                // XPath 1.0, prod. [15]:
+                newSyntaxNode:= TdomXPathPrimaryExpr.create(''); // Create PrimaryExpr.
+                newSyntaxNode.left:= lastSyntaxNode;             // Append FunctionCall.
+                lastSyntaxNode:= newSyntaxNode;
+              end else if lastSyntaxNode is TdomXPathFunctionName then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if (lastSyntaxNode is TdomXPathGreaterThanExpr) or
+                          (lastSyntaxNode is TdomXPathGreaterThanOrEqualExpr) or
+                          (lastSyntaxNode is TdomXPathLessThanExpr) or
+                          (lastSyntaxNode is TdomXPathLessThanOrEqualExpr)
+              then begin
+                if tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MULTIPLY_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_DIV_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MOD_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_PLUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MINUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LESS_THAN_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_GREATER_THAN_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN)
+                then begin
+                  // Operator of higher precedence is following, so we postpone building the expression.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                if (stack.peek(0) is TdomXPathIsEqualOperator) and
+                   ( (stack.peek(1) is TdomXPathIsEqualExpr) or
+                     (stack.peek(1) is TdomXPathIsNotEqualExpr) )
+                then begin
+                  // XPath 1.0, prod. [23]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathIsEqualExpr.create(''); // Create IsEqualExpr.
+                  newSyntaxNode.left:= stack.pop;                  // Append EqualityExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;            // Append RelationalExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else if (stack.peek(0) is TdomXPathIsNotEqualOperator) and
+                   ( (stack.peek(1) is TdomXPathIsEqualExpr) or
+                     (stack.peek(1) is TdomXPathIsNotEqualExpr) )
+                then begin
+                  // XPath 1.0, prod. [23]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathIsNotEqualExpr.create(''); // Create IsNotEqualExpr.
+                  newSyntaxNode.left:= stack.pop;                     // Append EqualityExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;               // Append RelationalExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else begin
+                  // XPath 1.0, prod. [23]:
+                  newSyntaxNode:= TdomXPathIsEqualExpr.create(''); // Create IsEqualExpr.
+                  newSyntaxNode.left:= lastSyntaxNode;             // Append RelationalExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if (lastSyntaxNode is TdomXPathGreaterThanOperator) or
+                          (lastSyntaxNode is TdomXPathGreaterThanOrEqualOperator)
+              then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if (lastSyntaxNode is TdomXPathIsEqualExpr) or
+                          (lastSyntaxNode is TdomXPathIsNotEqualExpr)
+              then begin
+                if tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MULTIPLY_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_DIV_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MOD_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_PLUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MINUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LESS_THAN_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_GREATER_THAN_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_IS_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN)
+                then begin
+                  // Operator of higher precedence is following, so we postpone building the expression.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                if (stack.peek(0) is TdomXPathAndOperator) and
+                   ( (stack.peek(1) is TdomXPathAndExpr) )
+                then begin
+                  // XPath 1.0, prod. [22]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathAndExpr.create(''); // Create AndExpr.
+                  newSyntaxNode.left:= stack.pop;              // Append AndExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;        // Append EqualityExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else begin
+                  // XPath 1.0, prod. [22]:
+                  newSyntaxNode:= TdomXPathAndExpr.create(''); // Create AndExpr.
+                  newSyntaxNode.left:= lastSyntaxNode;         // Append EqualityExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if (lastSyntaxNode is TdomXPathIsEqualOperator) or
+                          (lastSyntaxNode is TdomXPathIsNotEqualOperator) or
+                          (lastSyntaxNode is TdomXPathLeftParenthesis) or
+                          (lastSyntaxNode is TdomXPathLeftSquareBracket) or
+                          (lastSyntaxNode is TdomXPathLessThanOperator) or
+                          (lastSyntaxNode is TdomXPathLessThanOrEqualOperator)
+              then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if lastSyntaxNode is TdomXPathLiteral then begin
+                if (stack.peek(0) is TdomXPathLeftParenthesis) and
+                   (stack.peek(1) is TdomXPathNodeTypePI) and
+                   tokenizer.isFollowing(XPATH_RIGHT_PARENTHESIS_TOKEN)
+                then begin
+                  // Literal is part of a processing-instruction node test,
+                  // so we postpone building the expression.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end else begin
+                  // XPath 1.0, prod. [15]:
+                  newSyntaxNode:= TdomXPathPrimaryExpr.create(''); // Create PrimaryExpr.
+                  newSyntaxNode.left:= lastSyntaxNode;             // Append Literal.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if (lastSyntaxNode is TdomXPathMinusExpr) or
+                          (lastSyntaxNode is TdomXPathPlusExpr)
+              then begin
+                if tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MULTIPLY_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_DIV_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MOD_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_PLUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MINUS_OPERATOR_TOKEN)
+                then begin
+                  // Operator of higher precedence is following, so we postpone building the expression.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                if (stack.peek(0) is TdomXPathLessThanOperator) and
+                   ( (stack.peek(1) is TdomXPathLessThanExpr) or
+                     (stack.peek(1) is TdomXPathLessThanOrEqualExpr) or
+                     (stack.peek(1) is TdomXPathGreaterThanExpr) or
+                     (stack.peek(1) is TdomXPathGreaterThanOrEqualExpr) )
+                then begin
+                  // XPath 1.0, prod. [24]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathLessThanExpr.create(''); // Create LessThanExpr.
+                  newSyntaxNode.left:= stack.pop;                   // Append RelationalExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;             // Append AdditiveExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else if (stack.peek(0) is TdomXPathLessThanOrEqualOperator) and
+                   ( (stack.peek(1) is TdomXPathLessThanExpr) or
+                     (stack.peek(1) is TdomXPathLessThanOrEqualExpr) or
+                     (stack.peek(1) is TdomXPathGreaterThanExpr) or
+                     (stack.peek(1) is TdomXPathGreaterThanOrEqualExpr) )
+                then begin
+                  // XPath 1.0, prod. [24]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathLessThanOrEqualExpr.create(''); // Create LessThanOrEqualExpr.
+                  newSyntaxNode.left:= stack.pop;                          // Append RelationalExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;                    // Append AdditiveExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else if (stack.peek(0) is TdomXPathGreaterThanOperator) and
+                   ( (stack.peek(1) is TdomXPathLessThanExpr) or
+                     (stack.peek(1) is TdomXPathLessThanOrEqualExpr) or
+                     (stack.peek(1) is TdomXPathGreaterThanExpr) or
+                     (stack.peek(1) is TdomXPathGreaterThanOrEqualExpr) )
+                then begin
+                  // XPath 1.0, prod. [24]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathGreaterThanExpr.create(''); // Create GreaterThanExpr.
+                  newSyntaxNode.left:= stack.pop;                      // Append RelationalExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;                // Append AdditiveExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else if (stack.peek(0) is TdomXPathGreaterThanOrEqualOperator) and
+                   ( (stack.peek(1) is TdomXPathLessThanExpr) or
+                     (stack.peek(1) is TdomXPathLessThanOrEqualExpr) or
+                     (stack.peek(1) is TdomXPathGreaterThanExpr) or
+                     (stack.peek(1) is TdomXPathGreaterThanOrEqualExpr) )
+                then begin
+                  // XPath 1.0, prod. [24]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathGreaterThanOrEqualExpr.create(''); // Create GreaterThanOrEqualExpr.
+                  newSyntaxNode.left:= stack.pop;                             // Append RelationalExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;                       // Append AdditiveExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else begin
+                  // XPath 1.0, prod. [24]:
+                  newSyntaxNode:= TdomXPathLessThanExpr.create(''); // Create LessThanExpr.
+                  newSyntaxNode.left:= lastSyntaxNode;              // Append AdditiveExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if (lastSyntaxNode is TdomXPathMinusOperator) or
+                          (lastSyntaxNode is TdomXPathModOperator) or
+                          (lastSyntaxNode is TdomXPathMultiplyOperator)
+              then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if lastSyntaxNode is TdomXPathNameTest then begin
+                // XPath 1.0, prod. [7]:
+                newSyntaxNode:= TdomXPathNodeTest.create('');  // Create NodeTest.
+                newSyntaxNode.left:= lastSyntaxNode;           // Append NameTest.
+                lastSyntaxNode:= newSyntaxNode;
+              end else if lastSyntaxNode is TdomXPathNodeTest then begin
+                // XPath 1.0, prod. [4]:
+                if tokenizer.isFollowing(XPATH_LEFT_SQUARE_BRACKET_TOKEN) then begin
+                  // A Predicate is following, so we postpone building the Step.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                if stack.peek(0) is TdomXPathDoubleColon then begin
+                  if stack.peek(1) is TdomXPathCustomAxisName then begin
+                    stack.pop.free;
+                    newSyntaxNode:= stack.pop;
+                    newSyntaxNode.left:= lastSyntaxNode;       // Append NodeTest to AxisName.
+                    lastSyntaxNode:= TdomXPathStep.create(''); // Create Step.
+                    lastSyntaxNode.left:= newSyntaxNode;       // Append AxisName to Step.
+                  end else begin
+                    // Malformed XPath Expression.  We are parsing it anyway ...
+                    stack.push(lastSyntaxNode);
+                    break;
+                  end;
+                end else if stack.peek(0) is TdomXPathCommercialAt then begin
+                  // XPath 1.0, prod. [13]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathAxisNameAttribute.create('');
+                  newSyntaxNode.left:= lastSyntaxNode;       // Append NodeTest to AxisName.
+                  lastSyntaxNode:= TdomXPathStep.create(''); // Create Step.
+                  lastSyntaxNode.left:= newSyntaxNode;       // Append AxisName to Step.
+                end else begin
+                  // XPath 1.0, prod. [13]:
+                  newSyntaxNode:= TdomXPathAxisNameChild.create('');
+                  newSyntaxNode.left:= lastSyntaxNode;       // Append NodeTest to AxisName.
+                  lastSyntaxNode:= TdomXPathStep.create(''); // Create Step.
+                  lastSyntaxNode.left:= newSyntaxNode;       // Append AxisName to Step.
+                end;
+              end else if (lastSyntaxNode is TdomXPathNodeTypeComment) or
+                          (lastSyntaxNode is TdomXPathNodeTypeNode) or
+                          (lastSyntaxNode is TdomXPathNodeTypePI) or
+                          (lastSyntaxNode is TdomXPathNodeTypeText)
+              then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if lastSyntaxNode is TdomXPathNumber then begin
+                // XPath 1.0, prod. [15]:
+                newSyntaxNode:= TdomXPathPrimaryExpr.create(''); // Create PrimaryExpr.
+                newSyntaxNode.left:= lastSyntaxNode;             // Append Number.
+                lastSyntaxNode:= newSyntaxNode;
+              end else if lastSyntaxNode is TdomXPathOrExpr then begin
+                if tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MULTIPLY_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_DIV_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MOD_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_PLUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_MINUS_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LESS_THAN_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_LESS_THAN_OR_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_GREATER_THAN_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_GREATER_THAN_OR_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_IS_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_IS_NOT_EQUAL_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_AND_OPERATOR_TOKEN) or
+                   tokenizer.isFollowing(XPATH_OR_OPERATOR_TOKEN)
+                then begin
+                  // Operator of higher precedence is following, so we postpone building the expression.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                // XPath 1.0, prod. [14]:
+                newSyntaxNode:= TdomXPathExpr.create(''); // Create Expr.
+                newSyntaxNode.left:= lastSyntaxNode;      // Append OrExpr.
+                lastSyntaxNode:= newSyntaxNode;
+              end else if lastSyntaxNode is TdomXPathOrOperator then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if lastSyntaxNode is TdomXPathPathExpr then begin
+                // XPath 1.0, prod. [18]:
+                if tokenizer.isFollowing(XPATH_SLASH_OPERATOR_TOKEN) then begin
+                  // A Slash is following, so we postpone building the TdomXPathUnionExpr.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                if (stack.peek(0) is TdomXPathShefferStrokeOperator) and
+                   (stack.peek(1) is TdomXPathUnionExpr)
+                then begin
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathUnionExpr.create(''); // Create UnionExpr.
+                  newSyntaxNode.left:= stack.pop;                // Append UnionExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;          // Append PathExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else begin
+                  newSyntaxNode:= TdomXPathUnionExpr.create(''); // Create UnionExpr.
+                  newSyntaxNode.left:= lastSyntaxNode;           // Append PathExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if lastSyntaxNode is TdomXPathPlusOperator then begin
+                stack.push(lastSyntaxNode);
+                break;
+              end else if lastSyntaxNode is TdomXPathPredicate then begin
+                if stack.peek(0) is TdomXPathFilterExpr then begin
+                  // XPath 1.0, prod. [20]:
+                  newSyntaxNode:= TdomXPathFilterExpr.create('');
+                  newSyntaxNode.left:= stack.pop;
+                  newSyntaxNode.right:= lastSyntaxNode;
+                  lastSyntaxNode:= newSyntaxNode;
+                end else begin
+                  // XPath 1.0, prod. [4]:
+                  if tokenizer.isFollowing(XPATH_LEFT_SQUARE_BRACKET_TOKEN) then begin
+                    // Another Predicate is following, so we postpone building the Step.
+                    stack.push(lastSyntaxNode);
+                    break;
+                  end;
+                  if stack.peek(0) is TdomXPathPredicate then begin
+                    newSyntaxNode:= stack.pop;
+                    newSyntaxNode.right:= lastSyntaxNode;
+                    lastSyntaxNode:= newSyntaxNode;
+                  end else if stack.peek(0) is TdomXPathNodeTest then begin
+                    if stack.peek(1) is TdomXPathDoubleColon then begin
+                      if stack.peek(2) is TdomXPathCustomAxisName then begin
+                        nodeTestNode:= stack.pop; // Pop the NodeTest from the stack.
+                        stack.pop.free;           // Pop and delete the DoubleColon.
+                        axisNode:= stack.pop;     // Pop the AxisName from the stack.
+                        axisNode.left:= nodeTestNode;              // Append NodeTest to AxisName.
+                        axisNode.right:= lastSyntaxNode;           // Append Predicate to AxisName.
+                        lastSyntaxNode:= TdomXPathStep.create(''); // Create Step.
+                        lastSyntaxNode.left:= axisNode;            // Append AxisName to Step.
+                      end else begin
+                        // Malformed XPath Expression.  We are parsing it anyway ...
+                        stack.push(lastSyntaxNode);
+                        break;
+                      end;
+                    end else if stack.peek(1) is TdomXPathCommercialAt then begin
+                      // XPath 1.0, prod. [13]:
+                      nodeTestNode:= stack.pop;                         // Pop the NodeTest from the stack.
+                      stack.pop.free;                                   // Pop and delete the DoubleColon.
+                      axisNode:= TdomXPathAxisNameAttribute.create(''); // Create attribute axis AxisName.
+                      axisNode.left:= nodeTestNode;              // Append NodeTest to AxisName.
+                      axisNode.right:= lastSyntaxNode;           // Append Predicate to AxisName.
+                      lastSyntaxNode:= TdomXPathStep.create(''); // Create Step.
+                      lastSyntaxNode.left:= axisNode;            // Append AxisName to Step.
+                    end else begin
+                      // XPath 1.0, prod. [13]:
+                      nodeTestNode:= stack.pop;                      // Pop the NodeTest from the stack.
+                      axisNode:= TdomXPathAxisNameChild.create('');  // Create child axis AxisName.
+                      axisNode.left:= nodeTestNode;              // Append NodeTest to AxisName.
+                      axisNode.right:= lastSyntaxNode;           // Append Predicate to AxisName.
+                      lastSyntaxNode:= TdomXPathStep.create(''); // Create Step.
+                      lastSyntaxNode.left:= axisNode;            // Append AxisName to Step.
+                    end;
+                  end else begin
+                    // Malformed XPath Expression.  We are parsing it anyway ...
+                    stack.push(lastSyntaxNode);
+                    break;
+                  end;
+                end;
+              end else if lastSyntaxNode is TdomXPathPrimaryExpr then begin
+                // XPath 1.0, prod. [20]:
+                newSyntaxNode:= TdomXPathFilterExpr.create(''); // Create FilterExpr.
+                newSyntaxNode.left:= lastSyntaxNode;            // Append PrimaryExpr.
+                lastSyntaxNode:= newSyntaxNode;
+              end else if lastSyntaxNode is TdomXPathRightParenthesis then begin
+                // XPath 1.0, prod. [7]:
+                if (stack.peek(0) is TdomXPathLeftParenthesis) and
+                   ( (stack.peek(1) is TdomXPathNodeTypeComment) or
+                     (stack.peek(1) is TdomXPathNodeTypeNode) or
+                     (stack.peek(1) is TdomXPathNodeTypePI) or
+                     (stack.peek(1) is TdomXPathNodeTypeText) )
+                then begin
+                  lastSyntaxNode.free;
+                  lastSyntaxNode:= TdomXPathNodeTest.create('');
+                  stack.pop.free;
+                  lastSyntaxNode.left:= stack.pop;
+                end else if (stack.peek(0) is TdomXPathLiteral) and
+                            (stack.peek(1) is TdomXPathLeftParenthesis) and
+                            (stack.peek(2) is TdomXPathNodeTypePI)
+                then begin
+                  lastSyntaxNode.free;
+                  lastSyntaxNode:= TdomXPathNodeTest.create(''); // Create NodeTest
+                  PILiteral:= stack.pop;
+                  stack.pop.free;                                // Remove LeftParenthesist from stack.
+                  nodeTypePI:= stack.pop;
+                  nodeTypePI.left:= PILiteral;                   // Append Literal to NodeTypePI
+                  lastSyntaxNode.left:= nodeTypePI;              // Append NodeTypePI to NodeTest
+                end else if (stack.peek(0) is TdomXPathExpr) and
+                            (stack.peek(1) is TdomXPathLeftParenthesis) and
+                            not (stack.peek(2) is TdomXPathFunctionName)
+                then begin
+                  // XPath 1.0, prod. [15]:
+                  lastSyntaxNode.free;
+                  lastSyntaxNode:= TdomXPathPrimaryExpr.create(''); // Create PrimaryExpr
+                  lastSyntaxNode.left:= stack.pop;                  // Append Expr
+                  stack.pop.free;                                   // Remove LeftParenthesist from stack.
+                end else if (stack.peek(0) is TdomXPathLeftParenthesis) and
+                            (stack.peek(1) is TdomXPathFunctionName)
+                then begin
+                  // XPath 1.0, prod. [16]:
+                  stack.pop.free;
+                  lastSyntaxNode.free;
+                  lastSyntaxNode:= TdomXPathFunctionCall.create(''); // Create FunctionCall.
+                  lastSyntaxNode.left:= stack.pop;                   // Append FunctionName.
+                end else begin
+                  // XPath 1.0, prod. [16]:
+                  lastArgument:= nil;
+                  while (stack.peek(0) is TdomXPathExpr) and
+                        (stack.peek(1) is TdomXPathComma)
+                  do begin
+                    newArgument:= TdomXPathArgument.create(''); // Create Argument.
+                    newArgument.left:= stack.pop;               // Append Expr.
+                    newArgument.right:= lastArgument;           // Append last Argument (if any).
+                    lastArgument:= newArgument;
+                    stack.pop.free;
+                  end;
+                  if (stack.peek(0) is TdomXPathExpr) and
+                     (stack.peek(1) is TdomXPathLeftParenthesis) and
+                     (stack.peek(2) is TdomXPathFunctionName)
+                  then begin
+                    newArgument:= TdomXPathArgument.create('');        // Create Argument.
+                    newArgument.left:= stack.pop;                      // Append Expr.
+                    newArgument.right:= lastArgument;                  // Append last Argument (if any).
+                    stack.pop.free;
+                    lastSyntaxNode.free;
+                    lastSyntaxNode:= TdomXPathFunctionCall.create(''); // Create FunctionCall.
+                    lastSyntaxNode.left:= stack.pop;                   // Append FunctionName.
+                    lastSyntaxNode.right:= newArgument;                // Append Argument.
+                  end else begin
+                    // Malformed XPath Expression.  We are parsing it anyway ...
+                    if assigned(lastArgument)
+                      then stack.push(lastArgument);
+                    stack.push(lastSyntaxNode);
+                    break;
+                  end;
+                end;
+              end else if lastSyntaxNode is TdomXPathRightSquareBracket then begin
+                // XPath 1.0, prod. [8] and [9]:
+                if (stack.peek(0) is TdomXPathExpr) and
+                   (stack.peek(1) is TdomXPathLeftSquareBracket)
+                then begin
+                  lastSyntaxNode.free;
+                  lastSyntaxNode:= TdomXPathPredicate.create(''); // Create Predicate.
+                  lastSyntaxNode.left:= stack.pop;                // Append Expr.
+                  stack.pop.free;                                 // Remove LeftSquareBracket from stack.
+                end else begin
+                  // Malformed XPath Expression.  We are parsing it anyway ...
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+              end else if lastSyntaxNode is TdomXPathShefferStrokeOperator then begin
+                if stack.peek(0) is TdomXPathPathExpr then begin
+                  newSyntaxNode:= TdomXPathUnionExpr.create(''); // Create UnionExpr.
+                  newSyntaxNode.left:= stack.pop;                // Append PathExpr from stack.
+                  stack.push(newSyntaxNode);                     // Push the UnionExpr on the stack.
+                  stack.push(lastSyntaxNode);                    // Push the ShefferStrokeOperator on the stack.
+                  break;
+                end else begin
+                  // Malformed XPath Expression.  We are parsing it anyway ...
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+              end else if lastSyntaxNode is TdomXPathSingleDot then begin
+                // XPath 1.0, prod. [12]:
+                lastSyntaxNode.free;
+                lastSyntaxNode:= TdomXPathStep.create('');                        // Create Step.
+                lastSyntaxNode.left:= TdomXPathAxisNameSelf.create('');           // Create and append AxisName to Step.
+                lastSyntaxNode.left.left:= TdomXPathNodeTest.create('');          // Create and append NodeTest to AxisName.
+                lastSyntaxNode.left.left.left:= TdomXPathNodeTypeNode.create(''); // Create and append NodeType to NodeTest.
+              end else if lastSyntaxNode is TdomXPathSlashOperator then begin
+                // XPath 1.0, prod. [2]:
+                if ( (not assigned(stack.peek(0))) or
+                     (stack.peek(0) is TdomXPathShefferStrokeOperator) ) and
+                   ( tokenizer.isFollowing(XPATH_END_OF_TEXT_TOKEN) or
+                     tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN)    )
+                then begin
+                  lastSyntaxNode.free;
+                  lastSyntaxNode:= TdomXPathPathExpr.create('');                  // Create PathExpr.
+                  lastSyntaxNode.left:= TdomXPathAbsoluteLocationPath.create(''); // Create and append AbsolutLocationPath.
+                end else begin
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+              end else if lastSyntaxNode is TdomXPathStep then begin
+                // XPath 1.0, prod. [3] and [19]:
+                if stack.peek(0) is TdomXPathSlashOperator then begin
+                  if stack.peek(1) is TdomXPathFilterExpr then begin
+                    stack.pop.free;
+                    newSyntaxNode:= TdomXPathPathExpr.create(''); // Create PathExpr.
+                    newSyntaxNode.left:= stack.pop;               // Append FilterExpr to PathExpr.
+                    newSyntaxNode.right:= lastSyntaxNode;         // Append Step to PathExpr.
+                    lastSyntaxNode:= newSyntaxNode;
+                  end else if stack.peek(1) is TdomXPathPathExpr then begin
+                    stack.pop.free;
+                    if TdomXPathPathExpr(stack.peek(0)).addStep(TdomXPathStep(lastSyntaxNode)) then begin
+                      lastSyntaxNode:= stack.pop;
+                    end else begin
+                      // Malformed XPath Expression.  We are parsing it anyway ...
+                      stack.push(lastSyntaxNode);
+                      break;
+                    end;
+                  end else if (not assigned(stack.peek(1)) ) or
+                              (stack.peek(1) is TdomXPathShefferStrokeOperator)
+                  then begin
+                    // XPath 1.0, prod. [2]:
+                    stack.pop.free;
+                    newSyntaxNode:= TdomXPathPathExpr.create('');                  // Create PathExpr.
+                    newSyntaxNode.left:= TdomXPathAbsoluteLocationPath.create(''); // Create and append AbsolutLocationPath.
+                    newSyntaxNode.right:= lastSyntaxNode;                          // Append Step.
+                    lastSyntaxNode:= newSyntaxNode;
+                  end else begin
+                    // Malformed XPath Expression.  We are parsing it anyway ...
+                    stack.push(lastSyntaxNode);
+                    break;
+                  end;
+                end else begin
+                  newSyntaxNode:= TdomXPathPathExpr.create(''); // Create PathExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;         // Append Step to PathExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if lastSyntaxNode is TdomXPathUnaryExpr then begin
+                if tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN) then begin
+                  // Operator of higher precedence is following, so we postpone building the expression.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                if (stack.peek(0) is TdomXPathMinusOperator) and not (
+                     (stack.peek(1) is TdomXPathPlusExpr) or
+                     (stack.peek(1) is TdomXPathMinusExpr) or
+                     (stack.peek(1) is TdomXPathMultiplyExpr) or
+                     (stack.peek(1) is TdomXPathDivExpr) or
+                     (stack.peek(1) is TdomXPathModExpr) or
+                     (stack.peek(1) is TdomXPathUnaryExpr) or
+                     (stack.peek(1) is TdomXPathUnionExpr)  )
+                then begin
+                  // XPath 1.0, prod. [27]:
+                  newSyntaxNode:= TdomXPathUnaryExpr.create(''); // Create UnaryExpr.
+                  newSyntaxNode.left:= stack.pop;                // Append MinusOperator.
+                  newSyntaxNode.right:= lastSyntaxNode;          // Append UnaryExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else if (stack.peek(0) is TdomXPathMultiplyOperator) and
+                   ( (stack.peek(1) is TdomXPathMultiplyExpr) or
+                     (stack.peek(1) is TdomXPathDivExpr) or
+                     (stack.peek(1) is TdomXPathModExpr) )
+                then begin
+                  // XPath 1.0, prod. [26]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathMultiplyExpr.create(''); // Create MultiplyExpr.
+                  newSyntaxNode.left:= stack.pop;                   // Append MultiplicativeExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;             // Append UnaryExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else if (stack.peek(0) is TdomXPathDivOperator) and
+                   ( (stack.peek(1) is TdomXPathMultiplyExpr) or
+                     (stack.peek(1) is TdomXPathDivExpr) or
+                     (stack.peek(1) is TdomXPathModExpr) )
+                then begin
+                  // XPath 1.0, prod. [26]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathDivExpr.create(''); // Create DivExpr.
+                  newSyntaxNode.left:= stack.pop;              // Append MultiplicativeExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;        // Append UnaryExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else if (stack.peek(0) is TdomXPathModOperator) and
+                   ( (stack.peek(1) is TdomXPathMultiplyExpr) or
+                     (stack.peek(1) is TdomXPathDivExpr) or
+                     (stack.peek(1) is TdomXPathModExpr) )
+                then begin
+                  // XPath 1.0, prod. [26]:
+                  stack.pop.free;
+                  newSyntaxNode:= TdomXPathModExpr.create(''); // Create ModExpr.
+                  newSyntaxNode.left:= stack.pop;              // Append MultiplicativeExpr.
+                  newSyntaxNode.right:= lastSyntaxNode;        // Append UnaryExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end else begin
+                  // XPath 1.0, prod. [26]:
+                  newSyntaxNode:= TdomXPathMultiplyExpr.create(''); // Create MultiplyExpr.
+                  newSyntaxNode.left:= lastSyntaxNode;              // Append UnaryExpr.
+                  lastSyntaxNode:= newSyntaxNode;
+                end;
+              end else if lastSyntaxNode is TdomXPathUnionExpr then begin
+                // XPath 1.0, prod. [27]:
+                if tokenizer.isFollowing(XPATH_SHEFFER_STROKE_OPERATOR_TOKEN) then begin
+                  // A Sheffer's Stroke is following, so we postpone building the UnaryExpr.
+                  stack.push(lastSyntaxNode);
+                  break;
+                end;
+                newSyntaxNode:= TdomXPathUnaryExpr.create(''); // Create UnaryExpr.
+                newSyntaxNode.left:= lastSyntaxNode;           // Append the UnionExpr.
+                lastSyntaxNode:= newSyntaxNode;
+              end else if lastSyntaxNode is TdomXPathVariableReference then begin
+                // XPath 1.0, prod. [15]:
+                newSyntaxNode:= TdomXPathPrimaryExpr.create(''); // Create PrimaryExpr.
+                newSyntaxNode.left:= lastSyntaxNode;             // Append VariableReference.
+                lastSyntaxNode:= newSyntaxNode;
+              end;
+            until false;
+          end; {case ... else ...}
+        until false;
+
+        if assigned(FSyntaxTree) then FSyntaxTree.free;  // Free the old syntax tree, if any.
+        FIsPrepared:= true;
+
+        // Is the syntax tree valid, i.e. does the evaluation reach the end of the text
+        // and does the stack hold exactly one root node of type TdomXPathExpr?
+        if (symbol =  XPATH_END_OF_TEXT_TOKEN) and
+           (stack.length = 1) and
+           (stack.peek(0) is TdomXPathExpr)
+        then begin
+          FIsValid:= true;
+          FSyntaxTree:= TdomXPathExpr(stack.pop);
+        end else begin
+          FIsValid:= false;
+          FSyntaxTree:= nil;
+        end;
+
+      finally
+        stack.free;
+      end;
+    finally
+      tokenizer.free;
+    end;
+  end;
+  result:= FIsValid;
+end;
+
+{ TdomXPathNSResolver }
+
+constructor TdomXPathNSResolver.create(const resolverNode: TdomNode);
+var
+  node: TdomNode;
+  i: integer;
+begin
+  FPrefixUriList:= TdomNameValueList.create;
+  with FPrefixUriList do begin
+    Sorted:= true;
+    Duplicates:= dupIgnore;
+  end;
+  node:= resolverNode;
+  while assigned(node) do begin
+    with node do begin
+      if nodeType = ntElement_Node then begin
+        with attributes do begin
+          for i:= 0 to pred(length) do
+            with TdomAttr(item(i)) do
+              if (namespaceURI = 'http://www.w3.org/2000/xmlns/')
+                then if not (localName = 'xmlns')
+                  then FPrefixUriList.add(localName,nodeValue);
+        end; {with ...}
+      end; {if ...}
+      node:= parentNode;
+    end; {with ...}
+  end; {while ...}
+end;
+
+destructor TdomXPathNSResolver.destroy;
+begin
+  FPrefixUriList.free;
+  inherited;
+end;
+
+function TdomXPathNSResolver.lookupNamespaceURI(const prefix: UnicodeString): UnicodeString;
+var
+  index: integer;
+begin
+  index:= FPrefixUriList.indexOfName(prefix);
+  if index > -1
+    then result:= FPrefixUriList.names[index]
+    else result:= '';
+end;
+
+{ TdomXPathSnapshotResult }
+
+constructor TdomXPathSnapshotResult.create;
+begin
+  FAxisType:= XPATH_FORWARD_AXIS;
+  FList:= TList.create;
+  FResultType:= XPATH_NODE_SNAPSHOT_TYPE;
+end;
+
+destructor TdomXPathSnapshotResult.destroy;
+begin
+  FList.free;
+  inherited;
+end;
+
+procedure TdomXPathSnapshotResult.add(const node: TdomNode);
+begin
+  FList.Add(node);
+end;
+
+procedure TdomXPathSnapshotResult.addSnapshotResult(const ir: TdomXPathSnapshotResult);
+// Merges two sorted snapshotResult objects.
+var
+  i,x,y: integer;
+  treePosition: TdomTreePosition;
+  equivalentItems: TList;
+begin
+  ir.axisType:= axisType;
+  x:= 0;
+  y:= 0;
+  equivalentItems:= TList.create;
+  try
+
+    if axisType = XPATH_FORWARD_AXIS then begin
+      while (x < snapshotLength) and (y < ir.snapshotLength) do begin
+        treePosition:= snapshotItem(x).compareTreePosition(ir.snapshotItem(y));
+        if (Tree_Position_Same_Node in treePosition) then begin
+          inc(y);
+        end else if (Tree_Position_Equivalent in treePosition) then begin
+          equivalentItems.Add(ir.snapshotItem(y));
+          inc(y);
+        end else if (Tree_Position_Following in treePosition) then begin
+          inc(x);
+          for i:= pred(equivalentItems.Count) downto 0 do
+            if (Tree_Position_Same_Node in snapshotItem(x).compareTreePosition(equivalentItems[i]))
+              then equivalentItems.delete(i);
+        end else if (Tree_Position_Disconnected in treePosition) then begin
+          for i:= 0 to pred(equivalentItems.Count) do begin
+            FList.insert(x,equivalentItems[i]);
+            equivalentItems.delete(i);
+            inc(x);
+          end;
+          inc(x);
+        end else begin
+          for i:= 0 to pred(equivalentItems.Count) do begin
+            FList.insert(x,equivalentItems[i]);
+            equivalentItems.delete(i);
+            inc(x);
+          end;
+          FList.insert(x,ir.snapshotItem(y));
+          inc(x);
+          inc(y);
+        end;
+      end;
+    end else begin
+      while (x < snapshotLength) and (y < ir.snapshotLength) do begin
+        treePosition:= snapshotItem(x).compareTreePosition(ir.snapshotItem(y));
+        if (Tree_Position_Same_Node in treePosition) then begin
+          inc(y);
+        end else if (Tree_Position_Equivalent in treePosition) then begin
+          equivalentItems.Add(ir.snapshotItem(y));
+          inc(y);
+        end else if (Tree_Position_Preceding in treePosition) then begin
+          inc(x);
+          for i:= pred(equivalentItems.Count) downto 0 do
+            if (Tree_Position_Same_Node in snapshotItem(x).compareTreePosition(equivalentItems[i]))
+              then equivalentItems.delete(i);
+        end else if (Tree_Position_Disconnected in treePosition) then begin
+          for i:= 0 to pred(equivalentItems.Count) do begin
+            FList.insert(x,equivalentItems[i]);
+            equivalentItems.delete(i);
+            inc(x);
+          end;
+          inc(x);
+        end else begin
+          for i:= 0 to pred(equivalentItems.Count) do begin
+            FList.insert(x,equivalentItems[i]);
+            equivalentItems.delete(i);
+            inc(x);
+          end;
+          FList.insert(x,ir.snapshotItem(y));
+          inc(x);
+          inc(y);
+        end;
+      end;
+    end;
+
+    inc(x);
+    while (equivalentItems.Count > 0) and (x < snapshotLength) do begin
+      if not (Tree_Position_Equivalent in snapshotItem(x).compareTreePosition(equivalentItems[0])) then begin
+        for i:= 0 to pred(equivalentItems.Count) do begin
+          FList.insert(x,equivalentItems[i]);
+          equivalentItems.delete(i);
+        end;
+      end;
+      for i:= pred(equivalentItems.Count) downto 0 do
+        if (Tree_Position_Same_Node in snapshotItem(x).compareTreePosition(equivalentItems[i]))
+          then equivalentItems.delete(i);
+      inc(x);
+    end;
+
+    for i:= 0 to pred(equivalentItems.Count) do
+      FList.add(equivalentItems[i]);
+
+    if y < ir.snapshotLength then
+      for i:= y to pred(ir.snapshotLength) do
+        FList.add(ir.snapshotItem(i));
+
+  finally
+    equivalentItems.free;
+  end;
+end;
+
+procedure TdomXPathSnapshotResult.addSubtree(const node: TdomNode);
+// Adds 'node' and its subtree, excluding attributes.
+var
+  n: TdomNode;
+  bufferList: TList;
+  i: integer;
+begin
+  if axisType = XPATH_FORWARD_AXIS then begin
+    if assigned(node) then begin
+      with node.ownerDocument.createNodeIterator( node,
+                                                  [ ntElement_Node,
+                                                    ntText_Node,
+                                                    ntCDATA_Section_Node,
+                                                    ntEntity_Reference_Node,
+                                                    ntProcessing_Instruction_Node,
+                                                    ntComment_Node,
+                                                    ntDocument_Node ],
+                                                  nil,
+                                                  false ) do begin
+        n:= NextNode;
+        while assigned(n) do begin
+          FList.add(n);
+          n:= NextNode;
+        end;
+        detach;
+      end;
+      node.ownerDocument.clearInvalidNodeIterators;
+    end;
+  end else begin
+    if assigned(node) then begin
+      bufferList:= TList.create;
+      try
+        with node.ownerDocument.createNodeIterator( node,
+                                                    [ ntElement_Node,
+                                                      ntText_Node,
+                                                      ntCDATA_Section_Node,
+                                                      ntEntity_Reference_Node,
+                                                      ntProcessing_Instruction_Node,
+                                                      ntComment_Node,
+                                                      ntDocument_Node ],
+                                                    nil,
+                                                    false ) do begin
+          n:= NextNode;
+          while assigned(n) do begin
+            bufferList.add(n);
+            n:= NextNode;
+          end;
+          detach;
+        end;
+        node.ownerDocument.clearInvalidNodeIterators;
+
+        for i:= pred(bufferList.count) downto 0 do
+          FList.add(bufferList[i]);
+
+      finally
+        bufferList.free;
+      end;
+    end;
+  end;
+end;
+
+procedure TdomXPathSnapshotResult.delete(const index: integer);
+begin
+  FList.delete(index);
+end;
+
+function TdomXPathSnapshotResult.getSnapshotLength: integer;
+begin
+  result:= FList.count;
+end;
+
+procedure TdomXPathSnapshotResult.setAxisType(const value: TdomXPathAxisType);
+var
+  item: Pointer;
+  index1,index2,j: integer;
+begin
+  If FAxisType <> value then begin
+    FAxisType:= value;
+    j:= pred(FList.Count);
+    for index1:= 0 to ( j div 2) do begin
+      index2:= j - index1;
+      item:= FList.List^[index1];
+      FList.List^[index1]:= FList.List^[index2];
+      FList.List^[index2]:= item;
+    end;
+  end;
+end;
+
+function TdomXPathSnapshotResult.snapshotItem(const index: integer): TdomNode;
+begin
+  if (index < 0) or (index >= FList.Count)
+    then result:= nil
+    else result:= TdomNode(FList.List^[index]);
+end;
+
+{ TdomXPathBooleanResult }
+
+constructor TdomXPathBooleanResult.create(const aBooleanValue: boolean);
+begin
+  FBooleanValue:= aBooleanValue;
+  FResultType:= XPATH_BOOLEAN_TYPE;
+end;
+
+{ TdomXPathNumberResult }
+
+constructor TdomXPathNumberResult.create(const aNumberValue: double);
+begin
+  FNumberValue:= aNumberValue;
+  FResultType:= XPATH_NUMBER_TYPE;
+end;
+
+{ TdomXPathStringResult }
+
+constructor TdomXPathStringResult.create(const aStringValue: UnicodeString);
+begin
+  FStringValue:= aStringValue;
+  FResultType:= XPATH_STRING_TYPE;
+end;
+
+function TXmlCustomHandler.startEndElement(const sender: TXmlCustomReader;
+  const locator: TdomLocator; namespaceURI, tagName: UnicodeString;
+  attributes: TdomNameValueList): boolean;
+begin
+  Result := startElement(sender,locator,namespaceURI,tagName,attributes);
+  if Result then Result := endElement(sender,locator,namespaceURI,tagName);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXMLIntf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXMLIntf.pas
new file mode 100644
index 0000000..aa21a74
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXMLIntf.pas	
@@ -0,0 +1,175 @@
+unit uROXMLIntf;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses Classes, uROTypes;
+
+type
+  { Misc. }
+  TXMLEncoding = (xeUTF8, xeUTF16); // Some are missing...
+  {$IFNDEF UNICODE}
+  UnicodeString = WideString;
+  {$ENDIF}
+
+const
+  XMLEncodingStr : array[TXMLEncoding] of UnicodeString = ('UTF8', 'UTF16');
+  XMLBooleans: array[boolean] of string = ('false', 'true');
+  XMLEmptyNS = '*';
+
+type
+  { Forward declarations }
+  IXMLNodeList = interface;
+  IXMLDocument = interface;
+
+  { IXMLNode }
+  IXMLNode = interface
+  ['{8E0508D5-EFC0-4E1F-9BC5-2CBE3536D008}']
+    function GetName : UnicodeString;
+    function GetLocalName : UnicodeString;
+
+    function GetRef : pointer;
+
+    function GetParent : IXMLNode;
+
+    function GetValue : Variant;
+    procedure SetValue(const Value : Variant);
+
+    function GetXML : UnicodeString;
+
+    function GetAttributes(Index : integer) : IXMLNode;
+    function GetAttributeCount : integer;
+
+    function GetChildren(Index : integer) : IXMLNode;
+    function GetChildrenCount : integer;
+
+    function Add(const aNodeName : UnicodeString; aNameSpaceURI: UnicodeString = '') : IXMLNode;
+    function AddXml(const Xml: UnicodeString): IXMLNode;
+    function AddAttribute(const anAttributeName : UnicodeString; const anAttributeValue : Variant; aCreateResultNode: Boolean = True) : IXMLNode;
+    function AddCDATASection(const aData: UnicodeString): IXMLNode;
+
+    procedure Delete(Index : integer);
+    procedure Remove(const aNode : IXMLNode);
+
+    function GetNodeByName(const aNodeName : UnicodeString) : IXMLNode; // Returns NIL if none is found or exception. Up to you.
+    function GetNodeValue(const aNodeName : UnicodeString; const Default : Variant) : Variant;
+
+    function GetAttributeByName(const anAttributeName : UnicodeString) : IXMLNode;
+    function GetAttributeValue(const anAttributeName : UnicodeString; DefaultValue : Variant) : Variant;
+
+    function GetNodesByName(const aNodeName : UnicodeString) : IXMLNodeList; // Returns NIL if none are found or exception. Up to you.
+
+    function GetNodeByAttribute(const anAttributeName, anAttributeValue : UnicodeString) : IXMLNode; // Returns NIL if none are found or exception. Up to you.
+
+    function GetFirstChild: IXMLNode;
+    function GetNextSibling: IXMLNode;
+    
+    function GetNamespaceURI: UnicodeString;
+
+    function GetDocument: IXMLDocument;
+
+    property Name : UnicodeString read GetName; // When one is creates it MUST have a name
+    property LocalName : UnicodeString read GetLocalName;
+    property NamespaceURI : UnicodeString read GetNamespaceURI;
+    property Value : Variant read GetValue write SetValue; // Only possible if there are no children.
+
+    property Attributes[Index : integer] : IXMLNode read GetAttributes; // NIL if it has no attributes. I am open to other solutions
+    property AttributeCount : integer read GetAttributeCount;
+
+    property Children[Index : integer] : IXMLNode read GetChildren; // NIL if it has no children. I am open to other solutions
+    property ChildrenCount : integer read GetChildrenCount;
+
+    property FirstChild: IXMLNode read GetFirstChild;
+    property NextSibling: IXMLNode read GetNextSibling;
+
+    property XML : UnicodeString read GetXML;
+    property Ref : pointer read GetRef;
+    property Parent : IXMLNode read GetParent;
+    property Document : IXMLDocument read GetDocument;
+  end;
+
+  IXMLNodeList = interface
+  ['{C5393D52-8CB1-4E36-9A8D-25396C3C6716}']
+    function GetNodes(Index : integer) : IXMLNode;
+    function GetCount : integer;
+
+    property Nodes[Index : integer] : IXMLNode read GetNodes; default;
+    property Count : integer read GetCount;
+  end;
+
+  { IXMLDocument }
+  IXMLDocument = interface
+  ['{61715E40-F8D5-4A7E-A01B-80114EF35428}']
+    function GetDocumentNode : IXMLNode;
+
+    function GetEncoding : TXMLEncoding;
+
+    procedure New(aDocumentName : UnicodeString = ''; anEncoding : TXMLEncoding = xeUTF8); // Once the encoding is set cannot be changed
+
+    procedure SaveToStream(aStream : TStream);
+    procedure SaveToFile(const aFileName : string);
+    procedure LoadFromStream(aStream : TStream);
+    procedure LoadFromFile(const aFileName : string);
+    function GetXML : UnicodeString;
+    procedure SetXML(const Value : UnicodeString);
+
+    function Transform(const XSL : string) : string;
+    procedure Transform2(const aXSL : string; aStream : TStream);
+
+    property Encoding : TXMLEncoding read GetEncoding;
+    property DocumentNode : IXMLNode read GetDocumentNode; // NIL until New is called. New frees everything each time is called
+    property XML : UnicodeString read GetXML write SetXML;
+  end;
+
+function NewROXmlDocument : IXMLDocument;
+function SelectNodeLocal(aParent: IXMLNode; const aLocalName: string): IXMLNode;
+
+implementation
+
+{$IFDEF RemObjects_MSXML}
+uses uROMSXMLImpl;
+{$ENDIF}
+{$IFDEF RemObjects_OpenXML}
+uses uROOpenXMLImpl;
+{$ENDIF}
+
+function SelectNodeLocal(aParent: IXMLNode; const aLocalName: string): IXMLNode;
+var
+  i: Integer;
+  lnode: IXMLNode;
+begin
+  result := nil;
+  if aParent = nil then exit;
+  for i := 0 to aParent.ChildrenCount -1 do begin
+    lnode := aParent.Children[i];
+    if lnode.LocalName = aLocalName then begin
+      result := lnode;
+      exit;
+    end;
+  end;
+end;
+
+function NewROXmlDocument : IXMLDocument;
+begin
+  {$IFDEF RemObjects_OpenXML}
+  result := TROOpenXMLDocument.Create;
+  {$ENDIF}
+  {$IFDEF RemObjects_MSXML}
+  result := TROMSXMLDocument.Create;
+  {$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXMLSerializer.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXMLSerializer.pas
new file mode 100644
index 0000000..6a0f619
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXMLSerializer.pas	
@@ -0,0 +1,2358 @@
+unit uROXMLSerializer;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, uROSerializer, TypInfo, uROXMLIntf, uROTypes, SysUtils, FMTBcd, Contnrs;
+
+const
+  // SOAP specifics
+  tag_Envelope = 'Envelope';
+  tag_Body     = 'Body';
+  tag_Header   = 'Header';
+  tag_Fault    = 'Fault';
+
+  ns_Envelope = 'SOAP-ENV';
+  ns_Envelope_tag_Envelope_Ansi: AnsiString = 'SOAP-ENV:Envelope';
+  ns_Standard = 'xs';
+  ns_Custom   = 'ro';
+  ns_xsi      = 'xsi';
+  ns_xsd      = 'xsd';
+
+  tag_HRef = 'href';
+  tag_Nil  = 'xsi:nil';
+  tag_NilValue  = 'true';
+  tag_Id   = 'id';
+  tag_text = '#text';
+
+  // Misc
+  SOAP_DecimalSeperator  = '.';
+  SOAP_BoolValues: array [Boolean] of  string = ('false', 'true');
+
+  SOAP_DateFormat       = 'yyyy-mm-dd';
+  SOAP_DateFormatLength = 10;
+
+  SOAP_DateTimeFormat       = 'yyyy-mm-dd"T"hh":"nn":"ss';
+  SOAP_DateTimeFormatLength = 19;
+
+  SOAP_TimeFormat       = 'hh":"nn":"ss';
+  SOAP_TimeFormatLength = 8;
+
+  SOAP_TimeZoneOffsetLength = 6; // +-hh:mm
+
+  // Data types signatures
+  dts_Array        = 'SOAP-ENC:Array';
+  dts_Array2        = 'soapenc:Array';
+  dts_base64Binary = 'base64Binary';
+
+
+type
+  { Misc }
+  TROXMLSerializationOption = (
+    xsoWriteMultiRefArray, // for literal, use false
+    xsoWriteMultiRefObject,  // for literal, use false
+    xsoSendUntyped,  // for literal, use true
+    xsoStrictStructureFieldOrder,
+    xsoIgnoreStructureType,
+    xsoEncodedXML, // for literal, use false
+    xsoClientIdInWsdl,
+    xsoDocument, // for document, use true; if both doc & literal are true it uses wrapped arguments
+    xsoSplitServiceWsdls,
+    xsoExternalTypesAsReferences, // This will emit "import" references to external resources in the wsdl and namespace references in the body of messages.
+    xsoSoap12
+    );
+
+  TROXMLSerializationOptions = set of TROXMLSerializationOption;
+
+  TXMLSerializationOption = TROXMLSerializationOption {$IFDEF DELPHI10UP}deprecated{$ENDIF};
+  TXMLSerializationOptions = TROXMLSerializationOptions {$IFDEF DELPHI10UP}deprecated{$ENDIF};
+
+  { TROXMLSerializer }
+  TROXMLSerializer = class(TROSerializer)
+  private
+    fNode: IXMLNode;
+    fPrefixMap: TStrings;
+    fPrefix: string;
+    fCurrentNamespace: string;
+    fSerializationOptions: TROXMLSerializationOptions;
+
+    fBodyNode : IXMLNode;
+    fMaxRef : integer;
+    fRespNode : IXMLNode;
+    fOverrideNextName,
+    fArrayElementName : string;
+    fElements: TStack;
+    fAttributes: TStringList;
+
+    function BodyNode : IXMLNode;
+    function FindNode(const aName: string; ArrayElementId : integer): boolean;
+    function GetObject(const aName: string; ArrayElementId : integer): IXMLNode;
+    function FindSoapReference(subnode: IXMLNode): IXMLNode;
+    function AddNode(aCurrent: IXmlNode; const aName: string; aIsArray: Boolean): IXMLNode;
+    procedure SetCurrentNamespace(const Value: string);
+    procedure ReadAttribute(const aName : string; var Ref);
+    procedure WriteAttribute(const aName : string; const Ref);
+  protected
+    { Internal }
+    function GetRecordStrictOrder: Boolean; override;
+       procedure BeginWriteObject(const aName: string; aClass : TClass; anObject: TObject; var LevelRef : IUnknown;
+                                  var IsValidType : boolean; out IsAssigned:Boolean; ArrayElementId : integer = -1); override;
+       procedure EndWriteObject(const aName: string; aClass : TClass; anObject: TObject; const LevelRef : IUnknown); override;
+       procedure CustomWriteObject(const aName : string; aClass : TClass; const Ref; ArrayElementId : integer = -1); override;
+       procedure CustomReadObject(const aName: string; aClass: TClass;var Ref; ArrayElementId: integer);override;
+       procedure BeginReadObject(const aName : string; aClass : TClass; var anObject : TObject; var LevelRef : IUnknown;
+                                 var IsValidType : boolean; ArrayElementId : integer = -1); override;
+       procedure EndReadObject(const aName : string; aClass : TClass; var anObject : TObject; const LevelRef : IUnknown); override;  public
+    { Writers }
+    procedure WriteInteger(const aName : string; anOrdType : TOrdType; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteInt64(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteUTF8String(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteAnsiString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteWideString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteUnicodeString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteDateTime(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteDouble(const aName : string; aFloatType : TFloatType; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteVariant(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+    procedure WriteDecimal(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+    procedure WriteGuid(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+    procedure WriteXml(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+    procedure WriteBinary(const aName : string; const Ref; ArrayElementId : integer = -1);override;
+    procedure WriteStruct(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1);override;
+    procedure WriteArray(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1);override;
+    procedure WriteXSDateTime(const aName : string; Ref: XsDateTime; ArrayElementId : integer = -1);
+
+    procedure WriteException(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+
+    { Readers }
+    procedure ReadInteger(const aName : string; anOrdType : TOrdType; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadInt64(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadUTF8String(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadAnsiString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadWideString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadUnicodeString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+    procedure ReadDateTime(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadDouble(const aName : string; aFloatType : TFloatType; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadVariant(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    procedure ReadDecimal(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+    procedure ReadGuid(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+    procedure ReadXml(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+    procedure ReadBinary(const aName : string; var Ref; ArrayElementId : integer = -1);override;
+    function ReadStruct(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+    function ReadArray(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+    procedure ReadException(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+    function ReadXsDateTime(const aName: string; ArrayElementId : integer = -1): XsDateTime;
+    procedure ChangeClass(aClass: TClass); override;
+  public
+    constructor Create(aStorageRef:pointer);
+    destructor Destroy; override;
+
+    property CurrentNamespace: string read fCurrentNamespace write SetCurrentNamespace;
+    property Prefix: string read fPrefix;
+    property PrefixMap: TStrings read fPrefixMap;
+
+    procedure SetStorageRef(aStorageRef:pointer);
+    function GetArrayElementName(anItemType : PTypeInfo; anItemReference: pointer): string; override;
+
+    property SerializationOptions : TROXMLSerializationOptions read fSerializationOptions write fSerializationOptions;
+  end;
+
+const
+  RESERVED_WORD_PREFIX = '___';
+
+function  Unprefix(const AStr: String; const APrefix: String = RESERVED_WORD_PREFIX): String;
+
+function XMLToObject(const someXML : ansistring) : TROComplexType; overload;
+{$IFDEF UNICODE}
+function XMLToObject(const someXML : WideString) : TROComplexType; overload;
+{$ENDIF}
+function XMLToObject(const someXML : UnicodeString) : TROComplexType; overload;
+function ObjectToXML(anObject : TROComplexType;
+                     const anObjectName : string = '') : string;
+
+procedure SplitNodeName(const aNode : IXMLNode; out aNameSpace, aLocalName : string);
+
+function SOAPDateTimeToDateTime(const aSOAPDate  : string) : TDateTime; overload;
+function SOAPDateTimeToDateTime(const aSOAPDate  : string; out Offset: Integer) : TDateTime; overload;
+function DateTimeToSOAPDateTime(aDateTime : TDateTime) : string;
+
+function ExtractServerURL(const aFullURL : string) : string;
+
+function SOAPStrToFloat(const aString: string): Extended;
+
+//function AddXMLChildNode(aParent : IXMLNode; const aName : string; const aNamespace: UnicodeString = '') : IXMLNode;
+function AddXMLAttribute(aNode : IXMLNode; const aName: string; const aValue : UnicodeString; aCreateResultNode: Boolean = True) : IXMLNode;
+procedure AddXMLTextValue(aNode : IXMLNode; const aValue : UnicodeString);
+
+function FindChildNode(aParent : IXMLNode; const aName : string; StartFrom : integer; IsOnlyLocalName : boolean = FALSE) : IXMLNode;
+function FindChildNodeByAttribute(aParent : IXMLNode; const anAttributeName, anAttributeValue : string) : IXMLNode;
+function FindParentNode(aNode : IXMLNode; const aName : string; IsOnlyLocalName : boolean = FALSE) : IXMLNode;
+function FindAttribute(aNode : IXMLNode; const aName : string; IsOnlyLocalName : boolean = FALSE) : IXMLNode;
+function GetXMLTextValue(aNode : IXMLNode) : UnicodeString;
+
+{$IFDEF DELPHI7UP}
+const SOAPLocale = 1033;
+var SOAPFormatSettings : TFormatSettings;
+{$ENDIF DELPHI7}
+
+implementation
+
+uses
+  {$IFDEF MSWINDOWS}Windows, {$ENDIF}
+  Math, uRORes, uROCompression, uROClasses, Variants, uROBinaryHelpers;
+
+procedure IsAnonymous(aStruct: TROComplexTypeClass; var aAnonymous, aNillable: Boolean);
+var
+  i: Integer;
+begin
+  aAnonymous := False;
+  aNillable := FAlse;
+  if astruct = nil then exit;
+  for i := 0 to aStruct.GetAttributeCount -1 do begin
+    if astruct.GetAttributeName(i) = 'Anonymous' then
+      aAnonymous := astruct.GetAttributeValue(i) = '1'
+    else if astruct.GetAttributeName(i) = 'Nillable' then
+      aNillable := astruct.GetAttributeValue(i) = '1';
+  end;
+end;
+
+function ExceptionIsAnonymous(aStruct: EROException): Boolean;
+var
+  i: Integer;
+begin
+  result := False;
+  if astruct = nil then exit;
+  for i := 0 to aStruct.GetAttributeCount -1 do begin
+    if astruct.GetAttributeName(i) = 'Anonymous' then
+      result := astruct.GetAttributeValue(i) = '1'
+  end;
+end;
+
+
+function ObjectToXML(anObject : TROComplexType;
+                     const anObjectName : string = '') : string;
+var //objname : string;
+    doc : IXMLDocument;
+begin
+  result := '';
+
+//  if (anObjectName='') then objname := 'Object' else objname := anObjectName;
+
+  doc := NewROXmlDocument;
+  doc.New(anObject.ClassName);
+
+  with TROXMLSerializer.Create(pointer(doc.DocumentNode)) do try
+  //with TROXMLSerializer.Create(doc.DocumentNode) do try
+    SerializationOptions := [xsoSendUntyped];
+    Write(anObject.ClassName, anObject.ClassInfo, anObject);
+
+   {$IFDEF RemObjects_OpenXML}
+    result := doc.XML;   //mej - OpenXML seems to not behave the same way as MSDOM
+   {$ELSE}
+    result := doc.DocumentNode.XML;
+   {$ENDIF}
+
+  finally
+    Free;
+  end;
+end;
+
+
+function XMLToObject(const doc: IXMLDocument) : TROComplexType; overload;
+var
+  clsname : string;
+  cls : TROComplexTypeClass;
+begin
+  clsname := doc.DocumentNode.Name;
+  cls := FindROClass(clsname);
+
+  if (cls=NIL) then RaiseError(err_UnknownClass, [clsname]);
+
+  with TROXMLSerializer.Create(pointer(doc.DocumentNode)) do try
+  //with TROXMLSerializer.Create(doc.DocumentNode) do try
+    Read(clsname, cls.ClassInfo, result);
+  finally
+    Free;
+  end;
+end;
+
+function XMLToObject(const someXML : ansistring) : TROComplexType;
+var
+  doc : IXMLDocument;
+  ss : TStringStream;
+begin
+  ss := TStringStream.Create(someXML);
+  ss.Position := 0;
+  try
+    doc := NewROXmlDocument;
+    doc.New;
+    doc.LoadFromStream(ss);
+  finally
+    ss.Free;
+  end;
+  Result := XMLToObject(doc);
+  doc := nil;
+end;
+
+function XMLToObject(const someXML : UnicodeString) : TROComplexType;
+var
+  XMLDoc: IXMLDocument;
+begin
+  XMLDoc := NewROXmlDocument;
+  XMLDoc.New('', xeUTF16);
+  XMLDoc.XML := someXML;
+
+  Result := XMLToObject(XMLDoc);
+  XMLDoc := nil;
+end;
+
+{$IFDEF UNICODE}
+function XMLToObject(const someXML : WideString) : TROComplexType;
+begin
+  Result := XMLToObject(UnicodeString(someXML));
+end;
+{$ENDIF}
+
+
+procedure SplitName(const aName : string; out aNameSpace, aLocalName : string);
+var idx : integer;
+begin
+  aNameSpace := '';
+  if (aName='') then begin
+    aLocalName := '';
+    Exit;
+  end
+  else aLocalName := aName;
+
+  idx := Pos(':', aName);
+  if (idx>0) then begin
+    aNameSpace := Copy(aName, 1, idx-1);
+    aLocalName := Copy(aName, idx+1, Length(aName)-idx);
+  end;
+end;
+
+// Required for a bug in OpenXML which never assigns correctly LocalName
+procedure SplitNodeName(const aNode : IXMLNode; out aNameSpace, aLocalName : string);
+begin
+//  SplitName(aNode.nodeName, aNameSpace, aLocalName)
+  SplitName(aNode.Name, aNameSpace, aLocalName)
+end;
+
+function SOAPStrToFloat(const aString: string): Extended;
+begin
+  {$IFDEF DELPHI7UP}
+  Result := StrToFloat(aString,SOAPFormatSettings);// then
+  {$ELSE}
+  Result := StrToFloat(StringReplace(aString, '.', DecimalSeparator, []));
+  {$ENDIF}
+    //RaiseError(err_ErrorConvertingFloat, [aString]);
+  //Val(aString, Result, e);
+  //if (e<>0) then RaiseError(err_ErrorConvertingFloat, [aString, e]);
+end;
+
+function SOAPDateTimeToDateTime(const aSOAPDate : string) : TDateTime;
+var
+  lOffset: Integer;
+begin
+  result := SOAPDateTimeToDateTime(aSoapDate, lOffset);
+  if lOffset <> MaxInt then 
+  Result := Result + ((60.0 * lOffset) * (1.0 / 86400.0));
+end;
+
+function SOAPDateTimeToDateTime(const aSOAPDate : string; out Offset: Integer) : TDateTime;
+var year, month, day, hour, min, sec : word;
+  msec: double;
+ { ldummy,} i: Integer;
+  s: string;
+begin
+  // This probabily will all change. See W3C specs for date/time
+  Offset := 0;
+  Result := 0;
+  case Length(aSOAPDate) of
+    0: ;
+    SOAP_DateFormatLength, SOAP_DateFormatLength + 1, SOAP_DateFormatLength + SOAP_TimeZoneOffsetLength : begin {yyyy-mm-dd}
+      year  := StrToInt(Copy(aSOAPDate,1,4));
+      month := StrToInt(Copy(aSOAPDate,6,2));
+      day   := StrToInt(Copy(aSOAPDate,9,2));
+      result := EncodeDate(year, month, day);
+      Offset := MaxInt;
+    end;
+    SOAP_TimeFormatLength, SOAP_TimeFormatLength + 1, SOAP_TimeFormatLength + SOAP_TimeZoneOffsetLength : begin {hh:nn:ss}
+      hour  := StrToInt(Copy(aSOAPDate,1,2));
+      min   := StrToInt(Copy(aSOAPDate,4,2));
+      sec   := StrToInt(Copy(aSOAPDate,7,2));
+      result := EncodeTime(hour, min, sec, 0);
+      Offset := MaxInt;
+    end;
+    else {SOAP_DateTimeFormatLength : } begin {yyyy-mm-ddThh:nn:ss}
+      year  := StrToInt(Copy(aSOAPDate,1,4));
+      month := StrToInt(Copy(aSOAPDate,6,2));
+      day   := StrToInt(Copy(aSOAPDate,9,2));
+      hour  := StrToInt(Copy(aSOAPDate,12,2));
+      min   := StrToInt(Copy(aSOAPDate,15,2));
+      sec   := StrToInt(Copy(aSOAPDate,18,2));
+      s := copy(aSOAPDate, 20, MaxInt);
+      if (Length(s) > 1) and (s[1] = '.') then begin
+        i := LastDelimiter('+-Z', s);
+        if i > 0 then begin
+          msec := StrToFloatDef('0'+DecimalSeparator+Copy(s, 2, i-2), 0);
+         // Val(Copy(s, 1, i -1), msec, ldummy);
+          delete(s, 1, i-1);
+        end else begin
+          msec := StrToFloatDef('0'+DecimalSeparator+copy(s, 2, MaxInt), 0);
+          //Val(s, msec, ldummy);
+          s := '';
+        end;
+        msec := msec * (1.0 / 60.0 / 60.0 / 24);
+      end else
+        msec := 0;
+
+      result := EncodeDate(year, month, day);
+      // The code below is required! Do not adjust
+      if (result<0) then begin
+        result := result-EncodeTime(hour, min, sec, 0);
+        result := result - msec;
+      end else begin
+        result := result+EncodeTime(hour, min, sec, 0);
+        result := result + msec;
+      end;
+      Offset := MaxInt;
+      if (Length(s) <> 0) and ((s[1] = 'z') or (s[1] = 'Z')) then Offset := 0 else
+      if (Length(s) > 0) and ((s[1] = '+') or (s[1] = '-')) then begin
+        if s[1] = '+' then i := -1 else i := 1;
+        Delete(s,1,1);
+        if pos(':', s) > 0 then begin
+          hour := StrToInt(copy(s,1,Pos(':', s)-1));
+          delete(s,1,pos(':', s));
+          min := StrToInt(s);
+        end else begin
+          hour := StrToInt(s);
+          min := 0;
+        end;
+
+        if i = -1 then
+          Offset := - (min + 60 * hour)
+        else
+          Offset := + (min + 60 * hour);
+      end;
+    end;
+  end;
+end;
+
+const
+  FileTime_sec                = 10 * 1000 * 1000; // = 1 sec
+  FileTimeBase                = -109205.0;
+  FileTimeStep                : Extended = 1.0 * 24 {hour} * 60 {min} * 60 {sec} * FileTime_sec; // 100-nanosecond intervals
+
+function ExtractFracSecFromDateTime(aDateTime : TDateTime): integer;
+begin
+     Result := integer(round(frac(frac(aDateTime) * SecsPerDay) * 1000 * 1000));
+end;
+
+function DateTimeToSOAPDateTime(aDateTime : TDateTime) : string;
+var
+  lFractSec, l: integer;
+begin
+  result := FormatDateTime(SOAP_DateTimeFormat, aDateTime);
+  // fract part
+  lFractSec := ExtractFracSecFromDateTime(aDateTime);
+  if lFractSec = 0 then Exit;
+  Result := Result + '.';
+  l := lFractSec;
+  while (l < 100000)  do begin
+    Result := Result +'0';
+    l := l*10;
+  end;
+  l := lFractSec;
+  while (l mod 10) = 0 do l := l div 10;
+  Result := Result+IntToStr(l);
+end;
+
+function ExtractServerURL(const aFullURL : string) : string;
+const ProtocolID = 'http://';
+var p : integer;
+begin
+  result := Trim(StringReplace(aFullURL, ProtocolID, '', [rfReplaceAll, rfIgnoreCase]));
+  p := LastDelimiter('/', result);
+  if (p>0)
+    then result := ProtocolID+Copy(result, 1, p)
+    else result := ProtocolID+result;
+end;
+
+(*function AddXMLChildNode(aParent : IXMLNode; const aName : string; const aNamespace: UnicodeString = '') : IXMLNode;
+begin
+  {result := aParent.ownerDocument.createElement(aName);
+  aParent.appendChild(result);}
+  result := aParent.Add(aName, aNamespace)
+end;*)
+
+function AddXMLAttribute(aNode : IXMLNode; const aName: string; const aValue : UnicodeString; aCreateResultNode: Boolean = True) : IXMLNode;
+begin
+  {result := aNode.ownerDocument.createAttribute(aName);
+  result.nodeValue := aValue;
+  aNode.attributes.setNamedItem(result);}
+  result := aNode.AddAttribute(aName, aValue, aCreateResultNode);
+end;
+
+procedure AddXMLTextValue(aNode : IXMLNode; const aValue : UnicodeString);
+begin
+  //aNode.appendChild(aNode.ownerDocument.createTextNode(aValue));
+  aNode.Value := aValue
+end;
+
+function FindParentNode(aNode : IXMLNode; const aName : string; IsOnlyLocalName : boolean = FALSE) : IXMLNode;
+var ns, locname : string;
+    parent : IXMLNode;
+begin
+  result := NIL;
+  while (aNode.Parent<>NIL) do begin
+    parent := aNode.Parent;
+
+    if IsOnlyLocalName then begin
+      SplitNodeName(parent, ns, locname);
+      if (CompareText(locname, aName)=0) then begin
+        result := parent;
+        Exit;
+      end;
+    end
+    else if (parent.Name=aName) then begin
+      result := parent;
+      Exit;
+    end;
+
+    aNode := parent;
+  end;
+end;
+
+function FindChildNode(aParent : IXMLNode; const aName : string; StartFrom : integer; IsOnlyLocalName : boolean = FALSE) : IXMLNode;
+var i, startidx  : integer;
+    locname, ns : string;
+    item : IXMLNode;
+begin
+  result := NIL;
+
+  with aParent do begin
+    // fix for arrays. I was always using the first item...
+    if (StartFrom>=0) then startidx := StartFrom
+                      else startidx := 0;
+                      
+    for i := startidx to (childrenCount-1) do begin
+      item := Children[i];
+                         
+      if IsOnlyLocalName then begin
+        SplitNodeName(item, ns, locname);
+
+        if (CompareText(locname, aName)=0) then begin // I am ignoring XML case sensitivity here...
+          result := item;
+          Exit;
+        end;
+
+        // Moved down by AleF. This "patch" actually breaks regular webservices
+        // processing. Let's keep it here as an extreme measure for Amazon alike web services
+        {if (ns = '') and SameText(locname, 'return') then begin
+          Result := FindChildNode(item, aName, StartFrom, IsOnlyLocalName);
+          Exit;
+        end;}
+      end
+      else begin
+        if (item.Name=aName) then begin
+          result := item;
+          Exit;
+        end;
+      end
+    end
+  end;
+end;
+
+function FindChildNodeByAttribute(aParent : IXMLNode; const anAttributeName, anAttributeValue : string) : IXMLNode;
+var i : integer;
+    //attr : IXMLNode;
+    item, item2 : IXMLNode;
+    //list : IXMLNodeList;
+begin
+  result := NIL;
+
+  with aParent do
+    for i := 0 to (ChildrenCount-1) do begin
+      item := Children[i];
+      item2 := item.GetNodeByAttribute(anAttributeName, anAttributeValue);
+
+      if (item2<>NIL) then begin
+        result := item;
+        Exit;
+      end;
+    end
+end;
+
+function FindAttribute(aNode : IXMLNode; const aName : string; IsOnlyLocalName : boolean = FALSE) : IXMLNode;
+//var i : integer;
+    //locname, ns : string;
+begin
+  result := NIL;
+  result := aNode.GetAttributeByName(aName);
+
+  {with aNode do
+    for i := 0 to (AttributeCount-1) do begin
+      if IsOnlyLocalName then begin
+        SplitNodeName(attributes.item(i), ns, locname);
+        if (locname=aName) then begin
+          result := attributes.item(i);
+          Exit;
+        end;
+      end
+      else begin
+        if (attributes.item(i).nodeName=aName) then begin
+          result := attributes.item(i);
+          Exit;
+        end;
+      end
+    end}
+end;
+
+function GetXMLTextValue(aNode : IXMLNode) : UnicodeString;
+//var textnode : IXMLNode;
+begin
+  //textnode := aNode.childNodes.item(0);
+  {if Assigned(textnode) and (textnode.hasChildNodes) and (textnode.nodeName='#text')
+    then result := textnode.textContent
+    else result := '';}
+  result := aNode.Value
+end;
+
+function SameText(A, B : string) : boolean;
+begin
+  result := CompareText(a,b)=0
+end;
+
+function TypeInfoNameToSOAPType(aTypeInfo : PTypeInfo) : string;
+begin
+  case aTypeInfo^.Kind of
+    {$IFDEF FPC}tkBool,{$ENDIF}
+    tkEnumeration : begin
+      if (aTypeInfo=TypeInfo(boolean))
+        then result := ns_xsd+':boolean'
+        else result := ns_Custom+':'+{$IFDEF UNICODE}UTF8ToString{$ENDIF}(aTypeInfo^.Name);
+    end;
+    tkInteger  : begin
+      case GetTypeData(aTypeInfo)^.OrdType of
+        otSByte : result := ns_xsd+':byte';
+        otUByte : result := ns_xsd+':unsignedByte';
+        otSWord : result := ns_xsd+':short';
+        otUWord : result := ns_xsd+':unsignedShort';
+        otSLong : result := ns_xsd+':int';
+        otULong : result := ns_xsd+':unsignedInt';
+      end;
+    end;
+    tkInt64    : result := ns_xsd+':long';
+                 // TODO: this wont work for DateTime's inside records or arrays
+    tkFloat    : if (aTypeInfo=TypeInfo(TDateTime)) then result := ns_xsd+':dateTime'
+                 else begin
+                    case GetTypeData(aTypeInfo)^.FloatType of
+                      ftSingle   : result := ns_xsd+':float';
+                      ftDouble   : result := ns_xsd+':double';
+                      ftExtended : result := ns_xsd+':double';
+                      ftComp     : result := ns_xsd+':double';
+                      ftCurr     : result := ns_xsd+':double';
+                    end;
+                 end;
+    tkWString,
+    tkLString,
+    tkString   : result := ns_xsd+':string';
+
+    tkClass    :
+      begin
+        if aTypeInfo = typeinfo(Binary) then
+          result := ns_xsd+':'+dts_base64Binary
+        else
+          result := ns_Custom+':'+{$IFDEF UNICODE}UTF8ToString{$ENDIF}(aTypeInfo^.Name);
+      end;
+    tkVariant:
+      begin
+        if aTypeInfo = typeinfo(TDecimalVariant) then result := ns_xsd+':decimal' else
+          result := ns_xsd+':anyType';
+      end;
+    tkInterface:
+      result := ns_xsd+':any';
+  end;
+
+end;
+
+function VarTypeNameToSOAPType(aVarType : TVarType) : string;
+begin
+  result := '';
+  case aVarType of
+    varBoolean  : result := ns_xsd+':boolean';
+    varInteger  : result := ns_xsd+':int';
+    varWord     : result := ns_xsd+':unsignedShort';
+    varSmallInt : result := ns_xsd+':short';
+    varByte     : result := ns_xsd+':unsignedByte';
+    varShortInt : result := ns_xsd+':byte';
+    varSingle   : result := ns_xsd+':float';
+    varDouble,
+    varCurrency : result := ns_xsd+':double';
+    varDate     : result := ns_xsd+':dateTime';
+    varUString,
+    varOleStr,
+    varString   : result := ns_xsd+':string';
+    varLongWord : result := ns_xsd+':unsignedInt';
+    varInt64    : result := ns_xsd+':long';
+    varEmpty,
+    varNull: result := ns_xsd+':null';
+  else
+    if aVarType = VarFMTBcd then
+      result := ns_xsd +':decimal'
+    else
+      result := ns_Custom+':unknown';
+  end;
+end;
+
+function  Unprefix(const AStr, APrefix: String): String;
+var
+  L: Integer;
+begin
+  L := Length(APrefix);
+  if StrLIComp(PChar(AStr), PChar(APrefix), Min(Length(AStr), L)) = 0 then
+    Result :=Copy(AStr, L + 1, MaxInt)
+  else
+    Result := AStr;
+end;
+
+{ TROXMLSerializer }
+constructor TROXMLSerializer.Create(aStorageRef: pointer);
+begin
+  inherited Create;
+  SetStorageRef(aStorageRef);
+  fPrefixMap := TStringList.Create;
+//  fSerializationOptions := [xsoWriteMultiRefArray, xsoWriteMultiRefObject];
+  fSerializationOptions := [xsoSendUntyped, xsoStrictStructureFieldOrder, xsoDocument, xsoSplitServiceWsdls];
+  fElements := TStack.Create;
+  fAttributes := TStringList.Create;
+end;
+
+{$IFDEF DELPHI5}
+function Supports(const Instance: IUnknown; const Intf: TGUID): Boolean; overload;
+var lDummyInst:IUnknown;
+begin
+  result := Supports(Instance, Intf, lDummyInst);
+end;
+{$ENDIF DELPHI5}
+
+procedure TROXMLSerializer.SetStorageRef(aStorageRef : pointer);
+begin
+  fNode := nil;
+  if Supports(IUnknown(aStorageRef), IXMLNode) then begin
+    //RaiseError('TROXMLSerializer: Not a valid IXMLNode reference',[]);
+    fBodyNode := NIL;
+    fRespNode := NIL;
+    fMaxRef := 0;
+    fNode := IXMLNode(aStorageRef);
+  end;
+  {fNode := aStorageRef;}
+end;
+
+procedure TROXMLSerializer.EndReadObject(const aName: string;
+  aClass : TClass; var anObject: TObject; const LevelRef : IUnknown);
+begin
+  fNode := IXMLNode(pointer(LevelRef));   
+end;
+
+procedure TROXMLSerializer.EndWriteObject(const aName: string;
+  aClass : TClass; anObject: TObject; const LevelRef : IUnknown);
+begin
+  fNode := IXMLNode(pointer(LevelRef));
+end;
+
+procedure TROXMLSerializer.ReadDateTime(const aName: string; var Ref; ArrayElementId : integer = -1);
+var subnode : IXMLNode;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  TDateTime(Ref) := 0;
+  if (subnode<>NIL)
+    then if  (GetXMLTextValue(subnode)<>'') then
+      TDateTime(Ref) := SOAPDateTimeToDateTime(GetXMLTextValue(subnode));
+    //else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.ReadEnumerated(const aName: string;
+  anEnumTypeInfo: PTypeInfo; var Ref; ArrayElementId : integer = -1);
+var subnode : IXMLNode;
+    s: string;
+    lTypeName : shortstring;
+    lIndexInEnum: Integer;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  if (subnode<>NIL)
+    then begin
+      s := GetXMLTextValue(subnode);
+      if not (anEnumTypeInfo = typeinfo(Boolean)) then s := FindROEnumValue( {$IFDEF UNICODE}AnsiStringToWideString({$ENDIF}anEnumTypeInfo^.Name {$IFDEF UNICODE}){$ENDIF} , s);
+      lIndexInEnum  := ROGetEnumValue(anEnumTypeInfo, s);
+      if lIndexInEnum = -1 then begin
+        lIndexInEnum  := ROGetEnumValue(anEnumTypeInfo, {$IFDEF UNICODE}UTF8ToString{$ENDIF}(anEnumTypeInfo.Name)+'_'+s);
+        if lIndexInEnum = -1 then begin
+          lTypeName := anEnumTypeInfo^.Name;
+          if anEnumTypeInfo = typeinfo(Boolean) then begin
+            if s = '1' then begin
+              IntegerToEnumerated(1,anEnumTypeInfo,Ref);
+              exit;
+            end
+            else if s = '0' then begin
+              IntegerToEnumerated(0,anEnumTypeInfo,Ref);
+              exit;
+            end;
+          end;
+          RaiseError(Format('The value "-1" for parameter "%s" of "%s" type is invalid', [aName, lTypeName]));
+        end;
+      end;
+      IntegerToEnumerated(lIndexInEnum,anEnumTypeInfo,Ref);
+    end else begin
+      IntegerToEnumerated(0,anEnumTypeInfo,Ref);
+    end;
+    //else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.ReadDouble(const aName: string;
+  aFloatType: TFloatType; var Ref; ArrayElementId : integer = -1);
+var
+  subnode : IXMLNode;
+  text: string;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  if (subnode<>NIL) then begin
+    text := GetXMLTextValue(subnode);
+
+    {$IFNDEF DELPHI7UP}
+      if DecimalSeparator <> '.' then
+        ReplaceChar(text, ['.'], DecimalSeparator);
+    {$ENDIF}
+
+    case aFloatType of
+      ftSingle : single(Ref) := SOAPStrToFloat(text);
+      ftDouble : double(Ref) := SOAPStrToFloat(text);
+      ftExtended : extended(Ref) := SOAPStrToFloat(text);
+      ftComp : comp(Ref) := {$IFDEF FPC}
+                              {$IFDEF cpu64}StrToInt64(text){$ELSE}StrToInt(text){$ENDIF}
+                            {$ELSE}
+                               SOAPStrToFloat(text)
+                            {$ENDIF};
+      ftCurr : currency(Ref) := SOAPStrToFloat(text);
+    end;
+  end else begin
+    case aFloatType of
+      ftSingle : single(Ref) := 0;
+      ftDouble : double(Ref) := 0;
+      ftExtended : extended(Ref) := 0;
+      ftComp : comp(Ref) := 0;
+      ftCurr : currency(Ref) := 0;
+    end;
+  end;
+  //else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.ReadInt64(const aName: string; var Ref; ArrayElementId : integer = -1);
+var subnode : IXMLNode;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  if (subnode<>NIL)
+    then int64(Ref) := StrToInt64(GetXMLTextValue(subnode))
+    else int64(Ref) := int64(0);
+    //else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.ReadInteger(const aName: string;
+  anOrdType: TOrdType; var Ref; ArrayElementId : integer = -1);
+var subnode : IXMLNode;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+  subnode := FindSoapReference(subnode);
+
+  if (subnode<>NIL) then
+    case anOrdType of
+      otSByte,
+      otUByte : byte(Ref) := StrToInt(GetXMLTextValue(subnode));
+      otSWord,
+      otUWord : word(Ref) := StrToInt(GetXMLTextValue(subnode));
+      otSLong,
+      otULong : integer(Ref) := StrToInt(GetXMLTextValue(subnode));
+    end
+  else
+    case anOrdType of
+      otSByte,
+      otUByte : byte(Ref) := 0;
+      otSWord,
+      otUWord : word(Ref) := 0;
+      otSLong,
+      otULong : integer(Ref) := 0;
+    end
+  //else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.ReadUnicodeString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var subnode : IXMLNode;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  if (subnode<>NIL) then
+    UnicodeString(Ref) := GetXMLTextValue(subnode)
+  else
+    UnicodeString(Ref) := '';
+    //else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.ReadUTF8String(const aName: string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+var subnode : IXMLNode;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  if (subnode<>NIL) then
+    Utf8string(Ref) := UTF8Encode(GetXMLTextValue(subnode))
+  else
+    Utf8string(Ref) := '';
+    //else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.ReadWideString(const aName: string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1);
+var subnode : IXMLNode;
+begin
+  if fAttributes.IndexOf(aName) = -1 then
+  begin
+    subnode := GetObject(aName, ArrayElementId);
+
+    subnode := FindSoapReference(subnode);
+
+    if (subnode<>NIL) then
+      widestring(Ref) := GetXMLTextValue(subnode)
+    else
+      widestring(Ref) := '';
+    //else RaiseError(err_ParameterNotFound, [aName]);
+  end else ReadAttribute(aName, Ref);
+end;
+
+procedure TROXMLSerializer.WriteDateTime(const aName: string; const Ref; ArrayElementId : integer = -1);
+var newnode : IXMLNode;
+begin
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if not (xsoSendUntyped in SerializationOptions) then
+    AddXMLAttribute(newnode, 'xsi:type', 'xsd:dateTime', False);
+  AddXMLTextValue(newnode, DateTimeToSOAPDateTime(TDateTime(Ref)));
+end;
+
+procedure TROXMLSerializer.WriteEnumerated(const aName: string;
+  anEnumTypeInfo: PTypeInfo; const Ref; ArrayElementId : integer = -1);
+var newnode : IXMLNode;
+    isbool : boolean;
+    val : string;
+    lEnumName: String;
+begin
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  isbool := (anEnumTypeInfo.Name='Boolean');
+
+  lEnumName := {$IFDEF UNICODE}UTF8ToString{$ENDIF}(anEnumTypeInfo^.Name);
+  if not (xsoSendUntyped in SerializationOptions) then begin
+    if isbool
+      then AddXMLAttribute(newnode, 'xsi:type', 'xsd:boolean', False)
+      else AddXMLAttribute(newnode, 'xsi:type', ns_Custom+':'+lEnumName, False);
+  end;
+  val := ROGetEnumName(anEnumTypeInfo, EnumeratedToInteger(anEnumTypeInfo,Ref));
+  if (Length(val) >= Length(lEnumName) + 2) and
+     (Copy(val, 1, Length(lEnumName) + 1) = lEnumName + '_') then begin
+    val := Copy(val, Length(lEnumName) + 2, MaxInt);
+  end;
+  if isbool then val := LowerCase(val)
+  else val := FindSOAPEnumValue(lEnumName, val);
+
+  AddXMLTextValue(newnode, val); // TODO: check enums bigger than a byte!
+end;
+
+procedure TROXMLSerializer.WriteDouble(const aName: string;
+  aFloatType: TFloatType; const Ref; ArrayElementId : integer = -1);
+var src : pointer;
+    text, dtype : string;
+    newnode : IXMLNode;
+begin
+  src := @Ref;
+  case aFloatType of
+    ftSingle   : begin
+      text := FloatToStr(single(src^){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+      dtype := 'float';
+    end;
+    ftDouble   : begin
+      text := FloatToStr(double(src^){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+      dtype := 'double';
+    end;
+    ftExtended : begin
+      text := FloatToStr(extended(src^){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+      dtype := 'double';
+    end;
+    ftComp     : begin
+      text := FloatToStr(comp(src^){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+      dtype := 'double';
+    end;
+    ftCurr     : begin
+      text := FloatToStr(currency(src^){$IFDEF DELPHI7UP},SOAPFormatSettings{$ENDIF});
+      {$IFNDEF DELPHI7UP}text := StringReplace(text, DecimalSeparator, '.', []);{$ENDIF}
+      dtype := 'double';
+    end;
+  end;
+
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if not (xsoSendUntyped in SerializationOptions) then
+    AddXMLAttribute(newnode, 'xsi:type', 'xsd:'+dtype, False);
+  AddXMLTextValue(newnode, text);
+end;
+
+procedure TROXMLSerializer.WriteInt64(const aName: string; const Ref; ArrayElementId : integer = -1);
+var src : pointer;
+    text : string;
+    newnode : IXMLNode;
+begin
+  src := @Ref;
+  text := IntToStr(int64(src^));
+
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if not (xsoSendUntyped in SerializationOptions) then
+    AddXMLAttribute(newnode, 'xsi:type', 'xsd:long', False);
+  AddXMLTextValue(newnode, text);
+end;
+
+procedure TROXMLSerializer.WriteInteger(const aName: string;
+  anOrdType: TOrdType; const Ref; ArrayElementId : integer = -1);
+var src : pointer;
+    text, dtype : string;
+    newnode : IXMLNode;
+begin
+  src := @Ref;
+  case anOrdType of
+    otSByte : begin
+      text := IntToStr(shortint(src^));
+      dtype := 'byte';
+    end;
+    otUByte : begin
+      text := IntToStr(byte(src^));
+      dtype := 'unsignedByte';
+    end;
+    otSWord : begin
+      text := IntToStr(smallint(src^));
+      dtype := 'short';
+    end;
+    otUWord : begin
+      text := IntToStr(word(src^));
+      dtype := 'unsignedShort';
+    end;
+    otSLong : begin
+      text := IntToStr(integer(src^));
+      dtype := 'int';
+    end;
+    otULong : begin
+      text := IntToStr(integer(src^));
+      dtype := 'unsignedInt';
+    end;
+  end;
+
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if not (xsoSendUntyped in SerializationOptions) then
+    AddXMLAttribute(newnode, 'xsi:type', 'xsd:'+dtype, False);
+  AddXMLTextValue(newnode, text);
+end;
+
+procedure TROXMLSerializer.WriteUnicodeString(const aName: string; const Ref;
+  ArrayElementId: integer);
+var newnode : IXMLNode;
+begin
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if not (xsoSendUntyped in SerializationOptions) then
+    AddXMLAttribute(newnode, 'xsi:type', 'xsd:string', False);
+  AddXMLTextValue(newnode, UnicodeString(Ref));
+end;
+
+procedure TROXMLSerializer.WriteUTF8String(const aName: string; const Ref; ArrayElementId : integer = -1);
+var newnode : IXMLNode;
+begin
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if not (xsoSendUntyped in SerializationOptions) then
+    AddXMLAttribute(newnode, 'xsi:type', 'xsd:string', False);
+  AddXMLTextValue(newnode, UTF8ToString(UTF8String(Ref)));
+end;
+
+procedure TROXMLSerializer.WriteWideString(const aName: string; const Ref; ArrayElementId : integer = -1);
+var newnode : IXMLNode;
+begin
+  if fAttributes.IndexOf(aName) = -1 then
+  begin
+    newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+    if not (xsoSendUntyped in SerializationOptions) then
+      AddXMLAttribute(newnode, 'xsi:type', 'xsd:string', False);
+    AddXMLTextValue(newnode, WideString(Ref));
+  end else WriteAttribute(aName, Ref);
+end;
+
+procedure TROXMLSerializer.BeginReadObject(const aName: string;
+  aClass : TClass; var anObject: TObject; var LevelRef : IUnknown; var IsValidType : boolean; ArrayElementId : integer = -1);
+var cnt : integer;
+    lNilAttr, hrefattr : IXMLNode;
+    id : string;
+    clsnme, namespc, clstype : string;
+    lActualClass : TROComplexTypeClass;
+begin
+  inherited;
+
+  if fRespNode = nil then
+    fRespNode := fNode;
+
+  LevelRef := fNode;
+
+  fnode := GetObject(aName, ArrayElementId);
+
+  fnode := FindSoapReference(fnode);
+
+  if (fNode=NIL) then begin
+    // No such node found
+    anObject := NIL;
+    Exit;
+  end;
+
+  lNilAttr := fNode.GetAttributeByName(tag_Nil);
+  if Assigned(lNilAttr) and (lNilAttr.Value = tag_NilValue) then begin
+    anObject := NIL;
+    Exit;
+  end;
+
+  hrefattr := fNode.GetAttributeByName(tag_HRef);
+  if (hrefattr<>NIL) then begin
+    id := Copy(hrefattr.Value, 2, Length(hrefattr.Value)); // Removes the '#'
+    fNode := FindChildNodeByAttribute(BodyNode, tag_Id, id);
+    if fNode = nil then
+      fNode := FindChildNodeByAttribute(fRespNode, tag_Id, id);
+  end;
+
+  if aClass.InheritsFrom(TStream) then begin
+    anObject := TROBinaryMemoryStream.Create;
+    IsValidType := TRUE;
+  end
+
+  else if aClass.InheritsFrom(EROException) then begin
+    // Does nothing here
+    IsValidType := TRUE;
+  end
+
+  else if IsValidType then begin
+    clstype := VarToStr(fNode.GetAttributeValue('xsi:type', aClass.ClassName));
+    if (clstype = dts_Array) or (clstype = dts_Array2) then begin
+      //For arrays this attribute does't contain actual class name.
+      anObject := TROComplexTypeClass(aClass).Create;
+    end else begin
+      if xsoIgnoreStructureType in fSerializationOptions then begin
+        anObject := TROComplexTypeClass(aClass).Create;
+      end
+      else begin
+        SplitName(clstype, namespc, clsnme);
+        lActualClass := FindROClass(clsnme);
+
+        if not Assigned(lActualClass) then RaiseError(err_UnknownClassInStream,[clsnme]);
+        if not lActualClass.InheritsFrom(aClass) then RaiseError(err_UnexpectedClassInStream,[clsnme,aClass.ClassName]);
+        anObject := lActualClass.Create;
+      end;
+    end;
+
+    if (anObject is TROArray) then begin
+      cnt := fNode.ChildrenCount;
+      TROArray(anObject).Resize(cnt);
+    end;
+  end;
+end;
+
+function GetNamespace(aClass: TClass; aInst: Tobject): string;
+var
+  i: Integer;
+begin
+  if aInst is TROComplexType then aClass := aInst.ClassType;
+  if (aClass <> nil) and (aClass.InheritsFrom(TROComplexType)) or (aClass = TROComplexType) then begin
+    for i := TROComplexTypeClass(aClass).GetAttributeCount -1 downto 0 do begin
+      if TROComplexTypeClass(aClass).GetAttributeName(i) = 'ImportedFromNamespace' then begin
+        result := TROComplexTypeClass(aClass).GetAttributeValue(i);
+        exit;
+      end;
+    end;
+  end;
+  result := '';
+end;
+
+procedure TROXMLSerializer.BeginWriteObject(const aName: string;
+  aClass : TClass; anObject: TObject; var LevelRef : IUnknown; var IsValidType : boolean; out IsAssigned:Boolean; ArrayElementId : integer = -1);
+var id : string;
+    refnode : IXMLNode;
+  //  xsiattr : IXMLNode;
+    lName: String;
+begin
+  lName := Unprefix(aName);
+
+  inherited BeginWriteObject(lName, aClass, anObject, LevelRef, IsValidType, IsAssigned, ArrayElementId);
+
+  if fRespNode = nil then
+    fRespNode := fNode;
+
+  IsAssigned := Assigned(anObject);
+
+  if aClass.InheritsFrom(TStream) then begin
+    LevelRef := fNode;
+    fNode := AddNode(fNode, lName, ArrayElementId <> -1);
+
+    if Assigned(anObject) then begin
+      if not (xsoSendUntyped in SerializationOptions) then
+        {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', 'xsd:'+dts_base64Binary, False);
+      IsValidType := TRUE;
+    end
+    else begin
+      AddXMLAttribute(fNode, tag_Nil, tag_NilValue, False);
+    end;
+  end
+  else if IsValidType then begin // It is then a TROComplexType
+
+    LevelRef := fNode;
+
+    if ((aClass.InheritsFrom(TROArray) and (xsoWriteMultiRefArray in SerializationOptions)) or
+      (not aClass.InheritsFrom(TROArray)) and (xsoWriteMultiRefObject in SerializationOptions)) then begin
+
+      if Assigned(anObject) then begin
+        id := IntToStr(fMaxRef);
+        Inc(fMaxRef);
+
+        {refnode := fNode;
+
+        fNode := AddXMLChildNode(fRespNode, ns_Custom+':'+anObject.ClassName);
+        AddXMLAttribute(fNode, tag_Id, id, False);
+
+        refnode := AddXMLChildNode(refnode, lName);
+        AddXMLAttribute(refnode, tag_href, '#'+id, False);}
+
+        refnode := AddNode(fNode, lName, ArrayElementId <> -1);
+        AddXMLAttribute(refnode, tag_href, '#'+id, False);
+
+        fNode := AddNode(BodyNode, ns_Custom+':'+anObject.ClassName, ArrayElementId <> -1);
+        AddXMLAttribute(fNode, tag_Id, id, False);
+
+        if not (xsoSendUntyped in SerializationOptions) then
+          if (anObject is TROArray) then begin
+            {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', dts_Array, False);
+            //id := ns_Custom+':'+anObject.ClassName+'['+IntToStr(TROArray(anObject).Count)+']';
+            id :=  TypeInfoNameToSOAPType(TROArray(anObject).GetItemType)+'['+IntToStr(TROArray(anObject).Count)+']';
+            AddXMLAttribute(fNode, 'SOAP-ENC:arrayType', id, False);
+          end
+          else {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', ns_Custom+':'+anObject.ClassName, False);
+      end
+      else begin
+        refnode := AddNode(fNode, lName, ArrayElementId <> -1);
+        AddXMLAttribute(refnode, tag_Nil, tag_NilValue, False);
+      end;
+    end
+
+    else begin
+      fNode := AddNode(fNode, lName, ArrayElementId <> -1);
+
+      if not (xsoSendUntyped in SerializationOptions) then begin
+        if (anObject is TROArray) then begin
+          {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', dts_Array, False);
+          //id := ns_Custom+':'+anObject.ClassName+'['+IntToStr(TROArray(anObject).Count)+']';
+          id :=  TypeInfoNameToSOAPType(TROArray(anObject).GetItemType)+'['+IntToStr(TROArray(anObject).Count)+']';
+          AddXMLAttribute(fNode, 'SOAP-ENC:arrayType', id, False);
+        end
+        else {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', ns_Custom+':'+anObject.ClassName, False);
+      end
+    end
+  end;
+
+  //if (fNode<>NIL) and not IsAssigned
+    //then AddXMLAttribute(fNode, 'xsi:nil', 'true', False);
+end;
+
+procedure TROXMLSerializer.CustomReadObject(const aName: string;
+  aClass : TClass; var Ref; ArrayElementId: integer);
+var obj : TObject absolute Ref;
+    ss : TStringStream;
+begin
+  inherited;
+  if Assigned(obj) then begin
+
+    if (obj is TStream) then begin
+      ss := TStringStream.Create(fNode.Value);
+      try
+        DecodeStream(ss, TMemoryStream(obj));
+        TMemoryStream(obj).Position := 0;
+      finally
+        ss.Free;
+      end;
+    end;
+
+  end;
+end;
+
+procedure TROXMLSerializer.CustomWriteObject(const aName: string;
+  aClass : TClass; const Ref; ArrayElementId : integer = -1);
+var obj : TObject absolute Ref;
+    ss : TStringStream;
+begin
+  inherited CustomWriteObject(Unprefix(aName), aClass, Ref, ArrayElementId);
+  if Assigned(obj) then begin
+
+    if (obj is TStream) then begin
+      ss := TStringStream.Create('');
+      try
+        TStream(obj).Position := 0;
+        EncodeStream(TStream(obj), ss);
+        AddXMLTextValue(fNode, ss.DataString);
+      finally
+        ss.Free;
+      end;
+    end;
+
+  end;
+end;
+
+function TROXMLSerializer.BodyNode: IXMLNode;
+begin
+  if (fBodyNode=NIL) then fBodyNode := FindParentNode(fNode, tag_Body, TRUE);
+  result := fBodyNode;
+end;
+
+procedure TROXMLSerializer.ReadVariant(const aName: string; var Ref;
+  ArrayElementId: integer);
+var s,
+    vartypestr,
+    varnamespcstr : string;
+    subnode : IXMLNode;
+
+    lIntegerValue:integer;
+    {$IFNDEF DELPHI5}
+    lShortIntValue:shortint;
+    lSmallIntValue: Smallint;
+    //lInt64Value:Int64;
+    {$ENDIF DELPHI5}
+    lByteValue:byte;
+    lBoolValue: boolean;
+    lDoubleValue:double;
+    lSingleValue:single;
+    //lCurrencyValue:currency;
+    lWordValue : word;
+    lStringValue: widestring;
+    lDateTimeValue : TDateTime;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  if (subnode<>NIL) then begin
+    // Determines the type of the value, if specified. Defaults to string.
+    s := subnode.GetAttributeValue('xsi:empty', '');
+    if s = '1' then begin
+      Variant(ref) := Unassigned;
+      exit;
+    end;
+    s := subnode.GetAttributeValue('xsi:null', '');
+    if s = '1' then begin
+      Variant(ref) := null
+    end
+    else begin
+      s := subnode.GetAttributeValue('xsi:type', 'xsd:string');
+      SplitName(s, varnamespcstr, vartypestr);
+
+      // Returns the right type of variant
+      if SameText(vartypestr, 'string') then begin
+        ReadWideString(aName, lStringValue, ArrayElementId);
+        Variant(Ref) := lStringValue;
+      end
+
+      else if SameText(vartypestr, 'float') then begin
+        ReadDouble(aName, ftSingle, lSingleValue, ArrayElementId);
+        Variant(Ref) := lSingleValue;
+      end
+
+      else if SameText(vartypestr, 'double') then begin
+        ReadDouble(aName, ftDouble, lDoubleValue, ArrayElementId);
+        Variant(Ref) := lDoubleValue;
+      end
+
+      else if SameText(vartypestr, 'byte') then begin
+        ReadInteger(aName, otSByte, lShortIntValue, ArrayElementId);
+        Variant(Ref) := lShortIntValue;
+      end
+
+      else if SameText(vartypestr, 'unsignedByte') then begin
+        ReadInteger(aName, otUByte, lByteValue, ArrayElementId);
+        Variant(Ref) := lByteValue;
+      end
+
+      else if SameText(vartypestr, 'short') then begin
+        ReadInteger(aName, otSWord, lSmallIntValue, ArrayElementId);
+        Variant(Ref) := lSmallIntValue;
+      end
+
+      else if SameText(vartypestr, 'unsignedShort') then begin
+        ReadInteger(aName, otUWord, lWordValue, ArrayElementId);
+        Variant(Ref) := lWordValue;
+      end
+
+      else if (SameText(vartypestr, 'int') or SameText(vartypestr, 'unsignedInt')) then begin
+        ReadInteger(aName, otSLong, lIntegerValue, ArrayElementId);
+        Variant(Ref) := lIntegerValue;
+      end
+
+      else if SameText(vartypestr, 'boolean') then begin
+        ReadEnumerated(aName, TypeInfo(boolean), lBoolValue, ArrayElementId);
+        Variant(Ref) := lBoolValue;
+      end
+
+      else if SameText(vartypestr, 'dateTime') then begin
+        ReadDateTime(aName, lDateTimeValue, ArrayElementId);
+        Variant(Ref) := lDateTimeValue;
+      end
+    end;
+  end
+  else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.WriteVariant(const aName: string; const Ref;
+  ArrayElementId: integer);
+var vtype : integer;
+    varvalue : Variant;
+
+    lIntegerValue:integer;
+    {$IFNDEF DELPHI5}
+    lShortIntValue:shortint;
+    lSmallIntValue: Smallint;
+    lInt64Value:Int64;
+    {$ENDIF DELPHI5}
+    lByteValue:byte;
+    lBoolValue: boolean;
+    lDoubleValue:double;
+    lSingleValue:single;
+    lCurrencyValue:currency;
+    lWideString: widestring;
+    newnode: IXMLNode;
+begin
+  varvalue := Variant(Ref);
+  vtype := VarType(Variant(Ref));
+
+  { Simple types }
+  case vtype of
+    varEmpty:
+      begin
+        newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+        AddXMLAttribute(newnode, 'xsi:empty', '1', False);
+      end;
+    varNull,varError:begin
+      newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+      AddXMLAttribute(newnode, 'xsi:null', '1', False);
+    end;
+    {$IFNDEF DELPHI5}
+    varShortInt:begin { 2, 10, 12 }
+      lShortIntValue := varvalue;
+      WriteInteger(aName, otSByte, lShortIntValue, ArrayElementId);
+    end;
+    varSmallInt,
+    varWord : begin
+      lSmallIntValue := varvalue;
+      WriteInteger(aName, otSWord, lSmallIntValue, ArrayElementId); // Suspicious... This might be wrong
+    end;
+    {$ENDIF DELPHI5}
+    {$IFNDEF DELPHI5}varLongWord,{$ENDIF DELPHI5}
+    varInteger:begin { 3, 13 }
+      lIntegerValue := varvalue;
+      WriteInteger(aName, otSLong, lIntegerValue, ArrayElementId);
+    end;
+    varSingle:begin { 4 }
+      lSingleValue := varvalue;
+      WriteDouble(aName, ftSingle, lSingleValue, ArrayElementId);
+    end;
+    varDouble:begin { 5 }
+      lDoubleValue := varvalue;
+      WriteDouble(aName, ftDouble, lDoubleValue, ArrayElementId);
+    end;
+    varDate:begin { 7 } // This must be handled differently in SOAP!
+      lDoubleValue := varvalue;
+      WriteDateTime(aName, lDoubleValue, ArrayElementId);
+    end;
+    varCurrency:begin { 6 }
+      lCurrencyValue := varvalue;
+      WriteDouble(aName, ftCurr, lCurrencyValue, ArrayElementId);
+    end;
+    varBoolean:begin { B }
+      lBoolValue:= varvalue;
+      WriteEnumerated(aName, TypeInfo(boolean), lBoolValue, ArrayElementId);
+    end;
+    varByte:begin { 11 }
+      lByteValue := varvalue;
+      WriteInteger(aName, otUByte, lByteValue, ArrayElementId);
+    end;
+    {$IFNDEF DELPHI5}
+    varInt64:begin {14h = 20}
+      lInt64Value := varvalue;
+      WriteInt64(aName,lInt64Value,ArrayElementId);
+    end;
+    {$ENDIF DELPHI5}
+    {$IFDEF DELPHI2009UP}
+    varUInt64:begin {15h = 21}
+      lInt64Value := varvalue;
+      WriteInt64(aName,lInt64Value,ArrayElementId);
+    end;
+    {$ENDIF}
+    varOleStr,varString,varUString:begin { 8, 100, 258 }
+      lWideString := varvalue;
+      WriteWideString(aName, lWideString, ArrayElementId);
+    end;
+    else NotSupported(Format(err_UnsupportedVariantType, [VarType(varvalue)]));
+  end;
+end;
+
+function TROXMLSerializer.GetArrayElementName(
+  anItemType: PTypeInfo; anItemReference: pointer): string;
+var tn: string;
+begin
+  case anItemType.Kind of
+    tkClass   : begin
+        if anItemReference = nil then result := UTF8ToString(anItemType^.Name) else result := TObject(anItemReference).ClassName;
+      end;
+    tkVariant :
+      begin
+        tn := VarTypeNameToSOAPType(VarType(Variant(anItemReference^)));
+        result := Copy(tn, Pos(':', tn)+1, MaxInt);
+      end;
+    else begin
+      tn := TypeInfoNameToSOAPType(anItemType);
+      result := Copy(tn, Pos(':', tn)+1, MaxInt);
+    end;
+  end;
+end;
+
+function TROXMLSerializer.GetRecordStrictOrder: Boolean;
+begin
+  Result := xsoStrictStructureFieldOrder in fSerializationOptions;
+end;
+
+function TROXMLSerializer.FindSoapReference(subnode: IXMLNode): IXMLNode;
+var
+  hrefattr: IXMLNode;
+  id: string;
+begin
+  result := subnode;
+  if subnode = nil then
+    exit;
+  hrefattr := subnode.GetAttributeByName(tag_HRef);
+  if (hrefattr<>NIL) then begin
+    id := Copy(hrefattr.Value, 2, Length(hrefattr.Value)); // Removes the '#'
+    while subnode <> nil do begin
+      result := FindChildNodeByAttribute(subnode, tag_Id, id);
+      if result <> nil then break;
+      subnode := subnode.Parent;
+    end;
+  end;
+end;
+
+function TROXMLSerializer.GetObject(const aName: string; ArrayElementId : integer): IXMLNode;
+var
+  lName: string;
+  lElements: TList;
+begin
+  if fOverrideNextName <> '' then begin
+    lName := fOverrideNextName;
+  end else
+    lName := aName;
+  if (ArrayElementId>=0) then begin
+    lElements := fElements.Peek;
+    result := fNode.Children[Integer(lElements[ArrayElementId])];
+  end
+  else result := FindChildNode(fNode, Unprefix(lName), ArrayElementId,TRUE);
+end;
+
+procedure TROXMLSerializer.ReadXml(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  w: WideString;
+  doc: IXMLDocument;
+  node: IXMLNode;
+begin
+  node := GetObject(aName, ArrayElementID);
+  if (xsoEncodedXML in SerializationOptions) or (node = nil) or (node.FirstChild = nil) or (Node.FirstChild.name = tag_text) then begin
+    ReadWideString(aName, w, ArrayElementId);
+    if w = '' then
+      IXMLNode(Ref) := nil
+    else begin
+      doc := NewROXmlDocument;
+      doc.New;
+      doc.XML := w;
+      IXMLNode(Ref) := doc.DocumentNode;
+    end;
+  end else begin
+    if node = nil then IXMLNode(Ref) := nil else begin
+      node := Node.FirstChild;
+      if node = nil then begin
+        IXMLNode(Ref) := nil;
+      end else begin
+        doc := NewROXmlDocument;
+        doc.New;
+        doc.XML := node.XML;
+        IXMLNode(Ref) := doc.DocumentNode;
+      end;
+    end;
+  end;
+end;
+
+procedure TROXMLSerializer.WriteXml(const aName: String; const Ref;
+  ArrayElementId: Integer);
+var
+  w: WideString;
+  newnode: IXMLNode;
+begin
+  if (xsoEncodedXML in SerializationOptions) then begin
+    if IXMLNode(Ref) = nil then
+      w := ''
+    else
+      w := IXMLNode(Ref).XML;
+    WriteWideString(aName, w, ArrayElementId);
+  end else begin
+    newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+    if IXMLNode(Ref) <> nil then begin
+      newnode.AddXml(IXMLNode(Ref).XML);
+    end;
+  end;
+end;
+
+procedure TROXMLSerializer.ReadDecimal(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+  us: UTF8String;
+begin
+   ReadUTF8String(aName, us, ArrayElementId);
+   s := {$IFDEF DELPHI2009UP}UTF8ToString{$ENDIF}(us);
+   if DecimalSeparator <> '.' then s := StringReplace(s, '.', DecimalSeparator, []);
+   Variant(Ref) := BCDToVariant(StrToBcd(s));
+end;
+
+procedure TROXMLSerializer.ReadGuid(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+begin
+  ReadUTF8String(aName, s, ArrayElementId);
+  if Copy(s,1,1) <> '{' then s := '{'+s+'}';
+  string(Ref) := s;
+end;
+
+procedure TROXMLSerializer.WriteDecimal(const aName: String; const Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+begin
+  s := BcdToStr(VariantToBCD(variant(Ref)));
+  if DecimalSeparator <> '.' then s := StringReplace(s, DecimalSeparator, '.', []); // delphi has no way to format a bcd with a specific format
+  WriteUTF8String(aName, s, ArrayElementId);
+end;
+
+procedure TROXMLSerializer.WriteGuid(const aName: String; const Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+begin
+  s := GuidToString(StringToGUID(string(Ref)));
+  s := copy(s,2,length(s) -2); // remove curlies
+  WriteUTF8String(aName, s, ArrayElementId);
+end;
+
+procedure TROXMLSerializer.ReadBinary(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  obj : Binary absolute Ref;
+  ss : TStringStream;
+  LevelRef: IXMLNode;
+begin
+  LevelRef := fNode;
+  try
+    if FindNode(aName, ArrayElementId) then begin
+      obj:= Binary.Create;
+      ss := TStringStream.Create(fNode.Value);
+      try
+        obj.Clear;
+        DecodeStream(ss, TMemoryStream(obj));
+        TMemoryStream(obj).Position := 0;
+      finally
+        ss.Free;
+      end;
+    end
+    else
+      Obj := nil;
+  finally
+    fNode := LevelRef;
+  end;
+end;
+
+procedure TROXMLSerializer.WriteBinary(const aName: string; const Ref;
+  ArrayElementId: integer);
+var
+  obj : Binary absolute Ref;
+  ss : TStringStream;
+  LevelRef: IXMLNode;
+begin
+  LevelRef := fNode;
+//BeginWriteObject
+{ TODO -oek : BeginWriteObject }
+  if (obj = nil) and (xsoSendUntyped in SerializationOptions) then exit;
+  fNode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if Assigned(obj) then begin
+    if not (xsoSendUntyped in SerializationOptions) then  AddXMLAttribute(fNode, 'xsi:type', 'xsd:'+dts_base64Binary, False);
+    ss := TStringStream.Create('');
+    try
+      obj.Position := 0;
+      EncodeStream(obj, ss);
+      AddXMLTextValue(fNode, ss.DataString);
+    finally
+      ss.Free;
+    end;
+  end
+  else
+    AddXMLAttribute(fNode, tag_Nil, tag_NilValue, False);
+  fNode := LevelRef;
+end;
+
+procedure TROXMLSerializer.WriteArray(const aName: string; const Ref; aClass: TClass;
+  ArrayElementId: integer);
+var
+  obj : TROArray absolute Ref;
+  LevelRef: IXmlNode;
+  id : string;
+  lAnon, lDummy: Boolean;
+  refnode : IXMLNode;
+  //xsiattr : IXMLNode;
+  lSaveName, lName: String;
+begin
+  IsAnonymous(TROComplexTypeClass(aClass), lAnon, lDummy);
+  LevelRef := fNode;
+  try
+    lName := Unprefix(aName);
+    if fRespNode = nil then fRespNode := fNode;
+    LevelRef := fNode;
+    lSaveName := fArrayElementName;
+    if lAnon then begin
+      fArrayElementName := '';
+    end else begin
+      if (xsoWriteMultiRefArray in SerializationOptions) then begin
+        if Assigned(obj) then begin
+          id := IntToStr(fMaxRef);
+          Inc(fMaxRef);
+
+          refnode := AddNode(fNode, lName, ArrayElementId <> -1);
+          AddXMLAttribute(refnode, tag_href, '#'+id, False);
+
+          fNode := AddNode(BodyNode, ns_Custom+':'+obj.ClassName, ArrayElementId <> -1);
+          AddXMLAttribute(fNode, tag_Id, id, False);
+
+          if not (xsoSendUntyped in SerializationOptions) then begin
+            {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', dts_Array, False);
+            id :=  TypeInfoNameToSOAPType(obj.GetItemType)+'['+IntToStr(obj.Count)+']';
+            AddXMLAttribute(fNode, 'SOAP-ENC:arrayType', id, False);
+          end;
+        end
+        else begin
+          refnode := AddNode(fNode, lName, ArrayElementId <> -1);
+          AddXMLAttribute(refnode, tag_Nil, tag_NilValue, False);
+        end;
+      end
+      else begin
+        fNode := AddNode(fNode, lName, ArrayElementId <> -1);
+        if not (xsoSendUntyped in SerializationOptions) then begin
+          {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', dts_Array, False);
+          id :=  TypeInfoNameToSOAPType(obj.GetItemType)+'['+IntToStr(obj.Count)+']';
+          AddXMLAttribute(fNode, 'SOAP-ENC:arrayType', id, False);
+        end
+      end;
+      fArrayElementName := '';
+    end;
+    if Assigned(Obj) then begin
+      Obj.WriteComplex(Self);
+    end;
+    fArrayElementName := lSaveName;
+  finally
+    fNode := IXMLNode(LevelRef);
+  end;
+end;
+
+procedure TROXMLSerializer.WriteStruct(const aName: string; const Ref; aClass: TClass;
+  ArrayElementId: integer);
+var
+  obj : TROComplexType absolute Ref;
+  LevelRef: IXmlNode;
+  id : string;
+  lAnon, lNil: Boolean;
+  refnode : IXMLNode;
+  //xsiattr : IXMLNode;
+  lSaveNs, lName: String;
+  i: integer;
+  lAtributes: string;
+begin
+  LevelRef:=fNode;
+  if (aclass = XsDateTime) and (XsDateTime(Obj) <> nil) then begin
+    WriteXsDateTime(aName, XsDateTime(Obj), ArrayElementId);
+    exit;
+  end;
+  try
+    IsAnonymous(TROComplexTypeClass(aClass), lAnon, lNil);
+    lName := '';
+    lAtributes := fAttributes.CommaText;
+    for i := TROComplexTypeClass(aClass).GetAttributeCount -1 downto 0 do begin
+      if TROComplexTypeClass(aClass).GetAttributeName(i) = 'SOAPName' then
+        lName := TROComplexTypeClass(aClass).GetAttributeValue(i);
+      if TROComplexTypeClass(aClass).GetAttributeName(i) = 'AttributesNames' then
+        fAttributes.CommaText := TROComplexTypeClass(aClass).GetAttributeValue(i);
+    end;
+    if lName = '' then lName := Unprefix(aName);
+    if fRespNode = nil then fRespNode := fNode;
+    LevelRef := fNode;
+    if (xsoWriteMultiRefObject in SerializationOptions)  then begin
+      if Assigned(obj) then begin
+        id := IntToStr(fMaxRef);
+        Inc(fMaxRef);
+        refnode := AddNode(fNode, lName, ArrayElementId <> -1);
+        AddXMLAttribute(refnode, tag_href, '#'+id, False);
+        fNode := AddNode(BodyNode, ns_Custom+':'+obj.ClassName, ArrayElementId <> -1);
+        AddXMLAttribute(fNode, tag_Id, id, False);
+        if not (xsoSendUntyped in SerializationOptions) then
+          {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', ns_Custom+':'+obj.ClassName, False);
+      end
+      else begin
+        if lNil then begin
+          refnode := AddNode(fNode, lName, ArrayElementId <> -1);
+          AddXMLAttribute(refnode, tag_Nil, tag_NilValue, False);
+        end;
+      end;
+    end
+    else begin
+      if Assigned(obj) then begin
+        if not lAnon then begin
+          fNode := AddNode(fNode, lName, ArrayElementId <> -1);
+          if not (xsoSendUntyped in SerializationOptions) then
+            {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', ns_Custom+':'+obj.ClassName, False);
+        end else
+          //fOverrideNextName := lName;
+      end else begin
+        if lNil then begin
+          if not (xsoSendUntyped in SerializationOptions) then
+            {xsiattr :=} AddXMLAttribute(fNode, 'xsi:type', ns_Custom+':'+obj.ClassName, False);
+          refnode := AddNode(fNode, lName, ArrayElementId <> -1);
+          AddXMLAttribute(refnode, tag_Nil, tag_NilValue, False);
+        end;
+      end;
+    end;
+    lSaveNs := CurrentNamespace;
+    if (obj <> nil) and (xsoExternalTypesAsReferences in SerializationOptions) then
+      CurrentNamespace := GetNamespace(TObject(Obj).ClassType, TObject(obj));
+    if Assigned(Obj) then begin
+      Obj.WriteComplex(Self);
+    end;
+    CurrentNamespace := lSaveNs;
+    if fOverrideNextName = lName then
+      fOverrideNextName := '';
+    fAttributes.CommaText := lAtributes;
+  finally
+    fNode := LevelRef;
+  end;
+end;
+
+function TROXMLSerializer.ReadArray(const aName: string; aClass: TClass;
+  var Ref; ArrayElementId: integer): Boolean;
+var
+  obj : TROArray absolute Ref;
+  LevelRef: IXmlNode;
+  i, cnt : integer;
+  lNilAttr, hrefattr : IXMLNode;
+  id : string;
+  clsnme, namespc, clstype : string;
+  lActualClass : TROArrayClass;
+  lAnon, lDummy: Boolean;
+  lElements: TList;
+begin
+  IsAnonymous(TROComplexTypeClass(aclass), lAnon, lDummy);
+  Result := False;
+  LevelRef := fNode;
+  lElements := TList.Create;
+  fElements.Push(lElements);
+  try
+    clsnme := fArrayElementName;
+    if lAnon then begin
+      obj := TROArrayClass(aClass).Create;
+      if fOverrideNextName <> '' then fArrayElementName := fOverrideNextName else fArrayElementName := aName;
+      cnt := 0;
+      for i := 0 to fNode.ChildrenCount - 1 do begin
+        if fNode.Children[i].LocalName = fArrayElementName then inc(cnt);
+      end;
+
+    end else begin
+      if fRespNode = nil then fRespNode := fNode;
+      fnode := GetObject(aName, ArrayElementId);
+      fnode := FindSoapReference(fnode);
+      if (fNode=NIL) then begin
+        // No such node found
+        Obj := NIL;
+        Exit;
+      end;
+
+      lNilAttr := fNode.GetAttributeByName(tag_Nil);
+      if Assigned(lNilAttr) and (lNilAttr.Value = tag_NilValue) then begin
+        obj := NIL;
+        Exit;
+      end;
+
+      hrefattr := fNode.GetAttributeByName(tag_HRef);
+      if (hrefattr<>NIL) then begin
+        id := Copy(hrefattr.Value, 2, Length(hrefattr.Value)); // Removes the '#'
+        fNode := FindChildNodeByAttribute(BodyNode, tag_Id, id);
+        if fNode = nil then fNode := FindChildNodeByAttribute(fRespNode, tag_Id, id);
+      end;
+
+      clstype := VarToStr(fNode.GetAttributeValue('xsi:type', aClass.ClassName));
+      if (clstype = dts_Array) or (clstype = dts_Array2) then begin
+        //For arrays this attribute does't contain actual class name.
+        obj := TROArrayClass(aClass).Create;
+      end else begin
+        if xsoIgnoreStructureType in fSerializationOptions then begin
+          obj := TROArrayClass(aClass).Create;
+        end
+        else begin
+          SplitName(clstype, namespc, clsnme);
+          lActualClass := TROArrayClass(FindROClass(clsnme));
+
+          if not Assigned(lActualClass) then RaiseError(err_UnknownClassInStream,[clsnme]);
+          if not lActualClass.InheritsFrom(aClass) then RaiseError(err_UnexpectedClassInStream,[clsnme,aClass.ClassName]);
+          Obj := lActualClass.Create;
+        end;
+      end;
+      cnt := 0;
+      for i := 0 to fNode.ChildrenCount - 1 do begin
+        if (fNode.Children[i].LocalName <> tag_text) and (fNode.Children[i].Name <> tag_text) then inc(cnt);
+      end;
+      clsnme := fArrayElementName;
+      fArrayElementName := '';
+    end;
+    Obj.Resize(cnt);
+    fOverrideNextName := '';
+
+    if fArrayElementName <> '' then begin
+      for i := 0 to fNode.ChildrenCount -1 do begin
+        if fNode.Children[i].LocalName = fArrayElementName then begin
+          lElements.Add(Pointer(i));
+        end;
+      end;
+    end else begin
+      for i := 0 to fNode.ChildrenCount -1 do begin
+        if (fNode.Children[i].LocalName <> tag_text) and (fNode.Children[i].Name <> tag_text)  then begin
+          lElements.Add(Pointer(i));
+        end;
+      end;
+    end;
+
+    obj.ReadComplex(Self);
+    fArrayElementName := clsnme;
+  finally
+    fNode := LevelRef;
+    fElements.Pop;
+    lElements.Destroy;
+  end;
+end;
+
+function TROXMLSerializer.ReadStruct(const aName: string; aClass: TClass;
+  var Ref; ArrayElementId: integer): Boolean;
+var
+  obj : TROComplexType absolute Ref;
+  LevelRef: IXmlNode;
+  lNilAttr, hrefattr : IXMLNode;
+  id : string;
+  lAnon, lNil: Boolean;
+  clsnme, namespc, clstype : string;
+  lActualClass : TROComplexTypeClass;
+  i: integer;
+  lAtributes: string;
+begin
+  Result:=False;
+  lAtributes := fAttributes.CommaText;
+  for i := TROComplexTypeClass(aClass).GetAttributeCount -1 downto 0 do begin
+    if TROComplexTypeClass(aClass).GetAttributeName(i) = 'AttributesNames' then begin
+      fAttributes.CommaText := TROComplexTypeClass(aClass).GetAttributeValue(i);
+      break;
+    end;
+  end;
+  if aClass = XsDateTime then begin
+    XsDateTime(ref) := ReadXsDateTime(aName, ArrayElementId);
+    exit;
+  end;
+  LevelRef:=fNode;
+  try
+    if fRespNode = nil then fRespNode := fNode;
+
+    IsAnonymous(TROComplexTypeClass(aClass), lAnon, lNil);
+    if lAnon then begin
+      fNode := LevelRef; // We support both so lNil can be ignored;
+      //fOverrideNextName := aName;
+    end else
+    begin
+      fOverrideNextName := '';
+
+    fnode := GetObject(aName, ArrayElementId);
+    fnode := FindSoapReference(fnode);
+    end;
+    if (fNode=NIL) then begin
+      // No such node found
+      obj := NIL;
+      Exit;
+    end;
+
+    lNilAttr := fNode.GetAttributeByName(tag_Nil);
+    if Assigned(lNilAttr) and (lNilAttr.Value = tag_NilValue) then begin
+      obj := NIL;
+      Exit;
+    end;
+
+    hrefattr := fNode.GetAttributeByName(tag_HRef);
+    if (hrefattr<>NIL) then begin
+      id := Copy(hrefattr.Value, 2, Length(hrefattr.Value)); // Removes the '#'
+      fNode := FindChildNodeByAttribute(BodyNode, tag_Id, id);
+      if fNode = nil then
+        fNode := FindChildNodeByAttribute(fRespNode, tag_Id, id);
+    end;
+
+    clstype := VarToStr(fNode.GetAttributeValue('xsi:type', aClass.ClassName));
+    if (clstype = dts_Array) or (clstype = dts_Array2) then begin
+      //For arrays this attribute does't contain actual class name.
+      obj := TROComplexTypeClass(aClass).Create;
+    end else begin
+      if xsoIgnoreStructureType in fSerializationOptions then begin
+        obj := TROComplexTypeClass(aClass).Create;
+      end
+      else begin
+        SplitName(clstype, namespc, clsnme);
+        lActualClass := FindROClass(clsnme);
+
+        if not Assigned(lActualClass) then RaiseError(err_UnknownClassInStream,[clsnme]);
+        if not lActualClass.InheritsFrom(aClass) then RaiseError(err_UnexpectedClassInStream,[clsnme,aClass.ClassName]);
+        obj := lActualClass.Create;
+      end;
+    end;
+
+    Obj.ReadComplex(Self);
+    if lAnon then
+      fOverrideNextName := '';
+    fAttributes.CommaText := lAtributes;
+  finally
+    fNode := LevelRef;
+  end;
+end;
+
+function TROXMLSerializer.FindNode(const aName: string;
+  ArrayElementId: integer): Boolean;
+var
+  lNilAttr, hrefattr : IXMLNode;
+  id : string;
+begin
+  Result:=False;
+  if fRespNode = nil then fRespNode := fNode;
+  fnode := FindSoapReference(GetObject(aName, ArrayElementId));
+
+  if (fNode=NIL) then exit; // No such node found
+
+  lNilAttr := fNode.GetAttributeByName(tag_Nil);
+  if Assigned(lNilAttr) and (lNilAttr.Value = tag_NilValue) then Exit;
+
+  Result := True;
+  hrefattr := fNode.GetAttributeByName(tag_HRef);
+  if (hrefattr<>NIL) then begin
+    id := Copy(hrefattr.Value, 2, Length(hrefattr.Value)); // Removes the '#'
+    fNode := FindChildNodeByAttribute(BodyNode, tag_Id, id);
+    if fNode = nil then fNode := FindChildNodeByAttribute(fRespNode, tag_Id, id);
+  end;
+end;
+
+procedure TROXMLSerializer.ReadException(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  obj: EROException absolute Ref;
+  LevelRef,
+  lNilAttr, hrefattr : IXMLNode;
+  id : string;
+begin
+  if fRespNode = nil then fRespNode := fNode;
+
+  LevelRef := fNode;
+  try
+    if ExceptionIsAnonymous(obj) then begin
+      Obj.ReadException(Self);
+    end else begin
+      fnode := GetObject(aName, ArrayElementId);
+
+      fnode := FindSoapReference(fnode);
+
+      if (fNode=NIL) then begin
+        // No such node found
+        obj := NIL;
+        Exit;
+      end;
+
+      lNilAttr := fNode.GetAttributeByName(tag_Nil);
+      if Assigned(lNilAttr) and (lNilAttr.Value = tag_NilValue) then begin
+        obj := NIL;
+        Exit;
+      end;
+
+      hrefattr := fNode.GetAttributeByName(tag_HRef);
+      if (hrefattr<>NIL) then begin
+        id := Copy(hrefattr.Value, 2, Length(hrefattr.Value)); // Removes the '#'
+        fNode := FindChildNodeByAttribute(BodyNode, tag_Id, id);
+        if fNode = nil then fNode := FindChildNodeByAttribute(fRespNode, tag_Id, id);
+      end;
+      Obj.ReadException(Self);
+    end;
+  finally
+    fNode := LevelRef;
+  end;
+end;
+
+procedure TROXMLSerializer.WriteException(const aName: string; const Ref;
+  ArrayElementId: integer);
+var
+  obj: EROException absolute Ref;
+  LevelRef: IXMLNode;
+  lName, lOrgNs, lNamespace: string;
+  lAnon: Boolean;
+  i: Integer;
+begin
+  if fRespNode = nil then fRespNode := fNode;
+  LevelRef := fNode;
+  try
+    lAnon := false;
+    lNamespace := '';
+    lName := aName;
+    if Obj <> nil then begin
+      for i := 0 to obj.GetAttributeCount -1 do begin
+        if obj.GetAttributeName(i) = 'ElementName' then
+          lName := obj.GetAttributeValue(i)
+        else if obj.GetAttributeName(i) = 'ElementNamespace' then
+          lNamespace := obj.GetAttributeValue(i)
+        else if obj.GetAttributeName(i) = 'Anonymous' then
+         lAnon := true;
+      end;
+    end;
+    lOrgNs := CurrentNamespace;
+    if lNamespace <> '' then begin
+      CurrentNamespace := lNamespace;
+    end;
+    if not lAnon then begin
+      fNode := AddNode(fNode, Unprefix(lName), ArrayElementId <> -1);
+      if not (xsoSendUntyped in SerializationOptions) then
+        AddXMLAttribute(fNode, 'xsi:type', ns_Custom+':'+obj.ClassName, False);
+    end;
+    if Assigned(obj) then Obj.WriteException(Self);
+    if lOrgns <> '' then
+      CurrentNamespace := lOrgns;
+  finally
+    fNode := LevelRef;
+  end;
+end;
+
+function TROXMLSerializer.AddNode(aCurrent: IXmlNode; const aName: string; aIsArray: Boolean): IXMLNode;
+var
+  lName: string;
+begin
+  if (aIsArray) and (fArrayElementName <> '') then begin
+    lName := fArrayElementName
+  end else
+  if fOverrideNextName <> '' then begin
+    lName := fOverrideNextName;
+    fOverrideNextName := '';
+  end else
+    lName := aName;
+
+  if Prefix <> '' then
+    result := aCurrent.Add(Prefix+':'+lName, fCurrentNamespace)
+  else
+    result := aCurrent.Add(lName, fCurrentNamespace);
+end;
+
+destructor TROXMLSerializer.Destroy;
+begin
+  fPrefixMap.Free;
+  fElements.Destroy;
+  fAttributes.Destroy;
+  inherited;
+end;
+
+procedure TROXMLSerializer.SetCurrentNamespace(const Value: string);
+var
+  i: Integer;
+  lPar: IXMLNode;
+begin
+  if (Value = '') then exit;
+  fCurrentNamespace := Value;
+  if (Value = XMLEmptyNS) then
+  begin
+    fPrefix := '';
+    exit;
+  end;
+  i := fPrefixMap.IndexOf(Value);
+  if i = -1 then begin
+    i := fPrefixMap.Add(Value);
+    if fNode <> nil then begin
+      lPar := fnode.Document.DocumentNode;
+      if lPar <> nil then begin
+        lPar.AddAttribute('xmlns:'+'v'+IntToStr(i+1), Value, False);
+      end;
+    end;
+  end;
+  fPrefix := 'v'+IntToStr(i+1);
+end;
+
+procedure TROXMLSerializer.ChangeClass(aClass: TClass);
+var
+  i: Integer;
+begin
+  if aClass.InheritsFrom(EROException) then begin
+    for i := 0 to EROExceptionClass(aclass).GetAttributeCount -1 do begin
+      if EROExceptionClass(aclass).GetAttributeName(i) = 'ElementNamespace' then begin
+        SetCurrentNamespace(EROExceptionClass(aclass).GetAttributeValue(i));
+      end;
+    end;
+  end else if aClass.InheritsFrom(TROComplexType) then begin
+    for i := 0 to TROComplexTypeClass(aclass).GetAttributeCount -1 do begin
+      if TROComplexTypeClass(aclass).GetAttributeName(i) = 'ElementNamespace' then begin
+        SetCurrentNamespace(TROComplexTypeClass(aclass).GetAttributeValue(i));
+      end;
+    end;
+  end;
+end;
+
+procedure TROXMLSerializer.ReadAnsiString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  subnode : IXMLNode;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  if (subnode<>NIL) then begin
+    Ansistring(Ref) := WideStringToAnsiString(GetXMLTextValue(subnode))
+  end
+  else
+    Ansistring(Ref) := '';
+    //else RaiseError(err_ParameterNotFound, [aName]);
+end;
+
+procedure TROXMLSerializer.WriteAnsiString(const aName: string; const Ref;
+  ArrayElementId: integer);
+var
+  newnode : IXMLNode;
+begin
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if not (xsoSendUntyped in SerializationOptions) then
+    AddXMLAttribute(newnode, 'xsi:type', 'xsd:string', False);
+  AddXMLTextValue(newnode,  AnsiStringToWideString(Ansistring(Ref)));
+end;
+
+procedure TROXMLSerializer.WriteXSDateTime(const aName: string;
+  Ref: XsDateTime; ArrayElementId : integer = -1);
+var newnode : IXMLNode;
+  s: string;
+begin
+  newnode := AddNode(fNode, Unprefix(aName), ArrayElementId <> -1);
+  if not (xsoSendUntyped in SerializationOptions) then
+    AddXMLAttribute(newnode, 'xsi:type', 'xsd:dateTime', False);
+  s := DateTimeToSOAPDateTime(ref.DateTime);
+  if Ref.WriteTimeZone then begin
+    if ref.TimeZoneOffset = 0 then
+      s := s + 'Z'
+    else begin
+      if ref.TimeZoneOffset < 0 then
+        s := s + '-'
+      else
+        s := s + '+';
+      if Abs(ref.TimeZoneOffset div 60) < 10 then
+        s := s + '0'+IntToStr(Abs(ref.TimeZoneOffset) div 60) +':'
+      else
+        s := s + IntToStr(Abs(ref.TimeZoneOffset) div 60) +':';
+      if (abs(ref.TimeZoneOffset) mod 60) < 10 then
+        s := s +'0' + IntToStr(abs(ref.TimeZoneOffset) mod 60)
+      else
+        s := s + IntToStr(abs(ref.TimeZoneOffset) mod 60);
+      end;
+  end;
+  AddXMLTextValue(newnode, s);
+end;
+
+function TROXMLSerializer.ReadXsDateTime(const aName: string; ArrayElementId : integer = -1): XsDateTime;
+var subnode : IXMLNode;
+  lOffset: Integer;
+begin
+  subnode := GetObject(aName, ArrayElementId);
+
+  subnode := FindSoapReference(subnode);
+
+  if subnode.GetAttributeValue(tag_Nil, '0') = '1' then begin
+    result := nil;
+    exit;
+  end;
+
+  if (subnode<>NIL) then begin
+    Result := XsDateTime.Create(SOAPDateTimeToDateTime(GetXMLTextValue(subnode), lOffset));
+    Result.TimeZoneOffset := lOffset;
+  end else
+    result := nil;
+end;
+
+procedure TROXMLSerializer.WriteAttribute(const aName : string; const Ref);
+begin
+  AddXMLAttribute(fNode, aName , WideString(Ref), False);
+end;
+
+procedure TROXMLSerializer.ReadAttribute(const aName : string; var Ref);
+var i: integer;
+begin
+  for I := 0 to fNode.AttributeCount - 1 do
+    if SameText(fNode.Attributes[i].Name, aName)
+      then WideString(Ref) := fNode.Attributes[i].Value;
+end;
+
+initialization
+  {$IFDEF DELPHI7UP}
+  GetLocaleFormatSettings(SOAPLocale,SOAPFormatSettings);
+  //ToDo: fix this for D6
+  {$ENDIF}
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXmlRpcMessage.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXmlRpcMessage.pas
new file mode 100644
index 0000000..07bd835
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROXmlRpcMessage.pas	
@@ -0,0 +1,1440 @@
+unit uROXmlRpcMessage;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Classes, SysUtils, TypInfo, uROClasses, uROTypes, uROHttpTools,
+  uROSerializer, uROClient, uROClientIntf, uROXmlIntf, uRoRes, FMTBcd;
+
+type
+  TROSimpleXmlWriter = class;
+  EROXmlRcpSerializerException = class(Exception);
+  TROXmlRpcType = (XRpcRequest, XRpcResponse, XRpcFaultResponse);
+  TROXmlRpcState = (XrsParam, XrsArray, Xrsstruct);
+
+  TROXmlRpcSerializer = class(TROSerializer)
+  private
+    fCurrState: TROXmlRpcState;
+    fDocument: IXMLDocument;
+    fStateCount: Integer;
+    fStates: array of TROXmlRpcState;
+    fType: TROXmlRpcType;
+    fMethodName: string;
+    fCurrentParamElement: IXMLNode;
+    fWriter: TROSimpleXmlWriter;
+    procedure PushState(aKind: TROXmlRpcState);
+    function PopState: TROXmlRpcState;
+
+    procedure BeginValue(aName: string);
+    procedure EndValue;
+
+    function StructGetMember(aRoot: IXMLNode; const aName: string; aRaiseException: Boolean): IXMLNode;
+    function GetValueNodecontentsForName(const aName: string): IXMLNode;
+  protected
+    procedure BeginWriteObject(const aName: string; aClass : TClass; anObject: TObject; var LevelRef : IUnknown;
+                                var IsValidType : boolean; out IsAssigned:Boolean; ArrayElementId : integer = -1); override;
+    procedure EndWriteObject(const aName: string; aClass : TClass; anObject: TObject; const LevelRef : IUnknown); override;
+    procedure CustomWriteObject(const aName : string; aClass : TClass; const Ref; ArrayElementId : integer = -1); override;
+    procedure CustomReadObject(const aName: string; aClass: TClass;var Ref; ArrayElementId: integer);override;
+    procedure BeginReadObject(const aName : string; aClass : TClass; var anObject : TObject; var LevelRef : IUnknown;
+                               var IsValidType : boolean; ArrayElementId : integer = -1); override;
+    procedure EndReadObject(const aName : string; aClass : TClass; var anObject : TObject; const LevelRef : IUnknown); override;
+  public
+     { Writers }
+     procedure WriteInteger(const aName : string; anOrdType : TOrdType; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteInt64(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteUTF8String(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteAnsiString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteWideString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteUnicodeString(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteDateTime(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteDouble(const aName : string; aFloatType : TFloatType; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteVariant(const aName : string; const Ref; ArrayElementId : integer = -1); override;
+     procedure WriteXml(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+     procedure WriteGuid(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+     procedure WriteDecimal(const aName: String; const Ref; ArrayElementId: Integer = -1); override;
+     procedure WriteBinary(const aName : string; const Ref; ArrayElementId : integer = -1);override;
+     procedure WriteStruct(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1); override;
+     procedure WriteArray(const aName : string; const Ref; aClass: TClass = nil; ArrayElementId : integer = -1); override;
+     procedure WriteException(const aName : string; const Ref; ArrayElementId : integer = -1); overload; override;
+     { Readers }
+     procedure ReadInteger(const aName : string; anOrdType : TOrdType; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadInt64(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadEnumerated(const aName : string; anEnumTypeInfo : PTypeInfo; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadUTF8String(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+     procedure ReadAnsiString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+     procedure ReadWideString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+     procedure ReadUnicodeString(const aName : string; var Ref; ArrayElementId : integer = -1; iMaxLength:integer=-1); override;
+     procedure ReadDateTime(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadDouble(const aName : string; aFloatType : TFloatType; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadVariant(const aName : string; var Ref; ArrayElementId : integer = -1); override;
+     procedure ReadXml(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+     procedure ReadDecimal(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+     procedure ReadGuid(const aName: String; var Ref; ArrayElementId: Integer = -1); override;
+     procedure ReadBinary(const aName : string; var Ref; ArrayElementId : integer = -1);override;
+     function ReadStruct(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+     function ReadArray(const aName : string; aClass : TClass; var Ref; ArrayElementId : integer = -1): Boolean; override;
+     procedure ReadException(const aName : string; var Ref; ArrayElementId : integer = -1); overload;override;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    procedure InitializeWrite(aType: TROXmlRpcType; aMethodName: string);
+    procedure InitializeRead(aStream: TStream);
+
+    property aType: TROXmlRpcType read fType write fType;
+    property aMethodName: string read fMethodName write fMethodName;
+
+    procedure WriteToStream(aStream: TStream);
+
+    procedure WriteException(aCode: Integer; aMsg: string);reintroduce;overload;
+    procedure ReadException(var aCode: Integer; var aMsg: string);reintroduce;overload;
+  end;
+
+  TROXmlRpcMessage = class(TROMessage)
+  protected
+    { Internals }
+    function ReadException: Exception; override;
+    procedure WriteException(aStream: TStream; anException: Exception); override;
+
+    function CreateSerializer: TROSerializer; override;
+
+    { IROMessage }
+    procedure Initialize(const aTransport: IROTransport; const anInterfaceName, aMessageName: string; aType: TMessageType); override;
+
+
+    procedure WriteToStream(aStream: TStream); override;
+    procedure ReadFromStream(aStream: TStream); override;
+    procedure InitializeExceptionMessage(const aTransport: IROTransport;
+      const aLibraryName: String; const anInterfaceName: String;
+      const aMessageName: String); override;
+  public
+    function IsValidMessage(aData: PAnsiChar; aLength: Integer): boolean; override;
+  end;
+  TROSimpleXmlWriter = class
+  private
+    fElementStack: TStrings;
+    fOutput: TMemoryStream;
+    fFinished: Boolean;
+
+    procedure WriteRawAnsiString(const s: Ansistring);
+    procedure WriteRawString(const s: string);
+  public
+    procedure WriteStartElement(const aElementName: string);
+    procedure WriteEndElement;
+
+    procedure WriteString(const aValue: WideString);overload;
+    {$IFDEF UNICODE}
+    procedure WriteString(const aValue: UnicodeString);overload;
+    {$ENDIF}
+    procedure WriteAnsiString(const aValue: AnsiString);
+
+    procedure SaveToStream(aDest: TStream);
+
+    constructor Create;
+    destructor Destroy; override;
+
+    property Finished: Boolean read fFinished;
+  end;
+
+function StringToCurrInvariant(const aValue: string): Currency;
+function CurrToStringInvariant(aValue: Currency): String;
+
+implementation
+uses
+  uROCompression, DateUtils, StrUtils, uROBinaryHelpers;
+
+function FirstNonText(node: IXMLNode): IXMLNode;
+begin
+  Result := Node;
+  while (Result <> nil) and (copy(Result.Name, 1, 1) = '#') do
+    Result := Result.NextSibling;
+end;
+
+function StringToCurrInvariant(const aValue: string): Currency;
+var
+  s: string;
+  i: Integer;
+  Res: Int64;
+begin
+  s := aValue;
+  i := Pos('.', s);
+  if i = 0 then begin
+    s := s + '.0000';
+  end
+  else begin
+    if Length(s) - i < 4 then
+      s := s + StringOfChar('0', 4 - (Length(s) - i))
+    else if Length(s) - i > 4 then
+      Delete(s, i + 5, MaxInt);
+  end;
+  Delete(s, i, 1); 
+  Res := StrToInt64(s);
+  Move(Res, Result, 8);
+end;
+
+function CurrToStringInvariant(aValue: Currency): string;
+var
+  Val: Int64;
+begin
+  Move(aValue, Val, 8);
+  Result := IntToStr(Val); // we need it locale independent and without any thousand seperators
+  if Length(Result) <= 4 then
+    Result := StringOfChar('0', 5 - Length(Result)) + Result;
+  Insert('.', Result, Length(Result) - 3);
+end;
+
+{ TROXmlRpcMessage }
+
+function TROXmlRpcMessage.CreateSerializer: TROSerializer;
+begin
+  result := TROXmlRpcSerializer.Create;
+end;
+
+procedure TROXmlRpcMessage.Initialize(const aTransport: IROTransport;
+  const anInterfaceName, aMessageName: string; aType: TMessageType);
+begin
+  inherited;
+  SetHTTPInfo(aTransport, DataFormatXml);
+  case aType of
+    mtRequest: TROXmlRpcSerializer(Serializer).InitializeWrite(XRpcRequest, anInterfaceName + '.' + aMessageName);
+    mtResponse: TROXmlRpcSerializer(Serializer).InitializeWrite(XRpcResponse, anInterfaceName + '.' + aMessageName);
+    mtException: TROXmlRpcSerializer(Serializer).InitializeWrite(XRpcFaultResponse, anInterfaceName + '.' + aMessageName)
+  else
+    raise EROXmlRcpSerializerException.Create('Unsupported request type');
+  end
+end;
+
+procedure TROXmlRpcMessage.InitializeExceptionMessage(
+  const aTransport: IROTransport; const aLibraryName, anInterfaceName,
+  aMessageName: String);
+begin
+  inherited;
+  SetHTTPInfo(aTransport, DataFormatXml);
+end;
+
+function TROXmlRpcMessage.IsValidMessage(aData: PAnsiChar;
+  aLength: Integer): boolean;
+var
+  str: AnsiString;
+begin
+  SetString(str, aData, aLength);
+  Result :=
+    (Pos(AnsiString('<methodRequest>'), str) > 0) or
+    (Pos(AnsiString('<methodCall>'), str) > 0) or
+    (Pos(AnsiString('<methodResponse>'), str) > 0);
+end;
+
+function TROXmlRpcMessage.ReadException: Exception;
+var
+  lCode: Integer;
+  lMsg: string;
+  cl: string;
+  idx: Integer;
+begin
+  TROXmlRpcSerializer(Serializer).ReadException(lCode, lMsg);
+  case lCode of
+    -32700, -32701, -32702, -32600, -32603, -32300:
+    begin
+     Result := EROXmlRcpSerializerException.Create(lMsg);
+     exit;
+    end;
+  end;
+  idx := Pos(': ', lMsg);
+  if (idx = 0) or (idx > Pos(' ', lMsg)) then begin
+    result := Exception.Create(lMsg);
+    exit;
+  end;
+  cl := Copy(lMsg, 1, Idx -1);
+  Delete(lMsg, 1, Idx + 1);
+
+  result := CreateException(cl, lMsg);
+
+  // Reads the other fields which have been properly serialized
+  //if result.InheritsFrom(EROException) then
+    //EROException(Result).Read(Serializer);
+end;
+
+procedure TROXmlRpcMessage.ReadFromStream(aStream: TStream);
+var
+  s: string;
+  encryptedheader: array[0..5] of Ansichar;
+begin
+  inherited;
+  aStream.Position := 0;
+
+  try
+    TROXmlRpcSerializer(Serializer).InitializeRead(aStream);
+  except
+    aStream.Position := 0;
+    aStream.Read(encryptedheader, 6);
+    if (encryptedheader[0] = 'r') and (encryptedheader[1] = 'o') and
+      (encryptedheader[2] = 'r') and (encryptedheader[3] = 'o') and
+      (encryptedheader[4] = 'c') and (encryptedheader[5] = 'k') then
+      RaiseInvalidStreamError(err_InvalidHeaderEncrypted, [], aStream);
+    raise;
+  end;
+  if TROXmlRpcSerializer(Serializer).aType = XRpcFaultResponse then
+    ProcessException
+  else begin
+    s := TROXmlRpcSerializer(Serializer).aMethodName;
+    if pos('.', s) = 0 then
+      MessageName := s
+    else begin
+      MessageName := copy(s, pos('.', s) + 1, MaxInt);
+      InterfaceName := copy(s, 1, pos('.', s) - 1);
+    end;
+  end;
+end;
+
+procedure TROXmlRpcMessage.WriteException(aStream: TStream;
+  anException: Exception);
+begin
+  inherited;
+  TROXmlRpcSerializer(Serializer).InitializeWrite(XRpcFaultResponse, '');
+  if anException is EROXmlRcpSerializerException then
+    TROXmlRpcSerializer(Serializer).WriteException(-32600, anException.Message)
+  else
+    TROXmlRpcSerializer(Serializer).WriteException(1, anException.ClassName+': '+anException.Message);
+//  if anException is EROException then EROException(anException).Write(Serializer);
+  TROXmlRpcSerializer(Serializer).WriteToStream(aStream);
+end;
+
+procedure TROXmlRpcMessage.WriteToStream(aStream: TStream);
+begin
+  TROXmlRpcSerializer(Serializer).WriteToStream(aStream);
+  inherited;
+end;
+
+{ TROXmlRpcSerializer }
+
+constructor TROXmlRpcSerializer.Create;
+begin
+  inherited Create;
+end;
+
+procedure TROXmlRpcSerializer.InitializeWrite(aType: TROXmlRpcType; aMethodName: string);
+begin
+  ftype := aType;
+  fMethodName := aMethodName;
+  if fWriter <> nil then fWriter.Free; 
+  fWriter := TROSimpleXmlWriter.Create;
+  case aType of
+    XRpcFaultResponse:
+      begin
+        fWriter.WriteStartElement('methodResponse');
+        fWriter.WriteStartElement('fault');
+        fCurrState := XrsArray;
+      end;
+    XRpcResponse:
+      begin
+        fWriter.WriteStartElement('methodResponse');
+        fWriter.WriteStartElement('params');
+      end;
+   XRpcRequest:
+     begin
+       fWriter.WriteStartElement('methodCall');
+       fWriter.WriteStartElement('methodName');
+       fWriter.WriteString(fMethodName);
+       fWriter.WriteEndElement();
+       fWriter.WriteStartElement('params');
+     end;
+  end;
+end;
+
+procedure TROXmlRpcSerializer.CustomWriteObject(const aName: string;
+  aClass: TClass; const Ref; ArrayElementId: integer);
+var
+  anObject: TObject absolute Ref;
+  lTemp: Binary;
+begin
+  if anObject is TStream then begin
+    lTemp := Binary.Create;
+    try
+      TStream(anObject).Seek(0, soFromBeginning);
+      EncodeStream(TStream(anObject), lTemp);
+      fWriter.WriteAnsiString(lTemp.ToString);
+    finally
+      lTemp.Free;
+    end;
+  end else
+    inherited;
+end;
+
+procedure TROXmlRpcSerializer.BeginWriteObject(const aName: string;
+  aClass: TClass; anObject: TObject; var LevelRef: IInterface;
+  var IsValidType: boolean; out IsAssigned: Boolean;
+  ArrayElementId: integer);
+begin
+  if aClass <> nil then
+    inherited;
+
+  if not assigned(anObject) then raise EROXmlRcpSerializerException.Create('Nil objects not supported by xmlrpc');
+
+  IsAssigned := True;
+
+  BeginValue(aName);
+
+  if anObject is TStream then begin
+    fWriter.WriteStartElement('base64');
+    // write binary
+    IsValidType := true; // Adds streams/binaries as supported type
+  end else if anObject is TROArray then begin
+    fWriter.WriteStartElement('array');
+    PushState(XrsArray);
+    fWriter.WriteStartElement('data');
+    IsValidType := true; // Adds Array as supported type
+  end
+  else if anObject is TROComplexType then begin
+    fWriter.WriteStartElement('struct');
+    PushState(Xrsstruct);
+    IsValidType := true;
+  end;
+end;
+
+procedure TROXmlRpcSerializer.EndWriteObject(const aName: string;
+  aClass: TClass; anObject: TObject; const LevelRef: IInterface);
+begin
+  if anObject is TStream then begin
+    fWriter.WriteEndElement;
+  end else if anObject is TROArray then begin
+    fWriter.WriteEndElement;
+    fWriter.WriteEndElement;
+    if PopState <> xrsArray then raise EROXmlRcpSerializerException.Create('Invalid state');
+  end
+  else if anObject is TROComplexType then begin
+    if PopState <> Xrsstruct then raise EROXmlRcpSerializerException.Create('Invalid state');
+    fWriter.WriteEndElement;
+  end;
+
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.WriteDateTime(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  BeginValue(aName);
+  fWriter.WriteStartElement('dateTime.iso8601');
+  fWriter.WriteString(FormatDateTime('yyyymmdd"T"hh:nn:ss', DateTime(Ref)));
+  fWriter.WriteEndElement;
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.WriteEnumerated(const aName: string;
+  anEnumTypeInfo: PTypeInfo; const Ref; ArrayElementId: integer);
+begin
+  BeginValue(aName);
+  if anEnumTypeInfo.Name = 'Boolean' then
+  begin
+    fWriter.WriteStartElement('boolean');
+    if boolean(Ref) then
+      fWriter.WriteAnsiString(AnsiChar('1'))
+    else
+      fWriter.WriteAnsiString(AnsiChar('0'));
+    fWriter.WriteEndElement;
+  end else
+  begin
+    fWriter.WriteStartElement('string');
+    fWriter.WriteString(ROGetEnumName(anEnumTypeInfo, EnumeratedToInteger(anEnumTypeInfo,Ref)));
+    fWriter.WriteEndElement;
+  end;
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.WriteDouble(const aName: string;
+  aFloatType: TFloatType; const Ref; ArrayElementId: integer);
+var
+  s: string;
+begin
+  // Str doesn't use the locale settings
+  case aFloatType of
+    ftSingle: s := FloatToStr(Single(Ref));
+    ftDouble: s := FloatToStr(Double(Ref));
+    ftExtended: s := FloatToStr(Extended(Ref));
+    ftComp: s := FloatToStr(Comp(Ref));
+    ftCurr:
+      begin
+        s :=CurrToStringInvariant(currency(Ref));
+        WriteUTF8String(aName, s);
+        exit;
+      end;
+  end;
+  s := StringReplace(s, DecimalSeparator, '.', []);
+  BeginValue(aName);
+  fWriter.WriteStartElement('double');
+  fWriter.WriteString(s);
+  fWriter.WriteEndElement();
+  EndValue();
+end;
+
+procedure TROXmlRpcSerializer.WriteInt64(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  BeginValue(aName);
+  fWriter.WriteStartElement('string'); // no way around
+  fWriter.WriteString(IntToStr(Int64(ref)));
+  fWriter.WriteEndElement();
+  EndValue();
+end;
+
+procedure TROXmlRpcSerializer.WriteInteger(const aName: string;
+  anOrdType: TOrdType; const Ref; ArrayElementId: integer);
+var
+  aIntVal: Integer;
+begin
+  case anOrdType of
+    otSByte: aIntVal := ShortInt(Ref);
+    otUByte: aIntVal := Byte(Ref);
+    otSWord: aIntVal := SmallInt(Ref);
+    otUWord: aIntVal := Word(Ref);
+    otSLong: aIntVal := Integer(Ref);
+    otULong: aIntVal := Cardinal(Ref);
+  else
+    aIntVal := 0; 
+  end;
+  BeginValue(aName);
+  fWriter.WriteStartElement('i4');
+  fWriter.WriteString(IntToStr(aIntVal));
+  fWriter.WriteEndElement();
+  EndValue();
+end;
+
+procedure TROXmlRpcSerializer.WriteUnicodeString(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  BeginValue(aName);
+  fWriter.WriteStartElement('string');
+  fWriter.WriteString(UnicodeString(Ref));
+  fWriter.WriteEndElement;
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.WriteUTF8String(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  BeginValue(aName);
+  fWriter.WriteStartElement('string');
+  fWriter.WriteAnsiString(AnsiString(UTF8String(Ref)));
+  fWriter.WriteEndElement;
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.WriteToStream(aStream: TStream);
+begin
+  if fWriter = nil then begin
+    fWriter:= TROSimpleXmlWriter.Create;
+    if fDocument <> nil then fWriter.WriteRawAnsiString(UTF8Encode(fDocument.XML));
+    fWriter.fFinished := True;
+  end
+  else begin
+    if not fWriter.Finished then
+    begin
+      fWriter.WriteEndElement(); // params/fault
+      fWriter.WriteEndElement(); // methodRequest/methodRespones
+    end;
+  end;
+  fWriter.SaveToStream(aStream);
+end;
+
+procedure TROXmlRpcSerializer.WriteVariant(const aName: string; const Ref;
+  ArrayElementId: integer);
+begin
+  raise EROXmlRcpSerializerException.Create('Variants not supported by xmlrpc');
+end;
+
+procedure TROXmlRpcSerializer.WriteWideString(const aName: string;
+  const Ref; ArrayElementId: integer);
+begin
+  BeginValue(aName);
+  fWriter.WriteStartElement('string');
+  fWriter.WriteString(WideString(Ref));
+  fWriter.WriteEndElement;
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.WriteException(aCode: Integer; aMsg: string);
+var
+  lmsg: UTF8String;
+begin
+  BeginValue('');
+  fWriter.WriteStartElement('struct');
+  PushState(Xrsstruct);
+  WriteInteger('faultCode', otSLong, aCode);
+  lmsg:=UTF8Encode(aMsg);
+  WriteUTF8String('faultString',lmsg);
+  if PopState <> Xrsstruct then raise EROXmlRcpSerializerException.Create('Invalid state');
+  fWriter.WriteEndElement;
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.InitializeRead(aStream: TStream);
+var
+  el, tmp: IXMLNode;
+begin
+  fDocument := NewROXmlDocument;
+  fDocument.New;
+  fDocument.LoadFromStream(aStream);
+  if (fDocument.DocumentNode.Name = 'methodRequest') or (fDocument.DocumentNode.Name = 'methodCall') then
+    fType := XRpcRequest
+  else if fDocument.DocumentNode.Name = 'methodResponse' then
+    fType :=  XRpcResponse
+  else
+    raise EROXmlRcpSerializerException.Create('Invalid xmlrpc document');
+
+  el := fDocument.DocumentNode;
+  if fType = xrpcRequest then begin
+    tmp := el.GetNodeByName('methodName');
+    if tmp = nil then raise EROXmlRcpSerializerException.Create('Invalid xmlrpc document');
+    fMethodName := tmp.Value;
+    tmp := el.GetNodeByName('params');
+    if tmp = nil then raise EROXmlRcpSerializerException.Create('Invalid xmlrpc document');
+    fCurrentParamElement := FirstNonText(tmp.FirstChild);
+  end else begin
+    tmp := el.GetNodeByName('fault');
+    if tmp = nil then begin
+      tmp := el.GetNodeByName('params');
+      if tmp = nil then raise EROXmlRcpSerializerException.Create('Invalid xmlrpc document');
+      tmp := FirstNonText(tmp.FirstChild);
+    end
+    else
+      fType := XRpcFaultResponse;
+    fCurrentParamElement := tmp;
+  end;
+end;
+
+
+function TROXmlRpcSerializer.StructGetMember(aRoot: IXMLNode; const aName: string; aRaiseException: Boolean): IXMLNode;
+var
+  i: Integer;
+  tmp: IXMLNode;
+begin
+  for i := 0 to aRoot.ChildrenCount -1 do
+  begin
+    Result := aRoot.Children[i];
+    tmp := Result.GetNodeByName('name');
+    if (tmp <> nil) and (tmp.Value = aName) then begin
+      Result := result.GetNodeByName('value');
+      if (Result = nil) and aRaiseException then EROXmlRcpSerializerException.Create('Unknown node: '+aName);
+      exit;
+    end;
+  end;
+  if (Result = nil) and aRaiseException then EROXmlRcpSerializerException.Create('Unknown node: '+aName);
+  result := nil;
+end;
+
+procedure TROXmlRpcSerializer.ReadException(var aCode: Integer; var aMsg: string);
+var
+  tmp, val: IXMLNode;
+begin
+  tmp := fCurrentParamElement.GetNodeByName('value');
+  if tmp = nil then raise EROXmlRcpSerializerException.Create('Invalid xmlrpc exception');
+  tmp := tmp.GetNodeByName('struct');
+  if tmp = nil then raise EROXmlRcpSerializerException.Create('Invalid xmlrpc exception');
+
+  val := StructGetMember(tmp, 'faultCode', true);
+  val := val.GetNodeByName('i4');
+  if val = nil then raise EROXmlRcpSerializerException.Create('Invalid xmlrpc exception');
+  acode := val.Value;
+
+  val := StructGetMember(tmp, 'faultString', true);
+  val := val.GetNodeByName('string');
+  if val = nil then raise EROXmlRcpSerializerException.Create('Invalid xmlrpc exception');
+  aMsg := val.Value;
+end;
+
+procedure TROXmlRpcSerializer.BeginReadObject(const aName: string;
+  aClass: TClass; var anObject: TObject; var LevelRef: IInterface;
+  var IsValidType: boolean; ArrayElementId: integer);
+var
+  el: IXMLNode;
+begin
+  if aClass.InheritsFrom(TStream) then begin
+    anObject := TROBinaryMemoryStream.Create;
+    IsValidType := true;
+  end
+  else if aclass.InheritsFrom(TROArray) then begin
+    anObject := TROComplexTypeClass(aClass).Create;
+    IsValidType := true;
+  end
+  else if aclass.InheritsFrom(TROComplexType) then begin
+    anObject := TROComplexTypeClass(aClass).Create;
+    el :=GetValueNodeContentsForName(aName);
+    if (el = nil) or (el.Name <> 'struct') then raise EROXmlRcpSerializerException.Create('Not a struct');
+    PushState(Xrsstruct);
+    fCurrentParamElement := el;
+    IsValidType := true;
+  end else
+    IsValidType := false;
+end;
+
+procedure TROXmlRpcSerializer.CustomReadObject(const aName: string;
+  aClass: TClass; var Ref; ArrayElementId: integer);
+var
+  obj: TObject absolute ref;
+  el,
+  tmp: IXMLNode;
+  ci: Integer;
+  itemref: Pointer;
+  tmpstream: Binary;
+begin
+  if obj is TROArray then begin
+    el := GetValueNodeContentsForName(aName);
+    if el.Name <> 'array' then raise EROXmlRcpSerializerException.Create('Not at array');
+    el := FirstNonText(el.FirstChild);
+    if el.Name <> 'data' then raise EROXmlRcpSerializerException.Create('Not an array');
+    tmp := fCurrentParamElement;
+    fCurrentParamElement := FirstNonText(el.FirstChild);
+    PushState(XrsArray);
+    ci := 0;
+    TROArray(obj).Resize(el.ChildrenCount); // might differ if there are junk entries
+    while fCurrentParamElement <> nil do begin
+      if TROArray(obj).GetItemClass <> nil then begin
+        itemref := nil;
+        Read(RO_ArrayItemName, TROArray(obj).GetItemType, itemref, ci);
+        TROArray(obj).SetItemRef(ci, itemref);
+      end else begin
+        itemref := TROArray(obj).GetItemRef(ci);
+        Read(RO_ArrayItemName, TROArray(obj).GetItemType, itemref^, ci);
+      end;
+      inc(ci);
+    end;
+    if ci <> el.ChildrenCount then TROArray(obj).Resize(ci);
+    if PopState <> XrsArray then raise EROXmlRcpSerializerException.Create('Invalid state');
+    fCurrentParamElement := tmp;
+  end else if obj is TStream then begin
+    el := GetValueNodecontentsForName(aName);
+    if el.Name <> 'base64' then raise EROXmlRcpSerializerException.Create('Not a base64 block');
+    tmpstream := TROBinaryMemoryStream.Create(UTF8Encode(el.Value));
+    try
+      DecodeStream(tmpstream, TStream(obj));
+      TStream(obj).Position := 0;
+    finally
+      tmpstream.Free;
+    end;
+  end else
+    inherited;
+end;
+
+procedure TROXmlRpcSerializer.EndReadObject(const aName: string;
+  aClass: TClass; var anObject: TObject; const LevelRef: IInterface);
+var
+  el: IXMLNode;
+begin
+  if aclass.InheritsFrom(TROComplexType) and not (aClass.InheritsFrom(TStream) or aclass.InheritsFrom(TROArray)) then begin
+    el := fCurrentParamElement;
+    if (el = nil) or (el.Name <> 'struct') or (PopState() <> Xrsstruct)then raise EROXmlRcpSerializerException.Create('Invalid state');
+    case fCurrState of
+      XrsArray:
+        el := el.Parent;
+      XrsParam:
+        el := el.Parent.Parent;
+      Xrsstruct:
+        el := el.Parent.Parent.Parent;
+    end;
+    fCurrentParamElement := FirstNonText(el.NextSibling);
+  end
+end;
+
+procedure TROXmlRpcSerializer.ReadDateTime(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  el: IXMLNode;
+  s: string;
+  h,m,sec: Integer;
+begin
+  el := GetValueNodeContentsForName(aName);
+  if el = nil then
+  begin
+    DateTime(ref) := 0.0;
+    exit;
+  end;
+  if el.Name <> 'dateTime.iso8601' then raise EROXmlRcpSerializerException.Create('Not a datetime');
+  s := el.Value;
+  if (Length(s) <> 17) or (s[9] <> 'T') then raise EROXmlRcpSerializerException.Create('Invalid date format');
+  DateTime(ref) := EncodeDate(
+    StrToInt(copy(s,1,4)), //yyyy
+    StrToInt(copy(s,5,2)), //mm
+    StrToInt(copy(s,7,2))); //dd
+    // skip the T
+  delete(s,1,9);
+  h := StrToInt(copy(s,1,2)); //hh
+  delete(s,1,2);
+  if copy(s,1,1) = ':' then delete(s,1,1);
+  m := StrToInt(copy(s,1,2)); //nn
+  delete(s,1,2);
+  if copy(s,1,1) = ':' then delete(s,1,1);
+  sec := StrToInt(copy(s,1,2)); //ss
+  DateTime(ref) := DateTime(ref) + EncodeTime(H, M, Sec, 0)
+end;
+
+procedure TROXmlRpcSerializer.ReadEnumerated(const aName: string;
+  anEnumTypeInfo: PTypeInfo; var Ref; ArrayElementId: integer);
+var
+  enumval: Integer;
+  s: string;
+  el: IXMLNode;
+begin
+  enumval := 0;
+  if anEnumTypeInfo.Name = 'Boolean' then begin
+    el := GetValueNodeContentsForName(aName);
+    if el <> nil then begin
+      //    if el = nil then raise EROXmlRcpSerializerException.Create('Not a boolean');
+      if el.Name <> 'boolean' then raise EROXmlRcpSerializerException.Create('Not a boolean');
+      if (el.Value = '1') or (el.Value = 'true') then
+        enumval := 1
+      else
+        enumval := 0;
+    end;
+  end
+  else begin
+    ReadUTF8String(aName, s);
+    if s <> '' then begin
+      enumval := ROGetEnumValue(anEnumTypeInfo, s);
+      if enumval < 0 then
+        raise EROXmlRcpSerializerException.Create('Unknown value "'+ s +'" for enum "'+UTF8ToString(anEnumTypeInfo^.Name)+'"');
+    end;
+  end;
+  IntegerToEnumerated(enumval,anEnumTypeInfo,Ref);
+end;
+
+procedure TROXmlRpcSerializer.ReadDouble(const aName: string;
+  aFloatType: TFloatType; var Ref; ArrayElementId: integer);
+var
+  d: Double;
+  el: IXMLNode;
+  c: Integer;
+  s: string;
+begin
+  if aFloatType = ftCurr then
+  begin
+    ReadUTF8String(aName, s);
+    if s = '' then
+    begin
+      Currency(Ref) := 0;
+      exit;
+    end;
+    Currency(Ref) := StringToCurrInvariant(s);
+    exit;
+  end;
+  el := GetValueNodeContentsForName(aName);
+  if el = nil then
+  begin
+  case aFloatType of
+      ftSingle: Single(Ref) := 0.0;
+      ftDouble: Double(Ref) := 0.0;
+      ftExtended: Extended(Ref) := 0.0;
+      ftComp:     Comp(Ref) := {$IFDEF FPC}
+                                  {$IFDEF cpu64}Int64(0){$ELSE}Integer(0){$ENDIF}
+                               {$ELSE}
+                                  0.0
+                               {$ENDIF};
+    end;
+    exit;
+  end;
+  if el.Name <> 'double' then raise EROXmlRcpSerializerException.Create('Not a double');
+
+  Val(el.Value, d, c);
+  if c <> 0 then raise EROXmlRcpSerializerException.Create('Invalid float format');
+
+  case aFloatType of
+    ftSingle: Single(Ref) := d;
+    ftDouble: Double(Ref) := d;
+    ftExtended: Extended(Ref) := d;
+    ftComp:     Comp(Ref) := {$IFDEF FPC}
+                                {$IFDEF cpu64}StrToInt64(el.Value){$ELSE}StrToInt(el.Value){$ENDIF}
+                             {$ELSE}
+                                d
+                             {$ENDIF};
+  end;
+end;
+
+procedure TROXmlRpcSerializer.ReadInt64(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  s: string;
+begin
+  ReadUTF8String(aName, s);
+  if s = '' then Int64(Ref) := 0
+  else Int64(Ref) := StrToInt64(s);
+end;
+
+procedure TROXmlRpcSerializer.ReadInteger(const aName: string;
+  anOrdType: TOrdType; var Ref; ArrayElementId: integer);
+var
+  el: IXMLNode;
+  aVal: Integer;
+begin
+  el := GetValueNodeContentsForName(aName);
+  if el = nil then
+    aVal := 0
+  else
+  begin
+    if (el.Name <> 'i4') and (el.Name <> 'int') then raise EROXmlRcpSerializerException.Create('Not an integer');
+    aVal := StrToInt(el.Value);
+  end;
+  case anOrdType of
+    otSByte: ShortInt(Ref) := aVal;
+    otUByte: Byte(Ref) := aVal;
+    otSWord: SmallInt(Ref) := aVal;
+    otUWord: Word(Ref) := aVal;
+    otSLong: Longint(Ref) := aVal;
+    otULong: Cardinal(Ref) := aVal;
+  end;
+end;
+
+procedure TROXmlRpcSerializer.ReadUnicodeString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  el: IXMLNode;
+begin
+  el := GetValueNodeContentsForName(aName);
+  if el = nil then
+  begin
+    WideString(Ref) := '';
+    exit;
+  end;
+  if el.Name <> 'string' then raise EROXmlRcpSerializerException.Create('Not a string');
+  UnicodeString(Ref) := el.Value;
+end;
+
+procedure TROXmlRpcSerializer.ReadUTF8String(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  el: IXMLNode;
+begin
+  el := GetValueNodeContentsForName(aName);
+  if el = nil then
+  begin
+    UTF8String(ref) := '';
+    exit;
+  end;
+  if el.Name <> 'string' then raise EROXmlRcpSerializerException.Create('Not a string');
+  UTF8String(Ref) := UTF8Encode(el.Value);
+end;
+
+procedure TROXmlRpcSerializer.ReadVariant(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+  raise EROXmlRcpSerializerException.Create('Variants not supported by xmlrpc');
+end;
+
+procedure TROXmlRpcSerializer.ReadWideString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  el: IXMLNode;
+begin
+  el := GetValueNodeContentsForName(aName);
+  if el = nil then
+  begin
+    WideString(Ref) := '';
+    exit;
+  end;
+  if el.Name <> 'string' then raise EROXmlRcpSerializerException.Create('Not a string');
+  WideString(Ref) := el.Value;
+end;
+
+
+destructor TROXmlRpcSerializer.Destroy;
+begin
+  fWriter.Free;
+  inherited Destroy;
+end;
+
+function TROXmlRpcSerializer.PopState: TROXmlRpcState;
+begin
+  if fStateCount = 0 then raise EROXmlRcpSerializerException.Create('Invalid state');
+  Dec(fStateCount);
+  Result := fCurrState;
+  fCurrState := fStates[fStatecount];
+end;
+
+procedure TROXmlRpcSerializer.PushState(aKind: TROXmlRpcState);
+begin
+  if fStateCount = Length(fStates) then
+    SetLength(fStates, Length(FStates) + 4);
+  fStates[fStateCount] := fCurrState;
+  Inc(FStateCount);
+  fCurrState := aKind;
+end;
+
+procedure TROXmlRpcSerializer.BeginValue(aName: string);
+begin
+  case fCurrState of
+    XrsParam: fWriter.WriteStartElement('param');
+    Xrsstruct:
+      begin
+        fWriter.WriteStartElement('member');
+        fWriter.WriteStartElement('name');
+        fWriter.WriteString(aName);
+        fWriter.WriteEndElement;
+      end;
+  end;
+  fWriter.WriteStartElement('value');
+end;
+
+procedure TROXmlRpcSerializer.EndValue;
+begin
+  fWriter.WriteEndElement;
+  case fCurrState of
+    XrsParam,
+    Xrsstruct:
+      fWriter.WriteEndElement; 
+  end;
+end;
+
+function TROXmlRpcSerializer.GetValueNodecontentsForName(
+  const aName: string): IXMLNode;
+begin
+  if fCurrentParamElement = nil then raise EROXmlRcpSerializerException.Create('Invalid state');
+  case fCurrState of
+    XrsArray:
+      begin
+        Result := FirstNonText(fCurrentParamElement.FirstChild);
+        fCurrentParamElement := FirstNonText(fCurrentParamElement.NextSibling);
+      end;
+    XrsParam:
+      begin
+        Result := FirstNonText(fCurrentParamElement.FirstChild);
+        if result = nil then raise EROXmlRcpSerializerException.Create('Invalid state');
+        if result.Name = 'value' then Result := FirstNonText(Result.FirstChild);
+        fCurrentParamElement := FirstNonText(fCurrentParamElement.NextSibling);
+      end;
+    Xrsstruct:
+      begin
+        Result := fCurrentParamElement;
+        if result = nil then raise EROXmlRcpSerializerException.Create('Invalid state');
+        Result := StructGetMember(Result, aName, True);
+        if Result <> nil then Result := FirstNonText(Result.FirstChild);
+      end;
+  end;
+end;
+
+procedure TROXmlRpcSerializer.ReadXml(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  s: WideString;
+  res: IXMLDocument;
+begin
+  ReadWideString(aName, s, ArrayElementID);
+  if s = '' then
+    IXmlNode(Ref) := nil
+  else begin
+    res := NewROXmlDocument;
+    Res.New;
+    Res.XML := s;
+    IXmlNode(Ref) := res.DocumentNode;
+  end;
+end;
+
+procedure TROXmlRpcSerializer.WriteXml(const aName: String; const Ref;
+  ArrayElementId: Integer);
+var
+  s: WideString;
+begin
+  if IXMLNode(Ref) = nil then
+    S := ''
+  else
+    s := IXMLNode(Ref).XML;
+  WriteWideString(aName, s, ArrayElementId);
+end;
+
+procedure TROXmlRpcSerializer.ReadDecimal(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+  us: UTF8String;
+begin
+   ReadUTF8String(aName, us, ArrayElementId);
+   s := {$IFDEF DELPHI2009UP}UTF8ToString{$ENDIF}(us);
+   if DecimalSeparator <> '.' then s := StringReplace(s, '.', DecimalSeparator, []);
+   Variant(Ref) := BCDToVariant(StrToBcd(s));
+end;
+
+procedure TROXmlRpcSerializer.ReadGuid(const aName: String; var Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+begin
+  ReadUTF8String(aName, s, ArrayElementId);
+  if s = '' then s := '{00000000-0000-0000-0000-000000000000}';
+  if Copy(s,1,1) <> '{' then s := '{'+s+'}';
+  string(Ref) := s;
+end;
+
+procedure TROXmlRpcSerializer.WriteDecimal(const aName: String; const Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+begin
+  s := BcdToStr(VariantToBCD(variant(Ref)));
+  if DecimalSeparator <> '.' then s := StringReplace(s, DecimalSeparator, '.', []); // delphi has no way to format a bcd with a specific format
+  WriteUTF8String(aName, s, ArrayElementId);
+end;
+
+procedure TROXmlRpcSerializer.WriteGuid(const aName: String; const Ref;
+  ArrayElementId: Integer);
+var
+  s: string;
+begin
+  s := GuidToString(StringToGUID(string(Ref)));
+  s := copy(s,2,length(s) -2); // remove curlies
+  WriteUTF8String(aName, s, ArrayElementId);
+end;
+
+
+procedure TROXmlRpcSerializer.ReadBinary(const aName: string; var Ref;
+  ArrayElementId: integer);
+var
+  obj: Binary absolute ref;
+  el: IXMLNode;
+  tmpstream: Binary;
+begin
+  el := GetValueNodecontentsForName(aName);
+  if el = nil then
+  begin
+    Obj := nil;
+    exit;
+  end;
+  if el.Name <> 'base64' then raise EROXmlRcpSerializerException.Create('Not a base64 block');
+  Obj := TROBinaryMemoryStream.Create;
+  tmpstream := TROBinaryMemoryStream.Create(UTF8Encode(el.Value));
+  try
+    DecodeStream(tmpstream, obj);
+    obj.Position := 0;
+  finally
+    tmpstream.Free;
+  end;
+end;
+
+
+procedure TROXmlRpcSerializer.WriteBinary(const aName: string; const Ref;
+  ArrayElementId: integer);
+var
+  obj: Binary absolute Ref;
+  lTemp: Binary;
+begin
+  if not assigned(obj) then raise EROXmlRcpSerializerException.Create('Nil objects not supported by xmlrpc');
+  BeginValue(aName);
+  fWriter.WriteStartElement('base64');
+  // write binary
+  lTemp := Binary.Create;
+  try
+    obj.Seek(0, soFromBeginning);
+    EncodeStream(obj, lTemp);
+    fWriter.WriteAnsiString(lTemp.ToString);
+  finally
+    lTemp.Free;
+  end;
+  // endwriteobject
+  fWriter.WriteEndElement;
+  EndValue;
+end;
+
+
+function TROXmlRpcSerializer.ReadArray(const aName: string; aClass: TClass;
+  var Ref; ArrayElementId: integer): Boolean;
+var
+  obj : TROArray absolute Ref;
+  el,
+  tmp: IXMLNode;
+  ci, i: Integer;
+//  itemref: Pointer;
+begin
+  Result:=True;
+  obj := TROArrayClass(aClass).Create;
+  el := GetValueNodeContentsForName(aName);
+  if el = nil then
+  begin
+    obj := nil;
+    exit;
+  end;
+  if el.Name <> 'array' then raise EROXmlRcpSerializerException.Create('Not at array');
+  el := FirstNonText(el.FirstChild);
+  if el.Name <> 'data' then raise EROXmlRcpSerializerException.Create('Not an array');
+  tmp := fCurrentParamElement;
+  fCurrentParamElement := FirstNonText(el.FirstChild);
+  PushState(XrsArray);
+
+  ci := 0;
+  for i := 0 to el.ChildrenCount - 1 do begin
+    if el.Children[i].LocalName = fCurrentParamElement.Name then inc(ci);
+  end;
+  obj.Resize(ci);
+(*
+  ci := 0;
+  while fCurrentParamElement <> nil do begin
+    if obj.GetItemClass <> nil then begin
+      itemref := nil;
+      Read(RO_ArrayItemName, obj.GetItemType, itemref, ci);
+      obj.SetItemRef(ci, itemref);
+    end else begin
+      itemref := obj.GetItemRef(ci);
+      Read(RO_ArrayItemName, obj.GetItemType, itemref^, ci);
+    end;
+    inc(ci);
+  end;
+  if ci <> el.ChildrenCount then obj.Resize(ci);
+*)
+  obj.ReadComplex(Self);
+  if PopState <> XrsArray then raise EROXmlRcpSerializerException.Create('Invalid state');
+  fCurrentParamElement := tmp;
+end;
+
+function TROXmlRpcSerializer.ReadStruct(const aName: string;
+  aClass: TClass; var Ref; ArrayElementId: integer): Boolean;
+var
+  obj : TROComplexType absolute Ref;
+  el: IXMLNode;
+begin
+  Result:=True;
+  obj := TROComplexTypeClass(aClass).Create;
+  el :=GetValueNodeContentsForName(aName);
+  if el = nil then
+  begin
+    obj := nil;
+    exit;
+  end;
+//  if (el = nil) or (el.Name <> 'struct') then raise EROXmlRcpSerializerException.Create('Not a struct');
+  if el.Name <> 'struct' then raise EROXmlRcpSerializerException.Create('Not a struct');
+  PushState(Xrsstruct);
+  fCurrentParamElement := el;
+  Obj.ReadComplex(Self);
+  el := fCurrentParamElement;
+  if (el = nil) or (el.Name <> 'struct') or (PopState() <> Xrsstruct)then raise EROXmlRcpSerializerException.Create('Invalid state');
+  case fCurrState of
+    XrsArray:
+      el := el.Parent;
+    XrsParam:
+      el := el.Parent.Parent;
+    Xrsstruct:
+      el := el.Parent.Parent.Parent;
+  end;
+  if fCurrState = Xrsstruct then
+    fCurrentParamElement := el
+  else
+    fCurrentParamElement := FirstNonText(el.NextSibling);
+end;
+
+procedure TROXmlRpcSerializer.WriteArray(const aName: string; const Ref; aClass: TClass; 
+  ArrayElementId: integer);
+var
+  obj : TROArray absolute Ref;
+begin
+  if not assigned(obj) then raise EROXmlRcpSerializerException.Create('Nil objects not supported by xmlrpc');
+  BeginValue(aName);
+  fWriter.WriteStartElement('array');
+  PushState(XrsArray);
+  fWriter.WriteStartElement('data');
+  obj.WriteComplex(Self);
+  fWriter.WriteEndElement;
+  fWriter.WriteEndElement;
+  if PopState <> xrsArray then raise EROXmlRcpSerializerException.Create('Invalid state');
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.WriteStruct(const aName: string; const Ref; aClass: TClass; 
+  ArrayElementId: integer);
+var
+  obj : TROComplexType absolute Ref;
+begin
+  if not assigned(obj) then raise EROXmlRcpSerializerException.Create('Nil objects not supported by xmlrpc');
+  BeginValue(aName);
+  fWriter.WriteStartElement('struct');
+  PushState(Xrsstruct);
+  obj.WriteComplex(Self);
+  if PopState <> Xrsstruct then raise EROXmlRcpSerializerException.Create('Invalid state');
+  fWriter.WriteEndElement;
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.ReadException(const aName: string; var Ref;
+  ArrayElementId: integer);
+begin
+// not used
+end;
+
+procedure TROXmlRpcSerializer.WriteException(const aName: string;
+  const Ref; ArrayElementId: integer);
+begin
+// not used
+end;
+
+procedure TROXmlRpcSerializer.WriteAnsiString(const aName: string;
+  const Ref; ArrayElementId: integer);
+begin
+  BeginValue(aName);
+  fWriter.WriteStartElement('string');
+  fWriter.WriteString(AnsiStringToWideString(AnsiString(Ref)));
+  fWriter.WriteEndElement;
+  EndValue;
+end;
+
+procedure TROXmlRpcSerializer.ReadAnsiString(const aName: string; var Ref;
+  ArrayElementId, iMaxLength: integer);
+var
+  el: IXMLNode;
+begin
+  el := GetValueNodeContentsForName(aName);
+//  if el = nil then raise EROXmlRcpSerializerException.Create('Not a string');
+  if el = nil then
+  begin
+    AnsiString(Ref) := '';
+    exit;
+  end;
+  if el.Name <> 'string' then raise EROXmlRcpSerializerException.Create('Not a string');
+  AnsiString(Ref) := VarToAnsiStr(el.Value);
+end;
+
+{ TROSimpleXmlWriter }
+
+constructor TROSimpleXmlWriter.Create;
+begin
+  inherited Create;
+  fElementStack := TStringList.Create;
+  fOutput := TMemoryStream.Create;
+end;
+
+destructor TROSimpleXmlWriter.Destroy;
+begin
+  fOutput.Free;
+  fElementStack.Free;
+  inherited;
+end;
+
+procedure TROSimpleXmlWriter.SaveToStream(aDest: TStream);
+begin
+  if not fFinished then raise EROXmlRcpSerializerException.Create('XmlDocument not finished yet');
+  fOutput.Position := 0;
+  fOutput.SaveToStream(aDest);
+end;
+
+
+procedure TROSimpleXmlWriter.WriteAnsiString(const aValue: AnsiString);
+var
+  lInputValue: AnsiString;
+  lCurrPos, i: Integer;
+  lRealString: AnsiString;
+begin
+  lInputValue := aValue;
+  if fFinished then raise EROXmlRcpSerializerException.Create('XmlDocument already finished');
+  if fElementStack.Count = 0 then raise EROXmlRcpSerializerException.Create('Root element missing');
+  SetLength(lRealString, Length(lInputValue) + 16);
+  lCurrPos := 0;
+  for i :=  1 to length(lInputValue) do
+  begin
+    case lInputValue[i] of
+      '<':
+        begin
+          if lCurrPos + 4 > Length(lRealString) then
+            SetLength(lRealString, lCurrPos + 16 + 4);
+          lRealString[lCurrPos + 1] := '&';
+          lRealString[lCurrPos + 2] := 'l';
+          lRealString[lCurrPos + 3] := 't';
+          lRealString[lCurrPos + 4] := ';';
+          inc(lCurrPos, 4);
+        end;
+      '>':
+        begin
+          if lCurrPos + 4 > Length(lRealString) then
+            SetLength(lRealString, lCurrPos + 16 + 4);
+          lRealString[lCurrPos + 1] := '&';
+          lRealString[lCurrPos + 2] := 'g';
+          lRealString[lCurrPos + 3] := 't';
+          lRealString[lCurrPos + 4] := ';';
+          inc(lCurrPos, 4);
+        end;
+      '&':
+        begin
+          if lCurrPos + 5 > Length(lRealString) then
+            SetLength(lRealString, lCurrPos + 16 + 5);
+          lRealString[lCurrPos + 1] := '&';
+          lRealString[lCurrPos + 2] := 'a';
+          lRealString[lCurrPos + 3] := 'm';
+          lRealString[lCurrPos + 4] := 'p';
+          lRealString[lCurrPos + 5] := ';';
+          inc(lCurrPos, 5);
+        end;
+      '"':
+        begin
+          if lCurrPos + 6 > Length(lRealString) then
+            SetLength(lRealString, lCurrPos + 16 + 6);
+          lRealString[lCurrPos + 1] := '&';
+          lRealString[lCurrPos + 2] := 'q';
+          lRealString[lCurrPos + 3] := 'u';
+          lRealString[lCurrPos + 4] := 'o';
+          lRealString[lCurrPos + 5] := 't';
+          lRealString[lCurrPos + 6] := ';';
+          inc(lCurrPos, 6);
+        end;
+      else
+      begin
+        if lCurrPos + 1 > Length(lRealString) then
+          SetLength(lRealString, lCurrPos + 16 + 1);
+        Inc(lCurrPos);
+        lRealString[lCurrPos] := lInputValue[i];
+      end;
+    end;
+  end;
+  SetLength(lRealString, lCurrPos);
+  WriteRawAnsiString(lRealString);
+end;
+
+procedure TROSimpleXmlWriter.WriteEndElement;
+begin
+  if fFinished then raise EROXmlRcpSerializerException.Create('XmlDocument already finished');
+  if fElementStack.Count = 0 then raise EROXmlRcpSerializerException.Create('Root element missing');
+  WriteRawString('</' + fElementStack[fElementStack.Count -1] + '>');
+  fElementStack.Delete(fElementStack.Count -1);
+  if fElementStack.Count = 0 then fFinished := true;
+end;
+
+procedure TROSimpleXmlWriter.WriteRawAnsiString(const s: Ansistring);
+begin
+  if s <> '' then
+    fOutput.Write(s[1], Length(s));
+end;
+
+procedure TROSimpleXmlWriter.WriteRawString(const s: string);
+begin
+  WriteRawAnsiString(UTF8Encode(s));
+end;
+
+procedure TROSimpleXmlWriter.WriteStartElement(const aElementName: string);
+begin
+  if fFinished then raise EROXmlRcpSerializerException.Create('XmlDocument already finished');
+  fElementStack.Add(aElementName);
+  WriteRawString('<' + aElementName + '>');
+end;
+
+{$IFDEF UNICODE}
+procedure TROSimpleXmlWriter.WriteString(const aValue: UnicodeString);
+begin
+  WriteAnsiString(UTF8Encode(aValue));
+end;
+{$ENDIF}
+
+procedure TROSimpleXmlWriter.WriteString(const aValue: WideString);
+begin
+  WriteAnsiString(UTF8Encode(aValue));
+end;
+
+initialization
+  RegisterMessageClass(TROXmlRpcMessage);
+finalization
+  UnregisterMessageClass(TROXmlRpcMessage);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConf.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConf.pas
new file mode 100644
index 0000000..012ea4f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConf.pas	
@@ -0,0 +1,1726 @@
+unit uROZeroConf;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  SysUtils, Classes,
+  uROClient,uROServer,uROServerIntf, uROClasses,
+  uROmDNS, uROZeroConfHub, uROZeroConfStreamWorker;
+
+const
+  AllLocalServices = '_services._dns-sd._udp.';
+
+type
+  TROZeroConfEngine = (zceAuto, zceBonjour, zceROZeroConfHub, zceNone);
+  TIpType = (ipkAny, iptIP4, iptIP6);
+  TROZeroConfRegistration = class;
+  TROZeroConfBrowser = class;
+  TROZeroConfService = class;
+
+  TROBaseZeroConf = class(TROComponent)
+  private
+    FEngine: TROZeroConfEngine;
+    FDomain: Unicodestring;
+    function GetHubClientClass(dummy: boolean): TZeroConfHubClientClass;
+    procedure SetDomain(const Value: Unicodestring);
+  protected
+    procedure TriggerFailed(const ACurrentEngine: TROZeroConfEngine;anException: Exception); virtual; abstract;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Engine: TROZeroConfEngine read FEngine write FEngine default zceAuto;
+    property Domain: Unicodestring read FDomain write SetDomain;
+  end;
+
+{$IFDEF DELPHI10UP}{$REGION 'TROZeroConfRegistration'}{$ENDIF DELPHI10UP}
+
+  {$IFDEF DELPHI10UP}{$REGION 'IZeroConfRegistrationStrategy'}{$ENDIF DELPHI10UP}
+  IZeroConfRegistrationStrategy = interface
+    procedure RegisterService(const aDomain, aServiceType, aServiceName: UnicodeString; const aPort: integer; aTxtRecord: AnsiString);
+    procedure Stop;
+    function GetCurrentEngineType: TROZeroConfEngine;
+  end;
+
+  TBaseZeroConfRegistrationEngine = class(TInterfacedObject,IZeroConfRegistrationStrategy)
+  protected
+    procedure RegisterService(const aDomain, aServiceType, aServiceName: UnicodeString; const aPort: integer; aTxtRecord: AnsiString); virtual; abstract;
+    procedure Stop; virtual; abstract;
+    function GetCurrentEngineType: TROZeroConfEngine;virtual; abstract;
+  public
+    destructor Destroy; override;
+  end;
+
+  TROZeroConfRegistrationEngine = class
+  private
+    fRegistrationStrategy: IZeroConfRegistrationStrategy;
+    fOwner: TROZeroConfRegistration;
+    fDomain, fServiceType, fServiceName: UnicodeString;
+    fPort: integer;
+    fTxtRecord: AnsiString;
+    procedure RegistrationSucceeded;
+    procedure RegistrationFailed(anException: Exception);
+    function CreateHubStrategy:IZeroConfRegistrationStrategy;
+    procedure InternalRegisterService;
+    function IsNeedToCreateException: Boolean;
+  protected
+    procedure RegisterService(const aDomain, aServiceType, aServiceName: UnicodeString; const aPort: integer; aTxtRecord: AnsiString);
+    procedure Stop;
+    function GetCurrentEngineType: TROZeroConfEngine;
+  public
+    constructor Create(aOwner: TROZeroConfRegistration);
+    destructor Destroy; override;
+  end;
+
+  TROBonjourRegistrationStrategy = class(TBaseZeroConfRegistrationEngine)
+  private
+    fService : TRORegisterNetService;
+    FOwner: TROZeroConfRegistrationEngine;
+    procedure RegError(Sender: TRODNSService; anErrorCode: DNSServiceErrorType);
+  protected
+    procedure RegisterService(const aDomain, aServiceType, aServiceName: UnicodeString; const aPort: integer; aTxtRecord: AnsiString);override;
+    procedure Stop;override;
+    function GetCurrentEngineType: TROZeroConfEngine;override;
+  private
+    constructor Create(const AOwner: TROZeroConfRegistrationEngine);
+  end;
+
+  TROHubRegistrationStrategy = class(TBaseZeroConfRegistrationEngine)
+  private
+    fEngine: TROZeroConfRegistrationEngine;
+    fClient: TZeroConfHubClient;
+    fHubClientClass: TZeroConfHubClientClass;
+  protected
+    procedure RegisterService(const aDomain, aServiceType, aServiceName: UnicodeString; const aPort: integer; aTxtRecord: AnsiString);override;
+    procedure Stop;override;
+    function GetCurrentEngineType: TROZeroConfEngine;override;
+  public
+    constructor Create(const AEngine: TROZeroConfRegistrationEngine;const AHubClientClass: TZeroConfHubClientClass);
+  end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+  TROZeroConfRegistrationFailedEvent = procedure(Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine; anException: Exception) of object;
+  TROZeroConfRegistrationSuccessEvent = procedure(Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine) of object;
+
+  TROZeroConfRegistration = class(TROBaseZeroConf)
+  private
+    FRegistrationEngine: TROZeroConfRegistrationEngine;
+    FTXTRecordData: Unicodestring;
+    FServer: TROServer;
+    FServerName: UnicodeString;
+    FIsRegistrationFailed: Boolean;
+    fRegistrationFailed: TROZeroConfRegistrationFailedEvent;
+    fRegistrationSucceeded: TROZeroConfRegistrationSuccessEvent;
+    procedure SetServerName(const Value: Unicodestring);
+    procedure SetServer(const Value: TROServer);
+    procedure BuildServerChannelTXTRecord(aServer: TROServer);
+    procedure RegisterServices(ClassFactory: IROClassFactory; aServer: TROServer);
+    procedure RegisterAllServices(aServer: TROServer);
+    Procedure ROServer_AfterOpen(Value: TObject);
+    Procedure ROServer_BeforeClose(Value: TObject);
+    procedure TriggerServiceRegistrationSucceeded(const ACurrentEngine: TROZeroConfEngine);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    procedure TriggerFailed(const ACurrentEngine: TROZeroConfEngine;anException: Exception); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  public
+    property ServerName: UnicodeString read FServerName write SetServerName;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Server: TROServer read FServer write SetServer;
+    property IsRegistrationFailed: Boolean read FIsRegistrationFailed default False;
+    property RegistrationFailed: TROZeroConfRegistrationFailedEvent read fRegistrationFailed write fRegistrationFailed;
+    property RegistrationSucceeded: TROZeroConfRegistrationSuccessEvent read fRegistrationSucceeded write fRegistrationSucceeded;
+  end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+{$IFDEF DELPHI10UP}{$REGION 'TROZeroConfBrowser'}{$ENDIF DELPHI10UP}
+{$IFDEF DELPHI10UP}{$REGION 'IZeroConfBrowseStrategy'}{$ENDIF DELPHI10UP}
+  IZeroConfBrowseStrategy = interface
+    procedure Start(const aDomain, aServiceType: UnicodeString);
+    procedure Stop;
+    function GetCurrentEngineType: TROZeroConfEngine;
+  end;
+
+  TBaseZeroConfBrowseStrategy = class(TInterfacedObject, IZeroConfBrowseStrategy)
+  protected
+    procedure Start(const aDomain, aServiceType: UnicodeString); virtual; abstract;
+    procedure Stop; virtual; abstract;
+    function GetCurrentEngineType: TROZeroConfEngine; virtual; abstract;
+  public
+    destructor Destroy; override;
+  end;
+
+  TROZeroConfBrowseEngine = class
+  private
+    fBrowseStrategy: IZeroConfBrowseStrategy;
+    fDomain, fServiceType: UnicodeString;
+    procedure InternalStart;
+    function CreateHubStrategy:IZeroConfBrowseStrategy;
+    procedure TriggerError(anException: Exception);
+    function IsNeedToCreateException: Boolean;
+  protected
+    fOwner: TROZeroConfBrowser;
+    procedure Start(const aDomain, aServiceType: UnicodeString);
+    procedure Stop;
+    function GetCurrentEngineType: TROZeroConfEngine;
+    procedure TriggerBrowse(const Add: boolean; const AServiceName, aServiceType, aDomain: Unicodestring);virtual;
+    procedure InternalTriggerError(anException: Exception);virtual;
+  public
+    constructor Create(aOwner: TROZeroConfBrowser); virtual;
+    destructor Destroy; override;
+  end;
+
+  TROBonjourBrowseStrategy = class(TBaseZeroConfBrowseStrategy)
+  private
+    fBrowse: TROBrowseNetService;
+    fEngine: TROZeroConfBrowseEngine;
+    procedure cbError(Sender: TRODNSService; anErrorCode: DNSServiceErrorType);
+    procedure cbBrowse(service: TRONetService; Add: boolean; AName, aType, aDomain: Unicodestring);
+  protected
+    procedure Start(const aDomain, aServiceType: UnicodeString); override;
+    procedure Stop; override;
+    function GetCurrentEngineType: TROZeroConfEngine; override;
+  public
+    constructor Create(aEngine: TROZeroConfBrowseEngine);
+  end;
+
+  TROHubBrowseStrategy = class(TBaseZeroConfBrowseStrategy)
+  private
+    fEngine: TROZeroConfBrowseEngine;
+    fClient: TZeroConfHubClient;
+    fHubClientClass: TZeroConfHubClientClass;
+  protected
+    procedure Start(const aDomain, aServiceType: UnicodeString); override;
+    procedure Stop; override;
+    function GetCurrentEngineType: TROZeroConfEngine; override;
+  private
+    constructor Create(const aEngine: TROZeroConfBrowseEngine; const aHubClientClass: TZeroConfHubClientClass);
+  end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+
+  IZeroConfResolveStrategy = interface
+    function TryResolve(aTimeout: integer): Boolean;
+    procedure Resolve(aTimeout: integer);
+    function GetCurrentEngineType: TROZeroConfEngine;
+  end;
+
+  TROBaseZeroConfResolveStrategy = class(TInterfacedObject,IZeroConfResolveStrategy)
+  protected
+    function TryResolve(aTimeout: integer): Boolean; virtual; abstract;
+    procedure Resolve(aTimeout: integer); virtual; abstract;
+    function GetCurrentEngineType: TROZeroConfEngine; virtual; abstract;
+  end;
+
+  TROZeroConfResolveEngine = class
+  private
+    fConfService: TROZeroConfService;
+    fResolveStrategy: IZeroConfResolveStrategy;
+    fRaiseException: Boolean;
+    fTimeOut: Integer;
+    function IntResolve(ADetectEngine: Boolean = False): Boolean;
+    function CreateHubStrategy: TROBaseZeroConfResolveStrategy;
+    function TriggerError(var aReRaise: Boolean): boolean;
+  protected
+    function TryResolve(aTimeout: integer): Boolean;
+    procedure Resolve(aTimeout: integer);
+    function GetCurrentEngineType: TROZeroConfEngine;
+  public
+    constructor Create(aConfService: TROZeroConfService);
+    destructor Destroy; override;
+  end;
+
+  TROBonjourResolveStrategy = class(TROBaseZeroConfResolveStrategy)
+  private
+    fEngine: TROZeroConfResolveEngine;
+    function IntResolve(aTimeout: integer): DNSServiceErrorType;
+  protected
+    function TryResolve(aTimeout: integer): Boolean; override;
+    procedure Resolve(aTimeout: integer); override;
+    function GetCurrentEngineType: TROZeroConfEngine; override;
+  public
+    constructor Create(aEngine: TROZeroConfResolveEngine);
+  end;
+
+  TROHubResolveStrategy = class(TROBaseZeroConfResolveStrategy)
+  private
+    fEngine: TROZeroConfResolveEngine;
+    fClient: TZeroConfHubClient;
+    fHubClientClass: TZeroConfHubClientClass;
+    function IntResolve(aTimeout: integer): Boolean;
+  protected
+    function TryResolve(aTimeout: integer): Boolean; override;
+    procedure Resolve(aTimeout: integer); override;
+    function GetCurrentEngineType: TROZeroConfEngine; override;
+  public
+    constructor Create(aEngine: TROZeroConfResolveEngine;const AHubClientClass: TZeroConfHubClientClass);
+    destructor Destroy; override;
+  end;
+
+  TROZeroConfBrowseAndResolveEngine = class(TROZeroConfBrowseEngine)
+  private
+    fEvent: TROEvent;
+    fFullDomainName: UnicodeString;
+    fHostTarget: UnicodeString;
+    fPort: integer;
+    fTxtRecord: UnicodeString;
+    fAddresses: string;
+    fIpType : TIpType;
+    fError: Boolean;
+    FTimeout: integer;
+  protected
+    function BrowseAndResolve(aTimeout: integer; const aDomain, aServiceType, aHostTarget: UnicodeString;
+      out aFullDomainName: UnicodeString; out aPort: integer;out aTxtRecord: UnicodeString; out aAddresses: string; aIpType: TIpType = ipkAny): Boolean;
+    procedure TriggerBrowse(const Add: boolean; const AServiceName, aServiceType, aDomain: Unicodestring);override;
+    procedure InternalTriggerError(anException: Exception);override;
+  public
+    constructor Create(aOwner: TROZeroConfBrowser); override;
+    destructor Destroy; override;
+  end;
+
+
+  TROZeroConfService = class
+  private
+    FBrowser: TROZeroConfBrowser;
+    FServiceType: UnicodeString;
+    FDomain: UnicodeString;
+    FServiceName: UnicodeString;
+    FDefEngine, FResolvedEngine: TROZeroConfEngine;
+    FResolved: Boolean;
+    fFullDomainName:UnicodeString;
+    FHostTarget:UnicodeString;
+    FTextRecord: Ansistring;
+    fIpType: integer;
+    fPort: cardinal;
+    fIP4Address, fIP6Address: string;
+    fResolvedIP4, fResolvedIP6: boolean;
+    function GetFullDomainName: UnicodeString;
+    function GetHostTarget: UnicodeString;
+    procedure CheckResolved;
+    function GetPort: cardinal;
+    function GetTextRecord: UnicodeString;
+    function GetAddress: string;
+    function GetIP4Address: string;
+    function GetIP6Address: string;
+    function GetResolvedIP4: boolean;
+    function GetResolvedIP6: boolean;
+    function GetResolvedEngine: TROZeroConfEngine;
+  public
+    constructor Create(aBrowser: TROZeroConfBrowser; aDefEngine: TROZeroConfEngine; aDomain, aServiceName, aServiceType: UnicodeString; aIpType: TIpType = ipkAny);
+    function TryResolve: boolean; overload;
+    function TryResolve(aTimeout: integer): boolean;overload;
+    procedure Resolve;overload;
+    procedure Resolve(aTimeout: integer);overload;
+    property Domain: UnicodeString read FDomain;
+    property ServiceName: UnicodeString read FServiceName;
+    property ServiceType: UnicodeString read FServiceType;
+    property DefEngine: TROZeroConfEngine read FDefEngine;
+    property ResolvedEngine : TROZeroConfEngine read GetResolvedEngine;
+    property FullDomainName: UnicodeString read GetFullDomainName;
+    property HostTarget: UnicodeString read GetHostTarget;
+    property TextRecord: UnicodeString read GetTextRecord;
+    Property IP4Address: string read GetIP4Address;
+    Property IP6Address: string read GetIP6Address;
+    property ResolvedIP6: boolean read GetResolvedIP6;
+    property ResolvedIP4: boolean read GetResolvedIP4;
+    property Port: cardinal read GetPort;
+    Property Address: string read GetAddress;
+    property Resolved: Boolean read FResolved;
+  end;
+
+  TROZeroConfBrowserError = procedure(Sender: TROZeroConfBrowser; const ACurrentEngine: TROZeroConfEngine; anException: Exception) of object;
+  TROZeroConfBrowserResultEvent = procedure(Sender: TROZeroConfBrowser; aRecord:TROZeroConfService) of object;
+
+  EDNSServiceException = class(Exception)
+  private
+    fErrorCode:DNSServiceErrorType;
+  public
+    constructor Create(const Msg :String; const aErrorCode: DNSServiceErrorType);
+    property ErrorCode: DNSServiceErrorType read fErrorCode;
+  end;
+
+  TROZeroConfBrowser = class(TROBaseZeroConf)
+  private
+    fBrowseEngine: TROZeroConfBrowseEngine;
+    FServiceType: Unicodestring;
+    FActive: Boolean;
+    FStreamedActive: Boolean;
+    FOnServiceAdded: TROZeroConfBrowserResultEvent;
+    FOnServiceRemoved: TROZeroConfBrowserResultEvent;
+    FResults: TThreadList;
+    //
+    FResolveResult: integer;
+    FResolveHostTarget : UnicodeString;
+    FOnError: TROZeroConfBrowserError;
+    //
+    procedure SetServiceType(const Value: Unicodestring);
+    procedure SetActive(const Value: Boolean);
+    procedure Start;
+    procedure IntBrowseResult(const ACurrentEngine: TROZeroConfEngine; Add: boolean; AName, aType, aDomain: Unicodestring);
+    procedure ClearCache;
+  protected
+    procedure Loaded; override;
+    procedure TriggerFailed(const ACurrentEngine: TROZeroConfEngine; anException: Exception); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure Stop;
+    function BrowseAndResolve(aTimeout: integer;const AHostTarget: UnicodeString; out fullDomainName: Unicodestring; out port: integer; out txtRecord: unicodestring; out addresses: string; aIpType: TIpType = ipkAny):Boolean;overload;
+    function BrowseAndResolve(const AHostTarget: UnicodeString; out fullDomainName: Unicodestring; out port: integer; out txtRecord: unicodestring; out addresses: string; aIpType: TIpType = ipkAny):Boolean;overload;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Active: Boolean read FActive write SetActive;
+    property ServiceType: Unicodestring read FServiceType write SetServiceType;
+    property OnError: TROZeroConfBrowserError read FOnError write FOnError;
+    property OnServiceAdded: TROZeroConfBrowserResultEvent read FOnServiceAdded write FOnServiceAdded;
+    property OnServiceRemoved: TROZeroConfBrowserResultEvent read FOnServiceRemoved write FOnServiceRemoved;
+  end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+implementation
+uses
+  DateUtils, uROZeroConfHubSynapse;
+{ TROZeroConfRegistration }
+
+procedure TROZeroConfRegistration.Assign(Source: TPersistent);
+var
+  lSource: TROZeroConfRegistration;
+begin
+  inherited;
+  if Source is TROZeroConfRegistration then begin
+    lSource := TROZeroConfRegistration(Source);
+
+    RegistrationFailed := lSource.RegistrationFailed;
+    RegistrationSucceeded := lSource.RegistrationSucceeded;
+    Server := lSource.Server;
+  end;
+end;
+
+procedure TROZeroConfRegistration.BuildServerChannelTXTRecord(
+  aServer: TROServer);
+
+  procedure AddValue(aName,aValue: UnicodeString);
+  begin
+    if FTXTRecordData <>'' then FTXTRecordData:=FTXTRecordData+#13#10;
+    FTXTRecordData :=FTXTRecordData+ aName+'='+aValue;
+  end;
+
+var
+  szc: IZeroConfServerChannel;
+  i: integer;
+  s,s1: UnicodeString;
+begin
+  FTXTRecordData := '';
+  if aServer <> nil then begin
+    AddValue('txtvers','1');
+    {$IFNDEF FPC}
+    AddValue('rosdk-edition','Delphi');
+    {$ELSE}
+      {$IFDEF LCL}
+        AddValue('rosdk-edition','Lazarus');
+      {$ELSE}
+        AddValue('rosdk-edition','FreePascal');
+      {$ENDIF}
+    {$ENDIF}
+    // AddValue('rosdk-version',???);
+    // AddValue('runtime-version',???);
+    {$IFDEF MSWINDOWS}
+    case Win32Platform of
+      VER_PLATFORM_WIN32s : AddValue('platform','Wins');
+      VER_PLATFORM_WIN32_WINDOWS : AddValue('platform','Windows');
+      VER_PLATFORM_WIN32_NT : AddValue('platform','WinNT');
+    else
+      // VER_PLATFORM_WIN32_CE = 3;
+      AddValue('platform','WinCE');
+    end;
+    {$ELSE}
+      {$IFDEF FPC}
+       AddValue('platform',{$I %FPCTARGETOS%});
+      {$ENDIF}
+    {$ENDIF}
+    if Supports(aServer,IZeroConfServerChannel, szc) then begin
+      case szc.GetServerType of
+        rstTCP: AddValue('channel','tcp');
+        rstHTTP: AddValue('channel','http');
+        rstUDP: AddValue('channel','udp');
+        rstSuperHTTP: AddValue('channel','superhttp');
+        rstSuperTCP: AddValue('channel','supertcp');
+      else
+        AddValue('channel','unknown');
+      end;
+    end;
+    if aServer.Dispatchers.Count > 0 then begin
+      s:= '';
+      for i := 0 to aServer.Dispatchers.Count - 1 do begin
+        if s <> '' then s:= s+ ', ';
+        s1:= aServer.Dispatchers[i].Message.ClassName;
+        s1 := StringReplace(s1, 'Message', '', []);
+        s1 := StringReplace(s1, 'TRO', '', []);
+        s:= s+ LowerCase(s1);
+      end;
+      AddValue('messages',s);
+    end;
+  end;
+end;
+
+constructor TROZeroConfRegistration.Create(AOwner: TComponent);
+begin
+  inherited;
+  FIsRegistrationFailed:= False;
+  fRegistrationEngine := TROZeroConfRegistrationEngine.Create(self);
+end;
+
+destructor TROZeroConfRegistration.Destroy;
+begin
+  Server := nil;
+  FreeAndNil(FRegistrationEngine);
+  inherited;
+end;
+
+procedure TROZeroConfRegistration.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited;
+  if (Operation = opRemove) and (AComponent=FServer) then Server:=nil;
+end;
+
+procedure TROZeroConfRegistration.RegisterAllServices(aServer: TROServer);
+var
+  lcfn: IROStrings;
+  i: integer;
+begin
+  lcfn := GetZeroConfClassFactoryNames;
+  for I := 0 to lcfn.Count - 1 do
+    RegisterServices(GetClassFactory(lCfn[i]),aServer);
+end;
+{$IFDEF FPC}{$HINTS OFF}{$ENDIF}
+{$IFDEF FPC}{$HINTS ON}{$ENDIF}
+
+procedure TROZeroConfRegistration.RegisterServices(
+  ClassFactory: IROClassFactory; aServer: TROServer);
+var
+  i: integer;
+  cfz:IROClassFactory_ZeroConfig;
+  sz: IZeroConfServerChannel;
+  lPort: integer;
+begin
+  if Supports(ClassFactory, IROClassFactory_ZeroConfig, cfz) then begin
+//    ServerName := ClassFactory.InterfaceName;
+    if Supports(aServer, IZeroConfServerChannel, sz) then lPort:=sz.Port else lPort:=0;
+    for I := 0 to cfz.GetAliasNames.Count - 1 do
+      fRegistrationEngine.RegisterService(FDomain, cfz.GetAliasNames[i], ServerName, lPort, TXTRecordFromString(FTXTRecordData));
+  end;
+end;
+
+procedure TROZeroConfRegistration.ROServer_AfterOpen(Value: TObject);
+begin
+  if (csDesigning in ComponentState) then Exit;
+  BuildServerChannelTXTRecord(TROServer(Value));
+  RegisterAllServices(TROServer(Value));
+end;
+
+{$IFDEF FPC}{$HINTS OFF}{$ENDIF}
+procedure TROZeroConfRegistration.ROServer_BeforeClose(Value: TObject);
+begin
+  fRegistrationEngine.Stop;
+end;
+{$IFDEF FPC}{$HINTS ON}{$ENDIF}
+
+procedure TROZeroConfRegistration.SetServer(const Value: TROServer);
+var
+  zc: IZeroConfServerChannel;
+  ev: TNotifyEvent;
+begin
+  if FServer <> Value then begin
+    if Assigned(FServer) then begin
+      FServer.RORemoveFreeNotification(Self);
+      if Supports(FServer, IZeroConfServerChannel,zc) then begin
+        zc.Z_SetAfterOpen(nil);
+        zc.Z_SetBeforeClose(nil);
+        ROServer_BeforeClose(FServer);
+        zc.ZeroConfRegistrationServer := nil;
+      end;
+    end;
+    FServer := nil;
+    if Value <> nil then begin
+      if Supports(Value, IZeroConfServerChannel,zc) then begin
+        if (zc.ZeroConfRegistrationServer <> nil) then
+          raise Exception.CreateFmt('%s cannot be used with %s because it is already linked with %s ',[Self.Name, Server.Name, TROZeroConfRegistration(zc.ZeroConfRegistrationServer).Name]);
+        FServer := Value;
+        FServer.ROFreeNotification(Self);
+        zc.ZeroConfRegistrationServer:=Self;
+        if FServer.Active then ROServer_AfterOpen(FServer);        
+        ev := ROServer_AfterOpen;
+        zc.Z_SetAfterOpen(ev);
+        ev := ROServer_BeforeClose;
+        zc.Z_SetBeforeClose(ev);
+      end
+      else begin
+        raise Exception.Create(Value.Name + ' does not compatible with '+ClassName);
+      end;
+    end;
+  end;
+end;
+
+
+procedure TROZeroConfRegistration.SetServerName(const Value: Unicodestring);
+begin
+  FServerName := Value;
+end;
+
+procedure TROZeroConfRegistration.TriggerFailed(const ACurrentEngine: TROZeroConfEngine;anException: Exception);
+begin
+  fIsRegistrationFailed := true;
+  if Assigned(fRegistrationFailed) then fRegistrationFailed(self,ACurrentEngine, anException);
+end;
+
+procedure TROZeroConfRegistration.TriggerServiceRegistrationSucceeded(const ACurrentEngine: TROZeroConfEngine);
+begin
+  fIsRegistrationFailed := false;
+  if Assigned(fRegistrationSucceeded) then fRegistrationSucceeded(self, ACurrentEngine);
+end;
+
+{ TROZeroConfBrowser }
+
+function TROZeroConfBrowser.BrowseAndResolve(aTimeout: integer;
+  const AHostTarget: UnicodeString; out fullDomainName: Unicodestring;
+  out port: integer; out txtRecord: unicodestring; out addresses: string; aIpType: TIpType = ipkAny): Boolean;
+var
+  lBrowseAndResolveEngine: TROZeroConfBrowseAndResolveEngine;
+begin
+  FResolveResult := 0;
+  FResolveHostTarget := AHostTarget;
+  if not EndsWith(FDomain, FResolveHostTarget) then FResolveHostTarget := FResolveHostTarget +'.' +FDomain;
+  lBrowseAndResolveEngine := TROZeroConfBrowseAndResolveEngine.Create(Self);
+  try
+    Result := lBrowseAndResolveEngine.BrowseAndResolve(aTimeout, FDomain, FServiceType, FResolveHostTarget, fullDomainName, port, txtRecord, addresses, aIpType);
+  finally
+    FreeAndNil(lBrowseAndResolveEngine);
+  end;
+end;
+
+procedure TROZeroConfBrowser.Assign(Source: TPersistent);
+var
+  lSource: TROZeroConfBrowser;
+begin
+  if Active then raise EROException.Create( Self.Name+' must be stopped before assigning');
+  inherited;
+  if Source is TROZeroConfBrowser then begin
+    lSource := TROZeroConfBrowser(Source);
+
+    OnError := lSource.OnError;
+    OnServiceAdded := lSource.OnServiceAdded;
+    OnServiceRemoved := lSource.OnServiceRemoved;
+    ServiceType := lSource.ServiceType;
+  end;
+end;
+
+function TROZeroConfBrowser.BrowseAndResolve(const AHostTarget: UnicodeString;
+  out fullDomainName: Unicodestring; out port: integer; out txtRecord: unicodestring;
+  out addresses: string; aIpType: TIpType = ipkAny): Boolean;
+begin
+  Result:= BrowseAndResolve(15, AHostTarget, fullDomainName, port, txtRecord, addresses, aIpType);
+end;
+
+procedure TROZeroConfBrowser.ClearCache;
+begin
+  With FResults.LockList do try
+    while Count > 0 do begin
+      TObject(Items[0]).Free;
+      Delete(0);
+    end;
+  finally
+    FResults.UnlockList;
+  end;
+end;
+
+constructor TROZeroConfBrowser.Create(AOwner: TComponent);
+begin
+  inherited;
+  FResults := TThreadList.Create;
+  FServiceType := AllLocalServices;
+  fBrowseEngine := TROZeroConfBrowseEngine.Create(Self);
+end;
+
+destructor TROZeroConfBrowser.Destroy;
+begin
+  Stop;
+  FreeAndNil(fBrowseEngine);
+  FResults.Free;
+  inherited;
+end;
+
+{$IFDEF FPC}{$HINTS OFF}{$ENDIF}
+
+procedure TROZeroConfBrowser.IntBrowseResult(const ACurrentEngine: TROZeroConfEngine; Add: boolean; AName, aType, aDomain: Unicodestring);
+var
+  lRes: TROZeroConfService;
+  i: integer;
+begin
+  lRes := nil;
+  with FResults.LockList do try
+    for I := 0 to Count - 1 do
+      with TROZeroConfService(Items[i]) do
+        if (ServiceType = aType) and (Domain = aDomain) and (ServiceName = AName) and
+           (DefEngine = ACurrentEngine) then begin
+          lRes := TROZeroConfService(Items[i]);
+          Break;
+        end;
+  finally
+    FResults.UnlockList;
+  end;
+  if Add then begin
+    if lRes <> nil then Exit;
+    lRes := TROZeroConfService.Create(Self, ACurrentEngine,aDomain, AName, aType);
+    FResults.Add(lRes);
+    if Assigned(onServiceAdded) then onServiceAdded(Self,lRes);
+  end
+  else begin
+    if lRes <> nil then begin
+      FResults.Remove(lRes);
+      try
+        if Assigned(onServiceRemoved) then onServiceRemoved(Self,lRes);
+      finally
+        lRes.Free;
+      end;
+    end;
+  end;
+end;
+{$IFDEF FPC}{$HINTS ON}{$ENDIF}
+
+procedure TROZeroConfBrowser.Loaded;
+begin
+  inherited;
+  if fStreamedActive then Active:=True;
+end;
+
+procedure TROZeroConfBrowser.SetActive(const Value: Boolean);
+begin
+  if csLoading in ComponentState then begin
+    fStreamedActive := Value
+  end
+  else if FActive <> Value then begin
+    FActive := Value;
+    if (csDesigning in ComponentState) then Exit;
+    if Value then Start else Stop;
+  end;
+end;
+
+
+
+procedure TROZeroConfBrowser.SetServiceType(const Value: Unicodestring);
+begin
+  FServiceType := Value;
+end;
+
+procedure TROZeroConfBrowser.Start;
+begin
+  fBrowseEngine.Start(FDomain, FServiceType);
+  fActive := True;
+end;
+
+procedure TROZeroConfBrowser.Stop;
+begin
+  if (fBrowseEngine <> nil) then  fBrowseEngine.Stop;
+  fActive := False;
+  ClearCache;
+end;
+
+
+procedure TROZeroConfBrowser.TriggerFailed(
+  const ACurrentEngine: TROZeroConfEngine; anException: Exception);
+begin
+  if Assigned(fOnError) then FOnError(Self, ACurrentEngine, anException);
+end;
+
+{ TROZeroConfService }
+
+procedure TROZeroConfService.CheckResolved;
+begin
+  if (not fResolved) then raise Exception.Create('Not resolved yet');
+end;
+
+constructor TROZeroConfService.Create(aBrowser: TROZeroConfBrowser; aDefEngine: TROZeroConfEngine; aDomain, aServiceName, aServiceType: UnicodeString; aIpType: TIpType = ipkAny);
+begin
+  inherited Create;
+  fBrowser := aBrowser;
+  FServiceType := aServiceType;
+  FDomain := aDomain;
+  FServiceName := aServiceName;
+  fDefEngine := aDefEngine;
+  case aIpType of
+    iptIP4: fIpType := AF_INET;
+    iptIP6: fIpType := AF_INET6;
+  else
+    fIpType := AF_UNSPEC;
+  end;
+end;
+
+function TROZeroConfService.GetAddress: string;
+begin
+  CheckResolved;
+  Result := fIP6Address;
+  if (Result = '') or (fIpType <> AF_INET6) then
+    Result := fIP4Address;
+end;
+
+function TROZeroConfService.GetFullDomainName: UnicodeString;
+begin
+  CheckResolved;
+  Result := fFullDomainName;
+end;
+
+function TROZeroConfService.GetHostTarget: UnicodeString;
+begin
+  CheckResolved;
+  Result := FHostTarget;
+end;
+
+function TROZeroConfService.GetIP4Address: string;
+begin
+  CheckResolved;
+  Result := FIP4Address;
+end;
+
+function TROZeroConfService.GetIP6Address: string;
+begin
+  CheckResolved;
+  Result := FIP6Address;
+end;
+
+function TROZeroConfService.GetPort: cardinal;
+begin
+  CheckResolved;
+  Result := fPort;
+end;
+
+
+function TROZeroConfService.GetResolvedEngine: TROZeroConfEngine;
+begin
+  CheckResolved;
+  Result := FResolvedEngine;
+end;
+
+function TROZeroConfService.GetResolvedIP4: boolean;
+begin
+  CheckResolved;
+  Result := fResolvedIP4;
+end;
+
+function TROZeroConfService.GetResolvedIP6: boolean;
+begin
+  CheckResolved;
+  Result := fResolvedIP6;
+end;
+
+function TROZeroConfService.GetTextRecord: UnicodeString;
+begin
+  CheckResolved;
+  Result := StringFromTXTRecord(FTextRecord);
+end;
+
+procedure TROZeroConfService.Resolve;
+begin
+  Resolve(10);
+end;
+
+procedure TROZeroConfService.Resolve(aTimeout: integer);
+var
+  lEngine : TROZeroConfResolveEngine;
+begin
+  lEngine := TROZeroConfResolveEngine.Create(Self);
+  try
+    lEngine.Resolve(aTimeout);
+  finally
+    FreeAndNil(lEngine);
+  end;
+end;
+
+function TROZeroConfService.TryResolve(aTimeout: integer): boolean;
+var
+  lEngine : TROZeroConfResolveEngine;
+begin
+  lEngine := TROZeroConfResolveEngine.Create(Self);
+  try
+    Result := lEngine.TryResolve(aTimeout);
+  finally
+    FreeAndNil(lEngine);
+  end;
+end;
+
+function TROZeroConfService.TryResolve: boolean;
+begin
+  result := TryResolve(10);
+end;
+
+{ EDNSServiceException }
+
+constructor EDNSServiceException.Create(const Msg :String; const aErrorCode: DNSServiceErrorType);
+begin
+  inherited Create(Msg);
+  FErrorCode := aErrorCode;
+end;
+
+{ TROBaseZeroConf }
+
+function TROBaseZeroConf.GetHubClientClass(dummy: boolean): TZeroConfHubClientClass;
+begin
+  Result := TZeroConfHubSynapseClient;
+end;
+
+procedure TROBaseZeroConf.Assign(Source: TPersistent);
+var
+  lSource: TROBaseZeroConf;
+begin
+  inherited;
+  if Source is TROBaseZeroConf then begin
+    lSource := TROBaseZeroConf(Source);
+
+    Domain := lSource.Domain;
+    Engine := lSource.Engine;
+  end;
+end;
+
+constructor TROBaseZeroConf.Create(AOwner: TComponent);
+begin
+  inherited;
+  FEngine := zceAuto;
+end;
+
+destructor TROBaseZeroConf.Destroy;
+begin
+  inherited;
+end;
+
+procedure TROBaseZeroConf.SetDomain(const Value: Unicodestring);
+begin
+  FDomain := Value;
+  if (FDomain <> '') and (FDomain[Length(FDomain)] <> '.') then FDomain := FDomain+'.'
+end;
+
+{$IFDEF DELPHI10UP}{$REGION 'IZeroConfRegistrationStrategy'}{$ENDIF DELPHI10UP}
+{ TROZeroConfRegistrationEngine }
+
+constructor TROZeroConfRegistrationEngine.Create(aOwner: TROZeroConfRegistration);
+begin
+  inherited Create;
+  fOwner := aOwner;
+end;
+
+function TROZeroConfRegistrationEngine.CreateHubStrategy: IZeroConfRegistrationStrategy;
+var
+  lClientClass: TZeroConfHubClientClass;
+begin
+  lClientClass := fOwner.GetHubClientClass(fOwner.Engine = zceROZeroConfHub);
+  if Assigned(lClientClass) then
+    Result := TROHubRegistrationStrategy.Create(Self, lClientClass)
+  else
+    Result := nil;
+end;
+
+destructor TROZeroConfRegistrationEngine.Destroy;
+begin
+  Stop;
+  inherited;
+end;
+
+function TROZeroConfRegistrationEngine.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  if fRegistrationStrategy <> nil then
+    Result := fRegistrationStrategy.GetCurrentEngineType
+  else
+    Result := fOwner.Engine;
+end;
+
+procedure TROZeroConfRegistrationEngine.InternalRegisterService;
+begin
+  if fRegistrationStrategy = nil then Exit;
+  try
+    fRegistrationStrategy.RegisterService(fDomain, fServiceType, fServiceName, fPort, fTxtRecord);
+  except
+    on E: Exception do begin
+      RegistrationFailed(E);
+    end;
+  end;
+end;
+
+function TROZeroConfRegistrationEngine.IsNeedToCreateException: Boolean;
+begin
+  Result :=
+    not ((fRegistrationStrategy.GetCurrentEngineType = zceBonjour) and
+    (fOwner.Engine = zceAuto) and
+    Assigned(fOwner.GetHubClientClass(False)));
+end;
+
+procedure TROZeroConfRegistrationEngine.RegisterService(const aDomain,
+  aServiceType, aServiceName: UnicodeString; const aPort: integer;
+  aTxtRecord: AnsiString);
+var
+  lEngine: TROZeroConfEngine;  
+begin
+  fDomain:= aDomain;
+  fServiceType := aServiceType;
+  fServiceName := aServiceName;
+  fPort := aPort;
+  fTxtRecord := aTxtRecord;
+
+  fRegistrationStrategy := nil;
+
+
+  lEngine := fOwner.Engine;
+
+  if lEngine = zceAuto then begin
+    if CheckDNSFunctions(False) then // Bonjour is present
+      lEngine := zceBonjour
+    else if fOwner.GetHubClientClass(False) <> nil then // Hub is present
+      lEngine := zceROZeroConfHub
+    else try // bonjour and hub isn't present
+      CheckDNSFunctions(True);
+    except
+      On E: Exception do begin
+        RegistrationFailed(E);
+        exit;
+      end;
+    end;
+  end;
+
+  case lEngine of
+    zceBonjour: fRegistrationStrategy := TROBonjourRegistrationStrategy.Create(self);
+    zceROZeroConfHub: fRegistrationStrategy := CreateHubStrategy;
+    zceNone: ;
+  end;
+  InternalRegisterService;
+end;
+
+procedure TROZeroConfRegistrationEngine.RegistrationFailed(anException: Exception);
+begin
+  if Assigned(fRegistrationStrategy) and
+    (fRegistrationStrategy.GetCurrentEngineType = zceBonjour) and
+    (fOwner.Engine = zceAuto) and
+    Assigned(fOwner.GetHubClientClass(False)) then begin
+      fRegistrationStrategy := CreateHubStrategy;
+      InternalRegisterService;
+  end
+  else begin
+    try
+      fOwner.TriggerFailed(GetCurrentEngineType, anException);
+    finally
+      Stop;
+    end;
+  end;
+end;
+
+procedure TROZeroConfRegistrationEngine.RegistrationSucceeded;
+begin
+  fOwner.TriggerServiceRegistrationSucceeded(GetCurrentEngineType);
+end;
+
+procedure TROZeroConfRegistrationEngine.Stop;
+begin
+  if fRegistrationStrategy <> nil then begin
+    fRegistrationStrategy.Stop;
+    fRegistrationStrategy := nil;
+  end;
+end;
+
+{ TROBonjourRegistrationStrategy }
+
+constructor TROBonjourRegistrationStrategy.Create(
+  const AOwner: TROZeroConfRegistrationEngine);
+begin
+  inherited Create;
+  FOwner := AOwner;
+end;
+
+function TROBonjourRegistrationStrategy.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  Result := zceBonjour;
+end;
+
+procedure TROBonjourRegistrationStrategy.RegError(Sender: TRODNSService;
+  anErrorCode: DNSServiceErrorType);
+begin
+  if anErrorCode = kDNSServiceErr_NoError then
+    FOwner.RegistrationSucceeded
+  else begin
+    if not FOwner.IsNeedToCreateException then FOwner.RegistrationFailed(nil)
+    else try
+      TRORegisterNetService.CreateDNSServiceRegisterException(anErrorCode);
+    except
+      on E: Exception do FOwner.RegistrationFailed(E);
+    end;
+  end;
+end;
+
+procedure TROBonjourRegistrationStrategy.RegisterService(const aDomain,
+  aServiceType, aServiceName: UnicodeString; const aPort: integer;
+  aTxtRecord: AnsiString);
+begin
+  Stop;
+  fService := TRORegisterNetService.Create(aDomain, aServiceType, aServiceName, aPort);
+  fService.TXTRecordData := aTxtRecord;
+  fService.OnError := RegError;
+  fService.Publish;
+end;
+
+procedure TROBonjourRegistrationStrategy.Stop;
+begin
+  FreeAndNil(fService);
+end;
+
+{ TROHubRegistrationStrategy }
+
+constructor TROHubRegistrationStrategy.Create(const AEngine: TROZeroConfRegistrationEngine;const AHubClientClass: TZeroConfHubClientClass);
+begin
+  inherited Create;
+  fEngine:= AEngine;
+  FHubClientClass := AHubClientClass;
+end;
+
+procedure RegistrationResult(aHandle: String; aUserData: Pointer; aName, aService, aDomain: UnicodeString; anErrorCode: integer);
+begin
+  if Assigned(aUserData) then begin
+    with TROHubRegistrationStrategy(aUserData) do begin
+      if anErrorCode = 0 then
+        fEngine.RegistrationSucceeded
+      else begin
+        if not fEngine.IsNeedToCreateException then fEngine.RegistrationFailed(nil)
+        else try
+          raise EROZeroConfHubException.CreateFmt('Registration failed. ErrorCode = %d',[anErrorCode],anErrorCode);
+        except
+          on E: Exception do fEngine.RegistrationFailed(E);
+        end;
+      end;
+    end;
+  end;
+end;
+
+function TROHubRegistrationStrategy.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  Result := zceROZeroConfHub;
+end;
+
+procedure TROHubRegistrationStrategy.RegisterService(const aDomain,
+  aServiceType, aServiceName: UnicodeString; const aPort: integer;
+  aTxtRecord: AnsiString);
+var
+  lCallcack : TROZeroConfRegistrationResult;
+begin
+  lCallcack := RegistrationResult;
+  if fClient = nil then begin
+    fClient := fHubClientClass.Create;
+    try
+      fClient.Start;
+    except
+      FreeAndNil(fClient);
+      raise;
+    end;
+  end;
+  fClient.RegisterService(aServiceName,aServiceType,aDomain,0, '', aPort, aTxtRecord, Self, lCallcack);
+end;
+
+procedure TROHubRegistrationStrategy.Stop;
+begin
+  FreeAndnil(fClient);
+end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+{ TBaseZeroConfRegistrationEngine }
+
+destructor TBaseZeroConfRegistrationEngine.Destroy;
+begin
+  Stop;
+  inherited;
+end;
+
+{ TBaseZeroConfBrowseStrategy }
+
+destructor TBaseZeroConfBrowseStrategy.Destroy;
+begin
+  Stop;
+  inherited;
+end;
+
+{ TROZeroConfBrowseEngine }
+
+constructor TROZeroConfBrowseEngine.Create(aOwner: TROZeroConfBrowser);
+begin
+  inherited Create;
+  FOwner := AOwner;
+end;
+
+function TROZeroConfBrowseEngine.CreateHubStrategy: IZeroConfBrowseStrategy;
+var
+  lClientClass: TZeroConfHubClientClass;
+begin
+  lClientClass := fOwner.GetHubClientClass(fOwner.Engine = zceROZeroConfHub);
+  if Assigned(lClientClass) then
+    Result := TROHubBrowseStrategy.Create(Self, lClientClass)
+  else
+    Result := nil;
+end;
+
+destructor TROZeroConfBrowseEngine.Destroy;
+begin
+  Stop;
+  inherited;
+end;
+
+function TROZeroConfBrowseEngine.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  if fBrowseStrategy = nil then
+    Result := fOwner.Engine
+  else
+    Result := fBrowseStrategy.GetCurrentEngineType;
+end;
+
+procedure TROZeroConfBrowseEngine.InternalStart;
+begin
+  if fBrowseStrategy = nil then Exit;
+  try
+    fBrowseStrategy.Start(fDomain, fServiceType);
+  except
+    on E: Exception do TriggerError(E);
+  end;
+end;
+
+procedure TROZeroConfBrowseEngine.InternalTriggerError(
+  anException: Exception);
+begin
+  fOwner.TriggerFailed(GetCurrentEngineType,anException);
+end;
+
+function TROZeroConfBrowseEngine.IsNeedToCreateException: Boolean;
+begin
+  Result := not
+    ((fBrowseStrategy.GetCurrentEngineType = zceBonjour) and
+    (fOwner.Engine = zceAuto) and
+    Assigned(fOwner.GetHubClientClass(False)));
+end;
+
+procedure TROZeroConfBrowseEngine.Start(const  aDomain, aServiceType: UnicodeString);
+var
+  lEngine: TROZeroConfEngine;
+begin
+  fDomain := aDomain;
+  fServiceType := aServiceType;
+  fBrowseStrategy := nil;
+  lEngine := fOwner.Engine;
+
+  if lEngine = zceAuto then begin
+    if CheckDNSFunctions(False) then // Bonjour is present
+      lEngine := zceBonjour
+    else if fOwner.GetHubClientClass(False) <> nil then // Hub is present
+      lEngine := zceROZeroConfHub
+    else try // bonjour and hub isn't present
+      CheckDNSFunctions(True);
+    except
+      On E: Exception do begin
+        InternalTriggerError(E);
+        exit;
+      end;
+    end;
+  end;
+
+  case lEngine of
+    zceBonjour: fBrowseStrategy := TROBonjourBrowseStrategy.Create(self);
+    zceROZeroConfHub: fBrowseStrategy := CreateHubStrategy;
+    zceNone:;
+  end;
+  InternalStart;
+end;
+
+procedure TROZeroConfBrowseEngine.Stop;
+begin
+  fBrowseStrategy := nil;
+end;
+
+procedure TROZeroConfBrowseEngine.TriggerBrowse(const Add: boolean; const AServiceName, aServiceType, aDomain: Unicodestring);
+begin
+  fOwner.IntBrowseResult(GetCurrentEngineType, Add, AServiceName, aServiceType, aDomain);
+end;
+
+procedure TROZeroConfBrowseEngine.TriggerError(anException: Exception);
+begin
+  if Assigned(fBrowseStrategy) and
+    (fBrowseStrategy.GetCurrentEngineType = zceBonjour) and
+    (fOwner.Engine = zceAuto) and
+    Assigned(fOwner.GetHubClientClass(False)) then begin
+      fBrowseStrategy := CreateHubStrategy;
+      InternalStart;
+  end
+  else begin
+    try
+      InternalTriggerError(anException);
+    finally
+      Stop;
+    end;
+  end;
+end;
+
+{ TROBonjourBrowseStrategy }
+
+procedure TROBonjourBrowseStrategy.cbBrowse(service: TRONetService;
+  Add: boolean; AName, aType, aDomain: Unicodestring);
+begin
+  fEngine.TriggerBrowse(Add, aName, aType, aDomain);
+end;
+
+procedure TROBonjourBrowseStrategy.cbError(Sender: TRODNSService;
+  anErrorCode: DNSServiceErrorType);
+begin
+  if (anErrorCode <> kDNSServiceErr_NoError) then
+    if not fEngine.IsNeedToCreateException then
+      fEngine.TriggerError(nil)
+    else try
+      TROBrowseNetService.CreateDNSServiceBrowseException(anErrorCode);
+    except
+      on E: Exception do fEngine.TriggerError(E);
+    end;
+end;
+
+constructor TROBonjourBrowseStrategy.Create(aEngine: TROZeroConfBrowseEngine);
+begin
+  inherited Create;
+  FEngine := aEngine;
+end;
+
+function TROBonjourBrowseStrategy.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  Result := zceBonjour;
+end;
+
+procedure TROBonjourBrowseStrategy.Start(const aDomain, aServiceType: UnicodeString);
+begin
+  if Assigned(fBrowse) then Stop;
+  fBrowse := TROBrowseNetService.Create(aDomain, aServiceType);
+  fBrowse.OnError := cbError;
+  fBrowse.BrowseResult := cbBrowse;
+  fBrowse.Start();
+end;
+
+procedure TROBonjourBrowseStrategy.Stop;
+begin
+  FreeAndNil(fBrowse);
+end;
+
+{ TROHubBrowseStrategy }
+
+constructor TROHubBrowseStrategy.Create(const aEngine: TROZeroConfBrowseEngine; const aHubClientClass: TZeroConfHubClientClass);
+begin
+  inherited Create;
+  fEngine := aEngine;
+  fHubClientClass := AHubClientClass;
+end;
+
+procedure ROBrowseResult(aHandle: String;aUserData: Pointer; aName, aType, aDomain: Unicodestring; aFlags: integer);
+var
+  lAdd: Boolean;
+begin
+  lAdd := (aFlags and hbDeleted) <> hbDeleted;
+  if Assigned(aUserData) then TROHubBrowseStrategy(aUserData).fEngine.TriggerBrowse(lAdd, aName, aType, aDomain);
+end;
+
+function TROHubBrowseStrategy.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  Result := zceROZeroConfHub;
+end;
+
+procedure TROHubBrowseStrategy.Start(const aDomain, aServiceType: UnicodeString);
+var
+  lcallback: TROZeroConfResolveBrowseResult;
+begin
+  lcallback := ROBrowseResult;
+  if fClient = nil then begin
+    fClient := fHubClientClass.Create;
+    try
+      fClient.Start;
+    except
+      FreeAndNil(fClient);
+      raise;
+    end;
+  end;
+
+  try
+    fClient.BrowseService(aServiceType, aDomain, Self, lcallback);
+  except
+    on e: Exception do fEngine.TriggerError(E);
+  end;
+end;
+
+procedure TROHubBrowseStrategy.Stop;
+begin
+  FreeAndNil(fClient);
+end;
+
+{ TROZeroConfResolveEngine }
+
+constructor TROZeroConfResolveEngine.Create(aConfService: TROZeroConfService);
+begin
+  inherited Create;
+  fConfService := aConfService;
+end;
+
+function TROZeroConfResolveEngine.CreateHubStrategy: TROBaseZeroConfResolveStrategy;
+var
+  lClientClass: TZeroConfHubClientClass;
+begin
+  lClientClass := fConfService.FBrowser.GetHubClientClass(fConfService.DefEngine = zceROZeroConfHub);
+  if Assigned(lClientClass) then
+    Result := TROHubResolveStrategy.Create(Self, lClientClass)
+  else
+    Result := nil;
+end;
+
+destructor TROZeroConfResolveEngine.Destroy;
+begin
+  fResolveStrategy := nil;
+  inherited;
+end;
+
+function TROZeroConfResolveEngine.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  if fResolveStrategy = nil then
+    Result := fConfService.DefEngine
+  else
+    Result := fResolveStrategy.GetCurrentEngineType;
+end;
+
+function TROZeroConfResolveEngine.IntResolve(ADetectEngine: Boolean = False):Boolean;
+var
+  lReRaise: Boolean;
+  lEngine: TROZeroConfEngine;
+begin
+  if ADetectEngine then begin
+    lEngine := fConfService.DefEngine;
+    if lEngine = zceAuto then begin
+      if CheckDNSFunctions(False) then // Bonjour is present
+        lEngine := zceBonjour
+      else if fConfService.FBrowser.GetHubClientClass(False) <> nil then // Hub is present
+        lEngine := zceROZeroConfHub
+      else begin // bonjour and hub isn't present
+        Result := False;
+        if fRaiseException then CheckDNSFunctions(True);
+        exit;
+      end;
+    end;
+
+    case lEngine of
+      zceBonjour: fResolveStrategy := TROBonjourResolveStrategy.Create(self);
+      zceROZeroConfHub: fResolveStrategy := CreateHubStrategy;
+      zceNone: fResolveStrategy := nil;
+    end;
+  end;
+
+  Result := fResolveStrategy <> nil;
+  if not Result then begin
+    if fRaiseException then
+      raise EDNSServiceException.Create('Cannot detect valid engine for Resolve ',-1)
+    else
+      Exit;
+  end;
+  try
+    if fRaiseException then
+      fResolveStrategy.Resolve(fTimeOut)
+    else
+      Result := fResolveStrategy.TryResolve(fTimeOut);
+  except
+    Result := TriggerError(lReRaise);
+    if lReRaise then raise;    
+  end;
+end;
+
+procedure TROZeroConfResolveEngine.Resolve(aTimeout: integer);
+begin
+  fRaiseException := True;
+  fTimeOut := aTimeout;
+  IntResolve(True);
+end;
+
+function TROZeroConfResolveEngine.TriggerError(var aReRaise: Boolean): Boolean;
+begin
+  if Assigned(fResolveStrategy) and
+    (fResolveStrategy.GetCurrentEngineType = zceBonjour) and
+    (fConfService.DefEngine = zceAuto) and
+    Assigned(fConfService.FBrowser.GetHubClientClass(False)) then begin
+      fResolveStrategy := CreateHubStrategy;
+      Result := IntResolve;
+      aReRaise:= False;
+  end
+  else begin
+    aReRaise := fRaiseException;
+    Result := False;
+  end;
+end;
+
+function TROZeroConfResolveEngine.TryResolve(aTimeout: integer): Boolean;
+begin
+  fRaiseException := False;
+  fTimeOut := aTimeout;
+  try
+    Result := IntResolve(True);
+  except
+    Result := False;
+  end;
+end;
+
+{ TROBonjourResolveStrategy }
+
+constructor TROBonjourResolveStrategy.Create(aEngine: TROZeroConfResolveEngine);
+begin
+  inherited Create;
+  FEngine := aEngine;
+end;
+
+function TROBonjourResolveStrategy.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  Result := zceBonjour;
+end;
+
+function TROBonjourResolveStrategy.IntResolve(
+  aTimeout: integer): DNSServiceErrorType;
+var
+  lServ: TROResolveNetService;
+  lfullDomainName, lhostTarget: Unicodestring;
+  lport: integer;
+  ltxtRecord: AnsiString;
+  lIP4addresses, lIP6addresses: string;
+begin
+  with fEngine.fConfService do
+    lServ := TROResolveNetService.Create(Domain,ServiceType,ServiceName);
+  try
+    Result := lServ.BlockResolve(aTimeout, fEngine.fConfService.fIpType, lfullDomainName, lhostTarget, lport, ltxtRecord, lIP4addresses, lIP6addresses);
+    if Result = kDNSServiceErr_NoError then
+      with fEngine.fConfService do begin
+        fFullDomainName:= lfullDomainName;
+        FHostTarget := lhostTarget;
+        FTextRecord := ltxtRecord;
+        fIP4Address := lIP4addresses;
+        fIP6Address := lIP6addresses;
+        fPort := lport;
+        fResolvedIP4 := fIP4Address <> '';
+        fResolvedIP6 := fIP6Address <> '';
+        FResolvedEngine := GetCurrentEngineType;
+        FResolved := fResolvedIP4 or fResolvedIP6; 
+      end;
+  finally
+    lServ.Free;
+  end;
+end;
+
+procedure TROBonjourResolveStrategy.Resolve(aTimeout: integer);
+var
+  lRaise: Boolean;
+  lResult: DNSServiceErrorType;
+begin
+  lRaise := False;
+  lResult := 0;
+  try
+    lResult := IntResolve(aTimeout);
+    if lResult <> 0 then fEngine.TriggerError(lRaise);
+  except
+    // raise existing error
+    fEngine.TriggerError(lRaise);
+    if lRaise then raise;
+  end;
+  if lRaise then raise EDNSServiceException.Create('Resolve',lResult);
+end;
+
+function TROBonjourResolveStrategy.TryResolve(aTimeout: integer): Boolean;
+var
+  lRaise: Boolean;
+begin
+  try
+    Result := IntResolve(aTimeout) = 0;
+  except
+    // raise existing error
+    Result := fEngine.TriggerError(lRaise);
+    if lRaise then raise;
+  end;
+end;
+
+{ TROHubResolveStrategy }
+
+constructor TROHubResolveStrategy.Create(aEngine: TROZeroConfResolveEngine;
+  const AHubClientClass: TZeroConfHubClientClass);
+begin
+  inherited Create;
+  fEngine := aEngine;
+  fHubClientClass := AHubClientClass;
+end;
+
+destructor TROHubResolveStrategy.Destroy;
+begin
+  FreeAndNil(fClient);
+  inherited;
+end;
+
+function TROHubResolveStrategy.GetCurrentEngineType: TROZeroConfEngine;
+begin
+  Result := zceROZeroConfHub;
+end;
+
+function TROHubResolveStrategy.IntResolve(aTimeout: integer): Boolean;
+var
+  lFullName,
+  lLocalAddress: Unicodestring;
+  lPort: integer;
+  lText: TROHubBytes;
+  lIP4, lIP6: string;
+begin
+  if fClient = nil then begin
+    fClient := fHubClientClass.Create;
+    try
+      fClient.Start;
+    except
+      FreeAndNil(fClient);
+      raise;
+    end;
+  end;
+
+  try
+    with fEngine.fConfService do begin
+      Result := fClient.BlockResolve(aTimeout, ServiceName, ServiceType, Domain, fEngine.fConfService.fIpType, lFullName, lLocalAddress, lPort, lText, lIP4, lIP6);
+      if Result then begin
+        if EndsWith('.local', lLocalAddress) then SetLength(lLocalAddress, Length(lLocalAddress)-6);
+        fFullDomainName:= lFullName;
+        FHostTarget := lLocalAddress;
+        fPort := lPort;
+        FTextRecord := lText;
+        fIP4Address := lIP4;
+        fIP6Address := lIP6;
+        fResolvedIP4 := fIP4Address <> '';
+        fResolvedIP6 := fIP6Address <> '';
+        FResolvedEngine := GetCurrentEngineType;
+        FResolved := fResolvedIP4 or fResolvedIP6;
+      end;
+    end;
+  finally
+    FreeAndNil(FClient);
+  end;
+end;
+
+procedure TROHubResolveStrategy.Resolve(aTimeout: integer);
+var
+  lRaise: Boolean;
+begin
+  try
+    IntResolve(aTimeout);
+  except
+    // raise existing error
+    fEngine.TriggerError(lRaise);
+    if lRaise then raise;
+  end;
+end;
+
+function TROHubResolveStrategy.TryResolve(aTimeout: integer): Boolean;
+var
+  lRaise: Boolean;
+begin
+  try
+    Result := IntResolve(aTimeout);
+  except
+    // raise existing error
+    Result := fEngine.TriggerError(lRaise);
+    if lRaise then raise;
+  end;
+end;
+
+{ TROZeroConfBrowseAndResolveEngine }
+
+function TROZeroConfBrowseAndResolveEngine.BrowseAndResolve(aTimeout: integer; const aDomain, aServiceType, aHostTarget: UnicodeString;
+  out aFullDomainName: UnicodeString; out aPort: integer;out aTxtRecord: UnicodeString; out aAddresses: string; aIpType: TIpType = ipkAny): Boolean;
+begin
+  fError := False;
+  FTimeout := aTimeout;
+  FHostTarget := aHostTarget;
+  FIpType := aIpType;
+  Start(aDomain, aServiceType);
+  Result := FEvent.WaitFor(aTimeout*1000) = wrSignaled;
+  if Result and not fError then begin
+    aFullDomainName := fFullDomainName;
+    aPort := fPort;
+    aTxtRecord := FTxtRecord;
+    aAddresses := FAddresses;
+  end
+  else begin
+    aFullDomainName := '';
+    aPort := 0;
+    aTxtRecord := '';
+    aAddresses := '';
+  end;
+end;
+
+constructor TROZeroConfBrowseAndResolveEngine.Create(
+  aOwner: TROZeroConfBrowser);
+begin
+  inherited;
+  FEvent := TROEvent.Create(nil, False, False, '');
+end;
+
+destructor TROZeroConfBrowseAndResolveEngine.Destroy;
+begin
+  FreeAndNil(FEvent);
+  inherited;
+end;
+
+procedure TROZeroConfBrowseAndResolveEngine.InternalTriggerError(
+  anException: Exception);
+begin
+  fError := True;
+  fEvent.SetEvent;
+end;
+
+procedure TROZeroConfBrowseAndResolveEngine.TriggerBrowse(
+  const Add: boolean; const AServiceName, aServiceType,
+  aDomain: Unicodestring);
+
+  function IncludeDot(aStr: UnicodeString): UnicodeString;
+  begin
+    Result := aStr;
+    if EndsWith(',',aStr) then Result:= aStr else Result:= aStr +'.';
+  end;
+
+var
+  lRes : TROZeroConfService;
+begin
+  if Add then begin
+     lRes := TROZeroConfService.Create(fOwner, GetCurrentEngineType, aDomain, AServiceName, aServiceType, fIpType);
+     try
+       if lRes.TryResolve(FTimeOut) then begin
+         if (ROWideCompare(lRes.HostTarget, fHostTarget,True) = 0) or // bonjour
+            (ROWideCompare(IncludeDot(lRes.HostTarget)+IncludeDot(aDomain),  fHostTarget,True) = 0) // hub
+            then begin
+           fFullDomainName:= lRes.FullDomainName;
+           fPort:= lRes.Port;
+           fTxtRecord := lRes.TextRecord;
+           fAddresses := lRes.Address;
+           if assigned(fEvent) then fEvent.SetEvent;
+         end;
+       end;
+     finally
+       lRes.Free;
+     end;
+  end;
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfHub.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfHub.pas
new file mode 100644
index 0000000..0e5d270
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfHub.pas	
@@ -0,0 +1,994 @@
+unit uROZeroConfHub;
+
+{$I RemObjects.inc}
+{.$DEFINE uROZeroConfHub_DEBUG}
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows, SyncObjs,{$ENDIF}SysUtils, Classes,
+  uROClasses, uROThread,uROThreadPool, uROClient, uROZeroConfStreamWorker;
+
+const
+  //ZeroConfBrowseFlags
+  hbNone = 0;
+  hbMoreComing = 1;
+  hbDeleted = 2;
+  // from Winsock2
+  AF_UNSPEC = 0;
+  AF_INET   = 2;
+  AF_INET6  = 23;
+
+type
+  TROZeroConfRegistrationResult   = procedure(aHandle: String; aUserData: Pointer; aName, aService, aDomain: UnicodeString; anErrorCode: integer);
+  TROZeroConfResolveAddressResult = procedure(aHandle: String; aUserData: Pointer; aFullName: Unicodestring; anIP: string; aIPType: integer);
+  TROZeroConfResolveServiceResult = procedure(aHandle: String; aUserData: Pointer; aName, aType, aDomain, aLocalAddress: Unicodestring; aPort: integer; aText: TROHubBytes);
+  TROZeroConfResolveBrowseResult  = procedure(aHandle: String; aUserData: Pointer; aName, aType, aDomain: Unicodestring; aFlags: integer);
+
+  TROStreamWorkerCallback = procedure(aData: TROHubBytes) of object;
+
+  TriggerDelegate = procedure of object;
+
+  TROWaitingRequest = class
+  private
+    fwh: TROEvent;
+    fTrigger: TriggerDelegate;
+    fName: Unicodestring;
+    FArgs: TKeyValuePair;
+    procedure EventTrigger;
+  public
+    constructor Create(ACreateWithEventSupport: Boolean = False);
+    destructor Destroy; override;
+    property Event:TROEvent read fwh;
+    property Trigger: TriggerDelegate read fTrigger write FTrigger;
+    property Name: Unicodestring read fName write fName;
+    property Args: TKeyValuePair read FArgs write FArgs;
+  end;
+
+  TRODictionary = class
+  private
+    fItems:TStringList;
+    FLock: TRTLCriticalSection;
+  protected
+    function Lock: TStringList;
+    procedure Unlock;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    function TryGetValue(aKey: string; out aValue: TObject): boolean;overload;
+    procedure Remove(aKey: string);overload;
+    procedure Add(aKey: string; aValue: TObject);overload;
+    function TryGetValue(aKey: integer; out aValue: TObject): boolean;overload;
+    procedure Remove(aKey: integer);overload;
+    procedure Add(aKey: integer; aValue: TObject);overload;
+  end;
+
+
+  TDelegateType = (zcRegistration, zcResolveAddress, zcResolveService, zcResolveBrowse);
+  MulticastDelegate = record
+    aType: TDelegateType;
+    case TDelegateType of
+      zcRegistration: (RegistrationResult:TROZeroConfRegistrationResult);
+      zcResolveAddress: (ResolveAddressResult:TROZeroConfResolveAddressResult);
+      zcResolveService: (ResolveServiceResult: TROZeroConfResolveServiceResult);
+      zcResolveBrowse: (ResolveBrowseResult: TROZeroConfResolveBrowseResult);
+  end;
+
+  TROZeroConfHandle = class
+  public
+    Handle: TROHubBytes;
+    UserData: Pointer;
+    Delegate: MulticastDelegate;
+  end;
+
+  TZeroConfHubClient = class;
+
+  TROServiceSetup = class
+  private
+    fWaitingRequest : TROWaitingRequest;
+    fWaitHandle: TROEvent;
+    fHandle: TROZeroConfHandle;
+    fGenID: integer;
+    fOwner: TZeroConfHubClient;
+    fHandleVal : String;
+  public
+    constructor Create(aOwner: TZeroConfHubClient; aUserData: Pointer; aDelegate: MulticastDelegate);
+    destructor Destroy;override;
+    procedure Trigger;
+    function GetResult: String;
+    property GenID: Integer read fGenID;
+  end;
+
+  TZeroConfHubClient = class(TObject, IROStreamWorkerCallbacks)
+  private
+    fWorker: TROStreamWorker;
+    fWaitingRequests: TRODictionary;
+    fHandles: TRODictionary;
+    fCommandTimeout: integer;
+    fBlockResolveEvent: TROEvent;
+    fBlockPort: integer;
+    fBlockText: TROHubBytes;
+    fBlockFullName: Unicodestring;
+    fBlockIP4,fBlockIP6: string;
+    fBlockLocalAddress: Unicodestring;
+    fBlockOrigIpType: integer;
+    fPool: TROThreadPool;
+    procedure HandleEvent_RegistrationFailed(aHandle: TROHubBytes;aName, aService, aDomain: UnicodeString; anErrorCode: integer);
+    procedure HandleEvent_RegistrationSucceeded(aHandle: TROHubBytes;aName, aService, aDomain: UnicodeString);
+    procedure HandleEvent_ResolveAddressResult(aHandle: TROHubBytes;aFullName: UnicodeString; anIP: TROHubBytes);
+    procedure HandleEvent_ResolveServiceResult(aHandle: TROHubBytes;aName, aType, aDomain, aLocalAddress: Unicodestring; aPort: integer; aText: TROHubBytes);
+    procedure HandleEvent_ResolveBrowseResult(aHandle: TROHubBytes; aName, aType, aDomain: Unicodestring; aFlags: integer);
+    procedure HandleEvent(lName: UnicodeString; lArgs: TKeyValuePair);
+    procedure SendCommand_CloseHandle(aHandle: TROHubBytes);
+    procedure CloseHandles;
+    function GetRunning: boolean;
+  protected
+    { IInterface }
+    function QueryInterface(const IID: TGUID; out Obj): HResult; virtual; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
+    // IROStreamWorkerCallbacks
+    procedure ControlCommand(aSender: TROStreamWorker; aName: UnicodeString; aArguments: TKeyValuePair);
+    procedure Data(aSender: TROStreamWorker; aData: TROHubBytes);
+    procedure Disconnected(aSender: TROStreamWorker);
+    function CreateTCPClient: TTCPStream; virtual; abstract;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Start;
+    procedure Stop;
+    procedure CloseHandle(aHandle: String);
+    function GetMyHostName: UnicodeString;
+    function RegisterService(const aName, aService, aDomain: UnicodeString; const aFlags: integer; const aHost: Unicodestring; const aPort: integer; const aText: TROHubBytes; const aUserData: Pointer; const aDelegate: TROZeroConfRegistrationResult): String;
+    function ResolveAddress(const aFullName: UnicodeString; const aUserData: Pointer; const aDelegate: TROZeroConfResolveAddressResult):String;
+    function ResolveService(const aServiceName, aServiceType, aDomain: UnicodeString; const aUserData: Pointer; const aDelegate: TROZeroConfResolveServiceResult):String;
+    function BrowseService(const aServiceType, aDomain: UnicodeString; const aUserData: Pointer; const aDelegate: TROZeroConfResolveBrowseResult):String;
+    function BlockResolve(const aTimeout: integer; aServiceName, aServiceType, aDomain: UnicodeString; aIPType: integer; out aFullName, aLocalAddress: Unicodestring; out aPort: integer; out aText: TROHubBytes; out anIP4, anIP6: string): boolean;
+    property Running: boolean read GetRunning;
+    property CommandTimeout: integer read fCommandTimeout write fCommandTimeout default 10000;
+  end;
+
+  TZeroConfHubClientClass = class of TZeroConfHubClient;
+
+implementation
+
+const
+  HUB_PORT = 16565;
+  HUB_HOST = '127.0.0.1';
+
+function FindParameter(aArgs: TKeyValuePair; aName: UnicodeString):TROHubBytes; forward;
+function RemoveLastDot(aValue: Unicodestring): UnicodeString; forward;
+function HandleToString(aHandle: TROHubBytes): String; forward;
+procedure ProcessException(aArgs: TKeyValuePair);forward;
+
+
+{$IFDEF DELPHI10UP}{$REGION 'shared functions'}{$ENDIF DELPHI10UP}
+
+function FindParameter(aArgs: TKeyValuePair; aName: UnicodeString): TROHubBytes;
+var
+  i: integer;
+begin
+  for i := 0 to Length(aArgs) - 1 do begin
+    if ROWideCompare(aArgs[i].ArgName, aName, True)=0 then begin
+      Result := aArgs[i].ArgValue;
+      Exit;
+    end;
+  end;
+  raise Exception.CreateFmt('No such parameter: %s',[aName]);
+end;
+
+function RemoveLastDot(aValue: Unicodestring): UnicodeString;
+begin
+  Result := aValue;
+  if EndsWith('.',Result) then SetLength(Result, Length(Result)-1);
+end;
+
+function HandleToString(aHandle: TROHubBytes): String;
+var
+  lguid: TGUID;
+begin
+  lguid.D1 := ord(aHandle[1])+ord(aHandle[2])*$100+ord(aHandle[3])*$10000+ord(aHandle[4])*$1000000;
+  lguid.D2 := ord(aHandle[5])+ord(aHandle[6])*$100;
+  lguid.D3 := ord(aHandle[7])+ord(aHandle[8])*$100;
+  Move(aHandle[9],lguid.D4[0],8);
+  Result:= GUIDToString(lguid);
+end;
+
+procedure ProcessException(aArgs: TKeyValuePair);
+var
+  lCode: integer;
+  lClass: Unicodestring;
+  lMessage: unicodestring;
+  i: integer;
+begin
+  lCode := 0;
+  lMessage := 'Exception from server';
+  for i := 0 to Length(aArgs) - 1 do begin
+    if ROWideCompare(aArgs[i].ArgName, 'class', True) = 0 then begin
+      lclass := UTF8ToString(aArgs[i].ArgValue);
+    end
+    else if ROWideCompare(aArgs[i].ArgName, 'code' ,True) = 0 then begin
+      lCode := Int32FromBuffer(aArgs[i].ArgValue);
+    end
+    else if ROWideCompare(aArgs[i].ArgName, 'message' ,True) = 0 then begin
+      lMessage := UTF8ToString(aArgs[i].ArgValue);
+    end;
+  end;
+  raise EROZeroConfHubException.Create(lMessage, lCode);
+end;
+
+
+{$IFDEF DELPHI10UP}{$REGION 'TZeroConfHubClient methods'}{$ENDIF DELPHI10UP}
+{ TZeroConfHubClient }
+
+procedure cbBlockResolveAddress(aHandle: String; aUserData: Pointer; aFullName: Unicodestring; anIP: string; aIPType: integer);
+begin
+  if Assigned(aUserData) then
+    with TZeroConfHubClient(aUserData) do begin
+      if aIPType = AF_INET then
+        fBlockIP4 := anIP
+      else
+        fBlockIP6 := anIP;
+      if ((fBlockOrigIpType = AF_UNSPEC) or (fBlockOrigIpType = aIPType)) and Assigned(fBlockResolveEvent) then fBlockResolveEvent.SetEvent;
+    end;
+end;
+
+procedure cbBlockResolveService(aHandle: String; aUserData: Pointer; aServiceName, aServiceType, aDomain, aLocalAddress: Unicodestring; aPort: integer; aText: TROHubBytes);
+begin
+  if Assigned(aUserData) then
+    with TZeroConfHubClient(aUserData) do begin
+      fBlockLocalAddress := aLocalAddress;
+      fBlockPort := aPort;
+      fBlockText := aText;
+      ResolveAddress(aLocalAddress,aUserData,@cbBlockResolveAddress);
+    end;
+end;
+
+function TZeroConfHubClient.BlockResolve(const aTimeout: integer; aServiceName, aServiceType,
+  aDomain: UnicodeString; aIPType: integer; out aFullName, aLocalAddress: Unicodestring;
+  out aPort: integer; out aText: TROHubBytes; out anIP4, anIP6: string): boolean;
+begin
+{$IFDEF uROZeroConfHub_DEBUG}
+  OutputDebugString(PChar('BlockResolve, self= ' + intTohex(Cardinal(self),8)));
+{$ENDIF}
+  fBlockResolveEvent := TROEvent.Create(nil, false, false,'');
+  try
+    fBlockFullName := aServiceName + '.' + aServiceType + '.' + aDomain;
+    fBlockOrigIpType := aIPType;
+    ResolveService(aServiceName,aServiceType,aDomain, Self, @cbBlockResolveService);
+    Result := fBlockResolveEvent.WaitFor(aTimeout*1000) = wrSignaled;
+    if (not Result) then begin
+      raise EROZeroConfHubException.Create('Timeout waiting for request', 0);
+    end
+    else begin
+      aFullName := fBlockFullName;
+      aLocalAddress := fBlockLocalAddress;
+      aPort := fBlockPort;
+      aText := fBlockText;
+      anIP4 := fBlockIP4;
+      anIP6 := fBlockIP6;
+    end;
+  finally
+    FreeAndNil(fBlockResolveEvent);
+  end;
+end;
+
+function TZeroConfHubClient.BrowseService(const aServiceType, aDomain: UnicodeString;
+  const aUserData: Pointer; const aDelegate: TROZeroConfResolveBrowseResult):String;
+var
+  lServiceType,lDomain: UnicodeString;
+  lArgs: TKeyValuePair;
+  zc: TROServiceSetup;
+  delegate: MulticastDelegate;
+begin
+  lServiceType := RemoveLastDot(aServiceType);
+  lDomain := RemoveLastDot(aDomain);
+  SetLength(lArgs,2);
+  lArgs[0].ArgName := 'aType';    lArgs[0].ArgValue := UnicodeStringToBytes(lServiceType);
+  lArgs[1].ArgName := 'aDomain';  lArgs[1].ArgValue := UnicodeStringToBytes(lDomain);
+  delegate.aType := zcResolveBrowse;
+  delegate.ResolveBrowseResult := aDelegate;
+  zc := TROServiceSetup.Create(Self, aUserData, delegate);
+  try
+    fWorker.SendData(EncodePackage('BrowseService', true, Int32ToBuffer(zc.GenID), lArgs));
+    Result := zc.GetResult;
+  finally
+    zc.Free;
+  end;
+end;
+
+procedure TZeroConfHubClient.CloseHandle(aHandle: String);
+var
+  lHandle: TObject;
+begin
+  if fHandles.TryGetValue(aHandle,lHandle) then begin
+    fHandles.Remove(aHandle);
+    if (lHandle <> nil) then begin
+      SendCommand_CloseHandle(TROZeroConfHandle(lHandle).Handle);
+      lHandle.Free;
+    end;
+  end;
+end;
+
+procedure TZeroConfHubClient.CloseHandles;
+var
+  lhandle: TROZeroConfHandle;
+  i: integer;
+  List: TStringList;
+begin
+  List := fHandles.Lock;
+  try
+    for i := 0 to List.Count - 1 do begin
+      lhandle := TROZeroConfHandle(List.Objects[i]);
+      if lhandle <> nil then begin
+        try
+          SendCommand_CloseHandle(lhandle.Handle);
+        except
+          // catch exceptions
+        end;
+        lhandle.Free;
+      end;
+    end;
+    List.Clear;
+  finally
+    fHandles.Unlock;
+  end;
+end;
+
+procedure TZeroConfHubClient.ControlCommand(aSender: TROStreamWorker;
+  aName: UnicodeString; aArguments: TKeyValuePair);
+begin
+// nothing
+end;
+
+constructor TZeroConfHubClient.Create;
+begin
+  inherited;
+  fPool := TROThreadPool.Create(nil);
+  fPool.MaxQueue := MaxInt;
+  fPool.MaxThreads := 1;
+  fPool.PoolThreads := 1;
+  fHandles := TRODictionary.Create;
+  fWaitingRequests := TRODictionary.Create;
+  fCommandTimeout := 90000; // 10 seconds
+  Start;
+end;
+
+procedure TZeroConfHubClient.Data(aSender: TROStreamWorker;
+  aData: TROHubBytes);
+var
+  lName: Unicodestring;
+  lArgs: TKeyValuePair;
+  lPackage: integer;
+  w: TObject;
+begin
+  DecodePackage(aData, 4, lName, lArgs);
+  lPackage := Int32FromBuffer(aData);
+{$IFDEF uROZeroConfHub_DEBUG}
+  OutputDebugStringW(PWideChar('TZeroConfHubClient.Data. Name = ' + lName + ' package = '+ BoolToStr(lPackage > 0,True)));
+{$ENDIF}
+  if (lPackage > 0) then begin
+    if fWaitingRequests.TryGetValue(lPackage, w) then begin
+      TROWaitingRequest(w).Name := lName;
+      TROWaitingRequest(w).Args := lArgs;
+      TROWaitingRequest(w).Trigger;
+    end;
+  end
+  else begin
+    HandleEvent(lName, lArgs);
+  end;
+end;
+
+destructor TZeroConfHubClient.Destroy;
+begin
+  Stop;
+  FreeAndNil(fWaitingRequests);
+  FreeAndNil(fHandles);
+  FreeAndNil(fPool);
+  inherited;
+end;
+
+procedure TZeroConfHubClient.Disconnected(aSender: TROStreamWorker);
+begin
+  Stop();
+end;
+
+function TZeroConfHubClient.GetMyHostName: UnicodeString;
+var
+  lArgs: TKeyValuePair;
+  wr: TROWaitingRequest;
+  lGenID: integer;
+  lOk: Boolean;
+begin
+  wr := TROWaitingRequest.Create(True);
+  try
+    lGenID := fWorker.GenerateID(true);
+    fWaitingRequests.Add(lGenID, wr);
+    SetLength(lArgs,0);
+    fWorker.SendData(EncodePackage('GetMyHostName', true, Int32ToBuffer(lGenID), lArgs));
+    lOk := wr.Event.WaitFor(fCommandTimeout) = wrSignaled;// in ms
+    fWaitingRequests.Remove(lGenID);
+    if (not lOk) then raise EROZeroConfHubException.Create('Timeout waiting for request', 0);
+    if EndsWith('#Exception', wr.Name, True) then ProcessException(wr.Args);
+    Result := BytesToUnicodeString(FindParameter(wr.Args, 'Result'));
+  finally
+    wr.Free;
+  end;
+end;
+
+function TZeroConfHubClient.GetRunning: boolean;
+begin
+  Result := Assigned(fWorker);
+end;
+
+procedure TZeroConfHubClient.HandleEvent(lName: UnicodeString;
+  lArgs: TKeyValuePair);
+begin
+  if lName = 'RegistrationFailed' then begin
+    HandleEvent_RegistrationFailed(
+      FindParameter(lArgs, 'aHandle'),
+      BytesToUnicodeString(FindParameter(lArgs, 'aName')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aService')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aDomain')),
+      Int32FromBuffer(FindParameter(lArgs, 'anErrorCode')));
+  end
+  else if lName = 'RegistrationSucceeded' then begin
+    HandleEvent_RegistrationSucceeded(
+      FindParameter(lArgs, 'aHandle'),
+      BytesToUnicodeString(FindParameter(lArgs, 'aName')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aService')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aDomain')));
+
+  end
+  else if lName = 'ResolveAddressResult'  then begin
+    HandleEvent_ResolveAddressResult(
+      FindParameter(lArgs, 'aHandle'),
+      BytesToUnicodeString(FindParameter(lArgs, 'aFullName')),
+      FindParameter(lArgs, 'anIP'));
+  end
+  else if lName = 'ResolveServiceResult' then begin
+    HandleEvent_ResolveServiceResult(
+      FindParameter(lArgs, 'aHandle'),
+      BytesToUnicodeString(FindParameter(lArgs, 'aName')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aType')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aDomain')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aLocalAddress')),
+      Int32FromBuffer(FindParameter(lArgs, 'aPort')),
+      FindParameter(lArgs, 'aText'));
+  end
+  else if lName = 'ResolveBrowseResult' then begin
+    HandleEvent_ResolveBrowseResult(
+      FindParameter(lArgs, 'aHandle'),
+      BytesToUnicodeString(FindParameter(lArgs, 'aName')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aType')),
+      BytesToUnicodeString(FindParameter(lArgs, 'aDomain')),
+      Int32FromBuffer(FindParameter(lArgs, 'aFlags')));
+  end;
+end;
+
+type
+  TROHubPooledEvent = class(TInterfacedObject, IROThreadPoolCallback)
+  private
+    fHandle: TROZeroConfHandle;
+    fHandleVal: string;
+    //
+    aName, aType, aService, aDomain, aLocalAddress: UnicodeString;
+    aFullName: UnicodeString;
+    aPort, anErrorCode,aFlags: integer;
+    aIP: string;
+    aIPType: integer;
+    aText: TROHubBytes;
+  protected
+    procedure Callback(Caller: TROThreadPool; Thread: TThread);
+  public
+    constructor Create(aHandle: TROZeroConfHandle);
+    destructor Destroy; override;
+  end;
+
+{ TROHubPooledEvent }
+
+procedure TROHubPooledEvent.Callback(Caller: TROThreadPool;
+  Thread: TThread);
+begin
+  if (fHandle <> nil) then
+{$IFDEF uROZeroConfHub_DEBUG}
+  OutputDebugString(PChar('before TROHubPooledEvent.Callback, ID='+inttostr(ord(fHandle.Delegate.aType))));
+{$ENDIF}
+    case fHandle.Delegate.aType  of
+     zcRegistration:   fHandle.Delegate.RegistrationResult(fHandleVal, fHandle.UserData, aName, aService, aDomain, anErrorCode);
+     zcResolveAddress: fHandle.Delegate.ResolveAddressResult(fHandleVal, fHandle.UserData, aFullName, aIP, aIPType);
+     zcResolveService: fHandle.Delegate.ResolveServiceResult(fHandleVal, fHandle.UserData, aName, aType, aDomain, aLocalAddress,aPort, aText);
+     zcResolveBrowse:  fHandle.Delegate.ResolveBrowseResult(fHandleVal, fHandle.UserData, aName, aType, aDomain, aFlags);
+   end;
+{$IFDEF uROZeroConfHub_DEBUG}
+  OutputDebugString(PChar('after TROHubPooledEvent.Callback, ID='+inttostr(ord(fHandle.Delegate.aType))));
+{$ENDIF}
+end;
+
+constructor TROHubPooledEvent.Create(aHandle: TROZeroConfHandle);
+begin
+  inherited Create;
+  fHandle := aHandle;
+end;
+
+procedure TZeroConfHubClient.HandleEvent_RegistrationFailed(
+  aHandle: TROHubBytes; aName, aService, aDomain: UnicodeString;
+  anErrorCode: integer);
+var
+  lHandle: TObject;
+  lHandleVal: string;
+  lpe: TROHubPooledEvent;
+  lpeEv : IROThreadPoolCallback;
+begin
+  lHandle := nil;
+  lHandleVal := HandleToString(aHandle);
+  fHandles.TryGetValue(lHandleVal, lHandle);
+  if lHandle <> nil then begin
+    lpe := TROHubPooledEvent.Create(TROZeroConfHandle(lHandle));
+    //
+    lpe.fHandleVal := lHandleVal;
+    lpe.aName := aName;
+    lpe.aService:= aService;
+    lpe.aDomain := aDomain;
+    lpe.anErrorCode := anErrorCode;
+    //
+    lpeEv := lpe;
+    fPool.QueueItem(lpeEv);
+  end;
+end;
+
+procedure TZeroConfHubClient.HandleEvent_RegistrationSucceeded(
+  aHandle: TROHubBytes; aName, aService, aDomain: UnicodeString);
+var
+  lHandle: TObject;
+  lHandleVal: string;
+  lpe: TROHubPooledEvent;
+  lpeEv : IROThreadPoolCallback;
+begin
+  lHandle := nil;
+  lHandleVal := HandleToString(aHandle);
+  fHandles.TryGetValue(lHandleVal, lHandle);
+  if lHandle <> nil then begin
+    lpe := TROHubPooledEvent.Create(TROZeroConfHandle(lHandle));
+    //
+    lpe.fHandleVal := lHandleVal;
+    lpe.aName := aName;
+    lpe.aService:= aService;
+    lpe.aDomain := aDomain;
+    lpe.anErrorCode := 0;
+    //
+    lpeEv := lpe;
+    fPool.QueueItem(lpeEv);
+  end;
+end;
+
+function DecodeIP4(anIP: TROHubBytes): string;
+begin
+  Result:=Format('%d.%d.%d.%d', [ord(anIP[1]),ord(anIP[2]),ord(anIP[3]),ord(anIP[4])]);
+end;
+
+function DecodeIP6(anIP: TROHubBytes): string;
+begin
+  if Length(anIP) = 16 then begin
+    Result := Format('%.x:%.x:%.x:%.x:%.x:%.x:%.x:%.x',[
+    ord(anIP[1])*$100+ord(anIP[2]),ord(anIP[3])*$100+ord(anIP[4]),ord(anIP[5])*$100+ord(anIP[6]),ord(anIP[7])*$100+ord(anIP[8]),
+    ord(anIP[9])*$100+ord(anIP[10]),ord(anIP[11])*$100+ord(anIP[12]),ord(anIP[13])*$100+ord(anIP[14]),ord(anIP[15])*$100+ord(anIP[16])]);
+    Result := StringReplace( Result, ':0:0:', '::', [rfReplaceAll]);
+    Result := StringReplace( Result, ':0:', '::', [rfReplaceAll]);
+    Result := StringReplace( Result, ':::', '::', [rfReplaceAll]);
+    Result := StringReplace( Result, ':::', '::', [rfReplaceAll]);
+    Result := LowerCase(Result);
+  end
+  else
+    Result:= {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(anIP);
+end;
+
+procedure TZeroConfHubClient.HandleEvent_ResolveAddressResult(aHandle: TROHubBytes;aFullName: UnicodeString; anIP: TROHubBytes);
+var
+  lHandle: TObject;
+  lHandleVal: string;
+  lIP: string;
+  lIPType: integer;
+  lpe: TROHubPooledEvent;
+  lpeEv : IROThreadPoolCallback;
+begin
+  if Length(anIP) = 4 then lIPtype := AF_INET else lIPtype := AF_INET6;
+
+  if lIPtype = AF_INET then
+    lIP := DecodeIP4(anIP)
+  else
+    lIP := DecodeIP6(anIP);
+  lHandle := nil;
+  lHandleVal := HandleToString(aHandle);
+  fHandles.TryGetValue(lHandleVal, lHandle);
+
+  if lHandle <> nil then begin
+    lpe := TROHubPooledEvent.Create(TROZeroConfHandle(lHandle));
+    //
+    lpe.fHandleVal := lHandleVal;
+    lpe.aFullName := aFullName;
+    lpe.aIP:= lIP;
+    lpe.aIPType := lIPType;
+    //
+    lpeEv := lpe;
+    fPool.QueueItem(lpeEv);
+  end;
+end;
+
+procedure TZeroConfHubClient.HandleEvent_ResolveBrowseResult(
+  aHandle: TROHubBytes; aName, aType, aDomain: Unicodestring;
+  aFlags: integer);
+var
+  lHandle: TObject;
+  lHandleVal: string;
+  lpe: TROHubPooledEvent;
+  lpeEv : IROThreadPoolCallback;
+begin
+  lHandle := nil;
+  lHandleVal := HandleToString(aHandle);
+  fHandles.TryGetValue(lHandleVal, lHandle);
+  if lHandle <> nil then begin
+    lpe := TROHubPooledEvent.Create(TROZeroConfHandle(lHandle));
+    //
+    lpe.aName := aName;
+    lpe.aType := aType;
+    lpe.aDomain := aDomain;
+    lpe.aFlags := aFlags;
+    //
+    lpeEv := lpe;
+    fPool.QueueItem(lpeEv);
+  end;
+end;
+
+procedure TZeroConfHubClient.HandleEvent_ResolveServiceResult(
+  aHandle: TROHubBytes; aName, aType, aDomain, aLocalAddress: Unicodestring;
+  aPort: integer; aText: TROHubBytes);
+var
+  lHandle: TObject;
+  lHandleVal: string;
+  lpe: TROHubPooledEvent;
+  lpeEv : IROThreadPoolCallback;
+begin
+  lHandle := nil;
+  lHandleVal := HandleToString(aHandle);
+  fHandles.TryGetValue(lHandleVal, lHandle);
+
+  if lHandle <> nil then begin
+    lpe := TROHubPooledEvent.Create(TROZeroConfHandle(lHandle));
+    //
+    lpe.aName := aName;
+    lpe.aType := aType;
+    lpe.aDomain := aDomain;
+    lpe.aLocalAddress := aLocalAddress;
+    lpe.aPort := aPort;
+    lpe.aText := aText;
+    //
+    lpeEv := lpe;
+    fPool.QueueItem(lpeEv);
+  end;
+end;
+
+function TZeroConfHubClient.QueryInterface(const IID: TGUID;
+  out Obj): HResult;
+begin
+  if GetInterface(IID, Obj) then Result := S_OK else Result := E_NOINTERFACE
+end;
+
+function TZeroConfHubClient.RegisterService(const aName, aService, aDomain: UnicodeString;
+  const aFlags: integer; const aHost: Unicodestring; const aPort: integer; const aText: TROHubBytes;
+  const aUserData: Pointer; const aDelegate: TROZeroConfRegistrationResult): String;
+var
+  lService, lDomain: UnicodeString;
+  lArgs: TKeyValuePair;
+  zc: TROServiceSetup;
+  ldelegate:MulticastDelegate;
+begin
+  lService := RemoveLastDot(aService);
+  lDomain := RemoveLastDot(aDomain);
+  SetLength(lArgs, 7);
+  lArgs[0].ArgName := 'aName';    lArgs[0].ArgValue := UnicodeStringToBytes(aName);
+  lArgs[1].ArgName := 'aService'; lArgs[1].ArgValue := UnicodeStringToBytes(lService);
+  lArgs[2].ArgName := 'aDomain';  lArgs[2].ArgValue := UnicodeStringToBytes(lDomain);
+  lArgs[3].ArgName := 'aFlags';   lArgs[3].ArgValue := Int32ToBuffer(aFlags);
+  lArgs[4].ArgName := 'aHost';    lArgs[4].ArgValue := UnicodeStringToBytes(aHost);
+  lArgs[5].ArgName := 'aPort';    lArgs[5].ArgValue := Int32ToBuffer(aPort);
+  lArgs[6].ArgName := 'aText';    lArgs[6].ArgValue := aText;
+  ldelegate.aType := zcRegistration;
+  ldelegate.RegistrationResult := aDelegate;
+  zc := TROServiceSetup.Create(Self, aUserData, ldelegate);
+  try
+    fWorker.SendData(EncodePackage('RegisterService', true, Int32ToBuffer(zc.GenID), lArgs));
+    Result := zc.GetResult;
+  finally
+    zc.Free;
+  end;
+end;
+
+function TZeroConfHubClient.ResolveAddress(const aFullName: UnicodeString; const aUserData: Pointer; 
+  const aDelegate: TROZeroConfResolveAddressResult):String;
+var
+  lArgs: TKeyValuePair;
+  zc: TROServiceSetup;
+  ldelegate: MulticastDelegate;
+begin
+  SetLength(lArgs,1);
+  lArgs[0].ArgName := 'aFullName';lArgs[0].ArgValue := UnicodeStringToBytes(aFullName);
+  ldelegate.aType := zcResolveAddress;
+  ldelegate.ResolveAddressResult := aDelegate;
+  zc := TROServiceSetup.Create(Self, aUserData, ldelegate);
+  try
+    fWorker.SendData(EncodePackage('ResolveAddress', true, Int32ToBuffer(zc.GenID), lArgs));
+    Result := zc.GetResult;
+  finally
+    zc.Free;
+  end;
+end;
+
+function TZeroConfHubClient.ResolveService(const aServiceName, aServiceType, aDomain: UnicodeString;
+  const aUserData: Pointer; const aDelegate: TROZeroConfResolveServiceResult):String;
+var
+  lServiceType,lDomain: UnicodeString;
+  lArgs: TKeyValuePair;
+  zc: TROServiceSetup;
+  ldelegate: MulticastDelegate;
+begin
+  lServiceType := RemoveLastDot(aServiceType);
+  lDomain := RemoveLastDot(aDomain);
+  SetLength(lArgs,3);
+  lArgs[0].ArgName := 'aName';    lArgs[0].ArgValue := UnicodeStringToBytes(aServiceName);
+  lArgs[1].ArgName := 'aType';    lArgs[1].ArgValue := UnicodeStringToBytes(lServiceType);
+  lArgs[2].ArgName := 'aDomain';  lArgs[2].ArgValue := UnicodeStringToBytes(lDomain);
+  ldelegate.aType := zcResolveService;
+  ldelegate.ResolveServiceResult := aDelegate;
+  zc := TROServiceSetup.Create(Self, aUserData, ldelegate);
+  try
+    fWorker.SendData(EncodePackage('ResolveService', true, Int32ToBuffer(zc.GenID), lArgs));
+    Result := zc.GetResult;
+  finally
+    zc.Free;
+  end;
+end;
+
+procedure TZeroConfHubClient.SendCommand_CloseHandle(aHandle: TROHubBytes);
+var
+  lArgs: TKeyValuePair;
+  wr: TROWaitingRequest;
+  lGenID: integer;
+  lOk: Boolean;
+begin
+  lOk := True;
+  SetLength(lArgs,1);
+  lArgs[0].ArgName := 'aHandle';
+  lArgs[0].ArgValue := aHandle;
+  wr := TROWaitingRequest.Create(True);
+  try
+    lGenID := fWorker.GenerateID(true);
+    fWaitingRequests.Add(lGenID, wr);
+    fWorker.SendData(EncodePackage('CloseHandle', true, Int32ToBuffer(lGenID), lArgs));
+//    lOk := wr.Event.WaitFor(fCommandTimeout) = wrSignaled;// in ms
+    fWaitingRequests.Remove(lGenID);
+    if (not lOk) then raise EROZeroConfHubException.Create('Timeout waiting for request', 0);
+    if EndsWith('#Exception', wr.Name, True) then ProcessException(wr.Args);
+  finally
+    SetLength(lArgs,0);
+    wr.Free;
+  end;
+end;
+
+procedure TZeroConfHubClient.Start;
+var
+  lSock: TTCPStream;
+begin
+  if (fWorker = nil) then begin
+    lSock := CreateTCPClient;
+    fWorker := TROStreamWorker.Create(Self,lSock);
+    lSock.Connect(HUB_HOST, HUB_PORT);
+    fWorker.Start();
+  end;
+end;
+
+procedure TZeroConfHubClient.Stop;
+begin
+  if fWorker <> nil then begin
+    CloseHandles;
+    FreeAndNil(fWorker);
+  end;
+end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+{$IFDEF DELPHI10UP}{$REGION 'TROServiceSetup methods'}{$ENDIF DELPHI10UP}
+function TZeroConfHubClient._AddRef: Integer;
+begin
+  Result := -1   // -1 indicates no reference counting is taking place
+end;
+
+function TZeroConfHubClient._Release: Integer;
+begin
+  Result := -1   // -1 indicates no reference counting is taking place
+end;
+
+destructor TROHubPooledEvent.Destroy;
+begin
+  inherited;
+end;
+
+{ TROServiceSetup }
+
+constructor TROServiceSetup.Create(aOwner: TZeroConfHubClient; aUserData: Pointer; aDelegate: MulticastDelegate);
+begin
+  inherited Create;
+  fOwner := aOwner;
+  fWaitHandle := TROEvent.Create(nil,false,false,'');
+  fWaitingRequest := TROWaitingRequest.Create;
+  fWaitingRequest.Trigger := Self.Trigger;
+  fHandle := TROZeroConfHandle.Create;
+  fHandle.UserData := aUserData;
+  fHandle.Delegate := aDelegate;
+  fGenID := fOwner.fWorker.GenerateID(true);
+  fOwner.fWaitingRequests.Add(fGenID, fWaitingRequest);
+end;
+
+destructor TROServiceSetup.Destroy;
+begin
+  FreeAndNil(fWaitingRequest);
+//  FreeAndNil(fHandle);
+  inherited;
+end;
+
+function TROServiceSetup.GetResult: String;
+var
+  lOk: Boolean;
+begin
+  lOk := fWaitHandle.WaitFor(fOwner.fCommandTimeout)=wrSignaled; // in ms
+  FreeAndNil(fWaitHandle);
+  fOwner.fWaitingRequests.Remove(fGenID);
+  if ( not lOk) then raise EROZeroConfHubException.Create('Timeout waiting for request', 0);
+  if EndsWith('#Exception',fWaitingRequest.Name,True) then ProcessException(fWaitingRequest.Args);
+  Result := fHandleVal;
+end;
+
+procedure TROServiceSetup.Trigger;
+begin
+  try
+    if not EndsWith('#Exception',fWaitingRequest.Name) then begin
+      fHandle.Handle := FindParameter(fWaitingRequest.Args, 'aHandle');
+      fHandleVal := HandleToString(fHandle.Handle);
+      fOwner.fHandles.Add(fHandleVal, fHandle);
+    end
+    else begin
+      FreeAndNil(fHandle);
+    end;
+    if fWaitHandle <> nil then fWaitHandle.SetEvent;
+  except
+    fWaitingRequest.Name := '#Exception';
+    fOwner.fHandles.Remove(fHandleVal);
+    FreeAndNil(fHandle);
+  end;
+end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+{$IFDEF DELPHI10UP}{$REGION 'TRODictionary methods'}{$ENDIF DELPHI10UP}
+{ TRODictionary }
+
+procedure TRODictionary.Add(aKey: string; aValue: TObject);
+begin
+  Lock;
+  try
+    FItems.AddObject(aKey,aValue);
+  finally
+    Unlock;
+  end;
+end;
+
+procedure TRODictionary.Add(aKey: integer; aValue: TObject);
+begin
+  Add(IntToStr(aKey),aValue);
+end;
+
+constructor TRODictionary.Create;
+begin
+  inherited;
+  {$IFDEF FPC}
+  InitCriticalSection(FLock);
+  {$ELSE}
+  InitializeCriticalSection(FLock);
+  {$ENDIF}
+  fItems := TStringList.Create;
+  fItems.Duplicates:= dupError;
+end;
+
+destructor TRODictionary.Destroy;
+begin
+  Lock;
+  try
+    fItems.Free;
+    inherited;
+  finally
+    Unlock;
+    {$IFDEF FPC}
+    DoneCriticalSection(FLock);
+    {$ELSE}
+    DeleteCriticalSection(FLock);
+    {$ENDIF}
+  end;
+end;
+
+function TRODictionary.Lock: TStringList;
+begin
+  EnterCriticalSection(FLock);
+  Result := fItems;
+end;
+
+procedure TRODictionary.Remove(aKey: integer);
+begin
+  Remove(IntToStr(aKey));
+end;
+
+procedure TRODictionary.Remove(aKey: string);
+var
+  i: integer;
+begin
+  Lock;
+  try
+    i := FItems.IndexOf(aKey);
+    if i <> -1 then FItems.Delete(i);
+  finally
+    Unlock;
+  end;
+end;
+
+function TRODictionary.TryGetValue(aKey: string;
+  out aValue: TObject): boolean;
+var
+  i: integer;
+begin
+  Lock;
+  try
+    i := FItems.IndexOf(aKey);
+    Result := i <> -1;
+    if Result then aValue := FItems.Objects[i];
+  finally
+    Unlock;
+  end;
+end;
+
+procedure TRODictionary.Unlock;
+begin
+  LeaveCriticalSection(FLock);
+end;
+
+function TRODictionary.TryGetValue(aKey: integer;
+  out aValue: TObject): boolean;
+begin
+  Result := TryGetValue(IntToStr(aKey),aValue);
+end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+{$IFDEF DELPHI10UP}{$REGION 'TROWaitingRequest methods'}{$ENDIF DELPHI10UP}
+{ TROWaitingRequest }
+
+constructor TROWaitingRequest.Create(ACreateWithEventSupport: Boolean = False);
+begin
+  inherited Create;
+  fName := '';
+  SetLength(FArgs,0);
+  if ACreateWithEventSupport then begin
+    fwh := TROEvent.Create(nil, False,False,'');
+    fTrigger := EventTrigger;
+  end;
+end;
+
+destructor TROWaitingRequest.Destroy;
+begin
+  SetLength(FArgs,0);
+  fwh.Free;
+  inherited;
+end;
+
+procedure TROWaitingRequest.EventTrigger;
+begin
+  fwh.SetEvent;
+end;
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfHubSynapse.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfHubSynapse.pas
new file mode 100644
index 0000000..f7d2ada
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfHubSynapse.pas	
@@ -0,0 +1,142 @@
+unit uROZeroConfHubSynapse;
+
+{$I RemObjects.inc}
+{.$DEFINE TROHubSynapseTcpClient_DEBUG}
+interface
+uses
+  SysUtils,
+  synsock, blcksock,
+  uROZeroConfHub,
+  uROZeroConfStreamWorker;
+
+type
+  TROHubSynapseTCPClient = class(TTCPStream)
+  private
+    fConnection: TTCPBlockSocket;
+    procedure ProcessSynapseErrors;
+  protected
+    function GetConnected: Boolean;override;
+  public
+    procedure Connect(AHost: string; aPort: Integer);override;
+    procedure Stop;override;
+    function Read(Buffer: Pointer; Count: Longint): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+  end;
+
+  TZeroConfHubSynapseClient = class(TZeroConfHubClient)
+  protected
+    function CreateTCPClient: TTCPStream; override;
+  end;
+
+  EZeroConfSynapseHubClient = class(EROZeroConfHubException)
+  end;
+
+implementation
+{$IFDEF TROHubSynapseTcpClient_DEBUG}
+uses
+  Windows,Classes;
+var
+  debug_cnt:integer = 0;
+{$ENDIF}
+
+{ TZeroConfHubSynapseClient }
+
+function TZeroConfHubSynapseClient.CreateTCPClient: TTCPStream;
+begin
+  Result := TROHubSynapseTCPClient.Create;
+end;
+
+{ TROHubSynapseTCPClient }
+
+procedure TROHubSynapseTCPClient.Connect(AHost: string; aPort: Integer);
+begin
+  if fConnection = nil then begin
+    fConnection := TTCPBlockSocket.Create;
+    try
+      fConnection.Connect(AHost,IntToStr(APort));
+      ProcessSynapseErrors;
+    except
+      FreeAndNil(fConnection);
+      raise;
+    end;
+  end;
+end;
+
+function TROHubSynapseTCPClient.GetConnected: Boolean;
+begin
+  Result := fConnection <> nil;
+end;
+
+procedure TROHubSynapseTCPClient.ProcessSynapseErrors;
+begin
+  if fConnection <> nil then begin
+    if fConnection.LastError <> 0 then raise EZeroConfSynapseHubClient.Create(fConnection.LastErrorDesc, fConnection.LastError);
+  end
+  else begin
+    raise Exception.Create('not connected!');
+  end;
+end;
+
+function TROHubSynapseTCPClient.Read(Buffer: Pointer; Count: Integer): Longint;
+begin
+ // hide exception
+  if not Connected then begin
+    Result := 0;
+    exit;
+  end;
+{$IFDEF TROHubSynapseTcpClient_DEBUG}
+  OutputDebugString(Pchar('Read - start, cnt = '+inttoStr(Count)));
+  try
+{$ENDIF}
+
+  if not Connected then raise Exception.Create('not connected!');
+  Result := fConnection.RecvBuffer(Buffer, Count);
+  {$IFDEF TROHubSynapseTCPClient_DEBUG}
+  InterlockedIncrement(debug_cnt);
+  with TFileStream.Create( ExtractFileName(ParamStr(0)) +' '+IntToHex(cardinal(self),8) +' log '+inttostr(debug_cnt)+'_read.txt', fmCreate) do try
+    Write(Buffer^,Count);
+  finally
+    Free;
+  end;
+  finally
+    OutputDebugString(Pchar('Read - end, Result = '+inttoStr(Result)));
+  end;
+  {$ENDIF}
+end;
+
+procedure TROHubSynapseTCPClient.Stop;
+begin
+  if fConnection <> nil then begin
+    sleep(100);
+//    fConnection.CloseSocket;
+    FreeAndNil(fConnection);
+  end;
+end;
+
+
+function TROHubSynapseTCPClient.Write(const Buffer; Count: Integer): Longint;
+begin
+{$IFDEF TROHubSynapseTcpClient_DEBUG}
+  OutputDebugString(Pchar('Write - start, cnt = '+inttoStr(Count)));
+  try
+{$ENDIF}
+  if not Connected then raise Exception.Create('not connected!');
+  {$IFDEF TROHubSynapseTcpClient_DEBUG}
+  InterlockedIncrement(debug_cnt);
+  with TFileStream.Create( ExtractFileName(ParamStr(0)) +' '+IntToHex(cardinal(self),8) +' log '+inttostr(debug_cnt)+'_write.txt', fmCreate) do try
+    Write(Buffer,Count);
+  finally
+    Free;
+  end;
+  {$ENDIF}
+  Result := fConnection.SendBuffer(@Buffer,Count);
+  ProcessSynapseErrors;
+
+{$IFDEF TROHubSynapseTcpClient_DEBUG}
+  finally
+    OutputDebugString(Pchar('Write - end, Result = '+inttoStr(Result)));
+  end;
+{$ENDIF}
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfStreamWorker.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfStreamWorker.pas
new file mode 100644
index 0000000..0a73d1b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROZeroConfStreamWorker.pas	
@@ -0,0 +1,467 @@
+unit uROZeroConfStreamWorker;
+{$I RemObjects.inc}
+{.$DEFINE uROZeroConfHub_DEBUG}
+interface
+
+uses
+  {$IFDEF MSWINDOWS}Windows, SyncObjs,{$ENDIF}SysUtils, Classes,
+  uROClasses, uROThread, uROClient;
+type
+  TROHubBytes = AnsiString;
+
+  EROZeroConfHubException = class(Exception)
+  private
+    fCode: integer;
+  public
+    constructor Create(const Msg: string; aCode: Integer);
+    constructor CreateFmt(const Msg: string; const Args: array of const;aCode: Integer);
+    property Code: integer read fCode;
+  end;
+
+  TKeyValuePairItem = record
+    ArgName: Unicodestring;
+    ArgValue: TROHubBytes;
+  end;
+  TROStreamWorker = class;
+  TKeyValuePair = array of TKeyValuePairItem;
+
+
+  IROStreamWorkerCallbacks = interface
+    procedure ControlCommand(aSender: TROStreamWorker; aName: UnicodeString; aArguments: TKeyValuePair);
+    procedure Data(aSender: TROStreamWorker; aData: TROHubBytes);
+    procedure Disconnected(aSender: TROStreamWorker);
+  end;
+
+  TTCPStream = class
+  protected
+    function GetConnected: Boolean;virtual; abstract;
+  public
+    constructor Create; virtual;
+    destructor Destroy; override;
+    procedure Connect(AHost: string; aPort: Integer);virtual; abstract;
+    procedure Stop;virtual; abstract;
+    function Read(Buffer: Pointer; Count: Longint): Longint; virtual; abstract;
+    function ReadExact(Buffer: Pointer; Count: Longint): Longint;
+    function Write(const Buffer; Count: Longint): Longint; virtual; abstract;
+    property Connected: Boolean read GetConnected;
+  end;
+
+  TROStreamWorker = class(TROThread)
+  private
+    fStream: TTCPStream;
+    fUserData: Pointer;
+    fCallbacks: IROStreamWorkerCallbacks;
+    fIdGen: integer;
+    fRemoteMaxLength: integer;
+    fMaxLength: integer;
+    fStarted: Boolean;
+    fCS: TRTLCriticalSection;
+    procedure ControlPackage(aData: TROHubBytes);
+  protected
+    procedure Execute; override;
+    function ReadWelcome: Boolean;
+  public
+    constructor Create(aCallbacks: IROStreamWorkerCallbacks; aStream: TTCPStream);
+    destructor Destroy; override;
+    function GenerateID(aPositive: boolean): integer;
+    procedure Start;
+    procedure SendControlPackage(aCommand: UnicodeString; aArguments: TKeyValuePair); overload;
+    procedure SendControlPackage(aCommand: UnicodeString; aArguments: array of TKeyValuePairItem); overload;
+    procedure SendData(aData: TROHubBytes);
+    property UserData: Pointer read fUserData write fUserData;
+    property RemoteMaxLength: integer read fRemoteMaxLength write fRemoteMaxLength default -1;
+    property MaxLength: integer read fMaxLength write fMaxLength default 1024*1024;
+  end;
+
+function Int32FromBuffer(aBuf: TROHubBytes): integer; overload;
+function Int32FromBuffer(aBuf: PAnsiChar): integer; overload;
+function Int32ToBuffer(aValue: integer): TROHubBytes;
+function UnicodeStringToBytes(AStr: UnicodeString): TROHubBytes;
+function BytesToUnicodeString(aData: TROHubBytes): UnicodeString;
+function EncodePackage(aCommand: Unicodestring;
+  aWriteTotalLength: Boolean; aPrefix: TROHubBytes;
+  aArguments: TKeyValuePair): TROHubBytes;
+
+procedure DecodePackage(aData: TROHubBytes; aSkipBytes: integer;
+  out aName: Unicodestring; out aArguments: TKeyValuePair);
+function GetKVPair(aName: UnicodeString; aValue: TROHubBytes): TKeyValuePairItem;
+
+implementation
+
+
+function Int32FromBuffer(aBuf: PAnsiChar): integer;
+begin
+{$IFDEF ENDIAN_BIG}
+  Result :=
+    ord(aBuf[3])+
+    ord(aBuf[2])*$100+
+    ord(aBuf[1])*$10000+
+    ord(aBuf[0])*$1000000;
+{$ELSE}
+  Result :=
+    ord(aBuf[0])+
+    ord(aBuf[1])*$100+
+    ord(aBuf[2])*$10000+
+    ord(aBuf[3])*$1000000;
+{$ENDIF}
+end;
+
+function Int32FromBuffer(aBuf: TROHubBytes): integer;
+begin
+  Result := Int32FromBuffer(PAnsiChar(aBuf));
+end;
+
+function Int32ToBuffer(aValue: integer): TROHubBytes;
+begin
+  SetLength(Result,4);
+{$IFDEF ENDIAN_BIG}
+  Result[4] := AnsiChar((aValue and $000000ff) shr 0);
+  Result[3] := AnsiChar((aValue and $0000ff00) shr 8);
+  Result[2] := AnsiChar((aValue and $00FF0000) shr 16);
+  Result[1] := AnsiChar((aValue and $FF000000) shr 24);
+{$ELSE}
+  Result[1] := AnsiChar((aValue and $000000ff) shr 0);
+  Result[2] := AnsiChar((aValue and $0000ff00) shr 8);
+  Result[3] := AnsiChar((aValue and $00FF0000) shr 16);
+  Result[4] := AnsiChar((aValue and $FF000000) shr 24);
+{$ENDIF}
+end;
+
+
+function UnicodeStringToBytes(AStr: UnicodeString): TROHubBytes;
+begin
+  Result := UTF8Encode(AStr);
+end;
+
+function BytesToUnicodeString(aData: TROHubBytes): UnicodeString;
+begin
+  Result := UTF8ToString(aData);
+end;
+
+procedure DecodePackage(aData: TROHubBytes; aSkipBytes: integer;
+  out aName: Unicodestring; out aArguments: TKeyValuePair);
+
+  function ReadInt32(var p: PAnsiChar): integer;
+  begin
+    Result := Int32FromBuffer(p);
+    inc(p,4);
+  end;
+
+  {
+  procedure ReadByteArray(var p: PAnsiChar; var ByteArray: TROHubBytes);
+  var
+    lLength: integer;
+  begin
+    lLength:= ReadInt32(p);
+    SetString(ByteArray,p,lLength);
+    inc(p, lLength);
+  end;
+  }
+
+  function ReadAnsiString(var p: PAnsiChar): Ansistring;
+  var
+    lLength: integer;
+  begin
+    lLength:= ReadInt32(p);
+    SetString(Result,p,lLength);
+    inc(p, lLength);
+  end;
+
+  function ReadUTF8String(var p: PAnsiChar): Unicodestring;
+  begin
+    Result := UTF8ToString(ReadAnsiString(p));
+  end;
+
+var
+  lArgCount: integer;
+  i: integer;
+  p: PAnsiChar;
+begin
+  p := PAnsiChar(aData);
+  if aSkipBytes > 0 then p := p + aSkipBytes;
+  aName := ReadUTF8String(p);
+  lArgCount := ReadInt32(p);
+  SetLength(aArguments,lArgCount);
+  for i := 0 to lArgCount-1 do begin
+    aArguments[i].ArgName := ReadUTF8String(p);
+    aArguments[i].ArgValue := ReadAnsiString(p);
+//    ReadByteArray(p, aArguments[i].ArgValue);
+  end;
+end;
+
+function EncodePackage(aCommand: Unicodestring;
+  aWriteTotalLength: Boolean; aPrefix: TROHubBytes;
+  aArguments: TKeyValuePair): TROHubBytes;
+
+  procedure WriteInt32(AStream: TStream; AValue: Integer);
+  var
+    a: TROHubBytes;
+  begin
+    a := Int32ToBuffer(AValue);
+    AStream.Write(pointer(a)^, SizeOf(Integer));
+  end;
+
+  procedure WriteAnsiString(AStream: TStream; AStr: AnsiString);
+  begin
+    WriteInt32(AStream,Length(Astr));
+    AStream.Write(pointer(Astr)^, Length(Astr));
+  end;
+
+  procedure WriteUTF8String(AStream: TStream; AStr: UnicodeString);
+  begin
+    WriteAnsiString(AStream, UTF8Encode(AStr));
+  end;
+
+var
+  Str: TROBinaryMemoryStream;
+  i: integer;
+begin
+  str := TROBinaryMemoryStream.Create;
+  try
+    i := 0;
+    if aWriteTotalLength then begin
+      Str.Write(i, SizeOf(integer));
+    end;
+    if Length(aPrefix) > 0 then Str.Write(pointer(aPrefix)^,Length(aPrefix));
+    WriteUTF8String(str,aCommand);
+    WriteInt32(str, Length(aArguments));
+    if Length(aArguments) <> 0 then begin
+      for i := 0 to Length(aArguments)-1 do begin
+        WriteUTF8String(str,aArguments[i].ArgName);
+        WriteAnsiString(str,aArguments[i].ArgValue);
+      end;
+    end;
+    if (aWriteTotalLength) then begin
+      Str.Position := 0;
+      WriteInt32(str, Str.Size-4);
+    end;
+//    SetString(Result, PAnsiChar(Str.Memory), Str.Size);
+    Result := Str.ToString;
+  finally
+    Str.Free;
+  end;
+end;
+
+
+function GetKVPair(aName: UnicodeString; aValue: TROHubBytes): TKeyValuePairItem;
+begin
+  result.ArgName := aName;
+  result.ArgValue := aVAlue;
+end;
+{$IFDEF DELPHI10UP}{$REGION 'TTCPStream methods'}{$ENDIF DELPHI10UP}
+{ TTCPStream }
+
+constructor TTCPStream.Create;
+begin
+  inherited;
+end;
+
+destructor TTCPStream.Destroy;
+begin
+  Stop;
+  inherited;
+end;
+
+function TTCPStream.ReadExact(Buffer: Pointer; Count: Integer): Longint;
+var
+  lRecv: Integer;
+  p: PAnsiChar;
+begin
+  result := 0;
+  p := Buffer;
+{$IFDEF uROZeroConfHub_DEBUG}
+  OutputDebugString(Pchar('ReadExact - start, cnt = '+inttoStr(Count)));
+  try
+{$ENDIF}
+  if not Connected then Exit;
+  if count = 0 then Exit;
+  while Count > 0 do begin
+    if not Connected then Break;
+    lRecv := Read(p, Count - Result);
+    if lRecv = 0 then break;
+    Result := Result + lRecv;
+    if Result >= Count then break;
+    Inc(p, lRecv);
+  end;
+{$IFDEF uROZeroConfHub_DEBUG}
+  finally
+    OutputDebugString(Pchar('ReadExact - end, result = '+inttoStr(Result)));
+  end;
+{$ENDIF}
+end;
+
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+{$IFDEF DELPHI10UP}{$REGION 'TROStreamWorker methods'}{$ENDIF DELPHI10UP}
+constructor EROZeroConfHubException.Create(const Msg: string;
+  aCode: Integer);
+begin
+  fCode := aCode;
+  inherited Create(Msg);
+end;
+
+constructor EROZeroConfHubException.CreateFmt(const Msg: string;
+  const Args: array of const; aCode: Integer);
+begin
+  fCode := aCode;
+  inherited CreateFmt(Msg,Args);
+end;
+
+{ TROStreamWorker }
+
+procedure TROStreamWorker.ControlPackage(aData: TROHubBytes);
+var
+  lName: Unicodestring;
+  lArgs: TKeyValuePair;
+  i: integer;
+begin
+  DecodePackage(aData, 4, lName, lArgs);
+  if lName = 'SetMaxLength' then begin
+    for I := 0 to Length(lArgs) - 1 do
+      if lArgs[i].ArgName = 'Length' then fRemoteMaxLength := Int32FromBuffer(lArgs[i].ArgValue);
+  end
+  else begin
+    fCallbacks.ControlCommand(self, lName, lArgs);
+  end;
+end;
+
+constructor TROStreamWorker.Create(aCallbacks: IROStreamWorkerCallbacks; aStream: TTCPStream);
+begin
+  inherited Create(true);
+  {$IFDEF FPC}
+  InitCriticalSection(FCs);
+  {$ELSE}
+  InitializeCriticalSection(FCs);
+  {$ENDIF}
+  fStream := aStream;
+  fCallbacks := aCallbacks;
+  fRemoteMaxLength := -1;
+  fMaxLength := 1024*1024;
+  fStarted := false;
+end;
+
+
+destructor TROStreamWorker.Destroy;
+begin
+{$IFDEF uROZeroConfHub_DEBUG}
+OutputDebugString(PChar('BEFORE WORKER.Destroy:_____ Owner=$'+IntToHex(cardinal(self),8)+'; TCP=$'+IntToHex(cardinal(fStream),8)));
+{$ENDIF uROZeroConfHub_DEBUG}
+  if Assigned(fStream) then begin
+    fStream.Stop;
+    FreeAndNil(fStream);
+  end;
+  inherited Destroy;
+{$IFDEF uROZeroConfHub_DEBUG}
+OutputDebugString(PChar('AFTER WORKER.Destroy:_____ Owner=$'+IntToHex(cardinal(self),8)));
+{$ENDIF uROZeroConfHub_DEBUG}
+  {$IFDEF FPC}
+  DoneCriticalSection(FCs);
+  {$ELSE}
+  DeleteCriticalSection(FCs);
+  {$ENDIF}
+end;
+
+procedure TROStreamWorker.Execute;
+var
+  lLength: array[0..3] of AnsiChar;
+  lLen: Integer;
+  lBuffer: TROHubBytes;
+begin
+  if not ReadWelcome then exit;
+  while true do begin
+    if fStream.ReadExact(@lLength, 4) <> 4 then break;
+    lLen := Int32FromBuffer(@lLength);
+    if lLen > fMaxLength then begin
+      fStream.Stop;
+      exit;
+    end;
+    if lLen > 0 then begin
+      SetLength(lBuffer, lLen);
+      if fStream.ReadExact(pointer(lBuffer), lLen) <> lLen then break;
+      if (lLen > 8) and (PInteger(lBuffer)^ = 0) then begin
+        ControlPackage(lBuffer);
+      end else begin
+        fCallbacks.Data(Self, lBuffer);
+      end;
+    end;
+  end;
+  fCallbacks.Disconnected(self);
+end;
+
+function TROStreamWorker.GenerateID(aPositive: boolean): integer;
+var
+  lRes: integer;
+begin
+  lRes := 0;
+  while (lRes = 0) do begin
+    lRes := Abs(InterlockedIncrement(fIdGen));
+    if (not aPositive) then lRes := -lRes;
+  end;
+
+  // Package ID 0 is reserved for control packages
+  Result := lRes;
+end;
+
+function TROStreamWorker.ReadWelcome: Boolean;
+var
+  lData: array[0..3] of AnsiChar;
+begin
+  if fStream.ReadExact(@lData, 4) <> 4 then begin
+    result := false;
+    exit;
+  end;
+  if (lData[0] <> 'R') or
+    (lData[1] <> 'O') or
+    (lData[2] <> 'S') or
+    (lData[3] <> 'W') then begin
+    fStream.Stop;
+    result := false;
+    exit;
+  end;
+  SendControlPackage('SetMaxLength', [GetKVPair('Length', Int32ToBuffer(fMaxLength))]);
+  result := true;
+end;
+
+procedure TROStreamWorker.SendControlPackage(aCommand: UnicodeString;
+  aArguments: TKeyValuePair);
+begin
+  SendData(EncodePackage(aCommand, True, Int32ToBuffer(0), aArguments));
+end;
+
+{$O-}
+procedure TROStreamWorker.SendControlPackage(aCommand: UnicodeString;
+  aArguments: array of TKeyValuePairItem);
+var
+  lPair: TKeyValuePair;
+  i: Integer;
+begin
+  SetLength(lPair, Length(aArguments));
+  for i :=0 to Length(aArguments) -1 do begin
+    lPair[i] := aArguments[i];
+  end;
+  SendData(EncodePackage(aCommand, True, Int32ToBuffer(0), lPair));
+end;
+
+procedure TROStreamWorker.SendData(aData: TROHubBytes);
+begin
+  EnterCriticalSection(fcs);
+  try
+    fStream.Write(pointer(aData)^, Length(aData));
+  finally
+    LeaveCriticalSection(fcs);
+  end;
+end;
+{$O+}
+
+procedure TROStreamWorker.Start;
+begin
+  if fStarted then Exit;
+  fStarted := true;
+  SendData(TROHubBytes('ROSW'));
+  Suspended := False;
+end;
+
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROmDNS.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROmDNS.pas
new file mode 100644
index 0000000..9005998
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Source/uROmDNS.pas	
@@ -0,0 +1,1584 @@
+unit uROmDNS;
+
+{----------------------------------------------------------------------------}
+{ RemObjects SDK Library - Core Library                                      }
+{                                                                            }
+{ compiler: Delphi 5 and up, Kylix 2 and up                                  }
+{ platform: Win32, Linux                                                     }
+{                                                                            }
+{ (c)opyright RemObjects Software. all rights reserved.                      }
+{                                                                            }
+{ Using this code requires a valid license of the RemObjects SDK             }
+{ which can be obtained at http://www.remobjects.com.                        }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+{$DEFINE USE_ONLY_mDNS_FOR_RESOLVE}
+{$DEFINE NO_DNSServiceGetAddrInfo}
+uses
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  SysUtils,Classes,
+  {$IFDEF FPC}
+  {$IFNDEF MSWINDOWS}BaseUnix,{$ENDIF}
+  Sockets,
+  {$ENDIF}
+  uROClasses, uROThread;
+
+const
+  // from Winsock2
+  AF_UNSPEC = 0;
+  AF_INET   = 2;
+  AF_INET6  = 23;
+  
+  kDNSServiceInterfaceIndexAny        = 0;
+  kDNSServiceInterfaceIndexLocalOnly  = $ffffffff; // (-1)
+  kDNSServiceInterfaceIndexUnicast    = $fffffffe; // (-2)
+
+  kDNSServiceProtocol_IPv4 = $01;
+  kDNSServiceProtocol_IPv6 = $02;
+  kDNSServiceProtocol_UDP  = $10;
+  kDNSServiceProtocol_TCP  = $20;
+
+  kDNSServiceClass_IN       = 1;       // Internet
+// DNSServiceType
+  kDNSServiceType_A         = 1;      // Host address.
+{
+    kDNSServiceType_NS        = 2,      /* Authoritative server. */
+    kDNSServiceType_MD        = 3,      /* Mail destination. */
+    kDNSServiceType_MF        = 4,      /* Mail forwarder. */
+    kDNSServiceType_CNAME     = 5,      /* Canonical name. */
+    kDNSServiceType_SOA       = 6,      /* Start of authority zone. */
+    kDNSServiceType_MB        = 7,      /* Mailbox domain name. */
+    kDNSServiceType_MG        = 8,      /* Mail group member. */
+    kDNSServiceType_MR        = 9,      /* Mail rename name. */
+    kDNSServiceType_NULL      = 10,     /* Null resource record. */
+    kDNSServiceType_WKS       = 11,     /* Well known service. */
+    kDNSServiceType_PTR       = 12,     /* Domain name pointer. */
+    kDNSServiceType_HINFO     = 13,     /* Host information. */
+    kDNSServiceType_MINFO     = 14,     /* Mailbox information. */
+    kDNSServiceType_MX        = 15,     /* Mail routing information. */
+    kDNSServiceType_TXT       = 16,     /* One or more text strings (NOT "zero or more..."). */
+    kDNSServiceType_RP        = 17,     /* Responsible person. */
+    kDNSServiceType_AFSDB     = 18,     /* AFS cell database. */
+    kDNSServiceType_X25       = 19,     /* X_25 calling address. */
+    kDNSServiceType_ISDN      = 20,     /* ISDN calling address. */
+    kDNSServiceType_RT        = 21,     /* Router. */
+    kDNSServiceType_NSAP      = 22,     /* NSAP address. */
+    kDNSServiceType_NSAP_PTR  = 23,     /* Reverse NSAP lookup (deprecated). */
+    kDNSServiceType_SIG       = 24,     /* Security signature. */
+    kDNSServiceType_KEY       = 25,     /* Security key. */
+    kDNSServiceType_PX        = 26,     /* X.400 mail mapping. */
+    kDNSServiceType_GPOS      = 27,     /* Geographical position (withdrawn). */
+    kDNSServiceType_AAAA      = 28,     /* IPv6 Address. */
+    kDNSServiceType_LOC       = 29,     /* Location Information. */
+    kDNSServiceType_NXT       = 30,     /* Next domain (security). */
+    kDNSServiceType_EID       = 31,     /* Endpoint identifier. */
+    kDNSServiceType_NIMLOC    = 32,     /* Nimrod Locator. */
+    kDNSServiceType_SRV       = 33,     /* Server Selection. */
+    kDNSServiceType_ATMA      = 34,     /* ATM Address */
+    kDNSServiceType_NAPTR     = 35,     /* Naming Authority PoinTeR */
+    kDNSServiceType_KX        = 36,     /* Key Exchange */
+    kDNSServiceType_CERT      = 37,     /* Certification record */
+    kDNSServiceType_A6        = 38,     /* IPv6 Address (deprecated) */
+    kDNSServiceType_DNAME     = 39,     /* Non-terminal DNAME (for IPv6) */
+    kDNSServiceType_SINK      = 40,     /* Kitchen sink (experimental) */
+    kDNSServiceType_OPT       = 41,     /* EDNS0 option (meta-RR) */
+    kDNSServiceType_APL       = 42,     /* Address Prefix List */
+    kDNSServiceType_DS        = 43,     /* Delegation Signer */
+    kDNSServiceType_SSHFP     = 44,     /* SSH Key Fingerprint */
+    kDNSServiceType_IPSECKEY  = 45,     /* IPSECKEY */
+    kDNSServiceType_RRSIG     = 46,     /* RRSIG */
+    kDNSServiceType_NSEC      = 47,     /* NSEC */
+    kDNSServiceType_DNSKEY    = 48,     /* DNSKEY */
+    kDNSServiceType_DHCID     = 49,     /* DHCID */
+
+    kDNSServiceType_TKEY      = 249,    /* Transaction key */
+    kDNSServiceType_TSIG      = 250,    /* Transaction signature. */
+    kDNSServiceType_IXFR      = 251,    /* Incremental zone transfer. */
+    kDNSServiceType_AXFR      = 252,    /* Transfer zone of authority. */
+    kDNSServiceType_MAILB     = 253,    /* Transfer mailbox records. */
+    kDNSServiceType_MAILA     = 254,    /* Transfer mail agent records. */
+    kDNSServiceType_ANY       = 255     /* Wildcard match. */
+}
+
+
+  // DNSServiceFlags
+  kDNSServiceFlagsMoreComing = $01;
+  {  * MoreComing indicates to a callback that at least one more result is
+     * queued and will be delivered following immediately after this one.
+     * When the MoreComing flag is set, applications should not immediately
+     * update their UI, because this can result in a great deal of ugly flickering
+     * on the screen, and can waste a great deal of CPU time repeatedly updating
+     * the screen with content that is then immediately erased, over and over.
+     * Applications should wait until until MoreComing is not set, and then
+     * update their UI when no more changes are imminent.
+     * When MoreComing is not set, that doesn't mean there will be no more
+     * answers EVER, just that there are no more answers immediately
+     * available right now at this instant. If more answers become available
+     * in the future they will be delivered as usual.}
+  kDNSServiceFlagsAdd                 = $02;
+  kDNSServiceFlagsDefault             = $04;
+{    * Flags for domain enumeration and browse/query reply callbacks.
+     * "Default" applies only to enumeration and is only valid in
+     * conjunction with "Add". An enumeration callback with the "Add"
+     * flag NOT set indicates a "Remove", i.e. the domain is no longer
+     * valid.}
+  kDNSServiceFlagsNoAutoRename        = $08;
+{    * Flag for specifying renaming behavior on name conflict when registering
+     * non-shared records. By default, name conflicts are automatically handled
+     * by renaming the service. NoAutoRename overrides this behavior - with this
+     * flag set, name conflicts will result in a callback. The NoAutorename flag
+     * is only valid if a name is explicitly specified when registering a service
+     * (i.e. the default name is not used.) }
+
+    kDNSServiceFlagsShared             = $10;
+    kDNSServiceFlagsUnique             = $20;
+    {* Flag for registering individual records on a connected
+     * DNSServiceRef. Shared indicates that there may be multiple records
+     * with this name on the network (e.g. PTR records). Unique indicates that the
+     * record's name is to be unique on the network (e.g. SRV records)}
+    kDNSServiceFlagsBrowseDomains       = $40;
+    kDNSServiceFlagsRegistrationDomains = $80;
+    {* Flags for specifying domain enumeration type in DNSServiceEnumerateDomains.
+     * BrowseDomains enumerates domains recommended for browsing, RegistrationDomains
+     * enumerates domains recommended for registration.}
+    kDNSServiceFlagsLongLivedQuery      = $100;
+    {* Flag for creating a long-lived unicast query for the DNSServiceQueryRecord call. }
+    kDNSServiceFlagsAllowRemoteQuery    = $200;
+    {* Flag for creating a record for which we will answer remote queries
+     * (queries from hosts more than one hop away; hosts not directly connected to the local link).}
+    kDNSServiceFlagsForceMulticast      = $400;
+    {* Flag for signifying that a query or registration should be performed exclusively via multicast
+     * DNS, even for a name in a domain (e.g. foo.apple.com.) that would normally imply unicast DNS.}
+    kDNSServiceFlagsForce               = $800;
+    {* Flag for signifying a "stronger" variant of an operation.
+     * Currently defined only for DNSServiceReconfirmRecord(), where it forces a record to
+     * be removed from the cache immediately, instead of querying for a few seconds before
+     * concluding that the record is no longer valid and then removing it. This flag should
+     * be used with caution because if a service browsing PTR record is indeed still valid
+     * on the network, forcing its removal will result in a user-interface flap -- the
+     * discovered service instance will disappear, and then re-appear moments later.}
+    kDNSServiceFlagsReturnIntermediates = $1000;
+    {* Flag for returning intermediate results.
+     * For example, if a query results in an authoritative NXDomain (name does not exist)
+     * then that result is returned to the client. However the query is not implicitly
+     * cancelled -- it remains active and if the answer subsequently changes
+     * (e.g. because a VPN tunnel is subsequently established) then that positive
+     * result will still be returned to the client.
+     * Similarly, if a query results in a CNAME record, then in addition to following
+     * the CNAME referral, the intermediate CNAME result is also returned to the client.
+     * When this flag is not set, NXDomain errors are not returned, and CNAME records
+     * are followed silently without informing the client of the intermediate steps.
+     * (In earlier builds this flag was briefly calledkDNSServiceFlagsReturnCNAME)}
+    kDNSServiceFlagsNonBrowsable        = $2000;
+    {* A service registered with the NonBrowsable flag set can be resolved using
+     * DNSServiceResolve(), but will not be discoverable using DNSServiceBrowse().
+     * This is for cases where the name is actually a GUID; it is found by other means;
+     * there is no end-user benefit to browsing to find a long list of opaque GUIDs.
+     * Using the NonBrowsable flag creates SRV+TXT without the cost of also advertising
+     * an associated PTR record.}
+    kDNSServiceFlagsShareConnection     = $4000;
+    {* For efficiency, clients that perform many concurrent operations may want to use a
+     * single Unix Domain Socket connection with the background daemon, instead of having a
+     * separate connection for each independent operation. To use this mode, clients first
+     * call DNSServiceCreateConnection(&MainRef) to initialize the main DNSServiceRef.
+     * For each subsequent operation that is to share that same connection, the client copies
+     * the MainRef, and then passes the address of that copy, setting the ShareConnection flag
+     * to tell the library that this DNSServiceRef is not a typical uninitialized DNSServiceRef;
+     * it's a copy of an existing DNSServiceRef whose connection information should be reused.}
+
+  // DNSServiceErrorType
+  kDNSServiceErr_NoError = 0;
+  kDNSServiceErr_Timeout = -1;
+  kDNSServiceErr_Unknown = -65537;       // 0xFFFE FFFF
+  kDNSServiceErr_NoSuchName = -65538;
+  kDNSServiceErr_NoMemory = -65539;
+  kDNSServiceErr_BadParam = -65540;
+  kDNSServiceErr_BadReference = -65541;
+  kDNSServiceErr_BadState = -65542;
+  kDNSServiceErr_BadFlags = -65543;
+  kDNSServiceErr_Unsupported = -65544;
+  kDNSServiceErr_NotInitialized = -65545;
+  kDNSServiceErr_AlreadyRegistered = -65547;
+  kDNSServiceErr_NameConflict = -65548;
+  kDNSServiceErr_Invalid = -65549;
+  kDNSServiceErr_Firewall = -65550;
+  kDNSServiceErr_Incompatible = -65551;        // client library incompatible with daemon
+  kDNSServiceErr_BadInterfaceIndex = -65552;
+  kDNSServiceErr_Refused = -65553;
+  kDNSServiceErr_NoSuchRecord = -65554;
+  kDNSServiceErr_NoAuth = -65555;
+  kDNSServiceErr_NoSuchKey = -65556;
+  kDNSServiceErr_NATTraversal = -65557;
+  kDNSServiceErr_DoubleNAT = -65558;
+  kDNSServiceErr_BadTime = -65559;
+
+  FD_SETSIZE = 64;
+
+type
+  DNSServiceErrorType = integer;
+  DNSServiceFlags = cardinal;
+  DNSServiceProtocol = cardinal;
+  {$IFNDEF FPC}
+  TSocket = Cardinal;
+  {$ENDIF}
+  fdset = record
+    fd_count: Word;
+    fd_array: Array[0..FD_SETSIZE-1] of TSocket;
+  end;
+
+  TFDSet = fdset;
+  PFDSet = ^fdset;
+
+  timeval=record
+    tv_sec: LongInt;    // seconds
+    tv_usec: LongInt;   // and microseconds
+  end;
+
+  TTimeVal = timeval;
+  PTimeVal = ^TTimeVal;
+
+
+  SelectMode = (SelectRead,SelectWrite,SelectError);
+
+  TROUnixSocket = class;
+  TRODNSService = class;
+  TROAsyncCallback = procedure(const DNSService: TRODNSService; const Sender: TROUnixSocket);
+  TROSocketThread = class;
+
+  TROUnixSocket = class
+  private
+    fSocket: TSocket;
+  public
+    constructor Create(ASocket: TSocket);
+    procedure BeginPoll(timeout: PTimeVal; mode: SelectMode; callback: TROAsyncCallback; DNS: TRODNSService);
+  end;
+
+  TROAsyncPollCaller = function(ASocket:TROUnixSocket; timeout: PTimeVal; mode: SelectMode):boolean;
+
+  TROSocketThread = class(TROThread)
+  private
+    ftimeout: PTimeVal;
+    fmode: SelectMode;
+    fcallback: TROAsyncCallback;
+    fcaller: TROAsyncPollCaller;
+    fsocket:TROUnixSocket;
+    fdns:TRODNSService;
+    procedure Callback;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(timeout: PTimeVal; mode: SelectMode; aCallback: TROAsyncCallback; caller: TROAsyncPollCaller; socket:TROUnixSocket; dns:TRODNSService);
+    destructor Destroy; override;
+  end;
+
+// import functions
+  TDNSServiceBrowseReply = procedure(const sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal; const errorCode: DNSServiceErrorType;
+    const serviceName: PAnsichar; const regtype: PAnsiChar; const replyDomain: PAnsiChar; const context: Pointer);  {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceResolveReply = procedure(const sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal; const errorCode: DNSServiceErrorType;
+    const fullname: PAnsiChar; const hosttarget: PAnsiChar; const port: Word; const txtLen: Word; const txtRecord: PAnsiChar; const context: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceDomainEnumReply = procedure(const sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal; const errorCode: DNSServiceErrorType;
+    const replyDomain: PAnsiChar; const context: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceRegisterReply = procedure(const sdRef: Pointer; const flags: Cardinal; const errorCode: DNSServiceErrorType; const name: PAnsiChar;
+    const regtype: PAnsiChar; const domain: PAnsiChar; const context: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceQueryRecordReply = procedure(const sdRef: pointer; const flags: Cardinal;const interfaceIndex: Cardinal; const errorCode: DNSServiceErrorType;
+    const FullName: PAnsiChar; const rrtype, rrclass: Word; const rdLen: Word; const rdata: PAnsiChar; ttl: cardinal;const context: Pointer);{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+  TDNSServiceGetAddrInfoReply = procedure(const sdRef: pointer;const flags: Cardinal;const interfaceIndex: Cardinal; const errorCode: DNSServiceErrorType;
+    const HostName: PAnsiChar; const address: Pointer; ttl: cardinal;const context: Pointer);{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+{$ENDIF}
+  ERODNSServiceException = class(Exception)
+  private
+    fDNSServiceErrorType: DNSServiceErrorType;
+  public
+    constructor Create(const Msg: string; const ADNSServiceErrorType: DNSServiceErrorType);
+    property DNSServiceErrorType: DNSServiceErrorType read fDNSServiceErrorType;
+  end;
+
+  TRONetServiceErrorEvent  = procedure (Sender: TRODNSService; ErrorCode: DNSServiceErrorType) of object;
+
+
+  TRODNSService = class
+  private
+    socket: TROUnixSocket;
+    inPoll: boolean;
+    stoppingPoll: TROEvent;
+    procedure PollInvokeable;
+  protected
+    sdRef: pointer; // Pointer to the internal DNSService object
+    flags: DNSServiceFlags;
+    interfaceIndex : cardinal;
+    stopping: boolean;  //True when we are attempting to stop the current asynchronous task.
+    FOnError: TRONetServiceErrorEvent;
+    FErrorCode: DNSServiceErrorType;
+    function BlockWatchSocket(seconds: PTimeVal): boolean; overload;
+    function BlockWatchSocket(seconds: integer): boolean; overload;
+    procedure SetupWatchSocket;
+    procedure WaitStop;
+    property OnError: TRONetServiceErrorEvent read FOnError write FOnError;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Stop; virtual; //Stops the currently running search or resolution.
+    property  ErrorCode: DNSServiceErrorType read FErrorCode;
+  end;
+
+  TRONetService = TRODNSService;
+
+  TRONetServiceBrowseEvent = procedure (service: TRONetService; Add: boolean; AName, aServiceType, aDomain: Unicodestring) of object;
+  TRONetServiceResolveEvent= procedure (caller: TRONetService; aFullDomainName, aHostTarget: Unicodestring; aPort: integer; txtRecord: Ansistring; addresses: Unicodestring; IPType: integer) of object;
+  TRONetServiceQueryEvent= procedure (caller: TRONetService; aIP: UnicodeString; aIPType: integer) of object;
+
+  TRORegisterNetService = class(TRONetService)
+  private
+    fDomain, fServiceType, fServiceName: Unicodestring;
+    fPort: integer;
+    fregisterReplyCb: TDNSServiceRegisterReply;
+    fTXTRecordData: Ansistring;
+  public
+    constructor Create(const aDomain, aServiceType, aServiceName: Unicodestring; const aPort: integer);
+    procedure Publish;
+    procedure Stop; override;
+    class procedure CreateDNSServiceRegisterException(anErrorCode: DNSServiceErrorType);
+    property RegisterDomain: Unicodestring read fDomain;
+    property RegisterType: Unicodestring read fServiceType;
+    property RegisterName: Unicodestring read fServiceName;
+    property RegisterPort: integer read fPort;
+    property TXTRecordData: Ansistring read fTXTRecordData write fTXTRecordData;
+    property OnError;
+  end;
+
+
+  TROBrowseNetService = class(TRONetService)
+  private
+    fResolveDomain, fResolveType: Unicodestring;
+    fBrowseResult: TRONetServiceBrowseEvent;
+    fBrowseReplyCb: TDNSServiceBrowseReply;
+  public
+    constructor Create(const aDomain, aServiceType: Unicodestring);
+    procedure Start;
+    procedure Stop; override;
+    class procedure CreateDNSServiceBrowseException(anErrorCode: DNSServiceErrorType);
+    property ResolveType: Unicodestring read fResolveType;
+    property ResolveDomain: Unicodestring read fResolveDomain;
+
+    property BrowseResult:TRONetServiceBrowseEvent read fBrowseResult write fBrowseResult;
+    property OnError;
+  end;
+
+  TROResolveNetService = class(TRONetService)
+  private
+    fDomain, fType, fName: Unicodestring;
+    fResolveResult: TRONetServiceResolveEvent;
+    fResolveReplyCb: TDNSServiceResolveReply;
+    fFullDomainName_block, fHostTarget_block: Unicodestring;
+    fPort_block: integer;
+    ftxtRecord_block: Ansistring;
+    procedure intResolveResult(caller: TRONetService; aFullDomainName, aHostTarget: Unicodestring; aPort: integer; txtRecord: Ansistring; addresses: Unicodestring; aIPType: integer);
+  public
+    constructor Create(const aDomain, aType, aName: Unicodestring);
+    procedure Resolve;
+    procedure Stop; override;
+    function BlockResolve(const seconds: PTimeVal; aReqIPType: integer;out fullDomainName, hostTarget: Unicodestring;out port: integer; out txtRecord: AnsiString;out IP4addresses, IP6addresses: string): DNSServiceErrorType;overload;
+    function BlockResolve(const seconds: integer; aReqIPType: integer;out fullDomainName, hostTarget: Unicodestring;out port: integer; out txtRecord: AnsiString;out IP4addresses, IP6addresses: string): DNSServiceErrorType;overload;
+    property ResolveDomain: Unicodestring read fDomain;
+    property ResolveType: Unicodestring read fType;
+    property ResolveName: Unicodestring read fName;
+
+    property ResolveResult: TRONetServiceResolveEvent read fResolveResult write fResolveResult;
+    property OnError;
+  end;
+
+  TRODNSServiceQueryRecordNetService = class(TRONetService)
+  private
+    FFullName: Unicodestring;
+    FReqIPType: integer;
+    fQueryResult: TRONetServiceQueryEvent;
+    FIP4_block, FIP6_block: string;
+  public
+    constructor Create(const aFullName: Unicodestring);
+    procedure QueryRecord;
+    function BlockQueryRecord(const seconds: integer;aReqIPType: integer; out aIP4, aIP6: string): DNSServiceErrorType;
+    property FullName: Unicodestring read FFullName;
+    property OnError;
+    property QueryResult:TRONetServiceQueryEvent read fQueryResult write fQueryResult;
+  end;
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+  TRODNSServiceGetAddrInfo = class(TRONetService)
+  private
+    fHostName: Unicodestring;
+    FIP_block: string;
+  public
+    constructor Create(const aHostName: Unicodestring);
+    procedure GetAddrInfo;
+    function BlockGetAddrInfo(const seconds: integer; var aIP: String): DNSServiceErrorType;
+    property HostName: Unicodestring read fHostName;
+    property OnError;
+//    property OnResult:TRONetServiceQueryEvent read fQueryResult write fQueryResult;
+  end;
+{$ENDIF}
+
+  TROResolveNetServiceThread = class(TROThread)
+    fcaller: TROResolveNetService;
+    fFullDomainName, fHostTarget: Unicodestring;
+    fPort: integer;
+    ftxtRecord: Ansistring;
+    faddresses: Unicodestring;
+    fIPType: integer;
+    procedure Callback;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(caller: TROResolveNetService; aFullDomainName, aHostTarget: Unicodestring; aPort: integer; txtRecord: Ansistring);
+  end;
+
+   EDllNotFoundException = class(Exception)
+
+   end;
+
+//  procedure FD_CLR(ASocket: TSocket; var FDSet: TFDSet);
+//  function FD_ISSET(ASocket: TSocket; var FDSet: TFDSet): Boolean;
+//  procedure FD_SET(ASocket: TSocket; var FDSet: TFDSet);
+//  procedure FD_ZERO(var fdset: TFDSet);
+
+  TDNSServiceRefSockFD = function(const sdRef: Pointer): DNSServiceErrorType;  {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceProcessResult = function (const sdRef: Pointer): DNSServiceErrorType;  {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceRefDeallocate = procedure (const sdRef: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceBrowse = function(out sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal; const regtype: PAnsiChar;
+    const domain: PAnsiChar; const callBack: TDNSServiceBrowseReply; const context: Pointer): DNSServiceErrorType; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceResolve = function(out sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal; const name: PAnsiChar;
+    const regtype: PAnsiChar; const domain: PAnsiChar; const callBack: TDNSServiceResolveReply; const context: Pointer): DNSServiceErrorType;  {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceEnumerateDomains = function (out sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal;
+    const callBack: TDNSServiceDomainEnumReply; const context: Pointer):DNSServiceErrorType; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceRegister = function(out sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal; const name: PAnsiChar;
+    const regtype: PAnsiChar; const domain: PAnsiChar; const host: PAnsiChar; const port: Word; const txtLen: Word; const txtRecord: PAnsiChar;
+    const callBack: TDNSServiceRegisterReply;const context: Pointer): DNSServiceErrorType; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  TDNSServiceQueryRecord = function(out sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal;const FullName: PAnsiChar;
+    const rrtype, rrclass: word; callBack: TDNSServiceQueryRecordReply; context: Pointer):DNSServiceErrorType;{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+  TDNSServiceGetAddrInfo = function(out sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal;const protocol:DNSServiceProtocol;const HostName: PAnsiChar;
+    const callBack: TDNSServiceGetAddrInfoReply;context: Pointer):DNSServiceErrorType;{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+{$ENDIF}
+
+  TSelect = function(nfds: Integer; readfds, writefds, exceptfds: PFDSet; timeout: PTimeVal): Integer; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+  {$IFNDEF FPC}
+  Thtons = function(hostshort: Word): Word;  stdcall;
+  Tntohs = function(hostshort: Word): Word;  stdcall;
+
+  PInAddr = ^TInAddr;
+  TInAddr = packed record
+    case integer of
+      0: (S_bytes: packed array [0..3] of byte);
+      1: (S_addr: Cardinal);
+  end;
+
+  PSockAddrIn = ^TSockAddrIn;
+  TSockAddrIn = packed record
+    case Integer of
+      0: (sin_family: word;
+          sin_port: word;
+          sin_addr: TInAddr;
+          sin_zero: array[0..7] of byte);
+      1: (sa_family: word;
+          sa_data: array[0..13] of byte)
+  end;
+
+  PSockAddr = ^TSockAddr;
+  TSockAddr = TSockAddrIn;
+  PSockProto = ^TSockProto;
+  TSockProto = packed record
+    sp_family: Word;
+    sp_protocol: Word;
+  end;
+  {$ENDIF}
+  PAddrInfo = ^TAddrInfo;
+  TAddrInfo = packed record
+    ai_flags: integer;    // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST.
+    ai_family: integer;   // PF_xxx.
+    ai_socktype: integer; // SOCK_xxx.
+    ai_protocol: integer; // 0 or IPPROTO_xxx for IPv4 and IPv6.
+    ai_addrlen: cardinal;    // Length of ai_addr.
+    ai_canonname: PAnsiChar;  // Canonical name for nodename.
+    ai_addr: PSockAddr;   // Binary address.
+    ai_next: PAddrInfo;     // Next structure in linked list.
+  end;
+
+  PAddrInfoW = ^TAddrInfoW;
+  TAddrInfoW = packed record
+    ai_flags: integer;    // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST.
+    ai_family: integer;   // PF_xxx.
+    ai_socktype: integer; // SOCK_xxx.
+    ai_protocol: integer; // 0 or IPPROTO_xxx for IPv4 and IPv6.
+    ai_addrlen: cardinal;    // Length of ai_addr.
+    ai_canonname: PWideChar;  // Canonical name for nodename.
+    ai_addr: PSockAddr;   // Binary address.
+    ai_next: PAddrInfoW;     // Next structure in linked list.
+  end;
+
+var
+  DNSServiceRefSockFD: TDNSServiceRefSockFD = nil;
+  DNSServiceProcessResult: TDNSServiceProcessResult = nil;
+  DNSServiceRefDeallocate: TDNSServiceRefDeallocate = nil;
+  DNSServiceBrowse: TDNSServiceBrowse = nil;
+  DNSServiceResolve: TDNSServiceResolve = nil;
+  DNSServiceEnumerateDomains: TDNSServiceEnumerateDomains = nil;
+  DNSServiceRegister: TDNSServiceRegister = nil;
+  DNSServiceQueryRecord: TDNSServiceQueryRecord = nil;
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+  DNSServiceGetAddrInfo:TDNSServiceGetAddrInfo = nil;
+{$ENDIF}
+  {$IFNDEF MSWINDOWS}
+  Select: TSelect;
+  {$ENDIF}
+
+
+{$IFDEF MSWINDOWS}
+const
+  WINSOCK2_DLL = 'ws2_32.dll';
+
+  AF_IRDA                =    26;
+  AF_BTM                 =    32;
+  WSADESCRIPTION_LEN     =   256;
+  WSASYS_STATUS_LEN      =   128;
+  NI_MAXHOST             =  1025;
+  NI_MAXSERV             =    32;
+  NI_NUMERICHOST         =    $2;
+  NI_NUMERICSERV         =    $8;
+type
+  PWSAData = ^TWSAData;
+  TWSAData = packed record
+    wVersion: Word;
+    wHighVersion: Word;
+    szDescription: array[0..WSADESCRIPTION_LEN] of AnsiChar;
+    szSystemStatus: array[0..WSASYS_STATUS_LEN] of AnsiChar;
+    iMaxSockets: Word;
+    iMaxUDPDg: Word;
+    lpVendorInfo: PAnsiChar;
+  end;
+
+function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Longint; stdcall; external WINSOCK2_DLL;
+function WSACleanup: Longint; stdcall; external WINSOCK2_DLL;
+function getaddrinfo(NodeName: PAnsiChar; ServName: PAnsiChar; Hints: PAddrInfo; var Addrinfo: PAddrInfo): integer; stdcall; external WINSOCK2_DLL;
+procedure freeaddrinfo(ai: PAddrInfo); stdcall;external WINSOCK2_DLL;
+function  getnameinfo( addr: PSockAddr; namelen: Integer; host: PAnsiChar;hostlen: DWORD; serv: PAnsiChar; servlen: DWORD; flags: integer): integer; stdcall;external WINSOCK2_DLL;
+function select(nfds: Longint; readfds, writefds, exceptfds: PFDSet; timeout: PTimeVal): Longint; stdcall;external WINSOCK2_DLL name 'select';
+function htons(hostshort: Word): Word; stdcall;external WINSOCK2_DLL name 'htons';
+function ntohs(netshort: Word): Word; stdcall;external WINSOCK2_DLL name 'ntohs';
+{$ENDIF}
+
+function CheckDNSFunctions(aRaiseException: Boolean = True): Boolean;
+function ROGetAddrInfo(const aHostTarget: Unicodestring; out aIPType: integer; const AReqIPType: integer = AF_UNSPEC; const Timeout: integer =60): string;
+function TXTRecordFromString(aString: UnicodeString): AnsiString;
+function StringFromTXTRecord(aString: AnsiString): UnicodeString;
+
+implementation
+
+{$IFDEF FPC}uses dynlibs, Math;{$ENDIF}
+
+function TXTRecordFromString(aString: UnicodeString): AnsiString;
+var
+  s: TStringList;
+  p: PAnsiChar;
+  a: AnsiString;
+  i: integer;
+  k: byte;
+  aTXTRecordSize: integer;
+begin
+  s:= TStringList.Create;
+  try
+    s.Text := {$IFNDEF UNICODE}UTF8Encode{$ENDIF}(aString);
+    aTXTRecordSize := Length(s.Text)+s.Count;
+    if aTXTRecordSize = 0 then
+      Result := ''
+    else begin
+      SetLength(Result, aTXTRecordSize{$IFDEF UNICODE}*3{$ENDIF});
+      p :=PAnsiChar(Result);
+      for I := 0 to s.Count - 1 do begin
+        a := {$IFDEF UNICODE}UTF8Encode{$ENDIF}(s[i]);
+        if Length(a) > 255 then k:= 255 else k := Length(a);
+        p^:=AnsiChar(k);
+        inc(p);
+        Move(Pointer(a)^, p^,k);
+        inc(p,k);
+      end;
+      SetLength(Result, p - PAnsiChar(Result));
+    end;
+  finally
+    s.Free;
+  end;
+end;
+
+function StringFromTXTRecord(aString: AnsiString): UnicodeString;
+var
+  s: TStringList;
+  p1,p2: PAnsiChar;
+  a: AnsiString;
+begin
+  Result:= '';
+  if Length(aString) = 0 then Exit;
+  s:= TStringList.Create;
+  try
+    p1 := PAnsiChar(aString);
+    p2:= p1+ Length(aString);
+    while p1+1+ord(p1^) <= p2 do begin
+      SetString(a,p1+1,Ord(p1^));
+      s.Add({$IFDEF UNICODE}UTF8ToString{$ENDIF}(a));
+      inc(p1,ord(p1^)+1);
+    end;
+    Result:={$IFNDEF UNICODE}UTF8ToString{$ENDIF}(s.Text);
+    if (Length(Result)>2) and (Result[Length(Result)-1] = #13) and (Result[Length(Result)]=#10)   then SetLength(Result, Length(Result)-2);
+    
+  finally
+    s.Free;
+  end;
+end;
+
+function ROGetAddrInfo(const aHostTarget: Unicodestring; out aIPType: integer; const AReqIPType: integer = AF_UNSPEC; const Timeout: integer =60): string;
+{$IFNDEF USE_ONLY_mDNS_FOR_RESOLVE}
+var
+  S: TStringList;
+  lHostTarget: Ansistring;
+
+  Procedure _GetAddrInfo(aFamily: integer);
+  var
+    lhint : TAddrInfo;
+    lnext,lnext1 : PAddrInfo;
+    lhost, lserv: AnsiString;
+  begin
+    FillChar(lhint,SizeOf(lhint),0);
+    lhint.ai_family := aFamily;
+    if GetAddrInfo(PAnsiChar(lHostTarget),nil,@lhint,lnext) = 0 then
+    try
+      lnext1 := lnext;
+      while lNext1 <> nil do begin
+        setlength(lhost, NI_MAXHOST);
+        setlength(lserv, NI_MAXSERV);
+        if getnameinfo(lNext1^.ai_addr, lNext1^.ai_addrlen, PAnsiChar(lhost), NI_MAXHOST, PAnsiChar(lserv), NI_MAXSERV, NI_NUMERICHOST + NI_NUMERICSERV) = 0 then
+          s.Add({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(PAnsiChar(lhost)));
+        lnext1:=lnext1^.ai_next;
+      end;
+    finally
+      freeaddrinfo(lnext);
+    end;
+  end;
+{$ENDIF USE_ONLY_mDNS_FOR_RESOLVE}
+var
+  lip4, lip6: string;
+begin
+
+{$IFDEF FPC}
+  Result := '';
+{$ENDIF}
+{$IFNDEF USE_ONLY_mDNS_FOR_RESOLVE}
+  if Pos('.local.', aHostTarget) <> Length(aHostTarget) - 6 then begin
+    lHostTarget := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(aHostTarget);
+    s:= TStringList.Create;
+    try
+      _GetAddrInfo(AF_INET); // ip4
+      _GetAddrInfo(AF_INET6);// ip6
+      _GetAddrInfo(AF_IRDA); // IrDA
+      _GetAddrInfo(AF_BTM);  // Bluetooth
+      Result := s.CommaText;
+    finally
+      s.Free;
+    end;
+  end
+  else
+{$ENDIF USE_ONLY_mDNS_FOR_RESOLVE}
+  begin
+    // use mDNS function
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+    With TRODNSServiceGetAddrInfo.Create(aHostTarget) do try
+      if BlockGetAddrInfo(Timeout,Result)<>kDNSServiceErr_NoError then Result := '';
+    finally
+      Free;
+    end;
+{$ELSE}
+   With TRODNSServiceQueryRecordNetService.Create(aHostTarget) do try
+     if BlockQueryRecord(Timeout,AReqIPType,lip4,lIP6)=kDNSServiceErr_NoError then begin
+       Result := lip4;
+       aIPType := AF_INET;
+       if (Result = '') or ((lip6 <> '') and (AReqIPType = AF_INET6)) then begin
+         Result := lip6;
+         aIPType := AF_INET6;
+       end;
+     end
+     else begin
+       Result := '';
+     end;
+   finally
+     Free;
+   end;
+{$ENDIF}
+  end;
+end;
+
+
+procedure FD_CLR(ASocket: TSocket; var FDSet: TFDSet);
+var
+  i: integer;
+begin
+  i := 0;
+  while i < FDSet.fd_count  do begin
+    if FDSet.fd_array[i] = ASocket then begin
+      while i < FDSet.fd_count do begin
+        FDSet.fd_array[i] := FDSet.fd_array[i+1];
+        Inc(i);
+      end;
+      Dec(FDSet.fd_count);
+      Break;
+    end;
+  end;
+end;
+
+function FD_ISSET(ASocket: TSocket; var FDSet: TFDSet): Boolean;
+var
+  i: integer;
+begin
+  Result := False;
+  for i := 0 to FDSet.fd_count - 1 do begin
+    if FDSet.fd_array[i] = ASocket then begin
+      Result := True;
+      Exit;
+    end;
+  end;
+end;
+
+procedure FD_SET(ASocket: TSocket; var FDSet: TFDSet);
+var
+  i: integer;
+begin
+  for i := 0 to FDSet.fd_count - 1 do
+    if FDSet.fd_array[i] = ASocket then Exit;
+  if FDSet.fd_count < fd_setsize then begin
+    FDSet.fd_array[FDSet.fd_count] := ASocket;
+    Inc(FDSet.fd_count);
+  end;
+end;
+
+procedure FD_ZERO(var fdset: TFDSet);
+begin
+  fdset.fd_count := 0;
+end;
+
+{ TROUnixSocket }
+
+function Pool(ASocket:TROUnixSocket; timeout: PTimeVal; mode: SelectMode): boolean;
+var
+  readFDs:  FDSet;
+begin
+  with ASocket do begin
+    if mode = SelectRead then begin
+      FD_ZERO(readFDs);
+      FD_SET(FSocket,readFDs);
+    end;
+    Select(1, @readFDs, nil, nil, timeout);
+    Result :=  FD_ISSET(FSocket, readFDs);
+  end;
+end;
+
+procedure TROUnixSocket.BeginPoll(timeout: PTimeVal; mode: SelectMode;callback: TROAsyncCallback; DNS: TRODNSService);
+var
+  lAsyncPollCaller: TROAsyncPollCaller;
+begin
+  lAsyncPollCaller := @Pool;
+  TROSocketThread.Create(timeout, mode, callback, lAsyncPollCaller, Self, DNS);
+end;
+
+constructor TROUnixSocket.Create(ASocket: TSocket);
+begin
+  inherited Create;
+  fSocket := ASocket;
+end;
+
+
+
+
+{ TROSocketThread }
+
+procedure TROSocketThread.Callback;
+begin
+  if Assigned(fcallback) then fcallback(fdns, Fsocket);
+end;
+
+constructor TROSocketThread.Create(timeout: PTimeVal; mode: SelectMode;
+  aCallback: TROAsyncCallback; caller: TROAsyncPollCaller; socket:TROUnixSocket; dns:TRODNSService);
+begin
+  {$IFNDEF FPC}
+  inherited Create(False,'');
+  {$ELSE}
+  inherited Create(True,'');
+  {$ENDIF}
+  fTimeOut := timeout;
+  fmode := mode;
+  fcallback := aCallback;
+  fcaller:= caller;
+  fSocket := socket;
+  fDNS:= dns;
+  FreeOnTerminate := True;
+  {$IFDEF FPC}
+  Resume;
+  {$ENDIF}
+end;
+
+destructor TROSocketThread.Destroy;
+begin
+
+  inherited;
+end;
+
+procedure TROSocketThread.Execute;
+begin
+  inherited;
+  if Assigned(fCaller) then begin
+    fcaller(fsocket, ftimeout,fmode);
+//    Synchronize(Callback);
+    Callback;
+  end;
+end;
+
+
+{ ERODNSServiceException }
+
+constructor ERODNSServiceException.Create(const Msg: string;
+  const ADNSServiceErrorType: DNSServiceErrorType);
+begin
+  inherited Create(Msg);
+  fDNSServiceErrorType := ADNSServiceErrorType;
+end;
+
+{ TRODNSService }
+
+procedure AsyncPollCallback(const DNSService: TRODNSService; const Sender: TROUnixSocket);
+begin
+  with DNSService do begin
+    if (stopping) then begin
+        inPoll := false;
+        stoppingPoll.SetEvent;
+        exit; // if we're stopping, don't begin a new poll
+    end;
+
+    PollInvokeable();
+    inPoll := true;
+    socket.BeginPoll(nil, SelectRead, @AsyncPollCallback,DNSService);
+  end;
+end;
+
+function TRODNSService.BlockWatchSocket(seconds: PTimeVal): boolean;
+var
+  lsocket: TSocket;
+begin
+  if inPoll then begin
+    Result := False
+  end else begin
+    inPoll := True;
+    try
+      lsocket := DNSServiceRefSockFD(sdRef);
+      socket := TROUnixSocket.Create(lsocket);
+      if (Pool(socket, seconds, SelectRead)) then begin
+        PollInvokeable();
+        Result :=  true;
+      end
+      else begin
+        Result := false;
+      end;
+    finally
+      inPoll := False;
+    end;
+  end;
+end;
+
+function TRODNSService.BlockWatchSocket(seconds: integer): boolean;
+var
+  lTimeVal: TTimeVal;
+begin
+  if Seconds = - 1 then begin
+    Result:= BlockWatchSocket(nil)
+  end
+  else begin
+    lTimeVal.tv_sec:=seconds;
+    lTimeVal.tv_usec:=0;
+    Result:= BlockWatchSocket(@lTimeVal);
+  end;
+end;
+
+constructor TRODNSService.Create;
+begin
+  inherited Create;
+  stopping := False;
+  inPoll:=False;
+  stoppingPoll := TROEvent.Create(nil,false,false,'');
+  {$IFNDEF DESIGNTIME}
+  CheckDNSFunctions;
+  {$ENDIF}
+  flags:=0;;
+  interfaceIndex := kDNSServiceInterfaceIndexAny;
+end;
+
+destructor TRODNSService.Destroy;
+begin
+  Stop;
+  FreeAndNil(stoppingPoll);
+  FreeAndNil(socket);
+  inherited;
+end;
+
+procedure TRODNSService.PollInvokeable;
+begin
+  try
+    DNSServiceProcessResult(sdRef);
+  except
+  end;
+end;
+
+procedure TRODNSService.SetupWatchSocket;
+var
+  lsocket: TSocket;
+  lcallback:TROAsyncCallback;
+begin
+  if inPoll then Exit; // already running
+  lsocket := DNSServiceRefSockFD(sdRef);
+  socket := TROUnixSocket.Create(lsocket);
+  stopping := false;
+  inPoll := true;
+  lcallback:=@AsyncPollCallback;
+  socket.BeginPoll(nil, SelectRead, lcallback, Self);
+end;
+
+procedure TRODNSService.Stop;
+begin
+  if sdRef <> nil then begin
+    DNSServiceRefDeallocate(sdRef);
+    sdRef := nil;
+  end;
+  WaitStop;
+end;
+
+procedure TRODNSService.WaitStop;
+begin
+  if (inPoll) then begin
+    stopping := true;
+    stoppingPoll.WaitFor(Cardinal(-1));
+  end;
+end;
+
+{ TRORegisterNetService }
+
+constructor TRORegisterNetService.Create(const aDomain, aServiceType, aServiceName: Unicodestring; const aPort: integer);
+begin
+  inherited Create;
+  fDomain := aDomain;
+  fServiceType := aServiceType;
+  fServiceName := aServiceName;
+  fPort := aPort;
+end;
+
+procedure IntRegisterReply(const sdRef: Pointer; const flags: Cardinal; const errorCode: DNSServiceErrorType; const name: PAnsiChar;
+    const regtype: PAnsiChar; const domain: PAnsiChar; const context: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+begin
+  if Assigned(context) and Assigned(TRORegisterNetService(context).OnError) then
+    TRORegisterNetService(context).OnError(TRORegisterNetService(context),errorCode);
+end;
+
+class procedure TRORegisterNetService.CreateDNSServiceRegisterException(anErrorCode: DNSServiceErrorType);
+begin
+  raise ERODNSServiceException.CreateFmt('DNSServiceRegister, ErrorCode = %d', [anErrorCode]);
+end;
+
+procedure TRORegisterNetService.Publish;
+var
+  lServiceName, lServiceType, lDomain: AnsiString;
+begin
+  Stop;
+  FErrorCode:= kDNSServiceErr_NoError;
+  fregisterReplyCb := @IntRegisterReply;
+  lServiceName :=UTF8Encode(fServiceName);
+  lServiceType := UTF8Encode(fServiceType);
+  lDomain :=UTF8Encode(fDomain);
+  FErrorCode := DNSServiceRegister(sdRef, flags, interfaceIndex, PAnsiChar(lServiceName), PAnsiChar(lServiceType),
+                            PAnsichar(lDomain), nil, htons(fport), Length(fTXTRecordData), PAnsiChar(fTXTRecordData),
+                            fregisterReplyCb, Self);
+  if (FErrorCode <> kDNSServiceErr_NoError) then begin
+    if Assigned(OnError) then
+      OnError(Self,FErrorCode)
+    else
+      CreateDNSServiceRegisterException(FErrorCode);
+  end
+  else begin
+    SetupWatchSocket();
+  end;
+end;
+
+procedure TRORegisterNetService.Stop;
+begin
+  inherited;
+  fregisterReplyCb := nil;
+end;
+
+{ TROBrowseNetService }
+
+constructor TROBrowseNetService.Create(const aDomain, aServiceType: Unicodestring);
+begin
+  inherited Create;
+  fResolveDomain := aDomain;
+  fResolveType := aServiceType;
+end;
+
+procedure IntBrowseReply(const sdRef: Pointer; const aflags: Cardinal; const aInterfaceIndex: Cardinal; const aErrorCode: DNSServiceErrorType;
+    const aserviceName: PAnsichar; const aregtype: PAnsiChar; const areplyDomain: PAnsiChar; const acontext: Pointer);  {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+begin
+  if Assigned(aContext) then
+    with TROBrowseNetService(acontext) do begin
+      if (AErrorCode <> kDNSServiceErr_NoError) then begin
+        fErrorCode:= aErrorCode;
+        if Assigned(OnError) then OnError(TROBrowseNetService(acontext), aErrorCode);
+      end else begin
+        if Assigned(fBrowseResult) then fBrowseResult(TROBrowseNetService(acontext), (aflags and kDNSServiceFlagsAdd) = kDNSServiceFlagsAdd, UTF8ToString(aServiceName), UTF8ToString(aregtype), UTF8ToString(areplyDomain));
+      end;
+    end;
+end;
+
+class procedure TROBrowseNetService.CreateDNSServiceBrowseException(anErrorCode: DNSServiceErrorType);
+begin
+  raise ERODNSServiceException.CreateFmt('DNSServiceBrowse, ErrorCode = %d', [anErrorCode]);
+end;
+
+procedure TROBrowseNetService.Start;
+var
+  lResolveType: UTF8String;
+  lResolveDomain: UTF8String;
+begin
+  Stop();
+  fBrowseReplyCb := @IntBrowseReply;
+  lResolveType := UTF8Encode(fResolveType);
+  lResolveDomain := UTF8Encode(fResolveDomain);
+  FErrorCode:= kDNSServiceErr_NoError;
+  FErrorCode := DNSServiceBrowse(sdRef, flags, interfaceIndex, PAnsiChar(lResolveType), PAnsiChar(lResolveDomain), fBrowseReplyCb, Self);
+  if (FErrorCode <> kDNSServiceErr_NoError) then begin
+    if assigned(OnError) then OnError(Self,fErrorCode)
+  else
+    CreateDNSServiceBrowseException(FErrorCode);
+  end;
+  if FErrorCode = kDNSServiceErr_NoError then SetupWatchSocket();
+end;
+
+procedure TROBrowseNetService.Stop;
+begin
+  inherited Stop;
+  fBrowseReplyCb := nil;
+end;
+
+{ TROResolveNetService }
+
+procedure intResolveReply_block(const sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal; const aErrorCode: DNSServiceErrorType;
+    const fullname: PAnsiChar; const hosttarget: PAnsiChar; const port: Word; const txtLen: Word; const txtRecord: PAnsiChar; const context: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+var
+  ltxtRecord: Ansistring;
+begin
+  if Assigned(context) then
+    with TROResolveNetService(context) do begin
+      if (aErrorCode <> kDNSServiceErr_NoError) then begin
+        FErrorCode:= aErrorCode;
+        if Assigned(OnError) then OnError(TROResolveNetService(context),errorCode);
+      end
+      else begin
+        fFullDomainName_block:= UTF8ToString(fullname);
+        fHostTarget_block:= UTF8ToString(hosttarget);
+        fPort_block:=ntohs(port);
+        SetString(ltxtRecord,txtRecord,txtLen);
+        ftxtRecord_block:=ltxtRecord;
+      end;
+    end;
+end;
+
+function TROResolveNetService.BlockResolve(const seconds: PTimeVal; aReqIPType: integer;
+  out fullDomainName, hostTarget: Unicodestring;
+  out port: integer; out txtRecord: AnsiString;
+  out IP4addresses, IP6addresses: string): DNSServiceErrorType;
+var
+  lUTF8_name,lUTF8_Type,lUTF8_Domain: UTF8String;
+  fResolveReplyCb_block: TDNSServiceResolveReply;
+  liptype: integer;
+  laddress:string; 
+begin
+  Stop();
+  fResolveReplyCb_block := @intResolveReply_block;
+  fFullDomainName_block:= '';
+  fHostTarget_block:= '';
+  fPort_block:=0;
+  ftxtRecord_block:='';
+  lUTF8_name := UTF8Encode(fName);
+  lUTF8_Type := UTF8Encode(fType);
+  lUTF8_Domain := UTF8Encode(fDomain);
+  FErrorCode := DNSServiceResolve(sdRef, flags, interfaceIndex, PAnsiChar(lUTF8_name), PAnsiChar(lUTF8_Type), PAnsiChar(lUTF8_Domain), fResolveReplyCb_block, Self);
+  try
+    if (FErrorCode = kDNSServiceErr_NoError) then begin
+      if (not BlockWatchSocket(seconds) ) then begin
+        FErrorCode:=kDNSServiceErr_Timeout;
+      end else begin
+        fullDomainName := fFullDomainName_block;
+        hostTarget := fHostTarget_block;
+        port := fPort_block;
+        txtRecord := ftxtRecord_block;
+        laddress := ROGetAddrInfo(fHostTarget_block, liptype, aReqIPType);
+        if liptype  = AF_INET then
+          IP4addresses := laddress
+        else
+          IP6addresses := laddress;
+      end;
+    end;
+  finally
+    inherited Stop();
+    if FErrorCode <> kDNSServiceErr_NoError then begin
+      fullDomainName := '';
+      hostTarget := '';
+      port := 0;
+      txtRecord := '';
+      IP4addresses := '';
+      IP6addresses := '';
+    end;
+    Result :=  FErrorCode;
+  end;
+end;
+
+function TROResolveNetService.BlockResolve(const seconds: integer; aReqIPType: integer;
+  out fullDomainName, hostTarget: Unicodestring;
+  out port: integer; out txtRecord: AnsiString;
+  out IP4addresses, IP6addresses: string): DNSServiceErrorType;
+var
+  lTimeVal: TTimeVal;
+begin
+  if Seconds = - 1 then begin
+    Result:= BlockResolve(nil,aReqIPType, fullDomainName,hostTarget,port,txtRecord, IP4addresses, IP6addresses);
+  end
+  else begin
+    lTimeVal.tv_sec:=seconds;
+    lTimeVal.tv_usec:=0;
+    Result:= BlockResolve(@lTimeVal,aReqIPType, fullDomainName,hostTarget,port,txtRecord, IP4addresses, IP6addresses);
+  end;
+end;
+
+constructor TROResolveNetService.Create(const aDomain, aType, aName: Unicodestring);
+begin
+  inherited Create;
+  fDomain := aDomain;
+  fType := aType;
+  fName := aName;
+end;
+
+procedure intResolveReply(const sdRef: Pointer; const flags: Cardinal; const interfaceIndex: Cardinal; const aErrorCode: DNSServiceErrorType;
+    const fullname: PAnsiChar; const hosttarget: PAnsiChar; const port: Word; const txtLen: Word; const txtRecord: PAnsiChar; const context: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+var
+  ltxtRecord: Ansistring;
+begin
+  if Assigned(context) then
+    with TROResolveNetService(context) do begin
+      if (aErrorCode <> kDNSServiceErr_NoError) then begin
+        FErrorCode:=aErrorCode;
+        if Assigned(OnError) then OnError(TROResolveNetService(context),errorCode);
+      end
+      else begin
+        SetString(ltxtRecord,txtRecord,txtLen);
+        TROResolveNetServiceThread.Create(TROResolveNetService(context),UTF8ToString(fullname),UTF8ToString(hosttarget),ntohs(port),ltxtRecord);
+      end;
+    end;
+end;
+
+procedure TROResolveNetService.intResolveResult(caller: TRONetService;
+  aFullDomainName, aHostTarget: Unicodestring; aPort: integer; txtRecord: AnsiString;
+  addresses: Unicodestring; aIPType: integer);
+begin
+  if assigned(fResolveResult) then fResolveResult(self, aFullDomainName, ahosttarget, aport, txtRecord, addresses, aipType);
+end;
+
+procedure TROResolveNetService.Resolve;
+var
+  lUTF8_name,lUTF8_Type,lUTF8_Domain: UTF8String;
+begin
+  Stop;
+  fResolveReplyCb := @intResolveReply;
+  lUTF8_name := UTF8Encode(fName);
+  lUTF8_Type := UTF8Encode(fType);
+  lUTF8_Domain := UTF8Encode(fDomain);
+  FErrorCode:= kDNSServiceErr_NoError;
+  FErrorCode := DNSServiceResolve(sdRef, flags, interfaceIndex, PAnsiChar(lUTF8_name), PAnsiChar(lUTF8_Type), PAnsiChar(lUTF8_Domain), fResolveReplyCb, Self);
+  if (FErrorCode <> kDNSServiceErr_NoError) then begin
+    if Assigned(OnError) then
+      OnError(Self,ErrorCode)
+    else
+      raise ERODNSServiceException.CreateFmt('DNSServiceResolve, ErrorCode = %d', [FErrorCode]);
+  end;
+  SetupWatchSocket();
+end;
+
+procedure TROResolveNetService.Stop;
+begin
+  inherited;
+  fResolveReplyCb := nil;
+end;
+
+
+var
+  lib_handle :THandle = 0;
+  lib1_handle :THandle = 0;
+  lib2_handle :THandle = 0;
+
+const
+{$IFDEF MSWINDOWS}lib_name = 'dnssd.dll';{$ELSE}
+{$IFDEF DARWIN}   lib_name = 'libc.dylib';{$ELSE}
+                  lib_name = 'libdns_sd.so';
+                  lib_name2 = 'dnssdlibdns_sd.so';
+                  lib_name3 = 'libc.so';
+{$ENDIF}{$ENDIF}
+
+procedure LoadLibraries;
+{$IFDEF MSWINDOWS}
+var
+  WSData: TWSAData;
+begin
+  lib_handle :=  LoadLibrary(lib_name);
+  if lib_handle <> 0 then begin
+     DNSServiceRefSockFD := TDNSServiceRefSockFD(GetProcAddress(lib_handle,'DNSServiceRefSockFD'));
+     DNSServiceProcessResult := TDNSServiceProcessResult(GetProcAddress(lib_handle,'DNSServiceProcessResult'));
+     DNSServiceRefDeallocate := TDNSServiceRefDeallocate(GetProcAddress(lib_handle,'DNSServiceRefDeallocate'));
+     DNSServiceBrowse := TDNSServiceBrowse(GetProcAddress(lib_handle,'DNSServiceBrowse'));
+     DNSServiceResolve := TDNSServiceResolve(GetProcAddress(lib_handle,'DNSServiceResolve'));
+     DNSServiceEnumerateDomains := TDNSServiceEnumerateDomains(GetProcAddress(lib_handle,'DNSServiceEnumerateDomains'));
+     DNSServiceRegister := TDNSServiceRegister(GetProcAddress(lib_handle,'DNSServiceRegister'));
+     DNSServiceQueryRecord := TDNSServiceQueryRecord(GetProcAddress(lib_handle,'DNSServiceQueryRecord'));
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+     DNSServiceGetAddrInfo := TDNSServiceGetAddrInfo(GetProcAddress(lib_handle,'DNSServiceGetAddrInfo'));
+{$ENDIF}
+  end;
+  WSAStartup($0202,WSData);
+end;
+{$ELSE}
+{$IFDEF DARWIN}
+begin
+  lib_handle :=  LoadLibrary(lib_name);
+  if lib_handle <> 0 then begin
+     DNSServiceRefSockFD := TDNSServiceRefSockFD(GetProcAddress(lib_handle,'DNSServiceRefSockFD'));
+     DNSServiceProcessResult := TDNSServiceProcessResult(GetProcAddress(lib_handle,'DNSServiceProcessResult'));
+     DNSServiceRefDeallocate := TDNSServiceRefDeallocate(GetProcAddress(lib_handle,'DNSServiceRefDeallocate'));
+     DNSServiceBrowse := TDNSServiceBrowse(GetProcAddress(lib_handle,'DNSServiceBrowse'));
+     DNSServiceResolve := TDNSServiceResolve(GetProcAddress(lib_handle,'DNSServiceResolve'));
+     DNSServiceEnumerateDomains := TDNSServiceEnumerateDomains(GetProcAddress(lib_handle,'DNSServiceEnumerateDomains'));
+     DNSServiceRegister := TDNSServiceRegister(GetProcAddress(lib_handle,'DNSServiceRegister'));
+     DNSServiceQueryRecord := TDNSServiceQueryRecord(GetProcAddress(lib_handle,'DNSServiceQueryRecord'));
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+     DNSServiceGetAddrInfo := TDNSServiceGetAddrInfo(GetProcAddress(lib_handle,'DNSServiceGetAddrInfo'));
+{$ENDIF}
+     Select := TSelect(GetProcAddress(lib_handle,'Select'));
+  end;
+end;
+{$ELSE}
+begin
+  lib_handle :=  LoadLibrary(lib_name);
+  if lib_handle <> 0 then begin
+     DNSServiceRefSockFD := TDNSServiceRefSockFD(GetProcAddress(lib_handle,'DNSServiceRefSockFD'));
+     DNSServiceProcessResult := TDNSServiceProcessResult(GetProcAddress(lib_handle,'DNSServiceProcessResult'));
+     DNSServiceRefDeallocate := TDNSServiceRefDeallocate(GetProcAddress(lib_handle,'DNSServiceRefDeallocate'));
+     DNSServiceResolve := TDNSServiceResolve(GetProcAddress(lib_handle,'DNSServiceResolve'));
+     DNSServiceEnumerateDomains := TDNSServiceEnumerateDomains(GetProcAddress(lib_handle,'DNSServiceEnumerateDomains'));
+     DNSServiceRegister := TDNSServiceRegister(GetProcAddress(lib_handle,'DNSServiceRegister'));
+     DNSServiceQueryRecord := TDNSServiceQueryRecord(GetProcAddress(lib_handle,'DNSServiceQueryRecord'));
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+     DNSServiceGetAddrInfo := TDNSServiceGetAddrInfo(GetProcAddress(lib_handle,'DNSServiceGetAddrInfo'));
+{$ENDIF}
+  end;
+  lib1_handle :=  LoadLibrary(lib_name2);
+  if lib1_handle <> 0 then begin
+     DNSServiceBrowse := TDNSServiceBrowse(GetProcAddress(lib1_handle,'DNSServiceBrowse'));
+  end;
+  lib2_handle :=  LoadLibrary(lib_name3);
+  if lib2_handle <> 0 then begin
+     Select := TSelect(GetProcAddress(lib2_handle,'Select'));
+  end;   
+end;
+{$ENDIF}
+{$ENDIF}
+
+procedure UnloadLibraries;
+begin
+  {$IFDEF MSWINDOWS}
+  WSACleanup;
+  {$ENDIF}
+  if lib_handle <> 0 then FreeLibrary(lib_handle);
+  if lib1_handle <> 0 then FreeLibrary(lib1_handle);
+  if lib2_handle <> 0 then FreeLibrary(lib2_handle);
+  DNSServiceRefSockFD := nil;
+  DNSServiceProcessResult := nil;
+  DNSServiceRefDeallocate := nil;
+  DNSServiceBrowse := nil;
+  DNSServiceResolve := nil;
+  DNSServiceEnumerateDomains := nil;
+  DNSServiceRegister := nil;
+  DNSServiceQueryRecord := nil;
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+  DNSServiceGetAddrInfo:=nil;
+{$ENDIF}
+end;
+
+function CheckDNSFunctions(aRaiseException: Boolean = True): Boolean;
+begin
+  Result := False;
+  if lib_handle = 0 then  begin
+    if aRaiseException then raise EDllNotFoundException.CreateFmt('Cannot load %s library', [lib_name]);
+    Exit;
+  end;
+{$IFNDEF MSWINDOWS}
+{$IFNDEF DARWIN}
+  if lib1_handle = 0 then  begin
+    if aRaiseException then raise EDllNotFoundException.CreateFmt('Cannot load %s library', [lib_name2]);
+    Exit;
+  end;
+  if lib1_handle = 0 then  begin
+    if aRaiseException then raise EDllNotFoundException.CreateFmt('Cannot load %s library', [lib_name3]);
+    Exit;
+  end;
+{$ENDIF}
+{$ENDIF}
+  Result :=
+  (@DNSServiceRefSockFD <> nil) and
+  (@DNSServiceProcessResult <> nil) and
+  (@DNSServiceRefDeallocate <> nil) and
+  (@DNSServiceBrowse <> nil) and
+  (@DNSServiceResolve <> nil) and
+  (@DNSServiceEnumerateDomains <> nil) and
+  (@DNSServiceRegister <> nil) and
+  (@DNSServiceQueryRecord <> nil)
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+  and (@DNSServiceGetAddrInfo <> nil)
+{$ENDIF}
+  ;
+  if not Result and aRaiseException then raise EDllNotFoundException.Create('uROmDNSImports: Some functions aren''t loaded!');
+end;
+
+
+{ TROResolveNetServiceThread }
+
+procedure TROResolveNetServiceThread.Callback;
+begin
+  fcaller.intResolveResult(fcaller,fFullDomainName,fHostTarget,fPort,ftxtRecord,fAddresses, fIPType);
+end;
+
+constructor TROResolveNetServiceThread.Create(caller: TROResolveNetService;
+  aFullDomainName, aHostTarget: Unicodestring; aPort: integer; txtRecord: Ansistring);
+begin
+  inherited Create(True);
+  fcaller := caller;
+  fFullDomainName := aFullDomainName;
+  fHostTarget := aHostTarget;
+  fPort := aPort;
+  ftxtRecord := txtRecord;
+end;
+
+procedure TROResolveNetServiceThread.Execute;
+begin
+  inherited;
+  faddresses := ROGetAddrInfo(fHostTarget, fIPType);
+//  Synchronize(Callback);
+  callback;
+end;
+
+function DecodeIP4(const rdLen: Word; const rdata: PAnsiChar): string;
+begin
+  Result := Format('%d.%d.%d.%d', [ord(rdata[0]),ord(rdata[1]),ord(rdata[2]),ord(rdata[3])]);
+end;
+
+function DecodeIP6(const rdLen: Word; const rdata: PAnsiChar): string;
+var
+  lip: AnsiString;
+begin
+  SetString(lip,rdata,rdLen);
+  Result := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(lIP);
+end;
+
+
+{ TRODNSServiceQueryRecordNetService }
+procedure intQueryRecordReply_block(const DNSServiceRef: pointer; const flags: Cardinal;const interfaceIndex: Cardinal; const aErrorCode: DNSServiceErrorType;
+    const FullName: PAnsiChar; const rrtype, rrclass: Word; const rdLen: Word; const rdata: PAnsiChar; ttl: cardinal;const context: Pointer);{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+begin
+  if Assigned(context) then
+    with TRODNSServiceQueryRecordNetService(context) do begin
+      if (aErrorCode <> kDNSServiceErr_NoError) then begin
+        FErrorCode:= aErrorCode;
+        if Assigned(OnError) then OnError(TROResolveNetService(context),errorCode);
+      end
+      else begin
+        if rdLen = 4 then
+          FIP4_block := DecodeIP4(rdLen,rdata)
+        else
+          FIP6_block := DecodeIP6(rdLen,rdata)
+      end;
+    end;
+end;
+
+
+function TRODNSServiceQueryRecordNetService.BlockQueryRecord(const seconds: integer;aReqIPType: integer; out aIP4, aIP6: string): DNSServiceErrorType;
+var
+  lUTF8_Fullname: AnsiString;
+  lQueryRecordCb_block: TDNSServiceQueryRecordReply;
+begin
+  Stop();
+  FReqIPType := aReqIPType;
+  lQueryRecordCb_block := @intQueryRecordReply_block;
+  FIP4_block:= '';
+  FIP6_block:= '';
+  lUTF8_Fullname:= UTF8Encode(FFullName);
+  FErrorCode := DNSServiceQueryRecord(sdRef, flags, interfaceIndex,PAnsiChar(lUTF8_Fullname),kDNSServiceType_A,kDNSServiceClass_IN,lQueryRecordCb_block,self);
+  try
+    if (FErrorCode = kDNSServiceErr_NoError) then begin
+      if (not BlockWatchSocket(seconds)) then begin
+        FErrorCode:=kDNSServiceErr_Timeout;
+      end else begin
+        aIP4 := FIP4_block;
+        aIP6 := FIP6_block;
+      end;
+    end;
+  finally
+    inherited Stop();
+    if FErrorCode <> kDNSServiceErr_NoError then begin
+      aIP4 := '';
+      aIP6 := '';      
+    end;
+    Result :=  FErrorCode;
+  end;
+end;
+
+constructor TRODNSServiceQueryRecordNetService.Create(
+  const aFullName: Unicodestring);
+begin
+  inherited Create;
+  FFullName := aFullName;
+  flags := kDNSServiceFlagsForceMulticast;
+end;
+
+
+procedure intQueryRecordCb(const DNSServiceRef: pointer; const flags: Cardinal;const interfaceIndex: Cardinal; const aErrorCode: DNSServiceErrorType;
+    const FullName: PAnsiChar; const rrtype, rrclass: Word; const rdLen: Word; const rdata: PAnsiChar; ttl: cardinal;const context: Pointer);{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+var
+  lIP: string;
+  lIPType: integer;
+begin
+  if Assigned(context) then
+    with TRODNSServiceQueryRecordNetService(context) do begin
+      if (aErrorCode <> kDNSServiceErr_NoError) then begin
+        FErrorCode := aErrorCode;
+        if Assigned(OnError) then OnError(TROResolveNetService(context),errorCode);
+      end
+      else begin
+        if rdLen = 4 then begin
+          lIP := DecodeIP4(rdLen, rdata);
+          lIPType := AF_INET;
+        end
+        else begin
+          lIP := DecodeIP6(rdLen, rdata);
+          lIPType := AF_INET6;
+        end;
+        if Assigned(fQueryResult) then fQueryResult(TROResolveNetService(context),lIP, lIPType);
+      end;
+    end;
+end;
+
+
+procedure TRODNSServiceQueryRecordNetService.QueryRecord;
+var
+  lUTF8_Fullname: AnsiString;
+  fQueryRecordCb: TDNSServiceQueryRecordReply;
+begin
+  fQueryRecordCb := @intQueryRecordCb;
+  lUTF8_Fullname:= UTF8Encode(FFullName);
+  FErrorCode := kDNSServiceErr_NoError;
+  FErrorCode := DNSServiceQueryRecord(sdRef,flags, interfaceIndex,PAnsiChar(lUTF8_Fullname),kDNSServiceType_A,kDNSServiceClass_IN,fQueryRecordCb,self);
+end;
+
+{$IFDEF DELPHI10UP}{$REGION 'NO_DNSServiceGetAddrInfo'}{$ENDIF DELPHI10UP}
+{$IFNDEF NO_DNSServiceGetAddrInfo}
+{ TRODNSServiceGetAddrInfo }
+
+procedure intGetAddrInfoReply_block(const sdRef: pointer;const flags: Cardinal;const interfaceIndex: Cardinal; const aErrorCode: DNSServiceErrorType;
+    const HostName: PAnsiChar; const address: Pointer; ttl: cardinal;const context: Pointer);{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+begin
+  if Assigned(context) then begin
+    with TRODNSServiceGetAddrInfo(context) do begin
+      if aErrorCode <> kDNSServiceErr_NoError then begin
+        FErrorCode := aErrorCode;
+        if Assigned(OnError) then OnError(TRODNSServiceGetAddrInfo(context),aErrorCode)
+      end
+      else begin
+        FIP_block:=FIP_block;
+      end;
+    end;
+  end;
+end;
+
+
+function TRODNSServiceGetAddrInfo.BlockGetAddrInfo(const seconds: integer;
+  var aIP: String): DNSServiceErrorType;
+var
+  lUTF8_HostName: AnsiString;
+  fCallback: TDNSServiceGetAddrInfoReply;
+begin
+  Stop();
+  fCallback := intGetAddrInfoReply_block;
+  FIP_block:= '';
+  lUTF8_HostName:= UTF8Encode(lUTF8_HostName);
+  FErrorCode := DNSServiceGetAddrInfo(sdRef,flags, interfaceIndex,kDNSServiceProtocol_IPv4 or kDNSServiceProtocol_IPv6,PAnsiChar(lUTF8_HostName),fCallback,self);
+  try
+  if (FErrorCode = kDNSServiceErr_NoError) then begin
+    if (not BlockWatchSocket(seconds) ) then begin
+      FErrorCode:=kDNSServiceErr_Timeout;
+    end else begin
+      aIP := FIP_block;
+    end;
+  end;
+  finally
+    inherited Stop();
+    if FErrorCode <> kDNSServiceErr_NoError then aIP := '';
+    Result :=  FErrorCode;
+  end;
+end;
+
+constructor TRODNSServiceGetAddrInfo.Create(const aHostName: Unicodestring);
+begin
+  inherited Create;
+  FHostName := AHostName;
+end;
+
+procedure intGetAddrInfoReply(const sdRef: pointer;const flags: Cardinal;const interfaceIndex: Cardinal; const aErrorCode: DNSServiceErrorType;
+    const HostName: PAnsiChar; const address: Pointer; ttl: cardinal;const context: Pointer);{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+begin
+  if Assigned(context) then begin
+    with TRODNSServiceGetAddrInfo(context) do begin
+      if aErrorCode <> kDNSServiceErr_NoError then begin
+        FErrorCode := aErrorCode;
+        if Assigned(OnError) then OnError(TRODNSServiceGetAddrInfo(context),aErrorCode)
+      end
+      else begin
+//        FIP_block:=FIP_block;
+// don't implemented yet
+      end;
+    end;
+  end;
+end;
+
+procedure TRODNSServiceGetAddrInfo.GetAddrInfo;
+var
+  lUTF8_HostName: AnsiString;
+  fCallback: TDNSServiceGetAddrInfoReply;
+begin
+  Fcallback := intGetAddrInfoReply;
+  lUTF8_HostName:= UTF8Encode(lUTF8_HostName);
+  FErrorCode := DNSServiceGetAddrInfo(sdRef,flags, interfaceIndex,kDNSServiceProtocol_IPv4 or kDNSServiceProtocol_IPv6,PAnsiChar(lUTF8_HostName),fCallback,self);
+end;
+{$ENDIF NO_DNSServiceGetAddrInfo}
+{$IFDEF DELPHI10UP}{$ENDREGION}{$ENDIF DELPHI10UP}
+
+initialization
+  LoadLibraries;
+finalization
+  UnloadLibraries;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/$svclibname.rodl b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/$svclibname.rodl
new file mode 100644
index 0000000..08a3a3a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/$svclibname.rodl	
@@ -0,0 +1,25 @@
+<Library Name="$SVCLIBNAME" UID="$NEWID" Documentation="">
+   <Services>
+      <Service Name="$SVCNAME" UID="$NEWID">
+        <Interfaces>
+           <Interface Name="Default" UID="$NEWID" Documentation="Service $SVCNAME. This service has been automatically generated using the RODL template you can find in the Templates directory.">
+      <Operations>
+         <Operation Name="Sum" UID="$NEWID" Documentation="">
+      <Parameters>
+         <Parameter Name="A" DataType="Integer" Flag="In" />
+         <Parameter Name="B" DataType="Integer" Flag="In" />
+         <Parameter Name="Result" DataType="Integer" Flag="Result" />
+      </Parameters>
+         </Operation>
+         <Operation Name="GetServerTime" UID="$NEWID" Documentation="">
+      <Parameters>
+         <Parameter Name="Result" DataType="DateTime" Flag="Result" />
+      </Parameters>
+         </Operation>
+      </Operations>
+
+           </Interface> 
+        </Interfaces>
+      </Service>
+   </Services>
+</Library>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/Config.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/Config.ini
new file mode 100644
index 0000000..305a6ad
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/Config.ini	
@@ -0,0 +1,6 @@
+[Project Generation]
+SvcLibName=NewLibrary
+SvcName=NewService
+PrjName=NewProject
+PrjDir=
+CreateClientAndGroup=TRUE
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$LIBRARYNAME.RODL b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$LIBRARYNAME.RODL
new file mode 100644
index 0000000..4de5a25
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$LIBRARYNAME.RODL	
@@ -0,0 +1,15 @@
+<Library Name="$LIBRARYNAME" UID="$NEWID">
+  <Services>
+    <Service Name="$SVCNAME" UID="$NEWID" Ancestor="DataAbstractService">
+      <Interfaces>
+         <Interface Name="Default" UID="$NEWID">
+            <Operations>
+            </Operations>
+         </Interface>
+      </Interfaces>
+    </Service>
+  </Services>
+  <Uses>
+     <Use Name="DataAbstract" UID="$NEWID" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" />
+  </Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$PRJNAME.dpr
new file mode 100644
index 0000000..552810c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$PRJNAME.dpr	
@@ -0,0 +1,23 @@
+program $PRJNAME;
+
+{#ROGEN:$LIBRARYNAME.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fMainForm in 'fMainForm.pas' {Form1},
+  $SERVICENAME_Impl in '$SERVICENAME_Impl.pas' {$SERVICENAME: TDARemoteService},
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDataModule};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$PRJNAME.res
new file mode 100644
index 0000000..dc22e33
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$SERVICENAME_Impl.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$SERVICENAME_Impl.dfm
new file mode 100644
index 0000000..78e0cb2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$SERVICENAME_Impl.dfm	
@@ -0,0 +1,23 @@
+object $SERVICENAME: T$SERVICENAME
+  AcquireConnection = True
+  OldCreateOrder = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  SessionManager = ServerDataModule.SessionManager
+  Left = 357
+  Top = 213
+  Height = 212
+  Width = 216
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = ServerDataModule.ConnectionManager
+    DataDictionary = ServerDataModule.DataDictionary
+    Datasets = <>
+    Commands = <>
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$SERVICENAME_Impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$SERVICENAME_Impl.pas
new file mode 100644
index 0000000..ec2d0f1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/$SERVICENAME_Impl.pas	
@@ -0,0 +1,42 @@
+unit $SERVICENAME_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uRORemoteDataModule,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDABusinessProcessor,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} $LIBRARYNAME_Intf;
+
+type
+  { T$SERVICENAME }
+  T$SERVICENAME = class(TDataAbstractService, I$SERVICENAME)
+    DataStreamer: TDABin2DataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { I$SERVICENAME methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} $LIBRARYNAME_Invk, fServerDataModule;
+
+procedure Create_$SERVICENAME(out anInstance: IUnknown);
+begin
+  anInstance := T$SERVICENAME.Create(nil);
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('$SERVICENAME', Create_$SERVICENAME, T$SERVICENAME_Invoker);
+  // RegisterForZeroConf(fClassFactory,'_$SERVICENAME_rosdk._tcp.');
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/Icon.ico
new file mode 100644
index 0000000..18b790e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/Info.ini
new file mode 100644
index 0000000..d84647a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/Info.ini	
@@ -0,0 +1,6 @@
+[Information]
+Name=Local Application
+Description=Client and Server in one application
+FixedServer=TROLocalServer
+AllowClient=0
+Wizard=DAGuideWizard-Local
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fClientDataModule.dfm
new file mode 100644
index 0000000..92d84df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fClientDataModule.dfm	
@@ -0,0 +1,35 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = False
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 40
+    Top = 8
+  end
+  object ROChannel: TROLocalChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    ServerChannel = ServerDataModule.ROServer
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = '$SERVICENAME'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    Left = 40
+    Top = 184
+    DataStreamer = DataStreamer
+    RemoteService = RemoteService
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fClientDataModule.pas
new file mode 100644
index 0000000..190417f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fClientDataModule.pas	
@@ -0,0 +1,32 @@
+unit fClientDataModule;
+
+interface
+
+uses
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, $MESSAGEUNIT, uROLocalChannel,
+  {Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces, uDABin2DataStreamer, uDARemoteDataAdapter;
+
+type
+  TClientDataModule = class(TDataModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROChannel: TROLocalChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+uses fServerDataModule;
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fMainForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fMainForm.dfm
new file mode 100644
index 0000000..f7ffb67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fMainForm.dfm	
@@ -0,0 +1,24 @@
+object Form1: TForm1
+  Left = 192
+  Top = 114
+  Width = 236
+  Height = 99
+  Caption = 'Data Abstract Local Application'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    ApplicationType = atClient
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fMainForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fMainForm.pas
new file mode 100644
index 0000000..0c2d4a2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fMainForm.pas	
@@ -0,0 +1,28 @@
+unit fMainForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDAPoweredByDataAbstractButton;
+
+type
+  TForm1 = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+  
+uses
+  fClientDataModule;
+  
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fServerDataModule.dfm
new file mode 100644
index 0000000..e3f1196
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fServerDataModule.dfm	
@@ -0,0 +1,58 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 32
+    Top = 8
+  end
+  object ROServer: TROLocalServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fServerDataModule.pas
new file mode 100644
index 0000000..6e5e590
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/LOCAL/fServerDataModule.pas	
@@ -0,0 +1,35 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROServer, uROLocalServer,
+  $MESSAGEUNIT,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver;
+
+
+type
+  TServerDataModule = class(TDataModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TROLocalServer;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    DataDictionary: TDADataDictionary;
+    SessionManager: TROInMemorySessionManager;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$LIBRARYNAME.RODL b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$LIBRARYNAME.RODL
new file mode 100644
index 0000000..4de5a25
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$LIBRARYNAME.RODL	
@@ -0,0 +1,15 @@
+<Library Name="$LIBRARYNAME" UID="$NEWID">
+  <Services>
+    <Service Name="$SVCNAME" UID="$NEWID" Ancestor="DataAbstractService">
+      <Interfaces>
+         <Interface Name="Default" UID="$NEWID">
+            <Operations>
+            </Operations>
+         </Interface>
+      </Interfaces>
+    </Service>
+  </Services>
+  <Uses>
+     <Use Name="DataAbstract" UID="$NEWID" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" />
+  </Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$PRJNAME.dpr
new file mode 100644
index 0000000..1c43250
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$PRJNAME.dpr	
@@ -0,0 +1,27 @@
+program $PRJNAME;
+
+{#ROGEN:$LIBRARYNAME.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  $SERVICENAME_Impl in '$SERVICENAME_Impl.pas' {$SERVICENAME: TDARemoteService},
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('$PRJNAME', '$PRJNAME') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$PRJNAME.res
new file mode 100644
index 0000000..dc22e33
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$SERVICENAME_Impl.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$SERVICENAME_Impl.dfm
new file mode 100644
index 0000000..78e0cb2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$SERVICENAME_Impl.dfm	
@@ -0,0 +1,23 @@
+object $SERVICENAME: T$SERVICENAME
+  AcquireConnection = True
+  OldCreateOrder = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  SessionManager = ServerDataModule.SessionManager
+  Left = 357
+  Top = 213
+  Height = 212
+  Width = 216
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = ServerDataModule.ConnectionManager
+    DataDictionary = ServerDataModule.DataDictionary
+    Datasets = <>
+    Commands = <>
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$SERVICENAME_Impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$SERVICENAME_Impl.pas
new file mode 100644
index 0000000..ec2d0f1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/$SERVICENAME_Impl.pas	
@@ -0,0 +1,42 @@
+unit $SERVICENAME_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uRORemoteDataModule,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDABusinessProcessor,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} $LIBRARYNAME_Intf;
+
+type
+  { T$SERVICENAME }
+  T$SERVICENAME = class(TDataAbstractService, I$SERVICENAME)
+    DataStreamer: TDABin2DataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { I$SERVICENAME methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} $LIBRARYNAME_Invk, fServerDataModule;
+
+procedure Create_$SERVICENAME(out anInstance: IUnknown);
+begin
+  anInstance := T$SERVICENAME.Create(nil);
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('$SERVICENAME', Create_$SERVICENAME, T$SERVICENAME_Invoker);
+  // RegisterForZeroConf(fClassFactory,'_$SERVICENAME_rosdk._tcp.');
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/Icon.ico
new file mode 100644
index 0000000..017fa49
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/Info.ini
new file mode 100644
index 0000000..52dfadc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/Info.ini	
@@ -0,0 +1,6 @@
+[Information]
+Name=Combo Server
+Description=Data Abstract VCL Based Combo Server
+InvalidServers=TROWebBrokerServer,TROLocalServer,TROWinMessageServer
+DefaultServer=TROIndyHTTPServer
+Wizard=DAGuideWizard
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEClient.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEClient.dpr
new file mode 100644
index 0000000..f1357b8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEClient.dpr	
@@ -0,0 +1,17 @@
+program $PRJNAMEClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEClient.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEClient.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEGroup.bpg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEGroup.bpg
new file mode 100644
index 0000000..b93564d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/$PRJNAMEGroup.bpg	
@@ -0,0 +1,21 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = $PRJNAME.exe $PRJNAMEClient.exe 
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+$PRJNAME.exe: $PRJNAME.dpr
+  $(DCC)
+
+$PRJNAMEClient.exe: $PRJNAMEClient.dpr
+  $(DCC)
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientDataModule.dfm
new file mode 100644
index 0000000..e214225
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientDataModule.dfm	
@@ -0,0 +1,32 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TRO$CHNCLSNAME
+    Left = 40
+    Top = 8
+  end
+  object Message: TRO$MSGCLSNAME
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = '$SERVICENAME'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    Left = 40
+    Top = 184
+    DataStreamer = DataStreamer
+    RemoteService = RemoteService
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientDataModule.pas
new file mode 100644
index 0000000..22ae607
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientDataModule.pas	
@@ -0,0 +1,30 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, $MESSAGEUNIT, $CHANNELUNIT, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TRO$MSGCLSNAME;
+    Channel: TRO$CHNCLSNAME;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientForm.dfm
new file mode 100644
index 0000000..4fc26ce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientForm.dfm	
@@ -0,0 +1,17 @@
+object ClientForm: TClientForm
+  Left = 372
+  Top = 277
+  Width = 334
+  Height = 207
+  Caption = 'Data Abstract Client'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientForm.pas
new file mode 100644
index 0000000..c79fedc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/_Client/fClientForm.pas	
@@ -0,0 +1,27 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage;
+
+type
+  TClientForm = class(TForm)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fClientDataModule;  
+  
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerDataModule.dfm
new file mode 100644
index 0000000..12f39a8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerDataModule.dfm	
@@ -0,0 +1,58 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object Server: TRO$SRVCLSNAME
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+      end>
+    Left = 32
+    Top = 8
+  end
+  object Message: TRO$MSGCLSNAME
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerDataModule.pas
new file mode 100644
index 0000000..82fe052
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerDataModule.pas	
@@ -0,0 +1,42 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  $MESSAGEUNIT, $SERVERUNIT,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver;
+
+type
+  TServerDataModule = class(TDataModule)
+    Server: TRO$SRVCLSNAME;
+    Message: TRO$MSGCLSNAME;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    DataDictionary: TDADataDictionary;
+    SessionManager: TROInMemorySessionManager;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerForm.dfm
new file mode 100644
index 0000000..77cfe95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerForm.dfm	
@@ -0,0 +1,23 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Data Abstract Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerForm.pas
new file mode 100644
index 0000000..08fb16d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXE/fServerForm.pas	
@@ -0,0 +1,25 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton;
+
+type
+  TServerForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$LIBRARYNAME.RODL b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$LIBRARYNAME.RODL
new file mode 100644
index 0000000..2d14cdf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$LIBRARYNAME.RODL	
@@ -0,0 +1,15 @@
+<Library Name="$LIBRARYNAME" UID="$NEWID">
+  <Services>
+    <Service Name="$SVCNAME" UID="$NEWID" Ancestor="DARemoteService">
+      <Interfaces>
+         <Interface Name="Default" UID="$NEWID">
+            <Operations>
+            </Operations>
+         </Interface>
+      </Interfaces>
+    </Service>
+  </Services>
+  <Uses>
+     <Use Name="DataAbstract" UID="$NEWID" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract3.RODL" />
+  </Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$PRJNAME.dpr
new file mode 100644
index 0000000..1c43250
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$PRJNAME.dpr	
@@ -0,0 +1,27 @@
+program $PRJNAME;
+
+{#ROGEN:$LIBRARYNAME.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  $SERVICENAME_Impl in '$SERVICENAME_Impl.pas' {$SERVICENAME: TDARemoteService},
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('$PRJNAME', '$PRJNAME') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$PRJNAME.res
new file mode 100644
index 0000000..dc22e33
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$SERVICENAME_Impl.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$SERVICENAME_Impl.dfm
new file mode 100644
index 0000000..df335a5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$SERVICENAME_Impl.dfm	
@@ -0,0 +1,23 @@
+object $SERVICENAME: T$SERVICENAME
+  AcquireConnection = True
+  OldCreateOrder = True
+  ServiceSchema = Schema
+  ServiceAdapter = DataStreamer
+  SessionManager = ServerDataModule.SessionManager
+  Left = 357
+  Top = 213
+  Height = 212
+  Width = 216
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = ServerDataModule.ConnectionManager
+    DataDictionary = ServerDataModule.DataDictionary
+    Datasets = <>
+    Commands = <>
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$SERVICENAME_Impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$SERVICENAME_Impl.pas
new file mode 100644
index 0000000..7ecdfb2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/$SERVICENAME_Impl.pas	
@@ -0,0 +1,42 @@
+unit $SERVICENAME_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uRORemoteDataModule,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDABusinessProcessor,
+  {Ancestor Implementation:} DARemoteService_Impl,
+  {Used RODLs:} DataAbstract3_Intf,
+  {Generated:} $LIBRARYNAME_Intf;
+
+type
+  { T$SERVICENAME }
+  T$SERVICENAME = class(TDARemoteService, I$SERVICENAME)
+    DataStreamer: TDABin2DataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { I$SERVICENAME methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} $LIBRARYNAME_Invk, fServerDataModule;
+
+procedure Create_$SERVICENAME(out anInstance: IUnknown);
+begin
+  anInstance := T$SERVICENAME.Create(nil);
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('$SERVICENAME', Create_$SERVICENAME, T$SERVICENAME_Invoker);
+  // RegisterForZeroConf(fClassFactory,'_$SERVICENAME_rosdk._tcp.');
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/Icon.ico
new file mode 100644
index 0000000..84d303f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/Info.ini
new file mode 100644
index 0000000..352a2ad
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/Info.ini	
@@ -0,0 +1,5 @@
+[Information]
+Name=v3.0 Legacy Server
+Description=Data Abstract Server based on the legacy v3.0 interface
+InvalidServers=TROWebBrokerServer,TROLocalServer,TROWinMessageServer
+DefaultServer=TROIndyHTTPServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEClient.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEClient.dpr
new file mode 100644
index 0000000..f1357b8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEClient.dpr	
@@ -0,0 +1,17 @@
+program $PRJNAMEClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEClient.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEClient.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEGroup.bpg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEGroup.bpg
new file mode 100644
index 0000000..b93564d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/$PRJNAMEGroup.bpg	
@@ -0,0 +1,21 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = $PRJNAME.exe $PRJNAMEClient.exe 
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+$PRJNAME.exe: $PRJNAME.dpr
+  $(DCC)
+
+$PRJNAMEClient.exe: $PRJNAMEClient.dpr
+  $(DCC)
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientDataModule.dfm
new file mode 100644
index 0000000..70b97fb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientDataModule.dfm	
@@ -0,0 +1,120 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TRO$CHNCLSNAME
+    Left = 40
+    Top = 8
+  end
+  object Message: TRO$MSGCLSNAME
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = '$SERVICENAME'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetSchemaCall.MethodName = 'GetDatasetSchema'
+    GetSchemaCall.Params = <
+      item
+        Name = 'aFilter'
+        DataType = rtString
+        Flag = fIn
+      end
+      item
+        Name = 'aDatasetName'
+        DataType = rtString
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    GetSchemaCall.Default = False
+    GetSchemaCall.IncomingSchemaParameter = 'Result'
+    GetSchemaCall.OutgoingFilterParameter = 'aDatasetName'
+    GetDataCall.RemoteService = RemoteService
+    GetDataCall.MethodName = 'GetDatasetData'
+    GetDataCall.Params = <
+      item
+        Name = 'DatasetName'
+        DataType = rtString
+        Flag = fIn
+      end
+      item
+        Name = 'Params'
+        DataType = rtString
+        Flag = fIn
+      end
+      item
+        Name = 'IncludeSchema'
+        DataType = rtBoolean
+        Flag = fIn
+      end
+      item
+        Name = 'MaxRecords'
+        DataType = rtInteger
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    GetDataCall.Default = False
+    GetDataCall.OutgoingTableNamesParameter = 'DatasetName'
+    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
+    GetDataCall.IncomingDataParameter = 'Result'
+    GetDataCall.OutgoingParamsParameter = 'Params'
+    GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema'
+    GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords'
+    UpdateDataCall.RemoteService = RemoteService
+    UpdateDataCall.MethodName = 'UpdateData'
+    UpdateDataCall.Params = <
+      item
+        Name = 'Delta'
+        DataType = rtBinary
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    UpdateDataCall.Default = False
+    UpdateDataCall.OutgoingDeltaParameter = 'Delta'
+    UpdateDataCall.IncomingDeltaParameter = 'Result'
+    GetScriptsCall.RemoteService = RemoteService
+    GetScriptsCall.MethodName = 'GetDatasetScripts'
+    GetScriptsCall.Params = <
+      item
+        Name = 'DatasetNames'
+        DataType = rtString
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtString
+        Flag = fResult
+      end>
+    GetScriptsCall.Default = False
+    GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
+    GetScriptsCall.IncomingScriptParameter = 'Result'
+    Left = 40
+    Top = 184
+    DataStreamer = DataStreamer
+    RemoteService = RemoteService
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientDataModule.pas
new file mode 100644
index 0000000..22ae607
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientDataModule.pas	
@@ -0,0 +1,30 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, $MESSAGEUNIT, $CHANNELUNIT, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TRO$MSGCLSNAME;
+    Channel: TRO$CHNCLSNAME;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientForm.dfm
new file mode 100644
index 0000000..4fc26ce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientForm.dfm	
@@ -0,0 +1,17 @@
+object ClientForm: TClientForm
+  Left = 372
+  Top = 277
+  Width = 334
+  Height = 207
+  Caption = 'Data Abstract Client'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientForm.pas
new file mode 100644
index 0000000..c79fedc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/_CLIENT/fClientForm.pas	
@@ -0,0 +1,27 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage;
+
+type
+  TClientForm = class(TForm)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fClientDataModule;  
+  
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerDataModule.dfm
new file mode 100644
index 0000000..2cdf891
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerDataModule.dfm	
@@ -0,0 +1,58 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object Server: TRO$SRVCLSNAME
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+      end>
+    Left = 32
+    Top = 8
+  end
+  object Message: TRO$MSGCLSNAME
+    Left = 34
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerDataModule.pas
new file mode 100644
index 0000000..82fe052
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerDataModule.pas	
@@ -0,0 +1,42 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  $MESSAGEUNIT, $SERVERUNIT,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver;
+
+type
+  TServerDataModule = class(TDataModule)
+    Server: TRO$SRVCLSNAME;
+    Message: TRO$MSGCLSNAME;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    DataDictionary: TDADataDictionary;
+    SessionManager: TROInMemorySessionManager;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerForm.dfm
new file mode 100644
index 0000000..77cfe95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerForm.dfm	
@@ -0,0 +1,23 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Data Abstract Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerForm.pas
new file mode 100644
index 0000000..08fb16d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLEXEv3/fServerForm.pas	
@@ -0,0 +1,25 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton;
+
+type
+  TServerForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$LIBRARYNAME.RODL b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$LIBRARYNAME.RODL
new file mode 100644
index 0000000..92ae093
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$LIBRARYNAME.RODL	
@@ -0,0 +1,23 @@
+<Library Name="$LIBRARYNAME" UID="$NEWID">
+  <Services>
+    <Service Name="$SVCNAME" UID="$NEWID" Ancestor="DataAbstractService">
+      <Interfaces>
+         <Interface Name="Default" UID="$NEWID">
+            <Operations>
+            </Operations>
+         </Interface>
+      </Interfaces>
+    </Service>
+    <Service Name="LoginService" UID="$NEWID" Ancestor="SimpleLoginService">
+      <Interfaces>
+        <Interface Name="Default" UID="$NEWID">
+          <Operations>
+          </Operations>
+        </Interface>
+      </Interfaces>
+    </Service>
+  </Services>
+  <Uses>
+     <Use Name="DataAbstract" UID="$NEWID" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" />
+  </Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$PRJNAME.dpr
new file mode 100644
index 0000000..a379b08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$PRJNAME.dpr	
@@ -0,0 +1,28 @@
+program $PRJNAME;
+
+{#ROGEN:$LIBRARYNAME.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  $SERVICENAME_Impl in '$SERVICENAME_Impl.pas' {$SERVICENAME: TDARemoteService},
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule},
+  LoginService_Impl in 'LoginService_Impl.pas' {LoginService: TSimpleLoginService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('$PRJNAME', '$PRJNAME') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$PRJNAME.res
new file mode 100644
index 0000000..dc22e33
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$SERVICENAME_Impl.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$SERVICENAME_Impl.dfm
new file mode 100644
index 0000000..a0a5f35
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$SERVICENAME_Impl.dfm	
@@ -0,0 +1,24 @@
+object $SERVICENAME: T$SERVICENAME
+  AcquireConnection = True
+  OldCreateOrder = True
+  RequiresSession = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  SessionManager = ServerDataModule.SessionManager
+  Left = 357
+  Top = 213
+  Height = 212
+  Width = 216
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = ServerDataModule.ConnectionManager
+    DataDictionary = ServerDataModule.DataDictionary
+    Datasets = <>
+    Commands = <>
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$SERVICENAME_Impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$SERVICENAME_Impl.pas
new file mode 100644
index 0000000..ec2d0f1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/$SERVICENAME_Impl.pas	
@@ -0,0 +1,42 @@
+unit $SERVICENAME_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uRORemoteDataModule,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDABusinessProcessor,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} $LIBRARYNAME_Intf;
+
+type
+  { T$SERVICENAME }
+  T$SERVICENAME = class(TDataAbstractService, I$SERVICENAME)
+    DataStreamer: TDABin2DataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { I$SERVICENAME methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} $LIBRARYNAME_Invk, fServerDataModule;
+
+procedure Create_$SERVICENAME(out anInstance: IUnknown);
+begin
+  anInstance := T$SERVICENAME.Create(nil);
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('$SERVICENAME', Create_$SERVICENAME, T$SERVICENAME_Invoker);
+  // RegisterForZeroConf(fClassFactory,'_$SERVICENAME_rosdk._tcp.');
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/Icon.ico
new file mode 100644
index 0000000..34b76bf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/Info.ini
new file mode 100644
index 0000000..44d08cb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/Info.ini	
@@ -0,0 +1,6 @@
+[Information]
+Name=Simple Login Server
+Description=Data Abstract VCL Based Combo Server with Simple Login
+InvalidServers=TROWebBrokerServer,TROLocalServer,TROWinMessageServer
+DefaultServer=TROIndyHTTPServer
+Wizard=DAGuideWizard
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/LoginService_Impl.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/LoginService_Impl.dfm
new file mode 100644
index 0000000..19a75f0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/LoginService_Impl.dfm	
@@ -0,0 +1,10 @@
+object LoginService: TLoginService
+  OldCreateOrder = True
+  SessionManager = ServerDataModule.SessionManager
+  OnLogout = LoginServiceLogout
+  OnLogin = LoginServiceLogin
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/LoginService_Impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/LoginService_Impl.pas
new file mode 100644
index 0000000..31815af
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/LoginService_Impl.pas	
@@ -0,0 +1,90 @@
+unit LoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uROClasses,
+  {Ancestor Implementation:} SimpleLoginService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} $LIBRARYNAME_Intf;
+
+type
+  { TLoginService }
+  TLoginService = class(TSimpleLoginService, ILoginService)
+    procedure LoginServiceLogout(Sender: TObject);
+    procedure LoginServiceLogin(Sender: TObject; aUserID,
+      aPassword: Utf8String; out aUserInfo: UserInfo;
+      var aLoginSuccessful: Boolean);
+  private
+  protected
+    { ILoginService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:}$LIBRARYNAME_Invk, fServerDataModule;
+
+procedure Create_LoginService(out anInstance : IUnknown);
+begin
+  anInstance := TLoginService.Create(nil);
+end;
+
+{ LoginService }
+
+procedure TLoginService.LoginServiceLogin(Sender: TObject; aUserID,
+  aPassword: Utf8String; out aUserInfo: UserInfo;
+  var aLoginSuccessful: Boolean);
+begin
+  // This is where your Login logic should be implemented. A default implementation has been added
+  // for you.
+
+  // If you application does not require sending back a UserInfo structure, you can set
+  // aUserInfo to nil, indtead of returning a new instance.
+
+  // If you require a more complex UserInfo structure (i.e. MyCompanyUserInfo), simply add
+  // a new struct to the file WindowsFormsServer1.RODL and set its ancestor to UserInfo. You will then
+  // be able to marshal your new custom class back to the client by reassigning the aEA.UserInfo property.
+
+  // myInfo = new MyCompanyUserInfo();
+  // myInfo.City = "London";
+  // myInfo.Address = "213 Smith Road";
+  // myInfo.Age = 32;
+  // aUserInfo = myInfo;
+
+  aLoginSuccessful := aUserID = aPassword;
+
+  if aLoginSuccessful then begin
+    aUserInfo := UserInfo.Create;
+    aUserInfo.SessionID := UTF8String(GuidToAnsiString(ClientID));
+    aUserInfo.UserID := aUserID;
+
+    Session['UserID'] := aUserID;
+  end
+  else begin
+    DestroySession;
+  end;
+end;
+
+procedure TLoginService.LoginServiceLogout(Sender: TObject);
+begin
+  DestroySession;
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('LoginService', Create_LoginService, TLoginService_Invoker);
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEClient.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEClient.dpr
new file mode 100644
index 0000000..e9da82d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEClient.dpr	
@@ -0,0 +1,19 @@
+program $PRJNAMEClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  $LIBRARYNAME_Intf in '$LIBRARYNAME_Intf.pas',
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  fLoginForm in 'fLoginForm.pas' {LoginForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEClient.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEClient.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEGroup.bpg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEGroup.bpg
new file mode 100644
index 0000000..b93564d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/$PRJNAMEGroup.bpg	
@@ -0,0 +1,21 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = $PRJNAME.exe $PRJNAMEClient.exe 
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+$PRJNAME.exe: $PRJNAME.dpr
+  $(DCC)
+
+$PRJNAMEClient.exe: $PRJNAMEClient.dpr
+  $(DCC)
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientDataModule.dfm
new file mode 100644
index 0000000..e214225
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientDataModule.dfm	
@@ -0,0 +1,32 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TRO$CHNCLSNAME
+    Left = 40
+    Top = 8
+  end
+  object Message: TRO$MSGCLSNAME
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = '$SERVICENAME'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    Left = 40
+    Top = 184
+    DataStreamer = DataStreamer
+    RemoteService = RemoteService
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientDataModule.pas
new file mode 100644
index 0000000..bc371f4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientDataModule.pas	
@@ -0,0 +1,31 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, $MESSAGEUNIT, $CHANNELUNIT, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces,
+  uDADataStreamer, uDARemoteDataAdapter;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TRO$MSGCLSNAME;
+    Channel: TRO$CHNCLSNAME;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientForm.dfm
new file mode 100644
index 0000000..df91fc4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientForm.dfm	
@@ -0,0 +1,19 @@
+object ClientForm: TClientForm
+  Left = 372
+  Top = 277
+  Width = 334
+  Height = 207
+  Caption = 'Data Abstract Client'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientForm.pas
new file mode 100644
index 0000000..bd6b8da
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fClientForm.pas	
@@ -0,0 +1,74 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,
+  DataAbstract4_Intf, $LIBRARYNAME_Intf;
+
+type
+  TClientForm = class(TForm)
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  private
+    fLoggedIn: Boolean;
+    fUserInfo: UserInfo;
+    fLogin: ILoginService;
+  protected
+    function Login: Boolean;
+    procedure Logout;
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fLoginForm, fClientDataModule;
+
+{$R *.dfm}
+
+procedure TClientForm.FormShow(Sender: TObject);
+begin
+  fLogin := CoLoginService.Create(ClientDataModule.Message, ClientDataModule.Channel); 
+  if not Login then
+    Application.Terminate;
+end;
+
+procedure TClientForm.FormDestroy(Sender: TObject);
+begin
+  Logout;
+end;
+
+function TClientForm.Login: Boolean;
+var
+  fLoginForm: TLoginForm;
+begin
+  fLoginForm := TLoginForm.Create(nil);
+  try
+    FreeAndNil(fUserInfo);
+    while fLoginForm.ShowModal = mrOk do begin
+      fLoggedIn := fLogin.Login(UTF8Encode(fLoginForm.edUsername.Text),
+                  UTF8Encode(fLoginForm.edPassword.Text), fUserInfo);
+      Result := fLoggedIn;
+      if Result then exit;
+    end;
+    Result := False;
+  finally
+    fLoginForm.Free;
+  end;
+end;
+
+procedure TClientForm.Logout;
+begin
+  if fLoggedIn then begin
+    fLogin.Logout();
+    fLoggedIn := false;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fLoginForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fLoginForm.dfm
new file mode 100644
index 0000000..09a7bf9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fLoginForm.dfm	
@@ -0,0 +1,75 @@
+object LoginForm: TLoginForm
+  Left = 408
+  Top = 136
+  ActiveControl = edUsername
+  BorderStyle = bsDialog
+  Caption = 'Login'
+  ClientHeight = 101
+  ClientWidth = 374
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 15
+    Width = 56
+    Height = 13
+    Caption = '&User Name:'
+    FocusControl = edUsername
+  end
+  object Label2: TLabel
+    Left = 8
+    Top = 42
+    Width = 50
+    Height = 13
+    Caption = '&Password:'
+    FocusControl = edPassword
+  end
+  object edUsername: TEdit
+    Left = 80
+    Top = 12
+    Width = 286
+    Height = 21
+    TabOrder = 0
+    OnChange = edPasswordChange
+  end
+  object edPassword: TEdit
+    Left = 80
+    Top = 39
+    Width = 286
+    Height = 21
+    PasswordChar = '*'
+    TabOrder = 1
+    OnChange = edPasswordChange
+  end
+  object bOk: TButton
+    Left = 210
+    Top = 68
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 2
+  end
+  object bCancel: TButton
+    Left = 291
+    Top = 68
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 3
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fLoginForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fLoginForm.pas
new file mode 100644
index 0000000..67e0279
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/_CLIENT/fLoginForm.pas	
@@ -0,0 +1,45 @@
+unit fLoginForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  TLoginForm = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
+    edUsername: TEdit;
+    edPassword: TEdit;
+    bOk: TButton;
+    bCancel: TButton;
+    procedure edPasswordChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    procedure ValidateInput;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.dfm}
+
+procedure TLoginForm.edPasswordChange(Sender: TObject);
+begin
+  ValidateInput;
+end;
+
+procedure TLoginForm.FormCreate(Sender: TObject);
+begin
+  ValidateInput;
+end;
+
+procedure TLoginForm.ValidateInput;
+begin
+  bOk.Enabled := (edUsername.Text <> '') and (edPassword.Text <> '');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerDataModule.dfm
new file mode 100644
index 0000000..2cdf891
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerDataModule.dfm	
@@ -0,0 +1,58 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object Server: TRO$SRVCLSNAME
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+      end>
+    Left = 32
+    Top = 8
+  end
+  object Message: TRO$MSGCLSNAME
+    Left = 34
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerDataModule.pas
new file mode 100644
index 0000000..82fe052
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerDataModule.pas	
@@ -0,0 +1,42 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  $MESSAGEUNIT, $SERVERUNIT,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver;
+
+type
+  TServerDataModule = class(TDataModule)
+    Server: TRO$SRVCLSNAME;
+    Message: TRO$MSGCLSNAME;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    DataDictionary: TDADataDictionary;
+    SessionManager: TROInMemorySessionManager;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerForm.dfm
new file mode 100644
index 0000000..77cfe95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerForm.dfm	
@@ -0,0 +1,23 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Data Abstract Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerForm.pas
new file mode 100644
index 0000000..08fb16d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLLOGINEXE/fServerForm.pas	
@@ -0,0 +1,25 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton;
+
+type
+  TServerForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$LIBRARYNAME.RODL b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$LIBRARYNAME.RODL
new file mode 100644
index 0000000..7aae775
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$LIBRARYNAME.RODL	
@@ -0,0 +1,23 @@
+<Library Name="$LIBRARYNAME" UID="$NEWID">
+  <Services>
+    <Service Name="$SVCNAME" UID="$NEWID" Ancestor="DataAbstractService">
+      <Interfaces>
+         <Interface Name="Default" UID="$NEWID">
+            <Operations>
+            </Operations>
+         </Interface>
+      </Interfaces>
+    </Service>
+    <Service Name="LoginService" UID="$NEWID" Ancestor="MultiDbLoginServiceV5">
+      <Interfaces>
+        <Interface Name="Default" UID="$NEWID">
+          <Operations>
+          </Operations>
+        </Interface>
+      </Interfaces>
+    </Service>
+  </Services>
+  <Uses>
+     <Use Name="DataAbstract" UID="$NEWID" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" />
+  </Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$PRJNAME.dpr
new file mode 100644
index 0000000..a379b08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$PRJNAME.dpr	
@@ -0,0 +1,28 @@
+program $PRJNAME;
+
+{#ROGEN:$LIBRARYNAME.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  $SERVICENAME_Impl in '$SERVICENAME_Impl.pas' {$SERVICENAME: TDARemoteService},
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule},
+  LoginService_Impl in 'LoginService_Impl.pas' {LoginService: TSimpleLoginService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('$PRJNAME', '$PRJNAME') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$PRJNAME.res
new file mode 100644
index 0000000..dc22e33
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$SERVICENAME_Impl.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$SERVICENAME_Impl.dfm
new file mode 100644
index 0000000..8c5db56
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$SERVICENAME_Impl.dfm	
@@ -0,0 +1,25 @@
+object $SERVICENAME: T$SERVICENAME
+  AcquireConnection = True
+  OldCreateOrder = True
+  RequiresSession = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  SessionManager = ServerDataModule.SessionManager
+  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+  Left = 357
+  Top = 213
+  Height = 212
+  Width = 216
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = ServerDataModule.ConnectionManager
+    DataDictionary = ServerDataModule.DataDictionary
+    Datasets = <>
+    Commands = <>
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$SERVICENAME_Impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$SERVICENAME_Impl.pas
new file mode 100644
index 0000000..a127cfb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/$SERVICENAME_Impl.pas	
@@ -0,0 +1,50 @@
+unit $SERVICENAME_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, Variants,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uRORemoteDataModule,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDABusinessProcessor,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} $LIBRARYNAME_Intf;
+
+type
+  { T$SERVICENAME }
+  T$SERVICENAME = class(TDataAbstractService, I$SERVICENAME)
+    DataStreamer: TDABin2DataStreamer;
+    Schema: TDASchema;
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
+  private
+  protected
+    { I$SERVICENAME methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} $LIBRARYNAME_Invk, fServerDataModule;
+
+procedure Create_$SERVICENAME(out anInstance: IUnknown);
+begin
+  anInstance := T$SERVICENAME.Create(nil);
+end;
+
+{ T$SERVICENAME }
+
+procedure T$SERVICENAME.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
+begin
+  aConnectionName := VarToStr(Session['ConnectionName']);
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('$SERVICENAME', Create_$SERVICENAME, T$SERVICENAME_Invoker);
+  // RegisterForZeroConf(fClassFactory,'_$SERVICENAME_rosdk._tcp.');
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/Icon.ico
new file mode 100644
index 0000000..34b76bf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/Info.ini
new file mode 100644
index 0000000..26cfb42
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/Info.ini	
@@ -0,0 +1,6 @@
+[Information]
+Name=MultiDb Login Server
+Description=Data Abstract VCL Based Combo Server with MultiDb Login
+InvalidServers=TROWebBrokerServer,TROLocalServer,TROWinMessageServer
+DefaultServer=TROIndyHTTPServer
+Wizard=DAGuideWizard
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/LoginService_Impl.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/LoginService_Impl.dfm
new file mode 100644
index 0000000..14e8935
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/LoginService_Impl.dfm	
@@ -0,0 +1,11 @@
+object LoginService: TLoginService
+  OldCreateOrder = True
+  ConnectionManager = ServerDataModule.ConnectionManager
+  SessionManager = ServerDataModule.SessionManager
+  OnLogout = LoginServiceLogout
+  OnLogin = LoginServiceLogin
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/LoginService_Impl.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/LoginService_Impl.pas
new file mode 100644
index 0000000..3ac7c80
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/LoginService_Impl.pas	
@@ -0,0 +1,93 @@
+unit LoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uROClasses,
+  {Ancestor Implementation:} MultiDbLoginServiceV5_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} $LIBRARYNAME_Intf;
+
+type
+  { TLoginService }
+  TLoginService = class(TMultiDbLoginServiceV5, ILoginService)
+    procedure LoginServiceLogout(Sender: TObject);
+    procedure LoginServiceLogin(Sender: TObject; aUserID,
+      aPassword: Utf8String; aConnectionName: Utf8String; out aUserInfo: UserInfo;
+      var aLoginSuccessful: Boolean);
+  private
+  protected
+    { ILoginService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:}$LIBRARYNAME_Invk, fServerDataModule;
+
+procedure Create_LoginService(out anInstance : IUnknown);
+begin
+  anInstance := TLoginService.Create(nil);
+end;
+
+{ LoginService }
+
+procedure TLoginService.LoginServiceLogin(Sender: TObject; aUserID,
+  aPassword: Utf8String; aConnectionName: Utf8String; out aUserInfo: UserInfo;
+  var aLoginSuccessful: Boolean);
+begin
+  // This is where your Login logic should be implemented. A default implementation has been added
+  // for you.
+
+  // If you application does not require sending back a UserInfo structure, you can set
+  // aUserInfo to nil, indtead of returning a new instance.
+
+  // If you require a more complex UserInfo structure (i.e. MyCompanyUserInfo), simply add
+  // a new struct to the file WindowsFormsServer1.RODL and set its ancestor to UserInfo. You will then
+  // be able to marshal your new custom class back to the client by reassigning the aEA.UserInfo property.
+
+  // myInfo = new MyCompanyUserInfo();
+  // myInfo.City = "London";
+  // myInfo.Address = "213 Smith Road";
+  // myInfo.Age = 32;
+  // aUserInfo = myInfo;
+
+  aLoginSuccessful := aUserID = aPassword;
+
+  if aLoginSuccessful then begin
+    aUserInfo := UserInfo.Create;
+    aUserInfo.SessionID := UTF8String(GuidToAnsiString(ClientID));
+    aUserInfo.UserID := aUserID;
+
+    Session['UserID'] := aUserID;
+
+    // store connection name for use in data service
+    Session['ConnectionName'] := aConnectionName;
+  end
+  else begin
+    DestroySession;
+  end;
+end;
+
+procedure TLoginService.LoginServiceLogout(Sender: TObject);
+begin
+  DestroySession;
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('LoginService', Create_LoginService, TLoginService_Invoker);
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEClient.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEClient.dpr
new file mode 100644
index 0000000..e9da82d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEClient.dpr	
@@ -0,0 +1,19 @@
+program $PRJNAMEClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  $LIBRARYNAME_Intf in '$LIBRARYNAME_Intf.pas',
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  fLoginForm in 'fLoginForm.pas' {LoginForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEClient.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEClient.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEGroup.bpg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEGroup.bpg
new file mode 100644
index 0000000..b93564d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/$PRJNAMEGroup.bpg	
@@ -0,0 +1,21 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = $PRJNAME.exe $PRJNAMEClient.exe 
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+$PRJNAME.exe: $PRJNAME.dpr
+  $(DCC)
+
+$PRJNAMEClient.exe: $PRJNAMEClient.dpr
+  $(DCC)
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientDataModule.dfm
new file mode 100644
index 0000000..e214225
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientDataModule.dfm	
@@ -0,0 +1,32 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TRO$CHNCLSNAME
+    Left = 40
+    Top = 8
+  end
+  object Message: TRO$MSGCLSNAME
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = '$SERVICENAME'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    Left = 40
+    Top = 184
+    DataStreamer = DataStreamer
+    RemoteService = RemoteService
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientDataModule.pas
new file mode 100644
index 0000000..bc371f4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientDataModule.pas	
@@ -0,0 +1,31 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, $MESSAGEUNIT, $CHANNELUNIT, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces,
+  uDADataStreamer, uDARemoteDataAdapter;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TRO$MSGCLSNAME;
+    Channel: TRO$CHNCLSNAME;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientForm.dfm
new file mode 100644
index 0000000..df91fc4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientForm.dfm	
@@ -0,0 +1,19 @@
+object ClientForm: TClientForm
+  Left = 372
+  Top = 277
+  Width = 334
+  Height = 207
+  Caption = 'Data Abstract Client'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientForm.pas
new file mode 100644
index 0000000..d57f30e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fClientForm.pas	
@@ -0,0 +1,86 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,uROClasses,
+  DataAbstract4_Intf, $LIBRARYNAME_Intf;
+
+type
+  TClientForm = class(TForm)
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  private
+    fLoggedIn: Boolean;
+    fUserInfo: UserInfo;
+    fLogin: ILoginService;
+  protected
+    function Login: Boolean;
+    procedure Logout;
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fLoginForm, fClientDataModule;
+
+{$R *.dfm}
+
+procedure TClientForm.FormShow(Sender: TObject);
+begin
+  fLogin := CoLoginService.Create(ClientDataModule.Message, ClientDataModule.Channel); 
+  if not Login then
+    Application.Terminate;
+end;
+
+procedure TClientForm.FormDestroy(Sender: TObject);
+begin
+  Logout;
+end;
+
+function TClientForm.Login: Boolean;
+var
+  fLoginForm: TLoginForm;
+  lNames: StringArray;
+  i: integer;  
+begin
+  fLoginForm := TLoginForm.Create(nil);
+  try
+    FreeAndNil(fUserInfo);
+    lNames := fLogin.GetConnectionNames;
+    try
+      for i:=0 to lNames.Count-1 do
+        fLoginForm.edDatabaseName.Items.Add(UTF8ToString(lNames.Items[i]));
+    finally
+      lNames.Free;
+    end;
+    i := fLoginForm.edDatabaseName.Items.IndexOf(UTF8ToString(fLogin.GetDefaultConnectionName));
+    if i > -1 then fLoginForm.edDatabaseName.ItemIndex := i;   
+    while fLoginForm.ShowModal = mrOk do begin
+      fLoggedIn := fLogin.Login(UTF8Encode(fLoginForm.edUsername.Text),
+                  UTF8Encode(fLoginForm.edPassword.Text), 
+                  UTF8Encode(fLoginForm.edDatabaseName.Text), fUserInfo);
+      Result := fLoggedIn;
+      if Result then exit;
+    end;
+    Result := False;
+  finally
+    fLoginForm.Free;
+  end;
+end;
+
+procedure TClientForm.Logout;
+begin
+  if fLoggedIn then begin
+    fLogin.Logout();
+    fLoggedIn := false;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fLoginForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fLoginForm.dfm
new file mode 100644
index 0000000..9b375ca
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fLoginForm.dfm	
@@ -0,0 +1,93 @@
+object LoginForm: TLoginForm
+  Left = 408
+  Top = 136
+  ActiveControl = edUsername
+  BorderStyle = bsDialog
+  Caption = 'Login'
+  ClientHeight = 128
+  ClientWidth = 374
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 15
+    Width = 56
+    Height = 13
+    Caption = '&User Name:'
+    FocusControl = edUsername
+  end
+  object Label2: TLabel
+    Left = 8
+    Top = 42
+    Width = 50
+    Height = 13
+    Caption = '&Password:'
+    FocusControl = edPassword
+  end
+  object Label3: TLabel
+    Left = 8
+    Top = 69
+    Width = 50
+    Height = 13
+    Caption = '&Database:'
+    FocusControl = edDatabaseName
+  end
+  object edUsername: TEdit
+    Left = 80
+    Top = 12
+    Width = 286
+    Height = 21
+    TabOrder = 0
+    OnChange = edPasswordChange
+  end
+  object edPassword: TEdit
+    Left = 80
+    Top = 39
+    Width = 286
+    Height = 21
+    PasswordChar = '*'
+    TabOrder = 1
+    OnChange = edPasswordChange
+  end
+  object bOk: TButton
+    Left = 210
+    Top = 95
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 2
+  end
+  object bCancel: TButton
+    Left = 291
+    Top = 95
+    Width = 75
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 3
+  end
+  object edDatabaseName: TComboBox
+    Left = 80
+    Top = 66
+    Width = 286
+    Height = 21
+    Style = csDropDownList    
+    ItemHeight = 13
+    TabOrder = 4
+    OnChange = edPasswordChange
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fLoginForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fLoginForm.pas
new file mode 100644
index 0000000..df186ef
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/_CLIENT/fLoginForm.pas	
@@ -0,0 +1,47 @@
+unit fLoginForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  TLoginForm = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    edUsername: TEdit;
+    edPassword: TEdit;
+    edDatabaseName: TComboBox;
+    bOk: TButton;
+    bCancel: TButton;
+    procedure edPasswordChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    procedure ValidateInput;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.dfm}
+
+procedure TLoginForm.edPasswordChange(Sender: TObject);
+begin
+  ValidateInput;
+end;
+
+procedure TLoginForm.FormCreate(Sender: TObject);
+begin
+  ValidateInput;
+end;
+
+procedure TLoginForm.ValidateInput;
+begin
+  bOk.Enabled := (edUsername.Text <> '') and (edPassword.Text <> '');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerDataModule.dfm
new file mode 100644
index 0000000..2cdf891
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerDataModule.dfm	
@@ -0,0 +1,58 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object Server: TRO$SRVCLSNAME
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+      end>
+    Left = 32
+    Top = 8
+  end
+  object Message: TRO$MSGCLSNAME
+    Left = 34
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerDataModule.pas
new file mode 100644
index 0000000..82fe052
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerDataModule.pas	
@@ -0,0 +1,42 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  $MESSAGEUNIT, $SERVERUNIT,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver;
+
+type
+  TServerDataModule = class(TDataModule)
+    Server: TRO$SRVCLSNAME;
+    Message: TRO$MSGCLSNAME;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    DataDictionary: TDADataDictionary;
+    SessionManager: TROInMemorySessionManager;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerForm.dfm
new file mode 100644
index 0000000..77cfe95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerForm.dfm	
@@ -0,0 +1,23 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Data Abstract Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerForm.pas
new file mode 100644
index 0000000..08fb16d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/DA/VCLMULTIDBLOGINEXE/fServerForm.pas	
@@ -0,0 +1,25 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton;
+
+type
+  TServerForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/$PRJNAME.dpr
new file mode 100644
index 0000000..6ba717c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/$PRJNAME.dpr	
@@ -0,0 +1,21 @@
+library $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  WebBroker,
+  ApacheApp,
+  Unit1 in 'Unit1.pas' {WebModule1: TWebModule};
+
+{$R *.RES}
+{$R RODLFile.RES} // RemObjects: Careful, do not remove!
+
+exports
+  apache_module name '$PRJNAME_module';
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TWebModule1, WebModule1);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Icon.ico
new file mode 100644
index 0000000..064bbbf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Info.ini
new file mode 100644
index 0000000..230412d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Info.ini	
@@ -0,0 +1,6 @@
+[Information]
+Name=Apache 1.0 DSO Server
+Description=Apache 1 Shared Module (DSO) Server Project
+MinimumVersion=6
+MaximumVersion=12
+FixedServer=TROWebBrokerServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Unit1.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Unit1.dfm
new file mode 100644
index 0000000..620a86e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Unit1.dfm	
@@ -0,0 +1,23 @@
+object WebModule1: TWebModule1
+  OldCreateOrder = False
+  Actions = <>
+  Left = 522
+  Top = 415
+  Height = 308
+  Width = 462
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 24
+    Top = 16
+  end
+  object ROServer: TRO$SRVCLSNAME
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 56
+    Top = 8
+  end
+end
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Unit1.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Unit1.pas
new file mode 100644
index 0000000..9360375
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache/Unit1.pas	
@@ -0,0 +1,26 @@
+unit Unit1;
+
+interface
+
+uses
+  SysUtils, Classes, HTTPApp, uROClient, 
+  uROClientIntf, $MESSAGEUNIT, uROServer, $SERVERUNIT;
+
+type
+  TWebModule1 = class(TWebModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TRO$SRVCLSNAME;
+  private
+
+  public
+
+  end;
+
+var
+  WebModule1: TWebModule1;
+
+implementation
+
+{$R *.DFM}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/$PRJNAME.dpr
new file mode 100644
index 0000000..607fd92
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/$PRJNAME.dpr	
@@ -0,0 +1,21 @@
+library $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  WebBroker,
+  ApacheTwoApp,
+  Unit1 in 'Unit1.pas' {WebModule1: TWebModule};
+
+{$R *.RES}
+{$R RODLFile.RES} // RemObjects: Careful, do not remove!
+
+exports
+  apache_module name '$PRJNAME_module';
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TWebModule1, WebModule1);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Icon.ico
new file mode 100644
index 0000000..064bbbf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Info.ini
new file mode 100644
index 0000000..0faac96
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Info.ini	
@@ -0,0 +1,5 @@
+[Information]
+Name=Apache 2.0 DSO Server
+Description=Apache 2 Shared Module (DSO) Server Project
+MinimumVersion=7
+FixedServer=TROWebBrokerServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Unit1.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Unit1.dfm
new file mode 100644
index 0000000..620a86e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Unit1.dfm	
@@ -0,0 +1,23 @@
+object WebModule1: TWebModule1
+  OldCreateOrder = False
+  Actions = <>
+  Left = 522
+  Top = 415
+  Height = 308
+  Width = 462
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 24
+    Top = 16
+  end
+  object ROServer: TRO$SRVCLSNAME
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 56
+    Top = 8
+  end
+end
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Unit1.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Unit1.pas
new file mode 100644
index 0000000..9360375
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Apache2/Unit1.pas	
@@ -0,0 +1,26 @@
+unit Unit1;
+
+interface
+
+uses
+  SysUtils, Classes, HTTPApp, uROClient, 
+  uROClientIntf, $MESSAGEUNIT, uROServer, $SERVERUNIT;
+
+type
+  TWebModule1 = class(TWebModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TRO$SRVCLSNAME;
+  private
+
+  public
+
+  end;
+
+var
+  WebModule1: TWebModule1;
+
+implementation
+
+{$R *.DFM}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/$PRJNAME.dpr
new file mode 100644
index 0000000..021a9f3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/$PRJNAME.dpr	
@@ -0,0 +1,26 @@
+program $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule},
+  fServerForm in 'fServerForm.pas' {ServerForm};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('$PRJNAME', '$PRJNAME') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/Icon.ico
new file mode 100644
index 0000000..1cd8625
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/Info.ini
new file mode 100644
index 0000000..0d315fe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/Info.ini	
@@ -0,0 +1,5 @@
+[Information]
+Name=Combo Service/Standalone
+Description=Combo Standalone Server
+InvalidServers=TROWebBrokerServer,TROWinMessageServer,TROLocalServer
+DefaultServer=TROIndyHTTPServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerDataModule.dfm
new file mode 100644
index 0000000..5ff5054
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerDataModule.dfm	
@@ -0,0 +1,23 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 475
+  Top = 159
+  Height = 189
+  Width = 292
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 40
+    Top = 8
+  end
+  object ROServer: TRO$SRVCLSNAME
+    Active = False
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 90
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerDataModule.pas
new file mode 100644
index 0000000..6ff6fc6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerDataModule.pas	
@@ -0,0 +1,33 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROServer, uROIndyTCPServer,
+  uROPoweredByRemObjectsButton, uROClientIntf, uROClasses,
+  $MESSAGEUNIT, $SERVERUNIT;
+
+type
+  TServerDataModule = class(TDataModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TRO$SRVCLSNAME;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  ROServer.Active := TRUE;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerForm.dfm
new file mode 100644
index 0000000..269fda2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerForm.dfm	
@@ -0,0 +1,25 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'RemObjects Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerForm.pas
new file mode 100644
index 0000000..131f03d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/COMBOEXE/fServerForm.pas	
@@ -0,0 +1,26 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROClasses;
+
+type
+  TServerForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/$PRJNAME.dpr
new file mode 100644
index 0000000..1d8214d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/$PRJNAME.dpr	
@@ -0,0 +1,31 @@
+program $PRJNAME;
+
+{$APPTYPE CONSOLE}
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROServer,
+  $MESSAGEUNIT, 
+  $SERVERUNIT;
+
+{$R *.res}
+{$R RODLFile.res}
+
+var 
+  ROMessage: TRO$MSGCLSNAME;
+  ROServer: TRO$SRVCLSNAME;
+begin
+  Writeln('RemObjects SDK for Delphi - Command Line Server');
+  ROMessage := TRO$MSGCLSNAME.Create(nil);
+  ROServer := TRO$SRVCLSNAME.Create(nil);
+  TROMessageDispatcher(ROServer.Dispatchers.Add).Message := ROMessage;
+  try
+    ROServer.Active := true;
+    WriteLn('Server is active, press Enter to stop.');
+    Readln;
+  finally
+    ROServer.Free;
+    ROMessage.Free;
+  end;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/Icon.ico
new file mode 100644
index 0000000..a19ef58
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/Info.ini
new file mode 100644
index 0000000..435f675
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/CONSOLE/Info.ini	
@@ -0,0 +1,5 @@
+[Information]
+Name=Command Line Server
+Description=Command Line Based Standalone Server
+InvalidServers=TROWebBrokerServer,TROLocalServer
+DefaultServer=TROIndyHTTPServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/$PRJNAME.dpr
new file mode 100644
index 0000000..96f5739
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/$PRJNAME.dpr	
@@ -0,0 +1,19 @@
+program  $PRJNAME;
+
+{$APPTYPE CONSOLE}
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  WebBroker,
+  CGIApp,
+  Unit1 in 'Unit1.pas' {WebModule1: TWebModule};
+
+{$R *.RES}
+{$R RODLFile.RES} // RemObjects: Careful, do not remove!
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TWebModule1, WebModule1);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Icon.ico
new file mode 100644
index 0000000..a19ef58
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Info.ini
new file mode 100644
index 0000000..1369427
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Info.ini	
@@ -0,0 +1,4 @@
+[Information]
+Name=CGI Server
+Description=CGI Server Project
+FixedServer=TROWebBrokerServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Unit1.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Unit1.dfm
new file mode 100644
index 0000000..620a86e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Unit1.dfm	
@@ -0,0 +1,23 @@
+object WebModule1: TWebModule1
+  OldCreateOrder = False
+  Actions = <>
+  Left = 522
+  Top = 415
+  Height = 308
+  Width = 462
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 24
+    Top = 16
+  end
+  object ROServer: TRO$SRVCLSNAME
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 56
+    Top = 8
+  end
+end
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Unit1.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Unit1.pas
new file mode 100644
index 0000000..9360375
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Cgi/Unit1.pas	
@@ -0,0 +1,26 @@
+unit Unit1;
+
+interface
+
+uses
+  SysUtils, Classes, HTTPApp, uROClient, 
+  uROClientIntf, $MESSAGEUNIT, uROServer, $SERVERUNIT;
+
+type
+  TWebModule1 = class(TWebModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TRO$SRVCLSNAME;
+  private
+
+  public
+
+  end;
+
+var
+  WebModule1: TWebModule1;
+
+implementation
+
+{$R *.DFM}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/$PRJNAME.dpr
new file mode 100644
index 0000000..c61f188
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/$PRJNAME.dpr	
@@ -0,0 +1,17 @@
+program $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  QForms,
+  fServerForm in 'fServerForm.pas' {ServerForm};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/Icon.ico
new file mode 100644
index 0000000..7c265d0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/Info.ini
new file mode 100644
index 0000000..52e14a9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/Info.ini	
@@ -0,0 +1,6 @@
+[Information]
+Name=CLX Standalone
+Description=CLX-Based Standalone Server
+InvalidServers=TROWebBrokerServer,TROWinMessageServer,TRONamedPipeServer,TROWinInetHTTPChannel,TROLocalServer
+MaximumVersion=7
+DefaultServer=TROIndyHTTPServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/fServerForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/fServerForm.pas
new file mode 100644
index 0000000..7809ff2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/fServerForm.pas	
@@ -0,0 +1,28 @@
+unit fServerForm;
+
+interface
+
+uses
+  SysUtils, Types, Classes, Variants, 
+  QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, 
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, 
+  $MESSAGEUNIT, $SERVERUNIT;
+
+type
+  TServerForm = class(TForm)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TRO$SRVCLSNAME;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.xfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/fServerForm.xfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/fServerForm.xfm
new file mode 100644
index 0000000..f2b5b8d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/ClxExe/fServerForm.xfm	
@@ -0,0 +1,26 @@
+object ServerForm: TServerForm
+  Left = 227
+  Top = 213
+  Width = 403
+  Height = 207
+  Caption = 'RemObjects Server'
+  Color = clBackground
+  PixelsPerInch = 96
+  TextHeight = 13
+  TextWidth = 6
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 36
+    Top = 8
+  end
+  object ROServer: TRO$SRVCLSNAME
+    Active = False
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 8
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/$PRJNAME.dpr
new file mode 100644
index 0000000..95eaf93
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/$PRJNAME.dpr	
@@ -0,0 +1,34 @@
+library $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Windows,
+  uRODLLServer, // Do not remove! Creates the instance of the DLL server
+  $MESSAGEUNIT;
+
+{$R *.RES}
+{$R RODLFile.RES} // RemObjects: Careful, do not remove!
+
+
+var $MSGCLSNAME : TRO$MSGCLSNAME;
+
+procedure ROProc(Reason:integer);
+begin
+  case Reason of
+    DLL_PROCESS_ATTACH: begin
+      $MSGCLSNAME := TRO$MSGCLSNAME.Create();
+      RegisterMessage($MSGCLSNAME);
+    end;
+
+    DLL_PROCESS_DETACH: begin
+      $MSGCLSNAME.Free;
+    end;
+  end
+end;
+
+begin
+  DLLProc:=@ROProc;
+  ROProc(DLL_PROCESS_ATTACH)
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/Icon.ico
new file mode 100644
index 0000000..0de5912
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/Info.ini
new file mode 100644
index 0000000..0418cc0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/DLL/Info.ini	
@@ -0,0 +1,5 @@
+[Information]
+Name=DLL Server
+Description=RemObjects DLL Server Project
+FixedServer=TRODLLServer
+FixedChannel=DllChannel
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/$PRJNAME.dpr
new file mode 100644
index 0000000..f50edc5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/$PRJNAME.dpr	
@@ -0,0 +1,30 @@
+library $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  ActiveX,
+  ComObj,
+  WebBroker,
+  ISAPIApp,
+  Unit1 in 'Unit1.pas' {WebModule1: TWebModule};
+
+{$R *.RES}
+{$R RODLFile.RES} // RemObjects: Careful, do not remove!
+
+{
+  Important note: if you have Delphi 6 you should add the unit ISAPIThreadPool to the above list
+}
+
+exports
+  GetExtensionVersion,
+  HttpExtensionProc,
+  TerminateExtension;
+
+begin
+  CoInitFlags := COINIT_MULTITHREADED;
+  Application.Initialize;
+  Application.CreateForm(TWebModule1, WebModule1);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Icon.ico
new file mode 100644
index 0000000..064bbbf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Info.ini
new file mode 100644
index 0000000..ae18167
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Info.ini	
@@ -0,0 +1,4 @@
+[Information]
+Name=ISAPI/NSAPI Server
+Description=ISAPI/NSAPI Server Project
+FixedServer=TROWebBrokerServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Unit1.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Unit1.dfm
new file mode 100644
index 0000000..620a86e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Unit1.dfm	
@@ -0,0 +1,23 @@
+object WebModule1: TWebModule1
+  OldCreateOrder = False
+  Actions = <>
+  Left = 522
+  Top = 415
+  Height = 308
+  Width = 462
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 24
+    Top = 16
+  end
+  object ROServer: TRO$SRVCLSNAME
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 56
+    Top = 8
+  end
+end
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Unit1.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Unit1.pas
new file mode 100644
index 0000000..9360375
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Isapi/Unit1.pas	
@@ -0,0 +1,26 @@
+unit Unit1;
+
+interface
+
+uses
+  SysUtils, Classes, HTTPApp, uROClient, 
+  uROClientIntf, $MESSAGEUNIT, uROServer, $SERVERUNIT;
+
+type
+  TWebModule1 = class(TWebModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TRO$SRVCLSNAME;
+  private
+
+  public
+
+  end;
+
+var
+  WebModule1: TWebModule1;
+
+implementation
+
+{$R *.DFM}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/$PRJNAME.dpr
new file mode 100644
index 0000000..f5789b6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/$PRJNAME.dpr	
@@ -0,0 +1,20 @@
+program $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  Forms,
+  fMainForm in 'fMainForm.pas' {Form1},
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDataModule};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/$PRJNAME.res
new file mode 100644
index 0000000..dc22e33
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/Icon.ico
new file mode 100644
index 0000000..10af842
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/Info.ini
new file mode 100644
index 0000000..3015715
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/Info.ini	
@@ -0,0 +1,5 @@
+[Information]
+Name=Local Application
+Description=CLient and Server in one application
+FixedServer=TROLocalServer
+AllowClient=0
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fClientDataModule.dfm
new file mode 100644
index 0000000..18de835
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fClientDataModule.dfm	
@@ -0,0 +1,18 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = False
+  Left = 448
+  Top = 111
+  Height = 150
+  Width = 215
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 24
+    Top = 8
+  end
+  object ROChannel: TROLocalChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    ServerChannel = ServerDataModule.ROServer
+    Left = 24
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fClientDataModule.pas
new file mode 100644
index 0000000..430a7dc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fClientDataModule.pas	
@@ -0,0 +1,27 @@
+unit fClientDataModule;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROLocalChannel, $MESSAGEUNIT;
+
+type
+  TClientDataModule = class(TDataModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROChannel: TROLocalChannel;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+uses fServerDataModule;
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fMainForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fMainForm.dfm
new file mode 100644
index 0000000..e62d56b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fMainForm.dfm	
@@ -0,0 +1,24 @@
+object Form1: TForm1
+  Left = 192
+  Top = 114
+  Width = 236
+  Height = 99
+  Caption = 'Form1'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    ApplicationType = atClient
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fMainForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fMainForm.pas
new file mode 100644
index 0000000..7fee2ee
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fMainForm.pas	
@@ -0,0 +1,25 @@
+unit fMainForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uROPoweredByRemObjectsButton;
+
+type
+  TForm1 = class(TForm)
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fServerDataModule.dfm
new file mode 100644
index 0000000..663afc2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fServerDataModule.dfm	
@@ -0,0 +1,22 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  Left = 192
+  Top = 114
+  Height = 150
+  Width = 215
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 24
+    Top = 8
+  end
+  object ROServer: TROLocalServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 24
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fServerDataModule.pas
new file mode 100644
index 0000000..bec1807
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/LOCAL/fServerDataModule.pas	
@@ -0,0 +1,26 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROServer, uROLocalServer,
+  $MESSAGEUNIT;
+
+type
+  TServerDataModule = class(TDataModule)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TROLocalServer;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/$PRJNAME.dpr
new file mode 100644
index 0000000..6ad6a63
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/$PRJNAME.dpr	
@@ -0,0 +1,17 @@
+program $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  SvcMgr,
+  Unit1 in 'Unit1.pas' {Service1: TService};
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TService1, Service1);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Icon.ico
new file mode 100644
index 0000000..e68604d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Info.ini
new file mode 100644
index 0000000..9c6511a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Info.ini	
@@ -0,0 +1,5 @@
+[Information]
+Name=Windows Service
+Description=NT Service Application
+InvalidServers=TROWebBrokerServer,TROWinMessageServer,TROLocalServer
+DefaultServer=TROIndyHTTPServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Unit1.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Unit1.dfm
new file mode 100644
index 0000000..0099b32
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Unit1.dfm	
@@ -0,0 +1,27 @@
+object Service1: TService1
+  OldCreateOrder = False
+  DisplayName = 'Service1'
+  OnContinue = ServiceContinue
+  OnPause = ServicePause
+  OnStart = ServiceStart
+  OnStop = ServiceStop
+  Left = 623
+  Top = 222
+  Height = 150
+  Width = 215
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 64
+    Top = 88
+  end
+  object ROServer: TRO$SRVCLSNAME
+    Active = False
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 56
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Unit1.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Unit1.pas
new file mode 100644
index 0000000..6c01421
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/Service/Unit1.pas	
@@ -0,0 +1,61 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
+  uROClient, uROClientIntf, uROServer, $MESSAGEUNIT, $SERVERUNIT;
+
+type
+  TService1 = class(TService)
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TRO$SRVCLSNAME;
+    procedure ServiceStart(Sender: TService; var Started: Boolean);
+    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
+    procedure ServicePause(Sender: TService; var Paused: Boolean);
+    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
+  private
+    { Private declarations }
+  public
+    function GetServiceController: TServiceController; override;
+    { Public declarations }
+  end;
+
+var
+  Service1: TService1;
+
+implementation
+
+{$R *.dfm}
+
+procedure ServiceController(CtrlCode: DWord); stdcall;
+begin
+  Service1.Controller(CtrlCode);
+end;
+
+function TService1.GetServiceController: TServiceController;
+begin
+  Result := ServiceController;
+end;
+
+procedure TService1.ServiceStart(Sender:TService; var Started:Boolean);
+begin
+  RoServer.Active := true;
+end;
+
+procedure TService1.ServiceStop(Sender:TService; var Stopped:Boolean);
+begin
+  RoServer.Active := false;
+end;
+
+procedure TService1.ServicePause(Sender:TService; var Paused:Boolean);
+begin
+  RoServer.Active := false;
+end;
+
+procedure TService1.ServiceContinue(Sender:TService; var Continued:Boolean);
+begin
+  RoServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/$PRJNAME.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/$PRJNAME.dpr
new file mode 100644
index 0000000..6502fa9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/$PRJNAME.dpr	
@@ -0,0 +1,17 @@
+program $PRJNAME;
+
+{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  fServerForm in 'fServerForm.pas' {ServerForm};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/$PRJNAME.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/$PRJNAME.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/$PRJNAME.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/Icon.ico b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/Icon.ico
new file mode 100644
index 0000000..7c265d0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/Icon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/Info.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/Info.ini
new file mode 100644
index 0000000..41db4ba
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/Info.ini	
@@ -0,0 +1,5 @@
+[Information]
+Name=VCL Standalone
+Description=VCL Based Standalone Server
+InvalidServers=TROWebBrokerServer,TROLocalServer
+DefaultServer=TROIndyHTTPServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/fServerForm.dfm
new file mode 100644
index 0000000..fde06c3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/fServerForm.dfm	
@@ -0,0 +1,39 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'RemObjects Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  Position = poScreenCenter
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 36
+    Top = 8
+  end
+  object ROServer: TRO$SRVCLSNAME
+    Active = False
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Left = 8
+    Top = 8
+  end
+  object RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/fServerForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/fServerForm.pas
new file mode 100644
index 0000000..df805df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/RO/VclExe/fServerForm.pas	
@@ -0,0 +1,35 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  $MESSAGEUNIT, $SERVERUNIT;
+
+type
+  TServerForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ROMessage: TRO$MSGCLSNAME;
+    ROServer: TRO$SRVCLSNAME;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+
+{$R *.dfm}
+
+procedure TServerForm.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/TemplateOptions.ini b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/TemplateOptions.ini
new file mode 100644
index 0000000..3cd8a3d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/TemplateOptions.ini	
@@ -0,0 +1,18 @@
+[ServerToChannelMapping]
+IndyHTTPServer=WinInetHTTPChannel
+BPDXHTTPServer=WinInetHTTPChannel
+WebBrokerServer=WinInetHTTPChannel
+BPDXTCPServer=IndyTCPChannel
+IpSuperHTTPServer=SynapseSuperHTTPChannel
+IpTCPServer=IndyTCPChannel
+IpHTTPServer=SynapseHTTPChannel
+
+[Class Factories]
+By Request=TROClassFactory
+Singleton Object=TROSingletonClassFactory
+Pooled Object=TROPooledClassFactory
+Per Client=TROPerCLientClassFactory
+
+[ComponentToUnitMapping]
+EmailChannel=uROIndyEmailChannel
+EmailServer=uROIndyEmailServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Client/$PRJNAMEClient.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Client/$PRJNAMEClient.bdsproj
new file mode 100644
index 0000000..b543c93
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Client/$PRJNAMEClient.bdsproj	
@@ -0,0 +1,173 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">$NEWID</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">$PRJNAMEClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="RemoteHost"></Parameters>
+      <Parameters Name="RemotePath"></Parameters>
+      <Parameters Name="RemoteLauncher"></Parameters>
+      <Parameters Name="RemoteCWD"></Parameters>
+      <Parameters Name="RemoteDebug">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Client/$PRJNAMEGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Client/$PRJNAMEGroup.bdsgroup
new file mode 100644
index 0000000..a024158
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Client/$PRJNAMEGroup.bdsgroup	
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">$NEWID</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    <Projects>
+      <Projects Name="$PRJNAME.exe">$PRJNAME.bdsproj</Projects>
+      <Projects Name="$PRJNAMEClient.exe">$PRJNAMEClient.bdsproj</Projects>
+      <Projects Name="Targets">$PRJNAME.exe $PRJNAMEClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Server/$PRJNAME.bdsproj b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Server/$PRJNAME.bdsproj
new file mode 100644
index 0000000..719e2c5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_BDS/Server/$PRJNAME.bdsproj	
@@ -0,0 +1,173 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">$NEWID</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">$PRJNAME.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="RemoteHost"></Parameters>
+      <Parameters Name="RemotePath"></Parameters>
+      <Parameters Name="RemoteLauncher"></Parameters>
+      <Parameters Name="RemoteCWD"></Parameters>
+      <Parameters Name="RemoteDebug">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEClient.dpr b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEClient.dpr
new file mode 100644
index 0000000..980806e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEClient.dpr	
@@ -0,0 +1,14 @@
+program $PRJNAMEClient;
+
+uses
+  uROComInit,
+  Forms,
+  fClientForm in 'fClientForm.pas' {ClientForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEClient.res b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEClient.res
new file mode 100644
index 0000000..0f940ed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEGroup.bpg b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEGroup.bpg
new file mode 100644
index 0000000..dbb4e14
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/$PRJNAMEGroup.bpg	
@@ -0,0 +1,21 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = $PRJNAME.exe $PRJNAMEClient.exe 
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+$PRJNAME.exe: $PRJNAME.dpr
+  $(DCC)
+
+$PRJNAMEClient.exe: $PRJNAMEClient.dpr
+  $(DCC)
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/fClientForm.dfm
new file mode 100644
index 0000000..8d0da7f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/fClientForm.dfm	
@@ -0,0 +1,34 @@
+object ClientForm: TClientForm
+  Left = 372
+  Top = 277
+  Width = 400
+  Height = 340
+  Caption = 'RemObjects Client'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Style = []
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  Position = poScreenCenter
+  TextHeight = 14
+  object ROMessage: TRO$MSGCLSNAME
+    Left = 36
+    Top = 8
+  end
+  object ROChannel: TRO$CHNCLSNAME
+    Left = 8
+    Top = 8
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = '$SVCNAME'
+    Left = 64
+    Top = 8
+  end
+end
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/fClientForm.pas b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/fClientForm.pas
new file mode 100644
index 0000000..f4c3c9b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects SDK for Delphi/Templates/_Client/fClientForm.pas	
@@ -0,0 +1,38 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, $MESSAGEUNIT, $CHANNELUNIT;
+
+type
+  TClientForm = class(TForm)
+    ROMessage: TRO$MSGCLSNAME;
+    ROChannel: TRO$CHNCLSNAME;
+    RORemoteService: TRORemoteService;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+{
+  The unit $SVCLIBNAME_Intf.pas will be generated by the RemObjects preprocessor the first time you
+  compile your server application. Make sure to do that before trying to compile the client.
+
+  To invoke your server simply typecast your server to the name of the service interface like this:
+
+      (RORemoteService as I$SVCNAME).Sum(1,2)
+}
+
+uses $SVCLIBNAME_Intf; 
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.Sample.html
new file mode 100644
index 0000000..0dc2715
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.Sample.html	
@@ -0,0 +1,74 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">Business Processor Sample</p>
+
+<p>
+  This sample provides an overview over using <b>Business Processors</b> to control data access and updates, 
+  and how to react to changes propagated back or rejected by the server.
+</p>
+
+<p>
+This sample consists of three parts (accessed via tabs), each of which is devoted to a particular feature of the <b>Business Processor</b>.
+</p>
+
+<ul>
+<li>
+On the first tab you can test custom business rules, which were specified on the server side. 
+Try to violate these rules and see how the deltas are processed. 
+All details concerning the processing of a particular delta can be found in the log on the server main form, 
+where you can see the content of each delta sent to the server.
+</li>
+<li>
+On the second tab you can test a Business Processor that is configured to use custom commands for updating changes. 
+These commands are declared in the DASchema on the server side and used by the Business Processor for processing deltas. 
+You can see in the server log what schema command was called.
+</li>
+<li>
+On the third tab you can see how to intercept the generation of the update command and replace the autogenerated SQL statement with a custom one.
+</li>
+</ul>
+
+<p class="h2">Examine the code</p>
+<p>In order to see how Business Rules are implemented, please review code on the server side</p>
+<ul>
+<li>
+See the <b>TDASampleService.bpBPClientsBeforeProcessChange</b> event handler. 
+Notice that if your change does not correspond to a certain rule we just raise an exception in this handler. 
+Review what parameters are passed to the handler.
+</li>
+<li>
+Review properties and events of the business processor components on the service. Review the <b>bpBPWorkers</b> 
+business provessor component to see how to specify custom commands to update the database.
+</li>
+<li>
+Notice how we used the <b>TDASampleService.GetBPProvidersCustomSQL</b> event handler for intercepting generated SQL 
+to substitute it with our custom query.
+</li>
+</ul>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Run the Sample Server.</li> 
+<li>Run the BusinessProcessor client.</li> 
+<li>
+On the first tab, try to enter data that violates business rules and see how it will be processed. 
+See the log on the server main form. You can also try different Failure Behavior modes of the RemoteDataAdapter.
+</li> 
+<li>
+Open the second tab and try to change data there. 
+Update changes and make sure that custom commands were involved in the update action. 
+</li>
+<li>
+Open the third tab and change the data there, too. 
+Update changes and see how the changes were processed with custom SQL.
+</li>
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.dpr
new file mode 100644
index 0000000..4bda615
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.dpr	
@@ -0,0 +1,17 @@
+program BusinessProcessor;
+
+uses
+  uROComInit,
+  Forms,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.dproj
new file mode 100644
index 0000000..3151e95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.dproj	
@@ -0,0 +1,50 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{51d8aaa3-cd44-4aeb-a65c-f31da6d39781}</ProjectGuid>
+    <MainSource>BusinessProcessor.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>BusinessProcessor.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1049</VersionInfo><VersionInfo Name="CodePage">1251</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">BusinessProcessor.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="BusinessProcessor.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="fClientDataModule.pas">
+      <Form>ClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/BusinessProcessor.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..65e7e3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientDataModule.dfm
new file mode 100644
index 0000000..0a51756
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientDataModule.dfm	
@@ -0,0 +1,206 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 293
+  Top = 198
+  Height = 335
+  Width = 342
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    DataStreamer = DataStreamer
+    DynamicSelect = True
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    Left = 40
+    Top = 184
+  end
+  object tbl_BPClients: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'Id'
+        DataType = datString
+        Size = 38
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'Name'
+        DataType = datWideString
+        Size = 120
+        Required = True
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 50
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 255
+      end
+      item
+        Name = 'Remarks'
+        DataType = datWideMemo
+      end
+      item
+        Name = 'Discount'
+        DataType = datFloat
+        Required = True
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'BPClients'
+    IndexDefs = <>
+    Left = 136
+    Top = 8
+  end
+  object ds_BPClients: TDADataSource
+    DataSet = tbl_BPClients.Dataset
+    DataTable = tbl_BPClients
+    Left = 216
+    Top = 8
+  end
+  object tbl_BPProviders: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'Id'
+        DataType = datString
+        Size = 38
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'Name'
+        DataType = datWideString
+        Size = 120
+        Required = True
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 50
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 255
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'BPProviders'
+    IndexDefs = <>
+    Left = 136
+    Top = 64
+  end
+  object ds_BPProviders: TDADataSource
+    DataSet = tbl_BPProviders.Dataset
+    DataTable = tbl_BPProviders
+    Left = 216
+    Top = 64
+  end
+  object tbl_BPWorkers: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'Id'
+        DataType = datAutoInc
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'LastName'
+        DataType = datWideString
+        Size = 20
+        Required = True
+      end
+      item
+        Name = 'FirstName'
+        DataType = datWideString
+        Size = 10
+        Required = True
+      end
+      item
+        Name = 'BirthDate'
+        DataType = datDateTime
+      end
+      item
+        Name = 'Position'
+        DataType = datWideString
+        Size = 30
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 60
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 24
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'BPWorkers'
+    IndexDefs = <>
+    Left = 136
+    Top = 120
+  end
+  object ds_BPWorkers: TDADataSource
+    DataSet = tbl_BPWorkers.Dataset
+    DataTable = tbl_BPWorkers
+    Left = 216
+    Top = 120
+  end
+  object drLoginRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Login'
+    Params = <
+      item
+        Name = 'aPlatform'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'PlatformEnum'
+        Value = Null
+      end
+      item
+        Name = 'aName'
+        DataType = rtWidestring
+        Flag = fIn
+        Value = Null
+      end>
+    Left = 40
+    Top = 232
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientDataModule.pas
new file mode 100644
index 0000000..a9569e1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientDataModule.pas	
@@ -0,0 +1,62 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_BPClients: TDAMemDataTable;
+    ds_BPClients: TDADataSource;
+    tbl_BPProviders: TDAMemDataTable;
+    ds_BPProviders: TDADataSource;
+    tbl_BPWorkers: TDAMemDataTable;
+    ds_BPWorkers: TDADataSource;
+    drLoginRequest: TRODynamicRequest;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure Login;
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+uses DASampleLibrary_Intf;
+
+procedure TClientDataModule.Login;
+begin
+  with drLoginRequest do begin
+    {$IFNDEF FPC}
+    Params[0].Value := PlatformEnum_peWindowsDelphi;
+    {$ELSE}
+      {$IFDEF WINDOWS}
+      Params[0].Value := PlatformEnum_peWindowsFPC;
+      {$ELSE}
+        {$IFDEF LINUX}
+        Params[0].Value := PlatformEnum_peLinuxFPC;
+        {$ELSE}
+        Params[0].Value := PlatformEnum_peUnknown;
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+    Params[1].Value := 'DASQL Client';
+    Execute(Params);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientForm.dfm
new file mode 100644
index 0000000..f44e752
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientForm.dfm	
@@ -0,0 +1,406 @@
+object ClientForm: TClientForm
+  Left = 190
+  Top = 287
+  Width = 632
+  Height = 405
+  Caption = 'Business Processor Sample'
+  Color = clBtnFace
+  Constraints.MinWidth = 632
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 616
+    Height = 49
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Panel2: TPanel
+      Left = 0
+      Top = 0
+      Width = 217
+      Height = 49
+      Align = alLeft
+      BevelOuter = bvNone
+      Caption = 'Panel2'
+      TabOrder = 0
+      object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+        Left = 0
+        Top = 1
+        Width = 212
+        Height = 48
+        Cursor = crHandPoint
+      end
+    end
+    object rgFailureBehavior: TRadioGroup
+      Left = 217
+      Top = 0
+      Width = 399
+      Height = 49
+      Align = alClient
+      Caption = 'Failure Behavior'
+      Columns = 4
+      ItemIndex = 0
+      Items.Strings = (
+        'Show Reconcile'
+        'Raise Exception'
+        'Both'
+        'None')
+      TabOrder = 1
+      OnClick = rgFailureBehaviorClick
+    end
+  end
+  object pcSampleParts: TPageControl
+    Left = 0
+    Top = 49
+    Width = 616
+    Height = 320
+    ActivePage = tsBusinessRules
+    Align = alClient
+    TabOrder = 1
+    object tsBusinessRules: TTabSheet
+      Caption = 'Using Business Rules'
+      object Panel3: TPanel
+        Left = 0
+        Top = 0
+        Width = 608
+        Height = 41
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+        object btLoadClients: TButton
+          Left = 8
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Load'
+          TabOrder = 0
+          OnClick = btLoadClientsClick
+        end
+        object btDeleteClient: TButton
+          Left = 89
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Delete Client'
+          TabOrder = 1
+          OnClick = btDeleteClientClick
+        end
+        object btUpdateClients: TButton
+          Left = 170
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Update'
+          TabOrder = 2
+          OnClick = btUpdateClientsClick
+        end
+      end
+      object dgClients: TDBGrid
+        Left = 0
+        Top = 41
+        Width = 608
+        Height = 175
+        Align = alClient
+        Ctl3D = False
+        DataSource = ClientDataModule.ds_BPClients
+        ParentCtl3D = False
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'Id'
+            Width = 116
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Name'
+            Width = 115
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Phone'
+            Width = 115
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Address'
+            Width = 150
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Discount'
+            Visible = True
+          end>
+      end
+      object Memo1: TMemo
+        Left = 0
+        Top = 216
+        Width = 608
+        Height = 76
+        Align = alBottom
+        BevelInner = bvNone
+        BevelKind = bkFlat
+        BorderStyle = bsNone
+        Color = clBtnFace
+        Lines.Strings = (
+          
+            'Here you can test custom business rules that specified on the se' +
+            'rver side. '
+          ''
+          'There are 2 business rules. '
+          'a) You cannot delete any customer.'
+          'b) Discount should be between 0 and 50'
+          ''
+          'Try to violate these rules and see how they work.')
+        ReadOnly = True
+        TabOrder = 2
+      end
+    end
+    object tsCommands: TTabSheet
+      Caption = 'Using Commands for Update'
+      ImageIndex = 1
+      object Panel4: TPanel
+        Left = 0
+        Top = 0
+        Width = 608
+        Height = 41
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+        object btLoadWorkers: TButton
+          Left = 8
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Load'
+          TabOrder = 0
+          OnClick = btLoadWorkersClick
+        end
+        object btDeleteWorker: TButton
+          Left = 171
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Delete'
+          TabOrder = 1
+          OnClick = btDeleteWorkerClick
+        end
+        object btUpdateWorkers: TButton
+          Left = 253
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Update'
+          TabOrder = 2
+          OnClick = btUpdateWorkersClick
+        end
+        object btInsertWorker: TButton
+          Left = 89
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Insert New'
+          TabOrder = 3
+          OnClick = btInsertWorkerClick
+        end
+      end
+      object dgWorkers: TDBGrid
+        Left = 0
+        Top = 41
+        Width = 608
+        Height = 215
+        Align = alClient
+        Ctl3D = False
+        DataSource = ClientDataModule.ds_BPWorkers
+        ParentCtl3D = False
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'Id'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'LastName'
+            Width = 105
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'FirstName'
+            Width = 108
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'BirthDate'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Position'
+            Width = 70
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Address'
+            Width = 76
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Phone'
+            Width = 98
+            Visible = True
+          end>
+      end
+      object Memo2: TMemo
+        Left = 0
+        Top = 256
+        Width = 608
+        Height = 36
+        Align = alBottom
+        BevelInner = bvNone
+        BevelKind = bkFlat
+        BorderStyle = bsNone
+        Color = clBtnFace
+        Lines.Strings = (
+          
+            'Here you can test Business Processor that is configured to use c' +
+            'ustom command for applying changes.'
+          'These custom commands is defined in DASchema on the server side.')
+        ReadOnly = True
+        TabOrder = 2
+      end
+    end
+    object tsCustomSQL: TTabSheet
+      Caption = 'Using Custom SQL for Update'
+      ImageIndex = 2
+      object Panel5: TPanel
+        Left = 0
+        Top = 0
+        Width = 608
+        Height = 41
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+        object btLoadProviders: TButton
+          Left = 8
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Load'
+          TabOrder = 0
+          OnClick = btLoadProvidersClick
+        end
+        object btDeleteProvider: TButton
+          Left = 171
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Delete'
+          TabOrder = 1
+          OnClick = btDeleteProviderClick
+        end
+        object btUpdateProviders: TButton
+          Left = 253
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Update'
+          TabOrder = 2
+          OnClick = btUpdateProvidersClick
+        end
+        object btInsertProvider: TButton
+          Left = 89
+          Top = 8
+          Width = 75
+          Height = 25
+          Caption = 'Insert New'
+          TabOrder = 3
+          OnClick = btInsertProviderClick
+        end
+      end
+      object dgProviders: TDBGrid
+        Left = 0
+        Top = 41
+        Width = 608
+        Height = 215
+        Align = alClient
+        Ctl3D = False
+        DataSource = ClientDataModule.ds_BPProviders
+        ParentCtl3D = False
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'Id'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Name'
+            Width = 152
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Phone'
+            Width = 138
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Address'
+            Width = 234
+            Visible = True
+          end>
+      end
+      object Memo3: TMemo
+        Left = 0
+        Top = 256
+        Width = 608
+        Height = 36
+        Align = alBottom
+        BevelInner = bvNone
+        BevelKind = bkFlat
+        BorderStyle = bsNone
+        Color = clBtnFace
+        Lines.Strings = (
+          
+            'Here you can see how to intercept generating command event and r' +
+            'eplace autogenerated update statement with custom '
+          'one.')
+        ReadOnly = True
+        TabOrder = 2
+      end
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientForm.pas
new file mode 100644
index 0000000..be869a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientForm.pas	
@@ -0,0 +1,171 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uDADataAdapter,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ExtCtrls,
+  ComCtrls, Grids, DBGrids;
+
+type
+  TClientForm = class(TForm)
+    Panel1: TPanel;
+    Panel2: TPanel;
+    rgFailureBehavior: TRadioGroup;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    pcSampleParts: TPageControl;
+    tsBusinessRules: TTabSheet;
+    tsCommands: TTabSheet;
+    tsCustomSQL: TTabSheet;
+    Panel3: TPanel;
+    btLoadClients: TButton;
+    btDeleteClient: TButton;
+    btUpdateClients: TButton;
+    dgClients: TDBGrid;
+    Memo1: TMemo;
+    Panel4: TPanel;
+    btLoadWorkers: TButton;
+    btDeleteWorker: TButton;
+    btUpdateWorkers: TButton;
+    dgWorkers: TDBGrid;
+    Memo2: TMemo;
+    btInsertWorker: TButton;
+    Panel5: TPanel;
+    btLoadProviders: TButton;
+    btDeleteProvider: TButton;
+    btUpdateProviders: TButton;
+    btInsertProvider: TButton;
+    dgProviders: TDBGrid;
+    Memo3: TMemo;
+    procedure btLoadClientsClick(Sender: TObject);
+    procedure btDeleteClientClick(Sender: TObject);
+    procedure btUpdateClientsClick(Sender: TObject);
+    procedure rgFailureBehaviorClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure btLoadWorkersClick(Sender: TObject);
+    procedure btInsertWorkerClick(Sender: TObject);
+    procedure btDeleteWorkerClick(Sender: TObject);
+    procedure btUpdateWorkersClick(Sender: TObject);
+    procedure btLoadProvidersClick(Sender: TObject);
+    procedure btInsertProviderClick(Sender: TObject);
+    procedure btDeleteProviderClick(Sender: TObject);
+    procedure btUpdateProvidersClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  DB, DateUtils, fClientDataModule, uDADataTable;
+
+{$R *.dfm}
+
+procedure TClientForm.btDeleteClientClick(Sender: TObject);
+begin
+  ClientDataModule.tbl_BPClients.Delete;
+end;
+
+procedure TClientForm.btDeleteProviderClick(Sender: TObject);
+begin
+  ClientDataModule.tbl_BPProviders.Delete;
+end;
+
+procedure TClientForm.btDeleteWorkerClick(Sender: TObject);
+begin
+  ClientDataModule.tbl_BPWorkers.Delete;
+end;
+
+procedure TClientForm.btInsertProviderClick(Sender: TObject);
+var
+  newId: TGUID;
+begin
+  CreateGUID(newId);
+  ClientDataModule.tbl_BPProviders.AddRecord(
+    ['Id', 'Name', 'Phone', 'Address'],
+    [GUIDToString(newId), 'MegaDemo Inc', '(987)654-32-10', 'Sunshine av. 256d']);
+end;
+
+procedure TClientForm.btInsertWorkerClick(Sender: TObject);
+begin
+  ClientDataModule.tbl_BPWorkers.AddRecord(
+    ['LastName', 'FirstName', 'BirthDate', 'Position', 'Address', 'Phone'],
+    ['Smith', 'Will', EncodeDateTime(1970, 8, 15, 0, 0, 0, 0), 'World Defender', 'Somewere on Earth', '(012)345-67-89']
+    );
+end;
+
+procedure TClientForm.btLoadClientsClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    tbl_BPClients.ClearRows(true);
+    RemoteDataAdapter.Fill([tbl_BPClients]);
+  end;
+end;
+
+procedure TClientForm.btLoadProvidersClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    tbl_BPProviders.ClearRows(true);
+    RemoteDataAdapter.Fill([tbl_BPProviders]);
+  end;
+end;
+
+procedure TClientForm.btLoadWorkersClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    tbl_BPWorkers.ClearRows(true);
+    RemoteDataAdapter.Fill([tbl_BPWorkers]);
+  end;
+end;
+
+procedure TClientForm.btUpdateClientsClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    if tbl_BPClients.State <> dsBrowse then tbl_BPClients.Post;
+    RemoteDataAdapter.ApplyUpdates([tbl_BPClients]);
+  end;
+end;
+
+procedure TClientForm.btUpdateProvidersClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    if tbl_BPProviders.State <> dsBrowse then tbl_BPProviders.Post;
+    RemoteDataAdapter.ApplyUpdates([tbl_BPProviders]);
+  end;
+end;
+
+procedure TClientForm.btUpdateWorkersClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    if tbl_BPWorkers.State <> dsBrowse then tbl_BPWorkers.Post;
+    RemoteDataAdapter.ApplyUpdates([tbl_BPWorkers]);
+  end;
+end;
+
+procedure TClientForm.FormCreate(Sender: TObject);
+begin
+  Application.Title := ClientForm.Caption;
+  ClientDataModule.RemoteDataAdapter.FailureBehavior := fbShowReconcile;
+  pcSampleParts.TabIndex := 0;
+  // TODO: until bug in DynamicRequest fixed
+  //ClientDataModule.Login;
+end;
+
+procedure TClientForm.rgFailureBehaviorClick(Sender: TObject);
+begin
+  with ClientDataModule do
+    case rgFailureBehavior.ItemIndex of
+      0: RemoteDataAdapter.FailureBehavior := fbShowReconcile;
+      1: RemoteDataAdapter.FailureBehavior := fbRaiseException;
+      2: RemoteDataAdapter.FailureBehavior := fbBoth;
+      3: RemoteDataAdapter.FailureBehavior := fbNone;
+    end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.Sample.html
new file mode 100644
index 0000000..61cf674
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.Sample.html	
@@ -0,0 +1,80 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">Combined Data Abstract Sample</p>
+
+<p>
+This sample shows the combined suite of the main <b>Data Abstract</b> features. 
+The sample consists of three parts, each of which is devoted to a particular set of features: 
+</p>
+<ul>
+<li>Business Processors and Business Rules,</li> 
+<li>Dynamic Select and Dynamic Where and</li> 
+<li>Union Tables.</li> 
+</ul>
+<p>Also, you have an opportunity to use the <b>Reduced Delta</b> feature concerning any of listed things.</p>
+
+<ul>
+<li>
+On the first tab you can test custom business rules, which were specified on the server side. 
+You should try to violate these rules and see how the <b>deltas</b> are processed. 
+All details concerning the processing of a particular delta can be found in the log on the server main form. 
+You can see the content of each delta sent to the server.<br/> 
+You can choose how to show this violation: "Show Reconcile", "Raise Exception", "Both" or "None".
+</li>
+<li>
+On the second tab you can appraise how to decrease network traffic and server load, using the <b>Dynamic Select</b> feature 
+and retrieving only needed columns. Notice that when you use the <b>Dynamic Select</b> feature the 
+"Send Reduced Delta" option will be forced to ON. This page also illustrates the use of <b>Dynamic Where</b> to submit 
+secure where clauses to the server in order to filter records fetched by the client.
+</li>
+<li>
+The third tab shows the Union tables feature, that uses <b>Unions</b> defined in the server's Schema to fetch 
+data from several tables in the back-end database that is seamlessly combined and available to the client as a unified data table.
+</li>
+</ul>
+
+<p class="h2">Examine the code</p>
+<ul>
+<li>
+In order to see how Business Rules are implemented, please review code on the server side.<br/> 
+See the <b>TDASampleService.bpBPClientsBeforeProcessChange</b> event handler. 
+Notice that if your change does not correspond to a certain rule we just raise an exception in this handler. 
+Review what parameters are passed to the handler.
+</li>
+<li>
+Examine <b>TClientForm.btLoadProductsClick</b> and <b>TClientForm.btApplyChangesProductsClick</b> to see how 
+<b>Dynamic Where</b> and <b>Dynamic Select</b> features are used there.
+</li>
+<li>
+Take a look at the <b>TClientForm.btLoadAddressesClick</b> and <b>TClientForm.btApplyChangesAddressesClick</b> methods 
+to see how the union tables data is loaded and updated.
+</li>
+</ul>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Run the Sample Server.</li> 
+<li>Run the Combined Sample.</li>  
+<li>
+On the first tab, try to load data and edit it so that it violates business rules and see how it will be processed. 
+See the log on the server main form where you can try different Failure Behavior modes of the RemoteDataAdapter.
+</li>
+<li>
+On the second tab, load and edit data. Examine the server log to see the commands performed on the server to process this changes, 
+using <b>Dynamic Where</b>, <b>Dynamic Select</b> and <b>Reduced Delta</b> features.
+</li> 
+<li>
+Try to fill Addresses on the third tab that are represented as <b>Union table</b>, change some records, 
+apply changes to the server using the Update button. 
+Examine the Sql command used to load and update data (in the server log).
+</li>
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.dpr
new file mode 100644
index 0000000..43c2b57
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.dpr	
@@ -0,0 +1,18 @@
+program CombinedSample;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.dproj
new file mode 100644
index 0000000..6fd3314
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.dproj	
@@ -0,0 +1,89 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{9757322f-3cdd-49f2-beb1-cec1900c9a44}</ProjectGuid>
+    <MainSource>CombinedSample.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>CombinedSample.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">CombinedSample.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="CombinedSample.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="fClientDataModule.pas">
+      <Form>ClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/CombinedSample.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..65e7e3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientDataModule.dfm
new file mode 100644
index 0000000..26cbf88
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientDataModule.dfm	
@@ -0,0 +1,356 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Height = 397
+  Width = 329
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    DispatchOptions = []
+    ServerLocators = <>
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object drLoginRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Login'
+    Params = <
+      item
+        Name = 'aPlatform'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'PlatformEnum'
+        Value = Null
+      end
+      item
+        Name = 'aName'
+        DataType = rtWidestring
+        Flag = fIn
+      end>
+    Left = 40
+    Top = 232
+  end
+  object tbl_BPClients: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'Id'
+        DataType = datString
+        Size = 38
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'Name'
+        DataType = datWideString
+        Size = 120
+        Required = True
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 50
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 255
+      end
+      item
+        Name = 'Remarks'
+        DataType = datWideMemo
+      end
+      item
+        Name = 'Discount'
+        DataType = datFloat
+        Required = True
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    OnNewRecord = tbl_BPClientsNewRecord
+    LogicalName = 'BPClients'
+    IndexDefs = <>
+    Left = 120
+    Top = 8
+  end
+  object ds_BPClients: TDADataSource
+    DataSet = tbl_BPClients.Dataset
+    DataTable = tbl_BPClients
+    Left = 208
+    Top = 8
+  end
+  object tbl_OrderDetails: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'DetailId'
+        DataType = datAutoInc
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'Order'
+        DataType = datInteger
+        Required = True
+      end
+      item
+        Name = 'Product'
+        DataType = datString
+        Size = 38
+        Required = True
+      end
+      item
+        Name = 'Provider'
+        DataType = datString
+        Size = 38
+        Required = True
+      end
+      item
+        Name = 'Quantity'
+        DataType = datFloat
+        Required = True
+      end
+      item
+        Name = 'Price'
+        DataType = datDecimal
+        Required = True
+      end
+      item
+        Name = 'Total'
+        DataType = datDecimal
+        LogChanges = False
+        Required = True
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    MasterSource = ds_Orders
+    MasterFields = 'OrderId'
+    DetailFields = 'Order'
+    LogicalName = 'OrderDetails'
+    IndexDefs = <>
+    Left = 120
+    Top = 104
+  end
+  object ds_OrderDetails: TDADataSource
+    DataSet = tbl_OrderDetails.Dataset
+    DataTable = tbl_OrderDetails
+    Left = 208
+    Top = 104
+  end
+  object tbl_Orders: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderId'
+        DataType = datAutoInc
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+        Required = True
+      end
+      item
+        Name = 'OrderStatus'
+        DataType = datByte
+        Required = True
+      end
+      item
+        Name = 'Client'
+        DataType = datString
+        Size = 38
+        Required = True
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    MasterSource = ds_BPClients
+    MasterFields = 'Id'
+    DetailFields = 'Client'
+    LogicalName = 'Orders'
+    IndexDefs = <>
+    Left = 120
+    Top = 56
+  end
+  object ds_Orders: TDADataSource
+    DataSet = tbl_Orders.Dataset
+    DataTable = tbl_Orders
+    Left = 208
+    Top = 56
+  end
+  object tbl_Groups: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'GroupId'
+        DataType = datInteger
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'GroupName'
+        DataType = datWideString
+        Size = 120
+        Required = True
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'Groups'
+    IndexDefs = <>
+    Left = 120
+    Top = 152
+  end
+  object ds_Groups: TDADataSource
+    DataSet = tbl_Groups.Dataset
+    DataTable = tbl_Groups
+    Left = 208
+    Top = 152
+  end
+  object tbl_Products: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ProductId'
+        DataType = datWideString
+        Size = 38
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ProductGroup'
+        DataType = datInteger
+        Required = True
+      end
+      item
+        Name = 'ProductCode'
+        DataType = datString
+        Size = 50
+        Required = True
+      end
+      item
+        Name = 'ProductName'
+        DataType = datWideString
+        Size = 255
+        Required = True
+      end
+      item
+        Name = 'ProductWarranty'
+        DataType = datByte
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    OnNewRecord = tbl_ProductsNewRecord
+    LogicalName = 'Products'
+    IndexDefs = <>
+    Left = 120
+    Top = 200
+  end
+  object ds_Products: TDADataSource
+    DataSet = tbl_Products.Dataset
+    DataTable = tbl_Products
+    Left = 208
+    Top = 200
+  end
+  object tbl_SelectedGroup: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    MaxRecords = 1
+    Fields = <
+      item
+        Name = 'GroupId'
+        DataType = datInteger
+        OnChange = tbl_SelectedGroupGroupIdChange
+      end>
+    Params = <>
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'Groups'
+    IndexDefs = <>
+    Left = 120
+    Top = 248
+  end
+  object ds_SelectedGroup: TDADataSource
+    DataSet = tbl_SelectedGroup.Dataset
+    DataTable = tbl_SelectedGroup
+    Left = 216
+    Top = 248
+  end
+  object tbl_UnionAddresses: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'Id'
+        DataType = datWideString
+        Size = 38
+        InPrimaryKey = True
+      end
+      item
+        Name = 'Name'
+        DataType = datWideString
+        Size = 120
+      end
+      item
+        Name = 'ContactPhone'
+        DataType = datWideString
+        Size = 50
+      end
+      item
+        Name = 'ContactAddress'
+        DataType = datWideString
+        Size = 255
+      end
+      item
+        Name = '@SourceTable'
+        DataType = datInteger
+        ServerAutoRefresh = True
+        InPrimaryKey = True
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    OnNewRecord = tbl_UnionAddressesNewRecord
+    LogicalName = 'UnionAddresses'
+    IndexDefs = <>
+    Left = 120
+    Top = 304
+  end
+  object ds_UnionAddresses: TDADataSource
+    DataSet = tbl_UnionAddresses.Dataset
+    DataTable = tbl_UnionAddresses
+    Left = 216
+    Top = 304
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientDataModule.pas
new file mode 100644
index 0000000..fc15785
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientDataModule.pas	
@@ -0,0 +1,104 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest,
+  uDADataAdapter, uROClasses;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    drLoginRequest: TRODynamicRequest;
+    tbl_BPClients: TDAMemDataTable;
+    ds_BPClients: TDADataSource;
+    tbl_OrderDetails: TDAMemDataTable;
+    ds_OrderDetails: TDADataSource;
+    tbl_Orders: TDAMemDataTable;
+    ds_Orders: TDADataSource;
+    tbl_Groups: TDAMemDataTable;
+    ds_Groups: TDADataSource;
+    tbl_Products: TDAMemDataTable;
+    ds_Products: TDADataSource;
+    tbl_SelectedGroup: TDAMemDataTable;
+    ds_SelectedGroup: TDADataSource;
+    tbl_UnionAddresses: TDAMemDataTable;
+    ds_UnionAddresses: TDADataSource;
+    procedure tbl_SelectedGroupGroupIdChange(Sender: TDACustomField);
+    procedure tbl_BPClientsNewRecord(DataTable: TDADataTable);
+    procedure tbl_ProductsNewRecord(DataTable: TDADataTable);
+    procedure tbl_UnionAddressesNewRecord(DataTable: TDADataTable);
+  private
+    { Private declarations }
+    fOnSelectedGroupChange: TNotifyEvent;
+  public
+    { Public declarations }
+    procedure Login;
+  published
+    property OnSelectedGroupChange: TNotifyEvent read fOnSelectedGroupChange write fOnSelectedGroupChange;
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+uses DASampleLibrary_Intf;
+
+{ TClientDataModule }
+
+procedure TClientDataModule.Login;
+begin
+  with drLoginRequest do begin
+    {$IFNDEF FPC}
+    Params[0].Value := PlatformEnum_peWindowsDelphi;
+    {$ELSE}
+      {$IFDEF WINDOWS}
+      Params[0].Value := PlatformEnum_peWindowsFPC;
+      {$ELSE}
+        {$IFDEF LINUX}
+        Params[0].Value := PlatformEnum_peLinuxFPC;
+        {$ELSE}
+        Params[0].Value := PlatformEnum_peUnknown;
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+    Params[1].Value := 'Combined DA Sample';
+    Execute(Params);
+  end;
+end;
+
+procedure TClientDataModule.tbl_BPClientsNewRecord(DataTable: TDADataTable);
+begin
+  DataTable.FieldByName('Id').AsString := NewGuidAsString();
+end;
+
+procedure TClientDataModule.tbl_ProductsNewRecord(DataTable: TDADataTable);
+begin
+  DataTable.FieldByName('ProductId').AsString := NewGuidAsString();
+  DataTable.FieldByName('ProductGroup').AsInteger := tbl_SelectedGroup.FieldByName('GroupId').AsInteger;
+end;
+
+procedure TClientDataModule.tbl_SelectedGroupGroupIdChange(
+  Sender: TDACustomField);
+begin
+  if Assigned(fOnSelectedGroupChange)
+  then fOnSelectedGroupChange(Sender);
+end;
+
+procedure TClientDataModule.tbl_UnionAddressesNewRecord(
+  DataTable: TDADataTable);
+begin
+  DataTable.FieldByName('Id').AsString := NewGuidAsString();
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientForm.dfm
new file mode 100644
index 0000000..0d59354
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientForm.dfm	
@@ -0,0 +1,542 @@
+object ClientForm: TClientForm
+  Left = 85
+  Top = 158
+  Width = 746
+  Height = 642
+  Caption = 'Combined DA Sample'
+  Color = clBtnFace
+  Constraints.MaxWidth = 746
+  Constraints.MinWidth = 746
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 730
+    Height = 57
+    Align = alTop
+    TabOrder = 0
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 0
+      Top = 0
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+    end
+    object rgFailureBehavior: TRadioGroup
+      Left = 218
+      Top = 0
+      Width = 399
+      Height = 48
+      Caption = 'Failure behavior'
+      Columns = 4
+      ItemIndex = 0
+      Items.Strings = (
+        'Show Reconcile'
+        'Raise exception'
+        'Both'
+        'None')
+      TabOrder = 0
+    end
+    object rgReducedDelta: TRadioGroup
+      Left = 623
+      Top = 0
+      Width = 98
+      Height = 48
+      Caption = 'Reduced deltas'
+      Columns = 2
+      ItemIndex = 0
+      Items.Strings = (
+        'Yes'
+        'No')
+      TabOrder = 1
+    end
+  end
+  object pcSamples: TPageControl
+    Left = 0
+    Top = 57
+    Width = 730
+    Height = 549
+    ActivePage = tsClientsOrders
+    Align = alClient
+    TabOrder = 1
+    OnChange = pcSamplesChange
+    object tsClientsOrders: TTabSheet
+      Caption = 'Clients and Orders [Business rules]'
+      object Label2: TLabel
+        Left = 0
+        Top = 105
+        Width = 722
+        Height = 13
+        Align = alTop
+        Caption = '  Clients:'
+      end
+      object Splitter1: TSplitter
+        Left = 0
+        Top = 289
+        Width = 722
+        Height = 5
+        Cursor = crVSplit
+        Align = alTop
+      end
+      object Panel2: TPanel
+        Left = 0
+        Top = 0
+        Width = 722
+        Height = 105
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+        object Label1: TLabel
+          Left = 0
+          Top = 0
+          Width = 414
+          Height = 13
+          Caption = 
+            'This page shows using "Business Rules"and " Failure Behaviour" f' +
+            'eatures '
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Memo1: TMemo
+          Left = 0
+          Top = 19
+          Width = 414
+          Height = 54
+          TabStop = False
+          BorderStyle = bsNone
+          Color = clBtnFace
+          Lines.Strings = (
+            'There are three custom business rules on the table "Clients"'
+            '1. Deleting any client is not allowed.'
+            '2. Value of the Client.Discount field cannot be negative.'
+            '3. Value of the Client.Discount field cannot be greater than 50.')
+          ReadOnly = True
+          TabOrder = 0
+        end
+        object btLoadCustomersOrders: TButton
+          Left = 619
+          Top = 8
+          Width = 98
+          Height = 25
+          Caption = 'Load Data'
+          TabOrder = 1
+          OnClick = btLoadCustomersOrdersClick
+        end
+        object btDeleteCustomer: TButton
+          Left = 619
+          Top = 39
+          Width = 98
+          Height = 25
+          Caption = 'Delete Customer'
+          TabOrder = 2
+          OnClick = btDeleteCustomerClick
+        end
+        object btApplyChangesCustomers: TButton
+          Left = 619
+          Top = 70
+          Width = 98
+          Height = 25
+          Caption = 'Apply Changes'
+          TabOrder = 3
+          OnClick = btApplyChangesCustomersClick
+        end
+      end
+      object dgClients: TDBGrid
+        Left = 0
+        Top = 118
+        Width = 722
+        Height = 171
+        Align = alTop
+        DataSource = ClientDataModule.ds_BPClients
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'Name'
+            Width = 285
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Phone'
+            Width = 101
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Discount'
+            Width = 79
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Remarks'
+            Width = 238
+            Visible = True
+          end>
+      end
+      object Panel3: TPanel
+        Left = 0
+        Top = 294
+        Width = 722
+        Height = 227
+        Align = alClient
+        BevelOuter = bvNone
+        TabOrder = 2
+        object Splitter2: TSplitter
+          Left = 313
+          Top = 0
+          Width = 5
+          Height = 227
+        end
+        object Panel4: TPanel
+          Left = 318
+          Top = 0
+          Width = 404
+          Height = 227
+          Align = alClient
+          BevelOuter = bvNone
+          TabOrder = 0
+          object Label3: TLabel
+            Left = 0
+            Top = 0
+            Width = 404
+            Height = 13
+            Align = alTop
+            Caption = '  Order details:'
+          end
+          object dgOrderDetails: TDBGrid
+            Left = 0
+            Top = 13
+            Width = 404
+            Height = 214
+            Align = alClient
+            DataSource = ClientDataModule.ds_OrderDetails
+            TabOrder = 0
+            TitleFont.Charset = DEFAULT_CHARSET
+            TitleFont.Color = clWindowText
+            TitleFont.Height = -11
+            TitleFont.Name = 'MS Sans Serif'
+            TitleFont.Style = []
+            Columns = <
+              item
+                Expanded = False
+                FieldName = 'Product'
+                Width = 256
+                Visible = True
+              end
+              item
+                Expanded = False
+                FieldName = 'Price'
+                Visible = True
+              end
+              item
+                Expanded = False
+                FieldName = 'Total'
+                Visible = True
+              end>
+          end
+        end
+        object Panel5: TPanel
+          Left = 0
+          Top = 0
+          Width = 313
+          Height = 227
+          Align = alLeft
+          BevelOuter = bvNone
+          TabOrder = 1
+          object Label4: TLabel
+            Left = 0
+            Top = 0
+            Width = 313
+            Height = 13
+            Align = alTop
+            Caption = '  Orders:'
+          end
+          object dgOrders: TDBGrid
+            Left = 0
+            Top = 13
+            Width = 313
+            Height = 214
+            Align = alClient
+            DataSource = ClientDataModule.ds_Orders
+            TabOrder = 0
+            TitleFont.Charset = DEFAULT_CHARSET
+            TitleFont.Color = clWindowText
+            TitleFont.Height = -11
+            TitleFont.Name = 'MS Sans Serif'
+            TitleFont.Style = []
+            Columns = <
+              item
+                Expanded = False
+                FieldName = 'OrderDate'
+                Width = 126
+                Visible = True
+              end
+              item
+                Expanded = False
+                FieldName = 'OrderStatus'
+                Width = 97
+                Visible = True
+              end>
+          end
+        end
+      end
+    end
+    object tsProducts: TTabSheet
+      Caption = 'Products [Dynamic Select and Where]'
+      ImageIndex = 1
+      object Label6: TLabel
+        Left = 0
+        Top = 73
+        Width = 722
+        Height = 13
+        Align = alTop
+        Caption = '  Groups:'
+      end
+      object Label7: TLabel
+        Left = 0
+        Top = 121
+        Width = 722
+        Height = 13
+        Align = alTop
+        Caption = '  Products:'
+      end
+      object Panel6: TPanel
+        Left = 0
+        Top = 0
+        Width = 722
+        Height = 73
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+        object Label5: TLabel
+          Left = 0
+          Top = 0
+          Width = 376
+          Height = 13
+          Caption = 'This page shows "Dynamic Select" and "Dynamic Where" features.'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Memo2: TMemo
+          Left = 0
+          Top = 19
+          Width = 414
+          Height = 54
+          TabStop = False
+          BorderStyle = bsNone
+          Color = clBtnFace
+          Lines.Strings = (
+            
+              'Please notice that when we use "Dynamic Select" feature then "Se' +
+              'nd Reduced Delta" '
+            'option will be forced to ON')
+          ReadOnly = True
+          TabOrder = 0
+        end
+        object btLoadProducts: TButton
+          Left = 619
+          Top = 8
+          Width = 98
+          Height = 25
+          Caption = 'Load Data'
+          TabOrder = 1
+          OnClick = btLoadProductsClick
+        end
+        object btApplyChangesProducts: TButton
+          Left = 619
+          Top = 39
+          Width = 98
+          Height = 25
+          Caption = 'Apply Changes'
+          TabOrder = 2
+          OnClick = btApplyChangesProductsClick
+        end
+      end
+      object dgProducts: TDBGrid
+        Left = 0
+        Top = 134
+        Width = 722
+        Height = 387
+        Align = alClient
+        DataSource = ClientDataModule.ds_Products
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'ProductCode'
+            Width = 144
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'ProductName'
+            Width = 452
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'ProductWarranty'
+            Width = 105
+            Visible = True
+          end>
+      end
+      object Panel8: TPanel
+        Left = 0
+        Top = 86
+        Width = 722
+        Height = 35
+        Align = alTop
+        BevelOuter = bvNone
+        Caption = 'Panel8'
+        TabOrder = 2
+        DesignSize = (
+          722
+          35)
+        object cbGroups: TDBLookupComboBox
+          Left = 0
+          Top = 4
+          Width = 722
+          Height = 21
+          Anchors = [akLeft, akTop, akRight, akBottom]
+          DataField = 'GroupId'
+          DataSource = ClientDataModule.ds_SelectedGroup
+          KeyField = 'GroupId'
+          ListField = 'GroupName'
+          ListFieldIndex = 1
+          ListSource = ClientDataModule.ds_Groups
+          TabOrder = 0
+          OnCloseUp = cbGroupsCloseUp
+        end
+      end
+    end
+    object tsAddress: TTabSheet
+      Caption = 'Address book [Union Tables]'
+      ImageIndex = 2
+      object Panel7: TPanel
+        Left = 0
+        Top = 0
+        Width = 722
+        Height = 73
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+        object Label8: TLabel
+          Left = 0
+          Top = 0
+          Width = 230
+          Height = 13
+          Caption = 'This page shows "Union Table" feature.   '
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Memo3: TMemo
+          Left = 0
+          Top = 19
+          Width = 414
+          Height = 54
+          TabStop = False
+          BorderStyle = bsNone
+          Color = clBtnFace
+          Lines.Strings = (
+            'Notice that records with category'
+            '0 - from "Clients" table'
+            '1 - from "Suppliers" table')
+          ReadOnly = True
+          TabOrder = 0
+        end
+        object btLoadAddresses: TButton
+          Left = 619
+          Top = 8
+          Width = 98
+          Height = 25
+          Caption = 'Load Data'
+          TabOrder = 1
+          OnClick = btLoadAddressesClick
+        end
+        object btApplyChangesAddresses: TButton
+          Left = 619
+          Top = 39
+          Width = 98
+          Height = 25
+          Caption = 'Apply Changes'
+          TabOrder = 2
+          OnClick = btApplyChangesAddressesClick
+        end
+      end
+      object dgAddresses: TDBGrid
+        Left = 0
+        Top = 73
+        Width = 722
+        Height = 448
+        Align = alClient
+        DataSource = ClientDataModule.ds_UnionAddresses
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'Id'
+            Width = 148
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'Name'
+            Width = 223
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'ContactPhone'
+            Width = 96
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'ContactAddress'
+            Width = 169
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = '@SourceTable'
+            Title.Caption = 'Category'
+            Visible = True
+          end>
+      end
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientForm.pas
new file mode 100644
index 0000000..9abb91e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientForm.pas	
@@ -0,0 +1,218 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ExtCtrls,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ComCtrls, Grids,
+  DBGrids, DBCtrls, uDADataTable, uDAInterfaces, uDADataAdapter;
+
+type
+  TClientForm = class(TForm)
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    rgFailureBehavior: TRadioGroup;
+    rgReducedDelta: TRadioGroup;
+    pcSamples: TPageControl;
+    tsClientsOrders: TTabSheet;
+    tsProducts: TTabSheet;
+    tsAddress: TTabSheet;
+    Panel2: TPanel;
+    Label1: TLabel;
+    Memo1: TMemo;
+    btLoadCustomersOrders: TButton;
+    btDeleteCustomer: TButton;
+    btApplyChangesCustomers: TButton;
+    Label2: TLabel;
+    dgClients: TDBGrid;
+    Splitter1: TSplitter;
+    Panel3: TPanel;
+    Panel4: TPanel;
+    Splitter2: TSplitter;
+    dgOrderDetails: TDBGrid;
+    Label3: TLabel;
+    Panel5: TPanel;
+    Label4: TLabel;
+    dgOrders: TDBGrid;
+    Panel6: TPanel;
+    Label5: TLabel;
+    Memo2: TMemo;
+    btLoadProducts: TButton;
+    btApplyChangesProducts: TButton;
+    Label6: TLabel;
+    dgProducts: TDBGrid;
+    Label7: TLabel;
+    Panel7: TPanel;
+    Label8: TLabel;
+    Memo3: TMemo;
+    btLoadAddresses: TButton;
+    btApplyChangesAddresses: TButton;
+    dgAddresses: TDBGrid;
+    Panel8: TPanel;
+    cbGroups: TDBLookupComboBox;
+    procedure FormCreate(Sender: TObject);
+    procedure btLoadCustomersOrdersClick(Sender: TObject);
+    procedure btDeleteCustomerClick(Sender: TObject);
+    procedure btApplyChangesCustomersClick(Sender: TObject);
+    procedure pcSamplesChange(Sender: TObject);
+    procedure btLoadProductsClick(Sender: TObject);
+    procedure btApplyChangesProductsClick(Sender: TObject);
+    procedure btLoadAddressesClick(Sender: TObject);
+    procedure btApplyChangesAddressesClick(Sender: TObject);
+    procedure cbGroupsCloseUp(Sender: TObject);
+  private
+    { Private declarations }
+    procedure AdjustBehavior;
+    procedure HandleUpdate(const aTables: array of TDADataTable);
+    procedure SelectedGroupChanged(Sender: TObject);
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fClientDataModule, DB;
+
+{$R *.dfm}
+
+procedure TClientForm.AdjustBehavior;
+begin
+  with ClientDataModule do begin
+    case rgFailureBehavior.ItemIndex of
+    0: RemoteDataAdapter.FailureBehavior := fbShowReconcile;
+    1: RemoteDataAdapter.FailureBehavior := fbRaiseException; 
+    2: RemoteDataAdapter.FailureBehavior := fbBoth;
+    3: RemoteDataAdapter.FailureBehavior := fbNone;
+    end;
+
+    if rgReducedDelta.ItemIndex = 0 then begin
+      RemoteDataAdapter.DynamicSelect := True;
+      DataStreamer.SendReducedDelta := True;
+    end
+    else begin
+      RemoteDataAdapter.DynamicSelect := False;
+      DataStreamer.SendReducedDelta := False;
+    end;
+  end;
+end;
+
+procedure TClientForm.btApplyChangesAddressesClick(Sender: TObject);
+begin
+  AdjustBehavior;
+  HandleUpdate([ClientDataModule.tbl_UnionAddresses]);
+end;
+
+procedure TClientForm.btApplyChangesCustomersClick(Sender: TObject);
+begin
+  AdjustBehavior;
+  with ClientDataModule do
+    HandleUpdate([tbl_BPClients]);
+end;
+
+procedure TClientForm.btApplyChangesProductsClick(Sender: TObject);
+begin
+  AdjustBehavior;
+  with ClientDataModule do HandleUpdate([tbl_Products]);
+end;
+
+procedure TClientForm.btDeleteCustomerClick(Sender: TObject);
+begin
+  with ClientDataModule do
+    if tbl_BPClients.RecordCount > 0
+    then tbl_BPClients.Delete;
+end;
+
+procedure TClientForm.btLoadAddressesClick(Sender: TObject);
+begin
+  AdjustBehavior;
+  with ClientDataModule do begin
+    tbl_UnionAddresses.ClearRows(true);
+    RemoteDataAdapter.Fill([tbl_UnionAddresses]);
+  end;
+end;
+
+procedure TClientForm.btLoadCustomersOrdersClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    if tbl_BPClients.Active then tbl_BPClients.Close;
+    tbl_BPClients.Open;
+  end;
+end;
+
+procedure TClientForm.btLoadProductsClick(Sender: TObject);
+begin
+  AdjustBehavior;
+  with ClientDataModule do begin
+    tbl_SelectedGroup.ClearRows(true);
+    tbl_Products.ClearRows(true);
+    tbl_Groups.ClearRows(true);
+    RemoteDataAdapter.Fill([tbl_SelectedGroup]);
+    RemoteDataAdapter.Fill([tbl_Groups]);
+  end;
+  SelectedGroupChanged(nil);
+end;
+
+procedure TClientForm.FormCreate(Sender: TObject);
+begin
+  // TODO: until DynamicRequest bug fixed
+  //ClientDataModule.Login;
+  Application.Title := ClientForm.Caption;
+  pcSamples.ActivePageIndex := 0;
+  ClientDataModule.OnSelectedGroupChange := SelectedGroupChanged;
+end;
+
+procedure TClientForm.HandleUpdate(const aTables: array of TDADataTable);
+var i: integer;
+begin
+  try
+    for i := Low(aTables) to High(aTables) do
+      if aTables[i].State <> dsBrowse then aTables[i].Post;
+    ClientDataModule.RemoteDataAdapter.ApplyUpdates(aTables);
+  except
+    on E: Exception do ShowMessage('Exception raised: ' + E.Message);
+  end;
+end;
+
+procedure TClientForm.pcSamplesChange(Sender: TObject);
+begin
+  case pcSamples.ActivePageIndex of
+    1: begin
+        rgReducedDelta.ItemIndex := 0;
+        rgReducedDelta.Enabled := false;
+       end;
+    2: begin
+        rgReducedDelta.ItemIndex := 1;
+        rgReducedDelta.Enabled := false;
+       end;
+    else rgReducedDelta.Enabled := true;
+  end;
+end;
+
+procedure TClientForm.SelectedGroupChanged(Sender: TObject);
+var
+  wb: TDAWhereBuilder;
+  expArray: array of TDAWhereExpression;
+begin
+  wb := TDAWhereBuilder.Create;
+  with wb, ClientDataModule do begin
+    Expression := NewBinaryExpression(tbl_Products.LogicalName, 'ProductGroup', dboEqual,
+      tbl_SelectedGroup.FieldValues[0], datInteger);
+    tbl_Products.ClearRows(true);
+    SetLength(expArray, 1);
+    expArray[0] := Expression;
+    RemoteDataAdapter.Fill([tbl_Products], expArray);
+  end;
+  wb.Free;
+end;
+
+procedure TClientForm.cbGroupsCloseUp(Sender: TObject);
+begin
+  SelectedGroupChanged(Sender);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.Sample.html
new file mode 100644
index 0000000..2f39543
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.Sample.html	
@@ -0,0 +1,37 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">DA SQL Sample</p>
+
+<p>
+<b><font color="red">NOTICE</font></b><br/>
+This sample can be successfully executed against .NET Data Abstract server only. 
+DA SQL feature is not supported for Delphi Data Abstract servers yet!
+</p>
+
+<p>
+This sample shows how DA SQL works in general. It has a set of predefined SQL statements, that you can load, execute and see the results. 
+You can see each statement in the "SQL Statement" box. You can also change any predefined SQLs or write your custom one and execute it.
+</p>
+
+<p class="h2">Examine the code</p>
+<p>
+The code is quite simple.<br /> 
+We are using a structure called <b>TableRequestInfoV6</b>. It has property "SQL" that will hold our SQL statement. 
+So, look at the <b>TClientForm.btExecuteClick</b> event handler in the client form, 
+where you can find out how we send SQL statement and get the result back.</p>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Run the Sample Server. .NET one please!</li> 
+<li>Run the DA SQL Client.</li> 
+<li>Select any predefined SQL statement in the tree view, then try to execute it.</li>
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.dpr
new file mode 100644
index 0000000..e4edcc2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.dpr	
@@ -0,0 +1,19 @@
+program DASQL;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  uStatement in 'uStatement.pas',
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.dproj
new file mode 100644
index 0000000..6e3d7f7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.dproj	
@@ -0,0 +1,90 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{cf30d2fd-373d-464c-823f-3b540ba36042}</ProjectGuid>
+    <MainSource>DASQL.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DASQL.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">DASQL.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DASQL.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="fClientDataModule.pas">
+      <Form>ClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+    <DCCReference Include="uStatement.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASQL.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..65e7e3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientDataModule.dfm
new file mode 100644
index 0000000..e5e7934
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientDataModule.dfm	
@@ -0,0 +1,77 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 204
+  Top = 209
+  Height = 340
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    DataStreamer = DataStreamer
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    Left = 40
+    Top = 184
+  end
+  object tblQueryResults: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    IndexDefs = <>
+    Left = 128
+    Top = 8
+  end
+  object dsQueryResults: TDADataSource
+    DataSet = tblQueryResults.Dataset
+    DataTable = tblQueryResults
+    Left = 128
+    Top = 56
+  end
+  object drLoginRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Login'
+    Params = <
+      item
+        Name = 'aPlatform'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'PlatformEnum'
+        Value = Null
+      end
+      item
+        Name = 'aName'
+        DataType = rtWidestring
+        Flag = fIn
+      end>
+    Left = 40
+    Top = 232
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientDataModule.pas
new file mode 100644
index 0000000..3bd8a39
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientDataModule.pas	
@@ -0,0 +1,60 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tblQueryResults: TDAMemDataTable;
+    dsQueryResults: TDADataSource;
+    drLoginRequest: TRODynamicRequest;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure Login;
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+uses DASampleLibrary_Intf;
+
+{ TClientDataModule }
+
+procedure TClientDataModule.Login;
+begin
+  with drLoginRequest do begin
+    {$IFNDEF FPC}
+    Params[0].Value := PlatformEnum_peWindowsDelphi;
+    {$ELSE}
+      {$IFDEF WINDOWS}
+      Params[0].Value := PlatformEnum_peWindowsFPC;
+      {$ELSE}
+        {$IFDEF LINUX}
+        Params[0].Value := PlatformEnum_peLinuxFPC;
+        {$ELSE}
+        Params[0].Value := PlatformEnum_peUnknown;
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+    Params[1].Value := 'DASQL Client';
+    Execute(Params);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientForm.dfm
new file mode 100644
index 0000000..19d2d2f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientForm.dfm	
@@ -0,0 +1,130 @@
+object ClientForm: TClientForm
+  Left = 79
+  Top = 249
+  Width = 800
+  Height = 499
+  Caption = 'DA SQL Sample'
+  Color = clBtnFace
+  Constraints.MinHeight = 355
+  Constraints.MinWidth = 400
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 249
+    Width = 784
+    Height = 5
+    Cursor = crVSplit
+    Align = alTop
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 784
+    Height = 49
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 0
+      Top = 0
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+    end
+    object btExecute: TButton
+      Left = 218
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = '&Execute'
+      TabOrder = 0
+      OnClick = btExecuteClick
+    end
+    object btClear: TButton
+      Left = 299
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = 'C&lear'
+      TabOrder = 1
+      OnClick = btClearClick
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 49
+    Width = 784
+    Height = 200
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 1
+    object Splitter2: TSplitter
+      Left = 257
+      Top = 0
+      Width = 5
+      Height = 200
+    end
+    object tvTemplates: TTreeView
+      Left = 0
+      Top = 0
+      Width = 257
+      Height = 200
+      Align = alLeft
+      HideSelection = False
+      Indent = 19
+      RowSelect = True
+      TabOrder = 0
+      OnChange = tvTemplatesChange
+    end
+    object Panel3: TPanel
+      Left = 262
+      Top = 0
+      Width = 522
+      Height = 200
+      Align = alClient
+      BevelOuter = bvNone
+      TabOrder = 1
+      object edQuery: TMemo
+        Left = 0
+        Top = 43
+        Width = 522
+        Height = 157
+        Align = alClient
+        ScrollBars = ssBoth
+        TabOrder = 0
+        WordWrap = False
+      end
+      object edDescription: TMemo
+        Left = 0
+        Top = 0
+        Width = 522
+        Height = 43
+        TabStop = False
+        Align = alTop
+        BorderStyle = bsNone
+        Color = clBtnFace
+        ReadOnly = True
+        TabOrder = 1
+      end
+    end
+  end
+  object dgResults: TDBGrid
+    Left = 0
+    Top = 254
+    Width = 784
+    Height = 209
+    Align = alClient
+    DataSource = ClientDataModule.dsQueryResults
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientForm.pas
new file mode 100644
index 0000000..cd5590c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/fClientForm.pas	
@@ -0,0 +1,242 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, Grids, DBGrids,
+  ExtCtrls, uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton,
+  ComCtrls;
+
+type
+  TClientForm = class(TForm)
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    btExecute: TButton;
+    btClear: TButton;
+    Panel2: TPanel;
+    Splitter1: TSplitter;
+    dgResults: TDBGrid;
+    tvTemplates: TTreeView;
+    Splitter2: TSplitter;
+    Panel3: TPanel;
+    edQuery: TMemo;
+    edDescription: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure tvTemplatesChange(Sender: TObject; Node: TTreeNode);
+    procedure btClearClick(Sender: TObject);
+    procedure btExecuteClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  StrUtils, fClientDataModule, uStatement, DataAbstract4_Intf;
+  
+{$R *.dfm}
+
+procedure TClientForm.btClearClick(Sender: TObject);
+begin
+  edQuery.Clear;
+  if (ClientDataModule.tblQueryResults.Active) then
+    ClientDataModule.tblQueryResults.Close;
+end;
+
+procedure TClientForm.btExecuteClick(Sender: TObject);
+var
+  tri: TableRequestInfoV6;
+  triArr: array of TableRequestInfo;
+begin
+  if Trim(edQuery.Text) = '' then begin
+    ShowMessage('The query is empty. Please select one of the query templates or write your own.');
+    exit;
+  end;
+
+  tri := TableRequestInfoV6.Create();
+  with tri do begin
+    Sql := edQuery.Text;
+    IncludeSchema := true;
+    MaxRecords := 1000;
+  end;
+
+  try
+    with ClientDataModule do begin
+      tblQueryResults.ClearRows(true);
+      dgResults.Columns.Clear;
+      SetLength(triArr, 1);
+      triArr[0] := tri;
+      RemoteDataAdapter.Fill([tblQueryResults], triArr);
+    end;
+  except
+    on E: Exception do ShowMessage('Error executing query: ' + E.Message);
+  end;
+end;
+
+procedure TClientForm.FormCreate(Sender: TObject);
+var
+  r, n: TTreeNode;
+  s: TStatement;
+begin
+  Application.Title := ClientForm.Caption;
+  tvTemplates.Items.BeginUpdate;
+  r := tvTemplates.Items.Add(nil, '1.SELECT');
+    s := TStatement.Create(
+      'Simple select all fields (using *)',
+      'SELECT * FROM clients',
+      'Select all fields for all clients'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Simple select with specified fields',
+      'SELECT clientid, clientname, contactaddress '#13'FROM clients',
+      'Select several fields for clients'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+  r := tvTemplates.Items.Add(r, '2.WHERE');
+    s := TStatement.Create(
+      'IN (1, 2, .., n)',
+      'SELECT productid, productname FROM products '#13'WHERE productcode in (''ASUS.M2NE'', ''ASUS.M3A'', ''ASUS.M2NMXSEP'')',
+      'Select all product codes in the specified set'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Unary Condition',
+      'SELECT * '#13'FROM clients '#13'WHERE contactaddress IS NOT NULL',
+      'Select all clients that have address info'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Like Condition',
+      'SELECT * '#13'FROM clients '#13'WHERE clientname LIKE ''A%''',
+      'Like Condition'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+  r := tvTemplates.Items.Add(r, '3.JOINS');
+    s := TStatement.Create(
+      'With join condition in WHERE clause',
+      'SELECT p.productId, p.productname, p.productgroup, s.sellername '#13'FROM products p, sellers s '#13'WHERE s.sellerid = p.productseller '#13'AND p.productgroup = 46',
+      'Inner join sample'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Inner',
+      'SELECT p.productId, p.productname, p.productgroup, s.sellername '#13'FROM products p '#13'INNER JOIN sellers s on s.sellerid = p.productseller '#13'WHERE p.productgroup = 46',
+      'Inner join sample'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Left Outer',
+      'SELECT p.productId, p.productname, p.productgroup, s.sellername '#13'FROM products p '#13'LEFT OUTER JOIN sellers s on s.sellerid = p.productseller '#13'WHERE p.productgroup = 46',
+      'Left outer join sample'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Right Outer',
+      'SELECT p.productId, p.productname, p.productgroup, s.sellername '#13'FROM products p '#13'RIGHT OUTER JOIN sellers s on s.sellerid = p.productseller '#13'WHERE s.sellername in (''IBM'', ''MSI'', ''ASUS'')',
+      'Right outer join sample'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Inner on 3 Tables',
+      'SELECT c.clientid, c.clientname, o.orderdate, d.total '#13'FROM clients c '#13'INNER JOIN orders o on c.clientid = o.client '#13'INNER JOIN orderdetails d on o.orderid = d.[order] '#13'WHERE d.total > 5000',
+      'Inner Join on 3 tables'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+  r := tvTemplates.Items.Add(r, '4.ORDER BY');
+    s := TStatement.Create(
+      'Descending',
+      'SELECT * FROM clients '#13'ORDER BY clientname DESC',
+      'Select all clients order by their names descending'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Ascending',
+      'SELECT * FROM clients '#13'ORDER BY clientname ASC',
+      'Select all clients order by their names ascending'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'By field position',
+      'SELECT clientid, clientname FROM clients '#13'ORDER BY 2 DESC',
+      'Select all clients order by their names ascending'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Order by several fields',
+      'SELECT product, price, quantity, total '#13'FROM orderdetails '#13'ORDER BY price, provider DESC',
+      'Select all orders order by unit price and provider descending'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+
+    s := TStatement.Create(
+      'Order on joined tables',
+      'SELECT p.productid, p.productname, p.productgroup, s.sellername '#13'FROM products p '#13'INNER JOIN sellers s ON s.sellerid = p.productseller '#13'WHERE p.productgroup = 46 '#13'ORDER BY p.productname, s.sellername DESC',
+      'Select all orders order by id and unit price descending'
+    );
+    n := tvTemplates.Items.AddChild(r, s.Name);
+    n.Data := s;
+    tvTemplates.Items.EndUpdate;
+    // TODO: until bug in DynamicRequest fixed
+    //ClientDataModule.Login;
+end;
+
+procedure TClientForm.tvTemplatesChange(Sender: TObject; Node: TTreeNode);
+var
+  s: TStatement;
+  temp: string;
+  p: integer;
+begin
+  if Assigned(Node.Data) then begin
+    s := TStatement(Node.Data);
+    edDescription.Text := s.Description;
+    edQuery.Clear;
+    temp := s.SQL;
+    repeat
+      p := Pos(#13, temp);
+      if p > 0 then begin
+        edQuery.Lines.Append(LeftStr(temp, p - 1));
+        temp := RightStr(temp, Length(temp) - p);
+      end
+      else begin
+        edQuery.Lines.Append(temp);
+        temp := '';
+      end;
+    until temp = '';
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/uStatement.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/uStatement.pas
new file mode 100644
index 0000000..16e5590
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/DA SQL/uStatement.pas	
@@ -0,0 +1,30 @@
+unit uStatement;
+
+interface
+
+type
+  TStatement = class(TObject)
+  private
+    fName: string;
+    fSQL: string;
+    fDescription: string;
+  public
+    constructor Create(const aName, aSQL, aDescription: string);
+    property Name: string read fName;
+    property SQL: string read fSQL;
+    property Description: string read fDescription;
+  end;
+
+implementation
+
+{ TStatement }
+
+constructor TStatement.Create(const aName, aSQL, aDescription: string);
+begin
+  inherited Create;
+  fName := aName;
+  fSQL := aSQL;
+  fDescription := aDescription;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..65e7e3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.Sample.html
new file mode 100644
index 0000000..219b7de
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.Sample.html	
@@ -0,0 +1,36 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">Dynamic Select Sample</p>
+
+<p>
+The sample shows how to use the <b>Dynamic Select</b> feature to decrease network traffic and server load, retrieving only needed columns.
+</p>
+
+<p class="h2">Examine the code</p>
+<ul>
+<li>Take a look at the <b>TClientForm.btLoadClick</b> event handler to see how you can fill DataSet using the <b>Dynamic Select</b> feature.</li>
+<li>
+Look at the <b>TClientForm.btUpdateClick</b> event handler to see how updates of the local DataSet can be 
+applied to the back-end server database.<br/>
+Note that Update operation always uses the DynamicSelect mode of the previous Fill operation.
+</li>
+</ul>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Run the Sample Server.</li>
+<li>Run the Dynamic Select Sample.</li> 
+<li>Try to fill and update DataSet using the <b>Dynamic Select</b> feature.</li>
+<li>Look at the server log, to see the SQL command used on the server and estimate the amount of data sent to the client application.</li>
+<li>Try to fill and update DataSet not using the <b>Dynamic Select</b> feature.</li> 
+<li>Look at the server log again to see the amount of data sent to the client application by the server.</li>
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.dpr
new file mode 100644
index 0000000..4c646ea
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.dpr	
@@ -0,0 +1,18 @@
+program DynamicSelect;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.dproj
new file mode 100644
index 0000000..ed8c615
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.dproj	
@@ -0,0 +1,89 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c981bf78-dc31-4071-8566-968befd99da0}</ProjectGuid>
+    <MainSource>DynamicSelect.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DynamicSelect.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">DynamicSelect.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DynamicSelect.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="fClientDataModule.pas">
+      <Form>ClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/DynamicSelect.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientDataModule.dfm
new file mode 100644
index 0000000..fb84a66
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientDataModule.dfm	
@@ -0,0 +1,171 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 170
+  Top = 167
+  Height = 337
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    DataStreamer = DataStreamer
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    Left = 40
+    Top = 184
+  end
+  object drLoginRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Login'
+    Params = <
+      item
+        Name = 'aPlatform'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'PlatformEnum'
+        Value = Null
+      end
+      item
+        Name = 'aName'
+        DataType = rtWidestring
+        Flag = fIn
+      end>
+    Left = 40
+    Top = 232
+  end
+  object tbl_Workers: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'WorkerID'
+        DataType = datLargeAutoInc
+        GeneratorName = 'SALESMEN_ID_GEN'
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'WorkerLastName'
+        DataType = datWideString
+        Size = 20
+        Required = True
+        DisplayLabel = 'LastName'
+      end
+      item
+        Name = 'WorkerFirstName'
+        DataType = datWideString
+        Size = 10
+        Required = True
+        DisplayLabel = 'FirstName'
+      end
+      item
+        Name = 'WorkerBirthDate'
+        DataType = datDateTime
+        DisplayLabel = 'BirthDate'
+      end
+      item
+        Name = 'WorkerHireDate'
+        DataType = datDateTime
+        DisplayLabel = 'HireDate'
+      end
+      item
+        Name = 'WorkerPosition'
+        DataType = datWideString
+        Size = 30
+        DisplayLabel = 'Position'
+      end
+      item
+        Name = 'WorkerAddress'
+        DataType = datWideString
+        Size = 60
+        DisplayLabel = 'Address'
+      end
+      item
+        Name = 'WorkerCity'
+        DataType = datWideString
+        Size = 15
+        DisplayLabel = 'City'
+      end
+      item
+        Name = 'WorkerZip'
+        DataType = datWideString
+        Size = 10
+        DisplayLabel = 'Zip'
+      end
+      item
+        Name = 'WorkerCountry'
+        DataType = datWideString
+        Size = 15
+        DisplayLabel = 'Country'
+      end
+      item
+        Name = 'WorkerPhone'
+        DataType = datWideString
+        Size = 24
+        DisplayLabel = 'Phone'
+      end
+      item
+        Name = 'WorkerPhoto'
+        DataType = datBlob
+        DisplayLabel = 'Photo'
+      end
+      item
+        Name = 'WorkerNotes'
+        DataType = datWideMemo
+        DisplayLabel = 'Notes'
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'Workers'
+    IndexDefs = <>
+    Left = 128
+    Top = 8
+  end
+  object ds_Workers: TDADataSource
+    DataSet = tbl_Workers.Dataset
+    DataTable = tbl_Workers
+    Left = 200
+    Top = 8
+  end
+  object tbl_Dynamic: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    IndexDefs = <>
+    Left = 128
+    Top = 56
+  end
+  object ds_Dynamic: TDADataSource
+    DataSet = tbl_Dynamic.Dataset
+    DataTable = tbl_Dynamic
+    Left = 200
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientDataModule.pas
new file mode 100644
index 0000000..c66f86e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientDataModule.pas	
@@ -0,0 +1,62 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    drLoginRequest: TRODynamicRequest;
+    tbl_Workers: TDAMemDataTable;
+    ds_Workers: TDADataSource;
+    tbl_Dynamic: TDAMemDataTable;
+    ds_Dynamic: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure Login;
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+uses DASampleLibrary_Intf;
+
+{ TClientDataModule }
+
+procedure TClientDataModule.Login;
+begin
+  with drLoginRequest do begin
+    {$IFNDEF FPC}
+    Params[0].Value := PlatformEnum_peWindowsDelphi;
+    {$ELSE}
+      {$IFDEF WINDOWS}
+      Params[0].Value := PlatformEnum_peWindowsFPC;
+      {$ELSE}
+        {$IFDEF LINUX}
+        Params[0].Value := PlatformEnum_peLinuxFPC;
+        {$ELSE}
+        Params[0].Value := PlatformEnum_peUnknown;
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+    Params[1].Value := 'DASQL Client';
+    Execute(Params);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientForm.dfm
new file mode 100644
index 0000000..9c0377c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientForm.dfm	
@@ -0,0 +1,106 @@
+object ClientForm: TClientForm
+  Left = 213
+  Top = 289
+  Width = 600
+  Height = 370
+  Caption = 'Dynamic Select Sample'
+  Color = clBtnFace
+  Constraints.MinWidth = 600
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 584
+    Height = 49
+    Align = alTop
+    TabOrder = 0
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 0
+      Top = 0
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+    end
+    object btLoad: TButton
+      Left = 218
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = 'Load'
+      TabOrder = 0
+      OnClick = btLoadClick
+    end
+    object btDelete: TButton
+      Left = 299
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = 'Delete'
+      TabOrder = 1
+      OnClick = btDeleteClick
+    end
+    object btUpdate: TButton
+      Left = 380
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = 'Update'
+      TabOrder = 2
+      OnClick = btUpdateClick
+    end
+    object chUseDynamicSelect: TCheckBox
+      Left = 461
+      Top = 17
+      Width = 116
+      Height = 17
+      Caption = 'Use Dynamic Select'
+      Checked = True
+      State = cbChecked
+      TabOrder = 3
+      OnClick = chUseDynamicSelectClick
+    end
+  end
+  object dgData: TDBGrid
+    Left = 0
+    Top = 49
+    Width = 584
+    Height = 285
+    Align = alClient
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+    Columns = <
+      item
+        Expanded = False
+        FieldName = 'WorkerId'
+        Width = 142
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'WorkerLastName'
+        Width = 111
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'WorkerFirstName'
+        Width = 123
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'WorkerPhone'
+        Width = 115
+        Visible = True
+      end>
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientForm.pas
new file mode 100644
index 0000000..7d6a03d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientForm.pas	
@@ -0,0 +1,108 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ExtCtrls, Grids,
+  DBGrids, DB, uDAMemDataTable;
+
+type
+  TClientForm = class(TForm)
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    btLoad: TButton;
+    btDelete: TButton;
+    btUpdate: TButton;
+    chUseDynamicSelect: TCheckBox;
+    dgData: TDBGrid;
+    procedure FormCreate(Sender: TObject);
+    procedure btLoadClick(Sender: TObject);
+    procedure btDeleteClick(Sender: TObject);
+    procedure btUpdateClick(Sender: TObject);
+    procedure chUseDynamicSelectClick(Sender: TObject);
+  private
+    { Private declarations }
+    function GetDataSource: TDataSource;
+    function GetDataTable: TDAMemDataTable;
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fClientDataModule, DataAbstract4_Intf;
+
+{$R *.dfm}
+
+procedure TClientForm.btDeleteClick(Sender: TObject);
+begin
+  GetDataTable.Delete;
+end;
+
+procedure TClientForm.btLoadClick(Sender: TObject);
+var
+  tri: TableRequestInfoV5;
+  triArr: array of TableRequestInfo;
+begin
+  dgData.DataSource := GetDataSource;
+  ClientDataModule.RemoteDataAdapter.DynamicSelect := chUseDynamicSelect.Checked;
+
+  GetDataTable.ClearRows(true);
+  if chUseDynamicSelect.Checked then begin
+    GetDataTable.LogicalName := 'Workers';
+    tri := TableRequestInfoV5.Create;
+    with tri do begin
+      IncludeSchema := true;
+      MaxRecords := -1;
+      DynamicSelectFieldNames.Add('WorkerID');
+      DynamicSelectFieldNames.Add('WorkerLastName');
+      DynamicSelectFieldNames.Add('WorkerFirstName');
+      DynamicSelectFieldNames.Add('WorkerPhone');
+    end;
+    SetLength(triArr, 1);
+    triArr[0] := tri;
+    ClientDataModule.RemoteDataAdapter.Fill([GetDataTable], triArr);
+  end
+  else ClientDataModule.RemoteDataAdapter.Fill([GetDataTable]);
+end;
+
+procedure TClientForm.btUpdateClick(Sender: TObject);
+begin
+  ClientDataModule.RemoteDataAdapter.ApplyUpdates([GetDataTable]);
+end;
+
+procedure TClientForm.FormCreate(Sender: TObject);
+begin
+  // TODO: until DynamicRequest bug fixed
+  //ClientDataModule.Login;
+  Application.Title := ClientForm.Caption;
+end;
+
+function TClientForm.GetDataSource: TDataSource;
+begin
+  if chUseDynamicSelect.Checked
+  then Result := ClientDataModule.ds_Dynamic
+  else Result := ClientDataModule.ds_Workers;
+end;
+
+function TClientForm.GetDataTable: TDAMemDataTable;
+begin
+  if chUseDynamicSelect.Checked
+  then Result := ClientDataModule.tbl_Dynamic
+  else Result := ClientDataModule.tbl_Workers;
+end;
+
+procedure TClientForm.chUseDynamicSelectClick(Sender: TObject);
+begin
+  btUpdate.Click;
+  dgData.DataSource := GetDataSource;
+  btLoad.Click;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..65e7e3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.Sample.html
new file mode 100644
index 0000000..22f46f9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.Sample.html	
@@ -0,0 +1,41 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">Dynamic Where Sample</p>
+
+<p>
+This sample illustrates the use of <b>Dynamic Where</b> to submit secure where clauses to the server in order to 
+filter records fecthed to the client. The sample provides a range of pre-defined Where clauses to choose from, 
+as well as a text field that allows the user to manually enter own where clause (in real life, Where clauses will of course 
+seldomly be hand-written in XML, but the appropriate APIs would be used to create the XML in code).<br/> 
+The grid at the bottom can be filled with the data fetched using the <b>Where Clause</b>.
+</p>
+
+<p class="h2">Examine the code</p>
+<ul>
+<li>
+Look at <b>TClientForm.GetTemplateWhereExpression</b>. This method uses the <b>DynamicWhere</b> API to create 
+different <b>WhereExpression</b> objects that encapsulate different data conditions.
+</li> 
+<li><b>TClientForm.ShowXML</b> method extracts the Xml representation of an existing <b>WhereExpression</b> object.</li> 
+<li>Take a look at the <b>TClientForm.btLoadClick</b> event handler to see how conditions are applied and the resulting dataset is retrieved.</li> 
+</ul>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Run the Sample Server.</li>
+<li>Run the Dynamic Where Sample.</li> 
+<li>Select one of the predefined conditions.</li>
+<li>Examine the XML corresponding to th choosen condition.</li> 
+<li>Press the Load button tp load data.</li> 
+<li>Try to change the XML, to validate changed XML and press the Load button again.</li> 
+<li>Select the last condition (marked as wrong) and try to load data.</li> 
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.dpr
new file mode 100644
index 0000000..211a74f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.dpr	
@@ -0,0 +1,18 @@
+program DynamicWhere;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.dproj
new file mode 100644
index 0000000..39d8e1b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.dproj	
@@ -0,0 +1,89 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{462b21b1-5c66-4bbc-88ff-c063769bf83a}</ProjectGuid>
+    <MainSource>DynamicWhere.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DynamicWhere.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">DynamicWhere.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DynamicWhere.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="fClientDataModule.pas">
+      <Form>ClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/DynamicWhere.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientDataModule.dfm
new file mode 100644
index 0000000..9e279ca
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientDataModule.dfm	
@@ -0,0 +1,154 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 136
+  Top = 150
+  Height = 329
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    DataStreamer = DataStreamer
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    Left = 40
+    Top = 184
+  end
+  object drLoginRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Login'
+    Params = <
+      item
+        Name = 'aPlatform'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'PlatformEnum'
+        Value = Null
+      end
+      item
+        Name = 'aName'
+        DataType = rtWidestring
+        Flag = fIn
+      end>
+    Left = 40
+    Top = 232
+  end
+  object tbl_Workers: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'WorkerID'
+        DataType = datLargeAutoInc
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'WorkerLastName'
+        DataType = datWideString
+        Size = 20
+        Required = True
+        DisplayLabel = 'LastName'
+      end
+      item
+        Name = 'WorkerFirstName'
+        DataType = datWideString
+        Size = 10
+        Required = True
+        DisplayLabel = 'FirstName'
+      end
+      item
+        Name = 'WorkerBirthDate'
+        DataType = datDateTime
+        DisplayLabel = 'BirthDate'
+      end
+      item
+        Name = 'WorkerHireDate'
+        DataType = datDateTime
+        DisplayLabel = 'HireDate'
+      end
+      item
+        Name = 'WorkerPosition'
+        DataType = datWideString
+        Size = 30
+        DisplayLabel = 'Position'
+      end
+      item
+        Name = 'WorkerAddress'
+        DataType = datWideString
+        Size = 60
+        DisplayLabel = 'Address'
+      end
+      item
+        Name = 'WorkerCity'
+        DataType = datWideString
+        Size = 15
+        DisplayLabel = 'City'
+      end
+      item
+        Name = 'WorkerZip'
+        DataType = datWideString
+        Size = 10
+        DisplayLabel = 'Zip'
+      end
+      item
+        Name = 'WorkerCountry'
+        DataType = datWideString
+        Size = 15
+        DisplayLabel = 'Country'
+      end
+      item
+        Name = 'WorkerPhone'
+        DataType = datWideString
+        Size = 24
+        DisplayLabel = 'Phone'
+      end
+      item
+        Name = 'WorkerPhoto'
+        DataType = datBlob
+        DisplayLabel = 'Photo'
+      end
+      item
+        Name = 'WorkerNotes'
+        DataType = datWideMemo
+        DisplayLabel = 'Notes'
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'Workers'
+    IndexDefs = <>
+    Left = 128
+    Top = 8
+  end
+  object ds_Workers: TDADataSource
+    DataSet = tbl_Workers.Dataset
+    DataTable = tbl_Workers
+    Left = 200
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientDataModule.pas
new file mode 100644
index 0000000..916eb0f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientDataModule.pas	
@@ -0,0 +1,60 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    drLoginRequest: TRODynamicRequest;
+    tbl_Workers: TDAMemDataTable;
+    ds_Workers: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure Login;
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+uses DASampleLibrary_Intf;
+
+{ TClientDataModule }
+
+procedure TClientDataModule.Login;
+begin
+  with drLoginRequest do begin
+    {$IFNDEF FPC}
+    Params[0].Value := PlatformEnum_peWindowsDelphi;
+    {$ELSE}
+      {$IFDEF WINDOWS}
+      Params[0].Value := PlatformEnum_peWindowsFPC;
+      {$ELSE}
+        {$IFDEF LINUX}
+        Params[0].Value := PlatformEnum_peLinuxFPC;
+        {$ELSE}
+        Params[0].Value := PlatformEnum_peUnknown;
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+    Params[1].Value := 'DASQL Client';
+    Execute(Params);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientForm.dfm
new file mode 100644
index 0000000..1d75665
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientForm.dfm	
@@ -0,0 +1,132 @@
+object ClientForm: TClientForm
+  Left = 55
+  Top = 235
+  Width = 800
+  Height = 560
+  Caption = 'Dynamic Where Sample'
+  Color = clBtnFace
+  Constraints.MaxWidth = 800
+  Constraints.MinWidth = 800
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 784
+    Height = 49
+    Align = alTop
+    TabOrder = 0
+    DesignSize = (
+      784
+      49)
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 0
+      Top = 0
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+    end
+    object Label1: TLabel
+      Left = 218
+      Top = 3
+      Width = 131
+      Height = 13
+      Caption = '&Dynamic Where Conditions:'
+      FocusControl = cbConditions
+    end
+    object cbConditions: TComboBox
+      Left = 218
+      Top = 22
+      Width = 554
+      Height = 21
+      Style = csDropDownList
+      Anchors = [akLeft, akTop, akRight]
+      ItemHeight = 13
+      ItemIndex = 0
+      TabOrder = 0
+      Text = 'Position is Sales Manager'
+      OnChange = cbConditionsChange
+      Items.Strings = (
+        'Position is Sales Manager'
+        'Position is Sales Manager And City is Chicago'
+        'City is Chicago or Atlanta'
+        'FirstName doesn'#39't begin with A'
+        
+          '(Position is Sales Representative Or Zip is NULL) And (City is K' +
+          'irkland or Seattle). Returns NO RECORDS!'
+        'No Conditions'
+        'Country_Name is France (wrong field name is provided)')
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 49
+    Width = 784
+    Height = 128
+    Align = alTop
+    TabOrder = 1
+    DesignSize = (
+      784
+      128)
+    object Label2: TLabel
+      Left = 8
+      Top = 6
+      Width = 25
+      Height = 13
+      Caption = 'XML:'
+    end
+    object edXML: TMemo
+      Left = 8
+      Top = 25
+      Width = 764
+      Height = 89
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      ScrollBars = ssVertical
+      TabOrder = 0
+    end
+  end
+  object Panel4: TPanel
+    Left = 0
+    Top = 177
+    Width = 784
+    Height = 41
+    Align = alTop
+    TabOrder = 2
+    object btLoad: TButton
+      Left = 8
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = '&Load'
+      TabOrder = 0
+      OnClick = btLoadClick
+    end
+    object btValidate: TButton
+      Left = 89
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = '&Validate XML'
+      TabOrder = 1
+      OnClick = btValidateClick
+    end
+  end
+  object dgData: TDBGrid
+    Left = 0
+    Top = 218
+    Width = 784
+    Height = 306
+    Align = alClient
+    DataSource = ClientDataModule.ds_Workers
+    TabOrder = 3
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientForm.pas
new file mode 100644
index 0000000..ecaac02
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Where/fClientForm.pas	
@@ -0,0 +1,182 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ExtCtrls, Grids,
+  DBGrids, uDAInterfaces;
+
+type
+  TClientForm = class(TForm)
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    Label1: TLabel;
+    cbConditions: TComboBox;
+    Panel2: TPanel;
+    Label2: TLabel;
+    edXML: TMemo;
+    Panel4: TPanel;
+    btLoad: TButton;
+    btValidate: TButton;
+    dgData: TDBGrid;
+    procedure FormCreate(Sender: TObject);
+    procedure cbConditionsChange(Sender: TObject);
+    procedure btValidateClick(Sender: TObject);
+    procedure btLoadClick(Sender: TObject);
+  private
+    { Private declarations }
+    function GetTemplateWhereExpression: TDAWhereExpression;
+    procedure ShowXML(aExpr: TDAWhereExpression);
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fClientDataModule;  
+  
+{$R *.dfm}
+
+procedure TClientForm.btLoadClick(Sender: TObject);
+var
+  wb: TDAWhereBuilder;
+  expr: TDAWhereExpression;
+  expArr: array of TDAWhereExpression;
+begin
+   wb := TDAWhereBuilder.Create;
+   try
+    with ClientDataModule do begin
+      tbl_Workers.ClearRows(true);
+      if Trim(edXML.Text) <> ''
+      then expr := wb.XMLToExpression(edXML.Text)
+      else expr := nil;
+      SetLength(expArr, 1);
+      expArr[0] := expr;
+      RemoteDataAdapter.Fill([tbl_Workers], expArr);
+    end;
+   except
+     on E: Exception do ShowMessage('Error loading data: ' + E.Message);
+   end;
+   wb.Free;
+end;
+
+procedure TClientForm.btValidateClick(Sender: TObject);
+var
+  expr: TDAWhereExpression;
+  wb: TDAWhereBuilder;
+begin
+  wb := TDAWhereBuilder.Create;
+  try
+    try
+      expr := wb.XMLToExpression(edXML.Text);
+      expr.Validate;
+      ShowMessage('XML Where expression is valid');
+    except
+      on E: Exception do ShowMessage('XML Where expression is INVALID: ' + E.Message);
+    end;
+  finally
+    wb.Free;
+  end;
+end;
+
+procedure TClientForm.cbConditionsChange(Sender: TObject);
+var
+  expr: TDAWhereExpression;
+begin
+  expr := GetTemplateWhereExpression;
+  ShowXML(expr);
+end;
+
+procedure TClientForm.FormCreate(Sender: TObject);
+begin
+  // TODO: until DynamicRequest bug fixed
+  //ClientDataModule.Login;
+  Application.Title := ClientForm.Caption;
+  cbConditionsChange(nil);
+end;
+
+function TClientForm.GetTemplateWhereExpression: TDAWhereExpression;
+var
+  wb: TDAWhereBuilder;
+begin
+  Result := nil;
+  wb := TDAWhereBuilder.Create;
+  with wb, ClientDataModule.tbl_Workers do
+    case cbConditions.ItemIndex of
+    //Position is Sales Manager
+    0: Result := NewBinaryExpression(
+        NewField(LogicalName, 'WorkerPosition'),
+        NewConstant('Sales Manager', datString),
+        dboEqual);
+    //Job is Sales Manager And City is Chicago
+    1: Result := NewBinaryExpression(
+        NewBinaryExpression(
+          NewField(LogicalName, 'WorkerPosition'),
+          NewConstant('Sales Manager', datString),
+          dboEqual),
+        NewBinaryExpression(
+          NewField(LogicalName, 'WorkerCity'),
+          NewConstant('Chicago IL', datString),
+          dboEqual),
+        dboAnd);
+    //City is Chicago or Atlanta
+    2: Result := NewBinaryExpression(
+        NewField(LogicalName, 'WorkerCity'),
+        NewList([NewConstant('Chicago IL', datString), NewConstant('Atlanta CA', datString)]),
+        dboIn);
+    //FirstName doesn't begin with A
+    3: Result := NewUnaryExpression(
+        NewBinaryExpression(
+          NewField(LogicalName, 'WorkerFirstName'),
+          NewConstant('A%', datString),
+          dboLike),
+        duoNot);
+    //(Position is Sales Representative Or Zip is NULL) And (City is Kirkland or Seattle)
+    4: Result := NewBinaryExpression(
+        NewBinaryExpression(
+          NewBinaryExpression(
+            NewField(LogicalName, 'WorkerPosition'),
+            NewConstant('Sales Representative', datString),
+            dboEqual),
+          NewBinaryExpression(
+            NewField(LogicalName, 'WorkerZip'),
+            NewNull,
+            dboEqual),
+          dboOr),
+        NewBinaryExpression(
+          NewField(LogicalName, 'WorkerCity'),
+          NewList(
+            [NewConstant('Kirkland', datString),
+             NewConstant('Seattle', datString)]
+          ),
+          dboIn),
+        dboAnd);
+    // Wrong condition - incorrect field name
+    6: Result := NewBinaryExpression(
+        NewField(LogicalName, 'Country_Name'),
+        NewConstant('UK', datString),
+        dboEqual);
+    end;
+  wb.Free;
+end;
+
+procedure TClientForm.ShowXML(aExpr: TDAWhereExpression);
+var
+  wb: TDAWhereBuilder;
+begin
+  edXML.Clear;
+  if Assigned(aExpr) then begin
+    wb := TDAWhereBuilder.Create;
+    wb.Expression := aExpr;
+    edXML.Text := wb.Xml;
+    wb.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.Sample.html
new file mode 100644
index 0000000..3698485
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.Sample.html	
@@ -0,0 +1,31 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Briefcase model sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  This example shows how to create a <b>briefcase model</b> using a Data Abstract Client.
+</p>
+<h2>Getting Started</h2>
+
+<ul>
+	<li>Launch the Server.</li>
+	<li>Launch the Client.</li>
+	<li>The first time the server runs it will ask to fetch the data, else it will load it from disk. </li>
+	<li>Make some changes to the records.</li><li>Close the client.</li>
+	<li>Re-open the client and the changes will still be there. </li>
+	<li>Pressing Apply Updates will send the changes back to the server.</li>
+</ul>
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.bdsgroup
new file mode 100644
index 0000000..1bf8297
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{DC65E2DF-E6C9-4410-9486-4F175607B752}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="BriefcaseModelServer.exe">BriefcaseModelServer.bdsproj</Projects>
+      <Projects Name="BriefcaseModelClient.exe">BriefcaseModelClient.bdsproj</Projects>
+      <Projects Name="Targets">BriefcaseModelServer.exe BriefcaseModelClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.bpg
new file mode 100644
index 0000000..ef89764
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = BriefcaseModelServer.exe BriefcaseModelClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+BriefcaseModelServer.exe: BriefcaseModelServer.dpr
+  $(DCC)
+
+BriefcaseModelClient.exe: BriefcaseModelClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.groupproj
new file mode 100644
index 0000000..25568d5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModel.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{8aedcb5a-78e5-4e85-8261-093aa6a47a12}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="BriefcaseModelServer">
+    <MSBuild Projects="BriefcaseModelServer.dproj" Targets="" />
+  </Target>
+  <Target Name="BriefcaseModelServer:Clean">
+    <MSBuild Projects="BriefcaseModelServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="BriefcaseModelServer:Make">
+    <MSBuild Projects="BriefcaseModelServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="BriefcaseModelClient">
+    <MSBuild Projects="BriefcaseModelClient.dproj" Targets="" />
+  </Target>
+  <Target Name="BriefcaseModelClient:Clean">
+    <MSBuild Projects="BriefcaseModelClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="BriefcaseModelClient:Make">
+    <MSBuild Projects="BriefcaseModelClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="BriefcaseModelServer;BriefcaseModelClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="BriefcaseModelServer:Clean;BriefcaseModelClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="BriefcaseModelServer:Make;BriefcaseModelClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.bdsproj
new file mode 100644
index 0000000..e3d7939
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{A812C417-01F7-4D10-80C0-3FAC762998EA}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">BriefcaseModelClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.cfg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.cfg
new file mode 100644
index 0000000..f1089e1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.cfg	
@@ -0,0 +1,33 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.dpr
new file mode 100644
index 0000000..71bcbd6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.dpr	
@@ -0,0 +1,19 @@
+program BriefcaseModelClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  BriefcaseModelClientMain in 'BriefcaseModelClientMain.pas' {BriefcaseModelClientMainForm},
+  BriefcaseModelClientData in 'BriefcaseModelClientData.pas' {BriefcaseModelClientDataModule: TDAClientDataModule},
+  BriefcaseModelClientChanges in 'BriefcaseModelClientChanges.pas' {BriefcaseModelClientChangesForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Briefcase Model Client';
+  Application.CreateForm(TBriefcaseModelClientDataModule, BriefcaseModelClientDataModule);
+  Application.CreateForm(TBriefcaseModelClientMainForm, BriefcaseModelClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.dproj
new file mode 100644
index 0000000..9d03196
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.dproj	
@@ -0,0 +1,84 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{bbc1c7e0-ae64-480d-a016-c817f7590577}</ProjectGuid>
+    <MainSource>BriefcaseModelClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>BriefcaseModelClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">BriefcaseModelClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="BriefcaseModelClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BriefcaseModelClientChanges.pas">
+      <Form>BriefcaseModelClientChangesForm</Form>
+    </DCCReference>
+    <DCCReference Include="BriefcaseModelClientData.pas">
+      <Form>BriefcaseModelClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="BriefcaseModelClientMain.pas">
+      <Form>BriefcaseModelClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientChanges.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientChanges.dfm
new file mode 100644
index 0000000..ccdcd29
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientChanges.dfm	
@@ -0,0 +1,58 @@
+object BriefcaseModelClientChangesForm: TBriefcaseModelClientChangesForm
+  Left = 108
+  Top = 133
+  AutoScroll = False
+  Caption = 'Changes'
+  ClientHeight = 352
+  ClientWidth = 405
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 123
+    Width = 405
+    Height = 8
+    Cursor = crVSplit
+    Align = alBottom
+    Beveled = True
+  end
+  object ListView: TListView
+    Left = 0
+    Top = 131
+    Width = 405
+    Height = 221
+    Align = alBottom
+    Columns = <
+      item
+        Caption = 'Name'
+        Width = 200
+      end
+      item
+        Caption = 'Old value'
+        Width = 100
+      end
+      item
+        Caption = 'New value'
+        Width = 100
+      end>
+    OwnerData = True
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 0
+    ViewStyle = vsReport
+    OnData = ListViewData
+  end
+  object ListBox: TListBox
+    Left = 0
+    Top = 0
+    Width = 405
+    Height = 123
+    Align = alClient
+    ItemHeight = 13
+    TabOrder = 1
+    OnClick = ListBoxClick
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientChanges.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientChanges.pas
new file mode 100644
index 0000000..5218501
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientChanges.pas	
@@ -0,0 +1,115 @@
+unit BriefcaseModelClientChanges;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls;
+
+type
+  TBriefcaseModelClientChangesForm = class(TForm)
+    ListView: TListView;
+    Splitter1: TSplitter;
+    ListBox: TListBox;
+    procedure ListBoxClick(Sender: TObject);
+    procedure ListViewData(Sender: TObject; Item: TListItem);
+  private
+    { Private declarations }
+    procedure SetupListview;
+    procedure Setup;
+  public
+    { Public declarations }
+
+  end;
+
+var
+  BriefcaseModelClientChangesForm: TBriefcaseModelClientChangesForm;
+
+procedure ShowChanges;
+implementation
+uses
+  uDADelta, BriefcaseModelClientData, uDAInterfaces;
+
+{$R *.dfm}
+
+procedure ShowChanges;
+begin
+  with TBriefcaseModelClientChangesForm.Create(Application) do try
+    Setup;
+    if ListBox.Count = 0 then Exit;
+    ShowModal;
+  finally
+    Release;
+  end;
+end;
+
+procedure TBriefcaseModelClientChangesForm.ListBoxClick(Sender: TObject);
+begin
+  SetupListView;
+end;
+
+procedure TBriefcaseModelClientChangesForm.SetupListview;
+begin
+  ListView.Items.Count := 0;
+  if ListBox.ItemIndex = -1 then Exit;
+  ListView.Items.Count := TDADeltaChange(Listbox.Items.Objects[ListBox.ItemIndex]).Delta.LoggedFieldCount;
+end;
+
+procedure TBriefcaseModelClientChangesForm.ListViewData(Sender: TObject;
+  Item: TListItem);
+var
+  DeltaChange: TDADeltaChange;
+begin
+  if (Item = nil) or (Item.Index >= ListView.Items.Count) then Exit;
+  DeltaChange := TDADeltaChange(Listbox.Items.Objects[ListBox.ItemIndex]);
+  Item.Caption := DeltaChange.Delta.LoggedFieldNames[Item.Index];
+  if DeltaChange.ChangeType <> ctInsert then
+    Item.SubItems.Add(VarToStr(DeltaChange.OldValueByName[Item.Caption]))
+  else
+    Item.SubItems.Add('');
+  if DeltaChange.ChangeType <> ctDelete then
+    Item.SubItems.Add(VarToStr(DeltaChange.NewValueByName[Item.Caption]))
+  else
+    Item.SubItems.Add('');
+end;
+
+procedure TBriefcaseModelClientChangesForm.Setup;
+
+  procedure AddDelta(Delta: IDADelta);
+  var
+    str: string;
+    i, j: integer;
+  begin
+    for i := 0 to Delta.Count - 1 do
+      with Delta.Changes[i] do begin
+        case ChangeType of
+          ctInsert: str := '[New]';
+          ctUpdate: str := '[Update]';
+          ctDelete: str := '[Delete]';
+        end;
+        str := str + ' ' + Delta.LogicalName + ': ';
+        for j := 0 to delta.KeyFieldCount - 1 do begin
+          if ChangeType = ctDelete then
+            str := str + VarToStr(OldValueByName[delta.KeyFieldNames[j]]) + ','
+          else
+            str := str + VarToStr(NewValueByName[delta.KeyFieldNames[j]]) + ','
+        end;
+        if delta.KeyFieldCount > 0 then SetLength(Str, Length(str) - 1);
+        ListBox.Items.AddObject(str, Delta.Changes[i]);
+      end;
+  end;
+
+begin
+  ListBox.Items.Clear;
+  with BriefcaseModelClientDataModule do begin
+    if tbl_Customers.DeltaInitialized then AddDelta(tbl_Customers.Delta);
+    if tbl_Orders.DeltaInitialized then AddDelta(tbl_Orders.Delta);
+  end;
+  if ListBox.Count > 0 then begin
+    ListBox.ItemIndex := 0;
+    ListBoxClick(ListBox);
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientData.dfm
new file mode 100644
index 0000000..fee315d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientData.dfm	
@@ -0,0 +1,383 @@
+object BriefcaseModelClientDataModule: TBriefcaseModelClientDataModule
+  OldCreateOrder = True
+  Left = 126
+  Top = 134
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'BriefcaseModelService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABinDataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object tbl_Customers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactName'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Fax'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    LocalDataStreamer = DataStreamer
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 184
+    Top = 144
+  end
+  object ds_Customers: TDADataSource
+    DataSet = tbl_Customers.Dataset
+    DataTable = tbl_Customers
+    Left = 136
+    Top = 144
+  end
+  object tbl_Orders: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        LogChanges = False
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'EmployeeID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RequiredDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShippedDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipVia'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Freight'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DefaultValue = '0'
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipAddress'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCity'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipRegion'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipPostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCountry'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    LocalDataStreamer = DataStreamer
+    MasterSource = ds_Customers
+    MasterFields = 'CustomerID'
+    DetailFields = 'CustomerID'
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Orders'
+    IndexDefs = <>
+    Left = 184
+    Top = 192
+  end
+  object ds_Orders: TDADataSource
+    DataSet = tbl_Orders.Dataset
+    DataTable = tbl_Orders
+    Left = 136
+    Top = 192
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientData.pas
new file mode 100644
index 0000000..e206cde
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientData.pas	
@@ -0,0 +1,36 @@
+unit BriefcaseModelClientData;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
+  uDADataStreamer, uDARemoteDataAdapter, uDAScriptingProvider,
+  uDACDSDataTable, uDAClasses;
+
+type
+  TBriefcaseModelClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABinDataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Customers: TDACDSDataTable;
+    ds_Customers: TDADataSource;
+    tbl_Orders: TDACDSDataTable;
+    ds_Orders: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BriefcaseModelClientDataModule: TBriefcaseModelClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientMain.dfm
new file mode 100644
index 0000000..9699d89
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientMain.dfm	
@@ -0,0 +1,131 @@
+object BriefcaseModelClientMainForm: TBriefcaseModelClientMainForm
+  Left = 85
+  Top = 124
+  AutoScroll = False
+  Caption = 'Briefcase Model Client'
+  ClientHeight = 398
+  ClientWidth = 567
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 215
+    Width = 567
+    Height = 5
+    Cursor = crVSplit
+    Align = alBottom
+    Beveled = True
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 567
+    Height = 34
+    Align = alTop
+    TabOrder = 0
+    object OpenButton: TButton
+      Left = 10
+      Top = 7
+      Width = 90
+      Height = 22
+      Caption = 'Fetch Data'
+      TabOrder = 0
+      OnClick = OpenButtonClick
+    end
+    object ApplyUpdateButton: TButton
+      Left = 101
+      Top = 7
+      Width = 90
+      Height = 22
+      Action = ApplyUpdateAction
+      TabOrder = 1
+    end
+    object DiscardChangesButton: TButton
+      Left = 192
+      Top = 7
+      Width = 90
+      Height = 22
+      Action = DiscardChangesAction
+      TabOrder = 2
+    end
+    object ShowChangesButton: TButton
+      Left = 283
+      Top = 7
+      Width = 90
+      Height = 22
+      Action = ShowChangesAction
+      TabOrder = 3
+    end
+  end
+  object gCustomers: TDBGrid
+    Left = 0
+    Top = 59
+    Width = 567
+    Height = 156
+    Align = alClient
+    DataSource = BriefcaseModelClientDataModule.ds_Customers
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object gOrders: TDBGrid
+    Left = 0
+    Top = 220
+    Width = 567
+    Height = 153
+    Align = alBottom
+    DataSource = BriefcaseModelClientDataModule.ds_Orders
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object dbnCustomers: TDBNavigator
+    Left = 0
+    Top = 34
+    Width = 567
+    Height = 25
+    DataSource = BriefcaseModelClientDataModule.ds_Customers
+    Align = alTop
+    TabOrder = 3
+  end
+  object dbnOrders: TDBNavigator
+    Left = 0
+    Top = 373
+    Width = 567
+    Height = 25
+    DataSource = BriefcaseModelClientDataModule.ds_Orders
+    Align = alBottom
+    TabOrder = 4
+  end
+  object ActionList1: TActionList
+    Left = 337
+    Top = 87
+    object ApplyUpdateAction: TAction
+      Caption = 'Apply update'
+      OnExecute = ApplyUpdateButtonClick
+      OnUpdate = ApplyUpdateActionUpdate
+    end
+    object DiscardChangesAction: TAction
+      Caption = 'Discard changes'
+      OnExecute = DiscardChangesButtonClick
+      OnUpdate = ApplyUpdateActionUpdate
+    end
+    object ShowChangesAction: TAction
+      Caption = 'Show changes'
+      OnExecute = ShowChangesButtonClick
+      OnUpdate = ApplyUpdateActionUpdate
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientMain.pas
new file mode 100644
index 0000000..6b421d5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelClientMain.pas	
@@ -0,0 +1,140 @@
+unit BriefcaseModelClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ExtCtrls,
+  DBCtrls, Grids, DBGrids, ActnList;
+
+type
+  TBriefcaseModelClientMainForm = class(TForm)
+    Panel1: TPanel;
+    gCustomers: TDBGrid;
+    gOrders: TDBGrid;
+    dbnCustomers: TDBNavigator;
+    dbnOrders: TDBNavigator;
+    Splitter1: TSplitter;
+    OpenButton: TButton;
+    ApplyUpdateButton: TButton;
+    DiscardChangesButton: TButton;
+    ShowChangesButton: TButton;
+    ActionList1: TActionList;
+    ApplyUpdateAction: TAction;
+    DiscardChangesAction: TAction;
+    ShowChangesAction: TAction;
+    procedure ApplyUpdateButtonClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure OpenButtonClick(Sender: TObject);
+    procedure DiscardChangesButtonClick(Sender: TObject);
+    procedure ShowChangesButtonClick(Sender: TObject);
+    procedure ApplyUpdateActionUpdate(Sender: TObject);
+  private
+    { Private declarations }
+    procedure Load;
+    procedure Save;
+    procedure FetchData;
+  public
+    { Public declarations }
+  end;
+
+var
+  BriefcaseModelClientMainForm: TBriefcaseModelClientMainForm;
+
+implementation
+
+uses
+  BriefcaseModelClientData, uDADataTable, BriefcaseModelClientChanges;
+
+{$R *.dfm}
+
+procedure TBriefcaseModelClientMainForm.ApplyUpdateButtonClick(Sender: TObject);
+begin
+  BriefcaseModelClientDataModule.RemoteDataAdapter.ApplyUpdates([BriefcaseModelClientDataModule.tbl_Customers]);
+end;
+
+procedure TBriefcaseModelClientMainForm.Load;
+
+  function loadTable(ATable: TDADataTable): Boolean;
+  var
+    aFileName: string;
+  begin
+    aFileName := ExtractFilePath(Application.ExeName) + ATable.LogicalName + '.table';
+    if FileExists(aFileName) then begin
+      aTable.LoadFromFile(aFileName);
+      Result := True;
+    end else
+      Result := False;
+  end;
+
+begin
+  if not loadTable(BriefcaseModelClientDataModule.tbl_Customers) or not loadTable(BriefcaseModelClientDataModule.tbl_Orders) then begin
+    if MessageDlg('No data table files could be found, do you want to fetch the data from the server?', mtConfirmation, [mbYes, mbNo], 0) = idYes then begin
+      FetchData;
+    end;
+  end;
+end;
+
+procedure TBriefcaseModelClientMainForm.Save;
+
+  procedure SaveTable(ATable: TDADataTable);
+  begin
+    with ATable do
+      if active then
+        SaveToFile(ExtractFilePath(Application.ExeName) + LogicalName + '.table');
+  end;
+
+begin
+  with BriefcaseModelClientDataModule do begin
+    SaveTable(tbl_Customers);
+    SaveTable(tbl_Orders);
+  end;
+end;
+
+procedure TBriefcaseModelClientMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Save;
+end;
+
+procedure TBriefcaseModelClientMainForm.FormCreate(Sender: TObject);
+begin
+  Load;
+end;
+
+procedure TBriefcaseModelClientMainForm.OpenButtonClick(Sender: TObject);
+begin
+  FetchData;
+end;
+
+procedure TBriefcaseModelClientMainForm.FetchData;
+begin
+  BriefcaseModelClientDataModule.tbl_Orders.close;
+  BriefcaseModelClientDataModule.tbl_Customers.close;
+  BriefcaseModelClientDataModule.RemoteDataAdapter.Fill([BriefcaseModelClientDataModule.tbl_Customers,
+    BriefcaseModelClientDataModule.tbl_Orders], true, false);
+end;
+
+procedure TBriefcaseModelClientMainForm.DiscardChangesButtonClick(Sender: TObject);
+begin
+  with BriefcaseModelClientDataModule do begin
+    tbl_Customers.CancelUpdates;
+  end;
+end;
+
+procedure TBriefcaseModelClientMainForm.ShowChangesButtonClick(Sender: TObject);
+begin
+  ShowChanges;
+end;
+
+procedure TBriefcaseModelClientMainForm.ApplyUpdateActionUpdate(
+  Sender: TObject);
+begin
+  with BriefcaseModelClientDataModule do
+    TAction(Sender).Enabled :=
+      (tbl_Customers.DeltaInitialized) and ((tbl_Customers.Delta.Count > 0)) or
+      (tbl_Orders.DeltaInitialized) and ((tbl_Orders.Delta.Count > 0))
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary.rodl
new file mode 100644
index 0000000..4c957b1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary.rodl	
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="BriefcaseModelLibrary" UID="{0C6D69E2-2FEC-49FE-B07B-EE237D69F422}" Version="3.0">
+<Services>
+<Service Name="BriefcaseModelService" UID="{0FB8B88C-31CC-4924-83DB-FE1DFBA86D57}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{DF3E1E54-2924-4DE3-9834-4B225408D09F}">
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{128BE099-ECFA-4936-B507-7CA35F6ADD66}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary_Intf.pas
new file mode 100644
index 0000000..48b30f5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary_Intf.pas	
@@ -0,0 +1,77 @@
+unit BriefcaseModelLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{0C6D69E2-2FEC-49FE-B07B-EE237D69F422}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IBriefcaseModelService_IID : TGUID = '{DF3E1E54-2924-4DE3-9834-4B225408D09F}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IBriefcaseModelService = interface;
+
+
+
+
+  { IBriefcaseModelService }
+  IBriefcaseModelService = interface(IDataAbstractService)
+    ['{DF3E1E54-2924-4DE3-9834-4B225408D09F}']
+  end;
+
+  { CoBriefcaseModelService }
+  CoBriefcaseModelService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBriefcaseModelService;
+  end;
+
+  { TBriefcaseModelService_Proxy }
+  TBriefcaseModelService_Proxy = class(TDataAbstractService_Proxy, IBriefcaseModelService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoBriefcaseModelService }
+
+class function CoBriefcaseModelService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBriefcaseModelService;
+begin
+  result := TBriefcaseModelService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TBriefcaseModelService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'BriefcaseModelService';
+end;
+
+initialization
+  RegisterProxyClass(IBriefcaseModelService_IID, TBriefcaseModelService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IBriefcaseModelService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary_Invk.pas
new file mode 100644
index 0000000..34ea4df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelLibrary_Invk.pas	
@@ -0,0 +1,32 @@
+unit BriefcaseModelLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} BriefcaseModelLibrary_Intf;
+
+type
+  TBriefcaseModelService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.bdsproj
new file mode 100644
index 0000000..bf8e10d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{814985E4-2D7E-4B43-B1B8-2C026284B033}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">BriefcaseModelServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.dpr
new file mode 100644
index 0000000..715dd7e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.dpr	
@@ -0,0 +1,24 @@
+program BriefcaseModelServer;
+
+{#ROGEN:BriefcaseModelLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  BriefcaseModelServerMain in 'BriefcaseModelServerMain.pas' {BriefcaseModelServerMainForm},
+  BriefcaseModelServerData in 'BriefcaseModelServerData.pas' {BriefcaseModelServerDataModule: TDataModule},
+  BriefcaseModelLibrary_Intf in 'BriefcaseModelLibrary_Intf.pas',
+  BriefcaseModelLibrary_Invk in 'BriefcaseModelLibrary_Invk.pas',
+  BriefcaseModelService_Impl in 'BriefcaseModelService_Impl.pas' {BriefcaseModelService: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Briefcase Model Server';
+  Application.CreateForm(TBriefcaseModelServerDataModule, BriefcaseModelServerDataModule);
+  Application.CreateForm(TBriefcaseModelServerMainForm, BriefcaseModelServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.dproj
new file mode 100644
index 0000000..a70b698
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{55d87c1e-5021-4276-a4c8-aef5b2fb31d9}</ProjectGuid>
+    <MainSource>BriefcaseModelServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>BriefcaseModelServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">BriefcaseModelServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="BriefcaseModelServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BriefcaseModelLibrary_Intf.pas" />
+    <DCCReference Include="BriefcaseModelLibrary_Invk.pas" />
+    <DCCReference Include="BriefcaseModelServerData.pas">
+      <Form>BriefcaseModelServerDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="BriefcaseModelServerMain.pas">
+      <Form>BriefcaseModelServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="BriefcaseModelService_Impl.pas">
+      <Form>BriefcaseModelService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerData.dfm
new file mode 100644
index 0000000..e6fc791
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerData.dfm	
@@ -0,0 +1,60 @@
+object BriefcaseModelServerDataModule: TBriefcaseModelServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 226
+  Top = 160
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerData.pas
new file mode 100644
index 0000000..dcd422e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerData.pas	
@@ -0,0 +1,41 @@
+unit BriefcaseModelServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+   uDAADODriver, uROIndyTCPServer;
+
+type
+  TBriefcaseModelServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    SessionManager: TROInMemorySessionManager;
+    DataDictionary: TDADataDictionary;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BriefcaseModelServerDataModule: TBriefcaseModelServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TBriefcaseModelServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerMain.dfm
new file mode 100644
index 0000000..406f003
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerMain.dfm	
@@ -0,0 +1,21 @@
+object BriefcaseModelServerMainForm: TBriefcaseModelServerMainForm
+  Left = 185
+  Top = 138
+  BorderStyle = bsDialog
+  Caption = 'Briefcase Model Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerMain.pas
new file mode 100644
index 0000000..269ea1a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelServerMain.pas	
@@ -0,0 +1,25 @@
+unit BriefcaseModelServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TBriefcaseModelServerMainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BriefcaseModelServerMainForm: TBriefcaseModelServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelService_Impl.dfm
new file mode 100644
index 0000000..786a369
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelService_Impl.dfm	
@@ -0,0 +1,500 @@
+object BriefcaseModelService: TBriefcaseModelService
+  OldCreateOrder = True
+  SessionManager = BriefcaseModelServerDataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Left = 196
+  Top = 147
+  Height = 164
+  Width = 174
+  object Schema: TDASchema
+    ConnectionManager = BriefcaseModelServerDataModule.ConnectionManager
+    DataDictionary = BriefcaseModelServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            Default = True
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            Default = True
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'  FROM'#10' ' +
+              '   Orders'#10#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            LogChanges = False
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DefaultValue = '0'
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <
+      item
+        Name = 'FK_Orders_Customers'
+        MasterDatasetName = 'Customers'
+        MasterFields = 'CustomerID'
+        DetailDatasetName = 'Orders'
+        DetailFields = 'CustomerID'
+        RelationshipType = rtForeignKey
+      end>
+    UpdateRules = <>
+    Version = 0
+    Left = 32
+    Top = 56
+  end
+  object DataStreamer: TDABinDataStreamer
+    BufferSize = 262144
+    IsCompatibleV4 = True
+    Left = 32
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelService_Impl.pas
new file mode 100644
index 0000000..5600ede
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/BriefcaseModelService_Impl.pas	
@@ -0,0 +1,48 @@
+unit BriefcaseModelService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} BriefcaseModelLibrary_Intf, uDADataStreamer, uDABinAdapter,
+  uDAClasses;
+
+type
+  { TBriefcaseModelService }
+  TBriefcaseModelService = class(TDataAbstractService, IBriefcaseModelService)
+    DataStreamer: TDABinDataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { IBriefcaseModelService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} BriefcaseModelLibrary_Invk,BriefcaseModelServerData;
+
+procedure Create_BriefcaseModelService(out anInstance : IUnknown);
+begin
+  anInstance := TBriefcaseModelService.Create(nil);
+end;
+
+{ BriefcaseModelService }
+initialization
+  TROClassFactory.Create('BriefcaseModelService', Create_BriefcaseModelService, TBriefcaseModelService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/RODLFILE.res
new file mode 100644
index 0000000..8e8bd7e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Briefcase/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BizSchemaClient.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BizSchemaClient.pas
new file mode 100644
index 0000000..f58294f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BizSchemaClient.pas	
@@ -0,0 +1,171 @@
+unit BizSchemaClient;
+
+interface
+uses
+  Classes,
+  SchemaClient_Intf;
+
+type
+  IBizCustomers = interface(ICustomers)
+    ['{63BAECDD-6091-4A86-BA58-E6FFD5330240}']
+  end;
+
+  TBizCustomersDataTableRules = class(TCustomersDataTableRules, IBizCustomers)
+  end;
+
+  IBizOrders = interface(IOrders)
+    ['{E43D1B71-EEF0-4805-9F1E-EE032353BD0F}']
+  end;
+
+  TBizOrdersDataTableRules = class(TOrdersDataTableRules, IBizOrders)
+  end;
+
+  TBizErrorMessageItem = class
+  public
+    Field: string;
+    ErrorMessage: string;
+  end;
+
+  TBizErrorMessage = class
+  private
+    FMessage: string;
+    FList: TList;
+    function GetItems(Index: integer): TBizErrorMessageItem;
+    function GetCount: integer;
+    function GetAsString: string;
+    procedure SetAsString(const Value: string);
+  public
+    constructor Create;
+    destructor Destroy; override;
+    function Add(AField: string; AErrorMessage: string): integer;
+    procedure Clear;
+    property ItemCount: integer read GetCount;
+    property Message: string read FMessage write FMessage;
+    property Items[Index: integer]: TBizErrorMessageItem read GetItems;
+    property AsString: string read GetAsString write SetAsString;
+  end;
+
+implementation
+
+uses uDADataTable, Variants;
+
+{ TBizErrorMessage }
+
+function TBizErrorMessage.Add(AField: string; AErrorMessage: string): integer;
+var
+  Aitem: TBizErrorMessageItem;
+begin
+  Aitem := TBizErrorMessageItem.Create;
+  Aitem.Field := AField;
+  Aitem.ErrorMessage := AErrorMessage;
+  Result := FList.Add(AItem);
+end;
+
+procedure TBizErrorMessage.Clear;
+var
+  i: integer;
+begin
+  for i := 0 to Flist.Count - 1 do
+    TBizErrorMessageItem(FList[i]).Free;
+  FList.Clear;
+end;
+
+constructor TBizErrorMessage.Create;
+begin
+  inherited;
+  FList := TList.Create;
+end;
+
+destructor TBizErrorMessage.Destroy;
+begin
+  Clear;
+  Flist.Free;
+  inherited;
+end;
+
+function TBizErrorMessage.GetAsString: string;
+
+  procedure WriteStringToStream(Str: string; Stream: TMemoryStream);
+  var
+    size: LongInt;
+  begin
+    size := Length(Str)*sizeof(char);
+    stream.Write(size, Sizeof(LongInt));
+    stream.Write(Str[1], size);
+  end;
+
+var
+  Stream: TMemoryStream;
+  cnt: integer;
+  i: integer;
+begin
+  Stream := TMemoryStream.Create();
+  try
+    cnt := Length(Message);
+    i := Stream.Write(Message[1], cnt*SizeOf(char));
+    i := 0;
+    stream.Write(i, sizeof(i));
+    cnt := GetCount;
+    stream.Write(cnt, SizeOf(cnt));
+    for i := 0 to cnt - 1 do
+      with Items[i] do begin
+        WriteStringToStream(Field, Stream);
+        WriteStringToStream(ErrorMessage, Stream);
+      end;
+    SetLength(Result, Stream.Size div sizeof(char));
+    Stream.Seek(0, soFromBeginning);
+    i := Stream.Read(Result[1], Stream.Size);
+  finally
+    Stream.Free;
+  end;
+end;
+
+function TBizErrorMessage.GetCount: integer;
+begin
+  Result := FList.Count;
+end;
+
+function TBizErrorMessage.GetItems(Index: integer): TBizErrorMessageItem;
+begin
+  Result := TBizErrorMessageItem(FList[Index]);
+end;
+
+procedure TBizErrorMessage.SetAsString(const Value: string);
+
+  function ReadStringToStream(Stream: TMemoryStream): string;
+  var
+    Size: LongInt;
+  begin
+    stream.Read(size, Sizeof(size));
+    SetLength(result, Size div SizeOf(char));
+    stream.Read(Result[1], size);
+  end;
+
+var
+  Stream: TMemoryStream;
+  i, cnt: integer;
+begin
+  Clear;
+  Stream := TMemoryStream.Create();
+  cnt := Length(Value)*SizeOf(char);
+  Stream.Write(Value[1], cnt);
+  try
+    Message := Pchar(Value);
+    if Stream.Size < Length(Message)*SizeOf(char) + sizeof(integer) then exit;
+    Stream.Seek(Length(Message)*SizeOf(char) + sizeof(integer), soFromBeginning);
+    stream.Read(cnt, SizeOf(cnt));
+    for i := 0 to cnt - 1 do
+      with Items[Add('', '')] do begin
+        Field := ReadStringToStream(Stream);
+        ErrorMessage := ReadStringToStream(Stream);
+      end;
+  finally
+    Stream.Free;
+  end;
+end;
+
+initialization
+  RegisterDataTableRules('Customers.ClientRules', TBizCustomersDataTableRules);
+  RegisterDataTableRules('Orders.ClientRules', TBizOrdersDataTableRules);
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BizSchemaServer.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BizSchemaServer.pas
new file mode 100644
index 0000000..708c409
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BizSchemaServer.pas	
@@ -0,0 +1,128 @@
+unit BizSchemaServer;
+
+interface
+
+uses Classes, SysUtils, uDADataTable, uDABusinessProcessor,
+  SchemaServer_Intf, BizSchemaClient, uDADelta, uDAInterfaces;
+
+type
+  TBizCustomersServerRules = class(TCustomersBusinessProcessorRules)
+  protected
+    // Business events
+    procedure BeforeProcessChange(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; var ProcessChange: boolean); override;
+    procedure ProcessError(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange;
+      const aCommand: IDASQLCommand; var CanRemoveFromDelta: boolean; Error: Exception); override;
+  end;
+
+  TBizOrdersServerRules = class(TOrdersBusinessProcessorRules)
+  protected
+    // Business events
+    procedure BeforeProcessChange(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; var ProcessChange: boolean); override;
+    procedure ProcessError(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange;
+      const aCommand: IDASQLCommand; var CanRemoveFromDelta: boolean; Error: Exception); override;
+
+  end;
+
+implementation
+uses
+  ServerGlobal, dialogs;
+{ TBizCustomersServerRules }
+
+function CheckCustomer(CustID: string): boolean;
+var
+  i: integer;
+begin
+  Result := False;
+  if Length(CustID) <> 5 then Exit;
+  for i := 1 to Length(CustID) do
+    if not (CustID[i] in ['A'..'Z', 'a'..'z']) then Exit;
+  Result := True;
+end;
+
+procedure TBizCustomersServerRules.BeforeProcessChange(Sender: TDABusinessProcessor;
+  aChangeType: TDAChangeType; aChange: TDADeltaChange; var ProcessChange: boolean);
+begin
+  inherited;
+  aChange.Message := '';
+  if (aChangeType = ctInsert) then begin
+    with TBizErrorMessage.Create do try
+      if gCheckCustomerID and not checkCustomer(CustomerID) then
+        Add('CustomerID', 'CustomerID needs at least 5 characters');
+      if gCompanyCheck and not SameText(CompanyName, gCompany) then
+        Add('CompanyName', 'Company name should be ' + gCompany);
+    finally
+      if ItemCount > 0 then begin
+        Message := 'Cannot process an insert ' + sLineBreak +
+          '(Customer = ''' + CustomerID + ''')';
+        aChange.Message := asString;
+      end;
+      Free;
+    end;
+  end;
+
+  if (aChangeType = ctDelete) and gDeclineDeleteCustomers then begin
+    with TBizErrorMessage.Create do try
+      Message := 'Deleting of customers is not allowed ' + sLineBreak +
+        '(Customer = ''' + OldCustomerID + ''')';
+      aChange.Message := asString;
+    finally
+      Free;
+    end;
+  end;
+  ProcessChange := aChange.Message = '';
+  if not ProcessChange then aChange.Status := csFailed;
+end;
+
+procedure TBizCustomersServerRules.ProcessError(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; const aCommand: IDASQLCommand;
+  var CanRemoveFromDelta: boolean; Error: Exception);
+begin
+  aChange.Message := Error.Message;
+end;
+
+{ TBizOrdersServerRules }
+
+procedure TBizOrdersServerRules.BeforeProcessChange(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; var ProcessChange: boolean);
+begin
+  inherited;
+  aChange.Message := '';
+  if aChangeType <> ctDelete then
+    if gFreightCheck and (Freight < gFreight) then begin
+      with TBizErrorMessage.Create do try
+        Message := 'Cannot process operation ' + sLineBreak + '(OrderID = ' + intToStr(OrderID) + ')';
+        Add('Freight', 'Freight should be greater than ' + IntToStr(gFreight));
+        aChange.Message := asString;
+      finally
+        Free;
+      end;
+    end;
+  if (aChangeType = ctDelete) and gDeclineDeleteOrders then begin
+    with TBizErrorMessage.Create do try
+      Message := 'Deleting of orders is not allowed ' + sLineBreak +
+        '(OrderID = ''' + IntToStr(OldOrderID) + ''')';
+      aChange.Message := asString;
+    finally
+      Free;
+    end;
+  end;
+  ProcessChange := aChange.Message = '';
+  if not ProcessChange then aChange.Status := csFailed;
+end;
+
+procedure TBizOrdersServerRules.ProcessError(Sender: TDABusinessProcessor;
+  aChangeType: TDAChangeType; aChange: TDADeltaChange;
+  const aCommand: IDASQLCommand; var CanRemoveFromDelta: boolean;
+  Error: Exception);
+begin
+  aChange.Message := Error.Message;
+  aChange.Status := csFailed;
+end;
+
+initialization
+  RegisterBusinessProcessorRules('Customers.ServerRules', TBizCustomersServerRules);
+  RegisterBusinessProcessorRules('Orders.ServerRules', TBizOrdersServerRules);
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.Sample.html
new file mode 100644
index 0000000..3a99fee
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.Sample.html	
@@ -0,0 +1,35 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Business Processor sample</span> 
+</p>
+
+<h2>Purpose</h2>
+
+<p>
+  This is a good example to show the advantages of a multi-tier architecture: systems can be updated via a server re-deploy without the need to update any client. Also,
+    the sample shows advanced handling on the client of any errors returned from the
+    server.
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   <b>BizSchemaServer.pas</b>: this unit contains the business rules handlers for the server application.
+	</li>
+	<li>
+	   <b>BizSchemaClient.pas</b>: this unit contains the business rules handlers for the client application.<br>
+	</li>
+</ul>
+
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.bdsgroup
new file mode 100644
index 0000000..f4f1dd2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{F5074962-16BE-403D-A040-81B66B387996}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="BusinessProcessorServer.exe">BusinessProcessorServer.bdsproj</Projects>
+      <Projects Name="BusinessProcessorClient.exe">BusinessProcessorClient.bdsproj</Projects>
+      <Projects Name="Targets">BusinessProcessorServer.exe BusinessProcessorClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.bpg
new file mode 100644
index 0000000..ed4c7cc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = BusinessProcessorServer.exe BusinessProcessorClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+BusinessProcessorServer.exe: BusinessProcessorServer.dpr
+  $(DCC)
+
+BusinessProcessorClient.exe: BusinessProcessorClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.groupproj
new file mode 100644
index 0000000..2cdc078
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessor.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e64b5502-8847-4dd5-8e67-4e6d0176cf50}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="BusinessProcessorServer">
+    <MSBuild Projects="BusinessProcessorServer.dproj" Targets="" />
+  </Target>
+  <Target Name="BusinessProcessorServer:Clean">
+    <MSBuild Projects="BusinessProcessorServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="BusinessProcessorServer:Make">
+    <MSBuild Projects="BusinessProcessorServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="BusinessProcessorClient">
+    <MSBuild Projects="BusinessProcessorClient.dproj" Targets="" />
+  </Target>
+  <Target Name="BusinessProcessorClient:Clean">
+    <MSBuild Projects="BusinessProcessorClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="BusinessProcessorClient:Make">
+    <MSBuild Projects="BusinessProcessorClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="BusinessProcessorServer;BusinessProcessorClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="BusinessProcessorServer:Clean;BusinessProcessorClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="BusinessProcessorServer:Make;BusinessProcessorClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.bdsproj
new file mode 100644
index 0000000..22248ef
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{6B208CB8-98D9-44F2-A556-E88D6F03DE32}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">BusinessProcessorClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.dpr
new file mode 100644
index 0000000..67f0b32
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.dpr	
@@ -0,0 +1,20 @@
+program BusinessProcessorClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  BusinessProcessorClientMain in 'BusinessProcessorClientMain.pas' {BusinessProcessorClientMainForm},
+  BusinessProcessorClientData in 'BusinessProcessorClientData.pas' {BusinessProcessorClientDataModule: TDAClientDataModule},
+  BizSchemaClient in 'BizSchemaClient.pas',
+  BusinessProcessorClientUnit1 in 'BusinessProcessorClientUnit1.pas' {BusinessProcessorClientForm2};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TBusinessProcessorClientDataModule, BusinessProcessorClientDataModule);
+  Application.CreateForm(TBusinessProcessorClientMainForm, BusinessProcessorClientMainForm);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.dproj
new file mode 100644
index 0000000..3259704
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.dproj	
@@ -0,0 +1,85 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{701a77fa-871d-41bc-ab21-ba2b8d978e5b}</ProjectGuid>
+    <MainSource>BusinessProcessorClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>BusinessProcessorClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">BusinessProcessorClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="BusinessProcessorClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BizSchemaClient.pas" />
+    <DCCReference Include="BusinessProcessorClientData.pas">
+      <Form>BusinessProcessorClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="BusinessProcessorClientMain.pas">
+      <Form>BusinessProcessorClientMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="BusinessProcessorClientUnit1.pas">
+      <Form>BusinessProcessorClientForm2</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientData.dfm
new file mode 100644
index 0000000..a7e6ea9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientData.dfm	
@@ -0,0 +1,422 @@
+object BusinessProcessorClientDataModule: TBusinessProcessorClientDataModule
+  OldCreateOrder = True
+  Left = 345
+  Top = 206
+  Height = 266
+  Width = 184
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'BusinessProcessorService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABinDataStreamer
+    BufferSize = 262144
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    FailureBehavior = fbShowReconcile
+    OnGenerateRecordMessage = RemoteDataAdapterGenerateRecordMessage
+    OnShowReconcileRecordInAppUI = RemoteDataAdapterShowReconcileRecordInAppUI
+    Left = 40
+    Top = 184
+  end
+  object tbl_Customers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactName'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Fax'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    BusinessRulesID = 'Customers.ClientRules'
+    IndexDefs = <>
+    Left = 89
+    Top = 100
+  end
+  object ds_Customers: TDADataSource
+    DataSet = tbl_Customers.Dataset
+    DataTable = tbl_Customers
+    Left = 118
+    Top = 99
+  end
+  object tbl_Orders: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        LogChanges = False
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'EmployeeID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RequiredDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShippedDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipVia'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Freight'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DefaultValue = '0'
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipAddress'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCity'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipRegion'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipPostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCountry'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        Value = 'ALFKI'
+        ParamType = daptUnknown
+      end>
+    MasterParamsMappings.Strings = (
+      'CustomerID=CustomerID')
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    MasterSource = ds_Customers
+    MasterFields = 'CustomerID'
+    DetailFields = 'CustomerID'
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Orders'
+    BusinessRulesID = 'Orders.ClientRules'
+    IndexDefs = <>
+    Left = 99
+    Top = 151
+  end
+  object ds_Orders: TDADataSource
+    DataSet = tbl_Orders.Dataset
+    DataTable = tbl_Orders
+    Left = 128
+    Top = 149
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientData.pas
new file mode 100644
index 0000000..9f96a19
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientData.pas	
@@ -0,0 +1,86 @@
+unit BusinessProcessorClientData;
+
+interface
+
+uses
+  {vcl:} SysUtils, Classes, DB, DBClient, Variants,
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  {Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
+  uDADataStreamer, uDARemoteDataAdapter, uDAScriptingProvider,
+  uDACDSDataTable, uDADelta;
+
+type
+  TBusinessProcessorClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABinDataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Customers: TDACDSDataTable;
+    ds_Customers: TDADataSource;
+    tbl_Orders: TDACDSDataTable;
+    ds_Orders: TDADataSource;
+    procedure RemoteDataAdapterGenerateRecordMessage(Sender: TObject;
+      aChange: TDADeltaChange; ADatatable: TDADataTable;
+      var aMessage: string);
+    procedure RemoteDataAdapterShowReconcileRecordInAppUI(Sender: TObject;
+      aChange: TDADeltaChange; aDatatable: TDADataTable;
+      var aHandled: Boolean; var aAction: TDAReconcileDialogAction);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BusinessProcessorClientDataModule: TBusinessProcessorClientDataModule;
+
+implementation
+uses BusinessProcessorClientUnit1;
+{$R *.dfm}
+
+procedure TBusinessProcessorClientDataModule.RemoteDataAdapterGenerateRecordMessage(
+  Sender: TObject; aChange: TDADeltaChange; ADatatable: TDADataTable;
+  var aMessage: string);
+var
+  i: integer;
+begin
+  aMessage := 'A problem occured while ';
+  case achange.ChangeType of
+    ctInsert: aMessage := aMessage + 'inserting';
+    ctUpdate: aMessage := aMessage + 'updating';
+    ctDelete: aMessage := aMessage + 'deleting';
+  end;
+  aMessage := aMessage + ' a record in table "' + ADatatable.LogicalName + '"';
+  if ADatatable = tbl_Customers then begin
+    aMessage := aMessage + ' , CustomerID = ''';
+    if aChange.ChangeType = ctInsert then
+      aMessage := aMessage + VarToStr(aChange.NewValueByName['CustomerID']) + ''''
+    else
+      aMessage := aMessage + VarToStr(aChange.OldValueByName['CustomerID']) + '''';
+  end
+  else begin
+    aMessage := aMessage + ' , OrderID = ''';
+    if aChange.ChangeType = ctInsert then
+      aMessage := aMessage + VarToStr(aChange.NewValueByName['OrderID']) + ''''
+    else
+      aMessage := aMessage + VarToStr(aChange.OldValueByName['OrderID']) + '''';
+  end;
+
+  i := pos(sLineBreak, aChange.Message);
+  if i = 0 then
+    aMessage := aMessage + sLineBreak + sLineBreak + aChange.Message
+  else
+    aMessage := aMessage + sLineBreak + sLineBreak + copy(aChange.Message, 1, i - 1);
+end;
+
+procedure TBusinessProcessorClientDataModule.RemoteDataAdapterShowReconcileRecordInAppUI(
+  Sender: TObject; aChange: TDADeltaChange; aDatatable: TDADataTable;
+  var aHandled: Boolean; var aAction: TDAReconcileDialogAction);
+begin
+  BusinessProcessorClientUnit1.ReconcileDialogShowDetails(aChange, ADatatable, AAction);
+  AHandled := True;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientMain.dfm
new file mode 100644
index 0000000..3078e36
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientMain.dfm	
@@ -0,0 +1,130 @@
+object BusinessProcessorClientMainForm: TBusinessProcessorClientMainForm
+  Left = 320
+  Top = 215
+  AutoScroll = False
+  Caption = 'BusinessProcessor Client'
+  ClientHeight = 414
+  ClientWidth = 624
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 266
+    Width = 624
+    Height = 3
+    Cursor = crVSplit
+    Align = alBottom
+  end
+  object gCustomers: TDBGrid
+    Left = 0
+    Top = 58
+    Width = 624
+    Height = 208
+    Align = alClient
+    DataSource = BusinessProcessorClientDataModule.ds_Customers
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object dbnCustomers: TDBNavigator
+    Left = 0
+    Top = 33
+    Width = 624
+    Height = 25
+    DataSource = BusinessProcessorClientDataModule.ds_Customers
+    Align = alTop
+    TabOrder = 1
+  end
+  object Button1: TButton
+    Left = 13
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'Open'
+    TabOrder = 2
+    OnClick = Button1Click
+  end
+  object Button2: TButton
+    Left = 91
+    Top = 7
+    Width = 75
+    Height = 25
+    Caption = 'Button2'
+    TabOrder = 3
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 624
+    Height = 33
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 4
+    object ApplyUpdateButton: TButton
+      Left = 92
+      Top = 6
+      Width = 74
+      Height = 25
+      Caption = 'Apply Update'
+      TabOrder = 0
+      OnClick = ApplyUpdateButtonClick
+    end
+    object OpenButton: TButton
+      Left = 13
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 1
+      OnClick = Button1Click
+    end
+    object CreateCustomerButton: TButton
+      Left = 222
+      Top = 6
+      Width = 95
+      Height = 25
+      Caption = 'Create customer'
+      TabOrder = 2
+      OnClick = CreateCustomerButtonClick
+    end
+    object CreateOrderButton: TButton
+      Left = 322
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = 'Create order'
+      TabOrder = 3
+      OnClick = CreateOrderButtonClick
+    end
+  end
+  object gOrders: TDBGrid
+    Left = 0
+    Top = 269
+    Width = 624
+    Height = 120
+    Align = alBottom
+    DataSource = BusinessProcessorClientDataModule.ds_Orders
+    TabOrder = 5
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object dbnOrders: TDBNavigator
+    Left = 0
+    Top = 389
+    Width = 624
+    Height = 25
+    DataSource = BusinessProcessorClientDataModule.ds_Orders
+    Align = alBottom
+    TabOrder = 6
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientMain.pas
new file mode 100644
index 0000000..7da77cd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientMain.pas	
@@ -0,0 +1,77 @@
+unit BusinessProcessorClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ExtCtrls,
+  DBCtrls, Grids, DBGrids;
+
+type
+  TBusinessProcessorClientMainForm = class(TForm)
+    gCustomers: TDBGrid;
+    dbnCustomers: TDBNavigator;
+    Button1: TButton;
+    Button2: TButton;
+    Panel1: TPanel;
+    ApplyUpdateButton: TButton;
+    OpenButton: TButton;
+    gOrders: TDBGrid;
+    dbnOrders: TDBNavigator;
+    Splitter1: TSplitter;
+    CreateCustomerButton: TButton;
+    CreateOrderButton: TButton;
+    procedure Button1Click(Sender: TObject);
+    procedure ApplyUpdateButtonClick(Sender: TObject);
+    procedure CreateCustomerButtonClick(Sender: TObject);
+    procedure CreateOrderButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BusinessProcessorClientMainForm: TBusinessProcessorClientMainForm;
+
+implementation
+
+uses
+  BusinessProcessorClientData, BizSchemaClient, SchemaClient_Intf;
+
+{$R *.dfm}
+
+procedure TBusinessProcessorClientMainForm.Button1Click(Sender: TObject);
+begin
+  with BusinessProcessorClientDataModule.tbl_Customers do
+    Active := not Active;
+end;
+
+procedure TBusinessProcessorClientMainForm.ApplyUpdateButtonClick(Sender: TObject);
+begin
+  with BusinessProcessorClientDataModule.tbl_Customers do
+    ApplyUpdates();
+end;
+
+procedure TBusinessProcessorClientMainForm.CreateCustomerButtonClick(Sender: TObject);
+begin
+  with BusinessProcessorClientDataModule.tbl_Customers as IBizCustomers do begin
+    Insert;
+    CustomerID := 'test';
+    CompanyName := 'test company';
+    Post;
+  end;
+end;
+
+procedure TBusinessProcessorClientMainForm.CreateOrderButtonClick(Sender: TObject);
+begin
+  with BusinessProcessorClientDataModule.tbl_Orders as IBizOrders do begin
+    Insert;
+    OrderID := 1;
+    Freight := 10;
+    Post;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit1.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit1.dfm
new file mode 100644
index 0000000..6f0b690
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit1.dfm	
@@ -0,0 +1,82 @@
+object BusinessProcessorClientForm2: TBusinessProcessorClientForm2
+  Left = 358
+  Top = 217
+  Width = 490
+  Height = 298
+  BorderIcons = [biSystemMenu]
+  Caption = 'Show Details'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ScrollBox: TScrollBox
+    Left = 0
+    Top = 148
+    Width = 482
+    Height = 85
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    TabOrder = 0
+  end
+  object BottomPanel: TPanel
+    Left = 0
+    Top = 233
+    Width = 482
+    Height = 32
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    DesignSize = (
+      482
+      32)
+    object OkButton: TButton
+      Left = 225
+      Top = 4
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = '&Ok'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+      OnClick = OkButtonClick
+    end
+    object CancelButton: TButton
+      Left = 304
+      Top = 4
+      Width = 95
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = '&Cancel Change'
+      ModalResult = 2
+      TabOrder = 1
+      OnClick = CancelButtonClick
+    end
+    object CloseButton: TButton
+      Left = 404
+      Top = 4
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = 'Close'
+      ModalResult = 7
+      TabOrder = 2
+      OnClick = CancelButtonClick
+    end
+  end
+  object TopPanel: TPanel
+    Left = 0
+    Top = 0
+    Width = 482
+    Height = 148
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit1.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit1.pas
new file mode 100644
index 0000000..2fb5535
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit1.pas	
@@ -0,0 +1,298 @@
+unit BusinessProcessorClientUnit1;
+
+interface
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, uDADataAdapter,
+  Dialogs, StdCtrls, ExtCtrls, uDADelta, uDADataTable, DB, BizSchemaClient, uDARemoteDataAdapter;
+
+type
+  TBusinessProcessorClientForm2 = class(TForm)
+    ScrollBox: TScrollBox;
+    BottomPanel: TPanel;
+    TopPanel: TPanel;
+    OkButton: TButton;
+    CancelButton: TButton;
+    CloseButton: TButton;
+    procedure FormCreate(Sender: TObject);
+    procedure OkButtonClick(Sender: TObject);
+    procedure CancelButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+    dbeditHeight, labelheight: integer;
+    FChange: TDADeltaChange;
+    Datasource: TDADataSource;
+    procedure Setup;
+    procedure GenerateControls;
+    procedure ApplyErrorMessage(BizErrorMessage: TBizErrorMessage);
+    procedure OnFieldValueChanged(Sender: TObject);    
+  public
+    { Public declarations }
+
+  end;
+
+procedure ReconcileDialogShowDetails(AChange: TDADeltaChange; aTable: TDADataTable;var AAction: TDAReconcileDialogAction);
+implementation
+uses
+  uDAInterfaces, uROClasses, dbCtrls;
+{$R *.dfm}
+
+const
+  labelWidth = 100;
+  editWidth = 200;
+  c_Color: TColor = clMoneyGreen;
+
+procedure ReconcileDialogShowDetails(AChange: TDADeltaChange; aTable: TDADataTable;var AAction: TDAReconcileDialogAction);
+var
+  FFiltered: Boolean;
+  FMasterDS: TDADataSource;
+  FRemoteFetchEnabled: Boolean;
+  FMasterFields: string;
+begin
+  with TBusinessProcessorClientForm2.Create(Application) do try
+    FChange := AChange;
+    FFiltered := ATable.Filtered;
+    FMasterDS := aTable.MasterSource;
+    FMasterFields := aTable.MasterFields;
+    FRemoteFetchEnabled := aTable.RemoteFetchEnabled;
+    try
+      ATable.Filtered := False;
+      aTable.MasterSource := nil;
+      aTable.MasterFields := '';
+      aTable.RemoteFetchEnabled := False;
+      DataSource.DataTable := aTable;
+      Setup;
+      case ShowModal() of
+        mrOk: AAction := rdlgSkip;
+        mrCancel: AAction := rdlgCancel;
+        else AAction := rdlgNone;
+      end;
+    finally
+      aTable.RemoteFetchEnabled := FRemoteFetchEnabled;
+      aTable.Filtered := FFiltered;
+      aTable.MasterSource := FMasterDS;
+      aTable.MasterFields := FMasterFields
+    end;
+  finally
+    Release;
+  end;
+end;
+
+{ TShowDetailsForm }
+
+procedure TBusinessProcessorClientForm2.Setup;
+var
+  BizErrorMessage: TBizErrorMessage;
+begin
+  if FChange.ChangeType <> ctDelete then
+    with DataSource.DataTable do
+      if not Locate(RecIDFieldName, FChange.RecID, []) then RaiseError('Couldn''t find record #' + FormatRecIDString(FChange.RecID));
+  GenerateControls;
+  BizErrorMessage := TBizErrorMessage.Create;
+  try
+    BizErrorMessage.AsString := FChange.Message;
+    ApplyErrorMessage(BizErrorMessage);
+  finally
+    BizErrorMessage.Free;
+  end;
+
+  if Screen.Height > Self.Height + (ScrollBox.VertScrollBar.Range - ScrollBox.Height) then
+    Self.Height := Self.Height + (ScrollBox.VertScrollBar.Range - ScrollBox.Height)
+  else
+    Self.Height := Screen.Height;
+  case FChange.ChangeType of
+    ctInsert: OkButton.Caption := 'Skip';
+    ctUpdate: OkButton.Caption := 'Skip';
+    ctDelete: OkButton.Caption := 'Skip';
+  end;
+end;
+
+procedure TBusinessProcessorClientForm2.GenerateControls;
+var
+  i: integer;
+  aField: string;
+  aTop, aleft: integer;
+  FLabel: TLabel;
+  FdbEdit: TDBEdit;
+  FEdit: TEdit;
+begin
+  aleft := 7;
+  aTop := 7;
+  for i := 0 to FChange.Delta.LoggedFieldCount - 1 do begin
+    aField := FChange.Delta.LoggedFieldNames[i];
+    aTop := 7 + (3 + dbeditHeight) * i;
+    aleft := 7;
+
+    FLabel := TLabel.Create(Self);
+    with FLabel do begin
+      Parent := ScrollBox;
+      Name := 'l_' + aField;
+      Caption := aField;
+      Left := aleft;
+      Top := (dbeditHeight - Height) div 2 + aTop + 1;
+      Width := labelWidth;
+      aleft := aleft + 7 + labelWidth;
+    end;
+
+    if FChange.ChangeType in [ctInsert, ctUpdate] then begin
+      if Self.DataSource.DataTable.FieldByName(aField).DataType = datBlob then begin
+        FEdit := TEdit.Create(Self);
+        with FEdit do begin
+          Name := 'dbe_' + aField;
+          Parent := ScrollBox;
+          Left := aleft;
+          aleft := aleft + 7 + editWidth;
+          Top := aTop;
+          Width := editWidth;
+          ReadOnly := True;
+          Text := '[blob]';
+        end;
+      end
+      else begin
+        FdbEdit := TDBEdit.Create(Self);
+        with FdbEdit do begin
+          Name := 'dbe_' + aField;
+          DataSource := Self.DataSource;
+          Parent := ScrollBox;
+          DataField := aField;
+          Left := aleft;
+          Top := aTop;
+          Width := editWidth;
+          OnChange := OnFieldValueChanged;          
+          aleft := aleft + 7 + editWidth;
+          if (FChange.ChangeType = ctUpdate) and
+            not ROVariantsEqual(FChange.OldValues[i], FChange.NewValues[i]) then
+            Color := c_Color;
+        end;
+      end;
+    end;
+
+    if FChange.ChangeType in [ctUpdate, ctDelete] then begin
+      FEdit := TEdit.Create(Self);
+      with FEdit do begin
+        Name := 'e_' + aField;
+        Parent := ScrollBox;
+        Left := aleft;
+        aleft := aleft + 7 + editWidth;
+        Top := aTop;
+        Width := editWidth;
+        ReadOnly := True;
+        Color := clBtnFace;
+        if Self.DataSource.DataTable.FieldByName(aField).DataType = datBlob then begin
+          Text := '[blob]'
+        end
+        else begin
+          case FChange.ChangeType of
+            ctDelete: text := VarToStr(FChange.OldValues[i]);
+            ctUpdate: begin
+              if not Self.DataSource.DataTable.HasReducedDelta then
+                text := VarToStr(FChange.OldValues[i])
+              else
+                if not VarIsEmpty(FChange.OldValues[i]) then
+                  text := VarToStr(FChange.OldValues[i])
+                else text :=  Self.DataSource.DataTable.FieldByName(aField).AsString;
+            end;
+          end;
+        end;
+      end;
+    end;
+  end;
+  inc(aTop, 20);
+  inc(aLeft, 7);
+  //ScrollBox.HorzScrollBar.Range := aleft;
+  Self.ClientWidth := aleft + ScrollBox.VertScrollBar.Size + 2;
+  Self.Constraints.MinWidth := Self.Width;
+  Self.Constraints.MaxWidth := Self.Width;
+
+  ScrollBox.VertScrollBar.Range := aTop;
+end;
+
+procedure TBusinessProcessorClientForm2.FormCreate(Sender: TObject);
+begin
+  inherited;
+  with TDBEdit.Create(Self) do try
+    dbeditHeight := Height;
+  finally
+    free;
+  end;
+  with TLabel.Create(Self) do try
+    labelheight := Height;
+  finally
+    free;
+  end;
+  Datasource := TDADataSource.Create(Self);
+end;
+
+procedure TBusinessProcessorClientForm2.OkButtonClick(Sender: TObject);
+begin
+  if DataSource.DataTable.State in [dsEdit, dsInsert] then DataSource.DataTable.Post;
+end;
+
+procedure TBusinessProcessorClientForm2.CancelButtonClick(Sender: TObject);
+begin
+  if DataSource.DataTable.State in [dsEdit, dsInsert] then DataSource.DataTable.Cancel;
+end;
+
+procedure TBusinessProcessorClientForm2.ApplyErrorMessage(
+  BizErrorMessage: TBizErrorMessage);
+var
+  i: integer;
+  FLabel: TLabel;
+  Fcomp: TComponent;
+  aTop: integer;
+begin
+  ShowHint := True;
+  Caption := Datasource.DataTable.LogicalName;
+  FLabel := TLabel.Create(Self);
+  with FLabel do begin
+    Parent := TopPanel;
+    i := pos(sLineBreak, BizErrorMessage.Message);
+    if i = 0 then
+      Caption := BizErrorMessage.Message
+    else
+      Caption := copy(BizErrorMessage.Message, 1, i-1);
+    Hint := Caption;
+    Left := 7;
+    Top := 7;
+    AutoSize := true;
+    WordWrap := True;
+    AutoSize := False;
+    Height:= labelheight * (Width div (Parent.ClientWidth - Left * 2)+1);
+    Width := Parent.ClientWidth - Left * 2;
+{    if BizErrorMessage.ItemCount = 0 then
+      Height := labelheight * 4
+    else
+      Height := labelheight;  }
+    aTop := Height + Top + 3;
+    Anchors := Anchors + [akRight];
+  end;
+
+  for i := 0 to BizErrorMessage.ItemCount - 1 do begin
+    with BizErrorMessage.Items[i] do begin
+      Fcomp := Self.FindComponent('l_' + Field);
+      if Fcomp <> nil then TLabel(Fcomp).Font.Color := clRed;
+
+      FLabel := TLabel.Create(Self);
+      with FLabel do begin
+        Parent := TopPanel;
+        Name := 'error_' + Field;
+        Caption := ErrorMessage;
+        Left := 7;
+        Top := aTop;
+        AutoSize := True;
+        Font.Color := clRed;
+        aTop := Height + Top + 3;
+      end;
+    end;
+  end;
+
+  TopPanel.ClientHeight := aTop;
+end;
+
+procedure TBusinessProcessorClientForm2.OnFieldValueChanged(
+  Sender: TObject);
+begin
+  OkButton.Caption := 'Update';
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit2.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit2.dfm
new file mode 100644
index 0000000..39516bd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit2.dfm	
@@ -0,0 +1,11 @@
+object BusinessProcessorClientForm2: TBusinessProcessorClientForm2
+  Left = 358
+  Top = 217
+  Width = 130
+  Height = 93
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = True
+  PixelsPerInch = 96
+  TextHeight = 13
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit2.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit2.pas
new file mode 100644
index 0000000..e465ad6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorClientUnit2.pas	
@@ -0,0 +1,20 @@
+unit BusinessProcessorClientUnit2;
+
+interface
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;
+
+type
+  TBusinessProcessorClientForm2 = class(TForm)
+  private
+    { Private declarations }
+  public
+
+  end;
+
+procedure ReconcileDialogShowDetails(AChange: TDADeltaChange; aTable: TDADataTable;var AAction: TDAReconcileDialogAction);
+implementation
+
+{$R *.dfm}
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary.RODL
new file mode 100644
index 0000000..60a510d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary.RODL	
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="BusinessProcessorLibrary" UID="{EBAEAB9A-1E78-4BB3-8417-2E226959496F}" Version="3.0">
+<Services>
+<Service Name="BusinessProcessorService" UID="{AB4260DF-BCCA-443A-B981-89EF7EE742F7}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{4404161B-2A9E-4711-AADF-4493AC19BB34}">
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{F9ADB13D-3084-44CA-B4E9-025E98E174BE}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary_Intf.pas
new file mode 100644
index 0000000..2ff6be0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary_Intf.pas	
@@ -0,0 +1,77 @@
+unit BusinessProcessorLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{EBAEAB9A-1E78-4BB3-8417-2E226959496F}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IBusinessProcessorService_IID : TGUID = '{4404161B-2A9E-4711-AADF-4493AC19BB34}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IBusinessProcessorService = interface;
+
+
+
+
+  { IBusinessProcessorService }
+  IBusinessProcessorService = interface(IDataAbstractService)
+    ['{4404161B-2A9E-4711-AADF-4493AC19BB34}']
+  end;
+
+  { CoBusinessProcessorService }
+  CoBusinessProcessorService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBusinessProcessorService;
+  end;
+
+  { TBusinessProcessorService_Proxy }
+  TBusinessProcessorService_Proxy = class(TDataAbstractService_Proxy, IBusinessProcessorService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoBusinessProcessorService }
+
+class function CoBusinessProcessorService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBusinessProcessorService;
+begin
+  result := TBusinessProcessorService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TBusinessProcessorService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'BusinessProcessorService';
+end;
+
+initialization
+  RegisterProxyClass(IBusinessProcessorService_IID, TBusinessProcessorService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IBusinessProcessorService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary_Invk.pas
new file mode 100644
index 0000000..a265b95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorLibrary_Invk.pas	
@@ -0,0 +1,32 @@
+unit BusinessProcessorLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} BusinessProcessorLibrary_Intf;
+
+type
+  TBusinessProcessorService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.bdsproj
new file mode 100644
index 0000000..4053265
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{CF9814E2-631B-4FFA-A943-67792DA5CDC6}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">BusinessProcessorServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.dpr
new file mode 100644
index 0000000..b304ddc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.dpr	
@@ -0,0 +1,27 @@
+program BusinessProcessorServer;
+
+{#ROGEN:BusinessProcessorLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  BusinessProcessorServerMain in 'BusinessProcessorServerMain.pas' {BusinessProcessorServerMainForm},
+  BusinessProcessorServerData in 'BusinessProcessorServerData.pas' {BusinessProcessorServerDataModule: TDataModule},
+  SchemaClient_Intf in 'SchemaClient_Intf.pas',
+  SchemaServer_Intf in 'SchemaServer_Intf.pas',
+  BizSchemaServer in 'BizSchemaServer.pas',
+  ServerGlobal in 'ServerGlobal.pas',
+  BusinessProcessorLibrary_Intf in 'BusinessProcessorLibrary_Intf.pas',
+  BusinessProcessorLibrary_Invk in 'BusinessProcessorLibrary_Invk.pas',
+  BusinessProcessorService_Impl in 'BusinessProcessorService_Impl.pas' {BusinessProcessorService: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TBusinessProcessorServerDataModule, BusinessProcessorServerDataModule);
+  Application.CreateForm(TBusinessProcessorServerMainForm, BusinessProcessorServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.dproj
new file mode 100644
index 0000000..3851a0a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.dproj	
@@ -0,0 +1,90 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{dac310a9-44d2-4920-b4d5-46703300c98d}</ProjectGuid>
+    <MainSource>BusinessProcessorServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>BusinessProcessorServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">BusinessProcessorServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="BusinessProcessorServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BizSchemaServer.pas" />
+    <DCCReference Include="BusinessProcessorLibrary_Intf.pas" />
+    <DCCReference Include="BusinessProcessorLibrary_Invk.pas" />
+    <DCCReference Include="BusinessProcessorServerData.pas">
+      <Form>BusinessProcessorServerDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="BusinessProcessorServerMain.pas">
+      <Form>BusinessProcessorServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="BusinessProcessorService_Impl.pas">
+      <Form>BusinessProcessorService</Form>
+    </DCCReference>
+    <DCCReference Include="SchemaClient_Intf.pas" />
+    <DCCReference Include="SchemaServer_Intf.pas" />
+    <DCCReference Include="ServerGlobal.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerData.dfm
new file mode 100644
index 0000000..5268506
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerData.dfm	
@@ -0,0 +1,60 @@
+object BusinessProcessorServerDataModule: TBusinessProcessorServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 186
+  Top = 136
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI;'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerData.pas
new file mode 100644
index 0000000..871cd5e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerData.pas	
@@ -0,0 +1,42 @@
+unit BusinessProcessorServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAADODriver, uROIndyTCPServer;
+
+type
+  TBusinessProcessorServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+      Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    SessionManager: TROInMemorySessionManager;
+    DataDictionary: TDADataDictionary;
+
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BusinessProcessorServerDataModule: TBusinessProcessorServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TBusinessProcessorServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerMain.dfm
new file mode 100644
index 0000000..c60cbf3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerMain.dfm	
@@ -0,0 +1,105 @@
+object BusinessProcessorServerMainForm: TBusinessProcessorServerMainForm
+  Left = 100
+  Top = 111
+  BorderStyle = bsDialog
+  Caption = 'Business Processor Server'
+  ClientHeight = 170
+  ClientWidth = 380
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 7
+    Top = 7
+    Width = 39
+    Height = 13
+    Caption = 'Checks:'
+  end
+  object GroupBox1: TGroupBox
+    Left = 7
+    Top = 24
+    Width = 365
+    Height = 73
+    Anchors = [akLeft, akTop, akRight]
+    Caption = 'Customers'
+    TabOrder = 0
+    object cbCheckCustomerID: TCheckBox
+      Left = 8
+      Top = 15
+      Width = 321
+      Height = 17
+      Caption = 'New records: CustomerID needs at least 5 characters'
+      TabOrder = 0
+      OnClick = cbCheckCustomerIDClick
+    end
+    object cbDeclineDeleteCustomers: TCheckBox
+      Left = 8
+      Top = 49
+      Width = 216
+      Height = 17
+      Caption = 'Restrict deleting records'
+      TabOrder = 1
+      OnClick = cbDeclineDeleteCustomersClick
+    end
+    object cbCompany: TCheckBox
+      Left = 8
+      Top = 32
+      Width = 228
+      Height = 17
+      Caption = 'New records: Company name for should be '
+      TabOrder = 2
+      OnClick = cbCompanyClick
+    end
+    object eCompany: TEdit
+      Left = 245
+      Top = 30
+      Width = 110
+      Height = 21
+      TabOrder = 3
+      Text = 'Company'
+      OnChange = eCompanyChange
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 7
+    Top = 100
+    Width = 365
+    Height = 60
+    Anchors = [akLeft, akTop, akRight]
+    Caption = 'Orders'
+    TabOrder = 1
+    object cbFreight: TCheckBox
+      Left = 8
+      Top = 15
+      Width = 218
+      Height = 17
+      Caption = 'Freight should be greater than'
+      TabOrder = 0
+      OnClick = cbFreightClick
+    end
+    object cbDeclineDeleteOrders: TCheckBox
+      Left = 8
+      Top = 33
+      Width = 216
+      Height = 17
+      Caption = 'Restrict deleting of orders'
+      TabOrder = 1
+      OnClick = cbDeclineDeleteOrdersClick
+    end
+    object eFreight: TSpinEdit
+      Left = 245
+      Top = 12
+      Width = 110
+      Height = 22
+      MaxValue = 0
+      MinValue = 0
+      TabOrder = 2
+      Value = 0
+      OnChange = eFreightChange
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerMain.pas
new file mode 100644
index 0000000..7d70ed7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorServerMain.pas	
@@ -0,0 +1,96 @@
+unit BusinessProcessorServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, Spin;
+
+type
+  TBusinessProcessorServerMainForm = class(TForm)
+    Label1: TLabel;
+    GroupBox1: TGroupBox;
+    cbCheckCustomerID: TCheckBox;
+    cbDeclineDeleteCustomers: TCheckBox;
+    cbCompany: TCheckBox;
+    eCompany: TEdit;
+    GroupBox2: TGroupBox;
+    cbFreight: TCheckBox;
+    cbDeclineDeleteOrders: TCheckBox;
+    eFreight: TSpinEdit;
+    procedure cbCompanyClick(Sender: TObject);
+    procedure eCompanyChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cbFreightClick(Sender: TObject);
+    procedure eFreightChange(Sender: TObject);
+    procedure cbDeclineDeleteCustomersClick(Sender: TObject);
+    procedure cbDeclineDeleteOrdersClick(Sender: TObject);
+    procedure cbCheckCustomerIDClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BusinessProcessorServerMainForm                  : TBusinessProcessorServerMainForm;
+
+implementation
+uses
+  ServerGlobal;
+{$R *.dfm}
+
+procedure TBusinessProcessorServerMainForm.cbCompanyClick(Sender: TObject);
+begin
+  eCompany.Enabled := cbCompany.Checked;
+  gCompanyCheck := cbCompany.Checked;
+  eCompanyChange(eCompany);
+end;
+
+procedure TBusinessProcessorServerMainForm.eCompanyChange(Sender: TObject);
+begin
+  gCompany := eCompany.Text;
+end;
+
+procedure TBusinessProcessorServerMainForm.FormShow(Sender: TObject);
+begin
+  eCompany.Text := gCompany;
+  eFreight.Value := gFreight;
+  cbCompany.Checked := gCompanyCheck;
+  cbFreight.Checked := gFreightCheck;
+  cbCompanyClick(cbCompany);
+  cbFreightClick(cbFreight);
+  cbDeclineDeleteCustomers.Checked := gDeclineDeleteCustomers;
+  cbDeclineDeleteOrders.Checked := gDeclineDeleteOrders;
+  cbCheckCustomerID.Checked := gCheckCustomerID;
+end;
+
+procedure TBusinessProcessorServerMainForm.cbFreightClick(Sender: TObject);
+begin
+  eFreight.Enabled := cbFreight.Checked;
+  gFreightCheck := cbFreight.Checked;
+  eFreightChange(eFreight);
+end;
+
+procedure TBusinessProcessorServerMainForm.eFreightChange(Sender: TObject);
+begin
+  gFreight := eFreight.Value;
+end;
+
+procedure TBusinessProcessorServerMainForm.cbDeclineDeleteCustomersClick(Sender: TObject);
+begin
+  gDeclineDeleteCustomers := cbDeclineDeleteCustomers.Checked;
+end;
+
+procedure TBusinessProcessorServerMainForm.cbDeclineDeleteOrdersClick(Sender: TObject);
+begin
+  gDeclineDeleteOrders := cbDeclineDeleteOrders.Checked;
+end;
+
+procedure TBusinessProcessorServerMainForm.cbCheckCustomerIDClick(Sender: TObject);
+begin
+  gCheckCustomerID := cbCheckCustomerID.Checked;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorService_Impl.dfm
new file mode 100644
index 0000000..227e306
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorService_Impl.dfm	
@@ -0,0 +1,712 @@
+object BusinessProcessorService: TBusinessProcessorService
+  OldCreateOrder = True
+  SessionManager = BusinessProcessorServerDataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+  object DataStreamer: TDABinDataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = BusinessProcessorServerDataModule.ConnectionManager
+    DataDictionary = BusinessProcessorServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'  FROM'#10' ' +
+              '   Orders'#10'  WHERE'#10'    CustomerID = :CustomerID'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            LogChanges = False
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Customers'
+            SQL = 
+              'INSERT'#10'  INTO Customers'#10'    (CustomerID, CompanyName, ContactNam' +
+              'e, ContactTitle, '#10'     Address, City, Region, PostalCode, Countr' +
+              'y, Phone, '#10'     Fax)'#10'  VALUES'#10'    (:CustomerID, :CompanyName, :C' +
+              'ontactName, :ContactTitle, '#10'     :Address, :City, :Region, :Post' +
+              'alCode, :Country, :Phone, '#10'     :Fax)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_CustomerID'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Customers'
+            SQL = 
+              'DELETE '#10'  FROM'#10'    Customers'#10'  WHERE'#10'    (CustomerID = :OLD_Cust' +
+              'omerID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'OLD_CustomerID'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Customers'
+            SQL = 
+              'UPDATE Customers'#10'  SET '#10'    CustomerID = :CustomerID, '#10'    Compa' +
+              'nyName = :CompanyName, '#10'    ContactName = :ContactName, '#10'    Con' +
+              'tactTitle = :ContactTitle, '#10'    Address = :Address, '#10'    City = ' +
+              ':City, '#10'    Region = :Region, '#10'    PostalCode = :PostalCode, '#10'  ' +
+              '  Country = :Country, '#10'    Phone = :Phone, '#10'    Fax = :Fax'#10'  WHE' +
+              'RE'#10'    (CustomerID = :OLD_CustomerID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Customers'
+      end>
+    RelationShips = <
+      item
+        Name = 'Relationship'
+        MasterDatasetName = 'Customers'
+        MasterFields = 'CustomerID'
+        DetailDatasetName = 'Orders'
+        DetailFields = 'CustomerID'
+      end>
+    UpdateRules = <>
+    Left = 32
+    Top = 56
+  end
+  object bpCustomers: TDABusinessProcessor
+    Schema = Schema
+    InsertCommandName = 'Insert_Customers'
+    DeleteCommandName = 'Delete_Customers'
+    UpdateCommandName = 'Update_Customers'
+    ReferencedDataset = 'Customers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    BusinessRulesID = 'Customers.ServerRules'
+    Left = 76
+    Top = 55
+  end
+  object bpOrders: TDABusinessProcessor
+    Schema = Schema
+    ReferencedDataset = 'Orders'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    BusinessRulesID = 'Orders.ServerRules'
+    Left = 80
+    Top = 98
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorService_Impl.pas
new file mode 100644
index 0000000..f0baff7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/BusinessProcessorService_Impl.pas	
@@ -0,0 +1,50 @@
+unit BusinessProcessorService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} BusinessProcessorLibrary_Intf, uDAScriptingProvider,
+  uDABusinessProcessor, uDAClasses, uDADataStreamer, uDABinAdapter;
+
+type
+  { TBusinessProcessorService }
+  TBusinessProcessorService = class(TDataAbstractService, IBusinessProcessorService)
+    DataStreamer: TDABinDataStreamer;
+    Schema: TDASchema;
+    bpCustomers: TDABusinessProcessor;
+    bpOrders: TDABusinessProcessor;
+  private
+  protected
+    { IBusinessProcessorService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} BusinessProcessorLibrary_Invk,BusinessProcessorServerData;
+
+procedure Create_BusinessProcessorService(out anInstance : IUnknown);
+begin
+  anInstance := TBusinessProcessorService.Create(nil);
+end;
+
+{ BusinessProcessorService }
+initialization
+  TROClassFactory.Create('BusinessProcessorService', Create_BusinessProcessorService, TBusinessProcessorService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/RODLFILE.res
new file mode 100644
index 0000000..6919cc8
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/SchemaClient_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/SchemaClient_Intf.pas
new file mode 100644
index 0000000..e7dda72
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/SchemaClient_Intf.pas	
@@ -0,0 +1,981 @@
+unit SchemaClient_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable;
+
+const
+  { Data table rules ids
+       Feel free to change them to something more human readable
+       but make sure they are unique in the context of your application }
+  RID_Customers = '{A9F7C630-77E0-44A8-B46B-E3EE67954A42}';
+  RID_Orders = '{B5125DCD-A27D-488D-A1A2-4FB5D49D7079}';
+
+  { Data table names }
+  nme_Customers = 'Customers';
+  nme_Orders = 'Orders';
+
+  { Customers fields }
+  fld_CustomersCustomerID = 'CustomerID';
+  fld_CustomersCompanyName = 'CompanyName';
+  fld_CustomersContactName = 'ContactName';
+  fld_CustomersContactTitle = 'ContactTitle';
+  fld_CustomersAddress = 'Address';
+  fld_CustomersCity = 'City';
+  fld_CustomersRegion = 'Region';
+  fld_CustomersPostalCode = 'PostalCode';
+  fld_CustomersCountry = 'Country';
+  fld_CustomersPhone = 'Phone';
+  fld_CustomersFax = 'Fax';
+
+  { Customers field indexes }
+  idx_CustomersCustomerID = 0;
+  idx_CustomersCompanyName = 1;
+  idx_CustomersContactName = 2;
+  idx_CustomersContactTitle = 3;
+  idx_CustomersAddress = 4;
+  idx_CustomersCity = 5;
+  idx_CustomersRegion = 6;
+  idx_CustomersPostalCode = 7;
+  idx_CustomersCountry = 8;
+  idx_CustomersPhone = 9;
+  idx_CustomersFax = 10;
+
+  { Orders fields }
+  fld_OrdersOrderID = 'OrderID';
+  fld_OrdersCustomerID = 'CustomerID';
+  fld_OrdersEmployeeID = 'EmployeeID';
+  fld_OrdersOrderDate = 'OrderDate';
+  fld_OrdersRequiredDate = 'RequiredDate';
+  fld_OrdersShippedDate = 'ShippedDate';
+  fld_OrdersShipVia = 'ShipVia';
+  fld_OrdersFreight = 'Freight';
+  fld_OrdersShipName = 'ShipName';
+  fld_OrdersShipAddress = 'ShipAddress';
+  fld_OrdersShipCity = 'ShipCity';
+  fld_OrdersShipRegion = 'ShipRegion';
+  fld_OrdersShipPostalCode = 'ShipPostalCode';
+  fld_OrdersShipCountry = 'ShipCountry';
+
+  { Orders field indexes }
+  idx_OrdersOrderID = 0;
+  idx_OrdersCustomerID = 1;
+  idx_OrdersEmployeeID = 2;
+  idx_OrdersOrderDate = 3;
+  idx_OrdersRequiredDate = 4;
+  idx_OrdersShippedDate = 5;
+  idx_OrdersShipVia = 6;
+  idx_OrdersFreight = 7;
+  idx_OrdersShipName = 8;
+  idx_OrdersShipAddress = 9;
+  idx_OrdersShipCity = 10;
+  idx_OrdersShipRegion = 11;
+  idx_OrdersShipPostalCode = 12;
+  idx_OrdersShipCountry = 13;
+
+type
+  { ICustomers }
+  ICustomers = interface(IDAStronglyTypedDataTable)
+  ['{AD74260F-B808-430E-85E6-FB469055C068}']
+    { Property getters and setters }
+    function GetCustomerIDValue: WideString;
+    procedure SetCustomerIDValue(const aValue: WideString);
+    function GetCustomerIDIsNull: Boolean;
+    procedure SetCustomerIDIsNull(const aValue: Boolean);
+    function GetCompanyNameValue: WideString;
+    procedure SetCompanyNameValue(const aValue: WideString);
+    function GetCompanyNameIsNull: Boolean;
+    procedure SetCompanyNameIsNull(const aValue: Boolean);
+    function GetContactNameValue: WideString;
+    procedure SetContactNameValue(const aValue: WideString);
+    function GetContactNameIsNull: Boolean;
+    procedure SetContactNameIsNull(const aValue: Boolean);
+    function GetContactTitleValue: WideString;
+    procedure SetContactTitleValue(const aValue: WideString);
+    function GetContactTitleIsNull: Boolean;
+    procedure SetContactTitleIsNull(const aValue: Boolean);
+    function GetAddressValue: WideString;
+    procedure SetAddressValue(const aValue: WideString);
+    function GetAddressIsNull: Boolean;
+    procedure SetAddressIsNull(const aValue: Boolean);
+    function GetCityValue: WideString;
+    procedure SetCityValue(const aValue: WideString);
+    function GetCityIsNull: Boolean;
+    procedure SetCityIsNull(const aValue: Boolean);
+    function GetRegionValue: WideString;
+    procedure SetRegionValue(const aValue: WideString);
+    function GetRegionIsNull: Boolean;
+    procedure SetRegionIsNull(const aValue: Boolean);
+    function GetPostalCodeValue: WideString;
+    procedure SetPostalCodeValue(const aValue: WideString);
+    function GetPostalCodeIsNull: Boolean;
+    procedure SetPostalCodeIsNull(const aValue: Boolean);
+    function GetCountryValue: WideString;
+    procedure SetCountryValue(const aValue: WideString);
+    function GetCountryIsNull: Boolean;
+    procedure SetCountryIsNull(const aValue: Boolean);
+    function GetPhoneValue: WideString;
+    procedure SetPhoneValue(const aValue: WideString);
+    function GetPhoneIsNull: Boolean;
+    procedure SetPhoneIsNull(const aValue: Boolean);
+    function GetFaxValue: WideString;
+    procedure SetFaxValue(const aValue: WideString);
+    function GetFaxIsNull: Boolean;
+    procedure SetFaxIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property CustomerID: WideString read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull: Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property CompanyName: WideString read GetCompanyNameValue write SetCompanyNameValue;
+    property CompanyNameIsNull: Boolean read GetCompanyNameIsNull write SetCompanyNameIsNull;
+    property ContactName: WideString read GetContactNameValue write SetContactNameValue;
+    property ContactNameIsNull: Boolean read GetContactNameIsNull write SetContactNameIsNull;
+    property ContactTitle: WideString read GetContactTitleValue write SetContactTitleValue;
+    property ContactTitleIsNull: Boolean read GetContactTitleIsNull write SetContactTitleIsNull;
+    property Address: WideString read GetAddressValue write SetAddressValue;
+    property AddressIsNull: Boolean read GetAddressIsNull write SetAddressIsNull;
+    property City: WideString read GetCityValue write SetCityValue;
+    property CityIsNull: Boolean read GetCityIsNull write SetCityIsNull;
+    property Region: WideString read GetRegionValue write SetRegionValue;
+    property RegionIsNull: Boolean read GetRegionIsNull write SetRegionIsNull;
+    property PostalCode: WideString read GetPostalCodeValue write SetPostalCodeValue;
+    property PostalCodeIsNull: Boolean read GetPostalCodeIsNull write SetPostalCodeIsNull;
+    property Country: WideString read GetCountryValue write SetCountryValue;
+    property CountryIsNull: Boolean read GetCountryIsNull write SetCountryIsNull;
+    property Phone: WideString read GetPhoneValue write SetPhoneValue;
+    property PhoneIsNull: Boolean read GetPhoneIsNull write SetPhoneIsNull;
+    property Fax: WideString read GetFaxValue write SetFaxValue;
+    property FaxIsNull: Boolean read GetFaxIsNull write SetFaxIsNull;
+  end;
+
+  { TCustomersDataTableRules }
+  TCustomersDataTableRules = class(TDADataTableRules, ICustomers)
+  private
+  protected
+    { Property getters and setters }
+    function GetCustomerIDValue: WideString; virtual;
+    procedure SetCustomerIDValue(const aValue: WideString); virtual;
+    function GetCustomerIDIsNull: Boolean; virtual;
+    procedure SetCustomerIDIsNull(const aValue: Boolean); virtual;
+    function GetCompanyNameValue: WideString; virtual;
+    procedure SetCompanyNameValue(const aValue: WideString); virtual;
+    function GetCompanyNameIsNull: Boolean; virtual;
+    procedure SetCompanyNameIsNull(const aValue: Boolean); virtual;
+    function GetContactNameValue: WideString; virtual;
+    procedure SetContactNameValue(const aValue: WideString); virtual;
+    function GetContactNameIsNull: Boolean; virtual;
+    procedure SetContactNameIsNull(const aValue: Boolean); virtual;
+    function GetContactTitleValue: WideString; virtual;
+    procedure SetContactTitleValue(const aValue: WideString); virtual;
+    function GetContactTitleIsNull: Boolean; virtual;
+    procedure SetContactTitleIsNull(const aValue: Boolean); virtual;
+    function GetAddressValue: WideString; virtual;
+    procedure SetAddressValue(const aValue: WideString); virtual;
+    function GetAddressIsNull: Boolean; virtual;
+    procedure SetAddressIsNull(const aValue: Boolean); virtual;
+    function GetCityValue: WideString; virtual;
+    procedure SetCityValue(const aValue: WideString); virtual;
+    function GetCityIsNull: Boolean; virtual;
+    procedure SetCityIsNull(const aValue: Boolean); virtual;
+    function GetRegionValue: WideString; virtual;
+    procedure SetRegionValue(const aValue: WideString); virtual;
+    function GetRegionIsNull: Boolean; virtual;
+    procedure SetRegionIsNull(const aValue: Boolean); virtual;
+    function GetPostalCodeValue: WideString; virtual;
+    procedure SetPostalCodeValue(const aValue: WideString); virtual;
+    function GetPostalCodeIsNull: Boolean; virtual;
+    procedure SetPostalCodeIsNull(const aValue: Boolean); virtual;
+    function GetCountryValue: WideString; virtual;
+    procedure SetCountryValue(const aValue: WideString); virtual;
+    function GetCountryIsNull: Boolean; virtual;
+    procedure SetCountryIsNull(const aValue: Boolean); virtual;
+    function GetPhoneValue: WideString; virtual;
+    procedure SetPhoneValue(const aValue: WideString); virtual;
+    function GetPhoneIsNull: Boolean; virtual;
+    procedure SetPhoneIsNull(const aValue: Boolean); virtual;
+    function GetFaxValue: WideString; virtual;
+    procedure SetFaxValue(const aValue: WideString); virtual;
+    function GetFaxIsNull: Boolean; virtual;
+    procedure SetFaxIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property CustomerID: WideString read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull: Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property CompanyName: WideString read GetCompanyNameValue write SetCompanyNameValue;
+    property CompanyNameIsNull: Boolean read GetCompanyNameIsNull write SetCompanyNameIsNull;
+    property ContactName: WideString read GetContactNameValue write SetContactNameValue;
+    property ContactNameIsNull: Boolean read GetContactNameIsNull write SetContactNameIsNull;
+    property ContactTitle: WideString read GetContactTitleValue write SetContactTitleValue;
+    property ContactTitleIsNull: Boolean read GetContactTitleIsNull write SetContactTitleIsNull;
+    property Address: WideString read GetAddressValue write SetAddressValue;
+    property AddressIsNull: Boolean read GetAddressIsNull write SetAddressIsNull;
+    property City: WideString read GetCityValue write SetCityValue;
+    property CityIsNull: Boolean read GetCityIsNull write SetCityIsNull;
+    property Region: WideString read GetRegionValue write SetRegionValue;
+    property RegionIsNull: Boolean read GetRegionIsNull write SetRegionIsNull;
+    property PostalCode: WideString read GetPostalCodeValue write SetPostalCodeValue;
+    property PostalCodeIsNull: Boolean read GetPostalCodeIsNull write SetPostalCodeIsNull;
+    property Country: WideString read GetCountryValue write SetCountryValue;
+    property CountryIsNull: Boolean read GetCountryIsNull write SetCountryIsNull;
+    property Phone: WideString read GetPhoneValue write SetPhoneValue;
+    property PhoneIsNull: Boolean read GetPhoneIsNull write SetPhoneIsNull;
+    property Fax: WideString read GetFaxValue write SetFaxValue;
+    property FaxIsNull: Boolean read GetFaxIsNull write SetFaxIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IOrders }
+  IOrders = interface(IDAStronglyTypedDataTable)
+  ['{837F52E1-CF1E-44B5-9026-31E65685B868}']
+    { Property getters and setters }
+    function GetOrderIDValue: Integer;
+    procedure SetOrderIDValue(const aValue: Integer);
+    function GetOrderIDIsNull: Boolean;
+    procedure SetOrderIDIsNull(const aValue: Boolean);
+    function GetCustomerIDValue: WideString;
+    procedure SetCustomerIDValue(const aValue: WideString);
+    function GetCustomerIDIsNull: Boolean;
+    procedure SetCustomerIDIsNull(const aValue: Boolean);
+    function GetEmployeeIDValue: Integer;
+    procedure SetEmployeeIDValue(const aValue: Integer);
+    function GetEmployeeIDIsNull: Boolean;
+    procedure SetEmployeeIDIsNull(const aValue: Boolean);
+    function GetOrderDateValue: DateTime;
+    procedure SetOrderDateValue(const aValue: DateTime);
+    function GetOrderDateIsNull: Boolean;
+    procedure SetOrderDateIsNull(const aValue: Boolean);
+    function GetRequiredDateValue: DateTime;
+    procedure SetRequiredDateValue(const aValue: DateTime);
+    function GetRequiredDateIsNull: Boolean;
+    procedure SetRequiredDateIsNull(const aValue: Boolean);
+    function GetShippedDateValue: DateTime;
+    procedure SetShippedDateValue(const aValue: DateTime);
+    function GetShippedDateIsNull: Boolean;
+    procedure SetShippedDateIsNull(const aValue: Boolean);
+    function GetShipViaValue: Integer;
+    procedure SetShipViaValue(const aValue: Integer);
+    function GetShipViaIsNull: Boolean;
+    procedure SetShipViaIsNull(const aValue: Boolean);
+    function GetFreightValue: Float;
+    procedure SetFreightValue(const aValue: Float);
+    function GetFreightIsNull: Boolean;
+    procedure SetFreightIsNull(const aValue: Boolean);
+    function GetShipNameValue: WideString;
+    procedure SetShipNameValue(const aValue: WideString);
+    function GetShipNameIsNull: Boolean;
+    procedure SetShipNameIsNull(const aValue: Boolean);
+    function GetShipAddressValue: WideString;
+    procedure SetShipAddressValue(const aValue: WideString);
+    function GetShipAddressIsNull: Boolean;
+    procedure SetShipAddressIsNull(const aValue: Boolean);
+    function GetShipCityValue: WideString;
+    procedure SetShipCityValue(const aValue: WideString);
+    function GetShipCityIsNull: Boolean;
+    procedure SetShipCityIsNull(const aValue: Boolean);
+    function GetShipRegionValue: WideString;
+    procedure SetShipRegionValue(const aValue: WideString);
+    function GetShipRegionIsNull: Boolean;
+    procedure SetShipRegionIsNull(const aValue: Boolean);
+    function GetShipPostalCodeValue: WideString;
+    procedure SetShipPostalCodeValue(const aValue: WideString);
+    function GetShipPostalCodeIsNull: Boolean;
+    procedure SetShipPostalCodeIsNull(const aValue: Boolean);
+    function GetShipCountryValue: WideString;
+    procedure SetShipCountryValue(const aValue: WideString);
+    function GetShipCountryIsNull: Boolean;
+    procedure SetShipCountryIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property OrderID: Integer read GetOrderIDValue write SetOrderIDValue;
+    property OrderIDIsNull: Boolean read GetOrderIDIsNull write SetOrderIDIsNull;
+    property CustomerID: WideString read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull: Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property EmployeeID: Integer read GetEmployeeIDValue write SetEmployeeIDValue;
+    property EmployeeIDIsNull: Boolean read GetEmployeeIDIsNull write SetEmployeeIDIsNull;
+    property OrderDate: DateTime read GetOrderDateValue write SetOrderDateValue;
+    property OrderDateIsNull: Boolean read GetOrderDateIsNull write SetOrderDateIsNull;
+    property RequiredDate: DateTime read GetRequiredDateValue write SetRequiredDateValue;
+    property RequiredDateIsNull: Boolean read GetRequiredDateIsNull write SetRequiredDateIsNull;
+    property ShippedDate: DateTime read GetShippedDateValue write SetShippedDateValue;
+    property ShippedDateIsNull: Boolean read GetShippedDateIsNull write SetShippedDateIsNull;
+    property ShipVia: Integer read GetShipViaValue write SetShipViaValue;
+    property ShipViaIsNull: Boolean read GetShipViaIsNull write SetShipViaIsNull;
+    property Freight: Float read GetFreightValue write SetFreightValue;
+    property FreightIsNull: Boolean read GetFreightIsNull write SetFreightIsNull;
+    property ShipName: WideString read GetShipNameValue write SetShipNameValue;
+    property ShipNameIsNull: Boolean read GetShipNameIsNull write SetShipNameIsNull;
+    property ShipAddress: WideString read GetShipAddressValue write SetShipAddressValue;
+    property ShipAddressIsNull: Boolean read GetShipAddressIsNull write SetShipAddressIsNull;
+    property ShipCity: WideString read GetShipCityValue write SetShipCityValue;
+    property ShipCityIsNull: Boolean read GetShipCityIsNull write SetShipCityIsNull;
+    property ShipRegion: WideString read GetShipRegionValue write SetShipRegionValue;
+    property ShipRegionIsNull: Boolean read GetShipRegionIsNull write SetShipRegionIsNull;
+    property ShipPostalCode: WideString read GetShipPostalCodeValue write SetShipPostalCodeValue;
+    property ShipPostalCodeIsNull: Boolean read GetShipPostalCodeIsNull write SetShipPostalCodeIsNull;
+    property ShipCountry: WideString read GetShipCountryValue write SetShipCountryValue;
+    property ShipCountryIsNull: Boolean read GetShipCountryIsNull write SetShipCountryIsNull;
+  end;
+
+  { TOrdersDataTableRules }
+  TOrdersDataTableRules = class(TDADataTableRules, IOrders)
+  private
+  protected
+    { Property getters and setters }
+    function GetOrderIDValue: Integer; virtual;
+    procedure SetOrderIDValue(const aValue: Integer); virtual;
+    function GetOrderIDIsNull: Boolean; virtual;
+    procedure SetOrderIDIsNull(const aValue: Boolean); virtual;
+    function GetCustomerIDValue: WideString; virtual;
+    procedure SetCustomerIDValue(const aValue: WideString); virtual;
+    function GetCustomerIDIsNull: Boolean; virtual;
+    procedure SetCustomerIDIsNull(const aValue: Boolean); virtual;
+    function GetEmployeeIDValue: Integer; virtual;
+    procedure SetEmployeeIDValue(const aValue: Integer); virtual;
+    function GetEmployeeIDIsNull: Boolean; virtual;
+    procedure SetEmployeeIDIsNull(const aValue: Boolean); virtual;
+    function GetOrderDateValue: DateTime; virtual;
+    procedure SetOrderDateValue(const aValue: DateTime); virtual;
+    function GetOrderDateIsNull: Boolean; virtual;
+    procedure SetOrderDateIsNull(const aValue: Boolean); virtual;
+    function GetRequiredDateValue: DateTime; virtual;
+    procedure SetRequiredDateValue(const aValue: DateTime); virtual;
+    function GetRequiredDateIsNull: Boolean; virtual;
+    procedure SetRequiredDateIsNull(const aValue: Boolean); virtual;
+    function GetShippedDateValue: DateTime; virtual;
+    procedure SetShippedDateValue(const aValue: DateTime); virtual;
+    function GetShippedDateIsNull: Boolean; virtual;
+    procedure SetShippedDateIsNull(const aValue: Boolean); virtual;
+    function GetShipViaValue: Integer; virtual;
+    procedure SetShipViaValue(const aValue: Integer); virtual;
+    function GetShipViaIsNull: Boolean; virtual;
+    procedure SetShipViaIsNull(const aValue: Boolean); virtual;
+    function GetFreightValue: Float; virtual;
+    procedure SetFreightValue(const aValue: Float); virtual;
+    function GetFreightIsNull: Boolean; virtual;
+    procedure SetFreightIsNull(const aValue: Boolean); virtual;
+    function GetShipNameValue: WideString; virtual;
+    procedure SetShipNameValue(const aValue: WideString); virtual;
+    function GetShipNameIsNull: Boolean; virtual;
+    procedure SetShipNameIsNull(const aValue: Boolean); virtual;
+    function GetShipAddressValue: WideString; virtual;
+    procedure SetShipAddressValue(const aValue: WideString); virtual;
+    function GetShipAddressIsNull: Boolean; virtual;
+    procedure SetShipAddressIsNull(const aValue: Boolean); virtual;
+    function GetShipCityValue: WideString; virtual;
+    procedure SetShipCityValue(const aValue: WideString); virtual;
+    function GetShipCityIsNull: Boolean; virtual;
+    procedure SetShipCityIsNull(const aValue: Boolean); virtual;
+    function GetShipRegionValue: WideString; virtual;
+    procedure SetShipRegionValue(const aValue: WideString); virtual;
+    function GetShipRegionIsNull: Boolean; virtual;
+    procedure SetShipRegionIsNull(const aValue: Boolean); virtual;
+    function GetShipPostalCodeValue: WideString; virtual;
+    procedure SetShipPostalCodeValue(const aValue: WideString); virtual;
+    function GetShipPostalCodeIsNull: Boolean; virtual;
+    procedure SetShipPostalCodeIsNull(const aValue: Boolean); virtual;
+    function GetShipCountryValue: WideString; virtual;
+    procedure SetShipCountryValue(const aValue: WideString); virtual;
+    function GetShipCountryIsNull: Boolean; virtual;
+    procedure SetShipCountryIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property OrderID: Integer read GetOrderIDValue write SetOrderIDValue;
+    property OrderIDIsNull: Boolean read GetOrderIDIsNull write SetOrderIDIsNull;
+    property CustomerID: WideString read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull: Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property EmployeeID: Integer read GetEmployeeIDValue write SetEmployeeIDValue;
+    property EmployeeIDIsNull: Boolean read GetEmployeeIDIsNull write SetEmployeeIDIsNull;
+    property OrderDate: DateTime read GetOrderDateValue write SetOrderDateValue;
+    property OrderDateIsNull: Boolean read GetOrderDateIsNull write SetOrderDateIsNull;
+    property RequiredDate: DateTime read GetRequiredDateValue write SetRequiredDateValue;
+    property RequiredDateIsNull: Boolean read GetRequiredDateIsNull write SetRequiredDateIsNull;
+    property ShippedDate: DateTime read GetShippedDateValue write SetShippedDateValue;
+    property ShippedDateIsNull: Boolean read GetShippedDateIsNull write SetShippedDateIsNull;
+    property ShipVia: Integer read GetShipViaValue write SetShipViaValue;
+    property ShipViaIsNull: Boolean read GetShipViaIsNull write SetShipViaIsNull;
+    property Freight: Float read GetFreightValue write SetFreightValue;
+    property FreightIsNull: Boolean read GetFreightIsNull write SetFreightIsNull;
+    property ShipName: WideString read GetShipNameValue write SetShipNameValue;
+    property ShipNameIsNull: Boolean read GetShipNameIsNull write SetShipNameIsNull;
+    property ShipAddress: WideString read GetShipAddressValue write SetShipAddressValue;
+    property ShipAddressIsNull: Boolean read GetShipAddressIsNull write SetShipAddressIsNull;
+    property ShipCity: WideString read GetShipCityValue write SetShipCityValue;
+    property ShipCityIsNull: Boolean read GetShipCityIsNull write SetShipCityIsNull;
+    property ShipRegion: WideString read GetShipRegionValue write SetShipRegionValue;
+    property ShipRegionIsNull: Boolean read GetShipRegionIsNull write SetShipRegionIsNull;
+    property ShipPostalCode: WideString read GetShipPostalCodeValue write SetShipPostalCodeValue;
+    property ShipPostalCodeIsNull: Boolean read GetShipPostalCodeIsNull write SetShipPostalCodeIsNull;
+    property ShipCountry: WideString read GetShipCountryValue write SetShipCountryValue;
+    property ShipCountryIsNull: Boolean read GetShipCountryIsNull write SetShipCountryIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses Variants;
+
+{ TCustomersDataTableRules }
+constructor TCustomersDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TCustomersDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TCustomersDataTableRules.GetCustomerIDValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersCustomerID].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetCustomerIDValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersCustomerID].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetCustomerIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersCustomerID].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetCustomerIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersCustomerID].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetCompanyNameValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersCompanyName].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetCompanyNameValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersCompanyName].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetCompanyNameIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersCompanyName].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetCompanyNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersCompanyName].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetContactNameValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersContactName].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetContactNameValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersContactName].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetContactNameIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersContactName].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetContactNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersContactName].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetContactTitleValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersContactTitle].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetContactTitleValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersContactTitle].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetContactTitleIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersContactTitle].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetContactTitleIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersContactTitle].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetAddressValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersAddress].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetAddressValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersAddress].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetAddressIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersAddress].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetAddressIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersAddress].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetCityValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersCity].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetCityValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersCity].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetCityIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersCity].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetCityIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersCity].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetRegionValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersRegion].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetRegionValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersRegion].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetRegionIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersRegion].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetRegionIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersRegion].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetPostalCodeValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersPostalCode].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetPostalCodeValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersPostalCode].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetPostalCodeIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersPostalCode].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetPostalCodeIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersPostalCode].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetCountryValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersCountry].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetCountryValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersCountry].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetCountryIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersCountry].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetCountryIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersCountry].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetPhoneValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersPhone].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetPhoneValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersPhone].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetPhoneIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersPhone].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetPhoneIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersPhone].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetFaxValue: WideString;
+begin
+  result := DataTable.Fields[idx_CustomersFax].AsWideString;
+end;
+
+procedure TCustomersDataTableRules.SetFaxValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_CustomersFax].AsWideString := aValue;
+end;
+
+function TCustomersDataTableRules.GetFaxIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersFax].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetFaxIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersFax].AsVariant := Null;
+end;
+
+
+{ TOrdersDataTableRules }
+constructor TOrdersDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TOrdersDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TOrdersDataTableRules.GetOrderIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_OrdersOrderID].AsInteger;
+end;
+
+procedure TOrdersDataTableRules.SetOrderIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_OrdersOrderID].AsInteger := aValue;
+end;
+
+function TOrdersDataTableRules.GetOrderIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersOrderID].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetOrderIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersOrderID].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetCustomerIDValue: WideString;
+begin
+  result := DataTable.Fields[idx_OrdersCustomerID].AsWideString;
+end;
+
+procedure TOrdersDataTableRules.SetCustomerIDValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_OrdersCustomerID].AsWideString := aValue;
+end;
+
+function TOrdersDataTableRules.GetCustomerIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersCustomerID].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetCustomerIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersCustomerID].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetEmployeeIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_OrdersEmployeeID].AsInteger;
+end;
+
+procedure TOrdersDataTableRules.SetEmployeeIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_OrdersEmployeeID].AsInteger := aValue;
+end;
+
+function TOrdersDataTableRules.GetEmployeeIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersEmployeeID].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetEmployeeIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersEmployeeID].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetOrderDateValue: DateTime;
+begin
+  result := DataTable.Fields[idx_OrdersOrderDate].AsDateTime;
+end;
+
+procedure TOrdersDataTableRules.SetOrderDateValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_OrdersOrderDate].AsDateTime := aValue;
+end;
+
+function TOrdersDataTableRules.GetOrderDateIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersOrderDate].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetOrderDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersOrderDate].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetRequiredDateValue: DateTime;
+begin
+  result := DataTable.Fields[idx_OrdersRequiredDate].AsDateTime;
+end;
+
+procedure TOrdersDataTableRules.SetRequiredDateValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_OrdersRequiredDate].AsDateTime := aValue;
+end;
+
+function TOrdersDataTableRules.GetRequiredDateIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersRequiredDate].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetRequiredDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersRequiredDate].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShippedDateValue: DateTime;
+begin
+  result := DataTable.Fields[idx_OrdersShippedDate].AsDateTime;
+end;
+
+procedure TOrdersDataTableRules.SetShippedDateValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_OrdersShippedDate].AsDateTime := aValue;
+end;
+
+function TOrdersDataTableRules.GetShippedDateIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShippedDate].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShippedDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShippedDate].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipViaValue: Integer;
+begin
+  result := DataTable.Fields[idx_OrdersShipVia].AsInteger;
+end;
+
+procedure TOrdersDataTableRules.SetShipViaValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_OrdersShipVia].AsInteger := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipViaIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipVia].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipViaIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipVia].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetFreightValue: Float;
+begin
+  result := DataTable.Fields[idx_OrdersFreight].AsFloat;
+end;
+
+procedure TOrdersDataTableRules.SetFreightValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_OrdersFreight].AsFloat := aValue;
+end;
+
+function TOrdersDataTableRules.GetFreightIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersFreight].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetFreightIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersFreight].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipNameValue: WideString;
+begin
+  result := DataTable.Fields[idx_OrdersShipName].AsWideString;
+end;
+
+procedure TOrdersDataTableRules.SetShipNameValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_OrdersShipName].AsWideString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipNameIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipName].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipName].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipAddressValue: WideString;
+begin
+  result := DataTable.Fields[idx_OrdersShipAddress].AsWideString;
+end;
+
+procedure TOrdersDataTableRules.SetShipAddressValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_OrdersShipAddress].AsWideString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipAddressIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipAddress].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipAddressIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipAddress].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipCityValue: WideString;
+begin
+  result := DataTable.Fields[idx_OrdersShipCity].AsWideString;
+end;
+
+procedure TOrdersDataTableRules.SetShipCityValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_OrdersShipCity].AsWideString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipCityIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipCity].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipCityIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipCity].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipRegionValue: WideString;
+begin
+  result := DataTable.Fields[idx_OrdersShipRegion].AsWideString;
+end;
+
+procedure TOrdersDataTableRules.SetShipRegionValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_OrdersShipRegion].AsWideString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipRegionIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipRegion].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipRegionIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipRegion].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipPostalCodeValue: WideString;
+begin
+  result := DataTable.Fields[idx_OrdersShipPostalCode].AsWideString;
+end;
+
+procedure TOrdersDataTableRules.SetShipPostalCodeValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_OrdersShipPostalCode].AsWideString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipPostalCodeIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipPostalCode].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipPostalCodeIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipPostalCode].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipCountryValue: WideString;
+begin
+  result := DataTable.Fields[idx_OrdersShipCountry].AsWideString;
+end;
+
+procedure TOrdersDataTableRules.SetShipCountryValue(const aValue: WideString);
+begin
+  DataTable.Fields[idx_OrdersShipCountry].AsWideString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipCountryIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipCountry].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipCountryIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipCountry].AsVariant := Null;
+end;
+
+
+initialization
+  RegisterDataTableRules(RID_Customers, TCustomersDataTableRules);
+  RegisterDataTableRules(RID_Orders, TOrdersDataTableRules);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/SchemaServer_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/SchemaServer_Intf.pas
new file mode 100644
index 0000000..8ca7acc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/SchemaServer_Intf.pas	
@@ -0,0 +1,1168 @@
+unit SchemaServer_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, SchemaClient_Intf;
+
+const
+  { Delta rules ids 
+       Feel free to change them to something more human readable
+       but make sure they are unique in the context of your application }
+  RID_CustomersDelta = '{484D754F-68A9-4DC0-AADF-EBDB00C9E40F}';
+  RID_OrdersDelta = '{6D8F66A7-58AC-4768-AC95-3437EABB042A}';
+
+type
+  { ICustomersDelta }
+  ICustomersDelta = interface(ICustomers)
+  ['{484D754F-68A9-4DC0-AADF-EBDB00C9E40F}']
+    { Property getters and setters }
+    function GetOldCustomerIDValue : WideString;
+    function GetOldCompanyNameValue : WideString;
+    function GetOldContactNameValue : WideString;
+    function GetOldContactTitleValue : WideString;
+    function GetOldAddressValue : WideString;
+    function GetOldCityValue : WideString;
+    function GetOldRegionValue : WideString;
+    function GetOldPostalCodeValue : WideString;
+    function GetOldCountryValue : WideString;
+    function GetOldPhoneValue : WideString;
+    function GetOldFaxValue : WideString;
+
+    { Properties }
+    property OldCustomerID : WideString read GetOldCustomerIDValue;
+    property OldCompanyName : WideString read GetOldCompanyNameValue;
+    property OldContactName : WideString read GetOldContactNameValue;
+    property OldContactTitle : WideString read GetOldContactTitleValue;
+    property OldAddress : WideString read GetOldAddressValue;
+    property OldCity : WideString read GetOldCityValue;
+    property OldRegion : WideString read GetOldRegionValue;
+    property OldPostalCode : WideString read GetOldPostalCodeValue;
+    property OldCountry : WideString read GetOldCountryValue;
+    property OldPhone : WideString read GetOldPhoneValue;
+    property OldFax : WideString read GetOldFaxValue;
+  end;
+
+  { TCustomersBusinessProcessorRules }
+  TCustomersBusinessProcessorRules = class(TDABusinessProcessorRules, ICustomers, ICustomersDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetCustomerIDValue: WideString; virtual;
+    function GetCustomerIDIsNull: Boolean; virtual;
+    function GetOldCustomerIDValue: WideString; virtual;
+    function GetOldCustomerIDIsNull: Boolean; virtual;
+    procedure SetCustomerIDValue(const aValue: WideString); virtual;
+    procedure SetCustomerIDIsNull(const aValue: Boolean); virtual;
+    function GetCompanyNameValue: WideString; virtual;
+    function GetCompanyNameIsNull: Boolean; virtual;
+    function GetOldCompanyNameValue: WideString; virtual;
+    function GetOldCompanyNameIsNull: Boolean; virtual;
+    procedure SetCompanyNameValue(const aValue: WideString); virtual;
+    procedure SetCompanyNameIsNull(const aValue: Boolean); virtual;
+    function GetContactNameValue: WideString; virtual;
+    function GetContactNameIsNull: Boolean; virtual;
+    function GetOldContactNameValue: WideString; virtual;
+    function GetOldContactNameIsNull: Boolean; virtual;
+    procedure SetContactNameValue(const aValue: WideString); virtual;
+    procedure SetContactNameIsNull(const aValue: Boolean); virtual;
+    function GetContactTitleValue: WideString; virtual;
+    function GetContactTitleIsNull: Boolean; virtual;
+    function GetOldContactTitleValue: WideString; virtual;
+    function GetOldContactTitleIsNull: Boolean; virtual;
+    procedure SetContactTitleValue(const aValue: WideString); virtual;
+    procedure SetContactTitleIsNull(const aValue: Boolean); virtual;
+    function GetAddressValue: WideString; virtual;
+    function GetAddressIsNull: Boolean; virtual;
+    function GetOldAddressValue: WideString; virtual;
+    function GetOldAddressIsNull: Boolean; virtual;
+    procedure SetAddressValue(const aValue: WideString); virtual;
+    procedure SetAddressIsNull(const aValue: Boolean); virtual;
+    function GetCityValue: WideString; virtual;
+    function GetCityIsNull: Boolean; virtual;
+    function GetOldCityValue: WideString; virtual;
+    function GetOldCityIsNull: Boolean; virtual;
+    procedure SetCityValue(const aValue: WideString); virtual;
+    procedure SetCityIsNull(const aValue: Boolean); virtual;
+    function GetRegionValue: WideString; virtual;
+    function GetRegionIsNull: Boolean; virtual;
+    function GetOldRegionValue: WideString; virtual;
+    function GetOldRegionIsNull: Boolean; virtual;
+    procedure SetRegionValue(const aValue: WideString); virtual;
+    procedure SetRegionIsNull(const aValue: Boolean); virtual;
+    function GetPostalCodeValue: WideString; virtual;
+    function GetPostalCodeIsNull: Boolean; virtual;
+    function GetOldPostalCodeValue: WideString; virtual;
+    function GetOldPostalCodeIsNull: Boolean; virtual;
+    procedure SetPostalCodeValue(const aValue: WideString); virtual;
+    procedure SetPostalCodeIsNull(const aValue: Boolean); virtual;
+    function GetCountryValue: WideString; virtual;
+    function GetCountryIsNull: Boolean; virtual;
+    function GetOldCountryValue: WideString; virtual;
+    function GetOldCountryIsNull: Boolean; virtual;
+    procedure SetCountryValue(const aValue: WideString); virtual;
+    procedure SetCountryIsNull(const aValue: Boolean); virtual;
+    function GetPhoneValue: WideString; virtual;
+    function GetPhoneIsNull: Boolean; virtual;
+    function GetOldPhoneValue: WideString; virtual;
+    function GetOldPhoneIsNull: Boolean; virtual;
+    procedure SetPhoneValue(const aValue: WideString); virtual;
+    procedure SetPhoneIsNull(const aValue: Boolean); virtual;
+    function GetFaxValue: WideString; virtual;
+    function GetFaxIsNull: Boolean; virtual;
+    function GetOldFaxValue: WideString; virtual;
+    function GetOldFaxIsNull: Boolean; virtual;
+    procedure SetFaxValue(const aValue: WideString); virtual;
+    procedure SetFaxIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property CustomerID : WideString read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull : Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property OldCustomerID : WideString read GetOldCustomerIDValue;
+    property OldCustomerIDIsNull : Boolean read GetOldCustomerIDIsNull;
+    property CompanyName : WideString read GetCompanyNameValue write SetCompanyNameValue;
+    property CompanyNameIsNull : Boolean read GetCompanyNameIsNull write SetCompanyNameIsNull;
+    property OldCompanyName : WideString read GetOldCompanyNameValue;
+    property OldCompanyNameIsNull : Boolean read GetOldCompanyNameIsNull;
+    property ContactName : WideString read GetContactNameValue write SetContactNameValue;
+    property ContactNameIsNull : Boolean read GetContactNameIsNull write SetContactNameIsNull;
+    property OldContactName : WideString read GetOldContactNameValue;
+    property OldContactNameIsNull : Boolean read GetOldContactNameIsNull;
+    property ContactTitle : WideString read GetContactTitleValue write SetContactTitleValue;
+    property ContactTitleIsNull : Boolean read GetContactTitleIsNull write SetContactTitleIsNull;
+    property OldContactTitle : WideString read GetOldContactTitleValue;
+    property OldContactTitleIsNull : Boolean read GetOldContactTitleIsNull;
+    property Address : WideString read GetAddressValue write SetAddressValue;
+    property AddressIsNull : Boolean read GetAddressIsNull write SetAddressIsNull;
+    property OldAddress : WideString read GetOldAddressValue;
+    property OldAddressIsNull : Boolean read GetOldAddressIsNull;
+    property City : WideString read GetCityValue write SetCityValue;
+    property CityIsNull : Boolean read GetCityIsNull write SetCityIsNull;
+    property OldCity : WideString read GetOldCityValue;
+    property OldCityIsNull : Boolean read GetOldCityIsNull;
+    property Region : WideString read GetRegionValue write SetRegionValue;
+    property RegionIsNull : Boolean read GetRegionIsNull write SetRegionIsNull;
+    property OldRegion : WideString read GetOldRegionValue;
+    property OldRegionIsNull : Boolean read GetOldRegionIsNull;
+    property PostalCode : WideString read GetPostalCodeValue write SetPostalCodeValue;
+    property PostalCodeIsNull : Boolean read GetPostalCodeIsNull write SetPostalCodeIsNull;
+    property OldPostalCode : WideString read GetOldPostalCodeValue;
+    property OldPostalCodeIsNull : Boolean read GetOldPostalCodeIsNull;
+    property Country : WideString read GetCountryValue write SetCountryValue;
+    property CountryIsNull : Boolean read GetCountryIsNull write SetCountryIsNull;
+    property OldCountry : WideString read GetOldCountryValue;
+    property OldCountryIsNull : Boolean read GetOldCountryIsNull;
+    property Phone : WideString read GetPhoneValue write SetPhoneValue;
+    property PhoneIsNull : Boolean read GetPhoneIsNull write SetPhoneIsNull;
+    property OldPhone : WideString read GetOldPhoneValue;
+    property OldPhoneIsNull : Boolean read GetOldPhoneIsNull;
+    property Fax : WideString read GetFaxValue write SetFaxValue;
+    property FaxIsNull : Boolean read GetFaxIsNull write SetFaxIsNull;
+    property OldFax : WideString read GetOldFaxValue;
+    property OldFaxIsNull : Boolean read GetOldFaxIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IOrdersDelta }
+  IOrdersDelta = interface(IOrders)
+  ['{6D8F66A7-58AC-4768-AC95-3437EABB042A}']
+    { Property getters and setters }
+    function GetOldOrderIDValue : Integer;
+    function GetOldCustomerIDValue : WideString;
+    function GetOldEmployeeIDValue : Integer;
+    function GetOldOrderDateValue : DateTime;
+    function GetOldRequiredDateValue : DateTime;
+    function GetOldShippedDateValue : DateTime;
+    function GetOldShipViaValue : Integer;
+    function GetOldFreightValue : Float;
+    function GetOldShipNameValue : WideString;
+    function GetOldShipAddressValue : WideString;
+    function GetOldShipCityValue : WideString;
+    function GetOldShipRegionValue : WideString;
+    function GetOldShipPostalCodeValue : WideString;
+    function GetOldShipCountryValue : WideString;
+
+    { Properties }
+    property OldOrderID : Integer read GetOldOrderIDValue;
+    property OldCustomerID : WideString read GetOldCustomerIDValue;
+    property OldEmployeeID : Integer read GetOldEmployeeIDValue;
+    property OldOrderDate : DateTime read GetOldOrderDateValue;
+    property OldRequiredDate : DateTime read GetOldRequiredDateValue;
+    property OldShippedDate : DateTime read GetOldShippedDateValue;
+    property OldShipVia : Integer read GetOldShipViaValue;
+    property OldFreight : Float read GetOldFreightValue;
+    property OldShipName : WideString read GetOldShipNameValue;
+    property OldShipAddress : WideString read GetOldShipAddressValue;
+    property OldShipCity : WideString read GetOldShipCityValue;
+    property OldShipRegion : WideString read GetOldShipRegionValue;
+    property OldShipPostalCode : WideString read GetOldShipPostalCodeValue;
+    property OldShipCountry : WideString read GetOldShipCountryValue;
+  end;
+
+  { TOrdersBusinessProcessorRules }
+  TOrdersBusinessProcessorRules = class(TDABusinessProcessorRules, IOrders, IOrdersDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetOrderIDValue: Integer; virtual;
+    function GetOrderIDIsNull: Boolean; virtual;
+    function GetOldOrderIDValue: Integer; virtual;
+    function GetOldOrderIDIsNull: Boolean; virtual;
+    procedure SetOrderIDValue(const aValue: Integer); virtual;
+    procedure SetOrderIDIsNull(const aValue: Boolean); virtual;
+    function GetCustomerIDValue: WideString; virtual;
+    function GetCustomerIDIsNull: Boolean; virtual;
+    function GetOldCustomerIDValue: WideString; virtual;
+    function GetOldCustomerIDIsNull: Boolean; virtual;
+    procedure SetCustomerIDValue(const aValue: WideString); virtual;
+    procedure SetCustomerIDIsNull(const aValue: Boolean); virtual;
+    function GetEmployeeIDValue: Integer; virtual;
+    function GetEmployeeIDIsNull: Boolean; virtual;
+    function GetOldEmployeeIDValue: Integer; virtual;
+    function GetOldEmployeeIDIsNull: Boolean; virtual;
+    procedure SetEmployeeIDValue(const aValue: Integer); virtual;
+    procedure SetEmployeeIDIsNull(const aValue: Boolean); virtual;
+    function GetOrderDateValue: DateTime; virtual;
+    function GetOrderDateIsNull: Boolean; virtual;
+    function GetOldOrderDateValue: DateTime; virtual;
+    function GetOldOrderDateIsNull: Boolean; virtual;
+    procedure SetOrderDateValue(const aValue: DateTime); virtual;
+    procedure SetOrderDateIsNull(const aValue: Boolean); virtual;
+    function GetRequiredDateValue: DateTime; virtual;
+    function GetRequiredDateIsNull: Boolean; virtual;
+    function GetOldRequiredDateValue: DateTime; virtual;
+    function GetOldRequiredDateIsNull: Boolean; virtual;
+    procedure SetRequiredDateValue(const aValue: DateTime); virtual;
+    procedure SetRequiredDateIsNull(const aValue: Boolean); virtual;
+    function GetShippedDateValue: DateTime; virtual;
+    function GetShippedDateIsNull: Boolean; virtual;
+    function GetOldShippedDateValue: DateTime; virtual;
+    function GetOldShippedDateIsNull: Boolean; virtual;
+    procedure SetShippedDateValue(const aValue: DateTime); virtual;
+    procedure SetShippedDateIsNull(const aValue: Boolean); virtual;
+    function GetShipViaValue: Integer; virtual;
+    function GetShipViaIsNull: Boolean; virtual;
+    function GetOldShipViaValue: Integer; virtual;
+    function GetOldShipViaIsNull: Boolean; virtual;
+    procedure SetShipViaValue(const aValue: Integer); virtual;
+    procedure SetShipViaIsNull(const aValue: Boolean); virtual;
+    function GetFreightValue: Float; virtual;
+    function GetFreightIsNull: Boolean; virtual;
+    function GetOldFreightValue: Float; virtual;
+    function GetOldFreightIsNull: Boolean; virtual;
+    procedure SetFreightValue(const aValue: Float); virtual;
+    procedure SetFreightIsNull(const aValue: Boolean); virtual;
+    function GetShipNameValue: WideString; virtual;
+    function GetShipNameIsNull: Boolean; virtual;
+    function GetOldShipNameValue: WideString; virtual;
+    function GetOldShipNameIsNull: Boolean; virtual;
+    procedure SetShipNameValue(const aValue: WideString); virtual;
+    procedure SetShipNameIsNull(const aValue: Boolean); virtual;
+    function GetShipAddressValue: WideString; virtual;
+    function GetShipAddressIsNull: Boolean; virtual;
+    function GetOldShipAddressValue: WideString; virtual;
+    function GetOldShipAddressIsNull: Boolean; virtual;
+    procedure SetShipAddressValue(const aValue: WideString); virtual;
+    procedure SetShipAddressIsNull(const aValue: Boolean); virtual;
+    function GetShipCityValue: WideString; virtual;
+    function GetShipCityIsNull: Boolean; virtual;
+    function GetOldShipCityValue: WideString; virtual;
+    function GetOldShipCityIsNull: Boolean; virtual;
+    procedure SetShipCityValue(const aValue: WideString); virtual;
+    procedure SetShipCityIsNull(const aValue: Boolean); virtual;
+    function GetShipRegionValue: WideString; virtual;
+    function GetShipRegionIsNull: Boolean; virtual;
+    function GetOldShipRegionValue: WideString; virtual;
+    function GetOldShipRegionIsNull: Boolean; virtual;
+    procedure SetShipRegionValue(const aValue: WideString); virtual;
+    procedure SetShipRegionIsNull(const aValue: Boolean); virtual;
+    function GetShipPostalCodeValue: WideString; virtual;
+    function GetShipPostalCodeIsNull: Boolean; virtual;
+    function GetOldShipPostalCodeValue: WideString; virtual;
+    function GetOldShipPostalCodeIsNull: Boolean; virtual;
+    procedure SetShipPostalCodeValue(const aValue: WideString); virtual;
+    procedure SetShipPostalCodeIsNull(const aValue: Boolean); virtual;
+    function GetShipCountryValue: WideString; virtual;
+    function GetShipCountryIsNull: Boolean; virtual;
+    function GetOldShipCountryValue: WideString; virtual;
+    function GetOldShipCountryIsNull: Boolean; virtual;
+    procedure SetShipCountryValue(const aValue: WideString); virtual;
+    procedure SetShipCountryIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property OrderID : Integer read GetOrderIDValue write SetOrderIDValue;
+    property OrderIDIsNull : Boolean read GetOrderIDIsNull write SetOrderIDIsNull;
+    property OldOrderID : Integer read GetOldOrderIDValue;
+    property OldOrderIDIsNull : Boolean read GetOldOrderIDIsNull;
+    property CustomerID : WideString read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull : Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property OldCustomerID : WideString read GetOldCustomerIDValue;
+    property OldCustomerIDIsNull : Boolean read GetOldCustomerIDIsNull;
+    property EmployeeID : Integer read GetEmployeeIDValue write SetEmployeeIDValue;
+    property EmployeeIDIsNull : Boolean read GetEmployeeIDIsNull write SetEmployeeIDIsNull;
+    property OldEmployeeID : Integer read GetOldEmployeeIDValue;
+    property OldEmployeeIDIsNull : Boolean read GetOldEmployeeIDIsNull;
+    property OrderDate : DateTime read GetOrderDateValue write SetOrderDateValue;
+    property OrderDateIsNull : Boolean read GetOrderDateIsNull write SetOrderDateIsNull;
+    property OldOrderDate : DateTime read GetOldOrderDateValue;
+    property OldOrderDateIsNull : Boolean read GetOldOrderDateIsNull;
+    property RequiredDate : DateTime read GetRequiredDateValue write SetRequiredDateValue;
+    property RequiredDateIsNull : Boolean read GetRequiredDateIsNull write SetRequiredDateIsNull;
+    property OldRequiredDate : DateTime read GetOldRequiredDateValue;
+    property OldRequiredDateIsNull : Boolean read GetOldRequiredDateIsNull;
+    property ShippedDate : DateTime read GetShippedDateValue write SetShippedDateValue;
+    property ShippedDateIsNull : Boolean read GetShippedDateIsNull write SetShippedDateIsNull;
+    property OldShippedDate : DateTime read GetOldShippedDateValue;
+    property OldShippedDateIsNull : Boolean read GetOldShippedDateIsNull;
+    property ShipVia : Integer read GetShipViaValue write SetShipViaValue;
+    property ShipViaIsNull : Boolean read GetShipViaIsNull write SetShipViaIsNull;
+    property OldShipVia : Integer read GetOldShipViaValue;
+    property OldShipViaIsNull : Boolean read GetOldShipViaIsNull;
+    property Freight : Float read GetFreightValue write SetFreightValue;
+    property FreightIsNull : Boolean read GetFreightIsNull write SetFreightIsNull;
+    property OldFreight : Float read GetOldFreightValue;
+    property OldFreightIsNull : Boolean read GetOldFreightIsNull;
+    property ShipName : WideString read GetShipNameValue write SetShipNameValue;
+    property ShipNameIsNull : Boolean read GetShipNameIsNull write SetShipNameIsNull;
+    property OldShipName : WideString read GetOldShipNameValue;
+    property OldShipNameIsNull : Boolean read GetOldShipNameIsNull;
+    property ShipAddress : WideString read GetShipAddressValue write SetShipAddressValue;
+    property ShipAddressIsNull : Boolean read GetShipAddressIsNull write SetShipAddressIsNull;
+    property OldShipAddress : WideString read GetOldShipAddressValue;
+    property OldShipAddressIsNull : Boolean read GetOldShipAddressIsNull;
+    property ShipCity : WideString read GetShipCityValue write SetShipCityValue;
+    property ShipCityIsNull : Boolean read GetShipCityIsNull write SetShipCityIsNull;
+    property OldShipCity : WideString read GetOldShipCityValue;
+    property OldShipCityIsNull : Boolean read GetOldShipCityIsNull;
+    property ShipRegion : WideString read GetShipRegionValue write SetShipRegionValue;
+    property ShipRegionIsNull : Boolean read GetShipRegionIsNull write SetShipRegionIsNull;
+    property OldShipRegion : WideString read GetOldShipRegionValue;
+    property OldShipRegionIsNull : Boolean read GetOldShipRegionIsNull;
+    property ShipPostalCode : WideString read GetShipPostalCodeValue write SetShipPostalCodeValue;
+    property ShipPostalCodeIsNull : Boolean read GetShipPostalCodeIsNull write SetShipPostalCodeIsNull;
+    property OldShipPostalCode : WideString read GetOldShipPostalCodeValue;
+    property OldShipPostalCodeIsNull : Boolean read GetOldShipPostalCodeIsNull;
+    property ShipCountry : WideString read GetShipCountryValue write SetShipCountryValue;
+    property ShipCountryIsNull : Boolean read GetShipCountryIsNull write SetShipCountryIsNull;
+    property OldShipCountry : WideString read GetOldShipCountryValue;
+    property OldShipCountryIsNull : Boolean read GetOldShipCountryIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses
+  Variants, uROBinaryHelpers;
+
+{ TCustomersBusinessProcessorRules }
+constructor TCustomersBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TCustomersBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TCustomersBusinessProcessorRules.GetCustomerIDValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCustomerID];
+end;
+
+function TCustomersBusinessProcessorRules.GetCustomerIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCustomerID]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCustomerIDValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCustomerID];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCustomerIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCustomerID]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCustomerIDValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCustomerID] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCustomerIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCustomerID] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetCompanyNameValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCompanyName];
+end;
+
+function TCustomersBusinessProcessorRules.GetCompanyNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCompanyName]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCompanyNameValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCompanyName];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCompanyNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCompanyName]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCompanyNameValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCompanyName] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCompanyNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCompanyName] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetContactNameValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactName];
+end;
+
+function TCustomersBusinessProcessorRules.GetContactNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactName]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldContactNameValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersContactName];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldContactNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersContactName]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetContactNameValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactName] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetContactNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactName] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetContactTitleValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactTitle];
+end;
+
+function TCustomersBusinessProcessorRules.GetContactTitleIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactTitle]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldContactTitleValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersContactTitle];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldContactTitleIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersContactTitle]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetContactTitleValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactTitle] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetContactTitleIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactTitle] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetAddressValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersAddress];
+end;
+
+function TCustomersBusinessProcessorRules.GetAddressIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersAddress]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldAddressValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersAddress];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldAddressIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersAddress]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetAddressValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersAddress] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetAddressIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersAddress] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetCityValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCity];
+end;
+
+function TCustomersBusinessProcessorRules.GetCityIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCity]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCityValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCity];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCityIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCity]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCityValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCity] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCityIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCity] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetRegionValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersRegion];
+end;
+
+function TCustomersBusinessProcessorRules.GetRegionIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersRegion]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldRegionValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersRegion];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldRegionIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersRegion]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetRegionValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersRegion] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetRegionIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersRegion] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetPostalCodeValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPostalCode];
+end;
+
+function TCustomersBusinessProcessorRules.GetPostalCodeIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPostalCode]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldPostalCodeValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersPostalCode];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldPostalCodeIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersPostalCode]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetPostalCodeValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPostalCode] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetPostalCodeIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPostalCode] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetCountryValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCountry];
+end;
+
+function TCustomersBusinessProcessorRules.GetCountryIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCountry]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCountryValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCountry];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCountryIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCountry]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCountryValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCountry] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCountryIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCountry] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetPhoneValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPhone];
+end;
+
+function TCustomersBusinessProcessorRules.GetPhoneIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPhone]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldPhoneValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersPhone];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldPhoneIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersPhone]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetPhoneValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPhone] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetPhoneIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPhone] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetFaxValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersFax];
+end;
+
+function TCustomersBusinessProcessorRules.GetFaxIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersFax]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldFaxValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersFax];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldFaxIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersFax]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetFaxValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersFax] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetFaxIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersFax] := Null;
+end;
+
+
+{ TOrdersBusinessProcessorRules }
+constructor TOrdersBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TOrdersBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TOrdersBusinessProcessorRules.GetOrderIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderID];
+end;
+
+function TOrdersBusinessProcessorRules.GetOrderIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderID]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldOrderIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersOrderID];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldOrderIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersOrderID]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetOrderIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderID] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetOrderIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderID] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetCustomerIDValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersCustomerID];
+end;
+
+function TOrdersBusinessProcessorRules.GetCustomerIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersCustomerID]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldCustomerIDValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersCustomerID];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldCustomerIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersCustomerID]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetCustomerIDValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersCustomerID] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetCustomerIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersCustomerID] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetEmployeeIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersEmployeeID];
+end;
+
+function TOrdersBusinessProcessorRules.GetEmployeeIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersEmployeeID]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldEmployeeIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersEmployeeID];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldEmployeeIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersEmployeeID]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetEmployeeIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersEmployeeID] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetEmployeeIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersEmployeeID] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetOrderDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetOrderDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderDate]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldOrderDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersOrderDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldOrderDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersOrderDate]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetOrderDateValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderDate] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetOrderDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderDate] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetRequiredDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersRequiredDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetRequiredDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersRequiredDate]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldRequiredDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersRequiredDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldRequiredDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersRequiredDate]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetRequiredDateValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersRequiredDate] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetRequiredDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersRequiredDate] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShippedDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShippedDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetShippedDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShippedDate]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShippedDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShippedDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShippedDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShippedDate]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShippedDateValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShippedDate] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShippedDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShippedDate] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipViaValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipVia];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipViaIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipVia]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipViaValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipVia];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipViaIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipVia]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipViaValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipVia] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipViaIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipVia] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetFreightValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersFreight];
+end;
+
+function TOrdersBusinessProcessorRules.GetFreightIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersFreight]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldFreightValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersFreight];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldFreightIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersFreight]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetFreightValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersFreight] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetFreightIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersFreight] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipNameValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipName];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipName]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipNameValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipName];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipName]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipNameValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipName] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipName] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipAddressValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipAddress];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipAddressIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipAddress]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipAddressValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipAddress];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipAddressIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipAddress]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipAddressValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipAddress] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipAddressIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipAddress] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipCityValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCity];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipCityIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCity]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipCityValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipCity];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipCityIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipCity]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipCityValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCity] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipCityIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCity] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipRegionValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipRegion];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipRegionIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipRegion]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipRegionValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipRegion];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipRegionIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipRegion]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipRegionValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipRegion] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipRegionIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipRegion] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipPostalCodeValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipPostalCode];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipPostalCodeIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipPostalCode]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipPostalCodeValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipPostalCode];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipPostalCodeIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipPostalCode]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipPostalCodeValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipPostalCode] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipPostalCodeIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipPostalCode] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipCountryValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCountry];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipCountryIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCountry]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipCountryValue: WideString;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipCountry];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipCountryIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipCountry]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipCountryValue(const aValue: WideString);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCountry] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipCountryIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCountry] := Null;
+end;
+
+
+initialization
+  RegisterBusinessProcessorRules(RID_CustomersDelta, TCustomersBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_OrdersDelta, TOrdersBusinessProcessorRules);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/ServerGlobal.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/ServerGlobal.pas
new file mode 100644
index 0000000..2bbee06
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Processor/ServerGlobal.pas	
@@ -0,0 +1,15 @@
+unit ServerGlobal;
+
+interface
+var
+  gCompany: string = 'Company';
+  gCompanyCheck: Boolean = True;
+  gFreightCheck: Boolean = True;
+  gFreight: integer = 20;
+  gDeclineDeleteCustomers: Boolean = True;
+  gDeclineDeleteOrders: Boolean = True;
+  gCheckCustomerID: Boolean = True;
+implementation
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.Sample.html
new file mode 100644
index 0000000..5e87368
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.Sample.html	
@@ -0,0 +1,40 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>BusinessRulesScripts</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  This example demonstrates how client side scripts can be <b>modified on the server</b>
+  and then <b>downloaded to the client</b> via a simple call.
+</p>
+<p>
+  When you compile and launch the server, it displays a memo containing various client
+  side rules executed within event handlers such as BeforePost.
+</p>
+<p>
+  You can test it by compiling and launching the client. Try deleting an
+  item with a <b>gain &gt; 90</b>, for example.
+</p>
+<p>
+  Next modify the server memo and click <b>Refresh Scripts from Server</b>
+  to see that your change has been actioned.
+</p>
+<p>
+  Note how the strong typing allows simple reference to field names, thus
+  making script changes as simple as possible.
+</p>
+
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.bdsgroup
new file mode 100644
index 0000000..2245049
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{CED06B4E-A2AA-4E9D-BA08-976E2F0D2CD7}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="BusinessRulesScripts_Server.exe">BusinessRulesScripts_Server.bdsproj</Projects>
+      <Projects Name="BusinessRulesScripts_Client.exe">BusinessRulesScripts_Client.bdsproj</Projects>
+      <Projects Name="Targets">BusinessRulesScripts_Server.exe BusinessRulesScripts_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.bpg
new file mode 100644
index 0000000..12ab893
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = BusinessRulesScripts_Server.exe BusinessRulesScripts_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+BusinessRulesScripts_Server.exe: BusinessRulesScripts_Server.dpr
+  $(DCC)
+
+BusinessRulesScripts_Client.exe: BusinessRulesScripts_Client.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.groupproj
new file mode 100644
index 0000000..181c87d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{d1f18c23-83b8-4d53-bd98-adcf9fdf1af0}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="BusinessRulesScripts_Server">
+    <MSBuild Projects="BusinessRulesScripts_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="BusinessRulesScripts_Server:Clean">
+    <MSBuild Projects="BusinessRulesScripts_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="BusinessRulesScripts_Server:Make">
+    <MSBuild Projects="BusinessRulesScripts_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="BusinessRulesScripts_Client">
+    <MSBuild Projects="BusinessRulesScripts_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="BusinessRulesScripts_Client:Clean">
+    <MSBuild Projects="BusinessRulesScripts_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="BusinessRulesScripts_Client:Make">
+    <MSBuild Projects="BusinessRulesScripts_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="BusinessRulesScripts_Server;BusinessRulesScripts_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="BusinessRulesScripts_Server:Clean;BusinessRulesScripts_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="BusinessRulesScripts_Server:Make;BusinessRulesScripts_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary.rodl
new file mode 100644
index 0000000..003f8dc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary.rodl	
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="BusinessRulesScriptsLibrary" UID="{E97481D6-EA65-4F8F-8CB0-128A20DA2B2C}" Version="3.0">
+<Services>
+<Service Name="NewService" UID="{B8D2EDC0-DD48-4C7B-B506-8350A6F0D212}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{25DCCAE5-CA08-41B5-8DFC-03C4E548FE33}">
+<Documentation>
+<![CDATA[
+Service NewService. This service has been automatically generated using the Data Abstract template you can find in the Templates directory.]]>
+</Documentation>
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract4_RODL" UID="{5DD1C963-7992-4876-A74F-BA54534E8654}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary_Intf.pas
new file mode 100644
index 0000000..b8e68c9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary_Intf.pas	
@@ -0,0 +1,83 @@
+unit BusinessRulesScriptsLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{E97481D6-EA65-4F8F-8CB0-128A20DA2B2C}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  INewService_IID : TGUID = '{25DCCAE5-CA08-41B5-8DFC-03C4E548FE33}';
+
+  { Event ID's }
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  INewService = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { INewService }
+  INewService = interface(IDataAbstractService)
+    ['{25DCCAE5-CA08-41B5-8DFC-03C4E548FE33}']
+  end;
+
+  { CoNewService }
+  CoNewService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService;
+  end;
+
+  { TNewService_Proxy }
+  TNewService_Proxy = class(TDataAbstractService_Proxy, INewService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoNewService }
+
+class function CoNewService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService;
+begin
+  result := TNewService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TNewService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'NewService';
+end;
+
+initialization
+  RegisterProxyClass(INewService_IID, TNewService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(INewService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary_Invk.pas
new file mode 100644
index 0000000..0cc741f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScriptsLibrary_Invk.pas	
@@ -0,0 +1,46 @@
+unit BusinessRulesScriptsLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} BusinessRulesScriptsLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TNewService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TNewService_Invoker }
+
+constructor TNewService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.bdsproj
new file mode 100644
index 0000000..3727fb3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{4D1546F9-A907-442E-89D1-1DBC969B556B}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">BusinessRulesScripts_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.dpr
new file mode 100644
index 0000000..49b86b7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.dpr	
@@ -0,0 +1,17 @@
+program BusinessRulesScripts_Client;
+
+uses
+  uROComInit,
+  Forms,
+  BusinessRulesScripts_ClientMain in 'BusinessRulesScripts_ClientMain.pas' {BusinessRulesScripts_ClientMainForm},
+  BusinessRulesScripts_ClientData in 'BusinessRulesScripts_ClientData.pas' {BusinessRulesScripts_ClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'BusinessRulesScripts Client';
+  Application.CreateForm(TBusinessRulesScripts_ClientDataModule, BusinessRulesScripts_ClientDataModule);
+  Application.CreateForm(TBusinessRulesScripts_ClientMainForm, BusinessRulesScripts_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.dproj
new file mode 100644
index 0000000..9df79f5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{d6188ece-37af-4464-a5cb-347a71598f81}</ProjectGuid>
+    <MainSource>BusinessRulesScripts_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>BusinessRulesScripts_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">BusinessRulesScripts_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="BusinessRulesScripts_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BusinessRulesScripts_ClientData.pas">
+      <Form>BusinessRulesScripts_ClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="BusinessRulesScripts_ClientMain.pas">
+      <Form>BusinessRulesScripts_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientData.dfm
new file mode 100644
index 0000000..f4415e5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientData.dfm	
@@ -0,0 +1,386 @@
+object BusinessRulesScripts_ClientDataModule: TBusinessRulesScripts_ClientDataModule
+  OldCreateOrder = True
+  Left = 447
+  Top = 246
+  Height = 382
+  Width = 300
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object ROMessage: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'NewService'
+    Left = 41
+    Top = 96
+  end
+  object BinDataStreamer: TDABinDataStreamer
+    Left = 40
+    Top = 142
+  end
+  object dtProducts: TDACDSDataTable
+    ScriptingProvider = DAPSScriptingProvider
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ProductID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ProductName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'SupplierID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CategoryID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'QuantityPerUnit'
+        DataType = datWideString
+        Size = 20
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'UnitPrice'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'UnitsInStock'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'UnitsOnOrder'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ReorderLevel'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Discontinued'
+        DataType = datBoolean
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Gain'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        LogChanges = False
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = True
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Products'
+    IndexDefs = <>
+    Left = 128
+    Top = 160
+  end
+  object dsProducts: TDADataSource
+    DataSet = dtProducts.Dataset
+    DataTable = dtProducts
+    Left = 127
+    Top = 187
+  end
+  object DAPSScriptingProvider: TDAPSScriptingProvider
+    ScriptEngine.CompilerOptions = [icAllowNoBegin, icAllowNoEnd, icBooleanShortCircuit]
+    ScriptEngine.Plugins = <
+      item
+        Plugin = DAPSScriptingProvider.PluginClasses
+      end
+      item
+        Plugin = DAPSScriptingProvider.PluginDB
+      end
+      item
+        Plugin = DAPSScriptingProvider.PluginDateUtils
+      end>
+    ScriptEngine.UsePreProcessor = False
+    Left = 128
+    Top = 256
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetSchemaCall.MethodName = 'GetSchema'
+    GetSchemaCall.Params = <
+      item
+        Name = 'aFilter'
+        DataType = rtString
+        Flag = fIn
+        Value = Null
+      end
+      item
+        Name = 'Result'
+        DataType = rtString
+        Flag = fResult
+        Value = Null
+      end>
+    GetSchemaCall.Default = False
+    GetSchemaCall.IncomingSchemaParameter = 'Result'
+    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
+    GetDataCall.RemoteService = RemoteService
+    GetDataCall.MethodName = 'GetData'
+    GetDataCall.Params = <
+      item
+        Name = 'aTableNameArray'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'StringArray'
+        Value = Null
+      end
+      item
+        Name = 'aTableRequestInfoArray'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'TableRequestInfoArray'
+        Value = Null
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end>
+    GetDataCall.Default = False
+    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
+    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
+    GetDataCall.IncomingDataParameter = 'Result'
+    UpdateDataCall.RemoteService = RemoteService
+    UpdateDataCall.MethodName = 'UpdateData'
+    UpdateDataCall.Params = <
+      item
+        Name = 'aDelta'
+        DataType = rtBinary
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    UpdateDataCall.Default = False
+    UpdateDataCall.OutgoingDeltaParameter = 'aDelta'
+    UpdateDataCall.IncomingDeltaParameter = 'Result'
+    GetScriptsCall.RemoteService = RemoteService
+    GetScriptsCall.MethodName = 'GetDatasetScripts'
+    GetScriptsCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtString
+        Flag = fResult
+      end
+      item
+        Name = 'DatasetNames'
+        DataType = rtString
+        Flag = fIn
+        Value = Null
+      end>
+    GetScriptsCall.Default = False
+    GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
+    GetScriptsCall.IncomingScriptParameter = 'Result'
+    RemoteService = RemoteService
+    DataStreamer = BinDataStreamer
+    AutoFillScripts = True
+    Left = 128
+    Top = 103
+  end
+  object dtOrderDetails: TDACDSDataTable
+    ScriptingProvider = DAPSScriptingProvider
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ProductName'
+        DataType = datString
+        Size = 50
+        BlobType = dabtUnknown
+        LogChanges = False
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = True
+        LookupSource = dsProducts
+        LookupKeyFields = 'ProductID'
+        LookupResultField = 'ProductName'
+        KeyFields = 'ProductID'
+        LookupCache = True
+      end
+      item
+        Name = 'ProductID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Visible = False
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'UnitPrice'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Quantity'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Discount'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayFormat = '0.##'
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Gain'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        LogChanges = False
+        DisplayWidth = 0
+        DisplayFormat = '0.##'
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = True
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'OrderDetails'
+    IndexDefs = <>
+    Left = 157
+    Top = 159
+  end
+  object dsOrderDetails: TDADataSource
+    DataSet = dtOrderDetails.Dataset
+    DataTable = dtOrderDetails
+    Left = 158
+    Top = 188
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientData.pas
new file mode 100644
index 0000000..3a2634c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientData.pas	
@@ -0,0 +1,37 @@
+unit BusinessRulesScripts_ClientData;
+
+interface
+
+uses {vcl:} SysUtils, Classes, DB, DBClient, 
+     {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+     {Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
+   uDAScriptingProvider, uDACDSDataTable,
+  uDAPSScriptingProvider, uDADataStreamer, uDARemoteDataAdapter;
+
+type
+  TBusinessRulesScripts_ClientDataModule = class(TDataModule)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    BinDataStreamer: TDABinDataStreamer;
+    dtProducts: TDACDSDataTable;
+    dsProducts: TDADataSource;
+    DAPSScriptingProvider: TDAPSScriptingProvider;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    dtOrderDetails: TDACDSDataTable;
+    dsOrderDetails: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BusinessRulesScripts_ClientDataModule: TBusinessRulesScripts_ClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientMain.dfm
new file mode 100644
index 0000000..09aec1d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientMain.dfm	
@@ -0,0 +1,79 @@
+object BusinessRulesScripts_ClientMainForm: TBusinessRulesScripts_ClientMainForm
+  Left = 163
+  Top = 30
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'Business Rules Script Client'
+  ClientHeight = 316
+  ClientWidth = 565
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object BitBtn1: TBitBtn
+    Left = 0
+    Top = 0
+    Width = 169
+    Height = 25
+    Caption = 'Refresh Scripts from Server'
+    TabOrder = 0
+    OnClick = BitBtn1Click
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFA467698E5D598E5D598E5D598E5D598E5D598E
+      5D598E5D598E5D598E5D598E5D598E5D5980504BFF00FFFF00FFFF00FFA46769
+      FCEACEF3DABCF2D5B1F0D0A7EECB9EEDC793EDC28BE9BD81E9BD7FE9BD7FEFC4
+      8180504BFF00FFFF00FFFF00FFA0675BFEEFDAF6E0C6F2DABCF2D5B2C1C18800
+      7000007000BDB672E9BD82E9BD7FEFC48180504BFF00FFFF00FFFF00FFA0675B
+      FFF4E5F7E5CF007000C4CA97007000C2C187C0BD80007000BDB66FEABF81EFC4
+      8080504BFF00FFFF00FFFF00FFA7756BFFFBF0F8EADC007000007000C4C998F2
+      D5B1F0D0A9BFBD80007000EBC28AEFC58380504BFF00FFFF00FFFF00FFA7756B
+      FFFFFCFAF0E6007000007000007000F2DABAF2D5B1F0D0A7EECB9DEBC793F2C9
+      8C80504BFF00FFFF00FFFF00FFBC8268FFFFFFFEF7F2FAEFE6F8EAD9F7E3CFF6
+      E0C5007000007000007000EECC9EF3CE9780504BFF00FFFF00FFFF00FFBC8268
+      FFFFFFFFFEFC007000CADABAF7EADAF6E3CFC5CE9F007000007000F0D0A6F6D3
+      A080504BFF00FFFF00FFFF00FFD1926DFFFFFFFFFFFFCEE7CC007000CADAB8C9
+      D7B0007000C6CC9E007000F4D8B1EBCFA480504BFF00FFFF00FFFF00FFD1926D
+      FFFFFFFFFFFFFFFFFFCEE7CC007000007000C9D5B0F8E7D1FBEACEDECEB4B6AA
+      9380504BFF00FFFF00FFFF00FFDA9D75FFFFFFFFFFFFFFFFFFFFFFFFFFFEFCFC
+      F6EFFCF3E6EDD8C9A0675BA0675BA0675BA0675BFF00FFFF00FFFF00FFDA9D75
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFBFFFEF7DAC1BAA0675BE19E55E68F
+      31B56D4DFF00FFFF00FFFF00FFE7AB79FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFDCC7C5A0675BF8B55CBF7A5CFF00FFFF00FFFF00FFFF00FFE7AB79
+      FBF4F0FBF4EFFAF3EFFAF3EFF8F2EFF7F2EFF7F2EFD8C2C0A0675BC1836CFF00
+      FFFF00FFFF00FFFF00FFFF00FFE7AB79CF8E68CF8E68CF8E68CF8E68CF8E68CF
+      8E68CF8E68CF8E68A0675BFF00FFFF00FFFF00FFFF00FFFF00FF}
+  end
+  object gOrderDetails: TDBGrid
+    Left = 0
+    Top = 33
+    Width = 565
+    Height = 283
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = BusinessRulesScripts_ClientDataModule.dsOrderDetails
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+  end
+  object DBNavigator1: TDBNavigator
+    Left = 176
+    Top = 0
+    Width = 370
+    Height = 25
+    DataSource = BusinessRulesScripts_ClientDataModule.dsOrderDetails
+    TabOrder = 2
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientMain.pas
new file mode 100644
index 0000000..61142e6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ClientMain.pas	
@@ -0,0 +1,45 @@
+unit BusinessRulesScripts_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROIndyHTTPChannel,
+  Buttons, ExtCtrls, DBCtrls, Grids, DBGrids;
+
+type
+  TBusinessRulesScripts_ClientMainForm = class(TForm)
+    BitBtn1: TBitBtn;
+    gOrderDetails: TDBGrid;
+    DBNavigator1: TDBNavigator;
+    procedure BitBtn1Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BusinessRulesScripts_ClientMainForm: TBusinessRulesScripts_ClientMainForm;
+
+implementation
+
+uses
+  BusinessRulesScripts_ClientData;
+
+{$R *.dfm}
+
+procedure TBusinessRulesScripts_ClientMainForm.BitBtn1Click(Sender: TObject);
+begin
+  BusinessRulesScripts_ClientDataModule.dtOrderDetails.LoadScript();
+  gOrderDetails.Refresh();
+end;
+
+procedure TBusinessRulesScripts_ClientMainForm.FormCreate(Sender: TObject);
+begin
+  BusinessRulesScripts_ClientDataModule.dtOrderDetails.Open();
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.bdsproj
new file mode 100644
index 0000000..98c5c99
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{FFAC48F8-D2E5-4F68-9B69-0716120E4B35}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">BusinessRulesScripts_Server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.dpr
new file mode 100644
index 0000000..22834ce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.dpr	
@@ -0,0 +1,23 @@
+program BusinessRulesScripts_Server;
+
+{#ROGEN:BusinessRulesScriptsLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  BusinessRulesScripts_ServerMain in 'BusinessRulesScripts_ServerMain.pas' {BusinessRulesScripts_ServerMainForm},
+  BusinessRulesScripts_ServerData in 'BusinessRulesScripts_ServerData.pas' {BusinessRulesScripts_ServerDataModule: TDataModule},
+  BusinessRulesScriptsLibrary_Intf in 'BusinessRulesScriptsLibrary_Intf.pas',
+  BusinessRulesScriptsLibrary_Invk in 'BusinessRulesScriptsLibrary_Invk.pas',
+  NewService_Impl in 'NewService_Impl.pas' {NewService: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'BusinessRulesScripts Server';
+  Application.CreateForm(TBusinessRulesScripts_ServerDataModule, BusinessRulesScripts_ServerDataModule);
+  Application.CreateForm(TBusinessRulesScripts_ServerMainForm, BusinessRulesScripts_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.dproj
new file mode 100644
index 0000000..c68382c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{61f4e143-e541-455f-bfd4-108c7175e3aa}</ProjectGuid>
+    <MainSource>BusinessRulesScripts_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>BusinessRulesScripts_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">BusinessRulesScripts_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="BusinessRulesScripts_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BusinessRulesScriptsLibrary_Intf.pas" />
+    <DCCReference Include="BusinessRulesScriptsLibrary_Invk.pas" />
+    <DCCReference Include="BusinessRulesScripts_ServerData.pas">
+      <Form>BusinessRulesScripts_ServerDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="BusinessRulesScripts_ServerMain.pas">
+      <Form>BusinessRulesScripts_ServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="NewService_Impl.pas">
+      <Form>NewService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerData.dfm
new file mode 100644
index 0000000..d8371c2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerData.dfm	
@@ -0,0 +1,336 @@
+object BusinessRulesScripts_ServerDataModule: TBusinessRulesScripts_ServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 340
+  Top = 54
+  Height = 399
+  Width = 342
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object ROMessage: TROBinMessage
+    Left = 34
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'          
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object Schema: TDASchema
+    ConnectionManager = ConnectionManager
+    DataDictionary = DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Products'
+            SQL = 
+              'SELECT '#10'    ProductID, ProductName, SupplierID, CategoryID, Quan' +
+              'tityPerUnit, '#10'    UnitPrice, UnitsInStock, UnitsOnOrder, Reorder' +
+              'Level, '#10'    Discontinued'#10'  FROM'#10'    Products'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProductID'
+                TableField = 'ProductID'
+              end
+              item
+                DatasetField = 'ProductName'
+                TableField = 'ProductName'
+              end
+              item
+                DatasetField = 'SupplierID'
+                TableField = 'SupplierID'
+              end
+              item
+                DatasetField = 'CategoryID'
+                TableField = 'CategoryID'
+              end
+              item
+                DatasetField = 'QuantityPerUnit'
+                TableField = 'QuantityPerUnit'
+              end
+              item
+                DatasetField = 'UnitPrice'
+                TableField = 'UnitPrice'
+              end
+              item
+                DatasetField = 'UnitsInStock'
+                TableField = 'UnitsInStock'
+              end
+              item
+                DatasetField = 'UnitsOnOrder'
+                TableField = 'UnitsOnOrder'
+              end
+              item
+                DatasetField = 'ReorderLevel'
+                TableField = 'ReorderLevel'
+              end
+              item
+                DatasetField = 'Discontinued'
+                TableField = 'Discontinued'
+              end>
+          end>
+        Name = 'Products'
+        Fields = <
+          item
+            Name = 'ProductID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ProductName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'SupplierID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CategoryID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'QuantityPerUnit'
+            DataType = datWideString
+            Size = 20
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'UnitPrice'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'UnitsInStock'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'UnitsOnOrder'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ReorderLevel'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Discontinued'
+            DataType = datBoolean
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'OrderDetails'
+            SQL = 
+              'SELECT '#10'    OrderID, ProductID, UnitPrice, Quantity, Discount'#10'  ' +
+              'FROM'#10'    [Order Details]'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'ProductID'
+                TableField = 'ProductID'
+              end
+              item
+                DatasetField = 'UnitPrice'
+                TableField = 'UnitPrice'
+              end
+              item
+                DatasetField = 'Quantity'
+                TableField = 'Quantity'
+              end
+              item
+                DatasetField = 'Discount'
+                TableField = 'Discount'
+              end>
+          end>
+        Name = 'OrderDetails'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ProductID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'UnitPrice'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Quantity'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Discount'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.Script = 
+          'procedure BeforeDelete;'#10'begin'#10'  if Gain > 50 then'#10'    RaiseError' +
+          '('#39'Cannot delete orders that make us more then 50$'#39');'#10'end;'#10#10'pro' +
+          'cedure BeforePost;'#10'begin'#10'  if VarIsNull(ProductID) then'#10'    Rais' +
+          'eError('#39'Please specify a name.'#39');'#10'    '#10'  if Quantity < 1 then'#10'  ' +
+          '  RaiseError('#39'Quantity can not be less 1 !'#39');'#10#10'  if UnitPrice < ' +
+          '10 then'#10'    Quantity := 10;'#10'end;'#10#10'procedure OnCalcFields;'#10'begin'#10 +
+          '  Gain := UnitPrice*Quantity*(1-Discount);'#10'end;'#10#10'procedure OnNew' +
+          'Record;'#10'begin'#10'  Quantity := 1;'#10'end;'
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 43
+    Top = 150
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 40
+    Top = 200
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerData.pas
new file mode 100644
index 0000000..6e4f778
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerData.pas	
@@ -0,0 +1,39 @@
+unit BusinessRulesScripts_ServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDADriverManager, uDAClasses, uDAEngine, uDAADODriver, uROIndyTCPServer,
+  uDADataTable, uDABINAdapter;
+
+type
+  TBusinessRulesScripts_ServerDataModule = class(TDataModule)
+    ROServer: TROIndyHTTPServer;
+    ROMessage: TROBinMessage;
+    DriverManager: TDADriverManager;
+    ConnectionManager: TDAConnectionManager;
+    Schema: TDASchema;
+    DataDictionary: TDADataDictionary;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BusinessRulesScripts_ServerDataModule: TBusinessRulesScripts_ServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TBusinessRulesScripts_ServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerMain.dfm
new file mode 100644
index 0000000..6975a5e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerMain.dfm	
@@ -0,0 +1,40 @@
+object BusinessRulesScripts_ServerMainForm: TBusinessRulesScripts_ServerMainForm
+  Left = 90
+  Top = 79
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'Business Rules Scripts Server'
+  ClientHeight = 406
+  ClientWidth = 614
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 0
+    Top = 0
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object ed_Script: TMemo
+    Left = 0
+    Top = 54
+    Width = 614
+    Height = 352
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Courier New'
+    Font.Style = []
+    ParentFont = False
+    ScrollBars = ssVertical
+    TabOrder = 0
+    OnChange = ed_ScriptChange
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerMain.pas
new file mode 100644
index 0000000..4c13c25
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/BusinessRulesScripts_ServerMain.pas	
@@ -0,0 +1,45 @@
+unit BusinessRulesScripts_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer;
+
+type
+  TBusinessRulesScripts_ServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ed_Script: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure ed_ScriptChange(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  BusinessRulesScripts_ServerMainForm: TBusinessRulesScripts_ServerMainForm;
+
+implementation
+
+uses
+  BusinessRulesScripts_ServerData;
+
+{$R *.dfm}
+
+procedure TBusinessRulesScripts_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  with BusinessRulesScripts_ServerDataModule.Schema.Datasets.DatasetByName('OrderDetails').BusinessRulesClient do
+    ed_Script.Text := StringReplace(Script, #10, sLineBreak, [rfReplaceAll]);
+end;
+
+procedure TBusinessRulesScripts_ServerMainForm.ed_ScriptChange(Sender: TObject);
+begin
+  with BusinessRulesScripts_ServerDataModule.Schema.Datasets.DatasetByName('OrderDetails').BusinessRulesClient do
+    Script := ed_Script.Text;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/NewService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/NewService_Impl.dfm
new file mode 100644
index 0000000..3cac002
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/NewService_Impl.dfm	
@@ -0,0 +1,15 @@
+object NewService: TNewService
+  OldCreateOrder = True
+  AcquireConnection = True
+  ServiceSchema = BusinessRulesScripts_ServerDataModule.Schema
+  ServiceDataStreamer = BinDataStreamer
+  ExportedDataTables = <>
+  Left = 188
+  Top = 181
+  Height = 150
+  Width = 205
+  object BinDataStreamer: TDABinDataStreamer
+    Left = 33
+    Top = 18
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/NewService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/NewService_Impl.pas
new file mode 100644
index 0000000..51b6c4f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/NewService_Impl.pas	
@@ -0,0 +1,45 @@
+unit NewService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} BusinessRulesScriptsLibrary_Intf, uDADataStreamer,
+  uDABinAdapter,uDAInterfaces;
+
+type
+  { TNewService }
+  TNewService = class(TDataAbstractService, INewService)
+    BinDataStreamer: TDABinDataStreamer;
+  private
+  protected
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} BusinessRulesScriptsLibrary_Invk, BusinessRulesScripts_ServerData,TypInfo;
+
+procedure Create_NewService(out anInstance: IUnknown);
+begin
+  anInstance := TNewService.Create(nil);
+end;
+
+initialization
+  TROClassFactory.Create('NewService', Create_NewService, TNewService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/RODLFILE.res
new file mode 100644
index 0000000..c9e0ee6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Business Rules Scripts/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.Sample.html
new file mode 100644
index 0000000..2d8151b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.Sample.html	
@@ -0,0 +1,31 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align=right>
+
+<!-------------------------------------------------------------------------->
+<p class="h1">
+  Calculated Fields Example
+</p>
+<h2>Purpose</h2>
+<p>
+  This example shows how to handle calculated fields server side and client
+  side.
+</p>
+<h2>Examine the Code</h2>
+<p>
+  <b>Server side</b> fields are processed via the <b>BinAdapter's OnWriteFieldValue</b>
+  event handler (see <b>CalcFieldsService_Impl</b>).
+</p>
+<p>
+  On the <b>client side</b>, they are handled as you would expect via <b>dtCustomers.OnCalcFields</b>
+  (see <b>CalcFields_ClientData</b>). Note though, how the client field actually references
+  the server value.
+</p>
+
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.bdsgroup
new file mode 100644
index 0000000..9fa715f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{FEE7EB90-4635-4022-B5E9-A2E21086B02B}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="CalcFields_Server.exe">CalcFields_Server.bdsproj</Projects>
+      <Projects Name="CalcFields_Client.exe">CalcFields_Client.bdsproj</Projects>
+      <Projects Name="Targets">CalcFields_Server.exe CalcFields_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.bpg
new file mode 100644
index 0000000..024afdc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = CalcFields_Server.exe CalcFields_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+CalcFields_Client.exe: CalcFields_Client.dpr
+  $(DCC)
+
+CalcFields_Server.exe: CalcFields_Server.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.groupproj
new file mode 100644
index 0000000..f6d8ad4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{70b86ab1-4399-4031-8bb6-28a50d072647}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="CalcFields_Server">
+    <MSBuild Projects="CalcFields_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="CalcFields_Server:Clean">
+    <MSBuild Projects="CalcFields_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="CalcFields_Server:Make">
+    <MSBuild Projects="CalcFields_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="CalcFields_Client">
+    <MSBuild Projects="CalcFields_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="CalcFields_Client:Clean">
+    <MSBuild Projects="CalcFields_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="CalcFields_Client:Make">
+    <MSBuild Projects="CalcFields_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="CalcFields_Server;CalcFields_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="CalcFields_Server:Clean;CalcFields_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="CalcFields_Server:Make;CalcFields_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary.rodl
new file mode 100644
index 0000000..d2b0b72
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary.rodl	
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="CalcFieldsLibrary" UID="{A54F3492-C4C5-4161-8536-FE04F7DE88E5}" Version="3.0">
+<Services>
+<Service Name="CalcFieldsService" UID="{9D552847-0CCD-473A-81B3-795B66399143}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{7113FC5C-4AB9-4583-B4E6-5F7F5A975E0A}">
+<Documentation><![CDATA[
+Service NewService. This service has been automatically generated using the Data Abstract template you can find in the Templates directory.]]></Documentation><Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{ED3B8FD7-802F-4482-BB4C-442C3FE64B4C}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary_Intf.pas
new file mode 100644
index 0000000..63bfd01
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary_Intf.pas	
@@ -0,0 +1,82 @@
+unit CalcFieldsLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{A54F3492-C4C5-4161-8536-FE04F7DE88E5}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  ICalcFieldsService_IID : TGUID = '{7113FC5C-4AB9-4583-B4E6-5F7F5A975E0A}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  ICalcFieldsService = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { ICalcFieldsService }
+  ICalcFieldsService = interface(IDataAbstractService)
+    ['{7113FC5C-4AB9-4583-B4E6-5F7F5A975E0A}']
+  end;
+
+  { CoCalcFieldsService }
+  CoCalcFieldsService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ICalcFieldsService;
+  end;
+
+  { TCalcFieldsService_Proxy }
+  TCalcFieldsService_Proxy = class(TDataAbstractService_Proxy, ICalcFieldsService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoCalcFieldsService }
+
+class function CoCalcFieldsService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ICalcFieldsService;
+begin
+  result := TCalcFieldsService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TCalcFieldsService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'CalcFieldsService';
+end;
+
+initialization
+  RegisterProxyClass(ICalcFieldsService_IID, TCalcFieldsService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(ICalcFieldsService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary_Invk.pas
new file mode 100644
index 0000000..e3e62a2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsLibrary_Invk.pas	
@@ -0,0 +1,35 @@
+unit CalcFieldsLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} CalcFieldsLibrary_Intf;
+
+type
+  TCalcFieldsService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsService_Impl.dfm
new file mode 100644
index 0000000..2d9dc08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsService_Impl.dfm	
@@ -0,0 +1,83 @@
+object CalcFieldsService: TCalcFieldsService
+  OldCreateOrder = True
+  OnCreate = DataAbstractServiceCreate
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Height = 300
+  Width = 300
+  object DataStreamer: TDABin2DataStreamer
+    OnWriteFieldValue = DataStreamerWriteFieldValue
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = CalcFields_ServerDataForm.ConnectionManager
+    DataDictionary = DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 'SELECT '#10'    CustomerID, CompanyName'#10#10'  FROM'#10'    Customers'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ServerCalculated'
+                TableField = '<unknown>'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            InPrimaryKey = True
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+          end
+          item
+            Name = 'ServerCalculated'
+            DataType = datInteger
+            LogChanges = False
+            ReadOnly = True
+            ServerCalculated = True
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 32
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 103
+  end
+  object bpCustomers: TDABusinessProcessor
+    Schema = Schema
+    ReferencedDataset = 'Customers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 112
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsService_Impl.pas
new file mode 100644
index 0000000..66b73ec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFieldsService_Impl.pas	
@@ -0,0 +1,75 @@
+unit CalcFieldsService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} CalcFieldsLibrary_Intf, uDAScriptingProvider,
+  uDABusinessProcessor, uDAInterfaces, uDAClasses, uDADataStreamer, 
+  uDABin2DataStreamer;
+
+const
+  { Dataset names for Schema }
+  ds_Customers = 'Customers';
+
+type
+  { TCalcFieldsService }
+  TCalcFieldsService = class(TDataAbstractService, ICalcFieldsService)
+    DataStreamer: TDABin2DataStreamer;
+    bpCustomers: TDABusinessProcessor;
+    Schema: TDASchema;
+    DataDictionary: TDADataDictionary;
+    procedure DataStreamerWriteFieldValue(const aField: TDAField;
+      var Value: Variant);
+    procedure DataAbstractServiceCreate(Sender: TObject);
+  private
+    fNextCalcValue: Integer;
+  protected
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} CalcFieldsLibrary_Invk, CalcFields_ServerData;
+
+procedure Create_CalcFieldsService(out anInstance: IUnknown);
+begin
+  anInstance := TCalcFieldsService.Create(nil);
+end;
+
+{ CalcFieldsService }
+
+procedure TCalcFieldsService.DataStreamerWriteFieldValue(
+  const aField: TDAField; var Value: Variant);
+begin
+  if SameText(aField.Name, 'ServerCalculated') then
+  begin
+    Value := fNextCalcValue;
+    Inc(fNextCalcValue);
+  end;
+end;
+
+procedure TCalcFieldsService.DataAbstractServiceCreate(Sender: TObject);
+begin
+  inherited;
+  fNextCalcValue := 100;
+end;
+
+initialization
+  TROClassFactory.Create('CalcFieldsService', Create_CalcFieldsService, TCalcFieldsService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.bdsproj
new file mode 100644
index 0000000..5415a64
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1F7E3666-5A67-4702-8BED-705025CE0211}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">CalcFields_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.dpr
new file mode 100644
index 0000000..b5f93c5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.dpr	
@@ -0,0 +1,17 @@
+program CalcFields_Client;
+
+uses
+  uROComInit,
+  Forms,
+  CalcFields_ClientMain in 'CalcFields_ClientMain.pas' {CalcFields_ClientMainForm},
+  CalcFields_ClientData in 'CalcFields_ClientData.pas' {CalcFields_ClientDataForm: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'CalcFields - Client';
+  Application.CreateForm(TCalcFields_ClientDataForm, CalcFields_ClientDataForm);
+  Application.CreateForm(TCalcFields_ClientMainForm, CalcFields_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.dproj
new file mode 100644
index 0000000..d95c35c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{507351df-1ced-4f28-becd-e7e287bd9083}</ProjectGuid>
+    <MainSource>CalcFields_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>CalcFields_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">CalcFields_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="CalcFields_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="CalcFields_ClientData.pas">
+      <Form>CalcFields_ClientDataForm</Form>
+    </DCCReference>
+    <DCCReference Include="CalcFields_ClientMain.pas">
+      <Form>CalcFields_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.res
new file mode 100644
index 0000000..cd90391
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientData.dfm
new file mode 100644
index 0000000..243d2aa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientData.dfm	
@@ -0,0 +1,88 @@
+object CalcFields_ClientDataForm: TCalcFields_ClientDataForm
+  OldCreateOrder = True
+  OnCreate = DataModuleCreate
+  Height = 300
+  Width = 300
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 42
+    Top = 10
+  end
+  object ROMessage: TROBinMessage
+    Left = 41
+    Top = 52
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'CalcFieldsService'
+    Left = 40
+    Top = 95
+  end
+  object DARemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RORemoteService
+    GetDataCall.RemoteService = RORemoteService
+    UpdateDataCall.RemoteService = RORemoteService
+    GetScriptsCall.RemoteService = RORemoteService
+    RemoteService = RORemoteService
+    DataStreamer = DataStreamer
+    Left = 128
+    Top = 82
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 144
+  end
+  object tbl_Customers: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        InPrimaryKey = True
+        OnChange = tbl_CustomersCustomerIDChange
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datString
+        Size = 40
+        OnChange = tbl_CustomersCompanyNameChange
+      end
+      item
+        Name = 'ServerCalculated'
+        DataType = datInteger
+        LogChanges = False
+        ReadOnly = True
+        ServerCalculated = True
+      end
+      item
+        Name = 'ClientCalculated'
+        DataType = datString
+        Size = 50
+        LogChanges = False
+        DisplayWidth = 50
+        ReadOnly = True
+        Calculated = True
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = DARemoteDataAdapter
+    OnCalcFields = tbl_CustomersCalcFields
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 136
+    Top = 136
+  end
+  object ds_Customers: TDADataSource
+    DataSet = tbl_Customers.Dataset
+    DataTable = tbl_Customers
+    Left = 168
+    Top = 136
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientData.pas
new file mode 100644
index 0000000..178fcdd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientData.pas	
@@ -0,0 +1,66 @@
+unit CalcFields_ClientData;
+
+interface
+
+uses {vcl:}  SysUtils, Classes, DB, DBClient,
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  {Data Abstract:}  uDADataTable, uDABINAdapter, uDAInterfaces,
+  uDACDSDataTable,  uDAScriptingProvider,
+  uDARemoteDataAdapter, uDADataStreamer, uROIndyTCPChannel,
+  uROIndyHTTPChannel, uDABin2DataStreamer, uDAMemDataTable;
+
+type
+  TCalcFields_ClientDataForm = class(TDataModule)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    DARemoteDataAdapter: TDARemoteDataAdapter;
+    DataStreamer: TDABin2DataStreamer;
+    tbl_Customers: TDAMemDataTable;
+    ds_Customers: TDADataSource;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure tbl_CustomersCustomerIDChange(Sender: TDACustomField);
+    procedure tbl_CustomersCompanyNameChange(Sender: TDACustomField);
+    procedure tbl_CustomersCalcFields(DataTable: TDADataTable);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  CalcFields_ClientDataForm: TCalcFields_ClientDataForm;
+
+implementation
+{$R *.dfm}
+
+procedure TCalcFields_ClientDataForm.tbl_CustomersCalcFields(
+  DataTable: TDADataTable);
+begin
+  if  DataTable.FieldByName('ServerCalculated').IsNULL  then
+    DataTable.FieldByName('ClientCalculated').AsString := ''
+  else
+    DataTable.FieldByName('ClientCalculated').AsString :=
+      'Got #' + DataTable.FieldByName('ServerCalculated').AsString;
+end;
+
+procedure TCalcFields_ClientDataForm.tbl_CustomersCompanyNameChange(
+  Sender: TDACustomField);
+begin
+  Beep;
+end;
+
+procedure TCalcFields_ClientDataForm.tbl_CustomersCustomerIDChange(
+  Sender: TDACustomField);
+begin
+  Beep;
+end;
+
+procedure TCalcFields_ClientDataForm.DataModuleCreate(Sender: TObject);
+begin
+  DARemoteDataAdapter.SetupDefaultRequest;
+end;
+
+initialization
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientMain.dfm
new file mode 100644
index 0000000..b5b48a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientMain.dfm	
@@ -0,0 +1,56 @@
+object CalcFields_ClientMainForm: TCalcFields_ClientMainForm
+  Left = 243
+  Top = 213
+  Width = 420
+  Height = 311
+  BorderWidth = 5
+  Caption = 'CalcFields - Client'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 178
+    Top = 0
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    Anchors = [akTop, akRight]
+    ApplicationType = atClient
+  end
+  object OpenCloseButton: TButton
+    Left = 0
+    Top = 0
+    Width = 75
+    Height = 25
+    Caption = 'Open/Close'
+    TabOrder = 0
+    OnClick = OpenCloseButtonClick
+  end
+  object gCustomers: TDBGrid
+    Left = 0
+    Top = 53
+    Width = 394
+    Height = 212
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = CalcFields_ClientDataForm.ds_Customers
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object ApplyUpdatesButton: TButton
+    Left = 80
+    Top = 0
+    Width = 89
+    Height = 25
+    Caption = 'Apply Updates'
+    TabOrder = 2
+    OnClick = ApplyUpdatesButtonClick
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientMain.pas
new file mode 100644
index 0000000..5f9701f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ClientMain.pas	
@@ -0,0 +1,45 @@
+unit CalcFields_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROIndyHTTPChannel,
+  Grids, DBGrids, uROPoweredByRemObjectsButton;
+
+type
+  TCalcFields_ClientMainForm = class(TForm)
+    OpenCloseButton: TButton;
+    gCustomers: TDBGrid;
+    ApplyUpdatesButton: TButton;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    procedure OpenCloseButtonClick(Sender: TObject);
+    procedure ApplyUpdatesButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  CalcFields_ClientMainForm: TCalcFields_ClientMainForm;
+
+implementation
+
+uses CalcFields_ClientData;
+
+{$R *.dfm}
+
+procedure TCalcFields_ClientMainForm.OpenCloseButtonClick(Sender: TObject);
+begin
+  with CalcFields_ClientDataForm do
+    tbl_Customers.Active := not tbl_Customers.Active;
+end;
+
+procedure TCalcFields_ClientMainForm.ApplyUpdatesButtonClick(Sender: TObject);
+begin
+  CalcFields_ClientDataForm.tbl_Customers.ApplyUpdates(True)
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.bdsproj
new file mode 100644
index 0000000..e42d0d9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{B93152B5-C4DC-44D6-8AAE-74C5E123799C}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">CalcFields_Server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.dpr
new file mode 100644
index 0000000..6a5f57f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.dpr	
@@ -0,0 +1,23 @@
+program CalcFields_Server;
+
+{#ROGEN:CalcFieldsLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  CalcFields_ServerMain in 'CalcFields_ServerMain.pas' {CalcFields_ServerMainForm},
+  CalcFields_ServerData in 'CalcFields_ServerData.pas' {CalcFields_ServerDataForm: TDataModule},
+  CalcFieldsLibrary_Intf in 'CalcFieldsLibrary_Intf.pas',
+  CalcFieldsLibrary_Invk in 'CalcFieldsLibrary_Invk.pas',
+  CalcFieldsService_Impl in 'CalcFieldsService_Impl.pas' {CalcFieldsService: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'CalcFields - Server';
+  Application.CreateForm(TCalcFields_ServerDataForm, CalcFields_ServerDataForm);
+  Application.CreateForm(TCalcFields_ServerMainForm, CalcFields_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.dproj
new file mode 100644
index 0000000..3d6e553
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e6dc35c7-8101-4b42-8f70-e31cf121c23b}</ProjectGuid>
+    <MainSource>CalcFields_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>CalcFields_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">CalcFields_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="CalcFields_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="CalcFieldsLibrary_Intf.pas" />
+    <DCCReference Include="CalcFieldsLibrary_Invk.pas" />
+    <DCCReference Include="CalcFieldsService_Impl.pas">
+      <Form>CalcFieldsService</Form>
+    </DCCReference>
+    <DCCReference Include="CalcFields_ServerData.pas">
+      <Form>CalcFields_ServerDataForm</Form>
+    </DCCReference>
+    <DCCReference Include="CalcFields_ServerMain.pas">
+      <Form>CalcFields_ServerMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.res
new file mode 100644
index 0000000..ec4433b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerData.dfm
new file mode 100644
index 0000000..6229eb8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerData.dfm	
@@ -0,0 +1,49 @@
+object CalcFields_ServerDataForm: TCalcFields_ServerDataForm
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Height = 207
+  Width = 352
+  object ROServer: TROIndyHTTPServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object ROMessage: TROBinMessage
+    Left = 34
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI;'
+        Description = 'Borland ADOExpress Connection'
+        Default = True
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 232
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerData.pas
new file mode 100644
index 0000000..3d4b59a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerData.pas	
@@ -0,0 +1,38 @@
+unit CalcFields_ServerData;
+
+interface
+
+uses
+  SysUtils, Classes, 
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDADriverManager, uDAClasses, uDADBXDriver, uDAEngine, uDAADODriver,
+  uROIndyTCPServer;
+
+type
+  TCalcFields_ServerDataForm = class(TDataModule)
+    ROServer: TROIndyHTTPServer;
+    ROMessage: TROBinMessage;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    ConnectionManager: TDAConnectionManager;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  CalcFields_ServerDataForm: TCalcFields_ServerDataForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TCalcFields_ServerDataForm.DataModuleCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerMain.dfm
new file mode 100644
index 0000000..39d1baa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerMain.dfm	
@@ -0,0 +1,21 @@
+object CalcFields_ServerMainForm: TCalcFields_ServerMainForm
+  Left = 122
+  Top = 243
+  BorderStyle = bsDialog
+  Caption = 'CalcFields - Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerMain.pas
new file mode 100644
index 0000000..9fa2b27
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/CalcFields_ServerMain.pas	
@@ -0,0 +1,26 @@
+unit CalcFields_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer;
+
+type
+  TCalcFields_ServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton: TROPoweredByRemObjectsButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  CalcFields_ServerMainForm: TCalcFields_ServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/RODLFILE.res
new file mode 100644
index 0000000..09082da
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Calculated Fields/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.Sample.html
new file mode 100644
index 0000000..33b66bf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.Sample.html	
@@ -0,0 +1,44 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Connection By User</span> 
+</p>
+<h2>Purpose</h2>
+<p>
+  Shows various methods how a standard application (i.e. not a RemObjects server or
+    client) can obtain a database connection at runtime.
+    <br />
+    The application uses four Data Abstract components:&nbsp; <strong>TDAADODriver</strong>,
+    <strong>TDADriverManager</strong>, <strong>TDAConnectionManager</strong> and <strong>
+        TROInMemorySessionManager</strong>.</p>
+  <ul>
+  <li>
+  <b>Acquire #1</b> : one-liner to open default connection
+  </li>
+  <li>
+  <b>Acquire #2</b> : delayed open after supplying userid/pass separately
+  </li>
+  <li>
+  <b>Acquire #3</b> : one-liner supplying userid/pass
+  </li>
+      <li><strong>Acquire #4</strong> : connect via the <strong>DADriverManager</strong>&nbsp;</li>
+      <li>
+  <b>Acquire and Hold in a Session</b> : explore this method to see how to
+  create,
+  access and release a connection within a session.
+  </li>
+  </ul>
+        <p>
+            All tests above connect via the <strong>DAConnectionManager </strong>except for<strong>
+                #4.</strong></p>
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.bdsproj
new file mode 100644
index 0000000..b010e02
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{8BFD1D8A-ABA4-4A12-82FE-63649C554864}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ConnectionByUser.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.dpr
new file mode 100644
index 0000000..460e7fd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.dpr	
@@ -0,0 +1,14 @@
+program ConnectionByUser;
+
+uses
+  Forms,
+  ConnectionByUserMain in 'ConnectionByUserMain.pas' {ConnectionByUserMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Connection By User';
+  Application.CreateForm(TConnectionByUserMainForm, ConnectionByUserMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.dproj
new file mode 100644
index 0000000..689fa90
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3a10f6d7-3d2b-4bea-bad3-215392d8b601}</ProjectGuid>
+    <MainSource>ConnectionByUser.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ConnectionByUser.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ConnectionByUser.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ConnectionByUser.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ConnectionByUserMain.pas">
+      <Form>ConnectionByUserMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.res
new file mode 100644
index 0000000..6a1db77
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUser.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUserMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUserMain.dfm
new file mode 100644
index 0000000..d039031
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUserMain.dfm	
@@ -0,0 +1,168 @@
+object ConnectionByUserMainForm: TConnectionByUserMainForm
+  Left = 32
+  Top = 37
+  AutoScroll = False
+  Caption = 'Connection by User'
+  ClientHeight = 313
+  ClientWidth = 506
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label3: TLabel
+    Left = 309
+    Top = 18
+    Width = 117
+    Height = 13
+    Caption = 'Open default connection'
+  end
+  object Label4: TLabel
+    Left = 309
+    Top = 52
+    Width = 174
+    Height = 13
+    Caption = 'Delayed "Open" after supplying login'
+  end
+  object Label5: TLabel
+    Left = 309
+    Top = 82
+    Width = 155
+    Height = 13
+    Caption = 'One-liner Open with custom login'
+  end
+  object Label6: TLabel
+    Left = 309
+    Top = 114
+    Width = 133
+    Height = 13
+    Caption = 'Using the DADriverManager'
+  end
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 217
+    Height = 89
+    Caption = 'Login Info'
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 29
+      Top = 28
+      Width = 36
+      Height = 13
+      Caption = 'UserID:'
+    end
+    object Label2: TLabel
+      Left = 16
+      Top = 60
+      Width = 49
+      Height = 13
+      Caption = 'Password:'
+    end
+    object eUserID: TEdit
+      Left = 72
+      Top = 24
+      Width = 121
+      Height = 24
+      TabOrder = 0
+      Text = 'sa'
+    end
+    object ePassword: TEdit
+      Left = 72
+      Top = 56
+      Width = 121
+      Height = 24
+      TabOrder = 1
+    end
+  end
+  object Acquire1Button: TButton
+    Left = 229
+    Top = 12
+    Width = 75
+    Height = 25
+    Caption = 'Acquire #1'
+    TabOrder = 1
+    OnClick = Acquire1ButtonClick
+  end
+  object Acquire2Button: TButton
+    Left = 229
+    Top = 44
+    Width = 75
+    Height = 25
+    Caption = 'Acquire #2'
+    TabOrder = 2
+    OnClick = Acquire2ButtonClick
+  end
+  object Acquire3Button: TButton
+    Left = 229
+    Top = 76
+    Width = 75
+    Height = 25
+    Caption = 'Acquire #3'
+    TabOrder = 3
+    OnClick = Acquire3ButtonClick
+  end
+  object Acquire4Button: TButton
+    Left = 229
+    Top = 108
+    Width = 75
+    Height = 25
+    Caption = 'Acquire #4'
+    TabOrder = 4
+    OnClick = Acquire4ButtonClick
+  end
+  object AcquireHoldButton: TButton
+    Left = 229
+    Top = 140
+    Width = 209
+    Height = 25
+    Caption = 'Acquire and Hold in a Session'
+    TabOrder = 5
+    OnClick = AcquireHoldButtonClick
+  end
+  object Memo: TMemo
+    Left = 4
+    Top = 173
+    Width = 496
+    Height = 137
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ScrollBars = ssVertical
+    TabOrder = 6
+  end
+  object DAADODriver: TDAADODriver
+    Left = 57
+    Top = 127
+  end
+  object DADriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 91
+    Top = 127
+  end
+  object DAConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADOPartial'
+        ConnectionString = 'ADO?Server=localhost;Database=Northwind;AuxDriver=SQLOLEDB.1'
+        Default = False
+        Tag = 0
+      end
+      item
+        Name = 'ADOComplete'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = False
+        Tag = 0
+      end>
+    DriverManager = DADriverManager
+    PoolingEnabled = False
+    Left = 23
+    Top = 127
+  end
+  object ROSessionManager: TROInMemorySessionManager
+    Left = 129
+    Top = 127
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUserMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUserMain.pas
new file mode 100644
index 0000000..0ae0360
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection By User/ConnectionByUserMain.pas	
@@ -0,0 +1,187 @@
+unit ConnectionByUserMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, uDAClasses, uDADriverManager, uDAEngine, uDAADODriver,
+  uROSessions, uROClient;
+
+type
+  TConnectionByUserMainForm = class(TForm)
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    eUserID: TEdit;
+    ePassword: TEdit;
+    Acquire1Button: TButton;
+    Acquire2Button: TButton;
+    Acquire3Button: TButton;
+    DAADODriver: TDAADODriver;
+    DADriverManager: TDADriverManager;
+    DAConnectionManager: TDAConnectionManager;
+    Acquire4Button: TButton;
+    ROSessionManager: TROInMemorySessionManager;
+    AcquireHoldButton: TButton;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    Memo: TMemo;
+    procedure Acquire1ButtonClick(Sender: TObject);
+    procedure Acquire2ButtonClick(Sender: TObject);
+    procedure Acquire3ButtonClick(Sender: TObject);
+    procedure Acquire4ButtonClick(Sender: TObject);
+    procedure AcquireHoldButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+    procedure Log(Str: string);
+  public
+    { Public declarations }
+  end;
+
+var
+  ConnectionByUserMainForm: TConnectionByUserMainForm;
+
+implementation
+
+uses uDAInterfaces;
+
+{$R *.dfm}
+
+procedure TConnectionByUserMainForm.Acquire1ButtonClick(Sender: TObject);
+var
+  conn: IDAConnection;
+begin
+  try
+    conn := DAConnectionManager.NewConnection('ADOComplete');
+  finally
+    if (Conn <> nil) and conn.Connected then begin
+      Log(TButton(Sender).Caption + ': Connection successful');
+      log('Connection via "' + conn.ConnectionString + '"');
+    end
+    else begin
+      Log(TButton(Sender).Caption + ': Connection failed');
+    end;
+  end;
+end;
+
+procedure TConnectionByUserMainForm.Acquire2ButtonClick(Sender: TObject);
+var
+  conn: IDAConnection;
+begin
+  try
+    conn := DAConnectionManager.NewConnection('ADOPartial', FALSE);
+    conn.UserID := eUserID.Text;
+    conn.Password := ePassword.Text;
+    conn.Open;
+  finally
+    if (Conn <> nil) and conn.Connected then begin
+      Log(TButton(Sender).Caption + ': Connection successful');
+      log('Connection via "' + conn.ConnectionString + '"');
+    end
+    else begin
+      Log(TButton(Sender).Caption + ': Connection failed');
+    end;
+  end;
+end;
+
+procedure TConnectionByUserMainForm.Acquire3ButtonClick(Sender: TObject);
+var
+  conn: IDAConnection;
+begin
+  try
+    conn := DAConnectionManager.NewConnection('ADOPartial', TRUE, eUserID.Text, ePassword.Text);
+  finally
+    if (Conn <> nil) and conn.Connected then begin
+      Log(TButton(Sender).Caption + ': Connection successful');
+      log('Connection via "' + conn.ConnectionString + '"');
+    end
+    else begin
+      Log(TButton(Sender).Caption + ': Connection failed');
+    end;
+  end;
+end;
+
+procedure TConnectionByUserMainForm.Acquire4ButtonClick(Sender: TObject);
+var
+  drv: IDADriver;
+  conn: IDAConnection;
+begin
+  try
+    drv := DriverManager.DriverByDriverID('ADO'); // Raises exception if not found
+    conn := drv.NewConnection;
+    // If not empty strings, these will override any specific UserID, Password specified below
+    conn.ConnectionString := Format('Server=localhost;Database=Northwind;AuxDriver=SQLOLEDB.1;UserID=%s;Password=%s;', [eUserID.Text, ePassword.Text]);
+    conn.Open;
+  finally
+    if (Conn <> nil) and conn.Connected then begin
+      Log(TButton(Sender).Caption + ': Connection successful');
+      log('Connection via "' + conn.ConnectionString + '"');
+    end
+    else begin
+      Log(TButton(Sender).Caption + ': Connection failed');
+    end;
+  end;
+end;
+
+procedure TConnectionByUserMainForm.AcquireHoldButtonClick(Sender: TObject);
+const
+  MySessionID: TGUID = '{2B0ABD74-465A-45A6-AAD7-837709A66DB9}';
+var
+  session: TROSession;
+  conn: IDAConnection;
+begin
+
+  conn := DAConnectionManager.NewConnection('ADOComplete');
+
+  with ROSessionManager do try
+    session := CreateSession(MySessionID);
+
+    // #1: How to store IDAConnections in RO sessions ----------------------------------------
+    conn._AddRef; // We increment its ref count because we want it locked by the session
+    session.Values['MyADOConnection'] := integer(conn);
+    // End of #1 -----------------------------------------------------------------------------
+
+    conn := nil; // We set it to NIL to simulate what would happen in a real RO Datamodule when the vars get out of scope
+    ReleaseSession(session, TRUE);
+{$WARNINGS OFF}
+    session := nil; // Just to simulate real re-initialization
+{$WARNINGS ON}
+    session := FindSession(MySessionID);
+
+    // #2: How to get IDAConnections from RO Sessions ----------------------------------------
+    try
+      conn := IDAConnection(pointer(integer(session.Values['MyADOConnection'])));
+    finally
+      if (Conn <> nil) and conn.Connected then begin
+        Log(TButton(Sender).Caption + ': Connection successful');
+        log('Connection via "' + conn.ConnectionString + '"');
+      end
+      else begin
+        Log(TButton(Sender).Caption + ': Connection failed');
+      end;
+    end;
+
+    // End of #2 -----------------------------------------------------------------------------
+
+    // #3: How to finally release the connection from the session. This should be done when you ------
+    // want to get rid of the connection for good...
+    conn.Close; // Optional. Implicit when it gets freed
+    conn._Release; // Removes the lock we imposed on the connection at the very beginning
+    // End of #3 -------------------------------------------------------------------------------------
+
+    conn := nil; // This is only useful in this example because the ref count is still held up to one by the local "conn" variable.
+
+  finally
+    DeleteSession(MySessionID, FALSE); // This is what the RO session manager does for you, so ignore this too
+  end;
+end;
+
+procedure TConnectionByUserMainForm.Log(Str: string);
+begin
+  Memo.Lines.Add(Str);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.Sample.html
new file mode 100644
index 0000000..f4e1e4c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.Sample.html	
@@ -0,0 +1,34 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Connection Pooling</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  Shows how connections can be managed via a pool (ADO/Northwind &amp; IBX/Employee
+  connections).
+</p>
+<p>
+  Use the three pairs of <b>Acquire/Release</b> connection buttons to experiment
+  with pooling. Note how connections timeout later than the Release call and how
+  the delay
+  depends on the selected <b>PoolTimeoutSeconds</b> value selected via the
+  track bar.
+</p>
+<p>
+  Examine the code in <b>ConnectionPoolingMain</b> - you will see that it is minimal - all one
+  or two liners.
+</p>
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.bdsproj
new file mode 100644
index 0000000..557c349
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{56748B39-CB7E-46D7-BC3F-6F8750F2F54D}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ConnectionPooling.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.dpr
new file mode 100644
index 0000000..90d1fad
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.dpr	
@@ -0,0 +1,14 @@
+program ConnectionPooling;
+
+uses
+  Forms,
+  ConnectionPoolingMain in 'ConnectionPoolingMain.pas' {ConnectionPoolingMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'ConnectionPooling';
+  Application.CreateForm(TConnectionPoolingMainForm, ConnectionPoolingMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.dproj
new file mode 100644
index 0000000..271c3d7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{1087a4d3-a1bb-4f0d-8193-c91d9ddf3a55}</ProjectGuid>
+    <MainSource>ConnectionPooling.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ConnectionPooling.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ConnectionPooling.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ConnectionPooling.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ConnectionPoolingMain.pas">
+      <Form>ConnectionPoolingMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPooling.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPoolingMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPoolingMain.dfm
new file mode 100644
index 0000000..79dd5a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPoolingMain.dfm	
@@ -0,0 +1,162 @@
+object ConnectionPoolingMainForm: TConnectionPoolingMainForm
+  Left = 392
+  Top = 182
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'Connection Pooling'
+  ClientHeight = 323
+  ClientWidth = 365
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 3
+    Top = 0
+    Width = 102
+    Height = 13
+    Caption = 'Selected Connection:'
+  end
+  object lPoolTimeoutSeconds: TLabel
+    Left = 3
+    Top = 48
+    Width = 113
+    Height = 13
+    Caption = 'PoolTimeoutSeconds: 5'
+  end
+  object Acquire1Button: TButton
+    Left = 208
+    Top = 0
+    Width = 75
+    Height = 25
+    Caption = '&Acquire #1'
+    TabOrder = 0
+    OnClick = Acquire1ButtonClick
+  end
+  object cbConnections: TComboBox
+    Left = 3
+    Top = 18
+    Width = 193
+    Height = 21
+    Style = csDropDownList
+    ItemHeight = 13
+    TabOrder = 1
+  end
+  object Release1Button: TButton
+    Left = 288
+    Top = 0
+    Width = 75
+    Height = 25
+    Caption = '&Release #1'
+    TabOrder = 2
+    OnClick = Release1ButtonClick
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 97
+    Width = 365
+    Height = 226
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object Acquire2Button: TButton
+    Left = 208
+    Top = 32
+    Width = 75
+    Height = 25
+    Caption = '&Acquire #2'
+    TabOrder = 4
+    OnClick = Acquire2ButtonClick
+  end
+  object Release2Button: TButton
+    Left = 288
+    Top = 32
+    Width = 75
+    Height = 25
+    Caption = '&Release #2'
+    TabOrder = 5
+    OnClick = Release2ButtonClick
+  end
+  object Acquire3Button: TButton
+    Left = 208
+    Top = 64
+    Width = 75
+    Height = 25
+    Caption = '&Acquire #3'
+    TabOrder = 6
+    OnClick = Acquire3ButtonClick
+  end
+  object Release3Button: TButton
+    Left = 288
+    Top = 64
+    Width = 75
+    Height = 25
+    Caption = '&Release #3'
+    TabOrder = 7
+    OnClick = Release3ButtonClick
+  end
+  object TrackBar: TTrackBar
+    Left = -4
+    Top = 64
+    Width = 208
+    Height = 30
+    Max = 20
+    Min = 1
+    Orientation = trHorizontal
+    ParentShowHint = False
+    PageSize = 1
+    Frequency = 1
+    Position = 5
+    SelEnd = 0
+    SelStart = 0
+    ShowHint = True
+    TabOrder = 8
+    TickMarks = tmBottomRight
+    TickStyle = tsAuto
+    OnChange = TrackBarChange
+  end
+  object DAConnectionManager: TDAConnectionManager
+    PoolTimeoutSeconds = 5
+    OnConnectionTimedOut = DAConnectionManagerConnectionTimedOut
+    OnConnectionCreated = DAConnectionManagerConnectionCreated
+    Connections = <
+      item
+        Name = 'MSSQL'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI;'
+        Description = 'Microsoft SQL Server Northwind Connection'
+        Default = True
+        Tag = 0
+      end
+      item
+        Name = 'IBEmployees'
+        ConnectionString = 
+          'IBX?Server=;UserID=sysdba;Password=masterkey;Database=C:\Program' +
+          ' Files\Borland\InterBase\examples\Database\Employee.gdb'
+        Description = 'Borland Interbase Employee Connection'
+        Default = False
+        Tag = 0
+      end>
+    DriverManager = DADriverManager
+    PoolingEnabled = True
+    Left = 48
+    Top = 112
+  end
+  object DADriverManager: TDADriverManager
+    DriverDirectory = '%MODULE%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 16
+    Top = 112
+  end
+  object DAADODriver: TDAADODriver
+    Left = 16
+    Top = 144
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPoolingMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPoolingMain.pas
new file mode 100644
index 0000000..fb442ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Connection Pooling/ConnectionPoolingMain.pas	
@@ -0,0 +1,152 @@
+unit ConnectionPoolingMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDADriverManager, uDAClasses, StdCtrls, uDAInterfaces,
+  uDAIBXDriver, uDAEngine, uDAADODriver, ExtCtrls, ComCtrls;
+
+type
+  TConnectionPoolingMainForm = class(TForm)
+    DADriverManager: TDADriverManager;
+    DAConnectionManager: TDAConnectionManager;
+    Acquire1Button: TButton;
+    cbConnections: TComboBox;
+    DAADODriver: TDAADODriver;
+    Release1Button: TButton;
+    Memo: TMemo;
+    Acquire2Button: TButton;
+    Release2Button: TButton;
+    Acquire3Button: TButton;
+    Release3Button: TButton;
+    Label1: TLabel;
+    TrackBar: TTrackBar;
+    lPoolTimeoutSeconds: TLabel;
+    procedure FormCreate(Sender: TObject);
+    procedure Acquire1ButtonClick(Sender: TObject);
+    procedure Release1ButtonClick(Sender: TObject);
+    procedure Acquire2ButtonClick(Sender: TObject);
+    procedure Acquire3ButtonClick(Sender: TObject);
+    procedure Release2ButtonClick(Sender: TObject);
+    procedure Release3ButtonClick(Sender: TObject);
+    procedure DAConnectionManagerConnectionAcquired(
+      Sender: TDAConnectionManager; const Connection: IDAConnection);
+    procedure DAConnectionManagerConnectionCreated(
+      Sender: TDAConnectionManager; const Connection: IDAConnection);
+    procedure DAConnectionManagerConnectionTimedOut(
+      Sender: TDAConnectionManager);
+    procedure TrackBarChange(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    fConnection,
+      fConnection2,
+      fConnection3: IDAConnection;
+    procedure Log(Str: string);
+  public
+
+  end;
+
+var
+  ConnectionPoolingMainForm: TConnectionPoolingMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TConnectionPoolingMainForm.FormCreate(Sender: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to (DAConnectionManager.Connections.Count - 1) do
+    cbConnections.Items.Add(DAConnectionManager.Connections[i].Name);
+
+  cbConnections.ItemIndex := 0;
+end;
+
+procedure TConnectionPoolingMainForm.Acquire1ButtonClick(Sender: TObject);
+begin
+  if not assigned(fConnection) then begin
+    fConnection := DAConnectionManager.NewConnection(cbConnections.Text);
+    Log('Connection #1 acquired...');
+  end;
+end;
+
+procedure TConnectionPoolingMainForm.Release1ButtonClick(Sender: TObject);
+begin
+  if assigned(fConnection) then begin
+    fConnection := nil;
+    Log('Connection #1 released');
+  end;
+end;
+
+procedure TConnectionPoolingMainForm.Acquire2ButtonClick(Sender: TObject);
+begin
+  if not assigned(fConnection2) then begin
+    fConnection2 := DAConnectionManager.NewConnection(cbConnections.Text);
+    Log('Connection #2 acquired...');
+  end;
+end;
+
+procedure TConnectionPoolingMainForm.Acquire3ButtonClick(Sender: TObject);
+begin
+  if not assigned(fConnection3) then begin
+    fConnection3 := DAConnectionManager.NewConnection(cbConnections.Text);
+    Log('Connection #3 acquired...');
+  end;
+end;
+
+procedure TConnectionPoolingMainForm.Release2ButtonClick(Sender: TObject);
+begin
+  if assigned(fConnection2) then begin
+    fConnection2 := nil;
+    Log('Connection #2 released');
+  end;
+end;
+
+procedure TConnectionPoolingMainForm.Release3ButtonClick(Sender: TObject);
+begin
+  if assigned(fConnection3) then begin
+    fConnection3 := nil;
+    Log('Connection #3 released');
+  end;
+end;
+
+procedure TConnectionPoolingMainForm.DAConnectionManagerConnectionAcquired(
+  Sender: TDAConnectionManager; const Connection: IDAConnection);
+begin
+  Log('EVENT ->  Connection acquired from the pool at ' + TimeToStr(Now));
+end;
+
+procedure TConnectionPoolingMainForm.DAConnectionManagerConnectionCreated(
+  Sender: TDAConnectionManager; const Connection: IDAConnection);
+begin
+  Log('EVENT -> New connection created at ' + TimeToStr(Now));
+end;
+
+procedure TConnectionPoolingMainForm.DAConnectionManagerConnectionTimedOut(
+  Sender: TDAConnectionManager);
+begin
+  Log('EVENT -> A connection timed out at ' + TimeToStr(Now));
+end;
+
+procedure TConnectionPoolingMainForm.TrackBarChange(Sender: TObject);
+begin
+  DAConnectionManager.PoolTimeoutSeconds := TrackBar.Position;
+  lPoolTimeoutSeconds.Caption := Format('PoolTimeoutSeconds: %d', [TrackBar.Position]);
+end;
+
+procedure TConnectionPoolingMainForm.Log(Str: string);
+begin
+  Memo.Lines.Add(Str);
+end;
+
+procedure TConnectionPoolingMainForm.FormDestroy(Sender: TObject);
+begin
+ fConnection:=nil;
+ fConnection2:=nil;
+ fConnection3:=nil;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.Sample.html
new file mode 100644
index 0000000..c7a3cfa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.Sample.html	
@@ -0,0 +1,50 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Custom User Logon</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  A very simple example showing two methods of opening a connection at runtime.
+</p>
+  <ul>
+  <li>
+  <b>Open Connection (1st way)</b>: creates and opens the connection in a
+  single
+  call passing the UserID/Password values supplied.
+  </li>
+  <li>
+  <b>Open Connection (2nd way)</b>: creates the connection and opens it afterwards.
+  </li>
+  </ul>
+<p>
+  The example uses <b>DAConnectionManager.Connections[0]</b> as the connection
+  it opens. Examining its <b>ConnectionString</b> value via the Object Inspector,
+  you will see that it is set to:
+</p>
+<p>
+  &nbsp;
+</p>
+<p class="contents">
+  <b>ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;</b>
+</p>
+<p>
+  &nbsp;
+</p>
+<p>
+  Modify it as needed to access a different database. See <a href="http://www.remobjects.com/faq/?id={436F10F8-C743-411F-966E-6150B6D3ADF8}">FAQ37</a>
+  for examples of connection strings.
+</p>
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.bdsproj
new file mode 100644
index 0000000..8f5cb42
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{221CBC0C-2F9D-44D4-99CB-FDB1FCC365EA}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">CustomUserLogon.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.dpr
new file mode 100644
index 0000000..d837771
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.dpr	
@@ -0,0 +1,14 @@
+program CustomUserLogon;
+
+uses
+  Forms,
+  CustomUserLogonMain in 'CustomUserLogonMain.pas' {CustomUserLogonMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'CustomUserLogon';
+  Application.CreateForm(TCustomUserLogonMainForm, CustomUserLogonMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.dproj
new file mode 100644
index 0000000..407b522
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.dproj	
@@ -0,0 +1,42 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{ec6ab974-9d80-4b73-9f09-b3948cbfef67}</ProjectGuid>
+    <MainSource>CustomUserLogon.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>CustomUserLogon.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1058</VersionInfo><VersionInfo Name="CodePage">1251</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">CustomUserLogon.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="CustomUserLogon.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="CustomUserLogonMain.pas">
+      <Form>CustomUserLogonMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogon.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogonMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogonMain.dfm
new file mode 100644
index 0000000..eb7b35f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogonMain.dfm	
@@ -0,0 +1,102 @@
+object TCustomUserLogonMainForm
+  Left = 294
+  Top = 99
+  BorderStyle = bsDialog
+  Caption = 'Custom User Logon'
+  ClientHeight = 158
+  ClientWidth = 207
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 7
+    Width = 191
+    Height = 81
+    Caption = 'User Info'
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 21
+      Top = 28
+      Width = 36
+      Height = 13
+      Caption = 'UserID:'
+    end
+    object Label2: TLabel
+      Left = 8
+      Top = 52
+      Width = 49
+      Height = 13
+      Caption = 'Password:'
+    end
+    object eUserID: TEdit
+      Left = 62
+      Top = 24
+      Width = 121
+      Height = 21
+      TabOrder = 0
+      Text = 'sa'
+    end
+    object ePassword: TEdit
+      Left = 62
+      Top = 48
+      Width = 121
+      Height = 21
+      TabOrder = 1
+    end
+  end
+  object Open1Button: TButton
+    Left = 20
+    Top = 95
+    Width = 167
+    Height = 25
+    Caption = 'Open Connection (1st way)'
+    Default = True
+    TabOrder = 1
+    OnClick = Open1ButtonClick
+  end
+  object Open2Button: TButton
+    Left = 20
+    Top = 127
+    Width = 167
+    Height = 25
+    Caption = 'Open Connection (2nd way)'
+    Default = True
+    TabOrder = 2
+    OnClick = Open2ButtonClick
+  end
+  object DADriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 120
+    Top = 40
+  end
+  object DAConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'          
+        Description = 'Borland ADOExpress Connection'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DADriverManager
+    PoolingEnabled = False
+    Left = 152
+    Top = 40
+  end
+  object DAADODriver: TDAADODriver
+    Left = 32
+    Top = 88
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogonMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogonMain.pas
new file mode 100644
index 0000000..d11ce41
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Custom User Logon/CustomUserLogonMain.pas	
@@ -0,0 +1,57 @@
+unit CustomUserLogonMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDAClasses, uDADriverManager, StdCtrls, uDAIBXDriver,
+  uDAEngine, uDAADODriver;
+
+type
+  TCustomUserLogonMainForm = class(TForm)
+    DADriverManager: TDADriverManager;
+    DAConnectionManager: TDAConnectionManager;
+    GroupBox1: TGroupBox;
+    Open1Button: TButton;
+    eUserID: TEdit;
+    ePassword: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    DAADODriver: TDAADODriver;
+    Open2Button: TButton;
+    procedure Open1ButtonClick(Sender: TObject);
+    procedure Open2ButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  CustomUserLogonMainForm: TCustomUserLogonMainForm;
+
+implementation
+
+{$R *.dfm}
+
+uses uDAInterfaces;
+
+procedure TCustomUserLogonMainForm.Open1ButtonClick(Sender: TObject);
+var
+  conn: IDAConnection;
+begin
+  conn := DAConnectionManager.NewConnection(DAConnectionManager.Connections[0].Name, TRUE, eUserID.Text, ePassword.Text);
+  MessageDlg('Connection created!', mtInformation, [mbOK], 0);
+end;
+
+procedure TCustomUserLogonMainForm.Open2ButtonClick(Sender: TObject);
+var
+  conn: IDAConnection;
+begin
+  conn := DAConnectionManager.NewConnection(DAConnectionManager.Connections[0].Name, FALSE);
+  conn.Open(eUserID.Text, ePassword.Text);
+  MessageDlg('Connection created!', mtInformation, [mbOK], 0);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersMain.dfm
new file mode 100644
index 0000000..a5b499f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersMain.dfm	
@@ -0,0 +1,723 @@
+object DataStreamersMainForm: TDataStreamersMainForm
+  Left = 221
+  Top = 146
+  BorderWidth = 5
+  Caption = 'DataStreamers Tester'
+  ClientHeight = 517
+  ClientWidth = 611
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object gCustomers: TDBGrid
+    Left = 0
+    Top = 228
+    Width = 611
+    Height = 91
+    Align = alClient
+    DataSource = dsCustomers
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object gOrders: TDBGrid
+    Left = 0
+    Top = 354
+    Width = 611
+    Height = 163
+    Align = alBottom
+    DataSource = dsOrders
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 319
+    Width = 611
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    object dbnOrders: TDBNavigator
+      Left = 240
+      Top = 5
+      Width = 240
+      Height = 25
+      DataSource = dsOrders
+      TabOrder = 0
+    end
+    object btn_OpenOrders: TButton
+      Left = 152
+      Top = 5
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 1
+      OnClick = btn_OpenOrdersClick
+    end
+    object cbApplyOrdersSchema: TCheckBox
+      Left = 4
+      Top = 9
+      Width = 133
+      Height = 17
+      Caption = 'Apply Orders Schema'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 193
+    Width = 611
+    Height = 35
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 3
+    object cbApplyCustomersSchema: TCheckBox
+      Left = 4
+      Top = 9
+      Width = 141
+      Height = 17
+      Caption = 'Apply Customers Schema'
+      Checked = True
+      State = cbChecked
+      TabOrder = 0
+    end
+    object btn_OpenCustomers: TButton
+      Left = 160
+      Top = 5
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 1
+      OnClick = btn_OpenCustomersClick
+    end
+    object dbnCustomers: TDBNavigator
+      Left = 248
+      Top = 5
+      Width = 240
+      Height = 25
+      DataSource = dsCustomers
+      TabOrder = 2
+    end
+  end
+  object Panel3: TPanel
+    Left = 0
+    Top = 0
+    Width = 611
+    Height = 193
+    Align = alTop
+    BevelOuter = bvNone
+    Caption = 'Panel3'
+    TabOrder = 4
+    object Panel4: TPanel
+      Left = 346
+      Top = 0
+      Width = 265
+      Height = 193
+      Align = alRight
+      BevelOuter = bvNone
+      TabOrder = 0
+      object btn_TestDatasets: TButton
+        Left = 8
+        Top = 75
+        Width = 129
+        Height = 25
+        Caption = 'Test Datasets'
+        TabOrder = 0
+        OnClick = btn_TestDatasetsClick
+      end
+      object cbSkipCustomers: TCheckBox
+        Left = 8
+        Top = 40
+        Width = 97
+        Height = 17
+        Caption = 'Skip Customers'
+        TabOrder = 1
+      end
+      object cbSkipOrders: TCheckBox
+        Left = 8
+        Top = 56
+        Width = 97
+        Height = 17
+        Caption = 'Skip Orders'
+        TabOrder = 2
+      end
+      object btn_TurnMD: TButton
+        Left = 8
+        Top = 139
+        Width = 129
+        Height = 25
+        Caption = 'Turn M/D on/off'
+        TabOrder = 3
+        OnClick = btn_TurnMDClick
+      end
+      object cbCloseBeforeTest: TCheckBox
+        Left = 8
+        Top = 11
+        Width = 113
+        Height = 17
+        Caption = 'Close Before Test'
+        Checked = True
+        State = cbChecked
+        TabOrder = 4
+      end
+      object btn_ShowDeltaCounters: TButton
+        Left = 8
+        Top = 168
+        Width = 129
+        Height = 25
+        Caption = 'Show Delta Counters'
+        TabOrder = 5
+        OnClick = btn_ShowDeltaCountersClick
+      end
+      object btn_TestDeltas: TButton
+        Left = 8
+        Top = 107
+        Width = 129
+        Height = 25
+        Caption = 'Test Deltas'
+        TabOrder = 6
+        OnClick = btn_TestDeltasClick
+      end
+      object btn_ClearMemo: TButton
+        Left = 144
+        Top = 168
+        Width = 97
+        Height = 25
+        Caption = 'Clear Memo'
+        TabOrder = 7
+        OnClick = btn_ClearMemoClick
+      end
+    end
+    object Memo: TMemo
+      Left = 0
+      Top = 0
+      Width = 346
+      Height = 193
+      Align = alClient
+      ScrollBars = ssVertical
+      TabOrder = 1
+    end
+  end
+  object DADriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 16
+    Top = 8
+  end
+  object DAConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DADriverManager
+    PoolingEnabled = True
+    Left = 80
+    Top = 8
+  end
+  object DASchema: TDASchema
+    ConnectionManager = DAConnectionManager
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'  FROM'#10' ' +
+              '   Orders'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 48
+    Top = 8
+  end
+  object DAADODriver: TDAADODriver
+    Left = 112
+    Top = 8
+  end
+  object dtCustomers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    IndexDefs = <>
+    Left = 276
+    Top = 27
+  end
+  object dsCustomers: TDADataSource
+    DataSet = dtCustomers.Dataset
+    DataTable = dtCustomers
+    Left = 292
+    Top = 43
+  end
+  object dtOrders: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    IndexDefs = <>
+    Left = 340
+    Top = 27
+  end
+  object dsOrders: TDADataSource
+    DataSet = dtOrders.Dataset
+    DataTable = dtOrders
+    Left = 356
+    Top = 43
+  end
+  object DABinDataStreamer: TDABinDataStreamer
+    Left = 146
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersMain.pas
new file mode 100644
index 0000000..4cc3fb9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersMain.pas	
@@ -0,0 +1,240 @@
+unit DataStreamersMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, DB, Grids, DBGrids, ExtCtrls, DBCtrls,
+  uDADataTable, uDABINAdapter, uDAClasses, uDADriverManager, uDAInterfaces,
+  uDADataStreamer, uDAScriptingProvider, uDACDSDataTable, uDAEngine,
+  uDAADODriver;
+
+type
+  TDataStreamersMainForm = class(TForm)
+    DADriverManager: TDADriverManager;
+    DAADODriver: TDAADODriver;
+    DAConnectionManager: TDAConnectionManager;
+    dtCustomers: TDACDSDataTable;
+    dsCustomers: TDADataSource;
+    gCustomers: TDBGrid;
+    dtOrders: TDACDSDataTable;
+    dsOrders: TDADataSource;
+    gOrders: TDBGrid;
+    Panel1: TPanel;
+    dbnOrders: TDBNavigator;
+    btn_OpenOrders: TButton;
+    cbApplyOrdersSchema: TCheckBox;
+    Panel2: TPanel;
+    cbApplyCustomersSchema: TCheckBox;
+    btn_OpenCustomers: TButton;
+    dbnCustomers: TDBNavigator;
+    Panel3: TPanel;
+    Panel4: TPanel;
+    btn_TestDatasets: TButton;
+    cbSkipCustomers: TCheckBox;
+    cbSkipOrders: TCheckBox;
+    btn_TurnMD: TButton;
+    cbCloseBeforeTest: TCheckBox;
+    btn_ShowDeltaCounters: TButton;
+    btn_TestDeltas: TButton;
+    btn_ClearMemo: TButton;
+    Memo: TMemo;
+    DASchema: TDASchema;
+    DABinDataStreamer: TDABinDataStreamer;
+    procedure FormCreate(Sender: TObject);
+    procedure btn_TestDatasetsClick(Sender: TObject);
+    procedure btn_OpenCustomersClick(Sender: TObject);
+    procedure btn_OpenOrdersClick(Sender: TObject);
+    procedure btn_TurnMDClick(Sender: TObject);
+    procedure btn_ShowDeltaCountersClick(Sender: TObject);
+    procedure btn_TestDeltasClick(Sender: TObject);
+    procedure btn_ClearMemoClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    fConnection: IDAConnection;
+  end;
+
+var
+  DataStreamersMainForm: TDataStreamersMainForm;
+
+implementation
+
+uses uROTypes, uDADelta;
+
+{$R *.dfm}
+
+procedure TDataStreamersMainForm.FormCreate(Sender: TObject);
+begin
+  fConnection := DAConnectionManager.NewConnection('ADO');
+end;
+
+procedure TDataStreamersMainForm.FormDestroy(Sender: TObject);
+begin
+fConnection:=nil;
+end;
+
+procedure TDataStreamersMainForm.btn_TestDatasetsClick(Sender: TObject);
+var
+  stream: Binary;
+  customers,
+    orders: IDADataset;
+  i: integer;
+  start: Cardinal;
+begin
+  if cbCloseBeforeTest.Checked then begin
+    dtCustomers.Close;
+    dtOrders.Close;
+  end;
+
+  stream := Binary.Create;
+
+  with DABinDataStreamer do try
+    customers := DASchema.NewDataset(fConnection, 'Customers');
+    //customers.Where.AddText(' 1=2');
+    orders := DASchema.NewDataset(fConnection, 'Orders');
+    //orders.Where.AddText(' 1=2');
+
+    start := GetTickCount;
+
+    // Writes the data
+    Initialize(stream, aiWrite);
+    if not cbSkipCustomers.Checked then WriteDataset(customers, [woSchema, woRows], -1);
+
+    if not cbSkipOrders.Checked then WriteDataset(orders, [woRows, woSchema], -1);
+    Finalize;
+    // End of write data
+
+    Memo.Lines.Add('WRITE completed in ' + IntToStr(GetTickCount - start) + 'ms');
+
+    // Logging info
+    Memo.Lines.Add('Stream is now ' + IntToStr(stream.Size) + ' bytes long');
+
+    start := GetTickCount;
+    Initialize(stream, aiReadFromBeginning);
+
+    // Reads the data
+    if not cbSkipCustomers.Checked then begin
+      if cbApplyCustomersSchema.Checked then
+        ReadDataset('Customers', dtCustomers, TRUE)
+      else
+        ReadDataset('Customers', dtCustomers);
+    end;
+
+    if not cbSkipOrders.Checked then begin
+      if cbApplyOrdersSchema.Checked then
+        ReadDataset('Orders', dtOrders, TRUE)
+      else
+        ReadDataset('Orders', dtOrders);
+    end;
+
+    Finalize;
+
+    // End of read data
+    Memo.Lines.Add('READ completed in ' + IntToStr(GetTickCount - start) + 'ms');
+
+    // Logging info
+    Memo.Lines.Add('The stream contains ' + IntToStr(DatasetCount) + ' datasets and ' + IntToStr(DeltaCount) + ' deltas');
+    for i := 0 to (DatasetCount - 1) do Memo.Lines.Add('Dataset -> ' + DatasetNames[i]);
+    for i := 0 to (DeltaCount - 1) do Memo.Lines.Add('Delta -> ' + DeltaNames[i]);
+    Memo.Lines.Add(' ');
+  finally
+    stream.Free;
+  end;
+end;
+
+procedure TDataStreamersMainForm.btn_OpenCustomersClick(Sender: TObject);
+begin
+  dtCustomers.Active := dtCustomers.Active xor TRUE;
+end;
+
+procedure TDataStreamersMainForm.btn_OpenOrdersClick(Sender: TObject);
+begin
+  dtOrders.Active := dtOrders.Active xor TRUE
+end;
+
+procedure TDataStreamersMainForm.btn_TurnMDClick(Sender: TObject);
+begin
+  if dtOrders.MasterSource = nil then begin
+    dtOrders.MasterFields := 'CustomerID';
+    dtOrders.DetailFields := 'CustomerID';
+    dtOrders.MasterSource := dsCustomers;
+  end
+
+  else begin
+    dtOrders.MasterSource := nil;
+    dtOrders.MasterFields := '';
+    dtOrders.DetailFields := '';
+  end;
+
+  btn_TestDatasets.Enabled := dtOrders.MasterSource = nil;
+end;
+
+procedure TDataStreamersMainForm.btn_ShowDeltaCountersClick(Sender: TObject);
+begin
+  ShowMessage(Format('Changes: Customers %d, Orders %d', [dtCustomers.Delta.Count, dtOrders.Delta.Count]));
+end;
+
+procedure TDataStreamersMainForm.btn_TestDeltasClick(Sender: TObject);
+var
+  stream: TStream;
+  i: integer;
+  orddelta,
+    custdelta: TDADelta;
+begin
+  if not dtCustomers.Active or not dtOrders.Active then begin
+    MessageDlg('Both datatables must be open!', mtError, [mbOK], 0);
+    Exit;
+  end;
+
+  stream := TMemoryStream.Create;
+
+  custdelta := TDADelta.Create(dtCustomers);
+  orddelta := TDADelta.Create(dtOrders);
+  with DABinDataStreamer do try
+    // Writes the data
+    Initialize(stream, aiWrite);
+    if not cbSkipCustomers.Checked then WriteDelta(dtCustomers);
+
+    if not cbSkipOrders.Checked then WriteDelta(dtOrders);
+    Finalize;
+    // End of write data
+
+    // Logging info
+    Memo.Lines.Add('Stream is now ' + IntToStr(stream.Size) + ' bytes long');
+
+    Initialize(stream, aiReadFromBeginning);
+
+    // Reads the data
+    if not cbSkipCustomers.Checked then begin
+      ReadDelta('dtCustomers', custdelta);
+      Memo.Lines.Add('Customers delta contains ' + IntToStr(custdelta.Count) + ' changes');
+    end;
+
+    if not cbSkipOrders.Checked then begin
+      ReadDelta('dtOrders', orddelta);
+      Memo.Lines.Add('Orders delta contains ' + IntToStr(orddelta.Count) + ' changes');
+    end;
+
+    Finalize;
+
+    // Logging info
+    Memo.Lines.Add('The stream contains ' + IntToStr(DatasetCount) + ' datasets and ' + IntToStr(DeltaCount) + ' deltas');
+    for i := 0 to (DatasetCount - 1) do Memo.Lines.Add('Dataset -> ' + DatasetNames[i]);
+    for i := 0 to (DeltaCount - 1) do Memo.Lines.Add('Delta -> ' + DeltaNames[i]);
+    Memo.Lines.Add(' ');
+
+  finally
+    stream.Free;
+
+    custdelta.Free;
+    orddelta.Free;
+  end;
+end;
+
+procedure TDataStreamersMainForm.btn_ClearMemoClick(Sender: TObject);
+begin
+  Memo.Lines.Clear;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.Sample.html
new file mode 100644
index 0000000..1babacb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.Sample.html	
@@ -0,0 +1,19 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1"> Data Streamers Sample</p><br>
+<p>This example shows how a dataset can be written to a stream and read from it using the <b>TDABinDataStreamer</b> class.</p>
+<p>When you compile and launch this example it displays two grids, the sources for which are datasets dynamically read using <b>TStream</b>.</p>
+<p>Modify some data in the grids.</p>
+<p>When you press the "Test Deltas" button, it shows the size of the delta containing the data to update the dataset.</p>
+<p>The "Turn M/D on/off" button toggles the top grid as the master source for the bottom grid.</p>
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.bdsproj
new file mode 100644
index 0000000..9a4eae0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{9BF2BF18-89B3-4C63-B97B-1A3061BCFD38}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DataStreamersTest.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.dpr
new file mode 100644
index 0000000..d388589
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.dpr	
@@ -0,0 +1,14 @@
+program DataStreamersTest;
+
+uses
+  Forms,
+  DataStreamersMain in 'DataStreamersMain.pas' {DataStreamersMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Adapters Test';
+  Application.CreateForm(TDataStreamersMainForm, DataStreamersMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.dproj
new file mode 100644
index 0000000..265782c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{0d9a7452-75b7-4181-9053-aa039d95be41}</ProjectGuid>
+    <MainSource>DataStreamersTest.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DataStreamersTest.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DataStreamersTest.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DataStreamersTest.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DataStreamersMain.pas">
+      <Form>DataStreamersMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.res
new file mode 100644
index 0000000..6a1db77
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/DataStreamersTest.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/fMainForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/fMainForm.dfm
new file mode 100644
index 0000000..3de76b7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/fMainForm.dfm	
@@ -0,0 +1,725 @@
+object Form1: TForm1
+  Left = 70
+  Top = 51
+  Width = 807
+  Height = 632
+  BorderWidth = 5
+  Caption = 'DataStream Tester'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 228
+    Width = 789
+    Height = 163
+    Align = alClient
+    DataSource = dsCustomers
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object DBGrid2: TDBGrid
+    Left = 0
+    Top = 426
+    Width = 789
+    Height = 163
+    Align = alBottom
+    DataSource = dsOrders
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 391
+    Width = 789
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    object DBNavigator2: TDBNavigator
+      Left = 240
+      Top = 5
+      Width = 240
+      Height = 25
+      DataSource = dsOrders
+      TabOrder = 0
+    end
+    object Button3: TButton
+      Left = 152
+      Top = 5
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 1
+      OnClick = Button3Click
+    end
+    object cbApplyOrdersSchema: TCheckBox
+      Left = 4
+      Top = 9
+      Width = 133
+      Height = 17
+      Caption = 'Apply Orders Schema'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 193
+    Width = 789
+    Height = 35
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 3
+    object cbApplyCustomersSchema: TCheckBox
+      Left = 4
+      Top = 9
+      Width = 141
+      Height = 17
+      Caption = 'Apply Customers Schema'
+      Checked = True
+      State = cbChecked
+      TabOrder = 0
+    end
+    object Button2: TButton
+      Left = 160
+      Top = 5
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 1
+      OnClick = Button2Click
+    end
+    object DBNavigator1: TDBNavigator
+      Left = 248
+      Top = 5
+      Width = 240
+      Height = 25
+      DataSource = dsCustomers
+      TabOrder = 2
+    end
+  end
+  object Panel3: TPanel
+    Left = 0
+    Top = 0
+    Width = 789
+    Height = 193
+    Align = alTop
+    BevelOuter = bvNone
+    Caption = 'Panel3'
+    TabOrder = 4
+    object Panel4: TPanel
+      Left = 524
+      Top = 0
+      Width = 265
+      Height = 193
+      Align = alRight
+      BevelOuter = bvNone
+      TabOrder = 0
+      object btn_TestDatasets: TButton
+        Left = 8
+        Top = 75
+        Width = 129
+        Height = 25
+        Caption = 'Test Datasets'
+        TabOrder = 0
+        OnClick = btn_TestDatasetsClick
+      end
+      object cbSkipCustomers: TCheckBox
+        Left = 8
+        Top = 40
+        Width = 97
+        Height = 17
+        Caption = 'Skip Customers'
+        TabOrder = 1
+      end
+      object cbSkipOrders: TCheckBox
+        Left = 8
+        Top = 56
+        Width = 97
+        Height = 17
+        Caption = 'Skip Orders'
+        TabOrder = 2
+      end
+      object btn_TurnMD: TButton
+        Left = 8
+        Top = 139
+        Width = 129
+        Height = 25
+        Caption = 'Turn M/D on/off'
+        TabOrder = 3
+        OnClick = btn_TurnMDClick
+      end
+      object cbCloseBeforeTest: TCheckBox
+        Left = 8
+        Top = 11
+        Width = 113
+        Height = 17
+        Caption = 'Close Before Test'
+        Checked = True
+        State = cbChecked
+        TabOrder = 4
+      end
+      object btn_ShowDeltaCounters: TButton
+        Left = 8
+        Top = 168
+        Width = 129
+        Height = 25
+        Caption = 'Show Delta Counters'
+        TabOrder = 5
+        OnClick = btn_ShowDeltaCountersClick
+      end
+      object btn_TestDeltas: TButton
+        Left = 8
+        Top = 107
+        Width = 129
+        Height = 25
+        Caption = 'Test Deltas'
+        TabOrder = 6
+        OnClick = btn_TestDeltasClick
+      end
+      object btn_ClearMemo: TButton
+        Left = 144
+        Top = 168
+        Width = 97
+        Height = 25
+        Caption = 'Clear Memo'
+        TabOrder = 7
+        OnClick = btn_ClearMemoClick
+      end
+    end
+    object Memo: TMemo
+      Left = 0
+      Top = 0
+      Width = 524
+      Height = 193
+      Align = alClient
+      ScrollBars = ssVertical
+      TabOrder = 1
+    end
+  end
+  object DADriverManager1: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 16
+    Top = 8
+  end
+  object DAConnectionManager1: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DADriverManager1
+    PoolingEnabled = True
+    Left = 80
+    Top = 8
+  end
+  object DASchema1: TDASchema
+    ConnectionManager = DAConnectionManager1
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'  FROM'#10' ' +
+              '   Orders'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 48
+    Top = 8
+  end
+  object DAADODriver1: TDAADODriver
+    Left = 112
+    Top = 8
+  end
+  object dtCustomers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    IndexDefs = <>
+    Left = 276
+    Top = 27
+  end
+  object dsCustomers: TDADataSource
+    DataTable = dtCustomers
+    Left = 292
+    Top = 43
+  end
+  object dtOrders: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    IndexDefs = <>
+    Left = 340
+    Top = 27
+  end
+  object dsOrders: TDADataSource
+    DataTable = dtOrders
+    Left = 356
+    Top = 43
+  end
+  object DABinDataStreamer: TDABinDataStreamer
+    Left = 146
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/fMainForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/fMainForm.pas
new file mode 100644
index 0000000..07dfc8a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Data Streamers/fMainForm.pas	
@@ -0,0 +1,234 @@
+unit fMainForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, DB, Grids, DBGrids, ExtCtrls, DBCtrls,
+  uDADataTable, uDABINAdapter, uDAClasses, uDADriverManager, uDAInterfaces,
+  uDADataStreamer, uDAScriptingProvider, uDACDSDataTable, uDAEngine,
+  uDAADODriver;
+
+type
+  TForm1 = class(TForm)
+    DADriverManager1: TDADriverManager;
+    DAADODriver1: TDAADODriver;
+    DAConnectionManager1: TDAConnectionManager;
+    dtCustomers: TDACDSDataTable;
+    dsCustomers: TDADataSource;
+    DBGrid1: TDBGrid;
+    dtOrders: TDACDSDataTable;
+    dsOrders: TDADataSource;
+    DBGrid2: TDBGrid;
+    Panel1: TPanel;
+    DBNavigator2: TDBNavigator;
+    Button3: TButton;
+    cbApplyOrdersSchema: TCheckBox;
+    Panel2: TPanel;
+    cbApplyCustomersSchema: TCheckBox;
+    Button2: TButton;
+    DBNavigator1: TDBNavigator;
+    Panel3: TPanel;
+    Panel4: TPanel;
+    btn_TestDatasets: TButton;
+    cbSkipCustomers: TCheckBox;
+    cbSkipOrders: TCheckBox;
+    btn_TurnMD: TButton;
+    cbCloseBeforeTest: TCheckBox;
+    btn_ShowDeltaCounters: TButton;
+    btn_TestDeltas: TButton;
+    btn_ClearMemo: TButton;
+    Memo: TMemo;
+    DASchema1: TDASchema;
+    DABinDataStreamer: TDABinDataStreamer;
+    procedure FormCreate(Sender: TObject);
+    procedure btn_TestDatasetsClick(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
+    procedure btn_TurnMDClick(Sender: TObject);
+    procedure btn_ShowDeltaCountersClick(Sender: TObject);
+    procedure btn_TestDeltasClick(Sender: TObject);
+    procedure btn_ClearMemoClick(Sender: TObject);
+  private
+    fConnection: IDAConnection;
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+uses uROTypes, uDADelta;
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  fConnection := DAConnectionManager1.NewConnection('ADO');
+end;
+
+procedure TForm1.btn_TestDatasetsClick(Sender: TObject);
+var
+  stream: Binary;
+  customers,
+    orders: IDADataset;
+  i: integer;
+  start: Cardinal;
+begin
+  if cbCloseBeforeTest.Checked then begin
+    dtCustomers.Close;
+    dtOrders.Close;
+  end;
+
+  stream := Binary.Create;
+
+  with DABinDataStreamer do try
+    customers := DASchema1.NewDataset(fConnection, 'Customers');
+    //customers.Where.AddText(' 1=2');
+    orders := DASchema1.NewDataset(fConnection, 'Orders');
+    //orders.Where.AddText(' 1=2');
+
+    start := GetTickCount;
+
+    // Writes the data
+    Initialize(stream, aiWrite);
+    if not cbSkipCustomers.Checked then WriteDataset(customers, [woSchema, woRows], -1);
+
+    if not cbSkipOrders.Checked then WriteDataset(orders, [woRows, woSchema], -1);
+    Finalize;
+    // End of write data
+
+    Memo.Lines.Add('WRITE completed in ' + IntToStr(GetTickCount - start) + 'ms');
+
+    // Logging info
+    Memo.Lines.Add('Stream is now ' + IntToStr(stream.Size) + ' bytes long');
+
+    start := GetTickCount;
+    Initialize(stream, aiReadFromBeginning);
+
+    // Reads the data
+    if not cbSkipCustomers.Checked then begin
+      if cbApplyCustomersSchema.Checked then
+        ReadDataset('Customers', dtCustomers, TRUE)
+      else
+        ReadDataset('Customers', dtCustomers);
+    end;
+
+    if not cbSkipOrders.Checked then begin
+      if cbApplyOrdersSchema.Checked then
+        ReadDataset('Orders', dtOrders, TRUE)
+      else
+        ReadDataset('Orders', dtOrders);
+    end;
+
+    Finalize;
+
+    // End of read data
+    Memo.Lines.Add('READ completed in ' + IntToStr(GetTickCount - start) + 'ms');
+
+    // Logging info
+    Memo.Lines.Add('The stream contains ' + IntToStr(DatasetCount) + ' datasets and ' + IntToStr(DeltaCount) + ' deltas');
+    for i := 0 to (DatasetCount - 1) do Memo.Lines.Add('Dataset -> ' + DatasetNames[i]);
+    for i := 0 to (DeltaCount - 1) do Memo.Lines.Add('Delta -> ' + DeltaNames[i]);
+    Memo.Lines.Add(' ');
+  finally
+    stream.Free;
+  end;
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+  dtCustomers.Active := dtCustomers.Active xor TRUE;
+end;
+
+procedure TForm1.Button3Click(Sender: TObject);
+begin
+  dtOrders.Active := dtOrders.Active xor TRUE
+end;
+
+procedure TForm1.btn_TurnMDClick(Sender: TObject);
+begin
+  if dtOrders.MasterSource = nil then begin
+    dtOrders.MasterFields := 'CustomerID';
+    dtOrders.DetailFields := 'CustomerID';
+    dtOrders.MasterSource := dsCustomers;
+  end
+
+  else begin
+    dtOrders.MasterSource := nil;
+    dtOrders.MasterFields := '';
+    dtOrders.DetailFields := '';
+  end;
+
+  btn_TestDatasets.Enabled := dtOrders.MasterSource = nil;
+end;
+
+procedure TForm1.btn_ShowDeltaCountersClick(Sender: TObject);
+begin
+  ShowMessage(Format('Changes: Customers %d, Orders %d', [dtCustomers.Delta.Count, dtOrders.Delta.Count]));
+end;
+
+procedure TForm1.btn_TestDeltasClick(Sender: TObject);
+var
+  stream: TStream;
+  i: integer;
+  orddelta,
+    custdelta: TDADelta;
+begin
+  if not dtCustomers.Active or not dtOrders.Active then begin
+    MessageDlg('Both datatables must be open!', mtError, [mbOK], 0);
+    Exit;
+  end;
+
+  stream := TMemoryStream.Create;
+
+  custdelta := TDADelta.Create(dtCustomers);
+  orddelta := TDADelta.Create(dtOrders);
+  with DABinDataStreamer do try
+    // Writes the data
+    Initialize(stream, aiWrite);
+    if not cbSkipCustomers.Checked then WriteDelta(dtCustomers);
+
+    if not cbSkipOrders.Checked then WriteDelta(dtOrders);
+    Finalize;
+    // End of write data
+
+    // Logging info
+    Memo.Lines.Add('Stream is now ' + IntToStr(stream.Size) + ' bytes long');
+
+    Initialize(stream, aiReadFromBeginning);
+
+    // Reads the data
+    if not cbSkipCustomers.Checked then begin
+      ReadDelta('dtCustomers', custdelta);
+      Memo.Lines.Add('Customers delta contains ' + IntToStr(custdelta.Count) + ' changes');
+    end;
+
+    if not cbSkipOrders.Checked then begin
+      ReadDelta('dtOrders', orddelta);
+      Memo.Lines.Add('Orders delta contains ' + IntToStr(orddelta.Count) + ' changes');
+    end;
+
+    Finalize;
+
+    // Logging info
+    Memo.Lines.Add('The stream contains ' + IntToStr(DatasetCount) + ' datasets and ' + IntToStr(DeltaCount) + ' deltas');
+    for i := 0 to (DatasetCount - 1) do Memo.Lines.Add('Dataset -> ' + DatasetNames[i]);
+    for i := 0 to (DeltaCount - 1) do Memo.Lines.Add('Delta -> ' + DeltaNames[i]);
+    Memo.Lines.Add(' ');
+
+  finally
+    stream.Free;
+
+    custdelta.Free;
+    orddelta.Free;
+  end;
+end;
+
+procedure TForm1.btn_ClearMemoClick(Sender: TObject);
+begin
+  Memo.Lines.Clear;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.Sample.html
new file mode 100644
index 0000000..c0e0088
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.Sample.html	
@@ -0,0 +1,81 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Dynamic SQL</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  This demo shows how to retrieve schema and/or data via SQL generated at
+  runtime.
+</p>
+<p>
+  When you compile and run the server, you will see it contains a memo displaying
+  &quot;<i>SQL details generated for Update will be displayed here</i>&quot;.
+  The
+  demo does not actually attempt to update server data but merely display
+  the fields
+  that would be updated by processing the delta. See the <b>TDynSQLService.UpdateData</b>
+  code in <b>DynSQLService_Impl</b> to see how the delta is being processed.
+</p>
+<p>
+  Having next <b>compiled and run the client</b>, the first thing to try
+  is clicking
+  on the <b>Retrieve Schema and Data</b> button and you should then see the
+  <b>Customers
+  data displayed in the grid</b>. Changing the text in the memo, e.g. to
+  <b>Select
+  * from &quot;Order Details&quot;</b> and clicking the button again results
+  in the
+  display of a different dataset with a totally different schema. Any of
+  the datasets
+  in the database (Northwind, by default) may be accessed in this manner.
+</p>
+<p>
+  Other points of interest:
+</p>
+  <ul>
+  <li>
+  As their names suggest, the <b>Retrieve Schema</b> and <b>Retrieve Data</b>
+  buttons
+  achieve the same as the <b>Retrieve Schema and Data</b> button. You might
+  want
+  to use them separately if the data has the same layout as the schema already
+  retrieved.
+  For example, having retrieved all the records (<b>Max Records = -1</b>),
+  you can
+  change the number of records required and select <b>Retrieve Data</b> because
+  the schema is correct. If you change the actual SQL though, you will need
+  to reload
+  the schema.
+  </li>
+  <li>
+  <b>Save</b> and <b>Load</b> buttons. <b>Save</b> stores the schema and
+  data in
+  <b>Data.dat</b> in the sample folder. If you only want to save the schema,
+  set
+  Max Records = 0 and retrieve schema and data (otherwise Save cannot work
+  because
+  the dataset is not open). <b>Load</b> restores the schema and any records
+  saved
+  no matter what data is currently open. Thus you can think of retrieve and
+  load
+  as similar operations but with remote and local data respectively.
+  </li>
+  <li>
+  The <b>Update</b> button simulates updating the dataset. You can see the
+  result
+  in the memo contained in the server form.
+  </li>
+  </ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.bdsgroup
new file mode 100644
index 0000000..91866a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{63CAEABD-4E56-4ED5-BE8B-10B7E87801AB}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="DynSQLServer.exe">DynSQLServer.bdsproj</Projects>
+      <Projects Name="DynSQLClient.exe">DynSQLClient.bdsproj</Projects>
+      <Projects Name="Targets">DynSQLServer.exe DynSQLClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.bpg
new file mode 100644
index 0000000..ef95e27
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DynSQLServer.exe DynSQLClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DynSQLServer.exe: DynSQLServer.dpr
+  $(DCC)
+
+DynSQLClient.exe: DynSQLClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.groupproj
new file mode 100644
index 0000000..a79c349
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQL.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{67b524b6-f332-475d-8d78-7edde30d8a99}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="DynSQLServer">
+    <MSBuild Projects="DynSQLServer.dproj" Targets="" />
+  </Target>
+  <Target Name="DynSQLServer:Clean">
+    <MSBuild Projects="DynSQLServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DynSQLServer:Make">
+    <MSBuild Projects="DynSQLServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DynSQLClient">
+    <MSBuild Projects="DynSQLClient.dproj" Targets="" />
+  </Target>
+  <Target Name="DynSQLClient:Clean">
+    <MSBuild Projects="DynSQLClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DynSQLClient:Make">
+    <MSBuild Projects="DynSQLClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="DynSQLServer;DynSQLClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="DynSQLServer:Clean;DynSQLClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="DynSQLServer:Make;DynSQLClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.bdsproj
new file mode 100644
index 0000000..7936d9b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{C58CCA12-3E20-4DD4-B013-F1EE4C9C2279}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DynSQLClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.cfg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.cfg
new file mode 100644
index 0000000..98e9e54
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LN"D:\Program files.all\Winsys\borland\DCP_70"
+-U"d:\program files.all\borland\delphi7\Lib\Debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug"
+-O"d:\program files.all\borland\delphi7\Lib\Debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug"
+-I"d:\program files.all\borland\delphi7\Lib\Debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug"
+-R"d:\program files.all\borland\delphi7\Lib\Debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dof b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dof
new file mode 100644
index 0000000..8bc3ac8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dpr
new file mode 100644
index 0000000..81907da
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dpr	
@@ -0,0 +1,15 @@
+program DynSQLClient;
+
+uses
+  Forms,
+  DynSQLMainClient in 'DynSQLMainClient.pas' {DynSQLMainClientForm},
+  DynSQLLibrary_Intf in 'DynSQLLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'DynSQL Client';
+  Application.CreateForm(TDynSQLMainClientForm, DynSQLMainClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dproj
new file mode 100644
index 0000000..78b3a54
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.dproj	
@@ -0,0 +1,43 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{a6ec96d6-69bf-4815-b64d-37174ee1d1be}</ProjectGuid>
+    <MainSource>DynSQLClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DynSQLClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1058</VersionInfo><VersionInfo Name="CodePage">1251</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">DynSQLClient.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DynSQLClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DynSQLLibrary_Intf.pas" />
+    <DCCReference Include="DynSQLMainClient.pas">
+      <Form>DynSQLMainClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary.RODL
new file mode 100644
index 0000000..4e4f4d4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary.RODL	
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="DynSQLLibrary" UID="{7DDA8CC1-A876-4A25-9280-3352E8A464EB}" Version="3.0">
+<Services>
+<Service Name="DynSQLService" UID="{CB356E72-F614-4C37-A434-263226EFA379}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{02F71273-9E5C-4BD7-81EF-3BD4663EA0AB}">
+<Documentation><![CDATA[
+
+
+
+
+Service DynSQLService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation><Operations>
+<Operation Name="MyUpdateData" UID="{9A4944E8-1A56-4D16-8C42-D110C2D02A8D}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="aTableName" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="Delta" DataType="Binary" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract4" UID="{57F68469-2FC0-40A5-9F2D-DA6AB7AF6702}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary_Intf.pas
new file mode 100644
index 0000000..ab2c643
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary_Intf.pas	
@@ -0,0 +1,105 @@
+unit DynSQLLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{7DDA8CC1-A876-4A25-9280-3352E8A464EB}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDynSQLService_IID : TGUID = '{02F71273-9E5C-4BD7-81EF-3BD4663EA0AB}';
+
+  { Event ID's }
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  IDynSQLService = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IDynSQLService }
+  IDynSQLService = interface(IDataAbstractService)
+    ['{02F71273-9E5C-4BD7-81EF-3BD4663EA0AB}']
+    function MyUpdateData(const aTableName: AnsiString; const Delta: Binary): Binary;
+  end;
+
+  { CoDynSQLService }
+  CoDynSQLService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDynSQLService;
+  end;
+
+  { TDynSQLService_Proxy }
+  TDynSQLService_Proxy = class(TDataAbstractService_Proxy, IDynSQLService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function MyUpdateData(const aTableName: AnsiString; const Delta: Binary): Binary;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoDynSQLService }
+
+class function CoDynSQLService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDynSQLService;
+begin
+  result := TDynSQLService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDynSQLService_Proxy }
+
+function TDynSQLService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DynSQLService';
+end;
+
+function TDynSQLService_Proxy.MyUpdateData(const aTableName: AnsiString; const Delta: Binary): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DynSQLLibrary', __InterfaceName, 'MyUpdateData');
+    __Message.Write('aTableName', TypeInfo(AnsiString), aTableName, []);
+    __Message.Write('Delta', TypeInfo(Binary), Delta, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IDynSQLService_IID, TDynSQLService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IDynSQLService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary_Invk.pas
new file mode 100644
index 0000000..bfac326
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLLibrary_Invk.pas	
@@ -0,0 +1,79 @@
+unit DynSQLLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} DynSQLLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TDynSQLService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_MyUpdateData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TDynSQLService_Invoker }
+
+constructor TDynSQLService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TDynSQLService_Invoker.Invoke_MyUpdateData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function MyUpdateData(const aTableName: AnsiString; const Delta: Binary): Binary; }
+var
+  aTableName: AnsiString;
+  Delta: Binary;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  Delta := nil;
+  lResult := nil;
+  try
+    __Message.Read('aTableName', TypeInfo(AnsiString), aTableName, []);
+    __Message.Read('Delta', TypeInfo(Binary), Delta, []);
+
+    lResult := (__Instance as IDynSQLService).MyUpdateData(aTableName, Delta);
+
+    __Message.InitializeResponseMessage(__Transport, 'DynSQLLibrary', 'DynSQLService', 'MyUpdateDataResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(Delta);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLMainClient.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLMainClient.dfm
new file mode 100644
index 0000000..a987190
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLMainClient.dfm	
@@ -0,0 +1,244 @@
+object DynSQLMainClientForm: TDynSQLMainClientForm
+  Left = 466
+  Top = 173
+  Width = 549
+  Height = 406
+  BorderWidth = 5
+  Caption = 'DynSQL Client'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 136
+    Width = 66
+    Height = 13
+    Caption = 'Max Records:'
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 0
+    Width = 523
+    Height = 124
+    Align = alTop
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Courier New'
+    Font.Style = []
+    Lines.Strings = (
+      'SELECT * FROM Customers')
+    ParentFont = False
+    ScrollBars = ssBoth
+    TabOrder = 0
+  end
+  object seMaxRecs: TSpinEdit
+    Left = 80
+    Top = 133
+    Width = 65
+    Height = 22
+    MaxValue = 0
+    MinValue = 0
+    TabOrder = 1
+    Value = -1
+  end
+  object RetrieveSchema: TButton
+    Left = 0
+    Top = 160
+    Width = 92
+    Height = 25
+    Caption = 'Retrieve Schema'
+    TabOrder = 2
+    OnClick = RetrieveSchemaClick
+  end
+  object Grid: TDBGrid
+    Left = 0
+    Top = 212
+    Width = 523
+    Height = 148
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = DADataSource
+    TabOrder = 3
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object RetrieveData: TButton
+    Left = 95
+    Top = 160
+    Width = 92
+    Height = 25
+    Caption = 'Retrieve Data'
+    TabOrder = 4
+    OnClick = RetrieveDataClick
+  end
+  object RetrieveSchemaAndData: TButton
+    Left = 191
+    Top = 160
+    Width = 154
+    Height = 25
+    Caption = 'Retrieve Schema and Data'
+    TabOrder = 5
+    OnClick = RetrieveSchemaAndDataClick
+  end
+  object Save: TButton
+    Left = 349
+    Top = 160
+    Width = 45
+    Height = 25
+    Caption = 'Save'
+    TabOrder = 6
+    OnClick = SaveClick
+  end
+  object Load: TButton
+    Left = 398
+    Top = 160
+    Width = 45
+    Height = 25
+    Caption = 'Load'
+    TabOrder = 7
+    OnClick = LoadClick
+  end
+  object Update: TButton
+    Left = 446
+    Top = 160
+    Width = 75
+    Height = 25
+    Caption = 'Update'
+    TabOrder = 8
+    OnClick = UpdateClick
+  end
+  object dbNavigator: TDBNavigator
+    Left = 151
+    Top = 129
+    Width = 320
+    Height = 25
+    DataSource = DADataSource
+    ParentShowHint = False
+    ShowHint = True
+    TabOrder = 9
+  end
+  object cbUpdateviaRDA: TCheckBox
+    Left = 400
+    Top = 192
+    Width = 121
+    Height = 17
+    Caption = 'Update via RDA'
+    TabOrder = 10
+  end
+  object ROBINMessage: TROBinMessage
+    Left = 32
+    Top = 40
+  end
+  object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 64
+    Top = 40
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 128
+    Top = 40
+  end
+  object DataTable: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = DARemoteDataAdapter
+    BeforeRefresh = DataTableBeforeRefresh
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'DynamicDataset'
+    IndexDefs = <>
+    Left = 32
+    Top = 80
+  end
+  object DADataSource: TDADataSource
+    DataSet = DataTable.Dataset
+    DataTable = DataTable
+    Left = 64
+    Top = 80
+  end
+  object svcDynSQLService: TRORemoteService
+    Message = ROBINMessage
+    Channel = ROWinInetHTTPChannel1
+    ServiceName = 'DynSQLService'
+    Left = 96
+    Top = 40
+  end
+  object DARemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = svcDynSQLService
+    GetDataCall.RemoteService = svcDynSQLService
+    GetDataCall.MethodName = 'SQLGetData'
+    GetDataCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end
+      item
+        Name = 'aSQLText'
+        DataType = rtString
+        Flag = fIn
+        Value = Null
+      end
+      item
+        Name = 'aIncludeSchema'
+        DataType = rtBoolean
+        Flag = fIn
+        Value = Null
+      end
+      item
+        Name = 'aMaxRecords'
+        DataType = rtInteger
+        Flag = fIn
+        Value = Null
+      end>
+    GetDataCall.Default = False
+    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
+    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
+    GetDataCall.IncomingDataParameter = 'Result'
+    GetDataCall.OutgoingIncludeSchemaParameter = 'aIncludeSchema'
+    GetDataCall.OutgoingMaxRecordsParameter = 'aMaxRecords'
+    UpdateDataCall.RemoteService = svcDynSQLService
+    UpdateDataCall.MethodName = 'MyUpdateData'
+    UpdateDataCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end
+      item
+        Name = 'aTableName'
+        DataType = rtString
+        Flag = fIn
+        Value = Null
+      end
+      item
+        Name = 'Delta'
+        DataType = rtBinary
+        Flag = fIn
+        Value = Null
+      end>
+    UpdateDataCall.Default = False
+    UpdateDataCall.OutgoingDeltaParameter = 'Delta'
+    UpdateDataCall.IncomingDeltaParameter = 'Result'
+    GetScriptsCall.RemoteService = svcDynSQLService
+    RemoteService = svcDynSQLService
+    DataStreamer = DataStreamer
+    Left = 98
+    Top = 80
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLMainClient.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLMainClient.pas
new file mode 100644
index 0000000..1172ee8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLMainClient.pas	
@@ -0,0 +1,151 @@
+unit DynSQLMainClient;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uROWinInetHttpChannel, uROClient,
+  uROBINMessage, StdCtrls, Spin, uDADataTable, 
+  DB, Grids, DBGrids, uRORemoteService,
+  uDAScriptingProvider, ExtCtrls, DBCtrls, uDARemoteDataAdapter,
+  uDADataStreamer,  uDAInterfaces, uDABin2DataStreamer,
+  uDAMemDataTable;
+
+type
+  TDynSQLMainClientForm = class(TForm)
+    ROBINMessage: TROBINMessage;
+    ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
+    Memo: TMemo;
+    seMaxRecs: TSpinEdit;
+    Label1: TLabel;
+    RetrieveSchema: TButton;
+    DataStreamer: TDABin2DataStreamer;
+    DataTable: TDAMemDataTable;
+    Grid: TDBGrid;
+    DADataSource: TDADataSource;
+    svcDynSQLService: TRORemoteService;
+    RetrieveData: TButton;
+    RetrieveSchemaAndData: TButton;
+    Save: TButton;
+    Load: TButton;
+    Update: TButton;
+    dbNavigator: TDBNavigator;
+    DARemoteDataAdapter: TDARemoteDataAdapter;
+    cbUpdateviaRDA: TCheckBox;
+    procedure RetrieveSchemaClick(Sender: TObject);
+    procedure RetrieveDataClick(Sender: TObject);
+    procedure RetrieveSchemaAndDataClick(Sender: TObject);
+    procedure SaveClick(Sender: TObject);
+    procedure LoadClick(Sender: TObject);
+    procedure UpdateClick(Sender: TObject);
+    procedure DataTableBeforeRefresh(DataTable: TDADataTable);
+  private
+    { Private declarations }
+    fSavedTablename: String;
+    procedure InitRDA(aIncludeSchema: Boolean; AMaxRecords: integer);
+  public
+    { Public declarations }
+  end;
+
+var
+  DynSQLMainClientForm: TDynSQLMainClientForm;
+
+implementation
+
+uses DynSQLLibrary_Intf, uROTypes, uDARemoteDataAdapterRequests, uRODL;
+
+{$R *.dfm}
+
+procedure TDynSQLMainClientForm.RetrieveSchemaClick(Sender: TObject);
+begin
+  InitRDA(True, 0);
+  DataTable.Close;
+end;
+
+procedure TDynSQLMainClientForm.RetrieveDataClick(Sender: TObject);
+begin
+  InitRDA(False, seMaxRecs.Value);
+end;
+
+procedure TDynSQLMainClientForm.RetrieveSchemaAndDataClick(Sender: TObject);
+begin
+  InitRDA(True, seMaxRecs.Value);
+end;
+
+procedure TDynSQLMainClientForm.SaveClick(Sender: TObject);
+begin
+  DataTable.SaveToFile(ExtractFilePath(Application.ExeName) + 'Data.dat');
+end;
+
+procedure TDynSQLMainClientForm.LoadClick(Sender: TObject);
+begin
+  DataTable.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Data.dat');
+end;
+
+procedure TDynSQLMainClientForm.UpdateClick(Sender: TObject);
+var
+  deltadata, r: Binary;
+
+begin
+  if not DataTable.Active then begin
+    ShowMessage('Please open table');
+    Exit;
+  end;
+  if DataTable.Delta.Count=0 then begin
+    ShowMessage('No changes are found');
+    Exit;
+  end;
+  fSavedTablename:=InputBox('Enter table name','Please enter table name.'+sLineBreak+'Use an empty table name for fake update.',fSavedTablename);
+
+  if cbUpdateviaRDA.Checked then begin
+    DARemoteDataAdapter.UpdateDataCall.ParamByName('aTableName').AsString:= fSavedTablename;
+    DataTable.ApplyUpdates();
+  end
+  else begin
+    deltadata := Binary.Create;
+    try
+      // Packs the delta of the data table and sends it over.
+      DataStreamer.Initialize(deltadata, aiWrite);
+      try
+        DataStreamer.WriteDelta(DataTable);
+      finally
+        DataStreamer.Finalize;
+      end;
+
+      r:=(svcDynSQLService as IDynSQLService).MyUpdateData(fSavedTablename,deltadata);
+      try
+        DataTable.Delta.Clear();
+        DataStreamer.Initialize(r, aiReadFromBeginning);
+        try
+          DataStreamer.ReadDelta(DataStreamer.DeltaNames[0], DataTable.Delta);
+        finally
+          DataStreamer.Finalize;
+        end;
+        DataTable.MergeDelta;
+      finally
+        r.Free;
+      end;
+    finally
+      deltadata.Free;
+    end;
+  end;
+end;
+
+procedure TDynSQLMainClientForm.DataTableBeforeRefresh(DataTable: TDADataTable);
+begin
+  DaRemoteDataAdapter.GetDataCall.ParamByName('aSQLText').AsString := Memo.Lines.Text;
+end;
+
+procedure TDynSQLMainClientForm.InitRDA(aIncludeSchema: Boolean;
+  AMaxRecords: integer);
+begin
+  with DataTable do begin
+    Close;
+    DARemoteDataAdapter.GetDataCall.ParamByName('aSQLText').AsString := Memo.Lines.Text;
+    MaxRecords := AMaxRecords;
+    DARemoteDataAdapter.Fill([DataTable], true, aIncludeSchema);
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.bdsproj
new file mode 100644
index 0000000..233d818
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{069B38C6-980B-4FAD-82DD-F4FCCB0A2F68}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DynSQLServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.cfg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.cfg
new file mode 100644
index 0000000..98e9e54
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.cfg	
@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LN"D:\Program files.all\Winsys\borland\DCP_70"
+-U"d:\program files.all\borland\delphi7\Lib\Debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug"
+-O"d:\program files.all\borland\delphi7\Lib\Debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug"
+-I"d:\program files.all\borland\delphi7\Lib\Debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug"
+-R"d:\program files.all\borland\delphi7\Lib\Debug;D:\PROGRA~1.ALL\Borland\DLIB\jcl\lib\d7\debug"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dof b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dof
new file mode 100644
index 0000000..8bc3ac8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dof	
@@ -0,0 +1,117 @@
+[FileVersion]
+Version=7.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dpr
new file mode 100644
index 0000000..f5094ec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dpr	
@@ -0,0 +1,21 @@
+program DynSQLServer;
+
+{#ROGEN:DynSQLLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROCOMInit,
+  Forms,
+  DynSQLServerMain in 'DynSQLServerMain.pas' {DynSQLServerMainForm},
+  DynSQLLibrary_Intf in 'DynSQLLibrary_Intf.pas',
+  DynSQLLibrary_Invk in 'DynSQLLibrary_Invk.pas',
+  DynSQLService_Impl in 'DynSQLService_Impl.pas' {DynSQLService: TRORemoteDataModule};
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'DynSQL Server';
+  Application.CreateForm(TDynSQLServerMainForm, DynSQLServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dproj
new file mode 100644
index 0000000..53265cb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.dproj	
@@ -0,0 +1,83 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{2d78a543-7091-4d6f-9ce8-69b6915cef48}</ProjectGuid>
+    <MainSource>DynSQLServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DynSQLServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DynSQLServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DynSQLServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DynSQLLibrary_Intf.pas" />
+    <DCCReference Include="DynSQLLibrary_Invk.pas" />
+    <DCCReference Include="DynSQLServerMain.pas">
+      <Form>DynSQLServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="DynSQLService_Impl.pas">
+      <Form>DynSQLService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServerMain.dfm
new file mode 100644
index 0000000..3275dca
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServerMain.dfm	
@@ -0,0 +1,88 @@
+object DynSQLServerMainForm: TDynSQLServerMainForm
+  Left = 285
+  Top = 181
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'DynSQL Server'
+  ClientHeight = 221
+  ClientWidth = 413
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Form1'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 14
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 0
+    Top = 0
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 54
+    Width = 413
+    Height = 167
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Lines.Strings = (
+      'SQL details generated for Update will be displayed here')
+    ReadOnly = True
+    ScrollBars = ssBoth
+    TabOrder = 0
+  end
+  object Button1: TButton
+    Left = 336
+    Top = 24
+    Width = 75
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = 'Clear'
+    TabOrder = 1
+    OnClick = Button1Click
+  end
+  object ROMessage: TROBinMessage
+    Left = 256
+  end
+  object ROServer: TROIndyHTTPServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'BIN'
+      end>
+    Port = 8099
+    Left = 288
+  end
+  object DADriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 320
+  end
+  object DAConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Description = 'Borland ADOExpress Connection'
+        Default = True
+      end>
+    DriverManager = DADriverManager
+    PoolingEnabled = True
+    Left = 384
+  end
+  object DAADODriver: TDAADODriver
+    Left = 352
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServerMain.pas
new file mode 100644
index 0000000..d9ab672
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLServerMain.pas	
@@ -0,0 +1,73 @@
+unit DynSQLServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROIndyHTTPServer,
+  uROIndyTCPServer, uROPoweredByRemObjectsButton, SyncObjs,
+  uDAClasses, uDADriverManager, uDAEngine, uDAADODriver;
+
+type
+  TDynSQLServerMainForm = class(TForm)
+    ROMessage: TROBINMessage;
+    ROServer: TROIndyHTTPServer;
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    DADriverManager: TDADriverManager;
+    DAConnectionManager: TDAConnectionManager;
+    DAADODriver: TDAADODriver;
+    Memo: TMemo;
+    Button1: TButton;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+  private
+    { Private declarations }
+    CriticalSection: TCriticalSection;
+  public
+    { Public declarations }
+    procedure LOG(str: string);
+  end;
+
+var
+  DynSQLServerMainForm: TDynSQLServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+{ TDynSQLServerMainForm }
+
+procedure TDynSQLServerMainForm.LOG(str: string);
+begin
+  CriticalSection.Enter;
+  try
+    Memo.Lines.Add(str);
+  finally
+    CriticalSection.Leave;
+  end;
+end;
+
+procedure TDynSQLServerMainForm.FormCreate(Sender: TObject);
+begin
+  CriticalSection := TCriticalSection.Create;
+  Button1Click(Self);
+end;
+
+procedure TDynSQLServerMainForm.FormDestroy(Sender: TObject);
+begin
+  CriticalSection.Free;
+end;
+
+procedure TDynSQLServerMainForm.Button1Click(Sender: TObject);
+begin
+  CriticalSection.Enter;
+  try
+    Memo.Clear;
+  finally
+    CriticalSection.Leave;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLService_Impl.dfm
new file mode 100644
index 0000000..46e9d93
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLService_Impl.dfm	
@@ -0,0 +1,51 @@
+object DynSQLService: TDynSQLService
+  OldCreateOrder = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  AllowExecuteSQL = True
+  ExportedDataTables = <>
+  Left = 430
+  Top = 70
+  Height = 300
+  Width = 300
+  object DataStreamer: TDABin2DataStreamer
+    Left = 24
+    Top = 72
+  end
+  object Schema: TDASchema
+    ConnectionManager = DynSQLServerMainForm.DAConnectionManager
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            Default = True
+            Name = 'ADO'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'ReferencedDataset'
+        Fields = <>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 24
+    Top = 16
+  end
+  object BusinessProcessor: TDABusinessProcessor
+    OnAfterProcessChange = BusinessProcessorAfterProcessChange
+    OnProcessError = BusinessProcessorProcessError
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'ReferencedDataset'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereAll
+    Left = 24
+    Top = 120
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLService_Impl.pas
new file mode 100644
index 0000000..d541f7f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/DynSQLService_Impl.pas	
@@ -0,0 +1,165 @@
+unit DynSQLService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf, uDAInterfaces,
+  {Generated:} DynSQLLibrary_Intf,  uDAClasses, uDADelta,
+  uDABin2DataStreamer, uDADataStreamer, uDAScriptingProvider,
+  uDABusinessProcessor;
+
+type
+  { TDynSQLService }
+  TDynSQLService = class(TDataAbstractService, IDynSQLService)
+    DataStreamer: TDABin2DataStreamer;
+    BusinessProcessor: TDABusinessProcessor;
+    Schema: TDASchema;
+    procedure BusinessProcessorGenerateSQL(Sender: TDABusinessProcessor;
+      ChangeType: TDAChangeType; const ReferencedStatement: TDAStatement;
+      const aDelta: IDADelta; var SQL: String);
+    procedure BusinessProcessorProcessError(Sender: TDABusinessProcessor;
+      aChangeType: TDAChangeType; aChange: TDADeltaChange;
+      const aCommand: IDASQLCommand; var CanRemoveFromDelta: Boolean;
+      Error: Exception);
+    procedure BusinessProcessorAfterProcessChange(
+      Sender: TDABusinessProcessor; aChange: TDADeltaChange;
+      Processed: Boolean; var CanRemoveFromDelta: Boolean);
+  private
+    procedure Log(aStr: string);
+    function _GetConnection: IDAConnection;
+  protected
+    function MyUpdateData(const aTableName: AnsiString; const Delta: Binary): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} DynSQLLibrary_Invk, DynSQLServerMain, Dialogs, TypInfo;
+
+procedure Create_DynSQLService(out anInstance: IUnknown);
+begin
+  anInstance := TDynSQLService.Create(nil);
+end;
+
+{ TDynSQLService }
+
+function TDynSQLService._GetConnection: IDAConnection;
+begin
+  Result := DynSQLServerMainForm.DAConnectionManager.NewConnection('ADO');
+end;
+
+procedure TDynSQLService.Log(aStr: string);
+begin
+  DynSQLServerMainForm.Log(aStr);
+end;
+
+function TDynSQLService.MyUpdateData(const aTableName: AnsiString; const Delta: Binary): Binary;
+var
+  conn: IDAConnection;
+  realdelta: IDADelta;
+  i: integer;
+  sql: string;
+  fOldDeltaname: string;
+begin
+  Log('');
+  Log('');
+  // Opens a connection
+  conn := _GetConnection;
+
+  // Creates a delta object
+  realdelta := NewDelta('tempDelta');
+
+  // Converts the binary stream we just received.
+  DataStreamer.Initialize(Delta, aiReadFromBeginning);
+  try
+    fOldDeltaname:=DataStreamer.DeltaNames[0];
+    DataStreamer.ReadDelta(DataStreamer.DeltaNames[0], realdelta);
+  finally
+    DataStreamer.Finalize;
+  end;
+
+  if (aTableName = '') or (realdelta.Count=0) then begin
+    // Builds a fake SQL string for updating and displays it
+    sql := 'Updating query "' + DataStreamer.DeltaNames[0] + '", fields ';
+
+    for i := 0 to (realdelta.LoggedFieldCount - 1) do
+      sql := sql + realdelta.LoggedFieldNames[i] + '(' + GetEnumName(TypeInfo(TDADataType), Ord(realdelta.LoggedFieldTypes[i])) + '), ';
+
+    sql := Copy(sql, 1, Length(sql) - 2);
+
+    Log(sql);
+  end
+  else begin
+    realDelta.LogicalName:= aTableName;
+    // setup of ReferencedDataset used in BP.ProcessDelta
+    with Schema.Datasets.DatasetByName(BusinessProcessor.ReferencedDataset),Statements[0] do begin
+      TargetTable:=aTableName;
+      ColumnMappings.Clear;
+      Fields.Clear;
+      for i:=0 to realdelta.LoggedFieldCount-1 do begin
+        Fields.Add(realdelta.LoggedFieldNames[i],realdelta.LoggedFieldTypes[i]);
+        with ColumnMappings.Add do begin
+          DatasetField:= realdelta.LoggedFieldNames[i];
+          TableField:= realdelta.LoggedFieldNames[i];
+          SQLOrigin:= realdelta.LoggedFieldNames[i];
+        end;
+      end;
+    end;
+    BusinessProcessor.ProcessDelta(conn,realdelta);
+  end;
+
+  Result:=Binary.Create;
+  realdelta.LogicalName:=fOldDeltaname;
+  DataStreamer.Initialize(Result, aiWrite);
+  try
+    DataStreamer.WriteDelta(realdelta);
+  finally
+    DataStreamer.Finalize;
+  end;
+end;
+
+procedure TDynSQLService.BusinessProcessorGenerateSQL(
+  Sender: TDABusinessProcessor; ChangeType: TDAChangeType;
+  const ReferencedStatement: TDAStatement; const aDelta: IDADelta;
+  var SQL: String);
+begin
+  Log('Generated SQL: '+SQL);
+end;
+
+procedure TDynSQLService.BusinessProcessorProcessError(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; const aCommand: IDASQLCommand;
+  var CanRemoveFromDelta: Boolean; Error: Exception);
+begin
+  Log('Error during processing change (RecID=' + IntToStr(aChange.RecID)+')');
+  Log(Error.Message);
+end;
+
+procedure TDynSQLService.BusinessProcessorAfterProcessChange(
+  Sender: TDABusinessProcessor; aChange: TDADeltaChange;
+  Processed: Boolean; var CanRemoveFromDelta: Boolean);
+begin
+  if Processed then
+    Log('Change (RecID=' + IntToStr(aChange.RecID) +') is processed')
+  else
+    Log('Change (RecID=' + IntToStr(aChange.RecID) +') isn''t processed');
+end;
+
+initialization
+  TROClassFactory.Create('DynSQLService', Create_DynSQLService, TDynSQLService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/RODLFILE.res
new file mode 100644
index 0000000..746553e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic SQL/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.Sample.html
new file mode 100644
index 0000000..da1066f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.Sample.html	
@@ -0,0 +1,30 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+<br>
+<p class="h1">
+  <span>Dynamic Where Sample</span> 
+</p>
+
+<br>
+<h2>Purpose</h2>
+<p>
+  This example illustrates how work with the <b>Dynamic Where</b>.<br><br>
+</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Launch the server (via the menu option: <strong>RemObjects | Launch Server Executable</strong>).</li>
+	<li>Ensure that DynamicWhereClient is the selected project and run it.</li>
+	<li>Create a few conditions and apply them.</li>
+	<li>Examine pascal code which you can be &nbsp;applied at runtime and the xml code generated
+        by the DynamicWhere.</li>
+	</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.bdsgroup
new file mode 100644
index 0000000..cd82719
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1D0BC0A5-0BAE-4BF3-B6F3-50715E780A75}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="DynWhere_Server.exe">DynWhere_Server.bdsproj</Projects>
+      <Projects Name="DynWhere_Client.exe">DynWhere_Client.bdsproj</Projects>
+      <Projects Name="Targets">DynWhere_Server.exe DynWhere_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.bpg
new file mode 100644
index 0000000..0a914f1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DynWhere_Server.exe DynWhere_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DynWhere_Server.exe: DynWhere_Server.dpr
+  $(DCC)
+
+DynWhere_Client.exe: DynWhere_Client.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.groupproj
new file mode 100644
index 0000000..7b0c875
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{efdbc0b3-3cba-4a73-9888-3efa9fa82a97}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="DynWhere_Client.dproj" />
+    <Projects Include="DynWhere_Server.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="DynWhere_Server">
+    <MSBuild Projects="DynWhere_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="DynWhere_Server:Clean">
+    <MSBuild Projects="DynWhere_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DynWhere_Server:Make">
+    <MSBuild Projects="DynWhere_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DynWhere_Client">
+    <MSBuild Projects="DynWhere_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="DynWhere_Client:Clean">
+    <MSBuild Projects="DynWhere_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DynWhere_Client:Make">
+    <MSBuild Projects="DynWhere_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="DynWhere_Server;DynWhere_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="DynWhere_Server:Clean;DynWhere_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="DynWhere_Server:Make;DynWhere_Client:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.bdsproj
new file mode 100644
index 0000000..dc4481d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.bdsproj	
@@ -0,0 +1,170 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{9CFA1B16-9C56-461F-8F17-1F17C0FACB35}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DynWhere_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.dpr
new file mode 100644
index 0000000..d7403c8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.dpr	
@@ -0,0 +1,20 @@
+program DynWhere_Client;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  DynWhere_ClientMain in 'DynWhere_ClientMain.pas' {DynWhere_ClientForm},
+  DynWhere_ClientData in 'DynWhere_ClientData.pas' {DynWhere_ClientDataForm: TDAClientDataModule},
+  memoForm in 'memoForm.pas' {frmMemo},
+  WhereExpression in 'WhereExpression.pas' {WhereExpressionForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Dynamic Where - Client';
+  Application.CreateForm(TDynWhere_ClientDataForm, DynWhere_ClientDataForm);
+  Application.CreateForm(TDynWhere_ClientForm, DynWhere_ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.dproj
new file mode 100644
index 0000000..80a8a31
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.dproj	
@@ -0,0 +1,225 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{32915d98-851f-4ad4-b94c-2f0ce6942b73}</ProjectGuid>
+    <MainSource>DynWhere_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DynWhere_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\bin\dacvcl105.bpl">Core Lab Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcldac105.bpl">Core Lab Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmydac105.bpl">Data Access Components for MySQL</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\mydacvcl105.bpl">MySQL Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclodac105.bpl">Oracle Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\odacvcl105.bpl">Oracle Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclsdac105.bpl">SQL Server Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\sdacvcl105.bpl">SQL Server Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Scripting_D11.bpl">RemObjects Data Abstract - Scripting Integration Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBXDriver_D11.bpl">RemObjects Data Abstract - dbExpress Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl">RemObjects Data Abstract - DBISAM Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl">RemObjects Data Abstract - ElevateDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_FIBDriver_D11.bpl">RemObjects Data Abstract - FIBPlus Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs IBDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs MyDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ODACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs ODAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap PostgresDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Rosetta_D11.bpl">RemObjects Data Abstract - 'Rosetta'</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclibdac105.bpl">Core Lab InterBase Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmysqlmon105.bpl">Data Access Components for MySQL - TMySQLMonitor</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">DynWhere_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DynWhere_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DynWhere_ClientData.pas">
+      <Form>DynWhere_ClientDataForm</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="DynWhere_ClientMain.pas">
+      <Form>DynWhere_ClientForm</Form>
+    </DCCReference>
+    <DCCReference Include="memoForm.pas">
+      <Form>frmMemo</Form>
+    </DCCReference>
+    <DCCReference Include="WhereExpression.pas">
+      <Form>WhereExpressionForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.res
new file mode 100644
index 0000000..cc22935
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientData.dfm
new file mode 100644
index 0000000..63c6f90
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientData.dfm	
@@ -0,0 +1,60 @@
+object DynWhere_ClientDataForm: TDynWhere_ClientDataForm
+  OldCreateOrder = True
+  OnCreate = DataModuleCreate
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DynWhere_Service'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object tbl_Data: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LocalDataStreamer = DataStreamer
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Employees'
+    Left = 136
+    Top = 24
+  end
+  object ds_Data: TDADataSource
+    DataSet = tbl_Data.Dataset
+    DataTable = tbl_Data
+    Left = 136
+    Top = 80
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientData.pas
new file mode 100644
index 0000000..5dec311
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientData.pas	
@@ -0,0 +1,39 @@
+unit DynWhere_ClientData;
+
+interface
+
+uses
+  {vcl:} SysUtils, Classes, DB, DBClient,
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable;
+
+type
+  TDynWhere_ClientDataForm = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Data: TDAMemDataTable;
+    ds_Data: TDADataSource;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DynWhere_ClientDataForm: TDynWhere_ClientDataForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TDynWhere_ClientDataForm.DataModuleCreate(Sender: TObject);
+begin
+  RemoteDataAdapter.SetupDefaultRequest;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientMain.dfm
new file mode 100644
index 0000000..21d782e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientMain.dfm	
@@ -0,0 +1,637 @@
+object DynWhere_ClientForm: TDynWhere_ClientForm
+  Left = 329
+  Top = 175
+  AutoScroll = False
+  Caption = 'Dynamic Where Client'
+  ClientHeight = 442
+  ClientWidth = 700
+  Color = clBtnFace
+  Constraints.MinHeight = 478
+  Constraints.MinWidth = 640
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 700
+    Height = 201
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Panel2: TPanel
+      Left = 0
+      Top = 0
+      Width = 233
+      Height = 201
+      Align = alLeft
+      BevelOuter = bvNone
+      TabOrder = 1
+      object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+        Left = 8
+        Top = 8
+        Width = 212
+        Height = 48
+        Cursor = crHandPoint
+      end
+      object btnOpenClose: TButton
+        Left = 16
+        Top = 72
+        Width = 75
+        Height = 25
+        Caption = 'Open'
+        TabOrder = 0
+        OnClick = btnOpenCloseClick
+      end
+      object btnXML: TButton
+        Left = 16
+        Top = 112
+        Width = 75
+        Height = 25
+        Caption = 'Show XML'
+        TabOrder = 1
+        Visible = False
+        OnClick = btnXMLClick
+      end
+      object btnDelphi: TButton
+        Left = 16
+        Top = 152
+        Width = 75
+        Height = 25
+        Caption = 'Delphi Code'
+        TabOrder = 2
+        Visible = False
+        OnClick = btnDelphiClick
+      end
+    end
+    object Pan_Cond: TPanel
+      Left = 233
+      Top = 0
+      Width = 467
+      Height = 201
+      Align = alClient
+      BevelOuter = bvNone
+      TabOrder = 0
+      Visible = False
+      object panSet: TPanel
+        Left = 0
+        Top = 0
+        Width = 467
+        Height = 25
+        Align = alTop
+        BevelOuter = bvNone
+        Caption = 
+          'Set Values for appropriated fields and click Open/Refresh button' +
+          ':'
+        TabOrder = 0
+      end
+      object Panel4: TPanel
+        Left = 0
+        Top = 25
+        Width = 467
+        Height = 151
+        Align = alClient
+        BevelOuter = bvNone
+        TabOrder = 1
+        object lbOper: TListBox
+          Left = 0
+          Top = 0
+          Width = 416
+          Height = 151
+          Align = alClient
+          ItemHeight = 13
+          TabOrder = 0
+          OnClick = lbOperClick
+          OnDblClick = lbOperDblClick
+          OnKeyDown = lbOperKeyDown
+        end
+        object Panel5: TPanel
+          Left = 416
+          Top = 0
+          Width = 51
+          Height = 151
+          Align = alRight
+          BevelOuter = bvNone
+          TabOrder = 1
+          object ToolBar1: TToolBar
+            Left = 0
+            Top = 0
+            Width = 27
+            Height = 151
+            Align = alLeft
+            AutoSize = True
+            ButtonHeight = 24
+            Caption = 'ToolBar1'
+            EdgeInner = esNone
+            EdgeOuter = esNone
+            Images = ImageList1
+            Indent = 4
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 0
+            Wrapable = False
+            object tbCondNew: TToolButton
+              Left = 4
+              Top = 2
+              Action = aCondNew
+              Wrap = True
+            end
+            object TToolButton
+              Left = 4
+              Top = 26
+              Action = aCondEdit
+              Wrap = True
+            end
+            object TToolButton
+              Left = 4
+              Top = 50
+              Action = aCondDelete
+              Wrap = True
+            end
+            object TToolButton
+              Left = 4
+              Top = 74
+              Action = aCondUp
+              Wrap = True
+            end
+            object TToolButton
+              Left = 4
+              Top = 98
+              Action = aCondDown
+              Wrap = True
+            end
+          end
+        end
+      end
+      object Panel6: TPanel
+        Left = 0
+        Top = 176
+        Width = 467
+        Height = 25
+        Align = alBottom
+        BevelOuter = bvNone
+        Caption = 'All logical operators have equal precedence!'
+        TabOrder = 2
+      end
+    end
+  end
+  object DBGrid: TDBGrid
+    Left = 0
+    Top = 201
+    Width = 700
+    Height = 241
+    Align = alClient
+    DataSource = DynWhere_ClientDataForm.ds_Data
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object CondActionList: TActionList
+    Images = ImageList1
+    Left = 337
+    Top = 49
+    object aCondEdit: TAction
+      Caption = 'Edit'
+      Hint = 'Edit'
+      ImageIndex = 2
+      OnExecute = aCondEditExecute
+    end
+    object aCondNew: TAction
+      Caption = 'aCondNew'
+      Hint = 'New'
+      ImageIndex = 0
+      OnExecute = aCondNewExecute
+    end
+    object aCondDelete: TAction
+      Caption = 'aCondDelete'
+      Hint = 'Delete'
+      ImageIndex = 1
+      OnExecute = aCondDeleteExecute
+    end
+    object aCondUp: TAction
+      Caption = 'aCondUp'
+      Hint = 'Up'
+      ImageIndex = 3
+      OnExecute = aCondUpExecute
+    end
+    object aCondDown: TAction
+      Caption = 'aCondDown'
+      Hint = 'Down'
+      ImageIndex = 4
+      OnExecute = aCondDownExecute
+    end
+  end
+  object ImageList1: TImageList
+    Left = 425
+    Top = 57
+    Bitmap = {
+      494C010108000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000003000000001002000000000000030
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000848400000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000808000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      0000000000000000000000000000000000000000000000000000808080000000
+      000000000000808000000000000000000000C0C0C00000000000000000000000
+      000080808000000000000000000000000000008080000000000000000000C0C0
+      C000000000000000000000000000000000008080800000000000000000000000
+      00000000000000000000000000000080800000000000C0C0C00000000000C0C0
+      C000000000000000000080808000000000000000000080800000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000008484000084840000848400008484000084840000000000000000
+      00000000000000000000000000000000000000000000C0C0C000000000000000
+      00000000000000000000C0C0C00000000000C0C0C00000000000000000000000
+      000000000000000000000000000000000000C0C0C00000000000000000000000
+      0000C0C0C0000000000000000000C0C0C00000000000C0C0C000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000C0C0C00000000000000000000000000000000000C0C0C0000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000848400008484000084840000848400008484000084840000848400000000
+      0000000000000000000000000000000000000000000000000000C0C0C0000000
+      000000000000C0C0C0000000000000000000C0C0C00000000000000000000000
+      0000C0C0C0000000000000000000000000000000000000000000C0C0C0000000
+      000000000000000000000000000000000000C0C0C000C0C0C000000000000000
+      00000000000000000000000000000000000000000000C0C0C00000000000C0C0
+      C0000000000000000000C0C0C0000000000000000000C0C0C000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      0000000000000000000000000000000000000000000000000000C0C0C0000000
+      000000000000C0C0C0000000000000000000C0C0C00000000000000000000000
+      0000800000000000000000000000000000000000000080808000000000008080
+      80000000000000000000000000008080800000000000C0C0C000000000000000
+      00000000000000000000000000000080800000000000C0C0C00080008000C0C0
+      C0000000000000000000C0C0C0000000000000000000C0C0C000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      00000000000000000000000000000000000000000000C0C0C000000000000000
+      00000000000000000000C0C0C00000000000C0C0C00000000000000000000000
+      000000000000C0C0C000000000000000000000000000C0C0C00000000000C0C0
+      C0000000000000000000000000000000000000000000C0C0C000000000000000
+      0000000000000000000000000000000000000000000000000000C0C0C0000000
+      000000000000C0C0C00000000000000000000000000000000000C0C0C0000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      0000000000000000000000000000000000000000000000000000808080000000
+      000000000000808000000000000000000000C0C0C00000000000000000000000
+      0000800000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000008080800000000000C0C0
+      C000000000000000000080808000000000000000000080800000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484008484840084848400848484000000000000000000848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484008484840084848400848484000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000848484000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000008484840000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000
+      0000FFFFFF0000FFFF0000000000848484000000000000000000FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000
+      0000FFFFFF0000FFFF00000000008484840000000000FFFFFF00000000000000
+      0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6
+      C60000000000FFFFFF000000000084848400848484000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6
+      C60000000000FFFFFF00000000008484840000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FF
+      FF00C6C6C6000000000000000000848484000000840000000000FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FF
+      FF00C6C6C60000000000000000008484840000000000FFFFFF00000000000000
+      0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      000000000000000000000000000000000000000000000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      000000000000000000000000000084848400000084000000840000FFFF00FFFF
+      FF0000FFFF00FFFFFF00848484000000840000FFFF00FFFFFF00000000000000
+      00000000000000000000000000008484840000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      000000000000000000000000000000000000FFFFFF0000000000FFFFFF008484
+      840000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00000000008484840084848400000084008484840000FF
+      FF00FFFFFF00848484000000840084848400FFFFFF0000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00000000008484840000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      0000000000000000000000000000000000008484840000FFFF0000FFFF008484
+      8400FFFFFF0000FFFF008484840000FFFF00FFFFFF00FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000000000848484000000000000008400000084008484
+      840000FFFF000000840000008400FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF00000000008484840000000000FFFFFF00000000000000
+      0000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C60000000000FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      0000000000000000000000000000000000000000000084848400FFFFFF008484
+      840000FFFF008484840000FFFF00FFFFFF0000FFFF0000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF0000000000848484000000000084848400000084000000
+      84000000840000008400FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00000000008484840000000000FFFFFF0000000000C6C6
+      C60000000000FFFFFF0000000000C6C6C60000000000C6C6C600000000000000
+      0000000000000000000084000000840000000000000000000000000000000000
+      0000848400008484000084840000848400008484000084840000848400000000
+      000000000000000000000000000000000000848484008484840084848400FFFF
+      FF0084848400FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000000000848484000000000084848400000084000000
+      840000008400FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF00000000008484840000000000FFFFFF00FFFFFF000000
+      0000C6C6C60000000000C6C6C60000000000C6C6C60000000000C6C6C600C6C6
+      C600C6C6C6000000000084000000840000000000000000000000000000000000
+      0000000000008484000084840000848400008484000084840000000000000000
+      000000000000000000000000000000000000FFFFFF0000FFFF008484840000FF
+      FF00FFFFFF008484840084848400848484008484840000000000000000000000
+      0000000000000000000000000000000000008484840000008400000084000000
+      8400000084008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C60084000000840000000000000000000000000000000000
+      0000000000000000000084840000848400008484000000000000000000000000
+      000000000000000000000000000000000000000000008484840000FFFF008484
+      840000FFFF008484840000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000840000008400848484000000
+      0000000084000000840084848400000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C60084000000840000000000000000000000000000000000
+      0000000000000000000000000000848400000000000000000000000000000000
+      0000000000000000000000000000000000008484840000FFFF00000000008484
+      8400FFFFFF00000000008484840000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000840000008400848484000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C6000000000084000000840000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF0000000000000000008484
+      840000FFFF000000000000000000848484000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000008400000084008484840000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084000000840000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      8400FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000300000000100010000000000800100000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFC7FFFFF7591FFFF
+      F83FC33325162436F01F99370416A996E00F99278C168995C00799078C968991
+      F83F99338D918996F83FC307FFFF2431F83FFFFFFFFFFFFFF83FFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC000C000000FFFFF
+      80008000000FFFFF80008000000FFFFF80000000000FF83F80000000000FF83F
+      80000000000FF83F00000000000FF83F00008000000FC007800080000004E00F
+      000080000000F01F000100010000F83F81FF11FFF800FC7F24FFF8FFFC00FEFF
+      66FFFC7FFE04FFFFE7FFFFFFFFFFFFFF00000000000000000000000000000000
+      000000000000}
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientMain.pas
new file mode 100644
index 0000000..08fe292
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ClientMain.pas	
@@ -0,0 +1,499 @@
+unit DynWhere_ClientMain;
+
+interface
+
+uses
+  Forms, StdCtrls, Controls, Grids, DBGrids, Classes, ExtCtrls,
+  ActnList, Buttons, ImgList, ComCtrls, ToolWin, Menus,
+  uROPoweredByRemObjectsButton,
+  uDAPoweredByDataAbstractButton,
+  uDAInterfaces
+  ;
+
+type
+  TFldOperator = record
+    FldName: string;
+    LogOper: TDABinaryOperator;
+    Oper: TDABinaryOperator;
+    Value: variant;
+  end;
+
+  TDynWhere_ClientForm = class(TForm)
+    Panel1: TPanel;
+    DBGrid: TDBGrid;
+    Panel2: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    btnOpenClose: TButton;
+    Pan_Cond: TPanel;
+    panSet: TPanel;
+    btnXML: TButton;
+    Panel4: TPanel;
+    lbOper: TListBox;
+    Panel5: TPanel;
+    Panel6: TPanel;
+    CondActionList: TActionList;
+    aCondEdit: TAction;
+    aCondNew: TAction;
+    aCondDelete: TAction;
+    aCondUp: TAction;
+    ImageList1: TImageList;
+    ToolBar1: TToolBar;
+    aCondDown: TAction;
+    tbCondNew: TToolButton;
+    btnDelphi: TButton;
+    procedure btnXMLClick(Sender: TObject);
+    procedure btnOpenCloseClick(Sender: TObject);
+    procedure lbOperDblClick(Sender: TObject);
+    procedure aCondEditExecute(Sender: TObject);
+    procedure aCondNewExecute(Sender: TObject);
+    procedure aCondDeleteExecute(Sender: TObject);
+    procedure aCondUpExecute(Sender: TObject);
+    procedure aCondDownExecute(Sender: TObject);
+    procedure lbOperKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure btnDelphiClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure lbOperClick(Sender: TObject);
+  private
+    { Private declarations }
+    fExpression: array of TFldOperator;
+    fXML: string;
+    fDelphiCode: string;
+    procedure CheckEditButtons();
+    procedure RebuildCondList();
+    function  GetXML(): string;
+  public
+    { Public declarations }
+  end;
+
+var
+  DynWhere_ClientForm: TDynWhere_ClientForm;
+
+implementation
+
+uses
+  Windows, SysUtils, Variants, TypInfo,
+  uDADataTable, uDASQL92QueryBuilder,
+  DynWhere_ClientData, memoForm, WhereExpression;
+
+{$R *.dfm}
+
+const
+  c_Invalid_XML = '*';
+
+procedure TDynWhere_ClientForm.FormCreate(Sender: TObject);
+begin
+  fXML := c_Invalid_XML;
+  ActiveControl := btnOpenClose;
+end;
+
+procedure TDynWhere_ClientForm.btnOpenCloseClick(Sender: TObject);
+var
+  Tbl: TDADataTable;
+  OldCur: TCursor;
+  XML: string;
+begin
+  OldCur := Screen.Cursor;
+
+  try
+    Screen.Cursor := crHourGlass;
+    Tbl := DynWhere_ClientDataForm.tbl_Data;
+
+    if  Pan_Cond.Visible  then
+    begin
+      Tbl.Active := False;
+      XML := GetXML();
+
+      if  XML = ''  then
+        Tbl.DynamicWhere.Clear()
+      else
+        Tbl.DynamicWhere.Xml := GetXML();
+
+      Tbl.Active := True;
+    end
+    else
+    begin
+      Tbl.Active := True;
+      Pan_Cond.Visible := True;
+      btnOpenClose.Caption := 'Refresh';
+      btnXML.Visible := True;
+      btnDelphi.Visible := True;
+    end;
+
+    ActiveControl := lbOper;
+    CheckEditButtons();
+  finally
+    Screen.Cursor := OldCur;
+  end;
+end;
+
+procedure TDynWhere_ClientForm.btnXMLClick(Sender: TObject);
+begin
+  TfrmMemo.Execute('XML pass to Server', GetXML(), True);
+end;
+
+procedure TDynWhere_ClientForm.lbOperDblClick(Sender: TObject);
+begin
+  aCondEdit.Execute();
+end;
+
+procedure TDynWhere_ClientForm.lbOperClick(Sender: TObject);
+begin
+  CheckEditButtons();
+end;
+
+procedure TDynWhere_ClientForm.aCondEditExecute(Sender: TObject);
+var
+  i: integer;
+begin
+  i := integer(lbOper.Items.Objects[lbOper.ItemIndex]);
+
+  if  TWhereExpressionForm.Execute(DynWhere_ClientDataForm.tbl_Data.Fields,
+            fExpression[i].FldName, fExpression[i].LogOper,
+            fExpression[i].Oper, fExpression[i].Value) then
+    RebuildCondList();
+end;
+
+procedure TDynWhere_ClientForm.aCondNewExecute(Sender: TObject);
+var
+  FldName: string;
+  LogOper, Oper: TDABinaryOperator;
+  Value: variant;
+  i: integer;
+begin
+  if  TWhereExpressionForm.Execute(DynWhere_ClientDataForm.tbl_Data.Fields,
+            FldName, LogOper, Oper, Value) then
+  begin
+    SetLength(fExpression, Length(fExpression) + 1);
+    i := High(fExpression);
+    fExpression[i].FldName := FldName;
+    fExpression[i].LogOper := LogOper;
+    fExpression[i].Oper := Oper;
+    fExpression[i].Value := Value;
+    RebuildCondList();
+    lbOper.ItemIndex := lbOper.Items.Count - 1;
+    CheckEditButtons();
+  end;
+end;
+
+procedure TDynWhere_ClientForm.aCondDeleteExecute(Sender: TObject);
+var
+  i, ii: integer;
+begin
+  ii := lbOper.ItemIndex;
+
+  if  ii >= 0  then
+  begin
+    ii := integer(lbOper.Items.Objects[ii]);
+
+    for i := ii + 1 to High(fExpression) do
+      fExpression[i - 1] := fExpression[i];
+
+    SetLength(fExpression, Length(fExpression) - 1);
+    RebuildCondList();
+  end;
+end;
+
+procedure TDynWhere_ClientForm.aCondUpExecute(Sender: TObject);
+var
+  i: integer;
+  Oper: TFldOperator;
+begin
+  i := integer(lbOper.Items.Objects[lbOper.ItemIndex]);
+  Oper := fExpression[i];
+  fExpression[i] := fExpression[i - 1];
+  fExpression[i - 1] := Oper;
+  lbOper.ItemIndex := i - 1;
+  RebuildCondList();
+end;
+
+procedure TDynWhere_ClientForm.aCondDownExecute(Sender: TObject);
+var
+  i: integer;
+  Oper: TFldOperator;
+begin
+  i := integer(lbOper.Items.Objects[lbOper.ItemIndex]);
+  Oper := fExpression[i];
+  fExpression[i] := fExpression[i + 1];
+  fExpression[i + 1] := Oper;
+  lbOper.ItemIndex := i + 1;
+  RebuildCondList();
+end;
+
+procedure TDynWhere_ClientForm.CheckEditButtons();
+var
+  ii: integer;
+begin
+  ii := lbOper.ItemIndex;
+  aCondUp.Enabled := (ii > 0);
+  aCondDown.Enabled := (ii >= 0) and (ii < (lbOper.Items.Count - 1));
+  aCondEdit.Enabled := (ii >= 0);
+  aCondDelete.Enabled := (ii >= 0);
+  btnXML.Enabled := (lbOper.Items.Count > 0);
+end;
+
+procedure TDynWhere_ClientForm.RebuildCondList();
+  function  Val2Str(const FldName: string; const Val: variant; IsList: Boolean): string;
+  var
+    DT: TDADataType;
+    Lst: TStrings;
+    i: integer;
+  begin
+    if  IsList  then
+    begin
+      Result := '';
+      Lst := TStringList.Create();
+
+      try
+        Lst.CommaText := string(Val);
+        for i := 0 to Lst.Count - 1 do
+          if  Result = '' then
+            Result := Val2Str(FldName, Lst[i], False)
+          else
+            Result := Result + ',' + Val2Str(FldName, Lst[i], False);
+      finally
+        Lst.Free();
+      end;
+    end
+    else
+    begin
+      DT := DynWhere_ClientDataForm.tbl_Data.FieldByName(FldName).DataType;
+
+      if  DT = datDateTime  then
+        if  VarType(Val) = varString then
+          Result := '''' + Val + ''''
+        else
+          Result := '''' + DateTimeToStr(Val) + ''''
+      else
+      if  DT in [datString, datWideString, datMemo, datWideMemo] then
+        Result := '''' + Val + ''''
+      else
+        Result := Val;
+    end;
+  end;
+const
+  c_Oper: array[TDABinaryOperator] of string =
+    ('AND', 'OR', 'XOR', '<', '<=', '>', '>=', '!=', '=', 'like', 'in', '+', '-', '*', '/','');
+var
+  i, ii: integer;
+  sOper, sValue: string;
+begin
+  fXML := c_Invalid_XML;
+  ii := lbOper.ItemIndex;
+  lbOper.Items.BeginUpdate;
+
+  try
+    lbOper.Items.Clear;
+
+    for i := Low(fExpression) to High(fExpression) do
+    begin
+      if  fExpression[i].Oper = dboIn then
+        sValue := Format('in (%s)', [Val2Str(fExpression[i].FldName, fExpression[i].Value, True)]) else
+      if  fExpression[i].Oper = dboNotIn then
+        sValue := Format('not in (%s)', [Val2Str(fExpression[i].FldName, fExpression[i].Value, True)]) else
+      if  VarIsNULL(fExpression[i].Value) then
+        if  fExpression[i].Oper = dboEqual  then
+          sValue := 'is NULL'
+        else
+          sValue := 'is not NULL'
+      else
+        sValue := c_Oper[fExpression[i].Oper] + ' ' +
+                  Val2Str(fExpression[i].FldName, fExpression[i].Value, False);
+
+      sOper := c_Oper[fExpression[i].LogOper];
+
+      if  lbOper.Items.Count = 0  then
+        sOper := '/* ' + sOper + ' */';
+
+      lbOper.Items.AddObject(Format('%s %s %s',
+          [sOper, fExpression[i].FldName, sValue]),
+          TObject(i));
+    end;
+  finally
+    lbOper.Items.EndUpdate;
+  end;
+
+  if  ii >= lbOper.Items.Count  then
+    ii := lbOper.Items.Count - 1;
+
+  lbOper.ItemIndex := ii;
+  CheckEditButtons();
+end;
+
+procedure TDynWhere_ClientForm.lbOperKeyDown(Sender: TObject;
+  var Key: Word; Shift: TShiftState);
+begin
+  if  Key = VK_INSERT then
+    aCondNew.Execute()
+  else if Key = VK_DELETE then
+    aCondDelete.Execute()
+  else if (Key = VK_F2) or (Key = VK_RETURN)  then
+    aCondEdit.Execute()
+  else if (Shift = [ssCtrl]) and (Key = VK_UP)  then
+    aCondUp.Execute()
+  else if (Shift = [ssCtrl]) and (Key = VK_DOWN)  then
+    aCondDown.Execute();
+end;
+
+procedure TDynWhere_ClientForm.btnDelphiClick(Sender: TObject);
+begin
+  GetXML();
+  TfrmMemo.Execute('Delphi Code', fDelphiCode, False);
+end;
+
+function  TDynWhere_ClientForm.GetXML(): string;
+var
+  i, j: integer;
+  L, R, Where, Expr: TDAWhereExpression;
+  Lst: TStrings;
+  aExpr: array of TDAWhereExpression;
+  DT: TDADataType;
+  NeedNot: Boolean;
+  LogOper: TDABinaryOperator;
+  WB: TDAWhereBuilder;
+  Log: TStrings;
+  S: string;
+
+  function  sMake_Const(const V: variant): string;
+  begin
+    if  VarIsNULL(V)  then
+      Result := 'NewNull()'
+    else
+    begin
+      if  DT = datDateTime  then
+        if  VarType(V) = varString then
+          Result := Format('StrToDateTime(''%s'')', [string(V)])
+        else
+          Result := Format('StrToDateTime(''%s'')', [DateToStr(V)])
+      else
+      if  DT in [datString, datWideString, datMemo, datWideMemo] then
+        Result := Format('''%s''', [string(V)])
+      else
+        Result := V;
+
+      Result := Format('NewConstant(%s, %s)',
+          [Result, GetEnumName(TypeInfo(TDADataType), integer(DT))]);
+    end;
+  end;
+
+begin
+  if  fXML = c_Invalid_XML  then
+  begin
+    WB := nil;
+    Where := nil;
+    Log := TStringList.Create;
+
+    try
+      Log.Add('procedure Make_DynamicWhere;');
+      Log.Add('var');
+      Log.Add('  L, R, Expr: TDAWhereExpression;');
+      Log.Add('begin');
+      Log.Add('  DADataTable.Close();');
+      Log.Add('');
+      Log.Add('  with DADataTable.DynamicWhere do');
+      Log.Add('  begin');
+      Log.Add('    Clear();');
+
+      for i := Low(fExpression) to High(fExpression) do
+      begin
+        if  WB = nil  then
+          WB := TDAWhereBuilder.Create();
+
+        NeedNot := False;
+        LogOper := fExpression[i].Oper;
+        DT := DynWhere_ClientDataForm.tbl_Data.FieldByName(fExpression[i].FldName).DataType;
+
+        if  LogOper = dboIn then
+        begin
+          Lst := TStringList.Create();
+
+          try
+            Lst.CommaText := fExpression[i].Value;
+            SetLength(aExpr, Lst.Count);
+            S := '';
+
+            for j := 0 to Lst.Count - 1 do
+            begin
+              if  DT = datDateTime  then
+                aExpr[j] := WB.NewConstant(StrToDateTime(Lst[j]), DT)
+              else
+                aExpr[j] := WB.NewConstant(Lst[j], DT);
+
+              if  S = ''  then
+                S := sMake_Const(Lst[j])
+              else
+                S := Format('%s, %s', [S, sMake_Const(Lst[j])]);
+            end;
+          finally
+            Lst.Free;
+          end;
+
+          R := WB.NewList(aExpr);
+          Log.Add(Format('    R := NewList([%s]);', [S]));
+        end
+        else
+        begin
+          if  VarIsNULL(fExpression[i].Value) then
+          begin
+            R := WB.NewNull();
+
+            if  LogOper = dboNotEqual then
+            begin
+              LogOper := dboEqual;
+              NeedNot := True;
+            end;
+          end
+          else
+            R := WB.NewConstant(fExpression[i].Value, DT);
+        end;
+
+        Log.Add(Format('    R := %s;', [sMake_Const(fExpression[i].Value)]));
+        L := WB.NewField('', fExpression[i].FldName);
+        Log.Add(Format('    L := NewField('''', ''%s'');', [fExpression[i].FldName]));
+        Expr := WB.NewBinaryExpression(L, R, LogOper);
+        Log.Add(Format('    Expr := NewBinaryExpression(L, R, %s);',
+                [GetEnumName(TypeInfo(TDABinaryOperator), integer(LogOper))]));
+
+        if  NeedNot then
+        begin
+          Expr := WB.NewUnaryExpression(Expr, duoNot);
+          Log.Add('    Expr := NewUnaryExpression(Expr, duoNot);');
+        end;
+
+        if  Assigned(Where) then
+        begin
+          Where := WB.NewBinaryExpression(Where, Expr, fExpression[i].LogOper);
+          Log.Add(Format('    Expression := NewBinaryExpression(Expression, Expr, %s);',
+                [GetEnumName(TypeInfo(TDABinaryOperator), integer(fExpression[i].LogOper))]));
+        end
+        else
+        begin
+          Where := Expr;
+          Log.Add('    Expression := Expr;');
+        end;
+      end;
+
+      if  Assigned(WB)  then
+      begin
+        WB.Expression := Where;
+        fXML := WB.XML;
+      end
+      else
+        fXML := '';
+
+      Log.Add('  end;');
+      Log.Add('');
+      Log.Add('  DADataTable.Open();');
+      Log.Add('end;');
+      fDelphiCode := Log.Text;
+    finally
+      WB.Free;
+      Log.Free;
+    end;
+  end;
+
+  Result := fXML;
+end;
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library.rodl
new file mode 100644
index 0000000..ddc076a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library.rodl	
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="DynWhere_Library" UID="{6FE385D0-259A-47F4-933C-9626A169FB88}" Version="3.0">
+<Services>
+<Service Name="DynWhere_Service" UID="{43F8DF44-EB6E-4A6F-9DF3-362F2C368FC4}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{55D412A7-8A48-4BD1-B557-BCA976C2AF80}">
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{C26B8041-0363-47C5-89CC-E46B95D79188}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="E:\_RO\Components\DataAbstract\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library_Intf.pas
new file mode 100644
index 0000000..28cc52f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library_Intf.pas	
@@ -0,0 +1,82 @@
+unit DynWhere_Library_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{6FE385D0-259A-47F4-933C-9626A169FB88}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDynWhere_Service_IID : TGUID = '{55D412A7-8A48-4BD1-B557-BCA976C2AF80}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IDynWhere_Service = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IDynWhere_Service }
+  IDynWhere_Service = interface(IDataAbstractService)
+    ['{55D412A7-8A48-4BD1-B557-BCA976C2AF80}']
+  end;
+
+  { CoDynWhere_Service }
+  CoDynWhere_Service = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDynWhere_Service;
+  end;
+
+  { TDynWhere_Service_Proxy }
+  TDynWhere_Service_Proxy = class(TDataAbstractService_Proxy, IDynWhere_Service)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoDynWhere_Service }
+
+class function CoDynWhere_Service.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDynWhere_Service;
+begin
+  result := TDynWhere_Service_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TDynWhere_Service_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DynWhere_Service';
+end;
+
+initialization
+  RegisterProxyClass(IDynWhere_Service_IID, TDynWhere_Service_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IDynWhere_Service_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library_Invk.pas
new file mode 100644
index 0000000..519605e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Library_Invk.pas	
@@ -0,0 +1,35 @@
+unit DynWhere_Library_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} DynWhere_Library_Intf;
+
+type
+  TDynWhere_Service_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.bdsproj
new file mode 100644
index 0000000..96490a9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.bdsproj	
@@ -0,0 +1,170 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{7509F06E-2AB5-48F2-94EB-628859CD618A}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DynWhere_Server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.dpr
new file mode 100644
index 0000000..782bc8b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.dpr	
@@ -0,0 +1,30 @@
+program DynWhere_Server;
+
+{#ROGEN:DynWhere_Library.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  DynWhere_ServerMain in 'DynWhere_ServerMain.pas' {ServerForm},
+  DynWhere_ServerData in 'DynWhere_ServerData.pas' {ServerDataModule: TDataModule},
+  DynWhere_Library_Intf in 'DynWhere_Library_Intf.pas',
+  DynWhere_Library_Invk in 'DynWhere_Library_Invk.pas',
+  DynWhere_Service_Impl in 'DynWhere_Service_Impl.pas' {DynWhere_Service: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('DynWhere', 'DynWhere') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.Title := 'Dynamic Where - Server';
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.dproj
new file mode 100644
index 0000000..65812c0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.dproj	
@@ -0,0 +1,225 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{d7530199-da63-4dbd-b1b3-7f797bcb5316}</ProjectGuid>
+    <MainSource>DynWhere_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DynWhere_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\bin\dacvcl105.bpl">Core Lab Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcldac105.bpl">Core Lab Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmydac105.bpl">Data Access Components for MySQL</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\mydacvcl105.bpl">MySQL Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclodac105.bpl">Oracle Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\odacvcl105.bpl">Oracle Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclsdac105.bpl">SQL Server Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\sdacvcl105.bpl">SQL Server Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Scripting_D11.bpl">RemObjects Data Abstract - Scripting Integration Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBXDriver_D11.bpl">RemObjects Data Abstract - dbExpress Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl">RemObjects Data Abstract - DBISAM Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl">RemObjects Data Abstract - ElevateDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_FIBDriver_D11.bpl">RemObjects Data Abstract - FIBPlus Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs IBDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs MyDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ODACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs ODAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap PostgresDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Rosetta_D11.bpl">RemObjects Data Abstract - 'Rosetta'</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclibdac105.bpl">Core Lab InterBase Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmysqlmon105.bpl">Data Access Components for MySQL - TMySQLMonitor</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">DynWhere_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DynWhere_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DynWhere_Library_Intf.pas" />
+    <DCCReference Include="DynWhere_Library_Invk.pas" />
+    <DCCReference Include="DynWhere_ServerData.pas">
+      <Form>ServerDataModule</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="DynWhere_ServerMain.pas">
+      <Form>ServerForm</Form>
+    </DCCReference>
+    <DCCReference Include="DynWhere_Service_Impl.pas">
+      <Form>DynWhere_Service</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.res
new file mode 100644
index 0000000..7c48bdb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerData.dfm
new file mode 100644
index 0000000..f46aae9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerData.dfm	
@@ -0,0 +1,63 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADO Connection to Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI;'
+        ConnectionType = 'MSSQL'
+        Default = True
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerData.pas
new file mode 100644
index 0000000..b987dda
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerData.pas	
@@ -0,0 +1,42 @@
+unit DynWhere_ServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver, uROIndyTCPServer;
+
+type
+  TServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    DataDictionary: TDADataDictionary;
+    SessionManager: TROInMemorySessionManager;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerMain.dfm
new file mode 100644
index 0000000..4d24bf1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerMain.dfm	
@@ -0,0 +1,21 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Dynamic Where Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerMain.pas
new file mode 100644
index 0000000..198c6ec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_ServerMain.pas	
@@ -0,0 +1,26 @@
+unit DynWhere_ServerMain;
+
+interface
+
+uses
+  Forms, Classes, Controls,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton
+  ;
+
+type
+  TServerForm = class(TForm)
+    DAPoweredByDataAbstractButton: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Service_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Service_Impl.dfm
new file mode 100644
index 0000000..756742d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Service_Impl.dfm	
@@ -0,0 +1,318 @@
+object DynWhere_Service: TDynWhere_Service
+  OldCreateOrder = True
+  SessionManager = ServerDataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Left = 400
+  Top = 232
+  Height = 300
+  Width = 300
+  object Schema: TDASchema
+    ConnectionManager = ServerDataModule.ConnectionManager
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO Connection to Northwind'
+            ConnectionType = 'MSSQL'
+            Default = True
+            TargetTable = 'Employees'
+            Name = 'ADO Connection to Northwind'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'Title'
+                TableField = 'Title'
+              end
+              item
+                DatasetField = 'TitleOfCourtesy'
+                TableField = 'TitleOfCourtesy'
+              end
+              item
+                DatasetField = 'BirthDate'
+                TableField = 'BirthDate'
+              end
+              item
+                DatasetField = 'HireDate'
+                TableField = 'HireDate'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'HomePhone'
+                TableField = 'HomePhone'
+              end
+              item
+                DatasetField = 'Extension'
+                TableField = 'Extension'
+              end
+              item
+                DatasetField = 'Photo'
+                TableField = 'Photo'
+              end
+              item
+                DatasetField = 'Notes'
+                TableField = 'Notes'
+              end
+              item
+                DatasetField = 'ReportsTo'
+                TableField = 'ReportsTo'
+              end
+              item
+                DatasetField = 'PhotoPath'
+                TableField = 'PhotoPath'
+              end>
+          end>
+        Name = 'Employees'
+        Fields = <
+          item
+            Name = 'EmployeeID'
+            DataType = datAutoInc
+            GeneratorName = 'Employees'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'LastName'
+            DataType = datWideString
+            Size = 20
+            Required = True
+          end
+          item
+            Name = 'FirstName'
+            DataType = datWideString
+            Size = 10
+            Required = True
+          end
+          item
+            Name = 'Title'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'TitleOfCourtesy'
+            DataType = datWideString
+            Size = 25
+          end
+          item
+            Name = 'BirthDate'
+            DataType = datDateTime
+          end
+          item
+            Name = 'HireDate'
+            DataType = datDateTime
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'HomePhone'
+            DataType = datWideString
+            Size = 24
+          end
+          item
+            Name = 'Extension'
+            DataType = datWideString
+            Size = 4
+          end
+          item
+            Name = 'Photo'
+            DataType = datBlob
+          end
+          item
+            Name = 'Notes'
+            DataType = datMemo
+          end
+          item
+            Name = 'ReportsTo'
+            DataType = datInteger
+          end
+          item
+            Name = 'PhotoPath'
+            DataType = datWideString
+            Size = 255
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO Connection to Northwind'
+            Default = True
+            TargetTable = 'Customers'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            Size = 40
+            Required = True
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            Size = 24
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 32
+    Top = 24
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 72
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Service_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Service_Impl.pas
new file mode 100644
index 0000000..51bad03
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/DynWhere_Service_Impl.pas	
@@ -0,0 +1,50 @@
+unit DynWhere_Service_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} DynWhere_Library_Intf, uDAClasses, uDADataStreamer,
+  uDABin2DataStreamer;
+
+type
+  { TDynWhere_Service }
+  TDynWhere_Service = class(TDataAbstractService, IDynWhere_Service)
+    DataStreamer: TDABin2DataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { IDynWhere_Service methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} DynWhere_Library_Invk, DynWhere_ServerData;
+
+procedure Create_DynWhere_Service(out anInstance : IUnknown);
+begin
+  anInstance := TDynWhere_Service.Create(nil);
+end;
+
+{ DynWhere_Service }
+initialization
+  TROClassFactory.Create('DynWhere_Service', Create_DynWhere_Service, TDynWhere_Service_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/RODLFILE.res
new file mode 100644
index 0000000..5b009d0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/WhereExpression.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/WhereExpression.dfm
new file mode 100644
index 0000000..581c77b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/WhereExpression.dfm	
@@ -0,0 +1,151 @@
+object WhereExpressionForm: TWhereExpressionForm
+  Left = 299
+  Top = 154
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = 'Single Expresion'
+  ClientHeight = 147
+  ClientWidth = 519
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 519
+    Height = 106
+    Align = alClient
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 72
+      Top = 16
+      Width = 53
+      Height = 13
+      Caption = 'Field Name'
+    end
+    object Label2: TLabel
+      Left = 216
+      Top = 16
+      Width = 46
+      Height = 13
+      Caption = 'Operation'
+    end
+    object lbValue: TLabel
+      Left = 304
+      Top = 16
+      Width = 27
+      Height = 13
+      Caption = 'Value'
+      Visible = False
+    end
+    object cmbFldName: TComboBox
+      Left = 72
+      Top = 32
+      Width = 137
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 0
+      OnClick = cmbFldNameClick
+      OnKeyPress = cmbFldNameKeyPress
+    end
+    object cmbOper: TComboBox
+      Left = 216
+      Top = 32
+      Width = 81
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 1
+      OnClick = cmbOperClick
+      OnKeyPress = cmbOperKeyPress
+    end
+    object edtValue: TEdit
+      Left = 304
+      Top = 32
+      Width = 209
+      Height = 21
+      TabOrder = 2
+      Visible = False
+      OnChange = edtValueChange
+    end
+    object dtValue: TDateTimePicker
+      Left = 304
+      Top = 32
+      Width = 97
+      Height = 21
+      Date = 39354.876083981480000000
+      Time = 39354.876083981480000000
+      TabOrder = 3
+      Visible = False
+      OnChange = edtValueChange
+    end
+    object emValue: TRichEdit
+      Left = 304
+      Top = 32
+      Width = 209
+      Height = 65
+      ScrollBars = ssBoth
+      TabOrder = 4
+      Visible = False
+      WordWrap = False
+      OnChange = edtValueChange
+    end
+    object cmbLogOper: TComboBox
+      Left = 8
+      Top = 32
+      Width = 57
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      ItemIndex = 0
+      TabOrder = 5
+      Text = 'AND'
+      OnClick = cmbLogOperClick
+      OnKeyPress = cmbLogOperKeyPress
+      Items.Strings = (
+        'AND'
+        'OR'
+        'XOR')
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 106
+    Width = 519
+    Height = 41
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    DesignSize = (
+      519
+      41)
+    object btnOK: TButton
+      Left = 330
+      Top = 0
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+      OnClick = btnOKClick
+    end
+    object btnCancel: TButton
+      Left = 426
+      Top = 0
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Cancel = True
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/WhereExpression.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/WhereExpression.pas
new file mode 100644
index 0000000..539a7e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/WhereExpression.pas	
@@ -0,0 +1,418 @@
+unit WhereExpression;
+
+interface
+
+uses
+  Forms, Controls, StdCtrls, Classes, ExtCtrls,
+  uDAInterfaces, ComCtrls
+  ;
+
+type
+  TWhereExpressionForm = class(TForm)
+    Panel1: TPanel;
+    Panel2: TPanel;
+    btnOK: TButton;
+    btnCancel: TButton;
+    Label1: TLabel;
+    cmbFldName: TComboBox;
+    Label2: TLabel;
+    cmbOper: TComboBox;
+    lbValue: TLabel;
+    edtValue: TEdit;
+    dtValue: TDateTimePicker;
+    emValue: TRichEdit;
+    cmbLogOper: TComboBox;
+    procedure cmbOperKeyPress(Sender: TObject; var Key: Char);
+    procedure cmbOperClick(Sender: TObject);
+    procedure cmbFldNameClick(Sender: TObject);
+    procedure cmbFldNameKeyPress(Sender: TObject; var Key: Char);
+    procedure edtValueChange(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    procedure cmbLogOperClick(Sender: TObject);
+    procedure cmbLogOperKeyPress(Sender: TObject; var Key: Char);
+  private
+    { Private declarations }
+    fFlds: TDAFieldCollection;
+    fDT: TDADataType;
+    procedure CheckOper();
+    procedure CheckButtons();
+    function  CheckExpresion(): Boolean;
+  public
+    { Public declarations }
+    function ExecuteEx(AFlds: TDAFieldCollection;
+              var FldName: string; var LogOper, Oper: TDABinaryOperator; var Value: variant): Boolean;
+    class function Execute(AFlds: TDAFieldCollection;
+              var FldName: string; var LogOper, Oper: TDABinaryOperator; var Value: variant): Boolean;
+  end;
+
+
+implementation
+
+uses
+  SysUtils, Variants, Dialogs
+  ;
+
+{$R *.dfm}
+
+const
+  c_is_NULL     = -2;
+  c_is_not_NULL = -3;
+
+var
+  Frm: TWhereExpressionForm = nil;
+
+class function TWhereExpressionForm.Execute(AFlds: TDAFieldCollection;
+            var FldName: string; var LogOper, Oper: TDABinaryOperator; var Value: variant): Boolean;
+begin
+  if  not Assigned(Frm) then
+    Frm := TWhereExpressionForm.Create(Application);
+
+  Result := Frm.ExecuteEx(AFlds, FldName, LogOper, Oper, Value);
+end;
+
+function TWhereExpressionForm.ExecuteEx(AFlds: TDAFieldCollection;
+            var FldName: string; var LogOper, Oper: TDABinaryOperator; var Value: variant): Boolean;
+var
+  i, ii: integer;
+begin
+  Result := False;
+  fFlds := AFlds;
+  ii := -1;
+  fDT := datUnknown;
+  lbValue.Visible := False;
+  emValue.Visible := False;
+  dtValue.Visible := False;
+  edtValue.Visible := False;
+
+  for i := 0 to fFlds.Count - 1 do
+  begin
+    cmbFldName.Items.AddObject(fFlds[i].Name, TObject(fFlds[i].DataType));
+
+    if  AnsiSameText(FldName, fFlds[i].Name)  then
+      ii := i;
+  end;
+
+  emValue.Lines.Clear();
+  edtValue.Clear();
+  cmbFldName.ItemIndex := ii;
+  CheckOper();
+
+  if  ii >= 0 then
+  begin
+    if  VarIsNULL(Value)  then
+      if  Oper = dboEqual then
+        ii := c_is_NULL
+      else
+        ii := c_is_not_NULL
+    else
+      ii := integer(Oper);
+
+    if  LogOper = dboAnd  then
+      cmbLogOper.ItemIndex := 0
+    else
+    if  LogOper = dboOr  then
+      cmbLogOper.ItemIndex := 1
+    else
+    if  LogOper = dboXor  then
+      cmbLogOper.ItemIndex := 2;
+
+    for i := 0 to cmbOper.Items.Count - 1  do
+      if  integer(cmbOper.Items.Objects[i]) = ii  then
+      begin
+        cmbOper.ItemIndex := i;
+        cmbOperClick(cmbOper);
+
+        if  emValue.Visible then
+          emValue.Lines.CommaText := Value
+        else
+        if  dtValue.Visible then
+          dtValue.Date := Value
+        else
+        if  edtValue.Visible then
+          edtValue.Text := Value;
+
+        break;
+      end;
+  end
+  else
+    cmbLogOper.ItemIndex := 0;
+
+  btnOK.Enabled := False;
+
+  if  ShowModal = mrOK  then
+  begin
+    FldName := cmbFldName.Items[cmbFldName.ItemIndex];
+    ii := integer(cmbOper.Items.Objects[cmbOper.ItemIndex]);
+
+    if  ii = c_is_NULL  then
+    begin
+      Oper := dboEqual;
+      Value := NULL;
+    end
+    else
+    if  ii = c_is_not_NULL  then
+    begin
+      Oper := dboNotEqual;
+      Value := NULL;
+    end
+    else
+    begin
+      if  emValue.Visible then
+      begin
+        for i := emValue.Lines.Count - 1 downto 0 do
+          if  Trim(emValue.Lines[i]) = ''  then
+            emValue.Lines.Delete(i);
+
+        if  emValue.Lines.Count > 0 then
+          Value := Trim(emValue.Lines.CommaText)
+        else
+        begin
+          Result := False;
+          exit;
+        end;
+      end
+      else
+      if  dtValue.Visible then
+        Value := VarFromDateTime(Trunc(dtValue.Date))
+      else
+      if  edtValue.Visible then
+        Value := Trim(edtValue.Text);
+
+      Oper := TDABinaryOperator(ii);
+    end;
+
+    if  cmbLogOper.ItemIndex = 0  then
+      LogOper := dboAnd
+    else
+    if  cmbLogOper.ItemIndex = 1  then
+      LogOper := dboOr
+    else
+    if  cmbLogOper.ItemIndex = 2 then
+      LogOper := dboXor;
+
+    Result := True;
+  end;
+end;
+
+procedure TWhereExpressionForm.cmbOperClick(Sender: TObject);
+begin
+  if  cmbOper.DroppedDown
+      or (cmbOper.ItemIndex < 0) then
+    exit;
+
+  if  integer(cmbOper.Items.Objects[cmbOper.ItemIndex]) < 0 then
+  begin
+    lbValue.Visible := False;
+    emValue.Visible := False;
+    dtValue.Visible := False;
+    edtValue.Visible := False;
+  end
+  else
+  begin
+    lbValue.Visible := True;
+
+    if  TDABinaryOperator(cmbOper.Items.Objects[cmbOper.ItemIndex]) = dboIn then
+    begin
+      emValue.Visible := True;
+      dtValue.Visible := False;
+      edtValue.Visible := False;
+    end
+    else
+    begin
+      emValue.Visible := False;
+
+      if  TDADataType(cmbFldName.Items.Objects[cmbFldName.ItemIndex]) = datDateTime  then
+      begin
+        dtValue.Visible := True;
+        edtValue.Visible := False;
+      end
+      else
+      begin
+        dtValue.Visible := False;
+        edtValue.Visible := True;
+      end;
+    end;
+  end;
+
+  CheckButtons();
+end;
+
+procedure TWhereExpressionForm.cmbOperKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if  Key = #13 then
+  begin
+    if  cmbOper.DroppedDown then
+      cmbOper.DroppedDown := False;
+
+    cmbOperClick(Sender);
+    Key := #0;
+  end;
+end;
+
+procedure TWhereExpressionForm.cmbFldNameClick(Sender: TObject);
+begin
+  if  cmbFldName.DroppedDown
+      or (cmbFldName.ItemIndex < 0) then
+    exit;
+
+  CheckOper();
+end;
+
+procedure TWhereExpressionForm.cmbFldNameKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if  Key = #13 then
+  begin
+    if  cmbFldName.DroppedDown then
+      cmbFldName.DroppedDown := False;
+
+    cmbFldNameClick(Sender);
+    Key := #0;
+  end;
+end;
+
+procedure TWhereExpressionForm.cmbLogOperClick(Sender: TObject);
+begin
+  if  cmbLogOper.DroppedDown
+      or (cmbLogOper.ItemIndex < 0) then
+    exit;
+
+  CheckButtons();
+end;
+
+procedure TWhereExpressionForm.cmbLogOperKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if  Key = #13 then
+  begin
+    if  cmbLogOper.DroppedDown then
+      cmbLogOper.DroppedDown := False;
+
+    cmbLogOperClick(Sender);
+    Key := #0;
+  end;
+end;
+
+procedure TWhereExpressionForm.CheckOper();
+  procedure Add_CmbOper(const Oper: array of TDABinaryOperator;
+                        const Txt: array of string);
+  var
+    i: integer;
+  begin
+    cmbOper.Items.Clear;
+
+    for i := Low(Oper) to High(Oper) do
+      cmbOper.Items.AddObject(Txt[i], TObject(integer(Oper[i])));
+
+    cmbOper.Items.AddObject('in', TObject(dboIn));
+    cmbOper.Items.AddObject('not in', TObject(dboNotIn));
+    cmbOper.Items.AddObject('is NULL', TObject(c_is_NULL));
+    cmbOper.Items.AddObject('is not NULL', TObject(c_is_not_NULL));
+    cmbOper.ItemIndex := 0;
+  end;
+
+var
+  DT: TDADataType;
+begin
+  cmbOper.Enabled := (cmbFldName.ItemIndex >= 0);
+
+  if  cmbOper.Enabled then
+  begin
+    DT := TDADataType(cmbFldName.Items.Objects[cmbFldName.ItemIndex]);
+
+    if  fDT <> DT then
+    begin
+      if  DT in [datString, datWideString, datMemo, datWideMemo] then
+        Add_CmbOper([dboLike, dboEqual, dboNotEqual], ['like', '=', '!='])
+      else
+        Add_CmbOper([dboEqual, dboNotEqual, dboGreater, dboGreaterOrEqual, dboLess, dboLessOrEqual],
+                    ['=', '!=', '>', '>=', '<', '<=']);
+      fDT := DT;
+    end;
+  end
+  else
+    cmbOper.Items.Clear;
+
+  cmbOperClick(cmbOper);
+  CheckButtons();
+end;
+
+procedure TWhereExpressionForm.CheckButtons();
+begin
+  btnOK.Enabled := (cmbFldName.ItemIndex >= 0)
+                   and (cmbOper.ItemIndex >= 0);
+
+  if  btnOK.Enabled   then
+    if  integer(cmbOper.Items.Objects[cmbOper.ItemIndex]) >= 0 then
+    begin
+      if  emValue.Visible then
+        btnOK.Enabled := (Trim(emValue.Text) <> '')
+      else
+      if  dtValue.Visible then
+        btnOK.Enabled := dtValue.Date > 0
+      else
+      if  edtValue.Visible then
+        btnOK.Enabled := (Trim(edtValue.Text) <> '')
+      else
+        btnOK.Enabled := False;
+    end;
+end;
+
+procedure TWhereExpressionForm.edtValueChange(Sender: TObject);
+begin
+  CheckButtons();
+end;
+
+procedure TWhereExpressionForm.btnOKClick(Sender: TObject);
+begin
+  if  CheckExpresion()  then
+    ModalResult := mrOK
+  else
+    ModalResult := mrNone;
+end;
+
+function  TWhereExpressionForm.CheckExpresion(): Boolean;
+  function  CheckData(const S: string): Boolean;
+  begin
+    Result := False;
+
+    try
+      if  S = ''  then
+      else
+      if  fDT in [datFloat, datCurrency, datDecimal, datSingleFloat]  then
+        StrToFloat(S)
+      else
+      if  fDT in [datAutoInc, datInteger, datLargeInt, datLargeAutoInc,
+                  datShortInt, datWord, datSmallInt, datCardinal, datLargeUInt] then
+        StrToInt(S)
+      else
+      if  fDT = datDateTime then
+        StrToDateTime(S);
+
+      Result := True;
+    except
+      MessageDlg(Format('"%s" is not valid field value', [S]), mtError, [mbOK], 0);
+    end;
+  end;
+
+var
+  i: integer;
+begin
+  Result := True;
+
+  if  emValue.Visible then
+  begin
+    for i := 0 to emValue.Lines.Count - 1 do
+      if  not CheckData(Trim(emValue.Lines[i])) then
+      begin
+        Result := False;
+        break;
+      end;
+  end
+  else
+  if  edtValue.Visible then
+    Result := CheckData(Trim(edtValue.Text));
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/memoForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/memoForm.dfm
new file mode 100644
index 0000000..07bcbf9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/memoForm.dfm	
@@ -0,0 +1,57 @@
+object frmMemo: TfrmMemo
+  Left = 385
+  Top = 215
+  AutoScroll = False
+  BorderIcons = [biSystemMenu]
+  ClientHeight = 442
+  ClientWidth = 632
+  Color = clBtnFace
+  Constraints.MinHeight = 480
+  Constraints.MinWidth = 640
+  KeyPreview = True
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnKeyDown = FormKeyDown
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 401
+    Width = 632
+    Height = 41
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      632
+      41)
+    object btnOK: TButton
+      Left = 544
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'OK'
+      Default = True
+      TabOrder = 0
+      OnClick = btnOKClick
+    end
+  end
+  object edtMemo: TRichEdit
+    Left = 0
+    Top = 0
+    Width = 632
+    Height = 401
+    Align = alClient
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Courier New'
+    Font.Style = []
+    ParentFont = False
+    ReadOnly = True
+    ScrollBars = ssBoth
+    TabOrder = 1
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/memoForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/memoForm.pas
new file mode 100644
index 0000000..8262a42
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Dynamic Where/memoForm.pas	
@@ -0,0 +1,61 @@
+unit memoForm;
+
+interface
+
+uses
+  Forms, StdCtrls, ComCtrls, Classes, Controls, ExtCtrls
+  ;
+
+type
+  TfrmMemo = class(TForm)
+    Panel1: TPanel;
+    edtMemo: TRichEdit;
+    btnOK: TButton;
+    procedure FormKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure btnOKClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    class procedure Execute(const ACaption: string; const Memos: string; WordWrap: Boolean);
+  end;
+
+implementation
+
+uses
+  Windows
+  ;
+
+{$R *.dfm}
+
+class procedure TfrmMemo.Execute(const ACaption: string; const Memos: string;
+        WordWrap: Boolean);
+var
+  Frm: TfrmMemo;
+begin
+  Frm := TfrmMemo.Create(Application);
+
+  try
+    Frm.Caption := ACaption;
+    Frm.edtMemo.WordWrap := WordWrap;
+    Frm.edtMemo.Lines.Text := Memos;
+    Frm.ShowModal();
+  finally
+    Frm.Release();
+  end;
+end;
+
+procedure TfrmMemo.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if  (Shift = []) and (Key = VK_ESCAPE)  then
+    Close();
+end;
+
+procedure TfrmMemo.btnOKClick(Sender: TObject);
+begin
+  Close();
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.bdsproj
new file mode 100644
index 0000000..b028244
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.bdsproj	
@@ -0,0 +1,170 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{CF307541-8C95-4F44-9AB4-A20F8B01E32F}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ExportedDataTablesClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.dpr
new file mode 100644
index 0000000..fd9e269
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.dpr	
@@ -0,0 +1,17 @@
+program ExportedDataTablesClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  ExportedDataTablesClientMain in 'ExportedDataTablesClientMain.pas' {ExportedDataTablesClientMainForm},
+  ExportedDataTablesClientData in 'ExportedDataTablesClientData.pas' {ExportedDataTablesClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TExportedDataTablesClientDataModule, ExportedDataTablesClientDataModule);
+  Application.CreateForm(TExportedDataTablesClientMainForm, ExportedDataTablesClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.dproj
new file mode 100644
index 0000000..a3ebe46
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.dproj	
@@ -0,0 +1,219 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{7f0aaa6f-1cc7-4281-bb0d-802a09720390}</ProjectGuid>
+    <MainSource>ExportedDataTablesClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ExportedDataTablesClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\bin\dacvcl105.bpl">Core Lab Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcldac105.bpl">Core Lab Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmydac105.bpl">Data Access Components for MySQL</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\mydacvcl105.bpl">MySQL Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclodac105.bpl">Oracle Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\odacvcl105.bpl">Oracle Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclsdac105.bpl">SQL Server Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\sdacvcl105.bpl">SQL Server Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Scripting_D11.bpl">RemObjects Data Abstract - Scripting Integration Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBXDriver_D11.bpl">RemObjects Data Abstract - dbExpress Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl">RemObjects Data Abstract - DBISAM Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl">RemObjects Data Abstract - ElevateDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_FIBDriver_D11.bpl">RemObjects Data Abstract - FIBPlus Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs IBDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs MyDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ODACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs ODAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap PostgresDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Rosetta_D11.bpl">RemObjects Data Abstract - 'Rosetta'</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclibdac105.bpl">Core Lab InterBase Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmysqlmon105.bpl">Data Access Components for MySQL - TMySQLMonitor</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">ExportedDataTablesClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ExportedDataTablesClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ExportedDataTablesClientData.pas">
+      <Form>ExportedDataTablesClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="ExportedDataTablesClientMain.pas">
+      <Form>ExportedDataTablesClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientData.dfm
new file mode 100644
index 0000000..5511710
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientData.dfm	
@@ -0,0 +1,78 @@
+object ExportedDataTablesClientDataModule: TExportedDataTablesClientDataModule
+  OldCreateOrder = True
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'ExportedDataTablesService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object tbl_Customers: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 128
+    Top = 120
+  end
+  object ds_Customers: TDADataSource
+    DataSet = tbl_Customers.Dataset
+    DataTable = tbl_Customers
+    Left = 136
+    Top = 128
+  end
+  object tbl_Region: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Region'
+    IndexDefs = <>
+    Left = 144
+    Top = 136
+  end
+  object ds_Region: TDADataSource
+    DataSet = tbl_Region.Dataset
+    DataTable = tbl_Region
+    Left = 152
+    Top = 144
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientData.pas
new file mode 100644
index 0000000..a719cf3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientData.pas	
@@ -0,0 +1,35 @@
+unit ExportedDataTablesClientData;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDAScriptingProvider, uDAMemDataTable, uDADataStreamer;
+
+type
+  TExportedDataTablesClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Customers: TDAMemDataTable;
+    ds_Customers: TDADataSource;
+    tbl_Region: TDAMemDataTable;
+    ds_Region: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ExportedDataTablesClientDataModule: TExportedDataTablesClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientMain.dfm
new file mode 100644
index 0000000..4b7c122
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientMain.dfm	
@@ -0,0 +1,77 @@
+object ExportedDataTablesClientMainForm: TExportedDataTablesClientMainForm
+  Left = 431
+  Top = 315
+  AutoScroll = False
+  Caption = 'Exported DataTables - Client'
+  ClientHeight = 287
+  ClientWidth = 494
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 163
+    Width = 494
+    Height = 3
+    Cursor = crVSplit
+    Align = alBottom
+  end
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 41
+    Width = 494
+    Height = 122
+    Align = alClient
+    DataSource = ExportedDataTablesClientDataModule.ds_Customers
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object DBGrid2: TDBGrid
+    Left = 0
+    Top = 166
+    Width = 494
+    Height = 121
+    Align = alBottom
+    DataSource = ExportedDataTablesClientDataModule.ds_Region
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 494
+    Height = 41
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+    object Button1: TButton
+      Left = 8
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 0
+      OnClick = Button1Click
+    end
+    object Button2: TButton
+      Left = 96
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = 'ApplyUpdate'
+      TabOrder = 1
+      OnClick = Button2Click
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientMain.pas
new file mode 100644
index 0000000..ed9b152
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesClientMain.pas	
@@ -0,0 +1,50 @@
+unit ExportedDataTablesClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ExtCtrls,
+  Grids, DBGrids;
+
+type
+  TExportedDataTablesClientMainForm = class(TForm)
+    DBGrid1: TDBGrid;
+    DBGrid2: TDBGrid;
+    Splitter1: TSplitter;
+    Panel1: TPanel;
+    Button1: TButton;
+    Button2: TButton;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ExportedDataTablesClientMainForm: TExportedDataTablesClientMainForm;
+
+implementation
+
+uses
+  ExportedDataTablesClientData, uDADataTable;
+  
+{$R *.dfm}
+
+procedure TExportedDataTablesClientMainForm.Button1Click(Sender: TObject);
+begin
+  with ExportedDataTablesClientDataModule.tbl_Customers do
+    Active:= not Active;
+  with ExportedDataTablesClientDataModule.tbl_Region do
+    Active:= not Active;
+end;
+
+procedure TExportedDataTablesClientMainForm.Button2Click(Sender: TObject);
+begin
+  with ExportedDataTablesClientDataModule do
+    RemoteDataAdapter.ApplyUpdates([tbl_Customers,tbl_Region]);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.Sample.html
new file mode 100644
index 0000000..cae2130
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.Sample.html	
@@ -0,0 +1,33 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+<br>
+<p class="h1">
+  <span>Exported DataTables Sample</span> 
+</p>
+
+<br>
+<h2>Purpose</h2>
+<p>
+  This example illustrates the functionality of <b>Exported Datatables</b>.
+  Usually <b>Exported Datatables</b> can be used for working with <b>Direct Access Components</b> which currently isn't supported by <b>DataAbstract</b> 
+  or for working with shared tables.
+  This sample shows how to receive and update data with <b>TDataset</b> and <b>TDADataTable</b>.
+  <b>Exported Datatables</b> don't need to declared in the <b>ServiceSchema</b>.
+  In this example, <b>TADOTable</b> and <b>TDAMemDataTable</b> are used as <b>Exported Datatables</b>.
+</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Launch the server (via the menu option: <strong>RemObjects | Launch Server Executable</strong>).</li>
+	<li>Ensure that ExportedDataTablesClient is the selected project and run it.</li>
+	<li>Check that the client buttons work as expected.</li>
+	</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.bdsgroup
new file mode 100644
index 0000000..8d2861e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0894CC24-DF31-4242-8EA0-B4E3D8CD171B}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="ExportedDataTablesServer.exe">ExportedDataTablesServer.bdsproj</Projects>
+      <Projects Name="ExportedDataTablesClient.exe">ExportedDataTablesClient.bdsproj</Projects>
+      <Projects Name="Targets">ExportedDataTablesServer.exe ExportedDataTablesClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.bpg
new file mode 100644
index 0000000..bc11f5a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ExportedDataTablesServer.exe ExportedDataTablesClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ExportedDataTablesServer.exe: ExportedDataTablesServer.dpr
+  $(DCC)
+
+ExportedDataTablesClient.exe: ExportedDataTablesClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.groupproj
new file mode 100644
index 0000000..b6ce3e5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesGroup.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{1b923e1d-5c1f-42e1-8cf0-86e40fcf6cc9}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="ExportedDataTablesClient.dproj" />
+    <Projects Include="ExportedDataTablesServer.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="ExportedDataTablesServer">
+    <MSBuild Projects="ExportedDataTablesServer.dproj" Targets="" />
+  </Target>
+  <Target Name="ExportedDataTablesServer:Clean">
+    <MSBuild Projects="ExportedDataTablesServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ExportedDataTablesServer:Make">
+    <MSBuild Projects="ExportedDataTablesServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ExportedDataTablesClient">
+    <MSBuild Projects="ExportedDataTablesClient.dproj" Targets="" />
+  </Target>
+  <Target Name="ExportedDataTablesClient:Clean">
+    <MSBuild Projects="ExportedDataTablesClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ExportedDataTablesClient:Make">
+    <MSBuild Projects="ExportedDataTablesClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="ExportedDataTablesServer;ExportedDataTablesClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="ExportedDataTablesServer:Clean;ExportedDataTablesClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="ExportedDataTablesServer:Make;ExportedDataTablesClient:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary.rodl
new file mode 100644
index 0000000..cc54180
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary.rodl	
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ExportedDataTablesLibrary" UID="{8B75A505-94E9-4210-B49C-129C6622B98E}" Version="3.0">
+<Services>
+<Service Name="ExportedDataTablesService" UID="{B9AAB631-2358-4ECD-BFB4-1A2AD06E121A}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{A76BB708-BF1F-4514-AC45-960F5E6199FA}">
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{9A0288B9-85D5-4F48-B48E-6E1F8D5C1A22}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary_Intf.pas
new file mode 100644
index 0000000..ea56cba
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary_Intf.pas	
@@ -0,0 +1,82 @@
+unit ExportedDataTablesLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{8B75A505-94E9-4210-B49C-129C6622B98E}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IExportedDataTablesService_IID : TGUID = '{A76BB708-BF1F-4514-AC45-960F5E6199FA}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IExportedDataTablesService = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IExportedDataTablesService }
+  IExportedDataTablesService = interface(IDataAbstractService)
+    ['{A76BB708-BF1F-4514-AC45-960F5E6199FA}']
+  end;
+
+  { CoExportedDataTablesService }
+  CoExportedDataTablesService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IExportedDataTablesService;
+  end;
+
+  { TExportedDataTablesService_Proxy }
+  TExportedDataTablesService_Proxy = class(TDataAbstractService_Proxy, IExportedDataTablesService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoExportedDataTablesService }
+
+class function CoExportedDataTablesService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IExportedDataTablesService;
+begin
+  result := TExportedDataTablesService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TExportedDataTablesService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ExportedDataTablesService';
+end;
+
+initialization
+  RegisterProxyClass(IExportedDataTablesService_IID, TExportedDataTablesService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IExportedDataTablesService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary_Invk.pas
new file mode 100644
index 0000000..1f911fc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesLibrary_Invk.pas	
@@ -0,0 +1,35 @@
+unit ExportedDataTablesLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} ExportedDataTablesLibrary_Intf;
+
+type
+  TExportedDataTablesService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.bdsproj
new file mode 100644
index 0000000..abe31f1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.bdsproj	
@@ -0,0 +1,170 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{63367AB2-EA71-45D4-93AA-CF67788AA9BF}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ExportedDataTablesServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.dpr
new file mode 100644
index 0000000..7a68dff
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.dpr	
@@ -0,0 +1,29 @@
+program ExportedDataTablesServer;
+
+{#ROGEN:ExportedDataTablesLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  ExportedDataTablesServerMain in 'ExportedDataTablesServerMain.pas' {ExportedDataTablesServerMainForm},
+  ExportedDataTablesServerData in 'ExportedDataTablesServerData.pas' {ExportedDataTablesServerDataModule: TDataModule},
+  ExportedDataTablesLibrary_Intf in 'ExportedDataTablesLibrary_Intf.pas',
+  ExportedDataTablesLibrary_Invk in 'ExportedDataTablesLibrary_Invk.pas',
+  ExportedDataTablesService_Impl in 'ExportedDataTablesService_Impl.pas' {ExportedDataTablesService: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('ExportedDataTables', 'ExportedDataTables') then begin
+    ROService.CreateForm(TExportedDataTablesServerDataModule, ExportedDataTablesServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TExportedDataTablesServerDataModule, ExportedDataTablesServerDataModule);
+  Application.CreateForm(TExportedDataTablesServerMainForm, ExportedDataTablesServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.dproj
new file mode 100644
index 0000000..a0bee76
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.dproj	
@@ -0,0 +1,225 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{aac31484-1919-4f53-b725-ac72b8534f54}</ProjectGuid>
+    <MainSource>ExportedDataTablesServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ExportedDataTablesServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\bin\dacvcl105.bpl">Core Lab Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcldac105.bpl">Core Lab Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmydac105.bpl">Data Access Components for MySQL</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\mydacvcl105.bpl">MySQL Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclodac105.bpl">Oracle Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\odacvcl105.bpl">Oracle Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclsdac105.bpl">SQL Server Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\sdacvcl105.bpl">SQL Server Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Scripting_D11.bpl">RemObjects Data Abstract - Scripting Integration Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBXDriver_D11.bpl">RemObjects Data Abstract - dbExpress Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl">RemObjects Data Abstract - DBISAM Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl">RemObjects Data Abstract - ElevateDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_FIBDriver_D11.bpl">RemObjects Data Abstract - FIBPlus Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs IBDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs MyDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ODACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs ODAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap PostgresDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Rosetta_D11.bpl">RemObjects Data Abstract - 'Rosetta'</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclibdac105.bpl">Core Lab InterBase Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmysqlmon105.bpl">Data Access Components for MySQL - TMySQLMonitor</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">ExportedDataTablesServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ExportedDataTablesServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ExportedDataTablesLibrary_Intf.pas" />
+    <DCCReference Include="ExportedDataTablesLibrary_Invk.pas" />
+    <DCCReference Include="ExportedDataTablesServerData.pas">
+      <Form>ExportedDataTablesServerDataModule</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="ExportedDataTablesServerMain.pas">
+      <Form>ExportedDataTablesServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="ExportedDataTablesService_Impl.pas">
+      <Form>ExportedDataTablesService</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.res
new file mode 100644
index 0000000..dc22e33
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerData.dfm
new file mode 100644
index 0000000..de789cb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerData.dfm	
@@ -0,0 +1,106 @@
+object ExportedDataTablesServerDataModule: TExportedDataTablesServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 411
+  Top = 233
+  Height = 251
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        ConnectionType = 'MSSQL'
+        Default = True
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+  object Schema: TDASchema
+    ConnectionManager = ConnectionManager
+    DataDictionary = DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            ConnectionType = 'MSSQL'
+            Default = True
+            TargetTable = 'Region'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'RegionID'
+                TableField = 'RegionID'
+              end
+              item
+                DatasetField = 'RegionDescription'
+                TableField = 'RegionDescription'
+              end>
+          end>
+        Name = 'Region'
+        Fields = <
+          item
+            Name = 'RegionID'
+            DataType = datInteger
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'RegionDescription'
+            DataType = datWideString
+            Size = 50
+            Required = True
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 256
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerData.pas
new file mode 100644
index 0000000..19b381b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerData.pas	
@@ -0,0 +1,44 @@
+unit ExportedDataTablesServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver, uROIndyTCPServer, uDADataStreamer,
+  uDABin2DataStreamer, DB, ADODB, uDAScriptingProvider, uDADataTable,
+  uDAMemDataTable;
+
+type
+  TExportedDataTablesServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    SessionManager: TROInMemorySessionManager;
+    Schema: TDASchema;
+    DataDictionary: TDADataDictionary;
+
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ExportedDataTablesServerDataModule: TExportedDataTablesServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TExportedDataTablesServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerMain.dfm
new file mode 100644
index 0000000..96edeac
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerMain.dfm	
@@ -0,0 +1,21 @@
+object ExportedDataTablesServerMainForm: TExportedDataTablesServerMainForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Exported DataTables - Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerMain.pas
new file mode 100644
index 0000000..3666032
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesServerMain.pas	
@@ -0,0 +1,25 @@
+unit ExportedDataTablesServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TExportedDataTablesServerMainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ExportedDataTablesServerMainForm: TExportedDataTablesServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesService_Impl.dfm
new file mode 100644
index 0000000..e5648b2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesService_Impl.dfm	
@@ -0,0 +1,50 @@
+object ExportedDataTablesService: TExportedDataTablesService
+  OldCreateOrder = True
+  SessionManager = ExportedDataTablesServerDataModule.SessionManager
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <
+    item
+      DataTable = MemDataTable
+      LogicalName = 'Region'
+    end
+    item
+      DataTable = ADOTable
+      LogicalName = 'Customers'
+    end>
+  Left = 432
+  Top = 189
+  Height = 164
+  Width = 244
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object MemDataTable: TDAMemDataTable
+    RemoteUpdatesOptions = [ruoOnPost]
+    Fields = <>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = ExportedDataTablesServerDataModule.Schema
+    LocalDataStreamer = DABin2DataStreamer1
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Region'
+    IndexDefs = <>
+    Left = 32
+    Top = 56
+  end
+  object ADOTable: TADOTable
+    ConnectionString = 
+      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
+      'fo=False;Initial Catalog=Northwind;Data Source=localhost'
+    CursorType = ctStatic
+    TableName = 'Customers'
+    Left = 136
+    Top = 56
+  end
+  object DABin2DataStreamer1: TDABin2DataStreamer
+    Left = 136
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesService_Impl.pas
new file mode 100644
index 0000000..412a5ea
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/ExportedDataTablesService_Impl.pas	
@@ -0,0 +1,53 @@
+unit ExportedDataTablesService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} ExportedDataTablesLibrary_Intf, uDADataStreamer,
+  uDABin2DataStreamer, uDAClasses, uDAScriptingProvider, uDADataTable,
+  uDAMemDataTable, DB, ADODB;
+
+type
+  { TExportedDataTablesService }
+  TExportedDataTablesService = class(TDataAbstractService, IExportedDataTablesService)
+    DataStreamer: TDABin2DataStreamer;
+    MemDataTable: TDAMemDataTable;
+    ADOTable: TADOTable;
+    DABin2DataStreamer1: TDABin2DataStreamer;
+  private
+  protected
+    { IExportedDataTablesService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} ExportedDataTablesLibrary_Invk,ExportedDataTablesServerData;
+
+procedure Create_ExportedDataTablesService(out anInstance : IUnknown);
+begin
+  anInstance := TExportedDataTablesService.Create(nil);
+end;
+
+{ ExportedDataTablesService }
+initialization
+  TROClassFactory.Create('ExportedDataTablesService', Create_ExportedDataTablesService, TExportedDataTablesService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/RODLFILE.res
new file mode 100644
index 0000000..84655a5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Exported DataTables/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.Sample.html
new file mode 100644
index 0000000..c101fc0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.Sample.html	
@@ -0,0 +1,61 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Fetch</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  This demo shows how to fetch paged orders and also master/detail via single
+  server call. See the
+  <a href="http://www.remobjects.com?da04">DA04</a>
+   
+   article for a discussion on Dynamic Method Binding using this
+    sample as its example.</p>  
+<h2>Getting Started</h2>
+<p>
+  When you compile and run both projects you will see the client present you
+  with two tabbed pages:
+  </p>
+
+  <ul>
+  <li>
+  <b>Paged Orders</b>: when the master dataset (&quot;Orders&quot;) is opened,
+  the first 40 records are fetched from the server (assuming that you haven't
+  modified the <b>Max Records Per Fetch</b> setting). Try clicking on the vertical
+  scrollbar.
+  Initially, you will be displaying the other records fetched when the dataset
+  was opened. Once you have reached record 40, another batch of records are then
+  fetched from the server and you can see when this happens because the scrollbar
+  thumb reduces size.<br />OrderDetail records are only fetched as required.
+  </li>
+  <li>
+  <b>Fetch All</b>: retrieves all orders within the range specified. All
+  associated OrderDetail records are retrieved also.
+  </li>
+  </ul>
+<h2>Examine the Code</h2>  
+<p>
+  The following methods are worth examining:
+</p>
+  <ul>
+  <li>
+  <b>GetOrdersAndDetails</b> in <b>FetchService_Impl</b>: called by the<b> Fetch
+  All</b> page and it shows how to retrieve master and detail records in a single
+  server call.
+  </li>
+  <li>
+  <b>tbl_PagedOrdersAfterScroll</b> in <b>FetchClientMain</b>: holds the paging logic.
+  </li>
+  </ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.bdsgroup
new file mode 100644
index 0000000..d2590a9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{715B3650-279A-41A1-897D-75EC7A71B1C5}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="FetchServer.exe">FetchServer.bdsproj</Projects>
+      <Projects Name="FetchClient.exe">FetchClient.bdsproj</Projects>
+      <Projects Name="Targets">FetchServer.exe FetchClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.bpg
new file mode 100644
index 0000000..2469b7d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = FetchServer.exe FetchClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+FetchServer.exe: FetchServer.dpr
+  $(DCC)
+
+FetchClient.exe: FetchClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.groupproj
new file mode 100644
index 0000000..deb928a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/Fetch.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{b6910b17-afe5-4bb5-af6f-cf820851de91}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="FetchClient.dproj" />
+    <Projects Include="FetchServer.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="FetchServer">
+    <MSBuild Projects="FetchServer.dproj" Targets="" />
+  </Target>
+  <Target Name="FetchServer:Clean">
+    <MSBuild Projects="FetchServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FetchServer:Make">
+    <MSBuild Projects="FetchServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FetchClient">
+    <MSBuild Projects="FetchClient.dproj" Targets="" />
+  </Target>
+  <Target Name="FetchClient:Clean">
+    <MSBuild Projects="FetchClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FetchClient:Make">
+    <MSBuild Projects="FetchClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="FetchServer;FetchClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="FetchServer:Clean;FetchClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="FetchServer:Make;FetchClient:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.bdsproj
new file mode 100644
index 0000000..87209ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{A3DFF050-4EE5-48AB-9169-B78CA5059729}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">FetchClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.dpr
new file mode 100644
index 0000000..f5f7e44
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.dpr	
@@ -0,0 +1,18 @@
+program FetchClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  FetchClientMain in 'FetchClientMain.pas' {FetchClientMainForm},
+  FetchClientData in 'FetchClientData.pas' {FetchClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Fetch Client';
+  Application.CreateForm(TFetchClientDataModule, FetchClientDataModule);
+  Application.CreateForm(TFetchClientMainForm, FetchClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.dproj
new file mode 100644
index 0000000..07c43b7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.dproj	
@@ -0,0 +1,45 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3ef0f4e0-3dde-4abb-b2e8-8b555c0f23dc}</ProjectGuid>
+    <MainSource>FetchClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>FetchClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FetchClient.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="FetchClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="FetchClientData.pas">
+      <Form>FetchClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="FetchClientMain.pas">
+      <Form>FetchClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientData.dfm
new file mode 100644
index 0000000..836db84
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientData.dfm	
@@ -0,0 +1,30 @@
+object FetchClientDataModule: TFetchClientDataModule
+  OldCreateOrder = True
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'FetchService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    BufferSize = 262144
+    SendReducedDelta = False
+    Left = 40
+    Top = 140
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientData.pas
new file mode 100644
index 0000000..c80a7c8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientData.pas	
@@ -0,0 +1,32 @@
+unit FetchClientData;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDABin2DataStreamer, uDADataStreamer;
+
+type
+  TFetchClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+
+  end;
+
+var
+  FetchClientDataModule: TFetchClientDataModule;
+
+implementation
+
+uses
+  FetchClientMain;
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientMain.dfm
new file mode 100644
index 0000000..a3ef419
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientMain.dfm	
@@ -0,0 +1,922 @@
+object FetchClientMainForm: TFetchClientMainForm
+  Left = 353
+  Top = 279
+  Caption = 'Fetch Client'
+  ClientHeight = 406
+  ClientWidth = 447
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poDesigned
+  PixelsPerInch = 96
+  TextHeight = 13
+  object PageControl1: TPageControl
+    Left = 0
+    Top = 0
+    Width = 447
+    Height = 406
+    ActivePage = TabSheet2
+    Align = alClient
+    TabOrder = 0
+    object TabSheet1: TTabSheet
+      BorderWidth = 5
+      Caption = 'Paged Orders'
+      object Label1: TLabel
+        Left = 0
+        Top = 9
+        Width = 115
+        Height = 13
+        Caption = 'Max Records Per Fetch:'
+      end
+      object lbFetchedRecs: TLabel
+        Left = 222
+        Top = 9
+        Width = 117
+        Height = 13
+        Caption = 'No records fetched yet...'
+      end
+      object gPagedOrders: TDBGrid
+        Left = 2
+        Top = 51
+        Width = 429
+        Height = 207
+        Align = alCustom
+        Anchors = [akLeft, akTop, akRight, akBottom]
+        DataSource = ds_PagedOrders
+        TabOrder = 0
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+      object seMaxRecords: TSpinEdit
+        Left = 126
+        Top = 4
+        Width = 81
+        Height = 22
+        MaxValue = 0
+        MinValue = 0
+        TabOrder = 1
+        Value = 40
+      end
+      object bFetchPagedOrders: TButton
+        Left = 354
+        Top = 3
+        Width = 75
+        Height = 25
+        Anchors = [akTop, akRight]
+        Caption = 'Open/Close'
+        TabOrder = 2
+        OnClick = bFetchPagedOrdersClick
+      end
+      object gPagedOrderDetails: TDBGrid
+        Left = 0
+        Top = 264
+        Width = 429
+        Height = 104
+        Align = alBottom
+        DataSource = ds_PagedOrderDetails
+        TabOrder = 3
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+      object Panel1: TPanel
+        Left = 0
+        Top = 259
+        Width = 429
+        Height = 5
+        Align = alBottom
+        BevelOuter = bvNone
+        TabOrder = 4
+      end
+    end
+    object TabSheet2: TTabSheet
+      BorderWidth = 5
+      Caption = 'Fetch All'
+      ImageIndex = 1
+      object Label2: TLabel
+        Left = 0
+        Top = 3
+        Width = 65
+        Height = 13
+        Caption = 'Start OrderID:'
+      end
+      object Label3: TLabel
+        Left = 0
+        Top = 27
+        Width = 62
+        Height = 13
+        Caption = 'End OrderID:'
+      end
+      object gOrders: TDBGrid
+        Left = 2
+        Top = 51
+        Width = 427
+        Height = 207
+        Align = alCustom
+        Anchors = [akLeft, akTop, akRight, akBottom]
+        DataSource = ds_Orders
+        TabOrder = 0
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+      object gOrderDetails: TDBGrid
+        Left = 0
+        Top = 264
+        Width = 429
+        Height = 104
+        Align = alBottom
+        DataSource = ds_OrderDetails
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+      object bFetchAll: TButton
+        Left = 354
+        Top = 3
+        Width = 75
+        Height = 25
+        Anchors = [akTop, akRight]
+        Caption = 'Open/Close'
+        TabOrder = 2
+        OnClick = bFetchAllClick
+      end
+      object seStart: TSpinEdit
+        Left = 72
+        Top = 0
+        Width = 76
+        Height = 22
+        MaxValue = 0
+        MinValue = 0
+        TabOrder = 3
+        Value = 10248
+      end
+      object seEnd: TSpinEdit
+        Left = 72
+        Top = 24
+        Width = 76
+        Height = 22
+        MaxValue = 0
+        MinValue = 0
+        TabOrder = 4
+        Value = 10300
+      end
+      object Panel2: TPanel
+        Left = 0
+        Top = 259
+        Width = 429
+        Height = 5
+        Align = alBottom
+        BevelOuter = bvNone
+        TabOrder = 5
+      end
+    end
+  end
+  object daPaged: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = FetchClientDataModule.RemoteService
+    GetDataCall.RemoteService = FetchClientDataModule.RemoteService
+    UpdateDataCall.RemoteService = FetchClientDataModule.RemoteService
+    GetScriptsCall.RemoteService = FetchClientDataModule.RemoteService
+    RemoteService = FetchClientDataModule.RemoteService
+    DataStreamer = FetchClientDataModule.DataStreamer
+    FailureBehavior = fbBoth
+    Left = 117
+    Top = 143
+  end
+  object tbl_OrderDetails: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ProductID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'UnitPrice'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Quantity'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Discount'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'StartingOrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Value = ''
+        ParamType = daptInput
+      end
+      item
+        Name = 'EndingOrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Value = ''
+        ParamType = daptInput
+      end>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    RemoteDataAdapter = daFetchAll
+    ReadOnly = False
+    MasterSource = ds_Orders
+    MasterFields = 'OrderID'
+    DetailFields = 'OrderID'
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'OrderDetails'
+    Left = 269
+    Top = 157
+  end
+  object ds_OrderDetails: TDADataSource
+    DataSet = tbl_OrderDetails.Dataset
+    DataTable = tbl_OrderDetails
+    Left = 297
+    Top = 157
+  end
+  object tbl_Orders: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datAutoInc
+        BlobType = dabtUnknown
+        GeneratorName = 'Orders'
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'EmployeeID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RequiredDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShippedDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipVia'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Freight'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipAddress'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCity'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipRegion'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipPostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCountry'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'StartingOrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Value = ''
+        ParamType = daptInput
+      end
+      item
+        Name = 'EndingOrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Value = ''
+        ParamType = daptInput
+      end>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = daFetchAll
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates, moAllInOneFetch]
+    LogicalName = 'Orders'
+    Left = 269
+    Top = 129
+  end
+  object ds_Orders: TDADataSource
+    DataSet = tbl_Orders.Dataset
+    DataTable = tbl_Orders
+    Left = 297
+    Top = 129
+  end
+  object tbl_PagedOrderDetails: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ProductID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'UnitPrice'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Quantity'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Discount'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = daPaged
+    ReadOnly = False
+    MasterSource = ds_PagedOrders
+    MasterFields = 'OrderID'
+    DetailFields = 'OrderID'
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'PagedOrderDetails'
+    Left = 61
+    Top = 157
+  end
+  object ds_PagedOrderDetails: TDADataSource
+    DataSet = tbl_PagedOrderDetails.Dataset
+    DataTable = tbl_PagedOrderDetails
+    Left = 89
+    Top = 157
+  end
+  object tbl_PagedOrders: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datAutoInc
+        BlobType = dabtUnknown
+        GeneratorName = 'Orders'
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Required = True
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'EmployeeID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RequiredDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShippedDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipVia'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Freight'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipAddress'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCity'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipRegion'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipPostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCountry'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'StartingOrderID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Value = ''
+        ParamType = daptInput
+      end>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = daPaged
+    AfterScroll = tbl_PagedOrdersAfterScroll
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'PagedOrders'
+    Left = 61
+    Top = 129
+  end
+  object ds_PagedOrders: TDADataSource
+    DataSet = tbl_PagedOrders.Dataset
+    DataTable = tbl_PagedOrders
+    Left = 89
+    Top = 129
+  end
+  object daFetchAll: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = FetchClientDataModule.RemoteService
+    GetDataCall.RemoteService = FetchClientDataModule.RemoteService
+    GetDataCall.MethodName = 'GetOrdersAndDetails'
+    GetDataCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end
+      item
+        Name = 'StartOrderID'
+        DataType = rtInteger
+        Flag = fIn
+        Value = Null
+      end
+      item
+        Name = 'EndOrderID'
+        DataType = rtInteger
+        Flag = fIn
+        Value = Null
+      end>
+    GetDataCall.Default = False
+    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
+    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
+    GetDataCall.IncomingDataParameter = 'Result'
+    UpdateDataCall.RemoteService = FetchClientDataModule.RemoteService
+    GetScriptsCall.RemoteService = FetchClientDataModule.RemoteService
+    RemoteService = FetchClientDataModule.RemoteService
+    DataStreamer = FetchClientDataModule.DataStreamer
+    FailureBehavior = fbBoth
+    Left = 325
+    Top = 143
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientMain.pas
new file mode 100644
index 0000000..1be4b4e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchClientMain.pas	
@@ -0,0 +1,121 @@
+unit FetchClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ExtCtrls, Spin,
+  Grids, DBGrids, ComCtrls, DB, uDAInterfaces, uDADataTable,
+  uDAScriptingProvider, uDAMemDataTable, uDARemoteDataAdapter;
+
+type
+  TFetchClientMainForm = class(TForm)
+    PageControl1: TPageControl;
+    TabSheet1: TTabSheet;
+    Label1: TLabel;
+    lbFetchedRecs: TLabel;
+    gPagedOrders: TDBGrid;
+    seMaxRecords: TSpinEdit;
+    bFetchPagedOrders: TButton;
+    gPagedOrderDetails: TDBGrid;
+    Panel1: TPanel;
+    TabSheet2: TTabSheet;
+    Label2: TLabel;
+    Label3: TLabel;
+    gOrders: TDBGrid;
+    gOrderDetails: TDBGrid;
+    bFetchAll: TButton;
+    seStart: TSpinEdit;
+    seEnd: TSpinEdit;
+    Panel2: TPanel;
+    daPaged: TDARemoteDataAdapter;
+    tbl_OrderDetails: TDAMemDataTable;
+    ds_OrderDetails: TDADataSource;
+    tbl_Orders: TDAMemDataTable;
+    ds_Orders: TDADataSource;
+    tbl_PagedOrderDetails: TDAMemDataTable;
+    ds_PagedOrderDetails: TDADataSource;
+    tbl_PagedOrders: TDAMemDataTable;
+    ds_PagedOrders: TDADataSource;
+    daFetchAll: TDARemoteDataAdapter;
+    procedure bFetchPagedOrdersClick(Sender: TObject);
+    procedure bFetchAllClick(Sender: TObject);
+    procedure tbl_PagedOrdersAfterScroll(DataTable: TDADataTable);
+  private
+    { Private declarations }
+    fFetchRequired: boolean;
+  public
+    { Public declarations }
+  end;
+
+var
+  FetchClientMainForm: TFetchClientMainForm;
+
+implementation
+
+uses
+  FetchClientData;
+
+{$R *.dfm}
+
+procedure TFetchClientMainForm.bFetchAllClick(Sender: TObject);
+begin
+  { Sets the filtering options for the server method so we only retrieve the selected
+    records. It's good advice to always filter data like this to minimize network trafic.
+
+    The server method is defined as:
+
+      function GetOrdersAndDetails(const StartOrderID: Integer;
+                                   const EndOrderID: Integer): Binary;
+
+    The Binary returned by the server contains a stream with all the orders and all the details }
+    
+  daFetchAll.GetDataCall.ParamByName('StartOrderID').AsInteger := seStart.Value;
+  daFetchAll.GetDataCall.ParamByName('EndOrderID').AsInteger := seEnd.Value;
+  tbl_Orders.Active :=not tbl_Orders.Active;
+end;
+
+procedure TFetchClientMainForm.bFetchPagedOrdersClick(Sender: TObject);
+begin
+  lbFetchedRecs.Caption := 'No records fetched yet...';
+  if not tbl_PagedOrders.Active then begin
+    tbl_PagedOrders.ParamByName('StartingOrderID').AsInteger := 0;
+    tbl_PagedOrders.MaxRecords := seMaxRecords.Value;
+    lbFetchedRecs.Caption := 'No records fetched yet...';
+    // fFetchedRequired is a flag that we set to FALSE when the last page is fetched
+    fFetchRequired := True;
+  end;
+  tbl_PagedOrders.Active := not tbl_PagedOrders.Active
+end;
+
+procedure TFetchClientMainForm.tbl_PagedOrdersAfterScroll(
+  DataTable: TDADataTable);
+var
+  lrecordcount: integer;
+begin
+  { This is the core of the paging process. When we reach the last record in the current
+    set we want to issue a new request to the server to get the next packet. If the requested
+    records is different than the returned amount it means there's nothing more to fetch and
+    we're done with the paging.
+
+    By doing paging this way we have full control on what happens server side and what SQL statements
+    are generated. This is only one of the many possible paging implementations you could do using
+    Data Abstract. The control is in your hands! }
+
+  if fFetchRequired and DataTable.EOF and not DataTable.Fetching then
+    with DataTable do begin
+      ParamByName('StartingOrderID').AsInteger := FieldByName('OrderID').AsInteger;
+      MaxRecords := seMaxRecords.Value;
+      lrecordcount := DataTable.RecordCount;
+      LoadFromRemoteSource(True);
+      lrecordcount := RecordCount-lrecordcount;
+
+      lbFetchedRecs.Caption := IntTostr(lrecordcount) + ' records retrieved';
+      fFetchRequired := lrecordcount = MaxRecords;
+      if not fFetchRequired then
+        MessageDlg(Format('Done fetching!!! Expected %d rows but only got %d ',
+                          [MaxRecords, lrecordcount]), mtInformation, [mbOK], 0);
+    end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary.RODL
new file mode 100644
index 0000000..8f79f9a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary.RODL	
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="FetchLibrary" UID="{02C22018-F060-4159-A052-DDFAECD3EA97}" Version="3.0">
+<Services>
+<Service Name="FetchService" UID="{E4FD4BC2-C5E5-4131-82DE-32F430A2FD16}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{E70F3537-38F1-4C4E-AB64-6935C9C9CF69}">
+<Documentation><![CDATA[
+Service FetchService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation><Operations>
+<Operation Name="GetOrdersAndDetails" UID="{D479FC8B-0BEA-4BD1-B2B3-D8F959D7331D}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="StartOrderID" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="EndOrderID" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract4" UID="{4AD9B94E-C00F-47D7-A8A8-AC7FA0FD6FBD}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary_Intf.pas
new file mode 100644
index 0000000..874a513
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary_Intf.pas	
@@ -0,0 +1,104 @@
+unit FetchLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{02C22018-F060-4159-A052-DDFAECD3EA97}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IFetchService_IID : TGUID = '{E70F3537-38F1-4C4E-AB64-6935C9C9CF69}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IFetchService = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IFetchService }
+  IFetchService = interface(IDataAbstractService)
+    ['{E70F3537-38F1-4C4E-AB64-6935C9C9CF69}']
+    function GetOrdersAndDetails(const StartOrderID: Integer; const EndOrderID: Integer): Binary;
+  end;
+
+  { CoFetchService }
+  CoFetchService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFetchService;
+  end;
+
+  { TFetchService_Proxy }
+  TFetchService_Proxy = class(TDataAbstractService_Proxy, IFetchService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetOrdersAndDetails(const StartOrderID: Integer; const EndOrderID: Integer): Binary;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoFetchService }
+
+class function CoFetchService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFetchService;
+begin
+  result := TFetchService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TFetchService_Proxy }
+
+function TFetchService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'FetchService';
+end;
+
+function TFetchService_Proxy.GetOrdersAndDetails(const StartOrderID: Integer; const EndOrderID: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FetchLibrary', __InterfaceName, 'GetOrdersAndDetails');
+    __Message.Write('StartOrderID', TypeInfo(Integer), StartOrderID, []);
+    __Message.Write('EndOrderID', TypeInfo(Integer), EndOrderID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IFetchService_IID, TFetchService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IFetchService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary_Invk.pas
new file mode 100644
index 0000000..00626d4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchLibrary_Invk.pas	
@@ -0,0 +1,69 @@
+unit FetchLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} FetchLibrary_Intf;
+
+type
+  {$M+}
+  TFetchService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+    procedure Invoke_GetOrdersAndDetails(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+  {$M-}
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TFetchService_Invoker }
+
+procedure TFetchService_Invoker.Invoke_GetOrdersAndDetails(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetOrdersAndDetails(const StartOrderID: Integer; const EndOrderID: Integer): Binary; }
+var
+  StartOrderID: Integer;
+  EndOrderID: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('StartOrderID', TypeInfo(Integer), StartOrderID, []);
+    __Message.Read('EndOrderID', TypeInfo(Integer), EndOrderID, []);
+
+    lResult := (__Instance as IFetchService).GetOrdersAndDetails(StartOrderID, EndOrderID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FetchLibrary', 'FetchService', 'GetOrdersAndDetailsResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.bdsproj
new file mode 100644
index 0000000..b800b9e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{8B031825-1B54-482D-9291-2BDCE6D94E00}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">FetchServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.dpr
new file mode 100644
index 0000000..4d702b2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.dpr	
@@ -0,0 +1,24 @@
+program FetchServer;
+
+{#ROGEN:FetchLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  FetchServerMain in 'FetchServerMain.pas' {FetchServerMainForm},
+  FetchServerData in 'FetchServerData.pas' {FetchServerDataModule: TDataModule},
+  FetchLibrary_Intf in 'FetchLibrary_Intf.pas',
+  FetchLibrary_Invk in 'FetchLibrary_Invk.pas',
+  FetchService_Impl in 'FetchService_Impl.pas' {FetchService: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Fetch Server';
+  Application.CreateForm(TFetchServerDataModule, FetchServerDataModule);
+  Application.CreateForm(TFetchServerMainForm, FetchServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.dproj
new file mode 100644
index 0000000..d362833
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.dproj	
@@ -0,0 +1,50 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c960438c-973c-4609-85d8-f600fec539dc}</ProjectGuid>
+    <MainSource>FetchServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>FetchServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FetchServer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="FetchServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="FetchLibrary_Intf.pas" />
+    <DCCReference Include="FetchLibrary_Invk.pas" />
+    <DCCReference Include="FetchServerData.pas">
+      <Form>FetchServerDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="FetchServerMain.pas">
+      <Form>FetchServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="FetchService_Impl.pas">
+      <Form>FetchService</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerData.dfm
new file mode 100644
index 0000000..06b3c89
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerData.dfm	
@@ -0,0 +1,58 @@
+object FetchServerDataModule: TFetchServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerData.pas
new file mode 100644
index 0000000..d7ad9cb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerData.pas	
@@ -0,0 +1,41 @@
+unit FetchServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAADODriver, uROIndyTCPServer;
+
+type
+  TFetchServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    SessionManager: TROInMemorySessionManager;
+    DataDictionary: TDADataDictionary;
+
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FetchServerDataModule: TFetchServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TFetchServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerMain.dfm
new file mode 100644
index 0000000..9839ce4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerMain.dfm	
@@ -0,0 +1,21 @@
+object FetchServerMainForm: TFetchServerMainForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Fetch Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerMain.pas
new file mode 100644
index 0000000..6d39b86
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchServerMain.pas	
@@ -0,0 +1,25 @@
+unit FetchServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TFetchServerMainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FetchServerMainForm: TFetchServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchService_Impl.dfm
new file mode 100644
index 0000000..2d46bb3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchService_Impl.dfm	
@@ -0,0 +1,857 @@
+object FetchService: TFetchService
+  OldCreateOrder = True
+  SessionManager = FetchServerDataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Height = 300
+  Width = 300
+  object Schema: TDASchema
+    ConnectionManager = FetchServerDataModule.ConnectionManager
+    DataDictionary = FetchServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Order Details'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'ProductID'
+                TableField = 'ProductID'
+              end
+              item
+                DatasetField = 'UnitPrice'
+                TableField = 'UnitPrice'
+              end
+              item
+                DatasetField = 'Quantity'
+                TableField = 'Quantity'
+              end
+              item
+                DatasetField = 'Discount'
+                TableField = 'Discount'
+              end>
+          end>
+        Name = 'PagedOrderDetails'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ProductID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'UnitPrice'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Quantity'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Discount'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <
+          item
+            Name = 'StartingOrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Value = ''
+            ParamType = daptInput
+          end
+          item
+            Name = 'EndingOrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Order Details'
+            SQL = 
+              'SELECT '#10'    OrderID, ProductID, UnitPrice, Quantity, Discount'#10'FR' +
+              'OM'#10'    [Order Details]'#10'WHERE'#10'     OrderID >= :StartingOrderID an' +
+              'd'#10'     OrderID <= :EndingOrderID and'#10'     {Where}'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'ProductID'
+                TableField = 'ProductID'
+              end
+              item
+                DatasetField = 'UnitPrice'
+                TableField = 'UnitPrice'
+              end
+              item
+                DatasetField = 'Quantity'
+                TableField = 'Quantity'
+              end
+              item
+                DatasetField = 'Discount'
+                TableField = 'Discount'
+              end>
+          end>
+        Name = 'OrderDetails'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ProductID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'UnitPrice'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Quantity'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Discount'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <
+          item
+            Name = 'StartingOrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Value = ''
+            ParamType = daptInput
+          end
+          item
+            Name = 'EndingOrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'FROM'#10'   ' +
+              ' Orders'#10'WHERE'#10'     OrderID >= :StartingOrderID and'#10'     OrderID ' +
+              '<= :EndingOrderID and'#10'     {Where}'#10'  '#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            GeneratorName = 'Orders'
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <
+          item
+            Name = 'StartingOrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'FROM'#10'   ' +
+              ' Orders'#10'WHERE'#10'    OrderID > :StartingOrderID and'#10'    {Where}'#10'ORD' +
+              'ER BY'#10'    OrderID'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'PagedOrders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            GeneratorName = 'Orders'
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 32
+    Top = 56
+  end
+  object DataStreamer: TDABin2DataStreamer
+    BufferSize = 262144
+    SendReducedDelta = False
+    Left = 32
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchService_Impl.pas
new file mode 100644
index 0000000..945d08d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/FetchService_Impl.pas	
@@ -0,0 +1,74 @@
+unit FetchService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} FetchLibrary_Intf, uDADataStreamer, uDABin2DataStreamer,
+  uDAClasses, FetchServerData, uDAInterfaces;
+
+type
+  { TFetchService }
+  TFetchService = class(TDataAbstractService, IFetchService)
+    DataStreamer: TDABin2DataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { IFetchService methods }
+    function GetOrdersAndDetails(const StartOrderID: Integer; const EndOrderID: Integer): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FetchLibrary_Invk;
+
+procedure Create_FetchService(out anInstance : IUnknown);
+begin
+  anInstance := TFetchService.Create(nil);
+end;
+
+{ FetchService }
+function TFetchService.GetOrdersAndDetails(const StartOrderID: Integer; const EndOrderID: Integer): Binary;
+
+  procedure ProcessDataset(aDataset: IDADataset);
+  begin
+    aDataset.ParamByName('StartingOrderID').AsInteger := StartOrderID;
+    aDataset.ParamByName('EndingOrderID').AsInteger := EndOrderID;
+    aDataset.Open;
+    DataStreamer.WriteDataset(aDataset, [woRows], -1);
+  end;
+
+begin
+  result := Binary.Create;
+  DataStreamer.Initialize(result, aiWrite);
+  try
+    // writing orders
+    ProcessDataset(Schema.NewDataset(Connection, 'Orders'));
+    // writing order details
+    ProcessDataset(Schema.NewDataset(Connection, 'OrderDetails'));
+  finally
+    DataStreamer.Finalize;
+  end;
+end;
+
+initialization
+  TROClassFactory.Create('FetchService', Create_FetchService, TFetchService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/RODLFILE.res
new file mode 100644
index 0000000..be37b0d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Fetch/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.Sample.html
new file mode 100644
index 0000000..02a861a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.Sample.html	
@@ -0,0 +1,42 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+<br>
+<p class="h1">
+  <span>First Sample</span> 
+</p>
+
+<br>
+<h2>Purpose</h2>
+<p>
+  This example illustrates the basic functionality of <b>Data Abstract</b> from RemObjects Software.<br><br>
+  The application shows how to receive data from a remote database. 
+</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Launch the server (via the menu option: <strong>RemObjects | Launch Server Executable</strong>).</li>
+	<li>Ensure that FirstSampleClient is the selected project and run it.</li>
+	<li>Check that the client buttons work as expected.</li>
+	<li>Modify the server names list and retry the client actions.</li>
+	</ul>
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+            This application was created using the <b>Data Abstract 4.0 Combo Server wizard </b>
+            (see File->New->Other, tab RemObjects Data Abstract).<br>
+            After running the wizard, only a DBGrid, two Buttons and 3 lines of code were added.
+	</li>
+	<li>
+	   Examine the simple code in <strong>FirstSampleclientMain.pas</strong>.
+	</li>
+</ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.bdsgroup
new file mode 100644
index 0000000..3121f9f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{F88FE0BC-F908-4398-982A-AACAB34BECB7}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="FirstSampleServer.exe">FirstSampleServer.bdsproj</Projects>
+      <Projects Name="FirstSampleClient.exe">FirstSampleClient.bdsproj</Projects>
+      <Projects Name="Targets">FirstSampleServer.exe FirstSampleClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.bpg
new file mode 100644
index 0000000..1de9e53
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = FirstSampleServer.exe FirstSampleClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+FirstSampleServer.exe: FirstSampleServer.dpr
+  $(DCC)
+
+FirstSampleClient.exe: FirstSampleClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.groupproj
new file mode 100644
index 0000000..26658df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSample.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{7122486e-398e-464f-b75b-a8169350c11e}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="FirstSampleServer">
+    <MSBuild Projects="FirstSampleServer.dproj" Targets="" />
+  </Target>
+  <Target Name="FirstSampleServer:Clean">
+    <MSBuild Projects="FirstSampleServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FirstSampleServer:Make">
+    <MSBuild Projects="FirstSampleServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FirstSampleClient">
+    <MSBuild Projects="FirstSampleClient.dproj" Targets="" />
+  </Target>
+  <Target Name="FirstSampleClient:Clean">
+    <MSBuild Projects="FirstSampleClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FirstSampleClient:Make">
+    <MSBuild Projects="FirstSampleClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="FirstSampleServer;FirstSampleClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="FirstSampleServer:Clean;FirstSampleClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="FirstSampleServer:Make;FirstSampleClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.bdsproj
new file mode 100644
index 0000000..df27704
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{EC3EE225-4548-4705-B5A4-AFADF4300FDD}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">FirstSampleClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.dpr
new file mode 100644
index 0000000..7477e94
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.dpr	
@@ -0,0 +1,18 @@
+program FirstSampleClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  FirstSampleclientMain in 'FirstSampleclientMain.pas' {FirstSampleclientMainForm},
+  FirstSampleClientData in 'FirstSampleClientData.pas' {FirstSampleClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'First Sample Client';
+  Application.CreateForm(TFirstSampleClientDataModule, FirstSampleClientDataModule);
+  Application.CreateForm(TFirstSampleclientMainForm, FirstSampleclientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.dproj
new file mode 100644
index 0000000..03b7704
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{2ac631a8-06a9-4df5-8645-51b6996e3f52}</ProjectGuid>
+    <MainSource>FirstSampleClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>FirstSampleClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">FirstSampleClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="FirstSampleClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="FirstSampleClientData.pas">
+      <Form>FirstSampleClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="FirstSampleclientMain.pas">
+      <Form>FirstSampleclientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClientData.dfm
new file mode 100644
index 0000000..30dab50
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClientData.dfm	
@@ -0,0 +1,191 @@
+object FirstSampleClientDataModule: TFirstSampleClientDataModule
+  OldCreateOrder = True
+  Left = 139
+  Top = 77
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'FirstSampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABinDataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object tbl_Customers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactName'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Fax'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 130
+    Top = 117
+  end
+  object ds_Customers: TDADataSource
+    DataTable = tbl_Customers
+    Left = 138
+    Top = 125
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClientData.pas
new file mode 100644
index 0000000..45c6a8b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleClientData.pas	
@@ -0,0 +1,34 @@
+unit FirstSampleClientData;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
+  uDADataStreamer, uDARemoteDataAdapter, uDAScriptingProvider,
+  uDACDSDataTable;
+
+type
+  TFirstSampleClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABinDataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Customers: TDACDSDataTable;
+    ds_Customers: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FirstSampleClientDataModule: TFirstSampleClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary.RODL
new file mode 100644
index 0000000..b83e242
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary.RODL	
@@ -0,0 +1,15 @@
+<Library Name="FirstSampleLibrary" UID="{668FD1CF-765E-4C72-86E1-5BB53EA5CE34}">
+  <Services>
+    <Service Name="FirstSampleService" UID="{08AF6B88-2F85-44F5-BC63-355465C7A3CD}" Ancestor="DataAbstractService">
+      <Interfaces>
+         <Interface Name="Default" UID="{58D29079-CADF-4D12-B78C-F1403B2BBF34}">
+            <Operations>
+            </Operations>
+         </Interface>
+      </Interfaces>
+    </Service>
+  </Services>
+  <Uses>
+     <Use Name="DataAbstract" UID="{26913866-0D61-435E-B63F-1F69F74A0DD3}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" />
+  </Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary_Intf.pas
new file mode 100644
index 0000000..3b688bc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary_Intf.pas	
@@ -0,0 +1,76 @@
+unit FirstSampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{668FD1CF-765E-4C72-86E1-5BB53EA5CE34}';
+
+  { Service Interface ID's }
+  IFirstSampleService_IID : TGUID = '{58D29079-CADF-4D12-B78C-F1403B2BBF34}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IFirstSampleService = interface;
+
+
+
+
+  { IFirstSampleService }
+  IFirstSampleService = interface(IDataAbstractService)
+    ['{58D29079-CADF-4D12-B78C-F1403B2BBF34}']
+  end;
+
+  { CoFirstSampleService }
+  CoFirstSampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFirstSampleService;
+  end;
+
+  { TFirstSampleService_Proxy }
+  TFirstSampleService_Proxy = class(TDataAbstractService_Proxy, IFirstSampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoFirstSampleService }
+
+class function CoFirstSampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFirstSampleService;
+begin
+  result := TFirstSampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TFirstSampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'FirstSampleService';
+end;
+
+initialization
+  RegisterProxyClass(IFirstSampleService_IID, TFirstSampleService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IFirstSampleService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary_Invk.pas
new file mode 100644
index 0000000..d4eb2fb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleLibrary_Invk.pas	
@@ -0,0 +1,32 @@
+unit FirstSampleLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} FirstSampleLibrary_Intf;
+
+type
+  TFirstSampleService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.bdsproj
new file mode 100644
index 0000000..fa88e8c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{824362B1-0CDF-4ECB-B25D-DDDDAAADCF87}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">FirstSampleServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.dpr
new file mode 100644
index 0000000..d8d551d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.dpr	
@@ -0,0 +1,30 @@
+program FirstSampleServer;
+
+{#ROGEN:FirstSampleLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  FirstSampleServerMain in 'FirstSampleServerMain.pas' {FirstSampleServerMainForm},
+  FirstSampleService_Impl in 'FirstSampleService_Impl.pas' {FirstSampleService: TDARemoteService},
+  FirstSampleServerData in 'FirstSampleServerData.pas' {FirstSampleServerDataModule: TDataModule},
+  FirstSampleLibrary_Intf in 'FirstSampleLibrary_Intf.pas',
+  FirstSampleLibrary_Invk in 'FirstSampleLibrary_Invk.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('FirstSample', 'FirstSample') then begin
+    ROService.CreateForm(TFirstSampleServerDataModule, FirstSampleServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.Title := 'First Sample Server';
+  Application.CreateForm(TFirstSampleServerDataModule, FirstSampleServerDataModule);
+  Application.CreateForm(TFirstSampleServerMainForm, FirstSampleServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.dproj
new file mode 100644
index 0000000..97da5cf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4845004a-289d-4c48-baea-2a580444e3a9}</ProjectGuid>
+    <MainSource>FirstSampleServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>FirstSampleServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">FirstSampleServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="FirstSampleServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="FirstSampleLibrary_Intf.pas" />
+    <DCCReference Include="FirstSampleLibrary_Invk.pas" />
+    <DCCReference Include="FirstSampleServerData.pas">
+      <Form>FirstSampleServerDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="FirstSampleServerMain.pas">
+      <Form>FirstSampleServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="FirstSampleService_Impl.pas">
+      <Form>FirstSampleService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerData.dfm
new file mode 100644
index 0000000..74f107a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerData.dfm	
@@ -0,0 +1,68 @@
+object FirstSampleServerDataModule: TFirstSampleServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 74
+  Top = 68
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerData.pas
new file mode 100644
index 0000000..f093cee
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerData.pas	
@@ -0,0 +1,42 @@
+unit FirstSampleServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver, uROIndyTCPServer;
+
+type
+  TFirstSampleServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    DataDictionary: TDADataDictionary;
+    SessionManager: TROInMemorySessionManager;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FirstSampleServerDataModule: TFirstSampleServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TFirstSampleServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerMain.dfm
new file mode 100644
index 0000000..af7db88
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerMain.dfm	
@@ -0,0 +1,21 @@
+object FirstSampleServerMainForm: TFirstSampleServerMainForm
+  Left = 109
+  Top = 97
+  BorderStyle = bsDialog
+  Caption = 'First Sample Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerMain.pas
new file mode 100644
index 0000000..bcaeffa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleServerMain.pas	
@@ -0,0 +1,25 @@
+unit FirstSampleServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TFirstSampleServerMainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FirstSampleServerMainForm: TFirstSampleServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleService_Impl.dfm
new file mode 100644
index 0000000..75412ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleService_Impl.dfm	
@@ -0,0 +1,220 @@
+object FirstSampleService: TFirstSampleService
+  OldCreateOrder = True
+  SessionManager = FirstSampleServerDataModule.SessionManager
+  AcquireConnection = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Left = 69
+  Top = 46
+  Height = 212
+  Width = 216
+  object DataStreamer: TDABinDataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = FirstSampleServerDataModule.ConnectionManager
+    DataDictionary = FirstSampleServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleService_Impl.pas
new file mode 100644
index 0000000..e5d0c19
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleService_Impl.pas	
@@ -0,0 +1,37 @@
+unit FirstSampleService_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABinAdapter, uDAInterfaces, uDADataStreamer,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} FirstSampleLibrary_Intf;
+
+type
+  { TFirstSampleService }
+  TFirstSampleService = class(TDataAbstractService, IFirstSampleService)
+    DataStreamer: TDABinDataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { IFirstSampleService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FirstSampleLibrary_Invk, FirstSampleServerData;
+
+procedure Create_FirstSampleService(out anInstance: IUnknown);
+begin
+  anInstance := TFirstSampleService.Create(nil);
+end;
+
+initialization
+  TROClassFactory.Create('FirstSampleService', Create_FirstSampleService, TFirstSampleService_Invoker);
+finalization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleclientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleclientMain.dfm
new file mode 100644
index 0000000..82e5cea
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleclientMain.dfm	
@@ -0,0 +1,55 @@
+object FirstSampleclientMainForm: TFirstSampleclientMainForm
+  Left = 31
+  Top = 80
+  AutoScroll = False
+  Caption = 'First Sample Client'
+  ClientHeight = 411
+  ClientWidth = 615
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 120
+  TextHeight = 16
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 2
+    Top = 5
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    ApplicationType = atClient
+  end
+  object FillButton: TButton
+    Left = 384
+    Top = 20
+    Width = 92
+    Height = 30
+    Caption = '&Fill'
+    TabOrder = 0
+    OnClick = FillButtonClick
+  end
+  object UpdateButton: TButton
+    Left = 512
+    Top = 20
+    Width = 92
+    Height = 30
+    Caption = '&Update'
+    Enabled = False
+    TabOrder = 1
+    OnClick = UpdateButtonClick
+  end
+  object DBGrid1: TDBGrid
+    Left = 2
+    Top = 70
+    Width = 609
+    Height = 336
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = FirstSampleClientDataModule.ds_Customers
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -14
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleclientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleclientMain.pas
new file mode 100644
index 0000000..22e50b7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/FirstSampleclientMain.pas	
@@ -0,0 +1,45 @@
+unit FirstSampleclientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, Grids,
+  DBGrids, uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton;
+
+type
+  TFirstSampleclientMainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    FillButton: TButton;
+    UpdateButton: TButton;
+    DBGrid1: TDBGrid;
+    procedure FillButtonClick(Sender: TObject);
+    procedure UpdateButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FirstSampleclientMainForm: TFirstSampleclientMainForm;
+
+implementation
+
+uses
+  FirstSampleClientData;
+
+{$R *.dfm}
+
+procedure TFirstSampleclientMainForm.FillButtonClick(Sender: TObject);
+begin
+  FirstSampleClientDataModule.tbl_Customers.Open;
+  UpdateButton.Enabled:=True;
+end;
+
+procedure TFirstSampleclientMainForm.UpdateButtonClick(Sender: TObject);
+begin
+  FirstSampleClientDataModule.tbl_Customers.ApplyUpdates;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/RODLFILE.res
new file mode 100644
index 0000000..f3eeb87
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/First Sample/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysClient.dpr
new file mode 100644
index 0000000..24283bc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysClient.dpr	
@@ -0,0 +1,18 @@
+program ForeignKeysClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  ForeignKeys_ClientMain in 'ForeignKeys_ClientMain.pas' {ForeignKeys_ClientMainForm},
+  ForeignKeys_ClientData in 'ForeignKeys_ClientData.pas' {ForeignKeys_ClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Foreign Keys Client';
+  Application.CreateForm(TForeignKeys_ClientDataModule, ForeignKeys_ClientDataModule);
+  Application.CreateForm(TForeignKeys_ClientMainForm, ForeignKeys_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysGroup.Sample.html
new file mode 100644
index 0000000..424a5fd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysGroup.Sample.html	
@@ -0,0 +1,32 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align=right>
+
+<!-------------------------------------------------------------------------->
+<p class="h1">
+  Foreign Keys Example
+</p>
+<h2>Purpose</h2>
+<p>
+  This example shows how <b>DataAbstract</b> works with tables which have relationship. Relationships usually
+  are created automatically from foreign keys. 
+</p>
+<h2>Examine the Code</h2>
+<p>
+  The code is very simple: client-side application contains 2 tables which aren't linked as master/detail but 
+  they are updated in one call.  
+</p>
+<h2>Required steps</h2>
+<p>
+  Create a new record in the <b>Categories</b> table (it's the top table).</br>
+  Create a new record in the <b>Products</b> table (it's the bottom table) and link this record with the 
+  Categories table. So this record will be initialized with <b>ProductID</b> = -1 and <b>CategoryID</b> = -1.</br>
+  Call ApplyUpdate and see that <b>CategoryID</b> for this record has correct value.
+</p> 
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysGroup.bpg
new file mode 100644
index 0000000..d249152
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ForeignKeysServer.exe ForeignKeysClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ForeignKeysServer.exe: ForeignKeysServer.dpr
+  $(DCC)
+
+ForeignKeysClient.exe: ForeignKeysClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysLibrary.RODL
new file mode 100644
index 0000000..fa5231f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysLibrary.RODL	
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ForeignKeys_Library" UID="{07BE57FA-61DB-4B8D-BCC8-7ADA1DBADED9}" Version="3.0">
+<Services>
+<Service Name="ForeignKeys_Service" UID="{36E11EF5-DA63-49A0-9839-69EB480BD047}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{BE3A920C-DDF7-4177-82FB-2DDE62253F10}">
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{884D53EB-BF9D-4793-8C64-475A5A44A2F3}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysServer.dpr
new file mode 100644
index 0000000..abdfabe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysServer.dpr	
@@ -0,0 +1,30 @@
+program ForeignKeysServer;
+
+{#ROGEN:ForeignKeysLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  ForeignKeys_ServerMain in 'ForeignKeys_ServerMain.pas' {ForeignKeys_ServerMainForm},
+  ForeignKeys_ServerData in 'ForeignKeys_ServerData.pas' {ForeignKeys_ServerDataModule: TDataModule},
+  ForeignKeys_Library_Intf in 'ForeignKeys_Library_Intf.pas',
+  ForeignKeys_Library_Invk in 'ForeignKeys_Library_Invk.pas',
+  ForeignKeys_Service_Impl in 'ForeignKeys_Service_Impl.pas' {ForeignKeys_Service: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('NewProject', 'NewProject') then begin
+    ROService.CreateForm(TForeignKeys_ServerDataModule, ForeignKeys_ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.Title := 'Foreign Keys Server';
+  Application.CreateForm(TForeignKeys_ServerDataModule, ForeignKeys_ServerDataModule);
+  Application.CreateForm(TForeignKeys_ServerMainForm, ForeignKeys_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeysServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientData.dfm
new file mode 100644
index 0000000..b6a6d4c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientData.dfm	
@@ -0,0 +1,126 @@
+object ForeignKeys_ClientDataModule: TForeignKeys_ClientDataModule
+  OldCreateOrder = True
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'ForeignKeys_Service'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object tbl_Categories: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CategoryID'
+        DataType = datAutoInc
+        GeneratorName = 'Categories'
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'CategoryName'
+        DataType = datWideString
+        Size = 15
+        Required = True
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'Categories'
+    IndexDefs = <>
+    Left = 128
+    Top = 120
+  end
+  object ds_Categories: TDADataSource
+    DataSet = tbl_Categories.Dataset
+    DataTable = tbl_Categories
+    Left = 160
+    Top = 120
+  end
+  object tbl_Products: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ProductID'
+        DataType = datAutoInc
+        GeneratorName = 'Products'
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ProductName'
+        DataType = datWideString
+        Size = 40
+        Required = True
+      end
+      item
+        Name = 'SupplierID'
+        DataType = datInteger
+      end
+      item
+        Name = 'CategoryID'
+        DataType = datInteger
+      end
+      item
+        Name = 'Discontinued'
+        DataType = datBoolean
+        Required = True
+      end
+      item
+        Name = 'CategoryName'
+        DataType = datWideString
+        Size = 15
+        LogChanges = False
+        Lookup = True
+        LookupSource = ds_Categories
+        LookupKeyFields = 'CategoryID'
+        LookupResultField = 'CategoryName'
+        KeyFields = 'CategoryID'
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    OnNewRecord = tbl_ProductsNewRecord
+    LogicalName = 'Products'
+    IndexDefs = <>
+    Left = 128
+    Top = 176
+  end
+  object ds_Products: TDADataSource
+    DataSet = tbl_Products.Dataset
+    DataTable = tbl_Products
+    Left = 160
+    Top = 176
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientData.pas
new file mode 100644
index 0000000..7a4ac02
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientData.pas	
@@ -0,0 +1,42 @@
+unit ForeignKeys_ClientData;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDAScriptingProvider, uDAMemDataTable, uDADataStreamer;
+
+type
+  TForeignKeys_ClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Categories: TDAMemDataTable;
+    ds_Categories: TDADataSource;
+    tbl_Products: TDAMemDataTable;
+    ds_Products: TDADataSource;
+    procedure tbl_ProductsNewRecord(DataTable: TDADataTable);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ForeignKeys_ClientDataModule: TForeignKeys_ClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForeignKeys_ClientDataModule.tbl_ProductsNewRecord(DataTable: TDADataTable);
+begin
+  DataTable.FieldByName('Discontinued').AsBoolean:=False;
+  DataTable.FieldByName('SupplierID').AsInteger:=1;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientMain.dfm
new file mode 100644
index 0000000..9b73a39
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientMain.dfm	
@@ -0,0 +1,76 @@
+object ForeignKeys_ClientMainForm: TForeignKeys_ClientMainForm
+  Left = 374
+  Top = 253
+  Width = 685
+  Height = 341
+  Caption = 'Data Abstract Client'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 153
+    Width = 669
+    Height = 3
+    Cursor = crVSplit
+    Align = alTop
+  end
+  object gCategories: TDBGrid
+    Left = 0
+    Top = 41
+    Width = 669
+    Height = 112
+    Align = alTop
+    DataSource = ForeignKeys_ClientDataModule.ds_Categories
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object gProducts: TDBGrid
+    Left = 0
+    Top = 156
+    Width = 669
+    Height = 149
+    Align = alClient
+    DataSource = ForeignKeys_ClientDataModule.ds_Products
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 669
+    Height = 41
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+    object btnOpen: TButton
+      Left = 8
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 0
+      OnClick = btnOpenClick
+    end
+    object btnApplyUpdate: TButton
+      Left = 88
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = 'ApplyUpdate'
+      TabOrder = 1
+      OnClick = btnApplyUpdateClick
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientMain.pas
new file mode 100644
index 0000000..7d68cf5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ClientMain.pas	
@@ -0,0 +1,52 @@
+unit ForeignKeys_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ExtCtrls,
+  Grids, DBGrids;
+
+type
+  TForeignKeys_ClientMainForm = class(TForm)
+    gCategories: TDBGrid;
+    gProducts: TDBGrid;
+    Panel1: TPanel;
+    btnOpen: TButton;
+    Splitter1: TSplitter;
+    btnApplyUpdate: TButton;
+    procedure btnOpenClick(Sender: TObject);
+    procedure btnApplyUpdateClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ForeignKeys_ClientMainForm: TForeignKeys_ClientMainForm;
+
+implementation
+
+uses
+  ForeignKeys_ClientData, uDADataTable;
+  
+{$R *.dfm}
+
+procedure TForeignKeys_ClientMainForm.btnOpenClick(Sender: TObject);
+begin
+  with ForeignKeys_ClientDataModule do begin
+    with tbl_Categories do
+      Active := not Active;
+    with tbl_Products do
+      Active := not Active;
+  end;
+end;
+
+procedure TForeignKeys_ClientMainForm.btnApplyUpdateClick(Sender: TObject);
+begin
+  with ForeignKeys_ClientDataModule do
+    RemoteDataAdapter.ApplyUpdates([tbl_Categories,tbl_Products],False);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Library_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Library_Intf.pas
new file mode 100644
index 0000000..c61d7cc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Library_Intf.pas	
@@ -0,0 +1,82 @@
+unit ForeignKeys_Library_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{07BE57FA-61DB-4B8D-BCC8-7ADA1DBADED9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IForeignKeys_Service_IID : TGUID = '{BE3A920C-DDF7-4177-82FB-2DDE62253F10}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IForeignKeys_Service = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IForeignKeys_Service }
+  IForeignKeys_Service = interface(IDataAbstractService)
+    ['{BE3A920C-DDF7-4177-82FB-2DDE62253F10}']
+  end;
+
+  { CoForeignKeys_Service }
+  CoForeignKeys_Service = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IForeignKeys_Service;
+  end;
+
+  { TForeignKeys_Service_Proxy }
+  TForeignKeys_Service_Proxy = class(TDataAbstractService_Proxy, IForeignKeys_Service)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoForeignKeys_Service }
+
+class function CoForeignKeys_Service.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IForeignKeys_Service;
+begin
+  result := TForeignKeys_Service_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TForeignKeys_Service_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ForeignKeys_Service';
+end;
+
+initialization
+  RegisterProxyClass(IForeignKeys_Service_IID, TForeignKeys_Service_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IForeignKeys_Service_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Library_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Library_Invk.pas
new file mode 100644
index 0000000..66a61f3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Library_Invk.pas	
@@ -0,0 +1,45 @@
+unit ForeignKeys_Library_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} ForeignKeys_Library_Intf;
+
+type
+  TForeignKeys_Service_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TForeignKeys_Service_Invoker }
+
+constructor TForeignKeys_Service_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerData.dfm
new file mode 100644
index 0000000..4e556e6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerData.dfm	
@@ -0,0 +1,59 @@
+object ForeignKeys_ServerDataModule: TForeignKeys_ServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        ConnectionType = 'MSSQL'
+        Default = True
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerData.pas
new file mode 100644
index 0000000..93cf780
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerData.pas	
@@ -0,0 +1,41 @@
+unit ForeignKeys_ServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAADODriver, uROIndyTCPServer;
+
+type
+  TForeignKeys_ServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    SessionManager: TROInMemorySessionManager;
+    DataDictionary: TDADataDictionary;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ForeignKeys_ServerDataModule: TForeignKeys_ServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForeignKeys_ServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerMain.dfm
new file mode 100644
index 0000000..4ead4b5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerMain.dfm	
@@ -0,0 +1,21 @@
+object ForeignKeys_ServerMainForm: TForeignKeys_ServerMainForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'ForeignKeys Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerMain.pas
new file mode 100644
index 0000000..bc1958c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_ServerMain.pas	
@@ -0,0 +1,25 @@
+unit ForeignKeys_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TForeignKeys_ServerMainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ForeignKeys_ServerMainForm: TForeignKeys_ServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Service_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Service_Impl.dfm
new file mode 100644
index 0000000..361847d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Service_Impl.dfm	
@@ -0,0 +1,146 @@
+object ForeignKeys_Service: TForeignKeys_Service
+  OldCreateOrder = True
+  SessionManager = ForeignKeys_ServerDataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Height = 300
+  Width = 300
+  object Schema: TDASchema
+    ConnectionManager = ForeignKeys_ServerDataModule.ConnectionManager
+    DataDictionary = ForeignKeys_ServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            ConnectionType = 'MSSQL'
+            Default = True
+            TargetTable = 'Categories'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CategoryID'
+                TableField = 'CategoryID'
+              end
+              item
+                DatasetField = 'CategoryName'
+                TableField = 'CategoryName'
+              end>
+          end>
+        Name = 'Categories'
+        Fields = <
+          item
+            Name = 'CategoryID'
+            DataType = datAutoInc
+            GeneratorName = 'Categories'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'CategoryName'
+            DataType = datWideString
+            Size = 15
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            ConnectionType = 'MSSQL'
+            Default = True
+            TargetTable = 'Products'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProductID'
+                TableField = 'ProductID'
+              end
+              item
+                DatasetField = 'ProductName'
+                TableField = 'ProductName'
+              end
+              item
+                DatasetField = 'SupplierID'
+                TableField = 'SupplierID'
+              end
+              item
+                DatasetField = 'CategoryID'
+                TableField = 'CategoryID'
+              end
+              item
+                DatasetField = 'Discontinued'
+                TableField = 'Discontinued'
+              end>
+          end>
+        Name = 'Products'
+        Fields = <
+          item
+            Name = 'ProductID'
+            DataType = datAutoInc
+            GeneratorName = 'Products'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ProductName'
+            DataType = datWideString
+            Size = 40
+            Required = True
+          end
+          item
+            Name = 'SupplierID'
+            DataType = datInteger
+          end
+          item
+            Name = 'CategoryID'
+            DataType = datInteger
+          end
+          item
+            Name = 'Discontinued'
+            DataType = datBoolean
+            Required = True
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <
+      item
+        Name = 'FK_Products_Categories'
+        MasterDatasetName = 'Categories'
+        MasterFields = 'CategoryID'
+        DetailDatasetName = 'Products'
+        DetailFields = 'CategoryID'
+        RelationshipType = rtForeignKey
+      end>
+    UpdateRules = <
+      item
+        Name = 'Products Delete'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'Products'
+        FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Categories Rules'
+        DatasetName = 'Categories'
+        FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Product Insert/Update'
+        DoUpdate = False
+        DoDelete = False
+        DatasetName = 'Products'
+        FailureBehavior = fbRaiseException
+      end>
+    Version = 0
+    Left = 32
+    Top = 56
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Service_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Service_Impl.pas
new file mode 100644
index 0000000..70a04d4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/ForeignKeys_Service_Impl.pas	
@@ -0,0 +1,50 @@
+unit ForeignKeys_Service_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} ForeignKeys_Library_Intf, uDADataStreamer,
+  uDABin2DataStreamer, uDAClasses;
+
+type
+  { TForeignKeys_Service }
+  TForeignKeys_Service = class(TDataAbstractService, IForeignKeys_Service)
+    Schema: TDASchema;
+    DataStreamer: TDABin2DataStreamer;
+  private
+  protected
+    { IForeignKeys_Service methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} ForeignKeys_Library_Invk, ForeignKeys_ServerData;
+
+procedure Create_ForeignKeys_Service(out anInstance : IUnknown);
+begin
+  anInstance := TForeignKeys_Service.Create(nil);
+end;
+
+{ ForeignKeys_Service }
+initialization
+  TROClassFactory.Create('ForeignKeys_Service', Create_ForeignKeys_Service, TForeignKeys_Service_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/RODLFILE.res
new file mode 100644
index 0000000..6c5abb7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Foreign Keys/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.Sample.html
new file mode 100644
index 0000000..e518fc9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.Sample.html	
@@ -0,0 +1,27 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Generators Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  This example demonstrates how can be used <b>AutoIncrement</b> fields for different databases.
+</p>
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Launch the server (via the menu option: <strong>RemObjects | Launch Server Executable</strong>).</li>
+	<li>Ensure that GeneratorsSample_Client is the selected project and run it.</li>
+	<li>Test as AutoInc fields work for different databases.</li>
+	</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.bpg
new file mode 100644
index 0000000..ee25a5a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = GeneratorsSample_Server.exe GeneratorsSample_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+GeneratorsSample_Server.exe: GeneratorsSample_Server.dpr
+  $(DCC)
+
+GeneratorsSample_Client.exe: GeneratorsSample_Client.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.groupproj
new file mode 100644
index 0000000..74bdfbc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{28f5f5ec-0a09-44e3-8be1-af4f7b108269}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="GeneratorsSample_Client.dproj" />
+    <Projects Include="GeneratorsSample_Server.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="GeneratorsSample_Server">
+    <MSBuild Projects="GeneratorsSample_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="GeneratorsSample_Server:Clean">
+    <MSBuild Projects="GeneratorsSample_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="GeneratorsSample_Server:Make">
+    <MSBuild Projects="GeneratorsSample_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="GeneratorsSample_Client">
+    <MSBuild Projects="GeneratorsSample_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="GeneratorsSample_Client:Clean">
+    <MSBuild Projects="GeneratorsSample_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="GeneratorsSample_Client:Make">
+    <MSBuild Projects="GeneratorsSample_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="GeneratorsSample_Server;GeneratorsSample_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="GeneratorsSample_Server:Clean;GeneratorsSample_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="GeneratorsSample_Server:Make;GeneratorsSample_Client:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.dpr
new file mode 100644
index 0000000..2aec367
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.dpr	
@@ -0,0 +1,18 @@
+program GeneratorsSample_Client;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  GeneratorsSample_ClientMain in 'GeneratorsSample_ClientMain.pas' {GeneratorsSample_ClientMainForm},
+  GeneratorsSample_ClientData in 'GeneratorsSample_ClientData.pas' {GeneratorsSample_ClientDataForm: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Generators Client';
+  Application.CreateForm(TGeneratorsSample_ClientDataForm, GeneratorsSample_ClientDataForm);
+  Application.CreateForm(TGeneratorsSample_ClientMainForm, GeneratorsSample_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.dproj
new file mode 100644
index 0000000..0c1d4dc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.dproj	
@@ -0,0 +1,82 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{8f2e2787-1ab7-4ab7-bd5a-799e5a5eaa05}</ProjectGuid>
+    <MainSource>GeneratorsSample_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>GeneratorsSample_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">GeneratorsSample_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="GeneratorsSample_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="GeneratorsSample_ClientData.pas">
+      <Form>GeneratorsSample_ClientDataForm</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="GeneratorsSample_ClientMain.pas">
+      <Form>GeneratorsSample_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.res
new file mode 100644
index 0000000..19aaa87
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientData.dfm
new file mode 100644
index 0000000..b55e30a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientData.dfm	
@@ -0,0 +1,59 @@
+object GeneratorsSample_ClientDataForm: TGeneratorsSample_ClientDataForm
+  OldCreateOrder = True
+  OnCreate = DataModuleCreate
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'GeneratorsSample_Service'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object tbl_Data: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LocalDataStreamer = DataStreamer
+    IndexDefs = <>
+    Left = 152
+    Top = 32
+  end
+  object ds_Data: TDADataSource
+    DataSet = tbl_Data.Dataset
+    DataTable = tbl_Data
+    Left = 152
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientData.pas
new file mode 100644
index 0000000..8bb974a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientData.pas	
@@ -0,0 +1,43 @@
+unit GeneratorsSample_ClientData;
+
+interface
+
+uses
+  {vcl:} SysUtils, Classes, DB, DBClient,
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer,
+  GeneratorsSample_Library_Intf, uDAScriptingProvider, uDAMemDataTable;
+
+type
+  TGeneratorsSample_ClientDataForm = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Data: TDAMemDataTable;
+    ds_Data: TDADataSource;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    fService: IGeneratorsSample_Service;
+
+  end;
+
+var
+  GeneratorsSample_ClientDataForm: TGeneratorsSample_ClientDataForm;
+
+implementation
+
+
+{$R *.dfm}
+
+procedure TGeneratorsSample_ClientDataForm.DataModuleCreate(Sender: TObject);
+begin
+  fService := RemoteService as IGeneratorsSample_Service;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientMain.dfm
new file mode 100644
index 0000000..4246033
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientMain.dfm	
@@ -0,0 +1,94 @@
+object GeneratorsSample_ClientMainForm: TGeneratorsSample_ClientMainForm
+  Left = 280
+  Top = 175
+  Width = 640
+  Height = 480
+  Caption = 'AutoInc Field Client'
+  Color = clBtnFace
+  Constraints.MinHeight = 480
+  Constraints.MinWidth = 640
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  Scaled = False
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 624
+    Height = 97
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      624
+      97)
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 8
+      Top = 8
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+      ApplicationType = atClient
+    end
+    object Label2: TLabel
+      Left = 256
+      Top = 8
+      Width = 30
+      Height = 13
+      Caption = 'Table:'
+    end
+    object btnApply: TButton
+      Left = 545
+      Top = 22
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Apply'
+      Enabled = False
+      TabOrder = 0
+      OnClick = btnApplyClick
+    end
+    object DBNavigator1: TDBNavigator
+      Left = 6
+      Top = 64
+      Width = 230
+      Height = 25
+      DataSource = GeneratorsSample_ClientDataForm.ds_Data
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 1
+      BeforeAction = DBNavigator1Click
+    end
+    object cmbTables: TComboBox
+      Left = 256
+      Top = 24
+      Width = 281
+      Height = 21
+      Style = csDropDownList
+      Anchors = [akLeft, akTop, akRight]
+      ItemHeight = 13
+      TabOrder = 2
+      OnClick = cmbTablesClick
+      OnKeyPress = cmbTablesKeyPress
+    end
+  end
+  object DBGrid: TDBGrid
+    Left = 0
+    Top = 97
+    Width = 624
+    Height = 347
+    Align = alClient
+    DataSource = GeneratorsSample_ClientDataForm.ds_Data
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientMain.pas
new file mode 100644
index 0000000..5af3039
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ClientMain.pas	
@@ -0,0 +1,177 @@
+unit GeneratorsSample_ClientMain;
+
+interface
+
+uses
+  Forms, Classes, ExtCtrls, StdCtrls, Controls, Grids,
+  DB, DBGrids, DBCtrls,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton
+  ;
+
+type
+  TGeneratorsSample_ClientMainForm = class(TForm)
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    DBGrid: TDBGrid;
+    btnApply: TButton;
+    DBNavigator1: TDBNavigator;
+    Label2: TLabel;
+    cmbTables: TComboBox;
+    procedure FormCreate(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure FormShow(Sender: TObject);
+    procedure cmbTablesClick(Sender: TObject);
+    procedure cmbTablesKeyPress(Sender: TObject; var Key: Char);
+    procedure btnApplyClick(Sender: TObject);
+    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
+  private
+    { Private declarations }
+    fTblIdx: integer;
+    procedure SetTable(const TblName: string);
+    function  ApplyChanges: Boolean;
+    procedure ds_DataDataChange(Sender: TObject; Field: TField);
+  public
+    { Public declarations }
+  end;
+
+var
+  GeneratorsSample_ClientMainForm: TGeneratorsSample_ClientMainForm;
+
+implementation
+
+uses
+  SysUtils, Dialogs,
+  uDADataTable, DataAbstract4_Intf,
+  GeneratorsSample_ClientData, GeneratorsSample_Library_Intf;
+
+{$R *.dfm}
+
+procedure ShowErrMsg(const ErrMsg: string);
+begin
+  MessageDlg(ErrMsg, mtError, [mbOK], 0);
+end;
+
+procedure TGeneratorsSample_ClientMainForm.FormCreate(Sender: TObject);
+begin
+  fTblIdx := -1;
+end;
+
+procedure TGeneratorsSample_ClientMainForm.FormCloseQuery(Sender: TObject;
+  var CanClose: Boolean);
+begin
+  CanClose := ApplyChanges();
+end;
+
+procedure TGeneratorsSample_ClientMainForm.FormShow(Sender: TObject);
+var
+  Tables: StringArray;
+  i: integer;
+begin
+  Tables := nil;
+  try
+    Tables := GeneratorsSample_ClientDataForm.fService.GetTableNames;
+    if Assigned(Tables) then
+      for i := 0 to Tables.Count - 1 do
+        cmbTables.Items.Add(Tables[i]);
+  finally
+    Tables.Free;
+    cmbTables.Enabled := (cmbTables.Items.Count > 0);
+    if cmbTables.Items.Count = 1 then cmbTables.ItemIndex := 0;
+  end;
+end;
+
+function  TGeneratorsSample_ClientMainForm.ApplyChanges: Boolean;
+var
+  R: TModalResult;
+begin
+  Result := True;
+  if btnApply.Enabled then begin
+    R := MessageDlg('Do you want to apply changes?', mtConfirmation, mbYesNoCancel, 0);
+    if R = mrCancel then begin
+      Result := False
+    end
+    else if  R = mrNo  then begin
+      Result := True
+    end
+    else begin
+      btnApply.Enabled := False;
+      try
+        GeneratorsSample_ClientDataForm.tbl_Data.ApplyUpdates;
+        btnApply.Enabled := GeneratorsSample_ClientDataForm.tbl_Data.HasDelta;
+      except
+        on e: Exception do raise ;
+      end;
+      Result := True;
+    end;
+  end;
+end;
+
+procedure TGeneratorsSample_ClientMainForm.cmbTablesClick(Sender: TObject);
+begin
+  if cmbTables.DroppedDown or (cmbTables.ItemIndex < 0) then exit;
+  SetTable(cmbTables.Text);
+end;
+
+procedure TGeneratorsSample_ClientMainForm.cmbTablesKeyPress(Sender: TObject; var Key: Char);
+begin
+  if  Key = #13 then
+  begin
+    if cmbTables.DroppedDown then cmbTables.DroppedDown := False;
+    cmbTablesClick(Sender);
+    Key := #0;
+  end;
+end;
+
+procedure TGeneratorsSample_ClientMainForm.SetTable(const TblName: string);
+var
+  i: integer;
+  S: string;
+  Tbl: TDADataTable;
+  OldCurs: TCursor;
+begin
+  i := Pos('(', TblName);
+
+  if  i > 0 then
+    S := Trim(Copy(TblName, 1, i - 1))
+  else
+    S := Trim(TblName);
+
+  Tbl := GeneratorsSample_ClientDataForm.tbl_Data;
+
+  if (Tbl.LogicalName <> S) and ApplyChanges() then begin
+    OldCurs := Screen.Cursor;
+    try
+      fTblIdx := cmbTables.ItemIndex;
+      Screen.Cursor := crHourGlass;
+      GeneratorsSample_ClientDataForm.ds_Data.OnDataChange := nil;
+      Tbl.Close;
+      Tbl.Fields.Clear();
+      Tbl.LogicalName := S;
+      Tbl.Open;
+      GeneratorsSample_ClientDataForm.ds_Data.OnDataChange := ds_DataDataChange;
+      btnApply.Enabled := False;
+    finally
+      Screen.Cursor := OldCurs;
+    end;
+  end
+  else
+    cmbTables.ItemIndex := fTblIdx;
+end;
+
+procedure TGeneratorsSample_ClientMainForm.ds_DataDataChange(Sender: TObject; Field: TField);
+begin
+  btnApply.Enabled := GeneratorsSample_ClientDataForm.tbl_Data.HasDelta;
+end;
+
+procedure TGeneratorsSample_ClientMainForm.btnApplyClick(Sender: TObject);
+begin
+  ApplyChanges();
+end;
+
+procedure TGeneratorsSample_ClientMainForm.DBNavigator1Click(Sender: TObject;
+  Button: TNavigateBtn);
+begin
+  if (Button = nbRefresh) and not ApplyChanges() then Abort;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library.RODL
new file mode 100644
index 0000000..2a48ff2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library.RODL	
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="GeneratorsSample_Library" UID="{D2725B49-2EA8-4C0D-BEA6-7AD3CCCB0B4B}" Version="3.0">
+<Services>
+<Service Name="GeneratorsSample_Service" UID="{ABB87CFD-ABF2-4216-89BD-192E963E35A9}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{1E9E677F-A52A-44E9-9EBB-5DFE04D220D7}">
+<Operations>
+<Operation Name="GetTableNames" UID="{ADD4757E-2121-4BCF-94EF-1D08A5DDE3A6}">
+<Parameters>
+<Parameter Name="Result" DataType="StringArray" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{2ECC78F9-0663-4775-A27B-52A351959284}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" GenerateCode="1" AbsoluteRodl="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use>
+</Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library_Intf.pas
new file mode 100644
index 0000000..8ae98a8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library_Intf.pas	
@@ -0,0 +1,102 @@
+unit GeneratorsSample_Library_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{D2725B49-2EA8-4C0D-BEA6-7AD3CCCB0B4B}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IGeneratorsSample_Service_IID : TGUID = '{1E9E677F-A52A-44E9-9EBB-5DFE04D220D7}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IGeneratorsSample_Service = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IGeneratorsSample_Service }
+  IGeneratorsSample_Service = interface(IDataAbstractService)
+    ['{1E9E677F-A52A-44E9-9EBB-5DFE04D220D7}']
+    function GetTableNames: StringArray;
+  end;
+
+  { CoGeneratorsSample_Service }
+  CoGeneratorsSample_Service = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IGeneratorsSample_Service;
+  end;
+
+  { TGeneratorsSample_Service_Proxy }
+  TGeneratorsSample_Service_Proxy = class(TDataAbstractService_Proxy, IGeneratorsSample_Service)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetTableNames: StringArray;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoGeneratorsSample_Service }
+
+class function CoGeneratorsSample_Service.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IGeneratorsSample_Service;
+begin
+  result := TGeneratorsSample_Service_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TGeneratorsSample_Service_Proxy }
+
+function TGeneratorsSample_Service_Proxy.__GetInterfaceName:string;
+begin
+  result := 'GeneratorsSample_Service';
+end;
+
+function TGeneratorsSample_Service_Proxy.GetTableNames: StringArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'GeneratorsSample_Library', __InterfaceName, 'GetTableNames');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DataAbstract4_Intf.StringArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IGeneratorsSample_Service_IID, TGeneratorsSample_Service_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IGeneratorsSample_Service_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library_Invk.pas
new file mode 100644
index 0000000..0c4dafd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Library_Invk.pas	
@@ -0,0 +1,71 @@
+unit GeneratorsSample_Library_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} GeneratorsSample_Library_Intf;
+
+type
+  TGeneratorsSample_Service_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetTableNames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TGeneratorsSample_Service_Invoker }
+
+constructor TGeneratorsSample_Service_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TGeneratorsSample_Service_Invoker.Invoke_GetTableNames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetTableNames: StringArray; }
+var
+  lResult: DataAbstract4_Intf.StringArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as IGeneratorsSample_Service).GetTableNames;
+
+    __Message.InitializeResponseMessage(__Transport, 'GeneratorsSample_Library', 'GeneratorsSample_Service', 'GetTableNamesResponse');
+    __Message.Write('Result', TypeInfo(DataAbstract4_Intf.StringArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.dpr
new file mode 100644
index 0000000..8736bbd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.dpr	
@@ -0,0 +1,30 @@
+program GeneratorsSample_Server;
+
+{#ROGEN:GeneratorsSample_Library.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  GeneratorsSample_ServerMain in 'GeneratorsSample_ServerMain.pas' {GeneratorsSample_ServerForm},
+  GeneratorsSample_ServerData in 'GeneratorsSample_ServerData.pas' {GeneratorsSample_ServerDataModule: TDataModule},
+  GeneratorsSample_Library_Intf in 'GeneratorsSample_Library_Intf.pas',
+  GeneratorsSample_Library_Invk in 'GeneratorsSample_Library_Invk.pas',
+  GeneratorsSample_Service_Impl in 'GeneratorsSample_Service_Impl.pas' {GeneratorsSample_Service: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('GeneratorsSample', 'Generators Sample') then begin
+    ROService.CreateForm(TGeneratorsSample_ServerDataModule, GeneratorsSample_ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.Title := 'Generators Server';
+  Application.CreateForm(TGeneratorsSample_ServerDataModule, GeneratorsSample_ServerDataModule);
+  Application.CreateForm(TGeneratorsSample_ServerForm, GeneratorsSample_ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.dproj
new file mode 100644
index 0000000..06c96eb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.dproj	
@@ -0,0 +1,88 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{29fec98e-98f9-4758-b3bb-2563f25fcfa8}</ProjectGuid>
+    <MainSource>GeneratorsSample_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>GeneratorsSample_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">GeneratorsSample_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="GeneratorsSample_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="GeneratorsSample_Library_Intf.pas" />
+    <DCCReference Include="GeneratorsSample_Library_Invk.pas" />
+    <DCCReference Include="GeneratorsSample_ServerData.pas">
+      <Form>GeneratorsSample_ServerDataModule</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="GeneratorsSample_ServerMain.pas">
+      <Form>GeneratorsSample_ServerForm</Form>
+    </DCCReference>
+    <DCCReference Include="GeneratorsSample_Service_Impl.pas">
+      <Form>GeneratorsSample_Service</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.res
new file mode 100644
index 0000000..0dbc4d6
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerData.dfm
new file mode 100644
index 0000000..e4563e9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerData.dfm	
@@ -0,0 +1,71 @@
+object GeneratorsSample_ServerDataModule: TGeneratorsSample_ServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADO Connection to Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI;'
+        ConnectionType = 'MSSQL'
+      end
+      item
+        Name = 'IBX Connection to EMPLOYEE.FDB'
+        ConnectionString = 
+          'IBX?Server=localhost;Database=D:\EMPLOYEE.FDB;UserID=sysdba;Pass' +
+          'word=masterkey;'
+        ConnectionType = 'Interbase'
+        Default = True
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerData.pas
new file mode 100644
index 0000000..ab3e3dd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerData.pas	
@@ -0,0 +1,42 @@
+unit GeneratorsSample_ServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver, uROIndyTCPServer;
+
+type
+  TGeneratorsSample_ServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    SessionManager: TROInMemorySessionManager;
+    DataDictionary: TDADataDictionary;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  GeneratorsSample_ServerDataModule: TGeneratorsSample_ServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TGeneratorsSample_ServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerMain.dfm
new file mode 100644
index 0000000..bd110b3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerMain.dfm	
@@ -0,0 +1,21 @@
+object GeneratorsSample_ServerForm: TGeneratorsSample_ServerForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Generators Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerMain.pas
new file mode 100644
index 0000000..a84072e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_ServerMain.pas	
@@ -0,0 +1,26 @@
+unit GeneratorsSample_ServerMain;
+
+interface
+
+uses
+  Forms, Classes, Controls,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton
+  ;
+
+type
+  TGeneratorsSample_ServerForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  GeneratorsSample_ServerForm: TGeneratorsSample_ServerForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Service_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Service_Impl.dfm
new file mode 100644
index 0000000..616bbf2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Service_Impl.dfm	
@@ -0,0 +1,331 @@
+object GeneratorsSample_Service: TGeneratorsSample_Service
+  OldCreateOrder = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
+  Left = 401
+  Top = 313
+  Height = 300
+  Width = 300
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = GeneratorsSample_ServerDataModule.ConnectionManager
+    DataDictionary = GeneratorsSample_ServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO Connection to Northwind'
+            ConnectionType = 'MSSQL'
+            Default = True
+            TargetTable = 'Employees'
+            Name = 'MSSQL'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'Title'
+                TableField = 'Title'
+              end
+              item
+                DatasetField = 'TitleOfCourtesy'
+                TableField = 'TitleOfCourtesy'
+              end
+              item
+                DatasetField = 'BirthDate'
+                TableField = 'BirthDate'
+              end
+              item
+                DatasetField = 'HireDate'
+                TableField = 'HireDate'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'HomePhone'
+                TableField = 'HomePhone'
+              end
+              item
+                DatasetField = 'Extension'
+                TableField = 'Extension'
+              end
+              item
+                DatasetField = 'Photo'
+                TableField = 'Photo'
+              end
+              item
+                DatasetField = 'Notes'
+                TableField = 'Notes'
+              end
+              item
+                DatasetField = 'ReportsTo'
+                TableField = 'ReportsTo'
+              end
+              item
+                DatasetField = 'PhotoPath'
+                TableField = 'PhotoPath'
+              end>
+          end>
+        Name = 'Employee'
+        Description = 'MSSQL'
+        Fields = <
+          item
+            Name = 'EmployeeID'
+            DataType = datAutoInc
+            GeneratorName = 'Employees'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'LastName'
+            DataType = datWideString
+            Size = 20
+            Required = True
+          end
+          item
+            Name = 'FirstName'
+            DataType = datWideString
+            Size = 10
+            Required = True
+          end
+          item
+            Name = 'Title'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'TitleOfCourtesy'
+            DataType = datWideString
+            Size = 25
+          end
+          item
+            Name = 'BirthDate'
+            DataType = datDateTime
+          end
+          item
+            Name = 'HireDate'
+            DataType = datDateTime
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'HomePhone'
+            DataType = datWideString
+            Size = 24
+          end
+          item
+            Name = 'Extension'
+            DataType = datWideString
+            Size = 4
+          end
+          item
+            Name = 'Photo'
+            DataType = datBlob
+          end
+          item
+            Name = 'Notes'
+            DataType = datMemo
+          end
+          item
+            Name = 'ReportsTo'
+            DataType = datInteger
+          end
+          item
+            Name = 'PhotoPath'
+            DataType = datWideString
+            Size = 255
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX Connection to EMPLOYEE.FDB'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'CUSTOMER'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CUST_NO'
+                TableField = 'CUST_NO'
+              end
+              item
+                DatasetField = 'CUSTOMER'
+                TableField = 'CUSTOMER'
+              end
+              item
+                DatasetField = 'CONTACT_FIRST'
+                TableField = 'CONTACT_FIRST'
+              end
+              item
+                DatasetField = 'CONTACT_LAST'
+                TableField = 'CONTACT_LAST'
+              end
+              item
+                DatasetField = 'PHONE_NO'
+                TableField = 'PHONE_NO'
+              end
+              item
+                DatasetField = 'ADDRESS_LINE1'
+                TableField = 'ADDRESS_LINE1'
+              end
+              item
+                DatasetField = 'ADDRESS_LINE2'
+                TableField = 'ADDRESS_LINE2'
+              end
+              item
+                DatasetField = 'CITY'
+                TableField = 'CITY'
+              end
+              item
+                DatasetField = 'STATE_PROVINCE'
+                TableField = 'STATE_PROVINCE'
+              end
+              item
+                DatasetField = 'COUNTRY'
+                TableField = 'COUNTRY'
+              end
+              item
+                DatasetField = 'POSTAL_CODE'
+                TableField = 'POSTAL_CODE'
+              end
+              item
+                DatasetField = 'ON_HOLD'
+                TableField = 'ON_HOLD'
+              end>
+          end>
+        Name = 'CUSTOMER'
+        Description = 'Interbase'
+        Fields = <
+          item
+            Name = 'CUST_NO'
+            DataType = datAutoInc
+            GeneratorName = 'CUST_NO_GEN'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'CUSTOMER'
+            DataType = datString
+            Size = 25
+            Required = True
+          end
+          item
+            Name = 'CONTACT_FIRST'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'CONTACT_LAST'
+            DataType = datString
+            Size = 20
+          end
+          item
+            Name = 'PHONE_NO'
+            DataType = datString
+            Size = 20
+          end
+          item
+            Name = 'ADDRESS_LINE1'
+            DataType = datString
+            Size = 30
+          end
+          item
+            Name = 'ADDRESS_LINE2'
+            DataType = datString
+            Size = 30
+          end
+          item
+            Name = 'CITY'
+            DataType = datString
+            Size = 25
+          end
+          item
+            Name = 'STATE_PROVINCE'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'COUNTRY'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'POSTAL_CODE'
+            DataType = datString
+            Size = 12
+          end
+          item
+            Name = 'ON_HOLD'
+            DataType = datString
+            Size = 1
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Service_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Service_Impl.pas
new file mode 100644
index 0000000..fea959f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/GeneratorsSample_Service_Impl.pas	
@@ -0,0 +1,89 @@
+unit GeneratorsSample_Service_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} GeneratorsSample_Library_Intf, uDAClasses, uDADataStreamer,
+  uDABin2DataStreamer, uDAInterfaces;
+
+type
+  { TGeneratorsSample_Service }
+  TGeneratorsSample_Service = class(TDataAbstractService, IGeneratorsSample_Service)
+    DataStreamer: TDABin2DataStreamer;
+    Schema: TDASchema;
+    procedure DataAbstractServiceValidateDatasetAccess(Sender: TObject;
+      const aConnection: IDAConnection; const aDatasetName: String;
+      const aParamNames: array of String;
+      const aParamValues: array of Variant; aSchema: TDASchema;
+      var Allowed: Boolean);
+  private
+  protected
+    { IGeneratorsSample_Service methods }
+    function GetTableNames: StringArray;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} GeneratorsSample_Library_Invk;
+
+procedure Create_GeneratorsSample_Service(out anInstance : IUnknown);
+begin
+  anInstance := TGeneratorsSample_Service.Create(nil);
+end;
+
+{ GeneratorsSample_Service }
+function TGeneratorsSample_Service.GetTableNames: StringArray;
+var
+  i: integer;
+begin
+  Result := StringArray.Create();
+
+  for i := 0 to Schema.Datasets.Count - 1 do
+    Result.Add(Schema.Datasets[i].Name + ' (' + Schema.Datasets[i].Description + ')');
+end;
+
+procedure TGeneratorsSample_Service.DataAbstractServiceValidateDatasetAccess(
+  Sender: TObject; const aConnection: IDAConnection;
+  const aDatasetName: String; const aParamNames: array of String;
+  const aParamValues: array of Variant; aSchema: TDASchema;
+  var Allowed: Boolean);
+var
+  i: integer;
+  ConName: string;
+begin
+  ConName := '';
+
+  for i := 0 to aSchema.Datasets.Count - 1 do
+    if  AnsiSameText(aSchema.Datasets[i].Name, aDatasetName) then begin
+      ConName := aSchema.Datasets[i].Statements[0].Connection;
+      break;
+    end;
+
+  if  not AnsiSameText(ConName, aConnection.Name) then begin
+    Connection := aSchema.ConnectionManager.NewConnection(ConName);
+
+    for i := 0 to aSchema.ConnectionManager.Connections.Count - 1 do
+      aSchema.ConnectionManager.Connections[i].Default :=
+          AnsiSameText(aSchema.ConnectionManager.Connections[i].Name, ConName);
+  end;
+end;
+
+initialization
+  TROClassFactory.Create('GeneratorsSample_Service', Create_GeneratorsSample_Service, TGeneratorsSample_Service_Invoker);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/RODLFILE.res
new file mode 100644
index 0000000..a952c2e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Generators/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.Sample.html
new file mode 100644
index 0000000..6e6c2e4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.Sample.html	
@@ -0,0 +1,70 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Local Schema Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  A simple demo showing the use of several Data Abstract components to select/update
+  a range of Customer records.
+</p>
+<h2>Examine the Code</h2>
+<p>
+  The Data Abstract components on the form are:
+</p>
+  <ul>
+  <li>
+  <b>TDAConnectionManager</b>: examine its Connections property - this has a standard
+  collections property editor and <b>Connections[0].ConnectionString</b> supplies
+  an ADO connection to Northwind. If you change this to a different driver, you
+  will need to drop the appropriate driver on the form.
+  </li>
+  <li>
+  <b>TDADriverManager</b>: a singleton component that manages the drivers used by
+  the application. Set <b>AutoLoad</b> to <b>True</b> and <b>DriverDirectory</b>
+  to your folder containing <b>.DAD files</b> to be loaded when the application
+  starts.
+  </li>
+  <li>
+  <b>TDAADODriver</b>: supports ADO databases. You can drop other drivers
+  onto the
+  form, e.g. <b>TDAIBXDriver</b>, <b>TDADBXDriver</b> etc.
+  </li>
+  <li>
+  <b>TDABinDataStreamer</b>: handles the transfer of binary data packets. Note
+  the events provided - they allow you to access/modify the data packets before and
+  after transmission.
+  </li>
+  <li>
+  <b>TDASchema</b>: manages the datasets available. Double click on its icon to
+  invoke the <b>Schema Modeler</b>.
+  </li>
+  <li>
+  <b>TDABusinessProcessor</b>: handles dataset updates. Its <b>Schema</b>
+  component is set first followed by <b>ReferencedDataSet</b>.
+  </li>
+  <li>
+  <b>TDACDSDataTable</b>: a DataAbstract aware descendant of the standard ClientDataSet.
+  </li>
+  <li>
+  <b>TDADataSource</b>: a DataSource descendant that works with DataTables.
+  </li>
+  </ul>
+<p>
+  &nbsp;
+</p>
+<p>
+  &nbsp;
+</p>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.bdsproj
new file mode 100644
index 0000000..0010851
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{161FA349-0193-4AD0-808C-2C2636863CD6}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">LocalSchema.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.dpr
new file mode 100644
index 0000000..ca77be5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.dpr	
@@ -0,0 +1,14 @@
+program LocalSchema;
+
+uses
+  Forms,
+  LocalSchemaMain in 'LocalSchemaMain.pas' {LocalSchemaMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Manual DataTable fill';
+  Application.CreateForm(TLocalSchemaMainForm, LocalSchemaMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.dproj
new file mode 100644
index 0000000..50fbd00
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{836cc650-b903-40cd-bf94-647e264ddc3c}</ProjectGuid>
+    <MainSource>LocalSchema.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>LocalSchema.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">LocalSchema.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="LocalSchema.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="LocalSchemaMain.pas">
+      <Form>LocalSchemaMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchema.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchemaMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchemaMain.dfm
new file mode 100644
index 0000000..ee7d4e4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchemaMain.dfm	
@@ -0,0 +1,754 @@
+object LocalSchemaMainForm: TLocalSchemaMainForm
+  Left = 140
+  Top = 73
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'Local Schema Sample'
+  ClientHeight = 317
+  ClientWidth = 502
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 0
+    Top = 4
+    Width = 84
+    Height = 13
+    Caption = 'From CustomerID:'
+  end
+  object Label2: TLabel
+    Left = 217
+    Top = 4
+    Width = 74
+    Height = 13
+    Caption = 'To CustomerID:'
+  end
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 25
+    Width = 502
+    Height = 262
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = DataSource
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object eCust1: TEdit
+    Left = 88
+    Top = 0
+    Width = 121
+    Height = 21
+    TabOrder = 1
+    Text = 'ALFKI'
+  end
+  object eCust2: TEdit
+    Left = 296
+    Top = 0
+    Width = 121
+    Height = 21
+    TabOrder = 2
+    Text = 'BOTTM'
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 287
+    Width = 502
+    Height = 30
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 3
+    DesignSize = (
+      502
+      30)
+    object DBNavigator1: TDBNavigator
+      Left = 0
+      Top = 5
+      Width = 230
+      Height = 25
+      DataSource = DataSource
+      Anchors = [akLeft]
+      TabOrder = 0
+    end
+    object bOpenClose: TButton
+      Left = 240
+      Top = 5
+      Width = 75
+      Height = 25
+      Anchors = [akLeft]
+      Caption = 'Open/Close'
+      TabOrder = 1
+      OnClick = bOpenCloseClick
+    end
+    object bApplyUpdates: TButton
+      Left = 315
+      Top = 5
+      Width = 97
+      Height = 25
+      Anchors = [akLeft]
+      Caption = 'Apply Updates'
+      TabOrder = 2
+      OnClick = bApplyUpdatesClick
+    end
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 24
+    Top = 152
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = 'C:\Dev\DataAbstract\Bin\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 56
+    Top = 152
+  end
+  object ADODriver: TDAADODriver
+    Left = 88
+    Top = 152
+  end
+  object BINAdapter: TDABinDataStreamer
+    Left = 120
+    Top = 152
+  end
+  object DataSource: TDADataSource
+    DataTable = DataTable
+    Left = 72
+    Top = 200
+  end
+  object DataTable: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datString
+        Size = 40
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactName'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Phone'
+        DataType = datString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Fax'
+        DataType = datString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'CustA'
+        DataType = datString
+        BlobType = dabtUnknown
+        ParamType = daptInput
+      end
+      item
+        Name = 'CustB'
+        DataType = datString
+        BlobType = dabtUnknown
+        ParamType = daptInput
+      end>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    LocalSchema = DASchema
+    LocalDataStreamer = BINAdapter
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 64
+    Top = 192
+  end
+  object DASchema: TDASchema
+    ConnectionManager = ConnectionManager
+    Datasets = <
+      item
+        Params = <
+          item
+            Name = 'CustA'
+            DataType = datString
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'CustB'
+            DataType = datString
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'#10'  WHERE CustomerID>=:CustA and CustomerID<' +
+              '=:CustB'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'TestNumeric'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'INSERT'#10'  INTO Customers'#10'    (CustomerID, CompanyName, ContactNam' +
+              'e, ContactTitle, Address, City, Region, PostalCode, Country, Pho' +
+              'ne, Fax, TestNumeric)'#10'  VALUES'#10'    (:CustomerID, :CompanyName, :' +
+              'ContactName, :ContactTitle, :Address, :City, :Region, :PostalCod' +
+              'e, :Country, :Phone, :Fax, :TestNumeric)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'DELETE '#10'  FROM'#10'    Customers'#10'  WHERE'#10'    (CustomerID = :OLD_Cust' +
+              'omerID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'TestNumeric'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'OLD_CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'UPDATE Customers'#10'  SET '#10'    CustomerID = :CustomerID, '#10'    Compa' +
+              'nyName = :CompanyName, '#10'    ContactName = :ContactName, '#10'    Con' +
+              'tactTitle = :ContactTitle, '#10'    Address = :Address, '#10'    City = ' +
+              ':City, '#10'    Region = :Region, '#10'    PostalCode = :PostalCode, '#10'  ' +
+              '  Country = :Country, '#10'    Phone = :Phone, '#10'    Fax = :Fax, '#10'   ' +
+              ' TestNumeric = :TestNumeric'#10'  WHERE'#10'    (CustomerID = :OLD_Custo' +
+              'merID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Customers'
+      end>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 160
+    Top = 152
+  end
+  object BusinessProcessor: TDABusinessProcessor
+    Schema = DASchema
+    ReferencedDataset = 'Customers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 112
+    Top = 200
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchemaMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchemaMain.pas
new file mode 100644
index 0000000..b1f750a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Local Schema/LocalSchemaMain.pas	
@@ -0,0 +1,62 @@
+unit LocalSchemaMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDAEngine, uDAADODriver, uDADriverManager, uDAClasses,
+  uDADataTable, uDABINAdapter, uDACDSDataTable, DB, StdCtrls, ExtCtrls,
+  DBCtrls, Grids, DBGrids, uDABusinessProcessor, uDAScriptingProvider,
+  uDADataStreamer;
+
+type
+  TLocalSchemaMainForm = class(TForm)
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    BINAdapter: TDABinDataStreamer;
+    DataSource: TDADataSource;
+    DataTable: TDACDSDataTable;
+    DBGrid1: TDBGrid;
+    BusinessProcessor: TDABusinessProcessor;
+    eCust1: TEdit;
+    eCust2: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    ConnectionManager: TDAConnectionManager;
+    Panel1: TPanel;
+    DBNavigator1: TDBNavigator;
+    bOpenClose: TButton;
+    bApplyUpdates: TButton;
+    DASchema: TDASchema;
+    procedure bOpenCloseClick(Sender: TObject);
+    procedure bApplyUpdatesClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  LocalSchemaMainForm: TLocalSchemaMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TLocalSchemaMainForm.bOpenCloseClick(Sender: TObject);
+begin
+  if not DataTable.Active then begin
+    DataTable.ParamByName('CustA').AsString := eCust1.Text;
+    DataTable.ParamByName('CustB').AsString := eCust2.Text;
+  end;
+
+  DataTable.Active := DataTable.Active xor TRUE;
+end;
+
+procedure TLocalSchemaMainForm.bApplyUpdatesClick(Sender: TObject);
+begin
+  BusinessProcessor.ProcessDelta(DataTable, AllChanges);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.Sample.html
new file mode 100644
index 0000000..2c21f56
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.Sample.html	
@@ -0,0 +1,33 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Login Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+  This example shows how to provide a simple Login.<br>
+</p>
+<p>  
+  The login data is held in Northwind's Employees table, with the <i>FirstName</i> and <i>LastName</i> fields used for <b>UserName</b> and <b>Password</b> respectively.
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   See the simple code within <b>LoginService_Impl.pas</b>.
+	</li>
+</ul>
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.bdsgroup
new file mode 100644
index 0000000..ca45e64
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{4FDDB7A3-5E2A-4153-98B3-52EA4E5D3A7D}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="LoginSample_server.exe">LoginSample_server.bdsproj</Projects>
+      <Projects Name="LoginSample_Client.exe">LoginSample_Client.bdsproj</Projects>
+      <Projects Name="Targets">LoginSample_server.exe LoginSample_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.bpg
new file mode 100644
index 0000000..f74198c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = LoginSample_server.exe LoginSample_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+LoginSample_server.exe: LoginSample_server.dpr
+  $(DCC)
+
+LoginSample_Client.exe: LoginSample_Client.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.groupproj
new file mode 100644
index 0000000..e9204af
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{72af6019-78ce-45df-b5c2-80318d022ad3}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="LoginSample_server">
+    <MSBuild Projects="LoginSample_server.dproj" Targets="" />
+  </Target>
+  <Target Name="LoginSample_server:Clean">
+    <MSBuild Projects="LoginSample_server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="LoginSample_server:Make">
+    <MSBuild Projects="LoginSample_server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="LoginSample_Client">
+    <MSBuild Projects="LoginSample_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="LoginSample_Client:Clean">
+    <MSBuild Projects="LoginSample_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="LoginSample_Client:Make">
+    <MSBuild Projects="LoginSample_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="LoginSample_server;LoginSample_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="LoginSample_server:Clean;LoginSample_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="LoginSample_server:Make;LoginSample_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary.RODL
new file mode 100644
index 0000000..2daa08c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary.RODL	
@@ -0,0 +1,23 @@
+<Library Name="LoginSampleLibrary" UID="{8923B665-D147-4E49-B262-59B91DE7EF10}">
+  <Services>
+    <Service Name="LoginSampleService" UID="{CCACFD41-4FC7-4131-95BF-953CAE54E407}" Ancestor="DataAbstractService">
+      <Interfaces>
+         <Interface Name="Default" UID="{B3131769-5008-4AAE-A339-A65950032EEE}">
+            <Operations>
+            </Operations>
+         </Interface>
+      </Interfaces>
+    </Service>
+    <Service Name="LoginService" UID="{AC9442A0-434F-4435-8E65-8C5185E2C407}" Ancestor="SimpleLoginService">
+      <Interfaces>
+        <Interface Name="Default" UID="{4E74056F-733F-4415-81D2-D8E7297C9EC2}">
+          <Operations>
+          </Operations>
+        </Interface>
+      </Interfaces>
+    </Service>
+  </Services>
+  <Uses>
+     <Use Name="DataAbstract" UID="{C2B432EE-98E8-40C4-9838-4EBF8EB9BDE7}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" />
+  </Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary_Intf.pas
new file mode 100644
index 0000000..aaa5a30
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary_Intf.pas	
@@ -0,0 +1,109 @@
+unit LoginSampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{8923B665-D147-4E49-B262-59B91DE7EF10}';
+
+  { Service Interface ID's }
+  ILoginSampleService_IID : TGUID = '{B3131769-5008-4AAE-A339-A65950032EEE}';
+  ILoginService_IID : TGUID = '{4E74056F-733F-4415-81D2-D8E7297C9EC2}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  ILoginSampleService = interface;
+  ILoginService = interface;
+
+
+
+
+  { ILoginSampleService }
+  ILoginSampleService = interface(IDataAbstractService)
+    ['{B3131769-5008-4AAE-A339-A65950032EEE}']
+  end;
+
+  { CoLoginSampleService }
+  CoLoginSampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginSampleService;
+  end;
+
+  { TLoginSampleService_Proxy }
+  TLoginSampleService_Proxy = class(TDataAbstractService_Proxy, ILoginSampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+  { ILoginService }
+  ILoginService = interface(ISimpleLoginService)
+    ['{4E74056F-733F-4415-81D2-D8E7297C9EC2}']
+  end;
+
+  { CoLoginService }
+  CoLoginService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginService;
+  end;
+
+  { TLoginService_Proxy }
+  TLoginService_Proxy = class(TSimpleLoginService_Proxy, ILoginService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoLoginSampleService }
+
+class function CoLoginSampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginSampleService;
+begin
+  result := TLoginSampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TLoginSampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'LoginSampleService';
+end;
+
+{ CoLoginService }
+
+class function CoLoginService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginService;
+begin
+  result := TLoginService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TLoginService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'LoginService';
+end;
+
+initialization
+  RegisterProxyClass(ILoginSampleService_IID, TLoginSampleService_Proxy);
+  RegisterProxyClass(ILoginService_IID, TLoginService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(ILoginSampleService_IID);
+  UnregisterProxyClass(ILoginService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary_Invk.pas
new file mode 100644
index 0000000..5997211
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleLibrary_Invk.pas	
@@ -0,0 +1,38 @@
+unit LoginSampleLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} LoginSampleLibrary_Intf;
+
+type
+  TLoginSampleService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+  TLoginService_Invoker = class(TSimpleLoginService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleService_Impl.dfm
new file mode 100644
index 0000000..f91ab57
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleService_Impl.dfm	
@@ -0,0 +1,335 @@
+object LoginSampleService: TLoginSampleService
+  OldCreateOrder = True
+  RequiresSession = True
+  SessionManager = LoginSample_ServerDataModule.SessionManager
+  AcquireConnection = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Left = 357
+  Top = 213
+  Height = 212
+  Width = 216
+  object DataStreamer: TDABinDataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = LoginSample_ServerDataModule.ConnectionManager
+    DataDictionary = LoginSample_ServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Employees'
+            SQL = 
+              'SELECT '#10'    EmployeeID, LastName, FirstName, Title, TitleOfCourt' +
+              'esy, '#10'    BirthDate, HireDate, Address, City, Region, PostalCode' +
+              ', '#10'    Country, HomePhone, Extension, Photo, Notes, ReportsTo, '#10 +
+              '    PhotoPath'#10'  FROM'#10'    Employees'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'Title'
+                TableField = 'Title'
+              end
+              item
+                DatasetField = 'TitleOfCourtesy'
+                TableField = 'TitleOfCourtesy'
+              end
+              item
+                DatasetField = 'BirthDate'
+                TableField = 'BirthDate'
+              end
+              item
+                DatasetField = 'HireDate'
+                TableField = 'HireDate'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'HomePhone'
+                TableField = 'HomePhone'
+              end
+              item
+                DatasetField = 'Extension'
+                TableField = 'Extension'
+              end
+              item
+                DatasetField = 'Photo'
+                TableField = 'Photo'
+              end
+              item
+                DatasetField = 'Notes'
+                TableField = 'Notes'
+              end
+              item
+                DatasetField = 'ReportsTo'
+                TableField = 'ReportsTo'
+              end
+              item
+                DatasetField = 'PhotoPath'
+                TableField = 'PhotoPath'
+              end>
+          end>
+        Name = 'Employees'
+        Fields = <
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'LastName'
+            DataType = datWideString
+            Size = 20
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'FirstName'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Title'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'TitleOfCourtesy'
+            DataType = datWideString
+            Size = 25
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'BirthDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'HireDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'HomePhone'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Extension'
+            DataType = datWideString
+            Size = 4
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Photo'
+            DataType = datBlob
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Notes'
+            DataType = datMemo
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ReportsTo'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PhotoPath'
+            DataType = datWideString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <
+      item
+        Name = 'FK_Employees_Employees'
+        MasterDatasetName = 'Employees'
+        MasterFields = 'EmployeeID'
+        DetailDatasetName = 'Employees'
+        DetailFields = 'ReportsTo'
+      end>
+    UpdateRules = <>
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleService_Impl.pas
new file mode 100644
index 0000000..b003b0b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSampleService_Impl.pas	
@@ -0,0 +1,37 @@
+unit LoginSampleService_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABinAdapter, uDAInterfaces, uDADataStreamer,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} LoginSampleLibrary_Intf;
+
+type
+  { TLoginSampleService }
+  TLoginSampleService = class(TDataAbstractService, ILoginSampleService)
+    DataStreamer: TDABinDataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { ILoginSampleService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} LoginSampleLibrary_Invk, LoginSample_ServerData;
+
+procedure Create_LoginSampleService(out anInstance: IUnknown);
+begin
+  anInstance := TLoginSampleService.Create(nil);
+end;
+
+initialization
+  TROClassFactory.Create('LoginSampleService', Create_LoginSampleService, TLoginSampleService_Invoker);
+finalization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.bdsproj
new file mode 100644
index 0000000..42fff79
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{AD87FA11-2CDF-46DC-8112-52563977B13C}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">LoginSample_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.dpr
new file mode 100644
index 0000000..56feae1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.dpr	
@@ -0,0 +1,18 @@
+program LoginSample_Client;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  LoginSample_ClientMain in 'LoginSample_ClientMain.pas' {LoginSample_ClientMainForm},
+  LoginSample_ClientData in 'LoginSample_ClientData.pas' {LoginSample_ClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'LoginSample Client';
+  Application.CreateForm(TLoginSample_ClientDataModule, LoginSample_ClientDataModule);
+  Application.CreateForm(TLoginSample_ClientMainForm, LoginSample_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.dproj
new file mode 100644
index 0000000..d1dfafd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{fb47079d-d00b-4688-901d-b23e72791c7b}</ProjectGuid>
+    <MainSource>LoginSample_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>LoginSample_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">LoginSample_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="LoginSample_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="LoginSample_ClientData.pas">
+      <Form>LoginSample_ClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="LoginSample_ClientMain.pas">
+      <Form>LoginSample_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientData.dfm
new file mode 100644
index 0000000..262f235
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientData.dfm	
@@ -0,0 +1,100 @@
+object LoginSample_ClientDataModule: TLoginSample_ClientDataModule
+  OldCreateOrder = True
+  Left = 81
+  Top = 16
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    ServiceName = 'LoginSampleService'
+    Message = Message
+    Channel = Channel
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABinDataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetSchemaCall.MethodName = 'GetSchema'
+    GetSchemaCall.Params = <
+      item
+        Name = 'aFilter'
+        DataType = rtString
+        Flag = fIn
+        Value = Null
+      end
+      item
+        Name = 'Result'
+        DataType = rtString
+        Flag = fResult
+        Value = Null
+      end>
+    GetSchemaCall.Default = False
+    GetSchemaCall.IncomingSchemaParameter = 'Result'
+    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
+    GetDataCall.RemoteService = RemoteService
+    GetDataCall.MethodName = 'GetData'
+    GetDataCall.Params = <
+      item
+        Name = 'aTableNameArray'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'StringArray'
+        Value = Null
+      end
+      item
+        Name = 'aTableRequestInfoArray'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'TableRequestInfoArray'
+        Value = Null
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end>
+    GetDataCall.Default = False
+    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
+    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
+    GetDataCall.IncomingDataParameter = 'Result'
+    UpdateDataCall.RemoteService = RemoteService
+    UpdateDataCall.MethodName = 'UpdateData'
+    UpdateDataCall.Params = <
+      item
+        Name = 'aDelta'
+        DataType = rtBinary
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    UpdateDataCall.Default = False
+    UpdateDataCall.OutgoingDeltaParameter = 'aDelta'
+    UpdateDataCall.IncomingDeltaParameter = 'Result'
+    GetScriptsCall.RemoteService = RemoteService
+    GetScriptsCall.Params = <>
+    GetScriptsCall.Default = False
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 183
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientData.pas
new file mode 100644
index 0000000..8bae154
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientData.pas	
@@ -0,0 +1,31 @@
+unit LoginSample_ClientData;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
+  uDADataStreamer, uDARemoteDataAdapter;
+
+type
+  TLoginSample_ClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABinDataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  LoginSample_ClientDataModule: TLoginSample_ClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientMain.dfm
new file mode 100644
index 0000000..96a47de
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientMain.dfm	
@@ -0,0 +1,320 @@
+object LoginSample_ClientMainForm: TLoginSample_ClientMainForm
+  Left = 357
+  Top = 264
+  AutoScroll = False
+  Caption = 'LoginSample Client'
+  ClientHeight = 174
+  ClientWidth = 482
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 7
+    Top = 17
+    Width = 56
+    Height = 13
+    Caption = '&User Name:'
+    FocusControl = edUsername
+  end
+  object Label2: TLabel
+    Left = 7
+    Top = 60
+    Width = 49
+    Height = 13
+    Caption = '&Password:'
+    FocusControl = edPassword
+  end
+  object edPassword: TEdit
+    Left = 7
+    Top = 78
+    Width = 155
+    Height = 21
+    TabOrder = 1
+    Text = 'davolio'
+  end
+  object edUsername: TEdit
+    Left = 7
+    Top = 35
+    Width = 155
+    Height = 21
+    TabOrder = 0
+    Text = 'nancy'
+  end
+  object LoginButton: TButton
+    Left = 7
+    Top = 102
+    Width = 75
+    Height = 22
+    Caption = 'Login'
+    TabOrder = 2
+    OnClick = LoginButtonClick
+  end
+  object LogoutButton: TButton
+    Left = 87
+    Top = 102
+    Width = 75
+    Height = 22
+    Caption = 'Logout'
+    Enabled = False
+    TabOrder = 3
+    OnClick = LogoutButtonClick
+  end
+  object Grid: TDBGrid
+    Left = 171
+    Top = 34
+    Width = 303
+    Height = 132
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = DataSource
+    TabOrder = 5
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object FillButton: TButton
+    Left = 172
+    Top = 6
+    Width = 75
+    Height = 22
+    Caption = 'Fill'
+    Enabled = False
+    TabOrder = 4
+    OnClick = FillButtonClick
+  end
+  object DataTable: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'EmployeeID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'LastName'
+        DataType = datWideString
+        Size = 20
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FirstName'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Title'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'TitleOfCourtesy'
+        DataType = datWideString
+        Size = 25
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'BirthDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'HireDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'HomePhone'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Extension'
+        DataType = datWideString
+        Size = 4
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Photo'
+        DataType = datBlob
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Notes'
+        DataType = datMemo
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ReportsTo'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PhotoPath'
+        DataType = datWideString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
+    RemoteDataAdapter = LoginSample_ClientDataModule.RemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Employees'
+    IndexDefs = <>
+    Left = 336
+    Top = 13
+  end
+  object DataSource: TDADataSource
+    DataTable = DataTable
+    Left = 345
+    Top = 21
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientMain.pas
new file mode 100644
index 0000000..35151d4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ClientMain.pas	
@@ -0,0 +1,98 @@
+unit LoginSample_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,
+  DataAbstract4_Intf, LoginSampleLibrary_Intf, DB, uDADataTable,
+  uDAScriptingProvider, uDACDSDataTable, Grids, DBGrids;
+
+type
+  TLoginSample_ClientMainForm = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
+    edPassword: TEdit;
+    edUsername: TEdit;
+    LoginButton: TButton;
+    LogoutButton: TButton;
+    Grid: TDBGrid;
+    DataTable: TDACDSDataTable;
+    DataSource: TDADataSource;
+    FillButton: TButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure LoginButtonClick(Sender: TObject);
+    procedure LogoutButtonClick(Sender: TObject);
+    procedure FillButtonClick(Sender: TObject);
+  private
+    fLoggedIn: Boolean;
+    fUserInfo: UserInfo;
+    fLogin: ILoginService;
+  protected
+    procedure Login;
+    procedure Logout;
+  public
+    { Public declarations }
+  end;
+
+var
+  LoginSample_ClientMainForm: TLoginSample_ClientMainForm;
+
+implementation
+
+uses
+  LoginSample_ClientData;
+
+{$R *.dfm}
+
+procedure TLoginSample_ClientMainForm.FormShow(Sender: TObject);
+begin
+  with LoginSample_ClientDataModule do
+    fLogin := CoLoginService.Create(Message, Channel);
+end;
+
+procedure TLoginSample_ClientMainForm.FormDestroy(Sender: TObject);
+begin
+  Logout;
+end;
+
+procedure TLoginSample_ClientMainForm.Login;
+begin
+  FreeAndNil(fUserInfo);
+  fLoggedIn := fLogin.Login(edUsername.Text, edPassword.Text, fUserInfo);
+  if not fLoggedIn then ShowMessage('Login failed!');
+end;
+
+procedure TLoginSample_ClientMainForm.Logout;
+begin
+  if fLoggedIn then begin
+    fLogin.Logout();
+    fLoggedIn := false;
+  end;
+end;
+
+procedure TLoginSample_ClientMainForm.LoginButtonClick(Sender: TObject);
+begin
+  Login;
+  LoginButton.Enabled := not fLoggedIn;
+  LogoutButton.Enabled := fLoggedIn;
+  FillButton.Enabled := fLoggedIn;
+end;
+
+procedure TLoginSample_ClientMainForm.LogoutButtonClick(Sender: TObject);
+begin
+  Logout;
+  if not fLoggedIn then DataTable.Active := False;
+  LoginButton.Enabled := not fLoggedIn;
+  LogoutButton.Enabled := fLoggedIn;
+  FillButton.Enabled := fLoggedIn;
+end;
+
+procedure TLoginSample_ClientMainForm.FillButtonClick(Sender: TObject);
+begin
+  DataTable.Active := True;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerData.dfm
new file mode 100644
index 0000000..66c3ed1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerData.dfm	
@@ -0,0 +1,63 @@
+object LoginSample_ServerDataModule: TLoginSample_ServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 39
+  Top = 15
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 34
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerData.pas
new file mode 100644
index 0000000..ede8501
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerData.pas	
@@ -0,0 +1,41 @@
+unit LoginSample_ServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+   uDAADODriver, uROIndyTCPServer;
+
+type
+  TLoginSample_ServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    SessionManager: TROInMemorySessionManager;
+    DataDictionary: TDADataDictionary;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  LoginSample_ServerDataModule: TLoginSample_ServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TLoginSample_ServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerMain.dfm
new file mode 100644
index 0000000..7bd4f12
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerMain.dfm	
@@ -0,0 +1,21 @@
+object LoginSample_ServerMainForm: TLoginSample_ServerMainForm
+  Left = 95
+  Top = 46
+  BorderStyle = bsDialog
+  Caption = 'LoginSample Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerMain.pas
new file mode 100644
index 0000000..301ddbd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_ServerMain.pas	
@@ -0,0 +1,25 @@
+unit LoginSample_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TLoginSample_ServerMainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  LoginSample_ServerMainForm: TLoginSample_ServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.bdsproj
new file mode 100644
index 0000000..41de46c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1E20D17E-000D-4A23-8FA1-4C9C6A4EAE92}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">LoginSample_server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.dpr
new file mode 100644
index 0000000..4c39cb0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.dpr	
@@ -0,0 +1,25 @@
+program LoginSample_server;
+
+{#ROGEN:LoginSampleLibrary.RODL}// RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  LoginSample_ServerMain in 'LoginSample_ServerMain.pas' {LoginSample_ServerMainForm},
+  LoginSampleService_Impl in 'LoginSampleService_Impl.pas' {LoginSampleService: TDARemoteService},
+  LoginSample_ServerData in 'LoginSample_ServerData.pas' {LoginSample_ServerDataModule: TDataModule},
+  LoginService_Impl in 'LoginService_Impl.pas' {LoginService: TSimpleLoginService},
+  LoginSampleLibrary_Intf in 'LoginSampleLibrary_Intf.pas',
+  LoginSampleLibrary_Invk in 'LoginSampleLibrary_Invk.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'LoginSample Server';
+  Application.CreateForm(TLoginSample_ServerDataModule, LoginSample_ServerDataModule);
+  Application.CreateForm(TLoginSample_ServerMainForm, LoginSample_ServerMainForm);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.dproj
new file mode 100644
index 0000000..ddd98bb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.dproj	
@@ -0,0 +1,89 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{ae701f0a-2268-47e6-b890-c7deb4753af7}</ProjectGuid>
+    <MainSource>LoginSample_server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>LoginSample_server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">LoginSample_server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="LoginSample_server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="LoginSampleLibrary_Intf.pas" />
+    <DCCReference Include="LoginSampleLibrary_Invk.pas" />
+    <DCCReference Include="LoginSampleService_Impl.pas">
+      <Form>LoginSampleService</Form>
+    </DCCReference>
+    <DCCReference Include="LoginSample_ServerData.pas">
+      <Form>LoginSample_ServerDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="LoginSample_ServerMain.pas">
+      <Form>LoginSample_ServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="LoginService_Impl.pas">
+      <Form>LoginService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginSample_server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginService_Impl.dfm
new file mode 100644
index 0000000..8d58d0a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginService_Impl.dfm	
@@ -0,0 +1,66 @@
+object LoginService: TLoginService
+  OldCreateOrder = True
+  SessionManager = LoginSample_ServerDataModule.SessionManager
+  OnLogout = SimpleLoginServiceLogout
+  OnLogin = SimpleLoginServiceLogin
+  Left = 321
+  Top = 216
+  Height = 96
+  Width = 188
+  object Schema: TDASchema
+    ConnectionManager = LoginSample_ServerDataModule.ConnectionManager
+    DataDictionary = LoginSample_ServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <
+          item
+            Name = 'UserId'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Pass'
+            DataType = datWideString
+            Size = 20
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'ValidateLogin'
+            SQL = 
+              'SELECT Count(*) as Cnt FROM Employees WHERE (FirstName = :UserId' +
+              ') AND (LastName = :Pass)'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Cnt'
+                TableField = 'Cnt'
+              end>
+          end>
+        Name = 'ValidateLogin'
+        Fields = <
+          item
+            Name = 'Cnt'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 17
+    Top = 12
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginService_Impl.pas
new file mode 100644
index 0000000..f29bd8d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/LoginService_Impl.pas	
@@ -0,0 +1,77 @@
+unit LoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} SimpleLoginService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} LoginSampleLibrary_Intf, uDAClasses;
+
+type
+  { TLoginService }
+  TLoginService = class(TSimpleLoginService, ILoginService)
+    Schema: TDASchema;
+    procedure SimpleLoginServiceLogout(Sender: TObject);
+    procedure SimpleLoginServiceLogin(Sender: TObject; aUserID,
+      aPassword: UTF8string; out aUserInfo: UserInfo;
+      var aLoginSuccessful: Boolean);
+  private
+  protected
+    { ILoginService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} LoginSampleLibrary_Invk, LoginSample_ServerData, uRORemoteDataModule, uDAInterfaces;
+
+procedure Create_LoginService(out anInstance: IUnknown);
+begin
+  anInstance := TLoginService.Create(nil);
+end;
+
+{ LoginService }
+
+procedure TLoginService.SimpleLoginServiceLogin(Sender: TObject; aUserID,
+  aPassword: UTF8string; out aUserInfo: UserInfo;
+  var aLoginSuccessful: Boolean);
+var
+  cmd: IDADataset;
+begin
+  cmd := Schema.NewDataset(Schema.ConnectionManager.NewConnection(Schema.ConnectionManager.GetDefaultConnectionName), 'ValidateLogin', ['UserId', 'Pass'], [aUserID, aPassword]);
+  cmd.Open;
+
+  aLoginSuccessful := (cmd.Fields[0].AsInteger <> 0);
+  if (ALoginSuccessful) then begin
+    aUserInfo := UserInfo.Create;
+    aUserInfo.SessionID := GuidToString(ClientID);
+    aUserInfo.UserID := aUserID;
+    Session['UserID'] := aUserID;
+  end
+  else begin
+    DestroySession;
+  end;
+end;
+
+procedure TLoginService.SimpleLoginServiceLogout(Sender: TObject);
+begin
+  DestroySession;
+end;
+
+initialization
+  TROClassFactory.Create('LoginService', Create_LoginService, TLoginService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/RODLFILE.res
new file mode 100644
index 0000000..1643ed4
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Login Sample/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/LoginService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/LoginService_Impl.dfm
new file mode 100644
index 0000000..752ea72
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/LoginService_Impl.dfm	
@@ -0,0 +1,185 @@
+object LoginService: TLoginService
+  OldCreateOrder = True
+  SessionManager = MegaDemoServer_DataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = BinDataStreamer
+  ExportedDataTables = <>
+  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+  Left = 170
+  Top = 200
+  Height = 124
+  Width = 208
+  object Schema: TDASchema
+    ConnectionManager = MegaDemoServer_DataModule.ConnectionManager
+    DataDictionary = MegaDemoServer_DataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <
+          item
+            Name = 'UserName'
+            DataType = datString
+            Size = 20
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'Password'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'Employees'
+            TargetTable = 'EMPLOYEE'
+            SQL = 
+              'SELECT'#10'  E.EMP_NO, E.FIRST_NAME, E.LAST_NAME, J.JOB_TITLE'#10#10'FROM'#10 +
+              '  EMPLOYEE E'#10'  '#10'JOIN JOB J ON'#10'  (J.JOB_CODE=E.JOB_CODE) AND'#10'  (J' +
+              '.JOB_GRADE=E.JOB_GRADE) AND'#10'  (J.JOB_COUNTRY='#39'USA'#39')'#10'            ' +
+              '  '#10'WHERE'#10'  E.FIRST_NAME=:UserName AND'#10'  E.LAST_NAME=:Password'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EMP_NO'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FIRST_NAME'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LAST_NAME'
+              end
+              item
+                DatasetField = 'JobTitle'
+                TableField = 'JOB_TITLE'
+              end>
+          end
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Employees'
+            SQL = 
+              'SELECT Emps.EmployeeID, Emps.FirstName, Emps.LastName, Emps.Titl' +
+              'e'#10'FROM Employees Emps'#10'WHERE Emps.FirstName=:UserName AND Emps.La' +
+              'stName=:Password'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'JobTitle'
+                TableField = 'Title'
+              end>
+          end>
+        Name = 'FindEmployee'
+        Description = 
+          'Query that validates a username and password against the first n' +
+          'ame and last name of the employees in the target databases'
+        Fields = <
+          item
+            Name = 'EmployeeID'
+            DataType = datAutoInc
+            Description = 'A numeric number used to reference the employee in other tables'
+            BlobType = dabtUnknown
+            GeneratorName = 'EMP_NO_GEN'
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            DisplayLabel = 'Employee ID'
+            Alignment = taLeftJustify
+            ServerAutoRefresh = True
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'FirstName'
+            DataType = datString
+            Size = 10
+            Description = 'The employee'#39's first name'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            DisplayLabel = 'First Name'
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'LastName'
+            DataType = datString
+            Size = 20
+            Description = 'The employee'#39's last name'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            DisplayLabel = 'Last Name'
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'JobTitle'
+            DataType = datString
+            Size = 25
+            Description = 'The employee'#39's job title'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            DisplayLabel = 'Job Title'
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 28
+    Top = 11
+  end
+  object BinDataStreamer: TDABinDataStreamer
+    BufferSize = 262144
+    Left = 77
+    Top = 12
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/LoginService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/LoginService_Impl.pas
new file mode 100644
index 0000000..6d20988
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/LoginService_Impl.pas	
@@ -0,0 +1,111 @@
+unit LoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} MegaDemoLibrary_Intf, uDADataStreamer, uDABinAdapter,
+  uDAClasses, uDAInterfaces;
+
+type
+  { TLoginService }
+  TLoginService = class(TDataAbstractService, ILoginService)
+    BinDataStreamer: TDABinDataStreamer;
+    Schema: TDASchema;
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+      var aConnectionName: string);
+  private
+  protected
+    { ILoginService methods }
+    function Login(const UserName: Ansistring; const Password: Ansistring; out aLoginInfo: LoginInfo): Boolean;
+    procedure Logout;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} MegaDemoLibrary_Invk, MegaDemoServer_Data, MegaDemoServer_Main;
+
+procedure Create_LoginService(out anInstance: IUnknown);
+begin
+  anInstance := TLoginService.Create(nil);
+end;
+
+{ LoginService }
+
+function TLoginService.Login(const UserName: Ansistring; const Password: Ansistring; out aLoginInfo: LoginInfo): Boolean;
+var
+  jobTitle, Upper_jobTitle: string;
+  loginReader: IDADataset;
+begin
+  aLoginInfo := nil;
+  loginReader := Schema.NewDataset(Connection, 'FindEmployee', ['UserName', 'Password'], [UserName, Password]);
+  jobTitle := '';
+  try
+    if (loginReader.IsEmpty) then begin
+      DestroySession;
+      Result := false;
+    end
+    else begin
+      aLoginInfo := LoginInfo.Create;
+
+      // Prepares the LoginInfo struct that will be sent back to the client
+      aLoginInfo.EmployeeID := loginReader.Fields[0].AsInteger;
+      aLoginInfo.FirstName := loginReader.Fields[1].AsString;
+      aLoginInfo.LastName := loginReader.Fields[2].AsString;
+
+      // Determines the job type by parsing the JobTitle returned
+      jobTitle := loginReader.Fields[3].AsString;
+      Upper_jobTitle := UpperCase(jobTitle);
+      if Pos('PRESIDENT', Upper_jobTitle) >= 1 then aLoginInfo.Job_Type := JobType_Manager
+      else if Pos('MANAGER', Upper_jobTitle) >= 1 then aLoginInfo.Job_Type := JobType_Manager
+      else if Pos('SALES', Upper_jobTitle) >= 1 then aLoginInfo.Job_Type := JobType_SalesRep
+      else if Pos('CHIEF', Upper_jobTitle) >= 1 then aLoginInfo.Job_Type := JobType_Manager
+      else aLoginInfo.Job_Type := JobType_Engineer;
+
+      aLoginInfo.JobTitle := jobTitle;
+      aLoginInfo.SessionID := GUIDToString(Session.SessionID);
+
+      // Saves information in the current session for the other services to use
+      Session['EmployeeID'] := aLoginInfo.EmployeeID;
+      Session['JobType'] := aLoginInfo.Job_Type;
+
+      Result := true;
+    end
+  finally
+    if loginReader.Active then loginReader.Close;
+    if Connection.InTransaction then Connection.CommitTransaction;
+  end;
+end;
+
+procedure TLoginService.Logout;
+begin
+  DestroySession;
+end;
+
+procedure TLoginService.DataAbstractServiceBeforeAcquireConnection(
+  aSender: TObject; var aConnectionName: string);
+begin
+  // Reads the connection name from the main form.
+  aConnectionName := MegaDemoServer_MainForm.GetSelectedConnectionName;
+end;
+
+initialization
+  TROClassFactory.Create('LoginService', Create_LoginService, TLoginService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.bdsproj
new file mode 100644
index 0000000..6717d6f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{51BD99B5-3570-4BED-8E0D-1D9635157B88}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MegaDemoClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.dpr
new file mode 100644
index 0000000..24b238b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.dpr	
@@ -0,0 +1,17 @@
+program MegaDemoClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  MegaDemoClient_Main in 'MegaDemoClient_Main.pas' {MegaDemoClient_MainForm},
+  MegaDemoClient_Data in 'MegaDemoClient_Data.pas' {MegaDemoClient_DataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMegaDemoClient_DataModule, MegaDemoClient_DataModule);
+  Application.CreateForm(TMegaDemoClient_MainForm, MegaDemoClient_MainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.dproj
new file mode 100644
index 0000000..0ac5fa1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{691439f0-e360-44b6-972b-b2ffccfc5582}</ProjectGuid>
+    <MainSource>MegaDemoClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MegaDemoClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MegaDemoClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MegaDemoClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MegaDemoClient_Data.pas">
+      <Form>MegaDemoClient_DataModule</Form>
+    </DCCReference>
+    <DCCReference Include="MegaDemoClient_Main.pas">
+      <Form>MegaDemoClient_MainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Data.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Data.dfm
new file mode 100644
index 0000000..20f84ec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Data.dfm	
@@ -0,0 +1,236 @@
+object MegaDemoClient_DataModule: TMegaDemoClient_DataModule
+  OldCreateOrder = True
+  OnCreate = DataModuleCreate
+  OnDestroy = DataModuleDestroy
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'OrdersService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABinDataStreamer
+    Left = 40
+    Top = 140
+  end
+  object rdaCustomers: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 195
+    Top = 119
+  end
+  object tbl_Customers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        Description = 'The customer'#39's code'
+        BlobType = dabtUnknown
+        GeneratorName = 'CUST_NO_GEN'
+        DisplayWidth = 0
+        DisplayLabel = 'Customer ID'
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CustomerName'
+        DataType = datString
+        Size = 40
+        Description = 'The customer'#39's name'
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Name'
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datString
+        Size = 25
+        Description = 'The customer'#39's city'
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rdaCustomers
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 167
+    Top = 119
+  end
+  object ds_Customers: TDADataSource
+    DataSet = tbl_Customers.Dataset
+    DataTable = tbl_Customers
+    Left = 140
+    Top = 119
+  end
+  object tbl_OrdersByCustomer: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        Description = 'The identifier of the customer that placed this order'
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Customer ID'
+        ReadOnly = True
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+        Description = 'The order'#39's date'
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Order Date'
+        ReadOnly = True
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RequiredDate'
+        DataType = datDateTime
+        Description = 'The date by which the order has to be received'
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Required Date'
+        ReadOnly = True
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShippedDate'
+        DataType = datDateTime
+        Description = 'The date this order has been shipped'
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Shipped Date'
+        ReadOnly = True
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OrderAmount'
+        DataType = datCurrency
+        Description = 'The order'#39's amount'
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Order Amount'
+        ReadOnly = True
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        BlobType = dabtUnknown
+        ParamType = daptInput
+      end>
+    MasterMappingMode = mmDataRequest
+    MasterParamsMappings.Strings = (
+      'CustomerID=CustomerID')
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rdaOrders
+    ReadOnly = False
+    MasterSource = ds_Customers
+    MasterFields = 'CustomerID'
+    DetailFields = 'CustomerID'
+    MasterRequestMappings.Strings = (
+      'CustomerID=CustomerID')
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'OrdersByCustomer'
+    IndexDefs = <>
+    Left = 167
+    Top = 167
+  end
+  object ds_OrdersByCustomer: TDADataSource
+    DataSet = tbl_OrdersByCustomer.Dataset
+    DataTable = tbl_OrdersByCustomer
+    Left = 139
+    Top = 166
+  end
+  object rdaOrders: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    GetDataCall.MethodName = 'GetCustomerOrders'
+    GetDataCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end
+      item
+        Name = 'CustomerID'
+        DataType = rtString
+        Flag = fIn
+        Value = Null
+      end>
+    GetDataCall.Default = False
+    GetDataCall.IncomingDataParameter = 'Result'
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 194
+    Top = 167
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Data.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Data.pas
new file mode 100644
index 0000000..359a7ed
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Data.pas	
@@ -0,0 +1,62 @@
+unit MegaDemoClient_Data;
+
+interface
+
+uses
+  {vcl:} SysUtils, Classes, DB, DBClient,
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  {Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
+  uDADataStreamer, uDARemoteDataAdapter, MegaDemoLibrary_Intf,
+  uDAScriptingProvider, uDACDSDataTable;
+
+type
+  TMegaDemoClient_DataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABinDataStreamer;
+    rdaCustomers: TDARemoteDataAdapter;
+    tbl_Customers: TDACDSDataTable;
+    ds_Customers: TDADataSource;
+    tbl_OrdersByCustomer: TDACDSDataTable;
+    ds_OrdersByCustomer: TDADataSource;
+    rdaOrders: TDARemoteDataAdapter;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    fLoginInfo: LoginInfo;
+    fLoginService: ILoginService;
+    fOrdersService: IOrdersService;
+    function LoggedIn: Boolean;
+  end;
+
+var
+  MegaDemoClient_DataModule: TMegaDemoClient_DataModule;
+
+implementation
+
+{$R *.dfm}
+
+{ TMegaDemoClient_DataModule }
+
+function TMegaDemoClient_DataModule.LoggedIn: Boolean;
+begin
+  Result := fLoginInfo <> nil;
+end;
+
+procedure TMegaDemoClient_DataModule.DataModuleCreate(Sender: TObject);
+begin
+  fLoginService := CoLoginService.Create(Message, Channel);
+  fOrdersService := CoOrdersService.Create(message, Channel);
+end;
+
+procedure TMegaDemoClient_DataModule.DataModuleDestroy(Sender: TObject);
+begin
+  if fLoginInfo <> nil then fLoginInfo.Free;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Main.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Main.dfm
new file mode 100644
index 0000000..ccac44b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Main.dfm	
@@ -0,0 +1,301 @@
+object MegaDemoClient_MainForm: TMegaDemoClient_MainForm
+  Left = 224
+  Top = 141
+  AutoScroll = False
+  BorderIcons = [biSystemMenu]
+  Caption = 'Data Abstract Client'
+  ClientHeight = 322
+  ClientWidth = 617
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object PageControl1: TPageControl
+    Left = 6
+    Top = 5
+    Width = 605
+    Height = 296
+    ActivePage = tpLogin
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    TabIndex = 0
+    TabOrder = 0
+    OnChange = PageControl1Change
+    OnChanging = PageControl1Changing
+    object tpLogin: TTabSheet
+      Caption = 'Login'
+      object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+        Left = 17
+        Top = 16
+        Width = 212
+        Height = 48
+        Cursor = crHandPoint
+        ApplicationType = atClient
+      end
+      object GroupBox1: TGroupBox
+        Left = 38
+        Top = 93
+        Width = 246
+        Height = 105
+        Caption = 'Login Information'
+        TabOrder = 0
+        DesignSize = (
+          246
+          105)
+        object Label2: TLabel
+          Left = 7
+          Top = 24
+          Width = 56
+          Height = 13
+          Caption = 'User Name:'
+        end
+        object Label3: TLabel
+          Left = 14
+          Top = 47
+          Width = 49
+          Height = 13
+          Caption = 'Password:'
+        end
+        object tbUserName: TEdit
+          Left = 72
+          Top = 20
+          Width = 164
+          Height = 21
+          Anchors = [akLeft, akTop, akRight]
+          TabOrder = 0
+        end
+        object tbPassword: TEdit
+          Left = 72
+          Top = 43
+          Width = 164
+          Height = 21
+          Anchors = [akLeft, akTop, akRight]
+          TabOrder = 1
+        end
+        object bLogin: TButton
+          Left = 80
+          Top = 74
+          Width = 75
+          Height = 22
+          Anchors = [akTop, akRight]
+          Caption = 'Login'
+          TabOrder = 2
+          OnClick = bLoginClick
+        end
+        object bLogout: TButton
+          Left = 161
+          Top = 74
+          Width = 75
+          Height = 22
+          Anchors = [akTop, akRight]
+          Caption = 'Logout'
+          TabOrder = 3
+          OnClick = bLogoutClick
+        end
+      end
+      object GroupBox2: TGroupBox
+        Left = 335
+        Top = 61
+        Width = 239
+        Height = 168
+        Caption = 'Pre-configured Logins'
+        TabOrder = 1
+        DesignSize = (
+          239
+          168)
+        object Label4: TLabel
+          Left = 2
+          Top = 16
+          Width = 234
+          Height = 13
+          Alignment = taCenter
+          Anchors = [akLeft, akTop, akRight]
+          AutoSize = False
+          Caption = 'SQL Server'#39's Northwind'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'MS Sans Serif'
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label5: TLabel
+          Left = 1
+          Top = 93
+          Width = 235
+          Height = 13
+          Alignment = taCenter
+          Anchors = [akLeft, akTop, akRight]
+          AutoSize = False
+          Caption = 'Firebird Employee'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'MS Sans Serif'
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object rbPreDefLogin1: TRadioButton
+          Left = 4
+          Top = 33
+          Width = 230
+          Height = 17
+          Caption = 'Nancy/Davolio (Sales Representative)'
+          TabOrder = 0
+          OnClick = rbPreDefLoginClick
+        end
+        object rbPreDefLogin2: TRadioButton
+          Left = 4
+          Top = 50
+          Width = 230
+          Height = 17
+          Caption = 'Andrew/Fuller (Vice President, Sales)'
+          TabOrder = 1
+          OnClick = rbPreDefLoginClick
+        end
+        object rbPreDefLogin3: TRadioButton
+          Left = 4
+          Top = 67
+          Width = 230
+          Height = 17
+          Caption = 'Laura/Callahan (Inside Sales Coordinator)'
+          TabOrder = 2
+          OnClick = rbPreDefLoginClick
+        end
+        object rbPreDefLogin4: TRadioButton
+          Left = 4
+          Top = 110
+          Width = 230
+          Height = 17
+          Caption = 'Claudia/Sutherland (Sales Representative)'
+          TabOrder = 3
+          OnClick = rbPreDefLoginClick
+        end
+        object rbPreDefLogin5: TRadioButton
+          Left = 4
+          Top = 127
+          Width = 230
+          Height = 17
+          Caption = 'Luke/Leung (Sales Representative)'
+          TabOrder = 4
+          OnClick = rbPreDefLoginClick
+        end
+        object rbPreDefLogin6: TRadioButton
+          Left = 4
+          Top = 144
+          Width = 230
+          Height = 17
+          Caption = 'Takashi/Yamamoto (Sales Representative)'
+          TabOrder = 5
+          OnClick = rbPreDefLoginClick
+        end
+      end
+    end
+    object tpCustomerManagement: TTabSheet
+      Caption = 'Customer Management'
+      ImageIndex = 1
+      object Splitter1: TSplitter
+        Left = 0
+        Top = 174
+        Width = 597
+        Height = 8
+        Cursor = crVSplit
+        Align = alBottom
+        Beveled = True
+      end
+      object Panel1: TPanel
+        Left = 0
+        Top = 0
+        Width = 597
+        Height = 22
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+        object DBNavigator1: TDBNavigator
+          Left = 0
+          Top = 0
+          Width = 240
+          Height = 22
+          DataSource = MegaDemoClient_DataModule.ds_Customers
+          Align = alLeft
+          TabOrder = 0
+        end
+        object tsbApplyUpdatesCustomers: TButton
+          Left = 240
+          Top = 0
+          Width = 100
+          Height = 22
+          Action = aApplyUpdate
+          TabOrder = 1
+        end
+      end
+      object gCustomers: TDBGrid
+        Left = 0
+        Top = 22
+        Width = 597
+        Height = 152
+        Align = alClient
+        DataSource = MegaDemoClient_DataModule.ds_Customers
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+      object gOrdersByCustomer: TDBGrid
+        Left = 0
+        Top = 182
+        Width = 597
+        Height = 86
+        Align = alBottom
+        DataSource = MegaDemoClient_DataModule.ds_OrdersByCustomer
+        TabOrder = 2
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+    end
+    object tpBank: TTabSheet
+      Caption = 'Bank'
+      ImageIndex = 3
+      object Label1: TLabel
+        Left = 4
+        Top = 5
+        Width = 592
+        Height = 149
+        Anchors = [akLeft, akTop, akRight, akBottom]
+        AutoSize = False
+        Caption = 'This tab doesn'#39't really do anything beside being accessible '
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clGreen
+        Font.Height = -16
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold, fsItalic]
+        ParentFont = False
+        WordWrap = True
+      end
+    end
+  end
+  object sslPageHint: TStatusBar
+    Left = 0
+    Top = 303
+    Width = 617
+    Height = 19
+    Panels = <>
+    SimplePanel = True
+  end
+  object ActionList1: TActionList
+    Left = 544
+    Top = 58
+    object aApplyUpdate: TAction
+      Caption = 'Apply Update'
+      OnExecute = aApplyUpdateExecute
+      OnUpdate = aApplyUpdateUpdate
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Main.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Main.pas
new file mode 100644
index 0000000..6e1b7a1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoClient_Main.pas	
@@ -0,0 +1,168 @@
+unit MegaDemoClient_Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ComCtrls,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ExtCtrls,
+  Grids, DBGrids, DBCtrls, ActnList;
+
+type
+  TMegaDemoClient_MainForm = class(TForm)
+    PageControl1: TPageControl;
+    tpLogin: TTabSheet;
+    tpCustomerManagement: TTabSheet;
+    tpBank: TTabSheet;
+    Label1: TLabel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    sslPageHint: TStatusBar;
+    GroupBox1: TGroupBox;
+    Label2: TLabel;
+    Label3: TLabel;
+    tbUserName: TEdit;
+    tbPassword: TEdit;
+    bLogin: TButton;
+    bLogout: TButton;
+    GroupBox2: TGroupBox;
+    Label4: TLabel;
+    rbPreDefLogin1: TRadioButton;
+    rbPreDefLogin2: TRadioButton;
+    rbPreDefLogin3: TRadioButton;
+    Label5: TLabel;
+    rbPreDefLogin4: TRadioButton;
+    rbPreDefLogin5: TRadioButton;
+    rbPreDefLogin6: TRadioButton;
+    Panel1: TPanel;
+    DBNavigator1: TDBNavigator;
+    gCustomers: TDBGrid;
+    tsbApplyUpdatesCustomers: TButton;
+    ActionList1: TActionList;
+    aApplyUpdate: TAction;
+    gOrdersByCustomer: TDBGrid;
+    Splitter1: TSplitter;
+    procedure bLoginClick(Sender: TObject);
+    procedure bLogoutClick(Sender: TObject);
+    procedure rbPreDefLoginClick(Sender: TObject);
+    procedure PageControl1Changing(Sender: TObject;
+      var AllowChange: Boolean);
+    procedure FormShow(Sender: TObject);
+    procedure PageControl1Change(Sender: TObject);
+    procedure aApplyUpdateExecute(Sender: TObject);
+    procedure aApplyUpdateUpdate(Sender: TObject);
+  private
+    { Private declarations }
+    procedure PrivilegesSetup;
+  public
+    { Public declarations }
+  end;
+
+var
+  MegaDemoClient_MainForm: TMegaDemoClient_MainForm;
+
+implementation
+
+uses
+  MegaDemoClient_Data, MegaDemoLibrary_Intf, uDADataTable;
+
+{$R *.dfm}
+
+procedure TMegaDemoClient_MainForm.bLoginClick(Sender: TObject);
+var
+  serverLoginInfo: LoginInfo;
+begin
+  bLogout.Click; // Forces a logout click
+  if (MegaDemoClient_DataModule.fLoginService.Login(tbUserName.Text, tbPassword.Text, serverLoginInfo) = false) then begin
+    ShowMessage('Invalid login');
+  end else begin
+    if MegaDemoClient_DataModule.fLoginInfo <> nil then MegaDemoClient_DataModule.fLoginInfo.Free;
+    MegaDemoClient_DataModule.fLoginInfo := serverLoginInfo;
+    ShowMessage('Welcome ' + MegaDemoClient_DataModule.fLoginInfo.JobTitle + ' ' + MegaDemoClient_DataModule.fLoginInfo.FirstName);
+
+    MegaDemoClient_DataModule.tbl_Customers.Close;
+    MegaDemoClient_DataModule.tbl_Customers.Open;
+
+    bLogin.Enabled := false;
+    bLogout.Enabled := true;
+  end;
+  PrivilegesSetup;
+end;
+
+procedure TMegaDemoClient_MainForm.bLogoutClick(Sender: TObject);
+begin
+  PrivilegesSetup;
+  if not MegaDemoClient_DataModule.LoggedIn then Exit;
+  if MegaDemoClient_DataModule.FLoginInfo <> nil then
+    FreeAndNil(MegaDemoClient_DataModule.FLoginInfo);
+  MegaDemoClient_DataModule.tbl_Customers.Close;
+  MegaDemoClient_DataModule.tbl_OrdersByCustomer.Close;
+  bLogin.Enabled := true;
+  bLogout.Enabled := false;
+end;
+
+procedure TMegaDemoClient_MainForm.rbPreDefLoginClick(Sender: TObject);
+var
+  senderRadioButton: TRadioButton;
+  ctrlLabel: string;
+  textIdx: integer;
+begin
+  senderRadioButton := sender as TRadioButton;
+  if (senderRadioButton.Checked) then begin
+    ctrlLabel := senderRadioButton.Caption;
+    textIdx := pos('/', ctrlLabel);
+    tbUserName.Text := copy(ctrlLabel, 1, textIdx - 1);
+    tbPassword.Text := copy(ctrlLabel, textIdx + 1, Pos(' ', ctrlLabel) - textIdx - 1);
+  end;
+end;
+
+procedure TMegaDemoClient_MainForm.PageControl1Changing(Sender: TObject;
+  var AllowChange: Boolean);
+begin
+  if (not MegaDemoClient_DataModule.LoggedIn) and (PageControl1.TabIndex = 0) then begin
+    ShowMessage('You must login first');
+    AllowChange := False;
+  end;
+end;
+
+procedure TMegaDemoClient_MainForm.PrivilegesSetup;
+begin
+  tpCustomerManagement.TabVisible := MegaDemoClient_DataModule.LoggedIn;
+  tpBank.TabVisible := MegaDemoClient_DataModule.LoggedIn and (MegaDemoClient_DataModule.fLoginInfo.Job_Type = JobType_Manager);
+  gOrdersByCustomer.Visible := MegaDemoClient_DataModule.LoggedIn and (MegaDemoClient_DataModule.fLoginInfo.Job_Type <> JobType_Engineer);
+  Splitter1.Visible := gOrdersByCustomer.Visible;
+  Splitter1.top := 0;
+end;
+
+procedure TMegaDemoClient_MainForm.FormShow(Sender: TObject);
+begin
+  PrivilegesSetup;
+  PageControl1.ActivePage := tpLogin;
+  PageControl1.OnChange(PageControl1);
+end;
+
+procedure TMegaDemoClient_MainForm.PageControl1Change(Sender: TObject);
+begin
+  case ((sender as TPageControl).ActivePageIndex) of
+    0: sslPageHint.SimpleText := 'Login page. Click on the pre-configured logins to avoid typing a username and a password';
+    1: sslPageHint.SimpleText := 'Customer magamenet page. You can view all customers and create new ones, if your privileges allow you to';
+  else
+    sslPageHint.SimpleText := '';
+  end;
+end;
+
+procedure TMegaDemoClient_MainForm.aApplyUpdateExecute(Sender: TObject);
+begin
+  try
+    MegaDemoClient_DataModule.tbl_Customers.ApplyUpdates;
+  except
+    on e: Exception do ShowMessage(E.Message);
+  end;
+end;
+
+procedure TMegaDemoClient_MainForm.aApplyUpdateUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := MegaDemoClient_DataModule.tbl_Customers.HasDelta;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.Sample.html
new file mode 100644
index 0000000..5a4c9fd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.Sample.html	
@@ -0,0 +1,51 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Mega Demo Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>
+  The sample shows:
+</p>
+  <ul>
+  <li>
+  How we can work with several connections to different databases (Northwind - MS SQL and Employee - Firebird).
+  </li>
+  <li>
+  How we can implement security and access rights in our application. 
+  </li>
+	<li>Master-detail relations between tables is implemented via a service that provides a list of orders by user id.</li>
+  </ul>
+
+<h2>Examine the code</h2>
+<ul>
+<li>Check how the server methods were implemented in <b>OrdersService_Impl.pas</b> and <b>LoginService_Impl.pas</b>.</li>
+<li>See the code needed to invoke server methods in <b>MegaDemoClient_Main.pas</b> </li>
+</ul>
+
+<h2>Getting started</h2>
+<ul>
+<li>Compile the entire solution.</li>
+<li>Run the server.</li>
+<li>Run the client.</li>
+<li>Login to client (for login, you just can select appropriate user in the Preconfigured login section)
+         <p><b>Note: for login to appropriate database (NorthWind or Employee), you should select the correct connection in the server application (Selected Connection combo box)</b> </p>
+</li>
+<li>Check user privileges. "Bank" page should only be accessible for managers.</li>
+<li>Try to change data on the Customer Management page and post the changes or discard them.</li>
+
+
+</ul>
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.bdsgroup
new file mode 100644
index 0000000..a4c5907
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{F1B75A89-AB3D-4F46-89F6-8119F8854238}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="MegaDemoServer.exe">MegaDemoServer.bdsproj</Projects>
+      <Projects Name="MegaDemoClient.exe">MegaDemoClient.bdsproj</Projects>
+      <Projects Name="Targets">MegaDemoServer.exe MegaDemoClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.bpg
new file mode 100644
index 0000000..069815f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = MegaDemoServer.exe MegaDemoClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+MegaDemoServer.exe: MegaDemoServer.dpr
+  $(DCC)
+
+MegaDemoClient.exe: MegaDemoClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.groupproj
new file mode 100644
index 0000000..e53f7be
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoGroup.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{6de371b5-c051-4282-a7a2-9b5eda33c8d4}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="MegaDemoServer">
+    <MSBuild Projects="MegaDemoServer.dproj" Targets="" />
+  </Target>
+  <Target Name="MegaDemoServer:Clean">
+    <MSBuild Projects="MegaDemoServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MegaDemoServer:Make">
+    <MSBuild Projects="MegaDemoServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="MegaDemoClient">
+    <MSBuild Projects="MegaDemoClient.dproj" Targets="" />
+  </Target>
+  <Target Name="MegaDemoClient:Clean">
+    <MSBuild Projects="MegaDemoClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MegaDemoClient:Make">
+    <MSBuild Projects="MegaDemoClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="MegaDemoServer;MegaDemoClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="MegaDemoServer:Clean;MegaDemoClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="MegaDemoServer:Make;MegaDemoClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary.RODL
new file mode 100644
index 0000000..3fd1a70
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary.RODL	
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="MegaDemoLibrary" UID="{7C1E1A6D-C50B-482D-AE41-090E9A61BBB0}" Version="3.0">
+<Services>
+<Service Name="LoginService" UID="{B435CA97-3948-4683-8043-5FFB5F3837B6}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{ABD98EFC-78DA-4704-A3EB-0D89CC8BC618}">
+<Documentation><![CDATA[
+Service LoginService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation><Operations>
+<Operation Name="Login" UID="{BB7ACFA3-D417-4C84-9725-424260E71106}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="UserName" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="Password" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="aLoginInfo" DataType="LoginInfo" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="Logout" UID="{E0687694-71C9-4DC2-B40D-F8DF3FE88670}">
+<Parameters>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="OrdersService" UID="{D4F0D270-4B83-4D8C-9067-DA3BBB99F0B4}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{6EC8387D-B288-4EE0-BFB7-C4BAEF28E50B}">
+<Operations>
+<Operation Name="GetCustomerOrders" UID="{C3067013-9589-4C99-8CDE-60CD6B894CFD}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="CustomerID" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+<Struct Name="LoginInfo" UID="{35B22198-000B-46FD-8448-A7F27FC685C0}" AutoCreateParams="1">
+<Elements>
+<Element Name="SessionID" DataType="String">
+</Element>
+<Element Name="EmployeeID" DataType="Integer">
+</Element>
+<Element Name="FirstName" DataType="String">
+</Element>
+<Element Name="LastName" DataType="String">
+</Element>
+<Element Name="Job_Type" DataType="JobType">
+</Element>
+<Element Name="JobTitle" DataType="String">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+<Enum Name="JobType" UID="{058F59CF-D49B-4438-8558-16D5EA8BAA4A}">
+<EnumValues>
+<EnumValue Name="SalesRep">
+</EnumValue>
+<EnumValue Name="Manager">
+</EnumValue>
+<EnumValue Name="Engineer">
+</EnumValue>
+</EnumValues>
+</Enum>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{6A630154-2CC0-4918-ABD0-F165EAA0DE2E}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="D:\Program Files\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary_Intf.pas
new file mode 100644
index 0000000..b530e30
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary_Intf.pas	
@@ -0,0 +1,346 @@
+unit MegaDemoLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{7C1E1A6D-C50B-482D-AE41-090E9A61BBB0}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  ILoginService_IID : TGUID = '{ABD98EFC-78DA-4704-A3EB-0D89CC8BC618}';
+  IOrdersService_IID : TGUID = '{6EC8387D-B288-4EE0-BFB7-C4BAEF28E50B}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  ILoginService = interface;
+  IOrdersService = interface;
+
+
+  LoginInfo = class;
+
+
+
+  { Enumerateds }
+  JobType = (JobType_SalesRep,JobType_Manager,JobType_Engineer);
+
+  { LoginInfo }
+  LoginInfo = class(TROComplexType)
+  private
+    fSessionID: AnsiString;
+    fEmployeeID: Integer;
+    fFirstName: AnsiString;
+    fLastName: AnsiString;
+    fJob_Type: JobType;
+    fJobTitle: AnsiString;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property SessionID:AnsiString read fSessionID write fSessionID;
+    property EmployeeID:Integer read fEmployeeID write fEmployeeID;
+    property FirstName:AnsiString read fFirstName write fFirstName;
+    property LastName:AnsiString read fLastName write fLastName;
+    property Job_Type:JobType read fJob_Type write fJob_Type;
+    property JobTitle:AnsiString read fJobTitle write fJobTitle;
+  end;
+
+  { LoginInfoCollection }
+  LoginInfoCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): LoginInfo;
+    procedure SetItems(aIndex: integer; const Value: LoginInfo);
+  public
+    constructor Create; overload;
+    function Add: LoginInfo; reintroduce;
+    property Items[Index: integer]:LoginInfo read GetItems write SetItems; default;
+  end;
+
+  { ILoginService }
+  ILoginService = interface(IDataAbstractService)
+    ['{ABD98EFC-78DA-4704-A3EB-0D89CC8BC618}']
+    function Login(const UserName: AnsiString; const Password: AnsiString; out aLoginInfo: LoginInfo): Boolean;
+    procedure Logout;
+  end;
+
+  { CoLoginService }
+  CoLoginService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginService;
+  end;
+
+  { TLoginService_Proxy }
+  TLoginService_Proxy = class(TDataAbstractService_Proxy, ILoginService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Login(const UserName: AnsiString; const Password: AnsiString; out aLoginInfo: LoginInfo): Boolean;
+    procedure Logout;
+  end;
+
+  { IOrdersService }
+  IOrdersService = interface(IDataAbstractService)
+    ['{6EC8387D-B288-4EE0-BFB7-C4BAEF28E50B}']
+    function GetCustomerOrders(const CustomerID: AnsiString): Binary;
+  end;
+
+  { CoOrdersService }
+  CoOrdersService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IOrdersService;
+  end;
+
+  { TOrdersService_Proxy }
+  TOrdersService_Proxy = class(TDataAbstractService_Proxy, IOrdersService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetCustomerOrders(const CustomerID: AnsiString): Binary;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ LoginInfo }
+
+procedure LoginInfo.Assign(iSource: TPersistent);
+var lSource: MegaDemoLibrary_Intf.LoginInfo;
+begin
+  inherited Assign(iSource);
+  if (iSource is MegaDemoLibrary_Intf.LoginInfo) then begin
+    lSource := MegaDemoLibrary_Intf.LoginInfo(iSource);
+    SessionID := lSource.SessionID;
+    EmployeeID := lSource.EmployeeID;
+    FirstName := lSource.FirstName;
+    LastName := lSource.LastName;
+    Job_Type := lSource.Job_Type;
+    JobTitle := lSource.JobTitle;
+  end;
+end;
+
+procedure LoginInfo.ReadComplex(ASerializer: TObject);
+var
+  l_EmployeeID: Integer;
+  l_FirstName: AnsiString;
+  l_JobTitle: AnsiString;
+  l_Job_Type: JobType;
+  l_LastName: AnsiString;
+  l_SessionID: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+    l_EmployeeID := EmployeeID;
+    TROSerializer(ASerializer).ReadInteger('EmployeeID', otSLong, l_EmployeeID);
+    EmployeeID := l_EmployeeID;
+    l_FirstName := FirstName;
+    TROSerializer(ASerializer).ReadAnsiString('FirstName', l_FirstName);
+    FirstName := l_FirstName;
+    l_LastName := LastName;
+    TROSerializer(ASerializer).ReadAnsiString('LastName', l_LastName);
+    LastName := l_LastName;
+    l_Job_Type := Job_Type;
+    TROSerializer(ASerializer).ReadEnumerated('Job_Type',TypeInfo(JobType), l_Job_Type);
+    Job_Type := l_Job_Type;
+    l_JobTitle := JobTitle;
+    TROSerializer(ASerializer).ReadAnsiString('JobTitle', l_JobTitle);
+    JobTitle := l_JobTitle;
+  end
+  else begin
+    l_EmployeeID := EmployeeID;
+    TROSerializer(ASerializer).ReadInteger('EmployeeID', otSLong, l_EmployeeID);
+    EmployeeID := l_EmployeeID;
+    l_FirstName := FirstName;
+    TROSerializer(ASerializer).ReadAnsiString('FirstName', l_FirstName);
+    FirstName := l_FirstName;
+    l_JobTitle := JobTitle;
+    TROSerializer(ASerializer).ReadAnsiString('JobTitle', l_JobTitle);
+    JobTitle := l_JobTitle;
+    l_Job_Type := Job_Type;
+    TROSerializer(ASerializer).ReadEnumerated('Job_Type',TypeInfo(JobType), l_Job_Type);
+    Job_Type := l_Job_Type;
+    l_LastName := LastName;
+    TROSerializer(ASerializer).ReadAnsiString('LastName', l_LastName);
+    LastName := l_LastName;
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+  end;
+end;
+
+procedure LoginInfo.WriteComplex(ASerializer: TObject);
+var
+  l_EmployeeID: Integer;
+  l_FirstName: AnsiString;
+  l_JobTitle: AnsiString;
+  l_Job_Type: JobType;
+  l_LastName: AnsiString;
+  l_SessionID: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(LoginInfo);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
+    l_EmployeeID := EmployeeID;
+    TROSerializer(ASerializer).WriteInteger('EmployeeID', otSLong, l_EmployeeID);
+    l_FirstName := FirstName;
+    TROSerializer(ASerializer).WriteAnsiString('FirstName', l_FirstName);
+    l_LastName := LastName;
+    TROSerializer(ASerializer).WriteAnsiString('LastName', l_LastName);
+    l_Job_Type := Job_Type;
+    TROSerializer(ASerializer).WriteEnumerated('Job_Type',TypeInfo(JobType), l_Job_Type);
+    l_JobTitle := JobTitle;
+    TROSerializer(ASerializer).WriteAnsiString('JobTitle', l_JobTitle);
+  end
+  else begin
+    l_EmployeeID := EmployeeID;
+    TROSerializer(ASerializer).WriteInteger('EmployeeID', otSLong, l_EmployeeID);
+    l_FirstName := FirstName;
+    TROSerializer(ASerializer).WriteAnsiString('FirstName', l_FirstName);
+    l_JobTitle := JobTitle;
+    TROSerializer(ASerializer).WriteAnsiString('JobTitle', l_JobTitle);
+    l_Job_Type := Job_Type;
+    TROSerializer(ASerializer).WriteEnumerated('Job_Type',TypeInfo(JobType), l_Job_Type);
+    l_LastName := LastName;
+    TROSerializer(ASerializer).WriteAnsiString('LastName', l_LastName);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
+  end;
+end;
+
+{ LoginInfoCollection }
+constructor LoginInfoCollection.Create;
+begin
+  inherited Create(LoginInfo);
+end;
+
+constructor LoginInfoCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function LoginInfoCollection.Add: LoginInfo;
+begin
+  result := LoginInfo(inherited Add);
+end;
+
+function LoginInfoCollection.GetItems(aIndex: integer): LoginInfo;
+begin
+  result := LoginInfo(inherited Items[aIndex]);
+end;
+
+procedure LoginInfoCollection.SetItems(aIndex: integer; const Value: LoginInfo);
+begin
+  LoginInfo(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoLoginService }
+
+class function CoLoginService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginService;
+begin
+  result := TLoginService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TLoginService_Proxy }
+
+function TLoginService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'LoginService';
+end;
+
+function TLoginService_Proxy.Login(const UserName: AnsiString; const Password: AnsiString; out aLoginInfo: LoginInfo): Boolean;
+begin
+  try
+    aLoginInfo := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'Login');
+    __Message.Write('UserName', TypeInfo(AnsiString), UserName, []);
+    __Message.Write('Password', TypeInfo(AnsiString), Password, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+    __Message.Read('aLoginInfo', TypeInfo(MegaDemoLibrary_Intf.LoginInfo), aLoginInfo, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TLoginService_Proxy.Logout;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'Logout');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+{ CoOrdersService }
+
+class function CoOrdersService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IOrdersService;
+begin
+  result := TOrdersService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TOrdersService_Proxy }
+
+function TOrdersService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'OrdersService';
+end;
+
+function TOrdersService_Proxy.GetCustomerOrders(const CustomerID: AnsiString): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'GetCustomerOrders');
+    __Message.Write('CustomerID', TypeInfo(AnsiString), CustomerID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(LoginInfo);
+  RegisterProxyClass(ILoginService_IID, TLoginService_Proxy);
+  RegisterProxyClass(IOrdersService_IID, TOrdersService_Proxy);
+
+
+finalization
+  UnregisterROClass(LoginInfo);
+  UnregisterProxyClass(ILoginService_IID);
+  UnregisterProxyClass(IOrdersService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary_Invk.pas
new file mode 100644
index 0000000..1fc0287
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoLibrary_Invk.pas	
@@ -0,0 +1,139 @@
+unit MegaDemoLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} MegaDemoLibrary_Intf;
+
+type
+  TLoginService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TOrdersService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetCustomerOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TLoginService_Invoker }
+
+constructor TLoginService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TLoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Login(const UserName: AnsiString; const Password: AnsiString; out aLoginInfo: LoginInfo): Boolean; }
+var
+  UserName: AnsiString;
+  Password: AnsiString;
+  aLoginInfo: MegaDemoLibrary_Intf.LoginInfo;
+  lResult: Boolean;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aLoginInfo := nil;
+  try
+    __Message.Read('UserName', TypeInfo(AnsiString), UserName, []);
+    __Message.Read('Password', TypeInfo(AnsiString), Password, []);
+
+    lResult := (__Instance as ILoginService).Login(UserName, Password, aLoginInfo);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'LoginService', 'LoginResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Write('aLoginInfo', TypeInfo(MegaDemoLibrary_Intf.LoginInfo), aLoginInfo, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aLoginInfo);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TLoginService_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Logout; }
+begin
+  try
+    (__Instance as ILoginService).Logout;
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'LoginService', 'LogoutResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+{ TOrdersService_Invoker }
+
+constructor TOrdersService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TOrdersService_Invoker.Invoke_GetCustomerOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetCustomerOrders(const CustomerID: AnsiString): Binary; }
+var
+  CustomerID: AnsiString;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('CustomerID', TypeInfo(AnsiString), CustomerID, []);
+
+    lResult := (__Instance as IOrdersService).GetCustomerOrders(CustomerID);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'OrdersService', 'GetCustomerOrdersResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.bdsproj
new file mode 100644
index 0000000..bf14e9b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{DA8CA75E-E72B-45A5-B876-4A6ED6301BC4}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MegaDemoServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.dpr
new file mode 100644
index 0000000..a4f42f4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.dpr	
@@ -0,0 +1,26 @@
+program MegaDemoServer;
+
+{#ROGEN:MegaDemoLibrary.RODL}// RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  MegaDemoServer_Main in 'MegaDemoServer_Main.pas' {MegaDemoServer_MainForm},
+  MegaDemoServer_Data in 'MegaDemoServer_Data.pas' {MegaDemoServer_DataModule: TDataModule},
+  MegaDemoLibrary_Intf in 'MegaDemoLibrary_Intf.pas',
+  MegaDemoLibrary_Invk in 'MegaDemoLibrary_Invk.pas',
+  LoginService_Impl in 'LoginService_Impl.pas' {LoginService: TDataAbstractService},
+  OrdersService_Impl in 'OrdersService_Impl.pas' {OrdersService: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'MegaDemo server';
+  Application.CreateForm(TMegaDemoServer_DataModule, MegaDemoServer_DataModule);
+  Application.CreateForm(TMegaDemoServer_MainForm, MegaDemoServer_MainForm);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.dproj
new file mode 100644
index 0000000..d3417b2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.dproj	
@@ -0,0 +1,89 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{52bc4b5a-f3b4-4085-b7e9-63fe80cf7d83}</ProjectGuid>
+    <MainSource>MegaDemoServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MegaDemoServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MegaDemoServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MegaDemoServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="LoginService_Impl.pas">
+      <Form>LoginService</Form>
+    </DCCReference>
+    <DCCReference Include="MegaDemoLibrary_Intf.pas" />
+    <DCCReference Include="MegaDemoLibrary_Invk.pas" />
+    <DCCReference Include="MegaDemoServer_Data.pas">
+      <Form>MegaDemoServer_DataModule</Form>
+    </DCCReference>
+    <DCCReference Include="MegaDemoServer_Main.pas">
+      <Form>MegaDemoServer_MainForm</Form>
+    </DCCReference>
+    <DCCReference Include="OrdersService_Impl.pas">
+      <Form>OrdersService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Data.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Data.dfm
new file mode 100644
index 0000000..9e14fb4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Data.dfm	
@@ -0,0 +1,74 @@
+object MegaDemoServer_DataModule: TMegaDemoServer_DataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Employees'
+        ConnectionString = 
+          'IBX?Server=localhost;Database=C:\Program Files\Borland\InterBase' +
+          '\examples\Database\EMPLOYEE.FDB;UserID=SYSDBA;Password=masterkey' +
+          ';'
+        Description = 'Local connection to FireBird'#39's EMPLOYEE.FDB'
+        Default = False
+        Tag = 0
+      end
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%MODULE%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+  object DAADODriver: TDAADODriver
+    Left = 243
+    Top = 11
+  end
+  object DAIBXDriver: TDAIBXDriver
+    Left = 244
+    Top = 59
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Data.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Data.pas
new file mode 100644
index 0000000..a9b415b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Data.pas	
@@ -0,0 +1,43 @@
+unit MegaDemoServer_Data;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uROIndyTCPServer, uDAADODriver, uDAIBXDriver;
+
+type
+  TMegaDemoServer_DataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    SessionManager: TROInMemorySessionManager;
+    DAADODriver: TDAADODriver;
+    DAIBXDriver: TDAIBXDriver;
+    DataDictionary: TDADataDictionary;
+
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MegaDemoServer_DataModule: TMegaDemoServer_DataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TMegaDemoServer_DataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Main.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Main.dfm
new file mode 100644
index 0000000..bc3d2fa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Main.dfm	
@@ -0,0 +1,40 @@
+object MegaDemoServer_MainForm: TMegaDemoServer_MainForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Data Abstract Server'
+  ClientHeight = 108
+  ClientWidth = 345
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 66
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Label1: TLabel
+    Left = 8
+    Top = 60
+    Width = 101
+    Height = 13
+    Caption = 'Selected connection:'
+  end
+  object cbConnectionName: TComboBox
+    Left = 7
+    Top = 75
+    Width = 329
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 0
+    OnChange = cbConnectionNameChange
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Main.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Main.pas
new file mode 100644
index 0000000..a935c0f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/MegaDemoServer_Main.pas	
@@ -0,0 +1,56 @@
+unit MegaDemoServer_Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TMegaDemoServer_MainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    Label1: TLabel;
+    cbConnectionName: TComboBox;
+    procedure FormCreate(Sender: TObject);
+    procedure cbConnectionNameChange(Sender: TObject);
+  private
+    fCurrentConnectionName: string;
+  public
+    { Public declarations }
+    function GetSelectedConnectionName: string;
+  end;
+
+var
+  MegaDemoServer_MainForm: TMegaDemoServer_MainForm;
+
+implementation
+uses
+  MegaDemoServer_Data;
+{$R *.dfm}
+
+procedure TMegaDemoServer_MainForm.FormCreate(Sender: TObject);
+var
+  i: integer;
+begin
+  with MegaDemoServer_DataModule.ConnectionManager.Connections do
+    for i := 0 to Count - 1 do begin
+      cbConnectionName.AddItem(Connections[i].Name + ' - ' + Connections[i].Description, nil);
+      if Connections[i].Default then begin
+        cbConnectionName.ItemIndex := i;
+        cbConnectionNameChange(cbConnectionName);
+      end;
+    end;
+end;
+
+function TMegaDemoServer_MainForm.GetSelectedConnectionName: string;
+begin
+  Result := fCurrentConnectionName;
+end;
+
+procedure TMegaDemoServer_MainForm.cbConnectionNameChange(Sender: TObject);
+begin
+  fCurrentConnectionName := copy(cbConnectionName.Text, 1, pos(' ', cbConnectionName.Text)-1);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/OrdersService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/OrdersService_Impl.dfm
new file mode 100644
index 0000000..8eeb63c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/OrdersService_Impl.dfm	
@@ -0,0 +1,323 @@
+object OrdersService: TOrdersService
+  OldCreateOrder = True
+  RequiresSession = True
+  SessionManager = MegaDemoServer_DataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = BinDataStreamer
+  ExportedDataTables = <>
+  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+  Left = 221
+  Top = 190
+  Height = 206
+  Width = 256
+  object bpCustomers: TDABusinessProcessor
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 138
+    Top = 60
+  end
+  object BinDataStreamer: TDABinDataStreamer
+    BufferSize = 262144
+    Left = 62
+    Top = 60
+  end
+  object Schema: TDASchema
+    ConnectionManager = MegaDemoServer_DataModule.ConnectionManager
+    DataDictionary = MegaDemoServer_DataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Employees'
+            TargetTable = 'CUSTOMER'
+            SQL = 'SELECT C.CUST_NO, C.CUSTOMER, C.CITY'#10'FROM CUSTOMER C'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CUST_NO'
+              end
+              item
+                DatasetField = 'CustomerName'
+                TableField = 'CUSTOMER'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'CITY'
+              end>
+          end
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    Custs.CustomerID, Custs.CompanyName, Custs.City'#10'  FR' +
+              'OM'#10'    Customers Custs'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CustomerName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end>
+          end>
+        Name = 'Customers'
+        Description = 'Retrieves the list of customers in the database'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            Description = 'The customer'#39's code'
+            BlobType = dabtUnknown
+            GeneratorName = 'CUST_NO_GEN'
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            DisplayLabel = 'Customer ID'
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerName'
+            DataType = datString
+            Size = 40
+            Description = 'The customer'#39's name'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            DisplayLabel = 'Name'
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 25
+            Description = 'The customer'#39's city'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'Employees'
+            TargetTable = 'SALES'
+            SQL = 
+              'SELECT S.CUST_NO, S.ORDER_DATE, S.DATE_NEEDED, S.SHIP_DATE, S.TO' +
+              'TAL_VALUE'#10'FROM SALES S'#10'WHERE S.SALES_REP=:EmployeeID AND S.CUST_' +
+              'NO=:CustomerID'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CUST_NO'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'ORDER_DATE'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'DATE_NEEDED'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'SHIP_DATE'
+              end
+              item
+                DatasetField = 'OrderAmount'
+                TableField = 'TOTAL_VALUE'
+              end>
+          end
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    Ords.CustomerID, Ords.OrderDate, Ords.RequiredDate, ' +
+              'Ords.ShippedDate, Ords.Freight as OrderAmount'#10'  FROM'#10'    Orders ' +
+              'Ords'#10'WHERE Ords.EmployeeID=:EmployeeID AND Ords.CustomerID=:Cust' +
+              'omerID'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'OrderAmount'
+                TableField = 'OrderAmount'
+              end>
+          end>
+        Name = 'OrdersByCustomer'
+        Description = 
+          'Retrieves the list of orders for a specific customer entered by ' +
+          'the loged employee'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            Description = 'The identifier of the customer that placed this order'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            LogChanges = False
+            DisplayWidth = 0
+            DisplayLabel = 'Customer ID'
+            ReadOnly = True
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            Description = 'The order'#39's date'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            DisplayLabel = 'Order Date'
+            ReadOnly = True
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            Description = 'The date by which the order has to be received'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            DisplayLabel = 'Required Date'
+            ReadOnly = True
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            Description = 'The date this order has been shipped'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            DisplayLabel = 'Shipped Date'
+            ReadOnly = True
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderAmount'
+            DataType = datCurrency
+            Description = 'The order'#39's amount'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            DisplayLabel = 'Order Amount'
+            ReadOnly = True
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <
+      item
+        Name = 'CustomersToOrders'
+        MasterDatasetName = 'Customers'
+        MasterFields = 'CustomerID'
+        DetailDatasetName = 'OrdersByCustomer'
+        DetailFields = 'CustomerID'
+        RelationshipType = rtForeignKey
+      end>
+    UpdateRules = <>
+    Version = 0
+    Left = 62
+    Top = 15
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/OrdersService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/OrdersService_Impl.pas
new file mode 100644
index 0000000..2b7bcb9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/OrdersService_Impl.pas	
@@ -0,0 +1,97 @@
+unit OrdersService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, Variants,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} MegaDemoLibrary_Intf, uDAClasses, uDADataStreamer,
+  uDABinAdapter, uDAScriptingProvider, uDABusinessProcessor;
+
+type
+  { TOrdersService }
+  TOrdersService = class(TDataAbstractService, IOrdersService)
+    bpCustomers: TDABusinessProcessor;
+    BinDataStreamer: TDABinDataStreamer;
+    Schema: TDASchema;
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+      var aConnectionName: string);
+  private
+  protected
+    { IOrdersService methods }
+    function GetCustomerOrders(const CustomerID: Ansistring): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} MegaDemoLibrary_Invk,
+  MegaDemoServer_Data, MegaDemoServer_Main;
+
+procedure Create_OrdersService(out anInstance: IUnknown);
+begin
+  anInstance := TOrdersService.Create(nil);
+end;
+
+{ OrdersService }
+
+function TOrdersService.GetCustomerOrders(const CustomerID: Ansistring): Binary;
+var
+  aTableNameArray: StringArray;
+  aTableRequestInfoArray: TableRequestInfoArray;
+  aTableRequestInfo: TableRequestInfo;
+begin
+  // This method reads all the orders of the specified customer and also filters
+  // based on the current employee's ID. The employee ID has been previously stored
+  // in the session upon the call to LoginService.Login.
+
+  aTableNameArray := StringArray.Create;
+  aTableRequestInfoArray := TableRequestInfoArray.Create;
+  try
+    aTableNameArray.Add('OrdersByCustomer');
+    aTableRequestInfo := aTableRequestInfoArray.Add;
+    with aTableRequestInfo do begin
+      IncludeSchema := True;
+      MaxRecords := -1;
+      UserFilter := '';
+      with Parameters.Add do begin
+        Name := 'CustomerID';
+        Value := CustomerID;
+      end;
+      with Parameters.Add do begin
+        Name := 'EmployeeID';
+        Value := VarToStr(Session['EmployeeID']);
+      end;
+    end;
+    Result := GetData(aTableNameArray, aTableRequestInfoArray)
+  finally
+    aTableRequestInfoArray.Free;
+    aTableNameArray.Free;
+  end;
+end;
+
+procedure TOrdersService.DataAbstractServiceBeforeAcquireConnection(
+  aSender: TObject; var aConnectionName: string);
+begin
+  // Reads the connection name from the main form.
+  aConnectionName := MegaDemoServer_MainForm.GetSelectedConnectionName;
+end;
+
+initialization
+  TROClassFactory.Create('OrdersService', Create_OrdersService, TOrdersService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/RODLFILE.res
new file mode 100644
index 0000000..e8d19db
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/MegaDemo/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.Sample.html
new file mode 100644
index 0000000..38fadb6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.Sample.html	
@@ -0,0 +1,40 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Memory Data</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+  This example shows how to create and populate a virtual dataset dynamically.<br>
+The client displays two grids:
+
+<ul>
+	<li>
+	   <b>Top Grid</b>: this displays the primary keys of one or more datasets from Northwind. Supply the names of the datasets required in a comma separated list, e.g. Regions, Customers, Employees.
+	</li>
+	<li>
+	   <b>Bottom Grid</b>: this displays the names and sizes of files contained in the specified disk folder.
+	</li>
+</ul>
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   See the simple code in <b>NewService_Impl.pas</b>.
+	</li>
+</ul>
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.bdsgroup
new file mode 100644
index 0000000..515b8e1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{588695F4-ECD2-41ED-9D79-6432C0B02C01}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="MemoryData_Server.exe">MemoryData_Server.bdsproj</Projects>
+      <Projects Name="MemoryData_Client.exe">MemoryData_Client.bdsproj</Projects>
+      <Projects Name="Targets">MemoryData_Server.exe MemoryData_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.bpg
new file mode 100644
index 0000000..0a15ec3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = MemoryData_Server.exe MemoryData_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+MemoryData_Server.exe: MemoryData_Server.dpr
+  $(DCC)
+
+MemoryData_Client.exe: MemoryData_Client.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.groupproj
new file mode 100644
index 0000000..6c66ace
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3e35d412-e6fa-41c3-a9d2-f8c07e8dc6fb}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="MemoryData_Server">
+    <MSBuild Projects="MemoryData_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="MemoryData_Server:Clean">
+    <MSBuild Projects="MemoryData_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MemoryData_Server:Make">
+    <MSBuild Projects="MemoryData_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="MemoryData_Client">
+    <MSBuild Projects="MemoryData_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="MemoryData_Client:Clean">
+    <MSBuild Projects="MemoryData_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MemoryData_Client:Make">
+    <MSBuild Projects="MemoryData_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="MemoryData_Server;MemoryData_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="MemoryData_Server:Clean;MemoryData_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="MemoryData_Server:Make;MemoryData_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary.rodl
new file mode 100644
index 0000000..113ead8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary.rodl	
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="MemoryDataLibrary" UID="{D4B11283-58D8-4C0D-9747-FEB990A41DEE}" Version="3.0">
+<Services>
+<Service Name="NewService" UID="{0853B789-95D7-43BD-88B3-9A50319AB807}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{1E22E1AC-FB18-4085-8260-F6AFF4E697BA}">
+<Documentation>
+<![CDATA[Service NewService. This service has been automatically generated using the Data Abstract template you can find in the Templates directory.]]>
+</Documentation>
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract4_RODL" UID="{B920A7AC-3C96-4F7C-AA93-CFEFBEB0FDBA}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary_Intf.pas
new file mode 100644
index 0000000..5594e0f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary_Intf.pas	
@@ -0,0 +1,76 @@
+unit MemoryDataLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{D4B11283-58D8-4C0D-9747-FEB990A41DEE}';
+
+  { Service Interface ID's }
+  INewService_IID : TGUID = '{1E22E1AC-FB18-4085-8260-F6AFF4E697BA}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  INewService = interface;
+
+
+
+
+  { INewService }
+  INewService = interface(IDataAbstractService)
+    ['{1E22E1AC-FB18-4085-8260-F6AFF4E697BA}']
+  end;
+
+  { CoNewService }
+  CoNewService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService;
+  end;
+
+  { TNewService_Proxy }
+  TNewService_Proxy = class(TDataAbstractService_Proxy, INewService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoNewService }
+
+class function CoNewService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService;
+begin
+  result := TNewService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TNewService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'NewService';
+end;
+
+initialization
+  RegisterProxyClass(INewService_IID, TNewService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(INewService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary_Invk.pas
new file mode 100644
index 0000000..8f0bbd9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryDataLibrary_Invk.pas	
@@ -0,0 +1,32 @@
+unit MemoryDataLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} MemoryDataLibrary_Intf;
+
+type
+  TNewService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.bdsproj
new file mode 100644
index 0000000..c07331f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{F34C1BC7-82D7-4BF3-8154-5FDAC19FCDF1}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MemoryData_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.dpr
new file mode 100644
index 0000000..54e3179
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.dpr	
@@ -0,0 +1,17 @@
+program MemoryData_Client;
+
+uses
+  uROComInit,
+  Forms,
+  MemoryData_ClientMain in 'MemoryData_ClientMain.pas' {MemoryData_ClientMainForm},
+  MemoryData_ClientData in 'MemoryData_ClientData.pas' {MemoryData_ClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'MemoryData - Client';
+  Application.CreateForm(TMemoryData_ClientDataModule, MemoryData_ClientDataModule);
+  Application.CreateForm(TMemoryData_ClientMainForm, MemoryData_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.dproj
new file mode 100644
index 0000000..2dd7aa7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{5aba4cae-f8e7-4072-9515-dc1d0e7611fe}</ProjectGuid>
+    <MainSource>MemoryData_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MemoryData_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MemoryData_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MemoryData_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MemoryData_ClientData.pas">
+      <Form>MemoryData_ClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="MemoryData_ClientMain.pas">
+      <Form>MemoryData_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientData.dfm
new file mode 100644
index 0000000..21191e8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientData.dfm	
@@ -0,0 +1,197 @@
+object MemoryData_ClientDataModule: TMemoryData_ClientDataModule
+  OldCreateOrder = True
+  Left = 152
+  Top = 69
+  Height = 289
+  Width = 252
+  object ROChannel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 40
+    Top = 8
+  end
+  object ROMessage: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RORemoteService: TRORemoteService
+    ServiceName = 'NewService'
+    Message = ROMessage
+    Channel = ROChannel
+    Left = 40
+    Top = 96
+  end
+  object DABinAdapter: TDABinDataStreamer
+    Left = 40
+    Top = 142
+  end
+  object tbl_ComboDataset1: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'AutoIncField'
+        DataType = datAutoInc
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'TextField'
+        DataType = datString
+        Size = 50
+        BlobType = dabtUnknown
+        DisplayWidth = 50
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'CustomParameter'
+        DataType = datString
+        Size = 50
+        BlobType = dabtUnknown
+        ParamType = daptInput
+      end>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = DARemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'ComboDataset'
+    IndexDefs = <>
+    Left = 136
+    Top = 16
+  end
+  object ds_ComboDataset1: TDADataSource
+    DataTable = tbl_ComboDataset1
+    Left = 152
+    Top = 32
+  end
+  object tbl_DirectoryData1: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'FileName'
+        DataType = datString
+        Size = 200
+        BlobType = dabtUnknown
+        DisplayWidth = 50
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FileSize'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'Directory'
+        DataType = datString
+        Size = 200
+        BlobType = dabtUnknown
+        ParamType = daptInput
+      end>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = DARemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'DirectoryData'
+    IndexDefs = <>
+    Left = 136
+    Top = 112
+  end
+  object ds_DirectoryData1: TDADataSource
+    DataTable = tbl_DirectoryData1
+    Left = 152
+    Top = 128
+  end
+  object DARemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RORemoteService
+    GetSchemaCall.MethodName = 'GetSchema'
+    GetSchemaCall.Params = <
+      item
+        Name = 'aFilter'
+        DataType = rtString
+        Flag = fIn
+        Value = Null
+      end
+      item
+        Name = 'Result'
+        DataType = rtString
+        Flag = fResult
+        Value = Null
+      end>
+    GetSchemaCall.Default = False
+    GetSchemaCall.IncomingSchemaParameter = 'Result'
+    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
+    GetDataCall.RemoteService = RORemoteService
+    GetDataCall.MethodName = 'GetData'
+    GetDataCall.Params = <
+      item
+        Name = 'aTableNameArray'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'StringArray'
+      end
+      item
+        Name = 'aTableRequestInfoArray'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'TableRequestInfoArray'
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    GetDataCall.Default = False
+    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
+    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
+    GetDataCall.IncomingDataParameter = 'Result'
+    UpdateDataCall.RemoteService = RORemoteService
+    UpdateDataCall.MethodName = 'UpdateData'
+    UpdateDataCall.Params = <
+      item
+        Name = 'aDelta'
+        DataType = rtBinary
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    UpdateDataCall.Default = False
+    UpdateDataCall.OutgoingDeltaParameter = 'aDelta'
+    UpdateDataCall.IncomingDeltaParameter = 'Result'
+    GetScriptsCall.RemoteService = RORemoteService
+    GetScriptsCall.Params = <>
+    GetScriptsCall.Default = False
+    RemoteService = RORemoteService
+    DataStreamer = DABinAdapter
+    Left = 40
+    Top = 192
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientData.pas
new file mode 100644
index 0000000..244bca4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientData.pas	
@@ -0,0 +1,36 @@
+unit MemoryData_ClientData;
+
+interface
+
+uses {vcl:} SysUtils, Classes, DB, DBClient, 
+     {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+     {Data Abstract:}  uDADataTable, uDABINAdapter, uDAInterfaces,
+   uDAScriptingProvider, uDACDSDataTable,
+  uDARemoteDataAdapter, uDADataStreamer;
+
+type
+  TMemoryData_ClientDataModule = class(TDataModule)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    DABinAdapter: TDABinDataStreamer;
+    tbl_ComboDataset1: TDACDSDataTable;
+    ds_ComboDataset1: TDADataSource;
+    tbl_DirectoryData1: TDACDSDataTable;
+    ds_DirectoryData1: TDADataSource;
+    DARemoteDataAdapter: TDARemoteDataAdapter;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MemoryData_ClientDataModule: TMemoryData_ClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientMain.dfm
new file mode 100644
index 0000000..309925b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientMain.dfm	
@@ -0,0 +1,117 @@
+object MemoryData_ClientMainForm: TMemoryData_ClientMainForm
+  Left = 98
+  Top = 36
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'MemoryData - Client'
+  ClientHeight = 440
+  ClientWidth = 512
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 35
+    Width = 512
+    Height = 122
+    Align = alClient
+    DataSource = MemoryData_ClientDataModule.ds_ComboDataset1
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object DBGrid2: TDBGrid
+    Left = 0
+    Top = 192
+    Width = 512
+    Height = 248
+    Align = alBottom
+    DataSource = MemoryData_ClientDataModule.ds_DirectoryData1
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 512
+    Height = 35
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+    DesignSize = (
+      512
+      35)
+    object Label1: TLabel
+      Left = 88
+      Top = 11
+      Width = 89
+      Height = 13
+      Caption = 'Custom Parameter:'
+    end
+    object Open1: TButton
+      Left = 0
+      Top = 5
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 0
+      OnClick = Open1Click
+    end
+    object eCustomParameter: TEdit
+      Left = 183
+      Top = 8
+      Width = 325
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 1
+      Text = 'Regions, Customers, Employees'
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 157
+    Width = 512
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 3
+    DesignSize = (
+      512
+      35)
+    object Label2: TLabel
+      Left = 88
+      Top = 10
+      Width = 45
+      Height = 13
+      Caption = 'Directory:'
+    end
+    object open2: TButton
+      Left = 0
+      Top = 5
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 0
+      OnClick = open2Click
+    end
+    object eDirectory: TEdit
+      Left = 138
+      Top = 8
+      Width = 370
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 1
+      Text = 'C:\Windows'
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientMain.pas
new file mode 100644
index 0000000..fe8473b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ClientMain.pas	
@@ -0,0 +1,56 @@
+unit MemoryData_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROIndyHTTPChannel,
+  Grids, DBGrids, ExtCtrls;
+
+type
+  TMemoryData_ClientMainForm = class(TForm)
+    DBGrid1: TDBGrid;
+    DBGrid2: TDBGrid;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    open2: TButton;
+    Label2: TLabel;
+    eDirectory: TEdit;
+    Open1: TButton;
+    Label1: TLabel;
+    eCustomParameter: TEdit;
+    procedure Open1Click(Sender: TObject);
+    procedure open2Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MemoryData_ClientMainForm: TMemoryData_ClientMainForm;
+
+implementation
+
+uses MemoryData_ClientData;
+
+{$R *.dfm}
+
+procedure TMemoryData_ClientMainForm.Open1Click(Sender: TObject);
+begin
+  with MemoryData_ClientDataModule.tbl_ComboDataset1 do begin
+    ParamByName('CustomParameter').AsString := eCustomParameter.Text;
+    Active := Active xor TRUE;
+  end;
+end;
+
+procedure TMemoryData_ClientMainForm.open2Click(Sender: TObject);
+begin
+  with MemoryData_ClientDataModule.tbl_DirectoryData1 do begin
+    ParamByName('Directory').AsString := eDirectory.Text;
+    Active := Active xor TRUE;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.bdsproj
new file mode 100644
index 0000000..48f2368
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0E1097E3-64C1-46B5-BB99-A5D74A2C9EF7}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MemoryData_Server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.dpr
new file mode 100644
index 0000000..a8d30c4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.dpr	
@@ -0,0 +1,23 @@
+program MemoryData_Server;
+
+{#ROGEN:MemoryDataLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  MemoryData_ServerMain in 'MemoryData_ServerMain.pas' {MemoryData_ServerMainForm},
+  NewService_Impl in 'NewService_Impl.pas' {NewService: TDARemoteService},
+  MemoryData_ServerData in 'MemoryData_ServerData.pas' {MemoryData_ServerDataModule: TDataModule},
+  MemoryDataLibrary_Intf in 'MemoryDataLibrary_Intf.pas',
+  MemoryDataLibrary_Invk in 'MemoryDataLibrary_Invk.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'MemoryData - Server';
+  Application.CreateForm(TMemoryData_ServerDataModule, MemoryData_ServerDataModule);
+  Application.CreateForm(TMemoryData_ServerMainForm, MemoryData_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.dproj
new file mode 100644
index 0000000..79967b3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{36625199-3349-4952-8391-e35b3fcc6935}</ProjectGuid>
+    <MainSource>MemoryData_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MemoryData_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MemoryData_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MemoryData_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MemoryDataLibrary_Intf.pas" />
+    <DCCReference Include="MemoryDataLibrary_Invk.pas" />
+    <DCCReference Include="MemoryData_ServerData.pas">
+      <Form>MemoryData_ServerDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="MemoryData_ServerMain.pas">
+      <Form>MemoryData_ServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="NewService_Impl.pas">
+      <Form>NewService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerData.dfm
new file mode 100644
index 0000000..215cbda
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerData.dfm	
@@ -0,0 +1,63 @@
+object MemoryData_ServerDataModule: TMemoryData_ServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 104
+  Top = 110
+  Height = 207
+  Width = 352
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object ROMessage: TROBinMessage
+    Left = 34
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerData.pas
new file mode 100644
index 0000000..fa141a5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerData.pas	
@@ -0,0 +1,48 @@
+unit MemoryData_ServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDADriverManager, uDAClasses, uDAEngine, uDAIBXDriver, uDAADODriver,
+  uROIndyTCPServer;
+
+const
+  { Dataset names for Schema }
+  ds_Employees = 'Employees';
+  ds_ComboDataset = 'ComboDataset';
+  ds_Customers = 'Customers';
+  ds_Region = 'Region';
+
+type
+  TMemoryData_ServerDataModule = class(TDataModule)
+    ROServer: TROIndyHTTPServer;
+    ROMessage: TROBinMessage;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    ConnectionManager: TDAConnectionManager;
+    DataDictionary: TDADataDictionary;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MemoryData_ServerDataModule: TMemoryData_ServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TMemoryData_ServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerMain.dfm
new file mode 100644
index 0000000..559a782
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerMain.dfm	
@@ -0,0 +1,21 @@
+object MemoryData_ServerMainForm: TMemoryData_ServerMainForm
+  Left = 41
+  Top = 43
+  BorderStyle = bsDialog
+  Caption = 'MemoryData - Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton: TDAPoweredByDataAbstractButton
+    Left = 9
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerMain.pas
new file mode 100644
index 0000000..7a60dcd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/MemoryData_ServerMain.pas	
@@ -0,0 +1,26 @@
+unit MemoryData_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer, uDAPoweredByDataAbstractButton;
+
+type
+  TMemoryData_ServerMainForm = class(TForm)
+    DAPoweredByDataAbstractButton: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MemoryData_ServerMainForm: TMemoryData_ServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/NewService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/NewService_Impl.dfm
new file mode 100644
index 0000000..393cef1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/NewService_Impl.dfm	
@@ -0,0 +1,677 @@
+object NewService: TNewService
+  OldCreateOrder = True
+  ServiceSchema = Schema
+  ServiceDataStreamer = BinAdapter
+  ExportedDataTables = <
+    item
+      DataTable = dtComboDataset
+    end
+    item
+      DataTable = dtWindowsDir
+    end>
+  BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
+  ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
+  Left = 339
+  Top = 191
+  Height = 149
+  Width = 326
+  object BinAdapter: TDABinDataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = MemoryData_ServerDataModule.ConnectionManager
+    DataDictionary = MemoryData_ServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Employees'
+            SQL = 
+              'SELECT '#10'    EmployeeID, LastName, FirstName, Title, TitleOfCourt' +
+              'esy, '#10'    BirthDate, HireDate, Address, City, Region, PostalCode' +
+              ', '#10'    Country, HomePhone, Extension, Photo, Notes, ReportsTo, '#10 +
+              '    PhotoPath'#10'  FROM'#10'    Employees'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'Title'
+                TableField = 'Title'
+              end
+              item
+                DatasetField = 'TitleOfCourtesy'
+                TableField = 'TitleOfCourtesy'
+              end
+              item
+                DatasetField = 'BirthDate'
+                TableField = 'BirthDate'
+              end
+              item
+                DatasetField = 'HireDate'
+                TableField = 'HireDate'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'HomePhone'
+                TableField = 'HomePhone'
+              end
+              item
+                DatasetField = 'Extension'
+                TableField = 'Extension'
+              end
+              item
+                DatasetField = 'Photo'
+                TableField = 'Photo'
+              end
+              item
+                DatasetField = 'Notes'
+                TableField = 'Notes'
+              end
+              item
+                DatasetField = 'ReportsTo'
+                TableField = 'ReportsTo'
+              end
+              item
+                DatasetField = 'PhotoPath'
+                TableField = 'PhotoPath'
+              end>
+          end>
+        Name = 'Employees'
+        Fields = <
+          item
+            Name = 'EmployeeID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'LastName'
+            DataType = datString
+            Size = 20
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'FirstName'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Title'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'TitleOfCourtesy'
+            DataType = datString
+            Size = 25
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'BirthDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'HireDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'HomePhone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Extension'
+            DataType = datString
+            Size = 4
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Photo'
+            DataType = datBlob
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Notes'
+            DataType = datMemo
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ReportsTo'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PhotoPath'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Region'
+            SQL = 'SELECT '#10'    RegionID, RegionDescription'#10'  FROM'#10'    Region'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'RegionID'
+                TableField = 'RegionID'
+              end
+              item
+                DatasetField = 'RegionDescription'
+                TableField = 'RegionDescription'
+              end>
+          end>
+        Name = 'Regions'
+        Fields = <
+          item
+            Name = 'RegionID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RegionDescription'
+            DataType = datString
+            Size = 50
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <
+      item
+        Name = 'FK_Employees_Employees'
+        MasterDatasetName = 'Employees'
+        MasterFields = 'EmployeeID'
+        DetailDatasetName = 'Employees'
+        DetailFields = 'ReportsTo'
+      end>
+    UpdateRules = <>
+    Left = 32
+    Top = 56
+  end
+  object dtComboDataset: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'AutoIncField'
+        DataType = datAutoInc
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'TextField'
+        DataType = datString
+        Size = 50
+        BlobType = dabtUnknown
+        DisplayWidth = 50
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'CustomParameter'
+        DataType = datString
+        Size = 50
+        BlobType = dabtUnknown
+        ParamType = daptInput
+      end>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'ComboDataset'
+    IndexDefs = <>
+    Left = 128
+    Top = 56
+  end
+  object dtWindowsDir: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'FileName'
+        DataType = datString
+        Size = 200
+        BlobType = dabtUnknown
+        DisplayWidth = 50
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FileSize'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'Directory'
+        DataType = datString
+        Size = 200
+        BlobType = dabtUnknown
+        ParamType = daptInput
+      end>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'DirectoryData'
+    IndexDefs = <>
+    Left = 216
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/NewService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/NewService_Impl.pas
new file mode 100644
index 0000000..3d06ac6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/NewService_Impl.pas	
@@ -0,0 +1,173 @@
+unit NewService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} MemoryDataLibrary_Intf, uDAScriptingProvider, uDADataTable,
+  uDACDSDataTable, uDAClasses, uDADataStreamer, uDABinAdapter, uDAInterfaces;
+
+const
+  { Dataset names for Schema }
+  ds_Employees = 'Employees';
+  ds_Customers = 'Customers';
+  ds_Regions = 'Regions';
+
+type
+  { TNewService }
+  TNewService = class(TDataAbstractService, INewService)
+    BinAdapter: TDABinDataStreamer;
+    dtComboDataset: TDACDSDataTable;
+    dtWindowsDir: TDACDSDataTable;
+    Schema: TDASchema;
+    procedure DataAbstractServiceBeforeGetDatasetData(aSender: TObject;
+      const aDataset: IDADataset; const aIncludeSchema: Boolean;
+      const aMaxRecords: Integer);
+    procedure DataAbstractServiceValidateDatasetAccess(Sender: TObject;
+      const aConnection: IDAConnection; const aDatasetName: string;
+      const aParamNames: array of string;
+      const aParamValues: array of Variant; aSchema: TDASchema;
+      var Allowed: Boolean);
+  private
+    procedure FillComboDataset(const aDataset: IDAEditableDataset);
+    procedure FillWinDirDataset(const aDataset: IDAEditableDataset);
+  protected
+    { INewService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} MemoryDataLibrary_Invk, MemoryData_ServerData, Dialogs;
+
+procedure Create_NewService(out anInstance: IUnknown);
+begin
+  anInstance := TNewService.Create(nil);
+end;
+
+procedure TNewService.FillComboDataset(const aDataset: IDAEditableDataset);
+var
+  employees,
+    customers,
+    regions: IDADataset;
+  textfield: TDAField;
+begin
+  with aDataset do begin
+    // Opens the in memory data table
+    Open;
+    textfield := FieldByName('TextField');
+
+    // Adds 3 dummy records
+    Insert;
+    textfield.AsString := 'String A';
+    Post;
+
+    Insert;
+    textfield.AsString := 'String B';
+    Post;
+
+    Insert;
+    textfield.AsString := 'String C';
+    Post;
+
+    // Fetches data from other datasets, according to the value of the parameter "CustomParameter"
+    if (Pos('EMPLOYEES', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
+      employees := Schema.NewDataset(Connection, ds_Employees, [], [], TRUE);
+      while not employees.EOF do begin
+        Insert;
+        textfield.AsString := employees.FieldByName('FirstName').AsString + ' ' + employees.FieldByName('LastName').AsString;
+        Post;
+
+        employees.Next;
+      end;
+      employees:=nil;
+    end;
+    if (Pos('CUSTOMERS', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
+      customers := Schema.NewDataset(Connection, ds_Customers, [], [], TRUE);
+      while not customers.EOF do begin
+        Insert;
+        textfield.AsString := customers.FieldByName('CompanyName').AsString;
+        Post;
+
+        customers.Next;
+      end;
+      customers := nil;
+    end;
+    if (Pos('REGIONS', UpperCase(ParamByName('CustomParameter').AsString)) > 0) then begin
+      regions := Schema.NewDataset(Connection, ds_Regions, [], [], TRUE);
+      while not regions.EOF do begin
+        Insert;
+        textfield.AsString := regions.FieldByName('RegionDescription').AsString;
+        Post;
+
+        regions.Next;
+      end;
+      regions := nil;
+    end;
+  end;
+end;
+
+procedure TNewService.FillWinDirDataset(const aDataset: IDAEditableDataset);
+var
+  dirinfo: TSearchRec;
+begin
+  aDataset.Open;
+  if (FindFirst(IncludeTrailingPathDelimiter(aDataset.ParamByName('Directory').AsString) + '*.*', faArchive, dirinfo) = 0) then repeat
+      aDataset.Insert;
+
+      aDataset.FieldByName('FileName').AsString := dirinfo.Name;
+      aDataset.FieldByName('FileSize').AsInteger := dirinfo.Size;
+
+      aDataset.Post;
+    until (FindNext(dirinfo) <> 0);
+end;
+
+procedure TNewService.DataAbstractServiceBeforeGetDatasetData(
+  aSender: TObject; const aDataset: IDADataset;
+  const aIncludeSchema: Boolean; const aMaxRecords: Integer);
+begin
+  if SameText(aDataset.LogicalName, dtComboDataset.LogicalName) then
+    FillComboDataset((dtComboDataset as IDAEditableDataset))
+  else if SameText(aDataset.LogicalName, dtWindowsDir.LogicalName) then
+    FillWinDirDataset((dtWindowsDir as IDAEditableDataset));
+end;
+
+procedure TNewService.DataAbstractServiceValidateDatasetAccess(
+  Sender: TObject; const aConnection: IDAConnection;
+  const aDatasetName: string; const aParamNames: array of string;
+  const aParamValues: array of Variant; aSchema: TDASchema;
+  var Allowed: Boolean);
+
+  procedure FillParameters(aDataSet: TDACDSDataTable);
+  var
+    i: integer;
+  begin
+    for i := Low(aParamNames) to High(aParamNames) do
+      aDataset.ParamByName(aParamNames[i]).Value := aParamValues[i];
+  end;
+
+begin
+  if SameText(aDatasetName, dtComboDataset.LogicalName) then
+    FillParameters(dtComboDataset)
+  else if SameText(aDatasetName, dtWindowsDir.LogicalName) then
+    FillParameters(dtWindowsDir)
+end;
+
+initialization
+  TROClassFactory.Create('NewService', Create_NewService, TNewService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/RODLFILE.res
new file mode 100644
index 0000000..066b5bf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Memory Data/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.Sample.html
new file mode 100644
index 0000000..0c9d025
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.Sample.html	
@@ -0,0 +1,30 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Multi Level Detail Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+  This sample shows how to implement master/detail/detail updates as simply as possible.<br>
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   Examine the simple code in <b>MultiLevelDetailClient_Main.pas</b>.
+	</li>
+</ul>
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.bdsgroup
new file mode 100644
index 0000000..14cde7c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0D7AA8F3-6600-407A-8D69-F38F810C227A}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="MultiLevelDetailServer.exe">MultiLevelDetailServer.bdsproj</Projects>
+      <Projects Name="MultiLevelDetailClient.exe">MultiLevelDetailClient.bdsproj</Projects>
+      <Projects Name="Targets">MultiLevelDetailServer.exe MultiLevelDetailClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.bpg
new file mode 100644
index 0000000..514c8c0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = MultiLevelDetailServer.exe MultiLevelDetailClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+MultiLevelDetailServer.exe: MultiLevelDetailServer.dpr
+  $(DCC)
+
+MultiLevelDetailClient.exe: MultiLevelDetailClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.groupproj
new file mode 100644
index 0000000..0249223
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetail.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{a8aee872-234f-4970-aa60-4963b9b3acfb}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="MultiLevelDetailServer">
+    <MSBuild Projects="MultiLevelDetailServer.dproj" Targets="" />
+  </Target>
+  <Target Name="MultiLevelDetailServer:Clean">
+    <MSBuild Projects="MultiLevelDetailServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MultiLevelDetailServer:Make">
+    <MSBuild Projects="MultiLevelDetailServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="MultiLevelDetailClient">
+    <MSBuild Projects="MultiLevelDetailClient.dproj" Targets="" />
+  </Target>
+  <Target Name="MultiLevelDetailClient:Clean">
+    <MSBuild Projects="MultiLevelDetailClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MultiLevelDetailClient:Make">
+    <MSBuild Projects="MultiLevelDetailClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="MultiLevelDetailServer;MultiLevelDetailClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="MultiLevelDetailServer:Clean;MultiLevelDetailClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="MultiLevelDetailServer:Make;MultiLevelDetailClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.bdsproj
new file mode 100644
index 0000000..98918df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{4FFEA285-AC9E-45AA-84FD-F2385E0957B1}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MultiLevelDetailClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.dpr
new file mode 100644
index 0000000..c6d38c4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.dpr	
@@ -0,0 +1,18 @@
+program MultiLevelDetailClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  MultiLevelDetailClient_Main in 'MultiLevelDetailClient_Main.pas' {MultiLevelDetailClient_MainForm},
+  MultiLevelDetailClient_Data in 'MultiLevelDetailClient_Data.pas' {MultiLevelDetailClient_DataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Multi Level Detail Client';
+  Application.CreateForm(TMultiLevelDetailClient_DataModule, MultiLevelDetailClient_DataModule);
+  Application.CreateForm(TMultiLevelDetailClient_MainForm, MultiLevelDetailClient_MainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.dproj
new file mode 100644
index 0000000..54705d0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f33b19c1-5014-448b-8588-d80873810fe1}</ProjectGuid>
+    <MainSource>MultiLevelDetailClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MultiLevelDetailClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MultiLevelDetailClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MultiLevelDetailClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MultiLevelDetailClient_Data.pas">
+      <Form>MultiLevelDetailClient_DataModule</Form>
+    </DCCReference>
+    <DCCReference Include="MultiLevelDetailClient_Main.pas">
+      <Form>MultiLevelDetailClient_MainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Data.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Data.dfm
new file mode 100644
index 0000000..1ccecda
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Data.dfm	
@@ -0,0 +1,195 @@
+object MultiLevelDetailClient_DataModule: TMultiLevelDetailClient_DataModule
+  OldCreateOrder = True
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'MultiLevelDetailService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABinDataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object ds_Categories: TDADataSource
+    DataSet = tbl_Categories.Dataset
+    DataTable = tbl_Categories
+    Left = 133
+    Top = 131
+  end
+  object ds_Products: TDADataSource
+    DataSet = tbl_Products.Dataset
+    DataTable = tbl_Products
+    Left = 133
+    Top = 177
+  end
+  object ds_OrderDetails: TDADataSource
+    DataSet = tbl_OrderDetails.Dataset
+    DataTable = tbl_OrderDetails
+    Left = 133
+    Top = 86
+  end
+  object tbl_OrderDetails: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datInteger
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ProductID'
+        DataType = datInteger
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'UnitPrice'
+        DataType = datCurrency
+        Required = True
+      end
+      item
+        Name = 'Quantity'
+        DataType = datSmallInt
+        Required = True
+      end
+      item
+        Name = 'Discount'
+        DataType = datFloat
+        Required = True
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    AfterInsert = tbl_OrderDetailsAfterInsert
+    MasterSource = ds_Products
+    MasterFields = 'ProductID'
+    DetailFields = 'ProductID'
+    LogicalName = 'Order Details'
+    IndexDefs = <>
+    Left = 221
+    Top = 86
+  end
+  object tbl_Products: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ProductID'
+        DataType = datAutoInc
+        GeneratorName = 'Products'
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ProductName'
+        DataType = datWideString
+        Size = 40
+        Required = True
+      end
+      item
+        Name = 'SupplierID'
+        DataType = datInteger
+      end
+      item
+        Name = 'CategoryID'
+        DataType = datInteger
+      end
+      item
+        Name = 'QuantityPerUnit'
+        DataType = datWideString
+        Size = 20
+      end
+      item
+        Name = 'UnitPrice'
+        DataType = datCurrency
+      end
+      item
+        Name = 'UnitsInStock'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'UnitsOnOrder'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'ReorderLevel'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'Discontinued'
+        DataType = datBoolean
+        Required = True
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    AfterInsert = tbl_ProductsAfterInsert
+    MasterSource = ds_Categories
+    MasterFields = 'CategoryID'
+    DetailFields = 'CategoryID'
+    LogicalName = 'Products'
+    IndexDefs = <>
+    Left = 218
+    Top = 179
+  end
+  object tbl_Categories: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CategoryID'
+        DataType = datAutoInc
+        GeneratorName = 'Categories'
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'CategoryName'
+        DataType = datWideString
+        Size = 15
+        Required = True
+      end
+      item
+        Name = 'Description'
+        DataType = datMemo
+      end
+      item
+        Name = 'Picture'
+        DataType = datBlob
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'Categories'
+    IndexDefs = <>
+    Left = 220
+    Top = 131
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Data.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Data.pas
new file mode 100644
index 0000000..b046fc2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Data.pas	
@@ -0,0 +1,66 @@
+unit MultiLevelDetailClient_Data;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
+  uDADataStreamer, uDARemoteDataAdapter, uDAScriptingProvider,
+  uDACDSDataTable, uDAMemDataTable;
+
+type
+  TMultiLevelDetailClient_DataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABinDataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    ds_Categories: TDADataSource;
+    ds_Products: TDADataSource;
+    ds_OrderDetails: TDADataSource;
+    tbl_OrderDetails: TDAMemDataTable;
+    tbl_Products: TDAMemDataTable;
+    tbl_Categories: TDAMemDataTable;
+    procedure tbl_OrderDetailsAfterInsert(DataTable: TDADataTable);
+    procedure tbl_ProductsAfterInsert(DataTable: TDADataTable);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MultiLevelDetailClient_DataModule: TMultiLevelDetailClient_DataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TMultiLevelDetailClient_DataModule.tbl_OrderDetailsAfterInsert(
+  DataTable: TDADataTable);
+begin
+  if DataTable.FieldByName('UnitPrice').IsNull
+    then DataTable.FieldByName('UnitPrice').AsCurrency := 0.0;
+  if DataTable.FieldByName('Quantity').IsNull
+    then DataTable.FieldByName('Quantity').AsInteger := 1;
+  if DataTable.FieldByName('Discount').IsNull
+    then DataTable.FieldByName('Discount').AsFloat := 0.0;
+end;
+
+procedure TMultiLevelDetailClient_DataModule.tbl_ProductsAfterInsert(
+  DataTable: TDADataTable);
+begin
+  if DataTable.FieldByName('UnitPrice').IsNull
+    then DataTable.FieldByName('UnitPrice').AsCurrency := 0.0;
+  if DataTable.FieldByName('ReorderLevel').IsNull
+    then DataTable.FieldByName('ReorderLevel').AsSmallInt := 0;
+  if DataTable.FieldByName('UnitsInStock').IsNull
+    then DataTable.FieldByName('UnitsInStock').AsSmallInt := 0;
+  if DataTable.FieldByName('UnitsOnOrder').IsNull
+    then DataTable.FieldByName('UnitsOnOrder').AsSmallInt := 0;
+  if DataTable.FieldByName('Discontinued').IsNull
+    then DataTable.FieldByName('Discontinued').AsBoolean := false;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Main.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Main.dfm
new file mode 100644
index 0000000..8ac5024
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Main.dfm	
@@ -0,0 +1,101 @@
+object MultiLevelDetailClient_MainForm: TMultiLevelDetailClient_MainForm
+  Left = 138
+  Top = 151
+  AutoScroll = False
+  Caption = 'Multi Level Detail Client'
+  ClientHeight = 380
+  ClientWidth = 457
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 252
+    Width = 457
+    Height = 8
+    Cursor = crVSplit
+    Align = alBottom
+    Beveled = True
+  end
+  object Splitter2: TSplitter
+    Left = 0
+    Top = 124
+    Width = 457
+    Height = 8
+    Cursor = crVSplit
+    Align = alBottom
+    Beveled = True
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 457
+    Height = 27
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object FillButton: TButton
+      Left = 9
+      Top = 3
+      Width = 75
+      Height = 22
+      Caption = 'Fill'
+      TabOrder = 0
+      OnClick = FillButtonClick
+    end
+    object UpdateButton: TButton
+      Left = 147
+      Top = 3
+      Width = 75
+      Height = 22
+      Caption = 'Update'
+      TabOrder = 1
+      OnClick = UpdateButtonClick
+    end
+  end
+  object gOrderDetails: TDBGrid
+    Left = 0
+    Top = 260
+    Width = 457
+    Height = 120
+    Align = alBottom
+    DataSource = MultiLevelDetailClient_DataModule.ds_OrderDetails
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object gProducts: TDBGrid
+    Left = 0
+    Top = 132
+    Width = 457
+    Height = 120
+    Align = alBottom
+    DataSource = MultiLevelDetailClient_DataModule.ds_Products
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object gCategories: TDBGrid
+    Left = 0
+    Top = 27
+    Width = 457
+    Height = 97
+    Align = alClient
+    DataSource = MultiLevelDetailClient_DataModule.ds_Categories
+    TabOrder = 3
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Main.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Main.pas
new file mode 100644
index 0000000..9eeba1e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailClient_Main.pas	
@@ -0,0 +1,49 @@
+unit MultiLevelDetailClient_Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ExtCtrls,
+  Grids, DBGrids;
+
+type
+  TMultiLevelDetailClient_MainForm = class(TForm)
+    Panel1: TPanel;
+    FillButton: TButton;
+    gOrderDetails: TDBGrid;
+    Splitter1: TSplitter;
+    gProducts: TDBGrid;
+    Splitter2: TSplitter;
+    gCategories: TDBGrid;
+    UpdateButton: TButton;
+    procedure FillButtonClick(Sender: TObject);
+    procedure UpdateButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MultiLevelDetailClient_MainForm: TMultiLevelDetailClient_MainForm;
+
+implementation
+
+uses
+  MultiLevelDetailClient_Data;
+
+{$R *.dfm}
+
+procedure TMultiLevelDetailClient_MainForm.FillButtonClick(Sender: TObject);
+begin
+  MultiLevelDetailClient_DataModule.tbl_Categories.Open;
+end;
+
+procedure TMultiLevelDetailClient_MainForm.UpdateButtonClick(Sender: TObject);
+begin
+  MultiLevelDetailClient_DataModule.tbl_Categories.ApplyUpdates;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary.RODL
new file mode 100644
index 0000000..d1e6d7a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary.RODL	
@@ -0,0 +1,15 @@
+<Library Name="MultiLevelDetailLibrary" UID="{C36F2B70-713D-4D12-A330-097CEF6EBDDB}">
+  <Services>
+    <Service Name="MultiLevelDetailService" UID="{E8193CF5-EC3E-4028-9910-22F2D5DD1B58}" Ancestor="DataAbstractService">
+      <Interfaces>
+         <Interface Name="Default" UID="{F2D11C9C-E4E6-4732-8692-0CAC26018C78}">
+            <Operations>
+            </Operations>
+         </Interface>
+      </Interfaces>
+    </Service>
+  </Services>
+  <Uses>
+     <Use Name="DataAbstract" UID="{24D6CB2B-619D-470B-8990-FE6887F15204}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" />
+  </Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary_Intf.pas
new file mode 100644
index 0000000..2edeeaf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary_Intf.pas	
@@ -0,0 +1,82 @@
+unit MultiLevelDetailLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{C36F2B70-713D-4D12-A330-097CEF6EBDDB}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IMultiLevelDetailService_IID : TGUID = '{F2D11C9C-E4E6-4732-8692-0CAC26018C78}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IMultiLevelDetailService = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IMultiLevelDetailService }
+  IMultiLevelDetailService = interface(IDataAbstractService)
+    ['{F2D11C9C-E4E6-4732-8692-0CAC26018C78}']
+  end;
+
+  { CoMultiLevelDetailService }
+  CoMultiLevelDetailService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiLevelDetailService;
+  end;
+
+  { TMultiLevelDetailService_Proxy }
+  TMultiLevelDetailService_Proxy = class(TDataAbstractService_Proxy, IMultiLevelDetailService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoMultiLevelDetailService }
+
+class function CoMultiLevelDetailService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiLevelDetailService;
+begin
+  result := TMultiLevelDetailService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TMultiLevelDetailService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'MultiLevelDetailService';
+end;
+
+initialization
+  RegisterProxyClass(IMultiLevelDetailService_IID, TMultiLevelDetailService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IMultiLevelDetailService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary_Invk.pas
new file mode 100644
index 0000000..52216c4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailLibrary_Invk.pas	
@@ -0,0 +1,45 @@
+unit MultiLevelDetailLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} MultiLevelDetailLibrary_Intf;
+
+type
+  TMultiLevelDetailService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TMultiLevelDetailService_Invoker }
+
+constructor TMultiLevelDetailService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.bdsproj
new file mode 100644
index 0000000..0a3e952
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{DB6FD096-16BF-4726-8B75-AB9D506D6464}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MultiLevelDetailServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.dpr
new file mode 100644
index 0000000..cd8a8ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.dpr	
@@ -0,0 +1,30 @@
+program MultiLevelDetailServer;
+
+{#ROGEN:MultiLevelDetailLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  MultiLevelDetailServer_Main in 'MultiLevelDetailServer_Main.pas' {MultiLevelDetailServer_MainForm},
+  MultiLevelDetailService_Impl in 'MultiLevelDetailService_Impl.pas' {MultiLevelDetailService: TDARemoteService},
+  MultiLevelDetailServer_Data in 'MultiLevelDetailServer_Data.pas' {MultiLevelDetailServer_DataModule: TDataModule},
+  MultiLevelDetailLibrary_Intf in 'MultiLevelDetailLibrary_Intf.pas',
+  MultiLevelDetailLibrary_Invk in 'MultiLevelDetailLibrary_Invk.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('MultiLevelDetail', 'MultiLevelDetail') then begin
+    ROService.CreateForm(TMultiLevelDetailServer_DataModule, MultiLevelDetailServer_DataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.Title := 'Multi Level Detail Server';
+  Application.CreateForm(TMultiLevelDetailServer_DataModule, MultiLevelDetailServer_DataModule);
+  Application.CreateForm(TMultiLevelDetailServer_MainForm, MultiLevelDetailServer_MainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.dproj
new file mode 100644
index 0000000..da81c75
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.dproj	
@@ -0,0 +1,52 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{b4f8c45f-3323-46d4-ba1a-8642a93d1e6e}</ProjectGuid>
+    <MainSource>MultiLevelDetailServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MultiLevelDetailServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1058</VersionInfo><VersionInfo Name="CodePage">1251</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">MultiLevelDetailServer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="MultiLevelDetailServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MultiLevelDetailLibrary_Intf.pas" />
+    <DCCReference Include="MultiLevelDetailLibrary_Invk.pas" />
+    <DCCReference Include="MultiLevelDetailServer_Data.pas">
+      <Form>MultiLevelDetailServer_DataModule</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="MultiLevelDetailServer_Main.pas">
+      <Form>MultiLevelDetailServer_MainForm</Form>
+    </DCCReference>
+    <DCCReference Include="MultiLevelDetailService_Impl.pas">
+      <Form>MultiLevelDetailService</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Data.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Data.dfm
new file mode 100644
index 0000000..faa7bc1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Data.dfm	
@@ -0,0 +1,62 @@
+object MultiLevelDetailServer_DataModule: TMultiLevelDetailServer_DataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        Default = True
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Data.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Data.pas
new file mode 100644
index 0000000..8dd6a39
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Data.pas	
@@ -0,0 +1,42 @@
+unit MultiLevelDetailServer_Data;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver, uROIndyTCPServer;
+
+type
+  TMultiLevelDetailServer_DataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    SessionManager: TROInMemorySessionManager;
+    DataDictionary: TDADataDictionary;
+    
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MultiLevelDetailServer_DataModule: TMultiLevelDetailServer_DataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TMultiLevelDetailServer_DataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Main.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Main.dfm
new file mode 100644
index 0000000..aced753
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Main.dfm	
@@ -0,0 +1,21 @@
+object MultiLevelDetailServer_MainForm: TMultiLevelDetailServer_MainForm
+  Left = 372
+  Top = 277
+  BorderStyle = bsDialog
+  Caption = 'Multi Level Detail Server'
+  ClientHeight = 64
+  ClientWidth = 277
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 34
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Main.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Main.pas
new file mode 100644
index 0000000..bf43bb4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailServer_Main.pas	
@@ -0,0 +1,25 @@
+unit MultiLevelDetailServer_Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TMultiLevelDetailServer_MainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MultiLevelDetailServer_MainForm: TMultiLevelDetailServer_MainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailService_Impl.dfm
new file mode 100644
index 0000000..439eba3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailService_Impl.dfm	
@@ -0,0 +1,252 @@
+object MultiLevelDetailService: TMultiLevelDetailService
+  OldCreateOrder = True
+  SessionManager = MultiLevelDetailServer_DataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Height = 212
+  Width = 216
+  object DataStreamer: TDABinDataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = MultiLevelDetailServer_DataModule.ConnectionManager
+    DataDictionary = MultiLevelDetailServer_DataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            Default = True
+            TargetTable = 'Categories'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CategoryID'
+                TableField = 'CategoryID'
+              end
+              item
+                DatasetField = 'CategoryName'
+                TableField = 'CategoryName'
+              end
+              item
+                DatasetField = 'Description'
+                TableField = 'Description'
+              end
+              item
+                DatasetField = 'Picture'
+                TableField = 'Picture'
+              end>
+          end>
+        Name = 'Categories'
+        Fields = <
+          item
+            Name = 'CategoryID'
+            DataType = datAutoInc
+            GeneratorName = 'Categories'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'CategoryName'
+            DataType = datWideString
+            Size = 15
+            Required = True
+          end
+          item
+            Name = 'Description'
+            DataType = datMemo
+          end
+          item
+            Name = 'Picture'
+            DataType = datBlob
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            Default = True
+            TargetTable = 'Order Details'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'ProductID'
+                TableField = 'ProductID'
+              end
+              item
+                DatasetField = 'UnitPrice'
+                TableField = 'UnitPrice'
+              end
+              item
+                DatasetField = 'Quantity'
+                TableField = 'Quantity'
+              end
+              item
+                DatasetField = 'Discount'
+                TableField = 'Discount'
+              end>
+          end>
+        Name = 'Order Details'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ProductID'
+            DataType = datInteger
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'UnitPrice'
+            DataType = datCurrency
+            Required = True
+          end
+          item
+            Name = 'Quantity'
+            DataType = datSmallInt
+            Required = True
+          end
+          item
+            Name = 'Discount'
+            DataType = datFloat
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            Default = True
+            TargetTable = 'Products'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProductID'
+                TableField = 'ProductID'
+              end
+              item
+                DatasetField = 'ProductName'
+                TableField = 'ProductName'
+              end
+              item
+                DatasetField = 'SupplierID'
+                TableField = 'SupplierID'
+              end
+              item
+                DatasetField = 'CategoryID'
+                TableField = 'CategoryID'
+              end
+              item
+                DatasetField = 'QuantityPerUnit'
+                TableField = 'QuantityPerUnit'
+              end
+              item
+                DatasetField = 'UnitPrice'
+                TableField = 'UnitPrice'
+              end
+              item
+                DatasetField = 'UnitsInStock'
+                TableField = 'UnitsInStock'
+              end
+              item
+                DatasetField = 'UnitsOnOrder'
+                TableField = 'UnitsOnOrder'
+              end
+              item
+                DatasetField = 'ReorderLevel'
+                TableField = 'ReorderLevel'
+              end
+              item
+                DatasetField = 'Discontinued'
+                TableField = 'Discontinued'
+              end>
+          end>
+        Name = 'Products'
+        Fields = <
+          item
+            Name = 'ProductID'
+            DataType = datAutoInc
+            GeneratorName = 'Products'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ProductName'
+            DataType = datWideString
+            Size = 40
+            Required = True
+          end
+          item
+            Name = 'SupplierID'
+            DataType = datInteger
+          end
+          item
+            Name = 'CategoryID'
+            DataType = datInteger
+          end
+          item
+            Name = 'QuantityPerUnit'
+            DataType = datWideString
+            Size = 20
+          end
+          item
+            Name = 'UnitPrice'
+            DataType = datCurrency
+          end
+          item
+            Name = 'UnitsInStock'
+            DataType = datSmallInt
+          end
+          item
+            Name = 'UnitsOnOrder'
+            DataType = datSmallInt
+          end
+          item
+            Name = 'ReorderLevel'
+            DataType = datSmallInt
+          end
+          item
+            Name = 'Discontinued'
+            DataType = datBoolean
+            Required = True
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <
+      item
+        Name = 'FK_Order Details_Products'
+        MasterDatasetName = 'Products'
+        MasterFields = 'ProductID'
+        DetailDatasetName = 'Order Details'
+        DetailFields = 'ProductID'
+        RelationshipType = rtForeignKey
+      end
+      item
+        Name = 'FK_Products_Categories'
+        MasterDatasetName = 'Categories'
+        MasterFields = 'CategoryID'
+        DetailDatasetName = 'Products'
+        DetailFields = 'CategoryID'
+        RelationshipType = rtForeignKey
+      end>
+    UpdateRules = <>
+    Version = 0
+    Left = 32
+    Top = 56
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailService_Impl.pas
new file mode 100644
index 0000000..43f3d54
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/MultiLevelDetailService_Impl.pas	
@@ -0,0 +1,37 @@
+unit MultiLevelDetailService_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABinAdapter, uDAInterfaces, uDADataStreamer,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} MultiLevelDetailLibrary_Intf;
+
+type
+  { TMultiLevelDetailService }
+  TMultiLevelDetailService = class(TDataAbstractService, IMultiLevelDetailService)
+    DataStreamer: TDABinDataStreamer;
+    Schema: TDASchema;
+  private
+  protected
+    { IMultiLevelDetailService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} MultiLevelDetailLibrary_Invk, MultiLevelDetailServer_Data;
+
+procedure Create_MultiLevelDetailService(out anInstance: IUnknown);
+begin
+  anInstance := TMultiLevelDetailService.Create(nil);
+end;
+
+initialization
+  TROClassFactory.Create('MultiLevelDetailService', Create_MultiLevelDetailService, TMultiLevelDetailService_Invoker);
+finalization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/RODLFILE.res
new file mode 100644
index 0000000..9bff87d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Multi Level Detail/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/NewService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/NewService_Impl.dfm
new file mode 100644
index 0000000..1007367
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/NewService_Impl.dfm	
@@ -0,0 +1,727 @@
+object NewService: TNewService
+  OldCreateOrder = True
+  AcquireConnection = True
+  ConnectionName = 'ADO'
+  ServiceSchema = Schema
+  ServiceDataStreamer = BinAdapter
+  ExportedDataTables = <>
+  Left = 372
+  Top = 283
+  Height = 364
+  Width = 436
+  object BinAdapter: TDABinDataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = QuantumGrid4_ServerDataModule.ConnectionManager
+    DataDictionary = DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'  FROM'#10' ' +
+              '   Orders'#10'  WHERE CustomerID=:CustomerID'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'  FROM'#10' ' +
+              '   Orders'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'AllOrders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 32
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 33
+    Top = 104
+  end
+  object bsCustomers: TDABusinessProcessor
+    Schema = Schema
+    ReferencedDataset = 'Customers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete]
+    UpdateMode = updWhereKeyOnly
+    Left = 64
+    Top = 176
+  end
+  object bsOrders: TDABusinessProcessor
+    Schema = Schema
+    ReferencedDataset = 'Orders'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete]
+    UpdateMode = updWhereKeyOnly
+    Left = 160
+    Top = 176
+  end
+  object bsAllOrders: TDABusinessProcessor
+    Schema = Schema
+    ReferencedDataset = 'AllOrders'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete]
+    UpdateMode = updWhereKeyOnly
+    Left = 240
+    Top = 176
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/NewService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/NewService_Impl.pas
new file mode 100644
index 0000000..d601ce6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/NewService_Impl.pas	
@@ -0,0 +1,84 @@
+unit NewService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} QuantumGrid4Library_Intf, uDAScriptingProvider, uDABusinessProcessor,
+  uDAClasses, uDADataStreamer, uDABinAdapter;
+
+const
+  { Dataset names for Schema }
+  ds_Customers = 'Customers';
+  ds_Orders = 'Orders';
+  ds_AllOrders = 'AllOrders';
+
+type
+  { TNewService }
+  TNewService = class(TDataAbstractService, INewService)
+    BinAdapter: TDABinDataStreamer;
+    bsCustomers: TDABusinessProcessor;
+    bsOrders: TDABusinessProcessor;
+    Schema: TDASchema;
+    DataDictionary: TDADataDictionary;
+    bsAllOrders: TDABusinessProcessor;
+  private
+  protected
+    { INewService methods }
+    function GetCustomers: Binary;
+    function UpdateCustomers(const IncomingData: Binary): Binary;
+    function GetOrders(const CustomerID: AnsiString): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} QuantumGrid4Library_Invk, QuantumGrid4_ServerData, uDAInterfaces;
+
+procedure Create_NewService(out anInstance : IUnknown);
+begin
+  anInstance := TNewService.Create(NIL);
+end;
+
+
+{ TNewService }
+
+
+function TNewService.GetCustomers: Binary;
+begin
+  result := Binary.Create;
+  BinAdapter.Initialize(result, aiWrite);
+  BinAdapter.WriteDataset(Schema.NewDataset(Connection, ds_Customers), [woRows]);
+  BinAdapter.Finalize;
+end;
+
+function TNewService.GetOrders(const CustomerID: AnsiString): Binary;
+begin
+  result := Binary.Create;
+  BinAdapter.Initialize(result, aiWrite);
+  BinAdapter.WriteDataset(Schema.NewDataset(Connection, ds_Orders,['CustomerID'], [CustomerID]), [woRows]);
+  BinAdapter.Finalize;
+end;
+
+function TNewService.UpdateCustomers(const IncomingData: Binary): Binary;
+begin
+  result := UpdateData(IncomingData);
+end;
+
+initialization
+  TROClassFactory.Create('NewService', Create_NewService, TNewService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.Sample.html
new file mode 100644
index 0000000..fb68fed
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.Sample.html	
@@ -0,0 +1,58 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>QuantumGrid4</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+  This example demonstrates how to use the <b>QuantumGrid4</b> (or <b>QuantumGrid5</b>)
+  product from Developer Express (contact <b>www.devexpress.com</b>. for
+  licensing
+  information if you do not already have the product).
+</p>
+<p>
+  &nbsp;
+</p>
+<p class="h2">
+  Things to look at in QuantumGrid4_server.exe
+</p>
+<p>
+  The most important methods in the host application are in the <b>NewService_Impl</b>
+  unit:
+</p>
+  <ul>
+  <li>
+  <b>GetCustomers</b> retrieves all the records from that dataset.
+  </li>
+  <li class="contents">
+  <strong>GetOrders </strong>only retrieves Orders for the current Customer.
+  Note the parameters passed to it.
+  </li>
+  </ul>
+<p class="h2">
+  Things to&nbsp;look at in QuantumGrid4_client.exe
+</p>
+<p>
+  There's only two lines of code in <b>QuantumGrid4_ClientMain</b>, one for each button.
+</p>
+<p>
+  Have a look at <b>QuantumGrid4_ClientData</b> though. This contains code that
+  saves references to customers previously accessed, thus avoiding re-fetching details.
+</p>
+<p>
+  &nbsp;
+</p>
+
+<!--!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.bdsgroup
new file mode 100644
index 0000000..23846d8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{26238F3F-9FDB-4F79-B84D-EA0212BEBD94}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="QuantumGrid4_Client.exe">QuantumGrid4_Client.bdsproj</Projects>
+      <Projects Name="QuantumGrid4_server.exe">QuantumGrid4_server.bdsproj</Projects>
+      <Projects Name="Targets">QuantumGrid4_Client.exe QuantumGrid4_server.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.bpg
new file mode 100644
index 0000000..b2cc016
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = QuantumGrid4_Client.exe QuantumGrid4_server.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+QuantumGrid4_Client.exe: QuantumGrid4_Client.dpr
+  $(DCC)
+
+QuantumGrid4_server.exe: QuantumGrid4_server.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.groupproj
new file mode 100644
index 0000000..abbfa8b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{91a9ff88-032e-4329-a4e4-75d3d762f4d9}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="QuantumGrid4_Client">
+    <MSBuild Projects="QuantumGrid4_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="QuantumGrid4_Client:Clean">
+    <MSBuild Projects="QuantumGrid4_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="QuantumGrid4_Client:Make">
+    <MSBuild Projects="QuantumGrid4_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="QuantumGrid4_server">
+    <MSBuild Projects="QuantumGrid4_server.dproj" Targets="" />
+  </Target>
+  <Target Name="QuantumGrid4_server:Clean">
+    <MSBuild Projects="QuantumGrid4_server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="QuantumGrid4_server:Make">
+    <MSBuild Projects="QuantumGrid4_server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="QuantumGrid4_Client;QuantumGrid4_server" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="QuantumGrid4_Client:Clean;QuantumGrid4_server:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="QuantumGrid4_Client:Make;QuantumGrid4_server:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library.rodl
new file mode 100644
index 0000000..be38352
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library.rodl	
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="QuantumGrid4Library" UID="{7EF63C27-FB17-4F10-985E-92BAF0E3E619}" Version="3.0">
+<Services>
+<Service Name="NewService" UID="{6F82792F-CF54-4DF4-B793-1BC546A68F8F}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{E4E6FDE4-2542-4554-B59A-438E23439111}">
+<Documentation>
+<![CDATA[Service NewService. This service has been automatically generated using the Data Abstract template you can find in the Templates directory.]]>
+</Documentation>
+<Operations>
+<Operation Name="GetCustomers" >
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="UpdateCustomers" >
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="IncomingData" DataType="Binary" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetOrders" >
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="CustomerID" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract4_RODL" UID="{149D994D-DFCD-4D97-9C38-4F8A56EF0C03}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library_Intf.pas
new file mode 100644
index 0000000..1f01454
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library_Intf.pas	
@@ -0,0 +1,131 @@
+unit QuantumGrid4Library_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{7EF63C27-FB17-4F10-985E-92BAF0E3E619}';
+
+  { Service Interface ID's }
+  INewService_IID : TGUID = '{E4E6FDE4-2542-4554-B59A-438E23439111}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  INewService = interface;
+
+
+
+
+  { INewService }
+  INewService = interface(IDataAbstractService)
+    ['{E4E6FDE4-2542-4554-B59A-438E23439111}']
+    function GetCustomers: Binary;
+    function UpdateCustomers(const IncomingData: Binary): Binary;
+    function GetOrders(const CustomerID: String): Binary;
+  end;
+
+  { CoNewService }
+  CoNewService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService;
+  end;
+
+  { TNewService_Proxy }
+  TNewService_Proxy = class(TDataAbstractService_Proxy, INewService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetCustomers: Binary;
+    function UpdateCustomers(const IncomingData: Binary): Binary;
+    function GetOrders(const CustomerID: String): Binary;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoNewService }
+
+class function CoNewService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService;
+begin
+  result := TNewService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TNewService_Proxy }
+
+function TNewService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'NewService';
+end;
+
+function TNewService_Proxy.GetCustomers: Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'QuantumGrid4Library', __InterfaceName, 'GetCustomers');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TNewService_Proxy.UpdateCustomers(const IncomingData: Binary): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'QuantumGrid4Library', __InterfaceName, 'UpdateCustomers');
+    __Message.Write('IncomingData', TypeInfo(Binary), IncomingData, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TNewService_Proxy.GetOrders(const CustomerID: String): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'QuantumGrid4Library', __InterfaceName, 'GetOrders');
+    __Message.Write('CustomerID', TypeInfo(String), CustomerID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(INewService_IID, TNewService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(INewService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library_Invk.pas
new file mode 100644
index 0000000..23590ae
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4Library_Invk.pas	
@@ -0,0 +1,117 @@
+unit QuantumGrid4Library_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} QuantumGrid4Library_Intf;
+
+type
+  TNewService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+    procedure Invoke_GetCustomers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_UpdateCustomers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TNewService_Invoker }
+
+procedure TNewService_Invoker.Invoke_GetCustomers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetCustomers: Binary; }
+var
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as INewService).GetCustomers;
+
+    __Message.InitializeResponseMessage(__Transport, 'QuantumGrid4Library', 'NewService', 'GetCustomersResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TNewService_Invoker.Invoke_UpdateCustomers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function UpdateCustomers(const IncomingData: Binary): Binary; }
+var
+  IncomingData: Binary;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  IncomingData := nil;
+  lResult := nil;
+  try
+    __Message.Read('IncomingData', TypeInfo(Binary), IncomingData, []);
+
+    lResult := (__Instance as INewService).UpdateCustomers(IncomingData);
+
+    __Message.InitializeResponseMessage(__Transport, 'QuantumGrid4Library', 'NewService', 'UpdateCustomersResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(IncomingData);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TNewService_Invoker.Invoke_GetOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetOrders(const CustomerID: String): Binary; }
+var
+  CustomerID: String;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('CustomerID', TypeInfo(String), CustomerID, []);
+
+    lResult := (__Instance as INewService).GetOrders(CustomerID);
+
+    __Message.InitializeResponseMessage(__Transport, 'QuantumGrid4Library', 'NewService', 'GetOrdersResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.bdsproj
new file mode 100644
index 0000000..9f1d6d4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{39E5DE38-A62A-41FD-8C03-2BA8DE1A4948}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">QuantumGrid4_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.dpr
new file mode 100644
index 0000000..e5424b7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.dpr	
@@ -0,0 +1,17 @@
+program QuantumGrid4_Client;
+
+uses
+  uROComInit,
+  Forms,
+  QuantumGrid4_ClientMain in 'QuantumGrid4_ClientMain.pas' {QuantumGrid4_ClientMainForm},
+  QuantumGrid4_ClientData in 'QuantumGrid4_ClientData.pas' {QuantumGrid4_ClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'QuantumGrid4 Client';
+  Application.CreateForm(TQuantumGrid4_ClientDataModule, QuantumGrid4_ClientDataModule);
+  Application.CreateForm(TQuantumGrid4_ClientMainForm, QuantumGrid4_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.dproj
new file mode 100644
index 0000000..394b2ed
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{186a7cf2-9814-47d5-8eba-10b5c4756fee}</ProjectGuid>
+    <MainSource>QuantumGrid4_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>QuantumGrid4_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">QuantumGrid4_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="QuantumGrid4_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="QuantumGrid4_ClientData.pas">
+      <Form>QuantumGrid4_ClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="QuantumGrid4_ClientMain.pas">
+      <Form>QuantumGrid4_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientData.dfm
new file mode 100644
index 0000000..1ec161b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientData.dfm	
@@ -0,0 +1,308 @@
+object QuantumGrid4_ClientDataModule: TQuantumGrid4_ClientDataModule
+  OldCreateOrder = True
+  Left = 281
+  Top = 207
+  Height = 300
+  Width = 437
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object ROMessage: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'NewService'
+    Left = 40
+    Top = 96
+  end
+  object bdsCustomers: TDABinDataStreamer
+    Left = 306
+    Top = 49
+  end
+  object dtCustomers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        InPrimaryKey = True
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datString
+        Size = 40
+      end
+      item
+        Name = 'ContactName'
+        DataType = datString
+        Size = 30
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datString
+        Size = 30
+      end
+      item
+        Name = 'Address'
+        DataType = datString
+        Size = 60
+      end
+      item
+        Name = 'City'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'Region'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'Country'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'Phone'
+        DataType = datString
+        Size = 24
+      end
+      item
+        Name = 'Fax'
+        DataType = datString
+        Size = 24
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rdaCustomers
+    AfterOpen = dtCustomersAfterOpen
+    AfterScroll = dtCustomersAfterScroll
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 192
+    Top = 32
+  end
+  object dsCustomers: TDADataSource
+    DataTable = dtCustomers
+    Left = 208
+    Top = 48
+  end
+  object dtOrders: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datAutoInc
+        InPrimaryKey = True
+      end
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+      end
+      item
+        Name = 'EmployeeID'
+        DataType = datInteger
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+      end
+      item
+        Name = 'RequiredDate'
+        DataType = datDateTime
+      end
+      item
+        Name = 'ShippedDate'
+        DataType = datDateTime
+      end
+      item
+        Name = 'ShipVia'
+        DataType = datInteger
+      end
+      item
+        Name = 'Freight'
+        DataType = datFloat
+      end
+      item
+        Name = 'ShipName'
+        DataType = datString
+        Size = 40
+      end
+      item
+        Name = 'ShipAddress'
+        DataType = datString
+        Size = 60
+      end
+      item
+        Name = 'ShipCity'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'ShipRegion'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'ShipPostalCode'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'ShipCountry'
+        DataType = datString
+        Size = 15
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rdaorders
+    MasterSource = dsCustomers
+    MasterRequestMappings.Strings = (
+      'CustomerID=CustomerID')
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Orders'
+    IndexDefs = <>
+    Left = 192
+    Top = 120
+  end
+  object dsOrders: TDADataSource
+    DataTable = dtOrders
+    Left = 208
+    Top = 136
+  end
+  object rdaCustomers: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RORemoteService
+    GetSchemaCall.MethodName = 'GetSchema'
+    GetSchemaCall.Params = <
+      item
+        Name = 'aFilter'
+        DataType = rtString
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtString
+        Flag = fResult
+      end>
+    GetSchemaCall.Default = False
+    GetSchemaCall.IncomingSchemaParameter = 'Result'
+    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
+    GetDataCall.RemoteService = RORemoteService
+    GetDataCall.MethodName = 'GetCustomers'
+    GetDataCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end>
+    GetDataCall.Default = False
+    GetDataCall.IncomingDataParameter = 'Result'
+    UpdateDataCall.RemoteService = RORemoteService
+    UpdateDataCall.MethodName = 'UpdateCustomers'
+    UpdateDataCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end
+      item
+        Name = 'IncomingData'
+        DataType = rtBinary
+        Flag = fIn
+        Value = Null
+      end>
+    UpdateDataCall.Default = False
+    UpdateDataCall.OutgoingDeltaParameter = 'IncomingData'
+    UpdateDataCall.IncomingDeltaParameter = 'Result'
+    GetScriptsCall.RemoteService = RORemoteService
+    RemoteService = RORemoteService
+    DataStreamer = bdsCustomers
+    Left = 278
+    Top = 48
+  end
+  object rdaorders: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RORemoteService
+    GetSchemaCall.MethodName = 'GetSchema'
+    GetSchemaCall.Params = <
+      item
+        Name = 'aFilter'
+        DataType = rtString
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtString
+        Flag = fResult
+      end>
+    GetSchemaCall.Default = False
+    GetSchemaCall.IncomingSchemaParameter = 'Result'
+    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
+    GetDataCall.RemoteService = RORemoteService
+    GetDataCall.MethodName = 'GetOrders'
+    GetDataCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end
+      item
+        Name = 'CustomerID'
+        DataType = rtString
+        Flag = fIn
+        Value = Null
+      end>
+    GetDataCall.Default = False
+    GetDataCall.IncomingDataParameter = 'Result'
+    GetDataCall.OutgoingParamsParameter = 'CustomerID'
+    UpdateDataCall.RemoteService = RORemoteService
+    UpdateDataCall.MethodName = 'UpdateCustomers'
+    UpdateDataCall.Params = <
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+        Value = Null
+      end
+      item
+        Name = 'IncomingData'
+        DataType = rtBinary
+        Flag = fIn
+        Value = Null
+      end>
+    UpdateDataCall.Default = False
+    UpdateDataCall.OutgoingDeltaParameter = 'IncomingData'
+    UpdateDataCall.IncomingDeltaParameter = 'Result'
+    GetScriptsCall.RemoteService = RORemoteService
+    RemoteService = RORemoteService
+    DataStreamer = bdsOrders
+    Left = 277
+    Top = 141
+  end
+  object bdsOrders: TDABinDataStreamer
+    Left = 306
+    Top = 141
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientData.pas
new file mode 100644
index 0000000..936f947
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientData.pas	
@@ -0,0 +1,83 @@
+unit QuantumGrid4_ClientData;
+
+interface
+
+uses {vcl:} SysUtils, Classes, DB, DBClient,
+     {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+     {Data Abstract:}  uDADataTable, uDABINAdapter,
+       uDACDSDataTable, uDAADODataTable, uDAScriptingProvider,
+   uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces;
+
+type
+  TQuantumGrid4_ClientDataModule = class(TDataModule)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    bdsCustomers: TDABinDataStreamer;
+    dtCustomers: TDACDSDataTable;
+    dsCustomers: TDADataSource;
+    dtOrders: TDACDSDataTable;
+    dsOrders: TDADataSource;
+    rdaCustomers: TDARemoteDataAdapter;
+    rdaorders: TDARemoteDataAdapter;
+    bdsOrders: TDABinDataStreamer;
+    procedure dtCustomersAfterScroll(DataTable: TDADataTable);
+    procedure dtCustomersAfterOpen(DataTable: TDADataTable);
+  private
+    fFetchedCustomers : TStringList;
+
+  public
+    constructor Create(aOwner : TComponent); override;
+    destructor Destroy; override;
+  end;
+
+var
+  QuantumGrid4_ClientDataModule: TQuantumGrid4_ClientDataModule;
+
+implementation
+
+
+{$R *.dfm}
+
+{ TClientDataModule }
+constructor TQuantumGrid4_ClientDataModule.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fFetchedCustomers := TStringList.Create;
+  fFetchedCustomers.Sorted := TRUE;
+end;
+
+destructor TQuantumGrid4_ClientDataModule.Destroy;
+begin
+  fFetchedCustomers.Free;
+  inherited;
+end;
+
+procedure TQuantumGrid4_ClientDataModule.dtCustomersAfterScroll(
+  DataTable: TDADataTable);
+var lCustomerID : string;
+begin
+  if dtCustomers.Fetching then Exit;
+
+  with dtOrders do begin
+    lCustomerID := dtCustomers.FieldByName('CustomerID').AsString;
+
+    if (fFetchedCustomers.IndexOf(lCustomerID)>=0)
+      then Exit
+      else fFetchedCustomers.Add(lCustomerID);
+
+    rdaorders.GetDataCall.ParamByName('CustomerID').AsString := lCustomerID;
+    LoadFromRemoteSource;
+  end;
+end;
+
+procedure TQuantumGrid4_ClientDataModule.dtCustomersAfterOpen(DataTable: TDADataTable);
+begin
+  fFetchedCustomers.Clear;
+  dtCustomersAfterScroll(DataTable);
+end;
+
+initialization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientMain.dfm
new file mode 100644
index 0000000..f61ea94
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientMain.dfm	
@@ -0,0 +1,186 @@
+object QuantumGrid4_ClientMainForm: TQuantumGrid4_ClientMainForm
+  Left = 125
+  Top = 83
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'QuantumGrid 4 Client'
+  ClientHeight = 447
+  ClientWidth = 506
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object PageControl: TPageControl
+    Left = 0
+    Top = 33
+    Width = 506
+    Height = 414
+    ActivePage = TabSheet2
+    Align = alClient
+    TabIndex = 0
+    TabOrder = 0
+    object TabSheet2: TTabSheet
+      Caption = 'Quantum Grid 4 - OnDemand'
+      ImageIndex = 1
+      object cxGrid1: TcxGrid
+        Left = 0
+        Top = 0
+        Width = 498
+        Height = 261
+        Align = alClient
+        TabOrder = 0
+        LookAndFeel.Kind = lfFlat
+        object viewCustomers: TcxGridDBTableView
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = QuantumGrid4_ClientDataModule.dsCustomers
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          object viewCustomersCustomerID: TcxGridDBColumn
+            DataBinding.FieldName = 'CustomerID'
+          end
+          object viewCustomersCompanyName: TcxGridDBColumn
+            DataBinding.FieldName = 'CompanyName'
+          end
+          object viewCustomersContactName: TcxGridDBColumn
+            DataBinding.FieldName = 'ContactName'
+          end
+          object viewCustomersContactTitle: TcxGridDBColumn
+            DataBinding.FieldName = 'ContactTitle'
+          end
+          object viewCustomersAddress: TcxGridDBColumn
+            DataBinding.FieldName = 'Address'
+          end
+          object viewCustomersCity: TcxGridDBColumn
+            DataBinding.FieldName = 'City'
+          end
+          object viewCustomersRegion: TcxGridDBColumn
+            DataBinding.FieldName = 'Region'
+          end
+          object viewCustomersPostalCode: TcxGridDBColumn
+            DataBinding.FieldName = 'PostalCode'
+          end
+          object viewCustomersCountry: TcxGridDBColumn
+            DataBinding.FieldName = 'Country'
+          end
+          object viewCustomersPhone: TcxGridDBColumn
+            DataBinding.FieldName = 'Phone'
+          end
+          object viewCustomersFax: TcxGridDBColumn
+            DataBinding.FieldName = 'Fax'
+          end
+        end
+        object viewOrders: TcxGridDBTableView
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = QuantumGrid4_ClientDataModule.dsOrders
+          DataController.DetailKeyFieldNames = 'CustomerID'
+          DataController.KeyFieldNames = 'OrderID'
+          DataController.MasterKeyFieldNames = 'CustomerID'
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          object viewOrdersOrderID: TcxGridDBColumn
+            DataBinding.FieldName = 'OrderID'
+          end
+          object viewOrdersCustomerID: TcxGridDBColumn
+            DataBinding.FieldName = 'CustomerID'
+          end
+          object viewOrdersEmployeeID: TcxGridDBColumn
+            DataBinding.FieldName = 'EmployeeID'
+          end
+          object viewOrdersOrderDate: TcxGridDBColumn
+            DataBinding.FieldName = 'OrderDate'
+          end
+          object viewOrdersRequiredDate: TcxGridDBColumn
+            DataBinding.FieldName = 'RequiredDate'
+          end
+          object viewOrdersShippedDate: TcxGridDBColumn
+            DataBinding.FieldName = 'ShippedDate'
+          end
+          object viewOrdersShipVia: TcxGridDBColumn
+            DataBinding.FieldName = 'ShipVia'
+          end
+          object viewOrdersFreight: TcxGridDBColumn
+            DataBinding.FieldName = 'Freight'
+          end
+          object viewOrdersShipName: TcxGridDBColumn
+            DataBinding.FieldName = 'ShipName'
+          end
+          object viewOrdersShipAddress: TcxGridDBColumn
+            DataBinding.FieldName = 'ShipAddress'
+          end
+          object viewOrdersShipCity: TcxGridDBColumn
+            DataBinding.FieldName = 'ShipCity'
+          end
+          object viewOrdersShipRegion: TcxGridDBColumn
+            DataBinding.FieldName = 'ShipRegion'
+          end
+          object viewOrdersShipPostalCode: TcxGridDBColumn
+            DataBinding.FieldName = 'ShipPostalCode'
+          end
+          object viewOrdersShipCountry: TcxGridDBColumn
+            DataBinding.FieldName = 'ShipCountry'
+          end
+        end
+        object cxGrid1Level1: TcxGridLevel
+          GridView = viewCustomers
+          object cxGrid1Level2: TcxGridLevel
+            GridView = viewOrders
+          end
+        end
+      end
+      object DBGrid3: TDBGrid
+        Left = 0
+        Top = 266
+        Width = 498
+        Height = 120
+        Align = alBottom
+        DataSource = QuantumGrid4_ClientDataModule.dsOrders
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+      object Panel2: TPanel
+        Left = 0
+        Top = 261
+        Width = 498
+        Height = 5
+        Align = alBottom
+        BevelOuter = bvNone
+        TabOrder = 2
+      end
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 506
+    Height = 33
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 1
+    object Button1: TButton
+      Left = 80
+      Top = 0
+      Width = 97
+      Height = 25
+      Caption = 'Apply Updates'
+      TabOrder = 0
+      OnClick = Button1Click
+    end
+    object Button2: TButton
+      Left = 0
+      Top = 0
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 1
+      OnClick = Button2Click
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientMain.pas
new file mode 100644
index 0000000..13e8065
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ClientMain.pas	
@@ -0,0 +1,81 @@
+unit QuantumGrid4_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROIndyHTTPChannel,
+  Grids, DBGrids, ComCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter,
+  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, ExtCtrls, DBClient;
+
+type
+  TQuantumGrid4_ClientMainForm = class(TForm)
+    PageControl: TPageControl;
+    TabSheet2: TTabSheet;
+    viewCustomers: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    viewOrders: TcxGridDBTableView;
+    viewCustomersCustomerID: TcxGridDBColumn;
+    viewCustomersCompanyName: TcxGridDBColumn;
+    viewCustomersContactName: TcxGridDBColumn;
+    viewCustomersContactTitle: TcxGridDBColumn;
+    viewCustomersAddress: TcxGridDBColumn;
+    viewCustomersCity: TcxGridDBColumn;
+    viewCustomersRegion: TcxGridDBColumn;
+    viewCustomersPostalCode: TcxGridDBColumn;
+    viewCustomersCountry: TcxGridDBColumn;
+    viewCustomersPhone: TcxGridDBColumn;
+    viewCustomersFax: TcxGridDBColumn;
+    Panel1: TPanel;
+    Button1: TButton;
+    Button2: TButton;
+    viewOrdersOrderID: TcxGridDBColumn;
+    viewOrdersCustomerID: TcxGridDBColumn;
+    viewOrdersEmployeeID: TcxGridDBColumn;
+    viewOrdersOrderDate: TcxGridDBColumn;
+    viewOrdersRequiredDate: TcxGridDBColumn;
+    viewOrdersShippedDate: TcxGridDBColumn;
+    viewOrdersShipVia: TcxGridDBColumn;
+    viewOrdersFreight: TcxGridDBColumn;
+    viewOrdersShipName: TcxGridDBColumn;
+    viewOrdersShipAddress: TcxGridDBColumn;
+    viewOrdersShipCity: TcxGridDBColumn;
+    viewOrdersShipRegion: TcxGridDBColumn;
+    viewOrdersShipPostalCode: TcxGridDBColumn;
+    viewOrdersShipCountry: TcxGridDBColumn;
+    cxGrid1Level2: TcxGridLevel;
+    DBGrid3: TDBGrid;
+    Panel2: TPanel;
+    procedure Button2Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+  private
+    fLastMaster: Variant;
+  public
+
+  end;
+
+var
+  QuantumGrid4_ClientMainForm: TQuantumGrid4_ClientMainForm;
+
+implementation
+
+uses QuantumGrid4_ClientData, uDAInterfaces, uDADataTable;
+
+{$R *.dfm}
+
+procedure TQuantumGrid4_ClientMainForm.Button2Click(Sender: TObject);
+begin
+  with QuantumGrid4_ClientDataModule.dtCustomers do
+    Active := Active xor TRUE;
+end;
+
+procedure TQuantumGrid4_ClientMainForm.Button1Click(Sender: TObject);
+begin
+  QuantumGrid4_ClientDataModule.dtCustomers.ApplyUpdates(TRUE);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerData.dfm
new file mode 100644
index 0000000..af93c08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerData.dfm	
@@ -0,0 +1,54 @@
+object QuantumGrid4_ServerDataModule: TQuantumGrid4_ServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 73
+  Top = 69
+  Height = 207
+  Width = 352
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object ROMessage: TROBinMessage
+    Left = 34
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerData.pas
new file mode 100644
index 0000000..f624b32
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerData.pas	
@@ -0,0 +1,38 @@
+unit QuantumGrid4_ServerData;
+
+interface
+
+uses
+  SysUtils, Classes, 
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDADriverManager, uDAClasses, uDADBXDriver, uDAIBXDriver, uDAEngine, uDAADODriver,
+   uROIndyTCPServer;
+
+type
+  TQuantumGrid4_ServerDataModule = class(TDataModule)
+    ROServer: TROIndyHTTPServer;
+    ROMessage: TROBinMessage;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    ConnectionManager: TDAConnectionManager;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  QuantumGrid4_ServerDataModule: TQuantumGrid4_ServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TQuantumGrid4_ServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerMain.dfm
new file mode 100644
index 0000000..ff5e505
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerMain.dfm	
@@ -0,0 +1,21 @@
+object QuantumGrid4_ServerMainForm: TQuantumGrid4_ServerMainForm
+  Left = 66
+  Top = 76
+  BorderStyle = bsDialog
+  Caption = 'QuantumGrid 4 Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerMain.pas
new file mode 100644
index 0000000..a70c5a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_ServerMain.pas	
@@ -0,0 +1,26 @@
+unit QuantumGrid4_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer;
+
+type
+  TQuantumGrid4_ServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  QuantumGrid4_ServerMainForm: TQuantumGrid4_ServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.bdsproj
new file mode 100644
index 0000000..862243b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{02FF7147-182D-44E5-A4EA-C4BFABDCBF32}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">QuantumGrid4_server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.dpr
new file mode 100644
index 0000000..de173a0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.dpr	
@@ -0,0 +1,23 @@
+program QuantumGrid4_server;
+
+{#ROGEN:QuantumGrid4Library.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  QuantumGrid4_ServerMain in 'QuantumGrid4_ServerMain.pas' {QuantumGrid4_ServerMainForm},
+  NewService_Impl in 'NewService_Impl.pas' {NewService: TDARemoteService},
+  QuantumGrid4_ServerData in 'QuantumGrid4_ServerData.pas' {QuantumGrid4_ServerDataModule: TDataModule},
+  QuantumGrid4Library_Intf in 'QuantumGrid4Library_Intf.pas',
+  QuantumGrid4Library_Invk in 'QuantumGrid4Library_Invk.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'QuantumGrid4 Server';
+  Application.CreateForm(TQuantumGrid4_ServerDataModule, QuantumGrid4_ServerDataModule);
+  Application.CreateForm(TQuantumGrid4_ServerMainForm, QuantumGrid4_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.dproj
new file mode 100644
index 0000000..ae114f9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{540b874b-c44a-4832-b75a-f3873582e77c}</ProjectGuid>
+    <MainSource>QuantumGrid4_server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>QuantumGrid4_server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">QuantumGrid4_server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="QuantumGrid4_server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="NewService_Impl.pas">
+      <Form>NewService</Form>
+    </DCCReference>
+    <DCCReference Include="QuantumGrid4Library_Intf.pas" />
+    <DCCReference Include="QuantumGrid4Library_Invk.pas" />
+    <DCCReference Include="QuantumGrid4_ServerData.pas">
+      <Form>QuantumGrid4_ServerDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="QuantumGrid4_ServerMain.pas">
+      <Form>QuantumGrid4_ServerMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/QuantumGrid4_server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/RODLFILE.res
new file mode 100644
index 0000000..66470ea
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/QuantumGrid 4/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.Sample.html
new file mode 100644
index 0000000..8b2f535
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.Sample.html	
@@ -0,0 +1,30 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>QuickOpen</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+  This example shows how to receive data from a local database.
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   See the simple code in <b>QuickOpenMain.pas</b>.
+	</li>
+</ul>
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.bdsproj
new file mode 100644
index 0000000..143c7d8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{E45EF1CD-38DB-4096-9D1E-8B2CB77CE9C4}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">QuickOpen.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.dpr
new file mode 100644
index 0000000..02aced4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.dpr	
@@ -0,0 +1,14 @@
+program QuickOpen;
+
+uses
+  Forms,
+  QuickOpenMain in 'QuickOpenMain.pas' {QuickOpenMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'QuickOpen';
+  Application.CreateForm(TQuickOpenMainForm, QuickOpenMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.dproj
new file mode 100644
index 0000000..d198062
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{b3f06429-5ddc-4ac4-8f56-ce4275c9a145}</ProjectGuid>
+    <MainSource>QuickOpen.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>QuickOpen.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">QuickOpen.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="QuickOpen.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="QuickOpenMain.pas">
+      <Form>QuickOpenMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpen.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpenMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpenMain.dfm
new file mode 100644
index 0000000..3726ac6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpenMain.dfm	
@@ -0,0 +1,291 @@
+object QuickOpenMainForm: TQuickOpenMainForm
+  Left = 116
+  Top = 122
+  AutoScroll = False
+  Caption = 'Quick Open'
+  ClientHeight = 311
+  ClientWidth = 539
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object OpenButton: TButton
+    Left = 8
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'Open'
+    TabOrder = 0
+    OnClick = OpenButtonClick
+  end
+  object DBGrid1: TDBGrid
+    Left = 8
+    Top = 40
+    Width = 523
+    Height = 269
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = dsCustomers
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object DADriverManager1: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 12
+    Top = 11
+  end
+  object DASchema1: TDASchema
+    ConnectionManager = DAConnectionManager1
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 45
+    Top = 11
+  end
+  object DAConnectionManager1: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DADriverManager1
+    PoolingEnabled = True
+    Left = 76
+    Top = 11
+  end
+  object DAADODriver1: TDAADODriver
+    Left = 109
+    Top = 11
+  end
+  object DataTable: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    LocalSchema = DASchema1
+    LocalDataStreamer = DABINAdapter
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 140
+    Top = 11
+  end
+  object dsCustomers: TDADataSource
+    DataSet = DataTable.Dataset
+    DataTable = DataTable
+    Left = 156
+    Top = 27
+  end
+  object DABINAdapter: TDABinDataStreamer
+    Left = 192
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpenMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpenMain.pas
new file mode 100644
index 0000000..5a4bba5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Quick Open/QuickOpenMain.pas	
@@ -0,0 +1,41 @@
+unit QuickOpenMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, uDADataTable, uDACDSDataTable, uDAEngine, uDAADODriver,
+  uDAClasses, uDADriverManager, uDABINAdapter, Grids, DBGrids, StdCtrls,
+  uDAScriptingProvider, uDADataStreamer;
+
+type
+  TQuickOpenMainForm = class(TForm)
+    DADriverManager1: TDADriverManager;
+    DAADODriver1: TDAADODriver;
+    DataTable: TDACDSDataTable;
+    dsCustomers: TDADataSource;
+    DAConnectionManager1: TDAConnectionManager;
+    OpenButton: TButton;
+    DBGrid1: TDBGrid;
+    DABINAdapter: TDABinDataStreamer;
+    DASchema1: TDASchema;
+    procedure OpenButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  QuickOpenMainForm: TQuickOpenMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TQuickOpenMainForm.OpenButtonClick(Sender: TObject);
+begin
+   DataTable.Open;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/RODLFILE.res
new file mode 100644
index 0000000..ef86df7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.bdsproj
new file mode 100644
index 0000000..7605f2b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.bdsproj	
@@ -0,0 +1,170 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{FA59AC71-0ACE-4E26-9964-61494186AAD1}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ReducedDeltaClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.dpr
new file mode 100644
index 0000000..69a8de0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.dpr	
@@ -0,0 +1,17 @@
+program ReducedDeltaClient;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  ReducedDeltaClientMain in 'ReducedDeltaClientMain.pas' {ReducedDeltaClientMainForm},
+  ReducedDeltaClientData in 'ReducedDeltaClientData.pas' {ReducedDeltaClientDataModule: TDAClientDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TReducedDeltaClientDataModule, ReducedDeltaClientDataModule);
+  Application.CreateForm(TReducedDeltaClientMainForm, ReducedDeltaClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.dproj
new file mode 100644
index 0000000..956698d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.dproj	
@@ -0,0 +1,219 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f18f6eda-6e59-4bb6-95e0-7940cb0b9f70}</ProjectGuid>
+    <MainSource>ReducedDeltaClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ReducedDeltaClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\bin\dacvcl105.bpl">Core Lab Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcldac105.bpl">Core Lab Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmydac105.bpl">Data Access Components for MySQL</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\mydacvcl105.bpl">MySQL Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclodac105.bpl">Oracle Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\odacvcl105.bpl">Oracle Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclsdac105.bpl">SQL Server Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\sdacvcl105.bpl">SQL Server Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Scripting_D11.bpl">RemObjects Data Abstract - Scripting Integration Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBXDriver_D11.bpl">RemObjects Data Abstract - dbExpress Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl">RemObjects Data Abstract - DBISAM Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl">RemObjects Data Abstract - ElevateDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_FIBDriver_D11.bpl">RemObjects Data Abstract - FIBPlus Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs IBDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs MyDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ODACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs ODAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap PostgresDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Rosetta_D11.bpl">RemObjects Data Abstract - 'Rosetta'</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclibdac105.bpl">Core Lab InterBase Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmysqlmon105.bpl">Data Access Components for MySQL - TMySQLMonitor</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">ReducedDeltaClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ReducedDeltaClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ReducedDeltaClientData.pas">
+      <Form>ReducedDeltaClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="ReducedDeltaClientMain.pas">
+      <Form>ReducedDeltaClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientData.dfm
new file mode 100644
index 0000000..29f9713
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientData.dfm	
@@ -0,0 +1,117 @@
+object ReducedDeltaClientDataModule: TReducedDeltaClientDataModule
+  OldCreateOrder = True
+  Left = 439
+  Top = 220
+  Height = 300
+  Width = 300
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'ReducedDeltaService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 40
+    Top = 184
+  end
+  object tbl_Customers: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datWideString
+        Size = 40
+        Required = True
+      end
+      item
+        Name = 'ContactName'
+        DataType = datWideString
+        Size = 30
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datWideString
+        Size = 30
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 60
+      end
+      item
+        Name = 'City'
+        DataType = datWideString
+        Size = 15
+      end
+      item
+        Name = 'Region'
+        DataType = datWideString
+        Size = 15
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datWideString
+        Size = 10
+      end
+      item
+        Name = 'Country'
+        DataType = datWideString
+        Size = 15
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 24
+      end
+      item
+        Name = 'Fax'
+        DataType = datWideString
+        Size = 24
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 128
+    Top = 120
+  end
+  object ds_Customers: TDADataSource
+    DataSet = tbl_Customers.Dataset
+    DataTable = tbl_Customers
+    Left = 136
+    Top = 128
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientData.pas
new file mode 100644
index 0000000..80a5419
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientData.pas	
@@ -0,0 +1,33 @@
+unit ReducedDeltaClientData;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDAScriptingProvider, uDAMemDataTable, uDADataStreamer;
+
+type
+  TReducedDeltaClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Customers: TDAMemDataTable;
+    ds_Customers: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ReducedDeltaClientDataModule: TReducedDeltaClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientMain.dfm
new file mode 100644
index 0000000..51be292
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientMain.dfm	
@@ -0,0 +1,56 @@
+object ReducedDeltaClientMainForm: TReducedDeltaClientMainForm
+  Left = 106
+  Top = 100
+  AutoScroll = False
+  Caption = 'Reduced Delta Client'
+  ClientHeight = 381
+  ClientWidth = 640
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object OpenButton: TButton
+    Left = 8
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'Open/Close'
+    TabOrder = 0
+    OnClick = OpenButtonClick
+  end
+  object ApplyButton: TButton
+    Left = 88
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'ApplyUpdate'
+    TabOrder = 1
+    OnClick = ApplyButtonClick
+  end
+  object DBGrid1: TDBGrid
+    Left = 8
+    Top = 40
+    Width = 624
+    Height = 331
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = ReducedDeltaClientDataModule.ds_Customers
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object cbReducedDelta: TCheckBox
+    Left = 184
+    Top = 12
+    Width = 161
+    Height = 17
+    Caption = 'Send Reduced Delta'
+    TabOrder = 3
+    OnClick = cbReducedDeltaClick
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientMain.pas
new file mode 100644
index 0000000..9698592
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaClientMain.pas	
@@ -0,0 +1,56 @@
+unit ReducedDeltaClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, Grids, DBGrids;
+
+type
+  TReducedDeltaClientMainForm = class(TForm)
+    OpenButton: TButton;
+    ApplyButton: TButton;
+    DBGrid1: TDBGrid;
+    cbReducedDelta: TCheckBox;
+    procedure FormCreate(Sender: TObject);
+    procedure cbReducedDeltaClick(Sender: TObject);
+    procedure OpenButtonClick(Sender: TObject);
+    procedure ApplyButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ReducedDeltaClientMainForm: TReducedDeltaClientMainForm;
+
+implementation
+
+uses
+  ReducedDeltaClientData, uDABin2DataStreamer, uDADataTable;
+  
+{$R *.dfm}
+
+procedure TReducedDeltaClientMainForm.FormCreate(Sender: TObject);
+begin
+  cbReducedDelta.Checked:= ReducedDeltaClientDataModule.DataStreamer.SendReducedDelta;
+end;
+
+procedure TReducedDeltaClientMainForm.cbReducedDeltaClick(Sender: TObject);
+begin
+  ReducedDeltaClientDataModule.DataStreamer.SendReducedDelta := cbReducedDelta.Checked;
+end;
+
+procedure TReducedDeltaClientMainForm.OpenButtonClick(Sender: TObject);
+begin
+  with ReducedDeltaClientDataModule.tbl_Customers do
+    Active := not Active;
+end;
+
+procedure TReducedDeltaClientMainForm.ApplyButtonClick(Sender: TObject);
+begin
+  ReducedDeltaClientDataModule.tbl_Customers.ApplyUpdates;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.Sample.html
new file mode 100644
index 0000000..37f63f3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.Sample.html	
@@ -0,0 +1,30 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+<br>
+<p class="h1">
+  <span>Reduced Delta Sample</span> 
+</p>
+
+<br>
+<h2>Purpose</h2>
+<p>
+  This example illustrates how work the Send Reduced Delta property of <b>TDABin2DataStreamer</b>.<br><br>
+</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Launch the server (via the menu option: <strong>RemObjects | Launch Server Executable</strong>).</li>
+	<li>Ensure that ReducedDeltaClient is the selected project and run it.</li>
+	<li>Do some changes (Insert/Update/Delete) with records</li>
+	<li>Post your changes to server with checked and unchecked the Send Reduced Delta property</li>
+	<li>Look at a log on server-side</li>
+	</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.bdsgroup
new file mode 100644
index 0000000..943164e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{E01EFFF7-7CBB-4A6E-A268-410AFC0FE30C}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="ReducedDeltaServer.exe">ReducedDeltaServer.bdsproj</Projects>
+      <Projects Name="ReducedDeltaClient.exe">ReducedDeltaClient.bdsproj</Projects>
+      <Projects Name="Targets">ReducedDeltaServer.exe ReducedDeltaClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.bpg
new file mode 100644
index 0000000..c915246
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ReducedDeltaServer.exe ReducedDeltaClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ReducedDeltaServer.exe: ReducedDeltaServer.dpr
+  $(DCC)
+
+ReducedDeltaClient.exe: ReducedDeltaClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.groupproj
new file mode 100644
index 0000000..cfa0c0c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaGroup.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{87fced28-a095-43cf-8e27-297b881ebb84}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="ReducedDeltaClient.dproj" />
+    <Projects Include="ReducedDeltaServer.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="ReducedDeltaServer">
+    <MSBuild Projects="ReducedDeltaServer.dproj" Targets="" />
+  </Target>
+  <Target Name="ReducedDeltaServer:Clean">
+    <MSBuild Projects="ReducedDeltaServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ReducedDeltaServer:Make">
+    <MSBuild Projects="ReducedDeltaServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ReducedDeltaClient">
+    <MSBuild Projects="ReducedDeltaClient.dproj" Targets="" />
+  </Target>
+  <Target Name="ReducedDeltaClient:Clean">
+    <MSBuild Projects="ReducedDeltaClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ReducedDeltaClient:Make">
+    <MSBuild Projects="ReducedDeltaClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="ReducedDeltaServer;ReducedDeltaClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="ReducedDeltaServer:Clean;ReducedDeltaClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="ReducedDeltaServer:Make;ReducedDeltaClient:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary.rodl
new file mode 100644
index 0000000..50315bf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary.rodl	
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ReducedDeltaLibrary" UID="{786E8771-A3CB-4F96-9FE4-E16120755985}" Version="3.0">
+<Services>
+<Service Name="ReducedDeltaService" UID="{39E934B7-5D6B-46A7-84D7-7B5A96FFCBC4}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{0391158F-E776-481E-91F1-45BF69296552}">
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{E903CDCA-10CB-4C49-8F8E-E1DC3504F7A9}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary_Intf.pas
new file mode 100644
index 0000000..7aef22b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary_Intf.pas	
@@ -0,0 +1,82 @@
+unit ReducedDeltaLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{786E8771-A3CB-4F96-9FE4-E16120755985}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IReducedDeltaService_IID : TGUID = '{0391158F-E776-481E-91F1-45BF69296552}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IReducedDeltaService = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IReducedDeltaService }
+  IReducedDeltaService = interface(IDataAbstractService)
+    ['{0391158F-E776-481E-91F1-45BF69296552}']
+  end;
+
+  { CoReducedDeltaService }
+  CoReducedDeltaService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IReducedDeltaService;
+  end;
+
+  { TReducedDeltaService_Proxy }
+  TReducedDeltaService_Proxy = class(TDataAbstractService_Proxy, IReducedDeltaService)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoReducedDeltaService }
+
+class function CoReducedDeltaService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IReducedDeltaService;
+begin
+  result := TReducedDeltaService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TReducedDeltaService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ReducedDeltaService';
+end;
+
+initialization
+  RegisterProxyClass(IReducedDeltaService_IID, TReducedDeltaService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IReducedDeltaService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary_Invk.pas
new file mode 100644
index 0000000..fb750af
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaLibrary_Invk.pas	
@@ -0,0 +1,35 @@
+unit ReducedDeltaLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} ReducedDeltaLibrary_Intf;
+
+type
+  TReducedDeltaService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.bdsproj
new file mode 100644
index 0000000..d8eb929
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.bdsproj	
@@ -0,0 +1,170 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{D08BBA85-0A96-4D31-8EF0-2F0B1292FC7C}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ReducedDeltaServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.dpr
new file mode 100644
index 0000000..bdf52ff
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.dpr	
@@ -0,0 +1,29 @@
+program ReducedDeltaServer;
+
+{#ROGEN:ReducedDeltaLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  ReducedDeltaServerMain in 'ReducedDeltaServerMain.pas' {ReducedDeltaServerMainForm},
+  ReducedDeltaServerData in 'ReducedDeltaServerData.pas' {ReducedDeltaServerDataModule: TDataModule},
+  ReducedDeltaLibrary_Intf in 'ReducedDeltaLibrary_Intf.pas',
+  ReducedDeltaLibrary_Invk in 'ReducedDeltaLibrary_Invk.pas',
+  ReducedDeltaService_Impl in 'ReducedDeltaService_Impl.pas' {ReducedDeltaService: TDataAbstractService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('ReducedDelta', 'ReducedDelta') then begin
+    ROService.CreateForm(TReducedDeltaServerDataModule, ReducedDeltaServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TReducedDeltaServerDataModule, ReducedDeltaServerDataModule);
+  Application.CreateForm(TReducedDeltaServerMainForm, ReducedDeltaServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.dproj
new file mode 100644
index 0000000..397d0e7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.dproj	
@@ -0,0 +1,225 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{eb6011e9-a892-4c76-bd07-170bbf6e5921}</ProjectGuid>
+    <MainSource>ReducedDeltaServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ReducedDeltaServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\bin\dacvcl105.bpl">Core Lab Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcldac105.bpl">Core Lab Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmydac105.bpl">Data Access Components for MySQL</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\mydacvcl105.bpl">MySQL Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclodac105.bpl">Oracle Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\odacvcl105.bpl">Oracle Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclsdac105.bpl">SQL Server Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\sdacvcl105.bpl">SQL Server Data Access GUI related Components</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Scripting_D11.bpl">RemObjects Data Abstract - Scripting Integration Library</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBXDriver_D11.bpl">RemObjects Data Abstract - dbExpress Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_DBISAMDriver_D11.bpl">RemObjects Data Abstract - DBISAM Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ElevateDBDriver_D11.bpl">RemObjects Data Abstract - ElevateDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_FIBDriver_D11.bpl">RemObjects Data Abstract - FIBPlus Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs IBDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_MyDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs MyDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_NexusDBDriver_D11.bpl">Data Abstract - NexusDB Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_ODACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs ODAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_PostgresDACDriver_D11.bpl">RemObjects Data Abstract - MicroOlap PostgresDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_Rosetta_D11.bpl">RemObjects Data Abstract - 'Rosetta'</Excluded_Packages>
+      <Excluded_Packages Name="C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclibdac105.bpl">Core Lab InterBase Data Access Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclmysqlmon105.bpl">Data Access Components for MySQL - TMySQLMonitor</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">ReducedDeltaServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ReducedDeltaServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ReducedDeltaLibrary_Intf.pas" />
+    <DCCReference Include="ReducedDeltaLibrary_Invk.pas" />
+    <DCCReference Include="ReducedDeltaServerData.pas">
+      <Form>ReducedDeltaServerDataModule</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="ReducedDeltaServerMain.pas">
+      <Form>ReducedDeltaServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="ReducedDeltaService_Impl.pas">
+      <Form>ReducedDeltaService</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerData.dfm
new file mode 100644
index 0000000..d7dc73d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerData.dfm	
@@ -0,0 +1,65 @@
+object ReducedDeltaServerDataModule: TReducedDeltaServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 362
+  Top = 208
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    OnReadFromStream = ServerReadFromStream
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Int' +
+          'egrated Security=SSPI'
+        Description = 'Microsoft SQL Server 2000, localhost'
+        ConnectionType = 'MSSQL'
+        Default = True
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object IBXDriver: TDAIBXDriver
+    Left = 256
+    Top = 56
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerData.pas
new file mode 100644
index 0000000..9695997
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerData.pas	
@@ -0,0 +1,50 @@
+unit ReducedDeltaServerData;
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  uDAIBXDriver, uDAADODriver, uROIndyTCPServer;
+
+type
+  TReducedDeltaServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    IBXDriver: TDAIBXDriver;
+    SessionManager: TROInMemorySessionManager;
+    DataDictionary: TDADataDictionary;
+    
+    procedure DataModuleCreate(Sender: TObject);
+    procedure ServerReadFromStream(aStream: TStream);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ReducedDeltaServerDataModule: TReducedDeltaServerDataModule;
+
+implementation
+uses ReducedDeltaServerMain;
+
+{$R *.dfm}
+
+procedure TReducedDeltaServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  Server.Active := true;
+end;
+
+procedure TReducedDeltaServerDataModule.ServerReadFromStream(
+  aStream: TStream);
+begin
+  ReducedDeltaServerMainForm.Log('StreamSize = '+IntToStr(aStream.Size));
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerMain.dfm
new file mode 100644
index 0000000..36f36e9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerMain.dfm	
@@ -0,0 +1,48 @@
+object ReducedDeltaServerMainForm: TReducedDeltaServerMainForm
+  Left = 79
+  Top = 109
+  AutoScroll = False
+  Caption = 'Reduced Delta Server'
+  ClientHeight = 364
+  ClientWidth = 639
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 213
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Memo: TMemo
+    Left = 8
+    Top = 64
+    Width = 622
+    Height = 292
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Courier New'
+    Font.Style = []
+    ParentFont = False
+    ScrollBars = ssBoth
+    TabOrder = 0
+  end
+  object Button1: TButton
+    Left = 555
+    Top = 32
+    Width = 75
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = 'Clear'
+    TabOrder = 1
+    OnClick = Button1Click
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerMain.pas
new file mode 100644
index 0000000..1b012ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaServerMain.pas	
@@ -0,0 +1,64 @@
+unit ReducedDeltaServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, uROPoweredByRemObjectsButton;
+
+type
+  TReducedDeltaServerMainForm = class(TForm)
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    Memo: TMemo;
+    Button1: TButton;
+    procedure Button1Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    { Private declarations }
+    sync: TMultiReadExclusiveWriteSynchronizer;
+  public
+    { Public declarations }
+    Procedure Log(const str: String);
+  end;
+
+var
+  ReducedDeltaServerMainForm: TReducedDeltaServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+{ TReducedDeltaServerMainForm }
+
+procedure TReducedDeltaServerMainForm.Log(const str: String);
+begin
+  sync.BeginWrite;
+  try
+    Memo.Lines.Add(str);
+  finally
+    sync.EndWrite;
+  end;
+end;
+
+procedure TReducedDeltaServerMainForm.Button1Click(Sender: TObject);
+begin
+  sync.BeginWrite;
+  try
+    Memo.Clear;
+  finally
+    sync.EndWrite;
+  end;
+end;
+
+procedure TReducedDeltaServerMainForm.FormCreate(Sender: TObject);
+begin
+  sync:= TMultiReadExclusiveWriteSynchronizer.Create;
+end;
+
+procedure TReducedDeltaServerMainForm.FormDestroy(Sender: TObject);
+begin
+  sync.Free;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaService_Impl.dfm
new file mode 100644
index 0000000..50d8297
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaService_Impl.dfm	
@@ -0,0 +1,152 @@
+object ReducedDeltaService: TReducedDeltaService
+  OldCreateOrder = True
+  SessionManager = ReducedDeltaServerDataModule.SessionManager
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  ExportedDataTables = <>
+  Left = 424
+  Top = 208
+  Height = 212
+  Width = 216
+  object Schema: TDASchema
+    ConnectionManager = ReducedDeltaServerDataModule.ConnectionManager
+    DataDictionary = ReducedDeltaServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            ConnectionType = 'MSSQL'
+            Default = True
+            TargetTable = 'Customers'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            Size = 40
+            Required = True
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            Size = 24
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 32
+    Top = 56
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object BusinessProcessor: TDABusinessProcessor
+    OnBeforeProcessChange = BusinessProcessorBeforeProcessChange
+    Schema = Schema
+    ReferencedDataset = 'Customers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 32
+    Top = 104
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaService_Impl.pas
new file mode 100644
index 0000000..0978e1c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Reduced Delta/ReducedDeltaService_Impl.pas	
@@ -0,0 +1,101 @@
+unit ReducedDeltaService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} ReducedDeltaLibrary_Intf, uDAClasses, uDADataStreamer,
+  uDABin2DataStreamer, uDABusinessProcessor, uDAScriptingProvider, uDADelta, uDAInterfaces;
+
+type
+  { TReducedDeltaService }
+  TReducedDeltaService = class(TDataAbstractService, IReducedDeltaService)
+    Schema: TDASchema;
+    DataStreamer: TDABin2DataStreamer;
+    BusinessProcessor: TDABusinessProcessor;
+    procedure BusinessProcessorBeforeProcessChange(
+      Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+      aChange: TDADeltaChange; var ProcessChange: Boolean);
+  private
+    procedure Log(str: string);
+  protected
+    { IReducedDeltaService methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} ReducedDeltaLibrary_Invk,ReducedDeltaServerData, ReducedDeltaServerMain,
+  Variants;
+
+procedure Create_ReducedDeltaService(out anInstance : IUnknown);
+begin
+  anInstance := TReducedDeltaService.Create(nil);
+end;
+
+{ TReducedDeltaService }
+
+procedure TReducedDeltaService.Log(str: string);
+begin
+  ReducedDeltaServerMainForm.Log(str);
+end;
+
+procedure TReducedDeltaService.BusinessProcessorBeforeProcessChange(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; var ProcessChange: Boolean);
+
+  function _VarToStr(const aValue: variant): string;
+  begin
+    if VarIsEmpty(aValue) then Result:='<Empty>' else Result:= VarToStr(aValue);
+  end;
+
+  function _CreateStr(const aStr: string; const aLen:integer): string;
+  begin
+    if Length(aStr) > aLen then
+      Result:=Copy(aStr,1,aLen-3)+'...'
+    else
+      Result:= aStr+ StringOfChar(' ', aLen-Length(aStr));
+  end;
+
+const
+  TDAChangeTypeStr : array [TDAChangeType] of string = ('Insert','Update','Delete');
+
+var
+  i: integer;
+begin
+  Log('Reduced Delta = '+ BoolToStr(BusinessProcessor.HasReducedDelta,True));
+  Log('RecID = '+inttostr(aChange.RecID)+', State = ' + TDAChangeTypeStr[aChangeType]);
+  for i:=0 to aChange.Delta.LoggedFieldCount-1 do begin
+    case aChangeType of
+     ctInsert: Log(_CreateStr(aChange.Delta.LoggedFieldNames[i]+':', 15)+
+                   _CreateStr('NEW:'+_VarToStr(aChange.NewValues[i]), 35));
+     ctUpdate: Log(_CreateStr(aChange.Delta.LoggedFieldNames[i]+':', 15)+
+                   _CreateStr('OLD:'+_VarToStr(aChange.OldValues[i]), 35)+
+                   _CreateStr('NEW:'+_VarToStr(aChange.NewValues[i]), 35));
+     ctDelete: Log(_CreateStr(aChange.Delta.LoggedFieldNames[i]+':', 15)+
+                   _CreateStr('OLD:'+_VarToStr(aChange.OldValues[i]), 35));
+     end;
+  end;
+  Log('');
+end;
+
+initialization
+  TROClassFactory.Create('ReducedDeltaService', Create_ReducedDeltaService, TReducedDeltaService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.Sample.html
new file mode 100644
index 0000000..410cdc8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.Sample.html	
@@ -0,0 +1,30 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Regular Expressions</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+  This sample illustrates the support provided for <b>regular expressions</b>.<br>
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   Examine the simple code in <b>RegularExpressionsMain.pas</b>.
+	</li>
+</ul>
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.bdsproj
new file mode 100644
index 0000000..f07c865
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{69D7AF2F-4D8D-44D6-A9EF-E486C6FC0894}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">RegularExpressions.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.dpr
new file mode 100644
index 0000000..e39f53c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.dpr	
@@ -0,0 +1,14 @@
+program RegularExpressions;
+
+uses
+  Forms,
+  RegularExpressionsMain in 'RegularExpressionsMain.pas' {RegularExpressionsMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Regular Expressions';
+  Application.CreateForm(TRegularExpressionsMainForm, RegularExpressionsMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.dproj
new file mode 100644
index 0000000..0b08b78
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{bb6ba93f-d097-423b-8543-9afc638ec2c4}</ProjectGuid>
+    <MainSource>RegularExpressions.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>RegularExpressions.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">RegularExpressions.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="RegularExpressions.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="RegularExpressionsMain.pas">
+      <Form>RegularExpressionsMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressions.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressionsMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressionsMain.dfm
new file mode 100644
index 0000000..14e1f76
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressionsMain.dfm	
@@ -0,0 +1,267 @@
+object RegularExpressionsMainForm: TRegularExpressionsMainForm
+  Left = 15
+  Top = 41
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'Regular Expression'
+  ClientHeight = 240
+  ClientWidth = 740
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label4: TLabel
+    Left = 355
+    Top = 5
+    Width = 242
+    Height = 19
+    Caption = 'Press a cell of a grid to fill the text'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object GroupBox1: TGroupBox
+    Left = 0
+    Top = 0
+    Width = 352
+    Height = 129
+    Caption = 'Test Expression'
+    TabOrder = 0
+    object lbResult: TLabel
+      Left = 150
+      Top = 102
+      Width = 183
+      Height = 13
+      Caption = 'Click the button to verify your input...'
+    end
+    object Label1: TLabel
+      Left = 16
+      Top = 20
+      Width = 48
+      Height = 13
+      Caption = 'Template:'
+    end
+    object Label2: TLabel
+      Left = 9
+      Top = 44
+      Width = 56
+      Height = 13
+      Caption = 'Expression:'
+    end
+    object Label3: TLabel
+      Left = 39
+      Top = 68
+      Width = 26
+      Height = 13
+      Caption = 'Text:'
+    end
+    object cbExpression: TComboBox
+      Left = 68
+      Top = 16
+      Width = 273
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 0
+      OnChange = cbExpressionChange
+    end
+    object eText: TEdit
+      Left = 68
+      Top = 64
+      Width = 273
+      Height = 21
+      TabOrder = 2
+    end
+    object bCheck: TButton
+      Left = 68
+      Top = 96
+      Width = 75
+      Height = 25
+      Caption = '&Check'
+      Default = True
+      TabOrder = 3
+      OnClick = bCheckClick
+    end
+    object eExpression: TEdit
+      Left = 68
+      Top = 40
+      Width = 273
+      Height = 21
+      TabOrder = 1
+    end
+  end
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 136
+    Width = 740
+    Height = 104
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = DADataSource
+    ReadOnly = True
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    OnCellClick = DBGrid1CellClick
+    Columns = <
+      item
+        Expanded = False
+        FieldName = 'USPhoneNumber'
+        Width = 100
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Email'
+        Width = 100
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'RealNumber'
+        Width = 100
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'RomanNumber'
+        Width = 100
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'URL'
+        Width = 100
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'ZipCode'
+        Width = 100
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Path'
+        Width = 100
+        Visible = True
+      end>
+  end
+  object DACDSDataTable: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'USPhoneNumber'
+        DataType = datString
+        Size = 100
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Email'
+        DataType = datString
+        Size = 100
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RealNumber'
+        DataType = datString
+        Size = 100
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RomanNumber'
+        DataType = datString
+        Size = 100
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'URL'
+        DataType = datString
+        Size = 100
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ZipCode'
+        DataType = datString
+        Size = 100
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Path'
+        DataType = datString
+        Size = 100
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    IndexDefs = <>
+    Left = 411
+    Top = 57
+  end
+  object DADataSource: TDADataSource
+    DataSet = DACDSDataTable.Dataset
+    DataTable = DACDSDataTable
+    Left = 427
+    Top = 73
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressionsMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressionsMain.pas
new file mode 100644
index 0000000..243d144
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Regular Expressions/RegularExpressionsMain.pas	
@@ -0,0 +1,148 @@
+unit RegularExpressionsMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, DB, uDADataTable, uDACDSDataTable, ExtCtrls, DBCtrls,
+  Grids, DBGrids, uDAScriptingProvider;
+
+type
+  TRegExpressionTemplate = record
+    Description,
+      RegExpression: string;
+  end;
+
+const
+  RegExpressionTemplates: array[0..6] of TRegExpressionTemplate = (
+    (Description: 'US Phone Number'; RegExpression: '^\d{3}-(\d{2}-\d{2}|\d{4})'),
+    (Description: 'Email'; RegExpression: '[_a-zA-Z\d\-\.]+@([_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+)'),
+    (Description: 'Real Number'; RegExpression: '^[+\-]?\d+(\.\d+)?([eE][+\-]?\d+)?$'),
+    (Description: 'Roman Number'; RegExpression: '^(?i)M*(D?C{0,3}|C[DM])(L?X{0,3}|X[LC])(V?I{0,3}|I[VX])$'),
+    (Description: 'URL'; RegExpression: '(?i)(FTP|HTTP)://([_a-z\d\-]+(\.[_a-z\d\-]+)+)((/[ _a-z\d\-\\\.]+)+)*'),
+    (Description: 'ZipCode'; RegExpression: '^\d{5}$'),
+    (Description: 'Path'; RegExpression: '[A-Za-z]:(\\[a-zA-Z0-9_]+)+'));
+
+type
+  TRegularExpressionsMainForm = class(TForm)
+    GroupBox1: TGroupBox;
+    cbExpression: TComboBox;
+    eText: TEdit;
+    bCheck: TButton;
+    lbResult: TLabel;
+    eExpression: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    DACDSDataTable: TDACDSDataTable;
+    DADataSource: TDADataSource;
+    DBGrid1: TDBGrid;
+    Label4: TLabel;
+    procedure bCheckClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure cbExpressionChange(Sender: TObject);
+    procedure DBGrid1CellClick(Column: TColumn);
+  private
+    { Private declarations }
+    procedure SetupTable;
+  public
+    { Public declarations }
+  end;
+
+var
+  RegularExpressionsMainForm: TRegularExpressionsMainForm;
+
+implementation
+
+uses uDARegExpr;
+
+{$R *.dfm}
+
+procedure TRegularExpressionsMainForm.bCheckClick(Sender: TObject);
+begin
+  if ExecRegExpr(eExpression.Text, eText.Text) then begin
+    lbResult.Caption := 'The text is valid!'
+  end
+  else begin
+    Beep;
+    lbResult.Caption := 'The text is INVALID!'
+  end;
+end;
+
+procedure TRegularExpressionsMainForm.FormCreate(Sender: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to High(RegExpressionTemplates) do
+    cbExpression.Items.Add(RegExpressionTemplates[i].Description);
+  cbExpression.ItemIndex := 0;
+  cbExpressionChange(nil);
+  SetupTable;
+end;
+
+procedure TRegularExpressionsMainForm.cbExpressionChange(Sender: TObject);
+begin
+  eExpression.Text := RegExpressionTemplates[cbExpression.ItemIndex].RegExpression
+end;
+
+procedure TRegularExpressionsMainForm.DBGrid1CellClick(Column: TColumn);
+begin
+  if (Column.Index >= 0) and (Column.Index < cbExpression.Items.Count) then begin
+    cbExpression.ItemIndex := Column.Index;
+    cbExpressionChange(cbExpression);
+  end;
+  eText.Text := DACDSDataTable.Fields[Column.Index].AsString;
+end;
+
+procedure TRegularExpressionsMainForm.SetupTable;
+begin
+  with DACDSDataTable do begin
+    Open;
+    First;
+    // valid record
+    Insert;
+    FieldByName('USPhoneNumber').AsString := '123-45-67';
+    FieldByName('Email').AsString := 'test@test.com';
+    FieldByName('RealNumber').AsString := '-12e+10';
+    FieldByName('RomanNumber').AsString := 'MCXX';
+    FieldByName('URL').AsString := 'http://www.site.com';
+    FieldByName('ZipCode').AsString := '12345';
+    FieldByName('path').AsString := 'c:\file.exe';
+    post;
+    // invalid
+    Insert;
+    FieldByName('USPhoneNumber').AsString := '12-145-67';
+    FieldByName('Email').AsString := 'test@testcom';
+    FieldByName('RealNumber').AsString := '-12e';
+    FieldByName('RomanNumber').AsString := 'MCXX1';
+    FieldByName('URL').AsString := 'http:/www.site.com';
+    FieldByName('ZipCode').AsString := '23 45';
+    FieldByName('path').AsString := '\file.exe';
+    post;
+    // mixed
+    Insert;
+    FieldByName('USPhoneNumber').AsString := '101-15-6917';
+    FieldByName('Email').AsString := 'test@test.test.com';
+    FieldByName('RealNumber').AsString := '-12';
+    FieldByName('RomanNumber').AsString := 'IXM';
+    FieldByName('URL').AsString := 'www.site.com';
+    FieldByName('ZipCode').AsString := '0192';
+    FieldByName('path').AsString := 'z:\folder\';
+    post;
+
+    // mixed
+    Insert;
+    FieldByName('USPhoneNumber').AsString := '101.15.6917';
+    FieldByName('Email').AsString := 'test#test.com';
+    FieldByName('RealNumber').AsString := '+1212';
+    FieldByName('RomanNumber').AsString := 'MCIX';
+    FieldByName('URL').AsString := 'http://www.site.com/files/program.zip';
+    FieldByName('ZipCode').AsString := '192911';
+    FieldByName('path').AsString := 'z:\folder\subfolder\program.exe';
+    post;
+
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ClientArchive.raf b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ClientArchive.raf
new file mode 100644
index 0000000..8cf3638
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ClientArchive.raf differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/DARBService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/DARBService_Impl.dfm
new file mode 100644
index 0000000..4475c80
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/DARBService_Impl.dfm	
@@ -0,0 +1,460 @@
+object DARBService: TDARBService
+  OldCreateOrder = True
+  OnActivate = DataAbstractServiceActivate
+  OnDeactivate = DataAbstractServiceDeactivate
+  AcquireConnection = True
+  ServiceSchema = DASchema
+  ServiceDataStreamer = BinDataStreamer
+  ExportedDataTables = <>
+  Left = 345
+  Top = 207
+  Height = 300
+  Width = 300
+  object DASchema: TDASchema
+    ConnectionManager = ReportBuilder_ServerMainForm.DAConnectionManager1
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#13#10'    CustomerID, CompanyName, ContactName, ContactTitle,' +
+              ' '#13#10'    Address, City, Region, PostalCode, Country, Phone, '#13#10'    ' +
+              'Fax'#13#10'  FROM'#13#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'CompanyName'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactName'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactTitle'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Address'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'City'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Region'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'PostalCode'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Country'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Phone'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Fax'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'INSERT'#13#10'  INTO Customers'#13#10'    (CustomerID, CompanyName, ContactN' +
+              'ame, ContactTitle, Address, City, Region, PostalCode, Country, P' +
+              'hone, Fax)'#13#10'  VALUES'#13#10'    (:CustomerID, :CompanyName, :ContactNa' +
+              'me, :ContactTitle, :Address, :City, :Region, :PostalCode, :Count' +
+              'ry, :Phone, :Fax)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_CustomerID'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'DELETE '#13#10'  FROM'#13#10'    Customers'#13#10'  WHERE'#13#10'    (CustomerID = :OLD_' +
+              'CustomerID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'CompanyName'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactName'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactTitle'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Address'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'City'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Region'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'PostalCode'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Country'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Phone'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'Fax'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end
+          item
+            Name = 'OLD_CustomerID'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'UPDATE Customers'#13#10'  SET '#13#10'    CustomerID = :CustomerID, '#13#10'    Co' +
+              'mpanyName = :CompanyName, '#13#10'    ContactName = :ContactName, '#13#10'  ' +
+              '  ContactTitle = :ContactTitle, '#13#10'    Address = :Address, '#13#10'    ' +
+              'City = :City, '#13#10'    Region = :Region, '#13#10'    PostalCode = :Postal' +
+              'Code, '#13#10'    Country = :Country, '#13#10'    Phone = :Phone, '#13#10'    Fax ' +
+              '= :Fax'#13#10'  WHERE'#13#10'    (CustomerID = :OLD_CustomerID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Customers'
+      end>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 24
+    Top = 6
+  end
+  object ppReport: TppDBPipeline
+    DataSource = dsReport
+    UserName = 'Pipeline'
+    Left = 68
+    Top = 117
+  end
+  object dtReport: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    IndexDefs = <>
+    Left = 22
+    Top = 69
+  end
+  object dsReport: TDADataSource
+    DataTable = dtReport
+    Left = 22
+    Top = 117
+  end
+  object Report: TppReport
+    AutoStop = False
+    DataPipeline = ppReport
+    PrinterSetup.BinName = 'Default'
+    PrinterSetup.DocumentName = 'Report'
+    PrinterSetup.PaperName = 'A4 210 x 297 mm'
+    PrinterSetup.PrinterName = 'Default'
+    PrinterSetup.mmMarginBottom = 6350
+    PrinterSetup.mmMarginLeft = 6350
+    PrinterSetup.mmMarginRight = 6350
+    PrinterSetup.mmMarginTop = 6350
+    PrinterSetup.mmPaperHeight = 297000
+    PrinterSetup.mmPaperWidth = 210000
+    PrinterSetup.PaperSize = 9
+    Units = utMillimeters
+    DeviceType = 'ArchiveFile'
+    EmailSettings.ReportFormat = 'PDF'
+    OutlineSettings.CreateNode = True
+    OutlineSettings.CreatePageNodes = True
+    OutlineSettings.Enabled = True
+    OutlineSettings.Visible = True
+    ShowCancelDialog = False
+    ShowPrintDialog = False
+    TextSearchSettings.DefaultString = '<FindText>'
+    TextSearchSettings.Enabled = True
+    Left = 68
+    Top = 70
+    Version = '10.02'
+    mmColumnWidth = 0
+    DataPipelineName = 'ppReport'
+    object ppHeaderBand1: TppHeaderBand
+      mmBottomOffset = 0
+      mmHeight = 13229
+      mmPrintPosition = 0
+    end
+    object ppDetailBand1: TppDetailBand
+      mmBottomOffset = 0
+      mmHeight = 13229
+      mmPrintPosition = 0
+    end
+    object ppFooterBand1: TppFooterBand
+      mmBottomOffset = 0
+      mmHeight = 13229
+      mmPrintPosition = 0
+    end
+  end
+  object BinDataStreamer: TDABinDataStreamer
+    Left = 85
+    Top = 5
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/DARBService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/DARBService_Impl.pas
new file mode 100644
index 0000000..a7f8d4c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/DARBService_Impl.pas	
@@ -0,0 +1,100 @@
+unit DARBService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} ReportBuilderLibrary_Intf, uDADataStreamer, uDABinAdapter,
+  ppBands, ppCache, ppClass, ppProd, ppReport, DB, uDADataTable,
+  uDAScriptingProvider, uDACDSDataTable, ppComm, ppRelatv, ppDB, ppDBPipe,
+  uDAClasses, uDaInterfaces;
+
+type
+  { TDARBService }
+  TDARBService = class(TDataAbstractService, IDARBService)
+    DASchema: TDASchema;
+    ppReport: TppDBPipeline;
+    dtReport: TDACDSDataTable;
+    dsReport: TDADataSource;
+    Report: TppReport;
+    ppHeaderBand1: TppHeaderBand;
+    ppDetailBand1: TppDetailBand;
+    ppFooterBand1: TppFooterBand;
+    BinDataStreamer: TDABinDataStreamer;
+    procedure DataAbstractServiceActivate(const aClientID: TGUID;
+      aSession: TROSession; const aMessage: IROMessage);
+    procedure DataAbstractServiceDeactivate(const aClientID: TGUID;
+      aSession: TROSession);
+  private
+    fConnection: IDAConnection;
+  protected
+    { IDARBService methods }
+    function DA_GenReport(const ReportName: Ansistring; const DatasetName: Ansistring): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} ReportBuilderLibrary_Invk, ReportBuilder_ServerMain;
+
+procedure Create_DARBService(out anInstance: IUnknown);
+begin
+  anInstance := TDARBService.Create(nil);
+end;
+
+{ DARBService }
+
+function TDARBService.DA_GenReport(const ReportName: Ansistring; const DatasetName: Ansistring): Binary;
+var
+  ds: IDADataset;
+  s: TMemoryStream;
+begin
+  s := TMemoryStream.Create;
+  result := Binary.Create;
+  try
+    Report.DataPipeline := ppReport;
+    Report.Template.FileName := ReportBuilder_ServerMainForm.AppPath + ReportName;
+    Report.Template.LoadFromFile;
+    Report.Template.Load;
+    ds := DASchema.NewDataset(fConnection, DatasetName);
+    BinDataStreamer.WriteDataset(s, ds, [woRows, woSchema], -1);
+    BinDataStreamer.ReadDataset(s, dtReport, TRUE, '', TRUE, TRUE);
+    Report.DeviceType := 'dtArchive';
+    Report.ArchiveFileName := ReportBuilder_ServerMainForm.AppPath + 'ServerArchive.raf';
+    Report.Print;
+    result.LoadFromFile(ReportBuilder_ServerMainForm.AppPath + 'ServerArchive.raf');
+  finally
+    s.Free;
+  end;
+end;
+
+procedure TDARBService.DataAbstractServiceActivate(const aClientID: TGUID;
+  aSession: TROSession; const aMessage: IROMessage);
+begin
+  fConnection := ReportBuilder_ServerMainForm.DAConnectionManager1.NewConnection('ADO', TRUE);
+end;
+
+procedure TDARBService.DataAbstractServiceDeactivate(
+  const aClientID: TGUID; aSession: TROSession);
+begin
+  fConnection := nil;
+end;
+
+initialization
+  TROClassFactory.Create('DARBService', Create_DARBService, TDARBService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/RODLFILE.res
new file mode 100644
index 0000000..b23b77d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/Report1.rtm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/Report1.rtm
new file mode 100644
index 0000000..270bd58
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/Report1.rtm differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.Sample.html
new file mode 100644
index 0000000..dd01eef
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.Sample.html	
@@ -0,0 +1,36 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Report Builder Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+  This example shows how to create the report on the server, stream it to the client and then display to the client.<br>
+</p>
+<p>
+To use this sample, you will need to copy the report template file to the server folder.
+</p>
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   See the simple code in <b>DARBService_Impl.pas</b> and <b>ReportBuilder_ClientMain.pas</b>.
+	</li>
+</ul>
+<h2>Note</h2>
+<p>
+  This sample requires the installation of Report Builder (<a href="http://www.digital-metaphors.com">www.digital-metaphors.com</a>).
+</p>
+
+</body>
+</html>
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.bdsgroup
new file mode 100644
index 0000000..f049f0b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{C3AA235E-2FD1-4417-BDB5-1D840A25D589}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="ReportBuilderClient.exe">ReportBuilderClient.bdsproj</Projects>
+      <Projects Name="ReportBuilderServer.exe">ReportBuilderServer.bdsproj</Projects>
+      <Projects Name="Targets">ReportBuilderClient.exe ReportBuilderServer.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.bpg
new file mode 100644
index 0000000..f11e550
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ReportBuilderClient.exe ReportBuilderServer.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ReportBuilderClient.exe: ReportBuilderClient.dpr
+  $(DCC)
+
+ReportBuilderServer.exe: ReportBuilderServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.groupproj
new file mode 100644
index 0000000..e59150b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{edbe07cb-363c-46f5-a6d3-c92276275a6f}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="ReportBuilderClient">
+    <MSBuild Projects="ReportBuilderClient.dproj" Targets="" />
+  </Target>
+  <Target Name="ReportBuilderClient:Clean">
+    <MSBuild Projects="ReportBuilderClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ReportBuilderClient:Make">
+    <MSBuild Projects="ReportBuilderClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ReportBuilderServer">
+    <MSBuild Projects="ReportBuilderServer.dproj" Targets="" />
+  </Target>
+  <Target Name="ReportBuilderServer:Clean">
+    <MSBuild Projects="ReportBuilderServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ReportBuilderServer:Make">
+    <MSBuild Projects="ReportBuilderServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="ReportBuilderClient;ReportBuilderServer" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="ReportBuilderClient:Clean;ReportBuilderServer:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="ReportBuilderClient:Make;ReportBuilderServer:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.bdsproj
new file mode 100644
index 0000000..1a2b7cf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1D896A44-CA96-430D-AF80-C4886EBC9491}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ReportBuilderClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.dpr
new file mode 100644
index 0000000..890e31b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.dpr	
@@ -0,0 +1,14 @@
+program ReportBuilderClient;
+
+uses
+  Forms,
+  ReportBuilder_ClientMain in 'ReportBuilder_ClientMain.pas' {ReportBuilderClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'ReportBuilder Client';
+  Application.CreateForm(TReportBuilderClientMainForm, ReportBuilderClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.dproj
new file mode 100644
index 0000000..7ea440a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{39e1b6f4-4674-4588-8f39-e3edce5eaa45}</ProjectGuid>
+    <MainSource>ReportBuilderClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ReportBuilderClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ReportBuilderClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ReportBuilderClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ReportBuilder_ClientMain.pas">
+      <Form>ReportBuilderClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary.rodl
new file mode 100644
index 0000000..73faed0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary.rodl	
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ReportBuilderLibrary" UID="{AF63BD44-BEA9-4B7A-853F-3792A67A751B}" Version="3.0">
+<Services>
+<Service Name="DARBService" UID="{9D4AD748-3094-4645-AAB5-6E66211FEA49}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{373D25E9-7848-4554-8AE7-7703C081E853}">
+<Documentation>
+<![CDATA[Service DARBService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]>
+</Documentation>
+<Operations>
+<Operation Name="DA_GenReport" UID="{349E2228-4E7A-4978-AA95-E3A8A67B4E38}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ReportName" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="DatasetName" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract4" UID="{81248F99-ED0F-4F3E-8FA1-65B95258A35A}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary_Intf.pas
new file mode 100644
index 0000000..20eb590
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary_Intf.pas	
@@ -0,0 +1,97 @@
+unit ReportBuilderLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{AF63BD44-BEA9-4B7A-853F-3792A67A751B}';
+
+  { Service Interface ID's }
+  IDARBService_IID : TGUID = '{373D25E9-7848-4554-8AE7-7703C081E853}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IDARBService = interface;
+
+
+
+
+  { IDARBService }
+  IDARBService = interface(IDataAbstractService)
+    ['{373D25E9-7848-4554-8AE7-7703C081E853}']
+    function DA_GenReport(const ReportName: String; const DatasetName: String): Binary;
+  end;
+
+  { CoDARBService }
+  CoDARBService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARBService;
+  end;
+
+  { TDARBService_Proxy }
+  TDARBService_Proxy = class(TDataAbstractService_Proxy, IDARBService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function DA_GenReport(const ReportName: String; const DatasetName: String): Binary;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoDARBService }
+
+class function CoDARBService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARBService;
+begin
+  result := TDARBService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDARBService_Proxy }
+
+function TDARBService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DARBService';
+end;
+
+function TDARBService_Proxy.DA_GenReport(const ReportName: String; const DatasetName: String): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ReportBuilderLibrary', __InterfaceName, 'DA_GenReport');
+    __Message.Write('ReportName', TypeInfo(String), ReportName, []);
+    __Message.Write('DatasetName', TypeInfo(String), DatasetName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IDARBService_IID, TDARBService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IDARBService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary_Invk.pas
new file mode 100644
index 0000000..29131eb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderLibrary_Invk.pas	
@@ -0,0 +1,64 @@
+unit ReportBuilderLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} ReportBuilderLibrary_Intf;
+
+type
+  TDARBService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+    procedure Invoke_DA_GenReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TDARBService_Invoker }
+
+procedure TDARBService_Invoker.Invoke_DA_GenReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function DA_GenReport(const ReportName: String; const DatasetName: String): Binary; }
+var
+  ReportName: String;
+  DatasetName: String;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('ReportName', TypeInfo(String), ReportName, []);
+    __Message.Read('DatasetName', TypeInfo(String), DatasetName, []);
+
+    lResult := (__Instance as IDARBService).DA_GenReport(ReportName, DatasetName);
+
+    __Message.InitializeResponseMessage(__Transport, 'ReportBuilderLibrary', 'DARBService', 'DA_GenReportResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.bdsproj
new file mode 100644
index 0000000..2eb51ac
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{D355A7D7-168F-4CF8-AF89-6248B998AE37}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ReportBuilderServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.dpr
new file mode 100644
index 0000000..80bdae4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.dpr	
@@ -0,0 +1,21 @@
+program ReportBuilderServer;
+
+{#ROGEN:ReportBuilderLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROCOMInit,
+  Forms,
+  ReportBuilderLibrary_Intf in 'ReportBuilderLibrary_Intf.pas',
+  ReportBuilderLibrary_Invk in 'ReportBuilderLibrary_Invk.pas',
+  DARBService_Impl in 'DARBService_Impl.pas' {DARBService: TDataAbstractService},
+  ReportBuilder_ServerMain in 'ReportBuilder_ServerMain.pas' {ReportBuilder_ServerMainForm};
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'ReportBuilder Server';
+  Application.CreateForm(TReportBuilder_ServerMainForm, ReportBuilder_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.dproj
new file mode 100644
index 0000000..26b6236
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.dproj	
@@ -0,0 +1,83 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c3bd883e-cf1f-451a-a2c0-b0a16351f9af}</ProjectGuid>
+    <MainSource>ReportBuilderServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ReportBuilderServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ReportBuilderServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ReportBuilderServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DARBService_Impl.pas">
+      <Form>DARBService</Form>
+    </DCCReference>
+    <DCCReference Include="ReportBuilderLibrary_Intf.pas" />
+    <DCCReference Include="ReportBuilderLibrary_Invk.pas" />
+    <DCCReference Include="ReportBuilder_ServerMain.pas">
+      <Form>ReportBuilder_ServerMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilderServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ClientMain.dfm
new file mode 100644
index 0000000..e9fd243
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ClientMain.dfm	
@@ -0,0 +1,521 @@
+object ReportBuilderClientMainForm: TReportBuilderClientMainForm
+  Left = 457
+  Top = 208
+  AutoScroll = False
+  Caption = 'ReportBuilder Client'
+  ClientHeight = 242
+  ClientWidth = 571
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 232
+    Top = 13
+    Width = 58
+    Height = 13
+    Caption = 'Reportname'
+  end
+  object Grid: TDBGrid
+    Left = 0
+    Top = 42
+    Width = 571
+    Height = 200
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = dsCustomers
+    TabOrder = 3
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object OpenButton: TButton
+    Left = 8
+    Top = 8
+    Width = 121
+    Height = 25
+    Caption = 'Close/Open Customers'
+    TabOrder = 1
+    OnClick = OpenButtonClick
+  end
+  object ReportButton: TButton
+    Left = 152
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'GenReport'
+    TabOrder = 2
+    OnClick = ReportButtonClick
+  end
+  object edtRN: TEdit
+    Left = 304
+    Top = 8
+    Width = 121
+    Height = 21
+    TabOrder = 0
+    Text = 'Report1.rtm'
+  end
+  object BINMessage: TROBinMessage
+    UseCompression = False
+    Left = 128
+    Top = 72
+  end
+  object WinInetHTTPChannel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/bin'
+    Left = 160
+    Top = 72
+  end
+  object RemoteService: TRORemoteService
+    Message = BINMessage
+    Channel = WinInetHTTPChannel
+    ServiceName = 'DARBService'
+    Left = 193
+    Top = 72
+  end
+  object dtCustomers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datString
+        Size = 40
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactName'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Phone'
+        DataType = datString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Fax'
+        DataType = datString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 254
+    Top = 72
+  end
+  object dsCustomers: TDADataSource
+    DataTable = dtCustomers
+    Left = 288
+    Top = 72
+  end
+  object ArchiveReader: TppArchiveReader
+    AllowPrintToFile = True
+    DeviceType = 'Screen'
+    EmailSettings.ReportFormat = 'PDF'
+    PreviewFormSettings.WindowState = wsMaximized
+    PreviewFormSettings.ZoomSetting = zsPageWidth
+    SuppressOutline = False
+    TextSearchSettings.DefaultString = '<FindText>'
+    TextSearchSettings.Enabled = True
+    Left = 320
+    Top = 72
+    Version = '10.02'
+  end
+  object Report: TppReport
+    AutoStop = False
+    DataPipeline = ppReport
+    PrinterSetup.BinName = 'Default'
+    PrinterSetup.DocumentName = 'Report'
+    PrinterSetup.PaperName = 'A4 210 x 297 mm'
+    PrinterSetup.PrinterName = 'Default'
+    PrinterSetup.mmMarginBottom = 6350
+    PrinterSetup.mmMarginLeft = 6350
+    PrinterSetup.mmMarginRight = 6350
+    PrinterSetup.mmMarginTop = 6350
+    PrinterSetup.mmPaperHeight = 297000
+    PrinterSetup.mmPaperWidth = 210000
+    PrinterSetup.PaperSize = 9
+    Units = utMillimeters
+    DeviceType = 'ArchiveFile'
+    EmailSettings.ReportFormat = 'PDF'
+    OutlineSettings.CreateNode = True
+    OutlineSettings.CreatePageNodes = True
+    OutlineSettings.Enabled = True
+    OutlineSettings.Visible = True
+    ShowCancelDialog = False
+    ShowPrintDialog = False
+    TextSearchSettings.DefaultString = '<FindText>'
+    TextSearchSettings.Enabled = True
+    Left = 320
+    Top = 127
+    Version = '10.02'
+    mmColumnWidth = 0
+    DataPipelineName = 'ppReport'
+    object ppHeaderBand1: TppHeaderBand
+      mmBottomOffset = 0
+      mmHeight = 13229
+      mmPrintPosition = 0
+    end
+    object ppDetailBand1: TppDetailBand
+      mmBottomOffset = 0
+      mmHeight = 13229
+      mmPrintPosition = 0
+    end
+    object ppFooterBand1: TppFooterBand
+      mmBottomOffset = 0
+      mmHeight = 13229
+      mmPrintPosition = 0
+    end
+  end
+  object ppReport: TppDBPipeline
+    DataSource = dsReport
+    UserName = 'Pipeline'
+    Left = 352
+    Top = 127
+  end
+  object dtReport: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datString
+        Size = 40
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactName'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datString
+        Size = 60
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datString
+        Size = 10
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Phone'
+        DataType = datString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Fax'
+        DataType = datString
+        Size = 24
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 256
+    Top = 127
+  end
+  object dsReport: TDADataSource
+    DataTable = dtReport
+    Left = 288
+    Top = 128
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RemoteService
+    GetSchemaCall.MethodName = 'GetSchema'
+    GetSchemaCall.Params = <
+      item
+        Name = 'aFilter'
+        DataType = rtString
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtString
+        Flag = fResult
+      end>
+    GetSchemaCall.Default = False
+    GetSchemaCall.IncomingSchemaParameter = 'Result'
+    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
+    GetDataCall.RemoteService = RemoteService
+    GetDataCall.MethodName = 'GetData'
+    GetDataCall.Params = <
+      item
+        Name = 'aTableNameArray'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'StringArray'
+      end
+      item
+        Name = 'aTableRequestInfoArray'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'TableRequestInfoArray'
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    GetDataCall.Default = False
+    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
+    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
+    GetDataCall.IncomingDataParameter = 'Result'
+    UpdateDataCall.RemoteService = RemoteService
+    UpdateDataCall.MethodName = 'UpdateData'
+    UpdateDataCall.Params = <
+      item
+        Name = 'aDelta'
+        DataType = rtBinary
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtBinary
+        Flag = fResult
+      end>
+    UpdateDataCall.Default = False
+    UpdateDataCall.OutgoingDeltaParameter = 'aDelta'
+    UpdateDataCall.IncomingDeltaParameter = 'Result'
+    GetScriptsCall.RemoteService = RemoteService
+    GetScriptsCall.Params = <>
+    GetScriptsCall.Default = False
+    RemoteService = RemoteService
+    DataStreamer = DataStreamer
+    Left = 422
+    Top = 68
+  end
+  object DataStreamer: TDABinDataStreamer
+    Left = 488
+    Top = 68
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ClientMain.pas
new file mode 100644
index 0000000..d7c27c7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ClientMain.pas	
@@ -0,0 +1,90 @@
+unit ReportBuilder_ClientMain;
+
+interface
+
+{
+  IF YOU GET
+
+    [Fatal Error] uClientForm.pas(17): File not found: 'ppModule.dcu'
+
+  HERE: This sample requires ReportBuilder to be installed on your system.
+}
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDADataTable, uDACDSDataTable, uDABINAdapter, uRORemoteService,
+  uROWinInetHttpChannel, uROClient,
+  uROBINMessage, DB, Grids, DBGrids, StdCtrls, ppModule,
+  ppCtrls, ppVar, ppPrnabl, ppClass, ppBands, ppCache, ppDB, ppDBPipe,
+  ppComm, ppRelatv, ppProd, ppReport, ppArchiv, uROTypes,
+  ppParameter, uDAScriptingProvider,
+  uDARemoteDataAdapter, uDADataStreamer, ReportBuilderLibrary_Intf;
+
+type
+  TReportBuilderClientMainForm = class(TForm)
+    BINMessage: TROBINMessage;
+    WinInetHTTPChannel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    dtCustomers: TDACDSDataTable;
+    dsCustomers: TDADataSource;
+    Grid: TDBGrid;
+    OpenButton: TButton;
+    ReportButton: TButton;
+    ArchiveReader: TppArchiveReader;
+    Report: TppReport;
+    ppReport: TppDBPipeline;
+    dtReport: TDACDSDataTable;
+    dsReport: TDADataSource;
+    edtRN: TEdit;
+    Label1: TLabel;
+    ppHeaderBand1: TppHeaderBand;
+    ppDetailBand1: TppDetailBand;
+    ppFooterBand1: TppFooterBand;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    DataStreamer: TDABinDataStreamer;
+    procedure OpenButtonClick(Sender: TObject);
+    procedure ReportButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private-Deklarationen }
+    FService: IDARBService;
+  public
+    { Public-Deklarationen }
+  end;
+
+var
+  ReportBuilderClientMainForm: TReportBuilderClientMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TReportBuilderClientMainForm.OpenButtonClick(Sender: TObject);
+begin
+  dtCustomers.active := not dtCustomers.active;
+end;
+
+procedure TReportBuilderClientMainForm.ReportButtonClick(Sender: TObject);
+var
+  rb: TMemoryStream;
+begin
+  rb := FService.DA_GenReport(edtRN.Text, 'Customers');
+  if rb = nil then exit;
+  try
+    rb.SaveToFile(ExtractFilePath(Application.ExeName) + 'ClientArchive.raf');
+  finally
+    rb.Free;
+  end;
+  ArchiveReader.ArchiveFileName := (ExtractFilePath(Application.ExeName) + 'ClientArchive.raf');
+  ArchiveReader.DeviceType := 'dtScreen';
+  ArchiveReader.Print;
+  ArchiveReader.ArchiveFileName := ''; //To unlock ClientArchive.raf file
+end;
+
+procedure TReportBuilderClientMainForm.FormCreate(Sender: TObject);
+begin
+  FService := (RemoteService as IDARBService);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ServerMain.dfm
new file mode 100644
index 0000000..5c7f900
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ServerMain.dfm	
@@ -0,0 +1,72 @@
+object ReportBuilder_ServerMainForm: TReportBuilder_ServerMainForm
+  Left = 115
+  Top = 134
+  Width = 235
+  Height = 100
+  Caption = 'ReportBuilder Server'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Form1'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 14
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object ROMessage: TROBinMessage
+    Left = 56
+    Top = 16
+  end
+  object ROServer: TROIndyHTTPServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'BIN'
+      end>
+    Port = 8099
+    Left = 88
+    Top = 16
+  end
+  object DADriverManager1: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 120
+    Top = 16
+  end
+  object DAConnectionManager1: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DADriverManager1
+    PoolingEnabled = True
+    Left = 152
+    Top = 16
+  end
+  object DAADODriver1: TDAADODriver
+    Left = 184
+    Top = 16
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ServerMain.pas
new file mode 100644
index 0000000..dc7ded5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ReportBuilder_ServerMain.pas	
@@ -0,0 +1,42 @@
+unit ReportBuilder_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROIndyHTTPServer,
+   uROIndyTCPServer, uROPoweredByRemObjectsButton,
+  uDAEngine, uDAADODriver, uDAClasses, uDADriverManager;
+
+type
+  TReportBuilder_ServerMainForm = class(TForm)
+    ROMessage: TROBINMessage;
+    ROServer: TROIndyHTTPServer;
+    DADriverManager1: TDADriverManager;
+    DAConnectionManager1: TDAConnectionManager;
+    DAADODriver1: TDAADODriver;
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    procedure FormCreate(Sender: TObject);
+  private
+    fAppPath: string;
+  public
+    property AppPath: string read fAppPath write fAppPath;
+  end;
+
+var
+  ReportBuilder_ServerMainForm: TReportBuilder_ServerMainForm;
+
+implementation
+
+uses DARBService_Impl;
+
+
+{$R *.dfm}
+
+procedure TReportBuilder_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  fAppPath := ExtractFilePath(Application.ExeName);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ServerArchive.raf b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ServerArchive.raf
new file mode 100644
index 0000000..8cf3638
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Report Builder/ServerArchive.raf differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.Sample.html
new file mode 100644
index 0000000..18a0ad9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.Sample.html	
@@ -0,0 +1,36 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>SQL Access Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+This example treats two different SQL queries as if they are the same one.
+One takes data from the SHIPPERS table and the other from the CUSTOMERS table. <br> The field mappings used when building the where clause isolate the developer from the SQL details and so allow the building of fairly complex where clauses without the need to do string concatenations in code.<br>
+This sample also illustrates the use of various macro processors (TDAMSSQLMacroProcessor, TDAIBMacroProcessor, TDAOracleMacroProcessor, TDADBISAMMacroProcessor).
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   See the two SQL statements associated with the Customers dataset for the two connections for more details..
+	</li>
+</ul>
+<h2>Note</h2>
+
+<p>
+IMPORTANT: Keep in mind that the dataset's SQL property will always contain the statement you define and the dynamic WHERE clause only gets merged into it when opening the dataset.
+</p>
+</body>
+
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.bdsproj
new file mode 100644
index 0000000..12aa3e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{25637467-4C9A-4328-AB1E-7FCB56027FEB}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">SQLAccess.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.dpr
new file mode 100644
index 0000000..81c2c0c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.dpr	
@@ -0,0 +1,14 @@
+program SQLAccess;
+
+uses
+  Forms,
+  SQLAccessMain in 'SQLAccessMain.pas' {SQLAccessMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'SQL Access';
+  Application.CreateForm(TSQLAccessMainForm, SQLAccessMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.dproj
new file mode 100644
index 0000000..b1cd925
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f72ad2e5-c6f5-43f9-9fd6-9c34a1ccae26}</ProjectGuid>
+    <MainSource>SQLAccess.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>SQLAccess.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">SQLAccess.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="SQLAccess.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="SQLAccessMain.pas">
+      <Form>SQLAccessMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccess.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccessMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccessMain.dfm
new file mode 100644
index 0000000..bf656e2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccessMain.dfm	
@@ -0,0 +1,552 @@
+object SQLAccessMainForm: TSQLAccessMainForm
+  Left = 319
+  Top = 116
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'SQL Access'
+  ClientHeight = 444
+  ClientWidth = 576
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object PageControl1: TPageControl
+    Left = 0
+    Top = 0
+    Width = 576
+    Height = 444
+    ActivePage = TabSheet1
+    Align = alClient
+    TabIndex = 0
+    TabOrder = 0
+    object TabSheet1: TTabSheet
+      BorderWidth = 5
+      Caption = 'Where'
+      object Label1: TLabel
+        Left = 0
+        Top = 76
+        Width = 34
+        Height = 13
+        Caption = 'ID Like'
+      end
+      object Label2: TLabel
+        Left = 0
+        Top = 100
+        Width = 143
+        Height = 13
+        Caption = 'CompanyName Different Than'
+      end
+      object Label3: TLabel
+        Left = 0
+        Top = 124
+        Width = 114
+        Height = 13
+        Caption = 'PhoneNumber Equal To'
+      end
+      object Label4: TLabel
+        Left = 0
+        Top = 148
+        Width = 44
+        Height = 13
+        Caption = 'Order By:'
+      end
+      object ExecuteButton: TButton
+        Left = 410
+        Top = 143
+        Width = 113
+        Height = 22
+        Caption = 'E&xecute'
+        TabOrder = 5
+        OnClick = ExecuteButtonClick
+      end
+      object Memo: TMemo
+        Left = 0
+        Top = 199
+        Width = 558
+        Height = 207
+        Align = alBottom
+        Anchors = [akLeft, akTop, akRight, akBottom]
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Courier New'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 6
+      end
+      object rgConnections: TRadioGroup
+        Left = 0
+        Top = 0
+        Width = 558
+        Height = 65
+        Align = alTop
+        Caption = 'Connection'
+        TabOrder = 0
+      end
+      object eID: TEdit
+        Left = 152
+        Top = 72
+        Width = 255
+        Height = 21
+        TabOrder = 1
+        Text = 'A%'
+      end
+      object eCompanyName: TEdit
+        Left = 152
+        Top = 96
+        Width = 255
+        Height = 21
+        TabOrder = 2
+        Text = 'Noname'
+      end
+      object ePhoneNumber: TEdit
+        Left = 152
+        Top = 120
+        Width = 255
+        Height = 21
+        TabOrder = 3
+        Text = '13456789'
+      end
+      object cbOrderBy: TComboBox
+        Left = 152
+        Top = 144
+        Width = 255
+        Height = 21
+        ItemHeight = 13
+        TabOrder = 4
+      end
+    end
+    object TabSheet2: TTabSheet
+      BorderWidth = 5
+      Caption = 'Macros'
+      ImageIndex = 1
+      object ProcessSQLButton: TButton
+        Left = 325
+        Top = 6
+        Width = 75
+        Height = 22
+        Caption = 'ProcessSQL'
+        TabOrder = 1
+        OnClick = ProcessSQLButtonClick
+      end
+      object Memo1: TMemo
+        Left = 0
+        Top = 74
+        Width = 558
+        Height = 141
+        Align = alBottom
+        Anchors = [akLeft, akTop, akRight, akBottom]
+        Lines.Strings = (
+          'SELECT * FROM Orders WHERE OrderDate>{DateTime()}'
+          'SELECT * FROM Orders WHERE OrderDate>{Date()}'
+          'SELECT * FROM Orders WHERE OrderDate>{AddTime(Date(), 2, day)}'
+          
+            'SELECT * FROM Orders WHERE OrderDate>{FormatDateTime('#39'12/22/2003' +
+            ' 22:10:22.123'#39')}'
+          'SELECT * FROM Orders WHERE OrderDate>{FormatDate('#39'12/22/2003'#39')}'
+          'SELECT {Length(CustomerID)} FROM Orders'
+          'SELECT {TrimLeft(CustomerID)} FROM Orders'
+          'SELECT {TrimRight(CustomerID)} FROM Orders'
+          'SELECT {UpperCase(CustomerID)} FROM Orders'
+          'SELECT {Copy(CustomerID, 2, 3)} FROM Orders')
+        TabOrder = 2
+      end
+      object Memo2: TMemo
+        Left = 0
+        Top = 219
+        Width = 558
+        Height = 187
+        Align = alBottom
+        TabOrder = 4
+      end
+      object rgProcessors: TRadioGroup
+        Left = 0
+        Top = 0
+        Width = 322
+        Height = 71
+        Caption = 'Processor'
+        Columns = 2
+        ItemIndex = 0
+        Items.Strings = (
+          'TMSSQLMacroProcessor'
+          'TIBMacroProcessor'
+          'TOracleMacroProcessor'
+          'TDBISAMMacroProcessor')
+        TabOrder = 0
+      end
+      object Panel1: TPanel
+        Left = 0
+        Top = 215
+        Width = 558
+        Height = 4
+        Align = alBottom
+        BevelOuter = bvNone
+        TabOrder = 3
+      end
+    end
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 24
+    Top = 216
+  end
+  object DAADODriver: TDAADODriver
+    Left = 54
+    Top = 216
+  end
+  object DAConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'NorthwindCustomers'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Description = 'Query that point to the Customers table'
+        Default = True
+        Tag = 0
+      end
+      item
+        Name = 'NorthwindShippers'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Description = 'Query that point to the Shippers table'
+        Default = False
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = False
+    Left = 88
+    Top = 216
+  end
+  object DASchema: TDASchema
+    ConnectionManager = DAConnectionManager
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'NorthwindCustomers'
+            TargetTable = 'Customers'
+            SQL = 'SELECT CustomerID,CompanyName,Phone FROM Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'PhoneNumber'
+                TableField = 'Phone'
+              end>
+          end
+          item
+            Connection = 'NorthwindShippers'
+            TargetTable = 'Shippers'
+            SQL = 'SELECT ShipperID, CompanyName, Phone FROM Shippers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ShipperID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'PhoneNumber'
+                TableField = 'Phone'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            Required = True
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PhoneNumber'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'NorthwindShippers'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT OrderID, CustomerID, EmployeeID, OrderDate, RequiredDate,' +
+              #10' ShippedDate, ShipVia, Freight, ShipName, ShipAddress,'#10' ShipCit' +
+              'y, ShipRegion, ShipPostalCode, ShipCountry'#10' FROM Orders'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 24
+    Top = 248
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccessMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccessMain.pas
new file mode 100644
index 0000000..df4b8e4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/SQL Access/SQLAccessMain.pas	
@@ -0,0 +1,169 @@
+unit SQLAccessMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDADriverManager, uDAEngine, uDAADODriver, uDAClasses, StdCtrls,
+  DB, uDADataTable, uDACDSDataTable, uDAADODataTable, ExtCtrls,
+  ComCtrls, uDAScriptingProvider;
+
+type
+  TSQLAccessMainForm = class(TForm)
+    DriverManager: TDADriverManager;
+    DAADODriver: TDAADODriver;
+    PageControl1: TPageControl;
+    TabSheet1: TTabSheet;
+    TabSheet2: TTabSheet;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    ExecuteButton: TButton;
+    Memo: TMemo;
+    rgConnections: TRadioGroup;
+    eID: TEdit;
+    eCompanyName: TEdit;
+    ePhoneNumber: TEdit;
+    ProcessSQLButton: TButton;
+    Memo1: TMemo;
+    Memo2: TMemo;
+    rgProcessors: TRadioGroup;
+    cbOrderBy: TComboBox;
+    Label4: TLabel;
+    DAConnectionManager: TDAConnectionManager;
+    Panel1: TPanel;
+    DASchema: TDASchema;
+    procedure ExecuteButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure ProcessSQLButtonClick(Sender: TObject);
+
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  SQLAccessMainForm: TSQLAccessMainForm;
+
+implementation
+
+uses uDAInterfaces, uDAMacroProcessors, uDAMacros;
+
+{$R *.dfm}
+
+procedure TSQLAccessMainForm.ExecuteButtonClick(Sender: TObject);
+var
+  connname: string;
+  conn: IDAConnection;
+  ds: IDADataset;
+  i: integer;
+  orderby: integer;
+begin
+  { In this example we are treating two different SQL queries like they were the same one.
+    One takes data from the SHIPPERS table when the other from the CUSTOMERS one. The field mappings
+    that are used when building the where clause isolate the developer from the SQL details and allow
+    you to build fairly complex where clauses without the need to do string concatenations in code.
+
+    Examine the two sql statements associated with the Customers dataset for the two connections for
+    more details. The code below transparently works for both.
+
+    IMPORTANT: Keep in mind the SQL property of a dataset will always and only reflect the statement you define
+    in the statement and the dynamic WHERE clause will only be merged to it when opening the dataset.
+  }
+
+  Memo.Lines.Add('---------------');
+  Memo.Lines.Add('');
+  try
+    connname := Trim(Copy(rgConnections.Items[rgConnections.ItemIndex], 1, Pos('-', rgConnections.Items[rgConnections.ItemIndex]) - 1));
+    conn := DAConnectionManager.NewConnection(connname, TRUE);
+
+    ds := DASchema.NewDataset(conn, 'Customers');
+
+    { Note: we could have also created the dataset along with the field mappings and statements manually via code.
+            In some extremely dynamic situations that might be preferrable. }
+
+    Memo.Lines.Add('Mappings');
+    for i := 0 to ds.FieldCount - 1 do
+      Memo.Lines.Add(ds.fields[i].TableField + ' --> ' + ds.fields[i].Name);
+    Memo.Lines.Add('');
+
+    ds.Where.AddCondition('ID', cLike, eID.Text);
+
+    if (eCompanyName.Text <> '') and (ds.Where.Clause <> '') then ds.Where.AddOperator(opAND);
+
+    ds.Where.AddCondition('CompanyName', cDifferent, eCompanyName.Text);
+
+    if (ePhoneNumber.Text <> '') and (ds.Where.Clause <> '') then ds.Where.AddOperator(opOR);
+
+    ds.Where.AddCondition('PhoneNumber', cEqual, ePhoneNumber.Text);
+
+    orderby := POS('order by', lowercase(ds.SQL));
+
+    if (orderby = 0) then begin
+      if (cbOrderBy.Text <> '') then ds.SQL := ds.SQL + ' ORDER BY ' + ds.Fieldbyname(cbOrderBy.Text).TableField;
+    end
+    else begin
+      if (cbOrderBy.Text = '') then ds.SQL := copy(ds.sql, 1, orderby - 1)
+      else
+        ds.SQL := copy(ds.sql, 1, orderby - 1) + ' ORDER BY ' + ds.Fieldbyname(cbOrderBy.Text).TableField;
+    end;
+    ds.Open;
+  finally
+    Memo.Lines.Add('SQL >>> ' + ds.SQL);
+    Memo.Lines.Add('WHERE >>> ' + ds.Where.Clause);
+  end;
+end;
+
+procedure TSQLAccessMainForm.FormCreate(Sender: TObject);
+var
+  i: integer;
+  conn: IDAConnection;
+  ds: IDADataset;
+begin
+  with DAConnectionManager do
+    for i := 0 to (Connections.Count - 1) do begin
+      rgConnections.Items.Add(Connections[i].Name + ' - ' + Connections[i].Description);
+    end;
+
+  rgConnections.ItemIndex := 0;
+
+  conn := DAConnectionManager.NewConnection('NorthwindCustomers');
+  ds := DASchema.NewDataset(conn, 'Customers');
+  cbOrderBy.Items.Add('');
+  for i := 0 to (ds.FieldCount - 1) do begin
+    cbOrderBy.Items.Add(ds.Fields[i].Name);
+  end;
+end;
+
+procedure TSQLAccessMainForm.ProcessSQLButtonClick(Sender: TObject);
+var
+  processor: TDASQLMacroProcessor;
+  savedShortDateFormat: string;
+  SavedDateSeparator, savedTimeSeparator: Char;
+begin
+  case rgProcessors.ItemIndex of
+    0: processor := TDAMSSQLMacroProcessor.Create;
+    1: processor := TDAIBMacroProcessor.Create;
+    2: processor := TDAOracleMacroProcessor.Create;
+    3: processor := TDADBISAMMacroProcessor.Create;
+  else Exit;
+  end;
+  savedShortDateFormat := ShortDateFormat;
+  savedDateSeparator := DateSeparator;
+  savedTimeSeparator := TimeSeparator;
+  try
+    ShortDateFormat := 'MM/DD/YYYY';
+    DateSeparator := '/';
+    TimeSeparator := ':';
+    Memo2.Lines.Text := processor.Eval(Memo1.Lines.Text)
+  finally
+    ShortDateFormat := savedShortDateFormat;
+    DateSeparator := savedDateSeparator;
+    TimeSeparator := savedTimeSeparator;
+    processor.Free;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/RODLFILE.res
new file mode 100644
index 0000000..c0b5ce3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.Sample.html
new file mode 100644
index 0000000..2868c91
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.Sample.html	
@@ -0,0 +1,27 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align=right>
+
+<!-------------------------------------------------------------------------->
+<p class="h1">Service Methods</p>
+<br>
+<h2>Purpose</h2>
+
+<p>This example illustrates the methods of the <b>IDataAbstractService</b> base service. 
+   It shows the options available to change the server's operations and also shows the order in which server methods are invoked. <br>
+   In this example, all server methods are called manually. Normally, this is not necessary, as the <b>TDARemoteDataAdapter</b> calls them  all  for you.
+</p>
+<h2>Examine the Code</h2>
+<p>
+   See how the 
+   <b>IDataAbstractService</b> methods are called manually in 
+   <b>ServiceMethods_ClientMain.pas</b>
+</p>
+
+
+<!-------------------------------------------------------------------------->
+	</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.bdsgroup
new file mode 100644
index 0000000..8333b42
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{50358F46-CE56-42F4-B12A-927582536994}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="ServiceMethods_Server.exe">ServiceMethods_Server.bdsproj</Projects>
+      <Projects Name="ServiceMethods_Client.exe">ServiceMethods_Client.bdsproj</Projects>
+      <Projects Name="Targets">ServiceMethods_Server.exe ServiceMethods_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.bpg
new file mode 100644
index 0000000..fe9fcfa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ServiceMethods_Server.exe ServiceMethods_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ServiceMethods_Client.exe: ServiceMethods_Client.dpr
+  $(DCC)
+
+ServiceMethods_Server.exe: ServiceMethods_Server.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.groupproj
new file mode 100644
index 0000000..143ef56
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e6c919e3-5360-42fe-9531-375446f3300f}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="ServiceMethods_Server">
+    <MSBuild Projects="ServiceMethods_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="ServiceMethods_Server:Clean">
+    <MSBuild Projects="ServiceMethods_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ServiceMethods_Server:Make">
+    <MSBuild Projects="ServiceMethods_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ServiceMethods_Client">
+    <MSBuild Projects="ServiceMethods_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="ServiceMethods_Client:Clean">
+    <MSBuild Projects="ServiceMethods_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ServiceMethods_Client:Make">
+    <MSBuild Projects="ServiceMethods_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="ServiceMethods_Server;ServiceMethods_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="ServiceMethods_Server:Clean;ServiceMethods_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="ServiceMethods_Server:Make;ServiceMethods_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary.rodl
new file mode 100644
index 0000000..ae93bfa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary.rodl	
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ServiceMethodsLibrary" UID="{4E3F13F7-7BFC-4A77-AAB9-D9A3CF49CEB8}" Version="3.0">
+<Services>
+<Service Name="ServiceMethods_Service" UID="{705458A5-BD74-4999-A155-AC4AF7DC4854}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{7FD71BB0-07C8-479C-B684-75CD9DEF3917}">
+<Operations>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract4" UID="{E3034061-1BF9-46EF-9712-9C0DBC027BA2}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary_Intf.pas
new file mode 100644
index 0000000..588654f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary_Intf.pas	
@@ -0,0 +1,77 @@
+unit ServiceMethodsLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{4E3F13F7-7BFC-4A77-AAB9-D9A3CF49CEB8}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IServiceMethods_Service_IID : TGUID = '{7FD71BB0-07C8-479C-B684-75CD9DEF3917}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IServiceMethods_Service = interface;
+
+
+  { IServiceMethods_Service }
+  IServiceMethods_Service = interface(IDataAbstractService)
+    ['{7FD71BB0-07C8-479C-B684-75CD9DEF3917}']
+  end;
+
+  { CoServiceMethods_Service }
+  CoServiceMethods_Service = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IServiceMethods_Service;
+  end;
+
+  { TServiceMethods_Service_Proxy }
+  TServiceMethods_Service_Proxy = class(TDataAbstractService_Proxy, IServiceMethods_Service)
+  protected
+    function __GetInterfaceName:string; override;
+
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoServiceMethods_Service }
+
+class function CoServiceMethods_Service.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IServiceMethods_Service;
+begin
+  result := TServiceMethods_Service_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+function TServiceMethods_Service_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ServiceMethods_Service';
+end;
+
+initialization
+  RegisterProxyClass(IServiceMethods_Service_IID, TServiceMethods_Service_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IServiceMethods_Service_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary_Invk.pas
new file mode 100644
index 0000000..4c2758a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethodsLibrary_Invk.pas	
@@ -0,0 +1,36 @@
+unit ServiceMethodsLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} ServiceMethodsLibrary_Intf;
+
+type
+  {$M+}
+  TServiceMethods_Service_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  published
+  end;
+  {$M-}
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.bdsproj
new file mode 100644
index 0000000..6e397d1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{9A50541D-7E23-41F5-BAE4-0CEB2CDE4102}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ServiceMethods_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.dpr
new file mode 100644
index 0000000..c73ae67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.dpr	
@@ -0,0 +1,13 @@
+program ServiceMethods_Client;
+
+uses
+  Forms,
+  ServiceMethods_ClientMain in 'ServiceMethods_ClientMain.pas' {ServiceMethods_ClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TServiceMethods_ClientMainForm, ServiceMethods_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.dproj
new file mode 100644
index 0000000..8db32c6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f5641855-869a-4e82-b3c8-167372a7b6d0}</ProjectGuid>
+    <MainSource>ServiceMethods_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ServiceMethods_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ServiceMethods_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ServiceMethods_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ServiceMethods_ClientMain.pas">
+      <Form>ServiceMethods_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ClientMain.dfm
new file mode 100644
index 0000000..ed646ae
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ClientMain.dfm	
@@ -0,0 +1,670 @@
+object ServiceMethods_ClientMainForm: TServiceMethods_ClientMainForm
+  Left = 328
+  Top = 246
+  AutoScroll = False
+  Caption = 'ServiceMethods Client'
+  ClientHeight = 445
+  ClientWidth = 804
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  ShowHint = True
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object LogMessage: TLabel
+    Left = 150
+    Top = 207
+    Width = 647
+    Height = 16
+    Anchors = [akLeft, akTop, akRight]
+    AutoSize = False
+    Caption = 'Please run GetSchema first!'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clRed
+    Font.Height = -15
+    Font.Name = 'MS Sans Serif'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object PageControl: TPageControl
+    Left = 0
+    Top = 0
+    Width = 804
+    Height = 198
+    ActivePage = tsGetData
+    Align = alTop
+    TabOrder = 0
+    OnChange = PageControlChange
+    object tsGetSchema: TTabSheet
+      Caption = 'GetSchema'
+      object Label1: TLabel
+        Left = 0
+        Top = 0
+        Width = 796
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 'Requires that '#39'AllowSchemaAccess'#39' is enabled on the server'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+    end
+    object tsGetTableSchema: TTabSheet
+      Caption = 'GetTableSchema'
+      ImageIndex = 4
+      object Label2: TLabel
+        Left = 9
+        Top = 37
+        Width = 40
+        Height = 13
+        Caption = 'Dataset:'
+      end
+      object Label8: TLabel
+        Left = 0
+        Top = 0
+        Width = 796
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 'Requires that '#39'AllowSchemaAccess'#39'  is enabled on the server'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+      object cbGetTableSchema: TComboBox
+        Left = 126
+        Top = 33
+        Width = 145
+        Height = 21
+        Style = csDropDownList
+        ItemHeight = 0
+        TabOrder = 0
+      end
+    end
+    object tsGetData: TTabSheet
+      Caption = 'GetData'
+      ImageIndex = 1
+      object Label6: TLabel
+        Left = 9
+        Top = 37
+        Width = 40
+        Height = 13
+        Caption = 'Dataset:'
+      end
+      object Label7: TLabel
+        Left = 0
+        Top = 0
+        Width = 796
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 
+          'Requires that '#39'AllowDataAccess'#39', '#39'AcquireConnection'#39' and '#39'AllowW' +
+          'hereSQL'#39' is enabled on the server. (AllowWhereSQL is needed for ' +
+          'UserFilter)'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+      object Label4: TLabel
+        Left = 9
+        Top = 84
+        Width = 58
+        Height = 13
+        Caption = 'MaxRecord:'
+      end
+      object Label19: TLabel
+        Left = 9
+        Top = 108
+        Width = 47
+        Height = 13
+        Caption = 'UserFilter:'
+      end
+      object cbGetData: TComboBox
+        Left = 126
+        Top = 33
+        Width = 145
+        Height = 21
+        Style = csDropDownList
+        ItemHeight = 13
+        TabOrder = 0
+        OnChange = cbGetDataChange
+      end
+      object cbIncludeSchema: TCheckBox
+        Left = 9
+        Top = 58
+        Width = 130
+        Height = 17
+        Alignment = taLeftJustify
+        Caption = 'IncludeSchema'
+        Checked = True
+        State = cbChecked
+        TabOrder = 1
+      end
+      object spMaxRecord: TSpinEdit
+        Left = 126
+        Top = 79
+        Width = 50
+        Height = 22
+        MaxValue = 0
+        MinValue = 0
+        TabOrder = 2
+        Value = 10
+      end
+      object vleGetData: TValueListEditor
+        Left = 610
+        Top = 26
+        Width = 186
+        Height = 144
+        Align = alRight
+        TabOrder = 3
+        TitleCaptions.Strings = (
+          'Parameter'
+          'Value')
+        ColWidths = (
+          86
+          94)
+      end
+      object GetDataUserFilter: TEdit
+        Left = 126
+        Top = 103
+        Width = 477
+        Height = 21
+        Anchors = [akLeft, akTop, akRight]
+        TabOrder = 4
+      end
+    end
+    object tsUpdateData: TTabSheet
+      Caption = 'UpdateData'
+      ImageIndex = 2
+      object Label18: TLabel
+        Left = 0
+        Top = 0
+        Width = 796
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 
+          'Requires that '#39'AllowDataAccess'#39', '#39'ProcessDeltasWithoutUpdateRule' +
+          's'#39' and '#39'AcquireConnection'#39' is enabled on the server'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+      object Panel1: TPanel
+        Left = 0
+        Top = 26
+        Width = 610
+        Height = 144
+        Align = alClient
+        BevelOuter = bvNone
+        TabOrder = 0
+        object Panel2: TPanel
+          Left = 0
+          Top = 0
+          Width = 610
+          Height = 26
+          Align = alTop
+          BevelOuter = bvNone
+          TabOrder = 0
+          object Label15: TLabel
+            Left = 9
+            Top = 6
+            Width = 40
+            Height = 13
+            Caption = 'Dataset:'
+          end
+          object Label17: TLabel
+            Left = 360
+            Top = 6
+            Width = 58
+            Height = 13
+            Caption = 'MaxRecord:'
+          end
+          object RefreshButton: TBitBtn
+            Left = 208
+            Top = 1
+            Width = 77
+            Height = 22
+            Caption = 'Refresh'
+            TabOrder = 1
+            OnClick = RefreshButtonClick
+            Glyph.Data = {
+              36040000424D3604000000000000360000002800000010000000100000000100
+              2000000000000004000000000000000000000000000000000000FF00FF00A377
+              7400A3777400A3777400A3777400A3777400A3777400A3777400A3777400A377
+              7400A3777400A3777400A377740090605D00FF00FF00FF00FF00FF00FF00A67B
+              7500F2E2D300F2E2D300FFE8D100EFDFBB00FFE3C500FFDEBD00FFDDBA00FFD8
+              B200FFD6AE00FFD2A500FFD2A30093635F00FF00FF00FF00FF00FF00FF00AB7F
+              7700F3E7DA00F3E7DA0000990000AFD8A00070C56F0040AA2F0080BB5D00EFD4
+              A600FFD6AE00FFD2A300FFD2A30096666200FF00FF00FF00FF00FF00FF00B083
+              7900F4E9DD00F4E9DD00009900000099000000990000009900000099000040AA
+              2E00FFD8B200FFD4A900FFD4A9009A696400FF00FF00FF00FF00FF00FF00B689
+              7C00F5EDE400F5EDE4000099000000990000109E0D00CFD6A300FFE4C80020A2
+              1900FFD8B200FFD7B000FFD7B0009E6C6600FF00FF00FF00FF00FF00FF00BC8E
+              7E00F7EFE800F7EFE80000990000009900000099000000990000FFE4C800EFDE
+              BA00FFD8B200FFD7B000FFD9B400A26F6800FF00FF00FF00FF00FF00FF00C395
+              8100F8F3EF00F8F3EF00F8F3EF00FFF4E800FFF4E800FFF4E800EFE3C400EFE3
+              C400FFE4C800FFDEBD00FFDDBB00A5736A00FF00FF00FF00FF00FF00FF00CA9B
+              8400F9F5F200FBFBFB00FFF4E800FFF4E800FFF4E80000990000009900000099
+              0000FFE8D100FFE3C500FFE1C200A8766C00FF00FF00FF00FF00FF00FF00D2A1
+              8700F9F9F900FBFBFB00109F0F00AFD8A000FFF4E800AFD8A000009900000099
+              0000FFE8D100FFE4C800FFE3C600AC796E00FF00FF00FF00FF00FF00FF00D9A8
+              8A00FBFBFB00FFFFFF0070C56F00009900000099000000990000009900000099
+              0000FFE8D100FFE8D100FFE6CE00AE7B7100FF00FF00FF00FF00FF00FF00DFAE
+              8C00FCFCFC00FFFFFF00FFFFFF0070C56F000099000000990000AFD8A0000099
+              0000FFE8D100FFC8C200FFB0B000B07D7200FF00FF00FF00FF00FF00FF00E5B3
+              8F00FDFDFD00FDFDFD00FFFFFF00FFFFFF00FFFFFE00FFFAF600FFF9F300FFF5
+              EA00F4DECE00B27F7300B27F7300B27F7300FF00FF00FF00FF00FF00FF00EAB8
+              9100FEFEFE00FEFEFE00FFFFFF00FFFFFF00FFFFFF00FFFFFE00FFFAF600FFF9
+              F300F5E1D200B27F7300EDA75400CB987F00FF00FF00FF00FF00FF00FF00EFBC
+              9200FFFFFF00FFFFFF00FCFCFC00FAFAFA00F7F7F700F5F5F500F2F1F100F0ED
+              EA00E9DAD000B27F7300D4A18300D09D8100FF00FF00FF00FF00FF00FF00F2BF
+              9400DCA98700DCA98700DCA98700DCA98700DCA98700DCA98700DCA98700DCA9
+              8700DCA98700B27F7300D8A58500FF00FF00FF00FF00FF00FF00FF00FF00FF00
+              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+          end
+          object cbUpdateData: TComboBox
+            Left = 57
+            Top = 2
+            Width = 145
+            Height = 21
+            Style = csDropDownList
+            ItemHeight = 0
+            TabOrder = 0
+            OnChange = cbUpdateDataChange
+          end
+          object updateDataMaxRecord: TSpinEdit
+            Left = 431
+            Top = 1
+            Width = 50
+            Height = 22
+            MaxValue = 0
+            MinValue = 0
+            TabOrder = 2
+            Value = 10
+          end
+        end
+        object DBGrid1: TDBGrid
+          Left = 0
+          Top = 26
+          Width = 610
+          Height = 96
+          Align = alClient
+          DataSource = DataSource
+          TabOrder = 1
+          TitleFont.Charset = DEFAULT_CHARSET
+          TitleFont.Color = clWindowText
+          TitleFont.Height = -11
+          TitleFont.Name = 'MS Sans Serif'
+          TitleFont.Style = []
+        end
+        object DBNavigator1: TDBNavigator
+          Left = 0
+          Top = 122
+          Width = 610
+          Height = 22
+          DataSource = DataSource
+          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
+          Align = alBottom
+          TabOrder = 2
+        end
+      end
+      object ParamPanel: TPanel
+        Left = 610
+        Top = 26
+        Width = 186
+        Height = 144
+        Align = alRight
+        BevelOuter = bvNone
+        TabOrder = 1
+        object vleUpdateData: TValueListEditor
+          Left = 0
+          Top = 0
+          Width = 186
+          Height = 144
+          Align = alClient
+          TabOrder = 0
+          ColWidths = (
+            93
+            87)
+        end
+      end
+    end
+    object tsSQLGetData: TTabSheet
+      Caption = 'SQLGetData'
+      ImageIndex = 6
+      object Label11: TLabel
+        Left = 9
+        Top = 33
+        Width = 24
+        Height = 13
+        Caption = 'SQL:'
+      end
+      object Label12: TLabel
+        Left = 9
+        Top = 139
+        Width = 58
+        Height = 13
+        Caption = 'MaxRecord:'
+      end
+      object Label13: TLabel
+        Left = 0
+        Top = 0
+        Width = 796
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 
+          'Requires that '#39'AllowDataAccess'#39', '#39'AllowExecuteSQL'#39' and '#39'AcquireC' +
+          'onnection'#39' is enabled on the server'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+      object sqlIncludeSchema: TCheckBox
+        Left = 9
+        Top = 113
+        Width = 130
+        Height = 17
+        Alignment = taLeftJustify
+        Caption = 'IncludeSchema'
+        Checked = True
+        State = cbChecked
+        TabOrder = 1
+      end
+      object sqlMaxRecords: TSpinEdit
+        Left = 126
+        Top = 134
+        Width = 50
+        Height = 22
+        MaxValue = 0
+        MinValue = 0
+        TabOrder = 2
+        Value = 10
+      end
+      object memoDQLGetData: TMemo
+        Left = 126
+        Top = 33
+        Width = 600
+        Height = 75
+        Lines.Strings = (
+          'select * from customers')
+        ScrollBars = ssVertical
+        TabOrder = 0
+      end
+    end
+    object tsGetCommandSchema: TTabSheet
+      Caption = 'GetCommandSchema'
+      ImageIndex = 5
+      object Label5: TLabel
+        Left = 9
+        Top = 37
+        Width = 50
+        Height = 13
+        Caption = 'Command:'
+      end
+      object Label3: TLabel
+        Left = 0
+        Top = 0
+        Width = 800
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 'Requires that '#39'AllowSchemaAccess'#39' is enabled on the server'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+      object cbGetCommandSchema: TComboBox
+        Left = 126
+        Top = 33
+        Width = 145
+        Height = 24
+        Style = csDropDownList
+        ItemHeight = 0
+        TabOrder = 0
+      end
+    end
+    object tsExecuteCommand: TTabSheet
+      Caption = 'ExecuteCommand'
+      ImageIndex = 3
+      object Label9: TLabel
+        Left = 9
+        Top = 37
+        Width = 50
+        Height = 13
+        Caption = 'Command:'
+      end
+      object Label10: TLabel
+        Left = 0
+        Top = 0
+        Width = 800
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 
+          'Requires that '#39'AllowDataAccess'#39', '#39'AllowExecuteCommands'#39' and '#39'Acq' +
+          'uireConnection'#39' is enabled on the server'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+      object cbExecuteCommand: TComboBox
+        Left = 126
+        Top = 33
+        Width = 145
+        Height = 24
+        Style = csDropDownList
+        ItemHeight = 0
+        TabOrder = 0
+        OnChange = cbExecuteCommandChange
+      end
+      object vleExecuteCommand: TValueListEditor
+        Left = 610
+        Top = 26
+        Width = 186
+        Height = 144
+        Align = alRight
+        KeyOptions = [keyUnique]
+        TabOrder = 1
+        TitleCaptions.Strings = (
+          'Parameter'
+          'Value')
+        ColWidths = (
+          81
+          141)
+      end
+    end
+    object tsExecuteCommandEx: TTabSheet
+      Caption = 'ExecuteCommandEx'
+      ImageIndex = 8
+      object Label20: TLabel
+        Left = 0
+        Top = 0
+        Width = 800
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 
+          'Requires that '#39'AllowDataAccess'#39', '#39'AllowExecuteCommands'#39' and '#39'Acq' +
+          'uireConnection'#39' is enabled on the server'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+      object Label21: TLabel
+        Left = 9
+        Top = 37
+        Width = 50
+        Height = 13
+        Caption = 'Command:'
+      end
+      object cbExecuteCommandEx: TComboBox
+        Left = 126
+        Top = 33
+        Width = 145
+        Height = 24
+        Style = csDropDownList
+        ItemHeight = 0
+        TabOrder = 0
+        OnChange = cbExecuteCommandExChange
+      end
+      object vleExecuteCommandEx: TValueListEditor
+        Left = 610
+        Top = 26
+        Width = 186
+        Height = 144
+        Align = alRight
+        KeyOptions = [keyUnique]
+        TabOrder = 1
+        TitleCaptions.Strings = (
+          'Parameter'
+          'Value')
+        ColWidths = (
+          81
+          141)
+      end
+    end
+    object tsSQLExecuteCommand: TTabSheet
+      Caption = 'SQLExecuteCommand'
+      ImageIndex = 7
+      object Label14: TLabel
+        Left = 0
+        Top = 0
+        Width = 796
+        Height = 26
+        Align = alTop
+        AutoSize = False
+        Caption = 
+          'Requires that '#39'AllowDataAccess'#39', '#39'AllowExecuteSQL'#39' and '#39'AcquireC' +
+          'onnection'#39' is enabled on the server'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        WordWrap = True
+      end
+      object Label16: TLabel
+        Left = 9
+        Top = 33
+        Width = 24
+        Height = 13
+        Caption = 'SQL:'
+      end
+      object MemoSQLExecuteCommand: TMemo
+        Left = 126
+        Top = 33
+        Width = 600
+        Height = 75
+        Lines.Strings = (
+          
+            'update orders set CustomerID = '#39'AROUT'#39' where CustomerID = '#39'AROUT' +
+            #39)
+        ScrollBars = ssVertical
+        TabOrder = 0
+      end
+    end
+  end
+  object RunButton: TButton
+    Left = 3
+    Top = 204
+    Width = 139
+    Height = 22
+    Caption = 'RunButton'
+    TabOrder = 1
+    OnClick = RunButtonClick
+  end
+  object Memo: TMemo
+    Left = 1
+    Top = 232
+    Width = 804
+    Height = 213
+    Align = alCustom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = 'Courier New'
+    Font.Style = []
+    ParentFont = False
+    ScrollBars = ssBoth
+    TabOrder = 2
+  end
+  object ClearLogButton: TButton
+    Left = 724
+    Top = 204
+    Width = 75
+    Height = 22
+    Anchors = [akTop, akRight]
+    Caption = 'Clear log'
+    TabOrder = 3
+    OnClick = ClearLogButtonClick
+  end
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 3
+    Top = 234
+  end
+  object BinMessage: TROBinMessage
+    Left = 30
+    Top = 234
+  end
+  object Service: TRORemoteService
+    Message = BinMessage
+    Channel = Channel
+    ServiceName = 'ServiceMethods_Service'
+    Left = 85
+    Top = 234
+  end
+  object Streamer: TDABinDataStreamer
+    Left = 58
+    Top = 234
+  end
+  object DataSource: TDADataSource
+    Left = 113
+    Top = 234
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ClientMain.pas
new file mode 100644
index 0000000..7a56832
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ClientMain.pas	
@@ -0,0 +1,688 @@
+unit ServiceMethods_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uRORemoteService, uROClient, uROBinMessage,
+  uROWinInetHttpChannel, uDAScriptingProvider, uDADataTable,
+  uDACDSDataTable, uDADataStreamer, uDABinAdapter, uDARemoteDataAdapter,
+  ComCtrls, StdCtrls, ServiceMethodsLibrary_Intf, uDAClasses, uDAInterfaces,
+  Spin, Grids, ValEdit, DB, DBCtrls, DBGrids, ExtCtrls, Buttons;
+
+type
+  TServiceMethods_ClientMainForm = class(TForm)
+    Channel: TROWinInetHTTPChannel;
+    BinMessage: TROBinMessage;
+    Service: TRORemoteService;
+    Streamer: TDABinDataStreamer;
+    PageControl: TPageControl;
+    tsGetSchema: TTabSheet;
+    tsGetData: TTabSheet;
+    tsUpdateData: TTabSheet;
+    tsExecuteCommand: TTabSheet;
+    tsGetTableSchema: TTabSheet;
+    tsGetCommandSchema: TTabSheet;
+    tsSQLGetData: TTabSheet;
+    tsSQLExecuteCommand: TTabSheet;
+    Label1: TLabel;
+    RunButton: TButton;
+    Memo: TMemo;
+    cbGetTableSchema: TComboBox;
+    Label2: TLabel;
+    Label5: TLabel;
+    cbGetCommandSchema: TComboBox;
+    Label6: TLabel;
+    cbGetData: TComboBox;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label3: TLabel;
+    cbIncludeSchema: TCheckBox;
+    Label4: TLabel;
+    spMaxRecord: TSpinEdit;
+    cbExecuteCommand: TComboBox;
+    Label9: TLabel;
+    vleGetData: TValueListEditor;
+    vleExecuteCommand: TValueListEditor;
+    Label10: TLabel;
+    Label11: TLabel;
+    sqlIncludeSchema: TCheckBox;
+    Label12: TLabel;
+    sqlMaxRecords: TSpinEdit;
+    Label13: TLabel;
+    memoDQLGetData: TMemo;
+    Label14: TLabel;
+    MemoSQLExecuteCommand: TMemo;
+    Label16: TLabel;
+    LogMessage: TLabel;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    Label15: TLabel;
+    cbUpdateData: TComboBox;
+    DBGrid1: TDBGrid;
+    DBNavigator1: TDBNavigator;
+    DataSource: TDADataSource;
+    ParamPanel: TPanel;
+    vleUpdateData: TValueListEditor;
+    Label17: TLabel;
+    updateDataMaxRecord: TSpinEdit;
+    RefreshButton: TBitBtn;
+    Label19: TLabel;
+    GetDataUserFilter: TEdit;
+    Label18: TLabel;
+    ClearLogButton: TButton;
+    tsExecuteCommandEx: TTabSheet;
+    Label20: TLabel;
+    Label21: TLabel;
+    cbExecuteCommandEx: TComboBox;
+    vleExecuteCommandEx: TValueListEditor;
+    procedure PageControlChange(Sender: TObject);
+    procedure RunButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cbGetDataChange(Sender: TObject);
+    procedure cbExecuteCommandChange(Sender: TObject);
+    procedure cbUpdateDataChange(Sender: TObject);
+    procedure RefreshButtonClick(Sender: TObject);
+    procedure ClearLogButtonClick(Sender: TObject);
+    procedure cbExecuteCommandExChange(Sender: TObject);
+  private
+    { Private declarations }
+    FService: IServiceMethods_Service;
+    Schema: TDASchema;
+    procedure Log(Str: string);
+    procedure FillCB(ACombobox: Tcombobox; AItems: TDASQLCommandCollection);
+    function isNeedSchema: boolean;
+    procedure LogDataset(ADataset: TDACDSDataTable);
+    procedure FillUpdateDataDataset;
+  public
+    { Public declarations }
+    procedure GetSchema;
+    procedure GetData;
+    procedure UpdateData;
+    procedure ExecuteCommand;
+    procedure ExecuteCommandEx;
+    procedure GetTableSchema;
+    procedure GetCommandSchema;
+    procedure SQLGetData;
+    procedure SQLExecuteCommand;
+  end;
+
+var
+  ServiceMethods_ClientMainForm: TServiceMethods_ClientMainForm;
+
+implementation
+uses
+  DataAbstract4_Intf, uDADelta, uROTypes, uROXMLIntf;
+{$R *.dfm}
+
+procedure TServiceMethods_ClientMainForm.PageControlChange(
+  Sender: TObject);
+begin
+  RunButton.Caption := PageControl.ActivePage.Caption;
+  isNeedSchema;
+  if PageControl.ActivePage = tsGetData then cbGetDataChange(cbGetData)
+  else if PageControl.ActivePage = tsExecuteCommand then cbExecuteCommandChange(cbExecuteCommand)
+  else if PageControl.ActivePage = tsExecuteCommandEx then cbExecuteCommandExChange(cbExecuteCommandEx)
+  else if PageControl.ActivePage = tsUpdateData then cbUpdateDataChange(cbUpdateData);
+
+end;
+
+procedure TServiceMethods_ClientMainForm.RunButtonClick(Sender: TObject);
+begin
+  if PageControl.ActivePage = tsGetSchema then GetSchema
+  else if PageControl.ActivePage = tsGetData then GetData
+  else if PageControl.ActivePage = tsUpdateData then UpdateData
+  else if PageControl.ActivePage = tsExecuteCommand then ExecuteCommand
+  else if PageControl.ActivePage = tsExecuteCommandEx then ExecuteCommandEx
+  else if PageControl.ActivePage = tsGetTableSchema then GetTableSchema
+  else if PageControl.ActivePage = tsGetCommandSchema then GetCommandSchema
+  else if PageControl.ActivePage = tsSQLGetData then SQLGetData
+  else if PageControl.ActivePage = tsSQLExecuteCommand then SQLExecuteCommand
+    ;
+  Log('');
+end;
+
+procedure TServiceMethods_ClientMainForm.ExecuteCommand;
+var
+  aRowsAffacted: integer;
+  dataparam: DataParameterArray;
+  i: integer;
+begin
+  if isNeedSchema then Exit;
+  Log('***ExecuteCommand***');
+  try
+    dataparam := DataParameterArray.Create;
+    try
+      for i := 0 to vleExecuteCommand.Strings.Count - 1 do begin
+        with dataparam.Add do begin
+          Name := AnsiToUtf8(vleExecuteCommand.Keys[i + 1]);
+          Value := vleExecuteCommand.Values[Name];
+        end;
+      end;
+      aRowsAffacted := FService.ExecuteCommand(AnsiToUtf8(cbExecuteCommand.Text), dataparam);
+    finally
+      dataparam.Free;
+    end;
+    log('aRowsAffacted:'#9 + intToStr(aRowsAffacted));
+  except
+    on e: Exception do Log(e.Message);
+  end;
+  Log('*******************');
+end;
+
+procedure TServiceMethods_ClientMainForm.GetCommandSchema;
+var
+  str: string;
+  strArr: StringArray;
+  doc: IXMLDocument;
+  List: IXMLNodeList;
+  j, i: integer;
+  node, ParamsNode, ParamNode: IXMLNode;
+begin
+  if isNeedSchema then Exit;
+
+  Log('***GetCommandSchema***');
+  StrArr := StringArray.Create;
+  try
+    strArr.Add(AnsiToUtf8(cbGetCommandSchema.Text));
+    try
+      str := FService.GetCommandSchema(StrArr);
+      doc := NewROXmlDocument;
+      doc.New;
+      doc.XML :=Utf8ToAnsi(str);
+      List := doc.DocumentNode.GetNodesByName('SchemaCommand');
+      for i := 0 to List.Count - 1 do begin
+        Node := List.Nodes[i];
+        if Node = nil then continue;
+        Log('Command: ' + Node.GetNodeValue('Name', ''));
+        ParamsNode := Node.GetNodeByName('Params');
+        if ParamsNode = nil then Continue;
+        for j := 0 to ParamsNode.GetAttributeValue('Count', 0) - 1 do begin
+          ParamNode := ParamsNode.GetNodeByName('Item' + IntToStr(j));
+          if ParamNode = nil then Continue;
+          Log('Params[' + IntToStr(j) + ']: ' + ParamNode.GetNodeValue('Name', ''));
+        end;
+      end;
+    except
+      on E: Exception do Log(E.Message);
+    end;
+  finally
+    strArr.Free;
+  end;
+  Log('********************');
+end;
+
+procedure TServiceMethods_ClientMainForm.GetData;
+var
+  Stream: TMemoryStream;
+  CDSDataTable: TDACDSDataTable;
+  aTableRequestInfoArray: TableRequestInfoArray;
+  aTableNameArray: StringArray;
+  i: integer;
+  aTableRequestInfo: TableRequestInfo;
+begin
+  if isNeedSchema then exit;
+  Log('***GetData***');
+
+  aTableNameArray := StringArray.Create;
+  aTableRequestInfoArray := TableRequestInfoArray.Create;
+  try
+    aTableNameArray.Add(AnsiToUtf8(cbGetData.Text));
+    aTableRequestInfo := aTableRequestInfoArray.Add;
+    with aTableRequestInfo do begin
+      IncludeSchema := cbIncludeSchema.checked;
+      MaxRecords := spMaxRecord.Value;
+      UserFilter := AnsiToUtf8(GetDataUserFilter.Text);
+      for i := 0 to vleGetData.Strings.Count - 1 do
+        with Parameters.Add do begin
+          Name := AnsiToUtf8(vleGetData.Keys[i + 1]);
+          Value := vleGetData.Values[Name];
+        end;
+    end;
+    try
+      Stream := FService.GetData(aTableNameArray, aTableRequestInfoArray);
+      if Stream <> nil then try
+        CDSDataTable := TDACDSDataTable.Create(nil);
+        try
+          CDSDataTable.Name := 'TEST';
+          CDSDataTable.LocalDataStreamer := Streamer;
+          CDSDataTable.RemoteFetchEnabled := False;
+          Streamer.ReadDataset(Stream, CDSDataTable, True);
+          log('RecordCount:'#9 + intToStr(CDSDataTable.RecordCount));
+          Log('FieldCount:'#9 + intToStr(CDSDataTable.FieldCount));
+          if (CDSDataTable.FieldCount <> 0) then LogDataset(CDSDataTable);
+        finally
+          CDSDataTable.Free;
+        end;
+      finally
+        Stream.Free;
+      end;
+    except
+      on e: Exception do Log(e.Message);
+    end;
+  finally
+    aTableRequestInfoArray.Free;
+    aTableNameArray.Free;
+  end;
+  Log('*************');
+end;
+
+procedure TServiceMethods_ClientMainForm.GetSchema;
+var
+  i: integer;
+begin
+  cbGetTableSchema.Clear;
+  cbGetCommandSchema.Clear;
+  cbGetData.Clear;
+
+  Log('***GetSchema***');
+  try
+    Schema.LoadFromXml(Utf8ToAnsi(FService.GetSchema('')));
+
+    Log('Datasets.Count:'#9 + IntToStr(Schema.Datasets.Count));
+    for i := 0 to Schema.Datasets.Count - 1 do
+      Log('Datasets[' + IntTostr(i) + ']:'#9 + Schema.Datasets[i].Name);
+    FillCB(cbGetTableSchema, Schema.Datasets);
+    FillCB(cbGetData, Schema.Datasets);
+    FillCB(cbUpdateData, Schema.Datasets);
+
+    Log('Commands.Count:'#9 + IntToStr(Schema.Commands.Count));
+    for i := 0 to Schema.Commands.Count - 1 do
+      Log('Commands[' + IntTostr(i) + ']:'#9 + Schema.Commands[i].Name);
+    FillCB(cbGetCommandSchema, Schema.Commands);
+    FillCB(cbExecuteCommand, Schema.Commands);
+    FillCB(cbExecuteCommandEx, Schema.Commands);
+  except
+    on E: Exception do Log(E.Message);
+  end;
+  Log('***************');
+end;
+
+procedure TServiceMethods_ClientMainForm.GetTableSchema;
+var
+  str: string;
+  strArr: StringArray;
+  doc: IXMLDocument;
+  List: IXMLNodeList;
+  j, i: integer;
+  node, FieldsNode, FieldNode: IXMLNode;
+begin
+  if isNeedSchema then Exit;
+  Log('***GetTableSchema***');
+  StrArr := StringArray.Create;
+  try
+    strArr.Add(AnsiToUtf8(cbGetTableSchema.Text));
+    try
+      str := FService.GetTableSchema(StrArr);
+      doc := NewROXmlDocument;
+      doc.New;
+      doc.XML := Utf8ToAnsi(str);
+      List := doc.DocumentNode.GetNodesByName('SchemaDataTable');
+      for i := 0 to List.Count - 1 do begin
+        Node := List.Nodes[i];
+        if Node = nil then continue;
+        Log('table: ' + Node.GetNodeValue('Name', ''));
+        FieldsNode := Node.GetNodeByName('Fields');
+        if FieldsNode = nil then Continue;
+        for j := 0 to FieldsNode.GetAttributeValue('Count', 0) - 1 do begin
+          FieldNode := FieldsNode.GetNodeByName('Item' + IntToStr(j));
+          if FieldNode = nil then Continue;
+          Log('Fields[' + IntToStr(j) + ']: ' + FieldNode.GetNodeValue('Name', ''));
+        end;
+      end;
+    except
+      on E: Exception do Log(E.Message);
+    end;
+  finally
+    strArr.Free;
+  end;
+  Log('********************');
+end;
+
+procedure TServiceMethods_ClientMainForm.SQLExecuteCommand;
+var
+  aRowsAffacted: integer;
+begin
+  Log('***SQLExecuteCommand***');
+  try
+    aRowsAffacted := FService.SQLExecuteCommand(AnsiToUtf8(MemoSQLExecuteCommand.Text));
+    log('aRowsAffacted:'#9 + intToStr(aRowsAffacted));
+  except
+    on e: Exception do Log(e.Message);
+  end;
+  Log('*********************');
+end;
+
+procedure TServiceMethods_ClientMainForm.SQLGetData;
+var
+  Stream: TMemoryStream;
+  CDSDataTable: TDACDSDataTable;
+begin
+  Log('***SQLGetData***');
+  try
+    Stream := FService.SQLGetData(AnsiToUtf8(memoDQLGetData.Text), sqlIncludeSchema.Checked, sqlMaxRecords.Value);
+    if Stream <> nil then try
+      CDSDataTable := TDACDSDataTable.Create(nil);
+      try
+        CDSDataTable.Name := 'TEST';
+        CDSDataTable.LocalDataStreamer := Streamer;
+        CDSDataTable.RemoteFetchEnabled := False;
+        Streamer.ReadDataset(Stream, CDSDataTable, True);
+        log('RecordCount:'#9 + intToStr(CDSDataTable.RecordCount));
+        Log('FieldCount:'#9 + intToStr(CDSDataTable.FieldCount));
+        if (CDSDataTable.FieldCount <> 0) then LogDataset(CDSDataTable);
+      finally
+        CDSDataTable.Free;
+      end;
+    finally
+      Stream.Free;
+    end;
+  except
+    on e: Exception do Log(e.Message);
+  end;
+end;
+
+procedure TServiceMethods_ClientMainForm.UpdateData;
+var
+  stream1, stream: Binary;
+  i, j: integer;
+
+begin
+  if isNeedSchema then Exit;
+  if DataSource.DataTable = nil then begin
+    ShowMessage('Please select dataset from combobox');
+    Exit;
+  end;
+  Log('***UpdateData***');
+  Log('Delta.Count:'#9 + intToStr(DataSource.DataTable.Delta.Count));
+
+  with DataSource.DataTable.Delta do
+    for i := 0 to Count - 1 do begin
+      Log('----- Delta ' + IntToStr(i) + '-----');
+      with Changes[i] do
+        for j := 0 to (LoggedFieldCount - 1) do
+          Log(LoggedFieldNames[j] + ':'#9 + VarToStr(OldValueByName[LoggedFieldNames[j]]) + ' -> ' + VarToStr(NewValueByName[LoggedFieldNames[j]]));
+    end;
+
+  stream := binary.Create;
+  try
+    Streamer.Initialize(stream, aiWrite);
+    DataSource.DataTable.WriteDeltaToStream(Streamer);
+    Streamer.Finalize;
+    try
+      stream1 := FService.UpdateData(Stream);
+      if Stream1 <> nil then try
+        DataSource.DataTable.Delta.Clear();
+        Streamer.Initialize(stream1, aiRead);
+        DataSource.DataTable.ReadDeltaFromStream(Streamer);
+        Streamer.Finalize;
+        DataSource.DataTable.MergeDelta;
+      finally
+        Stream1.Free;
+      end;
+    except
+      on e: Exception do Log(e.Message);
+    end;
+  finally
+    Stream.Free;
+  end;
+  Log('***************');
+end;
+
+procedure TServiceMethods_ClientMainForm.Log(Str: string);
+begin
+  Memo.Lines.Add(Str);
+end;
+
+procedure TServiceMethods_ClientMainForm.FormCreate(Sender: TObject);
+begin
+  FService := Service as IServiceMethods_Service;
+  Schema := TDASchema.Create(nil);
+end;
+
+procedure TServiceMethods_ClientMainForm.FormDestroy(Sender: TObject);
+begin
+  if DataSource.DataTable <> nil then DataSource.DataTable.Free;
+  Schema.Free;
+end;
+
+procedure TServiceMethods_ClientMainForm.FormShow(Sender: TObject);
+begin
+  PageControl.ActivePage := tsGetSchema;
+  PageControlChange(PageControl);
+end;
+
+procedure TServiceMethods_ClientMainForm.FillCB(ACombobox: Tcombobox; AItems: TDASQLCommandCollection);
+var
+  i: integer;
+begin
+  ACombobox.Items.Clear;
+  for i := 0 to AItems.Count - 1 do
+    ACombobox.Items.Add(AItems[i].Name);
+  if ACombobox.Items.Count > 0 then ACombobox.ItemIndex := 0;
+end;
+
+function TServiceMethods_ClientMainForm.isNeedSchema: Boolean;
+begin
+  Result := (Schema.Datasets.Count = 0) or (Schema.Commands.Count = 0);
+  LogMessage.Visible := Result and
+    (PageControl.ActivePage <> tsGetSchema) and
+    (PageControl.ActivePage <> tsSQLGetData) and
+    (PageControl.ActivePage <> tsSQLExecuteCommand);
+  RunButton.Enabled := not LogMessage.Visible;
+end;
+
+procedure TServiceMethods_ClientMainForm.LogDataset(
+  ADataset: TDACDSDataTable);
+var
+  i: integer;
+  s: string;
+begin
+  log('');
+  s := '';
+  for i := 0 to ADataset.FieldCount - 1 do
+    s := s + ADataset.Fields[i].Name + #9;
+  Log(s);
+  ADataset.first;
+  while not ADataset.Eof do begin
+    s := '';
+    for i := 0 to ADataset.FieldCount - 1 do
+      s := s + ADataset.Fields[i].AsString + #9;
+    Log(s);
+    ADataset.next;
+  end;
+  Log('');
+end;
+
+procedure TServiceMethods_ClientMainForm.cbGetDataChange(Sender: TObject);
+var
+  fDataset: TDADataset;
+  i: integer;
+begin
+  vleGetData.Strings.Clear;
+  try
+    if cbGetData.text = '' then Exit;
+    fDataset := Schema.Datasets.DatasetByName(cbGetData.Text);
+    if fDataset = nil then Exit;
+    for i := 0 to fDataset.Params.Count - 1 do
+      if vleGetData.Strings.IndexOfName(fDataset.Params[i].Name) = -1 then
+        vleGetData.InsertRow(fDataset.Params[i].Name, '', True);
+  finally
+    vleGetData.Visible := vleGetData.Strings.Count > 0;
+  end;
+  Log('*************SQL**************');
+  if fDataset.Statements.Count > 0 then
+    Log(fDataset.Statements[0].SQL)
+  else
+    Log('SQL statement is not found. Probably this table is ExportedDataTable.');
+  Log('******************************');
+
+end;
+
+procedure TServiceMethods_ClientMainForm.cbExecuteCommandChange(
+  Sender: TObject);
+var
+  fcommand: TDASQLCommand;
+  i: integer;
+begin
+  vleExecuteCommand.Strings.Clear;
+  try
+    if cbExecuteCommand.text = '' then Exit;
+    fcommand := Schema.Commands.SQLCommandByName(cbExecuteCommand.Text);
+    if fcommand = nil then Exit;
+    for i := 0 to fcommand.Params.Count - 1 do
+      if fcommand.Params[i].ParamType in [daptInput, daptInputOutput] then
+        if vleExecuteCommand.Strings.IndexOfName(fcommand.Params[i].Name) = -1 then
+          vleExecuteCommand.InsertRow(fcommand.Params[i].Name, '', True);
+  finally
+    vleExecuteCommand.Visible := vleExecuteCommand.Strings.Count > 0;
+  end;
+
+  Log('*************SQL**************');
+  Log(fcommand.Statements[0].SQL);
+  Log('******************************');
+
+end;
+
+procedure TServiceMethods_ClientMainForm.cbUpdateDataChange(Sender: TObject);
+var
+  CDSDataTable: TDACDSDataTable;
+var
+  i: integer;
+begin
+  vleUpdateData.Strings.Clear;
+  if cbUpdateData.text = '' then Exit;
+  if DataSource.DataTable = nil then DataSource.DataTable := TDACDSDataTable.Create(nil);
+  CDSDataTable := TDACDSDataTable(DataSource.DataTable);
+  Log('Try to get data (call GetData)');
+  CDSDataTable.LogicalName := cbUpdateData.Text;
+  FillUpdateDataDataset;
+  try
+    for i := 0 to CDSDataTable.Params.Count - 1 do
+      if vleUpdateData.Strings.IndexOfName(CDSDataTable.Params[i].Name) = -1 then
+        vleUpdateData.InsertRow(CDSDataTable.Params[i].Name, '', True);
+  finally
+    ParamPanel.Visible := vleUpdateData.Strings.Count > 0;
+  end;
+end;
+
+procedure TServiceMethods_ClientMainForm.FillUpdateDataDataset;
+var
+  Stream: TMemoryStream;
+  aTableRequestInfoArray: TableRequestInfoArray;
+  aTableNameArray: StringArray;
+  i: integer;
+  aTableRequestInfo: TableRequestInfo;
+  CDSDataTable: TDACDSDataTable;
+begin
+  CDSDataTable := TDACDSDataTable(DataSource.DataTable);
+  if CDSDataTable = nil then Exit;
+  CDSDataTable.Close;
+  aTableNameArray := StringArray.Create;
+  aTableRequestInfoArray := TableRequestInfoArray.Create;
+  try
+    aTableNameArray.Add(CDSDataTable.LogicalName);
+    aTableRequestInfo := aTableRequestInfoArray.Add;
+    with aTableRequestInfo do begin
+      IncludeSchema := true;
+      MaxRecords := updateDataMaxRecord.Value;
+      UserFilter := '';
+      for i := 0 to vleUpdateData.Strings.Count - 1 do
+        with Parameters.Add do begin
+          Name := vleUpdateData.Keys[i + 1];
+          Value := vleUpdateData.Values[Name];
+        end;
+    end;
+    try
+      Stream := FService.GetData(aTableNameArray, aTableRequestInfoArray);
+      if Stream <> nil then try
+        CDSDataTable.Name := 'TEST';
+        CDSDataTable.LocalDataStreamer := Streamer;
+        CDSDataTable.RemoteFetchEnabled := False;
+        Streamer.ReadDataset(Stream, CDSDataTable, True);
+      finally
+        Stream.Free;
+      end;
+    except
+      on e: Exception do Log(e.Message);
+    end;
+  finally
+    aTableRequestInfoArray.Free;
+    aTableNameArray.Free;
+  end;
+  CDSDataTable.Open;
+end;
+
+procedure TServiceMethods_ClientMainForm.RefreshButtonClick(
+  Sender: TObject);
+begin
+  FillUpdateDataDataset;
+end;
+
+procedure TServiceMethods_ClientMainForm.ClearLogButtonClick(
+  Sender: TObject);
+begin
+  Memo.Lines.Clear;
+end;
+
+procedure TServiceMethods_ClientMainForm.ExecuteCommandEx;
+var
+  aRowsAffacted: integer;
+  dataparam, outputdataparam: DataParameterArray;
+  i: integer;
+begin
+  if isNeedSchema then Exit;
+  Log('***ExecuteCommandEx***');
+  try
+    dataparam := DataParameterArray.Create;
+    try
+      for i := 0 to vleExecuteCommandEx.Strings.Count - 1 do begin
+        with dataparam.Add do begin
+          Name := vleExecuteCommandEx.Keys[i + 1];
+          Value := vleExecuteCommandEx.Values[Name];
+        end;
+      end;
+      aRowsAffacted := FService.ExecuteCommandEx(AnsiToUtf8(cbExecuteCommandEx.Text), dataparam, outputdataparam);
+      log('aRowsAffacted:'#9 + intToStr(aRowsAffacted));
+      Log('Output parameters count:'#9 + IntToStr(outputdataparam.Count));
+      for i := 0 to outputdataparam.Count - 1 do
+        Log(outputdataparam.Items[i].Name + ':'#9 + VarToStr(outputdataparam.Items[i].Value));
+
+    finally
+      outputdataparam.Free;
+      dataparam.Free;
+    end;
+  except
+    on e: Exception do Log(e.Message);
+  end;
+  Log('*******************');
+end;
+
+procedure TServiceMethods_ClientMainForm.cbExecuteCommandExChange(
+  Sender: TObject);
+var
+  fcommand: TDASQLCommand;
+  i: integer;
+begin
+  vleExecuteCommandEx.Strings.Clear;
+  try
+    if cbExecuteCommandEx.text = '' then Exit;
+    fcommand := Schema.Commands.SQLCommandByName(cbExecuteCommandEx.Text);
+    if fcommand = nil then Exit;
+    for i := 0 to fcommand.Params.Count - 1 do
+      if fcommand.Params[i].ParamType in [daptInput, daptInputOutput] then
+        if vleExecuteCommandEx.Strings.IndexOfName(fcommand.Params[i].Name) = -1 then
+          vleExecuteCommandEx.InsertRow(fcommand.Params[i].Name, '', True);
+  finally
+    vleExecuteCommandEx.Visible := vleExecuteCommandEx.Strings.Count > 0;
+  end;
+
+  Log('*************SQL**************');
+  Log(fcommand.Statements[0].SQL);
+  Log('******************************');
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.bdsproj
new file mode 100644
index 0000000..6364664
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0E332F4D-5839-4E03-B994-0FB08B51ACCF}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ServiceMethods_Server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.dpr
new file mode 100644
index 0000000..5fd9d20
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.dpr	
@@ -0,0 +1,20 @@
+program ServiceMethods_Server;
+
+uses
+  uROCOMInit,
+  Forms,
+  ServiceMethods_ServerMain in 'ServiceMethods_ServerMain.pas' {ServiceMethods_ServerMainForm},
+  ServiceMethodsLibrary_Intf in 'ServiceMethodsLibrary_Intf.pas',
+  ServiceMethodsLibrary_Invk in 'ServiceMethodsLibrary_Invk.pas',
+  ServiceMethods_Service_Impl in 'ServiceMethods_Service_Impl.pas' {ServiceMethods_Service: TDataAbstractService};
+
+{#ROGEN:ServiceMethodsLibrary.rodl}// RemObjects: Careful, do not remove!
+{$R RODLFILE.res}
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TServiceMethods_ServerMainForm, ServiceMethods_ServerMainForm);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.dproj
new file mode 100644
index 0000000..584a4f5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.dproj	
@@ -0,0 +1,83 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e615b2bf-3d4f-42f0-a57b-40e742fbf754}</ProjectGuid>
+    <MainSource>ServiceMethods_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ServiceMethods_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ServiceMethods_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ServiceMethods_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ServiceMethodsLibrary_Intf.pas" />
+    <DCCReference Include="ServiceMethodsLibrary_Invk.pas" />
+    <DCCReference Include="ServiceMethods_ServerMain.pas">
+      <Form>ServiceMethods_ServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="ServiceMethods_Service_Impl.pas">
+      <Form>ServiceMethods_Service</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.res
new file mode 100644
index 0000000..2435bfa
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ServerMain.dfm
new file mode 100644
index 0000000..607988f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ServerMain.dfm	
@@ -0,0 +1,464 @@
+object ServiceMethods_ServerMainForm: TServiceMethods_ServerMainForm
+  Left = 270
+  Top = 153
+  AutoScroll = False
+  Caption = 'ServiceMethods Server'
+  ClientHeight = 435
+  ClientWidth = 596
+  Color = clBtnFace
+  Constraints.MinWidth = 604
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Memo: TMemo
+    Left = 0
+    Top = 250
+    Width = 596
+    Height = 129
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ScrollBars = ssVertical
+    TabOrder = 6
+  end
+  object GroupBox1: TGroupBox
+    Left = 202
+    Top = 2
+    Width = 390
+    Height = 220
+    Caption = 'Log events:'
+    TabOrder = 1
+    object cbAfterReleaseConnection: TCheckBox
+      Left = 198
+      Top = 149
+      Width = 187
+      Height = 17
+      Caption = 'AfterReleaseConnection'
+      Checked = True
+      State = cbChecked
+      TabOrder = 20
+    end
+    object cbAfterProcessDeltas: TCheckBox
+      Left = 198
+      Top = 66
+      Width = 187
+      Height = 17
+      Caption = 'AfterProcessDeltas'
+      TabOrder = 15
+    end
+    object cbAfterGetDatasetSchema: TCheckBox
+      Left = 198
+      Top = 15
+      Width = 187
+      Height = 17
+      Caption = 'AfterGetDatasetSchema'
+      Checked = True
+      State = cbChecked
+      TabOrder = 12
+    end
+    object cbAfterGetDatasetData: TCheckBox
+      Left = 7
+      Top = 200
+      Width = 187
+      Height = 17
+      Caption = 'AfterGetDatasetData'
+      TabOrder = 11
+    end
+    object cbAfterExecuteCommand: TCheckBox
+      Left = 198
+      Top = 100
+      Width = 187
+      Height = 17
+      Caption = 'AfterExecuteCommand'
+      TabOrder = 17
+    end
+    object cbAfterAcquireConnection: TCheckBox
+      Left = 7
+      Top = 66
+      Width = 187
+      Height = 17
+      Caption = 'AfterAcquireConnection'
+      Checked = True
+      State = cbChecked
+      TabOrder = 3
+    end
+    object cbBeforeReleaseConnection: TCheckBox
+      Left = 198
+      Top = 132
+      Width = 187
+      Height = 17
+      Caption = 'BeforeReleaseConnection'
+      Checked = True
+      State = cbChecked
+      TabOrder = 19
+    end
+    object cbBeforeProcessDeltas: TCheckBox
+      Left = 198
+      Top = 32
+      Width = 187
+      Height = 17
+      Caption = 'BeforeProcessDeltas'
+      TabOrder = 13
+    end
+    object cbBeforeGetDatasetSchema: TCheckBox
+      Left = 7
+      Top = 166
+      Width = 187
+      Height = 17
+      Caption = 'BeforeGetDatasetSchema'
+      Checked = True
+      State = cbChecked
+      TabOrder = 9
+    end
+    object cbBeforeGetDatasetData: TCheckBox
+      Left = 7
+      Top = 183
+      Width = 187
+      Height = 17
+      Caption = 'BeforeGetDatasetData'
+      TabOrder = 10
+    end
+    object cbBeforeExecuteCommand: TCheckBox
+      Left = 198
+      Top = 83
+      Width = 187
+      Height = 17
+      Caption = 'BeforeExecuteCommand'
+      TabOrder = 16
+    end
+    object cbBeforeAcquireConnection: TCheckBox
+      Left = 7
+      Top = 32
+      Width = 187
+      Height = 17
+      Caption = 'BeforeAcquireConnection'
+      Checked = True
+      State = cbChecked
+      TabOrder = 1
+    end
+    object cbValidateCommandExecution: TCheckBox
+      Left = 7
+      Top = 100
+      Width = 187
+      Height = 17
+      Caption = 'ValidateCommandExecution'
+      TabOrder = 5
+    end
+    object cbUpdateDataRollBackTransaction: TCheckBox
+      Left = 7
+      Top = 132
+      Width = 187
+      Height = 17
+      Caption = 'UpdateDataRollBackTransaction'
+      TabOrder = 7
+    end
+    object cbUpdateDataCommitTransaction: TCheckBox
+      Left = 198
+      Top = 117
+      Width = 187
+      Height = 17
+      Caption = 'UpdateDataCommitTransaction'
+      Checked = True
+      State = cbChecked
+      TabOrder = 18
+    end
+    object cbUpdateDataBeginTransaction: TCheckBox
+      Left = 7
+      Top = 149
+      Width = 187
+      Height = 17
+      Caption = 'UpdateDataBeginTransaction'
+      Checked = True
+      State = cbChecked
+      TabOrder = 8
+    end
+    object cbProcessDeltasError: TCheckBox
+      Left = 198
+      Top = 49
+      Width = 187
+      Height = 17
+      Caption = 'ProcessDeltasError'
+      TabOrder = 14
+    end
+    object cbGetSchemaAsXMLEvent: TCheckBox
+      Left = 7
+      Top = 15
+      Width = 187
+      Height = 17
+      Caption = 'GetSchemaAsXMLEvent'
+      TabOrder = 0
+    end
+    object cbValidateDatasetAccess: TCheckBox
+      Left = 7
+      Top = 83
+      Width = 187
+      Height = 17
+      Caption = 'ValidateDatasetAccess'
+      TabOrder = 4
+    end
+    object cbValidateDirectSQLAccess: TCheckBox
+      Left = 7
+      Top = 117
+      Width = 187
+      Height = 17
+      Caption = 'ValidateDirectSQLAccess'
+      TabOrder = 6
+    end
+    object cbAcquireConnectionFailure: TCheckBox
+      Left = 7
+      Top = 49
+      Width = 187
+      Height = 17
+      Caption = 'AcquireConnectionFailure'
+      TabOrder = 2
+    end
+    object cbBusinessProcessorAutoCreated: TCheckBox
+      Left = 198
+      Top = 166
+      Width = 187
+      Height = 17
+      Caption = 'BusinessProcessorAutoCreated'
+      TabOrder = 21
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 2
+    Top = 2
+    Width = 197
+    Height = 220
+    Caption = 'Server options:'
+    TabOrder = 0
+    DesignSize = (
+      197
+      220)
+    object cbProcessDeltasErrorRaise: TCheckBox
+      Left = 5
+      Top = 134
+      Width = 190
+      Height = 17
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'Raise ProcessDeltasError'
+      TabOrder = 7
+    end
+    object cbProcessDeltasWithoutUpdateRules: TCheckBox
+      Left = 5
+      Top = 117
+      Width = 190
+      Height = 17
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'ProcessDeltasWithoutUpdateRules'
+      TabOrder = 6
+    end
+    object cbAllowExecuteCommands: TCheckBox
+      Left = 5
+      Top = 83
+      Width = 190
+      Height = 17
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AllowExecuteCommands'
+      TabOrder = 4
+    end
+    object cbAllowWhereSQL: TCheckBox
+      Left = 5
+      Top = 66
+      Width = 190
+      Height = 17
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AllowWhereSQL'
+      TabOrder = 3
+    end
+    object cbAllowExecuteSQL: TCheckBox
+      Left = 5
+      Top = 100
+      Width = 190
+      Height = 17
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AllowExecuteSQL'
+      TabOrder = 5
+    end
+    object cbAllowSchemaAccess: TCheckBox
+      Left = 5
+      Top = 15
+      Width = 190
+      Height = 17
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AllowSchemaAccess'
+      Checked = True
+      State = cbChecked
+      TabOrder = 0
+    end
+    object cbAllowDataAccess: TCheckBox
+      Left = 5
+      Top = 49
+      Width = 190
+      Height = 17
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AllowDataAccess'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+    end
+    object cbAcquireConnection: TCheckBox
+      Left = 5
+      Top = 32
+      Width = 190
+      Height = 17
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AcquireConnection'
+      Checked = True
+      State = cbChecked
+      TabOrder = 1
+    end
+    object cbAllowDynamicSelect: TCheckBox
+      Left = 5
+      Top = 151
+      Width = 190
+      Height = 14
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AllowDynamicSelect'
+      Checked = True
+      State = cbChecked
+      TabOrder = 8
+    end
+    object cbAllowDynamicWhere: TCheckBox
+      Left = 5
+      Top = 168
+      Width = 190
+      Height = 14
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AllowDynamicWhere'
+      Checked = True
+      State = cbChecked
+      TabOrder = 9
+    end
+    object cbAllowUpdates: TCheckBox
+      Left = 5
+      Top = 185
+      Width = 190
+      Height = 14
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AllowUpdates'
+      Checked = True
+      State = cbChecked
+      TabOrder = 10
+    end
+    object cbAutoCreateBusinessProcessors: TCheckBox
+      Left = 5
+      Top = 202
+      Width = 190
+      Height = 14
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'AutoCreateBusinessProcessors'
+      Checked = True
+      State = cbChecked
+      TabOrder = 11
+    end
+  end
+  object CheckAllOptionsButton: TButton
+    Left = 21
+    Top = 225
+    Width = 75
+    Height = 22
+    Caption = 'Check all'
+    TabOrder = 2
+    OnClick = CheckAllOptionsButtonClick
+  end
+  object CheckNoneOptionsButton: TButton
+    Left = 101
+    Top = 225
+    Width = 75
+    Height = 22
+    Caption = 'Check none'
+    TabOrder = 3
+    OnClick = CheckNoneOptionsButtonClick
+  end
+  object CheckAllEventsButton: TButton
+    Left = 323
+    Top = 225
+    Width = 74
+    Height = 22
+    Caption = 'Check all'
+    TabOrder = 4
+    OnClick = CheckAllEventsButtonClick
+  end
+  object CheckNoneEventsButton: TButton
+    Left = 402
+    Top = 225
+    Width = 76
+    Height = 22
+    Caption = 'Check none'
+    TabOrder = 5
+    OnClick = CheckNoneEventsButtonClick
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 379
+    Width = 596
+    Height = 56
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 7
+    DesignSize = (
+      596
+      56)
+    object DAPoweredByDataAbstractButton2: TDAPoweredByDataAbstractButton
+      Left = 212
+      Top = 6
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+    end
+    object ClearLogButton: TButton
+      Left = 515
+      Top = 3
+      Width = 75
+      Height = 22
+      Anchors = [akTop, akRight]
+      Caption = 'Clear log'
+      TabOrder = 0
+      OnClick = ClearLogButtonClick
+    end
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'Northwind'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 278
+    Top = 395
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 305
+    Top = 395
+  end
+  object ADODriver: TDAADODriver
+    Left = 389
+    Top = 395
+  end
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 333
+    Top = 395
+  end
+  object Message: TROBinMessage
+    Left = 361
+    Top = 395
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ServerMain.pas
new file mode 100644
index 0000000..748b637
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_ServerMain.pas	
@@ -0,0 +1,186 @@
+unit ServiceMethods_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton,
+  StdCtrls, SyncObjs, uDAEngine, uDAADODriver, uDADriverManager, uDAClasses,
+  uROClient, uROBinMessage, uROServer, uROIndyTCPServer, uROIndyHTTPServer,
+  ExtCtrls;
+
+type
+  TServiceMethods_ServerMainForm = class(TForm)
+    Memo: TMemo;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    Server: TROIndyHTTPServer;
+     Message: TROBinMessage;
+    GroupBox1: TGroupBox;
+    cbAfterReleaseConnection: TCheckBox;
+    cbAfterProcessDeltas: TCheckBox;
+    cbAfterGetDatasetSchema: TCheckBox;
+    cbAfterGetDatasetData: TCheckBox;
+    cbAfterExecuteCommand: TCheckBox;
+    cbAfterAcquireConnection: TCheckBox;
+    cbBeforeReleaseConnection: TCheckBox;
+    cbBeforeProcessDeltas: TCheckBox;
+    cbBeforeGetDatasetSchema: TCheckBox;
+    cbBeforeGetDatasetData: TCheckBox;
+    cbBeforeExecuteCommand: TCheckBox;
+    cbBeforeAcquireConnection: TCheckBox;
+    cbValidateCommandExecution: TCheckBox;
+    cbUpdateDataRollBackTransaction: TCheckBox;
+    cbUpdateDataCommitTransaction: TCheckBox;
+    cbUpdateDataBeginTransaction: TCheckBox;
+    cbProcessDeltasError: TCheckBox;
+    cbGetSchemaAsXMLEvent: TCheckBox;
+    cbValidateDatasetAccess: TCheckBox;
+    cbValidateDirectSQLAccess: TCheckBox;
+    cbAcquireConnectionFailure: TCheckBox;
+    GroupBox2: TGroupBox;
+    cbProcessDeltasErrorRaise: TCheckBox;
+    cbProcessDeltasWithoutUpdateRules: TCheckBox;
+    cbAllowExecuteCommands: TCheckBox;
+    cbAllowWhereSQL: TCheckBox;
+    cbAllowExecuteSQL: TCheckBox;
+    cbAllowSchemaAccess: TCheckBox;
+    cbAllowDataAccess: TCheckBox;
+    cbAcquireConnection: TCheckBox;
+    CheckAllOptionsButton: TButton;
+    CheckNoneOptionsButton: TButton;
+    CheckAllEventsButton: TButton;
+    CheckNoneEventsButton: TButton;
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton2: TDAPoweredByDataAbstractButton;
+    ClearLogButton: TButton;
+    cbAllowDynamicSelect: TCheckBox;
+    cbAllowDynamicWhere: TCheckBox;
+    cbAllowUpdates: TCheckBox;
+    cbAutoCreateBusinessProcessors: TCheckBox;
+    cbBusinessProcessorAutoCreated: TCheckBox;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure ClearLogButtonClick(Sender: TObject);
+    procedure CheckAllOptionsButtonClick(Sender: TObject);
+    procedure CheckNoneOptionsButtonClick(Sender: TObject);
+    procedure CheckAllEventsButtonClick(Sender: TObject);
+    procedure CheckNoneEventsButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+    FcriticalSection: TCriticalSection;
+    procedure ChangeOptions(Mode: Boolean);
+    procedure ChangeEvent(Mode: Boolean);
+  public
+    { Public declarations }
+    procedure Log(Str: string);
+  end;
+
+var
+  ServiceMethods_ServerMainForm: TServiceMethods_ServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+{ TServiceMethods_ServerMainForm }
+
+procedure TServiceMethods_ServerMainForm.Log(Str: string);
+begin
+  FcriticalSection.Enter;
+  try
+    Memo.Lines.Add(Str);
+  finally
+    FcriticalSection.Leave;
+  end;
+end;
+
+procedure TServiceMethods_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  FcriticalSection := TCriticalSection.Create;
+
+  Server.Active := True;
+end;
+
+procedure TServiceMethods_ServerMainForm.FormDestroy(Sender: TObject);
+begin
+  FcriticalSection.Free;
+end;
+
+procedure TServiceMethods_ServerMainForm.ClearLogButtonClick(
+  Sender: TObject);
+begin
+  FcriticalSection.Enter;
+  try
+    Memo.Lines.Clear;
+  finally
+    FcriticalSection.Leave;
+  end;
+end;
+
+procedure TServiceMethods_ServerMainForm.CheckAllOptionsButtonClick(Sender: TObject);
+begin
+  ChangeOptions(True);
+end;
+
+procedure TServiceMethods_ServerMainForm.ChangeOptions(Mode: Boolean);
+begin
+  cbAllowSchemaAccess.Checked := Mode;
+  cbAcquireConnection.Checked := Mode;
+  cbAllowDataAccess.Checked := Mode;
+  cbAllowWhereSQL.Checked := Mode;
+  cbAllowExecuteCommands.Checked := Mode;
+  cbAllowExecuteSQL.Checked := Mode;
+  cbProcessDeltasWithoutUpdateRules.Checked := Mode;
+  cbProcessDeltasErrorRaise.Checked := Mode;
+  cbAllowDynamicSelect.Checked := Mode;
+  cbAllowDynamicWhere.Checked := Mode;
+  cbAllowUpdates.Checked := Mode;
+  cbAutoCreateBusinessProcessors.Checked := Mode;
+end;
+
+procedure TServiceMethods_ServerMainForm.CheckNoneOptionsButtonClick(
+  Sender: TObject);
+begin
+  ChangeOptions(False);
+end;
+
+procedure TServiceMethods_ServerMainForm.ChangeEvent(Mode: Boolean);
+begin
+  cbAfterReleaseConnection.Checked := Mode;
+  cbAfterProcessDeltas.Checked := Mode;
+  cbAfterGetDatasetSchema.Checked := Mode;
+  cbAfterGetDatasetData.Checked := Mode;
+  cbAfterExecuteCommand.Checked := Mode;
+  cbAfterAcquireConnection.Checked := Mode;
+  cbBeforeReleaseConnection.Checked := Mode;
+  cbBeforeProcessDeltas.Checked := Mode;
+  cbBeforeGetDatasetSchema.Checked := Mode;
+  cbBeforeGetDatasetData.Checked := Mode;
+  cbBeforeExecuteCommand.Checked := Mode;
+  cbBeforeAcquireConnection.Checked := Mode;
+  cbValidateCommandExecution.Checked := Mode;
+  cbUpdateDataRollBackTransaction.Checked := Mode;
+  cbUpdateDataCommitTransaction.Checked := Mode;
+  cbUpdateDataBeginTransaction.Checked := Mode;
+  cbProcessDeltasError.Checked := Mode;
+  cbGetSchemaAsXMLEvent.Checked := Mode;
+  cbValidateDatasetAccess.Checked := Mode;
+  cbValidateDirectSQLAccess.Checked := Mode;
+  cbAcquireConnectionFailure.Checked := Mode;
+  cbBusinessProcessorAutoCreated.Checked := Mode;
+end;
+
+procedure TServiceMethods_ServerMainForm.CheckAllEventsButtonClick(Sender: TObject);
+begin
+  ChangeEvent(True);
+end;
+
+procedure TServiceMethods_ServerMainForm.CheckNoneEventsButtonClick(Sender: TObject);
+begin
+  ChangeEvent(False);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Service_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Service_Impl.dfm
new file mode 100644
index 0000000..86b9676
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Service_Impl.dfm	
@@ -0,0 +1,356 @@
+object ServiceMethods_Service: TServiceMethods_Service
+  OldCreateOrder = True
+  OnCreate = DataAbstractServiceCreate
+  OnDestroy = DataAbstractServiceDestroy
+  OnActivate = DataAbstractServiceActivate
+  OnDeactivate = DataAbstractServiceDeactivate
+  AcquireConnection = False
+  ServiceSchema = DASchema
+  ServiceDataStreamer = BinDataStreamer
+  ExportedDataTables = <>
+  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+  AfterAcquireConnection = DataAbstractServiceAfterAcquireConnection
+  BeforeReleaseConnection = DataAbstractServiceBeforeReleaseConnection
+  AfterReleaseConnection = DataAbstractServiceAfterReleaseConnection
+  OnAcquireConnectionFailure = DataAbstractServiceAcquireConnectionFailure
+  BeforeProcessDeltas = DataAbstractServiceBeforeProcessDeltas
+  AfterProcessDeltas = DataAbstractServiceAfterProcessDeltas
+  OnProcessDeltasError = DataAbstractServiceProcessDeltasError
+  BeforeGetDatasetSchema = DataAbstractServiceBeforeGetDatasetSchema
+  BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
+  AfterGetDatasetSchema = DataAbstractServiceAfterGetDatasetSchema
+  AfterGetDatasetData = DataAbstractServiceAfterGetDatasetData
+  OnBusinessProcessorAutoCreated = DataAbstractServiceBusinessProcessorAutoCreated
+  BeforeExecuteCommand = DataAbstractServiceBeforeExecuteCommand
+  AfterExecuteCommand = DataAbstractServiceAfterExecuteCommand
+  OnGetSchemaAsXMLEvent = DataAbstractServiceGetSchemaAsXMLEvent
+  ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
+  ValidateCommandExecution = DataAbstractServiceValidateCommandExecution
+  ValidateDirectSQLAccess = DataAbstractServiceValidateDirectSQLAccess
+  OnUpdateDataBeginTransaction = DataAbstractServiceUpdateDataBeginTransaction
+  OnUpdateDataCommitTransaction = DataAbstractServiceUpdateDataCommitTransaction
+  OnUpdateDataRollBackTransaction = DataAbstractServiceUpdateDataRollBackTransaction
+  Left = 576
+  Top = 180
+  Height = 300
+  Width = 300
+  object BinDataStreamer: TDABinDataStreamer
+    Left = 29
+    Top = 10
+  end
+  object DASchema: TDASchema
+    ConnectionManager = ServiceMethods_ServerMainForm.ConnectionManager
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            LogChanges = False
+            InPrimaryKey = True
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            Size = 40
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            Size = 24
+          end>
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT OrderID, CustomerID, EmployeeID, OrderDate, RequiredDate,' +
+              ' ShippedDate, ShipVia, Freight, ShipName, ShipAddress, ShipCity,' +
+              ' ShipRegion, ShipPostalCode, ShipCountry FROM Orders Where Custo' +
+              'merID = :CustomerID'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datInteger
+            LogChanges = False
+            InPrimaryKey = True
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+          end
+          item
+            Name = 'ShipName'
+            DataType = datWideString
+            Size = 40
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datWideString
+            Size = 60
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datWideString
+            Size = 15
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datWideString
+            Size = 10
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datWideString
+            Size = 15
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'CUSTOMERS_CNT'
+            DataType = datInteger
+            ParamType = daptOutput
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            SQL = 'SELECT :CUSTOMERS_CNT = count(*) from customers'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'CustomersCount'
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            ParamType = daptInput
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'Northwind'
+            TargetTable = 'Orders'
+            SQL = 
+              'update orders set CustomerID = :CustomerID where CustomerID = :C' +
+              'ustomerID'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'UpdateOrders'
+      end>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 29
+    Top = 55
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Service_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Service_Impl.pas
new file mode 100644
index 0000000..a27d40d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Service Methods/ServiceMethods_Service_Impl.pas	
@@ -0,0 +1,490 @@
+unit ServiceMethods_Service_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} ServiceMethodsLibrary_Intf, uDADataStreamer, uDABinAdapter,
+  uDAInterfaces, uDABusinessProcessor, uDAClasses, uRORemoteDataModule;
+
+type
+  { TServiceMethods_Service }
+  TServiceMethods_Service = class(TDataAbstractService, IServiceMethods_Service)
+    BinDataStreamer: TDABinDataStreamer;
+    DASchema: TDASchema;
+    procedure DataAbstractServiceAfterAcquireConnection(aSender: TObject;
+      const aConnectionName: string;
+      const aAcquiredConnection: IDAConnection);
+    procedure DataAbstractServiceAfterExecuteCommand(aSender: TObject;
+      const aCommand: IDASQLCommand; aRowsAffacted: Integer);
+    procedure DataAbstractServiceAfterGetDatasetData(aSender: TObject;
+      const aDataset: IDADataset; const aIncludeSchema: Boolean;
+      const aMaxRecords: Integer);
+    procedure DataAbstractServiceAfterGetDatasetSchema(aSender: TObject;
+      const aDataset: IDADataset);
+    procedure DataAbstractServiceAfterProcessDeltas(aSender: TObject;
+      aDeltaStructs: TDADeltaStructList);
+    procedure DataAbstractServiceAfterReleaseConnection(aSender: TObject;
+      const aConnectionName: string);
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+      var aConnectionName: string);
+    procedure DataAbstractServiceBeforeExecuteCommand(aSender: TObject;
+      const aCommand: IDASQLCommand);
+    procedure DataAbstractServiceBeforeGetDatasetData(aSender: TObject;
+      const aDataset: IDADataset; const aIncludeSchema: Boolean;
+      const aMaxRecords: Integer);
+    procedure DataAbstractServiceBeforeGetDatasetSchema(aSender: TObject;
+      const aDataset: IDADataset);
+    procedure DataAbstractServiceBeforeProcessDeltas(aSender: TObject;
+      aDeltaStructs: TDADeltaStructList);
+    procedure DataAbstractServiceBeforeReleaseConnection(aSender: TObject;
+      const aConnectionName: string;
+      const aAcquiredConnection: IDAConnection);
+    procedure DataAbstractServiceGetSchemaAsXMLEvent(aSender: TObject;
+      var aSchemaXML: UTF8string);
+    procedure DataAbstractServiceProcessDeltasError(aSender: TObject;
+      aDeltaStructs: TDADeltaStructList; aError: Exception;
+      var aDoRaise: Boolean);
+    procedure DataAbstractServiceUpdateDataBeginTransaction(
+      Sender: TObject; var aUseDefaultTransactionLogic: Boolean);
+    procedure DataAbstractServiceUpdateDataCommitTransaction(
+      Sender: TObject; var aUseDefaultTransactionLogic: Boolean);
+    procedure DataAbstractServiceUpdateDataRollBackTransaction(
+      Sender: TObject; var aUseDefaultTransactionLogic: Boolean);
+    procedure DataAbstractServiceValidateCommandExecution(Sender: TObject;
+      const aConnection: IDAConnection; const aDatasetName: string;
+      const aParamNames: array of string;
+      const aParamValues: array of Variant; aSchema: TDASchema;
+      var Allowed: Boolean);
+    procedure DataAbstractServiceValidateDatasetAccess(Sender: TObject;
+      const aConnection: IDAConnection; const aDatasetName: string;
+      const aParamNames: array of string;
+      const aParamValues: array of Variant; aSchema: TDASchema;
+      var Allowed: Boolean);
+    procedure DataAbstractServiceValidateDirectSQLAccess(Sender: TObject;
+      const aConnection: IDAConnection; const aSQLText: string;
+      const aParamNames: array of string;
+      const aParamValues: array of Variant; var Allowed: Boolean);
+    procedure DataAbstractServiceAcquireConnectionFailure(aSender: TObject;
+      const aConnectionName: string; aError: Exception);
+    procedure DataAbstractServiceCreate(Sender: TObject);
+    procedure DataAbstractServiceDestroy(Sender: TObject);
+    procedure DataAbstractServiceActivate(const aClientID: TGUID;
+      aSession: TROSession; const aMessage: IROMessage);
+    procedure DataAbstractServiceDeactivate(const aClientID: TGUID;
+      aSession: TROSession);
+    procedure DataAbstractServiceBusinessProcessorAutoCreated(
+      aSender: TRORemoteDataModule;
+      BusinessProcessor: TDABusinessProcessor);
+  private
+    procedure Log(Astr: string);
+  protected
+    { IServiceMethods_Service methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} ServiceMethodsLibrary_Invk,
+  ServiceMethods_ServerMain, Variants;
+
+procedure Create_ServiceMethods_Service(out anInstance: IUnknown);
+begin
+  anInstance := TServiceMethods_Service.Create(nil);
+end;
+
+{ TServiceMethods_Service }
+
+procedure TServiceMethods_Service.Log(Astr: string);
+begin
+  ServiceMethods_ServerMainForm.Log(Astr);
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceAfterAcquireConnection(
+  aSender: TObject; const aConnectionName: string;
+  const aAcquiredConnection: IDAConnection);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbAfterAcquireConnection.Checked then Exit;
+  Log('***AfterAcquireConnection***');
+  Log('ConnectionName:'#9 + aConnectionName);
+  Log('aAcquiredConnection.Name:'#9 + aAcquiredConnection.Name);
+  Log('aAcquiredConnection.ConnectionString:'#9 + aAcquiredConnection.ConnectionString);
+  Log('****************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceAfterExecuteCommand(
+  aSender: TObject; const aCommand: IDASQLCommand; aRowsAffacted: Integer);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbAfterExecuteCommand.Checked then Exit;
+  Log('***AfterExecuteCommand***');
+  Log('aCommand.Name:'#9 + aCommand.Name);
+  Log('aCommand.SQL:'#9 + aCommand.SQL);
+  Log('aRowsAffacted:'#9 + IntToStr(aRowsAffacted));
+  Log('*************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceAfterGetDatasetData(
+  aSender: TObject; const aDataset: IDADataset;
+  const aIncludeSchema: Boolean; const aMaxRecords: Integer);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbAfterGetDatasetData.Checked then Exit;
+  Log('***AfterGetDatasetData***');
+  Log('aDataset.Name:'#9 + aDataset.Name);
+  Log('aDataset.SQL:'#9 + aDataset.SQL);
+  Log('aIncludeSchema:'#9 + BoolStr[aIncludeSchema]);
+  Log('aMaxRecords:'#9 + IntToStr(aMaxRecords));
+  Log('*************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceAfterGetDatasetSchema(
+  aSender: TObject; const aDataset: IDADataset);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbAfterGetDatasetSchema.Checked then Exit;
+  Log('***AfterGetDatasetSchema***');
+  Log('aDataset.Name:'#9 + aDataset.Name);
+  Log('aDataset.SQL:'#9 + aDataset.SQL);
+  Log('***************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceAfterProcessDeltas(
+  aSender: TObject; aDeltaStructs: TDADeltaStructList);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbAfterProcessDeltas.Checked then Exit;
+  Log('***AfterProcessDeltas***');
+  Log('aDeltaStructs.Count:'#9 + IntToStr(aDeltaStructs.Count));
+  Log('************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceAfterReleaseConnection(
+  aSender: TObject; const aConnectionName: string);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbAfterReleaseConnection.Checked then Exit;
+  Log('***AfterReleaseConnection***');
+  Log('aConnectionName:'#9 + aConnectionName);
+  Log('****************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceBeforeAcquireConnection(
+  aSender: TObject; var aConnectionName: string);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbBeforeAcquireConnection.Checked then Exit;
+
+  Log('***BeforeAcquireConnection***');
+  Log('aConnectionName:'#9 + aConnectionName);
+  Log('************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceBeforeExecuteCommand(
+  aSender: TObject; const aCommand: IDASQLCommand);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbBeforeExecuteCommand.Checked then Exit;
+  Log('***BeforeExecuteCommand***');
+  Log('aCommand.Name:'#9 + aCommand.Name);
+  Log('aCommand.SQL:'#9 + aCommand.SQL);
+  Log('************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceBeforeGetDatasetData(
+  aSender: TObject; const aDataset: IDADataset;
+  const aIncludeSchema: Boolean; const aMaxRecords: Integer);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbBeforeGetDatasetData.Checked then Exit;
+
+  Log('***BeforeGetDatasetData***');
+  Log('aDataset.Name:'#9 + aDataset.Name);
+  Log('aDataset.SQL:'#9 + aDataset.SQL);
+  Log('aIncludeSchema:'#9 + BoolStr[aIncludeSchema]);
+  Log('aMaxRecords:'#9 + IntToStr(aMaxRecords));
+  Log('*************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceBeforeGetDatasetSchema(
+  aSender: TObject; const aDataset: IDADataset);
+begin
+  inherited;
+    if not ServiceMethods_ServerMainForm.cbBeforeGetDatasetSchema.Checked then Exit;
+
+  Log('***BeforeGetDatasetSchema***');
+  Log('aDataset.Name:'#9 + aDataset.Name);
+  Log('aDataset.SQL:'#9 + aDataset.SQL);
+  Log('****************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceBeforeProcessDeltas(
+  aSender: TObject; aDeltaStructs: TDADeltaStructList);
+begin
+  inherited;
+    if not ServiceMethods_ServerMainForm.cbBeforeProcessDeltas.Checked then Exit;
+  Log('***BeforeProcessDeltas***');
+  Log('aDeltaStructs.Count:'#9 + IntToStr(aDeltaStructs.Count));
+  Log('*************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceBeforeReleaseConnection(
+  aSender: TObject; const aConnectionName: string;
+  const aAcquiredConnection: IDAConnection);
+begin
+  inherited;
+    if not ServiceMethods_ServerMainForm.cbBeforeReleaseConnection.Checked then Exit;
+
+  Log('***BeforeReleaseConnection***');
+  Log('aConnectionName:'#9 + aConnectionName);
+  Log('aAcquiredConnection.Name:'#9 + aAcquiredConnection.Name);
+  Log('aAcquiredConnection.ConnectionString:'#9 + aAcquiredConnection.ConnectionString);
+  Log('*****************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceGetSchemaAsXMLEvent(
+  aSender: TObject; var aSchemaXML: UTF8string);
+begin
+  inherited;
+    if not ServiceMethods_ServerMainForm.cbGetSchemaAsXMLEvent.Checked then Exit;
+
+  Log('***GetSchemaAsXMLEvent***');
+  Log('Length(aSchemaXML):'#9 + intTostr(Length(aSchemaXML)));
+  Log('*************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceProcessDeltasError(
+  aSender: TObject; aDeltaStructs: TDADeltaStructList; aError: Exception;
+  var aDoRaise: Boolean);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbProcessDeltasError.Checked then Exit;
+
+  aDoRaise := ServiceMethods_ServerMainForm.cbProcessDeltasErrorRaise.Checked;
+  Log('***ProcessDeltasError***');
+  Log('aDeltaStructs.Count:'#9 + IntToStr(aDeltaStructs.Count));
+  Log('aError.ClassName:'#9 + aError.ClassName);
+  Log('aError.Message:'#9 + aError.Message);
+  Log('aDoRaise:'#9 + BoolStr[aDoRaise]);
+  Log('*************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceUpdateDataBeginTransaction(
+  Sender: TObject; var aUseDefaultTransactionLogic: Boolean);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbUpdateDataBeginTransaction.Checked then Exit;
+
+  Log('***UpdateDataBeginTransaction***');
+  Log('aUseDefaultTransactionLogic:'#9 + BoolStr[aUseDefaultTransactionLogic]);
+  Log('********************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceUpdateDataCommitTransaction(
+  Sender: TObject; var aUseDefaultTransactionLogic: Boolean);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbUpdateDataCommitTransaction.Checked then Exit;
+
+  Log('***UpdateDataCommitTransaction***');
+  Log('aUseDefaultTransactionLogic:'#9 + BoolStr[aUseDefaultTransactionLogic]);
+  Log('*********************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceUpdateDataRollBackTransaction(
+  Sender: TObject; var aUseDefaultTransactionLogic: Boolean);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbUpdateDataRollBackTransaction.Checked then Exit;
+  Log('***UpdateDataRollBackTransaction***');
+  Log('aUseDefaultTransactionLogic:'#9 + BoolStr[aUseDefaultTransactionLogic]);
+  Log('***********************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceValidateCommandExecution(
+  Sender: TObject; const aConnection: IDAConnection;
+  const aDatasetName: string; const aParamNames: array of string;
+  const aParamValues: array of Variant; aSchema: TDASchema;
+  var Allowed: Boolean);
+var
+  i: integer;
+  SQLCommand: TDASQLCommand;
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbValidateCommandExecution.Checked then Exit;
+
+  Log('***ValidateCommandExecution***');
+  Log('aConnection.Name:'#9 + aConnection.Name);
+  Log('aDatasetName:'#9 + aDatasetName);
+  SQLCommand := aSchema.Commands.SQLCommandByName(aDatasetName);
+  if (SQLCommand <> nil) and (SQLCommand.Statements.Count > 0) then
+    Log('Command SQL:'#9 + SQLCommand.Statements[0].SQL);
+  Log('ParamCount:'#9 + intToStr(1 + ord(High(aParamNames)) - ord(Low(aParamNames))));
+  for i := Low(aParamNames) to High(aParamNames) do
+    Log(#9 + aParamNames[i] + ' = ' + VarToStr(aParamValues[i]));
+  Log('aSchema.Name:'#9 + aSchema.Name);
+  Log('Allowed:'#9 + BoolStr[Allowed]);
+  Log('******************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceValidateDatasetAccess(
+  Sender: TObject; const aConnection: IDAConnection;
+  const aDatasetName: string; const aParamNames: array of string;
+  const aParamValues: array of Variant; aSchema: TDASchema;
+  var Allowed: Boolean);
+var
+  i: integer;
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbValidateDatasetAccess.Checked then Exit;
+
+  Log('***ValidateDatasetAccess***');
+  Log('aConnection.Name:'#9 + aConnection.Name);
+  Log('aDatasetName:'#9 + aDatasetName);
+  Log('ParamCount:'#9 + intToStr(1 + ord(High(aParamNames)) - ord(Low(aParamNames))));
+  for i := Low(aParamNames) to High(aParamNames) do
+    Log(#9 + aParamNames[i] + ' = ' + VarToStr(aParamValues[i]));
+  Log('aSchema.Name:'#9 + aSchema.Name);
+  Log('Allowed:'#9 + BoolStr[Allowed]);
+  Log('***************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceValidateDirectSQLAccess(
+  Sender: TObject; const aConnection: IDAConnection;
+  const aSQLText: string; const aParamNames: array of string;
+  const aParamValues: array of Variant; var Allowed: Boolean);
+var
+  i: integer;
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbValidateDirectSQLAccess.Checked then Exit;
+
+  Log('***ValidateDirectSQLAccess***');
+  Log('aConnection.Name:'#9 + aConnection.Name);
+  Log('aSQLText:'#9 + aSQLText);
+  Log('ParamCount:'#9 + intToStr(1 + ord(High(aParamNames)) - ord(Low(aParamNames))));
+  for i := Low(aParamNames) to High(aParamNames) do
+    Log(#9 + aParamNames[i] + ' = ' + VarToStr(aParamValues[i]));
+  Log('Allowed:'#9 + BoolStr[Allowed]);
+  Log('***************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceAcquireConnectionFailure(
+  aSender: TObject; const aConnectionName: string; aError: Exception);
+begin
+  inherited;
+  if not ServiceMethods_ServerMainForm.cbAcquireConnectionFailure.Checked then Exit;
+
+  Log('***AcquireConnectionFailure***');
+  Log('aConnectionName:'#9 + aConnectionName);
+  Log('aError.ClassName:'#9 + aError.ClassName);
+  Log('aError.Message:'#9 + aError.Message);
+  Log('******************************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceCreate(
+  Sender: TObject);
+begin
+  inherited;
+  AllowSchemaAccess := ServiceMethods_ServerMainForm.cbAllowSchemaAccess.Checked;
+  AcquireConnection := ServiceMethods_ServerMainForm.cbAcquireConnection.Checked;
+  AllowDataAccess := ServiceMethods_ServerMainForm.cbAllowDataAccess.Checked;
+  AllowWhereSQL := ServiceMethods_ServerMainForm.cbAllowWhereSQL.Checked;
+  AllowExecuteCommands := ServiceMethods_ServerMainForm.cbAllowExecuteCommands.Checked;
+  AllowExecuteSQL := ServiceMethods_ServerMainForm.cbAllowExecuteSQL.Checked;
+  ProcessDeltasWithoutUpdateRules := ServiceMethods_ServerMainForm.cbProcessDeltasWithoutUpdateRules.Checked;
+  AllowDynamicSelect := ServiceMethods_ServerMainForm.cbAllowDynamicSelect.Checked;
+  AllowDynamicWhere := ServiceMethods_ServerMainForm.cbAllowDynamicWhere.Checked;
+  AllowUpdates := ServiceMethods_ServerMainForm.cbAllowUpdates.Checked;
+  AutoCreateBusinessProcessors := ServiceMethods_ServerMainForm.cbAutoCreateBusinessProcessors.Checked;
+  Exit;
+
+  Log('***Create***');
+  Log('************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceDestroy(
+  Sender: TObject);
+begin
+  Exit;
+
+  Log('***Destroy***');
+  Log('*************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceActivate(
+  const aClientID: TGUID; aSession: TROSession;
+  const aMessage: IROMessage);
+begin
+  Exit;
+
+  Log('***Activate***');
+  Log('aClientID:'#9 + GUIDToString(aClientID));
+  //  Log('aSession:'#9 + aSession.ClassName);
+  //  Log('aError.Message:'#9 + aError.Message);
+  Log('**************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceDeactivate(
+  const aClientID: TGUID; aSession: TROSession);
+begin
+  Exit;
+
+  Log('***Deactivate***');
+  Log('aClientID:'#9 + GUIDToString(aClientID));
+  Log('****************');
+  Log('');
+end;
+
+procedure TServiceMethods_Service.DataAbstractServiceBusinessProcessorAutoCreated(
+  aSender: TRORemoteDataModule; BusinessProcessor: TDABusinessProcessor);
+begin
+  if not ServiceMethods_ServerMainForm.cbBusinessProcessorAutoCreated.Checked then Exit;
+  Log('***BusinessProcessorAutoCreated***');
+  Log('****************');
+  Log('');
+end;
+
+initialization
+  TROClassFactory.Create('ServiceMethods_Service', Create_ServiceMethods_Service, TServiceMethods_Service_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.Sample.html
new file mode 100644
index 0000000..4252b3c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.Sample.html	
@@ -0,0 +1,36 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Stored Procedures Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+This example shows how to use the IDAConnection's <b>GetStoredProcedureNames</b> method to retrieve a list of stored procedures for the connection.
+    <br />
+It also shows how to use IDAConnection's <b>NewCommand</b> to access the <b>IDASQLCommand</b> interface: 
+</p>
+<ul>
+<li><b>RefreshParams</b> receives the parameters of this stored procedure.</li>
+<li><b>Execute</b> the stored procedure.</li>
+</ul>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   See the simple code in <b>StoredProceduresMain.pas</b>.
+	</li>
+</ul>
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.bdsproj
new file mode 100644
index 0000000..326beb1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0B989594-0CC6-411F-93CA-67B383201C0F}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">StoredProcedures.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.dpr
new file mode 100644
index 0000000..13269b1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.dpr	
@@ -0,0 +1,13 @@
+program StoredProcedures;
+
+uses
+  Forms,
+  StoredProceduresMain in 'StoredProceduresMain.pas' {StoredProceduresMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TStoredProceduresMainForm, StoredProceduresMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.dproj
new file mode 100644
index 0000000..1e01df5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{d57caf23-caa8-469d-81c2-3f5757a0f663}</ProjectGuid>
+    <MainSource>StoredProcedures.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>StoredProcedures.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">StoredProcedures.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="StoredProcedures.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="StoredProceduresMain.pas">
+      <Form>StoredProceduresMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProcedures.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProceduresMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProceduresMain.dfm
new file mode 100644
index 0000000..89c4cdb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProceduresMain.dfm	
@@ -0,0 +1,192 @@
+object StoredProceduresMainForm: TStoredProceduresMainForm
+  Left = 43
+  Top = 144
+  AutoScroll = False
+  Caption = 'Stored Procedure Demo'
+  ClientHeight = 340
+  ClientWidth = 573
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 40
+    Top = 16
+    Width = 54
+    Height = 13
+    Caption = 'Connection'
+  end
+  object Label2: TLabel
+    Left = 8
+    Top = 48
+    Width = 86
+    Height = 13
+    Caption = 'Stored Procedure:'
+  end
+  object Label3: TLabel
+    Left = 408
+    Top = 318
+    Width = 28
+    Height = 13
+    Caption = 'Times'
+  end
+  object ExecuteButton: TButton
+    Left = 240
+    Top = 312
+    Width = 75
+    Height = 25
+    Caption = 'Execute'
+    TabOrder = 5
+    OnClick = ExecuteButtonClick
+  end
+  object cbConnName: TComboBox
+    Left = 104
+    Top = 12
+    Width = 225
+    Height = 21
+    Style = csDropDownList
+    ItemHeight = 13
+    TabOrder = 0
+  end
+  object cbSPNames: TComboBox
+    Left = 104
+    Top = 44
+    Width = 225
+    Height = 21
+    Style = csDropDownList
+    ItemHeight = 13
+    TabOrder = 2
+  end
+  object ConnectButton: TButton
+    Left = 336
+    Top = 10
+    Width = 75
+    Height = 25
+    Caption = 'Connect'
+    TabOrder = 1
+    OnClick = ConnectButtonClick
+  end
+  object ListParamsButton: TButton
+    Left = 336
+    Top = 42
+    Width = 75
+    Height = 25
+    Caption = 'List Params'
+    TabOrder = 3
+    OnClick = ListParamsButtonClick
+  end
+  object StringGrid: TStringGrid
+    Left = 8
+    Top = 80
+    Width = 561
+    Height = 217
+    DefaultRowHeight = 16
+    FixedCols = 4
+    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
+    TabOrder = 4
+    ColWidths = (
+      129
+      67
+      65
+      65
+      201)
+  end
+  object SpinEdit: TSpinEdit
+    Left = 328
+    Top = 313
+    Width = 73
+    Height = 22
+    MaxValue = 0
+    MinValue = 0
+    TabOrder = 6
+    Value = 1
+  end
+  object DAConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Description = 'Borland ADOExpress Connection'
+        Default = True
+        Tag = 0
+      end
+      item
+        Name = 'IBX'
+        ConnectionString = 
+          'IBX?Server=;UserID=sysdba;Password=masterkey;Database=C:\Program' +
+          ' Files\Borland\InterBase\examples\database\Employee.gdb'
+        Description = 'Borland IBExpress Connection'
+        Default = False
+        Tag = 0
+      end>
+    DriverManager = DADriverManager
+    PoolingEnabled = True
+    Left = 416
+    Top = 16
+  end
+  object DADriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 384
+    Top = 16
+  end
+  object DASchema: TDASchema
+    ConnectionManager = DAConnectionManager
+    Datasets = <>
+    Commands = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'SDAC'
+            SQL = 'TestOutputParam'
+            StatementType = stStoredProcedure
+            ColumnMappings = <>
+          end
+          item
+            Connection = 'ADO'
+            SQL = 'TestOutputParam'
+            StatementType = stStoredProcedure
+            ColumnMappings = <>
+          end>
+        Name = 'Execute2'
+      end
+      item
+        Params = <
+          item
+            Name = 'InputText'
+            BlobType = dabtUnknown
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            SQL = 
+              'DECLARE @RC int'#10'DECLARE @InputText varchar(30)'#10'DECLARE @InputTex' +
+              'tLength int'#10'DECLARE @SomethingElse varchar(200)'#10#10'SET @InputText ' +
+              '= :InputText'#10#10'EXEC @RC = TestOutputParam @InputText, @InputTextL' +
+              'ength OUTPUT , @SomethingElse OUTPUT'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Execute1'
+      end>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 448
+    Top = 16
+  end
+  object DAADODriver1: TDAADODriver
+    Left = 480
+    Top = 16
+  end
+  object DAIBXDriver1: TDAIBXDriver
+    Left = 480
+    Top = 48
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProceduresMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProceduresMain.pas
new file mode 100644
index 0000000..1690f36
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Stored Procedures/StoredProceduresMain.pas	
@@ -0,0 +1,137 @@
+unit StoredProceduresMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDADriverManager, uDAClasses, StdCtrls, uDAInterfaces,
+  uDAEngine, uDAADODriver, Grids, uDAIBXDriver,
+  Spin;
+
+type
+  TStoredProceduresMainForm = class(TForm)
+    DADriverManager: TDADriverManager;
+    ExecuteButton: TButton;
+    DAADODriver1: TDAADODriver;
+    Label1: TLabel;
+    cbConnName: TComboBox;
+    Label2: TLabel;
+    cbSPNames: TComboBox;
+    ConnectButton: TButton;
+    ListParamsButton: TButton;
+    StringGrid: TStringGrid;
+    DAIBXDriver1: TDAIBXDriver;
+    SpinEdit: TSpinEdit;
+    Label3: TLabel;
+    DAConnectionManager: TDAConnectionManager;
+    DASchema: TDASchema;
+    procedure ExecuteButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure ConnectButtonClick(Sender: TObject);
+    procedure ListParamsButtonClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    fConn : IDAConnection;
+
+    procedure CheckConnection;
+  public
+  end;
+
+var
+  StoredProceduresMainForm: TStoredProceduresMainForm;
+
+implementation
+
+uses uROClasses, TypInfo;
+
+{$R *.dfm}
+
+procedure TStoredProceduresMainForm.CheckConnection;
+begin
+  Check(fConn=NIL, 'Connect to a database first!');
+end;
+
+procedure TStoredProceduresMainForm.ExecuteButtonClick(Sender: TObject);
+var cmd : IDASQLCommand;
+    x, i : integer;
+begin
+  CheckConnection;
+  cmd := fConn.NewCommand(cbSPNames.Text, stStoredProcedure);
+  cmd.RefreshParams;
+
+  for x := 1 to SpinEdit.Value do begin
+    for i := 0 to cmd.Params.Count-1 do
+      if (StringGrid.Cells[4, i+1]<>'')
+        then cmd.ParamByName(StringGrid.Cells[0, i+1]).AsString := StringGrid.Cells[4, i+1];
+
+    cmd.Execute;
+
+    for i := 0 to cmd.Params.Count-1 do
+      StringGrid.Cells[4, i+1] := cmd.ParamByName(StringGrid.Cells[0, i+1]).AsString;
+  end;
+end;
+
+procedure TStoredProceduresMainForm.FormCreate(Sender: TObject);
+var i : integer;
+begin
+  for i := 0 to DAConnectionManager.Connections.Count-1 do
+    cbConnName.Items.Add(DAConnectionManager.Connections[i].Name);
+  cbConnName.ItemIndex := 0;
+end;
+
+procedure TStoredProceduresMainForm.ConnectButtonClick(Sender: TObject);
+var i : integer;
+    names : IROStrings;
+begin
+  fConn := DAConnectionManager.NewConnection(cbConnName.Text);
+  cbSPNames.Items.Clear;
+
+  names := NewROStrings;
+  fConn.GetStoredProcedureNames(names);
+  for i := 0 to (names.Count-1) do
+    cbSPNames.Items.Add(names[i]);
+
+  cbSPNames.ItemIndex := 0;
+  cbSPNames.DroppedDown := TRUE;
+
+  ListParamsButton.Enabled := cbSPNames.Items.Count>0
+end;
+
+procedure TStoredProceduresMainForm.ListParamsButtonClick(Sender: TObject);
+var i : integer;
+    cmd : IDASQLCommand;
+    par : TDAParam;
+begin
+  CheckConnection;
+
+  cmd := fConn.NewCommand(cbSPNames.Text, stStoredProcedure);
+  cmd.RefreshParams;
+
+  StringGrid.RowCount := cmd.Params.Count+1;
+  if (StringGrid.RowCount>1)
+    then StringGrid.FixedRows := 1;
+  StringGrid.FixedCols := 4;
+
+  StringGrid.Cells[0, 0] := 'Name';
+  StringGrid.Cells[1, 0] := 'Type';
+  StringGrid.Cells[2, 0] := 'Size';
+  StringGrid.Cells[3, 0] := 'Direction';
+  StringGrid.Cells[4, 0] := 'Value';
+
+  for i := 0 to (cmd.Params.Count-1) do begin
+    par := cmd.Params[i];
+
+    StringGrid.Cells[0, i+1] := par.Name;
+    StringGrid.Cells[1, i+1] := GetEnumName(TypeInfo(TDADataType), Ord(par.DataType));
+    StringGrid.Cells[2, i+1] := IntToStr(par.Size);
+    StringGrid.Cells[3, i+1] := GetEnumName(TypeInfo(TDAParamType), Ord(par.ParamType));
+    StringGrid.Cells[4, i+1] := '';
+  end;
+end;
+
+procedure TStoredProceduresMainForm.FormDestroy(Sender: TObject);
+begin
+  fConn := nil;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/RODLFILE.res
new file mode 100644
index 0000000..6c379af
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/SampleSchemaClient_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/SampleSchemaClient_Intf.pas
new file mode 100644
index 0000000..0d84abe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/SampleSchemaClient_Intf.pas	
@@ -0,0 +1,981 @@
+unit SampleSchemaClient_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable;
+
+const
+  { Data table rules ids
+       Feel free to change them to something more human readable
+       but make sure they are unique in the context of your application }
+  RID_Customers = '{A97B58B8-3C56-413D-BA55-360BCD6ACBEA}';
+  RID_Orders = '{63B9B897-D9BC-430C-9D81-C0466A5CD6AD}';
+
+  { Data table names }
+  nme_Customers = 'Customers';
+  nme_Orders = 'Orders';
+
+  { Customers fields }
+  fld_CustomersCustomerID = 'CustomerID';
+  fld_CustomersCompanyName = 'CompanyName';
+  fld_CustomersContactName = 'ContactName';
+  fld_CustomersContactTitle = 'ContactTitle';
+  fld_CustomersAddress = 'Address';
+  fld_CustomersCity = 'City';
+  fld_CustomersRegion = 'Region';
+  fld_CustomersPostalCode = 'PostalCode';
+  fld_CustomersCountry = 'Country';
+  fld_CustomersPhone = 'Phone';
+  fld_CustomersFax = 'Fax';
+
+  { Customers field indexes }
+  idx_CustomersCustomerID = 0;
+  idx_CustomersCompanyName = 1;
+  idx_CustomersContactName = 2;
+  idx_CustomersContactTitle = 3;
+  idx_CustomersAddress = 4;
+  idx_CustomersCity = 5;
+  idx_CustomersRegion = 6;
+  idx_CustomersPostalCode = 7;
+  idx_CustomersCountry = 8;
+  idx_CustomersPhone = 9;
+  idx_CustomersFax = 10;
+
+  { Orders fields }
+  fld_OrdersOrderID = 'OrderID';
+  fld_OrdersCustomerID = 'CustomerID';
+  fld_OrdersEmployeeID = 'EmployeeID';
+  fld_OrdersOrderDate = 'OrderDate';
+  fld_OrdersRequiredDate = 'RequiredDate';
+  fld_OrdersShippedDate = 'ShippedDate';
+  fld_OrdersShipVia = 'ShipVia';
+  fld_OrdersFreight = 'Freight';
+  fld_OrdersShipName = 'ShipName';
+  fld_OrdersShipAddress = 'ShipAddress';
+  fld_OrdersShipCity = 'ShipCity';
+  fld_OrdersShipRegion = 'ShipRegion';
+  fld_OrdersShipPostalCode = 'ShipPostalCode';
+  fld_OrdersShipCountry = 'ShipCountry';
+
+  { Orders field indexes }
+  idx_OrdersOrderID = 0;
+  idx_OrdersCustomerID = 1;
+  idx_OrdersEmployeeID = 2;
+  idx_OrdersOrderDate = 3;
+  idx_OrdersRequiredDate = 4;
+  idx_OrdersShippedDate = 5;
+  idx_OrdersShipVia = 6;
+  idx_OrdersFreight = 7;
+  idx_OrdersShipName = 8;
+  idx_OrdersShipAddress = 9;
+  idx_OrdersShipCity = 10;
+  idx_OrdersShipRegion = 11;
+  idx_OrdersShipPostalCode = 12;
+  idx_OrdersShipCountry = 13;
+
+type
+  { ICustomers }
+  ICustomers = interface(IDAStronglyTypedDataTable)
+  ['{555F0253-7185-47B4-86D9-0CCCF239EBBE}']
+    { Property getters and setters }
+    function GetCustomerIDValue: String;
+    procedure SetCustomerIDValue(const aValue: String);
+    function GetCustomerIDIsNull: Boolean;
+    procedure SetCustomerIDIsNull(const aValue: Boolean);
+    function GetCompanyNameValue: String;
+    procedure SetCompanyNameValue(const aValue: String);
+    function GetCompanyNameIsNull: Boolean;
+    procedure SetCompanyNameIsNull(const aValue: Boolean);
+    function GetContactNameValue: String;
+    procedure SetContactNameValue(const aValue: String);
+    function GetContactNameIsNull: Boolean;
+    procedure SetContactNameIsNull(const aValue: Boolean);
+    function GetContactTitleValue: String;
+    procedure SetContactTitleValue(const aValue: String);
+    function GetContactTitleIsNull: Boolean;
+    procedure SetContactTitleIsNull(const aValue: Boolean);
+    function GetAddressValue: String;
+    procedure SetAddressValue(const aValue: String);
+    function GetAddressIsNull: Boolean;
+    procedure SetAddressIsNull(const aValue: Boolean);
+    function GetCityValue: String;
+    procedure SetCityValue(const aValue: String);
+    function GetCityIsNull: Boolean;
+    procedure SetCityIsNull(const aValue: Boolean);
+    function GetRegionValue: String;
+    procedure SetRegionValue(const aValue: String);
+    function GetRegionIsNull: Boolean;
+    procedure SetRegionIsNull(const aValue: Boolean);
+    function GetPostalCodeValue: String;
+    procedure SetPostalCodeValue(const aValue: String);
+    function GetPostalCodeIsNull: Boolean;
+    procedure SetPostalCodeIsNull(const aValue: Boolean);
+    function GetCountryValue: String;
+    procedure SetCountryValue(const aValue: String);
+    function GetCountryIsNull: Boolean;
+    procedure SetCountryIsNull(const aValue: Boolean);
+    function GetPhoneValue: String;
+    procedure SetPhoneValue(const aValue: String);
+    function GetPhoneIsNull: Boolean;
+    procedure SetPhoneIsNull(const aValue: Boolean);
+    function GetFaxValue: String;
+    procedure SetFaxValue(const aValue: String);
+    function GetFaxIsNull: Boolean;
+    procedure SetFaxIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property CustomerID: String read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull: Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property CompanyName: String read GetCompanyNameValue write SetCompanyNameValue;
+    property CompanyNameIsNull: Boolean read GetCompanyNameIsNull write SetCompanyNameIsNull;
+    property ContactName: String read GetContactNameValue write SetContactNameValue;
+    property ContactNameIsNull: Boolean read GetContactNameIsNull write SetContactNameIsNull;
+    property ContactTitle: String read GetContactTitleValue write SetContactTitleValue;
+    property ContactTitleIsNull: Boolean read GetContactTitleIsNull write SetContactTitleIsNull;
+    property Address: String read GetAddressValue write SetAddressValue;
+    property AddressIsNull: Boolean read GetAddressIsNull write SetAddressIsNull;
+    property City: String read GetCityValue write SetCityValue;
+    property CityIsNull: Boolean read GetCityIsNull write SetCityIsNull;
+    property Region: String read GetRegionValue write SetRegionValue;
+    property RegionIsNull: Boolean read GetRegionIsNull write SetRegionIsNull;
+    property PostalCode: String read GetPostalCodeValue write SetPostalCodeValue;
+    property PostalCodeIsNull: Boolean read GetPostalCodeIsNull write SetPostalCodeIsNull;
+    property Country: String read GetCountryValue write SetCountryValue;
+    property CountryIsNull: Boolean read GetCountryIsNull write SetCountryIsNull;
+    property Phone: String read GetPhoneValue write SetPhoneValue;
+    property PhoneIsNull: Boolean read GetPhoneIsNull write SetPhoneIsNull;
+    property Fax: String read GetFaxValue write SetFaxValue;
+    property FaxIsNull: Boolean read GetFaxIsNull write SetFaxIsNull;
+  end;
+
+  { TCustomersDataTableRules }
+  TCustomersDataTableRules = class(TDADataTableRules, ICustomers)
+  private
+  protected
+    { Property getters and setters }
+    function GetCustomerIDValue: String; virtual;
+    procedure SetCustomerIDValue(const aValue: String); virtual;
+    function GetCustomerIDIsNull: Boolean; virtual;
+    procedure SetCustomerIDIsNull(const aValue: Boolean); virtual;
+    function GetCompanyNameValue: String; virtual;
+    procedure SetCompanyNameValue(const aValue: String); virtual;
+    function GetCompanyNameIsNull: Boolean; virtual;
+    procedure SetCompanyNameIsNull(const aValue: Boolean); virtual;
+    function GetContactNameValue: String; virtual;
+    procedure SetContactNameValue(const aValue: String); virtual;
+    function GetContactNameIsNull: Boolean; virtual;
+    procedure SetContactNameIsNull(const aValue: Boolean); virtual;
+    function GetContactTitleValue: String; virtual;
+    procedure SetContactTitleValue(const aValue: String); virtual;
+    function GetContactTitleIsNull: Boolean; virtual;
+    procedure SetContactTitleIsNull(const aValue: Boolean); virtual;
+    function GetAddressValue: String; virtual;
+    procedure SetAddressValue(const aValue: String); virtual;
+    function GetAddressIsNull: Boolean; virtual;
+    procedure SetAddressIsNull(const aValue: Boolean); virtual;
+    function GetCityValue: String; virtual;
+    procedure SetCityValue(const aValue: String); virtual;
+    function GetCityIsNull: Boolean; virtual;
+    procedure SetCityIsNull(const aValue: Boolean); virtual;
+    function GetRegionValue: String; virtual;
+    procedure SetRegionValue(const aValue: String); virtual;
+    function GetRegionIsNull: Boolean; virtual;
+    procedure SetRegionIsNull(const aValue: Boolean); virtual;
+    function GetPostalCodeValue: String; virtual;
+    procedure SetPostalCodeValue(const aValue: String); virtual;
+    function GetPostalCodeIsNull: Boolean; virtual;
+    procedure SetPostalCodeIsNull(const aValue: Boolean); virtual;
+    function GetCountryValue: String; virtual;
+    procedure SetCountryValue(const aValue: String); virtual;
+    function GetCountryIsNull: Boolean; virtual;
+    procedure SetCountryIsNull(const aValue: Boolean); virtual;
+    function GetPhoneValue: String; virtual;
+    procedure SetPhoneValue(const aValue: String); virtual;
+    function GetPhoneIsNull: Boolean; virtual;
+    procedure SetPhoneIsNull(const aValue: Boolean); virtual;
+    function GetFaxValue: String; virtual;
+    procedure SetFaxValue(const aValue: String); virtual;
+    function GetFaxIsNull: Boolean; virtual;
+    procedure SetFaxIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property CustomerID: String read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull: Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property CompanyName: String read GetCompanyNameValue write SetCompanyNameValue;
+    property CompanyNameIsNull: Boolean read GetCompanyNameIsNull write SetCompanyNameIsNull;
+    property ContactName: String read GetContactNameValue write SetContactNameValue;
+    property ContactNameIsNull: Boolean read GetContactNameIsNull write SetContactNameIsNull;
+    property ContactTitle: String read GetContactTitleValue write SetContactTitleValue;
+    property ContactTitleIsNull: Boolean read GetContactTitleIsNull write SetContactTitleIsNull;
+    property Address: String read GetAddressValue write SetAddressValue;
+    property AddressIsNull: Boolean read GetAddressIsNull write SetAddressIsNull;
+    property City: String read GetCityValue write SetCityValue;
+    property CityIsNull: Boolean read GetCityIsNull write SetCityIsNull;
+    property Region: String read GetRegionValue write SetRegionValue;
+    property RegionIsNull: Boolean read GetRegionIsNull write SetRegionIsNull;
+    property PostalCode: String read GetPostalCodeValue write SetPostalCodeValue;
+    property PostalCodeIsNull: Boolean read GetPostalCodeIsNull write SetPostalCodeIsNull;
+    property Country: String read GetCountryValue write SetCountryValue;
+    property CountryIsNull: Boolean read GetCountryIsNull write SetCountryIsNull;
+    property Phone: String read GetPhoneValue write SetPhoneValue;
+    property PhoneIsNull: Boolean read GetPhoneIsNull write SetPhoneIsNull;
+    property Fax: String read GetFaxValue write SetFaxValue;
+    property FaxIsNull: Boolean read GetFaxIsNull write SetFaxIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IOrders }
+  IOrders = interface(IDAStronglyTypedDataTable)
+  ['{50A479DE-60BA-4066-AAEB-B840FC045BBB}']
+    { Property getters and setters }
+    function GetOrderIDValue: Integer;
+    procedure SetOrderIDValue(const aValue: Integer);
+    function GetOrderIDIsNull: Boolean;
+    procedure SetOrderIDIsNull(const aValue: Boolean);
+    function GetCustomerIDValue: String;
+    procedure SetCustomerIDValue(const aValue: String);
+    function GetCustomerIDIsNull: Boolean;
+    procedure SetCustomerIDIsNull(const aValue: Boolean);
+    function GetEmployeeIDValue: Integer;
+    procedure SetEmployeeIDValue(const aValue: Integer);
+    function GetEmployeeIDIsNull: Boolean;
+    procedure SetEmployeeIDIsNull(const aValue: Boolean);
+    function GetOrderDateValue: DateTime;
+    procedure SetOrderDateValue(const aValue: DateTime);
+    function GetOrderDateIsNull: Boolean;
+    procedure SetOrderDateIsNull(const aValue: Boolean);
+    function GetRequiredDateValue: DateTime;
+    procedure SetRequiredDateValue(const aValue: DateTime);
+    function GetRequiredDateIsNull: Boolean;
+    procedure SetRequiredDateIsNull(const aValue: Boolean);
+    function GetShippedDateValue: DateTime;
+    procedure SetShippedDateValue(const aValue: DateTime);
+    function GetShippedDateIsNull: Boolean;
+    procedure SetShippedDateIsNull(const aValue: Boolean);
+    function GetShipViaValue: Integer;
+    procedure SetShipViaValue(const aValue: Integer);
+    function GetShipViaIsNull: Boolean;
+    procedure SetShipViaIsNull(const aValue: Boolean);
+    function GetFreightValue: Float;
+    procedure SetFreightValue(const aValue: Float);
+    function GetFreightIsNull: Boolean;
+    procedure SetFreightIsNull(const aValue: Boolean);
+    function GetShipNameValue: String;
+    procedure SetShipNameValue(const aValue: String);
+    function GetShipNameIsNull: Boolean;
+    procedure SetShipNameIsNull(const aValue: Boolean);
+    function GetShipAddressValue: String;
+    procedure SetShipAddressValue(const aValue: String);
+    function GetShipAddressIsNull: Boolean;
+    procedure SetShipAddressIsNull(const aValue: Boolean);
+    function GetShipCityValue: String;
+    procedure SetShipCityValue(const aValue: String);
+    function GetShipCityIsNull: Boolean;
+    procedure SetShipCityIsNull(const aValue: Boolean);
+    function GetShipRegionValue: String;
+    procedure SetShipRegionValue(const aValue: String);
+    function GetShipRegionIsNull: Boolean;
+    procedure SetShipRegionIsNull(const aValue: Boolean);
+    function GetShipPostalCodeValue: String;
+    procedure SetShipPostalCodeValue(const aValue: String);
+    function GetShipPostalCodeIsNull: Boolean;
+    procedure SetShipPostalCodeIsNull(const aValue: Boolean);
+    function GetShipCountryValue: String;
+    procedure SetShipCountryValue(const aValue: String);
+    function GetShipCountryIsNull: Boolean;
+    procedure SetShipCountryIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property OrderID: Integer read GetOrderIDValue write SetOrderIDValue;
+    property OrderIDIsNull: Boolean read GetOrderIDIsNull write SetOrderIDIsNull;
+    property CustomerID: String read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull: Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property EmployeeID: Integer read GetEmployeeIDValue write SetEmployeeIDValue;
+    property EmployeeIDIsNull: Boolean read GetEmployeeIDIsNull write SetEmployeeIDIsNull;
+    property OrderDate: DateTime read GetOrderDateValue write SetOrderDateValue;
+    property OrderDateIsNull: Boolean read GetOrderDateIsNull write SetOrderDateIsNull;
+    property RequiredDate: DateTime read GetRequiredDateValue write SetRequiredDateValue;
+    property RequiredDateIsNull: Boolean read GetRequiredDateIsNull write SetRequiredDateIsNull;
+    property ShippedDate: DateTime read GetShippedDateValue write SetShippedDateValue;
+    property ShippedDateIsNull: Boolean read GetShippedDateIsNull write SetShippedDateIsNull;
+    property ShipVia: Integer read GetShipViaValue write SetShipViaValue;
+    property ShipViaIsNull: Boolean read GetShipViaIsNull write SetShipViaIsNull;
+    property Freight: Float read GetFreightValue write SetFreightValue;
+    property FreightIsNull: Boolean read GetFreightIsNull write SetFreightIsNull;
+    property ShipName: String read GetShipNameValue write SetShipNameValue;
+    property ShipNameIsNull: Boolean read GetShipNameIsNull write SetShipNameIsNull;
+    property ShipAddress: String read GetShipAddressValue write SetShipAddressValue;
+    property ShipAddressIsNull: Boolean read GetShipAddressIsNull write SetShipAddressIsNull;
+    property ShipCity: String read GetShipCityValue write SetShipCityValue;
+    property ShipCityIsNull: Boolean read GetShipCityIsNull write SetShipCityIsNull;
+    property ShipRegion: String read GetShipRegionValue write SetShipRegionValue;
+    property ShipRegionIsNull: Boolean read GetShipRegionIsNull write SetShipRegionIsNull;
+    property ShipPostalCode: String read GetShipPostalCodeValue write SetShipPostalCodeValue;
+    property ShipPostalCodeIsNull: Boolean read GetShipPostalCodeIsNull write SetShipPostalCodeIsNull;
+    property ShipCountry: String read GetShipCountryValue write SetShipCountryValue;
+    property ShipCountryIsNull: Boolean read GetShipCountryIsNull write SetShipCountryIsNull;
+  end;
+
+  { TOrdersDataTableRules }
+  TOrdersDataTableRules = class(TDADataTableRules, IOrders)
+  private
+  protected
+    { Property getters and setters }
+    function GetOrderIDValue: Integer; virtual;
+    procedure SetOrderIDValue(const aValue: Integer); virtual;
+    function GetOrderIDIsNull: Boolean; virtual;
+    procedure SetOrderIDIsNull(const aValue: Boolean); virtual;
+    function GetCustomerIDValue: String; virtual;
+    procedure SetCustomerIDValue(const aValue: String); virtual;
+    function GetCustomerIDIsNull: Boolean; virtual;
+    procedure SetCustomerIDIsNull(const aValue: Boolean); virtual;
+    function GetEmployeeIDValue: Integer; virtual;
+    procedure SetEmployeeIDValue(const aValue: Integer); virtual;
+    function GetEmployeeIDIsNull: Boolean; virtual;
+    procedure SetEmployeeIDIsNull(const aValue: Boolean); virtual;
+    function GetOrderDateValue: DateTime; virtual;
+    procedure SetOrderDateValue(const aValue: DateTime); virtual;
+    function GetOrderDateIsNull: Boolean; virtual;
+    procedure SetOrderDateIsNull(const aValue: Boolean); virtual;
+    function GetRequiredDateValue: DateTime; virtual;
+    procedure SetRequiredDateValue(const aValue: DateTime); virtual;
+    function GetRequiredDateIsNull: Boolean; virtual;
+    procedure SetRequiredDateIsNull(const aValue: Boolean); virtual;
+    function GetShippedDateValue: DateTime; virtual;
+    procedure SetShippedDateValue(const aValue: DateTime); virtual;
+    function GetShippedDateIsNull: Boolean; virtual;
+    procedure SetShippedDateIsNull(const aValue: Boolean); virtual;
+    function GetShipViaValue: Integer; virtual;
+    procedure SetShipViaValue(const aValue: Integer); virtual;
+    function GetShipViaIsNull: Boolean; virtual;
+    procedure SetShipViaIsNull(const aValue: Boolean); virtual;
+    function GetFreightValue: Float; virtual;
+    procedure SetFreightValue(const aValue: Float); virtual;
+    function GetFreightIsNull: Boolean; virtual;
+    procedure SetFreightIsNull(const aValue: Boolean); virtual;
+    function GetShipNameValue: String; virtual;
+    procedure SetShipNameValue(const aValue: String); virtual;
+    function GetShipNameIsNull: Boolean; virtual;
+    procedure SetShipNameIsNull(const aValue: Boolean); virtual;
+    function GetShipAddressValue: String; virtual;
+    procedure SetShipAddressValue(const aValue: String); virtual;
+    function GetShipAddressIsNull: Boolean; virtual;
+    procedure SetShipAddressIsNull(const aValue: Boolean); virtual;
+    function GetShipCityValue: String; virtual;
+    procedure SetShipCityValue(const aValue: String); virtual;
+    function GetShipCityIsNull: Boolean; virtual;
+    procedure SetShipCityIsNull(const aValue: Boolean); virtual;
+    function GetShipRegionValue: String; virtual;
+    procedure SetShipRegionValue(const aValue: String); virtual;
+    function GetShipRegionIsNull: Boolean; virtual;
+    procedure SetShipRegionIsNull(const aValue: Boolean); virtual;
+    function GetShipPostalCodeValue: String; virtual;
+    procedure SetShipPostalCodeValue(const aValue: String); virtual;
+    function GetShipPostalCodeIsNull: Boolean; virtual;
+    procedure SetShipPostalCodeIsNull(const aValue: Boolean); virtual;
+    function GetShipCountryValue: String; virtual;
+    procedure SetShipCountryValue(const aValue: String); virtual;
+    function GetShipCountryIsNull: Boolean; virtual;
+    procedure SetShipCountryIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property OrderID: Integer read GetOrderIDValue write SetOrderIDValue;
+    property OrderIDIsNull: Boolean read GetOrderIDIsNull write SetOrderIDIsNull;
+    property CustomerID: String read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull: Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property EmployeeID: Integer read GetEmployeeIDValue write SetEmployeeIDValue;
+    property EmployeeIDIsNull: Boolean read GetEmployeeIDIsNull write SetEmployeeIDIsNull;
+    property OrderDate: DateTime read GetOrderDateValue write SetOrderDateValue;
+    property OrderDateIsNull: Boolean read GetOrderDateIsNull write SetOrderDateIsNull;
+    property RequiredDate: DateTime read GetRequiredDateValue write SetRequiredDateValue;
+    property RequiredDateIsNull: Boolean read GetRequiredDateIsNull write SetRequiredDateIsNull;
+    property ShippedDate: DateTime read GetShippedDateValue write SetShippedDateValue;
+    property ShippedDateIsNull: Boolean read GetShippedDateIsNull write SetShippedDateIsNull;
+    property ShipVia: Integer read GetShipViaValue write SetShipViaValue;
+    property ShipViaIsNull: Boolean read GetShipViaIsNull write SetShipViaIsNull;
+    property Freight: Float read GetFreightValue write SetFreightValue;
+    property FreightIsNull: Boolean read GetFreightIsNull write SetFreightIsNull;
+    property ShipName: String read GetShipNameValue write SetShipNameValue;
+    property ShipNameIsNull: Boolean read GetShipNameIsNull write SetShipNameIsNull;
+    property ShipAddress: String read GetShipAddressValue write SetShipAddressValue;
+    property ShipAddressIsNull: Boolean read GetShipAddressIsNull write SetShipAddressIsNull;
+    property ShipCity: String read GetShipCityValue write SetShipCityValue;
+    property ShipCityIsNull: Boolean read GetShipCityIsNull write SetShipCityIsNull;
+    property ShipRegion: String read GetShipRegionValue write SetShipRegionValue;
+    property ShipRegionIsNull: Boolean read GetShipRegionIsNull write SetShipRegionIsNull;
+    property ShipPostalCode: String read GetShipPostalCodeValue write SetShipPostalCodeValue;
+    property ShipPostalCodeIsNull: Boolean read GetShipPostalCodeIsNull write SetShipPostalCodeIsNull;
+    property ShipCountry: String read GetShipCountryValue write SetShipCountryValue;
+    property ShipCountryIsNull: Boolean read GetShipCountryIsNull write SetShipCountryIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses Variants;
+
+{ TCustomersDataTableRules }
+constructor TCustomersDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TCustomersDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TCustomersDataTableRules.GetCustomerIDValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersCustomerID].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetCustomerIDValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersCustomerID].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetCustomerIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersCustomerID].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetCustomerIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersCustomerID].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetCompanyNameValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersCompanyName].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetCompanyNameValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersCompanyName].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetCompanyNameIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersCompanyName].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetCompanyNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersCompanyName].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetContactNameValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersContactName].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetContactNameValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersContactName].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetContactNameIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersContactName].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetContactNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersContactName].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetContactTitleValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersContactTitle].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetContactTitleValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersContactTitle].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetContactTitleIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersContactTitle].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetContactTitleIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersContactTitle].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetAddressValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersAddress].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetAddressValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersAddress].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetAddressIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersAddress].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetAddressIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersAddress].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetCityValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersCity].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetCityValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersCity].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetCityIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersCity].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetCityIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersCity].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetRegionValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersRegion].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetRegionValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersRegion].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetRegionIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersRegion].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetRegionIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersRegion].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetPostalCodeValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersPostalCode].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetPostalCodeValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersPostalCode].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetPostalCodeIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersPostalCode].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetPostalCodeIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersPostalCode].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetCountryValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersCountry].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetCountryValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersCountry].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetCountryIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersCountry].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetCountryIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersCountry].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetPhoneValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersPhone].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetPhoneValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersPhone].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetPhoneIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersPhone].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetPhoneIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersPhone].AsVariant := Null;
+end;
+
+function TCustomersDataTableRules.GetFaxValue: String;
+begin
+  result := DataTable.Fields[idx_CustomersFax].AsString;
+end;
+
+procedure TCustomersDataTableRules.SetFaxValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CustomersFax].AsString := aValue;
+end;
+
+function TCustomersDataTableRules.GetFaxIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CustomersFax].IsNull;
+end;
+
+procedure TCustomersDataTableRules.SetFaxIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CustomersFax].AsVariant := Null;
+end;
+
+
+{ TOrdersDataTableRules }
+constructor TOrdersDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TOrdersDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TOrdersDataTableRules.GetOrderIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_OrdersOrderID].AsInteger;
+end;
+
+procedure TOrdersDataTableRules.SetOrderIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_OrdersOrderID].AsInteger := aValue;
+end;
+
+function TOrdersDataTableRules.GetOrderIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersOrderID].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetOrderIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersOrderID].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetCustomerIDValue: String;
+begin
+  result := DataTable.Fields[idx_OrdersCustomerID].AsString;
+end;
+
+procedure TOrdersDataTableRules.SetCustomerIDValue(const aValue: String);
+begin
+  DataTable.Fields[idx_OrdersCustomerID].AsString := aValue;
+end;
+
+function TOrdersDataTableRules.GetCustomerIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersCustomerID].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetCustomerIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersCustomerID].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetEmployeeIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_OrdersEmployeeID].AsInteger;
+end;
+
+procedure TOrdersDataTableRules.SetEmployeeIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_OrdersEmployeeID].AsInteger := aValue;
+end;
+
+function TOrdersDataTableRules.GetEmployeeIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersEmployeeID].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetEmployeeIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersEmployeeID].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetOrderDateValue: DateTime;
+begin
+  result := DataTable.Fields[idx_OrdersOrderDate].AsDateTime;
+end;
+
+procedure TOrdersDataTableRules.SetOrderDateValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_OrdersOrderDate].AsDateTime := aValue;
+end;
+
+function TOrdersDataTableRules.GetOrderDateIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersOrderDate].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetOrderDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersOrderDate].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetRequiredDateValue: DateTime;
+begin
+  result := DataTable.Fields[idx_OrdersRequiredDate].AsDateTime;
+end;
+
+procedure TOrdersDataTableRules.SetRequiredDateValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_OrdersRequiredDate].AsDateTime := aValue;
+end;
+
+function TOrdersDataTableRules.GetRequiredDateIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersRequiredDate].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetRequiredDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersRequiredDate].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShippedDateValue: DateTime;
+begin
+  result := DataTable.Fields[idx_OrdersShippedDate].AsDateTime;
+end;
+
+procedure TOrdersDataTableRules.SetShippedDateValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_OrdersShippedDate].AsDateTime := aValue;
+end;
+
+function TOrdersDataTableRules.GetShippedDateIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShippedDate].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShippedDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShippedDate].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipViaValue: Integer;
+begin
+  result := DataTable.Fields[idx_OrdersShipVia].AsInteger;
+end;
+
+procedure TOrdersDataTableRules.SetShipViaValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_OrdersShipVia].AsInteger := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipViaIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipVia].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipViaIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipVia].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetFreightValue: Float;
+begin
+  result := DataTable.Fields[idx_OrdersFreight].AsFloat;
+end;
+
+procedure TOrdersDataTableRules.SetFreightValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_OrdersFreight].AsFloat := aValue;
+end;
+
+function TOrdersDataTableRules.GetFreightIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersFreight].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetFreightIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersFreight].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipNameValue: String;
+begin
+  result := DataTable.Fields[idx_OrdersShipName].AsString;
+end;
+
+procedure TOrdersDataTableRules.SetShipNameValue(const aValue: String);
+begin
+  DataTable.Fields[idx_OrdersShipName].AsString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipNameIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipName].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipName].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipAddressValue: String;
+begin
+  result := DataTable.Fields[idx_OrdersShipAddress].AsString;
+end;
+
+procedure TOrdersDataTableRules.SetShipAddressValue(const aValue: String);
+begin
+  DataTable.Fields[idx_OrdersShipAddress].AsString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipAddressIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipAddress].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipAddressIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipAddress].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipCityValue: String;
+begin
+  result := DataTable.Fields[idx_OrdersShipCity].AsString;
+end;
+
+procedure TOrdersDataTableRules.SetShipCityValue(const aValue: String);
+begin
+  DataTable.Fields[idx_OrdersShipCity].AsString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipCityIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipCity].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipCityIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipCity].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipRegionValue: String;
+begin
+  result := DataTable.Fields[idx_OrdersShipRegion].AsString;
+end;
+
+procedure TOrdersDataTableRules.SetShipRegionValue(const aValue: String);
+begin
+  DataTable.Fields[idx_OrdersShipRegion].AsString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipRegionIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipRegion].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipRegionIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipRegion].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipPostalCodeValue: String;
+begin
+  result := DataTable.Fields[idx_OrdersShipPostalCode].AsString;
+end;
+
+procedure TOrdersDataTableRules.SetShipPostalCodeValue(const aValue: String);
+begin
+  DataTable.Fields[idx_OrdersShipPostalCode].AsString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipPostalCodeIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipPostalCode].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipPostalCodeIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipPostalCode].AsVariant := Null;
+end;
+
+function TOrdersDataTableRules.GetShipCountryValue: String;
+begin
+  result := DataTable.Fields[idx_OrdersShipCountry].AsString;
+end;
+
+procedure TOrdersDataTableRules.SetShipCountryValue(const aValue: String);
+begin
+  DataTable.Fields[idx_OrdersShipCountry].AsString := aValue;
+end;
+
+function TOrdersDataTableRules.GetShipCountryIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_OrdersShipCountry].IsNull;
+end;
+
+procedure TOrdersDataTableRules.SetShipCountryIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_OrdersShipCountry].AsVariant := Null;
+end;
+
+
+initialization
+  RegisterDataTableRules(RID_Customers, TCustomersDataTableRules);
+  RegisterDataTableRules(RID_Orders, TOrdersDataTableRules);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/SampleSchemaServer_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/SampleSchemaServer_Intf.pas
new file mode 100644
index 0000000..b75371d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/SampleSchemaServer_Intf.pas	
@@ -0,0 +1,1168 @@
+unit SampleSchemaServer_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, SampleSchemaClient_Intf;
+
+const
+  { Delta rules ids 
+       Feel free to change them to something more human readable
+       but make sure they are unique in the context of your application }
+  RID_CustomersDelta = '{79206377-2D23-4B53-84A3-AA445FF02FA8}';
+  RID_OrdersDelta = '{AD299B05-275D-495E-8036-3B383CDA5248}';
+
+type
+  { ICustomersDelta }
+  ICustomersDelta = interface(ICustomers)
+  ['{79206377-2D23-4B53-84A3-AA445FF02FA8}']
+    { Property getters and setters }
+    function GetOldCustomerIDValue : String;
+    function GetOldCompanyNameValue : String;
+    function GetOldContactNameValue : String;
+    function GetOldContactTitleValue : String;
+    function GetOldAddressValue : String;
+    function GetOldCityValue : String;
+    function GetOldRegionValue : String;
+    function GetOldPostalCodeValue : String;
+    function GetOldCountryValue : String;
+    function GetOldPhoneValue : String;
+    function GetOldFaxValue : String;
+
+    { Properties }
+    property OldCustomerID : String read GetOldCustomerIDValue;
+    property OldCompanyName : String read GetOldCompanyNameValue;
+    property OldContactName : String read GetOldContactNameValue;
+    property OldContactTitle : String read GetOldContactTitleValue;
+    property OldAddress : String read GetOldAddressValue;
+    property OldCity : String read GetOldCityValue;
+    property OldRegion : String read GetOldRegionValue;
+    property OldPostalCode : String read GetOldPostalCodeValue;
+    property OldCountry : String read GetOldCountryValue;
+    property OldPhone : String read GetOldPhoneValue;
+    property OldFax : String read GetOldFaxValue;
+  end;
+
+  { TCustomersBusinessProcessorRules }
+  TCustomersBusinessProcessorRules = class(TDABusinessProcessorRules, ICustomers, ICustomersDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetCustomerIDValue: String; virtual;
+    function GetCustomerIDIsNull: Boolean; virtual;
+    function GetOldCustomerIDValue: String; virtual;
+    function GetOldCustomerIDIsNull: Boolean; virtual;
+    procedure SetCustomerIDValue(const aValue: String); virtual;
+    procedure SetCustomerIDIsNull(const aValue: Boolean); virtual;
+    function GetCompanyNameValue: String; virtual;
+    function GetCompanyNameIsNull: Boolean; virtual;
+    function GetOldCompanyNameValue: String; virtual;
+    function GetOldCompanyNameIsNull: Boolean; virtual;
+    procedure SetCompanyNameValue(const aValue: String); virtual;
+    procedure SetCompanyNameIsNull(const aValue: Boolean); virtual;
+    function GetContactNameValue: String; virtual;
+    function GetContactNameIsNull: Boolean; virtual;
+    function GetOldContactNameValue: String; virtual;
+    function GetOldContactNameIsNull: Boolean; virtual;
+    procedure SetContactNameValue(const aValue: String); virtual;
+    procedure SetContactNameIsNull(const aValue: Boolean); virtual;
+    function GetContactTitleValue: String; virtual;
+    function GetContactTitleIsNull: Boolean; virtual;
+    function GetOldContactTitleValue: String; virtual;
+    function GetOldContactTitleIsNull: Boolean; virtual;
+    procedure SetContactTitleValue(const aValue: String); virtual;
+    procedure SetContactTitleIsNull(const aValue: Boolean); virtual;
+    function GetAddressValue: String; virtual;
+    function GetAddressIsNull: Boolean; virtual;
+    function GetOldAddressValue: String; virtual;
+    function GetOldAddressIsNull: Boolean; virtual;
+    procedure SetAddressValue(const aValue: String); virtual;
+    procedure SetAddressIsNull(const aValue: Boolean); virtual;
+    function GetCityValue: String; virtual;
+    function GetCityIsNull: Boolean; virtual;
+    function GetOldCityValue: String; virtual;
+    function GetOldCityIsNull: Boolean; virtual;
+    procedure SetCityValue(const aValue: String); virtual;
+    procedure SetCityIsNull(const aValue: Boolean); virtual;
+    function GetRegionValue: String; virtual;
+    function GetRegionIsNull: Boolean; virtual;
+    function GetOldRegionValue: String; virtual;
+    function GetOldRegionIsNull: Boolean; virtual;
+    procedure SetRegionValue(const aValue: String); virtual;
+    procedure SetRegionIsNull(const aValue: Boolean); virtual;
+    function GetPostalCodeValue: String; virtual;
+    function GetPostalCodeIsNull: Boolean; virtual;
+    function GetOldPostalCodeValue: String; virtual;
+    function GetOldPostalCodeIsNull: Boolean; virtual;
+    procedure SetPostalCodeValue(const aValue: String); virtual;
+    procedure SetPostalCodeIsNull(const aValue: Boolean); virtual;
+    function GetCountryValue: String; virtual;
+    function GetCountryIsNull: Boolean; virtual;
+    function GetOldCountryValue: String; virtual;
+    function GetOldCountryIsNull: Boolean; virtual;
+    procedure SetCountryValue(const aValue: String); virtual;
+    procedure SetCountryIsNull(const aValue: Boolean); virtual;
+    function GetPhoneValue: String; virtual;
+    function GetPhoneIsNull: Boolean; virtual;
+    function GetOldPhoneValue: String; virtual;
+    function GetOldPhoneIsNull: Boolean; virtual;
+    procedure SetPhoneValue(const aValue: String); virtual;
+    procedure SetPhoneIsNull(const aValue: Boolean); virtual;
+    function GetFaxValue: String; virtual;
+    function GetFaxIsNull: Boolean; virtual;
+    function GetOldFaxValue: String; virtual;
+    function GetOldFaxIsNull: Boolean; virtual;
+    procedure SetFaxValue(const aValue: String); virtual;
+    procedure SetFaxIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property CustomerID : String read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull : Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property OldCustomerID : String read GetOldCustomerIDValue;
+    property OldCustomerIDIsNull : Boolean read GetOldCustomerIDIsNull;
+    property CompanyName : String read GetCompanyNameValue write SetCompanyNameValue;
+    property CompanyNameIsNull : Boolean read GetCompanyNameIsNull write SetCompanyNameIsNull;
+    property OldCompanyName : String read GetOldCompanyNameValue;
+    property OldCompanyNameIsNull : Boolean read GetOldCompanyNameIsNull;
+    property ContactName : String read GetContactNameValue write SetContactNameValue;
+    property ContactNameIsNull : Boolean read GetContactNameIsNull write SetContactNameIsNull;
+    property OldContactName : String read GetOldContactNameValue;
+    property OldContactNameIsNull : Boolean read GetOldContactNameIsNull;
+    property ContactTitle : String read GetContactTitleValue write SetContactTitleValue;
+    property ContactTitleIsNull : Boolean read GetContactTitleIsNull write SetContactTitleIsNull;
+    property OldContactTitle : String read GetOldContactTitleValue;
+    property OldContactTitleIsNull : Boolean read GetOldContactTitleIsNull;
+    property Address : String read GetAddressValue write SetAddressValue;
+    property AddressIsNull : Boolean read GetAddressIsNull write SetAddressIsNull;
+    property OldAddress : String read GetOldAddressValue;
+    property OldAddressIsNull : Boolean read GetOldAddressIsNull;
+    property City : String read GetCityValue write SetCityValue;
+    property CityIsNull : Boolean read GetCityIsNull write SetCityIsNull;
+    property OldCity : String read GetOldCityValue;
+    property OldCityIsNull : Boolean read GetOldCityIsNull;
+    property Region : String read GetRegionValue write SetRegionValue;
+    property RegionIsNull : Boolean read GetRegionIsNull write SetRegionIsNull;
+    property OldRegion : String read GetOldRegionValue;
+    property OldRegionIsNull : Boolean read GetOldRegionIsNull;
+    property PostalCode : String read GetPostalCodeValue write SetPostalCodeValue;
+    property PostalCodeIsNull : Boolean read GetPostalCodeIsNull write SetPostalCodeIsNull;
+    property OldPostalCode : String read GetOldPostalCodeValue;
+    property OldPostalCodeIsNull : Boolean read GetOldPostalCodeIsNull;
+    property Country : String read GetCountryValue write SetCountryValue;
+    property CountryIsNull : Boolean read GetCountryIsNull write SetCountryIsNull;
+    property OldCountry : String read GetOldCountryValue;
+    property OldCountryIsNull : Boolean read GetOldCountryIsNull;
+    property Phone : String read GetPhoneValue write SetPhoneValue;
+    property PhoneIsNull : Boolean read GetPhoneIsNull write SetPhoneIsNull;
+    property OldPhone : String read GetOldPhoneValue;
+    property OldPhoneIsNull : Boolean read GetOldPhoneIsNull;
+    property Fax : String read GetFaxValue write SetFaxValue;
+    property FaxIsNull : Boolean read GetFaxIsNull write SetFaxIsNull;
+    property OldFax : String read GetOldFaxValue;
+    property OldFaxIsNull : Boolean read GetOldFaxIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IOrdersDelta }
+  IOrdersDelta = interface(IOrders)
+  ['{AD299B05-275D-495E-8036-3B383CDA5248}']
+    { Property getters and setters }
+    function GetOldOrderIDValue : Integer;
+    function GetOldCustomerIDValue : String;
+    function GetOldEmployeeIDValue : Integer;
+    function GetOldOrderDateValue : DateTime;
+    function GetOldRequiredDateValue : DateTime;
+    function GetOldShippedDateValue : DateTime;
+    function GetOldShipViaValue : Integer;
+    function GetOldFreightValue : Float;
+    function GetOldShipNameValue : String;
+    function GetOldShipAddressValue : String;
+    function GetOldShipCityValue : String;
+    function GetOldShipRegionValue : String;
+    function GetOldShipPostalCodeValue : String;
+    function GetOldShipCountryValue : String;
+
+    { Properties }
+    property OldOrderID : Integer read GetOldOrderIDValue;
+    property OldCustomerID : String read GetOldCustomerIDValue;
+    property OldEmployeeID : Integer read GetOldEmployeeIDValue;
+    property OldOrderDate : DateTime read GetOldOrderDateValue;
+    property OldRequiredDate : DateTime read GetOldRequiredDateValue;
+    property OldShippedDate : DateTime read GetOldShippedDateValue;
+    property OldShipVia : Integer read GetOldShipViaValue;
+    property OldFreight : Float read GetOldFreightValue;
+    property OldShipName : String read GetOldShipNameValue;
+    property OldShipAddress : String read GetOldShipAddressValue;
+    property OldShipCity : String read GetOldShipCityValue;
+    property OldShipRegion : String read GetOldShipRegionValue;
+    property OldShipPostalCode : String read GetOldShipPostalCodeValue;
+    property OldShipCountry : String read GetOldShipCountryValue;
+  end;
+
+  { TOrdersBusinessProcessorRules }
+  TOrdersBusinessProcessorRules = class(TDABusinessProcessorRules, IOrders, IOrdersDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetOrderIDValue: Integer; virtual;
+    function GetOrderIDIsNull: Boolean; virtual;
+    function GetOldOrderIDValue: Integer; virtual;
+    function GetOldOrderIDIsNull: Boolean; virtual;
+    procedure SetOrderIDValue(const aValue: Integer); virtual;
+    procedure SetOrderIDIsNull(const aValue: Boolean); virtual;
+    function GetCustomerIDValue: String; virtual;
+    function GetCustomerIDIsNull: Boolean; virtual;
+    function GetOldCustomerIDValue: String; virtual;
+    function GetOldCustomerIDIsNull: Boolean; virtual;
+    procedure SetCustomerIDValue(const aValue: String); virtual;
+    procedure SetCustomerIDIsNull(const aValue: Boolean); virtual;
+    function GetEmployeeIDValue: Integer; virtual;
+    function GetEmployeeIDIsNull: Boolean; virtual;
+    function GetOldEmployeeIDValue: Integer; virtual;
+    function GetOldEmployeeIDIsNull: Boolean; virtual;
+    procedure SetEmployeeIDValue(const aValue: Integer); virtual;
+    procedure SetEmployeeIDIsNull(const aValue: Boolean); virtual;
+    function GetOrderDateValue: DateTime; virtual;
+    function GetOrderDateIsNull: Boolean; virtual;
+    function GetOldOrderDateValue: DateTime; virtual;
+    function GetOldOrderDateIsNull: Boolean; virtual;
+    procedure SetOrderDateValue(const aValue: DateTime); virtual;
+    procedure SetOrderDateIsNull(const aValue: Boolean); virtual;
+    function GetRequiredDateValue: DateTime; virtual;
+    function GetRequiredDateIsNull: Boolean; virtual;
+    function GetOldRequiredDateValue: DateTime; virtual;
+    function GetOldRequiredDateIsNull: Boolean; virtual;
+    procedure SetRequiredDateValue(const aValue: DateTime); virtual;
+    procedure SetRequiredDateIsNull(const aValue: Boolean); virtual;
+    function GetShippedDateValue: DateTime; virtual;
+    function GetShippedDateIsNull: Boolean; virtual;
+    function GetOldShippedDateValue: DateTime; virtual;
+    function GetOldShippedDateIsNull: Boolean; virtual;
+    procedure SetShippedDateValue(const aValue: DateTime); virtual;
+    procedure SetShippedDateIsNull(const aValue: Boolean); virtual;
+    function GetShipViaValue: Integer; virtual;
+    function GetShipViaIsNull: Boolean; virtual;
+    function GetOldShipViaValue: Integer; virtual;
+    function GetOldShipViaIsNull: Boolean; virtual;
+    procedure SetShipViaValue(const aValue: Integer); virtual;
+    procedure SetShipViaIsNull(const aValue: Boolean); virtual;
+    function GetFreightValue: Float; virtual;
+    function GetFreightIsNull: Boolean; virtual;
+    function GetOldFreightValue: Float; virtual;
+    function GetOldFreightIsNull: Boolean; virtual;
+    procedure SetFreightValue(const aValue: Float); virtual;
+    procedure SetFreightIsNull(const aValue: Boolean); virtual;
+    function GetShipNameValue: String; virtual;
+    function GetShipNameIsNull: Boolean; virtual;
+    function GetOldShipNameValue: String; virtual;
+    function GetOldShipNameIsNull: Boolean; virtual;
+    procedure SetShipNameValue(const aValue: String); virtual;
+    procedure SetShipNameIsNull(const aValue: Boolean); virtual;
+    function GetShipAddressValue: String; virtual;
+    function GetShipAddressIsNull: Boolean; virtual;
+    function GetOldShipAddressValue: String; virtual;
+    function GetOldShipAddressIsNull: Boolean; virtual;
+    procedure SetShipAddressValue(const aValue: String); virtual;
+    procedure SetShipAddressIsNull(const aValue: Boolean); virtual;
+    function GetShipCityValue: String; virtual;
+    function GetShipCityIsNull: Boolean; virtual;
+    function GetOldShipCityValue: String; virtual;
+    function GetOldShipCityIsNull: Boolean; virtual;
+    procedure SetShipCityValue(const aValue: String); virtual;
+    procedure SetShipCityIsNull(const aValue: Boolean); virtual;
+    function GetShipRegionValue: String; virtual;
+    function GetShipRegionIsNull: Boolean; virtual;
+    function GetOldShipRegionValue: String; virtual;
+    function GetOldShipRegionIsNull: Boolean; virtual;
+    procedure SetShipRegionValue(const aValue: String); virtual;
+    procedure SetShipRegionIsNull(const aValue: Boolean); virtual;
+    function GetShipPostalCodeValue: String; virtual;
+    function GetShipPostalCodeIsNull: Boolean; virtual;
+    function GetOldShipPostalCodeValue: String; virtual;
+    function GetOldShipPostalCodeIsNull: Boolean; virtual;
+    procedure SetShipPostalCodeValue(const aValue: String); virtual;
+    procedure SetShipPostalCodeIsNull(const aValue: Boolean); virtual;
+    function GetShipCountryValue: String; virtual;
+    function GetShipCountryIsNull: Boolean; virtual;
+    function GetOldShipCountryValue: String; virtual;
+    function GetOldShipCountryIsNull: Boolean; virtual;
+    procedure SetShipCountryValue(const aValue: String); virtual;
+    procedure SetShipCountryIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property OrderID : Integer read GetOrderIDValue write SetOrderIDValue;
+    property OrderIDIsNull : Boolean read GetOrderIDIsNull write SetOrderIDIsNull;
+    property OldOrderID : Integer read GetOldOrderIDValue;
+    property OldOrderIDIsNull : Boolean read GetOldOrderIDIsNull;
+    property CustomerID : String read GetCustomerIDValue write SetCustomerIDValue;
+    property CustomerIDIsNull : Boolean read GetCustomerIDIsNull write SetCustomerIDIsNull;
+    property OldCustomerID : String read GetOldCustomerIDValue;
+    property OldCustomerIDIsNull : Boolean read GetOldCustomerIDIsNull;
+    property EmployeeID : Integer read GetEmployeeIDValue write SetEmployeeIDValue;
+    property EmployeeIDIsNull : Boolean read GetEmployeeIDIsNull write SetEmployeeIDIsNull;
+    property OldEmployeeID : Integer read GetOldEmployeeIDValue;
+    property OldEmployeeIDIsNull : Boolean read GetOldEmployeeIDIsNull;
+    property OrderDate : DateTime read GetOrderDateValue write SetOrderDateValue;
+    property OrderDateIsNull : Boolean read GetOrderDateIsNull write SetOrderDateIsNull;
+    property OldOrderDate : DateTime read GetOldOrderDateValue;
+    property OldOrderDateIsNull : Boolean read GetOldOrderDateIsNull;
+    property RequiredDate : DateTime read GetRequiredDateValue write SetRequiredDateValue;
+    property RequiredDateIsNull : Boolean read GetRequiredDateIsNull write SetRequiredDateIsNull;
+    property OldRequiredDate : DateTime read GetOldRequiredDateValue;
+    property OldRequiredDateIsNull : Boolean read GetOldRequiredDateIsNull;
+    property ShippedDate : DateTime read GetShippedDateValue write SetShippedDateValue;
+    property ShippedDateIsNull : Boolean read GetShippedDateIsNull write SetShippedDateIsNull;
+    property OldShippedDate : DateTime read GetOldShippedDateValue;
+    property OldShippedDateIsNull : Boolean read GetOldShippedDateIsNull;
+    property ShipVia : Integer read GetShipViaValue write SetShipViaValue;
+    property ShipViaIsNull : Boolean read GetShipViaIsNull write SetShipViaIsNull;
+    property OldShipVia : Integer read GetOldShipViaValue;
+    property OldShipViaIsNull : Boolean read GetOldShipViaIsNull;
+    property Freight : Float read GetFreightValue write SetFreightValue;
+    property FreightIsNull : Boolean read GetFreightIsNull write SetFreightIsNull;
+    property OldFreight : Float read GetOldFreightValue;
+    property OldFreightIsNull : Boolean read GetOldFreightIsNull;
+    property ShipName : String read GetShipNameValue write SetShipNameValue;
+    property ShipNameIsNull : Boolean read GetShipNameIsNull write SetShipNameIsNull;
+    property OldShipName : String read GetOldShipNameValue;
+    property OldShipNameIsNull : Boolean read GetOldShipNameIsNull;
+    property ShipAddress : String read GetShipAddressValue write SetShipAddressValue;
+    property ShipAddressIsNull : Boolean read GetShipAddressIsNull write SetShipAddressIsNull;
+    property OldShipAddress : String read GetOldShipAddressValue;
+    property OldShipAddressIsNull : Boolean read GetOldShipAddressIsNull;
+    property ShipCity : String read GetShipCityValue write SetShipCityValue;
+    property ShipCityIsNull : Boolean read GetShipCityIsNull write SetShipCityIsNull;
+    property OldShipCity : String read GetOldShipCityValue;
+    property OldShipCityIsNull : Boolean read GetOldShipCityIsNull;
+    property ShipRegion : String read GetShipRegionValue write SetShipRegionValue;
+    property ShipRegionIsNull : Boolean read GetShipRegionIsNull write SetShipRegionIsNull;
+    property OldShipRegion : String read GetOldShipRegionValue;
+    property OldShipRegionIsNull : Boolean read GetOldShipRegionIsNull;
+    property ShipPostalCode : String read GetShipPostalCodeValue write SetShipPostalCodeValue;
+    property ShipPostalCodeIsNull : Boolean read GetShipPostalCodeIsNull write SetShipPostalCodeIsNull;
+    property OldShipPostalCode : String read GetOldShipPostalCodeValue;
+    property OldShipPostalCodeIsNull : Boolean read GetOldShipPostalCodeIsNull;
+    property ShipCountry : String read GetShipCountryValue write SetShipCountryValue;
+    property ShipCountryIsNull : Boolean read GetShipCountryIsNull write SetShipCountryIsNull;
+    property OldShipCountry : String read GetOldShipCountryValue;
+    property OldShipCountryIsNull : Boolean read GetOldShipCountryIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses
+  Variants, uROBinaryHelpers;
+
+{ TCustomersBusinessProcessorRules }
+constructor TCustomersBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TCustomersBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TCustomersBusinessProcessorRules.GetCustomerIDValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCustomerID];
+end;
+
+function TCustomersBusinessProcessorRules.GetCustomerIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCustomerID]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCustomerIDValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCustomerID];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCustomerIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCustomerID]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCustomerIDValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCustomerID] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCustomerIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCustomerID] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetCompanyNameValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCompanyName];
+end;
+
+function TCustomersBusinessProcessorRules.GetCompanyNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCompanyName]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCompanyNameValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCompanyName];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCompanyNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCompanyName]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCompanyNameValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCompanyName] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCompanyNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCompanyName] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetContactNameValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactName];
+end;
+
+function TCustomersBusinessProcessorRules.GetContactNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactName]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldContactNameValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersContactName];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldContactNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersContactName]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetContactNameValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactName] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetContactNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactName] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetContactTitleValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactTitle];
+end;
+
+function TCustomersBusinessProcessorRules.GetContactTitleIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactTitle]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldContactTitleValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersContactTitle];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldContactTitleIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersContactTitle]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetContactTitleValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactTitle] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetContactTitleIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersContactTitle] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetAddressValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersAddress];
+end;
+
+function TCustomersBusinessProcessorRules.GetAddressIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersAddress]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldAddressValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersAddress];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldAddressIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersAddress]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetAddressValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersAddress] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetAddressIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersAddress] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetCityValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCity];
+end;
+
+function TCustomersBusinessProcessorRules.GetCityIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCity]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCityValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCity];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCityIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCity]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCityValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCity] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCityIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCity] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetRegionValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersRegion];
+end;
+
+function TCustomersBusinessProcessorRules.GetRegionIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersRegion]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldRegionValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersRegion];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldRegionIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersRegion]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetRegionValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersRegion] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetRegionIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersRegion] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetPostalCodeValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPostalCode];
+end;
+
+function TCustomersBusinessProcessorRules.GetPostalCodeIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPostalCode]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldPostalCodeValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersPostalCode];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldPostalCodeIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersPostalCode]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetPostalCodeValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPostalCode] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetPostalCodeIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPostalCode] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetCountryValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCountry];
+end;
+
+function TCustomersBusinessProcessorRules.GetCountryIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCountry]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCountryValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCountry];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldCountryIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersCountry]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCountryValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCountry] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetCountryIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersCountry] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetPhoneValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPhone];
+end;
+
+function TCustomersBusinessProcessorRules.GetPhoneIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPhone]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldPhoneValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersPhone];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldPhoneIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersPhone]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetPhoneValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPhone] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetPhoneIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersPhone] := Null;
+end;
+
+function TCustomersBusinessProcessorRules.GetFaxValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersFax];
+end;
+
+function TCustomersBusinessProcessorRules.GetFaxIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersFax]);
+end;
+
+function TCustomersBusinessProcessorRules.GetOldFaxValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersFax];
+end;
+
+function TCustomersBusinessProcessorRules.GetOldFaxIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CustomersFax]);
+end;
+
+procedure TCustomersBusinessProcessorRules.SetFaxValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersFax] := aValue;
+end;
+
+procedure TCustomersBusinessProcessorRules.SetFaxIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CustomersFax] := Null;
+end;
+
+
+{ TOrdersBusinessProcessorRules }
+constructor TOrdersBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TOrdersBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TOrdersBusinessProcessorRules.GetOrderIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderID];
+end;
+
+function TOrdersBusinessProcessorRules.GetOrderIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderID]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldOrderIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersOrderID];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldOrderIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersOrderID]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetOrderIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderID] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetOrderIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderID] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetCustomerIDValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersCustomerID];
+end;
+
+function TOrdersBusinessProcessorRules.GetCustomerIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersCustomerID]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldCustomerIDValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersCustomerID];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldCustomerIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersCustomerID]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetCustomerIDValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersCustomerID] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetCustomerIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersCustomerID] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetEmployeeIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersEmployeeID];
+end;
+
+function TOrdersBusinessProcessorRules.GetEmployeeIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersEmployeeID]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldEmployeeIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersEmployeeID];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldEmployeeIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersEmployeeID]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetEmployeeIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersEmployeeID] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetEmployeeIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersEmployeeID] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetOrderDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetOrderDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderDate]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldOrderDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersOrderDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldOrderDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersOrderDate]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetOrderDateValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderDate] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetOrderDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersOrderDate] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetRequiredDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersRequiredDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetRequiredDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersRequiredDate]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldRequiredDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersRequiredDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldRequiredDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersRequiredDate]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetRequiredDateValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersRequiredDate] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetRequiredDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersRequiredDate] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShippedDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShippedDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetShippedDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShippedDate]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShippedDateValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShippedDate];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShippedDateIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShippedDate]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShippedDateValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShippedDate] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShippedDateIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShippedDate] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipViaValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipVia];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipViaIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipVia]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipViaValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipVia];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipViaIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipVia]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipViaValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipVia] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipViaIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipVia] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetFreightValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersFreight];
+end;
+
+function TOrdersBusinessProcessorRules.GetFreightIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersFreight]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldFreightValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersFreight];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldFreightIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersFreight]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetFreightValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersFreight] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetFreightIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersFreight] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipNameValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipName];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipName]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipNameValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipName];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipNameIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipName]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipNameValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipName] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipNameIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipName] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipAddressValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipAddress];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipAddressIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipAddress]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipAddressValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipAddress];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipAddressIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipAddress]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipAddressValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipAddress] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipAddressIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipAddress] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipCityValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCity];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipCityIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCity]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipCityValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipCity];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipCityIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipCity]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipCityValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCity] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipCityIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCity] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipRegionValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipRegion];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipRegionIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipRegion]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipRegionValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipRegion];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipRegionIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipRegion]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipRegionValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipRegion] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipRegionIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipRegion] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipPostalCodeValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipPostalCode];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipPostalCodeIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipPostalCode]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipPostalCodeValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipPostalCode];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipPostalCodeIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipPostalCode]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipPostalCodeValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipPostalCode] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipPostalCodeIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipPostalCode] := Null;
+end;
+
+function TOrdersBusinessProcessorRules.GetShipCountryValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCountry];
+end;
+
+function TOrdersBusinessProcessorRules.GetShipCountryIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCountry]);
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipCountryValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipCountry];
+end;
+
+function TOrdersBusinessProcessorRules.GetOldShipCountryIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_OrdersShipCountry]);
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipCountryValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCountry] := aValue;
+end;
+
+procedure TOrdersBusinessProcessorRules.SetShipCountryIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_OrdersShipCountry] := Null;
+end;
+
+
+initialization
+  RegisterBusinessProcessorRules(RID_CustomersDelta, TCustomersBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_OrdersDelta, TOrdersBusinessProcessorRules);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.Sample.html
new file mode 100644
index 0000000..a223583
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.Sample.html	
@@ -0,0 +1,45 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Strongly Typed Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+This example shows usage of business rules. It enforces additional rules that might change over time. This is a good example to show the advantages of a multi-tier architecture: systems can be updated via a server re-deploy without the need to update any client.
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   <b>uBizCustomersServer.pas</b>:
+this unit contains the business rules handlers for the server application.
+It's important to note however that some business rules are shared among clients and servers. For example, customer validation is done by calling the ValidateCustomers function (uBizCustomersClient.pas). Validation is not a requirement but a highly recommended practice, expecially when your system is accessed by clients that were not developed by you (i.e. Java clients accessing your server through SOAP).
+	</li>
+	<li>
+	   <b>uBizCustomersClient.pas</b>:
+this unit contains the business rules handlers for the client application.<br>
+  The simplest possible implementation just overrides the methods inherited from <b>TDADataTableRules</b> (i.e. AfterInsert, BeforePost).
+  More sophisticated implementations may add additional functionality and even make it accessible from outside units (i.e. a form or a data module hosting a TDADataTable).<br>
+  <b>TBizCustomersClientRules</b> shows how to do both by overriding a few event handlers and by adding support for the <b>IAdvancedCustomer</b> interface.
+	</li>
+</ul>
+
+<h2>Note</h2>
+Adding interfaces like <b>IAdvancedCustomer</b> is not required to implement extra functionality that is only accessed in the context of a business rule class/unit. You can obviously add any method you want to classes like TBizCustomersClientRules and reference them from other methods in order to make them more "object oriented".<br>
+However, when you need to access this functionality from the outside world you need to define an "access contract" via an interface. You can then treat TDADataTables as IAdvancedCustomer (or whatever other interface you decide to create) by simply using the <b>Supports</b> VCL function.
+  The bCheckBalanceClick method in fClientForm.pas is an example of this.<br><br> 
+<p> TDADataTable allows you to access the instance of TBizCustomersClientRules via the BusinessRules property. You could also type cast that property to TBizCustomersClientRules but, in general, the interface approach is cleaner and more elegant.
+
+</p>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.bdsgroup
new file mode 100644
index 0000000..cd41e1a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{BCB13FA7-70C7-44F9-A359-4B5562556E74}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="StronglyTypedServer.exe">StronglyTypedServer.bdsproj</Projects>
+      <Projects Name="StronglyTypedClient.exe">StronglyTypedClient.bdsproj</Projects>
+      <Projects Name="Targets">StronglyTypedServer.exe StronglyTypedClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.bpg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.bpg
new file mode 100644
index 0000000..9eb9328
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = StronglyTypedServer.exe StronglyTypedClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+StronglyTypedServer.exe: StronglyTypedServer.dpr
+  $(DCC)
+
+StronglyTypedClient.exe: StronglyTypedClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.groupproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.groupproj
new file mode 100644
index 0000000..ea9e40d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTyped.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4dcc5f31-7535-40c3-93a7-2ad992327e4b}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="StronglyTypedServer">
+    <MSBuild Projects="StronglyTypedServer.dproj" Targets="" />
+  </Target>
+  <Target Name="StronglyTypedServer:Clean">
+    <MSBuild Projects="StronglyTypedServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="StronglyTypedServer:Make">
+    <MSBuild Projects="StronglyTypedServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="StronglyTypedClient">
+    <MSBuild Projects="StronglyTypedClient.dproj" Targets="" />
+  </Target>
+  <Target Name="StronglyTypedClient:Clean">
+    <MSBuild Projects="StronglyTypedClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="StronglyTypedClient:Make">
+    <MSBuild Projects="StronglyTypedClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="StronglyTypedServer;StronglyTypedClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="StronglyTypedServer:Clean;StronglyTypedClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="StronglyTypedServer:Make;StronglyTypedClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.bdsproj
new file mode 100644
index 0000000..0357a18
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{4AEA9B21-E042-46B3-8DAD-5272B529BC49}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">StronglyTypedClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.cfg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.cfg
new file mode 100644
index 0000000..f1089e1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.cfg	
@@ -0,0 +1,33 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dof b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dof
new file mode 100644
index 0000000..63924ce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dof	
@@ -0,0 +1,77 @@
+[FileVersion]
+Version=6.0
+
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dpr
new file mode 100644
index 0000000..0f2d5e6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dpr	
@@ -0,0 +1,20 @@
+program StronglyTypedClient;
+
+uses
+  uROComInit,
+  Forms,
+  StronglyTypedClientMain in 'StronglyTypedClientMain.pas' {StronglyTypedClientMainForm},
+  uBizCustomersClient in 'uBizCustomersClient.pas',
+  StronglyTypedClientData in 'StronglyTypedClientData.pas' {StronglyTypedClientDataModule: TDAClientDataModule},
+  SampleSchemaClient_Intf in 'SampleSchemaClient_Intf.pas',
+  SampleSchemaServer_Intf in 'SampleSchemaServer_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'StronglyTyped Client';
+  Application.CreateForm(TStronglyTypedClientDataModule, StronglyTypedClientDataModule);
+  Application.CreateForm(TStronglyTypedClientMainForm, StronglyTypedClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dproj
new file mode 100644
index 0000000..3324002
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.dproj	
@@ -0,0 +1,84 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e2da5b2a-47db-4d24-9a88-5aa94ec3dfca}</ProjectGuid>
+    <MainSource>StronglyTypedClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>StronglyTypedClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">StronglyTypedClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="StronglyTypedClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="SampleSchemaClient_Intf.pas" />
+    <DCCReference Include="SampleSchemaServer_Intf.pas" />
+    <DCCReference Include="StronglyTypedClientData.pas">
+      <Form>StronglyTypedClientDataModule</Form>
+    </DCCReference>
+    <DCCReference Include="StronglyTypedClientMain.pas">
+      <Form>StronglyTypedClientMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="uBizCustomersClient.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientData.dfm
new file mode 100644
index 0000000..a1a69ad
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientData.dfm	
@@ -0,0 +1,466 @@
+object StronglyTypedClientDataModule: TStronglyTypedClientDataModule
+  OldCreateOrder = True
+  Height = 300
+  Width = 224
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/bin'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object ROMessage: TROBinMessage
+    Left = 40
+    Top = 52
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'StronglyTypedService'
+    Left = 40
+    Top = 96
+  end
+  object dtCustomers: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datString
+        Size = 40
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactName'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datString
+        Size = 60
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datString
+        Size = 10
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Phone'
+        DataType = datString
+        Size = 24
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Fax'
+        DataType = datString
+        Size = 24
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    BusinessRulesID = 'ClientRules.Customers'
+    Left = 112
+    Top = 56
+  end
+  object dsCustomers: TDADataSource
+    DataSet = dtCustomers.Dataset
+    DataTable = dtCustomers
+    Left = 128
+    Top = 72
+  end
+  object dtOrders: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datAutoInc
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        Size = 5
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'EmployeeID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RequiredDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShippedDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipVia'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Freight'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipName'
+        DataType = datString
+        Size = 40
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipAddress'
+        DataType = datString
+        Size = 60
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCity'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipRegion'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipPostalCode'
+        DataType = datString
+        Size = 10
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCountry'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'CustomerID'
+        DataType = datString
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Value = ''
+        ParamType = daptInput
+      end>
+    MasterParamsMappings.Strings = (
+      'CustomerID=CustomerID')
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    ReadOnly = False
+    MasterSource = dsCustomers
+    MasterFields = 'CustomerID'
+    DetailFields = 'CustomerID'
+    MasterRequestMappings.Strings = (
+      'CustomerID=CustomerID')
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Orders'
+    BusinessRulesID = 'ClientRules.Orders'
+    Left = 112
+    Top = 128
+  end
+  object dsOrders: TDADataSource
+    DataSet = dtOrders.Dataset
+    DataTable = dtOrders
+    Left = 128
+    Top = 144
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RORemoteService
+    GetDataCall.RemoteService = RORemoteService
+    UpdateDataCall.RemoteService = RORemoteService
+    GetScriptsCall.RemoteService = RORemoteService
+    RemoteService = RORemoteService
+    DataStreamer = Streamer
+    FailureBehavior = fbBoth
+    Left = 40
+    Top = 200
+  end
+  object Streamer: TDABin2DataStreamer
+    BufferSize = 262144
+    SendReducedDelta = False
+    Left = 40
+    Top = 152
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientData.pas
new file mode 100644
index 0000000..65922c7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientData.pas	
@@ -0,0 +1,37 @@
+unit StronglyTypedClientData;
+
+interface
+
+uses {vcl:} SysUtils, Classes, DB, DBClient, 
+     {RemObjects:}  uDADataTable, uDABINAdapter,
+  uRORemoteService, uROClient, uROBINMessage,  
+  uROWinInetHttpChannel, uDACDSDataTable, 
+  uDAScriptingProvider, uDARemoteDataAdapter, uDADataStreamer,
+  uDABin2DataStreamer, uDAMemDataTable;
+
+type
+  TStronglyTypedClientDataModule = class(TDataModule)
+    ROChannel: TROWinInetHTTPChannel;
+    ROMessage: TROBinMessage;
+    RORemoteService: TRORemoteService;
+    dtCustomers: TDAMemDataTable;
+    dsCustomers: TDADataSource;
+    dtOrders: TDAMemDataTable;
+    dsOrders: TDADataSource;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    Streamer: TDABin2DataStreamer;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  StronglyTypedClientDataModule: TStronglyTypedClientDataModule;
+
+implementation
+
+{$R *.DFM}
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientMain.dfm
new file mode 100644
index 0000000..1795856
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientMain.dfm	
@@ -0,0 +1,135 @@
+object StronglyTypedClientMainForm: TStronglyTypedClientMainForm
+  Left = 287
+  Top = 235
+  BorderWidth = 5
+  Caption = 'Strongly Typed Client'
+  ClientHeight = 299
+  ClientWidth = 498
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 21
+    Width = 498
+    Height = 100
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = StronglyTypedClientDataModule.dsCustomers
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+    OnTitleClick = DBGrid1TitleClick
+  end
+  object cbRemoteFetch: TCheckBox
+    Left = 0
+    Top = 0
+    Width = 136
+    Height = 17
+    Caption = 'Remote Fetch Enabled'
+    Checked = True
+    State = cbChecked
+    TabOrder = 0
+  end
+  object DBGrid2: TDBGrid
+    Left = 0
+    Top = 191
+    Width = 498
+    Height = 108
+    Align = alBottom
+    DataSource = StronglyTypedClientDataModule.dsOrders
+    TabOrder = 3
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 121
+    Width = 498
+    Height = 70
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    object bCreateTestCustomer: TButton
+      Left = 1
+      Top = 35
+      Width = 145
+      Height = 25
+      Caption = 'Create Test Customer'
+      TabOrder = 0
+      OnClick = bCreateTestCustomerClick
+    end
+    object DBNavigator1: TDBNavigator
+      Left = 0
+      Top = 5
+      Width = 240
+      Height = 25
+      DataSource = StronglyTypedClientDataModule.dsCustomers
+      TabOrder = 1
+    end
+    object BitBtn1: TBitBtn
+      Left = 240
+      Top = 5
+      Width = 75
+      Height = 25
+      Caption = 'Open/Close'
+      TabOrder = 2
+      OnClick = BitBtn1Click
+    end
+    object bCheckBalance: TButton
+      Left = 146
+      Top = 35
+      Width = 145
+      Height = 25
+      Caption = 'Check Customer Balance'
+      TabOrder = 3
+      OnClick = bCheckBalanceClick
+    end
+    object Button1: TButton
+      Left = 291
+      Top = 35
+      Width = 185
+      Height = 25
+      Caption = 'Create Test Customer with Orders'
+      TabOrder = 4
+      OnClick = Button1Click
+    end
+    object bApplyUpdates: TButton
+      Left = 315
+      Top = 5
+      Width = 97
+      Height = 25
+      Caption = 'Apply Updates'
+      TabOrder = 5
+      OnClick = bApplyUpdatesClick
+    end
+  end
+  object ROMessage: TROBinMessage
+    Left = 148
+    Top = 32
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'StronglyTypedService'
+    Left = 176
+    Top = 32
+  end
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 120
+    Top = 32
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientMain.pas
new file mode 100644
index 0000000..34839a3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedClientMain.pas	
@@ -0,0 +1,145 @@
+unit StronglyTypedClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROIndyHTTPChannel,
+  uROWinInetHttpChannel, DB, uDADataTable,
+  uDACDSDataTable, Buttons, ExtCtrls, DBCtrls, Grids,
+  DBGrids ;
+
+type
+  TStronglyTypedClientMainForm = class(TForm)
+    ROMessage: TROBinMessage;
+    RORemoteService: TRORemoteService;
+    ROChannel: TROWinInetHTTPChannel;
+    DBGrid1: TDBGrid;
+    cbRemoteFetch: TCheckBox;
+    DBGrid2: TDBGrid;
+    Panel1: TPanel;
+    bCreateTestCustomer: TButton;
+    DBNavigator1: TDBNavigator;
+    BitBtn1: TBitBtn;
+    bCheckBalance: TButton;
+    Button1: TButton;
+    bApplyUpdates: TButton;
+    procedure BitBtn1Click(Sender: TObject);
+    procedure bCheckBalanceClick(Sender: TObject);
+    procedure bApplyUpdatesClick(Sender: TObject);
+    procedure bCreateTestCustomerClick(Sender: TObject);
+    procedure dtCustomersBeforeOpen(DataTable: TDADataTable);
+    procedure Button1Click(Sender: TObject);
+    procedure DBGrid1TitleClick(Column: TColumn);
+  private
+    fCustomersCol: string;
+    fCustomersSort: TDASortDirection;
+  end;
+
+var
+  StronglyTypedClientMainForm: TStronglyTypedClientMainForm;
+
+implementation
+
+{
+  The unit StronglyTypedLibrary_Intf.pas will be generated by the RemObjects preprocessor the first time you
+  compile your server application. Make sure to do that before trying to compile the client.
+
+  To invoke your server simply typecast your server to the name of the service interface like this:
+
+      (RORemoteService as IStronglyTypedService).Sum(1,2)
+}
+
+uses StronglyTypedLibrary_Intf, SampleSchemaClient_Intf, uBizCustomersClient,
+  StronglyTypedClientData;
+
+{$R *.dfm}
+
+procedure TStronglyTypedClientMainForm.BitBtn1Click(Sender: TObject);
+begin
+  with StronglyTypedClientDataModule do
+    dtCustomers.Active := not dtCustomers.Active;
+end;
+
+procedure TStronglyTypedClientMainForm.bCheckBalanceClick(Sender: TObject);
+var
+  balance: currency;
+begin
+  with (StronglyTypedClientDataModule.dtCustomers as IAdvancedCustomer) do begin
+    balance := CheckBalance; // <-- Custom method!
+
+    ShowMessage(CustomerID + ' has ' + FloatToStr(balance) + '$ in his account');
+  end;
+end;
+
+procedure TStronglyTypedClientMainForm.bApplyUpdatesClick(Sender: TObject);
+begin
+  try
+    StronglyTypedClientDataModule.dtCustomers.ApplyUpdates(TRUE);
+  except
+    with StronglyTypedClientDataModule.dtCustomers do begin
+      Close;
+      Open;
+    end;
+    raise;
+  end;
+end;
+
+procedure TStronglyTypedClientMainForm.bCreateTestCustomerClick(Sender: TObject);
+begin
+  with (StronglyTypedClientDataModule.dtCustomers as ICustomers) do begin
+    Insert;
+    CustomerID := 'ID' + IntToStr(RecordCount);
+    CompanyName := 'RemObjects Software, Inc.';
+    ContactName := 'Alex';
+
+    Post;
+  end;
+end;
+
+procedure TStronglyTypedClientMainForm.dtCustomersBeforeOpen(DataTable: TDADataTable);
+begin
+  StronglyTypedClientDataModule.dtCustomers.RemoteFetchEnabled := cbRemoteFetch.Checked;
+end;
+
+procedure TStronglyTypedClientMainForm.Button1Click(Sender: TObject);
+var
+  i: integer;
+begin
+  with (StronglyTypedClientDataModule.dtCustomers as IAdvancedCustomer) do begin
+    Insert;
+    CustomerID := 'ID' + IntToStr(RecordCount);
+    CompanyName := 'RemObjects Software, Inc.';
+    ContactName := 'Alex';
+    Post;
+
+    for i := 0 to Random(10) + 1 do begin
+      Orders.Insert;
+      Orders.EmployeeID := 1;
+      Orders.OrderDate := Now;
+      Orders.RequiredDate := Now + Random(4);
+      Orders.ShipVia := 1;
+      Orders.Post;
+    end;
+  end;
+end;
+
+procedure TStronglyTypedClientMainForm.DBGrid1TitleClick(Column: TColumn);
+var
+  dt: TDADataTable;
+begin
+  dt := TDADataSource(Column.Grid.DataSource).DataTable;
+
+  if not SameText(fCustomersCol, Column.FieldName) then begin
+    fCustomersCol := Column.FieldName;
+    fCustomersSort := sdAscending;
+  end
+  else begin
+    fCustomersSort := TDASortDirection(integer(fCustomersSort) xor 1);
+  end;
+
+  dt.Sort([fCustomersCol], [fCustomersSort]);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary.RODL
new file mode 100644
index 0000000..664a6c4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary.RODL	
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="StronglyTypedLibrary" UID="{1BBB15C7-1CF5-4C37-B9C8-323AFAF87EB6}" Version="3.0">
+<Services>
+<Service Name="StronglyTypedService" UID="{EEAE0EA8-3D32-4881-B782-C30A9316BB3F}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{E611C0CF-5A17-469F-B906-98AFF41C1D73}">
+<Documentation>
+<![CDATA[Service StronglyTypedService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]>
+</Documentation>
+<Operations>
+<Operation Name="CheckBalance" UID="{CC5D9F4B-B1E7-4CD8-BBF4-7EE39E4446A9}">
+<Parameters>
+<Parameter Name="Result" DataType="Currency" Flag="Result">
+</Parameter>
+<Parameter Name="CustomerID" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetOrders" UID="{00000000-0000-0000-0000-000000000000}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="CustomerID" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract4_RODL" UID="{9B132A6F-580C-4484-9907-F1F45CB6162B}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL">
+</Use></Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary_Intf.pas
new file mode 100644
index 0000000..1ca1f9a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary_Intf.pas	
@@ -0,0 +1,121 @@
+unit StronglyTypedLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{1BBB15C7-1CF5-4C37-B9C8-323AFAF87EB6}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IStronglyTypedService_IID : TGUID = '{E611C0CF-5A17-469F-B906-98AFF41C1D73}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IStronglyTypedService = interface;
+
+
+
+
+
+  { Enumerateds }
+
+  { IStronglyTypedService }
+  IStronglyTypedService = interface(IDataAbstractService)
+    ['{E611C0CF-5A17-469F-B906-98AFF41C1D73}']
+    function CheckBalance(const CustomerID: AnsiString): Currency;
+    function GetOrders(const CustomerID: AnsiString): Binary;
+  end;
+
+  { CoStronglyTypedService }
+  CoStronglyTypedService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IStronglyTypedService;
+  end;
+
+  { TStronglyTypedService_Proxy }
+  TStronglyTypedService_Proxy = class(TDataAbstractService_Proxy, IStronglyTypedService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function CheckBalance(const CustomerID: AnsiString): Currency;
+    function GetOrders(const CustomerID: AnsiString): Binary;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoStronglyTypedService }
+
+class function CoStronglyTypedService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IStronglyTypedService;
+begin
+  result := TStronglyTypedService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TStronglyTypedService_Proxy }
+
+function TStronglyTypedService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'StronglyTypedService';
+end;
+
+function TStronglyTypedService_Proxy.CheckBalance(const CustomerID: AnsiString): Currency;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'StronglyTypedLibrary', __InterfaceName, 'CheckBalance');
+    __Message.Write('CustomerID', TypeInfo(AnsiString), CustomerID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Currency), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TStronglyTypedService_Proxy.GetOrders(const CustomerID: AnsiString): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'StronglyTypedLibrary', __InterfaceName, 'GetOrders');
+    __Message.Write('CustomerID', TypeInfo(AnsiString), CustomerID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IStronglyTypedService_IID, TStronglyTypedService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IStronglyTypedService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary_Invk.pas
new file mode 100644
index 0000000..ce292a7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedLibrary_Invk.pas	
@@ -0,0 +1,95 @@
+unit StronglyTypedLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} StronglyTypedLibrary_Intf;
+
+type
+  TStronglyTypedService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_CheckBalance(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TStronglyTypedService_Invoker }
+
+constructor TStronglyTypedService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TStronglyTypedService_Invoker.Invoke_CheckBalance(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function CheckBalance(const CustomerID: AnsiString): Currency; }
+var
+  CustomerID: AnsiString;
+  lResult: Currency;
+begin
+  try
+    __Message.Read('CustomerID', TypeInfo(AnsiString), CustomerID, []);
+
+    lResult := (__Instance as IStronglyTypedService).CheckBalance(CustomerID);
+
+    __Message.InitializeResponseMessage(__Transport, 'StronglyTypedLibrary', 'StronglyTypedService', 'CheckBalanceResponse');
+    __Message.Write('Result', TypeInfo(Currency), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TStronglyTypedService_Invoker.Invoke_GetOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetOrders(const CustomerID: AnsiString): Binary; }
+var
+  CustomerID: AnsiString;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('CustomerID', TypeInfo(AnsiString), CustomerID, []);
+
+    lResult := (__Instance as IStronglyTypedService).GetOrders(CustomerID);
+
+    __Message.InitializeResponseMessage(__Transport, 'StronglyTypedLibrary', 'StronglyTypedService', 'GetOrdersResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.bdsproj
new file mode 100644
index 0000000..220fcb0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{28D0D7BA-820A-4E15-A7A3-5021E2B515F4}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">StronglyTypedServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.dpr
new file mode 100644
index 0000000..5e79582
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.dpr	
@@ -0,0 +1,25 @@
+program StronglyTypedServer;
+
+{#ROGEN:StronglyTypedLibrary.rodl} // RemObjects: Careful, do not remove!
+
+
+
+uses
+  uROComInit,
+  Forms,
+  StronglyTypedServerMain in 'StronglyTypedServerMain.pas' {StronglyTypedServerMainFoem},
+  StronglyTypedLibrary_Intf in 'StronglyTypedLibrary_Intf.pas',
+  StronglyTypedLibrary_Invk in 'StronglyTypedLibrary_Invk.pas',
+  StronglyTypedService_Impl in 'StronglyTypedService_Impl.pas' {StronglyTypedService: TDARemoteService},
+  SampleSchemaClient_Intf in 'SampleSchemaClient_Intf.pas',
+  SampleSchemaServer_Intf in 'SampleSchemaServer_Intf.pas',
+  uBizCustomersServer in 'uBizCustomersServer.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TStronglyTypedServerMainFoem, StronglyTypedServerMainFoem);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.dproj
new file mode 100644
index 0000000..2700fba
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{93d81d2c-638f-47b8-a46b-efb92ea95bcc}</ProjectGuid>
+    <MainSource>StronglyTypedServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>StronglyTypedServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">StronglyTypedServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="StronglyTypedServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="SampleSchemaClient_Intf.pas" />
+    <DCCReference Include="SampleSchemaServer_Intf.pas" />
+    <DCCReference Include="StronglyTypedLibrary_Intf.pas" />
+    <DCCReference Include="StronglyTypedLibrary_Invk.pas" />
+    <DCCReference Include="StronglyTypedServerMain.pas">
+      <Form>StronglyTypedServerMainFoem</Form>
+    </DCCReference>
+    <DCCReference Include="StronglyTypedService_Impl.pas">
+      <Form>StronglyTypedService</Form>
+    </DCCReference>
+    <DCCReference Include="uBizCustomersServer.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.res
new file mode 100644
index 0000000..7455d6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServerMain.dfm
new file mode 100644
index 0000000..b79bd82
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServerMain.dfm	
@@ -0,0 +1,69 @@
+object StronglyTypedServerMainFoem: TStronglyTypedServerMainFoem
+  Left = 87
+  Top = 224
+  BorderStyle = bsDialog
+  Caption = 'StronglyTyped server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Form1'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 14
+  object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+    Left = 5
+    Top = 5
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object ROMessage: TROBinMessage
+    Left = 36
+    Top = 8
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 8
+    Top = 8
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    AutoLoad = False
+    TraceActive = False
+    TraceFlags = []
+    Left = 64
+    Top = 8
+  end
+  object ConnectionManager: TDAConnectionManager
+    MaxPoolSize = 10
+    PoolTimeoutSeconds = 60
+    PoolBehaviour = pbWait
+    WaitIntervalSeconds = 1
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Description = 'Borland ADOExpress Connection'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 96
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServerMain.pas
new file mode 100644
index 0000000..2f1c92f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedServerMain.pas	
@@ -0,0 +1,39 @@
+unit StronglyTypedServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,  uROIndyTCPServer,
+  uDAClasses, uDADriverManager, uDAEngine, uDAADODriver,
+  uDAPoweredByDataAbstractButton;
+
+type
+  TStronglyTypedServerMainFoem = class(TForm)
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    DriverManager: TDADriverManager;
+    ConnectionManager: TDAConnectionManager;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  StronglyTypedServerMainFoem: TStronglyTypedServerMainFoem;
+
+implementation
+
+
+{$R *.dfm}
+
+procedure TStronglyTypedServerMainFoem.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedService_Impl.dfm
new file mode 100644
index 0000000..3cf4972
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedService_Impl.dfm	
@@ -0,0 +1,1092 @@
+object StronglyTypedService: TStronglyTypedService
+  OldCreateOrder = True
+  ConnectionName = 'ADO'
+  ServiceSchema = SampleSchema
+  ServiceDataStreamer = Streamer
+  ExportedDataTables = <>
+  Height = 300
+  Width = 300
+  object SampleSchema: TDASchema
+    ConnectionManager = StronglyTypedServerMainFoem.ConnectionManager
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'  FROM'#10' ' +
+              '   Orders'#10'  WHERE CustomerID=:CustomerID'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'CompanyName'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'ContactName'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'ContactTitle'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Address'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'City'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Region'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'PostalCode'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Country'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Phone'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'Fax'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end
+          item
+            Name = 'TestNumeric'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'INSERT'#10'  INTO Customers'#10'    (CustomerID, CompanyName, ContactNam' +
+              'e, ContactTitle, Address, City, Region, PostalCode, Country, Pho' +
+              'ne, Fax, TestNumeric)'#10'  VALUES'#10'    (:CustomerID, :CompanyName, :' +
+              'ContactName, :ContactTitle, :Address, :City, :Region, :PostalCod' +
+              'e, :Country, :Phone, :Fax, :TestNumeric)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_CustomerID'
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptUnknown
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'DELETE '#10'  FROM'#10'    Customers'#10'  WHERE'#10'    (CustomerID = :OLD_Cust' +
+              'omerID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactName'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'Address'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'City'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'Region'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'Country'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'Phone'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'Fax'
+            DataType = datString
+            Size = 24
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'OLD_CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'UPDATE Customers'#10'  SET'#10'    CustomerID = :CustomerID,'#10'    Company' +
+              'Name = :CompanyName,'#10'    ContactName = :ContactName,'#10'    Contact' +
+              'Title = :ContactTitle,'#10'    Address = :Address,'#10'    City = :City,' +
+              #10'    Region = :Region,'#10'    PostalCode = :PostalCode,'#10'    Country' +
+              ' = :Country,'#10'    Phone = :Phone,'#10'    Fax = :Fax'#10'  WHERE'#10'    (Cus' +
+              'tomerID = :OLD_CustomerID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Customers'
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 
+              'INSERT'#10'  INTO Orders'#10'    (CustomerID, EmployeeID, OrderDate, Req' +
+              'uiredDate, ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' ShipCity, ShipRegion, ShipPostalCode, ShipCountry)'#10'  VALUES'#10'   ' +
+              ' (:CustomerID, :EmployeeID, :OrderDate, :RequiredDate, :ShippedD' +
+              'ate, :ShipVia, :Freight, :ShipName, :ShipAddress, :ShipCity, :Sh' +
+              'ipRegion, :ShipPostalCode, :ShipCountry)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Orders'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 'DELETE '#10'  FROM'#10'    Orders'#10'  WHERE'#10'    (OrderID = :OLD_OrderID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Orders'
+      end
+      item
+        Params = <
+          item
+            Name = 'CustomerID'
+            DataType = datString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipName'
+            DataType = datString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end
+          item
+            Name = 'OLD_OrderID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 
+              'UPDATE Orders'#10'  SET '#10'    CustomerID = :CustomerID,'#10'    EmployeeI' +
+              'D = :EmployeeID, '#10'    OrderDate = :OrderDate, '#10'    RequiredDate ' +
+              '= :RequiredDate, '#10'    ShippedDate = :ShippedDate, '#10'    ShipVia =' +
+              ' :ShipVia, '#10'    Freight = :Freight, '#10'    ShipName = :ShipName, '#10 +
+              '    ShipAddress = :ShipAddress, '#10'    ShipCity = :ShipCity, '#10'    ' +
+              'ShipRegion = :ShipRegion, '#10'    ShipPostalCode = :ShipPostalCode,' +
+              ' '#10'    ShipCountry = :ShipCountry'#10'  WHERE'#10'    (OrderID = :OLD_Ord' +
+              'erID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Orders'
+      end>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 128
+    Top = 58
+  end
+  object CustomersProcessor: TDABusinessProcessor
+    Schema = SampleSchema
+    ReferencedDataset = 'Customers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    BusinessRulesID = 'ServerRules.Customers'
+    Left = 42
+    Top = 8
+  end
+  object OrdersProcessor: TDABusinessProcessor
+    Schema = SampleSchema
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 42
+    Top = 58
+  end
+  object Streamer: TDABin2DataStreamer
+    BufferSize = 262144
+    SendReducedDelta = False
+    Left = 128
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedService_Impl.pas
new file mode 100644
index 0000000..6842020
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/StronglyTypedService_Impl.pas	
@@ -0,0 +1,84 @@
+unit StronglyTypedService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} StronglyTypedLibrary_Intf, uDAScriptingProvider,
+  uDABusinessProcessor, uDADataStreamer,uDAClasses,uDAinterfaces,uDADelta,
+  uDABin2DataStreamer;
+
+
+const
+  { Dataset names for SampleSchema }
+  ds_Customers = 'Customers';
+  ds_Orders = 'Orders';
+
+  { Command names for SampleSchema }
+  cmd_Insert_Customers = 'Insert_Customers';
+  cmd_Delete_Customers = 'Delete_Customers';
+  cmd_Update_Customers = 'Update_Customers';
+  cmd_Insert_Orders = 'Insert_Orders';
+  cmd_Delete_Orders = 'Delete_Orders';
+  cmd_Update_Orders = 'Update_Orders';
+
+type
+  { TStronglyTypedService }
+  TStronglyTypedService = class(TDataAbstractService, IStronglyTypedService)
+    CustomersProcessor: TDABusinessProcessor;
+    OrdersProcessor: TDABusinessProcessor;
+    SampleSchema: TDASchema;
+    Streamer: TDABin2DataStreamer;
+  private
+  protected
+    { IStronglyTypedService methods }
+    function CheckBalance(const CustomerID: AnsiString): Currency;
+    function GetOrders(const CustomerID: AnsiString): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} StronglyTypedLibrary_Invk,StronglyTypedServerMain;
+
+procedure Create_StronglyTypedService(out anInstance : IUnknown);
+begin
+  anInstance := TStronglyTypedService.Create(NIL);
+end;
+
+{ TStronglyTypedService }
+
+function TStronglyTypedService.CheckBalance(
+  const CustomerID: AnsiString): Currency;
+begin
+  if (CustomerID='ALFKI') then result := 100000 else result := 8000;
+end;
+
+function TStronglyTypedService.GetOrders(const CustomerID: AnsiString): Binary;
+var
+  orders: IDADataset;
+begin
+  orders := SampleSchema.NewDataset(Connection, ds_Orders, ['CustomerID'], [CustomerID]);
+  Result:=Binary.Create;
+  Streamer.Initialize(result, aiWrite);
+  Streamer.WriteDataset(orders, [woRows], -1);
+  Streamer.Finalize;
+end;
+
+initialization
+  TROClassFactory.Create('StronglyTypedService', Create_StronglyTypedService, TStronglyTypedService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/uBizCustomersClient.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/uBizCustomersClient.pas
new file mode 100644
index 0000000..b342af1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/uBizCustomersClient.pas	
@@ -0,0 +1,209 @@
+unit uBizCustomersClient;
+
+{
+  This unit contains the business rules handlers for the client application.
+
+  The simplest possible implementation just overrides the methods inherited
+  from TDADataTableRules (i.e. AfterInsert, BeforePost).
+
+  More sophisticated ones instead add additional behaviour and even make it accessible
+  from outside units (i.e. a form or a data module hosting a TDADataTable).
+
+  TBizCustomersClientRules shows an example of both possibilities by overriding a few event
+  handlers and adding support for the interface IAdvancedCustomer.
+
+  Adding interfaces like IAdvancedCustomer is not required to implement extra functionality that is
+  only accessed in the context of a business rule class/unit. You obviously can add any method you want to
+  classes like TBizCustomersClientRules and reference them from other methods in order to make them
+  more "object oriented" (see DummTest below).
+  But when you need to access this functionality from the outside world you need to define an
+  "access contract" via an interface. You can then treat TDADataTables as IAdvancedCustomer (or
+  whatever other interface you decide to create) by simply using the VCL function Supports.
+  See an example of this in the unit fClientForm.pas, method bCheckBalanceClick
+
+  Note: TDADataTable also allows you to access the instance of TBizCustomersClientRules via the
+        property BusinessRules. You could also type cast that property to TBizCustomersClientRules but
+        in general, the interface approach is cleaner and more elegant.
+}
+
+interface
+
+uses
+  Classes, SysUtils,
+  uDADataTable, SampleSchemaClient_Intf,
+  uDAInterfaces, SampleSchemaServer_Intf,
+  StronglyTypedLibrary_Intf; // Not really required. Just for the IDefaultROIntfServer example below
+
+type
+  { IAdvancedCustomer }
+  IAdvancedCustomer = interface(ICustomers)
+  ['{BDB203DC-954B-4D78-A446-B1E2232BEF71}']
+    function GetOrders : IOrders;
+
+    function CheckBalance : currency;
+    procedure DisableAccount;
+
+    property Orders : IOrders read GetOrders;
+  end;
+
+  { TBizCustomersClientRules }
+  TBizCustomersClientRules = class(TCustomersDataTableRules, IAdvancedCustomer)
+  private
+
+  protected
+    // Business events
+    procedure AfterInsert(Sender : TDADataTable); override;
+    procedure BeforeDelete(Sender : TDADataTable);  override;
+    procedure BeforePost(Sender : TDADataTable);  override;
+
+    // IAdvancedCustomer
+    function CheckBalance : currency;
+    procedure DisableAccount;
+    function GetOrders : IOrders;
+  end;
+
+  { TBizOrdersClientRules }
+  TBizOrdersClientRules = class(TOrdersDataTableRules)
+  protected
+    procedure OnNewRecord(Sender: TDADataTable); override;
+    procedure BeforePost(Sender : TDADataTable); override;
+  end;
+
+  { TBizCustomerIDRules }
+  TBizCustomerIDRules = class(TDAFieldRules)
+  private
+  protected
+    procedure OnValidate(Sender: TDACustomField); override;
+    procedure OnChange(Sender: TDACustomField); override;
+
+  end;
+
+
+{ General validation routine shared by client and server }
+procedure ValidateCustomer(const aCustomers : ICustomers);
+
+implementation
+uses uDARemoteDataAdapter;
+const
+  def_CompanyName = 'New Company';
+  def_ContactName = '<Unknown>';
+
+{ General validation routine shared by client and server }
+procedure ValidateCustomer(const aCustomers : ICustomers);
+var errors : string;
+begin
+  errors := '';
+  with aCustomers do begin
+    if (Trim(CustomerID)='') then errors := errors+'CustomerID cannot be empty'+#13;
+    if (Trim(CompanyName)='') then errors := errors+'CompanyName is required'+#13;
+
+    if (errors<>'')
+      then raise EDABizValidationException.Create(errors);
+  end;
+end;
+
+procedure ValidateOrder(const aOrder : IOrders);
+var errors : string;
+begin
+  errors := '';
+
+  with aOrder do begin
+    if (Trim(CustomerID)='') then errors := errors+'An order must have a CustomerID'+#13;
+
+    if (EmployeeID<=0) // 0 also covers NULL in the conversion of AsInteger
+      then errors := errors+'Invalid or unspecified EmployeeID'+#13;
+
+    if (errors<>'')
+      then raise EDABizValidationException.Create(errors);
+  end;
+end;
+
+{ TBizCustomersClientRules }
+procedure TBizCustomersClientRules.AfterInsert(Sender : TDADataTable);
+begin
+  inherited;
+
+  CustomerID := IntToStr(DataTable.RecordCount);
+  CompanyName := def_CompanyName;
+  ContactName := def_ContactName;
+end;
+
+procedure TBizCustomersClientRules.BeforeDelete(Sender : TDADataTable);
+begin
+  inherited;
+end;
+
+procedure TBizCustomersClientRules.BeforePost(Sender : TDADataTable);
+begin
+  inherited;
+
+  ValidateCustomer(Self);
+end;
+
+function TBizCustomersClientRules.CheckBalance: currency;
+begin
+  {
+    A simple example of how to invoke remote service using the referenced RemoteService.
+    Nothing prevents you to add an interface which takes a TRORemoteService as parameter or even
+    an IxxxService interface. Possibilities are endless!
+  }
+  result := (TDARemoteDataAdapter(DataTable.RemoteDataAdapter).RemoteService as IStronglyTypedService).CheckBalance(CustomerID)
+end;
+
+procedure TBizCustomersClientRules.DisableAccount;
+begin
+  // This is just for demonstration purposes and completeness.
+  Beep;
+end;
+
+function TBizCustomersClientRules.GetOrders: IOrders;
+begin
+  {
+    Provides access to the detail datatable which points to Orders.
+    Detail access depends on the client module/form. Not all might support or require
+    the use of this property. An exception is raised at runtime by DetailByName
+    if the detail table was never actually linked.
+  }
+
+  result := DetailByName(nme_Orders) as IOrders;
+end;
+
+{ TBizOrdersClientRules }
+
+procedure TBizOrdersClientRules.BeforePost(Sender: TDADataTable);
+begin
+  inherited;
+  ValidateOrder(Self);
+end;
+
+procedure TBizOrdersClientRules.OnNewRecord(Sender: TDADataTable);
+begin
+  with (DataTable.GetMasterDataTable as ICustomers) do begin
+    if (CustomerID='ALFKI')
+      then raise EDABizValidationException.Create('You cannot add orders to ALFKI');
+  end;
+end;
+
+{ TBizCustomerIDRules }
+
+procedure TBizCustomerIDRules.OnChange(Sender: TDACustomField);
+var i : integer;
+    lCurrVal : string;
+begin
+  lCurrVal := Sender.AsString;
+  for i := 1 to Length(lCurrVal) do
+    if not (lCurrVal[i] in ['a'..'z', 'A'..'Z', '0'..'9'])
+      then raise EDABizValidationException.Create('Invalid character');
+end;
+
+procedure TBizCustomerIDRules.OnValidate(Sender: TDACustomField);
+begin
+  beep;
+end;
+
+initialization
+  RegisterDataTableRules('ClientRules.Customers', TBizCustomersClientRules);
+  RegisterDataTableRules('ClientRules.Orders', TBizOrdersClientRules);
+  RegisterFieldRules('CustomerID', TBizCustomerIDRules);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/uBizCustomersServer.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/uBizCustomersServer.pas
new file mode 100644
index 0000000..5f22864
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/Strongly Typed/uBizCustomersServer.pas	
@@ -0,0 +1,60 @@
+unit uBizCustomersServer;
+
+{
+  This unit contains the business rules handlers for the server application.
+
+  It enforces additional rules that might change over time. This is a good example
+  to show the advantages of a multi-tier architecture: systems can be updated in a
+  matter of a server re-deploy without the need to update any client.
+
+  It's important to notice how some business rules are shared among clients and servers.
+  In particular, Customer validation is done by calling the function ValidateCustomers
+  (from uBizCustomersClient.pas). This is not a requirement but a highly adviceable
+  practice, expecially when your system is accessed by clients that were not developed by
+  you (i.e. Java clients accessing your server through SOAP).
+
+  For additional topics such as how to extend the business functionality adding custom
+  interfaces, refer to the comments in the unit uBizCustomersClient.pas
+}
+
+interface
+
+uses
+  Classes, SysUtils,
+  uDADataTable,uDADelta,
+  uBizCustomersClient, uDAInterfaces,
+  uDABusinessProcessor, SampleSchemaServer_Intf;
+
+type
+  { TBizCustomerServerRules }
+  TBizCustomerServerRules = class(TCustomersBusinessProcessorRules)
+  protected
+    // Business events
+    procedure BeforeProcessChange(Sender : TDABusinessProcessor; aChangeType : TDAChangeType;
+                                    aChange : TDADeltaChange; var ProcessChange : boolean); override;
+  end;
+
+implementation
+
+{ TBizCustomerServerRules }
+
+procedure TBizCustomerServerRules.BeforeProcessChange(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; var ProcessChange: boolean);
+begin
+  inherited;
+  if (aChangeType<>ctDelete) then  ValidateCustomer(Self);
+
+  // Sort of a strong rule but it's just to make a point that server side business
+  // rules might enforce stronger rules than clients.
+
+  if (aChangeType=ctInsert) and not SameText(ContactName, 'Alex')
+    then raise Exception.Create('Cannot process an update without Alex as ContactName');
+
+  ContactTitle := TimeToStr(Now);
+end;
+
+initialization
+  RegisterBusinessProcessorRules('ServerRules.Customers', TBizCustomerServerRules);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersHTML.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersHTML.html
new file mode 100644
index 0000000..cd41181
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersHTML.html differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersToHTML.xsl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersToHTML.xsl
new file mode 100644
index 0000000..8107a83
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersToHTML.xsl	
@@ -0,0 +1,35 @@
+<?xml version='1.0' encoding='utf-8'?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> 
+<xsl:output method="html"/> <xsl:template match="/"> 
+<html>
+<head/>
+<body>
+<xsl:for-each select="XMLData/Datasets/Customers/Row"> 
+<p> <strong> 
+<table width="651" border="1" style="; width: 651px; height: 27px">
+  <tbody>
+    <tr> 
+      <td width="10%"> <img align="baseline" src="DALogo.png" border="0" hspace="0"/> 
+      </td>
+      <td width="90%"> <p> 
+          <strong>Customer: </strong> <xsl:value-of select="@CustomerID"/>,&#32; 
+          <xsl:value-of select="@CompanyName"/>,&#32; 
+          <xsl:value-of select="@ContactName"/>,&#32; 
+          <xsl:value-of select="@ContactTitle"/> </p>
+        <p> 
+          <strong>Address:</strong> <xsl:value-of select="@Address"/>,&#32; 
+          <strong> City:</strong> <xsl:value-of select="@City"/>,&#32; 
+          <xsl:value-of select="@Region"/>,&#32; 
+          <xsl:value-of select="@Country"/>,&#32; 
+          <xsl:value-of select="@PostalCode"/> </p>
+        <p> 
+            <strong>Phone:</strong> <xsl:value-of select="@Phone"/> 
+            <strong>Fax:</strong> <xsl:value-of select="@Fax"/> 
+        </p></td>
+    </tr>
+  </tbody>
+</table>
+</strong> </p> </xsl:for-each> 
+</body>
+</html>
+</xsl:template> </xsl:stylesheet>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersToSimpleXML.xsl b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersToSimpleXML.xsl
new file mode 100644
index 0000000..902b170
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/CustomersToSimpleXML.xsl	
@@ -0,0 +1,23 @@
+<?xml version='1.0' encoding='utf-8'?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+  <xsl:output method="html"/>
+  <xsl:template match="/">
+    <CustomerList>
+        <xsl:for-each select="XMLData/Datasets/Customers/Row">
+            <Customer>
+               (<xsl:value-of select="@CustomerID"/>)
+        	<xsl:value-of select="@CompanyName"/>,&#32;              
+		<xsl:value-of select="@ContactName"/>,&#32;                      	
+  	        <xsl:value-of select="@ContactTitle"/>&#32;
+            </Customer>
+            <Address>
+              <xsl:value-of select="@Address"/>&#32;
+              <xsl:value-of select="@City"/>,&#32;
+              <xsl:value-of select="@Region"/>&#32;                            
+              <xsl:value-of select="@PostalCode"/>&#32;
+              <xsl:value-of select="@Country"/>             
+            </Address>
+        </xsl:for-each>
+    </CustomerList>
+  </xsl:template>
+</xsl:stylesheet>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/DALogo.png b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/DALogo.png
new file mode 100644
index 0000000..54892ce
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/DALogo.png differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/Temp.xml b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/Temp.xml
new file mode 100644
index 0000000..d45748e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/Temp.xml	
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="utf-8"?>
+<XMLData><Schema><Deltas><Customers><LoggedFields><Field Name="CustomerID" DataType="datWideString"/><Field Name="CompanyName" DataType="datWideString"/><Field Name="ContactName" DataType="datWideString"/><Field Name="ContactTitle" DataType="datWideString"/><Field Name="Address" DataType="datWideString"/><Field Name="City" DataType="datWideString"/><Field Name="Region" DataType="datWideString"/><Field Name="PostalCode" DataType="datWideString"/><Field Name="Country" DataType="datWideString"/><Field Name="Phone" DataType="datWideString"/><Field Name="Fax" DataType="datWideString"/></LoggedFields><KeyFields><Field Name="CustomerID"/></KeyFields></Customers><Orders><LoggedFields><Field Name="OrderID" DataType="datInteger"/><Field Name="CustomerID" DataType="datWideString"/><Field Name="EmployeeID" DataType="datInteger"/><Field Name="OrderDate" DataType="datDateTime"/><Field Name="RequiredDate" DataType="datDateTime"/><Field Name="ShippedDate" DataType="datDateTime"/><Field Name="ShipVia" DataType="datInteger"/><Field Name="Freight" DataType="datFloat"/><Field Name="ShipName" DataType="datWideString"/><Field Name="ShipAddress" DataType="datWideString"/><Field Name="ShipCity" DataType="datWideString"/><Field Name="ShipRegion" DataType="datWideString"/><Field Name="ShipPostalCode" DataType="datWideString"/><Field Name="ShipCountry" DataType="datWideString"/></LoggedFields><KeyFields><Field Name="OrderID"/></KeyFields></Orders></Deltas></Schema><Deltas><Customers><Row><RecID>17</RecID><ChangeType>ctInsert</ChangeType><Status>csPending</Status><Message></Message><OldValues CustomerID="JONSM" CompanyName="" ContactName="" ContactTitle="" Address="" City="" Region="" PostalCode="" Country="" Phone="" Fax=""/><NewValues CustomerID="JONSM" CompanyName="JohnSmith&amp;Co" ContactName="John Smith" ContactTitle="Owner" Address="202 North Lake Drive" City="Barrington" Region="IL" PostalCode="60010" Country="USA" Phone="847 389 2112" Fax="847 389 2115"/></Row><Row><RecID>18</RecID><ChangeType>ctInsert</ChangeType><Status>csPending</Status><Message></Message><OldValues CustomerID="JACDO" CompanyName="" ContactName="" ContactTitle="" Address="" City="" Region="" PostalCode="" Country="" Phone="" Fax=""/><NewValues CustomerID="JACDO" CompanyName="JackDohrn Ltd" ContactName="Jack Dohrn" ContactTitle="Owner" Address="32 Manhattan Lane" City="Hoffman Estates" Region="IL" PostalCode="60074" Country="USA" Phone="847 221 3221" Fax="842 221 3221"/></Row></Customers><Orders><Row><RecID>125</RecID><ChangeType>ctInsert</ChangeType><Status>csPending</Status><Message></Message><OldValues OrderID="60000" CustomerID="" EmployeeID="" OrderDate="1899-12-30T00:00:00.000" RequiredDate="1899-12-30T00:00:00.000" ShippedDate="1899-12-30T00:00:00.000" ShipVia="" Freight="0" ShipName="" ShipAddress="" ShipCity="" ShipRegion="" ShipPostalCode="" ShipCountry=""/><NewValues OrderID="60000" CustomerID="JONSM" EmployeeID="5" OrderDate="2006-04-24T00:00:00.000" RequiredDate="2006-05-24T00:00:00.000" ShippedDate="2006-05-09T00:00:00.000" ShipVia="1" Freight="73.23" ShipName="QUICK-Stop" ShipAddress="Taucherstrabe 10" ShipCity="Rio de Janeiro" ShipRegion="RJ" ShipPostalCode="50739" ShipCountry="Brazil"/></Row><Row><RecID>126</RecID><ChangeType>ctInsert</ChangeType><Status>csPending</Status><Message></Message><OldValues OrderID="60001" CustomerID="" EmployeeID="" OrderDate="1899-12-30T00:00:00.000" RequiredDate="1899-12-30T00:00:00.000" ShippedDate="1899-12-30T00:00:00.000" ShipVia="" Freight="0" ShipName="" ShipAddress="" ShipCity="" ShipRegion="" ShipPostalCode="" ShipCountry=""/><NewValues OrderID="60001" CustomerID="JONSM" EmployeeID="2" OrderDate="2006-05-09T00:00:00.000" RequiredDate="2006-05-24T00:00:00.000" ShippedDate="2006-05-19T00:00:00.000" ShipVia="1" Freight="22.45" ShipName="LINO-Delicateses" ShipAddress="2743 Bering St." ShipCity="Rio de Janeiro" ShipRegion="RJ" ShipPostalCode="50700" ShipCountry="Brazil"/></Row><Row><RecID>127</RecID><ChangeType>ctInsert</ChangeType><Status>csPending</Status><Message></Message><OldValues OrderID="60002" CustomerID="" EmployeeID="" OrderDate="1899-12-30T00:00:00.000" RequiredDate="1899-12-30T00:00:00.000" ShippedDate="1899-12-30T00:00:00.000" ShipVia="" Freight="0" ShipName="" ShipAddress="" ShipCity="" ShipRegion="" ShipPostalCode="" ShipCountry=""/><NewValues OrderID="60002" CustomerID="JACDO" EmployeeID="5" OrderDate="2006-04-24T00:00:00.000" RequiredDate="2006-05-14T00:00:00.000" ShippedDate="2006-05-04T00:00:00.000" ShipVia="1" Freight="45673.29" ShipName="Save-a-lot Markets" ShipAddress="Torikatu 38" ShipCity="Rio de Janeiro" ShipRegion="RJ" ShipPostalCode="50759" ShipCountry="Brazil"/></Row><Row><RecID>128</RecID><ChangeType>ctInsert</ChangeType><Status>csPending</Status><Message></Message><OldValues OrderID="60003" CustomerID="" EmployeeID="" OrderDate="1899-12-30T00:00:00.000" RequiredDate="1899-12-30T00:00:00.000" ShippedDate="1899-12-30T00:00:00.000" ShipVia="" Freight="0" ShipName="" ShipAddress="" ShipCity="" ShipRegion="" ShipPostalCode="" ShipCountry=""/><NewValues OrderID="60003" CustomerID="JACDO" EmployeeID="2" OrderDate="2006-04-24T00:00:00.000" RequiredDate="2006-05-04T00:00:00.000" ShippedDate="2006-04-26T00:00:00.000" ShipVia="1" Freight="722.23" ShipName="Bottom-Dollar Markets" ShipAddress="Fauntleroy Circus" ShipCity="Rio de Janeiro" ShipRegion="RJ" ShipPostalCode="50730" ShipCountry="Brazil"/></Row></Orders></Deltas></XMLData>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.Sample.html
new file mode 100644
index 0000000..23bffb0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.Sample.html	
@@ -0,0 +1,31 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>XSLT Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+This example shows how to import dataset data into an .xml file by using the <b>TDAXmlDataStreamer</b>. 
+Exporting dataset changes to an .xml file is also shown.<br>
+</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   See the simple code in <b>XSLTMain.pas</b>.
+	</li>
+</ul>
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.bdsproj
new file mode 100644
index 0000000..5f2c59c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{2D7C9DF9-94DC-4157-A8B6-45101037D1B3}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">XSLT.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.dpr
new file mode 100644
index 0000000..672dbce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.dpr	
@@ -0,0 +1,14 @@
+program XSLT;
+
+uses
+  Forms,
+  XSLTMain in 'XSLTMain.pas' {XSLTMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'XSLT Sample';
+  Application.CreateForm(TXSLTMainForm, XSLTMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.dproj
new file mode 100644
index 0000000..1e11317
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{eb5321d8-fcb7-4e0d-a61b-0469d08bc4e3}</ProjectGuid>
+    <MainSource>XSLT.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>XSLT.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">XSLT.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="XSLT.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="XSLTMain.pas">
+      <Form>XSLTMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.res
new file mode 100644
index 0000000..b946fbb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLT.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLTMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLTMain.dfm
new file mode 100644
index 0000000..9063f8e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLTMain.dfm	
@@ -0,0 +1,1110 @@
+object XSLTMainForm: TXSLTMainForm
+  Left = 327
+  Top = 205
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'XSLT Sample'
+  ClientHeight = 402
+  ClientWidth = 456
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object PageControl: TPageControl
+    Left = 0
+    Top = 34
+    Width = 456
+    Height = 368
+    ActivePage = tsXML
+    Align = alCustom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    TabIndex = 0
+    TabOrder = 4
+    object tsXML: TTabSheet
+      Caption = 'XML'
+      object WebBrowser: TWebBrowser
+        Left = 0
+        Top = 0
+        Width = 448
+        Height = 340
+        Align = alClient
+        TabOrder = 0
+        ControlData = {
+          4C0000004D2E0000242300000000000000000000000000000000000000000000
+          000000004C000000000000000000000001000000E0D057007335CF11AE690800
+          2B2E126208000000000000004C0000000114020000000000C000000000000046
+          8000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000100000000000000000000000000000000000000}
+      end
+    end
+    object tsGrid: TTabSheet
+      Caption = 'Grid'
+      ImageIndex = 1
+      object Splitter2: TSplitter
+        Left = 0
+        Top = 152
+        Width = 448
+        Height = 3
+        Cursor = crVSplit
+        Align = alBottom
+      end
+      object gCustomers: TDBGrid
+        Left = 0
+        Top = 0
+        Width = 448
+        Height = 152
+        Align = alClient
+        DataSource = dsCustomers
+        TabOrder = 0
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+      object gOrders: TDBGrid
+        Left = 0
+        Top = 155
+        Width = 448
+        Height = 185
+        Align = alBottom
+        DataSource = dsOrders
+        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        TitleFont.Style = []
+      end
+    end
+  end
+  object GetDataButton: TButton
+    Left = 2
+    Top = 4
+    Width = 75
+    Height = 25
+    Caption = 'Get Data'
+    TabOrder = 0
+    OnClick = GetDataButtonClick
+  end
+  object GenerateDeltaButton: TButton
+    Left = 80
+    Top = 4
+    Width = 120
+    Height = 25
+    Caption = 'Generate Delta XML'
+    TabOrder = 1
+    OnClick = GenerateDeltaButtonClick
+  end
+  object XSLTTransformationButton: TButton
+    Left = 202
+    Top = 4
+    Width = 131
+    Height = 25
+    Caption = 'XSLT Transformation'
+    TabOrder = 2
+    OnClick = XSLTTransformationButtonClick
+  end
+  object GenerateHTMLButton: TButton
+    Left = 336
+    Top = 4
+    Width = 106
+    Height = 25
+    Caption = 'Generate HTML'
+    TabOrder = 3
+    OnClick = XSLTTransformationButtonClick
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 274
+    Top = 176
+  end
+  object ConnectionManager: TDAConnectionManager
+    Connections = <
+      item
+        Name = 'ADO'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=Northwind;Integrated Security=SSPI;'
+        Default = True
+        Tag = 0
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = True
+    Left = 304
+    Top = 176
+  end
+  object ADODriver: TDAADODriver
+    Left = 333
+    Top = 176
+  end
+  object Schema: TDASchema
+    ConnectionManager = ConnectionManager
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Customers'
+            SQL = 
+              'SELECT '#10'    CustomerID, CompanyName, ContactName, ContactTitle, ' +
+              #10'    Address, City, Region, PostalCode, Country, Phone, '#10'    Fax' +
+              #10'  FROM'#10'    Customers'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'CompanyName'
+                TableField = 'CompanyName'
+              end
+              item
+                DatasetField = 'ContactName'
+                TableField = 'ContactName'
+              end
+              item
+                DatasetField = 'ContactTitle'
+                TableField = 'ContactTitle'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'City'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'Region'
+                TableField = 'Region'
+              end
+              item
+                DatasetField = 'PostalCode'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'Country'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Fax'
+                TableField = 'Fax'
+              end>
+          end>
+        Name = 'Customers'
+        Fields = <
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CompanyName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactName'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ContactTitle'
+            DataType = datWideString
+            Size = 30
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'City'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Region'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'PostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Country'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Fax'
+            DataType = datWideString
+            Size = 24
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
+      item
+        Params = <
+          item
+            Name = 'customerid'
+            DataType = datWideString
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            Value = ''
+            ParamType = daptUnknown
+          end>
+        Statements = <
+          item
+            Connection = 'ADO'
+            TargetTable = 'Orders'
+            SQL = 
+              'SELECT '#10'    OrderID, CustomerID, EmployeeID, OrderDate, Required' +
+              'Date, '#10'    ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
+              ' '#10'    ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'  FROM'#10' ' +
+              '   Orders'#10'  where'#10'    customerid = :customerid'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderID'
+                TableField = 'OrderID'
+              end
+              item
+                DatasetField = 'CustomerID'
+                TableField = 'CustomerID'
+              end
+              item
+                DatasetField = 'EmployeeID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'RequiredDate'
+                TableField = 'RequiredDate'
+              end
+              item
+                DatasetField = 'ShippedDate'
+                TableField = 'ShippedDate'
+              end
+              item
+                DatasetField = 'ShipVia'
+                TableField = 'ShipVia'
+              end
+              item
+                DatasetField = 'Freight'
+                TableField = 'Freight'
+              end
+              item
+                DatasetField = 'ShipName'
+                TableField = 'ShipName'
+              end
+              item
+                DatasetField = 'ShipAddress'
+                TableField = 'ShipAddress'
+              end
+              item
+                DatasetField = 'ShipCity'
+                TableField = 'ShipCity'
+              end
+              item
+                DatasetField = 'ShipRegion'
+                TableField = 'ShipRegion'
+              end
+              item
+                DatasetField = 'ShipPostalCode'
+                TableField = 'ShipPostalCode'
+              end
+              item
+                DatasetField = 'ShipCountry'
+                TableField = 'ShipCountry'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CustomerID'
+            DataType = datWideString
+            Size = 5
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'EmployeeID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'RequiredDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShippedDate'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipVia'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'Freight'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipName'
+            DataType = datWideString
+            Size = 40
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipAddress'
+            DataType = datWideString
+            Size = 60
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCity'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipRegion'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipPostalCode'
+            DataType = datWideString
+            Size = 10
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ShipCountry'
+            DataType = datWideString
+            Size = 15
+            BlobType = dabtUnknown
+            DecimalPrecision = 0
+            DecimalScale = 0
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            ServerCalculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 362
+    Top = 177
+  end
+  object XMLAdapter: TDAXmlDataStreamer
+    SchemaOptions = [soIncludeEmptyAttributes]
+    RowOptions = []
+    Options = [xaoUseDatasetXSLTs, xaoUseDeltaXSLTs]
+    Left = 245
+    Top = 176
+  end
+  object dtCustomers: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CompanyName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactName'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ContactTitle'
+        DataType = datWideString
+        Size = 30
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Address'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'City'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Region'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'PostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Country'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Phone'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Fax'
+        DataType = datWideString
+        Size = 24
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    LocalSchema = Schema
+    LocalDataStreamer = DAXmlDataStreamer
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Customers'
+    IndexDefs = <>
+    Left = 43
+    Top = 115
+  end
+  object dsCustomers: TDADataSource
+    DataSet = dtCustomers.Dataset
+    DataTable = dtCustomers
+    Left = 52
+    Top = 128
+  end
+  object dtOrders: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'OrderID'
+        DataType = datAutoInc
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = True
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CustomerID'
+        DataType = datWideString
+        Size = 5
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'EmployeeID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OrderDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'RequiredDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShippedDate'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipVia'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'Freight'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipName'
+        DataType = datWideString
+        Size = 40
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipAddress'
+        DataType = datWideString
+        Size = 60
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCity'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipRegion'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipPostalCode'
+        DataType = datWideString
+        Size = 10
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ShipCountry'
+        DataType = datWideString
+        Size = 15
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        ServerCalculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'customerid'
+        DataType = datWideString
+        BlobType = dabtUnknown
+        DecimalPrecision = 0
+        DecimalScale = 0
+        Value = ''
+        ParamType = daptUnknown
+      end>
+    MasterParamsMappings.Strings = (
+      'customerid=CustomerID')
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    ReadOnly = False
+    LocalSchema = Schema
+    LocalDataStreamer = DAXmlDataStreamer
+    MasterSource = dsCustomers
+    MasterFields = 'CustomerID'
+    DetailFields = 'CustomerID'
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Orders'
+    IndexDefs = <>
+    Left = 98
+    Top = 115
+  end
+  object dsOrders: TDADataSource
+    DataSet = dtOrders.Dataset
+    DataTable = dtOrders
+    Left = 106
+    Top = 128
+  end
+  object DAXmlDataStreamer: TDAXmlDataStreamer
+    SchemaOptions = [soIncludeEmptyAttributes]
+    RowOptions = []
+    Options = [xaoUseDatasetXSLTs, xaoUseDeltaXSLTs]
+    Left = 76
+    Top = 162
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLTMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLTMain.pas
new file mode 100644
index 0000000..ce4c8c4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Old/XSLT/XSLTMain.pas	
@@ -0,0 +1,187 @@
+unit XSLTMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, uDADataTable, uDAXMLAdapter, uDAClasses,
+  uDADriverManager, uDAEngine, uDAADODriver, Spin, Buttons, OleCtrls,
+  SHDocVw, ExtCtrls, ComCtrls, DB, uDAScriptingProvider, uDACDSDataTable,
+  Grids, DBGrids, uDABINAdapter, DBCtrls, uDADataStreamer,
+  uDARemoteDataAdapter, uDAInterfaces;
+
+type
+  TXSLTMainForm = class(TForm)
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    PageControl: TPageControl;
+    tsXML: TTabSheet;
+    tsGrid: TTabSheet;
+    WebBrowser: TWebBrowser;
+    gCustomers: TDBGrid;
+    ConnectionManager: TDAConnectionManager;
+    XMLAdapter: TDAXmlDataStreamer;
+    gOrders: TDBGrid;
+    Splitter2: TSplitter;
+    dtCustomers: TDACDSDataTable;
+    GetDataButton: TButton;
+    dsCustomers: TDADataSource;
+    dtOrders: TDACDSDataTable;
+    dsOrders: TDADataSource;
+    GenerateDeltaButton: TButton;
+    XSLTTransformationButton: TButton;
+    GenerateHTMLButton: TButton;
+    Schema: TDASchema;
+    DAXmlDataStreamer: TDAXmlDataStreamer;
+    procedure GetDataButtonClick(Sender: TObject);
+    procedure GenerateDeltaButtonClick(Sender: TObject);
+    procedure XSLTTransformationButtonClick(Sender: TObject);
+  private
+    fTempFileName,
+      fHTMLFileName,
+      fAppDir: string;
+    function CreateTestUpdates1: Boolean;
+    procedure RefreshXMLView(AfileName: string; aDelta: Boolean = False);
+  public
+    constructor Create(aOwner: TComponent); override;
+    property AppDir: string read fAppDir;
+    property TempFileName: string read fTempFileName;
+    property HTMLFileName: string read fHTMLFileName;
+  end;
+
+var
+  XSLTMainForm: TXSLTMainForm;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uROMSXMLImpl, uROMSXML2_TLB, uROXMLIntf, ShellAPI, uDADelta, StrUtils;
+
+constructor TXSLTMainForm.Create(aOwner: TComponent);
+begin
+  inherited;
+  fAppDir := ExtractFilePath(Application.ExeName);
+  fTempFileName := fAppDir + 'Temp.xml';
+  fHTMLFileName := fAppDir + 'CustomersHTML.html';
+  PageControl.ActivePageIndex := 0;
+end;
+
+procedure TXSLTMainForm.GetDataButtonClick(Sender: TObject);
+begin
+  dtCustomers.Open;
+  dtOrders.Open;
+  if dtCustomers.DeltaInitialized then dtCustomers.CancelUpdates;
+  if dtOrders.DeltaInitialized then dtOrders.CancelUpdates;
+  XMLAdapter.WriteXSLT := nil; // In case there's one set
+  RefreshXMLView(TempFileName);
+end;
+
+procedure TXSLTMainForm.RefreshXMLView(AfileName: string; aDelta: Boolean = False);
+var
+  xmlstream: TMemoryStream;
+begin
+  xmlstream := TMemoryStream.Create;
+  try
+    // Writes the data or Delta into the stream by using the XML Adapter
+    XMLAdapter.Initialize(xmlstream, aiWrite);
+    if aDelta then begin
+      XMLAdapter.WriteDelta(dtCustomers);
+      XMLAdapter.WriteDelta(dtOrders);
+    end
+    else begin
+      XMLAdapter.WriteDataset(dtCustomers, [woSchema, woRows]);
+      XMLAdapter.WriteDataset(dtOrders, [woSchema, woRows]);
+    end;
+    XMLAdapter.Finalize;
+
+    // Saves the XML stream and displays it in the WebBrowser control
+    xmlstream.SaveToFile(aFileName);
+    WebBrowser.Navigate(aFileName);
+  finally
+    XMLStream.Free;
+  end;
+end;
+
+procedure TXSLTMainForm.GenerateDeltaButtonClick(Sender: TObject);
+begin
+  // Generates some test updates (ask confirmation first)
+  dtCustomers.Open;
+  dtOrders.Open;
+  if not CreateTestUpdates1 then Exit;
+
+  // Erases the XSLT in case there's one set
+  XMLAdapter.WriteXSLT := nil; // In case there's one set
+  RefreshXMLView(TempFileName, True);
+end;
+
+function TXSLTMainForm.CreateTestUpdates1: Boolean;
+begin
+  Result := False;
+  if (MessageDlg('Do you want to create some updates?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes) then Exit;
+
+  dtCustomers.open;
+  dtOrders.open;
+  if dtCustomers.DeltaInitialized then dtCustomers.CancelUpdates;
+  if dtOrders.DeltaInitialized then dtOrders.CancelUpdates;
+  dtCustomers.Last;
+
+  try
+    // Inserts a bunch of new ones
+    dtCustomers.AddRecord(
+      ['CustomerID', 'CompanyName', 'ContactName', 'ContactTitle', 'Address', 'City', 'Region', 'PostalCode', 'Country', 'Phone', 'Fax'],
+      ['JONSM', 'JohnSmith&Co', 'John Smith', 'Owner', '202 North Lake Drive', 'Barrington', 'IL', '60010', 'USA', '847 389 2112', '847 389 2115']);
+
+    dtOrders.AddRecord(
+      ['OrderID', 'EmployeeID', 'OrderDate', 'RequiredDate', 'ShippedDate', 'ShipVia', 'Freight', 'ShipName', 'ShipAddress', 'ShipCity', 'ShipRegion', 'ShipPostalCode', 'ShipCountry'],
+      [60000, 5, Date, Date + 30, Date + 15, 1, 73.23, 'QUICK-Stop', 'Taucherstrabe 10', 'Rio de Janeiro', 'RJ', '50739', 'Brazil']);
+
+    dtOrders.AddRecord(
+      ['OrderID', 'EmployeeID', 'OrderDate', 'RequiredDate', 'ShippedDate', 'ShipVia', 'Freight', 'ShipName', 'ShipAddress', 'ShipCity', 'ShipRegion', 'ShipPostalCode', 'ShipCountry'],
+      [60001, 2, Date + 15, Date + 30, Date + 25, 1, 22.45, 'LINO-Delicateses', '2743 Bering St.', 'Rio de Janeiro', 'RJ', '50700', 'Brazil']);
+
+    dtCustomers.AddRecord(
+      ['CustomerID', 'CompanyName', 'ContactName', 'ContactTitle', 'Address', 'City', 'Region', 'PostalCode', 'Country', 'Phone', 'Fax'],
+      ['JACDO', 'JackDohrn Ltd', 'Jack Dohrn', 'Owner', '32 Manhattan Lane', 'Hoffman Estates', 'IL', '60074', 'USA', '847 221 3221', '842 221 3221']);
+
+    dtOrders.AddRecord(
+      ['OrderID', 'EmployeeID', 'OrderDate', 'RequiredDate', 'ShippedDate', 'ShipVia', 'Freight', 'ShipName', 'ShipAddress', 'ShipCity', 'ShipRegion', 'ShipPostalCode', 'ShipCountry'],
+      [60002, 5, Date, Date + 20, Date + 10, 1, 45673.29, 'Save-a-lot Markets', 'Torikatu 38', 'Rio de Janeiro', 'RJ', '50759', 'Brazil']);
+
+    dtOrders.AddRecord(
+      ['OrderID', 'EmployeeID', 'OrderDate', 'RequiredDate', 'ShippedDate', 'ShipVia', 'Freight', 'ShipName', 'ShipAddress', 'ShipCity', 'ShipRegion', 'ShipPostalCode', 'ShipCountry'],
+      [60003, 2, Date, Date + 10, Date + 2, 1, 722.23, 'Bottom-Dollar Markets', 'Fauntleroy Circus', 'Rio de Janeiro', 'RJ', '50730', 'Brazil']);
+
+    Result := True;
+  except
+    Result := False;
+    if dtCustomers.Editing then dtCustomers.Cancel;
+    if dtOrders.Editing then dtOrders.Cancel;
+  end;
+end;
+
+procedure TXSLTMainForm.XSLTTransformationButtonClick(Sender: TObject);
+var
+  resfilename, xsltname: string;
+begin
+  dtCustomers.open;
+  dtOrders.open;
+
+  dtCustomers.First;
+
+  // Loads the XSLT document
+  if (Sender = GenerateHTMLButton) then begin
+    xsltname := 'CustomersToHTML.xsl';
+    resfilename := HTMLFileName;
+  end
+  else begin
+    xsltname := 'CustomersToSimpleXML.xsl';
+    resfilename := TempFileName;
+  end;
+  XMLAdapter.WriteXSLT.LoadFromFile(xsltname);
+  RefreshXMLView(resfilename);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..65e7e3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.Sample.html
new file mode 100644
index 0000000..0846117
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.Sample.html	
@@ -0,0 +1,39 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">Reduced Delta Sample</p>
+
+<p>
+This sample shows how to use <b>Reduced Deltas</b> to save bandwidth when applying changes to the server, 
+where rows may contain potentially large but unchanged data. 
+With <b>Reduced Delta</b> on, Data Abstract will only submit the changed field of a particular row to the server, 
+rather than sending all fields with <b>Reduced Delta</b> off.
+</p>
+
+<p class="h2">Examine the code</p>
+<p>See the <b>TClientForm.btUpdateClick</b> event handler to see how the dataset is updated. Note how the Reduced Delta feature can be 
+turned on or off according to the checkbox.</p>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Run the Sample Server.</li> 
+<li>Run the Reduced Delta Sample.</li>
+<li>Try to fill DataSet.</li>
+<li>Try to change some records.</li>
+<li>Apply changes to the server, using the Update button.</li>
+<li>Examine the server log to see the command used on the server side to apply changes (it will contain only changed fields).</li>
+<li>Turn off the Reduced Delta feature using the radio button.</li> 
+<li>Change some records and apply the changes to the server again.</li>
+<li>
+Examine the server log to see that when the Reduced Delta feature is turned off, all table fields are considered as changed.<br/> 
+In this case we have used much more network traffic from client to server than what is normally passed.
+</li>
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.dpr
new file mode 100644
index 0000000..267a5e8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.dpr	
@@ -0,0 +1,18 @@
+program ReducedDelta;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.dproj
new file mode 100644
index 0000000..9cbb07f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.dproj	
@@ -0,0 +1,89 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4a457138-a408-424b-89ab-9292d96082af}</ProjectGuid>
+    <MainSource>ReducedDelta.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ReducedDelta.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">ReducedDelta.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ReducedDelta.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="fClientDataModule.pas">
+      <Form>ClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/ReducedDelta.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientDataModule.dfm
new file mode 100644
index 0000000..5ee4273
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientDataModule.dfm	
@@ -0,0 +1,150 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 225
+  Top = 161
+  Height = 344
+  Width = 312
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    DataStreamer = DataStreamer
+    DynamicSelect = True
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    Left = 40
+    Top = 184
+  end
+  object drLoginRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Login'
+    Params = <
+      item
+        Name = 'aPlatform'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'PlatformEnum'
+        Value = Null
+      end
+      item
+        Name = 'aName'
+        DataType = rtWidestring
+        Flag = fIn
+      end>
+    Left = 40
+    Top = 232
+  end
+  object tbl_Workers: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'WorkerID'
+        DataType = datLargeAutoInc
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'WorkerLastName'
+        DataType = datWideString
+        Size = 20
+        Required = True
+        DisplayLabel = 'LastName'
+      end
+      item
+        Name = 'WorkerFirstName'
+        DataType = datWideString
+        Size = 10
+        Required = True
+        DisplayLabel = 'FirstName'
+      end
+      item
+        Name = 'WorkerBirthDate'
+        DataType = datDateTime
+        DisplayLabel = 'BirthDate'
+      end
+      item
+        Name = 'WorkerHireDate'
+        DataType = datDateTime
+        DisplayLabel = 'HireDate'
+      end
+      item
+        Name = 'WorkerPosition'
+        DataType = datWideString
+        Size = 30
+        DisplayLabel = 'Position'
+      end
+      item
+        Name = 'WorkerAddress'
+        DataType = datWideString
+        Size = 60
+        DisplayLabel = 'Address'
+      end
+      item
+        Name = 'WorkerCity'
+        DataType = datWideString
+        Size = 15
+        DisplayLabel = 'City'
+      end
+      item
+        Name = 'WorkerZip'
+        DataType = datWideString
+        Size = 10
+        DisplayLabel = 'Zip'
+      end
+      item
+        Name = 'WorkerCountry'
+        DataType = datWideString
+        Size = 15
+        DisplayLabel = 'Country'
+      end
+      item
+        Name = 'WorkerPhone'
+        DataType = datWideString
+        Size = 24
+        DisplayLabel = 'Phone'
+      end
+      item
+        Name = 'WorkerNotes'
+        DataType = datWideMemo
+        DisplayLabel = 'Notes'
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'Workers'
+    IndexDefs = <>
+    Left = 128
+    Top = 8
+  end
+  object ds_Workers: TDADataSource
+    DataSet = tbl_Workers.Dataset
+    DataTable = tbl_Workers
+    Left = 200
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientDataModule.pas
new file mode 100644
index 0000000..916eb0f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientDataModule.pas	
@@ -0,0 +1,60 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    drLoginRequest: TRODynamicRequest;
+    tbl_Workers: TDAMemDataTable;
+    ds_Workers: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure Login;
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+uses DASampleLibrary_Intf;
+
+{ TClientDataModule }
+
+procedure TClientDataModule.Login;
+begin
+  with drLoginRequest do begin
+    {$IFNDEF FPC}
+    Params[0].Value := PlatformEnum_peWindowsDelphi;
+    {$ELSE}
+      {$IFDEF WINDOWS}
+      Params[0].Value := PlatformEnum_peWindowsFPC;
+      {$ELSE}
+        {$IFDEF LINUX}
+        Params[0].Value := PlatformEnum_peLinuxFPC;
+        {$ELSE}
+        Params[0].Value := PlatformEnum_peUnknown;
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+    Params[1].Value := 'DASQL Client';
+    Execute(Params);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientForm.dfm
new file mode 100644
index 0000000..60e97ca
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientForm.dfm	
@@ -0,0 +1,72 @@
+object ClientForm: TClientForm
+  Left = 336
+  Top = 274
+  Width = 520
+  Height = 481
+  Caption = 'Reduced Delta Sample'
+  Color = clBtnFace
+  Constraints.MinWidth = 520
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 504
+    Height = 49
+    Align = alTop
+    TabOrder = 0
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 0
+      Top = 0
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+    end
+    object btLoad: TButton
+      Left = 218
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = 'Load'
+      TabOrder = 0
+      OnClick = btLoadClick
+    end
+    object btUpdate: TButton
+      Left = 299
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = 'Update'
+      TabOrder = 1
+      OnClick = btUpdateClick
+    end
+    object chUseReducedDeltas: TCheckBox
+      Left = 380
+      Top = 17
+      Width = 116
+      Height = 17
+      Caption = 'Send reduced deltas'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+    end
+  end
+  object dgData: TDBGrid
+    Left = 0
+    Top = 49
+    Width = 504
+    Height = 396
+    Align = alClient
+    DataSource = ClientDataModule.ds_Workers
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientForm.pas
new file mode 100644
index 0000000..aa704e7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Reduced Delta/fClientForm.pas	
@@ -0,0 +1,61 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ExtCtrls, Grids,
+  DBGrids;
+
+type
+  TClientForm = class(TForm)
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    btLoad: TButton;
+    btUpdate: TButton;
+    chUseReducedDeltas: TCheckBox;
+    dgData: TDBGrid;
+    procedure FormCreate(Sender: TObject);
+    procedure btLoadClick(Sender: TObject);
+    procedure btUpdateClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fClientDataModule;  
+  
+{$R *.dfm}
+
+procedure TClientForm.btLoadClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    tbl_Workers.ClearRows(true);
+    RemoteDataAdapter.Fill([tbl_Workers]);
+  end;
+end;
+
+procedure TClientForm.btUpdateClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    DataStreamer.SendReducedDelta := chUseReducedDeltas.Checked;
+    RemoteDataAdapter.ApplyUpdates([tbl_Workers]);
+  end;
+end;
+
+procedure TClientForm.FormCreate(Sender: TObject);
+begin
+  // TODO: until DynamicRequest bug fixed
+  //ClientDataModule.Login;
+  Application.Title := ClientForm.Caption;  
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..65e7e3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.Sample.html
new file mode 100644
index 0000000..3ae3159
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.Sample.html	
@@ -0,0 +1,73 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">Refresh Update Data Sample</p>
+
+<p>
+This sample demonstrates how changes made to the data by one of the client applications can be instantly 
+propagated to other clients connected to the same server.<br/>
+The following steps are performed to achieve the goal:
+</p>
+<ul>
+<li>
+When the user attempts to edit a record the client application calls the remote method of the server to notify 
+that the row is being edited. Row being edited by one client application will be made unavailable for edit by others to 
+prevent update conflicts.
+</li>
+<li>
+When the server is informed about a row edit attempt it sends row lock notifications to all clients connected. RO SDK 
+<b>callback events</b> are used for this purpose. Also the server maintains the list of locked rows to lock rows on the newly connected clients.
+</li>
+<li>
+When the client finishes editing the row it sends changed data to the server as usual and in addition calls the
+remote method to inform that the row lock is released.
+</li>
+<li>The server notifies all clients about releasing the row lock.</li>
+<li>
+When row release notification is processed by the client it refetches the changed row from the server. 
+<b>Dynamic Where</b> is used to fetch particular row.
+</li>
+</ul>
+
+<p class="h2">Examine the code</p>
+<p>Examine the client:</p>
+<ul>
+<li>Examine <b>TClientForm.btEditClick</b> event handler to see how the record is edited.</li>
+<li>
+See how the client processes row lock notifications, examine <b>TClientForm.OnUpdateAllBlock</b>
+and <b>TClientForm.OnUpdateBlock</b> methods.
+</li>
+<li>See how changed data refresh is performed, examine <b>TClientForm.OnUpdateUnblock</b> method.</li>
+</ul>
+<p>Examine the sample server:</p>
+<ul>
+<li>Examine <b>BlockRow</b> service method to see how the row edit attempt is processed.</li>
+<li>Examine <b>BlockSetOfRows</b> to see how the server interacts with newly connected client.</li>
+<li>Examine <b>UnblockRow</b> service method to see how the row change notification is propagated to connected clients.</li>
+</ul>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Run the Sample Server.</li> 
+<li>Run two or more instances of the RefreshData sample.</li>
+<li>Load data to every client instance with Load button.</li>
+<li>Click Edit button to edit the row.</li>
+<li>
+See how the row being edited on one client instance is marked 'locked' on others. You may try to edit the locked row, 
+the application will forbid doing this.
+</li>
+<li>Make some changes to the row being edited and confirm changes in the edit form.</li>
+<li>See how row locks are relesed on the remaining client instances and how the row is updated.</li> 
+<li>
+While the row is being edited on any client launch one more client instance. See how existing row locks are displayed 
+on the newly connected client.
+</li>
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.dpr
new file mode 100644
index 0000000..e9d5ed8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.dpr	
@@ -0,0 +1,19 @@
+program RefreshData;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas',
+  fEditClient in 'fEditClient.pas' {fmEditClient};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.dproj
new file mode 100644
index 0000000..3762707
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.dproj	
@@ -0,0 +1,92 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f2164098-26a7-4161-af46-0284356e382a}</ProjectGuid>
+    <MainSource>RefreshData.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>RefreshData.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">RefreshData.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="RefreshData.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="fClientDataModule.pas">
+      <Form>ClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+    <DCCReference Include="fEditClient.pas">
+      <Form>fmEditClient</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.res
new file mode 100644
index 0000000..da01de5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/RefreshData.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientDataModule.dfm
new file mode 100644
index 0000000..517656f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientDataModule.dfm	
@@ -0,0 +1,126 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  OnCreate = DataModuleCreate
+  Left = 224
+  Top = 176
+  Height = 333
+  Width = 250
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    DataStreamer = DataStreamer
+    DynamicSelect = True
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    Left = 40
+    Top = 184
+  end
+  object drLoginRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Login'
+    Params = <
+      item
+        Name = 'aPlatform'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'PlatformEnum'
+        Value = Null
+      end
+      item
+        Name = 'aName'
+        DataType = rtWidestring
+        Flag = fIn
+      end>
+    Left = 40
+    Top = 232
+  end
+  object tbl_Clients: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'Locked'
+        DataType = datString
+        Size = 1
+        LogChanges = False
+        Alignment = taCenter
+        Calculated = True
+      end
+      item
+        Name = 'ClientId'
+        DataType = datString
+        Size = 38
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ClientName'
+        DataType = datWideString
+        Size = 120
+        Required = True
+      end
+      item
+        Name = 'ContactPhone'
+        DataType = datWideString
+        Size = 50
+      end
+      item
+        Name = 'ContactAddress'
+        DataType = datWideString
+        Size = 255
+      end
+      item
+        Name = 'ClientDiscount'
+        DataType = datFloat
+        DefaultValue = '0'
+        Required = True
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    OnCalcFields = tbl_ClientsCalcFields
+    LogicalName = 'Clients'
+    IndexDefs = <>
+    Left = 120
+    Top = 8
+  end
+  object ds_Clients: TDADataSource
+    DataSet = tbl_Clients.Dataset
+    DataTable = tbl_Clients
+    Left = 176
+    Top = 8
+  end
+  object EventReceiver: TROEventReceiver
+    Interval = 1000
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 136
+    Top = 232
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientDataModule.pas
new file mode 100644
index 0000000..6b8dd4e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientDataModule.pas	
@@ -0,0 +1,99 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest,
+  uROEventRepository;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    drLoginRequest: TRODynamicRequest;
+    tbl_Clients: TDAMemDataTable;
+    ds_Clients: TDADataSource;
+    EventReceiver: TROEventReceiver;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure tbl_ClientsCalcFields(DataTable: TDADataTable);
+  private
+    { Private declarations }
+    fLockedRows: TStringList;
+    fIdField: TDAField;
+    fLockedField: TDAField;
+  public
+    { Public declarations }
+    property LockedRows: TStringList read fLockedRows;
+    procedure LockRow(aId: string);
+    procedure UnlockRow(aId: string);
+    procedure Login;
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+uses DASampleLibrary_Intf;
+
+{ TClientDataModule }
+
+procedure TClientDataModule.DataModuleCreate(Sender: TObject);
+begin
+  fLockedRows := TStringList.Create;
+  fIdField := tbl_Clients.FieldByName('ClientId');
+  fLockedField := tbl_Clients.FieldByName('Locked');
+end;
+
+procedure TClientDataModule.LockRow(aId: string);
+begin
+  if fLockedRows.IndexOf(aId) < 0 then fLockedRows.Add(aId);
+  tbl_Clients.Refresh;
+end;
+
+procedure TClientDataModule.Login;
+begin
+  with drLoginRequest do begin
+    {$IFNDEF FPC}
+    Params[0].Value := PlatformEnum_peWindowsDelphi;
+    {$ELSE}
+      {$IFDEF WINDOWS}
+      Params[0].Value := PlatformEnum_peWindowsFPC;
+      {$ELSE}
+        {$IFDEF LINUX}
+        Params[0].Value := PlatformEnum_peLinuxFPC;
+        {$ELSE}
+        Params[0].Value := PlatformEnum_peUnknown;
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+    Params[1].Value := 'DASQL Client';
+    Execute(Params);
+  end;
+end;
+
+procedure TClientDataModule.tbl_ClientsCalcFields(DataTable: TDADataTable);
+begin
+     if fLockedRows.IndexOf(DataTable.Fields[fIdField.Index].AsString) >=0
+     then DataTable.Fields[fLockedField.Index].AsString := 'X'
+     else DataTable.Fields[fLockedField.Index].AsString := '';
+end;
+
+procedure TClientDataModule.UnlockRow(aId: string);
+var
+  i: integer;
+begin
+  i := fLockedRows.IndexOf(aId);
+  if i >= 0 then fLockedRows.Delete(i);
+  tbl_Clients.Refresh;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientForm.dfm
new file mode 100644
index 0000000..2786222
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientForm.dfm	
@@ -0,0 +1,66 @@
+object ClientForm: TClientForm
+  Left = 153
+  Top = 246
+  Width = 701
+  Height = 424
+  Caption = 'Refresh Update Data sample'
+  Color = clBtnFace
+  Constraints.MinWidth = 404
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 685
+    Height = 49
+    Align = alTop
+    TabOrder = 0
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 0
+      Top = 0
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+    end
+    object btLoad: TButton
+      Left = 218
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = 'Load'
+      TabOrder = 0
+      OnClick = btLoadClick
+    end
+    object btEdit: TButton
+      Left = 299
+      Top = 13
+      Width = 75
+      Height = 25
+      Caption = 'Edit...'
+      TabOrder = 1
+      OnClick = btEditClick
+    end
+  end
+  object dgData: TDBGrid
+    Left = 0
+    Top = 49
+    Width = 685
+    Height = 339
+    Align = alClient
+    DataSource = ClientDataModule.ds_Clients
+    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
+    ReadOnly = True
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+    OnDblClick = dgDataDblClick
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientForm.pas
new file mode 100644
index 0000000..7d64ba7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fClientForm.pas	
@@ -0,0 +1,157 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, Grids, DBGrids,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ExtCtrls,
+  DASampleLibrary_Intf, uROTypes;
+
+type
+  TClientForm = class(TForm, IUpdateEvent)
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    btLoad: TButton;
+    btEdit: TButton;
+    dgData: TDBGrid;
+    procedure FormCreate(Sender: TObject);
+    procedure btLoadClick(Sender: TObject);
+    procedure btEditClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure dgDataDblClick(Sender: TObject);
+  private
+    { Private declarations }
+    fService: IDASampleService;
+    procedure SetCurrentRowLock(aState: boolean);
+    procedure WaitChannelFree;
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fClientDataModule, fEditClient, uROClasses, uDAInterfaces, Variants;
+
+{$R *.dfm}
+
+procedure TClientForm.btEditClick(Sender: TObject);
+var
+  editForm: TfmEditClient;
+begin
+  if ClientDataModule.tbl_Clients.RecordCount > 0 then begin
+    if dgData.DataSource.DataSet.FieldByName('Locked').AsString <> 'X' then begin
+      editForm := TfmEditClient.Create(self);
+      try
+        SetCurrentRowLock(true);
+        if editForm.EditClient(dgData.DataSource)
+        then with ClientDataModule do RemoteDataAdapter.ApplyUpdates([tbl_Clients]);
+        SetCurrentRowLock(false);
+      finally
+        editForm.Free;
+      end;
+    end
+    else ShowMessage('Can''t edit - record locked.');
+  end;
+end;
+
+procedure TClientForm.btLoadClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    tbl_Clients.ClearRows(true);
+    WaitChannelFree;
+    RemoteDataAdapter.Fill([tbl_Clients]);
+  end;
+  fService.BlockSetOfRows;
+end;
+
+procedure TClientForm.FormCreate(Sender: TObject);
+begin
+  Application.Title := ClientForm.Caption;
+  with ClientDataModule do begin
+    // TODO: Until until DynamicRequest bug fixed
+    //Login;
+    fService := RemoteService as IDASampleService;
+    fService.Login(PlatformEnum_peWindowsDelphi, Caption);
+    EventReceiver.RegisterEventHandler(EID_UpdateEvent, self);
+    EventReceiver.Active := true;
+    fService.Subscribe(true);
+  end;
+end;
+
+procedure TClientForm.FormDestroy(Sender: TObject);
+begin
+  WaitChannelFree;
+  with ClientDataModule do begin
+    EventReceiver.Active := false;
+    fService.Subscribe(false);
+    EventReceiver.UnRegisterEventHandler(self);
+  end;
+end;
+
+procedure TClientForm.OnUpdateAllBlock(const pkFields: AnsiStringArray);
+var
+  i: integer;
+begin
+  for i := 0 to pkFields.Count - 1 do OnUpdateBlock(pkFields.Items[i], '');
+end;
+
+procedure TClientForm.OnUpdateBlock(const pkFields: AnsiString;
+  const senderGuid: Guid);
+begin
+  with ClientDataModule do begin
+    LockRow(AnsiStringToWideString(pkFields));
+  end;
+end;
+
+procedure TClientForm.OnUpdateUnblock(const pkField: AnsiString;
+  const senderGuid: Guid; const isReadRow: Boolean);
+var
+  wb: TDAWhereBuilder;
+  exp: TDAWhereExpression;
+  expArr: array of TDAWhereExpression;
+begin
+  with ClientDataModule do begin
+    UnlockRow(AnsiStringToWideString(pkField));
+    if isReadRow then begin
+      wb := TDAWhereBuilder.Create;
+      exp := wb.NewBinaryExpression(
+        wb.NewField(tbl_Clients.LogicalName, 'ClientId'),
+        wb.NewConstant(pkField, datGuid),
+        dboEqual);
+      SetLength(expArr, 1);
+      expArr[0] := exp;
+      RemoteDataAdapter.Fill([tbl_Clients], expArr, true, false, false);
+      wb.Free;
+    end;
+  end;
+end;
+
+procedure TClientForm.SetCurrentRowLock(aState: boolean);
+var
+  id: {$IFDEF UNICODE}AnsiString{$ELSE}string{$ENDIF};
+begin
+  id := dgData.DataSource.DataSet.FieldByName('ClientId').{$IFDEF UNICODE}AsAnsiString{$ELSE}AsString{$ENDIF};
+  WaitChannelFree;
+  if aState then fService.BlockRow(id)
+  else fService.UnblockRow(id, true);
+end;
+
+procedure TClientForm.dgDataDblClick(Sender: TObject);
+begin
+  btEdit.Click;
+end;
+
+procedure TClientForm.WaitChannelFree;
+begin
+  repeat until not ClientDataModule.Channel.Busy;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fEditClient.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fEditClient.dfm
new file mode 100644
index 0000000..99ef6ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fEditClient.dfm	
@@ -0,0 +1,119 @@
+object fmEditClient: TfmEditClient
+  Left = 221
+  Top = 227
+  BorderStyle = bsDialog
+  Caption = 'fmEditClient'
+  ClientHeight = 131
+  ClientWidth = 459
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 459
+    Height = 90
+    Align = alClient
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 8
+      Top = 8
+      Width = 61
+      Height = 13
+      Caption = 'Client Name:'
+    end
+    object Label2: TLabel
+      Left = 335
+      Top = 8
+      Width = 45
+      Height = 13
+      Caption = 'Discount:'
+    end
+    object Label3: TLabel
+      Left = 8
+      Top = 35
+      Width = 43
+      Height = 13
+      Caption = 'Address:'
+    end
+    object Label4: TLabel
+      Left = 8
+      Top = 62
+      Width = 34
+      Height = 13
+      Caption = 'Phone:'
+    end
+    object dbeClientName: TDBEdit
+      Left = 75
+      Top = 5
+      Width = 238
+      Height = 21
+      DataField = 'ClientName'
+      TabOrder = 0
+    end
+    object dbeDiscount: TDBEdit
+      Left = 386
+      Top = 5
+      Width = 65
+      Height = 21
+      DataField = 'ClientDiscount'
+      TabOrder = 1
+    end
+    object dbeAddress: TDBEdit
+      Left = 75
+      Top = 32
+      Width = 375
+      Height = 21
+      DataField = 'ContactAddress'
+      TabOrder = 2
+    end
+    object dbePhone: TDBEdit
+      Left = 75
+      Top = 59
+      Width = 375
+      Height = 21
+      DataField = 'ContactPhone'
+      TabOrder = 3
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 90
+    Width = 459
+    Height = 41
+    Align = alBottom
+    TabOrder = 1
+    DesignSize = (
+      459
+      41)
+    object btOK: TButton
+      Left = 294
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object btCancel: TButton
+      Left = 375
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Cancel = True
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fEditClient.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fEditClient.pas
new file mode 100644
index 0000000..cdf475b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Refresh Update Data/fEditClient.pas	
@@ -0,0 +1,58 @@
+unit fEditClient;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, DB;
+
+type
+  TfmEditClient = class(TForm)
+    Panel1: TPanel;
+    Panel2: TPanel;
+    btOK: TButton;
+    btCancel: TButton;
+    Label1: TLabel;
+    dbeClientName: TDBEdit;
+    Label2: TLabel;
+    dbeDiscount: TDBEdit;
+    Label3: TLabel;
+    dbeAddress: TDBEdit;
+    Label4: TLabel;
+    dbePhone: TDBEdit;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    function EditClient(aDataSource: TDataSource): boolean;
+  end;
+
+var
+  fmEditClient: TfmEditClient;
+
+implementation
+
+{$R *.dfm}
+
+{ TfmEditClient }
+
+function TfmEditClient.EditClient(aDataSource: TDataSource): boolean;
+begin
+  Caption := 'Editing ' + aDataSource.DataSet.FieldByName('ClientName').AsString;
+  dbeClientName.DataSource := aDataSource;
+  dbeDiscount.DataSource := aDataSource;
+  dbeAddress.DataSource := aDataSource;
+  dbePhone.DataSource := aDataSource;
+  aDataSource.Edit;
+
+  if ShowModal = mrOK then begin
+    aDataSource.DataSet.Post;
+    Result := true;
+  end
+  else begin
+    aDataSource.DataSet.Cancel;
+    Result := false;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Samples.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Samples.html
new file mode 100644
index 0000000..8a2bb96
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Samples.html	
@@ -0,0 +1,7 @@
+<html>
+	<head>
+		<meta http-equiv="REFRESH" content="0;http://wiki.remobjects.com/wiki/Data_Abstract_Samples">
+	</head>
+<body>
+</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/DASampleServer.exe b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/DASampleServer.exe
new file mode 100644
index 0000000..c787c77
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/DASampleServer.exe differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade.fdb b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade.fdb
new file mode 100644
index 0000000..f8a5138
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade.fdb differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade.sqlite.db b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade.sqlite.db
new file mode 100644
index 0000000..38cf4ae
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade.sqlite.db differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade_MSSQL.backup b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade_MSSQL.backup
new file mode 100644
index 0000000..dabb553
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/Data/PCTrade_MSSQL.backup differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/firebird.msg b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/firebird.msg
new file mode 100644
index 0000000..8c60714
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/firebird.msg differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/intl/fbintl.conf b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/intl/fbintl.conf
new file mode 100644
index 0000000..ff19d4f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/intl/fbintl.conf	
@@ -0,0 +1,371 @@
+<intl_module builtin>
+	icu_versions	default
+</intl_module>
+
+<intl_module fbintl>
+	filename		$(this)/fbintl
+	icu_versions	default
+</intl_module>
+
+<charset SJIS_0208>
+	intl_module	fbintl
+	collation	SJIS_0208
+	collation	SJIS_0208_UNICODE
+</charset>
+
+<charset EUCJ_0208>
+	intl_module	fbintl
+	collation	EUCJ_0208
+	collation	EUCJ_0208_UNICODE
+</charset>
+
+<charset DOS437>
+	intl_module	fbintl
+	collation	DOS437
+	collation	DOS437_UNICODE
+	collation	DB_DEU437
+	collation	DB_ESP437
+	collation	DB_FIN437
+	collation	DB_FRA437
+	collation	DB_ITA437
+	collation	DB_NLD437
+	collation	DB_SVE437
+	collation	DB_UK437
+	collation	DB_US437
+	collation	PDOX_ASCII
+	collation	PDOX_INTL
+	collation	PDOX_SWEDFIN
+</charset>
+
+<charset DOS850>
+	intl_module	fbintl
+	collation	DOS850
+	collation	DOS850_UNICODE
+	collation	DB_DEU850
+	collation	DB_ESP850
+	collation	DB_FRA850
+	collation	DB_FRC850
+	collation	DB_ITA850
+	collation	DB_NLD850
+	collation	DB_PTB850
+	collation	DB_SVE850
+	collation	DB_UK850
+	collation	DB_US850
+</charset>
+
+<charset DOS865>
+	intl_module	fbintl
+	collation	DOS865
+	collation	DOS865_UNICODE
+	collation	DB_DAN865
+	collation	DB_NOR865
+	collation	PDOX_NORDAN4
+</charset>
+
+<charset ISO8859_1>
+	intl_module	fbintl
+	collation	ISO8859_1
+	collation	ISO8859_1_UNICODE
+	collation	DA_DA
+	collation	DE_DE
+	collation	DU_NL
+	collation	EN_UK
+	collation	EN_US
+	collation	ES_ES
+	collation	ES_ES_CI_AI
+	collation	FI_FI
+	collation	FR_CA
+	collation	FR_FR
+	collation	IS_IS
+	collation	IT_IT
+	collation	NO_NO
+	collation	SV_SV
+	collation	PT_BR
+	collation	PT_PT
+</charset>
+
+<charset ISO8859_2>
+	intl_module	fbintl
+	collation	ISO8859_2
+	collation	ISO8859_2_UNICODE
+	collation	CS_CZ
+	collation	ISO_HUN
+	collation	ISO_PLK
+</charset>
+
+<charset ISO8859_3>
+	intl_module	fbintl
+	collation	ISO8859_3
+	collation	ISO8859_3_UNICODE
+</charset>
+
+<charset ISO8859_4>
+	intl_module	fbintl
+	collation	ISO8859_4
+	collation	ISO8859_4_UNICODE
+</charset>
+
+<charset ISO8859_5>
+	intl_module	fbintl
+	collation	ISO8859_5
+	collation	ISO8859_5_UNICODE
+</charset>
+
+<charset ISO8859_6>
+	intl_module	fbintl
+	collation	ISO8859_6
+	collation	ISO8859_6_UNICODE
+</charset>
+
+<charset ISO8859_7>
+	intl_module	fbintl
+	collation	ISO8859_7
+	collation	ISO8859_7_UNICODE
+</charset>
+
+<charset ISO8859_8>
+	intl_module	fbintl
+	collation	ISO8859_8
+	collation	ISO8859_8_UNICODE
+</charset>
+
+<charset ISO8859_9>
+	intl_module	fbintl
+	collation	ISO8859_9
+	collation	ISO8859_9_UNICODE
+</charset>
+
+<charset ISO8859_13>
+	intl_module	fbintl
+	collation	ISO8859_13
+	collation	ISO8859_13_UNICODE
+	collation	LT_LT
+</charset>
+
+<charset DOS852>
+	intl_module	fbintl
+	collation	DOS852
+	collation	DOS852_UNICODE
+	collation	DB_CSY
+	collation	DB_PLK
+	collation	DB_SLO
+	collation	PDOX_CSY
+	collation	PDOX_HUN
+	collation	PDOX_PLK
+	collation	PDOX_SLO
+</charset>
+
+<charset DOS857>
+	intl_module	fbintl
+	collation	DOS857
+	collation	DOS857_UNICODE
+	collation	DB_TRK
+</charset>
+
+<charset DOS860>
+	intl_module	fbintl
+	collation	DOS860
+	collation	DOS860_UNICODE
+	collation	DB_PTG860
+</charset>
+
+<charset DOS861>
+	intl_module	fbintl
+	collation	DOS861
+	collation	DOS861_UNICODE
+	collation	PDOX_ISL
+</charset>
+
+<charset DOS863>
+	intl_module	fbintl
+	collation	DOS863
+	collation	DOS863_UNICODE
+	collation	DB_FRC863
+</charset>
+
+<charset CYRL>
+	intl_module	fbintl
+	collation	CYRL
+	collation	CYRL_UNICODE
+	collation	DB_RUS
+	collation	PDOX_CYRL
+</charset>
+
+<charset DOS737>
+	intl_module	fbintl
+	collation	DOS737
+	collation	DOS737_UNICODE
+</charset>
+
+<charset DOS775>
+	intl_module	fbintl
+	collation	DOS775
+	collation	DOS775_UNICODE
+</charset>
+
+<charset DOS858>
+	intl_module	fbintl
+	collation	DOS858
+	collation	DOS858_UNICODE
+</charset>
+
+<charset DOS862>
+	intl_module	fbintl
+	collation	DOS862
+	collation	DOS862_UNICODE
+</charset>
+
+<charset DOS864>
+	intl_module	fbintl
+	collation	DOS864
+	collation	DOS864_UNICODE
+</charset>
+
+<charset DOS866>
+	intl_module	fbintl
+	collation	DOS866
+	collation	DOS866_UNICODE
+</charset>
+
+<charset DOS869>
+	intl_module	fbintl
+	collation	DOS869
+	collation	DOS869_UNICODE
+</charset>
+
+<charset WIN1250>
+	intl_module	fbintl
+	collation	WIN1250
+	collation	WIN1250_UNICODE
+	collation	PXW_CSY
+	collation	PXW_HUN
+	collation	PXW_HUNDC
+	collation	PXW_PLK
+	collation	PXW_SLOV
+	collation	BS_BA
+	collation	WIN_CZ
+	collation	WIN_CZ_CI_AI
+</charset>
+
+<charset WIN1251>
+	intl_module	fbintl
+	collation	WIN1251
+	collation	WIN1251_UNICODE
+	collation	PXW_CYRL
+	collation	WIN1251_UA
+</charset>
+
+<charset WIN1252>
+	intl_module	fbintl
+	collation	WIN1252
+	collation	WIN1252_UNICODE
+	collation	PXW_INTL
+	collation	PXW_INTL850
+	collation	PXW_NORDAN4
+	collation	WIN_PTBR
+	collation	PXW_SPAN
+	collation	PXW_SWEDFIN
+</charset>
+
+<charset WIN1253>
+	intl_module	fbintl
+	collation	WIN1253
+	collation	WIN1253_UNICODE
+	collation	PXW_GREEK
+</charset>
+
+<charset WIN1254>
+	intl_module	fbintl
+	collation	WIN1254
+	collation	WIN1254_UNICODE
+	collation	PXW_TURK
+</charset>
+
+<charset NEXT>
+	intl_module	fbintl
+	collation	NEXT
+	collation	NEXT_UNICODE
+	collation	NXT_DEU
+	collation	NXT_ESP
+	collation	NXT_FRA
+	collation	NXT_ITA
+	collation	NXT_US
+</charset>
+
+<charset WIN1255>
+	intl_module	fbintl
+	collation	WIN1255
+	collation	WIN1255_UNICODE
+</charset>
+
+<charset WIN1256>
+	intl_module	fbintl
+	collation	WIN1256
+	collation	WIN1256_UNICODE
+</charset>
+
+<charset WIN1257>
+	intl_module	fbintl
+	collation	WIN1257
+	collation	WIN1257_UNICODE
+	collation	WIN1257_EE
+	collation	WIN1257_LT
+	collation	WIN1257_LV
+</charset>
+
+<charset KSC_5601>
+	intl_module	fbintl
+	collation	KSC_5601
+	collation	KSC_5601_UNICODE
+	collation	KSC_DICTIONARY
+</charset>
+
+<charset BIG_5>
+	intl_module	fbintl
+	collation	BIG_5
+	collation	BIG_5_UNICODE
+</charset>
+
+<charset GB_2312>
+	intl_module	fbintl
+	collation	GB_2312
+	collation	GB_2312_UNICODE
+</charset>
+
+<charset KOI8R>
+	intl_module	fbintl
+	collation	KOI8R
+	collation	KOI8R_UNICODE
+	collation	KOI8R_RU
+</charset>
+
+<charset KOI8U>
+	intl_module	fbintl
+	collation	KOI8U
+	collation	KOI8U_UNICODE
+	collation	KOI8U_UA
+</charset>
+
+<charset WIN1258>
+	intl_module	fbintl
+	collation	WIN1258
+	collation	WIN1258_UNICODE
+</charset>
+
+<charset TIS620>
+	intl_module	fbintl
+	collation	TIS620
+	collation	TIS620_UNICODE
+</charset>
+
+<charset GBK>
+	intl_module	fbintl
+	collation	GBK
+	collation	GBK_UNICODE
+</charset>
+
+<charset CP943C>
+	intl_module	fbintl
+	collation	CP943C			ibm-943_P15A-2003
+	collation	CP943C_UNICODE
+</charset>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/intl/fbintl.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/intl/fbintl.dll
new file mode 100644
index 0000000..cb96953
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/intl/fbintl.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/udf/fbudf.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/udf/fbudf.dll
new file mode 100644
index 0000000..59e3833
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/FBEmbedded/udf/fbudf.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/dbxdrivers.ini b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/dbxdrivers.ini
new file mode 100644
index 0000000..041cf5b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/dbxdrivers.ini	
@@ -0,0 +1,66 @@
+[Installed Drivers]
+Interbase=1
+
+
+[AutoCommit]
+False=0
+True=1
+
+[BlockingMode]
+False=0
+True=1
+
+[WaitOnLocks]
+False=1
+True=0
+
+[CommitRetain]
+False=0
+True=1
+
+[OS Authentication]
+False=0
+True=1
+
+[Multiple Transaction]
+False=0
+True=1
+
+[Trim Char]
+False=0
+True=1
+
+[SQLDialect]
+1=0
+2=1
+3=2
+
+[Bdp Providers]
+Interbase=Interbase
+
+[Interbase]
+DriverUnit=DBXInterBase
+DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver140.bpl
+DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=14.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+MetaDataPackageLoader=TDBXInterbaseMetaDataCommandFactory,DbxInterBaseDriver140.bpl
+MetaDataAssemblyLoader=Borland.Data.TDBXInterbaseMetaDataCommandFactory,Borland.Data.DbxInterBaseDriver,Version=14.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
+GetDriverFunc=getSQLDriverINTERBASE
+LibraryName=dbxfb.dll
+VendorLib=GDS32.DLL
+BlobSize=-1
+CommitRetain=False
+Database=database.gdb
+ErrorResourceFile=
+LocaleCode=0000
+Password=masterkey
+RoleName=RoleName
+ServerCharSet=
+SQLDialect=3
+IsolationLevel=ReadCommitted
+User_Name=sysdba
+WaitOnLocks=True
+Trim Char=False
+
+[Interbase TransIsolation]
+ReadCommited=1
+RepeatableRead=2
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/dbxfb.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/dbxfb.dll
new file mode 100644
index 0000000..9163dee
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/dbxfb.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/firebird.conf b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/firebird.conf
new file mode 100644
index 0000000..ae37756
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/firebird.conf	
@@ -0,0 +1,765 @@
+#######################################
+#
+# Firebird configuration file
+#
+# Comments
+# --------
+# The # character is used for comments and can be placed anywhere on a
+# line.  Anything following the # character on a line is considered a
+# comment.
+#
+# Examples:
+#
+#    # This is a comment
+#    DefaultDbCachePages = 2048   # This is an end-of-line comment
+#
+# Entries
+# -------
+# The default value for each entry is listed to the right of the "=".
+# To activate an entry, remove the leading "#"s and supply the desired
+# value.
+#
+# Please note, a number of the values are specified in **Bytes** (Not KB).
+# Accordingly, we have provided some simple conversion tables at the bottom
+# of this file.
+#
+# There are three types of configuration values: integer, boolean and string.
+#
+# Integer
+# --------
+# Integers is what they sound like, an integral value. Examples:
+#   1
+#   42
+#   4711
+#
+# Boolean
+# -------
+# Boolean is expressed as integer values with 0 (zero) being "false" and
+# non-zero is taken to mean "true". For consistency we recommend you
+# only use 0/1.
+#
+# String
+# ------
+# Strings are also what they sound like, strings. Examples:
+#   RootDirectory  = /opt/firebird
+#   RemotePipeName = pipe47
+#
+#
+# Portions of this file have been reproduced/made available with the
+# permission of Ann Harrison @ IBPhoenix.
+#
+#######################################
+
+# ==================================
+# Settings for all platforms/engines
+# ==================================
+#
+# ----------------------------
+# Specify the root directory under which Firebird is installed.
+# Can be used to override the OS-specifically determined one.
+#
+# Type: string
+#
+RootDirectory = .\FBEmbedded
+
+
+# ----------------------------
+# Database Paths/Directories
+#
+# DatabaseAccess may be None, Full or Restrict. If you choose Restrict,
+# provide ';'-separated trees list, where database files are stored.
+# Relative paths are treated relative to RootDirectory entry
+# (see above). Default value 'Full' gives full access to all files
+# on your site. To specify access to specific trees, enum all required
+# paths (for Win32 this may be something like 'C:\DataBase;D:\Mirror',
+# for unix - '/db;/mnt/mirrordb'). If you choose 'None', then only
+# databases listed in aliases.conf can be attached.
+#
+# Note: simple quotation marks shown above should *NOT* be used when
+# specifying values and directory path names. Examples:
+#
+# DatabaseAccess = None
+# DatabaseAccess = Restrict C:\DataBase
+# DatabaseAccess = Restrict C:\DataBase;D:\Mirror
+# DatabaseAccess = Restrict /db
+# DatabaseAccess = Restrict /db;/mnt/mirrordb
+# DatabaseAccess = Full
+#
+# UNCONTROLLED DATABASE ACCESS MAY COMPROMISE YOUR SYSTEM!
+# IT IS STRONGLY RECOMMENDED THAT THIS SETTING BE USED TO LIMIT
+# DATABASE LOCATIONS!
+#
+# Type: string (special format)
+#
+#DatabaseAccess = Full
+
+
+# ----------------------------
+# External File Paths/Directories
+#
+# ExternalFileAccess may be None, Full or Restrict. If you choose
+# Restrict, provide ';'-separated trees list, where external files
+# are stored. Relative paths are treated relative to RootDirectory entry
+# (see above). Default value 'None' disables any use of external files
+# on your site. To specify access to specific trees, enum all required
+# paths (for Win32 this may be something like 'C:\ExternalTables',
+# for unix - '/db/extern;/mnt/extern').
+#
+# NOTE: THE EXTERNAL TABLE ENGINE FEATURE COULD BE USED TO COMPROMISE
+# THE SERVER/HOST AS WELL AS DATABASE SECURITY!!
+#
+# IT IS STRONGLY RECOMMENDED THAT THIS SETTING BE USED TO LIMIT
+# EXTERNAL TABLE LOCATIONS!
+#
+# Type: string (special format)
+#
+#ExternalFileAccess = None
+
+
+# ----------------------------
+# External Function (UDF) Paths/Directories
+#
+# UdfAccess may be None, Full or Restrict. If you choose
+# Restrict, provide ';'-separated trees list, where UDF libraries
+# are stored. Relative paths are treated relative to RootDirectory entry
+# (see above). Default value 'Restrict UDF' provides the same restrictions
+# as in FB 1.0. To specify access to specific trees, enum all required
+# paths (for Win32 this may be something like 'C:\ExternalFunctions',
+# for unix - '/db/extern;/mnt/extern').
+#
+# NOTE: THE EXTERNAL FUNCTION ENGINE FEATURE COULD BE USED TO COMPROMISE
+# THE SERVER/HOST AS WELL AS DATABASE SECURITY!!
+#
+# IT IS STRONGLY RECOMMENDED THAT THIS SETTING BE USED TO LIMIT
+# EXTERNAL FUNCTION LOCATIONS!
+#
+# Type: string (special format)
+#
+#UdfAccess = Restrict UDF
+
+
+# ----------------------------
+# Temporary directories
+#
+# Provide ';'-separated trees list, where temporary files are stored.
+# Relative paths are treated relative to RootDirectory entry
+# (see above). Default value is determined using FIREBIRD_TMP,
+# TEMP or TMP environment options. Once the first specified
+# directory has no available space, the engine will switch to the
+# next one, and so on.
+#
+# E.g.:
+# TempDirectories = c:\temp
+# or
+# TempDirectories = c:\temp;d:\temp
+#
+# Type: string (special format)
+#
+#TempDirectories =
+
+# ----------------------------
+# Legacy hash makes possible use of old security.fdb
+# after running misc/upgrade/security_database.sql.
+# If you want to disable logons with old passwords
+# after users' migration, set it to 0 (false).
+# Makes no difference when used with original
+# security2.fdb - it can't contain DES hash.
+#
+# Type: boolean
+#
+#LegacyHash = 1
+
+# ----------------------------
+# Which authentication method(s) should be used.
+# "native" means use of only traditional interbase/firebird
+# authentication with security database.
+# "trusted" (Windows Only) makes use of window trusted authentication,
+# and in some aspects this is the most secure way to authenticate.
+# "mixed" means both methods may be used.
+#
+# Type: string
+#
+#Authentication = mixed
+
+# ----------------------------
+# Number of cached database pages
+#
+# This sets the number of pages from any one database that can be held
+# in cache at once. If you increase this value, the engine will
+# allocate more pages to the cache for every database. By default, the
+# SuperServer allocates 2048 pages for each database and the classic
+# allocates 75 pages per client connection per database.
+#
+# Type: integer
+#
+#DefaultDbCachePages = 2048
+
+# ----------------------------
+# Disk space preallocation
+#
+# Sets the amount of preallocated disk space in bytes. Disk space
+# preallocation allows to reduce physical file fragmentation and to make 
+# database work in out of disk space condition. With preallocation enabled,
+# engine allocates 1/16nth of already allocated disk space at a time but 
+# not less than 128KB and no more than DatabaseGrowthIncrement (128MB by 
+# default). To disable preallocation set DatabaseGrowthIncrement to zero.
+# Shadow database files are not preallocated.
+#
+# Type: integer
+#
+#DatabaseGrowthIncrement = 134217728
+
+# ----------------------------
+# File system cache usage
+#
+# Sets the threshold whether Firebird will use file system cache or not.
+# File system caching is used if database cache pages (sets explicitly in 
+# database header or implicitly via DefaultDbCachePages setting) is less 
+# than MaxFileSystemCache value.
+# To always use file system cache set MaxFileSystemCache to some big value.
+# To never use file system cache set MaxFileSystemCache to zero.
+# 
+# Type: integer, measured in database pages
+#
+#MaxFileSystemCache = 65536
+
+# ----------------------------
+# Temporary space management
+#
+# Temporary storage is used by the sorting module, it's also
+# intended to store temporary datasets etc.
+#
+# The parameters below handle the allocation and caching policy
+# for the temporary space manager. In previous Firebird versions,
+# they were prefixed with "SortMem" instead of current "Temp".
+#
+# The smallest block size being allocated in the temporary storage.
+# This value reflects the allocation granularity.
+#
+# Type: integer
+#
+#TempBlockSize = 1048576
+
+#
+# The maximum amount of the temporary space that can be cached
+# in memory.
+#
+# For Classic servers, this setting is defaulted to 8 MB.
+# Although it can be increased, the value applies to each client
+# connection/server instance and thus consumes a lot of memory.
+#
+# Type: integer
+#
+#TempCacheLimit = 67108864
+
+
+# ----------------------------
+# Backward-compatible parameter ordering as it was in FB v1/IB
+#
+# Type: boolean
+#
+#OldParameterOrdering = 0
+
+
+# ----------------------------
+# Boolean evaluation method (complete or shortcut)
+#
+# If your SQL code depends on side-effects of full evaluation of OR
+# and AND statements (right-hand-side terms), even if the expressions
+# final result could be determined by just examining the value of the
+# first term, you might need to turn this on.
+#
+# Type: boolean
+#
+#CompleteBooleanEvaluation = 0
+
+
+# ----------------------------
+#
+# Determines the number of seconds that the lock manager will wait after a
+# conflict has been encountered before purging locks from dead processes
+# and doing extra deadlock scan cycle. Engine detects deadlocks instantly
+# in all normal cases, so this value affects things only if something goes
+# wrong. Setting it too low may degrade system performance.
+#
+# Type: integer
+#
+#DeadlockTimeout = 10
+
+
+# ----------------------------
+#
+# How often the pages are flushed on disk
+# (for databases with ForcedWrites=Off only)
+#
+# Number of unflushed writes which will accumulate before they are
+# flushed, at the next transaction commit.  For non-Win32 ports,
+# the default value is -1 (Disabled)
+#
+# Type: integer
+#
+#MaxUnflushedWrites = 100
+
+#
+# Number of seconds during which unflushed writes will accumulate
+# before they are flushed, at the next transaction commit. For non-Win32
+# ports, the default value is -1 (Disabled)
+#
+# Type: integer
+#
+#MaxUnflushedWriteTime = 5
+
+
+# ----------------------------
+#
+# This option controls whether to call abort() when internal error or BUGCHECK
+# is encountered thus invoke post-mortem debugger which can dump core suitable
+# for off-line analysis. When disabled engine tries to minimize damage and
+# continue execution.
+#
+# Note that setting this option to 1 makes engine produce traceable coredumps
+# when something nasty like SIGSEGV happens inside UDF. On Windows enabling
+# this option makes engine invoke JIT debugger facilities when errors happen.
+#
+# For debugging builds (DEV_BUILD), default value is 1 (Enabled)
+#
+# Type: boolean
+#
+#BugcheckAbort = 0
+
+
+# Prior to Firebird 1.5 various SELECT expressions generated unnamed
+# columns. This did not conform to the SQL standard. Fb 1.5 saw the
+# introduction of default aliases for these unnamed columns. In some
+# cases, particularly if string concatenation is used (via the ||
+# operator) this breaks existing scripts.
+#
+# This setting will affect aliases generated via CONCATENATION,
+# CURRENT_DATE, CURRENT_TIME, CURRENT_TIMESTAMP and EXTRACT. Setting
+# the value to true will disable the alias generation. It is only
+# recommended to be used where legacy scripts need to be supported.
+# It will be marked deprecated in Firebird 2.0 and removed in
+# Firebird 3.0.
+#
+# Type: boolean
+#
+#OldColumnNaming = 0
+
+# ----------------------------
+# Relaxing relation alias checking rules in SQL
+#
+# Since Firebird 2.0, strict alias checking rules were implemented in the SQL
+# parser to accord with the SQL standard requirements. This setting allows
+# these rules to be relaxed in order to allow legacy applications to run on 
+# Firebird 2.0.
+# A setting of 1 (true) allows the parser to resolve a qualified column reference 
+# using the relation name, where an alias has been specified for that relation.
+#
+# For example, it allows a query such as:
+#       SELECT TABLE.X FROM TABLE A
+#
+# It is not recommended to enable this setting. It should be regarded as an 
+# interim workaround for porting untidy legacy code, until it is practicable to 
+# revise such code. 
+# 
+# CAUTION!
+# There is no guarantee that this setting will be available in future Firebird 
+# versions.
+#
+# Type: boolean
+#
+#RelaxedAliasChecking = 0
+
+# ----------------------------
+# Client Connection Settings (Basic)
+#
+# Seconds to wait before concluding an attempt to connect has failed.
+#
+# Type: integer
+#
+#ConnectionTimeout = 180
+
+#
+# Seconds to wait on a silent client connection before the server sends
+# dummy packets to request acknowledgment.
+#
+# DO NOT USE THIS OPTION. It may hang or crash Windows on the client side as
+# explained here: http://support.microsoft.com/default.aspx?kbid=296265
+# or may not prevent eventual inactive client disconnection for other OS.
+#
+# Normally, Firebird uses SO_KEEPALIVE socket option to keep track of
+# active connections. If you do not like default 2-hour keepalive timeout
+# then adjust your server OS settings appropriately. On UNIX-like OS's,
+# modify contents of /proc/sys/net/ipv4/tcp_keepalive_*. On Windows,
+# follow instrutions of this article:
+# http://support.microsoft.com/default.aspx?kbid=140325
+#
+# Type: integer
+#
+#DummyPacketInterval = 0
+
+
+# ----------------------------
+# TCP Protocol Settings
+#
+# The TCP Service name/Port number to be used for client database
+# connections.
+#
+# It is only necessary to change one of the entries, not both.  The
+# order of precendence is the 'RemoteServiceName' (if an entry is
+# found in the 'services.' file) then the 'RemoteServicePort'.
+#
+# Type: string, integer
+#
+#RemoteServiceName = gds_db
+#RemoteServicePort = 3050
+
+#
+# The TCP Port Number to be used for server Event Notification
+# messages.  The value of 0 (Zero) means that the server will choose
+# a port number randomly.
+#
+# Type: integer
+#
+#RemoteAuxPort = 0
+
+#
+# TCP/IP buffer size for send and receive buffers of both the client
+# and server. The engine reads ahead of the client and can send
+# several rows of data in a single packet. The larger the packet size,
+# the more data is sent per transfer. Range is 1448 to 32767 (MAX_SSHORT).
+#
+# Type: integer
+#
+#TcpRemoteBufferSize = 8192
+
+#
+# Either enables or disables Nagle algorithm (TCP_NODELAY option of
+# socket) of the socket connection.
+#
+# Note: Currently is a default for classic and super servers.
+#
+# Type: boolean
+#
+#TcpNoNagle = 1
+
+#
+# Allows incoming connections to be bound to the IP address of a
+# specific network card. It enables rejection of incoming connections
+# through any other network interface except this one. By default,
+# connections from any available network interface are allowed.
+# If you are using Classic Server, this setting is for Windows only.
+# Under Linux, BSD or Mac OS X, with Classic server use xinetd or launchd
+# configuration file (bind parameter)
+#
+# Type: string
+#
+#RemoteBindAddress =
+
+
+# ----------------------------
+# Locking and shared memory parameters
+#
+# Bytes of shared memory allocated for lock manager.
+# In Classic mode, the size given is used for the initial allocation. The
+# table expands dynamically up to the limit of memory. In SuperServer, the
+# initial size is also the final size.
+#
+# Type: integer
+#
+#LockMemSize = 1048576
+
+#
+# Number of semaphores for interprocess communication.
+# In non-threading environments, this sets the number of semaphores
+# available
+#
+# Type: integer
+#
+#LockSemCount = 32
+
+#
+# When a connection wants to lock an object, it gets a lock request
+# block which specifies the object and the lock level requested. Each
+# locked object has a lock block. Request blocks are connected to those
+# lock blocks either as requests that have been granted, or as pending
+# requests.
+#
+# The settings:
+# 	1 means locks are granted first come, first served.
+#	0 means emulate InterBase v3.3 behavior, where locks are granted
+#	  as soon as they are available; can result in lock request
+#       starvation.
+#
+# Type: integer/boolean
+#
+#LockGrantOrder = 1
+
+#
+# In Classic, only one client process may access the lock table at any
+# time. Access to the lock table is governed by a mutex. The mutex can
+# be requested conditionally - a wait is a failure and the request must
+# be retried - or unconditionally - the request will wait until it is
+# satisfied. This parameter establishes the number of attempts that
+# will be made conditionally. Zero value means unconditional mode.
+# Relevant only on SMP machines.
+#
+# Type: integer
+#
+#LockAcquireSpins = 0
+
+#
+# Tune lock hash list; more hash slots mean shorter hash chains. Only
+# necessary under very high load. Prime number values are recommended.
+#
+# Type: integer
+#
+#LockHashSlots = 1009
+
+# ----------------------------
+#
+# Bytes of shared memory allocated for event manager.
+#
+# Type: integer
+#
+#EventMemSize = 65536
+
+
+# ===========================
+# SuperServer Engine Settings
+# ===========================
+#
+# ----------------------------
+# Which CPUs should be used (Windows Only)
+#
+# In an SMP system, sets which processors can be used by the server.
+# The value is taken from a bit map in which each bit represents a CPU.
+# Thus, to use only the first processor, the value is 1. To use both
+# CPU 1 and CPU 2, the value is 3. To use CPU 2 and CPU 3, the value
+# is 6. The default value is 1.
+#
+# Type: integer
+#
+#CpuAffinityMask = 1
+
+
+# ----------------------------
+# Settings for the thread scheduler	 (Windows Only)
+#
+# If you have problems with computer response time, running firebird
+# on workstation, turn off thread scheduler.
+#
+# Type: boolean
+#
+#UsePriorityScheduler = 1
+
+#
+# The wait time, in milli-seconds (ms), before the priority of:
+#	- an active thread is reduced to 'Low', or
+#	- an inactive thread is increased to 'High'
+#
+# Note: The default value was chosen based on experiments on Intel
+# PIII/P4 processors.  It should be increased for using in the computer
+# with lower speed processors.
+#
+# Type: integer
+#
+#PrioritySwitchDelay = 100
+
+#
+# Number of additional 'intervals' given to a 'High' priority thread.
+#
+# Type: integer
+#
+#PriorityBoost = 5
+
+# ----------------------------
+# Garbage collection policy
+#
+# Defines how engine does garbage collection. Valid values are :
+#	cooperative
+#	background
+#	combined
+#
+# Superserver has by default "combined" policy
+# Classic has by default "cooperative" policy.
+#	Other values are ignored by classic server build
+#
+# Type: string (special format)
+#
+#GCPolicy = combined
+
+
+# ==============================
+# Classic Server Engine Settings
+# ==============================
+#
+
+
+# ==============================
+# Settings for Windows platforms
+# ==============================
+#
+# ----------------------------
+# Does the guardian restart the server every time it crashes?
+#    0 - only start the engine/service once
+#    1 - always restart the engine/service if it terminates
+#
+# Type: integer/boolean
+#
+#GuardianOption = 1
+
+
+#
+# ----------------------------
+# Priority level/class for the server process.
+#
+# The values are:
+#     0 (Zero) - normal priority,
+#     positive value - high priority (same as -B command line option)
+#     negative value - low priority.
+#
+# Note: All changes to this value should be carefully tested to ensure
+# that engine is more responsive to requests.
+#
+# Type: integer
+#
+#ProcessPriorityLevel = 0
+
+
+# ----------------------------
+# Local Connection Settings
+#
+# The name of the shared memory area used as a transport channel in local protocol.
+# Note that the local protocol in v2.0 is not compatible with any previous version
+# if Firebird or InterBase.
+#
+# Please note that the server can register objects in Global\ kernel namespace
+# only if it runs under the account with SE_CREATE_GLOBAL_NAME privilege.
+# This means that if you run the server under a restricted account under
+# Windows Vista/XP SP2/2000 SP4 it will not be accessible using the
+# local protocol from other sessions.
+#
+# Type: string
+#
+#IpcName = FIREBIRD
+
+#
+# The name of the pipe used as a transport channel in NetBEUI protocol.
+# Has the same meaning as a port number for TCP/IP. The default value is
+# compatible with IB/FB1.
+#
+# Type: string
+#
+#RemotePipeName = interbas
+
+#
+# Does the server need to create a (hidden) window used for IPC communication.
+# Turn this off to run the server without a window and hence without local protocol.
+# Can be used for running a few instances of the server simultaneously on win32.
+#
+# Type: boolean
+#
+#CreateInternalWindow = 1
+
+
+# ============================
+# Settings for Unix/Linux platforms
+# ============================
+#
+#
+# UNIX signal to use for interprocess communication
+#
+# Type: integer
+#
+#LockSignal = 16
+
+
+# ----------------------------
+# Remove protection against opening databases on NFS mounted volumes
+#
+#     ***WARNING*** ***WARNING*** ***WARNING*** ***WARNING***
+#
+# This option removes an important safety feature of Firebird and can
+# cause irrecoverable database corruption. Do not use this option unless
+# you understand the risks and are prepared to accept the loss of the
+# contents of your database.
+# Unless this configuration option is changed from 0 to 1, Firebird can
+# open a database only if the database is stored on a drive physically
+# attached to the local computer - the computer running that copy of
+# Firebird. Requests for connections to databases stored on NFS mounted
+# drives are redirected to a Firebird server running on the computer that
+# "owns" the disk.
+# This restriction prevents two different copies of Firebird from opening
+# the same database without coordinating their activities. Uncoordinated
+# access by multiple copies of Firebird will corrupt a database. On a local
+# system, the system-level file locking prevents uncoordinated access to
+# the database file.
+# NFS does not provide a reliable way to detect multiple users of a file on
+# an NFS mounted disk. If a second copy of Firebird connects to a database on
+# an NFS mounted disk, it will corrupt the database.
+# Under some circumstances, running a Firebird server on the computer that
+# owns NFS mounted volumes is inconvenient or impossible. Applications that
+# use the "embedded" variant of Firebird and never share access to a database
+# can use this option to permit direct access to databases on NFS mounted
+# volumes.
+# DO NOT ENABLE THIS OPTION UNLESS YOU REALLY KNOW WHAT YOU ARE DOING.
+#
+# Type: boolean
+#
+#RemoteFileOpenAbility = 0
+
+# ----------------------------
+# Remove protection against redirecting requests to other servers
+#
+#     ***WARNING*** ***WARNING*** ***WARNING*** ***WARNING***
+#
+# Ability to redirect requests to other servers was initially present
+# in Interbase, but was broken by Borland in Interbase 6.0, when
+# they added SQL dialects. Request redirection was fixed in firebird 2.0,
+# but today such behaviour (proxy) seems to be dangerous from security
+# point of view. Imagine, you have one carefully protected firebird server,
+# access to which is possible from global net. But in case when this server
+# has access to your internal LAN (may and should be restricted,
+# but often possible), it will work as a gateway for incoming requests like:
+# firebird.your.domain.com:internal_server:/private/database.fdb
+# It's enough to know name/IP of some internal server on your LAN, and for
+# this connection one even need not know login/password on external server.
+# Such gateway easily overrides firewall, installed to protect your LAN
+# from outside attack.
+#
+# DO NOT ENABLE THIS OPTION UNLESS YOU REALLY KNOW WHAT YOU ARE DOING.
+#
+# Type: boolean
+#
+#Redirection = 0
+
+#######################################
+#
+# KB to Bytes Conversion table
+#
+#######################################
+#
+#    KB     Bytes         KB     Bytes
+#   ----    ---------    ----    ---------
+#      1    1024           32    32768
+#      2    2048           64    65536
+#      4    4096          128    131072
+#      8    8192          256    262144
+#     16    16384         512    524288
+#
+#######################################
+#
+# MB to Bytes Conversion table
+#
+#######################################
+#
+#    MB    Bytes           MB    Bytes            MB    Bytes
+#   ---    ---------      ---    -----------     ---    -----------
+#     1    1048576         64    67108864        448    469762048
+#     2    2097152        128    134217728       512    536870912
+#     4    4194304        192    201326592       640    671088640
+#     8    8388608        256    268435456       768    805306368
+#    16    16777216       320    335544320       896    939524096
+#    32    33554432       384    402653184      1024    1073741824
+#
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/gds32.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/gds32.dll
new file mode 100644
index 0000000..153e726
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/gds32.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/ib_util.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/ib_util.dll
new file mode 100644
index 0000000..e48de02
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/ib_util.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icudt30.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icudt30.dll
new file mode 100644
index 0000000..fe33892
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icudt30.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icuin30.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icuin30.dll
new file mode 100644
index 0000000..50382b5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icuin30.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icuuc30.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icuuc30.dll
new file mode 100644
index 0000000..c9043e5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/icuuc30.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/sqlite3.dll b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/sqlite3.dll
new file mode 100644
index 0000000..fcac15d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Bin/sqlite3.dll differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary.RODL
new file mode 100644
index 0000000..d944d11
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary.RODL	
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="DASampleLibrary" UID="{451AF84F-612F-4E30-943C-47820772CCA9}" Version="3.0">
+<Services>
+<Service Name="DASampleService" UID="{BDAA5EA6-0F7A-4CDD-9D9E-29C2BD20594A}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{F23D518D-B0A4-4714-A654-5C743AF40C79}">
+<Operations>
+<Operation Name="Login" UID="{0A05B9F9-10F7-4445-AF1C-5DEFAF4F19D3}">
+<Parameters>
+<Parameter Name="aPlatform" DataType="PlatformEnum" Flag="In" >
+</Parameter>
+<Parameter Name="aName" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="BlockRow" UID="{C3A97019-971E-456B-948E-A7CD0AB95113}">
+<Parameters>
+<Parameter Name="pkField" DataType="AnsiString" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="UnblockRow" UID="{31268A12-8461-4403-A621-5400399C228A}">
+<Parameters>
+<Parameter Name="pkField" DataType="AnsiString" Flag="In" >
+</Parameter>
+<Parameter Name="IsReadRow" DataType="Boolean" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="BlockSetOfRows" UID="{E05EAD68-2670-4AE4-B68C-523761FFB1BD}">
+<Parameters>
+</Parameters>
+</Operation>
+<Operation Name="Subscribe" UID="{ACA8D69C-D1D8-4378-8361-F8EED9069E42}">
+<Parameters>
+<Parameter Name="aSubscribe" DataType="Boolean" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+<EventSink Name="UpdateEvent" UID="{97252A87-FF24-4E0E-851F-50BACAA0DB36}">
+<Interfaces>
+<Interface Name="Default" UID="{ED08A76E-747B-4779-94BD-34F59C218E78}">
+<Operations>
+<Operation Name="OnUpdateBlock" UID="{079B51D7-2895-4665-B1AE-D0787A6427D0}">
+<Parameters>
+<Parameter Name="pkFields" DataType="AnsiString" Flag="In">
+</Parameter>
+<Parameter Name="senderGuid" DataType="Guid" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="OnUpdateUnblock" UID="{AA9EB104-9A4B-4D1C-B730-B326BA26B5EB}">
+<Parameters>
+<Parameter Name="pkField" DataType="AnsiString" Flag="In">
+</Parameter>
+<Parameter Name="senderGuid" DataType="Guid" Flag="In">
+</Parameter>
+<Parameter Name="isReadRow" DataType="Boolean" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="OnUpdateAllBlock" UID="{0DE2FF1C-66FF-4288-8861-BF59A18B085D}">
+<Parameters>
+<Parameter Name="pkFields" DataType="AnsiStringArray" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</EventSink>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+<Enum Name="PlatformEnum" UID="{46A985F9-1AEF-46E8-9E39-2A8870651670}">
+<EnumValues>
+<EnumValue Name="peUnknown">
+</EnumValue>
+<EnumValue Name="peWindowsVisualStudio">
+</EnumValue>
+<EnumValue Name="peWindowsDelphi">
+</EnumValue>
+<EnumValue Name="peWindowsFPC">
+</EnumValue>
+<EnumValue Name="peWindowsMono">
+</EnumValue>
+<EnumValue Name="peBrowserJavaScript">
+</EnumValue>
+<EnumValue Name="peBrowserSilverlight">
+</EnumValue>
+<EnumValue Name="peCompactFramework">
+</EnumValue>
+<EnumValue Name="peMacFPC">
+</EnumValue>
+<EnumValue Name="peMacMono">
+</EnumValue>
+<EnumValue Name="peIPhoneXcode">
+</EnumValue>
+<EnumValue Name="peMacXcode">
+</EnumValue>
+<EnumValue Name="peLinuxFPC">
+</EnumValue>
+<EnumValue Name="peLinuxMono">
+</EnumValue>
+</EnumValues>
+</Enum>
+</Enums>
+<Arrays>
+<Array Name="AnsiStringArray" UID="{A73B6B43-CAAE-4DEF-A334-14D47A277710}">
+<ElementType DataType="AnsiString" />
+</Array>
+</Arrays>
+<Uses>
+<Use Name="DataAbstract" UID="{B2EC87B2-1124-4AE3-A8D4-782D3433B67A}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="d:\RemObjects\Data Abstract for Delphi\Source\DataAbstract4.RODL">
+</Use>
+</Uses>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..20839dd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+
+    Resize(lSource.Count);
+    for i := 0 to lSource.Count-1 do
+      Items[i] := lSource.Items[i];
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary_Invk.pas
new file mode 100644
index 0000000..1fdb10e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary_Invk.pas	
@@ -0,0 +1,150 @@
+unit DASampleLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Used RODL Intf's:} DataAbstract4_Intf,
+  {Used RODL Invk's:} DataAbstract4_Invk,
+  {Generated:} DASampleLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TDASampleService_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_BlockRow(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_UnblockRow(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_BlockSetOfRows(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_Subscribe(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TDASampleService_Invoker }
+
+constructor TDASampleService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TDASampleService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Login(const aPlatform: PlatformEnum; const aName: Widestring); }
+var
+  aPlatform: DASampleLibrary_Intf.PlatformEnum;
+  aName: Widestring;
+begin
+  try
+    __Message.Read('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Read('aName', TypeInfo(Widestring), aName, []);
+
+    (__Instance as IDASampleService).Login(aPlatform, aName);
+
+    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'LoginResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TDASampleService_Invoker.Invoke_BlockRow(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure BlockRow(const pkField: AnsiString); }
+var
+  pkField: AnsiString;
+begin
+  try
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+
+    (__Instance as IDASampleService).BlockRow(pkField);
+
+    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'BlockRowResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TDASampleService_Invoker.Invoke_UnblockRow(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean); }
+var
+  pkField: AnsiString;
+  IsReadRow: Boolean;
+begin
+  try
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+
+    (__Instance as IDASampleService).UnblockRow(pkField, IsReadRow);
+
+    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'UnblockRowResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TDASampleService_Invoker.Invoke_BlockSetOfRows(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure BlockSetOfRows; }
+begin
+  try
+    (__Instance as IDASampleService).BlockSetOfRows;
+
+    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'BlockSetOfRowsResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TDASampleService_Invoker.Invoke_Subscribe(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Subscribe(const aSubscribe: Boolean); }
+var
+  aSubscribe: Boolean;
+begin
+  try
+    __Message.Read('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+
+    (__Instance as IDASampleService).Subscribe(aSubscribe);
+
+    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'SubscribeResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.Sample.html
new file mode 100644
index 0000000..c670409
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.Sample.html	
@@ -0,0 +1,63 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">Data Abstract Sample Server</p>
+
+<p>
+This application is one of available samples that can act as a server for the client applications in the PCTrade Sample Suite. 
+It provides almost all information about the underlying activities of Data Abstract.
+</p>
+<p>
+While "real life" middle-tier servers are usually black boxes that run without any user interface as Windows Services or Daemons, 
+this sample - for illustration purposes - takes the opposite approach and for each request made from a client provides 
+textual descriptions of the processing that the Data Abstract library did underneath the hood to service the request. 
+Thus, it provides a great opportunity to learn how Data Abstract works.
+</p>
+<p><b><font color="red">NOTICE</font></b><br/>
+The Data Abstract for Delphi PCTrade samples suite ships with a precompiled sample server. The executable file along with some 
+support files necessary can be found under \Bin subdirectory of the sample directory, as well as in the Windows Start Menu.<br/>
+The precomipled server executable was built using AnyDAC data access suite, available as separate product, to provide more data access options. 
+Please visit <a href="http://www.anydac.com">http://www.anydac.com</a> for more information.
+In addition to AnyDAC, the server uses dbExpress components for data access to Firebird.<br/>
+When you compile the sample server yourself, the executable file produced will also be placed into \Bin subdirectory. 
+The executable file should be located there for the server to work correctly.<br/>
+<b>WARNING:</b> if you are going to build the server with Delphi version prior to 2010 you must rename or delete the
+dbxdrivers.ini file from the \Bin directory and have a properly configured dbExpress suite installed. 
+</p>
+
+<p>
+<b>NOTICE:</b><br/>
+Unfortunately, our preferred out-of-the-box databases for this sample, SQLite and Firebird, 
+have problems with accessing Unicode fields in <b>Delphi 7</b>. We are trying to resolve 
+this for a future release, but until then, please set up a Microsoft SQL Server or MSDE 
+test database with the provided .backup file, to run these samples. You can also use the precompiled 
+server executable in this case.
+This only affects <b>Delphi 7</b>, and only when you manually rebuild the server. We apologize for the inconvenience.
+</p>
+
+<p class="h2">Examine the sample</p>
+<p>
+Majority of the server code was written to support logging of Data Abstract internal activity or other things rarely used in real life.
+Such code is not related to any sample in particular.
+There are several exclusions, please read corresponding samples descriptions for required server code references.
+</p>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Launch the Sample Server executable.</li> 
+<li>Check if the default database connection was successfully established (examine the log window).</li>
+<li>
+You may change the database server connects to. Click desired connection description in the list box 
+and examine the log window to find out if connection was established successfully.
+</li>
+<li>Run the samples supplied and examine the log output to see Data Abstract internal data processing details.</li>
+<li>Use Clear Log button to get rid of text written to the log window.</li>
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dof b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dof
new file mode 100644
index 0000000..f6022f7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dof	
@@ -0,0 +1,19 @@
+[Directories]
+OutputDir=
+Packages=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+
+[Compiler]
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitDeprecated=0
+UnitLibrary=0
+UnitPlatform=0
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dpr
new file mode 100644
index 0000000..fc2d8df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dpr	
@@ -0,0 +1,30 @@
+program DASampleServer;
+
+{#ROGEN:DASampleLibrary.RODL} // RemObjects SDK: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  DASampleService_Impl in 'DASampleService_Impl.pas' {DASampleService: TDARemoteService},
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule},
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas',
+  DASampleLibrary_Invk in 'DASampleLibrary_Invk.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('DASampleServer', 'DASampleServer') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.Title := 'PCTrade Sample Server - Data Abstract for Delphi';
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dproj
new file mode 100644
index 0000000..9e1cc51
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.dproj	
@@ -0,0 +1,56 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{5abad5b1-0ce0-42cd-a6e0-cdbc3081570e}</ProjectGuid>
+    <MainSource>DASampleServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>Bin\DASampleServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_ExeOutput>Bin</DCC_ExeOutput>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1049</VersionInfo><VersionInfo Name="CodePage">1251</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">DASampleServer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DASampleServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="DASampleLibrary_Invk.pas" />
+    <DCCReference Include="DASampleService_Impl.pas">
+      <Form>DASampleService</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fServerDataModule.pas">
+      <Form>ServerDataModule</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fServerForm.pas">
+      <Form>ServerForm</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.rc b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.rc
new file mode 100644
index 0000000..b7893f2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.rc	
@@ -0,0 +1,23 @@
+MAINICON ICON "R:\\Data Abstract for Delphi\\Samples\\Server\\mainicon.ico"
+1 VERSIONINFO
+FILEVERSION 1,0,0,86
+PRODUCTVERSION 1,0,0,86
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "040904E4"
+         BEGIN
+              VALUE "ProductVersion", "1.0.0.86\0"
+              VALUE "FileVersion", "1.0.0.86\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0409, 1252
+    END
+END
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.res
new file mode 100644
index 0000000..9a509a9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleService_Impl.dfm
new file mode 100644
index 0000000..3f680af
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleService_Impl.dfm	
@@ -0,0 +1,2137 @@
+object DASampleService: TDASampleService
+  OldCreateOrder = True
+  SessionManager = ServerDataModule.SessionManager
+  EventRepository = ServerDataModule.EventRepository
+  ServiceSchema = Schema
+  ServiceDataStreamer = DataStreamer
+  AllowExecuteSQL = True
+  AllowWhereSQL = True
+  AllowExecuteCommands = True
+  ExportedDataTables = <>
+  BeforeProcessDeltas = DataAbstractServiceBeforeProcessDeltas
+  AfterProcessDeltas = DataAbstractServiceAfterProcessDeltas
+  AfterGetDatasetData = DataAbstractServiceAfterGetDatasetData
+  BeforeExecuteCommand = DataAbstractServiceBeforeExecuteCommand
+  ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
+  ValidateCommandExecution = DataAbstractServiceValidateCommandExecution
+  ValidateDirectSQLAccess = DataAbstractServiceValidateDirectSQLAccess
+  Height = 165
+  Width = 769
+  object DataStreamer: TDABin2DataStreamer
+    Left = 32
+    Top = 8
+  end
+  object Schema: TDASchema
+    ConnectionManager = ServerDataModule.ConnectionManager
+    DataDictionary = ServerDataModule.DataDictionary
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'CLIENTS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ClientId'
+                TableField = 'CLIENT_ID'
+              end
+              item
+                DatasetField = 'ClientName'
+                TableField = 'CLIENT_NAME'
+              end
+              item
+                DatasetField = 'ContactPhone'
+                TableField = 'CLIENT_PHONE'
+              end
+              item
+                DatasetField = 'ContactAddress'
+                TableField = 'CLIENT_ADDRESS'
+              end
+              item
+                DatasetField = 'AdditionalInfo'
+                TableField = 'CLIENT_REMARKS'
+              end
+              item
+                DatasetField = 'ClientDiscount'
+                TableField = 'CLIENT_DISCOUNT'
+              end>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Customers'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ClientId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'ClientName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'ContactPhone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'ContactAddress'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'AdditionalInfo'
+                TableField = 'Remarks'
+              end
+              item
+                DatasetField = 'ClientDiscount'
+                TableField = 'Discount'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Customers'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ClientId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'ClientName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'ContactPhone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'ContactAddress'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'AdditionalInfo'
+                TableField = 'Remarks'
+              end
+              item
+                DatasetField = 'ClientDiscount'
+                TableField = 'Discount'
+              end>
+          end>
+        Name = 'Clients'
+        Fields = <
+          item
+            Name = 'ClientId'
+            DataType = datString
+            Size = 38
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ClientName'
+            DataType = datWideString
+            Size = 120
+            Required = True
+          end
+          item
+            Name = 'ContactPhone'
+            DataType = datWideString
+            Size = 50
+          end
+          item
+            Name = 'ContactAddress'
+            DataType = datWideString
+            Size = 255
+          end
+          item
+            Name = 'AdditionalInfo'
+            DataType = datWideMemo
+          end
+          item
+            Name = 'ClientDiscount'
+            DataType = datFloat
+            DefaultValue = '0'
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Orders'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'OrderStatus'
+                TableField = 'OrderStatus'
+              end
+              item
+                DatasetField = 'Client'
+                TableField = 'CustomerId'
+              end>
+          end
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'ORDERS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderId'
+                TableField = 'ORDER_ID'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'ORDER_DATE'
+              end
+              item
+                DatasetField = 'OrderStatus'
+                TableField = 'ORDER_STATUS'
+              end
+              item
+                DatasetField = 'Client'
+                TableField = 'CLIENT_ID'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Orders'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'OrderId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'OrderDate'
+                TableField = 'OrderDate'
+              end
+              item
+                DatasetField = 'OrderStatus'
+                TableField = 'OrderStatus'
+              end
+              item
+                DatasetField = 'Client'
+                TableField = 'CustomerId'
+              end>
+          end>
+        Name = 'Orders'
+        Fields = <
+          item
+            Name = 'OrderId'
+            DataType = datAutoInc
+            GeneratorName = 'ORDERS_ORDER_ID_GEN'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'OrderDate'
+            DataType = datDateTime
+            Required = True
+          end
+          item
+            Name = 'OrderStatus'
+            DataType = datByte
+            Required = True
+          end
+          item
+            Name = 'Client'
+            DataType = datString
+            Size = 38
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'OrderDetails'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'DetailId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'Order'
+                TableField = 'OrderId'
+              end
+              item
+                DatasetField = 'Product'
+                TableField = 'ProductId'
+              end
+              item
+                DatasetField = 'Provider'
+                TableField = 'SupplierId'
+              end
+              item
+                DatasetField = 'Quantity'
+                TableField = 'Qty'
+              end
+              item
+                DatasetField = 'Price'
+                TableField = 'Price'
+              end
+              item
+                DatasetField = 'Total'
+                TableField = 'Total'
+              end>
+          end
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'ORDER_DETAILS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'DetailId'
+                TableField = 'DETAIL_ID'
+              end
+              item
+                DatasetField = 'Order'
+                TableField = 'ORDER_ID'
+              end
+              item
+                DatasetField = 'Product'
+                TableField = 'PROD_ID'
+              end
+              item
+                DatasetField = 'Provider'
+                TableField = 'SUPP_ID'
+              end
+              item
+                DatasetField = 'Quantity'
+                TableField = 'QTY'
+              end
+              item
+                DatasetField = 'Price'
+                TableField = 'PRICE'
+              end
+              item
+                DatasetField = 'Total'
+                TableField = 'TOTAL'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'OrderDetails'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'DetailId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'Order'
+                TableField = 'OrderId'
+              end
+              item
+                DatasetField = 'Product'
+                TableField = 'ProductId'
+              end
+              item
+                DatasetField = 'Provider'
+                TableField = 'SupplierId'
+              end
+              item
+                DatasetField = 'Quantity'
+                TableField = 'Qty'
+              end
+              item
+                DatasetField = 'Price'
+                TableField = 'Price'
+              end
+              item
+                DatasetField = 'Total'
+                TableField = 'Total'
+              end>
+          end>
+        Name = 'OrderDetails'
+        Fields = <
+          item
+            Name = 'DetailId'
+            DataType = datAutoInc
+            GeneratorName = 'ORDER_DETAILS_DETAIL_ID_GEN'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'Order'
+            DataType = datInteger
+            Required = True
+          end
+          item
+            Name = 'Product'
+            DataType = datString
+            Size = 38
+            Required = True
+          end
+          item
+            Name = 'Provider'
+            DataType = datString
+            Size = 38
+            Required = True
+          end
+          item
+            Name = 'Quantity'
+            DataType = datFloat
+            Required = True
+          end
+          item
+            Name = 'Price'
+            DataType = datDecimal
+            Required = True
+          end
+          item
+            Name = 'Total'
+            DataType = datDecimal
+            LogChanges = False
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'ProductGroups'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'GroupId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'GroupName'
+                TableField = 'Name'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'ProductGroups'
+            SQL = 
+              'SELECT '#10'    [Id], [Name]'#10'  FROM'#10'    ProductGroups'#10'  WHERE {Where' +
+              '}'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'GroupId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'GroupName'
+                TableField = 'Name'
+              end>
+          end
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'PROD_GROUPS'
+            SQL = 
+              'SELECT '#10'    "GROUP_ID", "GROUP_NAME"'#10'  FROM'#10'    PROD_GROUPS'#10'  WH' +
+              'ERE {Where}'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'GroupId'
+                TableField = 'GROUP_ID'
+              end
+              item
+                DatasetField = 'GroupName'
+                TableField = 'GROUP_NAME'
+              end>
+          end>
+        Name = 'Groups'
+        Fields = <
+          item
+            Name = 'GroupId'
+            DataType = datInteger
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'GroupName'
+            DataType = datWideString
+            Size = 120
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Products'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProductId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'ProductGroup'
+                TableField = 'GroupId'
+              end
+              item
+                DatasetField = 'ProductCode'
+                TableField = 'PCode'
+              end
+              item
+                DatasetField = 'ProductName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'ProductWarranty'
+                TableField = 'Warranty'
+              end
+              item
+                DatasetField = 'ProductDetails'
+                TableField = 'Remarks'
+              end
+              item
+                DatasetField = 'ProductSeller'
+                TableField = 'VendorId'
+              end
+              item
+                DatasetField = 'IsObsolete'
+                TableField = 'Obsolete'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Products'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProductId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'ProductGroup'
+                TableField = 'GroupId'
+              end
+              item
+                DatasetField = 'ProductCode'
+                TableField = 'PCode'
+              end
+              item
+                DatasetField = 'ProductName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'ProductWarranty'
+                TableField = 'Warranty'
+              end
+              item
+                DatasetField = 'ProductDetails'
+                TableField = 'Remarks'
+              end
+              item
+                DatasetField = 'ProductSeller'
+                TableField = 'VendorId'
+              end
+              item
+                DatasetField = 'IsObsolete'
+                TableField = 'Obsolete'
+              end>
+          end
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'PRODUCTS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProductId'
+                TableField = 'PROD_ID'
+              end
+              item
+                DatasetField = 'ProductGroup'
+                TableField = 'PROD_GROUP'
+              end
+              item
+                DatasetField = 'ProductName'
+                TableField = 'PROD_NAME'
+              end
+              item
+                DatasetField = 'ProductWarranty'
+                TableField = 'PROD_WARRANTY'
+              end
+              item
+                DatasetField = 'ProductDetails'
+                TableField = 'PROD_REMARKS'
+              end
+              item
+                DatasetField = 'ProductSeller'
+                TableField = 'PROD_VENDOR'
+              end
+              item
+                DatasetField = 'IsObsolete'
+                TableField = 'PROD_IS_OBSOLETE'
+              end
+              item
+                DatasetField = 'ProductCode'
+                TableField = 'PROD_CODE'
+              end>
+          end>
+        Name = 'Products'
+        Fields = <
+          item
+            Name = 'ProductId'
+            DataType = datWideString
+            Size = 38
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ProductGroup'
+            DataType = datInteger
+            Required = True
+          end
+          item
+            Name = 'ProductCode'
+            DataType = datString
+            Size = 50
+            Required = True
+          end
+          item
+            Name = 'ProductName'
+            DataType = datWideString
+            Size = 255
+            Required = True
+          end
+          item
+            Name = 'ProductWarranty'
+            DataType = datByte
+          end
+          item
+            Name = 'ProductDetails'
+            DataType = datBlob
+            BlobType = dabtMemo
+          end
+          item
+            Name = 'ProductSeller'
+            DataType = datWideString
+            Size = 38
+          end
+          item
+            Name = 'IsObsolete'
+            DataType = datSmallInt
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Vendors'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'DealerId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'DealerName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'DealerUrl'
+                TableField = 'VendorSite'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Vendors'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'DealerId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'DealerName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'DealerUrl'
+                TableField = 'VendorSite'
+              end>
+          end
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'PROD_VENDORS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'DealerId'
+                TableField = 'VENDOR_ID'
+              end
+              item
+                DatasetField = 'DealerName'
+                TableField = 'VENDOR_NAME'
+              end
+              item
+                DatasetField = 'DealerUrl'
+                TableField = 'VENDOR_WWW'
+              end>
+          end>
+        Name = 'Dealers'
+        Fields = <
+          item
+            Name = 'DealerId'
+            DataType = datWideString
+            Size = 38
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'DealerName'
+            DataType = datWideString
+            Size = 120
+            Required = True
+          end
+          item
+            Name = 'DealerUrl'
+            DataType = datWideString
+            Size = 255
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Prices'
+            SQL = 
+              'SELECT [pl].[ProductID], [pl].[StartDate], [pl].[Price]'#10'FROM [pr' +
+              'icelist] [pl]'#10'     INNER JOIN'#10'     ('#10'           SELECT [ProductI' +
+              'D], max([StartDate]) as StartDate'#10#9'   FROM [pricelist]'#10#9'   GROUP' +
+              ' BY [ProductID]'#10'      ) [lastdates]'#10'      ON  [pl].[productid] =' +
+              ' [lastdates].[productid]'#10'      AND [pl].[startdate] = [lastdates' +
+              '].[startdate]'#10'ORDER BY [pl].[ProductID]'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Product'
+                TableField = 'ProductId'
+              end
+              item
+                DatasetField = 'Price'
+                TableField = 'Price'
+              end
+              item
+                DatasetField = 'StartDate'
+                TableField = 'StartDate'
+              end>
+          end
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'PRICES'
+            SQL = 
+              'SELECT "PL"."PROD_ID", "PL"."START_DATE", "PL"."PRICE"'#10'FROM "PRI' +
+              'CES" "PL"'#10'     INNER JOIN'#10'     ('#10'           SELECT "PROD_ID", ma' +
+              'x("START_DATE") as START_DATE'#10#9'   FROM "PRICES"'#10#9'   GROUP BY "PR' +
+              'OD_ID"'#10'      ) "LASTDATES"'#10'      ON  "PL"."PROD_ID" = "LASTDATES' +
+              '"."PROD_ID"'#10'      AND "PL"."START_DATE" = "LASTDATES"."START_DAT' +
+              'E"'#10'ORDER BY "PL"."PROD_ID"'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Product'
+                TableField = 'PROD_ID'
+              end
+              item
+                DatasetField = 'StartDate'
+                TableField = 'START_DATE'
+              end
+              item
+                DatasetField = 'Price'
+                TableField = 'PRICE'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'PriceList'
+            SQL = 
+              'SELECT [pl].[ProductID], [pl].[StartDate], [pl].[Price]'#10'FROM [pr' +
+              'icelist] [pl]'#10'     INNER JOIN'#10'     ('#10'           SELECT [ProductI' +
+              'D], max([StartDate]) as StartDate'#10#9'   FROM [pricelist]'#10#9'   GROUP' +
+              ' BY [ProductID]'#10'      ) [lastdates]'#10'      ON  [pl].[productid] =' +
+              ' [lastdates].[productid]'#10'      AND [pl].[startdate] = [lastdates' +
+              '].[startdate]'#10'ORDER BY [pl].[ProductID]'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'StartDate'
+                TableField = 'StartDate'
+              end
+              item
+                DatasetField = 'Price'
+                TableField = 'Price'
+              end
+              item
+                DatasetField = 'Product'
+                TableField = 'ProductId'
+              end>
+          end>
+        Name = 'Prices'
+        Fields = <
+          item
+            Name = 'Product'
+            DataType = datWideString
+            Size = 38
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'StartDate'
+            DataType = datDateTime
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'Price'
+            DataType = datFloat
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'SUPPLIERS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProviderId'
+                TableField = 'SUPP_ID'
+              end
+              item
+                DatasetField = 'ProviderName'
+                TableField = 'SUPP_NAME'
+              end
+              item
+                DatasetField = 'ProviderPhone'
+                TableField = 'SUPP_PHONE'
+              end
+              item
+                DatasetField = 'ProviderAddress'
+                TableField = 'SUPP_ADDRESS'
+              end
+              item
+                DatasetField = 'ProviderRemarks'
+                TableField = 'SUPP_REMARKS'
+              end>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Supplier'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProviderId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'ProviderName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'ProviderPhone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'ProviderAddress'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'ProviderRemarks'
+                TableField = 'Remarks'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Suppliers'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ProviderId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'ProviderName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'ProviderPhone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'ProviderAddress'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'ProviderRemarks'
+                TableField = 'Remarks'
+              end>
+          end>
+        Name = 'Providers'
+        Fields = <
+          item
+            Name = 'ProviderId'
+            DataType = datWideString
+            Size = 38
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ProviderName'
+            DataType = datWideString
+            Size = 120
+            Required = True
+          end
+          item
+            Name = 'ProviderPhone'
+            DataType = datWideString
+            Size = 50
+          end
+          item
+            Name = 'ProviderAddress'
+            DataType = datWideString
+            Size = 255
+          end
+          item
+            Name = 'ProviderRemarks'
+            DataType = datWideMemo
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Employees'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'WorkerID'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'WorkerLastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'WorkerFirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'WorkerBirthDate'
+                TableField = 'BirthDate'
+              end
+              item
+                DatasetField = 'WorkerHireDate'
+                TableField = 'HireDate'
+              end
+              item
+                DatasetField = 'WorkerPosition'
+                TableField = 'Position'
+              end
+              item
+                DatasetField = 'WorkerAddress'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'WorkerCity'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'WorkerZip'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'WorkerCountry'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'WorkerPhone'
+                TableField = 'HomePhone'
+              end
+              item
+                DatasetField = 'WorkerPhoto'
+                TableField = 'Photo'
+              end
+              item
+                DatasetField = 'WorkerNotes'
+                TableField = 'Notes'
+              end>
+          end
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'SALESMEN'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'WorkerID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'WorkerLastName'
+                TableField = 'LASTNAME'
+              end
+              item
+                DatasetField = 'WorkerFirstName'
+                TableField = 'FIRSTNAME'
+              end
+              item
+                DatasetField = 'WorkerBirthDate'
+                TableField = 'BIRTHDATE'
+              end
+              item
+                DatasetField = 'WorkerHireDate'
+                TableField = 'HIREDATE'
+              end
+              item
+                DatasetField = 'WorkerPosition'
+                TableField = 'TITLE'
+              end
+              item
+                DatasetField = 'WorkerAddress'
+                TableField = 'ADDRESS'
+              end
+              item
+                DatasetField = 'WorkerCity'
+                TableField = 'CITY'
+              end
+              item
+                DatasetField = 'WorkerZip'
+                TableField = 'POSTALCODE'
+              end
+              item
+                DatasetField = 'WorkerCountry'
+                TableField = 'COUNTRY'
+              end
+              item
+                DatasetField = 'WorkerPhone'
+                TableField = 'PHONE'
+              end
+              item
+                DatasetField = 'WorkerPhoto'
+                TableField = 'PHOTO'
+              end
+              item
+                DatasetField = 'WorkerNotes'
+                TableField = 'REMARKS'
+              end>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Employees'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'WorkerID'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'WorkerLastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'WorkerFirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'WorkerBirthDate'
+                TableField = 'BirthDate'
+              end
+              item
+                DatasetField = 'WorkerHireDate'
+                TableField = 'HireDate'
+              end
+              item
+                DatasetField = 'WorkerPosition'
+                TableField = 'Job'
+              end
+              item
+                DatasetField = 'WorkerAddress'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'WorkerCity'
+                TableField = 'City'
+              end
+              item
+                DatasetField = 'WorkerZip'
+                TableField = 'PostalCode'
+              end
+              item
+                DatasetField = 'WorkerCountry'
+                TableField = 'Country'
+              end
+              item
+                DatasetField = 'WorkerPhone'
+                TableField = 'HomePhone'
+              end
+              item
+                DatasetField = 'WorkerPhoto'
+                TableField = 'Photo'
+              end
+              item
+                DatasetField = 'WorkerNotes'
+                TableField = 'Notes'
+              end>
+          end>
+        Name = 'Workers'
+        Fields = <
+          item
+            Name = 'WorkerID'
+            DataType = datLargeAutoInc
+            GeneratorName = 'SALESMEN_ID_GEN'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'WorkerLastName'
+            DataType = datWideString
+            Size = 20
+            Required = True
+            DisplayLabel = 'LastName'
+          end
+          item
+            Name = 'WorkerFirstName'
+            DataType = datWideString
+            Size = 10
+            Required = True
+            DisplayLabel = 'FirstName'
+          end
+          item
+            Name = 'WorkerBirthDate'
+            DataType = datDateTime
+            DisplayLabel = 'BirthDate'
+          end
+          item
+            Name = 'WorkerHireDate'
+            DataType = datDateTime
+            DisplayLabel = 'HireDate'
+          end
+          item
+            Name = 'WorkerPosition'
+            DataType = datWideString
+            Size = 30
+            DisplayLabel = 'Position'
+          end
+          item
+            Name = 'WorkerAddress'
+            DataType = datWideString
+            Size = 60
+            DisplayLabel = 'Address'
+          end
+          item
+            Name = 'WorkerCity'
+            DataType = datWideString
+            Size = 15
+            DisplayLabel = 'City'
+          end
+          item
+            Name = 'WorkerZip'
+            DataType = datWideString
+            Size = 10
+            DisplayLabel = 'Zip'
+          end
+          item
+            Name = 'WorkerCountry'
+            DataType = datWideString
+            Size = 15
+            DisplayLabel = 'Country'
+          end
+          item
+            Name = 'WorkerPhone'
+            DataType = datWideString
+            Size = 24
+            DisplayLabel = 'Phone'
+          end
+          item
+            Name = 'WorkerPhoto'
+            DataType = datBlob
+            DisplayLabel = 'Photo'
+          end
+          item
+            Name = 'WorkerNotes'
+            DataType = datWideMemo
+            BlobType = dabtMemo
+            DisplayLabel = 'Notes'
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'PROD_VENDORS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'SellerId'
+                TableField = 'VENDOR_ID'
+              end
+              item
+                DatasetField = 'SellerName'
+                TableField = 'VENDOR_NAME'
+              end
+              item
+                DatasetField = 'SellerSite'
+                TableField = 'VENDOR_WWW'
+              end
+              item
+                DatasetField = 'SellerCode'
+                TableField = 'VENDOR_CODE'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Vendors'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'SellerId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'SellerName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'SellerSite'
+                TableField = 'VendorSite'
+              end
+              item
+                DatasetField = 'SellerCode'
+                TableField = 'VCode'
+              end>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Vendors'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'SellerId'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'SellerName'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'SellerSite'
+                TableField = 'VendorSite'
+              end
+              item
+                DatasetField = 'SellerCode'
+                TableField = 'VCode'
+              end>
+          end>
+        Name = 'Sellers'
+        Fields = <
+          item
+            Name = 'SellerId'
+            DataType = datWideString
+            Size = 38
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'SellerName'
+            DataType = datWideString
+            Size = 100
+            Required = True
+          end
+          item
+            Name = 'SellerSite'
+            DataType = datWideString
+            Size = 255
+          end
+          item
+            Name = 'SellerCode'
+            DataType = datWideString
+            Size = 10
+            Required = True
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'SALESMEN'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LASTNAME'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FIRSTNAME'
+              end
+              item
+                DatasetField = 'BirthDate'
+                TableField = 'BIRTHDATE'
+              end
+              item
+                DatasetField = 'Position'
+                TableField = 'TITLE'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'ADDRESS'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'PHONE'
+              end>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Employees'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'BirthDate'
+                TableField = 'BirthDate'
+              end
+              item
+                DatasetField = 'Position'
+                TableField = 'HireDate'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'HomePhone'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Employees'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'EmployeeID'
+              end
+              item
+                DatasetField = 'LastName'
+                TableField = 'LastName'
+              end
+              item
+                DatasetField = 'FirstName'
+                TableField = 'FirstName'
+              end
+              item
+                DatasetField = 'BirthDate'
+                TableField = 'BirthDate'
+              end
+              item
+                DatasetField = 'Position'
+                TableField = 'Position'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'HomePhone'
+              end>
+          end>
+        Name = 'BPWorkers'
+        Fields = <
+          item
+            Name = 'Id'
+            DataType = datAutoInc
+            GeneratorName = 'SALESMEN_ID_GEN'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'LastName'
+            DataType = datWideString
+            Size = 20
+            Required = True
+          end
+          item
+            Name = 'FirstName'
+            DataType = datWideString
+            Size = 10
+            Required = True
+          end
+          item
+            Name = 'BirthDate'
+            DataType = datDateTime
+          end
+          item
+            Name = 'Position'
+            DataType = datWideString
+            Size = 30
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'SUPPLIERS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'SUPP_ID'
+              end
+              item
+                DatasetField = 'Name'
+                TableField = 'SUPP_NAME'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'SUPP_PHONE'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'SUPP_ADDRESS'
+              end>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'SUPPLIER'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'Name'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Suppliers'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'Name'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end>
+          end>
+        Name = 'BPProviders'
+        Fields = <
+          item
+            Name = 'Id'
+            DataType = datString
+            Size = 38
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'Name'
+            DataType = datWideString
+            Size = 120
+            Required = True
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 50
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 255
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'CLIENTS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'CLIENT_ID'
+              end
+              item
+                DatasetField = 'Name'
+                TableField = 'CLIENT_NAME'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'CLIENT_PHONE'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'CLIENT_ADDRESS'
+              end
+              item
+                DatasetField = 'Remarks'
+                TableField = 'CLIENT_REMARKS'
+              end
+              item
+                DatasetField = 'Discount'
+                TableField = 'CLIENT_DISCOUNT'
+              end>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Customers'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'Name'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'Remarks'
+                TableField = 'Remarks'
+              end
+              item
+                DatasetField = 'Discount'
+                TableField = 'Discount'
+              end>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Customers'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'Id'
+              end
+              item
+                DatasetField = 'Name'
+                TableField = 'Name'
+              end
+              item
+                DatasetField = 'Phone'
+                TableField = 'Phone'
+              end
+              item
+                DatasetField = 'Address'
+                TableField = 'Address'
+              end
+              item
+                DatasetField = 'Remarks'
+                TableField = 'Remarks'
+              end
+              item
+                DatasetField = 'Discount'
+                TableField = 'Discount'
+              end>
+          end>
+        Name = 'BPClients'
+        Fields = <
+          item
+            Name = 'Id'
+            DataType = datString
+            Size = 38
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'Name'
+            DataType = datWideString
+            Size = 120
+            Required = True
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 50
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 255
+          end
+          item
+            Name = 'Remarks'
+            DataType = datWideMemo
+          end
+          item
+            Name = 'Discount'
+            DataType = datFloat
+            Required = True
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <
+      item
+        Params = <>
+        Statements = <>
+        Name = 'UnionAddresses'
+        Fields = <
+          item
+            Name = 'Id'
+            DataType = datWideString
+            Size = 38
+            InPrimaryKey = True
+          end
+          item
+            Name = 'Name'
+            DataType = datWideString
+            Size = 120
+          end
+          item
+            Name = 'ContactPhone'
+            DataType = datWideString
+            Size = 50
+          end
+          item
+            Name = 'ContactAddress'
+            DataType = datWideString
+            Size = 255
+          end>
+        SourceTables = <
+          item
+            Name = 'Providers'
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'ProviderId'
+              end
+              item
+                DatasetField = 'Name'
+                TableField = 'ProviderName'
+              end
+              item
+                DatasetField = 'ContactPhone'
+                TableField = 'ProviderPhone'
+              end
+              item
+                DatasetField = 'ContactAddress'
+                TableField = 'ProviderAddress'
+              end>
+            IsReadOnly = False
+          end
+          item
+            Name = 'Clients'
+            ColumnMappings = <
+              item
+                DatasetField = 'Id'
+                TableField = 'ClientId'
+              end
+              item
+                DatasetField = 'Name'
+                TableField = 'ClientName'
+              end
+              item
+                DatasetField = 'ContactPhone'
+                TableField = 'ContactPhone'
+              end
+              item
+                DatasetField = 'ContactAddress'
+                TableField = 'ContactAddress'
+              end>
+            IsReadOnly = False
+          end>
+      end>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'LastName'
+            DataType = datWideString
+            Size = 20
+            Value = ''
+          end
+          item
+            Name = 'FirstName'
+            DataType = datWideString
+            Size = 10
+            Value = ''
+          end
+          item
+            Name = 'BirthDate'
+            DataType = datDateTime
+            Value = ''
+          end
+          item
+            Name = 'Position'
+            DataType = datWideString
+            Size = 30
+            Value = ''
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+            Value = ''
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'SALESMEN'
+            SQL = 
+              'INSERT INTO SALESMEN (LASTNAME, FIRSTNAME, BIRTHDATE, TITLE, ADD' +
+              'RESS, PHONE)'#10'VALUES (:LastName, :FirstName, :BirthDate, :Positio' +
+              'n, :Address, :Phone)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Employees'
+            SQL = 
+              '-- Called schema command "Insert_BPWorkers"'#10'INSERT'#10'  INTO "Emplo' +
+              'yees"'#10'    ("LastName", "FirstName", "BirthDate", "HireDate", "Ad' +
+              'dress", '#10'     "HomePhone")'#10'  VALUES'#10'    (:LastName, :FirstName, ' +
+              ':BirthDate, :Position, :Address, '#10'     :Phone)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Employees'
+            SQL = 
+              '-- Called schema command "Insert_BPWorkers"'#10'INSERT'#10'  INTO "Emplo' +
+              'yees"'#10'    ("LastName", "FirstName", "BirthDate", "Position", "Ad' +
+              'dress", '#10'     "HomePhone")'#10'  VALUES'#10'    (:LastName, :FirstName, ' +
+              ':BirthDate, :Position, :Address, '#10'     :Phone)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_BPWorkers'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_Id'
+            DataType = datAutoInc
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'SALESMEN'
+            SQL = 'DELETE FROM SALESMEN WHERE (ID = :OLD_Id)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Employees'
+            SQL = 
+              '-- Called schema command "Delete_BPWorkers"'#10'DELETE '#10'  FROM'#10'    "' +
+              'Employees"'#10'  WHERE'#10'    ("Id" = :OLD_Id)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Employees'
+            SQL = 
+              '-- Called schema command "Delete_BPWorkers"'#10'DELETE '#10'  FROM'#10'    "' +
+              'Employees"'#10'  WHERE'#10'    ("EmployeeID" = :OLD_Id)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_BPWorkers'
+      end
+      item
+        Params = <
+          item
+            Name = 'LastName'
+            DataType = datWideString
+            Size = 20
+            Value = ''
+          end
+          item
+            Name = 'FirstName'
+            DataType = datWideString
+            Size = 10
+            Value = ''
+          end
+          item
+            Name = 'BirthDate'
+            DataType = datDateTime
+            Value = ''
+          end
+          item
+            Name = 'Position'
+            DataType = datWideString
+            Size = 30
+            Value = ''
+          end
+          item
+            Name = 'Address'
+            DataType = datWideString
+            Size = 60
+            Value = ''
+          end
+          item
+            Name = 'Phone'
+            DataType = datWideString
+            Size = 24
+            Value = ''
+          end
+          item
+            Name = 'OLD_Id'
+            DataType = datAutoInc
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'PCTrade.FB'
+            ConnectionType = 'Interbase'
+            TargetTable = 'SALESMEN'
+            SQL = 
+              'UPDATE SALESMEN'#10'  SET '#10'    LASTNAME = :LastName,'#10'    FIRSTNAME =' +
+              ' :FirstName,'#10'    BIRTHDATE = :BirthDate,'#10'    TITLE = :Position,'#10 +
+              '    ADDRESS = :Address,'#10'    PHONE = :Phone'#10'  WHERE'#10'    (ID = :OL' +
+              'D_Id)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end
+          item
+            Connection = 'PCTrade.SQLite.AnyDAC'
+            ConnectionType = 'SQLite'
+            TargetTable = 'Employees'
+            SQL = 
+              '-- Called schema command "Update_BPWorkers"'#10'UPDATE "Employees"'#10' ' +
+              ' SET '#10'    "LastName" = :LastName, '#10'    "FirstName" = :FirstName,' +
+              ' '#10'    "BirthDate" = :BirthDate, '#10'    "HireDate" = :Position, '#10'  ' +
+              '  "Address" = :Address, '#10'    "HomePhone" = :Phone'#10'  WHERE'#10'    ("' +
+              'Id" = :OLD_Id)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end
+          item
+            Connection = 'PCTrade.MSSQL'
+            ConnectionType = 'MSSQL'
+            TargetTable = 'Employees'
+            SQL = 
+              '-- Called schema command "Update_BPWorkers"'#10'UPDATE "Employees"'#10' ' +
+              ' SET '#10'    "LastName" = :LastName, '#10'    "FirstName" = :FirstName,' +
+              ' '#10'    "BirthDate" = :BirthDate, '#10'    "Position" = :Position, '#10'  ' +
+              '  "Address" = :Address, '#10'    "HomePhone" = :Phone'#10'  WHERE'#10'    ("' +
+              'EmployeeID" = :OLD_Id)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_BPWorkers'
+      end>
+    RelationShips = <
+      item
+        Name = 'FK_PRODUCTS_PROD_GROUPS'
+        MasterDatasetName = 'Groups'
+        MasterFields = 'GroupId'
+        DetailDatasetName = 'Products'
+        DetailFields = 'ProductGroup'
+        RelationshipType = rtForeignKey
+      end
+      item
+        Name = 'FK_PRODUCTS_PROD_VENDORS'
+        MasterDatasetName = 'Dealers'
+        MasterFields = 'DealerId'
+        DetailDatasetName = 'Products'
+        DetailFields = 'ProductSeller'
+        RelationshipType = rtForeignKey
+      end
+      item
+        Name = 'Products_OrderDetails'
+        MasterDatasetName = 'Products'
+        MasterFields = 'ProductId'
+        DetailDatasetName = 'OrderDetails'
+        DetailFields = 'Product'
+        RelationshipType = rtForeignKey
+      end
+      item
+        Name = 'FK_Prices_Products'
+        MasterDatasetName = 'Products'
+        MasterFields = 'ProductId'
+        DetailDatasetName = 'Prices'
+        DetailFields = 'Product'
+        RelationshipType = rtForeignKey
+      end
+      item
+        Name = 'FK_OrderDetails_Orders'
+        MasterDatasetName = 'Orders'
+        MasterFields = 'OrderId'
+        DetailDatasetName = 'OrderDetails'
+        DetailFields = 'Order'
+        RelationshipType = rtForeignKey
+      end
+      item
+        Name = 'FK_Orders_Clients'
+        MasterDatasetName = 'Clients'
+        MasterFields = 'ClientId'
+        DetailDatasetName = 'Orders'
+        DetailFields = 'Client'
+        RelationshipType = rtForeignKey
+      end>
+    UpdateRules = <>
+    OnGetSQL = SchemaGetSQL
+    Version = 0
+    Left = 32
+    Top = 56
+  end
+  object bpBPWorkers: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    InsertCommandName = 'Insert_BPWorkers'
+    DeleteCommandName = 'Delete_BPWorkers'
+    UpdateCommandName = 'Update_BPWorkers'
+    ReferencedDataset = 'BPWorkers'
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 128
+    Top = 8
+  end
+  object bpBPClients: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnBeforeProcessChange = bpBPClientsBeforeProcessChange
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'BPClients'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 200
+    Top = 8
+  end
+  object bpBPProviders: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'BPProviders'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 280
+    Top = 8
+  end
+  object bpClients: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Clients'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 128
+    Top = 64
+  end
+  object bpDealers: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Dealers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 184
+    Top = 64
+  end
+  object bpGroups: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Groups'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 240
+    Top = 64
+  end
+  object bpOrderDetails: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'OrderDetails'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 304
+    Top = 64
+  end
+  object bpOrders: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Orders'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 376
+    Top = 64
+  end
+  object bpPrices: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Prices'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 440
+    Top = 64
+  end
+  object bpProducts: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Products'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 504
+    Top = 64
+  end
+  object bpProviders: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Providers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 568
+    Top = 64
+  end
+  object bpSellers: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Sellers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 632
+    Top = 64
+  end
+  object bpWorkers: TDABusinessProcessor
+    OnBeforeProcessDelta = BusinessProcessorBeforeProcessDelta
+    OnGenerateSQL = BusinessProcessorGenerateSQL
+    Schema = Schema
+    ReferencedDataset = 'Workers'
+    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 696
+    Top = 64
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleService_Impl.pas
new file mode 100644
index 0000000..9306d7b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleService_Impl.pas	
@@ -0,0 +1,402 @@
+unit DASampleService_Impl;
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uRORemoteDataModule,
+  {Data Abstract:} uDAClasses, uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDABusinessProcessor,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} DASampleLibrary_Intf, uROClient, uDADataStreamer,
+  uDAScriptingProvider, uDADelta;
+
+type
+  { TDASampleService }
+  TDASampleService = class(TDataAbstractService, IDASampleService)
+    DataStreamer: TDABin2DataStreamer;
+    bpBPWorkers: TDABusinessProcessor;
+    bpBPClients: TDABusinessProcessor;
+    bpBPProviders: TDABusinessProcessor;
+    bpClients: TDABusinessProcessor;
+    bpDealers: TDABusinessProcessor;
+    bpGroups: TDABusinessProcessor;
+    bpOrderDetails: TDABusinessProcessor;
+    bpOrders: TDABusinessProcessor;
+    bpPrices: TDABusinessProcessor;
+    bpProducts: TDABusinessProcessor;
+    bpProviders: TDABusinessProcessor;
+    bpSellers: TDABusinessProcessor;
+    bpWorkers: TDABusinessProcessor;
+    Schema: TDASchema;
+    procedure DataAbstractServiceValidateDatasetAccess(Sender: TObject;
+      const aConnection: IDAConnection; const aDatasetName: string;
+      const aParamNames: array of string; const aParamValues: array of Variant;
+      aSchema: TDASchema; var Allowed: Boolean);
+    procedure DataAbstractServiceValidateCommandExecution(Sender: TObject;
+      const aConnection: IDAConnection; const aDatasetName: string;
+      const aParamNames: array of string; const aParamValues: array of Variant;
+      aSchema: TDASchema; var Allowed: Boolean);
+    procedure DataAbstractServiceBeforeExecuteCommand(aSender: TObject;
+      const aCommand: IDASQLCommand);
+    procedure SchemaGetSQL(Sender: TDASchema; const ElementName: string;
+      ElementType: TDASchemaElementType; var SQL: string);
+    procedure DataAbstractServiceAfterGetDatasetData(aSender: TObject;
+      const aDataset: IDADataset; const aIncludeSchema: Boolean;
+      const aMaxRecords: Integer);
+    procedure bpBPClientsBeforeProcessChange(Sender: TDABusinessProcessor;
+      aChangeType: TDAChangeType; aChange: TDADeltaChange;
+      var ProcessChange: Boolean);
+    procedure DataAbstractServiceBeforeProcessDeltas(aSender: TObject;
+      aDeltaStructs: TDADeltaStructList);
+    procedure DataAbstractServiceAfterProcessDeltas(aSender: TObject;
+      aDeltaStructs: TDADeltaStructList);
+    procedure DataAbstractServiceValidateDirectSQLAccess(Sender: TObject;
+      const aConnection: IDAConnection; const aSQLText: string;
+      const aParamNames: array of string; const aParamValues: array of Variant;
+      var Allowed: Boolean);
+    procedure BusinessProcessorGenerateSQL(Sender: TDABusinessProcessor;
+      ChangeType: TDAChangeType; const ReferencedStatement: TDAStatement;
+      const aDelta: IDADelta; var SQL: string);
+    procedure BusinessProcessorBeforeProcessDelta(Sender: TDABusinessProcessor;
+      const aDelta: IDADelta);
+  private
+    function ChangeTypeToString(aChangeType: TDAChangeType): string;
+    procedure DescribeMapping(aMappings: TDAColumnMappingCollection);
+    procedure DescribeDeltaChange(aChange: TDADeltaChange);
+    function ShowEmptyNull(aValue: Variant): string;
+    function GetBPProvidersCustomSQL(aChangeType: TDAChangeType): string;
+  protected
+    { IDASampleService methods }
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} DASampleLibrary_Invk, fServerDataModule, fServerForm, uROClasses,
+  Variants, uDAEngine;
+
+procedure Create_DASampleService(out anInstance: IUnknown);
+begin
+  anInstance := TDASampleService.Create(nil);
+end;
+
+var
+  fClassFactory: IROClassFactory;
+
+procedure TDASampleService.BlockRow(const pkField: AnsiString);
+var
+  ev: IUpdateEvent_Writer;
+begin
+  with ServerDataModule do
+    if BlockedRows.IndexOf(AnsiStringToWideString(pkField)) < 0
+    then BlockedRows.Add(AnsiStringToWideString(pkField));
+  ev := EventRepository as IUpdateEvent_Writer;
+  ev.ExcludeSender := true;
+  ev.OnUpdateBlock(ClientID, pkField, GUIDToString(ClientID));
+end;
+
+procedure TDASampleService.BlockSetOfRows;
+var
+  ev: IUpdateEvent_Writer;
+  i: integer;
+  arr: AnsiStringArray;
+begin
+  arr := AnsiStringArray.Create;
+  with ServerDataModule do begin
+    arr.Resize(BlockedRows.Count);
+    for i := 0 to BlockedRows.Count - 1 do
+      arr.Add(WideStringToAnsiString(BlockedRows.Strings[i]));
+  end;
+  ev := EventRepository as IUpdateEvent_Writer;
+  ev.ExcludeSender := false;
+  ev.OnUpdateAllBlock(ClientID, arr);
+  arr.Free;
+end;
+
+procedure TDASampleService.bpBPClientsBeforeProcessChange(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; var ProcessChange: Boolean);
+var
+  discount: double;
+begin
+  ServerForm.LogMessage(#9'Checking business rules for Clients dataset');
+
+  if aChangeType = ctDelete then begin
+    ServerForm.LogMessage(#9#9'Forbiding to delete the client "' +
+      VarToStr(aChange.OldValueByName['Name']) + '"');
+    raise EDAException.Create('Client deletion is forbiden!');
+  end;
+
+  discount := aChange.NewValueByName['Discount'];
+  if (discount < 0.0) or (discount > 50.0) then begin
+    ServerForm.LogMessage(#9#9'Forbiding discount out of [0;50] range: ' +
+      FloatToStr(discount));
+    raise EDAException.Create('Discount out of range!');
+  end;
+end;
+
+procedure TDASampleService.BusinessProcessorBeforeProcessDelta(
+  Sender: TDABusinessProcessor; const aDelta: IDADelta);
+var
+  i: integer;
+begin
+  ServerForm.LogMessage(#9'Preparing to process delta to the dataset: ' + aDelta.LogicalName);
+  ServerForm.LogMessage(#9#9'Changes count: ' + IntToStr(aDelta.Count));
+  ServerForm.LogMessage(' ');
+  for i := 0 to aDelta.Count - 1 do begin
+    ServerForm.LogMessage(#9'Delta change #' + IntToStr(i + 1) + ', change type: ' +
+      ChangeTypeToString(aDelta.Changes[i].ChangeType));
+    ServerForm.LogMessage(#9'---------------');
+    DescribeDeltaChange(aDelta.Changes[i]);
+  end;
+  ServerForm.LogMessage(' ');
+end;
+
+procedure TDASampleService.BusinessProcessorGenerateSQL(
+  Sender: TDABusinessProcessor; ChangeType: TDAChangeType;
+  const ReferencedStatement: TDAStatement; const aDelta: IDADelta;
+  var SQL: string);
+begin
+  ServerForm.LogMessage(#9'Column mappings');
+  ServerForm.LogMessage(#9'---------------');
+  DescribeMapping(ReferencedStatement.ColumnMappings);
+  ServerForm.LogMessage(' ');
+  if Sender = bpBPProviders then begin
+    ServerForm.LogMessage(#9'Preparing CUSTOM SQL statement for BPProviders dataset:');
+    SQL := GetBPProvidersCustomSQL(ChangeType);
+  end
+  else ServerForm.LogMessage(#9'Preparing SQL statement:');
+  ServerForm.LogMessage(#9'------------------------');
+  ServerForm.LogMessage(SQL);
+  ServerForm.LogMessage(' ');
+end;
+
+function TDASampleService.ChangeTypeToString(
+  aChangeType: TDAChangeType): string;
+begin
+  Result := '';
+  case aChangeType of
+    ctInsert: Result := 'Insert';
+    ctUpdate: Result := 'Update';
+    ctDelete: Result := 'Delete';
+  end;
+end;
+
+procedure TDASampleService.DataAbstractServiceAfterGetDatasetData(
+  aSender: TObject; const aDataset: IDADataset; const aIncludeSchema: Boolean;
+  const aMaxRecords: Integer);
+var
+  s: string;
+begin
+  ServerForm.LogMessage(#9'Sending data to the client.');
+  s := #9'Sending ';
+  if aMaxRecords = -1 then s := s + 'all records'
+  else s := s + IntToStr(aMaxRecords) + ' record(s)';
+  ServerForm.LogMessage(s);
+  s := #9'Sending schema: ';
+  if aIncludeSchema then s := s + 'yes' else s := s + 'no';
+  ServerForm.LogMessage(s);
+  ServerForm.LogMessage(' ');
+  ServerForm.LogMessage('Request completed');
+  ServerForm.LogMessage('=================');
+end;
+
+procedure TDASampleService.DataAbstractServiceAfterProcessDeltas(
+  aSender: TObject; aDeltaStructs: TDADeltaStructList);
+begin
+  ServerForm.LogMessage('Request completed');
+  ServerForm.LogMessage('=================');
+end;
+
+procedure TDASampleService.DataAbstractServiceBeforeExecuteCommand(
+  aSender: TObject; const aCommand: IDASQLCommand);
+begin
+  // TODO:
+  ServerForm.LogMessage('DataAbstractServiceBeforeExecuteCommand');
+end;
+
+procedure TDASampleService.DataAbstractServiceBeforeProcessDeltas(
+  aSender: TObject; aDeltaStructs: TDADeltaStructList);
+begin
+  ServerForm.LogMessage(' ');
+  ServerForm.LogMessage(DateTimeToStr(Now) + ' - Going to process deltas');
+  ServerForm.LogMessage(#9'Session ID: ' + GUIDToString(ClientID));
+  ServerForm.LogMessage(#9'Deltas count: ' + IntToStr(aDeltaStructs.Count));
+  ServerForm.LogMessage(' ');
+end;
+
+procedure TDASampleService.DataAbstractServiceValidateCommandExecution(
+  Sender: TObject; const aConnection: IDAConnection; const aDatasetName: string;
+  const aParamNames: array of string; const aParamValues: array of Variant;
+  aSchema: TDASchema; var Allowed: Boolean);
+begin
+  // TODO:
+  ServerForm.LogMessage('DataAbstractServiceValidateCommandExecution');
+end;
+
+procedure TDASampleService.DataAbstractServiceValidateDatasetAccess(
+  Sender: TObject; const aConnection: IDAConnection; const aDatasetName: string;
+  const aParamNames: array of string; const aParamValues: array of Variant;
+  aSchema: TDASchema; var Allowed: Boolean);
+var
+  s: string;
+begin
+  ServerForm.LogMessage(' ');
+  ServerForm.LogMessage(DateTimeToStr(Now) + ' - Dataset access requested');
+  ServerForm.LogMessage(#9'Session ID: ' + GUIDToString(ClientID));
+  ServerForm.LogMessage(#9'Dataset name: ' + aDatasetName);
+  s := #9'Parameters: ';
+  if Length(aParamNames) = 0 then s := s + 'none'
+  else begin
+    // TODO:
+    s := s + 'some';
+  end;
+  ServerForm.LogMessage(s);
+end;
+
+procedure TDASampleService.DataAbstractServiceValidateDirectSQLAccess(
+  Sender: TObject; const aConnection: IDAConnection; const aSQLText: string;
+  const aParamNames: array of string; const aParamValues: array of Variant;
+  var Allowed: Boolean);
+begin
+  // TODO:
+  ServerForm.LogMessage('DataAbstractServiceValidateDirectSQLAccess');
+end;
+
+procedure TDASampleService.DescribeDeltaChange(aChange: TDADeltaChange);
+var
+  i: integer;
+begin
+  for i := 0 to aChange.Delta.LoggedFieldCount - 1 do
+    ServerForm.LogMessage(#9 + aChange.Delta.LoggedFieldNames[i] + ': ' +
+      ShowEmptyNull(aChange.OldValues[i]) + #9'->'#9 +
+      ShowEmptyNull(aChange.NewValues[i]));
+end;
+
+procedure TDASampleService.DescribeMapping(aMappings: TDAColumnMappingCollection);
+var
+  i: integer;
+begin
+  for i := 0 to aMappings.Count - 1 do
+    with aMappings[i] do
+      ServerForm.LogMessage(#9'DatasetField: ' + DatasetField +
+        ' TableField: ' + TableField + ' SQLOrigin:' + SQLOrigin);
+end;
+
+function TDASampleService.GetBPProvidersCustomSQL(aChangeType: TDAChangeType): string;
+var
+  sl: TStringList;
+begin
+  sl := TStringList.Create;
+  sl.Add('/* My Custom overridden SQL */');
+  if Connection.ConnectionType = 'MSSQL' then
+    case aChangeType of
+      ctInsert: begin
+        sl.Add('INSERT INTO [Suppliers]([Id], [Name], [Phone], [Address])');
+        sl.Add('VALUES (:Id, :Name, :Phone, :Address)');
+        end;
+      ctUpdate: begin
+        sl.Add('UPDATE [Suppliers] SET [Id] = :Id, [Name] = :Name, [Phone] = :Phone, [Address] = :Address');
+        sl.Add('WHERE ([Id] = :OLD_Id)');
+        end;
+      ctDelete: sl.Add('DELETE FROM [Suppliers] WHERE ([Id] = :OLD_Id)');
+    end
+  else if Connection.ConnectionType = 'Interbase' then
+    case aChangeType of
+      ctInsert: begin
+        sl.Add('INSERT INTO "SUPPLIERS" ("SUPP_ID", "SUPP_NAME", "SUPP_PHONE", "SUPP_ADDRESS")');
+        sl.Add('VALUES (:Id, :Name, :Phone, :Address)');
+        end;
+      ctUpdate: begin
+        sl.Add('UPDATE "SUPPLIERS" SET "SUPP_ID" = :Id, "SUPP_NAME" = :Name, "SUPP_PHONE" = :Phone, "SUPP_ADDRESS" = :Address');
+        sl.Add('WHERE ("SUPP_ID" = :OLD_Id)');
+        end;
+      ctDelete: sl.Add('DELETE FROM "SUPPLIERS" WHERE ("SUPP_ID" = :OLD_Id)');
+    end
+  else if Connection.ConnectionType = 'SQLite' then
+    case aChangeType of
+      ctInsert: begin
+        sl.Add('INSERT INTO "SUPPLIER" ("Id", "Name", "Phone", "Address")');
+        sl.Add('VALUES (:Id, :Name, :Phone, :Address)');
+        end;
+      ctUpdate: begin
+        sl.Add('UPDATE "SUPPLIER" SET "Id" = :Id, "Name" = :Name, "Phone" = :Phone, "Address" = :Address');
+        sl.Add('WHERE ("Id" = :OLD_Id)');
+        end;
+      ctDelete: sl.Add('DELETE FROM "SUPPLIER" WHERE ("Id" = :OLD_Id)');
+    end
+  else raise Exception.Create('Unsupported connection name!');
+  Result := sl.Text;
+  sl.Free;
+end;
+
+procedure TDASampleService.Login(const aPlatform: PlatformEnum;
+  const aName: Widestring);
+begin
+  // TODO: More info
+  ServerForm.LogMessage('New client logged in: ' + aName);
+end;
+
+procedure TDASampleService.SchemaGetSQL(Sender: TDASchema;
+  const ElementName: string; ElementType: TDASchemaElementType;
+  var SQL: string);
+begin
+  ServerForm.LogMessage(' ');
+  case ElementType of
+    setDataset: begin
+      ServerForm.LogMessage(#9'Executing SQL:');
+      ServerForm.LogMessage(#9'--------------');
+      ServerForm.LogMessage(SQL);
+      end;
+    setCommand: begin
+      ServerForm.LogMessage(#9'Executing Schema command: ' + ElementName);
+      ServerForm.LogMessage(SQL);
+      end;
+  end;
+  ServerForm.LogMessage(' ');
+end;
+
+function TDASampleService.ShowEmptyNull(aValue: Variant): string;
+begin
+  if aValue = Null then Result := '<NULL>'
+  else Result := VarToStr(aValue);
+  if Result = '' then Result := '<EMPTY>';
+end;
+
+procedure TDASampleService.Subscribe(const aSubscribe: Boolean);
+begin
+  if aSubscribe then
+    RegisterEventClient(WideStringToAnsiString(GUIDToString(ClientID)), EID_UpdateEvent)
+  else UnregisterEventClient(WideStringToAnsiString(GUIDToString(ClientID)), EID_UpdateEvent);
+end;
+
+procedure TDASampleService.UnblockRow(const pkField: AnsiString;
+  const IsReadRow: Boolean);
+var
+  ev: IUpdateEvent_Writer;
+  i: integer;
+begin
+  with ServerDataModule do begin
+    i := BlockedRows.IndexOf(AnsiStringToWideString(pkField));
+    if i >= 0 then BlockedRows.Delete(i);
+  end;
+
+  ev := EventRepository as IUpdateEvent_Writer;
+  ev.ExcludeSender := true;
+  ev.OnUpdateUnblock(ClientID, pkField, GUIDToString(ClientID), true);
+end;
+
+initialization
+  fClassFactory := TROClassFactory.Create('DASampleService', Create_DASampleService, TDASampleService_Invoker);
+  RegisterForZeroConf(fClassFactory,'_DASampleService_rosdk._tcp.');
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/RODLFILE.res
new file mode 100644
index 0000000..26451f1
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Settings.inc b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Settings.inc
new file mode 100644
index 0000000..a9b475c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/Settings.inc	
@@ -0,0 +1 @@
+{.$DEFINE USE_ANYDAC}
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerDataModule.dfm
new file mode 100644
index 0000000..6e7bf27
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerDataModule.dfm	
@@ -0,0 +1,110 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Height = 207
+  Width = 352
+  object Server: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'Message'
+        Message = Message
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 32
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 32
+    Top = 56
+  end
+  object ConnectionManager: TDAConnectionManager
+    PoolTimeoutSeconds = 0
+    WaitIntervalSeconds = 0
+    Connections = <
+      item
+        Name = 'PCTrade.SQLite.AnyDAC'
+        ConnectionString = 
+          'AnyDAC?AuxDriver=SQLite;Server=localhost;Database=%SERVER%\Data\' +
+          'PCTrade.sqlite.db;'
+        ConnectionType = 'SQLite'
+      end
+      item
+        Name = 'PCTrade.FB.Embedded'
+        ConnectionString = 
+          'DBX?AuxDriver=Interbase;Server=(local);Database=%SERVER%\Data\PC' +
+          'Trade.fdb;UserID=SYSDBA;Password=masterkey;'
+        ConnectionType = 'Interbase'
+      end
+      item
+        Name = 'PCTrade.FB'
+        ConnectionString = 
+          'DBX?AuxDriver=Interbase;Server=localhost;Database=%SERVER%\Data\' +
+          'PCTrade.fdb;UserID=SYSDBA;Password=masterkey;Interbase TransIsol' +
+          'ation=ReadCommited;'
+        ConnectionType = 'Interbase'
+      end
+      item
+        Name = 'PCTrade.MSSQL'
+        ConnectionString = 
+          'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=PCTrade;Integ' +
+          'rated Security=SSPI;'
+        ConnectionType = 'MSSQL'
+      end
+      item
+        Name = 'PCTrade.FB.AnyDAC'
+        ConnectionString = 
+          'AnyDAC?AuxDriver=IB;Server=localhost;Database=%SERVER%\Data\PCTr' +
+          'ade.fdb;UserID=SYSDBA;Password=masterkey;@Protocol=TCPIP;@Pooled' +
+          '=false'
+        ConnectionType = 'Interbase'
+      end
+      item
+        Name = 'PCTrade.FB.Embedded.AnyDAC'
+        ConnectionString = 
+          'AnyDAC?AuxDriver=IB;Server=localhost;Database=%SERVER%\Data\PCTr' +
+          'ade.fdb;UserID=SYSDBA;Password=masterkey;@Protocol=Local;@Pooled' +
+          '=false'
+        ConnectionType = 'Interbase'
+      end>
+    DriverManager = DriverManager
+    PoolingEnabled = False
+    Left = 136
+    Top = 56
+  end
+  object DriverManager: TDADriverManager
+    DriverDirectory = '%SYSTEM%\'
+    TraceActive = False
+    TraceFlags = []
+    Left = 136
+    Top = 10
+  end
+  object ADODriver: TDAADODriver
+    Left = 256
+    Top = 8
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 32
+    Top = 104
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 136
+    Top = 104
+  end
+  object EventRepository: TROInMemoryEventRepository
+    Message = Message
+    SessionManager = SessionManager
+    Left = 256
+    Top = 104
+  end
+  object ROZeroConfRegistration1: TROZeroConfRegistration
+    Domain = 'local.'
+    Server = Server
+    RegistrationSucceeded = ROZeroConfRegistration1RegistrationSucceeded
+    Left = 136
+    Top = 152
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerDataModule.pas
new file mode 100644
index 0000000..77db440
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerDataModule.pas	
@@ -0,0 +1,66 @@
+unit fServerDataModule;
+
+{$I Settings.inc}
+{$I DataAbstract.inc}
+
+interface
+
+uses
+  SysUtils, Classes,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer,
+  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
+  {$IFDEF USE_ANYDAC}uDAAnyDACDriver,{$ENDIF USE_ANYDAC}
+  {$IFDEF DELPHI2005UP}uDADBXDriver,{$ENDIF DELPHI2005UP}
+  uDAADODriver, uROIndyTCPServer, uROEventRepository, uROZeroConf;
+
+type
+  TServerDataModule = class(TDataModule)
+    Server: TROIndyHTTPServer;
+    Message: TROBinMessage;
+    ConnectionManager: TDAConnectionManager;
+    DriverManager: TDADriverManager;
+    ADODriver: TDAADODriver;
+    SessionManager: TROInMemorySessionManager;
+    EventRepository: TROInMemoryEventRepository;
+    DataDictionary: TDADataDictionary;
+    ROZeroConfRegistration1: TROZeroConfRegistration;
+    
+    procedure DataModuleCreate(Sender: TObject);
+    procedure ROZeroConfRegistration1RegistrationSucceeded(
+      Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine);
+  private
+    { Private declarations }
+    fBlockedRows: TStringList;
+  public
+    { Public declarations }
+    property BlockedRows: TStringList read fBlockedRows;
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+uses
+  fServerForm;
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  fBlockedRows := TStringList.Create;
+end;
+
+procedure TServerDataModule.ROZeroConfRegistration1RegistrationSucceeded(
+  Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine);
+var
+  s: string;
+begin
+  case ACurrentEngine of
+    zceBonjour: s := 'Bonjour';
+    zceROZeroConfHub: s:= 'ROZeroConfHub';
+    zceAuto, zceNone: exit;
+  end;
+  ServerForm.LogMessage('Registration via '+s+' is successful');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerForm.dfm
new file mode 100644
index 0000000..ff9fd0c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerForm.dfm	
@@ -0,0 +1,92 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  Caption = 'Data Abstract Sample Server'
+  ClientHeight = 513
+  ClientWidth = 481
+  Color = clBtnFace
+  Constraints.MinHeight = 437
+  Constraints.MinWidth = 497
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 481
+    Height = 169
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      481
+      169)
+    object Label1: TLabel
+      Left = 8
+      Top = 8
+      Width = 59
+      Height = 13
+      Caption = '&Connections'
+      FocusControl = lbxConnections
+    end
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 259
+      Top = 27
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+      Anchors = [akTop, akRight]
+    end
+    object lbxConnections: TListBox
+      Left = 8
+      Top = 27
+      Width = 241
+      Height = 97
+      ItemHeight = 13
+      TabOrder = 0
+      OnClick = lbxConnectionsClick
+    end
+    object btClearLog: TButton
+      Left = 8
+      Top = 130
+      Width = 241
+      Height = 25
+      Caption = 'Clear &Log'
+      TabOrder = 1
+      OnClick = btClearLogClick
+    end
+  end
+  object StatusBar: TStatusBar
+    Left = 0
+    Top = 494
+    Width = 481
+    Height = 19
+    Panels = <
+      item
+        Width = 50
+      end>
+  end
+  object edLog: TMemo
+    Left = 0
+    Top = 169
+    Width = 481
+    Height = 325
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Courier New'
+    Font.Style = []
+    ParentFont = False
+    ReadOnly = True
+    ScrollBars = ssBoth
+    TabOrder = 2
+    WantReturns = False
+    WordWrap = False
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerForm.pas
new file mode 100644
index 0000000..80c0e14
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/fServerForm.pas	
@@ -0,0 +1,191 @@
+unit fServerForm;
+
+{$I Settings.inc}
+{$I DataAbstract.inc}
+
+{$IFDEF USE_ANYDAC}
+  {$DEFINE SQLITE}
+  {$DEFINE FIREBIRD}
+{$ENDIF USE_ANYDAC}
+
+{$IFDEF DELPHI2005UP}
+  {$IFNDEF FIREBIRD}
+    {$DEFINE FIREBIRD}
+  {$ENDIF FIREBIRD}
+{$ENDIF DELPHI2005UP}
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uDAPoweredByDataAbstractButton, ComCtrls, uROPoweredByRemObjectsButton,
+  ExtCtrls;
+
+const
+  WM_LOG = WM_USER + $01;
+
+type
+  TServerForm = class(TForm)
+    Panel1: TPanel;
+    Label1: TLabel;
+    lbxConnections: TListBox;
+    btClearLog: TButton;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    StatusBar: TStatusBar;
+    edLog: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure lbxConnectionsClick(Sender: TObject);
+    procedure btClearLogClick(Sender: TObject);
+  private
+    { Private declarations }
+    function GetServerLocation: string;
+    function Contains(aStr, aSubStr: string): boolean;
+  protected
+    procedure WMLog(var Message: TMessage); message WM_LOG;
+  public
+    { Public declarations }
+    procedure LogMessage(msg: String);
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.dfm}
+
+uses StrUtils, uDAInterfaces, fServerDataModule;
+
+const
+  SERVER_MACRO = '%SERVER%\';
+
+procedure TServerForm.btClearLogClick(Sender: TObject);
+begin
+  edLog.Clear;
+end;
+
+function TServerForm.Contains(aStr, aSubStr: string): boolean;
+begin
+{$IFDEF UNICODE}
+  Result := ContainsText(aStr, aSubStr);
+{$ELSE}
+  Result := AnsiContainsText(aStr, aSubStr);
+{$ENDIF}
+end;
+
+procedure TServerForm.FormCreate(Sender: TObject);
+var
+  i: Integer;
+begin
+  lbxConnections.Clear;
+  edLog.Clear;
+  ServerDataModule.Server.Active := true;
+  {$IFNDEF DELPHI2005UP}
+  {$IFNDEF USE_ANYDAC}
+  with edLog.Lines do begin
+    Add('******* WARNING *******');
+    Add('Unfortunately, our preferred out-of-the-box databases for');
+    Add('this sample, SQLite and Firebird, have problems with');
+    Add('accessing Unicode fields in Delphi 7. We are trying to');
+    Add('resolve this for a future release, but until then, please');
+    Add('set up a Microsoft SQL Server or MSDE sample database with');
+    Add('the provided .BAK file, to run these samples. This affects');
+    Add('Delphi 7 only. We apologize for the inconvenience.');
+    Add(' ');
+  end;
+  {$ENDIF USE_ANYDAC}
+  {$ENDIF DELPHI2005UP}
+
+  with ServerDataModule.ConnectionManager do begin
+    for i := 0 to Connections.Count - 1 do begin
+      {$IFNDEF USE_ANYDAC}
+      if not Contains(Connections[i].Name, 'AnyDAC') then begin
+      {$ENDIF}
+      {$IFNDEF SQLITE}
+      if not Contains(Connections[i].Name, 'sqlite') then begin
+      {$ENDIF}
+      {$IFNDEF FIREBIRD}
+      if not Contains(Connections[i].Name, '.FB') then begin
+      {$ENDIF}
+        lbxConnections.Items.Add(Connections[i].Name);
+        {$IFDEF FIREBIRD}
+        if Contains(Connections[i].Name, '.Embedded')
+        {$ELSE}
+        if Contains(Connections[i].Name, 'MSSQL')
+        {$ENDIF FIREBIRD}
+        then begin
+          lbxConnections.Selected[lbxConnections.Count - 1] := True;
+          Connections[i].Default := true;
+        end;
+      {$IFNDEF FIREBIRD}
+      end;
+      {$ENDIF}
+      {$IFNDEF SQLITE}
+      end;
+      {$ENDIF}
+      {$IFNDEF USE_ANYDAC}
+      end;
+      {$ENDIF}
+    end;
+  end;
+  if (lbxConnections.ItemIndex < 0) and (lbxConnections.Count > 0)
+  then lbxConnections.ItemIndex := 0;
+  lbxConnectionsClick(nil);
+end;
+
+function TServerForm.GetServerLocation: string;
+begin
+  Result := ExtractFilePath(ParamStr(0));
+end;
+
+procedure TServerForm.lbxConnectionsClick(Sender: TObject);
+var
+  conn: TDAConnection;
+begin
+  with ServerDataModule.ConnectionManager do begin
+    conn := TDAConnection(Connections.ItemByName(lbxConnections.Items[lbxConnections.ItemIndex]));
+    StatusBar.Panels[0].Text := 'Connected to ' + conn.Name;
+    conn.Default := True;
+    conn.ConnectionString := {$IFDEF UNICODE}ReplaceStr{$ELSE}AnsiReplaceStr{$ENDIF}(conn.ConnectionString, SERVER_MACRO, GetServerLocation);
+    try
+      LogMessage('Validating connection...');
+      NewConnection(GetDefaultConnectionName);
+      LogMessage('Connection to ' + GetDefaultConnectionName + ' established.');
+      LogMessage('Connection string is: ' + Connections.GetDefaultConnection.ConnectionString);
+    except
+      on E: Exception do begin
+        LogMessage('Connection to ' + GetDefaultConnectionName + ' FAILED!');
+        LogMessage('Connection string:');
+        LogMessage(Connections.GetDefaultConnection.ConnectionString);
+        LogMessage('Please check your settings or try to use another connection.');
+        LogMessage('The error message follows:');
+        LogMessage(E.Message);
+      end;
+    end;
+  end;
+end;
+
+procedure TServerForm.LogMessage(msg: String);
+var
+  p: PChar;
+begin
+  GetMem(p, (Length(msg) + 1) {$IFDEF UNICODE} * 2 {$ENDIF});
+  Move(msg[1], p^, (Length(msg) + 1) {$IFDEF UNICODE} * 2 {$ENDIF});
+  PostMessage(Handle, WM_LOG, 0, integer(p));
+end;
+
+procedure TServerForm.WMLog(var Message: TMessage);
+var
+  p: PChar;
+begin
+  try
+    p := PChar(Message.LParam);
+    edLog.Lines.Add(p);
+    FreeMem(p);
+  except
+    on E: Exception do
+      edLog.Lines.Add(E.Classname+': '+E.Message);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/mainicon.ico b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/mainicon.ico
new file mode 100644
index 0000000..8c84c6a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/mainicon.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Styles.css b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Styles.css
new file mode 100644
index 0000000..c8e0628
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Styles.css	
@@ -0,0 +1,103 @@
+body
+{
+  background-color: #f7f7f7;
+  margin-top: 15px;
+  margin-bottom: 15px;
+  margin-left: 15px;
+  margin-right: 15px;
+  padding-top: 10px;
+  padding-bottom: 10px;
+  padding-left: 10px;
+  padding-right: 10px;
+  font-family: tahoma, verdana, sans-serif;
+  font-size: 10pt;
+  width: 700px;
+  color: #000000;
+}
+p
+{
+  padding-top: 0;
+  padding-bottom: 0;
+  padding-left: 0;
+  padding-right: 0.5em;
+}
+ul
+{
+  padding-top: 0;
+  padding-bottom: 0;
+  list-style-type: disc;
+}
+li
+{
+  padding-top: 0;
+  padding-bottom: 0;
+}
+img
+{
+  margin: 5px;
+  border-width: 0;
+}
+table
+{
+  background-color: #f7f7f7;
+  margin: 15px;
+  padding: 0px;
+  font-size: 10pt;
+}
+tr
+{
+  background-color: #f7f7f7;
+  margin: 15px;
+  padding: 0px;
+  font-size: 10pt;
+}
+td, th
+{
+  background-color: #f7f7f7;
+  margin: 0;
+  padding: 5px;
+  font-size: 10pt;
+}
+td ul
+{
+	padding-left: 2em;
+}
+
+img:left { margin-left: 0; }
+img:right { margin-right: 0; }
+p.h1
+{
+  margin-top: 1em;
+  margin-bottom: 0.5px;
+  padding-bottom:0px;
+  font-size:13pt;
+  font-weight:bold;
+}
+p.h2
+{
+  margin-top: 1em;
+  margin-bottom: 0.5px;
+  padding-bottom:0px;
+  font-size:11pt;
+  font-weight:bold;
+}
+p.h3
+{
+  margin-top: 1em;
+  margin-bottom: 0.5px;
+  padding-bottom:0px;
+  font-size:10pt;
+  font-weight:bold;
+}
+pre
+{
+  margin-top:0px;
+  margin-bottom:0px;
+  margin-left:0px;
+  margin-right:0px;
+}
+.spaced
+{
+  letter-spacing:1px;
+  color:#000060;
+}
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/DASampleLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/DASampleLibrary_Intf.pas
new file mode 100644
index 0000000..65e7e3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/DASampleLibrary_Intf.pas	
@@ -0,0 +1,485 @@
+unit DASampleLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf,
+  {Used RODLs:} DataAbstract4_Intf;
+
+const
+  { Library ID }
+  LibraryUID = '{451AF84F-612F-4E30-943C-47820772CCA9}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDASampleService_IID : TGUID = '{F23D518D-B0A4-4714-A654-5C743AF40C79}';
+
+  { Event ID's }
+  EID_UpdateEvent = 'UpdateEvent';
+
+type
+  { Forward declarations }
+  IDASampleService = interface;
+
+  AnsiStringArray = class;
+
+
+  IUpdateEvent = interface;
+
+
+  { Enumerateds }
+  PlatformEnum = (PlatformEnum_peUnknown,PlatformEnum_peWindowsVisualStudio,PlatformEnum_peWindowsDelphi,
+      PlatformEnum_peWindowsFPC,PlatformEnum_peWindowsMono,PlatformEnum_peBrowserJavaScript,
+      PlatformEnum_peBrowserSilverlight,PlatformEnum_peCompactFramework,PlatformEnum_peMacFPC,
+      PlatformEnum_peMacMono,PlatformEnum_peIPhoneXcode,PlatformEnum_peMacXcode,PlatformEnum_peLinuxFPC,
+      PlatformEnum_peLinuxMono);
+
+  { AnsiStringArray }
+  AnsiStringArray_AnsiString = array of AnsiString;
+  AnsiStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : AnsiStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: AnsiStringArray_AnsiString read fItems;
+  end;
+
+  { IDASampleService }
+  IDASampleService = interface(IDataAbstractService)
+    ['{F23D518D-B0A4-4714-A654-5C743AF40C79}']
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { CoDASampleService }
+  CoDASampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+  end;
+
+  { TDASampleService_Proxy }
+  TDASampleService_Proxy = class(TDataAbstractService_Proxy, IDASampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const aPlatform: PlatformEnum; const aName: Widestring);
+    procedure BlockRow(const pkField: AnsiString);
+    procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+    procedure BlockSetOfRows;
+    procedure Subscribe(const aSubscribe: Boolean);
+  end;
+
+  { IUpdateEvent }
+  IUpdateEvent = interface
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const pkFields: AnsiStringArray);
+  end;
+
+  { IUpdateEvent_Writer }
+  IUpdateEvent_Writer = interface(IROEventWriter)
+    ['{ED08A76E-747B-4779-94BD-34F59C218E78}']
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ AnsiStringArray }
+
+procedure AnsiStringArray.Assign(iSource: TPersistent);
+var lSource:AnsiStringArray;
+    i:integer;
+begin
+  if (iSource is AnsiStringArray) then begin
+    lSource := AnsiStringArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function AnsiStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function AnsiStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function AnsiStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function AnsiStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure AnsiStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure AnsiStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure AnsiStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure AnsiStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function AnsiStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure AnsiStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function AnsiStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function AnsiStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure AnsiStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure AnsiStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ CoDASampleService }
+
+class function CoDASampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDASampleService;
+begin
+  result := TDASampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDASampleService_Proxy }
+
+function TDASampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DASampleService';
+end;
+
+procedure TDASampleService_Proxy.Login(const aPlatform: PlatformEnum; const aName: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Login');
+    __Message.Write('aPlatform', TypeInfo(DASampleLibrary_Intf.PlatformEnum), aPlatform, []);
+    __Message.Write('aName', TypeInfo(Widestring), aName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockRow(const pkField: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'UnblockRow');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('IsReadRow', TypeInfo(Boolean), IsReadRow, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.BlockSetOfRows;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'BlockSetOfRows');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDASampleService_Proxy.Subscribe(const aSubscribe: Boolean);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DASampleLibrary', __InterfaceName, 'Subscribe');
+    __Message.Write('aSubscribe', TypeInfo(Boolean), aSubscribe, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TUpdateEvent_Writer }
+  TUpdateEvent_Writer = class(TROEventWriter, IUpdateEvent_Writer)
+  protected
+    procedure OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+    procedure OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+    procedure OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+  end;
+
+procedure TUpdateEvent_Writer.OnUpdateBlock(const __Sender : TGUID; const pkFields: AnsiString; const senderGuid: Guid);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateUnblock(const __Sender : TGUID; const pkField: AnsiString; const senderGuid: Guid; const isReadRow: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateUnblock');
+    __Message.Write('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Write('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Write('isReadRow', TypeInfo(Boolean), isReadRow, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TUpdateEvent_Writer.OnUpdateAllBlock(const __Sender : TGUID; const pkFields: AnsiStringArray);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'DASampleLibrary', EID_UpdateEvent, 'OnUpdateAllBlock');
+    __Message.Write('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TUpdateEvent_Invoker }
+  TUpdateEvent_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkFields: AnsiString;
+  senderGuid: Guid;
+begin
+
+    __Message.Read('pkFields', TypeInfo(AnsiString), pkFields, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+
+    (__Target as IUpdateEvent).OnUpdateBlock(pkFields, senderGuid);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateUnblock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  pkField: AnsiString;
+  senderGuid: Guid;
+  isReadRow: Boolean;
+begin
+
+    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
+    __Message.Read('senderGuid', TypeInfo(Guid), senderGuid, []);
+    __Message.Read('isReadRow', TypeInfo(Boolean), isReadRow, []);
+
+    (__Target as IUpdateEvent).OnUpdateUnblock(pkField, senderGuid, isReadRow);
+
+end;
+
+procedure TUpdateEvent_Invoker.Invoke_OnUpdateAllBlock(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  pkFields: AnsiStringArray;
+begin
+  pkFields := NIL;
+
+  try
+    __Message.Read('pkFields', TypeInfo(AnsiStringArray), pkFields, []);
+
+    (__Target as IUpdateEvent).OnUpdateAllBlock(pkFields);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(pkFields);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(AnsiStringArray);
+  RegisterProxyClass(IDASampleService_IID, TDASampleService_Proxy);
+
+  RegisterEventWriterClass(IUpdateEvent_Writer, TUpdateEvent_Writer);
+  RegisterEventInvokerClass(EID_UpdateEvent, TUpdateEvent_Invoker);
+
+finalization
+  UnregisterROClass(AnsiStringArray);
+  UnregisterProxyClass(IDASampleService_IID);
+
+  UnregisterEventWriterClass(IUpdateEvent_Writer);
+  UnregisterEventInvokerClass(EID_UpdateEvent);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.Sample.html
new file mode 100644
index 0000000..ac767e1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.Sample.html	
@@ -0,0 +1,52 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\da.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">Union Tables Sample</p>
+
+<p>
+This sample uses <b>Unions</b> defined in the server's Schema to fetch data from several tables in the back-end 
+database that is seamlessly combined and available to the client as a unified data table. 
+Note how the Union table contains an additional @SourceTable field to indicate the original table, 
+and how by filling the @SourceTable field with the appropriate value when inserting new records, 
+those records can automatically be updated into the appropriate back-end table.
+</p>
+
+<p class="h2">Examine the code</p>
+<ul>
+<li>
+Take a look at the <b>TClientForm.btLoadClick</b> method to see how the data is loaded. 
+Note that the calculated field SourceTableName is not loaded from the server.
+</li>
+<li>See the <b>TClientForm.btUpdateClick</b> event handler, where the dataset is updated.</li>
+<li>
+Look at the piece of code in <b>TClientForm.btUpdateClick</b> method related to filter.
+See how <b>Dynamic Where</b> conditions are applied to the <b>Union Tables</b>. 
+<b>Dynamic Where</b> conditions work fine against union tables.
+</li>
+<li>
+Examine properties of the <b>RemoteDataAdapter</b>. 
+Note that its <b>DataStreamer.SendReducedDelta</b> and <b>DynamicSelect</b> properties are both set to true.
+</li>
+</ul>
+
+<p class="h2">Getting started</p>
+<ul>
+<li>Run the Sample Server.</li> 
+<li>Run the Union Tables Sample.</li>
+<li>Try to fill DataSet.</li>
+<li>Try to change some records.</li>
+<li>Apply changes to the server using the Update button.</li>
+<li>Examine the Sql command used to load and update data (in the server log).</li>
+<li>
+Try to apply simple DynamicWhere condition like 'fr'. Examine the server log to see how the data is loaded from two 
+different physical tables using the provided condition.
+</li>
+</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.dpr b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.dpr
new file mode 100644
index 0000000..ec98b98
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.dpr	
@@ -0,0 +1,18 @@
+program UnionTables;
+
+uses
+  uROComInit,
+  Forms,
+  MidasLib,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  fClientDataModule in 'fClientDataModule.pas' {ClientDataModule: TDAClientDataModule},
+  DASampleLibrary_Intf in 'DASampleLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientDataModule, ClientDataModule);
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.dproj b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.dproj
new file mode 100644
index 0000000..1825e1b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.dproj	
@@ -0,0 +1,89 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{22370f69-6f3e-4ca0-bb84-3e2783b1ead1}</ProjectGuid>
+    <MainSource>UnionTables.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>UnionTables.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      
+      
+      
+      <Excluded_Packages Name="d:\RemObjects\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_D11.bpl">RemObjects Data Abstract - InterBase Express Driver</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">UnionTables.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="UnionTables.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DASampleLibrary_Intf.pas" />
+    <DCCReference Include="fClientDataModule.pas">
+      <Form>ClientDataModule</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.res b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.res
new file mode 100644
index 0000000..a8142cb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/UnionTables.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientDataModule.dfm
new file mode 100644
index 0000000..f2b944d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientDataModule.dfm	
@@ -0,0 +1,115 @@
+object ClientDataModule: TClientDataModule
+  OldCreateOrder = True
+  Left = 116
+  Top = 196
+  Height = 321
+  Width = 360
+  object Channel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 40
+    Top = 8
+  end
+  object Message: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 52
+  end
+  object RemoteService: TRORemoteService
+    Message = Message
+    Channel = Channel
+    ServiceName = 'DASampleService'
+    Left = 40
+    Top = 96
+  end
+  object DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 140
+  end
+  object RemoteDataAdapter: TDARemoteDataAdapter
+    DataStreamer = DataStreamer
+    GetSchemaCall.RemoteService = RemoteService
+    GetDataCall.RemoteService = RemoteService
+    UpdateDataCall.RemoteService = RemoteService
+    GetScriptsCall.RemoteService = RemoteService
+    RemoteService = RemoteService
+    Left = 40
+    Top = 184
+  end
+  object drLoginRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Login'
+    Params = <
+      item
+        Name = 'aPlatform'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'PlatformEnum'
+        Value = Null
+      end
+      item
+        Name = 'aName'
+        DataType = rtWidestring
+        Flag = fIn
+      end>
+    Left = 40
+    Top = 232
+  end
+  object tbl_UnionAddresses: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'Id'
+        DataType = datWideString
+        Size = 38
+        InPrimaryKey = True
+      end
+      item
+        Name = 'Name'
+        DataType = datWideString
+        Size = 120
+      end
+      item
+        Name = 'ContactPhone'
+        DataType = datWideString
+        Size = 50
+      end
+      item
+        Name = 'ContactAddress'
+        DataType = datWideString
+        Size = 255
+      end
+      item
+        Name = '@SourceTable'
+        DataType = datInteger
+        ServerAutoRefresh = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'SourceTableName'
+        DataType = datString
+        Size = 20
+        LogChanges = False
+        Calculated = True
+        Expression = 
+          'Iif(@SourceTable=0,'#39'Providers'#39',Iif(@SourceTable=1,'#39'Clients'#39','#39'Und' +
+          'efined'#39'))'
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = RemoteDataAdapter
+    LogicalName = 'UnionAddresses'
+    IndexDefs = <>
+    Left = 128
+    Top = 8
+  end
+  object ds_UnionAddresses: TDADataSource
+    DataSet = tbl_UnionAddresses.Dataset
+    DataTable = tbl_UnionAddresses
+    Left = 232
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientDataModule.pas
new file mode 100644
index 0000000..666cf19
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientDataModule.pas	
@@ -0,0 +1,60 @@
+unit fClientDataModule;
+
+interface
+
+uses 
+  {vcl:} SysUtils, Classes, DB, DBClient, 
+  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
+  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
+  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest;
+
+type
+  TClientDataModule = class(TDataModule)
+    Message: TROBinMessage;
+    Channel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    DataStreamer: TDABin2DataStreamer;
+    RemoteDataAdapter: TDARemoteDataAdapter;
+    drLoginRequest: TRODynamicRequest;
+    tbl_UnionAddresses: TDAMemDataTable;
+    ds_UnionAddresses: TDADataSource;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure Login;
+  end;
+
+var
+  ClientDataModule: TClientDataModule;
+
+implementation
+
+{$R *.dfm}
+
+uses DASampleLibrary_Intf;
+
+{ TClientDataModule }
+
+procedure TClientDataModule.Login;
+begin
+  with drLoginRequest do begin
+    {$IFNDEF FPC}
+    Params[0].Value := PlatformEnum_peWindowsDelphi;
+    {$ELSE}
+      {$IFDEF WINDOWS}
+      Params[0].Value := PlatformEnum_peWindowsFPC;
+      {$ELSE}
+        {$IFDEF LINUX}
+        Params[0].Value := PlatformEnum_peLinuxFPC;
+        {$ELSE}
+        Params[0].Value := PlatformEnum_peUnknown;
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+    Params[1].Value := 'Union Tables Sample';
+    Execute(Params);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientForm.dfm
new file mode 100644
index 0000000..dc2cd8e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientForm.dfm	
@@ -0,0 +1,169 @@
+object ClientForm: TClientForm
+  Left = 232
+  Top = 277
+  Width = 574
+  Height = 387
+  Caption = 'Union Tables Sample'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 558
+    Height = 57
+    Align = alTop
+    Constraints.MinWidth = 558
+    TabOrder = 0
+    object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
+      Left = 0
+      Top = 0
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+    end
+    object Label1: TLabel
+      Left = 218
+      Top = 8
+      Width = 103
+      Height = 13
+      Caption = 'Default table for insert'
+    end
+    object Label2: TLabel
+      Left = 377
+      Top = 8
+      Width = 166
+      Height = 13
+      Caption = 'Dynamic Where filter on Name field'
+    end
+    object cbInsertTo: TComboBox
+      Left = 218
+      Top = 27
+      Width = 145
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      ItemIndex = 0
+      TabOrder = 0
+      Text = 'Providers'
+      Items.Strings = (
+        'Providers'
+        'Clients')
+    end
+    object edFilter: TEdit
+      Left = 377
+      Top = 27
+      Width = 121
+      Height = 21
+      TabOrder = 1
+    end
+    object chFilterOn: TCheckBox
+      Left = 504
+      Top = 27
+      Width = 33
+      Height = 17
+      Caption = 'On'
+      TabOrder = 2
+      OnClick = chFilterOnClick
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 57
+    Width = 558
+    Height = 41
+    Align = alTop
+    TabOrder = 1
+    object btLoad: TButton
+      Left = 8
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = 'Load'
+      TabOrder = 0
+      OnClick = btLoadClick
+    end
+    object btInsert: TButton
+      Left = 89
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = 'Insert'
+      TabOrder = 1
+      OnClick = btInsertClick
+    end
+    object btUpdate: TButton
+      Left = 170
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = 'Update'
+      TabOrder = 2
+      OnClick = btUpdateClick
+    end
+    object btDelete: TButton
+      Left = 251
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = 'Delete'
+      TabOrder = 3
+      OnClick = btDeleteClick
+    end
+  end
+  object dgData: TDBGrid
+    Left = 0
+    Top = 98
+    Width = 558
+    Height = 253
+    Align = alClient
+    DataSource = ClientDataModule.ds_UnionAddresses
+    TabOrder = 2
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+    Columns = <
+      item
+        Expanded = False
+        FieldName = 'Id'
+        Width = 55
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'Name'
+        Width = 81
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'ContactPhone'
+        Width = 115
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'ContactAddress'
+        Width = 96
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = '@SourceTable'
+        Width = 94
+        Visible = True
+      end
+      item
+        Expanded = False
+        FieldName = 'SourceTableName'
+        Width = 95
+        Visible = True
+      end>
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientForm.pas
new file mode 100644
index 0000000..54bf377
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Union Tables/fClientForm.pas	
@@ -0,0 +1,106 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, Grids, DBGrids,
+  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ExtCtrls;
+
+type
+  TClientForm = class(TForm)
+    Panel1: TPanel;
+    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
+    Label1: TLabel;
+    cbInsertTo: TComboBox;
+    Label2: TLabel;
+    edFilter: TEdit;
+    chFilterOn: TCheckBox;
+    Panel2: TPanel;
+    btLoad: TButton;
+    btInsert: TButton;
+    btUpdate: TButton;
+    btDelete: TButton;
+    dgData: TDBGrid;
+    procedure FormCreate(Sender: TObject);
+    procedure btLoadClick(Sender: TObject);
+    procedure chFilterOnClick(Sender: TObject);
+    procedure btInsertClick(Sender: TObject);
+    procedure btUpdateClick(Sender: TObject);
+    procedure btDeleteClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses
+  fClientDataModule, uDAInterfaces, DB;
+
+{$R *.dfm}
+
+procedure TClientForm.btDeleteClick(Sender: TObject);
+begin
+  with ClientDataModule.tbl_UnionAddresses do
+    if RecordCount > 0 then  Delete;
+end;
+
+procedure TClientForm.btInsertClick(Sender: TObject);
+var
+  id: TGUID;
+begin
+  CreateGUID(id);
+  ClientDataModule.tbl_UnionAddresses.AddRecord(
+    ['Id', 'Name', 'ContactPhone', 'ContactAddress', '@SourceTable'],
+    [GuidToString(id), 'John Doe', '(000)111-222-333', 'Planet Earth', cbInsertTo.ItemIndex]);
+end;
+
+procedure TClientForm.btLoadClick(Sender: TObject);
+var
+  exp: TDAWhereExpression;
+  expArr: array of TDAWhereExpression;
+  wb: TDAWhereBuilder;
+begin
+  with ClientDataModule do begin
+    tbl_UnionAddresses.ClearRows(true);
+    if chFilterOn.Checked and (Trim(edFilter.Text) <> '') then begin
+      wb := TDAWhereBuilder.Create;
+      exp := wb.NewBinaryExpression(
+        wb.NewField(tbl_UnionAddresses.LogicalName, 'Name'),
+        wb.NewConstant('%' + Trim(edFilter.Text) + '%', datString),
+        dboLike);
+      SetLength(expArr, 1);
+      expArr[0] := exp;
+      RemoteDataAdapter.Fill([tbl_UnionAddresses], expArr);
+      wb.Free;
+    end
+    else RemoteDataAdapter.Fill([tbl_UnionAddresses]);
+  end;
+end;
+
+procedure TClientForm.btUpdateClick(Sender: TObject);
+begin
+  with ClientDataModule do begin
+    if tbl_UnionAddresses.State <> dsBrowse then tbl_UnionAddresses.Post;
+    RemoteDataAdapter.ApplyUpdates([tbl_UnionAddresses]);
+  end;
+end;
+
+procedure TClientForm.chFilterOnClick(Sender: TObject);
+begin
+  btLoad.Click;
+end;
+
+procedure TClientForm.FormCreate(Sender: TObject);
+begin
+  Application.Title := ClientForm.Caption;
+  // TODO: until DynamicRequest bug fixed
+  //ClientDataModule.Login;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample1.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample1.dpr
new file mode 100644
index 0000000..d63ae81
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample1.dpr	
@@ -0,0 +1,61 @@
+program sample1;
+
+uses
+  uPSCompiler, uPSRuntime;
+
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+{ the OnUses callback function is called for each "uses" in the script.
+  It's always called with the parameter 'SYSTEM' at the top of the script. 
+  For example: uses ii1, ii2;   
+  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
+}
+begin
+  if Name = 'SYSTEM' then
+  begin
+    Result := True;
+  end else
+    Result := False;
+end;
+
+procedure ExecuteScript(const Script: string);
+var
+  Compiler: TPSPascalCompiler;
+  { TPSPascalCompiler is the compiler part of the scriptengine. This will
+    translate a Pascal script into a compiled form the executer understands. }
+  Exec: TPSExec;
+   { TPSExec is the executer part of the scriptengine. It uses the output of
+    the compiler to run a script. }
+  Data: AnsiString;
+begin
+  Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
+  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
+  if not Compiler.Compile(Script) then  // Compile the Pascal script into bytecode.
+  begin
+    Compiler.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Compiler.GetOutput(Data); // Save the output of the compiler in the string Data.
+  Compiler.Free; // After compiling the script, there is no need for the compiler anymore.
+
+  Exec := TPSExec.Create;  // Create an instance of the executer.
+  if not  Exec.LoadData(Data) then // Load the data from the Data string.
+  begin
+    { For some reason the script could not be loaded. This is usually the case when a 
+      library that has been used at compile time isn't registered at runtime. }
+    Exec.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Exec.RunScript; // Run the script.
+  Exec.Free; // Free the executer.
+end;
+
+const
+  Script = 'var s: string; begin s := ''Test''; S := s + ''ing;''; end.';
+
+begin
+  ExecuteScript(Script);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample2.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample2.dpr
new file mode 100644
index 0000000..b5bc59f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample2.dpr	
@@ -0,0 +1,88 @@
+program sample2;
+
+uses
+  uPSCompiler,
+  uPSRuntime,
+
+  Dialogs
+
+  ;
+
+procedure MyOwnFunction(const Data: string);
+begin
+  // Do something with Data
+  ShowMessage(Data);
+end;
+
+{$IFDEF UNICODE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
+{$ENDIF}
+
+{ the OnUses callback function is called for each "uses" in the script.
+  It's always called with the parameter 'SYSTEM' at the top of the script.
+  For example: uses ii1, ii2;
+  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
+}
+begin
+  if Name = 'SYSTEM' then
+  begin
+    Sender.AddDelphiFunction('procedure MyOwnFunction(Data: string)');
+    { This will register the function to the script engine. Now it can be used from
+      within the script.}
+
+    Result := True;
+  end else
+    Result := False;
+end;
+
+procedure ExecuteScript(const Script: string);
+var
+  Compiler: TPSPascalCompiler;
+  { TPSPascalCompiler is the compiler part of the scriptengine. This will 
+    translate a Pascal script into a compiled form the executer understands. } 
+  Exec: TPSExec;
+   { TPSExec is the executer part of the scriptengine. It uses the output of
+    the compiler to run a script. }
+  {$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
+begin
+  Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
+  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
+  if not Compiler.Compile(Script) then  // Compile the Pascal script into bytecode.
+  begin
+    Compiler.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Compiler.GetOutput(Data); // Save the output of the compiler in the string Data.
+  Compiler.Free; // After compiling the script, there is no need for the compiler anymore.
+
+  Exec := TPSExec.Create;  // Create an instance of the executer.
+  Exec.RegisterDelphiFunction(@MyOwnFunction, 'MYOWNFUNCTION', cdRegister);
+  { This will register the function to the executer. The first parameter is a 
+    pointer to the function. The second parameter is the name of the function (in uppercase). 
+	And the last parameter is the calling convention (usually Register). }  
+
+  if not  Exec.LoadData(Data) then // Load the data from the Data string.
+  begin
+    { For some reason the script could not be loaded. This is usually the case when a 
+      library that has been used at compile time isn't registered at runtime. }
+    Exec.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Exec.RunScript; // Run the script.
+  Exec.Free; // Free the executer.
+end;
+
+
+
+const
+  Script = 'var s: string; begin s := ''Test''; S := s + ''ing;''; MyOwnFunction(s); end.';
+
+begin
+  ExecuteScript(Script);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample3.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample3.dpr
new file mode 100644
index 0000000..7466ee4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample3.dpr	
@@ -0,0 +1,85 @@
+program sample3;
+
+uses
+  uPSC_dll,
+  uPSR_dll,
+  uPSUtils,
+  uPSCompiler,
+  uPSRuntime;
+  
+{$IFDEF UNICODE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
+{$ENDIF}
+{ the OnUses callback function is called for each "uses" in the script. 
+  It's always called with the parameter 'SYSTEM' at the top of the script. 
+  For example: uses ii1, ii2;   
+  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
+}
+begin
+  if Name = 'SYSTEM' then
+  begin
+    Sender.OnExternalProc := @DllExternalProc;
+    { Assign the dll library to the script engine. This function can be found in the uPSC_dll.pas file.
+      When you have assigned this, it's possible to do this in the script:
+    
+        Function FindWindow(c1, c2: PChar): Cardinal; external 'FindWindow@user32.dll stdcall';
+        
+        The syntax for the external string is 'functionname@dllname callingconvention'.
+    }
+
+    Result := True;
+  end else
+    Result := False;
+end;
+
+procedure ExecuteScript(const Script: string);
+var
+  Compiler: TPSPascalCompiler;
+  { TPSPascalCompiler is the compiler part of the scriptengine. This will 
+    translate a Pascal script into a compiled form the executer understands. } 
+  Exec: TPSExec;
+   { TPSExec is the executer part of the scriptengine. It uses the output of
+    the compiler to run a script. }
+  {$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
+begin
+  Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
+  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
+  if not Compiler.Compile(Script) then  // Compile the Pascal script into bytecode.
+  begin
+    Compiler.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Compiler.GetOutput(Data); // Save the output of the compiler in the string Data.
+  Compiler.Free; // After compiling the script, there is no need for the compiler anymore.
+
+  Exec := TPSExec.Create;  // Create an instance of the executer.
+
+  RegisterDLLRuntime(Exec);
+  { Register the DLL runtime library. This can be found in the uPSR_dll.pas file.}
+
+  if not  Exec.LoadData(Data) then // Load the data from the Data string.
+  begin
+    { For some reason the script could not be loaded. This is usually the case when a 
+      library that has been used at compile time isn't registered at runtime. }
+    Exec.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Exec.RunScript; // Run the script.
+  Exec.Free; // Free the executer.
+end;
+
+
+const
+  Script =
+    'function MessageBox(hWnd: Longint; lpText, lpCaption: PChar; uType: Longint): Longint; external ''MessageBoxA@user32.dll stdcall'';'#13#10 +
+    'var s: string; begin s := ''Test''; MessageBox(0, s, ''Caption Here!'', 0);end.';
+
+begin
+  ExecuteScript(Script);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample4.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample4.dpr
new file mode 100644
index 0000000..57f6f58
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample4.dpr	
@@ -0,0 +1,115 @@
+program sample4;
+{$APPTYPE CONSOLE}
+uses
+  uPSCompiler,
+  uPSRuntime,
+  uPSC_std,
+  uPSC_controls,
+  uPSC_stdctrls,
+  uPSC_forms,
+  uPSR_std,
+  uPSR_controls,
+  uPSR_stdctrls,
+  uPSR_forms,
+  forms
+
+  ;
+
+{$IFDEF UNICODE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
+{$ENDIF}
+{ the OnUses callback function is called for each "uses" in the script. 
+  It's always called with the parameter 'SYSTEM' at the top of the script. 
+  For example: uses ii1, ii2;   
+  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
+}
+begin
+  if Name = 'SYSTEM' then
+  begin
+    SIRegister_Std(Sender);
+    { This will register the declarations of these classes:
+      TObject, TPersistent, TComponent. This can be found
+      in the uPSC_std.pas unit. }
+
+    SIRegister_Controls(Sender);
+    { This will register the declarations of these classes:
+      TControl, TWinControl, TFont, TStrings, TStringList, TCanvas, TGraphicControl. This can be found
+      in the uPSC_controls.pas unit. }
+
+    SIRegister_Forms(Sender);
+    { This will register: TScrollingWinControl, TCustomForm, TForm and TApplication. uPSC_forms.pas unit. }
+
+    SIRegister_stdctrls(Sender);
+     { This will register: TButtonContol, TButton, TCustomCheckbox, TCheckBox, TCustomEdit, TEdit, TCustomMemo, TMemo,
+      TCustomLabel and TLabel. Can be found in the uPSC_stdctrls.pas unit. }
+
+    Result := True;
+  end else
+    Result := False;
+end;
+
+procedure ExecuteScript(const Script: string);
+var
+  Compiler: TPSPascalCompiler;
+  { TPSPascalCompiler is the compiler part of the scriptengine. This will 
+    translate a Pascal script into a compiled form the executer understands. } 
+  Exec: TPSExec;
+   { TPSExec is the executer part of the scriptengine. It uses the output of
+    the compiler to run a script. }
+  {$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
+  i: Integer;
+  CI: TPSRuntimeClassImporter;
+begin
+  Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
+  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
+  if not Compiler.Compile(Script) then  // Compile the Pascal script into bytecode.
+  begin
+
+    for i := 0 to Compiler.MsgCount -1 do
+      Writeln(Compiler.Msg[i].MessageToString);
+    Compiler.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Compiler.GetOutput(Data); // Save the output of the compiler in the string Data.
+  Compiler.Free; // After compiling the script, there is no need for the compiler anymore.
+
+  CI := TPSRuntimeClassImporter.Create;
+  { Create an instance of the runtime class importer.}
+
+  RIRegister_Std(CI);  // uPSR_std.pas unit.
+  RIRegister_stdctrls(CI);  // uPSR_stdctrls.pas unit.
+  RIRegister_Controls(CI); // uPSR_controls.pas unit.
+  RIRegister_Forms(CI);  // uPSR_forms.pas unit.
+
+  Exec := TPSExec.Create;  // Create an instance of the executer.
+
+  RegisterClassLibraryRuntime(Exec, CI);
+  // Assign the runtime class importer to the executer.
+
+  if not  Exec.LoadData(Data) then // Load the data from the Data string.
+  begin
+    { For some reason the script could not be loaded. This is usually the case when a
+      library that has been used at compile time isn't registered at runtime. }
+    Exec.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Exec.RunScript; // Run the script.
+  Exec.Free; // Free the executer.
+  CI.Free;  // Free the runtime class importer.
+end;
+
+
+
+const
+  Script =
+    'var f: TForm; i: Longint; begin f := TForm.CreateNew(nil,0); f.Show; for i := 0 to 1000000 do; f.Hide; f.free;  end.';
+
+begin
+  ExecuteScript(Script);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample5.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample5.dpr
new file mode 100644
index 0000000..e16585c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample5.dpr	
@@ -0,0 +1,117 @@
+program sample5;
+
+uses
+  uPSCompiler,
+  uPSRuntime,
+  uPSC_std,
+  uPSC_controls,
+  uPSC_stdctrls,
+  uPSC_forms,
+  uPSR_std,
+  uPSR_controls,
+  uPSR_stdctrls,
+  uPSR_forms,
+  forms
+
+  ;
+
+{$IFDEF UNICODE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
+{$ENDIF}
+{ the OnUses callback function is called for each "uses" in the script. 
+  It's always called with the parameter 'SYSTEM' at the top of the script.
+  For example: uses ii1, ii2;   
+  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
+}
+begin
+  if Name = 'SYSTEM' then
+  begin
+    SIRegister_Std(Sender);
+    { This will register the declarations of these classes:
+      TObject, TPersisent. This can be found
+      in the uPSC_std.pas unit. }
+    SIRegister_Controls(Sender);
+    { This will register the declarations of these classes:
+      TControl, TWinControl, TFont, TStrings, TStringList, TGraphicControl. This can be found
+      in the uPSC_controls.pas unit. }
+
+    SIRegister_Forms(Sender);
+    { This will register: TScrollingWinControl, TCustomForm, TForm and TApplication. uPSC_forms.pas unit. }
+
+    SIRegister_stdctrls(Sender);
+     { This will register: TButtonContol, TButton, TCustomCheckbox, TCheckBox, TCustomEdit, TEdit, TCustomMemo, TMemo,
+      TCustomLabel and TLabel. Can be found in the uPSC_stdctrls.pas unit. }
+
+    AddImportedClassVariable(Sender, 'Application', 'TApplication');
+    // Registers the application variable to the script engine.
+
+    Result := True;
+  end else
+    Result := False;
+end;
+
+procedure ExecuteScript(const Script: string);
+var
+  Compiler: TPSPascalCompiler;
+  { TPSPascalCompiler is the compiler part of the scriptengine. This will 
+    translate a Pascal script into a compiled form the executer understands. } 
+  Exec: TPSExec;
+   { TPSExec is the executer part of the scriptengine. It uses the output of
+    the compiler to run a script. }
+  {$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
+  CI: TPSRuntimeClassImporter; 
+begin
+  Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
+  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
+  if not Compiler.Compile(Script) then  // Compile the Pascal script into bytecode.
+  begin
+    Compiler.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Compiler.GetOutput(Data); // Save the output of the compiler in the string Data.
+  Compiler.Free; // After compiling the script, there is no need for the compiler anymore.
+
+  CI := TPSRuntimeClassImporter.Create;
+  { Create an instance of the runtime class importer.}
+  
+  RIRegister_Std(CI);  // uPSR_std.pas unit.
+  RIRegister_Controls(CI); // uPSR_controls.pas unti.
+  RIRegister_stdctrls(CI);  // uPSR_stdctrls.pas unit.
+  RIRegister_Forms(CI);  // uPSR_forms.pas unit.
+
+  Exec := TPSExec.Create;  // Create an instance of the executer.
+
+  RegisterClassLibraryRuntime(Exec, CI);
+  // Assign the runtime class importer to the executer.
+  
+  if not  Exec.LoadData(Data) then // Load the data from the Data string.
+  begin
+    { For some reason the script could not be loaded. This is usually the case when a
+      library that has been used at compile time isn't registered at runtime. }
+    Exec.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  SetVariantToClass(Exec.GetVarNo(Exec.GetVar('APPLICATION')), Application);
+   // This will set the script's Application variable to the real Application variable.
+
+  Exec.RunScript; // Run the script.
+  Exec.Free; // Free the executer.
+  CI.Free;  // Free the runtime class importer. 
+end;
+
+
+
+
+const
+  Script =
+    'var f: TForm; i: Longint; begin f := TForm.CreateNew(f, 0); f.Show; while f.Visible do Application.ProcessMessages; F.free;  end.';
+
+begin
+  ExecuteScript(Script);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample6.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample6.dpr
new file mode 100644
index 0000000..00b501d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample6.dpr	
@@ -0,0 +1,143 @@
+program sample6;
+
+uses
+  uPSCompiler,
+  uPSUtils,
+  uPSRuntime,
+
+  Dialogs
+
+  ;
+
+procedure MyOwnFunction(const Data: string);
+begin
+  // Do something with Data
+  ShowMessage(Data);
+end;
+{$IFDEF UNICODE}
+function ScriptOnExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: string): Boolean;
+{$ENDIF}
+{
+  The OnExportCheck callback function is called for each function in the script
+  (Also for the main proc, with '!MAIN' as a Proc^.Name). ProcDecl contains the
+  result type and parameter types of a function using this format:
+  ProcDecl: ResultType + ' ' + Parameter1 + ' ' + Parameter2 + ' '+Parameter3 + .....
+  Parameter: ParameterType+TypeName
+  ParameterType is @ for a normal parameter and ! for a var parameter.
+  A result type of 0 means no result.
+}
+begin
+  if Proc.Name = 'TEST' then // Check if the proc is the Test proc we want.
+  begin
+    if not ExportCheck(Sender, Proc, [0, {$IFDEF UNICODE}btUnicodeString{$ELSE}btString{$ENDIF}], [pmIn]) then // Check if the proc has the correct params.
+    begin
+      { Something is wrong, so cause an error at the declaration position of the proc. }
+      Sender.MakeError('', ecTypeMismatch, '');
+      Result := False;
+      Exit;
+    end;
+    Result := True;
+  end else Result := True;
+end;
+
+{$IFDEF UNICODE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
+{$ENDIF}
+{ the OnUses callback function is called for each "uses" in the script.
+  It's always called with the parameter 'SYSTEM' at the top of the script. 
+  For example: uses ii1, ii2;   
+  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
+}
+begin
+  if Name = 'SYSTEM' then
+  begin
+    Sender.AddDelphiFunction('procedure MyOwnFunction(Data: string)');
+    { This will register the function to the script engine. Now it can be used from within the script. }
+
+    Result := True;
+  end else
+    Result := False;
+end;
+
+procedure ExecuteScript(const Script: string);
+var
+  Compiler: TPSPascalCompiler;
+  { TPSPascalCompiler is the compiler part of the scriptengine. This will 
+    translate a Pascal script into a compiled form the executer understands. } 
+  Exec: TPSExec;
+   { TPSExec is the executer part of the scriptengine. It uses the output of
+    the compiler to run a script. }
+  {$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
+
+  N: PIfVariant;
+  { The variant in which we are going to store the parameter }
+  ParamList: TIfList;
+  { The parameter list}
+begin
+  Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
+  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
+
+  Compiler.OnExportCheck := ScriptOnExportCheck; // Assign the onExportCheck event.
+
+  if not Compiler.Compile(Script) then  // Compile the Pascal script into bytecode.
+  begin
+    Compiler.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Compiler.GetOutput(Data); // Save the output of the compiler in the string Data.
+  Compiler.Free; // After compiling the script, there is no need for the compiler anymore.
+
+  Exec := TPSExec.Create;  // Create an instance of the executer.
+
+  Exec.RegisterDelphiFunction(@MyOwnFunction, 'MYOWNFUNCTION', cdRegister);
+  { This will register the function to the executer. The first parameter is the executer. The second parameter is a 
+    pointer to the function. The third parameter is the name of the function (in uppercase). And the last parameter is the
+    calling convention (usually Register). }
+
+  if not Exec.LoadData(Data) then // Load the data from the Data string.
+  begin
+    { For some reason the script could not be loaded. This is usually the case when a 
+      library that has been used at compile time isn't registered at runtime. }
+    Exec.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  ParamList := TIfList.Create; // Create the parameter list
+
+  N := CreateHeapVariant(Exec.FindType2(btString));
+  { Create a variant for the string parameter }
+  if n = nil then
+  begin
+    { Something is wrong. Exit here }
+    ParamList.Free;
+    Exec.Free;
+    Exit;
+  end;
+  VSetString(n, 'Test Parameter!');
+  // Put something in the string parameter.
+
+  ParamList.Add(n); // Add it to the parameter list.
+
+  Exec.RunProc(ParamList, Exec.GetProc('TEST'));
+  { This will call the test proc that was exported before }
+
+  FreePIFVariantList(ParamList); // Cleanup the parameters (This will also free N)
+
+  Exec.Free; // Free the executer.
+end;
+
+
+
+const
+  Script = 'procedure test(s: string); begin MyOwnFunction(''Test is called: ''+s);end; begin end.';
+
+begin
+  ExecuteScript(Script);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample7.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample7.dpr
new file mode 100644
index 0000000..a530fe9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample7.dpr	
@@ -0,0 +1,153 @@
+program sample7;
+
+uses
+  uPSCompiler,
+  uPSRuntime,
+  uPSUtils,
+
+  Dialogs
+
+  ;
+
+procedure MyOwnFunction(const Data: string);
+begin
+  // Do something with Data
+  ShowMessage(Data);
+end;
+
+{$IFDEF UNICODE}
+function ScriptOnExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: string): Boolean;
+{$ENDIF}
+{
+  The OnExportCheck callback function is called for each function in the script
+  (Also for the main proc, with '!MAIN' as a Proc^.Name). ProcDecl contains the
+  result type and parameter types of a function using this format:
+  ProcDecl: ResultType + ' ' + Parameter1 + ' ' + Parameter2 + ' '+Parameter3 + .....
+  Parameter: ParameterType+TypeName
+  ParameterType is @ for a normal parameter and ! for a var parameter.
+  A result type of 0 means no result.
+}
+begin
+  if Proc.Name = 'TEST' then // Check if the proc is the Test proc we want.
+  begin
+    if ProcDecl <> '0 @TSTRINGARRAY' then // Check if the proc has the correct params.
+    begin
+      { Something is wrong, so cause an error. }
+      Sender.MakeError('', ecTypeMismatch, '');
+      Result := False;
+      Exit;
+    end;
+    { Export the proc; This is needed because PS doesn't store the name of a
+      function by default }
+    Result := True;
+  end else Result := True;
+end;
+
+{$IFDEF UNICODE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
+{$ENDIF}
+{ the OnUses callback function is called for each "uses" in the script.
+  It's always called with the parameter 'SYSTEM' at the top of the script. 
+  For example: uses ii1, ii2;
+  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
+}
+begin
+  if Name = 'SYSTEM' then
+  begin
+
+    Sender.AddDelphiFunction('procedure MyOwnFunction(Data: string)');
+    { This will register the function to the script engine. Now it can be used from within the script. }
+
+    Sender.AddTypeS('TSTRINGARRAY', 'array of string').ExportName := True;
+    { Add the type to the script engine (and export it) }
+
+    Result := True;
+  end else
+    Result := False;
+end;
+
+type
+  TStringArr = array[0..1] of string;
+
+procedure ExecuteScript(const Script: string);
+var
+  Compiler: TPSPascalCompiler;
+  { TPSPascalCompiler is the compiler part of the scriptengine. This will
+    translate a Pascal script into a compiled form the executer understands. }
+  Exec: TPSExec;
+   { TPSExec is the executer part of the scriptengine. It uses the output of
+    the compiler to run a script. }
+  {$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
+
+  N: PIfVariant;
+  { The variant in which we are going to store the parameter }
+  ParamList: TIfList;
+  { The parameter list}
+begin
+  Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
+  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
+
+  Compiler.OnExportCheck := ScriptOnExportCheck; // Assign the onExportCheck event.
+
+  if not Compiler.Compile(Script) then  // Compile the Pascal script into bytecode.
+  begin
+    Compiler.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Compiler.GetOutput(Data); // Save the output of the compiler in the string Data.
+  Compiler.Free; // After compiling the script, there is no need for the compiler anymore.
+
+  Exec := TPSExec.Create;  // Create an instance of the executer.
+
+  Exec.RegisterDelphiFunction(@MyOwnFunction, 'MYOWNFUNCTION', cdRegister);
+
+  if not Exec.LoadData(Data) then // Load the data from the Data string.
+  begin
+    { For some reason the script could not be loaded. This is usually the case when a 
+      library that has been used at compile time isn't registered at runtime. }
+    Exec.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  ParamList := TIfList.Create; // Create the parameter list
+
+  n := CreateHeapVariant(Exec.GetTypeNo(Exec.GetType('TSTRINGARRAY')));
+  { Create a variant for the array parameter }
+  if n = nil then
+  begin
+    { Something is wrong. Exit here }
+    ParamList.Free;
+    Exec.Free;
+    Exit;
+  end;
+
+  PSDynArraySetLength(PPSVariantDynamicArray(n).Data, PPSVariantDynamicArray(n).VI.FType, 2); // Put two items in the array
+  TStringArr(PPSVariantDynamicArray(n).Data^)[0] := 'First item';
+  TStringArr(PPSVariantDynamicArray(n).Data^)[1] := 'Second item';
+  // Put something in the string parameter.
+
+  ParamList.Add(n); // Add it to the parameter list.
+
+  Exec.RunProc(ParamList, Exec.GetProc('TEST'));
+  { This will call the test proc that was exported before }
+
+  FreePIFVariantList(ParamList); // Cleanup the parameters (This will also free N)
+
+  Exec.Free; // Free the executer.
+end;
+
+
+
+const
+  Script = 'procedure test(s: tstringarray); var i: Longint; begin for i := 0 to GetArrayLength(S) -1 do MyOwnFunction(''Test is called: ''+s[i]);end; begin end.';
+
+begin
+  ExecuteScript(Script);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample8.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample8.dpr
new file mode 100644
index 0000000..1ec2cea
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Console/sample8.dpr	
@@ -0,0 +1,130 @@
+program sample8;
+
+uses
+  uPSCompiler,
+  uPSRuntime,
+  uPSUtils,
+
+  Dialogs
+
+  ;
+
+procedure MyOwnFunction(const Data: string);
+begin
+  // Do something with Data
+  ShowMessage(Data);
+end;
+
+{$IFDEF UNICODE}
+function ScriptOnExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: string): Boolean;
+{$ENDIF}
+{
+  The OnExportCheck callback function is called for each function in the script
+  (Also for the main proc, with '!MAIN' as a Proc^.Name). ProcDecl contains the
+  result type and parameter types of a function using this format:
+  ProcDecl: ResultType + ' ' + Parameter1 + ' ' + Parameter2 + ' '+Parameter3 + .....
+  Parameter: ParameterType+TypeName
+  ParameterType is @ for a normal parameter and ! for a var parameter.
+  A result type of 0 means no result.
+}
+begin
+  if Proc.Name = 'TEST' then // Check if the proc is the Test proc we want.
+  begin
+    if not ExportCheck(Sender, Proc, {$IFDEF UNICODE}[btUnicodeString, btUnicodeString]{$ELSE}[btString, btString]{$ENDIF}, [pmIn]) then // Check if the proc has the correct params.
+    begin
+      { Something is wrong, so cause an error. }
+      Sender.MakeError('', ecTypeMismatch, '');
+      Result := False;
+      Exit;
+    end;
+    Result := True;
+  end else Result := True;
+end;
+
+{$IFDEF UNICODE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+{$ELSE}
+function ScriptOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
+{$ENDIF}
+{ the OnUses callback function is called for each "uses" in the script.
+  It's always called with the parameter 'SYSTEM' at the top of the script.
+  For example: uses ii1, ii2;
+  This will call this function 3 times. First with 'SYSTEM' then 'II1' and then 'II2'.
+}
+begin
+  if Name = 'SYSTEM' then
+  begin
+
+    Sender.AddDelphiFunction('procedure MyOwnFunction(Data: string)');
+    { This will register the function to the script engine. Now it can be used from within the script. }
+
+
+    Result := True;
+  end else
+    Result := False;
+end;
+
+type
+  TTestFunction = function (const s: string): string of object;
+  // Header of the test function, added of object. 
+
+procedure ExecuteScript(const Script: string);
+var
+  Compiler: TPSPascalCompiler;
+  { TPSPascalCompiler is the compiler part of the scriptengine. This will
+    translate a Pascal script into a compiled form the executer understands. }
+  Exec: TPSExec;
+   { TPSExec is the executer part of the scriptengine. It uses the output of
+    the compiler to run a script. }
+  {$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
+
+  TestFunc: TTestFunction;
+begin
+  Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
+  Compiler.OnUses := ScriptOnUses; // assign the OnUses event.
+
+  Compiler.OnExportCheck := ScriptOnExportCheck; // Assign the onExportCheck event.
+
+  Compiler.AllowNoBegin := True;
+  Compiler.AllowNoEnd := True; // AllowNoBegin and AllowNoEnd allows it that begin and end are not required in a script. 
+
+  if not Compiler.Compile(Script) then  // Compile the Pascal script into bytecode.
+  begin
+    Compiler.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  Compiler.GetOutput(Data); // Save the output of the compiler in the string Data.
+  Compiler.Free; // After compiling the script, there is no need for the compiler anymore.
+
+  Exec := TPSExec.Create;  // Create an instance of the executer.
+
+  Exec.RegisterDelphiFunction(@MyOwnFunction, 'MYOWNFUNCTION', cdRegister);
+
+  if not Exec.LoadData(Data) then // Load the data from the Data string.
+  begin
+    { For some reason the script could not be loaded. This is usually the case when a 
+      library that has been used at compile time isn't registered at runtime. }
+    Exec.Free;
+     // You could raise an exception here.
+    Exit;
+  end;
+
+  TestFunc := TTestFunction(Exec.GetProcAsMethodN('Test'));
+  if @TestFunc <> nil then
+    ShowMessage('Result from TestFunc(''test indata''): '+TestFunc('test indata'));
+
+  Exec.Free; // Free the executer.
+end;
+
+
+
+const
+  Script = 'function test(s: string): string; begin MyOwnFunction(''Test Called with param: ''+s); Result := ''Test Result: ''+s; end;';
+
+begin
+  ExecuteScript(Script);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide.dpr
new file mode 100644
index 0000000..93083e9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide.dpr	
@@ -0,0 +1,21 @@
+program ide;
+
+uses
+  Forms,
+  ide_editor in 'ide_editor.pas' {editor},
+  ide_debugoutput in 'ide_debugoutput.pas' {debugoutput},
+  uFrmGotoLine in 'uFrmGotoLine.pas' {frmGotoLine},
+  dlgSearchText in 'dlgSearchText.pas' {TextSearchDialog},
+  dlgConfirmReplace in 'dlgConfirmReplace.pas' {ConfirmReplaceDialog},
+  dlgReplaceText in 'dlgReplaceText.pas' {TextReplaceDialog};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(Teditor, editor);
+  Application.CreateForm(Tdebugoutput, debugoutput);
+  Application.CreateForm(TfrmGotoLine, frmGotoLine);
+  Application.CreateForm(TConfirmReplaceDialog, ConfirmReplaceDialog);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide.res b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide.res
new file mode 100644
index 0000000..a808583
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_debugoutput.dfm b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_debugoutput.dfm
new file mode 100644
index 0000000..ef3b9e8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_debugoutput.dfm	
@@ -0,0 +1,27 @@
+object debugoutput: Tdebugoutput
+  Left = 192
+  Top = 107
+  Width = 530
+  Height = 366
+  Caption = 'Debug Output'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object output: TMemo
+    Left = 0
+    Top = 0
+    Width = 522
+    Height = 339
+    Align = alClient
+    ReadOnly = True
+    ScrollBars = ssBoth
+    TabOrder = 0
+    WordWrap = False
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_debugoutput.pas b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_debugoutput.pas
new file mode 100644
index 0000000..c25a91b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_debugoutput.pas	
@@ -0,0 +1,33 @@
+unit ide_debugoutput;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  Tdebugoutput = class(TForm)
+    output: TMemo;
+  private
+  public
+  protected
+    procedure CreateParams(var Params: TCreateParams); override;
+  end;
+
+var
+  debugoutput: Tdebugoutput;
+
+implementation
+
+{$R *.dfm}
+
+{ Tdebugoutput }
+
+procedure Tdebugoutput.CreateParams(var Params: TCreateParams);
+begin
+  inherited CreateParams(Params);
+  Params.ExStyle  := Params.ExStyle or WS_EX_APPWINDOW;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_editor.dfm b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_editor.dfm
new file mode 100644
index 0000000..2e694b4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_editor.dfm	
@@ -0,0 +1,296 @@
+object editor: Teditor
+  Left = 350
+  Top = 222
+  Width = 696
+  Height = 480
+  Caption = 'Editor'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -14
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  Menu = MainMenu1
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  PixelsPerInch = 120
+  TextHeight = 16
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 311
+    Width = 688
+    Height = 4
+    Cursor = crVSplit
+    Align = alBottom
+  end
+  object ed: TSynEdit
+    Left = 0
+    Top = 0
+    Width = 688
+    Height = 311
+    Align = alClient
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -17
+    Font.Name = 'Courier New'
+    Font.Style = []
+    PopupMenu = PopupMenu1
+    TabOrder = 0
+    Gutter.AutoSize = True
+    Gutter.Font.Charset = DEFAULT_CHARSET
+    Gutter.Font.Color = clWindowText
+    Gutter.Font.Height = -11
+    Gutter.Font.Name = 'Terminal'
+    Gutter.Font.Style = []
+    Gutter.ShowLineNumbers = True
+    Highlighter = pashighlighter
+    Lines.Strings = (
+      'Program test;'
+      'begin'
+      'end.')
+    Options = [eoAutoIndent, eoDragDropEditing, eoDropFiles, eoGroupUndo, eoScrollPastEol, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces]
+    OnDropFiles = edDropFiles
+    OnSpecialLineColors = edSpecialLineColors
+    OnStatusChange = edStatusChange
+    RemovedKeystrokes = <
+      item
+        Command = ecContextHelp
+        ShortCut = 112
+      end>
+    AddedKeystrokes = <
+      item
+        Command = ecContextHelp
+        ShortCut = 16496
+      end>
+  end
+  object messages: TListBox
+    Left = 0
+    Top = 315
+    Width = 688
+    Height = 81
+    Align = alBottom
+    ItemHeight = 16
+    TabOrder = 1
+    OnDblClick = messagesDblClick
+  end
+  object StatusBar: TStatusBar
+    Left = 0
+    Top = 396
+    Width = 688
+    Height = 19
+    Panels = <
+      item
+        Width = 50
+      end>
+  end
+  object ce: TPSScriptDebugger
+    CompilerOptions = []
+    OnCompile = ceCompile
+    OnExecute = ceExecute
+    OnAfterExecute = ceAfterExecute
+    Plugins = <
+      item
+        Plugin = IFPS3CE_DateUtils1
+      end
+      item
+        Plugin = IFPS3CE_Std1
+      end
+      item
+        Plugin = IFPS3CE_Controls1
+      end
+      item
+        Plugin = IFPS3CE_StdCtrls1
+      end
+      item
+        Plugin = IFPS3CE_Forms1
+      end
+      item
+        Plugin = IFPS3DllPlugin1
+      end
+      item
+        Plugin = IFPS3CE_ComObj1
+      end>
+    MainFileName = 'Unnamed'
+    UsePreProcessor = True
+    OnNeedFile = ceNeedFile
+    OnIdle = ceIdle
+    OnLineInfo = ceLineInfo
+    OnBreakpoint = ceBreakpoint
+    Left = 592
+    Top = 112
+  end
+  object IFPS3DllPlugin1: TPSDllPlugin
+    Left = 560
+    Top = 112
+  end
+  object pashighlighter: TSynPasSyn
+    Left = 592
+    Top = 64
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 592
+    Top = 16
+    object BreakPointMenu: TMenuItem
+      Caption = '&Set/Clear Breakpoint'
+      ShortCut = 116
+      OnClick = BreakPointMenuClick
+    end
+  end
+  object MainMenu1: TMainMenu
+    Left = 592
+    Top = 160
+    object File1: TMenuItem
+      Caption = '&File'
+      object New1: TMenuItem
+        Caption = '&New'
+        ShortCut = 16462
+        OnClick = New1Click
+      end
+      object N3: TMenuItem
+        Caption = '-'
+      end
+      object Open1: TMenuItem
+        Caption = '&Open...'
+        ShortCut = 16463
+        OnClick = Open1Click
+      end
+      object Save1: TMenuItem
+        Caption = '&Save'
+        ShortCut = 16467
+        OnClick = Save1Click
+      end
+      object Saveas1: TMenuItem
+        Caption = 'Save &as...'
+        OnClick = Saveas1Click
+      end
+      object N4: TMenuItem
+        Caption = '-'
+      end
+      object Exit1: TMenuItem
+        Caption = '&Exit'
+        OnClick = Exit1Click
+      end
+    end
+    object Search1: TMenuItem
+      Caption = '&Search'
+      object Find1: TMenuItem
+        Caption = '&Find...'
+        OnClick = Find1Click
+      end
+      object Replace1: TMenuItem
+        Caption = '&Replace...'
+        OnClick = Replace1Click
+      end
+      object Searchagain1: TMenuItem
+        Caption = '&Search again'
+        OnClick = Searchagain1Click
+      end
+      object N6: TMenuItem
+        Caption = '-'
+      end
+      object Gotolinenumber1: TMenuItem
+        Caption = '&Go to...'
+        OnClick = Gotolinenumber1Click
+      end
+    end
+    object Run1: TMenuItem
+      Caption = '&Run'
+      object Syntaxcheck1: TMenuItem
+        Caption = 'Syntax &check'
+        OnClick = Syntaxcheck1Click
+      end
+      object Decompile1: TMenuItem
+        Caption = '&Decompile...'
+        OnClick = Decompile1Click
+      end
+      object N5: TMenuItem
+        Caption = '-'
+      end
+      object StepOver1: TMenuItem
+        Caption = '&Step Over'
+        ShortCut = 119
+        OnClick = StepOver1Click
+      end
+      object StepInto1: TMenuItem
+        Caption = 'Step &Into'
+        ShortCut = 118
+        OnClick = StepInto1Click
+      end
+      object N1: TMenuItem
+        Caption = '-'
+      end
+      object Pause1: TMenuItem
+        Caption = '&Pause'
+        OnClick = Pause1Click
+      end
+      object Reset1: TMenuItem
+        Caption = 'R&eset'
+        ShortCut = 16497
+        OnClick = Reset1Click
+      end
+      object N2: TMenuItem
+        Caption = '-'
+      end
+      object Run2: TMenuItem
+        Caption = '&Run'
+        ShortCut = 120
+        OnClick = Run2Click
+      end
+    end
+  end
+  object SaveDialog1: TSaveDialog
+    DefaultExt = 'ROPS'
+    Filter = 'ROPS Files|*.ROPS'
+    Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
+    Left = 200
+    Top = 104
+  end
+  object OpenDialog1: TOpenDialog
+    DefaultExt = 'ROPS'
+    Filter = 'ROPS Files|*.ROPS'
+    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 168
+    Top = 104
+  end
+  object IFPS3CE_Controls1: TPSImport_Controls
+    EnableStreams = True
+    EnableGraphics = True
+    EnableControls = True
+    Left = 328
+    Top = 40
+  end
+  object IFPS3CE_DateUtils1: TPSImport_DateUtils
+    Left = 328
+    Top = 72
+  end
+  object IFPS3CE_Std1: TPSImport_Classes
+    EnableStreams = True
+    EnableClasses = True
+    Left = 328
+    Top = 104
+  end
+  object IFPS3CE_Forms1: TPSImport_Forms
+    EnableForms = True
+    EnableMenus = True
+    Left = 328
+    Top = 136
+  end
+  object IFPS3CE_StdCtrls1: TPSImport_StdCtrls
+    EnableExtCtrls = True
+    EnableButtons = True
+    Left = 328
+    Top = 168
+  end
+  object IFPS3CE_ComObj1: TPSImport_ComObj
+    Left = 328
+    Top = 200
+  end
+  object SynEditSearch: TSynEditSearch
+    Left = 136
+    Top = 216
+  end
+  object SynEditRegexSearch: TSynEditRegexSearch
+    Left = 168
+    Top = 216
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_editor.pas b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_editor.pas
new file mode 100644
index 0000000..14fcdce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/ide_editor.pas	
@@ -0,0 +1,649 @@
+//Version: 31Jan2005
+
+unit ide_editor;
+
+interface
+
+uses
+  Windows, SysUtils, Classes, Graphics, Controls, Forms,
+  Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls,
+  SynEdit, SynEditTypes, SynHighlighterPas,
+  uPSComponent_COM, uPSComponent_StdCtrls, uPSComponent_Forms,
+  uPSComponent_Default, uPSComponent_Controls,
+  uPSRuntime, uPSDisassembly, uPSUtils,
+  uPSComponent, uPSDebugger, SynEditRegexSearch, 
+  SynEditSearch, SynEditMiscClasses, SynEditHighlighter;
+
+type
+  Teditor = class(TForm)
+    ce: TPSScriptDebugger;
+    IFPS3DllPlugin1: TPSDllPlugin;
+    pashighlighter: TSynPasSyn;
+    ed: TSynEdit;
+    PopupMenu1: TPopupMenu;
+    BreakPointMenu: TMenuItem;
+    MainMenu1: TMainMenu;
+    File1: TMenuItem;
+    Run1: TMenuItem;
+    StepOver1: TMenuItem;
+    StepInto1: TMenuItem;
+    N1: TMenuItem;
+    Reset1: TMenuItem;
+    N2: TMenuItem;
+    Run2: TMenuItem;
+    Exit1: TMenuItem;
+    messages: TListBox;
+    Splitter1: TSplitter;
+    SaveDialog1: TSaveDialog;
+    OpenDialog1: TOpenDialog;
+    N3: TMenuItem;
+    N4: TMenuItem;
+    New1: TMenuItem;
+    Open1: TMenuItem;
+    Save1: TMenuItem;
+    Saveas1: TMenuItem;
+    StatusBar: TStatusBar;
+    Decompile1: TMenuItem;
+    N5: TMenuItem;
+    IFPS3CE_Controls1: TPSImport_Controls;
+    IFPS3CE_DateUtils1: TPSImport_DateUtils;
+    IFPS3CE_Std1: TPSImport_Classes;
+    IFPS3CE_Forms1: TPSImport_Forms;
+    IFPS3CE_StdCtrls1: TPSImport_StdCtrls;
+    IFPS3CE_ComObj1: TPSImport_ComObj;
+    Pause1: TMenuItem;
+    SynEditSearch: TSynEditSearch;
+    SynEditRegexSearch: TSynEditRegexSearch;
+    Search1: TMenuItem;
+    Find1: TMenuItem;
+    Replace1: TMenuItem;
+    Searchagain1: TMenuItem;
+    N6: TMenuItem;
+    Gotolinenumber1: TMenuItem;
+    Syntaxcheck1: TMenuItem;
+    procedure edSpecialLineColors(Sender: TObject; Line: Integer; var Special: Boolean; var FG, BG: TColor);
+    procedure BreakPointMenuClick(Sender: TObject);
+    procedure ceLineInfo(Sender: TObject; const FileName: String; Position, Row, Col: Cardinal);
+    procedure Exit1Click(Sender: TObject);
+    procedure StepOver1Click(Sender: TObject);
+    procedure StepInto1Click(Sender: TObject);
+    procedure Reset1Click(Sender: TObject);
+    procedure ceIdle(Sender: TObject);
+    procedure Run2Click(Sender: TObject);
+    procedure ceExecute(Sender: TPSScript);
+    procedure ceAfterExecute(Sender: TPSScript);
+    procedure ceCompile(Sender: TPSScript);
+    procedure New1Click(Sender: TObject);
+    procedure Open1Click(Sender: TObject);
+    procedure Save1Click(Sender: TObject);
+    procedure Saveas1Click(Sender: TObject);
+    procedure edStatusChange(Sender: TObject; Changes: TSynStatusChanges);
+    procedure Decompile1Click(Sender: TObject);
+    function ceNeedFile(Sender: TObject; const OrginFileName: String; var FileName, Output: String): Boolean;
+    procedure ceBreakpoint(Sender: TObject; const FileName: String; Position, Row, Col: Cardinal);
+    procedure Pause1Click(Sender: TObject);
+    procedure messagesDblClick(Sender: TObject);
+    procedure Gotolinenumber1Click(Sender: TObject);
+    procedure Find1Click(Sender: TObject);
+    procedure Searchagain1Click(Sender: TObject);
+    procedure Replace1Click(Sender: TObject);
+    procedure Syntaxcheck1Click(Sender: TObject);
+    procedure edDropFiles(Sender: TObject; X, Y: Integer;
+      AFiles: TStrings);
+  private
+    FSearchFromCaret: boolean;
+    FActiveLine: Longint;
+    FResume: Boolean;
+    FActiveFile: string;
+    function Compile: Boolean;
+    function Execute: Boolean;
+
+    procedure Writeln(const s: string);
+    procedure Readln(var s: string);
+    procedure SetActiveFile(const Value: string);
+
+    procedure DoSearchReplaceText(AReplace: boolean; ABackwards: boolean);
+    procedure ShowSearchReplaceDialog(AReplace: boolean);
+
+    property aFile: string read FActiveFile write SetActiveFile;
+  public
+    function SaveCheck: Boolean;
+  end;
+
+var
+  editor: Teditor;
+
+implementation
+
+uses
+  ide_debugoutput,
+  uFrmGotoLine,
+  dlgSearchText, dlgReplaceText, dlgConfirmReplace;
+
+{$R *.dfm}
+
+const
+  isRunningOrPaused = [isRunning, isPaused];
+
+// options - to be saved to the registry
+var
+  gbSearchBackwards: boolean;
+  gbSearchCaseSensitive: boolean;
+  gbSearchFromCaret: boolean;
+  gbSearchSelectionOnly: boolean;
+  gbSearchTextAtCaret: boolean;
+  gbSearchWholeWords: boolean;
+  gbSearchRegex: boolean;
+  gsSearchText: string;
+  gsSearchTextHistory: string;
+  gsReplaceText: string;
+  gsReplaceTextHistory: string;
+
+resourcestring
+  STR_TEXT_NOTFOUND = 'Text not found';
+  STR_UNNAMED = 'Unnamed';
+  STR_SUCCESSFULLY_COMPILED = 'Succesfully compiled';
+  STR_SUCCESSFULLY_EXECUTED = 'Succesfully executed';
+  STR_RUNTIME_ERROR='[Runtime error] %s(%d:%d), bytecode(%d:%d): %s'; //Birb
+  STR_FORM_TITLE = 'Editor';
+  STR_FORM_TITLE_RUNNING = 'Editor - Running';
+  STR_INPUTBOX_TITLE = 'Script';
+  STR_DEFAULT_PROGRAM = 'Program test;'#13#10'begin'#13#10'end.';
+  STR_NOTSAVED = 'File has not been saved, save now?';
+
+procedure Teditor.DoSearchReplaceText(AReplace: boolean; ABackwards: boolean);
+var
+  Options: TSynSearchOptions;
+begin
+  Statusbar.SimpleText := '';
+  if AReplace then
+    Options := [ssoPrompt, ssoReplace, ssoReplaceAll]
+  else
+    Options := [];
+  if ABackwards then
+    Include(Options, ssoBackwards);
+  if gbSearchCaseSensitive then
+    Include(Options, ssoMatchCase);
+  if not fSearchFromCaret then
+    Include(Options, ssoEntireScope);
+  if gbSearchSelectionOnly then
+    Include(Options, ssoSelectedOnly);
+  if gbSearchWholeWords then
+    Include(Options, ssoWholeWord);
+  if gbSearchRegex then
+    ed.SearchEngine := SynEditRegexSearch
+  else
+    ed.SearchEngine := SynEditSearch;
+  if ed.SearchReplace(gsSearchText, gsReplaceText, Options) = 0 then
+  begin
+    MessageBeep(MB_ICONASTERISK);
+    Statusbar.SimpleText := STR_TEXT_NOTFOUND;
+    if ssoBackwards in Options then
+      ed.BlockEnd := ed.BlockBegin
+    else
+      ed.BlockBegin := ed.BlockEnd;
+    ed.CaretXY := ed.BlockBegin;
+  end;
+
+  if ConfirmReplaceDialog <> nil then
+    ConfirmReplaceDialog.Free;
+end;
+
+procedure Teditor.ShowSearchReplaceDialog(AReplace: boolean);
+var
+  dlg: TTextSearchDialog;
+begin
+  Statusbar.SimpleText := '';
+  if AReplace then
+    dlg := TTextReplaceDialog.Create(Self)
+  else
+    dlg := TTextSearchDialog.Create(Self);
+  with dlg do try
+    // assign search options
+    SearchBackwards := gbSearchBackwards;
+    SearchCaseSensitive := gbSearchCaseSensitive;
+    SearchFromCursor := gbSearchFromCaret;
+    SearchInSelectionOnly := gbSearchSelectionOnly;
+    // start with last search text
+    SearchText := gsSearchText;
+    if gbSearchTextAtCaret then begin
+      // if something is selected search for that text
+      if ed.SelAvail and (ed.BlockBegin.Line = ed.BlockEnd.Line) //Birb (fix at SynEdit's SearchReplaceDemo)
+      then
+        SearchText := ed.SelText
+      else
+        SearchText := ed.GetWordAtRowCol(ed.CaretXY);
+    end;
+    SearchTextHistory := gsSearchTextHistory;
+    if AReplace then with dlg as TTextReplaceDialog do begin
+      ReplaceText := gsReplaceText;
+      ReplaceTextHistory := gsReplaceTextHistory;
+    end;
+    SearchWholeWords := gbSearchWholeWords;
+    if ShowModal = mrOK then begin
+      gbSearchBackwards := SearchBackwards;
+      gbSearchCaseSensitive := SearchCaseSensitive;
+      gbSearchFromCaret := SearchFromCursor;
+      gbSearchSelectionOnly := SearchInSelectionOnly;
+      gbSearchWholeWords := SearchWholeWords;
+      gbSearchRegex := SearchRegularExpression;
+      gsSearchText := SearchText;
+      gsSearchTextHistory := SearchTextHistory;
+      if AReplace then with dlg as TTextReplaceDialog do begin
+        gsReplaceText := ReplaceText;
+        gsReplaceTextHistory := ReplaceTextHistory;
+      end;
+      fSearchFromCaret := gbSearchFromCaret;
+      if gsSearchText <> '' then begin
+        DoSearchReplaceText(AReplace, gbSearchBackwards);
+        fSearchFromCaret := TRUE;
+      end;
+    end;
+  finally
+    dlg.Free;
+  end;
+end;
+
+procedure Teditor.edSpecialLineColors(Sender: TObject; Line: Integer;
+  var Special: Boolean; var FG, BG: TColor);
+begin
+  if ce.HasBreakPoint(ce.MainFileName, Line) then
+  begin
+    Special := True;
+    if Line = FActiveLine then
+    begin
+      BG := clWhite;
+      FG := clRed;
+    end else
+    begin
+      FG := clWhite;
+      BG := clRed;
+    end;
+  end else
+  if Line = FActiveLine then
+  begin
+    Special := True;
+    FG := clWhite;
+    bg := clBlue;
+  end else Special := False;
+end;
+
+procedure Teditor.BreakPointMenuClick(Sender: TObject);
+var
+  Line: Longint;
+begin
+  Line := Ed.CaretY;
+  if ce.HasBreakPoint(ce.MainFileName, Line) then
+    ce.ClearBreakPoint(ce.MainFileName, Line)
+  else
+    ce.SetBreakPoint(ce.MainFileName, Line);
+  ed.Refresh;
+end;
+
+procedure Teditor.ceLineInfo(Sender: TObject; const FileName: String; Position, Row,
+  Col: Cardinal);
+begin
+  if (ce.Exec.DebugMode <> dmRun) and (ce.Exec.DebugMode <> dmStepOver) then
+  begin
+    FActiveLine := Row;
+    if (FActiveLine < ed.TopLine +2) or (FActiveLine > Ed.TopLine + Ed.LinesInWindow -2) then
+    begin
+      Ed.TopLine := FActiveLine - (Ed.LinesInWindow div 2);
+    end;
+    ed.CaretY := FActiveLine;
+    ed.CaretX := 1;
+
+    ed.Refresh;
+  end
+  else
+    Application.ProcessMessages;
+end;
+
+procedure Teditor.Exit1Click(Sender: TObject);
+begin
+  Reset1Click(nil); //terminate any running script
+  if SaveCheck then //check if script changed and not yet saved
+    Close;
+end;
+
+procedure Teditor.StepOver1Click(Sender: TObject);
+begin
+  if ce.Exec.Status in isRunningOrPaused then
+    ce.StepOver
+  else
+  begin
+    if Compile then
+    begin
+      ce.StepInto;
+      Execute;
+    end;
+  end;
+end;
+
+procedure Teditor.StepInto1Click(Sender: TObject);
+begin
+  if ce.Exec.Status in isRunningOrPaused then
+    ce.StepInto
+  else
+  begin
+    if Compile then
+    begin
+      ce.StepInto;
+      Execute;
+    end;
+  end;
+end;
+
+procedure Teditor.Pause1Click(Sender: TObject);
+begin
+ if ce.Exec.Status = isRunning then
+   begin
+   ce.Pause;
+   ce.StepInto;
+   end;
+end;
+
+procedure Teditor.Reset1Click(Sender: TObject);
+begin
+  if ce.Exec.Status in isRunningOrPaused then
+    ce.Stop;
+end;
+
+function Teditor.Compile: Boolean;
+var
+  i: Longint;
+begin
+  ce.Script.Assign(ed.Lines);
+  Result := ce.Compile;
+  messages.Clear;
+  for i := 0 to ce.CompilerMessageCount -1 do
+  begin
+    Messages.Items.Add(ce.CompilerMessages[i].MessageToString);
+  end;
+  if Result then
+    Messages.Items.Add(STR_SUCCESSFULLY_COMPILED);
+end;
+
+procedure Teditor.ceIdle(Sender: TObject);
+begin
+  Application.ProcessMessages; //Birb: don't use Application.HandleMessage here, else GUI will be unrensponsive if you have a tight loop and won't be able to use Run/Reset menu action
+  if FResume then
+  begin
+    FResume := False;
+    ce.Resume;
+    FActiveLine := 0;
+    ed.Refresh;
+  end;
+end;
+
+procedure Teditor.Run2Click(Sender: TObject);
+begin
+  if CE.Running then
+  begin
+    FResume := True
+  end else
+  begin
+    if Compile then
+      Execute;
+  end;
+end;
+
+procedure Teditor.ceExecute(Sender: TPSScript);
+begin
+  ce.SetVarToInstance('SELF', Self);
+  ce.SetVarToInstance('APPLICATION', Application);
+  Caption := STR_FORM_TITLE_RUNNING;
+end;
+
+procedure Teditor.ceAfterExecute(Sender: TPSScript);
+begin
+  Caption := STR_FORM_TITLE;
+  FActiveLine := 0;
+  ed.Refresh;
+end;
+
+function Teditor.Execute: Boolean;
+begin
+  debugoutput.Output.Clear;
+  if CE.Execute then
+  begin
+    Messages.Items.Add(STR_SUCCESSFULLY_EXECUTED);
+    Result := True; 
+  end else
+  begin
+    messages.Items.Add(Format(STR_RUNTIME_ERROR, [extractFileName(aFile), ce.ExecErrorRow,ce.ExecErrorCol,ce.ExecErrorProcNo,ce.ExecErrorByteCodePosition,ce.ExecErrorToString])); //Birb
+    Result := False;
+  end;
+end;
+
+procedure Teditor.Writeln(const s: string);
+begin
+  debugoutput.output.Lines.Add(S);
+  debugoutput.Visible := True;
+end;
+
+procedure Teditor.ceCompile(Sender: TPSScript);
+begin
+  Sender.AddMethod(Self, @TEditor.Writeln, 'procedure writeln(s: string)');
+  Sender.AddMethod(Self, @TEditor.Readln, 'procedure readln(var s: string)');
+  Sender.AddRegisteredVariable('Self', 'TForm');
+  Sender.AddRegisteredVariable('Application', 'TApplication');
+end;
+
+procedure Teditor.Readln(var s: string);
+begin
+  s := InputBox(STR_INPUTBOX_TITLE, '', '');
+end;
+
+procedure Teditor.New1Click(Sender: TObject);
+begin
+  if SaveCheck then //check if script changed and not yet saved
+  begin
+    ed.ClearAll;
+    ed.Lines.Text := STR_DEFAULT_PROGRAM;
+    ed.Modified := False;
+    aFile := '';
+  end;
+end;
+
+procedure Teditor.Open1Click(Sender: TObject);
+begin
+  if SaveCheck then //check if script changed and not yet saved
+  begin
+    if OpenDialog1.Execute then
+    begin
+      ed.ClearAll;
+      ed.Lines.LoadFromFile(OpenDialog1.FileName);
+      ed.Modified := False;
+      aFile := OpenDialog1.FileName;
+    end;
+  end;
+end;
+
+procedure Teditor.Save1Click(Sender: TObject);
+begin
+  if aFile <> '' then
+  begin
+    ed.Lines.SaveToFile(aFile);
+    ed.Modified := False;
+  end else
+    SaveAs1Click(nil);
+end;
+
+procedure Teditor.Saveas1Click(Sender: TObject);
+begin
+  if SaveDialog1.Execute then
+  begin
+    aFile := SaveDialog1.FileName;
+    ed.Lines.SaveToFile(aFile);
+    ed.Modified := False;
+  end;
+end;
+
+//check if script changed and not yet saved//
+function Teditor.SaveCheck: Boolean;
+begin
+  if ed.Modified then
+  begin
+    case MessageDlg(STR_NOTSAVED, mtConfirmation, mbYesNoCancel, 0) of
+      idYes:
+        begin
+          Save1Click(nil);
+          Result := aFile <> '';
+        end;
+      IDNO: Result := True;
+      else
+        Result := False;
+    end;
+  end else Result := True;
+end;
+
+procedure Teditor.edStatusChange(Sender: TObject;
+  Changes: TSynStatusChanges);
+begin
+  StatusBar.Panels[0].Text := IntToStr(ed.CaretY)+':'+IntToStr(ed.CaretX)
+end;
+
+procedure Teditor.Decompile1Click(Sender: TObject);
+var
+  s: string;
+begin
+  if Compile then
+  begin
+    ce.GetCompiled(s);
+    IFPS3DataToText(s, s);
+    debugoutput.output.Lines.Text := s;
+    debugoutput.visible := true;
+  end;
+end;
+
+function Teditor.ceNeedFile(Sender: TObject; const OrginFileName: String;
+  var FileName, Output: String): Boolean;
+var
+  path: string;
+  f: TFileStream;
+begin
+  if aFile <> '' then
+    Path := ExtractFilePath(aFile)
+  else
+    Path := ExtractFilePath(ParamStr(0));
+  Path := Path + FileName;
+  try
+    F := TFileStream.Create(Path, fmOpenRead or fmShareDenyWrite);
+  except
+    Result := false;
+    exit;
+  end;
+  try
+    SetLength(Output, f.Size);
+    f.Read(Output[1], Length(Output));
+  finally
+    f.Free;
+  end;
+  Result := True;
+end;
+
+procedure Teditor.ceBreakpoint(Sender: TObject; const FileName: String; Position, Row,
+  Col: Cardinal);
+begin
+  FActiveLine := Row;
+  if (FActiveLine < ed.TopLine +2) or (FActiveLine > Ed.TopLine + Ed.LinesInWindow -2) then
+  begin
+    Ed.TopLine := FActiveLine - (Ed.LinesInWindow div 2);
+  end;
+  ed.CaretY := FActiveLine;
+  ed.CaretX := 1;
+
+  ed.Refresh;
+end;
+
+procedure Teditor.SetActiveFile(const Value: string);
+begin
+  FActiveFile := Value;
+  ce.MainFileName := ExtractFileName(FActiveFile);
+  if Ce.MainFileName = '' then
+    Ce.MainFileName := STR_UNNAMED;
+end;
+
+function GetErrorRowCol(const inStr: string): TBufferCoord;
+var
+  Row:string;
+  Col:string;
+  p1,p2,p3:integer;
+begin
+  p1:=Pos('(',inStr);
+  p2:=Pos(':',inStr);
+  p3:=Pos(')',inStr);
+  if (p1>0) and (p2>p1) and (p3>p2) then
+  begin
+    Row := Copy(inStr, p1+1,p2-p1-1);
+    Col := Copy(inStr, p2+1,p3-p2-1);
+    Result.Char := StrToInt(Trim(Col));
+    Result.Line := StrToInt(Trim(Row));
+  end
+  else
+  begin
+    Result.Char := 1;
+    Result.Line := 1;
+  end
+end;
+
+procedure Teditor.messagesDblClick(Sender: TObject);
+begin
+  //if Copy(messages.Items[messages.ItemIndex],1,7)= '[Error]' then
+  //begin
+    ed.CaretXY := GetErrorRowCol(messages.Items[messages.ItemIndex]);
+    ed.SetFocus;
+  //end;
+end;
+
+procedure Teditor.Gotolinenumber1Click(Sender: TObject);
+begin
+  with TfrmGotoLine.Create(self) do
+  try
+    Char := ed.CaretX;
+    Line := ed.CaretY;
+    ShowModal;
+    if ModalResult = mrOK then
+      ed.CaretXY := CaretXY;
+  finally
+    Free;
+    ed.SetFocus;
+  end;
+end;
+
+procedure Teditor.Find1Click(Sender: TObject);
+begin
+  ShowSearchReplaceDialog(FALSE);
+end;
+
+procedure Teditor.Searchagain1Click(Sender: TObject);
+begin
+  DoSearchReplaceText(FALSE, FALSE);
+end;
+
+procedure Teditor.Replace1Click(Sender: TObject);
+begin
+  ShowSearchReplaceDialog(TRUE);
+end;
+
+procedure Teditor.Syntaxcheck1Click(Sender: TObject);
+begin
+ Compile;
+end;
+
+procedure Teditor.edDropFiles(Sender: TObject; X, Y: Integer;
+  AFiles: TStrings);
+begin
+ if AFiles.Count>=1 then
+  if SaveCheck then //check if script changed and not yet saved
+  begin
+    ed.ClearAll;
+    ed.Lines.LoadFromFile(AFiles[0]);
+    ed.Modified := False;
+    aFile := AFiles[0];
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/readme.txt b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/readme.txt
new file mode 100644
index 0000000..e4a5045
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Debug/readme.txt	
@@ -0,0 +1 @@
+This demo requires SynEdit (http://synedit.sf.net) to compile.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/Import.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/Import.dpr
new file mode 100644
index 0000000..f85d43c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/Import.dpr	
@@ -0,0 +1,17 @@
+program Import;
+
+uses
+  Forms,
+  fMain in 'fMain.pas' {MainForm},
+  fDwin in 'fDwin.pas' {dwin};
+
+{$R *.RES}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Import Sample';
+  Application.CreateForm(TMainForm, MainForm);
+  Application.CreateForm(Tdwin, dwin);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/Import.res b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/Import.res
new file mode 100644
index 0000000..ae41a2e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/Import.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/arraytest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/arraytest.rops
new file mode 100644
index 0000000..667646e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/arraytest.rops	
@@ -0,0 +1,22 @@
+Program IFSTest;
+type
+  TArrayOfByte = array of byte;
+
+procedure Test(x: TARrayOfByte);
+var
+  i: Integer;
+begin
+  for i := 0 to Getarraylength(X) -1 do
+  begin
+     writeln(inttostr(x[i]));
+  end;
+end;
+var
+  temp: TArrayOfByte;
+
+Begin
+  setarraylength(temp, 2);
+  temp[0] := 1;
+  temp[1] :=23;
+  test(temp);
+End.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/booleantest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/booleantest.rops
new file mode 100644
index 0000000..f09d50b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/booleantest.rops	
@@ -0,0 +1,15 @@
+Program IFSTest;
+var
+  x1, x2: integer;
+  b: boolean;
+Begin
+  x1 := 2;
+  x2 := 2;
+  b := x1 = x2;
+  if b then begin writeln('true'); end else begin writeln('false');end;
+  x1 := 2;
+  x2 := 4;
+  b := x1 = x2;
+  if b then begin writeln('true'); end else begin writeln('false');end;
+  writeln('done');
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/bytearray.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/bytearray.rops
new file mode 100644
index 0000000..a970225
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/bytearray.rops	
@@ -0,0 +1,14 @@
+Program IFSTest;
+type
+  TByteArray = array of byte;
+var
+  x: TByteARray;
+Begin
+  try
+    x[0] := 1;
+   // will cause an runtime error (Out Of Record Fields Range)
+    writeln('Not supposed to be here');
+  except
+     Writeln('Error, which is ok since we accessed a field outside it''s bounds');
+  end;
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/casetest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/casetest.rops
new file mode 100644
index 0000000..b45c335
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/casetest.rops	
@@ -0,0 +1,12 @@
+Program IFSTest;
+var
+  b: Byte;
+Begin
+  for b := 0 to 2 do begin
+  case b of 
+    0: writeln('0');
+    1: writeln('1');
+    else writeln('>1');
+  end;
+  end;
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/dlltest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/dlltest.rops
new file mode 100644
index 0000000..c2bd052
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/dlltest.rops	
@@ -0,0 +1,19 @@
+Program IFSTest;
+// compile the demo application, minimize delphi and run this. 
+function FindWindow(C1, C2: PChar): Longint; external 'FindWindowA@user32.dll stdcall';
+function ShowWindow(hWnd, nCmdShow: Longint): Integer; external 'ShowWindow@user32.dll stdcall';
+function SetWindowText(hWnd: Longint; Text: PChar): Longint; external 'SetWindowTextA@user32.dll stdcall';
+var 
+  i: Longint;
+  wnd: Longint;
+Begin
+  wnd := Findwindow('', 'Innerfuse Pascal Script III');
+  SetWindowText(Wnd, 'This is DLL demo, it calls some windows user32 routines. This will hide this window for a few seconds');
+  for i := 0 to 200000 do begin end;
+  ShowWindow(Wnd, 0); // hide it
+  for i := 0 to 200000 do begin end;
+  SetWindowText(Wnd, 'Wasn''t that nice?');
+  ShowWindow(Wnd, 5); // show it
+  for i := 0 to 200000 do begin end;
+  SetWindowText(Wnd, 'Innerfuse Pascal Script III');
+End.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/exittest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/exittest.rops
new file mode 100644
index 0000000..682b825
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/exittest.rops	
@@ -0,0 +1,14 @@
+Program IFSTest;
+procedure test;
+begin
+  writeln('1');
+  exit;
+  writeln('2');
+end;
+Begin
+  test;
+  writeln('3');
+  exit;
+  writeln('4');
+  
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fDwin.dfm b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fDwin.dfm
new file mode 100644
index 0000000..a19cf54
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fDwin.dfm differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fDwin.pas b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fDwin.pas
new file mode 100644
index 0000000..1f20539
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fDwin.pas	
@@ -0,0 +1,27 @@
+unit fDwin;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  ExtCtrls, StdCtrls;
+
+type
+  Tdwin = class(TForm)
+    Memo1: TMemo;
+    Panel1: TPanel;
+    Button1: TButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  dwin: Tdwin;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fMain.dfm
new file mode 100644
index 0000000..fa64adc
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fMain.dfm differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fMain.pas
new file mode 100644
index 0000000..3933148
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fMain.pas	
@@ -0,0 +1,472 @@
+unit fMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  ExtCtrls, StdCtrls, uPSCompiler, uPSRuntime, uPSPreprocessor, uPSUtils,
+  Menus, uPSC_comobj, uPSR_comobj;
+
+type
+  TMainForm = class(TForm)
+    Memo1: TMemo;
+    Memo2: TMemo;
+    Splitter1: TSplitter;
+    MainMenu1: TMainMenu;
+    Toosl1: TMenuItem;
+    Compile1: TMenuItem;
+    CompilewithTimer1: TMenuItem;
+    File1: TMenuItem;
+    Exit1: TMenuItem;
+    N1: TMenuItem;
+    SaveAs1: TMenuItem;
+    Save1: TMenuItem;
+    Open1: TMenuItem;
+    New1: TMenuItem;
+    OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
+    N2: TMenuItem;
+    Stop1: TMenuItem;
+    N3: TMenuItem;
+    CompileandDisassemble1: TMenuItem;
+    procedure Compile1Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure Exit1Click(Sender: TObject);
+    procedure New1Click(Sender: TObject);
+    procedure Open1Click(Sender: TObject);
+    procedure Save1Click(Sender: TObject);
+    procedure SaveAs1Click(Sender: TObject);
+    procedure Memo1Change(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure Stop1Click(Sender: TObject);
+    procedure CompileandDisassemble1Click(Sender: TObject);
+    procedure CompilewithTimer1Click(Sender: TObject);
+  private
+    fn: string;
+    changed: Boolean;
+    function SaveTest: Boolean;
+  public
+    { Public declarations }
+  end;
+
+var
+  MainForm: TMainForm;
+
+implementation
+
+uses
+  uPSDisassembly, uPSC_dll, uPSR_dll, uPSDebugger,
+  uPSR_std, uPSC_std, uPSR_stdctrls, uPSC_stdctrls,
+  uPSR_forms, uPSC_forms,
+
+  uPSC_graphics,
+  uPSC_controls,
+  uPSC_classes,
+  uPSR_graphics,
+  uPSR_controls,
+  uPSR_classes,
+  fDwin;
+
+{$R *.DFM}
+
+var
+  Imp: TPSRuntimeClassImporter;
+
+function StringLoadFile(const Filename: string): string;
+var
+  Stream: TStream;
+begin
+  Stream := TFileStream.Create(Filename, fmOpenread or fmSharedenywrite);
+  try
+    SetLength(Result, Stream.Size);
+    Stream.Read(Result[1], Length(Result));
+  finally
+    Stream.Free;
+  end;
+end;
+
+function OnNeedFile(Sender: TPSPreProcessor; const callingfilename: AnsiString; var FileName, Output: AnsiString): Boolean;
+var
+  s: string;
+begin
+  s := ExtractFilePath(callingfilename);
+  if s = '' then s := ExtractFilePath(Paramstr(0));
+  Filename := s + Filename;
+  if FileExists(Filename) then
+  begin
+    Output := StringLoadFile(Filename);
+    Result := True;
+  end else
+    Result := False;
+end;
+
+function MyOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
+begin
+  if Name = 'SYSTEM' then
+  begin
+    TPSPascalCompiler(Sender).AddFunction('procedure Writeln(s: string);');
+    TPSPascalCompiler(Sender).AddFunction('function Readln(question: string): string;');
+    Sender.AddDelphiFunction('function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;');
+
+    Sender.AddConstantN('NaN', 'extended').Value.textended := 0.0 / 0.0;
+    Sender.AddConstantN('Infinity', 'extended').Value.textended := 1.0 / 0.0;
+    Sender.AddConstantN('NegInfinity', 'extended').Value.textended := - 1.0 / 0.0;
+
+    SIRegister_Std(Sender);
+    SIRegister_Classes(Sender, True);
+    SIRegister_Graphics(Sender, True);
+    SIRegister_Controls(Sender);
+    SIRegister_stdctrls(Sender);
+    SIRegister_Forms(Sender);
+    SIRegister_ComObj(Sender);
+
+    AddImportedClassVariable(Sender, 'Memo1', 'TMemo');
+    AddImportedClassVariable(Sender, 'Memo2', 'TMemo');
+    AddImportedClassVariable(Sender, 'Self', 'TForm');
+    AddImportedClassVariable(Sender, 'Application', 'TApplication');
+
+    Result := True;
+  end
+  else
+  begin
+    TPSPascalCompiler(Sender).MakeError('', ecUnknownIdentifier, '');
+    Result := False;
+  end;
+end;
+
+function MyWriteln(Caller: TPSExec; p: TIFExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  PStart: Cardinal;
+begin
+  if Global = nil then begin result := false; exit; end;
+  PStart := Stack.Count - 1;
+  MainForm.Memo2.Lines.Add(Stack.GetString(PStart));
+  Result := True;
+end;
+
+function MyReadln(Caller: TPSExec; p: TIFExternalProcRec; Global, Stack: TPSStack): Boolean;
+var
+  PStart: Cardinal;
+begin
+  if Global = nil then begin result := false; exit; end;
+  PStart := Stack.Count - 2;
+  Stack.SetString(PStart + 1, InputBox(MainForm.Caption, Stack.GetString(PStart), ''));
+  Result := True;
+end;
+
+function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;
+begin
+  Result := s1 + ' ' + IntToStr(s2) + ' ' + IntToStr(s3) + ' ' + IntToStr(s4) + ' - OK!';
+  S5 := s5 + ' '+ result + ' -   OK2!';
+end;
+
+var
+  IgnoreRunline: Boolean = False;
+  I: Integer;
+
+procedure RunLine(Sender: TPSExec);
+begin
+  if IgnoreRunline then Exit;
+  i := (i + 1) mod 15;
+  Sender.GetVar('');
+  if i = 0 then Application.ProcessMessages;
+end;
+
+function MyExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: AnsiString): Boolean;
+begin
+  Result := True;
+end;
+
+
+procedure TMainForm.Compile1Click(Sender: TObject);
+var
+  x1: TPSPascalCompiler;
+  x2: TPSDebugExec;
+  xpre: TPSPreProcessor;
+  s, d: AnsiString;
+
+  procedure Outputtxt(const s: string);
+  begin
+    Memo2.Lines.Add(s);
+  end;
+
+  procedure OutputMsgs;
+  var
+    l: Longint;
+    b: Boolean;
+  begin
+    b := False;
+    for l := 0 to x1.MsgCount - 1 do
+    begin
+      Outputtxt(x1.Msg[l].MessageToString);
+      if (not b) and (x1.Msg[l] is TPSPascalCompilerError) then
+      begin
+        b := True;
+        Memo1.SelStart := X1.Msg[l].Pos;
+      end;
+    end;
+  end;
+begin
+  if tag <> 0 then exit;
+  Memo2.Clear;
+  xpre := TPSPreProcessor.Create;
+  try
+    xpre.OnNeedFile := OnNeedFile;
+    xpre.MainFileName := fn;
+    xpre.MainFile := Memo1.Text;
+    xpre.PreProcess(xpre.MainFileName, s);
+
+    x1 := TPSPascalCompiler.Create;
+    x1.OnExportCheck := MyExportCheck;
+    x1.OnUses := MyOnUses;
+    x1.OnExternalProc := DllExternalProc;
+    if x1.Compile(s) then
+    begin
+      Outputtxt('Succesfully compiled');
+      xpre.AdjustMessages(x1);
+      OutputMsgs;
+      if not x1.GetOutput(s) then
+      begin
+        x1.Free;
+        Outputtxt('[Error] : Could not get data');
+        exit;
+      end;
+      x1.GetDebugOutput(d);
+      x1.Free;
+      x2 := TPSDebugExec.Create;
+      try
+        RegisterDLLRuntime(x2);
+        RegisterClassLibraryRuntime(x2, Imp);
+        RIRegister_ComObj(x2);
+
+        tag := longint(x2);
+        if sender <> nil then
+          x2.OnRunLine := RunLine;
+        x2.RegisterFunctionName('WRITELN', MyWriteln, nil, nil);
+        x2.RegisterFunctionName('READLN', MyReadln, nil, nil);
+        x2.RegisterDelphiFunction(@ImportTest, 'IMPORTTEST', cdRegister);
+        if not x2.LoadData(s) then
+        begin
+          Outputtxt('[Error] : Could not load data: '+TIFErrorToString(x2.ExceptionCode, x2.ExceptionString));
+          tag := 0;
+          exit;
+        end;
+        x2.LoadDebugData(d);
+        SetVariantToClass(x2.GetVarNo(x2.GetVar('MEMO1')), Memo1);
+        SetVariantToClass(x2.GetVarNo(x2.GetVar('MEMO2')), Memo2);
+        SetVariantToClass(x2.GetVarNo(x2.GetVar('SELF')), Self);
+        SetVariantToClass(x2.GetVarNo(x2.GetVar('APPLICATION')), Application);
+
+        x2.RunScript;
+        if x2.ExceptionCode <> erNoError then
+          Outputtxt('[Runtime Error] : ' + TIFErrorToString(x2.ExceptionCode, x2.ExceptionString) +
+            ' in ' + IntToStr(x2.ExceptionProcNo) + ' at ' + IntToSTr(x2.ExceptionPos))
+        else
+          OutputTxt('Successfully executed');
+      finally
+        tag := 0;
+        x2.Free;
+      end;
+    end
+    else
+    begin
+      Outputtxt('Failed when compiling');
+      xpre.AdjustMessages(x1);
+      OutputMsgs;
+      x1.Free;
+    end;
+  finally
+    Xpre.Free;
+  end;
+end;
+
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+  Caption := 'RemObjects Pascal Script';
+  fn := '';
+  changed := False;
+  Memo1.Lines.Text := 'Program Test;'#13#10'Begin'#13#10'End.';
+end;
+
+procedure TMainForm.Exit1Click(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TMainForm.New1Click(Sender: TObject);
+begin
+  if not SaveTest then
+    exit;
+  Memo1.Lines.Text := 'Program Test;'#13#10'Begin'#13#10'End.';
+  Memo2.Lines.Clear;
+  fn := '';
+end;
+
+function TMainForm.SaveTest: Boolean;
+begin
+  if changed then
+  begin
+    case MessageDlg('File is not saved, save now?', mtWarning, mbYesNoCancel, 0) of
+      mrYes:
+        begin
+          Save1Click(nil);
+          Result := not changed;
+        end;
+      mrNo: Result := True;
+    else
+      Result := False;
+    end;
+  end
+  else
+    Result := True;
+end;
+
+procedure TMainForm.Open1Click(Sender: TObject);
+begin
+  if not SaveTest then
+    exit;
+  if OpenDialog1.Execute then
+  begin
+    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
+    changed := False;
+    Memo2.Lines.Clear;
+    fn := OpenDialog1.FileName;
+  end;
+end;
+
+procedure TMainForm.Save1Click(Sender: TObject);
+begin
+  if fn = '' then
+  begin
+    Saveas1Click(nil);
+  end
+  else
+  begin
+    Memo1.Lines.SaveToFile(fn);
+    changed := False;
+  end;
+end;
+
+procedure TMainForm.SaveAs1Click(Sender: TObject);
+begin
+  SaveDialog1.FileName := '';
+  if SaveDialog1.Execute then
+  begin
+    fn := SaveDialog1.FileName;
+    Memo1.Lines.SaveToFile(fn);
+    changed := False;
+  end;
+end;
+
+procedure TMainForm.Memo1Change(Sender: TObject);
+begin
+  changed := True;
+end;
+
+procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+  CanClose := SaveTest;
+end;
+
+procedure TMainForm.Stop1Click(Sender: TObject);
+begin
+  if tag <> 0 then
+    TPSExec(tag).Stop;
+end;
+
+procedure TMainForm.CompileandDisassemble1Click(Sender: TObject);
+var
+  x1: TPSPascalCompiler;
+  xpre: TPSPreProcessor;
+  s: AnsiString;
+  s2: string;
+
+  procedure OutputMsgs;
+  var
+    l: Integer;
+    b: Boolean;
+  begin
+    b := False;
+    for l := 0 to x1.MsgCount - 1 do
+    begin
+      Memo2.Lines.Add(x1.Msg[l].MessageToString);
+      if (not b) and (x1.Msg[l] is TPSPascalCompilerError) then
+      begin
+        b := True;
+        Memo1.SelStart := X1.Msg[l].Pos;
+      end;
+    end;
+  end;
+begin
+  if tag <> 0 then exit;
+  Memo2.Clear;
+  xpre := TPSPreProcessor.Create;
+  try
+    xpre.OnNeedFile := OnNeedFile;
+    xpre.MainFileName := fn;
+    xpre.MainFile := Memo1.Text;
+    xpre.PreProcess(xpre.MainFileName, s);
+    x1 := TPSPascalCompiler.Create;
+    x1.OnExternalProc := DllExternalProc;
+    x1.OnUses := MyOnUses;
+    if x1.Compile(s) then
+    begin
+      Memo2.Lines.Add('Succesfully compiled');
+      xpre.AdjustMessages(x1);
+      OutputMsgs;
+      if not x1.GetOutput(s) then
+      begin
+        x1.Free;
+        Memo2.Lines.Add('[Error] : Could not get data');
+        exit;
+      end;
+      x1.Free;
+      IFPS3DataToText(s, s2);
+      dwin.Memo1.Text := s2;
+      dwin.showmodal;
+    end
+    else
+    begin
+      Memo2.Lines.Add('Failed when compiling');
+      xpre.AdjustMessages(x1);
+      OutputMsgs;
+      x1.Free;
+    end;
+  finally
+    xPre.Free;
+  end;
+end;
+
+
+procedure TMainForm.CompilewithTimer1Click(Sender: TObject);
+var
+  Freq, Time1, Time2: Comp;
+begin
+  if not QueryPerformanceFrequency(TLargeInteger((@Freq)^)) then
+  begin
+    ShowMessage('Your computer does not support Performance Timers!');
+    exit;
+  end;
+  QueryPerformanceCounter(TLargeInteger((@Time1)^));
+  IgnoreRunline := True;
+  try
+    Compile1Click(nil);
+  except
+  end;
+  IgnoreRunline := False;
+  QueryPerformanceCounter(TLargeInteger((@Time2)^));
+  Memo2.Lines.Add('Time: ' + Sysutils.FloatToStr((Time2 - Time1) / Freq) +
+    ' sec');
+end;
+
+initialization
+  Imp := TPSRuntimeClassImporter.Create;
+  RIRegister_Std(Imp);
+  RIRegister_Classes(Imp, True);
+  RIRegister_Graphics(Imp, True);
+  RIRegister_Controls(Imp);
+  RIRegister_stdctrls(imp);
+  RIRegister_Forms(Imp);
+finalization
+  Imp.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fortest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fortest.rops
new file mode 100644
index 0000000..5695ff5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/fortest.rops	
@@ -0,0 +1,9 @@
+Program IFSTest;
+var
+  i: Longint;
+Begin
+  for i := 0 to 9 do 
+  begin
+    writeln('hello'+inttostr(i));
+  end;
+End.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/if.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/if.rops
new file mode 100644
index 0000000..0db351c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/if.rops	
@@ -0,0 +1,9 @@
+Program IFSTest;
+var
+  a: boolean;
+Begin
+  a := true;
+  if a then begin ;end else
+  if a then begin ;end else;
+  writeln('5');
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/iformtest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/iformtest.rops
new file mode 100644
index 0000000..e8e14ba
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/iformtest.rops	
@@ -0,0 +1,104 @@
+Program IFSTest;
+var
+  F, Form: TForm;
+  Labl: TLabel;
+  Button: TButton;
+  Edit: TEdit;
+  Memo: TMemo;
+  Stop: Boolean;
+procedure MyOnCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+  CanClose := Stop;
+end;
+procedure c2(sender: TObject);
+begin
+  f.Close;
+end;
+
+procedure buttonclick(sender: TObject);
+var
+  l: TLabel;
+  b: TButton;
+begin
+  if Length(Edit.Text) < 5 then 
+  begin
+    f := TForm.Create(self);
+    f.Width := 100;
+    f.Height := 100;
+    f.Position := poScreenCenter;
+    f.BorderStyle := bsDialog;
+    f.Caption := 'Error';
+    l := TLabel.Create(F);
+    l.parent := f;
+    l.Left := 10;
+    l.Top := 10;
+    l.Width := 100;
+    l.Height := 50;
+    l.Caption := 'Invalid name';
+    b := TButton.Create(f);
+    b.parent := f;
+    b.Left:=10;
+    b.Top := 40;
+    b.Caption := 'OK';
+    b.Default := True;
+    b.Cancel := True;
+    b.OnClick := @C2;
+    f.Visible := True;
+    form.Visible := False;
+    while f.Visible do
+     begin
+       Application.HandleMessage;
+     end;
+      Form.Visible := True;
+  end else begin
+    writeln('debug:'+Edit.Text);
+    Stop := True;
+    Form.Close;
+  end;
+end;
+Begin
+  Form := TForm.Create(self);
+  Form.Width := 400;
+  Form.Height := 300;
+  Form.BorderStyle := bsDialog;
+  Form.BorderIcons := [];
+  Form.OnCloseQuery := @MyOnCloseQuery;
+  Form.Caption := 'Name';
+  Form.Position := poScreenCenter;
+  Labl := TLabel.Create(Form);
+  Labl.Top := 120;
+  Labl.Left := 160;
+  Labl.Caption := 'Please type in your name:';
+  Labl.Parent := Form;
+  Edit := TEdit.Create(Form);
+  Edit.Font.Name := 'Tahoma';
+  Edit.SetBounds(160,160,80,24);
+  Edit.Parent := Form;
+  Button := TButton.Create(Form);
+  Button.Left := 160;
+  Button.Top := 200;
+  Button.Width := 80;
+  Button.Height := 24;
+  Button.Caption := '&OK';
+  Button.OnClick := @buttonclick;
+  Button.Parent := Form;
+  Button.Default := True;
+  Memo := TMemo.Create(Form);
+  Memo.Left := 10;
+  Memo.Width := 380; 
+  Memo.Top := 10;
+  Memo.Height := 100;
+  Memo.Text := 'Welcome to Form Test.'#13#10#13#10'Type here your name (min 5 letters).  You can''t exit this demo without it.';
+  Memo.Color := 0;
+  Memo.Font.Color := $FFFFFF;
+  Memo.Parent := Form;
+  Memo.Readonly := True;
+  Form.Visible := true;
+  stop := false;
+  while Form.Visible  do
+  begin
+    Application.HandleMessage;
+  end;
+  Button.Free;
+  Form.Free;
+End.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/importtest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/importtest.rops
new file mode 100644
index 0000000..7564c50
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/importtest.rops	
@@ -0,0 +1,16 @@
+Program IFSTest;
+var
+  a,b :string;
+Begin
+  a := 'test: ';
+  b := ImportTest('1', 2, 3, 4, a);
+  writeln(b);
+  writeln(a);
+{ 
+Output should be:
+
+1 2 3 4 - OK!
+1 2 3 4 - OK! -  OK2!
+
+}
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/longfortest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/longfortest.rops
new file mode 100644
index 0000000..94eece2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/longfortest.rops	
@@ -0,0 +1,10 @@
+Program IFSTest;
+var
+  i, i2: Longint;
+Begin
+  for i := 0 to 1000000 do
+  begin
+    i2 := i -1;
+  end;
+  writeln(inttostr(i2));
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/rectest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/rectest.rops
new file mode 100644
index 0000000..79efab7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/rectest.rops	
@@ -0,0 +1,11 @@
+Program IFSTest;
+type
+  TMyRec = record a: Integer; b: string; end;
+var
+  s: TMyRec;
+Begin
+  s.a := 1234;
+  s.b := 'abc';
+  writeln(s.b);
+  writeln(inttostr(s.a));
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/stringtest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/stringtest.rops
new file mode 100644
index 0000000..76b4372
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/stringtest.rops	
@@ -0,0 +1,8 @@
+Program test;
+var s: string;
+begin
+s:='123456789';
+s[1]:=s[2];
+writeln(s);
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t1.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t1.rops
new file mode 100644
index 0000000..07a4d54
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t1.rops	
@@ -0,0 +1,6 @@
+Program test;
+var
+  i: Longint;
+begin
+  writeln('Really simple test');
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t10.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t10.rops
new file mode 100644
index 0000000..403890a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t10.rops	
@@ -0,0 +1,12 @@
+Program test;
+begin
+  writeln('1');
+  try
+    writeln('2');
+    raiseexception(erCustomError, 'TEST EXCEPTION');
+    writeln('3');
+  finally
+    writeln('4');
+  end;
+  writeln('5');
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t11.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t11.rops
new file mode 100644
index 0000000..fd3b929
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t11.rops	
@@ -0,0 +1,57 @@
+Program IFSTest;
+var
+  F, Form: TForm;
+  i: Longint;
+  Labl: TLabel;
+  Button: TButton;
+  Edit: TEdit;
+  Memo: TMemo;
+  Stop: Boolean;
+  
+Begin
+  Form := TForm.Create(self);
+  Form.Width := 400;
+  Form.Height := 300;
+  Form.BorderStyle := bsDialog;
+  Form.BorderIcons := [];
+  Form.Caption := 'Name';
+  Form.Position := poScreenCenter;
+  Labl := TLabel.Create(Form);
+  Labl.Top := 120;
+  Labl.Left := 160;
+  Labl.Caption := 'Please type in your name:';
+  Labl.Parent := Form;
+  Edit := TEdit.Create(Form);
+  Edit.Font.Name := 'Tahoma';
+  Edit.SetBounds(160,160,80,24);
+  Edit.Parent := Form;
+  Button := TButton.Create(Form);
+  Button.Left := 160;
+  Button.Top := 200;
+  Button.Width := 80;
+  Button.Height := 24;
+  Button.Caption := '&OK';
+  Button.Parent := Form;
+  Button.Default := True;
+  Memo := TMemo.Create(Form);
+  Memo.Left := 10;
+  Memo.Width := 380; 
+  Memo.Top := 10;
+  Memo.Height := 100;
+  Memo.Text := 'Welcome to Form Test.'#13#10#13#10'Plase wait till the loop is over.';
+  Memo.Color := 0;
+  Memo.Font.Color := $FFFFFF;
+  Memo.Parent := Form;
+  Memo.Readonly := True;
+  Form.Visible := true;
+  Form.Refresh;
+  stop := false;
+  while Form.Visible  do
+  begin
+    Application.ProcessMessages;
+    i := i + 1;
+    if i > 100000 then Break;
+  end;
+  Button.Free;
+  Form.Free;
+End.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t2.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t2.rops
new file mode 100644
index 0000000..7904b33
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t2.rops	
@@ -0,0 +1,6 @@
+Program test;
+var
+  i: Longint;
+begin
+  for i := 0 to 100000 do ;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t3.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t3.rops
new file mode 100644
index 0000000..2819850
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t3.rops	
@@ -0,0 +1,4 @@
+Program test;
+begin
+  writeln('test');
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t4.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t4.rops
new file mode 100644
index 0000000..f622aa5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t4.rops	
@@ -0,0 +1,8 @@
+Program test;
+var
+  s: string;
+begin
+  s := 'test';
+  s := s + 'TESTED';
+  writeln(s);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t5.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t5.rops
new file mode 100644
index 0000000..a3ddab9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t5.rops	
@@ -0,0 +1,9 @@
+Program test;
+var
+  s: string;
+begin
+  Writeln('Your name?');
+  s := readln(s);
+  s := s + 'TESTED';
+  writeln(s);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t6.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t6.rops
new file mode 100644
index 0000000..17617c1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t6.rops	
@@ -0,0 +1,22 @@
+Program IFSTest;
+type
+   TArrayOfByte = array of byte;
+
+procedure Test(x: TARrayOfByte);
+var
+  i: Integer;
+begin
+  for i := 0 to Getarraylength(X) -1 do
+  begin
+     writeln(inttostr(x[i]));
+  end;
+end;
+var
+  temp: TArrayOfByte;
+
+Begin
+  setarraylength(temp, 2);
+  temp[0] := 1;
+  temp[1] :=23;
+  test(temp);
+End.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t7.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t7.rops
new file mode 100644
index 0000000..5f54b91
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t7.rops	
@@ -0,0 +1,7 @@
+Program test;
+var
+  r: TObject;
+begin
+  r := TObject.Create;
+  r.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t8.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t8.rops
new file mode 100644
index 0000000..2d6e691
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t8.rops	
@@ -0,0 +1,16 @@
+Program test;
+var
+  r: TObject;
+begin
+  if r = nil then Writeln('(r = nil) = true') else Writeln('(r = nil) = false');
+  if r <> nil then Writeln('(r <> nil) = true') else Writeln('(r <> nil) = false');
+  r := TObject.Create;
+  if r = nil then Writeln('(r = nil) = true') else Writeln('(r = nil) = false');
+  if r <> nil then Writeln('(r <> nil) = true') else Writeln('(r <> nil) = false');
+  r.Free;
+  if r = nil then Writeln('(r = nil) = true') else Writeln('(r = nil) = false');
+  if r <> nil then Writeln('(r <> nil) = true') else Writeln('(r <> nil) = false');
+  r := nil;
+  if r = nil then Writeln('(r = nil) = true') else Writeln('(r = nil) = false');
+  if r <> nil then Writeln('(r <> nil) = true') else Writeln('(r <> nil) = false');
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t9.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t9.rops
new file mode 100644
index 0000000..c4e54ce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/t9.rops	
@@ -0,0 +1,16 @@
+Program test;
+var
+  t: TObject;
+  i: IUnknown;
+begin
+  t := TObject.Create;
+  try
+    try
+      i := t;
+    except
+      writeln('Expected Exception: Interface not supported');
+    end;
+  finally
+    t.Free;
+  end;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/testdefine.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/testdefine.rops
new file mode 100644
index 0000000..718bd69
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/testdefine.rops	
@@ -0,0 +1,10 @@
+{.$DEFINE ERROR} 
+
+// Remove the . before the define to 
+// cause an error in textinclude.rops
+
+{$I testinclude.rops}
+begin
+  testproc();
+  writeln('test');
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/testinclude.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/testinclude.rops
new file mode 100644
index 0000000..c9ae677
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/testinclude.rops	
@@ -0,0 +1,12 @@
+{
+  This file is part of a DEFINE / INCLUDE test. Use 
+  testdefine.rops file to execute this file.
+}
+
+procedure TestProc;
+begin
+  Writeln('Test Proc Called');
+  {$IFDEF ERROR}
+  Error!
+  {$ENDIF}
+end;
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/vartype.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/vartype.rops
new file mode 100644
index 0000000..89f21a9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/vartype.rops	
@@ -0,0 +1,14 @@
+Program IFSTest;
+var
+  e: variant;
+Begin
+  e := null;
+  case VarType(e) of
+varempty :writeln('unassigned');
+varNull: Writeln('null');
+varstring: Writeln('String');
+  varInteger : writeln('VarInteger');
+varSingle: Writeln('Single');
+varDouble: Writeln('Double');
+  end;
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/wordole.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/wordole.rops
new file mode 100644
index 0000000..9c8612d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Import/wordole.rops	
@@ -0,0 +1,7 @@
+Program test;
+var
+  WordDoc: Variant;
+begin
+  WordDoc := CreateOleObject('Word.Application');
+  WordDoc.Visible := True;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/Import.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/Import.dpr
new file mode 100644
index 0000000..83a86d3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/Import.dpr	
@@ -0,0 +1,16 @@
+program Import;
+
+uses
+  QForms,
+  fMain in 'fMain.pas' {MainForm},
+  fDwin in 'fDwin.pas' {dwin};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.CreateForm(Tdwin, dwin);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/arraytest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/arraytest.rops
new file mode 100644
index 0000000..314bb89
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/arraytest.rops	
@@ -0,0 +1,22 @@
+Program IFSTest;
+type
+   TArrayOfByte = array of byte;
+
+procedure Test(x: TARrayOfByte);
+var
+  i: Integer;
+begin
+  for i := 0 to Getarraylength(X) -1 do
+  begin
+     writeln(inttostr(x[i]));
+  end;
+end;
+var
+  temp: TArrayOfByte;
+
+Begin
+  setarraylength(temp, 2);
+  temp[0] := 1;
+  temp[1] :=23;
+  test(temp);
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/booleantest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/booleantest.rops
new file mode 100644
index 0000000..f09d50b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/booleantest.rops	
@@ -0,0 +1,15 @@
+Program IFSTest;
+var
+  x1, x2: integer;
+  b: boolean;
+Begin
+  x1 := 2;
+  x2 := 2;
+  b := x1 = x2;
+  if b then begin writeln('true'); end else begin writeln('false');end;
+  x1 := 2;
+  x2 := 4;
+  b := x1 = x2;
+  if b then begin writeln('true'); end else begin writeln('false');end;
+  writeln('done');
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/bytearray.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/bytearray.rops
new file mode 100644
index 0000000..d4cd198
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/bytearray.rops	
@@ -0,0 +1,9 @@
+Program IFSTest;
+type
+  TByteArray = array of byte;
+var
+  x: TByteARray;
+Begin
+  x[0] := 1;
+ // will cause an runtime error (Out Of Record Fields Range)
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/casetest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/casetest.rops
new file mode 100644
index 0000000..b45c335
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/casetest.rops	
@@ -0,0 +1,12 @@
+Program IFSTest;
+var
+  b: Byte;
+Begin
+  for b := 0 to 2 do begin
+  case b of 
+    0: writeln('0');
+    1: writeln('1');
+    else writeln('>1');
+  end;
+  end;
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/exittest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/exittest.rops
new file mode 100644
index 0000000..682b825
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/exittest.rops	
@@ -0,0 +1,14 @@
+Program IFSTest;
+procedure test;
+begin
+  writeln('1');
+  exit;
+  writeln('2');
+end;
+Begin
+  test;
+  writeln('3');
+  exit;
+  writeln('4');
+  
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fDwin.dfm b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fDwin.dfm
new file mode 100644
index 0000000..c34c1b0
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fDwin.dfm differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fDwin.pas b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fDwin.pas
new file mode 100644
index 0000000..12138dc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fDwin.pas	
@@ -0,0 +1,27 @@
+unit fDwin;
+
+interface
+
+uses
+  SysUtils, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
+  QExtCtrls;
+
+type
+  Tdwin = class(TForm)
+    Memo1: TMemo;
+    Panel1: TPanel;
+    Button1: TButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  dwin: Tdwin;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fMain.dfm
new file mode 100644
index 0000000..91fa017
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fMain.dfm differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fMain.pas
new file mode 100644
index 0000000..b8ccae2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fMain.pas	
@@ -0,0 +1,330 @@
+unit fMain;
+
+interface
+
+uses
+  Classes, QGraphics, QControls, QForms, QDialogs,
+  uPSCompiler, uPSRuntime, uPSUtils, QMenus, QTypes, QStdCtrls, QExtCtrls;
+
+type
+  TMainForm = class(TForm)
+    Memo1: TMemo;
+    Memo2: TMemo;
+    Splitter1: TSplitter;
+    MainMenu1: TMainMenu;
+    Toosl1: TMenuItem;
+    Compile1: TMenuItem;
+    File1: TMenuItem;
+    Exit1: TMenuItem;
+    N1: TMenuItem;
+    SaveAs1: TMenuItem;
+    Save1: TMenuItem;
+    Open1: TMenuItem;
+    New1: TMenuItem;
+    OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
+    N2: TMenuItem;
+    Stop1: TMenuItem;
+    N3: TMenuItem;
+    CompileandDisassemble1: TMenuItem;
+    procedure Compile1Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure Exit1Click(Sender: TObject);
+    procedure New1Click(Sender: TObject);
+    procedure Open1Click(Sender: TObject);
+    procedure Save1Click(Sender: TObject);
+    procedure SaveAs1Click(Sender: TObject);
+    procedure Memo1Change(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure Stop1Click(Sender: TObject);
+    procedure CompileandDisassemble1Click(Sender: TObject);
+  private
+    fn: string;
+    changed: Boolean;
+    function SaveTest: Boolean;
+  public
+    { Public declarations }
+  end;
+
+var
+  MainForm: TMainForm;
+
+implementation
+uses
+  fDwin, uPSDisassembly, uPSC_dll, uPSR_dll;
+{$R *.dfm}
+
+function MyOnUses(Sender: TIFPSPascalCompiler; const Name: string): Boolean;
+begin
+  if Name = 'SYSTEM' then
+  begin
+    TIFPSPascalCompiler(Sender).AddFunction('procedure Writeln(s: string);');
+    TIFPSPascalCompiler(Sender).AddFunction('function Readln(question: string): string;');
+    Sender.AddConstantN('NaN', 'extended').SetExtended(0.0 / 0.0);
+    Sender.AddConstantN('Infinity', 'extended').SetExtended(1.0 / 0.0);
+    Sender.AddConstantN('NegInfinity', 'extended').SetExtended(1.0 / 0.0);
+    Sender.AddDelphiFunction('function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;');
+    Result := True;
+  end
+  else
+  begin
+    TIFPSPascalCompiler(Sender).MakeError('', ecUnknownIdentifier, '');
+    Result := False;
+  end;
+end;
+
+function MyWriteln(Caller: TIFPSExec; p: TPSExternalProcRec; Global, Stack: TIFPSStack): Boolean;
+begin
+  MainForm.Memo2.Lines.Add(Stack.GetString(-1));
+  Result := True;
+end;
+
+function MyReadln(Caller: TIFPSExec; p: TPSExternalProcRec; Global, Stack: TIFPSStack): Boolean;
+begin
+  Stack.SetString(-1,InputBox(MainForm.Caption, Stack.GetString(-2), ''));
+  Result := True;
+end;
+
+function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;
+begin
+  Result := s1 + ' ' + IntToStr(s2) + ' ' + IntToStr(s3) + ' ' + IntToStr(s4) + ' - OK!';
+  S5 := s5 + ' '+ result + ' -   OK2!';
+end;
+
+var
+  I: Integer;
+
+procedure RunLine(Sender: TIFPSExec);
+begin
+  i := (i + 1) mod 15;
+  if i = 0 then Application.ProcessMessages;
+end;
+
+function MyExportCheck(Sender: TIFPSPascalCompiler; Proc: TIFPSInternalProcedure; const ProcDecl: string): Boolean;
+begin
+  Result := TRue;
+end;
+
+
+procedure TMainForm.Compile1Click(Sender: TObject);
+var
+  x1: TIFPSPascalCompiler;
+  x2: TIFPSExec;
+  s: string;
+
+  procedure Outputtxt(const s: string);
+  begin
+    Memo2.Lines.Add(s);
+  end;
+
+  procedure OutputMsgs;
+  var
+    l: Longint;
+    b: Boolean;
+  begin
+    b := False;
+    for l := 0 to x1.MsgCount - 1 do
+    begin
+      Outputtxt(x1.Msg[l].MessageToString);
+      if (not b) and (x1.Msg[l] is TPSPascalCompilerError) then
+      begin
+        b := True;
+        Memo1.SelStart := X1.Msg[l].Pos;
+      end;
+    end;
+  end;
+begin
+  if tag <> 0 then exit;
+  Memo2.Clear;
+  x1 := TIFPSPascalCompiler.Create;
+  x1.OnExportCheck := MyExportCheck;
+  x1.OnUses := MyOnUses;
+  x1.OnExternalProc := DllExternalProc;
+  if x1.Compile(Memo1.Text) then
+  begin
+    Outputtxt('Succesfully compiled');
+    OutputMsgs;
+    if not x1.GetOutput(s) then
+    begin
+      x1.Free;
+      Outputtxt('[Error] : Could not get data');
+      exit;
+    end;
+    x1.Free;
+    x2 := TIFPSExec.Create;
+    RegisterDLLRuntime(x2);
+    tag := longint(x2);
+    if sender <> nil then
+      x2.OnRunLine := RunLine;
+    x2.RegisterFunctionName('WRITELN', MyWriteln, nil, nil);
+    x2.RegisterFunctionName('READLN', MyReadln, nil, nil);
+    x2.RegisterDelphiFunction(@importtest, 'IMPORTTEST', cdRegister);
+    if not x2.LoadData(s) then begin
+      Outputtxt('[Error] : Could not load data');
+      x2.Free;
+      exit;
+    end;
+    x2.RunScript;
+    if x2.ExceptionCode <> ENoError then
+      Outputtxt('[Runtime Error] : ' + TIFErrorToString(x2.ExceptionCode, x2.ExceptionString) +
+        ' in ' + IntToStr(x2.ExceptionProcNo) + ' at ' + IntToSTr(x2.ExceptionPos))
+    else
+      OutputTxt('Successfully executed');
+
+    tag := 0;
+    x2.Free;
+  end
+  else
+  begin
+    Outputtxt('Failed when compiling');
+    OutputMsgs;
+    x1.Free;
+  end;
+end;
+
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+  Caption := 'RemObjects Pascal Script';
+  fn := '';
+  changed := False;
+  Memo1.Lines.Text := 'Program ROTEST;'#13#10'Begin'#13#10'End.';
+end;
+
+
+procedure TMainForm.Exit1Click(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TMainForm.New1Click(Sender: TObject);
+begin
+  if not SaveTest then
+    exit;
+  Memo1.Lines.Text := 'Program ROTEST;'#13#10'Begin'#13#10'End.';
+  Memo2.Lines.Clear;
+  fn := '';
+end;
+
+function TMainForm.SaveTest: Boolean;
+begin
+  if changed then
+  begin
+    case MessageDlg('File is not saved, save now?', mtWarning, mbYesNoCancel, 0) of
+      mrYes:
+        begin
+          Save1Click(nil);
+          Result := not changed;
+        end;
+      mrNo: Result := True;
+    else
+      Result := False;
+    end;
+  end
+  else
+    Result := True;
+end;
+
+procedure TMainForm.Open1Click(Sender: TObject);
+begin
+  if not SaveTest then
+    exit;
+  if OpenDialog1.Execute then
+  begin
+    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
+    changed := False;
+    Memo2.Lines.Clear;
+    fn := OpenDialog1.FileName;
+  end;
+end;
+
+procedure TMainForm.Save1Click(Sender: TObject);
+begin
+  if fn = '' then
+  begin
+    Saveas1Click(nil);
+  end
+  else
+  begin
+    Memo1.Lines.SaveToFile(fn);
+    changed := False;
+  end;
+end;
+
+procedure TMainForm.SaveAs1Click(Sender: TObject);
+begin
+  SaveDialog1.FileName := '';
+  if SaveDialog1.Execute then
+  begin
+    fn := SaveDialog1.FileName;
+    Memo1.Lines.SaveToFile(fn);
+    changed := False;
+  end;
+end;
+
+procedure TMainForm.Memo1Change(Sender: TObject);
+begin
+  changed := True;
+end;
+
+procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+  CanClose := SaveTest;
+end;
+
+procedure TMainForm.Stop1Click(Sender: TObject);
+begin
+  if tag <> 0 then
+    TIFPSExec(tag).Stop;
+end;
+
+procedure TMainForm.CompileandDisassemble1Click(Sender: TObject);
+var
+  x1: TIFPSPascalCompiler;
+  s, s2: string;
+
+  procedure OutputMsgs;
+  var
+    l: Longint;
+    b: Boolean;
+  begin
+    b := False;
+    for l := 0 to x1.MsgCount - 1 do
+    begin
+      Memo2.Lines.Add(x1.Msg[l].MessageToString);
+      if (not b) and (x1.Msg[l] is TPSPascalCompilerError) then
+      begin
+        b := True;
+        Memo1.SelStart := X1.Msg[l].Pos;
+      end;
+    end;
+  end;
+begin
+  if tag <> 0 then exit;
+  Memo2.Clear;
+  x1 := TIFPSPascalCompiler.Create;
+  x1.OnExternalProc := DllExternalProc;
+  x1.OnUses := MyOnUses;
+  if x1.Compile(Memo1.Text) then
+  begin
+    Memo2.Lines.Add('Succesfully compiled');
+    OutputMsgs;
+    if not x1.GetOutput(s) then
+    begin
+      x1.Free;
+      Memo2.Lines.Add('[Error] : Could not get data');
+      exit;
+    end;
+    x1.Free;
+    IFPS3DataToText(s, s2);
+    dwin.Memo1.Text := s2;
+    dwin.showmodal;
+  end
+  else
+  begin
+    Memo2.Lines.Add('Failed when compiling');
+    OutputMsgs;
+    x1.Free;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fortest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fortest.rops
new file mode 100644
index 0000000..5695ff5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/fortest.rops	
@@ -0,0 +1,9 @@
+Program IFSTest;
+var
+  i: Longint;
+Begin
+  for i := 0 to 9 do 
+  begin
+    writeln('hello'+inttostr(i));
+  end;
+End.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/if.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/if.rops
new file mode 100644
index 0000000..0db351c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/if.rops	
@@ -0,0 +1,9 @@
+Program IFSTest;
+var
+  a: boolean;
+Begin
+  a := true;
+  if a then begin ;end else
+  if a then begin ;end else;
+  writeln('5');
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/importtest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/importtest.rops
new file mode 100644
index 0000000..7564c50
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/importtest.rops	
@@ -0,0 +1,16 @@
+Program IFSTest;
+var
+  a,b :string;
+Begin
+  a := 'test: ';
+  b := ImportTest('1', 2, 3, 4, a);
+  writeln(b);
+  writeln(a);
+{ 
+Output should be:
+
+1 2 3 4 - OK!
+1 2 3 4 - OK! -  OK2!
+
+}
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/longfortest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/longfortest.rops
new file mode 100644
index 0000000..94eece2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/longfortest.rops	
@@ -0,0 +1,10 @@
+Program IFSTest;
+var
+  i, i2: Longint;
+Begin
+  for i := 0 to 1000000 do
+  begin
+    i2 := i -1;
+  end;
+  writeln(inttostr(i2));
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/rectest.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/rectest.rops
new file mode 100644
index 0000000..79efab7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/rectest.rops	
@@ -0,0 +1,11 @@
+Program IFSTest;
+type
+  TMyRec = record a: Integer; b: string; end;
+var
+  s: TMyRec;
+Begin
+  s.a := 1234;
+  s.b := 'abc';
+  writeln(s.b);
+  writeln(inttostr(s.a));
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/vartype.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/vartype.rops
new file mode 100644
index 0000000..ad4e635
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/Kylix/vartype.rops	
@@ -0,0 +1,14 @@
+Program IFSTest;
+var
+  e: variant;
+Begin
+  e := null;
+  case VarType(e) of
+varempty :writeln('unassigned');
+varNull: Writeln('null');
+varstring: Writeln('String');
+  varInteger : writeln('VarInteger');
+varSingle: Writeln('Single');
+varDouble: Writeln('Double');
+  end;
+End.
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/MegaDemo.RODL b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/MegaDemo.RODL
new file mode 100644
index 0000000..a4ef8cb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/MegaDemo.RODL	
@@ -0,0 +1,153 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="MegaDemoLibrary" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}" Version="3.0">
+<CustomAttributes>
+<EA_Model Value="C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap" />
+</CustomAttributes>
+<Services>
+<Service Name="MegaDemoService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Documentation><![CDATA[
+Service_NewService__This_service_has_been_automatically_generated_using_the_RODL_template_you_can_find_in_the_Templates_directory_]]></Documentation>
+<Operations>
+<Operation Name="Sum" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="A" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="B" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetServerTime" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="EchoPerson" UID="{B8717BF0-B874-4C94-8756-A734840FE445}">
+<Parameters>
+<Parameter Name="aPerson" DataType="TPerson" Flag="In" >
+</Parameter>
+<Parameter Name="anotherPerson" DataType="TPerson" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="TestIntegerArray" UID="{2A0CA87E-11DC-45FE-8288-30EEDDE8EC4E}">
+<Parameters>
+<Parameter Name="Result" DataType="TIntegerArray" Flag="Result">
+</Parameter>
+<Parameter Name="anArray" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="TestStringArray" UID="{C54A4879-EBA7-4AA3-B4CC-05A66580DB8C}">
+<Parameters>
+<Parameter Name="Result" DataType="TStringArray" Flag="Result">
+</Parameter>
+<Parameter Name="anArray" DataType="TStringArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="TestPersonArray" UID="{50565130-EA3B-408A-A230-B55AB11F7743}">
+<Parameters>
+<Parameter Name="Result" DataType="TPersonArray" Flag="Result">
+</Parameter>
+<Parameter Name="anArray" DataType="TPersonArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="EchoBinary" UID="{6007A623-9D43-4AB2-8CE5-E337316FE8DD}">
+<Parameters>
+<Parameter Name="BinIN" DataType="binary" Flag="In" >
+</Parameter>
+<Parameter Name="BinOUT" DataType="Binary" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SomeTypes" UID="{86B5581B-EDB0-4039-9EF4-2F4155BF28F0}">
+<Parameters>
+<Parameter Name="aString" DataType="AnsiString" Flag="InOut" >
+</Parameter>
+<Parameter Name="aWidestring" DataType="Widestring" Flag="InOut" >
+</Parameter>
+<Parameter Name="anInteger" DataType="Integer" Flag="InOut" >
+</Parameter>
+<Parameter Name="aCurrency" DataType="Currency" Flag="InOut" >
+</Parameter>
+<Parameter Name="aDatetime" DataType="DateTime" Flag="InOut" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="CustomObjectAsString" UID="{D26D93E6-8FA8-447F-B927-604A542DCC43}">
+<Parameters>
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="CustomObjectAsStream" UID="{F5048214-9949-41D2-B6FC-76E707E9E645}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="RaiseError" UID="{6FF781AC-4A73-40FE-9760-216C2F460FF2}">
+<Parameters>
+</Parameters>
+</Operation>
+<Operation Name="RaiseTestException" UID="{98B7A42C-5680-41EC-9C3C-85DE06042D6A}" ForceAsyncResponse="1">
+<Parameters>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="TPerson" UID="{94B3E0BD-4AB9-4C93-8507-C1762CDA32C7}" AutoCreateParams="1">
+<Elements>
+<Element Name="FirstName" DataType="AnsiString">
+</Element>
+<Element Name="LastName" DataType="AnsiString">
+</Element>
+<Element Name="Age" DataType="Integer">
+</Element>
+<Element Name="Sex" DataType="TSex">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+<Enum Name="TSex" UID="{9B0938FA-35F8-49DE-91E1-DB9E0DD5E1A3}">
+<EnumValues>
+<EnumValue Name="sxMale">
+</EnumValue>
+<EnumValue Name="sxFemale">
+</EnumValue>
+</EnumValues>
+</Enum>
+</Enums>
+<Arrays>
+<Array Name="TPersonArray" UID="{3DDF0AF8-EA63-4DD1-A23F-4AA0427A1DCA}">
+<ElementType DataType="TPerson" />
+</Array>
+<Array Name="TIntegerArray" UID="{54E4F9ED-83DD-42E3-9611-D2617163B733}">
+<ElementType DataType="Integer" />
+</Array>
+<Array Name="TStringArray" UID="{A4EE5636-DAD1-45B4-A46C-993664EB279F}">
+<ElementType DataType="AnsiString" />
+</Array>
+</Arrays>
+<Exceptions>
+<Exception Name="ETestException" UID="{DFB108B7-C8D8-4E25-AAFC-8546094E1623}" AutoCreateParams="1">
+<Elements>
+<Element Name="ErrorCode" DataType="Integer">
+</Element>
+<Element Name="AdditionalInfo" DataType="AnsiString">
+</Element>
+</Elements>
+</Exception>
+</Exceptions>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/MegaDemo.rops b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/MegaDemo.rops
new file mode 100644
index 0000000..27545a6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/MegaDemo.rops	
@@ -0,0 +1,91 @@
+var
+  Message: TROBINMessage;
+  Channel: TRoIndyHttpChannel;
+  Service: NewService;
+  s: string;
+  i1, i2, i3: Integer;
+  
+procedure TestPerson;
+var
+  inp, outp: TPerson;
+begin
+  inp.FirstName := 'First_Name';
+  inp.FirstName := 'Last_Name';
+  inp.Age := 100;
+  inp.Sex := sxFemale;
+  Writeln('Calling TestPerson:');
+  Service.EchoPerson(inp, outp);
+  Writeln('Test Result: FirstName: '+outp.FirstName+
+  ' LastName: '+outp.LastName + ' Age: '+inttostr(outp.Age));
+  if inp.Sex = sxMale then
+    Writeln('Male')
+  else
+    Writeln('Female');
+end;
+
+procedure TestStringArray;
+var
+  Str, Str2: TStringArray;
+  i: Longint;
+  s: string;
+begin
+  Str := ['first', 'second', 'third', 'fourth', 'fifth'];
+  Writeln('Passing [''first'', ''second'', ''third'', ''fourth'', ''fifth''] to TestStringArray:');
+  str2 := Service.TestStringArray(str);
+  for i := 0 to GetArrayLength(str2) -1 do
+    S := s + str2[i]+' ';
+  Writeln('Result: '+s);
+end;
+  
+procedure TestIntegerArray;
+var
+  Str, Str2: TIntegerArray;
+  i: Longint;
+  s: string;
+begin
+  Str := [12, 34, 45, 67, 89];
+  Writeln('Passing [12, 34, 45, 67, 89] to TestIntegerArray:');
+  str2 := Service.TestIntegerArray(str);
+  for i := 0 to GetArrayLength(str2) -1 do
+    S := s + inttostr(str2[i])+' ';
+  Writeln('Result: '+s);
+end;
+
+begin
+  Message := TROBINMessage.Create(nil);
+  Message.UseCompression := False;
+  Channel := TRoIndyHTTPChannel.Create(nil);
+  Channel.TargetURL := 'http://localhost:8099/BIN';
+  Service := NewService.Create(Message, Channel);
+  try
+    TestPerson;
+    Writeln('MegaDemo Test');
+    Writeln('First number:');
+    readln(s);
+    i1 := StrToInt(s);
+    Writeln('Second number:');
+    readln(s);
+    i2 := StrToInt(s);
+    i3 := Service.Sum(i1,i2);
+    writeln(inttostr(i1)+'+'+inttostr(i2)+' -> Server, Result:'+inttostr(i3));
+
+    Writeln('Server Time:'+DateToStr(Service.GetServerTime));
+
+    TestStringArray;
+    TestIntegerArray;
+
+    Writeln('Custom Object As String: '+Service.CustomObjectAsString);
+
+    try
+      Writeln('Trying to raise an exception:');
+      Service.RaiseError;
+      Writeln('Exception Failed');
+    except
+      Writeln('Exception: '+ExceptionToString(ExceptionType, ExceptionParam));
+    end;
+  finally
+    Service := nil;
+    channel.Free;
+    message.Free;
+  end;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/TestApplication.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/TestApplication.dpr
new file mode 100644
index 0000000..3108f9c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/TestApplication.dpr	
@@ -0,0 +1,14 @@
+program TestApplication;
+
+uses
+  Forms,
+  fMain in 'fMain.pas' {Form1};
+
+{$R *.RES}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Test Application';
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/TestApplication.res b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/TestApplication.res
new file mode 100644
index 0000000..67a114d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/TestApplication.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/fMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/fMain.dfm
new file mode 100644
index 0000000..8e7ea80
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/fMain.dfm differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/fMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/fMain.pas
new file mode 100644
index 0000000..c1aad1e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/RemObjects SDK Client/fMain.pas	
@@ -0,0 +1,174 @@
+unit fMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  ExtCtrls, StdCtrls, uPSComponent, uPSCompiler, Menus, uPSRuntime,
+  uROPSServerLink, uPSComponent_Default;
+
+type
+  TForm1 = class(TForm)
+    Memo1: TMemo;
+    Memo2: TMemo;
+    Splitter1: TSplitter;
+    PSScript: TPSScript;
+    PS3DllPlugin: TPSDllPlugin;
+    MainMenu1: TMainMenu;
+    Program1: TMenuItem;
+    Compile1: TMenuItem;
+    PS3RemObjectsPlugin1: TPSRemObjectsSdkPlugin;
+    OpenDialog1: TOpenDialog;
+    OpenDialog2: TOpenDialog;
+    N1: TMenuItem;
+    OpenScript1: TMenuItem;
+    OpenRODL1: TMenuItem;
+    PSImport_Classes1: TPSImport_Classes;
+    PSImport_DateUtils1: TPSImport_DateUtils;
+    procedure IFPS3ClassesPlugin1CompImport(Sender: TObject;
+      x: TPSPascalCompiler);
+    procedure IFPS3ClassesPlugin1ExecImport(Sender: TObject; Exec: TPSExec;
+      x: TPSRuntimeClassImporter);
+    procedure PSScriptCompile(Sender: TPSScript);
+    procedure Compile1Click(Sender: TObject);
+    procedure PSScriptExecute(Sender: TPSScript);
+    procedure OpenRODL1Click(Sender: TObject);
+    procedure OpenScript1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+uses
+  uPSR_std,
+  uPSC_std,
+  uPSR_stdctrls,
+  uPSC_stdctrls,
+  uPSR_forms,
+  uPSC_forms,
+  uPSC_graphics,
+  uPSC_controls,
+  uPSC_classes,
+  uPSR_graphics,
+  uPSR_controls,
+  uPSR_classes;
+
+{$R *.DFM}
+
+procedure TForm1.IFPS3ClassesPlugin1CompImport(Sender: TObject;
+  x: TIFPSPascalcompiler);
+begin
+  SIRegister_Std(x);
+  SIRegister_Classes(x, true);
+  SIRegister_Graphics(x, true);
+  SIRegister_Controls(x);
+  SIRegister_stdctrls(x);
+  SIRegister_Forms(x);
+end;
+
+procedure TForm1.IFPS3ClassesPlugin1ExecImport(Sender: TObject; Exec: TIFPSExec;
+  x: TIFPSRuntimeClassImporter);
+begin
+  RIRegister_Std(x);
+  RIRegister_Classes(x, True);
+  RIRegister_Graphics(x, True);
+  RIRegister_Controls(x);
+  RIRegister_stdctrls(x);
+  RIRegister_Forms(x);
+end;
+
+function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;
+begin
+  Result := s1 + ' ' + IntToStr(s2) + ' ' + IntToStr(s3) + ' ' + IntToStr(s4) + ' - OK!';
+  S5 := s5 + ' '+ result + ' -   OK2!';
+end;
+
+procedure MyWriteln(const s: string);
+begin
+  Form1.Memo2.Lines.Add(s);
+end;
+
+function MyReadln(const question: string): string;
+begin
+  Result := InputBox(question, '', '');
+end;
+
+procedure TForm1.PSScriptCompile(Sender: TPSScript);
+begin
+  Sender.AddFunction(@MyWriteln, 'procedure Writeln(s: string);');
+  Sender.AddFunction(@MyReadln, 'function Readln(question: string): string;');
+  Sender.AddFunction(@ImportTest, 'function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;');
+  Sender.AddRegisteredVariable('Application', 'TApplication');
+  Sender.AddRegisteredVariable('Self', 'TForm');
+  Sender.AddRegisteredVariable('Memo1', 'TMemo');
+  Sender.AddRegisteredVariable('Memo2', 'TMemo');
+end;
+
+procedure TForm1.Compile1Click(Sender: TObject);
+  procedure OutputMessages;
+  var
+    l: Longint;
+    b: Boolean;
+  begin
+    b := False;
+
+    for l := 0 to PSScript.CompilerMessageCount - 1 do
+    begin
+      Memo2.Lines.Add('Compiler: '+ PSScript.CompilerErrorToStr(l));
+      if (not b) and (PSScript.CompilerMessages[l] is TIFPSPascalCompilerError) then
+      begin
+        b := True;
+        Memo1.SelStart := PSScript.CompilerMessages[l].Pos;
+      end;
+    end;
+  end;
+begin
+  Memo2.Lines.Clear;
+  PSScript.Script.Assign(Memo1.Lines);
+  Memo2.Lines.Add('Compiling');
+  if PSScript.Compile then
+  begin
+    OutputMessages;
+    Memo2.Lines.Add('Compiled succesfully');
+    if not PSScript.Execute then
+    begin
+      Memo1.SelStart := PSScript.ExecErrorPosition;
+      Memo2.Lines.Add(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.'+Inttostr(PSScript.ExecErrorByteCodePosition));
+    end else Memo2.Lines.Add('Succesfully executed');
+  end else
+  begin
+    OutputMessages;
+    Memo2.Lines.Add('Compiling failed');
+  end;
+end;
+
+procedure TForm1.PSScriptExecute(Sender: TPSScript);
+begin
+  PSScript.SetVarToInstance('APPLICATION', Application);
+  PSScript.SetVarToInstance('SELF', Self);
+  PSScript.SetVarToInstance('MEMO1', Memo1);
+  PSScript.SetVarToInstance('MEMO2', Memo2);
+end;
+
+procedure TForm1.OpenRODL1Click(Sender: TObject);
+begin
+  if OpenDialog2.Execute then
+  begin
+    PS3RemObjectsPlugin1.RODLLoadFromFile(OpenDialog2.FileName);
+  end;
+end;
+
+procedure TForm1.OpenScript1Click(Sender: TObject);
+begin
+  if OpenDialog1.Execute then
+  begin
+    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/TestApplication.dpr b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/TestApplication.dpr
new file mode 100644
index 0000000..3108f9c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/TestApplication.dpr	
@@ -0,0 +1,14 @@
+program TestApplication;
+
+uses
+  Forms,
+  fMain in 'fMain.pas' {Form1};
+
+{$R *.RES}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Test Application';
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/TestApplication.res b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/TestApplication.res
new file mode 100644
index 0000000..67a114d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/TestApplication.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/fMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/fMain.dfm
new file mode 100644
index 0000000..86c520a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/fMain.dfm differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/fMain.pas b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/fMain.pas
new file mode 100644
index 0000000..a5b69fe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/Pascal Script for Delphi/TestApp/fMain.pas	
@@ -0,0 +1,147 @@
+unit fMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  ExtCtrls, StdCtrls, uPSComponent, uPSCompiler, Menus, uPSRuntime;
+
+type
+  TForm1 = class(TForm)
+    Memo1: TMemo;
+    Memo2: TMemo;
+    Splitter1: TSplitter;
+    PSScript: TPSScript;
+    PS3DllPlugin: TPSDllPlugin;
+    MainMenu1: TMainMenu;
+    Program1: TMenuItem;
+    Compile1: TMenuItem;
+    procedure IFPS3ClassesPlugin1CompImport(Sender: TObject;
+      x: TPSPascalCompiler);
+    procedure IFPS3ClassesPlugin1ExecImport(Sender: TObject; Exec: TPSExec;
+      x: TPSRuntimeClassImporter);
+    procedure PSScriptCompile(Sender: TPSScript);
+    procedure Compile1Click(Sender: TObject);
+    procedure PSScriptExecute(Sender: TPSScript);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+uses
+  uPSR_std,
+  uPSC_std,
+  uPSR_stdctrls,
+  uPSC_stdctrls,
+  uPSR_forms,
+  uPSC_forms,
+  uPSC_graphics,
+  uPSC_controls,
+  uPSC_classes,
+  uPSR_graphics,
+  uPSR_controls,
+  uPSR_classes;
+
+{$R *.DFM}
+
+procedure TForm1.IFPS3ClassesPlugin1CompImport(Sender: TObject;
+  x: TIFPSPascalcompiler);
+begin
+  SIRegister_Std(x);
+  SIRegister_Classes(x, true);
+  SIRegister_Graphics(x, true);
+  SIRegister_Controls(x);
+  SIRegister_stdctrls(x);
+  SIRegister_Forms(x);
+end;
+
+procedure TForm1.IFPS3ClassesPlugin1ExecImport(Sender: TObject; Exec: TIFPSExec;
+  x: TIFPSRuntimeClassImporter);
+begin
+  RIRegister_Std(x);
+  RIRegister_Classes(x, True);
+  RIRegister_Graphics(x, True);
+  RIRegister_Controls(x);
+  RIRegister_stdctrls(x);
+  RIRegister_Forms(x);
+end;
+
+function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;
+begin
+  Result := s1 + ' ' + IntToStr(s2) + ' ' + IntToStr(s3) + ' ' + IntToStr(s4) + ' - OK!';
+  S5 := s5 + ' '+ result + ' -   OK2!';
+end;
+
+procedure MyWriteln(const s: string);
+begin
+  Form1.Memo2.Lines.Add(s);
+end;
+
+function MyReadln(const question: string): string;
+begin
+  Result := InputBox(question, '', '');
+end;
+
+procedure TForm1.PSScriptCompile(Sender: TPSScript);
+begin
+  Sender.AddFunction(@MyWriteln, 'procedure Writeln(s: string);');
+  Sender.AddFunction(@MyReadln, 'function Readln(question: string): string;');
+  Sender.AddFunction(@ImportTest, 'function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;');
+  Sender.AddRegisteredVariable('Application', 'TApplication');
+  Sender.AddRegisteredVariable('Self', 'TForm');
+  Sender.AddRegisteredVariable('Memo1', 'TMemo');
+  Sender.AddRegisteredVariable('Memo2', 'TMemo');
+end;
+
+procedure TForm1.Compile1Click(Sender: TObject);
+  procedure OutputMessages;
+  var
+    l: Longint;
+    b: Boolean;
+  begin
+    b := False;
+
+    for l := 0 to PSScript.CompilerMessageCount - 1 do
+    begin
+      Memo2.Lines.Add('Compiler: '+ PSScript.CompilerErrorToStr(l));
+      if (not b) and (PSScript.CompilerMessages[l] is TIFPSPascalCompilerError) then
+      begin
+        b := True;
+        Memo1.SelStart := PSScript.CompilerMessages[l].Pos;
+      end;
+    end;
+  end;
+begin
+  Memo2.Lines.Clear;
+  PSScript.Script.Assign(Memo1.Lines);
+  Memo2.Lines.Add('Compiling');
+  if PSScript.Compile then
+  begin
+    OutputMessages;
+    Memo2.Lines.Add('Compiled succesfully');
+    if not PSScript.Execute then
+    begin
+      Memo1.SelStart := PSScript.ExecErrorPosition;
+      Memo2.Lines.Add(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.'+Inttostr(PSScript.ExecErrorByteCodePosition));
+    end else Memo2.Lines.Add('Succesfully executed');
+  end else
+  begin
+    OutputMessages;
+    Memo2.Lines.Add('Compiling failed');
+  end;
+end;
+
+procedure TForm1.PSScriptExecute(Sender: TPSScript);
+begin
+  PSScript.SetVarToInstance('APPLICATION', Application);
+  PSScript.SetVarToInstance('SELF', Self);
+  PSScript.SetVarToInstance('MEMO1', Memo1);
+  PSScript.SetVarToInstance('MEMO2', Memo2);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.Sample.html
new file mode 100644
index 0000000..bcb1c5a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.Sample.html	
@@ -0,0 +1,25 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Arrays Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>This sample shows how to use TROArray for presentating DB tables in a master/detail relationship.</p>
+
+<h2>Examine the Code</h2>
+<p>
+    The GetTables method returns a struct containing two arrays. These arrays contain
+    data from the Customers and Orders tables and consist of structs matching the table
+    structures.</p>
+
+</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.bdsgroup
new file mode 100644
index 0000000..f072d08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1EF84150-B400-4A97-B901-00409AE0515D}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="ArraysServer.exe">ArraysServer.bdsproj</Projects>
+      <Projects Name="ArraysClient.exe">ArraysClient.bdsproj</Projects>
+      <Projects Name="Targets">ArraysServer.exe ArraysClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.bpg
new file mode 100644
index 0000000..d433fde
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ArraysServer.exe ArraysClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ArraysServer.exe: ArraysServer.dpr
+  $(DCC)
+
+ArraysClient.exe: ArraysClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.groupproj
new file mode 100644
index 0000000..bbd9594
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/Arrays.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e1bdacf8-8968-4f38-ad8d-e3172cdffd20}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="ArraysServer">
+    <MSBuild Projects="ArraysServer.dproj" Targets="" />
+  </Target>
+  <Target Name="ArraysServer:Clean">
+    <MSBuild Projects="ArraysServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ArraysServer:Make">
+    <MSBuild Projects="ArraysServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ArraysClient">
+    <MSBuild Projects="ArraysClient.dproj" Targets="" />
+  </Target>
+  <Target Name="ArraysClient:Clean">
+    <MSBuild Projects="ArraysClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ArraysClient:Make">
+    <MSBuild Projects="ArraysClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="ArraysServer;ArraysClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="ArraysServer:Clean;ArraysClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="ArraysServer:Make;ArraysClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.bdsproj
new file mode 100644
index 0000000..d0de43f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{69DD1C31-1798-4775-BF6B-F7D230DD15B0}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ArraysClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.dpr
new file mode 100644
index 0000000..b9661a6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.dpr	
@@ -0,0 +1,15 @@
+program ArraysClient;
+
+uses 
+  uROComInit,
+  Forms,
+  ArraysClientMain in 'ArraysClientMain.pas' {ArraysClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Arrays Client';
+  Application.CreateForm(TArraysClientMainForm, ArraysClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.dproj
new file mode 100644
index 0000000..37e97b2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{1dfeec6a-3b4d-45fa-bc7e-294021928831}</ProjectGuid>
+    <MainSource>ArraysClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ArraysClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ArraysClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ArraysClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ArraysClientMain.pas">
+      <Form>ArraysClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClientMain.dfm
new file mode 100644
index 0000000..5557b07
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClientMain.dfm	
@@ -0,0 +1,91 @@
+object ArraysClientMainForm: TArraysClientMainForm
+  Left = 284
+  Top = 179
+  Caption = 'RemObjects Client'
+  ClientHeight = 326
+  ClientWidth = 524
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 126
+    Width = 524
+    Height = 8
+    Cursor = crVSplit
+    Align = alBottom
+    Beveled = True
+  end
+  object CustomersGrid: TStringGrid
+    Left = 0
+    Top = 34
+    Width = 524
+    Height = 92
+    Align = alClient
+    ColCount = 1
+    DefaultRowHeight = 16
+    FixedCols = 0
+    RowCount = 1
+    FixedRows = 0
+    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing]
+    TabOrder = 0
+    OnSelectCell = CustomersGridSelectCell
+  end
+  object OrdersGrid: TStringGrid
+    Left = 0
+    Top = 134
+    Width = 524
+    Height = 192
+    Align = alBottom
+    ColCount = 1
+    DefaultRowHeight = 16
+    FixedCols = 0
+    RowCount = 1
+    FixedRows = 0
+    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing]
+    TabOrder = 1
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 524
+    Height = 34
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+    object OpenButton: TButton
+      Left = 7
+      Top = 5
+      Width = 75
+      Height = 25
+      Caption = 'Open'
+      TabOrder = 0
+      OnClick = OpenButtonClick
+    end
+  end
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 41
+    Top = 79
+  end
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 13
+    Top = 79
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'ArraysService'
+    Left = 69
+    Top = 79
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClientMain.pas
new file mode 100644
index 0000000..214f731
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysClientMain.pas	
@@ -0,0 +1,188 @@
+unit ArraysClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROWinInetHttpChannel,
+  uROBinMessage, Grids, DBGrids, ComCtrls, ArraysLibrary_Intf, ExtCtrls;
+
+type
+  TArraysClientMainForm = class(TForm)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    CustomersGrid: TStringGrid;
+    OrdersGrid: TStringGrid;
+    Splitter1: TSplitter;
+    OpenButton: TButton;
+    Panel1: TPanel;
+    procedure OpenButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure CustomersGridSelectCell(Sender: TObject; ACol, ARow: Integer;
+      var CanSelect: Boolean);
+  private
+    { Private declarations }
+    CustCol: CustomersCollection;
+    OrdCol: OrdersCollection;
+    FCustID: string;
+    procedure SetupGrid;
+    procedure SetupCustomers;
+    procedure SetupOrders(CustID: string);
+    procedure ClearGrid(Grid: TStringGrid);
+  public
+    { Public declarations }
+  end;
+
+var
+  ArraysClientMainForm: TArraysClientMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TArraysClientMainForm.OpenButtonClick(Sender: TObject);
+var
+  tbl: Tables;
+begin
+  tbl := (RORemoteService as IArraysService).GetTables;
+  try
+    CustCol.LoadFromArray(tbl.aCustomers);
+    OrdCol.LoadFromArray(tbl.aOrders);
+  finally
+    tbl.Free;
+  end;
+  SetupCustomers;
+  SetupOrders(CustomersGrid.Cells[0, 1]);
+end;
+
+procedure TArraysClientMainForm.FormCreate(Sender: TObject);
+begin
+  CustCol := CustomersCollection.Create;
+  OrdCol := OrdersCollection.Create;
+  SetupGrid;
+end;
+
+procedure TArraysClientMainForm.FormDestroy(Sender: TObject);
+begin
+  CustCol.Free;
+  OrdCol.Free;
+end;
+
+procedure TArraysClientMainForm.SetupGrid;
+begin
+  with CustomersGrid do begin
+    if RowCount < 2 then RowCount := 2;
+    ColCount:=11;
+    FixedRows := 1;
+    Cells[0, 0] := 'CustomerID';
+    Cells[1, 0] := 'CompanyName';
+    Cells[2, 0] := 'ContactName';
+    Cells[3, 0] := 'ContactTitle';
+    Cells[4, 0] := 'Address';
+    Cells[5, 0] := 'City';
+    Cells[6, 0] := 'Region';
+    Cells[7, 0] := 'Postalcode';
+    Cells[8, 0] := 'Country';
+    Cells[9, 0] := 'Phone';
+    Cells[10, 0] := 'Fax';
+  end;
+  with OrdersGrid do begin
+    if RowCount < 2 then RowCount := 2;
+    ColCount:= 14;
+    FixedRows := 1;
+    Cells[0, 0] := 'OrderID';
+    Cells[1, 0] := 'CustomerID';
+    Cells[2, 0] := 'EmployeeID';
+    Cells[3, 0] := 'OrderDate';
+    Cells[4, 0] := 'RequiredDate';
+    Cells[5, 0] := 'ShippedDate';
+    Cells[6, 0] := 'ShipVia';
+    Cells[7, 0] := 'Freight';
+    Cells[8, 0] := 'ShipName';
+    Cells[9, 0] := 'ShipAddress';
+    Cells[10, 0] := 'ShipCity';
+    Cells[11, 0] := 'ShipRegion';
+    Cells[12, 0] := 'ShipPostalCode';
+    Cells[13, 0] := 'ShipCountry';
+  end;
+end;
+
+procedure TArraysClientMainForm.SetupCustomers;
+var
+  i: integer;
+  CustItem: Customers;
+begin
+  ClearGrid(CustomersGrid);
+  with CustomersGrid do begin
+    RowCount := 1 + CustCol.Count;
+    for i := 0 to CustCol.Count - 1 do begin
+      CustItem := CustCol[i];
+      Cells[0, i + 1] := CustItem.CustomerID;
+      Cells[1, i + 1] := CustItem.CompanyName;
+      Cells[2, i + 1] := CustItem.ContactName;
+      Cells[3, i + 1] := CustItem.ContactTitle;
+      Cells[4, i + 1] := CustItem.Address;
+      Cells[5, i + 1] := CustItem.City;
+      Cells[6, i + 1] := CustItem.Region;
+      Cells[7, i + 1] := CustItem.Postalcode;
+      Cells[8, i + 1] := CustItem.Country;
+      Cells[9, i + 1] := CustItem.Phone;
+      Cells[10, i + 1] := CustItem.Fax;
+    end;
+  end;
+end;
+
+procedure TArraysClientMainForm.SetupOrders(CustID: string);
+var
+  i: integer;
+  k: integer;
+  OrdersItem: Orders;
+begin
+  if FCustID = CustID then Exit;
+  ClearGrid(OrdersGrid);
+  with OrdersGrid do begin
+    FCustID := CustID;
+    RowCount := 1 + OrdCol.Count;
+    k := 0;
+    for i := 0 to OrdCol.Count - 1 do begin
+      OrdersItem := OrdCol[i];
+      if OrdersItem.CustomerID = CustID then begin
+        inc(k);
+        Cells[0, k] := IntToStr(OrdersItem.OrderID);
+        Cells[1, k] := OrdersItem.CustomerID;
+        Cells[2, k] := IntToStr(OrdersItem.EmployeeID);
+        Cells[3, k] := DateTimeToStr(OrdersItem.OrderDate);
+        Cells[4, k] := DateTimeToStr(OrdersItem.RequiredDate);
+        Cells[5, k] := DateTimeToStr(OrdersItem.ShippedDate);
+        Cells[6, k] := IntToStr(OrdersItem.ShipVia);
+        Cells[7, k] := CurrToStr(OrdersItem.Freight);
+        Cells[8, k] := OrdersItem.ShipName;
+        Cells[9, k] := OrdersItem.ShipAddress;
+        Cells[10, k] := OrdersItem.ShipCity;
+        Cells[11, k] := OrdersItem.ShipRegion;
+        Cells[12, k] := OrdersItem.ShipPostalCode;
+        Cells[13, k] := OrdersItem.ShipCountry;
+      end;
+    end;
+    if k > 0 then RowCount := k + 1 else ClearGrid(OrdersGrid);
+  end;
+end;
+
+procedure TArraysClientMainForm.ClearGrid(Grid: TStringGrid);
+begin
+  Grid.RowCount := 1;
+  Grid.RowCount := 2;
+  Grid.Rows[1].Clear;  
+  Grid.FixedRows := 1;
+end;
+
+procedure TArraysClientMainForm.CustomersGridSelectCell(Sender: TObject; ACol,
+  ARow: Integer; var CanSelect: Boolean);
+begin
+  if ARow > 0 then SetupOrders(CustomersGrid.Cells[0, aRow]);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary.rodl
new file mode 100644
index 0000000..cfd0a7c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary.rodl	
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ArraysLibrary" UID="{7BFDF035-4BE8-4255-9337-E112A2F30DA0}" Version="3.0">
+<Services>
+<Service Name="ArraysService" UID="{D719C651-D01D-403F-AD58-5CA4FCA8602B}">
+<Interfaces>
+<Interface Name="Default" UID="{426D1A36-4EBF-4241-8E63-A26D303AA90E}">
+<Documentation><![CDATA[Service NewService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation><Operations>
+<Operation Name="GetTables" UID="{235E789A-5375-40FA-8DDB-5E1A6C3A408C}">
+<Parameters>
+<Parameter Name="Result" DataType="Tables" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="Customers" UID="{A068B538-8B9F-44B0-A4DD-9C710597ABC9}" AutoCreateParams="1">
+<Elements>
+<Element Name="CustomerID" DataType="WideString">
+</Element>
+<Element Name="CompanyName" DataType="WideString">
+</Element>
+<Element Name="ContactName" DataType="WideString">
+</Element>
+<Element Name="ContactTitle" DataType="WideString">
+</Element>
+<Element Name="Address" DataType="WideString">
+</Element>
+<Element Name="City" DataType="WideString">
+</Element>
+<Element Name="Region" DataType="WideString">
+</Element>
+<Element Name="Postalcode" DataType="WideString">
+</Element>
+<Element Name="Country" DataType="WideString">
+</Element>
+<Element Name="Phone" DataType="WideString">
+</Element>
+<Element Name="Fax" DataType="WideString">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="Orders" UID="{86D757B1-FDC5-4313-85CE-D0C20219EB8F}" AutoCreateParams="1">
+<Elements>
+<Element Name="OrderID" DataType="Integer">
+</Element>
+<Element Name="CustomerID" DataType="WideString">
+</Element>
+<Element Name="EmployeeID" DataType="Integer">
+</Element>
+<Element Name="OrderDate" DataType="DateTime">
+</Element>
+<Element Name="RequiredDate" DataType="DateTime">
+</Element>
+<Element Name="ShippedDate" DataType="DateTime">
+</Element>
+<Element Name="ShipVia" DataType="Integer">
+</Element>
+<Element Name="Freight" DataType="Currency">
+</Element>
+<Element Name="ShipName" DataType="WideString">
+</Element>
+<Element Name="ShipAddress" DataType="WideString">
+</Element>
+<Element Name="ShipCity" DataType="WideString">
+</Element>
+<Element Name="ShipRegion" DataType="WideString">
+</Element>
+<Element Name="ShipPostalCode" DataType="WideString">
+</Element>
+<Element Name="ShipCountry" DataType="WideString">
+</Element>
+</Elements>
+</Struct>
+<Struct Name="Tables" UID="{C17DEA24-ED4C-42E3-9A9D-7B0591060099}" AutoCreateParams="1">
+<Elements>
+<Element Name="aCustomers" DataType="CustomersArray">
+</Element>
+<Element Name="aOrders" DataType="OrdersArray">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+<Array Name="CustomersArray" UID="{4C035F1C-63BA-4B4A-BEBB-1EF666FE229A}">
+<ElementType DataType="Customers" />
+</Array>
+<Array Name="OrdersArray" UID="{670274D7-D9B2-4857-84EB-72D863CD2AE2}">
+<ElementType DataType="Orders" />
+</Array>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary_Intf.pas
new file mode 100644
index 0000000..485d1d4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary_Intf.pas	
@@ -0,0 +1,1192 @@
+unit ArraysLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{7BFDF035-4BE8-4255-9337-E112A2F30DA0}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IArraysService_IID : TGUID = '{426D1A36-4EBF-4241-8E63-A26D303AA90E}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IArraysService = interface;
+
+  CustomersArray = class;
+  OrdersArray = class;
+
+  Customers = class;
+  Orders = class;
+  Tables = class;
+
+
+  { Customers }
+  Customers = class(TROComplexType)
+  private
+    fCustomerID: WideString;
+    fCompanyName: WideString;
+    fContactName: WideString;
+    fContactTitle: WideString;
+    fAddress: WideString;
+    fCity: WideString;
+    fRegion: WideString;
+    fPostalcode: WideString;
+    fCountry: WideString;
+    fPhone: WideString;
+    fFax: WideString;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property CustomerID:WideString read fCustomerID write fCustomerID;
+    property CompanyName:WideString read fCompanyName write fCompanyName;
+    property ContactName:WideString read fContactName write fContactName;
+    property ContactTitle:WideString read fContactTitle write fContactTitle;
+    property Address:WideString read fAddress write fAddress;
+    property City:WideString read fCity write fCity;
+    property Region:WideString read fRegion write fRegion;
+    property Postalcode:WideString read fPostalcode write fPostalcode;
+    property Country:WideString read fCountry write fCountry;
+    property Phone:WideString read fPhone write fPhone;
+    property Fax:WideString read fFax write fFax;
+  end;
+
+  { CustomersCollection }
+  CustomersCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): Customers;
+    procedure SetItems(aIndex: integer; const Value: Customers);
+  public
+    constructor Create; overload;
+    function Add: Customers; reintroduce;
+    procedure SaveToArray(anArray: CustomersArray);
+    procedure LoadFromArray(anArray: CustomersArray);
+    property Items[Index: integer]:Customers read GetItems write SetItems; default;
+  end;
+
+  { Orders }
+  Orders = class(TROComplexType)
+  private
+    fOrderID: Integer;
+    fCustomerID: WideString;
+    fEmployeeID: Integer;
+    fOrderDate: DateTime;
+    fRequiredDate: DateTime;
+    fShippedDate: DateTime;
+    fShipVia: Integer;
+    fFreight: Currency;
+    fShipName: WideString;
+    fShipAddress: WideString;
+    fShipCity: WideString;
+    fShipRegion: WideString;
+    fShipPostalCode: WideString;
+    fShipCountry: WideString;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property OrderID:Integer read fOrderID write fOrderID;
+    property CustomerID:WideString read fCustomerID write fCustomerID;
+    property EmployeeID:Integer read fEmployeeID write fEmployeeID;
+    property OrderDate:DateTime read fOrderDate write fOrderDate;
+    property RequiredDate:DateTime read fRequiredDate write fRequiredDate;
+    property ShippedDate:DateTime read fShippedDate write fShippedDate;
+    property ShipVia:Integer read fShipVia write fShipVia;
+    property Freight:Currency read fFreight write fFreight;
+    property ShipName:WideString read fShipName write fShipName;
+    property ShipAddress:WideString read fShipAddress write fShipAddress;
+    property ShipCity:WideString read fShipCity write fShipCity;
+    property ShipRegion:WideString read fShipRegion write fShipRegion;
+    property ShipPostalCode:WideString read fShipPostalCode write fShipPostalCode;
+    property ShipCountry:WideString read fShipCountry write fShipCountry;
+  end;
+
+  { OrdersCollection }
+  OrdersCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): Orders;
+    procedure SetItems(aIndex: integer; const Value: Orders);
+  public
+    constructor Create; overload;
+    function Add: Orders; reintroduce;
+    procedure SaveToArray(anArray: OrdersArray);
+    procedure LoadFromArray(anArray: OrdersArray);
+    property Items[Index: integer]:Orders read GetItems write SetItems; default;
+  end;
+
+  { Tables }
+  Tables = class(TROComplexType)
+  private
+    faCustomers: CustomersArray;
+    faOrders: OrdersArray;
+    function GetaCustomers: CustomersArray;
+    function GetaOrders: OrdersArray;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property aCustomers:CustomersArray read GetaCustomers write faCustomers;
+    property aOrders:OrdersArray read GetaOrders write faOrders;
+  end;
+
+  { TablesCollection }
+  TablesCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): Tables;
+    procedure SetItems(aIndex: integer; const Value: Tables);
+  public
+    constructor Create; overload;
+    function Add: Tables; reintroduce;
+    property Items[Index: integer]:Tables read GetItems write SetItems; default;
+  end;
+
+  { CustomersArray }
+  CustomersArray_Customers = array of Customers;
+  CustomersArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : CustomersArray_Customers;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): Customers;
+    procedure SetItems(aIndex: integer; const Value: Customers);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: Customers; overload;
+    function Add(const Value: Customers):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Customers read GetItems write SetItems; default;
+    property InnerArray: CustomersArray_Customers read fItems;
+  end;
+
+  { OrdersArray }
+  OrdersArray_Orders = array of Orders;
+  OrdersArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : OrdersArray_Orders;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): Orders;
+    procedure SetItems(aIndex: integer; const Value: Orders);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: Orders; overload;
+    function Add(const Value: Orders):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Orders read GetItems write SetItems; default;
+    property InnerArray: OrdersArray_Orders read fItems;
+  end;
+
+  { IArraysService }
+  IArraysService = interface
+    ['{426D1A36-4EBF-4241-8E63-A26D303AA90E}']
+    function GetTables: Tables;
+  end;
+
+  { CoArraysService }
+  CoArraysService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IArraysService;
+  end;
+
+  { TArraysService_Proxy }
+  TArraysService_Proxy = class(TROProxy, IArraysService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetTables: Tables;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CustomersArray }
+
+procedure CustomersArray.Assign(iSource: TPersistent);
+var lSource:CustomersArray;
+    i:integer;
+begin
+  if (iSource is CustomersArray) then begin
+    lSource := CustomersArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function CustomersArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Customers);
+end;
+
+class function CustomersArray.GetItemClass: TClass;
+begin
+  result := Customers;
+end;
+
+class function CustomersArray.GetItemSize: integer;
+begin
+  result := SizeOf(Customers);
+end;
+
+function CustomersArray.GetItems(aIndex: integer): Customers;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function CustomersArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure CustomersArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure CustomersArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure CustomersArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure CustomersArray.SetItems(aIndex: integer; const Value: Customers);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure CustomersArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := Customers.Create;
+  FCount := ElementCount;
+end;
+
+function CustomersArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure CustomersArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function CustomersArray.Add: Customers;
+begin
+  result := Customers.Create;
+  Add(Result);
+end;
+
+function CustomersArray.Add(const Value:Customers): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure CustomersArray.ReadComplex(ASerializer: TObject);
+var
+  lval: Customers;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), Customers, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure CustomersArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], Customers, i);
+end;
+
+{ OrdersArray }
+
+procedure OrdersArray.Assign(iSource: TPersistent);
+var lSource:OrdersArray;
+    i:integer;
+begin
+  if (iSource is OrdersArray) then begin
+    lSource := OrdersArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function OrdersArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Orders);
+end;
+
+class function OrdersArray.GetItemClass: TClass;
+begin
+  result := Orders;
+end;
+
+class function OrdersArray.GetItemSize: integer;
+begin
+  result := SizeOf(Orders);
+end;
+
+function OrdersArray.GetItems(aIndex: integer): Orders;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function OrdersArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure OrdersArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure OrdersArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure OrdersArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure OrdersArray.SetItems(aIndex: integer; const Value: Orders);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure OrdersArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := Orders.Create;
+  FCount := ElementCount;
+end;
+
+function OrdersArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure OrdersArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function OrdersArray.Add: Orders;
+begin
+  result := Orders.Create;
+  Add(Result);
+end;
+
+function OrdersArray.Add(const Value:Orders): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure OrdersArray.ReadComplex(ASerializer: TObject);
+var
+  lval: Orders;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), Orders, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure OrdersArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], Orders, i);
+end;
+
+{ Customers }
+
+procedure Customers.Assign(iSource: TPersistent);
+var lSource: ArraysLibrary_Intf.Customers;
+begin
+  inherited Assign(iSource);
+  if (iSource is ArraysLibrary_Intf.Customers) then begin
+    lSource := ArraysLibrary_Intf.Customers(iSource);
+    CustomerID := lSource.CustomerID;
+    CompanyName := lSource.CompanyName;
+    ContactName := lSource.ContactName;
+    ContactTitle := lSource.ContactTitle;
+    Address := lSource.Address;
+    City := lSource.City;
+    Region := lSource.Region;
+    Postalcode := lSource.Postalcode;
+    Country := lSource.Country;
+    Phone := lSource.Phone;
+    Fax := lSource.Fax;
+  end;
+end;
+
+procedure Customers.ReadComplex(ASerializer: TObject);
+var
+  l_Address: WideString;
+  l_City: WideString;
+  l_CompanyName: WideString;
+  l_ContactName: WideString;
+  l_ContactTitle: WideString;
+  l_Country: WideString;
+  l_CustomerID: WideString;
+  l_Fax: WideString;
+  l_Phone: WideString;
+  l_Postalcode: WideString;
+  l_Region: WideString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_CustomerID := CustomerID;
+    TROSerializer(ASerializer).ReadWideString('CustomerID', l_CustomerID);
+    CustomerID := l_CustomerID;
+    l_CompanyName := CompanyName;
+    TROSerializer(ASerializer).ReadWideString('CompanyName', l_CompanyName);
+    CompanyName := l_CompanyName;
+    l_ContactName := ContactName;
+    TROSerializer(ASerializer).ReadWideString('ContactName', l_ContactName);
+    ContactName := l_ContactName;
+    l_ContactTitle := ContactTitle;
+    TROSerializer(ASerializer).ReadWideString('ContactTitle', l_ContactTitle);
+    ContactTitle := l_ContactTitle;
+    l_Address := Address;
+    TROSerializer(ASerializer).ReadWideString('Address', l_Address);
+    Address := l_Address;
+    l_City := City;
+    TROSerializer(ASerializer).ReadWideString('City', l_City);
+    City := l_City;
+    l_Region := Region;
+    TROSerializer(ASerializer).ReadWideString('Region', l_Region);
+    Region := l_Region;
+    l_Postalcode := Postalcode;
+    TROSerializer(ASerializer).ReadWideString('Postalcode', l_Postalcode);
+    Postalcode := l_Postalcode;
+    l_Country := Country;
+    TROSerializer(ASerializer).ReadWideString('Country', l_Country);
+    Country := l_Country;
+    l_Phone := Phone;
+    TROSerializer(ASerializer).ReadWideString('Phone', l_Phone);
+    Phone := l_Phone;
+    l_Fax := Fax;
+    TROSerializer(ASerializer).ReadWideString('Fax', l_Fax);
+    Fax := l_Fax;
+  end
+  else begin
+    l_Address := Address;
+    TROSerializer(ASerializer).ReadWideString('Address', l_Address);
+    Address := l_Address;
+    l_City := City;
+    TROSerializer(ASerializer).ReadWideString('City', l_City);
+    City := l_City;
+    l_CompanyName := CompanyName;
+    TROSerializer(ASerializer).ReadWideString('CompanyName', l_CompanyName);
+    CompanyName := l_CompanyName;
+    l_ContactName := ContactName;
+    TROSerializer(ASerializer).ReadWideString('ContactName', l_ContactName);
+    ContactName := l_ContactName;
+    l_ContactTitle := ContactTitle;
+    TROSerializer(ASerializer).ReadWideString('ContactTitle', l_ContactTitle);
+    ContactTitle := l_ContactTitle;
+    l_Country := Country;
+    TROSerializer(ASerializer).ReadWideString('Country', l_Country);
+    Country := l_Country;
+    l_CustomerID := CustomerID;
+    TROSerializer(ASerializer).ReadWideString('CustomerID', l_CustomerID);
+    CustomerID := l_CustomerID;
+    l_Fax := Fax;
+    TROSerializer(ASerializer).ReadWideString('Fax', l_Fax);
+    Fax := l_Fax;
+    l_Phone := Phone;
+    TROSerializer(ASerializer).ReadWideString('Phone', l_Phone);
+    Phone := l_Phone;
+    l_Postalcode := Postalcode;
+    TROSerializer(ASerializer).ReadWideString('Postalcode', l_Postalcode);
+    Postalcode := l_Postalcode;
+    l_Region := Region;
+    TROSerializer(ASerializer).ReadWideString('Region', l_Region);
+    Region := l_Region;
+  end;
+end;
+
+procedure Customers.WriteComplex(ASerializer: TObject);
+var
+  l_Address: WideString;
+  l_City: WideString;
+  l_CompanyName: WideString;
+  l_ContactName: WideString;
+  l_ContactTitle: WideString;
+  l_Country: WideString;
+  l_CustomerID: WideString;
+  l_Fax: WideString;
+  l_Phone: WideString;
+  l_Postalcode: WideString;
+  l_Region: WideString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(Customers);
+    l_CustomerID := CustomerID;
+    TROSerializer(ASerializer).WriteWideString('CustomerID', l_CustomerID);
+    l_CompanyName := CompanyName;
+    TROSerializer(ASerializer).WriteWideString('CompanyName', l_CompanyName);
+    l_ContactName := ContactName;
+    TROSerializer(ASerializer).WriteWideString('ContactName', l_ContactName);
+    l_ContactTitle := ContactTitle;
+    TROSerializer(ASerializer).WriteWideString('ContactTitle', l_ContactTitle);
+    l_Address := Address;
+    TROSerializer(ASerializer).WriteWideString('Address', l_Address);
+    l_City := City;
+    TROSerializer(ASerializer).WriteWideString('City', l_City);
+    l_Region := Region;
+    TROSerializer(ASerializer).WriteWideString('Region', l_Region);
+    l_Postalcode := Postalcode;
+    TROSerializer(ASerializer).WriteWideString('Postalcode', l_Postalcode);
+    l_Country := Country;
+    TROSerializer(ASerializer).WriteWideString('Country', l_Country);
+    l_Phone := Phone;
+    TROSerializer(ASerializer).WriteWideString('Phone', l_Phone);
+    l_Fax := Fax;
+    TROSerializer(ASerializer).WriteWideString('Fax', l_Fax);
+  end
+  else begin
+    l_Address := Address;
+    TROSerializer(ASerializer).WriteWideString('Address', l_Address);
+    l_City := City;
+    TROSerializer(ASerializer).WriteWideString('City', l_City);
+    l_CompanyName := CompanyName;
+    TROSerializer(ASerializer).WriteWideString('CompanyName', l_CompanyName);
+    l_ContactName := ContactName;
+    TROSerializer(ASerializer).WriteWideString('ContactName', l_ContactName);
+    l_ContactTitle := ContactTitle;
+    TROSerializer(ASerializer).WriteWideString('ContactTitle', l_ContactTitle);
+    l_Country := Country;
+    TROSerializer(ASerializer).WriteWideString('Country', l_Country);
+    l_CustomerID := CustomerID;
+    TROSerializer(ASerializer).WriteWideString('CustomerID', l_CustomerID);
+    l_Fax := Fax;
+    TROSerializer(ASerializer).WriteWideString('Fax', l_Fax);
+    l_Phone := Phone;
+    TROSerializer(ASerializer).WriteWideString('Phone', l_Phone);
+    l_Postalcode := Postalcode;
+    TROSerializer(ASerializer).WriteWideString('Postalcode', l_Postalcode);
+    l_Region := Region;
+    TROSerializer(ASerializer).WriteWideString('Region', l_Region);
+  end;
+end;
+
+{ CustomersCollection }
+constructor CustomersCollection.Create;
+begin
+  inherited Create(Customers);
+end;
+
+constructor CustomersCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function CustomersCollection.Add: Customers;
+begin
+  result := Customers(inherited Add);
+end;
+
+function CustomersCollection.GetItems(aIndex: integer): Customers;
+begin
+  result := Customers(inherited Items[aIndex]);
+end;
+
+procedure CustomersCollection.LoadFromArray(anArray: CustomersArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure CustomersCollection.SaveToArray(anArray: CustomersArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := Customers.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure CustomersCollection.SetItems(aIndex: integer; const Value: Customers);
+begin
+  Customers(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ Orders }
+
+procedure Orders.Assign(iSource: TPersistent);
+var lSource: ArraysLibrary_Intf.Orders;
+begin
+  inherited Assign(iSource);
+  if (iSource is ArraysLibrary_Intf.Orders) then begin
+    lSource := ArraysLibrary_Intf.Orders(iSource);
+    OrderID := lSource.OrderID;
+    CustomerID := lSource.CustomerID;
+    EmployeeID := lSource.EmployeeID;
+    OrderDate := lSource.OrderDate;
+    RequiredDate := lSource.RequiredDate;
+    ShippedDate := lSource.ShippedDate;
+    ShipVia := lSource.ShipVia;
+    Freight := lSource.Freight;
+    ShipName := lSource.ShipName;
+    ShipAddress := lSource.ShipAddress;
+    ShipCity := lSource.ShipCity;
+    ShipRegion := lSource.ShipRegion;
+    ShipPostalCode := lSource.ShipPostalCode;
+    ShipCountry := lSource.ShipCountry;
+  end;
+end;
+
+procedure Orders.ReadComplex(ASerializer: TObject);
+var
+  l_CustomerID: WideString;
+  l_EmployeeID: Integer;
+  l_Freight: Currency;
+  l_OrderDate: DateTime;
+  l_OrderID: Integer;
+  l_RequiredDate: DateTime;
+  l_ShipAddress: WideString;
+  l_ShipCity: WideString;
+  l_ShipCountry: WideString;
+  l_ShipName: WideString;
+  l_ShippedDate: DateTime;
+  l_ShipPostalCode: WideString;
+  l_ShipRegion: WideString;
+  l_ShipVia: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_OrderID := OrderID;
+    TROSerializer(ASerializer).ReadInteger('OrderID', otSLong, l_OrderID);
+    OrderID := l_OrderID;
+    l_CustomerID := CustomerID;
+    TROSerializer(ASerializer).ReadWideString('CustomerID', l_CustomerID);
+    CustomerID := l_CustomerID;
+    l_EmployeeID := EmployeeID;
+    TROSerializer(ASerializer).ReadInteger('EmployeeID', otSLong, l_EmployeeID);
+    EmployeeID := l_EmployeeID;
+    l_OrderDate := OrderDate;
+    TROSerializer(ASerializer).ReadDateTime('OrderDate', l_OrderDate);
+    OrderDate := l_OrderDate;
+    l_RequiredDate := RequiredDate;
+    TROSerializer(ASerializer).ReadDateTime('RequiredDate', l_RequiredDate);
+    RequiredDate := l_RequiredDate;
+    l_ShippedDate := ShippedDate;
+    TROSerializer(ASerializer).ReadDateTime('ShippedDate', l_ShippedDate);
+    ShippedDate := l_ShippedDate;
+    l_ShipVia := ShipVia;
+    TROSerializer(ASerializer).ReadInteger('ShipVia', otSLong, l_ShipVia);
+    ShipVia := l_ShipVia;
+    l_Freight := Freight;
+    TROSerializer(ASerializer).ReadDouble('Freight', ftCurr, l_Freight);
+    Freight := l_Freight;
+    l_ShipName := ShipName;
+    TROSerializer(ASerializer).ReadWideString('ShipName', l_ShipName);
+    ShipName := l_ShipName;
+    l_ShipAddress := ShipAddress;
+    TROSerializer(ASerializer).ReadWideString('ShipAddress', l_ShipAddress);
+    ShipAddress := l_ShipAddress;
+    l_ShipCity := ShipCity;
+    TROSerializer(ASerializer).ReadWideString('ShipCity', l_ShipCity);
+    ShipCity := l_ShipCity;
+    l_ShipRegion := ShipRegion;
+    TROSerializer(ASerializer).ReadWideString('ShipRegion', l_ShipRegion);
+    ShipRegion := l_ShipRegion;
+    l_ShipPostalCode := ShipPostalCode;
+    TROSerializer(ASerializer).ReadWideString('ShipPostalCode', l_ShipPostalCode);
+    ShipPostalCode := l_ShipPostalCode;
+    l_ShipCountry := ShipCountry;
+    TROSerializer(ASerializer).ReadWideString('ShipCountry', l_ShipCountry);
+    ShipCountry := l_ShipCountry;
+  end
+  else begin
+    l_CustomerID := CustomerID;
+    TROSerializer(ASerializer).ReadWideString('CustomerID', l_CustomerID);
+    CustomerID := l_CustomerID;
+    l_EmployeeID := EmployeeID;
+    TROSerializer(ASerializer).ReadInteger('EmployeeID', otSLong, l_EmployeeID);
+    EmployeeID := l_EmployeeID;
+    l_Freight := Freight;
+    TROSerializer(ASerializer).ReadDouble('Freight', ftCurr, l_Freight);
+    Freight := l_Freight;
+    l_OrderDate := OrderDate;
+    TROSerializer(ASerializer).ReadDateTime('OrderDate', l_OrderDate);
+    OrderDate := l_OrderDate;
+    l_OrderID := OrderID;
+    TROSerializer(ASerializer).ReadInteger('OrderID', otSLong, l_OrderID);
+    OrderID := l_OrderID;
+    l_RequiredDate := RequiredDate;
+    TROSerializer(ASerializer).ReadDateTime('RequiredDate', l_RequiredDate);
+    RequiredDate := l_RequiredDate;
+    l_ShipAddress := ShipAddress;
+    TROSerializer(ASerializer).ReadWideString('ShipAddress', l_ShipAddress);
+    ShipAddress := l_ShipAddress;
+    l_ShipCity := ShipCity;
+    TROSerializer(ASerializer).ReadWideString('ShipCity', l_ShipCity);
+    ShipCity := l_ShipCity;
+    l_ShipCountry := ShipCountry;
+    TROSerializer(ASerializer).ReadWideString('ShipCountry', l_ShipCountry);
+    ShipCountry := l_ShipCountry;
+    l_ShipName := ShipName;
+    TROSerializer(ASerializer).ReadWideString('ShipName', l_ShipName);
+    ShipName := l_ShipName;
+    l_ShippedDate := ShippedDate;
+    TROSerializer(ASerializer).ReadDateTime('ShippedDate', l_ShippedDate);
+    ShippedDate := l_ShippedDate;
+    l_ShipPostalCode := ShipPostalCode;
+    TROSerializer(ASerializer).ReadWideString('ShipPostalCode', l_ShipPostalCode);
+    ShipPostalCode := l_ShipPostalCode;
+    l_ShipRegion := ShipRegion;
+    TROSerializer(ASerializer).ReadWideString('ShipRegion', l_ShipRegion);
+    ShipRegion := l_ShipRegion;
+    l_ShipVia := ShipVia;
+    TROSerializer(ASerializer).ReadInteger('ShipVia', otSLong, l_ShipVia);
+    ShipVia := l_ShipVia;
+  end;
+end;
+
+procedure Orders.WriteComplex(ASerializer: TObject);
+var
+  l_CustomerID: WideString;
+  l_EmployeeID: Integer;
+  l_Freight: Currency;
+  l_OrderDate: DateTime;
+  l_OrderID: Integer;
+  l_RequiredDate: DateTime;
+  l_ShipAddress: WideString;
+  l_ShipCity: WideString;
+  l_ShipCountry: WideString;
+  l_ShipName: WideString;
+  l_ShippedDate: DateTime;
+  l_ShipPostalCode: WideString;
+  l_ShipRegion: WideString;
+  l_ShipVia: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(Orders);
+    l_OrderID := OrderID;
+    TROSerializer(ASerializer).WriteInteger('OrderID', otSLong, l_OrderID);
+    l_CustomerID := CustomerID;
+    TROSerializer(ASerializer).WriteWideString('CustomerID', l_CustomerID);
+    l_EmployeeID := EmployeeID;
+    TROSerializer(ASerializer).WriteInteger('EmployeeID', otSLong, l_EmployeeID);
+    l_OrderDate := OrderDate;
+    TROSerializer(ASerializer).WriteDateTime('OrderDate', l_OrderDate);
+    l_RequiredDate := RequiredDate;
+    TROSerializer(ASerializer).WriteDateTime('RequiredDate', l_RequiredDate);
+    l_ShippedDate := ShippedDate;
+    TROSerializer(ASerializer).WriteDateTime('ShippedDate', l_ShippedDate);
+    l_ShipVia := ShipVia;
+    TROSerializer(ASerializer).WriteInteger('ShipVia', otSLong, l_ShipVia);
+    l_Freight := Freight;
+    TROSerializer(ASerializer).WriteDouble('Freight', ftCurr, l_Freight);
+    l_ShipName := ShipName;
+    TROSerializer(ASerializer).WriteWideString('ShipName', l_ShipName);
+    l_ShipAddress := ShipAddress;
+    TROSerializer(ASerializer).WriteWideString('ShipAddress', l_ShipAddress);
+    l_ShipCity := ShipCity;
+    TROSerializer(ASerializer).WriteWideString('ShipCity', l_ShipCity);
+    l_ShipRegion := ShipRegion;
+    TROSerializer(ASerializer).WriteWideString('ShipRegion', l_ShipRegion);
+    l_ShipPostalCode := ShipPostalCode;
+    TROSerializer(ASerializer).WriteWideString('ShipPostalCode', l_ShipPostalCode);
+    l_ShipCountry := ShipCountry;
+    TROSerializer(ASerializer).WriteWideString('ShipCountry', l_ShipCountry);
+  end
+  else begin
+    l_CustomerID := CustomerID;
+    TROSerializer(ASerializer).WriteWideString('CustomerID', l_CustomerID);
+    l_EmployeeID := EmployeeID;
+    TROSerializer(ASerializer).WriteInteger('EmployeeID', otSLong, l_EmployeeID);
+    l_Freight := Freight;
+    TROSerializer(ASerializer).WriteDouble('Freight', ftCurr, l_Freight);
+    l_OrderDate := OrderDate;
+    TROSerializer(ASerializer).WriteDateTime('OrderDate', l_OrderDate);
+    l_OrderID := OrderID;
+    TROSerializer(ASerializer).WriteInteger('OrderID', otSLong, l_OrderID);
+    l_RequiredDate := RequiredDate;
+    TROSerializer(ASerializer).WriteDateTime('RequiredDate', l_RequiredDate);
+    l_ShipAddress := ShipAddress;
+    TROSerializer(ASerializer).WriteWideString('ShipAddress', l_ShipAddress);
+    l_ShipCity := ShipCity;
+    TROSerializer(ASerializer).WriteWideString('ShipCity', l_ShipCity);
+    l_ShipCountry := ShipCountry;
+    TROSerializer(ASerializer).WriteWideString('ShipCountry', l_ShipCountry);
+    l_ShipName := ShipName;
+    TROSerializer(ASerializer).WriteWideString('ShipName', l_ShipName);
+    l_ShippedDate := ShippedDate;
+    TROSerializer(ASerializer).WriteDateTime('ShippedDate', l_ShippedDate);
+    l_ShipPostalCode := ShipPostalCode;
+    TROSerializer(ASerializer).WriteWideString('ShipPostalCode', l_ShipPostalCode);
+    l_ShipRegion := ShipRegion;
+    TROSerializer(ASerializer).WriteWideString('ShipRegion', l_ShipRegion);
+    l_ShipVia := ShipVia;
+    TROSerializer(ASerializer).WriteInteger('ShipVia', otSLong, l_ShipVia);
+  end;
+end;
+
+{ OrdersCollection }
+constructor OrdersCollection.Create;
+begin
+  inherited Create(Orders);
+end;
+
+constructor OrdersCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function OrdersCollection.Add: Orders;
+begin
+  result := Orders(inherited Add);
+end;
+
+function OrdersCollection.GetItems(aIndex: integer): Orders;
+begin
+  result := Orders(inherited Items[aIndex]);
+end;
+
+procedure OrdersCollection.LoadFromArray(anArray: OrdersArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure OrdersCollection.SaveToArray(anArray: OrdersArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := Orders.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure OrdersCollection.SetItems(aIndex: integer; const Value: Orders);
+begin
+  Orders(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ Tables }
+
+procedure Tables.Assign(iSource: TPersistent);
+var lSource: ArraysLibrary_Intf.Tables;
+begin
+  inherited Assign(iSource);
+  if (iSource is ArraysLibrary_Intf.Tables) then begin
+    lSource := ArraysLibrary_Intf.Tables(iSource);
+    aCustomers.Assign(lSource.aCustomers);
+    aOrders.Assign(lSource.aOrders);
+  end;
+end;
+
+function Tables.GetaCustomers: CustomersArray;
+begin
+  if (faCustomers = nil) then faCustomers := CustomersArray.Create();
+  result := faCustomers;
+end;
+
+function Tables.GetaOrders: OrdersArray;
+begin
+  if (faOrders = nil) then faOrders := OrdersArray.Create();
+  result := faOrders;
+end;
+
+procedure Tables.ReadComplex(ASerializer: TObject);
+var
+  l_aCustomers: CustomersArray;
+  l_aOrders: OrdersArray;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_aCustomers := aCustomers;
+    TROSerializer(ASerializer).ReadArray('aCustomers', CustomersArray, l_aCustomers);
+    if aCustomers <> l_aCustomers then aCustomers.Free;
+    aCustomers := l_aCustomers;
+    l_aOrders := aOrders;
+    TROSerializer(ASerializer).ReadArray('aOrders', OrdersArray, l_aOrders);
+    if aOrders <> l_aOrders then aOrders.Free;
+    aOrders := l_aOrders;
+  end
+  else begin
+    l_aCustomers := aCustomers;
+    TROSerializer(ASerializer).ReadArray('aCustomers', CustomersArray, l_aCustomers);
+    if aCustomers <> l_aCustomers then aCustomers.Free;
+    aCustomers := l_aCustomers;
+    l_aOrders := aOrders;
+    TROSerializer(ASerializer).ReadArray('aOrders', OrdersArray, l_aOrders);
+    if aOrders <> l_aOrders then aOrders.Free;
+    aOrders := l_aOrders;
+  end;
+end;
+
+procedure Tables.WriteComplex(ASerializer: TObject);
+var
+  l_aCustomers: CustomersArray;
+  l_aOrders: OrdersArray;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(Tables);
+    l_aCustomers := aCustomers;
+    TROSerializer(ASerializer).WriteArray('aCustomers', l_aCustomers, CustomersArray);
+    l_aOrders := aOrders;
+    TROSerializer(ASerializer).WriteArray('aOrders', l_aOrders, OrdersArray);
+  end
+  else begin
+    l_aCustomers := aCustomers;
+    TROSerializer(ASerializer).WriteArray('aCustomers', l_aCustomers, CustomersArray);
+    l_aOrders := aOrders;
+    TROSerializer(ASerializer).WriteArray('aOrders', l_aOrders, OrdersArray);
+  end;
+end;
+
+{ TablesCollection }
+constructor TablesCollection.Create;
+begin
+  inherited Create(Tables);
+end;
+
+constructor TablesCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TablesCollection.Add: Tables;
+begin
+  result := Tables(inherited Add);
+end;
+
+function TablesCollection.GetItems(aIndex: integer): Tables;
+begin
+  result := Tables(inherited Items[aIndex]);
+end;
+
+procedure TablesCollection.SetItems(aIndex: integer; const Value: Tables);
+begin
+  Tables(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoArraysService }
+
+class function CoArraysService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IArraysService;
+begin
+  result := TArraysService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TArraysService_Proxy }
+
+function TArraysService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ArraysService';
+end;
+
+function TArraysService_Proxy.GetTables: Tables;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ArraysLibrary', __InterfaceName, 'GetTables');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(ArraysLibrary_Intf.Tables), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(Customers);
+  RegisterROClass(Orders);
+  RegisterROClass(Tables);
+  RegisterROClass(CustomersArray);
+  RegisterROClass(OrdersArray);
+  RegisterProxyClass(IArraysService_IID, TArraysService_Proxy);
+
+
+finalization
+  UnregisterROClass(Customers);
+  UnregisterROClass(Orders);
+  UnregisterROClass(Tables);
+  UnregisterROClass(CustomersArray);
+  UnregisterROClass(OrdersArray);
+  UnregisterProxyClass(IArraysService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary_Invk.pas
new file mode 100644
index 0000000..ac2d5c9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysLibrary_Invk.pas	
@@ -0,0 +1,69 @@
+unit ArraysLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} ArraysLibrary_Intf;
+
+type
+  TArraysService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetTables(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TArraysService_Invoker }
+
+constructor TArraysService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TArraysService_Invoker.Invoke_GetTables(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetTables: Tables; }
+var
+  lResult: ArraysLibrary_Intf.Tables;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as IArraysService).GetTables;
+
+    __Message.InitializeResponseMessage(__Transport, 'ArraysLibrary', 'ArraysService', 'GetTablesResponse');
+    __Message.Write('Result', TypeInfo(ArraysLibrary_Intf.Tables), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.bdsproj
new file mode 100644
index 0000000..67735c1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{CBD76A62-9296-40BC-AE62-7E00830DD5AB}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ArraysServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.dpr
new file mode 100644
index 0000000..4e84729
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.dpr	
@@ -0,0 +1,21 @@
+program ArraysServer;
+
+{#ROGEN:ArraysLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses 
+  uROComInit,
+  Forms,
+  ArraysServerMain in 'ArraysServerMain.pas' {ArraysServerMainForm},
+  ArraysLibrary_Intf in 'ArraysLibrary_Intf.pas',
+  ArraysLibrary_Invk in 'ArraysLibrary_Invk.pas',
+  ArraysService_Impl in 'ArraysService_Impl.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Arrays Server';
+  Application.CreateForm(TArraysServerMainForm, ArraysServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.dproj
new file mode 100644
index 0000000..78b95b3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e808bbe4-3e46-43ec-9be9-ccc484c00237}</ProjectGuid>
+    <MainSource>ArraysServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ArraysServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ArraysServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ArraysServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ArraysLibrary_Intf.pas" />
+    <DCCReference Include="ArraysLibrary_Invk.pas" />
+    <DCCReference Include="ArraysServerMain.pas">
+      <Form>ArraysServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="ArraysService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.res
new file mode 100644
index 0000000..95e15d9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServerMain.dfm
new file mode 100644
index 0000000..97749e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServerMain.dfm	
@@ -0,0 +1,59 @@
+object ArraysServerMainForm: TArraysServerMainForm
+  Left = 69
+  Top = 35
+  AutoScroll = False
+  Caption = 'Arrays Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object ROMessage: TROBinMessage
+    Left = 36
+    Top = 8
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 8
+    Top = 8
+  end
+  object ADOConnection1: TADOConnection
+    ConnectionString = 
+      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
+      'fo=False;Initial Catalog=Northwind;Data Source=localhost'
+    LoginPrompt = False
+    Provider = 'SQLOLEDB.1'
+    Left = 64
+    Top = 8
+  end
+  object tblCustomers: TADOTable
+    Connection = ADOConnection1
+    TableName = 'Customers'
+    Left = 92
+    Top = 8
+  end
+  object tblOrders: TADOTable
+    Connection = ADOConnection1
+    TableName = 'Orders'
+    Left = 120
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServerMain.pas
new file mode 100644
index 0000000..7ae6a01
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysServerMain.pas	
@@ -0,0 +1,38 @@
+unit ArraysServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROIndyTCPServer, uROIndyHTTPServer, uROBinMessage, DB, ADODB;
+
+type
+  TArraysServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    ADOConnection1: TADOConnection;
+    tblCustomers: TADOTable;
+    tblOrders: TADOTable;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ArraysServerMainForm: TArraysServerMainForm;
+
+implementation
+
+
+{$R *.dfm}
+
+procedure TArraysServerMainForm.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysService_Impl.pas
new file mode 100644
index 0000000..050f5df
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/ArraysService_Impl.pas	
@@ -0,0 +1,94 @@
+unit ArraysService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} ArraysLibrary_Intf;
+
+type
+  { TArraysService }
+  TArraysService = class(TRORemotable, IArraysService)
+  private
+  protected
+    { IArraysService methods }
+    function GetTables: Tables;
+  end;
+
+implementation
+
+uses
+  {Generated:} ArraysLibrary_Invk, ArraysServerMain;
+
+procedure Create_ArraysService(out anInstance: IUnknown);
+begin
+  anInstance := TArraysService.Create;
+end;
+
+{ ArraysService }
+
+function TArraysService.GetTables: Tables;
+begin
+  Result := Tables.Create;
+  // Customers
+  ArraysServerMainForm.tblCustomers.Close;
+  ArraysServerMainForm.tblCustomers.Open;
+  ArraysServerMainForm.tblCustomers.First;
+  while not ArraysServerMainForm.tblCustomers.Eof do begin
+    with Result.aCustomers.Add do begin
+      CustomerID := ArraysServerMainForm.tblCustomers.FieldByName('CustomerID').AsString;
+      CompanyName := ArraysServerMainForm.tblCustomers.FieldByName('CompanyName').AsString;
+      ContactName := ArraysServerMainForm.tblCustomers.FieldByName('ContactName').AsString;
+      ContactTitle := ArraysServerMainForm.tblCustomers.FieldByName('ContactTitle').AsString;
+      Address := ArraysServerMainForm.tblCustomers.FieldByName('Address').AsString;
+      City := ArraysServerMainForm.tblCustomers.FieldByName('City').AsString;
+      Region := ArraysServerMainForm.tblCustomers.FieldByName('Region').AsString;
+      Postalcode := ArraysServerMainForm.tblCustomers.FieldByName('Postalcode').AsString;
+      Country := ArraysServerMainForm.tblCustomers.FieldByName('Country').AsString;
+      Phone := ArraysServerMainForm.tblCustomers.FieldByName('Phone').AsString;
+      Fax := ArraysServerMainForm.tblCustomers.FieldByName('Fax').AsString;
+    end;
+    ArraysServerMainForm.tblCustomers.Next;
+  end;
+  ArraysServerMainForm.tblCustomers.Close;
+  // orders
+  ArraysServerMainForm.tblOrders.Close;
+  ArraysServerMainForm.tblOrders.Open;
+  ArraysServerMainForm.tblOrders.First;
+  while not ArraysServerMainForm.tblOrders.Eof do begin
+    with Result.aOrders.Add do begin
+      OrderID := ArraysServerMainForm.tblOrders.FieldByName('OrderID').AsInteger;
+      CustomerID := ArraysServerMainForm.tblOrders.FieldByName('CustomerID').AsString;
+      EmployeeID := ArraysServerMainForm.tblOrders.FieldByName('EmployeeID').AsInteger;
+      OrderDate := ArraysServerMainForm.tblOrders.FieldByName('OrderDate').AsDateTime;
+      RequiredDate := ArraysServerMainForm.tblOrders.FieldByName('RequiredDate').AsDateTime;
+      ShippedDate := ArraysServerMainForm.tblOrders.FieldByName('ShippedDate').AsDateTime;
+      ShipVia := ArraysServerMainForm.tblOrders.FieldByName('ShipVia').AsInteger;
+      Freight := ArraysServerMainForm.tblOrders.FieldByName('Freight').AsCurrency;
+      ShipName := ArraysServerMainForm.tblOrders.FieldByName('ShipName').AsString;
+      ShipAddress := ArraysServerMainForm.tblOrders.FieldByName('ShipAddress').AsString;
+      ShipCity := ArraysServerMainForm.tblOrders.FieldByName('ShipCity').AsString;
+      ShipRegion := ArraysServerMainForm.tblOrders.FieldByName('ShipRegion').AsString;
+      ShipPostalCode := ArraysServerMainForm.tblOrders.FieldByName('ShipPostalCode').AsString;
+      ShipCountry := ArraysServerMainForm.tblOrders.FieldByName('ShipCountry').AsString;
+    end;
+    ArraysServerMainForm.tblOrders.Next;
+  end;
+  ArraysServerMainForm.tblOrders.Close;
+end;
+
+initialization
+  TROClassFactory.Create('ArraysService', Create_ArraysService, TArraysService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/RODLFILE.res
new file mode 100644
index 0000000..b99acfe
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Arrays/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.bdsproj
new file mode 100644
index 0000000..69a9d3f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1A78F07E-70B5-4A8C-8993-555593A8695E}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">AsyncClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.dpr
new file mode 100644
index 0000000..1bd218c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.dpr	
@@ -0,0 +1,15 @@
+program AsyncClient;
+
+uses
+  Forms,
+  AsyncClientMain in 'AsyncClientMain.pas' {AsyncClientMainForm},
+  async_EmailSettings in 'async_EmailSettings.pas' {async_EmailSettingsForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Async Client';
+  Application.CreateForm(TAsyncClientMainForm, AsyncClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.dproj
new file mode 100644
index 0000000..8bd81a6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{8d3e5e25-35fa-4504-9b6f-2d5ac5d5b9f0}</ProjectGuid>
+    <MainSource>AsyncClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>AsyncClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">AsyncClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="AsyncClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="AsyncClientMain.pas">
+      <Form>AsyncClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.res
new file mode 100644
index 0000000..0f940ed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClientMain.dfm
new file mode 100644
index 0000000..9a2f2e5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClientMain.dfm	
@@ -0,0 +1,178 @@
+object AsyncClientMainForm: TAsyncClientMainForm
+  Left = 518
+  Top = 137
+  BorderStyle = bsDialog
+  Caption = 'Async Client'
+  ClientHeight = 326
+  ClientWidth = 241
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 32
+    Top = 11
+    Width = 35
+    Height = 13
+    Caption = 'Value 1'
+  end
+  object Label2: TLabel
+    Left = 32
+    Top = 35
+    Width = 35
+    Height = 13
+    Caption = 'Value 2'
+  end
+  object Label3: TLabel
+    Left = 32
+    Top = 59
+    Width = 20
+    Height = 13
+    Caption = 'Sum'
+  end
+  object Label4: TLabel
+    Left = 32
+    Top = 308
+    Width = 35
+    Height = 13
+    Caption = 'Status:'
+  end
+  object lbl_Status: TLabel
+    Left = 72
+    Top = 308
+    Width = 3
+    Height = 13
+  end
+  object ed_Value1: TEdit
+    Left = 80
+    Top = 8
+    Width = 121
+    Height = 21
+    TabOrder = 0
+    Text = '5'
+  end
+  object ed_Value2: TEdit
+    Left = 80
+    Top = 32
+    Width = 121
+    Height = 21
+    TabOrder = 1
+    Text = '8'
+  end
+  object CalcLiveButton: TButton
+    Left = 32
+    Top = 88
+    Width = 169
+    Height = 22
+    Caption = 'Calc Live (This will take 10 secs!)'
+    TabOrder = 2
+    OnClick = CalcLiveButtonClick
+  end
+  object CalcAsyncHttpButton: TButton
+    Left = 32
+    Top = 128
+    Width = 169
+    Height = 22
+    Caption = 'Calc Async (Http)'
+    TabOrder = 3
+    OnClick = CalcAsyncHttpButtonClick
+  end
+  object GetResultButton: TButton
+    Left = 32
+    Top = 271
+    Width = 169
+    Height = 22
+    Caption = 'Retrieve Result'
+    Enabled = False
+    TabOrder = 4
+    OnClick = GetResultButtonClick
+  end
+  object ed_Result: TEdit
+    Left = 80
+    Top = 56
+    Width = 121
+    Height = 21
+    ParentColor = True
+    ReadOnly = True
+    TabOrder = 5
+  end
+  object CheckForAnswerBytton: TButton
+    Left = 32
+    Top = 248
+    Width = 169
+    Height = 22
+    Caption = 'Check if Answer is Available'
+    Enabled = False
+    TabOrder = 6
+    OnClick = CheckForAnswerByttonClick
+  end
+  object CalcAsyncUdpButton: TButton
+    Left = 32
+    Top = 150
+    Width = 169
+    Height = 22
+    Caption = 'Calc Async (UDP)'
+    TabOrder = 7
+    OnClick = CalcAsyncUdpButtonClick
+  end
+  object btn_CalcAsyncEmail: TButton
+    Left = 32
+    Top = 172
+    Width = 169
+    Height = 22
+    Caption = 'Calc Async (Email)'
+    TabOrder = 8
+    OnClick = btn_CalcAsyncEmailClick
+  end
+  object bSetupEmailSettings: TButton
+    Left = 32
+    Top = 197
+    Width = 169
+    Height = 22
+    Caption = 'Setup of email settings...'
+    TabOrder = 9
+    OnClick = bSetupEmailSettingsClick
+  end
+  object ROBINMessage1: TROBinMessage
+    Top = 296
+  end
+  object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/bin'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 32
+    Top = 296
+  end
+  object ROIndyUDPChannel1: TROIndyUDPChannel
+    AsyncTimeOut = 50000
+    Retrys = 5
+    IndyClient.Port = 8098
+    Port = 8098
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 64
+    Top = 296
+  end
+  object ROEmailChannel: TROEmailChannel
+    Pop3ServerAddress = 'mail.elitedev.com'
+    SmtpServerAddress = 'mail.elitedev.com'
+    ServerEmail = 'testserver@remobjects.com'
+    ClientEmail = 'testclient@remobjects.com'
+    SmtpClient.Host = 'mail.elitedev.com'
+    Pop3Client.Host = 'mail.elitedev.com'
+    Pop3Client.Password = 'testclient'
+    Pop3Password = 'testclient'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 93
+    Top = 295
+  end
+  object ROPostMessage: TROPostMessage
+    Left = 122
+    Top = 297
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClientMain.pas
new file mode 100644
index 0000000..9304efb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncClientMain.pas	
@@ -0,0 +1,246 @@
+unit AsyncClientMain;
+
+interface
+{$I RemObjects.inc}
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, uROWinInetHttpChannel,
+  uROClient, uROBINMessage,
+  AsyncLibrary_Async, ExtCtrls, uROIndyUDPChannel, uROPostMessage,
+  uROIndyEmailChannel;
+
+type
+  TAsyncClientMainForm = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    lbl_Status: TLabel;
+    ed_Value1: TEdit;
+    ed_Value2: TEdit;
+    CalcLiveButton: TButton;
+    CalcAsyncHttpButton: TButton;
+    GetResultButton: TButton;
+    ed_Result: TEdit;
+    CheckForAnswerBytton: TButton;
+    CalcAsyncUdpButton: TButton;
+    ROBINMessage1: TROBinMessage;
+    ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
+    ROIndyUDPChannel1: TROIndyUDPChannel;
+    btn_CalcAsyncEmail: TButton;
+    bSetupEmailSettings: TButton;
+    ROEmailChannel: TROEmailChannel;
+    ROPostMessage: TROPostMessage;
+    procedure CalcLiveButtonClick(Sender: TObject);
+    procedure CalcAsyncHttpButtonClick(Sender: TObject);
+    procedure GetResultButtonClick(Sender: TObject);
+    procedure CheckForAnswerByttonClick(Sender: TObject);
+    procedure CalcAsyncUdpButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure btn_CalcAsyncEmailClick(Sender: TObject);
+    procedure bSetupEmailSettingsClick(Sender: TObject);
+  protected
+    fAsyncService: IAsyncService_Async;
+    procedure AdjustButtons; 
+    procedure SetupEmailClient;
+  public
+    { Public declarations }
+  end;
+
+var
+  AsyncClientMainForm: TAsyncClientMainForm;
+
+implementation
+uses
+  AsyncLibrary_Intf, IdStack, async_Emailsettings, IdSMTP;
+
+
+{$R *.dfm}
+
+procedure TAsyncClientMainForm.CalcLiveButtonClick(Sender: TObject);
+begin
+  Screen.Cursor := crHourGlass;
+  try
+    with CoAsyncService.Create(ROBINMessage1, ROWinInetHTTPChannel1) do begin
+      ed_Result.Text := '';
+      ed_Result.Repaint();
+      ed_Result.Text := IntToStr(Sum(StrToInt(ed_Value1.Text), StrToInt(ed_Value2.Text)));
+    end; { with }
+  finally
+    Screen.Cursor := crDefault;
+  end; { try/finally }
+end;
+
+procedure TAsyncClientMainForm.CalcAsyncHttpButtonClick(Sender: TObject);
+begin
+  Screen.Cursor := crHourGlass;
+  try
+
+    if not Assigned(fAsyncService) then
+      fAsyncService := CoAsyncService_Async.Create(ROBINMessage1, ROWinInetHTTPChannel1);
+
+    ed_Result.Text := '';
+    ed_Result.Repaint();
+
+    fAsyncService.Invoke_Sum(StrToInt(ed_Value1.Text), StrToInt(ed_Value2.Text));
+    AdjustButtons();
+
+  finally
+    Screen.Cursor := crDefault;
+  end;
+
+  ShowMessage('The request has been sent to the Server.'#13'Click "Retrieve Result" to check if an answer has been received yet.');
+end;
+
+procedure TAsyncClientMainForm.CalcAsyncUdpButtonClick(Sender: TObject);
+begin
+  Screen.Cursor := crHourGlass;
+  try
+
+    if not Assigned(fAsyncService) then
+      fAsyncService := CoAsyncService_Async.Create(ROBINMessage1, ROIndyUDPChannel1);
+
+    ed_Result.Text := '';
+    ed_Result.Repaint();
+
+    fAsyncService.Invoke_Sum(StrToInt(ed_Value1.Text), StrToInt(ed_Value2.Text));
+    AdjustButtons();
+
+  finally
+    Screen.Cursor := crDefault;
+  end;
+
+  ShowMessage('The request has been sent to the Server.'#13'Click "Retrieve Result" to check if an answer has been received yet.');
+end;
+
+procedure TAsyncClientMainForm.GetResultButtonClick(Sender: TObject);
+begin
+  if not Assigned(fAsyncService) then exit;
+
+  Screen.Cursor := crHourGlass;
+  try
+
+    if fAsyncService.AnswerReceived then begin
+      ed_Result.Text := IntToStr(fAsyncService.Retrieve_Sum());
+      fAsyncService := nil;
+      lbl_Status.Caption := 'Idle';
+    end
+    else begin
+      ShowMessage('Sorry, no answer yet.');
+    end;
+    AdjustButtons();
+
+  finally
+    Screen.Cursor := crDefault;
+  end;
+end;
+
+procedure TAsyncClientMainForm.CheckForAnswerByttonClick(Sender: TObject);
+begin
+  Screen.Cursor := crHourGlass;
+  try
+
+    if Assigned(fAsyncService) then begin
+      if fAsyncService.AnswerReceived then begin
+        lbl_Status.Caption := 'Answer Received';
+        ShowMessage('Answer received!');
+      end
+      else if fAsyncService.Busy then begin
+        lbl_Status.Caption := 'Busy';
+        ShowMessage('Sorry, no answer yet.');
+      end
+      else begin
+        lbl_Status.Caption := 'Idle';
+        ShowMessage('Sorry, no answer yet.');
+      end;
+    end;
+
+  finally
+    Screen.Cursor := crDefault;
+  end;
+end;
+
+procedure TAsyncClientMainForm.AdjustButtons;
+begin
+  CalcAsyncHttpButton.Enabled := not Assigned(fAsyncService);
+  CalcAsyncUdpButton.Enabled := not Assigned(fAsyncService);
+  GetResultButton.Enabled := Assigned(fAsyncService);
+  CheckForAnswerBytton.Enabled := Assigned(fAsyncService);
+  btn_CalcAsyncEmail.Enabled := not Assigned(fAsyncService);  
+end;
+
+procedure TAsyncClientMainForm.SetupEmailClient;
+begin
+  ROEmailChannel.ServerEmail := ServerEmail;
+  ROEmailChannel.ClientEmail := ClientEmail;
+  {$IFDEF RemObjects_INDY8}
+  ROEmailChannel.Pop3Client.UserId := POP3UserName;
+  ROEmailChannel.SmtpClient.UserId := SMTPUserName;
+  {$ELSE}
+  ROEmailChannel.Pop3Client.Username := POP3UserName;
+  ROEmailChannel.SmtpClient.Username := SMTPUserName;
+  {$ENDIF}
+  {$IFDEF RemObjects_INDY10C}
+    if SMTPUserName <> '' then
+      ROEmailChannel.SmtpClient.AuthType := satDefault
+    else
+      ROEmailChannel.SmtpClient.AuthType := satNone;
+  {$ELSE}
+    {$IFDEF RemObjects_INDY10}
+    if SMTPUserName <> '' then
+      ROEmailChannel.SmtpClient.AuthType := atDefault
+    else
+      ROEmailChannel.SmtpClient.AuthType := atNone;
+    {$ELSE}
+    if SMTPUserName <> '' then
+      ROEmailChannel.SmtpClient.AuthenticationType := atLogin
+    else
+      ROEmailChannel.SmtpClient.AuthenticationType := atNone;
+    {$ENDIF}
+  {$ENDIF}
+  ROEmailChannel.Pop3Client.Password := Pop3Password;
+  ROEmailChannel.Pop3Client.Host := POP3host;
+  ROEmailChannel.Pop3Client.Port := POP3Port;
+  ROEmailChannel.SmtpClient.Password := SMTPPassword;
+  ROEmailChannel.SmtpClient.Host := SMTPhost;
+  ROEmailChannel.SmtpClient.Port := SMTPPort;
+end;
+
+procedure TAsyncClientMainForm.FormCreate(Sender: TObject);
+begin
+  async_Emailsettings.LoadEmailSettings;
+end;
+
+procedure TAsyncClientMainForm.bSetupEmailSettingsClick(Sender: TObject);
+begin
+  async_Emailsettings.SetupEmailSettings(True);
+  SetupEmailClient;
+end;
+
+procedure TAsyncClientMainForm.btn_CalcAsyncEmailClick(Sender: TObject);
+begin
+  if SMTPhost = 'smtphost' then async_Emailsettings.SetupEmailSettings(True);
+  SetupEmailClient;
+
+  Screen.Cursor := crHourGlass;
+  try
+
+    if not Assigned(fAsyncService) then
+      fAsyncService := CoAsyncService_Async.Create(ROPostMessage, ROEmailChannel);
+
+    ed_Result.Text := '';
+    ed_Result.Repaint();
+
+    fAsyncService.Invoke_Sum(StrToInt(ed_Value1.Text), StrToInt(ed_Value2.Text));
+    lbl_Status.Caption := 'Busy';
+    AdjustButtons();
+
+  finally
+    Screen.Cursor := crDefault;
+  end;
+
+  ShowMessage('The request has been sent to the Server.'#13'Click "Retrieve Result" to check if an answer has been received yet.');
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.Sample.html
new file mode 100644
index 0000000..70d7b54
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.Sample.html	
@@ -0,0 +1,31 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Async Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+<p>This sample shows how to call methods on a RemObjects SDK server asynchronously. There may be times where you want to submit a request for information and defer receiving the result until a bit later.</p>
+
+<p>
+  A very simple calculation (Sum) is performed, but this has a built in ten second delay so that it is possible to query the server before the calculation is completed.<br>
+</p>
+
+<h2>Getting Started</h2>
+<ul>
+<li>Compile and launch the server.</li>
+<li>Compile and run the client.</li>
+<li>Click on the <b>Calc Live</b> button to verify that the connection works.</li>
+<li>Try one or both of the <b>Calc Async</b> buttons and then try checking and/or receiving the result before and after ten seconds have passed.</li>
+</lu>
+
+</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.bdsgroup
new file mode 100644
index 0000000..f6ce983
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{E0A50BA1-0636-4593-90FE-0C133A79288D}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="AsyncServer.exe">AsyncServer.bdsproj</Projects>
+      <Projects Name="AsyncClient.exe">AsyncClient.bdsproj</Projects>
+      <Projects Name="Targets">AsyncServer.exe AsyncClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.bpg
new file mode 100644
index 0000000..0dabf49
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = AsyncServer.exe AsyncClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+AsyncServer.exe: AsyncServer.dpr
+  $(DCC)
+
+AsyncClient.exe: AsyncClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.groupproj
new file mode 100644
index 0000000..38cad47
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncGroup.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{cdfc88bc-0e18-4996-9f16-38b101e7bef5}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="AsyncServer">
+    <MSBuild Projects="AsyncServer.dproj" Targets="" />
+  </Target>
+  <Target Name="AsyncServer:Clean">
+    <MSBuild Projects="AsyncServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="AsyncServer:Make">
+    <MSBuild Projects="AsyncServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="AsyncClient">
+    <MSBuild Projects="AsyncClient.dproj" Targets="" />
+  </Target>
+  <Target Name="AsyncClient:Clean">
+    <MSBuild Projects="AsyncClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="AsyncClient:Make">
+    <MSBuild Projects="AsyncClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="AsyncServer;AsyncClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="AsyncServer:Clean;AsyncClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="AsyncServer:Make;AsyncClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary.rodl
new file mode 100644
index 0000000..de2a7b6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary.rodl	
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="AsyncLibrary" UID="{D34B1991-1F3D-47A0-9984-50FE83013C35}" Version="3.0">
+<Services>
+<Service Name="AsyncService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{D34B1991-1F3D-47A0-9984-50FE83013C35}">
+<Documentation>
+<![CDATA[Service_CalcServer__This_service_has_been_automatically_generated_using_the_RODL_template_you_can_find_in_the_Templates_directory_]]>
+</Documentation>
+<Operations>
+<Operation Name="Sum" UID="{D34B1991-1F3D-47A0-9984-50FE83013C35}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="A" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="B" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Async.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Async.pas
new file mode 100644
index 0000000..6b03b78
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Async.pas	
@@ -0,0 +1,91 @@
+unit AsyncLibrary_Async;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROTypes, uROClientIntf, uROAsync,
+  {Project:} AsyncLibrary_Intf;
+
+type
+  IAsyncService_Async = interface;
+  CoAsyncService_Async = class;
+  TAsyncService_AsyncProxy = class;
+  { IAsyncService_Async }
+  IAsyncService_Async = interface(IROAsyncInterface)
+    ['{C9A9233F-C987-4EA6-A9AC-21B98FC33212}']
+    procedure Invoke_Sum(const A: Integer; const B: Integer);
+    function Retrieve_Sum: Integer;
+  end;
+
+  { CoAsyncService_Async }
+  CoAsyncService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IAsyncService_Async;
+  end;
+
+  { TAsyncService_AsyncProxy }
+  TAsyncService_AsyncProxy = class(TROAsyncProxy, IAsyncService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_Sum(const A: Integer; const B: Integer);
+    function Retrieve_Sum: Integer;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils;
+
+{ CoAsyncService }
+
+class function CoAsyncService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IAsyncService_Async;
+begin
+  result := TAsyncService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TAsyncService_AsyncProxy }
+
+function TAsyncService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'AsyncService';
+end;
+
+procedure TAsyncService_AsyncProxy.Invoke_Sum(const A: Integer; const B: Integer);
+var __request:TStream;
+begin
+  __AssertProxyNotBusy('Sum');
+  __request := TMemoryStream.Create;
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'AsyncLibrary', __InterfaceName, 'Sum');
+  __Message.Write('A', TypeInfo(Integer), A, []);
+  __Message.Write('B', TypeInfo(Integer), B, []);
+  __Message.Finalize;
+
+  __Message.WriteToStream(__request);
+  __DispatchAsyncRequest('Sum',__request);
+end;
+
+function TAsyncService_AsyncProxy.Retrieve_Sum: Integer;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('Sum');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Integer), Result, []);
+
+  __response.Free();
+end;
+
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Intf.pas
new file mode 100644
index 0000000..4b451b1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Intf.pas	
@@ -0,0 +1,97 @@
+unit AsyncLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{D34B1991-1F3D-47A0-9984-50FE83013C35}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IAsyncService_IID : TGUID = '{D34B1991-1F3D-47A0-9984-50FE83013C35}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IAsyncService = interface;
+
+
+  { IAsyncService }
+  IAsyncService = interface
+    ['{D34B1991-1F3D-47A0-9984-50FE83013C35}']
+    function Sum(const A: Integer; const B: Integer): Integer;
+  end;
+
+  { CoAsyncService }
+  CoAsyncService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IAsyncService;
+  end;
+
+  { TAsyncService_Proxy }
+  TAsyncService_Proxy = class(TROProxy, IAsyncService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Sum(const A: Integer; const B: Integer): Integer;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoAsyncService }
+
+class function CoAsyncService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IAsyncService;
+begin
+  result := TAsyncService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TAsyncService_Proxy }
+
+function TAsyncService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'AsyncService';
+end;
+
+function TAsyncService_Proxy.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'AsyncLibrary', __InterfaceName, 'Sum');
+    __Message.Write('A', TypeInfo(Integer), A, []);
+    __Message.Write('B', TypeInfo(Integer), B, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IAsyncService_IID, TAsyncService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IAsyncService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Invk.pas
new file mode 100644
index 0000000..bdf2aff
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncLibrary_Invk.pas	
@@ -0,0 +1,66 @@
+unit AsyncLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} AsyncLibrary_Intf;
+
+type
+  TAsyncService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TAsyncService_Invoker }
+
+constructor TAsyncService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TAsyncService_Invoker.Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Sum(const A: Integer; const B: Integer): Integer; }
+var
+  A: Integer;
+  B: Integer;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('A', TypeInfo(Integer), A, []);
+    __Message.Read('B', TypeInfo(Integer), B, []);
+
+    lResult := (__Instance as IAsyncService).Sum(A, B);
+
+    __Message.InitializeResponseMessage(__Transport, 'AsyncLibrary', 'AsyncService', 'SumResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.bdsproj
new file mode 100644
index 0000000..8dd85e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{4461387A-7C30-4DB4-836E-3A0C1C86E8DA}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">AsyncServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.dpr
new file mode 100644
index 0000000..28fd934
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.dpr	
@@ -0,0 +1,21 @@
+program AsyncServer;
+
+{#ROGEN:AsyncLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  Forms,
+  AsyncServerMain in 'AsyncServerMain.pas' {AsyncServerMainForm},
+  AsyncLibrary_Intf in 'AsyncLibrary_Intf.pas',
+  AsyncLibrary_Invk in 'AsyncLibrary_Invk.pas',
+  AsyncService_Impl in 'AsyncService_Impl.pas',
+  async_EmailSettings in 'async_EmailSettings.pas' {async_EmailSettingsForm};
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Async Server';
+  Application.CreateForm(TAsyncServerMainForm, AsyncServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.dproj
new file mode 100644
index 0000000..66c408a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e99efd90-17b4-4f10-86db-c8fd2896599d}</ProjectGuid>
+    <MainSource>AsyncServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>AsyncServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">AsyncServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="AsyncServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="AsyncLibrary_Intf.pas" />
+    <DCCReference Include="AsyncLibrary_Invk.pas" />
+    <DCCReference Include="AsyncServerMain.pas">
+      <Form>AsyncServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="AsyncService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.res
new file mode 100644
index 0000000..53aa370
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServerMain.dfm
new file mode 100644
index 0000000..35eb1aa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServerMain.dfm	
@@ -0,0 +1,84 @@
+object AsyncServerMainForm: TAsyncServerMainForm
+  Left = 644
+  Top = 151
+  BorderStyle = bsDialog
+  Caption = 'Async Server'
+  ClientHeight = 98
+  ClientWidth = 227
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object bSetupEmailSettings: TButton
+    Left = 13
+    Top = 69
+    Width = 206
+    Height = 25
+    Caption = 'Setup of email settings...'
+    TabOrder = 0
+    OnClick = bSetupEmailSettingsClick
+  end
+  object ROMessage: TROBinMessage
+    Left = 40
+    Top = 8
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'BIN'
+      end>
+    Port = 8099
+    Left = 8
+    Top = 8
+  end
+  object ROIndyUDPServer1: TROIndyUDPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    IndyUDPServer.Bindings = <>
+    IndyUDPServer.DefaultPort = 8098
+    Port = 8098
+    Left = 72
+    Top = 8
+  end
+  object ROEmailServer: TROEmailServer
+    Dispatchers = <
+      item
+        Name = 'PostMessage'
+        Message = PostMessage
+        Enabled = True
+      end>
+    Pop3ServerAddress = 'mail.remobjects.com'
+    SmtpServerAddress = 'mail.remobjects.com'
+    ServerEmail = 'testserver@remobjects.com'
+    SmtpClient.Host = 'mail.remobjects.com'
+    SmtpClient.Password = 'testserver'
+    Pop3Client.Host = 'mail.remobjects.com'
+    Pop3Client.Password = 'testserver'
+    Pop3Password = 'testserver'
+    OnException = ROEmailServerException
+    Left = 104
+    Top = 8
+  end
+  object PostMessage: TROPostMessage
+    Left = 135
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServerMain.pas
new file mode 100644
index 0000000..3802dcd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncServerMain.pas	
@@ -0,0 +1,108 @@
+unit AsyncServerMain;
+
+interface
+{$I RemObjects.inc}
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer,
+  uROPoweredByRemObjectsButton,
+  uROIndyUDPServer, uROPostMessage, uROIndyEmailServer, uROIndyTCPServer,
+  uROIndyHTTPServer;
+
+type
+  TAsyncServerMainForm = class(TForm)
+    ROMessage: TROBINMessage;
+    ROServer: TROIndyHTTPServer;
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ROIndyUDPServer1: TROIndyUDPServer;
+    bSetupEmailSettings: TButton;
+    ROEmailServer: TROEmailServer;
+    PostMessage: TROPostMessage;
+    procedure FormCreate(Sender: TObject);
+    procedure bSetupEmailSettingsClick(Sender: TObject);
+    procedure ROEmailServerException(aSender: TObject;
+      aExceptionClass: TClass; const aExceptionMessage: String);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+  private
+    procedure SetupEmailServer;    
+  end;
+
+var
+  AsyncServerMainForm: TAsyncServerMainForm;
+
+implementation
+
+uses
+  async_EmailSettings, IdSMTP,
+  IdStack;
+
+{$R *.DFM}
+
+procedure TAsyncServerMainForm.FormCreate(Sender: TObject);
+begin
+  async_EmailSettings.LoadEmailSettings;
+  if POP3host = 'pop3host' then async_EmailSettings.SetupEmailSettings(False);
+  SetupEmailServer;
+  ROServer.Active := True;
+  ROIndyUDPServer1.Active := True;
+  ROEmailServer.Active:=True;
+end;
+
+procedure TAsyncServerMainForm.bSetupEmailSettingsClick(Sender: TObject);
+begin
+  async_EmailSettings.SetupEmailSettings(False);
+  SetupEmailServer;
+end;
+
+procedure TAsyncServerMainForm.ROEmailServerException(aSender: TObject;
+  aExceptionClass: TClass; const aExceptionMessage: String);
+begin
+  ShowMessage('There was a problem in the Email Server Thread:'#13#13 + aExceptionClass.ClassName + ': ' + aExceptionMessage);
+end;
+
+procedure TAsyncServerMainForm.SetupEmailServer;
+begin
+  ROEmailServer.Active := False;
+  ROEmailServer.ServerEmail := ServerEmail;
+  {$IFDEF RemObjects_INDY8}
+  ROEmailServer.Pop3Client.UserId := POP3UserName;
+  ROEmailServer.SmtpClient.UserId := SMTPUserName;
+  {$ELSE}
+  ROEmailServer.Pop3Client.Username := POP3UserName;
+  ROEmailServer.SmtpClient.Username := SMTPUserName;
+  {$ENDIF}
+  ROEmailServer.Pop3Client.Password := Pop3Password;
+  ROEmailServer.Pop3Client.Host := POP3host;
+  ROEmailServer.Pop3Client.Port := POP3Port;
+  ROEmailServer.SmtpClient.Password := SMTPPassword;
+  ROEmailServer.SmtpClient.Host := SMTPhost;
+  ROEmailServer.SmtpClient.Port := SMTPPort;
+  {$IFDEF RemObjects_INDY10C}
+    if SMTPUserName <> '' then
+      ROEmailServer.SmtpClient.AuthType := satDefault
+    else
+      ROEmailServer.SmtpClient.AuthType := satNone;
+  {$ELSE}
+    {$IFDEF RemObjects_INDY10}
+    if SMTPUserName <> '' then
+      ROEmailServer.SmtpClient.AuthType := atDefault
+    else
+      ROEmailServer.SmtpClient.AuthType := atNone;
+    {$ELSE}
+    if SMTPUserName <> '' then
+      ROEmailServer.SmtpClient.AuthenticationType := atLogin
+    else
+      ROEmailServer.SmtpClient.AuthenticationType := atNone;
+    {$ENDIF}
+  {$ENDIF}
+  ROEmailServer.Active := True;
+end;
+
+procedure TAsyncServerMainForm.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  ROEmailServer.Active := False;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncService_Impl.pas
new file mode 100644
index 0000000..64cc650
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/AsyncService_Impl.pas	
@@ -0,0 +1,50 @@
+unit AsyncService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} AsyncLibrary_Intf;
+
+type
+  { TAsyncService }
+  TAsyncService = class(TRORemotable, IAsyncService)
+  private
+  protected
+    { IAsyncService methods }
+    function Sum(const A: Integer; const B: Integer): Integer;
+  end;
+
+implementation
+
+uses
+  {Generated:} AsyncLibrary_Invk;
+
+procedure Create_AsyncService(out anInstance: IUnknown);
+begin
+  anInstance := TAsyncService.Create;
+end;
+
+{ AsyncService }
+
+function TAsyncService.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  Result := A + B;
+  Sleep(10000); { Simulate that calculations actually took 10 seconds. }
+end;
+
+initialization
+  TROClassFactory.Create('AsyncService', Create_AsyncService, TAsyncService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/RODLFILE.res
new file mode 100644
index 0000000..4521a5d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/async_EmailSettings.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/async_EmailSettings.dfm
new file mode 100644
index 0000000..f855162
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/async_EmailSettings.dfm	
@@ -0,0 +1,225 @@
+object async_EmailSettingsForm: Tasync_EmailSettingsForm
+  Left = 388
+  Top = 181
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'Email Settings'
+  ClientHeight = 173
+  ClientWidth = 492
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label9: TLabel
+    Left = 12
+    Top = 124
+    Width = 61
+    Height = 13
+    Caption = 'Server email:'
+  end
+  object lClientEmail: TLabel
+    Left = 256
+    Top = 124
+    Width = 56
+    Height = 13
+    Caption = 'Client email:'
+  end
+  object GroupBox1: TGroupBox
+    Left = 3
+    Top = 2
+    Width = 240
+    Height = 114
+    Caption = 'POP3'
+    TabOrder = 0
+    DesignSize = (
+      240
+      114)
+    object Label1: TLabel
+      Left = 9
+      Top = 17
+      Width = 25
+      Height = 13
+      Caption = 'Host:'
+    end
+    object Label2: TLabel
+      Left = 9
+      Top = 41
+      Width = 22
+      Height = 13
+      Caption = 'Port:'
+    end
+    object Label3: TLabel
+      Left = 9
+      Top = 65
+      Width = 51
+      Height = 13
+      Caption = 'Username:'
+    end
+    object Label4: TLabel
+      Left = 9
+      Top = 89
+      Width = 49
+      Height = 13
+      Caption = 'Password:'
+    end
+    object ePOP3Host: TEdit
+      Left = 85
+      Top = 13
+      Width = 150
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 0
+    end
+    object ePOP3Port: TMaskEdit
+      Left = 85
+      Top = 37
+      Width = 49
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      EditMask = '99990;1; '
+      MaxLength = 5
+      TabOrder = 1
+      Text = '     '
+    end
+    object ePOP3Usename: TEdit
+      Left = 85
+      Top = 61
+      Width = 150
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 2
+    end
+    object ePOP3Password: TEdit
+      Left = 85
+      Top = 85
+      Width = 150
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 3
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 247
+    Top = 2
+    Width = 240
+    Height = 114
+    Caption = 'SMTP'
+    TabOrder = 1
+    DesignSize = (
+      240
+      114)
+    object Label5: TLabel
+      Left = 9
+      Top = 17
+      Width = 25
+      Height = 13
+      Caption = 'Host:'
+    end
+    object Label6: TLabel
+      Left = 9
+      Top = 41
+      Width = 22
+      Height = 13
+      Caption = 'Port:'
+    end
+    object lSMTPUserName: TLabel
+      Left = 9
+      Top = 65
+      Width = 51
+      Height = 13
+      Anchors = [akLeft, akBottom]
+      Caption = 'Username:'
+    end
+    object lSMTPPassword: TLabel
+      Left = 9
+      Top = 89
+      Width = 49
+      Height = 13
+      Anchors = [akLeft, akBottom]
+      Caption = 'Password:'
+    end
+    object eSMTPHost: TEdit
+      Left = 85
+      Top = 13
+      Width = 150
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 0
+    end
+    object eSMTPPort: TMaskEdit
+      Left = 85
+      Top = 37
+      Width = 49
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      EditMask = '99990;1; '
+      MaxLength = 5
+      TabOrder = 1
+      Text = '     '
+    end
+    object eSMTPUserName: TEdit
+      Left = 85
+      Top = 61
+      Width = 150
+      Height = 21
+      Anchors = [akLeft, akRight, akBottom]
+      TabOrder = 2
+    end
+    object eSMTPPassword: TEdit
+      Left = 85
+      Top = 85
+      Width = 150
+      Height = 21
+      Anchors = [akLeft, akRight, akBottom]
+      TabOrder = 3
+    end
+  end
+  object eServerEmail: TEdit
+    Left = 88
+    Top = 120
+    Width = 150
+    Height = 21
+    TabOrder = 2
+  end
+  object eClientEmail: TEdit
+    Left = 332
+    Top = 120
+    Width = 150
+    Height = 21
+    TabOrder = 3
+  end
+  object OKButton: TButton
+    Left = 331
+    Top = 146
+    Width = 75
+    Height = 22
+    Anchors = [akRight, akBottom]
+    Caption = 'OK'
+    ModalResult = 1
+    TabOrder = 4
+    OnClick = OKButtonClick
+  end
+  object CancelButton: TButton
+    Left = 410
+    Top = 146
+    Width = 75
+    Height = 22
+    Anchors = [akRight, akBottom]
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 5
+  end
+  object cbSMTPAuthentication: TCheckBox
+    Left = 11
+    Top = 149
+    Width = 249
+    Height = 17
+    Anchors = [akLeft, akBottom]
+    Caption = 'My SMTP server requires authentication'
+    TabOrder = 6
+    OnClick = cbSMTPAuthenticationClick
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/async_EmailSettings.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/async_EmailSettings.pas
new file mode 100644
index 0000000..238c2f4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Async/async_EmailSettings.pas	
@@ -0,0 +1,173 @@
+unit async_EmailSettings;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, Mask;
+
+type
+  Tasync_EmailSettingsForm = class(TForm)
+    GroupBox1: TGroupBox;
+    ePOP3Host: TEdit;
+    Label1: TLabel;
+    ePOP3Port: TMaskEdit;
+    Label2: TLabel;
+    Label3: TLabel;
+    ePOP3Usename: TEdit;
+    Label4: TLabel;
+    ePOP3Password: TEdit;
+    GroupBox2: TGroupBox;
+    Label5: TLabel;
+    Label6: TLabel;
+    lSMTPUserName: TLabel;
+    lSMTPPassword: TLabel;
+    eSMTPHost: TEdit;
+    eSMTPPort: TMaskEdit;
+    eSMTPUserName: TEdit;
+    eSMTPPassword: TEdit;
+    Label9: TLabel;
+    eServerEmail: TEdit;
+    lClientEmail: TLabel;
+    eClientEmail: TEdit;
+    OKButton: TButton;
+    CancelButton: TButton;
+    cbSMTPAuthentication: TCheckBox;
+    procedure FormShow(Sender: TObject);
+    procedure OKButtonClick(Sender: TObject);
+    procedure cbSMTPAuthenticationClick(Sender: TObject);
+  private
+    { Private declarations }
+    FClientSettings: Boolean;
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerEmail: string;
+  ClientEmail: string;
+  // pop3
+  POP3UserName: string;
+  Pop3Password: string;
+  POP3host: string;
+  POP3Port: integer;
+  // smtp
+  SMTPUserName: string;
+  SMTPPassword: string;
+  SMTPhost: string;
+  SMTPPort: integer;
+  SMTPAuthentication: boolean;
+
+procedure SetupEmailSettings(AClientSettings: Boolean);
+procedure LoadEmailSettings;
+procedure SaveEmailSettings;
+implementation
+uses
+  IniFiles;
+{$R *.dfm}
+
+const
+  ini_Section = 'Global';
+
+procedure SetupEmailSettings(AClientSettings: Boolean);
+begin
+  with Tasync_EmailSettingsForm.Create(Application) do try
+    FClientSettings := AClientSettings;
+    ShowModal;
+  finally
+    Release;
+  end;
+end;
+
+procedure LoadEmailSettings;
+begin
+  with TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI')) do begin
+    ServerEmail := ReadString(ini_Section, 'ServerEmail', 'server@email.com');
+    ClientEmail := ReadString(ini_Section, 'ClientEmail', 'client@email.com');
+    POP3UserName := ReadString(ini_Section, 'POP3UserName', 'username');
+    Pop3Password := ReadString(ini_Section, 'Pop3Password', 'password');
+    POP3host := ReadString(ini_Section, 'POP3host', 'pop3host');
+    POP3Port := ReadInteger(ini_Section, 'POP3Port', 110);
+    SMTPAuthentication := ReadInteger(ini_Section, 'SMTPAuthentication', 0) <> 0;
+    if SMTPAuthentication then begin
+      SMTPUserName := ReadString(ini_Section, 'SMTPUserName', 'username');
+      SMTPPassword := ReadString(ini_Section, 'SMTPPassword', 'password');
+    end;
+    SMTPhost := ReadString(ini_Section, 'SMTPhost', 'smtphost');
+    SMTPPort := ReadInteger(ini_Section, 'SMTPPort', 25);
+  end;
+end;
+
+procedure SaveEmailSettings;
+begin
+  with TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI')) do begin
+    WriteString(ini_Section, 'ServerEmail', ServerEmail);
+    WriteString(ini_Section, 'ClientEmail', ClientEmail);
+    WriteString(ini_Section, 'POP3UserName', POP3UserName);
+    WriteString(ini_Section, 'Pop3Password', Pop3Password);
+    WriteString(ini_Section, 'POP3host', POP3host);
+    WriteInteger(ini_Section, 'POP3Port', POP3Port);
+    WriteInteger(ini_Section, 'SMTPAuthentication', ord(SMTPAuthentication));
+    if SMTPAuthentication then begin
+      WriteString(ini_Section, 'SMTPUserName', SMTPUserName);
+      WriteString(ini_Section, 'SMTPPassword', SMTPPassword);
+    end;
+    WriteString(ini_Section, 'SMTPhost', SMTPhost);
+    WriteInteger(ini_Section, 'SMTPPort', SMTPPort);
+  end;
+end;
+
+procedure Tasync_EmailSettingsForm.FormShow(Sender: TObject);
+begin
+  eClientEmail.Visible := FClientSettings;
+  lClientEmail.Visible := FClientSettings;
+  eServerEmail.Text := ServerEmail;
+  eClientEmail.Text := ClientEmail;
+  ePOP3Host.Text := POP3host;
+  ePOP3Port.Text := IntToStr(POP3Port);
+  ePOP3Usename.Text := POP3UserName;
+  ePOP3Password.Text := Pop3Password;
+  eSMTPHost.Text := SMTPhost;
+  eSMTPPort.Text := IntToStr(SMTPPort);
+  cbSMTPAuthentication.Checked := SMTPAuthentication;
+  cbSMTPAuthenticationClick(cbSMTPAuthentication);
+  if cbSMTPAuthentication.Checked then begin
+    eSMTPUsername.Text := SMTPUserName;
+    eSMTPPassword.Text := SMTPPassword;
+  end
+  else begin
+    eSMTPUsername.Text := '';
+    eSMTPPassword.Text := '';
+  end;
+end;
+
+procedure Tasync_EmailSettingsForm.OKButtonClick(Sender: TObject);
+begin
+  ServerEmail := eServerEmail.Text;
+  ClientEmail := eClientEmail.Text;
+  POP3host := ePOP3Host.Text;
+  POP3Port := StrToInt(Trim(ePOP3Port.Text));
+  POP3UserName := ePOP3Usename.Text;
+  Pop3Password := ePOP3Password.Text;
+  SMTPhost := eSMTPHost.Text;
+  SMTPPort := StrToInt(Trim(eSMTPPort.Text));
+  SMTPAuthentication := cbSMTPAuthentication.Checked;
+  if SMTPAuthentication then begin
+    SMTPUserName := eSMTPUsername.Text;
+    SMTPPassword := eSMTPPassword.Text;
+  end;
+  SaveEmailSettings;
+end;
+
+procedure Tasync_EmailSettingsForm.cbSMTPAuthenticationClick(Sender: TObject);
+begin
+  with cbSMTPAuthentication do begin
+    eSMTPUserName.Enabled := Checked;
+    eSMTPPassword.Enabled := Checked;
+    lSMTPUserName.Enabled := Checked;
+    lSMTPPassword.Enabled := Checked;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.bdsproj
new file mode 100644
index 0000000..444ca0e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{724E1348-EDEF-4C3A-A7E1-F8D53B3785AA}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">AutoServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.dpr
new file mode 100644
index 0000000..cdfeb34
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.dpr	
@@ -0,0 +1,21 @@
+program AutoServer;
+
+{#ROGEN:AutoServer.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  AutoServer_ServerMain in 'AutoServer_ServerMain.pas' {AutoServer_ServerMainForm},
+  AutoServerLibrary_Intf in 'AutoServerLibrary_Intf.pas',
+  AutoServerLibrary_Invk in 'AutoServerLibrary_Invk.pas',
+  AutoServerService_Impl in 'AutoServerService_Impl.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'AutoServer - Server';
+  Application.CreateForm(TAutoServer_ServerMainForm, AutoServer_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.dproj
new file mode 100644
index 0000000..63305e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{6794d47d-6c7b-4270-b1b7-31860654e4e9}</ProjectGuid>
+    <MainSource>AutoServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>AutoServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">AutoServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="AutoServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="AutoServerLibrary_Intf.pas" />
+    <DCCReference Include="AutoServerLibrary_Invk.pas" />
+    <DCCReference Include="AutoServerService_Impl.pas" />
+    <DCCReference Include="AutoServer_ServerMain.pas">
+      <Form>AutoServer_ServerMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.res
new file mode 100644
index 0000000..3eab0f7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.rodl
new file mode 100644
index 0000000..f3f779f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer.rodl	
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="AutoServerLibrary" UID="{E9FFBC72-4E93-4399-9AEE-E12D20E5CF13}" Version="3.0">
+<Services>
+<Service Name="AutoServerService" UID="{3223B357-0943-4A15-89AC-B88D3A25E196}">
+<Interfaces>
+<Interface Name="Default" UID="{03EF69F8-5396-4CD6-BD4E-FC172489F603}">
+<Documentation><![CDATA[
+Service NewService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="GetServerTime" UID="{3FE54C63-F5D1-49FE-9C4D-A88495736CCF}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetEnvironment" UID="{F0041BD0-0DE2-4B24-80AB-E7F504FC3AE3}">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+<Parameter Name="Environment" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.Sample.html
new file mode 100644
index 0000000..bdb2db6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.Sample.html	
@@ -0,0 +1,17 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">AutoServer example</p>
+
+<h2>Purpose</h2><p>This sample shows how a client can control its server when they are both running locally. This is useful if you want to provide a simple standard alone solution which is easily upgraded to multi-tier (or you might want to provide both options).</p><p>To try this sample, compile or build both projects and then run the client. On start up, the client will look for an existing server window and start the server if necessary.</p><p>The server supplies a GetEnvironment method which returns the value of an environment variable.</p><p />
+
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.bdsgroup
new file mode 100644
index 0000000..e0d455c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0C1A0C0A-4CEF-4478-9F01-8E1BE15CF416}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="AutoServer.exe">AutoServer.bdsproj</Projects>
+      <Projects Name="AutoServer_Client.exe">AutoServer_Client.bdsproj</Projects>
+      <Projects Name="Targets">AutoServer.exe AutoServer_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.bpg
new file mode 100644
index 0000000..e8874db
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = AutoServer.exe AutoServer_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+AutoServer_Client.exe: AutoServer_Client.dpr
+  $(DCC)
+
+AutoServer.exe: AutoServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.groupproj
new file mode 100644
index 0000000..03d7b15
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerGroup.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{0a3399f8-920b-4d34-a340-d1364c5a4d1f}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="AutoServer">
+    <MSBuild Projects="AutoServer.dproj" Targets="" />
+  </Target>
+  <Target Name="AutoServer:Clean">
+    <MSBuild Projects="AutoServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="AutoServer:Make">
+    <MSBuild Projects="AutoServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="AutoServer_Client">
+    <MSBuild Projects="AutoServer_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="AutoServer_Client:Clean">
+    <MSBuild Projects="AutoServer_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="AutoServer_Client:Make">
+    <MSBuild Projects="AutoServer_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="AutoServer;AutoServer_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="AutoServer:Clean;AutoServer_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="AutoServer:Make;AutoServer_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerLibrary_Intf.pas
new file mode 100644
index 0000000..1e7cdb7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerLibrary_Intf.pas	
@@ -0,0 +1,113 @@
+unit AutoServerLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{E9FFBC72-4E93-4399-9AEE-E12D20E5CF13}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IAutoServerService_IID : TGUID = '{03EF69F8-5396-4CD6-BD4E-FC172489F603}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IAutoServerService = interface;
+
+
+  { IAutoServerService }
+  IAutoServerService = interface
+    ['{03EF69F8-5396-4CD6-BD4E-FC172489F603}']
+    function GetServerTime: DateTime;
+    function GetEnvironment(const Environment: Widestring): Widestring;
+  end;
+
+  { CoAutoServerService }
+  CoAutoServerService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IAutoServerService;
+  end;
+
+  { TAutoServerService_Proxy }
+  TAutoServerService_Proxy = class(TROProxy, IAutoServerService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetServerTime: DateTime;
+    function GetEnvironment(const Environment: Widestring): Widestring;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoAutoServerService }
+
+class function CoAutoServerService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IAutoServerService;
+begin
+  result := TAutoServerService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TAutoServerService_Proxy }
+
+function TAutoServerService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'AutoServerService';
+end;
+
+function TAutoServerService_Proxy.GetServerTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'AutoServerLibrary', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TAutoServerService_Proxy.GetEnvironment(const Environment: Widestring): Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'AutoServerLibrary', __InterfaceName, 'GetEnvironment');
+    __Message.Write('Environment', TypeInfo(Widestring), Environment, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IAutoServerService_IID, TAutoServerService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IAutoServerService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerLibrary_Invk.pas
new file mode 100644
index 0000000..2cf5b45
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerLibrary_Invk.pas	
@@ -0,0 +1,82 @@
+unit AutoServerLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} AutoServerLibrary_Intf;
+
+type
+  TAutoServerService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetEnvironment(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TAutoServerService_Invoker }
+
+constructor TAutoServerService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TAutoServerService_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as IAutoServerService).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'AutoServerLibrary', 'AutoServerService', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TAutoServerService_Invoker.Invoke_GetEnvironment(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetEnvironment(const Environment: Widestring): Widestring; }
+var
+  Environment: Widestring;
+  lResult: Widestring;
+begin
+  try
+    __Message.Read('Environment', TypeInfo(Widestring), Environment, []);
+
+    lResult := (__Instance as IAutoServerService).GetEnvironment(Environment);
+
+    __Message.InitializeResponseMessage(__Transport, 'AutoServerLibrary', 'AutoServerService', 'GetEnvironmentResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerService_Impl.pas
new file mode 100644
index 0000000..13807d8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServerService_Impl.pas	
@@ -0,0 +1,55 @@
+unit AutoServerService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} AutoServerLibrary_Intf;
+
+type
+  { TAutoServerService }
+  TAutoServerService = class(TRORemotable, IAutoServerService)
+  private
+  protected
+    { IAutoServerService methods }
+    function GetServerTime: DateTime;
+    function GetEnvironment(const Environment: Widestring): Widestring;
+  end;
+
+implementation
+
+uses
+  {Generated:} AutoServerLibrary_Invk;
+
+procedure Create_AutoServerService(out anInstance: IUnknown);
+begin
+  anInstance := TAutoServerService.Create;
+end;
+
+{ AutoServerService }
+
+function TAutoServerService.GetServerTime: DateTime;
+begin
+  Result := Now;
+end;
+
+function TAutoServerService.GetEnvironment(const Environment: Widestring): Widestring;
+begin
+  Result := GetEnvironmentVariable(Environment);
+end;
+
+initialization
+  TROClassFactory.Create('AutoServerService', Create_AutoServerService, TAutoServerService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.bdsproj
new file mode 100644
index 0000000..093bda9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{087C06A8-08C5-40E0-80DD-CEBFEF978D07}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">AutoServer_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.dpr
new file mode 100644
index 0000000..20d539a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.dpr	
@@ -0,0 +1,15 @@
+program AutoServer_Client;
+
+uses
+  uROComInit,
+  Forms,
+  AutoServer_ClientMain in 'AutoServer_ClientMain.pas' {AutoServer_ClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'AutoServer Client';
+  Application.CreateForm(TAutoServer_ClientMainForm, AutoServer_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.dproj
new file mode 100644
index 0000000..94aaa19
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{9502af4b-ac11-42b4-a13f-8b7529127667}</ProjectGuid>
+    <MainSource>AutoServer_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>AutoServer_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">AutoServer_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="AutoServer_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="AutoServer_ClientMain.pas">
+      <Form>AutoServer_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.res
new file mode 100644
index 0000000..ac22e55
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ClientMain.dfm
new file mode 100644
index 0000000..b4e86e8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ClientMain.dfm	
@@ -0,0 +1,81 @@
+object AutoServer_ClientMainForm: TAutoServer_ClientMainForm
+  Left = 62
+  Top = 102
+  AutoScroll = False
+  Caption = 'AutoServer - Client'
+  ClientHeight = 278
+  ClientWidth = 448
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 7
+    Top = 7
+    Width = 64
+    Height = 13
+    Caption = 'Environment:'
+  end
+  object cbShutdown: TCheckBox
+    Left = 7
+    Top = 49
+    Width = 145
+    Height = 17
+    Caption = 'Shutdown server on close'
+    TabOrder = 0
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 70
+    Width = 448
+    Height = 208
+    Align = alCustom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ScrollBars = ssVertical
+    TabOrder = 1
+  end
+  object cbEnvironment: TComboBox
+    Left = 7
+    Top = 23
+    Width = 334
+    Height = 21
+    Style = csDropDownList
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    TabOrder = 2
+  end
+  object GetEnvironmentButton: TButton
+    Left = 347
+    Top = 21
+    Width = 94
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = 'Get environment'
+    TabOrder = 3
+    OnClick = GetEnvironmentButtonClick
+  end
+  object ROMessage: TROBinMessage
+    Left = 36
+    Top = 88
+  end
+  object ROChannel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 8
+    Top = 88
+  end
+  object RORemoteService: TRORemoteService
+    ServiceName = 'AutoServerService'
+    Message = ROMessage
+    Channel = ROChannel
+    Left = 64
+    Top = 88
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ClientMain.pas
new file mode 100644
index 0000000..56b9cd6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ClientMain.pas	
@@ -0,0 +1,152 @@
+unit AutoServer_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  ComCtrls, uROPoweredByRemObjectsButton,  AutoServerLibrary_Intf;
+
+type
+  TAutoServer_ClientMainForm = class(TForm)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    cbShutdown: TCheckBox;
+    Memo: TMemo;
+    cbEnvironment: TComboBox;
+    GetEnvironmentButton: TButton;
+    Label1: TLabel;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure GetEnvironmentButtonClick(Sender: TObject);
+  private
+    fServerHandle: cardinal;
+    FAutoServerService: IAutoServerService;
+    function GetAutoShutDownServer: boolean;
+    procedure SetAutoShutDownServer(const Value: boolean);
+    procedure FillEnvironment;
+    procedure Log(AStr: string);
+  public
+    property AutoShutDownServer: boolean read GetAutoShutDownServer write SetAutoShutDownServer;
+  end;
+
+var
+  AutoServer_ClientMainForm: TAutoServer_ClientMainForm;
+
+implementation
+
+uses ShellAPI;
+
+{$R *.dfm}
+
+procedure TAutoServer_ClientMainForm.FillEnvironment;
+var
+  p, buf: Pchar;
+  List: TStringList;
+  i: integer;
+begin
+  cbEnvironment.Clear;
+  List := TStringList.Create;
+  try
+    buf := GetEnvironmentStrings;
+    try
+      p := buf;
+      while p^ <> #0 do begin
+        List.Add(p);
+        inc(p, StrLen(p) + 1);
+      end;
+    finally
+      FreeEnvironmentStrings(buf);
+    end;
+    for i := 0 to List.Count - 1 do
+      if List.Names[i] <> '' then
+        cbEnvironment.Items.Add(List.Names[i]);
+    if cbEnvironment.Items.Count <> 0 then
+      cbEnvironment.ItemIndex := 0;
+  finally
+    List.Free;
+  end;
+end;
+
+procedure TAutoServer_ClientMainForm.FormCreate(Sender: TObject);
+var
+  serverfilename: string;
+  res: integer;
+begin
+  fAutoServerService := (RORemoteService as IAutoServerService);
+  // Locates the server window
+  Log('Searching for server process ...');
+  fServerHandle := FindWindow(nil, 'AutoServer - Server');
+
+  if (fServerHandle = 0) then begin
+    Log('No server found.');
+    AutoShutDownServer := TRUE;
+
+    // Starts it
+    serverfilename := ExtractFilePath(Application.ExeName) + 'AutoServer.exe';
+    Log('Attempting to start a server ''' + serverfilename + '''');
+    Res := ShellExecute(0, 'open', PChar(serverfilename), nil, nil, SW_NORMAL);
+    if res < 33 then begin
+      Log(SysErrorMessage(Res));
+      exit;
+    end
+    else
+      Log('Waiting for the server to start ...');
+    // Waits half a second. Not the best implementation but it's just to give an idea
+    Sleep(500);
+
+    Log('Searching for a server ...');
+    fServerHandle := FindWindow(nil, 'AutoServer - Server');
+    if (fServerHandle = 0) then
+      Log('The server could not be started!')
+    else
+      Log('The server has been started successfully');
+  end
+  else begin
+    Log('The server is up and running already');
+    AutoShutDownServer := FALSE;
+  end;
+end;
+
+procedure TAutoServer_ClientMainForm.FormDestroy(Sender: TObject);
+begin
+  if AutoShutDownServer then PostMessage(fServerHandle, WM_CLOSE, 0, 0);
+end;
+
+function TAutoServer_ClientMainForm.GetAutoShutDownServer: boolean;
+begin
+  result := cbShutdown.Checked;
+end;
+
+procedure TAutoServer_ClientMainForm.SetAutoShutDownServer(const Value: boolean);
+begin
+  cbShutdown.Checked := Value;
+end;
+
+procedure TAutoServer_ClientMainForm.FormShow(Sender: TObject);
+begin
+  FillEnvironment;
+end;
+
+procedure TAutoServer_ClientMainForm.Log(AStr: string);
+begin
+  Memo.Lines.Add(AStr);
+end;
+
+procedure TAutoServer_ClientMainForm.GetEnvironmentButtonClick(
+  Sender: TObject);
+var
+  res: string;
+begin
+  Log('');
+  Log('GetEnvironment');
+  Log('--------------');
+  Log('Sending:'#9#9 + cbEnvironment.Text);
+  Res := FAutoServerService.GetEnvironment(cbEnvironment.Text);
+  Log('Receiving:'#9 + Res);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ServerMain.dfm
new file mode 100644
index 0000000..2de50f9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ServerMain.dfm	
@@ -0,0 +1,36 @@
+object AutoServer_ServerMainForm: TAutoServer_ServerMainForm
+  Left = 13
+  Top = 4
+  BorderStyle = bsDialog
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object ROMessage: TROBinMessage
+    Left = 36
+    Top = 8
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 8
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ServerMain.pas
new file mode 100644
index 0000000..3195ae8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/AutoServer_ServerMain.pas	
@@ -0,0 +1,36 @@
+unit AutoServer_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer;
+
+type
+  TAutoServer_ServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  AutoServer_ServerMainForm: TAutoServer_ServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TAutoServer_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  caption := 'AutoServer - Server';
+  ROServer.Active := true;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/RODLFILE.res
new file mode 100644
index 0000000..b2e8f6b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Auto Server/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary.rodl
new file mode 100644
index 0000000..f8ad0c7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary.rodl	
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="BonjourDiscoverableLibrary" UID="{55FBCB53-0D2F-4D05-961B-8A247E408D93}" Version="3.0">
+<Services>
+<Service Name="BonjourDiscoverableService" UID="{55FBCB53-0D2F-4D05-961B-8A247E408D93}">
+<Interfaces>
+<Interface Name="Default" UID="{55FBCB53-0D2F-4D05-961B-8A247E408D93}">
+<Documentation><![CDATA[Service BonjourDiscoverableService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="IntroduceMyself" UID="{579CC2FF-71CF-4B43-941C-4ACC877DD303}">
+<Parameters>
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
+</Parameter>
+<Parameter Name="MyName" DataType="AnsiString" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="WhoAreYou" UID="{3178A67F-46AC-4998-B6B0-F8C2BF1403B8}">
+<Parameters>
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary_Intf.pas
new file mode 100644
index 0000000..e199d60
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary_Intf.pas	
@@ -0,0 +1,113 @@
+unit BonjourDiscoverableLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{55FBCB53-0D2F-4D05-961B-8A247E408D93}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IBonjourDiscoverableService_IID : TGUID = '{55FBCB53-0D2F-4D05-961B-8A247E408D93}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IBonjourDiscoverableService = interface;
+
+
+  { IBonjourDiscoverableService }
+  IBonjourDiscoverableService = interface
+    ['{55FBCB53-0D2F-4D05-961B-8A247E408D93}']
+    function IntroduceMyself(const MyName: AnsiString): AnsiString;
+    function WhoAreYou: AnsiString;
+  end;
+
+  { CoBonjourDiscoverableService }
+  CoBonjourDiscoverableService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBonjourDiscoverableService;
+  end;
+
+  { TBonjourDiscoverableService_Proxy }
+  TBonjourDiscoverableService_Proxy = class(TROProxy, IBonjourDiscoverableService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function IntroduceMyself(const MyName: AnsiString): AnsiString;
+    function WhoAreYou: AnsiString;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoBonjourDiscoverableService }
+
+class function CoBonjourDiscoverableService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBonjourDiscoverableService;
+begin
+  result := TBonjourDiscoverableService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TBonjourDiscoverableService_Proxy }
+
+function TBonjourDiscoverableService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'BonjourDiscoverableService';
+end;
+
+function TBonjourDiscoverableService_Proxy.IntroduceMyself(const MyName: AnsiString): AnsiString;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'BonjourDiscoverableLibrary', __InterfaceName, 'IntroduceMyself');
+    __Message.Write('MyName', TypeInfo(AnsiString), MyName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TBonjourDiscoverableService_Proxy.WhoAreYou: AnsiString;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'BonjourDiscoverableLibrary', __InterfaceName, 'WhoAreYou');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IBonjourDiscoverableService_IID, TBonjourDiscoverableService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IBonjourDiscoverableService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary_Invk.pas
new file mode 100644
index 0000000..03ac4a1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableLibrary_Invk.pas	
@@ -0,0 +1,82 @@
+unit BonjourDiscoverableLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} BonjourDiscoverableLibrary_Intf;
+
+type
+  TBonjourDiscoverableService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_IntroduceMyself(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_WhoAreYou(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TBonjourDiscoverableService_Invoker }
+
+constructor TBonjourDiscoverableService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TBonjourDiscoverableService_Invoker.Invoke_IntroduceMyself(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function IntroduceMyself(const MyName: AnsiString): AnsiString; }
+var
+  MyName: AnsiString;
+  lResult: AnsiString;
+begin
+  try
+    __Message.Read('MyName', TypeInfo(AnsiString), MyName, []);
+
+    lResult := (__Instance as IBonjourDiscoverableService).IntroduceMyself(MyName);
+
+    __Message.InitializeResponseMessage(__Transport, 'BonjourDiscoverableLibrary', 'BonjourDiscoverableService', 'IntroduceMyselfResponse');
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TBonjourDiscoverableService_Invoker.Invoke_WhoAreYou(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function WhoAreYou: AnsiString; }
+var
+  lResult: AnsiString;
+begin
+  try
+    lResult := (__Instance as IBonjourDiscoverableService).WhoAreYou;
+
+    __Message.InitializeResponseMessage(__Transport, 'BonjourDiscoverableLibrary', 'BonjourDiscoverableService', 'WhoAreYouResponse');
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableService_Impl.dfm
new file mode 100644
index 0000000..6863fa9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableService_Impl.dfm	
@@ -0,0 +1,7 @@
+object BonjourDiscoverableService: TBonjourDiscoverableService
+  OldCreateOrder = False
+  Left = 657
+  Top = 393
+  Height = 186
+  Width = 315
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableService_Impl.pas
new file mode 100644
index 0000000..2bc8dde
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscoverableService_Impl.pas	
@@ -0,0 +1,65 @@
+unit BonjourDiscoverableService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} BonjourDiscoverableLibrary_Intf;
+
+type
+  { TBonjourDiscoverableService }
+  TBonjourDiscoverableService = class(TRORemoteDataModule, IBonjourDiscoverableService)
+  private
+  protected
+    { IBonjourDiscoverableService methods }
+    function IntroduceMyself(const MyName: AnsiString): AnsiString;
+    function WhoAreYou: AnsiString;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  fServerForm,
+  {Generated:} BonjourDiscoverableLibrary_Invk;
+
+procedure Create_BonjourDiscoverableService(out anInstance : IUnknown);
+begin
+  anInstance := TBonjourDiscoverableService.Create(nil);
+end;
+
+{ BonjourDiscoverableService }
+function TBonjourDiscoverableService.IntroduceMyself(const MyName: AnsiString): AnsiString;
+begin
+     Result := 'Hello, ' + MyName;
+end;
+
+function TBonjourDiscoverableService.WhoAreYou: AnsiString;
+begin
+     Result := ServerForm.WhoAmI;
+end;
+
+var
+  fClassFactory: IROClassFactory;
+
+initialization
+  fClassFactory := TROClassFactory.Create('BonjourDiscoverableService', Create_BonjourDiscoverableService, TBonjourDiscoverableService_Invoker);
+  RegisterForZeroConf(fClassFactory,'_bonjourdiscoverableservice_rosdk._tcp.');
+
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.Sample.html
new file mode 100644
index 0000000..450891c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.Sample.html	
@@ -0,0 +1,78 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+<p class="h1">
+  <span>Bonjour Service Discovery Sample</span> 
+</p>
+
+<h2>Purpose</h2>
+
+<p>
+    This sample demonstrates how to use ZeroConf service discovery mechanism for 
+    both publishing and discovering services on the network.</p>
+    <h2>
+        Prerequisites
+</h2>
+    <p>
+        Bonjour for Windows is required to run this sample. It can be downloaded free of 
+        charge from the Apple&#39;s website
+        <a href="http://support.apple.com/downloads/Bonjour_for_Windows">
+        http://support.apple.com/downloads/Bonjour_for_Windows</a>.</p>
+
+<h2>How it works</h2>
+<p>
+    First, the service have to be made discoverable. To make a service discoverable 
+    it is necessary to do two things:</p>
+    <ul>
+        <li>Place and configure <b>TROZeroConfRegistration</b> component on the server&#39;s main 
+            form.</li>
+        <li>Call <b>SetZeroConfDetails</b> procedure in the service implementation unit&#39;s 
+            initialization section. </li>
+    </ul>
+<p>
+        The <b>TROZeroConfBrowser</b> component is used to discover available services on 
+    the network. Discovery process is performed in the background and corresponding 
+    events are being fired. When application is notified about new service available 
+    it have to start resolve procedure to obtain host name (address) and port number 
+    where to connect to. After hast name and port are obtained, the application can 
+    construct target URL and connect to the server as ususal.</p>
+    <h2>Examine the code</h2>
+<ul>
+<li>See the how the <b>TROZeroConfRegistration</b> component is configured on the 
+    server&#39;s main form.</li>
+    <li>See how the <b>SetZeroConfDetails</b> procedure is being called in the 
+        service implementation unit. Notice how service type is specified there.</li>
+    <li>See the how the <b>TROZeroConfBrowser</b> component is configured on the client 
+        side.</li>
+    <li>Examine <b>TClientForm.ROZeroConfBrowserServiceAdded</b> and <b>
+        TClientForm.ROZeroConfBrowserServiceRemoved</b> event handler to see how the client 
+        application responds to service availability change. Notice that these handlers 
+        are called in the thread other than GUI main. So special processing is required to 
+        interact with GUI components. In this sample main thread invokation is 
+        implemented usning custom windows messages. Message parameters lParam and wParam 
+        contain pointer to the procedure to be called and pointer to the procedure&#39;s 
+        parameter.</li>
+    <li>Examine <b>TClientForm.btUseServiceClick</b> to see how <b>TargetURL</b> is constructed.</li>
+</ul>
+
+
+
+<h2>Getting started</h2>
+<ul>
+<li>Build the sample.</li> 
+<li>Start the server application. Server&#39;s responce string can be changed. 
+    Start the server with the &#39;Start server&#39; button.</li>
+<li>Start the client application and see how server is discovered.</li>
+<li>Click &#39;Use service&#39; button to communicate with the server.</li>  
+<li>Try to run several servers on several machines or local host. See how 
+    services list changes when servers are being 
+    started and stopped. Select discovered services from the list and invoke 
+    different remote services. </li>
+</ul>
+</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.bpg
new file mode 100644
index 0000000..73f9572
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.bpg	
@@ -0,0 +1,21 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = Server.exe Client.exe 
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+Server.exe: Server.dpr
+  $(DCC)
+
+Client.exe: Client.dpr
+  $(DCC)
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.groupproj
new file mode 100644
index 0000000..de81678
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/BonjourDiscovery.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4acf0eaa-84e5-46d4-8a2c-e6ae96c7e2f7}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="Client.dproj" />
+    <Projects Include="Server.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="Server">
+    <MSBuild Projects="Server.dproj" Targets="" />
+  </Target>
+  <Target Name="Server:Clean">
+    <MSBuild Projects="Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Server:Make">
+    <MSBuild Projects="Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Client">
+    <MSBuild Projects="Client.dproj" Targets="" />
+  </Target>
+  <Target Name="Client:Clean">
+    <MSBuild Projects="Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Client:Make">
+    <MSBuild Projects="Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="Server;Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="Server:Clean;Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="Server:Make;Client:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.dpr
new file mode 100644
index 0000000..ad19432
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.dpr	
@@ -0,0 +1,16 @@
+program Client;
+
+uses
+  uROComInit,
+  Forms,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  BonjourDiscoverableLibrary_Intf in 'BonjourDiscoverableLibrary_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Bonjour Discovery Client';
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.dproj
new file mode 100644
index 0000000..a4740f9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.dproj	
@@ -0,0 +1,79 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{54224fa9-16a1-4652-9375-2a8ea55e857b}</ProjectGuid>
+    <MainSource>Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BonjourDiscoverableLibrary_Intf.pas" />
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.res
new file mode 100644
index 0000000..0f940ed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/RODLFILE.res
new file mode 100644
index 0000000..2e8d829
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.dpr
new file mode 100644
index 0000000..3c96a13
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.dpr	
@@ -0,0 +1,21 @@
+program Server;
+
+{#ROGEN:BonjourDiscoverableLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  BonjourDiscoverableService_Impl in 'BonjourDiscoverableService_Impl.pas',
+  BonjourDiscoverableLibrary_Invk in 'BonjourDiscoverableLibrary_Invk.pas',
+  BonjourDiscoverableLibrary_Intf in 'BonjourDiscoverableLibrary_Intf.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Bonjour Discovery Server';
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.dproj
new file mode 100644
index 0000000..d7a6b9c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.dproj	
@@ -0,0 +1,45 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{aafa157a-9456-42e4-bbcf-c93447fdb412}</ProjectGuid>
+    <MainSource>Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BonjourDiscoverableLibrary_Intf.pas" />
+    <DCCReference Include="BonjourDiscoverableLibrary_Invk.pas" />
+    <DCCReference Include="BonjourDiscoverableService_Impl.pas" />
+    <DCCReference Include="fServerForm.pas">
+      <Form>ServerForm</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fClientForm.dfm
new file mode 100644
index 0000000..e4a2163
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fClientForm.dfm	
@@ -0,0 +1,155 @@
+object ClientForm: TClientForm
+  Left = 372
+  Top = 277
+  Width = 412
+  Height = 373
+  Caption = 'RemObjects Client'
+  Color = clBtnFace
+  Constraints.MinHeight = 372
+  Constraints.MinWidth = 412
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 0
+    Top = 65
+    Width = 396
+    Height = 13
+    Align = alTop
+    Caption = 'Services discovered so far:'
+  end
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 197
+    Width = 396
+    Height = 3
+    Cursor = crVSplit
+    Align = alBottom
+    AutoSnap = False
+    Beveled = True
+    ResizeStyle = rsUpdate
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 396
+    Height = 65
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object roButton: TROPoweredByRemObjectsButton
+      Left = 8
+      Top = 9
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+      ApplicationType = atClient
+    end
+    object btUseService: TButton
+      Left = 232
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = 'Use service'
+      Enabled = False
+      TabOrder = 0
+      OnClick = btUseServiceClick
+    end
+    object btServiceInfo: TButton
+      Left = 312
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = 'Service info'
+      Enabled = False
+      TabOrder = 1
+      OnClick = btServiceInfoClick
+    end
+  end
+  object lvServices: TListView
+    Left = 0
+    Top = 78
+    Width = 396
+    Height = 119
+    Align = alClient
+    Columns = <
+      item
+        AutoSize = True
+        Caption = 'Service name'
+      end
+      item
+        AutoSize = True
+        Caption = 'Host name'
+      end
+      item
+        AutoSize = True
+        Caption = 'Port Number'
+      end>
+    ColumnClick = False
+    GridLines = True
+    HideSelection = False
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 1
+    ViewStyle = vsReport
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 200
+    Width = 396
+    Height = 137
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    object Label2: TLabel
+      Left = 0
+      Top = 0
+      Width = 396
+      Height = 13
+      Align = alTop
+      Caption = 'Communication log:'
+    end
+    object edLog: TMemo
+      Left = 0
+      Top = 13
+      Width = 396
+      Height = 124
+      Align = alClient
+      ReadOnly = True
+      ScrollBars = ssVertical
+      TabOrder = 0
+    end
+  end
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 36
+    Top = 8
+  end
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 8
+    Top = 8
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'BonjourDiscoverableService'
+    Left = 64
+    Top = 8
+  end
+  object ROZeroConfBrowser: TROZeroConfBrowser
+    Active = True
+    Domain = 'local.'
+    ServiceType = '_bonjourdiscoverableservice_rosdk._tcp.'
+    OnServiceAdded = ROZeroConfBrowserServiceAdded
+    OnServiceRemoved = ROZeroConfBrowserServiceRemoved
+    Left = 96
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fClientForm.pas
new file mode 100644
index 0000000..6384dd0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fClientForm.pas	
@@ -0,0 +1,184 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  uROZeroConf, uROPoweredByRemObjectsButton, ExtCtrls, ComCtrls;
+
+const
+  UM_SYNCHRONIZE = WM_APP + 1;
+
+type
+  TSynchronizeMethod = procedure(Param: TObject);
+
+  TSynchronizeMessage = packed record
+     Msg: Cardinal;
+     Routine: TSynchronizeMethod;
+     Param: TObject;
+     Result: Longint;
+  end;
+
+  TClientForm = class(TForm)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    ROZeroConfBrowser: TROZeroConfBrowser;
+    Panel1: TPanel;
+    roButton: TROPoweredByRemObjectsButton;
+    btUseService: TButton;
+    lvServices: TListView;
+    Label1: TLabel;
+    Panel2: TPanel;
+    Splitter1: TSplitter;
+    Label2: TLabel;
+    edLog: TMemo;
+    btServiceInfo: TButton;
+    procedure ROZeroConfBrowserServiceAdded(Sender: TROZeroConfBrowser;
+      aRecord: TROZeroConfService);
+    procedure ROZeroConfBrowserServiceRemoved(Sender: TROZeroConfBrowser;
+      aRecord: TROZeroConfService);
+    procedure btUseServiceClick(Sender: TObject);
+    procedure btServiceInfoClick(Sender: TObject);
+  private
+    { Private declarations }
+  protected
+    procedure LogMessage(const msg: string);
+    procedure SetButtonsEnable;
+    procedure HandleSynchronize(var Msg: TSynchronizeMessage); message UM_SYNCHRONIZE;
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses BonjourDiscoverableLibrary_Intf;
+
+{$R *.dfm}
+
+const
+     LOCAL_SUFFIX = '.local.';
+     NOT_RESOLVED = 'not resolved';
+
+procedure TClientForm.LogMessage(const msg: string);
+begin
+     edLog.Lines.Add(msg);
+     edLog.SelStart := Length(edLog.Lines.Text);
+end;
+
+procedure TClientForm.HandleSynchronize(var Msg: TSynchronizeMessage);
+begin
+     Msg.Routine(Msg.Param);
+end;
+
+procedure TClientForm.SetButtonsEnable;
+begin
+     btUseService.Enabled := lvServices.Items.Count > 0;
+     btServiceInfo.Enabled := btUseService.Enabled;
+end;
+
+procedure ProcessServiceAdded(Param: TObject);
+var aRecord: TROZeroConfService;
+    newItem: TListItem;
+    host: string;
+begin
+     aRecord := TROZeroConfService(Param);
+     with ClientForm do begin
+          Cursor := crHourGlass;
+          LogMessage('Discovered new service: ' + aRecord.ServiceName);
+
+          newItem := lvServices.Items.Add;
+          newItem.Caption := aRecord.ServiceName;
+          newItem.Data := aRecord;
+          lvServices.ItemIndex := newItem.Index;
+          SetButtonsEnable;
+
+          if aRecord.TryResolve then begin
+             host := StringReplace(aRecord.HostTarget, LOCAL_SUFFIX, '', [rfIgnoreCase]);
+             LogMessage(Format('Service resolved. Host name: %s Port number: %d',
+                               [host, aRecord.Port]));
+             newItem.SubItems.Add(host);
+             newItem.SubItems.Add(IntToStr(aRecord.Port));
+          end
+          else begin
+             LogMessage('Service resolve failed!');
+             newItem.SubItems.Add(NOT_RESOLVED);
+             newItem.SubItems.Add(NOT_RESOLVED);
+          end;
+          Cursor := crDefault;
+     end;
+end;
+
+procedure TClientForm.ROZeroConfBrowserServiceAdded(
+  Sender: TROZeroConfBrowser; aRecord: TROZeroConfService);
+begin
+     SendMessage(Handle, UM_SYNCHRONIZE, integer(@ProcessServiceAdded), integer(aRecord));
+end;
+
+procedure ProcessServiceRemoved(Param: TObject);
+var i: integer;
+    aRecord, oldRec: TROZeroConfService;
+begin
+     aRecord := TROZeroConfService(Param);
+     with ClientForm do begin
+          LogMessage(Format('Service has gone down: %s (at host %s:%d)',
+                            [aRecord.ServiceName,
+                             StringReplace(aRecord.HostTarget, LOCAL_SUFFIX, '', [rfIgnoreCase]),
+                             aRecord.Port]));
+          for i := 0 to lvServices.Items.Count - 1 do begin
+              oldRec := TROZeroConfService(lvServices.Items[i].Data);
+              if (aRecord.ServiceName = oldRec.ServiceName) and
+                 (aRecord.HostTarget = oldRec.HostTarget) and
+                 (aRecord.Port = oldRec.Port)
+              then begin
+                  // Notice: oldRec is not Freed here, library will do it itself.
+                  lvServices.Items.Delete(i);
+                  SetButtonsEnable;
+                  Break;
+              end;
+          end;
+     end;
+end;
+
+procedure TClientForm.ROZeroConfBrowserServiceRemoved(
+  Sender: TROZeroConfBrowser; aRecord: TROZeroConfService);
+begin
+     SendMessage(Handle, UM_SYNCHRONIZE, integer(@ProcessServiceRemoved), integer(aRecord));
+end;
+
+procedure TClientForm.btUseServiceClick(Sender: TObject);
+var aRecord: TROZeroConfService;
+    serv: IBonjourDiscoverableService;
+begin
+     aRecord := TROZeroConfService(lvServices.Items[lvServices.ItemIndex].Data);
+     if aRecord.Resolved then begin
+        ROChannel.TargetURL := Format('http://%s:%d/bin', [aRecord.Address, aRecord.Port]);
+        serv := RORemoteService as IBonjourDiscoverableService;
+        try
+           LogMessage('---');
+           LogMessage('Calling IntroduceMyself at URL ' + ROChannel.TargetURL);
+           LogMessage('Got responce: ' + string(serv.introduceMyself('Delphi client')));
+           LogMessage('Calling WhoAreYou. Server responds: ' + string(serv.WhoAreYou));
+           LogMessage('Communication finished.');
+           LogMessage('---');
+        except
+           on e: Exception do LogMessage('Exception was raised: ' + e.Message);
+        end;
+     end
+     else LogMessage('Can''t connect to server - service was not resolved.');
+end;
+
+procedure TClientForm.btServiceInfoClick(Sender: TObject);
+var aRecord: TROZeroConfService;
+begin
+     aRecord := TROZeroConfService(lvServices.Items[lvServices.ItemIndex].Data);
+     if aRecord.Resolved
+     then ShowMessage('Service provides aditional info:'#13#10 + aRecord.TextRecord)
+     else ShowMessage('Additional info unavailable - service was not resolved.');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fServerForm.dfm
new file mode 100644
index 0000000..734cf5d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fServerForm.dfm	
@@ -0,0 +1,70 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsDialog
+  Caption = 'RemObjects Server'
+  ClientHeight = 162
+  ClientWidth = 270
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 31
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Label1: TLabel
+    Left = 8
+    Top = 64
+    Width = 52
+    Height = 13
+    Caption = 'Who am I?'
+  end
+  object edWhoAmI: TEdit
+    Left = 8
+    Top = 80
+    Width = 249
+    Height = 21
+    TabOrder = 0
+    Text = 'I'#39'm Bonjour discoverable RO/Delphi server'
+  end
+  object btStart: TButton
+    Left = 80
+    Top = 118
+    Width = 105
+    Height = 24
+    Caption = 'Start server'
+    Default = True
+    TabOrder = 1
+    OnClick = btStartClick
+  end
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 36
+    Top = 8
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 0
+    Left = 8
+    Top = 8
+  end
+  object ROZeroConfRegistration1: TROZeroConfRegistration
+    Domain = 'local.'
+    Server = ROServer
+    Left = 72
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fServerForm.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fServerForm.pas
new file mode 100644
index 0000000..b7720fd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/BonjourDiscovery/fServerForm.pas	
@@ -0,0 +1,54 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, ComCtrls, Mask,
+  uROZeroConf;
+
+type
+  TServerForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    Label1: TLabel;
+    edWhoAmI: TEdit;
+    btStart: TButton;
+    ROZeroConfRegistration1: TROZeroConfRegistration;
+    procedure btStartClick(Sender: TObject);
+  private
+    { Private declarations }
+    function GetWhoAmI: TCaption;
+  public
+    { Public declarations }
+    property WhoAmI: TCaption read GetWhoAmI;
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerForm.btStartClick(Sender: TObject);
+begin
+     if not ROServer.Active then begin
+        ROServer.Port := 0;
+        ROServer.Active := true;
+        btStart.Caption := 'Stop server';
+     end
+     else begin
+        ROServer.Active := false;
+        btStart.Caption := 'Start server';
+     end;
+end;
+
+function TServerForm.GetWhoAmI: TCaption;
+begin
+     result := ServerForm.edWhoAmI.Text;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.Sample.html
new file mode 100644
index 0000000..cb9bfd5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.Sample.html	
@@ -0,0 +1,24 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Broadcast Chat Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>This example shows how to use the TROBroadcastServer and TROBroadcastChannel channels to write an UDP broadcasting chat program.</p>
+
+<p>
+  In order to test this sample, you will need to make the compiled exe available on two or more computers. <br><b>Note</b>: if you are running a trial version of the RemObjects SDK, each machine
+    used will need to be running the Delphi IDE. Registered users can create on one computer and just copy the exe to other(s).
+</p>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.bdsproj
new file mode 100644
index 0000000..486a30e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{2819970C-B837-43BE-AF3D-CEACF907E452}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">BroadcastChat.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.dpr
new file mode 100644
index 0000000..fad0006
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.dpr	
@@ -0,0 +1,20 @@
+program BroadcastChat;
+
+uses
+  Forms,
+  BroadcastChatMain in 'BroadcastChatMain.pas' {BroadcastChatMainForm},
+  BroadcastChatLibrary_Intf in 'BroadcastChatLibrary_Intf.pas',
+  BroadcastChatLibrary_Invk in 'BroadcastChatLibrary_Invk.pas',
+  BroadcastChatService_Impl in 'BroadcastChatService_Impl.pas';
+
+{#ROGEN:BroadcastChatLibrary.rodl} // RemObjects: Careful, do not remove!
+{$R RODLFile.res}
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Broadcast Chat';
+  Application.CreateForm(TBroadcastChatMainForm, BroadcastChatMainForm);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.dproj
new file mode 100644
index 0000000..82520a2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f49233b6-a9eb-4b51-a683-21534d447151}</ProjectGuid>
+    <MainSource>BroadcastChat.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>BroadcastChat.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">BroadcastChat.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="BroadcastChat.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="BroadcastChatLibrary_Intf.pas" />
+    <DCCReference Include="BroadcastChatLibrary_Invk.pas" />
+    <DCCReference Include="BroadcastChatMain.pas">
+      <Form>BroadcastChatMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="BroadcastChatService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.res
new file mode 100644
index 0000000..9092728
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChat.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary.rodl
new file mode 100644
index 0000000..3e6cba9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary.rodl	
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="BroadcastChatLibrary" UID="{046A7B5C-4E0B-43A9-8EF9-401F5705E52B}" Version="3.0">
+<Services>
+<Service Name="BroadcastChatService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{0BD653EA-D4B0-46BE-9856-2FD482115A77}">
+<Operations>
+<Operation Name="SendMessage" UID="{BEA96D3A-BAC1-4968-AC5B-C8993CE98470}">
+<Parameters>
+<Parameter Name="iDate" DataType="DateTime" Flag="In" >
+</Parameter>
+<Parameter Name="iFrom" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="iMessage" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetInfo" UID="{A8FE830E-2562-4999-9E56-DB64ADC60BE4}">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Async.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Async.pas
new file mode 100644
index 0000000..5731ce7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Async.pas	
@@ -0,0 +1,97 @@
+unit BroadcastChatLibrary_Async;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROTypes, uROClientIntf, uROAsync,
+  {Project:} BroadcastChatLibrary_Intf;
+
+type
+  { IBroadcastChatService_Async }
+  IBroadcastChatService_Async = interface(IROAsyncInterface)
+    ['{ED47ECBE-2464-41C0-8FA3-FD42573E881E}']
+    procedure Invoke_SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
+    procedure Invoke_GetInfo;
+    function Retrieve_GetInfo: Widestring;
+  end;
+
+  { CoBroadcastChatService_Async }
+  CoBroadcastChatService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBroadcastChatService_Async;
+  end;
+
+  { TBroadcastChatService_AsyncProxy }
+  TBroadcastChatService_AsyncProxy = class(TROAsyncProxy, IBroadcastChatService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
+    procedure Invoke_GetInfo;
+    function Retrieve_GetInfo: Widestring;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils;
+
+{ CoBroadcastChatService }
+
+class function CoBroadcastChatService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBroadcastChatService_Async;
+begin
+  result := TBroadcastChatService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TBroadcastChatService_AsyncProxy }
+
+function TBroadcastChatService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'BroadcastChatService';
+end;
+
+procedure TBroadcastChatService_AsyncProxy.Invoke_SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
+begin
+  __AssertProxyNotBusy('SendMessage');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'BroadcastChatLibrary', __InterfaceName, 'SendMessage');
+  __Message.Write('iDate', TypeInfo(DateTime), iDate, [paIsDateTime]);
+  __Message.Write('iFrom', TypeInfo(Widestring), iFrom, []);
+  __Message.Write('iMessage', TypeInfo(Widestring), iMessage, []);
+  __DispatchAsyncRequest('SendMessage',__Message, false);
+    __Message.UnsetAttributes(__TransportChannel);
+end;
+
+procedure TBroadcastChatService_AsyncProxy.Invoke_GetInfo;
+begin
+  __AssertProxyNotBusy('GetInfo');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'BroadcastChatLibrary', __InterfaceName, 'GetInfo');
+  __DispatchAsyncRequest('GetInfo',__Message);
+end;
+
+function TBroadcastChatService_AsyncProxy.Retrieve_GetInfo: Widestring;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetInfo');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Widestring), Result, []);
+
+  __response.Free();
+end;
+
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Intf.pas
new file mode 100644
index 0000000..e6a7a94
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Intf.pas	
@@ -0,0 +1,114 @@
+unit BroadcastChatLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{046A7B5C-4E0B-43A9-8EF9-401F5705E52B}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IBroadcastChatService_IID : TGUID = '{0BD653EA-D4B0-46BE-9856-2FD482115A77}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IBroadcastChatService = interface;
+
+
+  { IBroadcastChatService }
+  IBroadcastChatService = interface
+    ['{0BD653EA-D4B0-46BE-9856-2FD482115A77}']
+    procedure SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
+    function GetInfo: Widestring;
+  end;
+
+  { CoBroadcastChatService }
+  CoBroadcastChatService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBroadcastChatService;
+  end;
+
+  { TBroadcastChatService_Proxy }
+  TBroadcastChatService_Proxy = class(TROProxy, IBroadcastChatService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
+    function GetInfo: Widestring;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoBroadcastChatService }
+
+class function CoBroadcastChatService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBroadcastChatService;
+begin
+  result := TBroadcastChatService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TBroadcastChatService_Proxy }
+
+function TBroadcastChatService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'BroadcastChatService';
+end;
+
+procedure TBroadcastChatService_Proxy.SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'BroadcastChatLibrary', __InterfaceName, 'SendMessage');
+    __Message.Write('iDate', TypeInfo(DateTime), iDate, [paIsDateTime]);
+    __Message.Write('iFrom', TypeInfo(Widestring), iFrom, []);
+    __Message.Write('iMessage', TypeInfo(Widestring), iMessage, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TBroadcastChatService_Proxy.GetInfo: Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'BroadcastChatLibrary', __InterfaceName, 'GetInfo');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IBroadcastChatService_IID, TBroadcastChatService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IBroadcastChatService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Invk.pas
new file mode 100644
index 0000000..83d0106
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatLibrary_Invk.pas	
@@ -0,0 +1,86 @@
+unit BroadcastChatLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} BroadcastChatLibrary_Intf;
+
+type
+  TBroadcastChatService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_SendMessage(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TBroadcastChatService_Invoker }
+
+constructor TBroadcastChatService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TBroadcastChatService_Invoker.Invoke_SendMessage(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring); }
+var
+  iDate: DateTime;
+  iFrom: Widestring;
+  iMessage: Widestring;
+begin
+  try
+    __Message.Read('iDate', TypeInfo(DateTime), iDate, [paIsDateTime]);
+    __Message.Read('iFrom', TypeInfo(Widestring), iFrom, []);
+    __Message.Read('iMessage', TypeInfo(Widestring), iMessage, []);
+
+    (__Instance as IBroadcastChatService).SendMessage(iDate, iFrom, iMessage);
+
+    __Message.InitializeResponseMessage(__Transport, 'BroadcastChatLibrary', 'BroadcastChatService', 'SendMessageResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TBroadcastChatService_Invoker.Invoke_GetInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetInfo: Widestring; }
+var
+  lResult: Widestring;
+begin
+  try
+    lResult := (__Instance as IBroadcastChatService).GetInfo;
+
+    __Message.InitializeResponseMessage(__Transport, 'BroadcastChatLibrary', 'BroadcastChatService', 'GetInfoResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatMain.dfm
new file mode 100644
index 0000000..1f8e5a2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatMain.dfm	
@@ -0,0 +1,319 @@
+object BroadcastChatMainForm: TBroadcastChatMainForm
+  Left = 52
+  Top = 80
+  ActiveControl = ed_Message
+  AutoScroll = False
+  BorderWidth = 5
+  Caption = 'RemObjects SDK Broadcast Channel LAN Chat Client'
+  ClientHeight = 239
+  ClientWidth = 449
+  Color = clBtnFace
+  Constraints.MinHeight = 250
+  Constraints.MinWidth = 416
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 449
+    Height = 26
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      449
+      26)
+    object Label1: TLabel
+      Left = 0
+      Top = 2
+      Width = 53
+      Height = 13
+      Caption = 'Nick Name:'
+    end
+    object Panel8: TPanel
+      Left = 60
+      Top = 0
+      Width = 389
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      BevelInner = bvLowered
+      BevelOuter = bvNone
+      TabOrder = 0
+      object Panel9: TPanel
+        Left = 1
+        Top = 1
+        Width = 387
+        Height = 19
+        Align = alClient
+        BevelOuter = bvNone
+        BorderWidth = 1
+        TabOrder = 0
+        DesignSize = (
+          387
+          19)
+        object ed_NickName: TEdit
+          Left = 1
+          Top = 1
+          Width = 386
+          Height = 17
+          Anchors = [akLeft, akTop, akRight]
+          BorderStyle = bsNone
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -13
+          Font.Name = 'Courier New'
+          Font.Style = []
+          ParentFont = False
+          TabOrder = 0
+        end
+      end
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 26
+    Width = 449
+    Height = 133
+    Align = alClient
+    BevelInner = bvLowered
+    BevelOuter = bvNone
+    TabOrder = 1
+    object Panel4: TPanel
+      Left = 1
+      Top = 1
+      Width = 447
+      Height = 131
+      Align = alClient
+      BevelOuter = bvNone
+      BorderWidth = 1
+      TabOrder = 0
+      object ed_Chat: TMemo
+        Left = 1
+        Top = 1
+        Width = 445
+        Height = 129
+        Align = alClient
+        BorderStyle = bsNone
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -13
+        Font.Name = 'Courier New'
+        Font.Style = []
+        ParentFont = False
+        ReadOnly = True
+        ScrollBars = ssVertical
+        TabOrder = 0
+      end
+    end
+  end
+  object Panel3: TPanel
+    Left = 0
+    Top = 159
+    Width = 449
+    Height = 80
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    DesignSize = (
+      449
+      80)
+    object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+      Left = 0
+      Top = 32
+      Width = 212
+      Height = 48
+      Cursor = crHandPoint
+      ApplicationType = atClient
+    end
+    object Panel5: TPanel
+      Left = 0
+      Top = 5
+      Width = 449
+      Height = 21
+      Align = alTop
+      BevelInner = bvLowered
+      BevelOuter = bvNone
+      TabOrder = 0
+      object Panel6: TPanel
+        Left = 1
+        Top = 1
+        Width = 447
+        Height = 19
+        Align = alClient
+        BevelOuter = bvNone
+        BorderWidth = 1
+        TabOrder = 0
+        DesignSize = (
+          447
+          19)
+        object ed_Message: TEdit
+          Left = 1
+          Top = 1
+          Width = 445
+          Height = 17
+          Anchors = [akLeft, akTop, akRight]
+          BorderStyle = bsNone
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -13
+          Font.Name = 'Courier New'
+          Font.Style = []
+          ParentFont = False
+          TabOrder = 0
+        end
+      end
+    end
+    object Panel7: TPanel
+      Left = 0
+      Top = 0
+      Width = 449
+      Height = 5
+      Align = alTop
+      BevelOuter = bvNone
+      TabOrder = 1
+    end
+    object btn_Send: TBitBtn
+      Left = 335
+      Top = 32
+      Width = 114
+      Height = 25
+      Action = ac_SendMessage
+      Anchors = [akTop, akRight]
+      Caption = '&Send Message'
+      TabOrder = 2
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF0170ACFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9B9B9BFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF0275B00E88C00275B0096EA10174AFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9D9D9DAAAAAA9D
+        9D9D9E9E9E9C9C9CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF0275B0279FDA1379B05FE3FF70EFFC5DD4E50C699A0275B00275
+        B0FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9D9D9DBDBDBDA8A8A8DC
+        DCDCE0E0E0D4D4D49E9E9E9D9D9D9D9D9DFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF0275B03FC7FF147FBA1682BB52D7FF6CEBFE7FFEFF86FFFF8AFFFF5FD7
+        E60275B00275B00473ADFF00FFFF00FFFF00FF9D9D9DD0D0D0ABABABACACACD7
+        D7D7E0E0E0E6E6E6E8E8E8EAEAEAD5D5D59D9D9D9D9D9D9E9E9EFF00FFFF00FF
+        0275B03EC4FC3BC2FF117DB63FC4F847CCFB63E3FC7BF8FF7FFBFF80FEFF7EFB
+        FC1D84AF2DA5D90679B4FF00FFFF00FF9D9D9DCFCFCFCFCFCFA9A9A9CECECED2
+        D2D2DCDCDCE5E5E5E6E6E6E6E6E6E5E5E5ACACACBFBFBFA1A1A1FF00FF0275B0
+        56D9FF48CCFB42C5F8128BC53FC4F83FC4F85ADCFB77F4FF82FFFF73EDF31D84
+        AF32B1ED0174AFFF00FFFF00FF9D9D9DD9D9D9D2D2D2D0D0D0ADADADCECECECE
+        CECED9D9D9E3E3E3E7E7E7DFDFDFACACACC6C6C69C9C9CFF00FF0275B076F4FF
+        64E5FE5DDEFB5FD7E60377B13BC1FE3ABFFA51D4FB72F2FF64DCEA1D84AF35B7
+        F338BDFB0174AFFF00FF9D9D9DE3E3E3DDDDDDDADADAD5D5D59E9E9ECECECECD
+        CDCDD6D6D6E2E2E2D7D7D7ACACACC9C9C9CDCDCD9C9C9CFF00FF0275B08BFFFF
+        77F3FE5FD7E60375B01C8EC7C738382EACE648C9F448BFDE2B9AC751D4FA4FD3
+        FE0174AFFF00FFFF00FF9D9D9DEAEAEAE3E3E3D5D5D59E9E9EB3B3B3818181C3
+        C3C3D1D1D1CBCBCBB9B9B9D5D5D5D6D6D69C9C9CFF00FFFF00FF0275B08EFFFF
+        5FD7E60070AD0172AC006BA4C738380183BD0C8CC25AD5E775F6FFC73838C738
+        380D87BCFF00FFFF00FF9D9D9DEAEAEAD5D5D59B9B9B9C9C9C989898818181A1
+        A1A1A9A9A9D4D4D4E3E3E3818181818181A8A8A8FF00FFFF00FF0275B05FD7E6
+        006FAC0377B10378B2006CA7C73838CC474707A7E06DEBF484FFFFC73838CF4F
+        4FC73838FF00FFFF00FF9D9D9DD5D5D59A9A9A9E9E9E9F9F9F9999998181818E
+        8E8EAFAFAFDEDEDEE7E7E7818181959595818181FF00FFFF00FF0376B00275B0
+        0377B10378B20472AA03669EC73838CE4B4BC73838C73838C73838C73838E290
+        90D35C5CC73838FF00FF9E9E9E9D9D9D9E9E9E9E9E9E9E9E9E99999981818190
+        9090818181818181818181818181C4C4C49E9E9E818181FF00FFFF00FFFF00FF
+        FF00FFFF00FF0378B20379B40279B4C73838D15656D05454D46262D96F6FDE83
+        83E39797D76A6AC73838FF00FFFF00FFFF00FFFF00FF9F9F9F9F9F9F9E9E9E81
+        81819A9A9A999999A3A3A3ADADADBBBBBBC9C9C9A9A9A9818181FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC73838CC4747D05353D56464DA75
+        75E18A8AD96F6FC73838FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FF8181818E8E8E979797A4A4A4B1B1B1C0C0C0ACACAC818181FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC73838C73838C73838D769
+        69D15656C73838FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF818181818181818181A8A8A89A9A9A818181FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC73838CA3F
+        3FC73838FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF818181878787818181FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC73838C738
+        38FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF818181818181FF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object BitBtn1: TBitBtn
+      Left = 215
+      Top = 32
+      Width = 114
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'List Users'
+      TabOrder = 3
+      OnClick = BitBtn1Click
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000220B0000220B00000000000000000000FF00FF314B62
+        AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF
+        106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF
+        00FF925D5AB48C80C9A391C28F88FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF3BABFFA1CAE78C7775A38372EBE0B8FEFCCFFEFCCEFCFBCCE3CF
+        B1C0998CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBDA4A4CEA58FFF
+        EDB2FFFCCAFFFFCFFFFFCFFFFFD5FFFFEAF3EBE5A0746FFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFB67F76F4D9A1F6D095FCF4C2FFFFCFFFFFD8FFFFEEFFFF
+        FAFFFFFFD5C2ACFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFD0A792FBDC9AEE
+        B87FFBF0BDFFFFD0FFFFDCFFFFF7FFFFFAFFFFE6EEEAC2B7847EFF00FFFF00FF
+        FF00FFFF00FFFF00FFDCB79AFAD796EAA76CF7DAA3FFFFCEFFFFD4FFFFE1FFFF
+        E3FFFFD7F8F6CBB69782FF00FFFF00FFFF00FFFF00FFFF00FFD5AF96FEE2A1EA
+        A96AEFBD80FAE9B4FFFFD0FFFFD3FFFFD1FFFFD1F3EEC5B88B80FF00FFFF00FF
+        FF00FFFF00FFFF00FFBB8980FCEBB1F8E2B5F0C690F0C286F7DCA5FEF3C1FEF8
+        C6FFFFCFDDCEA9FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFD3B499FF
+        FFFFFFF4E2EFBD80EBAB6FF0C086FBDEA3FCF3B8AC8676FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFC6ADA7F3EBD1FFEEAFFCDE9DFEE2A1F0D4
+        A4C29886FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFBB987EC19983D3AD93D1A592FF00FFFF00FFFF00FFFF00FF}
+    end
+  end
+  object ROBINMessage: TROBinMessage
+    Left = 49
+    Top = 43
+  end
+  object ROBroadcastServer: TROBroadcastServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROBINMessage'
+        Message = ROBINMessage
+        Enabled = True
+      end>
+    IndyUDPServer.BroadcastEnabled = True
+    IndyUDPServer.Bindings = <>
+    IndyUDPServer.DefaultPort = 8090
+    Left = 49
+    Top = 139
+  end
+  object ROBroadcastChannel: TROBroadcastChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    AsyncTimeOut = 100
+    Retrys = 5
+    IndyClient.BroadcastEnabled = True
+    IndyClient.Port = 8090
+    Port = 8090
+    OnBroadCastResponseReceived = ROBroadcastChannelBroadCastResponseReceived
+    Left = 49
+    Top = 91
+  end
+  object ActionList1: TActionList
+    OnUpdate = ActionList1Update
+    Left = 137
+    Top = 43
+    object ac_SendMessage: TAction
+      Caption = '&Send Message'
+      ShortCut = 13
+      OnExecute = ac_SendMessageExecute
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatMain.pas
new file mode 100644
index 0000000..812cd91
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatMain.pas	
@@ -0,0 +1,132 @@
+unit BroadcastChatMain;
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, Buttons, uROPoweredByRemObjectsButton,
+  uROServer, uROIndyUDPServer, uROBroadcastServer,
+  uROIndyUDPChannel, uROBroadcastChannel, uROClient,
+  uROBINMessage, BroadcastChatLibrary_Async, ActnList;
+
+type
+  TBroadcastChatMainForm = class(TForm)
+    Panel1: TPanel;
+    Panel2: TPanel;
+    Panel3: TPanel;
+    Panel4: TPanel;
+    ed_Chat: TMemo;
+    Panel5: TPanel;
+    Panel6: TPanel;
+    Panel7: TPanel;
+    ed_Message: TEdit;
+    Panel8: TPanel;
+    Panel9: TPanel;
+    ed_NickName: TEdit;
+    Label1: TLabel;
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    btn_Send: TBitBtn;
+    ROBINMessage: TROBINMessage;
+    ROBroadcastServer: TROBroadcastServer;
+    ROBroadcastChannel: TROBroadcastChannel;
+    ActionList1: TActionList;
+    ac_SendMessage: TAction;
+    BitBtn1: TBitBtn;
+    procedure FormCreate(Sender: TObject);
+    procedure ac_SendMessageExecute(Sender: TObject);
+    procedure ActionList1Update(Action: TBasicAction;
+      var Handled: Boolean);
+    procedure BitBtn1Click(Sender: TObject);
+    //    procedure tim_CheckInfoTimer(Sender: TObject);
+    procedure ROBroadcastChannelBroadCastResponseReceived(aServerIP, aResponseUID: string);
+    procedure FormDestroy(Sender: TObject);
+  private
+    fChatProxy: IBroadcastChatService_Async;
+  public
+{$IFDEF VER140}
+    procedure WMUser(var Msg: TMessage); message WM_USER;
+{$ENDIF}
+    procedure MessageReceived(iDate: TDateTime; const iFrom, iMessage: Widestring);
+  end;
+
+var
+  BroadcastChatMainForm: TBroadcastChatMainForm;
+
+implementation
+
+uses
+  IdStack, IdGlobal, BroadcastChatService_Impl;
+
+{$R *.dfm}
+
+{$IFDEF RemObjects_INDY8}
+
+function IndyGetHostName: string;
+var
+  i: LongWord;
+begin
+  SetLength(Result, MAX_COMPUTERNAME_LENGTH + 1);
+  i := Length(Result);
+  if GetComputerName(@Result[1], i) then begin
+    SetLength(Result, i);
+  end;
+end;
+{$ENDIF}
+
+procedure TBroadcastChatMainForm.FormCreate(Sender: TObject);
+begin
+  fChatProxy := CoBroadcastChatService_Async.Create(ROBINMessage, ROBroadcastChannel);
+{$IFDEF RemObjects_INDY10}
+  ed_NickName.Text := GStack.HostName;
+{$ELSE}
+  ed_NickName.Text := IndyGetHostName;
+{$ENDIF}
+end;
+
+procedure TBroadcastChatMainForm.MessageReceived(iDate: TDateTime; const iFrom, iMessage: Widestring);
+begin
+  ed_Chat.Lines.Add(Format('[%s] <%s> %s', [TimeToStr(iDate), iFrom, iMessage]));
+end;
+
+procedure TBroadcastChatMainForm.ac_SendMessageExecute(Sender: TObject);
+begin
+  if ed_Message.Text <> '' then begin
+    fChatProxy.Invoke_SendMessage(Now, ed_NickName.Text, ed_Message.Text);
+    ed_Message.Text := '';
+    ActiveControl := ed_Message;
+  end;
+end;
+
+procedure TBroadcastChatMainForm.ActionList1Update(Action: TBasicAction; var Handled: Boolean);
+begin
+  ac_SendMessage.Enabled := ed_Message.Text <> '';
+end;
+
+procedure TBroadcastChatMainForm.BitBtn1Click(Sender: TObject);
+begin
+  fChatProxy.Invoke_GetInfo();
+end;
+
+procedure TBroadcastChatMainForm.ROBroadcastChannelBroadCastResponseReceived(aServerIP, aResponseUID: string);
+var
+  lName: string;
+begin
+  lName := fChatProxy.Retrieve_GetInfo();
+  ed_Chat.Lines.Add(Format('[%s] chat user: %s (at %s)', [TimeToStr(Now), lName, aServerIP]));
+end;
+
+procedure TBroadcastChatMainForm.FormDestroy(Sender: TObject);
+begin
+  fChatProxy := nil;
+end;
+
+{$IFDEF VER140}
+procedure TBroadcastChatMainForm.WMUser(var Msg: TMessage);
+begin
+  TBroadcastChatService(Msg.WParam).MessageReceived;
+end;
+{$ENDIF}
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatService_Impl.pas
new file mode 100644
index 0000000..a353902
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/BroadcastChatService_Impl.pas	
@@ -0,0 +1,72 @@
+unit BroadcastChatService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} BroadcastChatLibrary_Intf;
+
+type
+  { TBroadcastChatService }
+  TBroadcastChatService = class(TRORemotable, IBroadcastChatService)
+  private
+    fSync_Date: TDateTime;
+    fSync_From, fSync_Message: Widestring;
+  protected
+    { IBroadcastChatService methods }
+    procedure SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
+    function GetInfo: Widestring;
+  public
+    procedure MessageReceived;
+  end;
+
+implementation
+
+uses
+  {Generated:} BroadcastChatLibrary_Invk, BroadcastChatMain{$IFDEF VER140}, Windows, Messages{$ENDIF};
+
+procedure Create_BroadcastChatService(out anInstance: IUnknown);
+begin
+  anInstance := TBroadcastChatService.Create;
+end;
+
+{ BroadcastChatService }
+
+procedure TBroadcastChatService.SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
+begin
+  fSync_Date := iDate;
+  fSync_From := iFrom;
+  fSync_Message := iMessage;
+{$IFDEF VER140}
+  Windows.SendMessage(BroadcastChatMainForm.Handle, WM_USER, Longint(Self), 0); // workaround for d6
+{$ELSE}
+  Synchronize(MessageReceived);
+{$ENDIF}
+end;
+
+function TBroadcastChatService.GetInfo: Widestring;
+begin
+  { we'll just assume that this operation is trivial enough to be threadsafe ;-}
+  result := BroadcastChatMainForm.ed_NickName.Text;
+end;
+
+procedure TBroadcastChatService.MessageReceived;
+begin
+  BroadcastChatMainForm.MessageReceived(fSync_Date, fSync_From, fSync_Message);
+end;
+
+initialization
+  TROClassFactory.Create('BroadcastChatService', Create_BroadcastChatService, TBroadcastChatService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/RODLFILE.res
new file mode 100644
index 0000000..d734764
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Broadcast Chat/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.Sample.html
new file mode 100644
index 0000000..8a3cb15
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.Sample.html	
@@ -0,0 +1,39 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>COM Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>This sample shows how to call an existing RO server using COM.</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Launch the MegaDemoServer.exe (via the menu option: <strong>RemObjects | 
+	    Launch Server Executable</strong>) and activate the HTTP server</li>.
+	<li>Ensure that COMClient is the selected project and run it.</li>
+	<li>Check that the client buttons work as expected.</li>
+</ul>
+<h2>Examine the Code</h2>
+<ul>
+  <li>
+    See the simple code needed to invoke the methods in <strong>COM_Main.pas</strong>.
+  </li>
+</ul>
+
+<h2>Note</h2>
+<p>
+  The sample also shows how to call server methods from *.asp, *.vbs, *.xls.
+</p>  
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.bdsgroup
new file mode 100644
index 0000000..0384124
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{CBF5C10B-75EE-42AE-A72B-382BF722D4B6}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="COMClient.exe">COMClient.bdsproj</Projects>
+      <Projects Name="MegaDemoServer.exe">..\MegaDemo\MegaDemoServer.bdsproj</Projects>
+      <Projects Name="Targets">COMClient.exe MegaDemoServer.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.bpg
new file mode 100644
index 0000000..3ec5cee
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = COMClient.exe MegaDemoServer.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+COMClient.exe: COMClient.dpr
+  $(DCC)
+
+MegaDemoServer.exe: ..\MegaDemo\MegaDemoServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.groupproj
new file mode 100644
index 0000000..0a2dc42
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{b969aecf-2818-493a-a1fe-bf1d8ea44a88}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="COMClient">
+    <MSBuild Projects="COMClient.dproj" Targets="" />
+  </Target>
+  <Target Name="COMClient:Clean">
+    <MSBuild Projects="COMClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="COMClient:Make">
+    <MSBuild Projects="COMClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="MegaDemoServer">
+    <MSBuild Projects="..\MegaDemo\MegaDemoServer.dproj" Targets="" />
+  </Target>
+  <Target Name="MegaDemoServer:Clean">
+    <MSBuild Projects="..\MegaDemo\MegaDemoServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MegaDemoServer:Make">
+    <MSBuild Projects="..\MegaDemo\MegaDemoServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="COMClient;MegaDemoServer" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="COMClient:Clean;MegaDemoServer:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="COMClient:Make;MegaDemoServer:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.bdsproj
new file mode 100644
index 0000000..04f4f0c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{DCBE9437-7172-4115-AFDB-7FFD1627AC04}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">COMClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.cfg
new file mode 100644
index 0000000..abb80b5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.cfg	
@@ -0,0 +1,44 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-SYMBOL_DEPRECATED
+-w-SYMBOL_LIBRARY
+-w-SYMBOL_PLATFORM
+-w-UNIT_LIBRARY
+-w-UNIT_PLATFORM
+-w-UNIT_DEPRECATED
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dof
new file mode 100644
index 0000000..e7cfd1c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dof	
@@ -0,0 +1,151 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=0
+SymbolLibrary=0
+SymbolPlatform=0
+UnitLibrary=0
+UnitPlatform=0
+UnitDeprecated=0
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;vcldb;dsnapcon;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;ES_CodeSite20;CDKSmp;CDK;ESDelphiCommandCompiler;ESFileSearch;ESVisualCompositeExpert;EaglWk;ESGraphUtils;ESBase;CDKDesignTimeSupport;ESVsCp;addict3_d6;dxEdtrD7;dxExELD7;dxComnD7;dxDBEdD7;dxInsD7;dxGrEdD7;ECQDBCD7;EQTLD7;EQDBTLD7;EQGridD7;dxMasterViewD7;dxObjInsD7;dxPageControlD7;dxPSCoreD7;SynEdit_D7;tb2kComplete_70;EzSpecials_D7;PurposesoftD7;Rz252D70;Rz252N70;sq7;kprocs7;CrTb2k;ESCore;CR_Standard;Hydra_Core_D7;madBasic_;madDisAsm_;StrSecII70;SsTLSIndy9D7;CertMgrCtrlsD7;ZCore;ZParse;ZParseSql;ZPlain;ZDbc;ZComponent;dxELibD7;dxExRwD7;cxPageControlVCLD7;cxLibraryVCLD7;dxThemeD7;cxWebPascalScriptD7;cxWebD7;cxWebTeeChartD7;cxDataD7;cxGridUtilsVCLD7;cxGridVCLD7;cxEditorsVCLD7;cxSpreadSheetVCLD7;cxVerticalGridVCLD7;cxCommonEditingVCLD7;cxWebSnapD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxmdsD7;dxNavBarD7;cxExtEditorsVCLD7;cxExportVCLD7;eDebugServer_ViewerTarget_Designtime_D7;cxScriptEngineD7;EWFServerPack_Core_D7;EWFServerPack_IDE_D7;EWFServerPack_Indy_D7;cxTreeListVCLD7;RemObjects_RODX_D7;RO_ToolsDesigntime_D7;DataAbstract_IDE_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;RO_ServiceTesterDesigntime_D7;RemObjects_Synapse_D7;RemObjects_Indy_D7;RemObjects_BPDX_D7;Hydra_RO_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+R:\Data Abstract\Dcu\D7\DataAbstract_Core_D7.bpl=Data Abstract - Core Library
+R:\Data Abstract\Dcu\D7\DataAbstract_IDE_D7.bpl=Data Abstract - IDE Package
+R:\Data Abstract\Dcu\D7\DataAbstract_IBXDriver_D7.bpl=Data Abstract - InterBase Express Driver
+R:\Data Abstract\Dcu\D7\DataAbstract_DBXDriver_D7.bpl=Data Abstract - dbExpress Driver
+R:\Data Abstract\Dcu\D7\DataAbstract_ADODriver_D7.bpl=Data Abstract - ADOExpress/dbGo Driver
+R:\Hydra\Dcu\D7\Hydra_RO_D7.bpl=RemObjects' Hydra - RemObjects SDK Integration Library
+L:\Packages\eBrazil_70.bpl=elitedevelopments Library - Brazil - FOR INTERNAL USE ONLY
+L:\Packages\eBrazilComponents_70.bpl=elitedevelopments Library - Brazil Components - FOR INTERNAL USE ONLY
+L:\Packages\eBrazilContentEditor_70.bpl=elitedevelopments Library - Brazil Content Editor 2.0 - FOR INTERNAL USE ONLY
+R:\NexusDB Pack\Dcu\D7\RemObjects_NexusDB_IDE_D7.bpl=(untitled)
+C:\Program Files\Borland\Delphi7\Projects\Bpl\NexusDB103dv70.bpl=NexusDB 1.03 - designtime - VCL70
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dpr
new file mode 100644
index 0000000..fbc0e5a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dpr	
@@ -0,0 +1,15 @@
+program COMClient;
+
+uses
+  Forms,
+  COM_Main in 'COM_Main.pas' {COM_MainForm},
+  ROCOM_TLB in 'ROCOM_TLB.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'COM Test Client';
+  Application.CreateForm(TCOM_MainForm, COM_MainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dproj
new file mode 100644
index 0000000..8bc8641
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.dproj	
@@ -0,0 +1,79 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{9c951f2c-b529-4e19-b099-06fda13e4bd6}</ProjectGuid>
+    <MainSource>COMClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>COMClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">COMClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="COMClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="COM_Main.pas">
+      <Form>COM_MainForm</Form>
+    </DCCReference>
+    <DCCReference Include="ROCOM_TLB.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COMClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM_Main.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM_Main.dfm
new file mode 100644
index 0000000..9384062
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM_Main.dfm	
@@ -0,0 +1,48 @@
+object COM_MainForm: TCOM_MainForm
+  Left = 494
+  Top = 271
+  Width = 248
+  Height = 191
+  Caption = 'COM Test'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 11
+    Top = 104
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    ApplicationType = atClient
+  end
+  object SumButton: TButton
+    Left = 80
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'Sum'
+    TabOrder = 0
+    OnClick = SumButtonClick
+  end
+  object TPersonButton: TButton
+    Left = 80
+    Top = 40
+    Width = 75
+    Height = 25
+    Caption = 'TPerson'
+    TabOrder = 1
+    OnClick = TPersonButtonClick
+  end
+  object MultipleCallButton: TButton
+    Left = 80
+    Top = 72
+    Width = 75
+    Height = 25
+    Caption = 'Multiple calls'
+    Default = True
+    TabOrder = 2
+    OnClick = MultipleCallButtonClick
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM_Main.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM_Main.pas
new file mode 100644
index 0000000..5f4facd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/COM_Main.pas	
@@ -0,0 +1,93 @@
+unit COM_Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, uROPoweredByRemObjectsButton;
+
+type
+  TCOM_MainForm = class(TForm)
+    SumButton: TButton;
+    TPersonButton: TButton;
+    MultipleCallButton: TButton;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    procedure SumButtonClick(Sender: TObject);
+    procedure TPersonButtonClick(Sender: TObject);
+    procedure MultipleCallButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  COM_MainForm: TCOM_MainForm;
+
+implementation
+
+uses ComObj, ROCOM_TLB;
+
+{$R *.dfm}
+
+procedure TCOM_MainForm.SumButtonClick(Sender: TObject);
+var
+  roserver,
+    megademoservice: OleVariant;
+begin
+  roserver := CreateOleObject('RemObjects.SDK.COMServer');
+
+  roserver.MessageType := 'BinMessage';
+  roserver.ChannelType := 'HTTP';
+  roserver.SetChannelProperty('TargetURL', 'http://localhost:8099/bin');
+
+  megademoservice := roserver.CreateService('MegaDemoService');
+
+  ShowMessage('The result is ' + VarToStr(megademoservice.Sum(1, 2)));
+end;
+
+procedure TCOM_MainForm.TPersonButtonClick(Sender: TObject);
+var
+  roserver{,
+    megademoservice}: OleVariant;
+  person: OleVariant;
+begin
+  roserver := CreateOleObject('RemObjects.SDK.COMServer');
+
+  roserver.MessageType := 'BinMessage';
+  roserver.ChannelType := 'HTTP';
+  roserver.SetChannelProperty('TargetURL', 'http://localhost:8099/bin');
+
+  person := roserver.CreateComplexType('TPerson');
+  person.FirstName := 'Peter';
+  person.LastName := 'Miller';
+  person.Age := 28;
+
+  ShowMessage(person.FirstName + ' ' + person.LastName + ' ' + VarToStr(person.Age));
+end;
+
+procedure TCOM_MainForm.MultipleCallButtonClick(Sender: TObject);
+var
+  roserver: IROCOMServer;
+  newservice: OleVariant;
+  person: OleVariant;
+begin
+  roserver := CoROCOMServer.Create;
+
+  roserver.MessageType := 'BinMessage';
+  roserver.ChannelType := 'HTTP';
+  roserver.SetChannelProperty('TargetURL', 'http://localhost:8099/bin');
+
+  person := roserver.CreateComplexType('TPerson');
+  person.FirstName := 'Peter';
+  person.LastName := 'Baker';
+  ShowMessage(person.FirstName + ' ' + person.LastName);
+
+  newservice := roserver.CreateService('MegaDemoService');
+
+  ShowMessage('The result is ' + IntToStr(newservice.Sum(101, 202)));
+  ShowMessage('The time on the server is ' + DateTimeToStr(newservice.GetServerTime));
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ExcelDemo.xls b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ExcelDemo.xls
new file mode 100644
index 0000000..9488cf5
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ExcelDemo.xls differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROASPDemo.asp b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROASPDemo.asp
new file mode 100644
index 0000000..56b9880
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROASPDemo.asp	
@@ -0,0 +1,27 @@
+<!--
+Please run 
+<RemObjects SDK for Delphi>\Samples\MegaDemo\MegaDemoServer.exe 
+and activate HTTP server"
+-->
+<%
+Dim result
+
+Set ROServer = Server.CreateObject("RemObjects.SDK.COMServer")
+ROServer.MessageType = "TROBINMessage"
+ROServer.ChannelType = "TROWinInetHTTPChannel"
+ROServer.SetChannelProperty "TargetURL", "http://localhost:8099/BIN"
+
+Set MegaDemoService = ROServer.CreateService("MegaDemoService")
+
+Response.Write "This is an ASP page that invokes methods of the RemObjects MegaDemo<BR>"
+
+result = MegaDemoService.Sum(100, 200)
+Response.Write "The result of 100+200 is " & result & "<BR>"
+
+result = MegaDemoService.GetServerTime
+Response.Write "The time on the server is " & result
+
+Set MegaDemoService = nothing
+Set ROServer = nothing
+
+%>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROCOM_TLB.dcr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROCOM_TLB.dcr
new file mode 100644
index 0000000..36f26e2
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROCOM_TLB.dcr differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROCOM_TLB.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROCOM_TLB.pas
new file mode 100644
index 0000000..aaba674
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/ROCOM_TLB.pas	
@@ -0,0 +1,238 @@
+unit ROCOM_TLB;
+
+// ************************************************************************ //
+// WARNING                                                                    
+// -------                                                                    
+// The types declared in this file were generated from data read from a       
+// Type Library. If this type library is explicitly or indirectly (via        
+// another type library referring to this type library) re-imported, or the   
+// 'Refresh' command of the Type Library Editor activated while editing the   
+// Type Library, the contents of this file will be regenerated and all        
+// manual modifications will be lost.                                         
+// ************************************************************************ //
+
+// PASTLWTR : $Revision:1.0$
+// File generated on 3/4/2004 1:47:40 AM from Type Library described below.
+
+// ************************************************************************  //
+// Type Lib: C:\Dev\ROSDK3\Bin\ROCOM.dll (1)
+// LIBID: {FC2EC537-E5F2-4C65-82EA-AF94C4AA742B}
+// LCID: 0
+// Helpfile: 
+// DepndLst: 
+//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
+//   (2) v4.0 StdVCL, (C:\WINDOWS\system32\stdvcl40.dll)
+// ************************************************************************ //
+{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
+{$WARN SYMBOL_PLATFORM OFF}
+{$WRITEABLECONST ON}
+{$VARPROPSETTER ON}
+interface
+
+uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
+  
+
+// *********************************************************************//
+// GUIDS declared in the TypeLibrary. Following prefixes are used:        
+//   Type Libraries     : LIBID_xxxx                                      
+//   CoClasses          : CLASS_xxxx                                      
+//   DISPInterfaces     : DIID_xxxx                                       
+//   Non-DISP interfaces: IID_xxxx                                        
+// *********************************************************************//
+const
+  // TypeLibrary Major and minor versions
+  ROCOMMajorVersion = 1;
+  ROCOMMinorVersion = 0;
+
+  LIBID_ROCOM: TGUID = '{FC2EC537-E5F2-4C65-82EA-AF94C4AA742B}';
+
+  IID_IROCOMServer: TGUID = '{B59C6504-BAEC-41D3-8740-B8EF6BC8630F}';
+  CLASS_ROCOMServer: TGUID = '{886FF65A-00E0-4D12-8FB3-0129F03842C0}';
+  IID_IROCOMArray: TGUID = '{52F2EA1A-ABDB-4124-9BDE-6B49105A92E9}';
+  IID_IROCOMBinary: TGUID = '{C2B18A45-04B9-45D8-A84F-DACD2FBABAF8}';
+  CLASS_ROCOMBinaryTypeWrapper: TGUID = '{3B24E151-81FC-4EA6-BD91-C602499963F7}';
+  CLASS_ROCOMArrayTypeWrapper: TGUID = '{CFF986AA-6C4A-417F-B688-84CCF32FE0F0}';
+type
+
+// *********************************************************************//
+// Forward declaration of types defined in TypeLibrary                    
+// *********************************************************************//
+  IROCOMServer = interface;
+  IROCOMServerDisp = dispinterface;
+  IROCOMArray = interface;
+  IROCOMArrayDisp = dispinterface;
+  IROCOMBinary = interface;
+  IROCOMBinaryDisp = dispinterface;
+
+// *********************************************************************//
+// Declaration of CoClasses defined in Type Library                       
+// (NOTE: Here we map each CoClass to its Default Interface)              
+// *********************************************************************//
+  ROCOMServer = IROCOMServer;
+  ROCOMBinaryTypeWrapper = IROCOMBinary;
+  ROCOMArrayTypeWrapper = IROCOMArray;
+
+
+// *********************************************************************//
+// Interface: IROCOMServer
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {B59C6504-BAEC-41D3-8740-B8EF6BC8630F}
+// *********************************************************************//
+  IROCOMServer = interface(IDispatch)
+    ['{B59C6504-BAEC-41D3-8740-B8EF6BC8630F}']
+    function CreateService(const ServiceName: WideString): OleVariant; safecall;
+    function CreateComplexType(const ComplexTypeName: WideString): OleVariant; safecall;
+    function CreateArrayType(const aArrayTypeName: WideString): OleVariant; safecall;
+    function CreateBinaryType: OleVariant; safecall;
+    function Get_ChannelType: WideString; safecall;
+    procedure Set_ChannelType(const Value: WideString); safecall;
+    function Get_MessageType: WideString; safecall;
+    procedure Set_MessageType(const Value: WideString); safecall;
+    procedure SetChannelProperty(const Name: WideString; Value: OleVariant); safecall;
+    procedure SetMessageProperty(const Name: WideString; Value: OleVariant); safecall;
+    function GetChannelProperty(const Name: WideString): OleVariant; safecall;
+    function GetMessageProperty(const Name: WideString): OleVariant; safecall;
+    property ChannelType: WideString read Get_ChannelType write Set_ChannelType;
+    property MessageType: WideString read Get_MessageType write Set_MessageType;
+  end;
+
+// *********************************************************************//
+// DispIntf:  IROCOMServerDisp
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {B59C6504-BAEC-41D3-8740-B8EF6BC8630F}
+// *********************************************************************//
+  IROCOMServerDisp = dispinterface
+    ['{B59C6504-BAEC-41D3-8740-B8EF6BC8630F}']
+    function CreateService(const ServiceName: WideString): OleVariant; dispid 1;
+    function CreateComplexType(const ComplexTypeName: WideString): OleVariant; dispid 2;
+    function CreateArrayType(const aArrayTypeName: WideString): OleVariant; dispid 147;
+    function CreateBinaryType: OleVariant; dispid 4;
+    property ChannelType: WideString dispid 8;
+    property MessageType: WideString dispid 9;
+    procedure SetChannelProperty(const Name: WideString; Value: OleVariant); dispid 10;
+    procedure SetMessageProperty(const Name: WideString; Value: OleVariant); dispid 11;
+    function GetChannelProperty(const Name: WideString): OleVariant; dispid 12;
+    function GetMessageProperty(const Name: WideString): OleVariant; dispid 13;
+  end;
+
+// *********************************************************************//
+// Interface: IROCOMArray
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {52F2EA1A-ABDB-4124-9BDE-6B49105A92E9}
+// *********************************************************************//
+  IROCOMArray = interface(IDispatch)
+    ['{52F2EA1A-ABDB-4124-9BDE-6B49105A92E9}']
+    function Get_Count: Integer; safecall;
+    procedure Set_Count(Value: Integer); safecall;
+    procedure SetValue(aIndex: Integer; aValue: OleVariant); safecall;
+    function GetValue(aIndex: Integer): OleVariant; safecall;
+    property Count: Integer read Get_Count write Set_Count;
+  end;
+
+// *********************************************************************//
+// DispIntf:  IROCOMArrayDisp
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {52F2EA1A-ABDB-4124-9BDE-6B49105A92E9}
+// *********************************************************************//
+  IROCOMArrayDisp = dispinterface
+    ['{52F2EA1A-ABDB-4124-9BDE-6B49105A92E9}']
+    property Count: Integer dispid 1;
+    procedure SetValue(aIndex: Integer; aValue: OleVariant); dispid 2;
+    function GetValue(aIndex: Integer): OleVariant; dispid 3;
+  end;
+
+// *********************************************************************//
+// Interface: IROCOMBinary
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {C2B18A45-04B9-45D8-A84F-DACD2FBABAF8}
+// *********************************************************************//
+  IROCOMBinary = interface(IDispatch)
+    ['{C2B18A45-04B9-45D8-A84F-DACD2FBABAF8}']
+    procedure LoadFromFile(const aFilename: WideString); safecall;
+    procedure SaveToFile(const aFilename: WideString); safecall;
+    function ToString: WideString; safecall;
+  end;
+
+// *********************************************************************//
+// DispIntf:  IROCOMBinaryDisp
+// Flags:     (4416) Dual OleAutomation Dispatchable
+// GUID:      {C2B18A45-04B9-45D8-A84F-DACD2FBABAF8}
+// *********************************************************************//
+  IROCOMBinaryDisp = dispinterface
+    ['{C2B18A45-04B9-45D8-A84F-DACD2FBABAF8}']
+    procedure LoadFromFile(const aFilename: WideString); dispid 1;
+    procedure SaveToFile(const aFilename: WideString); dispid 2;
+    function ToString: WideString; dispid 201;
+  end;
+
+// *********************************************************************//
+// The Class CoROCOMServer provides a Create and CreateRemote method to          
+// create instances of the default interface IROCOMServer exposed by              
+// the CoClass ROCOMServer. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoROCOMServer = class
+    class function Create: IROCOMServer;
+    class function CreateRemote(const MachineName: string): IROCOMServer;
+  end;
+
+// *********************************************************************//
+// The Class CoROCOMBinaryTypeWrapper provides a Create and CreateRemote method to          
+// create instances of the default interface IROCOMBinary exposed by              
+// the CoClass ROCOMBinaryTypeWrapper. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoROCOMBinaryTypeWrapper = class
+    class function Create: IROCOMBinary;
+    class function CreateRemote(const MachineName: string): IROCOMBinary;
+  end;
+
+// *********************************************************************//
+// The Class CoROCOMArrayTypeWrapper provides a Create and CreateRemote method to          
+// create instances of the default interface IROCOMArray exposed by              
+// the CoClass ROCOMArrayTypeWrapper. The functions are intended to be used by             
+// clients wishing to automate the CoClass objects exposed by the         
+// server of this typelibrary.                                            
+// *********************************************************************//
+  CoROCOMArrayTypeWrapper = class
+    class function Create: IROCOMArray;
+    class function CreateRemote(const MachineName: string): IROCOMArray;
+  end;
+
+implementation
+
+uses ComObj;
+
+class function CoROCOMServer.Create: IROCOMServer;
+begin
+  Result := CreateComObject(CLASS_ROCOMServer) as IROCOMServer;
+end;
+
+class function CoROCOMServer.CreateRemote(const MachineName: string): IROCOMServer;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_ROCOMServer) as IROCOMServer;
+end;
+
+class function CoROCOMBinaryTypeWrapper.Create: IROCOMBinary;
+begin
+  Result := CreateComObject(CLASS_ROCOMBinaryTypeWrapper) as IROCOMBinary;
+end;
+
+class function CoROCOMBinaryTypeWrapper.CreateRemote(const MachineName: string): IROCOMBinary;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_ROCOMBinaryTypeWrapper) as IROCOMBinary;
+end;
+
+class function CoROCOMArrayTypeWrapper.Create: IROCOMArray;
+begin
+  Result := CreateComObject(CLASS_ROCOMArrayTypeWrapper) as IROCOMArray;
+end;
+
+class function CoROCOMArrayTypeWrapper.CreateRemote(const MachineName: string): IROCOMArray;
+begin
+  Result := CreateRemoteComObject(MachineName, CLASS_ROCOMArrayTypeWrapper) as IROCOMArray;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/Test.vbs b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/Test.vbs
new file mode 100644
index 0000000..e624596
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/COM/Test.vbs	
@@ -0,0 +1,19 @@
+Dim result
+
+MsgBox "Please run <RemObjects SDK for Delphi>\Samples\MegaDemo\MegaDemoServer.exe and activate HTTP server"
+
+Set ROServer = CreateObject("RemObjects.SDK.COMServer")
+ROServer.MessageType = "TROBINMessage"
+ROServer.ChannelType = "TROWinInetHTTPChannel"
+ROServer.SetChannelProperty "TargetURL", "http://localhost:8099/BIN"
+
+Set MegaDemoService = ROServer.CreateService("MegaDemoService")
+
+result = MegaDemoService.Sum(100, 200)
+MsgBox "The result was [" & result & "]"
+
+result = MegaDemoService.GetServerTime
+MsgBox "The result was [" & result & "]"
+
+Set MegaDemoService = nothing
+Set ROServer = nothing
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.Sample.html
new file mode 100644
index 0000000..48ee2ce
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.Sample.html	
@@ -0,0 +1,41 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Class Factories</span> 
+</p>
+
+<h2>Purpose</h2><p>This example shows how to use a <strong>Class Factory </strong>to generate three types of 
+server:</p>
+<ul>
+<li><strong>Singleton</strong>: all clients access a single server object.</li>
+<li><strong>Single Call</strong>: server instances are created on demand and destroyed after processing the method call.</li>
+<li><strong>Pooled</strong>: multiple server instances are accessible by clients. This
+    factory works exactly the same as Singleton, unless the first server instance is
+    busy.</li></ul>
+        <p>
+            <strong>Note</strong>: to test this sample properly, you need to run at least two clients.
+        </p>
+        <p>
+        </p>
+        <h2>
+            Examine the Code</h2>
+<ul>
+<li>See how the three services were defined by editing the service library. Do this by making the <strong>server</strong> 
+the selected project and by using the menu option: <strong>RemObjects | Edit Service Library</strong>. 
+    <br />
+    <strong>Note</strong>: if you don't see this menu option but see 'Service Builder' instead, 
+you still have the client set as the current project.</li>
+<li>The implementation of the three server types is held in three Impl.pas files: <strong>SingletonService_Impl</strong>, 
+<strong>SingleCallService_Impl</strong> and <strong>PooledService_Impl</strong>.</li>
+<li>Examine the simple code needed to invoke the methods in <strong>ClassFactoryClientMain.pas</strong>. </li>
+</ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.bdsgroup
new file mode 100644
index 0000000..e719d18
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{A63822DE-BB05-4997-82F0-A0365363EDAC}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="ClassFactoryServer.exe">ClassFactoryServer.bdsproj</Projects>
+      <Projects Name="ClassFactoryClient.exe">ClassFactoryClient.bdsproj</Projects>
+      <Projects Name="Targets">ClassFactoryServer.exe ClassFactoryClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.bpg
new file mode 100644
index 0000000..fb0e659
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ClassFactoryServer.exe ClassFactoryClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ClassFactoryClient.exe: ClassFactoryClient.dpr
+  $(DCC)
+
+ClassFactoryServer.exe: ClassFactoryServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.groupproj
new file mode 100644
index 0000000..e7a1a2a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactories.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{0fdd2da8-7771-46ec-80ff-8029ed719481}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="ClassFactoryServer">
+    <MSBuild Projects="ClassFactoryServer.dproj" Targets="" />
+  </Target>
+  <Target Name="ClassFactoryServer:Clean">
+    <MSBuild Projects="ClassFactoryServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ClassFactoryServer:Make">
+    <MSBuild Projects="ClassFactoryServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ClassFactoryClient">
+    <MSBuild Projects="ClassFactoryClient.dproj" Targets="" />
+  </Target>
+  <Target Name="ClassFactoryClient:Clean">
+    <MSBuild Projects="ClassFactoryClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ClassFactoryClient:Make">
+    <MSBuild Projects="ClassFactoryClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="ClassFactoryServer;ClassFactoryClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="ClassFactoryServer:Clean;ClassFactoryClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="ClassFactoryServer:Make;ClassFactoryClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.bdsproj
new file mode 100644
index 0000000..115a19e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{3F221C60-195B-45A6-8EE5-8A4DB5BAE95E}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ClassFactoryClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.dpr
new file mode 100644
index 0000000..e737c09
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.dpr	
@@ -0,0 +1,14 @@
+program ClassFactoryClient;
+
+uses
+  Forms,
+  ClassFactoryClientMain in 'ClassFactoryClientMain.pas' {ClassFactoryClientMainForm},
+  ClassFactoryLibrary_Intf in 'ClassFactoryLibrary_Intf.pas';
+
+{$R *.RES}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClassFactoryClientMainForm, ClassFactoryClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.dproj
new file mode 100644
index 0000000..d774e42
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.dproj	
@@ -0,0 +1,79 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{88e5029b-cc75-4d02-aca4-f516bd0f5012}</ProjectGuid>
+    <MainSource>ClassFactoryClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ClassFactoryClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ClassFactoryClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ClassFactoryClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ClassFactoryClientMain.pas">
+      <Form>ClassFactoryClientMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="ClassFactoryLibrary_Intf.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClientMain.dfm
new file mode 100644
index 0000000..6e746c1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClientMain.dfm	
@@ -0,0 +1,159 @@
+object ClassFactoryClientMainForm: TClassFactoryClientMainForm
+  Left = 89
+  Top = 114
+  AutoScroll = False
+  Caption = 'Class Factory Client'
+  ClientHeight = 338
+  ClientWidth = 445
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 433
+    Height = 105
+    Caption = 'Singleton Class Factory'
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 187
+      Top = 33
+      Width = 233
+      Height = 39
+      Caption = 
+        'Singleton: this server side object is created only once. If you ' +
+        'Set a value all clients connected will Get the same.'
+      WordWrap = True
+    end
+    object seSingleton: TSpinEdit
+      Left = 27
+      Top = 32
+      Width = 121
+      Height = 22
+      MaxValue = 0
+      MinValue = 0
+      TabOrder = 0
+      Value = 0
+    end
+    object SingletonGetButton: TButton
+      Left = 11
+      Top = 64
+      Width = 75
+      Height = 25
+      Caption = 'Get'
+      TabOrder = 1
+      OnClick = SingletonGetButtonClick
+    end
+    object SingletonSetButton: TButton
+      Left = 91
+      Top = 64
+      Width = 75
+      Height = 25
+      Caption = 'Set'
+      TabOrder = 2
+      OnClick = SingletonSetButtonClick
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 8
+    Top = 120
+    Width = 433
+    Height = 105
+    Caption = 'Single-Call Class Factory'
+    TabOrder = 1
+    object Label2: TLabel
+      Left = 188
+      Top = 27
+      Width = 233
+      Height = 52
+      Caption = 
+        'Single-Call (base class factory): all instances are created on d' +
+        'emand and destroyed at the end of the method call. This is the p' +
+        'referred class factory if you need high scalability and fail-ove' +
+        'r.'
+      WordWrap = True
+    end
+    object seSingleCall: TSpinEdit
+      Left = 27
+      Top = 32
+      Width = 121
+      Height = 22
+      MaxValue = 0
+      MinValue = 0
+      TabOrder = 0
+      Value = 0
+    end
+    object SingleCallSetButton: TButton
+      Left = 50
+      Top = 61
+      Width = 75
+      Height = 25
+      Caption = 'Set'
+      TabOrder = 1
+      OnClick = SingleCallSetButtonClick
+    end
+  end
+  object GroupBox3: TGroupBox
+    Left = 8
+    Top = 232
+    Width = 433
+    Height = 105
+    Caption = 'Pooled Class Factory'
+    TabOrder = 2
+    object Label3: TLabel
+      Left = 188
+      Top = 20
+      Width = 233
+      Height = 65
+      Caption = 
+        'Pooled Class Factory: two instances of the server side object ar' +
+        'e being pooled. See how you access a different object by setting' +
+        ' two different values (i.e. 1 and 2 ) and then clicking on the G' +
+        'et button multiple times from different clients.'
+      WordWrap = True
+    end
+    object spPooled: TSpinEdit
+      Left = 27
+      Top = 32
+      Width = 121
+      Height = 22
+      MaxValue = 0
+      MinValue = 0
+      TabOrder = 0
+      Value = 0
+    end
+    object PooledGetButton: TButton
+      Left = 11
+      Top = 64
+      Width = 75
+      Height = 25
+      Caption = 'Get'
+      TabOrder = 1
+      OnClick = PooledGetButtonClick
+    end
+    object PooledSetButton: TButton
+      Left = 91
+      Top = 64
+      Width = 75
+      Height = 25
+      Caption = 'Set'
+      TabOrder = 2
+      OnClick = PooledSetButtonClick
+    end
+  end
+  object ROBINMessage: TROBinMessage
+    Left = 64
+    Top = 16
+  end
+  object ROIndyTCPChannel: TROIndyTCPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Port = 8090
+    Host = '127.0.0.1'
+    Left = 104
+    Top = 16
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClientMain.pas
new file mode 100644
index 0000000..40fdfaf
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryClientMain.pas	
@@ -0,0 +1,85 @@
+unit ClassFactoryClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+   uROWinMessageChannel, StdCtrls, Spin,
+  uROClient, uROBINMessage,  uROIndyTCPChannel;
+
+type
+  TClassFactoryClientMainForm = class(TForm)
+    GroupBox1: TGroupBox;
+    seSingleton: TSpinEdit;
+    SingletonGetButton: TButton;
+    SingletonSetButton: TButton;
+    ROBINMessage: TROBINMessage;
+    GroupBox2: TGroupBox;
+    seSingleCall: TSpinEdit;
+    SingleCallSetButton: TButton;
+    GroupBox3: TGroupBox;
+    spPooled: TSpinEdit;
+    PooledGetButton: TButton;
+    PooledSetButton: TButton;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    ROIndyTCPChannel: TROIndyTCPChannel;
+    procedure SingletonGetButtonClick(Sender: TObject);
+    procedure SingleCallGetButtonClick(Sender: TObject);
+    procedure SingletonSetButtonClick(Sender: TObject);
+    procedure SingleCallSetButtonClick(Sender: TObject);
+    procedure PooledGetButtonClick(Sender: TObject);
+    procedure PooledSetButtonClick(Sender: TObject);
+  private
+
+  public
+
+  end;
+
+var
+  ClassFactoryClientMainForm: TClassFactoryClientMainForm;
+
+implementation
+
+uses ClassFactoryLibrary_Intf;
+
+{$R *.DFM}
+
+procedure TClassFactoryClientMainForm.SingletonGetButtonClick(Sender: TObject);
+begin
+  with CoSingletonService.Create(ROBINMessage, ROIndyTCPChannel) do
+   ShowMessage(IntToStr(GetValue));
+end;
+
+procedure TClassFactoryClientMainForm.SingletonSetButtonClick(Sender: TObject);
+begin
+  with CoSingletonService.Create(ROBINMessage, ROIndyTCPChannel) do
+    SetValue(seSingleton.Value);
+end;
+
+procedure TClassFactoryClientMainForm.SingleCallGetButtonClick(Sender: TObject);
+begin
+  with CoSingleCallService.Create(ROBINMessage, ROIndyTCPChannel) do
+    ShowMessage(IntToStr(GetValue));
+end;
+
+procedure TClassFactoryClientMainForm.SingleCallSetButtonClick(Sender: TObject);
+begin
+  with CoSingleCallService.Create(ROBINMessage, ROIndyTCPChannel) do
+    SetValue(seSingleton.Value);
+end;
+
+procedure TClassFactoryClientMainForm.PooledGetButtonClick(Sender: TObject);
+begin
+  with CoPooledService.Create(ROBINMessage, ROIndyTCPChannel) do
+    ShowMessage(IntToStr(GetValue));
+end;
+
+procedure TClassFactoryClientMainForm.PooledSetButtonClick(Sender: TObject);
+begin
+  with CoPooledService.Create(ROBINMessage, ROIndyTCPChannel) do
+    SetValue(spPooled.Value);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary.RODL
new file mode 100644
index 0000000..54e4037
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary.RODL	
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ClassFactoryLibrary" UID="{52396EB8-14AA-4307-84B1-3608886221E7}" Version="3.0">
+<Services>
+<Service Name="SingletonService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{52396EB8-14AA-4307-84B1-3608886221E7}">
+<Documentation><![CDATA[
+Service SingletonService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation><Operations>
+<Operation Name="GetValue" UID="{2BC5C1C2-7767-4BD4-BE38-DB3382C1B609}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SetValue" UID="{CDCC76DB-C836-4A23-AEED-A6788E5D87D5}">
+<Parameters>
+<Parameter Name="aValue" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="SingleCallService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{00000000-0000-0000-0000-000000000000}">
+<Operations>
+<Operation Name="GetValue" UID="{58DCDD1C-F347-4575-A0D8-F03604DFA36C}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SetValue" UID="{A12B8184-73A5-4FAD-A2E5-352CFDFC5B0D}">
+<Parameters>
+<Parameter Name="aValue" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="PooledService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{D0A3AE95-EDE8-4B0B-B832-11894E941F8E}">
+<Operations>
+<Operation Name="GetValue" UID="{4665BE51-9477-4910-85E7-8B52EE886097}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SetValue" UID="{750A43F5-68FE-4F0C-A758-9BF91DE5F197}">
+<Parameters>
+<Parameter Name="aValue" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary_Intf.pas
new file mode 100644
index 0000000..5d5dd80
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary_Intf.pas	
@@ -0,0 +1,241 @@
+unit ClassFactoryLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{52396EB8-14AA-4307-84B1-3608886221E7}';
+
+  { Service Interface ID's }
+  ISingletonService_IID : TGUID = '{52396EB8-14AA-4307-84B1-3608886221E7}';
+  ISingleCallService_IID : TGUID = '{00000000-0000-0000-0000-000000000000}';
+  IPooledService_IID : TGUID = '{D0A3AE95-EDE8-4B0B-B832-11894E941F8E}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  ISingletonService = interface;
+  ISingleCallService = interface;
+  IPooledService = interface;
+
+
+  { ISingletonService }
+  ISingletonService = interface
+    ['{52396EB8-14AA-4307-84B1-3608886221E7}']
+    function GetValue: Integer;
+    procedure SetValue(const aValue: Integer);
+  end;
+
+  { CoSingletonService }
+  CoSingletonService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISingletonService;
+  end;
+
+  { TSingletonService_Proxy }
+  TSingletonService_Proxy = class(TROProxy, ISingletonService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetValue: Integer;
+    procedure SetValue(const aValue: Integer);
+  end;
+
+  { ISingleCallService }
+  ISingleCallService = interface
+    ['{00000000-0000-0000-0000-000000000000}']
+    function GetValue: Integer;
+    procedure SetValue(const aValue: Integer);
+  end;
+
+  { CoSingleCallService }
+  CoSingleCallService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISingleCallService;
+  end;
+
+  { TSingleCallService_Proxy }
+  TSingleCallService_Proxy = class(TROProxy, ISingleCallService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetValue: Integer;
+    procedure SetValue(const aValue: Integer);
+  end;
+
+  { IPooledService }
+  IPooledService = interface
+    ['{D0A3AE95-EDE8-4B0B-B832-11894E941F8E}']
+    function GetValue: Integer;
+    procedure SetValue(const aValue: Integer);
+  end;
+
+  { CoPooledService }
+  CoPooledService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IPooledService;
+  end;
+
+  { TPooledService_Proxy }
+  TPooledService_Proxy = class(TROProxy, IPooledService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetValue: Integer;
+    procedure SetValue(const aValue: Integer);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoSingletonService }
+
+class function CoSingletonService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISingletonService;
+begin
+  result := TSingletonService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TSingletonService_Proxy }
+
+function TSingletonService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'SingletonService';
+end;
+
+function TSingletonService_Proxy.GetValue: Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ClassFactoryLibrary', __InterfaceName, 'GetValue');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TSingletonService_Proxy.SetValue(const aValue: Integer);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ClassFactoryLibrary', __InterfaceName, 'SetValue');
+    __Message.Write('aValue', TypeInfo(Integer), aValue, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+{ CoSingleCallService }
+
+class function CoSingleCallService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISingleCallService;
+begin
+  result := TSingleCallService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TSingleCallService_Proxy }
+
+function TSingleCallService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'SingleCallService';
+end;
+
+function TSingleCallService_Proxy.GetValue: Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ClassFactoryLibrary', __InterfaceName, 'GetValue');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TSingleCallService_Proxy.SetValue(const aValue: Integer);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ClassFactoryLibrary', __InterfaceName, 'SetValue');
+    __Message.Write('aValue', TypeInfo(Integer), aValue, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+{ CoPooledService }
+
+class function CoPooledService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IPooledService;
+begin
+  result := TPooledService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TPooledService_Proxy }
+
+function TPooledService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'PooledService';
+end;
+
+function TPooledService_Proxy.GetValue: Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ClassFactoryLibrary', __InterfaceName, 'GetValue');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TPooledService_Proxy.SetValue(const aValue: Integer);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ClassFactoryLibrary', __InterfaceName, 'SetValue');
+    __Message.Write('aValue', TypeInfo(Integer), aValue, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(ISingletonService_IID, TSingletonService_Proxy);
+  RegisterProxyClass(ISingleCallService_IID, TSingleCallService_Proxy);
+  RegisterProxyClass(IPooledService_IID, TPooledService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(ISingletonService_IID);
+  UnregisterProxyClass(ISingleCallService_IID);
+  UnregisterProxyClass(IPooledService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary_Invk.pas
new file mode 100644
index 0000000..60fa260
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryLibrary_Invk.pas	
@@ -0,0 +1,159 @@
+unit ClassFactoryLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} ClassFactoryLibrary_Intf;
+
+type
+  TSingletonService_Invoker = class(TROInvoker)
+  private
+  protected
+  published
+    procedure Invoke_GetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TSingleCallService_Invoker = class(TROInvoker)
+  private
+  protected
+  published
+    procedure Invoke_GetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TPooledService_Invoker = class(TROInvoker)
+  private
+  protected
+  published
+    procedure Invoke_GetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TSingletonService_Invoker }
+
+procedure TSingletonService_Invoker.Invoke_GetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetValue: Integer; }
+var
+  lResult: Integer;
+begin
+  try
+    lResult := (__Instance as ISingletonService).GetValue;
+
+    __Message.InitializeResponseMessage(__Transport, 'ClassFactoryLibrary', 'SingletonService', 'GetValueResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TSingletonService_Invoker.Invoke_SetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SetValue(const aValue: Integer); }
+var
+  aValue: Integer;
+begin
+  try
+    __Message.Read('aValue', TypeInfo(Integer), aValue, []);
+
+    (__Instance as ISingletonService).SetValue(aValue);
+
+    __Message.InitializeResponseMessage(__Transport, 'ClassFactoryLibrary', 'SingletonService', 'SetValueResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+{ TSingleCallService_Invoker }
+
+procedure TSingleCallService_Invoker.Invoke_GetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetValue: Integer; }
+var
+  lResult: Integer;
+begin
+  try
+    lResult := (__Instance as ISingleCallService).GetValue;
+
+    __Message.InitializeResponseMessage(__Transport, 'ClassFactoryLibrary', 'SingleCallService', 'GetValueResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TSingleCallService_Invoker.Invoke_SetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SetValue(const aValue: Integer); }
+var
+  aValue: Integer;
+begin
+  try
+    __Message.Read('aValue', TypeInfo(Integer), aValue, []);
+
+    (__Instance as ISingleCallService).SetValue(aValue);
+
+    __Message.InitializeResponseMessage(__Transport, 'ClassFactoryLibrary', 'SingleCallService', 'SetValueResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+{ TPooledService_Invoker }
+
+procedure TPooledService_Invoker.Invoke_GetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetValue: Integer; }
+var
+  lResult: Integer;
+begin
+  try
+    lResult := (__Instance as IPooledService).GetValue;
+
+    __Message.InitializeResponseMessage(__Transport, 'ClassFactoryLibrary', 'PooledService', 'GetValueResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TPooledService_Invoker.Invoke_SetValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SetValue(const aValue: Integer); }
+var
+  aValue: Integer;
+begin
+  try
+    __Message.Read('aValue', TypeInfo(Integer), aValue, []);
+
+    (__Instance as IPooledService).SetValue(aValue);
+
+    __Message.InitializeResponseMessage(__Transport, 'ClassFactoryLibrary', 'PooledService', 'SetValueResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.bdsproj
new file mode 100644
index 0000000..347e889
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{73C513C2-3C66-4CA8-8F74-2820E1E4689F}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ClassFactoryServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.cfg
new file mode 100644
index 0000000..07d3ec4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.cfg	
@@ -0,0 +1,37 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LN"D:\Program files.all\Winsys\borland\DCP_70"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dof
new file mode 100644
index 0000000..b3ecb46
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dof	
@@ -0,0 +1,143 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;indy;vcldb;dbrtl;dsnap;vclx;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;vclie;inet;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;PascalScript_RO_D7;localizer7;RemObjects_Synapse_D7;dbisam425d7r;Jcl;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvDBD7R;JvDlgsD7R;JvBDED7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;TntUnicodeVcl_R70;acat70;mySQLDAC7;edb105d7run;dxThemeD7;cxGridD7;cxEditorsVCLD7;dxGDIPlusD7;cxLibraryVCLD7;cxPageControlVCLD7;cxDataD7;cxExtEditorsVCLD7;sdacvcl70;sdac70;dac70;dacvcl70;dsnapcon;adortl;ibxpress;PostgresDAC7;IBO40FTS_D7;IBO40TRT_D7;IBO40CRT_D7;IBO40RPL_D7;IBO40VRT_D7;IBO40FRT_D7;IBO40XRT_D7;IBO40WRT_D7;IBO40WXDT_D7;IBO40WXRT_D7;inetdb;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;DataAbstract_IDE_D7;DataAbstract_Scripting_D7;DataAbstract_SQLiteDriver_D7;MemDataset;Hydra_Core_D7;xmlrtl;Hydra_DX_D7;dxComnD7;dxBarD7;Hydra_RO_D7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=4
+MinorVer=0
+Release=4
+Build=453
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=RemObjects Software
+FileDescription=Class Factories Server
+FileVersion=4.0.4.453
+InternalName=
+LegalCopyright=RemObjects Software, Inc. 2002-2003
+LegalTrademarks=RemObjects Software, Inc. 2002-2003
+OriginalFilename=
+ProductName=
+ProductVersion=2.0.0.0
+CompileDate=Friday, March 10, 2006 8:26 PM
+[Excluded Packages]
+D:\Program files.all\Winsys\borland\FIBPlusEditors7.bpl=FIBPlus property editors 
+C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D7\DataAbstract_IBODriver_D7.bpl=RemObjects Data Abstract - InterBase Objects Driver
+C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Source\MemDataset.bpl=Memdataset
+C:\Program Files (x86)\RemObjects Software\Hydra for Delphi\Dcu\D7\Hydra_Core_D7.bpl=RemObjects Hydra - Core Library
+C:\Program Files (x86)\RemObjects Software\Hydra for Delphi\Dcu\D7\Hydra_DX_D7.bpl=RemObjects' Hydra - Developer Express Integration Library
+C:\Program Files (x86)\RemObjects Software\Hydra for Delphi\Dcu\D7\Hydra_IDE_D7.bpl=RemObjects Hydra - IDE Integration
+C:\Program Files (x86)\RemObjects Software\Hydra for Delphi\Dcu\D7\Hydra_RO_D7.bpl=RemObjects Hydra - RemObjects SDK Integration Library
+C:\Program Files (x86)\RemObjects Software\Hydra for Delphi\Dcu\D7\Hydra_RO_IDE_D7.bpl=RemObjects Hydra - RemObjects SDK IDE Integration
+C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D7\DataAbstract_FIBDriver_D7.bpl=RemObjects Data Abstract - FIBPlus Driver
+C:\Program Files (x86)\RemObjects Software\Data Abstract for Delphi\Dcu\D7\DataAbstract_BDEDriver_D7.bpl=RemObjects Data Abstract - BDE Driver
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dpr
new file mode 100644
index 0000000..7d920c1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dpr	
@@ -0,0 +1,22 @@
+program ClassFactoryServer;
+
+{#ROGEN:ClassFactoryLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  Forms,
+  ClassFactoryServerMain in 'ClassFactoryServerMain.pas' {ClassFactoryServerMainForm},
+  ClassFactoryLibrary_Intf in 'ClassFactoryLibrary_Intf.pas',
+  ClassFactoryLibrary_Invk in 'ClassFactoryLibrary_Invk.pas',
+  SingletonService_Impl in 'SingletonService_Impl.pas',
+  SingleCallService_Impl in 'SingleCallService_Impl.pas',
+  PooledService_Impl in 'PooledService_Impl.pas';
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Class Factories Server';
+  Application.CreateForm(TClassFactoryServerMainForm, ClassFactoryServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dproj
new file mode 100644
index 0000000..bfbdaa9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.dproj	
@@ -0,0 +1,83 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f93039eb-3d72-4834-a1b2-ff8e267d9a0c}</ProjectGuid>
+    <MainSource>ClassFactoryServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ClassFactoryServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ClassFactoryServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ClassFactoryServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ClassFactoryLibrary_Intf.pas" />
+    <DCCReference Include="ClassFactoryLibrary_Invk.pas" />
+    <DCCReference Include="ClassFactoryServerMain.pas">
+      <Form>ClassFactoryServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="PooledService_Impl.pas" />
+    <DCCReference Include="SingleCallService_Impl.pas" />
+    <DCCReference Include="SingletonService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.res
new file mode 100644
index 0000000..1cabf6e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServerMain.dfm
new file mode 100644
index 0000000..40b5f7a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServerMain.dfm	
@@ -0,0 +1,44 @@
+object ClassFactoryServerMainForm: TClassFactoryServerMainForm
+  Left = 382
+  Top = 238
+  AutoScroll = False
+  Caption = 'Class Factory Server'
+  ClientHeight = 101
+  ClientWidth = 254
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 14
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 21
+    Top = 10
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Button1: TButton
+    Left = 85
+    Top = 66
+    Width = 75
+    Height = 25
+    Caption = 'Activate'
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+  object ROMessage: TROBinMessage
+    Left = 104
+    Top = 16
+  end
+  object ROServer: TROIndyTCPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Port = 8090
+    Left = 136
+    Top = 16
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServerMain.pas
new file mode 100644
index 0000000..15cc8a5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/ClassFactoryServerMain.pas	
@@ -0,0 +1,41 @@
+unit ClassFactoryServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StrUtils,
+  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROWinMessageServer,
+   uROIndyTCPServer, uROPoweredByRemObjectsButton;
+
+type
+  TClassFactoryServerMainForm = class(TForm)
+    ROMessage: TROBINMessage;
+    Button1: TButton;
+    ROServer: TROIndyTCPServer;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    procedure Button1Click(Sender: TObject);
+  private
+
+  protected
+
+  public
+
+  end;
+
+var
+  ClassFactoryServerMainForm: TClassFactoryServerMainForm;
+
+implementation
+
+
+{$R *.DFM}
+
+procedure TClassFactoryServerMainForm.Button1Click(Sender: TObject);
+begin
+  ROServer.Active := ROServer.Active XOR TRUE;
+
+  Button1.Caption := IfThen(ROServer.Active,'Deactivate','Activate');
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/PooledService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/PooledService_Impl.pas
new file mode 100644
index 0000000..f49872d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/PooledService_Impl.pas	
@@ -0,0 +1,52 @@
+unit PooledService_Impl;
+
+interface
+
+uses Classes, uROClientIntf, uROServer, uROServerIntf, ClassFactoryLibrary_Intf;
+
+type
+  TPooledService = class(TRORemotable, IPooledService)
+  private
+    fValue: integer;
+
+  protected
+    function GetValue: Integer;
+    procedure SetValue(const aValue: Integer);
+  public
+    constructor Create; override;
+  end;
+
+implementation
+
+uses uROClassFactories, ClassFactoryLibrary_Invk, Dialogs;
+
+procedure Create_PooledService(out anInstance: IUnknown);
+begin
+  anInstance := TPooledService.Create;
+end;
+
+constructor TPooledService.Create;
+begin
+  inherited;
+  FValue := 0;
+end;
+
+function TPooledService.GetValue: Integer;
+begin
+  MessageDlg('GetValue executing...', mtWarning, [mbOK], 0);
+  result := fValue;
+end;
+
+procedure TPooledService.SetValue(const aValue: Integer);
+begin
+  MessageDlg('SetValue executing...', mtWarning, [mbOK], 0);
+  fValue := aValue;
+end;
+
+initialization
+  TROPooledClassFactory.Create('PooledService', Create_PooledService, TPooledService_Invoker, 2);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/RODLFile.RES b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/RODLFile.RES
new file mode 100644
index 0000000..a73bc69
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/RODLFile.RES differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/SingleCallService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/SingleCallService_Impl.pas
new file mode 100644
index 0000000..476dc5e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/SingleCallService_Impl.pas	
@@ -0,0 +1,51 @@
+unit SingleCallService_Impl;
+
+interface
+
+uses Classes, uROClientIntf, uROServer, uROServerIntf, ClassFactoryLibrary_Intf;
+
+type
+   TSingleCallService = class(TRORemotable, ISingleCallService)
+   private
+     fValue : integer;
+
+   protected
+      function GetValue: Integer;
+      procedure SetValue(const aValue: Integer);
+
+   public
+     constructor Create; override;
+
+   end;
+
+implementation
+
+uses ClassFactoryLibrary_Invk;
+
+procedure Create_SingleCallService(out anInstance : IUnknown);
+begin
+  anInstance := TSingleCallService.Create;
+end;
+
+constructor TSingleCallService.Create;
+begin
+  inherited;
+  fValue := 0;
+end;
+
+function TSingleCallService.GetValue: Integer;
+begin
+  result := fValue;
+end;
+
+procedure TSingleCallService.SetValue(const aValue: Integer);
+begin
+  fValue := aValue;
+end;
+
+initialization
+  TROClassFactory.Create('SingleCallService', Create_SingleCallService, TSingleCallService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/SingletonService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/SingletonService_Impl.pas
new file mode 100644
index 0000000..816c004
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Class Factories/SingletonService_Impl.pas	
@@ -0,0 +1,54 @@
+unit SingletonService_Impl;
+
+interface
+
+uses Classes, uROClientIntf, uROServer, uROServerIntf, ClassFactoryLibrary_Intf;
+
+type
+   TSingletonService = class(TRORemotable, ISingletonService)
+   private
+     fValue : integer;
+
+   protected
+      procedure SetValue(const aValue: Integer);
+      function GetValue: Integer;
+
+   public
+     constructor Create; override;
+
+   end;
+
+implementation
+
+uses uROClassFactories, ClassFactoryLibrary_Invk;
+
+procedure Create_SingletonService(out anInstance : IUnknown);
+begin
+  anInstance := TSingletonService.Create;
+end;
+
+{ TSingletonService }
+
+constructor TSingletonService.Create;
+begin
+  inherited;
+
+  fValue := 0;
+end;
+
+function TSingletonService.GetValue: Integer;
+begin
+  result := fValue
+end;
+
+procedure TSingletonService.SetValue(const aValue: Integer);
+begin
+  fValue := aValue
+end;
+
+initialization
+  TROSingletonClassFactory.Create('SingletonService', Create_SingletonService, TSingletonService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.Sample.html
new file mode 100644
index 0000000..06e1a3d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.Sample.html	
@@ -0,0 +1,29 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>DataSnap Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>This example illustrates the use of different the <b>TRODataSnapModule</b> simultaneously in the server application and use of the
+<b>TRODataSnapConnection</b> in the client application.</p>
+    
+<h2>Examine the Code</h2>
+<ul>
+	<li>Look at DataSnapServerInterfaces.pas where are declared new interfaces, descendants from <b>IAppServer</b>.</li>
+	<li>Look at DataSnapServerData.pas, DataSnapServerData2.pas and examine how we use above declared interfaces.</li>
+	<li>Look at DataSnapClientMain.pas an examine how we use these interfaces in <b>TRODataSnapConnection</b>.</li>
+</ul>
+    
+    
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.bdsgroup
new file mode 100644
index 0000000..42f0844
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.bdsgroup	
@@ -0,0 +1,21 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0BFC19ED-65B3-4CF2-9403-63A53F4ADF29}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="DataSnapServer.exe">DataSnapServer.bdsproj</Projects>
+      <Projects Name="DataSnapClient.exe">DataSnapClient.bdsproj</Projects>
+      <Projects Name="DataSnapIsapiServer.dll">DataSnapIsapiServer.bdsproj</Projects>
+      <Projects Name="Targets">DataSnapServer.exe DataSnapClient.exe DataSnapIsapiServer.dll</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.bpg
new file mode 100644
index 0000000..cc8f7c1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.bpg	
@@ -0,0 +1,26 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DataSnapServer.exe DataSnapClient.exe DataSnapIsapiServer.dll
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DataSnapServer.exe: DataSnapServer.dpr
+  $(DCC)
+
+DataSnapClient.exe: DataSnapClient.dpr
+  $(DCC)
+
+DataSnapIsapiServer.dll: DataSnapIsapiServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.groupproj
new file mode 100644
index 0000000..6d7a092
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnap.groupproj	
@@ -0,0 +1,49 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{9e762aad-5388-4744-8d43-255109c69ecb}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="DataSnapServer">
+    <MSBuild Projects="DataSnapServer.dproj" Targets="" />
+  </Target>
+  <Target Name="DataSnapServer:Clean">
+    <MSBuild Projects="DataSnapServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataSnapServer:Make">
+    <MSBuild Projects="DataSnapServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataSnapClient">
+    <MSBuild Projects="DataSnapClient.dproj" Targets="" />
+  </Target>
+  <Target Name="DataSnapClient:Clean">
+    <MSBuild Projects="DataSnapClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataSnapClient:Make">
+    <MSBuild Projects="DataSnapClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DataSnapIsapiServer">
+    <MSBuild Projects="DataSnapIsapiServer.dproj" Targets="" />
+  </Target>
+  <Target Name="DataSnapIsapiServer:Clean">
+    <MSBuild Projects="DataSnapIsapiServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DataSnapIsapiServer:Make">
+    <MSBuild Projects="DataSnapIsapiServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="DataSnapServer;DataSnapClient;DataSnapIsapiServer" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="DataSnapServer:Clean;DataSnapClient:Clean;DataSnapIsapiServer:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="DataSnapServer:Make;DataSnapClient:Make;DataSnapIsapiServer:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.bdsproj
new file mode 100644
index 0000000..9c6dce3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{77AB9609-09A3-4000-814F-DE3417778405}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DataSnapClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.dpr
new file mode 100644
index 0000000..55f8e67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.dpr	
@@ -0,0 +1,14 @@
+program DataSnapClient;
+
+uses
+  Forms,
+  DataSnapClientMain in 'DataSnapClientMain.pas' {DataSnapClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'DataSnap Client';
+  Application.CreateForm(TDataSnapClientMainForm, DataSnapClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.dproj
new file mode 100644
index 0000000..8fb282a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{2a59077b-565f-4079-9526-6a78fa7543c5}</ProjectGuid>
+    <MainSource>DataSnapClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DataSnapClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DataSnapClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DataSnapClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DataSnapClientMain.pas">
+      <Form>DataSnapClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClientMain.dfm
new file mode 100644
index 0000000..58dc891
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClientMain.dfm	
@@ -0,0 +1,265 @@
+object DataSnapClientMainForm: TDataSnapClientMainForm
+  Left = 394
+  Top = 217
+  Width = 518
+  Height = 361
+  Caption = 'RemObjects DataSnap Client'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ConnectButton: TBitBtn
+    Left = 8
+    Top = 8
+    Width = 113
+    Height = 25
+    Caption = 'Connect'
+    TabOrder = 0
+    OnClick = ConnectButtonClick
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FF811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+      811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00FF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00A7632F811E0081
+      1E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00D8
+      B69CE6D1BFE7D3C4811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+      1E00D8AF96F4E2CFF0D7BDD8A784811E00811E00FF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+      1E00E7BB92E3B081E0A672D5925A811E00FF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+      35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FF811E00811E00811E00811E00811E00811E00FF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+  end
+  object DisconnectButton: TBitBtn
+    Left = 8
+    Top = 8
+    Width = 113
+    Height = 25
+    Caption = 'Disconnect'
+    TabOrder = 1
+    Visible = False
+    OnClick = DisconnectButtonClick
+    Glyph.Data = {
+      36030000424D3603000000000000360000002800000010000000100000000100
+      18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00006E00006EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00006E0000
+      6EFF00FFFF00FFFF00FFFF00FFFF00FF00006E001DE80010DC00006EFF00FFFF
+      00FFFF00FFFF00FF00006E0004E20008E700006EFF00FFFF00FFFF00FFFF00FF
+      00006E001AE2001FEB0010D900006EFF00FFFF00FF00006E0005DF0009EB0003
+      DB00006EFF00FFFF00FFFF00FFFF00FFFF00FF00006E001ADF0020EB0013DC00
+      006E00006E0005E2000BEB0004DA00006EFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FF00006E001BDF0022EB0012E60008EA0009EB0004DF00006EFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00006E001BE300
+      16EB0011EB000ADF00006EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FF00006E0021E7001EEB001AEB0017DF00006EFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00006E062DE30430EB00
+      20E2001EE20027EB0019DF00006EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FF00006E0C35E40E3CEB052BDC00006E00006E001FDC002AEB001CDF0000
+      6EFF00FFFF00FFFF00FFFF00FFFF00FF00006E1442E41645EB092ED900006EFF
+      00FFFF00FF00006E0020D9012CEB001FE200006EFF00FFFF00FFFF00FFFF00FF
+      00006E1C4BE71037DB00006EFF00FFFF00FFFF00FFFF00FF00006E0022DC0027
+      E400006EFF00FFFF00FFFF00FFFF00FFFF00FF00006E00006EFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FF00006E00006EFF00FFFF00FFFF00FFFF00FFFF00FF
+      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+  end
+  object ApplyUpdatesButton: TBitBtn
+    Left = 8
+    Top = 40
+    Width = 113
+    Height = 25
+    Caption = 'Apply Updates'
+    Enabled = False
+    TabOrder = 2
+    OnClick = ApplyUpdatesButtonClick
+    Glyph.Data = {
+      36060000424D3606000000000000360400002800000020000000100000000100
+      08000000000000020000130B0000130B0000000100000000000000000000FFFF
+      FF00F4F3F700E3E2E50095939600A09EA100B8B2BA00908B9100B5ADB600B4AD
+      B500FF00FF00726C7200D3CBD300D3CCD300BDB7BD00B5AFB500D9D3D900CFC9
+      CF0088848800CBC6CB00D8D3D800C1BDC1008482840082808200DCDADC007675
+      76008F8E8F00C5BDC400E1DAE000F4EFF300807777007A7979008E5D59008050
+      4B0095645B00A0675B009362530091756C00D1926D00C7916F00D1987000C699
+      7700DCA37600E2873100E6974300FFE7CC00FFD9AC00FFDEB700FFE2C000FFE5
+      C500FFEAD100FFEBD400FFF4E700FFD99E00FFDDA600FFDEA900FFE5B600FFE7
+      BA00FFEAC200FFDE9900FFF2D000FBFAF700FFFCEE00FFFEE700FFFFE000DDE0
+      D900416560004C4F4F00575959009FA1A1008E9090007E808000FCFEFE00C5C7
+      C700787979006D6E6E00393B3C00484A4B0047494A004E5051005C5E5F005456
+      57006A6C6D0063656600606263002187E300248BEA00A9B7C4001676D9001770
+      CA001F8AF300134E87003477BC00393A3B001581F6001684FC001166C4001260
+      B600165FB0001C4B80002F6BAC005481B200566A7F004F5A6600C4D4E6000A6E
+      EA000B5EC4000A52A9001069CF00165EB6002B5E9A0021456E002A4A6F003050
+      7500D9E3EF000A6EEB0009428C000C4186000E4B99000C4184000F4488000F43
+      87001D4A83001D4373000555C5000548A60041567600494A4C004D4E5000F3F4
+      F600797A7D0082838600939396007070720068686A009F9FA0008B8B8B008484
+      8400787878006A6A6A00B8020000000000000000000000000000107212008C72
+      1200240000008333F4002192E400B8020000347212003C721200080000000E00
+      0000A4741200000000000001000008000000FC71120000010000248512008333
+      F4002192E400B80200008333F4002192E400B802000078721200807212000800
+      00000E000000A474120000FFFF0001000000B802000000010000000000000000
+      000000000000000100000000000000000000000000000000000000010000B7C8
+      0300B802000000FFFF000000000001000000653B0100B802000000FFFF000100
+      0000FFE1FF00A474120000FFFF000100000064CA1200988D290030851200F048
+      BD00010000003B00000000000000424D68000000000000006600000028000000
+      100000001000000001000800000000000000000012000000120000008C000000
+      8C00000000000000FF00FF00F400F700E300E50095009600A000A100B8000400
+      00009100B500B600B40000000000FF0072007200D300B838FA00D300BD002000
+      0000B50000000000C700547112008800CB0024851200345AF4007095F800FFFF
+      FF00F373F40026BBBB000000C700000000001400000064CA1200140000002FCA
+      030058991600A0C701005899160064CA1200988D2900C86DD1000A0A0A0A0A0A
+      0A0A20202020202020200A0A0A0A0A0A0A0A88888888888888880A0A0A7F8043
+      0A0A20403A3837353B210A0A0A4686860A0A88180D11491515470A0A4D51860B
+      4E5D223E32312F2E36210A0A1A0416128A864603140D114949470A4D166F7E42
+      5B60586C64492D3039210A1A06881917191A0446040D1D0D11474D071B757D6B
+      5A56625C6D7657333C211A0E18888A4745451287881F491414474D0C0F78695E
+      5563254872656E343F211A030D8804454553040314091A1C1C474D110979735F
+      597027010101683D41211A1C0D8804450453091D1D1D130311474D0D08777C6A
+      61741E010101012323241A030D8816121250041D1D1D1D0404884D10067B7A71
+      66672901010101232C2B1A0314881F4789190F1D1D1D1D0445044D1C0E51834B
+      898B2A2626262623280A1A031404871287890E0F0F0F0F040F0A4D1D13518285
+      881F8A4C0A0A0A0A0A0A1A811C0409090E0F151A0A0A0A0A0A0A4D1804514544
+      50191A4E0A0A0A0A0A0A1A03150449878709151A0A0A0A0A0A0A4D8718844A47
+      4653544D0A0A0A0A0A0A1A490315090F1545871A0A0A0A0A0A0A4D0181031505
+      1217174F0A0A0A0A0A0A1A48021D1849060F0F040A0A0A0A0A0A524D01010214
+      054D4D0A0A0A0A0A0A0A451A48480203491A1A0A0A0A0A0A0A0A0A0A4D4D4D4D
+      4D0A0A0A0A0A0A0A0A0A0A0A1A1A1A1A1A0A0A0A0A0A0A0A0A0A}
+    NumGlyphs = 2
+  end
+  object Panel1: TPanel
+    Left = 127
+    Top = 0
+    Width = 375
+    Height = 325
+    Align = alRight
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    BevelOuter = bvNone
+    TabOrder = 3
+    object Splitter1: TSplitter
+      Left = 0
+      Top = 140
+      Width = 375
+      Height = 8
+      Cursor = crVSplit
+      Align = alTop
+      Beveled = True
+    end
+    object gProducts: TDBGrid
+      Left = 0
+      Top = 148
+      Width = 375
+      Height = 177
+      Align = alClient
+      DataSource = dsCategories
+      TabOrder = 0
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+    end
+    object gCustomers: TDBGrid
+      Left = 0
+      Top = 0
+      Width = 375
+      Height = 140
+      Align = alTop
+      DataSource = dsCustomers
+      TabOrder = 1
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+    end
+  end
+  object RODataSnapConnection1: TRODataSnapConnection
+    Message = ROBinMessage
+    Channel = HTTPChannel
+    ServerName = 'IAppServer1'
+    Left = 256
+    Top = 32
+  end
+  object HTTPChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:81/bin'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 8
+    Top = 160
+  end
+  object ROBinMessage: TROBinMessage
+    Envelopes = <>
+    UseCompression = False
+    Left = 8
+    Top = 224
+  end
+  object cdsCustomers: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    ProviderName = 'Customers'
+    RemoteServer = RODataSnapConnection1
+    AfterEdit = OnEnableApplyUpdates
+    AfterPost = OnEnableApplyUpdates
+    AfterCancel = OnEnableApplyUpdates
+    AfterDelete = OnEnableApplyUpdates
+    BeforeApplyUpdates = cdsCustomersBeforeApplyUpdates
+    BeforeGetRecords = cdsCustomersBeforeGetRecords
+    BeforeRowRequest = cdsCustomersBeforeRowRequest
+    BeforeGetParams = cdsCustomersBeforeGetParams
+    Left = 288
+    Top = 32
+  end
+  object dsCustomers: TDataSource
+    DataSet = cdsCustomers
+    Left = 320
+    Top = 32
+  end
+  object cdsCategories: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    ProviderName = 'prv_categories'
+    RemoteServer = RODataSnapConnection2
+    AfterEdit = OnEnableApplyUpdates
+    AfterPost = OnEnableApplyUpdates
+    AfterCancel = OnEnableApplyUpdates
+    AfterDelete = OnEnableApplyUpdates
+    BeforeApplyUpdates = cdsCustomersBeforeApplyUpdates
+    BeforeGetRecords = cdsCustomersBeforeGetRecords
+    BeforeRowRequest = cdsCustomersBeforeRowRequest
+    BeforeGetParams = cdsCustomersBeforeGetParams
+    Left = 288
+    Top = 225
+  end
+  object dsCategories: TDataSource
+    DataSet = cdsCategories
+    Left = 320
+    Top = 224
+  end
+  object RODataSnapConnection2: TRODataSnapConnection
+    Message = ROBinMessage
+    Channel = HTTPChannel
+    ServerName = 'IAppServer2'
+    Left = 256
+    Top = 224
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClientMain.pas
new file mode 100644
index 0000000..622ab4f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapClientMain.pas	
@@ -0,0 +1,112 @@
+unit DataSnapClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uROClient, uROBINMessage, uROSOAPMessage, DB,
+  DBClient, uROWinInetHttpChannel,
+  uRODataSnapConnection, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;
+
+type
+  TDataSnapClientMainForm = class(TForm)
+    RODataSnapConnection1: TRODataSnapConnection;
+    HTTPChannel: TROWinInetHTTPChannel;
+    ROBinMessage: TROBinMessage;
+    cdsCustomers: TClientDataSet;
+    dsCustomers: TDataSource;
+    cdsCategories: TClientDataSet;
+    dsCategories: TDataSource;
+    ConnectButton: TBitBtn;
+    DisconnectButton: TBitBtn;
+    ApplyUpdatesButton: TBitBtn;
+    Panel1: TPanel;
+    gProducts: TDBGrid;
+    gCustomers: TDBGrid;
+    Splitter1: TSplitter;
+    RODataSnapConnection2: TRODataSnapConnection;
+    procedure ConnectButtonClick(Sender: TObject);
+    procedure DisconnectButtonClick(Sender: TObject);
+    procedure cdsCustomersBeforeApplyUpdates(Sender: TObject;
+      var OwnerData: OleVariant);
+    procedure ApplyUpdatesButtonClick(Sender: TObject);
+    procedure cdsCustomersBeforeGetParams(Sender: TObject;
+      var OwnerData: OleVariant);
+    procedure cdsCustomersBeforeGetRecords(Sender: TObject;
+      var OwnerData: OleVariant);
+    procedure cdsCustomersBeforeRowRequest(Sender: TObject;
+      var OwnerData: OleVariant);
+    procedure OnEnableApplyUpdates(DataSet: TDataSet);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DataSnapClientMainForm: TDataSnapClientMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TDataSnapClientMainForm.ConnectButtonClick(Sender: TObject);
+begin
+  HTTPChannel.TargetURL := 'http://localhost:81/bin';
+  //HTTPChannel.TargetURL := 'http://localhost/isapi/DataSNapIsapiServer.dll/bin';
+
+  cdsCustomers.Active := true;
+  cdsCategories.Active := true;
+
+  DisconnectButton.Visible := true;
+  ConnectButton.Visible := false;
+end;
+
+procedure TDataSnapClientMainForm.DisconnectButtonClick(Sender: TObject);
+begin
+  cdsCustomers.Active := false;
+  cdsCategories.Active := false;
+
+  DisconnectButton.Visible := false;
+  ConnectButton.Visible := true;
+  ApplyUpdatesButton.Enabled := false;
+end;
+
+procedure TDataSnapClientMainForm.ApplyUpdatesButtonClick(Sender: TObject);
+begin
+  cdsCustomers.ApplyUpdates(-1);
+  cdsCategories.ApplyUpdates(-1);
+  ApplyUpdatesButton.Enabled := false;
+end;
+
+procedure TDataSnapClientMainForm.cdsCustomersBeforeApplyUpdates(Sender: TObject;
+  var OwnerData: OleVariant);
+begin
+  OwnerData := 'BeforeApplyUpdates';
+end;
+
+procedure TDataSnapClientMainForm.cdsCustomersBeforeGetParams(Sender: TObject;
+  var OwnerData: OleVariant);
+begin
+  OwnerData := 'BeforeGetParams';
+end;
+
+procedure TDataSnapClientMainForm.cdsCustomersBeforeGetRecords(Sender: TObject;
+  var OwnerData: OleVariant);
+begin
+  OwnerData := 'BeforeGetRecords';
+end;
+
+procedure TDataSnapClientMainForm.cdsCustomersBeforeRowRequest(Sender: TObject;
+  var OwnerData: OleVariant);
+begin
+  OwnerData := 'BeforeRowRequest';
+end;
+
+procedure TDataSnapClientMainForm.OnEnableApplyUpdates(DataSet: TDataSet);
+begin
+  ApplyUpdatesButton.Enabled := (cdsCustomers.ChangeCount > 0) or (cdsCategories.ChangeCount > 0);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapISAPIServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapISAPIServerMain.dfm
new file mode 100644
index 0000000..462461a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapISAPIServerMain.dfm	
@@ -0,0 +1,35 @@
+object DataSnapISAPIServerMainForm: TDataSnapISAPIServerMainForm
+  OldCreateOrder = False
+  Actions = <>
+  Left = 78
+  Top = 52
+  Height = 127
+  Width = 301
+  object msg_BIN: TROBinMessage
+    Left = 108
+    Top = 16
+  end
+  object mgs_SOAP: TROSOAPMessage
+    SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
+    Left = 146
+    Top = 18
+  end
+  object ROWebBrokerServer: TROWebBrokerServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'msg_BIN'
+        Message = msg_BIN
+        Enabled = True
+        PathInfo = 'BIN'
+      end
+      item
+        Name = 'mgs_SOAP'
+        Message = mgs_SOAP
+        Enabled = True
+        PathInfo = 'SOAP'
+      end>
+    Left = 64
+    Top = 16
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapISAPIServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapISAPIServerMain.pas
new file mode 100644
index 0000000..8f8f9d1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapISAPIServerMain.pas	
@@ -0,0 +1,27 @@
+unit DataSnapISAPIServerMain;
+
+interface
+
+uses
+  SysUtils, Classes, HTTPApp,  uROServer,
+  uROWebBrokerServer, uROSOAPMessage, uROClient, uROBINMessage;
+
+type
+  TDataSnapISAPIServerMainForm = class(TWebModule)
+    msg_BIN: TROBINMessage;
+    mgs_SOAP: TROSOAPMessage;
+    ROWebBrokerServer: TROWebBrokerServer;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DataSnapISAPIServerMainForm: TDataSnapISAPIServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.bdsproj
new file mode 100644
index 0000000..4c1df4a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{07A17005-E71D-433F-9263-A878C6333602}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DataSnapIsapiServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.dpr
new file mode 100644
index 0000000..fefeae4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.dpr	
@@ -0,0 +1,24 @@
+library DataSnapIsapiServer;
+
+uses
+  ActiveX,
+  ComObj,
+  WebBroker,
+  ISAPIThreadPool,
+  ISAPIApp,
+  DataSnapISAPIServerMain in 'DataSnapISAPIServerMain.pas' {DataSnapISAPIServerMainForm: TWebModule},
+  DataSnapServerData in 'DataSnapServerData.pas' {DataSnapServerDataForm: TRODataSnapModule};
+
+{$R *.res}
+
+exports
+  GetExtensionVersion,
+  HttpExtensionProc,
+  TerminateExtension;
+
+begin
+  CoInitFlags := COINIT_MULTITHREADED;
+  Application.Initialize;
+  Application.CreateForm(TDataSnapISAPIServerMainForm, DataSnapISAPIServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.dproj
new file mode 100644
index 0000000..7147128
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{9e41110c-2697-4451-b2a0-5aa579edf466}</ProjectGuid>
+    <MainSource>DataSnapIsapiServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DataSnapIsapiServer.dll</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DataSnapIsapiServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DataSnapIsapiServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DataSnapISAPIServerMain.pas">
+      <Form>DataSnapISAPIServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="DataSnapServerData.pas">
+      <Form>DataSnapServerDataForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.res
new file mode 100644
index 0000000..3adc036
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapIsapiServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.bdsproj
new file mode 100644
index 0000000..ad14240
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{91C3749F-F2C6-4D21-B2AA-576FEE02D3ED}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DataSnapServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.dpr
new file mode 100644
index 0000000..fd8d04b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.dpr	
@@ -0,0 +1,18 @@
+program DataSnapServer;
+
+uses
+  uROComInit,
+  Forms,
+  DataSnapServerMain in 'DataSnapServerMain.pas' {DataSnapServerMainForm},
+  DataSnapServerData in 'DataSnapServerData.pas' {DataSnapServerDataForm: TRODataSnapModule},
+  DataSnapServerData2 in 'DataSnapServerData2.pas' {TDataSnapServerDataForm2: TRODataSnapModule},
+  DataSnapServerInterfaces in 'DataSnapServerInterfaces.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'DataSnap Server';
+  Application.CreateForm(TDataSnapServerMainForm, DataSnapServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.dproj
new file mode 100644
index 0000000..45b8124
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{d001ebc3-1f7d-4e8f-8d6a-6791d661a387}</ProjectGuid>
+    <MainSource>DataSnapServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DataSnapServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DataSnapServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DataSnapServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DataSnapServerData.pas">
+      <Form>DataSnapServerDataForm</Form>
+    </DCCReference>
+    <DCCReference Include="DataSnapServerMain.pas">
+      <Form>DataSnapServerMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.res
new file mode 100644
index 0000000..aa9db5a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData.dfm
new file mode 100644
index 0000000..eaf7ceb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData.dfm	
@@ -0,0 +1,82 @@
+object DataSnapServerDataForm: TDataSnapServerDataForm
+  OldCreateOrder = True
+  Providers = <
+    item
+      Name = 'Products'
+    end
+    item
+      Provider = prv_customers
+      Name = 'Customers'
+    end>
+  UseProviders = True
+  Height = 140
+  Width = 214
+  object con_SqlServer: TADOConnection
+    ConnectionString = 
+      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Nor' +
+      'thwind;Data Source=localhost;'
+    LoginPrompt = False
+    Provider = 'SQLOLEDB.1'
+    Left = 24
+    Top = 8
+  end
+  object qry_customers: TADOQuery
+    Connection = con_SqlServer
+    CursorType = ctStatic
+    Parameters = <>
+    SQL.Strings = (
+      'SELECT * FROM CUSTOMERS')
+    Left = 57
+    Top = 8
+    object qry_customersCustomerID: TWideStringField
+      FieldName = 'CustomerID'
+      FixedChar = True
+      Size = 5
+    end
+    object qry_customersCompanyName: TWideStringField
+      FieldName = 'CompanyName'
+      Size = 40
+    end
+    object qry_customersContactName: TWideStringField
+      FieldName = 'ContactName'
+      Size = 30
+    end
+    object qry_customersContactTitle: TWideStringField
+      FieldName = 'ContactTitle'
+      Size = 30
+    end
+    object qry_customersAddress: TWideStringField
+      FieldName = 'Address'
+      Size = 60
+    end
+    object qry_customersCity: TWideStringField
+      FieldName = 'City'
+      Size = 15
+    end
+    object qry_customersRegion: TWideStringField
+      FieldName = 'Region'
+      Size = 15
+    end
+    object qry_customersPostalCode: TWideStringField
+      FieldName = 'PostalCode'
+      Size = 10
+    end
+    object qry_customersCountry: TWideStringField
+      FieldName = 'Country'
+      Size = 15
+    end
+    object qry_customersPhone: TWideStringField
+      FieldName = 'Phone'
+      Size = 24
+    end
+    object qry_customersFax: TWideStringField
+      FieldName = 'Fax'
+      Size = 24
+    end
+  end
+  object prv_customers: TDataSetProvider
+    DataSet = qry_customers
+    Left = 57
+    Top = 38
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData.pas
new file mode 100644
index 0000000..b918c6a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData.pas	
@@ -0,0 +1,46 @@
+unit DataSnapServerData;
+
+interface
+
+uses {vcl:} SysUtils, Classes, DB, DBClient, DataSnapServerInterfaces,
+     {RemObjects:} uRODataSnapModule, Provider, ADODB;
+
+type
+  TDataSnapServerDataForm = class(TRODataSnapModule,IAppServer1)
+    con_SqlServer: TADOConnection;
+    qry_customers: TADOQuery;
+    prv_customers: TDataSetProvider;
+    qry_customersCustomerID: TWideStringField;
+    qry_customersCompanyName: TWideStringField;
+    qry_customersContactName: TWideStringField;
+    qry_customersContactTitle: TWideStringField;
+    qry_customersAddress: TWideStringField;
+    qry_customersCity: TWideStringField;
+    qry_customersRegion: TWideStringField;
+    qry_customersPostalCode: TWideStringField;
+    qry_customersCountry: TWideStringField;
+    qry_customersPhone: TWideStringField;
+    qry_customersFax: TWideStringField;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DataSnapServerDataForm: TDataSnapServerDataForm;
+
+implementation
+
+uses {RemObjects:} uROServer, uRODataSnap_Invk, uROClassFactories;
+
+{$R *.DFM}
+
+procedure Create_DataSnapModule(out oInstance:IUnknown);
+begin
+  oInstance := TDataSnapServerDataForm.Create(nil);
+end;
+
+initialization
+  TROClassFactory.Create('IAppServer1', Create_DataSnapModule, TAppServer_Invoker);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData2.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData2.dfm
new file mode 100644
index 0000000..fa5abdc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData2.dfm	
@@ -0,0 +1,50 @@
+object TDataSnapServerDataForm2: TTDataSnapServerDataForm2
+  OldCreateOrder = True
+  Providers = <
+    item
+      Provider = prv_categories
+      Name = 'cat'
+    end>
+  Left = 636
+  Top = 238
+  Height = 300
+  Width = 300
+  object qry_categories: TADOQuery
+    Connection = con_SqlServer
+    CursorType = ctStatic
+    Parameters = <>
+    SQL.Strings = (
+      'SELECT * FROM categories')
+    Left = 57
+    Top = 8
+    object qry_categoriesCategoryID: TAutoIncField
+      FieldName = 'CategoryID'
+      ReadOnly = True
+    end
+    object qry_categoriesCategoryName: TWideStringField
+      FieldName = 'CategoryName'
+      Size = 15
+    end
+    object qry_categoriesDescription: TMemoField
+      FieldName = 'Description'
+      BlobType = ftMemo
+    end
+    object qry_categoriesPicture: TBlobField
+      FieldName = 'Picture'
+    end
+  end
+  object con_SqlServer: TADOConnection
+    ConnectionString = 
+      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Nor' +
+      'thwind;Data Source=localhost;'
+    LoginPrompt = False
+    Provider = 'SQLOLEDB.1'
+    Left = 24
+    Top = 8
+  end
+  object prv_categories: TDataSetProvider
+    DataSet = qry_categories
+    Left = 57
+    Top = 38
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData2.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData2.pas
new file mode 100644
index 0000000..cb0881b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerData2.pas	
@@ -0,0 +1,47 @@
+unit DataSnapServerData2;
+
+interface
+
+uses {vcl:} SysUtils, Classes, DB, DBClient, 
+     {RemObjects:} uRODataSnapModule, Provider, ADODB, DataSnapServerInterfaces;
+
+type
+  TTDataSnapServerDataForm2 = class(TRODataSnapModule,IAppServer2)
+    qry_categories: TADOQuery;
+    con_SqlServer: TADOConnection;
+    prv_categories: TDataSetProvider;
+    qry_categoriesCategoryID: TAutoIncField;
+    qry_categoriesCategoryName: TWideStringField;
+    qry_categoriesDescription: TMemoField;
+    qry_categoriesPicture: TBlobField;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  TDataSnapServerDataForm2: TTDataSnapServerDataForm2;
+
+implementation
+
+uses {RemObjects:} uROServer, uRODataSnap_Invk;
+
+{$R *.DFM}
+
+procedure Create_DataSnapModule(out oInstance:IUnknown);
+begin
+  oInstance := TTDataSnapServerDataForm2.Create(nil);
+end;
+
+initialization
+  { To adjust scalability of the DataSnapModule and avoid recreation of
+    instances for each roundtrip, you might want to choose a  different
+    ClassFactory type.
+
+    Make sure to check the following url for more information:
+    http://www.remobjects.com?ro16 }
+
+  //TROPooledClassFactory.Create('IAppServer', Create_DataSnapModule, TAppServer_Invoker, 25);
+  TROClassFactory.Create('IAppServer2', Create_DataSnapModule, TAppServer_Invoker);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerInterfaces.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerInterfaces.pas
new file mode 100644
index 0000000..4469093
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerInterfaces.pas	
@@ -0,0 +1,17 @@
+unit DataSnapServerInterfaces;
+
+interface
+uses
+  uRODataSnap_Intf;
+
+type
+  IAppServer1 = interface(IAppServer)
+  end;
+
+  IAppServer2 = interface(IAppServer)
+  end;
+
+implementation
+
+end.
+ 
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerMain.dfm
new file mode 100644
index 0000000..53622b4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerMain.dfm	
@@ -0,0 +1,752 @@
+object DataSnapServerMainForm: TDataSnapServerMainForm
+  Left = 160
+  Top = 125
+  Caption = 'DataSnap Server'
+  ClientHeight = 72
+  ClientWidth = 230
+  Color = clBtnFace
+  ParentFont = True
+  Icon.Data = {
+    0000010006003030000001000800A80E0000660000002020000001000800A808
+    00000E0F0000101000000100080068050000B61700003030000001002000A825
+    00001E1D00002020000001002000A8100000C642000010100000010020006804
+    00006E5300002800000030000000600000000100080000000000000900000000
+    00000000000000010000000100000000000006060600090909000D0D0D001111
+    11001515150010101900191919001E1E1E001B1C26000C0C310013163F001D21
+    3F00232323002B2B2B0025273200282A360021243A002F313D00333333003939
+    39003D3D3D003A403A003475340009094C00161A4300090956000A0C5B000D11
+    5800181E5400151B5B001F234C0022224400282847002D2C4B00393C49002B2C
+    520034375100353B54000E1466001016630010196F0019246F001A2673001927
+    79001B2B7E0023306D002C386A00323C610022337E00333F7000364064003841
+    65003C4568003A467400414141004545450040434E00494949004D4D4D00474A
+    56004D4A520041475E004C4E58005353530051535E005B5B5B0066595E004F68
+    4F005C655C00454B610040496B005B5C640052586B0045517B00525A7B005E61
+    6A005D62740057607B005D657F006161610066616600656565006A6365006365
+    6C00696969006C6B6B0069686C006D6A6D006D6D6D0072676D00736B6E00796B
+    6F00607960006F6D70006E6E7800706F7700737273007A76770074747A007F77
+    7A0076787E007C7B7C00817C7D00318331005E8B5E005AA55B000C0C83000709
+    8C0009128500111F80000304930000029D000E1C9000172886001A308900172C
+    920020348C002C3F8800213B9D000004A300020AA5000007A9000009AD000412
+    A600000BB2000519B300081DB1000011BB00061EB8001431AD001A37A9001737
+    B5001132BD00223EAB002E4189002D4395002E4AAF00354EA5003E56A8002645
+    B9003251BC004D59800047568800535F84005E6781005D688A00747580007778
+    8100797A8000445CAA00405DBF004860AC00566AA7004E68B900536DBA00031B
+    C100021DC800001ED7000926C1000B31C5000E33CB00183BC200173DCF000021
+    DD00062CD800032BE200022EEC00103DE700002DF400002FF8000231F5000B3A
+    F3000234FD000739FF000B3DFF00103FF3001740DB002042C400284AC600254A
+    D100254DDD003054D3001642E7001645F3001344FF001A4BFF001F50FF002E58
+    E9002354FF002C5CFF003D69F4003362FF003867FF003C6BFF004260C0004D6D
+    CD00446AE0004C72E1004B73EB00436FF5004974F5004271FF00837E80008180
+    810087838400858585008A8386008D8488008B8A8B00918C8F00938F9100988C
+    9100939292009B959600969598009B9598009C9A9B00A19B9D00A59FA100A3A2
+    A200AAA3A600AFA6AA00ABAAAA00B0ABAC00A4A6B900B6ADB100B8AFB200B5B2
+    B300BBB5B700BCB6B900BCB8B900C0B7BB00C0BBBD00B4B6C700C5BFC100C3C1
+    C200CAC4C600CBC5C900CCC9CA00D1CCCF00D2CED000D6D4D400D8D4D500DAD6
+    D800DDDADC00E0DDDD00E3E2E200E9E6E600EAE7E900EDEAEC00F2EFF000F4F3
+    F300F8F6F700F8F7F800FDFCFC00000000000000000000000000000000000000
+    00593B0404040404003B50000000000000000000000000000000000000000000
+    00000000000000000000000000CC1407070407040404040400040004000D5900
+    D1D10000000000000000000000000000000000000000000000000059070D0707
+    0707070404040404040004000404041414143B5061CCD9000000000000000000
+    000000000000000000CC0E0D0D0D0D0D0707070707040404040404040407405A
+    5D6A171437143B5061CC0000000000000000000000000000140E0D0E0D0D0D07
+    0D090B1C1B1B1B1A180A03040953645B4569684459595014143740D100000000
+    000000000000000E0E0E0E0D0E0D0D0D0709277B7B7878706F6F6B20615B6461
+    4350515050505059595014660000000000000000006613130E130E0E0D0D0D0D
+    0D0D197D7B7B78706F6B21D2E3DACD6150525159505950505059146200000000
+    00000000CC131313130E0E0E0E0E0D0D0D0D1E7D7D7B7A786C22DBE8E3DDCD64
+    505055505550595059503761000000000000000014141313130E130E0E0E0E0E
+    0D0D29807D7D7B7924D9EDE6E6E0D2CC43525055505052505050376100000000
+    000000141414141313130E130E0E0E0D0D0D1D80807D7D7948DBEDEBEBE3D3CD
+    5050555059505950595037610000000000003B14141414141313130E130E0E0E
+    0E0D0D1E807C6D2852F4EEEEEEE6D6D050505250555050555050376100000000
+    00D1373737141414141313130E130E0E0E0E0D0E0D0D090859F5F1F1F1E9D9D1
+    50505550555550555055146100000000003737373714141414141313130E130E
+    0E0E0E0D0D0D080D59F7F3F3F3EDDAD350505055505550555055375900000000
+    613A3737373737141414141313130E130E0E0E0D0E0D0D0D59FAF5F5F5EFDCD3
+    505055505550555055501437000000003B373B3737373714141414141313130E
+    130E0E0E0D0D0D0C60FBF7F7F7F1DFD350505550555055505550370D000000D9
+    3B3A373A373737373384A185311313130E130E0E0E0E117E63FDFAF8F8F1DFD9
+    50505055505550555055140D500000503B3B3B373B373787AEADADADAA821313
+    130E130E0E0E0F9C63FFFAFAFAF5E0D950505550555055505550370D0E00003B
+    3B3B3B3A373A39B0AFAFADADADAA311313130E130E0E0E7E63FFFCFCFBF5E4D9
+    45595052505550555050370D040000403B3B3B3B3B3736B9AFAFAEADADAD8514
+    1313130E130E0E2A95FFFDFCFCF7E4DC5050615E555555505550140E0400D140
+    403B3B3B3B3B36B9B9AFAFAEADADA114141313130E130E0E66FFFFFFFDF7E4DC
+    424850505550595E5555370D0450614040403B3B3B3A47B9B9B9AFAFAEAD8314
+    14141313130E130E66FFFFFFFEF7E7DC50595950505050505050370E07375040
+    4040403B3B3B3BB4B9B9B9AFAFAC26141414141313130E1366FFFFFFFFF7E4E0
+    5050505E5E5255525550370E04044050404040403B3B3B3CB4B9B9B9AC323714
+    141414141313131366FFFFFFFFF7E7DF42505050525250596145370E07045040
+    40504040403B3B3B3B473636373737373714141414132E7495FFFFFFFCF7DF65
+    CE524550455050505052370E040450504040404040403B3B3B3B373B37373737
+    371414141414A5A694FFFCFCFCFA5561F7F6ECD9CC5950505050370E07045040
+    504050404040403B3B3B3B3B3A3A3737373737141475A9A665FFFCFCF7CCCCE9
+    DCD9E6EFF2F7ECDCCE5537080704505050504050404040403B3B3B3A3A3A3A37
+    37373714142FADA663FFFAD3CCF4F5F1F1E9DDD8CD64D9E9F2EC0E0704046650
+    5040504040504040403B3B3B3A3A3A373A373737141485AB63FED1CCFAFAF8F5
+    F1ECE3DED8D05C43140D0907073BD345505040504040404040403B3B3B3A3B3A
+    37373737373726AB93E1D9FEFFFCFAF7F3EEE9DEDAD4530E0D07080707500050
+    50505050504050404040403B3B3B3A3A3A473937371433AD4BEAFCFFFFFFFDF8
+    F4EFE9E2DA3D1F0D0D0D0707070000505050505040504050404040403B3B3B46
+    B3B9B8883734ACADA0733950CCE9F1F7F6F3EDD62571710D0D070D0707000066
+    505050505050404B968E423F403B3B8ABBBBB9B9B7B0AFAF7723141413131313
+    3F60422B819C6E0D0D0D0808140000DF5950505050504BBFC1C0974040403B8D
+    BBBBBBB9B9B9AFA31415141414141313139FA4A49E9D0F0E0D0D0D08CC000000
+    595059505048C8C2C2C0C049404040B6BBBBBBB9B9B9B9B93715371414141313
+    13122D722C100E0E0D0D0D0D00000000D15950505099CACAC2C2C2C340418FBC
+    BBBBBBBBBBB9B9B9B1837726141414141313130E0E0E0E0E0E0D0D5500000000
+    005959595057C6CACAC2C2C2C0C0BEBEBEBBBBBBBBB9B9B9B9B9B9A237141414
+    14131313130E0E0E0E0E0D000000000000DC5059555091C9CACAC2C2C2C0C0C0
+    BEBEBDBBBBBBBBB9B9B9AEA8371414141414131313130E0E0E0E610000000000
+    0000615955555091C9CACAC2C2C2C0C0BEBEBEBDBBBBBBB9B9B9B98737373714
+    1414141313130E0E0E14000000000000000000595555595292C9CACAC2C2C0C0
+    C0C0BEBEBDBBBBBBBBB9B03737372326141414141313140E1300000000000000
+    00000000595552555291C7CACAC2C2C2C0C0BEBEBEBDBBBBBBBBB98C3987ACAF
+    7714141414131313000000000000000000000000DC5959525550559BCACAC2C2
+    C2C0C0C0BEBEBDBBBBBBB9BBB0B9B9AE77371414141413CC0000000000000000
+    0000000000DC59595255525091C4CAC2C2C0C0C0BEBEBEBDBBBBBBB9BBB9B234
+    373714141414CC00000000000000000000000000000000595952555250504D9A
+    C5C2C2C0C0C0BEBEBBBBBBB589263B3737373737140000000000000000000000
+    00000000000000006159525552505050504890989696968B964A3F3B3B3B3A37
+    3737373B000000000000000000000000000000000000000000DC595259505050
+    505050504050404040403B3B3B3A3A3B373AD100000000000000000000000000
+    0000000000000000000000D15955505050455040504040424040403B3B3B3A3A
+    6100000000000000000000000000000000000000000000000000000000DF6155
+    5050505050504050404040403B50D90000000000000000000000000000000000
+    0000000000000000000000000000000000D39543425040405061D10000000000
+    0000000000000000000000000000FFFFE007FFFF0000FFFE00004FFF0000FFF8
+    0000007F0000FFE00000000F0000FFC0000000030000FF80000000030000FE00
+    000000030000FC00000000030000FC00000000030000F800000000030000F000
+    000000030000E000000000030000E000000000030000C000000000030000C000
+    0000000300008000000000010000800000000001000080000000000100008000
+    0000000100000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000080000000000100008000
+    00000001000080000000000100008000000000010000C000000000030000C000
+    000000030000E000000000070000E000000000070000F0000000000F0000F800
+    0000001F0000FC000000003F0000FC000000003F0000FE000000007F0000FF80
+    000001FF0000FFC0000003FF0000FFE0000007FF0000FFF800001FFF0000FFFE
+    00007FFF0000FFFFE007FFFF0000280000002000000040000000010008000000
+    00000004000000000000000000000001000000010000000000000A0A0A000D0D
+    0D001111110014131400161616001A1919001E1E1E0021212100252525002A2A
+    2A002D2D2D003131310035353500393939003D3D3D003F453F00171B45001015
+    5D00151B5C001A195F001D21410031374F00393C48003C3F4B002B3359003339
+    52001C1D6B0029356800323B6100343E6300283776003E445B003A4675003D49
+    7700414141004545450048494A004A4C4D004E4E4E00424551004D4F5000484B
+    57004E5051005151520055555600595959005B5C5D005D5D5D00434C6D005B5E
+    67004C4C7E00606060006364640066666600696969006B6B6C006D6D6D006F6E
+    72006167780063637D0070707000757575007A7375007B7B7B007E7E7E000A9C
+    12003B8B410000009A0000029F000005A5000308A4000009AB00000CB100000F
+    B8000213B4001131BB00374A8D002A4094002D439500344A99002D46A3003C42
+    A6003851A7003C54A8002443B8002F4DBC00485A950055669C0060688200566A
+    A7001538C200183BC300062FDE00123EE7000332F0000A3AF2000E3DF2000032
+    FC000336FE00073AFF000C3EFF00224ADD00385FDF003C62DF001442F3001847
+    F3001042FE001547FF001A4BFF001E4FFF00204AE8002853E9003559E3002354
+    FF002758FF002C5CFF003A63EA003E67EA003C68F4003161FF003565FF003A69
+    FF003F6EFF004A67C200496EE1004C72E1004570F5004974F5004372FF007F80
+    8100868686008A8A8A008C8C8C00929292009395960099919700979598009C9A
+    9C009E9D9E00A0989E00A39AA100A6A6A600AAA3A900ADA7AD00A9AAAA00B0AA
+    B000B0B0B200B8B2BA00BDB7BD00BFBBBF00BDBDBF00C0BAC000C2BCC200C4BD
+    C200C4BCC400C6C0C600CAC5CA00CBC7CC00CECACE00CFCFCF00CECDD000D1CD
+    D100D0D1D100D3D3D400D4D0D400D8D5D900DDD9DD00DDDCE000E3E0E200E2E1
+    E500E5E3E700E7E6E700E7E6EA00E9E7EA00E9E9EA00EAEAED00EDEBED00EDED
+    EE00EEEDF000F0F0F200F2F2F400F6F5F600F8F8FA00FBFBFC00FEFEFE000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00002C0903030202092C0000251025250000000000000000000000000000002E
+    0707070303030302020203258D25404025252500000000000000000000380909
+    0907070707030303020625368F2540404040402525250000000000000F0A0A09
+    0907071246464644142595259225404040404040862500000000000D0A0D0A0A
+    090909114948461B2595952595254042423333408625000000000F0D0D0A0A0A
+    0A09091349495225959595259625404043403C408625000000240F0D0D0D0D0A
+    0A0A09154B4A2595959595259C25404040404040862500003D0F0F0F0D0D0D0D
+    0A0A0A0915132595959595259F254040404040408625000024240F0F0F0D0D0D
+    0D0A0A0A0909259895959525A5254040404040408625003D2524240F0F0F0D0D
+    0D0D0A0A0A09259898959525A625404040404040862500252524240F1D5B5F4C
+    190D0A0D0A0A259C98989625A825404040404040862500272525242861646363
+    5D0D0D0A0D0A259F9C989825AB254040404040408625402C272525216B656463
+    631C0D0D0A0D259F9D9C9825AD254040404040408625362C2C2725226B6B6564
+    63160E0D0D0A25A59F9D9D25B02583838386404086252C2E2C2C2725666D6B65
+    5B0F0F0D0D0D25A6A59F9D25B0254040403883838E252E2E2E2C2C272A50514F
+    240F0F0F0D0D25A7A6AE9F25B42585858640404085252E2E2E2E2C2C27252524
+    24230F0F0F1625ABB08AA525B0252D36388585858E25362E2E2E2E2C2C272525
+    2424230F0F1F25AB868AA625A3A383362B2A2E38862538362E2E2E2E2C2C2725
+    252424240F0F25B086ABB9932C2C4091A597832E2525853634342E2E2E2C2C27
+    27252820240F25B4B0B9B0ABA797893A2E2B3787A5250036362E342E2E2E2C2C
+    27316F6B554F25B4B9B3B4B0ABA69F959088883F2500003636362E327779572C
+    2C536E6D6B6B25B9B0B9B9B4B0A8A197928C2525080000853636367D7B7A762D
+    2D536E6E6D6C712525ADB9B4B3A8A598252509092E0000003836367E817B7A68
+    6874746E6E6D6C6B61252525252525250A0A0A09000000008538363C80817A7A
+    797974746E6E6D6C6B5E230F0F0D0D0D0D0A0A3400000000003D383759808181
+    7A797974746E6E6D6C4F2417170F0D0D0D0D0F000000000000003836363B7E81
+    7A7A797974746E6E6D6A4F61611D0F0D0D0C000000000000000000383836365A
+    7F7B7A797974746E6E6D6C694E0F0F0F0D00000000000000000000003D383636
+    36587C767979747470564D2424240F2400000000000000000000000000863836
+    3634342E2E2E2C2C2C2725252424380000000000000000000000000000000085
+    363636342E2E2E2E2C2C27253F00000000000000000000000000000000000000
+    00008538362E2E2E3640000000000000000000000000FFF00C3FFF800007FE00
+    0000FC000000F8000000F0000000E0000000C0000000C0000000800000008000
+    0000800000000000000000000000000000000000000000000000000000000000
+    000000000000800000018000000180000001C0000003C0000003E0000007F000
+    000FF800001FFC00003FFE00007FFF8001FFFFF00FFF28000000100000002000
+    0000010008000000000000010000000000000000000000010000000100000000
+    00000D0D0D001212120018181800191A2A000F0F34001D1F3400212121002626
+    260024252B002A2A2A002A2A2C0030303000343434003939390039393D003E3E
+    3E00080955000A0E5D00282E4A003E3E4000353948003B3E4A0028325F00363D
+    5A000E187B0016206B002B2E6900343C76004343430043434400424348004445
+    4E00484848004D4D4D004548560044485B005252520054505100575757005053
+    5F005A535B00585858005C5C5C004E614E00474E66005C5D60005F636E006262
+    62006565650066676A00696869006D6C6D006573640071717100757575007978
+    78007C7C7C00060B97002B3C8200273C9000000BB1001935A5003E4F8B002E48
+    A9003047A4003A47A4003E56A9003D57B200495D9F005161950057689C007173
+    87007F7A9100455DAB00536BB400183BC100133AD1000732E1000739FE001E42
+    C9001B42D5001A42D9002945C4001742E5001B4AF7001041FF00194AFF002253
+    FF002B5BFF003564FF003F6CF9003E6DFF004260C1004E6FD000858585008E8E
+    8E009191910095949500A49D9F00AFA7AA00ACA9AA00B5B0B200B6B4B500BBB8
+    B900C4C1C300C4C4C800CBC6C800D2CFD000D7D3D400DAD9DA00E2DFE000ECEA
+    EB00F3F1F100FBFAFB00FDFCFC00000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000340D0201083460000000000000003708080412110526352C272E000000
+    27080808063D3A49633430302E0000390F0F0D080B191B6B663430332700001D
+    0F0F0D0D08080F6F693730302A005F211D4C4E170D081C716C37303327343025
+    23564F3E0D0D20726E3834302E0D2E26214050180F0D24726E38303027032E27
+    2721211D0F155370676865623702372A2A272121200F416A716D6429080D6130
+    2E45282D55504D162E48421A07340030475C5D445857543C0F0D130808000062
+    345E5C5A595857520F0F0D0D3700000039324B5C5A595855513B0F2700000000
+    00623032464A433F231D39000000000000000060372E27305F0000000000F80F
+    0000E0010000C001000080010000800100000000000000000000000000000000
+    000000000000000000008001000080010000C0030000E0070000F81F00002800
+    0000300000006000000001002000000000008025000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000001919192F1717176F1616169F141414BF121212FF1010
+    10FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808BF0707079F0505056F0505
+    0530343434053434340F343434203434342E343434353434342C3434341F3434
+    34143434340D3434340834343405343434023434340100000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000002020
+    201F1E1E1E8F1C1C1CDF1A1A1AFF191919FF171717FF151515FF141414FF1212
+    12FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF080808FF060606FF0606
+    06FF070707E1101010A22B2B2B6F34343491343434923434347F343434643434
+    344A3434343A3434342D34343420343434143434340C34343408343434043434
+    3402000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000002424242F232323AF2121
+    21FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF151515FF1414
+    14FF121212FF101010FF0F0F0FFF0D0D0DFF0B0B0BFF0A0A0AFF090909FF0909
+    09FF0E0E0EFF1A1A1AFF363335FF353635FA303030EE2F2E2FDC303030C43434
+    34AE3434349734343480343434643434344B3434343A34343428343434183434
+    340B343434030000000000000000000000000000000000000000000000000000
+    00000000000000000000000000002A2A2A0F2828288F262626FF242424FF2323
+    23FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A1AFF191919FF171717FF1515
+    15FF141414FF121212FF101010FF0F0F0FFF0D0D0DFF0C0C0CFF0D0D0DFF1111
+    11FF1D1D1DFF555052FF72676DFF607960FF5AA55BFF347534FF393F39FD3938
+    39F8313131EF2F2F2FDD303030C42F2F2FAE3434349734343477343434473434
+    341E343434060000000000000000000000000000000000000000000000000000
+    000000000000000000002D2D2D3F2B2B2BEF292929FF282828FF262626FF2424
+    24FF232323FF212121FF1F1F1FFF1E1E1EFF1A1B25FF13163FFF0D1158FF0B0E
+    5EFF0A0C5BFF090A58FF090956FF09094CFF0C0C31FF101019FF141414FF2121
+    21FF686264FF81797BFF746B6FFF5C655CFF5E8B5EFF318331FF4F684FFF6D6A
+    6DFF666666FF5B5B5BFE3F3F3FFD383838F8313131EE2E2E2ED03434348D3434
+    34313434340A0000000000000000000000000000000000000000000000000000
+    0000000000003030306F2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF2626
+    26FF242424FF232323FF212121FF1F1F1FFF1C1D27FF0E1466FF0009ADFF0007
+    A9FF0005A5FF0003A1FF00019BFF010197FF050590FF0C0C83FF222244FF7770
+    74FF726B6DFF837D80FF777073FF5D5C5DFF676067FF666266FF646564FF6565
+    65FF666666FF666666FF696969FF6A6A6AFF646464FF3A3A3AFC343434A93434
+    34413434340D0000000000000000000000000000000000000000000000000000
+    00003333339F323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF2828
+    28FF262626FF242424FF232323FF212121FF1F1F1FFF161A43FF000BB1FF0009
+    ADFF0007A9FF0005A5FF01049FFF050693FF0C0C83FF282847FF928B8FFFB8AF
+    B2FFA0999CFF847F81FF7A7677FF5D5D5DFF656565FF666566FF666566FF6565
+    65FF656565FF656565FF656565FF666666FF646464FF3E3E3EFD343434AE3434
+    34463434340F0000000000000000000000000000000000000000000000003737
+    379F353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF2929
+    29FF282828FF262626FF242424FF232323FF212121FF141959FF000DB5FF000B
+    B1FF0009ADFF0007A9FF0206A1FF07098CFF2D2C4BFFA69FA3FFC0B7BBFFB7B0
+    B2FFAAA3A6FF8A8487FF7F7A7DFF5D5D5DFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFD343434AE3434
+    34463434340F00000000000000000000000000000000000000003A3A3A6F3838
+    38FF373737FF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B
+    2BFF292929FF282828FF262626FF242424FF232323FF10196FFF0010B9FF000D
+    B5FF000BB1FF0009ADFF0209A4FF2B2C52FF9F999CFFC9C2C5FFBDB6BAFFBDB7
+    BAFFB1AAACFF8F8A8BFF837F81FF5D5D5DFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFD343434AE3434
+    34463434340F000000000000000000000000000000003D3D3D3F3B3B3BFF3A3A
+    3AFF383838FF373737FF353535FF333333FF323232FF303030FF2E2E2EFF2D2D
+    2DFF2B2B2BFF292929FF282828FF262626FF242424FF181E54FF0012BEFF0010
+    B9FF000DB5FF000BB1FF030BA6FF5C5A62FFA5A0A1FFCBC4C6FFC5BFC1FFC5BF
+    C1FFB6B0B2FF938F91FF878384FF5C5D5DFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFD343434AE3434
+    34463434340F0000000000000000000000004141410F3F3F3FEF3D3D3DFF3B3B
+    3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF303030FF2E2E
+    2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF161D5EFF0012
+    BEFF0412A6FF091285FF101663FF66656CFFD9D4D5FFCBC5C9FFCBC5C9FFCBC5
+    C9FFBCB6B8FF989596FF8B8789FF5C5C5CFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFD343434AE3434
+    34463434340F0000000000000000000000004242429F404040FF3F3F3FFF3D3D
+    3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF3030
+    30FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF2323
+    23FF212121FF1F1F1FFF1F1F1FFF69686CFFE0DCDDFFD1CECFFFD1CCCFFFD1CC
+    CFFFC2BDBFFF9D999AFF8F8B8EFF5C5C5CFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFE343434AE3434
+    34463434340F00000000000000004545452F444444FF424242FF404040FF3F3F
+    3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF3232
+    32FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF2424
+    24FF232323FF212121FF202020FF6C6B6BFFE6E1E3FFD8D4D5FFD8D4D5FFD8D4
+    D5FFC7C4C5FFA19E9FFF939091FF5C5C5CFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFF313131B83434
+    34463434340F0000000000000000474747BF454545FF444444FF424242FF4040
+    40FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF3333
+    33FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF2626
+    26FF242424FF232323FF222222FF6F6D70FFEDE9EBFFDEDADDFFDEDADCFFDEDA
+    DCFFCCCACAFFA5A1A3FF969393FF5C5C5CFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFF282828E13434
+    34463434340F000000004A4A4A1F494949FF474747FF454545FF444444FF4242
+    42FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF3535
+    35FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF2828
+    28FF262626FF242424FF1D213FFF706F77FFF3F0F0FFE5E1E2FFE3E1E2FFE3E1
+    E2FFD1CFD0FFA9A6A7FF999798FF5C5C5CFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFF242424FF2828
+    285C3434340F000000004C4C4C8F4A4A4AFF494949FF474747FF454545FF4444
+    44FF424242FF404040FF3F3F3FFF323C61FF1737B5FF0E33CBFF1132BCFF2233
+    7EFF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF2929
+    29FF282828FF21243AFF0519B3FF72727AFFFAF6F7FFEAE7E9FFE9E7E7FFE9E6
+    E7FFD7D4D4FFACAAAAFF9C999AFF5C5C5CFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFF242424FF1616
+    16AE3434340F000000004E4E4EDF4C4C4CFF4A4A4AFF494949FF474747FF4545
+    45FF444444FF424242FF2C3F88FF0739FFFF0436FFFF0134FEFF0031FCFF002F
+    F8FF1431ADFF353535FF333333FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B
+    2BFF292929FF252732FF031AC1FF74747BFFFFFCFEFFEFEDEEFFEEEBEDFFEEEB
+    EDFFDAD8D9FFB0ADADFF9E9D9DFF5C5C5CFF656565FF656565FF656565FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFF252525FF1212
+    12E83434340F5151512F4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF4747
+    47FF454545FF40444FFF103FF3FF0A3CFFFF0739FFFF0436FFFF0134FEFF0031
+    FCFF002FF8FF22337EFF353535FF333333FF323232FF303030FF2E2E2EFF2D2D
+    2DFF2B2B2BFF292929FF081DB1FF76777EFFFFFFFFFFF3F2F2FFF2F0F0FFF2EF
+    F0FFDDDCDDFFB2B0B1FFA09E9FFF5E5E5EFF6A6A6AFF646464FF646464FF6565
+    65FF656565FF656565FF656565FF656565FF646464FF3D3D3DFF252525FF1212
+    12FF1010103B5252526F515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF4949
+    49FF474747FF394574FF1042FFFF0D3FFFFF0A3CFFFF0739FFFF0436FFFF0134
+    FEFF0031FCFF1132BCFF373737FF353535FF333333FF323232FF303030FF2E2E
+    2EFF2D2D2DFF2B2B2BFF19246FFF77787FFFFFFFFFFFF7F6F7FFF6F4F6FFF4F4
+    F4FFE1E0E1FFB5B2B4FFA3A1A1FF5D5D5DFF646464FF707070FF6F6F6FFF6666
+    66FF6A6A6AFF656565FF646464FF666666FF636363FF3D3D3DFF262626FF1313
+    13FF0B0B0B77545454AF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A
+    4AFF494949FF3B4775FF1345FFFF1042FFFF0D3FFFFF0A3CFFFF0739FFFF0436
+    FFFF0134FEFF0E33CBFF383838FF373737FF353535FF333333FF323232FF3030
+    30FF2E2E2EFF2D2D2DFF2C2C2CFF7A7A7AFFFFFFFFFFFBFAFBFFF8F8F8FFF8F7
+    F8FFE3E2E2FFB6B4B5FFA4A1A3FF595959FF606060FF636363FF636363FF6767
+    67FF626262FF6D6D6DFF6E6E6EFF666666FF686868FF3D3D3DFF272727FF1414
+    14FF0B0B0BA5565656CF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C
+    4CFF4A4A4AFF40496BFF1647FFFF1345FFFF1042FFFF0D3FFFFF0A3CFFFF0739
+    FFFF0436FFFF1A37A9FF3A3A3AFF383838FF373737FF353535FF333333FF3232
+    32FF303030FF2E2E2EFF2D2D2DFF7C7C7CFFFFFFFFFFFEFEFEFFFBFBFBFFFAFA
+    FAFFE5E5E5FFB7B5B5FFA6A5A5FF646464FF676767FF6A6A6AFF656565FF6363
+    63FF5F5F5FFF606060FF626262FF666666FF636363FF414141FF272727FF1616
+    16FF0B0B0BC3585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E
+    4EFF4C4C4CFF4A4A4AFF254AD1FF1647FFFF1345FFFF1042FFFF0D3FFFFF0A3C
+    FFFF0A39F3FF363C55FF3B3B3BFF3A3A3AFF383838FF373737FF353535FF3333
+    33FF323232FF303030FF2E2E2EFF7C7C7CFFFFFFFFFFFEFEFEFFFCFBFBFFFBFA
+    FAFFE6E5E5FFB6B5B5FFADABACFF5E5E5EFF666666FF636363FF6E6E6EFF7070
+    70FF666666FF6A6A6AFF666666FF646464FF5A5A5AFF434343FF282828FF1616
+    16FF0C0C0CFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F
+    4FFF4E4E4EFF4C4C4CFF474A56FF254AD1FF1647FFFF1345FFFF1042FFFF103F
+    F3FF333F70FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF3535
+    35FF333333FF323232FF303030FF7C7C7CFFFFFFFFFFFEFCFEFFFBFBFBFFFAFA
+    FAFFE3E3E3FFB6B5B5FFACABACFF585858FF636363FF5F5F5FFF636363FF6262
+    62FF666666FF606060FF6C6C6CFF757575FF606060FF434343FF282828FF1818
+    18FF0D0D0DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF5151
+    51FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF40496BFF3B4775FF394574FF4444
+    44FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF3737
+    37FF353535FF23306DFF172C92FF797A80FFFFFFFFFFFBFAFBFFFAF8F8FFF8F7
+    F7FFE5E3E5FFA9A9A9FF7C7B7BFF888888FF656565FF5C5C5CFF5B5B5BFF6262
+    62FF636363FF5F5F5FFF626262FF636363FF666666FF444444FF282828FF1919
+    19FF0F0F0FFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF545454FF5353
+    53FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF474747FF4545
+    45FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF3838
+    38FF373737FF062CD8FF032AE0FF777881FFFFFFFFFFF7F6F7FFF6F4F4FFF3F2
+    F3FFECE9EBFF6A6969FF717070FFE2E2E2FFDEDEDEFFC1C1C1FF9E9E9EFF8484
+    84FF6B6B6BFF5E5E5EFF5B5B5BFF626262FF5A5A5AFF434343FF272727FF1818
+    18FF101010FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656FF5454
+    54FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF494949FF4747
+    47FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A
+    3AFF20348CFF002DF4FF032CE4FF76787DFFFFFFFFFFF3F2F2FFF2F0F0FFE4E3
+    E3FF817F7FFF818080FFC0BBBDFFA49FA0FF9D999CFFBCB8BAFFCAC9CAFFD5D5
+    D5FFE0E1E0FFC2C2C2FFA3A4A3FF898989FF6B6B6BFF444444FF212121FF1717
+    17FF111111FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF585858FF5656
+    56FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A4AFF4949
+    49FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B
+    3BFF2C386AFF002FF8FF032DE9FF757578FFFEFCFEFFEEEBEDFF908E8FFF8381
+    82FFD9D6D8FFDEDADCFFD7D3D4FFCFC9CBFFC2BBBDFFAAA1A5FF9D9597FF8B82
+    86FF7F777AFFA09D9EFFC0BCBDFFD8D5D7FFC1C1C1FF2B2B2BFF1A1A1AFF1616
+    16FF131313FF626262CF606060FF5E5E5EFF5D5D5DFF5B5B5BFF595959FF5858
+    58FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C4CFF4A4A
+    4AFF494949FF474747FF454545FF444444FF424242FF404040FF3F3F3FFF3D3D
+    3DFF3B3B3BFF1234BFFF022FEFFF74747BFFF7F6F6FF8F8E8EFF858484FFE9E8
+    E8FFEEEBEDFFE9E6E6FFDEDCDCFFD3CED0FFC7C1C4FFBBB5B7FFABA4A6FF9E93
+    98FF8F8288FF796B6FFF66595EFF3B3839FF232323FF1D1D1DFF191919FF1616
+    16FF141414BF636363AF626262FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF5959
+    59FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C
+    4CFF4A4A4AFF494949FF474747FF454545FF444444FF424242FF404040FF3F3F
+    3FFF3D3D3DFF343A54FF0231F5FF747580FFA4A6B9FF969598FFF7F7F7FFFAFA
+    FAFFF6F4F4FFEEEDEDFFE5E2E2FFD9D4D7FFCBC6C7FFBFB8BAFFAFA6AAFFA198
+    9CFF988C91FF6D6467FF2C2B2CFF212121FF1F1F1FFF1B1B1BFF191919FF1717
+    17FF161616AF6565656F636363FF626262FF606060FF5E5E5EFF5D5D5DFF5B5B
+    5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E
+    4EFF4C4C4CFF4A4A4AFF494949FF474747FF3C4568FF41444FFF424242FF4040
+    40FF3F3F3FFF323C61FF0234F9FF51587EFFB4B6C7FFF8F7F7FFFFFFFFFFFFFF
+    FFFFFFFFFFFFF6F4F6FFEAE6E7FFDCD7D8FFCCC7C9FFC0B8BCFFB6ADB1FFA69C
+    9FFF4D4A52FF1F234CFF242424FF212121FF1F1F1FFF1C1C1CFF1A1A1AFF1919
+    19FF1717176F6666662F656565FF636363FF626262FF606060FF5E5E5EFF5D5D
+    5DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F
+    4FFF4E4E4EFF4C4C4CFF454B61FF284AC6FF1647FFFF1645F3FF2D4395FF4242
+    42FF364064FF0A39F3FF0536FDFF0B31C5FF1A3089FF40434EFF5F5F5FFF8484
+    84FFB9B9B9FFD5D4D5FFE1DDDEFFE1DEDEFFD9D4D7FFCBC4C6FF9C9597FF3437
+    51FF0E1D90FF0E1C90FF242424FF212121FF1F1F1FFF1E1E1EFF1C1C1CFF1A1A
+    1AFF1919192F00000000676767DF656565FF636363FF626262FF606060FF5E5E
+    5EFF5D5D5DFF5B5B5BFF535C78FF465EABFF4D5980FF52555FFF535353FF5151
+    51FF4F4F4FFF4E4E4EFF354EA5FF1C4DFFFF194AFFFF1647FFFF1345FFFF1642
+    E7FF103FF3FF0A3CFFFF0739FFFF203A9DFF383B48FF3A3A3AFF373737FF3535
+    35FF313131FF2E2E2EFF363636FF4D4E58FF6E6E78FF51505EFF1A2673FF061E
+    B8FF041CC2FF111F80FF242424FF232323FF212121FF1F1F1FFF1E1E1EFF1C1C
+    1CDF00000000000000006868688F676767FF656565FF636363FF626262FF6060
+    60FF5E5E5EFF57607BFF3D69F4FF3867FFFF3564FFFF405DBFFF545454FF5353
+    53FF515151FF4F4F4FFF3251BCFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1345
+    FFFF1042FFFF0D3FFFFF173DCFFF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF3838
+    38FF373737FF353535FF333333FF323232FF0926C1FF0022DFFF0020DBFF001E
+    D7FF021DC8FF252732FF262626FF242424FF232323FF212121FF1F1F1FFF1E1E
+    1E8F00000000000000006969691F686868FF676767FF656565FF636363FF6262
+    62FF5E616AFF436FF5FF3E6DFFFF3B6AFFFF3867FFFF3564FFFF52586BFF5454
+    54FF535353FF515151FF3054D3FF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647
+    FFFF1345FFFF1042FFFF0D3FFFFF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A
+    3AFF383838FF373737FF353535FF333333FF2F313DFF1B2B7EFF172886FF1927
+    79FF282A36FF292929FF282828FF262626FF242424FF232323FF212121FF2020
+    201F0000000000000000000000006A6A6ABF686868FF676767FF656565FF6363
+    63FF566AA7FF4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF4260C0FF5656
+    56FF52555FFF475688FF2E58E9FF2556FFFF2253FFFF1F50FFFF1C4DFFFF194A
+    FFFF1647FFFF1345FFFF1042FFFF1740DBFF223EABFF233C9EFF363C55FF3B3B
+    3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF303030FF2E2E
+    2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF242424FF232323AF0000
+    00000000000000000000000000006B6B6B3F6A6A6AFF686868FF676767FF6565
+    65FF62656DFF4C72E1FF4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564
+    FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4D
+    FFFF194AFFFF1647FFFF1345FFFF1042FFFF0D3FFFFF0A3CFFFF183BC2FF3D3D
+    3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF323232FF3030
+    30FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF282828FF262626FF2424242F0000
+    0000000000000000000000000000000000006B6B6B9F6A6A6AFF686868FF6767
+    67FF656565FF5E6781FF4974F5FF4473FFFF4170FFFF3E6DFFFF3B6AFFFF3867
+    FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50
+    FFFF1C4DFFFF194AFFFF1647FFFF1345FFFF1042FFFF0D3FFFFF103DE7FF3F3F
+    3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF333333FF3232
+    32FF303030FF2E2E2EFF2D2D2DFF2B2B2BFF292929FF2828289F000000000000
+    0000000000000000000000000000000000006B6B6B0F6B6B6BEF6A6A6AFF6868
+    68FF676767FF656565FF5E6781FF4776FFFF4473FFFF4170FFFF3E6DFFFF3B6A
+    FFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253
+    FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1345FFFF1042FFFF2E4189FF4040
+    40FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A3AFF383838FF373737FF353535FF3333
+    33FF323232FF303030FF2E2E2EFF2D2D2DFF2B2B2BEF2A2A2A0F000000000000
+    000000000000000000000000000000000000000000006B6B6B3F6B6B6BFF6A6A
+    6AFF686868FF676767FF656565FF5D688AFF4974F5FF4473FFFF4170FFFF3E6D
+    FFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959FFFF2556
+    FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1645F3FF444444FF4242
+    42FF404040FF3B3E4BFF363C55FF3B3B3BFF3A3A3AFF383838FF373737FF3535
+    35FF333333FF323232FF303030FF2E2E2EFF2D2D2D3F00000000000000000000
+    00000000000000000000000000000000000000000000000000006B6B6B7F6B6B
+    6BFF6A6A6AFF686868FF676767FF656565FF5E6781FF4B73EBFF4473FFFF4170
+    FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5CFFFF2959
+    FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF2645B9FF4144
+    4FFF2E4189FF0D3CF3FF0739FFFF213A9DFF3B3B3BFF3A3A3AFF383838FF3737
+    37FF353535FF333333FF323232FF3030306F0000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000006B6B
+    6B9F6B6B6BFF6A6A6AFF686868FF676767FF656565FF62656DFF536DBAFF4473
+    FFFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5FFFFF2C5C
+    FFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647FFFF1645
+    F3FF1042FFFF0D3FFFFF0A3CFFFF233C9FFF3D3D3DFF3B3B3BFF3A3A3AFF3838
+    38FF373737FF353535FF3333339F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00006B6B6B9F6B6B6BFF6A6A6AFF686868FF676767FF656565FF636363FF5D65
+    7FFF4D6DCDFF4170FFFF3E6DFFFF3B6AFFFF3867FFFF3564FFFF3261FFFF2F5F
+    FFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF1C4DFFFF194AFFFF1647
+    FFFF1345FFFF2042C4FF384165FF404040FF3F3F3FFF3D3D3DFF3B3B3BFF3A3A
+    3AFF383838FF3737379F00000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000006B6B6B7F6B6B6BFF6A6A6AFF686868FF676767FF656565FF6363
+    63FF626262FF5D6274FF4E68B9FF446AE0FF3B6AFFFF3867FFFF3564FFFF3261
+    FFFF2F5FFFFF2C5CFFFF2959FFFF2556FFFF2253FFFF1F50FFFF254DDDFF2E4A
+    AFFF41475EFF454545FF444444FF424242FF404040FF3F3F3FFF3D3D3DFF3B3B
+    3BFF3A3A3A6F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000006B6B6B4F6B6B6BEF6A6A6AFF686868FF676767FF6565
+    65FF636363FF626262FF606060FF5E5E5EFF5B5E67FF535F84FF4860ACFF465E
+    ABFF445CABFF4159AAFF3F57A9FF3D55A8FF45517BFF4B4E59FF4C4C4CFF4A4A
+    4AFF494949FF474747FF454545FF444444FF424242FF404040FF3F3F3FEF3D3D
+    3D3F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000006B6B6B0F6B6B6B9F6A6A6AFF686868FF6767
+    67FF656565FF636363FF626262FF606060FF5E5E5EFF5D5D5DFF5B5B5BFF5959
+    59FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E4EFF4C4C
+    4CFF4A4A4AFF494949FF474747FF454545FF444444FF4242429F4141410F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000006B6B6B3F6A6A6ABF6868
+    68FF676767FF656565FF636363FF626262FF606060FF5E5E5EFF5D5D5DFF5B5B
+    5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F4FFF4E4E
+    4EFF4C4C4CFF4A4A4AFF494949FF474747BF4545453F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000006969
+    691F6868688F676767EF656565FF636363FF626262FF606060FF5E5E5EFF5D5D
+    5DFF5B5B5BFF595959FF585858FF565656FF545454FF535353FF515151FF4F4F
+    4FFF4E4E4EDF4C4C4C8F4A4A4A1F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000006666662F6565657F636363AF626262CF606060FF5E5E
+    5EFF5D5D5DFF5B5B5BFF595959FF585858FF565656CF545454AF5252527F5151
+    512F000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000FFFF8000000F0000FFFC000000010000FFF0000000000000FFC0
+    000000000000FF80000000000000FF00000000000000FE00000000000000FC00
+    000000000000F800000000000000F000000000000000E000000000000000E000
+    000000000000C000000000000000C00000000000000080000000000000008000
+    0000000000008000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000008000
+    00000001000080000000000100008000000000010000C000000000030000C000
+    000000030000E000000000070000E000000000070000F0000000000F0000F800
+    0000001F0000FC000000003F0000FE000000007F0000FF00000000FF0000FF80
+    000001FF0000FFC0000003FF0000FFF000000FFF0000FFFC00003FFF0000FFFF
+    8001FFFF00002800000020000000400000000100200000000000801000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000001C1C1C1F1A1A1A6F1717
+    17BF151515EF121212FF101010FF0D0D0DFF0B0B0BFF080808DF060606AF0404
+    046F21202171484A4BFF3F453FFF484A4BFF484A4BFF1D1D1D11000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000002424243F212121BF1F1F1FFF1C1C1CFF1A1A
+    1AFF171717FF151515FF121212FF101010FF0D0D0DFF0B0B0BFF080808FF1413
+    14FF484A4BFFA39AA1FF484A4BFF7B7B7BFF7B7B7BFF484A4BFF484A4BFF484A
+    4BFF222222341E1E1E0D8E8E8E01000000000000000000000000000000000000
+    0000000000002B2B2B0F292929AF262626FF242424FF212121FF1F1F1FFF1C1C
+    1CFF1A1A1AFF171717FF151515FF121212FF101010FF0D0D0DFF1A1919FF484A
+    4BFF676467FFAAA3A9FF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF484A4BFF484A4BFF484A4BFF000000000000000000000000000000000000
+    00003030303F2E2E2EEF2B2B2BFF292929FF262626FF242424FF212121FF1F1F
+    1FFF10155DFF0009ABFF0005A5FF00029FFF00009AFF1A195FFF484A4BFFBDB7
+    BDFF484A4BFFB1ABB1FF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF7B7B7BFF939393FF494949FF000000000000000000000000000000003535
+    355F333333FF303030FF2E2E2EFF2B2B2BFF292929FF262626FF242424FF2121
+    21FF171B45FF000CB1FF0009ABFF0308A4FF1C1D6BFF484A4BFFBDB7BDFFBDB7
+    BDFF484A4BFFB8B2BAFF484A4BFF7B7B7BFF0A9C12FF0A9C12FF4C4C7EFF4C4C
+    7EFF7B7B7BFF939393FF494949FF0000000000000000000000003A3A3A3F3838
+    38FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF292929FF262626FF2424
+    24FF151B5CFF000FB8FF000CB1FF3C42A6FF484A4BFFBDB7BDFFBDB7BDFFBDB7
+    BDFF484A4BFFC0BBC0FF484A4BFF7B7B7BFF7B7B7BFF3B8B41FF7B7B7BFF6363
+    7DFF7B7B7BFF939393FF494949FF00000000000000003F3F3F1F3C3C3CEF3A3A
+    3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF292929FF2626
+    26FF1D2141FF0213B4FF000FB8FF484A4BFFBDB7BDFFBDB7BDFFBDB7BDFFBDB7
+    BDFF484A4BFFC6C2C7FF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF7B7B7BFF939393FF494949FF0000000000000000414141BF3F3F3FFF3C3C
+    3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B2BFF2929
+    29FF262626FF1D2141FF151B5CFF484A4BFFBDB7BDFFBDB7BDFFBDB7BDFFBDB7
+    BDFF484A4BFFCECACEFF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF7B7B7BFF939393FF494949FF000000004646463F444444FF414141FF3F3F
+    3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B
+    2BFF292929FF262626FF242424FF484A4BFFC0BAC0FFBDB7BDFFBDB7BDFFBDB7
+    BDFF484A4BFFD4D0D4FF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF7B7B7BFF939393FF494949FF00000000494949BF464646FF444444FF4141
+    41FF3F3F3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E
+    2EFF2B2B2BFF292929FF262626FF484A4BFFC4BDC2FFC0BAC0FFBDB7BDFFBDB7
+    BDFF484A4BFFD9D7DAFF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF7B7B7BFF939393FF494949FF4E4E4E1F4B4B4BFF494949FF464646FF4444
+    44FF414141FF343E63FF1538C2FF0332F0FF1131BBFF2B3359FF333333FF3030
+    30FF2E2E2EFF2B2B2BFF292929FF484A4BFFC6C1C6FFC2BDC2FFC0BAC0FFBDB7
+    BDFF484A4BFFDEDDE1FF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF7B7B7BFF939393FF484A4BFF5050506F4E4E4EFF4B4B4BFF494949FF4646
+    46FF414450FF0F3EF3FF073AFFFF0336FEFF0032FCFF062FDEFF353535FF3333
+    33FF303030FF2E2E2EFF2B2B2BFF484A4BFFCBC5CBFFC6C0C6FFC2BCC2FFC0BA
+    C0FF484A4BFFE3E2E6FF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF7B7B7BFF939393FF484A4BFF535353BF515151FF4E4E4EFF4B4B4BFF4949
+    49FF3A4675FF1042FFFF0C3EFFFF073AFFFF0336FEFF0032FCFF293568FF3535
+    35FF333333FF303030FF2E2E2EFF484A4BFFCECACEFFCAC5CAFFC6C1C6FFC4BC
+    C4FF484A4BFFE7E6EAFF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+    7BFF7B7B7BFF939393FF484A4BFF565656EF535353FF515151FF4E4E4EFF4B4B
+    4BFF3D4977FF1547FFFF1042FFFF0C3EFFFF073AFFFF0336FEFF333952FF3838
+    38FF353535FF333333FF303030FF484A4BFFD4D0D4FFCFCACFFFCBC5CAFFC6C0
+    C6FF484A4BFFEBEAEDFF484A4BFF868686FF868686FF868686FF929292FF7B7B
+    7BFF7B7B7BFF939393FF484A4BFF585858FF565656FF535353FF515151FF4E4E
+    4EFF4B4B4BFF224ADDFF1547FFFF1042FFFF0C3EFFFF183BC3FF3C3C3CFF3A3A
+    3AFF383838FF353535FF333333FF484A4BFFD9D5D8FFD4D0D4FFCFCACFFFCBC5
+    CAFF484A4BFFEDEDEFFF484A4BFF7B7B7BFF7B7B7BFF7B7B7BFF6F6F6FFF8686
+    86FF868686FFA7A7A7FF484A4BFF5B5B5BFF585858FF565656FF535353FF5151
+    51FF4E4E4EFF484B57FF344A99FF2D46A3FF2D4396FF414141FF3F3F3FFF3C3C
+    3CFF3A3A3AFF383838FF353535FF484A4BFFDEDADDFFD9D5D9FFE9E7EAFFCFCA
+    CFFF484A4BFFEEEDF0FF484A4BFF8C8C8CFF8C8C8CFF929292FF7B7B7BFF7B7B
+    7BFF7B7B7BFF8F8F8FFF484A4BFF5D5D5DFF5B5B5BFF585858FF565656FF5353
+    53FF515151FF4E4E4EFF4B4B4BFF494949FF464646FF444444FF414141FF3F3F
+    3FFF3C3C3CFF3A3A3AFF31374FFF484A4BFFE3E0E3FFEEEDEEFF9C9A9CFFD3CF
+    D3FF484A4BFFEDEDEFFF484A4BFF545657FF636464FF6E6E6EFF8C8C8CFF8C8C
+    8CFF8C8C8CFFA6A6A6FF484A4BFF606060FF5D5D5DFF5B5B5BFF585858FF5656
+    56FF535353FF515151FF4E4E4EFF4B4B4BFF494949FF464646FF444444FF4141
+    41FF3F3F3FFF3C3C3CFF283776FF484A4BFFE7E6E7FF909092FF9E9D9EFFD8D4
+    D8FF484A4BFFCECFD0FFCFCFCFFF868787FF636565FF4E5051FF4D4F50FF5C5D
+    5DFF6B6B6CFF929292FF484A4BFF626262EF606060FF5D5D5DFF5B5B5BFF5858
+    58FF565656FF535353FF515151FF4E4E4EFF4B4B4BFF494949FF464646FF4444
+    44FF414141FF3F3F3FFF3C3C3CFF484A4BFFEDEBEDFF929293FFE3E0E2FFFFFF
+    FFFFB0B0B2FF515253FF555657FF757677FFA9AAAAFFD3D3D4FFBDBDBFFF7F80
+    81FF5B5C5DFF4A4C4DFF484A4BFF646464BF626262FF606060FF5D5D5DFF5B5B
+    5BFF585858FF565656FF535353FF515151FF4E4E4EFF4B4B4BFF494949FF4346
+    52FF3E445BFF414141FF3F3F3FFF484A4BFFF0F0F2FFEDEBEDFFFFFFFFFFE9E9
+    EBFFE2E1E5FFDCD9DDFFBFBBBFFF979598FF6F6E72FF58595AFF4E5051FF6869
+    6AFF939596FFD0D1D1FF484A4BFF6666666F656565FF626262FF606060FF5D5D
+    5DFF5B5B5BFF585858FF565656FF535353FF515151FF4E4E4EFF434C6DFF204A
+    E8FF1547FFFF2443B8FF2A4094FF484A4BFFF6F6F6FFFFFFFFFFEEEEF0FFF2F2
+    F4FFEEEDEFFFE5E3E7FFD9D7DAFFCBC7CCFFBDB7BDFFADA7ADFF999197FF9991
+    97FF7A7375FF484A4BFF1A1A1A6F6868681F676767FF656565FF626262FF6060
+    60FF5B5E67FF3C68F4FF3565FFFF485A95FF535353FF515151FF3851A7FF1E4F
+    FFFF1A4BFFFF1547FFFF1042FFFF484A4BFFFFFFFFFFEDEDEFFFF8F8FAFFFBFB
+    FCFFF6F4F7FFEAEAEDFFDDDCE0FFCFCCD0FFC0BBC1FFB0AAB0FFA0989EFF484A
+    4BFF484A4BFF1F1F1FFF1C1C1C1F00000000696969BF676767FF656565FF6262
+    62FF496EE1FF3F6EFFFF3A69FFFF3A63EAFF565656FF535353FF3C54A8FF2354
+    FFFF1E4FFFFF1A4BFFFF1547FFFF3559E3FF484A4BFF484A4BFFE9E9EAFFFCFC
+    FCFFF6F6F7FFEBEAEEFFDEDCE0FFD0CCD0FFC1BBC1FF484A4BFF484A4BFF2626
+    26FF242424FF212121BF00000000000000006B6B6B3F696969FF676767FF6565
+    65FF4C72E1FF4372FFFF3F6EFFFF3A69FFFF3C62DFFF385FDFFF2C5CFFFF2758
+    FFFF2354FFFF1E4FFFFF1A4BFFFF1547FFFF1042FEFF0D3CF0FF484A4BFF484A
+    4BFF484A4BFF484A4BFF484A4BFF484A4BFF484A4BFF2C2C2CFF2B2B2BFF2929
+    29FF262626FF2424243F0000000000000000000000006B6B6BBF696969FF6767
+    67FF616778FF4974F5FF4372FFFF3F6EFFFF3A69FFFF3565FFFF3161FFFF2C5C
+    FFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1547FFFF1042FFFF123EE7FF3F3F
+    3FFF3C3C3CFF3A3A3AFF383838FF353535FF333333FF303030FF2E2E2EFF2B2B
+    2BFF292929BF000000000000000000000000000000006B6B6B1F6B6B6BEF6969
+    69FF676767FF606882FF4974F5FF4372FFFF3F6EFFFF3A69FFFF3565FFFF3161
+    FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1547FFFF2E4395FF4141
+    41FF3C3F4BFF393C48FF3A3A3AFF383838FF353535FF333333FF303030FF2E2E
+    2EEF2B2B2B1F00000000000000000000000000000000000000006B6B6B3F6B6B
+    6BFF696969FF676767FF616778FF4C72E1FF4372FFFF3F6EFFFF3A69FFFF3565
+    FFFF3161FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1847F3FF2E43
+    95FF0F3EF3FF0A3AF2FF323B61FF3A3A3AFF383838FF353535FF333333FF3030
+    303F000000000000000000000000000000000000000000000000000000006B6B
+    6B5F6B6B6BFF696969FF676767FF656565FF566AA7FF4570F5FF3F6EFFFF3A69
+    FFFF3565FFFF3161FFFF2C5CFFFF2758FFFF2354FFFF1E4FFFFF1A4BFFFF1547
+    FFFF1442F3FF2A4094FF3F3F3FFF3C3C3CFF3A3A3AFF383838FF3535355F0000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00006B6B6B3F6B6B6BEF696969FF676767FF656565FF626262FF55669CFF4A67
+    C2FF3E67EAFF3565FFFF3161FFFF2C5CFFFF2758FFFF2853E9FF2F4DBCFF374A
+    8DFF464646FF444444FF414141FF3F3F3FFF3C3C3CEF3A3A3A3F000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000006B6B6B1F6B6B6BBF696969FF676767FF656565FF626262FF6060
+    60FF5D5D5DFF5B5B5BFF585858FF565656FF535353FF515151FF4E4E4EFF4B4B
+    4BFF494949FF464646FF444444FF414141BF3F3F3F1F00000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    00000000000000000000000000006B6B6B3F696969BF676767FF656565FF6262
+    62FF606060FF5D5D5DFF5B5B5BFF585858FF565656FF535353FF515151FF4E4E
+    4EFF4B4B4BFF494949BF4646463F000000000000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    000000000000000000000000000000000000000000006868681F6666666F6464
+    64BF626262EF606060FF5D5D5DFF5B5B5BFF585858FF565656EF535353BF5050
+    506F4E4E4E1F0000000000000000000000000000000000000000000000000000
+    0000000000000000000000000000FFC0001FFF000000FC000000F8000000F000
+    0000E0000000C0000000C0000000800000008000000000000000000000000000
+    0000000000000000000000000000000000000000000000000000000000000000
+    0000000000008000000180000001C0000003C0000003E0000007F000000FF800
+    001FFC00003FFF0000FFFFC003FF280000001000000020000000010020000000
+    0000400400000000000000000000000000000000000000000000000000000000
+    0000000000000F0F0F381616169F171717DD121212FF0D0D0DFF080808DD1414
+    14A33232328D3332336D3434343C2E2E2E181C1C1C0400000000000000000505
+    050C262626A4262626FF212121FF191A2AFF0A0E5DFF080955FF0F0F34FF5450
+    51FF657364FF4E614EFE4E4E4EF23E3E3ED33434343D000000000606060C2F2F
+    2FCD303030FF2B2B2BFF262626FF1D1F34FF000BB1FF060B97FF7F7A91FFA49D
+    9FFF6A696AFF656565FF656565FF575757FE3434345600000000373737A63939
+    39FF353535FF303030FF2B2B2BFF24252BFF0E187BFF2B2E69FFCBC6C8FFB5B0
+    B2FF6E6D6EFF656565FF656565FF575757FE343434561F1F1F3A434343FF3E3E
+    3EFF393939FF353535FF303030FF2B2B2BFF262626FF3A3A3FFFE2DFE0FFC4C1
+    C3FF727171FF656565FF656565FF575757FF2F2F2F683C3C3C9F484848FF4343
+    44FF183BC1FF0732E1FF28325FFF303030FF2B2B2BFF343C76FFF3F1F1FFD2CF
+    D0FF757575FF646464FF656565FF575757FF202020A8525252E04D4D4DFF4548
+    56FF1041FFFF0739FEFF1935A5FF353535FF303030FF44454EFFFBFAFBFFDAD9
+    DAFF777676FF676767FF656565FF585858FF171717DF575757FF525252FF4D4D
+    4DFF2E48A9FF1E42CAFF363D5AFF393939FF353535FF44485BFFFDFCFCFFDAD9
+    DAFF797878FF636363FF646464FF595959FF191919FF5C5C5CFF575757FF5252
+    52FF4D4D4DFF484848FF434343FF3E3E3EFF353948FF2945C4FFECEAEBFFB6B4
+    B5FFBBB8B9FFACA9AAFF969495FF717071FF181818FF616161E05C5C5CFF5757
+    57FF525252FF4D4D4DFF484848FF424348FF3E3E3EFF3047A4FFC4C4C8FFF3F2
+    F2FFD7D3D4FFAFA7AAFF5A535BFF222121FF171717DF4F4F4F9F616161FF5C5D
+    60FF495D9FFF50535FFF474E66FF1B4AF7FF1F42C9FF133AD1FF3B3E4AFF5D5D
+    5DFF717387FF3A47A4FF16206BFF212121FF1616169F2E2E2E3C666666FF5768
+    9CFF3E6DFFFF4260C1FF3D57B2FF2253FFFF194AFFFF1742E5FF273C90FF3939
+    39FF343436FF282E4AFF2A2A2CFF262626FF0F0F0F38000000005E5E5EA66667
+    6AFF4E6FD0FF3E6DFFFF3564FFFF2B5BFFFF2253FFFF194AFFFF1A42D9FF3E3E
+    40FF39393CFF353535FF303030FF262626A600000000000000000B0B0B0E5E5E
+    5ECD66676AFF536BB4FF3F6CF9FF3564FFFF2B5BFFFF2253FFFF1B4AF7FF1B42
+    D5FF2B3C82FF393939FF2F2F2FCD0505050C0000000000000000000000000B0B
+    0B0E5E5E5EA8666666FF5F636EFF516195FF455DABFF3E56A9FF3E4F8BFF4548
+    56FF434343FF373737A60606060C000000000000000000000000000000000000
+    0000000000002E2E2E3C4F4F4FA1616161E25C5C5CFF575757FF525252E23C3C
+    3C9F1F1F1F3C00000000000000000000000000000000F0000000C00000008000
+    0000800000000000000000000000000000000000000000000000000000000000
+    0000000000008001000080010000C0030000F00F0000}
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object btn_RemObjects: TROPoweredByRemObjectsButton
+    Left = 9
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object HTTPServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'mgs_SOAP'
+        Message = mgs_SOAP
+        Enabled = True
+        PathInfo = '/SOAP'
+      end
+      item
+        Name = 'msg_BIN'
+        Message = msg_BIN
+        Enabled = True
+        PathInfo = '/BIN'
+      end>
+    Port = 81
+    Left = 7
+    Top = 27
+  end
+  object msg_BIN: TROBinMessage
+    Left = 39
+    Top = 27
+  end
+  object mgs_SOAP: TROSOAPMessage
+    SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
+    Left = 71
+    Top = 27
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerMain.pas
new file mode 100644
index 0000000..61b9198
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/DataSnap/DataSnapServerMain.pas	
@@ -0,0 +1,35 @@
+unit DataSnapServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uROPoweredByRemObjectsButton, uROSOAPMessage, uROClient,
+  uROBinMessage, uROServer, uROIndyTCPServer, uROIndyHTTPServer;
+
+type
+  TDataSnapServerMainForm = class(TForm)
+    HTTPServer: TROIndyHTTPServer;
+    msg_BIN: TROBINMessage;
+    mgs_SOAP: TROSOAPMessage;
+    btn_RemObjects: TRoPoweredByRemObjectsButton;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DataSnapServerMainForm: TDataSnapServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TDataSnapServerMainForm.FormCreate(Sender: TObject);
+begin
+  HTTPServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.Sample.html
new file mode 100644
index 0000000..5b0c280
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.Sample.html	
@@ -0,0 +1,40 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Dispatch notifier</span> 
+</p>
+
+<h2>Purpose</h2>
+<p>This example shows how to customize the invocation.</p>
+
+<p>
+  <b>IRODispatchNotifier</b> is a special interface that <b>TROInvoker</b> classes recognize.
+  If your server side object implements it, the <b>IRODispatchNotifier.GetDispatchInfo</b> method 
+  will be called before the target method is invoked.
+</p>
+
+<p>See <b>TROInvoker.CustomHandleMessage</b> in uROServer.pas.</p>
+
+<p>The <b>TMyInvoker</b> class shows how to enhance the interception mechanism by providing support 
+for a custom interface called <b>ITestInterface</b>.</p>
+
+<p>Notice how the <b>TROClassFactory.Create</b> has been changed to use <b>TMyInvoker</b>.</p>
+
+</body>
+</html>
+
+
+  
+  
+
+
+
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.bdsgroup
new file mode 100644
index 0000000..ee1dd5c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{3CB424EF-B184-4F6C-B022-2FE158625483}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="DispatchNotifierClient.exe">DispatchNotifierClient.bdsproj</Projects>
+      <Projects Name="DispatchNotifierServer.exe">DispatchNotifierServer.bdsproj</Projects>
+      <Projects Name="Targets">DispatchNotifierClient.exe DispatchNotifierServer.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.bpg
new file mode 100644
index 0000000..ad3af78
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DispatchNotifierClient.exe DispatchNotifierServer.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DispatchNotifierClient.exe: DispatchNotifierClient.dpr
+  $(DCC)
+
+DispatchNotifierServer.exe: DispatchNotifierServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.groupproj
new file mode 100644
index 0000000..3332c08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifier.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4a1795b5-591a-42aa-b5ea-2b501669c026}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="DispatchNotifierClient">
+    <MSBuild Projects="DispatchNotifierClient.dproj" Targets="" />
+  </Target>
+  <Target Name="DispatchNotifierClient:Clean">
+    <MSBuild Projects="DispatchNotifierClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DispatchNotifierClient:Make">
+    <MSBuild Projects="DispatchNotifierClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DispatchNotifierServer">
+    <MSBuild Projects="DispatchNotifierServer.dproj" Targets="" />
+  </Target>
+  <Target Name="DispatchNotifierServer:Clean">
+    <MSBuild Projects="DispatchNotifierServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DispatchNotifierServer:Make">
+    <MSBuild Projects="DispatchNotifierServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="DispatchNotifierClient;DispatchNotifierServer" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="DispatchNotifierClient:Clean;DispatchNotifierServer:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="DispatchNotifierClient:Make;DispatchNotifierServer:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.bdsproj
new file mode 100644
index 0000000..a9c9a49
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{2E8CE9B2-046B-4683-A423-7A5822C37A27}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DispatchNotifierClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.dpr
new file mode 100644
index 0000000..1a4aa62
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.dpr	
@@ -0,0 +1,13 @@
+program DispatchNotifierClient;
+
+uses
+  Forms,
+  DispatchNotifierClientMain in 'DispatchNotifierClientMain.pas' {DispatchNotifierClientMainForm};
+
+{$R *.RES}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TDispatchNotifierClientMainForm, DispatchNotifierClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.dproj
new file mode 100644
index 0000000..07f3901
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{af143428-fbfc-499b-a031-5813f2fa859b}</ProjectGuid>
+    <MainSource>DispatchNotifierClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DispatchNotifierClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DispatchNotifierClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DispatchNotifierClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DispatchNotifierClientMain.pas">
+      <Form>DispatchNotifierClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.res
new file mode 100644
index 0000000..852a6c3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClientMain.dfm
new file mode 100644
index 0000000..6c80ac7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClientMain.dfm	
@@ -0,0 +1,78 @@
+object DispatchNotifierClientMainForm: TDispatchNotifierClientMainForm
+  Left = 10
+  Top = 8
+  AutoScroll = False
+  Caption = 'Dispatch Notifier Client'
+  ClientHeight = 151
+  ClientWidth = 344
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 64
+    Width = 46
+    Height = 13
+    Caption = 'Message:'
+  end
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 59
+    Top = 96
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    ApplicationType = atClient
+  end
+  object eSimpleMessage: TEdit
+    Left = 64
+    Top = 60
+    Width = 193
+    Height = 25
+    TabOrder = 1
+    Text = 'A simple text message...'
+  end
+  object SendButton: TButton
+    Left = 264
+    Top = 58
+    Width = 75
+    Height = 25
+    Caption = 'Send'
+    TabOrder = 2
+    OnClick = SendButtonClick
+  end
+  object rgChannel: TRadioGroup
+    Left = 104
+    Top = 8
+    Width = 137
+    Height = 41
+    Caption = 'Channel'
+    Columns = 2
+    ItemIndex = 0
+    Items.Strings = (
+      'TCP'
+      'HTTP')
+    TabOrder = 0
+  end
+  object IndyTCPChannel: TROIndyTCPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Port = 8099
+    Host = '127.0.0.1'
+    Left = 24
+    Top = 16
+  end
+  object BINMessage: TROBinMessage
+    Left = 72
+    Top = 88
+  end
+  object IndyHTTPChannel: TROIndyHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    TargetURL = 'http://localhost:8090/BIN'
+    Left = 24
+    Top = 88
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClientMain.pas
new file mode 100644
index 0000000..68d320e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierClientMain.pas	
@@ -0,0 +1,50 @@
+unit DispatchNotifierClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, uROClient, uROBINMessage, uROIndyTCPChannel,
+  ExtCtrls, uROIndyHTTPChannel,
+  uROPoweredByRemObjectsButton;
+
+type
+  TDispatchNotifierClientMainForm = class(TForm)
+    Label1: TLabel;
+    eSimpleMessage: TEdit;
+    SendButton: TButton;
+    IndyTCPChannel: TROIndyTCPChannel;
+    BINMessage: TROBINMessage;
+    IndyHTTPChannel: TROIndyHTTPChannel;
+    rgChannel: TRadioGroup;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    procedure SendButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DispatchNotifierClientMainForm             : TDispatchNotifierClientMainForm;
+
+implementation
+
+uses DispatchNotifierLibrary_Intf, uROClientIntf;
+
+{$R *.DFM}
+
+procedure TDispatchNotifierClientMainForm.SendButtonClick(Sender: TObject);
+var
+  channel           : TROTransportChannel;
+begin
+  if (rgChannel.ItemIndex = 0) then
+    channel := IndyTCPChannel
+  else
+    channel := IndyHTTPChannel;
+
+  CoDispatchNotifierService.Create(BINMessage, channel).SendMessage(eSimpleMessage.Text);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary.rodl
new file mode 100644
index 0000000..6194855
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary.rodl	
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="DispatchNotifierLibrary" UID="{6DA40FCA-5FC2-40CF-8FC6-7601B1CBFDDC}" Version="3.0">
+<Services>
+<Service Name="DispatchNotifierService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{6DA40FCA-5FC2-40CF-8FC6-7601B1CBFDDC}">
+<Documentation><![CDATA[
+Service_DispService__This_service_has_been_automatically_generated_using_the_RODL_template_you_can_find_in_the_Templates_directory_]]></Documentation>
+<Operations>
+<Operation Name="SendMessage" UID="{6DA40FCA-5FC2-40CF-8FC6-7601B1CBFDDC}">
+<Parameters>
+<Parameter Name="aMessage" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary_Intf.pas
new file mode 100644
index 0000000..2117cbc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary_Intf.pas	
@@ -0,0 +1,95 @@
+unit DispatchNotifierLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{6DA40FCA-5FC2-40CF-8FC6-7601B1CBFDDC}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IDispatchNotifierService_IID : TGUID = '{6DA40FCA-5FC2-40CF-8FC6-7601B1CBFDDC}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IDispatchNotifierService = interface;
+
+
+  { IDispatchNotifierService }
+  IDispatchNotifierService = interface
+    ['{6DA40FCA-5FC2-40CF-8FC6-7601B1CBFDDC}']
+    procedure SendMessage(const aMessage: Widestring);
+  end;
+
+  { CoDispatchNotifierService }
+  CoDispatchNotifierService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDispatchNotifierService;
+  end;
+
+  { TDispatchNotifierService_Proxy }
+  TDispatchNotifierService_Proxy = class(TROProxy, IDispatchNotifierService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure SendMessage(const aMessage: Widestring);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoDispatchNotifierService }
+
+class function CoDispatchNotifierService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDispatchNotifierService;
+begin
+  result := TDispatchNotifierService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDispatchNotifierService_Proxy }
+
+function TDispatchNotifierService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DispatchNotifierService';
+end;
+
+procedure TDispatchNotifierService_Proxy.SendMessage(const aMessage: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DispatchNotifierLibrary', __InterfaceName, 'SendMessage');
+    __Message.Write('aMessage', TypeInfo(Widestring), aMessage, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IDispatchNotifierService_IID, TDispatchNotifierService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IDispatchNotifierService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary_Invk.pas
new file mode 100644
index 0000000..cec647d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierLibrary_Invk.pas	
@@ -0,0 +1,64 @@
+unit DispatchNotifierLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} DispatchNotifierLibrary_Intf;
+
+type
+  TDispatchNotifierService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_SendMessage(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TDispatchNotifierService_Invoker }
+
+constructor TDispatchNotifierService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TDispatchNotifierService_Invoker.Invoke_SendMessage(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SendMessage(const aMessage: Widestring); }
+var
+  aMessage: Widestring;
+begin
+  try
+    __Message.Read('aMessage', TypeInfo(Widestring), aMessage, []);
+
+    (__Instance as IDispatchNotifierService).SendMessage(aMessage);
+
+    __Message.InitializeResponseMessage(__Transport, 'DispatchNotifierLibrary', 'DispatchNotifierService', 'SendMessageResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.bdsproj
new file mode 100644
index 0000000..8fa0de6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1339195C-0153-40FF-8B26-DD3C5897F27F}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DispatchNotifierServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.dpr
new file mode 100644
index 0000000..156fe35
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.dpr	
@@ -0,0 +1,19 @@
+program DispatchNotifierServer;
+
+{#ROGEN:DispatchNotifierLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  Forms,
+  DispatchNotifierServerMain in 'DispatchNotifierServerMain.pas' {DispatchNotifierServerMainForm},
+  DispatchNotifierLibrary_Intf in 'DispatchNotifierLibrary_Intf.pas',
+  DispatchNotifierLibrary_Invk in 'DispatchNotifierLibrary_Invk.pas',
+  DispatchNotifierService_Impl in 'DispatchNotifierService_Impl.pas';
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TDispatchNotifierServerMainForm, DispatchNotifierServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.dproj
new file mode 100644
index 0000000..7156a69
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{5a41f262-8005-4c7d-bafd-92414f12f09e}</ProjectGuid>
+    <MainSource>DispatchNotifierServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DispatchNotifierServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DispatchNotifierServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DispatchNotifierServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DispatchNotifierLibrary_Intf.pas" />
+    <DCCReference Include="DispatchNotifierLibrary_Invk.pas" />
+    <DCCReference Include="DispatchNotifierServerMain.pas">
+      <Form>DispatchNotifierServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="DispatchNotifierService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.res
new file mode 100644
index 0000000..b72ce48
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServerMain.dfm
new file mode 100644
index 0000000..d2e27e4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServerMain.dfm	
@@ -0,0 +1,60 @@
+object DispatchNotifierServerMainForm: TDispatchNotifierServerMainForm
+  Left = 28
+  Top = 84
+  AutoScroll = False
+  Caption = 'Dispatch Notifier Server'
+  ClientHeight = 298
+  ClientWidth = 474
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 135
+    Top = 5
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Memo: TMemo
+    Left = 8
+    Top = 58
+    Width = 458
+    Height = 233
+    ReadOnly = True
+    ScrollBars = ssBoth
+    TabOrder = 0
+  end
+  object ROMessage: TROBinMessage
+    Left = 128
+    Top = 72
+  end
+  object ROIndyTCPServer: TROIndyTCPServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Port = 8099
+    Left = 192
+    Top = 72
+  end
+  object ROIndyHTTPServer: TROIndyHTTPServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = '/BIN'
+      end>
+    Port = 8090
+    Left = 160
+    Top = 72
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServerMain.pas
new file mode 100644
index 0000000..1fa004c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierServerMain.pas	
@@ -0,0 +1,53 @@
+unit DispatchNotifierServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROIndyHTTPServer,
+  uROIndyTCPServer, SyncObjs, uROPoweredByRemObjectsButton;
+
+type
+  TDispatchNotifierServerMainForm = class(TForm)
+    ROMessage: TROBINMessage;
+    ROIndyTCPServer: TROIndyTCPServer;
+    Memo: TMemo;
+    ROIndyHTTPServer: TROIndyHTTPServer;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    CriticalSection: tCriticalSection;
+  public
+    procedure Log(const someText: Widestring);
+  end;
+
+var
+  DispatchNotifierServerMainForm: TDispatchNotifierServerMainForm;
+
+implementation
+
+{$R *.DFM}
+
+procedure TDispatchNotifierServerMainForm.Log(const someText: Widestring);
+begin
+  CriticalSection.Enter;
+  try
+    Memo.Lines.Add(someText);
+  finally
+    CriticalSection.Leave;
+  end;
+end;
+
+procedure TDispatchNotifierServerMainForm.FormCreate(Sender: TObject);
+begin
+  CriticalSection := TCriticalSection.Create;
+end;
+
+procedure TDispatchNotifierServerMainForm.FormDestroy(Sender: TObject);
+begin
+  CriticalSection.Free;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierService_Impl.pas
new file mode 100644
index 0000000..59de994
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/DispatchNotifierService_Impl.pas	
@@ -0,0 +1,154 @@
+unit DispatchNotifierService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} DispatchNotifierLibrary_Intf;
+
+{
+  This example shows how to customize message dispatching.
+  IRODispatchNotifier is a special interface that TROInvoker classes know and look for.
+  If your server side object implements it, the IRODispatchNotifier.GetDispatchInfo
+  method will be called before the target method is invoked.
+
+  See TROInvoker.CustomHandleMessage in uROServer.pas
+
+  The TMyInvoker class shows how to enhance the interception mechanism by providing
+  support to a custom interface called ITestInterface.
+
+  Note how TROClassFactory.Create has been changed to use TMyInvoker.
+}
+
+type
+  { ITestInvokeInterface }
+  ITestInvokeInterface = interface
+    ['{CE51FFEF-D552-4712-B86D-166CEC29B737}']
+    procedure DoThis;
+    procedure DoThat;
+  end;
+
+  { TDispatchNotifierService }
+  TDispatchNotifierService = class(TRORemotable, IDispatchNotifierService, IRODispatchNotifier, ITestInvokeInterface)
+  private
+  protected
+    { IRODispatchNotifier }
+    procedure GetDispatchInfo(const aTransport: IROTransport; const aMessage: IROMessage);
+
+    { ITestInvokeInterface }
+    procedure DoThis;
+    procedure DoThat;
+
+    { IDispatchNotifierService methods }
+    procedure SendMessage(const aMessage: Widestring);
+  end;
+
+implementation
+uses
+  {Generated:} DispatchNotifierLibrary_Invk, DispatchNotifierServerMain;
+
+procedure Create_DispatchNotifierService(out anInstance: IUnknown);
+begin
+  anInstance := TDispatchNotifierService.Create;
+end;
+
+type
+  TMyInvoker = class(TDispatchNotifierService_Invoker)
+  protected
+    procedure BeforeInvoke(aMethodPtr: TMessageInvokeMethod;
+      const anInstance: IInterface;
+      const aFactory: IROClassFactory;
+      const aMessage: IROMessage;
+      const aTransport: IROTransport); override;
+
+    procedure AfterInvoke(aMethodPtr: TMessageInvokeMethod;
+      const anInstance: IInterface;
+      const aFactory: IROClassFactory;
+      const aMessage: IROMessage;
+      const aTransport: IROTransport;
+      anException: Exception); override;
+  end;
+
+  { TMyInvoker }
+
+procedure TMyInvoker.AfterInvoke(aMethodPtr: TMessageInvokeMethod;
+  const anInstance: IInterface; const aFactory: IROClassFactory;
+  const aMessage: IROMessage; const aTransport: IROTransport;
+  anException: Exception);
+var
+  itestintf: ITestInvokeInterface;
+begin
+  inherited;
+
+  if Supports(anInstance, ITestInvokeInterface, itestintf) then itestintf.DoThis;
+end;
+
+procedure TMyInvoker.BeforeInvoke(aMethodPtr: TMessageInvokeMethod;
+  const anInstance: IInterface; const aFactory: IROClassFactory;
+  const aMessage: IROMessage; const aTransport: IROTransport);
+var
+  itestintf: ITestInvokeInterface;
+begin
+  inherited;
+
+  if Supports(anInstance, ITestInvokeInterface, itestintf) then itestintf.DoThat;
+end;
+
+{ DispatchNotifierService }
+
+procedure TDispatchNotifierService.DoThat;
+begin
+  DispatchNotifierServerMainForm.Log('Do that...');
+end;
+
+procedure TDispatchNotifierService.DoThis;
+begin
+  DispatchNotifierServerMainForm.Log('Do this...');
+end;
+
+procedure TDispatchNotifierService.GetDispatchInfo(
+  const aTransport: IROTransport; const aMessage: IROMessage);
+var
+  tcpinfo: IROTCPTransport;
+  textmessage: Widestring;
+  streamaccess: IROStreamAccess;
+begin
+  if Supports(aTransport, IROTCPtransport, tcpinfo) then DispatchNotifierServerMainForm.Log('Client ' + tcpinfo.GetClientAddress + ' connected!');
+
+  with aTransport do
+    DispatchNotifierServerMainForm.Log('Got a reference to a ' + GetTransportObject.ClassName);
+
+  with aMessage do begin
+    DispatchNotifierServerMainForm.Log('About to invoke ' + InterfaceName + '.' + MessageName);
+
+    if (MessageName = 'SendMessage') then begin
+      aMessage.Read('aMessage', TypeInfo(WideString), textmessage, []);
+      DispatchNotifierServerMainForm.Log('The text message was "' + textmessage + '"');
+
+      { New RemObjects 4.0: now you can reset the position of the message stream }
+      if Supports(aMessage, IROStreamAccess, streamaccess) then streamaccess.Stream.Position := 0;
+    end;
+  end;
+
+  DispatchNotifierServerMainForm.Log('');
+end;
+
+procedure TDispatchNotifierService.SendMessage(const aMessage: Widestring);
+begin
+  DispatchNotifierServerMainForm.Log('Received message "' + aMessage + '"');
+end;
+
+initialization
+  TROClassFactory.Create('DispatchNotifierService', Create_DispatchNotifierService, TMyInvoker);
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/RODLFile.RES b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/RODLFile.RES
new file mode 100644
index 0000000..e39e24c
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dispatch Notifier/RODLFile.RES differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.Sample.html
new file mode 100644
index 0000000..f7f7bdb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.Sample.html	
@@ -0,0 +1,28 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1"><span>Dynamic Request Sample</span></p>
+
+<h2>Purpose</h2>
+<p>This example shows how to use the <b>TRODynamicRequest</b> component to execute server methods.</p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>See how the three methods were defined by editing the service library. 
+	    Do this by making the <strong>server</strong> the selected project 
+	    and by using the menu option: <strong>RemObjects | Edit Service Library</strong>.
+	    Note: if you don't see this menu option but see 'Service Builder' instead, 
+	    you still have the client set as the current project.  
+	    Examine the methods added to <strong>DynamicRequestService</strong>.</li>
+	<li>Check how the server methods were implemented in <strong>DynamicRequestService_Impl.pas</strong>.</li>
+	<li>See the simple code needed to invoke the methods in <strong>DynamicRequestClientMain.pas</strong>.</li>
+</ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.bdsgroup
new file mode 100644
index 0000000..86bcc2d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{EE1378C0-27D8-4649-AA55-9F6763115D4C}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="DynamicRequestClient.exe">DynamicRequestClient.bdsproj</Projects>
+      <Projects Name="DynamicRequestServer.exe">DynamicRequestServer.bdsproj</Projects>
+      <Projects Name="Targets">DynamicRequestClient.exe DynamicRequestServer.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.bpg
new file mode 100644
index 0000000..6bb4490
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = DynamicRequestClient.exe DynamicRequestServer.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+DynamicRequestClient.exe: DynamicRequestClient.dpr
+  $(DCC)
+
+DynamicRequestServer.exe: DynamicRequestServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.groupproj
new file mode 100644
index 0000000..a73080f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequest.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c6294125-5ef4-4e86-a9e4-372c2755e652}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="DynamicRequestClient">
+    <MSBuild Projects="DynamicRequestClient.dproj" Targets="" />
+  </Target>
+  <Target Name="DynamicRequestClient:Clean">
+    <MSBuild Projects="DynamicRequestClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DynamicRequestClient:Make">
+    <MSBuild Projects="DynamicRequestClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="DynamicRequestServer">
+    <MSBuild Projects="DynamicRequestServer.dproj" Targets="" />
+  </Target>
+  <Target Name="DynamicRequestServer:Clean">
+    <MSBuild Projects="DynamicRequestServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="DynamicRequestServer:Make">
+    <MSBuild Projects="DynamicRequestServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="DynamicRequestClient;DynamicRequestServer" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="DynamicRequestClient:Clean;DynamicRequestServer:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="DynamicRequestClient:Make;DynamicRequestServer:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.bdsproj
new file mode 100644
index 0000000..a9cb02c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{7EF79E4A-A53D-4EDD-B8FC-318D702FA71F}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DynamicRequestClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.dpr
new file mode 100644
index 0000000..5bad030
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.dpr	
@@ -0,0 +1,14 @@
+program DynamicRequestClient;
+
+uses
+  Forms,
+  DynamicRequestClientMain in 'DynamicRequestClientMain.pas' {DynamicRequestClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Dynamic Request Client';
+  Application.CreateForm(TDynamicRequestClientMainForm, DynamicRequestClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.dproj
new file mode 100644
index 0000000..649584f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4be59863-64da-4c35-b5a2-7d126f6ad7d1}</ProjectGuid>
+    <MainSource>DynamicRequestClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DynamicRequestClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DynamicRequestClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DynamicRequestClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DynamicRequestClientMain.pas">
+      <Form>DynamicRequestClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClientMain.dfm
new file mode 100644
index 0000000..842d6b4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClientMain.dfm	
@@ -0,0 +1,124 @@
+object DynamicRequestClientMainForm: TDynamicRequestClientMainForm
+  Left = 311
+  Top = 174
+  AutoScroll = False
+  Caption = 'Dynamic Request Client'
+  ClientHeight = 344
+  ClientWidth = 335
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 50
+    Top = 279
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    Anchors = [akLeft, akBottom]
+    ApplicationType = atClient
+  end
+  object bSum: TButton
+    Left = 8
+    Top = 5
+    Width = 75
+    Height = 25
+    Caption = 'Sum'
+    TabOrder = 0
+    OnClick = bSumClick
+  end
+  object bGetServerTime: TButton
+    Left = 96
+    Top = 5
+    Width = 105
+    Height = 25
+    Caption = 'GetServerTime'
+    TabOrder = 1
+    OnClick = bGetServerTimeClick
+  end
+  object bEchoPerson: TButton
+    Left = 208
+    Top = 5
+    Width = 121
+    Height = 25
+    Caption = 'EchoPerson'
+    TabOrder = 2
+    OnClick = bEchoPersonClick
+  end
+  object Memo: TMemo
+    Left = 8
+    Top = 39
+    Width = 321
+    Height = 229
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object DynamicRequestSum: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'Sum'
+    Params = <
+      item
+        Name = 'A'
+        DataType = rtInteger
+        Flag = fIn
+      end
+      item
+        Name = 'B'
+        DataType = rtInteger
+        Flag = fIn
+      end
+      item
+        Name = 'Result'
+        DataType = rtInteger
+        Flag = fResult
+      end>
+    Left = 49
+    Top = 3
+  end
+  object EmptyDynamicRequest: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'GetServerTime'
+    Params = <>
+    Left = 168
+    Top = 3
+  end
+  object DynamicRequestEchoPerson: TRODynamicRequest
+    RemoteService = RemoteService
+    MethodName = 'EchoPerson'
+    Params = <
+      item
+        Name = 'aPerson'
+        DataType = rtUserDefined
+        Flag = fIn
+        TypeName = 'TPerson'
+      end
+      item
+        Name = 'anotherPerson'
+        DataType = rtUserDefined
+        Flag = fOut
+        TypeName = 'TPerson'
+      end>
+    Left = 290
+    Top = 3
+  end
+  object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 252
+    Top = 129
+  end
+  object ROBinMessage1: TROBinMessage
+    Left = 220
+    Top = 129
+  end
+  object RemoteService: TRORemoteService
+    Message = ROBinMessage1
+    Channel = ROWinInetHTTPChannel1
+    ServiceName = 'DynamicRequestService'
+    Left = 284
+    Top = 129
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClientMain.pas
new file mode 100644
index 0000000..09b2cf0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestClientMain.pas	
@@ -0,0 +1,107 @@
+unit DynamicRequestClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uRODynamicRequest,
+  uROWinInetHttpChannel, uROClient, uROBINMessage, StdCtrls,
+  uROPoweredByRemObjectsButton, uRORemoteService;
+
+type
+  TDynamicRequestClientMainForm = class(TForm)
+    DynamicRequestSum: TRODynamicRequest;
+    bSum: TButton;
+    bGetServerTime: TButton;
+    EmptyDynamicRequest: TRODynamicRequest;
+    bEchoPerson: TButton;
+    DynamicRequestEchoPerson: TRODynamicRequest;
+    ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
+    ROBinMessage1: TROBinMessage;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    RemoteService: TRORemoteService;
+    Memo: TMemo;
+    procedure bSumClick(Sender: TObject);
+    procedure bGetServerTimeClick(Sender: TObject);
+    procedure bEchoPersonClick(Sender: TObject);
+  private
+    { Private declarations }
+    procedure Log(str: string);
+  public
+    { Public declarations }
+  end;
+
+var
+  DynamicRequestClientMainForm: TDynamicRequestClientMainForm;
+
+implementation
+
+uses DynamicRequestLibrary_Intf;
+
+{$R *.dfm}
+
+procedure TDynamicRequestClientMainForm.bSumClick(Sender: TObject);
+begin
+  with DynamicRequestSum do begin
+    ParamByName('A').AsInteger := 1;
+    ParamByName('B').AsInteger := 2;
+    Log('Sum');
+    Log('--------');
+    Log('sending:' + #9 + ParamByName('A').AsString + ' ' + ParamByName('B').AsString);
+    Execute;
+    Log('received:' + #9 + ParamByName('result').AsString);
+    Log('');
+  end;
+end;
+
+procedure TDynamicRequestClientMainForm.bGetServerTimeClick(Sender: TObject);
+begin
+  with EmptyDynamicRequest do begin
+    MethodName := 'GetServerTime';
+    Params.Refresh;
+
+    Execute;
+    Log('GetServerTime');
+    Log('------------------------');
+    Log('received:' + #9 + ParamByName('result').AsString);
+    Log('');
+  end;
+end;
+
+procedure TDynamicRequestClientMainForm.bEchoPersonClick(Sender: TObject);
+var
+  aperson, anotherperson: TPerson;
+begin
+  aperson := TPerson.Create;
+  with DynamicRequestEchoPerson do try
+    aperson.FirstName := 'John';
+    aperson.LastName := 'Smith';
+
+    Log('EchoPerson');
+    Log('-------------------');
+
+    with aperson do
+      Log('sending:' + #9 + Firstname + ' ' + LastName);
+
+    ParamByName('aPerson').AsComplexType := aperson;
+    Execute;
+    anotherperson := ParamByName('anotherPerson').AsComplexType as TPerson;
+    if Assigned(anotherperson) then try
+      Log('received:' + #9 + anotherperson.Firstname + ' ' + anotherperson.LastName);
+    finally
+      FreeAndNIL(anotherperson);
+    end;
+    ParamByName('anotherPerson').AsComplexType := nil;    
+    Log('');
+  finally
+    FreeAndNIL(aperson);
+  end;
+end;
+
+procedure TDynamicRequestClientMainForm.Log(str: string);
+begin
+  Memo.Lines.Add(str);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary.rodl
new file mode 100644
index 0000000..a4294c8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary.rodl	
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="DynamicRequestLibrary" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}" Version="3.0">
+<CustomAttributes>
+<EA_Model Value="C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap" />
+</CustomAttributes>
+<Services>
+<Service Name="DynamicRequestService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Documentation>
+<![CDATA[Service_NewService__This_service_has_been_automatically_generated_using_the_RODL_template_you_can_find_in_the_Templates_directory_]]>
+</Documentation>
+<Operations>
+<Operation Name="Sum" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="A" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="B" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetServerTime" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="EchoPerson" UID="{B8717BF0-B874-4C94-8756-A734840FE445}">
+<Parameters>
+<Parameter Name="aPerson" DataType="TPerson" Flag="In" >
+</Parameter>
+<Parameter Name="anotherPerson" DataType="TPerson" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="TPerson" UID="{94B3E0BD-4AB9-4C93-8507-C1762CDA32C7}" AutoCreateParams="1">
+<Elements>
+<Element Name="FirstName" DataType="String">
+</Element>
+<Element Name="LastName" DataType="String">
+</Element>
+<Element Name="Age" DataType="Integer">
+</Element>
+<Element Name="Sex" DataType="TSex">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+<Enum Name="TSex" UID="{9B0938FA-35F8-49DE-91E1-DB9E0DD5E1A3}">
+<EnumValues>
+<EnumValue Name="sxMale">
+</EnumValue>
+<EnumValue Name="sxFemale">
+</EnumValue>
+</EnumValues>
+</Enum>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary_Intf.pas
new file mode 100644
index 0000000..d28dc35
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary_Intf.pas	
@@ -0,0 +1,203 @@
+unit DynamicRequestLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}';
+
+  { Service Interface ID's }
+  IDynamicRequestService_IID : TGUID = '{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IDynamicRequestService = interface;
+
+  TPerson = class;
+
+
+  { Enumerateds }
+  TSex = (sxMale,sxFemale);
+
+  { TPerson }
+  TPerson = class(TROComplexType)
+  private
+    fFirstName: String;
+    fLastName: String;
+    fAge: Integer;
+    fSex: TSex;
+  public
+    procedure Assign(iSource: TPersistent); override;
+  published
+    property FirstName:String read fFirstName write fFirstName;
+    property LastName:String read fLastName write fLastName;
+    property Age:Integer read fAge write fAge;
+    property Sex:TSex read fSex write fSex;
+  end;
+
+  { TPersonCollection }
+  TPersonCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(Index: integer): TPerson;
+    procedure SetItems(Index: integer; const Value: TPerson);
+  public
+    constructor Create; overload;
+    function Add: TPerson; reintroduce;
+    property Items[Index: integer]:TPerson read GetItems write SetItems; default;
+  end;
+
+  { IDynamicRequestService }
+  IDynamicRequestService = interface
+    ['{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}']
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    procedure EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+  end;
+
+  { CoDynamicRequestService }
+  CoDynamicRequestService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDynamicRequestService;
+  end;
+
+  { TDynamicRequestService_Proxy }
+  TDynamicRequestService_Proxy = class(TROProxy, IDynamicRequestService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    procedure EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ TPerson }
+
+procedure TPerson.Assign(iSource: TPersistent); 
+var lSource:TPerson;
+begin
+  inherited Assign(iSource);
+  if (iSource is TPerson) then begin
+    lSource := TPerson(iSource);
+    FirstName := lSource.FirstName;
+    LastName := lSource.LastName;
+    Age := lSource.Age;
+    Sex := lSource.Sex;
+  end;
+end;
+
+{ TPersonCollection }
+constructor TPersonCollection.Create;
+begin
+  inherited Create(TPerson);
+end;
+
+constructor TPersonCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TPersonCollection.Add: TPerson;
+begin
+  result := TPerson(inherited Add);
+end;
+
+function TPersonCollection.GetItems(Index: integer): TPerson;
+begin
+  result := TPerson(inherited Items[Index]);
+end;
+
+procedure TPersonCollection.SetItems(Index: integer; const Value: TPerson);
+begin
+  TPerson(inherited Items[Index]).Assign(Value);
+end;
+
+{ CoDynamicRequestService }
+
+class function CoDynamicRequestService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDynamicRequestService;
+begin
+  result := TDynamicRequestService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TDynamicRequestService_Proxy }
+
+function TDynamicRequestService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'DynamicRequestService';
+end;
+
+function TDynamicRequestService_Proxy.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DynamicRequestLibrary', __InterfaceName, 'Sum');
+    __Message.Write('A', TypeInfo(Integer), A, []);
+    __Message.Write('B', TypeInfo(Integer), B, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TDynamicRequestService_Proxy.GetServerTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'DynamicRequestLibrary', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TDynamicRequestService_Proxy.EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+begin
+  try
+    anotherPerson := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'DynamicRequestLibrary', __InterfaceName, 'EchoPerson');
+    __Message.Write('aPerson', TypeInfo(DynamicRequestLibrary_Intf.TPerson), aPerson, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('anotherPerson', TypeInfo(DynamicRequestLibrary_Intf.TPerson), anotherPerson, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TPerson);
+  RegisterProxyClass(IDynamicRequestService_IID, TDynamicRequestService_Proxy);
+
+
+finalization
+  UnregisterROClass(TPerson);
+  UnregisterProxyClass(IDynamicRequestService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary_Invk.pas
new file mode 100644
index 0000000..57a60be
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestLibrary_Invk.pas	
@@ -0,0 +1,101 @@
+unit DynamicRequestLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} DynamicRequestLibrary_Intf;
+
+type
+  TDynamicRequestService_Invoker = class(TROInvoker)
+  private
+  protected
+  published
+    procedure Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_EchoPerson(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TDynamicRequestService_Invoker }
+
+procedure TDynamicRequestService_Invoker.Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Sum(const A: Integer; const B: Integer): Integer; }
+var
+  A: Integer;
+  B: Integer;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('A', TypeInfo(Integer), A, []);
+    __Message.Read('B', TypeInfo(Integer), B, []);
+
+    lResult := (__Instance as IDynamicRequestService).Sum(A, B);
+
+    __Message.InitializeResponseMessage(__Transport, 'DynamicRequestLibrary', 'DynamicRequestService', 'SumResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TDynamicRequestService_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as IDynamicRequestService).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'DynamicRequestLibrary', 'DynamicRequestService', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TDynamicRequestService_Invoker.Invoke_EchoPerson(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson); }
+var
+  aPerson: DynamicRequestLibrary_Intf.TPerson;
+  anotherPerson: DynamicRequestLibrary_Intf.TPerson;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aPerson := nil;
+  anotherPerson := nil;
+  try
+    __Message.Read('aPerson', TypeInfo(DynamicRequestLibrary_Intf.TPerson), aPerson, []);
+
+    (__Instance as IDynamicRequestService).EchoPerson(aPerson, anotherPerson);
+
+    __Message.InitializeResponseMessage(__Transport, 'DynamicRequestLibrary', 'DynamicRequestService', 'EchoPersonResponse');
+    __Message.Write('anotherPerson', TypeInfo(DynamicRequestLibrary_Intf.TPerson), anotherPerson, []);
+    __Message.Finalize;
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aPerson);
+      __lObjectDisposer.Add(anotherPerson);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.bdsproj
new file mode 100644
index 0000000..84ae1ea
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{9A6F66A5-FAAF-4371-BF9F-51D5EAAB7441}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">DynamicRequestServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.dpr
new file mode 100644
index 0000000..9fda2fa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.dpr	
@@ -0,0 +1,20 @@
+program DynamicRequestServer;
+
+{#ROGEN:DynamicRequestLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  Forms,
+  DynamicRequestServerMain in 'DynamicRequestServerMain.pas' {DynamicRequestServerMainForm},
+  DynamicRequestLibrary_Intf in 'DynamicRequestLibrary_Intf.pas',
+  DynamicRequestLibrary_Invk in 'DynamicRequestLibrary_Invk.pas',
+  DynamicRequestService_Impl in 'DynamicRequestService_Impl.pas';
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Dynamic Request Server';
+  Application.CreateForm(TDynamicRequestServerMainForm, DynamicRequestServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.dproj
new file mode 100644
index 0000000..d424af2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{d016a1fd-5969-4cfb-8c2e-5286b5514461}</ProjectGuid>
+    <MainSource>DynamicRequestServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DynamicRequestServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">DynamicRequestServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="DynamicRequestServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DynamicRequestLibrary_Intf.pas" />
+    <DCCReference Include="DynamicRequestLibrary_Invk.pas" />
+    <DCCReference Include="DynamicRequestServerMain.pas">
+      <Form>DynamicRequestServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="DynamicRequestService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.res
new file mode 100644
index 0000000..aa9db5a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServerMain.dfm
new file mode 100644
index 0000000..e64a502
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServerMain.dfm	
@@ -0,0 +1,36 @@
+object DynamicRequestServerMainForm: TDynamicRequestServerMainForm
+  Left = 65
+  Top = 31
+  BorderStyle = bsDialog
+  Caption = 'Dynamic Request Server'
+  ClientHeight = 61
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 9
+    Top = 4
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object BINMessage: TROBinMessage
+    Left = 40
+  end
+  object IndyHttpServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'BINMessage'
+        Message = BINMessage
+        Enabled = True
+        PathInfo = '/BIN'
+      end>
+    Port = 8099
+    Left = 80
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServerMain.pas
new file mode 100644
index 0000000..82460e0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestServerMain.pas	
@@ -0,0 +1,36 @@
+unit DynamicRequestServerMain;
+
+interface 
+
+uses
+  Windows, Messages, SysUtils, Classes, Forms, Graphics, uROClient, uROServer,
+  uROIndyTCPServer, uROIndyHTTPServer, uROBinMessage, Controls,
+  uROPoweredByRemObjectsButton;
+
+type
+  TDynamicRequestServerMainForm = class(TForm)
+    BINMessage: TROBINMessage;
+    IndyHttpServer: TROIndyHTTPServer;
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    procedure FormCreate(Sender: TObject);
+  private
+  protected
+  public
+  end;
+
+var
+  DynamicRequestServerMainForm        : TDynamicRequestServerMainForm;
+
+implementation
+
+uses DynamicRequestLibrary_Intf;
+
+{$R *.DFM}
+
+procedure TDynamicRequestServerMainForm.FormCreate(Sender: TObject);
+begin
+  IndyHttpServer.Active := True;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestService_Impl.pas
new file mode 100644
index 0000000..b149578
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/DynamicRequestService_Impl.pas	
@@ -0,0 +1,66 @@
+unit DynamicRequestService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} DynamicRequestLibrary_Intf;
+
+type
+  { TDynamicRequestService }
+  TDynamicRequestService = class(TRORemotable, IDynamicRequestService)
+  private
+  protected
+    { IDynamicRequestService methods }
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    procedure EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+  end;
+
+implementation
+
+uses
+  {Generated:} DynamicRequestLibrary_Invk;
+
+procedure Create_DynamicRequestService(out anInstance: IUnknown);
+begin
+  anInstance := TDynamicRequestService.Create;
+end;
+
+{ DynamicRequestService }
+
+function TDynamicRequestService.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  result := A + B;
+end;
+
+function TDynamicRequestService.GetServerTime: DateTime;
+begin
+  result := Now;
+end;
+
+procedure TDynamicRequestService.EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+begin
+  anotherPerson := TPerson.Create;
+
+  anotherPerson.FirstName := aPerson.FirstName;
+  anotherPerson.LastName := aPerson.LastName;
+  anotherPerson.Age := aPerson.Age;
+  anotherPerson.Sex := aPerson.Sex;
+end;
+
+initialization
+  TROClassFactory.Create('DynamicRequestService', Create_DynamicRequestService, TDynamicRequestService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/RODLFile.RES b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/RODLFile.RES
new file mode 100644
index 0000000..2a83e13
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Dynamic Request/RODLFile.RES differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/DownloadThread.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/DownloadThread.pas
new file mode 100644
index 0000000..6e07c90
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/DownloadThread.pas	
@@ -0,0 +1,100 @@
+unit DownloadThread;
+
+interface
+
+uses
+  Classes, ExtendedFileTransferLibrary_Intf, uROTypes;
+
+type
+  TDownloadThread = class(TThread)
+  private
+    { Private declarations }
+    fThreadNumber: integer;
+    fFileName: string;
+    fPartNumber: integer;
+    fPartSize: integer;
+    fURL: string;
+    fPart: Binary;
+    fMessage: string;
+    fDone: boolean;
+  private
+    procedure WritePartSynchronized;
+    procedure WriteLogSynchronized; overload;
+    procedure WriteLogSynchronized(msg: string); overload;
+  protected
+    procedure Execute; override;
+  public
+    constructor Create(const aThreadNumber: integer; const aFileName: string; const aPartNumber: integer; const aPartSize: integer; aURL: string);
+    property Done: boolean read fDone;
+  end;
+
+implementation
+
+uses SysUtils, fClientForm, uROClasses, uROWinInetHTTPChannel, uROBinMessage, Forms;
+
+constructor TDownloadThread.Create(const aThreadNumber: integer;
+  const aFileName: string; const aPartNumber,
+  aPartSize: integer; aURL: string);
+begin
+  inherited Create(true);
+  FreeOnTerminate := false;
+
+  fThreadNumber := aThreadNumber;
+  fFileName := aFileName;
+  fPartNumber := aPartNumber;
+  fPartSize := aPartSize;
+  fURL := aURL;
+  fDone := false;
+end;
+
+procedure TDownloadThread.Execute;
+var
+  ch: TROWinInetHTTPChannel;
+  msg: TROBinMessage;
+  svc: TExtendedFileTransferService_Proxy;
+begin
+  WriteLogSynchronized('Thread #' + IntToStr(fThreadNumber) +
+    ': downloading chunk ' + IntToStr(fPartNumber));
+
+  ch := TROWinInetHTTPChannel.Create(nil);
+  ch.TargetURL := fURL;
+  msg := TROBinMessage.Create;
+  svc := TExtendedFileTransferService_Proxy.Create(msg, ch);
+
+  try
+    fPart := (svc as IExtendedFileTransferService).DownloadFilePart(
+      {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fFileName),
+      fPartNumber, fPartSize);
+  finally
+    ch.Free;
+    msg.Free;
+  end;
+
+  WriteLogSynchronized('Thread #' + IntToStr(fThreadNumber) +
+    ' download finished, writing to disk');
+  Synchronize(WritePartSynchronized);
+  WriteLogSynchronized('Thread #' + IntToStr(fThreadNumber) +
+    ' completed.');
+
+  fPart.Free;
+  fDone := true;
+end;
+
+procedure TDownloadThread.WriteLogSynchronized;
+begin
+  ClientForm.LogMessage(fMessage);
+  Application.ProcessMessages;
+end;
+
+procedure TDownloadThread.WriteLogSynchronized(msg: string);
+begin
+  fMessage := msg;
+  WriteLogSynchronized;
+end;
+
+procedure TDownloadThread.WritePartSynchronized;
+begin
+  ClientForm.WriteChunk(fPartNumber, fPartSize, fPart);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransfer.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransfer.Sample.html
new file mode 100644
index 0000000..bd8a324
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransfer.Sample.html	
@@ -0,0 +1,66 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1"><span>Extended File Transfer Sample</span></p>
+
+<h2>Purpose</h2>
+
+<p>
+Some time ago we received several questions in our newsgroup asking how to download
+    big files using the RemObjects SDK. This sample presents a working solution.
+</p>
+
+<h2>How it works</h2>
+<p>
+The approach is quite simple,instead of downloading a complete file at once, it
+    is split into small chunks to be downloaded separately. On the client side, these are then combined back into a single file. 
+</p>
+<p>
+    This &nbsp;sample provides a RemObject server that exposes the content of a folder (see the &nbsp;<b>GetFilesList</b> method in the ExtendedFileTransferService implementation)
+    and a client that can connect to the server to obtain a list of the files available for downloading. The server also provides another method for downloading a chunk
+    of a file called <b>DownloadFilePart.</b> 
+This  method requires three parameters:
+</p>
+<ul>
+<li><b>FileName</b> (AnsiString) - name of the file to be downloaded.</li>
+<li><b>PartNo</b> (int32) - the chunk part that should be downloaded starting with 1. </li>         
+    <li><b>PartSize</b> (int32) - size of of chunk that should be downloaded. </li>
+</ul>
+    <strong>DownloadFilePart </strong>reads the section of the file with offset <b>PartSize*PartNo</b> and returns the data as a Binary stream to the client.
+
+When we want to download a &nbsp;file we can specify size of chunk (Below the <b>Chunk Size</b> combobox you will see calculated total count of chunks). 
+Also we can specify the number of
+    threads we want to use for the downloading operation.  Since each partial chunk download
+    is independent, using threads is quite attractive in this scenario. 
+
+
+<h2>Examine the code</h2>
+<ul>
+<li>See the implementation of the <b>GetFilesList</b> and  <b>DownloadFilePart</b> methods in the <b>ExtendedFileTransferService_Impl</b> class. Look how we can read a chunk of file and return it back to the client.</li>
+<li>See <b>DownloadPart</b> function on the client side. This is the method that executes inside each thread we run to download the selected file. Note that we use a separate channel and message for each thread.</li>
+<li>Review the <b>bDownload_Click</b> handler. Here we are starting the download. Look how we are using a thread pool for controlling the number of the threads that are
+    involved in the downloading process.</li>
+</ul>
+
+
+
+<h2>Getting started</h2>
+<ul>
+<li>Compile and run the server and client applications.</li> 
+<li>Put a file into shared folder (you can easily locate and open this folder when you
+    click on the link label on the server main form).</li>
+<li>Get the available files on the client side by clicking the <b>GetFiles</b> button.</li>
+<li>Adjust the chunk size and thread count on the client.</li>  
+<li>Try to download the selected file. At the end of downloading process, you can open
+    this file to ensure that downloading was successful. </li>
+</ul>
+
+<!-------------------------------------------------------------------------->
+</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.bdsproj
new file mode 100644
index 0000000..2ece867
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.bdsproj	
@@ -0,0 +1,173 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{C6AB1D7A-D248-45DC-AC95-824471FF16E9}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ExtendedFileTransferClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="RemoteHost"></Parameters>
+      <Parameters Name="RemotePath"></Parameters>
+      <Parameters Name="RemoteLauncher"></Parameters>
+      <Parameters Name="RemoteCWD"></Parameters>
+      <Parameters Name="RemoteDebug">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.dpr
new file mode 100644
index 0000000..59d267f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.dpr	
@@ -0,0 +1,16 @@
+program ExtendedFileTransferClient;
+
+uses
+  uROComInit,
+  Forms,
+  fClientForm in 'fClientForm.pas' {ClientForm},
+  ExtendedFileTransferLibrary_Intf in 'ExtendedFileTransferLibrary_Intf.pas',
+  DownloadThread in 'DownloadThread.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.dproj
new file mode 100644
index 0000000..69c32b8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.dproj	
@@ -0,0 +1,80 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{93e80178-8e2a-467b-8398-65ca8dae18a0}</ProjectGuid>
+    <MainSource>ExtendedFileTransferClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ExtendedFileTransferClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ExtendedFileTransferClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ExtendedFileTransferClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="DownloadThread.pas" />
+    <DCCReference Include="ExtendedFileTransferLibrary_Intf.pas" />
+    <DCCReference Include="fClientForm.pas">
+      <Form>ClientForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.res
new file mode 100644
index 0000000..0f940ed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.bdsgroup
new file mode 100644
index 0000000..3c2127f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.bdsgroup	
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{A865BCF5-A145-47EA-A8F5-A84B9DD22C5F}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    <Projects>
+      <Projects Name="ExtendedFileTransfer.exe">ExtendedFileTransfer.bdsproj</Projects>
+      <Projects Name="ExtendedFileTransferClient.exe">ExtendedFileTransferClient.bdsproj</Projects>
+      <Projects Name="Targets">ExtendedFileTransfer.exe ExtendedFileTransferClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.bpg
new file mode 100644
index 0000000..4814785
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ExtendedFileTransferClient.exe ExtendedFileTransferServer.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ExtendedFileTransferClient.exe: ExtendedFileTransferClient.dpr
+  $(DCC)
+
+ExtendedFileTransferServer.exe: ExtendedFileTransferServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.groupproj
new file mode 100644
index 0000000..52a3d42
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferGroup.groupproj	
@@ -0,0 +1,44 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{b8172ad8-a315-4ec4-a06b-460f7d96dd7f}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="ExtendedFileTransferClient.dproj" />
+    <Projects Include="ExtendedFileTransferServer.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="ExtendedFileTransferClient">
+    <MSBuild Projects="ExtendedFileTransferClient.dproj" Targets="" />
+  </Target>
+  <Target Name="ExtendedFileTransferClient:Clean">
+    <MSBuild Projects="ExtendedFileTransferClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ExtendedFileTransferClient:Make">
+    <MSBuild Projects="ExtendedFileTransferClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ExtendedFileTransferServer">
+    <MSBuild Projects="ExtendedFileTransferServer.dproj" Targets="" />
+  </Target>
+  <Target Name="ExtendedFileTransferServer:Clean">
+    <MSBuild Projects="ExtendedFileTransferServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ExtendedFileTransferServer:Make">
+    <MSBuild Projects="ExtendedFileTransferServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="ExtendedFileTransferClient;ExtendedFileTransferServer" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="ExtendedFileTransferClient:Clean;ExtendedFileTransferServer:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="ExtendedFileTransferClient:Make;ExtendedFileTransferServer:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary.rodl
new file mode 100644
index 0000000..b52902d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary.rodl	
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ExtendedFileTransferLibrary" UID="{02F3ADBC-D8AD-476D-A885-54E6B61AA7A1}" Version="3.0">
+<Services>
+<Service Name="ExtendedFileTransferService" UID="{785FF4F8-8B80-4907-807D-7A13F32A71B6}">
+<Interfaces>
+<Interface Name="Default" UID="{50F60F48-A35C-43AD-93AE-9A027E2ED4B0}">
+<Documentation><![CDATA[Service ExtendedFileTransferService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation><Operations>
+<Operation Name="GetFilesList" UID="{F6D34231-5412-4083-8C28-B86B78217E21}">
+<Parameters>
+<Parameter Name="Result" DataType="FileInfoArray" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="DownloadFilePart" UID="{EDC1D4C8-4457-48A6-9B23-7899AC91231F}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="FileName" DataType="String" Flag="In" >
+</Parameter>
+<Parameter Name="PartNo" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="PartSize" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="TFileInfo" UID="{71DA0C9C-56CE-4D40-B225-776647A0FD14}" AutoCreateParams="1">
+<Elements>
+<Element Name="FileName" DataType="String">
+</Element>
+<Element Name="Size" DataType="Integer">
+</Element>
+<Element Name="TypeName" DataType="String">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+<Array Name="FileInfoArray" UID="{C8579CF4-25ED-4C99-A56D-8DE82D36C101}">
+<ElementType DataType="TFileInfo" />
+</Array>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary_Intf.pas
new file mode 100644
index 0000000..5fd5a06
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary_Intf.pas	
@@ -0,0 +1,459 @@
+unit ExtendedFileTransferLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{02F3ADBC-D8AD-476D-A885-54E6B61AA7A1}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IExtendedFileTransferService_IID : TGUID = '{50F60F48-A35C-43AD-93AE-9A027E2ED4B0}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IExtendedFileTransferService = interface;
+
+  FileInfoArray = class;
+
+  TFileInfo = class;
+
+
+  { TFileInfo }
+  TFileInfo = class(TROComplexType)
+  private
+    fFileName: AnsiString;
+    fSize: Integer;
+    fTypeName: AnsiString;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property FileName:AnsiString read fFileName write fFileName;
+    property Size:Integer read fSize write fSize;
+    property TypeName:AnsiString read fTypeName write fTypeName;
+  end;
+
+  { TFileInfoCollection }
+  TFileInfoCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TFileInfo;
+    procedure SetItems(aIndex: integer; const Value: TFileInfo);
+  public
+    constructor Create; overload;
+    function Add: TFileInfo; reintroduce;
+    procedure SaveToArray(anArray: FileInfoArray);
+    procedure LoadFromArray(anArray: FileInfoArray);
+    property Items[Index: integer]:TFileInfo read GetItems write SetItems; default;
+  end;
+
+  { FileInfoArray }
+  FileInfoArray_TFileInfo = array of TFileInfo;
+  FileInfoArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : FileInfoArray_TFileInfo;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): TFileInfo;
+    procedure SetItems(aIndex: integer; const Value: TFileInfo);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: TFileInfo; overload;
+    function Add(const Value: TFileInfo):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:TFileInfo read GetItems write SetItems; default;
+    property InnerArray: FileInfoArray_TFileInfo read fItems;
+  end;
+
+  { IExtendedFileTransferService }
+  IExtendedFileTransferService = interface
+    ['{50F60F48-A35C-43AD-93AE-9A027E2ED4B0}']
+    function GetFilesList: FileInfoArray;
+    function DownloadFilePart(const FileName: AnsiString; const PartNo: Integer; const PartSize: Integer): Binary;
+  end;
+
+  { CoExtendedFileTransferService }
+  CoExtendedFileTransferService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IExtendedFileTransferService;
+  end;
+
+  { TExtendedFileTransferService_Proxy }
+  TExtendedFileTransferService_Proxy = class(TROProxy, IExtendedFileTransferService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetFilesList: FileInfoArray;
+    function DownloadFilePart(const FileName: AnsiString; const PartNo: Integer; const PartSize: Integer): Binary;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ FileInfoArray }
+
+procedure FileInfoArray.Assign(iSource: TPersistent);
+var lSource:FileInfoArray;
+    i:integer;
+begin
+  if (iSource is FileInfoArray) then begin
+    lSource := FileInfoArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function FileInfoArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(TFileInfo);
+end;
+
+class function FileInfoArray.GetItemClass: TClass;
+begin
+  result := TFileInfo;
+end;
+
+class function FileInfoArray.GetItemSize: integer;
+begin
+  result := SizeOf(TFileInfo);
+end;
+
+function FileInfoArray.GetItems(aIndex: integer): TFileInfo;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function FileInfoArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure FileInfoArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure FileInfoArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure FileInfoArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure FileInfoArray.SetItems(aIndex: integer; const Value: TFileInfo);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure FileInfoArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := TFileInfo.Create;
+  FCount := ElementCount;
+end;
+
+function FileInfoArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure FileInfoArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function FileInfoArray.Add: TFileInfo;
+begin
+  result := TFileInfo.Create;
+  Add(Result);
+end;
+
+function FileInfoArray.Add(const Value:TFileInfo): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure FileInfoArray.ReadComplex(ASerializer: TObject);
+var
+  lval: TFileInfo;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), TFileInfo, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure FileInfoArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], TFileInfo, i);
+end;
+
+{ TFileInfo }
+
+procedure TFileInfo.Assign(iSource: TPersistent); 
+var lSource: ExtendedFileTransferLibrary_Intf.TFileInfo;
+begin
+  inherited Assign(iSource);
+  if (iSource is ExtendedFileTransferLibrary_Intf.TFileInfo) then begin
+    lSource := ExtendedFileTransferLibrary_Intf.TFileInfo(iSource);
+    FileName := lSource.FileName;
+    Size := lSource.Size;
+    TypeName := lSource.TypeName;
+  end;
+end;
+
+procedure TFileInfo.ReadComplex(ASerializer: TObject);
+var
+  l_FileName: AnsiString;
+  l_Size: Integer;
+  l_TypeName: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_FileName := FileName;
+    TROSerializer(ASerializer).ReadAnsiString('FileName', l_FileName);
+    FileName := l_FileName;
+    l_Size := Size;
+    TROSerializer(ASerializer).ReadInteger('Size', otSLong, l_Size);
+    Size := l_Size;
+    l_TypeName := TypeName;
+    TROSerializer(ASerializer).ReadAnsiString('TypeName', l_TypeName);
+    TypeName := l_TypeName;
+  end
+  else begin
+    l_FileName := FileName;
+    TROSerializer(ASerializer).ReadAnsiString('FileName', l_FileName);
+    FileName := l_FileName;
+    l_Size := Size;
+    TROSerializer(ASerializer).ReadInteger('Size', otSLong, l_Size);
+    Size := l_Size;
+    l_TypeName := TypeName;
+    TROSerializer(ASerializer).ReadAnsiString('TypeName', l_TypeName);
+    TypeName := l_TypeName;
+  end;
+end;
+
+procedure TFileInfo.WriteComplex(ASerializer: TObject);
+var
+  l_FileName: AnsiString;
+  l_Size: Integer;
+  l_TypeName: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TFileInfo);
+    l_FileName := FileName;
+    TROSerializer(ASerializer).WriteAnsiString('FileName', l_FileName);
+    l_Size := Size;
+    TROSerializer(ASerializer).WriteInteger('Size', otSLong, l_Size);
+    l_TypeName := TypeName;
+    TROSerializer(ASerializer).WriteAnsiString('TypeName', l_TypeName);
+  end
+  else begin
+    l_FileName := FileName;
+    TROSerializer(ASerializer).WriteAnsiString('FileName', l_FileName);
+    l_Size := Size;
+    TROSerializer(ASerializer).WriteInteger('Size', otSLong, l_Size);
+    l_TypeName := TypeName;
+    TROSerializer(ASerializer).WriteAnsiString('TypeName', l_TypeName);
+  end;
+end;
+
+{ TFileInfoCollection }
+constructor TFileInfoCollection.Create;
+begin
+  inherited Create(TFileInfo);
+end;
+
+constructor TFileInfoCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TFileInfoCollection.Add: TFileInfo;
+begin
+  result := TFileInfo(inherited Add);
+end;
+
+function TFileInfoCollection.GetItems(aIndex: integer): TFileInfo;
+begin
+  result := TFileInfo(inherited Items[aIndex]);
+end;
+
+procedure TFileInfoCollection.LoadFromArray(anArray: FileInfoArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure TFileInfoCollection.SaveToArray(anArray: FileInfoArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := TFileInfo.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure TFileInfoCollection.SetItems(aIndex: integer; const Value: TFileInfo);
+begin
+  TFileInfo(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoExtendedFileTransferService }
+
+class function CoExtendedFileTransferService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IExtendedFileTransferService;
+begin
+  result := TExtendedFileTransferService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TExtendedFileTransferService_Proxy }
+
+function TExtendedFileTransferService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ExtendedFileTransferService';
+end;
+
+function TExtendedFileTransferService_Proxy.GetFilesList: FileInfoArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ExtendedFileTransferLibrary', __InterfaceName, 'GetFilesList');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(ExtendedFileTransferLibrary_Intf.FileInfoArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TExtendedFileTransferService_Proxy.DownloadFilePart(const FileName: AnsiString; const PartNo: Integer; const PartSize: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ExtendedFileTransferLibrary', __InterfaceName, 'DownloadFilePart');
+    __Message.Write('FileName', TypeInfo(AnsiString), FileName, []);
+    __Message.Write('PartNo', TypeInfo(Integer), PartNo, []);
+    __Message.Write('PartSize', TypeInfo(Integer), PartSize, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TFileInfo);
+  RegisterROClass(FileInfoArray);
+  RegisterProxyClass(IExtendedFileTransferService_IID, TExtendedFileTransferService_Proxy);
+
+
+finalization
+  UnregisterROClass(TFileInfo);
+  UnregisterROClass(FileInfoArray);
+  UnregisterProxyClass(IExtendedFileTransferService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary_Invk.pas
new file mode 100644
index 0000000..cb43504
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferLibrary_Invk.pas	
@@ -0,0 +1,102 @@
+unit ExtendedFileTransferLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} ExtendedFileTransferLibrary_Intf;
+
+type
+  TExtendedFileTransferService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetFilesList(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_DownloadFilePart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TExtendedFileTransferService_Invoker }
+
+constructor TExtendedFileTransferService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TExtendedFileTransferService_Invoker.Invoke_GetFilesList(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetFilesList: FileInfoArray; }
+var
+  lResult: ExtendedFileTransferLibrary_Intf.FileInfoArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as IExtendedFileTransferService).GetFilesList;
+
+    __Message.InitializeResponseMessage(__Transport, 'ExtendedFileTransferLibrary', 'ExtendedFileTransferService', 'GetFilesListResponse');
+    __Message.Write('Result', TypeInfo(ExtendedFileTransferLibrary_Intf.FileInfoArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TExtendedFileTransferService_Invoker.Invoke_DownloadFilePart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function DownloadFilePart(const FileName: AnsiString; const PartNo: Integer; const PartSize: Integer): Binary; }
+var
+  FileName: AnsiString;
+  PartNo: Integer;
+  PartSize: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('FileName', TypeInfo(AnsiString), FileName, []);
+    __Message.Read('PartNo', TypeInfo(Integer), PartNo, []);
+    __Message.Read('PartSize', TypeInfo(Integer), PartSize, []);
+
+    lResult := (__Instance as IExtendedFileTransferService).DownloadFilePart(FileName, PartNo, PartSize);
+
+    __Message.InitializeResponseMessage(__Transport, 'ExtendedFileTransferLibrary', 'ExtendedFileTransferService', 'DownloadFilePartResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.bdsproj
new file mode 100644
index 0000000..4ff8341
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.bdsproj	
@@ -0,0 +1,173 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{7229DBC4-6F65-4513-90B0-B8458B57C62A}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ExtendedFileTransferServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="RemoteHost"></Parameters>
+      <Parameters Name="RemotePath"></Parameters>
+      <Parameters Name="RemoteLauncher"></Parameters>
+      <Parameters Name="RemoteCWD"></Parameters>
+      <Parameters Name="RemoteDebug">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.dpr
new file mode 100644
index 0000000..bb3c79f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.dpr	
@@ -0,0 +1,20 @@
+program ExtendedFileTransferServer;
+
+{#ROGEN:ExtendedFileTransferLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  ExtendedFileTransferLibrary_Intf in 'ExtendedFileTransferLibrary_Intf.pas',
+  ExtendedFileTransferLibrary_Invk in 'ExtendedFileTransferLibrary_Invk.pas',
+  ExtendedFileTransferService_Impl in 'ExtendedFileTransferService_Impl.pas' {ExtendedFileTransferService: TRORemoteDataModule};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.dproj
new file mode 100644
index 0000000..757ca36
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.dproj	
@@ -0,0 +1,84 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3ccb4ed0-fecb-4baf-a966-8701760bd2cd}</ProjectGuid>
+    <MainSource>ExtendedFileTransferServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ExtendedFileTransferServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ExtendedFileTransferServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ExtendedFileTransferServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ExtendedFileTransferLibrary_Intf.pas" />
+    <DCCReference Include="ExtendedFileTransferLibrary_Invk.pas" />
+    <DCCReference Include="ExtendedFileTransferService_Impl.pas">
+      <Form>ExtendedFileTransferService</Form>
+      <DesignClass>TRORemoteDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="fServerForm.pas">
+      <Form>ServerForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferService_Impl.dfm
new file mode 100644
index 0000000..66742af
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferService_Impl.dfm	
@@ -0,0 +1,7 @@
+object ExtendedFileTransferService: TExtendedFileTransferService
+  OldCreateOrder = True
+  Left = 276
+  Top = 291
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferService_Impl.pas
new file mode 100644
index 0000000..ec5eab4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/ExtendedFileTransferService_Impl.pas	
@@ -0,0 +1,89 @@
+unit ExtendedFileTransferService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+{$WARN SYMBOL_PLATFORM OFF}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} ExtendedFileTransferLibrary_Intf;
+
+type
+  { TExtendedFileTransferService }
+  TExtendedFileTransferService = class(TRORemoteDataModule, IExtendedFileTransferService)
+  private
+  protected
+    { IExtendedFileTransferService methods }
+    function GetFilesList: FileInfoArray;
+    function DownloadFilePart(const FileName: AnsiString; const PartNo: Integer; const PartSize: Integer): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} ExtendedFileTransferLibrary_Invk,
+  fServerForm, uROClasses;
+
+procedure Create_ExtendedFileTransferService(out anInstance : IUnknown);
+begin
+  anInstance := TExtendedFileTransferService.Create(nil);
+end;
+
+{ ExtendedFileTransferService }
+function TExtendedFileTransferService.GetFilesList: FileInfoArray;
+var
+  sr: TSearchRec;
+  fi: TFileInfo;
+begin
+  Result := FileInfoArray.Create;
+  if FindFirst(ServerForm.SharedFolder + '\*.*', faReadOnly + faArchive, sr) = 0 then begin
+    repeat
+      fi := Result.Add;
+      fi.FileName := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(ExtractFileName(sr.Name));
+      fi.TypeName := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(ExtractFileExt(sr.Name));
+      fi.Size := sr.Size;
+    until FindNext(sr) <> 0;
+    FindClose(sr);
+  end;
+end;
+
+function TExtendedFileTransferService.DownloadFilePart(const FileName: AnsiString; const PartNo: Integer; const PartSize: Integer): Binary;
+var
+  fs: TFileStream;
+  lRemains, lOffset, lBufferSize: integer;
+begin
+  Result := Binary.Create;
+  fs := TFileStream.Create(ServerForm.SharedFolder + '\' +
+    {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(FileName),
+    fmOpenRead + fmShareDenyWrite);
+  lOffset := PartSize*(PartNo-1);
+  lRemains := fs.Size - lOffset;
+  if lRemains > PartSize then lBufferSize := PartSize else lBufferSize := lRemains;
+  fs.Seek(lOffset, soFromBeginning);
+  Result.CopyFrom(fs, lBufferSize);
+  fs.Free;
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('ExtendedFileTransferService', Create_ExtendedFileTransferService, TExtendedFileTransferService_Invoker);
+  // RegisterForZeroConf(fClassFactory,'_ExtendedFileTransferService_rosdk._tcp.');
+
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/RODLFILE.res
new file mode 100644
index 0000000..a4ff2e3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/SharedFolder/create.dir b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/SharedFolder/create.dir
new file mode 100644
index 0000000..e69de29
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.ddp b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.ddp
new file mode 100644
index 0000000..4370276
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.ddp differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.dfm
new file mode 100644
index 0000000..47d185a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.dfm	
@@ -0,0 +1,239 @@
+object ClientForm: TClientForm
+  Left = 372
+  Top = 277
+  Width = 614
+  Height = 403
+  Caption = 'Extended File Transfer Sample'
+  Color = clBtnFace
+  Constraints.MinWidth = 614
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 598
+    Height = 49
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Panel2: TPanel
+      Left = 0
+      Top = 0
+      Width = 224
+      Height = 49
+      Align = alLeft
+      BevelOuter = bvNone
+      Caption = 'Panel2'
+      TabOrder = 0
+      object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+        Left = 0
+        Top = 0
+        Width = 212
+        Height = 48
+        Cursor = crHandPoint
+      end
+    end
+    object GroupBox1: TGroupBox
+      Left = 224
+      Top = 0
+      Width = 374
+      Height = 49
+      Align = alClient
+      Caption = 'Server Connection'
+      TabOrder = 1
+      object Label1: TLabel
+        Left = 8
+        Top = 20
+        Width = 56
+        Height = 13
+        Caption = 'Target URL'
+      end
+      object edTargetURL: TEdit
+        Left = 68
+        Top = 17
+        Width = 213
+        Height = 21
+        TabOrder = 0
+        Text = 'http://localhost:8099/bin'
+      end
+      object btGetList: TButton
+        Left = 287
+        Top = 15
+        Width = 75
+        Height = 25
+        Caption = 'Get List'
+        TabOrder = 1
+        OnClick = btGetListClick
+      end
+    end
+  end
+  object Panel3: TPanel
+    Left = 0
+    Top = 49
+    Width = 598
+    Height = 144
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 1
+    object GroupBox2: TGroupBox
+      Left = 408
+      Top = 0
+      Width = 190
+      Height = 144
+      Align = alRight
+      Caption = 'Download'
+      TabOrder = 0
+      object Label2: TLabel
+        Left = 16
+        Top = 24
+        Width = 52
+        Height = 13
+        Caption = 'Chunk size'
+      end
+      object Label3: TLabel
+        Left = 16
+        Top = 56
+        Width = 61
+        Height = 13
+        Caption = 'Chunk count'
+      end
+      object Label4: TLabel
+        Left = 16
+        Top = 88
+        Width = 64
+        Height = 13
+        Caption = 'Thread count'
+      end
+      object cbChunkSize: TComboBox
+        Left = 88
+        Top = 21
+        Width = 89
+        Height = 21
+        Style = csDropDownList
+        ItemHeight = 13
+        ItemIndex = 1
+        TabOrder = 0
+        Text = '64K'
+        OnChange = cbChunkSizeChange
+        Items.Strings = (
+          '500B'
+          '64K'
+          '128K'
+          '512K'
+          '1M'
+          '2M'
+          '3M')
+      end
+      object edChunkCount: TEdit
+        Left = 88
+        Top = 53
+        Width = 89
+        Height = 21
+        TabStop = False
+        BorderStyle = bsNone
+        ReadOnly = True
+        TabOrder = 1
+      end
+      object edThreadCount: TMaskEdit
+        Left = 86
+        Top = 85
+        Width = 91
+        Height = 21
+        EditMask = '!99;0;_'
+        MaxLength = 2
+        TabOrder = 2
+        Text = '5'
+      end
+      object btDownload: TButton
+        Left = 16
+        Top = 112
+        Width = 161
+        Height = 25
+        Caption = 'Download'
+        TabOrder = 3
+        OnClick = btDownloadClick
+      end
+    end
+    object GroupBox3: TGroupBox
+      Left = 0
+      Top = 0
+      Width = 408
+      Height = 144
+      Align = alClient
+      Caption = 'Remote Shared Directory'
+      TabOrder = 1
+      object lvFileList: TListView
+        Left = 2
+        Top = 15
+        Width = 404
+        Height = 127
+        Align = alClient
+        BevelInner = bvNone
+        BevelOuter = bvNone
+        Columns = <
+          item
+            Caption = 'File Name'
+            Width = 250
+          end
+          item
+            Caption = 'Size'
+            Width = 100
+          end
+          item
+            Caption = 'Type'
+          end>
+        GridLines = True
+        HideSelection = False
+        ReadOnly = True
+        RowSelect = True
+        TabOrder = 0
+        ViewStyle = vsReport
+        OnChange = lvFileListChange
+      end
+    end
+  end
+  object GroupBox4: TGroupBox
+    Left = 0
+    Top = 193
+    Width = 598
+    Height = 174
+    Align = alClient
+    Caption = 'Log'
+    TabOrder = 2
+    object edLog: TMemo
+      Left = 2
+      Top = 15
+      Width = 594
+      Height = 157
+      Align = alClient
+      ReadOnly = True
+      ScrollBars = ssVertical
+      TabOrder = 0
+      WordWrap = False
+    end
+  end
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 36
+    Top = 8
+  end
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    TrustInvalidCA = False
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 8
+    Top = 8
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'ExtendedFileTransferService'
+    Left = 64
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.pas
new file mode 100644
index 0000000..22a69b1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.pas	
@@ -0,0 +1,222 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  uROPoweredByRemObjectsButton, ExtCtrls, ComCtrls, Mask, uROTypes;
+
+type
+  TClientForm = class(TForm)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    edTargetURL: TEdit;
+    btGetList: TButton;
+    Panel3: TPanel;
+    GroupBox2: TGroupBox;
+    Label2: TLabel;
+    cbChunkSize: TComboBox;
+    Label3: TLabel;
+    edChunkCount: TEdit;
+    Label4: TLabel;
+    edThreadCount: TMaskEdit;
+    GroupBox3: TGroupBox;
+    lvFileList: TListView;
+    GroupBox4: TGroupBox;
+    edLog: TMemo;
+    btDownload: TButton;
+    procedure btGetListClick(Sender: TObject);
+    procedure lvFileListChange(Sender: TObject; Item: TListItem;
+      Change: TItemChange);
+    procedure cbChunkSizeChange(Sender: TObject);
+    procedure btDownloadClick(Sender: TObject);
+  private
+    { Private declarations }
+    fOutFile: TFileStream;
+    procedure CalcChunkCount;
+    function GetPartSize: integer;
+    procedure SetControlsEnabled(aState: boolean);
+  public
+    { Public declarations }
+    procedure LogMessage(msg: string);
+    procedure WriteChunk(aChunkNo: integer; aChunkSize: integer; aData: Binary);
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+uses ExtendedFileTransferLibrary_Intf, uROClasses, DownloadThread;
+
+{$R *.dfm}
+
+procedure TClientForm.btDownloadClick(Sender: TObject);
+var
+  threads: array of TDownloadThread;
+  numThreads: integer;
+  i: integer;
+  curChunk: integer;
+  chunkCount: integer;
+  allDone: boolean;
+begin
+  if not Assigned(lvFileList.Selected) then ShowMessage('Please select a file!')
+  else begin
+    edLog.Lines.Clear;
+    fOutFile := TFileStream.Create(lvFileList.Selected.Caption, fmCreate);
+    try
+      chunkCount := StrToInt(edChunkCount.Text);
+      numThreads := StrToInt(Trim(edThreadCount.Text));
+      if numThreads <= 0 then numThreads := 1;
+      SetLength(threads, numThreads);
+      curChunk := 1;
+
+      LogMessage('Starting download process...');
+      SetControlsEnabled(false);
+
+      for i := 0 to numThreads - 1 do begin
+        if curChunk <= chunkCount then begin
+          threads[i] := TDownloadThread.Create(i + 1, lvFileList.Selected.Caption,
+            curChunk, GetPartSize, edTargetURL.Text);
+          inc(curChunk);
+          threads[i].Resume;
+        end
+        else threads[i] := nil;
+      end;
+
+      // Loading chunks using available threads in the pool
+      while curChunk <= chunkCount do begin
+        for i := 0 to numThreads - 1 do
+          if Assigned(threads[i]) and threads[i].Done then begin
+            threads[i].Free;
+            threads[i] := nil;
+            if curChunk <= chunkCount then begin
+              threads[i] := TDownloadThread.Create(i + 1, lvFileList.Selected.Caption,
+                curChunk, GetPartSize, edTargetURL.Text);
+              inc(curChunk);
+              threads[i].Resume;
+            end;
+          end;
+        if curChunk <= chunkCount then Application.ProcessMessages;
+      end;
+
+      // Waiting for all threads to finish
+      repeat
+        allDone := true;
+        for i := 0 to numThreads - 1 do
+          if Assigned(threads[i]) then begin
+            if threads[i].Done then begin
+              threads[i].Free;
+              threads[i] := nil;
+            end
+            else allDone := false;
+          end;
+        if not allDone then Application.ProcessMessages;
+      until allDone;
+    finally
+      fOutFile.Free;
+      LogMessage('Download complete!');
+      SetControlsEnabled(true);
+    end;
+  end;
+end;
+
+procedure TClientForm.btGetListClick(Sender: TObject);
+var
+  files: FileInfoArray;
+  i: integer;
+  item: TListItem;
+begin
+  ROChannel.TargetURL := edTargetURL.Text;
+  files := nil;
+  lvFileList.Items.BeginUpdate;
+  try
+    lvFileList.Items.Clear;
+    files := (RORemoteService as IExtendedFileTransferService).GetFilesList;
+    for i := 0 to files.Count - 1 do begin
+      item := lvFileList.Items.Add;
+      item.Caption := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(files.Items[i].FileName);
+      item.SubItems.Append(IntToStr(files.Items[i].Size));
+      item.SubItems.Append({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(files.Items[i].TypeName));
+    end;
+    if lvFileList.Items.Count > 0 then begin
+      lvFileList.Selected := lvFileList.Items[0];
+      lvFileList.SetFocus;
+    end;
+  finally
+    if Assigned(files) then files.Free;
+        lvFileList.Items.EndUpdate;
+  end;
+end;
+
+procedure TClientForm.CalcChunkCount;
+var
+  size: integer;
+  chunk: integer;
+begin
+  if Assigned(lvFileList.Selected) then begin
+    size := StrToInt(lvFileList.Selected.SubItems[0]);
+    chunk := GetPartSize;
+    if chunk <> 0 then begin
+      if size mod chunk > 0 then edChunkCount.Text := IntToStr((size div chunk) + 1)
+      else edChunkCount.Text := IntToStr(size div chunk);
+    end
+    else edChunkCount.Text := 'Error!';
+  end;
+end;
+
+procedure TClientForm.cbChunkSizeChange(Sender: TObject);
+begin
+  CalcChunkCount;
+end;
+
+function TClientForm.GetPartSize: integer;
+begin
+    case cbChunkSize.ItemIndex of
+      0: Result := 500;
+      1: Result := 64 * 1024;
+      2: Result := 128 * 1024;
+      3: Result := 512 * 1024;
+      4: Result := 1 * 1024 * 1024;
+      5: Result := 2 * 1024 * 1024;
+      6: Result := 3 * 1024 * 1024;
+      else Result := 0;
+    end;
+end;
+
+procedure TClientForm.LogMessage(msg: string);
+begin
+  edLog.Lines.Append(msg);
+end;
+
+procedure TClientForm.lvFileListChange(Sender: TObject; Item: TListItem;
+  Change: TItemChange);
+begin
+  CalcChunkCount;
+end;
+
+procedure TClientForm.SetControlsEnabled(aState: boolean);
+begin
+  cbChunkSize.Enabled := aState;
+  edThreadCount.Enabled := aState;
+  btDownload.Enabled := aState;
+  edTargetURL.Enabled := aState;
+end;
+
+procedure TClientForm.WriteChunk(aChunkNo, aChunkSize: integer; aData: Binary);
+var
+  lOffset: integer;
+begin
+  lOffset := aChunkSize * (aChunkNo -  1);
+  fOutFile.Seek(lOffset, soFromBeginning);
+  fOutFile.CopyFrom(aData, aData.Size)
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fServerForm.dfm
new file mode 100644
index 0000000..877c8c2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fServerForm.dfm	
@@ -0,0 +1,89 @@
+object ServerForm: TServerForm
+  Left = 753
+  Top = 267
+  BorderStyle = bsDialog
+  Caption = 'Extended File Transfer Server'
+  ClientHeight = 209
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Label1: TLabel
+    Left = 8
+    Top = 161
+    Width = 71
+    Height = 13
+    Anchors = [akLeft, akBottom]
+    Caption = 'Shared Folder:'
+  end
+  object edSharedFolder: TEdit
+    Left = 8
+    Top = 180
+    Width = 187
+    Height = 21
+    Anchors = [akLeft, akBottom]
+    TabOrder = 0
+    Text = 'edSharedFolder'
+  end
+  object btBrowse: TButton
+    Left = 201
+    Top = 180
+    Width = 19
+    Height = 21
+    Hint = 'Browse for shared folder'
+    Anchors = [akLeft, akBottom]
+    Caption = '...'
+    ParentShowHint = False
+    ShowHint = True
+    TabOrder = 1
+    OnClick = btBrowseClick
+  end
+  object Memo1: TMemo
+    Left = 8
+    Top = 70
+    Width = 212
+    Height = 89
+    TabStop = False
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    Color = clBtnFace
+    Lines.Strings = (
+      'This sample shows how client can '
+      'download files exposed by server in '
+      'chunks.'
+      'In order to test this sample please put '
+      'some files in following shared folder on the '
+      'server side.')
+    ReadOnly = True
+    TabOrder = 2
+  end
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 36
+    Top = 8
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 8
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fServerForm.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fServerForm.pas
new file mode 100644
index 0000000..5eab0f8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fServerForm.pas	
@@ -0,0 +1,66 @@
+unit fServerForm;
+
+{$WARN SYMBOL_PLATFORM OFF}
+{$WARN UNIT_PLATFORM OFF}
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer;
+
+type
+  TServerForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    Label1: TLabel;
+    edSharedFolder: TEdit;
+    btBrowse: TButton;
+    Memo1: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure btBrowseClick(Sender: TObject);
+  private
+    { Private declarations }
+    function GetSharedFolder: string;
+  public
+    { Public declarations }
+    property SharedFolder: string read GetSharedFolder;
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+uses FileCtrl;
+
+{$R *.dfm}
+
+procedure TServerForm.btBrowseClick(Sender: TObject);
+var
+  newDir: string;
+begin
+  if DirectoryExists(edSharedFolder.Text)
+  then newDir := edSharedFolder.Text
+  else newDir := ExtractFilePath(ParamStr(0));
+
+  if SelectDirectory(newDir, [sdAllowCreate], 0)
+  then edSharedFolder.Text := newDir;
+end;
+
+procedure TServerForm.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+  edSharedFolder.Text := ExtractFilePath(ParamStr(0)) + 'SharedFolder';
+end;
+
+function TServerForm.GetSharedFolder: string;
+begin
+  if DirectoryExists(edSharedFolder.Text)
+  then Result := edSharedFolder.Text
+  else Result := ExtractFilePath(ParamStr(0));
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary.RODL
new file mode 100644
index 0000000..b45047c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary.RODL	
@@ -0,0 +1,25 @@
+<Library Name="NewLibrary" UID="{F5424991-9C21-418D-BF23-F97AEAE00AEB}" Documentation="">
+   <Services>
+      <Service Name="NewService" UID="{965CFF29-0411-49B3-9CCC-B176FE5364AD}">
+        <Interfaces>
+           <Interface Name="Default" UID="{D45A3E97-9C6B-4B02-A547-F172EB1B15AA}" Documentation="Service NewService. This service has been automatically generated using the RODL template you can find in the Templates directory.">
+      <Operations>
+         <Operation Name="Sum" UID="{3BC17C66-229F-447A-803C-C7CE2302D92D}" Documentation="">
+      <Parameters>
+         <Parameter Name="A" DataType="Integer" Flag="In" />
+         <Parameter Name="B" DataType="Integer" Flag="In" />
+         <Parameter Name="Result" DataType="Integer" Flag="Result" />
+      </Parameters>
+         </Operation>
+         <Operation Name="GetServerTime" UID="{BE9683B7-87D5-47EF-83A4-7AE14D54A4F0}" Documentation="">
+      <Parameters>
+         <Parameter Name="Result" DataType="DateTime" Flag="Result" />
+      </Parameters>
+         </Operation>
+      </Operations>
+
+           </Interface> 
+        </Interfaces>
+      </Service>
+   </Services>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Async.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Async.pas
new file mode 100644
index 0000000..758071c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Async.pas	
@@ -0,0 +1,108 @@
+unit NewLibrary_Async;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROTypes, uROClientIntf, uROAsync,
+  {Project:} NewLibrary_Intf;
+
+type
+  { INewService_Async }
+  INewService_Async = interface(IROAsyncInterface)
+    ['{5814142C-9CC8-49F2-B1E3-6E1925846287}']
+    procedure Invoke_Sum(const A: Integer; const B: Integer);
+    procedure Invoke_GetServerTime;
+    function Retrieve_Sum: Integer;
+    function Retrieve_GetServerTime: DateTime;
+  end;
+
+  { CoNewService_Async }
+  CoNewService_Async = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService_Async;
+  end;
+
+  { TNewService_AsyncProxy }
+  TNewService_AsyncProxy = class(TROAsyncProxy, INewService_Async)
+  private
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Invoke_Sum(const A: Integer; const B: Integer);
+    procedure Invoke_GetServerTime;
+    function Retrieve_Sum: Integer;
+    function Retrieve_GetServerTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils;
+
+{ CoNewService }
+
+class function CoNewService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService_Async;
+begin
+  result := TNewService_AsyncProxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TNewService_AsyncProxy }
+
+function TNewService_AsyncProxy.__GetInterfaceName:string;
+begin
+  result := 'NewService';
+end;
+
+procedure TNewService_AsyncProxy.Invoke_Sum(const A: Integer; const B: Integer);
+begin
+  __AssertProxyNotBusy('Sum');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'NewLibrary', __InterfaceName, 'Sum');
+  __Message.Write('A', TypeInfo(Integer), A, []);
+  __Message.Write('B', TypeInfo(Integer), B, []);
+  __DispatchAsyncRequest('Sum',__Message);
+end;
+
+function TNewService_AsyncProxy.Retrieve_Sum: Integer;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('Sum');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(Integer), Result, []);
+
+  __response.Free();
+end;
+
+procedure TNewService_AsyncProxy.Invoke_GetServerTime;
+begin
+  __AssertProxyNotBusy('GetServerTime');
+
+  __Message.InitializeRequestMessage(__TransportChannel, 'NewLibrary', __InterfaceName, 'GetServerTime');
+  __DispatchAsyncRequest('GetServerTime',__Message);
+end;
+
+function TNewService_AsyncProxy.Retrieve_GetServerTime: DateTime;
+var __response:TStream;
+begin
+  __response := __RetrieveAsyncResponse('GetServerTime');
+  __Message.ReadFromStream(__response);
+
+  __Message.Read('Result', TypeInfo(DateTime), Result, [paIsDateTime]);
+
+  __response.Free();
+end;
+
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Intf.pas
new file mode 100644
index 0000000..027c90f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Intf.pas	
@@ -0,0 +1,114 @@
+unit NewLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{0A070BB5-D201-420F-B01B-1BF69215F773}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  INewService_IID : TGUID = '{CCD13A49-5449-4AF7-960F-BB150D4D84A4}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  INewService = interface;
+
+
+  { INewService }
+  INewService = interface
+    ['{CCD13A49-5449-4AF7-960F-BB150D4D84A4}']
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+  { CoNewService }
+  CoNewService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService;
+  end;
+
+  { TNewService_Proxy }
+  TNewService_Proxy = class(TROProxy, INewService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoNewService }
+
+class function CoNewService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INewService;
+begin
+  result := TNewService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TNewService_Proxy }
+
+function TNewService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'NewService';
+end;
+
+function TNewService_Proxy.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'NewLibrary', __InterfaceName, 'Sum');
+    __Message.Write('A', TypeInfo(Integer), A, []);
+    __Message.Write('B', TypeInfo(Integer), B, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TNewService_Proxy.GetServerTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'NewLibrary', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(INewService_IID, TNewService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(INewService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Invk.pas
new file mode 100644
index 0000000..b478ba5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewLibrary_Invk.pas	
@@ -0,0 +1,77 @@
+unit NewLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} NewLibrary_Intf;
+
+type
+  {$M+}
+  TNewService_Invoker = class(TROInvoker)
+  private
+  protected
+  published
+    procedure Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+  {$M-}
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TNewService_Invoker }
+
+procedure TNewService_Invoker.Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Sum(const A: Integer; const B: Integer): Integer; }
+var
+  A: Integer;
+  B: Integer;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('A', TypeInfo(Integer), A, []);
+    __Message.Read('B', TypeInfo(Integer), B, []);
+
+    lResult := (__Instance as INewService).Sum(A, B);
+
+    __Message.InitializeResponseMessage(__Transport, 'NewLibrary', 'NewService', 'SumResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TNewService_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as INewService).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'NewLibrary', 'NewService', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewService_Impl.pas
new file mode 100644
index 0000000..d50316d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/NewService_Impl.pas	
@@ -0,0 +1,55 @@
+unit NewService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} NewLibrary_Intf;
+
+type
+  { TNewService }
+  TNewService = class(TRORemotable, INewService)
+  private
+  protected
+    { INewService methods }
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {Generated:} NewLibrary_Invk;
+
+procedure Create_NewService(out anInstance : IUnknown);
+begin
+  anInstance := TNewService.Create;
+end;
+
+{ NewService }
+function TNewService.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  Result := a + b;
+end;
+
+function TNewService.GetServerTime: DateTime;
+begin
+  result := Now;
+end;
+
+initialization
+  TROClassFactory.Create('NewService', Create_NewService, TNewService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/RODLFILE.res
new file mode 100644
index 0000000..81273dd
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/RemObjects.inc b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/RemObjects.inc
new file mode 100644
index 0000000..bbc33e5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/RemObjects.inc	
@@ -0,0 +1,151 @@
+{$INCLUDE eDefines.inc}
+
+{ Define to check for RemObjects SDK 3.0 [vs. future versions] }
+{.$DEFINE ROSDK4}
+{$DEFINE ROSDK5}
+
+{ Define to check for RemObjects SDK 3.0 and above [vs. older versions] }
+{$DEFINE ROSDK3UP}
+{$DEFINE ROSDK4UP}
+{$DEFINE ROSDK5UP}
+
+{ DXSock }
+
+    { To use RemObjects with the standalone version of DXSock, simply remove the
+      define below. Note that this has only been tested with DXSock 3.0, and that
+      doing so requires a separate license for DXSock from Brain PatchWorks
+      see http://www.bpdx.com for more information }
+
+    {$DEFINE RemObjects_USE_RODX}
+
+{ Internet Component Suite (ICS) }
+    { Internet Component Suite - http://www.overbyte.be }
+    
+    {$DEFINE RemObjects_ICS_v5}
+    {.$DEFINE RemObjects_ICS_v6}
+
+{ Indy }
+
+   { If you are using Indy 10.2.3 or the latest just uncomment the
+     RemObjects_INDY10C DEFINE right below, and remove the Indy
+     package references from the Requires section of RemObjects_Indy_Dx.dpk
+     before re-compiling your RemObjects Indy package. }
+
+  {.$DEFINE RemObjects_INDY10C}
+  {$IFDEF RemObjects_INDY10C}
+    {$DEFINE RemObjects_INDY10}  
+    {$DEFINE RemObjects_INDY10B}
+    {$DEFINE RemObjects_GLOBAL_INDY_DEFINE}
+  {$ENDIF}
+
+   { If you are using latest Indy 10 in Delphi 6 or 7, just uncomment the 
+     RemObjects_INDY10_in_Delphi67 DEFINE right below, and remove the Indy 
+     package references from the Requires section of RemObjects_Indy_Dx.dpk 
+     before re-compiling your RemObjects Indy package. }
+
+  {.$DEFINE RemObjects_INDY10_in_Delphi67}
+  {$IFDEF RemObjects_INDY10_in_Delphi67}
+    {$DEFINE RemObjects_INDY10}  
+    {$DEFINE RemObjects_INDY10B}  
+    {$DEFINE RemObjects_GLOBAL_INDY_DEFINE}
+  {$ENDIF}
+
+  {$IFNDEF RemObjects_GLOBAL_INDY_DEFINE}
+
+    {$UNDEF RemObjects_INDY8}
+    {$UNDEF RemObjects_INDY9}
+    {$UNDEF RemObjects_INDY10}
+
+    {$IFDEF FPC}
+    	{$DEFINE RemObjects_INDY10}
+    	{$DEFINE RemObjects_INDY10B}
+      {$DEFINE RemObjects_INDY10C}
+    {$ELSE}
+      {$IFDEF DELPHI12UP}
+        {$DEFINE RemObjects_INDY10}
+        {$DEFINE RemObjects_INDY10B}
+        {$DEFINE RemObjects_INDY10C}
+      {$ELSE}
+        {$IFDEF DELPHI10UP}
+          {$DEFINE RemObjects_INDY10}
+          {$DEFINE RemObjects_INDY10B}
+        {$ELSE}
+          {$IFDEF DELPHI9UP}
+            {$DEFINE RemObjects_INDY10}
+            {$DEFINE RemObjects_INDY10A}
+          {$ELSE}
+            {$IFDEF DELPHI7UP}
+              {$DEFINE RemObjects_INDY9}
+            {$ELSE}
+              {$DEFINE RemObjects_INDY8}
+            {$ENDIF}
+          {$ENDIF}
+        {$ENDIF}          
+      {$ENDIF}
+
+      {$IFDEF KYLIX}
+        {$IFDEF KYLIX3UP}
+          {$DEFINE RemObjects_INDY9}
+        {$ELSE}
+          {$DEFINE RemObjects_INDY8}
+        {$ENDIF}
+      {$ENDIF}
+    {$ENDIF}
+
+    { If you are using Indy 9 in Delphi 6 just uncomment the Indy9 DEFINE below,
+      and remove the Indy package references from the Requires section of
+      RemObjects_Indy_D6.dpk before compiling your RemObjects Indy package. }
+
+    {.$DEFINE RemObjects_INDY9}
+
+    {$IFDEF RemObjects_INDY9}
+      {$UNDEF RemObjects_INDY8}
+    {$ENDIF}
+
+  {$ENDIF}
+
+    { If you are using a newer version of Indy that properly works at designtime,
+      you can set define the define below. If the define is not set (as is the
+      default), Indy channels cannot be used to connect at designtime, trying so
+      will display a warning message.
+
+      If you enable this define and receive an Access Violation when trying to
+      connect at designtime, then your Indy version does not yet include the
+      fix for this problem. Please contact the Indy Crew for details.
+
+      This problem applies to the Delphi Windows IDE's only; Kylix is not affected. }
+
+    {.$DEFINE RemObjects_INDY_DESIGNTIME_FIX}
+
+{ Thread Names in Debugger }
+
+    {$IFDEF DELPHI7UP}
+      {$DEFINE RemObjects_SetThreadName}
+    {$ENDIF}
+
+{ XML }
+
+    {$IFDEF MSWINDOWS}
+      {$DEFINE RemObjects_MSXML}
+    {$ELSE}
+      {$DEFINE RemObjects_OpenXML}
+    {$ENDIF}
+
+    { if we someone manually defined RemObjects_OpenXML, then undef RemObjects_MSXML }
+    {$IFDEF RemObjects_OpenXML}
+      {$UNDEF RemObjects_MSXML}
+    {$ENDIF}
+
+{ Encryption }
+
+    {$IFDEF MSWINDOWS}
+      {$DEFINE RemObjects_UseEncryption }
+    {$ENDIF MSWINDOWS}
+
+    {$IFDEF FPC}
+      {$MODE DELPHI}
+      {$UNDEF RemObjects_UseEncryption}
+      {$DEFINE RemObjects_OpenXML}
+      {$UNDEF RemObjects_MSXML}
+    {$ENDIF}
+ {$Q-,B-,R-}
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.ico b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.ico
new file mode 100644
index 0000000..0341321
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.lpi b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.lpi
new file mode 100644
index 0000000..4d687e8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.lpi	
@@ -0,0 +1,85 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="\"/>
+    <Version Value="7"/>
+    <General>
+      <Flags>
+        <MainUnitHasUsesSectionForAllUnits Value="False"/>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+      </Flags>
+      <MainUnit Value="0"/>
+      <TargetFileExt Value=".exe"/>
+      <Icon Value="0"/>
+      <UseXPManifest Value="True"/>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+      <Language Value=""/>
+      <CharSet Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Indy_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item2>
+    </RequiredPackages>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="SimpleClient.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="SimpleClient"/>
+        <CursorPos X="21" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="SimpleClient.pas"/>
+        <UsageCount Value="20"/>
+        <SyntaxHighlighter Value="Text"/>
+      </Unit1>
+    </Units>
+    <JumpHistory Count="0" HistoryIndex="-1"/>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="8"/>
+    <PathDelim Value="\"/>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)\"/>
+    </SearchPaths>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.manifest b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.manifest
new file mode 100644
index 0000000..07fb624
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.manifest	
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+ <assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
+ <description>Your application description here.</description>
+ <dependency>
+  <dependentAssembly>
+   <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
+  </dependentAssembly>
+ </dependency>
+ <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
+  <security>
+   <requestedPrivileges>
+    <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+   </requestedPrivileges>
+  </security>
+ </trustInfo>
+</assembly>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.pas
new file mode 100644
index 0000000..f11b0c5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.pas	
@@ -0,0 +1,40 @@
+program SimpleClient;
+{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}
+uses
+  SysUtils,
+  Classes,
+  uROComInit,
+  uROBinMessage,
+  uROIndyHttpChannel,
+  NewLibrary_Intf;
+
+var
+  lService: INewService;
+  lMessage: TROBinMessage;
+  lChannel: TROIndyHTTPChannel;
+  a,b: Integer;
+begin
+  try
+    lMessage := TROBinMessage.Create(TComponent(nil));
+    lChannel := TROIndyHTTPChannel.Create(nil);
+    lChannel.Targeturl := 'http://localhost:8099/bin';
+    try
+      lService := CoNewService.Create(lMessage, lChannel);
+      Writeln('Calling Sum(a,b), please enter the first number:');
+      Readln(a);
+      Writeln('Please enter the second number:');
+      Readln(b);
+      Writeln('Trying to call Sum(a, b)');
+      Writeln('Result: ', lService.Sum(a, b));
+      Writeln('Trying to call GetServerTime');
+      Writeln('Result: ', DateTimeToStr(lService.GetServerTime));
+      ReadLn;
+    finally
+      lChannel.Free;
+      lMessage.Free;
+    end;
+  except
+    on e: Exception do
+      Writeln('Error trying to access the server: '+e.Message);
+  end;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.rc b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.rc
new file mode 100644
index 0000000..33a975f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleClient.rc	
@@ -0,0 +1,7 @@
+#define RT_MANIFEST  24
+#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
+#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
+#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
+
+CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "SimpleClient.manifest"
+MAINICON ICON "SimpleClient.ico"
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.ico b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.ico
new file mode 100644
index 0000000..0341321
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.lpi b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.lpi
new file mode 100644
index 0000000..e2db13f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.lpi	
@@ -0,0 +1,111 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="\"/>
+    <Version Value="7"/>
+    <General>
+      <Flags>
+        <MainUnitHasUsesSectionForAllUnits Value="False"/>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+      </Flags>
+      <MainUnit Value="0"/>
+      <TargetFileExt Value=".exe"/>
+      <Icon Value="0"/>
+      <UseXPManifest Value="True"/>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+      <Language Value=""/>
+      <CharSet Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="2">
+      <Item1>
+        <PackageName Value="RemObjects_Indy_Lazarus_Windows"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="RemObjects_Core_Lazarus_Windows"/>
+      </Item2>
+    </RequiredPackages>
+    <Units Count="3">
+      <Unit0>
+        <Filename Value="SimpleServer.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="SimpleServer"/>
+        <CursorPos X="3" Y="7"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="C:\lazarus\components\ro\Source\uROIndyHTTPServer.pas"/>
+        <UnitName Value="uROIndyHTTPServer"/>
+        <CursorPos X="23" Y="476"/>
+        <TopLine Value="457"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="NewLibrary_Intf.pas"/>
+        <UnitName Value="NewLibrary_Intf"/>
+        <CursorPos X="2" Y="11"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit2>
+    </Units>
+    <JumpHistory Count="3" HistoryIndex="2">
+      <Position1>
+        <Filename Value="SimpleServer.pas"/>
+        <Caret Line="1" Column="21" TopLine="1"/>
+      </Position1>
+      <Position2>
+        <Filename Value="C:\lazarus\components\ro\Source\uROIndyHTTPServer.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
+      </Position2>
+      <Position3>
+        <Filename Value="NewLibrary_Intf.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
+      </Position3>
+    </JumpHistory>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="8"/>
+    <PathDelim Value="\"/>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)\"/>
+    </SearchPaths>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.manifest b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.manifest
new file mode 100644
index 0000000..07fb624
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.manifest	
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+ <assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
+ <description>Your application description here.</description>
+ <dependency>
+  <dependentAssembly>
+   <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
+  </dependentAssembly>
+ </dependency>
+ <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
+  <security>
+   <requestedPrivileges>
+    <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+   </requestedPrivileges>
+  </security>
+ </trustInfo>
+</assembly>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.pas
new file mode 100644
index 0000000..0af8246
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.pas	
@@ -0,0 +1,35 @@
+program SimpleServer;
+{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}
+{$APPTYPE CONSOLE}
+{#ROGEN:NewLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROServer,
+  uROBinMessage,
+  uROIndyHTTPServer,
+  Classes,
+  NewLibrary_Intf in 'NewLibrary_Intf.pas',
+  NewLibrary_Invk in 'NewLibrary_Invk.pas',
+  NewService_Impl in 'NewService_Impl.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+var
+  ROMessage: TROBinMessage;
+  ROServer: TROIndyHTTPServer;
+begin
+  Writeln('RemObjects SDK for Delphi - Command Line Server');
+  ROMessage := TROBinMessage.Create(TComponent(nil));
+  ROServer := TROIndyHTTPServer.Create(nil);
+  TROMessageDispatcher(ROServer.Dispatchers.Add).Message := ROMessage;
+  try
+    ROServer.Active := true;
+    WriteLn('Server is active, press Enter to stop.');
+    Readln;
+  finally
+    ROServer.Free;
+    ROMessage.Free;
+  end;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.rc b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.rc
new file mode 100644
index 0000000..b212a1a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.rc	
@@ -0,0 +1,7 @@
+#define RT_MANIFEST  24
+#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
+#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
+#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
+
+CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "SimpleServer.manifest"
+MAINICON ICON "SimpleServer.ico"
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/SimpleServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/eDefines.inc b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/eDefines.inc
new file mode 100644
index 0000000..ef01d58
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/FPC Server/eDefines.inc	
@@ -0,0 +1,495 @@
+{----------------------------------------------------------------------------}
+{file:      eDefines.inc                                                     }
+{type:      Delphi include file                                              }
+{                                                                            }
+{compiler:  Borland Pascal 7,                                                }
+{           Delphi 1-7, 2005-2007 for Win32                                  }
+{           Kylix 1-3,                                                       }
+{           C++Builder 1-6, 2006-2007                                        }
+{           Free Pascal Compiler 2.x                                         }
+{                                                                            }
+{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X                  }
+{                                                                            }
+{author:    mh@elitedev.com                                                  }
+{                                                                            }
+{contents:  Defines that can be flexibily used to determine the exact        }
+{           compiler version used.                                           }
+{                                                                            }
+{(c)opyright elitedevelopments software. all rights reserved.                }
+{            http://www.elitedev.com                                         }
+{                                                                            }
+{ Third Party component developers are encouraged to use the set of defines  }
+{ established in this file, rather then their own system, for checking their }
+{ component libraries agains different versions of Delphi and C++Builder.    }
+{                                                                            }
+{ This file may be distributed freely with both free and commercial source   }
+{ libraries, but you are asked to please leave this comment in place, and    }
+{ to return any improvements you make to this file to the maintainer that    }
+{ is noted above.                                                            }
+{----------------------------------------------------------------------------}
+
+{----------------------------------------------------------------------------}
+{ Compiler and OS version defines:                                           }
+{                                                                            }
+{ exact compiler versions:                                                   }
+{                                                                            }
+{ BP7             Borland Pascal 7.0                                         }
+{ DELPHI1         Delphi 1.0 (any Delphi)                                    }
+{ DELPHI2         Delphi 2.0                                                 }
+{ DELPHI3         Delphi 3.0                                                 }
+{ DELPHI4         Delphi 4.0                                                 }
+{ DELPHI5         Delphi 5.0                                                 }
+{ DELPHI6         Delphi 6.0                                                 }
+{ DELPHI7         Delphi 7.0                                                 }
+{ DELPHI9         Delphi 2005                                                }
+{ DELPHI2005      Delphi 2005                                                }
+{ DELPHI2006      Delphi 2006                                                }
+{ DELPHI2007      Delphi 2007                                                }
+{ KYLIX1          Kylix 1.0                                                  }
+{ KYLIX2          Kylix 2.0                                                  }
+{ KYLIX3          Kylix 3.0                                                  }
+{ CBUILDER1       C++Builder 1.0                                             }
+{ CBUILDER3       C++Builder 3.0                                             }
+{ CBUILDER4       C++Builder 4.0                                             }
+{ CBUILDER5       C++Builder 5.0                                             }
+{                                                                            }
+{                                                                            }
+{ minimum compiler versions:                                                 }
+{                                                                            }
+{ DELPHI1UP       Delphi 1.0 and above (any Delphi)                          }
+{ DELPHI2UP       Delphi 2.0 and above                                       }
+{ DELPHI3UP       Delphi 3.0 and above                                       }
+{ DELPHI4UP       Delphi 4.0 and above                                       }
+{ DELPHI5UP       Delphi 5.0 and above                                       }
+{ DELPHI6UP       Delphi 6.0 and above                                       }
+{ DELPHI7UP       Delphi 7.0 and above                                       }
+{ DELPHI9UP       Delphi 9.0 (2005) and above                                }
+{ DELPHI10UP      Delphi 10.0 (2006) and above                               }
+{ DELPHI11UP      Delphi 11.0 (2007) and above                               }
+{ DELPHI2005UP    Delphi 2005 and above                                      }
+{ DELPHI2006UP    Delphi 2006 and above                                      }
+{ DELPHI2007UP    Delphi 2007 and above                                      }
+{ KYLIX1UP        Kylix 1.0 and above (any Kylix)                            }
+{ KYLIX2UP        Kylix 2.0 and above (any Kylix)                            }
+{ KYLIX3UP        Kylix 3.0 and above (any Kylix)                            }
+{ CBUILDER1UP     C++Builder 1.0 and above or Delphi 2 and above             }
+{ CBUILDER3UP     C++Builder 3.0 and above or Delphi 3.0 and above           }
+{ CBUILDER4UP     C++Builder 4.0 and above or Delphi 4.0 and above           }
+{ CBUILDER5UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{ CBUILDER6UP     C++Builder 5.0 and above or Delphi 5.0 and above           }
+{                                                                            }
+{                                                                            }
+{ compiler types:                                                            }
+{                                                                            }
+{ BP              Borland Pascal (not Delphi or C++Builder)                  }
+{ DELPHI          any Delphi version (but not C++Builder or Kylix)           }
+{ KYLIX           any Kylix version (not Delphi or C++Builder for Windows)   }
+{ CBUILDER        any C++Builder for Windows (Pascal)                        }
+{                                                                            }
+{                                                                            }
+{ target platforms compiler types:                                           }
+{                                                                            }
+{ DELPHI_16BIT    16bit Delphi (but not C++Builder!)                         }
+{ DELPHI_32BIT    32bit Delphi (but not C++Builder)                          }
+{ KYLIX_32BIT     32bit Kylix (but not C++Builder)                           }
+{ CBUILDER_32BIT  32bit C++Builer's Pascal (but not Delphi)                  }
+{                                                                            }
+{                                                                            }
+{ target cpu types                                                           }
+{                                                                            }
+{ CPU16           16bit Delphi or Borland Pascal                             }
+{ CPU32           32bit Delphi or Free Pascal                                }
+{ CPU64           64bit Free Pascal                                          }
+{                                                                            }
+{ target platforms                                                           }
+{                                                                            }
+{ DOS             any DOS (plain and DPMI)                                   }
+{ REALMODE        16bit realmode DOS                                         }
+{ PROTECTEDMODE   16bit DPMI DOS                                             }
+{                                                                            }
+{ MSWINDOWS       any Windows platform                                       }
+{ WIN16           16bit Windows                                              }
+{ WIN32           32bit Windows                                              }
+{ WIN64           64bit Windows                                              }
+{ DOTNET          .NET                                                       }
+{                                                                            }
+{ LINUX           any Linux platform                                         }
+{ LINUX32         32bit Linux                                                }
+{ LINUX64         64bit Linux                                                }
+{                                                                            }
+{ DARWIN          Any Mac OS X                                               }
+{ DARWIN32        32bit Mac OS X                                             }
+{ DARWIN64        64bit Mac OS X                                             }
+{----------------------------------------------------------------------------}
+
+{ defines for Borland Pascal 7.0 }
+{$IFDEF VER70}
+  {$DEFINE BP}
+  {$DEFINE BP7}
+  {$DEFINE 16BIT}
+  {$DEFINE CPU16}
+
+  { defines for BP7 DOS real mode }
+  {$IFDEF MSDOS}
+    {$DEFINE DOS}
+    {$DEFINE REALMODE}
+  {$ENDIF}
+
+  { defines for BP7 DOS protected mode }
+  {$IFDEF DPMI}
+    {$DEFINE DOS}
+    {$DEFINE PROTECTEDMODE}
+  {$ENDIF}
+
+  { defines for BP7 Windows }
+  {$IFDEF WINDOWS}
+    {$DEFINE MSWINDOWS}
+    {$DEFINE WIN16}
+  {$ENDIF}
+{$ENDIF}
+
+{ defines for Delphi 1.0 thru 7.0 }
+{$IFDEF MSWINDOWS}
+
+  { defines for Delphi 1.0 }
+  {$IFDEF VER80}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI1}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI_16BIT}
+    {$DEFINE WIN16}
+    {$DEFINE 16BIT}
+    {$DEFINE CPU16}
+  {$ENDIF}
+
+  { defines for Delphi 2.0 }
+  {$IFDEF VER90}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI2}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+  {$ENDIF}
+
+  { defines for C++Builder 1.0 }
+  {$IFDEF VER93}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER1}
+    {$DEFINE CBUILDER1UP}
+  {$ENDIF}
+
+  { defines for Delphi 3.0 }
+  {$IFDEF VER100}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI3}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+  {$ENDIF}
+
+  { defines for C++Builder 3.0 }
+  {$IFDEF VER110}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER3}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+  {$ENDIF}
+
+  { defines for Delphi 4.0 }
+  {$IFDEF VER120}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI4}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+  {$ENDIF}
+
+  { defines for C++Builder 4.0 }
+  {$IFDEF VER125}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER4}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+  {$ENDIF}
+  { defines for Delphi 5.0 }
+  {$IFDEF VER130}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI5}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+  {$ENDIF}
+
+  { defines for C++Builder 5.0 }
+  {$IFDEF VER135}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE CBUILDER}
+    {$DEFINE CBUILDER5}
+    {$DEFINE CBUILDER1UP}
+    {$DEFINE CBUILDER3UP}
+    {$DEFINE CBUILDER4UP}
+    {$DEFINE CBUILDER5UP}
+  {$ENDIF}
+
+  { defines for Delphi 6.0 }
+  {$IFDEF VER140}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI6}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+  {$ENDIF}
+
+  { defines for Delphi 7.0 }
+  {$IFDEF VER150}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI7}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+  {$ENDIF}
+
+  { defines for Delphi 2005 }
+  {$IFDEF VER170}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI9}
+    {$DEFINE DELPHI2005}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS3}
+    {$DEFINE BDS3UP}
+  {$ENDIF}
+
+  { defines for Delphi 2006 }
+  {$IFDEF VER180}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+    {$DEFINE DELPHI10}
+    {$DEFINE DELPHI10A}  
+    {$DEFINE DELPHI2006}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE BDS}
+    {$DEFINE BDS4}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+  {$ENDIF}
+
+  { defines for Delphi 2007 }
+  {$IFDEF VER185}
+    {$UNDEF DELPHI10A}  // declared in VER180
+    {$UNDEF DELPHI2006} // declared in VER180
+    {$UNDEF BDS4}       // declared in VER180
+
+    {$DEFINE DELPHI10B}    
+    {$DEFINE DELPHI10BUP}    
+    {$DEFINE DELPHI11}    
+    {$DEFINE DELPHI11UP}    
+    {$DEFINE DELPHI2007}
+    {$DEFINE DELPHI2007UP}    
+    {$DEFINE BDS5}
+    {$DEFINE BDS5UP}
+  {$ENDIF}
+
+  { defines for Delphi 2009 }
+  {$IFDEF VER200}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI12}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+
+    {$DEFINE DELPHI2009}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+
+    {$DEFINE BDS}
+    {$DEFINE BDS6}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+  {$ENDIF}
+
+  { defines for Delphi 2010 }
+  {$IFDEF VER210}
+    {$DEFINE VER140UP}
+    {$DEFINE DELPHI}
+
+    {$DEFINE DELPHI14}
+    {$DEFINE DELPHI1UP}
+    {$DEFINE DELPHI2UP}
+    {$DEFINE DELPHI3UP}
+    {$DEFINE DELPHI4UP}
+    {$DEFINE DELPHI5UP}
+    {$DEFINE DELPHI6UP}
+    {$DEFINE DELPHI7UP}
+    {$DEFINE DELPHI9UP}
+    {$DEFINE DELPHI10UP}
+    {$DEFINE DELPHI11UP}
+    {$DEFINE DELPHI12UP}
+    {$DEFINE DELPHI14UP}    
+
+    {$DEFINE DELPHI2010}
+    {$DEFINE DELPHI2005UP}
+    {$DEFINE DELPHI2006UP}
+    {$DEFINE DELPHI2007UP}
+    {$DEFINE DELPHI2009UP}
+    {$DEFINE DELPHI2010UP}    
+
+    {$DEFINE BDS}
+    {$DEFINE BDS7}
+    {$DEFINE BDS3UP}
+    {$DEFINE BDS4UP}
+    {$DEFINE BDS5UP}
+    {$DEFINE BDS6UP}
+    {$DEFINE BDS7UP}
+  {$ENDIF}
+  
+
+  {$IFDEF WIN32}
+    {$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
+    {$DEFINE 32BIT}
+    {$DEFINE CPU32}
+  {$ENDIF}
+
+{$ENDIF MSWINDOWS}
+
+{ defines for "Delphi for .NET" }
+{$IFDEF CLR}
+  {$DEFINE DOTNET}
+{$ENDIF}
+
+{$IFDEF DELPHI}
+  {$IFDEF DELPHI2UP}
+    {$DEFINE DELPHI_32BIT}
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF CBUILDER}
+  {$DEFINE CBUILDER_32BIT}
+{$ENDIF}
+
+{$IFNDEF FPC}
+
+  { Kylix 1.0 thru 3.0 }
+  {$IFDEF LINUX}
+
+    {$DEFINE VER140UP}
+
+    { Any Kylix }
+    {$DEFINE 32BIT}
+    {$DEFINE LINUX32}
+    {$DEFINE KYLIX_32BIT}
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+
+    {$IFDEF CONDITIONALEXPRESSIONS}
+      {$IF Declared(CompilerVersion)}
+
+         { Kylix 2.0 }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.1)}
+           {$DEFINE KYLIX2}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+         {$IFEND}
+
+         { Kylix 3.0 - Delphi portion }
+         {$IF Declared(RTLVersion) and (RTLVersion = 14.5)}
+           {$DEFINE KYLIX3}
+           {$DEFINE KYLIX1UP}
+           {$DEFINE KYLIX2UP}
+           {$DEFINE KYLIX3UP}
+         {$IFEND}
+
+      { Kylix 1.0 }
+      {$ELSE}
+        {$DEFINE KYLIX1}
+      {$IFEND}
+    {$ENDIF CONDITIONALEXPRESSIONS}
+
+  {$ENDIF LINUX}
+{$ENDIF}
+
+{ CPU }
+
+{$IFDEF FPC}
+  {$IFDEF MSWINDOWS}
+    {$IFDEF CPU64}
+      {$DEFINE WIN64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF LINUX}
+    {$IFDEF CPU32}
+      {$DEFINE LINUX32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE LINUX64}
+    {$ENDIF}
+  {$ENDIF}
+  {$IFDEF DARWIN}
+    {$IFDEF CPU32}
+      {$DEFINE DARWIN32}
+    {$ENDIF}
+    {$IFDEF CPU64}
+      {$DEFINE DARWIN64}
+    {$ENDIF}
+  {$ENDIF}
+{$ELSE}
+  {$DEFINE ENDIAN_LITTLE} // To have endianness symbol defined in Delphi too
+{$ENDIF}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/DownloadFiles/create.dir b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/DownloadFiles/create.dir
new file mode 100644
index 0000000..e69de29
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.Sample.html
new file mode 100644
index 0000000..a1da5ef
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.Sample.html	
@@ -0,0 +1,34 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>File Broadcast&nbsp;</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>This example shows how to transfer files to and from a RemObjects SDK Server in chunks and how to monitor new files via server events.</p>
+
+<h2>
+    Running the Sample</h2>
+        <ul>
+            <li>Build or Compile both projects.</li>
+            <li>Launch the server (note that you can modify the upload folder if you wish).</li>
+            <li>Open at least two clients.</li>
+        </ul>
+        <p>
+            To see exactly what is happening, it is best to change the Download folders so that
+            each client has its own.
+            <br />
+            When a file (or files) are uploaded via one client, they are then downloaded to
+            the other clients.<br>
+        </p>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.bdsgroup
new file mode 100644
index 0000000..a34cde0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{499105E9-0D39-4858-BC08-E0413F1F3B9A}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="FileBroadcastServer.exe">FileBroadcastServer.bdsproj</Projects>
+      <Projects Name="FileBroadcastClient.exe">FileBroadcastClient.bdsproj</Projects>
+      <Projects Name="Targets">FileBroadcastServer.exe FileBroadcastClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.bpg
new file mode 100644
index 0000000..f365c95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = FileBroadcastServer.exe FileBroadcastClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+FileBroadcastServer.exe: FileBroadcastServer.dpr
+  $(DCC)
+
+FileBroadcastClient.exe: FileBroadcastClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.groupproj
new file mode 100644
index 0000000..9448b26
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcast.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{93abbe12-86eb-458d-b59c-b049b9510415}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="FileBroadcastServer">
+    <MSBuild Projects="FileBroadcastServer.dproj" Targets="" />
+  </Target>
+  <Target Name="FileBroadcastServer:Clean">
+    <MSBuild Projects="FileBroadcastServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FileBroadcastServer:Make">
+    <MSBuild Projects="FileBroadcastServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FileBroadcastClient">
+    <MSBuild Projects="FileBroadcastClient.dproj" Targets="" />
+  </Target>
+  <Target Name="FileBroadcastClient:Clean">
+    <MSBuild Projects="FileBroadcastClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FileBroadcastClient:Make">
+    <MSBuild Projects="FileBroadcastClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="FileBroadcastServer;FileBroadcastClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="FileBroadcastServer:Clean;FileBroadcastClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="FileBroadcastServer:Make;FileBroadcastClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.bdsproj
new file mode 100644
index 0000000..353edda
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{32D5DBFD-A696-4B32-995D-36F3A9CEDD6F}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">FileBroadcastClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.dpr
new file mode 100644
index 0000000..747ca8f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.dpr	
@@ -0,0 +1,17 @@
+program FileBroadcastClient;
+
+uses
+//  uROComInit,
+  Forms,
+  FileBroadcastClientMain in 'FileBroadcastClientMain.pas' {FileBroadcastClientMainForm},
+  FileBroadcastClientUploadThread in 'FileBroadcastClientUploadThread.pas',
+  FileBroadcastClientDownloadThread in 'FileBroadcastClientDownloadThread.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'File Broadcast Client';
+  Application.CreateForm(TFileBroadcastClientMainForm, FileBroadcastClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.dproj
new file mode 100644
index 0000000..44c1d95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.dproj	
@@ -0,0 +1,80 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{9c87266b-b313-4bbb-b6cf-6e7371bfc3cc}</ProjectGuid>
+    <MainSource>FileBroadcastClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>FileBroadcastClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">FileBroadcastClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="FileBroadcastClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="FileBroadcastClientDownloadThread.pas" />
+    <DCCReference Include="FileBroadcastClientMain.pas">
+      <Form>FileBroadcastClientMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="FileBroadcastClientUploadThread.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientDownloadThread.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientDownloadThread.pas
new file mode 100644
index 0000000..d92303b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientDownloadThread.pas	
@@ -0,0 +1,199 @@
+unit FileBroadcastClientDownloadThread;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,
+  uROIndyTCPChannel, uROIndyHTTPChannel,
+  FileBroadcastLibrary_Intf, uROTypes;
+
+type
+
+  { TROThread }
+  TDownloadThread = class(TThread)
+  private
+    fROMessage: TROBinMessage;
+    fROChannel: TROIndyHTTPChannel;
+    fRORemoteService: TRORemoteService;
+    fOnAbort: TNotifyEvent;
+    fOnFinished: TNotifyEvent;
+    fOnProgress: TNotifyEvent;
+    fOnStartDownload: TNotifyEvent;
+    fOnError: TNotifyEvent;
+    fDownloadOK: Boolean;
+    fCurrentBytePos: Int64;
+    fTimeStarted: TDateTime;
+    fDownloadDir: string;
+    fFileService: IFileBroadcastService;
+    fErrortext: string;
+    fFileName: string;
+    fFileSize: Int64;
+    fInfoStr: string;
+    fMaxConnectionErrors, fChannelErrorscount: Integer;
+
+    procedure RunDownload;
+    procedure ROIndyChannelFailure(Sender: TROTransportChannel;
+      anException: Exception; var Retry: Boolean);
+    procedure Run;
+
+  protected
+  public
+    property DownloadOK: Boolean read fDownloadOK;
+    property FileName: string read fFileName;
+    property FileSize: Int64 read fFileSize;
+    property InfoStr: string read fInfoStr;
+    property ErrorText: string read fErrortext;
+    property CurrentBytePos: Int64 read fCurrentBytePos;
+    property TimeStarted: TDateTime read fTimeStarted;
+    constructor Create(aDownloadDir, aFilename: string; aFileSize: Int64;
+      aOnStartDownload, aOnProgress, aOnFinished, aOnAbort, aOnError:
+      TNotifyEvent);
+    destructor Destroy; override;
+
+    procedure Execute; override;
+  end;
+
+implementation
+uses FileBroadcastClientMain;
+
+{ TROThread }
+
+constructor TDownloadThread.Create(aDownloadDir, aFilename: string; aFileSize:
+  Int64; aOnStartDownload, aOnProgress, aOnFinished, aOnAbort, aOnError:
+  TNotifyEvent);
+begin
+  inherited Create(TRUE);
+  fDownloadDir := aDownloadDir;
+  fFilename := aFilename;
+  fFileSize := aFileSize;
+  fmaxconnectionerrors := 5; //try 5 times on channel-error
+
+  fROMessage := TROBinMessage.Create(nil);
+
+  fROChannel := TROIndyHTTPChannel.Create(nil);
+  fROChannel.OnFailure := ROIndyChannelFailure;
+  fROChannel.TargetURL := FileBroadcastClientMainForm.ROChannel.TargetURL;
+  fRORemoteService := TRORemoteService.Create(nil);
+
+  fRORemoteService.Channel := fROChannel;
+  fRORemoteService.Message := fROMessage;
+  fRORemoteService.ServiceName := 'FileBroadcastService';
+  fFileService := fRORemoteService as IFileBroadcastService;
+
+  if assigned(aOnAbort) then fOnAbort := aOnAbort;
+  if assigned(aOnFinished) then fOnFinished := aOnFinished;
+  if assigned(aOnProgress) then fOnProgress := aOnProgress;
+  if assigned(aOnStartDownload) then fOnStartDownload := aOnStartDownload;
+  if assigned(aOnError) then fOnError := aOnError;
+  FreeOnTerminate:=True;
+  Resume;
+end;
+
+destructor TDownloadThread.Destroy;
+begin
+  fFileService := nil;
+  FreeAndNil(fROMessage);
+  FreeAndNil(fROChannel);
+  FreeAndNil(fRORemoteService);
+  inherited;
+end;
+
+procedure TDownloadThread.Execute;
+begin
+  Run;
+end;
+
+procedure TDownloadThread.Run;
+begin
+  try
+    RunDownload;
+  finally
+    if assigned(fOnFinished) then fOnFinished(Self);
+  end;
+end;
+
+procedure TDownloadThread.RunDownload;
+var
+  NewFile: TMemoryStream;
+  Chunk: Binary;
+  Sequence: Integer;
+begin
+  fDownloadOK := false;
+  Chunk := nil;
+  try
+    if Terminated then begin
+      if assigned(fOnAbort) then fOnAbort(Self);
+      exit;
+    end;
+
+    NewFile := TMemoryStream.Create;
+    try
+      fCurrentBytePos := 0;
+      Sequence := 1;
+      fTimeStarted := Now;
+
+      fFileService.downloadsequence(fFilename, Sequence, chunk, fFileSize);
+
+      fInfoStr := DateTimetoStr(fTimeStarted) + ' ' +
+        ExtractFileName(fFilename) + ' ' +
+        FloatToStrF(fFilesize / 1024, fffixed, 15, 1) + ' KB';
+
+      if assigned(fOnStartDownload) then
+        fOnStartDownload(Self);
+        while (chunk <> nil) and  (Chunk.Size > 0) do begin
+          if Terminated then begin
+            FreeAndNil(Chunk);
+            if assigned(fOnAbort) then fOnAbort(Self);
+            exit;
+          end;
+
+          NewFile.Seek(0, soFromEnd);
+          NewFile.CopyFrom(Chunk, Chunk.Size);
+          Inc(fCurrentBytePos, Chunk.Size);
+
+          FreeAndNil(Chunk);
+
+          if assigned(fOnProgress) then
+            fOnProgress(Self);
+          Inc(Sequence);
+          fFileService.downloadsequence(fFilename, Sequence, chunk, fFileSize);
+        end;
+
+      fDownloadOK := (NewFile.Size = 0) or (fFileSize = CurrentBytePos);
+
+      if fDownloadOK then begin
+        NewFile.SaveToFile(IncludeTrailingPathDelimiter(fDownloadDir) + fFilename);
+        fDownloadOK := Fileexists(IncludeTrailingPathDelimiter(fDownloadDir) + fFilename);
+      end;
+
+    finally
+      FreeAndNil(Chunk);
+      NewFile.Free;
+    end;
+
+  except
+    on e: Exception do begin
+      fErrorText := e.Message;
+      fDownloadOK := false;
+      if assigned(fOnError) then fOnError(Self);
+    end;
+  end;
+end;
+
+procedure TDownloadThread.ROIndyChannelFailure(Sender: TROTransportChannel;
+  anException: Exception; var Retry: Boolean);
+begin
+  if fChannelErrorscount > fMaxConnectionerrors then begin
+    fErrorText := anException.Message;
+    Self.terminate;
+  end
+  else begin
+    inc(fChannelErrorscount);
+    sleep(1000);
+    Retry := true;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientMain.dfm
new file mode 100644
index 0000000..4fc0672
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientMain.dfm	
@@ -0,0 +1,91 @@
+object FileBroadcastClientMainForm: TFileBroadcastClientMainForm
+  Left = 451
+  Top = 393
+  ActiveControl = UploadButton
+  AutoScroll = False
+  Caption = 'File Broadcast Client'
+  ClientHeight = 369
+  ClientWidth = 615
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label4: TLabel
+    Left = 7
+    Top = 9
+    Width = 80
+    Height = 13
+    Caption = 'Download folder:'
+  end
+  object UploadButton: TButton
+    Left = 222
+    Top = 343
+    Width = 171
+    Height = 22
+    Anchors = [akLeft, akBottom]
+    Caption = 'Upload to other client(s)'
+    TabOrder = 3
+    OnClick = UploadButtonClick
+  end
+  object eFolder: TEdit
+    Left = 91
+    Top = 5
+    Width = 486
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    Color = clBtnFace
+    ReadOnly = True
+    TabOrder = 0
+  end
+  object bSelectFolder: TButton
+    Left = 583
+    Top = 4
+    Width = 22
+    Height = 22
+    Anchors = [akTop, akRight]
+    Caption = '...'
+    TabOrder = 1
+    OnClick = bSelectFolderClick
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 29
+    Width = 615
+    Height = 310
+    Align = alCustom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ScrollBars = ssBoth
+    TabOrder = 2
+  end
+  object ROMessage: TROBinMessage
+    Left = 95
+    Top = 120
+  end
+  object ROChannel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 67
+    Top = 120
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'FileBroadcastService'
+    Left = 123
+    Top = 120
+  end
+  object EventReceiver: TROEventReceiver
+    Interval = 1200
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'FileBroadcastService'
+    Left = 152
+    Top = 121
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientMain.pas
new file mode 100644
index 0000000..5fb7d8c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientMain.pas	
@@ -0,0 +1,241 @@
+{ Extented FileTransfer-Example by Joe Blocher (www.myticket.at)
+  based on
+  Remobjects: Filetransfer-Example, Threads-Example
+  Eric Hill (TeamRO): Block-Transfer
+
+  * Simultanous uploading files using threads (Multiselect in OpenDialog)
+  * All other clients will start download automatically
+}
+
+unit FileBroadcastClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  Buttons, SyncObjs, FileBroadcastLibrary_Intf,
+  uROEventRepository;
+
+type
+  TFileBroadcastClientMainForm = class(TForm, IFileEvents)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    UploadButton: TButton;
+    EventReceiver: TROEventReceiver;
+    Label4: TLabel;
+    eFolder: TEdit;
+    bSelectFolder: TButton;
+    Memo: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure UploadButtonClick(Sender: TObject);
+    procedure bSelectFolderClick(Sender: TObject);
+  private
+    { Private declarations }
+    fCritical: TCriticalSection;
+    fFileService: IFileBroadcastService;
+    procedure Log(Mes: Widestring);
+    procedure OnDownloadAborted(Sender: TObject);
+    procedure OnDownloadError(Sender: TObject);
+    procedure OnDownloadFinished(Sender: TObject);
+    procedure OnDownloadProgress(Sender: TObject);
+    procedure OnDownloadStarted(Sender: TObject);
+    procedure OnUploadAborted(Sender: TObject);
+    procedure OnUploadError(Sender: TObject);
+    procedure OnUploadFinished(Sender: TObject);
+    procedure OnUploadProgress(Sender: TObject);
+    procedure OnUploadStarted(Sender: TObject);
+    {IFileEvents}
+    procedure OnNewFileAvailable(const filename: Widestring; const filesize: Int64);
+  public
+    { Public declarations }
+  end;
+
+var
+  FileBroadcastClientMainForm: TFileBroadcastClientMainForm;
+
+implementation
+{$WARN UNIT_PLATFORM OFF}
+uses
+  FileCtrl,
+  FileBroadcastClientUploadThread,
+  FileBroadcastClientDownloadThread;
+{$WARN UNIT_PLATFORM ON}  
+
+{$R *.dfm}
+
+procedure TFileBroadcastClientMainForm.FormCreate(Sender: TObject);
+begin
+  fCritical := TCriticalSection.create;
+  eFolder.Text := ExtractFilePath(Paramstr(0)) + 'DownloadFiles\';
+  ForceDirectories(eFolder.Text);
+  fFileService := RORemoteService as IFileBroadcastService;
+  EventReceiver.RegisterEventHandlers([EID_FileEvents], [Self]);
+  EventReceiver.Active := True;
+end;
+
+procedure TFileBroadcastClientMainForm.FormDestroy(Sender: TObject);
+begin
+  try
+    EventReceiver.Active := False;
+    EventReceiver.UnregisterEventHandlers([EID_FileEvents]);
+  finally
+    fFileService := nil;
+    fCritical.Free;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnDownloadAborted(Sender: TObject);
+begin
+  fCritical.Enter;
+  with Sender as TDownloadThread do try
+    // Do something
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnDownloadError(Sender: TObject);
+
+begin
+  fCritical.Enter;
+  with Sender as TDownloadThread do try
+    Log('Download ' + Filename + ': ' + Errortext);
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnDownloadStarted(Sender: TObject);
+begin
+  fCritical.Enter;
+  with Sender as TDownloadThread do try
+    Log(InfoStr + ': Download started');
+    //Do something other: create new Progressbar (Max = FileSize .... )
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnDownloadProgress(Sender: TObject);
+begin
+  fCritical.Enter;
+  try
+    //Update Progressbar .... Use CurrentBytePos
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnDownloadFinished(Sender: TObject);
+begin
+  fCritical.Enter;
+  with Sender as TDownloadThread do try
+    if DownloadOK then begin
+      Log(InfoStr + ': Download finished');
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnUploadAborted(Sender: TObject);
+begin
+  fCritical.Enter;
+  with Sender as TUploadThread do try
+    // Do something  -> Add Serviceoperation: Delete File ....
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnUploadError(Sender: TObject);
+
+begin
+  fCritical.Enter;
+  with Sender as TUploadThread do try
+    Log('Upload ' + Filename + ': ' + Errortext);
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnUploadStarted(Sender: TObject);
+begin
+  fCritical.Enter;
+  with Sender as TUploadThread do try
+    Log(InfoStr + ': Upload started');
+    //Do something other: create Progressbar (Max = FileSize .... )
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnUploadProgress(Sender: TObject);
+begin
+  fCritical.Enter;
+  try
+    //Update Progressbar .... Use CurrentBytePos
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnUploadFinished(Sender: TObject);
+begin
+  fCritical.Enter;
+  with Sender as TUploadThread do try
+    if UploadOK then begin
+      Log(InfoStr + ': Upload finished');
+      fFileService.uploadfinished(Filename, FileSize);
+    end;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.UploadButtonClick(Sender: TObject);
+var
+  i: Integer;
+begin
+  with TOpendialog.Create(nil) do try
+    InitialDir := 'c:\';
+    Filename := '*.*';
+    Filter := 'All Files (*.*)|*.*';
+    Filterindex := 1;
+    options := options + [ofAllowMultiSelect];
+    if Execute then
+      for i := 0 to Files.count - 1 do
+        TUploadThread.Create(Files[i], OnUploadStarted, OnUploadProgress, OnUploadFinished, OnUploadAborted, OnUploadError);
+  finally
+    free;
+  end;
+end;
+
+procedure TFileBroadcastClientMainForm.OnNewFileAvailable(const filename: Widestring; const filesize:
+  Int64);
+begin
+  TDownloadThread.Create(eFolder.Text, filename, filesize,
+    OnDownloadStarted, OnDownloadProgress, OnDownloadFinished,
+    OnDownloadAborted, OnDownloadError);
+end;
+
+procedure TFileBroadcastClientMainForm.bSelectFolderClick(
+  Sender: TObject);
+var
+  ffolder: string;
+begin
+  ffolder := eFolder.Text;
+  SelectDirectory(ffolder, [sdAllowCreate, sdPerformCreate, sdPrompt], 0);
+  eFolder.Text := IncludeTrailingPathDelimiter(ffolder);
+end;
+
+procedure TFileBroadcastClientMainForm.Log(Mes: Widestring);
+begin
+  Memo.Lines.Add(Mes);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientUploadThread.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientUploadThread.pas
new file mode 100644
index 0000000..079da84
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastClientUploadThread.pas	
@@ -0,0 +1,216 @@
+unit FileBroadcastClientUploadThread;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,
+   uROIndyTCPChannel, uROIndyHTTPChannel,
+  FileBroadcastLibrary_Intf, uROTypes;
+
+type
+
+  { TROThread }
+  TUploadThread = class(TThread)
+  private
+    fROMessage: TROBinMessage;
+    fROChannel: TROIndyHTTPChannel;
+    fRORemoteService: TRORemoteService;
+    fOnAbort: TNotifyEvent;
+    fOnFinished: TNotifyEvent;
+    fOnProgress: TNotifyEvent;
+    fOnStartUpload: TNotifyEvent;
+    fOnError: TNotifyEvent;
+    fFileName: string;
+    fUploadOK: Boolean;
+    fFileSize: Int64;
+    fCurrentBytePos: Int64;
+    fTimeStarted: TDateTime;
+    fFileService: IFileBroadcastService;
+    fErrorText: string;
+    fInfoStr: string;
+    fMaxConnectionErrors, fChannelErrorscount: Integer;
+    procedure Runupload;
+    function GetUploadChunk(FileMemStream: TMemoryStream; aSize: Int64;
+      const Sequence: Integer): Binary;
+    procedure ROIndyChannelFailure(Sender: TROTransportChannel;
+      anException: Exception; var Retry: Boolean);
+    procedure Run;
+
+  protected
+  public
+    property UploadOK: Boolean read fUploadOK;
+    property FileSize: Int64 read fFileSize;
+    property CurrentBytePos: Int64 read fCurrentBytePos;
+    property TimeStarted: TDateTime read fTimeStarted;
+    property ErrorText: string read fErrortext;
+    property Filename: string read fFilename;
+    property InfoStr: string read fInfoStr;
+    constructor Create(aFileName: string; aOnStartUpload, aOnProgress,
+      aOnFinished, aOnAbort, aOnError: TNotifyEvent);
+    destructor Destroy; override;
+
+    procedure Execute; override;
+  end;
+
+implementation
+
+uses FileBroadcastClientMain;
+
+{ TROThread }
+
+constructor TUploadThread.Create(aFileName: string; aOnStartUpload, aOnProgress,
+  aOnFinished, aOnAbort, aOnError: TNotifyEvent);
+begin
+  inherited Create(TRUE);
+  fFilename := aFilename;
+  fmaxconnectionerrors := 5; //try 5 times on channel-error
+
+  fROMessage := TROBinMessage.Create(nil);
+  fROChannel := TROIndyHTTPChannel.Create(nil);
+  fROChannel.OnFailure := ROIndyChannelFailure;
+  fROChannel.TargetURL :=FileBroadcastClientMainForm.ROChannel.TargetURL;
+
+  fRORemoteService := TRORemoteService.Create(nil);
+  fRORemoteService.Channel := fROChannel;
+  fRORemoteService.Message := fROMessage;
+  fRORemoteService.ServiceName := 'FileBroadcastService';
+  fFileService := fRORemoteService as IFileBroadcastService;
+
+  if assigned(aOnAbort) then fOnAbort := aOnAbort;
+  if assigned(aOnFinished) then fOnFinished := aOnFinished;
+  if assigned(aOnProgress) then fOnProgress := aOnProgress;
+  if assigned(aOnStartUpload) then fOnStartUpload := aOnStartUpload;
+  if assigned(aOnError) then fOnError := aOnError;
+  FreeOnTerminate:=True;
+  Resume;
+end;
+
+destructor TUploadThread.Destroy;
+begin
+  fFileService := nil;
+  FreeAndNil(fROMessage);
+  FreeAndNil(fROChannel);
+  FreeAndNil(fRORemoteService);
+  inherited;
+end;
+
+procedure TUploadThread.Run;
+begin
+  try
+    RunUpload;
+  finally
+    if assigned(fOnFinished) then fOnFinished(Self);
+  end;
+end;
+
+procedure TUploadThread.Execute;
+begin
+  Run;
+end;
+
+function TUploadThread.GetUploadChunk(FileMemStream: TMemoryStream; aSize:
+  Int64; const Sequence: Integer): Binary;
+const
+  Block: Integer = 65536;
+var
+  Position: Int64;
+begin
+  Result := Binary.Create;
+  Position := Block * (Sequence - 1);
+  if Position <= aSize then begin
+    FileMemStream.Position := Position;
+    if Position + Block > aSize then
+      Result.CopyFrom(FileMemStream, aSize - Position)
+    else
+      Result.CopyFrom(FileMemStream, Block);
+  end;
+end;
+
+procedure TUploadThread.Runupload;
+var
+  FileMemStream: TMemoryStream;
+  Chunk: Binary;
+  Sequence: Int64;
+  isfirst: Boolean;
+begin
+  fErrorText := '';
+  fUploadOK := false;
+  fChannelErrorscount := 0;
+  fCurrentBytePos := 0;
+  Sequence := 1;
+  fTimeStarted := Now;
+  FileMemStream := nil;
+  isfirst := true;
+  try
+
+    if FileExists(fFilename) then try
+      FileMemStream := TMemoryStream.Create;
+
+      FileMemStream.LoadFromFile(fFileName);
+      fFileName := ExtractFileName(fFileName);
+
+      fFileSize := FileMemStream.Size;
+
+      fInfoStr := DateTimetoStr(fTimeStarted) + ' ' +
+        fFileName + ' ' +
+        FloatToStrF(Filesize / 1024, fffixed, 15, 1) + ' KB';
+
+      if assigned(fOnStartUpload) then fOnStartUpload(Self);
+      Chunk := GetUploadChunk(FileMemStream, fFileSize, Sequence);
+      Inc(fCurrentBytePos, Chunk.Size);
+      Inc(Sequence);
+      try
+        fFileService.uploadChunk(isfirst, fFileName, Chunk);
+        FreeAndNil(Chunk);
+        isfirst := false;
+        Chunk := GetUploadChunk(FileMemStream, fFileSize, Sequence);
+        while Chunk.Size > 0 do begin
+
+          if Terminated then begin
+            if assigned(fOnAbort) then fOnAbort(Self);
+            exit;
+          end;
+
+          fFileService.uploadChunk(isfirst, fFileName, Chunk);
+
+          Inc(fCurrentBytePos, Chunk.Size);
+          FreeAndNil(Chunk);
+
+          Inc(Sequence);
+          if assigned(fOnProgress) then fOnProgress(Self);
+          Chunk := GetUploadChunk(FileMemStream, fFileSize, Sequence);
+        end;
+
+        fUploadOK := (FileSize = 0) or (FileSize = CurrentBytePos);
+      finally
+        FreeAndNil(Chunk);
+      end;
+    finally
+      FileMemStream.Free;
+    end;
+
+  except
+    on e: Exception do begin
+      fErrorText := e.Message;
+      if assigned(fOnError) then fOnError(Self);
+    end;
+  end;
+end;
+
+procedure TUploadThread.ROIndyChannelFailure(Sender: TROTransportChannel;
+  anException: Exception; var Retry: Boolean);
+begin
+  if fChannelErrorscount > fMaxConnectionerrors then begin
+    fErrorText := anException.Message;
+    Self.terminate;
+  end
+  else begin
+    inc(fChannelErrorscount);
+    sleep(1000);
+    Retry := true;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary.rodl
new file mode 100644
index 0000000..73e8bca
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary.rodl	
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="FileBroadcastLibrary" UID="{915A4222-6FA3-43A2-AE8B-C517E0F844BB}" Version="3.0">
+<Services>
+<Service Name="FileBroadcastService" UID="{C4CBAE83-9C7A-46CE-BD58-9EDABE960365}">
+<Interfaces>
+<Interface Name="Default" UID="{2A7AFE06-0600-46ED-9B7A-C694A1191311}">
+<Operations>
+<Operation Name="downloadsequence" UID="{4C655D89-5B39-4D2A-BF74-DA9221CBE3B5}">
+<Parameters>
+<Parameter Name="filename" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="sequence" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="filedata" DataType="Binary" Flag="Out" >
+</Parameter>
+<Parameter Name="filesize" DataType="Int64" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="uploadchunk" UID="{45FA3993-5DBB-4731-B2D6-CE3DA82062FE}">
+<Parameters>
+<Parameter Name="isfirst" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="filename" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="filedata" DataType="Binary" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="uploadfinished" UID="{CDE894F0-8BCF-4920-9E46-685E9284D5D7}">
+<Parameters>
+<Parameter Name="filename" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="filesize" DataType="Int64" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+<EventSink Name="FileEvents" UID="{DB2190E0-F394-47A1-B51F-B2DD7DC70421}">
+<Interfaces>
+<Interface Name="Default" UID="{E03490F1-99B5-4310-B3E8-F4C96BEAD1A5}">
+<Operations>
+<Operation Name="OnNewFileAvailable" UID="{B35B7924-D803-4D8E-97F9-2CA6CF5803CD}">
+<Parameters>
+<Parameter Name="filename" DataType="Widestring" Flag="In">
+</Parameter>
+<Parameter Name="filesize" DataType="Int64" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</EventSink>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary_Intf.pas
new file mode 100644
index 0000000..1650fda
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary_Intf.pas	
@@ -0,0 +1,200 @@
+unit FileBroadcastLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{915A4222-6FA3-43A2-AE8B-C517E0F844BB}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IFileBroadcastService_IID : TGUID = '{2A7AFE06-0600-46ED-9B7A-C694A1191311}';
+
+  { Event ID's }
+  EID_FileEvents = 'FileEvents';
+
+type
+  { Forward declarations }
+  IFileBroadcastService = interface;
+
+  IFileEvents = interface;
+
+
+  { IFileBroadcastService }
+  IFileBroadcastService = interface
+    ['{2A7AFE06-0600-46ED-9B7A-C694A1191311}']
+    procedure downloadsequence(const filename: Widestring; const sequence: Integer; out filedata: Binary; out filesize: Int64);
+    procedure uploadchunk(const isfirst: Boolean; const filename: Widestring; const filedata: Binary);
+    procedure uploadfinished(const filename: Widestring; const filesize: Int64);
+  end;
+
+  { CoFileBroadcastService }
+  CoFileBroadcastService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFileBroadcastService;
+  end;
+
+  { TFileBroadcastService_Proxy }
+  TFileBroadcastService_Proxy = class(TROProxy, IFileBroadcastService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure downloadsequence(const filename: Widestring; const sequence: Integer; out filedata: Binary; out filesize: Int64);
+    procedure uploadchunk(const isfirst: Boolean; const filename: Widestring; const filedata: Binary);
+    procedure uploadfinished(const filename: Widestring; const filesize: Int64);
+  end;
+
+  { IFileEvents }
+  IFileEvents = interface
+    ['{E03490F1-99B5-4310-B3E8-F4C96BEAD1A5}']
+    procedure OnNewFileAvailable(const filename: Widestring; const filesize: Int64);
+  end;
+
+  { IFileEvents_Writer }
+  IFileEvents_Writer = interface(IROEventWriter)
+    ['{E03490F1-99B5-4310-B3E8-F4C96BEAD1A5}']
+    procedure OnNewFileAvailable(const __Sender : TGUID; const filename: Widestring; const filesize: Int64);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoFileBroadcastService }
+
+class function CoFileBroadcastService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFileBroadcastService;
+begin
+  result := TFileBroadcastService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TFileBroadcastService_Proxy }
+
+function TFileBroadcastService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'FileBroadcastService';
+end;
+
+procedure TFileBroadcastService_Proxy.downloadsequence(const filename: Widestring; const sequence: Integer; out filedata: Binary; out filesize: Int64);
+begin
+  try
+    filedata := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FileBroadcastLibrary', __InterfaceName, 'downloadsequence');
+    __Message.Write('filename', TypeInfo(Widestring), filename, []);
+    __Message.Write('sequence', TypeInfo(Integer), sequence, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('filedata', TypeInfo(Binary), filedata, []);
+    __Message.Read('filesize', TypeInfo(Int64), filesize, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TFileBroadcastService_Proxy.uploadchunk(const isfirst: Boolean; const filename: Widestring; const filedata: Binary);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FileBroadcastLibrary', __InterfaceName, 'uploadchunk');
+    __Message.Write('isfirst', TypeInfo(Boolean), isfirst, []);
+    __Message.Write('filename', TypeInfo(Widestring), filename, []);
+    __Message.Write('filedata', TypeInfo(Binary), filedata, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TFileBroadcastService_Proxy.uploadfinished(const filename: Widestring; const filesize: Int64);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FileBroadcastLibrary', __InterfaceName, 'uploadfinished');
+    __Message.Write('filename', TypeInfo(Widestring), filename, []);
+    __Message.Write('filesize', TypeInfo(Int64), filesize, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TFileEvents_Writer }
+  TFileEvents_Writer = class(TROEventWriter, IFileEvents_Writer)
+  protected
+    procedure OnNewFileAvailable(const __Sender : TGUID; const filename: Widestring; const filesize: Int64);
+  end;
+
+procedure TFileEvents_Writer.OnNewFileAvailable(const __Sender : TGUID; const filename: Widestring; const filesize: Int64);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'FileBroadcastLibrary', EID_FileEvents, 'OnNewFileAvailable');
+    __Message.Write('filename', TypeInfo(Widestring), filename, []);
+    __Message.Write('filesize', TypeInfo(Int64), filesize, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TFileEvents_Invoker }
+  TFileEvents_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnNewFileAvailable(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TFileEvents_Invoker.Invoke_OnNewFileAvailable(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+  filename: Widestring;
+  filesize: Int64;
+begin
+
+    __Message.Read('filename', TypeInfo(Widestring), filename, []);
+    __Message.Read('filesize', TypeInfo(Int64), filesize, []);
+
+    (__Target as IFileEvents).OnNewFileAvailable(filename, filesize);
+
+end;
+
+initialization
+  RegisterProxyClass(IFileBroadcastService_IID, TFileBroadcastService_Proxy);
+
+  RegisterEventWriterClass(IFileEvents_Writer, TFileEvents_Writer);
+  RegisterEventInvokerClass(EID_FileEvents, TFileEvents_Invoker);
+
+finalization
+  UnregisterProxyClass(IFileBroadcastService_IID);
+
+  UnregisterEventWriterClass(IFileEvents_Writer);
+  UnregisterEventInvokerClass(EID_FileEvents);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary_Invk.pas
new file mode 100644
index 0000000..1317b60
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastLibrary_Invk.pas	
@@ -0,0 +1,132 @@
+unit FileBroadcastLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} FileBroadcastLibrary_Intf;
+
+type
+  TFileBroadcastService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_downloadsequence(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_uploadchunk(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_uploadfinished(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TFileBroadcastService_Invoker }
+
+constructor TFileBroadcastService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TFileBroadcastService_Invoker.Invoke_downloadsequence(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure downloadsequence(const filename: Widestring; const sequence: Integer; out filedata: Binary; out filesize: Int64); }
+var
+  filename: Widestring;
+  sequence: Integer;
+  filedata: Binary;
+  filesize: Int64;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  filedata := nil;
+  try
+    __Message.Read('filename', TypeInfo(Widestring), filename, []);
+    __Message.Read('sequence', TypeInfo(Integer), sequence, []);
+
+    (__Instance as IFileBroadcastService).downloadsequence(filename, sequence, filedata, filesize);
+
+    __Message.InitializeResponseMessage(__Transport, 'FileBroadcastLibrary', 'FileBroadcastService', 'downloadsequenceResponse');
+    __Message.Write('filedata', TypeInfo(Binary), filedata, []);
+    __Message.Write('filesize', TypeInfo(Int64), filesize, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(filedata);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TFileBroadcastService_Invoker.Invoke_uploadchunk(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure uploadchunk(const isfirst: Boolean; const filename: Widestring; const filedata: Binary); }
+var
+  isfirst: Boolean;
+  filename: Widestring;
+  filedata: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  filedata := nil;
+  try
+    __Message.Read('isfirst', TypeInfo(Boolean), isfirst, []);
+    __Message.Read('filename', TypeInfo(Widestring), filename, []);
+    __Message.Read('filedata', TypeInfo(Binary), filedata, []);
+
+    (__Instance as IFileBroadcastService).uploadchunk(isfirst, filename, filedata);
+
+    __Message.InitializeResponseMessage(__Transport, 'FileBroadcastLibrary', 'FileBroadcastService', 'uploadchunkResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(filedata);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TFileBroadcastService_Invoker.Invoke_uploadfinished(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure uploadfinished(const filename: Widestring; const filesize: Int64); }
+var
+  filename: Widestring;
+  filesize: Int64;
+begin
+  try
+    __Message.Read('filename', TypeInfo(Widestring), filename, []);
+    __Message.Read('filesize', TypeInfo(Int64), filesize, []);
+
+    (__Instance as IFileBroadcastService).uploadfinished(filename, filesize);
+
+    __Message.InitializeResponseMessage(__Transport, 'FileBroadcastLibrary', 'FileBroadcastService', 'uploadfinishedResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.bdsproj
new file mode 100644
index 0000000..f903af1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1F34CE93-B647-4DB3-AEDD-D5E7F3585737}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">FileBroadcastServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.dpr
new file mode 100644
index 0000000..d7c3869
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.dpr	
@@ -0,0 +1,30 @@
+program FileBroadcastServer;
+
+{#ROGEN:FileBroadcastLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  FileBroadcastServerData in 'FileBroadcastServerData.pas' {FileBroadcastServerDataForm: TDataModule},
+  FileBroadcastServerMain in 'FileBroadcastServerMain.pas' {FileBroadcastServerMainForm},
+  FileBroadcastLibrary_Intf in 'FileBroadcastLibrary_Intf.pas',
+  FileBroadcastLibrary_Invk in 'FileBroadcastLibrary_Invk.pas',
+  FileBroadcastService_Impl in 'FileBroadcastService_Impl.pas' {FileBroadcastService: TRORemoteDataModule};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('FileBroadcast', 'FileBroadcast') then begin
+    ROService.CreateForm(TFileBroadcastServerDataForm, FileBroadcastServerDataForm);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.Title := 'File Broadcast Server';
+  Application.CreateForm(TFileBroadcastServerDataForm, FileBroadcastServerDataForm);
+  Application.CreateForm(TFileBroadcastServerMainForm, FileBroadcastServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.dproj
new file mode 100644
index 0000000..5bab594
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{91fd316e-e998-4bae-842e-a815181a9ef0}</ProjectGuid>
+    <MainSource>FileBroadcastServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>FileBroadcastServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">FileBroadcastServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="FileBroadcastServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="FileBroadcastLibrary_Intf.pas" />
+    <DCCReference Include="FileBroadcastLibrary_Invk.pas" />
+    <DCCReference Include="FileBroadcastServerData.pas">
+      <Form>FileBroadcastServerDataForm</Form>
+    </DCCReference>
+    <DCCReference Include="FileBroadcastServerMain.pas">
+      <Form>FileBroadcastServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="FileBroadcastService_Impl.pas">
+      <Form>FileBroadcastService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.res
new file mode 100644
index 0000000..95e15d9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerData.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerData.dfm
new file mode 100644
index 0000000..67ef096
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerData.dfm	
@@ -0,0 +1,35 @@
+object FileBroadcastServerDataForm: TFileBroadcastServerDataForm
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 276
+  Top = 104
+  Height = 192
+  Width = 242
+  object ROMessage: TROBinMessage
+    Left = 42
+    Top = 24
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 90
+    Top = 10
+  end
+  object ROInMemoryEventRepository: TROInMemoryEventRepository
+    Message = ROMessage
+    SessionManager = ROInMemorySessionManager
+    Left = 41
+    Top = 105
+  end
+  object ROInMemorySessionManager: TROInMemorySessionManager
+    SessionDuration = 1
+    Left = 40
+    Top = 62
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerData.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerData.pas
new file mode 100644
index 0000000..b116e4e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerData.pas	
@@ -0,0 +1,37 @@
+unit FileBroadcastServerData;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROServer, uROIndyTCPServer,
+  uROPoweredByRemObjectsButton, uROClientIntf, uROClasses,
+  uROBinMessage, uROIndyHTTPServer, uROSessions, uROEventRepository;
+
+type
+  TFileBroadcastServerDataForm = class(TDataModule)
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    ROInMemoryEventRepository: TROInMemoryEventRepository;
+    ROInMemorySessionManager: TROInMemorySessionManager;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FileBroadcastServerDataForm: TFileBroadcastServerDataForm;
+  uploadFolder: string;
+
+implementation
+
+{$R *.dfm}
+
+procedure TFileBroadcastServerDataForm.DataModuleCreate(Sender: TObject);
+begin
+  ROServer.Active := TRUE;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerMain.dfm
new file mode 100644
index 0000000..c9c0ca9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerMain.dfm	
@@ -0,0 +1,65 @@
+object FileBroadcastServerMainForm: TFileBroadcastServerMainForm
+  Left = 373
+  Top = 250
+  ActiveControl = bSelectFolder
+  BorderStyle = bsDialog
+  Caption = 'File Broadcast Server'
+  ClientHeight = 176
+  ClientWidth = 435
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 111
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Label1: TLabel
+    Left = 8
+    Top = 58
+    Width = 66
+    Height = 13
+    Caption = 'Upload folder:'
+  end
+  object eFolder: TEdit
+    Left = 8
+    Top = 72
+    Width = 389
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    Color = clBtnFace
+    ReadOnly = True
+    TabOrder = 0
+  end
+  object bSelectFolder: TButton
+    Left = 405
+    Top = 71
+    Width = 22
+    Height = 22
+    Anchors = [akTop, akRight]
+    Caption = '...'
+    TabOrder = 1
+    OnClick = bSelectFolderClick
+  end
+  object Memo1: TMemo
+    Left = 8
+    Top = 104
+    Width = 393
+    Height = 57
+    BorderStyle = bsNone
+    Color = cl3DLight
+    Lines.Strings = (
+      'When a client uploads a file:'
+      '1) it is transferred to the Upload folder specified above'
+      
+        '2) it is then downloaded into the Download folder of other clien' +
+        'ts')
+    TabOrder = 2
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerMain.pas
new file mode 100644
index 0000000..beccde0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastServerMain.pas	
@@ -0,0 +1,54 @@
+unit FileBroadcastServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROClasses;
+
+type
+  TFileBroadcastServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    Label1: TLabel;
+    eFolder: TEdit;
+    bSelectFolder: TButton;
+    Memo1: TMemo;
+    procedure bSelectFolderClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FileBroadcastServerMainForm: TFileBroadcastServerMainForm;
+
+implementation
+{$WARN UNIT_PLATFORM OFF}
+uses
+  FileCtrl,
+  FileBroadcastServerData;
+{$WARN UNIT_PLATFORM ON}
+
+
+{$R *.dfm}
+
+procedure TFileBroadcastServerMainForm.bSelectFolderClick(
+  Sender: TObject);
+begin
+  SelectDirectory(FileBroadcastServerData.uploadFolder, [sdAllowCreate, sdPerformCreate, sdPrompt], 0);
+  FileBroadcastServerData.uploadFolder := IncludeTrailingPathDelimiter(FileBroadcastServerData.uploadFolder);
+  eFolder.Text := FileBroadcastServerData.uploadFolder;
+  ForceDirectories(eFolder.Text);
+end;
+
+procedure TFileBroadcastServerMainForm.FormCreate(Sender: TObject);
+begin
+  eFolder.Text := ExtractFilePath(ParamStr(0)) + 'ServerFiles\';
+  ForceDirectories(eFolder.Text);
+  FileBroadcastServerData.uploadFolder := eFolder.Text;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastService_Impl.dfm
new file mode 100644
index 0000000..385a582
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastService_Impl.dfm	
@@ -0,0 +1,9 @@
+object FileBroadcastService: TFileBroadcastService
+  OldCreateOrder = True
+  SessionManager = FileBroadcastServerDataForm.ROInMemorySessionManager
+  EventRepository = FileBroadcastServerDataForm.ROInMemoryEventRepository
+  Left = 200
+  Top = 200
+  Height = 139
+  Width = 218
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastService_Impl.pas
new file mode 100644
index 0000000..0848322
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/FileBroadcastService_Impl.pas	
@@ -0,0 +1,104 @@
+unit FileBroadcastService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Windows, Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uRORemoteDataModule,
+  {Generated:} FileBroadcastLibrary_Intf,
+  FileBroadcastServerData;
+
+type
+  { TFileBroadcastService }
+  TFileBroadcastService = class(TRORemoteDataModule, IFileBroadcastService)
+  private
+    function getFileDirectory: Widestring;
+  protected
+    { IFileBroadcastService methods }
+    procedure downloadsequence(const filename: Widestring; const sequence: Integer; out filedata: Binary; out filesize: Int64);
+    procedure uploadchunk(const isfirst: Boolean; const filename: Widestring; const filedata: Binary);
+    procedure uploadfinished(const filename: Widestring; const filesize: Int64);
+  end;
+
+implementation
+{$R *.dfm}
+uses
+  {Generated:} FileBroadcastLibrary_Invk;
+
+procedure Create_FileBroadcastService(out anInstance: IUnknown);
+begin
+  anInstance := TFileBroadcastService.Create(nil);
+end;
+
+{ FileBroadcastService }
+
+procedure TFileBroadcastService.downloadsequence(const filename: Widestring; const sequence: Integer; out filedata: Binary; out filesize: Int64);
+const
+  Block: Integer = 65536;
+var
+  Position: Int64;
+  MemStream: TFileStream;
+  localfilename: Widestring;
+begin
+  fileData := Binary.Create;
+  localfilename := getFileDirectory + filename;
+  if not FileExists(localfilename) then exit;
+  MemStream := TFileStream.Create(localfilename, fmopenRead);
+  try
+    FileSize := MemStream.Size;
+    Position := Block * (Sequence - 1);
+    if Position <= FileSize then begin
+      MemStream.Position := Position;
+      if Position + Block > FileSize then
+        fileData.CopyFrom(MemStream, FileSize - Position)
+      else
+        fileData.CopyFrom(MemStream, Block);
+    end;
+  finally
+    MemStream.Free;
+  end;
+end;
+
+function TFileBroadcastService.getFileDirectory: Widestring;
+begin
+  result := FileBroadcastServerData.uploadFolder;
+end;
+
+procedure TFileBroadcastService.uploadchunk(const isfirst: Boolean; const filename: Widestring; const filedata: Binary);
+var
+  NewFile: TFileStream;
+  localfilename: Widestring;
+begin
+  localfilename := getFileDirectory + filename;
+  if isfirst and Fileexists(localfilename) then DeleteFile(localfilename);
+  if FileExists(localfilename) then
+    NewFile := TFileStream.Create(localfilename, fmOpenReadWrite)
+  else
+    NewFile := TFileStream.Create(localfilename, fmCreate);
+  try
+    NewFile.Seek(0, soFromEnd);
+    filedata.SaveToStream(NewFile);
+  finally
+    NewFile.Free;
+  end;
+end;
+
+procedure TFileBroadcastService.uploadfinished(const filename: Widestring; const filesize: Int64);
+begin
+  (EventRepository as IFileEvents_Writer).OnNewFileAvailable(Session.SessionID, filename, filesize);
+end;
+
+initialization
+  TROClassFactory.Create('FileBroadcastService', Create_FileBroadcastService, TFileBroadcastService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/RODLFILE.res
new file mode 100644
index 0000000..d5ab3aa
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/ServerFiles/create.dir b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/File Broadcast/ServerFiles/create.dir
new file mode 100644
index 0000000..e69de29
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.Sample.html
new file mode 100644
index 0000000..3bddd34
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.Sample.html	
@@ -0,0 +1,48 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>FirstSample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>This sample provides an introduction to using the Delphi edition of the  RemObjects SDK product.  The example shows how to define/implement methods on the server and how to access them from the client. The data consists of name information and four simple methods are provided by the service:  Nicknames, VerifyName, CheckName and FullNames.</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Launch the server (via the menu option: <strong>RemObjects | Launch Server Executable</strong>).</li>
+	<li>Ensure that FirstSampleClient is the selected project and run it.</li>
+	<li>Check that the client buttons work as expected.</li>
+	<li>Modify the server names list and retry client actions.</li>
+	</ul>
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	    See how the four methods were defined by editing the service library. 
+	    Do this by making the <strong>server</strong> the selected project and 
+	    by using the menu option: <strong>RemObjects | Edit Service Library</strong>. 
+	    Note: if you don't see this menu option but see 'Service Builder' instead, 
+	    you still have the client set as the current project. 
+	    Examine the methods added to <strong>FirstSampleService</strong>.
+	</li>
+	<li>
+	   Check how the server methods were implemented in 
+	   <strong>FirstSampleService_Impl.pas</strong>.
+	</li>
+	<li>
+	   Examine the simple code needed to invoke the methods in 
+	   <strong>FirstSampleClientMain.pas</strong>.
+	</li>
+</ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.bdsgroup
new file mode 100644
index 0000000..ca7b4af
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{A880C22B-8A55-4C36-8203-19D6C08B6590}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="FirstSampleServer.exe">FirstSampleServer.bdsproj</Projects>
+      <Projects Name="FirstSampleClient.exe">FirstSampleClient.bdsproj</Projects>
+      <Projects Name="Targets">FirstSampleServer.exe FirstSampleClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.bpg
new file mode 100644
index 0000000..1de9e53
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = FirstSampleServer.exe FirstSampleClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+FirstSampleServer.exe: FirstSampleServer.dpr
+  $(DCC)
+
+FirstSampleClient.exe: FirstSampleClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.groupproj
new file mode 100644
index 0000000..c7cf1ad
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{2eda1776-3224-4223-aefc-d172f74514f9}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="FirstSampleServer">
+    <MSBuild Projects="FirstSampleServer.dproj" Targets="" />
+  </Target>
+  <Target Name="FirstSampleServer:Clean">
+    <MSBuild Projects="FirstSampleServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FirstSampleServer:Make">
+    <MSBuild Projects="FirstSampleServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FirstSampleClient">
+    <MSBuild Projects="FirstSampleClient.dproj" Targets="" />
+  </Target>
+  <Target Name="FirstSampleClient:Clean">
+    <MSBuild Projects="FirstSampleClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FirstSampleClient:Make">
+    <MSBuild Projects="FirstSampleClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="FirstSampleServer;FirstSampleClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="FirstSampleServer:Clean;FirstSampleClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="FirstSampleServer:Make;FirstSampleClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.rodl
new file mode 100644
index 0000000..3c02c59
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample.rodl	
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="FirstSample" UID="{37D864AA-068E-457B-81C3-828305C09F88}" Version="3.0">
+<Services>
+<Service Name="FirstSampleService" UID="{1FC2C634-DE3A-4275-9B3F-D55FC8275C0A}">
+<Interfaces>
+<Interface Name="Default" UID="{BC25168D-B5BF-47F3-AE9D-0E457528F16E}">
+<Operations>
+<Operation Name="Nicknames" UID="{2ED60F1C-2A6F-4CE2-B095-D55EDDDECB00}">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+<Parameter Name="FullName" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="FullNames" UID="{6C8F63CD-0EF8-4EF4-A1F7-AABAA0DE91C9}">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+<Parameter Name="Nickname" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="VerifyName" UID="{CB6FA615-AAA2-4B91-9F20-EE7374502C9C}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="NickName" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="FullName" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="CheckName" UID="{27F15F4E-441C-4A9F-9B02-F1D37FD0ABEC}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="NickName" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.bdsproj
new file mode 100644
index 0000000..52080c7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{38102D3E-B3C1-4AFC-AB90-7EF88110530E}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">FirstSampleClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.cfg
new file mode 100644
index 0000000..9d13f67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.cfg	
@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dof
new file mode 100644
index 0000000..e5fef7b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dof	
@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;DataAbstract_Core_D7;DataAbstract_IDE_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;PascalScript_RO_D7;Hydra_Core_D7;Hydra_RO_D7;cxLibraryVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxsbD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxPageControlVCLD7;cxGridVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;dxEdtrD7;dxELibD7;cxVerticalGridVCLD7;cxSpreadSheetVCLD7;dxNavBarD7;dxMasterViewD7;dxmdsD7;dxDBEdD7;dxInsD7;dxObjInsD7;dxPSCoreD7;dxPSTeeChartD7;dxPsPrVwAdvD7;dxPSLnksD7;dxPSdxInsLnkD7;dxPSdxMVLnkD7;dxPSdxOILnkD7;dxPSDBTeeChartD7;dxPScxCommonD7;dxPScxTLLnkD7;dxPScxSSLnkD7;dxPScxSchedulerLnkD7;dxPScxPCProdD7;dxPScxGridLnkD7;dxPScxExtCommonD7;dxPScxVGridLnkD7;VCLZipD7_3;dxLayoutControlD7;dxLayoutControldxEditAdaptersD7;dxLayoutControlcxEditAdaptersD7;dxPSdxLCLnkD7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2057
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dpr
new file mode 100644
index 0000000..a0470c2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dpr	
@@ -0,0 +1,14 @@
+program FirstSampleClient;
+
+uses
+  Forms,
+  FirstSample_Intf in 'FirstSample_Intf.pas',
+  FirstSampleClientMain in 'FirstSampleClientMain.pas' {FirstSampleClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TFirstSampleClientMainForm, FirstSampleClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dproj
new file mode 100644
index 0000000..8902cc1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.dproj	
@@ -0,0 +1,79 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e57c53cf-fbec-4c7d-9e68-1fabdf6c87ab}</ProjectGuid>
+    <MainSource>FirstSampleClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>FirstSampleClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">FirstSampleClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="FirstSampleClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="FirstSampleClientMain.pas">
+      <Form>FirstSampleClientMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="FirstSample_Intf.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.res
new file mode 100644
index 0000000..6560ede
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClientMain.dfm
new file mode 100644
index 0000000..534a24e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClientMain.dfm	
@@ -0,0 +1,138 @@
+object FirstSampleClientMainForm: TFirstSampleClientMainForm
+  Left = 226
+  Top = 109
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = 'FirstSample Client'
+  ClientHeight = 517
+  ClientWidth = 318
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  PixelsPerInch = 120
+  TextHeight = 16
+  object GroupBox1: TGroupBox
+    Left = 11
+    Top = 10
+    Width = 297
+    Height = 277
+    Caption = 'Get Nickname(s) by Full Name'
+    TabOrder = 0
+    object eFullname: TEdit
+      Left = 10
+      Top = 26
+      Width = 160
+      Height = 21
+      TabOrder = 0
+      Text = 'Carla Simon'
+    end
+    object NamesBox: TListBox
+      Left = 10
+      Top = 59
+      Width = 160
+      Height = 201
+      ItemHeight = 16
+      TabOrder = 1
+    end
+    object GetButton: TButton
+      Left = 177
+      Top = 23
+      Width = 96
+      Height = 31
+      Caption = 'Get'
+      TabOrder = 2
+      OnClick = GetButtonClick
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 11
+    Top = 295
+    Width = 297
+    Height = 62
+    Caption = 'Check if Nickname exists'
+    TabOrder = 1
+    object eNickname: TEdit
+      Left = 10
+      Top = 25
+      Width = 160
+      Height = 21
+      TabOrder = 0
+      Text = 'Maria'
+    end
+    object CheckButton: TButton
+      Left = 183
+      Top = 20
+      Width = 93
+      Height = 30
+      Caption = 'Check'
+      TabOrder = 1
+      OnClick = CheckButtonClick
+    end
+  end
+  object GroupBox3: TGroupBox
+    Left = 11
+    Top = 364
+    Width = 297
+    Height = 139
+    Caption = 'Check that nickname and Full Name match'
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 10
+      Top = 71
+      Width = 64
+      Height = 16
+      Caption = 'Full Name:'
+    end
+    object Label3: TLabel
+      Left = 10
+      Top = 20
+      Width = 64
+      Height = 16
+      Caption = 'Nickname:'
+    end
+    object eFullname2: TEdit
+      Left = 10
+      Top = 95
+      Width = 160
+      Height = 21
+      TabOrder = 1
+      Text = 'Maria Anders'
+    end
+    object eNickname2: TEdit
+      Left = 10
+      Top = 41
+      Width = 160
+      Height = 21
+      TabOrder = 0
+      Text = 'Maria'
+    end
+    object VerifyButton: TButton
+      Left = 187
+      Top = 58
+      Width = 92
+      Height = 31
+      Caption = 'Verify'
+      TabOrder = 2
+      OnClick = VerifyButtonClick
+    end
+  end
+  object ROBinMessage: TROBinMessage
+    Left = 184
+    Top = 64
+  end
+  object ROWinInetHTTPChannel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 184
+    Top = 96
+  end
+  object RORemoteService: TRORemoteService
+    ServiceName = 'FirstSampleService'
+    Message = ROBinMessage
+    Channel = ROWinInetHTTPChannel
+    Left = 184
+    Top = 128
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClientMain.pas
new file mode 100644
index 0000000..b51e15e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleClientMain.pas	
@@ -0,0 +1,77 @@
+unit FirstSampleClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs,  uRORemoteService, uROClient,
+  uROWinInetHttpChannel, uROBinMessage, StdCtrls, FirstSample_Intf;
+
+type
+  TFirstSampleClientMainForm = class(TForm)
+    ROBinMessage: TROBinMessage;
+    ROWinInetHTTPChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    eNickname: TEdit;
+    CheckButton: TButton;
+    GroupBox1: TGroupBox;
+    eFullname: TEdit;
+    eFullname2: TEdit;
+    eNickname2: TEdit;
+    NamesBox: TListBox;
+    GetButton: TButton;
+    GroupBox2: TGroupBox;
+    GroupBox3: TGroupBox;
+    Label1: TLabel;
+    Label3: TLabel;
+    VerifyButton: TButton;
+    procedure GetButtonClick(Sender: TObject);
+    procedure CheckButtonClick(Sender: TObject);
+    procedure VerifyButtonClick(Sender: TObject);
+  private
+    fFirstService: IFirstSampleService;
+  public
+    constructor Create(aOwner: TComponent); override;
+  end;
+
+var
+  FirstSampleClientMainForm: TFirstSampleClientMainForm;
+
+implementation
+
+uses  Math, StrUtils;
+
+{$R *.dfm}
+
+constructor TFirstSampleClientMainForm.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fFirstService := (RORemoteService as IFirstSampleService);
+end;
+
+procedure TFirstSampleClientMainForm.GetButtonClick(Sender: TObject);
+begin
+  NamesBox.Items.CommaText := fFirstService.Nicknames(eFullname.Text);
+end;
+
+procedure TFirstSampleClientMainForm.CheckButtonClick(Sender: TObject);
+var
+  isFound: Boolean;
+  fullname: Widestring;
+begin
+  isFound := fFirstService.CheckName(eNickname.Text);
+  fullname := IfThen(isFound,''''+fFirstService.FullNames(eNickname.Text)+'''','not found!');
+  ShowMessage(Format('''%s'' is %s',[eNickname.Text,fullname]));
+end;
+
+procedure TFirstSampleClientMainForm.VerifyButtonClick(Sender: TObject);
+var
+  isFound: Boolean;
+begin
+  isFound := fFirstService.VerifyName(eNickname2.Text, eFullname2.Text);
+  ShowMessage(IfThen(isFound, 'Verified!', 'Not verified!'));
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.bdsproj
new file mode 100644
index 0000000..f89940a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{19815A38-EA75-4CF1-99FC-6B703EEF63CE}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">FirstSampleServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.cfg
new file mode 100644
index 0000000..9d13f67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.cfg	
@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dof
new file mode 100644
index 0000000..e5fef7b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dof	
@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;DataAbstract_Core_D7;DataAbstract_IDE_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;PascalScript_RO_D7;Hydra_Core_D7;Hydra_RO_D7;cxLibraryVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxsbD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxPageControlVCLD7;cxGridVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;dxEdtrD7;dxELibD7;cxVerticalGridVCLD7;cxSpreadSheetVCLD7;dxNavBarD7;dxMasterViewD7;dxmdsD7;dxDBEdD7;dxInsD7;dxObjInsD7;dxPSCoreD7;dxPSTeeChartD7;dxPsPrVwAdvD7;dxPSLnksD7;dxPSdxInsLnkD7;dxPSdxMVLnkD7;dxPSdxOILnkD7;dxPSDBTeeChartD7;dxPScxCommonD7;dxPScxTLLnkD7;dxPScxSSLnkD7;dxPScxSchedulerLnkD7;dxPScxPCProdD7;dxPScxGridLnkD7;dxPScxExtCommonD7;dxPScxVGridLnkD7;VCLZipD7_3;dxLayoutControlD7;dxLayoutControldxEditAdaptersD7;dxLayoutControlcxEditAdaptersD7;dxPSdxLCLnkD7
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2057
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dpr
new file mode 100644
index 0000000..7bbdf4e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dpr	
@@ -0,0 +1,19 @@
+program FirstSampleServer;
+
+{#ROGEN:FirstSample.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  Forms,
+  FirstSample_Intf in 'FirstSample_Intf.pas',
+  FirstSample_Invk in 'FirstSample_Invk.pas',
+  FirstSampleService_Impl in 'FirstSampleService_Impl.pas' {FirstSampleService: TRORemoteDataModule},
+  FirstSampleServerMain in 'FirstSampleServerMain.pas' {FirstSampleServerMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TFirstSampleService, FirstSampleService);
+  Application.CreateForm(TFirstSampleServerMainForm, FirstSampleServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dproj
new file mode 100644
index 0000000..36f2419
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.dproj	
@@ -0,0 +1,83 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{9c04a9b4-5f94-42d6-94f6-41c3c6de8226}</ProjectGuid>
+    <MainSource>FirstSampleServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>FirstSampleServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">FirstSampleServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="FirstSampleServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="FirstSampleServerMain.pas">
+      <Form>FirstSampleServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="FirstSampleService_Impl.pas">
+      <Form>FirstSampleService</Form>
+    </DCCReference>
+    <DCCReference Include="FirstSample_Intf.pas" />
+    <DCCReference Include="FirstSample_Invk.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.res
new file mode 100644
index 0000000..6560ede
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServerMain.dfm
new file mode 100644
index 0000000..9f5458b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServerMain.dfm	
@@ -0,0 +1,113 @@
+object FirstSampleServerMainForm: TFirstSampleServerMainForm
+  Left = 290
+  Top = 103
+  AutoScroll = False
+  BorderIcons = [biSystemMenu]
+  Caption = 'FirstSample Server'
+  ClientHeight = 470
+  ClientWidth = 245
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton: TROPoweredByRemObjectsButton
+    Left = 16
+    Top = 0
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object ValueListEditor: TValueListEditor
+    Left = 0
+    Top = 47
+    Width = 241
+    Height = 316
+    Align = alCustom
+    DisplayOptions = [doColumnTitles, doAutoColResize]
+    KeyOptions = [keyEdit, keyAdd, keyDelete, keyUnique]
+    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goEditing, goAlwaysShowEditor, goThumbTracking]
+    Strings.Strings = (
+      'Fred=Fred Smith'
+      'Tom=Tom Jones'
+      'Carla=Carla Simon'
+      'singer=Carla Simon'
+      'Maria=Maria Anders'
+      'Antonio=Antonio Moreno'
+      'Hanna=Hanna Moos'
+      'Victoria=Victoria Ashworth'
+      'Yang=Yang Wang'
+      'Pedro=Pedro Afonso'
+      'Sven=Sven Ottlieb'
+      'TJ=Tom Jones'
+      'cs=Carla Simon')
+    TabOrder = 0
+    TitleCaptions.Strings = (
+      'Nickname'
+      'Full Name')
+    OnStringsChange = ValueListEditorStringsChange
+    OnValidate = ValueListEditorValidate
+    ColWidths = (
+      145
+      146)
+  end
+  object Memo1: TMemo
+    Left = 0
+    Top = 395
+    Width = 245
+    Height = 75
+    Align = alBottom
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clNavy
+    Font.Height = -15
+    Font.Name = 'Arial'
+    Font.Style = [fsItalic]
+    Lines.Strings = (
+      'Note: for the sake of simplicity, any '
+      'changes made to the list above are '
+      'not saved but, of course, adding '
+      'persistence is very easy.')
+    ParentColor = True
+    ParentFont = False
+    ReadOnly = True
+    TabOrder = 1
+  end
+  object AddButton: TButton
+    Left = 32
+    Top = 369
+    Width = 75
+    Height = 22
+    Anchors = [akLeft, akBottom]
+    Caption = 'Add'
+    TabOrder = 2
+    OnClick = AddButtonClick
+  end
+  object DeleteButton: TButton
+    Left = 128
+    Top = 369
+    Width = 75
+    Height = 22
+    Anchors = [akLeft, akBottom]
+    Caption = 'Delete'
+    TabOrder = 3
+    OnClick = DeleteButtonClick
+  end
+  object ROServer: TROIndyHTTPServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'BinMessage'
+        Message = BinMessage
+        Enabled = True
+        PathInfo = '/BIN'
+      end>
+    Port = 8099
+    Top = 304
+  end
+  object BinMessage: TROBinMessage
+    Left = 40
+    Top = 304
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServerMain.pas
new file mode 100644
index 0000000..7b7c0a4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleServerMain.pas	
@@ -0,0 +1,120 @@
+unit FirstSampleServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uROPoweredByRemObjectsButton,
+  Grids, ValEdit, uROClient, uROBinMessage, uROServer, uROIndyTCPServer,
+  uROIndyHTTPServer, StdCtrls;
+
+type
+  TFirstSampleServerMainForm = class(TForm)
+    ValueListEditor: TValueListEditor;
+    ROServer: TROIndyHTTPServer;
+    BinMessage: TROBinMessage;
+    Memo1: TMemo;
+    AddButton: TButton;
+    DeleteButton: TButton;
+    ROPoweredByRemObjectsButton: TROPoweredByRemObjectsButton;
+    procedure FormCreate(Sender: TObject);
+    procedure DeleteButtonClick(Sender: TObject);
+    procedure AddButtonClick(Sender: TObject);
+    procedure ValueListEditorValidate(Sender: TObject; ACol, ARow: Integer;
+      const KeyName, KeyValue: string);
+    procedure FormDestroy(Sender: TObject);
+    procedure ValueListEditorStringsChange(Sender: TObject);
+  private
+    StrList: TStringList;
+    { Private declarations }
+  public
+    { Public declarations }
+    MultiReadSingleWriter: TMultiReadExclusiveWriteSynchronizer;
+
+  end;
+
+var
+  FirstSampleServerMainForm: TFirstSampleServerMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TFirstSampleServerMainForm.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+  StrList := TStringList.Create;
+  StrList.Assign(ValueListEditor.Strings);
+  MultiReadSingleWriter := TMultiReadExclusiveWriteSynchronizer.Create;
+end;
+
+procedure TFirstSampleServerMainForm.DeleteButtonClick(Sender: TObject);
+var
+  fRect: TGridRect;
+begin
+  ValueListEditor.RestoreCurrentRow;
+  fRect := ValueListEditor.Selection;
+  if ValueListEditor.Keys[fRect.Top] = '' then Exit;
+  ValueListEditor.DeleteRow(Frect.Top);
+  ActiveControl := ValueListEditor;
+end;
+
+procedure TFirstSampleServerMainForm.AddButtonClick(Sender: TObject);
+var
+  i: integer;
+  fRect: TGridRect;
+begin
+  ActiveControl := ValueListEditor;
+  i := ValueListEditor.InsertRow('', '', True);
+  fRect.Left := 0;
+  fRect.Top := i;
+  fRect.Right := 0;
+  fRect.Bottom := i;
+  ValueListEditor.Selection := fRect;
+  ValueListEditor.EditorMode := True;
+end;
+
+procedure TFirstSampleServerMainForm.ValueListEditorValidate(Sender: TObject; ACol,
+  ARow: Integer; const KeyName, KeyValue: string);
+var
+  s: string;
+begin
+  while ValueListEditor.Cells[0, ARow] = '' do
+    if InputQuery('Enter nickname', 'Enter nickname for ''' + ValueListEditor.Cells[1, ARow] + ''':', s) then begin
+      ValueListEditor.Cells[0, ARow] := s;
+    end
+    else begin
+      ValueListEditor.RestoreCurrentRow;
+      ValueListEditor.DeleteRow(ARow);
+      Exit;
+    end;
+  while ValueListEditor.Cells[1, ARow] = '' do
+    if InputQuery('Enter Full Name', 'Enter Full Name for ''' + ValueListEditor.Cells[0, ARow] + ''':', s) then begin
+      ValueListEditor.Cells[1, ARow] := s;
+    end
+    else begin
+      ValueListEditor.RestoreCurrentRow;
+      ValueListEditor.DeleteRow(ARow);
+      Exit;
+    end;
+end;
+
+procedure TFirstSampleServerMainForm.FormDestroy(Sender: TObject);
+begin
+  StrList.Free;
+  MultiReadSingleWriter.Free;
+end;
+
+procedure TFirstSampleServerMainForm.ValueListEditorStringsChange(
+  Sender: TObject);
+begin
+  MultiReadSingleWriter.BeginWrite;
+  try
+    StrList.Assign(ValueListEditor.Strings);
+  finally
+    MultiReadSingleWriter.EndWrite;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleService_Impl.dfm
new file mode 100644
index 0000000..1d89770
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleService_Impl.dfm	
@@ -0,0 +1,7 @@
+object FirstSampleService: TFirstSampleService
+  OldCreateOrder = True
+  Left = 396
+  Top = 219
+  Height = 157
+  Width = 244
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleService_Impl.pas
new file mode 100644
index 0000000..7c32430
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSampleService_Impl.pas	
@@ -0,0 +1,111 @@
+unit FirstSampleService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} FirstSample_Intf;
+
+type
+  { TFirstSampleService }
+  TFirstSampleService = class(TRORemoteDataModule, IFirstSampleService)
+  private
+  protected
+    { IFirstSampleService methods }
+    function Nicknames(const FullName: Widestring): Widestring;
+    function FullNames(const Nickname: Widestring): Widestring;
+    function VerifyName(const NickName: Widestring; const FullName: Widestring): Boolean;
+    function CheckName(const NickName: Widestring): Boolean;
+  end;
+
+var
+  FirstSampleService: TFirstSampleService;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FirstSample_Invk, FirstSampleServerMain;
+
+procedure Create_FirstSampleService(out anInstance: IUnknown);
+begin
+  anInstance := TFirstSampleService.Create(nil);
+end;
+
+{ FirstSampleService }
+
+function TFirstSampleService.Nicknames(const FullName: Widestring): Widestring;
+var
+  i: integer;
+begin
+  Result := '';
+  with FirstSampleServerMainForm do begin
+    MultiReadSingleWriter.BeginRead;
+    try
+      with ValueListEditor.Strings do
+        for i := 0 to Count - 1 do
+          if (Fullname = '') or (CompareText(Values[Names[i]], FullName) = 0) then
+            Result := Result + ',' + Names[i];
+    finally
+      MultiReadSingleWriter.EndRead;
+    end;
+  end;
+  if Result <> '' then Delete(Result, 1, 1);
+end;
+
+function TFirstSampleService.VerifyName(const NickName: Widestring; const FullName: Widestring): Boolean;
+begin
+  with FirstSampleServerMainForm do begin
+    MultiReadSingleWriter.BeginRead;
+    try
+      with ValueListEditor.Strings do
+        Result := (IndexOfName(NickName) <> -1) and (CompareText(Values[NickName], FullName) = 0);
+    finally
+      MultiReadSingleWriter.EndRead;
+    end;
+  end;
+end;
+
+function TFirstSampleService.CheckName(const NickName: Widestring): Boolean;
+begin
+  with FirstSampleServerMainForm do begin
+    MultiReadSingleWriter.BeginRead;
+    try
+      Result := ValueListEditor.Strings.IndexOfName(NickName) <> -1;
+    finally
+      MultiReadSingleWriter.EndRead;
+    end;
+  end;
+end;
+
+function TFirstSampleService.FullNames(const Nickname: Widestring): Widestring;
+begin
+  Result := '';
+  with FirstSampleServerMainForm do begin
+    MultiReadSingleWriter.BeginRead;
+    try
+      with ValueListEditor.Strings do
+        if IndexOfName(NickName) <> -1 then
+          Result := Values[NickName];
+    finally
+      MultiReadSingleWriter.EndRead;
+    end;
+  end;
+end;
+
+initialization
+  TROClassFactory.Create('FirstSampleService', Create_FirstSampleService, TFirstSampleService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample_Intf.pas
new file mode 100644
index 0000000..3b0cca3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample_Intf.pas	
@@ -0,0 +1,151 @@
+unit FirstSample_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{37D864AA-068E-457B-81C3-828305C09F88}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IFirstSampleService_IID : TGUID = '{BC25168D-B5BF-47F3-AE9D-0E457528F16E}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IFirstSampleService = interface;
+
+
+  { IFirstSampleService }
+  IFirstSampleService = interface
+    ['{BC25168D-B5BF-47F3-AE9D-0E457528F16E}']
+    function Nicknames(const FullName: Widestring): Widestring;
+    function FullNames(const Nickname: Widestring): Widestring;
+    function VerifyName(const NickName: Widestring; const FullName: Widestring): Boolean;
+    function CheckName(const NickName: Widestring): Boolean;
+  end;
+
+  { CoFirstSampleService }
+  CoFirstSampleService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFirstSampleService;
+  end;
+
+  { TFirstSampleService_Proxy }
+  TFirstSampleService_Proxy = class(TROProxy, IFirstSampleService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Nicknames(const FullName: Widestring): Widestring;
+    function FullNames(const Nickname: Widestring): Widestring;
+    function VerifyName(const NickName: Widestring; const FullName: Widestring): Boolean;
+    function CheckName(const NickName: Widestring): Boolean;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoFirstSampleService }
+
+class function CoFirstSampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFirstSampleService;
+begin
+  result := TFirstSampleService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TFirstSampleService_Proxy }
+
+function TFirstSampleService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'FirstSampleService';
+end;
+
+function TFirstSampleService_Proxy.Nicknames(const FullName: Widestring): Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FirstSample', __InterfaceName, 'Nicknames');
+    __Message.Write('FullName', TypeInfo(Widestring), FullName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TFirstSampleService_Proxy.FullNames(const Nickname: Widestring): Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FirstSample', __InterfaceName, 'FullNames');
+    __Message.Write('Nickname', TypeInfo(Widestring), Nickname, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TFirstSampleService_Proxy.VerifyName(const NickName: Widestring; const FullName: Widestring): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FirstSample', __InterfaceName, 'VerifyName');
+    __Message.Write('NickName', TypeInfo(Widestring), NickName, []);
+    __Message.Write('FullName', TypeInfo(Widestring), FullName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TFirstSampleService_Proxy.CheckName(const NickName: Widestring): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FirstSample', __InterfaceName, 'CheckName');
+    __Message.Write('NickName', TypeInfo(Widestring), NickName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IFirstSampleService_IID, TFirstSampleService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IFirstSampleService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample_Invk.pas
new file mode 100644
index 0000000..5f7a8aa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/FirstSample_Invk.pas	
@@ -0,0 +1,129 @@
+unit FirstSample_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} FirstSample_Intf;
+
+type
+  TFirstSampleService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Nicknames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_FullNames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_VerifyName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_CheckName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TFirstSampleService_Invoker }
+
+constructor TFirstSampleService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TFirstSampleService_Invoker.Invoke_Nicknames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Nicknames(const FullName: Widestring): Widestring; }
+var
+  FullName: Widestring;
+  lResult: Widestring;
+begin
+  try
+    __Message.Read('FullName', TypeInfo(Widestring), FullName, []);
+
+    lResult := (__Instance as IFirstSampleService).Nicknames(FullName);
+
+    __Message.InitializeResponseMessage(__Transport, 'FirstSample', 'FirstSampleService', 'NicknamesResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TFirstSampleService_Invoker.Invoke_FullNames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function FullNames(const Nickname: Widestring): Widestring; }
+var
+  Nickname: Widestring;
+  lResult: Widestring;
+begin
+  try
+    __Message.Read('Nickname', TypeInfo(Widestring), Nickname, []);
+
+    lResult := (__Instance as IFirstSampleService).FullNames(Nickname);
+
+    __Message.InitializeResponseMessage(__Transport, 'FirstSample', 'FirstSampleService', 'FullNamesResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TFirstSampleService_Invoker.Invoke_VerifyName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function VerifyName(const NickName: Widestring; const FullName: Widestring): Boolean; }
+var
+  NickName: Widestring;
+  FullName: Widestring;
+  lResult: Boolean;
+begin
+  try
+    __Message.Read('NickName', TypeInfo(Widestring), NickName, []);
+    __Message.Read('FullName', TypeInfo(Widestring), FullName, []);
+
+    lResult := (__Instance as IFirstSampleService).VerifyName(NickName, FullName);
+
+    __Message.InitializeResponseMessage(__Transport, 'FirstSample', 'FirstSampleService', 'VerifyNameResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TFirstSampleService_Invoker.Invoke_CheckName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function CheckName(const NickName: Widestring): Boolean; }
+var
+  NickName: Widestring;
+  lResult: Boolean;
+begin
+  try
+    __Message.Read('NickName', TypeInfo(Widestring), NickName, []);
+
+    lResult := (__Instance as IFirstSampleService).CheckName(NickName);
+
+    __Message.InitializeResponseMessage(__Transport, 'FirstSample', 'FirstSampleService', 'CheckNameResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/RODLFILE.res
new file mode 100644
index 0000000..6d04c42
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/First Sample/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.Sample.html
new file mode 100644
index 0000000..1dadccb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.Sample.html	
@@ -0,0 +1,34 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>HTTP Chat Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>The Http Chat sample shows how to use polled events to create an HTTP based chat program. 
+    <br />
+The clients poll every few seconds for new messages and the server distributes the messages to the appropriate client(s).</p>
+
+<h2>
+    Testing</h2>
+        <p>
+            To test this sample properly, you need to run at least three clients:</p>
+        <ul>
+            <li>send a message to all clients</li>
+            <li>send a message to selected clients</li>
+            <li>close a client via the server</li>
+            <li>logout a user and see the effect on the server and other clients</li>
+            <li>issue shutdown warning from server</li>
+            <li>deactivate server and try to send messages</li>
+        </ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.bdsgroup
new file mode 100644
index 0000000..a37961f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{9C1F1DD0-84D6-4117-A9E1-09E22E4D2771}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="HTTPChatServer.exe">HTTPChatServer.bdsproj</Projects>
+      <Projects Name="HTTPChatClient.exe">HTTPChatClient.bdsproj</Projects>
+      <Projects Name="Targets">HTTPChatServer.exe HTTPChatClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.bpg
new file mode 100644
index 0000000..26dd181
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = HTTPChatServer.exe HTTPChatClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+HTTPChatClient.exe: HTTPChatClient.dpr
+  $(DCC)
+
+HTTPChatServer.exe: HTTPChatServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.groupproj
new file mode 100644
index 0000000..b2f65b5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChat.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c97fac85-2668-4287-ac6c-28cc66870612}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="HTTPChatServer">
+    <MSBuild Projects="HTTPChatServer.dproj" Targets="" />
+  </Target>
+  <Target Name="HTTPChatServer:Clean">
+    <MSBuild Projects="HTTPChatServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="HTTPChatServer:Make">
+    <MSBuild Projects="HTTPChatServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="HTTPChatClient">
+    <MSBuild Projects="HTTPChatClient.dproj" Targets="" />
+  </Target>
+  <Target Name="HTTPChatClient:Clean">
+    <MSBuild Projects="HTTPChatClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="HTTPChatClient:Make">
+    <MSBuild Projects="HTTPChatClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="HTTPChatServer;HTTPChatClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="HTTPChatServer:Clean;HTTPChatClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="HTTPChatServer:Make;HTTPChatClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.bdsproj
new file mode 100644
index 0000000..7d580ba
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{B063550E-483E-4E76-8D2A-B878065306BA}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">HTTPChatClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.dpr
new file mode 100644
index 0000000..140a50e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.dpr	
@@ -0,0 +1,15 @@
+program HTTPChatClient;
+
+uses
+  uROComInit,
+  Forms,
+  HTTPChatClientMain in 'HTTPChatClientMain.pas' {HTTPChatClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'HTTP Chat Client';
+  Application.CreateForm(THTTPChatClientMainForm, HTTPChatClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.dproj
new file mode 100644
index 0000000..ad65b80
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{a02fd936-8bc1-497d-b99c-4c2c791df598}</ProjectGuid>
+    <MainSource>HTTPChatClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>HTTPChatClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">HTTPChatClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="HTTPChatClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="HTTPChatClientMain.pas">
+      <Form>HTTPChatClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClientMain.dfm
new file mode 100644
index 0000000..4739588
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClientMain.dfm	
@@ -0,0 +1,187 @@
+object HTTPChatClientMainForm: THTTPChatClientMainForm
+  Left = 398
+  Top = 191
+  BorderStyle = bsDialog
+  Caption = 'HTTP Chat Client'
+  ClientHeight = 449
+  ClientWidth = 368
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 3
+    Top = 33
+    Width = 40
+    Height = 13
+    Caption = 'User ID:'
+  end
+  object Label2: TLabel
+    Left = 3
+    Top = 8
+    Width = 36
+    Height = 13
+    Caption = 'Server:'
+  end
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 78
+    Top = 378
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    Anchors = [akLeft, akBottom]
+    ApplicationType = atClient
+  end
+  object Label3: TLabel
+    Left = 3
+    Top = 56
+    Width = 79
+    Height = 13
+    Caption = 'Message History'
+  end
+  object Label4: TLabel
+    Left = 216
+    Top = 56
+    Width = 69
+    Height = 13
+    Caption = 'Logged Users:'
+  end
+  object Memo: TMemo
+    Left = 3
+    Top = 72
+    Width = 207
+    Height = 258
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    TabOrder = 5
+  end
+  object eUserID: TEdit
+    Left = 45
+    Top = 29
+    Width = 180
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 1
+    Text = 'JOHN'
+  end
+  object LoginButton: TBitBtn
+    Left = 229
+    Top = 27
+    Width = 67
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = '&Login'
+    Default = True
+    TabOrder = 2
+    OnClick = LoginButtonClick
+  end
+  object LogoutButton: TBitBtn
+    Left = 299
+    Top = 27
+    Width = 67
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = 'Log&out'
+    TabOrder = 3
+    OnClick = LogoutButtonClick
+  end
+  object eMessage: TEdit
+    Left = 3
+    Top = 335
+    Width = 298
+    Height = 21
+    Anchors = [akLeft, akRight, akBottom]
+    TabOrder = 7
+    OnChange = eMessageChange
+  end
+  object SendButton: TBitBtn
+    Left = 305
+    Top = 333
+    Width = 61
+    Height = 25
+    Anchors = [akRight, akBottom]
+    Caption = '&Send'
+    Default = True
+    TabOrder = 8
+    OnClick = SendButtonClick
+  end
+  object cbServer: TComboBox
+    Left = 45
+    Top = 4
+    Width = 322
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    ItemHeight = 13
+    ItemIndex = 0
+    TabOrder = 0
+    Text = 'http://localhost:8099/BIN'
+    Items.Strings = (
+      'http://localhost:8099/BIN'
+      'http://localhost:8101/BIN')
+  end
+  object lvLoggedUsers: TListView
+    Left = 216
+    Top = 72
+    Width = 148
+    Height = 258
+    Anchors = [akTop, akRight, akBottom]
+    Checkboxes = True
+    Columns = <>
+    TabOrder = 6
+    ViewStyle = vsList
+  end
+  object cbPrivateMessage: TCheckBox
+    Left = 3
+    Top = 359
+    Width = 158
+    Height = 17
+    Caption = 'Send Only to Selected Users'
+    TabOrder = 9
+  end
+  object StatusBar: TStatusBar
+    Left = 0
+    Top = 430
+    Width = 368
+    Height = 19
+    Panels = <>
+    SimplePanel = True
+  end
+  object RefreshButton: TButton
+    Left = 299
+    Top = 55
+    Width = 67
+    Height = 16
+    Caption = 'Refresh'
+    TabOrder = 4
+    OnClick = RefreshButtonClick
+  end
+  object ROMessage: TROBinMessage
+    Left = 127
+    Top = 147
+  end
+  object ROChannel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 99
+    Top = 147
+  end
+  object svcChatService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'HTTPChatService'
+    Left = 155
+    Top = 147
+  end
+  object EventReceiver: TROEventReceiver
+    Interval = 1000
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'HTTPChatService'
+    Left = 74
+    Top = 147
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClientMain.pas
new file mode 100644
index 0000000..dce3656
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatClientMain.pas	
@@ -0,0 +1,293 @@
+unit HTTPChatClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  Buttons,  HTTPChatLibrary_Intf,
+  uRODynamicRequest, uROEventRepository,
+  uROPoweredByRemObjectsButton, uROClient, ComCtrls;
+
+type
+  TMessageType = (mtMessage, mtSystem);
+
+type
+  THTTPChatClientMainForm = class(TForm, IHTTPChatEvents, IHTTPChatServerEvents)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    svcChatService: TRORemoteService;
+    Memo: TMemo;
+    Label1: TLabel;
+    eUserID: TEdit;
+    LoginButton: TBitBtn;
+    LogoutButton: TBitBtn;
+    eMessage: TEdit;
+    SendButton: TBitBtn;
+    EventReceiver: TROEventReceiver;
+    Label2: TLabel;
+    cbServer: TComboBox;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    lvLoggedUsers: TListView;
+    Label3: TLabel;
+    Label4: TLabel;
+    cbPrivateMessage: TCheckBox;
+    StatusBar: TStatusBar;
+    RefreshButton: TButton;
+    procedure LoginButtonClick(Sender: TObject);
+    procedure LogoutButtonClick(Sender: TObject);
+    procedure SendButtonClick(Sender: TObject);
+    procedure eMessageChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure RefreshButtonClick(Sender: TObject);
+  private
+    fChatService: IHTTPChatService;
+    fLoggedIn: boolean;
+    fUsers: TUserInfoArray;
+
+    function GetUserID: Widestring;
+    procedure ToggleControls;
+
+    procedure WriteMessage(aMessageType: TMessageType; const aSender, aMessage: widestring; IsPrivate: boolean = FALSE);
+
+    { IChatEvents }
+    procedure OnLogin(const aUserInfo: TUserInfo);
+    procedure OnLogout(const aUserID: widestring);
+    procedure OnSendMessage(const aSenderUserID: widestring; const aMessage: widestring; const aIsPrivateMessage: Boolean);
+
+    { IChatServerEvents }
+    procedure OnSystemShutdown(const aShutdownDelay: Integer; const aReason: Widestring);
+    procedure OnMandatoryClose(const aClientID: Widestring; const aReason: Widestring);
+    procedure RefreshLoggedUserList;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+
+    property LoggedIn: boolean read fLoggedIn;
+    property UserID: Widestring read GetUserID;
+
+  end;
+
+var
+  HTTPChatClientMainForm: THTTPChatClientMainForm;
+
+implementation
+
+uses StdConvs;
+
+{$R *.dfm}
+
+constructor THTTPChatClientMainForm.Create(aOwner: TComponent);
+begin
+  inherited;
+
+  fChatService := (svcChatService as IHTTPChatService);
+
+  eUserID.Text := eUserID.Text + FormatDateTime('HHMMSS', Now);
+  ToggleControls;
+end;
+
+destructor THTTPChatClientMainForm.Destroy;
+begin
+  FreeAndNIL(fUsers);
+
+  inherited;
+end;
+
+function THTTPChatClientMainForm.GetUserID: Widestring;
+begin
+  result := Trim(eUserID.Text);
+end;
+
+procedure THTTPChatClientMainForm.ToggleControls;
+begin
+  eUserID.Enabled := not LoggedIn;
+  LoginButton.Enabled := not LoggedIn;
+  LogoutButton.Enabled := LoggedIn;
+  Memo.Enabled := LoggedIn;
+  SendButton.Enabled := LoggedIn;
+end;
+
+procedure THTTPChatClientMainForm.SendButtonClick(Sender: TObject);
+var
+  destination: widestring;
+  i: integer;
+  userinfo: TUserInfo;
+begin
+  { If this is a private message, then builds the list of receivers }
+  destination := '';
+  if cbPrivateMessage.Checked then begin
+    for i := 0 to (lvLoggedUsers.Items.Count - 1) do begin
+      if lvLoggedUsers.Items[i].Checked then begin
+        userinfo := lvLoggedUsers.Items[i].Data;
+        destination := destination + userinfo.SessionID + ',';
+      end;
+    end;
+
+    if (destination = '') then begin
+      Beep;
+      MessageDlg('Select one or more recipients for your private message first', mtError, [mbOK], 0);
+      Exit;
+    end;
+  end;
+
+  { Sends the message }
+  fChatService.SendMessage(eMessage.Text, Copy(destination, 1, Length(destination) - 1));
+  eMessage.Text := '';
+  eMessage.SetFocus;
+end;
+
+procedure THTTPChatClientMainForm.WriteMessage(aMessageType: TMessageType;
+  const aSender, aMessage: widestring;
+  IsPrivate: boolean = FALSE);
+var
+  line: Widestring;
+begin
+  case aMessageType of
+    mtSystem: line := 'SYS>' + aMessage;
+    mtMessage: line := aSender + '>' + aMessage;
+  end;
+
+  if IsPrivate then line := '[PRIVATE] ' + line;
+  Memo.Lines.Add(line);
+end;
+
+procedure THTTPChatClientMainForm.LoginButtonClick(Sender: TObject);
+begin
+  try
+    ROChannel.TargetURL := cbServer.Text;
+
+    { Calls the remote login method }
+    ROMessage.ClientID := StringToGUID(fChatService.Login(UserID));
+    StatusBar.SimpleText := GUIDToString(ROMessage.ClientID);
+
+    fUsers := fChatService.GetLoggedUsers;
+    RefreshLoggedUserList;
+
+    { Register the event handlers }
+    EventReceiver.RegisterEventHandlers([EID_HTTPChatEvents, EID_HTTPChatServerEvents], [Self, Self]);
+
+    { Starts polling }
+    EventReceiver.Active := TRUE;
+
+    fLoggedIn := TRUE;
+  finally
+    ToggleControls;
+  end;
+end;
+
+procedure THTTPChatClientMainForm.LogoutButtonClick(Sender: TObject);
+begin
+  try
+    EventReceiver.Active := FALSE; // Stops polling for messages
+    EventReceiver.UnregisterEventHandlers([EID_HTTPChatEvents, EID_HTTPChatServerEvents]); // Unregisters the event handlers
+
+    fChatService.Logout;
+
+    FreeAndNIL(fUsers);
+
+    fLoggedIn := FALSE;
+  finally
+    RefreshLoggedUserList;
+    ToggleControls;
+  end;
+end;
+
+procedure THTTPChatClientMainForm.RefreshLoggedUserList;
+var
+  i: integer;
+begin
+  lvLoggedUsers.Items.BeginUpdate;
+  lvLoggedUsers.Items.Clear;
+  try
+    if (fUsers = nil) then Exit; // After Logout
+
+    for i := 0 to (fUsers.Count - 1) do begin
+      if fUsers[i].UserID = UserID then Continue; // Skips itself
+
+      with lvLoggedUsers.Items.Add do begin
+        Caption := fUsers[i].UserID;
+        Data := fUsers[i];
+      end;
+    end;
+  finally
+    lvLoggedUsers.Items.EndUpdate;
+  end;
+end;
+
+// ChatEvents implementation
+
+procedure THTTPChatClientMainForm.OnLogin(const aUserInfo: TUserInfo);
+begin
+  WriteMessage(mtSystem, '', 'User ' + aUserInfo.UserID + ' just logged in');
+
+  fUsers.Add(aUserInfo);
+  EventReceiver.RetainObject(aUserInfo);
+
+  RefreshLoggedUserList;
+end;
+
+procedure THTTPChatClientMainForm.OnLogout(const aUserID: Widestring);
+var
+  idx: integer;
+begin
+  WriteMessage(mtSystem, '', 'User ' + aUserID + ' logged out');
+
+  idx := fUsers.GetIndex('UserID', aUserID);
+  if (idx >= 0) then begin
+    fUsers.Delete(idx);
+    RefreshLoggedUserList;
+  end;
+end;
+
+procedure THTTPChatClientMainForm.OnSendMessage(const aSenderUserID: Widestring; const aMessage: Widestring; const aIsPrivateMessage: Boolean);
+begin
+  WriteMessage(mtMessage, aSenderUserID, aMessage, aIsPrivateMessage);
+end;
+
+procedure THTTPChatClientMainForm.eMessageChange(Sender: TObject);
+begin
+  SendButton.Enabled := (eMessage.Text <> '') and LoggedIn
+end;
+
+procedure THTTPChatClientMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  try
+    if LogoutButton.Enabled then
+       LogoutButton.Click;
+  except
+  end;
+end;
+
+procedure THTTPChatClientMainForm.OnMandatoryClose(const aClientID: Widestring; const aReason: Widestring);
+var
+  thisclientid: Widestring;
+begin
+  thisclientid := GUIDToString(EventReceiver.ClientID);
+  if (aClientID = thisclientid) then begin
+
+    LogoutButton.Click;
+
+    Beep;
+    MessageDlg('You''ve been disconnected from the server.'#13'Reason: ' + aReason, mtWarning, [mbOK], 0);
+
+    Close;
+  end;
+end;
+
+procedure THTTPChatClientMainForm.OnSystemShutdown(const aShutdownDelay: Integer;
+  const aReason: Widestring);
+begin
+  Beep;
+  MessageDlg(Format('The server will be shut down in %d minutes.'#13'Reason: %s', [aShutdownDelay, aReason]), mtWarning, [mbOK], 0);
+end;
+
+procedure THTTPChatClientMainForm.RefreshButtonClick(Sender: TObject);
+begin
+  fUsers:= fChatService.GetLoggedUsers;
+  RefreshLoggedUserList;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary.rodl
new file mode 100644
index 0000000..6f66bf7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary.rodl	
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="HTTPChatLibrary" UID="{FAC89BC0-FECD-410B-8A96-D03A60C8301B}" Version="3.0">
+<Services>
+<Service Name="HTTPChatService" UID="{E6059309-61CB-44B6-B71C-B6E667943BF2}">
+<Interfaces>
+<Interface Name="Default" UID="{6893042C-3354-4AE6-B5FA-E7A637475C30}">
+<Documentation><![CDATA[
+Service ChatService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="Login" UID="{41D87ED7-378D-4662-9BEF-5AA4593662A8}" ForceAsyncResponse="1">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+<Parameter Name="aUserID" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="Logout" UID="{1694AF47-B9FB-442B-BC1B-C723A808FCEA}" ForceAsyncResponse="1">
+<Parameters>
+</Parameters>
+</Operation>
+<Operation Name="SendMessage" UID="{C05FD777-3E6D-464E-9544-E2E84D8F7A08}" ForceAsyncResponse="1">
+<Parameters>
+<Parameter Name="aMessageText" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="aDestination" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetLoggedUsers" UID="{83A28E2A-4EB9-4ED0-BA2C-7626B354C2AF}">
+<Parameters>
+<Parameter Name="Result" DataType="TUserInfoArray" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+<EventSink Name="HTTPChatEvents" UID="{43ACF6AE-D689-47E6-9A2E-A908FB244434}">
+<Interfaces>
+<Interface Name="Default" UID="{75F9A466-518A-4B09-9DC4-9272B1EEFD95}">
+<Operations>
+<Operation Name="OnLogin" UID="{0CF4F8C5-97C6-4257-81B5-5D0AB3BF74C1}">
+<Parameters>
+<Parameter Name="aUserInfo" DataType="TUserInfo" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="OnLogout" UID="{0CE2C399-FF70-429C-8A77-D08761BC2D3A}">
+<Parameters>
+<Parameter Name="aUserID" DataType="Widestring" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="OnSendMessage" UID="{E99732D9-6D58-440F-A70C-A542B5862C67}">
+<Parameters>
+<Parameter Name="aSenderUserID" DataType="Widestring" Flag="In">
+</Parameter>
+<Parameter Name="aMessage" DataType="Widestring" Flag="In">
+</Parameter>
+<Parameter Name="aIsPrivateMessage" DataType="Boolean" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</EventSink>
+<EventSink Name="HTTPChatServerEvents" UID="{096067BA-46C6-430D-A06D-F08360B9171C}">
+<Interfaces>
+<Interface Name="Default" UID="{E80B0A2E-96ED-4F38-A6AC-E4E0B59F27F3}">
+<Operations>
+<Operation Name="OnSystemShutdown" UID="{5870922B-F7DF-45C7-88D9-32CFCC6336D0}">
+<Parameters>
+<Parameter Name="aShutdownDelay" DataType="Integer" Flag="In">
+</Parameter>
+<Parameter Name="aReason" DataType="Widestring" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="OnMandatoryClose" UID="{3AD6652D-22BF-4374-A649-3408E3BBE618}">
+<Parameters>
+<Parameter Name="aClientID" DataType="Widestring" Flag="In">
+</Parameter>
+<Parameter Name="aReason" DataType="Widestring" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</EventSink>
+</EventSinks>
+<Structs>
+<Struct Name="TUserInfo" UID="{20714E20-135A-45D7-9825-1791337DA6DF}" AutoCreateParams="1">
+<Elements>
+<Element Name="UserID" DataType="Widestring">
+</Element>
+<Element Name="SessionID" DataType="Widestring">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+<Array Name="TUserInfoArray" UID="{AC9DB28F-70C1-4506-8862-14E8E4082D3E}">
+<ElementType DataType="TUserInfo" />
+</Array>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary_Intf.pas
new file mode 100644
index 0000000..c9fb3cc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary_Intf.pas	
@@ -0,0 +1,750 @@
+unit HTTPChatLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{FAC89BC0-FECD-410B-8A96-D03A60C8301B}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IHTTPChatService_IID : TGUID = '{6893042C-3354-4AE6-B5FA-E7A637475C30}';
+
+  { Event ID's }
+  EID_HTTPChatEvents = 'HTTPChatEvents';
+  EID_HTTPChatServerEvents = 'HTTPChatServerEvents';
+
+type
+  { Forward declarations }
+  IHTTPChatService = interface;
+
+  TUserInfoArray = class;
+
+  TUserInfo = class;
+
+  IHTTPChatEvents = interface;
+  IHTTPChatServerEvents = interface;
+
+
+  { TUserInfo }
+  TUserInfo = class(TROComplexType)
+  private
+    fUserID: Widestring;
+    fSessionID: Widestring;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property UserID:Widestring read fUserID write fUserID;
+    property SessionID:Widestring read fSessionID write fSessionID;
+  end;
+
+  { TUserInfoCollection }
+  TUserInfoCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TUserInfo;
+    procedure SetItems(aIndex: integer; const Value: TUserInfo);
+  public
+    constructor Create; overload;
+    function Add: TUserInfo; reintroduce;
+    procedure SaveToArray(anArray: TUserInfoArray);
+    procedure LoadFromArray(anArray: TUserInfoArray);
+    property Items[Index: integer]:TUserInfo read GetItems write SetItems; default;
+  end;
+
+  { TUserInfoArray }
+  TUserInfoArray_TUserInfo = array of TUserInfo;
+  TUserInfoArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TUserInfoArray_TUserInfo;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): TUserInfo;
+    procedure SetItems(aIndex: integer; const Value: TUserInfo);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: TUserInfo; overload;
+    function Add(const Value: TUserInfo):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:TUserInfo read GetItems write SetItems; default;
+    property InnerArray: TUserInfoArray_TUserInfo read fItems;
+  end;
+
+  { IHTTPChatService }
+  IHTTPChatService = interface
+    ['{6893042C-3354-4AE6-B5FA-E7A637475C30}']
+    function Login(const aUserID: Widestring): Widestring;
+    procedure Logout;
+    procedure SendMessage(const aMessageText: Widestring; const aDestination: Widestring);
+    function GetLoggedUsers: TUserInfoArray;
+  end;
+
+  { CoHTTPChatService }
+  CoHTTPChatService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IHTTPChatService;
+  end;
+
+  { THTTPChatService_Proxy }
+  THTTPChatService_Proxy = class(TROProxy, IHTTPChatService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Login(const aUserID: Widestring): Widestring;
+    procedure Logout;
+    procedure SendMessage(const aMessageText: Widestring; const aDestination: Widestring);
+    function GetLoggedUsers: TUserInfoArray;
+  end;
+
+  { IHTTPChatEvents }
+  IHTTPChatEvents = interface
+    ['{75F9A466-518A-4B09-9DC4-9272B1EEFD95}']
+    procedure OnLogin(const aUserInfo: TUserInfo);
+    procedure OnLogout(const aUserID: Widestring);
+    procedure OnSendMessage(const aSenderUserID: Widestring; const aMessage: Widestring; const aIsPrivateMessage: Boolean);
+  end;
+
+  { IHTTPChatEvents_Writer }
+  IHTTPChatEvents_Writer = interface(IROEventWriter)
+    ['{75F9A466-518A-4B09-9DC4-9272B1EEFD95}']
+    procedure OnLogin(const __Sender : TGUID; const aUserInfo: TUserInfo);
+    procedure OnLogout(const __Sender : TGUID; const aUserID: Widestring);
+    procedure OnSendMessage(const __Sender : TGUID; const aSenderUserID: Widestring; const aMessage: Widestring; const aIsPrivateMessage: Boolean);
+  end;
+
+  { IHTTPChatServerEvents }
+  IHTTPChatServerEvents = interface
+    ['{E80B0A2E-96ED-4F38-A6AC-E4E0B59F27F3}']
+    procedure OnSystemShutdown(const aShutdownDelay: Integer; const aReason: Widestring);
+    procedure OnMandatoryClose(const aClientID: Widestring; const aReason: Widestring);
+  end;
+
+  { IHTTPChatServerEvents_Writer }
+  IHTTPChatServerEvents_Writer = interface(IROEventWriter)
+    ['{E80B0A2E-96ED-4F38-A6AC-E4E0B59F27F3}']
+    procedure OnSystemShutdown(const __Sender : TGUID; const aShutdownDelay: Integer; const aReason: Widestring);
+    procedure OnMandatoryClose(const __Sender : TGUID; const aClientID: Widestring; const aReason: Widestring);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ TUserInfoArray }
+
+procedure TUserInfoArray.Assign(iSource: TPersistent);
+var lSource:TUserInfoArray;
+    i:integer;
+begin
+  if (iSource is TUserInfoArray) then begin
+    lSource := TUserInfoArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      if Assigned(lSource.Items[i]) then begin
+        Items[i].Assign(lSource.Items[i]);
+      end;
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TUserInfoArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(TUserInfo);
+end;
+
+class function TUserInfoArray.GetItemClass: TClass;
+begin
+  result := TUserInfo;
+end;
+
+class function TUserInfoArray.GetItemSize: integer;
+begin
+  result := SizeOf(TUserInfo);
+end;
+
+function TUserInfoArray.GetItems(aIndex: integer): TUserInfo;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TUserInfoArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure TUserInfoArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure TUserInfoArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TUserInfoArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TUserInfoArray.SetItems(aIndex: integer; const Value: TUserInfo);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure TUserInfoArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := TUserInfo.Create;
+  FCount := ElementCount;
+end;
+
+function TUserInfoArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TUserInfoArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TUserInfoArray.Add: TUserInfo;
+begin
+  result := TUserInfo.Create;
+  Add(Result);
+end;
+
+function TUserInfoArray.Add(const Value:TUserInfo): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure TUserInfoArray.ReadComplex(ASerializer: TObject);
+var
+  lval: TUserInfo;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), TUserInfo, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TUserInfoArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], TUserInfo, i);
+end;
+
+{ TUserInfo }
+
+procedure TUserInfo.Assign(iSource: TPersistent);
+var lSource: HTTPChatLibrary_Intf.TUserInfo;
+begin
+  inherited Assign(iSource);
+  if (iSource is HTTPChatLibrary_Intf.TUserInfo) then begin
+    lSource := HTTPChatLibrary_Intf.TUserInfo(iSource);
+    UserID := lSource.UserID;
+    SessionID := lSource.SessionID;
+  end;
+end;
+
+procedure TUserInfo.ReadComplex(ASerializer: TObject);
+var
+  l_SessionID: Widestring;
+  l_UserID: Widestring;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_UserID := UserID;
+    TROSerializer(ASerializer).ReadWideString('UserID', l_UserID);
+    UserID := l_UserID;
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadWideString('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+  end
+  else begin
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).ReadWideString('SessionID', l_SessionID);
+    SessionID := l_SessionID;
+    l_UserID := UserID;
+    TROSerializer(ASerializer).ReadWideString('UserID', l_UserID);
+    UserID := l_UserID;
+  end;
+end;
+
+procedure TUserInfo.WriteComplex(ASerializer: TObject);
+var
+  l_SessionID: Widestring;
+  l_UserID: Widestring;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TUserInfo);
+    l_UserID := UserID;
+    TROSerializer(ASerializer).WriteWideString('UserID', l_UserID);
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteWideString('SessionID', l_SessionID);
+  end
+  else begin
+    l_SessionID := SessionID;
+    TROSerializer(ASerializer).WriteWideString('SessionID', l_SessionID);
+    l_UserID := UserID;
+    TROSerializer(ASerializer).WriteWideString('UserID', l_UserID);
+  end;
+end;
+
+{ TUserInfoCollection }
+constructor TUserInfoCollection.Create;
+begin
+  inherited Create(TUserInfo);
+end;
+
+constructor TUserInfoCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TUserInfoCollection.Add: TUserInfo;
+begin
+  result := TUserInfo(inherited Add);
+end;
+
+function TUserInfoCollection.GetItems(aIndex: integer): TUserInfo;
+begin
+  result := TUserInfo(inherited Items[aIndex]);
+end;
+
+procedure TUserInfoCollection.LoadFromArray(anArray: TUserInfoArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    Add.Assign(anArray[i]);
+end;
+
+procedure TUserInfoCollection.SaveToArray(anArray: TUserInfoArray);
+var i : integer;
+begin
+  anArray.Clear;
+  anArray.Resize(Count);
+  for i := 0 to (Count-1) do begin
+    anArray[i] := TUserInfo.Create;
+    anArray[i].Assign(Items[i]);
+  end;
+end;
+
+procedure TUserInfoCollection.SetItems(aIndex: integer; const Value: TUserInfo);
+begin
+  TUserInfo(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoHTTPChatService }
+
+class function CoHTTPChatService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IHTTPChatService;
+begin
+  result := THTTPChatService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ THTTPChatService_Proxy }
+
+function THTTPChatService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'HTTPChatService';
+end;
+
+function THTTPChatService_Proxy.Login(const aUserID: Widestring): Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'HTTPChatLibrary', __InterfaceName, 'Login');
+    __Message.Write('aUserID', TypeInfo(Widestring), aUserID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure THTTPChatService_Proxy.Logout;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'HTTPChatLibrary', __InterfaceName, 'Logout');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure THTTPChatService_Proxy.SendMessage(const aMessageText: Widestring; const aDestination: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'HTTPChatLibrary', __InterfaceName, 'SendMessage');
+    __Message.Write('aMessageText', TypeInfo(Widestring), aMessageText, []);
+    __Message.Write('aDestination', TypeInfo(Widestring), aDestination, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function THTTPChatService_Proxy.GetLoggedUsers: TUserInfoArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'HTTPChatLibrary', __InterfaceName, 'GetLoggedUsers');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(HTTPChatLibrary_Intf.TUserInfoArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { THTTPChatEvents_Writer }
+  THTTPChatEvents_Writer = class(TROEventWriter, IHTTPChatEvents_Writer)
+  protected
+    procedure OnLogin(const __Sender : TGUID; const aUserInfo: TUserInfo);
+    procedure OnLogout(const __Sender : TGUID; const aUserID: Widestring);
+    procedure OnSendMessage(const __Sender : TGUID; const aSenderUserID: Widestring; const aMessage: Widestring; const aIsPrivateMessage: Boolean);
+  end;
+
+procedure THTTPChatEvents_Writer.OnLogin(const __Sender : TGUID; const aUserInfo: TUserInfo);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'HTTPChatLibrary', EID_HTTPChatEvents, 'OnLogin');
+    __Message.Write('aUserInfo', TypeInfo(TUserInfo), aUserInfo, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure THTTPChatEvents_Writer.OnLogout(const __Sender : TGUID; const aUserID: Widestring);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'HTTPChatLibrary', EID_HTTPChatEvents, 'OnLogout');
+    __Message.Write('aUserID', TypeInfo(Widestring), aUserID, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure THTTPChatEvents_Writer.OnSendMessage(const __Sender : TGUID; const aSenderUserID: Widestring; const aMessage: Widestring; const aIsPrivateMessage: Boolean);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'HTTPChatLibrary', EID_HTTPChatEvents, 'OnSendMessage');
+    __Message.Write('aSenderUserID', TypeInfo(Widestring), aSenderUserID, []);
+    __Message.Write('aMessage', TypeInfo(Widestring), aMessage, []);
+    __Message.Write('aIsPrivateMessage', TypeInfo(Boolean), aIsPrivateMessage, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { THTTPChatEvents_Invoker }
+  THTTPChatEvents_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnLogin(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnLogout(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnSendMessage(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure THTTPChatEvents_Invoker.Invoke_OnLogin(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  aUserInfo: TUserInfo;
+begin
+  aUserInfo := NIL;
+
+  try
+    __Message.Read('aUserInfo', TypeInfo(TUserInfo), aUserInfo, []);
+
+    (__Target as IHTTPChatEvents).OnLogin(aUserInfo);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+      __lObjectDisposer.Add(aUserInfo);
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+procedure THTTPChatEvents_Invoker.Invoke_OnLogout(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  aUserID: Widestring;
+begin
+
+  try
+    __Message.Read('aUserID', TypeInfo(Widestring), aUserID, []);
+
+    (__Target as IHTTPChatEvents).OnLogout(aUserID);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+procedure THTTPChatEvents_Invoker.Invoke_OnSendMessage(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  aSenderUserID: Widestring;
+  aMessage: Widestring;
+  aIsPrivateMessage: Boolean;
+begin
+
+  try
+    __Message.Read('aSenderUserID', TypeInfo(Widestring), aSenderUserID, []);
+    __Message.Read('aMessage', TypeInfo(Widestring), aMessage, []);
+    __Message.Read('aIsPrivateMessage', TypeInfo(Boolean), aIsPrivateMessage, []);
+
+    (__Target as IHTTPChatEvents).OnSendMessage(aSenderUserID, aMessage, aIsPrivateMessage);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+type
+  { THTTPChatServerEvents_Writer }
+  THTTPChatServerEvents_Writer = class(TROEventWriter, IHTTPChatServerEvents_Writer)
+  protected
+    procedure OnSystemShutdown(const __Sender : TGUID; const aShutdownDelay: Integer; const aReason: Widestring);
+    procedure OnMandatoryClose(const __Sender : TGUID; const aClientID: Widestring; const aReason: Widestring);
+  end;
+
+procedure THTTPChatServerEvents_Writer.OnSystemShutdown(const __Sender : TGUID; const aShutdownDelay: Integer; const aReason: Widestring);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'HTTPChatLibrary', EID_HTTPChatServerEvents, 'OnSystemShutdown');
+    __Message.Write('aShutdownDelay', TypeInfo(Integer), aShutdownDelay, []);
+    __Message.Write('aReason', TypeInfo(Widestring), aReason, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure THTTPChatServerEvents_Writer.OnMandatoryClose(const __Sender : TGUID; const aClientID: Widestring; const aReason: Widestring);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'HTTPChatLibrary', EID_HTTPChatServerEvents, 'OnMandatoryClose');
+    __Message.Write('aClientID', TypeInfo(Widestring), aClientID, []);
+    __Message.Write('aReason', TypeInfo(Widestring), aReason, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { THTTPChatServerEvents_Invoker }
+  THTTPChatServerEvents_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_OnSystemShutdown(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_OnMandatoryClose(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure THTTPChatServerEvents_Invoker.Invoke_OnSystemShutdown(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  aShutdownDelay: Integer;
+  aReason: Widestring;
+begin
+
+  try
+    __Message.Read('aShutdownDelay', TypeInfo(Integer), aShutdownDelay, []);
+    __Message.Read('aReason', TypeInfo(Widestring), aReason, []);
+
+    (__Target as IHTTPChatServerEvents).OnSystemShutdown(aShutdownDelay, aReason);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+procedure THTTPChatServerEvents_Invoker.Invoke_OnMandatoryClose(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  aClientID: Widestring;
+  aReason: Widestring;
+begin
+
+  try
+    __Message.Read('aClientID', TypeInfo(Widestring), aClientID, []);
+    __Message.Read('aReason', TypeInfo(Widestring), aReason, []);
+
+    (__Target as IHTTPChatServerEvents).OnMandatoryClose(aClientID, aReason);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterROClass(TUserInfo);
+  RegisterROClass(TUserInfoArray);
+  RegisterProxyClass(IHTTPChatService_IID, THTTPChatService_Proxy);
+
+  RegisterEventWriterClass(IHTTPChatEvents_Writer, THTTPChatEvents_Writer);
+  RegisterEventInvokerClass(EID_HTTPChatEvents, THTTPChatEvents_Invoker);
+  RegisterEventWriterClass(IHTTPChatServerEvents_Writer, THTTPChatServerEvents_Writer);
+  RegisterEventInvokerClass(EID_HTTPChatServerEvents, THTTPChatServerEvents_Invoker);
+
+finalization
+  UnregisterROClass(TUserInfo);
+  UnregisterROClass(TUserInfoArray);
+  UnregisterProxyClass(IHTTPChatService_IID);
+
+  UnregisterEventWriterClass(IHTTPChatEvents_Writer);
+  UnregisterEventInvokerClass(EID_HTTPChatEvents);
+  UnregisterEventWriterClass(IHTTPChatServerEvents_Writer);
+  UnregisterEventInvokerClass(EID_HTTPChatServerEvents);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary_Invk.pas
new file mode 100644
index 0000000..c93927c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatLibrary_Invk.pas	
@@ -0,0 +1,125 @@
+unit HTTPChatLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} HTTPChatLibrary_Intf;
+
+type
+  THTTPChatService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SendMessage(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetLoggedUsers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ THTTPChatService_Invoker }
+
+constructor THTTPChatService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure THTTPChatService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Login(const aUserID: Widestring): Widestring; }
+var
+  aUserID: Widestring;
+  lResult: Widestring;
+begin
+  try
+    __Message.Read('aUserID', TypeInfo(Widestring), aUserID, []);
+
+    lResult := (__Instance as IHTTPChatService).Login(aUserID);
+
+    __Message.InitializeResponseMessage(__Transport, 'HTTPChatLibrary', 'HTTPChatService', 'LoginResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure THTTPChatService_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Logout; }
+begin
+  try
+    (__Instance as IHTTPChatService).Logout;
+
+    __Message.InitializeResponseMessage(__Transport, 'HTTPChatLibrary', 'HTTPChatService', 'LogoutResponse');
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure THTTPChatService_Invoker.Invoke_SendMessage(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SendMessage(const aMessageText: Widestring; const aDestination: Widestring); }
+var
+  aMessageText: Widestring;
+  aDestination: Widestring;
+begin
+  try
+    __Message.Read('aMessageText', TypeInfo(Widestring), aMessageText, []);
+    __Message.Read('aDestination', TypeInfo(Widestring), aDestination, []);
+
+    (__Instance as IHTTPChatService).SendMessage(aMessageText, aDestination);
+
+    __Message.InitializeResponseMessage(__Transport, 'HTTPChatLibrary', 'HTTPChatService', 'SendMessageResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure THTTPChatService_Invoker.Invoke_GetLoggedUsers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetLoggedUsers: TUserInfoArray; }
+var
+  lResult: HTTPChatLibrary_Intf.TUserInfoArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as IHTTPChatService).GetLoggedUsers;
+
+    __Message.InitializeResponseMessage(__Transport, 'HTTPChatLibrary', 'HTTPChatService', 'GetLoggedUsersResponse');
+    __Message.Write('Result', TypeInfo(HTTPChatLibrary_Intf.TUserInfoArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.bdsproj
new file mode 100644
index 0000000..ca5815e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{AC378402-2D10-4383-8B70-5BD438F6DA7A}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">HTTPChatServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.dpr
new file mode 100644
index 0000000..ccb0548
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.dpr	
@@ -0,0 +1,21 @@
+program HTTPChatServer;
+
+{#ROGEN:HTTPChatLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  HTTPChatServerMain in 'HTTPChatServerMain.pas' {HTTPChatServerMainForm},
+  HTTPChatLibrary_Intf in 'HTTPChatLibrary_Intf.pas',
+  HTTPChatLibrary_Invk in 'HTTPChatLibrary_Invk.pas',
+  HTTPChatService_Impl in 'HTTPChatService_Impl.pas' {HTTPChatService: TDARemoteService};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'HTTP Chat Server';
+  Application.CreateForm(THTTPChatServerMainForm, HTTPChatServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.dproj
new file mode 100644
index 0000000..d3894ec
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.dproj	
@@ -0,0 +1,83 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{582fb95d-63e7-4f83-948c-cf190b1c9a77}</ProjectGuid>
+    <MainSource>HTTPChatServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>HTTPChatServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">HTTPChatServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="HTTPChatServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="HTTPChatLibrary_Intf.pas" />
+    <DCCReference Include="HTTPChatLibrary_Invk.pas" />
+    <DCCReference Include="HTTPChatServerMain.pas">
+      <Form>HTTPChatServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="HTTPChatService_Impl.pas">
+      <Form>HTTPChatService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.res
new file mode 100644
index 0000000..3eab0f7
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServerMain.dfm
new file mode 100644
index 0000000..c6336ae
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServerMain.dfm	
@@ -0,0 +1,151 @@
+object HTTPChatServerMainForm: THTTPChatServerMainForm
+  Left = 294
+  Top = 19
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = 'HTTP Chat Server'
+  ClientHeight = 371
+  ClientWidth = 425
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Label1: TLabel
+    Left = 8
+    Top = 68
+    Width = 87
+    Height = 13
+    Caption = 'Event Repository:'
+  end
+  object Label2: TLabel
+    Left = 8
+    Top = 96
+    Width = 80
+    Height = 13
+    Caption = 'Known Sessions:'
+  end
+  object Label3: TLabel
+    Left = 240
+    Top = 8
+    Width = 70
+    Height = 13
+    Caption = 'Listen on Port:'
+  end
+  object lbSessions: TListBox
+    Left = 8
+    Top = 112
+    Width = 409
+    Height = 225
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ItemHeight = 13
+    TabOrder = 3
+  end
+  object bbCloseClient: TBitBtn
+    Left = 25
+    Top = 343
+    Width = 169
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Close Client'
+    Enabled = False
+    TabOrder = 4
+    OnClick = bbCloseClientClick
+  end
+  object bbWarnShutdown: TBitBtn
+    Left = 230
+    Top = 343
+    Width = 169
+    Height = 25
+    Anchors = [akLeft, akBottom]
+    Caption = 'Warn 5 Minutes Shutdown'
+    Enabled = False
+    TabOrder = 5
+    OnClick = bbWarnShutdownClick
+  end
+  object cbRepositoryType: TComboBox
+    Left = 97
+    Top = 64
+    Width = 320
+    Height = 21
+    Style = csDropDownList
+    ItemHeight = 13
+    TabOrder = 2
+  end
+  object ActivateButton: TBitBtn
+    Left = 240
+    Top = 31
+    Width = 161
+    Height = 25
+    Caption = 'Activate/Deactivate Server'
+    TabOrder = 1
+    OnClick = ActivateButtonClick
+  end
+  object sePort: TSpinEdit
+    Left = 312
+    Top = 3
+    Width = 91
+    Height = 22
+    MaxValue = 0
+    MinValue = 0
+    TabOrder = 0
+    Value = 0
+  end
+  object BINMessage: TROBinMessage
+    UseCompression = False
+    Left = 84
+    Top = 248
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'BINMessage'
+        Message = BINMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 56
+    Top = 248
+  end
+  object InMemorySessionManager: TROInMemorySessionManager
+    SessionDuration = 1
+    OnSessionDeleted = InMemorySessionManagerSessionDeleted
+    Left = 152
+    Top = 296
+  end
+  object ROIndyTCPChannel1: TROIndyTCPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Port = 8090
+    Host = '127.0.0.1'
+    Left = 232
+    Top = 256
+  end
+  object InMemoryEventRepository: TROInMemoryEventRepository
+    Message = BINMessage
+    SessionManager = InMemorySessionManager
+    OnAfterAddSession = InMemoryEventRepositoryAfterAddSession
+    OnAfterRemoveSession = InMemoryEventRepositoryAfterRemoveSession
+    Left = 192
+    Top = 296
+  end
+  object MasterServerEventRepository: TROMasterServerEventRepository
+    Message = BINMessage
+    SessionManager = InMemorySessionManager
+    OnAfterAddSession = InMemoryEventRepositoryAfterAddSession
+    OnAfterRemoveSession = InMemoryEventRepositoryAfterRemoveSession
+    Channel = ROIndyTCPChannel1
+    Left = 192
+    Top = 256
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServerMain.pas
new file mode 100644
index 0000000..d36820e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatServerMain.pas	
@@ -0,0 +1,143 @@
+unit HTTPChatServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROIndyHTTPServer, uROIndyTCPServer, HTTPChatLibrary_Intf,
+  uROSessions, uROEventRepository,  
+  uROBinMessage, uROSOAPMessage, Buttons, uROIndyTCPChannel,
+  uROMasterServerEventRepository, Spin;
+
+type
+  THTTPChatServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    BINMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    InMemorySessionManager: TROInMemorySessionManager;
+    lbSessions: TListBox;
+    bbCloseClient: TBitBtn;
+    bbWarnShutdown: TBitBtn;
+    ROIndyTCPChannel1: TROIndyTCPChannel;
+    cbRepositoryType: TComboBox;
+    Label1: TLabel;
+    InMemoryEventRepository: TROInMemoryEventRepository;
+    Label2: TLabel;
+    ActivateButton: TBitBtn;
+    MasterServerEventRepository: TROMasterServerEventRepository;
+    Label3: TLabel;
+    sePort: TSpinEdit;
+    procedure FormCreate(Sender: TObject);
+    procedure bbWarnShutdownClick(Sender: TObject);
+    procedure bbCloseClientClick(Sender: TObject);
+    procedure ActivateButtonClick(Sender: TObject);
+    procedure InMemoryEventRepositoryAfterAddSession(
+      Sender: TROEventRepository; const SessionID: TGUID);
+    procedure InMemoryEventRepositoryAfterRemoveSession(
+      Sender: TROEventRepository; const SessionID: TGUID);
+    procedure InMemorySessionManagerSessionDeleted(const aSessionID: TGUID;
+      IsExpired: Boolean);
+  private
+    function GetEventRepository: TROEventRepository;
+  protected
+
+  public
+    property EventRepository : TROEventRepository read GetEventRepository;
+  end;
+
+var
+  HTTPChatServerMainForm: THTTPChatServerMainForm;
+
+implementation
+
+uses uROClasses, uROAsync, Variants;
+
+{$R *.dfm}
+
+procedure THTTPChatServerMainForm.FormCreate(Sender: TObject);
+var i : integer;
+begin
+  sePort.Value := ROServer.Port;
+  
+  for i := 0 to (ComponentCount-1) do
+    if (Components[i] is TROEventRepository) then
+      cbRepositoryType.Items.AddObject(Components[i].Name, Components[i]);
+
+  cbRepositoryType.ItemIndex := 0;
+end;
+
+procedure THTTPChatServerMainForm.bbWarnShutdownClick(Sender: TObject);
+var reason : string;
+begin
+  reason := 'The system administrator will reboot the server in 5 minutes.'#13#13+
+            'Please close your applications and save your work.';
+
+  if InputQuery('Shutdown Reason', 'Reason', reason)
+    then (EventRepository as IHTTPChatServerEvents_Writer).OnSystemShutdown(EmptyGUID, 5, reason);
+end;
+
+procedure THTTPChatServerMainForm.bbCloseClientClick(Sender: TObject);
+var reason : string;
+    clientid : TGUID;
+begin
+  if lbSessions.ItemIndex<0 then begin
+    Beep;
+    MessageDlg('Select a session first', mtError, [mbOK], 0);
+    Exit;
+  end;
+
+  clientid := StringToGUID(lbSessions.Items[lbSessions.ItemIndex]);
+
+  reason := 'You''ve been terminated. Good bye!';
+  if InputQuery('Close Reason', 'Reason', reason)
+    then (EventRepository as IHTTPChatServerEvents_Writer).OnMandatoryClose(EmptyGUID, GUIDToString(clientid), reason);
+end;
+
+function THTTPChatServerMainForm.GetEventRepository: TROEventRepository;
+begin
+  result := TROEventRepository(cbRepositoryType.Items.Objects[cbRepositoryType.ItemIndex]);
+end;
+
+procedure THTTPChatServerMainForm.ActivateButtonClick(Sender: TObject);
+begin
+  if not ROServer.Active then begin
+    ROServer.Port := sePort.Value;
+  end;
+
+  ROServer.Active := ROServer.Active XOR TRUE;
+
+  cbRepositoryType.Enabled := not ROServer.Active;
+  bbCloseClient.Enabled := ROServer.Active;
+  bbWarnShutdown.Enabled := ROServer.Active;
+end;
+
+procedure THTTPChatServerMainForm.InMemoryEventRepositoryAfterAddSession(
+  Sender: TROEventRepository; const SessionID: TGUID);
+begin
+  lbSessions.Items.Add(GUIDToString(SessionID));
+end;
+
+procedure THTTPChatServerMainForm.InMemoryEventRepositoryAfterRemoveSession(
+  Sender: TROEventRepository; const SessionID: TGUID);
+var idx : integer;
+begin
+  if (csDestroying in ComponentState) then Exit;
+
+  idx := lbSessions.Items.IndexOf(GUIDToString(SessionID));
+  if (idx>=0)
+    then lbSessions.Items.Delete(idx);
+end;
+
+procedure THTTPChatServerMainForm.InMemorySessionManagerSessionDeleted(
+  const aSessionID: TGUID; IsExpired: Boolean);
+var idx : integer;
+begin
+  if (csDestroying in ComponentState) then Exit;
+
+  idx := lbSessions.Items.IndexOf(GUIDToString(aSessionID));
+  if (idx>=0)
+    then lbSessions.Items.Delete(idx);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatService_Impl.dfm
new file mode 100644
index 0000000..a2270ee
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatService_Impl.dfm	
@@ -0,0 +1,10 @@
+object HTTPChatService: THTTPChatService
+  OldCreateOrder = True
+  OnCreate = RORemoteDataModuleCreate
+  SessionManager = HTTPChatServerMainForm.InMemorySessionManager
+  EventRepository = HTTPChatServerMainForm.InMemoryEventRepository
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatService_Impl.pas
new file mode 100644
index 0000000..af01574
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/HTTPChatService_Impl.pas	
@@ -0,0 +1,155 @@
+unit HTTPChatService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule, SyncObjs,
+  {Generated:} HTTPChatLibrary_Intf;
+
+type
+  { THTTPChatService }
+  THTTPChatService = class(TRORemoteDataModule, IHTTPChatService)
+    procedure RORemoteDataModuleCreate(Sender: TObject);
+  private
+  protected
+    { IHTTPChatService methods }
+    function Login(const aUserID: Widestring): Widestring;
+    procedure Logout;
+    procedure SendMessage(const aMessageText: Widestring; const aDestination: Widestring);
+    function GetLoggedUsers: TUserInfoArray;
+  public
+  end;
+
+var
+  fCs: TCriticalSection;
+  fUsers: TUserInfoArray;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} HTTPChatLibrary_Invk, HTTPChatServerMain, Variants;
+
+procedure Create_HTTPChatService(out anInstance: IUnknown);
+begin
+  anInstance := THTTPChatService.Create(nil);
+end;
+
+{ HTTPChatService }
+
+function THTTPChatService.Login(const aUserID: Widestring): Widestring;
+var
+  newuser: TUserInfo;
+  ev: IHTTPChatEvents_Writer;
+begin
+  fcs.Enter;
+  try
+    { Checks if the user is already logged in }
+    if (fUsers.Search('UserID', aUserID) <> nil) then raise Exception.CreateFmt('User %s is already logged in', [aUserID]);
+
+    { Adds the user to the internal list of logged users }
+    newuser := fUsers.Add;
+    newuser.UserID := aUserID;
+    newuser.SessionID := GUIDToString(Session.SessionID);
+
+    { Stores the UserID of the user in the session.
+      This will be used in the OnLogout and OnSendMessage methods }
+    Session.Values['UserID'] := aUserID;
+    result := newuser.SessionID;
+
+    ev := (EventRepository as IHTTPChatEvents_Writer);
+    ev.ExcludeSender := false; // make sure to send it back to sender too
+
+    { Generates the OnLogin event }
+    ev.OnLogin(Session.SessionID, newuser);
+  finally
+    fcs.Release;
+  end;
+end;
+
+procedure THTTPChatService.Logout;
+var
+  userid: Widestring;
+  useridx: integer;
+  ev: IHTTPChatEvents_Writer;
+begin
+  { Finds the user in the fUser array and removes it }
+  userid := VarToStr(Session.Values['UserID']);
+  fcs.Enter;
+  try
+    useridx := fUsers.GetIndex('UserID', UserID);
+
+    if (useridx >= 0) then fUsers.Delete(useridx);
+
+    { Eliminates this user's session }
+    DestroySession;
+
+    ev := (EventRepository as IHTTPChatEvents_Writer);
+
+    { Generates the OnLogout event }
+    ev.OnLogout(Session.SessionID, UserID);
+  finally
+    fcs.Release;
+  end;
+end;
+
+procedure THTTPChatService.SendMessage(const aMessageText: Widestring; const aDestination: Widestring);
+var
+  thisuserid: Widestring;
+  chateventswriter: IHTTPChatEvents_Writer;
+begin
+  { Extracts the name of the current user by reading the session information }
+  thisuserid := VarToStr(Session.Values['UserID']);
+
+  { Filters the receivers of this event if necessary }
+  chateventswriter := (EventRepository as IHTTPChatEvents_Writer);
+  if (aDestination <> '') then begin
+    chateventswriter.SessionList.CommaText := aDestination;
+
+    { Only broadcasts to the session listed in SessionList }
+    chateventswriter.ExcludeSessionList := FALSE;
+  end;
+  chateventswriter.ExcludeSender := false;
+
+  { Generates the OnSendMessage event }
+  chateventswriter.OnSendMessage(Session.SessionID, thisuserid, aMessageText, aDestination <> '');
+end;
+
+function THTTPChatService.GetLoggedUsers: TUserInfoArray;
+begin
+  result := TUserInfoArray.Create;
+  fcs.Enter;
+  try
+    result.Assign(fUsers);
+  finally
+    fcs.Release;
+  end;
+end;
+
+procedure THTTPChatService.RORemoteDataModuleCreate(Sender: TObject);
+begin
+  { We manually assign this because the user might decide to change it at runtime,
+    by using the combo box on the main form }
+
+  EventRepository := HTTPChatServerMainForm.EventRepository;
+end;
+
+initialization
+  fCs := TCriticalSection.Create;
+  fUsers := TUserInfoArray.Create;
+  TROClassFactory.Create('HTTPChatService', Create_HTTPChatService, THTTPChatService_Invoker);
+
+finalization
+  FreeAndNil(fUsers);
+  fCs.Free;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/RODLFILE.res
new file mode 100644
index 0000000..d73ce52
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/HTTP Chat/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/Config.ini b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/Config.ini
new file mode 100644
index 0000000..e3cfb08
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/Config.ini	
@@ -0,0 +1,11 @@
+[Project Generation]
+SvcLibName=NewLibrary
+SvcName=NewService
+PrjName=NewProject
+PrjDir=C:\temp\1\LoadBalancing\
+CreateClientAndGroup=TRUE
+[Project Folder History]
+C:\temp\1\LoadBalancing\=0
+C:\temp\LoadBalancing\=1
+C:\temp\D\=2
+C:\temp\D=3
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.cfg
new file mode 100644
index 0000000..db1dc62
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.cfg	
@@ -0,0 +1,36 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.dof
new file mode 100644
index 0000000..31b4300
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.dof	
@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.dpr
new file mode 100644
index 0000000..fde2fe2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.dpr	
@@ -0,0 +1,29 @@
+program LoadBalancing;
+
+{#ROGEN:LoadBalancingLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule},
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  LoadBalancingLibrary_Intf in 'LoadBalancingLibrary_Intf.pas',
+  LoadBalancingLibrary_Invk in 'LoadBalancingLibrary_Invk.pas',
+  LoadBalancingService_Impl in 'LoadBalancingService_Impl.pas' {LoadBalancingService: TRORemoteDataModule};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('LoadBalancing', 'LoadBalancing') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancing.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.cfg
new file mode 100644
index 0000000..db1dc62
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.cfg	
@@ -0,0 +1,36 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.dof
new file mode 100644
index 0000000..83c44b9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.dof	
@@ -0,0 +1,132 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.dpr
new file mode 100644
index 0000000..65b3ba1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.dpr	
@@ -0,0 +1,14 @@
+program LoadBalancingClient;
+
+uses
+  uROComInit,
+  Forms,
+  fClientForm in 'fClientForm.pas' {ClientForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TClientForm, ClientForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.res
new file mode 100644
index 0000000..0f940ed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingGroup.Sample.html
new file mode 100644
index 0000000..16fefb8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingGroup.Sample.html	
@@ -0,0 +1,36 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>LoadBalancing Sample</span> 
+</p>
+
+<h2>Purpose</h2>
+
+<p>sample demonstrates usage the <b>Load Balancing</b> and <b>Fault Tolerance</b> features.</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Launch the four servers (via the menu option: <strong>RemObjects | Launch Server Executable</strong>)
+	    and activate different servers, e.g. Alfa Server for 1st server, Beta Server for 2nd server, etc.</li>
+	<li>Ensure that LoadBalancingClient is the selected project and run it.</li>
+	<li>Check that the client works as expected.</li>
+    <ul>
+        <li>Fault tolerance. Deactivate some servers and check that client use anothe active server to perfom calculation.</li>
+        <li>Load balance. Check that next service call will be performed by another active server.</li>
+        <li>Server probing. Toggle server activity and perform server probing to include/exclude server from using by client.</li>
+    </ul>
+</ul>
+<h2>Examine the Code</h2>
+<ul>
+	<li>Look for examples of using properties&nbsp; of the channel coresponding to <b>Load Balancing</b> and <b>Fault Tolerance </b>: <span style="font-weight: bold;">DispatchOptions</span>, <span style="font-weight: bold;">ProbeServers</span>, <span style="font-weight: bold;">ProbeFrequency</span> and especially <span style="font-weight: bold;">ServerLocators.</span></li>
+</ul>
+
+</body></html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingGroup.bpg
new file mode 100644
index 0000000..9ed6c86
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingGroup.bpg	
@@ -0,0 +1,21 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = LoadBalancing.exe LoadBalancingClient.exe 
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+LoadBalancing.exe: LoadBalancing.dpr
+  $(DCC)
+
+LoadBalancingClient.exe: LoadBalancingClient.dpr
+  $(DCC)
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary.rodl
new file mode 100644
index 0000000..8620013
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary.rodl	
@@ -0,0 +1,25 @@
+<Library Name="LoadBalancingLibrary" UID="{090EB224-CE46-4FEE-98CB-1DF8B2CD2CFC}" Documentation="">
+   <Services>
+      <Service Name="LoadBalancingService" UID="{937F22A6-D42F-42BE-AFC0-3E5023577E31}">
+        <Interfaces>
+           <Interface Name="Default" UID="{5F3AABEC-E71F-47AC-9981-9E88F1387B0D}" Documentation="Service LoadBalancingService. This service has been automatically generated using the RODL template you can find in the Templates directory.">
+      <Operations>
+         <Operation Name="Sum" UID="{5508A5A6-73CF-409E-BC21-26F80CDE29B0}" Documentation="">
+      <Parameters>
+         <Parameter Name="A" DataType="Integer" Flag="In" />
+         <Parameter Name="B" DataType="Integer" Flag="In" />
+         <Parameter Name="Result" DataType="Integer" Flag="Result" />
+      </Parameters>
+         </Operation>
+         <Operation Name="GetServerTime" UID="{7DA56AD6-B064-44B5-AFC4-CC5B074DEC73}" Documentation="">
+      <Parameters>
+         <Parameter Name="Result" DataType="DateTime" Flag="Result" />
+      </Parameters>
+         </Operation>
+      </Operations>
+
+           </Interface> 
+        </Interfaces>
+      </Service>
+   </Services>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary_Intf.pas
new file mode 100644
index 0000000..1428b26
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary_Intf.pas	
@@ -0,0 +1,114 @@
+unit LoadBalancingLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{090EB224-CE46-4FEE-98CB-1DF8B2CD2CFC}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  ILoadBalancingService_IID : TGUID = '{5F3AABEC-E71F-47AC-9981-9E88F1387B0D}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  ILoadBalancingService = interface;
+
+
+  { ILoadBalancingService }
+  ILoadBalancingService = interface
+    ['{5F3AABEC-E71F-47AC-9981-9E88F1387B0D}']
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+  { CoLoadBalancingService }
+  CoLoadBalancingService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoadBalancingService;
+  end;
+
+  { TLoadBalancingService_Proxy }
+  TLoadBalancingService_Proxy = class(TROProxy, ILoadBalancingService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoLoadBalancingService }
+
+class function CoLoadBalancingService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoadBalancingService;
+begin
+  result := TLoadBalancingService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TLoadBalancingService_Proxy }
+
+function TLoadBalancingService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'LoadBalancingService';
+end;
+
+function TLoadBalancingService_Proxy.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'LoadBalancingLibrary', __InterfaceName, 'Sum');
+    __Message.Write('A', TypeInfo(Integer), A, []);
+    __Message.Write('B', TypeInfo(Integer), B, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TLoadBalancingService_Proxy.GetServerTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'LoadBalancingLibrary', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(ILoadBalancingService_IID, TLoadBalancingService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(ILoadBalancingService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary_Invk.pas
new file mode 100644
index 0000000..e30b775
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingLibrary_Invk.pas	
@@ -0,0 +1,84 @@
+unit LoadBalancingLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} LoadBalancingLibrary_Intf;
+
+type
+  TLoadBalancingService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TLoadBalancingService_Invoker }
+
+constructor TLoadBalancingService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TLoadBalancingService_Invoker.Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Sum(const A: Integer; const B: Integer): Integer; }
+var
+  A: Integer;
+  B: Integer;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('A', TypeInfo(Integer), A, []);
+    __Message.Read('B', TypeInfo(Integer), B, []);
+
+    lResult := (__Instance as ILoadBalancingService).Sum(A, B);
+
+    __Message.InitializeResponseMessage(__Transport, 'LoadBalancingLibrary', 'LoadBalancingService', 'SumResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TLoadBalancingService_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as ILoadBalancingService).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'LoadBalancingLibrary', 'LoadBalancingService', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingService_Impl.dfm
new file mode 100644
index 0000000..ae72858
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingService_Impl.dfm	
@@ -0,0 +1,7 @@
+object LoadBalancingService: TLoadBalancingService
+  OldCreateOrder = True
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingService_Impl.pas
new file mode 100644
index 0000000..491519d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/LoadBalancingService_Impl.pas	
@@ -0,0 +1,57 @@
+unit LoadBalancingService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} LoadBalancingLibrary_Intf;
+
+type
+  { TLoadBalancingService }
+  TLoadBalancingService = class(TRORemoteDataModule, ILoadBalancingService)
+  private
+  protected
+    { ILoadBalancingService methods }
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} LoadBalancingLibrary_Invk;
+
+procedure Create_LoadBalancingService(out anInstance : IUnknown);
+begin
+  anInstance := TLoadBalancingService.Create(nil);
+end;
+
+{ LoadBalancingService }
+function TLoadBalancingService.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  result := A + B;
+end;
+
+function TLoadBalancingService.GetServerTime: DateTime;
+begin
+  result := Now;
+end;
+
+initialization
+  TROClassFactory.Create('LoadBalancingService', Create_LoadBalancingService, TLoadBalancingService_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/RODLFILE.res
new file mode 100644
index 0000000..f465d2e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/TemplateOptions.ini b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/TemplateOptions.ini
new file mode 100644
index 0000000..0619521
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/TemplateOptions.ini	
@@ -0,0 +1,16 @@
+[ServerToChannelMapping]
+IndyHTTPServer=WinInetHTTPChannel
+BPDXHTTPServer=WinInetHTTPChannel
+WebBrokerServer=WinInetHTTPChannel
+BPDXTCPServer=IndyTCPChannel
+IpSuperHttpServer=SynapseSuperHttpChannel
+
+[Class Factories]
+By Request=TROClassFactory
+Singleton Object=TROSingletonClassFactory
+Pooled Object=TROPooledClassFactory
+Per Client=TROPerCLientClassFactory
+
+[ComponentToUnitMapping]
+EmailChannel=uROIndyEmailChannel
+EmailServer=uROIndyEmailServer
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fClientForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fClientForm.dfm
new file mode 100644
index 0000000..4d79aaa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fClientForm.dfm	
@@ -0,0 +1,478 @@
+object ClientForm: TClientForm
+  Left = 588
+  Top = 165
+  Width = 543
+  Height = 558
+  Caption = 'RemObjects Client'
+  Color = clBtnFace
+  Constraints.MinHeight = 550
+  Constraints.MinWidth = 543
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object gbSum: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 521
+    Height = 57
+    Anchors = [akLeft, akTop, akRight]
+    Caption = 'Sum Method'
+    TabOrder = 0
+    object lblA: TLabel
+      Left = 8
+      Top = 28
+      Width = 10
+      Height = 13
+      Caption = '&A:'
+    end
+    object lblB: TLabel
+      Left = 80
+      Top = 28
+      Width = 10
+      Height = 13
+      Caption = '&B:'
+    end
+    object edA: TEdit
+      Left = 24
+      Top = 23
+      Width = 33
+      Height = 21
+      TabOrder = 0
+      Text = '3'
+    end
+    object edB: TEdit
+      Left = 96
+      Top = 23
+      Width = 41
+      Height = 21
+      TabOrder = 1
+      Text = '5'
+    end
+    object udA: TUpDown
+      Left = 57
+      Top = 23
+      Width = 16
+      Height = 21
+      Associate = edA
+      Position = 3
+      TabOrder = 2
+    end
+    object udB: TUpDown
+      Left = 137
+      Top = 23
+      Width = 16
+      Height = 21
+      Associate = edB
+      Position = 5
+      TabOrder = 3
+    end
+    object btnSum: TButton
+      Left = 160
+      Top = 19
+      Width = 89
+      Height = 25
+      Caption = 'Call method'
+      TabOrder = 4
+      OnClick = btnSumClick
+    end
+    object CheckBox1: TCheckBox
+      Left = 264
+      Top = 25
+      Width = 225
+      Height = 17
+      Caption = 'Send request each second automatically'
+      TabOrder = 5
+      OnClick = CheckBox1Click
+    end
+  end
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 272
+    Width = 522
+    Height = 241
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Caption = 'Log'
+    TabOrder = 1
+    DesignSize = (
+      522
+      241)
+    object memLog: TMemo
+      Left = 8
+      Top = 16
+      Width = 506
+      Height = 217
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      ScrollBars = ssBoth
+      TabOrder = 0
+    end
+  end
+  object gbChannelOptions: TGroupBox
+    Left = 8
+    Top = 64
+    Width = 522
+    Height = 209
+    Anchors = [akLeft, akTop, akRight]
+    Caption = 'Channel Options'
+    TabOrder = 2
+    DesignSize = (
+      522
+      209)
+    object Label2: TLabel
+      Left = 8
+      Top = 72
+      Width = 78
+      Height = 13
+      Caption = 'Server Locators:'
+    end
+    object chkFaultTolerance: TCheckBox
+      Left = 8
+      Top = 24
+      Width = 97
+      Height = 17
+      Caption = 'Fault Tolerance'
+      Checked = True
+      State = cbChecked
+      TabOrder = 0
+      OnClick = chkFaultToleranceClick
+    end
+    object chkLoadBalancing: TCheckBox
+      Left = 8
+      Top = 48
+      Width = 97
+      Height = 17
+      Caption = 'Load Balancing'
+      Checked = True
+      State = cbChecked
+      TabOrder = 1
+      OnClick = chkLoadBalancingClick
+    end
+    object lvLocators: TListView
+      Left = 8
+      Top = 88
+      Width = 506
+      Height = 113
+      Anchors = [akLeft, akTop, akRight]
+      Columns = <
+        item
+          Caption = 'Locator Name'
+          Width = 150
+        end
+        item
+          Caption = 'Host'
+          Width = 150
+        end
+        item
+          Caption = 'Port'
+          Width = 100
+        end
+        item
+          Caption = 'State'
+          Width = 100
+        end>
+      HideSelection = False
+      ReadOnly = True
+      RowSelect = True
+      SmallImages = il
+      TabOrder = 2
+      ViewStyle = vsReport
+    end
+    object GroupBox2: TGroupBox
+      Left = 152
+      Top = 8
+      Width = 193
+      Height = 73
+      Caption = 'Auto-Probing'
+      TabOrder = 3
+      object Label1: TLabel
+        Left = 9
+        Top = 48
+        Width = 81
+        Height = 13
+        Caption = 'Probe Frequency'
+      end
+      object Label3: TLabel
+        Left = 165
+        Top = 48
+        Width = 17
+        Height = 13
+        Caption = 'sec'
+      end
+      object chkProbeServers: TCheckBox
+        Left = 8
+        Top = 24
+        Width = 105
+        Height = 17
+        Alignment = taLeftJustify
+        Caption = 'ProbeServers'
+        Checked = True
+        State = cbChecked
+        TabOrder = 0
+        OnClick = chkProbeServersClick
+      end
+      object edProbeFreequency: TEdit
+        Left = 99
+        Top = 44
+        Width = 47
+        Height = 21
+        TabOrder = 1
+        Text = '60'
+      end
+      object udProbeFreequency: TUpDown
+        Left = 145
+        Top = 44
+        Width = 16
+        Height = 21
+        Associate = edProbeFreequency
+        Position = 60
+        TabOrder = 2
+        OnChangingEx = udProbeFreequencyChangingEx
+      end
+    end
+    object GroupBox3: TGroupBox
+      Left = 352
+      Top = 8
+      Width = 161
+      Height = 73
+      Caption = 'Manual'
+      TabOrder = 4
+      object btnProbeAll: TButton
+        Left = 6
+        Top = 16
+        Width = 147
+        Height = 25
+        Caption = 'Probe All'
+        TabOrder = 0
+        OnClick = btnProbeAllClick
+      end
+      object btnProbeSelected: TButton
+        Left = 6
+        Top = 40
+        Width = 147
+        Height = 25
+        Caption = 'Probe selected'
+        TabOrder = 1
+        OnClick = btnProbeSelectedClick
+      end
+    end
+  end
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 28
+    Top = 184
+  end
+  object ROChannel: TROIndyTCPChannel
+    OnFailure = ROChannelException
+    OnException = ROChannelException
+    ServerLocators = <
+      item
+        Name = 'ServerAlfa'
+        Enabled = True
+        Host = 'localhost'
+        Port = 8091
+        DisableOnFailure = True
+        LoadBalancingServer = True
+        ProbingOptions = [poProbeWhenEnabled, poProbeWhenDisabled, poEnableIfProbeSucceeded, poDisableIfProbeFailed]
+        OnEnabledChanged = LogLocatorState
+      end
+      item
+        Name = 'ServerBeta'
+        Enabled = True
+        Host = 'localhost'
+        Port = 8092
+        DisableOnFailure = True
+        LoadBalancingServer = True
+        ProbingOptions = [poProbeWhenEnabled, poProbeWhenDisabled, poEnableIfProbeSucceeded, poDisableIfProbeFailed]
+        OnEnabledChanged = LogLocatorState
+      end
+      item
+        Name = 'ServerGamma'
+        Enabled = True
+        Host = 'localhost'
+        Port = 8093
+        DisableOnFailure = True
+        LoadBalancingServer = True
+        ProbingOptions = [poProbeWhenEnabled, poProbeWhenDisabled, poEnableIfProbeSucceeded, poDisableIfProbeFailed]
+        OnEnabledChanged = LogLocatorState
+      end
+      item
+        Name = 'ServerDelta'
+        Enabled = True
+        Host = 'localhost'
+        Port = 8094
+        DisableOnFailure = True
+        LoadBalancingServer = True
+        ProbingOptions = [poProbeWhenEnabled, poProbeWhenDisabled, poEnableIfProbeSucceeded, poDisableIfProbeFailed]
+        OnEnabledChanged = LogLocatorState
+      end>
+    DispatchOptions = [doFaultTolerant, doLoadBalanced]
+    OnServerLocatorAssignment = ROChannelServerLocatorAssignment
+    ProbeServers = True
+    OnBeforeProbingServers = ROChannelBeforeProbingServers
+    OnAfterProbingServers = ROChannelAfterProbingServers
+    OnBeforeProbingServer = ROChannelBeforeProbingServer
+    OnAfterProbingServer = ROChannelAfterProbingServer
+    Port = 8090
+    Host = '127.0.0.1'
+    Left = 88
+    Top = 184
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'LoadBalancingService'
+    Left = 56
+    Top = 184
+  end
+  object il: TImageList
+    Left = 240
+    Top = 208
+    Bitmap = {
+      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000001000000001002000000000000010
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000FF000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BFBFBF00BFBFBF007F7F7F007F7F7F007F7F7F00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BFBFBF00BFBFBF007F7F7F007F7F7F007F7F7F00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000FF000000FF000000FF0000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000BFBF
+      BF00BFBFBF007F7F7F000000000000000000000000007F7F7F007F7F7F007F7F
+      7F0000000000000000000000000000000000000000000000000000000000BFBF
+      BF00BFBFBF007F7F7F000000000000000000000000007F7F7F007F7F7F007F7F
+      7F00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000FF000000FF000000FF0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000BFBFBF00BFBF
+      BF0000000000FFFFFF0000FF0000FFFFFF0000FF0000FFFFFF00000000007F7F
+      7F007F7F7F000000000000000000000000000000000000000000BFBFBF00BFBF
+      BF0000000000FFFFFF000000FF00FFFFFF000000FF00FFFFFF00000000007F7F
+      7F007F7F7F000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000000FF
+      000000FF000000FF000000FF000000FF00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000BFBFBF000000
+      0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000
+      00007F7F7F000000000000000000000000000000000000000000BFBFBF000000
+      0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000
+      00007F7F7F000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000FF000000FF
+      000000FF000000FF000000FF000000FF00000000000000000000000000000000
+      00000000000000000000000000000000000000000000BFBFBF007F7F7F00FFFF
+      FF00000000000000000000FF000000800000008000000000000000000000FFFF
+      FF007F7F7F007F7F7F00000000000000000000000000BFBFBF007F7F7F00FFFF
+      FF0000000000000000000000FF0000008000000080000000000000000000FFFF
+      FF007F7F7F007F7F7F0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000007F7F7F0000FF000000FF
+      0000000000000000000000FF000000FF000000FF000000000000000000000000
+      00000000000000000000000000000000000000000000BFBFBF000000000000FF
+      00000000000000FF00000080000000FF000000800000008000000000000000FF
+      0000000000007F7F7F00000000000000000000000000BFBFBF00000000000000
+      FF00000000000000FF00000080000000FF000000800000008000000000000000
+      FF00000000007F7F7F0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000007F7F7F0000FF0000000000000000
+      000000000000000000000000000000FF000000FF000000000000000000000000
+      00000000000000000000000000000000000000000000FFFFFF0000000000FFFF
+      FF000000000000FF000000FF000000FF000000FF00000080000000000000FFFF
+      FF00000000007F7F7F00000000000000000000000000FFFFFF0000000000FFFF
+      FF00000000000000FF000000FF000000FF000000FF000000800000000000FFFF
+      FF00000000007F7F7F0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000FF000000FF000000FF0000000000000000
+      00000000000000000000000000000000000000000000FFFFFF000000000000FF
+      000000000000FFFFFF0000FF000000FF00000080000000FF00000000000000FF
+      000000000000BFBFBF00000000000000000000000000FFFFFF00000000000000
+      FF0000000000FFFFFF000000FF000000FF00000080000000FF00000000000000
+      FF0000000000BFBFBF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FF000000FF0000000000000000
+      00000000000000000000000000000000000000000000FFFFFF007F7F7F00FFFF
+      FF000000000000000000FFFFFF00FFFFFF0000FF00000000000000000000FFFF
+      FF007F7F7F00BFBFBF00000000000000000000000000FFFFFF007F7F7F00FFFF
+      FF000000000000000000FFFFFF00FFFFFF000000FF000000000000000000FFFF
+      FF007F7F7F00BFBFBF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000FF000000FF00000000
+      0000000000000000000000000000000000000000000000000000BFBFBF000000
+      0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000
+      0000BFBFBF000000000000000000000000000000000000000000BFBFBF000000
+      0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000
+      0000BFBFBF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000007F7F7F0000FF
+      0000000000000000000000000000000000000000000000000000FFFFFF00BFBF
+      BF0000000000FFFFFF0000FF0000FFFFFF0000FF0000FFFFFF0000000000BFBF
+      BF00BFBFBF000000000000000000000000000000000000000000FFFFFF00BFBF
+      BF0000000000FFFFFF000000FF00FFFFFF000000FF00FFFFFF0000000000BFBF
+      BF00BFBFBF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000007F7F
+      7F0000FF0000000000000000000000000000000000000000000000000000FFFF
+      FF00BFBFBF007F7F7F000000000000000000000000007F7F7F00BFBFBF00BFBF
+      BF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF00BFBFBF007F7F7F000000000000000000000000007F7F7F00BFBFBF00BFBF
+      BF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000FF000000FF0000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00BFBFBF00BFBFBF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00BFBFBF00BFBFBF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000100000000100010000000000800000000000000000000000
+      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFF83FF83F0000
+      F9FFE00FE00F0000F0FFC007C0070000F0FF800380030000E07F800380030000
+      C07F000100010000843F0001000100001E3F000100010000FE1F000100010000
+      FF1F000100010000FF8F800380030000FFC7800380030000FFE3C007C0070000
+      FFF8E00FE00F0000FFFFF83FF83F000000000000000000000000000000000000
+      000000000000}
+  end
+  object t: TTimer
+    Enabled = False
+    OnTimer = tTimer
+    Left = 488
+    Top = 24
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fClientForm.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fClientForm.pas
new file mode 100644
index 0000000..f7c6b01
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fClientForm.pas	
@@ -0,0 +1,334 @@
+unit fClientForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROIndyTCPChannel,
+  ComCtrls, ImgList, ExtCtrls;
+
+type
+  TClientForm = class(TForm)
+    ROMessage: TROBinMessage;
+    ROChannel: TROIndyTCPChannel;
+    RORemoteService: TRORemoteService;
+    gbSum: TGroupBox;
+    edA: TEdit;
+    edB: TEdit;
+    udA: TUpDown;
+    udB: TUpDown;
+    lblA: TLabel;
+    lblB: TLabel;
+    btnSum: TButton;
+    GroupBox1: TGroupBox;
+    memLog: TMemo;
+    gbChannelOptions: TGroupBox;
+    chkFaultTolerance: TCheckBox;
+    chkLoadBalancing: TCheckBox;
+    Label2: TLabel;
+    lvLocators: TListView;
+    GroupBox2: TGroupBox;
+    Label1: TLabel;
+    chkProbeServers: TCheckBox;
+    edProbeFreequency: TEdit;
+    GroupBox3: TGroupBox;
+    btnProbeAll: TButton;
+    btnProbeSelected: TButton;
+    il: TImageList;
+    udProbeFreequency: TUpDown;
+    CheckBox1: TCheckBox;
+    t: TTimer;
+    Label3: TLabel;
+    procedure FormCreate(Sender: TObject);
+    procedure chkFaultToleranceClick(Sender: TObject);
+    procedure chkLoadBalancingClick(Sender: TObject);
+    procedure chkProbeServersClick(Sender: TObject);
+    procedure udProbeFreequencyChangingEx(Sender: TObject;
+      var AllowChange: Boolean; NewValue: Smallint;
+      Direction: TUpDownDirection);
+    procedure btnProbeAllClick(Sender: TObject);
+    procedure btnProbeSelectedClick(Sender: TObject);
+    procedure btnSumClick(Sender: TObject);
+    procedure btnGetServerTimeClick(Sender: TObject);
+    procedure LogLocatorState(Sender: TROServerLocator);
+    procedure ROChannelBeforeProbingServer(Sender: TROTransportChannel;
+      aServerLocator: TROServerLocator);
+    procedure ROChannelAfterProbingServer(Sender: TROTransportChannel;
+      aServerLocator: TROServerLocator; Failed: Boolean);
+    procedure ROChannelBeforeProbingServers(Sender: TROTransportChannel);
+    procedure ROChannelAfterProbingServers(Sender: TROTransportChannel;
+      ProbedCount, EnabledCount, DisabledCount: Integer);
+    procedure ROChannelServerLocatorAssignment(Sender: TROTransportChannel;
+      aLocator: TROServerLocator; aException: Exception);
+    procedure tTimer(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure ROChannelException(Sender: TROTransportChannel;
+      anException: Exception; var aRetry: Boolean);
+
+  private
+    { Private declarations }
+    procedure Log(aMessage: String);
+    procedure FillLocators(aChannel: TROTransportChannel);
+//    procedure UpdateLocator(aLocator: TROServerLocator);
+    procedure ReEnableIfAllDisabled;
+  public
+    { Public declarations }
+  end;
+
+var
+  ClientForm: TClientForm;
+
+implementation
+
+{
+  The unit LoadBalancingLibrary_Intf.pas will be generated by the RemObjects preprocessor the first time you
+  compile your server application. Make sure to do that before trying to compile the client.
+
+  To invoke your server simply typecast your server to the name of the service interface like this:
+
+      (RORemoteService as ILoadBalancingService).Sum(1,2)
+}
+
+uses LoadBalancingLibrary_Intf;
+
+{$R *.dfm}
+procedure TClientForm.Log(aMessage: String);
+begin
+  memLog.Lines.Add(aMessage);
+end;
+
+
+procedure TClientForm.FillLocators(aChannel: TROTransportChannel);
+var
+  i: Integer;
+  lLocator: TROServerLocator;
+  lCurrentLocator: TROServerLocator;
+  lItem: TListItem;
+begin
+  lvLocators.Items.BeginUpdate();
+  lvLocators.Items.Clear();
+  try
+  lCurrentLocator := aChannel.CurrentLocator;
+  for i := 0 to aChannel.ServerLocators.Count - 1 do begin
+    lLocator := aChannel.ServerLocators[i];
+    lItem := lvLocators.Items.Add();
+    lItem.Data := lLocator;
+    lItem.Caption := lLocator.Name;
+    lItem.SubItems.Add(lLocator.Host);
+    lItem.SubItems.Add(IntToStr(lLocator.Port));
+    if lLocator.Enabled then begin
+      lItem.SubItems.Add('Enabled');
+      lItem.ImageIndex := 1;
+    end else begin
+      lItem.SubItems.Add('Disabled');
+      lItem.ImageIndex := 2;
+    end;
+    if lLocator = lCurrentLocator then
+      lItem.ImageIndex := 0;
+  end;
+  finally
+    lvLocators.Items.EndUpdate();
+  end;
+end;
+{
+procedure TClientForm.UpdateLocator(aLocator: TROServerLocator);
+var i: Integer;
+  lLocator: TROServerLocator;
+  lListItem: TListItem;
+begin
+  for i := 0 to lvLocators.Items.Count -1 do begin
+    lListItem := lvLocators.Items[i];
+    lLocator := TROServerLocator(lListItem.Data);
+    if lLocator = aLocator then begin
+      if lLocator.Enabled then begin
+        lListItem.SubItems[2] := 'Enabled';
+        lListItem.ImageIndex := 1;
+      end else begin
+        lListItem.SubItems[2] := 'Disabled';
+        lListItem.ImageIndex := 2;
+      end;
+      if lLocator = ROChannel.ServerLocators[ROChannel.LoadBalancerLocatorIdx] then
+        lListItem.ImageIndex := 0;
+      exit;
+    end;
+  end;
+end;
+}
+procedure TClientForm.FormCreate(Sender: TObject);
+begin
+  FillLocators(ROChannel);
+end;
+
+procedure TClientForm.chkFaultToleranceClick(Sender: TObject);
+begin
+  if chkFaultTolerance.Checked then
+    ROChannel.DispatchOptions :=
+      ROChannel.DispatchOptions + [doFaultTolerant]
+  else
+    ROChannel.DispatchOptions :=
+      ROChannel.DispatchOptions - [doFaultTolerant];
+end;
+
+procedure TClientForm.chkLoadBalancingClick(Sender: TObject);
+begin
+  if chkLoadBalancing.Checked then
+    ROChannel.DispatchOptions :=
+      ROChannel.DispatchOptions + [doLoadBalanced]
+  else
+    ROChannel.DispatchOptions :=
+      ROChannel.DispatchOptions - [doLoadBalanced];
+
+end;
+
+procedure TClientForm.chkProbeServersClick(Sender: TObject);
+begin
+  ROChannel.ProbeServers := chkProbeServers.Checked;
+end;
+
+procedure TClientForm.udProbeFreequencyChangingEx(Sender: TObject;
+  var AllowChange: Boolean; NewValue: Smallint;
+  Direction: TUpDownDirection);
+begin
+  ROChannel.ProbeFrequency := NewValue * 1000;
+end;
+
+procedure TClientForm.btnProbeAllClick(Sender: TObject);
+begin
+  Log('Probe all servers manully...');
+  (ROChannel as IROTransportChannel).ProbeAll();
+  Log('Done');
+end;
+
+procedure TClientForm.btnProbeSelectedClick(Sender: TObject);
+begin
+  if (Assigned(lvLocators.Selected) and
+      Assigned(lvLocators.Selected.Data) and
+      Assigned(TROServerLocator(lvLocators.Selected.Data))) then begin
+      (ROChannel as IROTransportChannel).Probe(TROServerLocator(lvLocators.Selected.Data));
+    FillLocators(ROChannel);
+  end;
+end;
+
+procedure TClientForm.btnSumClick(Sender: TObject);
+var a, b, r: Integer;
+begin
+  a := udA.Position;
+  b := udB.Position;
+  Log('Calling Sum function ...');
+  r := (RORemoteService as ILoadBalancingService).Sum(a, b);
+  Log(Format('%d + %d = %d', [a, b, r]));
+  Log('Sum function executed.');
+
+  FillLocators(ROChannel);
+end;
+
+procedure TClientForm.btnGetServerTimeClick(Sender: TObject);
+var d: TDateTime;
+begin
+  Log('Calling Get Server Time function ...');
+  d := (RORemoteService as ILoadBalancingService).GetServerTime();
+  Log(Format('Server time is: %s', [DateTimeToStr(d)]));
+  Log('Get Server Time function executed.');
+
+  FillLocators(ROChannel);
+end;
+
+
+
+procedure TClientForm.LogLocatorState(Sender: TROServerLocator);
+var l: String;
+begin
+  if (Sender.Enabled) then
+    l := 'enabled'
+  else
+    l:= 'disabled';
+  Log(Format('Locator "%s" has been %s.', [Sender.Name, l]));
+end;
+
+procedure TClientForm.ROChannelBeforeProbingServer(
+  Sender: TROTransportChannel; aServerLocator: TROServerLocator);
+var l: String;
+begin
+  if aServerLocator.Enabled then
+    l := 'enabled'
+  else
+    l:='disabled';
+
+  Log(Format('Starting probing server "%s". Current state is "%s"', [aServerLocator.Name, l]));
+end;
+
+procedure TClientForm.ROChannelAfterProbingServer(
+  Sender: TROTransportChannel; aServerLocator: TROServerLocator;
+  Failed: Boolean);
+var l, s: String;
+begin
+  if Failed then
+    s:='failed'
+  else
+    s:='was successful';
+
+  if aServerLocator.Enabled then
+    l := 'enabled'
+  else
+    l:='disabled';
+
+ Log(Format('Probing server "%s" %s. State is "%s".', [aServerLocator.Name, s, l]));
+  //UpdateLocator(aServerLocator);
+  FillLocators(Sender);
+end;
+
+procedure TClientForm.ROChannelBeforeProbingServers(
+  Sender: TROTransportChannel);
+begin
+  Log('Starting probing available servers...');
+end;
+
+procedure TClientForm.ROChannelAfterProbingServers(
+  Sender: TROTransportChannel; ProbedCount, EnabledCount,
+  DisabledCount: Integer);
+begin
+  Log('Probing available servers completed.');
+  Log(Format('Probed %d servers, %d enabled and %d disabled.', [ProbedCount, EnabledCount, DisabledCount]));
+end;
+
+procedure TClientForm.ROChannelServerLocatorAssignment(
+  Sender: TROTransportChannel; aLocator: TROServerLocator;
+  aException: Exception);
+begin
+  if Assigned(aException) then
+    Log(Format('Exception: %s.', [aException.Message]));
+  Log(Format('Locator %s (Host=%s; Port=%d) has been assigned.', [aLocator.Name, aLocator.Host, aLocator.Port]));
+  //UpdateLocator(aLocator);
+  FillLocators(Sender);
+end;
+
+procedure TClientForm.tTimer(Sender: TObject);
+begin
+  btnSum.Click();
+end;
+
+procedure TClientForm.CheckBox1Click(Sender: TObject);
+begin
+ t.Enabled := CheckBox1.Checked;
+end;
+
+procedure TClientForm.ReEnableIfAllDisabled;
+var
+  i: integer;
+begin
+  for i := 0 to ROChannel.ServerLocators.Count -1 do
+    if ROChannel.ServerLocators[i].Enabled then Exit;
+  Log('All locators are disabled. re-enabling all locators.');
+  for i := 0 to ROChannel.ServerLocators.Count -1 do
+    ROChannel.ServerLocators[i].Enabled := True;
+end;
+
+procedure TClientForm.ROChannelException(Sender: TROTransportChannel;
+  anException: Exception; var aRetry: Boolean);
+begin
+  Log(anException.Message);
+  ReEnableIfAllDisabled;
+  aRetry := True;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerDataModule.dfm
new file mode 100644
index 0000000..be97343
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerDataModule.dfm	
@@ -0,0 +1,23 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Left = 475
+  Top = 159
+  Height = 189
+  Width = 292
+  object ROMessage: TROBinMessage
+    Left = 40
+    Top = 8
+  end
+  object ROServer: TROIndyTCPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    Port = 8090
+    Left = 90
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerDataModule.pas
new file mode 100644
index 0000000..c0f83b9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerDataModule.pas	
@@ -0,0 +1,33 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROServer, uROIndyTCPServer,
+  uROPoweredByRemObjectsButton, uROClientIntf, uROClasses,
+  uROBinMessage{, uROIndyTCPServer};
+
+type
+  TServerDataModule = class(TDataModule)
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyTCPServer;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  //ROServer.Active := TRUE;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerForm.dfm
new file mode 100644
index 0000000..cdd859f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerForm.dfm	
@@ -0,0 +1,95 @@
+object ServerForm: TServerForm
+  Left = 498
+  Top = 262
+  BorderStyle = bsDialog
+  Caption = 'RemObjects Server'
+  ClientHeight = 217
+  ClientWidth = 237
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object lblServerName: TLabel
+    Left = 8
+    Top = 152
+    Width = 217
+    Height = 17
+    Alignment = taCenter
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clRed
+    Font.Height = -13
+    Font.Name = 'MS Sans Serif'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object btnActivateServer: TButton
+    Left = 8
+    Top = 176
+    Width = 217
+    Height = 33
+    Caption = 'Activate Server'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clBlack
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    OnClick = btnActivateServerClick
+  end
+  object gbPredefinedConfigurations: TGroupBox
+    Left = 8
+    Top = 64
+    Width = 217
+    Height = 81
+    Caption = 'Predefined Configurations'
+    TabOrder = 1
+    object sbAlfa: TSpeedButton
+      Left = 8
+      Top = 16
+      Width = 97
+      Height = 25
+      GroupIndex = 1
+      Caption = 'Server "Alfa"'
+      OnClick = ApplyConfig
+    end
+    object sbBeta: TSpeedButton
+      Left = 8
+      Top = 48
+      Width = 97
+      Height = 25
+      GroupIndex = 1
+      Caption = 'Server "Beta"'
+      OnClick = ApplyConfig
+    end
+    object sbGamma: TSpeedButton
+      Left = 112
+      Top = 16
+      Width = 97
+      Height = 25
+      GroupIndex = 1
+      Caption = 'Server "Gamma"'
+      OnClick = ApplyConfig
+    end
+    object sbDelta: TSpeedButton
+      Left = 112
+      Top = 48
+      Width = 97
+      Height = 25
+      GroupIndex = 1
+      Caption = 'Server "Delta"'
+      OnClick = ApplyConfig
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerForm.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerForm.pas
new file mode 100644
index 0000000..1d1d8d0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Load Balancing/fServerForm.pas	
@@ -0,0 +1,80 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROClasses,
+  ExtCtrls, Buttons;
+
+type
+  TServerForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    btnActivateServer: TButton;
+    lblServerName: TLabel;
+    gbPredefinedConfigurations: TGroupBox;
+    sbAlfa: TSpeedButton;
+    sbBeta: TSpeedButton;
+    sbGamma: TSpeedButton;
+    sbDelta: TSpeedButton;
+    procedure ApplyConfig(Sender: TObject);
+    procedure btnActivateServerClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+uses fServerDataModule;
+
+
+{$R *.dfm}
+
+procedure TServerForm.ApplyConfig(Sender: TObject);
+var lServerName: String;
+begin
+  if (Sender as TComponent).Name = 'sbAlfa' then begin
+    lServerName := 'Alfa';
+    ServerDataModule.ROServer.Port := 8091;
+  end else
+  if (Sender as TComponent).Name = 'sbBeta' then begin
+    lServerName := 'Beta';
+    ServerDataModule.ROServer.Port := 8092;
+  end else
+  if (Sender as TComponent).Name = 'sbGamma' then begin
+    lServerName := 'Gamma';
+    ServerDataModule.ROServer.Port := 8093;
+  end else
+  if (Sender as TComponent).Name = 'sbDelta' then begin
+    lServerName := 'Delta';
+    ServerDataModule.ROServer.Port := 8094;
+  end;
+  lblServerName.Caption := Format('Server "%s" on port %d', [lServerName, ServerDataModule.ROServer.Port]);
+end;
+
+procedure TServerForm.btnActivateServerClick(Sender: TObject);
+begin
+  ServerDataModule.ROServer.Active := not ServerDataModule.ROServer.Active;
+
+  if ServerDataModule.ROServer.Active then begin
+    btnActivateServer.Caption := 'Deactivate server';
+    lblServerName.Font.Color := clGreen;
+  end else begin
+    btnActivateServer.Caption := 'Activate server';
+    lblServerName.Font.Color := clRed;
+  end;
+end;
+
+procedure TServerForm.FormCreate(Sender: TObject);
+begin
+ sbAlfa.Click;
+ sbAlfa.Down := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/MegaDemoJsonClient.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/MegaDemoJsonClient.html
new file mode 100644
index 0000000..f943241
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/MegaDemoJsonClient.html	
@@ -0,0 +1,108 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
+<html>
+<head>
+    <title>RemObjects MegaDemo Json Client</title>
+    <script type="text/javascript" src="yui/build/yahoo/yahoo.js"></script>
+    <script type="text/javascript" src="yui/build/event/event.js"></script>
+    <script type="text/javascript" src="yui/build/json/json.js"></script>
+    <script type="text/javascript" src="yui/build/connection/connection.js"></script>
+    <script type="text/javascript" src="MegaDemoLibrary_intf.js"></script>
+    <script type="text/javascript" src="script.js"></script>
+	<link rel="stylesheet" href="ro.css" type="text/css">
+</head>
+<body>
+    <table width="100%">
+
+      <tr>
+        <th width="10%"/>
+        <th width="10%"/>
+        <th width="1%"/>
+        <th width="*"/>
+      </tr>
+
+      <tr>
+          <td colspan="2"><h2>MegaDemo Json Client</h2></td>
+          <td />
+          <td align="right" valign="center">
+			<img src="images/ro.png"  />
+		  </td>
+      </tr>
+
+      <tr>
+          <td colspan="2"><h3>Sum Method</h3></td>
+          <td />
+          <td><h3>Log</h3 ></td>
+      </tr>
+
+      <tr>
+          <td>Value A:<br/><input type="text" maxlength="3" id="editA" value="3" /></td>
+          <td>Value B:<br/><input type="text" maxlength="3" id="editB" value="5" /></td>
+          <td />
+          <td rowspan="9">
+              <textarea id="log" rows="19" title="Log" style="width:99%"></textarea>
+          </td>
+      </tr>
+      
+      <tr>
+          <td colspan="2"><input type="button" value="Call Sum" id="btnRun" onclick="BeginSumMethod();"/></td>
+          <td />
+      </tr>
+      
+      <tr>
+          <td colspan="2" height="20"/>
+          <td />
+      </tr>
+      
+      <tr>
+          <td colspan="2">
+              <h3>GetServerTime Method</h3>
+          </td>
+          <td />
+      </tr>
+      
+      <tr>
+          <td colspan="2">
+              <input type="button" value="Call GetServerTime" id="btnrun" onclick="BeginGetServerTimeMethod();" />
+          </td>
+          <td></td>
+      </tr>
+      <tr>
+          <td colspan="2" height="20"/>
+          <td></td>
+      </tr>
+      <tr>
+          <td colspan="2">
+              <h3>EchoPerson Method</h3>
+          </td>
+          <td />
+      </tr>
+      <tr>
+          <td>First Name:<br/><input type="text" id="editFN" value="John" /></td>
+          <td>Last Name:<br/><input type="text" id="editLN" value="Doe" /></td>
+          <td />
+      </tr>
+      <tr>
+          <td>Age:<br/><input type="text" id="editAg" value="35" /></td>
+          <td>Sex:<br/><input type="text" id="editSx" value="sxMale" /></td>
+          <td />
+      <tr>
+          <td colspan="2"><input type="button" value="Call EchoPerson" id="btnEchoPerson" onclick="BeginEchoPersonMethod();" /></td>
+          <td />
+		<td align="right"><input type="button" value="Clear Log" id="btnClearLog" onclick="ClearLog();"  /></td>
+      </tr>
+          
+      </tr>
+      <!--tr>
+          <td colspan="3">
+              <h3>TestPersonArray Method</h3>
+          </td>
+      </tr>
+      <tr>
+          <td>
+              <input type="button" value="Call TestPersonArray" id="btnTestPersonArray" onclick="BeginTestPersonArrayMethod();" />
+          </td>
+      </tr-->
+      
+    </table>
+</body>
+</html>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/MegaDemoLibrary_intf.js b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/MegaDemoLibrary_intf.js
new file mode 100644
index 0000000..034dfd4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/MegaDemoLibrary_intf.js	
@@ -0,0 +1,464 @@
+// Javascript JSON-RPC Code Generated for the  MegaDemoLibrary library.
+
+/* This codegen depends on the Yahoo YUI (http://developer.yahoo.com/yui/) toolkit and requires the 
+   following libraries. Note that it's recommended to download yui and place a local copy next to
+   your html.
+
+  <script type="text/javascript" src="http://yui.yahooapis.com/2.5.1/build/yahoo/yahoo.js"></script> 
+  <script type="text/javascript" src="http://yui.yahooapis.com/2.5.1/build/json/json.js"></script>
+  <script type="text/javascript" src="http://yui.yahooapis.com/2.5.1/build/connection/connection.js"></script>
+*/
+
+// Service: MegaDemoService
+function MegaDemoService(url){
+  this.url = url;
+}
+
+MegaDemoService.prototype.Sum = function(A, B, __callback) {
+  var __message = {
+    "method" : "MegaDemoService.Sum",
+    "params" : {
+      "A": A,
+      "B": B
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.GetServerTime = function(__callback) {
+  var __message = {
+    "method" : "MegaDemoService.GetServerTime",
+    "params" : {
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.EchoPerson = function(aPerson, __callback) {
+  var __message = {
+    "method" : "MegaDemoService.EchoPerson",
+    "params" : {
+      "aPerson": aPerson
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.TestIntegerArray = function(anArray, __callback) {
+  var __message = {
+    "method" : "MegaDemoService.TestIntegerArray",
+    "params" : {
+      "anArray": anArray
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.TestStringArray = function(anArray, __callback) {
+  var __message = {
+    "method" : "MegaDemoService.TestStringArray",
+    "params" : {
+      "anArray": anArray
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.TestPersonArray = function(anArray, __callback) {
+  var __message = {
+    "method" : "MegaDemoService.TestPersonArray",
+    "params" : {
+      "anArray": anArray
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.EchoBinary = function(BinIN, __callback) {
+  var __message = {
+    "method" : "MegaDemoService.EchoBinary",
+    "params" : {
+      "BinIN": BinIN
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+// SomeTypes not support as it has multiple out/result parameters
+// SomeTypes not support as it has multiple out/result parameters
+// SomeTypes not support as it has multiple out/result parameters
+// SomeTypes not support as it has multiple out/result parameters
+MegaDemoService.prototype.SomeTypes = function(aString, aWidestring, anInteger, aCurrency, aDatetime, __callback) {
+  var __message = {
+    "method" : "MegaDemoService.SomeTypes",
+    "params" : {
+      "aString": aString,
+      "aWidestring": aWidestring,
+      "anInteger": anInteger,
+      "aCurrency": aCurrency,
+      "aDatetime": aDatetime
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.CustomObjectAsString = function(__callback) {
+  var __message = {
+    "method" : "MegaDemoService.CustomObjectAsString",
+    "params" : {
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.CustomObjectAsStream = function(__callback) {
+  var __message = {
+    "method" : "MegaDemoService.CustomObjectAsStream",
+    "params" : {
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.RaiseError = function(__callback) {
+  var __message = {
+    "method" : "MegaDemoService.RaiseError",
+    "params" : {
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.EchoVariant = function(inVariant, outVariant, __callback) {
+  var __message = {
+    "method" : "MegaDemoService.EchoVariant",
+    "params" : {
+      "inVariant": inVariant,
+      "outVariant": outVariant
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+MegaDemoService.prototype.RaiseTestException = function(__callback) {
+  var __message = {
+    "method" : "MegaDemoService.RaiseTestException",
+    "params" : {
+      }
+  }
+  var __callbacks = null;
+  if (__callback) {
+    __callbacks = {
+      callback : __callback,
+      success : function (o) {
+        var __result = YAHOO.lang.JSON.parse(o.responseText);
+        if (__result.error)
+        {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.failure(__result.error);
+        } else {
+          if ((typeof this.callback == "object") && this.callback.failure)
+            this.callback.success(__result.result);
+          else
+            this.callback(__result.result);
+        }
+      },
+      failure : function (o) {
+        if ((typeof this.callback == "object") && this.callback.failure) 
+            this.callback.failure(o);
+      },
+      timeout : 30000
+    }
+  }
+  YAHOO.util.Connect.asyncRequest("POST", this.url, __callbacks, YAHOO.util.Lang.JSON.stringify(__message));
+}
+
+// End of service: MegaDemoService
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/images/app.ico b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/images/app.ico
new file mode 100644
index 0000000..b4d0413
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/images/app.ico differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/images/ro.png b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/images/ro.png
new file mode 100644
index 0000000..9bc5c42
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/images/ro.png differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/ro.css b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/ro.css
new file mode 100644
index 0000000..1579137
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/ro.css	
@@ -0,0 +1,6 @@
+BODY    {
+        font-family: Tahoma,Verdana,Arial,sans-serif;
+        font-size: 11px;
+        color: #3D5066;
+        background: #A1ACB9;
+}
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/script.js b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/script.js
new file mode 100644
index 0000000..9bfefc2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/script.js	
@@ -0,0 +1,137 @@
+///////////////////////////////////////////////////////////////////
+function BeginSumMethod()
+{
+  //ClearLog();
+  AddLineToLog('----------------------');
+  AddLineToLog('Calling Sum method.');
+  AddToLog('Creating MegaDemoService ...');	
+  var service = new MegaDemoService('http://localhost:8099/json')
+  AddLineToLog('  ok.');
+  
+  var A = editA.value;
+  var B = editB.value;
+  
+  AddLineToLog('Method: Sum; Params: A=' + A + '; B=' + B + ';');	
+  AddToLog('Sending request...');
+  service.Sum(A, B, EndSumMethod);	
+  AddLineToLog('  ok.');
+  
+  AddToLog('Waiting for response... ');
+}
+
+function EndSumMethod(result)
+{	
+  AddLineToLog('  ok.');
+  AddLineToLog('Result is ' + result);
+  AddLineToLog('Done.');
+  alert('Result is ' + result);
+}
+///////////////////////////////////////////////////////////////////
+function BeginGetServerTimeMethod() 
+{
+  //ClearLog();
+  AddLineToLog('----------------------');
+  AddLineToLog('Calling Sum method.');
+  AddToLog('Creating MegaDemoService ...');
+  var service = new MegaDemoService('http://localhost:8099/json')
+  AddLineToLog('  ok.');
+
+  AddLineToLog('Method: GetServerTime;');
+  AddToLog('Sending request...');
+  service.GetServerTime(EndGetServerTimeMethod);
+  AddToLog('Waiting for response... ');
+}
+
+function EndGetServerTimeMethod(result)
+{
+    AddLineToLog('  ok.');
+    AddLineToLog('Result is ' + result);
+    AddLineToLog('Done.');
+	alert('Result is ' + result);
+}
+///////////////////////////////////////////////////////////////////
+function BeginEchoPersonMethod()
+{
+	//ClearLog();
+	AddLineToLog('----------------------');
+    AddLineToLog('Calling EchoPerson method.');
+    AddToLog('Creating MegaDemoService ...');
+    var service = new MegaDemoService('http://localhost:8099/json')
+    AddLineToLog('  ok.');
+
+    var myPerson = 
+		{ 
+			FirstName: editFN.value, 
+			LastName: editLN.value, 
+			Age: editAg.value, 
+			Sex: editSx.value 
+		};
+            
+
+    AddLineToLog("Method: EchoPerson; Params: Person " + myPerson.FirstName + " " + myPerson.LastName + " " + myPerson.Age + " years old;");
+    AddToLog('Sending request...');
+    service.EchoPerson(myPerson, EndEchoPersonMethod);
+    AddLineToLog('  ok.');
+
+    AddToLog('Waiting for response... ');
+}
+
+function EndEchoPersonMethod(result)
+{
+    AddLineToLog('  ok.');
+    AddLineToLog("Result is: " + result.FirstName + " " + result.LastName + " " + result.Age + " years old.");
+    AddLineToLog('Done.');
+	alert("Result is: " + result.FirstName + " " + result.LastName + " " + result.Age + " years old.");
+}
+
+///////////////////////////////////////////////////////////////////
+function BeginTestPersonArrayMethod() 
+{
+    //ClearLog();
+	AddLineToLog('----------------------');
+    AddLineToLog('Calling EchoPerson method.');
+    AddToLog('Creating MegaDemoService ...');
+    var service = new MegaDemoService('http://localhost:8099/json')
+    AddLineToLog('  ok.');
+
+    var myPersons =
+        [
+            { FirstName: "John", LastName: "Doe", Age: 33, Sex: "sxMale" },
+            { FirstName: "Will", LastName: "Smith", Age: 35, Sex: "sxMale" },
+            { FirstName: "Samanta", LastName: "Carter", Age: 28, Sex: "sxFemale" }
+        ];
+
+    var myPersonAsString = YAHOO.lang.JSON.stringify(myPersons, ["FirstName", "LastName"]);
+    AddLineToLog('Method: EchoPerson; Params: Person ' + myPersonAsString + ';');
+    AddToLog('Sending request...');
+    service.TestPersonArray(myPersons, EndTestPersonArrayMethod);
+    AddLineToLog('  ok.');
+
+    AddToLog('Waiting for response... ');
+}
+
+function EndTestPersonArrayMethod(result)
+{
+    AddLineToLog('  ok.');
+    AddLineToLog('Result is ' + result);
+    AddLineToLog('Done.');
+	alert('Result is ' + result);
+}
+///////////////////////////////////////////////////////////////////
+
+function AddToLog(message)
+{
+	log.value += message;
+}
+
+function AddLineToLog(message)
+{
+	AddToLog(message);
+	log.value += "\n";
+}
+
+
+function ClearLog()
+{
+	log.value = "";
+}
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/connection/connection.js b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/connection/connection.js
new file mode 100644
index 0000000..700a5d1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/connection/connection.js	
@@ -0,0 +1,1379 @@
+/*
+Copyright (c) 2008, Yahoo! Inc. All rights reserved.
+Code licensed under the BSD License:
+http://developer.yahoo.net/yui/license.txt
+version: 2.6.0
+*/
+/**
+ * The Connection Manager provides a simplified interface to the XMLHttpRequest
+ * object.  It handles cross-browser instantiantion of XMLHttpRequest, negotiates the
+ * interactive states and server response, returning the results to a pre-defined
+ * callback you create.
+ *
+ * @namespace YAHOO.util
+ * @module connection
+ * @requires yahoo
+ * @requires event
+ */
+
+/**
+ * The Connection Manager singleton provides methods for creating and managing
+ * asynchronous transactions.
+ *
+ * @class Connect
+ */
+
+YAHOO.util.Connect =
+{
+  /**
+   * @description Array of MSFT ActiveX ids for XMLHttpRequest.
+   * @property _msxml_progid
+   * @private
+   * @static
+   * @type array
+   */
+	_msxml_progid:[
+		'Microsoft.XMLHTTP',
+		'MSXML2.XMLHTTP.3.0',
+		'MSXML2.XMLHTTP'
+		],
+
+  /**
+   * @description Object literal of HTTP header(s)
+   * @property _http_header
+   * @private
+   * @static
+   * @type object
+   */
+	_http_headers:{},
+
+  /**
+   * @description Determines if HTTP headers are set.
+   * @property _has_http_headers
+   * @private
+   * @static
+   * @type boolean
+   */
+	_has_http_headers:false,
+
+ /**
+  * @description Determines if a default header of
+  * Content-Type of 'application/x-www-form-urlencoded'
+  * will be added to any client HTTP headers sent for POST
+  * transactions.
+  * @property _use_default_post_header
+  * @private
+  * @static
+  * @type boolean
+  */
+    _use_default_post_header:true,
+
+ /**
+  * @description The default header used for POST transactions.
+  * @property _default_post_header
+  * @private
+  * @static
+  * @type boolean
+  */
+    _default_post_header:'application/x-www-form-urlencoded; charset=UTF-8',
+
+ /**
+  * @description The default header used for transactions involving the
+  * use of HTML forms.
+  * @property _default_form_header
+  * @private
+  * @static
+  * @type boolean
+  */
+    _default_form_header:'application/x-www-form-urlencoded',
+
+ /**
+  * @description Determines if a default header of
+  * 'X-Requested-With: XMLHttpRequest'
+  * will be added to each transaction.
+  * @property _use_default_xhr_header
+  * @private
+  * @static
+  * @type boolean
+  */
+    _use_default_xhr_header:true,
+
+ /**
+  * @description The default header value for the label
+  * "X-Requested-With".  This is sent with each
+  * transaction, by default, to identify the
+  * request as being made by YUI Connection Manager.
+  * @property _default_xhr_header
+  * @private
+  * @static
+  * @type boolean
+  */
+    _default_xhr_header:'XMLHttpRequest',
+
+ /**
+  * @description Determines if custom, default headers
+  * are set for each transaction.
+  * @property _has_default_header
+  * @private
+  * @static
+  * @type boolean
+  */
+    _has_default_headers:true,
+
+ /**
+  * @description Determines if custom, default headers
+  * are set for each transaction.
+  * @property _has_default_header
+  * @private
+  * @static
+  * @type boolean
+  */
+    _default_headers:{},
+
+ /**
+  * @description Property modified by setForm() to determine if the data
+  * should be submitted as an HTML form.
+  * @property _isFormSubmit
+  * @private
+  * @static
+  * @type boolean
+  */
+    _isFormSubmit:false,
+
+ /**
+  * @description Property modified by setForm() to determine if a file(s)
+  * upload is expected.
+  * @property _isFileUpload
+  * @private
+  * @static
+  * @type boolean
+  */
+    _isFileUpload:false,
+
+ /**
+  * @description Property modified by setForm() to set a reference to the HTML
+  * form node if the desired action is file upload.
+  * @property _formNode
+  * @private
+  * @static
+  * @type object
+  */
+    _formNode:null,
+
+ /**
+  * @description Property modified by setForm() to set the HTML form data
+  * for each transaction.
+  * @property _sFormData
+  * @private
+  * @static
+  * @type string
+  */
+    _sFormData:null,
+
+ /**
+  * @description Collection of polling references to the polling mechanism in handleReadyState.
+  * @property _poll
+  * @private
+  * @static
+  * @type object
+  */
+    _poll:{},
+
+ /**
+  * @description Queue of timeout values for each transaction callback with a defined timeout value.
+  * @property _timeOut
+  * @private
+  * @static
+  * @type object
+  */
+    _timeOut:{},
+
+  /**
+   * @description The polling frequency, in milliseconds, for HandleReadyState.
+   * when attempting to determine a transaction's XHR readyState.
+   * The default is 50 milliseconds.
+   * @property _polling_interval
+   * @private
+   * @static
+   * @type int
+   */
+     _polling_interval:50,
+
+  /**
+   * @description A transaction counter that increments the transaction id for each transaction.
+   * @property _transaction_id
+   * @private
+   * @static
+   * @type int
+   */
+     _transaction_id:0,
+
+  /**
+   * @description Tracks the name-value pair of the "clicked" submit button if multiple submit
+   * buttons are present in an HTML form; and, if YAHOO.util.Event is available.
+   * @property _submitElementValue
+   * @private
+   * @static
+   * @type string
+   */
+	 _submitElementValue:null,
+
+  /**
+   * @description Determines whether YAHOO.util.Event is available and returns true or false.
+   * If true, an event listener is bound at the document level to trap click events that
+   * resolve to a target type of "Submit".  This listener will enable setForm() to determine
+   * the clicked "Submit" value in a multi-Submit button, HTML form.
+   * @property _hasSubmitListener
+   * @private
+   * @static
+   */
+	 _hasSubmitListener:(function()
+	 {
+		if(YAHOO.util.Event){
+			YAHOO.util.Event.addListener(
+				document,
+				'click',
+				function(e){
+					var obj = YAHOO.util.Event.getTarget(e);
+					if(obj.nodeName.toLowerCase() == 'input' && (obj.type && obj.type.toLowerCase() == 'submit')){
+						YAHOO.util.Connect._submitElementValue = encodeURIComponent(obj.name) + "=" + encodeURIComponent(obj.value);
+					}
+				});
+			return true;
+	    }
+	    return false;
+	 })(),
+
+  /**
+   * @description Custom event that fires at the start of a transaction
+   * @property startEvent
+   * @private
+   * @static
+   * @type CustomEvent
+   */
+	startEvent: new YAHOO.util.CustomEvent('start'),
+
+  /**
+   * @description Custom event that fires when a transaction response has completed.
+   * @property completeEvent
+   * @private
+   * @static
+   * @type CustomEvent
+   */
+	completeEvent: new YAHOO.util.CustomEvent('complete'),
+
+  /**
+   * @description Custom event that fires when handleTransactionResponse() determines a
+   * response in the HTTP 2xx range.
+   * @property successEvent
+   * @private
+   * @static
+   * @type CustomEvent
+   */
+	successEvent: new YAHOO.util.CustomEvent('success'),
+
+  /**
+   * @description Custom event that fires when handleTransactionResponse() determines a
+   * response in the HTTP 4xx/5xx range.
+   * @property failureEvent
+   * @private
+   * @static
+   * @type CustomEvent
+   */
+	failureEvent: new YAHOO.util.CustomEvent('failure'),
+
+  /**
+   * @description Custom event that fires when handleTransactionResponse() determines a
+   * response in the HTTP 4xx/5xx range.
+   * @property failureEvent
+   * @private
+   * @static
+   * @type CustomEvent
+   */
+	uploadEvent: new YAHOO.util.CustomEvent('upload'),
+
+  /**
+   * @description Custom event that fires when a transaction is successfully aborted.
+   * @property abortEvent
+   * @private
+   * @static
+   * @type CustomEvent
+   */
+	abortEvent: new YAHOO.util.CustomEvent('abort'),
+
+  /**
+   * @description A reference table that maps callback custom events members to its specific
+   * event name.
+   * @property _customEvents
+   * @private
+   * @static
+   * @type object
+   */
+	_customEvents:
+	{
+		onStart:['startEvent', 'start'],
+		onComplete:['completeEvent', 'complete'],
+		onSuccess:['successEvent', 'success'],
+		onFailure:['failureEvent', 'failure'],
+		onUpload:['uploadEvent', 'upload'],
+		onAbort:['abortEvent', 'abort']
+	},
+
+  /**
+   * @description Member to add an ActiveX id to the existing xml_progid array.
+   * In the event(unlikely) a new ActiveX id is introduced, it can be added
+   * without internal code modifications.
+   * @method setProgId
+   * @public
+   * @static
+   * @param {string} id The ActiveX id to be added to initialize the XHR object.
+   * @return void
+   */
+	setProgId:function(id)
+	{
+		this._msxml_progid.unshift(id);
+	},
+
+  /**
+   * @description Member to override the default POST header.
+   * @method setDefaultPostHeader
+   * @public
+   * @static
+   * @param {boolean} b Set and use default header - true or false .
+   * @return void
+   */
+	setDefaultPostHeader:function(b)
+	{
+		if(typeof b == 'string'){
+			this._default_post_header = b;
+		}
+		else if(typeof b == 'boolean'){
+			this._use_default_post_header = b;
+		}
+	},
+
+  /**
+   * @description Member to override the default transaction header..
+   * @method setDefaultXhrHeader
+   * @public
+   * @static
+   * @param {boolean} b Set and use default header - true or false .
+   * @return void
+   */
+	setDefaultXhrHeader:function(b)
+	{
+		if(typeof b == 'string'){
+			this._default_xhr_header = b;
+		}
+		else{
+			this._use_default_xhr_header = b;
+		}
+	},
+
+  /**
+   * @description Member to modify the default polling interval.
+   * @method setPollingInterval
+   * @public
+   * @static
+   * @param {int} i The polling interval in milliseconds.
+   * @return void
+   */
+	setPollingInterval:function(i)
+	{
+		if(typeof i == 'number' && isFinite(i)){
+			this._polling_interval = i;
+		}
+	},
+
+  /**
+   * @description Instantiates a XMLHttpRequest object and returns an object with two properties:
+   * the XMLHttpRequest instance and the transaction id.
+   * @method createXhrObject
+   * @private
+   * @static
+   * @param {int} transactionId Property containing the transaction id for this transaction.
+   * @return object
+   */
+	createXhrObject:function(transactionId)
+	{
+		var obj,http;
+		try
+		{
+			// Instantiates XMLHttpRequest in non-IE browsers and assigns to http.
+			http = new XMLHttpRequest();
+			//  Object literal with http and tId properties
+			obj = { conn:http, tId:transactionId };
+		}
+		catch(e)
+		{
+			for(var i=0; i<this._msxml_progid.length; ++i){
+				try
+				{
+					// Instantiates XMLHttpRequest for IE and assign to http
+					http = new ActiveXObject(this._msxml_progid[i]);
+					//  Object literal with conn and tId properties
+					obj = { conn:http, tId:transactionId };
+					break;
+				}
+				catch(e2){}
+			}
+		}
+		finally
+		{
+			return obj;
+		}
+	},
+
+  /**
+   * @description This method is called by asyncRequest to create a
+   * valid connection object for the transaction.  It also passes a
+   * transaction id and increments the transaction id counter.
+   * @method getConnectionObject
+   * @private
+   * @static
+   * @return {object}
+   */
+	getConnectionObject:function(isFileUpload)
+	{
+		var o;
+		var tId = this._transaction_id;
+
+		try
+		{
+			if(!isFileUpload){
+				o = this.createXhrObject(tId);
+			}
+			else{
+				o = {};
+				o.tId = tId;
+				o.isUpload = true;
+			}
+
+			if(o){
+				this._transaction_id++;
+			}
+		}
+		catch(e){}
+		finally
+		{
+			return o;
+		}
+	},
+
+  /**
+   * @description Method for initiating an asynchronous request via the XHR object.
+   * @method asyncRequest
+   * @public
+   * @static
+   * @param {string} method HTTP transaction method
+   * @param {string} uri Fully qualified path of resource
+   * @param {callback} callback User-defined callback function or object
+   * @param {string} postData POST body
+   * @return {object} Returns the connection object
+   */
+	asyncRequest:function(method, uri, callback, postData)
+	{
+		var o = (this._isFileUpload)?this.getConnectionObject(true):this.getConnectionObject();
+		var args = (callback && callback.argument)?callback.argument:null;
+
+		if(!o){
+			return null;
+		}
+		else{
+
+			// Intialize any transaction-specific custom events, if provided.
+			if(callback && callback.customevents){
+				this.initCustomEvents(o, callback);
+			}
+
+			if(this._isFormSubmit){
+				if(this._isFileUpload){
+					this.uploadFile(o, callback, uri, postData);
+					return o;
+				}
+
+				// If the specified HTTP method is GET, setForm() will return an
+				// encoded string that is concatenated to the uri to
+				// create a querystring.
+				if(method.toUpperCase() == 'GET'){
+					if(this._sFormData.length !== 0){
+						// If the URI already contains a querystring, append an ampersand
+						// and then concatenate _sFormData to the URI.
+						uri += ((uri.indexOf('?') == -1)?'?':'&') + this._sFormData;
+					}
+				}
+				else if(method.toUpperCase() == 'POST'){
+					// If POST data exist in addition to the HTML form data,
+					// it will be concatenated to the form data.
+					postData = postData?this._sFormData + "&" + postData:this._sFormData;
+				}
+			}
+
+			if(method.toUpperCase() == 'GET' && (callback && callback.cache === false)){
+				// If callback.cache is defined and set to false, a
+				// timestamp value will be added to the querystring.
+				uri += ((uri.indexOf('?') == -1)?'?':'&') + "rnd=" + new Date().valueOf().toString();
+			}
+
+			o.conn.open(method, uri, true);
+
+			// Each transaction will automatically include a custom header of
+			// "X-Requested-With: XMLHttpRequest" to identify the request as
+			// having originated from Connection Manager.
+			if(this._use_default_xhr_header){
+				if(!this._default_headers['X-Requested-With']){
+					this.initHeader('X-Requested-With', this._default_xhr_header, true);
+				}
+			}
+
+			//If the transaction method is POST and the POST header value is set to true
+			//or a custom value, initalize the Content-Type header to this value.
+			if((method.toUpperCase() === 'POST' && this._use_default_post_header) && this._isFormSubmit === false){
+				this.initHeader('Content-Type', this._default_post_header);
+			}
+
+			//Initialize all default and custom HTTP headers,
+			if(this._has_default_headers || this._has_http_headers){
+				this.setHeader(o);
+			}
+
+			this.handleReadyState(o, callback);
+			o.conn.send(postData || '');
+
+
+			// Reset the HTML form data and state properties as
+			// soon as the data are submitted.
+			if(this._isFormSubmit === true){
+				this.resetFormState();
+			}
+
+			// Fire global custom event -- startEvent
+			this.startEvent.fire(o, args);
+
+			if(o.startEvent){
+				// Fire transaction custom event -- startEvent
+				o.startEvent.fire(o, args);
+			}
+
+			return o;
+		}
+	},
+
+  /**
+   * @description This method creates and subscribes custom events,
+   * specific to each transaction
+   * @method initCustomEvents
+   * @private
+   * @static
+   * @param {object} o The connection object
+   * @param {callback} callback The user-defined callback object
+   * @return {void}
+   */
+	initCustomEvents:function(o, callback)
+	{
+		var prop;
+		// Enumerate through callback.customevents members and bind/subscribe
+		// events that match in the _customEvents table.
+		for(prop in callback.customevents){
+			if(this._customEvents[prop][0]){
+				// Create the custom event
+				o[this._customEvents[prop][0]] = new YAHOO.util.CustomEvent(this._customEvents[prop][1], (callback.scope)?callback.scope:null);
+
+				// Subscribe the custom event
+				o[this._customEvents[prop][0]].subscribe(callback.customevents[prop]);
+			}
+		}
+	},
+
+  /**
+   * @description This method serves as a timer that polls the XHR object's readyState
+   * property during a transaction, instead of binding a callback to the
+   * onreadystatechange event.  Upon readyState 4, handleTransactionResponse
+   * will process the response, and the timer will be cleared.
+   * @method handleReadyState
+   * @private
+   * @static
+   * @param {object} o The connection object
+   * @param {callback} callback The user-defined callback object
+   * @return {void}
+   */
+
+    handleReadyState:function(o, callback)
+
+    {
+		var oConn = this;
+		var args = (callback && callback.argument)?callback.argument:null;
+
+		if(callback && callback.timeout){
+			this._timeOut[o.tId] = window.setTimeout(function(){ oConn.abort(o, callback, true); }, callback.timeout);
+		}
+
+		this._poll[o.tId] = window.setInterval(
+			function(){
+				if(o.conn && o.conn.readyState === 4){
+
+					// Clear the polling interval for the transaction
+					// and remove the reference from _poll.
+					window.clearInterval(oConn._poll[o.tId]);
+					delete oConn._poll[o.tId];
+
+					if(callback && callback.timeout){
+						window.clearTimeout(oConn._timeOut[o.tId]);
+						delete oConn._timeOut[o.tId];
+					}
+
+					// Fire global custom event -- completeEvent
+					oConn.completeEvent.fire(o, args);
+
+					if(o.completeEvent){
+						// Fire transaction custom event -- completeEvent
+						o.completeEvent.fire(o, args);
+					}
+
+					oConn.handleTransactionResponse(o, callback);
+				}
+			}
+		,this._polling_interval);
+    },
+
+  /**
+   * @description This method attempts to interpret the server response and
+   * determine whether the transaction was successful, or if an error or
+   * exception was encountered.
+   * @method handleTransactionResponse
+   * @private
+   * @static
+   * @param {object} o The connection object
+   * @param {object} callback The user-defined callback object
+   * @param {boolean} isAbort Determines if the transaction was terminated via abort().
+   * @return {void}
+   */
+    handleTransactionResponse:function(o, callback, isAbort)
+    {
+		var httpStatus, responseObject;
+		var args = (callback && callback.argument)?callback.argument:null;
+
+		try
+		{
+			if(o.conn.status !== undefined && o.conn.status !== 0){
+				httpStatus = o.conn.status;
+			}
+			else{
+				httpStatus = 13030;
+			}
+		}
+		catch(e){
+
+			 // 13030 is a custom code to indicate the condition -- in Mozilla/FF --
+			 // when the XHR object's status and statusText properties are
+			 // unavailable, and a query attempt throws an exception.
+			httpStatus = 13030;
+		}
+
+		if(httpStatus >= 200 && httpStatus < 300 || httpStatus === 1223){
+			responseObject = this.createResponseObject(o, args);
+			if(callback && callback.success){
+				if(!callback.scope){
+					callback.success(responseObject);
+				}
+				else{
+					// If a scope property is defined, the callback will be fired from
+					// the context of the object.
+					callback.success.apply(callback.scope, [responseObject]);
+				}
+			}
+
+			// Fire global custom event -- successEvent
+			this.successEvent.fire(responseObject);
+
+			if(o.successEvent){
+				// Fire transaction custom event -- successEvent
+				o.successEvent.fire(responseObject);
+			}
+		}
+		else{
+			switch(httpStatus){
+				// The following cases are wininet.dll error codes that may be encountered.
+				case 12002: // Server timeout
+				case 12029: // 12029 to 12031 correspond to dropped connections.
+				case 12030:
+				case 12031:
+				case 12152: // Connection closed by server.
+				case 13030: // See above comments for variable status.
+					responseObject = this.createExceptionObject(o.tId, args, (isAbort?isAbort:false));
+					if(callback && callback.failure){
+						if(!callback.scope){
+							callback.failure(responseObject);
+						}
+						else{
+							callback.failure.apply(callback.scope, [responseObject]);
+						}
+					}
+
+					break;
+				default:
+					responseObject = this.createResponseObject(o, args);
+					if(callback && callback.failure){
+						if(!callback.scope){
+							callback.failure(responseObject);
+						}
+						else{
+							callback.failure.apply(callback.scope, [responseObject]);
+						}
+					}
+			}
+
+			// Fire global custom event -- failureEvent
+			this.failureEvent.fire(responseObject);
+
+			if(o.failureEvent){
+				// Fire transaction custom event -- failureEvent
+				o.failureEvent.fire(responseObject);
+			}
+
+		}
+
+		this.releaseObject(o);
+		responseObject = null;
+    },
+
+  /**
+   * @description This method evaluates the server response, creates and returns the results via
+   * its properties.  Success and failure cases will differ in the response
+   * object's property values.
+   * @method createResponseObject
+   * @private
+   * @static
+   * @param {object} o The connection object
+   * @param {callbackArg} callbackArg The user-defined argument or arguments to be passed to the callback
+   * @return {object}
+   */
+    createResponseObject:function(o, callbackArg)
+    {
+		var obj = {};
+		var headerObj = {};
+
+		try
+		{
+			var headerStr = o.conn.getAllResponseHeaders();
+			var header = headerStr.split('\n');
+			for(var i=0; i<header.length; i++){
+				var delimitPos = header[i].indexOf(':');
+				if(delimitPos != -1){
+					headerObj[header[i].substring(0,delimitPos)] = header[i].substring(delimitPos+2);
+				}
+			}
+		}
+		catch(e){}
+
+		obj.tId = o.tId;
+		// Normalize IE's response to HTTP 204 when Win error 1223.
+		obj.status = (o.conn.status == 1223)?204:o.conn.status;
+		// Normalize IE's statusText to "No Content" instead of "Unknown".
+		obj.statusText = (o.conn.status == 1223)?"No Content":o.conn.statusText;
+		obj.getResponseHeader = headerObj;
+		obj.getAllResponseHeaders = headerStr;
+		obj.responseText = o.conn.responseText;
+		obj.responseXML = o.conn.responseXML;
+
+		if(callbackArg){
+			obj.argument = callbackArg;
+		}
+
+		return obj;
+    },
+
+  /**
+   * @description If a transaction cannot be completed due to dropped or closed connections,
+   * there may be not be enough information to build a full response object.
+   * The failure callback will be fired and this specific condition can be identified
+   * by a status property value of 0.
+   *
+   * If an abort was successful, the status property will report a value of -1.
+   *
+   * @method createExceptionObject
+   * @private
+   * @static
+   * @param {int} tId The Transaction Id
+   * @param {callbackArg} callbackArg The user-defined argument or arguments to be passed to the callback
+   * @param {boolean} isAbort Determines if the exception case is caused by a transaction abort
+   * @return {object}
+   */
+    createExceptionObject:function(tId, callbackArg, isAbort)
+    {
+		var COMM_CODE = 0;
+		var COMM_ERROR = 'communication failure';
+		var ABORT_CODE = -1;
+		var ABORT_ERROR = 'transaction aborted';
+
+		var obj = {};
+
+		obj.tId = tId;
+		if(isAbort){
+			obj.status = ABORT_CODE;
+			obj.statusText = ABORT_ERROR;
+		}
+		else{
+			obj.status = COMM_CODE;
+			obj.statusText = COMM_ERROR;
+		}
+
+		if(callbackArg){
+			obj.argument = callbackArg;
+		}
+
+		return obj;
+    },
+
+  /**
+   * @description Method that initializes the custom HTTP headers for the each transaction.
+   * @method initHeader
+   * @public
+   * @static
+   * @param {string} label The HTTP header label
+   * @param {string} value The HTTP header value
+   * @param {string} isDefault Determines if the specific header is a default header
+   * automatically sent with each transaction.
+   * @return {void}
+   */
+	initHeader:function(label, value, isDefault)
+	{
+		var headerObj = (isDefault)?this._default_headers:this._http_headers;
+		headerObj[label] = value;
+
+		if(isDefault){
+			this._has_default_headers = true;
+		}
+		else{
+			this._has_http_headers = true;
+		}
+	},
+
+
+  /**
+   * @description Accessor that sets the HTTP headers for each transaction.
+   * @method setHeader
+   * @private
+   * @static
+   * @param {object} o The connection object for the transaction.
+   * @return {void}
+   */
+	setHeader:function(o)
+	{
+		var prop;
+		if(this._has_default_headers){
+			for(prop in this._default_headers){
+				if(YAHOO.lang.hasOwnProperty(this._default_headers, prop)){
+					o.conn.setRequestHeader(prop, this._default_headers[prop]);
+				}
+			}
+		}
+
+		if(this._has_http_headers){
+			for(prop in this._http_headers){
+				if(YAHOO.lang.hasOwnProperty(this._http_headers, prop)){
+					o.conn.setRequestHeader(prop, this._http_headers[prop]);
+				}
+			}
+			delete this._http_headers;
+
+			this._http_headers = {};
+			this._has_http_headers = false;
+		}
+	},
+
+  /**
+   * @description Resets the default HTTP headers object
+   * @method resetDefaultHeaders
+   * @public
+   * @static
+   * @return {void}
+   */
+	resetDefaultHeaders:function(){
+		delete this._default_headers;
+		this._default_headers = {};
+		this._has_default_headers = false;
+	},
+
+  /**
+   * @description This method assembles the form label and value pairs and
+   * constructs an encoded string.
+   * asyncRequest() will automatically initialize the transaction with a
+   * a HTTP header Content-Type of application/x-www-form-urlencoded.
+   * @method setForm
+   * @public
+   * @static
+   * @param {string || object} form id or name attribute, or form object.
+   * @param {boolean} optional enable file upload.
+   * @param {boolean} optional enable file upload over SSL in IE only.
+   * @return {string} string of the HTML form field name and value pairs..
+   */
+	setForm:function(formId, isUpload, secureUri)
+	{
+        var oForm, oElement, oName, oValue, oDisabled,
+            hasSubmit = false,
+            data = [], item = 0,
+            i,len,j,jlen,opt;
+
+		this.resetFormState();
+
+		if(typeof formId == 'string'){
+			// Determine if the argument is a form id or a form name.
+			// Note form name usage is deprecated by supported
+			// here for legacy reasons.
+			oForm = (document.getElementById(formId) || document.forms[formId]);
+		}
+		else if(typeof formId == 'object'){
+			// Treat argument as an HTML form object.
+			oForm = formId;
+		}
+		else{
+			return;
+		}
+
+		// If the isUpload argument is true, setForm will call createFrame to initialize
+		// an iframe as the form target.
+		//
+		// The argument secureURI is also required by IE in SSL environments
+		// where the secureURI string is a fully qualified HTTP path, used to set the source
+		// of the iframe, to a stub resource in the same domain.
+		if(isUpload){
+
+			// Create iframe in preparation for file upload.
+			this.createFrame(secureUri?secureUri:null);
+
+			// Set form reference and file upload properties to true.
+			this._isFormSubmit = true;
+			this._isFileUpload = true;
+			this._formNode = oForm;
+
+			return;
+
+		}
+
+		// Iterate over the form elements collection to construct the
+		// label-value pairs.
+		for (i=0,len=oForm.elements.length; i<len; ++i){
+			oElement  = oForm.elements[i];
+			oDisabled = oElement.disabled;
+            oName     = oElement.name;
+
+			// Do not submit fields that are disabled or
+			// do not have a name attribute value.
+			if(!oDisabled && oName)
+			{
+                oName  = encodeURIComponent(oName)+'=';
+                oValue = encodeURIComponent(oElement.value);
+
+				switch(oElement.type)
+				{
+                    // Safari, Opera, FF all default opt.value from .text if
+                    // value attribute not specified in markup
+					case 'select-one':
+                        if (oElement.selectedIndex > -1) {
+                            opt = oElement.options[oElement.selectedIndex];
+                            data[item++] = oName + encodeURIComponent(
+                                (opt.attributes.value && opt.attributes.value.specified) ? opt.value : opt.text);
+                        }
+                        break;
+					case 'select-multiple':
+                        if (oElement.selectedIndex > -1) {
+                            for(j=oElement.selectedIndex, jlen=oElement.options.length; j<jlen; ++j){
+                                opt = oElement.options[j];
+                                if (opt.selected) {
+                                    data[item++] = oName + encodeURIComponent(
+                                        (opt.attributes.value && opt.attributes.value.specified) ? opt.value : opt.text);
+                                }
+                            }
+                        }
+						break;
+					case 'radio':
+					case 'checkbox':
+						if(oElement.checked){
+                            data[item++] = oName + oValue;
+						}
+						break;
+					case 'file':
+						// stub case as XMLHttpRequest will only send the file path as a string.
+					case undefined:
+						// stub case for fieldset element which returns undefined.
+					case 'reset':
+						// stub case for input type reset button.
+					case 'button':
+						// stub case for input type button elements.
+						break;
+					case 'submit':
+						if(hasSubmit === false){
+							if(this._hasSubmitListener && this._submitElementValue){
+                                data[item++] = this._submitElementValue;
+							}
+							else{
+                                data[item++] = oName + oValue;
+							}
+
+							hasSubmit = true;
+						}
+						break;
+					default:
+                        data[item++] = oName + oValue;
+				}
+			}
+		}
+
+		this._isFormSubmit = true;
+		this._sFormData = data.join('&');
+
+
+		this.initHeader('Content-Type', this._default_form_header);
+
+		return this._sFormData;
+	},
+
+  /**
+   * @description Resets HTML form properties when an HTML form or HTML form
+   * with file upload transaction is sent.
+   * @method resetFormState
+   * @private
+   * @static
+   * @return {void}
+   */
+	resetFormState:function(){
+		this._isFormSubmit = false;
+		this._isFileUpload = false;
+		this._formNode = null;
+		this._sFormData = "";
+	},
+
+  /**
+   * @description Creates an iframe to be used for form file uploads.  It is remove from the
+   * document upon completion of the upload transaction.
+   * @method createFrame
+   * @private
+   * @static
+   * @param {string} optional qualified path of iframe resource for SSL in IE.
+   * @return {void}
+   */
+	createFrame:function(secureUri){
+
+		// IE does not allow the setting of id and name attributes as object
+		// properties via createElement().  A different iframe creation
+		// pattern is required for IE.
+		var frameId = 'yuiIO' + this._transaction_id;
+		var io;
+		if(YAHOO.env.ua.ie){
+			io = document.createElement('<iframe id="' + frameId + '" name="' + frameId + '" />');
+
+			// IE will throw a security exception in an SSL environment if the
+			// iframe source is undefined.
+			if(typeof secureUri == 'boolean'){
+				io.src = 'javascript:false';
+			}
+		}
+		else{
+			io = document.createElement('iframe');
+			io.id = frameId;
+			io.name = frameId;
+		}
+
+		io.style.position = 'absolute';
+		io.style.top = '-1000px';
+		io.style.left = '-1000px';
+
+		document.body.appendChild(io);
+	},
+
+  /**
+   * @description Parses the POST data and creates hidden form elements
+   * for each key-value, and appends them to the HTML form object.
+   * @method appendPostData
+   * @private
+   * @static
+   * @param {string} postData The HTTP POST data
+   * @return {array} formElements Collection of hidden fields.
+   */
+	appendPostData:function(postData)
+	{
+		var formElements = [],
+			postMessage = postData.split('&'),
+			i, delimitPos;
+		for(i=0; i < postMessage.length; i++){
+			delimitPos = postMessage[i].indexOf('=');
+			if(delimitPos != -1){
+				formElements[i] = document.createElement('input');
+				formElements[i].type = 'hidden';
+				formElements[i].name = decodeURIComponent(postMessage[i].substring(0,delimitPos));
+				formElements[i].value = decodeURIComponent(postMessage[i].substring(delimitPos+1));
+				this._formNode.appendChild(formElements[i]);
+			}
+		}
+
+		return formElements;
+	},
+
+  /**
+   * @description Uploads HTML form, inclusive of files/attachments, using the
+   * iframe created in createFrame to facilitate the transaction.
+   * @method uploadFile
+   * @private
+   * @static
+   * @param {int} id The transaction id.
+   * @param {object} callback User-defined callback object.
+   * @param {string} uri Fully qualified path of resource.
+   * @param {string} postData POST data to be submitted in addition to HTML form.
+   * @return {void}
+   */
+	uploadFile:function(o, callback, uri, postData){
+
+		// Each iframe has an id prefix of "yuiIO" followed
+		// by the unique transaction id.
+		var frameId = 'yuiIO' + o.tId,
+		    uploadEncoding = 'multipart/form-data',
+		    io = document.getElementById(frameId),
+		    oConn = this,
+			args = (callback && callback.argument)?callback.argument:null,
+            oElements,i,prop,obj;
+
+		// Track original HTML form attribute values.
+		var rawFormAttributes =
+		{
+			action:this._formNode.getAttribute('action'),
+			method:this._formNode.getAttribute('method'),
+			target:this._formNode.getAttribute('target')
+		};
+
+		// Initialize the HTML form properties in case they are
+		// not defined in the HTML form.
+		this._formNode.setAttribute('action', uri);
+		this._formNode.setAttribute('method', 'POST');
+		this._formNode.setAttribute('target', frameId);
+
+		if(YAHOO.env.ua.ie){
+			// IE does not respect property enctype for HTML forms.
+			// Instead it uses the property - "encoding".
+			this._formNode.setAttribute('encoding', uploadEncoding);
+		}
+		else{
+			this._formNode.setAttribute('enctype', uploadEncoding);
+		}
+
+		if(postData){
+			oElements = this.appendPostData(postData);
+		}
+
+		// Start file upload.
+		this._formNode.submit();
+
+		// Fire global custom event -- startEvent
+		this.startEvent.fire(o, args);
+
+		if(o.startEvent){
+			// Fire transaction custom event -- startEvent
+			o.startEvent.fire(o, args);
+		}
+
+		// Start polling if a callback is present and the timeout
+		// property has been defined.
+		if(callback && callback.timeout){
+			this._timeOut[o.tId] = window.setTimeout(function(){ oConn.abort(o, callback, true); }, callback.timeout);
+		}
+
+		// Remove HTML elements created by appendPostData
+		if(oElements && oElements.length > 0){
+			for(i=0; i < oElements.length; i++){
+				this._formNode.removeChild(oElements[i]);
+			}
+		}
+
+		// Restore HTML form attributes to their original
+		// values prior to file upload.
+		for(prop in rawFormAttributes){
+			if(YAHOO.lang.hasOwnProperty(rawFormAttributes, prop)){
+				if(rawFormAttributes[prop]){
+					this._formNode.setAttribute(prop, rawFormAttributes[prop]);
+				}
+				else{
+					this._formNode.removeAttribute(prop);
+				}
+			}
+		}
+
+		// Reset HTML form state properties.
+		this.resetFormState();
+
+		// Create the upload callback handler that fires when the iframe
+		// receives the load event.  Subsequently, the event handler is detached
+		// and the iframe removed from the document.
+		var uploadCallback = function()
+		{
+			if(callback && callback.timeout){
+				window.clearTimeout(oConn._timeOut[o.tId]);
+				delete oConn._timeOut[o.tId];
+			}
+
+			// Fire global custom event -- completeEvent
+			oConn.completeEvent.fire(o, args);
+
+			if(o.completeEvent){
+				// Fire transaction custom event -- completeEvent
+				o.completeEvent.fire(o, args);
+			}
+
+			obj = {
+			    tId : o.tId,
+			    argument : callback.argument
+            };
+
+			try
+			{
+				// responseText and responseXML will be populated with the same data from the iframe.
+				// Since the HTTP headers cannot be read from the iframe
+				obj.responseText = io.contentWindow.document.body?io.contentWindow.document.body.innerHTML:io.contentWindow.document.documentElement.textContent;
+				obj.responseXML = io.contentWindow.document.XMLDocument?io.contentWindow.document.XMLDocument:io.contentWindow.document;
+			}
+			catch(e){}
+
+			if(callback && callback.upload){
+				if(!callback.scope){
+					callback.upload(obj);
+				}
+				else{
+					callback.upload.apply(callback.scope, [obj]);
+				}
+			}
+
+			// Fire global custom event -- uploadEvent
+			oConn.uploadEvent.fire(obj);
+
+			if(o.uploadEvent){
+				// Fire transaction custom event -- uploadEvent
+				o.uploadEvent.fire(obj);
+			}
+
+			YAHOO.util.Event.removeListener(io, "load", uploadCallback);
+
+			setTimeout(
+				function(){
+					document.body.removeChild(io);
+					oConn.releaseObject(o);
+				}, 100);
+		};
+
+		// Bind the onload handler to the iframe to detect the file upload response.
+		YAHOO.util.Event.addListener(io, "load", uploadCallback);
+	},
+
+  /**
+   * @description Method to terminate a transaction, if it has not reached readyState 4.
+   * @method abort
+   * @public
+   * @static
+   * @param {object} o The connection object returned by asyncRequest.
+   * @param {object} callback  User-defined callback object.
+   * @param {string} isTimeout boolean to indicate if abort resulted from a callback timeout.
+   * @return {boolean}
+   */
+	abort:function(o, callback, isTimeout)
+	{
+		var abortStatus;
+		var args = (callback && callback.argument)?callback.argument:null;
+
+
+		if(o && o.conn){
+			if(this.isCallInProgress(o)){
+				// Issue abort request
+				o.conn.abort();
+
+				window.clearInterval(this._poll[o.tId]);
+				delete this._poll[o.tId];
+
+				if(isTimeout){
+					window.clearTimeout(this._timeOut[o.tId]);
+					delete this._timeOut[o.tId];
+				}
+
+				abortStatus = true;
+			}
+		}
+		else if(o && o.isUpload === true){
+			var frameId = 'yuiIO' + o.tId;
+			var io = document.getElementById(frameId);
+
+			if(io){
+				// Remove all listeners on the iframe prior to
+				// its destruction.
+				YAHOO.util.Event.removeListener(io, "load");
+				// Destroy the iframe facilitating the transaction.
+				document.body.removeChild(io);
+
+				if(isTimeout){
+					window.clearTimeout(this._timeOut[o.tId]);
+					delete this._timeOut[o.tId];
+				}
+
+				abortStatus = true;
+			}
+		}
+		else{
+			abortStatus = false;
+		}
+
+		if(abortStatus === true){
+			// Fire global custom event -- abortEvent
+			this.abortEvent.fire(o, args);
+
+			if(o.abortEvent){
+				// Fire transaction custom event -- abortEvent
+				o.abortEvent.fire(o, args);
+			}
+
+			this.handleTransactionResponse(o, callback, true);
+		}
+
+		return abortStatus;
+	},
+
+  /**
+   * @description Determines if the transaction is still being processed.
+   * @method isCallInProgress
+   * @public
+   * @static
+   * @param {object} o The connection object returned by asyncRequest
+   * @return {boolean}
+   */
+	isCallInProgress:function(o)
+	{
+		// if the XHR object assigned to the transaction has not been dereferenced,
+		// then check its readyState status.  Otherwise, return false.
+		if(o && o.conn){
+			return o.conn.readyState !== 4 && o.conn.readyState !== 0;
+		}
+		else if(o && o.isUpload === true){
+			var frameId = 'yuiIO' + o.tId;
+			return document.getElementById(frameId)?true:false;
+		}
+		else{
+			return false;
+		}
+	},
+
+  /**
+   * @description Dereference the XHR instance and the connection object after the transaction is completed.
+   * @method releaseObject
+   * @private
+   * @static
+   * @param {object} o The connection object
+   * @return {void}
+   */
+	releaseObject:function(o)
+	{
+		if(o && o.conn){
+			//dereference the XHR instance.
+			o.conn = null;
+
+
+			//dereference the connection object.
+			o = null;
+		}
+	}
+};
+YAHOO.register("connection", YAHOO.util.Connect, {version: "2.6.0", build: "1321"});
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/event/event.js b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/event/event.js
new file mode 100644
index 0000000..17eb097
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/event/event.js	
@@ -0,0 +1,2562 @@
+/*
+Copyright (c) 2008, Yahoo! Inc. All rights reserved.
+Code licensed under the BSD License:
+http://developer.yahoo.net/yui/license.txt
+version: 2.6.0
+*/
+
+/**
+ * The CustomEvent class lets you define events for your application
+ * that can be subscribed to by one or more independent component.
+ *
+ * @param {String}  type The type of event, which is passed to the callback
+ *                  when the event fires
+ * @param {Object}  oScope The context the event will fire from.  "this" will
+ *                  refer to this object in the callback.  Default value: 
+ *                  the window object.  The listener can override this.
+ * @param {boolean} silent pass true to prevent the event from writing to
+ *                  the debugsystem
+ * @param {int}     signature the signature that the custom event subscriber
+ *                  will receive. YAHOO.util.CustomEvent.LIST or 
+ *                  YAHOO.util.CustomEvent.FLAT.  The default is
+ *                  YAHOO.util.CustomEvent.LIST.
+ * @namespace YAHOO.util
+ * @class CustomEvent
+ * @constructor
+ */
+YAHOO.util.CustomEvent = function(type, oScope, silent, signature) {
+
+    /**
+     * The type of event, returned to subscribers when the event fires
+     * @property type
+     * @type string
+     */
+    this.type = type;
+
+    /**
+     * The scope the the event will fire from by default.  Defaults to the window 
+     * obj
+     * @property scope
+     * @type object
+     */
+    this.scope = oScope || window;
+
+    /**
+     * By default all custom events are logged in the debug build, set silent
+     * to true to disable debug outpu for this event.
+     * @property silent
+     * @type boolean
+     */
+    this.silent = silent;
+
+    /**
+     * Custom events support two styles of arguments provided to the event
+     * subscribers.  
+     * <ul>
+     * <li>YAHOO.util.CustomEvent.LIST: 
+     *   <ul>
+     *   <li>param1: event name</li>
+     *   <li>param2: array of arguments sent to fire</li>
+     *   <li>param3: <optional> a custom object supplied by the subscriber</li>
+     *   </ul>
+     * </li>
+     * <li>YAHOO.util.CustomEvent.FLAT
+     *   <ul>
+     *   <li>param1: the first argument passed to fire.  If you need to
+     *           pass multiple parameters, use and array or object literal</li>
+     *   <li>param2: <optional> a custom object supplied by the subscriber</li>
+     *   </ul>
+     * </li>
+     * </ul>
+     *   @property signature
+     *   @type int
+     */
+    this.signature = signature || YAHOO.util.CustomEvent.LIST;
+
+    /**
+     * The subscribers to this event
+     * @property subscribers
+     * @type Subscriber[]
+     */
+    this.subscribers = [];
+
+    if (!this.silent) {
+    }
+
+    var onsubscribeType = "_YUICEOnSubscribe";
+
+    // Only add subscribe events for events that are not generated by 
+    // CustomEvent
+    if (type !== onsubscribeType) {
+
+        /**
+         * Custom events provide a custom event that fires whenever there is
+         * a new subscriber to the event.  This provides an opportunity to
+         * handle the case where there is a non-repeating event that has
+         * already fired has a new subscriber.  
+         *
+         * @event subscribeEvent
+         * @type YAHOO.util.CustomEvent
+         * @param {Function} fn The function to execute
+         * @param {Object}   obj An object to be passed along when the event 
+         *                       fires
+         * @param {boolean|Object}  override If true, the obj passed in becomes 
+         *                                   the execution scope of the listener.
+         *                                   if an object, that object becomes the
+         *                                   the execution scope.
+         */
+        this.subscribeEvent = 
+                new YAHOO.util.CustomEvent(onsubscribeType, this, true);
+
+    } 
+
+
+    /**
+     * In order to make it possible to execute the rest of the subscriber
+     * stack when one thows an exception, the subscribers exceptions are
+     * caught.  The most recent exception is stored in this property
+     * @property lastError
+     * @type Error
+     */
+    this.lastError = null;
+};
+
+/**
+ * Subscriber listener sigature constant.  The LIST type returns three
+ * parameters: the event type, the array of args passed to fire, and
+ * the optional custom object
+ * @property YAHOO.util.CustomEvent.LIST
+ * @static
+ * @type int
+ */
+YAHOO.util.CustomEvent.LIST = 0;
+
+/**
+ * Subscriber listener sigature constant.  The FLAT type returns two
+ * parameters: the first argument passed to fire and the optional 
+ * custom object
+ * @property YAHOO.util.CustomEvent.FLAT
+ * @static
+ * @type int
+ */
+YAHOO.util.CustomEvent.FLAT = 1;
+
+YAHOO.util.CustomEvent.prototype = {
+
+    /**
+     * Subscribes the caller to this event
+     * @method subscribe
+     * @param {Function} fn        The function to execute
+     * @param {Object}   obj       An object to be passed along when the event 
+     *                             fires
+     * @param {boolean|Object}  override If true, the obj passed in becomes 
+     *                                   the execution scope of the listener.
+     *                                   if an object, that object becomes the
+     *                                   the execution scope.
+     */
+    subscribe: function(fn, obj, override) {
+
+        if (!fn) {
+throw new Error("Invalid callback for subscriber to '" + this.type + "'");
+        }
+
+        if (this.subscribeEvent) {
+            this.subscribeEvent.fire(fn, obj, override);
+        }
+
+        this.subscribers.push( new YAHOO.util.Subscriber(fn, obj, override) );
+    },
+
+    /**
+     * Unsubscribes subscribers.
+     * @method unsubscribe
+     * @param {Function} fn  The subscribed function to remove, if not supplied
+     *                       all will be removed
+     * @param {Object}   obj  The custom object passed to subscribe.  This is
+     *                        optional, but if supplied will be used to
+     *                        disambiguate multiple listeners that are the same
+     *                        (e.g., you subscribe many object using a function
+     *                        that lives on the prototype)
+     * @return {boolean} True if the subscriber was found and detached.
+     */
+    unsubscribe: function(fn, obj) {
+
+        if (!fn) {
+            return this.unsubscribeAll();
+        }
+
+        var found = false;
+        for (var i=0, len=this.subscribers.length; i<len; ++i) {
+            var s = this.subscribers[i];
+            if (s && s.contains(fn, obj)) {
+                this._delete(i);
+                found = true;
+            }
+        }
+
+        return found;
+    },
+
+    /**
+     * Notifies the subscribers.  The callback functions will be executed
+     * from the scope specified when the event was created, and with the 
+     * following parameters:
+     *   <ul>
+     *   <li>The type of event</li>
+     *   <li>All of the arguments fire() was executed with as an array</li>
+     *   <li>The custom object (if any) that was passed into the subscribe() 
+     *       method</li>
+     *   </ul>
+     * @method fire 
+     * @param {Object*} arguments an arbitrary set of parameters to pass to 
+     *                            the handler.
+     * @return {boolean} false if one of the subscribers returned false, 
+     *                   true otherwise
+     */
+    fire: function() {
+
+        this.lastError = null;
+
+        var errors = [],
+            len=this.subscribers.length;
+
+        if (!len && this.silent) {
+            return true;
+        }
+
+        var args=[].slice.call(arguments, 0), ret=true, i, rebuild=false;
+
+        if (!this.silent) {
+        }
+
+        // make a copy of the subscribers so that there are
+        // no index problems if one subscriber removes another.
+        var subs = this.subscribers.slice(), throwErrors = YAHOO.util.Event.throwErrors;
+
+        for (i=0; i<len; ++i) {
+            var s = subs[i];
+            if (!s) {
+                rebuild=true;
+            } else {
+                if (!this.silent) {
+                }
+
+                var scope = s.getScope(this.scope);
+
+                if (this.signature == YAHOO.util.CustomEvent.FLAT) {
+                    var param = null;
+                    if (args.length > 0) {
+                        param = args[0];
+                    }
+
+                    try {
+                        ret = s.fn.call(scope, param, s.obj);
+                    } catch(e) {
+                        this.lastError = e;
+                        // errors.push(e);
+                        if (throwErrors) {
+                            throw e;
+                        }
+                    }
+                } else {
+                    try {
+                        ret = s.fn.call(scope, this.type, args, s.obj);
+                    } catch(ex) {
+                        this.lastError = ex;
+                        if (throwErrors) {
+                            throw ex;
+                        }
+                    }
+                }
+
+                if (false === ret) {
+                    if (!this.silent) {
+                    }
+
+                    break;
+                    // return false;
+                }
+            }
+        }
+
+        return (ret !== false);
+    },
+
+    /**
+     * Removes all listeners
+     * @method unsubscribeAll
+     * @return {int} The number of listeners unsubscribed
+     */
+    unsubscribeAll: function() {
+        for (var i=this.subscribers.length-1; i>-1; i--) {
+            this._delete(i);
+        }
+
+        this.subscribers=[];
+
+        return i;
+    },
+
+    /**
+     * @method _delete
+     * @private
+     */
+    _delete: function(index) {
+        var s = this.subscribers[index];
+        if (s) {
+            delete s.fn;
+            delete s.obj;
+        }
+
+        // this.subscribers[index]=null;
+        this.subscribers.splice(index, 1);
+    },
+
+    /**
+     * @method toString
+     */
+    toString: function() {
+         return "CustomEvent: " + "'" + this.type  + "', " + 
+             "scope: " + this.scope;
+
+    }
+};
+
+/////////////////////////////////////////////////////////////////////
+
+/**
+ * Stores the subscriber information to be used when the event fires.
+ * @param {Function} fn       The function to execute
+ * @param {Object}   obj      An object to be passed along when the event fires
+ * @param {boolean}  override If true, the obj passed in becomes the execution
+ *                            scope of the listener
+ * @class Subscriber
+ * @constructor
+ */
+YAHOO.util.Subscriber = function(fn, obj, override) {
+
+    /**
+     * The callback that will be execute when the event fires
+     * @property fn
+     * @type function
+     */
+    this.fn = fn;
+
+    /**
+     * An optional custom object that will passed to the callback when
+     * the event fires
+     * @property obj
+     * @type object
+     */
+    this.obj = YAHOO.lang.isUndefined(obj) ? null : obj;
+
+    /**
+     * The default execution scope for the event listener is defined when the
+     * event is created (usually the object which contains the event).
+     * By setting override to true, the execution scope becomes the custom
+     * object passed in by the subscriber.  If override is an object, that 
+     * object becomes the scope.
+     * @property override
+     * @type boolean|object
+     */
+    this.override = override;
+
+};
+
+/**
+ * Returns the execution scope for this listener.  If override was set to true
+ * the custom obj will be the scope.  If override is an object, that is the
+ * scope, otherwise the default scope will be used.
+ * @method getScope
+ * @param {Object} defaultScope the scope to use if this listener does not
+ *                              override it.
+ */
+YAHOO.util.Subscriber.prototype.getScope = function(defaultScope) {
+    if (this.override) {
+        if (this.override === true) {
+            return this.obj;
+        } else {
+            return this.override;
+        }
+    }
+    return defaultScope;
+};
+
+/**
+ * Returns true if the fn and obj match this objects properties.
+ * Used by the unsubscribe method to match the right subscriber.
+ *
+ * @method contains
+ * @param {Function} fn the function to execute
+ * @param {Object} obj an object to be passed along when the event fires
+ * @return {boolean} true if the supplied arguments match this 
+ *                   subscriber's signature.
+ */
+YAHOO.util.Subscriber.prototype.contains = function(fn, obj) {
+    if (obj) {
+        return (this.fn == fn && this.obj == obj);
+    } else {
+        return (this.fn == fn);
+    }
+};
+
+/**
+ * @method toString
+ */
+YAHOO.util.Subscriber.prototype.toString = function() {
+    return "Subscriber { obj: " + this.obj  + 
+           ", override: " +  (this.override || "no") + " }";
+};
+
+/**
+ * The Event Utility provides utilities for managing DOM Events and tools
+ * for building event systems
+ *
+ * @module event
+ * @title Event Utility
+ * @namespace YAHOO.util
+ * @requires yahoo
+ */
+
+// The first instance of Event will win if it is loaded more than once.
+// @TODO this needs to be changed so that only the state data that needs to
+// be preserved is kept, while methods are overwritten/added as needed.
+// This means that the module pattern can't be used.
+if (!YAHOO.util.Event) {
+
+/**
+ * The event utility provides functions to add and remove event listeners,
+ * event cleansing.  It also tries to automatically remove listeners it
+ * registers during the unload event.
+ *
+ * @class Event
+ * @static
+ */
+    YAHOO.util.Event = function() {
+
+        /**
+         * True after the onload event has fired
+         * @property loadComplete
+         * @type boolean
+         * @static
+         * @private
+         */
+        var loadComplete =  false;
+
+        /**
+         * Cache of wrapped listeners
+         * @property listeners
+         * @type array
+         * @static
+         * @private
+         */
+        var listeners = [];
+
+        /**
+         * User-defined unload function that will be fired before all events
+         * are detached
+         * @property unloadListeners
+         * @type array
+         * @static
+         * @private
+         */
+        var unloadListeners = [];
+
+        /**
+         * Cache of DOM0 event handlers to work around issues with DOM2 events
+         * in Safari
+         * @property legacyEvents
+         * @static
+         * @private
+         */
+        var legacyEvents = [];
+
+        /**
+         * Listener stack for DOM0 events
+         * @property legacyHandlers
+         * @static
+         * @private
+         */
+        var legacyHandlers = [];
+
+        /**
+         * The number of times to poll after window.onload.  This number is
+         * increased if additional late-bound handlers are requested after
+         * the page load.
+         * @property retryCount
+         * @static
+         * @private
+         */
+        var retryCount = 0;
+
+        /**
+         * onAvailable listeners
+         * @property onAvailStack
+         * @static
+         * @private
+         */
+        var onAvailStack = [];
+
+        /**
+         * Lookup table for legacy events
+         * @property legacyMap
+         * @static
+         * @private
+         */
+        var legacyMap = [];
+
+        /**
+         * Counter for auto id generation
+         * @property counter
+         * @static
+         * @private
+         */
+        var counter = 0;
+        
+        /**
+         * Normalized keycodes for webkit/safari
+         * @property webkitKeymap
+         * @type {int: int}
+         * @private
+         * @static
+         * @final
+         */
+        var webkitKeymap = {
+            63232: 38, // up
+            63233: 40, // down
+            63234: 37, // left
+            63235: 39, // right
+            63276: 33, // page up
+            63277: 34, // page down
+            25: 9      // SHIFT-TAB (Safari provides a different key code in
+                       // this case, even though the shiftKey modifier is set)
+        };
+        
+        // String constants used by the addFocusListener and removeFocusListener methods
+        var _FOCUS = YAHOO.env.ua.ie ? "focusin" : "focus";
+        var _BLUR = YAHOO.env.ua.ie ? "focusout" : "blur";      
+
+        return {
+
+            /**
+             * The number of times we should look for elements that are not
+             * in the DOM at the time the event is requested after the document
+             * has been loaded.  The default is 2000@amp;20 ms, so it will poll
+             * for 40 seconds or until all outstanding handlers are bound
+             * (whichever comes first).
+             * @property POLL_RETRYS
+             * @type int
+             * @static
+             * @final
+             */
+            POLL_RETRYS: 2000,
+
+            /**
+             * The poll interval in milliseconds
+             * @property POLL_INTERVAL
+             * @type int
+             * @static
+             * @final
+             */
+            POLL_INTERVAL: 20,
+
+            /**
+             * Element to bind, int constant
+             * @property EL
+             * @type int
+             * @static
+             * @final
+             */
+            EL: 0,
+
+            /**
+             * Type of event, int constant
+             * @property TYPE
+             * @type int
+             * @static
+             * @final
+             */
+            TYPE: 1,
+
+            /**
+             * Function to execute, int constant
+             * @property FN
+             * @type int
+             * @static
+             * @final
+             */
+            FN: 2,
+
+            /**
+             * Function wrapped for scope correction and cleanup, int constant
+             * @property WFN
+             * @type int
+             * @static
+             * @final
+             */
+            WFN: 3,
+
+            /**
+             * Object passed in by the user that will be returned as a 
+             * parameter to the callback, int constant.  Specific to
+             * unload listeners
+             * @property OBJ
+             * @type int
+             * @static
+             * @final
+             */
+            UNLOAD_OBJ: 3,
+
+            /**
+             * Adjusted scope, either the element we are registering the event
+             * on or the custom object passed in by the listener, int constant
+             * @property ADJ_SCOPE
+             * @type int
+             * @static
+             * @final
+             */
+            ADJ_SCOPE: 4,
+
+            /**
+             * The original obj passed into addListener
+             * @property OBJ
+             * @type int
+             * @static
+             * @final
+             */
+            OBJ: 5,
+
+            /**
+             * The original scope parameter passed into addListener
+             * @property OVERRIDE
+             * @type int
+             * @static
+             * @final
+             */
+            OVERRIDE: 6,
+
+            /**
+             * The original capture parameter passed into _addListener
+             * @property CAPTURE
+             * @type int
+             * @static
+             * @final
+             */
+            CAPTURE: 7,
+
+
+            /**
+             * addListener/removeListener can throw errors in unexpected scenarios.
+             * These errors are suppressed, the method returns false, and this property
+             * is set
+             * @property lastError
+             * @static
+             * @type Error
+             */
+            lastError: null,
+
+            /**
+             * Safari detection
+             * @property isSafari
+             * @private
+             * @static
+             * @deprecated use YAHOO.env.ua.webkit
+             */
+            isSafari: YAHOO.env.ua.webkit,
+            
+            /**
+             * webkit version
+             * @property webkit
+             * @type string
+             * @private
+             * @static
+             * @deprecated use YAHOO.env.ua.webkit
+             */
+            webkit: YAHOO.env.ua.webkit,
+            
+            /**
+             * IE detection 
+             * @property isIE
+             * @private
+             * @static
+             * @deprecated use YAHOO.env.ua.ie
+             */
+            isIE: YAHOO.env.ua.ie,
+
+            /**
+             * poll handle
+             * @property _interval
+             * @static
+             * @private
+             */
+            _interval: null,
+
+            /**
+             * document readystate poll handle
+             * @property _dri
+             * @static
+             * @private
+             */
+             _dri: null,
+
+            /**
+             * True when the document is initially usable
+             * @property DOMReady
+             * @type boolean
+             * @static
+             */
+            DOMReady: false,
+
+            /**
+             * Errors thrown by subscribers of custom events are caught
+             * and the error message is written to the debug console.  If
+             * this property is set to true, it will also re-throw the
+             * error.
+             * @property throwErrors
+             * @type boolean
+             * @default false
+             */
+            throwErrors: false,
+
+            /**
+             * @method startInterval
+             * @static
+             * @private
+             */
+            startInterval: function() {
+                if (!this._interval) {
+                    var self = this;
+                    var callback = function() { self._tryPreloadAttach(); };
+                    this._interval = setInterval(callback, this.POLL_INTERVAL);
+                }
+            },
+
+            /**
+             * Executes the supplied callback when the item with the supplied
+             * id is found.  This is meant to be used to execute behavior as
+             * soon as possible as the page loads.  If you use this after the
+             * initial page load it will poll for a fixed time for the element.
+             * The number of times it will poll and the frequency are
+             * configurable.  By default it will poll for 10 seconds.
+             *
+             * <p>The callback is executed with a single parameter:
+             * the custom object parameter, if provided.</p>
+             *
+             * @method onAvailable
+             *
+             * @param {string||string[]}   p_id the id of the element, or an array
+             * of ids to look for.
+             * @param {function} p_fn what to execute when the element is found.
+             * @param {object}   p_obj an optional object to be passed back as
+             *                   a parameter to p_fn.
+             * @param {boolean|object}  p_override If set to true, p_fn will execute
+             *                   in the scope of p_obj, if set to an object it
+             *                   will execute in the scope of that object
+             * @param checkContent {boolean} check child node readiness (onContentReady)
+             * @static
+             */
+            onAvailable: function(p_id, p_fn, p_obj, p_override, checkContent) {
+
+                var a = (YAHOO.lang.isString(p_id)) ? [p_id] : p_id;
+
+                for (var i=0; i<a.length; i=i+1) {
+                    onAvailStack.push({id:         a[i], 
+                                       fn:         p_fn, 
+                                       obj:        p_obj, 
+                                       override:   p_override, 
+                                       checkReady: checkContent });
+                }
+
+                retryCount = this.POLL_RETRYS;
+
+                this.startInterval();
+            },
+
+            /**
+             * Works the same way as onAvailable, but additionally checks the
+             * state of sibling elements to determine if the content of the
+             * available element is safe to modify.
+             *
+             * <p>The callback is executed with a single parameter:
+             * the custom object parameter, if provided.</p>
+             *
+             * @method onContentReady
+             *
+             * @param {string}   p_id the id of the element to look for.
+             * @param {function} p_fn what to execute when the element is ready.
+             * @param {object}   p_obj an optional object to be passed back as
+             *                   a parameter to p_fn.
+             * @param {boolean|object}  p_override If set to true, p_fn will execute
+             *                   in the scope of p_obj.  If an object, p_fn will
+             *                   exectute in the scope of that object
+             *
+             * @static
+             */
+            onContentReady: function(p_id, p_fn, p_obj, p_override) {
+                this.onAvailable(p_id, p_fn, p_obj, p_override, true);
+            },
+
+            /**
+             * Executes the supplied callback when the DOM is first usable.  This
+             * will execute immediately if called after the DOMReady event has
+             * fired.   @todo the DOMContentReady event does not fire when the
+             * script is dynamically injected into the page.  This means the
+             * DOMReady custom event will never fire in FireFox or Opera when the
+             * library is injected.  It _will_ fire in Safari, and the IE 
+             * implementation would allow for us to fire it if the defered script
+             * is not available.  We want this to behave the same in all browsers.
+             * Is there a way to identify when the script has been injected 
+             * instead of included inline?  Is there a way to know whether the 
+             * window onload event has fired without having had a listener attached 
+             * to it when it did so?
+             *
+             * <p>The callback is a CustomEvent, so the signature is:</p>
+             * <p>type &lt;string&gt;, args &lt;array&gt;, customobject &lt;object&gt;</p>
+             * <p>For DOMReady events, there are no fire argments, so the
+             * signature is:</p>
+             * <p>"DOMReady", [], obj</p>
+             *
+             *
+             * @method onDOMReady
+             *
+             * @param {function} p_fn what to execute when the element is found.
+             * @param {object}   p_obj an optional object to be passed back as
+             *                   a parameter to p_fn.
+             * @param {boolean|object}  p_scope If set to true, p_fn will execute
+             *                   in the scope of p_obj, if set to an object it
+             *                   will execute in the scope of that object
+             *
+             * @static
+             */
+            onDOMReady: function(p_fn, p_obj, p_override) {
+                if (this.DOMReady) {
+                    setTimeout(function() {
+                        var s = window;
+                        if (p_override) {
+                            if (p_override === true) {
+                                s = p_obj;
+                            } else {
+                                s = p_override;
+                            }
+                        }
+                        p_fn.call(s, "DOMReady", [], p_obj);
+                    }, 0);
+                } else {
+                    this.DOMReadyEvent.subscribe(p_fn, p_obj, p_override);
+                }
+            },
+
+
+            /**
+             * Appends an event handler
+             *
+             * @method _addListener
+             *
+             * @param {String|HTMLElement|Array|NodeList} el An id, an element 
+             *  reference, or a collection of ids and/or elements to assign the 
+             *  listener to.
+             * @param {String}   sType     The type of event to append
+             * @param {Function} fn        The method the event invokes
+             * @param {Object}   obj    An arbitrary object that will be 
+             *                             passed as a parameter to the handler
+             * @param {Boolean|object}  override  If true, the obj passed in becomes
+             *                             the execution scope of the listener. If an
+             *                             object, this object becomes the execution
+             *                             scope.
+             * @param {boolen}      capture capture or bubble phase
+             * @return {Boolean} True if the action was successful or defered,
+             *                        false if one or more of the elements 
+             *                        could not have the listener attached,
+             *                        or if the operation throws an exception.
+             * @private
+             * @static
+             */
+            _addListener: function(el, sType, fn, obj, override, capture) {
+
+                if (!fn || !fn.call) {
+                    return false;
+                }
+
+                // The el argument can be an array of elements or element ids.
+                if ( this._isValidCollection(el)) {
+                    var ok = true;
+                    for (var i=0,len=el.length; i<len; ++i) {
+                        ok = this._addListener(el[i], 
+                                       sType, 
+                                       fn, 
+                                       obj, 
+                                       override, 
+                                       capture) && ok;
+                    }
+                    return ok;
+
+                } else if (YAHOO.lang.isString(el)) {
+                    var oEl = this.getEl(el);
+                    // If the el argument is a string, we assume it is 
+                    // actually the id of the element.  If the page is loaded
+                    // we convert el to the actual element, otherwise we 
+                    // defer attaching the event until onload event fires
+
+                    // check to see if we need to delay hooking up the event 
+                    // until after the page loads.
+                    if (oEl) {
+                        el = oEl;
+                    } else {
+                        // defer adding the event until the element is available
+                        this.onAvailable(el, function() {
+                           YAHOO.util.Event._addListener(el, sType, fn, obj, override, capture);
+                        });
+
+                        return true;
+                    }
+                }
+
+                // Element should be an html element or an array if we get 
+                // here.
+                if (!el) {
+                    return false;
+                }
+
+                // we need to make sure we fire registered unload events 
+                // prior to automatically unhooking them.  So we hang on to 
+                // these instead of attaching them to the window and fire the
+                // handles explicitly during our one unload event.
+                if ("unload" == sType && obj !== this) {
+                    unloadListeners[unloadListeners.length] =
+                            [el, sType, fn, obj, override, capture];
+                    return true;
+                }
+
+
+                // if the user chooses to override the scope, we use the custom
+                // object passed in, otherwise the executing scope will be the
+                // HTML element that the event is registered on
+                var scope = el;
+                if (override) {
+                    if (override === true) {
+                        scope = obj;
+                    } else {
+                        scope = override;
+                    }
+                }
+
+                // wrap the function so we can return the obj object when
+                // the event fires;
+                var wrappedFn = function(e) {
+                        return fn.call(scope, YAHOO.util.Event.getEvent(e, el), 
+                                obj);
+                    };
+
+                var li = [el, sType, fn, wrappedFn, scope, obj, override, capture];
+                var index = listeners.length;
+                // cache the listener so we can try to automatically unload
+                listeners[index] = li;
+
+                if (this.useLegacyEvent(el, sType)) {
+                    var legacyIndex = this.getLegacyIndex(el, sType);
+
+                    // Add a new dom0 wrapper if one is not detected for this
+                    // element
+                    if ( legacyIndex == -1 || 
+                                el != legacyEvents[legacyIndex][0] ) {
+
+                        legacyIndex = legacyEvents.length;
+                        legacyMap[el.id + sType] = legacyIndex;
+
+                        // cache the signature for the DOM0 event, and 
+                        // include the existing handler for the event, if any
+                        legacyEvents[legacyIndex] = 
+                            [el, sType, el["on" + sType]];
+                        legacyHandlers[legacyIndex] = [];
+
+                        el["on" + sType] = 
+                            function(e) {
+                                YAHOO.util.Event.fireLegacyEvent(
+                                    YAHOO.util.Event.getEvent(e), legacyIndex);
+                            };
+                    }
+
+                    // add a reference to the wrapped listener to our custom
+                    // stack of events
+                    //legacyHandlers[legacyIndex].push(index);
+                    legacyHandlers[legacyIndex].push(li);
+
+                } else {
+                    try {
+                        this._simpleAdd(el, sType, wrappedFn, capture);
+                    } catch(ex) {
+                        // handle an error trying to attach an event.  If it fails
+                        // we need to clean up the cache
+                        this.lastError = ex;
+                        this._removeListener(el, sType, fn, capture);
+                        return false;
+                    }
+                }
+
+                return true;
+                
+            },
+
+
+            /**
+             * Appends an event handler
+             *
+             * @method addListener
+             *
+             * @param {String|HTMLElement|Array|NodeList} el An id, an element 
+             *  reference, or a collection of ids and/or elements to assign the 
+             *  listener to.
+             * @param {String}   sType     The type of event to append
+             * @param {Function} fn        The method the event invokes
+             * @param {Object}   obj    An arbitrary object that will be 
+             *                             passed as a parameter to the handler
+             * @param {Boolean|object}  override  If true, the obj passed in becomes
+             *                             the execution scope of the listener. If an
+             *                             object, this object becomes the execution
+             *                             scope.
+             * @return {Boolean} True if the action was successful or defered,
+             *                        false if one or more of the elements 
+             *                        could not have the listener attached,
+             *                        or if the operation throws an exception.
+             * @static
+             */
+            addListener: function (el, sType, fn, obj, override) {
+                return this._addListener(el, sType, fn, obj, override, false);
+            },
+
+            /**
+             * Appends a focus event handler.  (The focusin event is used for Internet Explorer, 
+             * the focus, capture-event for Opera, WebKit, and Gecko.)
+             *
+             * @method addFocusListener
+             *
+             * @param {String|HTMLElement|Array|NodeList} el An id, an element 
+             *  reference, or a collection of ids and/or elements to assign the 
+             *  listener to.
+             * @param {Function} fn        The method the event invokes
+             * @param {Object}   obj    An arbitrary object that will be 
+             *                             passed as a parameter to the handler
+             * @param {Boolean|object}  override  If true, the obj passed in becomes
+             *                             the execution scope of the listener. If an
+             *                             object, this object becomes the execution
+             *                             scope.
+             * @return {Boolean} True if the action was successful or defered,
+             *                        false if one or more of the elements 
+             *                        could not have the listener attached,
+             *                        or if the operation throws an exception.
+             * @static
+             */
+            addFocusListener: function (el, fn, obj, override) {
+                return this._addListener(el, _FOCUS, fn, obj, override, true);
+            },          
+
+
+            /**
+             * Removes a focus event listener
+             *
+             * @method removeFocusListener
+             *
+             * @param {String|HTMLElement|Array|NodeList} el An id, an element 
+             *  reference, or a collection of ids and/or elements to remove
+             *  the listener from.
+             * @param {Function} fn the method the event invokes.  If fn is
+             *  undefined, then all event handlers for the type of event are 
+             *  removed.
+             * @return {boolean} true if the unbind was successful, false 
+             *  otherwise.
+             * @static
+             */
+            removeFocusListener: function (el, fn) { 
+                return this._removeListener(el, _FOCUS, fn, true);
+            },
+
+            /**
+             * Appends a blur event handler.  (The focusout event is used for Internet Explorer, 
+             * the focusout, capture-event for Opera, WebKit, and Gecko.)
+             *
+             * @method addBlurListener
+             *
+             * @param {String|HTMLElement|Array|NodeList} el An id, an element 
+             *  reference, or a collection of ids and/or elements to assign the 
+             *  listener to.
+             * @param {Function} fn        The method the event invokes
+             * @param {Object}   obj    An arbitrary object that will be 
+             *                             passed as a parameter to the handler
+             * @param {Boolean|object}  override  If true, the obj passed in becomes
+             *                             the execution scope of the listener. If an
+             *                             object, this object becomes the execution
+             *                             scope.
+             * @return {Boolean} True if the action was successful or defered,
+             *                        false if one or more of the elements 
+             *                        could not have the listener attached,
+             *                        or if the operation throws an exception.
+             * @static
+             */
+            addBlurListener: function (el, fn, obj, override) {
+                return this._addListener(el, _BLUR, fn, obj, override, true);
+            },          
+
+            /**
+             * Removes a blur event listener
+             *
+             * @method removeBlurListener
+             *
+             * @param {String|HTMLElement|Array|NodeList} el An id, an element 
+             *  reference, or a collection of ids and/or elements to remove
+             *  the listener from.
+             * @param {Function} fn the method the event invokes.  If fn is
+             *  undefined, then all event handlers for the type of event are 
+             *  removed.
+             * @return {boolean} true if the unbind was successful, false 
+             *  otherwise.
+             * @static
+             */
+            removeBlurListener: function (el, fn) { 
+            
+                return this._removeListener(el, _BLUR, fn, true);
+            
+            },
+
+            /**
+             * When using legacy events, the handler is routed to this object
+             * so we can fire our custom listener stack.
+             * @method fireLegacyEvent
+             * @static
+             * @private
+             */
+            fireLegacyEvent: function(e, legacyIndex) {
+                var ok=true, le, lh, li, scope, ret;
+                
+                lh = legacyHandlers[legacyIndex].slice();
+                for (var i=0, len=lh.length; i<len; ++i) {
+                // for (var i in lh.length) {
+                    li = lh[i];
+                    if ( li && li[this.WFN] ) {
+                        scope = li[this.ADJ_SCOPE];
+                        ret = li[this.WFN].call(scope, e);
+                        ok = (ok && ret);
+                    }
+                }
+
+                // Fire the original handler if we replaced one.  We fire this
+                // after the other events to keep stopPropagation/preventDefault
+                // that happened in the DOM0 handler from touching our DOM2
+                // substitute
+                le = legacyEvents[legacyIndex];
+                if (le && le[2]) {
+                    le[2](e);
+                }
+                
+                return ok;
+            },
+
+            /**
+             * Returns the legacy event index that matches the supplied 
+             * signature
+             * @method getLegacyIndex
+             * @static
+             * @private
+             */
+            getLegacyIndex: function(el, sType) {
+                var key = this.generateId(el) + sType;
+                if (typeof legacyMap[key] == "undefined") { 
+                    return -1;
+                } else {
+                    return legacyMap[key];
+                }
+            },
+
+            /**
+             * Logic that determines when we should automatically use legacy
+             * events instead of DOM2 events.  Currently this is limited to old
+             * Safari browsers with a broken preventDefault
+             * @method useLegacyEvent
+             * @static
+             * @private
+             */
+            useLegacyEvent: function(el, sType) {
+return (this.webkit && this.webkit < 419 && ("click"==sType || "dblclick"==sType));
+            },
+                    
+            /**
+             * Removes an event listener
+             *
+             * @method _removeListener
+             *
+             * @param {String|HTMLElement|Array|NodeList} el An id, an element 
+             *  reference, or a collection of ids and/or elements to remove
+             *  the listener from.
+             * @param {String} sType the type of event to remove.
+             * @param {Function} fn the method the event invokes.  If fn is
+             *  undefined, then all event handlers for the type of event are 
+             *  removed.
+             * @param {boolen}      capture capture or bubble phase             
+             * @return {boolean} true if the unbind was successful, false 
+             *  otherwise.
+             * @static
+             * @private
+             */
+            _removeListener: function(el, sType, fn, capture) {
+                var i, len, li;
+
+                // The el argument can be a string
+                if (typeof el == "string") {
+                    el = this.getEl(el);
+                // The el argument can be an array of elements or element ids.
+                } else if ( this._isValidCollection(el)) {
+                    var ok = true;
+                    for (i=el.length-1; i>-1; i--) {
+                        ok = ( this._removeListener(el[i], sType, fn, capture) && ok );
+                    }
+                    return ok;
+                }
+
+                if (!fn || !fn.call) {
+                    //return false;
+                    return this.purgeElement(el, false, sType);
+                }
+
+                if ("unload" == sType) {
+
+                    for (i=unloadListeners.length-1; i>-1; i--) {
+                        li = unloadListeners[i];
+                        if (li && 
+                            li[0] == el && 
+                            li[1] == sType && 
+                            li[2] == fn) {
+                                unloadListeners.splice(i, 1);
+                                // unloadListeners[i]=null;
+                                return true;
+                        }
+                    }
+
+                    return false;
+                }
+
+                var cacheItem = null;
+
+                // The index is a hidden parameter; needed to remove it from
+                // the method signature because it was tempting users to
+                // try and take advantage of it, which is not possible.
+                var index = arguments[4];
+  
+                if ("undefined" === typeof index) {
+                    index = this._getCacheIndex(el, sType, fn);
+                }
+
+                if (index >= 0) {
+                    cacheItem = listeners[index];
+                }
+
+                if (!el || !cacheItem) {
+                    return false;
+                }
+
+
+                if (this.useLegacyEvent(el, sType)) {
+                    var legacyIndex = this.getLegacyIndex(el, sType);
+                    var llist = legacyHandlers[legacyIndex];
+                    if (llist) {
+                        for (i=0, len=llist.length; i<len; ++i) {
+                        // for (i in llist.length) {
+                            li = llist[i];
+                            if (li && 
+                                li[this.EL] == el && 
+                                li[this.TYPE] == sType && 
+                                li[this.FN] == fn) {
+                                    llist.splice(i, 1);
+                                    // llist[i]=null;
+                                    break;
+                            }
+                        }
+                    }
+
+                } else {
+                    try {
+                        this._simpleRemove(el, sType, cacheItem[this.WFN], capture);
+                    } catch(ex) {
+                        this.lastError = ex;
+                        return false;
+                    }
+                }
+
+                // removed the wrapped handler
+                delete listeners[index][this.WFN];
+                delete listeners[index][this.FN];
+                listeners.splice(index, 1);
+                // listeners[index]=null;
+
+                return true;
+
+            },
+
+
+            /**
+             * Removes an event listener
+             *
+             * @method removeListener
+             *
+             * @param {String|HTMLElement|Array|NodeList} el An id, an element 
+             *  reference, or a collection of ids and/or elements to remove
+             *  the listener from.
+             * @param {String} sType the type of event to remove.
+             * @param {Function} fn the method the event invokes.  If fn is
+             *  undefined, then all event handlers for the type of event are 
+             *  removed.
+             * @return {boolean} true if the unbind was successful, false 
+             *  otherwise.
+             * @static
+             */
+            removeListener: function(el, sType, fn) {
+
+				return this._removeListener(el, sType, fn, false);
+
+            },
+
+
+            /**
+             * Returns the event's target element.  Safari sometimes provides
+             * a text node, and this is automatically resolved to the text
+             * node's parent so that it behaves like other browsers.
+             * @method getTarget
+             * @param {Event} ev the event
+             * @param {boolean} resolveTextNode when set to true the target's
+             *                  parent will be returned if the target is a 
+             *                  text node.  @deprecated, the text node is
+             *                  now resolved automatically
+             * @return {HTMLElement} the event's target
+             * @static
+             */
+            getTarget: function(ev, resolveTextNode) {
+                var t = ev.target || ev.srcElement;
+                return this.resolveTextNode(t);
+            },
+
+            /**
+             * In some cases, some browsers will return a text node inside
+             * the actual element that was targeted.  This normalizes the
+             * return value for getTarget and getRelatedTarget.
+             * @method resolveTextNode
+             * @param {HTMLElement} node node to resolve
+             * @return {HTMLElement} the normized node
+             * @static
+             */
+            resolveTextNode: function(n) {
+                try {
+                    if (n && 3 == n.nodeType) {
+                        return n.parentNode;
+                    }
+                } catch(e) { }
+
+                return n;
+            },
+
+            /**
+             * Returns the event's pageX
+             * @method getPageX
+             * @param {Event} ev the event
+             * @return {int} the event's pageX
+             * @static
+             */
+            getPageX: function(ev) {
+                var x = ev.pageX;
+                if (!x && 0 !== x) {
+                    x = ev.clientX || 0;
+
+                    if ( this.isIE ) {
+                        x += this._getScrollLeft();
+                    }
+                }
+
+                return x;
+            },
+
+            /**
+             * Returns the event's pageY
+             * @method getPageY
+             * @param {Event} ev the event
+             * @return {int} the event's pageY
+             * @static
+             */
+            getPageY: function(ev) {
+                var y = ev.pageY;
+                if (!y && 0 !== y) {
+                    y = ev.clientY || 0;
+
+                    if ( this.isIE ) {
+                        y += this._getScrollTop();
+                    }
+                }
+
+
+                return y;
+            },
+
+            /**
+             * Returns the pageX and pageY properties as an indexed array.
+             * @method getXY
+             * @param {Event} ev the event
+             * @return {[x, y]} the pageX and pageY properties of the event
+             * @static
+             */
+            getXY: function(ev) {
+                return [this.getPageX(ev), this.getPageY(ev)];
+            },
+
+            /**
+             * Returns the event's related target 
+             * @method getRelatedTarget
+             * @param {Event} ev the event
+             * @return {HTMLElement} the event's relatedTarget
+             * @static
+             */
+            getRelatedTarget: function(ev) {
+                var t = ev.relatedTarget;
+                if (!t) {
+                    if (ev.type == "mouseout") {
+                        t = ev.toElement;
+                    } else if (ev.type == "mouseover") {
+                        t = ev.fromElement;
+                    }
+                }
+
+                return this.resolveTextNode(t);
+            },
+
+            /**
+             * Returns the time of the event.  If the time is not included, the
+             * event is modified using the current time.
+             * @method getTime
+             * @param {Event} ev the event
+             * @return {Date} the time of the event
+             * @static
+             */
+            getTime: function(ev) {
+                if (!ev.time) {
+                    var t = new Date().getTime();
+                    try {
+                        ev.time = t;
+                    } catch(ex) { 
+                        this.lastError = ex;
+                        return t;
+                    }
+                }
+
+                return ev.time;
+            },
+
+            /**
+             * Convenience method for stopPropagation + preventDefault
+             * @method stopEvent
+             * @param {Event} ev the event
+             * @static
+             */
+            stopEvent: function(ev) {
+                this.stopPropagation(ev);
+                this.preventDefault(ev);
+            },
+
+            /**
+             * Stops event propagation
+             * @method stopPropagation
+             * @param {Event} ev the event
+             * @static
+             */
+            stopPropagation: function(ev) {
+                if (ev.stopPropagation) {
+                    ev.stopPropagation();
+                } else {
+                    ev.cancelBubble = true;
+                }
+            },
+
+            /**
+             * Prevents the default behavior of the event
+             * @method preventDefault
+             * @param {Event} ev the event
+             * @static
+             */
+            preventDefault: function(ev) {
+                if (ev.preventDefault) {
+                    ev.preventDefault();
+                } else {
+                    ev.returnValue = false;
+                }
+            },
+             
+            /**
+             * Finds the event in the window object, the caller's arguments, or
+             * in the arguments of another method in the callstack.  This is
+             * executed automatically for events registered through the event
+             * manager, so the implementer should not normally need to execute
+             * this function at all.
+             * @method getEvent
+             * @param {Event} e the event parameter from the handler
+             * @param {HTMLElement} boundEl the element the listener is attached to
+             * @return {Event} the event 
+             * @static
+             */
+            getEvent: function(e, boundEl) {
+                var ev = e || window.event;
+
+                if (!ev) {
+                    var c = this.getEvent.caller;
+                    while (c) {
+                        ev = c.arguments[0];
+                        if (ev && Event == ev.constructor) {
+                            break;
+                        }
+                        c = c.caller;
+                    }
+                }
+
+                return ev;
+            },
+
+            /**
+             * Returns the charcode for an event
+             * @method getCharCode
+             * @param {Event} ev the event
+             * @return {int} the event's charCode
+             * @static
+             */
+            getCharCode: function(ev) {
+                var code = ev.keyCode || ev.charCode || 0;
+
+                // webkit key normalization
+                if (YAHOO.env.ua.webkit && (code in webkitKeymap)) {
+                    code = webkitKeymap[code];
+                }
+                return code;
+            },
+
+            /**
+             * Locating the saved event handler data by function ref
+             *
+             * @method _getCacheIndex
+             * @static
+             * @private
+             */
+            _getCacheIndex: function(el, sType, fn) {
+                for (var i=0, l=listeners.length; i<l; i=i+1) {
+                    var li = listeners[i];
+                    if ( li                 && 
+                         li[this.FN] == fn  && 
+                         li[this.EL] == el  && 
+                         li[this.TYPE] == sType ) {
+                        return i;
+                    }
+                }
+
+                return -1;
+            },
+
+            /**
+             * Generates an unique ID for the element if it does not already 
+             * have one.
+             * @method generateId
+             * @param el the element to create the id for
+             * @return {string} the resulting id of the element
+             * @static
+             */
+            generateId: function(el) {
+                var id = el.id;
+
+                if (!id) {
+                    id = "yuievtautoid-" + counter;
+                    ++counter;
+                    el.id = id;
+                }
+
+                return id;
+            },
+
+
+            /**
+             * We want to be able to use getElementsByTagName as a collection
+             * to attach a group of events to.  Unfortunately, different 
+             * browsers return different types of collections.  This function
+             * tests to determine if the object is array-like.  It will also 
+             * fail if the object is an array, but is empty.
+             * @method _isValidCollection
+             * @param o the object to test
+             * @return {boolean} true if the object is array-like and populated
+             * @static
+             * @private
+             */
+            _isValidCollection: function(o) {
+                try {
+                    return ( o                     && // o is something
+                             typeof o !== "string" && // o is not a string
+                             o.length              && // o is indexed
+                             !o.tagName            && // o is not an HTML element
+                             !o.alert              && // o is not a window
+                             typeof o[0] !== "undefined" );
+                } catch(ex) {
+                    return false;
+                }
+
+            },
+
+            /**
+             * @private
+             * @property elCache
+             * DOM element cache
+             * @static
+             * @deprecated Elements are not cached due to issues that arise when
+             * elements are removed and re-added
+             */
+            elCache: {},
+
+            /**
+             * We cache elements bound by id because when the unload event 
+             * fires, we can no longer use document.getElementById
+             * @method getEl
+             * @static
+             * @private
+             * @deprecated Elements are not cached any longer
+             */
+            getEl: function(id) {
+                return (typeof id === "string") ? document.getElementById(id) : id;
+            },
+
+            /**
+             * Clears the element cache
+             * @deprecated Elements are not cached any longer
+             * @method clearCache
+             * @static
+             * @private
+             */
+            clearCache: function() { },
+
+            /**
+             * Custom event the fires when the dom is initially usable
+             * @event DOMReadyEvent
+             */
+            DOMReadyEvent: new YAHOO.util.CustomEvent("DOMReady", this),
+
+            /**
+             * hook up any deferred listeners
+             * @method _load
+             * @static
+             * @private
+             */
+            _load: function(e) {
+
+                if (!loadComplete) {
+                    loadComplete = true;
+                    var EU = YAHOO.util.Event;
+
+                    // Just in case DOMReady did not go off for some reason
+                    EU._ready();
+
+                    // Available elements may not have been detected before the
+                    // window load event fires. Try to find them now so that the
+                    // the user is more likely to get the onAvailable notifications
+                    // before the window load notification
+                    EU._tryPreloadAttach();
+
+                }
+            },
+
+            /**
+             * Fires the DOMReady event listeners the first time the document is
+             * usable.
+             * @method _ready
+             * @static
+             * @private
+             */
+            _ready: function(e) {
+                var EU = YAHOO.util.Event;
+                if (!EU.DOMReady) {
+                    EU.DOMReady=true;
+
+                    // Fire the content ready custom event
+                    EU.DOMReadyEvent.fire();
+
+                    // Remove the DOMContentLoaded (FF/Opera)
+                    EU._simpleRemove(document, "DOMContentLoaded", EU._ready);
+                }
+            },
+
+            /**
+             * Polling function that runs before the onload event fires, 
+             * attempting to attach to DOM Nodes as soon as they are 
+             * available
+             * @method _tryPreloadAttach
+             * @static
+             * @private
+             */
+            _tryPreloadAttach: function() {
+
+                if (onAvailStack.length === 0) {
+                    retryCount = 0;
+                    clearInterval(this._interval);
+                    this._interval = null;
+                    return;
+                }
+
+                if (this.locked) {
+                    return;
+                }
+
+                if (this.isIE) {
+                    // Hold off if DOMReady has not fired and check current
+                    // readyState to protect against the IE operation aborted
+                    // issue.
+                    if (!this.DOMReady) {
+                        this.startInterval();
+                        return;
+                    }
+                }
+
+                this.locked = true;
+
+
+                // keep trying until after the page is loaded.  We need to 
+                // check the page load state prior to trying to bind the 
+                // elements so that we can be certain all elements have been 
+                // tested appropriately
+                var tryAgain = !loadComplete;
+                if (!tryAgain) {
+                    tryAgain = (retryCount > 0 && onAvailStack.length > 0);
+                }
+
+                // onAvailable
+                var notAvail = [];
+
+                var executeItem = function (el, item) {
+                    var scope = el;
+                    if (item.override) {
+                        if (item.override === true) {
+                            scope = item.obj;
+                        } else {
+                            scope = item.override;
+                        }
+                    }
+                    item.fn.call(scope, item.obj);
+                };
+
+                var i, len, item, el, ready=[];
+
+                // onAvailable onContentReady
+                for (i=0, len=onAvailStack.length; i<len; i=i+1) {
+                    item = onAvailStack[i];
+                    if (item) {
+                        el = this.getEl(item.id);
+                        if (el) {
+                            if (item.checkReady) {
+                                if (loadComplete || el.nextSibling || !tryAgain) {
+                                    ready.push(item);
+                                    onAvailStack[i] = null;
+                                }
+                            } else {
+                                executeItem(el, item);
+                                onAvailStack[i] = null;
+                            }
+                        } else {
+                            notAvail.push(item);
+                        }
+                    }
+                }
+                
+                // make sure onContentReady fires after onAvailable
+                for (i=0, len=ready.length; i<len; i=i+1) {
+                    item = ready[i];
+                    executeItem(this.getEl(item.id), item);
+                }
+
+
+                retryCount--;
+
+                if (tryAgain) {
+                    for (i=onAvailStack.length-1; i>-1; i--) {
+                        item = onAvailStack[i];
+                        if (!item || !item.id) {
+                            onAvailStack.splice(i, 1);
+                        }
+                    }
+
+                    this.startInterval();
+                } else {
+                    clearInterval(this._interval);
+                    this._interval = null;
+                }
+
+                this.locked = false;
+
+            },
+
+            /**
+             * Removes all listeners attached to the given element via addListener.
+             * Optionally, the node's children can also be purged.
+             * Optionally, you can specify a specific type of event to remove.
+             * @method purgeElement
+             * @param {HTMLElement} el the element to purge
+             * @param {boolean} recurse recursively purge this element's children
+             * as well.  Use with caution.
+             * @param {string} sType optional type of listener to purge. If
+             * left out, all listeners will be removed
+             * @static
+             */
+            purgeElement: function(el, recurse, sType) {
+                var oEl = (YAHOO.lang.isString(el)) ? this.getEl(el) : el;
+                var elListeners = this.getListeners(oEl, sType), i, len;
+                if (elListeners) {
+                    for (i=elListeners.length-1; i>-1; i--) {
+                        var l = elListeners[i];
+                        this._removeListener(oEl, l.type, l.fn, l.capture);
+                    }
+                }
+
+                if (recurse && oEl && oEl.childNodes) {
+                    for (i=0,len=oEl.childNodes.length; i<len ; ++i) {
+                        this.purgeElement(oEl.childNodes[i], recurse, sType);
+                    }
+                }
+            },
+
+            /**
+             * Returns all listeners attached to the given element via addListener.
+             * Optionally, you can specify a specific type of event to return.
+             * @method getListeners
+             * @param el {HTMLElement|string} the element or element id to inspect 
+             * @param sType {string} optional type of listener to return. If
+             * left out, all listeners will be returned
+             * @return {Object} the listener. Contains the following fields:
+             * &nbsp;&nbsp;type:   (string)   the type of event
+             * &nbsp;&nbsp;fn:     (function) the callback supplied to addListener
+             * &nbsp;&nbsp;obj:    (object)   the custom object supplied to addListener
+             * &nbsp;&nbsp;adjust: (boolean|object)  whether or not to adjust the default scope
+             * &nbsp;&nbsp;scope: (boolean)  the derived scope based on the adjust parameter
+             * &nbsp;&nbsp;scope: (capture)  the capture parameter supplied to addListener
+             * &nbsp;&nbsp;index:  (int)      its position in the Event util listener cache
+             * @static
+             */           
+            getListeners: function(el, sType) {
+                var results=[], searchLists;
+                if (!sType) {
+                    searchLists = [listeners, unloadListeners];
+                } else if (sType === "unload") {
+                    searchLists = [unloadListeners];
+                } else {
+                    searchLists = [listeners];
+                }
+
+                var oEl = (YAHOO.lang.isString(el)) ? this.getEl(el) : el;
+
+                for (var j=0;j<searchLists.length; j=j+1) {
+                    var searchList = searchLists[j];
+                    if (searchList) {
+                        for (var i=0,len=searchList.length; i<len ; ++i) {
+                            var l = searchList[i];
+                            if ( l  && l[this.EL] === oEl && 
+                                    (!sType || sType === l[this.TYPE]) ) {
+                                results.push({
+                                    type:   l[this.TYPE],
+                                    fn:     l[this.FN],
+                                    obj:    l[this.OBJ],
+                                    adjust: l[this.OVERRIDE],
+                                    scope:  l[this.ADJ_SCOPE],
+                                    capture:  l[this.CAPTURE],                                    
+                                    index:  i
+                                });
+                            }
+                        }
+                    }
+                }
+
+                return (results.length) ? results : null;
+            },
+
+            /**
+             * Removes all listeners registered by pe.event.  Called 
+             * automatically during the unload event.
+             * @method _unload
+             * @static
+             * @private
+             */
+            _unload: function(e) {
+
+                var EU = YAHOO.util.Event, i, j, l, len, index,
+                         ul = unloadListeners.slice();
+
+                // execute and clear stored unload listeners
+                for (i=0,len=unloadListeners.length; i<len; ++i) {
+                    l = ul[i];
+                    if (l) {
+                        var scope = window;
+                        if (l[EU.ADJ_SCOPE]) {
+                            if (l[EU.ADJ_SCOPE] === true) {
+                                scope = l[EU.UNLOAD_OBJ];
+                            } else {
+                                scope = l[EU.ADJ_SCOPE];
+                            }
+                        }
+                        l[EU.FN].call(scope, EU.getEvent(e, l[EU.EL]), l[EU.UNLOAD_OBJ] );
+                        ul[i] = null;
+                        l=null;
+                        scope=null;
+                    }
+                }
+
+                unloadListeners = null;
+
+                // Remove listeners to handle IE memory leaks
+                //if (YAHOO.env.ua.ie && listeners && listeners.length > 0) {
+                
+                // 2.5.0 listeners are removed for all browsers again.  FireFox preserves
+                // at least some listeners between page refreshes, potentially causing
+                // errors during page load (mouseover listeners firing before they
+                // should if the user moves the mouse at the correct moment).
+                if (listeners) {
+                    for (j=listeners.length-1; j>-1; j--) {
+                        l = listeners[j];
+                        if (l) {
+                            EU._removeListener(l[EU.EL], l[EU.TYPE], l[EU.FN], l[EU.CAPTURE], j);
+                        } 
+                    }
+                    l=null;
+                }
+
+                legacyEvents = null;
+
+                EU._simpleRemove(window, "unload", EU._unload);
+
+            },
+
+            /**
+             * Returns scrollLeft
+             * @method _getScrollLeft
+             * @static
+             * @private
+             */
+            _getScrollLeft: function() {
+                return this._getScroll()[1];
+            },
+
+            /**
+             * Returns scrollTop
+             * @method _getScrollTop
+             * @static
+             * @private
+             */
+            _getScrollTop: function() {
+                return this._getScroll()[0];
+            },
+
+            /**
+             * Returns the scrollTop and scrollLeft.  Used to calculate the 
+             * pageX and pageY in Internet Explorer
+             * @method _getScroll
+             * @static
+             * @private
+             */
+            _getScroll: function() {
+                var dd = document.documentElement, db = document.body;
+                if (dd && (dd.scrollTop || dd.scrollLeft)) {
+                    return [dd.scrollTop, dd.scrollLeft];
+                } else if (db) {
+                    return [db.scrollTop, db.scrollLeft];
+                } else {
+                    return [0, 0];
+                }
+            },
+            
+            /**
+             * Used by old versions of CustomEvent, restored for backwards
+             * compatibility
+             * @method regCE
+             * @private
+             * @static
+             * @deprecated still here for backwards compatibility
+             */
+            regCE: function() {
+                // does nothing
+            },
+
+            /**
+             * Adds a DOM event directly without the caching, cleanup, scope adj, etc
+             *
+             * @method _simpleAdd
+             * @param {HTMLElement} el      the element to bind the handler to
+             * @param {string}      sType   the type of event handler
+             * @param {function}    fn      the callback to invoke
+             * @param {boolen}      capture capture or bubble phase
+             * @static
+             * @private
+             */
+            _simpleAdd: function () {
+                if (window.addEventListener) {
+                    return function(el, sType, fn, capture) {
+                        el.addEventListener(sType, fn, (capture));
+                    };
+                } else if (window.attachEvent) {
+                    return function(el, sType, fn, capture) {
+                        el.attachEvent("on" + sType, fn);
+                    };
+                } else {
+                    return function(){};
+                }
+            }(),
+
+            /**
+             * Basic remove listener
+             *
+             * @method _simpleRemove
+             * @param {HTMLElement} el      the element to bind the handler to
+             * @param {string}      sType   the type of event handler
+             * @param {function}    fn      the callback to invoke
+             * @param {boolen}      capture capture or bubble phase
+             * @static
+             * @private
+             */
+            _simpleRemove: function() {
+                if (window.removeEventListener) {
+                    return function (el, sType, fn, capture) {
+                        el.removeEventListener(sType, fn, (capture));
+                    };
+                } else if (window.detachEvent) {
+                    return function (el, sType, fn) {
+                        el.detachEvent("on" + sType, fn);
+                    };
+                } else {
+                    return function(){};
+                }
+            }()
+        };
+
+    }();
+
+    (function() {
+        var EU = YAHOO.util.Event;
+
+        /**
+         * YAHOO.util.Event.on is an alias for addListener
+         * @method on
+         * @see addListener
+         * @static
+         */
+        EU.on = EU.addListener;
+
+        /**
+         * YAHOO.util.Event.onFocus is an alias for addFocusListener
+         * @method on
+         * @see addFocusListener
+         * @static
+         */
+        EU.onFocus = EU.addFocusListener;
+
+        /**
+         * YAHOO.util.Event.onBlur is an alias for addBlurListener
+         * @method onBlur
+         * @see addBlurListener
+         * @static
+         */     
+        EU.onBlur = EU.addBlurListener;
+
+
+/*! DOMReady: based on work by: Dean Edwards/John Resig/Matthias Miller */
+
+        // Internet Explorer: use the readyState of a defered script.
+        // This isolates what appears to be a safe moment to manipulate
+        // the DOM prior to when the document's readyState suggests
+        // it is safe to do so.
+        if (EU.isIE) {
+
+            // Process onAvailable/onContentReady items when the 
+            // DOM is ready.
+            YAHOO.util.Event.onDOMReady(
+                    YAHOO.util.Event._tryPreloadAttach,
+                    YAHOO.util.Event, true);
+            
+            var n = document.createElement('p');  
+
+            EU._dri = setInterval(function() {
+                try {
+                    // throws an error if doc is not ready
+                    n.doScroll('left');
+                    clearInterval(EU._dri);
+                    EU._dri = null;
+                    EU._ready();
+                    n = null;
+                } catch (ex) { 
+                }
+            }, EU.POLL_INTERVAL); 
+
+        
+        // The document's readyState in Safari currently will
+        // change to loaded/complete before images are loaded.
+        } else if (EU.webkit && EU.webkit < 525) {
+
+            EU._dri = setInterval(function() {
+                var rs=document.readyState;
+                if ("loaded" == rs || "complete" == rs) {
+                    clearInterval(EU._dri);
+                    EU._dri = null;
+                    EU._ready();
+                }
+            }, EU.POLL_INTERVAL); 
+
+        // FireFox and Opera: These browsers provide a event for this
+        // moment.  The latest WebKit releases now support this event.
+        } else {
+
+            EU._simpleAdd(document, "DOMContentLoaded", EU._ready);
+
+        }
+        /////////////////////////////////////////////////////////////
+
+
+        EU._simpleAdd(window, "load", EU._load);
+        EU._simpleAdd(window, "unload", EU._unload);
+        EU._tryPreloadAttach();
+    })();
+
+}
+/**
+ * EventProvider is designed to be used with YAHOO.augment to wrap 
+ * CustomEvents in an interface that allows events to be subscribed to 
+ * and fired by name.  This makes it possible for implementing code to
+ * subscribe to an event that either has not been created yet, or will
+ * not be created at all.
+ *
+ * @Class EventProvider
+ */
+YAHOO.util.EventProvider = function() { };
+
+YAHOO.util.EventProvider.prototype = {
+
+    /**
+     * Private storage of custom events
+     * @property __yui_events
+     * @type Object[]
+     * @private
+     */
+    __yui_events: null,
+
+    /**
+     * Private storage of custom event subscribers
+     * @property __yui_subscribers
+     * @type Object[]
+     * @private
+     */
+    __yui_subscribers: null,
+    
+    /**
+     * Subscribe to a CustomEvent by event type
+     *
+     * @method subscribe
+     * @param p_type     {string}   the type, or name of the event
+     * @param p_fn       {function} the function to exectute when the event fires
+     * @param p_obj      {Object}   An object to be passed along when the event 
+     *                              fires
+     * @param p_override {boolean}  If true, the obj passed in becomes the 
+     *                              execution scope of the listener
+     */
+    subscribe: function(p_type, p_fn, p_obj, p_override) {
+
+        this.__yui_events = this.__yui_events || {};
+        var ce = this.__yui_events[p_type];
+
+        if (ce) {
+            ce.subscribe(p_fn, p_obj, p_override);
+        } else {
+            this.__yui_subscribers = this.__yui_subscribers || {};
+            var subs = this.__yui_subscribers;
+            if (!subs[p_type]) {
+                subs[p_type] = [];
+            }
+            subs[p_type].push(
+                { fn: p_fn, obj: p_obj, override: p_override } );
+        }
+    },
+
+    /**
+     * Unsubscribes one or more listeners the from the specified event
+     * @method unsubscribe
+     * @param p_type {string}   The type, or name of the event.  If the type
+     *                          is not specified, it will attempt to remove
+     *                          the listener from all hosted events.
+     * @param p_fn   {Function} The subscribed function to unsubscribe, if not
+     *                          supplied, all subscribers will be removed.
+     * @param p_obj  {Object}   The custom object passed to subscribe.  This is
+     *                        optional, but if supplied will be used to
+     *                        disambiguate multiple listeners that are the same
+     *                        (e.g., you subscribe many object using a function
+     *                        that lives on the prototype)
+     * @return {boolean} true if the subscriber was found and detached.
+     */
+    unsubscribe: function(p_type, p_fn, p_obj) {
+        this.__yui_events = this.__yui_events || {};
+        var evts = this.__yui_events;
+        if (p_type) {
+            var ce = evts[p_type];
+            if (ce) {
+                return ce.unsubscribe(p_fn, p_obj);
+            }
+        } else {
+            var ret = true;
+            for (var i in evts) {
+                if (YAHOO.lang.hasOwnProperty(evts, i)) {
+                    ret = ret && evts[i].unsubscribe(p_fn, p_obj);
+                }
+            }
+            return ret;
+        }
+
+        return false;
+    },
+    
+    /**
+     * Removes all listeners from the specified event.  If the event type
+     * is not specified, all listeners from all hosted custom events will
+     * be removed.
+     * @method unsubscribeAll
+     * @param p_type {string}   The type, or name of the event
+     */
+    unsubscribeAll: function(p_type) {
+        return this.unsubscribe(p_type);
+    },
+
+    /**
+     * Creates a new custom event of the specified type.  If a custom event
+     * by that name already exists, it will not be re-created.  In either
+     * case the custom event is returned. 
+     *
+     * @method createEvent
+     *
+     * @param p_type {string} the type, or name of the event
+     * @param p_config {object} optional config params.  Valid properties are:
+     *
+     *  <ul>
+     *    <li>
+     *      scope: defines the default execution scope.  If not defined
+     *      the default scope will be this instance.
+     *    </li>
+     *    <li>
+     *      silent: if true, the custom event will not generate log messages.
+     *      This is false by default.
+     *    </li>
+     *    <li>
+     *      onSubscribeCallback: specifies a callback to execute when the
+     *      event has a new subscriber.  This will fire immediately for
+     *      each queued subscriber if any exist prior to the creation of
+     *      the event.
+     *    </li>
+     *  </ul>
+     *
+     *  @return {CustomEvent} the custom event
+     *
+     */
+    createEvent: function(p_type, p_config) {
+
+        this.__yui_events = this.__yui_events || {};
+        var opts = p_config || {};
+        var events = this.__yui_events;
+
+        if (events[p_type]) {
+        } else {
+
+            var scope  = opts.scope  || this;
+            var silent = (opts.silent);
+
+            var ce = new YAHOO.util.CustomEvent(p_type, scope, silent,
+                    YAHOO.util.CustomEvent.FLAT);
+            events[p_type] = ce;
+
+            if (opts.onSubscribeCallback) {
+                ce.subscribeEvent.subscribe(opts.onSubscribeCallback);
+            }
+
+            this.__yui_subscribers = this.__yui_subscribers || {};
+            var qs = this.__yui_subscribers[p_type];
+
+            if (qs) {
+                for (var i=0; i<qs.length; ++i) {
+                    ce.subscribe(qs[i].fn, qs[i].obj, qs[i].override);
+                }
+            }
+        }
+
+        return events[p_type];
+    },
+
+
+   /**
+     * Fire a custom event by name.  The callback functions will be executed
+     * from the scope specified when the event was created, and with the 
+     * following parameters:
+     *   <ul>
+     *   <li>The first argument fire() was executed with</li>
+     *   <li>The custom object (if any) that was passed into the subscribe() 
+     *       method</li>
+     *   </ul>
+     * @method fireEvent
+     * @param p_type    {string}  the type, or name of the event
+     * @param arguments {Object*} an arbitrary set of parameters to pass to 
+     *                            the handler.
+     * @return {boolean} the return value from CustomEvent.fire
+     *                   
+     */
+    fireEvent: function(p_type, arg1, arg2, etc) {
+
+        this.__yui_events = this.__yui_events || {};
+        var ce = this.__yui_events[p_type];
+
+        if (!ce) {
+            return null;
+        }
+
+        var args = [];
+        for (var i=1; i<arguments.length; ++i) {
+            args.push(arguments[i]);
+        }
+        return ce.fire.apply(ce, args);
+    },
+
+    /**
+     * Returns true if the custom event of the provided type has been created
+     * with createEvent.
+     * @method hasEvent
+     * @param type {string} the type, or name of the event
+     */
+    hasEvent: function(type) {
+        if (this.__yui_events) {
+            if (this.__yui_events[type]) {
+                return true;
+            }
+        }
+        return false;
+    }
+
+};
+
+//@TODO optimize
+//@TODO use event utility, lang abstractions
+//@TODO replace
+
+/**
+* KeyListener is a utility that provides an easy interface for listening for
+* keydown/keyup events fired against DOM elements.
+* @namespace YAHOO.util
+* @class KeyListener
+* @constructor
+* @param {HTMLElement} attachTo The element or element ID to which the key 
+*                               event should be attached
+* @param {String}      attachTo The element or element ID to which the key
+*                               event should be attached
+* @param {Object}      keyData  The object literal representing the key(s) 
+*                               to detect. Possible attributes are 
+*                               shift(boolean), alt(boolean), ctrl(boolean) 
+*                               and keys(either an int or an array of ints 
+*                               representing keycodes).
+* @param {Function}    handler  The CustomEvent handler to fire when the 
+*                               key event is detected
+* @param {Object}      handler  An object literal representing the handler. 
+* @param {String}      event    Optional. The event (keydown or keyup) to 
+*                               listen for. Defaults automatically to keydown.
+*
+* @knownissue the "keypress" event is completely broken in Safari 2.x and below.
+*             the workaround is use "keydown" for key listening.  However, if
+*             it is desired to prevent the default behavior of the keystroke,
+*             that can only be done on the keypress event.  This makes key
+*             handling quite ugly.
+* @knownissue keydown is also broken in Safari 2.x and below for the ESC key.
+*             There currently is no workaround other than choosing another
+*             key to listen for.
+*/
+YAHOO.util.KeyListener = function(attachTo, keyData, handler, event) {
+    if (!attachTo) {
+    } else if (!keyData) {
+    } else if (!handler) {
+    } 
+    
+    if (!event) {
+        event = YAHOO.util.KeyListener.KEYDOWN;
+    }
+
+    /**
+    * The CustomEvent fired internally when a key is pressed
+    * @event keyEvent
+    * @private
+    * @param {Object} keyData The object literal representing the key(s) to 
+    *                         detect. Possible attributes are shift(boolean), 
+    *                         alt(boolean), ctrl(boolean) and keys(either an 
+    *                         int or an array of ints representing keycodes).
+    */
+    var keyEvent = new YAHOO.util.CustomEvent("keyPressed");
+    
+    /**
+    * The CustomEvent fired when the KeyListener is enabled via the enable() 
+    * function
+    * @event enabledEvent
+    * @param {Object} keyData The object literal representing the key(s) to 
+    *                         detect. Possible attributes are shift(boolean), 
+    *                         alt(boolean), ctrl(boolean) and keys(either an 
+    *                         int or an array of ints representing keycodes).
+    */
+    this.enabledEvent = new YAHOO.util.CustomEvent("enabled");
+
+    /**
+    * The CustomEvent fired when the KeyListener is disabled via the 
+    * disable() function
+    * @event disabledEvent
+    * @param {Object} keyData The object literal representing the key(s) to 
+    *                         detect. Possible attributes are shift(boolean), 
+    *                         alt(boolean), ctrl(boolean) and keys(either an 
+    *                         int or an array of ints representing keycodes).
+    */
+    this.disabledEvent = new YAHOO.util.CustomEvent("disabled");
+
+    if (typeof attachTo == 'string') {
+        attachTo = document.getElementById(attachTo);
+    }
+
+    if (typeof handler == 'function') {
+        keyEvent.subscribe(handler);
+    } else {
+        keyEvent.subscribe(handler.fn, handler.scope, handler.correctScope);
+    }
+
+    /**
+    * Handles the key event when a key is pressed.
+    * @method handleKeyPress
+    * @param {DOMEvent} e   The keypress DOM event
+    * @param {Object}   obj The DOM event scope object
+    * @private
+    */
+    function handleKeyPress(e, obj) {
+        if (! keyData.shift) {  
+            keyData.shift = false; 
+        }
+        if (! keyData.alt) {    
+            keyData.alt = false;
+        }
+        if (! keyData.ctrl) {
+            keyData.ctrl = false;
+        }
+
+        // check held down modifying keys first
+        if (e.shiftKey == keyData.shift && 
+            e.altKey   == keyData.alt &&
+            e.ctrlKey  == keyData.ctrl) { // if we pass this, all modifiers match
+            
+            var dataItem;
+
+            if (keyData.keys instanceof Array) {
+                for (var i=0;i<keyData.keys.length;i++) {
+                    dataItem = keyData.keys[i];
+
+                    if (dataItem == e.charCode ) {
+                        keyEvent.fire(e.charCode, e);
+                        break;
+                    } else if (dataItem == e.keyCode) {
+                        keyEvent.fire(e.keyCode, e);
+                        break;
+                    }
+                }
+            } else {
+                dataItem = keyData.keys;
+                if (dataItem == e.charCode ) {
+                    keyEvent.fire(e.charCode, e);
+                } else if (dataItem == e.keyCode) {
+                    keyEvent.fire(e.keyCode, e);
+                }
+            }
+        }
+    }
+
+    /**
+    * Enables the KeyListener by attaching the DOM event listeners to the 
+    * target DOM element
+    * @method enable
+    */
+    this.enable = function() {
+        if (! this.enabled) {
+            YAHOO.util.Event.addListener(attachTo, event, handleKeyPress);
+            this.enabledEvent.fire(keyData);
+        }
+        /**
+        * Boolean indicating the enabled/disabled state of the Tooltip
+        * @property enabled
+        * @type Boolean
+        */
+        this.enabled = true;
+    };
+
+    /**
+    * Disables the KeyListener by removing the DOM event listeners from the 
+    * target DOM element
+    * @method disable
+    */
+    this.disable = function() {
+        if (this.enabled) {
+            YAHOO.util.Event.removeListener(attachTo, event, handleKeyPress);
+            this.disabledEvent.fire(keyData);
+        }
+        this.enabled = false;
+    };
+
+    /**
+    * Returns a String representation of the object.
+    * @method toString
+    * @return {String}  The string representation of the KeyListener
+    */ 
+    this.toString = function() {
+        return "KeyListener [" + keyData.keys + "] " + attachTo.tagName + 
+                (attachTo.id ? "[" + attachTo.id + "]" : "");
+    };
+
+};
+
+/**
+ * Constant representing the DOM "keydown" event.
+ * @property YAHOO.util.KeyListener.KEYDOWN
+ * @static
+ * @final
+ * @type String
+ */
+YAHOO.util.KeyListener.KEYDOWN = "keydown";
+
+/**
+ * Constant representing the DOM "keyup" event.
+ * @property YAHOO.util.KeyListener.KEYUP
+ * @static
+ * @final
+ * @type String
+ */
+YAHOO.util.KeyListener.KEYUP = "keyup";
+
+/**
+ * keycode constants for a subset of the special keys
+ * @property KEY
+ * @static
+ * @final
+ */
+YAHOO.util.KeyListener.KEY = {
+    ALT          : 18,
+    BACK_SPACE   : 8,
+    CAPS_LOCK    : 20,
+    CONTROL      : 17,
+    DELETE       : 46,
+    DOWN         : 40,
+    END          : 35,
+    ENTER        : 13,
+    ESCAPE       : 27,
+    HOME         : 36,
+    LEFT         : 37,
+    META         : 224,
+    NUM_LOCK     : 144,
+    PAGE_DOWN    : 34,
+    PAGE_UP      : 33, 
+    PAUSE        : 19,
+    PRINTSCREEN  : 44,
+    RIGHT        : 39,
+    SCROLL_LOCK  : 145,
+    SHIFT        : 16,
+    SPACE        : 32,
+    TAB          : 9,
+    UP           : 38
+};
+YAHOO.register("event", YAHOO.util.Event, {version: "2.6.0", build: "1321"});
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/json/json.js b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/json/json.js
new file mode 100644
index 0000000..b4c3bc2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/json/json.js	
@@ -0,0 +1,396 @@
+/*
+Copyright (c) 2008, Yahoo! Inc. All rights reserved.
+Code licensed under the BSD License:
+http://developer.yahoo.net/yui/license.txt
+version: 2.6.0
+*/
+/**
+ * Provides methods to parse JSON strings and convert objects to JSON strings.
+ * @module json
+ * @class JSON
+ * @static
+ */
+YAHOO.lang.JSON = (function () {
+
+var l = YAHOO.lang,
+
+    /**
+     * Replace certain Unicode characters that JavaScript may handle incorrectly
+     * during eval--either by deleting them or treating them as line
+     * endings--with escape sequences.
+     * IMPORTANT NOTE: This regex will be used to modify the input if a match is
+     * found.
+     * @property _UNICODE_EXCEPTIONS
+     * @type {RegExp}
+     * @private
+     */
+    _UNICODE_EXCEPTIONS = /[\u0000\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,
+
+    /**
+     * First step in the validation.  Regex used to replace all escape
+     * sequences (i.e. "\\", etc) with '@' characters (a non-JSON character).
+     * @property _ESCAPES
+     * @type {RegExp}
+     * @static
+     * @private
+     */
+    _ESCAPES = /\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,
+
+    /**
+     * Second step in the validation.  Regex used to replace all simple
+     * values with ']' characters.
+     * @property _VALUES
+     * @type {RegExp}
+     * @static
+     * @private
+     */
+    _VALUES  = /"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,
+
+    /**
+     * Third step in the validation.  Regex used to remove all open square
+     * brackets following a colon, comma, or at the beginning of the string.
+     * @property _BRACKETS
+     * @type {RegExp}
+     * @static
+     * @private
+     */
+    _BRACKETS = /(?:^|:|,)(?:\s*\[)+/g,
+
+    /**
+     * Final step in the validation.  Regex used to test the string left after
+     * all previous replacements for invalid characters.
+     * @property _INVALID
+     * @type {RegExp}
+     * @static
+     * @private
+     */
+    _INVALID  = /^[\],:{}\s]*$/,
+
+    /**
+     * Regex used to replace special characters in strings for JSON
+     * stringification.
+     * @property _SPECIAL_CHARS
+     * @type {RegExp}
+     * @static
+     * @private
+     */
+    _SPECIAL_CHARS = /[\\\"\x00-\x1f\x7f-\x9f\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,
+
+    /**
+     * Character substitution map for common escapes and special characters.
+     * @property _CHARS
+     * @type {Object}
+     * @static
+     * @private
+     */
+    _CHARS = {
+        '\b': '\\b',
+        '\t': '\\t',
+        '\n': '\\n',
+        '\f': '\\f',
+        '\r': '\\r',
+        '"' : '\\"',
+        '\\': '\\\\'
+    };
+
+/**
+ * Traverses nested objects, applying a filter or reviver function to
+ * each value.  The value returned from the function will replace the
+ * original value in the key:value pair.  If the value returned is
+ * undefined, the key will be omitted from the returned object.
+ * @method _revive
+ * @param data {MIXED} Any JavaScript data
+ * @param reviver {Function} filter or mutation function
+ * @return {MIXED} The results of the filtered/mutated data structure
+ * @private
+ */
+function _revive(data, reviver) {
+    var walk = function (o,key) {
+        var k,v,value = o[key];
+        if (value && typeof value === 'object') {
+            for (k in value) {
+                if (l.hasOwnProperty(value,k)) {
+                    v = walk(value, k);
+                    if (v === undefined) {
+                        delete value[k];
+                    } else {
+                        value[k] = v;
+                    }
+                }
+            }
+        }
+        return reviver.call(o,key,value);
+    };
+
+    return typeof reviver === 'function' ? walk({'':data},'') : data;
+}
+
+/**
+ * Escapes a special character to a safe Unicode representation
+ * @method _char
+ * @param c {String} single character to escape
+ * @return {String} safe Unicode escape
+ */
+function _char(c) {
+    if (!_CHARS[c]) {
+        _CHARS[c] =  '\\u'+('0000'+(+(c.charCodeAt(0))).toString(16)).slice(-4);
+    }
+    return _CHARS[c];
+}
+
+/**
+ * Replace certain Unicode characters that may be handled incorrectly by
+ * some browser implementations.
+ * @method _prepare
+ * @param s {String} parse input
+ * @return {String} sanitized JSON string ready to be validated/parsed
+ * @private
+ */
+function _prepare(s) {
+    return s.replace(_UNICODE_EXCEPTIONS, _char);
+}
+
+/**
+ * Four step determination whether a string is valid JSON.  In three steps,
+ * escape sequences, safe values, and properly placed open square brackets
+ * are replaced with placeholders or removed.  Then in the final step, the
+ * result of all these replacements is checked for invalid characters.
+ * @method _isValid
+ * @param str {String} JSON string to be tested
+ * @return {boolean} is the string safe for eval?
+ * @static
+ */
+function _isValid(str) {
+    return l.isString(str) &&
+            _INVALID.test(str.
+            replace(_ESCAPES,'@').
+            replace(_VALUES,']').
+            replace(_BRACKETS,''));
+}
+
+/**
+ * Enclose escaped strings in quotes
+ * @method _string
+ * @param s {String} string to wrap
+ * @return {String} '"'+s+'"' after s has had special characters escaped
+ * @private
+ */
+function _string(s) {
+    return '"' + s.replace(_SPECIAL_CHARS, _char) + '"';
+}
+
+/**
+ * Worker function used by public stringify.
+ * @method _stringify
+ * @param h {Object} object holding the key
+ * @param key {String} String key in object h to serialize
+ * @param depth {Number} depth to serialize
+ * @param w {Array|Function} array of whitelisted keys OR replacer function
+ * @param pstack {Array} used to protect against recursion
+ * @return {String} serialized version of o
+ */
+function _stringify(h,key,d,w,pstack) {
+    var o = typeof w === 'function' ? w.call(h,key,h[key]) : h[key],
+        i,len,j, // array iteration
+        k,v,     // object iteration
+        isArray, // forking in typeof 'object'
+        a;       // composition array for performance over string concat
+
+    if (o instanceof Date) {
+        o = l.JSON.dateToString(o);
+    } else if (o instanceof String || o instanceof Boolean || o instanceof Number) {
+        o = o.valueOf();
+    }
+
+    switch (typeof o) {
+        case 'string' : return _string(o);
+        case 'number' : return isFinite(o) ? String(o) : 'null';
+        case 'boolean': return String(o);
+        case 'object' :
+            // null
+            if (o === null) {
+                return 'null';
+            }
+
+            // Check for cyclical references
+            for (i = pstack.length - 1; i >= 0; --i) {
+                if (pstack[i] === o) {
+                    return 'null';
+                }
+            }
+
+            // Add the object to the processing stack
+            pstack[pstack.length] = o;
+
+            a = [];
+            isArray = l.isArray(o);
+
+            // Only recurse if we're above depth config
+            if (d > 0) {
+                // Array
+                if (isArray) {
+                    for (i = o.length - 1; i >= 0; --i) {
+                        a[i] = _stringify(o,i,d-1,w,pstack) || 'null';
+                    }
+
+                // Object
+                } else {
+                    j = 0;
+                    // Use whitelist keys if provided as an array
+                    if (l.isArray(w)) {
+                        for (i = 0, len = w.length; i < len; ++i) {
+                            k = w[i];
+                            v = _stringify(o,k,d-1,w,pstack);
+                            if (v) {
+                                a[j++] = _string(k) + ':' + v;
+                            }
+                        }
+                    } else {
+                        for (k in o) {
+                            if (typeof k === 'string' && l.hasOwnProperty(o,k)) {
+                                v = _stringify(o,k,d-1,w,pstack);
+                                if (v) {
+                                    a[j++] = _string(k) + ':' + v;
+                                }
+                            }
+                        }
+                    }
+
+                    // sort object keys for easier readability
+                    a.sort();
+                }
+            }
+
+            // remove the object from the stack
+            pstack.pop();
+
+            return isArray ? '['+a.join(',')+']' : '{'+a.join(',')+'}';
+    }
+
+    return undefined; // invalid input
+}
+
+// Return the public API
+return {
+    /**
+     * Four step determination whether a string is valid JSON.  In three steps,
+     * escape sequences, safe values, and properly placed open square brackets
+     * are replaced with placeholders or removed.  Then in the final step, the
+     * result of all these replacements is checked for invalid characters.
+     * @method isValid
+     * @param str {String} JSON string to be tested
+     * @return {boolean} is the string safe for eval?
+     * @static
+     */
+    isValid : function (s) {
+        return _isValid(_prepare(s));
+    },
+
+    /**
+     * Parse a JSON string, returning the native JavaScript representation.
+     * Only minor modifications from http://www.json.org/json2.js.
+     * @param s {string} JSON string data
+     * @param reviver {function} (optional) function(k,v) passed each key:value
+     *          pair of object literals, allowing pruning or altering values
+     * @return {MIXED} the native JavaScript representation of the JSON string
+     * @throws SyntaxError
+     * @method parse
+     * @static
+     */
+    parse : function (s,reviver) {
+        // sanitize
+        s = _prepare(s);
+
+        // Ensure valid JSON
+        if (_isValid(s)) {
+            // Eval the text into a JavaScript data structure, apply the
+            // reviver function if provided, and return
+            return _revive( eval('(' + s + ')'), reviver );
+        }
+
+        // The text is not valid JSON
+        throw new SyntaxError('parseJSON');
+    },
+
+    /**
+     * Converts an arbitrary value to a JSON string representation.
+     * Cyclical object or array references are replaced with null.
+     * If a whitelist is provided, only matching object keys will be included.
+     * If a depth limit is provided, objects and arrays at that depth will
+     * be stringified as empty.
+     * @method stringify
+     * @param o {MIXED} any arbitrary object to convert to JSON string
+     * @param w {Array|Function} (optional) whitelist of acceptable object keys to include OR a function(value,key) to alter values before serialization
+     * @param d {number} (optional) depth limit to recurse objects/arrays (practical minimum 1)
+     * @return {string} JSON string representation of the input
+     * @static
+     */
+    stringify : function (o,w,d) {
+        if (o !== undefined) {
+            // Ensure whitelist keys are unique (bug 2110391)
+            if (l.isArray(w)) {
+                w = (function (a) {
+                    var uniq=[],map={},v,i,j,len;
+                    for (i=0,j=0,len=a.length; i<len; ++i) {
+                        v = a[i];
+                        if (typeof v === 'string' && map[v] === undefined) {
+                            uniq[(map[v] = j++)] = v;
+                        }
+                    }
+                    return uniq;
+                })(w);
+            }
+
+            // Default depth to POSITIVE_INFINITY
+            d = d >= 0 ? d : 1/0;
+
+            // process the input
+            return _stringify({'':o},'',d,w,[]);
+        }
+
+        return undefined;
+    },
+
+    /**
+     * Serializes a Date instance as a UTC date string.  Used internally by
+     * stringify.  Override this method if you need Dates serialized in a
+     * different format.
+     * @method dateToString
+     * @param d {Date} The Date to serialize
+     * @return {String} stringified Date in UTC format YYYY-MM-DDTHH:mm:SSZ
+     * @static
+     */
+    dateToString : function (d) {
+        function _zeroPad(v) {
+            return v < 10 ? '0' + v : v;
+        }
+
+        return d.getUTCFullYear()         + '-' +
+            _zeroPad(d.getUTCMonth() + 1) + '-' +
+            _zeroPad(d.getUTCDate())      + 'T' +
+            _zeroPad(d.getUTCHours())     + ':' +
+            _zeroPad(d.getUTCMinutes())   + ':' +
+            _zeroPad(d.getUTCSeconds())   + 'Z';
+    },
+
+    /**
+     * Reconstitute Date instances from the default JSON UTC serialization.
+     * Reference this from a reviver function to rebuild Dates during the
+     * parse operation.
+     * @method stringToDate
+     * @param str {String} String serialization of a Date
+     * @return {Date}
+     */
+    stringToDate : function (str) {
+        if (/^(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})Z$/.test(str)) {
+            var d = new Date();
+            d.setUTCFullYear(RegExp.$1, (RegExp.$2|0)-1, RegExp.$3);
+            d.setUTCHours(RegExp.$4, RegExp.$5, RegExp.$6);
+            return d;
+        }
+        return str;
+    }
+};
+
+})();
+YAHOO.register("json", YAHOO.lang.JSON, {version: "2.6.0", build: "1321"});
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/yahoo/yahoo.js b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/yahoo/yahoo.js
new file mode 100644
index 0000000..92ba865
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaClient JS/yui/build/yahoo/yahoo.js	
@@ -0,0 +1,986 @@
+/*
+Copyright (c) 2008, Yahoo! Inc. All rights reserved.
+Code licensed under the BSD License:
+http://developer.yahoo.net/yui/license.txt
+version: 2.6.0
+*/
+/**
+ * The YAHOO object is the single global object used by YUI Library.  It
+ * contains utility function for setting up namespaces, inheritance, and
+ * logging.  YAHOO.util, YAHOO.widget, and YAHOO.example are namespaces
+ * created automatically for and used by the library.
+ * @module yahoo
+ * @title  YAHOO Global
+ */
+
+/**
+ * YAHOO_config is not included as part of the library.  Instead it is an 
+ * object that can be defined by the implementer immediately before 
+ * including the YUI library.  The properties included in this object
+ * will be used to configure global properties needed as soon as the 
+ * library begins to load.
+ * @class YAHOO_config
+ * @static
+ */
+
+/**
+ * A reference to a function that will be executed every time a YAHOO module
+ * is loaded.  As parameter, this function will receive the version
+ * information for the module. See <a href="YAHOO.env.html#getVersion">
+ * YAHOO.env.getVersion</a> for the description of the version data structure.
+ * @property listener
+ * @type Function
+ * @static
+ * @default undefined
+ */
+
+/**
+ * Set to true if the library will be dynamically loaded after window.onload.
+ * Defaults to false 
+ * @property injecting
+ * @type boolean
+ * @static
+ * @default undefined
+ */
+
+/**
+ * Instructs the yuiloader component to dynamically load yui components and
+ * their dependencies.  See the yuiloader documentation for more information
+ * about dynamic loading
+ * @property load
+ * @static
+ * @default undefined
+ * @see yuiloader
+ */
+
+/**
+ * Forces the use of the supplied locale where applicable in the library
+ * @property locale
+ * @type string
+ * @static
+ * @default undefined
+ */
+
+if (typeof YAHOO == "undefined" || !YAHOO) {
+    /**
+     * The YAHOO global namespace object.  If YAHOO is already defined, the
+     * existing YAHOO object will not be overwritten so that defined
+     * namespaces are preserved.
+     * @class YAHOO
+     * @static
+     */
+    var YAHOO = {};
+}
+
+/**
+ * Returns the namespace specified and creates it if it doesn't exist
+ * <pre>
+ * YAHOO.namespace("property.package");
+ * YAHOO.namespace("YAHOO.property.package");
+ * </pre>
+ * Either of the above would create YAHOO.property, then
+ * YAHOO.property.package
+ *
+ * Be careful when naming packages. Reserved words may work in some browsers
+ * and not others. For instance, the following will fail in Safari:
+ * <pre>
+ * YAHOO.namespace("really.long.nested.namespace");
+ * </pre>
+ * This fails because "long" is a future reserved word in ECMAScript
+ *
+ * @method namespace
+ * @static
+ * @param  {String*} arguments 1-n namespaces to create 
+ * @return {Object}  A reference to the last namespace object created
+ */
+YAHOO.namespace = function() {
+    var a=arguments, o=null, i, j, d;
+    for (i=0; i<a.length; i=i+1) {
+        d=a[i].split(".");
+        o=YAHOO;
+
+        // YAHOO is implied, so it is ignored if it is included
+        for (j=(d[0] == "YAHOO") ? 1 : 0; j<d.length; j=j+1) {
+            o[d[j]]=o[d[j]] || {};
+            o=o[d[j]];
+        }
+    }
+
+    return o;
+};
+
+/**
+ * Uses YAHOO.widget.Logger to output a log message, if the widget is
+ * available.
+ *
+ * @method log
+ * @static
+ * @param  {String}  msg  The message to log.
+ * @param  {String}  cat  The log category for the message.  Default
+ *                        categories are "info", "warn", "error", time".
+ *                        Custom categories can be used as well. (opt)
+ * @param  {String}  src  The source of the the message (opt)
+ * @return {Boolean}      True if the log operation was successful.
+ */
+YAHOO.log = function(msg, cat, src) {
+    var l=YAHOO.widget.Logger;
+    if(l && l.log) {
+        return l.log(msg, cat, src);
+    } else {
+        return false;
+    }
+};
+
+/**
+ * Registers a module with the YAHOO object
+ * @method register
+ * @static
+ * @param {String}   name    the name of the module (event, slider, etc)
+ * @param {Function} mainClass a reference to class in the module.  This
+ *                             class will be tagged with the version info
+ *                             so that it will be possible to identify the
+ *                             version that is in use when multiple versions
+ *                             have loaded
+ * @param {Object}   data      metadata object for the module.  Currently it
+ *                             is expected to contain a "version" property
+ *                             and a "build" property at minimum.
+ */
+YAHOO.register = function(name, mainClass, data) {
+    var mods = YAHOO.env.modules;
+    if (!mods[name]) {
+        mods[name] = { versions:[], builds:[] };
+    }
+    var m=mods[name],v=data.version,b=data.build,ls=YAHOO.env.listeners;
+    m.name = name;
+    m.version = v;
+    m.build = b;
+    m.versions.push(v);
+    m.builds.push(b);
+    m.mainClass = mainClass;
+    // fire the module load listeners
+    for (var i=0;i<ls.length;i=i+1) {
+        ls[i](m);
+    }
+    // label the main class
+    if (mainClass) {
+        mainClass.VERSION = v;
+        mainClass.BUILD = b;
+    } else {
+        YAHOO.log("mainClass is undefined for module " + name, "warn");
+    }
+};
+
+/**
+ * YAHOO.env is used to keep track of what is known about the YUI library and
+ * the browsing environment
+ * @class YAHOO.env
+ * @static
+ */
+YAHOO.env = YAHOO.env || {
+
+    /**
+     * Keeps the version info for all YUI modules that have reported themselves
+     * @property modules
+     * @type Object[]
+     */
+    modules: [],
+    
+    /**
+     * List of functions that should be executed every time a YUI module
+     * reports itself.
+     * @property listeners
+     * @type Function[]
+     */
+    listeners: []
+};
+
+/**
+ * Returns the version data for the specified module:
+ *      <dl>
+ *      <dt>name:</dt>      <dd>The name of the module</dd>
+ *      <dt>version:</dt>   <dd>The version in use</dd>
+ *      <dt>build:</dt>     <dd>The build number in use</dd>
+ *      <dt>versions:</dt>  <dd>All versions that were registered</dd>
+ *      <dt>builds:</dt>    <dd>All builds that were registered.</dd>
+ *      <dt>mainClass:</dt> <dd>An object that was was stamped with the
+ *                 current version and build. If 
+ *                 mainClass.VERSION != version or mainClass.BUILD != build,
+ *                 multiple versions of pieces of the library have been
+ *                 loaded, potentially causing issues.</dd>
+ *       </dl>
+ *
+ * @method getVersion
+ * @static
+ * @param {String}  name the name of the module (event, slider, etc)
+ * @return {Object} The version info
+ */
+YAHOO.env.getVersion = function(name) {
+    return YAHOO.env.modules[name] || null;
+};
+
+/**
+ * Do not fork for a browser if it can be avoided.  Use feature detection when
+ * you can.  Use the user agent as a last resort.  YAHOO.env.ua stores a version
+ * number for the browser engine, 0 otherwise.  This value may or may not map
+ * to the version number of the browser using the engine.  The value is 
+ * presented as a float so that it can easily be used for boolean evaluation 
+ * as well as for looking for a particular range of versions.  Because of this, 
+ * some of the granularity of the version info may be lost (e.g., Gecko 1.8.0.9 
+ * reports 1.8).
+ * @class YAHOO.env.ua
+ * @static
+ */
+YAHOO.env.ua = function() {
+    var o={
+
+        /**
+         * Internet Explorer version number or 0.  Example: 6
+         * @property ie
+         * @type float
+         */
+        ie:0,
+
+        /**
+         * Opera version number or 0.  Example: 9.2
+         * @property opera
+         * @type float
+         */
+        opera:0,
+
+        /**
+         * Gecko engine revision number.  Will evaluate to 1 if Gecko 
+         * is detected but the revision could not be found. Other browsers
+         * will be 0.  Example: 1.8
+         * <pre>
+         * Firefox 1.0.0.4: 1.7.8   <-- Reports 1.7
+         * Firefox 1.5.0.9: 1.8.0.9 <-- Reports 1.8
+         * Firefox 2.0.0.3: 1.8.1.3 <-- Reports 1.8
+         * Firefox 3 alpha: 1.9a4   <-- Reports 1.9
+         * </pre>
+         * @property gecko
+         * @type float
+         */
+        gecko:0,
+
+        /**
+         * AppleWebKit version.  KHTML browsers that are not WebKit browsers 
+         * will evaluate to 1, other browsers 0.  Example: 418.9.1
+         * <pre>
+         * Safari 1.3.2 (312.6): 312.8.1 <-- Reports 312.8 -- currently the 
+         *                                   latest available for Mac OSX 10.3.
+         * Safari 2.0.2:         416     <-- hasOwnProperty introduced
+         * Safari 2.0.4:         418     <-- preventDefault fixed
+         * Safari 2.0.4 (419.3): 418.9.1 <-- One version of Safari may run
+         *                                   different versions of webkit
+         * Safari 2.0.4 (419.3): 419     <-- Tiger installations that have been
+         *                                   updated, but not updated
+         *                                   to the latest patch.
+         * Webkit 212 nightly:   522+    <-- Safari 3.0 precursor (with native SVG
+         *                                   and many major issues fixed).  
+         * 3.x yahoo.com, flickr:422     <-- Safari 3.x hacks the user agent
+         *                                   string when hitting yahoo.com and 
+         *                                   flickr.com.
+         * Safari 3.0.4 (523.12):523.12  <-- First Tiger release - automatic update
+         *                                   from 2.x via the 10.4.11 OS patch
+         * Webkit nightly 1/2008:525+    <-- Supports DOMContentLoaded event.
+         *                                   yahoo.com user agent hack removed.
+         *                                   
+         * </pre>
+         * http://developer.apple.com/internet/safari/uamatrix.html
+         * @property webkit
+         * @type float
+         */
+        webkit: 0,
+
+        /**
+         * The mobile property will be set to a string containing any relevant
+         * user agent information when a modern mobile browser is detected.
+         * Currently limited to Safari on the iPhone/iPod Touch, Nokia N-series
+         * devices with the WebKit-based browser, and Opera Mini.  
+         * @property mobile 
+         * @type string
+         */
+        mobile: null,
+
+        /**
+         * Adobe AIR version number or 0.  Only populated if webkit is detected.
+         * Example: 1.0
+         * @property air
+         * @type float
+         */
+        air: 0
+
+    };
+
+    var ua=navigator.userAgent, m;
+
+    // Modern KHTML browsers should qualify as Safari X-Grade
+    if ((/KHTML/).test(ua)) {
+        o.webkit=1;
+    }
+    // Modern WebKit browsers are at least X-Grade
+    m=ua.match(/AppleWebKit\/([^\s]*)/);
+    if (m&&m[1]) {
+        o.webkit=parseFloat(m[1]);
+
+        // Mobile browser check
+        if (/ Mobile\//.test(ua)) {
+            o.mobile = "Apple"; // iPhone or iPod Touch
+        } else {
+            m=ua.match(/NokiaN[^\/]*/);
+            if (m) {
+                o.mobile = m[0]; // Nokia N-series, ex: NokiaN95
+            }
+        }
+
+        m=ua.match(/AdobeAIR\/([^\s]*)/);
+        if (m) {
+            o.air = m[0]; // Adobe AIR 1.0 or better
+        }
+
+    }
+
+    if (!o.webkit) { // not webkit
+        // @todo check Opera/8.01 (J2ME/MIDP; Opera Mini/2.0.4509/1316; fi; U; ssr)
+        m=ua.match(/Opera[\s\/]([^\s]*)/);
+        if (m&&m[1]) {
+            o.opera=parseFloat(m[1]);
+            m=ua.match(/Opera Mini[^;]*/);
+            if (m) {
+                o.mobile = m[0]; // ex: Opera Mini/2.0.4509/1316
+            }
+        } else { // not opera or webkit
+            m=ua.match(/MSIE\s([^;]*)/);
+            if (m&&m[1]) {
+                o.ie=parseFloat(m[1]);
+            } else { // not opera, webkit, or ie
+                m=ua.match(/Gecko\/([^\s]*)/);
+                if (m) {
+                    o.gecko=1; // Gecko detected, look for revision
+                    m=ua.match(/rv:([^\s\)]*)/);
+                    if (m&&m[1]) {
+                        o.gecko=parseFloat(m[1]);
+                    }
+                }
+            }
+        }
+    }
+    
+    return o;
+}();
+
+/*
+ * Initializes the global by creating the default namespaces and applying
+ * any new configuration information that is detected.  This is the setup
+ * for env.
+ * @method init
+ * @static
+ * @private
+ */
+(function() {
+    YAHOO.namespace("util", "widget", "example");
+    if ("undefined" !== typeof YAHOO_config) {
+        var l=YAHOO_config.listener,ls=YAHOO.env.listeners,unique=true,i;
+        if (l) {
+            // if YAHOO is loaded multiple times we need to check to see if
+            // this is a new config object.  If it is, add the new component
+            // load listener to the stack
+            for (i=0;i<ls.length;i=i+1) {
+                if (ls[i]==l) {
+                    unique=false;
+                    break;
+                }
+            }
+            if (unique) {
+                ls.push(l);
+            }
+        }
+    }
+})();
+/**
+ * Provides the language utilites and extensions used by the library
+ * @class YAHOO.lang
+ */
+YAHOO.lang = YAHOO.lang || {};
+
+(function() {
+
+var L = YAHOO.lang,
+
+    // ADD = ["toString", "valueOf", "hasOwnProperty"],
+    ADD = ["toString", "valueOf"],
+
+    OB = {
+
+    /**
+     * Determines whether or not the provided object is an array.
+     * Testing typeof/instanceof/constructor of arrays across frame 
+     * boundaries isn't possible in Safari unless you have a reference
+     * to the other frame to test against its Array prototype.  To
+     * handle this case, we test well-known array properties instead.
+     * properties.
+     * @method isArray
+     * @param {any} o The object being testing
+     * @return {boolean} the result
+     */
+    isArray: function(o) { 
+        if (o) {
+           return L.isNumber(o.length) && L.isFunction(o.splice);
+        }
+        return false;
+    },
+
+    /**
+     * Determines whether or not the provided object is a boolean
+     * @method isBoolean
+     * @param {any} o The object being testing
+     * @return {boolean} the result
+     */
+    isBoolean: function(o) {
+        return typeof o === 'boolean';
+    },
+    
+    /**
+     * Determines whether or not the provided object is a function
+     * @method isFunction
+     * @param {any} o The object being testing
+     * @return {boolean} the result
+     */
+    isFunction: function(o) {
+        return typeof o === 'function';
+    },
+        
+    /**
+     * Determines whether or not the provided object is null
+     * @method isNull
+     * @param {any} o The object being testing
+     * @return {boolean} the result
+     */
+    isNull: function(o) {
+        return o === null;
+    },
+        
+    /**
+     * Determines whether or not the provided object is a legal number
+     * @method isNumber
+     * @param {any} o The object being testing
+     * @return {boolean} the result
+     */
+    isNumber: function(o) {
+        return typeof o === 'number' && isFinite(o);
+    },
+      
+    /**
+     * Determines whether or not the provided object is of type object
+     * or function
+     * @method isObject
+     * @param {any} o The object being testing
+     * @return {boolean} the result
+     */  
+    isObject: function(o) {
+return (o && (typeof o === 'object' || L.isFunction(o))) || false;
+    },
+        
+    /**
+     * Determines whether or not the provided object is a string
+     * @method isString
+     * @param {any} o The object being testing
+     * @return {boolean} the result
+     */
+    isString: function(o) {
+        return typeof o === 'string';
+    },
+        
+    /**
+     * Determines whether or not the provided object is undefined
+     * @method isUndefined
+     * @param {any} o The object being testing
+     * @return {boolean} the result
+     */
+    isUndefined: function(o) {
+        return typeof o === 'undefined';
+    },
+    
+ 
+    /**
+     * IE will not enumerate native functions in a derived object even if the
+     * function was overridden.  This is a workaround for specific functions 
+     * we care about on the Object prototype. 
+     * @property _IEEnumFix
+     * @param {Function} r  the object to receive the augmentation
+     * @param {Function} s  the object that supplies the properties to augment
+     * @static
+     * @private
+     */
+    _IEEnumFix: (YAHOO.env.ua.ie) ? function(r, s) {
+            for (var i=0;i<ADD.length;i=i+1) {
+                var fname=ADD[i],f=s[fname];
+                if (L.isFunction(f) && f!=Object.prototype[fname]) {
+                    r[fname]=f;
+                }
+            }
+    } : function(){},
+       
+    /**
+     * Utility to set up the prototype, constructor and superclass properties to
+     * support an inheritance strategy that can chain constructors and methods.
+     * Static members will not be inherited.
+     *
+     * @method extend
+     * @static
+     * @param {Function} subc   the object to modify
+     * @param {Function} superc the object to inherit
+     * @param {Object} overrides  additional properties/methods to add to the
+     *                              subclass prototype.  These will override the
+     *                              matching items obtained from the superclass 
+     *                              if present.
+     */
+    extend: function(subc, superc, overrides) {
+        if (!superc||!subc) {
+            throw new Error("extend failed, please check that " +
+                            "all dependencies are included.");
+        }
+        var F = function() {};
+        F.prototype=superc.prototype;
+        subc.prototype=new F();
+        subc.prototype.constructor=subc;
+        subc.superclass=superc.prototype;
+        if (superc.prototype.constructor == Object.prototype.constructor) {
+            superc.prototype.constructor=superc;
+        }
+    
+        if (overrides) {
+            for (var i in overrides) {
+                if (L.hasOwnProperty(overrides, i)) {
+                    subc.prototype[i]=overrides[i];
+                }
+            }
+
+            L._IEEnumFix(subc.prototype, overrides);
+        }
+    },
+   
+    /**
+     * Applies all properties in the supplier to the receiver if the
+     * receiver does not have these properties yet.  Optionally, one or 
+     * more methods/properties can be specified (as additional 
+     * parameters).  This option will overwrite the property if receiver 
+     * has it already.  If true is passed as the third parameter, all 
+     * properties will be applied and _will_ overwrite properties in 
+     * the receiver.
+     *
+     * @method augmentObject
+     * @static
+     * @since 2.3.0
+     * @param {Function} r  the object to receive the augmentation
+     * @param {Function} s  the object that supplies the properties to augment
+     * @param {String*|boolean}  arguments zero or more properties methods 
+     *        to augment the receiver with.  If none specified, everything
+     *        in the supplier will be used unless it would
+     *        overwrite an existing property in the receiver. If true
+     *        is specified as the third parameter, all properties will
+     *        be applied and will overwrite an existing property in
+     *        the receiver
+     */
+    augmentObject: function(r, s) {
+        if (!s||!r) {
+            throw new Error("Absorb failed, verify dependencies.");
+        }
+        var a=arguments, i, p, override=a[2];
+        if (override && override!==true) { // only absorb the specified properties
+            for (i=2; i<a.length; i=i+1) {
+                r[a[i]] = s[a[i]];
+            }
+        } else { // take everything, overwriting only if the third parameter is true
+            for (p in s) { 
+                if (override || !(p in r)) {
+                    r[p] = s[p];
+                }
+            }
+            
+            L._IEEnumFix(r, s);
+        }
+    },
+ 
+    /**
+     * Same as YAHOO.lang.augmentObject, except it only applies prototype properties
+     * @see YAHOO.lang.augmentObject
+     * @method augmentProto
+     * @static
+     * @param {Function} r  the object to receive the augmentation
+     * @param {Function} s  the object that supplies the properties to augment
+     * @param {String*|boolean}  arguments zero or more properties methods 
+     *        to augment the receiver with.  If none specified, everything 
+     *        in the supplier will be used unless it would overwrite an existing 
+     *        property in the receiver.  if true is specified as the third 
+     *        parameter, all properties will be applied and will overwrite an 
+     *        existing property in the receiver
+     */
+    augmentProto: function(r, s) {
+        if (!s||!r) {
+            throw new Error("Augment failed, verify dependencies.");
+        }
+        //var a=[].concat(arguments);
+        var a=[r.prototype,s.prototype];
+        for (var i=2;i<arguments.length;i=i+1) {
+            a.push(arguments[i]);
+        }
+        L.augmentObject.apply(this, a);
+    },
+
+      
+    /**
+     * Returns a simple string representation of the object or array.
+     * Other types of objects will be returned unprocessed.  Arrays
+     * are expected to be indexed.  Use object notation for
+     * associative arrays.
+     * @method dump
+     * @since 2.3.0
+     * @param o {Object} The object to dump
+     * @param d {int} How deep to recurse child objects, default 3
+     * @return {String} the dump result
+     */
+    dump: function(o, d) {
+        var i,len,s=[],OBJ="{...}",FUN="f(){...}",
+            COMMA=', ', ARROW=' => ';
+
+        // Cast non-objects to string
+        // Skip dates because the std toString is what we want
+        // Skip HTMLElement-like objects because trying to dump 
+        // an element will cause an unhandled exception in FF 2.x
+        if (!L.isObject(o)) {
+            return o + "";
+        } else if (o instanceof Date || ("nodeType" in o && "tagName" in o)) {
+            return o;
+        } else if  (L.isFunction(o)) {
+            return FUN;
+        }
+
+        // dig into child objects the depth specifed. Default 3
+        d = (L.isNumber(d)) ? d : 3;
+
+        // arrays [1, 2, 3]
+        if (L.isArray(o)) {
+            s.push("[");
+            for (i=0,len=o.length;i<len;i=i+1) {
+                if (L.isObject(o[i])) {
+                    s.push((d > 0) ? L.dump(o[i], d-1) : OBJ);
+                } else {
+                    s.push(o[i]);
+                }
+                s.push(COMMA);
+            }
+            if (s.length > 1) {
+                s.pop();
+            }
+            s.push("]");
+        // objects {k1 => v1, k2 => v2}
+        } else {
+            s.push("{");
+            for (i in o) {
+                if (L.hasOwnProperty(o, i)) {
+                    s.push(i + ARROW);
+                    if (L.isObject(o[i])) {
+                        s.push((d > 0) ? L.dump(o[i], d-1) : OBJ);
+                    } else {
+                        s.push(o[i]);
+                    }
+                    s.push(COMMA);
+                }
+            }
+            if (s.length > 1) {
+                s.pop();
+            }
+            s.push("}");
+        }
+
+        return s.join("");
+    },
+
+    /**
+     * Does variable substitution on a string. It scans through the string 
+     * looking for expressions enclosed in { } braces. If an expression 
+     * is found, it is used a key on the object.  If there is a space in
+     * the key, the first word is used for the key and the rest is provided
+     * to an optional function to be used to programatically determine the
+     * value (the extra information might be used for this decision). If 
+     * the value for the key in the object, or what is returned from the
+     * function has a string value, number value, or object value, it is 
+     * substituted for the bracket expression and it repeats.  If this
+     * value is an object, it uses the Object's toString() if this has
+     * been overridden, otherwise it does a shallow dump of the key/value
+     * pairs.
+     * @method substitute
+     * @since 2.3.0
+     * @param s {String} The string that will be modified.
+     * @param o {Object} An object containing the replacement values
+     * @param f {Function} An optional function that can be used to
+     *                     process each match.  It receives the key,
+     *                     value, and any extra metadata included with
+     *                     the key inside of the braces.
+     * @return {String} the substituted string
+     */
+    substitute: function (s, o, f) {
+        var i, j, k, key, v, meta, saved=[], token, 
+            DUMP='dump', SPACE=' ', LBRACE='{', RBRACE='}';
+
+
+        for (;;) {
+            i = s.lastIndexOf(LBRACE);
+            if (i < 0) {
+                break;
+            }
+            j = s.indexOf(RBRACE, i);
+            if (i + 1 >= j) {
+                break;
+            }
+
+            //Extract key and meta info 
+            token = s.substring(i + 1, j);
+            key = token;
+            meta = null;
+            k = key.indexOf(SPACE);
+            if (k > -1) {
+                meta = key.substring(k + 1);
+                key = key.substring(0, k);
+            }
+
+            // lookup the value
+            v = o[key];
+
+            // if a substitution function was provided, execute it
+            if (f) {
+                v = f(key, v, meta);
+            }
+
+            if (L.isObject(v)) {
+                if (L.isArray(v)) {
+                    v = L.dump(v, parseInt(meta, 10));
+                } else {
+                    meta = meta || "";
+
+                    // look for the keyword 'dump', if found force obj dump
+                    var dump = meta.indexOf(DUMP);
+                    if (dump > -1) {
+                        meta = meta.substring(4);
+                    }
+
+                    // use the toString if it is not the Object toString 
+                    // and the 'dump' meta info was not found
+                    if (v.toString===Object.prototype.toString||dump>-1) {
+                        v = L.dump(v, parseInt(meta, 10));
+                    } else {
+                        v = v.toString();
+                    }
+                }
+            } else if (!L.isString(v) && !L.isNumber(v)) {
+                // This {block} has no replace string. Save it for later.
+                v = "~-" + saved.length + "-~";
+                saved[saved.length] = token;
+
+                // break;
+            }
+
+            s = s.substring(0, i) + v + s.substring(j + 1);
+
+
+        }
+
+        // restore saved {block}s
+        for (i=saved.length-1; i>=0; i=i-1) {
+            s = s.replace(new RegExp("~-" + i + "-~"), "{"  + saved[i] + "}", "g");
+        }
+
+        return s;
+    },
+
+
+    /**
+     * Returns a string without any leading or trailing whitespace.  If 
+     * the input is not a string, the input will be returned untouched.
+     * @method trim
+     * @since 2.3.0
+     * @param s {string} the string to trim
+     * @return {string} the trimmed string
+     */
+    trim: function(s){
+        try {
+            return s.replace(/^\s+|\s+$/g, "");
+        } catch(e) {
+            return s;
+        }
+    },
+
+    /**
+     * Returns a new object containing all of the properties of
+     * all the supplied objects.  The properties from later objects
+     * will overwrite those in earlier objects.
+     * @method merge
+     * @since 2.3.0
+     * @param arguments {Object*} the objects to merge
+     * @return the new merged object
+     */
+    merge: function() {
+        var o={}, a=arguments;
+        for (var i=0, l=a.length; i<l; i=i+1) {
+            L.augmentObject(o, a[i], true);
+        }
+        return o;
+    },
+
+    /**
+     * Executes the supplied function in the context of the supplied 
+     * object 'when' milliseconds later.  Executes the function a 
+     * single time unless periodic is set to true.
+     * @method later
+     * @since 2.4.0
+     * @param when {int} the number of milliseconds to wait until the fn 
+     * is executed
+     * @param o the context object
+     * @param fn {Function|String} the function to execute or the name of 
+     * the method in the 'o' object to execute
+     * @param data [Array] data that is provided to the function.  This accepts
+     * either a single item or an array.  If an array is provided, the
+     * function is executed with one parameter for each array item.  If
+     * you need to pass a single array parameter, it needs to be wrapped in
+     * an array [myarray]
+     * @param periodic {boolean} if true, executes continuously at supplied 
+     * interval until canceled
+     * @return a timer object. Call the cancel() method on this object to 
+     * stop the timer.
+     */
+    later: function(when, o, fn, data, periodic) {
+        when = when || 0; 
+        o = o || {};
+        var m=fn, d=data, f, r;
+
+        if (L.isString(fn)) {
+            m = o[fn];
+        }
+
+        if (!m) {
+            throw new TypeError("method undefined");
+        }
+
+        if (!L.isArray(d)) {
+            d = [data];
+        }
+
+        f = function() {
+            m.apply(o, d);
+        };
+
+        r = (periodic) ? setInterval(f, when) : setTimeout(f, when);
+
+        return {
+            interval: periodic,
+            cancel: function() {
+                if (this.interval) {
+                    clearInterval(r);
+                } else {
+                    clearTimeout(r);
+                }
+            }
+        };
+    },
+    
+    /**
+     * A convenience method for detecting a legitimate non-null value.
+     * Returns false for null/undefined/NaN, true for other values, 
+     * including 0/false/''
+     * @method isValue
+     * @since 2.3.0
+     * @param o {any} the item to test
+     * @return {boolean} true if it is not null/undefined/NaN || false
+     */
+    isValue: function(o) {
+        // return (o || o === false || o === 0 || o === ''); // Infinity fails
+return (L.isObject(o) || L.isString(o) || L.isNumber(o) || L.isBoolean(o));
+    }
+
+};
+
+/**
+ * Determines whether or not the property was added
+ * to the object instance.  Returns false if the property is not present
+ * in the object, or was inherited from the prototype.
+ * This abstraction is provided to enable hasOwnProperty for Safari 1.3.x.
+ * There is a discrepancy between YAHOO.lang.hasOwnProperty and
+ * Object.prototype.hasOwnProperty when the property is a primitive added to
+ * both the instance AND prototype with the same value:
+ * <pre>
+ * var A = function() {};
+ * A.prototype.foo = 'foo';
+ * var a = new A();
+ * a.foo = 'foo';
+ * alert(a.hasOwnProperty('foo')); // true
+ * alert(YAHOO.lang.hasOwnProperty(a, 'foo')); // false when using fallback
+ * </pre>
+ * @method hasOwnProperty
+ * @param {any} o The object being testing
+ * @param prop {string} the name of the property to test
+ * @return {boolean} the result
+ */
+L.hasOwnProperty = (Object.prototype.hasOwnProperty) ?
+    function(o, prop) {
+        return o && o.hasOwnProperty(prop);
+    } : function(o, prop) {
+        return !L.isUndefined(o[prop]) && 
+                o.constructor.prototype[prop] !== o[prop];
+    };
+
+// new lang wins
+OB.augmentObject(L, OB, true);
+
+/*
+ * An alias for <a href="YAHOO.lang.html">YAHOO.lang</a>
+ * @class YAHOO.util.Lang
+ */
+YAHOO.util.Lang = L;
+ 
+/**
+ * Same as YAHOO.lang.augmentObject, except it only applies prototype 
+ * properties.  This is an alias for augmentProto.
+ * @see YAHOO.lang.augmentObject
+ * @method augment
+ * @static
+ * @param {Function} r  the object to receive the augmentation
+ * @param {Function} s  the object that supplies the properties to augment
+ * @param {String*|boolean}  arguments zero or more properties methods to 
+ *        augment the receiver with.  If none specified, everything
+ *        in the supplier will be used unless it would
+ *        overwrite an existing property in the receiver.  if true
+ *        is specified as the third parameter, all properties will
+ *        be applied and will overwrite an existing property in
+ *        the receiver
+ */
+L.augment = L.augmentProto;
+
+/**
+ * An alias for <a href="YAHOO.lang.html#augment">YAHOO.lang.augment</a>
+ * @for YAHOO
+ * @method augment
+ * @static
+ * @param {Function} r  the object to receive the augmentation
+ * @param {Function} s  the object that supplies the properties to augment
+ * @param {String*}  arguments zero or more properties methods to 
+ *        augment the receiver with.  If none specified, everything
+ *        in the supplier will be used unless it would
+ *        overwrite an existing property in the receiver
+ */
+YAHOO.augment = L.augmentProto;
+       
+/**
+ * An alias for <a href="YAHOO.lang.html#extend">YAHOO.lang.extend</a>
+ * @method extend
+ * @static
+ * @param {Function} subc   the object to modify
+ * @param {Function} superc the object to inherit
+ * @param {Object} overrides  additional properties/methods to add to the
+ *        subclass prototype.  These will override the
+ *        matching items obtained from the superclass if present.
+ */
+YAHOO.extend = L.extend;
+
+})();
+YAHOO.register("yahoo", YAHOO, {version: "2.6.0", build: "1321"});
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.Sample.html
new file mode 100644
index 0000000..5dd02c7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.Sample.html	
@@ -0,0 +1,61 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>MegaDemo Sample</span> 
+</p>
+
+<h2>Purpose</h2>
+
+<p>This comprehensive example illustrates many of the features of the<b>RemObjects SDK</b> by providing benchmark facilities for the various protocols and channels supported.</p>
+
+<p>The following are included:
+<ul>
+<li><b>message types</b></li>
+  <ul>
+  <li>TROBINMessage</li>
+  <li>TROSOAPMessage</li> 
+  <li>TROPostMessage</li> 
+  <li>TROServerMultiMessage</li>
+  </ul>
+<li><b>transport channels</b></li>
+  <ul>
+  <li>TROWinMessageChannel</li> 
+  <li>TROWinInetHTTPChannel</li> 
+  <li>TROIndyHTTPChannel</li> 
+  <li>TROIndyTCPChannel</li>
+  </ul>
+<li><b>message encrypting and compression</b></li>
+</ul>
+<p>
+The tests you can perform are very comprehensive. In particular, try the <b>Stress Test</b> which runs all the tests once or many times.
+</p>. 
+
+<p>You can also specify how much information is displayed about the test results by using <b>Write Test Info</b>,<b>Verbose</b> and <b>Enable Log</b>.<p>
+
+<h2>Examine the Code</h2>
+<ul>
+	<li>See how the Twelve methods were defined by editing the service library. 
+	    Do this by making the <strong>server</strong> the selected project and 
+	    by using the menu option: <strong>RemObjects | Edit Service Library</strong>. 
+	    Note: if you don't see this menu option but see 'Service Builder' instead, 
+	    you still have the client set as the current project.  
+	    Examine the methods added to <strong>MegaDemoService</strong>.</li>
+	<li>
+	   Check how the server methods were implemented in 
+	   <strong>MegaDemoService_Impl.pas</strong>.
+	</li>
+	<li>
+	   Examine the simple code needed to invoke the methods in 
+	   <strong>MegaDemoClientMain.pas</strong>.
+	</li>
+</ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.bdsgroup
new file mode 100644
index 0000000..6721b5e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.bdsgroup	
@@ -0,0 +1,21 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0C1E5AA3-4B44-4993-A379-E37C50797DB3}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="MegaDemoServer.exe">MegaDemoServer.bdsproj</Projects>
+      <Projects Name="MegaDemoClient.exe">MegaDemoClient.bdsproj</Projects>
+      <Projects Name="MegaDemoISAPI.dll">MegaDemoISAPI.bdsproj</Projects>
+      <Projects Name="Targets">MegaDemoServer.exe MegaDemoClient.exe MegaDemoISAPI.dll</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.bpg
new file mode 100644
index 0000000..d41db19
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.bpg	
@@ -0,0 +1,26 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = MegaDemoServer.exe MegaDemoClient.exe MegaDemoISAPI.dll
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+MegaDemoServer.exe: MegaDemoServer.dpr
+  $(DCC)
+
+MegaDemoClient.exe: MegaDemoClient.dpr
+  $(DCC)
+
+MegaDemoISAPI.dll: MegaDemoISAPI.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.groupproj
new file mode 100644
index 0000000..95c606a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemo.groupproj	
@@ -0,0 +1,49 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{ef074fbb-1501-498f-9a4b-0f5d4c51bf53}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="MegaDemoServer">
+    <MSBuild Projects="MegaDemoServer.dproj" Targets="" />
+  </Target>
+  <Target Name="MegaDemoServer:Clean">
+    <MSBuild Projects="MegaDemoServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MegaDemoServer:Make">
+    <MSBuild Projects="MegaDemoServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="MegaDemoClient">
+    <MSBuild Projects="MegaDemoClient.dproj" Targets="" />
+  </Target>
+  <Target Name="MegaDemoClient:Clean">
+    <MSBuild Projects="MegaDemoClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MegaDemoClient:Make">
+    <MSBuild Projects="MegaDemoClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="MegaDemoISAPI">
+    <MSBuild Projects="MegaDemoISAPI.dproj" Targets="" />
+  </Target>
+  <Target Name="MegaDemoISAPI:Clean">
+    <MSBuild Projects="MegaDemoISAPI.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MegaDemoISAPI:Make">
+    <MSBuild Projects="MegaDemoISAPI.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="MegaDemoServer;MegaDemoClient;MegaDemoISAPI" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="MegaDemoServer:Clean;MegaDemoClient:Clean;MegaDemoISAPI:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="MegaDemoServer:Make;MegaDemoClient:Make;MegaDemoISAPI:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.bdsproj
new file mode 100644
index 0000000..fd3dcfd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{B9480CB3-873E-4DFC-9ECD-2AC75F27FF19}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MegaDemoClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.dpr
new file mode 100644
index 0000000..ce9b228
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.dpr	
@@ -0,0 +1,15 @@
+program MegaDemoClient;
+
+uses
+  Forms,
+  MegaDemoClientMain in 'MegaDemoClientMain.pas' {MegaDemoClientMainForm},
+  MegaDemoCustomClass in 'MegaDemoCustomClass.pas';
+
+{$R *.RES}
+
+begin
+  Application.Initialize;
+  Application.Title := 'RemObjects MegaDemo Client';
+  Application.CreateForm(TMegaDemoClientMainForm, MegaDemoClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.dproj
new file mode 100644
index 0000000..3c78fe4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.dproj	
@@ -0,0 +1,79 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3492e535-a0ea-4598-93c9-cec490cccd99}</ProjectGuid>
+    <MainSource>MegaDemoClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MegaDemoClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MegaDemoClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MegaDemoClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MegaDemoClientMain.pas">
+      <Form>MegaDemoClientMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="MegaDemoCustomClass.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClientMain.dfm
new file mode 100644
index 0000000..d842548
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClientMain.dfm	
@@ -0,0 +1,1092 @@
+object MegaDemoClientMainForm: TMegaDemoClientMainForm
+  Left = 434
+  Top = 193
+  Width = 694
+  Height = 459
+  Caption = 'RemObjects SDK 4.0 for Delphi - Mega Demo Client'
+  Color = clBtnFace
+  Constraints.MinHeight = 444
+  Constraints.MinWidth = 675
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  ShowHint = True
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel3: TPanel
+    Left = 0
+    Top = 0
+    Width = 686
+    Height = 432
+    Align = alClient
+    BevelOuter = bvNone
+    BorderWidth = 5
+    TabOrder = 0
+    object Panel4: TPanel
+      Left = 5
+      Top = 150
+      Width = 676
+      Height = 140
+      Align = alTop
+      BevelOuter = bvNone
+      TabOrder = 1
+      object Label15: TLabel
+        Left = 617
+        Top = 61
+        Width = 24
+        Height = 13
+        Caption = 'times'
+      end
+      object Label14: TLabel
+        Left = 619
+        Top = 85
+        Width = 35
+        Height = 13
+        Caption = 'threads'
+      end
+      object clbTests: TCheckListBox
+        Left = 0
+        Top = 0
+        Width = 112
+        Height = 108
+        Hint = 'Select test'
+        OnClickCheck = clbTestsClickCheck
+        Align = alLeft
+        ItemHeight = 13
+        Items.Strings = (
+          'Stress Test'
+          'Sum'
+          'EchoPerson'
+          'TestArrays'
+          'EchoBinary'
+          'GetServerTime'
+          'CustomClass'
+          'RaiseError')
+        TabOrder = 0
+        OnClick = clbTestsClick
+      end
+      object Panel5: TPanel
+        Left = 0
+        Top = 108
+        Width = 676
+        Height = 32
+        Align = alBottom
+        BevelOuter = bvNone
+        TabOrder = 5
+        object cbEnableLog: TCheckBox
+          Left = 183
+          Top = 8
+          Width = 82
+          Height = 17
+          Hint = 'Allows to show the report on performance of tests'
+          Caption = 'Enable Log'
+          TabOrder = 2
+        end
+        object cbVerbose: TCheckBox
+          Left = 111
+          Top = 8
+          Width = 66
+          Height = 17
+          Hint = 
+            'Allows to show progress of transfer / reception of data for BIN ' +
+            'Message'
+          Caption = 'Verbose'
+          TabOrder = 1
+        end
+        object cbWriteTestInfo: TCheckBox
+          Left = 7
+          Top = 8
+          Width = 97
+          Height = 17
+          Hint = 'Shows the information on the test '
+          Caption = 'Write Test Info'
+          TabOrder = 0
+        end
+        object bClearLog: TButton
+          Left = 592
+          Top = 7
+          Width = 80
+          Height = 25
+          Caption = 'Clear Log'
+          TabOrder = 3
+          OnClick = bClearLogClick
+        end
+      end
+      object RunTestOnceButton: TButton
+        Left = 572
+        Top = 1
+        Width = 100
+        Height = 25
+        Caption = 'Run Test Once'
+        TabOrder = 1
+        OnClick = RunTestOnceButtonClick
+      end
+      object RunTestButton: TButton
+        Left = 572
+        Top = 28
+        Width = 100
+        Height = 25
+        Caption = 'Run Multiple Tests'
+        TabOrder = 2
+        OnClick = RunTestButtonClick
+      end
+      object seRepetitions: TSpinEdit
+        Left = 575
+        Top = 56
+        Width = 40
+        Height = 22
+        Hint = 'Set times for Stress test and multiple tests'
+        MaxValue = 0
+        MinValue = 0
+        TabOrder = 3
+        Value = 10
+      end
+      object seThreads: TSpinEdit
+        Left = 575
+        Top = 80
+        Width = 40
+        Height = 22
+        Hint = 'Set threads for Stress test and multiple tests'
+        MaxValue = 0
+        MinValue = 0
+        TabOrder = 4
+        Value = 5
+      end
+      object pPage: TPanel
+        Left = 112
+        Top = 1
+        Width = 456
+        Height = 108
+        Align = alCustom
+        Anchors = [akLeft, akTop, akBottom]
+        BevelOuter = bvNone
+        TabOrder = 6
+        object pagecontrol2: TPageControl
+          Left = 0
+          Top = 0
+          Width = 456
+          Height = 108
+          ActivePage = tsStress
+          Align = alClient
+          TabOrder = 0
+          object tsStress: TTabSheet
+            Caption = 'Stress'
+            object pStress: TPanel
+              Left = 0
+              Top = 0
+              Width = 448
+              Height = 80
+              Align = alClient
+              BevelOuter = bvNone
+              TabOrder = 0
+              DesignSize = (
+                448
+                80)
+              object Label17: TLabel
+                Left = 7
+                Top = 0
+                Width = 434
+                Height = 79
+                Anchors = [akLeft, akTop, akRight, akBottom]
+                AutoSize = False
+                Caption = 
+                  'This test allows you to run one or more of the individual tests,' +
+                  ' depending on which are checked.'#13#10#13#10'IMPORTANT: before running an' +
+                  'y test, you must activate the server'#39's transport that matches th' +
+                  'e channel selected on this client (default is HTTP Channel).'
+                WordWrap = True
+              end
+            end
+          end
+          object tsSum: TTabSheet
+            Caption = 'Sum'
+            ImageIndex = 1
+            object pSum: TPanel
+              Left = 0
+              Top = 0
+              Width = 448
+              Height = 80
+              Align = alClient
+              BevelOuter = bvNone
+              TabOrder = 0
+              object Label18: TLabel
+                Left = 7
+                Top = 60
+                Width = 435
+                Height = 19
+                Align = alCustom
+                Anchors = [akLeft, akTop, akRight, akBottom]
+                AutoSize = False
+                Caption = 'This method fulfils the sum of argument A and argument B'
+                WordWrap = True
+              end
+              object Label16: TLabel
+                Left = 7
+                Top = 28
+                Width = 58
+                Height = 13
+                Caption = 'Argument B:'
+              end
+              object Label11: TLabel
+                Left = 7
+                Top = 5
+                Width = 58
+                Height = 13
+                Caption = 'Argument A:'
+              end
+              object seB: TSpinEdit
+                Left = 75
+                Top = 23
+                Width = 81
+                Height = 22
+                Hint = 'Set argument B for Sum test'
+                MaxValue = 0
+                MinValue = 0
+                TabOrder = 1
+                Value = 2
+              end
+              object seA: TSpinEdit
+                Left = 75
+                Top = 0
+                Width = 81
+                Height = 22
+                Hint = 'Set argument A for Sum test'
+                MaxValue = 0
+                MinValue = 0
+                TabOrder = 0
+                Value = 1
+              end
+            end
+          end
+          object tsEchoPerson: TTabSheet
+            Caption = 'EchoPerson'
+            ImageIndex = 2
+            object pEchoPerson: TPanel
+              Left = 0
+              Top = 0
+              Width = 448
+              Height = 80
+              Align = alClient
+              BevelOuter = bvNone
+              TabOrder = 0
+              object Label19: TLabel
+                Left = 7
+                Top = 60
+                Width = 433
+                Height = 19
+                Align = alCustom
+                Anchors = [akLeft, akTop, akRight, akBottom]
+                AutoSize = False
+                Caption = 
+                  'This method created object TPerson and  send it to server  and r' +
+                  'eturns a copy of this object from a server'
+                WordWrap = True
+              end
+              object Label2: TLabel
+                Left = 7
+                Top = 4
+                Width = 53
+                Height = 13
+                Caption = 'First Name:'
+              end
+              object Label3: TLabel
+                Left = 215
+                Top = 5
+                Width = 54
+                Height = 13
+                Caption = 'Last Name:'
+              end
+              object Label4: TLabel
+                Left = 38
+                Top = 27
+                Width = 22
+                Height = 13
+                Caption = 'Age:'
+              end
+              object Label5: TLabel
+                Left = 120
+                Top = 27
+                Width = 21
+                Height = 13
+                Caption = 'Sex:'
+              end
+              object eLastName: TEdit
+                Left = 284
+                Top = 1
+                Width = 124
+                Height = 21
+                Hint = 'Set Last Name for EchoPerson test'
+                TabOrder = 1
+                Text = 'Smith'
+              end
+              object cbSex: TComboBox
+                Left = 143
+                Top = 23
+                Width = 109
+                Height = 21
+                Hint = 'Set Sex for EchoPerson test'
+                Style = csDropDownList
+                ItemHeight = 0
+                TabOrder = 3
+              end
+              object eFirstName: TEdit
+                Left = 75
+                Top = 0
+                Width = 124
+                Height = 21
+                Hint = 'Set First Name for EchoPerson test'
+                TabOrder = 0
+                Text = 'John'
+              end
+              object seAge: TSpinEdit
+                Left = 75
+                Top = 22
+                Width = 42
+                Height = 22
+                Hint = 'Set Age for EchoPerson test'
+                MaxValue = 0
+                MinValue = 0
+                TabOrder = 2
+                Value = 33
+              end
+            end
+          end
+          object tsTestArrays: TTabSheet
+            Caption = 'TestArrays'
+            ImageIndex = 4
+            object pTestArrays: TPanel
+              Left = 0
+              Top = 0
+              Width = 448
+              Height = 80
+              Align = alClient
+              BevelOuter = bvNone
+              TabOrder = 0
+              object Label6: TLabel
+                Left = 7
+                Top = 5
+                Width = 31
+                Height = 13
+                Caption = 'Count:'
+              end
+              object Label20: TLabel
+                Left = 7
+                Top = 60
+                Width = 437
+                Height = 19
+                Align = alCustom
+                Anchors = [akLeft, akTop, akRight, akBottom]
+                AutoSize = False
+                Caption = 
+                  'This method sends the array on a server and returns a copy of th' +
+                  'is array from a server'
+                WordWrap = True
+              end
+              object rbInteger: TRadioButton
+                Left = 7
+                Top = 22
+                Width = 85
+                Height = 17
+                Hint = 'Use integer array for TestArrays test'
+                Caption = 'Integer array'
+                Checked = True
+                TabOrder = 1
+                TabStop = True
+              end
+              object seArrayCount: TSpinEdit
+                Left = 75
+                Top = 0
+                Width = 81
+                Height = 22
+                Hint = 'Set array size for TestArrays test'
+                MaxValue = 0
+                MinValue = 0
+                TabOrder = 0
+                Value = 10
+              end
+              object rbTPerson: TRadioButton
+                Left = 175
+                Top = 22
+                Width = 89
+                Height = 17
+                Hint = 'Use TPerson array for TestArrays test'
+                Caption = 'TPerson array'
+                TabOrder = 3
+              end
+              object rbString: TRadioButton
+                Left = 91
+                Top = 22
+                Width = 77
+                Height = 17
+                Hint = 'Use string array for TestArrays test'
+                Caption = 'String array'
+                TabOrder = 2
+              end
+            end
+          end
+          object tsEchoBinary: TTabSheet
+            Caption = 'EchoBinary'
+            ImageIndex = 5
+            object pEchoBinary: TPanel
+              Left = 0
+              Top = 0
+              Width = 448
+              Height = 80
+              Align = alClient
+              BevelOuter = bvNone
+              TabOrder = 0
+              object Label7: TLabel
+                Left = 7
+                Top = 5
+                Width = 23
+                Height = 13
+                Caption = 'Size:'
+              end
+              object Label21: TLabel
+                Left = 7
+                Top = 60
+                Width = 438
+                Height = 17
+                Align = alCustom
+                Anchors = [akLeft, akTop, akRight, akBottom]
+                AutoSize = False
+                Caption = 
+                  'This method creates the buffer with the set size and dispatches ' +
+                  'it on a server. The server returns a copy of this buffer'
+                WordWrap = True
+              end
+              object seBinSize: TSpinEdit
+                Left = 75
+                Top = 0
+                Width = 49
+                Height = 22
+                Hint = 'Set buffer size for EchoBinary test'
+                MaxValue = 0
+                MinValue = 0
+                TabOrder = 0
+                Value = 5000
+              end
+            end
+          end
+          object tsGetServerTime: TTabSheet
+            Caption = 'GetServerTime'
+            ImageIndex = 6
+            object pGetServerTime: TPanel
+              Left = 0
+              Top = 0
+              Width = 448
+              Height = 80
+              Align = alClient
+              BevelOuter = bvNone
+              TabOrder = 0
+              object Label22: TLabel
+                Left = 7
+                Top = 0
+                Width = 437
+                Height = 75
+                Align = alCustom
+                Anchors = [akLeft, akTop, akRight, akBottom]
+                AutoSize = False
+                Caption = 'This method returns current time of a server'
+                WordWrap = True
+              end
+            end
+          end
+          object tsCustomClass: TTabSheet
+            Caption = 'CustomClass'
+            ImageIndex = 7
+            object pCustomClass: TPanel
+              Left = 0
+              Top = 0
+              Width = 448
+              Height = 80
+              Align = alClient
+              BevelOuter = bvNone
+              TabOrder = 0
+              object Label23: TLabel
+                Left = 7
+                Top = 60
+                Width = 437
+                Height = 17
+                Align = alCustom
+                Anchors = [akLeft, akTop, akRight, akBottom]
+                AutoSize = False
+                Caption = 'This method returns from a server the object as XML or a stream'
+                WordWrap = True
+              end
+              object rbStream: TRadioButton
+                Left = 7
+                Top = 0
+                Width = 63
+                Height = 17
+                Hint = 'To receive TCustomClass as TStreamtomClass'
+                Caption = 'Stream'
+                Checked = True
+                TabOrder = 0
+                TabStop = True
+              end
+              object rbXML: TRadioButton
+                Left = 7
+                Top = 17
+                Width = 63
+                Height = 17
+                Hint = 'To receive TCustomClass as XML string'
+                Caption = 'XML'
+                TabOrder = 1
+              end
+            end
+          end
+          object tsRaiseError: TTabSheet
+            Caption = 'RaiseError'
+            ImageIndex = 3
+            object pRaiseError: TPanel
+              Left = 0
+              Top = 0
+              Width = 448
+              Height = 80
+              Align = alClient
+              BevelOuter = bvNone
+              TabOrder = 0
+              object Label24: TLabel
+                Left = 7
+                Top = 60
+                Width = 440
+                Height = 52
+                Align = alCustom
+                Anchors = [akLeft, akTop, akRight, akBottom]
+                AutoSize = False
+                Caption = 
+                  'If you run this test within the IDE, you will want to disable br' +
+                  'eak on exceptions. '#13#10#13#10'This test is not suitable for the Stress ' +
+                  'Test.'
+                WordWrap = True
+              end
+              object cbCustomException: TCheckBox
+                Left = 7
+                Top = 0
+                Width = 59
+                Height = 17
+                Hint = 'Set custom error for RaiseError test'
+                Caption = 'Custom'
+                Checked = True
+                State = cbChecked
+                TabOrder = 0
+              end
+            end
+          end
+        end
+      end
+    end
+    object Panel1: TPanel
+      Left = 5
+      Top = 5
+      Width = 676
+      Height = 145
+      Align = alTop
+      BevelOuter = bvNone
+      TabOrder = 0
+      object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+        Left = 46
+        Top = 4
+        Width = 212
+        Height = 48
+        Cursor = crHandPoint
+        ApplicationType = atClient
+      end
+      object GroupBox5: TGroupBox
+        Left = 0
+        Top = 55
+        Width = 112
+        Height = 86
+        Caption = ' Message Type '
+        TabOrder = 0
+        object rbBinary: TRadioButton
+          Left = 5
+          Top = 15
+          Width = 41
+          Height = 17
+          Hint = 'Use TROBINMessage'
+          Caption = 'Bin'
+          Checked = True
+          TabOrder = 0
+          TabStop = True
+          OnClick = rbBinaryClick
+        end
+        object rbSOAP: TRadioButton
+          Left = 5
+          Top = 32
+          Width = 49
+          Height = 17
+          Hint = 'Use TROSOAPMessage'
+          Caption = 'SOAP'
+          TabOrder = 1
+          OnClick = rbSOAPClick
+        end
+        object rbPost: TRadioButton
+          Left = 5
+          Top = 49
+          Width = 49
+          Height = 17
+          Hint = 'Use TROPOSTMessage'
+          Caption = 'Post'
+          TabOrder = 2
+          OnClick = rbPostClick
+        end
+        object rbXmlRpc: TRadioButton
+          Left = 5
+          Top = 66
+          Width = 61
+          Height = 17
+          Caption = 'XmlRpc'
+          TabOrder = 3
+          OnClick = rbXmlRpcClick
+        end
+      end
+      object pgChannels: TPageControl
+        Left = 315
+        Top = 1
+        Width = 359
+        Height = 145
+        ActivePage = tsHttp
+        MultiLine = True
+        RaggedRight = True
+        Style = tsFlatButtons
+        TabOrder = 5
+        OnChange = pgChannelsChange
+        object tsHttp: TTabSheet
+          Caption = 'HTTP'
+          ImageIndex = 1
+          object Label1: TLabel
+            Left = 7
+            Top = 11
+            Width = 25
+            Height = 13
+            Caption = 'URL:'
+          end
+          object cbHTTPURL: TComboBox
+            Left = 65
+            Top = 7
+            Width = 250
+            Height = 21
+            Hint = 'Set url for http channel'
+            ItemHeight = 13
+            TabOrder = 0
+            Text = 'http://127.0.0.1:8099/bin'
+            OnChange = cbHTTPURLChange
+            Items.Strings = (
+              'http://localhost:8099/soap'
+              'http://localhost:8099/bin'
+              'http://localhost/MegaRO/soap'
+              'http://localhost/MegaRO/bin')
+          end
+          object rbIndyHttp: TRadioButton
+            Left = 7
+            Top = 47
+            Width = 80
+            Height = 17
+            Hint = 'Usage TROIndyHttpChannel'
+            Caption = 'Indy'
+            TabOrder = 2
+            OnClick = rbIndyHttpClick
+          end
+          object rbWinInetHttp: TRadioButton
+            Left = 7
+            Top = 31
+            Width = 80
+            Height = 17
+            Hint = 'Usage TROWininetHttpChannel'
+            Caption = 'WinInet'
+            Checked = True
+            TabOrder = 1
+            TabStop = True
+            OnClick = rbIndyHttpClick
+          end
+          object rbSynapseHttp: TRadioButton
+            Left = 7
+            Top = 63
+            Width = 80
+            Height = 17
+            Hint = 'Usage TROSynapseHTTPChannel'
+            Caption = 'Synapse'
+            TabOrder = 3
+            OnClick = rbIndyHttpClick
+          end
+          object cbKeepConnection: TCheckBox
+            Left = 7
+            Top = 80
+            Width = 79
+            Height = 15
+            Hint = 'Enables Keep Connection'
+            Caption = 'Keep-Alive'
+            Checked = True
+            State = cbChecked
+            TabOrder = 4
+          end
+        end
+        object tsTCP: TTabSheet
+          Caption = 'TCP'
+          ImageIndex = 2
+          object Label9: TLabel
+            Left = 7
+            Top = 11
+            Width = 41
+            Height = 13
+            Caption = 'Address:'
+          end
+          object Label10: TLabel
+            Left = 195
+            Top = 9
+            Width = 22
+            Height = 13
+            Caption = 'Port:'
+          end
+          object cbTCPIP: TComboBox
+            Left = 65
+            Top = 7
+            Width = 120
+            Height = 21
+            Hint = 'Set IP for tcp channel'
+            ItemHeight = 0
+            TabOrder = 0
+            Text = '127.0.0.1'
+          end
+          object cbTCPPort: TComboBox
+            Left = 245
+            Top = 5
+            Width = 60
+            Height = 21
+            Hint = 'Set port for tcp channel'
+            ItemHeight = 0
+            TabOrder = 1
+            Text = '8090'
+          end
+          object RbIndyTcp: TRadioButton
+            Left = 7
+            Top = 31
+            Width = 88
+            Height = 17
+            Hint = 'Usage TROIndyTcpChannel'
+            Caption = 'Indy'
+            Checked = True
+            TabOrder = 2
+            TabStop = True
+          end
+          object cbDisableNagle: TCheckBox
+            Left = 7
+            Top = 80
+            Width = 162
+            Height = 17
+            Hint = 'Disable Nagle'
+            Caption = 'Disable &Nagle'
+            TabOrder = 3
+            OnClick = cbDisableNagleClick
+          end
+        end
+        object tsSuperHTTP: TTabSheet
+          Caption = 'SuperHTTP'
+          ImageIndex = 4
+          object Label25: TLabel
+            Left = 7
+            Top = 11
+            Width = 25
+            Height = 13
+            Caption = 'URL:'
+          end
+          object cbSuperHTTPURL: TComboBox
+            Left = 65
+            Top = 7
+            Width = 250
+            Height = 21
+            Hint = 'Set url for super http channel'
+            ItemHeight = 13
+            TabOrder = 0
+            Text = 'http://127.0.0.1:8099/bin'
+            OnChange = cbSuperHTTPURLChange
+            Items.Strings = (
+              'http://localhost:8099/soap'
+              'http://localhost:8099/bin'
+              'http://localhost/MegaRO/soap'
+              'http://localhost/MegaRO/bin')
+          end
+          object rbIndySuperHttp: TRadioButton
+            Left = 7
+            Top = 31
+            Width = 80
+            Height = 17
+            Hint = 'Usage TROIndySuperHttpChannel'
+            Caption = 'Indy'
+            Checked = True
+            TabOrder = 1
+            TabStop = True
+          end
+          object rbSynapseSuperHttp: TRadioButton
+            Left = 7
+            Top = 47
+            Width = 80
+            Height = 17
+            Hint = 'Usage TROSynapseSuperHttpChannel'
+            Caption = 'Synapse'
+            TabOrder = 2
+          end
+        end
+        object tsSuperTCP: TTabSheet
+          Caption = 'SuperTCP'
+          ImageIndex = 3
+          object Label12: TLabel
+            Left = 7
+            Top = 11
+            Width = 41
+            Height = 13
+            Caption = 'Address:'
+          end
+          object Label13: TLabel
+            Left = 195
+            Top = 11
+            Width = 22
+            Height = 13
+            Caption = 'Port:'
+          end
+          object cbSuperTCPPort: TComboBox
+            Left = 245
+            Top = 7
+            Width = 60
+            Height = 21
+            Hint = 'Set port for super tcp channel'
+            ItemHeight = 0
+            TabOrder = 0
+            Text = '8090'
+          end
+          object cbSuperTCPIP: TComboBox
+            Left = 65
+            Top = 7
+            Width = 120
+            Height = 21
+            Hint = 'Set IP for super tcp channel'
+            ItemHeight = 0
+            TabOrder = 1
+            Text = '127.0.0.1'
+          end
+          object rbIndySuperTCP: TRadioButton
+            Left = 7
+            Top = 31
+            Width = 80
+            Height = 17
+            Hint = 'Usage TROSuperTcpChannel'
+            Caption = 'Indy'
+            Checked = True
+            TabOrder = 2
+            TabStop = True
+          end
+          object rbSynapseSuperTCP: TRadioButton
+            Left = 7
+            Top = 47
+            Width = 80
+            Height = 17
+            Hint = 'Usage TROSynapseSuperTcpChannel'
+            Caption = 'Synapse'
+            TabOrder = 3
+          end
+        end
+        object tsWindowsMessage: TTabSheet
+          Caption = 'Windows Message'
+          ImageIndex = 5
+          object Label8: TLabel
+            Left = 7
+            Top = 11
+            Width = 48
+            Height = 13
+            Caption = 'Server ID:'
+          end
+          object eServerID: TEdit
+            Left = 65
+            Top = 7
+            Width = 240
+            Height = 21
+            Hint = 'Set Server ID'
+            TabOrder = 0
+            Text = '{E46A5995-2260-44EA-AC60-121ADB4CC2D0}'
+          end
+        end
+      end
+      object cbUseCompression: TCheckBox
+        Left = 118
+        Top = 60
+        Width = 106
+        Height = 17
+        Hint = 'Allows to use a compression at data transmission'
+        Caption = 'Use &Compression'
+        Checked = True
+        State = cbChecked
+        TabOrder = 1
+      end
+      object cbEncrypt: TCheckBox
+        Left = 118
+        Top = 77
+        Width = 137
+        Height = 17
+        Hint = 'Allows to cipher data by transfer'
+        Caption = 'Encrypt Communication'
+        TabOrder = 2
+        OnClick = cbEncryptClick
+      end
+      object cbAutoDetect: TCheckBox
+        Left = 118
+        Top = 94
+        Width = 198
+        Height = 17
+        Caption = 'Autodetect messagetype (on server)'
+        TabOrder = 3
+        OnClick = cbAutoDetectClick
+      end
+      object cb_UseEnvelopes: TCheckBox
+        Left = 118
+        Top = 111
+        Width = 149
+        Height = 17
+        Caption = 'Use message envelopes'
+        TabOrder = 4
+        OnClick = cb_UseEnvelopesClick
+      end
+    end
+    object PageControl1: TPageControl
+      Left = 5
+      Top = 290
+      Width = 676
+      Height = 137
+      ActivePage = tsLog
+      Align = alClient
+      TabOrder = 2
+      object tsLog: TTabSheet
+        Caption = 'Log'
+        ImageIndex = 1
+        object Memo: TMemo
+          Left = 0
+          Top = 0
+          Width = 668
+          Height = 109
+          Align = alClient
+          Font.Charset = ANSI_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Courier New'
+          Font.Style = []
+          ParentFont = False
+          ScrollBars = ssVertical
+          TabOrder = 0
+        end
+      end
+      object tsSoap: TTabSheet
+        Caption = 'Output'
+        object Splitter1: TSplitter
+          Left = 337
+          Top = 0
+          Height = 109
+        end
+        object Memo1: TMemo
+          Left = 0
+          Top = 0
+          Width = 337
+          Height = 109
+          Align = alLeft
+          ScrollBars = ssVertical
+          TabOrder = 0
+        end
+        object Memo2: TMemo
+          Left = 340
+          Top = 0
+          Width = 328
+          Height = 109
+          Align = alClient
+          ScrollBars = ssVertical
+          TabOrder = 1
+        end
+      end
+    end
+  end
+  object BINMessage: TROBinMessage
+    OnInitializeMessage = BINMessageInitializeMessage
+    OnFinalizeMessage = BINMessageFinalizeMessage
+    OnWriteMessageParameter = BINMessageWriteMessageParameter
+    OnReadMessageParameter = BINMessageReadMessageParameter
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    UseCompression = False
+    Left = 14
+    Top = 5
+  end
+  object SOAPMessage: TROSOAPMessage
+    OnWriteToStream = SOAPMessageWriteToStream
+    OnReadFromStream = SOAPMessageReadFromStream
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    ServerTargetNamespace = 'http://tempuri.org/'
+    SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
+    OnEnvelopeComplete = SOAPMessageEnvelopeComplete
+    Left = 42
+    Top = 5
+  end
+  object WinMessageChannel: TROWinMessageChannel
+    Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Delay = 150
+    DispatchOptions = []
+    ServerLocators = <>
+    Left = 449
+    Top = 344
+  end
+  object WininetHttpChannel: TROWinInetHTTPChannel
+    Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    UserAgent = 'RemObjects SDK'
+    KeepConnection = True
+    TrustInvalidCA = False
+    DispatchOptions = []
+    ServerLocators = <>
+    Left = 380
+    Top = 344
+  end
+  object RemoteService: TRORemoteService
+    ServiceName = 'NewService'
+    Left = 609
+    Top = 339
+  end
+  object PostMessage: TROPostMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    Left = 70
+    Top = 6
+  end
+  object XmlRpcMessage: TROXmlRpcMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    Left = 98
+    Top = 6
+  end
+  object ROAESEncryptionEnvelope: TROAESEncryptionEnvelope
+    EnvelopeMarker = 'AES'
+    BeforeEnvelopeProcessed = ROAESEncryptionEnvelopeBeforeEnvelopeProcessed
+    Password = 'All work and no play makes Jack a dull boy.'
+    Left = 128
+    Top = 8
+  end
+  object ROZeroConfBrowser: TROZeroConfBrowser
+    Active = False
+    ServiceType = '_megademoservice_rosdk._tcp.'
+    OnServiceAdded = ROZeroConfBrowserServiceAdded
+    OnServiceRemoved = ROZeroConfBrowserServiceRemoved
+    Left = 216
+    Top = 344
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClientMain.pas
new file mode 100644
index 0000000..783caa4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoClientMain.pas	
@@ -0,0 +1,1848 @@
+unit MegaDemoClientMain;
+
+{ Activate this define if you are using the demo without having Indy installed.
+
+  Simply click "Ignore" when opening the form to have the Indy components
+  remove, set the define and rebuild the demo. }
+
+{.$DEFINE NO_INDY}
+{.$DEFINE NO_SYNAPSE}
+{$I RemObjects.inc}
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, Spin, ExtCtrls, ComCtrls, SyncObjs, uROClientIntf, TypInfo,
+
+{$IFNDEF NO_INDY}
+  uROIndyTCPChannel, uROIndyHTTPChannel, uROSuperTCPChannel,uROIndySuperHttpChannel,
+{$ENDIF NO_INDY}
+{$IFNDEF NO_SYNAPSE}
+  uROSynapseHttpChannel,uROSynapseSuperTCPChannel, uROSynapseSuperHttpChannel,
+{$ENDIF}
+  uROClient, uROBINMessage, uROWinMessageChannel, uROSOAPMessage,
+  uROWinInetHttpChannel, uROXMLIntf, MegaDemoLibrary_Intf, uROTypes,
+  uRORemoteService, uROPoweredByRemObjectsButton, uROXmlRpcMessage,
+  ImgList, Buttons, uRODynamicRequest, uROPostMessage, CheckLst,
+  uROEncryptionEnvelope, uROZeroConf;
+
+const
+  msgWarningPorts =
+    'Issuing many requests in a short period of time can cause the client PC to run out of ip-port combinations.' + sLineBreak +
+    'Once an ip-port combination has been used, it takes some time (1 to 4 min on Windows) before that combination can be re-used' + sLineBreak + '' + sLineBreak +
+    'Run netstat from command prompt to see how many connections are in TIME_WAIT state.' + sLineBreak + '' + sLineBreak +
+    'If you have long loops (i.e 50 cycles or 5 threads running 10) allow your PC to restore some ports by not' + sLineBreak +
+    'doing anything for a minute or so once the test has completed.' + sLineBreak + '' + sLineBreak +
+    'Do you want to continue?';
+
+type
+  TArrayType = (atInteger, atString, atTPerson);
+
+  TStressMethod = function(aService: IMegaDemoService): integer of object;
+
+  TMegaDemoClientMainForm = class(TForm)
+    BINMessage: TROBINMessage;
+    SOAPMessage: TROSOAPMessage;
+    WinMessageChannel: TROWinMessageChannel;
+    PageControl1: TPageControl;
+    tsSoap: TTabSheet;
+    tsLog: TTabSheet;
+    Memo: TMemo;
+    Memo1: TMemo;
+    Memo2: TMemo;
+    Splitter1: TSplitter;
+    WininetHttpChannel: TROWinInetHTTPChannel;
+    RemoteService: TRORemoteService;
+    Panel3: TPanel;
+    PostMessage: TROPostMessage;
+    Panel4: TPanel;
+    clbTests: TCheckListBox;
+    pagecontrol2: TPageControl;
+    tsStress: TTabSheet;
+    tsSum: TTabSheet;
+    tsEchoPerson: TTabSheet;
+    tsRaiseError: TTabSheet;
+    seA: TSpinEdit;
+    seB: TSpinEdit;
+    Label4: TLabel;
+    seAge: TSpinEdit;
+    cbSex: TComboBox;
+    eLastName: TEdit;
+    eFirstName: TEdit;
+    Label3: TLabel;
+    Label2: TLabel;
+    cbCustomException: TCheckBox;
+    Label5: TLabel;
+    tsTestArrays: TTabSheet;
+    tsEchoBinary: TTabSheet;
+    tsGetServerTime: TTabSheet;
+    tsCustomClass: TTabSheet;
+    Label6: TLabel;
+    seArrayCount: TSpinEdit;
+    rbInteger: TRadioButton;
+    rbString: TRadioButton;
+    rbTPerson: TRadioButton;
+    seBinSize: TSpinEdit;
+    Label7: TLabel;
+    rbStream: TRadioButton;
+    rbXML: TRadioButton;
+    Panel5: TPanel;
+    Panel1: TPanel;
+    GroupBox5: TGroupBox;
+    rbBinary: TRadioButton;
+    rbSOAP: TRadioButton;
+    rbPost: TRadioButton;
+    RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    cbEnableLog: TCheckBox;
+    cbVerbose: TCheckBox;
+    cbWriteTestInfo: TCheckBox;
+    Label11: TLabel;
+    Label16: TLabel;
+    Label17: TLabel;
+    Label18: TLabel;
+    Label19: TLabel;
+    Label20: TLabel;
+    Label21: TLabel;
+    Label22: TLabel;
+    Label23: TLabel;
+    Label24: TLabel;
+    RunTestOnceButton: TButton;
+    RunTestButton: TButton;
+    seRepetitions: TSpinEdit;
+    Label15: TLabel;
+    seThreads: TSpinEdit;
+    Label14: TLabel;
+    pStress: TPanel;
+    pSum: TPanel;
+    pTestArrays: TPanel;
+    pEchoBinary: TPanel;
+    pGetServerTime: TPanel;
+    pCustomClass: TPanel;
+    pRaiseError: TPanel;
+    pPage: TPanel;
+    pEchoPerson: TPanel;
+    rbXmlRpc: TRadioButton;
+    XmlRpcMessage: TROXmlRpcMessage;
+    pgChannels: TPageControl;
+    tsWindowsMessage: TTabSheet;
+    tsHttp: TTabSheet;
+    tsTCP: TTabSheet;
+    tsSuperTCP: TTabSheet;
+    tsSuperHTTP: TTabSheet;
+    Label8: TLabel;
+    eServerID: TEdit;
+    Label1: TLabel;
+    cbHTTPURL: TComboBox;
+    cbTCPIP: TComboBox;
+    Label9: TLabel;
+    Label10: TLabel;
+    cbTCPPort: TComboBox;
+    rbIndyHttp: TRadioButton;
+    rbWinInetHttp: TRadioButton;
+    rbSynapseHttp: TRadioButton;
+    cbKeepConnection: TCheckBox;
+    RbIndyTcp: TRadioButton;
+    cbDisableNagle: TCheckBox;
+    Label12: TLabel;
+    Label13: TLabel;
+    cbSuperTCPPort: TComboBox;
+    cbSuperTCPIP: TComboBox;
+    Label25: TLabel;
+    cbSuperHTTPURL: TComboBox;
+    rbIndySuperTCP: TRadioButton;
+    rbSynapseSuperTCP: TRadioButton;
+    rbIndySuperHttp: TRadioButton;
+    rbSynapseSuperHttp: TRadioButton;
+    cbUseCompression: TCheckBox;
+    cbEncrypt: TCheckBox;
+    cbAutoDetect: TCheckBox;
+    ROAESEncryptionEnvelope: TROAESEncryptionEnvelope;
+    cb_UseEnvelopes: TCheckBox;
+    bClearLog: TButton;
+    ROZeroConfBrowser: TROZeroConfBrowser;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure bTestEchoBinaryClick(Sender: TObject);
+    procedure Image1Click(Sender: TObject);
+    procedure cbEncryptClick(Sender: TObject);
+    procedure rbBinaryClick(Sender: TObject);
+    procedure rbSOAPClick(Sender: TObject);
+    procedure cbDisableNagleClick(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure bbStressCustomClassClick(Sender: TObject);
+    procedure rbPostClick(Sender: TObject);
+    procedure cbHTTPURLChange(Sender: TObject);
+    procedure SOAPMessageWriteToStream(aStream: TStream);
+    procedure SOAPMessageEnvelopeComplete(Sender: TROSOAPMessage);
+    procedure SOAPMessageReadFromStream(aStream: TStream);
+    procedure BINMessageFinalizeMessage(Sender: TROMessage);
+    procedure BINMessageReadMessageParameter(Sender: TROMessage;
+      const aName: string; aTypeInfo: PTypeInfo; const DataRef: Pointer;
+      Attributes: TParamAttributes);
+    procedure BINMessageWriteMessageParameter(Sender: TROMessage;
+      const aName: string; aTypeInfo: PTypeInfo; const DataRef: Pointer;
+      Attributes: TParamAttributes);
+    procedure BINMessageInitializeMessage(Sender: TROMessage;
+      const aTransport: IROTransport; const anInterfaceName,
+      aMessageName: string);
+    procedure clbTestsClick(Sender: TObject);
+    procedure RunTestOnceButtonClick(Sender: TObject);
+    procedure RunTestButtonClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure clbTestsClickCheck(Sender: TObject);
+    procedure rbIndyHttpClick(Sender: TObject);
+    procedure rbXmlRpcClick(Sender: TObject);
+    procedure cbAutoDetectClick(Sender: TObject);
+    procedure cbSuperHTTPURLChange(Sender: TObject);
+    procedure pgChannelsChange(Sender: TObject);
+    procedure cb_UseEnvelopesClick(Sender: TObject);
+    procedure ROAESEncryptionEnvelopeBeforeEnvelopeProcessed(
+      AMessageEnvelope: TROMessageEnvelope; AStream: TStream;
+      aMode: TROMessageEnvelopeMode; AMessage: IROMessage);
+    procedure bClearLogClick(Sender: TObject);
+    procedure ROZeroConfBrowserServiceAdded(Sender: TROZeroConfBrowser;
+      aRecord: TROZeroConfService);
+    procedure ROZeroConfBrowserServiceRemoved(Sender: TROZeroConfBrowser;
+      aRecord: TROZeroConfService);
+  private
+    {$IFNDEF NO_INDY}
+    ROIndyHTTPChannel : TROIndyHTTPChannel;
+    ROIndyTCPChannel : TROIndyTCPChannel;
+    ROIndySuperHttpChannel : TROIndySuperHttpChannel;
+    ROIndySuperTCPChannel : TROSuperTcpChannel;
+    {$ENDIF}
+    {$IFNDEF NO_SYNAPSE}
+    ROSynapseHttpchannel: TROSynapseHTTPChannel;
+    ROSynapseSuperHttpChannel : TROSynapseSuperHttpChannel;
+    ROSynapseSuperTCPChannel : TROSynapseSuperTcpChannel;
+    {$ENDIF}
+    fCritical: TCriticalSection;
+    fThreads: TList;
+    fTerminateTest: boolean;
+    fMessage: TROMessage;
+    fChannel: TROTransportChannel;
+    fMegaTestStart: cardinal;
+    fLogEnabledStatus: boolean;
+
+    function CreateService: IMegaDemoService;
+    procedure ChangeUrl(iTo: string);
+    procedure Log(const aMessage: string; Force: boolean = FALSE);
+
+    procedure NotifyThreadTermination(aThread: TThread);
+    function GetMegaTestRunning: boolean;
+
+    // Methods to invoke the remote service. These are also used by the stress threads later.
+    // They return the time it took to execute
+    function InvokeCustomClass(const aService: IMegaDemoService; UseBinaryStream: boolean): integer;
+    {} function InvokeEchoBinary(const aService: IMegaDemoService; aSize: integer): integer;
+    {} function InvokeEchoPerson(const aService: IMegaDemoService; const aFirstName, aLastName: string; anAge: integer; aSex: TSex): integer;
+    {} function InvokeRaiseError(const aService: IMegaDemoService): integer;
+    {} function InvokeSum(const aService: IMegaDemoService; A, B: integer): integer;
+    {} function InvokeTestArray(const aService: IMegaDemoService; anArrayType: TArrayType; aCount: integer): integer;
+    {} function InvokeGetServerTime(const aService: IMegaDemoService): integer;
+
+    // Logs
+    procedure WriteSequentialStressEnd(TotalTime, Errors: integer);
+
+    procedure WriteSequentialStressStart(TestName: string; const ExtraInfo: string = '');
+
+    procedure WriteTestInfo(ARunOnce: Boolean);
+    function GetRequestsPerSecond(TotalTimeMS: integer): double;
+    procedure Check_ListBoxClick(isAllDemo: Boolean);
+
+    procedure Stress(AMethod: TStressMethod);
+    function RunSum(aService: IMegaDemoService): integer;
+    function RunEchoPerson(aService: IMegaDemoService): integer;
+    function RunRaiseError(aService: IMegaDemoService): integer;
+    function RunTestArrays(aService: IMegaDemoService): integer;
+    function int_RunTestArrays(aService: IMegaDemoService; anArrayType: TArrayType): integer;
+    function RunEchoBinary(aService: IMegaDemoService): integer;
+    function RunServerTime(aService: IMegaDemoService): integer;
+    function RunCustomClass(aService: IMegaDemoService): integer;
+
+    procedure RunAllDemo;
+    procedure StopAllDemo;
+
+    procedure LoadFromIni;
+    procedure SaveToIni;
+
+    // ZeroConf
+    function IsServiceHTTP(aService: TROZeroConfService): boolean;
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+
+    property UserChannel: TROTransportChannel read fChannel;
+    property UserMessage: TROMessage read fMessage;
+    property MegaTestRunning: boolean read GetMegaTestRunning;
+  end;
+
+var
+  MegaDemoClientMainForm: TMegaDemoClientMainForm;
+
+implementation
+
+uses INIFiles, MegaDemoCustomClass, uROXMLSerializer, uROStreamSerializer,
+  ShellAPI, uROEncryption, ActiveX, StrUtils;
+
+{$R *.DFM}
+
+type
+  { TStressThread }
+  TStressThread = class(TThread)
+  private
+    fMessage: TROMessage;
+    fChannel: TROTransportChannel;
+    fErrors,
+      fSumTime,
+      fEchoPersonTime,
+      fRaiseErrorTime,
+      fArrayTime,
+      fEchoBinaryTime,
+      fGetServerTimeTime,
+      fCustomClassTime,
+      fTotalTime: integer;
+    Fidx: integer;
+    procedure BeforeDestroyThread;
+    procedure Run;
+  public
+
+    constructor Create;
+    destructor Destroy; override;
+
+    procedure Execute; override;
+
+    property Errors: integer read fErrors;
+    property EchoPersonTime: integer read fEchoPersonTime;
+    property RaiseErrorTime: integer read fRaiseErrorTime;
+    property ArrayTime: integer read fArrayTime;
+    property EchoBinaryTime: integer read fEchoBinaryTime;
+    property GetServerTimeTime: integer read fGetServerTimeTime;
+    property CustomClassTime: integer read fCustomClassTime;
+    property TotalTime: integer read fTotalTime;
+    property idx: integer read Fidx write Fidx;
+  end;
+
+procedure TMegaDemoClientMainForm.FormCreate(Sender: TObject);
+var
+  sx: TSex;
+begin
+  Caption := Application.Title;
+
+{$IFDEF NO_INDY}
+  rbIndyHttp.Enabled := false;
+  rbIndyTcp.Enabled := false;
+  rbIndySuperTCP.Enabled := false;
+  rbIndySuperHttp.Enabled := false;
+{$ELSE}
+  ROIndyHTTPChannel := TROIndyHTTPChannel.Create(Self);
+  ROIndyHTTPChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+
+  ROIndyTCPChannel := TROIndyTCPChannel.Create(Self);
+  ROIndyTCPChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+
+  ROIndySuperHttpChannel:= TROIndySuperHttpChannel.Create(Self);
+  ROIndySuperHttpChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+
+  ROIndySuperTCPChannel := TROSuperTcpChannel.Create(Self);
+  ROIndySuperTCPChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+{$ENDIF NO_INDY}
+
+{$IFDEF NO_SYNAPSE}
+  rbSynapseHttp.Enabled := false;
+  rbSynapseSuperTCP.Enabled := false;
+  rbSynapseSuperHttp.Enabled := false;
+{$ELSE}
+  ROSynapseHttpchannel := TROSynapseHTTPChannel.Create(self);
+  ROSynapseHttpchannel.Encryption.Assign(WininetHttpChannel.Encryption);
+
+  ROSynapseSuperHttpChannel := TROSynapseSuperHttpChannel.Create(self);
+  ROSynapseSuperHttpChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+
+  ROSynapseSuperTCPChannel := TROSynapseSuperTcpChannel.Create(self);
+  ROSynapseSuperTCPChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+{$ENDIF}
+  LoadFromIni;
+
+  for sx := Low(TSex) to High(TSex) do
+    cbSex.Items.Add(GetEnumName(TypeInfo(TSex), Ord(sx)));
+  cbSex.ItemIndex := 0;
+end;
+
+procedure TMegaDemoClientMainForm.FormDestroy(Sender: TObject);
+begin
+  SaveToIni;
+end;
+
+function TMegaDemoClientMainForm.CreateService: IMegaDemoService;
+begin
+  // Adds the entry if new
+  with cbTCPIP do
+    if (Items.IndexOf(Text) < 0) and (Text <> '') then
+      Items.Add(Text);
+
+  with cbHTTPURL do
+    if (Items.IndexOf(Text) < 0) and (Text <> '') then
+      Items.Add(Text);
+
+  with cbTCPPort do
+    if (Items.IndexOf(Text) < 0) and (Text <> '') then
+      Items.Add(Text);
+
+  with cbSuperHTTPURL do
+    if (Items.IndexOf(Text) < 0) and (Text <> '') then
+      Items.Add(Text);
+
+  with cbSuperTCPIP do
+    if (Items.IndexOf(Text) < 0) and (Text <> '') then
+      Items.Add(Text);
+
+  with cbSuperTCPPort do
+    if (Items.IndexOf(Text) < 0) and (Text <> '') then
+      Items.Add(Text);
+
+
+  { Set up BIN message }
+  BINMessage.UseCompression := cbUseCompression.Checked;
+
+  { Set up Http Channels }
+{$IFNDEF NO_INDY}
+  ROIndyHTTPChannel.TargetURL := cbHTTPURL.Text;
+  ROIndyHTTPChannel.KeepAlive := cbKeepConnection.Checked;
+  ROIndySuperHttpChannel.TargetURL := cbSuperHTTPURL.Text;
+
+  ROIndyTCPChannel.Host := cbTCPIP.Text;
+  ROIndyTCPChannel.Port := StrToInt(cbTCPPort.Text);
+
+  ROIndySuperTCPChannel.Port:= StrToInt(cbSuperTCPPort.Text);
+  ROIndySuperTCPChannel.Host:= cbSuperTCPIP.Text;
+{$ENDIF NO_INDY}
+
+{$IFNDEF NO_SYNAPSE}
+  ROSynapseHttpchannel.TargetURL := cbHTTPURL.Text;
+  ROSynapseHttpchannel.KeepAlive := cbKeepConnection.Checked;
+
+  ROSynapseSuperHttpChannel.TargetURL := cbSuperHTTPURL.Text;
+  ROSynapseSuperTCPChannel.Port:= StrToInt(cbSuperTCPPort.Text);
+  ROSynapseSuperTCPChannel.Host:= cbSuperTCPIP.Text;
+{$ENDIF NO_SYNAPSE}
+
+  WininetHttpChannel.TargetURL := cbHTTPURL.Text;
+  WininetHttpChannel.KeepConnection := cbKeepConnection.Checked;
+
+  { Set up WM Channel }
+  WinMessageChannel.ServerID := LibraryUID;
+
+  { Select message class based on radio button selection }
+  if rbBinary.Checked then
+    fMessage := BINMessage
+  else if rbPost.Checked then
+    fMessage := PostMessage
+  else if rbXMLRpc.Checked then
+    fMessage := XmlRpcMessage
+  else
+    fMessage := SOAPMessage;
+  fChannel := nil;
+  if pgChannels.ActivePage = tsHttp then begin
+    {$IFNDEF NO_INDY}
+    if rbIndyHttp.Checked then
+      fChannel := ROIndyHttpChannel
+    else
+    {$ENDIF NO_INDY}
+    {$IFNDEF NO_SYNAPSE}
+    if rbSynapseHttp.Checked then
+      fChannel := ROSynapseHttpchannel
+    else
+    {$ENDIF NO_INDY}
+      fChannel := WininetHttpChannel;
+  end
+  else if pgChannels.ActivePage = tsTCP then begin
+    {$IFNDEF NO_INDY}
+    fChannel := ROIndyTCPChannel;
+    {$ENDIF NO_INDY}
+  end
+  else if pgChannels.ActivePage = tsSuperHTTP then begin
+    {$IFDEF NO_SYNAPSE}
+      rbIndySuperHttp.Checked:= True;
+    {$ENDIF}
+    {$IFNDEF NO_INDY}
+    if rbIndySuperHttp.Checked then  fChannel := ROIndySuperHttpChannel ;
+    {$ELSE}
+    rbSynapseSuperHttp.Checked := True;
+    {$ENDIF NO_INDY}
+    {$IFNDEF NO_SYNAPSE}
+    if rbSynapseSuperHttp.Checked then fChannel := ROSynapseSuperHttpChannel
+    {$ENDIF NO_INDY}
+  end
+  else if pgChannels.ActivePage = tsSuperTCP then begin
+    {$IFDEF NO_SYNAPSE}
+      rbIndySuperTcp.Checked:= True;
+    {$ENDIF}
+    {$IFNDEF NO_INDY}
+    if rbIndySuperTCP.Checked then fChannel := ROIndySuperTCPChannel;
+    {$ELSE}
+    rbSynapseSuperTCP.Checked := True;
+    {$ENDIF NO_INDY}
+    {$IFNDEF NO_SYNAPSE}
+    if rbSynapseSuperTCP.Checked then fChannel := ROSynapseSuperTCPChannel;
+    {$ENDIF NO_INDY}
+  end
+  else if pgChannels.ActivePage = tsWindowsMessage then begin
+    fChannel := WinMessageChannel;
+  end;
+
+  // Sets up the main components
+  RemoteService.Channel := fChannel;
+  RemoteService.Message := fMessage;
+
+  result := RemoteService as IMegaDemoService;
+end;
+
+function TMegaDemoClientMainForm.InvokeSum(const aService: IMegaDemoService; A, B: integer):
+  integer;
+var
+  res: integer;
+  start: cardinal;
+begin
+  start := GetTickCount;
+  res := aService.Sum(seA.Value, seB.Value);
+  result := GetTickCount - start;
+  Log('Sum');
+  Log('---');
+  Log(Format('outgoing:'#9'A=%d B=%d', [seA.Value, seB.Value]));
+  Log(Format('incoming:'#9'Result=%d', [res]));
+  Log('');
+end;
+
+function TMegaDemoClientMainForm.InvokeEchoPerson(const aService: IMegaDemoService;
+  const aFirstName, aLastName: string; anAge: integer; aSex: TSex): integer;
+var
+  outgoing, incoming: TPerson;
+  start: cardinal;
+begin
+  outgoing := TPerson.Create;
+  outgoing.FirstName := AnsiString(eFirstName.Text);
+  outgoing.LastName := AnsiString(eLastName.Text);
+  outgoing.Age := seAge.Value;
+  outgoing.Sex := TSex(cbSex.ItemIndex);
+
+  try
+    start := GetTickCount;
+    aService.EchoPerson(outgoing, incoming);
+    result := GetTickCount - start;
+
+    Log('EchoPerson');
+    Log('----------');
+    with outgoing do
+      Log(Format('%s:'#9'%s, %s, %s, %s', ['outgoing', FirstName, LastName, IntToStr(Age), GetEnumName(TypeInfo(TSex), Ord(Sex))]));
+    with incoming do
+      Log(Format('%s:'#9'%s, %s, %s, %s', ['incoming', FirstName, LastName, IntToStr(Age), GetEnumName(TypeInfo(TSex), Ord(Sex))]));
+
+    Log('');
+
+  finally
+    incoming.Free;
+    outgoing.Free;
+  end;
+end;
+
+function TMegaDemoClientMainForm.InvokeRaiseError(const aService: IMegaDemoService): integer;
+var
+  start: cardinal;
+begin
+  Result := 0;
+  start := GetTickCount;
+  Log('RaiseError');
+  Log('----------');
+  try
+    try
+      if not cbCustomException.Checked then
+        aService.RaiseError()
+      else
+        aService.RaiseTestException;
+    finally
+      result := GetTickCount - start;
+    end;
+  except
+    on E: ETestException do
+      if rbXmlRpc.Checked then
+        Log(Format(
+          'ETestException' + sLineBreak +
+          'Message:'#9'%s',
+          [E.Message]), true)
+      else
+        Log(Format(
+          'ETestException' + sLineBreak +
+          'Message:'#9'%s' + sLineBreak +
+          'ErrorCode:'#9'%d' + sLineBreak +
+          'AdditionalInfo:'#9'%s',
+          [E.Message, E.ErrorCode, E.AdditionalInfo]), true);
+    on E: Exception do
+      Log(
+        'Generic exception:'#9 + E.ClassName + sLineBreak +
+        'Message:'#9#9 + E.Message, true);
+  end;
+  Log('');
+end;
+
+function TMegaDemoClientMainForm.InvokeTestArray(const aService: IMegaDemoService;
+  anArrayType: TArrayType; aCount: integer): integer;
+var
+  i: integer;
+  iarr, iarr2: TIntegerArray;
+  sarr, sarr2: TStringArray;
+  parr, parr2: TPersonArray;
+  s, s1: string;
+  err: boolean;
+  start: cardinal;
+begin
+  Result := 0;
+  s := '';
+  err := FALSE;
+
+  iarr := nil;
+  iarr2 := nil;
+  sarr := nil;
+  sarr2 := nil;
+  parr := nil;
+  parr2 := nil;
+
+  try
+    case anArrayType of
+      atInteger: try
+          s1 := rbInteger.Caption;
+          Randomize;
+          iarr := TIntegerArray.Create;
+          iarr.Resize(seArrayCount.Value);
+          for i := 0 to (seArrayCount.Value - 1) do
+            iarr[i] := Random(100);
+
+          start := GetTickCount;
+          iarr2 := aService.TestIntegerArray(iarr);
+          result := GetTickCount - start;
+
+          for i := 0 to (seArrayCount.Value - 1) do begin
+            s := s + Format('%d:'#9'%d - %d', [i, iarr[i], iarr2[i]]) + sLineBreak;
+            if (iarr2[i] <> iarr[i]) then begin
+              err := TRUE;
+              Exit;
+            end;
+          end;
+        finally
+          iarr.Free;
+          iarr2.Free;
+        end;
+
+      atString: try
+          s1 := rbString.Caption;
+          Randomize;
+          sarr := TStringArray.Create;
+          sarr.Resize(seArrayCount.Value);
+
+          for i := 0 to (seArrayCount.Value - 1) do begin
+            sarr[i] := 'Value is ' + Ansistring(IntToStr(Random(1000) + 1000));
+          end;
+
+          start := GetTickCount;
+          sarr2 := aService.TestStringArray(sarr);
+          result := GetTickCount - start;
+
+          for i := 0 to (seArrayCount.Value - 1) do begin
+            s := s + Format('%d:'#9'"%s" - "%s"', [i, sarr[i], sarr2[i]]) + sLineBreak;
+            if (sarr2[i] <> sarr[i]) then begin
+              err := TRUE;
+              Exit;
+            end;
+          end;
+        finally
+          sarr.Free;
+          sarr2.Free;
+        end;
+
+      atTPerson: try
+          s1 := rbTPerson.Caption;
+          parr := TPersonArray.Create;
+          parr.Resize(seArrayCount.Value);
+
+          for i := 0 to (seArrayCount.Value - 1) do begin
+            parr[i] := TPerson.Create;
+            with parr[i] do begin
+              FirstName := AnsiString(eFirstName.Text);
+              LastName := AnsiString(eLastName.Text);
+              Age := seAge.Value;
+              Sex := TSex(cbSex.ItemIndex);
+            end;
+          end;
+
+          start := GetTickCount;
+          parr2 := aService.TestPersonArray(parr);
+          result := GetTickCount - start;
+
+          for i := 0 to (seArrayCount.Value - 1) do begin
+            s := s + Format('%d:'#9'%s %s %d %d - %s %s %d %d', [
+              i,
+                parr[i].FirstName, parr[i].LastName, parr[i].Age,
+                Ord(parr[i].Sex),
+                parr2[i].FirstName, parr2[i].LastName, parr2[i].Age,
+                Ord(parr2[i].Sex)]) + sLineBreak;
+
+            if (parr2[i].FirstName <> parr[i].FirstName) or
+              (parr2[i].LastName <> parr[i].LastName) or
+              (parr2[i].Age <> parr[i].Age) or
+              (parr2[i].Sex <> parr[i].Sex) then begin
+              err := TRUE;
+              Exit;
+            end;
+          end;
+        finally
+          parr.Free;
+          parr2.Free;
+        end;
+    end;
+  finally
+    if err then
+      s := 'Arrays are DIFFERENT!' + sLineBreak + s
+    else
+      s := sLineBreak + 'Arrays equal!' + sLineBreak + s;
+    Log('TestArray');
+    Log('---------');
+    Log('Mode:'#9 + s1);
+    Log(s);
+  end;
+end;
+
+function TMegaDemoClientMainForm.IsServiceHTTP(
+  aService: TROZeroConfService): boolean;
+begin
+  Result := AnsiContainsText(aService.TextRecord, 'channel=http');
+end;
+
+function TMegaDemoClientMainForm.InvokeEchoBinary(const aService: IMegaDemoService; aSize:
+  integer): integer;
+var
+  binin, binout: Binary;
+  i: integer;
+  b: byte;
+  start: cardinal;
+begin
+  Randomize;
+  binin := Binary.Create;
+  binout := nil;
+
+  try
+    binin.SetSize(seBinSize.Value);
+    binin.Position := 0;
+    for i := 1 to seBinSize.Value do begin
+      b := Random($FF);
+      binin.Write(b, SizeOf(b));
+    end;
+
+    binin.Position := 0;
+
+    start := GetTickCount;
+    aService.EchoBinary(binin, binout);
+    result := GetTickCount - start;
+
+    Log('EchoBinary');
+    Log('-------------');
+
+    Log('outgoing:'#9 + IntToStr(binin.Size) + ' bytes');
+    Log('incoming:'#9 + IntToStr(binout.Size) + ' bytes');
+
+    if (binin.Size = binout.Size) then begin
+      if CompareMem(binin.Memory, binout.Memory, binout.Size) then
+        Log('Data is equivalent!')
+      else
+        Log('Data is different!');
+    end
+    else begin
+      Log('Different size!');
+    end;
+    Log('');
+  finally
+    binin.Free;
+    binout.Free;
+  end;
+end;
+
+function TMegaDemoClientMainForm.InvokeCustomClass(const aService: IMegaDemoService;
+  UseBinaryStream: boolean): integer;
+var
+  cls: TCustomClass;
+  stream: Binary;
+  xml: string;
+  start: cardinal;
+begin
+  stream := nil;
+  cls := nil;
+  try
+    if not UseBinaryStream then begin
+      start := GetTickCount;
+      xml := string(aService.CustomObjectAsString);
+      result := GetTickCount - start;
+      cls := XMLToObject(xml) as TCustomClass;
+    end
+    else begin
+      start := GetTickCount;
+      stream := aService.CustomObjectAsStream;
+      result := GetTickCount - start;
+      cls := StreamToObject(stream) as TCustomClass;
+    end;
+    Log('CustomClass');
+    Log('-----------');
+    Log('incoming:');
+    // incoming data
+    with cls do begin
+      Log('Random integer:'#9#9 + intToStr(RandomInt));
+      Log('Random double:'#9#9 + FloatToStr(RandomDouble));
+      Log('Random string:'#9#9 + string(RandomStr));
+      Log('Random widestring:'#9 + RandomWideStr);
+    end;
+  finally
+    stream.Free;
+    cls.Free;
+  end;
+end;
+
+function TMegaDemoClientMainForm.InvokeGetServerTime(const aService: IMegaDemoService): integer;
+var
+  start: cardinal;
+  restime: TDateTime;
+begin
+  start := GetTickCount;
+  restime := aService.GetServerTime;
+  result := GetTickCount - start;
+  Log('GetServerTime');
+  Log('------------------');
+  Log('incoming:'#9 + DateTimeToStr(restime));
+  Log('');
+end;
+
+procedure TMegaDemoClientMainForm.bTestEchoBinaryClick(Sender: TObject);
+begin
+  InvokeEchoBinary(CreateService, seBinSize.Value);
+end;
+
+procedure TMegaDemoClientMainForm.Image1Click(Sender: TObject);
+begin
+  ShellExecute(Handle, 'open', 'http://www.remobjects.com', nil, nil, SW_SHOWNORMAL);
+end;
+
+procedure TMegaDemoClientMainForm.cbEncryptClick(Sender: TObject);
+var
+  lEncryption: TROEncryptionMethod;
+begin
+  if cbEncrypt.Checked then
+    lEncryption := tetDES
+  else
+    lEncryption := tetNone;
+
+  WininetHttpChannel.Encryption.EncryptionMethod := lEncryption;
+
+{$IFNDEF NO_INDY}
+  ROIndyHttpChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+  ROIndyTcpChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+  ROIndySuperHttpChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+  ROIndySuperTCPChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+
+{$ENDIF NO_INDY}
+{$IFNDEF NO_SYNAPSE}
+  ROSynapseHttpchannel.Encryption.Assign(WininetHttpChannel.Encryption);
+  ROSynapseSuperHttpChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+  ROSynapseSuperTCPChannel.Encryption.Assign(WininetHttpChannel.Encryption);
+
+{$ENDIF}
+
+  WinMessageChannel.Encryption.EncryptionMethod := lEncryption;
+end;
+
+procedure TMegaDemoClientMainForm.ChangeUrl(iTo: string);
+begin
+  { lame, but works }
+  if cbAutoDetect.Checked then iTo:='';
+  cbHTTPURL.Text := StringReplace(cbHTTPURL.Text, '/bin', '/' + iTo, [rfReplaceAll, rfIgnoreCase]);
+  cbHTTPURL.Text := StringReplace(cbHTTPURL.Text, '/soap', '/' + iTo, [rfReplaceAll, rfIgnoreCase]);
+  cbHTTPURL.Text := StringReplace(cbHTTPURL.Text, '/post', '/' + iTo, [rfReplaceAll, rfIgnoreCase]);
+  cbHTTPURL.Text := StringReplace(cbHTTPURL.Text, '/xmlrpc', '/' + iTo, [rfReplaceAll, rfIgnoreCase]);
+
+  if not cbAutoDetect.Checked and (Pos(iTo, cbHTTPURL.Text) = 0) then
+     cbHTTPURL.Text:=cbHTTPURL.Text+iTo;
+
+  cbSuperHTTPUrl.Text := StringReplace(cbSuperHTTPUrl.Text, '/bin', '/' + iTo, [rfReplaceAll, rfIgnoreCase]);
+  cbSuperHTTPUrl.Text := StringReplace(cbSuperHTTPUrl.Text, '/soap', '/' + iTo, [rfReplaceAll, rfIgnoreCase]);
+  cbSuperHTTPUrl.Text := StringReplace(cbSuperHTTPUrl.Text, '/post', '/' + iTo, [rfReplaceAll, rfIgnoreCase]);
+  cbSuperHTTPUrl.Text := StringReplace(cbSuperHTTPUrl.Text, '/xmlrpc', '/' + iTo, [rfReplaceAll, rfIgnoreCase]);
+
+  if not cbAutoDetect.Checked and (Pos(iTo, cbSuperHTTPUrl.Text) = 0) then
+     cbSuperHTTPUrl.Text:=cbSuperHTTPUrl.Text+iTo;
+
+
+  cbUseCompression.Enabled := rbBinary.Checked;
+  cbVerbose.Enabled := rbBinary.Checked;
+
+  tsSoap.TabVisible := rbSOAP.Checked;
+  if not tsSoap.TabVisible then tsLog.PageControl.ActivePage := tsLog;
+end;
+
+procedure TMegaDemoClientMainForm.rbBinaryClick(Sender: TObject);
+begin
+  ChangeUrl('bin');
+end;
+
+procedure TMegaDemoClientMainForm.rbSOAPClick(Sender: TObject);
+begin
+  ChangeUrl('soap');
+end;
+
+procedure TMegaDemoClientMainForm.rbPostClick(Sender: TObject);
+begin
+  ChangeUrl('post');
+end;
+
+procedure TMegaDemoClientMainForm.cbDisableNagleClick(Sender: TObject);
+begin
+{$IFNDEF NO_INDY}
+  ROIndyTCPChannel.DisableNagle := cbDisableNagle.Checked;
+{$ENDIF}  
+end;
+
+function TMegaDemoClientMainForm.GetRequestsPerSecond(TotalTimeMS: integer): double;
+begin
+  if TotalTimeMS > 0 then
+    result := (seRepetitions.Value) / (TotalTimeMS / 1000)
+  else
+    result := seRepetitions.Value;
+end;
+
+procedure TMegaDemoClientMainForm.NotifyThreadTermination(aThread: TThread);
+var
+  totaltimemega, idx: integer;
+  overallrsec: double;
+begin
+  fCritical.Enter;
+  try
+    idx := TStressThread(aThread).idx;
+
+    Log(Format('Thread %d has terminated. %dms. %f Req/Sec. %d Errors', [idx, TStressThread(aThread).TotalTime, GetRequestsPerSecond(TStressThread(aThread).TotalTime), TStressThread(aThread).Errors]), TRUE);
+
+    fThreads.Remove(aThread);
+
+    if fThreads.Count = 0 then begin
+      Screen.Cursor := crDefault;
+
+      totaltimemega := GetTickCount - fMegaTestStart;
+      overallrsec := (seThreads.Value * seRepetitions.Value) / (totaltimemega / 1000);
+
+      Log(Format('The test was completed in %dms. %f Total req/second', [totaltimemega, overallrsec]), TRUE);
+      Caption := Application.Title;
+    end
+    else begin
+      Caption := Application.Title + Format(' (%d threads running)', [fThreads.Count]);
+    end;
+
+    Application.ProcessMessages;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+constructor TMegaDemoClientMainForm.Create(aOwner: TComponent);
+begin
+  inherited;
+  fCritical := TCriticalSection.Create;
+  fThreads := TList.Create;
+  ROZeroConfBrowser.Active := true;
+end;
+
+destructor TMegaDemoClientMainForm.Destroy;
+begin
+  fCritical.Free;
+  fThreads.Free;
+  inherited;
+end;
+
+procedure TMegaDemoClientMainForm.FormCloseQuery(Sender: TObject;
+  var CanClose: Boolean);
+begin
+  CanClose := not MegaTestRunning;
+
+  if not CanClose then begin
+    if (MessageDlg('Do you want to stop the mega test?', mtWarning, [mbYes, mbNo], 0) = mrYes) then
+      StopAllDemo
+    else
+      Exit;
+
+    while MegaTestRunning do
+      Application.ProcessMessages;
+
+    CanClose := TRUE;
+  end;
+end;
+
+function TMegaDemoClientMainForm.GetMegaTestRunning: boolean;
+begin
+  result := fThreads.Count > 0
+end;
+
+procedure TMegaDemoClientMainForm.WriteTestInfo(ARunOnce: Boolean);
+begin
+  if not cbWriteTestInfo.Checked then Exit;
+
+  Log('', TRUE);
+  Log('------------------ Test Parameters ------------------', TRUE);
+  Log('Channel:'#9 + UserChannel.ClassName, True);
+  if pgChannels.ActivePage = tsHttp then begin
+    Log('URL:'#9#9 + cbHTTPURL.Text, True);
+    Log('KeepConnection:'#9 + BoolToStr(cbKeepConnection.Checked, TRUE), True);
+  end
+  else if pgChannels.ActivePage = tsSuperHTTP then begin
+    Log('URL:'#9#9 + cbSuperHTTPURL.Text, True);
+  end
+  else if pgChannels.ActivePage = tsTCP then begin
+    Log('IP, port:'#9 + cbTCPIP.Text + ':' + cbTCPPort.Text, True);
+    LOG('DisableNagle:'#9 + BoolToStr(cbDisableNagle.Checked, TRUE), True);
+  end
+  else if pgChannels.ActivePage = tsSuperTCP then begin
+    Log('IP, port:'#9 + cbSuperTCPIP.Text + ':' + cbSuperTCPPort.Text, True);
+  end
+   else if pgChannels.ActivePage = tsWindowsMessage then begin
+     Log('Server ID:'#9 + eServerID.Text, True);
+  end;
+
+  Log('Message:'#9 + UserMessage.ClassName, True);
+  Log('Encrypt:'#9 + BoolToStr(cbEncrypt.Checked, TRUE), True);
+  if rbBinary.Checked then begin
+    Log('Compression:'#9 + BoolToStr(cbUseCompression.Checked, TRUE), True);
+  end;
+  if not ARunOnce then begin
+    Log(Format('Threads:'#9'%d', [seThreads.Value]), TRUE);
+    Log(Format('Repetitions:'#9'%d', [seRepetitions.Value]), TRUE);
+    Log(format('Total Requests:'#9'%d', [seThreads.Value * seRepetitions.Value]), TRUE);
+  end;
+  Log('-----------------------------------------------------', TRUE);
+  Log('', TRUE);
+end;
+
+procedure TMegaDemoClientMainForm.WriteSequentialStressStart(TestName: string; const ExtraInfo: string);
+begin
+  WriteTestInfo(False);
+  Log(Format('Starting %s test. %d repetitions %s', [testname, seRepetitions.Value, ExtraInfo]), TRUE);
+  fLogEnabledStatus := cbEnableLog.Checked;
+  cbEnableLog.Checked := FALSE;
+end;
+
+procedure TMegaDemoClientMainForm.WriteSequentialStressEnd(TotalTime, Errors: integer);
+var
+  reqsecond: double;
+begin
+  reqsecond := GetRequestsPerSecond(TotalTime);
+  Log(Format('Test complete. %dms. %f Req/Second. %d Errors', [TotalTime, reqsecond, Errors]), TRUE);
+  cbEnableLog.Checked := fLogEnabledStatus;
+end;
+
+procedure TMegaDemoClientMainForm.bbStressCustomClassClick(Sender: TObject);
+begin
+
+end;
+
+{ TStressThread }
+
+procedure TStressThread.BeforeDestroyThread;
+begin
+  MegaDemoClientMainForm.NotifyThreadTermination(Self);
+end;
+
+constructor TStressThread.Create;
+begin
+  inherited Create(TRUE);
+  FreeOnTerminate := TRUE;
+end;
+
+destructor TStressThread.Destroy;
+begin
+//  Synchronize(BeforeDestroyThread);
+  inherited;
+end;
+
+procedure TStressThread.Execute;
+begin
+  Synchronize(Run);
+end;
+
+procedure TStressThread.Run;
+var
+  svc: IMegaDemoService;
+  maxcount: integer;
+  i: integer;
+begin
+
+  // Makes internal copies of the channel and the message
+  fMessage := CloneObject(MegaDemoClientMainForm.UserMessage) as TROMessage;
+  fChannel := CloneObject(MegaDemoClientMainForm.UserChannel) as TROTransportChannel;
+  try
+    svc := CoMegaDemoService.Create(fMessage, fChannel);
+    maxcount := MegaDemoClientMainForm.seRepetitions.Value - 1;
+    fTotalTime := 0;
+
+    with MegaDemoClientMainForm do try
+      if clbTests.Checked[1] then begin
+        for i := 0 to (maxcount - 1) do try
+          Inc(fSumTime, RunSum(svc));
+        except
+          Inc(fErrors);
+        end;
+        if Terminated then Exit;
+      end;
+
+      if clbTests.Checked[2] then begin
+        for i := 0 to (maxcount - 1) do try
+          Inc(fEchoPersonTime, RunEchoPerson(svc));
+        except
+          Inc(fErrors);
+        end;
+
+        if Terminated then Exit;
+      end;
+
+      if clbTests.Checked[3] then begin
+        for i := 0 to (maxcount - 1) do try
+          Inc(fArrayTime, int_RunTestArrays(svc, atInteger))
+        except
+          Inc(fErrors);
+        end;
+        if Terminated then Exit;
+
+        for i := 0 to (maxcount - 1) do try
+          Inc(fArrayTime, int_RunTestArrays(svc, atString))
+        except
+          Inc(fErrors);
+        end;
+        if Terminated then
+          Exit;
+
+        for i := 0 to (maxcount - 1) do try
+          Inc(fArrayTime, int_RunTestArrays(svc, atTPerson))
+        except
+          Inc(fErrors);
+        end;
+        if Terminated then Exit;
+      end;
+
+      if clbTests.Checked[4] then begin
+        for i := 0 to (maxcount - 1) do try
+          Inc(fEchoBinaryTime, RunEchoBinary(svc));
+        except
+          Inc(fErrors);
+        end;
+        if Terminated then Exit;
+      end;
+
+      if clbTests.Checked[5] then begin
+        for i := 0 to (maxcount - 1) do try
+          Inc(fGetServerTimeTime, RunServerTime(svc));
+        except
+          Inc(fErrors);
+        end;
+        if Terminated then Exit;
+      end;
+
+      if clbTests.Checked[6] then begin
+        for i := 0 to (maxcount - 1) do try
+          Inc(fCustomClassTime, RunCustomClass(svc));
+        except
+          Inc(fErrors);
+        end;
+
+        if Terminated then Exit;
+      end;
+      {
+            if clbTests.Checked[7] then begin
+              for i := 0 to (maxcount - 1) do try
+                Inc(fRaiseErrorTime, RunRaiseError(svc));
+              except
+                //Inc(fErrors);
+              end;
+              if Terminated then Exit;
+            end;
+      }
+
+    finally
+      fTotalTime := fSumTime +
+        fEchoPersonTime +
+        fArrayTime +
+        fEchoBinaryTime +
+        fGetServerTimeTime +
+        fCustomClassTime
+        //       + fRaiseErrorTime +
+      ;
+      Terminate;
+    end;
+  finally
+    fChannel.Free;
+    fMessage.Free;
+  BeforeDestroyThread;
+
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.cbHTTPURLChange(Sender: TObject);
+var
+  s: string;
+begin
+  s:= cbHTTPURL.Text;
+  if Pos('/bin', s) > 0 then
+    rbBinary.Checked := true
+  else if Pos('/soap', s) > 0 then
+    rbSoap.Checked := true
+  else if Pos('/post', s) > 0 then
+    rbPost.Checked := true
+  else if Pos('/xmlrpc', s) > 0 then
+    rbXmlRpc.Checked := true;
+  cbUseCompression.Enabled := rbBinary.Checked;
+end;
+
+procedure TMegaDemoClientMainForm.SOAPMessageWriteToStream(aStream: TStream);
+begin
+  //  memo1.Lines.LoadFromStream(aStream);
+end;
+
+procedure TMegaDemoClientMainForm.SOAPMessageEnvelopeComplete(Sender: TROSOAPMessage);
+begin
+  sender.HeaderNode.Add('Test').Value := '1234';
+  if cbEnableLog.Checked then
+    memo1.Lines.Text := Sender.EnvelopeNode.XML;
+end;
+
+procedure TMegaDemoClientMainForm.SOAPMessageReadFromStream(aStream: TStream);
+begin
+  if cbEnableLog.Checked then Memo2.Lines.LoadFromStream(aStream);
+end;
+
+procedure TMegaDemoClientMainForm.BINMessageFinalizeMessage(Sender: TROMessage);
+begin
+  if cbVerbose.Checked then Log(Sender.Name + ' is finalized');
+end;
+
+procedure TMegaDemoClientMainForm.BINMessageReadMessageParameter(Sender: TROMessage;
+  const aName: string; aTypeInfo: PTypeInfo; const DataRef: Pointer;
+  Attributes: TParamAttributes);
+begin
+  if cbVerbose.Checked then begin
+    Log(Sender.Name + ' is reading ' + aName);
+    Log('');
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.BINMessageWriteMessageParameter(Sender: TROMessage;
+  const aName: string; aTypeInfo: PTypeInfo; const DataRef: Pointer;
+  Attributes: TParamAttributes);
+begin
+  if cbVerbose.Checked then Log(Sender.Name + ' is writing ' + aName);
+end;
+
+procedure TMegaDemoClientMainForm.BINMessageInitializeMessage(Sender: TROMessage;
+  const aTransport: IROTransport; const anInterfaceName,
+  aMessageName: string);
+begin
+  if cbVerbose.Checked then Log(Sender.Name + ' is initialized');
+end;
+
+function TMegaDemoClientMainForm.RunSum(aService: IMegaDemoService): integer;
+begin
+  Result := InvokeSum(aService, seA.Value, seB.Value);
+end;
+
+function TMegaDemoClientMainForm.RunEchoPerson(aService: IMegaDemoService): integer;
+begin
+  Result := InvokeEchoPerson(
+    aService,
+    eFirstName.Text,
+    eLastName.Text,
+    seAge.Value,
+    TSex(cbSex.ItemIndex));
+end;
+
+function TMegaDemoClientMainForm.RunRaiseError(aService: IMegaDemoService): integer;
+begin
+  Result := InvokeRaiseError(aService);
+end;
+
+procedure TMegaDemoClientMainForm.Stress(AMethod: TStressMethod);
+var
+  tot, errors, i: integer;
+  svc: IMegaDemoService;
+begin
+  tot := 0;
+  errors := 0;
+  svc := CreateService;
+  WriteSequentialStressStart(clbTests.Items[clbTests.ItemIndex]);
+  for i := 1 to (seRepetitions.Value) do try
+    Inc(tot, AMethod(svc));
+    if (i mod 10 = 0) then Application.ProcessMessages;
+    if fTerminateTest then Break;
+  except
+    Inc(errors);
+  end;
+  WriteSequentialStressEnd(tot, errors);
+end;
+
+function TMegaDemoClientMainForm.RunTestArrays(aService: IMegaDemoService): integer;
+begin
+  Result := 0;
+  if rbInteger.Checked then
+    Result := int_RunTestArrays(aService, atInteger)
+  else if rbString.Checked then
+    Result := int_RunTestArrays(aService, atString)
+  else if rbTPerson.Checked then
+    Result := int_RunTestArrays(aService, atTPerson);
+end;
+
+function TMegaDemoClientMainForm.RunEchoBinary(aService: IMegaDemoService): integer;
+begin
+  Result := InvokeEchoBinary(aService, seBinSize.Value);
+end;
+
+function TMegaDemoClientMainForm.RunServerTime(aService: IMegaDemoService): integer;
+begin
+  Result := InvokeGetServerTime(aService);
+end;
+
+function TMegaDemoClientMainForm.RunCustomClass(aService: IMegaDemoService): integer;
+begin
+  Result := InvokeCustomClass(aService, rbStream.Checked);
+end;
+
+procedure TMegaDemoClientMainForm.clbTestsClick(Sender: TObject);
+
+  procedure HidePanels;
+  begin
+    pStress.Visible := False;
+    pSum.Visible := False;
+    pEchoPerson.Visible := False;
+    pTestArrays.Visible := False;
+    pEchoBinary.Visible := False;
+    pGetServerTime.Visible := False;
+    pCustomClass.Visible := False;
+    pRaiseError.Visible := False;
+  end;
+
+var
+  t_panel: TPanel;
+begin
+  HidePanels;
+  case clbTests.ItemIndex of
+    1: t_panel := pSum;
+    2: t_panel := pEchoPerson;
+    3: t_panel := pTestArrays;
+    4: t_panel := pEchoBinary;
+    5: t_panel := pGetServerTime;
+    6: t_panel := pCustomClass;
+    7: t_panel := pRaiseError;
+  else
+    t_panel := pStress;
+  end;
+  t_panel.Parent := pPage;
+  t_panel.Visible := True;
+
+  if clbTests.ItemIndex = 0 then begin
+    RunTestOnceButton.Caption := 'Run Stress Test';
+    RunTestButton.Caption := 'Stop Stress Test';
+    RunTestOnceButton.Hint := 'Run Stress Test';
+    RunTestButton.Hint := 'Stop Stress Test';
+  end
+  else begin
+    RunTestOnceButton.Caption := 'Run Test once';
+    RunTestButton.Caption := 'Run Test';
+    RunTestOnceButton.Hint := 'Starts the chosen test once';
+    RunTestButton.Hint := 'Starts the chosen test some times';
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.RunTestOnceButtonClick(Sender: TObject);
+var
+  serv: IMegaDemoService;
+  s: string;
+begin
+  s := '';
+  if clbTests.ItemIndex > 0 then begin
+    clbTests.Checked[clbTests.ItemIndex] := True;
+    serv := CreateService;
+    WriteTestInfo(True);
+    Screen.Cursor := crHourGlass;
+  end;
+  try
+    try
+    case clbTests.ItemIndex of
+      0: RunAllDemo;
+      1: begin
+          RunSum(serv);
+          s := 'Sum';
+        end;
+      2: begin
+          RunEchoPerson(serv);
+          s := 'EchoPerson';
+        end;
+      3: begin
+          RunTestArrays(serv);
+          s := 'TestArrays';
+        end;
+      4: begin
+          RunEchoBinary(serv);
+          s := 'EchoBinary';
+        end;
+      5: begin
+          RunServerTime(serv);
+          s := 'ServerTime';
+        end;
+      6: begin
+          RunCustomClass(serv);
+          s := 'CustomClass';
+        end;
+      7: begin
+          RunRaiseError(serv);
+          S := 'RaiseError';
+        end;
+    end;
+    finally
+      {$IFNDEF NO_INDY}
+        if fChannel = ROIndySuperHttpChannel then ROIndySuperHttpChannel.Active:=False;
+        if fChannel = ROIndySuperTCPChannel then ROIndySuperTCPChannel.Active:=False;
+      {$ENDIF}
+      {$IFNDEF NO_SYNAPSE}
+        if fChannel = ROSynapseSuperHttpChannel then ROSynapseSuperHttpChannel.Active:=False;
+        if fChannel = ROSynapseSuperTCPChannel then ROSynapseSuperTCPChannel.Active:=False;
+      {$ENDIF}
+    end;
+  finally
+    if clbTests.ItemIndex > 0 then Screen.Cursor := crDefault;
+  end;
+  if (s <> '') and not cbEnableLog.Checked then Log(s + ':'#9'Done', True);
+end;
+
+procedure TMegaDemoClientMainForm.RunAllDemo;
+var
+  i: integer;
+  trd: TStressThread;
+begin
+  Beep;
+  if (
+    (seRepetitions.Value > 10) and
+    (MessageDlg(msgWarningPorts, mtWarning, [mbOK, mbCancel], 0) <> mrOK)
+    ) then
+    Exit;
+
+  Screen.Cursor := crHourGlass;
+  cbEnableLog.Checked := FALSE;
+  fTerminateTest := FALSE;
+  MegaDemoClientMainForm.CreateService;
+  // Makes sure UserChannel and UserMessage are set. The threads will reference them in their constructor
+  WriteTestInfo(False);
+  try
+    Log(Format('Sum test:'#9#9 + '%s', [BoolToStr(clbTests.Checked[1], TRUE)]), TRUE);
+    Log(Format('EchoPerson test:'#9 + '%s', [BoolToStr(clbTests.Checked[2], TRUE)]), TRUE);
+    //    Log('RaiseError test:'#9+'%s', [BoolToStr(clbTests.Checked[3], TRUE)], -1, TRUE);
+    Log(Format('Array test:'#9#9 + '%s (%d items)', [BoolToStr(clbTests.Checked[4], TRUE), seArrayCount.Value]), TRUE);
+    Log(Format('EchoBinary test:'#9 + '%s (%d bytes)', [BoolToStr(clbTests.Checked[5], TRUE), seBinSize.Value]), TRUE);
+    Log(Format('GetServerTime test:'#9 + '%s', [BoolToStr(clbTests.Checked[6], TRUE)]), TRUE);
+    Log(Format('CustomClass test:'#9 + '%s (Use XML=%s)', [BoolToStr(clbTests.Checked[7], TRUE), BoolToStr(rbXML.Checked, TRUE)]), TRUE);
+
+    Log('', TRUE);
+    Log('Starting mega test');
+    Log('', TRUE);
+
+    for i := 1 to seThreads.Value do begin
+      trd := TStressThread.Create;
+      trd.idx := fThreads.Add(trd);
+    end;
+
+    Caption := Application.Title + Format(' (%d threads running)', [fThreads.Count]);
+
+    fMegaTestStart := GetTickCount;
+    for i := 0 to seThreads.Value - 1 do
+      TStressThread(fThreads[i]).Suspended := False;
+  finally
+    //    Screen.Cursor := crDefault;
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.StopAllDemo;
+var
+  i: integer;
+begin
+  fCritical.Enter;
+  try
+    for i := 0 to (fThreads.Count - 1) do
+      TThread(fThreads[i]).Terminate;
+  finally
+    fCritical.Leave;
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.RunTestButtonClick(Sender: TObject);
+begin
+  Screen.Cursor := crHourGlass;
+  try
+    if clbTests.ItemIndex > 0 then
+      clbTests.Checked[clbTests.ItemIndex] := True;
+    case clbTests.ItemIndex of
+      0: StopAllDemo;
+      1: Stress(RunSum);
+      2: Stress(RunEchoPerson);
+      3: Stress(RunTestArrays);
+      4: Stress(RunEchoBinary);
+      5: Stress(RunServerTime);
+      6: Stress(RunCustomClass);
+      7: Stress(RunRaiseError);
+    end;
+  finally
+    Screen.Cursor := crDefault;
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.FormShow(Sender: TObject);
+begin
+  pagecontrol2.Visible := False;
+  clbTests.ItemIndex := 1;
+  clbTests.OnClick(clbTests);
+  cbHTTPURLChange(cbHTTPURL);
+end;
+
+procedure TMegaDemoClientMainForm.clbTestsClickCheck(Sender: TObject);
+begin
+  Check_ListBoxClick(clbTests.ItemIndex = 0);
+end;
+
+procedure TMegaDemoClientMainForm.Check_ListBoxClick(isAllDemo: Boolean);
+
+  procedure SetMode(AMode: Boolean);
+  var
+    i: integer;
+  begin
+    for i := 1 to clbTests.Items.Count - 2 do
+      clbTests.Checked[i] := AMode;
+  end;
+
+var
+  i: integer;
+  iChecked, iUnChecked: byte;
+begin
+  if not isAllDemo then begin
+    iChecked := 0;
+    iUnChecked := 0;
+    for i := 1 to clbTests.Items.Count - 2 do begin
+      if clbTests.Checked[i] then
+        inc(iChecked)
+      else
+        inc(iUnChecked);
+    end;
+    if iChecked = 0 then
+      clbTests.State[0] := cbUnchecked
+    else if iUnChecked = 0 then
+      clbTests.State[0] := cbChecked
+    else
+      clbTests.State[0] := cbGrayed;
+  end
+  else begin
+    case clbTests.State[0] of
+      cbUnchecked: SetMode(False);
+      cbChecked: SetMode(True);
+    end;
+  end;
+end;
+
+function TMegaDemoClientMainForm.int_RunTestArrays(aService: IMegaDemoService;
+  anArrayType: TArrayType): integer;
+begin
+  Result := InvokeTestArray(aService, anArrayType, seArrayCount.Value);
+end;
+
+procedure TMegaDemoClientMainForm.Log(const aMessage: string;
+  Force: boolean);
+begin
+  if cbEnableLog.Checked or Force then Memo.Lines.Add(AMessage);
+end;
+
+procedure TMegaDemoClientMainForm.LoadFromIni;
+var
+  i: integer;
+begin
+  with TINIFile.Create(ChangeFileExt(Application.EXEName, '.ini')) do try
+
+    with cbTCPIP do begin
+      ReadSectionValues('IPs', Items);
+      for i := 0 to (Items.Count - 1) do
+        Items[i] := Items.Values[Items.Names[i]];
+    end;
+
+    with cbHTTPURL do begin
+      ReadSectionValues('HTTP Urls', Items);
+      for i := 0 to (Items.Count - 1) do
+        Items[i] := Items.Values[Items.Names[i]];
+    end;
+
+    with cbTCPPort do begin
+      ReadSectionValues('Ports', Items);
+      for i := 0 to (Items.Count - 1) do
+        Items[i] := Items.Values[Items.Names[i]];
+    end;
+
+    with cbSuperTCPIP do begin
+      ReadSectionValues('Super IPs', Items);
+      for i := 0 to (Items.Count - 1) do
+        Items[i] := Items.Values[Items.Names[i]];
+    end;
+
+    with cbSuperHTTPURL do begin
+      ReadSectionValues('Super HTTP Urls', Items);
+      for i := 0 to (Items.Count - 1) do
+        Items[i] := Items.Values[Items.Names[i]];
+    end;
+
+    with cbSuperTCPPort do begin
+      ReadSectionValues('Super Ports', Items);
+      for i := 0 to (Items.Count - 1) do
+        Items[i] := Items.Values[Items.Names[i]];
+    end;
+
+
+    cbHTTPURL.Text := ReadString('Misc', 'HTTP URL', 'http://localhost:8099/bin');
+    cbHTTPURLChange(nil);
+
+    cbSuperHTTPURL.Text := ReadString('Misc', 'Super HTTP URL', 'http://localhost:8098/bin');
+    cbSuperHTTPURLChange(nil);
+
+    eServerID.Text := ReadString('Misc', 'Server ID', '{E46A5995-2260-44EA-AC60-121ADB4CC2D0}');
+
+    cbTCPIP.Text := ReadString('Misc', 'TCP Address', '127.0.0.1');
+    cbTCPPort.Text := ReadString('Misc', 'TCP Port', '8090');
+
+    cbSuperTCPIP.Text := ReadString('Misc', 'Super TCP Address', '127.0.0.1');
+    cbSuperTCPPort.Text := ReadString('Misc', 'Super TCP Port', '8095');
+
+    rbWinInetHttp.Checked := ReadBool('Misc', 'WinINet HTTP', TRUE);
+    rbIndyHttp.Checked := ReadBool('Misc', 'Indy HTTP', FALSE);
+    rbSynapseHttp.Checked := ReadBool('Misc', 'Synapse HTTP', False);
+
+    rbIndySuperTCP.Checked := ReadBool('Misc', 'IndySuperTCP', TRUE);
+    rbSynapseSuperTCP.Checked := ReadBool('Misc', 'SynapseSuperTCP', TRUE);
+
+    rbIndySuperHTTP.Checked := ReadBool('Misc', 'IndySuperHTTP', TRUE);
+    rbSynapseSuperHTTP.Checked := ReadBool('Misc', 'SynapseSuperHTTP', TRUE);
+
+    cbKeepConnection.Checked := ReadBool('Misc', 'Keep Connection', FALSE);
+    cbDisableNagle.Checked := ReadBool('Misc', 'Disable Nagle', FALSE);
+    cbEncrypt.Checked := ReadBool('Misc', 'Encryption Communication', FALSE);
+    cbEncryptClick(cbEncrypt);
+    cb_UseEnvelopes.Checked := ReadBool('Misc', 'Use Message Envelopes', FALSE);
+    cb_UseEnvelopesClick(cb_UseEnvelopes);
+    seThreads.Value := ReadInteger('Misc', 'Threads', 5);
+    seRepetitions.Value := ReadInteger('Misc', 'Repetitions', 10);
+
+    cbWriteTestInfo.Checked := ReadBool('Misc', 'Write Test Info', True);
+    rbXML.Checked := ReadBool('Misc', 'CustomClass as XML', FALSE);
+    rbStream.Checked := not rbXML.Checked;
+    cbEnableLog.Checked := ReadBool('Misc', 'Enable Log', TRUE);
+    cbVerbose.Checked := ReadBool('Misc', 'Verbose', True);
+    clbTests.Checked[1] := ReadBool('Misc', 'Test Sum', TRUE);
+    clbTests.Checked[2] := ReadBool('Misc', 'Test EchoPerson', TRUE);
+    clbTests.Checked[3] := ReadBool('Misc', 'Test TestArrays', TRUE);
+    clbTests.Checked[4] := ReadBool('Misc', 'Test EchoBinary', TRUE);
+    clbTests.Checked[5] := ReadBool('Misc', 'Test GetServerTime', TRUE);
+    clbTests.Checked[6] := ReadBool('Misc', 'Test CustomClass', TRUE);
+    clbTests.Checked[7] := ReadBool('Misc', 'Test RaiseError', TRUE);
+    Check_ListBoxClick(False);
+  finally
+    Free;
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.SaveToIni;
+var
+  i: integer;
+begin
+  with TINIFile.Create(ChangeFileExt(Application.EXEName, '.ini')) do try
+
+    with cbTCPIP do begin
+      for i := 0 to (Items.Count - 1) do
+        WriteString('IPs', IntToStr(i), Items[i]);
+    end;
+
+    with cbHTTPURL do
+      for i := 0 to (Items.Count - 1) do
+        WriteString('HTTP Urls', IntToStr(i), Items[i]);
+
+    with cbTCPPort do
+      for i := 0 to (Items.Count - 1) do
+        WriteString('Ports', IntToStr(i), Items[i]);
+
+    with cbSuperTCPIP do begin
+      for i := 0 to (Items.Count - 1) do
+        WriteString('Super IPs', IntToStr(i), Items[i]);
+    end;
+
+    with cbSuperHTTPURL do
+      for i := 0 to (Items.Count - 1) do
+        WriteString('Super HTTP Urls', IntToStr(i), Items[i]);
+
+    with cbSuperTCPPort do
+      for i := 0 to (Items.Count - 1) do
+        WriteString('Super Ports', IntToStr(i), Items[i]);
+
+    WriteString('Misc', 'HTTP URL', cbHTTPURL.Text);
+    WriteString('Misc', 'Super HTTP URL', cbSuperHTTPURL.Text);
+    WriteString('Misc', 'Server ID', eServerID.Text);
+    WriteString('Misc', 'TCP Address', cbTCPIP.Text);
+    WriteString('Misc', 'TCP Port', cbTCPPort.Text);
+    WriteString('Misc', 'Super TCP Address', cbSuperTCPIP.Text);
+    WriteString('Misc', 'Super TCP Port', cbSuperTCPPort.Text);
+
+    WriteBool('Misc', 'Indy HTTP', rbIndyHttp.Checked);
+    WriteBool('Misc', 'WinINet HTTP', rbWinInetHttp.Checked);
+    WriteBool('Misc', 'Synapse HTTP', rbSynapseHttp.Checked);
+
+    WriteBool('Misc', 'IndySuperTCP', rbIndySuperTCP.Checked);
+    WriteBool('Misc', 'SynapseSuperTCP', rbSynapseSuperTCP.Checked);
+
+    WriteBool('Misc', 'IndySuperHTTP', rbIndySuperHttp.Checked);
+    WriteBool('Misc', 'SynapseSuperHTTP', rbSynapseSuperHttp.Checked);
+
+
+    WriteBool('Misc', 'Keep Connection', cbKeepConnection.Checked);
+    WriteBool('Misc', 'Disable Nagle', cbDisableNagle.Checked);
+    WriteBool('Misc', 'Encryption Communication', cbEncrypt.Checked);
+    WriteBool('Misc', 'Use Message Envelopes', cb_UseEnvelopes.Checked);
+
+    WriteInteger('Misc', 'Threads', seThreads.Value);
+    WriteInteger('Misc', 'Repetitions', seRepetitions.Value);
+
+    WriteBool('Misc', 'Write Test Info', cbWriteTestInfo.Checked);
+    WriteBool('Misc', 'CustomClass as XML', rbXML.Checked);
+    WriteBool('Misc', 'Enable Log', cbEnableLog.Checked);
+    WriteBool('Misc', 'Verbose', cbVerbose.Checked);
+    WriteBool('Misc', 'Test Sum', clbTests.Checked[1]);
+    WriteBool('Misc', 'Test EchoPerson', clbTests.Checked[2]);
+    WriteBool('Misc', 'Test TestArrays', clbTests.Checked[3]);
+    WriteBool('Misc', 'Test EchoBinary', clbTests.Checked[4]);
+    WriteBool('Misc', 'Test GetServerTime', clbTests.Checked[5]);
+    WriteBool('Misc', 'Test CustomClass', clbTests.Checked[6]);
+    WriteBool('Misc', 'Test RaiseError', clbTests.Checked[7]);
+  finally
+    Free;
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.rbIndyHttpClick(Sender: TObject);
+begin
+  cbKeepConnection.Enabled := rbWinInetHttp.Checked;
+  cbKeepConnection.Checked := rbWinInetHttp.Checked;
+end;
+
+procedure TMegaDemoClientMainForm.rbXmlRpcClick(Sender: TObject);
+begin
+  ChangeUrl('xmlrpc');
+end;
+
+procedure TMegaDemoClientMainForm.cbAutoDetectClick(Sender: TObject);
+begin
+  if rbBinary.Checked then rbBinaryClick(rbBinary)
+  else if rbPost.Checked then rbPostClick(rbPost)
+  else if rbXMLRpc.Checked then rbXmlRpcClick(rbXMLRpc)
+  else rbSOAPClick(rbSOAP);
+end;
+
+procedure TMegaDemoClientMainForm.cbSuperHTTPURLChange(Sender: TObject);
+var
+  s: string;
+begin
+  s:= cbSuperHTTPURL.Text;
+  if Pos('/bin', s) > 0 then
+    rbBinary.Checked := true
+  else if Pos('/soap', s) > 0 then
+    rbSoap.Checked := true
+  else if Pos('/post', s) > 0 then
+    rbPost.Checked := true
+  else if Pos('/xmlrpc', s) > 0 then
+    rbXmlRpc.Checked := true;
+  cbUseCompression.Enabled := rbBinary.Checked;
+end;
+
+procedure TMegaDemoClientMainForm.pgChannelsChange(Sender: TObject);
+begin
+  cbAutoDetect.Enabled := (pgChannels.ActivePage = tsHttp) or (pgChannels.ActivePage = tsSuperHTTP);
+end;
+
+procedure TMegaDemoClientMainForm.cb_UseEnvelopesClick(Sender: TObject);
+
+  procedure SetupMessage(AMessage: TROMessage);
+  var
+    i: integer;
+  begin
+    with AMessage.Envelopes do
+      for i:=0 to Count -1 do
+        Items[i].Enabled := cb_UseEnvelopes.Checked;
+  end;
+
+begin
+  SetupMessage(BINMessage);
+  SetupMessage(SOAPMessage);
+  SetupMessage(PostMessage);
+  SetupMessage(XmlRpcMessage);
+end;
+
+procedure TMegaDemoClientMainForm.ROAESEncryptionEnvelopeBeforeEnvelopeProcessed(
+  AMessageEnvelope: TROMessageEnvelope; AStream: TStream;
+  aMode: TROMessageEnvelopeMode; AMessage: IROMessage);
+begin
+  case aMode of
+    memIncoming: Log(AMessageEnvelope.Name+' : processing incoming message');
+    memOutgoing: Log(AMessageEnvelope.Name+' : processing outgoing message');
+  end;  
+end;
+
+procedure TMegaDemoClientMainForm.ROZeroConfBrowserServiceAdded(
+  Sender: TROZeroConfBrowser; aRecord: TROZeroConfService);
+var
+  strPort: string;
+begin
+  if  aRecord.TryResolve  then  begin
+    strPort := IntToStr(aRecord.Port);
+    if IsServiceHTTP(aRecord) then begin
+      Log('Discovered http server at host ' + aRecord.HostTarget + ' port ' +
+        strPort);
+      cbHTTPURL.Text := 'http://' + AnsiLowerCase(aRecord.HostTarget) + ':' +
+        strPort + '/bin';
+      cbSuperHTTPURL.Text := cbHTTPURL.Text;
+    end
+    else begin
+      Log('Discovered tcp server at host ' + aRecord.HostTarget + ' port ' +
+        strPort);
+      cbTCPIP.Text := aRecord.IP4Address;
+      cbTCPPort.Text := strPort;
+      cbSuperTCPIP.Text := aRecord.IP4Address;
+      cbSuperTCPPort.Text := strPort;
+    end;
+  end;
+end;
+
+procedure TMegaDemoClientMainForm.ROZeroConfBrowserServiceRemoved(
+  Sender: TROZeroConfBrowser; aRecord: TROZeroConfService);
+begin
+  if IsServiceHTTP(aRecord) then
+    Log('HTTP server at host ' + aRecord.HostTarget + ' port ' +
+        IntToStr(aRecord.Port) + ' is down')
+  else Log('TCP server at host ' + aRecord.HostTarget + ' port ' +
+        IntToStr(aRecord.Port) + ' is down');
+end;
+
+procedure TMegaDemoClientMainForm.bClearLogClick(Sender: TObject);
+begin
+  Memo.Clear;
+end;
+
+initialization
+  CoInitializeEx(nil, COINIT_MULTITHREADED);
+finalization
+  CoUninitialize;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoCustomClass.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoCustomClass.pas
new file mode 100644
index 0000000..11ddc62
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoCustomClass.pas	
@@ -0,0 +1,60 @@
+unit MegaDemoCustomClass;
+
+interface
+
+uses uROTypes;
+
+type
+  TCustomClass = class(TROComplexType)
+  private
+    FRandomInt: integer;
+    fRandomDouble: double;
+    FRandomStr: Ansistring;
+    FRandomWideStr: widestring;
+  public
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property RandomInt: integer read FRandomInt write FRandomInt;
+    property RandomDouble: double read FRandomDouble write FRandomDouble;
+    property RandomStr: Ansistring read FRandomStr write FRandomStr;
+    property RandomWideStr: Widestring read FRandomWideStr write FRandomWideStr;
+  end;
+
+function NewCustomClass: TCustomClass;
+
+implementation
+uses SysUtils, uROSerializer, typInfo;
+
+function NewCustomClass: TCustomClass;
+begin
+  result := TCustomClass.Create;
+  Result.RandomInt := Random(1000);
+  Result.RandomDouble := Random * 1000;
+  Result.RandomStr := AnsiString(IntToStr(Random(1000))) + '(ansistring)';
+  Result.RandomWideStr := IntToStr(Random(1000)) + '(widestring)';
+end;
+
+{ TCustomClass }
+
+procedure TCustomClass.ReadComplex(ASerializer: TObject);
+begin
+  TROSerializer(ASerializer).ReadInteger('RandomInt',otULong,FRandomInt);
+  TROSerializer(ASerializer).ReadDouble('RandomDouble',ftDouble,FRandomDouble);
+  TROSerializer(ASerializer).ReadUTF8String('RandomStr',FRandomStr);
+  TROSerializer(ASerializer).ReadWideString('RandomWideStr',FRandomWideStr);
+end;
+
+procedure TCustomClass.WriteComplex(ASerializer: TObject);
+begin
+  TROSerializer(ASerializer).WriteInteger('RandomInt',otULong,FRandomInt);
+  TROSerializer(ASerializer).WriteDouble('RandomDouble',ftDouble,FRandomDouble);
+  TROSerializer(ASerializer).WriteUTF8String('RandomStr',FRandomStr);
+  TROSerializer(ASerializer).WriteWideString('RandomWideStr',FRandomWideStr);
+end;
+
+initialization
+  RegisterROClass(TCustomClass);
+  Randomize;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.bdsproj
new file mode 100644
index 0000000..2b99f74
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{2AD18F9D-F12C-4A26-9EB2-30A3C22BC6DA}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MegaDemoISAPI.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.dpr
new file mode 100644
index 0000000..9bad5d7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.dpr	
@@ -0,0 +1,32 @@
+library MegaDemoISAPI;
+
+{#ROGEN:MegaDemoLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  ActiveX,
+  ComObj,
+  WebBroker,
+  ISAPIApp,
+  MegaDemoISAPIMain in 'MegaDemoISAPIMain.pas' {MegaDemoISAPIMainForm: TROWebModule},
+  MegaDemoLibrary_Intf in 'MegaDemoLibrary_Intf.pas',
+  MegaDemoLibrary_Invk in 'MegaDemoLibrary_Invk.pas',
+  MegaDemoService_Impl in 'MegaDemoService_Impl.pas' {MegaService: TDARemoteService};
+
+{$R *.RES}
+{$R RODLFile.RES} // RemObjects: Careful, do not remove!
+
+{
+  Important note: if you have Delphi 6 you should add the unit ISAPIThreadPool to the above list
+}
+
+exports
+  GetExtensionVersion,
+  HttpExtensionProc,
+  TerminateExtension;
+
+begin
+  CoInitFlags := COINIT_MULTITHREADED;
+  Application.Initialize;
+  Application.CreateForm(TMegaDemoISAPIMainForm, MegaDemoISAPIMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.dproj
new file mode 100644
index 0000000..67831a5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.dproj	
@@ -0,0 +1,83 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{b81cfbe2-60d0-4759-8f98-a2be7944b6f0}</ProjectGuid>
+    <MainSource>MegaDemoISAPI.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MegaDemoISAPI.dll</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MegaDemoISAPI.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MegaDemoISAPI.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MegaDemoISAPIMain.pas">
+      <Form>MegaDemoISAPIMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="MegaDemoLibrary_Intf.pas" />
+    <DCCReference Include="MegaDemoLibrary_Invk.pas" />
+    <DCCReference Include="MegaDemoService_Impl.pas">
+      <Form>MegaService</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.res
new file mode 100644
index 0000000..55f8742
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPI.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPIMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPIMain.dfm
new file mode 100644
index 0000000..6c42bf7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPIMain.dfm	
@@ -0,0 +1,104 @@
+object MegaDemoISAPIMainForm: TMegaDemoISAPIMainForm
+  OldCreateOrder = False
+  Actions = <>
+  Left = 38
+  Top = 65533
+  Height = 305
+  Width = 271
+  object WebBrokerServer: TROWebBrokerServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROSOAPMessage'
+        Message = ROSOAPMessage
+        Enabled = True
+        PathInfo = '/SOAP'
+      end
+      item
+        Name = 'ROBINMessage'
+        Message = ROBINMessage
+        Enabled = True
+        PathInfo = '/BIN'
+      end
+      item
+        Name = 'ROPostMessage'
+        Message = ROPostMessage
+        Enabled = True
+        PathInfo = '/POST'
+      end
+      item
+        Name = 'ROXmlRpcMessage'
+        Message = ROXmlRpcMessage
+        Enabled = True
+        PathInfo = '/XMLRPC'
+      end
+      item
+        Name = 'ROServerMultiMessage'
+        Message = ROServerMultiMessage
+        Enabled = True
+        PathInfo = '/'
+      end>
+    Left = 48
+    Top = 8
+  end
+  object ROAESEncryptionEnvelope: TROAESEncryptionEnvelope
+    EnvelopeMarker = 'AES'
+    Password = 'All work and no play makes Jack a dull boy.'
+    Left = 40
+    Top = 120
+  end
+  object ROServerMultiMessage: TROServerMultiMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    SupportedMessages = <
+      item
+        Message = ROBINMessage
+      end
+      item
+        Message = ROSOAPMessage
+      end
+      item
+        Message = ROPostMessage
+      end
+      item
+        Message = ROXmlRpcMessage
+      end>
+    Left = 43
+    Top = 73
+  end
+  object ROPostMessage: TROPostMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    Left = 71
+    Top = 73
+  end
+  object ROBINMessage: TROBinMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    Left = 99
+    Top = 73
+  end
+  object ROSOAPMessage: TROSOAPMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
+    Left = 128
+    Top = 73
+  end
+  object ROXmlRpcMessage: TROXmlRpcMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    Left = 157
+    Top = 73
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPIMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPIMain.pas
new file mode 100644
index 0000000..f448a7a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoISAPIMain.pas	
@@ -0,0 +1,32 @@
+unit MegaDemoISAPIMain;
+
+interface
+
+uses
+  SysUtils, Classes, HTTPApp, uROClient, uROClientIntf, uROBINMessage,
+  uROSOAPMessage, uROServer, uROWebBrokerServer, uROPostMessage,
+  uROXmlRpcMessage, uROEncryptionEnvelope, uROServerMultiMessage;
+
+type                                
+  TMegaDemoISAPIMainForm = class(TWebModule)
+    WebBrokerServer: TROWebBrokerServer;
+    ROAESEncryptionEnvelope: TROAESEncryptionEnvelope;
+    ROServerMultiMessage: TROServerMultiMessage;
+    ROPostMessage: TROPostMessage;
+    ROBINMessage: TROBinMessage;
+    ROSOAPMessage: TROSOAPMessage;
+    ROXmlRpcMessage: TROXmlRpcMessage;
+  private
+
+  public
+
+  end;
+
+var
+  MegaDemoISAPIMainForm: TMegaDemoISAPIMainForm;
+
+implementation
+
+{$R *.DFM}
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary.rodl
new file mode 100644
index 0000000..a4ef8cb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary.rodl	
@@ -0,0 +1,153 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="MegaDemoLibrary" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}" Version="3.0">
+<CustomAttributes>
+<EA_Model Value="C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap" />
+</CustomAttributes>
+<Services>
+<Service Name="MegaDemoService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Documentation><![CDATA[
+Service_NewService__This_service_has_been_automatically_generated_using_the_RODL_template_you_can_find_in_the_Templates_directory_]]></Documentation>
+<Operations>
+<Operation Name="Sum" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="A" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="B" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetServerTime" UID="{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="EchoPerson" UID="{B8717BF0-B874-4C94-8756-A734840FE445}">
+<Parameters>
+<Parameter Name="aPerson" DataType="TPerson" Flag="In" >
+</Parameter>
+<Parameter Name="anotherPerson" DataType="TPerson" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="TestIntegerArray" UID="{2A0CA87E-11DC-45FE-8288-30EEDDE8EC4E}">
+<Parameters>
+<Parameter Name="Result" DataType="TIntegerArray" Flag="Result">
+</Parameter>
+<Parameter Name="anArray" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="TestStringArray" UID="{C54A4879-EBA7-4AA3-B4CC-05A66580DB8C}">
+<Parameters>
+<Parameter Name="Result" DataType="TStringArray" Flag="Result">
+</Parameter>
+<Parameter Name="anArray" DataType="TStringArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="TestPersonArray" UID="{50565130-EA3B-408A-A230-B55AB11F7743}">
+<Parameters>
+<Parameter Name="Result" DataType="TPersonArray" Flag="Result">
+</Parameter>
+<Parameter Name="anArray" DataType="TPersonArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="EchoBinary" UID="{6007A623-9D43-4AB2-8CE5-E337316FE8DD}">
+<Parameters>
+<Parameter Name="BinIN" DataType="binary" Flag="In" >
+</Parameter>
+<Parameter Name="BinOUT" DataType="Binary" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SomeTypes" UID="{86B5581B-EDB0-4039-9EF4-2F4155BF28F0}">
+<Parameters>
+<Parameter Name="aString" DataType="AnsiString" Flag="InOut" >
+</Parameter>
+<Parameter Name="aWidestring" DataType="Widestring" Flag="InOut" >
+</Parameter>
+<Parameter Name="anInteger" DataType="Integer" Flag="InOut" >
+</Parameter>
+<Parameter Name="aCurrency" DataType="Currency" Flag="InOut" >
+</Parameter>
+<Parameter Name="aDatetime" DataType="DateTime" Flag="InOut" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="CustomObjectAsString" UID="{D26D93E6-8FA8-447F-B927-604A542DCC43}">
+<Parameters>
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="CustomObjectAsStream" UID="{F5048214-9949-41D2-B6FC-76E707E9E645}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="RaiseError" UID="{6FF781AC-4A73-40FE-9760-216C2F460FF2}">
+<Parameters>
+</Parameters>
+</Operation>
+<Operation Name="RaiseTestException" UID="{98B7A42C-5680-41EC-9C3C-85DE06042D6A}" ForceAsyncResponse="1">
+<Parameters>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="TPerson" UID="{94B3E0BD-4AB9-4C93-8507-C1762CDA32C7}" AutoCreateParams="1">
+<Elements>
+<Element Name="FirstName" DataType="AnsiString">
+</Element>
+<Element Name="LastName" DataType="AnsiString">
+</Element>
+<Element Name="Age" DataType="Integer">
+</Element>
+<Element Name="Sex" DataType="TSex">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+<Enum Name="TSex" UID="{9B0938FA-35F8-49DE-91E1-DB9E0DD5E1A3}">
+<EnumValues>
+<EnumValue Name="sxMale">
+</EnumValue>
+<EnumValue Name="sxFemale">
+</EnumValue>
+</EnumValues>
+</Enum>
+</Enums>
+<Arrays>
+<Array Name="TPersonArray" UID="{3DDF0AF8-EA63-4DD1-A23F-4AA0427A1DCA}">
+<ElementType DataType="TPerson" />
+</Array>
+<Array Name="TIntegerArray" UID="{54E4F9ED-83DD-42E3-9611-D2617163B733}">
+<ElementType DataType="Integer" />
+</Array>
+<Array Name="TStringArray" UID="{A4EE5636-DAD1-45B4-A46C-993664EB279F}">
+<ElementType DataType="AnsiString" />
+</Array>
+</Arrays>
+<Exceptions>
+<Exception Name="ETestException" UID="{DFB108B7-C8D8-4E25-AAFC-8546094E1623}" AutoCreateParams="1">
+<Elements>
+<Element Name="ErrorCode" DataType="Integer">
+</Element>
+<Element Name="AdditionalInfo" DataType="AnsiString">
+</Element>
+</Elements>
+</Exception>
+</Exceptions>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary_Intf.pas
new file mode 100644
index 0000000..a4c19b7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary_Intf.pas	
@@ -0,0 +1,1100 @@
+unit MegaDemoLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IMegaDemoService_IID : TGUID = '{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}';
+
+  { Event ID's }
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  IMegaDemoService = interface;
+
+  TPersonArray = class;
+  TIntegerArray = class;
+  TStringArray = class;
+
+  TPerson = class;
+
+  ETestException = class;
+
+
+  { Enumerateds }
+  TSex = (TSex_sxMale,TSex_sxFemale);
+
+  { TPerson }
+  TPerson = class(TROComplexType)
+  private
+    fFirstName: AnsiString;
+    fLastName: AnsiString;
+    fAge: Integer;
+    fSex: TSex;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property FirstName:AnsiString read fFirstName write fFirstName;
+    property LastName:AnsiString read fLastName write fLastName;
+    property Age:Integer read fAge write fAge;
+    property Sex:TSex read fSex write fSex;
+  end;
+
+  { TPersonCollection }
+  TPersonCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TPerson;
+    procedure SetItems(aIndex: integer; const Value: TPerson);
+  public
+    constructor Create; overload;
+    function Add: TPerson; reintroduce;
+    procedure SaveToArray(anArray: TPersonArray);
+    procedure LoadFromArray(anArray: TPersonArray);
+    property Items[Index: integer]:TPerson read GetItems write SetItems; default;
+  end;
+
+  { TPersonArray }
+  TPersonArray_TPerson = array of TPerson;
+  TPersonArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TPersonArray_TPerson;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): TPerson;
+    procedure SetItems(aIndex: integer; const Value: TPerson);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: TPerson; overload;
+    function Add(const Value: TPerson):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:TPerson read GetItems write SetItems; default;
+    property InnerArray: TPersonArray_TPerson read fItems;
+  end;
+
+  { TIntegerArray }
+  TIntegerArray_Integer = array of Integer;
+  TIntegerArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TIntegerArray_Integer;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): Integer;
+    procedure SetItems(aIndex: integer; const Value: Integer);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:Integer): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Integer read GetItems write SetItems; default;
+    property InnerArray: TIntegerArray_Integer read fItems;
+  end;
+
+  { TStringArray }
+  TStringArray_AnsiString = array of AnsiString;
+  TStringArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TStringArray_AnsiString;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): AnsiString;
+    procedure SetItems(aIndex: integer; const Value: AnsiString);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:AnsiString): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:AnsiString read GetItems write SetItems; default;
+    property InnerArray: TStringArray_AnsiString read fItems;
+  end;
+
+  { Exceptions }
+  ETestException = class(EROException)
+  private
+    fErrorCode: Integer;
+    fAdditionalInfo: AnsiString;
+  public
+    constructor Create(anExceptionMessage : string; aErrorCode: Integer; aAdditionalInfo: AnsiString);
+    procedure ReadException(ASerializer: TObject); override;
+    procedure WriteException(ASerializer: TObject); override;
+  published
+    property ErrorCode: Integer read fErrorCode write fErrorCode;
+    property AdditionalInfo: AnsiString read fAdditionalInfo write fAdditionalInfo;
+  end;
+
+
+  { IMegaDemoService }
+  IMegaDemoService = interface
+    ['{D9821C1A-A084-4120-93F3-BCE6CF2AE0F4}']
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    procedure EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+    function TestIntegerArray(const anArray: TIntegerArray): TIntegerArray;
+    function TestStringArray(const anArray: TStringArray): TStringArray;
+    function TestPersonArray(const anArray: TPersonArray): TPersonArray;
+    procedure EchoBinary(const BinIN: binary; out BinOUT: Binary);
+    procedure SomeTypes(var aString: AnsiString; var aWidestring: Widestring; var anInteger: Integer; var aCurrency: Currency;
+                        var aDatetime: DateTime);
+    function CustomObjectAsString: AnsiString;
+    function CustomObjectAsStream: Binary;
+    procedure RaiseError;
+    procedure RaiseTestException;
+  end;
+
+  { CoMegaDemoService }
+  CoMegaDemoService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMegaDemoService;
+  end;
+
+  { TMegaDemoService_Proxy }
+  TMegaDemoService_Proxy = class(TROProxy, IMegaDemoService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    procedure EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+    function TestIntegerArray(const anArray: TIntegerArray): TIntegerArray;
+    function TestStringArray(const anArray: TStringArray): TStringArray;
+    function TestPersonArray(const anArray: TPersonArray): TPersonArray;
+    procedure EchoBinary(const BinIN: binary; out BinOUT: Binary);
+    procedure SomeTypes(var aString: AnsiString; var aWidestring: Widestring; var anInteger: Integer; var aCurrency: Currency;
+                        var aDatetime: DateTime);
+    function CustomObjectAsString: AnsiString;
+    function CustomObjectAsStream: Binary;
+    procedure RaiseError;
+    procedure RaiseTestException;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ ETestException }
+
+constructor ETestException.Create(anExceptionMessage : string; aErrorCode: Integer;
+  aAdditionalInfo: AnsiString);
+begin
+  inherited Create(anExceptionMessage);
+
+  fErrorCode := aErrorCode;
+  fAdditionalInfo := aAdditionalInfo;
+end;
+
+procedure ETestException.ReadException(ASerializer: TObject);
+var
+  l_AdditionalInfo: AnsiString;
+  l_ErrorCode: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_ErrorCode := ErrorCode;
+    TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode);
+    ErrorCode := l_ErrorCode;
+    l_AdditionalInfo := AdditionalInfo;
+    TROSerializer(ASerializer).ReadAnsiString('AdditionalInfo', l_AdditionalInfo);
+    AdditionalInfo := l_AdditionalInfo;
+  end
+  else begin
+    l_AdditionalInfo := AdditionalInfo;
+    TROSerializer(ASerializer).ReadAnsiString('AdditionalInfo', l_AdditionalInfo);
+    AdditionalInfo := l_AdditionalInfo;
+    l_ErrorCode := ErrorCode;
+    TROSerializer(ASerializer).ReadInteger('ErrorCode', otSLong, l_ErrorCode);
+    ErrorCode := l_ErrorCode;
+  end;
+end;
+
+procedure ETestException.WriteException(ASerializer: TObject);
+var
+  l_AdditionalInfo: AnsiString;
+  l_ErrorCode: Integer;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(ETestException);
+    l_ErrorCode := ErrorCode;
+    TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode);
+    l_AdditionalInfo := AdditionalInfo;
+    TROSerializer(ASerializer).WriteAnsiString('AdditionalInfo', l_AdditionalInfo);
+  end
+  else begin
+    l_AdditionalInfo := AdditionalInfo;
+    TROSerializer(ASerializer).WriteAnsiString('AdditionalInfo', l_AdditionalInfo);
+    l_ErrorCode := ErrorCode;
+    TROSerializer(ASerializer).WriteInteger('ErrorCode', otSLong, l_ErrorCode);
+  end;
+end;
+
+{ TPersonArray }
+
+procedure TPersonArray.Assign(iSource: TPersistent);
+var lSource:TPersonArray;
+    i:integer;
+    lItem:TPerson;
+begin
+  if (iSource is TPersonArray) then begin
+    lSource := TPersonArray(iSource);
+    Clear();
+
+    for i := 0 to lSource.Count-1 do
+      if Assigned(lSource.Items[i]) then begin
+        lItem := TPerson(lSource.Items[i].ClassType.Create);
+        lItem.Assign(lSource.Items[i]);
+        Add(lItem);
+      end
+      else begin
+        Add(nil);
+      end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TPersonArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(TPerson);
+end;
+
+class function TPersonArray.GetItemClass: TClass;
+begin
+  result := TPerson;
+end;
+
+class function TPersonArray.GetItemSize: integer;
+begin
+  result := SizeOf(TPerson);
+end;
+
+function TPersonArray.GetItems(aIndex: integer): TPerson;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TPersonArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure TPersonArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure TPersonArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TPersonArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TPersonArray.SetItems(aIndex: integer; const Value: TPerson);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure TPersonArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := TPerson.Create;
+  FCount := ElementCount;
+end;
+
+function TPersonArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TPersonArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TPersonArray.Add: TPerson;
+begin
+  result := TPerson.Create;
+  Add(Result);
+end;
+
+function TPersonArray.Add(const Value:TPerson): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure TPersonArray.ReadComplex(ASerializer: TObject);
+var
+  lval: TPerson;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), TPerson, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TPersonArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], TPerson, i);
+end;
+
+{ TIntegerArray }
+
+procedure TIntegerArray.Assign(iSource: TPersistent);
+var lSource:TIntegerArray;
+    i:integer;
+begin
+  if (iSource is TIntegerArray) then begin
+    lSource := TIntegerArray(iSource);
+    Clear();
+
+    Resize(lSource.Count);
+    for i := 0 to lSource.Count-1 do
+      Items[i] := lSource.Items[i];
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TIntegerArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Integer);
+end;
+
+class function TIntegerArray.GetItemSize: integer;
+begin
+  result := SizeOf(Integer);
+end;
+
+function TIntegerArray.GetItems(aIndex: integer): Integer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TIntegerArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure TIntegerArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TIntegerArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TIntegerArray.SetItems(aIndex: integer; const Value: Integer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure TIntegerArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function TIntegerArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TIntegerArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TIntegerArray.Add(const Value: Integer): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function TIntegerArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure TIntegerArray.ReadComplex(ASerializer: TObject);
+var
+  lval: Integer;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TIntegerArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, fItems[i], i);
+end;
+
+{ TStringArray }
+
+procedure TStringArray.Assign(iSource: TPersistent);
+var lSource:TStringArray;
+    i:integer;
+begin
+  if (iSource is TStringArray) then begin
+    lSource := TStringArray(iSource);
+    Clear();
+
+    Resize(lSource.Count);
+    for i := 0 to lSource.Count-1 do
+      Items[i] := lSource.Items[i];
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TStringArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(AnsiString);
+end;
+
+class function TStringArray.GetItemSize: integer;
+begin
+  result := SizeOf(AnsiString);
+end;
+
+function TStringArray.GetItems(aIndex: integer): AnsiString;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TStringArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure TStringArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TStringArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TStringArray.SetItems(aIndex: integer; const Value: AnsiString);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  fItems[aIndex] := Value;
+end;
+
+procedure TStringArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function TStringArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TStringArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TStringArray.Add(const Value: AnsiString): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function TStringArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure TStringArray.ReadComplex(ASerializer: TObject);
+var
+  lval: AnsiString;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TStringArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteAnsiString(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], i);
+end;
+
+{ TPerson }
+
+procedure TPerson.Assign(iSource: TPersistent);
+var lSource: MegaDemoLibrary_Intf.TPerson;
+begin
+  inherited Assign(iSource);
+  if (iSource is MegaDemoLibrary_Intf.TPerson) then begin
+    lSource := MegaDemoLibrary_Intf.TPerson(iSource);
+    FirstName := lSource.FirstName;
+    LastName := lSource.LastName;
+    Age := lSource.Age;
+    Sex := lSource.Sex;
+  end;
+end;
+
+procedure TPerson.ReadComplex(ASerializer: TObject);
+var
+  l_Age: Integer;
+  l_FirstName: AnsiString;
+  l_LastName: AnsiString;
+  l_Sex: TSex;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_FirstName := FirstName;
+    TROSerializer(ASerializer).ReadAnsiString('FirstName', l_FirstName);
+    FirstName := l_FirstName;
+    l_LastName := LastName;
+    TROSerializer(ASerializer).ReadAnsiString('LastName', l_LastName);
+    LastName := l_LastName;
+    l_Age := Age;
+    TROSerializer(ASerializer).ReadInteger('Age', otSLong, l_Age);
+    Age := l_Age;
+    l_Sex := Sex;
+    TROSerializer(ASerializer).ReadEnumerated('Sex',TypeInfo(TSex), l_Sex);
+    Sex := l_Sex;
+  end
+  else begin
+    l_Age := Age;
+    TROSerializer(ASerializer).ReadInteger('Age', otSLong, l_Age);
+    Age := l_Age;
+    l_FirstName := FirstName;
+    TROSerializer(ASerializer).ReadAnsiString('FirstName', l_FirstName);
+    FirstName := l_FirstName;
+    l_LastName := LastName;
+    TROSerializer(ASerializer).ReadAnsiString('LastName', l_LastName);
+    LastName := l_LastName;
+    l_Sex := Sex;
+    TROSerializer(ASerializer).ReadEnumerated('Sex',TypeInfo(TSex), l_Sex);
+    Sex := l_Sex;
+  end;
+end;
+
+procedure TPerson.WriteComplex(ASerializer: TObject);
+var
+  l_Age: Integer;
+  l_FirstName: AnsiString;
+  l_LastName: AnsiString;
+  l_Sex: TSex;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TPerson);
+    l_FirstName := FirstName;
+    TROSerializer(ASerializer).WriteAnsiString('FirstName', l_FirstName);
+    l_LastName := LastName;
+    TROSerializer(ASerializer).WriteAnsiString('LastName', l_LastName);
+    l_Age := Age;
+    TROSerializer(ASerializer).WriteInteger('Age', otSLong, l_Age);
+    l_Sex := Sex;
+    TROSerializer(ASerializer).WriteEnumerated('Sex',TypeInfo(TSex), l_Sex);
+  end
+  else begin
+    l_Age := Age;
+    TROSerializer(ASerializer).WriteInteger('Age', otSLong, l_Age);
+    l_FirstName := FirstName;
+    TROSerializer(ASerializer).WriteAnsiString('FirstName', l_FirstName);
+    l_LastName := LastName;
+    TROSerializer(ASerializer).WriteAnsiString('LastName', l_LastName);
+    l_Sex := Sex;
+    TROSerializer(ASerializer).WriteEnumerated('Sex',TypeInfo(TSex), l_Sex);
+  end;
+end;
+
+{ TPersonCollection }
+constructor TPersonCollection.Create;
+begin
+  inherited Create(TPerson);
+end;
+
+constructor TPersonCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TPersonCollection.Add: TPerson;
+begin
+  result := TPerson(inherited Add);
+end;
+
+function TPersonCollection.GetItems(aIndex: integer): TPerson;
+begin
+  result := TPerson(inherited Items[aIndex]);
+end;
+
+procedure TPersonCollection.LoadFromArray(anArray: TPersonArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    anArray[i].Clone.Collection := Self;
+end;
+
+procedure TPersonCollection.SaveToArray(anArray: TPersonArray);
+var i : integer;
+begin
+  anArray.Clear;
+  for i := 0 to (Count-1) do begin
+    if Assigned(Items[i]) then
+      anArray.Add(TPerson(Items[i].Clone))
+    else
+      anArray.Add(nil);
+  end;
+end;
+
+procedure TPersonCollection.SetItems(aIndex: integer; const Value: TPerson);
+begin
+  TPerson(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoMegaDemoService }
+
+class function CoMegaDemoService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMegaDemoService;
+begin
+  result := TMegaDemoService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TMegaDemoService_Proxy }
+
+function TMegaDemoService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'MegaDemoService';
+end;
+
+function TMegaDemoService_Proxy.Sum(const A: Integer; const B: Integer): Integer;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'Sum');
+    __Message.Write('A', TypeInfo(Integer), A, []);
+    __Message.Write('B', TypeInfo(Integer), B, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TMegaDemoService_Proxy.GetServerTime: DateTime;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TMegaDemoService_Proxy.EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    anotherPerson := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'EchoPerson');
+    __Message.Write('aPerson', TypeInfo(MegaDemoLibrary_Intf.TPerson), aPerson, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('anotherPerson', TypeInfo(MegaDemoLibrary_Intf.TPerson), anotherPerson, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TMegaDemoService_Proxy.TestIntegerArray(const anArray: TIntegerArray): TIntegerArray;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'TestIntegerArray');
+    __Message.Write('anArray', TypeInfo(MegaDemoLibrary_Intf.TIntegerArray), anArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(MegaDemoLibrary_Intf.TIntegerArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TMegaDemoService_Proxy.TestStringArray(const anArray: TStringArray): TStringArray;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'TestStringArray');
+    __Message.Write('anArray', TypeInfo(MegaDemoLibrary_Intf.TStringArray), anArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(MegaDemoLibrary_Intf.TStringArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TMegaDemoService_Proxy.TestPersonArray(const anArray: TPersonArray): TPersonArray;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'TestPersonArray');
+    __Message.Write('anArray', TypeInfo(MegaDemoLibrary_Intf.TPersonArray), anArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(MegaDemoLibrary_Intf.TPersonArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TMegaDemoService_Proxy.EchoBinary(const BinIN: binary; out BinOUT: Binary);
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    BinOUT := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'EchoBinary');
+    __Message.Write('BinIN', TypeInfo(binary), BinIN, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('BinOUT', TypeInfo(Binary), BinOUT, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TMegaDemoService_Proxy.SomeTypes(var aString: AnsiString; var aWidestring: Widestring; var anInteger: Integer; var aCurrency: Currency;
+                                           var aDatetime: DateTime);
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'SomeTypes');
+    __Message.Write('aString', TypeInfo(AnsiString), aString, []);
+    __Message.Write('aWidestring', TypeInfo(Widestring), aWidestring, []);
+    __Message.Write('anInteger', TypeInfo(Integer), anInteger, []);
+    __Message.Write('aCurrency', TypeInfo(Currency), aCurrency, []);
+    __Message.Write('aDatetime', TypeInfo(DateTime), aDatetime, [paIsDateTime]);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('aString', TypeInfo(AnsiString), aString, []);
+    __Message.Read('aWidestring', TypeInfo(Widestring), aWidestring, []);
+    __Message.Read('anInteger', TypeInfo(Integer), anInteger, []);
+    __Message.Read('aCurrency', TypeInfo(Currency), aCurrency, []);
+    __Message.Read('aDatetime', TypeInfo(DateTime), aDatetime, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TMegaDemoService_Proxy.CustomObjectAsString: AnsiString;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'CustomObjectAsString');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TMegaDemoService_Proxy.CustomObjectAsStream: Binary;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'CustomObjectAsStream');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TMegaDemoService_Proxy.RaiseError;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'RaiseError');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TMegaDemoService_Proxy.RaiseTestException;
+begin
+    __Message.SetAttributes(__TransportChannel, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MegaDemoLibrary', __InterfaceName, 'RaiseTestException');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TPerson);
+  RegisterROClass(TPersonArray);
+  RegisterROClass(TIntegerArray);
+  RegisterROClass(TStringArray);
+  RegisterExceptionClass(ETestException);
+  RegisterProxyClass(IMegaDemoService_IID, TMegaDemoService_Proxy);
+
+
+finalization
+  UnregisterROClass(TPerson);
+  UnregisterROClass(TPersonArray);
+  UnregisterROClass(TIntegerArray);
+  UnregisterROClass(TStringArray);
+  UnregisterExceptionClass(ETestException);
+  UnregisterProxyClass(IMegaDemoService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary_Invk.pas
new file mode 100644
index 0000000..c95972e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoLibrary_Invk.pas	
@@ -0,0 +1,374 @@
+unit MegaDemoLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} MegaDemoLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TMegaDemoService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_EchoPerson(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_TestIntegerArray(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_TestStringArray(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_TestPersonArray(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_EchoBinary(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SomeTypes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_CustomObjectAsString(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_CustomObjectAsStream(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_RaiseError(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_RaiseTestException(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TMegaDemoService_Invoker }
+
+constructor TMegaDemoService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Sum(const A: Integer; const B: Integer): Integer; }
+var
+  A: Integer;
+  B: Integer;
+  lResult: Integer;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    __Message.Read('A', TypeInfo(Integer), A, []);
+    __Message.Read('B', TypeInfo(Integer), B, []);
+
+    lResult := (__Instance as IMegaDemoService).Sum(A, B);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'SumResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    lResult := (__Instance as IMegaDemoService).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_EchoPerson(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson); }
+var
+  aPerson: MegaDemoLibrary_Intf.TPerson;
+  anotherPerson: MegaDemoLibrary_Intf.TPerson;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  aPerson := nil;
+  anotherPerson := nil;
+  try
+    __Message.Read('aPerson', TypeInfo(MegaDemoLibrary_Intf.TPerson), aPerson, []);
+
+    (__Instance as IMegaDemoService).EchoPerson(aPerson, anotherPerson);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'EchoPersonResponse');
+    __Message.Write('anotherPerson', TypeInfo(MegaDemoLibrary_Intf.TPerson), anotherPerson, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aPerson);
+      __lObjectDisposer.Add(anotherPerson);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_TestIntegerArray(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function TestIntegerArray(const anArray: TIntegerArray): TIntegerArray; }
+var
+  anArray: MegaDemoLibrary_Intf.TIntegerArray;
+  lResult: MegaDemoLibrary_Intf.TIntegerArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  anArray := nil;
+  lResult := nil;
+  try
+    __Message.Read('anArray', TypeInfo(MegaDemoLibrary_Intf.TIntegerArray), anArray, []);
+
+    lResult := (__Instance as IMegaDemoService).TestIntegerArray(anArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'TestIntegerArrayResponse');
+    __Message.Write('Result', TypeInfo(MegaDemoLibrary_Intf.TIntegerArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(anArray);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_TestStringArray(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function TestStringArray(const anArray: TStringArray): TStringArray; }
+var
+  anArray: MegaDemoLibrary_Intf.TStringArray;
+  lResult: MegaDemoLibrary_Intf.TStringArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  anArray := nil;
+  lResult := nil;
+  try
+    __Message.Read('anArray', TypeInfo(MegaDemoLibrary_Intf.TStringArray), anArray, []);
+
+    lResult := (__Instance as IMegaDemoService).TestStringArray(anArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'TestStringArrayResponse');
+    __Message.Write('Result', TypeInfo(MegaDemoLibrary_Intf.TStringArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(anArray);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_TestPersonArray(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function TestPersonArray(const anArray: TPersonArray): TPersonArray; }
+var
+  anArray: MegaDemoLibrary_Intf.TPersonArray;
+  lResult: MegaDemoLibrary_Intf.TPersonArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  anArray := nil;
+  lResult := nil;
+  try
+    __Message.Read('anArray', TypeInfo(MegaDemoLibrary_Intf.TPersonArray), anArray, []);
+
+    lResult := (__Instance as IMegaDemoService).TestPersonArray(anArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'TestPersonArrayResponse');
+    __Message.Write('Result', TypeInfo(MegaDemoLibrary_Intf.TPersonArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(anArray);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_EchoBinary(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure EchoBinary(const BinIN: binary; out BinOUT: Binary); }
+var
+  BinIN: binary;
+  BinOUT: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  BinIN := nil;
+  BinOUT := nil;
+  try
+    __Message.Read('BinIN', TypeInfo(binary), BinIN, []);
+
+    (__Instance as IMegaDemoService).EchoBinary(BinIN, BinOUT);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'EchoBinaryResponse');
+    __Message.Write('BinOUT', TypeInfo(Binary), BinOUT, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(BinIN);
+      __lObjectDisposer.Add(BinOUT);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_SomeTypes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SomeTypes(var aString: AnsiString; var aWidestring: Widestring; var anInteger: Integer; var aCurrency: Currency;
+                        var aDatetime: DateTime); }
+var
+  aString: AnsiString;
+  aWidestring: Widestring;
+  anInteger: Integer;
+  aCurrency: Currency;
+  aDatetime: DateTime;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    __Message.Read('aString', TypeInfo(AnsiString), aString, []);
+    __Message.Read('aWidestring', TypeInfo(Widestring), aWidestring, []);
+    __Message.Read('anInteger', TypeInfo(Integer), anInteger, []);
+    __Message.Read('aCurrency', TypeInfo(Currency), aCurrency, []);
+    __Message.Read('aDatetime', TypeInfo(DateTime), aDatetime, [paIsDateTime]);
+
+    (__Instance as IMegaDemoService).SomeTypes(aString, aWidestring, anInteger, aCurrency, aDatetime);
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'SomeTypesResponse');
+    __Message.Write('aString', TypeInfo(AnsiString), aString, []);
+    __Message.Write('aWidestring', TypeInfo(Widestring), aWidestring, []);
+    __Message.Write('anInteger', TypeInfo(Integer), anInteger, []);
+    __Message.Write('aCurrency', TypeInfo(Currency), aCurrency, []);
+    __Message.Write('aDatetime', TypeInfo(DateTime), aDatetime, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_CustomObjectAsString(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function CustomObjectAsString: AnsiString; }
+var
+  lResult: AnsiString;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    lResult := (__Instance as IMegaDemoService).CustomObjectAsString;
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'CustomObjectAsStringResponse');
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_CustomObjectAsStream(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function CustomObjectAsStream: Binary; }
+var
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  lResult := nil;
+  try
+    lResult := (__Instance as IMegaDemoService).CustomObjectAsStream;
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'CustomObjectAsStreamResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_RaiseError(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure RaiseError; }
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    (__Instance as IMegaDemoService).RaiseError;
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'RaiseErrorResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TMegaDemoService_Invoker.Invoke_RaiseTestException(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure RaiseTestException; }
+begin
+  __Message.SetAttributes(__Transport, ['EA_Model'],
+      ['C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap']);
+  try
+    (__Instance as IMegaDemoService).RaiseTestException;
+
+    __Message.InitializeResponseMessage(__Transport, 'MegaDemoLibrary', 'MegaDemoService', 'RaiseTestExceptionResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+  RegisterServiceAttribute('','EA_Model','C:\Dev\ROSDK3\Tests\MegaDemo\NewLibrary.eap');
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.bdsproj
new file mode 100644
index 0000000..d1cbdcd
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{0C4C725A-7179-410C-9484-1F6B71FE3A78}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MegaDemoServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.cfg
new file mode 100644
index 0000000..4c2816a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.cfg	
@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dof
new file mode 100644
index 0000000..1a07019
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dof	
@@ -0,0 +1,132 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1043
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dpr
new file mode 100644
index 0000000..d611779
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dpr	
@@ -0,0 +1,22 @@
+program MegaDemoServer;
+
+{#ROGEN:MegaDemoLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  MegaDemoServerMain in 'MegaDemoServerMain.pas' {MegaDemoServerMainForm},
+  MegaDemoCustomClass in 'MegaDemoCustomClass.pas',
+  MegaDemoLibrary_Intf in 'MegaDemoLibrary_Intf.pas',
+  MegaDemoLibrary_Invk in 'MegaDemoLibrary_Invk.pas',
+  MegaDemoService_Impl in 'MegaDemoService_Impl.pas' {MegaService: TDARemoteService};
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'RemObjects MegaDemo Server';
+  Application.CreateForm(TMegaDemoServerMainForm, MegaDemoServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dproj
new file mode 100644
index 0000000..5a3f78c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.dproj	
@@ -0,0 +1,48 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f8cc3de2-12be-48eb-b46d-815b9569e1af}</ProjectGuid>
+    <MainSource>MegaDemoServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MegaDemoServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1058</VersionInfo><VersionInfo Name="CodePage">1251</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">MegaDemoServer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="MegaDemoServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MegaDemoCustomClass.pas" />
+    <DCCReference Include="MegaDemoLibrary_Intf.pas" />
+    <DCCReference Include="MegaDemoLibrary_Invk.pas" />
+    <DCCReference Include="MegaDemoServerMain.pas">
+      <Form>MegaDemoServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="MegaDemoService_Impl.pas">
+      <Form>MegaService</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.res
new file mode 100644
index 0000000..b0dd731
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServerMain.dfm
new file mode 100644
index 0000000..c1af618
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServerMain.dfm	
@@ -0,0 +1,1140 @@
+object MegaDemoServerMainForm: TMegaDemoServerMainForm
+  Left = 271
+  Top = 212
+  BorderStyle = bsDialog
+  Caption = 'RemObjects SDK - Mega Demo Server'
+  ClientHeight = 450
+  ClientWidth = 744
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 496
+    Top = 397
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Memo: TMemo
+    Left = 460
+    Top = 12
+    Width = 279
+    Height = 350
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ScrollBars = ssVertical
+    TabOrder = 8
+  end
+  object cbUseCompression: TCheckBox
+    Left = 10
+    Top = 427
+    Width = 155
+    Height = 17
+    Caption = '&Compress Binary messages'
+    Checked = True
+    State = cbChecked
+    TabOrder = 5
+    OnClick = cbUseCompressionClick
+  end
+  object gbHTTP: TGroupBox
+    Left = 7
+    Top = 7
+    Width = 450
+    Height = 90
+    Caption = ' HTTP Server '
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 8
+      Top = 24
+      Width = 22
+      Height = 13
+      Caption = '&Port:'
+      FocusControl = seHTTPPort
+    end
+    object Label5: TLabel
+      Left = 8
+      Top = 68
+      Width = 393
+      Height = 13
+      Caption = 
+        'Message: The HTTP Server can support multiple message formats at' +
+        ' the same time'
+    end
+    object Label13: TLabel
+      Left = 99
+      Top = 24
+      Width = 62
+      Height = 13
+      Alignment = taRightJustify
+      AutoSize = False
+      Caption = 'Component:'
+    end
+    object seHTTPPort: TSpinEdit
+      Left = 36
+      Top = 21
+      Width = 53
+      Height = 22
+      MaxValue = 0
+      MinValue = 0
+      TabOrder = 0
+      Value = 8099
+    end
+    object bActivateHTTP: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = '&Activate'
+      TabOrder = 3
+      OnClick = bActivateHTTPClick
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+        811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00A7632F811E0081
+        1E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00D8
+        B69CE6D1BFE7D3C4811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00D8AF96F4E2CFF0D7BDD8A784811E00811E00FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00E7BB92E3B081E0A672D5925A811E00FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+        35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF811E00811E00811E00811E00811E00811E00FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    end
+    object bDeactivateHTTP: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = 'Deactivate'
+      TabOrder = 4
+      Visible = False
+      OnClick = bDeactivateHTTPClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object Panel2: TPanel
+      Left = 168
+      Top = 23
+      Width = 177
+      Height = 17
+      BevelOuter = bvNone
+      TabOrder = 1
+      object rbBpdxHttp: TRadioButton
+        Left = 0
+        Top = 0
+        Width = 57
+        Height = 17
+        Caption = 'DXSock'
+        TabOrder = 0
+      end
+      object RbIndyHttp: TRadioButton
+        Left = 60
+        Top = 0
+        Width = 45
+        Height = 17
+        Caption = 'Indy'
+        Checked = True
+        TabOrder = 1
+        TabStop = True
+      end
+      object rbSynapseHttp: TRadioButton
+        Left = 104
+        Top = 0
+        Width = 65
+        Height = 17
+        Caption = 'Synapse'
+        TabOrder = 2
+      end
+    end
+    object cb_SupportKeepAlive: TCheckBox
+      Left = 104
+      Top = 41
+      Width = 169
+      Height = 17
+      Caption = 'Support HTTP 1.1 KeepAlive'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+      OnClick = cb_SupportKeepAliveClick
+    end
+  end
+  object gbTCP: TGroupBox
+    Left = 7
+    Top = 175
+    Width = 450
+    Height = 80
+    Caption = ' TCP Server '
+    TabOrder = 2
+    object Label3: TLabel
+      Left = 8
+      Top = 24
+      Width = 22
+      Height = 13
+      Caption = '&Port:'
+      FocusControl = seHTTPPort
+    end
+    object Label6: TLabel
+      Left = 8
+      Top = 52
+      Width = 46
+      Height = 13
+      Caption = 'Message:'
+    end
+    object Label8: TLabel
+      Left = 99
+      Top = 24
+      Width = 62
+      Height = 13
+      Alignment = taRightJustify
+      AutoSize = False
+      Caption = 'Component:'
+    end
+    object seTCPPort: TSpinEdit
+      Left = 36
+      Top = 22
+      Width = 53
+      Height = 22
+      MaxValue = 0
+      MinValue = 0
+      TabOrder = 0
+      Value = 8090
+    end
+    object bActivateTCP: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = '&Activate'
+      TabOrder = 4
+      OnClick = bActivateTCPClick
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+        811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00A7632F811E0081
+        1E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00D8
+        B69CE6D1BFE7D3C4811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00D8AF96F4E2CFF0D7BDD8A784811E00811E00FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00E7BB92E3B081E0A672D5925A811E00FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+        35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF811E00811E00811E00811E00811E00811E00FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    end
+    object cbTCPMsg: TComboBox
+      Left = 62
+      Top = 49
+      Width = 145
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 2
+      OnChange = cbTCPMsgChange
+    end
+    object bDeactivateTCP: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = 'Deactivate'
+      TabOrder = 5
+      Visible = False
+      OnClick = bDeactivateTCPClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object Panel1: TPanel
+      Left = 168
+      Top = 23
+      Width = 182
+      Height = 17
+      BevelOuter = bvNone
+      TabOrder = 1
+      object rbBpdxTcp: TRadioButton
+        Left = 0
+        Top = 0
+        Width = 57
+        Height = 17
+        Caption = 'DXSock'
+        TabOrder = 0
+      end
+      object RbIndyTcp: TRadioButton
+        Left = 60
+        Top = 0
+        Width = 45
+        Height = 17
+        Caption = 'Indy'
+        Checked = True
+        TabOrder = 1
+        TabStop = True
+      end
+      object rbSynapseTCP: TRadioButton
+        Left = 104
+        Top = 0
+        Width = 65
+        Height = 17
+        Caption = 'Synapse'
+        TabOrder = 2
+      end
+    end
+    object cbDisableNagle: TCheckBox
+      Left = 240
+      Top = 51
+      Width = 161
+      Height = 17
+      Caption = 'Disable &Nagle for Indy Server'
+      TabOrder = 3
+      OnClick = cbDisableNagleClick
+    end
+  end
+  object gbWinMsg: TGroupBox
+    Left = 7
+    Top = 343
+    Width = 450
+    Height = 81
+    Caption = ' WinMessage Server '
+    TabOrder = 4
+    object Label4: TLabel
+      Left = 10
+      Top = 24
+      Width = 48
+      Height = 13
+      Caption = 'Server ID:'
+    end
+    object Label7: TLabel
+      Left = 10
+      Top = 52
+      Width = 46
+      Height = 13
+      Caption = 'Message:'
+    end
+    object eServerID: TEdit
+      Left = 64
+      Top = 21
+      Width = 281
+      Height = 21
+      TabOrder = 0
+      Text = 'eServerID'
+    end
+    object bActivateWinMsg: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = '&Activate'
+      TabOrder = 2
+      OnClick = bActivateWinMsgClick
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+        811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00A7632F811E0081
+        1E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00D8
+        B69CE6D1BFE7D3C4811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00D8AF96F4E2CFF0D7BDD8A784811E00811E00FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00E7BB92E3B081E0A672D5925A811E00FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+        35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF811E00811E00811E00811E00811E00811E00FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    end
+    object cbWinMsgMsg: TComboBox
+      Left = 64
+      Top = 49
+      Width = 145
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 1
+      OnChange = cbWinMsgMsgChange
+    end
+    object bDeactivateWinMsg: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = 'Deactivate'
+      TabOrder = 3
+      Visible = False
+      OnClick = bDeactivateWinMsgClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+  end
+  object cb_Encrypt: TCheckBox
+    Left = 172
+    Top = 427
+    Width = 129
+    Height = 17
+    Caption = 'Encrypt communication'
+    TabOrder = 6
+    OnClick = cb_EncryptClick
+  end
+  object cbVerbose: TCheckBox
+    Left = 460
+    Top = 371
+    Width = 97
+    Height = 17
+    Caption = 'Verbose'
+    Checked = True
+    State = cbChecked
+    TabOrder = 10
+  end
+  object ErrorMemo: TMemo
+    Left = 460
+    Top = 12
+    Width = 279
+    Height = 350
+    Alignment = taCenter
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -25
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    Lines.Strings = (
+      ''
+      ''
+      ''
+      ''
+      ''
+      'Please activate at '
+      'least one server!')
+    ParentFont = False
+    TabOrder = 9
+  end
+  object gbSuperHTTP: TGroupBox
+    Left = 7
+    Top = 101
+    Width = 450
+    Height = 70
+    Caption = ' Super HTTP Server '
+    TabOrder = 1
+    object Label2: TLabel
+      Left = 8
+      Top = 24
+      Width = 22
+      Height = 13
+      Caption = '&Port:'
+      FocusControl = seSuperHTTPPort
+    end
+    object Label9: TLabel
+      Left = 8
+      Top = 47
+      Width = 424
+      Height = 13
+      Caption = 
+        'Message: The Super HTTP Server can support multiple message form' +
+        'ats at the same time'
+    end
+    object Label10: TLabel
+      Left = 99
+      Top = 24
+      Width = 62
+      Height = 13
+      Alignment = taRightJustify
+      AutoSize = False
+      Caption = 'Component:'
+    end
+    object seSuperHTTPPort: TSpinEdit
+      Left = 36
+      Top = 21
+      Width = 53
+      Height = 22
+      MaxValue = 0
+      MinValue = 0
+      TabOrder = 0
+      Value = 8098
+    end
+    object bActivateSuperHTTP: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = '&Activate'
+      TabOrder = 2
+      OnClick = bActivateSuperHTTPClick
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+        811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00A7632F811E0081
+        1E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00D8
+        B69CE6D1BFE7D3C4811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00D8AF96F4E2CFF0D7BDD8A784811E00811E00FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00E7BB92E3B081E0A672D5925A811E00FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+        35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF811E00811E00811E00811E00811E00811E00FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    end
+    object bDeactivateSuperHTTP: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = 'Deactivate'
+      TabOrder = 3
+      Visible = False
+      OnClick = bDeactivateSuperHTTPClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object Panel3: TPanel
+      Left = 168
+      Top = 23
+      Width = 129
+      Height = 17
+      BevelOuter = bvNone
+      TabOrder = 1
+      object rbSynapseSuperHttp: TRadioButton
+        Left = 0
+        Top = 0
+        Width = 65
+        Height = 17
+        Caption = 'Synapse'
+        Checked = True
+        TabOrder = 0
+        TabStop = True
+      end
+    end
+  end
+  object gbSuperTcp: TGroupBox
+    Left = 7
+    Top = 259
+    Width = 450
+    Height = 80
+    Caption = ' Super TCP Server '
+    TabOrder = 3
+    object Label11: TLabel
+      Left = 8
+      Top = 24
+      Width = 22
+      Height = 13
+      Caption = '&Port:'
+      FocusControl = seSuperHTTPPort
+    end
+    object Label12: TLabel
+      Left = 8
+      Top = 52
+      Width = 46
+      Height = 13
+      Caption = 'Message:'
+    end
+    object Label14: TLabel
+      Left = 99
+      Top = 24
+      Width = 62
+      Height = 13
+      Alignment = taRightJustify
+      AutoSize = False
+      Caption = 'Component:'
+    end
+    object seSuperTCPPort: TSpinEdit
+      Left = 36
+      Top = 22
+      Width = 53
+      Height = 22
+      MaxValue = 0
+      MinValue = 0
+      TabOrder = 0
+      Value = 8095
+    end
+    object bActivateSuperTcp: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = '&Activate'
+      TabOrder = 3
+      OnClick = bActivateSuperTCPClick
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00
+        811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00811E00811E00FF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF811E0095440F811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00A7632F811E0081
+        1E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF811E00BF8B62CCA17E811E00811E00FF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00D8
+        B69CE6D1BFE7D3C4811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF811E00F0E2D9FCF7F2FAF0E6811E00811E
+        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00D8AF96F4E2CFF0D7BDD8A784811E00811E00FF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FF811E00F3DECAEFD4B8EBC9A7DAA67D811E00FF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF81
+        1E00E7BB92E3B081E0A672D5925A811E00FF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF811E00DA995ED78F50D38441CF7B
+        35811E00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FF811E00811E00811E00811E00811E00811E00FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+    end
+    object cbSuperTCPMsg: TComboBox
+      Left = 62
+      Top = 49
+      Width = 145
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 2
+      OnChange = cbSuperTCPMsgChange
+    end
+    object bDeactivateSuperTCP: TBitBtn
+      Left = 357
+      Top = 14
+      Width = 83
+      Height = 25
+      Caption = 'Deactivate'
+      TabOrder = 4
+      Visible = False
+      OnClick = bDeactivateSuperTCPClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000C40E0000C40E00000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A174AFD103BF400009AFF00FFFF00FFFF00FFFF00FF00009A002CF80030
+        FC00009AFF00FFFF00FFFF00FFFF00FF6B6B6BA8A8A8A0A0A06B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6B9A9A9A9C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A1A47F81A4CFF123BF100009AFF00FFFF00FF00009A012DF60132FF002A
+        F300009AFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7AAAAAA9F9F9F6B6B6BFF
+        00FFFF00FF6B6B6B9999999E9E9E9797976B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A1C47F61B4DFF143EF400009A00009A002DF80134FF032BF20000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ABABABA2A2A26B
+        6B6B6B6B6B9A9A9A9E9E9E9898986B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A1D48F61D50FF103DFB0431FE0132FF002CF600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7ACACACA3
+        A3A39F9F9F9E9E9E9999996B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A1A48F91342FF0C3CFF0733F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BA7A7A7A7
+        A7A7A3A3A39C9C9C6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FF00009A214EFC1D4BFF1847FF1743F600009AFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BACACACAC
+        ACACA9A9A9A4A4A46B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF00009A2E5BF92C5FFF224DF8204BF82355FF1B46F600009AFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB1B1B1B3B3B3AB
+        ABABAAAAAAAFAFAFA6A6A66B6B6BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A3664FA386BFF2D59F400009A00009A224CF42558FF1D49F60000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6BB6B6B6B9B9B9AEAEAE6B
+        6B6B6B6B6BA9A9A9B0B0B0A7A7A76B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        00009A4071FA4274FF325DF100009AFF00FFFF00FF00009A224DF1275AFF204C
+        F800009AFF00FFFF00FFFF00FFFF00FF6B6B6BBBBBBBBEBEBEAFAFAF6B6B6BFF
+        00FFFF00FF6B6B6BA7A7A7B1B1B1AAAAAA6B6B6BFF00FFFF00FFFF00FFFF00FF
+        00009A497AFC3B66F300009AFF00FFFF00FFFF00FFFF00FF00009A2550F42655
+        FA00009AFF00FFFF00FFFF00FFFF00FF6B6B6BC0C0C0B5B5B56B6B6BFF00FFFF
+        00FFFF00FFFF00FF6B6B6BAAAAAAAEAEAE6B6B6BFF00FFFF00FFFF00FFFF00FF
+        FF00FF00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0000
+        9AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FF6B6B6B6B6B6BFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+      NumGlyphs = 2
+    end
+    object Panel4: TPanel
+      Left = 168
+      Top = 23
+      Width = 129
+      Height = 17
+      BevelOuter = bvNone
+      TabOrder = 1
+      object rbSynapseSuperTcp: TRadioButton
+        Left = 0
+        Top = 0
+        Width = 65
+        Height = 17
+        Caption = 'Synapse'
+        TabOrder = 0
+      end
+      object rbIndySuperTCP: TRadioButton
+        Left = 68
+        Top = 0
+        Width = 41
+        Height = 17
+        Caption = 'Indy'
+        Checked = True
+        TabOrder = 1
+        TabStop = True
+      end
+    end
+  end
+  object bClearLog: TButton
+    Left = 664
+    Top = 367
+    Width = 75
+    Height = 25
+    Caption = 'Clear Log'
+    TabOrder = 11
+    OnClick = bClearLogClick
+  end
+  object cb_UseEnvelopes: TCheckBox
+    Left = 307
+    Top = 427
+    Width = 149
+    Height = 17
+    Caption = 'Use message envelopes'
+    TabOrder = 7
+    OnClick = cb_UseEnvelopesClick
+  end
+  object ROBINMessage: TROBinMessage
+    OnInitializeMessage = MessageInitializeMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    Left = 563
+    Top = 25
+  end
+  object WinMessageServer: TROWinMessageServer
+    Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Dispatchers = <
+      item
+        Name = 'ROBINMessage'
+        Message = ROBINMessage
+        Enabled = True
+      end>
+    OnAfterServerActivate = WinMessageServerAfterServerActivate
+    OnAfterServerDeactivate = WinMessageServerAfterServerDeactivate
+    ServerID = '{E46A5995-2260-44EA-AC60-121ADB4CC2D0}'
+    Left = 608
+    Top = 312
+  end
+  object ROSOAPMessage: TROSOAPMessage
+    OnInitializeMessage = MessageInitializeMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
+    Left = 592
+    Top = 25
+  end
+  object BpdxTcpServer: TROBPDXTCPServer
+    Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Dispatchers = <
+      item
+        Name = 'ROBINMessage'
+        Message = ROBINMessage
+        Enabled = True
+      end>
+    OnAfterServerActivate = TcpServerAfterServerActivate
+    OnAfterServerDeactivate = TcpServerAfterServerDeactivate
+    BPDXServer.ReleaseDate = '2002-09-01'
+    BPDXServer.ListenerThreadPriority = tpIdle
+    BPDXServer.SpawnedThreadPriority = tpIdle
+    BPDXServer.Suspend = False
+    BPDXServer.UseSSL = False
+    BPDXServer.UseThreadPool = True
+    BPDXServer.ServerPort = 8090
+    BPDXServer.ProtocolToBind = wpTCPOnly
+    BPDXServer.SocketOutputBufferSize = bsfNormal
+    BPDXServer.ServerType = stThreadBlocking
+    BPDXServer.ThreadCacheSize = 1000
+    Port = 8090
+    Left = 576
+    Top = 312
+  end
+  object BpdxHttpServer: TROBPDXHTTPServer
+    Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
+    Dispatchers = <
+      item
+        Name = 'ROBINMessage'
+        Message = ROBINMessage
+        Enabled = True
+        PathInfo = '/BIN'
+      end
+      item
+        Name = 'ROSOAPMessage'
+        Message = ROSOAPMessage
+        Enabled = True
+        PathInfo = '/SOAP'
+      end
+      item
+        Name = 'ROPostMessage'
+        Message = ROPostMessage
+        Enabled = True
+        PathInfo = '/POST'
+      end
+      item
+        Name = 'ROXmlRpcMessage'
+        Message = ROXmlRpcMessage
+        Enabled = True
+        PathInfo = '/XMLRPC'
+      end
+      item
+        Name = 'ROServerMultiMessage'
+        Message = ROServerMultiMessage
+        Enabled = True
+        PathInfo = '/'
+      end
+      item
+        Name = 'ROJSONMessage'
+        Message = ROJSONMessage
+        Enabled = True
+        PathInfo = 'JSON'
+      end>
+    OnAfterServerActivate = HttpServerAfterServerActivate
+    OnAfterServerDeactivate = HttpServerAfterServerDeactivate
+    BPDXServer.ReleaseDate = '2002-09-01'
+    BPDXServer.ListenerThreadPriority = tpIdle
+    BPDXServer.SpawnedThreadPriority = tpIdle
+    BPDXServer.Suspend = False
+    BPDXServer.UseSSL = False
+    BPDXServer.UseThreadPool = True
+    BPDXServer.ServerPort = 8099
+    BPDXServer.ProtocolToBind = wpTCPOnly
+    BPDXServer.SocketOutputBufferSize = bsfNormal
+    BPDXServer.ServerType = stThreadBlocking
+    BPDXServer.ThreadCacheSize = 1000
+    BPDXServer.Timeout = 50000
+    BPDXServer.SupportKeepAlive = True
+    Port = 8099
+    SupportKeepAlive = True
+    Left = 544
+    Top = 312
+  end
+  object ROPostMessage: TROPostMessage
+    OnInitializeMessage = MessageInitializeMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    Left = 535
+    Top = 25
+  end
+  object ROServerMultiMessage: TROServerMultiMessage
+    OnInitializeMessage = MessageInitializeMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    SupportedMessages = <
+      item
+        Message = ROBINMessage
+      end
+      item
+        Message = ROSOAPMessage
+      end
+      item
+        Message = ROPostMessage
+      end
+      item
+        Message = ROXmlRpcMessage
+      end>
+    Left = 507
+    Top = 25
+  end
+  object ROXmlRpcMessage: TROXmlRpcMessage
+    OnInitializeMessage = MessageInitializeMessage
+    Envelopes = <
+      item
+        Envelope = ROAESEncryptionEnvelope
+      end>
+    Left = 621
+    Top = 25
+  end
+  object ROAESEncryptionEnvelope: TROAESEncryptionEnvelope
+    EnvelopeMarker = 'AES'
+    BeforeEnvelopeProcessed = ROAESEncryptionEnvelopeBeforeEnvelopeProcessed
+    Password = 'All work and no play makes Jack a dull boy.'
+    Left = 504
+    Top = 72
+  end
+  object ROJSONMessage: TROJSONMessage
+    Envelopes = <>
+    Left = 536
+    Top = 56
+  end
+  object HTTPZeroConfRegistration: TROZeroConfRegistration
+    RegistrationFailed = HTTPZeroConfRegistrationRegistrationFailed
+    RegistrationSucceeded = HTTPZeroConfRegistrationRegistrationSucceeded
+    Left = 576
+    Top = 216
+  end
+  object TCPZeroConfRegistration: TROZeroConfRegistration
+    RegistrationFailed = TCPZeroConfRegistrationRegistrationFailed
+    RegistrationSucceeded = TCPZeroConfRegistrationRegistrationSucceeded
+    Left = 576
+    Top = 264
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServerMain.pas
new file mode 100644
index 0000000..fc5cde6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoServerMain.pas	
@@ -0,0 +1,781 @@
+unit MegaDemoServerMain;
+
+{ Activate this define if you are using the demo without having Indy installed. }
+{.$DEFINE NO_INDY}
+
+{ Activate this define if you are using the demo without having Synapse installed. }
+{.$DEFINE NO_Synapse}
+{$INCLUDE RemObjects.inc}
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, Spin, Buttons, ExtCtrls, SyncObjs,
+
+{$IFNDEF NO_INDY}
+  IdBaseComponent, IdComponent,
+  IdTCPServer, IdHTTPServer, uROIndyTCPServer, uROIndyHTTPServer, uROSuperTCPServer,
+  {$IFDEF RemObjects_INDY10}IdContext,{$ENDIF}
+
+{$ENDIF NO_INDY}
+{$IFNDEF NO_Synapse}
+  uROIpSuperHttpServer,uROSynapseSuperTCPServer,uROIpHttpServer,uROIpTcpServer,
+{$ENDIF}
+  uROClient, uROBINMessage, uROClientIntf, uROServer,
+  uROBPDXHTTPServer, uROBPDXTCPServer, uROPoweredByRemObjectsButton,
+  uROSOAPMessage, uROWinMessageServer, uROEncryption,
+  uROPostMessage, uROServerMultiMessage, uROXmlRpcMessage,
+  uROEncryptionEnvelope, uROJSONMessage, uROZeroConf;
+
+const
+  WM_LOG_MESSAGE = WM_APP + 1;
+
+type
+  TMegaDemoServerMainForm = class(TForm)
+    ROBINMessage: TROBinMessage;
+    Memo: TMemo;
+    cbUseCompression: TCheckBox;
+    WinMessageServer: TROWinMessageServer;
+    ROSOAPMessage: TROSOAPMessage;
+    gbHTTP: TGroupBox;
+    gbTCP: TGroupBox;
+    gbWinMsg: TGroupBox;
+    Label1: TLabel;
+    seHTTPPort: TSpinEdit;
+    seTCPPort: TSpinEdit;
+    Label4: TLabel;
+    eServerID: TEdit;
+    bActivateHTTP: TBitBtn;
+    bActivateTCP: TBitBtn;
+    bActivateWinMsg: TBitBtn;
+    cbWinMsgMsg: TComboBox;
+    Label3: TLabel;
+    Label6: TLabel;
+    cbTCPMsg: TComboBox;
+    Label7: TLabel;
+    BpdxTcpServer: TROBPDXTCPServer;
+    BpdxHttpServer: TROBPDXHTTPServer;
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    Label5: TLabel;
+    bDeactivateWinMsg: TBitBtn;
+    bDeactivateTCP: TBitBtn;
+    bDeactivateHTTP: TBitBtn;
+    Label13: TLabel;
+    Panel2: TPanel;
+    rbBpdxHttp: TRadioButton;
+    RbIndyHttp: TRadioButton;
+    Panel1: TPanel;
+    rbBpdxTcp: TRadioButton;
+    RbIndyTcp: TRadioButton;
+    Label8: TLabel;
+    cb_Encrypt: TCheckBox;
+    cb_SupportKeepAlive: TCheckBox;
+    cbDisableNagle: TCheckBox;
+    cbVerbose: TCheckBox;
+    ROPostMessage: TROPostMessage;
+    ErrorMemo: TMemo;
+    ROServerMultiMessage: TROServerMultiMessage;
+    ROXmlRpcMessage: TROXmlRpcMessage;
+    gbSuperHTTP: TGroupBox;
+    Label2: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    seSuperHTTPPort: TSpinEdit;
+    bActivateSuperHTTP: TBitBtn;
+    bDeactivateSuperHTTP: TBitBtn;
+    Panel3: TPanel;
+    rbSynapseSuperHttp: TRadioButton;
+    gbSuperTcp: TGroupBox;
+    Label11: TLabel;
+    Label12: TLabel;
+    Label14: TLabel;
+    seSuperTCPPort: TSpinEdit;
+    bActivateSuperTcp: TBitBtn;
+    cbSuperTCPMsg: TComboBox;
+    bDeactivateSuperTCP: TBitBtn;
+    Panel4: TPanel;
+    rbSynapseSuperTcp: TRadioButton;
+    rbIndySuperTCP: TRadioButton;
+    rbSynapseHttp: TRadioButton;
+    rbSynapseTCP: TRadioButton;
+    bClearLog: TButton;
+    cb_UseEnvelopes: TCheckBox;
+    ROAESEncryptionEnvelope: TROAESEncryptionEnvelope;
+    ROJSONMessage: TROJSONMessage;
+    HTTPZeroConfRegistration: TROZeroConfRegistration;
+    TCPZeroConfRegistration: TROZeroConfRegistration;
+    procedure FormCreate(Sender: TObject);
+    procedure HttpServerAfterServerActivate(Sender: TObject);
+    procedure HttpServerAfterServerDeactivate(Sender: TObject);
+    procedure cbUseCompressionClick(Sender: TObject);
+    procedure bActivateHTTPClick(Sender: TObject);
+    procedure bActivateTCPClick(Sender: TObject);
+    procedure bActivateWinMsgClick(Sender: TObject);
+    procedure cbTCPMsgChange(Sender: TObject);
+    procedure cbWinMsgMsgChange(Sender: TObject);
+    procedure bDeactivateHTTPClick(Sender: TObject);
+    procedure bDeactivateTCPClick(Sender: TObject);
+    procedure bDeactivateWinMsgClick(Sender: TObject);
+    procedure TcpServerAfterServerActivate(Sender: TObject);
+    procedure TcpServerAfterServerDeactivate(Sender: TObject);
+    procedure WinMessageServerAfterServerDeactivate(Sender: TObject);
+    procedure WinMessageServerAfterServerActivate(Sender: TObject);
+    procedure cb_EncryptClick(Sender: TObject);
+    procedure cb_SupportKeepAliveClick(Sender: TObject);
+    procedure cbDisableNagleClick(Sender: TObject);
+    procedure MessageInitializeMessage(Sender: TROMessage;
+      const aTransport: IROTransport; const anInterfaceName,
+      aMessageName: String);
+    procedure cbSuperTCPMsgChange(Sender: TObject);
+    procedure bDeactivateSuperTCPClick(Sender: TObject);
+    procedure bActivateSuperTCPClick(Sender: TObject);
+    procedure SuperTcpServerAfterServerActivate(Sender: TObject);
+    procedure SuperTcpServerAfterServerDeactivate(Sender: TObject);
+    procedure SuperHttpServerAfterServerActivate(Sender: TObject);
+    procedure SuperHttpServerAfterServerDeactivate(Sender: TObject);
+    procedure bActivateSuperHTTPClick(Sender: TObject);
+    procedure bDeactivateSuperHTTPClick(Sender: TObject);
+    procedure bClearLogClick(Sender: TObject);
+    procedure cb_UseEnvelopesClick(Sender: TObject);
+    procedure ROAESEncryptionEnvelopeBeforeEnvelopeProcessed(
+      AMessageEnvelope: TROMessageEnvelope; AStream: TStream;
+      aMode: TROMessageEnvelopeMode; AMessage: IROMessage);
+    procedure HTTPZeroConfRegistrationRegistrationFailed(
+      Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine;
+      anException: Exception);
+    procedure HTTPZeroConfRegistrationRegistrationSucceeded(
+      Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine);
+    procedure TCPZeroConfRegistrationRegistrationFailed(
+      Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine;
+      anException: Exception);
+    procedure TCPZeroConfRegistrationRegistrationSucceeded(
+      Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine);
+  private
+    {$IFNDEF NO_INDY}
+    ROIndyHTTPServer : TROIndyHTTPServer;
+    ROIndyTCPServer : TROIndyTCPServer;
+    ROIndySuperTCPServer: TROSuperTcpServer;
+    {$ENDIF NO_INDY}
+    {$IFNDEF NO_Synapse}
+    ROSynapseSuperHTTPServer : TROIpSuperHttpServer;
+    ROSynapseSuperTCPServer : TROSynapseSuperTcpServer;
+    ROSynapseTCPServer  : TROIpTcpServer;
+    ROSynapseHTTPServer : TROIpHttpServer;
+    {$ENDIF NO_Synapse}
+
+    fCritical: TCriticalSection;
+
+    procedure ActivateGroupBox(iGroupBox: TGroupBox; iActivate: boolean);
+    procedure CheckStatus;
+  protected
+    procedure WMLog(var Message: TMessage); message WM_LOG_MESSAGE;
+
+  public
+    constructor Create(aOwner: TComponent); override;
+    destructor Destroy; override;
+
+    procedure Log(const someText: string);
+
+  end;
+
+var
+  MegaDemoServerMainForm: TMegaDemoServerMainForm;
+
+implementation
+
+uses MegaDemoLibrary_Intf;
+
+{$R *.DFM}
+
+procedure TMegaDemoServerMainForm.FormCreate(Sender: TObject);
+begin
+  rbBpdxTcp.Enabled:=True;
+  rbBpdxHttp.Enabled:=True;
+{$IFDEF NO_INDY}
+  rbIndyHttp.Enabled := false;
+  rbIndyTcp.Enabled := false;
+  rbIndySuperTCP.Enabled := false;
+{$ELSE}
+  ROIndyHTTPServer := TROIndyHTTPServer.Create(Self);
+  ROIndyHTTPServer.Dispatchers.Assign(BpdxHttpServer.Dispatchers);
+  ROIndyHTTPServer.OnAfterServerActivate := HttpServerAfterServerActivate;
+  ROIndyHTTPServer.OnAfterServerDeactivate := HttpServerAfterServerDeactivate;
+
+  ROIndyTCPServer := TROIndyTCPServer.Create(Self);
+  ROIndyTCPServer.Dispatchers.Assign(BpdxTcpServer.Dispatchers);
+  ROIndyTCPServer.OnAfterServerActivate := TcpServerAfterServerActivate;
+  ROIndyTCPServer.OnAfterServerDeactivate := TcpServerAfterServerDeactivate;
+
+  ROIndySuperTCPServer:= TROSuperTcpServer.Create(Self);
+  ROIndySuperTCPServer.Dispatchers.Assign(BpdxTcpServer.Dispatchers);
+  ROIndySuperTCPServer.OnAfterServerActivate := SuperTcpServerAfterServerActivate;
+  ROIndySuperTCPServer.OnAfterServerDeactivate := SuperTcpServerAfterServerDeactivate;
+{$ENDIF NO_INDY}
+
+{$IFDEF NO_Synapse}
+  rbSynapseSuperHttp.Enabled:=False;
+  rbSynapseSuperTcp.Enabled:=False;
+  rbSynapseTCP.Enabled:=False;
+  rbSynapseHTTP.Enabled:=False;
+{$ELSE}
+  ROSynapseSuperHTTPServer := TROIpSuperHttpServer.Create(Self);
+  ROSynapseSuperHTTPServer.Dispatchers.Assign(BpdxHttpServer.Dispatchers);
+  ROSynapseSuperHTTPServer.OnAfterServerActivate := SuperHttpServerAfterServerActivate;
+  ROSynapseSuperHTTPServer.OnAfterServerDeactivate := SuperHttpServerAfterServerDeactivate;
+
+  ROSynapseSuperTCPServer := TROSynapseSuperTcpServer.Create(Self);
+  ROSynapseSuperTCPServer.Dispatchers.Assign(BpdxTcpServer.Dispatchers);
+  ROSynapseSuperTCPServer.OnAfterServerActivate := SuperTcpServerAfterServerActivate;
+  ROSynapseSuperTCPServer.OnAfterServerDeactivate := SuperTcpServerAfterServerDeactivate;
+
+  ROSynapseHTTPServer := TROIpHttpServer.Create(Self);
+  ROSynapseHTTPServer.Dispatchers.Assign(BpdxHttpServer.Dispatchers);
+  ROSynapseHTTPServer.OnAfterServerActivate := HttpServerAfterServerActivate;
+  ROSynapseHTTPServer.OnAfterServerDeactivate := HttpServerAfterServerDeactivate;
+
+  ROSynapseTCPServer := TROIpTcpServer.Create(Self);
+  ROSynapseTCPServer.Dispatchers.Assign(BpdxTcpServer.Dispatchers);
+  ROSynapseTCPServer.OnAfterServerActivate := TcpServerAfterServerActivate;
+  ROSynapseTCPServer.OnAfterServerDeactivate := TcpServerAfterServerDeactivate;
+{$ENDIF NO_Synapse}
+  cb_SupportKeepAliveClick(Sender);
+
+  // Misc
+  WinMessageServer.ServerID := LibraryUID;
+
+  eServerID.Text := WinMessageServer.ServerID;
+
+  cbTCPMsg.Items.Clear;
+  cbTCPMsg.Items.AddObject('Auto', ROServerMultiMessage);
+  cbTCPMsg.Items.AddObject('Bin', ROBINMessage);
+  cbTCPMsg.Items.AddObject('Soap', ROSOAPMessage);
+  cbTCPMsg.Items.AddObject('Post', ROPOSTMessage);
+  cbTCPMsg.Items.AddObject('XmlRpc', ROXmlRpcMessage);
+  cbTCPMsg.ItemIndex := 0;
+  cbTCPMsgChange(cbTCPMsg);
+
+  cbSuperTcpMsg.Items.AddStrings(cbTCPMsg.Items);
+  cbSuperTcpMsg.ItemIndex := 0;
+  cbSuperTCPMsgChange(cbSuperTcpMsg);
+
+
+  cbWinMsgMsg.Items.AddStrings(cbTCPMsg.Items);
+  cbWinMsgMsg.ItemIndex := 0;
+  cbWinMsgMsgChange(cbWinMsgMsg);
+
+  cbUseCompressionClick(cbUseCompression);
+  cb_EncryptClick(cb_Encrypt);
+  cb_UseEnvelopesClick(cb_UseEnvelopes);
+
+  if (ParamCount > 0) and SameText(ParamStr(1), '/activate') then begin
+    Application.ProcessMessages();
+    bActivateHTTP.Click;
+    bActivateTcP.Click;
+    bActivateWinMsg.Click;
+    bActivateSuperHTTP.Click;
+    bActivateSuperTCP.Click;
+  end;
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.Log(const someText: string);
+var
+  p: pChar;
+begin
+  if Application.Terminated then Exit;
+
+  if not cbVerbose.Checked then Exit;
+
+  GetMem(p, (Length(someText) + 1)*SizeOf(Char));
+  Move(someText[1], p^, (Length(someText)+ 1)*SizeOf(Char));
+  PostMessage(Handle, WM_LOG_MESSAGE, 0, integer(p));
+
+  { Access to the VCL may only happen from within the main thread. To allow
+    Log to be called from within the Service implementattion, we must ensure
+    it's threadsafe.
+
+    So instread of just addint the log message to the Memo, we'l send a
+    PostMessage to the window, which wil then later be handled within the
+    main thread.
+
+    As a side benefit, the secution of the Log doe snot need to wait for this
+    logging to happen (as usage of, for example, Synchronize would require),
+    which will in turn make the server more respinsible for a simultaneous
+    calls. }
+end;
+
+procedure TMegaDemoServerMainForm.WMLog(var Message: TMessage);
+var
+  p: pChar;
+begin
+  try
+    p := pChar(Message.LParam);
+    Memo.Lines.Add(p);
+    Freemem(p);
+  except
+    on E: Exception do
+      Memo.Lines.Add(E.Classname + ': ' + E.Message);
+  end;
+end;
+
+procedure TMegaDemoServerMainForm.ActivateGroupBox(iGroupBox: TGroupBox; iActivate: boolean);
+var
+  i, j: integer;
+  lPanel: TPanel;
+begin
+  if iGroupBox <> nil then
+    for i := 0 to (iGroupBox.ControlCount - 1) do begin
+      if not (iGroupBox.Controls[i] is TBitBtn) and
+        not (iGroupBox.Controls[i] is TComboBox) and
+        not ((iGroupBox.Controls[i] is TLabel) and (TLabel(iGroupBox.Controls[i]).Caption = 'Message:')) then iGroupBox.Controls[i].Enabled := iActivate;
+      if (iGroupBox.Controls[i] is TPanel) then begin
+        lPanel := TPanel(iGroupBox.Controls[i]);
+        for j := 0 to (lPanel.ControlCount - 1) do begin
+          lPanel.Controls[j].Enabled := iActivate;
+        end;
+      end;
+    end;
+end;
+
+procedure TMegaDemoServerMainForm.HttpServerAfterServerActivate(Sender: TObject);
+begin
+  ActivateGroupBox(gbHttp, false);
+  Log((Sender as TComponent).ClassName + ' has been activated...');
+end;
+
+procedure TMegaDemoServerMainForm.HttpServerAfterServerDeactivate(Sender: TObject);
+begin
+  ActivateGroupBox(gbHttp, true);
+  Log((Sender as TComponent).ClassName + ' has been deactivated...');
+end;
+
+procedure TMegaDemoServerMainForm.HTTPZeroConfRegistrationRegistrationFailed(
+  Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine;
+  anException: Exception);
+begin
+  Log('ZeroConf registration failed for HTTP server: ' + anException.Message);
+end;
+
+procedure TMegaDemoServerMainForm.HTTPZeroConfRegistrationRegistrationSucceeded(
+  Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine);
+begin
+  Log('ZeroConf registration succeeded for HTTP server');
+end;
+
+procedure TMegaDemoServerMainForm.TcpServerAfterServerActivate(Sender: TObject);
+begin
+  ActivateGroupBox(gbTcp, false);
+  Log((Sender as TComponent).ClassName + ' has been activated...');
+end;
+
+procedure TMegaDemoServerMainForm.TcpServerAfterServerDeactivate(Sender: TObject);
+begin
+  ActivateGroupBox(gbTcp, true);
+  Log((Sender as TComponent).ClassName + ' has been deactivated...');
+end;
+
+procedure TMegaDemoServerMainForm.TCPZeroConfRegistrationRegistrationFailed(
+  Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine;
+  anException: Exception);
+begin
+  Log('ZeroConf registration failed for TCP server: ' + anException.Message);
+end;
+
+procedure TMegaDemoServerMainForm.TCPZeroConfRegistrationRegistrationSucceeded(
+  Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine);
+begin
+  Log('ZeroConf registration succeeded for TCP server');
+end;
+
+procedure TMegaDemoServerMainForm.WinMessageServerAfterServerActivate(Sender: TObject);
+begin
+  ActivateGroupBox(gbWinMsg, false);
+  Log((Sender as TComponent).ClassName + ' has been activated...');
+end;
+
+procedure TMegaDemoServerMainForm.WinMessageServerAfterServerDeactivate(Sender: TObject);
+begin
+  ActivateGroupBox(gbWinMsg, true);
+  Log((Sender as TComponent).ClassName + ' has been deactivated...');
+end;
+
+procedure TMegaDemoServerMainForm.cbUseCompressionClick(Sender: TObject);
+begin
+  ROBINMessage.UseCompression := cbUseCompression.Checked;
+end;
+
+procedure TMegaDemoServerMainForm.cbTCPMsgChange(Sender: TObject);
+begin
+  with TComboBox(Sender) do begin
+{$IFNDEF NO_INDY}
+    ROIndyTCPServer.Dispatchers[0].Message := TROMessage(Items.Objects[ItemIndex]);
+{$ENDIF NO_INDY}
+{$IFNDEF NO_SYNAPSE}
+    ROSynapseTCPServer.Dispatchers[0].Message := TROMessage(Items.Objects[ItemIndex]);
+{$ENDIF NO_SYNAPSE}
+    BpdxTCPServer.Dispatchers[0].Message := TROMessage(Items.Objects[ItemIndex]);
+  end;
+end;
+
+procedure TMegaDemoServerMainForm.cbWinMsgMsgChange(Sender: TObject);
+begin
+  with TComboBox(Sender) do
+    WinMessageServer.Dispatchers[0].Message :=TROMessage(Items.Objects[ItemIndex]);
+end;
+
+procedure TMegaDemoServerMainForm.bActivateTCPClick(Sender: TObject);
+begin
+{$IFNDEF NO_INDY}
+  if RbIndyTcp.Checked then begin
+    TCPZeroConfRegistration.Server := ROIndyTCPServer;
+    ROIndyTCPServer.Port := seTCPPort.Value;
+    ROIndyTCPServer.Active := true;
+  end
+  else
+{$ENDIF NO_INDY}
+{$IFNDEF NO_SYNAPSE}
+  if rbSynapseTCP.Checked then begin
+    TCPZeroConfRegistration.Server := ROSynapseTCPServer;
+    ROSynapseTCPServer.Port := seTCPPort.Value;
+    ROSynapseTCPServer.Active := true;
+  end
+  else
+{$ENDIF NO_SYNAPSE}
+  begin
+    rbBpdxTcp.Checked:= True;
+    TCPZeroConfRegistration.Server := BpdxTCPServer;
+    BpdxTCPServer.BpdxServer.ServerPort := seTCPPort.Value;
+    BpdxTCPServer.Active := true;
+    bDeactivateTcp.Enabled := false;
+    Log('Please note that BPDX Servers cannot be deactivated once they have been activated.' +
+      'This is a limitation of the BPDX Library, see the Help topic for this sample for more details.');
+  end;
+  bDeactivateTcp.Visible := true;
+  bActivateTcp.Visible := false;
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.bDeactivateTCPClick(Sender: TObject);
+begin
+  bActivateTcp.Visible := true;
+  bDeactivateTcp.Visible := false;
+
+  BpdxTCPServer.Active := false;
+{$IFNDEF NO_INDY}
+  ROIndyTCPServer.Active := false;
+{$ENDIF NO_INDY}
+{$IFNDEF NO_Synapse}
+  ROSynapseTCPServer.Active := false;
+{$ENDIF NO_INDY}
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.bActivateHTTPClick(Sender: TObject);
+begin
+{$IFNDEF NO_INDY}
+  if RbIndyHttp.Checked then begin
+    HTTPZeroConfRegistration.Server := ROIndyHTTPServer;
+    ROIndyHTTPServer.Port := seHTTPPort.Value;
+    ROIndyHTTPServer.Active := true;
+  end
+  else
+{$ENDIF NO_INDY}
+{$IFNDEF NO_SYNAPSE}
+  if rbSynapseHttp.Checked then begin
+    HTTPZeroConfRegistration.Server := ROSynapseHTTPServer;
+    ROSynapseHTTPServer.Port := seHTTPPort.Value;
+    ROSynapseHTTPServer.Active := true;
+  end
+  else
+{$ENDIF NO_SYNAPSE}
+  begin
+    rbBpdxHttp.Checked:= True;
+    HTTPZeroConfRegistration.Server := BpdxHTTPServer;
+    BpdxHTTPServer.BpdxServer.ServerPort := seHTTPPort.Value;
+    BpdxHTTPServer.Active := true;
+    bDeactivateHttp.Enabled := false;
+    Log('Please note that BPDX Servers cannot be deactivated once they have been activated.' +
+      'This is a limitation of the BPDX Library, see the Help topic for this sample for more details.');
+  end;
+  bDeactivateHttp.Visible := true;
+  bActivateHttp.Visible := false;
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.bDeactivateHTTPClick(Sender: TObject);
+begin
+  bActivateHttp.Visible := true;
+  bDeactivateHttp.Visible := false;
+
+  BpdxHTTPServer.Active := false;
+{$IFNDEF NO_INDY}
+  ROIndyHTTPServer.Active := false;
+{$ENDIF NO_INDY}
+{$IFNDEF NO_Synapse}
+  ROSynapseHTTPServer.Active := false;
+{$ENDIF NO_Synapse}
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.bActivateWinMsgClick(Sender: TObject);
+begin
+  WinMessageServer.ServerID := eServerID.Text;
+  WinMessageServer.Active := true;
+
+  bDeactivateWinMsg.Visible := true;
+  bActivateWinMsg.Visible := false;
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.bDeactivateWinMsgClick(Sender: TObject);
+begin
+  bActivateWinMsg.Visible := true;
+  bDeactivateWinMsg.Visible := false;
+  WinMessageServer.Active := false;
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.cb_EncryptClick(Sender: TObject);
+var
+  lEncryption: TROEncryptionMethod;
+begin
+  if cb_Encrypt.Checked then
+    lEncryption := tetDES
+  else
+    lEncryption := tetNone;
+
+  BpdxHttpServer.Encryption.EncryptionMethod := lEncryption;
+  BpdxTcpServer.Encryption.Assign(BpdxHttpServer.Encryption);
+{$IFNDEF NO_INDY}
+  ROIndyHttpServer.Encryption.Assign(BpdxHttpServer.Encryption);
+  ROIndyTcpServer.Encryption.Assign(BpdxHttpServer.Encryption);
+  ROIndySuperTCPServer.Encryption.Assign(BpdxHttpServer.Encryption);
+{$ENDIF NO_INDY}
+{$IFNDEF NO_Synapse}
+  ROSynapseSuperHTTPServer.Encryption.Assign(BpdxHttpServer.Encryption);
+  ROSynapseSuperTCPServer.Encryption.Assign(BpdxHttpServer.Encryption);
+  ROSynapseHTTPServer.Encryption.Assign(BpdxHttpServer.Encryption);
+  ROSynapseTCPServer.Encryption.Assign(BpdxHttpServer.Encryption);
+{$ENDIF}
+  WinMessageServer.Encryption.Assign(BpdxHttpServer.Encryption);
+end;
+
+procedure TMegaDemoServerMainForm.cb_SupportKeepAliveClick(Sender: TObject);
+begin
+  BpdxHttpServer.SupportKeepAlive := cb_SupportKeepAlive.Checked;
+{$IFNDEF NO_INDY}
+  ROIndyHttpServer.KeepAlive := cb_SupportKeepAlive.Checked;
+{$ENDIF NO_INDY}
+end;
+
+procedure TMegaDemoServerMainForm.cbDisableNagleClick(Sender: TObject);
+begin
+{$IFNDEF NO_INDY}
+  ROIndyTCPServer.DisableNagle := cbDisableNagle.Checked
+{$ENDIF NO_INDY}
+end;
+
+constructor TMegaDemoServerMainForm.Create(aOwner: TComponent);
+begin
+  inherited;
+  fCritical := TCriticalSection.Create;
+end;
+
+destructor TMegaDemoServerMainForm.Destroy;
+begin
+  fCritical.Free;
+  inherited;
+end;
+
+procedure TMegaDemoServerMainForm.CheckStatus;
+var
+  fStatus: Boolean;
+begin
+  FStatus :=
+{$IFNDEF NO_INDY}
+    ROIndyHTTPServer.Active or
+    ROIndyTCPServer.Active or
+    ROIndySuperTCPServer.Active or
+{$ENDIF NO_INDY}
+{$IFNDEF NO_Synapse}
+    ROSynapseSuperHTTPServer.Active or
+    ROSynapseSuperTCPServer.Active or
+    ROSynapseHTTPServer.Active or
+    ROSynapseTCPServer.Active or
+{$ENDIF}
+    WinMessageServer.Active or
+    BpdxHttpServer.Active or
+    BpdxTcpServer.Active;
+  if FStatus then begin
+    ErrorMemo.Visible := False;
+    Memo.Visible := True;
+  end
+  else begin
+    ErrorMemo.Visible := True;
+    Memo.Visible := False;
+  end;
+end;
+
+procedure TMegaDemoServerMainForm.MessageInitializeMessage(
+  Sender: TROMessage; const aTransport: IROTransport;
+  const anInterfaceName, aMessageName: String);
+begin
+  Log('Request via '+Sender.ClassName);
+end;
+
+procedure TMegaDemoServerMainForm.cbSuperTCPMsgChange(Sender: TObject);
+begin
+  with TComboBox(Sender) do begin
+{$IFNDEF NO_INDY}
+    ROIndySuperTCPServer.Dispatchers[0].Message := TROMessage(Items.Objects[ItemIndex]);
+{$ENDIF NO_INDY}
+{$IFNDEF NO_Synapse}
+    ROSynapseSuperTCPServer.Dispatchers[0].Message := TROMessage(Items.Objects[ItemIndex]);
+{$ENDIF NO_Synapse}    
+  end;
+end;
+
+procedure TMegaDemoServerMainForm.bDeactivateSuperTCPClick(
+  Sender: TObject);
+begin
+  bActivateSuperTcp.Visible := true;
+  bDeactivateSuperTcp.Visible := false;
+{$IFNDEF NO_INDY}
+  ROIndySuperTCPServer.Active := false;
+{$ENDIF NO_INDY}
+{$IFNDEF NO_Synapse}
+  ROSynapseSuperTCPServer.Active := false;
+{$ENDIF NO_Synapse}
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.bActivateSuperTCPClick(
+  Sender: TObject);
+var
+  fServer: TROServer;
+begin
+  fServer:=nil;
+{$IFDEF NO_Synapse}
+  rbIndySuperTCP.Checked:= True;
+{$ENDIF}
+{$IFNDEF NO_INDY}
+  if rbIndySuperTCP.Checked then begin
+    TCPZeroConfRegistration.Server := ROIndySuperTCPServer;
+    ROIndySuperTCPServer.Port := seSuperTCPPort.Value;
+    fServer := ROIndySuperTCPServer;
+  end;
+{$ELSE}
+  rbSynapseSuperTcp.Checked := True;
+{$ENDIF NO_INDY}
+
+{$IFNDEF NO_Synapse}
+  if rbSynapseSuperTcp.Checked then begin
+    TCPZeroConfRegistration.Server := ROSynapseSuperTCPServer;
+    ROSynapseSuperTCPServer.Port := seSuperTCPPort.Value;
+    fServer := ROSynapseSuperTCPServer;
+  end;
+{$ENDIF}
+  if Assigned(fServer) then begin
+    fServer.Active:= True;
+    bDeactivateSuperTcp.Visible := true;
+    bActivateSuperTcp.Visible := false;
+    CheckStatus;
+  end
+  else begin
+    ShowMessage('No Super TCP servers was found.'+sLineBreak+
+                'Please use Indy or Synapse library.');
+  end;
+end;
+
+procedure TMegaDemoServerMainForm.SuperTcpServerAfterServerActivate(
+  Sender: TObject);
+begin
+  ActivateGroupBox(gbSuperTcp, false);
+  Log((Sender as TComponent).ClassName + ' has been activated...');
+end;
+
+procedure TMegaDemoServerMainForm.SuperTcpServerAfterServerDeactivate(
+  Sender: TObject);
+begin
+  ActivateGroupBox(gbSuperTcp, true);
+  Log((Sender as TComponent).ClassName + ' has been deactivated...');
+end;
+
+procedure TMegaDemoServerMainForm.SuperHttpServerAfterServerActivate(
+  Sender: TObject);
+begin
+  ActivateGroupBox(gbSuperHTTP, false);
+  Log((Sender as TComponent).ClassName + ' has been activated...');
+end;
+
+procedure TMegaDemoServerMainForm.SuperHttpServerAfterServerDeactivate(
+  Sender: TObject);
+begin
+  ActivateGroupBox(gbSuperHTTP, true);
+  Log((Sender as TComponent).ClassName + ' has been deactivated...');
+end;
+
+procedure TMegaDemoServerMainForm.bActivateSuperHTTPClick(Sender: TObject);
+begin
+{$IFNDEF NO_Synapse}
+  HTTPZeroConfRegistration.Server := ROSynapseSuperHTTPServer;
+  ROSynapseSuperHTTPServer.Port := seSuperHTTPPort.Value;
+  ROSynapseSuperHTTPServer.Active := true;
+  bDeactivateSuperHttp.Visible := true;
+  bActivateSuperHttp.Visible := false;
+  CheckStatus;
+{$ELSE}
+  ShowMessage('No Super HTTP servers was found.'+sLineBreak+
+              'Please use Synapse library.');
+{$ENDIF}
+end;
+
+procedure TMegaDemoServerMainForm.bDeactivateSuperHTTPClick(
+  Sender: TObject);
+begin
+  bActivateSuperHttp.Visible := true;
+  bDeactivateSuperHttp.Visible := false;
+
+{$IFNDEF NO_Synapse}
+  ROSynapseSuperHTTPServer.Active := false;
+{$ENDIF}
+  CheckStatus;
+end;
+
+procedure TMegaDemoServerMainForm.bClearLogClick(Sender: TObject);
+begin
+  Memo.Lines.Clear;
+end;
+
+procedure TMegaDemoServerMainForm.cb_UseEnvelopesClick(Sender: TObject);
+
+  procedure SetupMessage(AMessage: TROMessage);
+  var
+    i: integer;
+  begin
+    with AMessage.Envelopes do
+      for i:=0 to Count -1 do
+        Items[i].Enabled := cb_UseEnvelopes.Checked;
+  end;
+
+begin
+  SetupMessage(ROServerMultiMessage);
+  SetupMessage(ROBINMessage);
+  SetupMessage(ROSOAPMessage);
+  SetupMessage(ROPostMessage);
+  SetupMessage(ROXmlRpcMessage);
+end;
+
+procedure TMegaDemoServerMainForm.ROAESEncryptionEnvelopeBeforeEnvelopeProcessed(
+  AMessageEnvelope: TROMessageEnvelope; AStream: TStream;
+  aMode: TROMessageEnvelopeMode; AMessage: IROMessage);
+begin
+  case aMode of
+    memIncoming: Log(AMessageEnvelope.Name+' : processing incoming message');
+    memOutgoing: Log(AMessageEnvelope.Name+' : processing outgoing message');
+  end;  
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoService_Impl.dfm
new file mode 100644
index 0000000..b0eed90
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoService_Impl.dfm	
@@ -0,0 +1,6 @@
+object MegaDemoService: TMegaDemoService
+  OldCreateOrder = True
+  OnDeactivate = RORemoteDataModuleDeactivate
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoService_Impl.pas
new file mode 100644
index 0000000..c8155d0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/MegaDemoService_Impl.pas	
@@ -0,0 +1,179 @@
+unit MegaDemoService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} MegaDemoLibrary_Intf;
+
+type
+  { TMegaDemoService }
+  TMegaDemoService = class(TRORemoteDataModule, IMegaDemoService)
+    procedure RORemoteDataModuleDeactivate(const aClientID: TGUID;
+      aSession: TROSession);
+  private
+  protected
+    { IMegaDemoService methods }
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    procedure EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+    function TestIntegerArray(const anArray: TIntegerArray): TIntegerArray;
+    function TestStringArray(const anArray: TStringArray): TStringArray;
+    function TestPersonArray(const anArray: TPersonArray): TPersonArray;
+    procedure EchoBinary(const BinIN: binary; out BinOUT: Binary);
+    procedure SomeTypes(var aString: Ansistring; var aWidestring: Widestring; var anInteger: Integer; var
+      aCurrency: Currency; var aDatetime: DateTime);
+    function CustomObjectAsString: Ansistring;
+    function CustomObjectAsStream: Binary;
+    procedure RaiseError;
+    procedure RaiseTestException;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} MegaDemoLibrary_Invk, MegaDemoServerMain,
+  MegaDemoCustomClass, uROXMLSerializer, uROStreamSerializer;
+
+procedure Create_MegaDemoService(out anInstance: IUnknown);
+begin
+  anInstance := TMegaDemoService.Create(nil);
+end;
+
+{ MegaService }
+
+function TMegaDemoService.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  result := A + B;
+end;
+
+function TMegaDemoService.GetServerTime: DateTime;
+begin
+  result := Now;
+end;
+
+procedure TMegaDemoService.EchoPerson(const aPerson: TPerson; out anotherPerson: TPerson);
+begin
+  anotherPerson := TPerson.Create;
+
+  anotherPerson.FirstName := aPerson.FirstName;
+  anotherPerson.LastName := aPerson.LastName;
+  anotherPerson.Age := aPerson.Age;
+  anotherPerson.Sex := aPerson.Sex;
+end;
+
+function TMegaDemoService.TestIntegerArray(const anArray: TIntegerArray): TIntegerArray;
+var
+  i: integer;
+begin
+  result := TIntegerArray.Create;
+  for i := 0 to anArray.Count - 1 do
+    result.Add(anArray[i]);
+end;
+
+function TMegaDemoService.TestStringArray(const anArray: TStringArray): TStringArray;
+var
+  i: integer;
+begin
+  result := TStringArray.Create;
+  for i := 0 to anArray.Count - 1 do
+    result.Add(anArray[i]);
+end;
+
+function TMegaDemoService.TestPersonArray(const anArray: TPersonArray): TPersonArray;
+var
+  i: integer;
+begin
+  result := TPersonArray.Create;
+  for i := 0 to anArray.Count - 1 do begin
+    with result.Add do begin
+      FirstName := anArray[i].FirstName;
+      LastName := anArray[i].LastName;
+      Age := anArray[i].Age;
+      Sex := anArray[i].Sex;
+    end;
+  end;
+end;
+
+procedure TMegaDemoService.EchoBinary(const BinIN: binary; out BinOUT: Binary);
+begin
+  BinOut := Binary.Create;
+  BinOUT.CopyFrom(BinIN, BinIN.Size);
+end;
+
+procedure TMegaDemoService.SomeTypes(var aString: Ansistring; var aWidestring: Widestring; var anInteger:
+  Integer; var aCurrency: Currency; var aDatetime: DateTime);
+begin
+  aString := 'received aString: "' + aString + '"';
+  aWidestring := 'received aWideString "' + aWideString + '"';
+  anInteger := anInteger * 2;
+  aCurrency := aCurrency * 2;
+  aDatetime := Now;
+end;
+
+function TMegaDemoService.CustomObjectAsString: Ansistring;
+var
+  cls: TCustomClass;
+begin
+  result := '';
+
+  cls := NewCustomClass;
+  try
+    result := AnsiString(ObjectToXML(cls));
+  finally
+    cls.Free;
+  end;
+end;
+
+function TMegaDemoService.CustomObjectAsStream: Binary;
+var
+  cls: TCustomClass;
+begin
+  result := Binary.Create;
+
+  cls := NewCustomClass;
+  try
+    ObjectToStream(cls, result);
+  finally
+    cls.Free;
+  end;
+end;
+
+procedure TMegaDemoService.RaiseError;
+begin
+  // Generic and unregistered exceptions
+  raise EDivByZero.Create('A fake div by zero!');
+end;
+
+procedure TMegaDemoService.RaiseTestException;
+begin
+  raise ETestException.Create('This is the exception message '+ ' ������ �����!', 666, '������!');
+end;
+
+procedure TMegaDemoService.RORemoteDataModuleDeactivate(const aClientID: TGUID;
+  aSession: TROSession);
+begin
+  if Assigned(MegaDemoServerMainForm) then MegaDemoServerMainForm.Log('Complete!');
+end;
+
+var
+  fClassFactory: IROClassFactory;
+
+initialization
+  fClassFactory := TROClassFactory.Create('MegaDemoService', Create_MegaDemoService, TMegaDemoService_Invoker);
+  RegisterForZeroConf(fClassFactory, '_MegaDemoService_rosdk._tcp.');
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/RODLFile.RES b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/RODLFile.RES
new file mode 100644
index 0000000..bf5d731
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/MegaDemo/RODLFile.RES differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes.Sample.html
new file mode 100644
index 0000000..fa9f6f0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes.Sample.html	
@@ -0,0 +1,28 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Message Envelopes Sample</span> 
+</p>
+
+<h2>Purpose</h2>
+
+<p>This example illustrates usage <b>message envelopes</b>.</p>
+<p>At using message envelopes, result stream contains only envelope marker and encrypted ouput stream so
+   if correspondent envelope isn't found at other-side, the exception will be raised.</p> 
+   
+<h2>Testing</h2>
+<ul>
+  <li>Test example with different combinations of predefined envelopes</li>
+  <li>Change server and client envelopes (create/update/delete) and test again.</li> 
+</ul>
+</p>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes.bpg
new file mode 100644
index 0000000..acc18fe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = MessageEnvelopes_Server.exe MessageEnvelopes_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+MessageEnvelopes_Server.exe: MessageEnvelopes_Server.dpr
+  $(DCC)
+
+MessageEnvelopes_Client.exe: MessageEnvelopes_Client.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary.RODL b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary.RODL
new file mode 100644
index 0000000..3ae3367
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary.RODL	
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="MessageEnvelopesLibrary" UID="{9FBE9FFC-D17D-4D9C-840E-949F7EEB9FC2}" Version="3.0">
+<Services>
+<Service Name="MessageEnvelopesService" UID="{FA1E8665-5FCF-4680-BF1F-7D6E4F2F1C1C}">
+<Interfaces>
+<Interface Name="Default" UID="{D20EC6CD-45A8-4C62-8114-EE02C3FDF979}">
+<Documentation><![CDATA[Service NewService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="Echo" UID="{4E8EBEAE-DCCF-4DB8-921C-C7C7C778658D}">
+<Parameters>
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
+</Parameter>
+<Parameter Name="AStr" DataType="AnsiString" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary_Intf.pas
new file mode 100644
index 0000000..157e014
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary_Intf.pas	
@@ -0,0 +1,98 @@
+unit MessageEnvelopesLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{9FBE9FFC-D17D-4D9C-840E-949F7EEB9FC2}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IMessageEnvelopesService_IID : TGUID = '{D20EC6CD-45A8-4C62-8114-EE02C3FDF979}';
+
+  { Event ID's }
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  IMessageEnvelopesService = interface;
+
+
+  { IMessageEnvelopesService }
+  IMessageEnvelopesService = interface
+    ['{D20EC6CD-45A8-4C62-8114-EE02C3FDF979}']
+    function Echo(const AStr: AnsiString): AnsiString;
+  end;
+
+  { CoMessageEnvelopesService }
+  CoMessageEnvelopesService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMessageEnvelopesService;
+  end;
+
+  { TMessageEnvelopesService_Proxy }
+  TMessageEnvelopesService_Proxy = class(TROProxy, IMessageEnvelopesService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Echo(const AStr: AnsiString): AnsiString;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoMessageEnvelopesService }
+
+class function CoMessageEnvelopesService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMessageEnvelopesService;
+begin
+  result := TMessageEnvelopesService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TMessageEnvelopesService_Proxy }
+
+function TMessageEnvelopesService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'MessageEnvelopesService';
+end;
+
+function TMessageEnvelopesService_Proxy.Echo(const AStr: AnsiString): AnsiString;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MessageEnvelopesLibrary', __InterfaceName, 'Echo');
+    __Message.Write('AStr', TypeInfo(AnsiString), AStr, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IMessageEnvelopesService_IID, TMessageEnvelopesService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IMessageEnvelopesService_IID);
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary_Invk.pas
new file mode 100644
index 0000000..7189440
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesLibrary_Invk.pas	
@@ -0,0 +1,65 @@
+unit MessageEnvelopesLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} MessageEnvelopesLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TMessageEnvelopesService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Echo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TMessageEnvelopesService_Invoker }
+
+constructor TMessageEnvelopesService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TMessageEnvelopesService_Invoker.Invoke_Echo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Echo(const AStr: AnsiString): AnsiString; }
+var
+  AStr: AnsiString;
+  lResult: AnsiString;
+begin
+  try
+    __Message.Read('AStr', TypeInfo(AnsiString), AStr, []);
+
+    lResult := (__Instance as IMessageEnvelopesService).Echo(AStr);
+
+    __Message.InitializeResponseMessage(__Transport, 'MessageEnvelopesLibrary', 'MessageEnvelopesService', 'EchoResponse');
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesService_Impl.dfm
new file mode 100644
index 0000000..d0cd297
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesService_Impl.dfm	
@@ -0,0 +1,7 @@
+object MessageEnvelopesService: TMessageEnvelopesService
+  OldCreateOrder = True
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesService_Impl.pas
new file mode 100644
index 0000000..05eb313
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopesService_Impl.pas	
@@ -0,0 +1,56 @@
+unit MessageEnvelopesService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} MessageEnvelopesLibrary_Intf;
+
+type
+  { TMessageEnvelopesService }
+  TMessageEnvelopesService = class(TRORemoteDataModule, IMessageEnvelopesService)
+  private
+  protected
+    { IMessageEnvelopesService methods }
+    function Echo(const AStr: AnsiString): AnsiString;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} MessageEnvelopesLibrary_Invk, MessageEnvelopes_ServerMain;
+
+procedure Create_MessageEnvelopesService(out anInstance : IUnknown);
+begin
+  anInstance := TMessageEnvelopesService.Create(nil);
+end;
+
+{ MessageEnvelopesService }
+function TMessageEnvelopesService.Echo(const AStr: AnsiString): AnsiString;
+begin
+  MessageEnvelopes_ServerMainForm.Log('Received: '+string(AStr));
+  Result := AStr;
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('MessageEnvelopesService', Create_MessageEnvelopesService, TMessageEnvelopesService_Invoker);
+
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_AddEnvelope.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_AddEnvelope.dfm
new file mode 100644
index 0000000..ca327a2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_AddEnvelope.dfm	
@@ -0,0 +1,60 @@
+object MessageEnvelopes_AddEnvelopeForm: TMessageEnvelopes_AddEnvelopeForm
+  Left = 666
+  Top = 360
+  Width = 330
+  Height = 164
+  Color = clBtnFace
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 7
+    Top = 8
+    Width = 33
+    Height = 13
+    Caption = 'Marker'
+  end
+  object Label2: TLabel
+    Left = 7
+    Top = 50
+    Width = 46
+    Height = 13
+    Caption = 'Password'
+  end
+  object eMarker: TEdit
+    Left = 7
+    Top = 24
+    Width = 301
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 0
+  end
+  object ePassword: TEdit
+    Left = 7
+    Top = 66
+    Width = 301
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 1
+  end
+  object bOk: TButton
+    Left = 74
+    Top = 94
+    Width = 75
+    Height = 22
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 2
+  end
+  object bCancel: TButton
+    Left = 162
+    Top = 94
+    Width = 75
+    Height = 22
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 3
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_AddEnvelope.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_AddEnvelope.pas
new file mode 100644
index 0000000..d0b5738
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_AddEnvelope.pas	
@@ -0,0 +1,61 @@
+unit MessageEnvelopes_AddEnvelope;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  TMessageEnvelopes_AddEnvelopeForm = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
+    eMarker: TEdit;
+    ePassword: TEdit;
+    bOk: TButton;
+    bCancel: TButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MessageEnvelopes_AddEnvelopeForm: TMessageEnvelopes_AddEnvelopeForm;
+
+function AddAESEnvelope(var AMarker, APassword: string): Boolean;
+function UpdateAESEnvelope(var AMarker, APassword: string): Boolean;
+
+implementation
+
+{$R *.dfm}
+function ShowEnvelopeForm(AUpdateMode: Boolean;var AMarker, APassword: string): Boolean;
+begin
+  with TMessageEnvelopes_AddEnvelopeForm.Create(Application) do try
+    if AUpdateMode then
+      Caption := 'Update Envelope'
+    else
+      Caption := 'Add Envelope';
+    eMarker.Text := AMarker;
+    ePassword.Text := APassword;
+    Result:= ShowModal = mrOk;
+    if Result then begin
+      AMarker := eMarker.Text;
+      APassword := ePassword.Text;
+    end;
+  finally
+    Release;
+  end;
+end;
+
+function AddAESEnvelope(var AMarker, APassword: string): Boolean;
+begin
+  Result:= ShowEnvelopeForm(False,AMarker,APassword);
+end;
+
+function UpdateAESEnvelope(var AMarker, APassword: string): Boolean;
+begin
+  Result:= ShowEnvelopeForm(True,AMarker,APassword);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Client.dpr
new file mode 100644
index 0000000..06da221
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Client.dpr	
@@ -0,0 +1,17 @@
+program MessageEnvelopes_Client;
+
+uses
+  uROComInit,
+  Forms,
+  MessageEnvelopes_ClientMain in 'MessageEnvelopes_ClientMain.pas' {MessageEnvelopes_ClientMainForm},
+  MessageEnvelopes_AddEnvelope in 'MessageEnvelopes_AddEnvelope.pas' {MessageEnvelopes_AddEnvelopeForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Message Envelopes Client';
+  Application.CreateForm(TMessageEnvelopes_ClientMainForm, MessageEnvelopes_ClientMainForm);
+  Application.CreateForm(TMessageEnvelopes_AddEnvelopeForm, MessageEnvelopes_AddEnvelopeForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Client.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Client.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ClientMain.dfm
new file mode 100644
index 0000000..ada7803
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ClientMain.dfm	
@@ -0,0 +1,224 @@
+object MessageEnvelopes_ClientMainForm: TMessageEnvelopes_ClientMainForm
+  Left = 513
+  Top = 264
+  Width = 389
+  Height = 413
+  BorderIcons = [biSystemMenu]
+  Caption = 'Message Envelopes Client'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 373
+    Height = 153
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      373
+      153)
+    object Label1: TLabel
+      Left = 9
+      Top = 11
+      Width = 53
+      Height = 13
+      Caption = 'Envelopes:'
+    end
+    object bMoveDown: TButton
+      Left = 292
+      Top = 128
+      Width = 75
+      Height = 22
+      Action = aMoveDown
+      Anchors = [akTop, akRight]
+      TabOrder = 5
+    end
+    object bMoveUp: TButton
+      Left = 292
+      Top = 104
+      Width = 75
+      Height = 22
+      Action = aMoveUp
+      Anchors = [akTop, akRight]
+      TabOrder = 4
+    end
+    object bDelete: TButton
+      Left = 292
+      Top = 80
+      Width = 75
+      Height = 22
+      Action = aDelete
+      Anchors = [akTop, akRight]
+      TabOrder = 3
+    end
+    object bUpdate: TButton
+      Left = 292
+      Top = 56
+      Width = 75
+      Height = 22
+      Action = aUpdate
+      Anchors = [akTop, akRight]
+      TabOrder = 2
+    end
+    object bAdd: TButton
+      Left = 292
+      Top = 32
+      Width = 75
+      Height = 22
+      Action = aAdd
+      Anchors = [akTop, akRight]
+      TabOrder = 1
+    end
+    object CheckListBox1: TCheckListBox
+      Left = 9
+      Top = 32
+      Width = 276
+      Height = 118
+      OnClickCheck = CheckListBox1ClickCheck
+      Anchors = [akLeft, akTop, akRight]
+      ItemHeight = 13
+      TabOrder = 0
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 217
+    Width = 373
+    Height = 160
+    Align = alClient
+    BevelOuter = bvNone
+    TabOrder = 2
+    DesignSize = (
+      373
+      160)
+    object bClearLog: TButton
+      Left = 292
+      Top = 129
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = 'Clear Log'
+      TabOrder = 1
+      OnClick = bClearLogClick
+    end
+    object Memo1: TMemo
+      Left = 9
+      Top = 2
+      Width = 275
+      Height = 153
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      ScrollBars = ssVertical
+      TabOrder = 0
+    end
+  end
+  object Panel3: TPanel
+    Left = 0
+    Top = 153
+    Width = 373
+    Height = 64
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 1
+    DesignSize = (
+      373
+      64)
+    object Label2: TLabel
+      Left = 338
+      Top = 42
+      Width = 24
+      Height = 13
+      Caption = 'times'
+    end
+    object Edit1: TEdit
+      Left = 9
+      Top = 11
+      Width = 275
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 0
+      Text = 'Test phrase'
+    end
+    object bTest: TButton
+      Left = 9
+      Top = 37
+      Width = 103
+      Height = 22
+      Caption = 'Run Test once'
+      TabOrder = 1
+      OnClick = aTestExecute
+    end
+    object bRandomTest: TButton
+      Left = 117
+      Top = 37
+      Width = 167
+      Height = 22
+      Caption = 'Run test via random envelope'
+      TabOrder = 2
+      OnClick = bRandomTestClick
+    end
+    object SpinEdit1: TSpinEdit
+      Left = 290
+      Top = 37
+      Width = 43
+      Height = 22
+      MaxValue = 999
+      MinValue = 1
+      TabOrder = 3
+      Value = 5
+    end
+  end
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 212
+    Top = 40
+  end
+  object ROChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 184
+    Top = 40
+  end
+  object RORemoteService: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'NewService'
+    Left = 240
+    Top = 40
+  end
+  object ActionList1: TActionList
+    Left = 152
+    Top = 40
+    object aAdd: TAction
+      Caption = 'Add'
+      OnExecute = bAddClick
+    end
+    object aUpdate: TAction
+      Caption = 'Update'
+      OnExecute = aUpdateExecute
+      OnUpdate = aDeleteUpdate
+    end
+    object aDelete: TAction
+      Caption = 'Delete'
+      OnExecute = aDeleteExecute
+      OnUpdate = aDeleteUpdate
+    end
+    object aMoveUp: TAction
+      Caption = 'Move Up'
+      OnExecute = aMoveUpExecute
+      OnUpdate = aMoveUpUpdate
+    end
+    object aMoveDown: TAction
+      Caption = 'Move Down'
+      OnExecute = aMoveDownExecute
+      OnUpdate = aMoveDownUpdate
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ClientMain.pas
new file mode 100644
index 0000000..97ecf90
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ClientMain.pas	
@@ -0,0 +1,228 @@
+unit MessageEnvelopes_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+  ToolWin, ComCtrls, CheckLst, ExtCtrls, ActnList, uROEncryptionEnvelope,
+  Spin;
+
+type
+  TMessageEnvelopes_ClientMainForm = class(TForm)
+    ROMessage: TROBinMessage;
+    ROChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    ActionList1: TActionList;
+    aAdd: TAction;
+    aUpdate: TAction;
+    aDelete: TAction;
+    aMoveUp: TAction;
+    aMoveDown: TAction;
+    Panel1: TPanel;
+    bMoveDown: TButton;
+    bMoveUp: TButton;
+    bDelete: TButton;
+    bUpdate: TButton;
+    bAdd: TButton;
+    CheckListBox1: TCheckListBox;
+    Label1: TLabel;
+    Panel2: TPanel;
+    bClearLog: TButton;
+    Memo1: TMemo;
+    Panel3: TPanel;
+    Edit1: TEdit;
+    bTest: TButton;
+    bRandomTest: TButton;
+    SpinEdit1: TSpinEdit;
+    Label2: TLabel;
+    procedure bClearLogClick(Sender: TObject);
+    procedure aTestExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure aDeleteExecute(Sender: TObject);
+    procedure aDeleteUpdate(Sender: TObject);
+    procedure CheckListBox1ClickCheck(Sender: TObject);
+    procedure aMoveUpUpdate(Sender: TObject);
+    procedure aMoveUpExecute(Sender: TObject);
+    procedure aMoveDownExecute(Sender: TObject);
+    procedure aMoveDownUpdate(Sender: TObject);
+    procedure bAddClick(Sender: TObject);
+    procedure aUpdateExecute(Sender: TObject);
+    procedure bRandomTestClick(Sender: TObject);
+  private
+    { Private declarations }
+    procedure Log(AStr: string);
+    procedure CreateAESEnvelope(AMarker, APass: String; AEnabled: Boolean);
+    procedure DoBeforeEnvelopeProcessed(
+      AMessageEnvelope: TROMessageEnvelope; AStream: TStream;
+      aMode: TROMessageEnvelopeMode; AMessage: IROMessage);
+    function GenerateString(AMessageEnvelope: TROAESEncryptionEnvelope): String;      
+  public
+    { Public declarations }
+  end;
+
+var
+  MessageEnvelopes_ClientMainForm: TMessageEnvelopes_ClientMainForm;
+
+implementation
+
+
+uses MessageEnvelopesLibrary_Intf, MessageEnvelopes_AddEnvelope, Math;
+
+{$R *.dfm}
+
+procedure TMessageEnvelopes_ClientMainForm.bClearLogClick(Sender: TObject);
+begin
+  Memo1.Clear;
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.aTestExecute(Sender: TObject);
+begin
+  if (RORemoteService as IMessageEnvelopesService).Echo(Ansistring(Edit1.Text)) = Ansistring(Edit1.Text) then
+    Log('Echo is OK!');
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.Log(AStr: string);
+begin
+  Memo1.Lines.Add(AStr);
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.FormCreate(Sender: TObject);
+begin
+  CreateAESEnvelope('Marker A','Password A',True);
+  CheckListBox1.ItemIndex := 0;
+  CreateAESEnvelope('Marker B','Password B',False);
+  CreateAESEnvelope('Marker C','Password C',False);
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.CreateAESEnvelope(AMarker, APass: String; AEnabled: Boolean);
+var
+  lEnv: TROAESEncryptionEnvelope;
+begin
+  lEnv := TROAESEncryptionEnvelope.Create(nil);
+  with lEnv do begin
+    Password := APass;
+    EnvelopeMarker := AMarker;
+    BeforeEnvelopeProcessed := DoBeforeEnvelopeProcessed;
+  end;
+  with TROMessageEnvelopeItem(ROMessage.Envelopes.Add) do begin
+    Envelope := lEnv;
+    Enabled := AEnabled;
+  end;
+  CheckListBox1.AddItem(GenerateString(lEnv),lEnv);
+  CheckListBox1.Checked[CheckListBox1.Count-1]:=AEnabled;
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.aDeleteExecute(Sender: TObject);
+var
+  lEnv: TROMessageEnvelope;
+begin
+  lEnv := TROMessageEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  CheckListBox1.Items.Delete(CheckListBox1.ItemIndex);
+  ROMessage.Envelopes.Delete(ROMessage.Envelopes.ItemByEnvelope(lEnv).Index);
+  lEnv.Free;
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.aDeleteUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := CheckListBox1.ItemIndex <> -1;
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.CheckListBox1ClickCheck(Sender: TObject);
+var
+  lEnv: TROMessageEnvelope;
+begin
+  lEnv := TROMessageEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  ROMessage.Envelopes.ItemByEnvelope(lEnv).Enabled := CheckListBox1.Checked[CheckListBox1.ItemIndex];
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.aMoveUpUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := (CheckListBox1.ItemIndex > 0);
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.aMoveUpExecute(Sender: TObject);
+var
+  lEnv: TROMessageEnvelope;
+begin
+  lEnv := TROMessageEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  with ROMessage.Envelopes.ItemByEnvelope(lEnv) do
+    Index := Index -1;
+  CheckListBox1.Items.Exchange(CheckListBox1.ItemIndex, CheckListBox1.ItemIndex-1);
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.aMoveDownExecute(Sender: TObject);
+var
+  lEnv: TROMessageEnvelope;
+begin
+  lEnv := TROMessageEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  with ROMessage.Envelopes.ItemByEnvelope(lEnv) do
+    Index := Index +1;
+  CheckListBox1.Items.Exchange(CheckListBox1.ItemIndex, CheckListBox1.ItemIndex+1);
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.aMoveDownUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := (CheckListBox1.ItemIndex <> -1) and (CheckListBox1.ItemIndex <> CheckListBox1.Count-1);
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.DoBeforeEnvelopeProcessed(
+  AMessageEnvelope: TROMessageEnvelope; AStream: TStream;
+  aMode: TROMessageEnvelopeMode; AMessage: IROMessage);
+begin
+  case aMode of
+    memIncoming: Log(AMessageEnvelope.EnvelopeMarker+' : processing incoming message');
+    memOutgoing: Log(AMessageEnvelope.EnvelopeMarker+' : processing outgoing message');
+  end;
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.bAddClick(Sender: TObject);
+var
+  lMarker, lPassword: string;
+begin
+  lMarker := 'Marker '+ inttoStr(CheckListBox1.Count+1);
+  lPassword := 'Password '+ inttoStr(CheckListBox1.Count+1);
+  if AddAESEnvelope(lMarker,lPassword) then
+    CreateAESEnvelope(lMarker,lPassword,True);
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.aUpdateExecute(Sender: TObject);
+var
+  lEnv: TROAESEncryptionEnvelope;
+  lMarker, lPassword: string;
+begin
+  lEnv := TROAESEncryptionEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  lMarker :=lEnv.EnvelopeMarker;
+  lPassword := lEnv.Password;
+  if UpdateAESEnvelope(lMarker,lPassword) then begin
+    lEnv.EnvelopeMarker := lMarker;
+    lEnv.Password := lPassword;
+    CheckListBox1.Items[CheckListBox1.ItemIndex] := GenerateString(lEnv);
+  end;
+end;
+
+procedure TMessageEnvelopes_ClientMainForm.bRandomTestClick(Sender: TObject);
+var
+  i,j: integer;
+begin
+  for j := 0 to SpinEdit1.Value -1 do begin
+    For i:= 0 to CheckListBox1.Count -1 do begin
+      CheckListBox1.Checked[i] := False;
+      ROMessage.Envelopes[i].Enabled := False;
+    end;
+    if CheckListBox1.Count > 0 then begin
+      i := RandomRange(0, CheckListBox1.Count-1);
+      CheckListBox1.Checked[i] := True;
+      ROMessage.Envelopes[i].Enabled := True;
+      aTestExecute(bTest);
+    end;
+  end;
+end;
+
+function TMessageEnvelopes_ClientMainForm.GenerateString(
+  AMessageEnvelope: TROAESEncryptionEnvelope): String;
+begin
+  Result := AMessageEnvelope.EnvelopeMarker + ' [ password = ''' + AMessageEnvelope.Password+''' ]'
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Server.dpr
new file mode 100644
index 0000000..fa43e95
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Server.dpr	
@@ -0,0 +1,23 @@
+program MessageEnvelopes_Server;
+
+{#ROGEN:MessageEnvelopesLibrary.RODL} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  MessageEnvelopes_ServerMain in 'MessageEnvelopes_ServerMain.pas' {MessageEnvelopes_ServerMainForm},
+  MessageEnvelopesLibrary_Intf in 'MessageEnvelopesLibrary_Intf.pas',
+  MessageEnvelopesLibrary_Invk in 'MessageEnvelopesLibrary_Invk.pas',
+  MessageEnvelopesService_Impl in 'MessageEnvelopesService_Impl.pas' {MessageEnvelopesService: TRORemoteDataModule},
+  MessageEnvelopes_AddEnvelope in 'MessageEnvelopes_AddEnvelope.pas' {MessageEnvelopes_AddEnvelopeForm};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Message Envelopes Server';
+  Application.CreateForm(TMessageEnvelopes_ServerMainForm, MessageEnvelopes_ServerMainForm);
+  Application.CreateForm(TMessageEnvelopes_AddEnvelopeForm, MessageEnvelopes_AddEnvelopeForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Server.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Server.res
new file mode 100644
index 0000000..95e15d9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ServerMain.dfm
new file mode 100644
index 0000000..40401e2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ServerMain.dfm	
@@ -0,0 +1,173 @@
+object MessageEnvelopes_ServerMainForm: TMessageEnvelopes_ServerMainForm
+  Left = 545
+  Top = 360
+  Width = 411
+  Height = 407
+  BorderIcons = [biSystemMenu]
+  Caption = 'Message Envelopes Server'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 153
+    Width = 395
+    Height = 218
+    Align = alClient
+    BevelOuter = bvNone
+    TabOrder = 1
+    DesignSize = (
+      395
+      218)
+    object bClearLog: TButton
+      Left = 314
+      Top = 187
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = 'Clear Log'
+      TabOrder = 0
+    end
+    object Memo1: TMemo
+      Left = 9
+      Top = 2
+      Width = 297
+      Height = 211
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      ScrollBars = ssVertical
+      TabOrder = 1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 395
+    Height = 153
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      395
+      153)
+    object Label1: TLabel
+      Left = 9
+      Top = 11
+      Width = 53
+      Height = 13
+      Caption = 'Envelopes:'
+    end
+    object bMoveDown: TButton
+      Left = 314
+      Top = 128
+      Width = 75
+      Height = 22
+      Action = aMoveDown
+      Anchors = [akTop, akRight]
+      TabOrder = 5
+    end
+    object bMoveUp: TButton
+      Left = 314
+      Top = 104
+      Width = 75
+      Height = 22
+      Action = aMoveUp
+      Anchors = [akTop, akRight]
+      TabOrder = 4
+    end
+    object bDelete: TButton
+      Left = 314
+      Top = 80
+      Width = 75
+      Height = 22
+      Action = aDelete
+      Anchors = [akTop, akRight]
+      TabOrder = 3
+    end
+    object bUpdate: TButton
+      Left = 314
+      Top = 56
+      Width = 75
+      Height = 22
+      Action = aUpdate
+      Anchors = [akTop, akRight]
+      TabOrder = 2
+    end
+    object bAdd: TButton
+      Left = 314
+      Top = 32
+      Width = 75
+      Height = 22
+      Action = aAdd
+      Anchors = [akTop, akRight]
+      TabOrder = 1
+    end
+    object CheckListBox1: TCheckListBox
+      Left = 9
+      Top = 32
+      Width = 298
+      Height = 118
+      OnClickCheck = CheckListBox1ClickCheck
+      Anchors = [akLeft, akTop, akRight]
+      ItemHeight = 13
+      TabOrder = 0
+    end
+  end
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 52
+    Top = 96
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 24
+    Top = 96
+  end
+  object ActionList1: TActionList
+    Left = 152
+    Top = 40
+    object aAdd: TAction
+      Caption = 'Add'
+      OnExecute = aAddExecute
+    end
+    object aUpdate: TAction
+      Caption = 'Update'
+      OnExecute = aUpdateExecute
+      OnUpdate = aUpdateUpdate
+    end
+    object aDelete: TAction
+      Caption = 'Delete'
+      OnExecute = aDeleteExecute
+    end
+    object aMoveUp: TAction
+      Caption = 'Move Up'
+      OnExecute = aMoveUpExecute
+      OnUpdate = aMoveUpUpdate
+    end
+    object aMoveDown: TAction
+      Caption = 'Move Down'
+      OnExecute = aMoveDownExecute
+      OnUpdate = aMoveDownUpdate
+    end
+    object aTest: TAction
+      Caption = 'Test'
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ServerMain.pas
new file mode 100644
index 0000000..745e418
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/MessageEnvelopes_ServerMain.pas	
@@ -0,0 +1,229 @@
+unit MessageEnvelopes_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, ActnList, CheckLst,
+  ExtCtrls, uROEncryptionEnvelope;
+
+const
+  WM_LOG_MESSAGE = WM_APP + 1;
+type
+  TMessageEnvelopes_ServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    Panel2: TPanel;
+    bClearLog: TButton;
+    Memo1: TMemo;
+    Panel1: TPanel;
+    Label1: TLabel;
+    bMoveDown: TButton;
+    bMoveUp: TButton;
+    bDelete: TButton;
+    bUpdate: TButton;
+    bAdd: TButton;
+    CheckListBox1: TCheckListBox;
+    ActionList1: TActionList;
+    aAdd: TAction;
+    aUpdate: TAction;
+    aDelete: TAction;
+    aMoveUp: TAction;
+    aMoveDown: TAction;
+    aTest: TAction;
+    procedure FormCreate(Sender: TObject);
+    procedure aAddExecute(Sender: TObject);
+    procedure aUpdateExecute(Sender: TObject);
+    procedure aUpdateUpdate(Sender: TObject);
+    procedure aDeleteExecute(Sender: TObject);
+    procedure aMoveUpUpdate(Sender: TObject);
+    procedure aMoveUpExecute(Sender: TObject);
+    procedure aMoveDownUpdate(Sender: TObject);
+    procedure aMoveDownExecute(Sender: TObject);
+    procedure CheckListBox1ClickCheck(Sender: TObject);
+  private
+    { Private declarations }
+  protected
+    procedure WMLog(var Message: TMessage); message WM_LOG_MESSAGE;
+    procedure CreateAESEnvelope(AMarker, APass: String; AEnabled: Boolean);
+    procedure DoBeforeEnvelopeProcessed(
+      AMessageEnvelope: TROMessageEnvelope; AStream: TStream;
+      aMode: TROMessageEnvelopeMode; AMessage: IROMessage);
+    function GenerateString(AMessageEnvelope: TROAESEncryptionEnvelope): String;
+  public
+    { Public declarations }
+    Procedure Log(Astr: string);
+  end;
+
+var
+  MessageEnvelopes_ServerMainForm: TMessageEnvelopes_ServerMainForm;
+
+implementation
+
+uses
+  MessageEnvelopes_AddEnvelope;
+{$R *.dfm}
+
+procedure TMessageEnvelopes_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+  CreateAESEnvelope('Marker A','Password A',True);
+  CheckListBox1.ItemIndex := 0;
+  CreateAESEnvelope('Marker B','Password B',False);
+  CreateAESEnvelope('Marker C','Password C',False);
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.aAddExecute(Sender: TObject);
+var
+  lMarker, lPassword: string;
+begin
+  lMarker := 'Marker '+ inttoStr(CheckListBox1.Count+1);
+  lPassword := 'Password '+ inttoStr(CheckListBox1.Count+1);
+  if AddAESEnvelope(lMarker,lPassword) then
+    CreateAESEnvelope(lMarker,lPassword,True);
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.aUpdateExecute(Sender: TObject);
+var
+  lEnv: TROAESEncryptionEnvelope;
+  lMarker, lPassword: string;
+begin
+  lEnv := TROAESEncryptionEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  lMarker :=lEnv.EnvelopeMarker;
+  lPassword := lEnv.Password;
+  if UpdateAESEnvelope(lMarker,lPassword) then begin
+    lEnv.EnvelopeMarker := lMarker;
+    lEnv.Password := lPassword;
+    CheckListBox1.Items[CheckListBox1.ItemIndex] := GenerateString(lEnv);
+  end;
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.aUpdateUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := CheckListBox1.ItemIndex <> -1;
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.aDeleteExecute(Sender: TObject);
+var
+  lEnv: TROMessageEnvelope;
+begin
+  lEnv := TROMessageEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  CheckListBox1.Items.Delete(CheckListBox1.ItemIndex);
+  ROMessage.Envelopes.Delete(ROMessage.Envelopes.ItemByEnvelope(lEnv).Index);
+  lEnv.Free;
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.aMoveUpUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := (CheckListBox1.ItemIndex > 0);
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.aMoveUpExecute(Sender: TObject);
+var
+  lEnv: TROMessageEnvelope;
+begin
+  lEnv := TROMessageEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  with ROMessage.Envelopes.ItemByEnvelope(lEnv) do
+    Index := Index -1;
+  CheckListBox1.Items.Exchange(CheckListBox1.ItemIndex, CheckListBox1.ItemIndex-1);
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.aMoveDownUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := (CheckListBox1.ItemIndex <> -1) and (CheckListBox1.ItemIndex <> CheckListBox1.Count-1);
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.aMoveDownExecute(Sender: TObject);
+var
+  lEnv: TROMessageEnvelope;
+begin
+  lEnv := TROMessageEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  with ROMessage.Envelopes.ItemByEnvelope(lEnv) do
+    Index := Index +1;
+  CheckListBox1.Items.Exchange(CheckListBox1.ItemIndex, CheckListBox1.ItemIndex+1);
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.Log(Astr: string);
+var
+  p: pChar;
+begin
+  if Application.Terminated then Exit;
+
+  GetMem(p, (Length(Astr) + 1)*SizeOf(Char));
+  Move(Astr[1], p^, (Length(Astr) + 1)*SizeOf(Char));
+  PostMessage(Handle, WM_LOG_MESSAGE, 0, integer(p));
+
+  { Access to the VCL may only happen from within the main thread. To allow
+    Log to be called from within the Service implementattion, we must ensure
+    it's threadsafe.
+
+    So instread of just addint the log message to the Memo, we'l send a
+    PostMessage to the window, which wil then later be handled within the
+    main thread.
+
+    As a side benefit, the secution of the Log doe snot need to wait for this
+    logging to happen (as usage of, for example, Synchronize would require),
+    which will in turn make the server more respinsible for a simultaneous
+    calls. }
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.WMLog(var Message: TMessage);
+var
+  p: pChar;
+begin
+  try
+    p := pChar(Message.LParam);
+    Memo1.Lines.Add(p);
+    Freemem(p);
+  except
+    on E: Exception do
+      Memo1.Lines.Add(E.Classname + ': ' + E.Message);
+  end;
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.CreateAESEnvelope(AMarker, APass: String;
+  AEnabled: Boolean);
+var
+  lEnv: TROAESEncryptionEnvelope;
+begin
+  lEnv := TROAESEncryptionEnvelope.Create(nil);
+  with lEnv do begin
+    Password := APass;
+    EnvelopeMarker := AMarker;
+    BeforeEnvelopeProcessed := DoBeforeEnvelopeProcessed;
+  end;
+  with TROMessageEnvelopeItem(ROMessage.Envelopes.Add) do begin
+    Envelope := lEnv;
+    Enabled := AEnabled;
+  end;
+  CheckListBox1.AddItem(GenerateString(lEnv),lEnv);
+  CheckListBox1.Checked[CheckListBox1.Count-1]:=AEnabled;
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.DoBeforeEnvelopeProcessed(
+  AMessageEnvelope: TROMessageEnvelope; AStream: TStream;
+  aMode: TROMessageEnvelopeMode; AMessage: IROMessage);
+begin
+  case aMode of
+    memIncoming: Log(AMessageEnvelope.EnvelopeMarker+' : processing incoming message');
+    memOutgoing: Log(AMessageEnvelope.EnvelopeMarker+' : processing outgoing message');
+  end;
+end;
+
+procedure TMessageEnvelopes_ServerMainForm.CheckListBox1ClickCheck(Sender: TObject);
+var
+  lEnv: TROMessageEnvelope;
+begin
+  lEnv := TROMessageEnvelope(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]);
+  ROMessage.Envelopes.ItemByEnvelope(lEnv).Enabled := CheckListBox1.Checked[CheckListBox1.ItemIndex];
+end;
+
+function TMessageEnvelopes_ServerMainForm.GenerateString(
+  AMessageEnvelope: TROAESEncryptionEnvelope): String;
+begin
+  Result := AMessageEnvelope.EnvelopeMarker + ' [ password = ''' + AMessageEnvelope.Password+''' ]'
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/RODLFILE.res
new file mode 100644
index 0000000..3fa8bbf
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Message Envelopes/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.Sample.html
new file mode 100644
index 0000000..098ee9f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.Sample.html	
@@ -0,0 +1,53 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Multi Channel Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>
+  This example provides an introduction to using the Delphi edition of the RemObjects SDK product.  
+  It shows how to use different channels to connect to the server application.<br>
+  The following channels and servers are included:
+<ul>
+<li><b>TROWinMessageChannel / TROWinMessageServer</b></li>
+<li><b>TRONamedPipeChannel / TRONamedPipeServer</b></li>
+<li><b>TROWinInetHTTPChannel / TROIndyHTTPServer</b></li>
+<li><b>TROIndyTCPChannel / TROIndyTCPServer</b></li>
+<li><b>TROSuperTcpChannel / TROSuperTcpServer</b></li>
+<li><b>TROIndySuperHttpChannel / TROIpSuperHttpServer</b></li>
+<li><b>TROIndyUDPChannel / TROIndyUDPServer</b></li>
+<li><b>TROIndyTCPChannel / TROBPDXTCPServer</b></li>
+<li><b>TROWinInetHTTPChannel / TROBPDXHTTPServer</b></li>
+<li><b>TROLocalChannel / TROLocalServer</b></li>
+<li><b>TRODLLChannel</b></li>
+</ul>  
+  
+</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile all projects.</li>
+	<li>Launch the server (via the menu option: <strong>RemObjects | Launch Server Executable</strong>).</li>
+	<li>Activate the server(s) you require.</li>
+	<li>Ensure that <b>MultiChannel_Client</b> is the selected project and run it.</li>
+	<li>Choose a server and test it.</li>
+	</ul>
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   See the code that changes the selected channel/server in <b>MultiChannel_ClientMain.pas</b>.
+	</li>
+</ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.bdsgroup
new file mode 100644
index 0000000..b13f1a1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.bdsgroup	
@@ -0,0 +1,21 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{A48F6E7D-CBD9-4E71-9469-DDC7F53916A1}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="MultiChannel_Server.exe">MultiChannel_Server.bdsproj</Projects>
+      <Projects Name="MultiChannel_DLLServer.dll">MultiChannel_DLLServer.bdsproj</Projects>
+      <Projects Name="MultiChannel_Client.exe">MultiChannel_Client.bdsproj</Projects>
+      <Projects Name="Targets">MultiChannel_Server.exe MultiChannel_DLLServer.dll MultiChannel_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.bpg
new file mode 100644
index 0000000..cc87d7d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.bpg	
@@ -0,0 +1,26 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = MultiChannel_Server.exe MultiChannel_DLLServer.dll MultiChannel_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+MultiChannel_Server.exe: MultiChannel_Server.dpr
+  $(DCC)
+
+MultiChannel_Client.exe: MultiChannel_Client.dpr
+  $(DCC)
+
+MultiChannel_DLLServer.dll: MultiChannel_DLLServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.groupproj
new file mode 100644
index 0000000..d3e81da
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel.groupproj	
@@ -0,0 +1,49 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3788f490-6c3b-412b-924c-ca4e290cbf69}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="MultiChannel_Server">
+    <MSBuild Projects="MultiChannel_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="MultiChannel_Server:Clean">
+    <MSBuild Projects="MultiChannel_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MultiChannel_Server:Make">
+    <MSBuild Projects="MultiChannel_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="MultiChannel_DLLServer">
+    <MSBuild Projects="MultiChannel_DLLServer.dproj" Targets="" />
+  </Target>
+  <Target Name="MultiChannel_DLLServer:Clean">
+    <MSBuild Projects="MultiChannel_DLLServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MultiChannel_DLLServer:Make">
+    <MSBuild Projects="MultiChannel_DLLServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="MultiChannel_Client">
+    <MSBuild Projects="MultiChannel_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="MultiChannel_Client:Clean">
+    <MSBuild Projects="MultiChannel_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="MultiChannel_Client:Make">
+    <MSBuild Projects="MultiChannel_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="MultiChannel_Server;MultiChannel_DLLServer;MultiChannel_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="MultiChannel_Server:Clean;MultiChannel_DLLServer:Clean;MultiChannel_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="MultiChannel_Server:Make;MultiChannel_DLLServer:Make;MultiChannel_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary.rodl
new file mode 100644
index 0000000..71b3778
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary.rodl	
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="MultiChannelLibrary" UID="{60A753C4-1ED0-4385-AD64-B6B547D42BD5}" Version="3.0">
+<Services>
+<Service Name="MultiChannelService" UID="{12954C00-6685-4F58-B412-512A50979DB2}">
+<Interfaces>
+<Interface Name="Default" UID="{DCA9C2C8-5CE4-4270-829D-503B0E9547B9}">
+<Operations>
+<Operation Name="GetServerTime" UID="{3CF453DE-B275-429C-A75A-F92F668636EC}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary_Intf.pas
new file mode 100644
index 0000000..4729390
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary_Intf.pas	
@@ -0,0 +1,95 @@
+unit MultiChannelLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{60A753C4-1ED0-4385-AD64-B6B547D42BD5}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IMultiChannelService_IID : TGUID = '{DCA9C2C8-5CE4-4270-829D-503B0E9547B9}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IMultiChannelService = interface;
+
+
+  { IMultiChannelService }
+  IMultiChannelService = interface
+    ['{DCA9C2C8-5CE4-4270-829D-503B0E9547B9}']
+    function GetServerTime: DateTime;
+  end;
+
+  { CoMultiChannelService }
+  CoMultiChannelService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiChannelService;
+  end;
+
+  { TMultiChannelService_Proxy }
+  TMultiChannelService_Proxy = class(TROProxy, IMultiChannelService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoMultiChannelService }
+
+class function CoMultiChannelService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IMultiChannelService;
+begin
+  result := TMultiChannelService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TMultiChannelService_Proxy }
+
+function TMultiChannelService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'MultiChannelService';
+end;
+
+function TMultiChannelService_Proxy.GetServerTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'MultiChannelLibrary', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(IMultiChannelService_IID, TMultiChannelService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(IMultiChannelService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary_Invk.pas
new file mode 100644
index 0000000..6de2033
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelLibrary_Invk.pas	
@@ -0,0 +1,54 @@
+unit MultiChannelLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} MultiChannelLibrary_Intf;
+
+type
+  {$M+}
+  TMultiChannelService_Invoker = class(TROInvoker)
+  private
+  protected
+  published
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+  {$M-}
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TMultiChannelService_Invoker }
+
+procedure TMultiChannelService_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as IMultiChannelService).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'MultiChannelLibrary', 'MultiChannelService', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelService_Impl.pas
new file mode 100644
index 0000000..ec076d7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannelService_Impl.pas	
@@ -0,0 +1,49 @@
+unit MultiChannelService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} MultiChannelLibrary_Intf;
+
+type
+  { TMultiChannelService }
+  TMultiChannelService = class(TRORemotable, IMultiChannelService)
+  private
+  protected
+    { IMultiChannelService methods }
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {Generated:} MultiChannelLibrary_Invk;
+
+procedure Create_MultiChannelService(out anInstance: IUnknown);
+begin
+  anInstance := TMultiChannelService.Create;
+end;
+
+{ MultiChannelService }
+
+function TMultiChannelService.GetServerTime: DateTime;
+begin
+  Result := Now;
+end;
+
+initialization
+  TROClassFactory.Create('MultiChannelService', Create_MultiChannelService, TMultiChannelService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.bdsproj
new file mode 100644
index 0000000..e08c4b6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{F86C19EE-EBF0-4E00-B90B-F1F916AA67BC}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MultiChannel_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.cfg
new file mode 100644
index 0000000..4c2816a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.cfg	
@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dof
new file mode 100644
index 0000000..05891e5
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dof	
@@ -0,0 +1,132 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1043
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dpr
new file mode 100644
index 0000000..2752a1f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dpr	
@@ -0,0 +1,16 @@
+program MultiChannel_Client;
+
+uses
+  Forms,
+  MultiChannel_ClientMain in 'MultiChannel_ClientMain.pas' {MultiChannel_ClientMainForm},
+  MultiChannel_ClientData in 'MultiChannel_ClientData.pas' {MultiChannel_ClientDataMain: TDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'MultiChannel - Client';
+  Application.CreateForm(TMultiChannel_ClientDataMain, MultiChannel_ClientDataMain);
+  Application.CreateForm(TMultiChannel_ClientMainForm, MultiChannel_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dproj
new file mode 100644
index 0000000..1d06581
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{c9e161f0-df30-424e-b087-976a9cda6727}</ProjectGuid>
+    <MainSource>MultiChannel_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MultiChannel_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MultiChannel_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MultiChannel_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MultiChannel_ClientData.pas">
+      <Form>MultiChannel_ClientDataMain</Form>
+    </DCCReference>
+    <DCCReference Include="MultiChannel_ClientMain.pas">
+      <Form>MultiChannel_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientData.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientData.dfm
new file mode 100644
index 0000000..403b473
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientData.dfm	
@@ -0,0 +1,22 @@
+object MultiChannel_ClientDataMain: TMultiChannel_ClientDataMain
+  OldCreateOrder = False
+  Left = 322
+  Top = 227
+  Height = 150
+  Width = 215
+  object LocalServer: TROLocalServer
+    Dispatchers = <
+      item
+        Name = 'BinMessage'
+        Message = BinMessage
+        Enabled = True
+      end>
+    Left = 41
+    Top = 21
+  end
+  object BinMessage: TROBinMessage
+    OnInitializeMessage = BinMessageInitializeMessage
+    Left = 38
+    Top = 63
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientData.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientData.pas
new file mode 100644
index 0000000..ae8009a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientData.pas	
@@ -0,0 +1,39 @@
+unit MultiChannel_ClientData;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROBinMessage, uROServer, uROLocalServer, uROClientIntf;
+
+type
+  TMultiChannel_ClientDataMain = class(TDataModule)
+    LocalServer: TROLocalServer;
+    BinMessage: TROBinMessage;
+    procedure BinMessageInitializeMessage(Sender: TROMessage;
+      const aTransport: IROTransport; const anInterfaceName,
+      aMessageName: string);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  MultiChannel_ClientDataMain: TMultiChannel_ClientDataMain;
+
+implementation
+uses MultiChannelService_Impl, MultiChannel_ClientMain;
+{$R *.dfm}
+
+procedure TMultiChannel_ClientDataMain.BinMessageInitializeMessage(
+  Sender: TROMessage; const aTransport: IROTransport;
+  const anInterfaceName, aMessageName: string);
+begin
+  MultiChannel_ClientMainForm.Log('');
+  MultiChannel_ClientMainForm.Log('SERVER: Connect via ' + Tobject(aTransport.GetTransportObject).ClassName);
+  MultiChannel_ClientMainForm.Log('SERVER: ' + anInterfaceName + ':'#9 + StringReplace(aMessageName, 'Response', '', []));
+  MultiChannel_ClientMainForm.Log('');
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientMain.dfm
new file mode 100644
index 0000000..b5b9a64
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientMain.dfm	
@@ -0,0 +1,153 @@
+object MultiChannel_ClientMainForm: TMultiChannel_ClientMainForm
+  Left = 301
+  Top = 153
+  Width = 392
+  Height = 363
+  Caption = 'MultiChannel_ClientMainForm'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Memo: TMemo
+    Left = 0
+    Top = 148
+    Width = 384
+    Height = 188
+    Align = alClient
+    ScrollBars = ssVertical
+    TabOrder = 0
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 384
+    Height = 148
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 1
+    object GetServerTimeButton: TButton
+      Left = 7
+      Top = 116
+      Width = 104
+      Height = 25
+      Caption = 'GetServerTime'
+      TabOrder = 0
+      OnClick = GetServerTimeButtonClick
+    end
+    object rgConnect: TRadioGroup
+      Left = 6
+      Top = 5
+      Width = 375
+      Height = 105
+      Caption = 'Connect to:'
+      Columns = 3
+      ItemIndex = 0
+      Items.Strings = (
+        'IndyHTTPServer'
+        'BPDXHTTPServer'
+        'SuperTcpServer'
+        'IndyTCPServer'
+        'BPDXTCPServer'
+        'LocalServer'
+        'IndyUDPServer'
+        'NamedPipeServer'
+        'WinMessageServer'
+        'SuperHTTPServer'
+        'DLLChannel')
+      TabOrder = 1
+    end
+  end
+  object RemoteService: TRORemoteService
+    Message = BinMessage
+    ServiceName = 'MultiChannelService'
+    Left = 249
+    Top = 276
+  end
+  object BinMessage: TROBinMessage
+    Envelopes = <>
+    Left = 248
+    Top = 231
+  end
+  object WinInetHTTPChannel: TROWinInetHTTPChannel
+    UserAgent = 'RemObjects SDK'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 30
+    Top = 164
+  end
+  object WinMessageChannel: TROWinMessageChannel
+    ServerID = '{30221B5E-6C56-4A91-A4E4-455BB3DA22B9}'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 86
+    Top = 192
+  end
+  object NamedPipeChannel: TRONamedPipeChannel
+    ServerID = 'MultiChannel_ServerMainForm_NamedPipeServer'
+    ServerName = '.'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 58
+    Top = 192
+  end
+  object DLLChannel: TRODLLChannel
+    DLLName = 'MultiChannel_DLLServer.dll'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 314
+    Top = 257
+  end
+  object LocalChannel: TROLocalChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    ServerChannel = MultiChannel_ClientDataMain.LocalServer
+    Left = 313
+    Top = 216
+  end
+  object IndyTCPChannel: TROIndyTCPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Port = 8090
+    Host = '127.0.0.1'
+    Left = 58
+    Top = 164
+  end
+  object SuperTcpChannel: TROSuperTCPChannel
+    Host = 'localhost'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 30
+    Top = 192
+  end
+  object IndyUDPChannel: TROIndyUDPChannel
+    Retrys = 5
+    IndyClient.Host = 'localhost'
+    IndyClient.Port = 8090
+    Port = 8090
+    Host = 'localhost'
+    ServerLocators = <>
+    DispatchOptions = []
+    Left = 86
+    Top = 164
+  end
+  object IndySuperHttpChannel: TROIndySuperHTTPChannel
+    Active = False
+    ClientWait.Request.Accept = 'text/html, */*'
+    ClientWait.Request.ContentLength = -1
+    ClientWait.Request.ContentRangeEnd = 0
+    ClientWait.Request.ContentRangeStart = 0
+    ClientWait.Request.UserAgent = 'RemObjects SDK'
+    ClientRequest.Request.Accept = 'text/html, */*'
+    ClientRequest.Request.ContentLength = -1
+    ClientRequest.Request.ContentRangeEnd = 0
+    ClientRequest.Request.ContentRangeStart = 0
+    ClientRequest.Request.UserAgent = 'RemObjects SDK'
+    DispatchOptions = []
+    ServerLocators = <>
+    Left = 115
+    Top = 164
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientMain.pas
new file mode 100644
index 0000000..3ba4eee
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ClientMain.pas	
@@ -0,0 +1,139 @@
+unit MultiChannel_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  StdCtrls, MultiChannelLibrary_Intf, MultiChannel_ClientData, SyncObjs,
+  uROIndyUDPChannel, uROSuperTCPChannel, uROIndyTCPChannel,
+  uROLocalChannel, uRODLLChannel, uRONamedPipeChannel,
+  uROWinMessageChannel, uROClient, uROWinInetHttpChannel, uROBinMessage,
+  uRORemoteService, ExtCtrls, uROBaseSuperHttpChannel,
+  uROIndySuperHttpChannel;
+
+type
+  TMultiChannel_ClientMainForm = class(TForm)
+    RemoteService: TRORemoteService;
+    BinMessage: TROBinMessage;
+    WinInetHTTPChannel: TROWinInetHTTPChannel;
+    WinMessageChannel: TROWinMessageChannel;
+    NamedPipeChannel: TRONamedPipeChannel;
+    DLLChannel: TRODLLChannel;
+    LocalChannel: TROLocalChannel;
+    IndyTCPChannel: TROIndyTCPChannel;
+    SuperTcpChannel: TROSuperTcpChannel;
+    IndyUDPChannel: TROIndyUDPChannel;
+    Memo: TMemo;
+    Panel1: TPanel;
+    GetServerTimeButton: TButton;
+    rgConnect: TRadioGroup;
+    IndySuperHttpChannel: TROIndySuperHttpChannel;
+    procedure GetServerTimeButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    CriticalSection: TCriticalSection;
+    function GetMultiChannelService: IMultiChannelService;
+    { Private declarations }
+  public
+    procedure Log(Astr: string);
+    { Public declarations }
+  end;
+
+var
+  MultiChannel_ClientMainForm: TMultiChannel_ClientMainForm;
+
+implementation
+
+{$R *.dfm}
+
+function TMultiChannel_ClientMainForm.GetMultiChannelService: IMultiChannelService;
+const
+  atargetUrl = 'http://localhost:%d/BIN';
+  aHost = '127.0.0.1';
+begin
+  case rgConnect.ItemIndex of
+    {IndyHTTPServer} 0: begin
+        RemoteService.Channel := WinInetHTTPChannel;
+        WinInetHTTPChannel.TargetURL := Format(atargetUrl, [8099]);
+      end;
+    {BPDXHTTPServer} 1: begin
+        RemoteService.Channel := WinInetHTTPChannel;
+        WinInetHTTPChannel.TargetURL := Format(atargetUrl, [8098]);
+      end;
+    {SuperTcpServer} 2: begin
+        RemoteService.Channel := SuperTcpChannel;
+        SuperTcpChannel.Host := aHost;
+      end;
+    {IndyTCPServer} 3: begin
+        RemoteService.Channel := IndyTCPChannel;
+        IndyTCPChannel.Host := aHost;
+        IndyTCPChannel.Port := 8090;
+      end;
+    {BPDXTCPServer} 4: begin
+        RemoteService.Channel := IndyTCPChannel;
+        IndyTCPChannel.Host := aHost;
+        IndyTCPChannel.Port := 8089;
+      end;
+    {LocalServer} 5: begin
+        RemoteService.Channel := LocalChannel;
+      end;
+    {IndyUDPServer} 6: begin
+        RemoteService.Channel := IndyUDPChannel;
+        IndyUDPChannel.Host := aHost;
+        IndyUDPChannel.Port := 8090;
+      end;
+    {NamedPipeServer} 7: begin
+        RemoteService.Channel := NamedPipeChannel;
+      end;
+    {WinMessageServer} 8: begin
+        RemoteService.Channel := WinMessageChannel;
+      end;
+    {SuperHTTPServer} 9: begin
+        RemoteService.Channel := IndySuperHttpChannel;
+        IndySuperHttpChannel.TargetURL := Format(atargetUrl, [8094]);
+      end;
+  else
+    {DLLChannel}
+    RemoteService.Channel := DLLChannel;
+  end;
+
+  RemoteService.Message := BinMessage;
+  Result := RemoteService as IMultiChannelService;
+end;
+
+procedure TMultiChannel_ClientMainForm.GetServerTimeButtonClick(
+  Sender: TObject);
+var
+  srv: IMultiChannelService;
+begin
+  srv := GetMultiChannelService;
+  Log('use ' + RemoteService.Channel.Name);
+  Log('GetServerTime');
+  Log('-------------');
+  Log('Receiving:'#9 + DateTimeToStr(srv.GetServerTime));
+  Log('');
+end;
+
+procedure TMultiChannel_ClientMainForm.Log(Astr: string);
+begin
+  CriticalSection.Enter;
+  try
+    Memo.Lines.Add(Astr);
+  finally
+    CriticalSection.Leave;
+  end;
+end;
+
+procedure TMultiChannel_ClientMainForm.FormCreate(Sender: TObject);
+begin
+  CriticalSection := TCriticalSection.Create;
+end;
+
+procedure TMultiChannel_ClientMainForm.FormDestroy(Sender: TObject);
+begin
+  CriticalSection.Free;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.bdsproj
new file mode 100644
index 0000000..cbeccf8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{2DADBDE9-23D3-4ADF-A135-2D4863B03E6D}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MultiChannel_DLLServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.dpr
new file mode 100644
index 0000000..d6f53fc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.dpr	
@@ -0,0 +1,33 @@
+library MultiChannel_DLLServer;
+
+{#ROGEN:MultiChannelLibrary.rodl} // RemObjects: Careful, do not remove!
+{$R RODLFile.res}
+{$R *.res}
+
+uses
+  Windows,
+  uRODLLServer,
+  uROBinMessage,
+  MultiChannelLibrary_Intf in 'MultiChannelLibrary_Intf.pas',
+  MultiChannelLibrary_Invk in 'MultiChannelLibrary_Invk.pas',
+  MultiChannelService_Impl in 'MultiChannelService_Impl.pas';
+
+var BINMessage : TROBINMessage;
+
+procedure ROProc(Reason:integer);
+begin
+  case Reason of
+    DLL_PROCESS_ATTACH: begin
+      BINMessage := TROBINMessage.Create(NIL);
+      RegisterMessage(BINMessage);
+    end;
+    DLL_PROCESS_DETACH: begin
+      BINMessage.Free;
+    end;
+  end
+end;
+
+begin
+  DLLProc:=@ROProc;
+  ROProc(DLL_PROCESS_ATTACH)
+  end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.dproj
new file mode 100644
index 0000000..1891cad
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{adbefef6-fc25-4d38-b90a-93262644f71e}</ProjectGuid>
+    <MainSource>MultiChannel_DLLServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MultiChannel_DLLServer.dll</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MultiChannel_DLLServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MultiChannel_DLLServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MultiChannelLibrary_Intf.pas" />
+    <DCCReference Include="MultiChannelLibrary_Invk.pas" />
+    <DCCReference Include="MultiChannelService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.res
new file mode 100644
index 0000000..08ba56e
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_DLLServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.bdsproj
new file mode 100644
index 0000000..d2b55cb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{BA98E525-3A13-445A-A955-C6C54296D4D7}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">MultiChannel_Server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.dpr
new file mode 100644
index 0000000..12d5046
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.dpr	
@@ -0,0 +1,20 @@
+program MultiChannel_Server;
+
+uses
+  Forms,
+  MultiChannel_ServerMain in 'MultiChannel_ServerMain.pas' {MultiChannel_ServerMainForm},
+  MultiChannelLibrary_Intf in 'MultiChannelLibrary_Intf.pas',
+  MultiChannelLibrary_Invk in 'MultiChannelLibrary_Invk.pas',
+  MultiChannelService_Impl in 'MultiChannelService_Impl.pas';
+
+{#ROGEN:MultiChannelLibrary.rodl} // RemObjects: Careful, do not remove!
+{$R RODLFile.res}
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'MultiChannel - Server';
+  Application.CreateForm(TMultiChannel_ServerMainForm, MultiChannel_ServerMainForm);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.dproj
new file mode 100644
index 0000000..1d73442
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{afd44946-8e31-4a11-adce-eecf8dfa9da7}</ProjectGuid>
+    <MainSource>MultiChannel_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>MultiChannel_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">MultiChannel_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="MultiChannel_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="MultiChannelLibrary_Intf.pas" />
+    <DCCReference Include="MultiChannelLibrary_Invk.pas" />
+    <DCCReference Include="MultiChannelService_Impl.pas" />
+    <DCCReference Include="MultiChannel_ServerMain.pas">
+      <Form>MultiChannel_ServerMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.res
new file mode 100644
index 0000000..b0dd731
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ServerMain.dfm
new file mode 100644
index 0000000..0a94b67
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ServerMain.dfm	
@@ -0,0 +1,270 @@
+object MultiChannel_ServerMainForm: TMultiChannel_ServerMainForm
+  Left = 331
+  Top = 214
+  Caption = 'MultiChannel_ServerMainForm'
+  ClientHeight = 295
+  ClientWidth = 386
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 96
+    Top = 3
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 128
+    Width = 386
+    Height = 166
+    Align = alCustom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ScrollBars = ssVertical
+    TabOrder = 9
+  end
+  object cbIndyHTTPServer: TCheckBox
+    Left = 7
+    Top = 57
+    Width = 120
+    Height = 17
+    Caption = 'IndyHTTPServer'
+    TabOrder = 0
+    OnClick = cbIndyHTTPServerClick
+  end
+  object cbBPDXHttpServer: TCheckBox
+    Left = 7
+    Top = 74
+    Width = 120
+    Height = 17
+    Caption = 'BPDXHttpServer'
+    TabOrder = 1
+    OnClick = cbBPDXHttpServerClick
+  end
+  object cbSuperTcpServer: TCheckBox
+    Left = 7
+    Top = 91
+    Width = 120
+    Height = 17
+    Caption = 'SuperTcpServer'
+    TabOrder = 2
+    OnClick = cbSuperTcpServerClick
+  end
+  object cbIndyTcpServer: TCheckBox
+    Left = 129
+    Top = 57
+    Width = 120
+    Height = 17
+    Caption = 'IndyTcpServer'
+    TabOrder = 3
+    OnClick = cbIndyTcpServerClick
+  end
+  object cbBPDXTcpServer: TCheckBox
+    Left = 129
+    Top = 74
+    Width = 120
+    Height = 17
+    Caption = 'BPDXTcpServer'
+    TabOrder = 4
+    OnClick = cbBPDXTcpServerClick
+  end
+  object cbIndyUdpServer: TCheckBox
+    Left = 129
+    Top = 91
+    Width = 120
+    Height = 17
+    Caption = 'IndyUdpServer'
+    TabOrder = 5
+    OnClick = cbIndyUdpServerClick
+  end
+  object cbNamedPipeServer: TCheckBox
+    Left = 250
+    Top = 57
+    Width = 120
+    Height = 17
+    Caption = 'NamedPipeServer'
+    TabOrder = 6
+    OnClick = cbNamedPipeServerClick
+  end
+  object cbWinMessageServer: TCheckBox
+    Left = 250
+    Top = 74
+    Width = 120
+    Height = 17
+    Caption = 'WinMessageServer'
+    TabOrder = 7
+    OnClick = cbWinMessageServerClick
+  end
+  object ErrorMemo: TMemo
+    Left = 0
+    Top = 111
+    Width = 386
+    Height = 201
+    Alignment = taCenter
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -25
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    Lines.Strings = (
+      ''
+      ''
+      'Please activate '
+      'at least one server!')
+    ParentFont = False
+    TabOrder = 10
+  end
+  object cbSuperHttpServer: TCheckBox
+    Left = 250
+    Top = 91
+    Width = 120
+    Height = 17
+    Caption = 'SuperHttpServer'
+    TabOrder = 8
+    OnClick = cbSuperHttpServerClick
+  end
+  object ROBinMessage: TROBinMessage
+    OnInitializeMessage = ROBinMessageInitializeMessage
+    Envelopes = <>
+    Left = 330
+    Top = 243
+  end
+  object WinMessageServer: TROWinMessageServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+      end>
+    OnWriteToStream = stub
+    OnReadFromStream = stub
+    ServerID = '{30221B5E-6C56-4A91-A4E4-455BB3DA22B9}'
+    Left = 266
+    Top = 192
+  end
+  object NamedPipeServer: TRONamedPipeServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+      end>
+    ServerID = 'MultiChannel_ServerMainForm_NamedPipeServer'
+    Left = 265
+    Top = 148
+  end
+  object IndyHTTPServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8099
+    Left = 15
+    Top = 139
+  end
+  object IndyTCPServer: TROIndyTCPServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+      end>
+    Port = 8090
+    Left = 144
+    Top = 144
+  end
+  object SuperTcpServer: TROSuperTCPServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+      end>
+    DefaultResponse = 'ROSC:Invalid connection string'
+    Left = 30
+    Top = 189
+  end
+  object IndyUDPServer: TROIndyUDPServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+      end>
+    IndyUDPServer.Bindings = <>
+    IndyUDPServer.DefaultPort = 8090
+    Port = 8090
+    Left = 154
+    Top = 194
+  end
+  object BPDXTCPServer: TROBPDXTCPServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+      end>
+    BPDXServer.ReleaseDate = '2002-09-01'
+    BPDXServer.ListenerThreadPriority = tpIdle
+    BPDXServer.SpawnedThreadPriority = tpIdle
+    BPDXServer.Suspend = False
+    BPDXServer.UseSSL = False
+    BPDXServer.UseThreadPool = False
+    BPDXServer.ServerPort = 8089
+    BPDXServer.ProtocolToBind = wpTCPOnly
+    BPDXServer.SocketOutputBufferSize = bsfNormal
+    BPDXServer.ServerType = stThreadBlocking
+    BPDXServer.ThreadCacheSize = 10
+    Port = 8089
+    Left = 171
+    Top = 145
+  end
+  object BPDXHTTPServer: TROBPDXHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    BPDXServer.ReleaseDate = '2002-09-01'
+    BPDXServer.ListenerThreadPriority = tpIdle
+    BPDXServer.SpawnedThreadPriority = tpIdle
+    BPDXServer.Suspend = False
+    BPDXServer.UseSSL = False
+    BPDXServer.UseThreadPool = False
+    BPDXServer.ServerPort = 8098
+    BPDXServer.ProtocolToBind = wpTCPOnly
+    BPDXServer.SocketOutputBufferSize = bsfNormal
+    BPDXServer.ServerType = stThreadBlocking
+    BPDXServer.ThreadCacheSize = 10
+    BPDXServer.Timeout = 50000
+    BPDXServer.SupportKeepAlive = False
+    Port = 8098
+    SupportKeepAlive = False
+    Left = 42
+    Top = 139
+  end
+  object SuperHttpServer: TROIpSuperHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 8094
+    ServerName = 'RemObjects SDK Super IpHttp Server for Delphi'
+    Left = 328
+    Top = 152
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ServerMain.pas
new file mode 100644
index 0000000..e67d2d9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/MultiChannel_ServerMain.pas	
@@ -0,0 +1,194 @@
+unit MultiChannel_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  uROClientIntf, SyncObjs, uROBPDXHTTPServer, uROBPDXTCPServer,
+  uROIndyUDPServer, uROSuperTCPServer, uROIndyTCPServer, uROIndyHTTPServer,
+  uRONamedPipeServer, uROClient, uROServer, uROWinMessageServer,
+  uROBinMessage, StdCtrls, uROPoweredByRemObjectsButton,
+  uROBaseSuperHttpServer, uROIpSuperHttpServer;
+
+type
+  TMultiChannel_ServerMainForm = class(TForm)
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    ROBinMessage: TROBinMessage;
+    WinMessageServer: TROWinMessageServer;
+    NamedPipeServer: TRONamedPipeServer;
+    IndyHTTPServer: TROIndyHTTPServer;
+    IndyTCPServer: TROIndyTCPServer;
+    SuperTcpServer: TROSuperTcpServer;
+    IndyUDPServer: TROIndyUDPServer;
+    BPDXTCPServer: TROBPDXTCPServer;
+    BPDXHTTPServer: TROBPDXHTTPServer;
+    Memo: TMemo;
+    cbIndyHTTPServer: TCheckBox;
+    cbBPDXHttpServer: TCheckBox;
+    cbSuperTcpServer: TCheckBox;
+    cbIndyTcpServer: TCheckBox;
+    cbBPDXTcpServer: TCheckBox;
+    cbIndyUdpServer: TCheckBox;
+    cbNamedPipeServer: TCheckBox;
+    cbWinMessageServer: TCheckBox;
+    ErrorMemo: TMemo;
+    SuperHttpServer: TROIpSuperHttpServer;
+    cbSuperHttpServer: TCheckBox;
+    procedure ROBinMessageInitializeMessage(Sender: TROMessage;
+      const aTransport: IROTransport; const anInterfaceName,
+      aMessageName: string);
+    procedure stub(aStream: TStream);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure cbIndyHTTPServerClick(Sender: TObject);
+    procedure cbBPDXHttpServerClick(Sender: TObject);
+    procedure cbSuperTcpServerClick(Sender: TObject);
+    procedure cbIndyTcpServerClick(Sender: TObject);
+    procedure cbBPDXTcpServerClick(Sender: TObject);
+    procedure cbLocalServerClick(Sender: TObject);
+    procedure cbIndyUdpServerClick(Sender: TObject);
+    procedure cbNamedPipeServerClick(Sender: TObject);
+    procedure cbWinMessageServerClick(Sender: TObject);
+    procedure EmailServerException(aSender: TObject;
+      aExceptionClass: TClass; const aExceptionMessage: string);
+    procedure cbSuperHttpServerClick(Sender: TObject);
+  private
+    { Private declarations }
+    CriticalSection: tCriticalSection;
+    procedure ActivateServer(Server: TROServer; Mode: Boolean);
+  public
+    procedure Log(Astr: string);
+    { Public declarations }
+  end;
+
+var
+  MultiChannel_ServerMainForm: TMultiChannel_ServerMainForm;
+
+implementation
+uses Dialogs;
+{$R *.dfm}
+
+procedure TMultiChannel_ServerMainForm.Log(Astr: string);
+begin
+  CriticalSection.Enter;
+  try
+    Memo.Lines.Add(Astr);
+  finally
+    CriticalSection.Leave;
+  end;
+end;
+
+procedure TMultiChannel_ServerMainForm.ROBinMessageInitializeMessage(
+  Sender: TROMessage; const aTransport: IROTransport;
+  const anInterfaceName, aMessageName: string);
+begin
+  Log('Connect via ' + Tobject(aTransport.GetTransportObject).ClassName);
+  Log(anInterfaceName + ':'#9 + StringReplace(aMessageName, 'Response', '', []));
+  Log('');
+end;
+
+procedure TMultiChannel_ServerMainForm.stub(aStream: TStream);
+begin
+  //  stub for prevention of a error
+end;
+
+procedure TMultiChannel_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  CriticalSection := TCriticalSection.Create;
+end;
+
+procedure TMultiChannel_ServerMainForm.FormDestroy(Sender: TObject);
+begin
+  CriticalSection.Free;
+end;
+
+procedure TMultiChannel_ServerMainForm.cbIndyHTTPServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(IndyHTTPServer, TCheckBox(Sender).Checked);
+end;
+
+procedure TMultiChannel_ServerMainForm.cbBPDXHttpServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(BPDXHttpServer, TCheckBox(Sender).Checked);
+end;
+
+procedure TMultiChannel_ServerMainForm.cbSuperTcpServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(SuperTcpServer, TCheckBox(Sender).Checked);
+end;
+
+procedure TMultiChannel_ServerMainForm.cbIndyTcpServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(IndyTcpServer, TCheckBox(Sender).Checked);
+end;
+
+procedure TMultiChannel_ServerMainForm.cbBPDXTcpServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(BPDXTcpServer, TCheckBox(Sender).Checked);
+end;
+
+procedure TMultiChannel_ServerMainForm.cbLocalServerClick(Sender: TObject);
+begin
+  Log('This server can be tested only on client side.')
+end;
+
+procedure TMultiChannel_ServerMainForm.cbIndyUdpServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(IndyUdpServer, TCheckBox(Sender).Checked);
+end;
+
+procedure TMultiChannel_ServerMainForm.cbNamedPipeServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(NamedPipeServer, TCheckBox(Sender).Checked);
+end;
+
+procedure TMultiChannel_ServerMainForm.cbWinMessageServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(WinMessageServer, TCheckBox(Sender).Checked);
+end;
+
+procedure TMultiChannel_ServerMainForm.ActivateServer(Server: TROServer;
+  Mode: Boolean);
+begin
+  Server.Active := Mode;
+  Memo.Visible :=
+    WinMessageServer.Active or
+    NamedPipeServer.Active or
+    IndyHTTPServer.Active or
+    IndyTCPServer.Active or
+    SuperTcpServer.Active or
+    IndyUDPServer.Active or
+    BPDXTCPServer.Active or
+    BPDXHTTPServer.Active or
+    SuperHTTPServer.Active;
+  ErrorMemo.Visible := not Memo.Visible;
+  if Server.Active then
+    Log(Server.Name + ' is activated!')
+  else
+    Log(Server.Name + ' is deactivated!');
+  Log('');
+end;
+
+procedure TMultiChannel_ServerMainForm.EmailServerException(
+  aSender: TObject; aExceptionClass: TClass;
+  const aExceptionMessage: string);
+begin
+  ShowMessage('There was a problem in the Email Server Thread:'#13#13 + aExceptionClass.ClassName + ': ' + aExceptionMessage);
+end;
+
+procedure TMultiChannel_ServerMainForm.cbSuperHttpServerClick(
+  Sender: TObject);
+begin
+  ActivateServer(SuperHttpServer, TCheckBox(Sender).Checked);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/RODLFILE.res
new file mode 100644
index 0000000..de596ec
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Multi Channel/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.bdsproj
new file mode 100644
index 0000000..969da59
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{719372BB-8DF9-4BCE-9A45-BF4A9D7C6CEE}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">NamedPipeClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.dpr
new file mode 100644
index 0000000..624ee70
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.dpr	
@@ -0,0 +1,15 @@
+program NamedPipeClient;
+
+uses
+  uROComInit,
+  Forms,
+  NamedPipeClientMain in 'NamedPipeClientMain.pas' {NamedPipeClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Named Pipes Client';
+  Application.CreateForm(TNamedPipeClientMainForm, NamedPipeClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.dproj
new file mode 100644
index 0000000..a6bf3f9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{74686689-c7fb-4b01-b7a9-40feaee9825d}</ProjectGuid>
+    <MainSource>NamedPipeClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>NamedPipeClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">NamedPipeClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="NamedPipeClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="NamedPipeClientMain.pas">
+      <Form>NamedPipeClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClientMain.dfm
new file mode 100644
index 0000000..2b04fca
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClientMain.dfm	
@@ -0,0 +1,69 @@
+object NamedPipeClientMainForm: TNamedPipeClientMainForm
+  Left = 240
+  Top = 150
+  AutoScroll = False
+  Caption = 'Named Pipes Client'
+  ClientHeight = 306
+  ClientWidth = 379
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object GetPathButton: TButton
+    Left = 9
+    Top = 12
+    Width = 75
+    Height = 25
+    Caption = 'Get Path'
+    TabOrder = 0
+    OnClick = GetPathButtonClick
+  end
+  object Memo: TMemo
+    Left = 7
+    Top = 52
+    Width = 365
+    Height = 245
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    TabOrder = 3
+  end
+  object UpTimeButton: TButton
+    Left = 88
+    Top = 12
+    Width = 91
+    Height = 25
+    Caption = 'Server UpTime'
+    TabOrder = 1
+    OnClick = UpTimeButtonClick
+  end
+  object GetConnectedUsersCountButton: TButton
+    Left = 182
+    Top = 12
+    Width = 148
+    Height = 25
+    Caption = 'Get Connected Users Count'
+    TabOrder = 2
+    OnClick = GetConnectedUsersCountButtonClick
+  end
+  object ROMessage: TROBinMessage
+    Left = 132
+    Top = 66
+  end
+  object ROChannel: TRONamedPipeChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    ServerID = 'NamedPipeServerService_ID'
+    ServerName = '.'
+    Left = 104
+    Top = 66
+  end
+  object RONamedPipeServer: TRORemoteService
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'NamedPipeService'
+    Left = 160
+    Top = 66
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClientMain.pas
new file mode 100644
index 0000000..dfd160f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeClientMain.pas	
@@ -0,0 +1,63 @@
+unit NamedPipeClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uRONamedPipeChannel, NamedPipeLibrary_Intf;
+type
+  TNamedPipeClientMainForm = class(TForm)
+    ROMessage: TROBinMessage;
+    ROChannel: TRONamedPipeChannel;
+    RONamedPipeServer: TRORemoteService;
+    GetPathButton: TButton;
+    Memo: TMemo;
+    UpTimeButton: TButton;
+    GetConnectedUsersCountButton: TButton;
+    procedure GetPathButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure UpTimeButtonClick(Sender: TObject);
+    procedure GetConnectedUsersCountButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+    FService: INamedPipeService;
+  public
+    { Public declarations }
+  end;
+
+var
+  NamedPipeClientMainForm: TNamedPipeClientMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TNamedPipeClientMainForm.GetPathButtonClick(Sender: TObject);
+begin
+  Memo.Lines.text := StringReplace(FService.getPath, ';', sLineBreak, [rfReplaceAll]);
+end;
+
+procedure TNamedPipeClientMainForm.FormCreate(Sender: TObject);
+begin
+  FService := RONamedPipeServer as INamedPipeService;
+end;
+
+procedure TNamedPipeClientMainForm.UpTimeButtonClick(Sender: TObject);
+var
+  uptime: TDateTime;
+  d, h, m, s, ms: word;
+begin
+  uptime := FService.UpTime;
+  d := Trunc(UpTime);
+  DecodeTime(uptime, h, m, s, ms);
+  Memo.Lines.text := Format('Server uptime is %d day %d hour %d min %d sec', [d, h, m, s]);
+end;
+
+procedure TNamedPipeClientMainForm.GetConnectedUsersCountButtonClick(
+  Sender: TObject);
+begin
+  Memo.Lines.text := 'Connected users on server is ' + IntToStr(FService.GetConnectedUsersCount);
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.Sample.html
new file mode 100644
index 0000000..5f0e355
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.Sample.html	
@@ -0,0 +1,30 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Named Pipes Sample</span> 
+</p>
+
+<h2>Purpose</h2>
+
+<p>This example shows the use of a named pipe connection. It creates a named pipe server as a Windows service.</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile both projects.</li>
+	<li>Run the <strong>install_service.cmd</strong> file provided.</li>
+	<li>Run the <b>NamedPipeClient.exe</b>.</li>
+</ul>
+
+<h2>Note</h2>
+<p>To uninstall the NamedPipeServer.exe, run the <strong>uninstall_service.cmd</strong>
+    file provided.</p>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.bdsgroup
new file mode 100644
index 0000000..8de25da
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{C6608595-D771-4271-B8AC-4D3056ECEDFD}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="NamedPipeServer.exe">NamedPipeServer.bdsproj</Projects>
+      <Projects Name="NamedPipeClient.exe">NamedPipeClient.bdsproj</Projects>
+      <Projects Name="Targets">NamedPipeServer.exe NamedPipeClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.bpg
new file mode 100644
index 0000000..070893c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = NamedPipeServer.exe NamedPipeClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+NamedPipeServer.exe: NamedPipeServer.dpr
+  $(DCC)
+
+NamedPipeClient.exe: NamedPipeClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.groupproj
new file mode 100644
index 0000000..c750633
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeGroup.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{08382df8-e356-42f2-9a54-b54aca159b7f}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="NamedPipeServer">
+    <MSBuild Projects="NamedPipeServer.dproj" Targets="" />
+  </Target>
+  <Target Name="NamedPipeServer:Clean">
+    <MSBuild Projects="NamedPipeServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="NamedPipeServer:Make">
+    <MSBuild Projects="NamedPipeServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="NamedPipeClient">
+    <MSBuild Projects="NamedPipeClient.dproj" Targets="" />
+  </Target>
+  <Target Name="NamedPipeClient:Clean">
+    <MSBuild Projects="NamedPipeClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="NamedPipeClient:Make">
+    <MSBuild Projects="NamedPipeClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="NamedPipeServer;NamedPipeClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="NamedPipeServer:Clean;NamedPipeClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="NamedPipeServer:Make;NamedPipeClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary.rodl
new file mode 100644
index 0000000..8a1b0d3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary.rodl	
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="NamedPipeLibrary" UID="{BC2D6352-25BF-4A67-A9DD-9ED1CEE3DE20}" Version="3.0">
+<Services>
+<Service Name="NamedPipeService" UID="{286FB76D-9A8D-49CA-8BA0-B44C3E11EA5B}">
+<Interfaces>
+<Interface Name="Default" UID="{DCD778A1-C1C3-485F-B723-D4997B7AA972}">
+<Documentation><![CDATA[
+
+Service NamedPipeService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="GetPath" UID="{FA4B33BF-2633-45A6-A47E-B9C654457FEE}">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetConnectedUsersCount" UID="{61C7E2E9-AC1F-49ED-A3E6-6FA156897E1D}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="UpTime" UID="{3802CA6F-96FE-40B0-80ED-B8AC5BDCDA90}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary_Intf.pas
new file mode 100644
index 0000000..4f6a86a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary_Intf.pas	
@@ -0,0 +1,129 @@
+unit NamedPipeLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{BC2D6352-25BF-4A67-A9DD-9ED1CEE3DE20}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  INamedPipeService_IID : TGUID = '{DCD778A1-C1C3-485F-B723-D4997B7AA972}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  INamedPipeService = interface;
+
+
+  { INamedPipeService }
+  INamedPipeService = interface
+    ['{DCD778A1-C1C3-485F-B723-D4997B7AA972}']
+    function GetPath: Widestring;
+    function GetConnectedUsersCount: Integer;
+    function UpTime: DateTime;
+  end;
+
+  { CoNamedPipeService }
+  CoNamedPipeService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INamedPipeService;
+  end;
+
+  { TNamedPipeService_Proxy }
+  TNamedPipeService_Proxy = class(TROProxy, INamedPipeService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetPath: Widestring;
+    function GetConnectedUsersCount: Integer;
+    function UpTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoNamedPipeService }
+
+class function CoNamedPipeService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INamedPipeService;
+begin
+  result := TNamedPipeService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TNamedPipeService_Proxy }
+
+function TNamedPipeService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'NamedPipeService';
+end;
+
+function TNamedPipeService_Proxy.GetPath: Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'NamedPipeLibrary', __InterfaceName, 'GetPath');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TNamedPipeService_Proxy.GetConnectedUsersCount: Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'NamedPipeLibrary', __InterfaceName, 'GetConnectedUsersCount');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TNamedPipeService_Proxy.UpTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'NamedPipeLibrary', __InterfaceName, 'UpTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(INamedPipeService_IID, TNamedPipeService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(INamedPipeService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary_Invk.pas
new file mode 100644
index 0000000..cd25ff2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeLibrary_Invk.pas	
@@ -0,0 +1,97 @@
+unit NamedPipeLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} NamedPipeLibrary_Intf;
+
+type
+  TNamedPipeService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetPath(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetConnectedUsersCount(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_UpTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TNamedPipeService_Invoker }
+
+constructor TNamedPipeService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TNamedPipeService_Invoker.Invoke_GetPath(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetPath: Widestring; }
+var
+  lResult: Widestring;
+begin
+  try
+    lResult := (__Instance as INamedPipeService).GetPath;
+
+    __Message.InitializeResponseMessage(__Transport, 'NamedPipeLibrary', 'NamedPipeService', 'GetPathResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TNamedPipeService_Invoker.Invoke_GetConnectedUsersCount(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetConnectedUsersCount: Integer; }
+var
+  lResult: Integer;
+begin
+  try
+    lResult := (__Instance as INamedPipeService).GetConnectedUsersCount;
+
+    __Message.InitializeResponseMessage(__Transport, 'NamedPipeLibrary', 'NamedPipeService', 'GetConnectedUsersCountResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TNamedPipeService_Invoker.Invoke_UpTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function UpTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as INamedPipeService).UpTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'NamedPipeLibrary', 'NamedPipeService', 'UpTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.bdsproj
new file mode 100644
index 0000000..ecfe67d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{E880430F-87BE-47DD-9F9F-0BBCC7A322F7}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">NamedPipeServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.dpr
new file mode 100644
index 0000000..3a4d969
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.dpr	
@@ -0,0 +1,21 @@
+program NamedPipeServer;
+
+{#ROGEN:NamedPipeLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  SvcMgr,
+  NamedPipeServerMain in 'NamedPipeServerMain.pas' {NamedPipeServerService: TService},
+  NamedPipeLibrary_Intf in 'NamedPipeLibrary_Intf.pas',
+  NamedPipeLibrary_Invk in 'NamedPipeLibrary_Invk.pas',
+  NamedPipeService_Impl in 'NamedPipeService_Impl.pas';
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Named Pipes Server';
+  Application.CreateForm(TNamedPipeServerService, NamedPipeServerService);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.dproj
new file mode 100644
index 0000000..ebbafa8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{12bb6a7e-498d-4663-8c5d-bce90c5e41a8}</ProjectGuid>
+    <MainSource>NamedPipeServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>NamedPipeServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">NamedPipeServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="NamedPipeServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="NamedPipeLibrary_Intf.pas" />
+    <DCCReference Include="NamedPipeLibrary_Invk.pas" />
+    <DCCReference Include="NamedPipeServerMain.pas">
+      <Form>NamedPipeServerService</Form>
+    </DCCReference>
+    <DCCReference Include="NamedPipeService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.res
new file mode 100644
index 0000000..95e15d9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServerMain.dfm
new file mode 100644
index 0000000..4bef3b6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServerMain.dfm	
@@ -0,0 +1,27 @@
+object NamedPipeServerService: TNamedPipeServerService
+  OldCreateOrder = False
+  DisplayName = 'NamedPipeServerService'
+  OnContinue = ServiceContinue
+  OnPause = ServicePause
+  OnStart = ServiceStart
+  OnStop = ServiceStop
+  Left = 158
+  Top = 156
+  Height = 171
+  Width = 215
+  object ROMessage: TROBinMessage
+    Left = 55
+    Top = 52
+  end
+  object ROServer: TRONamedPipeServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    ServerID = 'NamedPipeServerService_ID'
+    Left = 56
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServerMain.pas
new file mode 100644
index 0000000..c03099a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeServerMain.pas	
@@ -0,0 +1,61 @@
+unit NamedPipeServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
+  uROClient, uROClientIntf, uROServer, uROBinMessage, uRONamedPipeServer;
+
+type
+  TNamedPipeServerService = class(TService)
+    ROMessage: TROBinMessage;
+    ROServer: TRONamedPipeServer;
+    procedure ServiceStart(Sender: TService; var Started: Boolean);
+    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
+    procedure ServicePause(Sender: TService; var Paused: Boolean);
+    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
+  private
+    { Private declarations }
+  public
+    function GetServiceController: TServiceController; override;
+    { Public declarations }
+  end;
+
+var
+  NamedPipeServerService: TNamedPipeServerService;
+
+implementation
+
+{$R *.dfm}
+
+procedure ServiceController(CtrlCode: DWord); stdcall;
+begin
+  NamedPipeServerService.Controller(CtrlCode);
+end;
+
+function TNamedPipeServerService.GetServiceController: TServiceController;
+begin
+  Result := ServiceController;
+end;
+
+procedure TNamedPipeServerService.ServiceStart(Sender:TService; var Started:Boolean);
+begin
+  RoServer.Active := true;
+end;
+
+procedure TNamedPipeServerService.ServiceStop(Sender:TService; var Stopped:Boolean);
+begin
+  RoServer.Active := false;
+end;
+
+procedure TNamedPipeServerService.ServicePause(Sender:TService; var Paused:Boolean);
+begin
+  RoServer.Active := false;
+end;
+
+procedure TNamedPipeServerService.ServiceContinue(Sender:TService; var Continued:Boolean);
+begin
+  RoServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeService_Impl.pas
new file mode 100644
index 0000000..f401b30
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/NamedPipeService_Impl.pas	
@@ -0,0 +1,63 @@
+unit NamedPipeService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} NamedPipeLibrary_Intf;
+
+type
+  { TNamedPipeService }
+  TNamedPipeService = class(TRORemotable, INamedPipeService)
+  private
+  protected
+    { INamedPipeService methods }
+    function GetPath: Widestring;
+    function GetConnectedUsersCount: Integer;
+    function UpTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {Generated:} NamedPipeLibrary_Invk,
+  Windows;
+
+procedure Create_NamedPipeService(out anInstance: IUnknown);
+begin
+  anInstance := TNamedPipeService.Create;
+end;
+
+{ NamedPipeService }
+
+function TNamedPipeService.GetConnectedUsersCount: Integer;
+begin
+  Result := Random(100);
+end;
+
+function TNamedPipeService.GetPath: Widestring;
+begin
+  Result := GetEnvironmentVariable('Path');
+end;
+
+function TNamedPipeService.UpTime: DateTime;
+begin
+  Result := GetTickCount / MSecsPerDay;
+end;
+
+initialization
+  Randomize;
+  TROClassFactory.Create('NamedPipeService', Create_NamedPipeService, TNamedPipeService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/RODLFILE.res
new file mode 100644
index 0000000..e12681b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/install_service.cmd b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/install_service.cmd
new file mode 100644
index 0000000..61927ad
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/install_service.cmd	
@@ -0,0 +1,2 @@
+NamedPipeServer.exe /install
+net start NamedPipeServerService
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/uninstall_service.cmd b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/uninstall_service.cmd
new file mode 100644
index 0000000..239d0a6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Named Pipes/uninstall_service.cmd	
@@ -0,0 +1,2 @@
+net stop NamedPipeServerService
+NamedPipeServer.exe /uninstall
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.Sample.html
new file mode 100644
index 0000000..13caf4e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.Sample.html	
@@ -0,0 +1,28 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Proxy Server Sample</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>This example shows how to create a proxy server to redirect the calls to another
+  server without having to recreate the RODL file, thus allowing the use of the same types of the original server.<br>
+This provides total control. As every call will pass from the proxy class before going to the real server, you can even stop methods from being dispatched any further.</p>
+
+<p>
+<b>ProxyServer_ProxyServer_Impl</b> was created by simply copying the original <b>MainService_Impl.pas</b> file, renaming the <b>TMainService class</b> to <b>TProxyService</b> followed by implementing a bypass for all the method calls. This class is basically a server which accesses a RemObjects SDK server as a client would do.
+</p>
+<h2>Getting Started</h2>
+Launch both servers and run the client. <br>
+The client allows you to select either server. When you execute a method using the Proxy Server, you will see both servers log the call.
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.bdsgroup
new file mode 100644
index 0000000..adffb7a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.bdsgroup	
@@ -0,0 +1,21 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{ED015953-5EDB-4C12-976E-0004BA278DA8}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="ProxyServer_MainServer.exe">ProxyServer_MainServer.bdsproj</Projects>
+      <Projects Name="ProxyServer_Client.exe">ProxyServer_Client.bdsproj</Projects>
+      <Projects Name="ProxyServer_ProxyServer.exe">ProxyServer_ProxyServer.bdsproj</Projects>
+      <Projects Name="Targets">ProxyServer_MainServer.exe ProxyServer_Client.exe ProxyServer_ProxyServer.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.bpg
new file mode 100644
index 0000000..10a7447
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.bpg	
@@ -0,0 +1,26 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = ProxyServer_MainServer.exe ProxyServer_Client.exe ProxyServer_ProxyServer.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+ProxyServer_MainServer.exe: ProxyServer_MainServer.dpr
+  $(DCC)
+
+ProxyServer_Client.exe: ProxyServer_Client.dpr
+  $(DCC)
+
+ProxyServer_ProxyServer.exe: ProxyServer_ProxyServer.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.groupproj
new file mode 100644
index 0000000..c758a07
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer.groupproj	
@@ -0,0 +1,49 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{908dd4fb-64f2-4f8b-b627-9f3ff95b8990}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="ProxyServer_MainServer">
+    <MSBuild Projects="ProxyServer_MainServer.dproj" Targets="" />
+  </Target>
+  <Target Name="ProxyServer_MainServer:Clean">
+    <MSBuild Projects="ProxyServer_MainServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ProxyServer_MainServer:Make">
+    <MSBuild Projects="ProxyServer_MainServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ProxyServer_Client">
+    <MSBuild Projects="ProxyServer_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="ProxyServer_Client:Clean">
+    <MSBuild Projects="ProxyServer_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ProxyServer_Client:Make">
+    <MSBuild Projects="ProxyServer_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ProxyServer_ProxyServer">
+    <MSBuild Projects="ProxyServer_ProxyServer.dproj" Targets="" />
+  </Target>
+  <Target Name="ProxyServer_ProxyServer:Clean">
+    <MSBuild Projects="ProxyServer_ProxyServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ProxyServer_ProxyServer:Make">
+    <MSBuild Projects="ProxyServer_ProxyServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="ProxyServer_MainServer;ProxyServer_Client;ProxyServer_ProxyServer" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="ProxyServer_MainServer:Clean;ProxyServer_Client:Clean;ProxyServer_ProxyServer:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="ProxyServer_MainServer:Make;ProxyServer_Client:Make;ProxyServer_ProxyServer:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary.rodl
new file mode 100644
index 0000000..f891a62
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary.rodl	
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="ProxyServerMainLibrary" UID="{00B1E82E-7479-4679-AB2F-4D18228C6F44}" Version="3.0">
+<Services>
+<Service Name="ProxyServerMainService" UID="{AB9E523C-5E79-4C12-8DEC-63DADC0108B5}">
+<Interfaces>
+<Interface Name="Default" UID="{00B1E82E-7479-4679-AB2F-4D18228C6F44}">
+<Documentation>
+<![CDATA[Service_MainService__This_service_has_been_automatically_generated_using_the_RODL_template_you_can_find_in_the_Templates_directory_]]>
+</Documentation>
+<Operations>
+<Operation Name="Sum" UID="{00B1E82E-7479-4679-AB2F-4D18228C6F44}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="A" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="B" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetServerTime" UID="{00B1E82E-7479-4679-AB2F-4D18228C6F44}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="EchoStruct" UID="{BE79DB91-CFE6-4EC0-BEBB-208CBEEF37AD}">
+<Parameters>
+<Parameter Name="Result" DataType="TestStruct" Flag="Result">
+</Parameter>
+<Parameter Name="aTestStruct" DataType="TestStruct" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="TestStruct" UID="{AA24203A-A751-4F9E-A681-E2ECE939DA05}" AutoCreateParams="1">
+<Elements>
+<Element Name="Name" DataType="String">
+</Element>
+<Element Name="IntNumber" DataType="Integer">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary_Intf.pas
new file mode 100644
index 0000000..70e8225
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary_Intf.pas	
@@ -0,0 +1,247 @@
+unit ProxyServerMainLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{00B1E82E-7479-4679-AB2F-4D18228C6F44}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IProxyServerMainService_IID : TGUID = '{00B1E82E-7479-4679-AB2F-4D18228C6F44}';
+
+  { Event ID's }
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  IProxyServerMainService = interface;
+
+  TestStruct = class;
+
+
+  { TestStruct }
+  TestStruct = class(TROComplexType)
+  private
+    fName: AnsiString;
+    fIntNumber: Integer;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property Name:AnsiString read fName write fName;
+    property IntNumber:Integer read fIntNumber write fIntNumber;
+  end;
+
+  { TestStructCollection }
+  TestStructCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): TestStruct;
+    procedure SetItems(aIndex: integer; const Value: TestStruct);
+  public
+    constructor Create; overload;
+    function Add: TestStruct; reintroduce;
+    property Items[Index: integer]:TestStruct read GetItems write SetItems; default;
+  end;
+
+  { IProxyServerMainService }
+  IProxyServerMainService = interface
+    ['{00B1E82E-7479-4679-AB2F-4D18228C6F44}']
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    function EchoStruct(const aTestStruct: TestStruct): TestStruct;
+  end;
+
+  { CoProxyServerMainService }
+  CoProxyServerMainService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IProxyServerMainService;
+  end;
+
+  { TProxyServerMainService_Proxy }
+  TProxyServerMainService_Proxy = class(TROProxy, IProxyServerMainService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    function EchoStruct(const aTestStruct: TestStruct): TestStruct;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ TestStruct }
+
+procedure TestStruct.Assign(iSource: TPersistent);
+var lSource: ProxyServerMainLibrary_Intf.TestStruct;
+begin
+  inherited Assign(iSource);
+  if (iSource is ProxyServerMainLibrary_Intf.TestStruct) then begin
+    lSource := ProxyServerMainLibrary_Intf.TestStruct(iSource);
+    Name := lSource.Name;
+    IntNumber := lSource.IntNumber;
+  end;
+end;
+
+procedure TestStruct.ReadComplex(ASerializer: TObject);
+var
+  l_IntNumber: Integer;
+  l_Name: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_Name := Name;
+    TROSerializer(ASerializer).ReadAnsiString('Name', l_Name);
+    Name := l_Name;
+    l_IntNumber := IntNumber;
+    TROSerializer(ASerializer).ReadInteger('IntNumber', otSLong, l_IntNumber);
+    IntNumber := l_IntNumber;
+  end
+  else begin
+    l_IntNumber := IntNumber;
+    TROSerializer(ASerializer).ReadInteger('IntNumber', otSLong, l_IntNumber);
+    IntNumber := l_IntNumber;
+    l_Name := Name;
+    TROSerializer(ASerializer).ReadAnsiString('Name', l_Name);
+    Name := l_Name;
+  end;
+end;
+
+procedure TestStruct.WriteComplex(ASerializer: TObject);
+var
+  l_IntNumber: Integer;
+  l_Name: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(TestStruct);
+    l_Name := Name;
+    TROSerializer(ASerializer).WriteAnsiString('Name', l_Name);
+    l_IntNumber := IntNumber;
+    TROSerializer(ASerializer).WriteInteger('IntNumber', otSLong, l_IntNumber);
+  end
+  else begin
+    l_IntNumber := IntNumber;
+    TROSerializer(ASerializer).WriteInteger('IntNumber', otSLong, l_IntNumber);
+    l_Name := Name;
+    TROSerializer(ASerializer).WriteAnsiString('Name', l_Name);
+  end;
+end;
+
+{ TestStructCollection }
+constructor TestStructCollection.Create;
+begin
+  inherited Create(TestStruct);
+end;
+
+constructor TestStructCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TestStructCollection.Add: TestStruct;
+begin
+  result := TestStruct(inherited Add);
+end;
+
+function TestStructCollection.GetItems(aIndex: integer): TestStruct;
+begin
+  result := TestStruct(inherited Items[aIndex]);
+end;
+
+procedure TestStructCollection.SetItems(aIndex: integer; const Value: TestStruct);
+begin
+  TestStruct(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoProxyServerMainService }
+
+class function CoProxyServerMainService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IProxyServerMainService;
+begin
+  result := TProxyServerMainService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TProxyServerMainService_Proxy }
+
+function TProxyServerMainService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ProxyServerMainService';
+end;
+
+function TProxyServerMainService_Proxy.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ProxyServerMainLibrary', __InterfaceName, 'Sum');
+    __Message.Write('A', TypeInfo(Integer), A, []);
+    __Message.Write('B', TypeInfo(Integer), B, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TProxyServerMainService_Proxy.GetServerTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'ProxyServerMainLibrary', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TProxyServerMainService_Proxy.EchoStruct(const aTestStruct: TestStruct): TestStruct;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'ProxyServerMainLibrary', __InterfaceName, 'EchoStruct');
+    __Message.Write('aTestStruct', TypeInfo(ProxyServerMainLibrary_Intf.TestStruct), aTestStruct, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(ProxyServerMainLibrary_Intf.TestStruct), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TestStruct);
+  RegisterProxyClass(IProxyServerMainService_IID, TProxyServerMainService_Proxy);
+
+
+finalization
+  UnregisterROClass(TestStruct);
+  UnregisterProxyClass(IProxyServerMainService_IID);
+
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary_Invk.pas
new file mode 100644
index 0000000..dda4518
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainLibrary_Invk.pas	
@@ -0,0 +1,116 @@
+unit ProxyServerMainLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} ProxyServerMainLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TProxyServerMainService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_EchoStruct(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TProxyServerMainService_Invoker }
+
+constructor TProxyServerMainService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TProxyServerMainService_Invoker.Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Sum(const A: Integer; const B: Integer): Integer; }
+var
+  A: Integer;
+  B: Integer;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('A', TypeInfo(Integer), A, []);
+    __Message.Read('B', TypeInfo(Integer), B, []);
+
+    lResult := (__Instance as IProxyServerMainService).Sum(A, B);
+
+    __Message.InitializeResponseMessage(__Transport, 'ProxyServerMainLibrary', 'ProxyServerMainService', 'SumResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TProxyServerMainService_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as IProxyServerMainService).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'ProxyServerMainLibrary', 'ProxyServerMainService', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TProxyServerMainService_Invoker.Invoke_EchoStruct(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function EchoStruct(const aTestStruct: TestStruct): TestStruct; }
+var
+  aTestStruct: ProxyServerMainLibrary_Intf.TestStruct;
+  lResult: ProxyServerMainLibrary_Intf.TestStruct;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  aTestStruct := nil;
+  lResult := nil;
+  try
+    __Message.Read('aTestStruct', TypeInfo(ProxyServerMainLibrary_Intf.TestStruct), aTestStruct, []);
+
+    lResult := (__Instance as IProxyServerMainService).EchoStruct(aTestStruct);
+
+    __Message.InitializeResponseMessage(__Transport, 'ProxyServerMainLibrary', 'ProxyServerMainService', 'EchoStructResponse');
+    __Message.Write('Result', TypeInfo(ProxyServerMainLibrary_Intf.TestStruct), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(aTestStruct);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainService_Impl.pas
new file mode 100644
index 0000000..43bd3a8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServerMainService_Impl.pas	
@@ -0,0 +1,63 @@
+unit ProxyServerMainService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} ProxyServerMainLibrary_Intf;
+
+type
+  { TProxyServerMainService }
+  TProxyServerMainService = class(TRORemotable, IProxyServerMainService)
+  private
+  protected
+    { IProxyServerMainService methods }
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    function EchoStruct(const aTestStruct: TestStruct): TestStruct;
+  end;
+
+implementation
+
+uses
+  {Generated:} ProxyServerMainLibrary_Invk;
+
+procedure Create_ProxyServerMainService(out anInstance: IUnknown);
+begin
+  anInstance := TProxyServerMainService.Create;
+end;
+
+{ ProxyServerMainService }
+
+function TProxyServerMainService.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  result := A + B;
+end;
+
+function TProxyServerMainService.GetServerTime: DateTime;
+begin
+  result := Now;
+end;
+
+function TProxyServerMainService.EchoStruct(const aTestStruct: TestStruct): TestStruct;
+begin
+  result := TestStruct.Create;
+  result.Name := aTestStruct.Name;
+  result.IntNumber := aTestStruct.IntNumber;
+end;
+
+initialization
+  TROClassFactory.Create('ProxyServerMainService', Create_ProxyServerMainService, TProxyServerMainService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.bdsproj
new file mode 100644
index 0000000..d54685a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1CD0015C-1E90-439F-B7C9-516C471A2CC7}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ProxyServer_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.dpr
new file mode 100644
index 0000000..82dca25
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.dpr	
@@ -0,0 +1,14 @@
+program ProxyServer_Client;
+
+uses
+  Forms,
+  ProxyServer_Client_Main in 'ProxyServer_Client_Main.pas' {ProxyServer_Client_MainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'ProxyServer - Client';
+  Application.CreateForm(TProxyServer_Client_MainForm, ProxyServer_Client_MainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.dproj
new file mode 100644
index 0000000..1ebf597
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{40192763-adee-47c0-a56b-982934cc7c3f}</ProjectGuid>
+    <MainSource>ProxyServer_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ProxyServer_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ProxyServer_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ProxyServer_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ProxyServer_Client_Main.pas">
+      <Form>ProxyServer_Client_MainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.res
new file mode 100644
index 0000000..fb3116f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client_Main.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client_Main.dfm
new file mode 100644
index 0000000..912eba6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client_Main.dfm	
@@ -0,0 +1,81 @@
+object ProxyServer_Client_MainForm: TProxyServer_Client_MainForm
+  Left = 127
+  Top = 126
+  Width = 209
+  Height = 188
+  Caption = 'ProxyServer - Client'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 9
+    Top = 12
+    Width = 36
+    Height = 13
+    Caption = 'Server:'
+  end
+  object cbServer: TComboBox
+    Left = 49
+    Top = 8
+    Width = 145
+    Height = 21
+    Style = csDropDownList
+    ItemHeight = 13
+    ItemIndex = 0
+    TabOrder = 0
+    Text = 'Main Server'
+    Items.Strings = (
+      'Main Server'
+      'Proxy Server')
+  end
+  object SumButton: TButton
+    Left = 46
+    Top = 56
+    Width = 109
+    Height = 25
+    Caption = 'Sum(1,2)'
+    TabOrder = 1
+    OnClick = SumButtonClick
+  end
+  object GetServerTimeButton: TButton
+    Left = 46
+    Top = 88
+    Width = 109
+    Height = 25
+    Caption = 'GetServerTime'
+    TabOrder = 2
+    OnClick = GetServerTimeButtonClick
+  end
+  object EchoStructButton: TButton
+    Left = 46
+    Top = 120
+    Width = 109
+    Height = 25
+    Caption = 'EchoStruct'
+    TabOrder = 3
+    OnClick = EchoStructButtonClick
+  end
+  object ROBINMessage: TROBinMessage
+    Left = 8
+    Top = 40
+  end
+  object ROIndyTCPChannel: TROIndyTCPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Port = 8090
+    Host = '127.0.0.1'
+    Left = 40
+    Top = 40
+  end
+  object ROWinMessageChannel: TROWinMessageChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    ServerID = '{F5B38440-F071-45B8-AF67-1023F20C179D}'
+    Delay = 50
+    Left = 40
+    Top = 72
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client_Main.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client_Main.pas
new file mode 100644
index 0000000..86fd06b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_Client_Main.pas	
@@ -0,0 +1,72 @@
+unit ProxyServer_Client_Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, uROIndyTCPChannel,
+  uROClient, uROBINMessage, ProxyServerMainLibrary_Intf, uROWinMessageChannel;
+
+type
+  TProxyServer_Client_MainForm = class(TForm)
+    ROBINMessage: TROBINMessage;
+    ROIndyTCPChannel: TROIndyTCPChannel;
+    Label1: TLabel;
+    cbServer: TComboBox;
+    SumButton: TButton;
+    GetServerTimeButton: TButton;
+    EchoStructButton: TButton;
+    ROWinMessageChannel: TROWinMessageChannel;
+    procedure SumButtonClick(Sender: TObject);
+    procedure GetServerTimeButtonClick(Sender: TObject);
+    procedure EchoStructButtonClick(Sender: TObject);
+  private
+    function CreateService: IProxyServerMainService;
+  public
+
+  end;
+
+var
+  ProxyServer_Client_MainForm: TProxyServer_Client_MainForm;
+
+implementation
+
+{$R *.dfm}
+
+function TProxyServer_Client_MainForm.CreateService: IProxyServerMainService;
+begin
+  if cbServer.ItemIndex = 0 then
+    result := CoProxyServerMainService.Create(ROBINMessage, ROIndyTCPChannel) // TCP over main one
+  else
+    result := CoProxyServerMainService.Create(ROBINMessage, ROWinMessageChannel) // Windows messages to proxy
+end;
+
+procedure TProxyServer_Client_MainForm.SumButtonClick(Sender: TObject);
+begin
+  ShowMessage('Result is ' + IntToStr(CreateService.Sum(1, 2)));
+end;
+
+procedure TProxyServer_Client_MainForm.GetServerTimeButtonClick(Sender: TObject);
+begin
+  ShowMessage('Time is ' + DateTimeToStr(CreateService.GetServerTime));
+end;
+
+procedure TProxyServer_Client_MainForm.EchoStructButtonClick(Sender: TObject);
+var
+  out_struct, in_struct: TestStruct;
+begin
+  in_struct := nil;
+  out_struct := TestStruct.Create;
+  out_struct.Name := 'Dave Fuller';
+  out_struct.IntNumber := 666;
+  try
+    in_struct := CreateService.EchoStruct(out_struct);
+    ShowMessage(string(out_struct.Name) + ', ' + IntToStr(out_struct.IntNumber));
+  finally
+    if in_struct <> nil then in_struct.Free;
+    out_struct.Free;
+  end;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.bdsproj
new file mode 100644
index 0000000..9ae271b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{8FF6FC81-0E40-46A6-B290-21531E1FF7A9}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ProxyServer_MainServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.dpr
new file mode 100644
index 0000000..e009288
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.dpr	
@@ -0,0 +1,20 @@
+program ProxyServer_MainServer;
+
+{#ROGEN:ProxyServerMainLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  Forms,
+  ProxyServer_MainServer_Main in 'ProxyServer_MainServer_Main.pas' {ProxyServer_MainServer_MainForm},
+  ProxyServerMainLibrary_Intf in 'ProxyServerMainLibrary_Intf.pas',
+  ProxyServerMainLibrary_Invk in 'ProxyServerMainLibrary_Invk.pas',
+  ProxyServerMainService_Impl in 'ProxyServerMainService_Impl.pas';
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'ProxyServer - Main Server';
+  Application.CreateForm(TProxyServer_MainServer_MainForm, ProxyServer_MainServer_MainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.dproj
new file mode 100644
index 0000000..cf4ab22
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{6d2f01cb-292f-4613-bb90-73f9c18e9b28}</ProjectGuid>
+    <MainSource>ProxyServer_MainServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ProxyServer_MainServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ProxyServer_MainServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ProxyServer_MainServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ProxyServerMainLibrary_Intf.pas" />
+    <DCCReference Include="ProxyServerMainLibrary_Invk.pas" />
+    <DCCReference Include="ProxyServerMainService_Impl.pas" />
+    <DCCReference Include="ProxyServer_MainServer_Main.pas">
+      <Form>ProxyServer_MainServer_MainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.res
new file mode 100644
index 0000000..53aa370
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer_Main.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer_Main.dfm
new file mode 100644
index 0000000..cc88fa8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer_Main.dfm	
@@ -0,0 +1,38 @@
+object ProxyServer_MainServer_MainForm: TProxyServer_MainServer_MainForm
+  Left = 202
+  Top = 241
+  Width = 232
+  Height = 109
+  Caption = 'ProxyServer - Main Server'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Memo: TMemo
+    Left = 0
+    Top = 0
+    Width = 224
+    Height = 76
+    Align = alClient
+    TabOrder = 0
+  end
+  object ROMessage: TROBinMessage
+    Left = 88
+    Top = 8
+  end
+  object ROServer: TROIndyTCPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    OnReadFromStream = ROServerReadFromStream
+    Port = 8090
+    Left = 56
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer_Main.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer_Main.pas
new file mode 100644
index 0000000..f32fb8b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_MainServer_Main.pas	
@@ -0,0 +1,42 @@
+unit ProxyServer_MainServer_Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROIndyTCPServer;
+
+type
+  TProxyServer_MainServer_MainForm = class(TForm)
+    ROMessage: TROBINMessage;
+    ROServer: TROIndyTCPServer;
+    Memo: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure ROServerReadFromStream(aStream: TStream);
+  private
+
+  protected
+
+  public
+
+  end;
+
+var
+  ProxyServer_MainServer_MainForm: TProxyServer_MainServer_MainForm;
+
+implementation
+
+
+{$R *.DFM}
+
+procedure TProxyServer_MainServer_MainForm.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := TRUE;
+end;
+
+procedure TProxyServer_MainServer_MainForm.ROServerReadFromStream(aStream: TStream);
+begin
+  Memo.Lines.Add('Request arrived...')
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.bdsproj
new file mode 100644
index 0000000..1b26556
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{DBBF5B8E-4929-4C65-98C6-BF7C1CE5E71D}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ProxyServer_ProxyServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.dpr
new file mode 100644
index 0000000..4e2e858
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.dpr	
@@ -0,0 +1,15 @@
+program ProxyServer_ProxyServer;
+
+uses
+  Forms,
+  ProxyServer_ProxyServer_Main in 'ProxyServer_ProxyServer_Main.pas' {ProxyServer_ProxyServer_MainForm},
+  ProxyServer_ProxyServer_Impl in 'ProxyServer_ProxyServer_Impl.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'ProxyServer - Proxy Server';
+  Application.CreateForm(TProxyServer_ProxyServer_MainForm, ProxyServer_ProxyServer_MainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.dproj
new file mode 100644
index 0000000..396d717
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.dproj	
@@ -0,0 +1,79 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{9099b695-4d6f-4abe-8cc9-ee7cb8b02ae4}</ProjectGuid>
+    <MainSource>ProxyServer_ProxyServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ProxyServer_ProxyServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ProxyServer_ProxyServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ProxyServer_ProxyServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ProxyServer_ProxyServer_Impl.pas" />
+    <DCCReference Include="ProxyServer_ProxyServer_Main.pas">
+      <Form>ProxyServer_ProxyServer_MainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.res
new file mode 100644
index 0000000..53aa370
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Impl.pas
new file mode 100644
index 0000000..1aa4be7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Impl.pas	
@@ -0,0 +1,110 @@
+unit ProxyServer_ProxyServer_Impl;
+
+{ This example shows how to create a proxy server to redirect the calls to another
+  server without having to recreate the RODL file, thus allowing the use of the same types
+  of the original server.
+
+  In order to create this kind of proxy server you need to:
+
+    1) start a **blank** project (without any RODL, since we want to use that of the original server) and
+       add the server and message components that the proxy will use to listen to requests.
+       !!! See the unit fProxyServerForm.pas and the DPR of this project. There's no RODL referenced in it.
+
+    2) Link the two components via a standard dispatcher item like you would normally do.
+
+    3) Create a new TRORemotable unit like this exact file you are looking at
+
+    4) Done!
+
+    This unit was created by simply copying the original MainService_Impl.pas file,
+    renaming the TMainService class to TProxyService followed by implementing a bypass for all
+    the method calls. This class is basically a server which accesses a RO server as a client would do.
+
+    There are other possible solutions to the proxy dilemma. This one though provides
+    more control over everything. Specifically, since every call will pass from the proxy class before
+    going to the real server, you can stop methods from being dispatched any further.
+
+    Enjoy!
+}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf,
+  {Generated:} ProxyServerMainLibrary_Intf,
+
+  uROIndyTCPChannel, uROClient, uROBINMessage;
+
+type
+  TProxyService = class(TRORemotable, IProxyServerMainService)
+  private
+    fTCPChannel: TROIndyTCPChannel;
+    fBINMessage: TROBINMessage;
+
+    function CreateService: IProxyServerMainService;
+
+  protected
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+    function EchoStruct(const aTestStruct: TestStruct): TestStruct;
+
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses
+  {Generated:} ProxyServerMainLibrary_Invk, SysUtils;
+
+procedure Create_ProxyService(out anInstance: IUnknown);
+begin
+  anInstance := TProxyService.Create;
+end;
+
+constructor TProxyService.Create;
+begin
+  inherited;
+
+  fTCPChannel := TROIndyTCPChannel.Create(nil);
+  fBINMessage := TROBINMessage.Create(nil);
+end;
+
+destructor TProxyService.Destroy;
+begin
+  fTCPChannel.Free;
+  fBINMessage.Free;
+
+  inherited;
+end;
+
+function TProxyService.CreateService: IProxyServerMainService;
+begin
+  result := CoProxyServerMainService.Create(fBINMessage, fTCPChannel);
+end;
+
+function TProxyService.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  result := CreateService.Sum(A, B)
+end;
+
+function TProxyService.GetServerTime: DateTime;
+begin
+  result := CreateService.GetServerTime
+end;
+
+function TProxyService.EchoStruct(const aTestStruct: TestStruct): TestStruct;
+begin
+  result := CreateService.EchoStruct(aTestStruct)
+end;
+
+initialization
+  TROClassFactory.Create('ProxyServerMainService', Create_ProxyService, TProxyServerMainService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Main.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Main.dfm
new file mode 100644
index 0000000..f92cc99
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Main.dfm	
@@ -0,0 +1,37 @@
+object ProxyServer_ProxyServer_MainForm: TProxyServer_ProxyServer_MainForm
+  Left = 177
+  Top = 117
+  Width = 290
+  Height = 120
+  Caption = 'ProxyServer - Proxy Server'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Memo: TMemo
+    Left = 0
+    Top = 0
+    Width = 282
+    Height = 87
+    Align = alClient
+    TabOrder = 0
+  end
+  object ROWinMessageServer: TROWinMessageServer
+    Dispatchers = <
+      item
+        Name = 'ROBINMessage1'
+        Message = ROBINMessage1
+        Enabled = True
+      end>
+    OnReadFromStream = ROWinMessageServerReadFromStream
+    ServerID = '{F5B38440-F071-45B8-AF67-1023F20C179D}'
+    Left = 72
+    Top = 32
+  end
+  object ROBINMessage1: TROBinMessage
+    Left = 104
+    Top = 32
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Main.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Main.pas
new file mode 100644
index 0000000..25532ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/ProxyServer_ProxyServer_Main.pas	
@@ -0,0 +1,40 @@
+unit ProxyServer_ProxyServer_Main;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs,  uROServer, uROWinMessageServer, 
+  uROIndyTCPChannel, uROClient, uROBINMessage, StdCtrls;
+
+type
+  TProxyServer_ProxyServer_MainForm = class(TForm)
+    ROWinMessageServer: TROWinMessageServer;
+    ROBINMessage1: TROBINMessage;
+    Memo: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure ROWinMessageServerReadFromStream(aStream: TStream);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ProxyServer_ProxyServer_MainForm: TProxyServer_ProxyServer_MainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TProxyServer_ProxyServer_MainForm.FormCreate(Sender: TObject);
+begin
+  ROWinMessageServer.Active := TRUE;
+end;
+
+procedure TProxyServer_ProxyServer_MainForm.ROWinMessageServerReadFromStream(aStream: TStream);
+begin
+  Memo.Lines.Add('Request arrived...')
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/RODLFILE.res
new file mode 100644
index 0000000..e313b96
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Proxy Server/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.Sample.html
new file mode 100644
index 0000000..faf54cb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.Sample.html	
@@ -0,0 +1,15 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">RODL Sample</p>
+
+<h2>Purpose</h2><p>This sample provides facilities to convert a RODL file into several other formats.</p><p>The <strong>Generate</strong> button (executed on start up) loads a test library containing a range of RODL objects. Alternatively, use the <strong>Load</strong> button to look at one of your own files.</p><p>Having loaded a file, select the <strong>conversion type</strong> (and <strong>Target Entry</strong> if generating implementaton code) followed by clicking on the <strong>Convert</strong> button.</p><p>As well as examining the code provided by this sample, you might also want to look at the conversion routines used by:</p><ul><li><strong>RemObjects SDK (Common)\Bin\RODL.exe</strong></li><li><strong>RemObjects SDK (Common)\Bin\ROServiceBuilder3.exe</strong></li></ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.bdsproj
new file mode 100644
index 0000000..1e9041e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{8E46070F-805D-4FF6-8CF3-89947689E930}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">RODL.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.cfg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.cfg
new file mode 100644
index 0000000..6830344
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.cfg	
@@ -0,0 +1,35 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"d:\program files\borland\delphi7\Projects\Bpl"
+-LN"d:\program files\borland\delphi7\Projects\Bpl"
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dof b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dof
new file mode 100644
index 0000000..daab2a8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dof	
@@ -0,0 +1,141 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=1
+UnsafeCode=1
+UnsafeCast=1
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;webdsnap;websnap;dbexpress;dbxcds;DataAbstract_Core_D6;DataAbstract_IDE_D6;DataAbstract_ADOXDriver_D6;cxWebD6;cxWebSnapD6;cxScriptEngineD6;cxDataD6;EWFServerPack_Core_D6;EWFServerPack_IDE_D6;db317d6r
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=C:\Program Files\Borland\Delphi6\Bin\
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+D:\Dev\DataAbstract\Dcu\D6\DataAbstract_MSADODACDriver_D6.bpl=Data Abstract - MSADODAC Driver
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\dclcxWebD6.bpl=ExpressWeb Framework by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressWeb Framework\Delphi 6\Lib\dclcxWebSnapD6.bpl=ExpressWebPage Module for WebSnap Application by Developer Express Inc.
+C:\Program Files\Developer Express Inc\ExpressWeb Framework\Delphi 6\Lib\dclcxWebTeeChartD6.bpl=WebTeeChart for EWF by Developer Express Inc.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dpr
new file mode 100644
index 0000000..80df9ba
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dpr	
@@ -0,0 +1,13 @@
+program RODL;
+
+uses
+  Forms,
+  RODLMain in 'RODLMain.pas' {RODLMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TRODLMainForm, RODLMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dproj
new file mode 100644
index 0000000..1ab7706
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{fe0caa48-879c-4ec6-805b-8fca878a2b6c}</ProjectGuid>
+    <MainSource>RODL.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>RODL.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">RODL.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="RODL.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="RODLMain.pas">
+      <Form>RODLMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.res
new file mode 100644
index 0000000..3219dfb
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODL.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODLMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODLMain.dfm
new file mode 100644
index 0000000..4a65b2d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODLMain.dfm	
@@ -0,0 +1,141 @@
+object RODLMainForm: TRODLMainForm
+  Left = 314
+  Top = 104
+  AutoScroll = False
+  Caption = 'RODL Demo'
+  ClientHeight = 232
+  ClientWidth = 628
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnActivate = GenerateButtonClick
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Splitter1: TSplitter
+    Left = 174
+    Top = 48
+    Width = 3
+    Height = 165
+    Cursor = crHSplit
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 628
+    Height = 48
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+    object lServices: TLabel
+      Left = 322
+      Top = 2
+      Width = 36
+      Height = 13
+      Caption = 'Service'
+    end
+    object Label1: TLabel
+      Left = 176
+      Top = 2
+      Width = 46
+      Height = 13
+      Caption = 'Converter'
+    end
+    object LoadButton: TButton
+      Left = 96
+      Top = 14
+      Width = 75
+      Height = 25
+      Caption = 'Load'
+      TabOrder = 0
+      OnClick = LoadButtonClick
+    end
+    object GenerateButton: TButton
+      Left = 8
+      Top = 14
+      Width = 75
+      Height = 25
+      Caption = 'Generate'
+      TabOrder = 1
+      OnClick = GenerateButtonClick
+    end
+    object cbWriters: TComboBox
+      Left = 176
+      Top = 16
+      Width = 145
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 2
+      OnChange = cbWritersChange
+    end
+    object cbServices: TComboBox
+      Left = 322
+      Top = 16
+      Width = 145
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 3
+    end
+    object ConvertButton: TButton
+      Left = 469
+      Top = 14
+      Width = 75
+      Height = 25
+      Caption = 'Convert'
+      TabOrder = 4
+      OnClick = ConvertButtonClick
+    end
+    object SaveButton: TButton
+      Left = 546
+      Top = 14
+      Width = 75
+      Height = 25
+      Caption = 'Save'
+      TabOrder = 5
+      OnClick = SaveButtonClick
+    end
+  end
+  object Memo: TMemo
+    Left = 177
+    Top = 48
+    Width = 451
+    Height = 165
+    Align = alClient
+    ScrollBars = ssBoth
+    TabOrder = 0
+  end
+  object StatusBar: TStatusBar
+    Left = 0
+    Top = 213
+    Width = 628
+    Height = 19
+    Panels = <>
+    SimplePanel = True
+  end
+  object TreeView: TTreeView
+    Left = 0
+    Top = 48
+    Width = 174
+    Height = 165
+    Align = alLeft
+    HideSelection = False
+    Indent = 20
+    ReadOnly = True
+    TabOrder = 3
+  end
+  object OpenDialog: TOpenDialog
+    FileName = '*.rodl'
+    Filter = 'RODL Files|*.rodl'
+    Left = 208
+    Top = 88
+  end
+  object SaveDialog: TSaveDialog
+    Filter = 'All files (*.*)|*.*'
+    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
+    Left = 281
+    Top = 92
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODLMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODLMain.pas
new file mode 100644
index 0000000..9803a7c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/RODL/RODLMain.pas	
@@ -0,0 +1,364 @@
+unit RODLMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, {$IFDEF VER140}Variants, {$ENDIF}Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, uRODL, ComCtrls;
+
+type
+  TRODLMainForm = class(TForm)
+    GenerateButton: TButton;
+    LoadButton: TButton;
+    ConvertButton: TButton;
+    cbWriters: TComboBox;
+    Memo: TMemo;
+    OpenDialog: TOpenDialog;
+    Label1: TLabel;
+    StatusBar: TStatusBar;
+    cbServices: TComboBox;
+    lServices: TLabel;
+    SaveButton: TButton;
+    SaveDialog: TSaveDialog;
+    Panel1: TPanel;
+    TreeView: TTreeView;
+    Splitter1: TSplitter;
+    procedure GenerateButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure ConvertButtonClick(Sender: TObject);
+    procedure LoadButtonClick(Sender: TObject);
+    procedure cbWritersChange(Sender: TObject);
+    procedure SaveButtonClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    fLibrary: TRODLLibrary;
+    function CheckLibrary(AShowMessage: Boolean): Boolean;
+    procedure FillLibrary;
+  public
+  end;
+
+var
+  RODLMainForm: TRODLMainForm;
+
+implementation
+
+uses uRODLToXML, uRODLToPascalInvk, uRODLToPascalIntf, uRODLToPascalImpl,
+  uRODLGenTools, uRODLToWSDL, uRODLToPascalAsync, uROClasses;
+
+{$R *.dfm}
+
+const
+  Writers: array[0..5] of TRODLConverterClass =
+  (TRODLToInvk, TRODLToIntf, TRODLToImpl, TRODLToXML, TRODLToWSDL, TRODLToPascalAsync);
+
+procedure TRODLMainForm.GenerateButtonClick(Sender: TObject);
+var
+  struct: TRODLStruct;
+  stelem: TRODLTypedEntity;
+  arr: TRODLArray;
+  svc: TRODLService;
+  enum: TRODLEnum;
+  eval: TRODLEnumValue;
+  intf: TRODLServiceInterface;
+  op: TRODLOperation;
+  par: TRODLOperationParam;
+
+  //  ent: TRODLEntity;
+  //  emsg: string;
+begin
+  Memo.Clear;
+  if fLibrary <> nil then fLibrary.Free;
+  fLibrary := TRODLLibrary.Create;
+
+  fLibrary.Info.Name := 'TestLibrary';
+  fLibrary.Info.UID := NewGuid;
+  fLibrary.Info.Attributes.Values['Test'] := 'a library attribute';
+
+  svc := TRODLService.Create;
+  svc.Info.Name := 'Gadget';
+  svc.Default.Info.UID := NewGuid;
+  svc.Default.Info.Documentation := 'Default interface for Gadget';
+  svc.Default.Info.Attributes.Values['TestName1'] := 'TestValue1';
+  svc.Default.Info.Attributes.Values['TestName2'] := 'TestValue2';
+
+  intf := svc.Default;
+
+  op := intf.Add;
+  op.Info.Name := 'Sum';
+  op.Info.UID := NewGuid;
+  op.Info.Documentation := 'Sum message';
+  op.Info.Attributes.Values['TestAttr1'] := 'TestAttrValue2';
+  op.Info.Attributes.Values['TestAttr2'] := 'TestAttrValue2';
+
+  par := op.Add;
+  par.Name := 'A';
+  par.DataType := 'integer';
+  par.Flag := fIn;
+
+  par := op.Add;
+  par.Name := 'B';
+  par.DataType := 'integer';
+  par.Flag := fIn;
+  par.Attributes.Values['Test'] := 'a parameter attribute';
+  par.Attributes.Values['Test'] := 'a parameter attribute #2';
+
+  par := op.AddResult;
+//  par.Name := 'result';
+  par.DataType := 'integer';
+//  par.Flag := fResult;
+
+  op := intf.Add;
+  op.Name := 'GetServerTime';
+  op.Attributes.Values['TestAttr1'] := 'TestAttrValue2';
+  op.Attributes.Values['TestAttr2'] := 'TestAttrValue2';
+  op.UID := NewGuid;
+  op.Documentation := 'GetServerTime message';
+
+  par := op.AddResult;
+//  par.Name := 'result';
+  par.DataType := 'datetime';
+//  par.Flag := fResult;
+
+  fLibrary.Add(svc);
+
+  svc := TRODLService.Create;
+  svc.Name := 'Test2';
+  svc.Default.UID := NewGuid;
+  svc.Default.Documentation := 'Default interface for Test2';
+
+  intf := svc.Default;
+
+  op := intf.Add;
+  op.Name := 'GetNumber';
+  op.UID := NewGuid;
+  op.Documentation := 'GetNumber message';
+
+  par := op.AddResult;
+//  par.Name := 'result';
+  par.DataType := 'integer';
+//  par.Flag := fResult;
+
+  fLibrary.Add(svc);
+
+  struct := TRODLStruct.Create;
+  struct.Attributes.Values['TestAttr1'] := 'TestAttrValue2';
+  struct.Attributes.Values['TestAttr2'] := 'TestAttrValue2';
+
+  struct.Name := 'TAddress';
+  struct.UID := NewGuid;
+  struct.Documentation := 'An address';
+
+  stelem := struct.Add;
+  stelem.Name := 'Street1';
+  stelem.DataType := 'AnsiString';
+
+  stelem := struct.Add;
+  stelem.Name := 'Street2';
+  stelem.DataType := 'AnsiString';
+
+  fLibrary.Add(struct);
+
+  struct := TRODLStruct.Create;
+  struct.Name := 'TPerson';
+  struct.UID := NewGuid;
+  struct.Documentation := 'A person';
+
+  stelem := struct.Add;
+  stelem.Name := 'FullName';
+  stelem.DataType := 'AnsiString';
+
+  stelem := struct.Add;
+  stelem.Name := 'Age';
+  stelem.DataType := 'integer';
+
+  fLibrary.Add(struct);
+
+  enum := TRODLEnum.Create;
+  enum.Name := 'TColor';
+  enum.UID := NewGuid;
+  enum.Documentation := 'This is TColor';
+  enum.Attributes.Values['TestAttr1'] := 'TestAttrValue2';
+  enum.Attributes.Values['TestAttr2'] := 'TestAttrValue2';
+
+  eval := enum.Add;
+  eval.Name := 'clRed';
+
+  eval := enum.Add;
+  eval.Name := 'clBlue';
+
+  fLibrary.Add(enum);
+
+  enum := TRODLEnum.Create;
+  enum.Name := 'TSex';
+  enum.UID := NewGuid;
+  enum.Documentation := 'This is TSex';
+
+  eval := enum.Add;
+  eval.Name := 'Male';
+
+  eval := enum.Add;
+  eval.Name := 'Female';
+
+  fLibrary.Add(enum);
+
+  arr := TRODLArray.Create;
+  arr.Name := 'TIntegerArray';
+  arr.Documentation := 'Thisis an integer array';
+  arr.UID := NewGuid;
+  arr.ElementType := 'integer';
+  arr.Attributes.Values['TestAttr1'] := 'TestAttrValue2';
+  arr.Attributes.Values['TestAttr2'] := 'TestAttrValue2';
+
+  fLibrary.Add(arr);
+
+  {if not fLibrary.Validate(ent, emsg)
+   then Caption := 'Libary is NOT valid: '+ent.Name+', '+emsg
+   else Caption := 'Libary is valid'}
+  FillLibrary;
+  StatusBar.SimpleText := 'Test RODL generated.';
+end;
+
+procedure TRODLMainForm.FormCreate(Sender: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to High(Writers) do
+    cbWriters.Items.Add(Writers[i].ClassName);
+  cbWriters.ItemIndex := cbWriters.Items.Count - 1;
+  cbWriters.OnChange(cbWriters);
+end;
+
+procedure TRODLMainForm.ConvertButtonClick(Sender: TObject);
+begin
+  with Writers[cbWriters.ItemIndex].Create(fLibrary, cbServices.Text) do try
+    Memo.Lines.Text := Buffer.Text
+  finally
+    Free;
+  end;
+end;
+
+procedure TRODLMainForm.LoadButtonClick(Sender: TObject);
+var
+  fs: TFileStream;
+begin
+
+  if not OpenDialog.Execute then Exit;
+
+  FreeAndNIL(fLibrary);
+  Memo.Clear;
+  FillLibrary;
+
+  fs := TFileStream.Create(OpenDialog.FileName, fmOpenRead);
+  with TXMLToRODL.Create do try
+    fLibrary := Read(fs);
+  finally
+    Free;
+    fs.Free;
+  end;
+  FillLibrary;
+  StatusBar.SimpleText := ExtractFileName(OpenDialog.FileName) + ' loaded. Please specify the convertor and click ''Convert''';
+  //  ConvertButton.Click;
+end;
+
+procedure TRODLMainForm.cbWritersChange(Sender: TObject);
+var
+  i: integer;
+begin
+  cbServices.Clear;
+  if Writers[cbWriters.ItemIndex] = TRODLToImpl then begin
+    if fLibrary <> nil then
+      for i := 0 to fLibrary.ServiceCount - 1 do
+        cbServices.Items.Add(fLibrary.Services[i].Name);
+    if cbServices.Items.Count > 0 then cbServices.ItemIndex := 0;
+  end
+  else if Writers[cbWriters.ItemIndex] = TRODLToWSDL then begin
+    cbServices.Items.Add('');
+    if fLibrary <> nil then
+      for i := 0 to fLibrary.ServiceCount - 1 do
+        cbServices.Items.Add(fLibrary.Services[i].Name);
+    cbServices.ItemIndex := 0;
+  end;
+
+  lServices.Enabled := (Writers[cbWriters.ItemIndex] = TRODLToImpl) or (Writers[cbWriters.ItemIndex] = TRODLToWSDL);
+  cbServices.Enabled := lServices.Enabled;
+  if cbServices.Enabled then
+    cbServices.Color := clWindow
+  else
+    cbServices.ParentColor := True;
+end;
+
+procedure TRODLMainForm.SaveButtonClick(Sender: TObject);
+var
+  FFileName: string;
+begin
+  if not CheckLibrary(True) then Exit;
+  ConvertButton.Click;
+  fFileName := Writers[cbWriters.ItemIndex].GetTargetFileName(fLibrary, cbServices.Text);
+  if FFileName = '' then FFileName := ChangeFileExt(fLibrary.Name, '.xml');
+  SaveDialog.FileName := fFileName;
+  SaveDialog.DefaultExt := ExtractFileExt(SaveDialog.FileName);
+  if SaveDialog.Execute then Memo.Lines.SaveToFile(SaveDialog.FileName);
+end;
+
+function TRODLMainForm.CheckLibrary(AShowMessage: Boolean): Boolean;
+begin
+  Result := fLibrary <> nil;
+  if not result then ShowMessage('Please load or generate a RODL library');
+end;
+
+procedure TRODLMainForm.FillLibrary;
+var
+  FRootNode, tempNode: TTreeNode;
+  i: integer;
+begin
+  with TreeView do begin
+    Items.Clear;
+    if fLibrary = nil then Exit;
+    FRootNode := Items.AddChild(nil, fLibrary.Name);
+
+    tempNode := Items.AddChild(FRootNode, 'Structs');
+    for i := 0 to fLibrary.StructCount - 1 do
+      Items.AddChild(tempNode, fLibrary.Structs[i].Name);
+
+    tempNode := Items.AddChild(FRootNode, 'Arrays');
+    for i := 0 to fLibrary.ArrayCount - 1 do
+      Items.AddChild(tempNode, fLibrary.Arrays[i].Name);
+
+    tempNode := Items.AddChild(FRootNode, 'Enums');
+    for i := 0 to fLibrary.EnumCount - 1 do
+      Items.AddChild(tempNode, fLibrary.Enums[i].Name);
+
+    tempNode := Items.AddChild(FRootNode, 'Services');
+    for i := 0 to fLibrary.ServiceCount - 1 do begin
+      Items.AddChild(tempNode, fLibrary.Services[i].Name);
+    end;
+
+    tempNode := Items.AddChild(FRootNode, 'Exceptions');
+    for i := 0 to fLibrary.ExceptionCount - 1 do
+      Items.AddChild(tempNode, fLibrary.Exceptions[i].Name);
+
+    tempNode := Items.AddChild(FRootNode, 'Use');
+    for i := 0 to fLibrary.UseCount - 1 do
+      Items.AddChild(tempNode, fLibrary.Use[i].Name);
+
+    tempNode := Items.AddChild(FRootNode, 'Groups');
+    for i := 0 to fLibrary.GroupCount - 1 do
+      Items.AddChild(tempNode, fLibrary.Groups[i].Name);
+
+    tempNode := Items.AddChild(FRootNode, 'Event Sinks');
+    for i := 0 to fLibrary.EventSinkCount - 1 do
+      Items.AddChild(tempNode, fLibrary.EventSinks[i].Name);
+
+    FRootNode.Expand(True);
+    FRootNode.Selected := True;
+    FRootNode.MakeVisible;
+  end;
+end;
+
+procedure TRODLMainForm.FormDestroy(Sender: TObject);
+begin
+  if fLibrary <> nil then fLibrary.Free;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Samples.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Samples.html
new file mode 100644
index 0000000..b5ef964
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Samples.html	
@@ -0,0 +1,392 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="styles.css">
+	</head>
+	<body>
+		<img src="..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<h2 class="h1">
+  RemObjects SDK Samples for Delphi
+</h2>
+<p>
+    Please keep the following things in mind when working with the samples:
+</p> 
+        <ul>
+            <li>
+To help you find the sample you need and also to provide a suggested start order, 
+the samples are listed in one or more categories followed by the actual sample descriptions 
+in alphabetical order.&nbsp;</li>
+            <li>There may be samples shipped that are not listed below. 
+Samples are not added to the list until they have passed our final quality inspection. 
+This doesn't mean they are faulty, only that they are still pending final inspection. </li>
+        </ul>
+
+<h2 class="h1">
+    <span style="font-size: 14pt">Getting Started</span></h2>
+Most of the samples provide a project group containing server and client projects. 
+The standard procedure for testing these is as follows:
+<ul>
+<li>Build or compile both projects.</li>
+<li> Ensure that the server is the current project. <strong>Note:</strong> if there is
+    only one RemObjects SDK server contained within the project group, this step is
+    not needed because the next step will still work even if the lient is the current
+    project.&nbsp;</li><li> Launch the server (IDE menu: <b>RemObjects | Launch Server Executable</b>).</li>
+<li> Examine the server window. Some samples require that you activate one or more channels.</li>
+<li> Make the client the current project.</li>
+<li> Run the client.</li>
+</ul>
+Having tested the sample, next examine the services provided. Do this by examining the RODL 
+via the <b> Service Builder</b> tool provided: 
+<ul>
+<li> Ensure that the server is the current project.</li>
+<li> Open the Service Builder (IDE menu: <b>RemObjects | Edit Service Library</b>).</li>
+</ul>
+<!==========================================================================><h2 class="h1">
+    <span style="font-size: 14pt">Sample Categories</span></h2>
+        <ul>
+            <li>Some samples are shown below in more than one category.</li>
+            <li>The <strong>Dynamic Request</strong>, &nbsp;<strong>RODL</strong> and <strong>Named Pipe</strong> samples do not ship with
+                the trial version of the RemObjects SDK.
+        </ul>
+<table border="1" style="WIDTH: 100%" cellspacing="0" cellpadding="5"><tbody>
+<tr>
+<th style="WIDTH: 50%"><p>Category </p></th>
+<th style="WIDTH: 50%"><p>Samples </p></th>
+</tr>
+<tr>
+<td>Introduction</td>
+<td>
+<p> First Sample </p>
+<p>Multi Channel</p>
+<p> Super TCP Channel Chat </p>
+<p> RODL <span style="color: #ff0000">(not shipped with the trial version)</span></p>
+<p> Async </p>
+<p> Auto Server </p>
+<p> Dynamic Request <span style="color: #ff0000">(not shipped with the trial version)</span>&nbsp;</p>
+<p> Session Types </p>
+    <p>
+        <strong><span style="color: #ff0000"></span></strong>Time Server
+    </p>
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Channels</td>
+<td>
+<p> MegaDemo </p>
+<p> Multi Channel </p>
+<p> Super TCP Channel Chat </p>
+<p> HTTP Chat </p>
+<p> Named Pipes <span style="color: red">(not shipped with the trial version)</span></p>
+</td>
+</tr>
+<!---------------------------------------------->
+<!---------------------------------------------->
+<tr>
+<td>Intermediate</td>
+<td>
+<p> Arrays</p>
+    <p>
+        Broadcast Chat
+    </p>
+<p> Extended File Transfer </p>
+<p> Named Pipes <span style="color: #ff0000">(not shipped with the trial version)</span></p>
+<p> Service Discovery </p>
+<p> Variants </p>
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Architecture</td>
+<td>
+<p> Session Types </p>
+    <p>
+        <strong><span style="color: #ff0000"></span></strong>Class Factories
+    </p>
+<p> FPC Server</p>
+    <p>
+        DataSnap
+    </p>
+<p> Dispatch Notifier </p>
+<p> Auto Server </p>
+<p> Multi Channel </p>
+<p> Proxy Server </p>
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Advanced</td>
+<td>
+<p> Class Factories </p>
+<p> COM </p>
+<p> Dispatch Notifier </p>
+<p> Proxy Server </p>
+</td>
+</tr>
+</tbody></table>
+
+
+<!==========================================================================><h2 class="h1">
+    <span style="font-size: 14pt">Sample Descriptions</span></h2>
+<table border="2" cellpadding=8 cellspacing=0 style="WIDTH: 100%"><tbody>
+<tr>
+<th style="WIDTH: 20%">Name</th>
+<th style="WIDTH: 15%">Category</th>
+<th>Description</th>
+</tr>
+<!---------------------------------------------->
+    <tr>
+        <td>
+            Arrays</td>
+        <td>
+            Intermediate</td>
+        <td>
+            This sample shows how to use TROArray for presentating DB tables in a master/detail
+            relationship.</td>
+    </tr>
+<tr>
+<td>Async</td>
+<td>Introduction</td>
+<td>This sample shows how to call methods on a RemObjects SDK server asynchronously.<br> 
+There may be times where you want to submit a request for information and defer receiving the result 
+until a bit later. A very simple calculation (Sum) is performed, 
+but this has a built in ten second delay so that it is possible to query the 
+server before the calculation is completed.<br>
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Auto Server</td>
+<td>Introduction<br>Architecture</td>
+<td>This sample shows how a client can control its server when they are both running locally. 
+This is useful if you want to provide a simple standard alone solution which is easily 
+upgraded to multi-tier (or you might want to provide both options).
+</td>
+</tr>
+<!---------------------------------------------->
+<!---------------------------------------------->
+<tr>
+<td>Broadcast Chat</td>
+<td>Intermediate</td>
+<td>
+    This example shows how to use the <strong>TROBroadcastServer</strong> and <strong>TROBroadcastChannel</strong>
+    channels to write an <strong>UDP</strong> broadcasting chat program.</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Class Factories</td>
+<td>Architecture<br>Advanced</td>
+<td>
+    This example shows how to use a <strong>Class Factory </strong>to generate three
+    types of server:<ul>
+        <li><strong>Singleton</strong>: all clients access a single server object. </li>
+        <li><strong>Single Call</strong>: server instances are created on demand and destroyed
+            after processing the method call. </li>
+        <li><strong>Pooled</strong>: multiple server instances are accessible by clients. This
+            works exactly the same as Singleton, unless the first server instance is busy.</li></ul>
+    <p>
+        <strong>Note</strong>: to test this sample properly, you need to run at least two
+        clients.
+    </p>
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>COM</td>
+<td>Advanced</td>
+<td>
+    This sample shows how to call an existing RemObjects SDK server using COM.</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>DataSnap</td>
+<td>Architecture</td>
+<td>
+    Standard example of the use of the <b>TRODataSnapModule</b> and <b>TRODataSnapConnection</b>
+    components.</td>
+</tr>
+<!---------------------------------------------->
+<!---------------------------------------------->
+<tr>
+<td>Dispatch Notifier</td>
+<td>Architecture<br>Advanced</td>
+<td>
+    This example shows how to customize message dispatching. <strong>IRODispatchNotifier</strong>
+    is a special interface that <strong>TROInvoker</strong> classes know and look for.
+    <br />
+    If your server side object implements it, the IRODispatchNotifier.GetDispatchInfo
+    method will be called before the target method is invoked.</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Dynamic Request<br />
+    <span style="color: #ff0000">(not shipped with the trial version)</span></td>
+<td>Introduction</td>
+<td>
+    This example shows how to use the <b>TRODynamicRequest</b> component to execute
+    server methods.</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Extended File Transfer</td>
+<td>Intermediate</td>
+<td>
+    This example shows how to transfer files to and from a RemObjects SDK Server in
+    chunks and how to monitor new files via server events. Note: needs at least two
+    clients open. File(s) uploaded from one client are downloaded to the other(s).</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>First Sample</td>
+<td>Introduction</td>
+<td>
+This sample provides an introduction to using the Delphi edition of the RemObjects SDK product. 
+The example shows how to define/implement methods on the server and how to access them from the client. 
+The data consists of name information and four simple methods are provided by the 
+service: Nicknames, VerifyName, CheckName and FullNames.
+</td>
+</tr>
+<!---------------------------------------------->
+    <tr>
+        <td>
+            FPC Server</td>
+        <td>
+            Architecture</td>
+        <td>
+        </td>
+    </tr>
+<tr>
+<td>HTTP Chat</td>
+<td>Channels</td>
+<td>
+    This shows how to use polled events to create an HTTP based chat program.
+    <br />
+    The clients poll every few seconds for new messages and the server distributes the
+    messages to the appropriate client(s).</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>MegaDemo</td>
+<td>Channels</td>
+<td>This comprehensive example illustrates many of the features of the RemObjects SDK by 
+providing benchmark facilities for the various <strong>protocols</strong> and
+    <strong>channels</strong> supported.
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Multi Channel</td>
+<td>Introduction<br>Channels<br>Architecture</td>
+<td>This example provides an introduction to using the Delphi edition of the RemObjects SDK product. 
+It shows how to use different channels to connect to the server application.
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Named Pipes
+    <br />
+    <span style="color: #ff0000">(not shipped with the trial version)</span></td>
+<td>Channels<br>Intermediate</td>
+<td>This example shows the use of a named pipe connection. 
+It creates a named pipe server as a <strong>Windows service</strong>.
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Proxy Server</td>
+<td>Architecture<br>Advanced</td>
+<td>This example shows how to create a proxy server to redirect the calls to another
+  server without having to recreate the <strong>RODL</strong> file, thus allowing the use of the same types 
+  of the original server.<br>
+This provides total control. As every call will pass from the proxy class before going to the real server, 
+you can even stop methods from being dispatched any further.
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>RODL<br />
+    <span style="color: #ff0000">(not shipped with the trial version)</span></td>
+<td>Introduction</td>
+<td>
+    <em>&lt;to follow&gt;</em></td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Service Discovery</td>
+<td>Intermediate</td>
+<td>This sample illustrates how to use the <strong>TRODiscoveryClient</strong> and <strong>
+        TRODiscoveryServer</strong> components.
+<br />
+Each instance of the application acts both as a server and as a client. 
+For the server, you can modify the list of services supported on the right-hand side, while for the client you can enter a service name and get a list of the servers available on your LAN to support it.
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Session Types<br />
+    <span style="color: red"></span></td>
+<td>Architecture<br>Introduction</td>
+<td>
+    This example shows the use of sessions and illustrates several SessionManagers: <b>TROEventSessionManager, 
+        <br />
+        TROInMemorySessionManager,<br />
+        TROMasterServerSessionManager</b> and 
+    <br />
+    <b>TRODBSessionManager</b>.
+    <br />
+    <b><span style="color: red">I</span><span style="color: red">mportant note</span>:</b> this sample needs a "<strong>Sessions"</strong> table to be created in one of your databases. 
+    By default, the sample looks for the Sessions table in MSSQL's Northwind Database, 
+    but you can easily change to connect to any other database.
+</td>
+</tr>
+<!---------------------------------------------->
+<!---------------------------------------------->
+<tr>
+<td>
+Super TCP Channel Chat</td>
+<td>Introduction<br>Channels</td>
+<td>
+    This sample shows how the <strong>Super TCP Channel</strong> can be used to create
+    a chat server and clients.
+    <br />
+    Unlike the HTTP Chat sample, this sample <strong>doesn't poll the server</strong>
+    but sends events back to clients directly.
+</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Time Server</td>
+<td>Introduction</td>
+<td>
+    This is an extremely basic sample illustrating how to use the <b>TROBroadcastServer</b>
+    and <b>TROBroadcastChannel</b> components.</td>
+</tr>
+<!---------------------------------------------->
+<tr>
+<td>Variants</td>
+<td>Intermediate</td>
+<td>
+    This example shows how the RemObjects SDK can transfer <strong>variants </strong>
+    and <strong>array of variants</strong> from the client and server using the <strong>
+        TROBinMessage</strong> and <strong>TROSOAPMessage</strong> message types.</td>
+</tr>
+<!---------------------------------------------->
+</tbody></table>
+        <br />
+        <span style="font-size: 14pt"><strong> </strong></span>
+        <h2>
+            <span style="font-size: 14pt"><strong>Support</strong></span></h2>
+        <p>
+            If you encounter any problems or have questions regarding the samples, please feel
+            free to ask on our newsgroup at <a href="news://news.remobjects.com/remobjects.public.sdk.delphi">
+                news://news.remobjects.com/remobjects.public.sdk.delphi</a>.
+        </p>
+        <p>
+            Thank you very much,<br />
+            Your RemObjects Team<br />
+            <a href="http://www.remobjects.com">http://www.remobjects.com</a>
+        </p>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/RODLFILE.res
new file mode 100644
index 0000000..4b9eb58
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.Sample.html
new file mode 100644
index 0000000..460f40e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.Sample.html	
@@ -0,0 +1,27 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Service Discovery</span> 
+</p>
+
+<br>
+<h2>Purpose</h2>
+<p>
+  This sample illustrates how to use the <b>TRODiscoveryClient</b> and <b>TRODiscoveryServer</b> components.<br>
+</p>
+<p>  
+  Each instance of the application acts both as a server and as a client. <br />
+  For the server, you can modify the list of services supported on the right-hand side, 
+  while for the client you can enter a service name and get a list of the servers available on your LAN to support it. 
+</p>
+
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.bdsproj
new file mode 100644
index 0000000..807740c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{876EF534-859E-4EA0-ABD2-E47705E0566C}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ServiceDiscovery.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.dpr
new file mode 100644
index 0000000..1385bb3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.dpr	
@@ -0,0 +1,14 @@
+program ServiceDiscovery;
+
+uses
+  Forms,
+  ServiceDiscoveryMain in 'ServiceDiscoveryMain.pas' {ServiceDiscoveryMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Service Discovery Sample';
+  Application.CreateForm(TServiceDiscoveryMainForm, ServiceDiscoveryMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.dproj
new file mode 100644
index 0000000..138cd51
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f03be2e9-512e-4df7-9a1e-ea0b0d926a40}</ProjectGuid>
+    <MainSource>ServiceDiscovery.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>ServiceDiscovery.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">ServiceDiscovery.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="ServiceDiscovery.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ServiceDiscoveryMain.pas">
+      <Form>ServiceDiscoveryMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.res
new file mode 100644
index 0000000..0f940ed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscovery.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscoveryMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscoveryMain.dfm
new file mode 100644
index 0000000..64fbad2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscoveryMain.dfm	
@@ -0,0 +1,246 @@
+object ServiceDiscoveryMainForm: TServiceDiscoveryMainForm
+  Left = 275
+  Top = 222
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  BorderWidth = 5
+  Caption = 'RemObjects SDK Discovery Sample'
+  ClientHeight = 376
+  ClientWidth = 583
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 0
+    Top = 0
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object GroupBox1: TGroupBox
+    Left = 0
+    Top = 52
+    Width = 289
+    Height = 270
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Caption = ' Client '
+    TabOrder = 0
+    DesignSize = (
+      289
+      270)
+    object Label1: TLabel
+      Left = 11
+      Top = 16
+      Width = 80
+      Height = 13
+      Caption = 'Look for service:'
+    end
+    object Label2: TLabel
+      Left = 11
+      Top = 88
+      Width = 74
+      Height = 13
+      Caption = 'Found Servers:'
+    end
+    object ed_ServiceName: TEdit
+      Left = 8
+      Top = 29
+      Width = 273
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 0
+      Text = 'IRODiscoveryService'
+    end
+    object btn_LookupService: TBitBtn
+      Left = 8
+      Top = 56
+      Width = 273
+      Height = 25
+      Action = ac_DiscoverServers
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'Discover Servers'
+      TabOrder = 1
+    end
+    object lb_Servers: TListBox
+      Left = 8
+      Top = 101
+      Width = 273
+      Height = 160
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      ItemHeight = 13
+      TabOrder = 2
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 296
+    Top = 52
+    Width = 287
+    Height = 270
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Caption = ' Server '
+    TabOrder = 1
+    DesignSize = (
+      287
+      270)
+    object Label3: TLabel
+      Left = 11
+      Top = 16
+      Width = 240
+      Height = 13
+      Caption = 'List of Services supported by this server instance:'
+    end
+    object ed_Services: TMemo
+      Left = 8
+      Top = 29
+      Width = 271
+      Height = 174
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      Lines.Strings = (
+        'SomeService'
+        'SomeOtherService')
+      TabOrder = 0
+      OnChange = btn_UpdateServiceListClick
+    end
+    object Panel1: TPanel
+      Left = 8
+      Top = 225
+      Width = 273
+      Height = 37
+      Anchors = [akLeft, akBottom]
+      BevelOuter = bvLowered
+      Color = clInfoBk
+      TabOrder = 1
+      object Label4: TLabel
+        Left = 6
+        Top = 5
+        Width = 250
+        Height = 26
+        Caption = 
+          'Enter names representing the services you want to simulate as be' +
+          'ing supported on this server instance.'
+        WordWrap = True
+      end
+    end
+    object cb_SupportRegisteredServerClasses: TCheckBox
+      Left = 8
+      Top = 205
+      Width = 209
+      Height = 17
+      Anchors = [akLeft, akBottom]
+      Caption = 'List registered RO Servers as supported'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+      OnClick = cb_SupportRegisteredServerClassesClick
+    end
+  end
+  object GroupBox3: TGroupBox
+    Left = 0
+    Top = 326
+    Width = 585
+    Height = 48
+    Anchors = [akLeft, akBottom]
+    Caption = ' Custom Discovery Options: Load'
+    TabOrder = 2
+    object Label5: TLabel
+      Left = 304
+      Top = 20
+      Width = 111
+      Height = 13
+      Caption = 'Simulated Server Load:'
+    end
+    object Label6: TLabel
+      Left = 8
+      Top = 20
+      Width = 148
+      Height = 13
+      Caption = 'Find a Server with Load below:'
+    end
+    object ed_ServerLoad: TEdit
+      Left = 418
+      Top = 17
+      Width = 63
+      Height = 21
+      TabOrder = 0
+      Text = '50'
+    end
+    object ed_MaxLoad: TEdit
+      Left = 160
+      Top = 17
+      Width = 63
+      Height = 21
+      TabOrder = 1
+      Text = '75'
+    end
+    object cb_ReturnInfo: TCheckBox
+      Left = 496
+      Top = 19
+      Width = 81
+      Height = 17
+      Caption = 'Return Info'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+    end
+  end
+  object ROBroadcastServer: TROBroadcastServer
+    Active = True
+    Dispatchers = <
+      item
+        Name = 'ROBINMessage_Server'
+        Message = ROBINMessage_Server
+        Enabled = True
+      end>
+    IndyUDPServer.BroadcastEnabled = True
+    IndyUDPServer.Bindings = <>
+    IndyUDPServer.DefaultPort = 8090
+    IndyUDPServer.ThreadedEvent = True
+    Port = 8090
+    Left = 400
+    Top = 24
+  end
+  object ROBroadcastChannel: TROBroadcastChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Retrys = 5
+    IndyClient.BroadcastEnabled = True
+    IndyClient.Port = 8090
+    Port = 8090
+    Left = 215
+    Top = 25
+  end
+  object RODiscoveryClient: TRODiscoveryClient
+    Channel = ROBroadcastChannel
+    Message = ROBINMessage_Client
+    ServiceName = 'SomeService'
+    OnNewServersFound = RODiscoveryClientNewServersFound
+    OnNewServiceFound = RODiscoveryClientNewServiceFound
+    Left = 272
+    Top = 25
+  end
+  object RODiscoveryServer: TRODiscoveryServer
+    OnServiceFound = RODiscoveryServerServiceFound
+    Left = 456
+    Top = 24
+  end
+  object ROBINMessage_Server: TROBinMessage
+    Left = 428
+    Top = 24
+  end
+  object ROBINMessage_Client: TROBinMessage
+    Left = 244
+    Top = 25
+  end
+  object ActionList: TActionList
+    OnUpdate = ActionListUpdate
+    Left = 520
+    Top = 24
+    object ac_DiscoverServers: TAction
+      Caption = 'Discover Servers'
+      OnExecute = btn_LookupServiceClick
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscoveryMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscoveryMain.pas
new file mode 100644
index 0000000..8a66d1e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Service Discovery/ServiceDiscoveryMain.pas	
@@ -0,0 +1,179 @@
+unit ServiceDiscoveryMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uROClient, uROBINMessage, uRODiscovery, 
+  uROIndyUDPChannel, uROBroadcastChannel,  uROServer,
+  uROIndyUDPServer, uROBroadcastServer, StdCtrls, ExtCtrls, Buttons,
+  uROPoweredByRemObjectsButton, uRODiscovery_Intf, ActnList;
+
+type
+  TServiceDiscoveryMainForm = class(TForm)
+    ROBroadcastServer: TROBroadcastServer;
+    ROBroadcastChannel: TROBroadcastChannel;
+    RODiscoveryClient: TRODiscoveryClient;
+    RODiscoveryServer: TRODiscoveryServer;
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    ed_ServiceName: TEdit;
+    btn_LookupService: TBitBtn;
+    lb_Servers: TListBox;
+    Label2: TLabel;
+    GroupBox2: TGroupBox;
+    Label3: TLabel;
+    ed_Services: TMemo;
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    ROBINMessage_Server: TROBINMessage;
+    ROBINMessage_Client: TROBINMessage;
+    Panel1: TPanel;
+    Label4: TLabel;
+    cb_SupportRegisteredServerClasses: TCheckBox;
+    GroupBox3: TGroupBox;
+    ed_ServerLoad: TEdit;
+    Label5: TLabel;
+    Label6: TLabel;
+    ed_MaxLoad: TEdit;
+    ActionList: TActionList;
+    ac_DiscoverServers: TAction;
+    cb_ReturnInfo: TCheckBox;
+    procedure FormCreate(Sender: TObject);
+    procedure btn_UpdateServiceListClick(Sender: TObject);
+    procedure btn_LookupServiceClick(Sender: TObject);
+    procedure cb_SupportRegisteredServerClassesClick(Sender: TObject);
+    procedure ActionListUpdate(Action: TBasicAction;
+      var Handled: Boolean);
+    procedure RODiscoveryClientNewServiceFound(aSender: TObject;
+      aName: String; aDiscoveryOptions: TRODiscoveryOptions);
+    procedure RODiscoveryClientNewServersFound(Sender: TObject);
+    procedure RODiscoveryServerServiceFound(aSender: TObject; aName: string;
+      var ioDiscoveryOptions: TRODiscoveryOptions; var ioHandled: Boolean);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+  TMyDiscoveryQueryOptions = class(TRODiscoveryOptions)
+  private
+    fMaximumLoad: integer;
+  published
+    property MaximumLoad: integer read fMaximumLoad write fMaximumLoad;
+  end;
+
+  TMyDiscoveryResultOptions = class(TRODiscoveryOptions)
+  private
+    fServerTime: TDateTime;
+    fMoreInfo: Widestring;
+    fLoad: integer;
+  published
+    property ServerTime: TDateTime read fServerTime write fServerTime;
+    property MoreInfo: Widestring read fMoreInfo write fMoreInfo;
+    property Load: integer read fLoad write fLoad;
+  end;
+
+var
+  ServiceDiscoveryMainForm: TServiceDiscoveryMainForm;
+
+implementation
+
+uses
+  uROTypes, uROClasses;
+
+{$R *.dfm}
+
+procedure TServiceDiscoveryMainForm.FormCreate(Sender: TObject);
+begin
+  ROBroadcastServer.Active := true;
+  btn_UpdateServiceListClick(self);
+end;
+
+procedure TServiceDiscoveryMainForm.btn_UpdateServiceListClick(Sender: TObject);
+begin
+  RODiscoveryServer.ServiceList.Assign(ed_Services.Lines);
+end;
+
+procedure TServiceDiscoveryMainForm.btn_LookupServiceClick(Sender: TObject);
+var
+  lOptions: TMyDiscoveryQueryOptions;
+begin
+  lb_Servers.Items.Clear();
+
+  RODiscoveryClient.ServiceName := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(ed_ServiceName.Text);
+
+  lOptions := TMyDiscoveryQueryOptions.Create();
+  try
+    lOptions.MaximumLoad := StrToIntDef(ed_MaxLoad.Text,100); 
+    RODiscoveryClient.RefreshServerList(lOptions);
+  finally
+    lOptions.Free();
+  end;
+end;
+
+procedure TServiceDiscoveryMainForm.RODiscoveryClientNewServersFound(
+  Sender: TObject);
+begin
+//  lb_Servers.Items.Assign(RODiscoveryClient.ServerList);
+end;
+
+procedure TServiceDiscoveryMainForm.RODiscoveryClientNewServiceFound(
+  aSender: TObject; aName: String; aDiscoveryOptions: TRODiscoveryOptions);
+var
+  lOptions: TMyDiscoveryResultOptions;
+begin
+  if Assigned(aDiscoveryOptions) and (aDiscoveryOptions is TMyDiscoveryResultOptions) then begin
+    lOptions := TMyDiscoveryResultOptions(aDiscoveryOptions);
+    lb_Servers.Items.Add(Format('%s (Load: %d; Info: %s)',[aName, lOptions.Load, lOptions.MoreInfo]));
+  end
+  else begin
+    lb_Servers.Items.Add(aName+' (no info)');
+  end;
+end;
+
+procedure TServiceDiscoveryMainForm.cb_SupportRegisteredServerClassesClick(Sender: TObject);
+begin
+  RODiscoveryServer.SupportRegisteredServerClasses := cb_SupportRegisteredServerClasses.Checked;
+end;
+
+procedure TServiceDiscoveryMainForm.RODiscoveryServerServiceFound(
+  aSender: TObject; aName: string; var ioDiscoveryOptions: TRODiscoveryOptions;
+  var ioHandled: Boolean);
+begin
+  if Assigned(ioDiscoveryOptions) and (ioDiscoveryOptions is TMyDiscoveryQueryOptions) then begin
+    { Check if we fullfill the load requirement. if our load is too high, abort
+      without sending a response to the client }
+    if TMyDiscoveryQueryOptions(ioDiscoveryOptions).MaximumLoad <= StrToIntDef(ed_ServerLoad.Text,100) then begin
+      ROSendNoResponse();
+    end;
+  end;
+
+  if cb_ReturnInfo.Checked then begin
+    ioDiscoveryOptions := TMyDiscoveryResultOptions.Create;
+    with TMyDiscoveryResultOptions(ioDiscoveryOptions) do begin
+      Load := StrToIntDef(ed_ServerLoad.Text,-1);
+      MoreInfo := 'Some info';
+      ServerTime := Now;
+    end;    { with }
+  end
+  else begin
+    ioDiscoveryOptions := nil;
+  end;
+
+  { Don't free the original ioDiscoveryOptions (if it was assigned), the RO
+    framework take scare of that, just as it will free the one we pass back }
+end;
+
+procedure TServiceDiscoveryMainForm.ActionListUpdate(Action: TBasicAction;
+  var Handled: Boolean);
+begin
+  ac_DiscoverServers.Enabled := not ROBroadcastChannel.Busy;
+end;
+
+initialization
+  RegisterROClass(TMyDiscoveryQueryOptions);
+  RegisterROClass(TMyDiscoveryResultOptions);
+finalization
+  UnregisterROClass(TMyDiscoveryQueryOptions);
+  UnregisterROClass(TMyDiscoveryResultOptions);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/LoginService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/LoginService_Impl.dfm
new file mode 100644
index 0000000..41bac0b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/LoginService_Impl.dfm	
@@ -0,0 +1,7 @@
+object LoginService: TLoginService
+  OldCreateOrder = True
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/LoginService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/LoginService_Impl.pas
new file mode 100644
index 0000000..bdb3844
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/LoginService_Impl.pas	
@@ -0,0 +1,97 @@
+unit LoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} SessionTypesLibrary_Intf;
+
+type
+  TLogProcedure = procedure(AStr: WideString) of object;
+  { TLoginService }
+  TLoginService = class(TRORemoteDataModule, ILoginService)
+  private
+    procedure Log(Astr: WideString);
+  protected
+    { ILoginService methods }
+    function Login(const UserID: WideString; const Password: WideString): boolean;
+    procedure Logout(const SessionID: WideString);
+  public
+    constructor Create(aOwner: TComponent); override;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} SessionTypesLibrary_Invk, Variants,
+  SessionTypes_ServerMain;
+
+procedure Create_LoginService(out anInstance: IUnknown);
+begin
+  anInstance := TLoginService.Create(nil);
+end;
+
+{ LoginService }
+
+constructor TLoginService.Create(aOwner: TComponent);
+begin
+  inherited;
+  SessionManager := SessionTypes_ServerMainForm._SessionManager;
+end;
+
+procedure TLoginService.Log(Astr: WideString);
+begin
+  SessionTypes_ServerMainForm.Log(AStr);
+end;
+
+function TLoginService.Login(const UserID: WideString; const Password: WideString): boolean;
+begin
+  Log('User ''' + UserID + ''' is trying logon with password ''' + Password + '''');
+  if (Session.Values['Login'] <> Null) then begin
+    Log('User ''' + Session.Values['Login'] + ''' is already connected to session ' + GUIDToString(ClientID));
+    Log('Login unsuccessful');
+    Result := True;
+    Exit;
+  end;
+
+  result := (UserID <> '') and (UserID = Password); // Dummy test... You would code the one specific to your system
+  if Result then begin
+    Session.Values['Login'] := UserId;
+    Session.Values['Password'] := Password;
+    Log('Login successful');
+  end
+  else begin
+    Log('Invalid login!');
+    DestroySession; // Wrong login! The session cannot be persisted
+  end;
+  Log('');
+end;
+
+procedure TLoginService.Logout(const SessionID: WideString);
+var
+  aUser: WideString;
+begin
+  if Session.Values['Login'] <> Null then
+    aUser := Session.Values['Login']
+  else
+    aUser := '';
+  Log('User ''' + aUser + ''' has requested logout');
+  Log('');
+  DestroySession; // Removes the session from the SessionManager
+end;
+
+initialization
+  TROClassFactory.Create('LoginService', Create_LoginService, TLoginService_Invoker);
+finalization
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/RODLFILE.res
new file mode 100644
index 0000000..4cc721b
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes Create Session Table.sql b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes Create Session Table.sql
new file mode 100644
index 0000000..73a7ed4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes Create Session Table.sql	
@@ -0,0 +1,15 @@
+CREATE TABLE [dbo].[Sessions] (
+	[SessionID] [char] (38) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
+	[Created] [datetime] NULL ,
+	[LastAccessed] [datetime] NULL ,
+    [Data] [IMAGE] NULL 
+) 
+GO
+
+ALTER TABLE [dbo].[Sessions] WITH NOCHECK ADD 
+	CONSTRAINT [PK_Sessions] PRIMARY KEY  CLUSTERED 
+	(
+		[SessionID]
+	)  ON [PRIMARY] 
+GO
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.Sample.html
new file mode 100644
index 0000000..9106947
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.Sample.html	
@@ -0,0 +1,63 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Session Types</span> 
+</p>
+
+<br>
+<h2>Purpose</h2>
+<p>
+  This example shows the use of sessions and illustrates:
+<ul>
+<li><b>TROEventSessionManager</b></li>
+<li><b>TROInMemorySessionManager</b></li>
+<li><b>TROMasterServerSessionManager</b></li>
+<li><b>TRODBSessionManager</b></li>
+</ul>  
+</p>
+
+<h2>Getting Started</h2>
+<ul>
+	<li>Build or compile all projects.</li>
+	<li>Launch the server (via the menu option: <strong>RemObjects | Launch Server Executable</strong>).</li>
+	<li>Activate the session desired.</li>
+	<li>Ensure that <b>SessionTypes_Client</b> is the selected project and run it.</li>
+	</ul>
+<h2>Examine the Code</h2>
+<ul>
+	<li>
+	   Examine the simple code needed for changing the session in <b>SessionTypes_ServerMain.pas</b>.
+	</li>
+</ul>
+
+
+<p>
+  <b>Important note:</b> this sample needs a &quot;Sessions&quot; table to be created in one of your databases. By default, the sample looks for the Sessions table in MSSQL's Northwind Database, but you can easily change to connect to any other database.
+</p>
+<p>
+  To create the Sessions table, run the .SQL script provided:
+</p>
+<p>
+  <b>..\RemObjects SDK for Delphi\Samples\Session Types\SessionTypes Create Session Table.sql</b>
+</p>
+<p>
+  using the appropriate query tool provided with your database (e.g. Query Analyzer for MSSQL).
+</p>
+
+<h2>Data Abstract Users</h2>
+This sample can easily be extended to encompass Data Abstract via the following steps:
+<ul>
+	<li>Create TDAConnectionManager, TDADriverManager, TDAADODriver and TDASchema instances.</li>
+	<li>Relink.</li>
+	<li>In the schema, create the datasets and commands similar to qu* (TADOQuery).</li>
+	<li>Create a DADBSessionManager instance and assign the corresponding datasets and commands.</li>
+	</ul>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.bdsgroup
new file mode 100644
index 0000000..addf1d9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{89EA18B9-673B-4BF4-BB4A-772C7AD6D666}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="SessionTypes_Server.exe">SessionTypes_Server.bdsproj</Projects>
+      <Projects Name="SessionTypes_Client.exe">SessionTypes_Client.bdsproj</Projects>
+      <Projects Name="Targets">SessionTypes_Server.exe SessionTypes_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.bpg
new file mode 100644
index 0000000..479f06e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = SessionTypes_Server.exe SessionTypes_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+SessionTypes_Client.exe: SessionTypes_Client.dpr
+  $(DCC)
+
+SessionTypes_Server.exe: SessionTypes_Server.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.groupproj
new file mode 100644
index 0000000..2a72a57
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{ee6c030a-a2a2-4e8d-8869-acf773696e8f}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="SessionTypes_Server">
+    <MSBuild Projects="SessionTypes_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="SessionTypes_Server:Clean">
+    <MSBuild Projects="SessionTypes_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="SessionTypes_Server:Make">
+    <MSBuild Projects="SessionTypes_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="SessionTypes_Client">
+    <MSBuild Projects="SessionTypes_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="SessionTypes_Client:Clean">
+    <MSBuild Projects="SessionTypes_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="SessionTypes_Client:Make">
+    <MSBuild Projects="SessionTypes_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="SessionTypes_Server;SessionTypes_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="SessionTypes_Server:Clean;SessionTypes_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="SessionTypes_Server:Make;SessionTypes_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary.rodl
new file mode 100644
index 0000000..d7a9e18
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary.rodl	
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="SessionTypesLibrary" UID="{EE96A14F-A446-4194-A1FD-C4F900DFBE62}" Version="3.0">
+<Services>
+<Service Name="SessionTypesService" UID="{0DF07F6B-5D69-4C69-958F-43AD356A0162}">
+<Interfaces>
+<Interface Name="Default" UID="{EE96A14F-A446-4194-A1FD-C4F900DFBE62}">
+<Documentation><![CDATA[
+Service SessionService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="GetSessionValue" UID="{EE96A14F-A446-4194-A1FD-C4F900DFBE62}">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+<Parameter Name="Name" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SetSessionValue" UID="{EE96A14F-A446-4194-A1FD-C4F900DFBE62}">
+<Parameters>
+<Parameter Name="Name" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="Value" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetSessionID" UID="{12CB2C4F-0899-4B2B-BFD9-08DC99B7A030}">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetSessionManagerName" UID="{E485A868-A8DC-4DB5-B4CB-5259EFA5966D}">
+<Parameters>
+<Parameter Name="Result" DataType="Widestring" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="LoginService" UID="{C15A04D3-C682-42A6-A73C-091E66EB6FB0}">
+<Interfaces>
+<Interface Name="Default" UID="{A8C9C8A2-3988-4E92-8846-6CDE7B35AA1E}">
+<Operations>
+<Operation Name="Login" UID="{AEB2CD47-A47F-4E73-9EEF-603BF24195C2}">
+<Parameters>
+<Parameter Name="Result" DataType="boolean" Flag="Result">
+</Parameter>
+<Parameter Name="UserID" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="Password" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="Logout" UID="{55745D84-5AE4-457C-9EB7-9108125A3965}">
+<Parameters>
+<Parameter Name="SessionID" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary_Intf.pas
new file mode 100644
index 0000000..068a9b4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary_Intf.pas	
@@ -0,0 +1,220 @@
+unit SessionTypesLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{EE96A14F-A446-4194-A1FD-C4F900DFBE62}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  ISessionTypesService_IID : TGUID = '{EE96A14F-A446-4194-A1FD-C4F900DFBE62}';
+  ILoginService_IID : TGUID = '{A8C9C8A2-3988-4E92-8846-6CDE7B35AA1E}';
+
+  { Event ID's }
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  ISessionTypesService = interface;
+  ILoginService = interface;
+
+
+  { ISessionTypesService }
+  ISessionTypesService = interface
+    ['{EE96A14F-A446-4194-A1FD-C4F900DFBE62}']
+    function GetSessionValue(const Name: Widestring): Widestring;
+    procedure SetSessionValue(const Name: Widestring; const Value: Widestring);
+    function GetSessionID: Widestring;
+    function GetSessionManagerName: Widestring;
+  end;
+
+  { CoSessionTypesService }
+  CoSessionTypesService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISessionTypesService;
+  end;
+
+  { TSessionTypesService_Proxy }
+  TSessionTypesService_Proxy = class(TROProxy, ISessionTypesService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetSessionValue(const Name: Widestring): Widestring;
+    procedure SetSessionValue(const Name: Widestring; const Value: Widestring);
+    function GetSessionID: Widestring;
+    function GetSessionManagerName: Widestring;
+  end;
+
+  { ILoginService }
+  ILoginService = interface
+    ['{A8C9C8A2-3988-4E92-8846-6CDE7B35AA1E}']
+    function Login(const UserID: Widestring; const Password: Widestring): boolean;
+    procedure Logout(const SessionID: Widestring);
+  end;
+
+  { CoLoginService }
+  CoLoginService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginService;
+  end;
+
+  { TLoginService_Proxy }
+  TLoginService_Proxy = class(TROProxy, ILoginService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Login(const UserID: Widestring; const Password: Widestring): boolean;
+    procedure Logout(const SessionID: Widestring);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoSessionTypesService }
+
+class function CoSessionTypesService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISessionTypesService;
+begin
+  result := TSessionTypesService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TSessionTypesService_Proxy }
+
+function TSessionTypesService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'SessionTypesService';
+end;
+
+function TSessionTypesService_Proxy.GetSessionValue(const Name: Widestring): Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SessionTypesLibrary', __InterfaceName, 'GetSessionValue');
+    __Message.Write('Name', TypeInfo(Widestring), Name, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TSessionTypesService_Proxy.SetSessionValue(const Name: Widestring; const Value: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SessionTypesLibrary', __InterfaceName, 'SetSessionValue');
+    __Message.Write('Name', TypeInfo(Widestring), Name, []);
+    __Message.Write('Value', TypeInfo(Widestring), Value, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TSessionTypesService_Proxy.GetSessionID: Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SessionTypesLibrary', __InterfaceName, 'GetSessionID');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TSessionTypesService_Proxy.GetSessionManagerName: Widestring;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SessionTypesLibrary', __InterfaceName, 'GetSessionManagerName');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Widestring), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoLoginService }
+
+class function CoLoginService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginService;
+begin
+  result := TLoginService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TLoginService_Proxy }
+
+function TLoginService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'LoginService';
+end;
+
+function TLoginService_Proxy.Login(const UserID: Widestring; const Password: Widestring): boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SessionTypesLibrary', __InterfaceName, 'Login');
+    __Message.Write('UserID', TypeInfo(Widestring), UserID, []);
+    __Message.Write('Password', TypeInfo(Widestring), Password, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TLoginService_Proxy.Logout(const SessionID: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SessionTypesLibrary', __InterfaceName, 'Logout');
+    __Message.Write('SessionID', TypeInfo(Widestring), SessionID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(ISessionTypesService_IID, TSessionTypesService_Proxy);
+  RegisterProxyClass(ILoginService_IID, TLoginService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(ISessionTypesService_IID);
+  UnregisterProxyClass(ILoginService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary_Invk.pas
new file mode 100644
index 0000000..256ade2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesLibrary_Invk.pas	
@@ -0,0 +1,184 @@
+unit SessionTypesLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} SessionTypesLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TSessionTypesService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetSessionValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SetSessionValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetSessionID(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetSessionManagerName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TLoginService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TSessionTypesService_Invoker }
+
+constructor TSessionTypesService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TSessionTypesService_Invoker.Invoke_GetSessionValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetSessionValue(const Name: Widestring): Widestring; }
+var
+  Name: Widestring;
+  lResult: Widestring;
+begin
+  try
+    __Message.Read('Name', TypeInfo(Widestring), Name, []);
+
+    lResult := (__Instance as ISessionTypesService).GetSessionValue(Name);
+
+    __Message.InitializeResponseMessage(__Transport, 'SessionTypesLibrary', 'SessionTypesService', 'GetSessionValueResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TSessionTypesService_Invoker.Invoke_SetSessionValue(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SetSessionValue(const Name: Widestring; const Value: Widestring); }
+var
+  Name: Widestring;
+  Value: Widestring;
+begin
+  try
+    __Message.Read('Name', TypeInfo(Widestring), Name, []);
+    __Message.Read('Value', TypeInfo(Widestring), Value, []);
+
+    (__Instance as ISessionTypesService).SetSessionValue(Name, Value);
+
+    __Message.InitializeResponseMessage(__Transport, 'SessionTypesLibrary', 'SessionTypesService', 'SetSessionValueResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TSessionTypesService_Invoker.Invoke_GetSessionID(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetSessionID: Widestring; }
+var
+  lResult: Widestring;
+begin
+  try
+    lResult := (__Instance as ISessionTypesService).GetSessionID;
+
+    __Message.InitializeResponseMessage(__Transport, 'SessionTypesLibrary', 'SessionTypesService', 'GetSessionIDResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TSessionTypesService_Invoker.Invoke_GetSessionManagerName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetSessionManagerName: Widestring; }
+var
+  lResult: Widestring;
+begin
+  try
+    lResult := (__Instance as ISessionTypesService).GetSessionManagerName;
+
+    __Message.InitializeResponseMessage(__Transport, 'SessionTypesLibrary', 'SessionTypesService', 'GetSessionManagerNameResponse');
+    __Message.Write('Result', TypeInfo(Widestring), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+{ TLoginService_Invoker }
+
+constructor TLoginService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TLoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Login(const UserID: Widestring; const Password: Widestring): boolean; }
+var
+  UserID: Widestring;
+  Password: Widestring;
+  lResult: boolean;
+begin
+  try
+    __Message.Read('UserID', TypeInfo(Widestring), UserID, []);
+    __Message.Read('Password', TypeInfo(Widestring), Password, []);
+
+    lResult := (__Instance as ILoginService).Login(UserID, Password);
+
+    __Message.InitializeResponseMessage(__Transport, 'SessionTypesLibrary', 'LoginService', 'LoginResponse');
+    __Message.Write('Result', TypeInfo(boolean), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TLoginService_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Logout(const SessionID: Widestring); }
+var
+  SessionID: Widestring;
+begin
+  try
+    __Message.Read('SessionID', TypeInfo(Widestring), SessionID, []);
+
+    (__Instance as ILoginService).Logout(SessionID);
+
+    __Message.InitializeResponseMessage(__Transport, 'SessionTypesLibrary', 'LoginService', 'LogoutResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesService_Impl.dfm
new file mode 100644
index 0000000..f6a2e16
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesService_Impl.dfm	
@@ -0,0 +1,7 @@
+object SessionTypesService: TSessionTypesService
+  OldCreateOrder = True
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesService_Impl.pas
new file mode 100644
index 0000000..948065a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypesService_Impl.pas	
@@ -0,0 +1,107 @@
+unit SessionTypesService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} SessionTypesLibrary_Intf;
+
+type
+  TLogProcedure = procedure(AStr: string) of object;
+
+  { TSessionTypesService }
+
+  TSessionTypesService = class(TRORemoteDataModule, ISessionTypesService)
+  private
+    procedure Log(Astr: WideString);
+  protected
+    { ISessionTypesService methods }
+    function GetSessionValue(const Name: WideString): WideString;
+    procedure SetSessionValue(const Name: WideString; const Value: WideString);
+    function GetSessionID: WideString;
+    function GetSessionManagerName: WideString;
+  public
+    constructor Create(aOwner: TComponent); override;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} SessionTypesLibrary_Invk, Variants,
+  SessionTypes_ServerMain;
+
+procedure Create_SessionTypesService(out anInstance: IUnknown);
+begin
+  anInstance := TSessionTypesService.Create(nil);
+end;
+
+{ SessionTypesService }
+
+function TSessionTypesService.GetSessionValue(const Name: WideString): WideString;
+begin
+  if Session.Values['Login'] = Null then begin
+    Log('Session ' + GUIDToString(Session.SessionID) + ' was trying get value for ''' + Name + '''');
+    Log('Illegal user. Disconnect!');
+    DestroySession;
+  end
+  else begin
+    result := VarToStr(Session.Values[Name]);
+    Log(Session.Values['Login'] + ' is requested value for ''' + Name + '''. Value =''' + Result + '''');
+  end;
+end;
+
+procedure TSessionTypesService.SetSessionValue(const Name: WideString; const Value: WideString);
+begin
+  if Session.Values['Login'] = Null then begin
+    Log('Session ' + GUIDToString(Session.SessionID) + ' was trying set value ''' + Value + ''' for ''' + Name + '''');
+    Log('Illegal user. Disconnect!');
+    DestroySession;
+  end
+  else begin
+    Session.Values[Name] := Value;
+    Log(Session.Values['Login'] + ' has set value ''' + Value + ''' for ''' + Name + '''');
+  end;
+end;
+
+function TSessionTypesService.GetSessionID: WideString;
+begin
+  result := GUIDToString(ClientID);
+end;
+
+procedure TSessionTypesService.Log(Astr: WideString);
+begin
+  SessionTypes_ServerMainForm.Log(AStr);
+end;
+
+constructor TSessionTypesService.Create(aOwner: TComponent);
+begin
+  inherited;
+  SessionManager := SessionTypes_ServerMainForm._SessionManager;
+  RequiresSession:=True;
+end;
+
+function TSessionTypesService.GetSessionManagerName: WideString;
+begin
+  if Session.Values['Login'] <> Null then
+    Log(Session.Values['Login'] + ' is requested SessionManagerName')
+  else
+    Log('Request SessionManagerName - Illegal request!');
+  Result := SessionManager.Name;
+  if Session.Values['Login'] = Null then DestroySession;
+end;
+
+initialization
+  TROClassFactory.Create('SessionTypesService', Create_SessionTypesService, TSessionTypesService_Invoker);
+finalization
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.bdsproj
new file mode 100644
index 0000000..c9772f4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{28029312-9427-4F18-9C83-36A73FB33B46}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">SessionTypes_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.dpr
new file mode 100644
index 0000000..24f2940
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.dpr	
@@ -0,0 +1,16 @@
+program SessionTypes_Client;
+
+uses
+  Forms,
+  SessionTypes_ClientMain in 'SessionTypes_ClientMain.pas' {SessionTypes_ClientMainForm};
+
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'SessionTypes - Client';
+  Application.CreateForm(TSessionTypes_ClientMainForm, SessionTypes_ClientMainForm);
+  Application.Run;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.dproj
new file mode 100644
index 0000000..9f6a100
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{f1691183-136d-49e5-87e6-388fe20cc7db}</ProjectGuid>
+    <MainSource>SessionTypes_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>SessionTypes_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">SessionTypes_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="SessionTypes_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="SessionTypes_ClientMain.pas">
+      <Form>SessionTypes_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ClientMain.dfm
new file mode 100644
index 0000000..6369391
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ClientMain.dfm	
@@ -0,0 +1,177 @@
+object SessionTypes_ClientMainForm: TSessionTypes_ClientMainForm
+  Left = 279
+  Top = 260
+  AutoScroll = False
+  Caption = 'SessionTypes - Client'
+  ClientHeight = 249
+  ClientWidth = 385
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label3: TLabel
+    Left = 7
+    Top = 16
+    Width = 36
+    Height = 13
+    Caption = '&UserID:'
+  end
+  object Label4: TLabel
+    Left = 7
+    Top = 47
+    Width = 49
+    Height = 13
+    Caption = 'Pass&word:'
+  end
+  object Label5: TLabel
+    Left = 7
+    Top = 69
+    Width = 116
+    Height = 13
+    Caption = 'Session Manager Name:'
+  end
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 156
+    Width = 369
+    Height = 88
+    Anchors = [akLeft, akTop, akBottom]
+    Caption = 'Session Values'
+    TabOrder = 7
+    object Label1: TLabel
+      Left = 8
+      Top = 28
+      Width = 31
+      Height = 13
+      Caption = '&Name:'
+    end
+    object Label2: TLabel
+      Left = 8
+      Top = 60
+      Width = 30
+      Height = 13
+      Caption = '&Value:'
+    end
+    object SetValueButton: TButton
+      Left = 280
+      Top = 22
+      Width = 75
+      Height = 25
+      Caption = '&Set Value'
+      TabOrder = 2
+      OnClick = SetValueButtonClick
+    end
+    object GetValueButton: TButton
+      Left = 280
+      Top = 54
+      Width = 75
+      Height = 25
+      Caption = '&Get Value'
+      TabOrder = 3
+      OnClick = GetValueButtonClick
+    end
+    object eName: TEdit
+      Left = 48
+      Top = 24
+      Width = 225
+      Height = 21
+      TabOrder = 0
+    end
+    object eValue: TEdit
+      Left = 48
+      Top = 56
+      Width = 225
+      Height = 21
+      TabOrder = 1
+    end
+  end
+  object stSessionID: TStaticText
+    Left = 32
+    Top = 120
+    Width = 314
+    Height = 17
+    AutoSize = False
+    BorderStyle = sbsSunken
+    Caption = 'stSessionID'
+    TabOrder = 6
+  end
+  object LoginButton: TButton
+    Left = 221
+    Top = 10
+    Width = 75
+    Height = 25
+    Caption = '&Login'
+    TabOrder = 2
+    OnClick = LoginButtonClick
+  end
+  object LogoutButton: TButton
+    Left = 301
+    Top = 9
+    Width = 75
+    Height = 25
+    Caption = 'Log&out'
+    TabOrder = 3
+    OnClick = LogoutButtonClick
+  end
+  object cbUserID: TComboBox
+    Left = 63
+    Top = 12
+    Width = 145
+    Height = 21
+    ItemHeight = 13
+    TabOrder = 0
+    OnChange = cbUserIDChange
+  end
+  object ePassword: TEdit
+    Left = 63
+    Top = 43
+    Width = 145
+    Height = 21
+    TabOrder = 1
+  end
+  object stSessionManagerName: TStaticText
+    Left = 32
+    Top = 85
+    Width = 314
+    Height = 17
+    AutoSize = False
+    BorderStyle = sbsSunken
+    TabOrder = 5
+  end
+  object GetSessionManagerNameButton: TButton
+    Left = 222
+    Top = 40
+    Width = 154
+    Height = 25
+    Caption = 'Get Session Manager Name'
+    TabOrder = 4
+    OnClick = GetSessionManagerNameButtonClick
+  end
+  object ROBINMessage: TROBinMessage
+    Left = 239
+    Top = 200
+  end
+  object rsSessionService: TRORemoteService
+    Message = ROBINMessage
+    Channel = SuperTcpChannel
+    ServiceName = 'SessionTypesService'
+    Left = 239
+    Top = 174
+  end
+  object rsLoginService: TRORemoteService
+    Message = ROBINMessage
+    Channel = SuperTcpChannel
+    ServiceName = 'LoginService'
+    Left = 211
+    Top = 174
+  end
+  object SuperTcpChannel: TROSuperTcpChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Host = '127.0.0.1'
+    Left = 212
+    Top = 202
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ClientMain.pas
new file mode 100644
index 0000000..4ee54fe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ClientMain.pas	
@@ -0,0 +1,105 @@
+unit SessionTypes_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uRORemoteService, uROClient,
+  uROBinMessage, StdCtrls, uROSuperTCPChannel, SessionTypesLibrary_Intf;
+
+type
+  TSessionTypes_ClientMainForm = class(TForm)
+    Label3: TLabel;
+    Label4: TLabel;
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    SetValueButton: TButton;
+    GetValueButton: TButton;
+    eName: TEdit;
+    eValue: TEdit;
+    stSessionID: TStaticText;
+    LoginButton: TButton;
+    LogoutButton: TButton;
+    cbUserID: TComboBox;
+    ePassword: TEdit;
+    ROBINMessage: TROBinMessage;
+    rsSessionService: TRORemoteService;
+    rsLoginService: TRORemoteService;
+    SuperTcpChannel: TROSuperTcpChannel;
+    stSessionManagerName: TStaticText;
+    Label5: TLabel;
+    GetSessionManagerNameButton: TButton;
+    procedure LoginButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure LogoutButtonClick(Sender: TObject);
+    procedure cbUserIDChange(Sender: TObject);
+    procedure GetValueButtonClick(Sender: TObject);
+    procedure SetValueButtonClick(Sender: TObject);
+    procedure GetSessionManagerNameButtonClick(Sender: TObject);
+  private
+    { Private declarations }
+    FService: ISessionTypesService;
+    FLoginService: ILoginService;
+  public
+    { Public declarations }
+  end;
+
+var
+  SessionTypes_ClientMainForm: TSessionTypes_ClientMainForm;
+
+implementation
+
+{$R *.dfm}
+
+const
+  UserNames: array[0..2] of WideString = ('john', 'brian', 'marta');
+
+procedure TSessionTypes_ClientMainForm.LoginButtonClick(Sender: TObject);
+begin
+  FLoginService.Login(cbUserID.Text, ePassword.Text);
+end;
+
+procedure TSessionTypes_ClientMainForm.FormCreate(Sender: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to High(UserNames) do
+    cbUserID.Items.Add(UserNames[i]);
+
+  stSessionID.Caption := GUIDToString(ROBINMessage.ClientID);
+  fService := (rsSessionService as ISessionTypesService);
+  FLoginService := (rsLoginService as ILoginService);
+  SuperTcpChannel.Active := True;
+end;
+
+procedure TSessionTypes_ClientMainForm.LogoutButtonClick(Sender: TObject);
+begin
+  FLoginService.Logout(stSessionID.Caption);
+end;
+
+procedure TSessionTypes_ClientMainForm.cbUserIDChange(Sender: TObject);
+begin
+  ePassword.Text := cbUserID.Text;
+end;
+
+procedure TSessionTypes_ClientMainForm.GetValueButtonClick(
+  Sender: TObject);
+begin
+  eValue.Text := fService.GetSessionValue(eName.Text);
+end;
+
+procedure TSessionTypes_ClientMainForm.SetValueButtonClick(
+  Sender: TObject);
+begin
+  fService.SetSessionValue(eName.Text, eValue.Text);
+end;
+
+procedure TSessionTypes_ClientMainForm.GetSessionManagerNameButtonClick(
+  Sender: TObject);
+begin
+  stSessionManagerName.Caption := fService.GetSessionManagerName;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.bdsproj
new file mode 100644
index 0000000..2f255c1
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{4B4BC71D-255E-4E1F-9E70-B272EC6D8FA7}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">SessionTypes_Server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.dpr
new file mode 100644
index 0000000..aeb3a4f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.dpr	
@@ -0,0 +1,24 @@
+program SessionTypes_Server;
+
+
+{#ROGEN:SessionTypesLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  SessionTypes_ServerMain in 'SessionTypes_ServerMain.pas' {SessionTypes_ServerMainForm},
+  SessionTypesLibrary_Intf in 'SessionTypesLibrary_Intf.pas',
+  SessionTypesLibrary_Invk in 'SessionTypesLibrary_Invk.pas',
+  SessionTypesService_Impl in 'SessionTypesService_Impl.pas' {SessionTypesService: TRORemoteDataModule},
+  LoginService_Impl in 'LoginService_Impl.pas' {LoginService: TRORemoteDataModule},
+  SessionTypes_Server_DBSessionManager in 'SessionTypes_Server_DBSessionManager.pas' {SessionTypes_Server_DBSessionManagerForm: TDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'SessionTypes - Server';
+  Application.CreateForm(TSessionTypes_Server_DBSessionManagerForm, SessionTypes_Server_DBSessionManagerForm);
+  Application.CreateForm(TSessionTypes_ServerMainForm, SessionTypes_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.dproj
new file mode 100644
index 0000000..5a5c3f0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.dproj	
@@ -0,0 +1,89 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{bf2e1d05-f797-4869-96a9-62100733f9c2}</ProjectGuid>
+    <MainSource>SessionTypes_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>SessionTypes_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">SessionTypes_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="SessionTypes_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="LoginService_Impl.pas">
+      <Form>LoginService</Form>
+    </DCCReference>
+    <DCCReference Include="SessionTypesLibrary_Intf.pas" />
+    <DCCReference Include="SessionTypesLibrary_Invk.pas" />
+    <DCCReference Include="SessionTypesService_Impl.pas">
+      <Form>SessionTypesService</Form>
+    </DCCReference>
+    <DCCReference Include="SessionTypes_ServerMain.pas">
+      <Form>SessionTypes_ServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="SessionTypes_Server_DBSessionManager.pas">
+      <Form>SessionTypes_Server_DBSessionManagerForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.res
new file mode 100644
index 0000000..aa9db5a
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ServerMain.dfm
new file mode 100644
index 0000000..6e77e46
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ServerMain.dfm	
@@ -0,0 +1,125 @@
+object SessionTypes_ServerMainForm: TSessionTypes_ServerMainForm
+  Left = 308
+  Top = 255
+  Width = 609
+  Height = 413
+  Caption = 'SessionTypes - Server'
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 194
+    Top = 3
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object infotext: TLabel
+    Left = 179
+    Top = 60
+    Width = 417
+    Height = 84
+    Anchors = [akLeft, akTop, akRight]
+    AutoSize = False
+    Caption = 'infotext'
+    WordWrap = True
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 149
+    Width = 601
+    Height = 235
+    Align = alCustom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    TabOrder = 0
+  end
+  object rgSessions: TRadioGroup
+    Left = 0
+    Top = 53
+    Width = 176
+    Height = 96
+    Align = alCustom
+    Caption = 'Session'
+    ItemIndex = 0
+    Items.Strings = (
+      'InMemorySessionManager'
+      'MasterServerSessionManager'
+      'EventSessionManager'
+      'RODBSessionManager')
+    TabOrder = 1
+    OnClick = rgSessionsClick
+  end
+  object ROBinMessage: TROBinMessage
+    Envelopes = <>
+    Left = 52
+    Top = 5
+  end
+  object ROServer: TROSuperTCPServer
+    Dispatchers = <
+      item
+        Name = 'ROBinMessage'
+        Message = ROBinMessage
+        Enabled = True
+      end>
+    DefaultResponse = 'ROSC:Invalid connection string'
+    Left = 81
+    Top = 5
+  end
+  object EventSessionManager: TROEventSessionManager
+    OnSessionCreated = SessionManagerSessionCreated
+    OnSessionDeleted = SessionManagerSessionDeleted
+    OnDeleteSession = EventSessionManagerDeleteSession
+    OnFindSession = EventSessionManagerFindSession
+    OnReleaseSession = EventSessionManagerReleaseSession
+    OnClearSessions = EventSessionManagerClearSessions
+    OnGetSessionCount = EventSessionManagerGetSessionCount
+    Left = 75
+    Top = 209
+  end
+  object InMemorySessionManager: TROInMemorySessionManager
+    OnSessionCreated = SessionManagerSessionCreated
+    OnSessionDeleted = SessionManagerSessionDeleted
+    Left = 74
+    Top = 152
+  end
+  object MasterServerSessionManager: TROMasterServerSessionManager
+    OnSessionCreated = SessionManagerSessionCreated
+    OnSessionDeleted = SessionManagerSessionDeleted
+    OnException = MasterServerSessionManagerException
+    Channel = ROIndyTCPChannel
+    Left = 75
+    Top = 181
+  end
+  object RODBSessionManager: TRODBSessionManager
+    OnSessionCreated = SessionManagerSessionCreated
+    OnSessionDeleted = SessionManagerSessionDeleted
+    OnException = RODBSessionManagerException
+    FieldNameSessionID = 'SessionID'
+    FieldNameCreated = 'Created'
+    FieldNameLastAccessed = 'LastAccessed'
+    FieldNameData = 'Data'
+    InsertDataset = SessionTypes_Server_DBSessionManagerForm.quInsertSession
+    DeleteDataset = SessionTypes_Server_DBSessionManagerForm.quDeleteSession
+    UpdateDataset = SessionTypes_Server_DBSessionManagerForm.quUpdateSession
+    SelectDataset = SessionTypes_Server_DBSessionManagerForm.quSelectSession
+    GetCountDataset = SessionTypes_Server_DBSessionManagerForm.quGetSessionCount
+    ClearSessionsDataset = SessionTypes_Server_DBSessionManagerForm.quClearSessions
+    SelectAllDataset = SessionTypes_Server_DBSessionManagerForm.quSelectAllSessions
+    ClearSessionsOnCreate = False
+    ClearSessionsOnDestroy = False
+    Left = 75
+    Top = 256
+  end
+  object ROIndyTCPChannel: TROIndyTCPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Port = 8090
+    Host = '127.0.0.1'
+    Left = 198
+    Top = 164
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ServerMain.pas
new file mode 100644
index 0000000..2833fd6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_ServerMain.pas	
@@ -0,0 +1,245 @@
+unit SessionTypes_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, uROPoweredByRemObjectsButton, SyncObjs, ExtCtrls,
+  uROSuperTCPServer, uROClient, uROServer, uROBinMessage,
+  uROMasterServerSessionManager, uROSessions,
+  uRODBSessionManager, SessionTypes_Server_DBSessionManager,
+  uROIndyTCPChannel;
+type
+  TSessionTypes_ServerMainForm = class(TForm)
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    Memo: TMemo;
+    rgSessions: TRadioGroup;
+    ROBinMessage: TROBinMessage;
+    ROServer: TROSuperTcpServer;
+    EventSessionManager: TROEventSessionManager;
+    InMemorySessionManager: TROInMemorySessionManager;
+    MasterServerSessionManager: TROMasterServerSessionManager;
+    RODBSessionManager: TRODBSessionManager;
+    infotext: TLabel;
+    ROIndyTCPChannel: TROIndyTCPChannel;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure SessionManagerSessionCreated(const aSession: TROSession);
+    procedure SessionManagerSessionDeleted(const aSessionID: TGUID; IsExpired: Boolean);
+    procedure EventSessionManagerReleaseSession(var aSession: TROSession; NewSession: Boolean);
+    function EventSessionManagerGetSessionCount(SessionManager: TROCustomSessionManager): Integer;
+    procedure EventSessionManagerDeleteSession(const aSessionID: TGUID; IsExpired: Boolean);
+    procedure EventSessionManagerClearSessions(SessionManager: TROCustomSessionManager; OnlyExpired: Boolean);
+    procedure rgSessionsClick(Sender: TObject);
+    procedure EventSessionManagerFindSession(const aSessionID: TGUID;
+      out aSession: TROSession);
+    procedure MasterServerSessionManagerException(aSessionID: TGUID;
+      anException: Exception; var aRetry: Boolean);
+    procedure RODBSessionManagerException(aSessionID: TGUID;
+      anException: Exception; var aRetry: Boolean);
+  private
+    CriticalSection: TCriticalSection;
+    EventSessionList: TStringList;
+    function GetSessionManager: TROCustomSessionManager;
+  public
+    { Public declarations }
+    procedure Log(Astr: string);
+  published
+    property _SessionManager: TROCustomSessionManager read GetSessionManager;
+  end;
+
+var
+  SessionTypes_ServerMainForm: TSessionTypes_ServerMainForm;
+
+implementation
+uses Inifiles;
+{$R *.dfm}
+
+{ TSessionTypes_ServerMainForm }
+
+procedure TSessionTypes_ServerMainForm.Log(Astr: string);
+begin
+  if CriticalSection = nil then exit;
+  CriticalSection.Enter;
+  try
+    if AStr = '' then
+      Memo.Lines.Add('')
+    else
+      Memo.Lines.Add(DateTimetoStr(Now) + ': ' + Astr);
+  finally
+    CriticalSection.Leave;
+  end;
+end;
+
+procedure TSessionTypes_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  CriticalSection := TCriticalSection.Create;
+  ROServer.Active := True;
+  // init Event manager
+
+  EventSessionList := TStringList.Create;
+  EventSessionList.Duplicates := dupError;
+  EventSessionList.Sorted := TRUE;
+
+  rgSessionsClick(rgSessions);
+end;
+
+procedure TSessionTypes_ServerMainForm.FormDestroy(Sender: TObject);
+begin
+  // we should manually clear sessions for TROEventSessionManager
+  EventSessionManager.ClearSessions(False);
+  CriticalSection.Free;
+  CriticalSection:=nil;
+  EventSessionList.Free;
+end;
+
+function TSessionTypes_ServerMainForm.GetSessionManager: TROCustomSessionManager;
+begin
+  case rgSessions.ItemIndex of
+    1: Result := MasterServerSessionManager;
+    2: Result := EventSessionManager;
+    3: Result := RODBSessionManager;
+  else
+    { 0:} Result := InMemorySessionManager;
+  end;
+end;
+
+procedure TSessionTypes_ServerMainForm.SessionManagerSessionCreated(
+  const aSession: TROSession);
+begin
+  Log(rgSessions.Items[rgSessions.ItemIndex] + ': Session ' + GUIDToString(aSession.SessionID) + ' created!');
+end;
+
+procedure TSessionTypes_ServerMainForm.SessionManagerSessionDeleted(
+  const aSessionID: TGUID; IsExpired: Boolean);
+begin
+  if (csDestroying in ComponentState) then Exit; // See destructor
+  Log(rgSessions.Items[rgSessions.ItemIndex] + ': Session ' + GUIDToString(aSessionID) + ' has been closed');
+  Log('');
+end;
+
+procedure TSessionTypes_ServerMainForm.EventSessionManagerReleaseSession(
+  var aSession: TROSession; NewSession: Boolean);
+var
+  id: string;
+begin
+  inherited;
+  if NewSession then begin
+    id := GUIDToString(aSession.SessionID);
+    EventSessionList.AddObject(id, aSession);
+  end;
+end;
+
+function TSessionTypes_ServerMainForm.EventSessionManagerGetSessionCount(
+  SessionManager: TROCustomSessionManager): Integer;
+begin
+  result := EventSessionList.Count;
+end;
+
+
+procedure TSessionTypes_ServerMainForm.EventSessionManagerDeleteSession(
+  const aSessionID: TGUID; IsExpired: Boolean);
+var
+  idx: integer;
+begin
+  idx := EventSessionList.IndexOf(GUIDToString(aSessionID));
+  if (idx >= 0) then begin
+    EventSessionList.Objects[idx].Free;
+    EventSessionList.Delete(idx);
+  end;
+end;
+
+procedure TSessionTypes_ServerMainForm.EventSessionManagerClearSessions(
+  SessionManager: TROCustomSessionManager; OnlyExpired: Boolean);
+var
+  i: integer;
+  lSessionID: TGUID;
+begin
+  if OnlyExpired then begin
+    for i := (EventSessionList.Count - 1) downto 0 do
+      if EventSessionManager.CheckSessionIsExpired(TROSession(EventSessionList.Objects[i])) then begin
+        lSessionID := TROSession(EventSessionList.Objects[i]).SessionID;
+        EventSessionManager.DeleteSession(lSessionID, TRUE);
+      end;
+  end
+  else
+    for i := (EventSessionList.Count - 1) downto 0 do begin
+      lSessionID := TROSession(EventSessionList.Objects[i]).SessionID;
+      EventSessionManager.DeleteSession(lSessionID, FALSE);
+    end;
+end;
+
+procedure TSessionTypes_ServerMainForm.rgSessionsClick(Sender: TObject);
+
+  procedure SetupDBSession;
+  begin
+    // init RODBSessionManager
+    with RODBSessionManager do 
+      if InsertDataset = nil then begin
+        InsertDataset := SessionTypes_Server_DBSessionManagerForm.quInsertSession;
+        DeleteDataset := SessionTypes_Server_DBSessionManagerForm.quDeleteSession;
+        UpdateDataset := SessionTypes_Server_DBSessionManagerForm.quUpdateSession;
+        SelectDataset := SessionTypes_Server_DBSessionManagerForm.quSelectSession;
+        GetCountDataset := SessionTypes_Server_DBSessionManagerForm.quGetSessionCount;
+        ClearSessionsDataset := SessionTypes_Server_DBSessionManagerForm.quClearSessions;
+      end;
+  end;
+
+begin
+  case rgSessions.ItemIndex of
+    1 {MasterServerSessionManager}: begin
+        infotext.Caption :=
+          'Stores session data in a precompiled mini database server provided with' +
+          'RemObjects SDK (the Master Server). Provides the same benefits ' +
+          'as the database session managers, without the need to manually maintain a ' +
+          'database or database server.' + sLineBreak +
+          'Demands started ''...\RemObjects SDK for Delphi\Bin\ROMasterServer.exe''';
+      end;
+    2 {EventSessionManager}:
+      infotext.Caption :=
+        'Provides an easy way to use custom code to manually store and retrieve session data.';
+    3 {RODBSessionManager}: begin
+        infotext.Caption :=
+          'Stores session data in a database table accessible via ADO.NET, a Delphi TDataSet ' +
+          'component. This allows sharing of session data between servers and keeps session ' +
+          'information persisted across server restarts.';
+        SetupDBSession;
+      end;
+  else
+    {0}{InMemorySessionManager}
+    infotext.Caption :=
+      'Stores session data in local memory within the application server. ' +
+      'This provides fast access, but does not persist session ' +
+      'information when the server is restarted. Also, common session ' +
+      'data cannot be shared by a server farm.';
+  end;
+end;
+
+procedure TSessionTypes_ServerMainForm.EventSessionManagerFindSession(
+  const aSessionID: TGUID; out aSession: TROSession);
+var
+  idx: integer;
+begin
+  aSession := nil;
+  idx := EventSessionList.IndexOf(GUIDToString(aSessionID));
+  if (idx >= 0) then aSession := TROSession(EventSessionList.Objects[idx]);
+  if (aSession <> nil) then aSession.LastAccessed := Now;
+end;
+
+procedure TSessionTypes_ServerMainForm.MasterServerSessionManagerException(
+  aSessionID: TGUID; anException: Exception; var aRetry: Boolean);
+begin
+ aRetry:=False;
+ Raise Exception.Create('Error connecting to MasterServer. Please run the MasterServer before attempting to store session data in the MasterServerSessionManager.');
+end;
+
+procedure TSessionTypes_ServerMainForm.RODBSessionManagerException(
+  aSessionID: TGUID; anException: Exception; var aRetry: Boolean);
+begin
+ aRetry:=False;
+ Raise Exception.Create('Error connecting to MSSQL server.');
+end;
+
+end.
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server_DBSessionManager.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server_DBSessionManager.dfm
new file mode 100644
index 0000000..4bf72a8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server_DBSessionManager.dfm	
@@ -0,0 +1,166 @@
+object SessionTypes_Server_DBSessionManagerForm: TSessionTypes_Server_DBSessionManagerForm
+  OldCreateOrder = False
+  Left = 478
+  Top = 240
+  Height = 212
+  Width = 327
+  object quClearSessions: TADOQuery
+    Connection = ADOConnection
+    Parameters = <
+      item
+        Name = 'LastAccessed'
+        DataType = ftFloat
+        Value = 37751.3380116088
+      end>
+    Prepared = True
+    SQL.Strings = (
+      'DELETE FROM Sessions '
+      'WHERE LastAccessed<:LastAccessed')
+    Left = 16
+    Top = 120
+  end
+  object ADOConnection: TADOConnection
+    ConnectionString = 
+      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
+      'al Catalog=Northwind;Data Source=.'
+    LoginPrompt = False
+    Provider = 'SQLOLEDB.1'
+    Left = 16
+    Top = 80
+  end
+  object quInsertSession: TADOQuery
+    Connection = ADOConnection
+    Parameters = <
+      item
+        Name = 'SessionID'
+        DataType = ftString
+        NumericScale = 255
+        Precision = 255
+        Size = 38
+        Value = Null
+      end
+      item
+        Name = 'Created'
+        Attributes = [paNullable]
+        DataType = ftDateTime
+        NumericScale = 3
+        Precision = 23
+        Size = 16
+        Value = Null
+      end
+      item
+        Name = 'LastAccessed'
+        Attributes = [paNullable]
+        DataType = ftDateTime
+        NumericScale = 3
+        Precision = 23
+        Size = 16
+        Value = Null
+      end
+      item
+        Name = 'Data'
+        Attributes = [paNullable, paLong]
+        DataType = ftBlob
+        Size = -1
+        Value = Null
+      end>
+    Prepared = True
+    SQL.Strings = (
+      
+        'INSERT INTO Sessions ([SessionID], [Created], [LastAccessed], [D' +
+        'ata])'
+      'VALUES(:SessionID, :Created, :LastAccessed, :Data)')
+    Left = 48
+    Top = 120
+  end
+  object quDeleteSession: TADOQuery
+    Connection = ADOConnection
+    Parameters = <
+      item
+        Name = 'SessionID'
+        DataType = ftString
+        NumericScale = 255
+        Precision = 255
+        Size = 38
+        Value = Null
+      end>
+    Prepared = True
+    SQL.Strings = (
+      'DELETE FROM Sessions'
+      'WHERE SessionID=:SessionID')
+    Left = 80
+    Top = 120
+  end
+  object quUpdateSession: TADOQuery
+    Connection = ADOConnection
+    Parameters = <
+      item
+        Name = 'LastAccessed'
+        Attributes = [paNullable]
+        DataType = ftDateTime
+        NumericScale = 3
+        Precision = 23
+        Size = 16
+        Value = Null
+      end
+      item
+        Name = 'Data'
+        Attributes = [paNullable, paLong]
+        DataType = ftBlob
+        Size = -1
+        Value = Null
+      end
+      item
+        Name = 'SessionID'
+        DataType = ftString
+        NumericScale = 255
+        Precision = 255
+        Size = 38
+        Value = Null
+      end>
+    Prepared = True
+    SQL.Strings = (
+      'UPDATE Sessions SET LastAccessed=:LastAccessed, Data=:Data'
+      'WHERE SessionID=:SessionID')
+    Left = 112
+    Top = 120
+  end
+  object quSelectSession: TADOQuery
+    Connection = ADOConnection
+    CursorType = ctStatic
+    Parameters = <
+      item
+        Name = 'SessionID'
+        DataType = ftString
+        NumericScale = 255
+        Precision = 255
+        Size = 38
+        Value = Null
+      end>
+    Prepared = True
+    SQL.Strings = (
+      'SELECT * FROM Sessions'
+      'WHERE SessionID=:SessionID')
+    Left = 144
+    Top = 120
+  end
+  object quGetSessionCount: TADOQuery
+    Connection = ADOConnection
+    Parameters = <>
+    Prepared = True
+    SQL.Strings = (
+      'SELECT COUNT(*) FROM Sessions')
+    Left = 176
+    Top = 120
+  end
+  object quSelectAllSessions: TADOQuery
+    Connection = ADOConnection
+    CursorType = ctStatic
+    Parameters = <>
+    Prepared = True
+    SQL.Strings = (
+      'SELECT * FROM Sessions')
+    Left = 208
+    Top = 120
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server_DBSessionManager.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server_DBSessionManager.pas
new file mode 100644
index 0000000..14ee4ab
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Session Types/SessionTypes_Server_DBSessionManager.pas	
@@ -0,0 +1,32 @@
+unit SessionTypes_Server_DBSessionManager;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROSessions, uRODBSessionManager, DB, ADODB;
+
+type
+  TSessionTypes_Server_DBSessionManagerForm = class(TDataModule)
+    quClearSessions: TADOQuery;
+    ADOConnection: TADOConnection;
+    quInsertSession: TADOQuery;
+    quDeleteSession: TADOQuery;
+    quUpdateSession: TADOQuery;
+    quSelectSession: TADOQuery;
+    quGetSessionCount: TADOQuery;
+    quSelectAllSessions: TADOQuery;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  SessionTypes_Server_DBSessionManagerForm: TSessionTypes_Server_DBSessionManagerForm;
+
+implementation
+
+{$R *.dfm}
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Styles.css b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Styles.css
new file mode 100644
index 0000000..c8e0628
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Styles.css	
@@ -0,0 +1,103 @@
+body
+{
+  background-color: #f7f7f7;
+  margin-top: 15px;
+  margin-bottom: 15px;
+  margin-left: 15px;
+  margin-right: 15px;
+  padding-top: 10px;
+  padding-bottom: 10px;
+  padding-left: 10px;
+  padding-right: 10px;
+  font-family: tahoma, verdana, sans-serif;
+  font-size: 10pt;
+  width: 700px;
+  color: #000000;
+}
+p
+{
+  padding-top: 0;
+  padding-bottom: 0;
+  padding-left: 0;
+  padding-right: 0.5em;
+}
+ul
+{
+  padding-top: 0;
+  padding-bottom: 0;
+  list-style-type: disc;
+}
+li
+{
+  padding-top: 0;
+  padding-bottom: 0;
+}
+img
+{
+  margin: 5px;
+  border-width: 0;
+}
+table
+{
+  background-color: #f7f7f7;
+  margin: 15px;
+  padding: 0px;
+  font-size: 10pt;
+}
+tr
+{
+  background-color: #f7f7f7;
+  margin: 15px;
+  padding: 0px;
+  font-size: 10pt;
+}
+td, th
+{
+  background-color: #f7f7f7;
+  margin: 0;
+  padding: 5px;
+  font-size: 10pt;
+}
+td ul
+{
+	padding-left: 2em;
+}
+
+img:left { margin-left: 0; }
+img:right { margin-right: 0; }
+p.h1
+{
+  margin-top: 1em;
+  margin-bottom: 0.5px;
+  padding-bottom:0px;
+  font-size:13pt;
+  font-weight:bold;
+}
+p.h2
+{
+  margin-top: 1em;
+  margin-bottom: 0.5px;
+  padding-bottom:0px;
+  font-size:11pt;
+  font-weight:bold;
+}
+p.h3
+{
+  margin-top: 1em;
+  margin-bottom: 0.5px;
+  padding-bottom:0px;
+  font-size:10pt;
+  font-weight:bold;
+}
+pre
+{
+  margin-top:0px;
+  margin-bottom:0px;
+  margin-left:0px;
+  margin-right:0px;
+}
+.spaced
+{
+  letter-spacing:1px;
+  color:#000060;
+}
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ApprovedClientsStorage.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ApprovedClientsStorage.pas
new file mode 100644
index 0000000..1e88216
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ApprovedClientsStorage.pas	
@@ -0,0 +1,136 @@
+unit ApprovedClientsStorage;
+
+interface
+
+uses Classes, SyncObjs, uROTypes;
+
+type
+  TApprovedClientsStorage = class(TObject)
+  private
+    fStorageFile: string;
+    fGuidList: TStringList;
+    fLock: TCriticalSection;
+    procedure SetStorageFile(aName: string);
+  protected
+    procedure Initialize;
+    procedure FlushStorage;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure AddClient(aClientGuid: Guid);
+    function IsClientKnown(aClientGuid: Guid): boolean;
+    property StorageFile: string read fStorageFile write SetStorageFile;
+  end;
+
+var
+  StorageInstance: TApprovedClientsStorage;
+
+implementation
+
+uses SysUtils, uROClasses;
+
+{ TApprovedClientsStorage }
+
+procedure TApprovedClientsStorage.AddClient(aClientGuid: Guid);
+var s: AnsiString;
+begin
+  s := AnsiUpperCase({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(aClientGuid));
+  if fGuidList.IndexOf(s) = -1 then begin
+    fLock.Enter;
+    try
+      if fGuidList.IndexOf(s) = -1 then begin
+        fGuidList.Add(s);
+        FlushStorage;
+      end;
+    finally
+      fLock.Leave;
+    end;
+  end;
+end;
+
+constructor TApprovedClientsStorage.Create;
+begin
+  inherited;
+  fGuidList := TStringList.Create;
+  fLock := TCriticalSection.Create;
+end;
+
+destructor TApprovedClientsStorage.Destroy;
+begin
+  fGuidList.Free;
+  fLock.Free;
+  inherited;
+end;
+
+procedure TApprovedClientsStorage.FlushStorage;
+var
+  f: Text;
+  s: AnsiString;
+  i: integer;
+begin
+  {$I-}
+  AssignFile(f, fStorageFile);
+  try
+    Rewrite(f);
+    for i := 0 to fGuidList.Count - 1 do begin
+      s := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fGuidList[i]);
+      WriteLn(f, s);
+      if IOResult <> 0 then raise Exception.Create('Approved clients file write error.');
+    end;
+  finally
+    CloseFile(f);
+  end;
+end;
+
+procedure TApprovedClientsStorage.Initialize;
+var
+  f: Text;
+  s: AnsiString;
+begin
+  {$I-}
+  AssignFile(f, fStorageFile);
+  try
+    fGuidList.Clear;
+    Reset(f);
+    if IOResult <> 0 then Rewrite(f)
+    else
+      while not Eof(f) do begin
+        ReadLn(f, s);
+        if IOResult <> 0 then raise Exception.Create('Approved clients file read error.');
+        fGuidList.Append({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(s));
+      end;
+  finally
+    CloseFile(f);
+  end;
+end;
+
+function TApprovedClientsStorage.IsClientKnown(aClientGuid: Guid): boolean;
+var s: AnsiString;
+begin
+  s := AnsiUpperCase({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(aClientGuid));
+  fLock.Enter;
+  try
+    Result := fGuidList.IndexOf(s) > -1;
+  finally
+    fLock.Leave;
+  end;
+end;
+
+procedure TApprovedClientsStorage.SetStorageFile(aName: string);
+var needInit: boolean;
+begin
+  fLock.Enter;
+  try
+    needInit := fStorageFile = '';
+    fStorageFile := aName;
+    if needInit then Initialize;
+  finally
+    fLock.Leave;
+  end;    
+end;
+
+initialization
+  StorageInstance := TApprovedClientsStorage.Create;
+finalization
+  StorageInstance.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/AproovedClientsStorage.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/AproovedClientsStorage.pas
new file mode 100644
index 0000000..c65636c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/AproovedClientsStorage.pas	
@@ -0,0 +1,136 @@
+unit ApprovedClientsStorage;
+
+interface
+
+uses Classes, SyncObjs;
+
+type
+  TApprovedClientsStorage = class(TObject)
+  private
+    fStorageFile: string;
+    fGuidList: TStringList;
+    fLock: TCriticalSection;
+    procedure SetStorageFile(aName: string);
+  protected
+    procedure Initialize;
+    procedure FlushStorage;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure AddClient(aClientGuid: string);
+    function IsClientKnown(aClientGuid: string): boolean;
+    property StorageFile: string read fStorageFile write SetStorageFile;
+  end;
+
+var
+  StorageInstance: TApprovedClientsStorage;
+
+implementation
+
+uses SysUtils, uROClasses;
+
+{ TApprovedClientsStorage }
+
+procedure TApprovedClientsStorage.AddClient(aClientGuid: string);
+var s: AnsiString;
+begin
+  s := AnsiUpperCase({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(aClientGuid));
+  if fGuidList.IndexOf(s) = -1 then begin
+    fLock.Enter;
+    try
+      if fGuidList.IndexOf(s) = -1 then begin
+        fGuidList.Add(s);
+        FlushStorage;
+      end;
+    finally
+      fLock.Leave;
+    end;
+  end;
+end;
+
+constructor TApprovedClientsStorage.Create;
+begin
+  inherited;
+  fGuidList := TStringList.Create;
+  fLock := TCriticalSection.Create;
+end;
+
+destructor TApprovedClientsStorage.Destroy;
+begin
+  fGuidList.Free;
+  fLock.Free;
+  inherited;
+end;
+
+procedure TApprovedClientsStorage.FlushStorage;
+var
+  f: Text;
+  s: AnsiString;
+  i: integer;
+begin
+  {$I-}
+  AssignFile(f, fStorageFile);
+  try
+    Rewrite(f);
+    for i := 0 to fGuidList.Count - 1 do begin
+      s := {$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(fGuidList[i]);
+      WriteLn(f, s);
+      if IOResult <> 0 then raise Exception.Create('Approved clients file write error.');
+    end;
+  finally
+    CloseFile(f);
+  end;
+end;
+
+procedure TApprovedClientsStorage.Initialize;
+var
+  f: Text;
+  s: AnsiString;
+begin
+  {$I-}
+  AssignFile(f, fStorageFile);
+  try
+    fGuidList.Clear;
+    Reset(f);
+    if IOResult <> 0 then Rewrite(f)
+    else
+      while not Eof(f) do begin
+        ReadLn(f, s);
+        if IOResult <> 0 then raise Exception.Create('Approved clients file read error.');
+        fGuidList.Append({$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(s));
+      end;
+  finally
+    CloseFile(f);
+  end;
+end;
+
+function TApprovedClientsStorage.IsClientKnown(aClientGuid: string): boolean;
+var s: AnsiString;
+begin
+  s := AnsiUpperCase({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(aClientGuid));
+  fLock.Enter;
+  try
+    Result := fGuidList.IndexOf(s) > -1;
+  finally
+    fLock.Leave;
+  end;
+end;
+
+procedure TApprovedClientsStorage.SetStorageFile(aName: string);
+var needInit: boolean;
+begin
+  fLock.Enter;
+  try
+    needInit := fStorageFile = '';
+    fStorageFile := aName;
+    if needInit then Initialize;
+  finally
+    fLock.Leave;
+  end;    
+end;
+
+initialization
+  StorageInstance := TApprovedClientsStorage.Create;
+finalization
+  StorageInstance.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ChatServerService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ChatServerService_Impl.dfm
new file mode 100644
index 0000000..5ceacb7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ChatServerService_Impl.dfm	
@@ -0,0 +1,10 @@
+object ChatServerService: TChatServerService
+  OldCreateOrder = True
+  RequiresSession = True
+  SessionManager = SuperTCPChannelChat_ServerMainForm.ROSessionManager
+  EventRepository = SuperTCPChannelChat_ServerMainForm.ROEventRepository
+  Left = 200
+  Top = 200
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ChatServerService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ChatServerService_Impl.pas
new file mode 100644
index 0000000..6e12e92
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/ChatServerService_Impl.pas	
@@ -0,0 +1,72 @@
+unit ChatServerService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, Variants,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} SuperTCPChannelChatLibrary_Intf;
+
+type
+  { TChatServerService }
+  TChatServerService = class(TRORemoteDataModule, IChatServerService)
+  private
+  protected
+    { IChatServerService methods }
+    procedure TalkPrivate(const TargetNickname: WideString; const Message: WideString);
+    procedure Talk(const Message: WideString);
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} SuperTCPChannelChatLibrary_Invk, SuperTCPChannelChat_ServerMain;
+
+procedure Create_ChatServerService(out anInstance : IUnknown);
+begin
+  anInstance := TChatServerService.Create(nil);
+end;
+
+{ ChatServerService }
+procedure TChatServerService.TalkPrivate(const TargetNickname: WideString; const Message: WideString);
+var
+  ev: IChatEvents_Writer;
+  i: Integer;
+  aDestGuid: string;
+begin
+  UserClientIDListCs.Acquire;
+  try
+    i := UserClientIDList.IndexOfName(TargetNickname);
+    if i = -1 then
+      raise Exception.Create('Invalid user: '+TargetNickname);
+    aDestGuid := UserClientIDList.Values[TargetNickname];
+  finally
+    UserClientIDListCs.Release;
+  end;
+  ev := (EventRepository as IChatEvents_Writer);
+  ev.ExcludeSender := False;
+  ev.SessionList.Add(aDestGuid);
+  ev.Message(session.SessionID, VarToStr(Session['nick']), TargetNickname, Message);
+end;
+
+procedure TChatServerService.Talk(const Message: WideString);
+var
+  ev: IChatEvents_Writer;
+begin
+  ev := (EventRepository as IChatEvents_Writer);
+  ev.ExcludeSender := False;
+  ev.Message(session.SessionID, VarToStr(Session['nick']), '', Message);
+end;
+
+initialization
+  TROClassFactory.Create('ChatServerService', Create_ChatServerService, TChatServerService_Invoker);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/LoginService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/LoginService_Impl.dfm
new file mode 100644
index 0000000..c349242
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/LoginService_Impl.dfm	
@@ -0,0 +1,9 @@
+object LoginService: TLoginService
+  OldCreateOrder = True
+  SessionManager = SuperTCPChannelChat_ServerMainForm.ROSessionManager
+  EventRepository = SuperTCPChannelChat_ServerMainForm.ROEventRepository
+  Left = 582
+  Top = 194
+  Height = 304
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/LoginService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/LoginService_Impl.pas
new file mode 100644
index 0000000..8747e36
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/LoginService_Impl.pas	
@@ -0,0 +1,105 @@
+unit LoginService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} SuperTCPChannelChatLibrary_Intf;
+
+type
+  { TLoginService }
+  TLoginService = class(TRORemoteDataModule, ILoginService)
+  private
+  protected
+    { ILoginService methods }
+    procedure Login(const Nickname: Widestring);
+    procedure Logout;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} SuperTCPChannelChatLibrary_Invk, SuperTCPChannelChat_ServerMain, Variants, uROClasses;
+
+procedure Create_LoginService(out anInstance: IUnknown);
+begin
+  anInstance := TLoginService.Create(nil);
+end;
+
+{ LoginService }
+
+procedure TLoginService.Login(const Nickname: Widestring);
+var
+  ev: IChatEvents_Writer;
+  i: Integer;
+  s: Widestring;
+begin
+  UserClientIDListCs.Acquire;
+  try
+    if UserClientIDList.IndexOfName(Nickname) <> -1 then raise Exception.Create('Nickname already in use');
+    s := VarToWideStr(Session['nick']);
+    if s <> '' then
+      UserClientIDList.Delete(UserClientIDList.IndexOfName(s));
+
+
+    RegisterEventClient({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(GuidToString(self.ClientID)), 'IChatEvents');
+    ev := (EventRepository as IChatEvents_Writer);
+    ev.ExcludeSender := False;
+    ev.SessionList.Add(GuidToString(Session.SessionID));
+
+    for i := 0 to UserClientIDList.Count - 1 do begin
+      ev.UserLogin(Session.SessionID, UserClientIDList.Names[i]);
+    end;
+
+    UserClientIDList.Add(Nickname + '=' + GUIDToString(Session.SessionID));
+
+    ev := (EventRepository as IChatEvents_Writer);
+    ev.ExcludeSender := False;
+    for i := 0 to UserClientIDList.Count - 1 do
+      ev.SessionList.Add(Copy(UserClientIDList[i], pos('=', UserClientIDList[i])+1, MaxInt));
+    ev.UserLogin(Session.SessionID, Nickname);
+  finally
+    UserClientIDListCs.Release;
+  end;
+  Session['nick'] := Nickname;
+end;
+
+procedure TLoginService.Logout;
+var
+  i: Integer;
+  ev: IChatEvents_Writer;
+  s: Widestring;
+begin
+  UserClientIDListCs.Acquire;
+  s := VarToWideStr(Session['nick']);
+  try
+    i := UserClientIDList.IndexOfName(s);
+    if i <> -1 then
+      UserClientIDList.Delete(i);
+  finally
+    UserClientIDListCs.Release;
+  end;
+  ev := (EventRepository as IChatEvents_Writer);
+  ev.ExcludeSender := False;
+  ev.UserLogout(Session.SessionID, s);
+  UnregisterEventClient({$IFDEF UNICODE}WideStringToAnsiString{$ENDIF}(GUIDToString(ClientID)), 'IChatEvents');
+  DestroySession;
+end;
+
+initialization
+  TROClassFactory.Create('LoginService', Create_LoginService, TLoginService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary.rodl
new file mode 100644
index 0000000..0812323
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary.rodl	
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="PairingLibrary" UID="{C04AE0F2-540E-434F-96FA-08B8A7810005}" Version="3.0">
+<Services>
+<Service Name="TestService" UID="{9EBE02FE-042B-4D63-BE6B-933FE382F13B}">
+<Interfaces>
+<Interface Name="Default" UID="{7941D2C3-63AE-4559-BB62-3443C5B3EB3F}">
+<Documentation><![CDATA[Service SyncServerService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="GetServerTime" UID="{BF8BB1F0-4EA9-4374-8E06-2CF0A1A5455F}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="PairingService" UID="{2929B8EE-A872-4831-8D5C-5455CE093B0F}">
+<Interfaces>
+<Interface Name="Default" UID="{CBA27400-AE3F-4945-8520-0EA97EC5DE41}">
+<Operations>
+<Operation Name="LoginAttempt" UID="{C8A39B4B-04E4-4E12-8F59-9545B2FF171F}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="ClientGuid" DataType="Guid" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="ConfirmCode" UID="{6E6E5927-EE71-44DC-AC0E-261B8676F4CD}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="Code" DataType="AnsiString" Flag="In" >
+</Parameter>
+<Parameter Name="ClientGuid" DataType="Guid" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+<Enum Name="PairingStatus" UID="{7E1EB789-4FF9-4F97-8F12-1CE138BB5205}">
+<EnumValues>
+<EnumValue Name="Successfull">
+</EnumValue>
+<EnumValue Name="PairingRequired">
+</EnumValue>
+<EnumValue Name="PairingBusy">
+</EnumValue>
+</EnumValues>
+</Enum>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary_Intf.pas
new file mode 100644
index 0000000..0c16e02
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary_Intf.pas	
@@ -0,0 +1,171 @@
+unit PairingLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{C04AE0F2-540E-434F-96FA-08B8A7810005}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  ITestService_IID : TGUID = '{7941D2C3-63AE-4559-BB62-3443C5B3EB3F}';
+  IPairingService_IID : TGUID = '{CBA27400-AE3F-4945-8520-0EA97EC5DE41}';
+
+  { Event ID's }
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  ITestService = interface;
+  IPairingService = interface;
+
+
+  { Enumerateds }
+  PairingStatus = (PairingStatus_Successfull,PairingStatus_PairingRequired,PairingStatus_PairingBusy);
+
+  { ITestService }
+  ITestService = interface
+    ['{7941D2C3-63AE-4559-BB62-3443C5B3EB3F}']
+    function GetServerTime: DateTime;
+  end;
+
+  { CoTestService }
+  CoTestService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ITestService;
+  end;
+
+  { TTestService_Proxy }
+  TTestService_Proxy = class(TROProxy, ITestService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetServerTime: DateTime;
+  end;
+
+  { IPairingService }
+  IPairingService = interface
+    ['{CBA27400-AE3F-4945-8520-0EA97EC5DE41}']
+    function LoginAttempt(const ClientGuid: Guid): Integer;
+    function ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean;
+  end;
+
+  { CoPairingService }
+  CoPairingService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IPairingService;
+  end;
+
+  { TPairingService_Proxy }
+  TPairingService_Proxy = class(TROProxy, IPairingService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function LoginAttempt(const ClientGuid: Guid): Integer;
+    function ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoTestService }
+
+class function CoTestService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ITestService;
+begin
+  result := TTestService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TTestService_Proxy }
+
+function TTestService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'TestService';
+end;
+
+function TTestService_Proxy.GetServerTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'PairingLibrary', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoPairingService }
+
+class function CoPairingService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IPairingService;
+begin
+  result := TPairingService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TPairingService_Proxy }
+
+function TPairingService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'PairingService';
+end;
+
+function TPairingService_Proxy.LoginAttempt(const ClientGuid: Guid): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'PairingLibrary', __InterfaceName, 'LoginAttempt');
+    __Message.Write('ClientGuid', TypeInfo(Guid), ClientGuid, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TPairingService_Proxy.ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'PairingLibrary', __InterfaceName, 'ConfirmCode');
+    __Message.Write('Code', TypeInfo(AnsiString), Code, []);
+    __Message.Write('ClientGuid', TypeInfo(Guid), ClientGuid, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(ITestService_IID, TTestService_Proxy);
+  RegisterProxyClass(IPairingService_IID, TPairingService_Proxy);
+
+
+finalization
+  UnregisterProxyClass(ITestService_IID);
+  UnregisterProxyClass(IPairingService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary_Invk.pas
new file mode 100644
index 0000000..ac3b810
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingLibrary_Invk.pas	
@@ -0,0 +1,122 @@
+unit PairingLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} PairingLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TTestService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TPairingService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_LoginAttempt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ConfirmCode(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TTestService_Invoker }
+
+constructor TTestService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TTestService_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as ITestService).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'PairingLibrary', 'TestService', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+{ TPairingService_Invoker }
+
+constructor TPairingService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TPairingService_Invoker.Invoke_LoginAttempt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function LoginAttempt(const ClientGuid: Guid): Integer; }
+var
+  ClientGuid: Guid;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('ClientGuid', TypeInfo(Guid), ClientGuid, []);
+
+    lResult := (__Instance as IPairingService).LoginAttempt(ClientGuid);
+
+    __Message.InitializeResponseMessage(__Transport, 'PairingLibrary', 'PairingService', 'LoginAttemptResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TPairingService_Invoker.Invoke_ConfirmCode(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean; }
+var
+  Code: AnsiString;
+  ClientGuid: Guid;
+  lResult: Boolean;
+begin
+  try
+    __Message.Read('Code', TypeInfo(AnsiString), Code, []);
+    __Message.Read('ClientGuid', TypeInfo(Guid), ClientGuid, []);
+
+    lResult := (__Instance as IPairingService).ConfirmCode(Code, ClientGuid);
+
+    __Message.InitializeResponseMessage(__Transport, 'PairingLibrary', 'PairingService', 'ConfirmCodeResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingService_Impl.dfm
new file mode 100644
index 0000000..e574333
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingService_Impl.dfm	
@@ -0,0 +1,6 @@
+object PairingService: TPairingService
+  OldCreateOrder = True
+  SessionManager = ServerDataModule.SessionManager
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingService_Impl.pas
new file mode 100644
index 0000000..f8cf9cc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingService_Impl.pas	
@@ -0,0 +1,90 @@
+unit PairingService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} PairingLibrary_Intf;
+
+type
+  { TPairingService }
+  TPairingService = class(TRORemoteDataModule, IPairingService)
+  protected
+    { IPairingService methods }
+    function LoginAttempt(const ClientGuid: Guid): integer;
+    function ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean;
+  end;
+
+implementation
+
+{$IFNDEF FPC}
+  {$R *.dfm}
+{$ENDIF}
+uses
+  {Generated:} PairingLibrary_Invk,
+  fServerDataModule, ApprovedClientsStorage, PairingStatus, uROClasses,
+  fServerForm;
+
+procedure Create_PairingService(out anInstance : IUnknown);
+begin
+  anInstance := TPairingService.Create(nil);
+end;
+
+{ PairingService }
+
+function TPairingService.LoginAttempt(const ClientGuid: Guid): integer;
+begin
+  if StorageInstance.IsClientKnown(ClientGuid) then begin
+    Result := ord(PairingStatus_Successfull);
+    Session.Values['OK'] := true;
+  end
+  else begin
+    DestroySession;
+    if Pairing.InitiatePairing > 0 then begin
+      Result := ord(PairingStatus_PairingRequired);
+      ServerForm.DisplayPairingCode(Pairing.Code);
+    end
+    else Result := ord(PairingStatus_PairingBusy);
+  end;
+end;
+
+function TPairingService.ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean;
+var s: string;
+begin
+  s := {$IFDEF UNICODE}AnsiStringToWideString{$ENDIF}(Code);
+  Result := s = IntToStr(Pairing.Code);
+  if Result then begin
+    StorageInstance.AddClient(ClientGuid);
+    Session.Values['OK'] := true;
+  end
+  else DestroySession;
+  Pairing.CancelPairing;
+  ServerForm.HidePairingCode;
+end;
+
+var
+  fClassFactory: IROClassFactory;
+
+initialization
+{$IFDEF FPC}
+  {$I PairingService_Impl.lrs}
+{$ENDIF}
+  fClassFactory := TROClassFactory.Create('PairingService', Create_PairingService, TPairingService_Invoker);
+  RegisterForZeroConf(fClassFactory,'_PairingService_rosdk._tcp.');
+
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingStatus.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingStatus.pas
new file mode 100644
index 0000000..caf0a66
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/PairingStatus.pas	
@@ -0,0 +1,80 @@
+unit PairingStatus;
+
+interface
+
+uses SyncObjs;
+
+type
+  TPairingStatus = class(TObject)
+  private
+    fCode: integer;
+    fLastAttempt: TDateTime;
+    fLock: TCriticalSection;
+    procedure CheckExpired;
+  public
+    constructor Create;
+    destructor Destroy; override; 
+    procedure CancelPairing;
+    function InitiatePairing: integer;
+    property Code: integer read fCode;
+  end;
+
+var
+  Pairing: TPairingStatus;
+
+implementation
+
+uses SysUtils, DateUtils;
+
+{ TPairingStatus }
+
+procedure TPairingStatus.CancelPairing;
+begin
+  fLock.Enter;
+  fCode := 0;
+  fLastAttempt := 0;
+  fLock.Leave;
+end;
+
+procedure TPairingStatus.CheckExpired;
+begin
+  if SecondSpan(Now, fLastAttempt) > 60 then begin
+    fCode := 0;
+    fLastAttempt := 0;
+  end;
+end;
+
+constructor TPairingStatus.Create;
+begin
+  inherited;
+  fLock := TCriticalSection.Create;
+end;
+
+destructor TPairingStatus.Destroy;
+begin
+  fLock.Free;
+  inherited;
+end;
+
+function TPairingStatus.InitiatePairing: integer;
+begin
+  fLock.Enter;
+  try
+    CheckExpired;
+    if fCode <> 0 then Result := 0
+    else begin
+      fLastAttempt := Now;
+      fCode := (Random(8) + 1) * 1000 + Random(9) * 100 + Random(9) * 10 + Random(9);
+      Result := fCode;
+    end;
+  finally
+    fLock.Leave;
+  end;  
+end;
+
+initialization
+  Randomize;
+  Pairing := TPairingStatus.Create;
+finalization
+  Pairing.Free;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/RODLFILE.res
new file mode 100644
index 0000000..641d157
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.Sample.html
new file mode 100644
index 0000000..80ff876
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.Sample.html	
@@ -0,0 +1,29 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>SuperTCP Channel Chat</span> 
+</p>
+
+
+<h2>Purpose</h2>
+
+<p>This sample shows how the <strong>Super TCP Channel</strong> can be used to create a chat server and clients. 
+    <br />
+Unlike the HTTP Chat sample, this sample <strong>doesn't poll the server</strong>
+    but sends events back to clients directly.</p>
+
+<p>
+    <strong>Note</strong>: to test this sample properly, you need to open at least three clients. 
+    <br />
+  Each client instance will provide a default login user name, 
+  but you can modify these as needed (there is no verification provided in this simple sample).
+</p>
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.bdsgroup
new file mode 100644
index 0000000..42cc3e6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{427F887E-74A0-4A15-9410-2710E1B964A6}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="SuperTCPChannelChat_Server.exe">SuperTCPChannelChat_Server.bdsproj</Projects>
+      <Projects Name="SuperTCPChannelChat_Client.exe">SuperTCPChannelChat_Client.bdsproj</Projects>
+      <Projects Name="Targets">SuperTCPChannelChat_Server.exe SuperTCPChannelChat_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.bpg
new file mode 100644
index 0000000..ce3c2fa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = SuperTCPChannelChat_Server.exe SuperTCPChannelChat_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+SuperTCPChannelChat_Server.exe: SuperTCPChannelChat_Server.dpr
+  $(DCC)
+
+SuperTCPChannelChat_Client.exe: SuperTCPChannelChat_Client.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.groupproj
new file mode 100644
index 0000000..3d46358
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{352fd1c6-4fbe-4ec9-bc17-20a16a676c6f}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="SuperTCPChannelChat_Server">
+    <MSBuild Projects="SuperTCPChannelChat_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="SuperTCPChannelChat_Server:Clean">
+    <MSBuild Projects="SuperTCPChannelChat_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="SuperTCPChannelChat_Server:Make">
+    <MSBuild Projects="SuperTCPChannelChat_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="SuperTCPChannelChat_Client">
+    <MSBuild Projects="SuperTCPChannelChat_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="SuperTCPChannelChat_Client:Clean">
+    <MSBuild Projects="SuperTCPChannelChat_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="SuperTCPChannelChat_Client:Make">
+    <MSBuild Projects="SuperTCPChannelChat_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="SuperTCPChannelChat_Server;SuperTCPChannelChat_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="SuperTCPChannelChat_Server:Clean;SuperTCPChannelChat_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="SuperTCPChannelChat_Server:Make;SuperTCPChannelChat_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary.rodl
new file mode 100644
index 0000000..1145332
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary.rodl	
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="SuperTCPChannelChatLibrary" UID="{8A53A750-1F2B-4060-AAC0-77B4FC071D2D}" Version="3.0">
+<Services>
+<Service Name="ChatServerService" UID="{456C487D-EE81-4671-B2D4-6B5D592DBDA6}">
+<Interfaces>
+<Interface Name="Default" UID="{6CC2111F-DDD6-4CF5-AB57-2CD98EF4FF5B}">
+<Documentation><![CDATA[
+Service ChatServerService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="TalkPrivate" UID="{B6C25DA5-764E-4878-A19E-B81F4AC94648}">
+<Parameters>
+<Parameter Name="TargetNickname" DataType="Widestring" Flag="In" >
+</Parameter>
+<Parameter Name="Message" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="Talk" UID="{D4D882C3-14B6-4534-81C1-56F38E20B8D0}">
+<Parameters>
+<Parameter Name="Message" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="LoginService" UID="{9CFAAF14-4EB9-4B3F-A81F-B84E3036BC1F}">
+<Interfaces>
+<Interface Name="Default" UID="{3D19AEB1-6D2F-4142-B937-B97367133A2F}">
+<Operations>
+<Operation Name="Login" UID="{5653E358-459F-488B-BB61-1BD012A54CD1}">
+<Parameters>
+<Parameter Name="Nickname" DataType="Widestring" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="Logout" UID="{BB17EE97-EC45-4577-8A41-EEB63CB55C12}">
+<Parameters>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<EventSinks>
+<EventSink Name="ChatEvents" UID="{D5918F11-0C9D-4CDB-9AFE-E358FACF8A05}">
+<Interfaces>
+<Interface Name="Default" UID="{C456D3B2-E44A-4FA6-8F71-3838D7F7525B}">
+<Operations>
+<Operation Name="Message" UID="{A224F15E-9DDC-4CC0-B074-5205655907D9}">
+<Parameters>
+<Parameter Name="From" DataType="Widestring" Flag="In">
+</Parameter>
+<Parameter Name="Target" DataType="Widestring" Flag="In">
+</Parameter>
+<Parameter Name="Message" DataType="Widestring" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="UserLogin" UID="{E5F262EE-0762-4A14-97C9-FAA5B16A448C}">
+<Parameters>
+<Parameter Name="Nickname" DataType="Widestring" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="UserLogout" UID="{27E8F7EA-C428-4349-B9EC-01D4AFEF3A2C}">
+<Parameters>
+<Parameter Name="Nickname" DataType="Widestring" Flag="In">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="ShutdownServer" UID="{C4A6E00D-B5CA-4FBE-AAFF-C15BE132B9D2}">
+<Parameters>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</EventSink>
+</EventSinks>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary_Intf.pas
new file mode 100644
index 0000000..ff35c65
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary_Intf.pas	
@@ -0,0 +1,375 @@
+unit SuperTCPChannelChatLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{8A53A750-1F2B-4060-AAC0-77B4FC071D2D}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  IChatServerService_IID : TGUID = '{6CC2111F-DDD6-4CF5-AB57-2CD98EF4FF5B}';
+  ILoginService_IID : TGUID = '{3D19AEB1-6D2F-4142-B937-B97367133A2F}';
+
+  { Event ID's }
+  EID_ChatEvents = 'ChatEvents';
+
+type
+  { Forward declarations }
+  IChatServerService = interface;
+  ILoginService = interface;
+
+  IChatEvents = interface;
+
+
+  { IChatServerService }
+  IChatServerService = interface
+    ['{6CC2111F-DDD6-4CF5-AB57-2CD98EF4FF5B}']
+    procedure TalkPrivate(const TargetNickname: Widestring; const Message: Widestring);
+    procedure Talk(const Message: Widestring);
+  end;
+
+  { CoChatServerService }
+  CoChatServerService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IChatServerService;
+  end;
+
+  { TChatServerService_Proxy }
+  TChatServerService_Proxy = class(TROProxy, IChatServerService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure TalkPrivate(const TargetNickname: Widestring; const Message: Widestring);
+    procedure Talk(const Message: Widestring);
+  end;
+
+  { ILoginService }
+  ILoginService = interface
+    ['{3D19AEB1-6D2F-4142-B937-B97367133A2F}']
+    procedure Login(const Nickname: Widestring);
+    procedure Logout;
+  end;
+
+  { CoLoginService }
+  CoLoginService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginService;
+  end;
+
+  { TLoginService_Proxy }
+  TLoginService_Proxy = class(TROProxy, ILoginService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure Login(const Nickname: Widestring);
+    procedure Logout;
+  end;
+
+  { IChatEvents }
+  IChatEvents = interface
+    ['{C456D3B2-E44A-4FA6-8F71-3838D7F7525B}']
+    procedure Message(const From: Widestring; const Target: Widestring; const Message: Widestring);
+    procedure UserLogin(const Nickname: Widestring);
+    procedure UserLogout(const Nickname: Widestring);
+    procedure ShutdownServer;
+  end;
+
+  { IChatEvents_Writer }
+  IChatEvents_Writer = interface(IROEventWriter)
+    ['{C456D3B2-E44A-4FA6-8F71-3838D7F7525B}']
+    procedure Message(const __Sender : TGUID; const From: Widestring; const Target: Widestring; const Message: Widestring);
+    procedure UserLogin(const __Sender : TGUID; const Nickname: Widestring);
+    procedure UserLogout(const __Sender : TGUID; const Nickname: Widestring);
+    procedure ShutdownServer(const __Sender : TGUID);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ CoChatServerService }
+
+class function CoChatServerService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IChatServerService;
+begin
+  result := TChatServerService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TChatServerService_Proxy }
+
+function TChatServerService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'ChatServerService';
+end;
+
+procedure TChatServerService_Proxy.TalkPrivate(const TargetNickname: Widestring; const Message: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SuperTCPChannelChatLibrary', __InterfaceName, 'TalkPrivate');
+    __Message.Write('TargetNickname', TypeInfo(Widestring), TargetNickname, []);
+    __Message.Write('Message', TypeInfo(Widestring), Message, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TChatServerService_Proxy.Talk(const Message: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SuperTCPChannelChatLibrary', __InterfaceName, 'Talk');
+    __Message.Write('Message', TypeInfo(Widestring), Message, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoLoginService }
+
+class function CoLoginService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ILoginService;
+begin
+  result := TLoginService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TLoginService_Proxy }
+
+function TLoginService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'LoginService';
+end;
+
+procedure TLoginService_Proxy.Login(const Nickname: Widestring);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SuperTCPChannelChatLibrary', __InterfaceName, 'Login');
+    __Message.Write('Nickname', TypeInfo(Widestring), Nickname, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TLoginService_Proxy.Logout;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SuperTCPChannelChatLibrary', __InterfaceName, 'Logout');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+type
+  { TChatEvents_Writer }
+  TChatEvents_Writer = class(TROEventWriter, IChatEvents_Writer)
+  protected
+    procedure Message(const __Sender : TGUID; const From: Widestring; const Target: Widestring; const Message: Widestring);
+    procedure UserLogin(const __Sender : TGUID; const Nickname: Widestring);
+    procedure UserLogout(const __Sender : TGUID; const Nickname: Widestring);
+    procedure ShutdownServer(const __Sender : TGUID);
+  end;
+
+procedure TChatEvents_Writer.Message(const __Sender : TGUID; const From: Widestring; const Target: Widestring; const Message: Widestring);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'SuperTCPChannelChatLibrary', EID_ChatEvents, 'Message');
+    __Message.Write('From', TypeInfo(Widestring), From, []);
+    __Message.Write('Target', TypeInfo(Widestring), Target, []);
+    __Message.Write('Message', TypeInfo(Widestring), Message, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TChatEvents_Writer.UserLogin(const __Sender : TGUID; const Nickname: Widestring);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'SuperTCPChannelChatLibrary', EID_ChatEvents, 'UserLogin');
+    __Message.Write('Nickname', TypeInfo(Widestring), Nickname, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TChatEvents_Writer.UserLogout(const __Sender : TGUID; const Nickname: Widestring);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'SuperTCPChannelChatLibrary', EID_ChatEvents, 'UserLogout');
+    __Message.Write('Nickname', TypeInfo(Widestring), Nickname, []);
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+procedure TChatEvents_Writer.ShutdownServer(const __Sender : TGUID);
+var __eventdata : Binary;
+begin
+  __eventdata := Binary.Create;
+  try
+    __Message.InitializeEventMessage(NIL, 'SuperTCPChannelChatLibrary', EID_ChatEvents, 'ShutdownServer');
+    __Message.Finalize;
+
+    __Message.WriteToStream(__eventdata);
+
+    Repository.StoreEventData(__Sender, __eventdata, ExcludeSender, ExcludeSessionList, SessionList.CommaText);
+  finally
+    __eventdata.Free;
+  end;
+end;
+
+type
+  { TChatEvents_Invoker }
+  TChatEvents_Invoker = class(TROEventInvoker)
+  published
+    procedure Invoke_Message(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_UserLogin(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_UserLogout(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+    procedure Invoke_ShutdownServer(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+  end;
+
+procedure TChatEvents_Invoker.Invoke_Message(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  From: Widestring;
+  Target: Widestring;
+  Message: Widestring;
+begin
+
+  try
+    __Message.Read('From', TypeInfo(Widestring), From, []);
+    __Message.Read('Target', TypeInfo(Widestring), Target, []);
+    __Message.Read('Message', TypeInfo(Widestring), Message, []);
+
+    (__Target as IChatEvents).Message(From, Target, Message);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+procedure TChatEvents_Invoker.Invoke_UserLogin(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  Nickname: Widestring;
+begin
+
+  try
+    __Message.Read('Nickname', TypeInfo(Widestring), Nickname, []);
+
+    (__Target as IChatEvents).UserLogin(Nickname);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+procedure TChatEvents_Invoker.Invoke_UserLogout(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+  Nickname: Widestring;
+begin
+
+  try
+    __Message.Read('Nickname', TypeInfo(Widestring), Nickname, []);
+
+    (__Target as IChatEvents).UserLogout(Nickname);
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+procedure TChatEvents_Invoker.Invoke_ShutdownServer(__EventReceiver : TROEventReceiver; const __Message : IROMessage; const __Target : IUnknown);
+var
+__lObjectDisposer: TROObjectDisposer;
+begin
+  try
+
+    (__Target as IChatEvents).ShutdownServer();
+
+  finally
+    __lObjectDisposer:= TROObjectDisposer.Create(__EventReceiver);
+    try
+    finally
+      __lObjectDisposer.Free();
+    end
+  end
+end;
+
+initialization
+  RegisterProxyClass(IChatServerService_IID, TChatServerService_Proxy);
+  RegisterProxyClass(ILoginService_IID, TLoginService_Proxy);
+
+  RegisterEventWriterClass(IChatEvents_Writer, TChatEvents_Writer);
+  RegisterEventInvokerClass(EID_ChatEvents, TChatEvents_Invoker);
+
+finalization
+  UnregisterProxyClass(IChatServerService_IID);
+  UnregisterProxyClass(ILoginService_IID);
+
+  UnregisterEventWriterClass(IChatEvents_Writer);
+  UnregisterEventInvokerClass(EID_ChatEvents);
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary_Invk.pas
new file mode 100644
index 0000000..85f7468
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChatLibrary_Invk.pas	
@@ -0,0 +1,140 @@
+unit SuperTCPChannelChatLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I Remobjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} SuperTCPChannelChatLibrary_Intf;
+
+type
+  TChatServerService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_TalkPrivate(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_Talk(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TLoginService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TChatServerService_Invoker }
+
+constructor TChatServerService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TChatServerService_Invoker.Invoke_TalkPrivate(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure TalkPrivate(const TargetNickname: Widestring; const Message: Widestring); }
+var
+  TargetNickname: Widestring;
+  Message: Widestring;
+begin
+  try
+    __Message.Read('TargetNickname', TypeInfo(Widestring), TargetNickname, []);
+    __Message.Read('Message', TypeInfo(Widestring), Message, []);
+
+    (__Instance as IChatServerService).TalkPrivate(TargetNickname, Message);
+
+    __Message.InitializeResponseMessage(__Transport, 'SuperTCPChannelChatLibrary', 'ChatServerService', 'TalkPrivateResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TChatServerService_Invoker.Invoke_Talk(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Talk(const Message: Widestring); }
+var
+  Message: Widestring;
+begin
+  try
+    __Message.Read('Message', TypeInfo(Widestring), Message, []);
+
+    (__Instance as IChatServerService).Talk(Message);
+
+    __Message.InitializeResponseMessage(__Transport, 'SuperTCPChannelChatLibrary', 'ChatServerService', 'TalkResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+{ TLoginService_Invoker }
+
+constructor TLoginService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TLoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Login(const Nickname: Widestring); }
+var
+  Nickname: Widestring;
+begin
+  try
+    __Message.Read('Nickname', TypeInfo(Widestring), Nickname, []);
+
+    (__Instance as ILoginService).Login(Nickname);
+
+    __Message.InitializeResponseMessage(__Transport, 'SuperTCPChannelChatLibrary', 'LoginService', 'LoginResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TLoginService_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure Logout; }
+begin
+  try
+    (__Instance as ILoginService).Logout;
+
+    __Message.InitializeResponseMessage(__Transport, 'SuperTCPChannelChatLibrary', 'LoginService', 'LogoutResponse');
+    __Message.Finalize;
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.bdsproj
new file mode 100644
index 0000000..47723f9
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{C2F75A49-2A4E-4933-A832-E7477BC760C2}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">SuperTCPChannelChat_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.dpr
new file mode 100644
index 0000000..76f79e8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.dpr	
@@ -0,0 +1,14 @@
+program SuperTCPChannelChat_Client;
+
+uses
+  uROComInit,
+  Forms,
+  SuperTCPChannelChat_ClientMain in 'SuperTCPChannelChat_ClientMain.pas' {SuperTCPChannelChat_ClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TSuperTCPChannelChat_ClientMainForm, SuperTCPChannelChat_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.dproj
new file mode 100644
index 0000000..4c3fa8a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{7d065047-d58a-4b2c-a706-00fb58c52394}</ProjectGuid>
+    <MainSource>SuperTCPChannelChat_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>SuperTCPChannelChat_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">SuperTCPChannelChat_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="SuperTCPChannelChat_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="SuperTCPChannelChat_ClientMain.pas">
+      <Form>SuperTCPChannelChat_ClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.res
new file mode 100644
index 0000000..0f940ed
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ClientMain.dfm
new file mode 100644
index 0000000..30e7a83
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ClientMain.dfm	
@@ -0,0 +1,110 @@
+object SuperTCPChannelChat_ClientMainForm: TSuperTCPChannelChat_ClientMainForm
+  Left = 92
+  Top = 108
+  AutoScroll = False
+  Caption = 'SuperTCPChannelChat - Client'
+  ClientHeight = 244
+  ClientWidth = 424
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 12
+    Top = 12
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object edOutput: TMemo
+    Left = 12
+    Top = 62
+    Width = 282
+    Height = 143
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ReadOnly = True
+    ScrollBars = ssVertical
+    TabOrder = 0
+  end
+  object edUsers: TListBox
+    Left = 300
+    Top = 62
+    Width = 112
+    Height = 143
+    Anchors = [akTop, akRight, akBottom]
+    ItemHeight = 13
+    Items.Strings = (
+      '[All Users]')
+    TabOrder = 1
+  end
+  object edText: TEdit
+    Left = 12
+    Top = 211
+    Width = 315
+    Height = 21
+    Anchors = [akLeft, akRight, akBottom]
+    TabOrder = 2
+  end
+  object SendButton: TButton
+    Left = 333
+    Top = 209
+    Width = 79
+    Height = 22
+    Anchors = [akRight, akBottom]
+    Caption = '&Send'
+    Default = True
+    TabOrder = 3
+    OnClick = SendButtonClick
+  end
+  object LogonButton: TButton
+    Left = 336
+    Top = 5
+    Width = 75
+    Height = 22
+    Anchors = [akTop, akRight]
+    Caption = 'Log On'
+    TabOrder = 4
+    OnClick = LogonButtonClick
+  end
+  object LogoffButton: TButton
+    Left = 336
+    Top = 33
+    Width = 75
+    Height = 22
+    Anchors = [akTop, akRight]
+    Caption = 'Log Off'
+    TabOrder = 5
+    OnClick = LogoffButtonClick
+  end
+  object ROMessage: TROBinMessage
+    Left = 36
+    Top = 8
+  end
+  object ROChannel: TROSuperTcpChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Host = 'localhost'
+    Left = 8
+    Top = 8
+  end
+  object RORemoteService: TRORemoteService
+    ServiceName = 'ChatServerService'
+    Message = ROMessage
+    Channel = ROChannel
+    Left = 64
+    Top = 8
+  end
+  object ROEventReceiver: TROEventReceiver
+    Message = ROMessage
+    Channel = ROChannel
+    ServiceName = 'LoginService'
+    Left = 241
+    Top = 16
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ClientMain.pas
new file mode 100644
index 0000000..8e0ad68
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ClientMain.pas	
@@ -0,0 +1,196 @@
+unit SuperTCPChannelChat_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROSuperTcpChannel,
+   uROPoweredByRemObjectsButton, SuperTCPChannelChatLibrary_Intf,
+  uROEventRepository;
+
+type
+  TSuperTCPChannelChat_ClientMainForm = class(TForm, IChatEvents)
+    ROMessage: TROBinMessage;
+    ROChannel: TROSuperTcpChannel;
+    RORemoteService: TRORemoteService;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    edOutput: TMemo;
+    edUsers: TListBox;
+    edText: TEdit;
+    SendButton: TButton;
+    ROEventReceiver: TROEventReceiver;
+    LogonButton: TButton;
+    LogoffButton: TButton;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure SendButtonClick(Sender: TObject);
+    procedure LogonButtonClick(Sender: TObject);
+    procedure LogoffButtonClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormShow(Sender: TObject);
+  private
+    aUserName: string;
+    FConnected: Boolean;
+    lLogin: ILoginService;
+    lChat: IChatServerService;
+    { Private declarations }
+  public
+    procedure Message(const From: Widestring; const Target: Widestring;
+      const Message: Widestring);
+    procedure UserLogin(const Nickname: Widestring);
+    procedure UserLogout(const Nickname: Widestring);
+    procedure ShutdownServer;
+
+    procedure SyncCall(var Msg: TMessage); message WM_USER;
+
+  end;
+  TSyncType = (stMessage, stUserLogin, stUserLogout);
+  TStringArray = array of Widestring;
+
+var
+  SuperTCPChannelChat_ClientMainForm: TSuperTCPChannelChat_ClientMainForm;
+
+implementation
+
+uses DateUtils;
+
+{$R *.dfm}
+
+{ TClientForm }
+
+procedure TSuperTCPChannelChat_ClientMainForm.Message(const From, Target, Message: Widestring);
+var
+  Data: TStringArray;
+begin
+  SetLength(Data, 3);
+  Data[0] := From;
+  Data[1] := Target;
+  Data[2] := Message;
+  SendMessage(Handle, WM_USER, Longint(stMessage), Longint(Data));
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.UserLogin(const Nickname: Widestring);
+var
+  Data: TStringArray;
+begin
+  SetLength(Data, 1);
+  Data[0] := Nickname;
+  SendMessage(Handle, WM_USER, Longint(stUserLogin), Longint(Data));
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.UserLogout(const Nickname: Widestring);
+var
+  Data: TStringArray;
+begin
+  SetLength(Data, 1);
+  Data[0] := Nickname;
+  SendMessage(Handle, WM_USER, Longint(stUserLogout), Longint(Data));
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.FormCreate(Sender: TObject);
+begin
+  Fconnected := False;
+  ROChannel.Host := 'localhost';
+  lLogin := CoLoginService.Create(ROMessage, ROChannel);
+  lChat := CoChatServerService.Create(ROMessage, ROChannel);
+  ROEventReceiver.RegisterEventHandlers([EID_ChatEvents], [Self]);
+  ROEventReceiver.Activate;
+  aUserName := 'User' + IntToHex(GetTickCount and $FFFF, 4);
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.FormDestroy(Sender: TObject);
+begin
+  ROEventReceiver.UnregisterEventHandlers([EID_ChatEvents]);
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.SendButtonClick(Sender: TObject);
+var
+  idx: Integer;
+begin
+  idx := edUsers.ItemIndex;
+  if idx < 1 then
+    lChat.Talk(edText.Text)
+  else
+    lChat.TalkPrivate(edUsers.Items[idx], edText.Text);
+  edText.Text := '';
+  ActiveControl := edText;
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.SyncCall(var Msg: TMessage);
+var
+  i: Integer;
+  lSyncType: TSyncType;
+  lData: TStringArray;
+begin
+  lSyncType := TSyncType(Msg.WParam);
+  lData := TStringArray(Msg.LParam);
+  case lSyncType of
+    stMessage: begin
+        if lData[1] = '' then
+          SuperTCPChannelChat_ClientMainForm.edOutput.Lines.Add(Format('<%s> %s', [lData[0], lData[2]]))
+        else
+          SuperTCPChannelChat_ClientMainForm.edOutput.Lines.Add(Format('<%s: %s> %s', [lData[0], lData[1], lData[2]]));
+      end;
+    stUserLogin:
+      SuperTCPChannelChat_ClientMainForm.edUsers.Items.Add(lData[0]);
+    stUserLogout: begin
+        i := SuperTCPChannelChat_ClientMainForm.edUsers.Items.IndexOf(lData[0]);
+        if i <> -1 then
+          SuperTCPChannelChat_ClientMainForm.EdUsers.Items.Delete(i);
+      end;
+  end;
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.LogonButtonClick(
+  Sender: TObject);
+begin
+  if not FConnected then try
+    if InputQuery('Username', 'Please enter your &username:', aUsername) then begin
+      lLogin.Login(aUsername);
+      Fconnected := True;
+    end;
+  finally
+    SendButton.Enabled := FConnected;
+    LogonButton.Enabled := not FConnected;
+    LogoffButton.Enabled := FConnected;
+  end;
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.LogoffButtonClick(
+  Sender: TObject);
+begin
+  try
+    if FConnected then try
+      lLogin.Logout;
+      Fconnected := False;
+      while edUsers.Count > 1 do
+        edUsers.Items.Delete(1);
+      ROChannel.Active := False;
+    finally
+      SendButton.Enabled := FConnected;
+      LogonButton.Enabled := not FConnected;
+      LogoffButton.Enabled := FConnected;
+    end;
+  except
+  end;
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  LogoffButton.Click;
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.ShutdownServer;
+begin
+  edOutput.Lines.Add('Server has been shutdown!');
+  LogoffButton.Click;
+end;
+
+procedure TSuperTCPChannelChat_ClientMainForm.FormShow(Sender: TObject);
+begin
+  LogonButton.Click;
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.bdsproj
new file mode 100644
index 0000000..dd83339
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{A5103679-07AC-47FC-A449-2AD9CD7E0423}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">SuperTCPChannelChat_Server.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.dpr
new file mode 100644
index 0000000..bbe05ff
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.dpr	
@@ -0,0 +1,22 @@
+program SuperTCPChannelChat_Server;
+
+{#ROGEN:SuperTCPChannelChatLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  SuperTCPChannelChat_ServerMain in 'SuperTCPChannelChat_ServerMain.pas' {SuperTCPChannelChat_ServerMainForm},
+  LoginService_Impl in 'LoginService_Impl.pas' {LoginService: TDARemoteService},
+  ChatServerService_Impl in 'ChatServerService_Impl.pas' {ChatServerService: TDARemoteService},
+  SuperTCPChannelChatLibrary_Intf in 'SuperTCPChannelChatLibrary_Intf.pas',
+  SuperTCPChannelChatLibrary_Invk in 'SuperTCPChannelChatLibrary_Invk.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'SuperTCPChannelChat - Server';
+  Application.CreateForm(TSuperTCPChannelChat_ServerMainForm, SuperTCPChannelChat_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.dproj
new file mode 100644
index 0000000..5b01304
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.dproj	
@@ -0,0 +1,86 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{7073a51d-5965-439b-aee5-bbb1c1109129}</ProjectGuid>
+    <MainSource>SuperTCPChannelChat_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>SuperTCPChannelChat_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">SuperTCPChannelChat_Server.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="SuperTCPChannelChat_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ChatServerService_Impl.pas">
+      <Form>ChatServerService</Form>
+    </DCCReference>
+    <DCCReference Include="LoginService_Impl.pas">
+      <Form>LoginService</Form>
+    </DCCReference>
+    <DCCReference Include="SuperTCPChannelChatLibrary_Intf.pas" />
+    <DCCReference Include="SuperTCPChannelChatLibrary_Invk.pas" />
+    <DCCReference Include="SuperTCPChannelChat_ServerMain.pas">
+      <Form>SuperTCPChannelChat_ServerMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.res
new file mode 100644
index 0000000..95e15d9
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_Server.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ServerMain.dfm
new file mode 100644
index 0000000..fc267aa
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ServerMain.dfm	
@@ -0,0 +1,49 @@
+object SuperTCPChannelChat_ServerMainForm: TSuperTCPChannelChat_ServerMainForm
+  Left = 76
+  Top = 115
+  BorderStyle = bsDialog
+  Caption = 'SuperTCPChannelChat - Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredButton: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object ROMessage: TROBinMessage
+    Left = 40
+    Top = 8
+  end
+  object ROServer: TROSuperTcpServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    EventRepository = ROEventRepository
+    OnClientDisconnected = ROServerClientDisconnected
+    Left = 8
+    Top = 8
+  end
+  object ROSessionManager: TROInMemorySessionManager
+    Left = 72
+    Top = 8
+  end
+  object ROEventRepository: TROInMemoryEventRepository
+    Message = ROMessage
+    SessionManager = ROSessionManager
+    Left = 104
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ServerMain.pas
new file mode 100644
index 0000000..cf348d6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SuperTCPChannelChat_ServerMain.pas	
@@ -0,0 +1,85 @@
+unit SuperTCPChannelChat_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROSuperTcpServer, uROSessions, uROEventRepository,SyncObjs;
+
+type
+  TSuperTCPChannelChat_ServerMainForm = class(TForm)
+    ROPoweredButton: TROPoweredByRemObjectsButton;
+    ROMessage: TROBinMessage;
+    ROServer: TROSuperTcpServer;
+    ROSessionManager: TROInMemorySessionManager;
+    ROEventRepository: TROInMemoryEventRepository;
+    procedure FormCreate(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure ROServerClientDisconnected(aChannel: IROTransport;
+      const aGuid: TGUID);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  SuperTCPChannelChat_ServerMainForm: TSuperTCPChannelChat_ServerMainForm;
+
+var
+  UserClientIDList: TStringList;
+  UserClientIDListCs: TCriticalSection;
+
+implementation
+uses
+  SuperTCPChannelChatLibrary_Intf;
+{$R *.dfm}
+
+procedure TSuperTCPChannelChat_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+procedure TSuperTCPChannelChat_ServerMainForm.FormCloseQuery(
+  Sender: TObject; var CanClose: Boolean);
+var
+  ev: IChatEvents_Writer;
+begin
+  ev := (ROEventRepository as IChatEvents_Writer);
+  ev.ShutdownServer(EmptyGUID);
+  Sleep(2000); // allow clients to gracefully logout.
+end;
+
+procedure TSuperTCPChannelChat_ServerMainForm.ROServerClientDisconnected(
+  aChannel: IROTransport; const aGuid: TGUID);
+var
+  ev: IChatEvents_Writer;
+  s: TROSession;
+  i: integer;
+begin
+  s := ROSessionManager.FindSession(aGuid,False);
+  ev := (ROEventRepository as IChatEvents_Writer);
+  ev.ExcludeSender := False;
+  if s <> nil then begin
+    UserClientIDListCs.Acquire;
+    try
+      i := UserClientIDList.IndexOfName(S['nick']);
+      if i <> -1 then UserClientIDList.Delete(i);
+    finally
+      UserClientIDListCs.Release;
+    end;
+    ev.UserLogout(aGuid, s['nick']);
+  end;
+  ROEventRepository.RemoveSession(aGuid);
+  ROSessionManager.DeleteSession(aGuid, False);
+end;
+
+initialization
+  UserClientIDList := TStringList.Create;
+  UserClientIDListCs := TCriticalSection.Create;
+finalization
+  UserClientIDListCs.Free;
+  UserClientIDList.Free;
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary.rodl
new file mode 100644
index 0000000..5c5881e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary.rodl	
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="SyncServerLibrary" UID="{C04AE0F2-540E-434F-96FA-08B8A7810005}" Version="3.0">
+<Services>
+<Service Name="SyncServerService" UID="{9EBE02FE-042B-4D63-BE6B-933FE382F13B}">
+<Interfaces>
+<Interface Name="Default" UID="{7941D2C3-63AE-4559-BB62-3443C5B3EB3F}">
+<Documentation><![CDATA[Service SyncServerService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation>
+<Operations>
+<Operation Name="GetRemoteFiles" UID="{87F6E63A-DA0B-4F35-8B3C-E33F7169392E}">
+<Parameters>
+<Parameter Name="Result" DataType="FileInfoArray" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="DeclareLocalFiles" UID="{0A882E3C-5AF6-4FFF-85C1-96750D8EF526}">
+<Parameters>
+<Parameter Name="Result" DataType="FileInfoArray" Flag="Result">
+</Parameter>
+<Parameter Name="FilesList" DataType="FileInfoArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SetChunkSize" UID="{78819EC4-8CBF-4DA5-A77F-C3487A283694}">
+<Parameters>
+<Parameter Name="Size" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetFile" UID="{EA6F605A-2244-4D74-BE15-703BF88462E4}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="FileName" DataType="AnsiString" Flag="In" >
+</Parameter>
+<Parameter Name="ChunkNo" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="SendFile" UID="{BF8BB1F0-4EA9-4374-8E06-2CF0A1A5455F}">
+<Parameters>
+<Parameter Name="FileName" DataType="AnsiString" Flag="In" >
+</Parameter>
+<Parameter Name="ChunkNo" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="FileData" DataType="Binary" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+<Service Name="PairingService" UID="{2929B8EE-A872-4831-8D5C-5455CE093B0F}">
+<Interfaces>
+<Interface Name="Default" UID="{CBA27400-AE3F-4945-8520-0EA97EC5DE41}">
+<Operations>
+<Operation Name="LoginAttempt" UID="{C8A39B4B-04E4-4E12-8F59-9545B2FF171F}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="ClientGuid" DataType="Guid" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="ConfirmCode" UID="{6E6E5927-EE71-44DC-AC0E-261B8676F4CD}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+<Parameter Name="Code" DataType="AnsiString" Flag="In" >
+</Parameter>
+<Parameter Name="ClientGuid" DataType="Guid" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="FileInfoStruct" UID="{BA970C73-983C-43B2-B92A-67FEC0F670F8}" AutoCreateParams="1">
+<Elements>
+<Element Name="Name" DataType="AnsiString">
+</Element>
+<Element Name="Date" DataType="DateTime">
+</Element>
+<Element Name="FileSize" DataType="Integer">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+<Enum Name="PairingStatus" UID="{7E1EB789-4FF9-4F97-8F12-1CE138BB5205}">
+<EnumValues>
+<EnumValue Name="Successfull">
+</EnumValue>
+<EnumValue Name="PairingRequired">
+</EnumValue>
+<EnumValue Name="PairingBusy">
+</EnumValue>
+</EnumValues>
+</Enum>
+</Enums>
+<Arrays>
+<Array Name="FileInfoArray" UID="{0F975226-4FEA-47B6-81EF-1266D83882CF}">
+<ElementType DataType="FileInfoStruct" />
+</Array>
+</Arrays>
+<Exceptions>
+<Exception Name="FileTransferException" UID="{8F35935C-E39C-438D-956C-B2048FAE5F1A}" AutoCreateParams="1">
+<Elements>
+<Element Name="FileName" DataType="AnsiString">
+</Element>
+<Element Name="Message" DataType="AnsiString">
+</Element>
+</Elements>
+</Exception>
+</Exceptions>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary_Intf.pas
new file mode 100644
index 0000000..82ccea8
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary_Intf.pas	
@@ -0,0 +1,673 @@
+unit SyncServerLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{C04AE0F2-540E-434F-96FA-08B8A7810005}';
+  TargetNamespace = '';
+
+  { Service Interface ID's }
+  ISyncServerService_IID : TGUID = '{7941D2C3-63AE-4559-BB62-3443C5B3EB3F}';
+  IPairingService_IID : TGUID = '{CBA27400-AE3F-4945-8520-0EA97EC5DE41}';
+
+  { Event ID's }
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  { Forward declarations }
+  ISyncServerService = interface;
+  IPairingService = interface;
+
+  FileInfoArray = class;
+
+  FileInfoStruct = class;
+
+  FileTransferException = class;
+
+
+  { Enumerateds }
+  PairingStatus = (PairingStatus_Successfull,PairingStatus_PairingRequired,PairingStatus_PairingBusy);
+
+  { FileInfoStruct }
+  FileInfoStruct = class(TROComplexType)
+  private
+    fName: AnsiString;
+    fDate: DateTime;
+    fFileSize: Integer;
+  public
+    procedure Assign(iSource: TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+  published
+    property Name:AnsiString read fName write fName;
+    property Date:DateTime read fDate write fDate;
+    property FileSize:Integer read fFileSize write fFileSize;
+  end;
+
+  { FileInfoStructCollection }
+  FileInfoStructCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(aIndex: integer): FileInfoStruct;
+    procedure SetItems(aIndex: integer; const Value: FileInfoStruct);
+  public
+    constructor Create; overload;
+    function Add: FileInfoStruct; reintroduce;
+    procedure SaveToArray(anArray: FileInfoArray);
+    procedure LoadFromArray(anArray: FileInfoArray);
+    property Items[Index: integer]:FileInfoStruct read GetItems write SetItems; default;
+  end;
+
+  { FileInfoArray }
+  FileInfoArray_FileInfoStruct = array of FileInfoStruct;
+  FileInfoArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : FileInfoArray_FileInfoStruct;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): FileInfoStruct;
+    procedure SetItems(aIndex: integer; const Value: FileInfoStruct);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemClass: TClass; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure SetItemRef(aIndex: integer; Ref: pointer); override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add: FileInfoStruct; overload;
+    function Add(const Value: FileInfoStruct):integer; overload;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:FileInfoStruct read GetItems write SetItems; default;
+    property InnerArray: FileInfoArray_FileInfoStruct read fItems;
+  end;
+
+  { Exceptions }
+  FileTransferException = class(EROException)
+  private
+    fFileName: AnsiString;
+    fMessage: AnsiString;
+  public
+    constructor Create(anExceptionMessage : string; aFileName: AnsiString; aMessage: AnsiString);
+    procedure ReadException(ASerializer: TObject); override;
+    procedure WriteException(ASerializer: TObject); override;
+  published
+    property FileName: AnsiString read fFileName write fFileName;
+    property Message: AnsiString read fMessage write fMessage;
+  end;
+
+
+  { ISyncServerService }
+  ISyncServerService = interface
+    ['{7941D2C3-63AE-4559-BB62-3443C5B3EB3F}']
+    function GetRemoteFiles: FileInfoArray;
+    function DeclareLocalFiles(const FilesList: FileInfoArray): FileInfoArray;
+    procedure SetChunkSize(const Size: Integer);
+    function GetFile(const FileName: AnsiString; const ChunkNo: Integer): Binary;
+    procedure SendFile(const FileName: AnsiString; const ChunkNo: Integer; const FileData: Binary);
+  end;
+
+  { CoSyncServerService }
+  CoSyncServerService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISyncServerService;
+  end;
+
+  { TSyncServerService_Proxy }
+  TSyncServerService_Proxy = class(TROProxy, ISyncServerService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetRemoteFiles: FileInfoArray;
+    function DeclareLocalFiles(const FilesList: FileInfoArray): FileInfoArray;
+    procedure SetChunkSize(const Size: Integer);
+    function GetFile(const FileName: AnsiString; const ChunkNo: Integer): Binary;
+    procedure SendFile(const FileName: AnsiString; const ChunkNo: Integer; const FileData: Binary);
+  end;
+
+  { IPairingService }
+  IPairingService = interface
+    ['{CBA27400-AE3F-4945-8520-0EA97EC5DE41}']
+    function LoginAttempt(const ClientGuid: Guid): Integer;
+    function ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean;
+  end;
+
+  { CoPairingService }
+  CoPairingService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IPairingService;
+  end;
+
+  { TPairingService_Proxy }
+  TPairingService_Proxy = class(TROProxy, IPairingService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function LoginAttempt(const ClientGuid: Guid): Integer;
+    function ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uROSerializer, uRORes;
+
+{ FileTransferException }
+
+constructor FileTransferException.Create(anExceptionMessage : string; aFileName: AnsiString;
+  aMessage: AnsiString);
+begin
+  inherited Create(anExceptionMessage);
+
+  fFileName := aFileName;
+  fMessage := aMessage;
+end;
+
+procedure FileTransferException.ReadException(ASerializer: TObject);
+var
+  l_FileName: AnsiString;
+  l_Message: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_FileName := FileName;
+    TROSerializer(ASerializer).ReadAnsiString('FileName', l_FileName);
+    FileName := l_FileName;
+    l_Message := Message;
+    TROSerializer(ASerializer).ReadAnsiString('Message', l_Message);
+    Message := l_Message;
+  end
+  else begin
+    l_FileName := FileName;
+    TROSerializer(ASerializer).ReadAnsiString('FileName', l_FileName);
+    FileName := l_FileName;
+    l_Message := Message;
+    TROSerializer(ASerializer).ReadAnsiString('Message', l_Message);
+    Message := l_Message;
+  end;
+end;
+
+procedure FileTransferException.WriteException(ASerializer: TObject);
+var
+  l_FileName: AnsiString;
+  l_Message: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(FileTransferException);
+    l_FileName := FileName;
+    TROSerializer(ASerializer).WriteAnsiString('FileName', l_FileName);
+    l_Message := Message;
+    TROSerializer(ASerializer).WriteAnsiString('Message', l_Message);
+  end
+  else begin
+    l_FileName := FileName;
+    TROSerializer(ASerializer).WriteAnsiString('FileName', l_FileName);
+    l_Message := Message;
+    TROSerializer(ASerializer).WriteAnsiString('Message', l_Message);
+  end;
+end;
+
+{ FileInfoArray }
+
+procedure FileInfoArray.Assign(iSource: TPersistent);
+var lSource:FileInfoArray;
+    i:integer;
+    lItem:FileInfoStruct;
+begin
+  if (iSource is FileInfoArray) then begin
+    lSource := FileInfoArray(iSource);
+    Clear();
+
+    for i := 0 to lSource.Count-1 do
+      if Assigned(lSource.Items[i]) then begin
+        lItem := FileInfoStruct(lSource.Items[i].ClassType.Create);
+        lItem.Assign(lSource.Items[i]);
+        Add(lItem);
+      end
+      else begin
+        Add(nil);
+      end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function FileInfoArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(FileInfoStruct);
+end;
+
+class function FileInfoArray.GetItemClass: TClass;
+begin
+  result := FileInfoStruct;
+end;
+
+class function FileInfoArray.GetItemSize: integer;
+begin
+  result := SizeOf(FileInfoStruct);
+end;
+
+function FileInfoArray.GetItems(aIndex: integer): FileInfoStruct;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function FileInfoArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+procedure FileInfoArray.SetItemRef(aIndex: integer; Ref: pointer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if Ref <> fItems[aIndex] then begin
+    if fItems[aIndex] <> nil then fItems[aIndex].Free;
+    fItems[aIndex] := Ref;
+  end;
+end;
+
+procedure FileInfoArray.Clear;
+var i: integer;
+begin
+  for i := 0 to (Count-1) do fItems[i].Free();
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure FileInfoArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  fItems[aIndex].Free();
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure FileInfoArray.SetItems(aIndex: integer; const Value: FileInfoStruct);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex].Free;
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure FileInfoArray.Resize(ElementCount: integer);
+var i: Integer;
+begin
+  if fCount = ElementCount then Exit;
+  for i := FCount -1 downto ElementCount do
+    FItems[i].Free;
+  SetLength(fItems, ElementCount);
+  for i := FCount to ElementCount -1 do
+    FItems[i] := FileInfoStruct.Create;
+  FCount := ElementCount;
+end;
+
+function FileInfoArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure FileInfoArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function FileInfoArray.Add: FileInfoStruct;
+begin
+  result := FileInfoStruct.Create;
+  Add(Result);
+end;
+
+function FileInfoArray.Add(const Value:FileInfoStruct): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+procedure FileInfoArray.ReadComplex(ASerializer: TObject);
+var
+  lval: FileInfoStruct;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do begin
+      ReadStruct(GetArrayElementName(GetItemType, GetItemRef(i)), FileInfoStruct, lval, i);
+    end;
+    Items[i] := lval;
+  end;
+end;
+
+procedure FileInfoArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteStruct(GetArrayElementName(GetItemType, GetItemRef(i)), fItems[i], FileInfoStruct, i);
+end;
+
+{ FileInfoStruct }
+
+procedure FileInfoStruct.Assign(iSource: TPersistent); 
+var lSource: SyncServerLibrary_Intf.FileInfoStruct;
+begin
+  inherited Assign(iSource);
+  if (iSource is SyncServerLibrary_Intf.FileInfoStruct) then begin
+    lSource := SyncServerLibrary_Intf.FileInfoStruct(iSource);
+    Name := lSource.Name;
+    Date := lSource.Date;
+    FileSize := lSource.FileSize;
+  end;
+end;
+
+procedure FileInfoStruct.ReadComplex(ASerializer: TObject);
+var
+  l_Date: DateTime;
+  l_FileSize: Integer;
+  l_Name: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    l_Name := Name;
+    TROSerializer(ASerializer).ReadAnsiString('Name', l_Name);
+    Name := l_Name;
+    l_Date := Date;
+    TROSerializer(ASerializer).ReadDateTime('Date', l_Date);
+    Date := l_Date;
+    l_FileSize := FileSize;
+    TROSerializer(ASerializer).ReadInteger('FileSize', otSLong, l_FileSize);
+    FileSize := l_FileSize;
+  end
+  else begin
+    l_Date := Date;
+    TROSerializer(ASerializer).ReadDateTime('Date', l_Date);
+    Date := l_Date;
+    l_FileSize := FileSize;
+    TROSerializer(ASerializer).ReadInteger('FileSize', otSLong, l_FileSize);
+    FileSize := l_FileSize;
+    l_Name := Name;
+    TROSerializer(ASerializer).ReadAnsiString('Name', l_Name);
+    Name := l_Name;
+  end;
+end;
+
+procedure FileInfoStruct.WriteComplex(ASerializer: TObject);
+var
+  l_Date: DateTime;
+  l_FileSize: Integer;
+  l_Name: AnsiString;
+begin
+  if TROSerializer(ASerializer).RecordStrictOrder then begin
+    TROSerializer(ASerializer).ChangeClass(FileInfoStruct);
+    l_Name := Name;
+    TROSerializer(ASerializer).WriteAnsiString('Name', l_Name);
+    l_Date := Date;
+    TROSerializer(ASerializer).WriteDateTime('Date', l_Date);
+    l_FileSize := FileSize;
+    TROSerializer(ASerializer).WriteInteger('FileSize', otSLong, l_FileSize);
+  end
+  else begin
+    l_Date := Date;
+    TROSerializer(ASerializer).WriteDateTime('Date', l_Date);
+    l_FileSize := FileSize;
+    TROSerializer(ASerializer).WriteInteger('FileSize', otSLong, l_FileSize);
+    l_Name := Name;
+    TROSerializer(ASerializer).WriteAnsiString('Name', l_Name);
+  end;
+end;
+
+{ FileInfoStructCollection }
+constructor FileInfoStructCollection.Create;
+begin
+  inherited Create(FileInfoStruct);
+end;
+
+constructor FileInfoStructCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function FileInfoStructCollection.Add: FileInfoStruct;
+begin
+  result := FileInfoStruct(inherited Add);
+end;
+
+function FileInfoStructCollection.GetItems(aIndex: integer): FileInfoStruct;
+begin
+  result := FileInfoStruct(inherited Items[aIndex]);
+end;
+
+procedure FileInfoStructCollection.LoadFromArray(anArray: FileInfoArray);
+var i : integer;
+begin
+  Clear;
+  for i := 0 to (anArray.Count-1) do
+    anArray[i].Clone.Collection := Self;
+end;
+
+procedure FileInfoStructCollection.SaveToArray(anArray: FileInfoArray);
+var i : integer;
+begin
+  anArray.Clear;
+  for i := 0 to (Count-1) do begin
+    if Assigned(Items[i]) then
+      anArray.Add(FileInfoStruct(Items[i].Clone))
+    else
+      anArray.Add(nil);
+  end;
+end;
+
+procedure FileInfoStructCollection.SetItems(aIndex: integer; const Value: FileInfoStruct);
+begin
+  FileInfoStruct(inherited Items[aIndex]).Assign(Value);
+end;
+
+{ CoSyncServerService }
+
+class function CoSyncServerService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ISyncServerService;
+begin
+  result := TSyncServerService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TSyncServerService_Proxy }
+
+function TSyncServerService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'SyncServerService';
+end;
+
+function TSyncServerService_Proxy.GetRemoteFiles: FileInfoArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'SyncServerLibrary', __InterfaceName, 'GetRemoteFiles');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(SyncServerLibrary_Intf.FileInfoArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TSyncServerService_Proxy.DeclareLocalFiles(const FilesList: FileInfoArray): FileInfoArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'SyncServerLibrary', __InterfaceName, 'DeclareLocalFiles');
+    __Message.Write('FilesList', TypeInfo(SyncServerLibrary_Intf.FileInfoArray), FilesList, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(SyncServerLibrary_Intf.FileInfoArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TSyncServerService_Proxy.SetChunkSize(const Size: Integer);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SyncServerLibrary', __InterfaceName, 'SetChunkSize');
+    __Message.Write('Size', TypeInfo(Integer), Size, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TSyncServerService_Proxy.GetFile(const FileName: AnsiString; const ChunkNo: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'SyncServerLibrary', __InterfaceName, 'GetFile');
+    __Message.Write('FileName', TypeInfo(AnsiString), FileName, []);
+    __Message.Write('ChunkNo', TypeInfo(Integer), ChunkNo, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+procedure TSyncServerService_Proxy.SendFile(const FileName: AnsiString; const ChunkNo: Integer; const FileData: Binary);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SyncServerLibrary', __InterfaceName, 'SendFile');
+    __Message.Write('FileName', TypeInfo(AnsiString), FileName, []);
+    __Message.Write('ChunkNo', TypeInfo(Integer), ChunkNo, []);
+    __Message.Write('FileData', TypeInfo(Binary), FileData, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+{ CoPairingService }
+
+class function CoPairingService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IPairingService;
+begin
+  result := TPairingService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TPairingService_Proxy }
+
+function TPairingService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'PairingService';
+end;
+
+function TPairingService_Proxy.LoginAttempt(const ClientGuid: Guid): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SyncServerLibrary', __InterfaceName, 'LoginAttempt');
+    __Message.Write('ClientGuid', TypeInfo(Guid), ClientGuid, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TPairingService_Proxy.ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'SyncServerLibrary', __InterfaceName, 'ConfirmCode');
+    __Message.Write('Code', TypeInfo(AnsiString), Code, []);
+    __Message.Write('ClientGuid', TypeInfo(Guid), ClientGuid, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(FileInfoStruct);
+  RegisterROClass(FileInfoArray);
+  RegisterExceptionClass(FileTransferException);
+  RegisterProxyClass(ISyncServerService_IID, TSyncServerService_Proxy);
+  RegisterProxyClass(IPairingService_IID, TPairingService_Proxy);
+
+  RegisterEnumMapping(TROEnumMapping.Create('PairingStatus', 'Successfull', 'Successfull'));
+  RegisterEnumMapping(TROEnumMapping.Create('PairingStatus', 'PairingRequired', 'PairingRequired'));
+  RegisterEnumMapping(TROEnumMapping.Create('PairingStatus', 'PairingBusy', 'PairingBusy'));
+
+finalization
+  UnregisterROClass(FileInfoStruct);
+  UnregisterROClass(FileInfoArray);
+  UnregisterExceptionClass(FileTransferException);
+  UnregisterProxyClass(ISyncServerService_IID);
+  UnregisterProxyClass(IPairingService_IID);
+
+
+  UnRegisterEnumMappings();
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary_Invk.pas
new file mode 100644
index 0000000..50339cc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/SyncServerLibrary_Invk.pas	
@@ -0,0 +1,246 @@
+unit SyncServerLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} SyncServerLibrary_Intf;
+
+type
+  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
+  TSyncServerService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetRemoteFiles(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_DeclareLocalFiles(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SetChunkSize(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetFile(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_SendFile(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+  TPairingService_Invoker = class(TROInvoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_LoginAttempt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_ConfirmCode(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TSyncServerService_Invoker }
+
+constructor TSyncServerService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TSyncServerService_Invoker.Invoke_GetRemoteFiles(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetRemoteFiles: FileInfoArray; }
+var
+  lResult: SyncServerLibrary_Intf.FileInfoArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as ISyncServerService).GetRemoteFiles;
+
+    __Message.InitializeResponseMessage(__Transport, 'SyncServerLibrary', 'SyncServerService', 'GetRemoteFilesResponse');
+    __Message.Write('Result', TypeInfo(SyncServerLibrary_Intf.FileInfoArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TSyncServerService_Invoker.Invoke_DeclareLocalFiles(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function DeclareLocalFiles(const FilesList: FileInfoArray): FileInfoArray; }
+var
+  FilesList: SyncServerLibrary_Intf.FileInfoArray;
+  lResult: SyncServerLibrary_Intf.FileInfoArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  FilesList := nil;
+  lResult := nil;
+  try
+    __Message.Read('FilesList', TypeInfo(SyncServerLibrary_Intf.FileInfoArray), FilesList, []);
+
+    lResult := (__Instance as ISyncServerService).DeclareLocalFiles(FilesList);
+
+    __Message.InitializeResponseMessage(__Transport, 'SyncServerLibrary', 'SyncServerService', 'DeclareLocalFilesResponse');
+    __Message.Write('Result', TypeInfo(SyncServerLibrary_Intf.FileInfoArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(FilesList);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TSyncServerService_Invoker.Invoke_SetChunkSize(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SetChunkSize(const Size: Integer); }
+var
+  Size: Integer;
+begin
+  try
+    __Message.Read('Size', TypeInfo(Integer), Size, []);
+
+    (__Instance as ISyncServerService).SetChunkSize(Size);
+
+    __Message.InitializeResponseMessage(__Transport, 'SyncServerLibrary', 'SyncServerService', 'SetChunkSizeResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
+procedure TSyncServerService_Invoker.Invoke_GetFile(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetFile(const FileName: AnsiString; const ChunkNo: Integer): Binary; }
+var
+  FileName: AnsiString;
+  ChunkNo: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('FileName', TypeInfo(AnsiString), FileName, []);
+    __Message.Read('ChunkNo', TypeInfo(Integer), ChunkNo, []);
+
+    lResult := (__Instance as ISyncServerService).GetFile(FileName, ChunkNo);
+
+    __Message.InitializeResponseMessage(__Transport, 'SyncServerLibrary', 'SyncServerService', 'GetFileResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TSyncServerService_Invoker.Invoke_SendFile(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure SendFile(const FileName: AnsiString; const ChunkNo: Integer; const FileData: Binary); }
+var
+  FileName: AnsiString;
+  ChunkNo: Integer;
+  FileData: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  FileData := nil;
+  try
+    __Message.Read('FileName', TypeInfo(AnsiString), FileName, []);
+    __Message.Read('ChunkNo', TypeInfo(Integer), ChunkNo, []);
+    __Message.Read('FileData', TypeInfo(Binary), FileData, []);
+
+    (__Instance as ISyncServerService).SendFile(FileName, ChunkNo, FileData);
+
+    __Message.InitializeResponseMessage(__Transport, 'SyncServerLibrary', 'SyncServerService', 'SendFileResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(FileData);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+{ TPairingService_Invoker }
+
+constructor TPairingService_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TPairingService_Invoker.Invoke_LoginAttempt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function LoginAttempt(const ClientGuid: Guid): Integer; }
+var
+  ClientGuid: Guid;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('ClientGuid', TypeInfo(Guid), ClientGuid, []);
+
+    lResult := (__Instance as IPairingService).LoginAttempt(ClientGuid);
+
+    __Message.InitializeResponseMessage(__Transport, 'SyncServerLibrary', 'PairingService', 'LoginAttemptResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TPairingService_Invoker.Invoke_ConfirmCode(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function ConfirmCode(const Code: AnsiString; const ClientGuid: Guid): Boolean; }
+var
+  Code: AnsiString;
+  ClientGuid: Guid;
+  lResult: Boolean;
+begin
+  try
+    __Message.Read('Code', TypeInfo(AnsiString), Code, []);
+    __Message.Read('ClientGuid', TypeInfo(Guid), ClientGuid, []);
+
+    lResult := (__Instance as IPairingService).ConfirmCode(Code, ClientGuid);
+
+    __Message.InitializeResponseMessage(__Transport, 'SyncServerLibrary', 'PairingService', 'ConfirmCodeResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+initialization
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/TestService_Impl.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/TestService_Impl.dfm
new file mode 100644
index 0000000..0c88917
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/TestService_Impl.dfm	
@@ -0,0 +1,6 @@
+object TestService: TTestService
+  OldCreateOrder = True
+  RequiresSession = True
+  Height = 300
+  Width = 300
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/TestService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/TestService_Impl.pas
new file mode 100644
index 0000000..f6079bc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/TestService_Impl.pas	
@@ -0,0 +1,62 @@
+unit TestService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {$IFDEF FPC}LResources,{$ENDIF}
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Generated:} PairingLibrary_Intf;
+
+type
+  { TTestService }
+  TTestService = class(TRORemoteDataModule, ITestService)
+  private
+  protected
+    { ITestService methods }
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+{$IFNDEF FPC}
+  {$R *.dfm}
+{$ENDIF}
+uses
+  {Generated:} PairingLibrary_Invk;
+
+procedure Create_TestService(out anInstance : IUnknown);
+begin
+  anInstance := TTestService.Create(nil);
+end;
+
+{ TestService }
+function TTestService.GetServerTime: DateTime;
+begin
+  result := Now;
+end;
+
+var
+  fClassFactory: IROClassFactory;
+initialization
+{$IFDEF FPC}
+  {$I TestService_Impl.lrs}
+{$ENDIF}
+  fClassFactory := TROClassFactory.Create('TestService', Create_TestService, TTestService_Invoker);
+  // RegisterForZeroConf(fClassFactory,'_TestService_rosdk._tcp.');
+
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerDataModule.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerDataModule.dfm
new file mode 100644
index 0000000..4efd3ac
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerDataModule.dfm	
@@ -0,0 +1,32 @@
+object ServerDataModule: TServerDataModule
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Height = 189
+  Width = 292
+  object ROMessage: TROBinMessage
+    Envelopes = <>
+    Left = 40
+    Top = 8
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end>
+    Port = 0
+    Left = 114
+    Top = 8
+  end
+  object SessionManager: TROInMemorySessionManager
+    Left = 184
+    Top = 8
+  end
+  object ZeroConfRegistration: TROZeroConfRegistration
+    Server = ROServer
+    Left = 40
+    Top = 64
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerDataModule.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerDataModule.pas
new file mode 100644
index 0000000..782a48e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerDataModule.pas	
@@ -0,0 +1,35 @@
+unit fServerDataModule;
+
+interface
+
+uses
+  SysUtils, Classes, uROClient, uROServer, uROIndyTCPServer,
+  uROPoweredByRemObjectsButton, uROClientIntf, uROClasses,
+  uROBinMessage, uROIndyHTTPServer, uROZeroConf, uROSessions;
+
+type
+  TServerDataModule = class(TDataModule)
+    ROMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    SessionManager: TROInMemorySessionManager;
+    ZeroConfRegistration: TROZeroConfRegistration;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  ServerDataModule: TServerDataModule;
+
+implementation
+
+{$R *.dfm}
+
+procedure TServerDataModule.DataModuleCreate(Sender: TObject);
+begin
+  ROServer.Active := TRUE;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerForm.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerForm.dfm
new file mode 100644
index 0000000..59e6bdc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerForm.dfm	
@@ -0,0 +1,56 @@
+object ServerForm: TServerForm
+  Left = 372
+  Top = 277
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'iPhone Pairing'
+  ClientHeight = 165
+  ClientWidth = 227
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object lbPairingCodeCaption: TLabel
+    Left = 8
+    Top = 64
+    Width = 62
+    Height = 13
+    Caption = 'Pairing code:'
+    Visible = False
+  end
+  object lbPairingCode: TLabel
+    Left = 8
+    Top = 80
+    Width = 212
+    Height = 73
+    Alignment = taCenter
+    AutoSize = False
+    Caption = '8888'
+    Color = clInfoBk
+    Font.Charset = OEM_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -64
+    Font.Name = 'Arial'
+    Font.Style = [fsBold]
+    ParentColor = False
+    ParentFont = False
+    Visible = False
+  end
+  object tmrCode: TTimer
+    Enabled = False
+    Interval = 60000
+    OnTimer = tmrCodeTimer
+    Left = 192
+    Top = 40
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerForm.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerForm.pas
new file mode 100644
index 0000000..ccf2d32
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/fServerForm.pas	
@@ -0,0 +1,78 @@
+unit fServerForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROClasses,
+  ExtCtrls;
+
+const
+  WM_DISPLAY_CODE = WM_APP + 1;
+  WM_HIDE_CODE = WM_APP + 2;
+
+type
+  TServerForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    lbPairingCodeCaption: TLabel;
+    lbPairingCode: TLabel;
+    tmrCode: TTimer;
+    procedure FormCreate(Sender: TObject);
+    procedure tmrCodeTimer(Sender: TObject);
+  private
+    { Private declarations }
+  protected
+    procedure WMDisplayCode(var Message: TMessage); message WM_DISPLAY_CODE;
+    procedure WMHideCode(var Message: TMessage); message WM_HIDE_CODE;
+  public
+    { Public declarations }
+    procedure DisplayPairingCode(aCode: integer);
+    procedure HidePairingCode;
+  end;
+
+var
+  ServerForm: TServerForm;
+
+implementation
+
+{$R *.dfm}
+
+uses ApprovedClientsStorage;
+
+procedure TServerForm.DisplayPairingCode(aCode: integer);
+begin
+  PostMessage(Handle, WM_DISPLAY_CODE, 0, aCode);
+end;
+
+procedure TServerForm.FormCreate(Sender: TObject);
+begin
+  Application.Title := Self.Caption;
+  StorageInstance.StorageFile := 'ApprovedClients.lst';
+end;
+
+procedure TServerForm.WMDisplayCode(var Message: TMessage);
+begin
+  lbPairingCode.Caption := IntToStr(Message.LParam);
+  lbPairingCode.Visible := true;
+  lbPairingCodeCaption.Visible := true;
+  tmrCode.Enabled := true;
+end;
+
+procedure TServerForm.tmrCodeTimer(Sender: TObject);
+begin
+  lbPairingCode.Visible := false;
+  lbPairingCodeCaption.Visible := false;
+  tmrCode.Enabled := false;
+end;
+
+procedure TServerForm.HidePairingCode;
+begin
+  PostMessage(Handle, WM_HIDE_CODE, 0, 0);
+end;
+
+procedure TServerForm.WMHideCode(var Message: TMessage);
+begin
+  tmrCodeTimer(nil);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.dpr
new file mode 100644
index 0000000..7ef9f5b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.dpr	
@@ -0,0 +1,32 @@
+program iPhonePairingServer;
+
+{#ROGEN:PairingLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  uROComboService,
+  Forms,
+  fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule},
+  fServerForm in 'fServerForm.pas' {ServerForm},
+  ApprovedClientsStorage in 'ApprovedClientsStorage.pas',
+  PairingStatus in 'PairingStatus.pas',
+  PairingLibrary_Intf in 'PairingLibrary_Intf.pas',
+  PairingLibrary_Invk in 'PairingLibrary_Invk.pas',
+  PairingService_Impl in 'PairingService_Impl.pas' {PairingService: TRORemoteDataModule},
+  TestService_Impl in 'TestService_Impl.pas' {TestService: TRORemoteDataModule};
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  if ROStartService('OSXSyncServer', 'OSXSyncServer') then begin
+    ROService.CreateForm(TServerDataModule, ServerDataModule);
+    ROService.Run;
+    Exit;
+  end;
+
+  Application.Initialize;
+  Application.CreateForm(TServerDataModule, ServerDataModule);
+  Application.CreateForm(TServerForm, ServerForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.dproj
new file mode 100644
index 0000000..2e446cc
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.dproj	
@@ -0,0 +1,121 @@
+﻿	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+		<PropertyGroup>
+			<ProjectGuid>{3176C510-746A-4BD3-86B7-EBA799C4FA98}</ProjectGuid>
+			<MainSource>iPhonePairingServer.dpr</MainSource>
+			<Config Condition="'$(Config)'==''">Debug</Config>
+			<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+			<ProjectVersion>12.0</ProjectVersion>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+			<Cfg_1>true</Cfg_1>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+			<Cfg_2>true</Cfg_2>
+			<CfgParent>Base</CfgParent>
+			<Base>true</Base>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Base)'!=''">
+			<DCC_ImageBase>00400000</DCC_ImageBase>
+			<DCC_E>false</DCC_E>
+			<DCC_Platform>x86</DCC_Platform>
+			<DCC_DependencyCheckOutputName>iPhonePairingServer.exe</DCC_DependencyCheckOutputName>
+			<DCC_N>false</DCC_N>
+			<DCC_S>false</DCC_S>
+			<DCC_F>false</DCC_F>
+			<DCC_K>false</DCC_K>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_1)'!=''">
+			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+			<DCC_DebugInformation>false</DCC_DebugInformation>
+		</PropertyGroup>
+		<PropertyGroup Condition="'$(Cfg_2)'!=''">
+			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+		</PropertyGroup>
+		<ItemGroup>
+			<DelphiCompile Include="iPhonePairingServer.dpr">
+				<MainSource>MainSource</MainSource>
+			</DelphiCompile>
+			<DCCReference Include="fServerDataModule.pas">
+				<Form>ServerDataModule</Form>
+				<DesignClass>TDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="fServerForm.pas">
+				<Form>ServerForm</Form>
+			</DCCReference>
+			<DCCReference Include="ApprovedClientsStorage.pas"/>
+			<DCCReference Include="PairingStatus.pas"/>
+			<DCCReference Include="PairingLibrary_Intf.pas"/>
+			<DCCReference Include="PairingLibrary_Invk.pas"/>
+			<DCCReference Include="PairingService_Impl.pas">
+				<Form>PairingService</Form>
+				<DesignClass>TRORemoteDataModule</DesignClass>
+			</DCCReference>
+			<DCCReference Include="TestService_Impl.pas">
+				<Form>TestService</Form>
+				<DesignClass>TRORemoteDataModule</DesignClass>
+			</DCCReference>
+			<BuildConfiguration Include="Base">
+				<Key>Base</Key>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Debug">
+				<Key>Cfg_2</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+			<BuildConfiguration Include="Release">
+				<Key>Cfg_1</Key>
+				<CfgParent>Base</CfgParent>
+			</BuildConfiguration>
+		</ItemGroup>
+		<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+		<ProjectExtensions>
+			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
+			<Borland.ProjectType>VCLApplication</Borland.ProjectType>
+			<BorlandProject>
+				<Delphi.Personality>
+					<Source>
+						<Source Name="MainSource">iPhonePairingServer.dpr</Source>
+					</Source>
+					<Parameters>
+						<Parameters Name="UseLauncher">False</Parameters>
+						<Parameters Name="LoadAllSymbols">True</Parameters>
+						<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+					</Parameters>
+					<VersionInfo>
+						<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+						<VersionInfo Name="MajorVer">1</VersionInfo>
+						<VersionInfo Name="MinorVer">0</VersionInfo>
+						<VersionInfo Name="Release">0</VersionInfo>
+						<VersionInfo Name="Build">0</VersionInfo>
+						<VersionInfo Name="Debug">False</VersionInfo>
+						<VersionInfo Name="PreRelease">False</VersionInfo>
+						<VersionInfo Name="Special">False</VersionInfo>
+						<VersionInfo Name="Private">False</VersionInfo>
+						<VersionInfo Name="DLL">False</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
+						<VersionInfo Name="CodePage">1252</VersionInfo>
+					</VersionInfo>
+					<VersionInfoKeys>
+						<VersionInfoKeys Name="CompanyName"/>
+						<VersionInfoKeys Name="FileDescription"/>
+						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="InternalName"/>
+						<VersionInfoKeys Name="LegalCopyright"/>
+						<VersionInfoKeys Name="LegalTrademarks"/>
+						<VersionInfoKeys Name="OriginalFilename"/>
+						<VersionInfoKeys Name="ProductName"/>
+						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+						<VersionInfoKeys Name="Comments"/>
+					</VersionInfoKeys>
+				</Delphi.Personality>
+			</BorlandProject>
+			<ProjectFileVersion>12</ProjectFileVersion>
+		</ProjectExtensions>
+	</Project>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.res
new file mode 100644
index 0000000..78dee1f
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Super TCP Channel Chat/iPhonePairingServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/RODLFILE.res
new file mode 100644
index 0000000..469544d
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TfrmServerSelectSrc.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TfrmServerSelectSrc.dfm
new file mode 100644
index 0000000..3594a18
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TfrmServerSelectSrc.dfm	
@@ -0,0 +1,52 @@
+object frmServerSelect: TfrmServerSelect
+  Left = 501
+  Top = 272
+  BorderStyle = bsDialog
+  Caption = 'frmServerSelect'
+  ClientHeight = 323
+  ClientWidth = 392
+  Color = clBtnFace
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbServers: TCheckListBox
+    Left = 8
+    Top = 8
+    Width = 369
+    Height = 249
+    OnClickCheck = lbServersClickCheck
+    ItemHeight = 13
+    Items.Strings = (
+      '1'
+      '2'
+      '3')
+    Sorted = True
+    TabOrder = 0
+  end
+  object pnlButtons: TPanel
+    Left = 0
+    Top = 282
+    Width = 392
+    Height = 41
+    Align = alBottom
+    TabOrder = 1
+    object btnOk: TButton
+      Left = 224
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = '&Ok'
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object btCancel: TButton
+      Left = 304
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = '&Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TfrmServerSelectSrc.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TfrmServerSelectSrc.pas
new file mode 100644
index 0000000..0e15669
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TfrmServerSelectSrc.pas	
@@ -0,0 +1,104 @@
+unit TfrmServerSelectSrc;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, CheckLst,
+  TXPBrdCastServerSrc,
+  uROServer;
+
+type
+  TfrmServerSelect = class(TForm)
+    lbServers: TCheckListBox;
+    pnlButtons: TPanel;
+    btnOk: TButton;
+    btCancel: TButton;
+    procedure lbServersClickCheck(Sender: TObject);
+  private
+   fBrdCstSvr: TXPBrdCastServer;
+   fSvrItems:  TXPServerCollection;
+  protected
+    procedure RefreshServers;
+    procedure AddServer(aServer: TROServer);
+    procedure RemoveServer(aServer: TROServer);
+  public
+    constructor Create(aBrdCstServer : TXPBrdCastServer); reintroduce;
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+{ TfrmServerSelect }
+
+constructor TfrmServerSelect.Create(aBrdCstServer: TXPBrdCastServer);
+begin
+  inherited Create(nil);
+  fBrdCstSvr := aBrdCstServer;
+
+  if Assigned(fBrdCstSvr)
+  then fSvrItems := fBrdCstSvr.ExportedServers
+  else fSvrItems := nil;
+
+  RefreshServers;
+end;
+
+procedure TfrmServerSelect.RefreshServers;
+var lOwner: TComponent;
+    i,Idx: Integer;
+begin
+  lbServers.Clear;
+  if not(Assigned(fBrdCstSvr)) then
+    Exit;
+
+  lOwner := fBrdCstSvr.Owner;
+  if not(Assigned(lOwner)) then
+    Exit;
+
+  // Get all the ROServers from the owner of the TXPBrdCastServer
+  for i := 0 to lOwner.ComponentCount-1 do
+  begin
+    if lOwner.Components[i].InheritsFrom(TROServer) then
+    begin
+      if not(lOwner.Components[i].InheritsFrom(TXPBrdCastServer)) then
+        lbServers.AddItem(lOwner.Components[i].Name,lOwner.Components[i]);
+    end;
+  end;
+
+  // Set checkmark for all servers containd in ExposedServers
+  for i := 0 to fSvrItems.Count-1 do
+  begin
+    Idx := lbServers.Items.IndexOfObject(fSvrItems.Servers[i]);
+    if Idx >= 0 then
+    begin
+      lbServers.Checked[Idx] := True;
+    end;
+  end;
+
+end;
+
+procedure TfrmServerSelect.lbServersClickCheck(Sender: TObject);
+begin
+  if lbServers.Checked[lbServers.ItemIndex]
+  then AddServer(TROServer(lbServers.Items.Objects[lbServers.ItemIndex]))
+  else RemoveServer(TROServer(lbServers.Items.Objects[lbServers.ItemIndex]));
+
+end;
+
+procedure TfrmServerSelect.AddServer(aServer: TROServer);
+begin
+  if not(Assigned(aServer)) then
+    Exit;
+  fSvrItems.AddServer(aServer);
+end;
+
+procedure TfrmServerSelect.RemoveServer(aServer: TROServer);
+begin
+   if not(Assigned(aServer)) then
+    Exit;
+  fSvrItems.DeleteServer(aServer);
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.bdsproj
new file mode 100644
index 0000000..b1bdf5d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{81AB7958-E0B4-416B-BE58-6E3148069C61}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">TimeServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.dpr
new file mode 100644
index 0000000..a8598a2
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.dpr	
@@ -0,0 +1,20 @@
+program TimeServer;
+
+{#ROGEN:TimeServer.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  Forms,
+  TimeServer_ServerMain in 'TimeServer_ServerMain.pas' {TimeServer_ServerMainForm},
+  TimeServer_Intf in 'TimeServer_Intf.pas',
+  TimeServer_Invk in 'TimeServer_Invk.pas',
+  TimeServer_Impl in 'TimeServer_Impl.pas';
+
+{$R *.RES}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Time Server';
+  Application.CreateForm(TTimeServer_ServerMainForm, TimeServer_ServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.dproj
new file mode 100644
index 0000000..e08c9d6
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{4814a248-a012-4462-8202-c9312422846a}</ProjectGuid>
+    <MainSource>TimeServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>TimeServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">TimeServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="TimeServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="TimeServer_Impl.pas" />
+    <DCCReference Include="TimeServer_Intf.pas" />
+    <DCCReference Include="TimeServer_Invk.pas" />
+    <DCCReference Include="TimeServer_ServerMain.pas">
+      <Form>TimeServer_ServerMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.res
new file mode 100644
index 0000000..b72ce48
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.rodl
new file mode 100644
index 0000000..fa39afe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer.rodl	
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="TimeServer" UID="{7770C1E4-5982-485B-8815-3B5E4A437783}" Version="3.0">
+<Services>
+<Service Name="TimeServer" UID="{F0E068AF-890B-45CA-B475-0C1E249653BB}">
+<Interfaces>
+<Interface Name="Default" UID="{F8D4CC88-6268-43E9-980D-D46E6923D589}">
+<Documentation><![CDATA[Service NewService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]></Documentation><Operations>
+<Operation Name="Sum" UID="{FAB3ACBE-8EC9-4B92-AF44-6B5D64301BD6}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="A" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="B" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetServerTime" UID="{1FE0ADDE-C407-4EB5-823D-7029063AC68D}">
+<Parameters>
+<Parameter Name="Result" DataType="DateTime" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.Sample.html
new file mode 100644
index 0000000..76b4ebe
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.Sample.html	
@@ -0,0 +1,18 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Time Server Sample</span> 
+</p>
+
+<h2>Purpose</h2>
+<p>This is an extremely basic sample illustrating how to use the <b>TROBroadcastServer</b> and <b>TROBroadcastChannel</b> components.</p>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.bdsgroup
new file mode 100644
index 0000000..045a814
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{8E28D8CF-A0F9-4B85-A7D0-365DA091214B}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="TimeServer.exe">TimeServer.bdsproj</Projects>
+      <Projects Name="TimeServer_Client.exe">TimeServer_Client.bdsproj</Projects>
+      <Projects Name="Targets">TimeServer.exe TimeServer_Client.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.bpg
new file mode 100644
index 0000000..b904350
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = TimeServer.exe TimeServer_Client.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+TimeServer.exe: TimeServer.dpr
+  $(DCC)
+
+TimeServer_Client.exe: TimeServer_Client.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.groupproj
new file mode 100644
index 0000000..e8a4246
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServerGroup.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{be071276-ccf9-403b-899d-27eaddb3adba}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="TimeServer">
+    <MSBuild Projects="TimeServer.dproj" Targets="" />
+  </Target>
+  <Target Name="TimeServer:Clean">
+    <MSBuild Projects="TimeServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="TimeServer:Make">
+    <MSBuild Projects="TimeServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="TimeServer_Client">
+    <MSBuild Projects="TimeServer_Client.dproj" Targets="" />
+  </Target>
+  <Target Name="TimeServer_Client:Clean">
+    <MSBuild Projects="TimeServer_Client.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="TimeServer_Client:Make">
+    <MSBuild Projects="TimeServer_Client.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="TimeServer;TimeServer_Client" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="TimeServer:Clean;TimeServer_Client:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="TimeServer:Make;TimeServer_Client:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.bdsproj
new file mode 100644
index 0000000..0d80d9e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{AFD35F3F-8CBB-4D96-A12C-844750BC00BC}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">TimeServer_Client.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.dpr
new file mode 100644
index 0000000..82d8da0
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.dpr	
@@ -0,0 +1,15 @@
+program TimeServer_Client;
+
+uses
+  Forms,
+  TimeServer_ClientMain in 'TimeServer_ClientMain.pas' {TimeServer_ClientMainForm},
+  TimeServer_Intf in 'TimeServer_Intf.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'Time Client';
+  Application.CreateForm(TTimeServer_ClientMainForm, TimeServer_ClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.dproj
new file mode 100644
index 0000000..161b8eb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.dproj	
@@ -0,0 +1,79 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{04a61aab-fbdf-4651-bba7-a097a06d5b04}</ProjectGuid>
+    <MainSource>TimeServer_Client.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>TimeServer_Client.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">TimeServer_Client.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="TimeServer_Client.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="TimeServer_ClientMain.pas">
+      <Form>TimeServer_ClientMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="TimeServer_Intf.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.res
new file mode 100644
index 0000000..852a6c3
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Client.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ClientMain.dfm
new file mode 100644
index 0000000..54123c3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ClientMain.dfm	
@@ -0,0 +1,60 @@
+object TimeServer_ClientMainForm: TTimeServer_ClientMainForm
+  Left = 422
+  Top = 409
+  AutoScroll = False
+  Caption = 'TimeServer Client'
+  ClientHeight = 217
+  ClientWidth = 285
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 37
+    Top = 2
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+    ApplicationType = atClient
+  end
+  object TimeButton: TButton
+    Left = 87
+    Top = 192
+    Width = 113
+    Height = 22
+    Anchors = [akLeft, akBottom]
+    Caption = 'Get Time'
+    TabOrder = 0
+    OnClick = TimeButtonClick
+  end
+  object mmRequest: TMemo
+    Left = 0
+    Top = 53
+    Width = 286
+    Height = 133
+    Align = alCustom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Lines.Strings = (
+      '')
+    ReadOnly = True
+    ScrollBars = ssVertical
+    TabOrder = 1
+  end
+  object BINMessage: TROBinMessage
+    Left = 152
+    Top = 16
+  end
+  object ROBroadcastChannel: TROBroadcastChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    Retrys = 2
+    IndyClient.BroadcastEnabled = True
+    IndyClient.Port = 8090
+    IndyClient.ReceiveTimeout = 100
+    Port = 8090
+    Left = 56
+    Top = 16
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ClientMain.pas
new file mode 100644
index 0000000..ff6ab33
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ClientMain.pas	
@@ -0,0 +1,47 @@
+unit TimeServer_ClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs,   TimeServer_Intf,
+  StdCtrls, uROClient, uROBINMessage, uROSOAPMessage,
+  uROIndyUDPChannel, uROBroadcastChannel, uROPoweredByRemObjectsButton;
+
+type
+  TTimeServer_ClientMainForm = class(TForm)
+    TimeButton: TButton;
+    BINMessage: TROBINMessage;
+    mmRequest: TMemo;
+    ROBroadcastChannel: TROBroadcastChannel;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    procedure FormCreate(Sender: TObject);
+    procedure TimeButtonClick(Sender: TObject);
+  private
+    FTimeServer: ITimeServer;
+  public
+    { Public declarations }
+  end;
+
+var
+  TimeServer_ClientMainForm: TTimeServer_ClientMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TTimeServer_ClientMainForm.FormCreate(Sender: TObject);
+begin
+  FTimeServer := CoTimeServer.Create(BINMessage,ROBroadcastChannel);
+end;
+
+procedure TTimeServer_ClientMainForm.TimeButtonClick(Sender: TObject);
+var Time: String;
+begin
+  mmRequest.Lines.Add('* Broadcasting Time request.');
+  Time := DateTimeToStr(FTimeServer.GetServerTime);
+  mmRequest.Lines.Add('Received time from a server: '+Time);
+  mmRequest.Lines.Add('');  
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Impl.pas
new file mode 100644
index 0000000..48c50bb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Impl.pas	
@@ -0,0 +1,52 @@
+unit TimeServer_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROServer, uROServerIntf,
+  {Generated:} TimeServer_Intf;
+
+type
+  TTimeServer = class(TRORemotable, ITimeServer)
+  private
+  protected
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {Generated:} TimeServer_Invk, TimeServer_ServerMain;
+
+procedure Create_TimeServer(out anInstance : IUnknown);
+begin
+  anInstance := TTimeServer.Create;
+end;
+
+function TTimeServer.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  result := A+B;
+  TimeServer_ServerMainForm.mmRequest.Lines.Add('* Processing Sum request.');
+end;
+
+function TTimeServer.GetServerTime: DateTime;
+begin
+  result := Now;
+  TimeServer_ServerMainForm.mmRequest.Lines.Add('* Processing Time request.');
+end;
+
+initialization
+  TROClassFactory.Create('TimeServer', Create_TimeServer, TTimeServer_Invoker);
+
+finalization
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Intf.pas
new file mode 100644
index 0000000..e3e410a
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Intf.pas	
@@ -0,0 +1,109 @@
+unit TimeServer_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{CD4F46E5-B0FA-4AF9-9B7E-6E01FE096885}';
+
+  { Service Interface ID's }
+  ITimeServer_IID : TGUID = '{CD4F46E5-B0FA-4AF9-9B7E-6E01FE096885}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  ITimeServer = interface;
+
+
+  { ITimeServer }
+  ITimeServer = interface
+    ['{CD4F46E5-B0FA-4AF9-9B7E-6E01FE096885}']
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+  { CoTimeServer }
+  CoTimeServer = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ITimeServer;
+  end;
+
+  { TTimeServer_Proxy }
+  TTimeServer_Proxy = class(TROProxy, ITimeServer)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function Sum(const A: Integer; const B: Integer): Integer;
+    function GetServerTime: DateTime;
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ CoTimeServer }
+
+class function CoTimeServer.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): ITimeServer;
+begin
+  result := TTimeServer_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TTimeServer_Proxy }
+
+function TTimeServer_Proxy.__GetInterfaceName:string;
+begin
+  result := 'TimeServer';
+end;
+
+function TTimeServer_Proxy.Sum(const A: Integer; const B: Integer): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'TimeServer', __InterfaceName, 'Sum');
+    __Message.Write('A', TypeInfo(Integer), A, []);
+    __Message.Write('B', TypeInfo(Integer), B, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+function TTimeServer_Proxy.GetServerTime: DateTime;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'TimeServer', __InterfaceName, 'GetServerTime');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterProxyClass(ITimeServer_IID, TTimeServer_Proxy);
+
+
+finalization
+  UnregisterProxyClass(ITimeServer_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Invk.pas
new file mode 100644
index 0000000..154162b
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_Invk.pas	
@@ -0,0 +1,71 @@
+unit TimeServer_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} TimeServer_Intf;
+
+type
+  TTimeServer_Invoker = class(TROInvoker)
+  private
+  protected
+  published
+    procedure Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TTimeServer_Invoker }
+
+procedure TTimeServer_Invoker.Invoke_Sum(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function Sum(const A: Integer; const B: Integer): Integer; }
+var
+  A: Integer;
+  B: Integer;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('A', TypeInfo(Integer), A, []);
+    __Message.Read('B', TypeInfo(Integer), B, []);
+
+    lResult := (__Instance as ITimeServer).Sum(A, B);
+
+    __Message.InitializeResponseMessage(__Transport, 'TimeServer', 'TimeServer', 'SumResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TTimeServer_Invoker.Invoke_GetServerTime(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetServerTime: DateTime; }
+var
+  lResult: DateTime;
+begin
+  try
+    lResult := (__Instance as ITimeServer).GetServerTime;
+
+    __Message.InitializeResponseMessage(__Transport, 'TimeServer', 'TimeServer', 'GetServerTimeResponse');
+    __Message.Write('Result', TypeInfo(DateTime), lResult, [paIsDateTime]);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ServerMain.dfm
new file mode 100644
index 0000000..378a857
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ServerMain.dfm	
@@ -0,0 +1,53 @@
+object TimeServer_ServerMainForm: TTimeServer_ServerMainForm
+  Left = 422
+  Top = 301
+  AutoScroll = False
+  Caption = 'TimeServer'
+  ClientHeight = 217
+  ClientWidth = 285
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 36
+    Top = 2
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object mmRequest: TMemo
+    Left = 0
+    Top = 54
+    Width = 285
+    Height = 163
+    Align = alBottom
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Lines.Strings = (
+      '')
+    ReadOnly = True
+    ScrollBars = ssVertical
+    TabOrder = 0
+  end
+  object ROMessage: TROBinMessage
+    Left = 51
+    Top = 59
+  end
+  object UDPServer: TROBroadcastServer
+    Dispatchers = <
+      item
+        Name = 'ROMessage'
+        Message = ROMessage
+        Enabled = True
+      end>
+    IndyUDPServer.BroadcastEnabled = True
+    IndyUDPServer.Bindings = <>
+    IndyUDPServer.DefaultPort = 8090
+    Port = 8090
+    OnRORequest = UDPServerRORequest
+    Left = 25
+    Top = 59
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ServerMain.pas
new file mode 100644
index 0000000..5fcdd63
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Time Server/TimeServer_ServerMain.pas	
@@ -0,0 +1,47 @@
+unit TimeServer_ServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROIndyTCPServer,
+   uROSOAPMessage, uROIndyUDPServer, uROBroadcastServer,
+  uROPoweredByRemObjectsButton;
+
+type
+  TTimeServer_ServerMainForm = class(TForm)
+    ROMessage: TROBINMessage;
+    UDPServer: TROBroadcastServer;
+    mmRequest: TMemo;
+    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
+    procedure FormCreate(Sender: TObject);
+    procedure UDPServerRORequest(Sender: TObject);
+  private
+
+  protected
+
+  public
+
+  end;
+
+var
+  TimeServer_ServerMainForm: TTimeServer_ServerMainForm;
+
+implementation
+
+
+{$R *.DFM}
+
+procedure TTimeServer_ServerMainForm.FormCreate(Sender: TObject);
+begin
+  UDPServer.Active := True;
+  mmRequest.Lines.Add({+UDPServer.IndyUDPServer.LocalName+}'Server is ready to receive broadcasts.');
+  mmRequest.Lines.Add('');
+end;
+
+procedure TTimeServer_ServerMainForm.UDPServerRORequest(Sender: TObject);
+begin
+  mmRequest.Lines.Add('Received a broadcast to process a RO message.');
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/RODLFILE.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/RODLFILE.res
new file mode 100644
index 0000000..ca0bbf4
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/RODLFILE.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.bdsproj
new file mode 100644
index 0000000..b0b669e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{2D27E2C3-04A5-4319-9A7F-E507666AD1A1}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">VariantsClient.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.dpr
new file mode 100644
index 0000000..e115553
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.dpr	
@@ -0,0 +1,14 @@
+program VariantsClient;
+
+uses
+  uROComInit,
+  Forms,
+  VariantsClientMain in 'VariantsClientMain.pas' {VariantsClientMainForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TVariantsClientMainForm, VariantsClientMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.dproj
new file mode 100644
index 0000000..d4a62a4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.dproj	
@@ -0,0 +1,78 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3f03bbe3-e281-4026-95ec-cb282e6ffcf4}</ProjectGuid>
+    <MainSource>VariantsClient.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>VariantsClient.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">VariantsClient.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="VariantsClient.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="VariantsClientMain.pas">
+      <Form>VariantsClientMainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.res
new file mode 100644
index 0000000..90e4219
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClient.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClientMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClientMain.dfm
new file mode 100644
index 0000000..4c0d549
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClientMain.dfm	
@@ -0,0 +1,66 @@
+object VariantsClientMainForm: TVariantsClientMainForm
+  Left = 102
+  Top = 118
+  AutoScroll = False
+  Caption = 'Variants Client'
+  ClientHeight = 220
+  ClientWidth = 328
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object TestButton: TButton
+    Left = 8
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'Test Variants'
+    TabOrder = 0
+    OnClick = TestButtonClick
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 81
+    Width = 328
+    Height = 139
+    Align = alBottom
+    ScrollBars = ssVertical
+    TabOrder = 1
+  end
+  object rgMessageType: TRadioGroup
+    Left = 96
+    Top = 0
+    Width = 225
+    Height = 73
+    Caption = 'Message'
+    TabOrder = 2
+    OnClick = rgMessageTypeClick
+  end
+  object BINMessage: TROBinMessage
+    Left = 204
+    Top = 96
+  end
+  object HTTPChannel: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/BIN'
+    Left = 176
+    Top = 96
+  end
+  object RORemoteService: TRORemoteService
+    Message = BINMessage
+    Channel = HTTPChannel
+    ServiceName = 'NewService'
+    Left = 232
+    Top = 96
+  end
+  object SOAPMessage: TROSOAPMessage
+    SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
+    Left = 144
+    Top = 96
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClientMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClientMain.pas
new file mode 100644
index 0000000..8019f2e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsClientMain.pas	
@@ -0,0 +1,210 @@
+unit VariantsClientMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
+   ExtCtrls, uROSOAPMessage, VariantsLibrary_Intf;
+
+type
+  TVariantsClientMainForm = class(TForm)
+    BINMessage: TROBinMessage;
+    HTTPChannel: TROWinInetHTTPChannel;
+    RORemoteService: TRORemoteService;
+    TestButton: TButton;
+    Memo: TMemo;
+    SOAPMessage: TROSOAPMessage;
+    rgMessageType: TRadioGroup;
+    procedure TestButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure rgMessageTypeClick(Sender: TObject);
+  private
+    fVariantsService: IVariantsService;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  VariantsClientMainForm: TVariantsClientMainForm;
+
+implementation
+
+uses Variants;
+
+{$R *.dfm}
+
+procedure TVariantsClientMainForm.TestButtonClick(Sender: TObject);
+
+  procedure CheckVariants(const InputVariant, OutputVariant: Variant; CheckType: boolean = TRUE);
+//  var
+//    v1, v2: integer;
+  begin
+    if (InputVariant <> OutputVariant) then
+      raise Exception.Create('Variants differ!');
+    {    if CheckType then begin
+          v1 := VarType(InputVariant);
+          v2 := VarType(OutputVariant);
+          if v1<>v2 then
+            raise Exception.CreateFmt('Variant TYPE is different (%d, %d)!', [v1, v2]);
+        end;}
+  end;
+
+var
+  inputvar, outputvar: Variant;
+  i: integer;
+  incomplex, outcomplex: TComplexObject;
+  inarray, outarray: TVariantArray;
+begin
+
+  // Complex object
+  incomplex := TComplexObject.Create;
+  incomplex.IntegerId := 101;
+  incomplex.VariantValue := 'My Variant';
+  fVariantsService.EchoComplexObject(incomplex, outcomplex);
+  Memo.Lines.Add('Received ' + IntToStr(outcomplex.IntegerId) + ', ' + outcomplex.VariantValue);
+  incomplex.Free;
+  outcomplex.Free;
+
+  // Simple variant array
+  if not (RORemoteService.Message is TROSOAPMessage) then begin
+    inputvar := VarArrayCreate([0, 10], varVariant);
+//    i := 0;
+    for i := 0 to 10 do inputvar[i] := 'SomeText';
+    fVariantsService.EchoVariant(inputvar, outputvar);
+
+    for i := 0 to VarArrayHighBound(outputvar, 1) do
+      Memo.Lines.Add('Simple variant array item #' + IntToStr(i) + '=' + VarToStr(outputvar[i]));
+  end;
+
+  // Variant array (complex type)
+  inarray := TVariantArray.Create;
+  inarray.Add('A string');
+  inarray.Add(1);
+  inarray.Add(Now);
+  inarray.Add(True);
+  fVariantsService.EchoVariantArray(inarray, outarray);
+  for i := 0 to outarray.Count - 1 do
+    Memo.Lines.Add('Variant array item #' + IntToStr(i) + '=' + VarToStr(outarray[i]));
+  inarray.Free;
+  outarray.Free;
+  Memo.Lines.Add('');
+
+  // String
+  inputvar := 'Test';
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Shortint
+  inputvar := 12;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Byte
+  inputvar := 200;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Integer
+  inputvar := 123456;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Float
+  inputvar := 22.39;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar, FALSE);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Float (big one)
+  inputvar := 780000.32;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar, FALSE);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Shortint
+  inputvar := -12;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Byte
+  inputvar := -200;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Integer
+  inputvar := -123456;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Float
+  inputvar := -22.39;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar, FALSE);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Float (big one)
+  inputvar := -780000.32;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar, FALSE);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Datetime
+  inputvar := Now;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  //  CheckVariants(inputvar, outputvar); // For some reason 2 equal datetimes seem different to Delphi (using SOAP)
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  // Boolean
+  inputvar := true;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+  CheckVariants(inputvar, outputvar);
+  Memo.Lines.Add('Received ' + VarToStr(outputvar));
+
+  if (RORemoteService.Message is TROSOAPMessage) then Exit;
+
+  // Array
+  Memo.Lines.Add('');
+  inputvar := VarArrayCreate([0, 3], varVariant);
+  inputvar[0] := 1;
+  inputvar[1] := 1234.5678;
+  inputvar[2] := 'Hello world';
+  inputvar[3] := True;
+  fVariantsService.EchoVariant(inputvar, outputvar);
+
+  for i := 0 to VarArrayHighBound(outputvar, 1) do
+    Memo.Lines.Add('Array element #' + IntToStr(i) + ': ' + VarToStr(outputvar[i]));
+end;
+
+procedure TVariantsClientMainForm.FormCreate(Sender: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to ComponentCount - 1 do
+    if (Components[i] is TROMessage) then begin
+      rgMessageType.Items.AddObject(TROMessage(Components[i]).Name, Components[i]);
+    end;
+
+  rgMessageType.ItemIndex := 1;
+  FVariantsService := (RORemoteService as IVariantsService);
+end;
+
+procedure TVariantsClientMainForm.rgMessageTypeClick(Sender: TObject);
+begin
+  RORemoteService.Message := TROMessage(rgMessageType.Items.Objects[rgMessageType.ItemIndex]);
+  FVariantsService := (RORemoteService as IVariantsService);
+
+  if (RORemoteService.Message is TROSOAPMessage) then HTTPChannel.TargetURL := 'http://localhost:8099/SOAP'
+  else HTTPChannel.TargetURL := 'http://localhost:8099/BIN';
+end;
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.Sample.html b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.Sample.html
new file mode 100644
index 0000000..51a7db7
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.Sample.html	
@@ -0,0 +1,31 @@
+<html>
+	<head>
+		<link rel="stylesheet" type="text/css" href="..\styles.css">
+	</head>
+	<body>
+		<img src="..\..\ro.png" alt="" align="right">
+
+<!-------------------------------------------------------------------------->
+
+<p class="h1">
+  <span>Variants</span> 
+</p>
+
+<h2>Purpose</h2>
+
+<p>This example shows how the RemObjects SDK can transfer variants and array of Variants from the client and server using the TROBinMessage and TROSOAPMessage message types.</p>
+
+<h2>Examine the Code</h2>
+
+<ul>
+	<li>
+	    See how the service is defined in the service library. Do this by making the server the selected project and by using the menu option: RemObjects | Edit Service Library. Note: if you don't see this menu option but see 'Service Builder' instead, you still have the client set as the current project. 
+	</li>
+	<li>
+	   Examine the simple code needed to invoke the methods in 
+	   <strong>VariantsClientMain.pas</strong>.
+	</li>
+</ul>
+
+</body>
+</html>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.bdsgroup b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.bdsgroup
new file mode 100644
index 0000000..a7532eb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.bdsgroup	
@@ -0,0 +1,20 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Default.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{1C28AAE9-9811-49D0-8E0E-91E78573DF0F}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Default.Personality>
+    
+    <Projects>
+      <Projects Name="VariantsServer.exe">VariantsServer.bdsproj</Projects>
+      <Projects Name="VariantsClient.exe">VariantsClient.bdsproj</Projects>
+      <Projects Name="Targets">VariantsServer.exe VariantsClient.exe</Projects>
+    </Projects>
+    <Dependencies/>
+  </Default.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.bpg b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.bpg
new file mode 100644
index 0000000..fd2c63c
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.bpg	
@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = VariantsServer.exe VariantsClient.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+VariantsServer.exe: VariantsServer.dpr
+  $(DCC)
+
+VariantsClient.exe: VariantsClient.dpr
+  $(DCC)
+
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.groupproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.groupproj
new file mode 100644
index 0000000..2e2c50d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsGroup.groupproj	
@@ -0,0 +1,40 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{ecb75d83-34ba-4d9e-8222-3bbf34aee98f}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup />
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="VariantsServer">
+    <MSBuild Projects="VariantsServer.dproj" Targets="" />
+  </Target>
+  <Target Name="VariantsServer:Clean">
+    <MSBuild Projects="VariantsServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="VariantsServer:Make">
+    <MSBuild Projects="VariantsServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="VariantsClient">
+    <MSBuild Projects="VariantsClient.dproj" Targets="" />
+  </Target>
+  <Target Name="VariantsClient:Clean">
+    <MSBuild Projects="VariantsClient.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="VariantsClient:Make">
+    <MSBuild Projects="VariantsClient.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="VariantsServer;VariantsClient" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="VariantsServer:Clean;VariantsClient:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="VariantsServer:Make;VariantsClient:Make" />
+  </Target>
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary.rodl b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary.rodl
new file mode 100644
index 0000000..3e56db3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary.rodl	
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Library Name="VariantsLibrary" UID="{997272DF-9CE1-42FC-A341-669D18AE18ED}" Version="3.0">
+<Services>
+<Service Name="VariantsService" UID="{00000000-0000-0000-0000-000000000000}">
+<Interfaces>
+<Interface Name="Default" UID="{509D1C6D-51DF-4269-A160-DB5B5B671874}">
+<Documentation>
+<![CDATA[Service NewService. This service has been automatically generated using the RODL template you can find in the Templates directory.]]>
+</Documentation>
+<Operations>
+<Operation Name="EchoVariant" UID="{2BEF05B0-80CB-405B-AC18-7AF217546253}" ForceAsyncResponse="1">
+<Parameters>
+<Parameter Name="InputVariant" DataType="Variant" Flag="In" >
+</Parameter>
+<Parameter Name="OutputVariant" DataType="Variant" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="EchoComplexObject" UID="{8A842AB4-9655-4500-B4C1-705961CC5469}">
+<Parameters>
+<Parameter Name="InComplexObject" DataType="TComplexObject" Flag="In" >
+</Parameter>
+<Parameter Name="OutComplexObject" DataType="TComplexObject" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="EchoVariantArray" UID="{C5CEBD30-CA87-46AB-8BEE-A6AA44B680C1}">
+<Parameters>
+<Parameter Name="InArray" DataType="TVariantArray" Flag="In" >
+</Parameter>
+<Parameter Name="OutArray" DataType="TVariantArray" Flag="Out" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
+</Services>
+<Structs>
+<Struct Name="TComplexObject" UID="{D6803ED2-F6B3-42A1-8E19-39ED9983D01D}" AutoCreateParams="1">
+<Elements>
+<Element Name="IntegerId" DataType="Integer">
+</Element>
+<Element Name="VariantValue" DataType="Variant">
+</Element>
+</Elements>
+</Struct>
+</Structs>
+<Enums>
+</Enums>
+<Arrays>
+<Array Name="TVariantArray" UID="{9E0825E4-645C-427B-A36D-FB9CBD94F26D}">
+<ElementType DataType="Variant" />
+</Array>
+</Arrays>
+</Library>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary_Intf.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary_Intf.pas
new file mode 100644
index 0000000..3db3e92
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary_Intf.pas	
@@ -0,0 +1,324 @@
+unit VariantsLibrary_Intf;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, TypInfo,
+  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf;
+
+const
+  { Library ID }
+  LibraryUID = '{997272DF-9CE1-42FC-A341-669D18AE18ED}';
+
+  { Service Interface ID's }
+  IVariantsService_IID : TGUID = '{509D1C6D-51DF-4269-A160-DB5B5B671874}';
+
+  { Event ID's }
+
+type
+  { Forward declarations }
+  IVariantsService = interface;
+
+  TVariantArray = class;
+
+  TComplexObject = class;
+
+
+  { TComplexObject }
+  TComplexObject = class(TROComplexType)
+  private
+    fIntegerId: Integer;
+    fVariantValue: Variant;
+  public
+    procedure Assign(iSource: TPersistent); override;
+  published
+    property IntegerId:Integer read fIntegerId write fIntegerId;
+    property VariantValue:Variant read fVariantValue write fVariantValue;
+  end;
+
+  { TComplexObjectCollection }
+  TComplexObjectCollection = class(TROCollection)
+  protected
+    constructor Create(aItemClass: TCollectionItemClass); overload;
+    function GetItems(Index: integer): TComplexObject;
+    procedure SetItems(Index: integer; const Value: TComplexObject);
+  public
+    constructor Create; overload;
+    function Add: TComplexObject; reintroduce;
+    property Items[Index: integer]:TComplexObject read GetItems write SetItems; default;
+  end;
+
+  { TVariantArray }
+  TVariantArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : array of Variant;
+  protected
+    procedure Grow; virtual;
+    function GetItems(Index: integer): Variant;
+    procedure SetItems(Index: integer; const Value: Variant);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+    function GetItemRef(Index: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(Index: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    function Add(const Value:Variant): integer;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Variant read GetItems write SetItems; default;
+  end;
+
+  { IVariantsService }
+  IVariantsService = interface
+    ['{509D1C6D-51DF-4269-A160-DB5B5B671874}']
+    procedure EchoVariant(const InputVariant: Variant; out OutputVariant: Variant);
+    procedure EchoComplexObject(const InComplexObject: TComplexObject; out OutComplexObject: TComplexObject);
+    procedure EchoVariantArray(const InArray: TVariantArray; out OutArray: TVariantArray);
+  end;
+
+  { CoVariantsService }
+  CoVariantsService = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IVariantsService;
+  end;
+
+  { TVariantsService_Proxy }
+  TVariantsService_Proxy = class(TROProxy, IVariantsService)
+  protected
+    function __GetInterfaceName:string; override;
+
+    procedure EchoVariant(const InputVariant: Variant; out OutputVariant: Variant);
+    procedure EchoComplexObject(const InComplexObject: TComplexObject; out OutComplexObject: TComplexObject);
+    procedure EchoVariantArray(const InArray: TVariantArray; out OutArray: TVariantArray);
+  end;
+
+implementation
+
+uses
+  {vcl:} SysUtils,
+  {RemObjects:} uROEventRepository, uRORes;
+
+{ TVariantArray }
+
+procedure TVariantArray.Assign(iSource: TPersistent);
+var lSource:TVariantArray;
+    i:integer;
+begin
+  if (iSource is TVariantArray) then begin
+    lSource := TVariantArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TVariantArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Variant);
+end;
+
+class function TVariantArray.GetItemSize: integer;
+begin
+  result := SizeOf(Variant);
+end;
+
+function TVariantArray.GetItems(Index: integer): Variant;
+begin
+  if (Index < 0) or (Index >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[Index]);
+  result := fItems[Index];
+end;
+
+function TVariantArray.GetItemRef(Index: integer): pointer;
+begin
+  if (Index < 0) or (Index >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[Index]);
+  result := @fItems[Index];
+end;
+
+procedure TVariantArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TVariantArray.Delete(Index: integer);
+var i: integer;
+begin
+  if (Index>=Count) then RaiseError(err_InvalidIndex, [Index]);
+
+  if (Index<Count-1) then
+    for i := Index to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TVariantArray.SetItems(Index: integer; const Value: Variant);
+begin
+  if (Index < 0) or (Index >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[Index]);
+  fItems[Index] := Value;
+end;
+
+procedure TVariantArray.Resize(ElementCount: integer);
+begin
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function TVariantArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TVariantArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TVariantArray.Add(const Value: Variant): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+{ TComplexObject }
+
+procedure TComplexObject.Assign(iSource: TPersistent); 
+var lSource:TComplexObject;
+begin
+  inherited Assign(iSource);
+  if (iSource is TComplexObject) then begin
+    lSource := TComplexObject(iSource);
+    IntegerId := lSource.IntegerId;
+    VariantValue := lSource.VariantValue;
+  end;
+end;
+
+{ TComplexObjectCollection }
+constructor TComplexObjectCollection.Create;
+begin
+  inherited Create(TComplexObject);
+end;
+
+constructor TComplexObjectCollection.Create(aItemClass: TCollectionItemClass);
+begin
+  inherited Create(aItemClass);
+end;
+
+function TComplexObjectCollection.Add: TComplexObject;
+begin
+  result := TComplexObject(inherited Add);
+end;
+
+function TComplexObjectCollection.GetItems(Index: integer): TComplexObject;
+begin
+  result := TComplexObject(inherited Items[Index]);
+end;
+
+procedure TComplexObjectCollection.SetItems(Index: integer; const Value: TComplexObject);
+begin
+  TComplexObject(inherited Items[Index]).Assign(Value);
+end;
+
+{ CoVariantsService }
+
+class function CoVariantsService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IVariantsService;
+begin
+  result := TVariantsService_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TVariantsService_Proxy }
+
+function TVariantsService_Proxy.__GetInterfaceName:string;
+begin
+  result := 'VariantsService';
+end;
+
+procedure TVariantsService_Proxy.EchoVariant(const InputVariant: Variant; out OutputVariant: Variant);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'VariantsLibrary', __InterfaceName, 'EchoVariant');
+    __Message.Write('InputVariant', TypeInfo(Variant), InputVariant, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('OutputVariant', TypeInfo(Variant), OutputVariant, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TVariantsService_Proxy.EchoComplexObject(const InComplexObject: TComplexObject; out OutComplexObject: TComplexObject);
+begin
+  try
+    OutComplexObject := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'VariantsLibrary', __InterfaceName, 'EchoComplexObject');
+    __Message.Write('InComplexObject', TypeInfo(VariantsLibrary_Intf.TComplexObject), InComplexObject, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('OutComplexObject', TypeInfo(VariantsLibrary_Intf.TComplexObject), OutComplexObject, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+procedure TVariantsService_Proxy.EchoVariantArray(const InArray: TVariantArray; out OutArray: TVariantArray);
+begin
+  try
+    OutArray := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'VariantsLibrary', __InterfaceName, 'EchoVariantArray');
+    __Message.Write('InArray', TypeInfo(VariantsLibrary_Intf.TVariantArray), InArray, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('OutArray', TypeInfo(VariantsLibrary_Intf.TVariantArray), OutArray, []);
+  finally
+    __Message.FreeStream;
+  end
+end;
+
+initialization
+  RegisterROClass(TComplexObject);
+  RegisterROClass(TVariantArray);
+  RegisterProxyClass(IVariantsService_IID, TVariantsService_Proxy);
+
+
+finalization
+  UnregisterROClass(TComplexObject);
+  UnregisterROClass(TVariantArray);
+  UnregisterProxyClass(IVariantsService_IID);
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary_Invk.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary_Invk.pas
new file mode 100644
index 0000000..db6740e
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsLibrary_Invk.pas	
@@ -0,0 +1,112 @@
+unit VariantsLibrary_Invk;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ Do not modify this unit manually, or your changes will be lost when this   }
+{ unit is regenerated the next time you compile the project.                 }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes,
+  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
+  {Generated:} VariantsLibrary_Intf;
+
+type
+  TVariantsService_Invoker = class(TROInvoker)
+  private
+  protected
+  published
+    procedure Invoke_EchoVariant(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_EchoComplexObject(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_EchoVariantArray(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
+implementation
+
+uses
+  {RemObjects:} uRORes, uROClient;
+
+{ TVariantsService_Invoker }
+
+procedure TVariantsService_Invoker.Invoke_EchoVariant(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure EchoVariant(const InputVariant: Variant; out OutputVariant: Variant); }
+var
+  InputVariant: Variant;
+  OutputVariant: Variant;
+begin
+  try
+    __Message.Read('InputVariant', TypeInfo(Variant), InputVariant, []);
+
+    (__Instance as IVariantsService).EchoVariant(InputVariant, OutputVariant);
+
+    __Message.InitializeResponseMessage(__Transport, 'VariantsLibrary', 'VariantsService', 'EchoVariantResponse');
+    __Message.Write('OutputVariant', TypeInfo(Variant), OutputVariant, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TVariantsService_Invoker.Invoke_EchoComplexObject(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure EchoComplexObject(const InComplexObject: TComplexObject; out OutComplexObject: TComplexObject); }
+var
+  InComplexObject: VariantsLibrary_Intf.TComplexObject;
+  OutComplexObject: VariantsLibrary_Intf.TComplexObject;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  InComplexObject := nil;
+  OutComplexObject := nil;
+  try
+    __Message.Read('InComplexObject', TypeInfo(VariantsLibrary_Intf.TComplexObject), InComplexObject, []);
+
+    (__Instance as IVariantsService).EchoComplexObject(InComplexObject, OutComplexObject);
+
+    __Message.InitializeResponseMessage(__Transport, 'VariantsLibrary', 'VariantsService', 'EchoComplexObjectResponse');
+    __Message.Write('OutComplexObject', TypeInfo(VariantsLibrary_Intf.TComplexObject), OutComplexObject, []);
+    __Message.Finalize;
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(InComplexObject);
+      __lObjectDisposer.Add(OutComplexObject);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TVariantsService_Invoker.Invoke_EchoVariantArray(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure EchoVariantArray(const InArray: TVariantArray; out OutArray: TVariantArray); }
+var
+  InArray: VariantsLibrary_Intf.TVariantArray;
+  OutArray: VariantsLibrary_Intf.TVariantArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  InArray := nil;
+  OutArray := nil;
+  try
+    __Message.Read('InArray', TypeInfo(VariantsLibrary_Intf.TVariantArray), InArray, []);
+
+    (__Instance as IVariantsService).EchoVariantArray(InArray, OutArray);
+
+    __Message.InitializeResponseMessage(__Transport, 'VariantsLibrary', 'VariantsService', 'EchoVariantArrayResponse');
+    __Message.Write('OutArray', TypeInfo(VariantsLibrary_Intf.TVariantArray), OutArray, []);
+    __Message.Finalize;
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(InArray);
+      __lObjectDisposer.Add(OutArray);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.bdsproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.bdsproj
new file mode 100644
index 0000000..46a956f
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.bdsproj	
@@ -0,0 +1,175 @@
+﻿<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType">VCLApplication</Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{41800CC5-0FFC-412D-BB30-3B34DC1B27B2}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">VariantsServer.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.dpr b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.dpr
new file mode 100644
index 0000000..f1e3e55
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.dpr	
@@ -0,0 +1,20 @@
+program VariantsServer;
+
+{#ROGEN:VariantsLibrary.rodl} // RemObjects: Careful, do not remove!
+
+uses
+  uROComInit,
+  Forms,
+  VariantsServerMain in 'VariantsServerMain.pas' {VariantsServerMainForm},
+  VariantsLibrary_Intf in 'VariantsLibrary_Intf.pas',
+  VariantsLibrary_Invk in 'VariantsLibrary_Invk.pas',
+  VariantsService_Impl in 'VariantsService_Impl.pas';
+
+{$R *.res}
+{$R RODLFile.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TVariantsServerMainForm, VariantsServerMainForm);
+  Application.Run;
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.dproj b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.dproj
new file mode 100644
index 0000000..0c25dc3
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.dproj	
@@ -0,0 +1,81 @@
+﻿<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{3360785c-eedb-4055-b208-6a68c355d46d}</ProjectGuid>
+    <MainSource>VariantsServer.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>VariantsServer.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DcuOutput>.</DCC_DcuOutput>
+    <DCC_ObjOutput>.</DCC_ObjOutput>
+    <DCC_HppOutput>.</DCC_HppOutput>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1058</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Source>
+      <Source Name="MainSource">VariantsServer.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <ItemGroup />
+  <ItemGroup>
+    <DelphiCompile Include="VariantsServer.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="VariantsLibrary_Intf.pas" />
+    <DCCReference Include="VariantsLibrary_Invk.pas" />
+    <DCCReference Include="VariantsServerMain.pas">
+      <Form>VariantsServerMainForm</Form>
+    </DCCReference>
+    <DCCReference Include="VariantsService_Impl.pas" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+</Project>
\ No newline at end of file
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.res b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.res
new file mode 100644
index 0000000..b0dd731
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServer.res differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServerMain.dfm b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServerMain.dfm
new file mode 100644
index 0000000..35c0ddb
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServerMain.dfm	
@@ -0,0 +1,49 @@
+object VariantsServerMainForm: TVariantsServerMainForm
+  Left = 60
+  Top = 50
+  BorderStyle = bsDialog
+  Caption = 'Variants Server'
+  ClientHeight = 64
+  ClientWidth = 228
+  Color = clBtnFace
+  ParentFont = True
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
+    Left = 8
+    Top = 8
+    Width = 212
+    Height = 48
+    Cursor = crHandPoint
+  end
+  object BINMessage: TROBinMessage
+    Left = 36
+    Top = 8
+  end
+  object ROServer: TROIndyHTTPServer
+    Dispatchers = <
+      item
+        Name = 'BINMessage'
+        Message = BINMessage
+        Enabled = True
+        PathInfo = 'Bin'
+      end
+      item
+        Name = 'ROSOAPMessage'
+        Message = ROSOAPMessage
+        Enabled = True
+        PathInfo = 'SOAP'
+      end>
+    Port = 8099
+    Left = 8
+    Top = 8
+  end
+  object ROSOAPMessage: TROSOAPMessage
+    SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
+    Left = 64
+    Top = 8
+  end
+end
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServerMain.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServerMain.pas
new file mode 100644
index 0000000..2d971c4
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsServerMain.pas	
@@ -0,0 +1,36 @@
+unit VariantsServerMain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
+  uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, uROSOAPMessage;
+
+type
+  TVariantsServerMainForm = class(TForm)
+    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
+    BINMessage: TROBinMessage;
+    ROServer: TROIndyHTTPServer;
+    ROSOAPMessage: TROSOAPMessage;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  VariantsServerMainForm: TVariantsServerMainForm;
+
+implementation
+
+
+{$R *.dfm}
+
+procedure TVariantsServerMainForm.FormCreate(Sender: TObject);
+begin
+  ROServer.Active := true;
+end;
+
+end.
diff --git a/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsService_Impl.pas b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsService_Impl.pas
new file mode 100644
index 0000000..01bfb3d
--- /dev/null
+++ b/internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Variants/VariantsService_Impl.pas	
@@ -0,0 +1,61 @@
+unit VariantsService_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Generated:} VariantsLibrary_Intf;
+
+type
+  { TVariantsService }
+  TVariantsService = class(TRORemotable, IVariantsService)
+  private
+  protected
+    { IVariantsService methods }
+    procedure EchoVariant(const InputVariant: Variant; out OutputVariant: Variant);
+    procedure EchoComplexObject(const InComplexObject: TComplexObject; out OutComplexObject: TComplexObject);
+    procedure EchoVariantArray(const InArray: TVariantArray; out OutArray: TVariantArray);
+  end;
+
+implementation
+
+uses
+  {Generated:} VariantsLibrary_Invk;
+
+procedure Create_VariantsService(out anInstance: IUnknown);
+begin
+  anInstance := TVariantsService.Create;
+end;
+
+{ VariantsService }
+
+procedure TVariantsService.EchoVariant(const InputVariant: Variant; out OutputVariant: Variant);
+begin
+  OutputVariant := InputVariant;
+end;
+
+procedure TVariantsService.EchoComplexObject(const InComplexObject: TComplexObject; out OutComplexObject: TComplexObject);
+begin
+  OutComplexObject := InComplexObject;
+end;
+
+procedure TVariantsService.EchoVariantArray(const InArray: TVariantArray; out OutArray: TVariantArray);
+begin
+  OutArray := InArray;
+end;
+
+initialization
+  TROClassFactory.Create('VariantsService', Create_VariantsService, TVariantsService_Invoker);
+
+finalization
+
+end.
+
diff --git a/internal/6.0.43.801/1/RemObjects Samples/Thumbs.db b/internal/6.0.43.801/1/RemObjects Samples/Thumbs.db
new file mode 100644
index 0000000..207a911
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/Thumbs.db differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/da.png b/internal/6.0.43.801/1/RemObjects Samples/da.png
new file mode 100644
index 0000000..b869fc8
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/da.png differ
diff --git a/internal/6.0.43.801/1/RemObjects Samples/ro.png b/internal/6.0.43.801/1/RemObjects Samples/ro.png
new file mode 100644
index 0000000..2828066
Binary files /dev/null and b/internal/6.0.43.801/1/RemObjects Samples/ro.png differ